asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???¢§?q5k?*:t0A-o??¥]VkJ¢M??f?±8\k2íll£1]q?ù???T GOOF----LE-8-2.0/]4hZw] gprimitive-eval gcurrent-module gwarn f0module system is booted, we should have a module gmodule-variable gresolve-module gmacro? g macro-type g macro-binding g%expanded-vtables gassq gname gpublic gprivate g module-name gbare ghygiene gsyntax-violation fbad module kind gfor-each glexical gmacro gellipsis gmodule-define! gmake-syntax-transformer g vector-length g syntax-object gsymbol->string g module-gensym fl g list->vector g make-vector !gappend "gribcage #gshift $glist-ref %g id-var-name &f invalid id 'gsupports-source-properties? (gset-source-properties! )gsource-properties *g begin-form +g $sc-dispatch ,g_ -, .gapply /gany 0geach-any 1/0 2,1 3f-source expression failed to match any pattern 4glocal-syntax-form 5geval-when-form 601 7,6 8ge 9gmemq :geval ;gexpand gload ?gcompile @?> Agc B> Cgdefine-syntax-form Dgdefine-syntax-parameter-form Egguile FE Gg define-form Hgglobal IH Jgdisplaced-lexical KJ Lgcore Mg module-ref Ngmodule-local-variable Og module-add! Pgmake-undefined-variable Qg variable? Rfidentifier out of context Sf"cannot define keyword at top level Tg procedure? U Vg eval-when Wfinvalid situation Xg lexical-call Yg global-call Zg core-form [g local-syntax \gbegin ]gdefine ^,// _// `_1 a,` b,/ cgif dgtop ed f  ge hfl-bde397a-100e ih j"fgi k" lgkey ml ng m-bde397a-fde ond po qf l-bde397a-fdf rq s"mpr tgftype ugfval vgfform wgfe xgfw ygfs zgfmod {tuvwxyz |eeeeeee }f l-bde397a-fd7 ~f l-bde397a-fd8 f l-bde397a-fd9 f l-bde397a-fda f l-bde397a-fdb f l-bde397a-fdc f l-bde397a-fdd }~ "{| gfirst  f l-bde397a-fce  "g gr gw gs grib gmod gfor-car? 8 f l-bde397a-fb6 f l-bde397a-fb7 f l-bde397a-fb8 f l-bde397a-fb9 f l-bde397a-fba f l-bde397a-fbb f l-bde397a-fbc  "| glambda-var-list ggen-var gstrip gexpand-lambda-case glambda*-formals gexpand-simple-lambda glambda-formals g ellipsis? g expand-void geval-local-transformer gexpand-local-syntax g expand-body g expand-macro gexpand-application g expand-expr g syntax-type gparse-when-list gexpand-install-global gexpand-top-sequence gexpand-sequence g source-wrap gwrap gbound-id-member? gdistinct-bound-ids? gvalid-bound-ids? g bound-id=? g free-id=? gwith-transformer-environment gtransformer-environment gresolve-identifier glocally-bound-identifiers g same-marks? g join-marks g join-wraps g smart-append gmake-binding-wrap gextend-ribcage! gmake-empty-ribcage gnew-mark g anti-mark g the-anti-mark g top-marked? gtop-wrap g empty-wrap gset-ribcage-labels! gset-ribcage-marks! gset-ribcage-symnames! gribcage-labels g ribcage-marks gribcage-symnames gribcage? g make-ribcage g gen-labels g gen-label g wrap-subst g wrap-marks g make-wrap gid-sym-name&marks g id-sym-name gid? g nonsymbol-id? g global-extend glookup gmacros-only-env gextend-var-env g extend-env gnull-env g binding-value g binding-type g make-binding g arg-check gsource-annotation g no-source gset-syntax-object-module! gset-syntax-object-wrap! gset-syntax-object-expression! gsyntax-object-module gsyntax-object-wrap gsyntax-object-expression gsyntax-object? gmake-syntax-object gbuild-lexical-var g build-letrec gbuild-named-let g build-let gbuild-sequence g build-data g build-primref gbuild-lambda-case gbuild-case-lambda gbuild-simple-lambda gbuild-global-definition gbuild-global-assignment gbuild-global-reference ganalyze-variable gbuild-lexical-assignment gbuild-lexical-reference g build-dynlet gbuild-conditional gbuild-application g build-void gmaybe-name-value! gdecorate-source gget-global-definition-hook gput-global-definition-hook g session-id glocal-eval-hook gtop-level-eval-hook gfx< gfx=  gfx-  gfx+  gset-lambda-meta!  g lambda-meta  glambda? g make-dynlet g make-letrec gmake-let gmake-lambda-case g make-lambda g make-sequence gmake-application gmake-conditional gmake-toplevel-define gmake-toplevel-set gmake-toplevel-ref gmake-module-set gmake-module-ref gmake-lexical-set gmake-lexical-ref gmake-primitive-ref g make-const g make-void  ;%      !eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee "f l-bde397a-b9e #f l-bde397a-b9c $f l-bde397a-b9a %f l-bde397a-b98 &f l-bde397a-b96 'f l-bde397a-b94 (f l-bde397a-b92 )f l-bde397a-b90 *f l-bde397a-b8e +f l-bde397a-b8c ,f l-bde397a-b8a -f l-bde397a-b88 .f l-bde397a-b86 /f l-bde397a-b84 0f l-bde397a-b82 1f l-bde397a-b80 2f l-bde397a-b7e 3f l-bde397a-b7c 4f l-bde397a-b7a 5f l-bde397a-b78 6f l-bde397a-b76 7f l-bde397a-b74 8f l-bde397a-b72 9f l-bde397a-b70 :f l-bde397a-b6e ;f l-bde397a-b6c f l-bde397a-b66 ?f l-bde397a-b64 @f l-bde397a-b62 Af l-bde397a-b60 Bf l-bde397a-b5e Cf l-bde397a-b5c Df l-bde397a-b5a Ef l-bde397a-b58 Ff l-bde397a-b56 Gf l-bde397a-b54 Hf l-bde397a-b52 If l-bde397a-b4a Jf l-bde397a-b41 Kf l-bde397a-b3e Lf l-bde397a-b30 Mf l-bde397a-b26 Nf l-bde397a-b17 Of l-bde397a-b09 Pf l-bde397a-b07 Qf l-bde397a-b05 Rf l-bde397a-b03 Sf l-bde397a-b01 Tf l-bde397a-aff Uf l-bde397a-afd Vf l-bde397a-afb Wf l-bde397a-af9 Xf l-bde397a-af6 Yf l-bde397a-af4 Zf l-bde397a-ae6 [f l-bde397a-ad8 \f l-bde397a-aca ]f l-bde397a-ac8 ^f l-bde397a-abe _f l-bde397a-abb `f l-bde397a-ab9 af l-bde397a-ab7 bf l-bde397a-ab5 cf l-bde397a-ab3 df l-bde397a-ab1 ef l-bde397a-aaf ff l-bde397a-aa1 gf l-bde397a-a97 hf l-bde397a-a8c if l-bde397a-a75 jf l-bde397a-a67 kf l-bde397a-a64 lf l-bde397a-a56 mf l-bde397a-a54 nf l-bde397a-a52 of l-bde397a-a50 pf l-bde397a-a4e qf l-bde397a-a4c rf l-bde397a-a4a sf l-bde397a-a48 tf l-bde397a-a46 uf l-bde397a-a39 vf l-bde397a-a36 wf l-bde397a-a34 xf l-bde397a-a32 yf l-bde397a-a30 zf l-bde397a-a2e {f l-bde397a-a2c |f l-bde397a-a2a }f l-bde397a-a28 ~f l-bde397a-a26 f l-bde397a-a24 f l-bde397a-a22 f l-bde397a-a20 f l-bde397a-a1e f l-bde397a-a1c f l-bde397a-a1a f l-bde397a-a18 f l-bde397a-a16 f l-bde397a-a14 f l-bde397a-a12 f l-bde397a-a10 f l-bde397a-a0e f l-bde397a-a0c f l-bde397a-a0a f l-bde397a-a08 f l-bde397a-a06 f l-bde397a-a04 f l-bde397a-9f6 f l-bde397a-9e8 f l-bde397a-9da f l-bde397a-9cc f l-bde397a-9ca f l-bde397a-9c8 f l-bde397a-9c6 f l-bde397a-9c3 f l-bde397a-9c1 f l-bde397a-9bf f l-bde397a-9bd f l-bde397a-9bb f l-bde397a-9b9 f l-bde397a-9b7 f l-bde397a-9b5 f l-bde397a-9b3 f l-bde397a-9b1 f l-bde397a-9af f l-bde397a-9ad f l-bde397a-9ab f l-bde397a-9a9 f l-bde397a-9a7 f l-bde397a-9a5 f l-bde397a-9a3 f l-bde397a-9a1 "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ " ! gdefine-structure gdefine-expansion-accessors gdefine-expansion-constructors  eee f l-bde397a-967 f l-bde397a-92f f l-bde397a-8fd  " ejkskkkkk E c   glambda gargs ge1 ge2   eeee fl-bde397a-1001 fl-bde397a-1002 fl-bde397a-1003 fl-bde397a-1004  " ekskkkkk  g define-syntax gdefine-syntax-parameter gcall gself-evaluating? gconstant gother g syntax->datum ginclude-deprecated-features gissue-deprecation-warning fASequences of zero expressions are deprecated. Use *unspecified*. fsequence of zero expressions fDdefinition in expression context, where definitions are not allowed, gsyntax f1reference to pattern variable outside syntax form f)reference to identifier outside its scope funexpected syntax gmap f&encountered raw symbol in macro output fm f placeholder g placeholder  fno expressions in body fnonprocedure transformer ,0 f-invalid or duplicate identifier in definition greverse geach //  1 ,挤 fduplicate bound keyword fbad local syntax definition g $sc-ellipsis  g... gb  fl-bde397a-116a  "g gn  fl-bde397a-1167  "g gid  fl-bde397a-1165  "g 8 eee fl-bde397a-115f fl-bde397a-1160 fl-bde397a-1161  " ekkkkkk   finvalid argument list f%duplicate identifier in argument list glambda* grestS gkeyS  goptionalS  /  finvalid optional argument list  ga    ee fl-bde397a-11f4 fl-bde397a-11f5  "  greq gropt  fl-bde397a-11ea fl-bde397a-11eb fl-bde397a-11ec  " gcheck grest gopt l eeeee  fl-bde397a-11b4 !fl-bde397a-11b2 "fl-bde397a-11b0 #fl-bde397a-11ae $fl-bde397a-11ac % !"#$ &"% 'g orig-args (' )fl-bde397a-11ab *) +"(g* ,ek&+ -, .- //// 0// 1/ 2finvalid keyword argument list 3gallow-other-keysS 4gkeyword? 5gsymbol->keyword 6gk 76 8fl-bde397a-1233 98 :"7g9 ;fl-bde397a-122d " = ?grkey @? Afl-bde397a-1222 Bfl-bde397a-1223 Cfl-bde397a-1224 Dfl-bde397a-1225 EABCD F"@E Gek:>kF&+  HG IH Jfinvalid rest argument Kgcar Lgcadr M/1 Ngvector O_ PNO QP1 Rgcons Sgstring? Tg documentation UM VMU Wg vector->list Xgsyntax-session-id Yg make-fluid Zgerror [f9called outside the dynamic extent of a syntax transformer \g letrec-syntax ]g let-syntax ^gsyntax-parameterize _f bad syntax `gquote agref bfmisplaced ellipsis c/_ dglist eN1 f` gfextra ellipsis hg primitive ih! jfmissing ellipsis kgtmp lgcdr mgand-map nfhow did we get here ofbad `syntax' form p,M qf bad lambda rf bad lambda* sg case-lambda t,U u/U v,u wfbad case-lambda xg case-lambda* yfbad case-lambda* zg with-ellipsis {glet |fduplicate bound variable }/挤 ~,} fbad let gletrec f bad letrec gletrec* f bad letrec* gset! ,1/ gsetter gm-bde397a-16ac d  fl-bde397a-16ad  "m gtype gvalue gformform gee gww gss gmodmod  fl-bde397a-16a5 fl-bde397a-16a6 fl-bde397a-16a7 fl-bde397a-16a8 fl-bde397a-16a9 fl-bde397a-16aa fl-bde397a-16ab  "| ghead gtail gval  fl-bde397a-1696 fl-bde397a-1697 fl-bde397a-1698  " 8 eeeee fl-bde397a-1677 fl-bde397a-1678 fl-bde397a-1679 fl-bde397a-167a fl-bde397a-167b  " ekkkk   fbad set! gprocedure-property gvariable-transformer fnot a variable transformer g@ ,0/ e  fl-bde397a-16d4 fl-bde397a-16d5  " 8 fl-bde397a-16c8 fl-bde397a-16c9 fl-bde397a-16ca  " ek   g@@ gfree-id g remodulate  fl-bde397a-16e0  " fl-bde397a-16dd fl-bde397a-16de fl-bde397a-16df  " e   ,0/ gexp  fl-bde397a-1709 fl-bde397a-170a  " e  fl-bde397a-16fd fl-bde397a-16fe  " e  ,/// g with-fluids g syntax-case gp gids  fl-bde397a-1776 fl-bde397a-1777 fl-bde397a-1778  " gcvt g v-reverse gcvt*  fl-bde397a-1755 fl-bde397a-1753 fl-bde397a-1751  " gpattern gkeys  fl-bde397a-174e fl-bde397a-174f fl-bde397a-1750  " ggen-syntax-case g gen-clause gbuild-dispatch-call gconvert-pattern  eeee fl-bde397a-1749 fl-bde397a-1747 fl-bde397a-1745  fl-bde397a-1743     "   ek   ,  N0 gatom geach+  fduplicate pattern variable gpat  fl-bde397a-1812 fl-bde397a-1813  " gx gclauses  fl-bde397a-1807 fl-bde397a-1808 fl-bde397a-1809 fl-bde397a-180a  fl-bde397a-180b !  ""! #ek"  $# %,# &finvalid clause '00 (/' ),( *finvalid literals list +g macroexpand ,g identifier? -g datum->syntax .g syntax-source /ggenerate-temporaries 0finvalid argument 1ft 2gfree-identifier=? 3gbound-identifier=? 4gthrow 5g syntax-error 6gsyntax-local-binding 7gassq-ref 8funexpected id-var-name 9gpattern-variable :g syntax-locally-bound-identifiers ;gdefine! 1 ?,> @ Afl-bde397a-196a Bfl-bde397a-196b CAB D"@C E Ffl-bde397a-1967 GF H"EgG IeDkH J{I K LK1 M,L Ngout Ogin PNO Qfl-bde397a-1970 Rfl-bde397a-1971 Sfl-bde397a-1972 Tfl-bde397a-1973 UQRST V"PU WeVkH XW Y{W Zfl-bde397a-197a [fl-bde397a-197b \fl-bde397a-197c ]fl-bde397a-197d ^Z[\] _"P^ `e_kH a` bd` c{` dgmessage egarg fde gfl-bde397a-19a3 hfl-bde397a-19a4 igh j"fi kfl-bde397a-1986 lk m"Egl nejkm o5n pn qp rg string-join sgobject->string tg syntax-rules ugclause vu wfl-bde397a-19af xw y"vgx zgexpand-syntax-rules {g expand-clause |z{ }ee ~fl-bde397a-19ac fl-bde397a-19aa ~ "|} gxx  fl-bde397a-19a9  "g eky 5  1 _ _/ gdummy gkeyword gtemplate  fl-bde397a-19c4 fl-bde397a-19c5 fl-bde397a-19c6  " eky   de fl-bde397a-19ba fl-bde397a-19bb fl-bde397a-19bc fl-bde397a-19bd  " eky   5  000 g docstring 6u eeeeee fl-bde397a-19d5 fl-bde397a-19d6 fl-bde397a-19d7 fl-bde397a-19d8 fl-bde397a-19d9 fl-bde397a-19da  " gdots g docstrings  fl-bde397a-19ce fl-bde397a-19cf fl-bde397a-19d0 fl-bde397a-19d1  " ekkkk      t  gpatterns    fl-bde397a-19e7  "g gform  fl-bde397a-19e3  "g ekkkkkk  z 0 ,ό / 0ь ,Ҍ /ό ,Ԍ /Ҍ ,֌ gdefine-syntax-rule ,_/   fl-bde397a-1a50 fl-bde397a-1a51 fl-bde397a-1a52  " fl-bde397a-1a4d  "Eg ek  t , ,_//   fl-bde397a-1a5f fl-bde397a-1a60 fl-bde397a-1a61 fl-bde397a-1a62  " ek  t , glet* gf gbindings  fl-bde397a-1a80 fl-bde397a-1a81  " gv  fl-bde397a-1a76 fl-bde397a-1a77 fl-bde397a-1a78 fl-bde397a-1a79 fl-bde397a-1a7a  " fl-bde397a-1a68  "Eg ekk {  gbody  gbinding      fl-bde397a-1a8a  fl-bde397a-1a8b    "  ekkk { g quasiquote gunquote glev  fl-bde397a-1a9e fl-bde397a-1a9f  " gemit g quasivector g quasilist* g quasiappend g quasicons gvquasi  gquasi !  "eeeeeee #fl-bde397a-1a9a $fl-bde397a-1a98 %fl-bde397a-1a96 &fl-bde397a-1a94 'fl-bde397a-1a92 (fl-bde397a-1a90 )fl-bde397a-1a8e *#$%&'() +"!"* ,ek+ -, .- /./ 0fvalue 1 2fl-bde397a-1aa2 32 4"1g3 5e4k+ 605 7fquote 875 95 :89 ;, <; =</ >fl-bde397a-1aa5 ?> @"1g? Ae@k+ B7A CA DBC Egq FE Gfl-bde397a-1aa8 Hfl-bde397a-1aa9 IGH J"FI KeJk+ LK ML NM0 Ofl-bde397a-1aae PO Q"1gP ReQJk+ S0R T7R UR VTU Wgunquote-splicing XWK YX ZY0 [fl-bde397a-1ab3 \[ ]"1g\ ^e]Jk+ _0^ `7^ aW^ b`a c7 dc0 efl-bde397a-1b0e fe g"Egf hfl-bde397a-1b0b ih j"Egi kegkj+ l7k mgy nm ofl-bde397a-1b23 po q"ngp rm6 sfl-bde397a-1b11 tfl-bde397a-1b12 ufl-bde397a-1b13 vstu w"rv xeqkwkj+ y7x zflist {z |{0 }flist* ~} /1 ~ f list->vector gt-bde397a-1b34  gm-bde397a-1b35 d  fl-bde397a-1b38  " gelse  fl-bde397a-1b32  "g ekkwkj+   fvector gt-bde397a-1b19  gm-bde397a-1b1a d  fl-bde397a-1b1e  " gls  fl-bde397a-1b18  "g ekkkkkj+   fl-bde397a-1abb  "1g ek+ 7 fl-bde397a-1ac3 fl-bde397a-1ac4  "F fl-bde397a-1abf fl-bde397a-1ac0  " ek+   0 fl-bde397a-1ac9  "1g ek+ 0 7   W  0 fl-bde397a-1ace  "1g ek+ 0 7 W  ek+ 7  c/ gdx  fl-bde397a-1ae4  "g gdy  fl-bde397a-1ae0  "g m fl-bde397a-1ada fl-bde397a-1adb  " fl-bde397a-1ad5 fl-bde397a-1ad6  " ekkk+  7 ekkk+ z } {/ gstuff  fl-bde397a-1ae7  "g ekkk+ z ~/ fl-bde397a-1aea  "g ekkk+ } ekkk+ } c fl-bde397a-1aee fl-bde397a-1aef  " ek+ 7  fappend fl-bde397a-1af6  "1g ekk+  0/ m fl-bde397a-1afd fl-bde397a-1afe  " ekk+  fl-bde397a-1b3e   "Eg  fl-bde397a-1b3b     "Eg   e k + `  gt-bde397a-1b43  gm-bde397a-1b44 d  fl-bde397a-1b48  " fl-bde397a-1b41  "Eg ekk + d gt-bde397a-1b57 gt-bde397a-1b56  gm-bde397a-1b58  d !   "fl-bde397a-1b5c #fl-bde397a-1b5d $"# %"!$ &gx* '& (fl-bde397a-1b51 )fl-bde397a-1b52 *() +"'* ,fl-bde397a-1b4d -fl-bde397a-1b4e .,- /". 0ek%k+/k +  1R0 2 320 4gt-bde397a-1b63 54 6gm-bde397a-1b64 76d 87 9fl-bde397a-1b68 :9 ;"58: "Eg= ?ek;>k + @!? A BA0 Cgt-bde397a-1b6f DC Egm-bde397a-1b70 FEd GF Hfl-bde397a-1b74 IH J"DGI Kfl-bde397a-1b6d LK M"EgL NekJMk + ONN P QP/ Rgt-bde397a-1b7b SR Tgm-bde397a-1b7c UTd VU Wfl-bde397a-1b7f XW Y"SVX Zfl-bde397a-1b79 [Z \"Eg[ ]ekY\k + ^] _0 `_/ aginclude bgopen-input-file cgabsolute-file-name? dg in-vicinity efBrelative file name only allowed when the include form is in a file fg file-encoding ggset-port-encoding! hfUTF-8 ig eof-object? jgclose-input-port kgread lgfilename mgdirname n ofl-bde397a-1bba po q"ngp rgfn sr tfl-bde397a-1bb5 ut v"sgu w6l xfl-bde397a-1bb1 yfl-bde397a-1bb2 zxy {"wz |gdir }| ~fl-bde397a-1bab ~ "}g gfile  fl-bde397a-1ba7  "g gsrc  fl-bde397a-1ba5  "g g read-file  fl-bde397a-1b8c  " fl-bde397a-1b8b  "Eg ekqkkv{kkkk \ ginclude-from-path g%search-load-path ffile not found in path fl-bde397a-1bc9  "sg fl-bde397a-1bc5  "sg fl-bde397a-1bc1 fl-bde397a-1bc2  "w fl-bde397a-1bbe  "Eg ekkkk  a f*expression not valid outside of quasiquote gset-procedure-property! f$variable transformer not a procedure gmake-variable-transformer gidentifier-syntax 8 fl-bde397a-1bdd  "g fl-bde397a-1bda  "g ek          ,    ,    ek   // / , gexp1 gvar gexp2  fl-bde397a-1bec fl-bde397a-1bed fl-bde397a-1bee fl-bde397a-1bef fl-bde397a-1bf0  " ek       ܌        , gdefine* gb0 gb1  fl-bde397a-1bfa fl-bde397a-1bfb fl-bde397a-1bfc fl-bde397a-1bfd  " fl-bde397a-1bf7  "Eg ek ]   fl-bde397a-1c08 fl-bde397a-1c09  " ek ]C5hj,35HHh]6gx  gmod  gfilenamefice-9/psyntax.scm        gnamegtop-level-eval-hookC  h]$"45$4>"G"4$ 45"455$8$/45$45$4545CCCCCgsymbol  gmodule  gv  L gval  ^ gfilenamefice-9/psyntax.scm )   *   *  *  +   +  " +  / ,  7 , $ 8 - ( = - 8 ? - ( D . ( L ,  L , T 0 W 0  [ 0 ^ 1  ^ 1  a 2  k 2  l 2 % v 2  w 3  ~ 4  3   gnamegget-global-definition-hookC   h@]$4 && 45$C CCC gname  ?gval  ?gmeta   ;gv  2 ;gfilenamefice-9/psyntax.scm <     =     >  ?  ?  $ ?  ( ? , @ - / @ & 2 @  :    ? gnamegmaybe-name-value!C h] Cgsource  gfun-exp  garg-exps   gfilenamefice-9/psyntax.scm H       gnamegbuild-applicationC  h]$$ 6$ 4455$66$6$74455$"4455$ 66  66gmod  gvar  g modref-cont   g bare-cont   gkind   gmod   gfilenamefice-9/psyntax.scm \   ]  _   `   _  a $ b  - a 0 c . 3 c ; 9 c . : c " > c  D e  M d  V a \ f  e a h g 3 k g @ q g 3 r g ' v g  | h "  h 3 h " g  i  j  k ) k  ^ !  gnameganalyze-variableC h0]   Cgsrc  )greq  )grest   )gvars   )gmeta   )gexp   )gbody   )gfilenamefice-9/psyntax.scm        )           ) gnamegbuild-simple-lambdaC h ](C Cgsrc  gexps  gfilenamefice-9/psyntax.scm              gnamegbuild-sequenceC   h]M        $B  &2  4 5$"      ""4L>"G               Cgsrc  gids  gvars   gval-exps   gbody-exp   gf   gf-name   gvars   gids   gbody + =gproc = gmeta V gv q }gfun-exp gnames ggensyms gvals gbody gfilenamefice-9/psyntax.scm                    #  ) +   +   2   5  ; :   =  B   F =  I   V > Y ?  ] ?  a ?  e ? k @ - n @ & q @  y        $        $  gnamegbuild-named-letCO  h8](C4L>"G Cgsrc  6g in-order?  6gids   6gvars   6gval-exps   6gbody-exp   6gfilenamefice-9/psyntax.scm        &    6 gnameg build-letrecCO hz] Crgx  gfilenamefice-9/psyntax.scm     gnamegsyntax-object-expressionC h(](C"glabels  %gbindings  %gr   %gfilenamefice-9/psyntax.scm -   .   0   0 %  1 $  1 1  1   1  % 0   % gnameg extend-envCO h(](C"glabels  (gvars  (gr   (gfilenamefice-9/psyntax.scm 5   6   8   8 )  9 (  9 C  9 L  9 5  9 "  9  ( 8   ( gnamegextend-var-envCO hH](C&"$ 4L5C"gr  Cga Cgt   *gfilenamefice-9/psyntax.scm ?   @  A B  B  C   C  . C  1 D  6 D + 8 D  9 D  = E # C E   C gnamegmacros-only-envCOh]45456gtype  gsym  gval   gfilenamefice-9/psyntax.scm T   $  &   $    gnameg global-extendCh8]$C$"45 $ & CCCCgx  6gfilenamefice-9/psyntax.scm c   e d      d     / f   6 gnamegid?Ch ](C44554L5Cgls  gfilenamefice-9/psyntax.scm              %            *        gnameg gen-labelsCO !h](C" L "j$^45 $H &6 L (" 45 """"""" GLL"Wgids  gi  gx  gm1  J igm2  J igsymname  gmarks  gfilenamefice-9/psyntax.scm       <  )  u   u  q  !   % q  &   D t  I   J t ( J t T   [  o r        !  +    gnamegfC"hx]+(C45454545OQ4 >"GCpgids  {glabels  {gw   {glabelvec   ugn   rg symnamevec  . ogmarksvec  . ogf  = ^gfilenamefice-9/psyntax.scm                    !  $ (  ? .   =   `   x   y  z    { gnamegmake-binding-wrapC!h](+(C(" 45C(" 45(" 45Cygw1  ygw2  ygm1   ygs1   ygm2  ! ;gm2  @ Zgm2  ] wgfilenamefice-9/psyntax.scm        '            !  $ !   )   0  <   @  @   H   O  ]  ]   e   l  x    y gnameg join-wrapsCh8]&C(C(C&"Cgx  6gy  6gfilenamefice-9/psyntax.scm           "   &  )   ,  & 4    6 gnameg same-marks?CO#$h]#(D&" $m45"Y$"" "&#4L 5$  D"" ""a("A""&+4L4 55$4 5D"" " gsym  gsubst  gmarks   gfst   gsymnames  0 gn  @ gi  F gsymnames   gi    gfilenamefice-9/psyntax.scm                    " "  . ,   0   0   5   9   :   @  F   K   O   T  ( `   g   m   m   r   x   y      *                 -  !    '            (    (                9   gnamegsearchC%&!hR]:OLQ$45$CC" 6$45 $| &n  (" 454> G$C45$CC"e"a"]Jgid  gw  gsearch  gt  & 4gid  j gw1  j gm1  t gm2  t gmarks  gnew-id  gmarks  gt   gfilenamefice-9/psyntax.scm           !  $  / &   &  <  ! >  . B   B   E   I   J   j  q  % t  4 t   ~      +  6  +        (      gnameg id-var-nameCO#h8]B"_(C& "  $"w""["G( "4L    5"""a45"I$ "4L    5" ""gw  5gmod  5gsubst   egresults   egfst   egsymnames  2 egmarks  2 egsubst  i gsymnames  i gmarks  i gresults  i gsymnames  m gmarks  m gresults  m gw gsubst  )gsymnames  )gmarks  )gresults  )gn  )gi  gresults  gw gfilenamefice-9/psyntax.scm (   * +  -   -   .   .   /  ) /  -   2 0  9 2  = 2  Q 3  e 4  i 6 m 7 s 8  v 9  9  :  : $ ;  ; ! < 7 < , < !  '          ;  ;  :  7 @ A  A B  C  C  D  D  E  F  F # G 9 G . G #   '                F   F   E   B  , J  - J  5 J A  5 gnameglocally-bound-identifiersCOh,]"d("a$"3$+45 $ &  """$ """$L6C$gids  ~gids  jgx   Xgfilenamefice-9/psyntax.scm                e  d  %   ) d  *   F f  \   _  " e   j  v   |    ~ gnamegvalid-bound-ids?COh0] ""(C4L5$C""gids  0gids  (gfilenamefice-9/psyntax.scm              *   4       "   (   (    0 gnamegdistinct-bound-ids?COh_] (C" "$45 $o &]$N45 $8 &&  &4L  5"""""""""w""o""g$C";Wgx  glist  gj  gt  gfilenamefice-9/psyntax.scm             |     # |  $   1 | 5   f } g   n   o   t   u   w     %    gnamegbound-id-member?COhd]"(CC"R$G45 $5 &' 4L 5 C"""((C""\gx  gw  gdefmod   g expression  S egwrap  S egmodule  S egfilenamefice-9/psyntax.scm           "   &   '   C  L   N  S   S  [   q   t   x   {  -     gnamegwrapCO'(h@]L$'45$4>"G""6gx  9gw  9gs   9gdefmod   9gfilenamefice-9/psyntax.scm   8  8   8  9 9    9 gnameg source-wrapCO)h]D(C4L4$,45 $ & """5$"> G   4L   5   4L5Cgbody  gr  gw   gmod   ge  gprops  R egtype  o gvalue  o gform  o ge  o gw o gs o gmod o gfirst  gfilenamefice-9/psyntax.scm         3  +          "   #   R   R   W   [  n   r       ,  4  ,    gnamegdobodyCh0] LOLLQ456gbody  +gr  +gw   +gs   +gmod   +gdobody   )gfilenamefice-9/psyntax.scm      +    + gnamegexpand-sequenceCO)*+-.h]LC   C2h g]LLLLLLLL6_ge1  ge2  gfilenamefice-9/psyntax.scm      C34h]LLLL6gbody  gr  gw   gs   gmod   gfilenamefice-9/psyntax.scm  .   0   C5789:;<=>?@AB h]#4LL5L &r45$'LLLL45$"LL645$.4LLLLL54>"G"LC45$4 5$"/45$"L & 45"$LLLL LL6L  &"L $LLLL  LL6LC4 5$"/45$"L & 45"$-4LLLLL54>"GLCLCgx  ge1  ge2   g when-list   gbody   gx  p gt  gt  gt  1 pgt  G mgx    gfilenamefice-9/psyntax.scm   -      '      $ !  * %  $ )  4  . 8  4 <  . @  * B  G H  L J  * P  $ Q  * U  0 Y  * ]  & ^  + j  K l  N p  + p  * s    &     (  .  (  $  (  .  (  $  4  (  :  @  :   5  :  $   (   $   9   < %  ( )  $ -  * 1  $ 1  ?  $ C  * G  $ G  X  0 \  $ ]  6 a  < e  6 t   u  !   A   D   !     I   CCDA9?><:F   GIKHLMNOPQ)   h]84LLLL4L$,4L5 $L &L "L"L"L5$"L> G4LL5$B &2 45$"L "" LLCgprops E Xgtype b gvalue b gform  b ge  b gw  b gs  b gmod  b gexp gmeta gv   gfilenamefice-9/psyntax.scm : $               E   E   J   N  a   e   t  ; &   =    > ?  ?  ?  ? @ - @ & @       CJR'(ShN]LLLLLLLLL6Fgfilenamefice-9/psyntax.scm K &  L (   C7h` ,3(C4L4$,45 $ & """5  $ "   $ " > G     $k4 5$4O>o"A4  5$#4   L O>;" 4   >*"% $%4L    L O>"$I4 5$'4L    L L O >" 4   >"$"$4L  54L5$45$4L4L  4 $,4 5 $ & " " " 5$"> G4L554L>"G45$ ""45$4L4L  4 $,4 5 $ & " " " 5$"> G4L55""H$4L4L  4 $,4 5 $ & " " " 5$"> G4L554L>"G"~45$o4L4L  4 $,4 5 $ & " " " 5$"> G4L54455$ "    $B &2 4 !5$"! "" >"G"""$+4L  54 5$")$ 4L5$"#"$%$"!&$"$"'$&"$4(455$"45$4)455" 4*454+5>"WG"P4,5$A$24-5$""4.45>"G""""""&4L  4 $,4 5 $ & " " " 5$"> G4L5$B &2 4 !5$"! ""  4/>"G"0L  L O"1$R4 24L $'43 5$44  >"G""  54L  5>"N4 54L $'43 5$44  >"G""  54L  5>Y"T&24L     54/>"G"6     LO  G"gbody  \gr  \gw   \gs   \gm   \gesew   \gmod   \gexps   \ge   gprops W jgt j }gtype  1gvalue 1gform 1ge 1gw 1gs 1gmod  1gtmp  gtmp  gtmp  L gn   gr   gprops   (gtype  2 mgvalue  2 mgform  2 mge  2 mgw  2 mgs  2 mgmod  2 mge  o gprops    gtype   Ngvalue   Ngform   Nge   Ngw   Ngs   Ngmod   Ngprops   gtype   gvalue   gform   ge   gw   gs   gmod   ge   #gprops  z gtype   gvalue   gform   ge   gw   gs   gmod   ge   gfun-exp   2garg-exps   2gexp  2 gmeta  K ugv  f rgn   gt   gt   gtype   gold  w gprops  C Vgtype  ` gvalue  ` gform  ` ge  ` gw  ` gs  ` gmod  ` gexp   gmeta   gv   gx   gx   gexps  2 \Rgfilenamefice-9/psyntax.scm      !          #   '   (   W   W   \   `  j  -          C     "   <         "   (   "      +                           1   5   D  o  + o  " r  $   (   .   (   $   0   &   ,   &   "   4                                 %  P  4 S  . f   g  ' l   u   z   ~                           '      #  ( (  " ,  ( 0  " 4   5  " 8   A   F   J   K   z   z                  #      !      3          e #      !  e #     g &     f  c $   2 `  7   ; =  >   K > N ?  R ?  V ?  Z ? ` @ - c @ & f @  n        "     # #  #   N  M   O  M   P   P  P 1  Q   % &  #   &  ? ) ' M )  N * , Q * C Y * , ] ) " c + ' k ) " l , - o , > w , - w , " ~ 3 (  3 5  3 H  3 (  / $  / -  / $  0 -  / (  1 2  1 :  1 2  / (  2 (  2 8  2 K  2 (  6 +  6                C   C   H   L  _   c   r   7 -     =      >  ?   ?   ?   ?  @ -  @ &  @         7 $   , 5  9 &  : >  ? > 3 @   H 8  I 8  S 8 T 9 w   x @ 0  >   B   B 3     8   8   8  9     D 0  B   G -  G "  H /  H &   1 F ! 5  : O  \ O   \ gnamegscanC Th]/O L L LLLLLLLLLQ4> G(  CL "8 ( "7   4 5$ 4 5"    "   "6gbody  gr  gw   gs   gm   gesew   gmod   gscan   gexps  H gin e gout e ge t  gfilenamefice-9/psyntax.scm   1 R  B R 8 G R  K Q  S T W   e X  k Y  t Z t Z  y [  z \ ' \ # \ 6 \  [  X  X ) X  V   gnamegexpand-top-sequenceCO F    h ]4455$ "    $B &2 45$" "" Cgname  ge  gfun-exp  I `garg-exps  I `gexp  ` gmeta  y gv  gfilenamefice-9/psyntax.scm _       !     3          e #    *  ! , e # 0   A g & D   I f I c R   ` `  e   i =  l   y > | ?  ?  ?  ? @ - @ & @     !  gnamegexpand-install-globalCU?>:;VW hp8]4L5"W(C&"&"&"$ "6"0ge  pg when-list  pgresult  pgl   hgt   Ngfilenamefice-9/psyntax.scm k   m  m   n  o  q   q  R q  U r  [ r  _ s & a s 1 f t & h s  h n   p gnamegparse-when-listCO IKHUXYMLZ[4\*V5]+^ab3h8]$C$"45 $ & CCCC~gname  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CGUh(t]4LLL54LLLL5LLDlgname  $gfilenamefice-9/psyntax.scm      +    $    $ CUh8.]$"3$+45 $ &  """$L"$4L5"$"3$+45 $ &  """$4L5"o("c" "V$<45 $* & 4L 5"4""""6C&gname  6gargs  6ge1   6ge2   6gvars  K #gls  K #gw  K #gfilenamefice-9/psyntax.scm  e d      d     2 f  E   K =  N ? R > U ?  V ? / [ ? 5 ` ? / c ? ) o ?  r e v d  ~   d    f  > @  @  > H  >   >    E      E   C # =  & = " 2 =  4  (  6 CG'(Uhp] 4LLL54LLLL54LLL5L$'45$4L>"G""LLDgname  jgargs  jge1   jge2   jge  . bgfilenamefice-9/psyntax.scm      +      . .   .   6 8  7 8  A 8 B 9 j    j Ch8]$C$"45 $ & CCCCgname  6gval  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CGhs]LLLLDkgname  gval  gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCgname  6gval  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CChs]LLLLDkgname  gval  gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCgname  6gval  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CDhs]LLLLDkgname  gval  gfilenamefice-9/psyntax.scm         C)-h]o$4L545$")$ 4L5  $ " "  $ D $ D $H$ D4L5" D$4L> G     $ D$   D$14L 5"f $<4 > G"! $  D$ D$D$D$45"45"D45" 6$"4?$LO@""$+4LLLO?$LO@""$ 4?$ O@"R"N!$B45" 6$ 4"?$#O@""$$B45" 6$ 4%?$&O@""'D")4(5$)D*D$4+5 $  & 4L 54,4+5 $  & ""5$"$" $""q"!"" ge  gr  gw   gs   grib   gmod   gfor-car?   gn   gt   Xgt < Ogb  X gtype ] gfirst  gftype   gfval  gfform  gfe  gfw  gfs  gfmod   ge   gr   gw   gs   gmod   gtmp  U  gtmp  d gtmp  s gtmp   Xgtmp  j gprops  = Pgt  P cgt  j }!gfilenamefice-9/psyntax.scm            N  M  / O 3 M  4 P  < P L P 1 U Q  X  ]   ]  h  m  & y              .     !              0   2   @   I   K   M   b   k   l          0                               +   4   6   C   L                '                                     =   =   B   F  P   j   j     Z   gnameg syntax-typeCO )h]<4L4$,45 $ & """5$"> G  L  6ge  gr  gw   gmod   gprops  E Xgtype  b gvalue  b gform  b ge  b gw  b gs b gmod b  gfilenamefice-9/psyntax.scm                 E   E   J   N  a   e      gnamegexpandCO! LZM)XY h] LC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm q      C h`] LCXgvar  gfilenamefice-9/psyntax.scm s      C'(UH h] LC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm q      C h`] LCXgvar  gfilenamefice-9/psyntax.scm s      C*+2hg]LLLLL6_ge1  ge2  gfilenamefice-9/psyntax.scm      C- '( hh]45$4>"G C4LL$'4L5$4LL>"G""LLL56gfilenamefice-9/psyntax.scm  "  "  $   %   $  !   + ' ' ,   4 8  5 8  ? 8 @ 9 c   e '   e C34579: h8] 4LL545$LLLLL6 Cgx  4ge1  4ge2   4g when-list  4gfilenamefice-9/psyntax.scm  .  .   /   /   /   /  + 0  /    4 CGCDJ+h5,3$ C$"$6$4> G    4L  4$,45 $ & """5  $ "  > G   "  $L4$,45 $ & """5  $ " $/45 $ & 4 5"""       6 $L4$,45 $ & """5  $ " $,45 $ & """$-45 $ &  """  4L   O O5  6$M4L4L$'45$4>"G""55 C$LOO6$L4L4$,45 $ & """5  $ " > G     4L     5     6$Q45$LO@45  $LO @6$LL6$14 5$!LLO@6"$"#$"$$?%4L$'45$4>"G""56&$?'4L$'45$4>"G""56($?)4L$'45$4>"G""56*4L$'45$4>"G""56-gtype  gvalue  gform   ge   gr   gw   gs   gmod   ge  [ gr [ gw [ gs [ gmod [ gprops gtype gvalue  gform  ge  gw  gs  gmod  gid   gprops G Zgsource  gname  gx   gprops  gsource   gvar  gmod  gexp    ge  9 gprops ~ gtype  gvalue  gform  ge  gw  gs   gmod   gtmp   ?gtmp  ?gtmp  l +gfilenamefice-9/psyntax.scm         '   C  L   M  ( ^  i   r   w   {   |                                   G   G   L   P  ]   a  ' b   z  +              7   $                             $ !   U  $ V      o         $     8   8   8  9      $          + o  4   9  . 9  & <   E   J   N   O   ~   ~                      Z * c    3     8   8   8  9     3     6     8   8   8  9 >   @ 6 I   N 9 O   W 8  X 8  b 8 c 9     9  ; %     8   8   8  9     ; |   gnameg expand-exprCO "+1)hQ]94LLL4$,45 $ & """5$"L> GLL6Ige  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm C #               E   E   J   N  a   e      C h0] 4LLLLLO5 LLCge0  )ge1  )garg-exps   )gfilenamefice-9/psyntax.scm  C   B     ) C3h8]45$LLO@6gx  3ge  3gr   3gw   3gs   3gmod   3gtmp  3gfilenamefice-9/psyntax.scm ?   3 gnamegexpand-applicationCO#'( # h@]2$G4L54L5L$'45$4L>"G""C$e"w4545L$'45$4L>"G"""&$C4L5" "45 $ & "l L$'45$4L>"G""L$ L" C$>&2 L$ L" C"O"K""$IL4L$'4L5$4L>"G""LLL56L$'45$4L>"G""Cgx  <gm  <ge   Pgn  b ge  k gv  gi  gw  gms  gss  ge   7g expression  Y kgwrap  Y kgmodule  Y kg expression   gwrap   gmodule   gs   gfilenamefice-9/psyntax.scm i  j  j l   l 0  l   m   m 0  m   l   k  & 8  ' 8  1 8 2 9 S   W j \   b   e  . k   s 8  t 8  ~ 8  9          $  :  $       j   p  q  q 3 q      z   8   8   8  9 < { ' B | ' F } ; I } 5 J } + P ~ 1 S ~ + T {  Y   Y y  a   k r  n r r r  u r 0 z r  ~    v '  v 0  v B  v 8  v L  v      t         j   (   6   %     8   8   8  9        8   8   8  9 Z  < gnamegrebuild-macro-outputCh^]LLLLLL6Vgk  gfilenamefice-9/psyntax.scm     #   C#'(h]OLQMOY444L$'45$4>"G""5545>ZCZFgp  ge  gr   gw   gs   grib   gmod   grebuild-macro-output   gw  H  gfilenamefice-9/psyntax.scm g  7  :  @  ' A   C   F  G   H   H  # K   S 8  T 8  ^ 8 _ 9        gnameg expand-macroCO$"U)GCDT*+h(](LCL4LLL54L5Cgforms  %gfilenamefice-9/psyntax.scm  #   %  )   8   >   8   /   / !  2 #  / $  )  % gnamegfCh8n] L OLLLL L Q45LLLLLL6fge1  8gf  *gfilenamefice-9/psyntax.scm   # 8    8 C34h(](LCL4LLL54L5Cgforms  %gfilenamefice-9/psyntax.scm  7   9  =   L   R   L   C   C !  F #  C $  =  % gnamegfCh8] LOLLQ45LLLLLL6gforms  8ger  8gw   8gs   8gmod   8gf   *gfilenamefice-9/psyntax.scm  .   7 8  0  8 CU)h]I4L4$,45 $ & """5$"L> G L 6gx  ge  gr   gprops  O bgtype  l gvalue  l gform  l ge  l gw  l gs  l gmod l  gfilenamefice-9/psyntax.scm  2   <   D   4              O   O   T   X  k   o      C'( U)h]I4L4$,45 $ & """5$"L> G L 6gx  ge  gr   gprops  O bgtype  l gvalue  l gform  l ge  l gw  l gs  l gmod l  gfilenamefice-9/psyntax.scm  2   <   D   4              O   O   T   X  k   o      CU)h]I4L4$,45 $ & """5$"L> G L 6gx  ge  gr   gprops  O bgtype  l gvalue  l gform  l ge  l gw  l gs  l gmod l  gfilenamefice-9/psyntax.scm  B   L   T   D              O   O   T   X  k   o      C$hc ]( L 64L4$,45 $ & """5  $ " LL> G      $4L   544  55$,45 $ & """4 455 L L  L L L L 4L   5 "  $"  $e4L   544  554L5 L L  L L L L L4L4L  4 $,4 5 $ & " " " 5$"> G4L54545$" 45L5"  $;4 5$! L L O @ 6 $'L   L L O 6(h4LLO4L $'4 5$4 >"G""  55(C C4L5$"4L >"GL4LL544 55454!LLO4554"LLO4L $'4 5$4 >"G""  55("  (C4#L >"G C[ gbody  gids  glabels   gvar-ids   gvars   gvals   gbindings   ge   ger   gprops ` sgtype ~ gvalue ~ gform ~ ge ~ gw ~ gs  ~ gmod  ~ gid  }glabel  }gid  gvar  }gupdate   gupdate   'gupdate  / ;gid   glabel   gtrans-r   gupdate   gupdate   gupdate   gprops  G Zgtype  d gvalue  d gform  d ge  d gw  d gs  d gmod  d gexpanded   gp   gtmp   =gexps   gexps   gids   gvars   gval-exps   gbody-exp   /gfilenamefice-9/psyntax.scm     %         *      ! '   ,   0   1   `   `   e   i  }  !      #      %         7    7  8                      "          $   /   /   8   >  $ C  $ H  2 M  $ R  $ U  C `  : c  4 e  8 h  * k  $ }        #         %         (                        "                        '   3   G                G   G   L   P  c   g   v    G    (   )   )  +   + #  +    9   3   3   '      "   -       m   s   t  -     8   8   8  9      8   8   2   -                 (      #   '   #   +   G   +      -   6   -   - $  - 2  2 :  - ;  = K   S 8  T 8  ^ 8 _ 9      H   H   B   =   -                          gnamegparseChg]L4LLL5C_gx  gfilenamefice-9/psyntax.scm  !   5   -   Chp]%O LLLLLLLLQ4LO56gbody  ng outer-form  ngr   ngw   ngmod   ngr   ngribcage   ngw   ngparse  3 n gfilenamefice-9/psyntax.scm                           :   ,       3  S   g   h  ( i   j  * k  5 l  D n    n gnameg expand-bodyCO%+)h]94L4LLL$L"L4$,45 $ & """5$"L> G4LL5L5Cxgx  gprops V igtype s gvalue  s gform  s ge  s gw  s gs  s gmod  s  gfilenamefice-9/psyntax.scm    0   0      "    "   &   '   V   V   [   _  r   v     0  "  Chp9]4L5$V4L 54L L5L4L 4L L54LLLLLLO5L5L L6L61gid  lgval  lge1   lge2   lglabels   cgnew-w  ! cgtrans-r  6 Wgfilenamefice-9/psyntax.scm             !   +   0  ( 6   9   [   c   h  & l    l C'(h-]45$'LLLLLLLLO@4L$'45$4>"G""56%grec?  yge  ygr   ygw   ygs   ygmod   ygk   ygtmp  ygfilenamefice-9/psyntax.scm   ? # " @   H 8  I 8  S 8 T 9 w   y #   y gnamegexpand-local-syntaxCO &Th(] 4545$C6gexpanded  "gmod  "gp  "gfilenamefice-9/psyntax.scm '    (  )   )  + # " +   " gnamegeval-local-transformerC'U IK h]#$r45 $b &V $K  4L545$")$ 4L5$""&x"C45 $W &I$>45 $, &  &L  6C"""""45 $ & ""4 5 $ " &4L54L 5CCCCCCge  }gr  }gmod   }gwrap  4 Igmodule  4 Igid  I ugn  T ugt  _ gt  ~ gb  ugj   gfilenamefice-9/psyntax.scm 2     3     _     & ` *   4 :  :   < : , C   I : L =  T : W N _ M  q O u M  v P  ~ P P 1 Q  : ?  ? ) ?  @ ! @   |    |   }                 S s " U   _ s  ` t  i t - r t 0  } gnameg ellipsis?CO(+hO]L4L56Ggfilenamefice-9/psyntax.scm  H   H    C_h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Ch_]L4L56Wgr  gfilenamefice-9/psyntax.scm  L   L    Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chn]LL6fga  gb  gfilenamefice-9/psyntax.scm J  J   C h]45$ LO@45"+4?$ LO@L6$4 ?$  LO@""gargs  grreq  gtmp  gtmp  ( gtmp  3 Ygfilenamefice-9/psyntax.scm E  Q N  S N ' Y N    gnamegreqCh0]4L$ "5$DL6greq  .grest  .gfilenamefice-9/psyntax.scm O   Q Q !  Q *  Q  P $ R ( T  * T & . T   . gnamegcheckCh0]OOQLQ6g orig-args  ,greq  ,gcheck   ,gfilenamefice-9/psyntax.scm D  * V  , V   , gnameglambda-formalsCO)!'(h, 3 $45" 4L 5 4L 5 L45$ 45" 4L4L$'45$4>"G""54L  54L  556 ge  gr  gw   gs   gmod   greq   grest   gmeta   gbody   gids  gvars ) glabels 2  gfilenamefice-9/psyntax.scm Y  Z  Z   Z )  Z   Z  ! [  ) Z  , \  2 Z  9 _ G _ # H _ - X a ]   e 8  f 8  p 8 q 9   b  c  a ]   gnamegexpand-simple-lambdaCO*+ha]L4L56Ygfilenamefice-9/psyntax.scm  k  k #  k *  k    C_h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chq]L4L56igr  gfilenamefice-9/psyntax.scm  u   u (  u ,  u    Chn]45Cfga  gb  gfilenamefice-9/psyntax.scm  r  r   Ch]L4L56xga  gb  gfilenamefice-9/psyntax.scm  s   s &  s *  s    Chn]45Cfga  gb  gfilenamefice-9/psyntax.scm  p  p   Ch]L4L56xga  gb  gfilenamefice-9/psyntax.scm  q   q %  q )  q    C hn]45Cfga  gb  gfilenamefice-9/psyntax.scm  n  n   Chw]L4L56oga  gb  gfilenamefice-9/psyntax.scm  o   o %  o    Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chn]LL6fga  gb  gfilenamefice-9/psyntax.scm m  m   Ch ]245$ LO@45"45"45"`45"+4?$ LO@ L6$4 ?$  LO@""$4 ?$  LO@"~"z$4?$ LO@"I"E$4?$ LO@""gargs  grreq  gtmp  gtmp  ( gtmp  7 gtmp  F gtmp  U gtmp  ` gfilenamefice-9/psyntax.scm h  ~ w  w ( w    gnamegreqC+hX]LL4L56Pgfilenamefice-9/psyntax.scm  {   { *  {    C_ h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chh]LL4L56`gr  gfilenamefice-9/psyntax.scm     ,      C hn]45Cfga  gb  gfilenamefice-9/psyntax.scm       Chw]LL4L56oga  gb  gfilenamefice-9/psyntax.scm     *      Chn]45Cfga  gb  gfilenamefice-9/psyntax.scm       Chw]LL4L56oga  gb  gfilenamefice-9/psyntax.scm     )      Ch8]$C$"45 $ & CCCCga  6ginit  6gb   6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Ch]LLL6xga  ginit  gb   gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C.hn]LLL6fga  gb  gfilenamefice-9/psyntax.scm  }   }    Ch0]345$LO@45"45"45"d45"-4?$LO@  L6$4 ?$ LO@""$4 ?$LO@"x"t$4?$LO@"A"=$4?$LO@" "gargs  *greq  *gropt   *gtmp  *gtmp  * *gtmp  9 gtmp  H gtmp  W gtmp  b  gfilenamefice-9/psyntax.scm x     (    * gnamegoptC+hX]LLL4L56Pgfilenamefice-9/psyntax.scm  (         C_ 01/h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chh]LLL4L56`gr  gfilenamefice-9/psyntax.scm  *   !      C2hn]45Cfga  gb  gfilenamefice-9/psyntax.scm       Chw]LLL4L56oga  gb  gfilenamefice-9/psyntax.scm  (         C3hH]45&4$C$"45 $ & CCCCCgaok  Egr  Egfilenamefice-9/psyntax.scm   !     e  d      d    < f   E Chy]LLL4L56qgaok  gr  gfilenamefice-9/psyntax.scm  (         C3h ]45& 45CCgaok  ga  gb   gfilenamefice-9/psyntax.scm   !      !      Ch]LLL4L56gaok  ga  gb   gfilenamefice-9/psyntax.scm  (         C3ha]45CYgaok  gfilenamefice-9/psyntax.scm       Chj]LLL4L56bgaok  gfilenamefice-9/psyntax.scm  (         C4hX]$"3$+45 $ &  """$ 456Cga  Rginit  Rgk   Rgb   Rgfilenamefice-9/psyntax.scm  e d      d     2 f  E   H  - P  #  R Ch]LLLL6ga  ginit  gk   gb   gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCga  6ginit  6gb   6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C5h(] 4455LLLL6ga  &ginit  &gb   &gtmp   &gfilenamefice-9/psyntax.scm      /      $  &    & Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C5Ih(] 4455LLLL6ga  %gb  %gtmp   %gfilenamefice-9/psyntax.scm      /      #  %    % Chc]L45$LO@45"45"L45"45"45 "45 "h45 "/ 4  ?$ LO @   L6 $ 4 ?$LO @"" $ 4 ?$LO @"r"n $ 4 ?$LO @"9"5$ 4?$LO@""$ 4?$LO@""$ 4?$LO@""$ 4?$LO@"U"Q[gargs  greq  gopt   grkey   gtmp  gtmp  , gtmp  ; gtmp  J gtmp  Y cgtmp h 9gtmp w gtmp gtmp  gfilenamefice-9/psyntax.scm      (     gnamegkeyCh8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 ChV]LLLL6Ngr  gfilenamefice-9/psyntax.scm      CJh8] 4?$LO@L6gargs  1greq  1gopt   1gkw   1gtmp   1gfilenamefice-9/psyntax.scm   )   +  ( 1    1 gnamegrestC!KLhXG]4L445$ "$45"55$ DL6?greq  Ugopt  Ugrest   Ugkw   Ugfilenamefice-9/psyntax.scm           '   0 #  < &   *   +  $ 2  . 4  $ 9  8 ;  =  A  K  O   Q  ' U    U gnamegcheckChx])OOOOOQQQQLQ6g orig-args  tgreq 8 tgopt  8 tgkey  8 tgrest  8 tgcheck  8 tgfilenamefice-9/psyntax.scm g  r   t    t gnameglambda*-formalsCO+hX[]%4L54L54LL54LL5L45456 Sgreq  Rgopt  Rgrest   Rgkw   Rgbody   Rgvars   Rglabels   Rgr*  , Rgw*  , R gfilenamefice-9/psyntax.scm             "   ,  3   D  * O  ? P  C R    R gnameg parse-reqC+)h8]Z$,45 $ & """44554L54LL54LL5LLLL L L L 45L 4LLL4$,45 $ & """5$"L> G    4L L   5    L6 gid  6gi  6gid  7 Hgv  H 6gl  T 6gr**  d 6gw**  t 6gprops  gtype  1gvalue  1gform  1ge 1gw 1gs 1gmod 1gfilenamefice-9/psyntax.scm    7    7 7  : 8 H   K   R  % T   T   W   `  - d   d   g   n  . t   t   }   7  *  $                        4   6  %  6 C3 hh[, 3$J 4 5  $+LLLLLL LO @ 6$$,45 $ & """ 44  55  4L 5 4L  5 4L 5 L$ 4 5"4 5$"   $" 6 L$ 4 5"$"$" 6 Sgreq  bgopt  bgrest   bgkw   bgbody   bgvars   bgr*   bgw*   bgout   bginits  bgtmp  Wgtmp  Wgid gv gl gr* gw* gfilenamefice-9/psyntax.scm          ]  `   d 7  e   7  8     "       )       *        ,        '            '       %   )   *  * 9   =   @  % Q   U   X  % ^   b  1  b gnameg parse-optC+/)hH][$,45 $ & """44554L54LL54LL5LLLLL L L L 4545L 4LLL4$,45 $ & """5$"L> G     4L  L   5     L6 gk  Dgid  Dgi   Dgid  7 Hgv  H Dgl  T Dgr**  d Dgw**  t Dgprops  gtype   ?gvalue   ?gform  ?ge  ?gw  ?gs  ?gmod  ?gfilenamefice-9/psyntax.scm    7    7 7  : 8 H   K   R  % T   T   W   `  - d   d   g   n  . t   t    (  6  '  '  !                            B   D  '  D C3h, 3 $L 4 5  $-LLLLLL  LO @ 6L$" $4 5"454 56 greq  gopt  grest   gkw   gbody   gvars   gr*   gw*   gaok   gout  ginits  gtmp  Ygtmp  Y gfilenamefice-9/psyntax.scm          g   o  $ s   v  ; }  1    2  B    gnamegparse-kwC+MQ!Rh8]L LLLLLLLL4L445556 gk  2gv  2ge1   2ge2   2gfilenamefice-9/psyntax.scm      & 0   2    2 C1'(h`]LL L L L L L4L4LL$'4L5$4LL>"G""LLL5LLL5Dge1  Zge2  Zgfilenamefice-9/psyntax.scm       ! 8  " 8  , 8 - 9 P   X   Z    Z C3Sh]456g docstring  ge1  ge2   gfilenamefice-9/psyntax.scm   ,  #  C!Th0]L LLLLLLLL4L4556 g docstring  /ge1  /ge2   /gfilenamefice-9/psyntax.scm     ! !  ' (  ! -   /    / C hK, 3 45 "o45  $ LO  @45  $'LLLLLL O @6 $,4  ?$  LO  @"_"[Cgreq  gopt  grest   gkw   gbody   gvars   gr*   gw*   ginits   gmeta  gtmp  gtmp  gtmp L  gfilenamefice-9/psyntax.scm    gnameg parse-bodyC+hO]DGgfilenamefice-9/psyntax.scm         CVht]Clgtmp-bde397a-1382  gtmp-bde397a-1381  gtmp-bde397a-1380     C! h]v4L> G 4L > G    4LLLLLLL45> G4 5 L    Dgargs  ge1  ge2   gargs*   ge1*   ge2*   greq  gopt  grest  gkw gmeta . greq . gopt . grest . gkw  . ginits  . gvars  . gbody  . gmeta*  c gelse*  c gfilenamefice-9/psyntax.scm   (     # 1   B   f   k   x      C3 hn]7OOO O LLLLQ LLLLLQ LLLLL Q LL Q 45  $ @45  $LO @  6fge  gr  gw   gs   gmod   g get-formals   gclauses   g parse-req  < g parse-opt  < gparse-kw < g parse-body < gtmp gtmp  gfilenamefice-9/psyntax.scm    gnamegexpand-lambda-caseCO ,9dWh]!"$;4L54L5"C&&C""$K454L5"'(C&"6"C$-45 $ & L  6"9"5"1 gx  ga  Hgd   Hgold V gnew  a gl1  g gl2  g gfilenamefice-9/psyntax.scm  "     #   #   #   # )  # ,  # )  #  * &  + $  0 $ " 4 $  9 $ 2 = $  K '  O   P (  V (  Y )  a )  g +  m ,  s . # v . , z .  } / " / + /  0  +          ! &  gnamegfCh0] 45$COLQ6gx  )gw  )gf   )gfilenamefice-9/psyntax.scm            ) gnamegstripCO-hH] $,45 $ & """456gid  Dgid 7 Dgfilenamefice-9/psyntax.scm 6     7    7 7  < 8   D gnameggen-varC.Q Q  Q  Q QQQQQQQQQQ" Q"& Q-Q $Q " Q!#-&" Q"" Q#Q$& " Q%  "'Q&Q(Q).% Q*Q+%"  .,Q,-Q-4i4i5X5/hW]L6Ogfilenamefice-9/psyntax.scm         C/O/K4YiZ[hg]6_gk  gfilenamefice-9/psyntax.scm h   i   i    C5K4i4i5\4i\[5>"G4i4i5]4i][5>"G4L^+^_'(h]L6gvar  gval  ge1   ge2   gfilenamefice-9/psyntax.scm  S    Ch^]LL6Vgx  gfilenamefice-9/psyntax.scm T * T 6  C IKJ^R'( hE]4L5$")$ 4LL5$""$BL4LL$'45$4 L>"G""LL56C=gid  gn  gt  Fgt  * =gkey  G gfilenamefice-9/psyntax.scm V   N M   O ! M  " P  * P : P 1 C Q  G W # G W  V Y 2 X Z 2 [   c 8  d 8  n 8 o 9   Y   C'()hv]94L4LLL4$,45 $ & """5$"L> G4LL5L5Cngx  gprops J ]gtype g gvalue  g gform  g ge  g gw  g gs  g gmod  g  gfilenamefice-9/psyntax.scm e #  f 3  g 3                J   J   O   S  f   j   y  g 3 f %  Ch<]4L LO54LLL L L L L O>"GL4L L $'4L 5$4L L >"G""L L L 54L4LL54LL L LLO5L5L L 64gvar  gval  ge1   ge2   gnames   gtrans-r  gfilenamefice-9/psyntax.scm  T %  T   U  C   K 8  L 8  V 8 W 9 z   { b  d + d  e  b  _   C h] 45"@4L $'45$4>"G""56$94LO?$% LLLLLLLLL O@""}ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm P   m ,  m A    8  ! 8  + 8 , 9 O   Q m   C%'"  O >"G4i4i5`4i`L+b h x] 4LL5 LCpge  gexp gfilenamefice-9/psyntax.scm  s , s       C`_'( hh] 45$LO@4L$'45$4>"G""56ge  bgr  bgw   bgs   bgmod   bgtmp  bgfilenamefice-9/psyntax.scm q  & t , ( t 3 )   1 8  2 8  < 8 = 9 `   b t   b C-O5>"G4LU IKab`+c_`dRh]*4LLLLLL> G4LLLLL> G$<&"& " "$ " Dgx  gy  gx   gmaps   gy  3 gmaps  3 gkey  = gfilenamefice-9/psyntax.scm   /     3 6  $ =   =   K  % M  - Q   S  V  * Z  6 \  f  ) h  2 l  n  $ y  $    #  /  #  !  7  CedN`h`]4LLLLLL> G& ""&45"Dge1  Zge2  Zge   Zgmaps   Zgfilenamefice-9/psyntax.scm   &   $  &  ( *   ,  / /  : 0  / 7  9  ( =   ?  0 E  < H  0 Q  Z  3  Z Chw]LLL6ogx  gdots  gy   gfilenamefice-9/psyntax.scm    C+_f!hh]LLL6`gdots  gy  gfilenamefice-9/psyntax.scm  %  Cg.ihH&]4L> G( L64L5Dgmaps  Dgx  Dgmaps   Dgmap-env  * ?gfilenamefice-9/psyntax.scm  (   9   B  <   9   *   9   . !  D #  L '  2 *  I *  : .   1  5 <   B  : D  2  D Chh]LLLLO6`gdots  gy  gfilenamefice-9/psyntax.scm   %   Ch]*45"J4LLLLLL> G4> G$" D$)4LLLO?$LLLO@""gy  gk  gtmp  gy  & [gmaps  & [gx  8 [gmaps  8 [gfilenamefice-9/psyntax.scm    6 )  ' .  : ;  + C  ' D   H   P   [  /  gnamegfCgh@ ]4LLLLLL> G( L64L5Dgmaps  @gx  @gmaps   @gfilenamefice-9/psyntax.scm  +   3  E   ?   3   - #  < '  1 +  G -  O 1  5 2  = 9  H ;  = >  = @  5  @ gnamegkCh@] OLLLLLLLQLLLLLLO6~gx  =gdots  =gy   =gf   =gfilenamefice-9/psyntax.scm     = Chh]LLL6`gdots  ge  gfilenamefice-9/psyntax.scm    Chu]Cmge  gr  gmod   gfilenamefice-9/psyntax.scm  ;   Chh]LLLLL6`gdots  ge  gfilenamefice-9/psyntax.scm      Ch]&$"3$+45 $ &  """$4L545$")$ 4L5$""&*4L> G  D45$   6 D4  5"4 5"W4 5$LO@4 5  $LO @ D$/4O?$LLO@"t"p$+4O?$LO@"0", gsrc  ge  gr   gmaps   g ellipsis?   gmod   glabel  N gt  Y gt  x gb  gvar.lev  gvar  gmaps gtmp  gtmp   gtmp   bgtmp : bgfilenamefice-9/psyntax.scm z   e d      d     2 f  E {  F | * N |  Q N Y M  k O o M  p P  x P P 1 Q     *  ;  !  :  +  -  :  H  -  %  B  :  )  %  ;  C  )  1  ) Y  * b  ")   gnameg gen-syntaxCO/j khx]$ $D( 64L> G45$D4455Dgsrc  qgvar  qglevel   qgmaps   qg outer-var  3 qg outer-maps  3 qgb  D qg inner-var  _ qgfilenamefice-9/psyntax.scm                3   ;  ! !  0 *  A -  O 2  0 6  ! ;  . B  > D  . D  % L  ' O  3 S  + T 8 [  E ] 8 _  + h  A k  A l  ; o  5 q  -  q gnameggen-refCO0lahp]Chgx  gfilenamefice-9/psyntax.scm  -   9   @  9  Cama9h]& L6Czgx  gfilenamefice-9/psyntax.scm     4   <  *   H   B   ChR hy]4L5Cqgx  gfilenamefice-9/psyntax.scm  ,   =   C  =   8   C hxt]4545&C4O5$,44 5 O5C Clge  tgmap-env  tgformals   tgactuals   tgr  P \gfilenamefice-9/psyntax.scm     (  (      "   * !   $   &   2   4   8   :   ?  / B   C  % F  3 P  * _  * a  % b   f  "  t gnameggen-mapC1a hF`Zn h(u])$ C$24455$  C C$ C$L$;4L5   C  64455$ " 4 L5 Cmgx  %gkey  %gname   *gvar   *gname  7 egexp  r greq  gvars  gexp  gbody  gname   gfun-exp   %garg-exps   % gfilenamefice-9/psyntax.scm           L   U   " !   3   6  A 7  ( :   =  ! C   E  3 F  J   O   ^  ! d   n   q  : r  $ x      '     ?  K  X  _  X     )        T    '   M  4    !    3        !      4   ?   4   !   ;  % gnamegregenCO2/10Q/0Q02Q2'(+bh(]4LLLLL> GL6gx  #ge  #gmaps   #gfilenamefice-9/psyntax.scm   +  ?   +    #  /  # Co hp ]4L$'45$4>"G""545$LLLO@6ge  lgr  lgw   lgs   lgmod   lge  : lgtmp  E lgfilenamefice-9/psyntax.scm      8  8   8  9 :   :   f  0 h  8 l    l C/(2O/012>"G4L+p+MQ!Rh(]L4L445556gk  "gv  "ge1   "ge2   "gfilenamefice-9/psyntax.scm ( %  ( 2 ( % " ' !  " CSh]456g docstring  ge1  ge2   gfilenamefice-9/psyntax.scm  ! @ ! 7  C!Th ]L4L4556g docstring  ge1  ge2   gfilenamefice-9/psyntax.scm # %  $ -  % 3  $ -  # %  " !   Chp]45"445$ LO@LLLLLLLL6 $4?$ LO@""gbody  kgmeta  kgtmp  kgtmp   Egfilenamefice-9/psyntax.scm   E ) #  k gnameglpChH]+4L> GO LLLLLLQ6gargs  Gge1  Gge2   Ggreq  Ggopt  Ggrest  Ggkw  Gglp  ( Ggfilenamefice-9/psyntax.scm   5    (   E  @ G    G Cqh8] 45$LLO@6ge  4gr  4gw   4gs   4gmod   4gtmp  4gfilenamefice-9/psyntax.scm   . * , 0 * 4 4 *   4 C)*O>"G4L+p h8]4LLLLLLL> G LCgargs  8ge1  8ge2   8gmeta  " 8glcase  " 8gfilenamefice-9/psyntax.scm  2  % 0  .    8 Crh8] 45$LLO@6ge  4gr  4gw   4gs   4gmod   4gtmp  4gfilenamefice-9/psyntax.scm -  . 6 , 0 6 4 4 6   4 C,+O>"G4Ls+tht]Clgtmp-bde397a-154d  gtmp-bde397a-154c  gtmp-bde397a-154b     C! hH]#454LLLLLLL> G45 LCgargs  Hge1  Hge2   Hgclauses   Hgmeta*  ( Hglcase  ( Hgmeta  7 Hgfilenamefice-9/psyntax.scm  D   =  + ;  0 A 0 3 D " 7 A 0 7 A  >    H CvswSh]456g docstring  gargs  ge1   ge2   gfilenamefice-9/psyntax.scm  F ! F   CTht]Clgtmp-bde397a-1563  gtmp-bde397a-1562  gtmp-bde397a-1561     C! hX7],45454LLLLLLL> G45 LC/g docstring  Xgargs  Xge1   Xge2   Xgmeta   Xgclauses   Xgmeta*  7 Xglcase  7 Xgmeta  G X gfilenamefice-9/psyntax.scm  G "  H ( G "  G  ! =  : ;  ? A 0 G A  N    X C hx]45$LLO@45" 6$&4?$ LLO@""ge  sgr  sgw   sgs   sgmod   sgtmp  sgtmp  3 sgfilenamefice-9/psyntax.scm 9  = J , ? J 9 C J   s C,)O>"G4Lx+tht]Clgtmp-bde397a-1583  gtmp-bde397a-1582  gtmp-bde397a-1581     C! hH]#454LLLLLLL> G45 LCgargs  Hge1  Hge2   Hgclauses   Hgmeta*  ( Hglcase  ( Hgmeta  7 Hgfilenamefice-9/psyntax.scm  X   Q  + O  0 U 0 3 X " 7 U 0 7 U  >    H CvsySh]456g docstring  gargs  ge1   ge2   gfilenamefice-9/psyntax.scm  Z ! Z   CTht]Clgtmp-bde397a-1599  gtmp-bde397a-1598  gtmp-bde397a-1597     C! hX7],45454LLLLLLL> G45 LC/g docstring  Xgargs  Xge1   Xge2   Xgmeta   Xgclauses   Xgmeta*  7 Xglcase  7 Xgmeta  G X gfilenamefice-9/psyntax.scm  [ "  \ ( [ "  [  ! Q  : O  ? U 0 G U  N    X C hx]45$LLO@45" 6$&4?$ LLO@""ge  sgr  sgw   sgs   sgmod   sgtmp  sgtmp  3 sgfilenamefice-9/psyntax.scm M  = ^ , ? ^ 9 C ^   s C,+O>"G4Lz+pz_'(h8]$C$"45 $ & CCCCgdots  6ge1  6ge2   6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C'( h`]3$"  44554LL$'45$4L>"G""LL54LL54LL5L4LL$'4L5$4LL>"G""LL5L6Xgdots  ge1  ge2   gwrap   .gmodule   .gid  . gids  glabels  gbindings  gnw  gnr   gfilenamefice-9/psyntax.scm  e & e " f &     g &    ! g : (   . e  5 j % 6   9   =  % ?   A   D k ( F l > G   O 8  P 8  Z 8 [ 9 ~    l 0 l * j  m & n & m    8  8  8 9   o %  C h] 45"@4L$'45$4>"G""56$*4?$ LLLLO @""ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm a   p ,  p ;    8  ! 8  + 8 , 9 O   Q p   C %O>"G4L{)hQ]94LLL4$,45 $ & """5$"L> GLL6Igx  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm  1               E   E   J   N  a   e      C{|h, 3 4L5$o4L54L5  4L 54L  5  45 4LLO54L4L 5  566ge  gr  gw   gs   gmod   g constructor   gids   gvals   gexps   glabels ! gnew-vars ! gnw ; gnr ;  gfilenamefice-9/psyntax.scm u   v  v   x )  y + ! x  & z ' 1 { ' ; z  D } , O  , e  , j  > ~  , |  w - w 2 w   gnameg expand-letCO /" % .Q/+~{'(mhP]$"3$+45 $ &  """$L6Cgf  Ogid  Ogval   Oge1   Oge2   Ogfilenamefice-9/psyntax.scm  e d      d     2 f  E   M  )  O Ch ]LLLLLLL6 gf  gid  gval   ge1   ge2   gfilenamefice-9/psyntax.scm      Cmh]L6gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    C h8]4L>"G(C Cgsrc  4gids  4gvars   4gval-exps   4gbody-exp   4gfilenamefice-9/psyntax.scm         &    4 gnameg build-letCh ]LLLLLLLO6 gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    C h]45"45"@4L$'45$4>"G""56$+4 LO?$ LLO@""$+4 LO?$ LLO@"K"Gge  gr  gw   gs   gmod   gtmp  gtmp   gfilenamefice-9/psyntax.scm   $  . &  3 '   / 8  0 8  : 8 ; 9 ^   `    C /O/>"G4L+'(mh]L6gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    Ch^]LLLL6Vgx  gfilenamefice-9/psyntax.scm  5   A   C'(| h]$4L 5$4L 54L 54LL54L L 5LL454LLO54L4LL$'4L5$4LL>"G""LL5L56L6gid  gval  ge1   ge2   glabels   gnew-vars   gw  7 gr  7 gfilenamefice-9/psyntax.scm   #     ,   .    "  ) -  ) 7  A  0 L  0 `  0 h   p 8  q 8  { 8 | 9    0  "  0  8    C h] 45"@4L$'45$4>"G""56$94LO?$% LLLLLLLLL O@""}ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm     ,   4    8  ! 8  + 8 , 9 O   Q    C !% .O >"G4L+'(mh]L6gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    Ch^]LLLL6Vgx  gfilenamefice-9/psyntax.scm  5   A   C'(| h]$4L 5$4L 54L 54LL54L L 5LL454LLO54L4LL$'4L5$4LL>"G""LL5L56L6gid  gval  ge1   ge2   glabels   gnew-vars   gw  7 gr  7 gfilenamefice-9/psyntax.scm   #     ,   .    "  ) -  ) 7  A  0 L  0 `  0 h   p 8  q 8  { 8 | 9    0  "  0  9    C h] 45"@4L$'45$4>"G""56$94LO?$% LLLLLLLLL O@""}ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm     ,   5    8  ! 8  + 8 , 9 O   Q    C !% .O >"G4L+^UM)h@]$C$%45 $ & 4L5CCCCge  9gfilenamefice-9/psyntax.scm  e d      d     + f & 2 f   9 C    h] LLC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm {      C h`] LLCXgvar  gfilenamefice-9/psyntax.scm }      Chp]45L$BL &2L 45$"L ""LLLLOLLO6ge  ngvar ngmeta  " Lgv  = Igfilenamefice-9/psyntax.scm   E  *     =     " > % ?  ) ?  - ?  1 ? 7 @ - : @ & = @  E   n y   n C3)hZ]94LLL4$/45 $ & 4L5"""5$"L> GLL6Rge  gprops H [gtype e gvalue  e gform  e ge  e gw  e gs  e gmod  e  gfilenamefice-9/psyntax.scm  7               .   H   H   M   Q  d   h      C! hE]{4LLL> G $4LLL4$/45 $ & 4L5"""5  $ " L> G    4L    L5     4LL> G    4LO?$LL O@  6  4L LL4 $/4 5 $ & 4L 5" " " 5  $ " L> G   4L   L5    4  LLLLLLO4 55   L  C=ghead  gtail  gval   gtype   gvalue   gformform   gee   gww   gss   gmodmod  gprops v gtype gvalue gform ge gw  gs  gmod  gval  ge  gr  gw  gs*   gmod   gtmp   ge ' gprops o gtype  gvalue  gform  ge   gw   gs   gmod   gfun-exp  garg-exps  $gfilenamefice-9/psyntax.scm   '    0   1   :   ?   C   D   \   v   v   {             >  ! '  2 *   3   8   <   =   U   o   o   t   x            2      %   C'(h@]$C$%45 $ & 4L5CCCCgid  9gval  9gfilenamefice-9/psyntax.scm  e d      d     + f & 2 f   9 C IK)  H h] LLC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm {      C h`] LLCXgvar  gfilenamefice-9/psyntax.scm }      CUJR'(h]j4LL 5$-45 $ &  "L"L"L4L 5$")$ 4L5$""$454L L L 4$/45 $ & 4L 5"""5$"L> G    4L L    5    $B &2  4  5$"       "" LC $4L L L 4$/45 $ & 4L 5"""5$"L> G    4L L    5    $B &2 4 5$"  ""L LO LO6$45$4LLL L LL54L L 4$/45 $ & 4L 5"""5$"L> G     L   L   64LLL L54LL 56$4LL L564LL$'4L5$4LL>"G""LL L56gid  gval  gn  A gid-mod  A gt  N gt  m gb  gkey  gprops  gtype   Agvalue   Agform   Age  Agw  Ags  Agmod  Agname  A gvar  A gexp  A gmeta ^ gv y gprops   gtype   Hgvalue   Hgform   Hge  Hgw  Hgs  Hgmod  Hgexp  H gmeta  a gv  | gp   ge   dgprops  " 5gtype  ? dgvalue ? dgform ? dge ? dgw ? dgs ? dgmod  ? d*gfilenamefice-9/psyntax.scm   !      &    A   F N N M  ` O d M  e P  m P } P 1 Q     "    9  9                            A   J   N =  Q   ^ > a ?  e ?  i ?  m ? s @ - v @ & y @                                                H   M   Q =  T   a > d ?  h ?  l ?  p ? v @ - y @ & | @      y       (      %   ;   %   !   -   %                   "   "   '   +  >   B   d  h  7 j  = k  7 v  7   %      1   7   1      6   <     8   8   8  9      $s   C h ]45"j45$LLLLO@4L$'45$4 >"G""56$74 LO?$# LLLLLLLLO @"Y"Uge  gr  gw   gs   gmod   gtmp  gtmp   {gfilenamefice-9/psyntax.scm   ?  , A  2 B   J 8  K 8  U 8 V 9 y   {    C $" O>"G4i4i54iM+3mhH]4L5$4$C$"45 $ & CCCCCgmod  Egid  Egfilenamefice-9/psyntax.scm        e  d      d    < f   E Ch z]45L45Drgmod  gid  gfilenamefice-9/psyntax.scm          ChH] 45" 6$4LO?$ O@""|ge  Cgr  Cgw   Cgtmp  Cgfilenamefice-9/psyntax.scm    C CO5>"G4M h]$4L54L5C$"C4545"&$C4L5" "45 $. & 4L 5 C""}Cgx  gmod  gn  1 mgv  : mgi  @ fg expression  gwrap  gfilenamefice-9/psyntax.scm        &   2   &   &   2   &   "   &   + * 1 4 @ : @  " E  ' I  " Q  5 X  A \  5 ]  $ `  , f  " m   n    !    !     "  gnameg remodulateC+3mhi]L6agmod  gexp  gfilenamefice-9/psyntax.scm    C)hp]454L5LL4$,45 $ & """5$"Dgmod  lgexp  lgmod  lgprops  U hgfilenamefice-9/psyntax.scm  #   ! "    !   %   &   U   U   Z   ^  l !   l CmhH]4L5$4$C$"45 $ & CCCCCgmod  Egid  Egfilenamefice-9/psyntax.scm        e  d      d    < f   E Ch z]45L45Drgmod  gid  gfilenamefice-9/psyntax.scm          C h]OQ45"E45" 6$#4LO?$O@""$4 LO?$  O@""ge  gr  gw   g remodulate  gtmp   gtmp  ' cgfilenamefice-9/psyntax.scm   CO>"G4Lc+^) hX]:4LLL4$,45 $ & """5$"L> G4LL54LLL4$,45 $ & """5$"L> G4LL5  LCgtest  Wgthen  Wgprops  E Xgtype  b gvalue  b gform  b ge  b gw  b gs  b gmod  b gprops  gtype  8gvalue  8gform  8ge  8gw  8gs  8gmod  8gtest-exp  @ Wgthen-exp  @ Wgelse-exp  @ Wgfilenamefice-9/psyntax.scm               E   E   J   N  a   e   t                          <   @ )  K    W C) h];4LLL4$,45 $ & """5$"L> G 4LL 5 4LLL4$,45 $ & """5$"L> G 4LL 5 4LLL4$,45 $ & """5$"L> G 4LL 5  LCgtest  gthen  gelse   gprops  E Xgtype  b gvalue  b gform  b ge  b gw  b gs  b gmod b gprops  gtype  8gvalue  8gform  8ge  8gw  8gs  8gmod 8gprops  { gtype   gvalue   gform   ge   gw   gs   gmod  gtest-exp   gthen-exp   gelse-exp   gfilenamefice-9/psyntax.scm               E   E   J   N  a   e   t                          9   B   G   K   L   {   {                 /    '   C3hX]45$LLO@45$LLO@6ge  Wgr  Wgw   Wgs   Wgmod   Wgtmp  Wgtmp  1 Wgfilenamefice-9/psyntax.scm &   W C" O>"G4i4i54iL+)hQ]94LLL4$,45 $ & """5$"L> GLL6Igx  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm ;                E   E   J   N  a   e      C)hQ]94LLL4$,45 $ & """5$"L> GLL6Igx  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm <                E   E   J   N  a   e      C'( h.]4LLLLLO54LLLLLO54L4LL$'4L5$4LL>"G""LLL5LLL5 LC&gfluid  gval  gb   gb*   gfluids  v gvals  v gbody  v gfilenamefice-9/psyntax.scm  ;   <  / =  7   ? 8  @ 8  J 8 K 9 n   v =  v 9     C3h8] 45$LLLLO @6ge  7gr  7gw   7gs   7gmod   7gtmp  7gfilenamefice-9/psyntax.scm 6   7 C" %O5>"G4i4i5\4i\\5>"G4i4i5]4i]]5>"G4i4i54i5>"G4i4i54i5>"G4i4i5V4iVV5>"G4L+_h8]"4LLL> G4LL> GDgx  7gy  7gy   7gids   7gx  ' 7gids  ' 7gfilenamefice-9/psyntax.scm  T 0  S  W 4 * V % 3 Y 1 7 Y )  7 Ch0] 45$LLO@L6gp*  .gn  .gids   .gtmp  .gfilenamefice-9/psyntax.scm P  . Z "  . gnamegcvt*Ch0]"$"D"gx  /gr  $gx   $gfilenamefice-9/psyntax.scm \   ]  ^ & ^   ` -  ` '  ` 8  ` ! $ _ ! $ ]  % ] ) / ]   / gnameg v-reverseC/ ,U+c_h8]"4LLL> G4LL> GDgx  7gy  7gy   7gids   7gx  ' 7gids  ' 7gfilenamefice-9/psyntax.scm  3  $  7 * ( 3 4 7 ,  7 ChO]LDGgfilenamefice-9/psyntax.scm  /  '   CNh(]4LLL> GDgx  #gp  #gids   #gfilenamefice-9/psyntax.scm  3  $  F  > # 6  # Chx]L6pgx  gdots  gys   gfilenamefice-9/psyntax.scm  u $   ChP)]34LLL> G4LL> G4L> GD!gx  Pgdots  Pgys   Pgys   Pgids   Pgx  ( Pgids  ( Pgys  : Pge  : P gfilenamefice-9/psyntax.scm  w 3  v $  z 7 z G ' z 7 + y ( 0 } ; = | , C  8 P  0  P Chh]L6`gx  gdots  gfilenamefice-9/psyntax.scm  n $   C/0h8]4LLL> G&"Dgx  2gdots  2gp   2gids   2gfilenamefice-9/psyntax.scm  p 3 p C  p 3  o $  r ; ! r 0 # r A ) r S . r K 2 r (  2 Ch]+$"3$+45 $ &  """$4LL5$ D" D$,45 $ & """45 $"& 4L54L5&D""4 5"4 5"m4 5$ LO@45$  O@45$LO@4L5D$'4LO?$LLLO@"f"b$#4LO?$LO@"*"& gp  gn  gids   gtmp  gtmp  gtmp   kgtmp  & kgtmp  B kgfilenamefice-9/psyntax.scm c   e d      d     2 f  E d  F f # R e ! T g 3 Y g + ] g # c k + h k 6 k k 0 m k # m e ! p   t s  u   s "   e ! t  t - s  i + i # [ 6 \ < g . k &"   gnamegcvtCh@]OOQLLLQ 6gpattern  @gkeys  @g ellipsis?   @gcvt*   @g v-reverse   @gcvt   @gfilenamefice-9/psyntax.scm N  > ( @   @ gnamegconvert-patternCO/KlF .h]C}gvar  glevel  gfilenamefice-9/psyntax.scm Y  i q [  CU h&]454>"G4L54L5L4455$ " 4L4 54L4L4 45554L 5556gpvars  gexp  gy   gr   gmod   gids  glabels  1 gnew-vars  1 gfilenamefice-9/psyntax.scm   $   = " ) ) E 1  9   <  ! B   D  3 E  I   N   Q I T   `  ! b I f   g 6 k U w y x K } S T Y T S S K 6 0 "  gnamegbuild-dispatch-callCO0h^]LLL6Vge  gfilenamefice-9/psyntax.scm B N  Cmhy]4LLL5Cqgx  gfilenamefice-9/psyntax.scm -  >  I  >  9   CKk +h]LC   C/Fd+bhH,34LLO> G 4LO 5$4L4 55$4455 L    4  5  $4  O ?"14L  5       4L  54L5                     &N4455$ "        "T4455$ "         666@gx  gkeys  gclauses   gr   gpat   gfender   gexp   gmod   gp   gpvars  gy Y gy u  gtmp gthen-exp gelse-exp  gtest-exp gthen-exp gelse-exp  greq  ?gvars  ?gexp  ?gbody  % 6gfun-exp z garg-exps z gfun-exp  garg-exps  gfilenamefice-9/psyntax.scm   ( !  & $ ;  < $ ? 9 I $ M  N 8 U 1 W 8 Y  ` Y c S h b m   p k u   u I v   c   ^ ^ K    4      ) %   %   ,   . k 3   C E G : H   K  ! Q   S  3 T  X   ]   ` j c   o  ! q j u   z Q z >         !      3          j      !  j     Q  >     4  !  1  >    1  >  M   gnameg gen-clauseCO1F 3+mUh]L$,4L5 $L &L "L"L"L$,45 $ & """&4LL54L5"Cgx  gfilenamefice-9/psyntax.scm 2    s    > s " ?   p s  q t  z t - t >  C$U%,)h]:"LL LLL L 6$"3$+45 $ &  """$4LOL5$"4455$,45 $ & """4455L4L4 54L4L  L 54L 5L 55L 6$,45 $ & """4 5 $ " &4L 54L  5&4L L  4$,45 $ & """5$"L > GL L 6"n"j""gpat  gexp  gid  glabels  gvar  gprops   gtype   gvalue   gform   ge   gw   gs   gmod    gfilenamefice-9/psyntax.scm  7  $   e ! d  )   - d  .   J f  ] ^ ) n 2 p ) t $ y   |    %     6   7    7  8 ( = N H h > > F f n X R  F  F  >  =  =  *  $    # s  $   _ s " a   k $ l t  u t -  s                                    B   C/h]LLLLLL6~gpat  gfender  gexp   gfilenamefice-9/psyntax.scm 3     C&h](X4455$ "    C45$% LLLLLLLLLO@4 5$ LO@  6gx  gkeys  gclauses   gr   gmod   gfun-exp  N `garg-exps  N `gtmp  c gtmp  n gtmp   gfilenamefice-9/psyntax.scm       !      3         ! I $   0  ! 2 I 6   F B I   N 0 N  W   c * c  4 A 4 "  gnameggen-syntax-caseCO 2-Q/! .Q002(/Q11! " Q2'(+)mhX]$"3$+45 $ &  """$ 4LLL5CCgx  Tgfilenamefice-9/psyntax.scm )  e d      d     2 f  E 5 F G Q B  T Ck U)*h@ ]C4LLLO5$44554L LL5   4LL4$,4 5 $  & """5$"L> G  4LL  5   LC   L6gval  9gkey  9gm   9gx  $ /greq  J ~gvars  J ~gexp  J ~gbody  d ugprops  gtype  gvalue  gform  ge  gw  gs gmod gfun-exp   /garg-exps   /gfilenamefice-9/psyntax.scm     8 2 " 8 $ ( Z + T 0 c 1 J 8   ; t @   J J J 5 U   \  ) d   d   k   m l r                           5  " %   3 2 5 ? 9 )  9 C3hp]4L$'45$4>"G""545$LLLLO@6ge  ogr  ogw   ogs   ogmod   oge  : ogtmp  E ogfilenamefice-9/psyntax.scm     8  8   8  9 :   :   o C( "2O/012>"G8=h@-.,3##L44556gx >gm >gesew  >gfilenamefice-9/psyntax.scm    $   . ' ! 1 ' 2 0 5 = ; 0 < ! >  > gnameg macroexpandCO+ih0]$"45 $ & CCCCgx  -gfilenamefice-9/psyntax.scm    _    & `   - gnameg identifier?C,ih ]  Cgid  gdatum  gwrap  gmodule  gfilenamefice-9/psyntax.scm           gnameg datum->syntaxC-iUhx]L6pgx  gfilenamefice-9/psyntax.scm     gnameg syntax->datumC-Oi)hP] 4$,45 $ & """5$CCgx  Jgprops < Jgfilenamefice-9/psyntax.scm            <   <   A   E    J gnameg syntax-sourceC.i/01hy]L45L6qgx  gfilenamefice-9/psyntax.scm "   #  # * #   #    C hH] $"4>"G4455LO6gls  Agmod 0 Agfilenamefice-9/psyntax.scm     % !  & ! & ) ! 3 / ! & 0 !  0 ! A "   A gnameggenerate-temporariesCO/i20UhX]"4>"OG"H$=45 $' & $"""""""""4>"OG"H$=45 $' & $""""""""$,45 $ & """$,45 $ & """&4L54L5CCgx  Rgy  Rgfilenamefice-9/psyntax.scm '  ( ( ' ( #   ' ( (   5 _  9   D ` H   m ) q ) ' s )   )   _    `   s     s "    < s  = t  F t - O t   R gnamegfree-identifier=?CO2i30hP]"4>"OG"H$=45 $' & $"""""""""4>"OG"H$=45 $' & $"""""""""C$i45 $W &I$>45 $, &  &L  6C""""""gx  Lgy  Lgfilenamefice-9/psyntax.scm -  . . ' . #   ' . (   5 _  9   D ` H   m / q / ' s /   /   _    `    |    |    |   " } )   *   /   0   2  #  L gnamegbound-identifier=?CO3iS045)U hH7-.,3#$45$""$"4>"G45$"4>"G4$,45 $  & """5$"$"M4$,45 $  & """5$"4L 5$ 4L 5"6/gwho Hgmessage Hgform  Hgsubform  Hgprops  gt  )gprops   &gfilenamefice-9/psyntax.scm 3  4 #  4 / & 4 # ' 4 / . 4 ; 3 4 ' 7 4 @ 5  B 4 R 6 e 6 ' g 6 z 7                  8                     * :  8 ;  9 ; H 7 $ H  gnamegsyntax-violationC-Oi60IHS7KZ89J#h8]6L L "$ ""6$+&$ """""L 4L5  $$-45 $ &  """ 4L  5  $ "   &  ""   ""4 5$h$-45 $ &  """ 4 5  $ "     ""4  > G $ D $ D $ D$D$ D$=                DDge  6gr  6gw   6gs   6grib   6gmod   6gw  rgms   ogs   ogid  w gw  w gmod  w gn gmod  gt gb  gmod Q gt \ ogb o gtype   6gvalue   6gmod   6gw  g expression  /gwrap  /gmodule  /gfilenamefice-9/psyntax.scm E    P  G   G *  G # L ! ( L ) / L  3 H  6 H  : H  = H ( B H  E J  K J ' P J 9 Q J / X J B Y J  w   w N  ~ Y  Y  [ Z    \    \ P  P  Q  P  R  R $ R S  S   T   T '  T   _  Z     " `  #   Q ` T V  \ V  l W  o V  t X  w X #  X  d  d   d  M  T   U $  U   T   V "  V   T   W #  W   T   X .  X &  T   Y #  Y 7  Y +  Y   T   [      ] .   '                   \     1 [  3 _  6 _ ]  6 Chx]"4>"OG"H$=45 $' & $""""""""M[LLO6gid  xgfilenamefice-9/psyntax.scm B   C  C $ C  #   ' C  (   5 _  9   D ` H   x l   x gnamegsyntax-local-bindingCO/:0hx]"4>"OG"H$=45 $' & $""""""""L  6gid  vgfilenamefice-9/psyntax.scm a   b  b $ b  #   ' b  (   5 _  9   D ` H   v c   v gnameg syntax-locally-bound-identifiersCO0Q/Q04;i<<0hp]"4>"OG"H$=45 $' & $"""""""" Cgid  ogfilenamefice-9/psyntax.scm >   ?  ? $ ?  #   ' ?  (   5 _  9   D ` H   n @   o gnameg syntax-moduleC>"G4;i6/>"G4;i:0>"G/0h]$74L5$4L5$CCC(C$?45 $/ &# 4L 5 "xCCCge  gp  gw   gmod   gfirst   @grest  . >gfilenamefice-9/psyntax.scm      ,     !  & + .  .  6  ;  F G  K   O P   n  w   y  ~     gnameg match-eachCO/hxS] $&4L5$4L5CC(C$845 $( & 4L 5"CCCKge  xgw  xgmod   xgl   /gfilenamefice-9/psyntax.scm     %        # ! )  ,  5 6  :   > ?   [  d   f  r   x gnamegmatch-each-anyCO0,/0N h] (C&C&C$4L5"&C $ "$' 4L4 54L 55"i$"$C $ "8Cgp  gr  gkey  P gfilenamefice-9/psyntax.scm           "  & * - # . + 3 8 7 + ?  C  G H $ K  P  P _ # i  r v $ w $ z % . % % 2 % $  % &  gnameg match-emptyCO1Klh(](C454L455Cgr*  'gr  'gfilenamefice-9/psyntax.scm      !  * % ! &   ' gnamegcombineCO20Klh(](LC454L455Cgl  %gfilenamefice-9/psyntax.scm   '  &  2  ; # 2 $   % gnamegcollectCh]"$f4L> G$D('4LLL5$ DD4LL5DD"L4LLLL5D$845 $& & 4L 5"D"""ge  gw  gxr*   ogy-pat   ogr   ogxr  ; Sgfilenamefice-9/psyntax.scm   +  .  +   &  ,  - $ 2 + 7 ; ; $ ;  C  H ( N S T  W  X  ] " ` * h  j  o  t  w          &  gnamegfCUNW hpn]-( (CC$($L4L56C&4L5$CC $?( L 64L 5$OQ6C$t   O L LQ 4 > G$ (( L 6L6CC$$"3$+45 $ &  """$4L5 $,45 $ & """$,45 $ & """&4L 54L 5"$CCC $ 4L5$CC $$L4 5 6CCfge  ogp  ogw   ogr   ogmod   ogl  U egkey  i ogl  gcollect  gx-pat  gy-pat  gz-pat  gf gxr*  0gy-pat  0gr  0gi   gj   gfilenamefice-9/psyntax.scm         ! & " ) * ,  1 $ 4 , <  @  F  J K  U ] 0 b 7 i  i z    *     $ 5 F         ) $  ,  9 < e @ d  H   L d  M   i f  |  } 1  @  &     s      s "     s   t   t -  t   / 3 # 4 4 =  A  O R  V  Y  c , k L  o gnamegmatch*CO 3,/hD]$|&C&4L5C"L6$=45 $+ &L 4L 5 6"""C<ge  gp  gw   gr   gmod   gfilenamefice-9/psyntax.scm          )  <   < ?   C D   d  m   o  v   x   gnamegmatchCO4/4Q/0Q01Q12Q24/1-20Q33Q4/,Uhp]&C&C" L6$545 $# &L   6"""ge  jgp  jgfilenamefice-9/psyntax.scm            '  , *   *  -   1  2   W  1 \   ^    j gnameg $sc-dispatchC3O+i/01234      !"#$%&'()*+,-.4i=+?Jh:]C2ge1  ge2    CMXYh []CSgout  gin  ge1   ge2      Cabch []CSgout  gin  ge1   ge2      C3 hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/psyntax.scm    P C5=R4i5+a23Shv]456ngmessage  garg  gfilenamefice-9/psyntax.scm  0  0   Coqh@]C8gmessage  garg     CSh]456gkeyword  goperands  gmessage   garg   gfilenamefice-9/psyntax.scm  %  %   Crshg]456_gx  gfilenamefice-9/psyntax.scm ( 1  * 4 ) 3  Ch8]4544545545$ "6gkeyword  8goperands  8gmessage   8garg   8gfilenamefice-9/psyntax.scm  &  '   ' ,  ( ,  ' & ! '  " ,  , ,  8 &   8 C hhv]45"745" 6$4?$@""$4?$ @""ngx  ggtmp ggtmp   Hgfilenamefice-9/psyntax.scm   g C55R4it+hZ]CRgkeyword  gpattern  gtemplate      C3Sh]456gkeyword  gpattern  gmessage   garg   gfilenamefice-9/psyntax.scm  <  <   Ch j]Cbgkeyword  gpattern  gmessage   garg      C hP]45" 45$@6$4?$@""gclause  Pgtmp Pgtmp   1gfilenamefice-9/psyntax.scm 5   P gnameg expand-clauseC+! h@]45L$ LCCgk  <g docstring  <gkeyword   <gpattern   <gtemplate   <gclause   <gtmp  ' <gfilenamefice-9/psyntax.scm ' G  / N   < C3h@]4L545$ O@6gdots  ;gkeys  ;g docstrings   ;gclauses   ;gtmp   ;gtmp   ;gfilenamefice-9/psyntax.scm A  F   B   ; gnamegexpand-syntax-rulesC+ht]Clgtmp-bde397a-19fa  gtmp-bde397a-19f9  gtmp-bde397a-19f8     Ch]L456gk  gkeyword  gpattern   gtemplate   gfilenamefice-9/psyntax.scm  T    C3,Sh ]45$ 456Cgdots  gk  g docstring   gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  \ \   \ *  \ !   Cht]Clgtmp-bde397a-1a4b  gtmp-bde397a-1a4a  gtmp-bde397a-1a49     Ch ]L456gdots  gk  g docstring   gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  ]    C,h]6gdots  gk  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  Y    Cht]Clgtmp-bde397a-1a2c  gtmp-bde397a-1a2b  gtmp-bde397a-1a2a     Ch]L456gdots  gk  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  Z    CSh]456gk  g docstring  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  V  V   Cht]Clgtmp-bde397a-1a13  gtmp-bde397a-1a12  gtmp-bde397a-1a11     Ch ]L456gk  g docstring  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  W    Ch]1OQ45$ O@45"o45"<45"   6$4 ?$  O@""$4 ?$ O@""$4?$ O@"q"mgxx  g expand-clause  gexpand-syntax-rules   gtmp   gtmp  8 gtmp  G gtmp  V gfilenamefice-9/psyntax.scm 4   C5tR4i+h W]COgname  gpattern  gtemplate      C3Sh]456gname  gpattern  g docstring   gtemplate   gfilenamefice-9/psyntax.scm  g  g   Ch n]Cfgname  gpattern  g docstring   gtemplate      C hPv]45$@45" 6$4?$@""ngx  Pgtmp Pgtmp  " Pgfilenamefice-9/psyntax.scm `   P C5R4i+}3m,h]6glet*  gx  gv   ge1   ge2   gfilenamefice-9/psyntax.scm q   C+hA]C9gbody  gbinding     C3hH]( LLC4L545$@6gbindings  Cgtmp ! Cgtmp  , Cgfilenamefice-9/psyntax.scm r   s  u !  u $  u !  v $ ! u   C gnamegfCdh(] OQ456glet*  $gx  $gv   $ge1   $ge2   $gf  $gfilenamefice-9/psyntax.scm r   $ Ch@e] 45" 6$4?$@""]gx  9gtmp 9gfilenamefice-9/psyntax.scm n   9 C5R4i+/6:h(]L $CL4LL56{gp  %gfilenamefice-9/psyntax.scm  ~ ~  , ! 9 # , %   % C=Dhq]L4LL56igp  gfilenamefice-9/psyntax.scm  :  G  :     C_+NSh8]C0gtmp-bde397a-1ab0    CVh@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    0  #  ( 0 / A 1 0 3  4  >   > CZ_h8]C0gtmp-bde397a-1ab5    Cbh@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    1  #  ( 9 / J 1 9 3  4  >   > Ch`]45$LLLLO@45$LLLLO@L4LL54LL56gp  `gq  `gtmp  `gtmp  / `gfilenamefice-9/psyntax.scm M  V ) `   ` C+dlh)]45C!gx     C+dyh8]C0gtmp-bde397a-1b25    ChV]L456Ngy  gfilenamefice-9/psyntax.scm     C|hV]L6Ngy  gfilenamefice-9/psyntax.scm     C!hh]L4L56`gls  gfilenamefice-9/psyntax.scm '  7  4   Che]LLO6]gy  gz  gfilenamefice-9/psyntax.scm     C h`]45$ O@45$ O@45$ LO@LCgy  `gk  `gtmp  `gtmp  ' `gtmp  C `gfilenamefice-9/psyntax.scm   ` gnamegfC+0h6]C.gt-bde397a-1b19     C3h(t] 45$@6lgls  "gtmp "gfilenamefice-9/psyntax.scm   " gnamegkCh@]4LL545$@OQ6gx  <gx <gtmp   <gf  - <gfilenamefice-9/psyntax.scm    -   < C h]"45$LLO@45$LLO@45$LLLLO@45$  LO@ Cgp  glev  gtmp  gtmp  + gtmp  K gtmp  o gfilenamefice-9/psyntax.scm {   gnamegquasiCO+_+h8]C0gtmp-bde397a-1acb    Ch@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    0  #  ( 0 / A 1 0 3  4  >   > Ch8]C0gtmp-bde397a-1ad0    Ch@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    1  #  (  / # 1  3  4  >   > Chh]45$LLLLLO@45$LLLLLO@L4LL54LL56gp  dgq  dgtmp  dgtmp  1 dgfilenamefice-9/psyntax.scm Q  Z ) d   d Ch]C   C3hH]45$LLLLLO@45$@6gp  Gglev  Ggtmp  Ggtmp  0 Ggfilenamefice-9/psyntax.scm   G gnamegvquasiCO+++h*]LC"gdx    Ch8g] 4L5$ O@(LCLLC_gdy  6gtmp 6gfilenamefice-9/psyntax.scm $   6 Ch-]LC%gstuff    Ch-]LC%gstuff    C hhk]45$ O@45$ O@45$ O@Ccgx  bgy  bgtmp  bgtmp  ) bgtmp  E b  b C3h0]45$@6gx  +gy  +gtmp  +gtmp   +gfilenamefice-9/psyntax.scm    + gnameg quasiconsC++0h)]C!gp     C3h8s]L(CL(LC4L5$@L6kgtmp  6gfilenamefice-9/psyntax.scm        6 C!h8]45C0gp  gy     C3hP]45$ O@(C45$@6gx  Pgy  Pgtmp  Pgtmp  . Pgtmp  9 Pgfilenamefice-9/psyntax.scm  $ .   P gnameg quasiappendCh ](LCL4L56gx  gfilenamefice-9/psyntax.scm         "       gnamegfCh ] OLQ6gx  gy  gf  gfilenamefice-9/psyntax.scm     gnameg quasilist*CO+h)]C!gx    C|+0h6]C.gt-bde397a-1b43     C3h0]4L545$@6xgx  -gtmp -gtmp   -gfilenamefice-9/psyntax.scm  #   - C+1hR]CJgt-bde397a-1b57  gt-bde397a-1b56    C3hH](LL64L54L545$@6gx*  Cgtmp ! Cgtmp  , Cgfilenamefice-9/psyntax.scm           +  .  + !   C gnamegfCh t] OLQ6lgx  gy  gf  gfilenamefice-9/psyntax.scm    C3+0@h6]C.gt-bde397a-1b63     C3h0]4L545$@6xgx  -gtmp -gtmp   -gfilenamefice-9/psyntax.scm  '   - CB+0Oh6]C.gt-bde397a-1b6f     C3h0]4L545$@6xgx  -gtmp -gtmp   -gfilenamefice-9/psyntax.scm  '   - CQ^ho] 4L5Cggx  gtmp gfilenamefice-9/psyntax.scm  .    C`h)]C!gx     C3h]945$@45$ LO@45$ LO@45$  LO@4 5$  LO@4 5$  LO@45$@6gx  gtmp gtmp  " gtmp  > gtmp  Z gtmp  v gtmp  gtmp  gfilenamefice-9/psyntax.scm   gnamegemitCOQQQQ+bh_]L4L 56Wge  gfilenamefice-9/psyntax.scm       C3h0e] 45$ LLO@6]gx  )gtmp )gfilenamefice-9/psyntax.scm   ) CO5R4iabcdaefghijk-h]#445$"$ 45" 4L55454$" >"G">4 5$4 >"G 64 545"4 5"gfn  gdir  gk   gp  6 genc  ? gx  e gresult  e gfilenamefice-9/psyntax.scm          *  .  0  4  6  6  9  ?  B L T ( Y e f  p q           gnameg read-fileC.7lSm++0h+]C#gexp     C3h8]454LL545$@6gk  8gfilename  8gfn  8gtmp   8gtmp  ! 8gfilenamefice-9/psyntax.scm      $     8 C3 hp])OQ45$ 45"45$ 45"45$  O@  6 gx  ng read-file ngsrc   ngfile  , ngdir  E ngtmp  P ngfilenamefice-9/psyntax.scm          % ( '  ,  /  9  : $ E   n C5aR4i+-hH]45445$" 4L55Cgk  Agfilename  Agfn  Agt   5gtmp  7 Agfilenamefice-9/psyntax.scm        &  *  2 ,  2 2  7  7   A C3h(e] 45$ O@6]gx  'gtmp 'gfilenamefice-9/psyntax.scm    ' C5R4ihp]6hgx  gfilenamefice-9/psyntax.scm            C5R4iWWhp]6hgx  gfilenamefice-9/psyntax.scm            C5WRTh]L6gx  gfilenamefice-9/psyntax.scm !   #    gnamegtransg macro-typegvariable-transformerCZh@] 45$%OQ4>"GC6gproc  :gtrans  2gfilenamefice-9/psyntax.scm      !   $  ! $ ' ' $  6 & : &   : gnamegmake-variable-transformerCR4i+b h8)]  C!ge  1  1 C3,h]45$6Cgid  gexp1  gvar   gval   gexp2   gfilenamefice-9/psyntax.scm  5 5   5    C hXp]       Chgid  Wgexp1  Wgvar   Wgval   Wgexp2   W  W C hPw]45$@45" 6$4?$@""ogxx  Pgtmp Pgtmp  " Pgfilenamefice-9/psyntax.scm )   P C5R4i+ah\]CTgid  gargs  gb0   gb1      C^3,hh]6`gid  gval  gfilenamefice-9/psyntax.scm  C    Ch;]C3gid  gval    C hPv]45$@45" 6$4?$@""ngx  Pgtmp Pgtmp  " Pgfilenamefice-9/psyntax.scm ?   P C5RCg session-id gtransformer-environment gtop-level-eval-hook gget-global-definition-hook gmaybe-name-value! gbuild-application ganalyze-variable gbuild-simple-lambda gbuild-sequence gbuild-named-let g build-letrec gsyntax-object-expression g extend-env gextend-var-env gmacros-only-env g global-extend gid? g gen-labels gmake-binding-wrap g join-wraps g same-marks? g id-var-name glocally-bound-identifiers gvalid-bound-ids? gdistinct-bound-ids? gbound-id-member? gwrap g source-wrap gexpand-sequence gexpand-top-sequence gexpand-install-global gparse-when-list g syntax-type gexpand !g expand-expr "gexpand-application #g expand-macro $g expand-body %gexpand-local-syntax &geval-local-transformer 'g ellipsis? (glambda-formals )gexpand-simple-lambda *glambda*-formals +gexpand-lambda-case ,gstrip -ggen-var .gv /g gen-syntax /FIdggen-ref 0FIdggen-map 1FIdgregen 2FIdg expand-let /ikpgconvert-pattern /rgbuild-dispatch-call 0rg gen-clause 1rggen-syntax-case 2rgsyntax-local-binding /g syntax-locally-bound-identifiers 0g match-each /lOgmatch-each-any 0lOg match-empty 1lOgcombine 2lOgmatch* 3lOgmatch 4lOgquasi WYgvquasi WYg quasicons WYg quasiappend WYg quasilist* WYgemit WYGgfilenamefice-9/psyntax.scm    "  3     g  $  $  L ! &  L ! L  &  $  $  M ! &  M ! M  &  $  O  O  O '( O '1 $ '6 $ '? p '@ & 'G p 'I p )v & ){ $ ) w ) w ) w Ii w Ir  Iv  Iy  O  O , O , O , Q , Q 8 Q 8 Q 8 X$ 8 X- L X1 L X4 L ^ L ^ ` ^ ` ^ ` d ` d s d s d s p# s p,  p0  p3  u  u  u  u  {  {)  {-  {0  ]  f $ k $ t  u & |  ~  # & ( $ 1  5  8  -  6 % : % < %  %  $  $  5  &  5  5  &  $  $  @  &  @  @  @ ! &  $  $  B  &  B  B  B # &  $  $  D " &  D " D  D 1 &  $  $  E , &  E , E ! E E# & ( $ 6 $ > G ? & E G G G H G )J & O $ X I \ I _ I  I *            &  ,  2  j  j H j Q k Y k ` k i l q l x l =  d[   j C6