GOOF----LE-8-2.0 ; ] e 4 h6 ] g guile� � g define-module*� � � g language� g tree-il� g debug� �
g filenameS� f language/tree-il/debug.scm� g importsS�
�
� g ice-9� g match� � � g srfi� g srfi-1� � � g srfi-26� � � � g exportsS� g verify-tree-il� � g set-current-module� � � !g hashq-ref� "g error� #f duplicate gensym� $g
hashq-set!� %g make-hash-table� &f unexpected tree-il� 'g <dynwind>� (g <dynref>� )g <dynset>� *g
<conditional>� +g
<application>� ,g for-each� -f expected list of args� .g
<sequence>� /f expected more than one exp� 0f expected list of exps� 1g <prompt>� 2g <abort>� 3g <dynlet>� 4g length� 5f mismatch in fluids/vals� 6f vals should be list� 7f fluids should be list� 8g <module-set>� 9f %module name should be list of symbols� :g and-map� ;g symbol?� <f name should be symbol� =g <toplevel-define>� >f name should be a symbol� ?g <toplevel-set>� @g <primitive-ref>� Ag <module-ref>� Bg <toplevel-ref>� Cg <void>� Dg <const>� Eg <let-values>� Fg lambda-case?� Gf %let-values body should be lambda-case� Hg <fix>� If names should be list of syms� Jf gensyms should be list of syms� Kf 'names, syms, vals should be same length� Lg <letrec>� Mg <let>� Ng <lambda>� Of !lambda body should be lambda-case� Pf meta should be alist� Qg pair?� Rg
<lexical-set>� Sg memq� Tf displaced lexical� Uf unbound lexical� Vg
<lexical-ref>� Wg
<lambda-case>� Xf -bad required args (should be list of symbols)� Yf 'bad gensyms (should be list of symbols)� Zg take� [g drop� \f unexpected gensyms length� ]f 6bad keywords (should be #f or (aok (kw name sym) ...))� ^g keyword?� _f *bad required args (should be #f or symbol)� `f /bad optionals (should be #f or list of symbols)� ag tree-il-src� bf bad src� cg map� dg car�C 5 h�1 f ]4
5 4 > "