GOOF----LE-8-2.0?]š4hp ] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsystem¤ gvm¤ g trap-state¤ ¤ gfilenameS¤ fsystem/vm/trap-state.scm¤ gimportsS¤ gbase¤ gsyntax¤  ¤ ¤ gsrfi¤ gsrfi-1¤ ¤ gselectS¤ gfold¤ ¤ ¤ ¤ ¤ gtraps¤ ¤ ¤ gtrace¤ ¤ ¤ gframe¤ ! ¤ "!¤ #gprogram¤ $#¤ %$¤ &"%¤ 'gexportsS¤ (g add-trap!¤ )g list-traps¤ *g trap-enabled?¤ +g trap-name¤ ,g enable-trap!¤ -g disable-trap!¤ .g delete-trap!¤ /gwith-default-trap-handler¤ 0ginstall-trap-handler!¤ 1gadd-trap-at-procedure-call!¤ 2gadd-trace-at-procedure-call!¤ 3gadd-trap-at-source-location!¤ 4g#add-ephemeral-trap-at-frame-finish!¤ 5gadd-ephemeral-stepping-trap!¤ 6()*+,-./012345¤ 7gset-current-module¤ 87¤ 97¤ :g make-fluid¤ ;g%default-trap-handler¤ gdefault-trap-handler¤ ?gmake-record-type¤ @f¤ Agindex¤ Bgenabled?¤ Cgtrap¤ Dgname¤ EABCD¤ Fg¤ Ggmake-trap-wrapper¤ Hgrecord-predicate¤ Ig trap-wrapper?¤ Jgmake-procedure-with-setter¤ Kgrecord-accessor¤ Lgrecord-modifier¤ Mgtrap-wrapper-index¤ Ngtrap-wrapper-enabled?¤ Ogtrap-wrapper-trap¤ Pgtrap-wrapper-name¤ Qf ¤ Rghandler¤ Sgnext-idx¤ Tgnext-ephemeral-idx¤ Ugwrappers¤ VRSTU¤ Wg ¤ Xgmake-trap-state¤ Yg trap-state?¤ Zgtrap-state-handler¤ [gtrap-state-next-idx¤ \gtrap-state-next-ephemeral-idx¤ ]gtrap-state-wrappers¤ ^gtrap-wrappertrace-level¤ lf)no wrapper found with index in trap-state¤ mgwrapper-at-index¤ ng next-index!¤ ognext-ephemeral-index!¤ pghandler-for-index¤ qgephemeral-handler-for-index¤ rgmake-weak-key-hash-table¤ sg *trap-states*¤ tg hashq-ref¤ ug hashq-set!¤ vgtrap-state-for-vm¤ wgthe-vm¤ xgthe-trap-state¤ ygset-vm-trace-level!¤ zgmap¤ {gand=>¤ |gtrap-at-procedure-call¤ }gformat¤ ~fBreakpoint at ~a¤ gtrace-calls-to-procedure¤ €gprefixS¤ f Trap ~a: ¤ ‚fTracepoint at ~a¤ ƒgtrap-at-source-location¤ „fBreakpoint at ~a:~a¤ …gtrap-frame-finish¤ †fReturn from ~a¤ ‡f~a:~a:~a¤ ˆg source:file¤ ‰f unknown file¤ Šgsource:line-for-user¤ ‹g source:column¤ Œfunknown source location¤ g source-string¤ Žginto?S¤ Ž Œ¤ g instruction?S¤ ‘ Œ¤ ’‘¤ “gframe-next-source¤ ”gtrap-matching-instructions¤ •g frame-address¤ –fStep to different instruction¤ —f#Step to different instruction in ~a¤ ˜f Step into ~a¤ ™fStep out of ~a¤C5hX0ˆ]4    &'6549>"G4:i5;R;<=h(ì] [$ 66ägframe  #gidx  #g trap-name   #gdefault-handler   #gfilenamefsystem/vm/trap-state.scmŒ 1 ŒŒ  2 ŒŒ 3 ŒŒ  4 ŒŒ  5 ŒŒ # 5 ŒŒ  # gnamegdefault-trap-handlerŒC>R4?i@E5FRFhÞ-13¨CÖgindex genabled? gtrap  gname  gdefrec-3703f9048699c1-8  gfilenamefsystem/vm/trap-state.scmŒ 7 ŒŒ   gnamegmake-trap-wrapperŒCGR4HiFi5IR4Ji4KiFiA54LiFiA55MR4Ji4KiFiB54LiFiB55NR4Ji4KiFiC54LiFiC55OR4Ji4KiFiD54LiFiD55PR4?iQV5WR>Wh9-13HJ("JJŽKJ( "JJŽKJ( ÿ"JJŽKJ("JJŽK¨C1gdefrec-3703f9048699c1-14 g_x  (g_x 6 Bg_x Q ]g_x k wghandler w gnext-idx  w gnext-ephemeral-idx  w gwrappers  w  gfilenamefsystem/vm/trap-state.scmŒ = ŒŒ d A ŒŒ gnamegmake-trap-stateŒCXR4HiWi5YR4Ji4KiWiR54LiWiR55ZR4Ji4KiWiS54LiWiS55[R4Ji4KiWiT54LiWiT55\R4Ji4KiWiU54LiWiU55]RMhž]4545’C–gt1  gt2  gfilenamefsystem/vm/trap-state.scmŒ C ŒŒ  D ŒŒ D ŒŒ  D ŒŒ   gnamegtrap-wrapper"G456âgwrapper  Kgtrap ! Kgfilenamefsystem/vm/trap-state.scmŒ J ŒŒ  K ŒŒ K ŒŒ  L ŒŒ  L $ŒŒ  L ŒŒ  M ŒŒ ! M ŒŒ $ N ŒŒ . N *ŒŒ 7 N ŒŒ K O ŒŒ  K gnamegenable-trap-wrapper!ŒCdRNOc_eMhPë] 45$14544545>"G456456ãgwrapper  Kgtrap  >gfilenamefsystem/vm/trap-state.scmŒ Q ŒŒ  R ŒŒ R ŒŒ  T ŒŒ  T ŒŒ  U ŒŒ ! U *ŒŒ * U ŒŒ > V ŒŒ B S ŒŒ C S %ŒŒ K S ŒŒ  K gnamegdisable-trap-wrapper!ŒCfRc]gMh0Î]4454455>"G6Æg trap-state  0gwrapper  0gfilenamefsystem/vm/trap-state.scmŒ X ŒŒ  Y ŒŒ Z ŒŒ  Z ŒŒ  Z 1ŒŒ  Z ŒŒ " Y ŒŒ 0 [ ŒŒ  0 gnamegadd-trap-wrapper!ŒChRc]ih ¹]4544556±g trap-state  gwrapper  gfilenamefsystem/vm/trap-state.scmŒ ] ŒŒ _ ŒŒ  _ ŒŒ  _ ŒŒ  ^ ŒŒ   gnamegremove-trap-wrapper!ŒCjRNhŒ]45$—CC„gwrapper  glevel  gfilenamefsystem/vm/trap-state.scmŒ b ŒŒ  c ŒŒ c ŒŒ  d ŒŒ   C]h—] 456g trap-state  gfilenamefsystem/vm/trap-state.scmŒ a ŒŒ  g ŒŒ  b ŒŒ   gnamegtrap-state->trace-levelŒCkR<lM]hP'] "8(4>"GC45†$CŽ"ÿÿÈ45"ÿÿ»g trap-state  Kgidx  Kgwrappers   >gfilenamefsystem/vm/trap-state.scmŒ i ŒŒ  j ŒŒ k ŒŒ m ŒŒ  m ŒŒ  m ŒŒ # o ŒŒ ( o ŒŒ * o ŒŒ - o ŒŒ 1 k ŒŒ 4 p ŒŒ 8 r ŒŒ > r ŒŒ > j ŒŒ ? j ŒŒ K j ŒŒ  K gnamegwrapper-at-indexŒCmR[ch(³] 45445—>"GC«g trap-state  (gidx (gfilenamefsystem/vm/trap-state.scmŒ t ŒŒ  u ŒŒ u ŒŒ v ŒŒ  v +ŒŒ  v ŒŒ  ( gnameg next-index!ŒCnR\ch(½] 45445™>"GCµg trap-state  (gidx (gfilenamefsystem/vm/trap-state.scmŒ y ŒŒ  z ŒŒ z ŒŒ { ŒŒ  { 5ŒŒ  { ŒŒ  ( gnamegnext-ephemeral-index!ŒCoRmZMPh8Ç]4LL54L5$45456C¿gframe  2gwrapper  2ghandler   2gfilenamefsystem/vm/trap-state.scmŒ  ŒŒ  € ŒŒ ŒŒ  € ŒŒ  ‚ ŒŒ ! „ ŒŒ ( … ŒŒ 0 ƒ ŒŒ  2 Ch’]OCŠg trap-state  gidx  gfilenamefsystem/vm/trap-state.scmŒ ~ ŒŒ  gnameghandler-for-indexŒCpRmNfjhP¼] 4LL5$;45$4>"G"4L>"GL6C´gframe  Pgwrapper Pgfilenamefsystem/vm/trap-state.scmŒ ˆ ŒŒ  ‰ ŒŒ ‰ ŒŒ  Š ŒŒ  Œ ŒŒ  Œ ŒŒ  ŒŒ 5 Ž ŒŒ N ŒŒ  P Ch²]OCªg trap-state  gidx  ghandler   gfilenamefsystem/vm/trap-state.scmŒ ‡ ŒŒ   gnamegephemeral-handler-for-indexŒCqR4ri5sRtsXuvh@Í] 45$C454>"G6Ågvm  9gt 9gts  9gfilenamefsystem/vm/trap-state.scmŒ ™ ŒŒ  š ŒŒ š ŒŒ  › ŒŒ  › ŒŒ  œ ŒŒ 9 ŒŒ  9 gnamegtrap-state-for-vmŒCvRvwhx]456pgfilenamefsystem/vm/trap-state.scmŒ Ÿ ŒŒ    ŒŒ   ŒŒ  gnamegthe-trap-stateŒCxRx;ywkh p]L$454L56Chgfilenamefsystem/vm/trap-state.scmŒ ¬ ŒŒ  ® ŒŒ ¯ !ŒŒ  ¯ *ŒŒ  ¯ ŒŒ   Cywhg]L$ 45 6C_gfilenamefsystem/vm/trap-state.scmŒ ± ŒŒ  ² ŒŒ ³ !ŒŒ  ³ ŒŒ   Cywkh p]L$454L56Chgfilenamefsystem/vm/trap-state.scmŒ ¬ ŒŒ  ® ŒŒ ¯ !ŒŒ  ¯ *ŒŒ  ¯ ŒŒ   Cywhg]L$ 45 6C_gfilenamefsystem/vm/trap-state.scmŒ ± ŒŒ  ² ŒŒ ³ !ŒŒ  ³ ŒŒ   ChpÅ-.,3#45YOO4O>"GV4> X4O>"G"ZCZF½ghandler ngthunk ng trap-state  ngfilenamefsystem/vm/trap-state.scmŒ ¨ ŒŒ  © ;ŒŒ 0 « ŒŒ n  gnamegwith-default-trap-handlerŒC/RxzM]h(—-.,3#45456g trap-state &gfilenamefsystem/vm/trap-state.scmŒ µ ŒŒ  µ ,ŒŒ  ¶ ŒŒ & ¶ ŒŒ & gnameg list-trapsŒC)Rx{mPh(¦-.,3#45456žgidx (g trap-state (gfilenamefsystem/vm/trap-state.scmŒ ¸ ŒŒ  ¸ /ŒŒ  ¹ ŒŒ ( ¹ ŒŒ ( gnameg trap-nameŒC+Rx{mNh(ª-.,3#45456¢gidx (g trap-state (gfilenamefsystem/vm/trap-state.scmŒ ¼ ŒŒ  ¼ 3ŒŒ  ½ ŒŒ ( ½ ŒŒ ( gnameg trap-enabled?ŒC*Rx{mdh(©-.,3#45456¡gidx (g trap-state (gfilenamefsystem/vm/trap-state.scmŒ À ŒŒ  À 2ŒŒ  Á ŒŒ ( Á ŒŒ ( gnameg enable-trap!ŒC,Rx{mfh(ª-.,3#45456¢gidx (g trap-state (gfilenamefsystem/vm/trap-state.scmŒ Ä ŒŒ  Ä 3ŒŒ  Å ŒŒ ( Å ŒŒ ( gnameg disable-trap!ŒC-Rx{mNfjh0†]45$4>"G"L6~gwrapper  +gfilenamefsystem/vm/trap-state.scmŒ Ê ŒŒ  Ë ŒŒ Ë ŒŒ  Ì ŒŒ + Í ŒŒ  + Ch0©-.,3#4545O6¡gidx -g trap-state -gfilenamefsystem/vm/trap-state.scmŒ È ŒŒ  È 2ŒŒ  É ŒŒ - É ŒŒ - gnameg delete-trap!ŒC.RxcZh(­-.,3#45456¥ghandler &g trap-state &gfilenamefsystem/vm/trap-state.scmŒ Ï ŒŒ  Ï ?ŒŒ & Ð ŒŒ & gnameginstall-trap-handler!ŒC0Rxn|phG}~ hP6-.,3#4545445544556.gproc Ng trap-state Ngidx  Ngtrap  2 Ngfilenamefsystem/vm/trap-state.scmŒ Ò ŒŒ  Ò BŒŒ  Ó ŒŒ Ó ŒŒ # Ô ŒŒ ( Ö ŒŒ 2 Ô ŒŒ 2 Ó ŒŒ 9 Ù ŒŒ A Û ŒŒ F Û ŒŒ J Û ŒŒ L Ù ŒŒ N × ŒŒ N gnamegadd-trap-at-procedure-call!ŒC1Rxn€}hG‚ hXI-.,3#4545445544 556Agproc Qg trap-state Qgidx  Qgtrap  5 Qgfilenamefsystem/vm/trap-state.scmŒ Ý ŒŒ  Þ >ŒŒ  ß ŒŒ ß ŒŒ # à ŒŒ * â ŒŒ / â $ŒŒ 3 â ŒŒ 5 à ŒŒ 5 ß ŒŒ < å ŒŒ D ç ŒŒ I ç ŒŒ M ç ŒŒ O å ŒŒ Q ã ŒŒ Q gnamegadd-trace-at-procedure-call!ŒC2RxnƒphG}„ hXO-.,3#4545445544556Ggfile Rg user-line Rg trap-state  Rgidx  Rgtrap  4 Rgfilenamefsystem/vm/trap-state.scmŒ é ŒŒ  ê >ŒŒ  ë ŒŒ ë ŒŒ # ì ŒŒ * í (ŒŒ 4 ì ŒŒ 4 ë ŒŒ ; 𠌌 C ò ŒŒ H ò ŒŒ N ò ŒŒ P 𠌌 R î ŒŒ R  gnamegadd-trap-at-source-location!ŒC3Rxo…q.hi]LL6agframe  gfilenamefsystem/vm/trap-state.scmŒ ü ŒŒ ü ŒŒ  ChG}† h`U-.,3#4545445O544 556Mgframe Yghandler Yg trap-state  Ygidx  Ygtrap  = Ygfilenamefsystem/vm/trap-state.scmŒ õ ŒŒ  ÷ :ŒŒ  ø ŒŒ ø ŒŒ # ù ŒŒ ( û ŒŒ = ù ŒŒ = ø ŒŒ D ÿ ŒŒ L  ŒŒ Q  ŒŒ U  ŒŒ W ÿ ŒŒ Y ý ŒŒ Y  gnameg#add-ephemeral-trap-at-frame-finish!ŒC4R}‡ˆ‰Š‹Œh@Ù] $/45$"45456CÑgsource  :gt  'gfilenamefsystem/vm/trap-state.scmŒ  ŒŒ   ŒŒ  ŒŒ   ŒŒ   ŒŒ $  5ŒŒ (  ŒŒ /  ,ŒŒ 7  ŒŒ 9  ŒŒ  : gnameg source-stringŒCR’x“o”h\]CTgf  gfilenamefsystem/vm/trap-state.scmŒ  ŒŒ   C“hw]45L‡€Cogf  gfilenamefsystem/vm/trap-state.scmŒ  ŒŒ   .ŒŒ  &ŒŒ  !ŒŒ   C••h€]45L“$L6Cxgf  gfilenamefsystem/vm/trap-state.scmŒ  ŒŒ   ŒŒ  ŒŒ   ŒŒ   ŒŒ   CqhG–}—˜™hè§-/03 #45##45454$"O$"45 O4 55 4 $$ " 45"($4455"445556Ÿgframe  çghandler  çg trap-state   çginto?   çg instruction?   çgsource  9 çgidx  B çg predicate  Z €gfp  o }gtrap  ç gfilenamefsystem/vm/trap-state.scmŒ  ŒŒ   3ŒŒ 3  ŒŒ 9  ŒŒ <  ŒŒ B  ŒŒ E  ŒŒ M  ŒŒ Z  ŒŒ b  ŒŒ i  ŒŒ o  ŒŒ  ŒŒ  ŒŒ  ŒŒ ”  ŒŒ ¡ ! ŒŒ § " ŒŒ © # ŒŒ ® $ ŒŒ ³ $ ŒŒ · $ ŒŒ Á % ŒŒ  & ŒŒ Ç & ŒŒ È & (ŒŒ Ð & ŒŒ Õ ' ŒŒ Ú ' ŒŒ Û ' *ŒŒ ã ' ŒŒ å  ŒŒ ç  ŒŒ"  ç  ginto?S Œg instruction?S Œgnamegadd-ephemeral-stepping-trap!ŒC5RxnhGh8Ý-.,3#4545456Õgtrap 4gname 4g trap-state  4gidx  4gfilenamefsystem/vm/trap-state.scmŒ ) ŒŒ  ) 5ŒŒ  * ŒŒ * ŒŒ ' - ŒŒ 4 + ŒŒ 4  gnameg add-trap!ŒC(RC€gm  ,gfilenamefsystem/vm/trap-state.scmŒ   ŒŒ - / ŒŒ 6 / ŒŒ g 1 ŒŒ u 7 ŒŒ - = ŒŒ y C ŒŒ Õ J ŒŒ . Q ŒŒ I X ŒŒ < ] ŒŒ ² a ŒŒ B i ŒŒ 6 t ŒŒ 0 y ŒŒ ý ~ ŒŒ õ ‡ ŒŒ ö — ŒŒ ÿ — ŒŒ ( ™ ŒŒ Ë Ÿ ŒŒ ˜ ¨ ŒŒ r µ ŒŒ Y ¸ ŒŒ E ¼ ŒŒ 4 À ŒŒ % Ä ŒŒ ä È ŒŒ Ð Ï ŒŒ "y Ò ŒŒ $< Ý ŒŒ & é ŒŒ (p õ ŒŒ )¬  ŒŒ /"  ŒŒ 0P ) ŒŒ%  0R C6