GOOF----LE-8-2.0ð"]N4hA] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gscripts¤ gread-scheme-source¤ ¤ gfilenameS¤ fscripts/read-scheme-source.scm¤ gimportsS¤ gice-9¤ grdelim¤   ¤ ¤ ¤ gexportsS¤ gread-scheme-source-silently¤ gquoted?¤ gclump¤ ¤ gset-current-module¤ ¤ ¤ g%include-in-guild-list¤ f/Print a parsed representation of a Scheme file.¤ g%summary¤ g:type¤ gvariable¤ g define-module¤ glength¤ gdefine¤ !galias¤ "glambda¤ #gstring?¤ $g procedure¤ %g :signature¤ &g :std-int-doc¤ 'g annotate!¤ (gquote¤ )gfilename¤ *g make-regexp¤ +f^#!¤ ,f^!#¤ -f ^[ ]*(;+)¤ .f^[ ]*$¤ /gopen-input-file¤ 0g eof-object?¤ 1g regexp-exec¤ 2ghash-bang-comment¤ 3g:line¤ 4g :line-count¤ 5g :text-list¤ 6greverse¤ 7g read-line¤ 8g whitespace¤ 9g:text¤ :gcomment¤ ;g:leading-semicolons¤ g port-line¤ ?gappend¤ @gfollowing-form-properties¤ Agprocess¤ Bgfor-each¤ Cgwrite¤ Dgnewline¤ Egerror¤ Ff bad list!¤ Ggstring->symbol¤ Hg substring¤ Igsymbol->string¤ Jgassq-ref¤ Kgleading-semicolons¤ Lgtext¤ Mgmain¤C5h€¶]4   54>"GRR !"#$%& h Ï]"6‰$‡"&6"ÿÿØ"B 45‘$0&#ŽŠ$ŽŽŠ$6"ÿÿ±"ÿÿ­"ÿÿ©"ÿÿ¥ 45’$& "•ŽŠ$ˆŽŽ‰$z 4ŽŽ5’$eŽŽ&U4ŽŽŽŽ5$@4 >"G4 ŽŽŽŽŒ>"G ŽŽŽŽ6"ÿÿ"ÿÿ"ÿÿ"ÿÿ"ÿÿŽˆ$cŽŠ$U4 >"G4 Ž>"G 45’$4ŽŽ5$  ŽŽ6CC"ÿþÿ"ÿþû"ÿþš"ÿþ–"ÿþfÇgform   gnote!   gfilenamefscripts/read-scheme-source.scmŒ c ŒŒ ƒ ŒŒ ƒ ŒŒ  ƒ ŒŒ  d ŒŒ  d ŒŒ  d ŒŒ  € ŒŒ  € "ŒŒ "  ŒŒ & ŒŒ ( ŒŒ * ŒŒ . d ŒŒ 5 z ŒŒ < z ŒŒ @ y ŒŒ B { ŒŒ E { ŒŒ I y ŒŒ L | ŒŒ N | ŒŒ R y ŒŒ U } ŒŒ X } ŒŒ \ y ŒŒ ` ~ ŒŒ b ~ ŒŒ d ~ ŒŒ t d ŒŒ w e ŒŒ ~ e ŒŒ ‚ d ŒŒ „ f ŒŒ ‡ f ŒŒ ‹ d ŒŒ ’ q ŒŒ ” q ŒŒ ˜ n ŒŒ › r ŒŒ ž r ŒŒ ¢ n ŒŒ ¥ s ŒŒ ª s ŒŒ ® s ŒŒ ¯ s ŒŒ ³ n ŒŒ µ t ŒŒ ¸ t ŒŒ » t ŒŒ ¿ n ŒŒ À u ŒŒ Å u ŒŒ È u ŒŒ Ì u ŒŒ Ð n ŒŒ Ñ v ŒŒ Õ v ŒŒ × v ŒŒ Ü v ŒŒ å w ŒŒ é w ŒŒ ì w "ŒŒ ð w 4ŒŒ ó w .ŒŒ õ w ŒŒ ú w ŒŒ  x ŒŒ  x %ŒŒ  x ŒŒ  x ŒŒ $ d ŒŒ ' g ŒŒ ) g ŒŒ - d ŒŒ 0 h ŒŒ 3 h ŒŒ 7 d ŒŒ 8 i ŒŒ < i ŒŒ > i ŒŒ C i ŒŒ L j ŒŒ P j ŒŒ S j ŒŒ Y j ŒŒ d k ŒŒ k k ŒŒ o k ŒŒ p l ŒŒ u l ŒŒ y l ŒŒ } k ŒŒ  m ŒŒ „ m #ŒŒ ˆ m ŒŒa    gnameg annotate!ŒC'R()*+,-./0123456789:;<=>'?h‹-134M5NCƒgargs gfilenamefscripts/read-scheme-source.scmŒ ­ /ŒŒ ¯ 7ŒŒ  ® 1ŒŒ  gnamegprop+ŒC@h`i]b4>"G4545454545"ø$ð4 5  $ C4 5$Œ"p4  5  $" 4  5 $84   4 5—4  Œ5>"/G"(45  Œ  "ÿÿ45  "ÿÿ|".4 5$"4>"G"ÿ4 5  $44 £  Ž ˜ >"G"·4>"G45 45˜H H 4  O>"GJ   J ‘  $"4>"GJ —K  4  J  ŒŒŒŒŒ>"G4 >"G    45—45"ÿþ C45—45"ÿýñagfile  ^gnb!  ^g hash-bang-rx  A ^g bang-hash-rx  A ^gall-comment-rx  A ^gall-whitespace-rx  A ^gp  A ^gn  O Ggline  O Ggt \ Egline x ègtext x ègt  ˜gt 8 .gm1 M Ygform  +gcount › (gprops ž ¾gprops ¾ %gt Ä êgfilenamefscripts/read-scheme-source.scmŒ ˆ ŒŒ  ‰ ŒŒ  ‰ ŒŒ  ‰ ŒŒ  Š ŒŒ # Š #ŒŒ % Š ŒŒ & ‹ ŒŒ * ‹ #ŒŒ , ‹ ŒŒ - Œ ŒŒ 1 Œ %ŒŒ 3 Œ ŒŒ 4 ŒŒ 8 (ŒŒ : ŒŒ ; Ž ŒŒ A Š ŒŒ O ŒŒ U ŒŒ V ‘ ŒŒ \ ŒŒ h “ ŒŒ t “ ŒŒ x ” ŒŒ y – ŒŒ  – ŒŒ — ŒŒ œ – ŒŒ ˜ ŒŒ ¡ ˜ ŒŒ ª š 2ŒŒ ± š .ŒŒ ³ ˜ ŒŒ ´ › -ŒŒ » œ .ŒŒ ½ › -ŒŒ À ˜ ŒŒ È ˜ ŒŒ Õ ŒŒ à ž ŒŒ è ŒŒ è ” ŒŒ é ” $ŒŒ ô • $ŒŒ ü ” ŒŒ  Ÿ ŒŒ  “ ŒŒ    ŒŒ    ŒŒ #   ŒŒ 0 ¡ ŒŒ 8 “ ŒŒ A £ ŒŒ E £ ŒŒ M ¥ +ŒŒ M ¥ !ŒŒ R ¦ &ŒŒ U ¦ /ŒŒ V ¦ #ŒŒ [ £ ŒŒ h £ ŒŒ u © ŒŒ ‰ ª ŒŒ  ª ŒŒ ’ « $ŒŒ › « !ŒŒ › ª ŒŒ ž ¬ /ŒŒ ž ¬ !ŒŒ ¡ ° #ŒŒ ¾ ª ŒŒ Ä ² ŒŒ Ä ² ŒŒ Ñ ´ ŒŒ å µ 'ŒŒ ç µ ŒŒ ë ¶ ŒŒ ï ¶ ŒŒ  ¶ ŒŒ  º ŒŒ / » ŒŒ 6 » ŒŒ 7 » %ŒŒ E » ŒŒ F ŒŒ G ŒŒ H ŒŒ O ŒŒ P ,ŒŒ ^ ŒŒ\  ^ gnamegprocessŒCARBAht]MŒNClge  gfilenamefscripts/read-scheme-source.scmŒ à ŒŒ  à 4ŒŒ à *ŒŒ  Chn]LO6fgfile  gfilenamefscripts/read-scheme-source.scmŒ  ŒŒ  à ŒŒ   C6h0-13H4O>"GJ6gfiles +gres +gfilenamefscripts/read-scheme-source.scmŒ ¿ ŒŒ Á ŒŒ Á ŒŒ  ŒŒ + Å ŒŒ + gnamegread-scheme-source-silentlyŒg documentationf6See commentary in module (scripts read-scheme-source).ŒCRBACDht]4>"G6lge  gfilenamefscripts/read-scheme-source.scmŒ Ê ŒŒ  Ê (ŒŒ  Ê 2ŒŒ   Chn]6fgfile  gfilenamefscripts/read-scheme-source.scmŒ É ŒŒ Ê ŒŒ  ChÛ-136Ógfiles gfilenamefscripts/read-scheme-source.scmŒ Ç ŒŒ  É ŒŒ  gnamegread-scheme-sourceŒg documentationf6See commentary in module (scripts read-scheme-source).ŒCR(EFGHIh°B]"‰$¥ 45‘$•&ŠŽ‰${ 45’$l&a"Q(CŠ$"4>"GŽŽ4445 55ŽŒŒ"ÿÿ¯Ž"ÿÿ£CCCCCC:gsym  °gform  °ginside  $ ªgls  G ˜galist  G ˜gfirst  S ˜gfilenamefscripts/read-scheme-source.scmŒ Ñ ŒŒ  Ò ŒŒ Ò ŒŒ Ó ŒŒ  Ó ŒŒ  Ò ŒŒ  Ô ŒŒ  Ô ŒŒ Ò ŒŒ # Õ ŒŒ $ Õ ŒŒ ) Ö ŒŒ - Ö ŒŒ / × ŒŒ 6 × ŒŒ : Ö ŒŒ ? Ø ŒŒ C Ö ŒŒ G Ù ŒŒ M Ú ŒŒ S Ü !ŒŒ S Ü ŒŒ X Ý ŒŒ \ Ý ŒŒ a Þ ŒŒ e Þ !ŒŒ j Þ ŒŒ u ß ŒŒ w à #ŒŒ z á $ŒŒ } á /ŒŒ † á $ŒŒ ˆ à #ŒŒ ‹ â #ŒŒ à ŒŒ ˜ ß ŒŒ ˜ Ù ŒŒ › Ù ŒŒ œ Ù 2ŒŒ ¤ Ù ŒŒ)  ° gnamegquoted?ŒCR6@82:JKL h€t]Y"g(6$ŽŒ"ÿÿÖ45$ŽŒ"ÿÿ¶45$Ž"ÿÿ™45$Ž"ÿÿ|45$¿"™(45ŒŒ"ÿÿG 4 5  $I4 5  ‘$Ž4  5Œ"ÿÿ›45ŒŒ"ÿþè45ŒŒ"ÿþÎŽ454 5"ÿÿEŽŒ"ÿþ™"ÿþ‹lgforms  {gforms  mgacc   mgpass-this-one-through?   mgform   mgt  “ mg inner-forms  Ÿ 8glevel  Ÿ 8gtext  Ÿ 8g inner-form  8gt Í 8g new-level Þ  gfilenamefscripts/read-scheme-source.scmŒ ê ŒŒ  ë ŒŒ ì ŒŒ  í ŒŒ  î ŒŒ  î ŒŒ  ï ŒŒ 𠌌 % ð #ŒŒ 0 𠌌 1 ñ ŒŒ 5 ñ ŒŒ 9 ñ ŒŒ = ï ŒŒ @ ò ŒŒ E ò #ŒŒ P ò ŒŒ Q ó ŒŒ U ó ŒŒ Y ó ŒŒ ] ï ŒŒ ` ô ŒŒ m ô ŒŒ n õ ŒŒ r õ ŒŒ v õ ŒŒ z ï ŒŒ } ö ŒŒ Š ö ŒŒ ‹ ÷ ŒŒ ÷ ŒŒ “ ÷ ŒŒ “ ï ŒŒ Ÿ ù ŒŒ ¥  ŒŒ ª þ <ŒŒ ± þ 0ŒŒ ´ þ *ŒŒ ¿ ý $ŒŒ   0ŒŒ   ŒŒ Å  'ŒŒ É  0ŒŒ Í  'ŒŒ Í  ŒŒ Ö  3ŒŒ Ü  4ŒŒ Þ  3ŒŒ Þ  ,ŒŒ å  2ŒŒ é  .ŒŒ ì  9ŒŒ ï  ?ŒŒ õ  @ŒŒ ÷  ?ŒŒ ú  9ŒŒ   2ŒŒ  þ <ŒŒ  þ 0ŒŒ  þ *ŒŒ  ý $ŒŒ # þ <ŒŒ * þ 0ŒŒ - þ *ŒŒ 8 ý $ŒŒ 8 ù ŒŒ ; ù /ŒŒ < ú )ŒŒ B ú 9ŒŒ D ú )ŒŒ E û .ŒŒ K û >ŒŒ M û .ŒŒ P û (ŒŒ Z ù ŒŒ ]  ŒŒ b  (ŒŒ m  ŒŒ m ë ŒŒ p ë ŒŒ { ë ŒŒR  { gnamegclumpŒCRiMRC®gm  ,gfilenamefscripts/read-scheme-source.scmŒ  V ŒŒ 0 ] ŒŒ 2 ^ ŒŒ 5 ^ ŒŒ Ê c ŒŒ ” ˆ ŒŒ  ¿ ŒŒ F Ç ŒŒ ] Ñ ŒŒ w ê ŒŒ ~  ŒŒ  € C6