GOOF----LE-8-2.0 ]54h(] gguile  gdefine-module*   goop ggoops gutil  gfilenameS foop/goops/util.scm gimportsS gsrfi gsrfi-1     gexportsS g mapappend gfind-duplicate gmap* g for-each* glength* gimproper->proper  g re-exportsS gany gevery  gset-current-module   !g append-map "gmemv #gcurrent-module $gmodule-eval-closure %g top-level-env &g procedure? 'gtop-level-env? (gcall-with-deferred-observers )( *( +gmodule-export! ,+ -+ .# /# 0'% 1gmap 2gcar 3gcdr 4gapplyC5h]4    5 4 >"G!iR"h(](C45$C6gl  $gfilenamefoop/goops/util.scm !  "  $   $  $   $   "   $ " % 0 $ %   $ gnamegfind-duplicateCR#$h]45$6Cgmod  gfilenamefoop/goops/util.scm (  )   )   *   +  ,    gnameg top-level-envC%R&h](C6genv  gfilenamefoop/goops/util.scm .  /  /   0   0    gnamegtop-level-env?C'R4*-/0hD]456<gfilenamefoop/goops/util.scm 2   C>"G123h@-13(C$ 445?445?C@gfn @gl @gfilenamefoop/goops/util.scm 4 6  5   6   7  7   5   7   7 ) ( 7  ) 8  . 8 ) 8 8  9 7  @ 9  @ gnamegmap*CR4123hP-13(C$*445>"G45@@gfn Jgl Jgfilenamefoop/goops/util.scm ; =  <   =   >  >   <   >  >  - >  : > ? D > + J ?  J gnameg for-each*CRh0]"$"C "gls  )gn  gls   gfilenamefoop/goops/util.scm A  B  D B   B  C   B   ) gnameglength*CRh ]$ 45CCgls  gfilenamefoop/goops/util.scm F  G  G  H H   H '  H   H   I    gnamegimproper->properCRCgm  0gfilenamefoop/goops/util.scm   7  * !  (  .  2 q 4  ;  A  F    C6