GOOF----LE-8-2.0÷]h4hÓ] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gice-9¤ grdelim¤ ¤ gfilenameS¤ fice-9/rdelim.scm¤ gexportsS¤ g read-line¤ g read-line!¤ gread-delimited¤ gread-delimited!¤ g read-string¤ g read-string!¤ g%read-delimited!¤ g %read-line¤ g write-line¤    ¤ gset-current-module¤ ¤ ¤ g%init-rdelim-builtins¤ gcurrent-input-port¤ f ¤ g eof-object?¤ gtrim¤ g string-length¤ gpeek¤ gsplit¤ !gconcat¤ "g string-set!¤ #gerror¤ $funexpected handle-delim value: ¤ %g make-string¤ &gstring-concatenate-reverse¤ 'g substring¤ (g string-append¤ )gstring¤ *gmake-syntax-transformer¤ +*¤ ,*¤ -g check-arg¤ .gmacro¤ /g $sc-dispatch¤ 0/¤ 1/¤ 2gany¤ 3geach-any¤ 423Œ¤ 524Œ¤ 625Œ¤ 7g syntax-object¤ 8gunless¤ 9gtop¤ :9¤ ;gribcage¤ gmessage¤ ?garg¤ @<=>?¤ Agm-1eeb5757c-50¤ BA9¤ CB:::¤ Dfl-1eeb5757c-55¤ Efl-1eeb5757c-56¤ Ffl-1eeb5757c-57¤ Gfl-1eeb5757c-58¤ HDEFG¤ I;@CH¤ J;¤ Kgx¤ LK¤ MB¤ Nfl-1eeb5757c-52¤ ON¤ P;LMO¤ Q:IJP¤ Rghygiene¤ SR¤ T78QS¤ U7#QS¤ Vgsyntax-violation¤ WV¤ XV¤ Yf-source expression failed to match any pattern¤ Zginteger?¤ [gexact?¤ \gindex?¤ ]gstring?¤ ^f not a string¤ _f bad index¤ `fstart beyond end¤ afend beyond string length¤ bg read-char¤ cg list->string¤ dgreverse!¤ egreverse¤ fgchar?¤ gg unread-char¤C5h•]4   54>"G4i>"Gh`$-.,3#45Ž" $CC ‘$45$C"ÿÿÛ"ÿÿ×gstring [gport [grv  " [g terminator  ' [gnchars  , [gfilenamefice-9/rdelim.scmŒ & ŒŒ  ) ŒŒ  ( ŒŒ " ) ŒŒ " ) ŒŒ ' - ŒŒ ' ) ŒŒ , . ŒŒ , ) ŒŒ 8 / ŒŒ A / ŒŒ E / ŒŒ F 0 ŒŒ P / ŒŒ [ gnameg read-line!ŒC R !"#$ hø:-.,3 #45## # 454‚€5Ž$ 45"$* ‘$&ŒCC&ŒCC†$"†$C†$4 –>"G—C†$ŒC  62gdelims ógbuf ógport  óg handle-delim  ógstart  ógend  ógrv  P óg terminator  U ógnchars  Z ó gfilenamefice-9/rdelim.scmŒ 5 ŒŒ  6 ŒŒ ! 6 DŒŒ 3 7 )ŒŒ < 8 ŒŒ F : 6ŒŒ G : $ŒŒ H : ŒŒ P 8 ŒŒ P 8 ŒŒ U > ŒŒ U 8 ŒŒ Z ? ŒŒ Z 8 ŒŒ b @ ŒŒ c A ŒŒ n @ ŒŒ r @ ŒŒ u B ŒŒ z B ŒŒ ~ C %ŒŒ ‚ C ŒŒ ‡ D ŒŒ F %ŒŒ “ F ŒŒ ˜ G ŒŒ ¥ J ŒŒ À L ŒŒ É L (ŒŒ Ð L ŒŒ Û M ŒŒ å J ŒŒ ê N ŒŒ ï O ŒŒ ó O ŒŒ$ ó  gnamegread-delimited!ŒCR%&'!() #$h ù-.,3 #45#"ê454‚€5Ž  – $™"i44  5Œ5 †$4 5$ C  4 56†$"†$ C †$ ŒC 64 5$ ‘$ &ŒCC"ÿÿo"ÿÿk4  5Œ  š"ÿÿ d"ÿÿñgdelims gport g handle-delim  g substrings  ' g total-chars  ' gbuf-size  ' gbuf  . grv  A g terminator  F gnchars K g new-total R gjoined p Ç gfilenamefice-9/rdelim.scmŒ R ŒŒ  R 1ŒŒ ! S 'ŒŒ ' T ŒŒ ( W ŒŒ . W ŒŒ 1 X ŒŒ ; Z 8ŒŒ < Z &ŒŒ = Z !ŒŒ A X ŒŒ A W ŒŒ F \ ŒŒ F W ŒŒ K ] ŒŒ K W ŒŒ R ^ ŒŒ R W ŒŒ Z _ ŒŒ _ k ŒŒ b l ŒŒ n l ŒŒ p k ŒŒ p j ŒŒ { m ŒŒ | o ŒŒ † o ŒŒ Ž q 'ŒŒ – q ŒŒ Ÿ m ŒŒ ¾ s ŒŒ à t ŒŒ Ç t ŒŒ Ç _ ŒŒ È e ŒŒ Ò _ ŒŒ Õ e &ŒŒ Ú e ŒŒ Þ f ŒŒ â f ŒŒ ç g ŒŒ ô b ŒŒ  b ŒŒ  d ŒŒ  b ŒŒ  T ŒŒ  T ŒŒ  T ŒŒ1  gnamegread-delimitedŒCR4,-.16TUhd]ŒŒC\gdummy  gexp  gmessage   garg      CXYh(³] 45$@6«gx  "gtmp "gfilenamefice-9/rdelim.scmŒ w ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgexpgmessagegargg...C5-RZ[h(]45$45$ •CCC…gn  !gfilenamefice-9/rdelim.scmŒ { ŒŒ  | ŒŒ | ŒŒ  | ŒŒ  | ŒŒ  | ŒŒ  ! gnamegindex?ŒC\R]#^\_`ab" h8‹-.,3#45# # 4545$"4>"G45$"4>"G45$"4>"G“$"4>"G45“$"4 >"G"H’$94 54 5$˜C4 >"G—"ÿÿ¾˜C"ÿÿ°ƒgbuf 7gport 7gstart  7gend  7gn  ç /gc  ÷ )gfilenamefice-9/rdelim.scmŒ ~ ŒŒ   ŒŒ ) € &ŒŒ 2 ˆ ŒŒ < ˆ ŒŒ E ˆ ŒŒ L ˆ ŒŒ U ‰ ŒŒ _ ‰ ŒŒ h ‰ ŒŒ o ‰ ŒŒ x Š ŒŒ ‚ Š ŒŒ ‹ Š ŒŒ ’ Š ŒŒ Ÿ ‹ ŒŒ £ ‹ ŒŒ ¬ ‹ ŒŒ µ ‹ ŒŒ À Œ ŒŒ Ç Œ ŒŒ Ë Œ ŒŒ Ô Œ *ŒŒ Û Œ ŒŒ ç ŒŒ ì Ž ŒŒ ð Ž ŒŒ ñ ŒŒ ÷ ŒŒ ú ŒŒ  ŒŒ  ‘ ŒŒ  “ ŒŒ # ” ŒŒ ) ” ŒŒ . • ŒŒ / ŒŒ& 7 gnameg read-string!Œg documentationfNRead all of the characters out of PORT and write them to BUF. Returns the number of characters read. This function only reads out characters from PORT if it will be able to write them to BUF. That is to say, if BUF is smaller than the number of available characters, then BUF will be filled, and characters will be left in the port.ŒCRbcdeh¨ï*N.+E3#45"*4545$ 456Œ"ÿÿÖ"ÿÿÏ]""D4545$"•$ 456Œ—"ÿÿ¼ "ÿÿ²çgport  Tgchars # Mgchar  * Mgport V ¨gcount V ¨gchars  Z žgtotal  Z žgchar  a žgt  j  gfilenamefice-9/rdelim.scmŒ ˜ ŒŒ  œ ŒŒ #   ŒŒ $ ¡ ŒŒ * ¡ ŒŒ - ¢ ŒŒ 7 ¢ ŒŒ : £ ŒŒ B £ ŒŒ G ¤ ŒŒ M ¤ ŒŒ M   ŒŒ N   ŒŒ T   ŒŒ V ˜ ŒŒ Z § ŒŒ [ © ŒŒ a © ŒŒ d ª ŒŒ j ª ŒŒ | ª #ŒŒ ƒ ª ŒŒ † « ŒŒ Ž « ŒŒ “ ¬ ŒŒ – ¬ $ŒŒ ž ¬ ŒŒ ž § ŒŒ Ÿ § ŒŒ ¨ § ŒŒ  T  V ¨ gnameg read-stringŒg documentationf¾Read all of the characters out of PORT and return them as a string. If the COUNT argument is present, treat it as a limit to the number of characters to read. By default, there is no limit.ŒCR !]f()g#$h¸-.,3#45#45Ž†$C†$C†$)45$45$ 4 56CC †$&45$4 >"G"C  6…gport ·g handle-delim ·g line/delim  * ·gline  / ·gdelim  4 ·gfilenamefice-9/rdelim.scmŒ ¹ ŒŒ  ¹ %ŒŒ ! º "ŒŒ $ » ŒŒ * » ŒŒ / ¼ ŒŒ / » ŒŒ 4 ½ ŒŒ 4 » ŒŒ ? ¾ ŒŒ X Á ŒŒ b Á ŒŒ c Á (ŒŒ m Á ŒŒ r  (ŒŒ z  ŒŒ ‰ ¾ ŒŒ Š Ä ŒŒ ” Ä ŒŒ • Å ŒŒ ³ È ŒŒ · È ŒŒ · gnameg read-lineŒC RCgm  (gfilenamefice-9/rdelim.scmŒ   ŒŒ ) $ ŒŒ × & ŒŒ 5 5 ŒŒ | R ŒŒ à { ŒŒ Î ~ ŒŒ ‚ — ŒŒ ø ¹ ŒŒ  ú C6