/usr/lib64/guile/2.0/ccache/ice-9
Edit: /usr/lib64/guile/2.0/ccache/ice-9/local-eval.go (40705B)
GOOF----LE-8-2.0 ]x 4 hLW ] g guile g define-module* g ice-9 g
local-eval g filenameS
f ice-9/local-eval.scm g importsS g format
g srfi g srfi-9 g gnu g system g base g compile g syntax g exportsS g the-environment !g
local-compile " ! #g set-current-module $# %# &g lexical-environment-type 'g #%make-lexical-environment-procedure (g make-syntax-transformer )( *( +g make-lexical-environment ,g macro -g $sc-dispatch .- /- 0g _ 1g any 201111 3g
syntax-object 4g lambda 5g m-3348ed57c594e3-7 6g top 756 8g ribcage 9g t-3348ed57c594e3-3 :g t-3348ed57c594e3-4 ;g t-3348ed57c594e3-5
7777 ?f l-3348ed57c594e3-c @f l-3348ed57c594e3-d Af l-3348ed57c594e3-e Bf l-3348ed57c594e3-f C?@AB D8=>C E8 Fg x GF H7 If l-3348ed57c594e3-9 JI K8GHJ Lg shift Mg proc-name Ng args OMN P6 QPP Rf l-1e8ba8b5a-60 Sf l-1e8ba8b5a-61 TRS U8OQT Vg key Wg value Xg name Yg formals Zg body [VWXYZ \PPPPP ]f l-1e8ba8b5a-53 ^f l-1e8ba8b5a-54 _f l-1e8ba8b5a-55 `f l-1e8ba8b5a-56 af l-1e8ba8b5a-57 b]^_`a c8[\b dg make-procedure-name ed fP gf l-1e8ba8b5a-43 hg i8efh jP kf l-1e8ba8b5a-42 lk m8Gjl n7DEKLEEEEUcim
og hygiene po q34np rg scope sPDEK to u3rst vg wrapper w3vst xg boxes y3xst zg patterns {3zst |uwy{ }g make-struct ~g m-3348ed57c594e3-1 ~6 g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 6 f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a 8 g ctor-args f l-1e8ba8b5a-120 8j g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d 8Q g form g type-name g constructor-spec g field-names PPPP f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 8 g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers PPPPPPPP f l-1e8ba8b5a-e9 f l-1e8ba8b5a-e7 f l-1e8ba8b5a-e5 f l-1e8ba8b5a-e3 f l-1e8ba8b5a-e1 f l-1e8ba8b5a-df f l-1e8ba8b5a-dd f l-1e8ba8b5a-db 8 f l-1e8ba8b5a-da 8Gj DEKLEEEEE 3}p 3&st 3
p uwy{ q| g each-any 0 g syntax-violation f Wrong number of arguments g identifier? PEK 3't f -source expression failed to match any pattern g record-type-vtable g pwpwpwpw g default-record-printer rvxz g set-struct-vtable-name! g vtable-offset-user g %lexical-environment?-procedure g lexical-environment? 01 g m-3348ed57c594e3-1a 6 g t-3348ed57c594e3-19 f l-3348ed57c594e3-1f 8 f l-3348ed57c594e3-1c 8G ELEEEEUcim
34p g obj g t-1e8ba8b5a-224 g t-1e8ba8b5a-21e g t-1e8ba8b5a-21f g t-1e8ba8b5a-220 g t-1e8ba8b5a-223 g t-1e8ba8b5a-222 g t-1e8ba8b5a-221 g m-1e8ba8b5a-225 6 f l-1e8ba8b5a-229 f l-1e8ba8b5a-22a f l-1e8ba8b5a-22b f l-1e8ba8b5a-22c f l-1e8ba8b5a-22d f l-1e8ba8b5a-22e f l-1e8ba8b5a-22f 8 g copier-id f l-1e8ba8b5a-21c 8j g ctor-name f l-1e8ba8b5a-214
8j
f l-1e8ba8b5a-212
8 j g layout f l-1e8ba8b5a-210 8j g
immutable? f l-1e8ba8b5a-20e 8j g field-count f l-1e8ba8b5a-20c 8j g
getter-ids !f l-1e8ba8b5a-209 "! #8 j" $g field-ids %$ &f l-1e8ba8b5a-206 '& (8%j' )g predicate-name *g
field-spec +)* ,PPPPPP -f l-1e8ba8b5a-1f9 .f l-1e8ba8b5a-1fa /f l-1e8ba8b5a-1fb 0f l-1e8ba8b5a-1fc 1f l-1e8ba8b5a-1fd 2f l-1e8ba8b5a-1fe 3-./012 48+,3 5ELEEEEEE EEEE E#E(4 635p 76 8g and 9385p :g struct? ;3:5p <;6 =g eq? >3=5p ?g
struct-vtable @3?5p A@6 BPE C3&Bt D>AC E9<D F7E GPE H3Gt Ig throw-bad-struct JI KI Lg lexenv-scope Mg %lexenv-scope-procedure Ng free-id Og
%%on-error Pg m-3348ed57c594e3-26 QP6 RQ Sf l-3348ed57c594e3-28 TS U8GRT VQEULEEEEUcim W3OVp XNW YX1 Zg %%type [g t-1e8ba8b5a-14b \g t-1e8ba8b5a-14c ]g t-1e8ba8b5a-14d ^g t-1e8ba8b5a-14e _g t-1e8ba8b5a-14f `g t-1e8ba8b5a-150 ag t-1e8ba8b5a-151 b[\]^_`a cg m-1e8ba8b5a-152 dc6 eddddddd ff l-1e8ba8b5a-156 gf l-1e8ba8b5a-157 hf l-1e8ba8b5a-158 if l-1e8ba8b5a-159 jf l-1e8ba8b5a-15a kf l-1e8ba8b5a-15b lf l-1e8ba8b5a-15c mfghijkl n8bem og getter pg index qop rf l-1e8ba8b5a-149 sf l-1e8ba8b5a-14a trs u8qQt v wPPP xf l-1e8ba8b5a-144 yf l-1e8ba8b5a-145 zf l-1e8ba8b5a-146 {xyz |8vw{ }EULEnEEEuE| ~3Z}p N~ 0Y1 g ck g err g s QQ f l-3348ed57c594e3-2b f l-3348ed57c594e3-2c 8 QEULEEEEUcim
3p g quote 3p PEU 3&t g %%index 3}p N 0Y1 f l-3348ed57c594e3-30 f l-3348ed57c594e3-31 8 QEULEEEEUcim
3p 3p EU 3
t g %%copier 3}p N 0Y1 f l-3348ed57c594e3-35 f l-3348ed57c594e3-36 8 QEULEEEEUcim
3p 3p g %%%lexical-environment-type-set-fields PEU 3t g t-3348ed57c594e3-25 f l-3348ed57c594e3-3a 8R QEULEEEEUcim
34p EULEnEEEuE| 3p g if 3p 3=p 3?p PEU 3&t g
struct-ref 3p EU 3
t 3Ip 3p 3Lt PEU 3Mt g lexenv-wrapper g %lexenv-wrapper-procedure g m-3348ed57c594e3-41 6 f l-3348ed57c594e3-43 8G ELEEEEUcim 3Op N 1 ELEnEEEuE| 3Zp N 01 f l-3348ed57c594e3-46 f l-3348ed57c594e3-47 8 ELEEEEUcim
3p 3p PE 3&t 3p N 01 f l-3348ed57c594e3-4b f l-3348ed57c594e3-4c 8 ELEEEEUcim
3p 3p E 3 t 3p N 01 f l-3348ed57c594e3-50 f l-3348ed57c594e3-51 8 ELEEEEUcim
3p 3p PE 3t g t-3348ed57c594e3-40
f l-3348ed57c594e3-55
8
ELEEEEUcim
34p
ELEnEEEuE| 3p 3p 3=p 3?p P
E 3&t 3p
E 3 t 3Ip 3p 3t ! " ! # " $# %PE &3%t 'g lexenv-boxes (g %lexenv-boxes-procedure )g m-3348ed57c594e3-5c *)6 +* ,f l-3348ed57c594e3-5e -, .8G+- /*E.LEEEEUcim 03O/p 1N0 211 3E.LEnEEEuE| 43Z3p 5N4 60251 7** 8f l-3348ed57c594e3-61 9f l-3348ed57c594e3-62 :89 ;87: <*;E.LEEEEUcim
=3<p >3<p ?P;E. @3&?t A>@ BA C33p DNC E02D1 Ff l-3348ed57c594e3-66 Gf l-3348ed57c594e3-67 HFG I87H J*IE.LEEEEUcim
K3Jp L3Jp MIE. N3 Mt OLN PO Q33p RNQ S02R1 Tf l-3348ed57c594e3-6b Uf l-3348ed57c594e3-6c VTU W87V X*WE.LEEEEUcim
Y3Xp Z3Xp [PWE. \3[t ]Z\ ^] _g t-3348ed57c594e3-5b `_ af l-3348ed57c594e3-70 ba c8`+b d*cE.LEEEEUcim
e34dp fcE.LEnEEEuE| g3fp hg i3fp j3=fp k3?fp lkg mPcE. n3&mt ojln p3fp qcE. r3 qt spgr t3Ifp u3fp v3'mt wuv xtgw yiosx zehy {PE. |3({t }g lexenv-patterns ~g %lexenv-patterns-procedure g m-3348ed57c594e3-77 6 f l-3348ed57c594e3-79 8G ELEEEEUcim 3Op N 1 ELEnEEEuE| 3Zp N 01 f l-3348ed57c594e3-7c f l-3348ed57c594e3-7d 8 ELEEEEUcim
3p 3p PE 3&t 3p N 01 f l-3348ed57c594e3-81 f l-3348ed57c594e3-82 8 ELEEEEUcim
3p 3p E 3 t 3p N 01 f l-3348ed57c594e3-86 f l-3348ed57c594e3-87 8 ELEEEEUcim
3p 3p PE 3t g t-3348ed57c594e3-76 f l-3348ed57c594e3-8b 8 ELEEEEUcim
34p ELEnEEEuE| 3p 3p 3=p 3?p PE 3&t 3p E 3 t 3Ip 3p 3}t PE 3~t g each 11 1Ռ 1 1 g %%set-fields g dummy g check? g expr o g m-3348ed57c594e3-92 6 f l-3348ed57c594e3-97 f l-3348ed57c594e3-98 f l-3348ed57c594e3-99 f l-3348ed57c594e3-9a f l-3348ed57c594e3-9b 8 f l-3348ed57c594e3-94 8G g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d 6 f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 8 f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 8vw ELEEEE
3p PE 3&t 3Lt 3t 3't 3}t g map g list
g set-record-type-printer! f '# g
syntax-module
g length g syntax-object-of g
datum->syntax g t-3348ed57c594e3-cd g m-3348ed57c594e3-ce 6 f l-3348ed57c594e3-d1 8 f l-3348ed57c594e3-cb 8Gj f l-3348ed57c594e3-c8 8j PEE 3 t !g make-box "g case-lambda #g v $# %g m-3348ed57c594e3-d4 &%6 '&P (f l-3348ed57c594e3-d9 )f l-3348ed57c594e3-da *() +8$'* ,& -f l-3348ed57c594e3-d6 .- /8G,. 0P+E/ 13"0t 23F0t 32 4g set! 5340t 6g set-procedure-property! 7g identifier-syntax-box 8g make-transformer-from-box 9g identifier-syntax-from-box :g box ;: =P ?f l-3348ed57c594e3-e7 @f l-3348ed57c594e3-e8 A?@ B8;>A C= Df l-3348ed57c594e3-e4 ED F8GCE GPBEF H38Gt I3Gt Jg identifier-syntax K3JGt Lg id M3LGt N34Gt O3FGt PNMO QO Rg make-variable-transformer Sf 1unsupported binding captured by (the-environment) Tg unsupported-binding Ug ... Vg t-3348ed57c594e3-f9 WV Xg m-3348ed57c594e3-fa YX6 ZY [f l-3348ed57c594e3-fd \[ ]8WZ\ ^g loop _g n `^_ af l-3348ed57c594e3-f3 bf l-3348ed57c594e3-f4 cf l-3348ed57c594e3-f5 dabc e8`wd fg lvl gLf hf l-3348ed57c594e3-f1 if l-3348ed57c594e3-f2 jhi k8gQj lPE]EeEk m3Ult nm og within-nested-ellipses pg syntax-local-binding qg lexical rg or-map sg bound-identifier=? tg here ug mktmp vu wf l-3348ed57c594e3-101 xw y8vfx zg ids {z |f l-3348ed57c594e3-100 }| ~8{j} PEy~ 3tt g gensym f t g t-3348ed57c594e3-11f g m-3348ed57c594e3-120 6 f l-3348ed57c594e3-123 8 g t f l-3348ed57c594e3-11d 8j V g m-3348ed57c594e3-118 6 f l-3348ed57c594e3-119 8 g type g val f l-3348ed57c594e3-116 f l-3348ed57c594e3-117 8Q Lz f l-3348ed57c594e3-110 f l-3348ed57c594e3-111 8Q g lp g capture g wrappers zYz f l-3348ed57c594e3-103 f l-3348ed57c594e3-104 f l-3348ed57c594e3-105 f l-3348ed57c594e3-106 f l-3348ed57c594e3-107 f l-3348ed57c594e3-108 8, PEEEEEEEEy~ 3!t 111 g
let-syntax g t-3348ed57c594e3-128 g t-3348ed57c594e3-127 g t-3348ed57c594e3-129 g m-3348ed57c594e3-12a 6 f l-3348ed57c594e3-12e f l-3348ed57c594e3-12f f l-3348ed57c594e3-130 8 f l-3348ed57c594e3-126 8Gj PEEEEEEEEEEEy~ 3t 39t g displaced-lexical g procedure-property g t-3348ed57c594e3-139 g t-3348ed57c594e3-138 g t-3348ed57c594e3-13a g m-3348ed57c594e3-13b 6 f l-3348ed57c594e3-13f f l-3348ed57c594e3-140 f l-3348ed57c594e3-141 8 f l-3348ed57c594e3-137 8Gj g b f l-3348ed57c594e3-134 8j PEEEEEEEEEEEy~ 3t 39t g t-3348ed57c594e3-148 g t-3348ed57c594e3-147 g t-3348ed57c594e3-149 g m-3348ed57c594e3-14a 6 f l-3348ed57c594e3-14e f l-3348ed57c594e3-14f f l-3348ed57c594e3-150 8 f l-3348ed57c594e3-146 8Gj PEEEEEEEEEEEy~ 3t 3Tt 3t g pattern-variable f p g with-syntax g t-3348ed57c594e3-15b g t-3348ed57c594e3-15a g t-3348ed57c594e3-15c g m-3348ed57c594e3-15d 6 f l-3348ed57c594e3-161 f l-3348ed57c594e3-162 f l-3348ed57c594e3-163 8 f l-3348ed57c594e3-159 8Gj g nested f l-3348ed57c594e3-154 f l-3348ed57c594e3-155 8Q PEEEEEEEEEEEy~
3 t 3 t PEEEEEEEy~
3t t g
syntax->datum g ellipsis g
with-ellipsis g t-3348ed57c594e3-16a g t-3348ed57c594e3-169 g m-3348ed57c594e3-16b 6 f l-3348ed57c594e3-16f f l-3348ed57c594e3-170 8 f l-3348ed57c594e3-168 8Gj PEEEE EEEEEEy~ 3 t g error !f what "g analyze-identifiers #1 $g syntax-locally-bound-identifiers %g begin &g wrap-expression '& (f l-3348ed57c594e3-186 )( *8'f) +Yz ,f l-3348ed57c594e3-182 -f l-3348ed57c594e3-183 .f l-3348ed57c594e3-184 /f l-3348ed57c594e3-185 0,-./ 18+0 2 r 3f l-3348ed57c594e3-17a 4f l-3348ed57c594e3-17b 534 682Q5 7f l-3348ed57c594e3-174 87 98Gj8 :P**16E9 ;3%:t <3:t =g exp >3=:t ?;<> @ A@1 Bg f Cg c Dg pname Eg plvl Fg pformal Gg wrapped HBCDEFG If l-3348ed57c594e3-193 Jf l-3348ed57c594e3-194 Kf l-3348ed57c594e3-195 Lf l-3348ed57c594e3-196 Mf l-3348ed57c594e3-197 Nf l-3348ed57c594e3-198 OIJKLMN P8H,O QPEP**16E9 R3+Qt S3Qt T34Qt U3=Qt V3Qt WUU X3 Qt Y3Qt Zg module? [f invalid lexical environment \g resolve-module ]g
env-module ^g env-boxes _g t-3348ed57c594e3-1d7 `_ ag m-3348ed57c594e3-1d8 ba6 cb df l-3348ed57c594e3-1db ed f8`ce gg e hFg if l-3348ed57c594e3-1be jf l-3348ed57c594e3-1bf kij l8hQk mPEfEEl n34mt o3mt pg
local-wrap qg eval rg optsS sr ts ug envS vg fromS wg schemeC 5 h0B ]4
"5 4% > " G & h ] C g scope
g wrapper g boxes g patterns g filenamef ice-9/local-eval.scm
g nameg #%make-lexical-environment-procedure C'R4*+,/2 h ] C g t-3348ed57c594e3-3
g t-3348ed57c594e3-4 g t-3348ed57c594e3-5 g t-3348ed57c594e3-6 C+ h W ]L 6 O g a
g filenamef ice-9/local-eval.scm
C0 h G ] L 6? g filenamef ice-9/local-eval.scm
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef ice-9/local-eval.scm
n C5+R&֨ 4 &> " G ܖ'i &R& h ] $ CC | g obj
g filenamef ice-9/local-eval.scm
g nameg %lexical-environment?-procedure CR4*,/F h ; ] C 3 g t-3348ed57c594e3-19
C h W ]L 6 O g a
g filenamef ice-9/local-eval.scm
C0 h G ] L 6? g filenamef ice-9/local-eval.scm
CH h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef ice-9/local-eval.scm
n C5R&KL h z ] &
C 6r g s
g filenamef ice-9/local-eval.scm
g nameg %lexenv-scope-procedure CMR4*L,/ h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C h ; ] C 3 g t-3348ed57c594e3-25
CL h W ]L 6 O g a
g filenamef ice-9/local-eval.scm
C0 h G ] L 6? g filenamef ice-9/local-eval.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef ice-9/local-eval.scm
C5LR&K h | ] & C 6t g s
g filenamef ice-9/local-eval.scm
g nameg %lexenv-wrapper-procedure CR4*,/ h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C$ h ; ] C 3 g t-3348ed57c594e3-40
C h W ]L 6 O g a
g filenamef ice-9/local-eval.scm
C0 h G ] L 6? g filenamef ice-9/local-eval.scm
C& h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef ice-9/local-eval.scm
C5R&K' h z ] & C 6 r g s
g filenamef ice-9/local-eval.scm
g nameg %lexenv-boxes-procedure C(R4*',/6=B h : ]C 2 g err
g s CEKP h : ]C 2 g err
g s CSY^ h : ]C 2 g err
g s Cz h ; ] C 3 g t-3348ed57c594e3-5b
C' h W ]L 6 O g a
g filenamef ice-9/local-eval.scm
C0 h G ] L 6? g filenamef ice-9/local-eval.scm
C| h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef ice-9/local-eval.scm
C5'R&K} h } ] & C 6 u g s
g filenamef ice-9/local-eval.scm
g nameg %lexenv-patterns-procedure C~R4*},/ h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C h ; ] C 3 g t-3348ed57c594e3-76
C} h W ]L 6 O g a
g filenamef ice-9/local-eval.scm
C0 h G ] L 6? g filenamef ice-9/local-eval.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef ice-9/local-eval.scm
C5}R4*,/ h v ]45C n g dummy
g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/local-eval.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R4
i&i &KL
'}
hp ]4 &
" 4 554 & " 4 554 & " 4 556 g e
j g port j g filenamef ice-9/local-eval.scm
$ % & & ' & ( ' - ' G ' H ' ( M ' 0 g ' ( h ' j % j C> " G 4*,/ h p ] 4 5 C h g x
g tmp g filenamef ice-9/local-eval.scm , , C h( j ] 4 5 $ @ 6 b g form
" g tmp " g filenamef ice-9/local-eval.scm
* " C5R4*!,/135 h < ] C 4 g dummy
g v C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/local-eval.scm
.
" g
macro-typeg syntax-rulesg patternsg v C5!R67 h ]4 > " G C g id
g trans g filenamef ice-9/local-eval.scm
3
4 4 ! 4 g nameg make-transformer-from-box C8R4*9,/HIKMPQ h( > ] C6 g dummy
( g box ( ( C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/local-eval.scm
7
" g
macro-typeg syntax-rulesg patternsg box C59RRS h o ] 6 g g x
g filenamef ice-9/local-eval.scm
? A B @ C h ]6y g name
g filenamef ice-9/local-eval.scm
=
> g nameg unsupported-binding CTRn h0 ]"
$ C " " g id
- g lvl - g s ! g n ! g filenamef ice-9/local-eval.scm
E
F G G I ! I ! F - g nameg within-nested-ellipses CoRpqrs h a ] L 6 Y g x
g filenamef ice-9/local-eval.scm
'
C/ h ] C x g t-3348ed57c594e3-128
g t-3348ed57c594e3-127 g t-3348ed57c594e3-129 C h0 ]L L 45 $ @6 z g x
- g tmp - g tmp - g filenamef ice-9/local-eval.scm
" - C,7/ h ] C x g t-3348ed57c594e3-139
g t-3348ed57c594e3-138 g t-3348ed57c594e3-13a C h0 ]L L 45 $ @6 z g x
- g tmp - g tmp - g filenamef ice-9/local-eval.scm
" - C/ h ] C x g t-3348ed57c594e3-148
g t-3348ed57c594e3-147 g t-3348ed57c594e3-149 C h0 ]L L 45 $ @6 z g x
- g tmp - g tmp - g filenamef ice-9/local-eval.scm
" - Co/
h ] C x g t-3348ed57c594e3-15b
g t-3348ed57c594e3-15a g t-3348ed57c594e3-15c C h0 ]L L 45 $ @6 z g x
- g tmp - g tmp - g filenamef ice-9/local-eval.scm
- C
/ h ^ ] C V g t-3348ed57c594e3-16a
g t-3348ed57c594e3-169 C h0 ]L 45 $ @6 z g x
+ g tmp + g tmp + g filenamef ice-9/local-eval.scm
+ C ! h ]5 (
D 4> G $ g4O 5$ "4455
O "d $ "C $ Y4
5 $ ( O "O "$ U445545
O 4455 "$ O "Z6 g ids
g capture g formals g wrappers g patterns g id g ids g type ' g val ' g t o g b ! g t B g nested
B
g filenamef ice-9/local-eval.scm
% * 7 8 I a b g k " m o o } 0 . ! * + 0 * 4 2 6 * 8 9 @ 8 B B X Y ! ^ 7 f ! i ! n q < g nameg lp C h ] O Q 6 g ids
g lp
g filenamef ice-9/local-eval.scm
~
, ; J g nameg analyze-identifiers C"R4* ,/#h 7 ] C / g the-environment
C"$ h0 ]" ( C45 " L " g x
. g x " g wrappers " g filenamef ice-9/local-eval.scm
* " "
. g nameg wrap-expression C?/ARSTUVW XXYS h ] C~ g tmp-3348ed57c594e3-1a5
g tmp-3348ed57c594e3-1a4 g tmp-3348ed57c594e3-1a3 C hP ]L 45 4
5 C g f
O g c O g pname O g plvl O g pformal O g wrapped O O C
hh < ]:445> G O Q 45 45 $ O @ 6 4 g the-environment
a g scope a g capture a g formals a g wrappers a g patterns a g wrap-expression % a g tmp : a g tmp E a g filenamef ice-9/local-eval.scm 1 " : a C h@ y ]4 5 $ @4 5 $ @ 6 q g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/local-eval.scm
9 C5 RZ [&\ hH ]" 4 5$ C 6 $ &
4
56"" g e
A g filenamef ice-9/local-eval.scm
# & / - 5 < 7 - 9 A g nameg
env-module C]RZ [& h@ ]" 4 5$ C 6 $ & C"" g e
9 g filenamef ice-9/local-eval.scm
" % 0 9 g nameg env-boxes C^RZno [&o h( ] 456 g l
# g name # g lvl # g scope # g filenamef ice-9/local-eval.scm
, # # C
h`
]" 45$ C6$ *& 4
54 5@"" g x
Y g e Y g filenamef ice-9/local-eval.scm
$ $ ' + . 8 9 ? C D M O Q Y g nameg
local-wrap CpRqp]^ h ]44 545545@ g x
g e g filenamef ice-9/local-eval.scm
g nameg
local-evalg
documentationf GEvaluate the expression @var{x} within the lexical environment @var{e}. CRtpu]vwr^
hH U - / 0 3 # 44 54554 5@ M g x
D g e D g opts D g filenamef ice-9/local-eval.scm
( + ) 5 ; < D
D
g optsS g nameg
local-compileg
documentationf SCompile and evaluate the expression @var{x} within the lexical
environment @var{e}. C!RC g m
, g rtd
: g filenamef ice-9/local-eval.scm
"
" 3
$ =
% E
41 ~
;N