ELF@H@8@HHppD ???4<?=@<@=@<1@==@<? D@@?>@40 < 7@=E@B5@ > B@=J@B<I@5p> J@=R@B<Q@5p> R@=Z@B<Y@5p> Z@= ?B<W@5pA  4 =]@B59 `9C`@@^@4P<\@Cl@@j@400``0P0@0`0p0 C d@ @b@4 C j@@h@40 0 S R # 'S Cd@?b@4<`@R0p00` # S 4R0p00` # 0 !0 0 p9CO@?M@4`CK@??4P0pP 0`@ "C9@??4P<5@00p C5@??40`9  C2@?0@40<.@00 0`(+79C1@?/@4P9 (0`@)C#@??4PC)@?'@4@C/@?-@4p0@0`P0PC!@u?O?4pD%@>#@4p0`@" C?_?Y?4p9 ?}>#<x>O>}>?>#<z>O>>=}>>}>?>{>?><>O>>?><>O>>=>>>=v>>>?>~>?><>O>>=>P>>?> ?><>O>>=>P>>?> <>O>>?> <>O>>=>>>=z>>>?>>?>>?>>?><>O>>=>P>>?><>O>>?>?><>O>>?><>O>>?>s?><>O>>?>?><>O>>?>?>?><>O>>?><>O>>?>?><>O>>?><>O>>?><>O>>?><>O>>?>?><>O>>?>?> <>O>>?>?> <>O>>?> <>O>>?> <>O>>?> <>O>>9 'define-module*'guile'scripts'display-commentary'filename'scripts/display-commentary.scm'imports'ice-9' documentation'exports'set-current-module'5Display the Commentary section from a file or module.'%summary'display-commentary-one'module-name->filename-frag'display-module-commentary'main'format'~A commentary: ~A'file-commentary'map'symbol->string' string-append'/'%search-load-path' module ~A 'for-each' string-index'with-input-from-string'read'list?PPlQSU,VpW XYZ* " `7A`7`7`7H `7 5EEEE  E   H  *[<pEH`MU^k ' z   {0/`lH@X"X( C(        !$ ,4<DL T$h|-2  ( <@X9  9< 9<<04 PTXdx |,,@2  L 4 8Ph P  $,U   Y L$(,Ddh|  w3 X @t$?Y@D%.. .Guile 2.2.7display-commentary-onemodule-name->filename-fragdisplay-module-commentarydisplay-commentary2 scripts/display-commentary.scm wJ. eY(hy x# .-w1, .1; .*N hh,j Y$h[v-{XXt3M@D(display-commentary-onemodule-name->filename-fragdisplay-module-commentarydisplay-commentaryclosureboxargtmpnamemoduleunspecifiedfilebound?lsaccmodule-namevalrefsrefproc.guile.procprops.rodata.data.rtl-text.guile.frame-maps.dynamic.strtab.symtab.guile.arities.strtab.guile.arities.guile.docstrs.strtab.guile.docstrs.debug_info.debug_abbrev.debug_str.debug_loc.debug_line.shstrtab