GOOF----LE-8-2.0� ] U 4 h� ] g guile� � g define-module*� � � g srfi� g srfi-38� � g filenameS�
f srfi/srfi-38.scm� g importsS� g rnrs�
g bytevectors�
� � g srfi-8� � � g srfi-69� � � g system� g vm� g
trap-state� � � � g exportsS� g write-with-shared-structure� g read-with-shared-structure� � g set-current-module� ! � " � #g cond-expand-provide� $g current-module� % � &g current-output-port� 'g
vector-length� (g string?� )g
string-length� *g bytevector?� +g port?� ,g display� -f (� .f )� /f . � 0g hash-table-ref� 1f � 2f #(� 3g write� 4g number?� 5f #� 6g counter� 7f =� 8g hash-table-set!� 9g hash-table-exists?� :g make-hash-table� ;g eq?� <g current-input-port� =g eqv?� >g peek-char� ?g eof-object?� @g list->string� Ag reverse� Bg read-char� Cg string->number� Dg
char-numeric?� Eg hash-table-ref/default� Fg error� Gf Double declaration of part � Hg read� If Use of undeclared part � Jf Malformed shared part specifier� Kg with-fluid*� Lg %read-hash-procedures� Mg for-each� Ng read-hash-extend� O0123456789
� Pg hash-table-size� Qg patch!� Rg
procedure?� Sg hole?� Tg fill-hole�C 5 h� � ]4
5 4" > " G 4#i4$i5 %> " G &'()*+ h� \ ] �$ C �$ 4 5
��" $ C4 5$ 4 5
��" $ C4 5 $ C �$ C4 5 $ CCT g obj
� g t ! � g t F � g t X � g t s � g filenamef srfi/srfi-38.scm�
9 �� : �� : ��
: �� ;
�� ; �� ; '�� ; �� ; �� ! : �� - <
�� 7 < �� 8 < '�� ? < �� A < �� F : �� R = �� X : �� f > �� j : �� k > �� m ? �� s : �� � g nameg interesting?� C,-./012'345678 h@ ]" _ �$ �4L> " G 4L �> " G " �" >( L64L> " G 4L > " G L6�$ C45$ "���4L> " G 4L �> " G � "��t"��t � "��g �$ �4L> " G 4 5 4L
�> " G " E�$ L64L> " G 4L �> " G � "��� "��� L64L 5$ �4 5 $ �4
5$ 04 L> " G 4 L> " G L64 5� 4 L> " G 4 L> " G 4
L> " G 4 > " G 4 > " G "���"��� L6� g obj
@ g state @ g obj : � g len � ] g i V g val y 8 g n � 4 g filenamef srfi/srfi-38.scm�
N �� O �� P
��
P �� Q
�� Q �� Q
�� " R
�� ' R �� . R
�� : S
�� D T �� H Y �� L Y �� M [ �� Q [ �� X [ �� a \ �� x ] �� | ] �� | T �� T �� � T �� � T ,�� � T �� � U �� � U �� � U �� � V �� � V !�� � V �� � W !�� � W �� � S
�� � S "�� � S
�� � ^
�� � P �� � _
�� � _ �� � _
�� � ` �� � `
�� � a �� � a �� a �� b �� c �� c �� c +�� " c "�� # d �� ' d &�� . d �� 7 e �� > e (�� E e �� P f (�� V f �� V b �� e h �� f i �� p i �� q j �� y j �� � k
�� � l �� � k
�� � m �� � m $�� � m �� � n �� � o $�� � o �� � q "�� � q 8�� � q "�� � q �� � q �� � r �� � r �� � r �� � s �� � t �� � t �� � t �� u �� u -�� u �� v �� 4 w �� 8 k �� @ y �� ^ @ g nameg write-obj� C98' h� � ]4L 5� $ C4 5$ 64 > " G �$ "4L �> " G � "��� �$ ?4 5 " +�$ C4L �> " G � "���
"���C � g obj
� g state � g t
� g len w � g i } � g filenamef srfi/srfi-38.scm�
~ �� ��
��
�� � �� " �� + � �� , � �� C � �� G � �� H � �� M � �� T � �� _ � �� i � �� l � �� p � �� q � �� w � �� } � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � g nameg scan� C:;86 h� L - . , 3 # 45 # O O Q Q 45 4 > " G 4
> " G 6 D g obj
� g outport � g optarg � g interesting? 9 � g write-obj 9 � g scan 9 � g state P � g filenamef srfi/srfi-38.scm�
.
�� 0 /�� J � �� P � �� S � �� g � �� m � �� s � �� � � ��
� g nameg write-with-shared-structure� C R<:=>?@AB hX 7 ]" G4L 5 45 $ " 4 5� $ 4564L 5� "��� "��� / g pred
U g initial U g chars M g c
M g t . g filenamef srfi/srfi-38.scm�
� �� � �� � ��
� �� � �� � �� $ � '�� + � "�� 2 �
�� 5 � �� = � �� > � �� G � �� M � �� M � �� U g nameg read-some-chars� CCDBEFG8h _ ] L �C W g filenamef srfi/srfi-38.scm�
� �� � $��
g nameg thunk� CHIJ h� � ]*44L 55 45 4L5 =�$ P$ 4> " G " 4LO > " G 4 5 �C#�$ $ C
6 6 � g c
� g port � g n � g c � g thunk ( � g cell U � g obj y � g filenamef srfi/srfi-38.scm�
� �� � �� � �� � ?�� � �� � �� � �� � �� � �� � �� ( � �� 3 � �� 9 � �� : � �� > � �� E � �� U � �� U � �� X �
�� s � �� y �
�� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � g nameg read-hash� CKLMN h a ] L 6 Y g digit
g filenamef srfi/srfi-38.scm�
� ��
� ��
COHPQ hP � ]4LO > " G 4L5
4L 5�$ 4 > " G " C � g result
" J g filenamef srfi/srfi-38.scm�
� �� � �� � �� � �� � �� " � �� & � �� - � �� 1 �
�� 2 � �� J
C hX � - . , 3 # 45 45 O O Q Q [ O 6 � g port
S g parts-table S g read-some-chars 3 S g read-hash 3 S g filenamef srfi/srfi-38.scm�
�
�� � 6�� � �� � �� S � �� S
g nameg read-with-shared-structure� C RR h n ] 6f g x
g filenamef srfi/srfi-38.scm�
�
�� � �� g nameg hole?� CSRST h � ]4 5$ 4 5 6 C � g x
g filenamef srfi/srfi-38.scm�
�
�� � ��
� �� � /�� � $�� g nameg fill-hole� CTRSTQ' h� � ] �$ N4 �5$ 4 �5�" 4 �> " G 4 �5$
4 �5�C �6 �$ \" J
�$ C � 45$ 45�" 4> " G � "���4 5� "���C � g x
� g i b � g elt q � g filenamef srfi/srfi-38.scm�
�
�� � �� � ��
� �� � �� � �� � �� � $�� � /�� � $�� � �� % � 9�� * � A�� / � 9�� 8 � �� = � �� ? � �� C � �� F � $�� K � /�� M � $�� N � �� U � A�� W � 9�� Z � �� ^ � �� b � �� f � �� j � �� q � �� q � �� t � �� ~ � �� � � �� � � �� � � �� � � $�� � � �� � � �� � � �� � � �� * � g nameg patch!� CQRC � g m
, g filenamef srfi/srfi-38.scm�
�� - "
�� 2 " �� : " &�� ? "
��
.
�� � �
�� A �
�� �
�� � �
�� �
C6