GOOF----LE-8-2.0;� ]L 4 h� ] g guile� � g define-module*� � � g language� g glil� g compile-assembly� �
g filenameS� f "language/glil/compile-assembly.scm� g importsS�
g system� g base� g syntax�
� � g pmatch�
� � � � g assembly� � � g vm� g instruction�
� � g program�
� g selectS� !g make-binding� "! � # " � $g ice-9� %g receive� &$% � '& � (g vlist� )$( � *) � +g srfi� ,g srfi-1� -+, � .g fold� /. � 0- / � 1g rnrs� 2g bytevectors� 312 � 43 � 5#'*04
� 6g exportsS� 7 � 8g set-current-module� 98 � :8 � ;g vlist-ref� <g vlist-length� =g vhash-fold-right2� >g fold2� ?g
vector-length� @g vector-fold2� Ag make-record-type� Bf <variable-cache-cell>� Cg key� DC � Eg <variable-cache-cell>� Fg make-variable-cache-cell� Gg record-predicate� Hg variable-cache-cell?� Ig make-procedure-with-setter� Jg record-accessor� Kg record-modifier� Lg variable-cache-cell-key� Mg reverse!� Ng assq-ref� Og filename� Pg line� Qg column� Rg limn-sources� Sg append� TS � US � Vg dump-object� Wg return� XW � YX � Zg load-program� [g addr+� \g make-meta� ]g object->assembly� ^g
immediate?� _g last-pair� `g scheme-list?� ag vhash-assoc� bg number?� cg string?� dg keyword?� eg
vhash-cons� fg array?� gg error� hf )build-constant-store: unrecognized object� ig array-shape� jg vector->list� kg <glil-program>� lg glil-program-body� mg glil-program-meta� ng <glil-const>� og glil-const-obj� pg <glil-kw-prelude>� qg glil-kw-prelude-kw� rg <glil-toplevel>� sg glil-toplevel-name� tg glil-toplevel-op� ug
<glil-module>� vg glil-module-mod� wg glil-module-name� xg glil-module-public?� yg glil-module-op� zg
vlist-null� {g build-constant-store� |f unhandled record� }g build-object-table� ~g make-open-binding� g make-closed-binding� �g map� �f unknown binding type� �g open-binding� �f broken bindings� �g
close-binding� �g cdr� �g stable-sort� �g reverse� �g close-all-bindings� �g
open-arity� �f bad arities� �g close-arity� �g begin-arity� �g compile-program� �g byte-length� �g vlist-null?� �g dump-constants� �g
align-program� �g tail-call� ��
� �� � �g make-list� �g nop� �� � �g glil->assembly� � � �g
make-false� �� � �� � �g
object-ref� �g long-object-ref� �f vcache cell key not in table� �g
glil-program?� �g compile-objtable� �f unrecognized constant� �� � �g vector� �g <glil-std-prelude>� �g glil-std-prelude-nreq� �g glil-std-prelude-nlocs� �g glil-std-prelude-else-label� �g br-if-nargs-ne� �g assert-nargs-ee� �g reserve-locals� �g assert-nargs-ee/locals� �g <glil-opt-prelude>� �g glil-opt-prelude-nreq� �g glil-opt-prelude-nopt� �g glil-opt-prelude-rest� �g glil-opt-prelude-nlocs� �g glil-opt-prelude-else-label� �g br-if-nargs-lt� �g assert-nargs-ge� �g bind-optionals� �g push-rest� �g br-if-nargs-gt� �g glil-kw-prelude-nreq� �g glil-kw-prelude-nopt� �g glil-kw-prelude-rest� �g !glil-kw-prelude-allow-other-keys?� �g glil-kw-prelude-nlocs� �g glil-kw-prelude-else-label� �g and=>� �f kw not in objtable� �g max� �g 1+� �g bind-optionals/shuffle� �g bind-optionals/shuffle-or-br� �g bind-kwargs� �g bind-rest� �g <glil-bind>� �g glil-bind-vars� �g <glil-mv-bind>� �g glil-mv-bind-vars� �g glil-mv-bind-rest� �g integer?� �g truncate-values� �g length� �g
<glil-unbind>� �g
<glil-source>� �g glil-source-props� �g <glil-void>� �g void� �� � �� � �f const not in table� �g <glil-lexical>� �g glil-lexical-local?� �g glil-lexical-boxed?� �g glil-lexical-op� �g glil-lexical-index� �g ref� �g local-boxed-ref� �g local-ref� �g set� �g local-boxed-set� �g local-set� �g box� �g empty-box� �g fix� �g fix-closure� �g bound?� �g variable-bound?� �� � �� � �g local-bound?� �f what� �g long-local-ref� �g variable-ref� �� � �� � �g variable-set� �� � �� � �g long-local-set� �g
make-variable� �� � �g long-local-bound?� �g free-boxed-ref� �g free-ref� �g free-boxed-set� �f what.� �g toplevel-ref� �g toplevel-set� �g long-toplevel-ref� �g long-toplevel-set� �f toplevel name not in objtable� �g link-now� � �g define� � �f unknown toplevel var kind�f module vcache not in objtable�f unknown module var kind�g <glil-label>�g glil-label-label� g align-block�
g
<glil-branch>�g glil-branch-inst�g glil-branch-label�
g <glil-call>�g glil-call-inst�g glil-call-nargs�g instruction?�f Unknown instruction:�g instruction-pops�g instruction-length�f ,Unknown length for variable-arg instruction:�f /Wrong number of stack arguments to instruction:�g <glil-mv-call>�g glil-mv-call-nargs�g glil-mv-call-ra�g mv-call�g
<glil-prompt>�g glil-prompt-label�g glil-prompt-escape-only?�g prompt�g load-number�g number->string� g string-bytes-per-char�!g load-string�"g
align-code�#g load-wide-string�$f bad string bytes per char�%g symbol->string�&g load-symbol�'g make-symbol�(' �)( �*g keyword->symbol�+g make-keyword�,+ �-, �.g
string-append�/f list�0f too long�1g list�2g cons�32 �43 �5g
array-type�6g
load-array�7g uniform-array->bytevector�8g array-contents�9g
make-array�:f dump-object: unrecognized object�;f vector�<f write-table: unrecognized object�=g dup�>= �?g
vector-set�@? �A@ �B� �C�
�DBC �ED �F�
�Gg new-frame�HG �Ig call�JI �KCJ �C 5 h� A ]4
5675 4: > "