Editing: srfi-11.go
GOOF----LE-8-2.0L ] � 4 h� ] g guile� � g define-module*� � � g srfi� g srfi-11� � g filenameS� f srfi/srfi-11.scm� g exportsS� g let-values� g let*-values� � g set-current-module� � � g cond-expand-provide� g current-module� � g make-syntax-transformer� � � g macro� g $sc-dispatch� � � g _� g any� � � g each-any� ! �� " !�� # "�� $g syntax-object� %g call-with-values� &g top� '& � (g ribcage� )g binds� *g exp� +g b0� ,g b1� -)*+, � .'''' � /f l-46961e50cb-93� 0f l-46961e50cb-94� 1f l-46961e50cb-95� 2f l-46961e50cb-96� 3/012 � 4(-.3 � 5( � 6g x� 76 � 8' � 9f l-46961e50cb-90� :9 � ;(78: � <'45; � =g hygiene� >= � ?$%<> � @g lambda� A$@<> � B !�� C B�� D � Eg let� Fg id� Gg tmp� HFG � I'' � Jf l-46961e50cb-af� Kf l-46961e50cb-b0� LJK � M(HIL � Ng lp� Og clauses� Pg ids� Qg tmps� RNOPQ � Sf l-46961e50cb-a3� Tf l-46961e50cb-a4� Uf l-46961e50cb-a5� Vf l-46961e50cb-a6� WSTUV � X(R.W � Yg clause� ZY+, � [''' � \f l-46961e50cb-9d� ]f l-46961e50cb-9e� ^f l-46961e50cb-9f� _\]^ � `(Z[_ � a'5M5X`5; � b$Ea> � cg map� dc � ec � fg list� gg syntax-violation� hg � ig � jf -source expression failed to match any pattern� k � lg generate-temporaries� m � ng append� on � pn � qg inner� rq � sf l-46961e50cb-c7� ts � u(r8t � vg new-tmp� wvFG � xf l-46961e50cb-bf� yf l-46961e50cb-c0� zf l-46961e50cb-c1� {xyz � |(w[{ � }g var� ~}* � f l-46961e50cb-b8� �f l-46961e50cb-b9� �� � �(~I� � �'5u55|�5X`5; � �$%�> � �$@�> � � �� �g each� ��� � �� � � � �g args� �q� � �f l-46961e50cb-e2� �f l-46961e50cb-e3� ��� � �(�I� � �g new-var� �v�FG � �f l-46961e50cb-d7� �f l-46961e50cb-d8� �f l-46961e50cb-d9� �f l-46961e50cb-da� ����� � �(�.� � �g vars� ��* � �f l-46961e50cb-d0� �f l-46961e50cb-d1� ��� � �(�I� � �'5�55��5X`5; � �$%�> � �$@�> � � �� � ��� �g dummy� �g body� ��� � �g m-46961e50cb-104� ��& � ��' � �f l-46961e50cb-109� �f l-46961e50cb-10a� ��� � �(��� � �� � �f l-46961e50cb-106� �� � �(7�� � �'�5� � �$E�> � �� � � ��� �� �� � ��� �g vars-1� �g binding-1� �g vars-2� �g binding-2� ������� � ��''''' � �f l-46961e50cb-10f� �f l-46961e50cb-110� �f l-46961e50cb-111� �f l-46961e50cb-112� �f l-46961e50cb-113� �f l-46961e50cb-114� ������� � �(��� � �'�5� � �$%�> � �$@�> � �$ �> �C 5 h@ r ]4 5 4 > " G 4i4i5 > " G 4 #?A h ^ ] ��� C V g binds g exp g b0 g b1 CCDbef h ; ]4 5L L���C 3 g id g tmp Cijklmp�� h8 � ] 4L L�4L54 55 L C � g new-tmp 5 g id 5 g tmp 5 g tmp 5 g filenamef srfi/srfi-11.scm� W '�� W +�� W '�� W �� 5 Cij h@ � ]4 5L L 45 $ LL O @6 � g var = g exp = g tmp = g tmp = g filenamef srfi/srfi-11.scm� S -�� S �� = C �l h � ] 4 5��4L 5�C g id g rest g filenamef srfi/srfi-11.scm� c ,�� b +�� a $�� d +�� a $�� Cl h0 � ] 4 5 $ L O @ 4 5�� C� g vars 0 g tmp 0 g filenamef srfi/srfi-11.scm� ^ �� ! g /�� + f .�� , e '�� / h .�� 0 g nameg lp� C�p� h * ] C " g id C� h o ] 4L 5�C g g id g rest g filenamef srfi/srfi-11.scm� r =�� q 7�� Cij h@ � ]4 5 $ @4 5 $ L O @ 6 ~ g tmps > g tmp > g tmp " > g filenamef srfi/srfi-11.scm� n &�� > g nameg lp� C �� h ? ]L C 7 g inner g args Cij h` � ]4L L�454 55O Q 4 5 45 $ LO @6 � g new-tmp ] g new-var ] g id ] g tmp ] g lp $ 3 g tmp 6 ] g tmp A ] g filenamef srfi/srfi-11.scm� k '�� k +�� k '�� $ n &�� 6 k �� ] Cij hP � ]O Q 4 5 L L 45 $ LLO @6 � g vars K g exp K g lp g tmp K g tmp + K g filenamef srfi/srfi-11.scm� ^ �� ] �� K C h� ] ( 0 45 $ LLO @6 � 45 $ L O @45 $ L O @6 � g clauses � g ids � g tmps � g tmp 8 g tmp 8 g tmp ; � g tmp F � g tmp h � g filenamef srfi/srfi-11.scm� I �� L �� M �� ; Q �� ; Q �� � g nameg lp� C h � ] O Q 6 � g clause g b0 g b1 g lp g filenamef srfi/srfi-11.scm� I �� J �� K �� I �� Cij h@ t ]4 5 $ @4 5 $ @ 6 l g x 9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-11.scm� C �� 9 C5 R4 �� h ? ]��C 7 g dummy g body C����ef h( � ] 45�� C� g dummy ( g vars-1 ( g binding-1 ( g vars-2 ( g binding-2 ( g body ( ( Cij h@ ]4 5 $ @4 5 $ @ 6 � g x 9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-11.scm� � �� 9 g macro-typeg syntax-rules�g patternsg bodyg ... g vars-1g binding-1 g vars-2g binding-2 g ... g bodyg ... C5 RC j g m ( g filenamef srfi/srfi-11.scm� & �� ) ) �� . ) �� 6 ) &�� ; ) �� = C6
Save
Back