GOOF----LE-8-2.0G]4h] gguile  gdefine-module*   glanguage gglil  gfilenameS flanguage/glil.scm gimportsS gsystem gbase gsyntax     gpmatch     gsrfi gsrfi-1  gselectS gfold    gexportsS g gmake-glil-program g glil-program? gglil-program-meta !gglil-program-body "g #gmake-glil-std-prelude $gglil-std-prelude? %gglil-std-prelude-nreq &gglil-std-prelude-nlocs 'gglil-std-prelude-else-label (g )gmake-glil-opt-prelude *gglil-opt-prelude? +gglil-opt-prelude-nreq ,gglil-opt-prelude-nopt -gglil-opt-prelude-rest .gglil-opt-prelude-nlocs /gglil-opt-prelude-else-label 0g 1gmake-glil-kw-prelude 2gglil-kw-prelude? 3gglil-kw-prelude-nreq 4gglil-kw-prelude-nopt 5gglil-kw-prelude-kw 6g!glil-kw-prelude-allow-other-keys? 7gglil-kw-prelude-rest 8gglil-kw-prelude-nlocs 9gglil-kw-prelude-else-label :g  ;gmake-glil-bind g ?gmake-glil-mv-bind @g glil-mv-bind? Agglil-mv-bind-vars Bgglil-mv-bind-rest Cg  Dgmake-glil-unbind Eg glil-unbind? Fg  Ggmake-glil-source Hg glil-source? Igglil-source-props Jg  Kgmake-glil-void Lg glil-void? Mg  Ngmake-glil-const Og glil-const? Pgglil-const-obj Qg Rgmake-glil-lexical Sg glil-lexical? Tgglil-lexical-local? Ugglil-lexical-boxed? Vgglil-lexical-op Wgglil-lexical-index Xg Ygmake-glil-toplevel Zgglil-toplevel? [gglil-toplevel-op \gglil-toplevel-name ]g  ^gmake-glil-module _g glil-module? `gglil-module-op agglil-module-mod bgglil-module-name cgglil-module-public? dg  egmake-glil-label fg glil-label? ggglil-label-label hg  igmake-glil-branch jg glil-branch? kgglil-branch-inst lgglil-branch-label mg  ngmake-glil-call og glil-call? pgglil-call-inst qgglil-call-nargs rg sgmake-glil-mv-call tg glil-mv-call? ugglil-mv-call-nargs vgglil-mv-call-ra wg  xgmake-glil-prompt yg glil-prompt? zgglil-prompt-label {gglil-prompt-escape-only? |g parse-glil }g unparse-glil ~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}a gset-current-module   gformat f # g print-glil gmake-record-type f gmeta gbody  grecord-predicate gmake-procedure-with-setter grecord-accessor grecord-modifier f gnreq gnlocs g else-label  f gnopt grest  f gkw gallow-other-keys?  f  gvars  f  f  f  gprops  f  f  gobj  f glocal? gboxed? gop gindex  f gname  f  gmod gpublic?  f  glabel  f  ginst  f  gnargs  f gra  f  g escape-only?  gprompt gerror f invalid glil gmv-call gcall gbranch gmodule gprivate gpublic gtoplevel glexical gconst gvoid gsource gunbind gmv-bind gbind g kw-prelude g opt-prelude g std-prelude gprogram gmap    funhandled recordC5h4v]4   ~54>"G}h]456gx  gport  gfilenameflanguage/glil.scm Q  R  R   R    gnameg print-glilCR4ii5Rh-13Cgmeta gbody gdefrec-98ee61a7034-32d  gfilenameflanguage/glil.scm T    gnamegmake-glil-programCR4ii5R4i4ii54ii55 R4i4ii54ii55!R4ii5"R"h-13Cgnreq gnlocs g else-label  gdefrec-98ee61a7034-32f  gfilenameflanguage/glil.scm T    gnamegmake-glil-std-preludeC#R4i"i5$R4i4i"i54i"i55%R4i4i"i54i"i55&R4i4i"i54i"i55'R4ii5(R(h -13Cgnreq gnopt grest  gnlocs  g else-label  gdefrec-98ee61a7034-331  gfilenameflanguage/glil.scm T    gnamegmake-glil-opt-preludeC)R4i(i5*R4i4i(i54i(i55+R4i4i(i54i(i55,R4i4i(i54i(i55-R4i4i(i54i(i55.R4i4i(i54i(i55/R4ii50R0h -13Cgnreq gnopt grest  gkw  gallow-other-keys?  gnlocs  g else-label  gdefrec-98ee61a7034-333  gfilenameflanguage/glil.scm T    gnamegmake-glil-kw-preludeC1R4i0i52R4i4i0i54i0i553R4i4i0i54i0i554R4i4i0i54i0i557R4i4i0i54i0i555R4i4i0i54i0i556R4i4i0i54i0i558R4i4i0i54i0i559R4ii5:R:h-13Cgvars gdefrec-98ee61a7034-335 gfilenameflanguage/glil.scm T   gnamegmake-glil-bindC;R4i:i5R>h-13Cgvars grest gdefrec-98ee61a7034-337  gfilenameflanguage/glil.scm T    gnamegmake-glil-mv-bindC?R4i>i5@R4i4i>i54i>i55AR4i4i>i54i>i55BR4ii5CRCh-13Cgdefrec-98ee61a7034-339 gfilenameflanguage/glil.scm T   gnamegmake-glil-unbindCDR4iCi5ER4ii5FRFh-13Cgprops gdefrec-98ee61a7034-33b gfilenameflanguage/glil.scm T   gnamegmake-glil-sourceCGR4iFi5HR4i4iFi54iFi55IR4ii5JRJh-13C}gdefrec-98ee61a7034-33d gfilenameflanguage/glil.scm T   gnamegmake-glil-voidCKR4iJi5LR4ii5MRMh-13Cgobj gdefrec-98ee61a7034-33f gfilenameflanguage/glil.scm T   gnamegmake-glil-constCNR4iMi5OR4i4iMi54iMi55PR4ii5QRQh-13Cglocal? gboxed? gop  gindex  gdefrec-98ee61a7034-341  gfilenameflanguage/glil.scm T    gnamegmake-glil-lexicalCRR4iQi5SR4i4iQi54iQi55TR4i4iQi54iQi55UR4i4iQi54iQi55VR4i4iQi54iQi55WR4ii5XRXh-13Cgop gname gdefrec-98ee61a7034-343  gfilenameflanguage/glil.scm T    gnamegmake-glil-toplevelCYR4iXi5ZR4i4iXi54iXi55[R4i4iXi54iXi55\R4ii5]R]h-13Cgop gmod gname  gpublic?  gdefrec-98ee61a7034-345  gfilenameflanguage/glil.scm T    gnamegmake-glil-moduleC^R4i]i5_R4i4i]i54i]i55`R4i4i]i54i]i55aR4i4i]i54i]i55bR4i4i]i54i]i55cR4ii5dRdh-13Cglabel gdefrec-98ee61a7034-347 gfilenameflanguage/glil.scm T   gnamegmake-glil-labelCeR4idi5fR4i4idi54idi55gR4ii5hRhh-13Cginst glabel gdefrec-98ee61a7034-349  gfilenameflanguage/glil.scm T    gnamegmake-glil-branchCiR4ihi5jR4i4ihi54ihi55kR4i4ihi54ihi55lR4ii5mRmh-13Cginst gnargs gdefrec-98ee61a7034-34b  gfilenameflanguage/glil.scm T    gnamegmake-glil-callCnR4imi5oR4i4imi54imi55pR4i4imi54imi55qR4ii5rRrh-13Cgnargs gra gdefrec-98ee61a7034-34d  gfilenameflanguage/glil.scm T    gnamegmake-glil-mv-callCsR4iri5tR4i4iri54iri55uR4i4iri54iri55vR4ii5wRwh-13Cglabel g escape-only? gdefrec-98ee61a7034-34f  gfilenameflanguage/glil.scm T    gnamegmake-glil-promptCxR4iwi5yR4i4iwi54iwi55zR4i4iwi54iwi55{Rxsnie^YRNKGD?;1)#|+h ]"z""\""]""""L""s""x"""3""q$b&H$9$ (666666$R&<$1$(6"B">":"6"2$R&<$1$(6"""""$R &<$1$( 6""|"x"t"p$; &%$( 6"2"."*"&$ &u$j&T$I$4$   (  6""""""""$ &u$j&T$I$4$   (  6"" """"""$R&<$1$(6"""""$&j$_$J$5$    (  6""""" ""$;&%$(6""""$$&(6"""$;&%$(6"G"C"?";$$&(6"" "$R&<$1$(6"""""$& 6""|$!&$$$z$e   $P     $;   $&("   6""""""""""$#&$v$a$L$7   $"     ($  6"""""" ""$i%&S$H$3$( &6""""""$:'&$$(4)*56"I"E"A gx  gvx W gvy  W gvx  p gvy  p gvx  gvy  gvx gvy  gvx   gvy   gvx  gvy  gvx % qgvy  % qgvx  > igvy  > igvx  O egvy  O egvx  gvy   gvx   gvy   gvx   gvy   gvx  gvy   gvx    gvy    gvx % gvy  % gvx  > gvy  > gvx  W gvy  W gvx  h gvy  h gvx y gvy y gvx  @gvy   @gvx   8gvy   8gvx   0gvy   0gvx   ,gvy   ,gvx  (gvy  (gvx Q gvy  Q gvx  j gvy  j gvx  { gvy  { gvx  (gvy   (gvx    gvy    gvx   gvy   gvx   gvy   gvx  gvy  gvx 9 ngvy  9 ngvx  R fgvy  R fgvx  gvy   gvx  gvy   gvx   gvy   gvx  gvy   gvx # ogvy  # ogvx  < ggvy  < ggvx  M cgvy  M cgvx  gvy   gvx  fgvy   fgvx   ^gvy   ^gvx   Zgvy   Zgvx   Vgvy   Vgvx  Rgvy  Rgvx  Ngvy  Ngvx  Jgvy   Jgvx  & Fgvy  & Fgvx w gvy  w gvx   gvy   gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx  |gvy   |gvx  2 tgvy  2 tgvx  C pgvy  C pgvx  T lgvy  T lgvx  gvy   gvx   gvy   }gfilenameflanguage/glil.scm n  o        o     o  a  e o     o     o   %  o  $ $ ( o      o   ~ *  o  b }  f o   |  o   {   o   z   o  _ y  c o   x   o  B w  F o   u   o  h s  l o   q   q   o 4   gnameg parse-glilC|R !}"%&'(+,-./03475689:=>ABCFIJMPQTUVWX[\]`abcdghklmpqruvwz{Uhd]A&"454545C&'454 54 5 C &=4 545454545C&S45454545454545C&45C&4 54!5"C#&$C%&4&5'C(&)C*&4+5,C-&24.54/54054152C3&4454556C7&>4854954:54;5<$=">C?&4@5ACB&4C54D5ECF&4G54H5ICJ&4K54L5MCN&$4O54P>"GQRCST6\gglil  grtd  gmeta   1gbody   1gnreq  N `gnlocs  N `g else-label  N `gnreq  gnopt  grest  gnlocs  g else-label  gnreq  gnopt  grest  gkw  gallow-other-keys?  gnlocs  g else-label  gvars   gvars  - ;grest  - ;gprops  U _gobj  y glocal?   gboxed?   gop   gindex   gop   gname   gop   'gmod   'gname   'gpublic?   'glabel  6 @ginst  V dglabel  V dginst  z gnargs  z gnargs   gra   glabel   *gfilenameflanguage/glil.scm   #  &  /  9  V  h           3 C  E  N  Y  g  i  r  }                   # &  /  :  H  \ l             -   gnameg unparse-glilC}RCngm  ,gfilenameflanguage/glil.scm   Q  T + n 4   4 C6