GOOF----LE-8-2.0 ]*4h ] gguile  gdefine-module*   gscripts gdisplay-commentary  gfilenameS fscripts/display-commentary.scm gimportsS gice-9 g documentation      gexportsS  gset-current-module   f5Display the Commentary section from a file or module. g%summary gformat f~A commentary: ~A gfile-commentary gdisplay-commentary-one gmap gsymbol->string g string-append f/ gmodule-name->filename-frag !g%search-load-path "f module ~A  #gdisplay-module-commentary $gfor-each %gstring? &g string-index 'gwith-input-from-string (gread )gmainC5h]4   54>"GRh]456gfile  gfilenamefscripts/display-commentary.scm %  & & '  &    gnamegdisplay-commentary-oneCRh@(]45" (C45"" gls  ?gls ?gls   1gacc   1gfilenamefscripts/display-commentary.scm (  ) )   *   +   -   -  $ - , ' - 0 ) -  1 - 1 *  4 *  7 * " ? *   ? gnamegmodule-name->filename-fragC R! "h8] 4455$4>"G6Cg module-name  3gt  3gfilenamefscripts/display-commentary.scm /  0  0   0  0   2   2  # 2  1 3   3 gnamegdisplay-module-commentaryC#R$%&#'(h@]45$! 4(5& 4566$6Cgref  =gfilenamefscripts/display-commentary.scm 6  7  7   8 #  8   :  ( 9  . ;  1 <  5 7  ; =   = Ch-136grefs gfilenamefscripts/display-commentary.scm 5  6   gnamegdisplay-commentaryCRi)RCgm  ,gfilenamefscripts/display-commentary.scm   . #  1 #  %  (  /  5  @    C6