GOOF----LE-8-2.0(]h4h] gguile  gdefine-module*   gsystem gvm gtrace  gfilenameS fsystem/vm/trace.scm gimportsS gbase gsyntax      gframe   gprogram   gobjcode   gtraps   grnrs g bytevectors !  "! #g instruction $# %$ &gice-9 'gformat (&' )( *"%)  +gexportsS ,gtrace-calls-in-procedure -gtrace-calls-to-procedure .gtrace-instructions-in-procedure /gcall-with-trace 0,-./ 1gset-current-module 21 31 4g*objcode-header-len* 5g string-append 6g string-length 7f 8g build-prefix 9f|  :f~d>  ;gcurrent-error-port gprint-application ?gframe-num-locals @gframe-local-ref Af~d<  Bf ~ano values  Cf~a~d values:~{ ~a~}  Dgmap Ef~v:@y Fgframe-return-values Gg print-return HgwidthS IH  JgvmS KJ  LgprefixS ML  Ng max-indentS ON  PIKMO Qgthe-vm Rftrace:  Sgtrap-calls-to-procedure Tgtrap-calls-in-dynamic-extent UN  VIKU Wg#trap-instructions-in-dynamic-extent Xgframe-instruction-pointer Ygprogram-objcode Zgframe-procedure [gobjcode->bytecode \f~8d: ~a  ]gopcode->instruction ^gcalls?S _^  `g instructions?S a`  bH  cJ  dN  e_abcd fgset-vm-trace-level! ggvm-trace-levelC5h@]4    *+0543>"G 4R56'7h`x]"M$64545$45"456 "pgprefix  ^gdepth  ^ginfix   ^gnumeric-format   ^g max-indent   ^gindent   Sgn   Sgfilenamefsystem/vm/trace.scm &  '  )   (   *   +  + # & + ) +  - (  . , 9 , ' A ,  H . # S .  S '  U '  ^ '   ^ gnameg build-prefixC8R89:';<=h0%] 4545456gframe  )gdepth  )gwidth   )gprefix   )g max-indent   )gprefix   )gfilenamefsystem/vm/trace.scm 0  1  1 + 1 1  1   1   2  2 ! ! 5 ) 2   ) gnamegprint-applicationC>R?@89A';B<CD'Ehh]L6`gval  gfilenamefsystem/vm/trace.scm H   I ! I   CFh]454545 $ 456 $45 4 5645 4  O4 556gframe  gdepth  gwidth   gprefix   g max-indent   glen  gnvalues   gprefix  & gfilenamefsystem/vm/trace.scm 7  8  8  9   9 )  9   8   :  : , " : 2 & :  & 8  0 ;  3 =  9 = $ = =  E ;  H ?  N ? $ S B  \ B & ^ B  ` ?  c F  i F $ n H  x J  H  F   gnameg print-returnCGRPQRS>h]LLL6gframe  gdepth  gfilenamefsystem/vm/trace.scm O   P    gnameg apply-handlerCGh]LLL6gframe  gdepth  gfilenamefsystem/vm/trace.scm Q   R    gnamegreturn-handlerCJhh'-/03# P#45## (OO6gproc  agwidth  agvm   agprefix   ag max-indent   agfilenamefsystem/vm/trace.scm L $ L = 2 M + ? N / a S   a gwidthS gvmS gprefixS g max-indentS gnamegtrace-calls-to-procedureC-RPQRT>h]LLL6gframe  gdepth  gfilenamefsystem/vm/trace.scm Y   Z    gnameg apply-handlerCGh]LLL6gframe  gdepth  gfilenamefsystem/vm/trace.scm [   \    gnamegreturn-handlerCJhh'-/03# P#45## (OO6gproc  agwidth  agvm   agprefix   ag max-indent   agfilenamefsystem/vm/trace.scm V $ V = 2 W + ? X / a ]   a gwidthS gvmS gprefixS g max-indentS gnamegtrace-calls-in-procedureC,RVQWXYZ[4'\] h8]45445545456 gframe  8gip 8gobjcode   8gopcode  & 8gfilenamefsystem/vm/trace.scm b   c  c  d   d %  d   c   e & % f & & e  & c  - g  0 g 8 g   8 gnameg trace-nextCJhH-/03# P#45# (6gproc  Cgwidth  Cgvm   Cg max-indent   Cgfilenamefsystem/vm/trace.scm ` $ ` D 5 a 6 C i   C gwidthS gvmS g max-indentS gnamegtrace-instructions-in-procedureC.ReQ,JHN.fghP]L$4LLLL5N"L$4LLLL5N"L4L56gfilenamefsystem/vm/trace.scm t   u  w   v ' y  ( {  < z E } $ L } N }   N CfghX]4L4L5>"GM$4M>"G"M$4M>"G"NNCgfilenamefsystem/vm/trace.scm      $    "  #  <  =  S  V   X C,JHN.fghP]L$4LLLL5N"L$4LLLL5N"L4L56gfilenamefsystem/vm/trace.scm t   u  w   v ' y  ( {  < z E } $ L } N }   N CfghX]4L4L5>"GM$4M>"G"M$4M>"G"NNCgfilenamefsystem/vm/trace.scm      $    "  #  <  =  S  V   X CfghX]4L4L5>"GM$4M>"G"M$4M>"G"NNCgfilenamefsystem/vm/trace.scm      $    "  #  <  =  S  V   X Ch-/03### P#45# (HHOO4O>"GV4>X4O>"GCX4O>"GF~gthunk  gcalls?  g instructions?   gwidth   gvm   g max-indent   g call-trap  K g inst-trap  K gfilenamefsystem/vm/trace.scm o 6 p ) G p ? K q  p s   gcalls?S g instructions?S gwidthS gvmS g max-indentS gnamegcall-with-traceC/RCgm  ,gfilenamefsystem/vm/trace.scm   1 $ # &  0  7 L V  ` 9 o   ; C6