[EDIT] FILE: util.go
GOOF----LE-8-2.0� ] 5 4 h( ] g guile� � g define-module*� � � g oop� g goops� g util� � g filenameS� f oop/goops/util.scm� g importsS� g srfi� g srfi-1� � � � g exportsS� g mapappend� g find-duplicate� g map*� g for-each*� g length*� g improper->proper� � g re-exportsS� g any� g every� � g set-current-module� � � !g append-map� "g memv� #g current-module� $g module-eval-closure� %g top-level-env� &g procedure?� 'g top-level-env?� (g call-with-deferred-observers� )( � *( � +g module-export!� ,+ � -+ � .# � /# � 0'% � 1g map� 2g car� 3g cdr� 4g apply�C 5 h� � ]4 5 4 > " G !iR" h( � ] ( C4 � �5$ �C �6 � g l $ g filenamef oop/goops/util.scm� ! �� " �� $ �� $ �� $ �� $ �� " �� $ �� " % 0�� $ % �� $ g nameg find-duplicate� CR#$ h � ]45 $ 6C � g mod g filenamef oop/goops/util.scm� ( �� ) �� ) �� * �� + �� , �� g nameg top-level-env� C%R& h � ] ( C �6 � g env g filenamef oop/goops/util.scm� . �� / �� / �� 0 �� 0 �� g nameg top-level-env?� C'R4*-/0 h D ] 45 6 < g filenamef oop/goops/util.scm� 2 �� C> " G 123 h@ � - 1 3 �( C��$ 4 45?4 45?�C @� g fn @ g l @ g filenamef oop/goops/util.scm� 4 �� 6 �� 5 �� 6 �� 7 �� 7 �� 5 �� 7 �� 7 )�� ( 7 �� ) 8 �� . 8 )�� 8 8 �� 9 7 �� @ 9 �� @ g nameg map*� CR4123 hP � - 1 3 �( C��$ *4 45> " G 45@ @ � g fn J g l J g filenamef oop/goops/util.scm� ; �� = �� < �� = �� > �� > �� < �� > �� > �� - > �� : > ?�� D > +�� J ? �� J g nameg for-each*� CRh0 � ]" �$ �� "���C "��� � g ls ) g n g ls g filenamef oop/goops/util.scm� A �� B �� D �� B �� B �� C �� B �� ) g nameg length*� CR h � ] �$ �4 �5�C C � g ls g filenamef oop/goops/util.scm� F �� G �� G �� H �� H �� H '�� H �� H �� I �� g nameg improper->proper� CRC � g m 0 g filenamef oop/goops/util.scm� �� 7 �� * ! �� � ( �� � . �� � 2 �� q 4 �� � ; �� � A �� � F �� � C6
SAVE
CANCEL