GOOF----LE-8-2.0 ] G 4 hm ] g guile� � g define-module*� � � g ice-9� g eval-string� � g filenameS�
f ice-9/eval-string.scm� g importsS� g system�
g base� g compile�
� � g language�
� � g vm� g program� � � � g replacementsS� � g set-current-module� � � g language?� g lookup-language� g ensure-language� !g langS� "! �� #" � $g current-language� %g
parameter?� &% � '% � (g scm-error� )g wrong-type-arg� *f parameterize� +f Not a parameter: ~S� ,g language-reader� -g current-module� .g eof-object?� /g language-evaluator� 0g
read-and-eval� 1g moduleS� 21 �� 3g fileS� 43 �� 5g lineS� 65 �� 7g columnS� 87 �� 9! �� :g compile?S� ;: �� <24689; � =g call-with-input-string� >g set-port-filename!� ?g set-port-line!� @g set-port-column!� Ag make-program� Bg read-and-compile� Cg fromS� Dg toS� Eg objcode� Fg save-module-excursion�C 5 h� q ]4
5 4 > " G h � ]4 5$ C 6 � g x
g filenamef ice-9/eval-string.scm�
�� ��
�� �� g nameg ensure-language� C R#$'()*+ ,-./$-,. hP ]4445 5 45 > G 4445 5L45 5 45$ E "��� g exp
L g vals L g next 3 L g filenamef ice-9/eval-string.scm�
+
�� $ �� $ �� $ ��
$ �� $ 3�� $ �� , �� " �� ! " �� $ " �� * " �� - " 1�� 3 " �� 3 / �� 6 1 �� @ 0 �� D 2 �� L 4 �� L g nameg lp� C
h� Q - / 0 3 # 45 45$ " 4 > " G �4 �455Y44 45 5 4
5 5 4 5$ " O Q 4> ZCZFI g port
� g lang � g t-6f52a6ff84e411f-7 " � g exp x � g lp � � g filenamef ice-9/eval-string.scm�
�� )�� " �� Z #�� b �� e " �� f " �� i " �� o " �� r " 1�� x " �� x & �� { '
�� � ' �� � +
�� �
g langS � g nameg
read-and-eval� C0R<-$ =>?@/ABCDE0!
h� � ] L$ 4L> " G " L$ 4LL> " G " L$ 4LL> " G " L$ 4LL> " G " L $ " 4L5�$ 44LL
556 L L6 � g filenamef ice-9/eval-string.scm�
K �� L
�� M �� $ N
�� % O �� B P
�� C Q �� ` R
�� a S �� ~ U �� � U �� � U �� � U
�� � V �� � V �� � V E�� � V �� � V �� � V �� � W �� �
CF h X ] 4L> " G L 6 P g filenamef ice-9/eval-string.scm�
@ �� A �� B ��
C h8 � ] O LLLLL LQ L$
LO 66 � g port
8 g thunk 8 g filenamef ice-9/eval-string.scm�
H �� I �� ' > �� 4 ? �� 8 C �� 8 C hx s - / 0 3 # 45 # # # # 45 # 45 O 6 k g str
q g module q g file q g line q g column q g lang q g compile? q g lang X q g filenamef ice-9/eval-string.scm�
6
�� 7 �� B ; �� R E �� X E �� q F �� q
g moduleS �g fileS �g lineS �g columnS �g langS �g compile?S � g nameg eval-string� CRCi g m
, g filenamef ice-9/eval-string.scm�
�� �
�� �
�� � 6
�� �
C6