Editing: srfi-38.go
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
Save
Back