GOOF----LE-8-2.0&]t4h] gguile  gdefine-module*   gsystem gvm ginspect  gfilenameS fsystem/vm/inspect.scm gimportsS gbase gpmatch    gsyntax      gframe   glanguage gassembly g disassemble  gselectS g %disassemble   !  "gice-9 #grdelim $"# %$ &g pretty-print '"& (' )gformat *") +* ,gprogram -, .- /!%(+.  0gexportsS 1 2gset-current-module 32 42 5gmake-hash-table 6g hash-for-each 7g hashq-set! 8g hashq-ref 9g reverse-hashq :gcatch ;gwrong-number-of-args g eof-object? ?gchar=? @g read-char Ag repl-reader Bgchar-whitespace? Cg unread-char Dgread Egreverse Fg read-args Gg make-module Hgthrow Igquit Jgset-procedure-property! Kgname Lgmodule-define! Mg module-add! Ngq Ogmodule-local-variable Pgcontinue Qgcont Rgc Sgprint Tgp Ugwrite Vgw Wgdisplay Xgd YfError disassembling object: ~a  Zgx [gmodule-obarray \gprocedure-name ]f~a~{ ~:@(~a~)~}~?~%~a~&~% ^gprogram-lambda-list _f"~#[~:;~40t(aliases: ~@{~a~^, ~})~] `gdelq agprocedure-documentation bfInvalid command ~s.~% cf#Try `help' for a list of commands~% dgsort eghash-map->list fgstringstring hfAvailable commands:~%~% igfor-each jghelp kgh lg? mgapply ngcurrent-error-port of)Invalid arguments to ~a. Try `help ~a'.~% pgnewline qf$~&Unknown command: ~a. Try `help'.~% rgsave-module-excursion sf~20@y inspect> C5hy]4    /01544>"G5678h]L4L56gk  gv  gfilenamefsystem/vm/inspect.scm %  & !  & 2  & !  &   &    Ch(] 454O>"GCgh  %gret  %gfilenamefsystem/vm/inspect.scm "  #  #  $   % gnameg reverse-hashqC9R:;:<hs-13L6kgk gargs gfilenamefsystem/vm/inspect.scm /  0  ChX]LLO6Pgfilenamefsystem/vm/inspect.scm ,   -  -    Chs-13L6kgk gargs gfilenamefsystem/vm/inspect.scm 1  2  Ch]OO6gthunk  gbad-args-thunk  gfilenamefsystem/vm/inspect.scm *  +  +    gnamegcatch-bad-argumentsC=R>?@ABCDE h@]!"45$C4 5$45"45$45"4>"G4545""45$64 5$645$45"4>"G4545"v45"gprompt  @gchr  greader  & 4greader  G Ugreader  o }gtok  } greader  gout *gchr  *greader  greader   gtok   *greader   "greader , :gfilenamefsystem/vm/inspect.scm 4  9   ;   :   ;   <  $ :  & 8  ) 6  : <  ; =  E :  G 8  J 6  [ =  \ ?  o @  r 6  } @  A  8  6  A  B  D  C  D  E  C  E  F  C  8  6  F  H  I   6   I   J   8   6  * J  , 8  / 6  @ K /  @ gnameg read-argsCFRGHIh]6gfilenamefsystem/vm/inspect.scm a   c  c    gnamegcg documentationfQuit the inspector.CJKILMNOPQR&h]L6gfilenamefsystem/vm/inspect.scm e   g    gnamegcg documentationf.Print the current object using `pretty-print'.CSTh]ML6gfilenamefsystem/vm/inspect.scm i   k    gnamegcg documentationf'Print the current object using `write'.CUVh]ML6gfilenamefsystem/vm/inspect.scm m   o    gnamegcg documentationf)Print the current object using `display'.CWX:hP]L6Hgfilenamefsystem/vm/inspect.scm t   u    C)Yhm-136egargs gfilenamefsystem/vm/inspect.scm v   w   w   Ch]LO6gfilenamefsystem/vm/inspect.scm q   s    gnamegcg documentationfGDisassemble the current object, which should be objcode or a procedure.CZ9[O\)]^_`8a hH ]4L5454544L554 56gcmd  Dgv Dgp   Dgcanonical-name   Dgfilenamefsystem/vm/inspect.scm |   }  }  ~   }   !  }  # # +  ,  1 ) ;  <  D   D gnameghelp-cmdC)bcO\]^_`8ade\hz]6rgk  gv  gfilenamefsystem/vm/inspect.scm   +   Cfgh]45456{gx  gy  gfilenamefsystem/vm/inspect.scm   $ $     Chihi-.,3#44L55OLQ$~"4>"G6$S4L5$B4L545 4 5 4 4 55456""44554>"G6agcmd grhash ! ghelp-cmd  , gv  v gp  { gcanonical-name  gnames  gfilenamefsystem/vm/inspect.scm y   {   { " ! {  ! {  9  > C  J W  Y Y \  ` a  m n }  v } { ~  { } ~  ! }  #   )       ' gnamegcg documentationfShow this help message.Cjkl:mO=h[]LL@Sgfilenamefsystem/vm/inspect.scm      C)no\h v]454L54L56ngfilenamefsystem/vm/inspect.scm       0     C>pHI)nq h2-13$ 4L5"$OO645$4>"G64 4 5 >"GC*gcmd {gargs {gt   {gproc  ) ?gfilenamefsystem/vm/inspect.scm       )  ) ?  @  J  K  ^  `  a  d  j  q  { gnameghandleCr2F)shk]L6cgfilenamefsystem/vm/inspect.scm ^   _  _   gnamegpromptCh []4L>"GLO6Sgfilenamefsystem/vm/inspect.scm       Ch8]")4LO4LLO5>"G""wgfilenamefsystem/vm/inspect.scm      # / /   3 Chu-13Emgk gargs gfilenamefsystem/vm/inspect.scm   C h]A45HHHHHH4>"G4>"G44 5>"G4 4 5>"G4 4 5>"G4 4 5>"GK OQ4>"G4>"G44 5>"GKOQ4>"G4>"G44 5>"GKOQ4>"G4>"G44 5>"GKOQ4>"G4>"G44 5>"GKOQ4>"G4>"G44 5>"G44 5>"GKO6gx  gcommands  gquit   gprint   gwrite   gdisplay   g disassemble   ghelp   gc   gc  !gc  , gc   gc   >gc  H gfilenamefsystem/vm/inspect.scm R  ]   ]   a  e  , i   m   q  H y       gnameginspectCRCqgm  ,gfilenamefsystem/vm/inspect.scm    " : *  4  R    C6