← Back
Editing: compile-scheme.go
GOOF----LE-8-2.0� ] > 4 h� ] g guile� � g define-module*� � � g language� g brainfuck� g compile-scheme� � g filenameS� f %language/brainfuck/compile-scheme.scm� g exportsS� � g set-current-module� � � g tape-size� g let� g pointer� � g tape� g make-vector� � g append� � � g compile-body� g write-char� � � g reverse� g compile-instruction� !g <bf-move>� "g set!� #g +� $g <bf-increment>� %g vector-set!� &g vector-ref� '& � (g <bf-print>� )g integer->char� *)' � + * � ,g <bf-read>� -g char->integer� .g read-char� /. � 0-/ � 1%0 � 2g <bf-loop>� 3g iterate� 4g if� 5g not� 6g =� 76' � 857 � 9g begin� :3 � ;: � <g error� =f unknown brainfuck instruction �C 5 h( � ]4 5 4 > " G u0R h0 � ]�� 44 �5 5��D � g exp - g env - g opts - g filenamef %language/brainfuck/compile-scheme.scm� 5 �� 7 �� 9 �� 9 �� ! 9 �� # 7 �� - 6 �� - g nameg compile-scheme� CR h8 - ]" &( 64�5 �� "��� "��� % g instructions 7 g cur , g result , g compiled , g filenamef %language/brainfuck/compile-scheme.scm� D �� E �� G �� H �� I �� I +�� I �� I �� J �� $ J �� , J �� , E �� / F �� 7 E �� 7 g nameg compile-body� CR!"#$%'(+,123489;<= h� s ] � �$ �� C�$ �� C �$ C �$ C �$ "44 �55� C6 k g ins � g key � g dir ' g inc 4 I g filenamef %language/brainfuck/compile-scheme.scm� P �� Q �� Q �� V �� V �� W �� 0 Q �� 3 \ �� 4 \ �� 8 ] �� R Q �� T c �� ^ Q �� ` i �� j Q �� l t �� y w �� ~ w �� � w �� � t �� � z �� � z 2�� � z �� � g nameg compile-instruction� C RC� g m ( g filenamef %language/brainfuck/compile-scheme.scm� �� . $ �� Z 5 �� � D �� & P �� ( C6
Save File
Cancel