" G 8i 7R7 h k ] $ CC c g obj
g filenamef web/uri.scm
,
g nameg %uri?-procedure CR4;#=@b h 2 ] C * g
t-50eea-22
C# h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.scm ,
Cd h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 w g x
n g tmp n g tmp " n g tmp > n g filenamef web/uri.scm
,
n C5#R7g$ h o ] &
C 6g g s
g filenamef web/uri.scm
,
g nameg %uri-scheme-procedure ChR4;$=@ 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 2 ] C * g
t-50eea-2e
C$ h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.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 web/uri.scm
,
C5$R7g% h q ] & C 6i g s
g filenamef web/uri.scm
,
g nameg %uri-userinfo-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 2 ] C * g
t-50eea-49
C% h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.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 web/uri.scm
,
C5%R7g& h m ] & C 6 e g s
g filenamef web/uri.scm
,
g nameg %uri-host-procedure CAR4;&=@OV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s Clrw h : ]C 2 g err
g s C h 2 ] C * g
t-50eea-64
C& h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.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 web/uri.scm
,
C5&R7g' h m ] & C 6 e g s
g filenamef web/uri.scm
,
g nameg %uri-port-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 2 ] C * g
t-50eea-7f
C' h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.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 web/uri.scm
,
C5'R7g( h m ] & C 6 e g s
g filenamef web/uri.scm
,
g nameg %uri-path-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 2 ] C * g
t-50eea-9a
C( h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.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 web/uri.scm
,
C5(R7g) h n ] & C 6 f g s
g filenamef web/uri.scm
,
g nameg %uri-query-procedure C@R4;)=@NUZ h : ]C 2 g err
g s C]ch h : ]C 2 g err
g s Ckqv h : ]C 2 g err
g s C h 2 ] C * g
t-50eea-b5
C) h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.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 web/uri.scm
,
C5)R7g* h q ] & C 6 i g s
g filenamef web/uri.scm
,
g nameg %uri-fragment-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 2 ] C * g
t-50eea-d0
C* h N ]L 6 F g a
g filenamef web/uri.scm ,
CA h > ] L 66 g filenamef web/uri.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 web/uri.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 web/uri.scm
,
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R7 h( ] $ &
$ CCCC g obj
" g filenamef web/uri.scm
7
8 8 8 8 8 " g nameg
absolute-uri? C$R%& h - 1 3 6 g message
g args g filenamef web/uri.scm
:
; ;
g nameg uri-error C&R'() h0 ]4 5$ 4 5$ 4 5$
CCCC g port
. g filenamef web/uri.scm
=
>
> > > > $ # > & > 4 . g nameg positive-exact-integer? C*R+,-&./012*345 h E ] $ " E45$ 2$ *45$ " 4
5/$ 6CC6" !$ 45$ "6"" 2$ (45$ 45" $ 6""" !$ 4
5$ " 6"$ " $ $ " 6"
6 = g scheme
g userinfo g host g port g path g query g fragment g filenamef web/uri.scm
@
B A L A N ) N / O 9 O : O > N B P F P N M R M R A ] J g J o K s K w A H H H , H ' H H I I A F F G G A D A D E E C C + g nameg validate-uri C6REF67 h - / 0 3 # # # # # # # $ "4 > " G " C g scheme
g userinfo g host g port g path g query g fragment g validate? g filenamef web/uri.scm
R
6 R : Y Y Z Z [
g userinfoS g hostS g portS g pathS g queryS g fragmentS g validate?S g nameg build-urig
documentation k C o n s t r u c t a U R I o b j e c t . S C H E M E s h o u l d b e a s y m b o l , P O R T
e i t h e r a p o s i t i v e , e x a c t i n t e g e r o r # f , a n d t h e r e s t o f t h e
f i e l d s a r e e i t h e r s t r i n g s o r # f . I f V A L I D A T E ? i s t r u e ,
a l s o r u n s o m e c o n s i s t e n c y c h e c k s t o m a k e s u r e t h a t t h e c o n s t r u c t e d U R I
i s v a l i d . C+R4GiH5IR4GiJ5KR4GiL5MR4GiN5ORPISTU h F ] L 6 > g filenamef web/uri.scm
l
l
Ch S - 1 3 C K g args
g filenamef web/uri.scm
l
CKTV h F ] L 6 > g filenamef web/uri.scm
n
n
Ch S - 1 3 C K g args
g filenamef web/uri.scm
n
CWMXO
h ]4 5$ O 64 5$ O 6" >4 .5 $ !4
4 55$ "C 6
" g host
g start < z g end G z g filenamef web/uri.scm
i
k j l m * j 8 n < p = q G q O r P s U t a s e s h u n u z v z p g nameg valid-host? C1RYZR[\R]^R_`R4Gi4aibZi\i^i`i55cRdPc1e,f h ] $ D4 5 $ 44 5 $ " 4 5 5$ ^4 54 5 $ " 4 5 4 5 $ 45$ " 45" D6 6 g authority
g fail g m g t - G g t _ y g port g filenamef web/uri.scm
! " % $ - < $ I M N W _ n z % g nameg parse-authority CgRhiRjkRlmRnoRpqR4airiikimioiqi5sR4Gisi5tRwPtxeyzg7
h i ]I45 U 4 5 $ " 4> " G 4 5 $ 4455" 4 54 54 54 5 $ 4> " " G XCXFG C a g string
g m g str : V g scheme z g authority z g path z g query z g fragment z g userinfo g host g port g k g filenamef web/uri.scm
" 2 : B C F 0 N W ` i r z
g nameg string->uri*g
documentation k urig
documentation k
" G 4,i > " G 7g$%&'()*FdW h ]9 &
" 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4 5
$ 4
4 5 5"
$ w4
$
4
5"
4:5$ 4
5" 4 &
" 4 55$
" 4
4555"
$
4
5"
$
4
5"
6 g uri
g scheme g userinfo 8 g host U g port r g path g query g fragment g filenamef web/uri.scm
! 8 = U Z r w 0 % = % + 4 & + + F J L Q U + V / ^ ` f n o s w } : g nameg uri->stringg
documentationf Serialize URI to a string. If the URI has a port that is the
default port for its scheme, the port is not included in the
serialization. C.R h@ ]45 4 > " G 45 4> " G C g proc
9 g port 9 g str " 9 g filenamef web/uri.scm
" % 9 g nameg call-with-output-string* CR h@ ]4> G 4 > " G 45 4> " G C g proc
@ g port @ g get-bytevector @ g bv ) @ g filenamef web/uri.scm
% ) , @ g nameg call-with-output-bytevector* CR h d ]4 L> " G L 6 \ g port
g filenamef web/uri.scm
C h( ]4 5$ 456 O 6 g encoding
' g proc ' g filenamef web/uri.scm
' ' g nameg call-with-encoded-output-string CR h [ ]L 6 S g port
g filenamef web/uri.scm
'
)
C h( ]45$ 6 O 6 g str
" g encoding " g filenamef web/uri.scm
" " g nameg
encode-string CR hP ]45$ 64 5 4> " G 45 4> " G C g bv
P g encoding P g p P g res 9 P g filenamef web/uri.scm
3 9 < !
P g nameg
decode-string CR4i5R-f&
h0 m ]!" #L $ 4L5 " L $ f%$ X4L54L 5 45$ &45$ 445 5" " " " $ 4 > " G "N45 $ "4 45> " G " L6+$ 'L$ 4 > " G """C
"e g port
0 g i ) g ch ' g a I g b I g t g filenamef web/uri.scm
K L
M M N N # S & S * S / S , 3 S 4 T % ; T 5 = T % > U % G U 5 I U % I T N V # Z V [ W # g V h X # k X 3 w X # O Z [ [ \ \ O ] ] $ ] ^ ^ ` " ` O P O P Q Q $ Q R R ) L
2 0 C hX
- / 0 3 # # 4 5 4 O 5 $ 6C g str
R g encoding R g decode-plus-to-space? R g len - R g bv ? R g filenamef web/uri.scm
2
2 ) ' H - H 0 J
? H G b O c R
g encodingS g decode-plus-to-space?S g nameg
uri-decodeg
documentation k P e r c e n t - d e c o d e t h e g i v e n S T R , a c c o r d i n g t o E N C O D I N G ,
w h i c h s h o u l d b e t h e n a m e o f a c h a r a c t e r e n c o d i n g .
N o t e t h a t t h i s f u n c t i o n s h o u l d n o t g e n e r a l l y b e a p p l i e d t o a f u l l U R I
s t r i n g . F o r p a t h s , u s e s p l i t - a n d - d e c o d e - u r i - p a t h i n s t e a d . F o r q u e r y
s t r i n g s , s p l i t t h e q u e r y o n & a n d = b o u n d a r i e s , a n d d e c o d e
t h e c o m p o n e n t s s e p a r a t e l y .
N o t e a l s o t h a t p e r c e n t - e n c o d e d s t r i n g s e n c o d e _ b y t e s _ , n o t c h a r a c t e r s .
T h e r e i s n o g u a r a n t e e t h a t a g i v e n b y t e s e q u e n c e i s a v a l i d s t r i n g
e n c o d i n g . T h e r e f o r e t h i s r o u t i n e m a y s i g n a l a n e r r o r i f t h e d e c o d e d
b y t e s a r e n o t v a l i d f o r t h e g i v e n e n c o d i n g . P a s s # f f o r E N C O D I N G i f
y o u w a n t d e c o d e d b y t e s a s a b y t e v e c t o r d i r e c t l y . s e t - p o r t - e n c o d i n g ! ,
f o r m o r e i n f o r m a t i o n o n c h a r a c t e r e n c o d i n g s .
I f D E C O D E - P L U S - T O - S P A C E ? i s t r u e , w h i c h i s t h e d e f a u l t , a l s o r e p l a c e
i n s t a n c e s o f t h e p l u s c h a r a c t e r ( + ) w i t h a s p a c e c h a r a c t e r . T h i s i s
n e e d e d w h e n p a r s i n g a p p l i c a t i o n / x - w w w - f o r m - u r l e n c o d e d d a t a .
R e t u r n s a s t r i n g o f t h e d e c o d e d c h a r a c t e r s , o r a b y t e v e c t o r i f
E N C O D I N G w a s # f . C/R4i5R4i5R4i5R4iii5R4ii4i55RW h } ]4L 5C u g ch
g filenamef web/uri.scm
g nameg needs-escaped? C h ]!4L 5$ L644 5L 5 45 " p$ e 4%L> " G $ 40L> " G " 444 55L> " G "C
" g ch
g bv % g len . g i 4 g byte B g filenamef web/uri.scm
* % % ( . 4 9 = B $ B E ] a b z } # 2 # C h [ ]L LO L 6 S g port
g filenamef web/uri.scm
C hP e - / 0 3 # # 4 O 5$ O 6 C ] g str
K g encoding K g unescaped-chars K g filenamef web/uri.scm
{
{ ) ( 9 H K
g encodingS g unescaped-charsS g nameg
uri-encodeg
documentation k dP e r c e n t - e n c o d e a n y c h a r a c t e r n o t i n t h e c h a r a c t e r s e t ,
U N E S C A P E D - C H A R S .
T h e d e f a u l t c h a r a c t e r s e t i n c l u d e s a l p h a n u m e r i c s f r o m A S C I I , a s w e l l a s
t h e s p e c i a l c h a r a c t e r s - , . , _ , a n d ~ . A n y o t h e r c h a r a c t e r w i l l
b e p e r c e n t - e n c o d e d , b y w r i t i n g o u t t h e c h a r a c t e r t o a b y t e v e c t o r w i t h i n
t h e g i v e n E N C O D I N G , t h e n e n c o d i n g e a c h b y t e a s % H H , w h e r e H H i s t h e
u p p e r c a s e h e x a d e c i m a l r e p r e s e n t a t i o n o f t h e b y t e . C0R, h a ]4 5C Y g x
g filenamef web/uri.scm
C / h X ] 6 P g s
g filenamef web/uri.scm
C h e ]44 /556] g path
g filenamef web/uri.scm
g nameg split-and-decode-uri-pathg
documentationk S p l i t P A T H i n t o i t s c o m p o n e n t s , a n d d e c o d e e a c h c o m p o n e n t ,
r e m o v i n g e m p t y c o m p o n e n t s .
F o r e x a m p l e , " / f o o / b a r % 2 0 b a z / " d e c o d e s t o t h e t w o - e l e m e n t l i s t ,
( " f o o " " b a r b a z " ) . C1R 0 h I ]4 56 A g parts
g filenamef web/uri.scm
& g nameg encode-and-join-uri-pathg
documentation k U R I - e n c o d e e a c h e l e m e n t o f P A R T S , w h i c h s h o u l d b e a l i s t o f
s t r i n g s , a n d j o i n t h e p a r t s t o g e t h e r w i t h / a s a d e l i m i t e r .
F o r e x a m p l e , t h e l i s t ( " s c r a m b l e d e g g s " " b i s c u i t s & g r a v y " )
e n c o d e s a s " s c r a m b l e d % 2 0 e g g s / b i s c u i t s % 2 6 g r a v y " . C2RC g m
, g rtd
I q g filenamef web/uri.scm
B ,
+5 7
+ :
, =
0i @
6 R
6 a 6 a 6 a 6 `
6 c 6 c 6 c 6 b
6 e 6 e 6 e 6 d
6 g 6 g 6 g 6 f
: i
: y : x
: { : z
: } : |
: : ~
: : : : : :
=]
=` =d
=g =k
=n =r
=u =y
=| =
= =
= =
= =
B%
Dx
Dy D
E
FW
FX
F_ Ff
Fo
Fv F~
L-
MZ
N
PV
Q
SN
SO 0 SW 0 SY 0 S] /
h 2
h h h i h h h g
h m h m h m h l
h o h o h o h n
h q h p
h u h v i v $ i v i u i t
th {
y
}|
f }~
C6 PK ! ]
web/http.gonu [ GOOF----LE-8-2.0 ]} 4 hg ] g guile g define-module* g web g http g filenameS
f web/http.scm g importsS g srfi
g srfi-1
g selectS g append-map! g map! g srfi-9 g srfi-19 g ice-9 g rdelim g match !g q "! #" $g binary-ports %$ &% 'g rnrs (g bytevectors )'( *) +g uri ,+ -, . #&*- /g exportsS 0g string->header 1g header->string 2g declare-header! 3g declare-opaque-header! 4g
known-header? 5g
header-parser 6g header-validator 7g
header-writer 8g read-header 9g parse-header :g
valid-header? ;g write-header g parse-http-method ?g parse-http-version @g parse-request-uri Ag read-request-line Bg write-request-line Cg read-response-line Dg write-response-line Eg make-chunked-input-port Fg make-chunked-output-port Gg http-proxy-port? Hg set-http-proxy-port?! I0123456789:;<=>?@ABCDEFGH Jg set-current-module KJ LJ Mg string->symbol Ng string-downcase Og
Pg %make-header-decl-procedure Qg make-syntax-transformer RQ SQ Tg make-header-decl Ug macro Vg $sc-dispatch WV XV Yg _ Zg any [YZZZZZ \g
syntax-object ]g lambda ^g
m-556baa-a _g top `^_ ag ribcage bg
t-556baa-5 cg
t-556baa-6 dg
t-556baa-7 eg
t-556baa-8 fg
t-556baa-9 gbcdef h````` if
l-556baa-f jf l-556baa-10 kf l-556baa-11 lf l-556baa-12 mf l-556baa-13 nijklm oaghn pa qg x rq s` tf
l-556baa-c ut varsu wg shift xg proc-name yg args zxy {_ |{{ }f l-1e8ba8b5a-2ba ~f l-1e8ba8b5a-2bb }~ az| g key g value g name g formals g body {{{{{ f l-1e8ba8b5a-2ad f l-1e8ba8b5a-2ae f l-1e8ba8b5a-2af f l-1e8ba8b5a-2b0 f l-1e8ba8b5a-2b1 a g make-procedure-name { f l-1e8ba8b5a-29d a { f l-1e8ba8b5a-29c ar `opvwpppp
g hygiene \] {opv \ g parser \ g validator \ g writer \ g multiple? \ g make-struct g
m-556baa-3 _ g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e _ f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 a g ctor-args f l-1e8ba8b5a-37a a g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 a| g form g type-name g constructor-spec g field-names {{{{ f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e a g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers {{{{{{{{ f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 a f l-1e8ba8b5a-334 ar opvwppppp \ \O \
g each-any Y팤 g syntax-violation f Wrong number of arguments g identifier? {pv \P f -source expression failed to match any pattern g record-type-vtable g
pwpwpwpwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %header-decl?-procedure
g header-decl? YZ g m-556baa-1f
_ g t-556baa-1e
f l-556baa-24 a f l-556baa-21 ar
pwpppp
\] g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b ! "g m-1e8ba8b5a-47f #"_ $####### %f l-1e8ba8b5a-483 &f l-1e8ba8b5a-484 'f l-1e8ba8b5a-485 (f l-1e8ba8b5a-486 )f l-1e8ba8b5a-487 *f l-1e8ba8b5a-488 +f l-1e8ba8b5a-489 ,%&'()*+ -a!$, .g copier-id /. 0f l-1e8ba8b5a-476 10 2a/1 3g ctor-name 43 5f l-1e8ba8b5a-46e 65 7a46 8 9f l-1e8ba8b5a-46c :9 ;a8: f l-1e8ba8b5a-46a ?> @a=? Ag
immutable? BA Cf l-1e8ba8b5a-468 DC EaBD Fg field-count GF Hf l-1e8ba8b5a-466 IH JaGI Kg
getter-ids LK Mf l-1e8ba8b5a-463 NM OaLN Pg field-ids QP Rf l-1e8ba8b5a-460 SR TaQS Ug predicate-name Vg
field-spec WAUV X{{{{{{ Yf l-1e8ba8b5a-453 Zf l-1e8ba8b5a-454 [f l-1e8ba8b5a-455 \f l-1e8ba8b5a-456 ]f l-1e8ba8b5a-457 ^f l-1e8ba8b5a-458 _YZ[\]^ `aWX_ apwp-pppp2p7p;p@pEpJpOpT` b\a cb dg and e\da fg struct? g\fa hgb ig eq? j\ia kg
struct-vtable l\ka mlb n{p o\On pjmo qehp rcq s{p t\ s ug throw-bad-struct vu wu xg header-decl-name yg %header-decl-name-procedure zg free-id {g
%%on-error |g m-556baa-2b }|_ ~} f l-556baa-2d ar~ }pwpppp \{ z Z g %%type g t-1e8ba8b5a-3a5 g t-1e8ba8b5a-3a6 g t-1e8ba8b5a-3a7 g t-1e8ba8b5a-3a8 g t-1e8ba8b5a-3a9 g t-1e8ba8b5a-3aa g t-1e8ba8b5a-3ab g m-1e8ba8b5a-3ac _ f l-1e8ba8b5a-3b0 f l-1e8ba8b5a-3b1 f l-1e8ba8b5a-3b2 f l-1e8ba8b5a-3b3 f l-1e8ba8b5a-3b4 f l-1e8ba8b5a-3b5 f l-1e8ba8b5a-3b6 a g getter g index f l-1e8ba8b5a-3a3 f l-1e8ba8b5a-3a4 a| K. {{{ f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 a pwppppp \ z YZ g ck g err g s }} f l-556baa-30 f l-556baa-31 a }pwpppp
\ g quote \ {p \O g %%index \ z YZ f l-556baa-35 f l-556baa-36 a }pwpppp
\ \ p \
g %%copier \ z YZ f l-556baa-3a f l-556baa-3b a }pwpppp
\ \ g %%-set-fields {p \ g t-556baa-2a f l-556baa-3f a~ }pwpppp
\] pwppppp \ g if \ \i \k {p \O g
struct-ref \ p \
\u \ \x {p \y g header-decl-parser g %header-decl-parser-procedure g m-556baa-46 _ f l-556baa-48 ar pwpppp \{ z Z pwppppp
\ z
Y Z
f l-556baa-4b f l-556baa-4c a
pwpppp
\ \ {p \O \ z YZ f l-556baa-50 f l-556baa-51 a
pwpppp
!\ "\ # p $\ # %"$ &% '\ (z' )Y(Z *f l-556baa-55 +f l-556baa-56 ,*+ -a
, . -pwpppp
/\. 0\. 1{-p 2\1 302 43 5g t-556baa-45 65 7f l-556baa-5a 87 9a68 : 9pwpppp
;\]: <9pwppppp =\< >= ?\< @\i< A\k< BA= C{9p D\OC E@BD F\< G9p H\ G IF=H J\u< K\< L\C MKL NJ=M O?EIN P;>O Q{p R\Q Sg header-decl-validator Tg %header-decl-validator-procedure Ug m-556baa-61 VU_ WV Xf l-556baa-63 YX ZarWY [VpZwpppp \\{[ ]z\ ^]Z _pZwppppp `\_ az` bY^aZ cVV df l-556baa-66 ef l-556baa-67 fde gacf hVgpZwpppp
i\h j\h k{gpZ l\Ok mjl nm o\_ pzo qY^pZ rf l-556baa-6b sf l-556baa-6c trs uact vVupZwpppp
w\v x\v yupZ z\ y {xz |{ }\_ ~z} Y^~Z f l-556baa-70 f l-556baa-71 ac VpZwpppp
\ \ {pZ \ g t-556baa-60 f l-556baa-75 aW VpZwpppp
\] pZwppppp \ \ \i \k {pZ \O \ pZ \ \u \ \S {pZ \T g header-decl-writer g %header-decl-writer-procedure g m-556baa-7c _ f l-556baa-7e ar pwpppp \{ z Z pwppppp \ z YZ f l-556baa-81 f l-556baa-82 a pwpppp
\ \ {p \O \ z YZ f l-556baa-86 f l-556baa-87 a pwpppp
\ \ p \ \ z YZ f l-556baa-8b f l-556baa-8c a pwpppp
\ \ {p \ g t-556baa-7b f l-556baa-90 a pwpppp
\] pwppppp \ \ \i \k {p \O \ p \ \u \ \ {p \ g header-decl-multiple? g %header-decl-multiple?-procedure g m-556baa-97 _ f l-556baa-99 ar pwpppp \{ z
Z pwppppp \
z Y
Z f l-556baa-9c f l-556baa-9d a pwpppp
\ \ {p \O \ z Y
Z f l-556baa-a1 f l-556baa-a2 !a "!pwpppp
#\" $\" %!p &\ % '$& (' )\ *z) +Y
*Z ,f l-556baa-a6 -f l-556baa-a7 .,- /a. 0/pwpppp
1\0 2\0 3{/p 4\3 524 65 7g t-556baa-96 87 9f l-556baa-ab :9 ;a8: <;pwpppp
=\]< >;pwppppp ?\> @? A\> B\i> C\k> DC? E{;p F\OE GBDF H\> I;p J\ I KH?J L\u> M\> N\E OMN PL?O QAGKP R=@Q S{p T\ S Ug each VZZ WUV XZW YZX ZZY [g %%set-fields \g dummy ]g check? ^g expr _\]^ `g m-556baa-b2 a`_ ba cf l-556baa-b7 df l-556baa-b8 ef l-556baa-b9 ff l-556baa-ba gf l-556baa-bb hcdefg ia_bh ja kf l-556baa-b4 lk marjl ng t-1e8ba8b5a-3c4 og t-1e8ba8b5a-3c6 pg t-1e8ba8b5a-3c5 qnop rg m-1e8ba8b5a-3c7 sr_ tsss uf l-1e8ba8b5a-3cb vf l-1e8ba8b5a-3cc wf l-1e8ba8b5a-3cd xuvw yaqtx zf l-1e8ba8b5a-3c1 {f l-1e8ba8b5a-3c2 |f l-1e8ba8b5a-3c3 }z{| ~a} ipmwpyppp~
\[ {ipm \O \x \ \S \ \ g map g list g make-hash-table g *declared-headers* g hashq-ref g lookup-header-decl g multiple?S g error f bad header decl g string? g
hashq-set! g string-titlecase g symbol->string g display g
%read-line g string-suffix? f
g string-drop-right g
bad-header g read-header-line f no matching pattern g peek-char g read-continuation-line g
string-append g call-with-input-string f g read g *eof* g string-null? g string=? g string-index g %read g substring g string-trim-both g char-set:whitespace f header name not a symbol f : f
g eof-object? g reverse! g throw g bad-header-component g format f Bad ~a header: ~a
g bad-header-printer f Bad ~a header component: ~a
g bad-header-component-printer g set-exception-printer! g parse-opaque-string g validate-opaque-string g write-opaque-string g string->char-set f [^][()<>@,;:\"?= ] g separators-without-slash g
string-rindex g validate-media-type g
media-type g parse-media-type g
string-length g char-whitespace? g
string-ref g skip-whitespace g trim-whitespace g split-and-trim g list-of? g list-of-strings? g
write-list f , g write-list-of-strings g split-header-names g symbol? g list-of-header-names? g write-header-list g make-string g substring-move! g string-set! g collect-escaped-string g incremental?S g qstring g
parse-qstring g string-split f \" g
write-qstring g string= f 1 f 1. f 1.0 f 1.00 f 1.000 g quality f 0 f 0. g
char->integer g
parse-quality g non-negative-integer? g valid-quality? g
integer->char g
write-quality g string-prefix? f q= g parse-quality-list g validate-quality-list f ;q= f , g write-quality-list g non-negative-integer g parse-non-negative-integer g number? g exact? g integer? g default-val-parser g default-val-validator g default-val-writer g min g key-value-list g parse-key-value-list g key-value-list? g write-key-value-list g char-set g param-delimiters g char-set-adjoin
g param-value-delimiters g parse-param-component g
param-list
g parse-param-list g validate-param-list f ; g write-param-list g
string-match? YZZ g
syntax->datum g
char-numeric? g t-556baa-43c g m-556baa-43d _ f l-556baa-440 a g m-556baa-439 _ !f l-556baa-43a "! #a " $g c %$ &f l-556baa-437 '& (a%' )g lp *g i +g tests ,)*+ -f l-556baa-431 .f l-556baa-432 /f l-556baa-433 0-./ 1a,0 2g p 32 4f l-556baa-424 54 6a35 7g str 8g pat 978 :f l-556baa-420 ;f l-556baa-421 <:; =a9|< >f l-556baa-419 ?> @ar? A{p p#p(p1ppp6=p@ B\A C\A D\A Eg char-alphabetic? Fg t-556baa-442 GF Hg m-556baa-443 IH_ JI Kf l-556baa-446 LK MaGJL N{pMp#p(p1ppp6=p@ O\EN P\N Q\N Rg eqv? Sg t-556baa-448 Tg t-556baa-449 UST Vg m-556baa-44a WV_ XWW Yf l-556baa-44e Zf l-556baa-44f [YZ \aUX[ ]{p\p#p(p1ppp6=p@ ^\R] _\] `\] aZ bg let cg t-556baa-426 dg t-556baa-427 ecd fg m-556baa-428 gf_ hgg if l-556baa-42c jf l-556baa-42d kij laehk m{plppp6=p@
n\bm o\m p\dm qg = r\qm s\m tso ug month vg parse-month wf GMT xf UTC yg zone-offset zg parse-zone-offset {g date |{ }{ ~g parse-rfc-822-date g current-date g date-year g parse-rfc-850-date g parse-asctime-date g date-zone-offset g time-utc->date g date->time-utc g normalize-date g catch g
parse-date g truncate/ g floor/ g expt g time-tai->date g date->time-tai g
date-week-day f Sun, f Mon, f Tue, f Wed, f Thu, f Fri, f Sat, f bad date g date-day g
date-month f Jan f Feb f Mar f Apr f May f Jun f Jul f Aug f Sep f Oct f Nov f Dec g date-hour g date-minute g date-second f GMT g
write-date f W/ f " g parse-entity-tag g entity-tag? g write-entity-tag g parse-entity-tag-list g entity-tag-list g entity-tag-list? g write-entity-tag-list g
authorization g basic g credentials g parse-credentials g validate-credentials g write-credentials g challenge g parse-challenge g reverse g parse-challenges g validate-challenges g write-challenge g write-challenges g bad-request g bad-response g *known-versions* g http-version f HTTP/ g write-http-version g for-each f HTTP/1.0 f HTTP/1.1 f GET g GET f HEAD g HEAD f POST g POST f PUT g PUT f DELETE g DELETE f OPTIONS g OPTIONS f TRACE g TRACE f Invalid method: ~a f Missing Request-URI f * g build-uri g pathS g queryS g fragmentS g string->uri f Invalid URI: ~a f Bad Request-Line: ~s g , , g uri-host g
uri-scheme f :// g uri-userinfo g uri-port g uri-path f "Empty path and no host for URI: ~s f Non-absolute URI path: ~s g uri-query g write-uri g
default-port? , , f / f ? f Bad Response-Line: ~s g %date?-procedure g declare-date-header! g declare-string-list-header! g declare-symbol-list-header! g declare-header-list-header! g declare-integer-header! g
absolute-uri? , , g declare-uri-header! g string->uri* , , g %uri?-procedure , , g declare-relative-uri-header!
g declare-quality-list-header! g declare-param-list-header! g declare-key-value-list-header!
g * g declare-entity-tag-list-header! g declare-credentials-header! g declare-challenge-list-header! f
Cache-Control g max-age g min-fresh g s-maxage g max-stale g private g no-cache g no-store g no-transform g
only-if-cache g must-revalidate g proxy-revalidate g
cache-control f
Connection g close f close !f Date "f Pragma #f Trailer $f Transfer-Encoding %f Upgrade &f Via 'f Warning (g warning )g length *f Allow +f Content-Disposition ,g content-disposition -f Content-Encoding .f Content-Language /f Content-Length 0f Content-Location 1f Content-MD5 2f
Content-Range 3g
content-range 4f bytes 5g bytes 6f Content-Type 7g content-type 8g string-trim 9g string-trim-right :f Thu, 01 Jan 1970 00:00:00 GMT ;g *date-in-the-past* f -1 ?> @f
Last-Modified Af Accept Bf Accept-Charset Cf Accept-Encoding Df Accept-Language Ef
Authorization Ff Expect Gf From Hf Host Ig host Jf If-Match Kf If-Modified-Since Lf
If-None-Match Mf If-Range Nf If-Unmodified-Since Of Max-Forwards Pf Proxy-Authorization Qf Range Rf bytes= Sg range Tf Referer Uf TE Vf
User-Agent Wf
Accept-Ranges Xf Age Yf ETag Zf Location [f Proxy-Authenticate \f Retry-After ]f Server ^f Vary _f WWW-Authenticate `g read-line ag char=? bg string->number cg read-chunk-header dg keep-alive?S ed fe gg get-bytevector-n! hg get-u8 ig make-custom-binary-input-port jf chunked input port kg
close-port lg q-empty? mg deq! ng q-length og number->string pg
write-char qg make-q rg make-soft-port sg enq! tg string-for-each uf 0
vg force-output wf w xg make-object-property yg %http-proxy-port? zg setter {z |z C 5 hHk ]4
./I5 4L > " G MN h ]4 56 g name
g filenamef web/http.scm
K
M
M
g nameg string->headerg
documentationf %Parse NAME to a symbolic header name. C0RO h ] C g name
g parser g validator g writer g multiple? g filenamef web/http.scm
O
g nameg %make-header-decl-procedure CPR4STUX[ h ] C g
t-556baa-5
g
t-556baa-6 g
t-556baa-7 g
t-556baa-8 g
t-556baa-9 CT h O ]L 6 G g a
g filenamef web/http.scm O
CY h ? ] L 67 g filenamef web/http.scm O
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 x g x
n g tmp n g tmp " n g tmp > n g filenamef web/http.scm
O
n C5TR O 4 O> " G Pi ORO h t ] $ CC l g obj
g filenamef web/http.scm
O
g nameg %header-decl?-procedure C R4S
UX r h 3 ] C + g t-556baa-1e
C
h O ]L 6 G g a
g filenamef web/http.scm O
CY h ? ] L 67 g filenamef web/http.scm O
Ct h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 x g x
n g tmp n g tmp " n g tmp > n g filenamef web/http.scm
O
n C5
ROwx h v ] &
C 6n g s
g filenamef web/http.scm
O
g nameg %header-decl-name-procedure CyR4SxUX 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 3 ] C + g t-556baa-2a
Cx h O ]L 6 G g a
g filenamef web/http.scm O
CY h ? ] L 67 g filenamef web/http.scm O
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 web/http.scm
O
C5xROw h x ] & C 6p g s
g filenamef web/http.scm
O
g nameg %header-decl-parser-procedure CR4SUX h : ]C 2 g err
g s C!& h : ]C 2 g err
g s C)/4 h : ]C 2 g err
g s C P h 3 ] C + g t-556baa-45
C h O ]L 6 G g a
g filenamef web/http.scm O
CY h ? ] L 67 g filenamef web/http.scm O
CR 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 web/http.scm
O
C5ROwS h { ] & C 6 s g s
g filenamef web/http.scm
O
g nameg %header-decl-validator-procedure CTR4SSUXbin h : ]C 2 g err
g s Cqw| h : ]C 2 g err
g s C h : ]C 2 g err
g s C h 3 ] C + g t-556baa-60
CS h O ]L 6 G g a
g filenamef web/http.scm O
CY h ? ] L 67 g filenamef web/http.scm O
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 web/http.scm
O
C5SROw h x ] & C 6 p g s
g filenamef web/http.scm
O
g nameg %header-decl-writer-procedure CR4SUX 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 3 ] C + g t-556baa-7b
C h O ]L 6 G g a
g filenamef web/http.scm O
CY h ? ] L 67 g filenamef web/http.scm O
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 web/http.scm
O
C5ROw h { ] & C 6 s g s
g filenamef web/http.scm
O
g nameg %header-decl-multiple?-procedure C R4SUX h : ]C 2 g err
g s C #( h : ]C 2 g err
g s C+16 h : ]C 2 g err
g s C R h 3 ] C + g t-556baa-96
C h O ]L 6 G g a
g filenamef web/http.scm O
CY h ? ] L 67 g filenamef web/http.scm O
CT 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 web/http.scm
O
C5R4SUXZ 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 web/http.scm
O
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R4i5 R h w ] 6 o g sym
g filenamef web/http.scm
[
\
g nameg lookup-header-decl CRO0 h - / 0 3 # " 64 5$ M$ C$ 9$ / 44 5> " G C"""" g name
g parser g validator g writer g multiple? g decl \ | g filenamef web/http.scm
^
$ h
0 h 0 d 1 d ; d A d \ e \ e _ f d f ' q f
g multiple?S g nameg declare-header!g
documentationf ;Declare a parser, validator, and writer for a given header. C2ROwx h8 ] 4 5 $ &
C64 56 g sym
2 g decl 2 g filenamef web/http.scm
j
l l m n * o 2 o 2 g nameg header->stringg
documentationf 0Return the string form for the header named SYM. C1R h ]4 5$ CC g sym
g filenamef web/http.scm
q
t
t g nameg
known-header?g
documentation k pR e t u r n # t i f f S Y M i s a k n o w n h e a d e r , w i t h a s s o c i a t e d
p a r s e r s a n d s e r i a l i z a t i o n p r o c e d u r e s . C4ROw h O ] C G g x
g filenamef web/http.scm
~ C h0 ] 4 5 $ & C6C g sym
* g decl * g filenamef web/http.scm
v
{ { | } * g nameg
header-parserg
documentationf Return the value parser for headers named SYM. The result is a
procedure that takes one argument, a string, and returns the parsed
value. If the header isn't known to Guile, a default parser is returned
that passes through the string unchanged. C5ROwS h0 ] 4 5 $ & C6C g sym
+ g decl + g filenamef web/http.scm
+ g nameg header-validatorg
documentationk DR e t u r n a p r e d i c a t e w h i c h r e t u r n s # t i f t h e g i v e n v a l u e i s v a l i d
f o r h e a d e r s n a m e d S Y M . T h e d e f a u l t v a l i d a t o r f o r u n k n o w n h e a d e r s
i s s t r i n g ? . C6ROw h0 ] ] 4 5 $ & C6C U g sym
+ g decl + g filenamef web/http.scm
+ g nameg
header-writerg
documentation k R e t u r n a p r o c e d u r e t h a t w r i t e s v a l u e s f o r h e a d e r s n a m e d S Y M t o a
p o r t . T h e r e s u l t i n g p r o c e d u r e t a k e s t w o a r g u m e n t s : a v a l u e a n d a p o r t .
T h e d e f a u l t w r i t e r i s d i s p l a y . C7R hp ]!4 5 $ M 45$ ,
$ 45$ 6C 6 64
56 g port
l g v l g w _ g x _ g w I S g w U _ g filenamef web/http.scm
1 5 9 = D I O S U [ _ ` l g nameg read-header-lineg
documentationf Read an HTTP header line and return it without its final CRLF or LF.
Raise a 'bad-header' exception if the line does not end in CRLF or LF,
or if EOF is reached. CR hH ]
4 5 $ "
4 5 $ 44 556C g port
A g val A g t & g filenamef web/http.scm
#
* / 4 - < > A g nameg read-continuation-line CR4ii5R09 h ]4 5 45 $ " 45 $ D4:5 $ " 45 4 4
55 4 4 4
555D g port
g line g t + g t > X g delim X g sym i g filenamef web/http.scm
& ( / 5 6 > M Q & U X [ ^ $ i i n s x
8
g nameg read-headerg
documentationf Read one HTTP header from PORT. Return two values: the header
name and the parsed Scheme value. May raise an exception if the header
was known but the value was invalid.
Returns the end-of-file object for both values if the end of the message
body was reached (i.e., a blank line). C8R5 h ]4 56 g sym
g val
g filenamef web/http.scm
g nameg parse-headerg
documentationf dParse VAL, a string, with the parser registered for the header
named SYM. Returns the parsed value. C9R6 h ] $ 4 56 6 g sym
g val g filenamef web/http.scm
g nameg
valid-header?g
documentationf RReturns a true value iff VAL is a valid Scheme value for the
header with name SYM. C:R17 hP ] ]44 5> " G 4> " G 44 5> " G 6U g sym
P g val P g port P g filenamef web/http.scm
' 0 1 @ L P
P g nameg write-headerg
documentation k TW r i t e t h e g i v e n h e a d e r n a m e a n d v a l u e t o P O R T , u s i n g t h e w r i t e r
f r o m h e a d e r - w r i t e r . C;R8 h8 ]4L> G 45$ 6 " g headers
3 g k
3 g v
3 g filenamef web/http.scm
! % * 3 3 g nameg lp C h ] O Q 6 g port
g lp g filenamef web/http.scm
g nameg read-headersg
documentationf RRead the headers of an HTTP message from PORT, returning them
as an ordered alist. C " G "C " g headers
: g port : g headers 2 g filenamef web/http.scm
'
* 0
2 : g nameg
write-headersg
documentation k W r i t e t h e g i v e n h e a d e r a l i s t t o P O R T . D o e s n ' t w r i t e t h e f i n a l
\ r \ n , a s t h e u s e r m i g h t w a n t t o a d d a n o t h e r h e a d e r . C=R h ] 6 g sym
g val g filenamef web/http.scm
g nameg
bad-header CR h ] 6 g sym
g val g filenamef web/http.scm
g nameg bad-header-component CR1 h( ) 3 L4 56- 1 3 L 6 g sym
g val g _
# ' g filenamef web/http.scm
/ # ' # '
C h ] O @ g port
g key g args g default-printer g filenamef web/http.scm
g nameg bad-header-printer CR h( ) 3 L 6- 1 3 L 6 g sym
g val g _
" g filenamef web/http.scm
" "
C h ] O @ g port
g key g args g default-printer g filenamef web/http.scm
g nameg bad-header-component-printer CR4ii> " G 4ii> " G h q ] C i g str
g filenamef web/http.scm
g nameg parse-opaque-string CR h } ] 6u g val
g filenamef web/http.scm
g nameg validate-opaque-string CR h ] 6 g val
g port
g filenamef web/http.scm
g nameg write-opaque-string CR4i5R h8 ] 4 /5 $ 4 /5$ 4 5CCC g str
2 g idx 2 g filenamef web/http.scm
# $ -
2 g nameg validate-media-type CRM h ]4 5$ 6 6 g str
g filenamef web/http.scm
g nameg parse-media-type CR h` - . , 3 #
# 4 5 " *$ 44 55$ "CC " g str
Z g start Z g end Z g i ( R g filenamef web/http.scm
8 ( -
1 2 5 ) ? C F L R
Z g nameg skip-whitespace CR h` - . , 3 #
# 4 5 " +$ 44 55$ "CC " g str
[ g start [ g end [ g i ( S g filenamef web/http.scm
8 ( -
1 2 5 + < ; > + @ D G M S [ g nameg trim-whitespace CR h S - . , 3 # , #
# 4 5 $ H4 5 4 $ " 5 4 $ " 5CC K g str
g delim g start g end g idx D g tok _ g filenamef web/http.scm
!
& " ( 3 $ 7 $ 8 % D % G & U & @ _ & _ % d ' p ' . s ' 6 } ' ~ '
( g nameg split-and-trim CR h w ] 6 o g val
g filenamef web/http.scm
*
+
g nameg list-of-strings? CR h ] 6 g val
g port g filenamef web/http.scm
-
. . g nameg write-list-of-strings CR0 h ]4 56 z g str
g filenamef web/http.scm
0
1 1 g nameg split-header-names CR h | ] 6 t g val
g filenamef web/http.scm
3
4
g nameg list-of-header-names? CR1 h t ]4 56 l g x
g port g filenamef web/http.scm
8 9 9 C h ] 6 g val
g port g filenamef web/http.scm
6
: 7 g nameg write-header-list CR h ]445 " ( #4 > " G C 4 > " G 44 5> " G "x
"i g from
g start g len g escapes g to g start g i g escapes g e ; g
next-start H
g filenamef web/http.scm
<
= = > ? A # A 1 $ A ( - A ; C ; C
D D & E D H C
K E V E ( _ E h F o F v F / x F } F G G " G > g nameg collect-escaped-string CR h - / 0 3 #
# 4 5 # " 6$ 4 5"$ " $ x4 5 \$ ""$ 24 5 $ D$ C 6 " 6
"h"?"; g str
g start g end g incremental? g i _ g qi _ g escapes _ g key q g out g filenamef web/http.scm
K
# L ' > ^ B ^ B N G N K N L N W N [ N _ O d P h P i Q q Q S S S # S Q U U 6 U U V W ! W X X X Z / Z \ \ \ ] " ] O O O . O * g incremental?S g nameg
parse-qstring CR hX ' ] $ H" <4> " G $ 4> " G "C "C g l
S g port S g
write-item S g delim S g l
I g filenamef web/http.scm
`
a a
b c c c % d & d * d + f A g G g I b S g nameg
write-list CR hh ]4"> " G 4 "5$ #44 "5> " G " 4 > " G "6 g str
b g port b g filenamef web/http.scm
i
j k # k $ m ' m 5 m 6 : m G n b o b g nameg
write-qstring CR h J ] L 6 B g filenamef web/http.scm
C h 6 - . , 3
#
# 4 5 $ 4 51$ 4 5 $ " d4 5 $ " G4 5 $ " *4 5 $ "
4 5 $ C
64 50$ 4 5 $ "
4 5 $
C $ " $ " $ 4 5.$ C
6
$ [4 5 4
5 0 "
4
5" #
$
$ " "" " " "b
"Q
6O Q 4 5.$ $ " $ " |$ C
$ S4 5 4
5 0
$
$ " 4 5 " 4 5 " "
"s6 6
6. g str
g start g end g t J g t d g t ~ g t g t g b + g place 3 g i 3 g q 3 g c w g i g failure g b # g place + g i + g q + g c U g i a g failure e g filenamef web/http.scm
q
q 6 ) x - w . z
9 z = w > { D { J { J { X | ^ | d | d { r } x } ~ } ~ { ~ ~ ~ { {
w / 3 8 9 = > E , G J N U , Y ^ a # f j o 7 w ( z s s " s
s v
v v
t t t t t
" " w w ' + 0
4 < ? D H M / U X s ` s " a s
a s e t k t o t t t x t
y y r g nameg
parse-quality CR h ]4 5$ CC } g q
g filenamef web/http.scm
! g nameg valid-quality? CR h ]
4
4 05 > " G 4.> " G 4 d
4 05 > " G 4
4 05 > " G
4 05 6 g q
g port g d g d K Z g d t g d g filenamef web/http.scm
$ - A H K K N R U W a j q t t w { ~ % g nameg
write-quality CR h0 ] ( C $ 4 5$ 6CC g val
* g pred * g filenamef web/http.scm
" & * g nameg list-of? CR h`
]4 ;5 $ :4 5 45$ 4 54
5C6 4 5C g part
[ g t [ g qpart M g filenamef web/http.scm
H " & & * . / 8 D I , M Q Z [ C h ]4 ,56 z g str
g filenamef web/http.scm
g nameg parse-quality-list CR h ] $ 4 5$ 6CC g elt
g filenamef web/http.scm
#
C h z ] 6 r g l
g filenamef web/http.scm
g nameg validate-quality-list CR hH ] 4> " G $ 4> " G 6C g x
H g port H g q H g str H g filenamef web/http.scm
& * + / ! 6 F H C h ] 6 g l
g port g filenamef web/http.scm
g nameg write-quality-list CR h - . , 3 #
# 4 5 $ }" n$ b
4 5 45 0 "
4 5" #
$
$ " "" " "C
" 6 g val
g start g end g i 1 g out 1 g c K g i W g filenamef web/http.scm
* ) - 1 6 : = B C - K N V " W
W ^
b f
j n r w {
g nameg parse-non-negative-integer CR h0 ]4 5$
$ 4 5$ 6CCC g code
, g filenamef web/http.scm
" & 0 , g nameg non-negative-integer? CR h ]C w g k
g val g filenamef web/http.scm
g nameg default-val-parser CR h ]$ 6C g k
g val g filenamef web/http.scm
g nameg default-val-validator C R hX ]4;5 $ " "4,5 $ " 4"5 $ 66 g k
Q g val Q g port Q g t = g t ! : g filenamef web/http.scm
! /
A I Q
Q g nameg default-val-writer CRM
h ]R L$ 4L L5 4L =L5 4L ,L5 4$ " L$ " L5 44L 4L 555 " " $ $ " $ 4L L5 " 44L 4L $ " L55$ " L " KL$ -4L 5"$ 4L L > !" "" "" "U" "M G 4L54L L5
L $ " 4L
5, $
$ " "s
4L LL56 6 g i
g out g i g eq % g comma 4 g delim W g k r g i g v-str , g next-i , g v G g i
G g t P l
g filenamef web/http.scm
% ( 4 7 ? M ' W W Z ] d $ p r r , 2 " - > - " " / ) /
4 = G P
P
^
( i
" p
s y % ~ + *
* ? g nameg lp C hP - . , 3 # #
# 4 5 O Q 6 g str
N g
val-parser N g start N g end N g lp : N g filenamef web/http.scm
& . : L N N g nameg parse-key-value-list CR h8 ] $ $ L 6C $ L 6C g elt
4 g k $ g v $ g filenamef web/http.scm
" ' + 2
4 C h( - . , 3 # O 6 g list
# g valid? # g filenamef web/http.scm
# # g nameg key-value-list? CR h` ] $ " $ " 4> " G $ 4=> " G L 6C g x
_ g port _ g k ! _ g v ! _ g filenamef web/http.scm
! " " " # # # ! " & $ ? % @ '
] (
_ C h8 - . , 3 # # O 6 g list
1 g port 1 g
val-writer 1 g delim 1 g filenamef web/http.scm
F 1 1 g nameg write-key-value-list CR4i,;=5R4 ii,;5
RM
h k ]J L$ 4L 5 44L 4L $ " L555$
4L5" =$ 4LL5 " 54LL5 $ " L 4L5 " ;L$ -4L5"$ 4 LL
> " "" " G 4L5 $ " 4LL5 L$
4L 5"
$ 4 5LD
;$ 4L L5 "4 5 D;$ 24L5 4LL5$ " "V4L5 4 $ " 5$ " LD4 5LD c g i
g out g delim g k Q g delimc Q g i j g t } g delim g v-str q g next-i q g v q g x q g i q g key
) q g v g v g filenamef web/http.scm
3 4
4 6 6 7 8 # 8 % / 8 < 9 8 % ; 8 = 7 C 9 D 9 # Q 7
^ : _ > f > 3 j > j > q B & } B " A E % E ? ? ? ? 0 ? * ? @ < H H I I # H J H K K K * ) K 4 M ; M * = M A M J K K O R O 1 V O [ P c O d R k R * m R q R z : { T T U U * U V V ! V U Y Y Z Z ) Z / Z # Z [ Z 5 5 P g nameg lp C hP - . , 3 # #
# 4 5 O Q 6 g str
K g
val-parser K g start K g end K g lp 9 K g filenamef web/http.scm
0
& 2 / 9 3 I 3 K 3 K g nameg parse-param-component C R h` ! ]4LL L> G L$ 14L5,$ 4LL5 "L66 g i
] g out ] g item ] g i ] g filenamef web/http.scm
` b a d # d $ e / e 3 e 4 f ; f ) ? f D g L f P h & T h [ i ] i ] g nameg lp C hP - . , 3 # #
# 4 5 O Q 6 g str
K g
val-parser K g start K g end K g lp 9 K g filenamef web/http.scm
]
& _ * 9 ` I ` K ` K g nameg parse-param-list C
R h [ ] L 6 S g elt
g filenamef web/http.scm
n
o
C h( - . , 3 # O 6 g list
# g valid? # g filenamef web/http.scm
k
# m # g nameg validate-param-list CR h w ] L 6 o g item
g port g filenamef web/http.scm
u v 0 v C h( - . , 3 # O 6 g list
' g port ' g
val-writer ' g filenamef web/http.scm
q
% w ' s ' g nameg write-param-list CR4SUX h m ]456 e g str
g pat
g filenamef web/http.scm |
|
CBCDOPQXV^_` h N ] C F g t-556baa-448
g t-556baa-449 Canoprt h( N ]L C F g t-556baa-426
! g t-556baa-427 ! ! C h ]245 45" 45$ 45 .$ " td$ " Va$ " 8 4
5 $ 4 ?"
4
5 "Y "
"F 4
5 $ O @
6 g str
g pat g p g i g tests g c - g tmp g tmp g tmp g tmp
g filenamef web/http.scm } } % $ % - 2 ; [ h y ' ' ~
C h@ ` ] 4 5 " 6$ 4?$ @"" X g x
9 g tmp 9 g filenamef web/http.scm
z 9 C5Ru h ] $ 4
54 54 5 J$ ha$ n$ C4 56u$ )n$ Cl$ C4 564 56F$ 7e$ b$ C4 564 56M$ Ca$ )r$ Cy$ C4 564 56A$ ]p$ r$ C4 56u$ g$ C4 564 56S$ 7e$ p$ C4 564 56O$ 7c$ t$
C4 564 56N$ 7o$ v$ C4 564 56D$ 7e$ c$ C4 564 564 564 56 g str
g start g end g a / g b / g c / g filenamef web/http.scm
! # $ - / / > G P V W ! c l u ! ! ! ! ! ! % & ! 2 ; D M T U ! a j s z { ! ! ! ! ! ! ! * 3 : ; ! G K L ! X a j s z { ! ! ! ! g g nameg parse-month CvRwxy h ]"4 5 45$
C45$
C" 645 $ 44 55$ 44 55$ 44 55$ r44 55$ ]4
5 +$ " -$ " 45 4
54
5 < <C"B">":"6"2 g str
g start g s g key g sign g hours g minutes g filenamef web/http.scm
# % ) 3 7 7 8 E F g nameg parse-zone-offset CzREv}{ h
]34
5 45 $ *44 55$ 44 55$ 4 5:$ 44 55$ 44 55$ 4 5:$ 44 55$ 44 55$ v4 5 $ a44 55$ J44 55$ 344
55$ 44 55$ 4 5 $ 44
55$ 44 55$ 44 55$ 4 5 $ 44 55$ 44 55$ h4 5 $ S4 5,$ >44 55$ '44 55$ 44
55" " " " " " " " " " " " " " " " " " " " " " " " " $ c4 54 54 54 54 54 5
C4
5 45 $ 44 55$ 44 55$ 4 5:$ 44 55$ 44 55$ 4 5:$ 44 55$ v44 55$ _4 5 $ J44 55$ 344
55$ 44 55$ 44 55$ 4
5 $ 44 55$ 44 55$ 44 55$ 4 5 $ 44 55$ h4 5 $ S4 5,$ >44 55$ '44 55$ 44
55" " " " " " " " " " " " " " " " " " " " " " " " $ c4 54
54 54 54 54 5
C4
5 45 $ (44 55$ 44 55$ 4 5:$ 44 55$ 44 55$ 4 5:$ 44 55$ 4 5 $ v4 5 $ a44 55$ J44 55$ 344
55$ 44 55$ 4 5 $ 44
55$ 44 55$ 44 55$ 4 5 $ 44 55$ 44 55$ h4 5 $ S4 5,$ >44 55$ '44 55$ 44
55" " " " " " " " " " " " " " " " " " " " " " " " " $ c4 54 54 54 54 54 5
C4
5 45 $ 44 55$ 44 55$ 4 5:$ 44 55$ 44 55$ 4 5:$ 44 55$ t4 5 $ _4 5 $ J44 55$ 344
55$ 44 55$ 44 55$ 4
5 $ 44 55$ 44 55$ 44 55$ 4 5 $ 44 55$ h4 5 $ S4 5,$ >44 55$ '44 55$ 44
55" " " " " " " " " " " " " " " " " " " " " " " " $ c4 54
54 54 54 54 5
C4
> " G C g str
g space
g zone-offset
g s J g date g month g year g hour g minute g second g s g date ( I g month ( I g year ( I g hour ( I g minute ( I g second ( I g s S g date g month g year g hour g minute g second g s
% g date
k
g month
k
g year
k
g hour
k
g minute
k
g second
k
g filenamef web/http.scm
N O Z e p { ( H J S
)
*
5
@
K
V
a
k
1
g nameg parse-rfc-822-date C~R{Ev}w h ]L4 5 " 4 > " G " 45 $ 44 55$ 44 55$ 4 5:$ 44 55$ ~44 55$ d4
5:$ L44 55$ 244 55$ 4
5 $ 44 55$ 44 55$ 4 5-$ 44 55$ 44 55$ 44 55$ f4 5-$ N44 55$ 444 55$ 4
5 $ " "" "" "z" "r" "j" "b" "Z" "R" "J" "B" ":" "2" "*" """ "" "" "
" "" "" "4 54 54
54
54 54 5
4
5 & " 4
5
d 2 $ d" 2 $ d"
C g str
g comma g space g zone-offset g tail g date c g month c g year c g hour c g minute c g second
c g s t g now g then g year g filenamef web/http.scm
, -
: ;
# - 8 C N Y c p ( t * - * . . & g nameg parse-rfc-850-date CR{Ev}
h ]1" 4 > " eG " ^4 5 $ L44 55$ 244 55$ 44 55$ 44 55$ 4 5 $ 44 55$ 44 55$ 4 5:$ 44 55$ f44 55$ L4
5:$ 444 55$ 44 55$ 4
5 $ 44 55$ 4 5 $ 44 55$ 44 55$ 44 55$ h4 5 $ P44 55$ 644 55$ 44
55$ " "B" ":" "2" "*" """ "" "" "
" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "4 4 5 $ "
54 54 54
54 54 5
C g str
g date g month g year g hour g minute g second g filenamef web/http.scm
$
& & & % % , % - % } ' ) ) ) ' + , - . / ' 0 g nameg parse-asctime-date CR}w h8 ] & " 4 5
$ C4 5
6 g date
2 g filenamef web/http.scm
3
4
4 # 4 ) 6 2 6 2 g nameg normalize-date CRz h R ] LL 6 J g filenamef web/http.scm
: ! ; 9 ; "
C h U - 1 3 C M g args
g filenamef web/http.scm
: !
C~{ h M ]4 5 $ 4 O 5" $ J4 ,5 $ ) $ 4 5"
4 5" 4
5 " 4 56 E g str
g space g zone-offset ) g comma < y g filenamef web/http.scm
8
9 9 : : ! ) 9 3 = 4 > < > D ? I @ M ? N @ ] A n ? r ? * v ? ~ B < g nameg
parse-date CR hX E ] " ?
$ 544 04 5
5> " G 4
5 "C4
5 " = g n
U g digits U g port U g tens E g filenamef web/http.scm
E G
H
H J J F J 4 " J , # J $ % J , J 5 L C L E G F G M G O G U G U g nameg display-digits C}w % h ] & " 4 5
$ "
44 5
5 445
$ " b $
" T $ " E $ " 6 $
" ' $ " $ " 45 > " G 4& " 45 > " G 4& " 45 $ " $ " $ " $ " $ " r $ " c $ " T $ " E $ " 6
$ " ' $ " $ " 45 > " G 4& " 4 5 > " G 4 > " G 4& " 4!5 > " G 4:> " G 4& " 4"5 > " G 4:> " G 4& " 4#5 > " G $6 g date
g port g display-digits g date : g key F g key g filenamef web/http.scm
D
M " M ' M . O 1 O " : O : M = P @ P F P
R Q ^ P
` Q " m P
o Q 0 | P
~ R P
R " P
R 0 P
S S # S * S # P U U U V V V
# W 0 V
2 W $ ? V
A W 3 N V
P X ] V
_ X $ l V
n X 3 { V
} Y V
Y $ V
Y 3 V
Z V
Z $ V
Z 3 [ [ [ V ] ] ] ^ + _ 0 _ Q _ Z ` n a s a a b c c c d
d O g nameg
write-date CR h8 ]4 5$ 4 5C4 5$
4 5C C g val
7 g filenamef web/http.scm
j
l l l k l $ l m m $ m ( k ) m $ 1 m 6 n 7 g nameg parse-entity-tag CR h ] $ 6C g val
g filenamef web/http.scm
p
q q r r g nameg entity-tag? CR h0 ] $ " 4> " G 6 g val
* g port * g filenamef web/http.scm
t
u u v v v & w * w * g nameg write-entity-tag CR h - . , 3 #
# 4 5 4
5 4 $ " > G 4 5 $ 64 5,$ 4 4 55" 4
5" C g val
g start g end g strong? 5 g tag X g next X g next o g filenamef web/http.scm
y
z / % { ) { & 4 { 5 { 5 { 8 } B } + M } = W } [ | d e o v z { 0 0 g nameg parse-entity-tag-list CR h w ] 6 o g val
g filenamef web/http.scm
g nameg entity-tag-list? CR h ] 6 g val
g port g filenamef web/http.scm
) g nameg write-entity-tag-list CRMN h 3 - . , 3 # #
# 4 5 4 5 4 5 $ " $ 4 > " G " 44 4
$ " 555 $ -4 5 $ 4
5C 64
5C+ g str
g
val-parser g start g end g start 9 g t H [ g delim [ g scheme g start g filenamef web/http.scm
& + / 9 < H [ b f g k r $ 9 $ % g nameg parse-credentials CR h8 ] $ & $ $ 6 6CC g val
1 g key - g filenamef web/http.scm
$ & + -
1 g nameg validate-credentials CR hP ]
4 > " G 4 > " G $ 6 6 g val
K g port K g key . K g filenamef web/http.scm
. . > B
G K
K g nameg write-credentials CRMNM
h ]R L$ 4L L5 4L =L5 4L ,L5 4$ " L$ " L5 4L 5 4L 5$ 45D44L 55 " " $ $ " $ 4L L5 " 44L 4L $ " L55$ " L " KL$ -4L 5"$ 4 L L
> !" "" "" "U" "M G 4L L5
L $ " 4L
5, $
$ " "^ 4L LL5645LD g i
g out g i g eq % g comma 4 g delim W g token-end d g k g i ; g v L g next-i L g i
^ g t e
g filenamef web/http.scm
%
( 4
7 ? M ) W W
Z d
g w x ) $ 4 ( % : % * + < + * * " '
7 1 " " O T ^ e e s 0 ~ * - 3 '
C g nameg lp C
h - . , 3 #
# 4 5 4 5 4 5 $ 444 555" 4 5 O Q 6 } g str
g start g end g start / g sp > g scheme h g lp u g filenamef web/http.scm
) % / 2
> F G J % M 6 Y % [ ` d + h h u g nameg parse-challenge CR hH ]4L L5 L$ %4L L> G "6 g i
C g ret C g i
C g challenge ' = g i ' = g filenamef web/http.scm
' *
5 = C
C g nameg lp C hH - . , 3 # #
# 4 5 O Q 6 g str
H g
val-parser H g start H g end H g lp 8 H g filenamef web/http.scm
& * 8 F H H g nameg parse-challenges CR h ] $ $ 6CC g x
g filenamef web/http.scm
*
! ( C h z ] 6 r g val
g filenamef web/http.scm
g nameg validate-challenges CR h8 ]4 > " G 4 > " G 6 g val
4 g port 4 g filenamef web/http.scm
0 4 4 g nameg write-challenge CR h ] 6 g val
g port g filenamef web/http.scm
' g nameg write-challenges CR h - 1 3 6 g message
g args g filenamef web/http.scm
g nameg bad-request CR h - 1 3 6 g message
g args g filenamef web/http.scm
g nameg bad-response CRR h E - . , 3 #
# 4 5 " 0$ $4 5$ " "" " $ C4 .5 " 4 564
5$ >$ 44
.5$ 4 54 5C""" = g str
g start g end g known ( X g t ` g dot-idx x g filenamef web/http.scm
; (
+
/ 0 7 > B
E M S X
`
l x " 0 ! 2 2 $ g nameg parse-http-versiong
documentationk P a r s e a n H T T P v e r s i o n f r o m S T R , r e t u r n i n g i t a s a m a j o r m i n o r
p a i r . F o r e x a m p l e , H T T P / 1 . 1 p a r s e s a s t h e p a i r o f i n t e g e r s ,
( 1 . 1 ) . C?R hH ]4> " G 4 > " G 4.> " G 6 g val
H g port H g filenamef web/http.scm
# , D H H g nameg write-http-versiong
documentationf 1Write the given major-minor version pair to PORT. CR4i? h | ] 4
4 55 C t g v
g filenamef web/http.scm
" $ $ * $ $ # C> " G h Y - . , 3 #
# 4 5 4 5$ C4 5$ C4 5$ C4 5$
C4 5$ C4
5$ C4 5$ C4 56 Q g str
g start g end g filenamef web/http.scm
/
/ : % 3 + 3 1 3 5 2 7 3 " 9 4 ? 4 E 4 I 2 K 4 # M 5 S 5 Y 5 ] 2 _ 5 # a 6 g 6 m 6 q 2 s 6 " u 7 { 7 7 2 7 % 8 8 8 2 8 & 9 9 9 2 9 $ : : + : ) g nameg parse-http-methodg
documentationk R h8 - . , 3 #
# 4 5 $ 64 5$ C4 5/$ 4 ?5 4 #5 $ $ " $ " "
4 $ " $ " 5 $ 4 $ " 5"
$ 4 5" 644 55 $ C4 56 g str
1 g start 1 g end 1 g q c g f r g q g t 1 g filenamef web/http.scm
<
< : ) @ - ? 1 A 3 A 4 B : B @ B D ? G D
R D V ? W E c E f F r E z G G G ! G G E H I I - I J J J / J 6 J K K # K 2 K # H M M M M $ N % N ' 1 N - 1 g nameg parse-request-urig
documentationf Parse a URI from an HTTP request line. Note that URIs in requests do
not have to have a scheme or host name. The result is a URI object. C@R>@? h ]4 5 45 45 " 6$ I$ ?$ 24
544 554
4 55D""" g port
g line g d0 g d1 g filenamef web/http.scm
P
S S T
S U
S ) Z - Z - V 9 V > V B V C W M X R X ( Y X > ] X ( a X b Y i Y ) j Y 1 r Y t W g nameg read-request-lineg
documentationf oRead the first line of an HTTP request from PORT, returning
three values: the method, the URI, and the version. CARw hx ] & " 4 5$ 14 &
" 4 5> " G 4> " G & " 4 5$ D4 & " 4 5> " G 4@> " G " 4 & " 4 5> " G & " 4 5 $ 8 P& " (4:> " G 4> " G " " & " 4 5 4
5 " 4> " G " " G
$ ; & " 4 5$ "4 > " FG " ?"
$ /4
5/$ "" 4 > " G " "~ & " 4 5$ 54?> " G & " 4 56C g uri
v g port v g p N g path m g len v g filenamef web/http.scm
\
] ! ] " _ ' _ E _ N ` R ` Y ` d a a c c c d e e e f f g
g i 4 j U k m k p l v k } s m p m p p q q q m n m n n n o o
o # t ? t @ v X w t w 4 v g nameg write-uri CRGw hH ] 4 > " G 4 > " G 45$ 9&
" 45& " 45& " 45 $ $ 4> " G 4> " G 4 :5$ @4[> " G 4> " G 4]> " G " 4> " G 4
5$ " (4:> " G 4> " G " " " & " 4 5& " 4 5 4
5$ 4> " G " 4> " G $ ,4> " G 4> " G " 4 > " G 4> " G 6 g method
G g uri G g version G g port G g scheme j g host j g host-port j g path g query g filenamef web/http.scm
y
{ | + } 5 } 8 ~ R m ~
! # ) - 2
F
q
, C G . G g nameg write-request-lineg
documentationf 0Write the first line of an HTTP request to PORT. CBR?
h ]4 5 45 $ 4455" " 6$ 5$ +4
544554 5D"" g port
g line g d0 g d1 3 g filenamef web/http.scm
$ # . 3 = A A M N X ] 1 k l x g nameg read-response-lineg
documentationf Read the first line of an HTTP response from PORT, returning three
values: the HTTP version, the response code, and the (possibly empty)
"reason phrase". CCR hp : ]4 > " G 4 > " G 4> " G 4 > " G 4> " G 6 2 g version
n g code n g
reason-phrase n g port n g filenamef web/http.scm
+ ? S j n n g nameg write-response-lineg
documentationf 1Write the first line of an HTTP response to PORT. CDR2 h ] 6 g name
g filenamef web/http.scm
g nameg declare-opaque-header!g
documentationf }Declares a given header as "opaque", meaning that its value is not
treated specially, and is just returned as a plain string. C3R2 h | ] 6 t g name
g filenamef web/http.scm
g nameg declare-date-header! CR2 h ] 6 { g name
g filenamef web/http.scm
g nameg declare-string-list-header! CR2M h d ]4 56 \ g str
g filenamef web/http.scm
C h Y ] 6 Q g v
g filenamef web/http.scm
C h t ] 6 l g v
g port g filenamef web/http.scm
! C h ] 6 { g name
g filenamef web/http.scm
g nameg declare-symbol-list-header! CR2 h ] 6 { g name
g filenamef web/http.scm
g nameg declare-header-list-header! CR2 h ] 6 w g name
g filenamef web/http.scm
g nameg declare-integer-header! CR2+ h ] 4 5 $ C 6 | g str
g t g filenamef web/http.scm
> ( C h { ] 6 s g name
g filenamef web/http.scm
g nameg declare-uri-header! CR2+ h ] 4 5 $ C 6 g str
g t g filenamef web/http.scm
C h ] 6 | g name
g filenamef web/http.scm
g nameg declare-relative-uri-header! C R2 h ] 6 | g name
g filenamef web/http.scm
g nameg declare-quality-list-header! C
R 2
h [ ] L 6 S g str
g filenamef web/http.scm
C h [ ] L 6 S g val
g filenamef web/http.scm
C h m ] L 6 e g val
g port g filenamef web/http.scm
C hH - . , 3 # # # O O O 6 g name
E g
val-parser E g
val-validator E g
val-writer E g filenamef web/http.scm
E E g nameg declare-param-list-header! C R 2 h [ ] L 6 S g str
g filenamef web/http.scm
C h [ ] L 6 S g val
g filenamef web/http.scm
C h m ] L 6 e g val
g port g filenamef web/http.scm
C hH - . , 3 # # # O O O 6 g name
E g
val-parser E g
val-validator E g
val-writer E g filenamef web/http.scm
E E g nameg declare-key-value-list-header! C R2
h ]4 5$ C 6 g str
g filenamef web/http.scm
$
)
, C
h v ] & C 6 n g val
g filenamef web/http.scm
# C
h ] & 6 6 g val
g port g filenamef web/http.scm
C h ] 6 g name
g filenamef web/http.scm
g nameg declare-entity-tag-list-header! CR2 h ] 6 { g name
g filenamef web/http.scm
g nameg declare-credentials-header! CR2 h ] 6 ~ g name
g filenamef web/http.scm
g nameg declare-challenge-list-header! CR4 i hp ] $ " $ " $ 6 $ $ 6C $ " $ $ 6CC g k
l g v-str l g filenamef web/http.scm
; < - > 6 < < @ B @ M < a B g B
l C h ] $ " $ " $ 6 $ $ 6C $ " $ $ 6C $ " /
$ " ! $ " $ "
$ C$ 6C g k
g v g filenamef web/http.scm
D E - G 6 E < I B I C I M E a K g K h K r E M O O O C hp ]45$
6$ 04"> " G 4> " G "645$ 66 g k
i g v i g port i g filenamef web/http.scm
P R
Q R S Q T 3 U N V O W Y Q a X e Z i Z i C> " G 42i ii 1 h ] & " 4 56 g x
g port g filenamef web/http.scm
f g & g h i g C h v ] 6 n g val
g port g filenamef web/http.scm
d k e C> " G 4i!> " G 4 i"> " G 4i#> " G 4 i$> " G 4i%> " G 42i&iii> " G 42i'( h ]Y4L 5 4L 5 $ $ 4L 54L5 4L> G L $
4L5" $ -4L> G 45 " " " G L $
4L 5"
$
C ,$
4L4L 55C
L6CC
g i
g idx1
g idx2 g code @ g agent @ g text U g i U g c s g date g i g text g date g i g w
g c g filenamef web/http.scm
/ #
) * 5 < * @ @ E L 2 T X a ( e # f 2 s ~ . A . 0 # ! & ! 0 " + /
D / + # . " 0 g nameg lp C h0 ]4 5 O Q 4
56 g str
* g len * g lp * g filenamef web/http.scm
! * * C)} hP ]4 5$ > $ 245$ %45$ $ $ CCCCCCC g code
M g host M g text M g date M g filenamef web/http.scm
#
@ # " # # - 3 # 6 2 D '
M C h( ] $ 4 5 $ @CC g elt
! g filenamef web/http.scm
! C h [ ] 6 S g val
g filenamef web/http.scm
C h ]4 L > " G 4 L > " G 4L > " G 4 L > " G 4L > " G $ 4 L > " G L 6C g code
g host g text g date g filenamef web/http.scm
+
?
S
l
m
C h k ]O @ c g w
g port
g filenamef web/http.scm
C h v ] 6 n g val
g port g filenamef web/http.scm
C> " G 4i*> " G 42i+
, hP ] 4 5 " 4 > " %G " $ ( " "" "C g str
K g disposition K g filenamef web/http.scm
) , 0 3 7 J
K C h ] $ $ 6CC g x
g filenamef web/http.scm
-
$ ? 6 C h ] $ $ 6CC g val
g filenamef web/http.scm
C h v ] 6 n g val
g port
g filenamef web/http.scm
C> " G 4i-> " G 4i.> " G 4i/> " G 4 i0> " G 43i1> " G 42i2345
h ]4 -54 /5 " 64 5$ r$ h$ 4 54 5" 4 5$
" 4 54 5$
"
4 5 C"y"u g str
g dash g slash g filenamef web/http.scm
- $ -
$ % ) - 1 7
9 ? ! @ $ K % R % 3 V % W # \ & b & h & l ! n ' s ) w ) { ) | * * ! * % * * + , , 4 ,
& C)
h s ] $ r4 5 $ b $ X & " %$ 45$ 45" " $ & C6CCCC k g val
} g x # Z g x c u g filenamef web/http.scm
. / /
/ / / 0 0 / " 1 # 1 ) 2 - 2 . 2 5 3 9 3 : 4 ? 4 + A 4 E 3 F 5 K 5 + M 5 ^ / a 6 c 6 i 7 m 7 n 7 u 8 } C
h + ]4 > " G 4 > " G & 4*> " G " B4 > " G 4-> " G 4 > " G & *6 6 # g val
g port g filenamef web/http.scm
9 : :
: ; . <
1 < 5 < 6 = N ?
S ? \ ?
e @
y A
~ A A
B
B B C D D C> " G 42i67M89 hX ] 4 =5 " L 6$ 34 =5$ 44
554 5C"" g x
V g eq V g filenamef web/http.scm
L M M S % S N " N ' + N ! / N 0 P 3 Q @ P A R J R C L R M O V C h( ] 4 ;5 454 O 5C g str
& g parts & g filenamef web/http.scm
I J J K K K L " T $ L % K & C h ] $ $ 6CC g x
g filenamef web/http.scm
Y Z Z Z -
Z $ Z Z ? Z 6 C h ] $ $ 6CC g val
g filenamef web/http.scm
U V V W
W V X X C h8 ]4 > " G 4=> " G 6 g pair
4 g port 4 g filenamef web/http.scm
b c
c c
d
0 e 4 e
4 C hH ]4 > " G $ !4> " G 6C g val
B g port B g filenamef web/http.scm
[ \ \
\ ] ] ] _
$ _ + _
8 a > f @ `
B C> " G 4i:5;R42i<=?; h ]4 5$ C 6w g str
g filenamef web/http.scm
m n n n n p C i> " G 4i@> " G 4 iA! h z ] & 6C r g k
g v g filenamef web/http.scm
C! h ] & 6$ 6C g k
g v g filenamef web/http.scm
C! h ] & 6 6 g k
g v g port g filenamef web/http.scm
C> " G 4
iB> " G 4
iC> " G 4
iD> " G 4iE> " G 4 iF> " G 43iG> " G 42iHI h x ]!4 ]5 4 :$ "
5 $ 54
5[$ " 4 > " G 4 5" $ 4
5" $ 4 5" C p g str
g rbracket g colon # g host v g port g filenamef web/http.scm
( # # + , ! 6 : ? C ! J S f g v ~ 6 C h0 ] $ $4 5$ $ C 6CC g val
/ g t + g filenamef web/http.scm
) $ +
/ C h ]4 :5$ A4[> " G 4 > " G 4]> " G " 4 > " G $ 4:> " G 6C g val
g port g filenamef web/http.scm
%
* 1
:
R W ^ i m n
C> " G 4iJ> " G 4iK> " G 4iL> " G 42iM h8 ] 4 5 $ " 4 5 $ 6 6 g str
4 g t $ g filenamef web/http.scm
! ( . 4 4 C} h( { ] $
" $ C 6 s g val
% g t % g filenamef web/http.scm
% % C} h0 ]" 6 $ & 6"" g val
. g port . g filenamef web/http.scm
& . C> " G 4iN> " G 4iO> " G 4iP> " G 42iQR5S h` ] 4 -5 $ E
$ 4 5C4 5$
4
5C4
54 5CL 6
g x
` g dash ` g filenamef web/http.scm
% ) 0 1 5 6 A C M T 8 V W \ ` ` CS
h8 ]4 5$ 4 O 44 5,55C 6 g str
7 g filenamef web/http.scm
+ - . 3 ! 7 ! 7 C hP ] $ C $ " $ &$ 45" $ $ 6CCCC g elt
N g x L g y L g filenamef web/http.scm
& ' ' ( # ( 1 ( ) ! $ ) * * ! + * - 6 * % : ) @ + ! F + - G + % N C h ] $ $ 6CC g val
g filenamef web/http.scm
" # # $
$ # % % C hH ] $ 4 > " G " 4-> " G $ 6C g pair
H g port H g filenamef web/http.scm
1 2 2
3 3 3 # 4 9 5 = 5 B 6 F 6 H C h8 ]4 > " G 4=> " G 6 g val
8 g port 8 g filenamef web/http.scm
, - -
- . 0 0 6 7 8 / 8 C> " G 4 iT> " G 4 iU> " G 43iV> " G 4iW> " G 4iX> " G 42iYiii> " G 4 iZ> " G 4i[> " G 42i\ h0 ]4 5$ "
44
55$ 6 6 g str
/ g filenamef web/http.scm
i j
j k
k k
# j ) l / m
/ C} h( { ] $
" $ C 6 s g val
% g t % g filenamef web/http.scm
n o o % o % C} h0 ]" 6 $ & 6"" g val
. g port . g filenamef web/http.scm
p s q q q q & r . C> " G 43i]> " G 42i^
h ] $ C 6 w g str
g filenamef web/http.scm
| } } }
~ C
h v ] & C 6 n g val
g filenamef web/http.scm
C
h ] & 6 6 g val
g port g filenamef web/http.scm
C> " G 4i_> " G `a h y ] 4 ;5 $ C
6 q g c
g t g filenamef web/http.scm
* 0 , 0 Cb h@ 8 ]4 5 45$
C45 $ 4
5" 6 0 g port
? g v ? g extension-start ! ? g filenamef web/http.scm
! + , ? ? g nameg read-chunk-headerg
documentationf QRead a chunk header from PORT and return the size in bytes of the
upcoming chunk. CcRfcgh h L ]+" M $ "
$ CM
$ '4L5 N
$ N C "4M5 4L 5 45$ N CM N
$ (4L> " G 4L> " G " "9
".D g bv
g idx g to-read g to-read g num-read g t g size 2 R g ask-for [ g read m g left
g filenamef web/http.scm
&
+ , 2
8 ; @ C R S [
^ i 8 m m
p z } % # g nameg read! Cijk h d ] L$ CL 6\ g filenamef web/http.scm
g nameg close C hP O - / 0 3 # HHO Q
KK O 6 G g port
N g keep-alive? N g remaining N g finished? N g read! , N g filenamef web/http.scm
? ! N N
g keep-alive?S g nameg make-chunked-input-portg
documentationf @Returns a new port which translates HTTP chunked transfer encoded
data from PORT into a non-encoded format. Returns eof when it has
read the final chunk from PORT. This does not necessarily mean
that there is no more data on PORT. When the returned port is
closed it will also close PORT, unless the KEEP-ALIVE? is true. CERflm h@ ]" 0" (45$ C4 45> " G """ g f
: g q : g filenamef web/http.scm
& 2 : g nameg
q-for-each Clnop h \ ] L 6 T g elem
g filenamef web/http.scm
#
C hh ]4M5$ C4M5 44 5L > " G 4L > " G 4LL O M> " G L 6 g len
h g filenamef web/http.scm
+ 4 8 ? H d h h
g nameg flush Cqrs h n ]M 6 f g c
g filenamef web/http.scm
g nameg put-char Cts h Y ]M 6 Q g c
g filenamef web/http.scm
!
C h p ]L O 6 h g s
g filenamef web/http.scm
g nameg
put-string Cuvk hH ] 4L> " G 4L> " G 4L> " G L $ CL6 g filenamef web/http.scm
' > F F
g nameg close Cw
hh - / 0 3 # H O Q 45 KO O O 6 g port
b g keep-alive? b g queue b g
q-for-each - b g flush - b g filenamef web/http.scm
7 ^ ` > b b
g keep-alive?S g nameg make-chunked-output-portg
documentationf Returns a new port which translates non-encoded data into a HTTP
chunked transfer encoded data and writes this to PORT. Data
written to this port is buffered until the port is flushed, at which
point it is all sent as one chunk. Take care to close the port when
done, as it will output the remaining data, and encode the final zero
chunk. When the port is closed it will also close PORT, unless
KEEP-ALIVE? is true. CFR4xi5 yRy h x ] 6p g port
g filenamef web/http.scm
g nameg http-proxy-port? CGR|y h ]45 6 g port
g flag g filenamef web/http.scm
g nameg set-http-proxy-port?! CHRC g m
, g rtd
g filenamef web/http.scm
K
O
! Y ! Y
" [
$ ^
&= j
(l q
* v
.
1
4Q
5
5 5 & 5 5
9u
:
;
>
@
D$
D
E
G^
I(
I)
I1 I;
ID
IL IV
I
J
K8
K9 KA KC KG
Le
M?
N
PR
RO !
R *
S -
Tf 0
U 3
Vg 6
Y8 <
] K
^ `
_ i
i q
jQ
m
n6
p~
q
s
v
w
x;
y
zk
p
q . .
/ /
p 0
[ ]
k
8 q
4
$
3
8
h D
˧ j
a p
k t
O y
ѻ
I
נ
߉
#
N
H
!
& !
/
<
= P
\
6 y
G
?
O
x
B
R
S :
[ : " :
" a
" a # a
# q
# q # q
# w
# w # w
# {
# { # {
#
# #
#
# #
$
$ $!
$*
$1 .
.
. .
.
. 2K
2T
2\ 2a
2j
2r 2w
2
2 2
2
2 2
2
2 2
2
2 9h
9q H
9x H ?} H
? j ? j ' ? j ? j
? l
? l @\ l
@e v
@m v @r v
@{
@ B
B
B B
B
B B
B
C C
C
C C"
C+
C3 C8
CA
CH CM
CV
C] HG
HP
HX ! H]
Hf
Hn Hs
H|
H ! H
H
H KO
KX
K` Ke
Kn
Kv K{
K
K K
K
K R
R ;
R ; R ;
R @
R @ R @
R D
R D R D
R P
R P R P
R U
R U R U
R Y
S Y S Y
S" `
S* ` S/ `
S8 d
S@ d SE d
SN h
SU h U h
U w
U w U w
V {
V { X6 {
X?
XG XL
Z
a"
i
i i
j
kB
kD
C6 PK ! W W
web/client.gonu [ GOOF----LE-8-2.0? ] 4 hh ] g guile g define-module* g web g client g filenameS
f web/client.scm g importsS g rnrs
g bytevectors
g ice-9 g binary-ports g iconv g rdelim g request g response g uri ! "! #g http $# %$ &g srfi 'g srfi-1 (&' )( *g srfi-9 +&* ,+ -g gnu .&*- /. 0 "%),/ 1g exportsS 2g current-http-proxy 3g open-socket-for-uri 4g http-get 5g http-get* 6g http-head 7g http-post 8g http-put 9g http-delete :g
http-trace ;g http-options <23456789:;
=g set-current-module >= ?= @g make-parameter Ag getenv Bf
http_proxy Cf Dg string? Eg string->uri Fg error Gf Invalid URI Hg I!H J!H Kg
ensure-uri Lg throw-bad-struct M+L N+L Og uri-port Pg delete-duplicates Qg getaddrinfo Rg uri-host Sg number->string Tg symbol->string Ug
uri-scheme Vg AI_NUMERICSERV Wg
addrinfo:addr Xg %default-port-encoding Yg socket Zg addrinfo:fam [g SOCK_STREAM \g
IPPROTO_IP ]g catch ^g system-error _g connect `g setvbuf ag _IOFBF bg set-http-proxy-port?! cg close dg throw eg fe ge hg
assoc-set! ig copy-tree jg %%-set-fields kg extend-request lg request-content-type mg
text/plain nm og assq-ref pg charset qg sanitize-request rg content-type sg append ts us vf utf-8 wg string->bytevector xg
procedure? yg call-with-encoded-output-string zg bytevector? {g request-content-length |g bytevector-length }f bad content-length ~g content-length f unexpected body type f content-length, but no body g assq g transfer-encoding g request-headers f *transfer-encoding not allowed with no body g vu8
j g response-content-length g response-content-type g text-content-type? g bytevector->string f
iso-8859-1 g decode-response-body g bodyS g portS g methodS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g requestS g GET g
build-request g
connection c g
write-request g write-request-body g force-output g request-port g
read-response g request-method g HEAD g
close-port g response-body-port g decode?S g read-response-body g
extra-headersS g issue-deprecation-warning f HThe #:extra-headers argument to http-get has been renamed to #:headers. f Please update your code. f "`http-get*' has been deprecated. f BInstead, use `http-get' with the #:streaming? #t keyword argument. g make-syntax-transformer g define-http-verb g macro g $sc-dispatch g any g
syntax-object g define* g top g ribcage g dummy g http-verb g method g doc g m-1a596c681-fb f l-1a596c681-100 f l-1a596c681-101 f l-1a596c681-102 f l-1a596c681-103 g x f l-1a596c681-fd g hygiene g keyS g body g port 3 g version g quote g keep-alive? g headers g decode-body? g
streaming?
g syntax-violation f -source expression failed to match any pattern g POST g PUT g DELETE g TRACE g OPTIONSC 5 hho - ]4
01<5 4? > " G 4@i4AiB5 C$ " 52RDEFGJ h@ ]4 5$ 6" 6 $ & C"" g
uri-or-string
: g filenamef web/client.scm
=
?
> ? A A > " @ & > ) @ : g nameg
ensure-uri CKR2KJNOPQRSTUVW h | ]4 545C t g ai1
g ai2 g filenamef web/client.scm
P Q
Q % Q CXYZ[\]^_W`ab hP q ] 4L4L5> " G 4L> " G M $ 4L> " G " LC i g filenamef web/client.scm
Y Z
Z Z
]
5 _
6 _ O
Ccd h0 - 1 3 4L> " G L ( @LL 6 ~ g args
/ g filenamef web/client.scm
a
c
d " d
( e - f / f /
C
h@ ] Y4455Z LO L O 6 g addresses
; g ai ; g s ; g filenamef web/client.scm
S T T
W W W T # X
; X
; g nameg loop C h ]!HHH45 K4J$ J" 5KJ& J " 4J5 44J& J " 4J5$ 4 5" 4
J& J
" 4J 55$ "
5
5 KO Q J6 g
uri-or-string
g
http-proxy g uri g addresses g port B g loop g filenamef web/client.scm
C
E F F % F * H B H E I H J M J k K w L | L 0 L M J I S g nameg open-socket-for-urig
documentationf 9Return an open input/output port for a connection to URI. C3RghiNjk hh - 1 3 & 3
44 55 " 4 5 ( C@ g r
a g k a g v a g
additional a g r N a g filenamef web/client.scm
h
i " j % j " , j - . j " 4 j 9 i N i V l a n a
g nameg extend-request CkRDlnopqkruvwxyz{|F}~gN h ]$ 45$ T4 5 45 $ " 4 4
554 $ "
564 5$ T4 5 45 $ " 4 4
554
$ "
5645$ K4 545 $ $ " 45" 4 5 D64 5 $ "
$ " 4> " G " <4 & " 4 55$ 4> " G " D } g request
g body g type g g declared-charset ( g g type { g declared-charset g rlen g blen g length ) g filenamef web/client.scm
q
/ $ ' & 2 ( ( 2 9 ? # @ H ) I P Q [ c ) e g h r s y ( { { ~ ' 2 # ) ) - " # ) 1 4 9
> B G T X [ ) u y
z ~ T g nameg sanitize-requestg
documentation k 0" S a n i t i z e " t h e g i v e n r e q u e s t a n d b o d y , e n s u r i n g t h a t t h e y a r e
c o m p l e t e a n d c o h e r e n t . T h i s m e t h o d i s m o s t u s e f u l f o r m e t h o d s t h a t s e n d
d a t a t o t h e s e r v e r , l i k e P O S T , b u t c a n b e u s e d f o r a n y m e t h o d . R e t u r n
t w o v a l u e s : a r e q u e s t a n d a b y t e v e c t o r , p o s s i b l y t h e s a m e o n e s t h a t w e r e
p a s s e d a s a r g u m e n t s .
I f B O D Y i s a s t r i n g , e n c o d e s t h e s t r i n g t o a b y t e v e c t o r , i n a n e n c o d i n g
a p p r o p r i a t e f o r R E Q U E S T . A d d s a c o n t e n t - l e n g t h a n d c o n t e n t - t y p e
h e a d e r , a s n e c e s s a r y .
I f B O D Y i s a p r o c e d u r e , i t i s c a l l e d w i t h a p o r t a s a n a r g u m e n t , a n d t h e
o u t p u t c o l l e c t e d a s a b y t e v e c t o r . I n t h e f u t u r e w e m i g h t t r y t o i n s t e a d
u s e a c o m p r e s s i n g , c h u n k - e n c o d e d p o r t , a n d c a l l t h i s p r o c e d u r e l a t e r .
A u t h o r s a r e a d v i s e d n o t t o r e l y o n t h e p r o c e d u r e b e i n g c a l l e d a t a n y
p a r t i c u l a r t i m e .
N o t e t h a t w e r e l y o n t h e r e q u e s t i t s e l f a l r e a d y h a v i n g b e e n v a l i d a t e d ,
a s i s t h e c a s e b y d e f a u l t w i t h a r e q u e s t r e t u r n e d b y ` b u i l d - r e q u e s t ' . CqRz|opF}
h ]"$ 45$ {4 545 " D4 5 $ 245$ #45 $ " 6CC$ $ "
6"
6C g response
g body g rlen ! g blen ! g t 0 m g t R e g filenamef web/client.scm
! * 0 9 > # @ D
I , N 6 P A R , R ( b , g m x | g nameg decode-response-body CR3KqgN h - /
0
3 # # 4 5 # # # # # # # -44 5 $ "
5 4 > G
4
5 $ 4 > " G " 4 & " 4 5> " G 45
&
" 4 5& !$ " 4> " G
D$
4
5D4
5 $ " 4> " G
$
4
5" D g uri
g body g port g method g version g keep-alive? g headers g decode-body? g
streaming? g request g request
g body g request g response
g body h g filenamef web/client.scm
# 3 = O j m ( "
# * '
- 2 H N
Q a b h p u '
g bodyS g portS g methodS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g requestS
g nameg request CR3 h ) - / 0 3 # # 4 5 # # # # $ " # # $ 4> " G "
6 ! g uri
g body g port g version g keep-alive? g
extra-headers g headers g decode-body? g
streaming? g filenamef web/client.scm
# 3 S / Z A t u y {
g bodyS g portS g versionS g keep-alive?S g
extra-headersS g headersS g decode-body?S g
streaming?S g nameg http-getg
documentation k C o n n e c t t o t h e s e r v e r c o r r e s p o n d i n g t o U R I a n d a s k f o r t h e
r e s o u r c e , u s i n g t h e G E T m e t h o d . I f y o u a l r e a d y h a v e a p o r t o p e n ,
p a s s i t a s P O R T . T h e p o r t w i l l b e c l o s e d a t t h e e n d o f t h e
r e q u e s t u n l e s s K E E P - A L I V E ? i s t r u e . A n y e x t r a h e a d e r s i n t h e
a l i s t H E A D E R S w i l l b e a d d e d t o t h e r e q u e s t .
I f B O D Y i s n o t # f , a m e s s a g e b o d y w i l l a l s o b e s e n t w i t h t h e H T T P
r e q u e s t . I f B O D Y i s a s t r i n g , i t i s e n c o d e d a c c o r d i n g t o t h e
c o n t e n t - t y p e i n H E A D E R S , d e f a u l t i n g t o U T F - 8 . O t h e r w i s e B O D Y s h o u l d b e
a b y t e v e c t o r , o r # f f o r n o b o d y . A l t h o u g h i t ' s a l l o w e d t o s e n d a
m e s s a g e b o d y a l o n g w i t h a n y r e q u e s t , u s u a l l y o n l y P O S T a n d P U T r e q u e s t s
h a v e b o d i e s . S e e h t t p - p u t a n d h t t p - p o s t d o c u m e n t a t i o n , f o r m o r e .
I f D E C O D E - B O D Y ? i s t r u e , a s i s t h e d e f a u l t , t h e b o d y o f t h e
r e s p o n s e w i l l b e d e c o d e d t o s t r i n g , i f i t i s a t e x t u a l c o n t e n t - t y p e .
O t h e r w i s e i t w i l l b e r e t u r n e d a s a b y t e v e c t o r .
H o w e v e r , i f S T R E A M I N G ? i s t r u e , i n s t e a d o f e a g e r l y r e a d i n g t h e r e s p o n s e
b o d y f r o m t h e s e r v e r , t h i s f u n c t i o n o n l y r e a d s o f f t h e h e a d e r s . T h e
r e s p o n s e b o d y w i l l b e r e t u r n e d a s a p o r t o n w h i c h t h e d a t a m a y b e r e a d .
U n l e s s K E E P - A L I V E ? i s t r u e , t h e p o r t w i l l b e c l o s e d a f t e r t h e f u l l
r e s p o n s e b o d y h a s b e e n r e a d .
R e t u r n s t w o v a l u e s : t h e r e s p o n s e r e a d f r o m t h e s e r v e r , a n d t h e r e s p o n s e
b o d y a s a s t r i n g , b y t e v e c t o r , # f v a l u e , o r a s a p o r t ( i f S T R E A M I N G ? i s
t r u e ) . C4R34 h - / 0 3 # # 4 5 # # # # $ " # 4> " G
6 g uri
g body g port g version g keep-alive? g
extra-headers g headers g decode-body? g filenamef web/client.scm
!
# # 3 $ S & 0 Z & B f ) j * l + q ) ,
g bodyS g portS g versionS g keep-alive?S g
extra-headersS g headersS g decode-body?S g nameg http-get*g
documentationf 2Deprecated in favor of (http-get #:streaming? #t). C5R4 h( i ] C a g dummy
# g http-verb # g method # g doc # # C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef web/client.scm
0
" g
macro-typeg syntax-rulesg patternsg http-verbg methodg doc C5R3 h - / 0 3 # # 4 5 # # # # #
6 g uri
g body g port g version g keep-alive? g headers g decode-body? g
streaming? g filenamef web/client.scm
@
e A @
g bodyS g portS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g nameg http-headg
documentation k @F e t c h m e s s a g e h e a d e r s f o r t h e g i v e n U R I u s i n g t h e H T T P " H E A D "
m e t h o d .
T h i s f u n c t i o n i s s i m i l a r t o h t t p - g e t , e x c e p t i t u s e s t h e " H E A D "
m e t h o d . S e e h t t p - g e t f o r f u l l d o c u m e n t a t i o n o n t h e v a r i o u s k e y w o r d
a r g u m e n t s t h a t a r e a c c e p t e d b y t h i s f u n c t i o n .
R e t u r n s t w o v a l u e s : t h e r e s u l t i n g r e s p o n s e , a n d # f . R e s p o n s e s t o H E A D
r e q u e s t s d o n o t h a v e a b o d y . T h e s e c o n d v a l u e i s o n l y r e t u r n e d s o t h a t
o t h e r p r o c e d u r e s c a n t r e a t a l l o f t h e h t t p - f o o v e r b s i d e n t i c a l l y . C6R3 h i - / 0 3 # # 4 5 # # # # #
6 a g uri
g body g port g version g keep-alive? g headers g decode-body? g
streaming? g filenamef web/client.scm
M
e N M
g bodyS g portS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g nameg http-postg
documentation k P o s t d a t a t o t h e g i v e n U R I u s i n g t h e H T T P " P O S T " m e t h o d .
T h i s f u n c t i o n i s s i m i l a r t o h t t p - g e t , e x c e p t i t u s e s t h e " P O S T "
m e t h o d . S e e h t t p - g e t f o r f u l l d o c u m e n t a t i o n o n t h e v a r i o u s k e y w o r d
a r g u m e n t s t h a t a r e a c c e p t e d b y t h i s f u n c t i o n .
R e t u r n s t w o v a l u e s : t h e r e s u l t i n g r e s p o n s e , a n d t h e r e s p o n s e b o d y . C7R3 h ] - / 0 3 # # 4 5 # # # # #
6 U g uri
g body g port g version g keep-alive? g headers g decode-body? g
streaming? g filenamef web/client.scm
W
e X W
g bodyS g portS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g nameg http-putg
documentation k P u t d a t a a t t h e g i v e n U R I u s i n g t h e H T T P " P U T " m e t h o d .
T h i s f u n c t i o n i s s i m i l a r t o h t t p - g e t , e x c e p t i t u s e s t h e " P U T "
m e t h o d . S e e h t t p - g e t f o r f u l l d o c u m e n t a t i o n o n t h e v a r i o u s k e y w o r d
a r g u m e n t s t h a t a r e a c c e p t e d b y t h i s f u n c t i o n .
R e t u r n s t w o v a l u e s : t h e r e s u l t i n g r e s p o n s e , a n d t h e r e s p o n s e b o d y . C8R3 h - / 0 3 # # 4 5 # # # # #
6 } g uri
g body g port g version g keep-alive? g headers g decode-body? g
streaming? g filenamef web/client.scm
a
e b a
g bodyS g portS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g nameg http-deleteg
documentation k D e l e t e d a t a a t t h e g i v e n U R I u s i n g t h e H T T P " D E L E T E " m e t h o d .
T h i s f u n c t i o n i s s i m i l a r t o h t t p - g e t , e x c e p t i t u s e s t h e " D E L E T E "
m e t h o d . S e e h t t p - g e t f o r f u l l d o c u m e n t a t i o n o n t h e v a r i o u s k e y w o r d
a r g u m e n t s t h a t a r e a c c e p t e d b y t h i s f u n c t i o n .
R e t u r n s t w o v a l u e s : t h e r e s u l t i n g r e s p o n s e , a n d t h e r e s p o n s e b o d y . C9R3 h - / 0 3 # # 4 5 # # # # #
6 g uri
g body g port g version g keep-alive? g headers g decode-body? g
streaming? g filenamef web/client.scm
k
e l k
g bodyS g portS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g nameg
http-traceg
documentationk dS e n d a n H T T P " T R A C E " r e q u e s t .
T h i s f u n c t i o n i s s i m i l a r t o h t t p - g e t , e x c e p t i t u s e s t h e " T R A C E "
m e t h o d . S e e h t t p - g e t f o r f u l l d o c u m e n t a t i o n o n t h e v a r i o u s k e y w o r d
a r g u m e n t s t h a t a r e a c c e p t e d b y t h i s f u n c t i o n .
R e t u r n s t w o v a l u e s : t h e r e s u l t i n g r e s p o n s e , a n d t h e r e s p o n s e b o d y . C:R3 h - / 0 3 # # 4 5 # # # # #
6 g uri
g body g port g version g keep-alive? g headers g decode-body? g
streaming? g filenamef web/client.scm
u
e v u
g bodyS g portS g versionS g keep-alive?S g headersS g decode-body?S g
streaming?S g nameg http-optionsg
documentation k Q u e r y c h a r a c t e r i s t i c s o f a n H T T P r e s o u r c e u s i n g t h e H T T P " O P T I O N S "
m e t h o d .
T h i s f u n c t i o n i s s i m i l a r t o h t t p - g e t , e x c e p t i t u s e s t h e " O P T I O N S "
m e t h o d . S e e h t t p - g e t f o r f u l l d o c u m e n t a t i o n o n t h e v a r i o u s k e y w o r d
a r g u m e n t s t h a t a r e a c c e p t e d b y t h i s f u n c t i o n .
R e t u r n s t w o v a l u e s : t h e r e s u l t i n g r e s p o n s e , a n d t h e r e s p o n s e b o d y . C;RC % g m
, g proxy
: O g filenamef web/client.scm !
- 9 2 9 8 9 ' : 9 : 9 @ : , A : E : Q 9 T 8
n =
C
& h
q
%
=
@ !
K @
R M
Z W
a@ a
g k
od u
of
C6 PK ! r r web/server/http.gonu [ GOOF----LE-8-2.0q ]\ 4 h= ] g guile g define-module* g web g server g http
g filenameS f web/server/http.scm g importsS
g srfi g srfi-1
g selectS g fold g srfi-9
g rnrs g bytevectors g request g response ! "! #g ice-9 $g poll %#$ &% ' "& (g exportsS ) *g set-current-module +* ,* -g socket .g PF_INET /g SOCK_STREAM 0g
setsockopt 1g
SOL_SOCKET 2g SO_REUSEADDR 3g bind 4g make-default-socket 5g
6g %make-http-server-procedure 7g make-syntax-transformer 87 97 :g make-http-server ;g macro < ?g _ @g any A?@@@ Bg
syntax-object Cg lambda Dg
m-1e74a72e9-e Eg top FDE Gg ribcage Hg
t-1e74a72e9-b Ig
t-1e74a72e9-c Jg
t-1e74a72e9-d KHIJ LFFF Mf l-1e74a72e9-13 Nf l-1e74a72e9-14 Of l-1e74a72e9-15 PMNO QGKLP RG Sg x TS UF Vf l-1e74a72e9-10 WV XGTUW Yg shift Zg proc-name [g args \Z[ ]E ^]] _f l-1e8ba8b5a-2ba `f l-1e8ba8b5a-2bb a_` bG\^a cg key dg value eg name fg formals gg body hcdefg i]]]]] jf l-1e8ba8b5a-2ad kf l-1e8ba8b5a-2ae lf l-1e8ba8b5a-2af mf l-1e8ba8b5a-2b0 nf l-1e8ba8b5a-2b1 ojklmn pGhio qg make-procedure-name rq s] tf l-1e8ba8b5a-29d ut vGrsu w] xf l-1e8ba8b5a-29c yx zGTwy {FQRXYRRRRbpvz
|g hygiene }|
~BC{} ]QRX | B- g poll-idx B g poll-set B g make-struct g
m-1e74a72e9-9 E g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e E f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 G g ctor-args f l-1e8ba8b5a-37a Gw g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 G^ g form g type-name g constructor-spec g field-names ]]]] f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e G g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers ]]]]]]]] f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 G f l-1e8ba8b5a-334 GTw QRXYRRRRR B} B5 B
} ~ g each-any ?ˌ g syntax-violation f Wrong number of arguments g identifier? ]RX B6 f -source expression failed to match any pattern g record-type-vtable g pwpwpw g default-record-printer - g set-struct-vtable-name! g vtable-offset-user g %http-server?-procedure g http-server? ?@ g m-1e74a72e9-1f E g t-1e74a72e9-1e f l-1e74a72e9-24 G f l-1e74a72e9-21 GT RYRRRRbpvz
BC} g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f E f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489
G
g copier-id
f l-1e8ba8b5a-476 G
w g ctor-name f l-1e8ba8b5a-46e Gw f l-1e8ba8b5a-46c Gw g layout f l-1e8ba8b5a-46a Gw g
immutable? !f l-1e8ba8b5a-468 "! #G w" $g field-count %$ &f l-1e8ba8b5a-466 '& (G%w' )g
getter-ids *) +f l-1e8ba8b5a-463 ,+ -G*w, .g field-ids /. 0f l-1e8ba8b5a-460 10 2G/w1 3g predicate-name 4g
field-spec 5 34 6]]]]]] 7f l-1e8ba8b5a-453 8f l-1e8ba8b5a-454 9f l-1e8ba8b5a-455 :f l-1e8ba8b5a-456 ;f l-1e8ba8b5a-457 G56= ?RYR RRRRRRR R#R(R-R2> @B?} A@ Bg and CBB?} Dg struct? EBD?} FE@ Gg eq? HBG?} Ig
struct-vtable JBI?} KJ@ L]R MB5L NHKM OCFN PAO Q]R RBQ Sg throw-bad-struct TS US Vg http-socket Wg %http-socket-procedure Xg free-id Yg
%%on-error Zg m-1e74a72e9-2b [ZE \[ ]f l-1e74a72e9-2d ^] _GT\^ `[R_YRRRRbpvz aBY`} bXa cb@ dg %%type eg t-1e8ba8b5a-3a5 fg t-1e8ba8b5a-3a6 gg t-1e8ba8b5a-3a7 hg t-1e8ba8b5a-3a8 ig t-1e8ba8b5a-3a9 jg t-1e8ba8b5a-3aa kg t-1e8ba8b5a-3ab lefghijk mg m-1e8ba8b5a-3ac nmE onnnnnnn pf l-1e8ba8b5a-3b0 qf l-1e8ba8b5a-3b1 rf l-1e8ba8b5a-3b2 sf l-1e8ba8b5a-3b3 tf l-1e8ba8b5a-3b4 uf l-1e8ba8b5a-3b5 vf l-1e8ba8b5a-3b6 wpqrstuv xGlow yg getter zg index {yz |f l-1e8ba8b5a-3a3 }f l-1e8ba8b5a-3a4 ~|} G{^~ ) ]]] f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 G R_YRxRRRR Bd} X ?c@ g ck g err g s [[ f l-1e74a72e9-30 f l-1e74a72e9-31 G [R_YRRRRbpvz
B} g quote B} ]R_ B5 g %%index B} X ?c@ f l-1e74a72e9-35 f l-1e74a72e9-36 G [R_YRRRRbpvz
B} B} R_ B
g %%copier B} X ?c@ f l-1e74a72e9-3a f l-1e74a72e9-3b G [R_YRRRRbpvz
B} B} g %%-set-fields ]R_ B g t-1e74a72e9-2a f l-1e74a72e9-3f G\ [R_YRRRRbpvz
BC} R_YRxRRRR B} g if B} BG} BI} ]R_ B5 g
struct-ref B} R_ B
BS} B} BV ]R_ BW g
http-poll-idx g %http-poll-idx-procedure g m-1e74a72e9-46 E f l-1e74a72e9-48 GT RYRRRRbpvz BY} X @ RYRxRRRR Bd} X ?@ f l-1e74a72e9-4b f l-1e74a72e9-4c G RYRRRRbpvz
B} B} ]R B5 B} X ?@ f l-1e74a72e9-50 f l-1e74a72e9-51 G RYRRRRbpvz
B} B} R B B} X ?@ f l-1e74a72e9-55 f l-1e74a72e9-56
G
RYRRRRbpvz
B } B } ] R B g t-1e74a72e9-45 f l-1e74a72e9-5a G RYRRRRbpvz
BC} RYRxRRRR B} B} BG} BI} !]R "B5! # " $B} %R &B % '$& (BS} )B} *B! +)* ,(+ - #', . - /]R 0B/ 1g
http-poll-set 2g %http-poll-set-procedure 3g m-1e74a72e9-61 43E 54 6f l-1e74a72e9-63 76 8GT57 94R8YRRRRbpvz :BY9} ;X: <;@ =R8YRxRRRR >Bd=} ?X> @?<?@ A44 Bf l-1e74a72e9-66 Cf l-1e74a72e9-67 DBC EGAD F4ER8YRRRRbpvz
GBF} HBF} I]ER8 JB5I KHJ LK MB=} NXM O?<N@ Pf l-1e74a72e9-6b Qf l-1e74a72e9-6c RPQ SGAR T4SR8YRRRRbpvz
UBT} VBT} WSR8 XB W YVX ZY [B=} \X[ ]?<\@ ^f l-1e74a72e9-70 _f l-1e74a72e9-71 `^_ aGA` b4aR8YRRRRbpvz
cBb} dBb} e]aR8 fBe gdf hg ig t-1e74a72e9-60 ji kf l-1e74a72e9-75 lk mGj5l n4mR8YRRRRbpvz
oBCn} pmR8YRxRRRR qBp} rq sBp} tBGp} uBIp} vuq w]mR8 xB5w ytvx zBp} {mR8 |B { }zq| ~BSp} Bp} B1w ~q sy} or ]R8 B2 g each @@ @ @ @ g %%set-fields g dummy g check? g expr y g m-1e74a72e9-7c E f l-1e74a72e9-81 f l-1e74a72e9-82 f l-1e74a72e9-83 f l-1e74a72e9-84 f l-1e74a72e9-85 G f l-1e74a72e9-7e GT g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 E f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd G f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 G RYRRRR
B} ]R B5 BV B B1 g map g list g set-http-poll-idx! g %set-http-poll-idx!-procedure ?@@ g m-1e74a72e9-90 E g t-1e74a72e9-8e g t-1e74a72e9-8f f l-1e74a72e9-95 f l-1e74a72e9-96 G f l-1e74a72e9-92 GT RYRRRRbpvz
BC} g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 E f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed G g setter ey f l-1e8ba8b5a-3e0 f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2 G 4z f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 G^ g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 G^ RYRRR B} g val B} B} BG} BI} ]R B5 g struct-set! B} R B BS} B} B ]R B g POLLHUP g POLLERR g *error-events* g POLLIN
g
*read-events* g *events* g hostS
g familyS g addrS g portS g socketS
g AF_INET g inet-pton g INADDR_LOOPBACK g listen g sigaction g SIGPIPE g SIG_IGN g make-empty-poll-set g
poll-set-add! g http-open !g write-response "g build-response #g versionS $
%g codeS &g headersS 'g content-length ('
)( *g bad-request +g poll-set-revents ,g
-%, .%, /g
poll-set-nfds 0g accept 1g
poll-set-port 2g setvbuf 3g _IOFBF 4g SO_SNDBUF 5g throw 6g interrupt 7g poll-set-remove! 8g eof-object? 9g peek-char :g
close-port ;g with-throw-handler g catch ?g format @g current-error-port Af In ~a:
Bg port C*B Dg print-exception E:B Fg http-read Gg
H G I G Jg response-version Kg
response-code Lg memq Mg close Ng response-connection Og
keep-alive Pg keep-alive? Qg
response-port Rg bytevector? Sg write-response-body Tg error Uf Expected a bytevector for body Vg force-output Wg
http-write Xg
http-close Yg server-impl Z!Y [!Y C 5 hh/ / ] 4
'()5 4, > " G -./0123 h@ ] 4
5 4 > " G 4 > " G C g family
@ g addr @ g port @ g sock @ g filenamef web/server/http.scm
(
) ) * & + @ g nameg make-default-socket C4R5 h ] C g socket
g poll-idx g poll-set g filenamef web/server/http.scm
.
g nameg %make-http-server-procedure C6R49:;>A h k ] C c g
t-1e74a72e9-b
g
t-1e74a72e9-c g
t-1e74a72e9-d C: h V ]L 6 N g a
g filenamef web/server/http.scm .
C? h F ] L 6> g filenamef web/server/http.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 web/server/http.scm
.
n C5:R5 4 5> " G 6i 5R5 h { ] $ CC s g obj
g filenamef web/server/http.scm
.
g nameg %http-server?-procedure CR49;>P h 6 ] C . g t-1e74a72e9-1e
C h V ]L 6 N g a
g filenamef web/server/http.scm .
C? h F ] L 6> g filenamef web/server/http.scm .
CR 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 web/server/http.scm
.
n C5R5UV h x ] &
C 6p g s
g filenamef web/server/http.scm
.
g nameg %http-socket-procedure CWR49V;> 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 6 ] C . g t-1e74a72e9-2a
CV h V ]L 6 N g a
g filenamef web/server/http.scm .
C? h F ] L 6> g filenamef web/server/http.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 web/server/http.scm
.
C5VR5U h z ] & C 6r g s
g filenamef web/server/http.scm
.
g nameg %http-poll-idx-procedure CR49;> 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 6 ] C . g t-1e74a72e9-45
C h V ]L 6 N g a
g filenamef web/server/http.scm .
C? h F ] L 6> g filenamef web/server/http.scm .
C0 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 web/server/http.scm
.
C5R5U1 h z ] & C 6 r g s
g filenamef web/server/http.scm
.
g nameg %http-poll-set-procedure C2R491;>@GL h : ]C 2 g err
g s COUZ h : ]C 2 g err
g s C]ch h : ]C 2 g err
g s C h 6 ] C . g t-1e74a72e9-60
C1 h V ]L 6 N g a
g filenamef web/server/http.scm .
C? h F ] L 6> g filenamef web/server/http.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 web/server/http.scm
.
C51R49;> 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 web/server/http.scm
.
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R5U h ] & C 6 g s
g val g filenamef web/server/http.scm
.
g nameg %set-http-poll-idx!-procedure CR49;> h R ] C J g t-1e74a72e9-8e
g t-1e74a72e9-8f C h V ]L 6 N g a
g filenamef web/server/http.scm .
C? h F ] L 6> g filenamef web/server/http.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 web/server/http.scm
.
n C5RiiR i
Ri
i R4 5 h g - / 0 3 # # # $
4 5" # #
45 4 > " G 4 > " G 4
5 4 > " G
C _ g host
g family g addr g port g socket g poll-set g filenamef web/server/http.scm
:
2 = 3 > U A b B w C D D E F
g hostS
g familyS g addrS g portS g socketS g nameg http-open C R!"#$%&) h ]4 5 6 g port
g filenamef web/server/http.scm
H
I I , J , I I g nameg bad-request C*R5U1+$./0123014 56789:;<= h y ]4L 5 L 4 5Dq g req
g filenamef web/server/http.scm
} ~ ~
C>* h P ] L 6H g filenamef web/server/http.scm
C?@ACD h0 j - 1 3 445 > " G 45 6b g k
0 g args 0 g filenamef web/server/http.scm
0
C: h P ] L 6H g filenamef web/server/http.scm
C?@AED h0 j - 1 3 445 > " G 45 6b g k
0 g args 0 g filenamef web/server/http.scm
0
C h8 | - 1 3 4L O > " G L O 6 t g k
1 g args 1 g filenamef web/server/http.scm
1 1
C h ]) & " 4 5 " 45
$
$ 34> " G & " 45 "
$ 4 4
55 4 > " G 4
0 > " G 4> " G 4> " G & " 45 " & " 4 > " G 6
$ "45 & " 4 > " G 4455$ 4> " G "yO O 6 & " 4 5 "F g server
g poll-set g idx # g revents , g client g port M g val R g filenamef web/server/http.scm
N
O O # P $ Q , Q 1 S
6 R 9 V > U
? X S Y k Y q Y v Z w Z | U
} b b " b b d d d f f f < f g g & g h i i i \ 1 ] 3 ] 6 j
; R > l D l
E p M p
R s ' R s u u u t w x x { P P P : g nameg http-read CFRIUJKLMNO h ] &
" 4 5 & " 4 5 $ " & " 4 5 $ C $ 4 $ 44 55C
$
4 56CCC w g response
g v g t < j g key q g key ~ g filenamef web/server/http.scm
! <
< L g
n q q ~ ~ % % g nameg keep-alive? CPR!IUQRSTUPV 51 : h ]45 & " 45 $ ;45$ 4> " G " 4> " G " 4 5$ E4
> " G 4 & " 4
5> " G " 4> " G D g server
g client g response g body g response g port ( g filenamef web/server/http.scm
( 0 1 ; < T X
_ l v w g nameg
http-write CWR5U1:7./ hp ] & " 4 5 " -
$ #445> " G "C& " 45 " g server
p g poll-set p g n # P g filenamef web/server/http.scm
# &
+ , / 6 3 8 = H N P S p p g nameg
http-close CXR iFiWiXi [ RC ' g m
, g rtd
! g open
/= /a g read /= /a g write /= /a g close /= /a g filenamef web/server/http.scm
[ (
1 .
P 5 T 5
] 6
h 7 l 7
:
H
(p N
*
-q
/)
/=
/f
C6 PK ! {+ + web/request.gonu [ GOOF----LE-8-2.0 ] 4 h9W ] g guile g define-module* g web g request g filenameS
f web/request.scm g importsS g rnrs
g bytevectors
g ice-9 g binary-ports g rdelim g srfi g srfi-9 g uri g http ! "g exportsS #g request? $g request-method %g request-uri &g request-version 'g request-headers (g request-meta )g request-port *g read-request +g
build-request ,g
write-request -g read-request-body .g write-request-body /g request-cache-control 0g request-connection 1g request-date 2g request-pragma 3g request-trailer 4g request-transfer-encoding 5g request-upgrade 6g request-via 7g request-warning 8g
request-allow 9g request-content-encoding :g request-content-language ;g request-content-length g request-content-range ?g request-content-type @g request-expires Ag request-last-modified Bg request-accept Cg request-accept-charset Dg request-accept-encoding Eg request-accept-language Fg request-authorization Gg request-expect Hg request-from Ig request-host Jg request-if-match Kg request-if-modified-since Lg request-if-none-match Mg request-if-range Ng request-if-unmodified-since Og request-max-forwards Pg request-proxy-authorization Qg
request-range Rg request-referer Sg
request-te Tg request-user-agent Ug request-absolute-uri V#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU 3 Wg set-current-module XW YW Zg [g %make-request-procedure \g make-syntax-transformer ]\ ^\ _g make-request `g macro ag $sc-dispatch ba ca dg _ eg any fdeeeeee gg
syntax-object hg lambda ig m-45c8615977-9 jg top kij lg ribcage mg t-45c8615977-3 ng t-45c8615977-4 og t-45c8615977-5 pg t-45c8615977-6 qg t-45c8615977-7 rg t-45c8615977-8 smnopqr tkkkkkk uf l-45c8615977-e vf l-45c8615977-f wf l-45c8615977-10 xf l-45c8615977-11 yf l-45c8615977-12 zf l-45c8615977-13 {uvwxyz |lst{ }l ~g x ~ k f l-45c8615977-b l g shift g proc-name g args j f l-1e8ba8b5a-2ba f l-1e8ba8b5a-2bb l g key g value g name g formals g body f l-1e8ba8b5a-2ad f l-1e8ba8b5a-2ae f l-1e8ba8b5a-2af f l-1e8ba8b5a-2b0 f l-1e8ba8b5a-2b1 l g make-procedure-name f l-1e8ba8b5a-29d l f l-1e8ba8b5a-29c l k|}}}}}
g hygiene gh g method |} g g g version g g headers g g meta g g port g g make-struct g m-45c8615977-1 j g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e j f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 l g ctor-args f l-1e8ba8b5a-37a l g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 l g form g type-name g constructor-spec g field-names f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e l g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 l f l-1e8ba8b5a-334 l |}}}}}} g gZ g
g each-any d g syntax-violation f Wrong number of arguments g identifier? } g[ f -source expression failed to match any pattern
g record-type-vtable
g pwpwpwpwpwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %request?-procedure de g m-45c8615977-20 j g t-45c8615977-1f f l-45c8615977-25 !l "f l-45c8615977-22 #" $l # %!}$}}}}
&gh% 'g obj (g t-1e8ba8b5a-47e )g t-1e8ba8b5a-478 *g t-1e8ba8b5a-479 +g t-1e8ba8b5a-47a ,g t-1e8ba8b5a-47d -g t-1e8ba8b5a-47c .g t-1e8ba8b5a-47b /()*+,-. 0g m-1e8ba8b5a-47f 10j 21111111 3f l-1e8ba8b5a-483 4f l-1e8ba8b5a-484 5f l-1e8ba8b5a-485 6f l-1e8ba8b5a-486 7f l-1e8ba8b5a-487 8f l-1e8ba8b5a-488 9f l-1e8ba8b5a-489 :3456789 ;l/2: f l-1e8ba8b5a-476 ?> @l=? Ag ctor-name BA Cf l-1e8ba8b5a-46e DC ElBD F Gf l-1e8ba8b5a-46c HG IlFH Jg layout KJ Lf l-1e8ba8b5a-46a ML NlKM Og
immutable? PO Qf l-1e8ba8b5a-468 RQ SlPR Tg field-count UT Vf l-1e8ba8b5a-466 WV XlUW Yg
getter-ids ZY [f l-1e8ba8b5a-463 \[ ]lZ\ ^g field-ids _^ `f l-1e8ba8b5a-460 a` bl_a cg predicate-name dg
field-spec eOcd f gf l-1e8ba8b5a-453 hf l-1e8ba8b5a-454 if l-1e8ba8b5a-455 jf l-1e8ba8b5a-456 kf l-1e8ba8b5a-457 lf l-1e8ba8b5a-458 mghijkl nlefm o!}$};}}}}@}E}I}N}S}X}]}bn pg'o qp rg and sgro tg struct? ugto vup wg eq? xgwo yg
struct-vtable zgyo {zp |!}$ }gZ| ~x{} sv~ &q }$ g g throw-bad-struct g %request-method-procedure g free-id g
%%on-error g m-45c8615977-2c j f l-45c8615977-2e l }}}}} g e g %%type g t-1e8ba8b5a-3a5 g t-1e8ba8b5a-3a6 g t-1e8ba8b5a-3a7 g t-1e8ba8b5a-3a8 g t-1e8ba8b5a-3a9 g t-1e8ba8b5a-3aa g t-1e8ba8b5a-3ab g m-1e8ba8b5a-3ac j f l-1e8ba8b5a-3b0 f l-1e8ba8b5a-3b1 f l-1e8ba8b5a-3b2 f l-1e8ba8b5a-3b3 f l-1e8ba8b5a-3b4 f l-1e8ba8b5a-3b5 f l-1e8ba8b5a-3b6 l g getter g index f l-1e8ba8b5a-3a3 f l-1e8ba8b5a-3a4 l Y< f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 l }}}}}} g de g ck g err g s f l-45c8615977-31 f l-45c8615977-32 l }}}}}
g g quote g } gZ g %%index g de f l-45c8615977-36 f l-45c8615977-37 l }}}}}
g g } g
g %%copier g de f l-45c8615977-3b f l-45c8615977-3c l }}}}}
g g g %%-set-fields } g g t-45c8615977-2b f l-45c8615977-40 l }}}}}
gh }}}}}} g g if g gw gy } gZ g
struct-ref g } g
g g g$ } g
g %request-uri-procedure g m-45c8615977-47 j
f l-45c8615977-49 l
}}}}} g e }}}}}} g de f l-45c8615977-4c f l-45c8615977-4d l }}}}}
g g ! } "gZ! # " $# %g &% 'd&e (f l-45c8615977-51 )f l-45c8615977-52 *() +l* , +}}}}}
-g, .g, /+} 0g / 1.0 21 3g 43 5d4e 6f l-45c8615977-56 7f l-45c8615977-57 867 9l8 : 9}}}}}
;g: <g: =9} >g= ?<> @? Ag t-45c8615977-46 BA Cf l-45c8615977-5b DC ElB
D F E}}}}}
GghF HE}}}}}} IgH JI KgH LgwH MgyH NMI OE} PgZO QLNP RgH SE} Tg S URIT VgH WgH Xg%O YWX ZVIY [KQUZ \GJ[ ]} ^g
] _g %request-version-procedure `g m-45c8615977-62 a`j ba cf l-45c8615977-64 dc elbd fa}e}}}} ggf hg ihe j}e}}}}} kgj lk mdile naa of l-45c8615977-67 pf l-45c8615977-68 qop rlnq sar}e}}}}
tgs ugs vr}e wgZv xuw yx zgj {z |di{e }f l-45c8615977-6c ~f l-45c8615977-6d }~ ln a}e}}}}
g g }e g gj die f l-45c8615977-71 f l-45c8615977-72 ln a}e}}}}
g g }e g g t-45c8615977-61 f l-45c8615977-76 lb a}e}}}}
gh }e}}}}} g g gw gy }e gZ g }e g g g g& }e g_ g %request-headers-procedure g m-45c8615977-7d j f l-45c8615977-7f l }}}}} g e }}}}}} g de f l-45c8615977-82 f l-45c8615977-83 l }}}}}
g g } gZ g de f l-45c8615977-87 f l-45c8615977-88 l }}}}}
g g } g g de f l-45c8615977-8c f l-45c8615977-8d l }}}}}
g g } g g t-45c8615977-7c f l-45c8615977-91 l }}}}}
gh }}}}}} g g gw gy } gZ g } g g g g' } g g %request-meta-procedure
g m-45c8615977-98
j
f l-45c8615977-9a
l }}}}} g e }}}}}} g de f l-45c8615977-9d f l-45c8615977-9e l }}}}}
g g } !gZ " ! #" $g %$ &d%e 'f l-45c8615977-a2 (f l-45c8615977-a3 )'( *l) + *}}}}}
,g+ -g+ .*} /g . 0-/ 10 2g 32 4d3e 5f l-45c8615977-a7 6f l-45c8615977-a8 756 8l7 9 8}}}}}
:g9 ;g9 <8} =g< >;= ?> @g t-45c8615977-97 A@ Bf l-45c8615977-ac CB DlA C E D}}}}}
FghE GD}}}}}} HgG IH JgG KgwG LgyG MLH ND} OgZN PKMO QgG RD} Sg R TQHS UgG VgG Wg(N XVW YUHX ZJPTY [FIZ \} ]g \ ^g %request-port-procedure _g m-45c8615977-b3 `_j a` bf l-45c8615977-b5 cb dlac e`}d}}}} fge gf hge i}d}}}}} jgi kj ldhke m`` nf l-45c8615977-b8 of l-45c8615977-b9 pno qlmp r`q}d}}}}
sgr tgr uq}d vgZu wtv xw ygi zy {dhze |f l-45c8615977-bd }f l-45c8615977-be ~|} lm~ `}d}}}}
g g }d g gi dhe f l-45c8615977-c2 f l-45c8615977-c3 lm `}d}}}}
g g }d g g t-45c8615977-b2 f l-45c8615977-c7 la `}d}}}}
gh }d}}}}} g g gw gy }d gZ g }d g g g g) }d g^ g each ee e e e g %%set-fields g dummy g check? g expr g m-45c8615977-ce j f l-45c8615977-d3 f l-45c8615977-d4 f l-45c8615977-d5 f l-45c8615977-d6 f l-45c8615977-d7 l f l-45c8615977-d0 l g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 j f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd l f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 l }}}}}
g } gZ g$ g% g& g' g( g) g map g list g throw g bad-request g display f
Bad request: g apply g format g newline g bad-request-printer g set-exception-printer! g number? g exact? g integer? g non-negative-integer? g
valid-header? g validate-headers f Bad value for header ~a: ~s f Header not a pair: ~a f Headers not a list: ~a g methodS g versionS g headersS g portS g metaS g validate-headers?S
g GET
g assq-ref g host f Bad version: ~a f Bad uri: ~a g g POST g PUT f Missing port for message ~a f ;HTTP/1.1 request without Host header and no host in URI: ~a f Bad metadata alist g uri-host g uri-port g set-port-encoding! f
ISO-8859-1 g read-request-line g read-headers g write-request-line g
write-headers !f
"g get-bytevector-n #g bytevector-length $f .EOF while reading request body: ~a bytes of ~a %g put-bytevector &g define-request-accessor ' (f l-45c8615977-1b1 )( *l') +f l-45c8615977-1ae ,+ -l, .*}- /g&. 0g. 10 2dee 3g
datum->syntax 4g
symbol-append 5g request- 6g
syntax->datum 7g define* 8g t-45c8615977-1bc 98 :g m-45c8615977-1bd ;:j <; =f l-45c8615977-1c0 >= ?l9<> @g def A@ Bf l-45c8615977-1b8 Cf l-45c8615977-1b9 DBC ElAD F}?E}- Gg7F HgF Ig optionalS JgIF Kg default LgKF Mg cond NgMF Og assq PgOF QgF Rg'F SRH TS Ug => VgUF Wg cdr XgWF YVX Zg else [gZF \[L ]\ ^g
cache-control _g
connection `g date ag pragma bg trailer cg transfer-encoding dg upgrade eg via fg warning gg allow hg content-encoding ig content-language jg content-length kg content-location lg content-md5 mg
content-range ng content-type og expires pg
last-modified qg accept rg accept-charset sg accept-encoding tg accept-language ug
authorization vg expect wg from xg if-match yg if-modified-since zg
if-none-match {g if-range |g if-unmodified-since }g max-forwards ~g proxy-authorization g range g referer g te g
user-agent f 4URI not absolute, no Host header, and no default: ~s g build-uri g
uri-scheme g hostS g pathS g uri-path g queryS g uri-query g fragmentS g uri-fragmentC 5 ho 9 ]4
!"V5 4Y > " G Z h ] C g method
g uri g version g headers g meta g port g filenamef web/request.scm
x
g nameg %make-request-procedure C[R4^_`cf h ] C g t-45c8615977-3
g t-45c8615977-4 g t-45c8615977-5 g t-45c8615977-6 g t-45c8615977-7 g t-45c8615977-8 C _ h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
n C5_R
Z 4 Z> " G [i ZRZ h s ] $ CC k g obj
g filenamef web/request.scm
x
g nameg %request?-procedure CR4^#`c h 7 ] C / g t-45c8615977-1f
C # h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
n C5#RZ$ h w ] &
C 6o g s
g filenamef web/request.scm
x
g nameg %request-method-procedure CR4^$`c 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 7 ] C / g t-45c8615977-2b
C $ h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
C5$RZ% h t ] & C 6l g s
g filenamef web/request.scm
x
g nameg %request-uri-procedure C
R4^%`c $ h : ]C 2 g err
g s C'-2 h : ]C 2 g err
g s C5;@ h : ]C 2 g err
g s C\ h 7 ] C / g t-45c8615977-46
C % h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
C5%RZ& h x ] & C 6 p g s
g filenamef web/request.scm
x
g nameg %request-version-procedure C_R4^&`cmty 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 7 ] C / g t-45c8615977-61
C & h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
C5&RZ' h x ] & C 6 p g s
g filenamef web/request.scm
x
g nameg %request-headers-procedure CR4^'`c 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 7 ] C / g t-45c8615977-7c
C ' h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
C5'RZ( h u ] & C 6 m g s
g filenamef web/request.scm
x
g nameg %request-meta-procedure C R4^(`c # h : ]C 2 g err
g s C&,1 h : ]C 2 g err
g s C4:? h : ]C 2 g err
g s C[ h 7 ] C / g t-45c8615977-97
C ( h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
C5(RZ) h u ] & C 6 m g s
g filenamef web/request.scm
x
g nameg %request-port-procedure C^R4^)`clsx 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 7 ] C / g t-45c8615977-b2
C ) h R ]L 6 J g a
g filenamef web/request.scm x
Cd h B ] L 6: g filenamef web/request.scm x
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 web/request.scm
x
C5)R4^`c 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 web/request.scm
x
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R h - 1 3 6 g message
g args g filenamef web/request.scm
g nameg bad-request CR hH ) 53 4L> " G 4L > " G L6- 1 3 L 6 g msg
; g args ; g _
D H g filenamef web/request.scm
; D H ; D H
C h ] O @ g port
g key g args g default-printer g filenamef web/request.scm
g nameg bad-request-printer CR4ii> " G h0 ]4 5$
$ 4 5$ 6CCC g n
, g filenamef web/request.scm
& ' , g nameg non-negative-integer? CR hX U ] $ < $ ( 45$ 666 ( C 6 M g headers
U g h E g k = g v = g filenamef web/request.scm
! , 1 $ 3 7 = A E K Q U
U g nameg validate-headers CR
Z h [ - / 0 3 # # # # # # $ 45" " 4> " )G " "$ 45$ 45$ " 4 > " G " $
& $ " & " $ 4
> " G " v$ [" $ 4> " >G " 7" 3$ ) $ "" 4 > " G " "" 4> " G " "!" "" "" "" "$ A
& " 4 5
& " 4 5" CS g uri
g method g version g headers g port g meta g validate-headers? g needs-host? c g headers g filenamef web/request.scm
* % 9 . ! @ 1 O * P T U [ 1 ] ^ c j n u ' '
0 ; ? H L S h l s ) 8 # =
g methodS g versionS g headersS g portS g metaS g validate-headers?S g nameg
build-requestg
documentationf }Construct an HTTP request object. If VALIDATE-HEADERS? is true,
the headers are each run through their respective validators. C+R Z hX - . , 3 # 4 > " G 4 > G 4 5 C g port
X g meta X g method 4 X g uri 4 X g version 4 X g headers D X g filenamef web/request.scm
- ! * 7 > ' D
X g nameg read-requestg
documentationf Read an HTTP request from PORT, optionally attaching the given
metadata, META.
As a side effect, sets the encoding on PORT to
ISO-8859-1 (latin-1), so that reading one character reads one byte. See
the discussion of character sets in "HTTP Requests" in the manual, for
more information.
Note that the body is not part of the request. Once you have read a
request, you may read the body separately, and likewise for writing
requests. C*R Z$%& '!)(
hp ]*4 &
" 4 5 & " 4 5 & " 4 5> " G 4 & " 4 5> " G 4
> " G & " 4 5& C &
" 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4 5 C g r
i g port i g method M i g uri M i g version M i g headers M i g meta M i g filenamef web/request.scm
" ) < [ d i ' 7 5 ( M i g nameg
write-requestg
documentationk XW r i t e t h e g i v e n H T T P r e q u e s t t o P O R T .
R e t u r n a n e w r e q u e s t , w h o s e r e q u e s t - p o r t w i l l c o n t i n u e w r i t i n g
o n P O R T , p e r h a p s u s i n g s o m e t r a n s f e r e n c o d i n g . C,R;"Z)#$ hX ]4 5 $ D4 & " 4 55 45$ C456C g r
W g nbytes W g bv 3 U g filenamef web/request.scm
% 3 3 6 ? C J K U W g nameg read-request-bodyg
documentation k hR e a d s t h e r e q u e s t b o d y f r o m R , a s a b y t e v e c t o r . R e t u r n # f
i f t h e r e w a s n o r e q u e s t b o d y . C-R%Z) h( ] & " 4 56 g r
# g bv # g filenamef web/request.scm
# # g nameg write-request-bodyg
documentationf HWrite BV, a bytevector, to the port corresponding to the HTTP
request R. C.R4^&`c/1 h - ] C % g field
C2 h i ] 6a g field
g def g filenamef web/request.scm C3456GHJLNPQTY] hH ]
4 44 555
C g field
E g def E g tmp E g filenamef web/request.scm %
/ E C hP t ]4 5 $ @4 5 " 6$ 4?$ @""l g x
P g tmp P g tmp " P g filenamef web/request.scm
P C5&RO^Z' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
'
F g nameg request-cache-control C/RO_Z' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
$
F g nameg request-connection C0RO`Z' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-date C1ROaZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-pragma C2RObZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
!
F g nameg request-trailer C3ROcZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
+
F g nameg request-transfer-encoding C4ROdZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
!
F g nameg request-upgrade C5ROeZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-via C6ROfZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
!
F g nameg request-warning C7ROgZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg
request-allow C8ROhZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
*
F g nameg request-content-encoding C9ROiZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
*
F g nameg request-content-language C:ROjZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-content-length C;ROkZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-content-location CROnZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-content-type C?ROoZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-expires C@ROpZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-last-modified CAROqZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-accept CBROrZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
(
F g nameg request-accept-charset CCROsZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
)
F g nameg request-accept-encoding CDROtZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
)
F g nameg request-accept-language CEROuZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-authorization CFROvZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-expect CGROwZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-from CHROZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
F g nameg request-host CIROxZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
!
F g nameg request-if-match CJROyZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
"
F g nameg request-if-modified-since CKROzZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
#
F g nameg request-if-none-match CLRO{Z' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
$
F g nameg request-if-range CMRO|Z' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
%
F g nameg request-if-unmodified-since CNRO}Z' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
&
F g nameg request-max-forwards CORO~Z' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
'
F g nameg request-proxy-authorization CPROZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
(
F g nameg
request-range CQROZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
)
F g nameg request-referer CRROZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
*
* *
F g nameg
request-te CSROZ' hH - . , 3 # 4 & " 4 55 $ CC g request
F g default F g t 7 F g filenamef web/request.scm
+
F g nameg request-user-agent CTRZ%I h } - . , 3 # # & " 4 5 & " 45$ C4 5 $ " $ " 45 &
" 4
5
& " 45& " 45& " 456 u g r
g default-host
g default-port
g uri 8
g t c g host
g filenamef web/request.scm
.
! 1
8 1 = 2 Y 2 ] 5 c 5 w 6 | 7 8 9 8 4 ; < = > ? @
;
g nameg request-absolute-urig
documentation k A h e l p e r r o u t i n e t o d e t e r m i n e t h e a b s o l u t e U R I o f a r e q u e s t , u s i n g t h e
h o s t h e a d e r a n d t h e d e f a u l t h o s t a n d p o r t . CURC 1 g m
, g rtd
a g filenamef web/request.scm
4 x
'i
)r
)s
){ )
*
,a
3
6l
<
?$
@\
Dj
E
F
G
H
I
J
K
L
M
O
P-
Q2
R<
S?
TI
UP
VS
WY
Xk
Y
Z
[
\
]
^
_
` !
a "
b #
c $
d %
e &
f '
h (
i )
j *
k +
o .
6 o
C6 PK ! ˸S oop/goops.gonu [ GOOF----LE-8-2.0ؙ ] 4 hc ] g guile g define-module* g oop g goops g filenameS
f
oop/goops.scm g importsS g srfi
g srfi-1
g ice-9 g match g util g exportsS g define-class g class g standard-define-class g define-generic g define-accessor g
define-method g define-extended-generic g define-extended-generics !g method "g is-a? #g class-of $g ensure-metaclass %g ensure-metaclass-with-supers &g
make-class 'g make-generic (g ensure-generic )g make-extended-generic *g
make-accessor +g ensure-accessor ,g add-method! -g class-slot-ref .g class-slot-set! /g slot-unbound 0g slot-missing 1g slot-definition-name 2g slot-definition-options 3g slot-definition-allocation 4g slot-definition-getter 5g slot-definition-setter 6g slot-definition-accessor 7g slot-definition-init-value 8g slot-definition-init-form 9g slot-definition-init-thunk :g slot-definition-init-keyword ;g slot-init-function g compute-cpl ?g compute-std-cpl @g compute-get-n-set Ag
compute-slots Bg compute-getter-method Cg compute-setter-method Dg allocate-instance Eg
initialize Fg
make-instance Gg make Hg no-next-method Ig no-applicable-method Jg no-method Kg change-class Lg #update-instance-for-different-class Mg
shallow-clone Ng
deep-clone Og class-redefinition Pg
apply-generic Qg apply-method Rg
apply-methods Sg compute-applicable-methods Tg %compute-applicable-methods Ug method-more-specific? Vg sort-applicable-methods Wg class-subclasses Xg
class-methods Yg goops-error Zg
min-fixnum [g
max-fixnum \g instance? ]g slot-ref-using-class ^g slot-set-using-class! _g slot-bound-using-class? `g slot-exists-using-class? ag slot-ref bg slot-set! cg slot-bound? dg
class-name eg class-direct-supers fg class-direct-subclasses gg class-direct-methods hg class-direct-slots ig class-precedence-list jg class-slots kg generic-function-name lg generic-function-methods mg method-generic-function ng method-specializers og method-formals pg primitive-generic-generic qg enable-primitive-generic! rg method-procedure sg accessor-method-slot-definition tg slot-exists? ug find-method vg get-keyword w !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstGuv _ xg set-current-module yx zx {g current-module |g *goops-module* }g %init-goops-builtins ~g process-use-modules ~ ~ g language g tree-il g
primitives g selectS g add-interesting-primitive! g dispatch g make-procedure g compute-cmethod g error f no matching pattern g expt g scm-error g memq g assoc g g dsupersS g slotsS g nameS g gensym f metaclass g map g
append-map g for-each g member g append g keyword? f malformed keyword arguments: ~a g kw-do-map g make-unbound g or-map g g metaclassS g find-duplicate f 3make-class: super class ~S is duplicate in class ~S f ,make-class: slot ~S is duplicate in class ~S g make-syntax-transformer g macro g $sc-dispatch g _ g any g
syntax->datum g
datum->syntax f malformed superclass list: ~S g
take-while g find-tail g list g quote g init-formS g
init-thunkS g lambda g syntax-violation f -source expression failed to match any pattern g define-class-pre-definition g each-any nj Ȍ nj ʌ nj ̌ g
syntax-object g begin g top g ribcage g out f l-bdc1916-ed g x f l-bdc1916-d0 g hygiene g getterS g setterS g key g m-bdc1916-e3 f l-bdc1916-e4 g k g arg g rest f l-bdc1916-db f l-bdc1916-dc f l-bdc1916-dd f l-bdc1916-de g if g or g not g defined? " g g toplevel-define!
(
g accessorS g
+ g define-class-pre-definitions f l-bdc1916-f4 f l-bdc1916-f1 nj nj g slotname !g slotopt " ! #f
l-bdc1916-115 $f
l-bdc1916-116 %f
l-bdc1916-117 &f
l-bdc1916-118 '#$%& ("' )( *) +) ,g identifier? -g slot .- / 0f
l-bdc1916-10c 1f
l-bdc1916-10d 2f
l-bdc1916-10e 3012 4./3 54 65 7f l-bdc1916-fe 8f l-bdc1916-ff 9f
l-bdc1916-100 :789 ;./: <; =< >Ɍ ?g dummy @g name Ag supers B?@A- Cg
m-bdc1916-121 DC ED Ff
l-bdc1916-126 Gf
l-bdc1916-127 Hf
l-bdc1916-128 If
l-bdc1916-129 JFGHI KBEJ LD Mf
l-bdc1916-123 NM OLN PKO QP RP SP Tg and UTP VP WP X"P YP ZY [P \P ]iP ^OP _P `P a P b? cg
m-bdc1916-132 dc ed ff
l-bdc1916-137 gf
l-bdc1916-138 hfg ibeh jd kf
l-bdc1916-134 lk mjl nim on pf bad generic function name: ~S qg define r s tg prefixS ug
symbol-append vf no prefixes supplied wg xg make-setter-name yg setter zg {g extendsS |g }g extended-by! ~g extended-by g invalidate-method-cache! g delq! g not-extended-by! g procedure-with-setter? g defaultS g procedure g
procedure? g generic-capability? ?@ g
m-bdc1916-19d f
l-bdc1916-1a2 f
l-bdc1916-1a3 f
l-bdc1916-19f q g cond + " G g else g string->symbol g
string-append f setter: g symbol->string g upgrade-accessor g methods g extended-byS g extends g generic-function g module-define! g free-id g
m-bdc1916-1c5 f
l-bdc1916-1c7 y nj g args g body ?@ f
l-bdc1916-1ca f
l-bdc1916-1cb f
l-bdc1916-1cc f
l-bdc1916-1cd " + , y ! nj ، f
l-bdc1916-1d4 f
l-bdc1916-1d5 f
l-bdc1916-1d6 f
l-bdc1916-1d7 G , ! g free-identifier=? f
l-bdc1916-26f g compute-procedures g compute-make-procedure g ->proper g compute-procedure g find-free-id g
parse-args f
l-bdc1916-1e9 f
l-bdc1916-1e7 f
l-bdc1916-1e5 f
l-bdc1916-1e3 f
l-bdc1916-1e1 f
l-bdc1916-1df f
l-bdc1916-1de !
Ɍ
g reverse g lp g ls g formals g specializers f
l-bdc1916-1ed f
l-bdc1916-1ee f
l-bdc1916-1ef f
l-bdc1916-1f0 f
l-bdc1916-1ec g !g tail "! #f
l-bdc1916-212 $# %"$ &% ' & (g f )( * +f
l-bdc1916-20a ,f
l-bdc1916-20b -+, .)*- /. 0 / 1 2g next-method 3g id 43 5f
l-bdc1916-26b 65 746 8 9f
l-bdc1916-269 :f
l-bdc1916-26a ;9: <8*; =7< >= ?g formal @? Af
l-bdc1916-259 BA C@B D2 Ef
l-bdc1916-255 FE GDF H If
l-bdc1916-251 JI KHJ L2 Mf
l-bdc1916-24c Nf
l-bdc1916-24d Of
l-bdc1916-24e PMNO QL/P RCGKQ SR Tg real-next-method UTR VU Wg let XWR YR ZR [g null? \[R ]\Y ^g apply _^R `_UY a` bf
l-bdc1916-263 cb d@c e ff
l-bdc1916-25e gf heg idhGKQ ji kTi lk mWi ni oi p[i qpn r^i srkn ts uf
l-bdc1916-235 vu wev xg body0 yx zf
l-bdc1916-231 {z |y{ }f
l-bdc1916-22d ~f
l-bdc1916-22e }~ 8* w| f
l-bdc1916-287 f
l-bdc1916-288 * f
l-bdc1916-282 f
l-bdc1916-283 * g specializer f
l-bdc1916-27b f
l-bdc1916-27c * g body1 x f
l-bdc1916-272 f
l-bdc1916-273 f
l-bdc1916-274 / G g g specializersS g cons* g formalsS g bodyS g make-procedureS g procedureS g for-each* g direct-methods g add-method-in-classes! g delv! g remove-method-in-classes! g compute-new-list-of-methods g length* g method-n-specializers g fold g max g calculate-n-specialized g %invalidate-method-cache! g
n-specialized g gf g m b b g
*unspecified* g internal-add-method! g g proc q , 2 g g pg p , g obj f "~S is not a valid generic function Y g let* g spec g map* a d g src g procedure-source a g cadr g cddr g cons ! W T a g car g cdr g
allocationS g instanceS g
init-valueS g init-keywordS g assq g getters-n-setters g slot-definition g equal? g g-equal? g y g set-primitive-generic! g display
g number->string g object-address g display-address
g write g o g file f # g write-object # @ c f #< d ! "! #W" $# % &g meta '# (&' )( *c& +T* ,d& - , . / - . 0+/ 1W)0 21 3 4# 5&4 65 7c 8T*7 9k :@9 ;: < @ = < >@= ?W;> @f ( A @ Bg length Cl DBC E D Ff )> G F H -?AEG I8H JW6I KJ L& ML Nc OT*N P Qc Ra SQR TPS Un VTU W V X - W YOX ZWMY [Z \ ]\ ^g merge-generics _g `g ag module bg int1 cg val1 dg int2 eg val2 fg var gg val ha@bcdefg ig jg eq? kjce l k mg
make-variable nec o)n@ pmo qTlp rq sa@bcdef t uat veu w v xeu yex zbty {~ |ae{ }| ~} be{~ zf Tw g duplicate-handlers g merge-accessors ^a@bcdefg g slots g classS g
each-subclassS g class-slot-g-n-s g unbound? g c g s f !Slot `~S' is unbound in object ~S Y f Slot `~S' is unbound in class ~S Y f Unbound slot in object ~S Y f #No slot with name `~S' in object ~S Y f (No class slot with name `~S' in class ~S Y g value 0 f 0No next method when calling ~S
with arguments ~S Y f &No applicable method for ~S in call ~S 9 Y f No method defined for ~S Y g self g clone g %allocate-instance # j 1 - c- a- b- W \ N W b- W g old g new g remove-class-accessors! g g update-direct-method! g b W g set-car! g cpl a g direct-subclasses f b e b e g
%modify-class g update-direct-subclass! f g redefined b g %invalidate-class
g " a g delq1! a
b
W
g g loop g l n g pair? g eqv? ! " ! #" $W# %$ & 'e (h )d *# +&'()* ,O+ -, .g compute-slot-accessors /g g-n-s 0/ 1g
init-thunk 2/ 312 4/ 5/4 635 7 8/ 9g make-generic-bound-check-getter :/ ;9: <8; =g standard-get >=/ ?1> @g bound-check-get A@/ BA C<?B Dg slot-definitionS EG7CD/ FW6E GF H Ig standard-set JI/ K82J LGHKD/ MW6L NM Og assert-bound Pg num-standard-pre-cache Qg define-standard-accessor-method Rg cache Sg vector Tg
struct-ref Ug struct-set! Vg iota Wg n XW Yg < Zg
vector-ref [ZRW \g nfields ]g integer? ^f -Bad getter and setter for slot `~S' in ~S: ~S _f *Bad getter closure for slot `~S' in ~S: ~S `f *Bad setter closure for slot `~S' in ~S: ~S af /Class-allocated slots should not reserve fields bg thunk? cf &Bad init-thunk for slot `~S' in ~S: ~S dg compute-getters-n-setters e f?e gf hg filter ig
only-non-null jg merge-lists kg every lg reverse! mf *merge-lists: Inconsistent precedence graph ng top-sort og build-transitive-closure pg build-constraints qg std-tie-breaker rg compute-clos-cpl sf top-sort: Invalid constraints tf std-tie-breaker: Nothing valid u vg class-slot-init-value wv xg thunk y9 zxy {z |x }7 ~x|} W{~ qw g case 3 g already-allocated \ a g + b W 1 @ h 1 @ g make-closure-variable w i g r a @ ! W W W g virtualS g get g slot-refS 2 v g set g slot-set!S v T f 4You must supply a #:slot-ref and a #:slot-set! in ~S Y W f Allocation "~S" is unknown Y g %compute-slots g object g initargs g %initialize-object g dslots v v A g ??? v b g
direct-supers bA g direct-slots b b b > b b A b b
d b . W a b A g
%prep-layout! g %inherit-magic! A W
g initialize-object-procedure g g applicable-struct g generic g previous-definition v v @ " ^
!
b g set-procedure-property! @ @ W
g gws g %set-object-setter! v g eg v{ bt g dummy-procedure ! !g generic-functionS "v! #b!" $v %b!$ &v 'b!& (v )b!( * +v ,b!*+ - .v /b!-. 0#%'),/ 1g %modify-instance 2g change-object-class 3g old-instance 4g new-instance 534 64 7g new-class 837 9#3 :2397 ;: < =< >Ɍ ?g instance @D A?@ BA CE? DWBC? ED F[ GJ HFG IS JI KJ LV MRL NI OMN PWKO QHP Rg %%compute-applicable-methods ST TS U Vg targs W# XVW YX Zg sort [g m1 \g m2 ][\ ^U[\V _]^ `Z_ aWY` ba c# d# e[\V fg %method-more-specific? gf[\V hg ig
build-next ji k lrk m nim o^ln po qg r sg letrec tg next ug procs vu wg new-args xg a y[w zyw {xz |{ }[u ~Hx Qutx }~ W| w v t Qt s g system-procedure g list2set g mapappend g
%goops-loadedC 5 h" ]4
w5 4z > " G 4{i5 |R4}i> " G 4 > " G 4i#> " G 4 > " G aHm h e - 1 3 4L 5 6 ] g args
g filenamef
oop/goops.scm
q r " r
Cr hX ] $ ? 45 $ ( O " 45664 56 g methods
U g types U g w H g x H g make-procedure H g filenamef
oop/goops.scm
j
k m m , m m $ n , p 8 s B o H t I k
U g nameg compute-cmethod CR
4i 5ZR4i 5[RY h - 1 3 6 g
format-string
g args g filenamef
oop/goops.scm
~
0
g nameg goops-error CYRi h ]44 55$ CC g obj
g class g filenamef
oop/goops.scm
* g nameg is-a? C"RH G h@ ]4 M 5 $ C4 455 M N C g meta-supers
= g entry = g new . = g filenamef
oop/goops.scm
# / & . * 6 , . . . 5 ) 8 # : = C O %R h Z ] C R g x
g filenamef
oop/goops.scm
) Ci h c ]4 5C [ g m
g filenamef
oop/goops.scm
$ +
& C h8 ]4 L5$ "
4 M 5$ 4M 5N CC g meta
4 g filenamef
oop/goops.scm
" # , 5 . 0
4 C% hP $ ] ( C4 5 45 H4O > " G J( JCJ6 g supers
P g all-metas P g all-cpls P g needed-metas " P g filenamef
oop/goops.scm
" " % B F I P P g nameg ensure-metaclass C$RY hH
] ( C $ " 4 5 $ L 6 4L 5C g l
A g t ' g filenamef
oop/goops.scm
! ) # $ + / 3 6 7 < # ? @ A g nameg keywords C h ] ( C 4L 5C g l
g filenamef
oop/goops.scm
% + % g nameg args C h@ ]#O O Q Q 45 45 6 g mapper
; g f ; g kwargs ; g keywords ; g args ; g k & ; g a / ; g filenamef
oop/goops.scm
& ) / ; ; g nameg kw-do-map CRvi h g ]4 56 _ g class
g filenamef
oop/goops.scm
" * $ C$1YG h - 1 3 445 5 4 5$ " 4 5 45 $ " 4 5 4
54
4 55 $ 4
> " G " $ 4
> " G " @ g supers
g slots g options g name g supers 8 g t D \ g metaclass \ g tmp1 s g tmp2 s g filenamef
oop/goops.scm
+ & - 6 $ 8 8 ; D S \ _ f i s s } ~
g nameg
make-class C&R4Y h c ]4 5C [ g x
g filenamef
oop/goops.scm
,
' C& h0 ~ ] $ C C v g kw
* g arg * g filenamef
oop/goops.scm
" ) ' * C h0 ] $ 4 5C C g def
/ g filenamef
oop/goops.scm
$ / C hp - 1 3 $ " 4 > " G 4545 $ " 4
5C
g supers
i g slots i g t : L g slots L i g options L i g filenamef
oop/goops.scm
) 2 : I 0 L R Z c i
C h b ] 4 5 L 4?6Z g args
g v g filenamef
oop/goops.scm
C h( ` ] 4 5 $ O @ 6 X g y
' g tmp ' g filenamef
oop/goops.scm
' C5R4 h + ] C# g out
C h ]4 56 g k
g arg
g rest
g out
g filenamef
oop/goops.scm
C
h ] 4 5 $ " $ f4
5C$ f4
5CC g k
g arg g rest g out g key g filenamef
oop/goops.scm
C hP r ]4 5 " 4 5 $ @ 6$ 4?$ @""j g x
P g tmp P g tmp 1 g filenamef
oop/goops.scm
P C5R4 h + ] C# g out
C *+ h h ]4 5C ` g slotname
g slotopt g rest g out C, h x ] 6p g slot
g rest g out g filenamef
oop/goops.scm / C6 h O ]C G g slot
g rest g out C h ]4 56 y g slot
g rest
g out
g filenamef
oop/goops.scm ,
,
C= h O ]CG g slot
g rest g out C
h ]!4 5 $ @4 5 " N4 5 " 4 5 $ @ 6$ 4 ?$
@""$ 4 ?$ @"" g x
g tmp g tmp " g tmp 1 v g tmp @ W g filenamef
oop/goops.scm
' C5R4>QRSUVWXZ[\]^_`a h j ]
4 5
4 5 Cb g dummy
g name g supers g slot C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef
oop/goops.scm
6
" g
macro-typeg syntax-rulesg patternsg nameg supersg slotg ... C5R4o h > ]C6 g dummy
g arg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef
oop/goops.scm
@
" g
macro-typeg syntax-rulesg patternsg argg ... C5R4 YpqT"rG(s hx ] $ " 4 > " G
C g name
x g filenamef
oop/goops.scm
J
K K L L L # M x C h b ] 4 5 L 4?6Z g args
g v g filenamef
oop/goops.scm J
C h( ` ] 4 5 $ O @ 6 X g y
' g tmp ' g filenamef
oop/goops.scm
J
' C5 R4 Ypq) h8 ] $ " 4 > " G C g name
7 g val 7 g filenamef
oop/goops.scm
R
S S T T T # U 7 C h b ] 4 5 L 4?6Z g args
g v g filenamef
oop/goops.scm R
C h( ` ] 4 5 $ O @ 6 X g y
' g tmp ' g filenamef
oop/goops.scm
R
' C5 R4 vt u h _ ] L 6 W g prefix
g filenamef
oop/goops.scm
] $
^ &
C h o ] 4 O L 5 C g g name
g filenamef
oop/goops.scm
[ \ ] \ CYv h8 - 1 3 45 $ 4O 5C6 g names
3 g args 3 g prefixes 3 g filenamef
oop/goops.scm
W
X X Y Z [
, Z 1 a 3 a
3
C h b ] 4 5 L 4?6Z g args
g v g filenamef
oop/goops.scm W
C h( ` ] 4 5 $ O @ 6 X g y
' g tmp ' g filenamef
oop/goops.scm
W
' C5 RG h v - . , 3 # 6 n g name
g filenamef
oop/goops.scm
c
d
g nameg make-generic C'R"w h [ ] 6 S g gf
g filenamef
oop/goops.scm
h
h !
Cx"w(y h( ]4 5$ 44 5L 5 CC g gf
# g filenamef
oop/goops.scm
l ' m - m ) n 3 n C n 3 n - " p - # CGz{|}y h - . , 3 # $ " 45 $ n$ 45" 4O 5 4
4 55 4 4
5> " G " 4 5 4 > " G C g gfs
g name g gfs ' g gws? 2 g sname L g setters \ g es ~ g ans g filenamef
oop/goops.scm
f
g g ' g " ' g * h 2 g : i @ j ! A j + L j O l \ j _ r n u ) ~ r ~ j x x + x z i } g nameg make-extended-generic C)Rb~a h ] L 4 56 g gf
g filenamef
oop/goops.scm
" / " C h( ]4O > " G 6 g gfs
! g eg ! g filenamef
oop/goops.scm
! ! g nameg extended-by! C}Rb~a h ] 4L 4 556 g gf
g filenamef
oop/goops.scm
# 0 # C h( ]4O > " G 6 g gfs
! g eg ! g filenamef
oop/goops.scm
! ! g nameg not-extended-by! CR"Gwy
h - . , 3 # 4 5$ C4 5$ 4 5 4
564 5$ 4 5$ C 66 g old-definition
} g name } g filenamef
oop/goops.scm
" & 0 ; D L M W X
b s
} } g nameg ensure-generic C(R4 h` ? ]
C 7 g dummy
_ g name _ _ C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef
oop/goops.scm
" g
macro-typeg syntax-rulesg patternsg name C5 R h ]44 556 g name
g filenamef
oop/goops.scm
!
+ g nameg make-setter-name CxRGx h@ - . , 3 # 4 $ 4 5" 56 g name
< g filenamef
oop/goops.scm
, - :
< <
g nameg
make-accessor C*R"wy'G(+* h - . , 3 # " 4 5$
4 564 5$
4564 5$ #
4 5
44 5564 5$ -4 5$ 4
5" 4 5664 5$ 44 55$ C":"6 g proc
g name g filenamef
oop/goops.scm
& + 3 4 @ E M N X c l o $ y { | g nameg ensure-accessor C+RaG"|zk~b}b h h ] L 6 ` g method
g filenamef
oop/goops.scm
" C h ]4 544 5$ " 4 5
4 5 5 4 5$ P4
5 4 > " G 4
> " G 4> " G " 4O > " G 4> " G 4> " G C g generic
g setter g methods = g gws = g gfs W g filenamef
oop/goops.scm
#
& / ! 5 3 7 ! =
= B N O U % W W Z
n
t {
g nameg upgrade-accessor CR{ h ]45 6 g name
g val g filenamef
oop/goops.scm
g nameg toplevel-define! C R4 hx c ]
C [ g dummy
q g name q g args q g body q q C
hX c ]
C [ g dummy
U g name U g args U g body U U C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef
oop/goops.scm
9 g
macro-typeg syntax-rulesg patternsg setterg name g argsg bodyg ... g nameg argsg bodyg ... C5 R4!h ]
4L L5 $ CL L6 z g x
g y g t g filenamef
oop/goops.scm
C, h R ] 6J g x
g filenamef
oop/goops.scm C h | ] 4 L 5 4 5$ CC t g x
g id g filenamef
oop/goops.scm C h@ ]4 5 $
L O @ 4?$ O @C g exp
? g referent ? g tmp ? g tmp % ? g filenamef
oop/goops.scm
? g nameg find-free-id C h , ] C $ g args
C
h f ] 4L54L 5 C ^ g filenamef
oop/goops.scm
C, h U ] 6M g tail
g filenamef
oop/goops.scm C' h ]44L5 54L 5 C g tail
g filenamef
oop/goops.scm C, h d ] 6\ g f
g rest g filenamef
oop/goops.scm C0 h v ]L LL 6 n g f
g rest g filenamef
oop/goops.scm C, h ]4 5$ 6C } g f
g s g rest g filenamef
oop/goops.scm
" C h ]L LL 6 } g f
g s g rest g filenamef
oop/goops.scm C
h ]#4 5 " |4 5 " E4 5 $
O @ 4?$
O @ 6$ 4 ?$
L O @""$ 4 ?$ L O @"`"\ g ls
g formals g specializers g tmp g tmp g tmp ( e g tmp B e g filenamef
oop/goops.scm
g nameg lp C12>SVXYZ]Ua h8 . ] L L C & g formal
4 4 C h k ]L L 6 c g x
g xs
g filenamef
oop/goops.scm $
C h B ] L 6: g filenamef
oop/goops.scm
C hH ]4 5 $
L O @4 5 $ O @ 6 g ls
D g out D g tmp D g tmp ( D g filenamef
oop/goops.scm
B $ D D g nameg lp Cjlmnoqrkt
h8 . ]LL L C & g formal
7 7 C hh ]4L 5 $
L O @O Q 4L 5 45 $ L L O @6 g body
c g tmp c g lp ( 8 g tmp 8 c g tmp C c g filenamef
oop/goops.scm ( 3 5 8 . c C h - ]L C % g body0
C
h0 M ]LL L L C E g procedure
. g make-procedure . . C h l ]"L L 4L5 $ <45 $ 4 O ?"
45 " ;" 645 $ 4 O ?"
45 " G 4 5 $
L L O @6d g formals
g specializer g body g id g tmp % L g tmp _ g procedure g make-procedure g tmp g tmp
g filenamef
oop/goops.scm I
; ; # ; ; < R > @ G K
C hH ]O Q 4 5 45 $ L O @6 g args
F g body0 F g body1 F g lp
g tmp F g tmp & F g filenamef
oop/goops.scm
" 5 F F C hP ]O Q 4 5 $ @4 5 $ O @ 6 g x
K g find-free-id
K g tmp K g tmp / K g filenamef
oop/goops.scm
K C5!Rgb h( ] 4 5 4L 5$ C L 6 g x
' g dm ' g filenamef
oop/goops.scm
Z
[ [ \ \ ] " % ] 2 ' ] ' Cn h ] O 4 56 } g m
g filenamef
oop/goops.scm
X
^
Z g nameg add-method-in-classes! CRbg h ~ ] 4L 4 556v g x
g filenamef
oop/goops.scm
b
d e e # e c Cn h ] O 4 56 g m
g filenamef
oop/goops.scm
`
f
b g nameg remove-method-in-classes! CRna hh x ]454 5 " ?( C45$ 4> " G C " " p g gf
a g new a g new-spec a g methods a g l Y g filenamef
oop/goops.scm
h
i
j j j i k l % m
' n , n + . n 1 n 5 n
6 q ; q + @ q M r S t Y t Y k a g nameg compute-new-list-of-methods CRa h ]4 56 g m
g filenamef
oop/goops.scm
v
w w
w w g nameg method-n-specializers CR h r ]4 56 j g m
g n g filenamef
oop/goops.scm
z z z Cl h ]
4 56 g gf
g filenamef
oop/goops.scm
y
| z g nameg calculate-n-specialized CRb h [ ] 6S g gf
g filenamef
oop/goops.scm
Ca~ h@ ]4 > " G 4 4 5> " G 4 56 g gf
> g filenamef
oop/goops.scm
~
' 4 : < > > g nameg invalidate-method-cache! CR4Giiii b h` ]4 > " G 4 4 5> " G 4 > " G 4> " G C g gf
[ g m [ g filenamef
oop/goops.scm
- 6 H [ C5 R" $4(i4i,5$ ,i" ,5" B4i,5$ 04"i,ii5$ 4Gii,5" "" ",R44rii5,ii> " G 4i,5 $ " ,i $ )4 i,4Gii,5> " G " 4,i,i4Giiii q, h0 ]4 5$ 4 > " G 6L 6 g proc
/ g m / g filenamef
oop/goops.scm
' /
/ C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G 4i,5 $ " ,i $ )4 i,4Gii,5> " G " 4,i,i4Giiii ,p h r ]4 56 j g pg
g m g filenamef
oop/goops.scm
C5 > " G 4i,5 $ " ,i $ )4 i,4Gii,5> " G " 4,i,i4Gii ii Y h s ] 6 k g obj
g m
g filenamef
oop/goops.scm
C5 > " G 4i=5 $ " =i $ )4 i=4Gii=5> " G " 4,i=i4Giii da! hP J ]!44 55 44 55 $ 45CC B g m
J g spec J g src " J g args 2 H g body 2 H g filenamef
oop/goops.scm
, , " " * - 1 2 8 9 F G J C5 > " G 4io5 $ " oi $ )4 io4Giio5> " G " 4,ioi4Giii a h b ] 6 Z g m
g filenamef
oop/goops.scm
C5 > " G i1Ri2Rv h ] 6 g s
g filenamef
oop/goops.scm
g nameg slot-definition-allocation C3Rv h ] 6 } g s
g filenamef
oop/goops.scm
g nameg slot-definition-getter C4Rv h ] 6 } g s
g filenamef
oop/goops.scm
g nameg slot-definition-setter C5Rv h ] 6 g s
g filenamef
oop/goops.scm
g nameg slot-definition-accessor C6Rv h ] 45 6 g s
g filenamef
oop/goops.scm
$ g nameg slot-definition-init-value C7Rv h ] 45 6 g s
g filenamef
oop/goops.scm
# g nameg slot-definition-init-form C8Rv h ] 6 g s
g filenamef
oop/goops.scm
g nameg slot-definition-init-thunk C9Rv h ] 6 g s
g filenamef
oop/goops.scm
g nameg slot-definition-init-keyword C:Rj h ]4 56 g class
g slot-name g filenamef
oop/goops.scm
g nameg class-slot-definition C " G 4iii> " G
h ]44 5 56 g o
g file g filenamef
oop/goops.scm
g nameg display-address C R4i
5 $ "
i $ +4 i
4Gii
5> " G " 4,i
i4Gii i i h8 ]4> " G 4 > " G >6 g o
2 g file 2 g filenamef
oop/goops.scm
2 2 C5 > " G 4pi
i5R4i
5 $ "
i $ +4 i
4Gii
5> " G " 4,i
i4Giii i $c@ d h ]
45$ ]4> " G 445> " G 4 > " G 4 > " G >6L 6 g o
y g file y g class y g filenamef
oop/goops.scm
)
, 9
B
V
q
y
y C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G 4i
5 $ "
i $ +4 i
4Gii
5> " G " 4,i
i4Giii i %2c@ d h V ]
4 5$ 45$ 4> " G 445> " G 4 > " G 44 5> " G 4 > " G 4 > " G >6L 6L 6 N g class
g file g meta g filenamef
oop/goops.scm
!
"
& -
6
9 F
O
c
f s
|
C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G 4i
5 $ "
i $ +4 i
4Gii
5> " G " 4,i
i4Giii i 3Kc@ dk@BlF h ] 45$ 4 5$ 4> " G 445> " G 4 5 $ ,4 > " G 4> " G " 4> " G 44 4
55> " G 6L 6L 6 g gf
g file g meta g name U g filenamef
oop/goops.scm
! "
& -
6
9 F
O U
] ! ^ # r $ %
% %
&
& & & &
' '
" C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G 4i
5 $ "
i $ +4 i
4Gii
5> " G " 4,i
i4Giii i [c@ dc@a h ]4 5$ 6 C g spec
g filenamef
oop/goops.scm
2 3 3 1 3 3 4 . 4 Cn h e ]
45$ 4 5$ 4> " G 445> " G 4 > " G 444 55> " G 4 > " G 4
> " G >6L 6L 6 ] g o
g file g meta g filenamef
oop/goops.scm
*
+ + ,
, ,
, -
- -
! , " /
& / - /
6 0
9 0 F 0
O 1
c 2
f 2 k 6 s 2 z 2
8
9
:
*
C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
*
C5 > " G 4i 5 $ " i $ +4 i 4Gii 5> " G " 4,i i4Gii i i ] h k ] 6 c g o
g file
g filenamef
oop/goops.scm
>
?
C5 > " G 4i^5 $ " ^i $ +4 i^4Gii^5> " G " 4,i^i4Gii_i`i_i i_i i i i hs h , 3 C g module
g name g int1 g val1 g int2 g val2 g var g val g filenamef
oop/goops.scm
E
C5 > " G 4i^5 $ " ^i $ +4 i^4Gii^5> " G " 4,i^i4Gii_i`i_ii_ii iii hrm) h( , 3 & C4 56 g module
" g name " g int1 " g val1 " g int2 " g val2 " g var " g val " g filenamef
oop/goops.scm
O
W X X - X " X " C5 > " G 4i^5 $ " ^i $ +4 i^4Gii^5> " G " 4,i^i4Gii_i`i_ii_ii i|i sab~ h , 3 4455$ C44455> " G 44455> " G 4> " G C g module
g name g int1 g val1 g int2 g val2 g var g gf g filenamef
oop/goops.scm
Z
b b b $ b b b d # e & f + f + 1 f 8 3 f + 5 f 6 f ; d D g J h M i R i ' X i 6 Z i ' \ i ] i b g k j C5 > " G 4ii^^i> " G 4i5 $ " i $ +4 i4Gii5> " G " 4,ii4Gii_i`i_i i_i i i i hsh , 3 C g module
g name g int1 g val1 g int2 g val2 g var g val g filenamef
oop/goops.scm
o
C5 > " G 4i5 $ " i $ +4 i4Gii5> " G " 4,ii4Gii_i`i_ii_ii i i h^ h , 3 6 g module
g name g int1 g val1 g int2 g val2 g var g val g filenamef
oop/goops.scm
y
C5 > " G 4iii> " G a03 hp u ]44 55 44 55 $ " 4 5 4455$ " 4 > " G C m g class
o g slot-name o g this-slot o g t $ > g g-n-s @ o g filenamef
oop/goops.scm
$ 4 $ * : " * $ $ 3 ? @ C
F P
T Y o g nameg class-slot-g-n-s CR/ h( ]
44 55 45$ 6C g class
( g slot ( g x ( g filenamef
oop/goops.scm
%
( g nameg class-slot-ref C-R h ]4 56 g class
g slot g value g filenamef
oop/goops.scm
g nameg class-slot-set! C.R4i/5 $ " /i $ )4 i/4Gii/5> " G " 4,i/i4Giiii i Y h ]6 x g c
g o g s g filenamef
oop/goops.scm
C5 > " G 4i/5 $ " /i $ )4 i/4Gii/5> " G " 4,i/i4Giii i Y h q ] 6 i g c
g s g filenamef
oop/goops.scm
C5 > " G 4i/5 $ " /i $ )4 i/4Gii/5> " G " 4,i/i4Giii Y h b ] 6 Z g o
g filenamef
oop/goops.scm
C5 > " G 4i05 $ " 0i $ )4 i04Gii05> " G " 4,i0i4Giiii i Y h ]6 x g c
g o g s g filenamef
oop/goops.scm
C5 > " G 4i05 $ " 0i $ )4 i04Gii05> " G " 4,i0i4Giii i Y h q ] 6 i g c
g s g filenamef
oop/goops.scm
C5 > " G 4i05 $ " 0i $ )4 i04Gii05> " G " 4,i0i4Giiii i i 0 h ] 6 g c
g o g s g value g filenamef
oop/goops.scm
C5 > " G 4iH5 $ " Hi $ )4 iH4GiiH5> " G " 4,iHi4Giii i Y h u ] 6 m g gf
g args g filenamef
oop/goops.scm
C5 > " G 4iI5 $ " Ii $ )4 iI4GiiI5> " G " 4,iIi4Giii i Yk h ] 4 56 g gf
g args g filenamef
oop/goops.scm
C5 > " G 4iJ5 $ " Ji $ )4 iJ4GiiJ5> " G " 4,iJi4Giii i Y h u ] 6 m g gf
g args
g filenamef
oop/goops.scm
C5 > " G 4iM5 $ " Mi $ )4 iM4GiiM5> " G " 4,iMi4Giii 1jcba h( x ]4L 5$ L 4L 56C p g slot
" g filenamef
oop/goops.scm
* " C h@ ]4 544 55 4 O > " G C g self
< g clone < g slots < g filenamef
oop/goops.scm
# 3 !
< C5 > " G 4iN5 $ " Ni $ )4 iN4GiiN5> " G " 4,iNi4Giii 1jcba\N h@ ] 4L 5$ .L 4L 5 45$ 45" 6C g slot
? g value ; g filenamef
oop/goops.scm
, ! % + ! , % =
? C h@ ]4 544 55 4 O > " G C g self
< g clone < g slots < g filenamef
oop/goops.scm
# 3 !
< C5 > " G 4iO5 $ " Oi $ )4 iO4GiiO5> " G " 4,iOi4Giiii g h Z ] LL 6 R g m
g filenamef
oop/goops.scm
Cbabf h ~ ] 4L 4 556v g c
g filenamef
oop/goops.scm
% # . # Cebf h ] L 4L4 556 g c
g filenamef
oop/goops.scm
# . # C h Z ] LL 6 R g c
g filenamef
oop/goops.scm
Cf h ]
4 > " G 45 4 O > " G 444 55> " G 4 5 4
O 4 5> " G 4 O 4 5> " G 4
> " G 4 O 45> " G 4 > " G 4> " G C z g old
g new g methods ] g filenamef
oop/goops.scm
9 ? @ E M R ^ d f i j t C5 > " G 4i5 $ " i $ +4 i4Gii5> " G " 4,ii4Giii "ab
hX ] 4 5$ G4 5 44 455> " G 4> " G 6C g m
X g gf V g filenamef
oop/goops.scm
( ! " " ! ' ! ) - ! 6 / ! ) 1 ! 6 ? " V $ X Cg h b ]4 56 Z g c
g filenamef
oop/goops.scm
% C5 > " G 4i5 $ " i $ +4 i4Gii5> " G " 4,ii4Giiiii %n h8 ] " %$ $ " "C4 5 " g m
8 g old 8 g new 8 g l + g filenamef
oop/goops.scm
+
. 1
1 3 3 3
4 # 5 ) 5
+ . , . 8 . 8 C5 > " G 4i5 $ " i $ +4 i4Gii5> " G " 4,ii4Giiiii &-O&ehd h0 ] 44 54 54 5 56 g c
) g old ) g new ) g filenamef
oop/goops.scm
;
?
? " @ " A ) % B . ' ? ) > ) C5 > " G 456,BCy h i ]4 54 54 5 $ 44L 5> " G " $ 44L 5> " G " $ /44L 5> " G 454L 56C a g s
g g-n-s g getter-function g setter-function g accessor g filenamef
oop/goops.scm
L M
N O M # P
$ Q ) R 6 Q H S
I T N U [ T m V
n X s Y X Z [ Z Ca h ] O 4 56 g class
g slots g filenamef
oop/goops.scm
J
\ \ \ K g nameg compute-slot-accessors C.R4iB5 $ " Bi $ )4 iB4GiiB5> " G " 4,iBi4Giii i 0GG9=@D hP ] $ 45" $ 45" 456 g class
L g g-n-s L g
init-thunk
L g g-n-s
L g filenamef
oop/goops.scm
^
_ `
_ b c " c # d ( d > * d 4 c 5 f @ h L a L C5 > " G 4iC5 $ " Ci $ )4 iC4GiiC5> " G " 4,iCi4Giii i 0NG ID h8 ]
$ " 456 g class
8 g g-n-s 8 g g-n-s 8 g filenamef
oop/goops.scm
k
m l l o p # p & q , r 8 n 8 C5 > " G O h c ]4L 5 6 [ g o
g filenamef
oop/goops.scm
v v v C h ] O C w g proc
g filenamef
oop/goops.scm
u
g nameg make-generic-bound-check-getter C9R PR4QqWRSTU hH ] $ : &
L C & L CL 6 C g form
F g filenamef
oop/goops.scm
" $ ( + . 4 . : C F g nameg
body-trans C h( ] O Q L4L 5C g x
" g
body-trans " g filenamef
oop/goops.scm
" g nameg make-one CVPXYW[ hx - 1 3 4O 455
C g form
t g body t g name t g n-var t g args t g filenamef
oop/goops.scm
~
& 2 , : ; t
C h b ] 4 5 L 4?6Z g args
g v g filenamef
oop/goops.scm ~
C h( ` ] 4 5 $ O @ 6 X g y
' g tmp ' g filenamef
oop/goops.scm
~
' C5QR/ h 7 ]
45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ]
45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ]
45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C/ h 7 ] 45$ 6C / g o
g x C / h ] L 45$ 6C | g o
g x g filenamef
oop/goops.scm
C h ) ] $ L C O C ! g n
C O @R h ) ]
C ! g o
C h ) ] C ! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ]
C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ]
C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h ) ] C! g o
C h R ] L CJ g o
g filenamef
oop/goops.scm C h ) ] $ L C O C ! g n
C O =R h 8 ]
C 0 g o
g v C h 8 ] C 0 g o
g v C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ]
C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ]
C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h 8 ] C 0 g o
g v
C h a ] L C Y g o
g v
g filenamef
oop/goops.scm
C h ) ] $ L C O C ! g n
C O IRa\@1]Y^B_`3a9bc7 h A ] L C 9 g filenamef
oop/goops.scm
C h ]94L 5 4L 5 4L 5 4 5 45 $ " " 4L > " G " $ y45 $ c 4 5$ " 4
L > " G 4 5$ " 4 L > " G " "h" "` 4 5
$ " $ A" 4> " &G "
$ $ " "" "C4 5 $ "45$ "
4L 5" $ " #4 5 45$ " O 45 $ "
$ " 4 5C g s
g index g g-n-s g size $ g name - g t 6 g get ~ g set ~ g key g thunk S g t g init g t
g filenamef
oop/goops.scm
' ) ! $ $ ' - 0 6 G K V b e i j " s w z } ~
# & + . ( 2 H I M S [
\ f m q y
" " , I C h ] O 6 g class
g slots g filenamef
oop/goops.scm
g nameg compute-getters-n-setters CdR4i>5 $ " >i $ )4 i>4Gii>5> " G " 4,i>i4Giii eg?e h ] ] 6 U g class
g filenamef
oop/goops.scm
C5 > " G h h c ] C [ g l
g filenamef
oop/goops.scm
C h u ] 6 m g lst
g filenamef
oop/goops.scm
g nameg
only-non-null CiRjii h0 ]
4 5 4445 556 g c
, g get-direct-supers , g c-direct-supers , g filenamef
oop/goops.scm
( & ( ( * , , g nameg compute-std-cpl C?Rk[l h c ]L 6 [ g l
g filenamef
oop/goops.scm
' 1 ) C h( ] ( C 4O L 5$ CC g l
& g c
& g filenamef
oop/goops.scm
,
! " ! & g nameg
candidate-car CYmji h ] L & C C | g l
g filenamef
oop/goops.scm
$ g nameg remove-next C h` " ]
45$ 64O 5 $ " 4> " G 4 4
O 556 g reversed-partial-result
] g inputs ] g next # ] g filenamef
oop/goops.scm
# + 0
4 9
H I L $ [ ] ] g nameg merge-lists CjRnopq h( ]445 5445 5456 g c
% g get-direct-supers % g filenamef
oop/goops.scm
#
$ $
$ % %
% & % $
% g nameg compute-clos-cpl CrRhk h ] L $ C L6 g
constraint
g t
g filenamef
oop/goops.scm
2 3 ) 3 $
3
3 4 % 4 C h Z ] LO L 6 R g x
g filenamef
oop/goops.scm
1 2 CYs h c ] L C [ g x
g filenamef
oop/goops.scm
> > * > % C h ]+" f( C4O 5 ( 6( " 45 4O 54 5 " " g elements
{ g constraints { g tie-breaker { g elements l g constraints l g result l g
can-go-in-now l g choice D l g filenamef
oop/goops.scm
)
* - 0 / ' 7
+ 8 - 8 0 9 ' 4 9 7 : < ; D 9 G > W A ` A b A l = l * q , { * { g nameg top-sort CnRh h Z ] L 6 R g x
g filenamef
oop/goops.scm
H
I &
CYt hX h ]"" > 4L 5 4O 5 ( ( 6 "C4 5 " ` g partial-cpl
Q g min-elts Q g pcpl D g current-elt D g ds-of-ce D g common " D g filenamef
oop/goops.scm
D E F F G G H " H
* K - L 1 L 5 M ! 7 M : N @ N C O D E E E Q E Q C h u ] O C m g
get-supers
g filenamef
oop/goops.scm
C
g nameg std-tie-breaker CqR hX - ]" D( C 45$
"44L 55 " "% g x
X g result J g pending J g next J g filenamef
oop/goops.scm
S T V X X
Y ! Y & Z . Z 3 [ 4 \ 7 \ @ ] B \ J [ J T K T P U X T X C h ] O C z g get-follow-ons
g filenamef
oop/goops.scm
R
g nameg build-transitive-closure CoRo hx ]" S( " $ $( C4L 5 " "44L 5 5 " { g x
q g elements Y g this-one Y g result Y g filenamef
oop/goops.scm
` a d
d d & d d e
% g ( h ) i . i * 0 i 1 h = g B l E m H m + L m O m Y k
Y a Z a [ a e a f b g c q a q C h { ] O C s g get-follow-ons
g filenamef
oop/goops.scm
_
g nameg build-constraints CpR4i@5 $ " @i $ )4 i@4Gii@5> " G " 4,i@i4Giii i u3a\b1h97iv2Y hp ]"45 $ %4 5 4 > " G C$ 45 44 4
555$ ( 4 5 $ 45 " 4
5 6" '4455 $ C "4 5 "$ ( 4 5 $ 45 " 4
5 6$ f44554455 $ "$ " 4> " G " 4> " G CL 6 g class
m g s m g key m g already-allocated 9 g name I g thunk o g l g r g thunk g get e g set e g filenamef
oop/goops.scm
r
y y | | . | | } & } ) } ! . } B y C I L Q V 0 ^ ` d i t o t w u x v
w
" , 4 "
y t t u v
w
y ) ) ' - 2 6 = N U d m r
C m C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
r
C5 > " G h Q ]M C I g o
g filenamef
oop/goops.scm
C h i ]N Ca g o
g v g filenamef
oop/goops.scm
C h ]HO O C g class
g value g filenamef
oop/goops.scm
g nameg make-closure-variable CR4i@5 $ " @i $ )4 i@4Gii@5> " G " 4,i@i4Giii i Y3 h z ]456 r g o
g s g filenamef
oop/goops.scm
. C5 > " G 4iA5 $ " Ai $ )4 iA4GiiA5> " G " 4,iAi4Giii e h ] ] 6U g class
g filenamef
oop/goops.scm
C5 > " G 4iE5 $ " Ei $ )4 iE4GiiE5> " G " 4,iEi4Giii i h t ] 6 l g object
g initargs
g filenamef
oop/goops.scm
C5 > " G 4iE5 $ " Ei $ )4 iE4GiiE5> " G " 4,iEi4Giii i vb@>A\d.ba h ] L 4 56 g x
g filenamef
oop/goops.scm
' 3 ' C hp ]4L > " G 4545 4 45> " G 4 > " G 4 > " G 4
> " G 4 > " G 4 4
5> " G 4 > " G 4 5 4 > " G 4
> " G 4 4 5> " G 4 > " G 4 O > " G 4 > " G 6 g class
n g initargs n g dslots * n g supers * n g slots ; g filenamef
oop/goops.scm
. ! ( 3 * * / 5 6 ( > E @ ( E N T [ d j q z ( ( ( * % < U n 4 n C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G vb h8 ]
45 $ $
@ 6C g object
1 g initargs 1 g proc 1 g filenamef
oop/goops.scm
! # % + / 0 1 g nameg initialize-object-procedure CR4iE5 $ " Ei $ )4 iE4GiiE5> " G " 4,iEi4Giii i h ]4L > " G 6 w g applicable-struct
g initargs g filenamef
oop/goops.scm
C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G 4iE5 $ " Ei $ )4 iE4GiiE5> " G " 4,iEi4Giii i vb"G h _ - 1 3 L @ W g args
g filenamef
oop/goops.scm
* ,
C@ h , ]4545 4L > " G 4 45$ &4
O 5 " > " G $
6C$ g generic
g initargs g previous-definition g name g filenamef
oop/goops.scm
/ 5 6 $ B C * d $ i $ n | ) C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G 4iE5 $ " Ei $ )4 iE4GiiE5> " G " 4,iEi4Giiwi i v h( z ]4L > " G 456 r g gws
& g initargs & g filenamef
oop/goops.scm
& & C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G 4iE5 $ " Ei $ )4 iE4GiiE5> " G " 4,iEi4Gii|i i bv{ h( ]4L > " G 456 g eg
( g initargs ( g filenamef
oop/goops.scm
$ 9 & ( ( C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G h r - 1 3 C j g args
g filenamef
oop/goops.scm
g nameg dummy-procedure C R4iE5 $ " Ei $ )4 iE4GiiE5> " G " 4,iEi4Giii i 0bv! h ~ ]4L > " G 4 45> " G 4 45> " G 4 45> " G 4 4
5> " G 4 4 5> " G
456 v g method
g initargs g filenamef
oop/goops.scm
& , 5 ; < " C G E " J S Y Z
h q w x = 7 $ C h _ ] O C W g real-next-method
g filenamef
oop/goops.scm
C5 > " G D;^`3<_] h ] " "4L 5 $ L L 45 6C4LL 5$ @44L 55& (4LL 5$ L L 4LL 56""" g slot
{ g init ( g filenamef
oop/goops.scm
& ( ) 7 8 ; E K L Z c o
{ C1j1L hh & ] 45 4 O 4455> " G 4 > " G 4 > " G C g old-instance
b g old-class b g new-class b g new-instance
b g filenamef
oop/goops.scm
3
" ( * / 8 L
b g nameg change-object-class C2R4iL5 $ " Li $ )4 iL4GiiL5> " G " 4,iLi4Giiii 56 h u ]C m g old-instance
g new-instance g filenamef
oop/goops.scm
C5 > " G 4iK5 $ " Ki $ )4 iK4GiiK5> " G " 4,iKi4Giiii 8;2 h ] 6 | g old-instance
g new-class
g filenamef
oop/goops.scm
%
& $
&
C5 > " G 4iD5 $ " Di $ )4 iD4GiiD5> " G " 4,iDi4Giii i = h s ] 6 k g class
g initargs
g filenamef
oop/goops.scm
.
/
C5 > " G 4iF5 $ " Fi $ )4 iF4GiiF5> " G " 4,iFi4Giii i>EDE h0 - 1 3 4 5 4> " G C g class
+ g initargs + g instance + g filenamef
oop/goops.scm
1
2 2 3 +
C5 > " G FiGR4iP5 $ " Pi $ )4 iP4GiiP5> " G " 4,iPi4Giii i QaJSRVI hX ]
4 5( 4 > " G " 4 5 $ 4 56 6 g gf
S g args S g methods 0 S g filenamef
oop/goops.scm
F
G
G G
G H ( I 0 I 8 J = K K K S L
S C5 > " G 4GiiS5RR4iR5 $ " Ri $ +4 iR4GiiR5> " G " 4,iRi4Giii i TT h l ] 6 d g gf
g args
g filenamef
oop/goops.scm
S
T
C5 > " G RiSi 4iV5 $ " Vi $ )4 iV4GiiV5> " G " 4,iVi4Giii i i UbdZU h k ] L 6 c g m1
g m2 g filenamef
oop/goops.scm
Z Z " C h ] 45 O 6 g gf
g methods g args g targs g filenamef
oop/goops.scm
X
Y Y Z C5 > " G 4iU5 $ " Ui $ )4 iU4GiiU5> " G " 4,iUi4Giiii i ehf h } ] 6 u g m1
g m2 g targs g filenamef
oop/goops.scm
\
] C5 > " G 4iQ5 $ " Qi $ )4 iQ4GiiQ5> " G " 4,iQi4Giii i i i jpr h ]4545@ g gf
g methods g
build-next g args g filenamef
oop/goops.scm
_
` `
` a a a ` C5 > " G 4iR5 $ " Ri $ )4 iR4GiiR5> " G " 4,iRi4Giiiqi i rHQ h@ - 1 3 L( L ( L" 6LLL ( L" 6 g new-args
; g filenamef
oop/goops.scm
f h g # i 1 g ; j ;
C h x ]L L O Cp g procs
g args g filenamef
oop/goops.scm
e g nameg next CQ h ] O Q 6 g gf
g l g args g next g filenamef
oop/goops.scm
d
e k C5 > " G 4i h f ] 6 ^ g proc
g filenamef
oop/goops.scm
n
o * o C/i0iHiIiJi > " G hH ]" 5( C45$
" " " g l
F g l ; g res ; g filenamef
oop/goops.scm
* - 0 3 ; ; > F F g nameg list2set CRf h ] 4L 4 55C g c
g filenamef
oop/goops.scm
) g nameg allsubs Cf h( ] O Q 44 556 g c
! g allsubs
! g filenamef
oop/goops.scm
) ! ! g nameg class-subclasses CWRgW h ]4 4 556 g c
g filenamef
oop/goops.scm
g nameg
class-methods CXRi6
g m
, g table-of-metas
g t
^ ^ g t
` ` g t
a a g t
b b g t
e$ e9 g t
pZ pp g t
q q g t
t t g t
w w g t
{ { g t
g t
, g t
g t
g t
g t
d z g t
N c g t
g t
g t
g t
g t
+ @ g t
t g t
g t
g t
, g t
g t
] r g t
+ g t
g t
p g t
* g t
! 6 g cache
g cache
DZ g cache
Γ q g t
֭ g t
' g t
& g t
D Y g t
G \ g t
n g t
g t
g t
% : g t
g t
i ~ g t
= R g t
W l g t
g t
g t
- B g t
* @ g t
W l g t
X m g t
g t
! 6 ;g filenamef
oop/goops.scm
- M 6 M
7 Q I T e U k U p U y X
j
x x x x y y y ~
g
*) c
.C f
/
1e
3
5
6
9s
<
=
Uy X
V `
X h
Y v
Z y
\ ~
\ ^
^m
^n
^o ^
^
`{
a
b
e
f9
fA
f
g
hP
i
i
jt
k$
k
l
m
n
n n n n
n
n oO
oX
pN
pO
q q
q
t
w
{ *
>
E
O
Z
m
m # m
o
Y y
' # 1
I
c
C
D
!
j
S
+
e ;
J
^
k
u
|
ǵ
u
֢
֣
#
( )
C
^ R
_
r
:
=
d
^
_
2
3
M %
.
1
" 6
# F
Q Q Q P
S
L V
M X
N \
_
d
n
p
n
!
"
"
"
C6 PK ! oop/goops/simple.gonu [ GOOF----LE-8-2.0 ] D 4 h2 ] g guile g define-module* g oop g goops g simple
g filenameS f oop/goops/simple.scm g importsS
g accessors
g exportsS g define-class g set-current-module g make-syntax-transformer g macro g $sc-dispatch g any g each-any !g
syntax-object "g $define-class-with-accessors-keywords #g top $# %g ribcage &g dummy 'g arg (&' )g
m-1f33f87a8-1 *)# +*$ ,f
l-1f33f87a8-6 -f
l-1f33f87a8-7 .,- /%(+. 0% 1g x 21 3* 4f
l-1f33f87a8-3 54 6%235 7$/06 8g hygiene 98 :!"79 ;g syntax-violation <; =; >f -source expression failed to match any pattern ?g module-use! @g module-public-interface Ag current-module Bg resolve-interface C C 5 h ]4
5 4 > " G 4 : h > ]C6 g dummy
g arg C=> h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef oop/goops/simple.scm
" g
macro-typeg syntax-rulesg patternsg argg ... C5R?i4@i4Ai5 54BiC56 g m
, g filenamef oop/goops/simple.scm
w
| &
C6 PK ! O= G( ( oop/goops/dispatch.gonu [ GOOF----LE-8-2.0l( ] a 4 h ] g guile g define-module* g oop g goops g dispatch
g filenameS f oop/goops/dispatch.scm g importsS
g util g system g base g target g exportsS g memoize-method! g set-current-module g current-module g *dispatch-module* g gensym !f a "f t #g append $# %# &g rest 'g let (g map )g class-of *f p +g if ,g and -g apply .& /g assq-ref 0g eq? 1f c 2g
cache-miss 3g cons* 4g list 5g emit-linear-dispatch 6g make-vector 7f g 8g
vector-length 9g lambda :g cdr ;g case-lambda g
%host-type ?g compile @? A@? B@? Cg envS Dg fromS Eg scheme Fg optsS Gg
partial-eval?S Hg cse?S IGH Jg args KJ Lg max Mg compute-dispatch-procedure Ng
timer-init Og slot-ref Pg effective-methods Qg slot-set! Rg procedure Sg cache-dispatch Tg delayed-compile Ug
n-specialized V ) W ) Xg compute-cmethod Y
X Z
X [g memoize-effective-method! \g compute-applicable-methods ]g %compute-applicable-methods ^g no-applicable-method _g set-procedure-property! `g system-procedureC 5h8! ]4
5 4 > " G 4 i5 R h8 ]"
$ C45 " " g n
2 g stem 2 g n & g syms & g filenamef oop/goops/dispatch.scm
@ A
B
B D D D & D
& A ) A * A 2 A
2 g nameg gen-syms C!"%&'() h p ] C h g t
g a g filenamef oop/goops/dispatch.scm
P Q C *+,-./01234 hX & ]e 45 45 " ( .$
45" 45
D" ( L4
5 $
45"
"v4
5 $ !
"{4 5
"J
"4 $ 45"
" g gf-sym
T g nargs T g methods T g free T g rest? T g gen-syms T g args T g types T g methods $ g free $ g exp
$ g free X g types X g specs
X g checks X g m-sym e g var g var g filenamef oop/goops/dispatch.scm
?
E
E E E F F F E G & M , O - O = O > P M O T O X W ^ [
_ \ c \ # e \ e \ j ] m ^ ' p ^ s ^ x a b c d a ] f f ( f f g i j k " k ) k " k h m m ' m m n % n o p q $ q + q $ q n W Y ( Y Z $ W $ G * I 2 J 4 K $ D L $ J I T G G T g nameg emit-linear-dispatch C5R6 785 hp b ] 4L5$ KL ( "4L > G "L 4L56 Z g n
k g clauses k g free k g methods [ g clause @ [ g free @ [ g filenamef oop/goops/dispatch.scm
. / C J O & [ ^ e k k g nameg emit-rest C9(:;<=>BC DEFI h ]4L 5 L@ g p
g filenamef oop/goops/dispatch.scm
C5
h ]
$ /45 45 O 6L ( "4 L > G "~ g n
g clauses g free g exp & 9 g vals & 9 g methods > g clause i g free i g filenamef oop/goops/dispatch.scm
& 9 > > F I W X l s x % g nameg emit-req C8J2KL hH ]R" -( 4545 " ( y45 O O
Q
Q
45
$ "
$ " 6 $
"Y
"; "3 $ 4
5 "4
5 " " g gf
C g cache C g ls 3 g nreq 3 g nrest 3 g req g rest g ls & g gf-sym 3 g emit-rest K g emit-req
K g t m g n g n g filenamef oop/goops/dispatch.scm
t
v w
y y y ( y z z z ) z y & , - 1 3 3 e l m ~ " $ -
# ,
{ { w | |
| 1 | % | | ~ ~ # ~ + % ~ ' ~ 3 ~ 3 v E C g nameg compute-dispatch-procedure CMR NRNMOPQRS hP - 1 3 MNM
$ .4L 4L 55 4L > " G @L 6 g args
L g dispatch & D g filenamef oop/goops/dispatch.scm
" ) $ & & )
/ 6
D
L L
C h ] H O C g gf
g timer g filenamef oop/goops/dispatch.scm
g nameg delayed-compile CTR h8 ]
$ " $ C454L 5C g n
6 g f 6 g ls 6 g t g filenamef oop/goops/dispatch.scm
% ' ( - & 2 / 4 5 6 g nameg map-until C h8 ] $ #$ & "CC ( CC g x
8 g y 8 g filenamef oop/goops/dispatch.scm
' " * ( 2 5 8 g nameg equal? COUW2P h ]"O O Q Q 4 5$ X44 55 " 1( 64 5$
@ "4 5 " 6 g gf
g args g map-until g equal? g types ; g cache A r g filenamef oop/goops/dispatch.scm
# % ) * - 3 + 5 ; ; A G
O P U % W [ _
b $ e i l r r s y % { g nameg cache-dispatch CSR h ]4 5@ g gf
g args g filenamef oop/goops/dispatch.scm
g nameg
cache-miss C2R h0 ]
$ " $ C 4L 5C g ls
/ g n / g t g filenamef oop/goops/dispatch.scm
" # ( + ) - .
/ g nameg first-n C(WZOPQRTU h z ]3O " ( `45 45 4 5 4 > " G 4 4 5> " G C4
5$ 4455 " "_" V45 4 5 4 > " G 4 4 5> " G CQ
" r g gf
g args g
applicable g n g ls g types t g cmethod ( t g cache > t g len g rest? g types g cmethod g cache g first-n g filenamef oop/goops/dispatch.scm
" ( ( 4 5 ; % = > > A G N W ] ^ i w } ' % 6 g nameg memoize-effective-method! C[R\][^ h8 ]
4 & " 5 $
6 6 g gf
3 g args 3 g
applicable 3 g filenamef oop/goops/dispatch.scm
! + 3 3 g nameg memoize-method! CR_ii`6 g m
, g filenamef oop/goops/dispatch.scm
- 6
?
t
<
P
!*
!4 ) !7
!7
C6 PK ! #$ oop/goops/accessors.gonu [ GOOF----LE-8-2.0 ] 4 4 hp ] g guile g define-module* g oop g goops g accessors
g filenameS f oop/goops/accessors.scm g importsS
g exportsS g define-class-with-accessors g $define-class-with-accessors-keywords g
re-exportsS g standard-define-class g set-current-module g make-syntax-transformer g macro g $sc-dispatch !g _ "g any #!" $g
syntax->datum %$ &$ 'g
datum->syntax (' )' *g map-in-order +g keyword? ,g get-keyword -g accessorS .g syntax-violation /. 0. 1f -source expression failed to match any pattern 2g init-keywordS 3g symbol->keywordC 5 hx [ ]4
5 4 > " G 4 #&)*+,- hX ] M $ N C4 5$ N C $ $4 5$ C C C g slot
T g name ; J g filenamef oop/goops/accessors.scm
! " " $ & ' % . % . 1 % 5 % ; ' " ; ' A ( F ( 3 G ( N * T C h( - 1 3 H 4O 5C g name
$ g supers $ g slots $ g eat?
$ g filenamef oop/goops/accessors.scm
! $
C h k ] 4 5 L 4?6c g args
g v g filenamef oop/goops/accessors.scm
C01 h( i ] 4 5 $ O @ 6 a g y
' g tmp ' g filenamef oop/goops/accessors.scm
' C5R4 #&)*+,-23 h ]M $ N C4 5$ N C $ X4 5$ " 45$ C 45 C 4 5 C g slot
g name > O g slot O ~ g name f ~ g keyword o ~ g filenamef oop/goops/accessors.scm
2 3 4 6 3 7 " 9 & 3 ' ; . ; 5 1 ; 5 ; > = ) > = D > I > : J > O : R ? Y ? 4 \ ? ` ? f A % f A i B ( o A u C z C < { C E F * E ! C h( - 1 3 H 4O 5C g name
$ g supers $ g slots $ g eat?
$ g filenamef oop/goops/accessors.scm
-
. / 1 ! / $
C h k ] 4 5 L 4?6c g args
g v g filenamef oop/goops/accessors.scm -
C01 h( i ] 4 5 $ O @ 6 a g y
' g tmp ' g filenamef oop/goops/accessors.scm
-
' C5RCS g m
0 g filenamef oop/goops/accessors.scm
x
C6 PK ! t% % oop/goops/stklos.gonu [ GOOF----LE-8-2.0
] 4 h
] g guile g define-module* g oop g goops g stklos
g filenameS f oop/goops/stklos.scm g importsS
g internal
g set-current-module g module-for-each g module-add! g module-public-interface g current-module g resolve-interface g call-with-deferred-observers g module-export! ! "g define-class #g
define-method $"# %g write-object &% 'g read-options (' )' *g append +* ,* -g keywords .g prefix /g make-syntax-transformer 0/ 1/ 2g macro 3g $sc-dispatch 43 53 6g any 7g each-any 877 968 :69 ;6: g top ?> @g ribcage Ag dummy Bg name Cg supers Dg slot Eg rest FABCDE Gg
m-1f4787962-8 HG> IH???? Jf
l-1f4787962-d Kf
l-1f4787962-e Lf
l-1f4787962-f Mf l-1f4787962-10 Nf l-1f4787962-11 OJKLMN P@FIO Q@ Rg x SR TH Uf
l-1f4787962-a VU W@STV X?PQW Yg hygiene ZY [<=XZ \g syntax-violation ]\ ^\ _f -source expression failed to match any pattern `g module-define! ag toplevel-define! bg free-id cg setter dg m-1f4787962-1d ed> fe gf l-1f4787962-1f hg i@Sfh j?Qi k<cjZ lbk ml6 nm7 o6n pg begin qABE re?? sf l-1f4787962-22 tf l-1f4787962-23 uf l-1f4787962-24 vstu w@qrv x?wQi y<pxZ zg if {<zxZ |g or }<|xZ ~g not <~xZ g defined? <xZ g quote <xZ g is-a? <xZ g <xZ <axZ g ensure-accessor <xZ <xZ g add-method! <xZ <cxZ g method <xZ 67 6 f l-1f4787962-2a f l-1f4787962-2b f l-1f4787962-2c @qr ?Qi <pZ <zZ <|Z <~Z <Z <Z <Z g <Z g <Z <aZ g ensure-generic <Z <Z <Z <Z C 5 h ]4
5 4 > " G 4i h ]445 5 6 g sym
g var g filenamef oop/goops/stklos.scm
# $ $ 9 $ $ C4i5> " G 4 !$ h F ] 45 6 > g filenamef oop/goops/stklos.scm
)
C> " G 4 !& h F ] 45 6 > g filenamef oop/goops/stklos.scm
,
C> " G 4)4,4)5 -. 5> " G 41"25;[, h w ]45C o g dummy
g name g supers g slot g rest C^_ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef oop/goops/stklos.scm
1
" g
macro-typeg syntax-rulesg patternsg nameg supersg slotg ... g restg ... C5"R` h ]45 6 g name
g val g filenamef oop/goops/stklos.scm
4
5 5 g nameg toplevel-define! CaR41#25oy{} hp Q ]
C I g dummy
n g name n g rest n n C hx Q ]
C I g dummy
v g name v g rest v v C^_ h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef oop/goops/stklos.scm
8 9 g
macro-typeg syntax-rulesg patternsg setterg name g restg ... g nameg restg ... C5#RC g m
( g filenamef oop/goops/stklos.scm
) #
& & $ & #
)
t ,
/
/ /
4
C6 PK ! nR6 6 oop/goops/active-slot.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g oop g goops g active-slot
g filenameS f oop/goops/active-slot.scm g importsS
g internal
g exportsS g g set-current-module g toplevel-define! g
make-class g g nameS g defined? !g is-a? "! #! $ % &g memq 'g (' )' *g class-precedence-list +* ,* -g class-redefinition .- /- 0g compute-get-n-set 1g make 21 31 4g 54 64 7g add-method! 87 97 :g ;: <: =g specializersS >g ?> @> Ag formalsS Bg class Cg slot DBC Eg bodyS Fg if Gg eq? Hg slot-definition-allocation IHC Jg activeS KGIJ Lg let* Mg index Ng slot-ref Og quote Pg nfields QOP RNBQ SMR Tg s Ug cdr VUC WTV Xg
before-ref Yg get-keyword Zg before-slot-refS [YZT \X[ ]g after-ref ^g after-slot-refS _Y^T `]_ ag before-set! bg before-slot-set!S cYbT dac eg
after-set! fg after-slot-set!S gYfT heg ig unbound jg make-unbound kj lik mSW\`dhl ng slot-set! og + poM qnBQp rg list sg lambda tg o ut vXt wg let xg res yg %fast-slot-ref zytM {xz |{ }g and ~g not g eqv? xi ~ ]t }] w|x Fvk FX su g v t at g begin g %fast-slot-set! tM et }e F Fa s r Lmq g next-method FK g make-procedureS g procedureSC 5 h | ]4
5 4 > " G " +44i i 5> " xG " q4 5$ b4#i%5$ K4&i)4,i55$ -4/i4i i 5> " G " "t" "l" "d4 05 $ " 0i $ !40436 05> " G " 90i43<=i@ ADEHJNPYZ^bfjnyj h ] L$ F4L 5$ 74 L 5 L$ #L$ " 4L > " G " C6 4 L 5 L$ #L$ " 4L > " G " C g o
g res J g res W g filenamef oop/goops/active-slot.scm
* + , , - # - $ . ) . . - . 2 . B N 0 O 1 W 1 _ 2 d 2 * h 2 m 2 > C hh ]L$ 54L 5$ &4 L> " G L $ L 6CC4 L> " G L $ L 6C g o
c g v c g filenamef oop/goops/active-slot.scm
5 6 7 7 9 1 : 9 : * > < Y = a = & c C h ]:45& z4 5 45 45 45 4 5 4
5 4 > " G O
O CL 6 g class
g slot g index g s g
before-ref ) g after-ref 5 g before-set! A g
after-set! M g unbound T g filenamef oop/goops/active-slot.scm
! ! " " * " " # " $ ) " , % 5 " 8 & A " D ' M " P ( T " W ) ] ) ` ) " e ) *
C h j ] O C b g real-next-method
g filenamef oop/goops/active-slot.scm
C5 6 t g m
, g t
g filenamef oop/goops/active-slot.scm
1
C6 PK ! ? Fe e oop/goops/save.gonu [ GOOF----LE-8-2.0M ] 4 h. ] g guile g define-module* g oop g goops g save
g filenameS f oop/goops/save.scm g importsS
g internal
g util g exportsS g save-objects g load-objects g restore g
enumerate! g enumerate-component! g write-readably g write-component g write-component-procedure g literal? g readable g
make-readable !g
re-exportsS "g make-unbound #" $g set-current-module %$ &$ ' (g defined? )'( *'( +g
immediate? ,g toplevel-define! -', .', /g make 0'/ 1'/ 2g 3'2 4'2 5g nameS 6g add-method! 7'6 8'6 9g :'9 ;'9 >g formalsS ?g o @? Ag bodyS B Cg make-procedureS Dg procedureS Eg F Gg Hg Ig Jg Kg L'= M'= Ng env O?N Pg file Q?PN Rg write SR?P TS Ug make-weak-key-hash-table Vg readables Wg make-syntax-transformer XW YW Zg macro [g $sc-dispatch \[ ][ ^g _ _g any `^_ ag
syntax->datum ba ca dg
datum->syntax ed fd gg quote hg copy-tree ig syntax-violation ji ki lf -source expression failed to match any pattern mg
hashq-set! ng hashq-ref og readable-expression pg readable? qg excluded? rg display sg object-info tg binding? ug visiting vg definedS wg binding xg or yg begin zg add-patcher! {g |g }g not ~g vector? ~? } g let g array-for-each g lambda g if ?N } g set! @ ? x g n g
vector-length ? g zero? f #() rP g not-literal? ?N } f (vector f #( rP g and g
vector-ref ?
N r'P g
quasiquote g vector-set! g unquote ?
PN g do g i g + g = r P ? N PN r)P S g g shared-array-root ? N g
array-rank g reverse g list-tail g t g s g r g q g p g m g l g k g j g gensym f i g shared-array-offset g map g * g - g array-dimensions g shared-array-increments g make-mapper g array-ref g
array-set! g write-array g root g cond ~ } r#P ? rP (?PN y S tN f (make-shared-array rP N g goops-error f 'write-readably(): internal error PN ? r P g for-each g dim rP ?
g else f (list->uniform-array r P
f '() r
P f (list ?PN
g g car ? N g cdr ? N !g proper? "g loop #g ls $#? %$ &g null? '&# (g pair? )(# *# +t*N ,}+ -"* .),- /x'. 0"%/ 1!0 2g 1? 3( 4}3 5t N 6x45 726 8g infos 9g :89 ;g refs ;= ?17:> @} A@( B! Cf (cons D2C Ef (cons* F
E GABDF HrGP I N JI KJ Lg set-car! M NLM ON POPN Q# * Rg prev SR?# TQS U}) Vt#N WxUV X}' Yf . ZrYP [@Z \ #N ]\ ^] _g set-cdr! `R a# b_`a cb d#cPN ey[^d fXe gWf hg cons is#N jhi8 k8j lg push-ref! ml#N ng visiting? o8 pno qp r# s rN ts ut vr wLav xw yrxPN zTgkmquy {g info |{ }n{ ~} |~ 8 =; ?HKPz g setter g integer? g standard-get g standard-set g memq g slot-definition-allocation g classS g
each-subclassS g class-slots g slot-ref g getters-n-setters g get-set-for-each g slot-definition-accessor g slot-definition-name g generic-function-name g access-for-each g @@ g %allocate-instance ' 9 g name g val g slot-set! ? g list g g get g set ? g unbound? } N g class-of ? g class f (restore rP g
class-name rP f ( rP g slotdefs g filter g slotdef g g slot-bound? ? ? qN x } & } rP rP y g aname g# rP qN N g PN
g ? rP ? rP f #No read-syntax for defined g is-a? ' ' g
' ' g ensure-accessor
' ' g excluded
g pass-2? g objects g pre-defines g locals g stand-ins g post-defines g patchers g multiple-bound g
g
make-class g accessorS g init-formS g make-hash-table = g
init-thunkS g
init-valueS ' ' ' ' !g class-precedence-list "'! #'! $g class-redefinition %'$ &'$ 'g
initialize (g initargs )N( *g next-method +* ,g get-keyword -g excludedS .,-( /g => 0g excludees 10 2g e 32 4g hashq-create-handle! 5 N 6452 736 870 918 :./9 ;: <+; =sN >n=? ?> @' A' Bg x C?NB Dm=?B ED Fg hashq-get-handle Gg pop-ref! Hg container Ig
Js?N KwJ LK M+? Nq?N O{J PO Qt{ R}Q Sg eq? Tu{ Ug definingS VSTU W= X&W YVX ZxRY [ { \Z[ ]P\ ^xMN] _^ `g pass-2S ag binding-name bg binding-object cg pass-1! dg string->symbol eg
string-append ff %o gg number->string hg
make-local ig boolean? jg name-bindings! kg append lg pass-2! mf (define nf )
og
write-define! pg write-empty-defines! qg write-definition! rf (let* ( sf ( tf
( ug write-let*-head! vg write-rebindings! wg newline xg write-definitions! yg assq zg write-patches! {g write-immediates! |g write-readables! }g alist ~g rest P~ } g port g open-output-file P g apply }~ g
close-port g
*unspecified* g
g >= g length ~ ~ 9 g uses g cadr ~ 9 /- N c}N j}N lN & } g use-modules g unquote-splicing RP wP y {}P N & xmPN f zPN y xmPN pPN uPN f (set! N vPN xPN f zPN f )
rP y |}PN N vmPN
P g let* g open-input-file P g module-public-interface g current-module g iface g g make-module g module-use! g the-scm-module g save-module-excursion $ g sexp g read P g eof-object? } g eval " y " g
module-map g var g variable-ref h C 5 h( # ]4
!#5 4& > " G 4*+5 $ " +i $ !4.+4145+5> " G " 48+i41;<=i >@ABCD h T ]C L g o
g filenamef oop/goops/save.scm
X
C5 > " G 4*+5 $ " +i $ !4.+4145+5> " G " 48+i41;<Ei >@AFCD h T ]C L g o
g filenamef oop/goops/save.scm
Z
C5 > " G 4*+5 $ " +i $ !4.+4145+5> " G " 48+i41;<Gi >@AFCD h T ]C L g o
g filenamef oop/goops/save.scm
[
C5 > " G 4*+5 $ " +i $ !4.+4145+5> " G " 48+i41;<Hi >@AFCD h T ]C L g o
g filenamef oop/goops/save.scm
\
C5 > " G 4*+5 $ " +i $ !4.+4145+5> " G " 48+i41;<Ii >@AFCD h T ]C L g o
g filenamef oop/goops/save.scm
]
C5 > " G 4*+5 $ " +i $ !4.+4145+5> " G " 48+i41;<Ji >@AFCD h T ]C L g o
g filenamef oop/goops/save.scm
^
C5 > " G 4*+5 $ " +i $ !4.+4145+5> " G " 48+i41;<Ki >@AFCD h T ]C L g o
g filenamef oop/goops/save.scm
_
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<=iM >OAFCD h e ]C ] g o
g env g filenamef oop/goops/save.scm
e
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<=iMM >QATCDR h ] 6 w g o
g file
g env
g filenamef oop/goops/save.scm
g
i
C5 > " G 4Ui =5VR4Y Z]`cf gh h n ] 4 5 C f g exp
g filenamef oop/goops/save.scm
r
s s s C h f ] 4 5 L 4?6^ g args
g v g filenamef oop/goops/save.scm r
Ckl h( d ] 4 5 $ O @ 6 \ g y
' g tmp ' g filenamef oop/goops/save.scm
r
' C5 RmV h ]4 > " G C g obj
g expr g filenamef oop/goops/save.scm
u
v g nameg
make-readable C R nV h ]4 5 C g obj
g filenamef oop/goops/save.scm
y
z z z g nameg readable-expression CoRnV h t ] 6 l g obj
g filenamef oop/goops/save.scm
~
g nameg readable? CpR+Rpoqrstuvw
h ] 4 5$ 4 > " G C4 5$ 44 5> " G C4 5$ 4> " G C4 5 45$ *4 5
& 44 5> " G CC4 > " G C g o
g file g env g info t g filenamef oop/goops/save.scm
$ . / 2 ? J V W l t w ( g nameg write-component-procedureg
documentationf Return #f if circular reference C R4YZ]`cfx yrz h0 ] C g object
) g patcher ) g file ) g env ) g filenamef oop/goops/save.scm
) C h g ] 4 5 L 4?6_ g args
g v g filenamef oop/goops/save.scm
Ckl h( e ] 4 5 $ O @ 6 ] g y
' g tmp ' g filenamef oop/goops/save.scm
' C5R4*5 $ " i $ !4.41455> " G " 48i41;<{iM >OABCD h f ]C ^ g o
g env g filenamef oop/goops/save.scm
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<|iM >OACD h q ]4 L5$ CN C i g o
g filenamef oop/goops/save.scm
# C h0 ]
$ !H4O > " G JCC g o
, g env , g literal?
* g filenamef oop/goops/save.scm
+ , C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<|iMM >QACDr zR h ]# $ 4 5
$ 64 5 4$ " > " G $ +4
5$ 4'> " G " " 4
5 $ " 14> " G 4
> " G " $ " 4 > " G $ ,4 5$ 4'> " G " " 4 5 $ " 34> " G 4 > " G "T "M)6
6 g o
g file g env g n g not-literal? , g t g i | g t 1 s g filenamef oop/goops/save.scm
" # % , , / 7 9 ? F T U [ ! _ c d 3 # + ! 1 U ! ^ 6 a ! v | 0 C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<iM >OACD h x ]4 56 p g o
g env g filenamef oop/goops/save.scm
C5 > " G h( ]$ " C g ind
! g dim ! g inc ! g filenamef oop/goops/save.scm
!
- 7 - ! C h ]4 5 4 $ 4 5" 2" #
$ " 45 " "5 4 54
4 54
55 C g array
g n g n + N g ls + N g indices [ g filenamef oop/goops/save.scm
* ! D # + . % 3 ! < + = 1 A 9 C 1 F + N % N Q . Y [ [ _ d k r y g nameg make-mapper CRr r z h ]" ( a
$ " 4L4
5? L$ )4L5$ 4'L> " G " " 4LL5 $ " 04L> " G 4LL> " G " $ C4 L> " G 4L45? L$ )4L5$ 4'L> " G " " 4LL5 $ " 04L> " G 4LL> " G "I "B " t$ C
$ 4 L> " G " 4L L> " G 4L > " G 4)L> " G "
" g dims
g indices g n j g el * g t f g i c g el Z g t W g n m g i s
g filenamef oop/goops/save.scm
" ) & 2 ( ) * " * 2 3 # ? @ f ) 2 ) # < ] c m m
s x | "
6 g nameg loop C hX ]
4 > " G O Q 445> " G )6 g prefix
U g o U g not-literal? U g file U g env U g loop # M g filenamef oop/goops/save.scm
# 6 = B U U g nameg write-array CR4*5 $ " i $ !4.41455> " G " 48i41;<iMM >QACD rRt zr h j ]4 L > " G L 6 b g dim
g filenamef oop/goops/save.scm
! " C
h = ]4 5 4 5$ I$ :4#> " G 44 5> " G ( 6 645$ 4> " G 45$ 4'> " G " 4 5 $ " ,4> " G 4
4 5> " G 4 > " G 44
5> " G 4O 4 5> " G )64> " G 44 5> " G 4> " G 6 5 g o
g file g env g root g t g filenamef oop/goops/save.scm
4 7 D Y a b n o s z ) % # 0 @ $ A & E & L & U ' X ' e ' n ( r ( y ( ) ) - C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<iM >OA CD h( ]
4 5 4 5$ CC g o
! g env ! g literal? ! g filenamef oop/goops/save.scm
4
5 5 ( 5 5 6 6 6 6
! C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<iMM >QACDt <rCE zLY_slnn h b ]45 6 Z g info
g filenamef oop/goops/save.scm
d e C h ]C" 3( " 0$ 45$ " "" " $ "
4 5 4 545 H 4$ $ " $ " " (> " G $ *4 5$ 4'> " G " " 4 5 $ " /4> " G 4
> " G " $
45" $ ( " $ " 4 > " G 4 > " G $ )45$ 4'> " G " " 45
$ " .4> " G 4 > " G
4)> " G " 4 > " G 4
5JK4> " G 445J> " G $ *45$ 4'> " G " " 45
$ " /4> " G 4
> " G
"F "94J> " G 456 g o
g file g env g ls 9 g t F a g proper? s g 1? s g not-literal? s g infos s g refs s g t / g ls 3 g prev 3 g t
g t
g filenamef oop/goops/save.scm
9
: ;
; < < = ! = + " = ! & < . > " 4 > 9 : D ? E ? F ? F ? U @ Z @ ^ @ b A k A l B m C s : ~ D D
E D
F G D I J
J J
I K L L L L , L 3 M 6 O : O ; P
H O
L M R Q \ S a T e T l T u U V W V X Y Y # Z [ , \ 7 \ 9 \ : ] N ^ X ^ ^ ^ l _ m ` r ` v ` z _
{ a
b b b b 0 b M M M
M d g X C5 > " G hH ]
45$ L 4545644 55$ CL 6 g slotdef
D g g-n-s D g g-n-s D g filenamef oop/goops/save.scm
s t t u u v v 2 % v & w ) w " 3 w 7 u > y A y ) D y D C h ] O 45456 g proc
g class g filenamef oop/goops/save.scm
r
z { { { s g nameg get-set-for-each CR
h N ]4 5 45$ +L 4 5$ 45" 4545644 5 5$ CL 4 5$ 45" 6 F g slotdef
g g-n-s g g-n-s
g a
g filenamef oop/goops/save.scm
~
+ , $ 8 ? G H K " U Y ^ j k $ y | C h ] O 45456 g proc
g class g filenamef oop/goops/save.scm
}
~ g nameg access-for-each CR4YZ]`cf?g@
h8 - 1 3 C g class
4 g slots 4 g exps 4 g filenamef oop/goops/save.scm
4
C h g ] 4 5 L 4?6_ g args
g v g filenamef oop/goops/save.scm
Ckl h( ] 4 5 $ O @ 6 g y
' g tmp ' g filenamef oop/goops/save.scm
' g
documentationf )(restore CLASS (SLOT-NAME1 ...) EXP1 ...)g
macro-typeg defmacrog
defmacro-argsg args C5R4*5 $ " i $ !4.41455> " G " 48i41;<iM >OACD h ]
4 L 5 45$ CL6 g get
g set g val g filenamef oop/goops/save.scm
! ! C h ]4 O > " G Cy g o
g env g filenamef oop/goops/save.scm
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<iMM >QACDrq hP ] 44 55 $ " ,4L 4 55$ 44L 4 55L5" C g slotdef
O g t M g filenamef oop/goops/save.scm
$ # $ 2 , # 0 1 # 4 $ 9 0 A $ E # N O Cr h( w ]4 L > " G 4 5L 6 o g slotdef
# g filenamef oop/goops/save.scm
! # # Cr#q zg h X ]4 L> " G 4L5 45$ L64L 5 $ C4L 5$ 4'L> " G " 4LL 5 $ C4L> " G $ L " L
L 6 P g name
g aname g get g set g val g t ; g t v g filenamef oop/goops/save.scm
" * . ) 2 3 ; G $ S T $ v 1 5 5 C
h ] 4> " G 445> " G 4> " G 4 O 455 ( " 4445> " G 4
O > " G 4)> " G 4 O > " G )6 g o
g file g env g class g slotdefs ] g filenamef oop/goops/save.scm
, 5 9
@ I U ] ] e j m r + t { C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<iM >OABCDh f ]C ^ g o
g env g filenamef oop/goops/save.scm
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<iMM >QACDr h ]4 56 g o
g file g env g filenamef oop/goops/save.scm
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<2iM >OABCD h f ]C ^ g o
g env g filenamef oop/goops/save.scm
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<2iMM >QACDr h ]4 56 g o
g file g env g filenamef oop/goops/save.scm
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<9iM >OABCD h f ]C ^ g o
g env g filenamef oop/goops/save.scm
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<9iMM >QACD h ]6 g o
g file g env g filenamef oop/goops/save.scm
C5 > " G 4*s5 $ " 4 si 5 $ 24.s4 4*s5$ si" s5> " G " 4* 5 $ " 4 i 5 $ 64. 4 4* 5$ i" 5> " G " 4*
5 $ " 4
i 5 $ 64.
4 4*
5$
i"
5> " G " 4*<5 $ " 4 " G " 4*5 $ " 4 i 5 $ 64.4 4*5$ i" 5> " G " 4*5 $ " 4 i 5 $ 64.4 4*5$ i" 5> " G " 4*5 $ " 4 i 5 $ 64.4 4*5$ i" 5> " G " 4*5 $ " 4 i 5 $ 64.4 4*5$ i" 5> " G " 4*5 $ " 4 i 5 $ 64.4 4*5$ i" 5> " G " 4*5 $ " 4 i 5 $ 64.4 4*5$ i" 5> " G " 4*5 $ " 4 i 5 $ 64.4 4*5$ i" 5> " G " " 4.4i ssi h G ] =6? g filenamef oop/goops/save.scm
C i h G ] =6? g filenamef oop/goops/save.scm
C
i < " G " 4*5$ 4 i 5$ 4i 4 #i55$ 4 &i4i ssi h G ] =6? g filenamef oop/goops/save.scm
C i h G ] =6? g filenamef oop/goops/save.scm
C
i < " G " "J" "B" ":4*'5 $ " 'i $ #4.'4145'5> " G " 48'i41;<iM >)A<C,-4 h h ]4L 5 6` g e
g filenamef oop/goops/save.scm
0
C h8 ]
4L > " G 45 $
O 6C g env
7 g initargs 7 g t 7 g filenamef oop/goops/save.scm
5 7 C h d ] O C \ g real-next-method
g filenamef oop/goops/save.scm
CD5 > " G 4*s5 $ " si $ !4.s4145s5> " G " 48si41;<MM >OA?CDns h x ]45 6 p g o
g env g filenamef oop/goops/save.scm
C5 > " G 4*s5 $ " 4 si 5 $ 24.s4 4*s5$ si" s5> " G " 484 Asi541;<MMM >CAECDms h ]45 6 g o
g env g x g filenamef oop/goops/save.scm
C5 > " G F h ]45 6 g o
g env g filenamef oop/goops/save.scm
g nameg excluded? CqR h ]45 456 g patcher
g env g filenamef oop/goops/save.scm
% g nameg add-patcher! CzR< h ]45 456 g o
g env g filenamef oop/goops/save.scm
g nameg push-ref! ClR< h ]45 4 56 g env
g filenamef oop/goops/save.scm
g nameg pop-ref! CGR< h ]4 5C w g env
g filenamef oop/goops/save.scm
"
#
# g nameg container CHR4*u5 $ " 4 ui 5 $ 24.u4 4*u5$ ui" u5> " G " 4*w5 $ " 4 wi 5 $ 24.w4 4*w5$ wi" w5> " G " 4* 5 $ " 4 i 5 $ 24. 4 4* 5$ i" 5> " G " 4*I5$ =4 Ii 5$ 4i 4 #Ii55$ ]4 &Ii4i uui wwi i 5I5> " G " V4.I4i uui wwi i 5I5> " G " V4.I4i uui wwi i 5I5> " G " V4.I4i uui wwi i 5I5> " G uinR4*w5 $ " wi $ !4.w4145w5> " G " 48wi41;<Hi >|ABCD h X ]C P g info
g filenamef oop/goops/save.scm
0
C5 > " G 4*w5 $ " wi $ !4.w4145w5> " G " 48wi41;<MM >OALCDws h x ]4 56 p g o
g env g filenamef oop/goops/save.scm
3
4 4 C5 > " G witR4* 5 $ " i $ !4. 4145 5> " G " 48 i41;<Hi >|AFCD h X ]C P g info
g filenamef oop/goops/save.scm
8
C5 > " G 4* 5 $ " i $ !4. 4145 5> " G " 48 i41;<MM >OA_CD+qstuU< hx 5 ]4 5 $ C4 5 $ C4 5 45 $ " 45&
45" $ 6C - g o
r g env r g t r g t r g info 1 r g t ; f g filenamef oop/goops/save.scm
>
? ? @ ? ) A 1 A 4 D ; D ; D
I G U G V H " ] H ^ H j D p I
r C5 > " G +pq
stn` wH/IlG hx , ]4 5$ C4 5$ C4 5$ C45$ K4 5 45$ 45C4 5$ 44
5> " G CC4 5 $ =44
5> " G 45$ 4
544
556C45 44
5 > " G 4 > " G 44
5> " G 4 > " G 44
5> " G 4> " G 4
5 456 $ g o
r g env r g info ? g t r g info r g filenamef oop/goops/save.scm
U
V
V W V X ) V , Y 6 V 7 Z ? Z B [ L [ M _ V _ W _ Y ` e ` f b d V f g g i ! i . i ! i k k l m n o 4 p L q i r ' p r r r ( r g nameg enumerate-component! CRiaRibRb h n ]4 5L 6 f g binding
g filenamef oop/goops/save.scm
~ $ C h ]O 6 g alist
g env g filenamef oop/goops/save.scm
|
~ g nameg pass-1! CcRdefg h ]44 556 g i
g filenamef oop/goops/save.scm
!
& g nameg
make-local ChRb+pqswa
h X ]4 5 45 $ " 45 $ " 4L 5 $ C4L 5 45$ "45L 454 54L 56454 56 P g b
g o g t B g t & ? g info Q g filenamef oop/goops/save.scm
& 4 F I Q T # [ _ i ' p ' w x ' Cwstih h R ]:4O > " G " }( " 45$ 6445> " G 445> " CG " <45$ " "45 "s" C( N44545> " G 44 545> " G 4
54564 5 4 5$ 4
455$ <44545> " G "I( "&45 44545> " G 45 " "4455
" J g alist
g env g ls g post-defs g ls g i g pre-defs g locs g sins g info g real-name g filenamef oop/goops/save.scm
% & + 0 4 6 : ; T q v z ~ %
"
!
' +
, 6 & A L O T ! W g m
p u ! x " ( # $ R g nameg name-bindings! CjR
s u` h@ ] 4 L 5 4454 L 5> " G 456 g o
: g info : g filenamef oop/goops/save.scm
& % : : Ck h@ ]445 > " G O 44 54 54 556 g env
? g filenamef oop/goops/save.scm
$ ' . 5 = ? ? g nameg pass-2! ClRrmRn hx ]4> " G 4 > " G 4 > " G $ 4'> " G " 4> " G 6 g name
x g val x g literal? x g file x g filenamef oop/goops/save.scm
+ D E ] t x x g nameg
write-define! CoRo h o ] L 6 g g stand-in
g filenamef oop/goops/save.scm
Cow h h ]4 L5L 6 ` g o
g filenamef oop/goops/save.scm
C h8 ]4 O 45> " G O 456 g file
4 g env 4 g filenamef oop/goops/save.scm
, 4 4 g nameg write-empty-defines! CpRrsw luUvG h W ] 4 > " G 45 445> " G 4 > " G 45$ 4'> " G " 4> " G 445> " G 4 > " G 445
> " G 4 > " G )6 O g prefix
g o g file g env g info g filenamef oop/goops/save.scm
" %
2 ; O Y Z r g nameg write-definition! CqRrrqsqt h h ] LL 6 ` g o
g filenamef oop/goops/save.scm
! Cn h` ]4 > " G 445 > " G 4 O 45> " G 6 g file
] g env ] g filenamef oop/goops/save.scm
# , 5 A H M Y ] ] g nameg write-let*-head! CuRrn h` ]4LL > " G 4 L > " G 4 L > " G 4 L > " G L 6 g patch
\ g filenamef oop/goops/save.scm
# , @ E L X \ \ C h ] O 6 g prefix
g bindings g file g env g filenamef oop/goops/save.scm
g nameg write-rebindings! CvRqw h h ]4L LL > " G L6` g o
g filenamef oop/goops/save.scm
C h ]O 4 56 g selector
g prefix g file g env g filenamef oop/goops/save.scm
g nameg write-definitions! CxRrwy hP ]4 L5 $ 44L55 $ CC $ 4L 54L 5C C g patcher
L g t L g t ! 0 g filenamef oop/goops/save.scm
,
7 !
, !
% 3
7 8 & = 4 ? & @ & E 4 G & H L g nameg name-objects Cw hH ] 4LL> " G 4O L Q 4 5 L> " G L6 g patch
H g name-objects " 3 g filenamef oop/goops/save.scm
" : H H C h ] O 44556 g prefix
g file g env g filenamef oop/goops/save.scm
g nameg write-patches! CzR+boa h0 ]44 55$ 4 54 5L 6C g b
) g filenamef oop/goops/save.scm
! ! ' ) C h ]O 6 g alist
g file g filenamef oop/goops/save.scm
g nameg write-immediates! C{Rpbyaoo h Y ] 44 55 $ C44 5M5 $ 45L 4 54L 5644 544 55L> " G 4 54 5MNC Q g b
g t g t ( g filenamef oop/goops/save.scm
! ! ' ! ! ! " " ( " ( ! < % ) = & ) D % " E ' ) L % " N $ O ) R ) & Y * & \ * ; d * & l ) u - , | . , - % - C h ] HO 6 g alist
g file g env g written g filenamef oop/goops/save.scm
g nameg write-readables! C|R4*5 $ " i $ !4.41455> " G " 48i41;<i{iM>ACD h@ - 1 3 45 4 > " G 4> " G C g alist
> g file > g rest > g port > g filenamef oop/goops/save.scm
2
3 3 4 + 5 >
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<iiM>ACD/-cjlRw{xmzpuvr| h - 1 3 45 $ " 45 $ " 45 4 > " G 4 > " G 4> " G ( " )4 > " G 4
> " G 4 > " G 4 5( 24
> " G 4> " G " 4
> " G 4> " G 4> " G 445> " G 4
> " G 4> " G 4> " G 4 > " G 4 4 556 g alist
g file g rest g excluded 5 g uses 5 g env D g filenamef oop/goops/save.scm
8
9 9 9 9 + 9 6 : ( : , : / : + 5 : 7 5 9 : ; D ; G < [ = o > ? A A A B C D D F F - F G G G I I , I J 1 K E L I L J L * Y L b M h M - q M z N ~ N N O O O P Q Q $ Q - Q $ Q 8
C5 > " G 4*5 $ " i $ !4.41455> " G " 48i41;<{i >ACD h0 ]4 5 45 4> " G C g file
) g port ) g objects ) g filenamef oop/goops/save.scm
S
T T U T V ) C5 > " G 4i4i5 5R4*5 $ " i $ !4.41455> " G " 8i41;<i >ACD$ hX ]4L> " G " .4 5$ C4 L> " G 4L 5 "4L 5 " g sexp
F g filenamef oop/goops/save.scm
` a b c # c & e : f F f F b G b S b S
Ch | ] C t g name
g var g filenamef oop/goops/save.scm
g h h C hX ] 45 4> " G 4> " G 4 O > " G 6 g file
R g m R g filenamef oop/goops/save.scm
[
\ \
] ^ 2 _ R g R C5 6 g m
0 g t
8 M g t
( g t
g t
g t
g t
g t
s g t
S h g t
D Y g t
2 G g t
% : g t
5 g t
g t
# # g t
) ) g t
*{ * g t
;h ;} g t
=p = g t
D E g t
E E g t
G G g t
G H g t
I! I6 g t
J J* g t
K1 KO g t
K K g t
K L g t
LR Lq g t
L L g t
M M5 g t
Mx M g t
M M g t
N< N[ g t
N N g t
O O g t
S, SB g t
U U g t
V V g t
[ [ g t
\ \- g t
\k \ g t
^n ^ g t
_O _d g t
`f `{ g t
aG a\ g t
m g t
g t
{ g t
2g filenamef oop/goops/save.scm
1 X
Z
[
\
]
^
l _
L e
= g
W p b p
u
y
_ ~
+
b
#
#
( 4
*t 9
5 r
8 }
;a
=i
D
E
G
G
I
J
K*
P{ P P P P P P P Q
Rs R R R R R R R R
S$
U
V
X
Y
ZK
[
[ "
[ %
^f .
^g 0
_H 3
`^ 6
`_ 8
a@ >
gg U
gp y
gy z
h |
i
rF
tV
u
x#
z
|
~
H
^
e
f 2
8
t S
Y Y ' Y Y
[
^ (
C6 PK ! P oop/goops/internal.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g oop g goops g internal
g filenameS f oop/goops/internal.scm g importsS
g set-current-module g module-public-interface g current-module g module-for-each g %module-public-interface g module-add! g resolve-moduleC 5 h ]4
5 4 > " G 4i4i5 5 i h ] & CL 6 } g name
g var g filenamef oop/goops/internal.scm
#
C O 4i
56 g m
( g public-i
6 g filenamef oop/goops/internal.scm
) . ) 6 6
#
C6 PK ! c oop/goops/composite-slot.gonu [ GOOF----LE-8-2.0 ] \ 4 h ] g guile g define-module* g oop g goops g composite-slot
g filenameS f oop/goops/composite-slot.scm g importsS
g exportsS g g set-current-module g toplevel-define!
g
make-class g g nameS g defined?
g is-a?
!
"
#
$g memq %g &
% '
% (g class-precedence-list )
( *
( +g class-redefinition ,
+ -
+ .g compute-get-n-set /g make 0
/ 1
/ 2g 3
2 4
2 5g add-method! 6
5 7
5 8g 9
8 :
8 ;g specializersS =
< >
< ?g formalsS @g class Ag slot B@A Cg bodyS Dg if Eg eq? Fg slot-definition-allocation GFA Hg
propagatedS IEGH Jg compute-propagated-get-n-set KJA Lg next-method ML NDIKM ON Pg make-procedureS Qg procedureS Rg get-keyword Sg propagate-toS Tg slot-definition-name Ug goops-error Vf %Propagation not specified for slot ~S Wf Bad propagation list for slot ~S Xg map Yg slot-ref Zg slot-set! [g for-eachC 5 h ]4
5 4 > " G " +44ii 5> " xG " q4 5$ b4!i#5$ K4$i'4*i55$ -4-i4ii 5> " G " "t" "l" "d4 .5 $ " .i $ !4.414.5> " G " 47.i41:;i> ?BCOPFHJ h ]45& 6L 6 g class
g slot g filenamef oop/goops/composite-slot.scm
1
2 2 3 1
C h m ] O C e g real-next-method
g filenamef oop/goops/composite-slot.scm
1
CQ5 > " G RSTUVWXh w ] $ C Co g p
g filenamef oop/goops/composite-slot.scm
? ? ( ? $ ? 2 C h w ] $ CL C o g p
g filenamef oop/goops/composite-slot.scm
@ @ & @ " @ 0 CY h o ]4 L5L 6 g g o
g filenamef oop/goops/composite-slot.scm
E F F CZY h ~ ]4 L5L 6 v g o
g v g filenamef oop/goops/composite-slot.scm
J
K K C[ZY h ]4L 5L 6 ~ g object
g slot g filenamef oop/goops/composite-slot.scm
M N & N C h v ] O LL 6 n g o
g v g filenamef oop/goops/composite-slot.scm
L
M C
h ]14 54 5 $ " 4> " G $ " 4> " G 454 O 5
O (
O " O C g s
g prop g s-name g objects l g slots l g first-object v g
first-slot v g filenamef oop/goops/composite-slot.scm
6
7
7 4
7 8 7 : # ; ' ; . ; 9 <
= < B = F = M = V ? _ @ l ? s A v B v A I I C g nameg compute-propagated-get-n-set CJRC g m
, g t
g filenamef oop/goops/composite-slot.scm
1 /
1
6
C6 PK ! Dg2 2 oop/goops/describe.gonu [ GOOF----LE-8-2.0v2 ]i 4 h_ ] g guile g define-module* g oop g goops g describe
g filenameS f oop/goops/describe.scm g importsS
g ice-9 g session g format g exportsS g set-current-module g defined?
g toplevel-define!
!
"g make #
" $
" %g &
% '
% (g nameS )g add-method! *
) +
) ,g -
, .
, /g specializersS 0g 1g formalsS 2g x 32 4g bodyS 5f ~s is 652 7g cond 8g integer? 982 :f
an integer ;: <9; =g real? >=2 ?f a real @? A>@ Bg complex? CB2 Df a complex number ED FCE Gg null? HG2 If
an empty list JI KHJ Lg boolean? ML2 Nf a boolean value (~s) Og if Pg quote Qg true RPQ Sg false TPS UO2RT VNU WMV Xg char? YX2 Zf a character, ascii value is ~s [g
char->integer \[2 ]Z\ ^Y] _g symbol? `_2 af a symbol ba c`b dg list? ed2 ff a list gf heg ig pair? ji2 kg cdr lk2 mil nf an improper list on pf a pair qp rOmoq sjr tg string? ut2 vg eqv? wf xv2w yf an empty string zy {f a string of length ~s |g
string-length }|2 ~{} Oxz~ u g vector? 2 P v2 f an empty vector f a vector of length ~s g
vector-length 2 O g eof-object? 2 f the end-of-file object g else f an unknown object (~s) 2 7<AFKW^chs f .~% g
*unspecified* 6 g make-procedureS g procedureS g g let g name g procedure-name 2 f `~s' g display 2 O f is f an anonymous Oa f
procedure f with g arity 2 g slot-bound? g
class-name g safe-class-name g f ~S is an instance of class ~A~% g class-of 2 2 f
Slots are: ~% g for-each g lambda g slot g slot-definition-name f ~S = ~A~% 2 f ~S g slot-ref 2 f
# O g class-slots g f '~S is a class. It's an instance of ~A~% 2 f Superclasses are:~% g class f ~A~% g class-direct-supers 2 g slots g class-direct-slots 2 G f (No direct slot)~% g begin f Directs slots are:~% g s O g classes g class-direct-subclasses 2 G f (No direct subclass)~% f Directs subclasses are:~%
O
f Class Precedence List is:~%
g class-precedence-list 2 g methods g class-direct-methods 2 G f (No direct method)~% f Class direct methods are:~% O !g generic-function-name "!2 #" $g generic-function-methods %$2 &% '#& (f 3~S is a generic function. It's an instance of ~A.~% )( *f (No method defined for ~S)~% +* ,f Methods defined for ~S~% -, .2 /3. 0/ 1-0 2O+1 3')2 43 5
0 6
0 7g omit-generic 827 9g letrec :g
print-args ;g args <; =G; >g newline ?> @=? Ai; B Cg car DC; ED FE Gk; H:G IABFH J; KJ LBK? M7@IL N<M O:N PO Qf Method ~A~% RQ2 SG7 Tg gf Ug method-generic-function VU2 WTV XW Yf Generic: ~A~% Z!T [YZ \f (No generic)~% ]\ ^OT[] _X^ `OS_ af Specializers: ba cg method-specializers dc2 e:d f9PR`be gf hg provideC 5 h ]4
5 4 > " G 4 5 $ " i $ !4!4$'(5> " G " 4+i4$./0i 13458:=?BDILNQSXZ[afnptwy{| " hH ]4 > " G 4 5$ 4> " G " 4 5$ 4> " G " 4 5$ 4> " G " ( 4 > " G " 4
5$ %4 $ "
> " G " g4 5$ 44 5> " G " > $ 4> " G " $ 4> " G " $ 6 $ 4> " G " 4> " G " 4 5$ > $ 4> " G " 44 5> " G " | $ > $ 4> " G " 4 4 5> " G " 74 5$ 4 > " G " 4 > " G 4!> " G C | g x
F g filenamef oop/goops/describe.scm
#
$ $
$ & " % # & ( & # - & : ' D % E ' J ' # O ' \ ( f % g ( l ( # q ( % ) ) # ) * % * * # * : * @ * F * + % + + # , + - % - - # - . % . . # # . 2 / 6 % 9 / # : / > / ? 0 D 0 ' I 0 V 1 [ 1 ' ` 1 m 2 w % { 2 $ | 2 2 3 3 ' 3 4 4 ' 4 ? 4 5 % 5 $ 5 5 6 6 ' 6 7 7 ' 7 ? 7 8 % 8 8 # 8 9 " 9 # ) 9 2 : 7 :
< : ^ F C5 > " G 4 5 $ " i $ !4!4$'(5> " G " 4+i4$./i 134
h ] 4 5 $ 4> " G " 4 > " G 4> " G 4$ a" > " G 4> " G 4> " G 6 g x
g name g filenamef oop/goops/describe.scm
=
> > ? @ @ @ + A = B A B
F B O C W C
_ C d C m D q D
v D E E
E F C5 > " G h ]4 5$ 6 C g class
g filenamef oop/goops/describe.scm
K
L L L L M g nameg safe-class-name CR4 5 $ " i $ !4!4$'(5> " G " 4+i4$./i 134 h8 ] 4 5 4L 5$ 44L 55" 6 g slot
8 g name 8 g filenamef oop/goops/describe.scm
V W W X Z Z [ % [ ' & [ , 0 [ 6 \ 8 X
8 C hX ]4 4 5> " G 4> " G 4 O 4 5> " G C g x
S g filenamef oop/goops/describe.scm
P
Q Q
R R R Q U % U
* U 3 V = ] B ] D ] I V S C5 > " G 4 5 $ " i $ !4!4$'(5> " G " 4+i4$./i 134 h u ]4 56m g class
g filenamef oop/goops/describe.scm
i i ' i 2 i C h q ]4 56i g s
g filenamef oop/goops/describe.scm
r s ! s , s C h q ]4 56i g s
g filenamef oop/goops/describe.scm
} ~ ! ~ , ~ C
h u ]4 56m g s
g filenamef oop/goops/describe.scm
# . C hP C ] 44 54 5> " G 4> " G 44 5> " G 4 5 ( 4 > " G " '4
> " G 4 > " G 4 5 ( 4
> " G " '4> " G 4> " G 4> " G 44 5> " G 4 5 ( 64> " G 6 ; g x
M g slots W g classes g methods # M g filenamef oop/goops/describe.scm
c
d d
e
e e / e d % h * h
/ h 8 i = j H i Q m W m _ n ` o e o j o w q
| q q
r
x x y z z z |
| |
}
# + 0 2 3
8 =
M
2 M C5 > " G 4 5 $ " i $ !4!4$'(5> " G " 4+i4$./%i 1344!$(*, h c ] 6 [ g x
g filenamef oop/goops/describe.scm
C
h` ]4 54 5 44 5> " G ( 64> " G 6 g x
] g name ] g methods ] g filenamef oop/goops/describe.scm
" " $ ) 7 < @ A
F M
]
] C5 > " G 4 5 $ " i $ !4!4$'(5> " G " 4+i4$./,i 6184g>QUY!\ac h - 1 3 " q( 6 $ 34 > " G 445> " G "4 > " G 445> " G 6 4 > " G ( G4 5 $ 445> " G " 4 > " G " 4
> " G 4 5 "
g x
g omit-generic g args
~ g gf g filenamef oop/goops/describe.scm
- 1 4 ) 9 : ; ) @ K , Q R d g ) r ~ ~ . (
C5 > " G hi6 g m
, g t
4 I g t
g t
g t
g t
J _ g t
g filenamef oop/goops/describe.scm
- #
=
K
P
c
C
y {
{
C6 PK ! $Mͨ oop/goops/util.gonu [ GOOF----LE-8-2.0 ] 5 4 h( ] g guile g define-module* g oop g goops g util
g filenameS f oop/goops/util.scm g importsS
g srfi g srfi-1
g exportsS g mapappend g find-duplicate g map* g for-each* g length* g improper->proper g
re-exportsS g any g every g set-current-module !g
append-map "g memv #g current-module $g module-eval-closure %g
top-level-env &g
procedure? 'g top-level-env? (g call-with-deferred-observers )( *( +g module-export! ,+ -+ .# /# 0'% 1g map 2g car 3g cdr 4g applyC 5 h ]4
5 4 > " G !iR" h( ] ( C4 5$ C 6 g l
$ g filenamef oop/goops/util.scm
!
" $ $ $ $ " $ " % 0 $ % $ g nameg find-duplicate CR#$ h ]45 $ 6C g mod
g filenamef oop/goops/util.scm
( ) ) * + ,
g nameg
top-level-env C%R& h ] ( C 6 g env
g filenamef oop/goops/util.scm
. / / 0 0 g nameg top-level-env? C'R4*-/0 h D ] 45 6 < g filenamef oop/goops/util.scm
2
C> " G 123 h@ - 1 3 ( C$ 4 45?4 45?C @ g fn
@ g l @ g filenamef oop/goops/util.scm
4
6 5 6 7 7 5 7 7 ) ( 7 ) 8 . 8 ) 8 8 9 7 @ 9 @
g nameg map* CR4123 hP - 1 3 ( C$ *4 45> " G 45@ @ g fn
J g l J g filenamef oop/goops/util.scm
;
= < = > > < > > - > : > ? D > + J ? J
g nameg for-each* CRh0 ]" $ "C
" g ls
) g n g ls g filenamef oop/goops/util.scm
A
B D
B B C B ) g nameg length* CR h ] $
4 5C C g ls
g filenamef oop/goops/util.scm
F
G G H
H H ' H H I
g nameg improper->proper CRC g m
0 g filenamef oop/goops/util.scm
7
* !
( . 2 q 4
;
A
F
C6 PK ! +- 1 1 oop/goops/compile.gonu [ GOOF----LE-8-2.0 ] 4 hN ] g guile g define-module* g oop g goops g compile
g filenameS f oop/goops/compile.scm g importsS
g internal
g
re-exportsS g compute-cmethod g set-current-module C 5 h0 W ]4
5 4 > " G C O g m
, g filenamef oop/goops/compile.scm
,
C6 PK ! c/Qu Qu texinfo/reflection.gonu [ GOOF----LE-8-2.09u ], 4 h ] g guile g define-module* g texinfo g
reflection g filenameS
f texinfo/reflection.scm g importsS g srfi
g srfi-1
g selectS g
append-map g oop g goops g
plain-text g srfi-13 g ice-9 g session ! "! #g
documentation $ # %$ &g optargs ' & (' )g sxml *g transform +)* ,g pre-post-order -, .+- / "%(. 0g exportsS 1g module-stexi-documentation 2g script-stexi-documentation 3g object-stexi-documentation 4g package-stexi-standard-copying 5g package-stexi-standard-titlepage 6g package-stexi-generic-menu 7g package-stexi-standard-menu 8g package-stexi-extended-menu 9g package-stexi-standard-prologue :g package-stexi-documentation ;g 'package-stexi-documentation-for-include <123456789:; =g set-current-module >= ?= @g deftp Ag defcv Bg defivar Cg deftypeivar Dg defop Eg deftypeop Fg defmethod Gg
deftypemethod Hg defopt Ig defvr Jg defvar Kg deftypevr Lg
deftypevar Mg deffn Ng deftypefn Og defmac Pg defspec Qg defun Rg
deftypefun S@ABCDEFGHIJKLMNOPQR Tg defs Ug assq Vg name Wg
list-index Xg = Yg < Zg string=? [g string<=? \g string->symbol ]g sort-defs ^g reverse! _g
list*-join `g map ag string? bg object->string cf df . eg process-args fg procedure-arguments gg assq-ref hg required ig optional jg keyword kg rest lg append mg symbol->string ng format of [~a = ~s] pf [~a] qf [#:~a] rf . sg
get-proc-args tg syntax-rules ug procedure-property vg patterns wg identifier-syntax xg defmacro yg
defmacro-args zg macro-arguments {g defspecx |g % }g arguments ~g macro-additional-stexi g make-regexp f ![[:space:]][[:space:]][[:space:]] g many-space? f ^[[:space:]] g initial-space? g string-null? g
*fragment* g string-index g regexp-exec g catch g texi-fragment->stexi g verbatim g
string->stexi g defined? g method-formals g reverse f ( g var g code g
class-name f ) f ... g method-specializers g
method-source g warn g method-stexi-arguments g forceS f [unknown] g object-documentation g is-a? g g method-procedure g g category f Class g g macro-transformer g
macro-type l l g f Method g f Generic g generic-function-methods g memq g string-join g module-name->node-name g
string-append f / g %search-load-path g in-vicinity g module-filename g open-input-file g eof-object? g read g read-module g
define-module g and=> g exportS g cadr g identity g module-export-list g
docs-resolverS g issue-deprecation-warning f Qmodule-stexi-documentation: use #:docs-resolver instead of a positional argument. g module-commentary g string-trim-both g with-output-to-string g display g resolve-interface g title g node g section f Overview f Usage g append! g sort! g
module-map g anchor f variable unbound! f
[unbound!] g file-commentary g basename g add-value-help-handler! g stexi->plain-text g add-name-help-handler! g and-map g symbol? ! ! g copying g para f This manual is for f
(version f
, updated f
Copyright g number->string f , g quotation g titlepage g subtitle f version g author g email g page g vskip g all f 0pt plus 1filll | g
insertcopying g ifnottex f Top V | g top g menu
f * f :: g make-string
g max g
string-length f
g iftex g
shortcontents g cons g car g cdr g dircategory g direntry f : ( f ). r g chapter g *text* g *default* !g stexi->chapter "g module-stexi-documentation-argsS #" $g scriptsS %$ &#% 'g error (f 2expected modules to be a list of a list of symbols )g filename *" +* C 5 hH] ]4
/0<5 4? > " G STRUV h ]4 5C g x
g filenamef texinfo/reflection.scm
> ?
?
= ? ?
? g nameg name C h@ - 1 3 44 L54 L55$ ( CL @4 L54 L56 g proc
@ g eq? @ g < @ g args @ g filenamef texinfo/reflection.scm
F
G
G G G
G & I ' I . J 1 H 8 H @ H
@
g nameg compare-in-order CWT h ] 6 ~ g x
g filenamef texinfo/reflection.scm
@ = A
A
g nameg priority CXYZ[W\UV h ]# O Q 4 4 4
555 $ " I 4 4 4
555 $ " I $ ( C@4 4 4
555 $ " I 4 4 4
555 $ " I C g ordering
g a g b g name g compare-in-order g args ( g t F ` g t | g t g t
g filenamef texinfo/reflection.scm
:
( K + C 0 C 3 ?
7 ? : = < ? @ ?
A ? D C F C F C a C f C i ?
m ? p = r ? v ?
w ? z C | C | C G
G I I J C C ?
? = ? ?
? C C C C C ?
? = ? ?
? C C C H 5 g nameg sort-defs C]R^ hX @ ]" C( 6$ 6(
" " " 8 g l
T g infix T g restfix T g in I g out I g filenamef texinfo/reflection.scm
O
P Q Q R Q " R " % R ( S . S 1 T ' 4 T ! ; U ( @ U ! I S I P L P T P T g nameg
list*-join C_R`ab h q ]4 5$ C 6 i g x
g filenamef texinfo/reflection.scm
X X
X X % C_cd h ]4 $ " 56 g args
g filenamef texinfo/reflection.scm
W
Y Y Y Z Z Y X g nameg process-args CeRfghijkel`mnop h ] $ 6 6 g a
g filenamef texinfo/reflection.scm
j k k l # l / l 7 l m # m
Cnpq h ] $
6 6 g a
g filenamef texinfo/reflection.scm
q r r s # s * s t # t Cr h ])4 5 $ g45454545 44
54 54 5$
4
5 " 56C g proc
z g t z g
required-args 5 x g
optional-args 5 x g keyword-args 5 x g rest-arg 5 x g filenamef texinfo/reflection.scm
\
^ ] ` ` - ` a ! a - # a $ b * b - , b - c 3 c ( 5 c 5 ` @ e C g
L j
U q
c x
e y f y o y t z v e x d z g nameg
get-proc-args CsRetuvwxy hh n ] $ !45 $ " " 7$ " )$ 45 $ " " 6 f g name
g g type g g transformer g g patterns * g t N ` g filenamef texinfo/reflection.scm
|
~ 6 " ' 7 ~ 8 E ~ F
L * N
N ]
e g } g g nameg macro-arguments CzRtuv`{|V}e h u ]L 4 5 C m g x
g filenamef texinfo/reflection.scm
- C h0 # ] $ "45 $ O 6CC g name
/ g type / g transformer / g patterns - g filenamef texinfo/reflection.scm
5 ) + , .
/ g nameg macro-additional-stexi C~R4i5R4i5R h S ] L 6K g filenamef texinfo/reflection.scm
C h _ - 1 3 C W g args
g filenamef texinfo/reflection.scm
C h 4 ] $ 4 5" $ " $ C4 @5 $ " 4 5$ "
4 5 $ 4 O 5" $ C
C , g str
g t g t 3 _ g t w g filenamef texinfo/reflection.scm
+ 3 A M S \ c d w g nameg
string->stexi CR4i5$ i" Rlmc h ^ ])$ " ( 6$ S44 45 44 55
55 "4545 44 55
64 54 5 "J4
5$ " ( 6$ D44 45 45
55 "4545 45
64
5 "a4 > " G C V g method
g formals g specializers g out g formal 1 b g specializer 1 b g bindings ^ g out ^ g arg g filenamef texinfo/reflection.scm
" % & ) . * 1 8 1 7 : C H K ! S V d h r u } !
* % ! ! ) , 4 7 < % > A F K ! N Q Y ; \ 5 ^ ^ _ f h ; p q V g nameg method-stexi-arguments CRmaV@|uP}z~sQM`3 h h ] ML 6 ` g method
g filenamef texinfo/reflection.scm
CJT ( h0 - - / 0 3 H# K# J$
4J5K" 44 5$ 4 5" 5 45$ 4 5" 7" $
" '" "$ & " "" " $ u" A4 5$
J C4 5$ Q4 5 $
45"
J 4J5 44J55C4 5$ #
J 4 5 C4 5$ %
J 4 5 C4 5$ 5
J ! 4"#O 4$ 55C
J %C$ $$ 4&'5$ C"""C % g object
/ g name / g force / g x ^ g stexi / g args g proc @ g type @ g args a p g args g args g args g filenamef texinfo/reflection.scm
= . 2 3 ; @ C O P ^ ^ a k l % - 5 6 " ' .
;
= A M O W & ^ a e g m n q } &
&
c / g forceS g nameg object-stexi-documentation C3R`mc h ]4 56 g sym-name
g filenamef texinfo/reflection.scm
- g nameg module-name->node-name CR`m h n ] 6 f g elt
g filenamef texinfo/reflection.scm
4
!
C hH } ])4 5 45 45 445? 456 u g name
B g name B g reverse-name B g leaf B g dir-hint-module-name # B g dir-hint 3 B g filenamef texinfo/reflection.scm
! ( # # & ) 3 3 8
B
B g nameg module-filename CR hX W ]!4 5 $ B45 " %45$ 645 "45 "C O g name
U g filename U g port S g out C g form C g filenamef texinfo/reflection.scm
) / 4 5 $ C C
D E # S
T U g nameg read-module CR hx ]" c( C $ 4& & $ 4455" " " $ 6 "4 5 " g sym-name
v g forms i g form R g t R i g filenamef texinfo/reflection.scm
$ # & * . / 2 9 < @ R c i i j v v g nameg module-export-list CR h n ]C f g name
g def g filenamef texinfo/reflection.scm
% 0 C h c ]
6 [ g x
g filenamef texinfo/reflection.scm
-
- (
C h S ] L 6K g filenamef texinfo/reflection.scm
1 1
C|V|Vcm3J h l ]
4L4 55 $ 4L 4 55" +4
> " G 4 5
& " C d g sym
g var g x k g filenamef texinfo/reflection.scm
9 :
5 5 5 # 5 :
$ ? ( ? ) @ . B 3 B 0 : B < @ A E E E L E V F [ F ( d F k ; p < r < " v < y = > :
C] h r ]L 6 j g a
g b g filenamef texinfo/reflection.scm
I I C h - / 0 3 # # $ " $ 4> " G " 44 55 45 4 5 4
O 5 4 5 4
5 4444O 5O 5?5C g sym-name
g %docs-resolver g
docs-resolver g
commentary \ g stexi e g node-name n g name-str | g module g export-list g filenamef texinfo/reflection.scm
!
( $ , 8 ) 9 * = + B * O , R , \ , \ , _ . e , h / n , q 0 | , 2 , 3 , K N K P 7 8 7 P K g
docs-resolverS g nameg module-stexi-documentationg
documentationf Return documentation for the module named @var{sym-name}. The
documentation will be formatted as @code{stexi}
(@pxref{texinfo,texinfo}). C1R|V
hX ] 4 5 4 5 4 5 $ 44
55" C g
scriptpath
R g
commentary R g filenamef texinfo/reflection.scm
R
V V
W W W % X . W : Y ; [ > \ H [ I Z N ] O W R g nameg script-stexi-documentationg
documentationf Return documentation for given script. The documentation will be
taken from the script's commentary, and will be returned in the
@code{stexi} format (@pxref{texinfo,texinfo}). C2R4i5$ 4i3 h ]4 56 z g name
g value g filenamef texinfo/reflection.scm
b d c C> " G 4i1 h( ] $ 4 5$ 4 56CC g name
% g filenamef texinfo/reflection.scm
f g g
h g i ! i % C> " G " R`c hH ] 44
5 5
C g name
F g version F g updated F g years F g copyright-holder F g permissions F g filenamef texinfo/reflection.scm
o
u x # x % - x @ / x 1 u F g nameg package-stexi-standard-copyingg
documentationf Create a standard texinfo @code{copying} section.
@var{years} is a list of years (as integers) in which the modules
being documented were released. All other arguments are strings. C4R` h ] C g pair
g filenamef texinfo/reflection.scm
$ C
h0 ] 445 5 C g name
/ g version / g updated / g authors / g filenamef texinfo/reflection.scm
}
& / g nameg package-stexi-standard-titlepageg
documentationf Create a standard GNU title page.
@var{authors} is a list of @code{(@var{name} . @var{email})}
pairs. All other arguments are strings.
Here is an example of the usage of this procedure:
@smallexample
(package-stexi-standard-titlepage
"Foolib"
"3.2"
"26 September 2006"
'(("Alyssa P Hacker" . "alyssa@@example.com"))
'(2004 2005 2006)
"Free Software Foundation, Inc."
"Standard GPL permissions blurb goes here")
@end smallexample
C5R| l`
hH ] $ 6 44 45 5 545CC g entry
A g node > g description > g filenamef texinfo/reflection.scm
( ! ( , 0 1 @ A C h8 ] 44
5? C g name
1 g entries 1 g filenamef texinfo/reflection.scm
) * 1 g nameg package-stexi-generic-menug
documentationf Create a menu from a generic alist of entries, the car of which
should be the node name, and the cdr the description. As an exception,
an entry of @code{#f} will produce a separator. C6R6` h8 ] 4455 4( " 5 6 g name
6 g modules 6 g module-descriptions 6 g
extra-entries 6 g module-entries 4 g filenamef texinfo/reflection.scm
% ( / 8 1 6 6 g nameg package-stexi-standard-menug
documentationf ICreate a standard top node and menu, suitable for processing
by makeinfo. C7R6` h & ] 4445545544455455 44( " ( " 55 6 g name
~ g module-pairs ~ g script-pairs ~ g
extra-entries ~ g module-entries F | g script-entries F | g filenamef texinfo/reflection.scm
# & ' , 1 , ; < F F K X ( b 8 h ( r 8 t ~ ~ g nameg package-stexi-extended-menug
documentationf QCreate an "extended" menu, like the standard menu but with a
section for scripts. C8R|
h@ B ] 4 5C : g name
9 g filename 9 g category 9 g description 9 g copying 9 g titlepage 9 g menu 9 g filenamef texinfo/reflection.scm
9 g nameg package-stexi-standard-prologueg
documentationf Create a standard prologue, suitable for later serialization
to texinfo and .info creation with makeinfo.
Returns a list of stexinfo forms suitable for passing to
@code{package-stexi-documentation} as the prologue. @xref{texinfo
reflection package-stexi-documentation}, @ref{texinfo reflection
package-stexi-standard-titlepage,package-stexi-standard-titlepage},
@ref{texinfo reflection
package-stexi-standard-copying,package-stexi-standard-copying},
and @ref{texinfo reflection
package-stexi-standard-menu,package-stexi-standard-menu}. C9R, g h - 1 3 45C g tag
g attrs g node g body g filenamef texinfo/reflection.scm
* 6
C h n ]C f g tag
g text g filenamef texinfo/reflection.scm
C h _ - 1 3 C W g args
g filenamef texinfo/reflection.scm
C h ] 6 g stexi
g filenamef texinfo/reflection.scm
g nameg stexi->chapter C!R& h0 ]
4 5$ $ C "C g pred
, g l , g t * g filenamef texinfo/reflection.scm
"
) *
, g nameg all C h c ]L 6 [ g x
g filenamef texinfo/reflection.scm
C h S ] LLO L 6 K g filenamef texinfo/reflection.scm
C h _ - 1 3 C W g args
g filenamef texinfo/reflection.scm
C h ] O Q L O 6 g l
g all
g filenamef texinfo/reflection.scm
g nameg verify-modules-list C'(|)!1 h n ]4 L ?6 f g mod
g filenamef texinfo/reflection.scm
C!2 h q ]4 56 i g script
g filenamef texinfo/reflection.scm
C
h @ - / 0 3 # # O Q 4 5$ " 4 > " G 4 4 4
O 54 4
5555C 8 g modules
g name g filename g prologue g epilogue g module-stexi-documentation-args g scripts g verify-modules-list - g filenamef texinfo/reflection.scm
' # / 3 = B F
M W s
g module-stexi-documentation-argsS g scriptsS g nameg package-stexi-documentationg
documentationf 8Create stexi documentation for a @dfn{package}, where a
package is a set of modules that is released together.
@var{modules} is expected to be a list of module names, where a
module name is a list of symbols. The stexi that is returned will
be titled @var{name} and a texinfo filename of @var{filename}.
@var{prologue} and @var{epilogue} are lists of stexi forms that
will be spliced into the output document before and after the
generated modules documentation, respectively.
@xref{texinfo reflection package-stexi-standard-prologue}, to
create a conventional GNU texinfo prologue.
@var{module-stexi-documentation-args} is an optional argument that, if
given, will be added to the argument list when
@code{module-texi-documentation} is called. For example, it might be
useful to define a @code{#:docs-resolver} argument. C:R+
h8 ]
4 5 44 45 5 545C g modname
7 g desc 7 g node 7 g filenamef texinfo/reflection.scm
< = ! =
7 8 8 8 ! 8 % 8 ) 8 * 7 7 C!1 h r ]4 L ?6 j g modname
g filenamef texinfo/reflection.scm
A C B C h@ _ - / 0 3 # 4 54O 5C W g modules
= g module-descriptions = g module-stexi-documentation-args = g filenamef texinfo/reflection.scm
#
% S : ! < , : - A ; : =
g module-stexi-documentation-argsS g nameg 'package-stexi-documentation-for-includeg
documentationf Create stexi documentation for a @dfn{package}, where a
package is a set of modules that is released together.
@var{modules} is expected to be a list of module names, where a
module name is a list of symbols. Returns an stexinfo fragment.
Unlike @code{package-stexi-documentation}, this function simply produces
a menu and the module documentations instead of producing a full texinfo
document. This can be useful if you write part of your manual by hand,
and just use @code{@@include} to pull in the automatically generated
parts.
@var{module-stexi-documentation-args} is an optional argument that, if
given, will be added to the argument list when
@code{module-texi-documentation} is called. For example, it might be
useful to define a @code{#:docs-resolver} argument. C;RC g m
, g filenamef texinfo/reflection.scm
. 6 1 5
:
O
7 W
, \
! |
F
G M ! O R
S Y $ [ ^
/
0 6 8 < H
a
#
$y
&
(
*
3; !
5 R
5 ` 5 ` 5 ` 5 _
5 a 6p e 7a m
9 o
= }
@
B
E
Im
L>
V
]B #
0 ]D
C6 PK ! /\.> .> texinfo/html.gonu [ GOOF----LE-8-2.0> ]^ 4 hp ] g guile g define-module* g texinfo g html g filenameS
f texinfo/html.scm g importsS
g sxml g transform g ice-9 g match g srfi g srfi-13
g exportsS g stexi->shtml g add-ref-resolver! g urlify g set-current-module ! " #g and=> $g assq %g arg-ref &g error 'f Missing argument: (g arg-req )g car* *g string-downcase +g
string-map ,g
string-append -f .f # /g
ref-resolvers 0g or-map 1f Could not resolve reference 2g resolve-ref 3g node 4g section 5g manual 6g span 7g xref 8f See 978 :g pxref ;f see <:; =9< >g cdr ?g a @g @ Ag href Bg ref Cg url Dg title Eg uref Fg name G- Hg defun If Function Jg defspec Kf Special Form Lg defvar Mf Variable Ng category Og div Pg table Qg cellpadding Rf 0 SQR Tg cellspacing UTR Vg width Wf 100% XVW Yg class Zf def [YZ \@SUX[ ]g tr ^g td _g data-type `g code ag b bg deftypeop cg deftypefn dg
deftypefun eg arguments fg var gg reverse! hf if right jYi k@j lf [ mf ] nm of description pYo q@p rg def sg ol tg % ug start vg
string-ref wg number? xg string->number yg
char->integer zg char-upper-case? {g enumerate |g ul }g itemize ~g acronym & & f no matching pattern g formatter g dl g map g dt g append g dd g itemx g heading g entry g titlepage f titlepage Y @ O g h2 f title Y @ D g subtitle g h3 f subtitle Y @ g author f author Y @ g example g pre g lisp g smallexample f smaller Y @ g smalllisp g cartouche f cartouche Y @ O g verbatim f verbatim Y @ g chapter 4 g
subsection g h4 g
subsubsection g h5 g appendix g appendixsec g appendixsubsec g appendixsubsubsec g
unnumbered g
unnumberedsec g unnumberedsubsec g unnumberedsubsubsec g majorheading g chapheading g
subheading g
subsubheading g quotation g
blockquote g item g li g para g p g
*fragment* O g asis 6 g bold a g sample g samp `` g kbd g key f key Y @ ` ff g env f env Y @ ` g file f file Y @ ` g command f command Y @ ` g option f option Y @ ` f url Y
@ C`
g dfn
g cite g acro ~ g email f email Y @ ` g emph g em g strong g sc f
small-caps Y @ 6 !
3 "g tag-replacements #g page $g setfilename %g setchapternewpage &g iftex 'g ifinfo (g ifplaintext )g ifxml *g sp +g vskip ,g menu -g ignore .g syncodeindex /g comment 0g c 1g dircategory 2g direntry 3g top 4g
shortcontents 5g cindex 6g
printindex 7#$%&'()*+,-./0123456 8g ignore-list 9g
*preorder* :g pre-post-order ;g xmlns @= ?g head @g body Ag *text* Bg *default* Cg copyright Dg *ENTITY* Ef copy FDE Gg result Hf rArr IDH Jg anchor Kg deftp Lg defcv Mg defivar Ng deftypeivar Og defop Pg defmethod Qg
deftypemethod Rg defopt Sg defvr Tg deftypevr Ug
deftypevar Vg deffn Wg defmac Xg ifnottex Yg memq Zg warn [f Don't know how to convert \f to HTML ]g rulesC 5 h& $ ]4
5 4" > " G #$ h c ] 6 [ g x
g filenamef texinfo/html.scm
/ ! / ; / - C h ]4 56 g key
g %-args g filenamef texinfo/html.scm
.
/ / / / g nameg arg-ref C%R%&' h ]
4 5 $ C 6 g key
g %-args g t g filenamef texinfo/html.scm
0
1 1 2
2 g nameg arg-req C(Rh s ] $ CC k g x
g filenamef texinfo/html.scm
3
3 3 g nameg car* C)R*+ h0 [ ] $ " /$ " :$ -C C S g c
- g filenamef texinfo/html.scm
8 9 - C h w ]4 56 o g str
g filenamef texinfo/html.scm
5
7 6 g nameg urlify C R ,-. h ]4$ " 56 g node-name
g manual-name g filenamef texinfo/html.scm
@ A
A A , A 0 A
A C /R/ h ] C g proc
g filenamef texinfo/html.scm
C
K K g nameg add-ref-resolver!g
documentationf XAdd @var{proc} to the head of the list of ref-resolvers. @var{proc}
will be expected to take the name of a node and the name of a manual and
return the URL of the referent, or @code{#f} to pass control to the next
ref-resolver in the list.
The default ref-resolver will return the concatenation of the manual
name, @code{#}, and the node name. C R0 h [ ] LL 6 S g x
g filenamef texinfo/html.scm
N
N
C/&1 h( ]
4 O 5 $ C 6 g node
' g manual ' g t ' g filenamef texinfo/html.scm
M
N N ! O
' O ' g nameg resolve-ref C2R(3)%4526#$=>?@A hx ]"45 4455 $ " 4455 45 4 4
5 5
C g tag
u g args u g node u g t / g section / u g manual ? u g target J u g filenamef texinfo/html.scm
Q
R R R R R S S S % S S S / R 2 T 5 T 9 T = T ? T ? R B U J R N V O V R V X V Z V ^ V ` V u g nameg ref CBR(C?@A)%D hH ]45 4455 $ " C g tag
A g args A g url A g t * = g filenamef texinfo/html.scm
Y
Z Z Z Z
Z [ [ [ # $ [ , ( [ # * [ * [ @ [ A g nameg uref CER?@F (G h( ]4455 C g tag
" g args " g filenamef texinfo/html.scm
_
` ` ` ` & ` ` ` `
" g nameg node C3RHIJKLM(NOP\]^%_`YaFbcdefghklnq h 6 - 1 3 $ " ( $ " $ "
45
45 $ " 45 $ " $ " 45 $ " $ " & " & " $ "45 $ " " 645 $ " $ " " E( 45" ?(
"( " " "
C . g tag
g args g body g category @ g x U j g x s g x g x g x g x g x $ 9 g x < Q g elts T g in Z g out Z g filenamef texinfo/html.scm
b
u v ! u # w 0 u 2 x 7 y ; y ) ? y @ y @ u D z M n Q n U n U n ] c _ c b c k o o o ) s o s o { c } c c o o e e e p p ) p p c c c p p e e e q q r r $ r r
c c c s & s / $ s & $ s , c . c 1 c < s < s D d F d I d T n Z g ` h a h n i r h u i " i j k l l 6 l 0 k j g g g z U
g nameg def CrRst@u(vwxyz h - 1 3 $ $ s& c45 4
5 45$ 45" !4 54 4
5$ A" a5 " " " C g tag
g elts g start 2 { g c < x g filenamef texinfo/html.scm
&
7 C $
& ) * - 3 0 : 2 * 2 5
< ?
I J U \ _ , i ( s t u |
!
g nameg enumerate C{R|t hX - 1 3 $ = $ & " " " C g tag
S g elts S g w K g x K g w & ? g filenamef texinfo/html.scm
R S
g nameg itemize C}Rt~ h - 1 3 $ ( $ & $ q $ T & 5$ !(
C456 456 456 456 456 456 456 456 456 g tag
g elts g w g w ) g x ) g w ? g w R g x R g w o y g filenamef texinfo/html.scm
s z
g nameg acronym C~R( h( ] $ &
L C C C g x
% g filenamef texinfo/html.scm
, 4 6 & % C h0 - 1 3 45 4O 4?5C g tag
- g args - g body - g formatter - g filenamef texinfo/html.scm
"
# +
, -
g nameg table CPR ( h - 1 3 " ^" 45 6$ :$ .& 4455 """"45 " g tag
g args g body g out
k g body
k g filenamef texinfo/html.scm
! & & )
- 0 ! 1 5 8 2 ; > ? @ F G N 1 Q R T W _ k m n r ! v w
g nameg entry CR!"R78Rt9 h Y - 1 3 C Q g args
g filenamef texinfo/html.scm
C:>?D(@t9 h Y - 1 3 C Q g args
g filenamef texinfo/html.scm
(
CA h e ]C ] g tag
g x g filenamef texinfo/html.scm
( CB h r - 1 3 C j g tag
g body g filenamef texinfo/html.scm
( *
C hH - 1 3 45
6 g tag
B g args B g body B g filenamef texinfo/html.scm
* 3 * % - B
B
CCF h b - 1 3 C Z g args
g filenamef texinfo/html.scm
CGI h b - 1 3 C Z g args
g filenamef texinfo/html.scm
C7BiBBi:BiEEi33iJ3iPPi{{i}}i~~i9iKriLriMriNriOribriPriQriRriSriLriTriUriVricriWriJriHridriX h i - 1 3 C a g tag
g body g filenamef texinfo/html.scm
CA h e ]C ] g tag
g x g filenamef texinfo/html.scm
CB$"Y8Z[\ hP - 1 3 4 5 $ 64 5$ C4 > " G C g tag
K g body K g subst K g filenamef texinfo/html.scm
! & # $ 0 3
7
;
> @
K
C %]R:] h ] 6 g tree
g filenamef texinfo/html.scm
g nameg stexi->shtmlg
documentationf ~Transform the stexi @var{tree} into shtml, resolving references via
ref-resolvers. See the module commentary for more details. C RC g m
, g filenamef texinfo/html.scm &
w .
^ 0
3
" 5
? >
C
M
Q
J Y
J _
b
(
_
t
%
&
&
C6 PK ! p)z"B "B texinfo/plain-text.gonu [ GOOF----LE-8-2.0
B ] 4 hC ] g guile g define-module* g texinfo g
plain-text g filenameS
f texinfo/plain-text.scm g importsS
g string-utils g sxml g transform g srfi g srfi-1 g srfi-13 g ice-9 g match
!g exportsS "g stexi->plain-text #" $g set-current-module %$ &$ 'g and=> (g assq )g cdr *g arg-ref +g error ,f Missing argument: -g arg-req .g make-ticker /g format 0f ~A. 1g make-enumerator 2g
make-fluid 3f 4g *indent* 5f * 6g
*itemizer* 7g make-syntax-transformer 87 97 :g with-indent ;g macro < ?g _ @g any A?@ Bg
syntax->datum CB DB Eg
datum->syntax FE GE Hg with-fluids Ig
string-append Jg fluid-ref KJ4 Lg make-string M Ng syntax-violation ON PN Qf -source expression failed to match any pattern Rg apply Sg
make-indenter Tf
Ug
string-indent Vg
with-itemizer Wg fill-string Xg string-concatenate Yg
line-widthS Zg initial-indentS [g subsequent-indentS \g wrap* ]f
^g wrap _g wrap-heading `g node ag name bg manual cg xref df See ecd fg pxref gf see hfg ieh jg cadr kf in manual lg ref mg url ng title of ( pf ) qf ` rf ' sg uref tg defun uf Function vg defspec wf Special Form xg defvar yf Variable zg category {f - |f : }g string-join ~g filter g identity g map g data-type g class g arguments a f g def g % g start g
string-ref g number? g string->number g
char->integer g char-upper-case? g enumerate g itemize g
string-length g string-null? g string-copy! g item g table g heading g entry g make-underliner g chapter g section g
subsection g
subsubsection g string-split g example g verbatim g map-in-order g fragment g para g make-surrounder g code f < f > g key g
string-upcase g var g passthrough g foo g page g setfilename g setchapternewpage g iftex g ifinfo g ifplaintext g ifxml g sp g vskip g menu g ignore g syncodeindex g comment g c g anchor ` g ignore-list g memq g ignored? g appendix g appendixsec g appendixsubsec g appendixsubsubsec g
unnumbered g
unnumberedsec g unnumberedsubsec g unnumberedsubsubsec g majorheading g chapheading g
subheading g
subsubheading g strong f * g sample g samp g math g kbd g env g file g command g option g dfn f " g cite g acro g email g emph f _ g sc g copyright f (C) g result f ==> g dots f ... g quotation g lisp g smallexample g smalllisp g
*fragment* g deftp g defcv g defivar g deftypeivar g defop g deftypeop g defmethod g
deftypemethod g defopt g defvr g deftypevr g
deftypevar g deffn g deftypefn g defmac g
deftypefun g tag-handlers g string?C 5h. ]4
!#5 4& > " G '()" h ]44 556 g key
g %-args g filenamef texinfo/plain-text.scm
%
& & & & & & g nameg arg-ref C*R*+, h ]
4 5 $ C 6 g key
g %-args g t g filenamef texinfo/plain-text.scm
(
) ) *
* g nameg arg-req C-R h I ] L C A g filenamef texinfo/plain-text.scm
-
C h r ] O C j g str
g filenamef texinfo/plain-text.scm
,
g nameg make-ticker C.R/0 h ]M M N 6 | g last
g filenamef texinfo/plain-text.scm
/ 0 1 1 2 2
C h t ] H O C l g n
g filenamef texinfo/plain-text.scm
.
g nameg make-enumerator C1R42i354R42i4.i5556R49:;>ADGH4IKLM h( s - 1 3 C k g n
' g body ' g filenamef texinfo/plain-text.scm
7
8 '
C h j ] 4 5 L 4?6b g args
g v g filenamef texinfo/plain-text.scm 7
CPQ h( h ] 4 5 $ O @ 6 ` g y
' g tmp ' g filenamef texinfo/plain-text.scm
7
' C5:R4ILR h0 f - 1 3 4[4L 55Y4L > ZCZF ^ g args
. g filenamef texinfo/plain-text.scm
= = .
C h ] O C | g n
g proc g filenamef texinfo/plain-text.scm
<
g nameg
make-indenter CSRI4T h ][ 6 | g str
g filenamef texinfo/plain-text.scm
?
@ *
@
g nameg
string-indent CUR49V;>ADGH6 h z - 1 3 C r g itemizer
g body g filenamef texinfo/plain-text.scm
B
C
C h j ] 4 5 L 4?6b g args
g v g filenamef texinfo/plain-text.scm B
CPQ h( h ] 4 5 $ O @ 6 ` g y
' g tmp ' g filenamef texinfo/plain-text.scm
B
' C5VR4WXYZ[ h( - 1 3 [ 4 5 H6 g strings
% g indent % g filenamef texinfo/plain-text.scm
F
G H % H %
g nameg wrap* C\RI\] h - 1 3 4 ?6 g strings
g filenamef texinfo/plain-text.scm
K
L L ' L
g nameg wrap C^RI\T h - 1 3 4 ?6 g strings
g filenamef texinfo/plain-text.scm
M
N N ' N
g nameg wrap-heading C_R-`*abX'(ij3k
hx ]"45 45 $ " 45 44 5
5 $ " $ " 6 g tag
s g args s g node s g t ) g name ) s g manual 4 s g t H [ g filenamef texinfo/plain-text.scm
P
Q Q Q Q R R R R ) Q , S 0 S 4 S 4 Q 9 V
< V B V D V H V
H V X V B c X e X o X * p U s T s g nameg ref ClR-m*nIopqr
h8 ]4545 $ 6 6 g tag
4 g args 4 g url 4 g title 4 g filenamef texinfo/plain-text.scm
Z
[
[ [
\ \ \ [ ] $ ^ ( ^ & * ^ . _ 2 _ 4 _ 4 g nameg uref CsRtuvwxy-zI_{|}~* h a ] L 6 Y g x
g filenamef texinfo/plain-text.scm
e
e
C4L" h ~ - 1 3 $ " ' $ " $ " 45 4
4 4
44O 555554 [4 55Y45Z6 v g tag
g args g body g category ? g filenamef texinfo/plain-text.scm
a
i j ! i # k 0 i 2 l 7 m ; m $ ? m ? i D o G o K o " O o 1 P c S d X e
c f e e
g d i g k c m o o o p n
g nameg def CR*614IL" h - 1 3 $ $ " " $ 45" 4$ H4
5 45$ 45" !4 54 4
5$ A" a5 " 5Y 4 [4
55Y4$ " > Z" ZCZF g tag
g elts g args? ) g start @ g c U g filenamef texinfo/plain-text.scm
r
x x x ) x " x y y & y ) x 1 z 2 z 6 z $ 9 z + ; z @ x E { M { $ N t
U t X u
b u c u n v u w x w , w ( w v v { } } } % } $
g nameg enumerate CR6.54IL" h@ - 1 3 45Y4[4 55Y4> Z" ZCZF g tag
= g args = g elts = g filenamef texinfo/plain-text.scm
* =
g nameg itemize CR"64 hh 6 - 1 3 45 4[5 4[545 45$ "
$ 4> " G " C . g tag
b g elts b g ret b g tick b g tick-pos * b g filenamef texinfo/plain-text.scm
# * * - 7 ? + A & E F b
g nameg item CR" h - 1 3 6 g tag
g args g body g filenamef texinfo/plain-text.scm
g nameg table CR_"-I4L hH - 1 3 444555 4[4 55Y45Z6 g tag
A g args A g body A g heading A g filenamef texinfo/plain-text.scm
% . % 8 " A A
g nameg entry CR"ITUL h8 - 1 3 45 454445L 556 g tag
4 g body 4 g str 4 g filenamef texinfo/plain-text.scm
! $ # . 0 2 4
4
C h x ] O C p g char
g filenamef texinfo/plain-text.scm
g nameg make-underliner CR4i*5R4i=5R4i-5R4i.5R"IX4LUT
hH - 1 3 45 44[4 55Y44
55Z5 6 g tag
C g body C g ret C g filenamef texinfo/plain-text.scm
- 2 ( < ? A C C
g nameg example CR"IXUT h0 - 1 3 45 444
5556 g tag
- g body - g ret - g filenamef texinfo/plain-text.scm
' ) + - -
g nameg verbatim CRX" h - 1 3 456 g tag
g body g filenamef texinfo/plain-text.scm
g nameg fragment CR^" h - 1 3 456 g tag
g body g filenamef texinfo/plain-text.scm
g nameg para CRI" h - 1 3 L 45L 6y g tag
g body g filenamef texinfo/plain-text.scm
C h w ] O C o g str
g filenamef texinfo/plain-text.scm
g nameg make-surrounder CRIq"r h - 1 3 456 g tag
g body g filenamef texinfo/plain-text.scm
.
g nameg code CRI" h - 1 3 456 g tag
g body g filenamef texinfo/plain-text.scm
.
g nameg key CR" h - 1 3 456 g tag
g body g filenamef texinfo/plain-text.scm
g nameg var CR" h - 1 3 6 g tag
g body g filenamef texinfo/plain-text.scm
g nameg passthrough CR-nI" h( - 1 3 4455 456 g tag
( g args ( g body ( g title ( g filenamef texinfo/plain-text.scm
& ( (
g nameg texinfo CRR h y ] 6 q g tag
g filenamef texinfo/plain-text.scm
g nameg ignored? CRni i i i i i i i i i i i i i i i i i 4i5 i i i i i i i i i i i mi 4i5 4i5 i i 4i5 i h h - 1 3 C ` g args
g filenamef texinfo/plain-text.scm
C h h - 1 3 C ` g args
g filenamef texinfo/plain-text.scm
C h h - 1 3 C ` g args
g filenamef texinfo/plain-text.scm
C cli lli fli ssi i 4Si i5 i i i i i i i i i i i i i i i i i i i i i xi i i i i i vi ti i LR3'(jX" h ] ( C4 5$ C $ $ b$ D45$ " #4455 $ " $ @C $
4
56C $
4
56C $
4
56C g tree
g w & g x & g t X k g handler k | g filenamef texinfo/plain-text.scm
#
%
& % 9 ) C ) I * L * $ X * X * k ) s , y - { . % 0 0 1 % 0 0 1 % 0 0 1 g nameg stexi->plain-textg
documentationf 7Transform @var{tree} into plain text. Returns a string. C"RC g m
, g filenamef texinfo/plain-text.scm
%
(
,
7 .
8 4 > 4 @ 4 C 4
D 5 I 5 O 5 , Q 5 S 5 V 5
<
_ ?
@ F
K
M
P
l Z
9 a
r
,
g
h
!,
"r
#F
$
$
%
&
& &
'|
'~ (! (' $ () (, ( ( $ ( ( ( ( $ ( ( ( ( $ ( ( * * +
. #
H .
C6 PK ! WS& S& texinfo/docbook.gonu [ GOOF----LE-8-2.0;& ] 4 h ] g guile g define-module* g texinfo g docbook g filenameS
f texinfo/docbook.scm g importsS g sxml
g fold
g srfi g srfi-1 g selectS
g exportsS g *sdocbook->stexi-rules* g *sdocbook-block-commands* g sdocbook-flatten g filter-empty-elements g replace-titles g set-current-module !g identity "g @ #g identity-deattr $g detag-one %g parameter &g var '%& (g replaceable )(& *g type +g code ,*+ -g function .-+ /g literal 0g samp 1/0 2g emphasis 3g emph 423 5g simpara 6g para 756 8g programlisting 9g example :89 ;g firstterm g filename ?g file @>? Ag quote Bg cite CAB Dg application EDB Fg symbol GF+ Hg note Ig cartouche JHI Kg envar Lg env MKL N'),.147:=@CEGJM Og tag-replacements Pg ignore-list Qg with-output-to-string Rg write Sg stringify Tg
*preorder* Ug % Vg orderedlist Wg listitem Xg item Yg enumerate Zg itemizedlist [g itemize \g acronym ]g term ^g informalexample _g section `g
subsection ag
subsubsection bg ulink cg assq dg url eg uref fg title gg *text* hg *default* ig append jg warn kf Ignoring lf
attributes mg memq nf Don't know how to convert of to stexi pg c qg all rg indexterm sg variablelist tg refsect1 ug refsect2 vg refsect3 wg refsect4 xg
informaltable y68^rsVtuvwf9HZx zg inline-command? {i |i }g reverse ~g foldts*-values g chapter t u_ v` wa C 5h ]4
5 4 > " G h o - 1 3 C g g args
g filenamef texinfo/docbook.scm
(
g nameg identity C!R" h@ - 1 3 $ %$ & " " " C g tag
; g body ; g filenamef texinfo/docbook.scm
+
, , , ( , ! , - - % $ , ' . : , ;
g nameg identity-deattr C#R h ]C w g tag
g body g filenamef texinfo/docbook.scm
1
g nameg detag-one C$RNORPRQR h N ] L 6F g filenamef texinfo/docbook.scm
H H $
C h u ] O 6 m g exp
g filenamef texinfo/docbook.scm
G
H
g nameg stringify CSR"T!iUT!i6#iVWX h s - 1 3 C k g tag
g body g filenamef texinfo/docbook.scm
R S
C Y h s - 1 3 C k g tag
g body g filenamef texinfo/docbook.scm
T U
CZWX h s - 1 3 C k g tag
g body g filenamef texinfo/docbook.scm
W X
C [ h s - 1 3 C k g tag
g body g filenamef texinfo/docbook.scm
Y Z
C\\U h s - 1 3 C k g tag
g body g filenamef texinfo/docbook.scm
[ \
C]$i^$i_!i`!ia!ibcdeUf h8 - 1 3 45 $ CC g tag
1 g attrs 1 g body 1 g t 1 g filenamef texinfo/docbook.scm
b
d d d d c f 0 h 1
Cg$ihcOi"jklmPnopUqS h - 1 3 4 5 $ U" 6$ =$ 1& #4 > " G 6"""4 5$ C4
> " G
4 5 C g tag
g body g subst g filenamef texinfo/docbook.scm
j
k ! k l # r $ ' r ' n * n ! . n 1 n 5 2 n . 6 n 9 n F < n R @ n A p E p $ I p 3 L p @ Q p ^ q & a q 2 c q p s | l u u u > u v v % v 0 v % v #
C RyRm h ]4 5C g command
g filenamef texinfo/docbook.scm
g nameg inline-command? CzRU|} h( ]L4L $ L " 4 55D g accum
% g block % g filenamef texinfo/docbook.scm
( 5 % % C hX n ] $ & $ & " " " $ " O D f g node
V g accum V g block V g cont V g command 4 V g attrs 4 V g filenamef texinfo/docbook.scm
0 ) ( ! $ 4 > A I $ J K V V g nameg fdown C~zi hH y ]4> G 45$ 45D45D q g node
F g paccum F g pblock F g pcont F g kaccum F g kblock F g kcont F g ret F g block F g filenamef texinfo/docbook.scm
! " ' ( & 4 7 @ * B F F g nameg fup C h ] D g str
g accum
g block
g cont
g filenamef texinfo/docbook.scm
g nameg fhere C} h0 " ]! 4 > G 6 g sdocbook
) g fdown ) g accum ) g block ) g cont ) g filenamef texinfo/docbook.scm
: > ) ) g nameg sdocbook-flatteng
documentationf "Flatten" a fragment of sdocbook so that block elements do not nest
inside each other.
Docbook is a nested format, where e.g. a @code{refsect2} normally
appears inside a @code{refsect1}. Logical divisions in the document are
represented via the tree topology; a @code{refsect2} element
@emph{contains} all of the elements in its section.
On the contrary, texinfo is a flat format, in which sections are marked
off by standalone section headers like @code{@@chapter}, and block
elements do not nest inside each other.
This function takes a nested sdocbook fragment @var{sdocbook} and
flattens all of the sections, such that e.g.
@example
(refsect1 (refsect2 (para "Hello")))
@end example
becomes
@example
((refsect1) (refsect2) (para "Hello"))
@end example
Oftentimes (always?) sectioning elements have @code{} as their
first element child; users interested in processing the @code{refsect*}
elements into proper sectioning elements like @code{chapter} might be
interested in @code{replace-titles} and @code{filter-empty-elements}.
@xref{texinfo docbook replace-titles,,replace-titles}, and @ref{texinfo
docbook filter-empty-elements,,filter-empty-elements}.
Returns a nodeset, as described in @ref{sxml xpath}. That is to say,
this function returns an untagged list of stexi elements. CR}
h( ]" C $ ( C"" g x
% g rest % g filenamef texinfo/docbook.scm
% C h ]4 56 g sdocbook
g filenamef texinfo/docbook.scm
g nameg filter-empty-elementsg
documentationf gFilters out empty elements in an sdocbook nodeset. Mostly useful
after running @code{sdocbook-flatten}. CR}c hh ]" U( 6$ 45" $ " " " g sdocbook-fragment
f g in [ g out [ g t * [ g filenamef texinfo/docbook.scm
" # % * 5 9 " < / ? B J M
P S [ [ ^ ' f f g nameg replace-titlesg
documentationf rIterate over the sdocbook nodeset @var{sdocbook-fragment},
transforming contiguous @code{refsect} and @code{title} elements into
the appropriate texinfo sectioning command. Most useful after having run
@code{sdocbook-flatten}.
For example:
@example
(replace-titles '((refsect1) (title "Foo") (para "Bar.")))
@result{} '((chapter "Foo") (para "Bar."))
@end example
C RC g m
, g filenamef texinfo/docbook.scm
(
+
1
5 4
E E
G
N
q J
s
v
%
#
C6 PK ! S7~? ~? texinfo/serialize.gonu [ GOOF----LE-8-2.0f? ] 4 hw ] g guile g define-module* g texinfo g serialize g filenameS
f texinfo/serialize.scm g importsS
g string-utils g sxml g transform g srfi g srfi-1 g srfi-13
g exportsS g stexi->texi g set-current-module ! " #g reverse $g list-intersperse %g reverse! &g filter* 'g append (g list* )f
*f +f @ ,g include -g
empty-command .g string=? /f *braces* 0f @} 1g
append-map 2f @{ 3f } 4f { 5g inline-text 6g map 7g warn 8f Strange inline-args! 9g error :f Invalid inline-args ;f <g
drop-while =g not >g assq-ref ?f , @g inline-args A? Bg inline-text-args C* Dg serialize-text-args Eg
eol-text-args Fg eol-text Gf , Hg eol-args If @bye
Jf
@c %**end of header
Kg title Lf
@settitle Mg and=> Ng filename Of
@setfilename Pf 8\input texinfo @c -*-texinfo-*-
@c %**start of header
Qf
Rf @end Sg
string-ref Tg
string-length Ug environ Vg symbol->string Wg
table-environ Xg fill-string Yg string-concatenate Zg
line-widthS [g break-long-words?S \g wrap ]g paragraph ^f @item
_g item `f @item ag entry bf
@c %end of fragment
cf
@c %start of fragment
dg fragment eg
EMPTY-COMMAND fg INLINE-TEXT gg INLINE-ARGS hg INLINE-TEXT-ARGS ig EOL-TEXT jg
EOL-TEXT-ARGS kg INDEX lg EOL-ARGS mg ENVIRON ng
TABLE-ENVIRON og ENTRY pg ITEM qg PARAGRAPH rg FRAGMENT sg serializers tf Unknown command type u}{@ vg
escaped-chars wg string xg memq yg string->list zg escape {g string-concatenate-reverse |g string? }g assq ~g texi-command-specs g symbol? g % f $Unknown stexi command, not rendering f
Invalid stexiC 5 h5 < ]4
5 4" > " G # h@ ] ( C" ( 6 " " g src-l
@ g elem @ g l / g dest / g filenamef texinfo/serialize.scm
"
# $ % % & ! & & & ( ' & / & / $ 2 $ 5 $ - 8 $ 9 @ $ @ g nameg list-intersperse C$R% hh F ]" U( 6$ #4 5$
" "4 5$ " " " > g pred
f g l f g in [ g out [ g filenamef texinfo/serialize.scm
)
* + , - + . . " . " $ . ( . + . 2 . . , < . = 0 > 0 H 0 M 0 ! [ 0 [ * ^ * f * f g nameg filter* C&R#' hx z - 1 3 4 5 " K( C$ 45 "(
" " " r g args
s g args s g tail s g in f g out f g filenamef texinfo/serialize.scm
3
4 4 5 4 6 ! 7 ' 8 ( 8
, 7 / 8 " 0 8 + 5 8 3 9 8 + A 8 D 9 H 7 K 9 " U 9 X : [ : % ^ : f : f 6 i 6 s 6 s
g nameg list* C(R()$*+ h ]456 g exp
g lp g command g type g formals g args g accum g filenamef texinfo/serialize.scm
? @ A
C A D D @ g nameg include C,R(*+ h ]6 g exp
g lp g command g type g formals g args g accum g filenamef texinfo/serialize.scm
F
G
G G g nameg
empty-command C-R./(01 h h ]L 6 ` g x
g filenamef texinfo/serialize.scm
O O + O % C#23h h ]L 6 ` g x
g filenamef texinfo/serialize.scm
L L + L % C4+
hP ]45$ 4O 4 556 4
O 4 55 6 g exp
O g lp O g command O g type O g formals O g args O g accum O g filenamef texinfo/serialize.scm
I
J J J J N
O
O 1 # O : % O 1 ' O
) P
- N 1 K
2 L
< L 1 A L : C L 1 E L
G M
K M O K O g nameg inline-text C5R(3$6789:; h@ ] $ 3 $ $ $ 4L > " G " CL 6C g x
> g filenamef texinfo/serialize.scm
W X Y X Z # Z Z [ [ " # [ 2 \ 7 ] $ ; ] = X > C<=> h ` ]L 6 X g x
g filenamef texinfo/serialize.scm
_
_ ,
C#?;4+ hP b ]$ 144O 44O 4 5555
5"
6 Z g exp
I g lp I g command I g type I g formals I g args I g accum I g filenamef texinfo/serialize.scm
R
S T
U
V ^ _ ) ` 1 _ 3 ^ 5 V 7 a 9 U
? T A b E b I S I g nameg inline-args C@R(3'$61 h h ]L 6 ` g x
g filenamef texinfo/serialize.scm
k ( k : k 4 C# h h ]L O 4 56 ` g x
g filenamef texinfo/serialize.scm
k k @ k C<=> h ` ]L 6 X g x
g filenamef texinfo/serialize.scm
m !
m -
C#A;4+ hP w ]$ 6444O 44 O 4
5555 5?"
6 o g exp
N g lp N g command N g type N g formals N g args N g accum N g filenamef texinfo/serialize.scm
d
e f
g
i j l " m , n ! 4 m 6 l 8 j : o < i > g
D f F p J p N e N g nameg inline-text-args CBR'$61 h h ]L 6 ` g x
g filenamef texinfo/serialize.scm
v # v 5 v / C h b ]L O 6 Z g arg
g filenamef texinfo/serialize.scm
v v C#<=> h ` ]L 6 X g x
g filenamef texinfo/serialize.scm
z
z
CC
h@ ]44 O 444O 455555 5@ g lp
: g formals : g args : g filenamef texinfo/serialize.scm
r
u v w y
z & { . z 0 y
2 w 4 v 6 | 8 u : s : g nameg serialize-text-args CDR()D*+ h ]456 g exp
g lp g command g type g formals g args g accum g filenamef texinfo/serialize.scm
~
g nameg
eol-text-args CER()1 h k ]L 6 c g x
g filenamef texinfo/serialize.scm
' ! C#*+ h8 C ]4O 4$ " 556 ; g exp
2 g lp 2 g command 2 g type 2 g formals 2 g args 2 g accum 2 g filenamef texinfo/serialize.scm
' $ 2 & ( * . 2
2 g nameg eol-text CFR()$'<=6> h b ]L 6 Z g x
g filenamef texinfo/serialize.scm
"
.
C#G*+
h8 ^ ]4444O 4 555?
5 6 V g exp
6 g lp 6 g command 6 g type 6 g formals 6 g args 6 g accum 6 g filenamef texinfo/serialize.scm
" $ & (
*
, . 2 6 6 g nameg eol-args CHR(I1 h k ]L 6 c g x
g filenamef texinfo/serialize.scm
* $ C#J>KLMN)#O h ]4 5C g filename
g filenamef texinfo/serialize.scm
$ 3 - $ C;PQRh k ]L 6 c g x
g filenamef texinfo/serialize.scm
$ 6 0 CST)D*+ h ] $ T4O 4 5544 55
4 4 5
5 $ " 64O 4$ " 55 ( " 4455
$ " 456
g exp
g lp g command g type g formals g args g accum g key g t K ^ g body
g filenamef texinfo/serialize.scm
0 $ 9 ' 0 ) + , / 5 $ 7 9 ; - < ? E & G K K [ ` d h l m w $ - 6 A $ ( , ; , ( 6 g nameg environ CUR(QR1 h k ]L 6 c g x
g filenamef texinfo/serialize.scm
' ! C#);V+* hh ]4O 4$ " 55$ " $ 4 5
"
6
g exp
h g lp h g command h g type h g formals h g args h g accum h g arg ? ^ g filenamef texinfo/serialize.scm
' ( 2 * , . 4 7 ? + ? D H I N % P R 0 U ` d h h g nameg
table-environ CWRXYZ[ h ]4 5 H6 y g strings
g filenamef texinfo/serialize.scm
g nameg wrap C\R(Q\#1 h k ]L 6 c g x
g filenamef texinfo/serialize.scm
) # C h( D ]444O 4 55556< g exp
( g lp ( g command ( g type ( g formals ( g args ( g accum ( g filenamef texinfo/serialize.scm
/ 8 / "
$ (
( g nameg paragraph C]R(1 h k ]L 6 c g x
g filenamef texinfo/serialize.scm
' ! C#^ h ]4O 4 556 g exp
g lp g command g type g formals g args g accum g filenamef texinfo/serialize.scm
- 6 - g nameg item C_R(1 h k ]L 6 c g x
g filenamef texinfo/serialize.scm
' ! C#) h k ]L 6 c g x
g filenamef texinfo/serialize.scm
' ! C` h8 R ]4O 4 554O 4556 J g exp
6 g lp 6 g command 6 g type 6 g formals 6 g args 6 g accum 6 g filenamef texinfo/serialize.scm
- 6 - & - + 6 . - 0 2 6 6 g nameg entry CaR(b1 h k ]L 6 c g x
g filenamef texinfo/serialize.scm
' ! C#c h ( ]4O 4 556 g exp
g lp g command g type g formals g args g accum g filenamef texinfo/serialize.scm
- 6 -
g nameg fragment CdRe-if5ig@ihBiiFijEikEilHimUinWioaip_iq]irdi,i sR>s9t h8 & ]45 $ " 4 5 6 g exp
4 g lp 4 g command 4 g type 4 g formals 4 g args 4 g accum 4 g t 4 g filenamef texinfo/serialize.scm
$ 4 4 g nameg serialize CRuvRw#xvy h` ]" D( 45@45$ @ " "4 5 " g str
Z g in J g out J g filenamef texinfo/serialize.scm
! % ( + " 0 9 < ? ! B J J K R * Z Z g nameg escapeg
documentationf BEscapes any illegal texinfo characters (currently @{, @}, and @@). CzR{|z}~V&79 h ]
$ " $ C4 5$ 4 5C $ 4 5 $ r L 4 545" $ " @ " 9 $ - $ & " "" "" "64
> " G C
6 g in
g out g command-spec > g filenamef texinfo/serialize.scm
" # , 0 4 5 : ! > > F M R ( T W Y ` ) c j
o w { ~
&
7
0
$ /
, g nameg lp C h ] O Q 4 5 6 g tree
g lp g filenamef texinfo/serialize.scm
g nameg stexi->texig
documentationf 2Serialize the stexi @var{tree} into plain texinfo. C RC 4 g m
, g filenamef texinfo/serialize.scm
"
a )
m 3
? F
I
e R
d
r
2 ~
V
#i
$
&/
(
*
,
, -)
.
. .
0
5
5
C6 PK ! ӸP P texinfo/indexing.gonu [ GOOF----LE-8-2.08 ] = 4 h ] g guile g define-module* g texinfo g indexing g filenameS
f texinfo/indexing.scm g importsS g sxml
g simple
g srfi g srfi-13 g exportsS g stexi-extract-index g set-current-module g deftp g defcv g defivar g deftypeivar g defop g deftypeop !g defmethod "g
deftypemethod #g defopt $g defvr %g defvar &g deftypevr 'g
deftypevar (g deffn )g deftypefn *g defspec +g defmac ,g defun -g
deftypefun . !"#$%&'()*+,- /g defines 0g cindex 1g findex 2g vindex 3g kindex 4g pindex 5g tindex 6012345 7g indices 8g anchor 9g memq :g assq ;g name <g sxml->stringC 5h ~ ]4
5 4 > " G ./R67R89/:;7< h C ] ( C $ " 4L 5 " $ $ & {4 5$ / 4 54 5 "|4 5$ ( 4 54 5 "D"U"Q"M"I "' ; g in
g entries g filenamef texinfo/indexing.scm
5 6 9
9 6 F F F $ F , F , : / ; 0 ;
4 : 7 ; % 9 ; = ; @ < C < G ; H < % M < + S < % W ; Z = \ = % ` = + c = 6 g = 1 i = % j = l > % p > + s > 1 x > % y > { = = A % A + A % @ B B B - B C % C + C 1 C % C B B H H 8 g nameg loop C h ] O Q 6 g tree
g manual-name g kind g loop
g filenamef texinfo/indexing.scm
*
5 5 5 g nameg stexi-extract-indexg
documentationf 6Given an stexi tree @var{tree}, index all of the entries of type
@var{kind}. @var{kind} can be one of the predefined texinfo indices
(@code{concept}, @code{variable}, @code{function}, @code{key},
@code{program}, @code{type}) or one of the special symbols @code{auto}
or @code{all}. @code{auto} will scan the stext for a @code{(printindex)}
statement, and @code{all} will generate an index from all entries,
regardless of type.
The returned index is a list of pairs, the @sc{car} of which is the
entry (a string) and the @sc{cdr} of which is a node name (a string). CRC v g m
, g filenamef texinfo/indexing.scm
. # 1 "
3 ( 6 '
*
C6 PK ! TA A texinfo/string-utils.gonu [ GOOF----LE-8-2.0wA ] S 4 h ] g guile g define-module* g texinfo g string-utils g filenameS
f texinfo/string-utils.scm g importsS g srfi
g srfi-13
g srfi-14 g exportsS g escape-special-chars g transform-string g expand-tabs g
center-string g left-justify-string g right-justify-string g collapse-repeated-chars g make-text-wrapper g fill-string g string->wrapped-lines
g set-current-module ! " #g open-output-string $g char? %g char=? &g
procedure? 'g string? (g string-index )g boolean? *g throw +g bad-type ,f 'expected #t, char, string, or procedure -g display .g
string-length /g substring 0g string-for-each 1g
write-char 2g get-output-string 3g make-string 4g string 5g max 6g
string-append 7g odd? 8f 9g char-set-complement :g char-set:whitespace ;g reverse <g split-by-single-words =g
string-ref >g end-of-sentence? ?g
line-widthS @?
Ag expand-tabs?S BA Cg tab-widthS DC Eg collapse-whitespace?S FE Gg subsequent-indentS HG Ig initial-indentS JI Kg break-long-words?S LK M@BDFHJL Ng string-trim Of Pg string-join Qf
Rg infixC 5hx: ]4
5 4" > " G #$% h c ]L 6 [ g c
g filenamef texinfo/string-utils.scm
O
O %
C&'( h c ]L 6 [ g c
g filenamef texinfo/string-utils.scm
S
S %
C) h [ ]L C S g c
g filenamef texinfo/string-utils.scm
U C*+,- h k ]4L 5L 6 c g c
g filenamef texinfo/string-utils.scm
X X , X # C- h c ]LL 6 [ g c
g filenamef texinfo/string-utils.scm
Y
Y #
C.-/01 h { ]4L 5$ L 6 L 6 s g c
g filenamef texinfo/string-utils.scm
a b
b d g C2 hX - - . , 3 # # 45 45$ O " F45$ " 545$ O " 45$ O " 4
5 45$
O "
O $ 24 5$ 44
5> " G " " 4O $ "
$ " 4 5> " G $ 14 5$ 44 5> " G " " 6% g str
X g match? X g replace X g start X g end X g os # X g matcher X g replacer X g filenamef texinfo/string-utils.scm
'
M
# M & N 0 N < P F N M R W N c T m N y V } V % V / V M W W M \ \ \ \ ] ] ] ` i j j
` ! m $ m + m / m 0 n 3 n B n X p ( X g nameg transform-stringg
documentationf Uses @var{match?} against each character in @var{str}, and performs a
replacement on each character for which matches are found.
@var{match?} may either be a function, a character, a string, or
@code{#t}. If @var{match?} is a function, then it takes a single
character as input, and should return @samp{#t} for matches.
@var{match?} is a character, it is compared to each string character
using @code{char=?}. If @var{match?} is a string, then any character
in that string will be considered a match. @code{#t} will cause
every character to be a match.
If @var{replace} is a function, it is called with the matched
character as an argument, and the returned value is sent to the output
string via @samp{display}. If @var{replace} is anything else, it is
sent through the output string via @samp{display}.
Note that te replacement for the matched characters does not need to
be a single character. That is what differentiates this function from
@samp{string-map}, and what makes it useful for applications such as
converting @samp{#\&} to @samp{"&"} in web page text. Some other
functions in this module are just wrappers around common uses of
@samp{transform-string}. Transformations not possible with this
function should probably be done with regular expressions.
If @var{start} and @var{end} are given, they control which portion
of the string undergoes transformation. The entire input string
is still output, though. So, if @var{start} is @samp{5}, then the
first five characters of @var{str} will still appear in the returned
string.
@lisp
; these two are equivalent...
(transform-string str #\space #\-) ; change all spaces to -'s
(transform-string str (lambda (c) (char=? #\space c)) #\-)
@end lisp CR3 h( u - . , 3 # 4 56 m g str
' g tab-size ' g filenamef texinfo/string-utils.scm
r
z ' x ' g nameg expand-tabsg
documentationf Returns a copy of @var{str} with all tabs expanded to spaces. @var{tab-size} defaults to 8.
Assuming tab size of 8, this is equivalent to: @lisp
(transform-string str #\tab " ")
@end lisp CR$% h e ] L 6 ] g c
g filenamef texinfo/string-utils.scm
$
C( h e ]L 6 ] g c
g filenamef texinfo/string-utils.scm
$
C4 h e ]L 6 ] g c
g filenamef texinfo/string-utils.scm
C h0 ) ] 45$ O " O O 6 ! g str
, g
special-chars , g escape-char , g filenamef texinfo/string-utils.scm
|
, , g nameg escape-special-charsg
documentationf GReturns a copy of @var{str} with all given special characters preceded
by the given @var{escape-char}.
@var{special-chars} can either be a single character, or a string consisting
of all the special characters.
@lisp
;; make a string regexp-safe...
(escape-special-chars "***(Example String)***"
"[]()/*."
#\\)
=> "\\*\\*\\*\\(Example String\\)\\*\\*\\*"
;; also can escape a singe char...
(escape-special-chars "richardt@@vzavenue.net"
#\@@
#\@@)
=> "richardt@@@@vzavenue.net"
@end lisp CR.35%6748 h - . , 3 # P # # 4 5 44
55 4$ " 5$ " !44
5$ " 5 $ C 45$ 4$ " 5" 6 g str
g width g chr g rchr g len 0 g lpad G g rpad g filenamef texinfo/string-utils.scm
* 0 3 6 = + @ ! C G G J R ^ b i l s / v % y ) / ) % > > Q " g nameg
center-stringg
documentationf Returns a copy of @var{str} centered in a field of @var{width}
characters. Any needed padding is done by character @var{chr}, which
defaults to @samp{#\space}. If @var{rchr} is provided, then the
padding to the right will use it instead. See the examples below.
left and @var{rchr} on the right. The default @var{width} is 80. The
default @var{chr} and @var{rchr} is @samp{#\space}. The string is
never truncated.
@lisp
(center-string "Richard Todd" 24)
=> " Richard Todd "
(center-string " Richard Todd " 24 #\=)
=> "===== Richard Todd ====="
(center-string " Richard Todd " 24 #\< #\>)
=> "<<<<< Richard Todd >>>>>"
@end lisp CR.356 hX H - . , 3 # P # 4 5 44
55 $ C 6 @ g str
Q g width Q g chr Q g len ' Q g pad ; Q g filenamef texinfo/string-utils.scm
! ' * - 4 7 ; ; B F Q
Q g nameg left-justify-stringg
documentationf @code{left-justify-string str [width chr]}.
Returns a copy of @var{str} padded with @var{chr} such that it is left
justified in a field of @var{width} characters. The default
@var{width} is 80. Unlike @samp{string-pad} from srfi-13, the string
is never truncated. CR.356 hX F - . , 3 # P # 4 5 44
55 $ C 6 > g str
Q g width Q g chr Q g len ' Q g pad ; Q g filenamef texinfo/string-utils.scm
! ' * - 4 7 ; ; B F Q
Q g nameg right-justify-stringg
documentationf Returns a copy of @var{str} padded with @var{chr} such that it is
right justified in a field of @var{width} characters. The default
@var{width} is 80. The default @var{chr} is @samp{#\space}. Unlike
@samp{string-pad} from srfi-13, the string is never truncated. CR%% h@ ]"
N NC4 M5$ 4ML 5$ MNMLC"" g c
< g filenamef texinfo/string-utils.scm
) , & . 3 < C8 hX - . , 3 # # 4 5$ A"
HHO 6 g str
X g chr X g num X g prev-chr 5 L g match-count 5 L g repeat-locator L X g filenamef texinfo/string-utils.scm
, 5
L V * X X g nameg collapse-repeated-charsg
documentationf Returns a copy of @var{str} with all repeated instances of
@var{chr} collapsed down to at most @var{num} instances.
The default value for @var{chr} is @samp{#\space}, and
the default value for @var{num} is 1.
@lisp
(collapse-repeated-chars "H e l l o")
=> "H e l l o"
(collapse-repeated-chars "H--e--l--l--o" #\-)
=> "H-e-l-l-o"
(collapse-repeated-chars "H-e--l---l----o" #\- 2)
=> "H-e--l--l--o"
@end lisp CR9:(/; hp ])45 " T4 5 $ ;4 5 $ 4 5 "4 566
" g str
m g non-wschars m g ans c g index c g next-non-ws c g next-ws - ] g filenamef texinfo/string-utils.scm
" # -
5 6 C M P [ ] c
c d m m g nameg split-by-single-words C<R.= h@ T ] 4 5 $ $.4 5$ .4 5CCC L g str
9 g len 9 g filenamef texinfo/string-utils.scm
# $
' 0 ( 2 3 4 9 g nameg end-of-sentence?g
documentationf 6Return #t when STR likely denotes the end of sentence. C>RM8% h e ]
6 ] g c
g filenamef texinfo/string-utils.scm
D $
D 0
CN;.6>O/<
hx ]1 H 4J 5K L$ 4J L5K " L$
4J 5K " 4J 5K " (
$ " 6L45
$ 45" 45$ Q"
45" ,L$ "4 5$ 4
5" "" " "_
$ L
"AL$ 044
554 5L
" 45L
"4 J 5L
" g str
r g ans H [ g words H [ g line H [ g count H [ g length-left [ g next-word [ g filenamef texinfo/string-utils.scm
B D D G H $ H . K / L 7 L < O D O H R N V T X X X ] Y e X
h ^ o ] s _ w _ x ` } ` , ` a ]
d d b g l h i h k k , k m f p b r r
b { { . { ! { " } - ~ . } = { > I L [ [ R \ R ] S r R = r C hp | - / 0 3 # P # # # # # # O C t g
line-width
j g expand-tabs? j g tab-width j g collapse-whitespace? j g subsequent-indent j g initial-indent j g break-long-words? j g filenamef texinfo/string-utils.scm
A / K , j
g
line-widthS
g expand-tabs?S g tab-widthS g collapse-whitespace?S g subsequent-indentS g initial-indentS g break-long-words?S g nameg make-text-wrapperg
documentationf Returns a procedure that will split a string into lines according to the
given parameters.
@table @code
@item #:line-width
This is the target length used when deciding where to wrap lines.
Default is 80.
@item #:expand-tabs?
Boolean describing whether tabs in the input should be expanded. Default
is #t.
@item #:tab-width
If tabs are expanded, this will be the number of spaces to which they
expand. Default is 8.
@item #:collapse-whitespace?
Boolean describing whether the whitespace inside the existing text
should be removed or not. Default is #t.
If text is already well-formatted, and is just being wrapped to fit in a
different width, then set this to @samp{#f}. This way, many common text
conventions (such as two spaces between sentences) can be preserved if
in the original text. If the input text spacing cannot be trusted, then
leave this setting at the default, and all repeated whitespace will be
collapsed down to a single space.
@item #:initial-indent
Defines a string that will be put in front of the first line of wrapped
text. Default is the empty string, ``''.
@item #:subsequent-indent
Defines a string that will be put in front of all lines of wrapped
text, except the first one. Default is the empty string, ``''.
@item #:break-long-words?
If a single word is too big to fit on a line, this setting tells the
wrapper what to do. Defaults to #t, which will break up long words.
When set to #f, the line will be allowed, even though it is longer
than the defined @code{#:line-width}.
@end table
The return value is a procedure of one argument, the input string, which
returns a list of strings, where each element of the list is one line. C R h - 1 3 4? 6 g str
g kwargs g filenamef texinfo/string-utils.scm
g nameg string->wrapped-linesg
documentationf 8@code{string->wrapped-lines str keywds ...}. Wraps the text given in
string @var{str} according to the parameters provided in @var{keywds},
or the default setting if they are not given. Returns a list of strings
representing the formatted lines. Valid keyword arguments are discussed
in @code{make-text-wrapper}. C RP QR h - 1 3 4 ?6 g str
g kwargs g filenamef texinfo/string-utils.scm
g nameg fill-stringg
documentationf Wraps the text given in string @var{str} according to the parameters
provided in @var{kwargs}, or the default setting if they are not
given. Returns a single string with the wrapped text. Valid keyword
arguments are discussed in @code{make-text-wrapper}. C RC g m
, g filenamef texinfo/string-utils.scm
'
r
|
;
$F &g
(
6O
8o
:o
:q
C6 PK ! =M M system/xref.gonu [ GOOF----LE-8-2.0oM ] 4 h ] g guile g define-module* g system g xref g filenameS
f system/xref.scm g importsS g base
g pmatch
g compile g vm g program g srfi g srfi-1 g exportsS g *xref-ignored-modules* g procedure-callees g procedure-callers g source-closures !g source-procedures " ! #g set-current-module $# %# &g memq 'g program-objects (g
vector-length )g make-vector *g decompile +g program-objcode ,g toS -g assembly .g load-program /g for-each 0g toplevel-set 1g toplevel-ref 2g program? 3g fold 4g program-callee-rev-vars 5g variable? 6g module-variable 7g program-module 8g the-root-module 9g nested-ref-module :g resolve-module ;g module-public-interface <g procedure-callee-rev-vars =g *callers-db* >g make-hash-table ?g *module-callees-db* @g *tainted-modules* Ag
value-history BA CB Dg module-name Eg member Fg on-module-modified Gg hashq-ref Hg assoc Ig
hashq-set! Jg
add-caller Kg
assoc-remove! Lg forget-callers Mg hash-set! Ng append Og hash-ref Pg add-callees Qg ensure-callers-db Rg untaint-modules Sg
hash-for-each Tg module-observers Ug module-observe Vg module-for-each Wg
procedure? Xg filter Yg variable-bound? Zg module-submodules [g current-module \g error ]f /expected a variable, symbol, or (modname . sym) ^g program-sources _g procedure-sources `g *closure-sources-db* ag *sources-db* bg *module-sources-db* cg *tainted-sources* dg on-source-modified eg
hashv-set! fg hashv-ref gg
add-source hg delq ig
hashv-remove! jg
forget-source kf unexpected source format lg add-sources mg and=> ng vector->list og
hashq-remove! pg forget-sources qg ensure-sources-db rg untaint-sources sg sort! tg hash-map->list ug cons vg
lines->ranges wg reverse xg lookup-source-procedures yg canonicalizationS zy {z |g relative }g %file-port-name-canonicalization ~g catch ~ ~ g open-input-file g
port-filenameC 5 hA ]4
"5 4% > " G & h ]4 5$ C C g x
g y g filenamef system/xref.scm
" # # # g nameg cons-uniq C'()*+,-./01 h ]!" @ $ 7 & #$ ( L CCCCC $ = & '$ ( L C"""|"x g x
g vx D g vy D g vx , @ g vy , @ g vx S g vy S g vx l g vy l g filenamef system/xref.scm
- . < 0 ' F . | / ' . C2345&6789:; h@ ] 4 5 $ )45445544 55 $ g & K$ @ $ ) 4
O > " G " " " " " $ C4 5$ 4
455 "$ 5 45$ #45$ " "$ R44 5 $ " 5 $ 4 5$ " " "1$
$
$ x
( f445 5 $ 4
$ 45" 5" $ 45$ " " "CCCC "}
"sC g prog
@ g cons-uniq @ g t
@ g n 9 > g progv 9 > g asm 9 > g vx L g vy L g vy b g vy r g i 4 g out 4 g obj ' g t 8 K g v O g vx % g vy
% g vx # g vy # g vx
! g vy ! g m g v g filenamef system/xref.scm
!
%
$ ' ( ( $ ) ( * ) - ) 7 ) < 9 ) 9 '
B * y , 2 4 3 5 5 5 3 6 7 8 8 3 8 7 6 9 3 : : ; ; < # # # ' < * ? % . > / @ " 2 @ 7 8 @ 3 O @ " O @ T C Z C & [ # g # r # C > F # F 6 F F F 6 F # F H # I ( J ) K - I ( F N O # # # N * P 4 P 4 2 6 2 > 2 ? Q N @ g nameg program-callee-rev-vars C4R24 h ]4 5$ 6C g proc
g filenamef system/xref.scm
S
U
T U V g nameg procedure-callee-rev-vars C<R< hH Y ]" 0( C$ " "4 5 " Q g prog
F g in 6 g out 6 g filenamef system/xref.scm
X
Z [ \ \ [ ] ] , ] ! ] ) ] , ^ 6 ^ 6 Z 7 Z > Z 6 F Z F g nameg procedure-calleesg
documentationf 1Evaluates to a list of the given program callees. C R=R4>i5 ?R@RC RDE @ hH ] 4 5 45$ " 45$ " $ CC g m
A g name A g filenamef system/xref.scm
h
i i j j k * j 2 l
6 j ; m = m A g nameg on-module-modified CFRG=HEI hh E ]4 5 $ =45 $ 45$ CC 6 6 = g callee
b g caller b g mod-name b g all-callers b g callers P g filenamef system/xref.scm
o
p p q s s $ t
% u 1 u : v 1 ; v $ < v K x N x P w ] r ( b r b g nameg
add-caller CJRI=KG h ] 44 556 g callee
g mod-name g filenamef system/xref.scm
z
|
| | ; | |
{ g nameg forget-callers CLRM?NO h ]4 4556 g callees
g mod-name g filenamef system/xref.scm
~
D
g nameg add-callees CPRQ//L h a ] L 6 Y g callee
g filenamef system/xref.scm
CO?Q h0 ]4 O 4 5> " G 6 g m
) g filenamef system/xref.scm
. ) ) g nameg untaint C@ h0 ] 4> " G 4> " G C z g filenamef system/xref.scm
( * ,
g nameg untaint-modules CRR:SI&FTUDVGWIXY</J h a ] LL 6 Y g callee
g filenamef system/xref.scm
CP
h 9 ]$ M $
4M 5" $ C45$ RM $ 4M > " G " 4455 4LO > " G L6CC 1 g sym
g var g x g t " g callees e g filenamef system/xref.scm
" . 8 > ? X ] % e e h CG
h ]
" vM$ 4M> " G " 4455$ " 4> " G 45 4LO > " G L 6M$ 4 M5$ C"q"m g name
g sub g name V v g filenamef system/xref.scm
& + ( 3 7 <
P V Y | | CZ h ]L LO 4 56 | g mod
g filenamef system/xref.scm
g nameg visit-submodules C=>I&FTUDVGWIXY</J h a ] LL 6 Y g callee
g filenamef system/xref.scm
CP
h 9 ]$ M $
4M 5" $ C45$ RM $ 4M > " G " 4455 4LO > " G L6CC 1 g sym
g var g x g t " g callees e g filenamef system/xref.scm
" . 8 > ? X ] % e e h C
h ]! $ 4 5" H O Q $ " $ 4 5 4 5K456 $ aJ$ 4J> " G " 4455$ " 4 > " G 4
5 O 6C g mod-name
g mod g visited g visit-submodules " g name g filenamef system/xref.scm
/ 7 ; < E F O R U - X Z ` f g (
g nameg ensure-callers-db CQR56[:\]RG=
hx N ]4 5$ " I $ 445 5" 2 $ " 4455 " 4 5 4> " G 6 F g var
w g vx 7 O g vy 7 O g v \ w g filenamef system/xref.scm
1 & - < ? & I T X \ \ _ u w w g nameg procedure-callersg
documentationf Returns an association list, keyed by module name, of known callers
of the given procedure. The latter can specified directly as a
variable, a symbol (which gets resolved in the current module) or a
pair of the form (module-name . variable-name), C R2^ h ]4 5$ 6C g proc
g filenamef system/xref.scm
g nameg procedure-sources C_R`RaR4>i5 bRcRDE c hH ] 4 5 45$ " 45$ " $ CC g m
A g name A g filenamef system/xref.scm
* 2
6 ; = A g nameg on-source-modified CdRO>Mef hX = ] 45 $ " "45 4> " G 456 5 g proc
U g file U g line U g db U g t > g table ; g
file-table > U g filenamef system/xref.scm
% ! > I P 6 R S U
U g nameg
add-source CgROhfei hH C ]45 $ ,4 455 $
66C ; g proc
A g file A g line A g db A g
file-table A g procs $ ? g filenamef system/xref.scm
; " $ $ ) -
7 ? A g nameg
forget-source CjR_IOb>M/g\k hX ]! $ F $ . $ L L6 6 6 6 g source
W g vy O g vx G g vy G g vx - ? g filenamef system/xref.scm
? C % G K % O S % W
W CWl` h p ]4 5$
L 6C h g obj
g filenamef system/xref.scm
C2m'n h ]4 5 $ o445 $ " "45 4> " G > " G 4 O > " G " O 4
5$ 4 4 5
5" $ " 6 g proc
g mod-name g db g sources g t Q g table 1 N g t g filenamef system/xref.scm
- ' 1 4 Z
c
g nameg add-sources ClROb/j\k hX ]! $ F $ . $ L L6 6 6 6 g source
W g vy O g vx G g vy G g vx - ? g filenamef system/xref.scm
? C % G K % O S % W
W CGoWp` h p ]4 5$
L 6C h g obj
g filenamef system/xref.scm
C2m'n h ] ]45 $ r4 O 4 5> " G 4 > " G O 4 5$ 4 4
5 5" $ " 6C U g proc
g mod-name g db g mod-table g t q g filenamef system/xref.scm
' . ) .
7
T ^ _ b l q
g nameg forget-sources CpRq//pa h _ ] L 6 W g proc
g filenamef system/xref.scm
$ $ CObS h k ] C c g proc
g sources g filenamef system/xref.scm
( $ Cq hH ] 4 O 4 5 $
45" > " G 6 g m
A g t . g filenamef system/xref.scm
# $
& % ( + ) 3 $ A * A g nameg untaint Cc h0 ] 4> " G 4> " G C z g filenamef system/xref.scm
"
+ , ( - * - ,
g nameg untaint-sources CrR&dTUDVWla h( ]
$ 45$
L 6CC g sym
' g var ' g x % g filenamef system/xref.scm
5 6
6 7 7
8 8 # 9 ' C hH ] 44 55$ " 4 > " G 4 5 O 6 g mod
B g name 3 B g filenamef system/xref.scm
0 1
1 & 1
1 2 - 3 3 3 B 4
B g nameg visit-module C>SGI h@ ]4M5$ C4M> " G 4L > " G M6 g name
> g sub > g filenamef system/xref.scm
B C C E ' F > G > CZ h0 ]M$ " 45 NLL LO 4 56 z g mod
) g filenamef system/xref.scm
> ?
@ @ ! H ) A ) Ca`>: hp J ]H HO K $ " $ " $ 4 5 4 5 J456 $ 4 56C B g mod-name
k g visit-submodules k g visit-module k g visited
g filenamef system/xref.scm
/
= " J 5 J 0 9 J : K $ C K D L M L P M S M + V M X M ^ J a N i N k g nameg ensure-sources-db CqR>S/GI hH ] 4L 5 $ &L$ L" L$ LCCL LL6 g proc
F g t F g filenamef system/xref.scm
U W V
Y Y Y " Z + [ , [ 0 [ 5 \ D ^ $ F ^ F C h r ]L O 6 j g line
g procs g filenamef system/xref.scm
S T Cstu h } ] C u g x
g y g filenamef system/xref.scm
b b b % b C h8 ] 45 4O > " G 456 g
file-table
1 g ranges 1 g filenamef system/xref.scm
P
Q Q
R % a 1 a 1 g nameg
lines->ranges CvROwv h ]4 5 " O( 6"
"$ "$ """$ 45" " g
canon-file
{ g line { g db { g
file-table { g ranges ` g procs ` g filenamef system/xref.scm
d
e e f h i $ m . m . h 1 j 6 j : h ? j B j I k L k P k X k ` f f f g f $ r f ? s g { f { g nameg lookup-source-procedures CxR{|q} h L ] L 6D g filenamef system/xref.scm
r r %
C h X - 1 3 C P g args
g filenamef system/xref.scm
r
Cx` hh + - / 0 3 # 4> " G Y4 O 5Z $ 45"
6 # g file
e g line e g canonicalization e g port D e g file Y e g filenamef system/xref.scm
o
o < p 5 r D q L s M s Y q e t
e
g canonicalizationS g nameg source-closures C R{|q} h L ] L 6D g filenamef system/xref.scm
y y %
C h X - 1 3 C P g args
g filenamef system/xref.scm
y
Cxa hh - - / 0 3 # 4> " G Y4 O 5Z $ 45"
6 % g file
e g line e g canonicalization e g port D e g file Y e g filenamef system/xref.scm
v
v > w 5 y D x L z M z Y x e {
e
g canonicalizationS g nameg source-procedures C!RC } g m
, g filenamef system/xref.scm
!
u S
, X
0 a
1 c : c
; e > e
@ g C g
t h
@ o
2 z
% ~
]
G
1
!
! !
!
!
"O
$
%
*
.
1
"
6 /
: P
<k d
> o
A v
% A
C6 PK ! br>*? *? system/vm/trap-state.gonu [ GOOF----LE-8-2.0? ] 4 hp ] g guile g define-module* g system g vm g
trap-state
g filenameS f system/vm/trap-state.scm g importsS
g base g syntax
g srfi g srfi-1 g selectS g fold g traps g trace g frame ! "! #g program $# %$ & "% 'g exportsS (g add-trap! )g
list-traps *g
trap-enabled? +g trap-name ,g enable-trap! -g
disable-trap! .g delete-trap! /g with-default-trap-handler 0g install-trap-handler! 1g add-trap-at-procedure-call! 2g add-trace-at-procedure-call! 3g add-trap-at-source-location! 4g #add-ephemeral-trap-at-frame-finish! 5g add-ephemeral-stepping-trap! 6()*+,-./012345 7g set-current-module 87 97 :g
make-fluid ;g %default-trap-handler <g warn =f Trap with no handler installed >g default-trap-handler ?g make-record-type @f <trap-wrapper> Ag index Bg enabled? Cg trap Dg name EABCD Fg <trap-wrapper> Gg make-trap-wrapper Hg record-predicate Ig
trap-wrapper? Jg make-procedure-with-setter Kg record-accessor Lg record-modifier Mg trap-wrapper-index Ng trap-wrapper-enabled? Og trap-wrapper-trap Pg trap-wrapper-name Qf <trap-state> Rg handler Sg next-idx Tg next-ephemeral-idx Ug wrappers VRSTU Wg <trap-state> Xg make-trap-state Yg trap-state? Zg trap-state-handler [g trap-state-next-idx \g trap-state-next-ephemeral-idx ]g trap-state-wrappers ^g trap-wrapper<? _g error `f Trap already enabled ag setter ba ca dg enable-trap-wrapper! ef Trap already disabled fg disable-trap-wrapper! gg append hg add-trap-wrapper! ig delq jg remove-trap-wrapper! kg trap-state->trace-level lf )no wrapper found with index in trap-state mg wrapper-at-index ng next-index! og next-ephemeral-index! pg handler-for-index qg ephemeral-handler-for-index rg make-weak-key-hash-table sg
*trap-states* tg hashq-ref ug
hashq-set! vg trap-state-for-vm wg the-vm xg the-trap-state yg set-vm-trace-level! zg map {g and=> |g trap-at-procedure-call }g format ~f Breakpoint at ~a g trace-calls-to-procedure g prefixS f Trap ~a: f Tracepoint at ~a g trap-at-source-location f Breakpoint at ~a:~a g trap-frame-finish f Return from ~a f ~a:~a:~a g source:file f unknown file g source:line-for-user g
source:column f unknown source location g
source-string g into?S g instruction?S g frame-next-source g trap-matching-instructions g
frame-address f Step to different instruction f #Step to different instruction in ~a f Step into ~a f Step out of ~aC 5 hX0 ]4
&'65 49 > " G 4:i5 ;R;<= h( ] [ $
6 6 g frame
# g idx # g trap-name # g default-handler # g filenamef system/vm/trap-state.scm
1
2
3 4 5 # 5 # g nameg default-trap-handler C>R4?i@E5FRF h - 1 3 C g index
g enabled? g trap g name g defrec-3703f9048699c1-8 g filenamef system/vm/trap-state.scm
7
g nameg make-trap-wrapper CGR4HiFi5IR4Ji4KiFiA54LiFiA55MR4Ji4KiFiB54LiFiB55NR4Ji4KiFiC54LiFiC55OR4Ji4KiFiD54LiFiD55PR4?iQV5WR>W h 9 - 1 3 H J ( " J J K J (
" J J K J ( " J J K J ( " J J K C 1 g defrec-3703f9048699c1-14
g _x ( g _x 6 B g _x Q ] g _x k w g handler w g next-idx w g next-ephemeral-idx w g wrappers w g filenamef system/vm/trap-state.scm
=
d A
g nameg make-trap-state CXR4HiWi5YR4Ji4KiWiR54LiWiR55ZR4Ji4KiWiS54LiWiS55[R4Ji4KiWiT54LiWiT55\R4Ji4KiWiU54LiWiU55]RM h ]4 545C g t1
g t2 g filenamef system/vm/trap-state.scm
C
D
D D g nameg trap-wrapper<? C^RN_`MOc hP ] 4 5$
4 564 5 445 45 > " G 45 6 g wrapper
K g trap ! K g filenamef system/vm/trap-state.scm
J
K
K L
L $ L M ! M $ N . N * 7 N K O
K g nameg enable-trap-wrapper! CdRNOc_eM hP ] 4 5$ 14 5 445 45 > " G 45 64 56 g wrapper
K g trap > g filenamef system/vm/trap-state.scm
Q
R
R T T U ! U * * U > V B S
C S % K S
K g nameg disable-trap-wrapper! CfRc]gM h0 ]445 44 5 5> " G 6 g
trap-state
0 g wrapper 0 g filenamef system/vm/trap-state.scm
X
Y
Z Z Z 1 Z " Y 0 [ 0 g nameg add-trap-wrapper! ChRc]i h ]45 44 556 g
trap-state
g wrapper g filenamef system/vm/trap-state.scm
]
_ _ _ ^ g nameg remove-trap-wrapper! CjRN h ]4 5$ CC g wrapper
g level g filenamef system/vm/trap-state.scm
b c
c
d C] h ]
4 56 g
trap-state
g filenamef system/vm/trap-state.scm
a
g b g nameg trap-state->trace-level CkR<lM] hP ' ]
" 8( 4> " G C45$ C "4 5 " g
trap-state
K g idx K g wrappers > g filenamef system/vm/trap-state.scm
i
j k
m m m # o ( o * o - o 1 k 4 p 8 r
> r > j ? j K j K g nameg wrapper-at-index CmR[c h( ] 4 5 445 > " G C g
trap-state
( g idx ( g filenamef system/vm/trap-state.scm
t
u
u v v + v ( g nameg next-index! CnR\c h( ] 4 5 445 > " G C g
trap-state
( g idx ( g filenamef system/vm/trap-state.scm
y
z
z { { 5 { ( g nameg next-ephemeral-index! CoRmZMP h8 ]4L L54L 5 $ 45456C g frame
2 g wrapper 2 g handler 2 g filenamef system/vm/trap-state.scm
! ( 0
2 C h ] O C g
trap-state
g idx g filenamef system/vm/trap-state.scm
~
g nameg handler-for-index CpRmNfj hP ] 4LL 5 $ ;45$ 4> " G " 4L> " G L 6C g frame
P g wrapper P g filenamef system/vm/trap-state.scm
5 N
P C h ] O C g
trap-state
g idx g handler g filenamef system/vm/trap-state.scm
g nameg ephemeral-handler-for-index CqR4ri5 sRtsXuv h@ ] 4 5 $ C45 4 > " G 6 g vm
9 g t 9 g ts 9 g filenamef system/vm/trap-state.scm
9 9 g nameg trap-state-for-vm CvRvw h x ] 45 6 p g filenamef system/vm/trap-state.scm
g nameg the-trap-state CxRx;ywk h p ] L$ 45 4L 56C h g filenamef system/vm/trap-state.scm
! *
Cyw h g ] L $
45
6C _ g filenamef system/vm/trap-state.scm
!
Cywk h p ] L$ 45 4L 56C h g filenamef system/vm/trap-state.scm
! *
Cyw h g ] L $
45
6C _ g filenamef system/vm/trap-state.scm
!
C hp - . , 3 # 45 Y O O 4 O > " G V4> X4 O > " G " ZCZF g handler
n g thunk n g
trap-state n g filenamef system/vm/trap-state.scm
; 0 n g nameg with-default-trap-handler C/RxzM] h( - . , 3 # 45 4 56 g
trap-state
& g filenamef system/vm/trap-state.scm
, & &
g nameg
list-traps C)Rx{mP h( - . , 3 # 45 4 56 g idx
( g
trap-state ( g filenamef system/vm/trap-state.scm
/ ( ( g nameg trap-name C+Rx{mN h( - . , 3 # 45 4 56 g idx
( g
trap-state ( g filenamef system/vm/trap-state.scm
3 ( ( g nameg
trap-enabled? C*Rx{md h( - . , 3 # 45 4 56 g idx
( g
trap-state ( g filenamef system/vm/trap-state.scm
2 ( ( g nameg enable-trap! C,Rx{mf h( - . , 3 # 45 4 56 g idx
( g
trap-state ( g filenamef system/vm/trap-state.scm
3 ( ( g nameg
disable-trap! C-Rx{mNfj h0 ]4 5$ 4 > " G " L 6 ~ g wrapper
+ g filenamef system/vm/trap-state.scm
+ + C h0 - . , 3 # 45 4 5O 6 g idx
- g
trap-state - g filenamef system/vm/trap-state.scm
2 - - g nameg delete-trap! C.RxcZ h( - . , 3 # 45 45 6 g handler
& g
trap-state & g filenamef system/vm/trap-state.scm
? & & g nameg install-trap-handler! C0Rxn|phG}~ hP 6 - . , 3 # 45 45 4 455 44 556 . g proc
N g
trap-state N g idx N g trap 2 N g filenamef system/vm/trap-state.scm
B # ( 2 2 9 A F J L N N g nameg add-trap-at-procedure-call! C1Rxn}hG
hX I - . , 3 # 45 45 4 455 44 556 A g proc
Q g
trap-state Q g idx Q g trap 5 Q g filenamef system/vm/trap-state.scm
> # * / $ 3 5 5 < D I M O Q Q g nameg add-trace-at-procedure-call! C2RxnphG} hX O - . , 3 # 45 45 4 455 44 556 G g file
R g user-line R g
trap-state R g idx R g trap 4 R g filenamef system/vm/trap-state.scm
> # * ( 4 4 ; C H N P R R g nameg add-trap-at-source-location! C3Rxoq. h i ]LL 6 a g frame
g filenamef system/vm/trap-state.scm
ChG}
h` U - . , 3 # 45 45 4 45O 5 44 556 M g frame
Y g handler Y g
trap-state Y g idx Y g trap = Y g filenamef system/vm/trap-state.scm
: # ( = = D L Q U W Y Y g nameg #add-ephemeral-trap-at-frame-finish! C4R} h@ ] $ /4 5 $ " 4 54 56C g source
: g t ' g filenamef system/vm/trap-state.scm
$ 5 ( / , 7 9 : g nameg
source-string CRxo h \ ]C T g f
g filenamef system/vm/trap-state.scm
C h w ]4 5L C o g f
g filenamef system/vm/trap-state.scm
. &
! C h ]4 5L$ L 6Cx g f
g filenamef system/vm/trap-state.scm
CqhG} h - / 0 3 # 45 # # 4 5 45 4$ " O $ " 4 5 O 4
55 4 $ $
"
4 5" ($ 4455" 445556 g frame
g handler g
trap-state g into? g instruction? g source 9 g idx B g predicate Z g fp o } g trap
g filenamef system/vm/trap-state.scm
3 3 9 < B E M Z b i o ! "
# $ $ $ %
& & & ( & ' ' ' * ' " g into?S g instruction?S g nameg add-ephemeral-stepping-trap! C5RxnhG h8 - . , 3 # 45 45 4 56 g trap
4 g name 4 g
trap-state 4 g idx 4 g filenamef system/vm/trap-state.scm
)
) 5 * * ' - 4 + 4 g nameg add-trap! C(RC g m
, g filenamef system/vm/trap-state.scm
- / 6 /
g 1
u 7
- =
y C
J
. Q
I X
< ]
a
B i
6 t
0 y
~
(
r
Y
E
4
%
"y
$<
&
(p
)
/"
0P )
% 0R
C6 PK ! ȣ< system/vm/frame.gonu [ GOOF----LE-8-2.0m ] E 4 h ] g guile g define-module* g system g vm g frame
g filenameS f system/vm/frame.scm g importsS
g base g pmatch
g program g instruction g objcode g exportsS g frame-bindings g frame-lookup-binding g frame-binding-ref g frame-binding-set! g frame-next-source !g frame-call-representation "g frame-environment #g frame-object-binding $g frame-object-name %g frame-return-values & !"#$%
'g set-current-module (' )' *g frame-procedure +g program? ,g program-bindings-for-ip -g frame-instruction-pointer .g binding:name /g frame-local-set! 0g
binding:index 1g error 2f variable not bound in frame 3g frame-local-ref 4g frame-arguments 5g program-source 6g program-sources-pre-retire 7g catch 87 97 :g procedure-name ;g program-arguments-alist <g frame-num-locals =g ??? >g assq-ref ?g required @g optional Ag keyword Bg rest Cg map Dg iotaC 5 hh ]4
&5 4) > " G *+,- h( ] 4 5 45$
4 56C g frame
% g p % g filenamef system/vm/frame.scm
!
" " # # $ # # $ $ % % g nameg frame-bindings C R. h8 ]
" #( C45& C "4 5 " g frame
6 g var 6 g bindings ) g filenamef system/vm/frame.scm
'
( ) + + + ) , # . ) . ) ( * ( 6 ( 6 g nameg frame-lookup-binding C R/0 12 h8 ] 44 5 $ " 4 5 56 g frame
4 g var 4 g val 4 g t . g filenamef system/vm/frame.scm
0
2
3 3 ! 4 % 4 + 4 0 2 4 1
4 g nameg frame-binding-set! C R30 12 h8 ]
44 5 $ " 4 5 56 g frame
2 g var 2 g t . g filenamef system/vm/frame.scm
7
9
: : ! ; % ; + ; 0 9 2 8
2 g nameg frame-binding-ref C R! h ]4 5C } g frame
g filenamef system/vm/frame.scm
A
B
B g nameg frame-arguments C4R*+5-6 h0 ] 4 5 45$ 4 5456C g frame
, g proc , g filenamef system/vm/frame.scm
J
K K L L N " O * M + P
, g nameg frame-next-source C R*9: h N ] L 6F g filenamef system/vm/frame.scm
e e
Ch [ - 1 3 C S g args
g filenamef system/vm/frame.scm
e
C+;- 30<= h8 ] $ ^ 4L 5 $ 4L 455" 4L 5$
4L 5" 4L 5C$ ^ 4L 5 $ 4L 455" 4L 5$
4L 5" 4L 5C$ #4L 54L 5C$ 74L 5 $
L 4564L 5$ L 6CC g req
5 g opt 5 g key 5 g rest 5 g i 5 g sym T g t Q g sym q g t | g t 3
g filenamef system/vm/frame.scm
t z y { # { m l n % n 6 - n 4 o ; o ? l @ p N s U | Z | c | 1 e | f { j } n y q ~ # q ~ t m | l n n 6 n o o l p s 1 ~ y . # 2 y m l n 6 n o $ o ( l 0 p 2 s 4 > 5 g nameg lp C>?@ABC3 h ` ]L 6 X g i
g filenamef system/vm/frame.scm
CD< h E ]!4 5 4O 5 $ " 45$ 44 55" $ O Q 44
5 $ " 4 5 $ " 4 5 $ " 4
5 $ "
5 " 4 O 44 555 C = g frame
g p g t - g t K g lp \ g t o g t g t g t g filenamef system/vm/frame.scm
b
c c e e . g 8 g 9 h > h ' F h K f \ t g t m t 2 o t o t ~ t = u u 2 u u u = v v 2 v v v < w w 3 w w t d ' g nameg frame-call-representation C!RC. h x ]4 54L 5C p g binding
g filenamef system/vm/frame.scm
& C h ] O 4 56 g frame
g filenamef system/vm/frame.scm
g nameg frame-environment C"R hH # ]
" 2( "
4 5$
$ CC "4 5 " g frame
E g obj E g bs 8 g filenamef system/vm/frame.scm
8 " % ) , 2 " 8 9 E E g nameg frame-object-binding C#R#. h ]
4 5 $ 6C g frame
g obj g t g filenamef system/vm/frame.scm
g nameg frame-object-name C$R<3C3 h r ]LL L 6 j g i
g filenamef system/vm/frame.scm
% " CD h0 ]4 5 4 5 O 456 g frame
- g len - g nvalues - g filenamef system/vm/frame.scm
) % -
- g nameg frame-return-values C%RC g m
, g filenamef system/vm/frame.scm
- !
| '
0
7
A
J
b
5
b
d
C6 PK ! WM M system/vm/instruction.gonu [ GOOF----LE-8-2.05 ] 4 h) ] g guile g define-module* g system g vm g instruction
g filenameS f system/vm/instruction.scm g exportsS
g instruction-list g instruction? g instruction-length g instruction-pops g instruction-pushes g instruction->opcode g opcode->instruction
g set-current-module g load-extension g
string-append f libguile- g effective-version f scm_init_instructionsC 5 h@ ]4
5 4 > " G i4i4i5 5 6 g m
( g filenamef system/vm/instruction.scm
- 3 4 + < > @
@
C6 PK ! ZkW system/vm/coverage.gonu [ GOOF----LE-8-2.0 ]X 4 h? ] g guile g define-module* g system g vm g coverage
g filenameS f system/vm/coverage.scm g importsS
g frame g program g srfi g srfi-1 g srfi-9 g srfi-11 g srfi-26 ! " ! #g exportsS $g with-code-coverage %g coverage-data? &g instrumented-source-files 'g instrumented/executed-lines (g line-execution-counts )g procedure-execution-count *g coverage-data->lcov +$%&'()* ,g set-current-module -, ., /g hashq 0g program-objcode 1g
hashq-proc 2g find 3g assq-proc 4g frame-procedure 5g frame-instruction-pointer 6g hashx-create-handle! 7g hashv-create-handle! 8g make-hash-table 9g vm-trace-level :g vm-next-hook ;g set-vm-trace-level! <g add-hook! =g remove-hook! >g call-with-vm ?g make-coverage-data @g <coverage-data> Ag %%make-coverage-data-procedure Bg make-syntax-transformer CB DB Eg %make-coverage-data Fg macro Gg $sc-dispatch HG IG Jg _ Kg any LJKKKK Mg
syntax-object Ng lambda Og m-8d25f648290-30 Pg top QOP Rg ribcage Sg t-8d25f648290-2c Tg t-8d25f648290-2d Ug t-8d25f648290-2e Vg t-8d25f648290-2f WSTUV XQQQQ Yf l-8d25f648290-35 Zf l-8d25f648290-36 [f l-8d25f648290-37 \f l-8d25f648290-38 ]YZ[\ ^RWX] _R `g x a` bQ cf l-8d25f648290-32 dc eRabd fg shift gg proc-name hg args igh jP kjj lf l-1e8ba8b5a-2ba mf l-1e8ba8b5a-2bb nlm oRikn pg key qg value rg name sg formals tg body upqrst vjjjjj wf l-1e8ba8b5a-2ad xf l-1e8ba8b5a-2ae yf l-1e8ba8b5a-2af zf l-1e8ba8b5a-2b0 {f l-1e8ba8b5a-2b1 |wxyz{ }Ruv| ~g make-procedure-name ~ j f l-1e8ba8b5a-29d R j f l-1e8ba8b5a-29c Ra Q^_ef____o}
g hygiene MN g procedure->ip-counts j^_e M g procedure->sources M g file->procedures M g file->line-counts M g make-struct g m-8d25f648290-2a P g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e P f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 R g ctor-args f l-1e8ba8b5a-37a R g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 Rk g form g type-name g constructor-spec g field-names jjjj f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e R g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers jjjjjjjj f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 R f l-1e8ba8b5a-334 Ra ^_ef_____ M M@ M
g each-any Jی g syntax-violation f Wrong number of arguments g identifier? j_e MA f -source expression failed to match any pattern g record-type-vtable g pwpwpwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %coverage-data?-procedure JK g m-8d25f648290-43 P g t-8d25f648290-42 f l-8d25f648290-48 R f l-8d25f648290-45 Ra _f____o}
MN g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479
g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c
g t-1e8ba8b5a-47b
g m-1e8ba8b5a-47f P f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 R g copier-id f l-1e8ba8b5a-476 R g ctor-name ! "f l-1e8ba8b5a-46e #" $R!# % &f l-1e8ba8b5a-46c '& (R%' )g layout *) +f l-1e8ba8b5a-46a ,+ -R*, .g
immutable? /. 0f l-1e8ba8b5a-468 10 2R/1 3g field-count 43 5f l-1e8ba8b5a-466 65 7R46 8g
getter-ids 98 :f l-1e8ba8b5a-463 ;: <R9; =g field-ids >= ?f l-1e8ba8b5a-460 @? AR>@ Bg predicate-name Cg
field-spec D.BC Ejjjjjj Ff l-1e8ba8b5a-453 Gf l-1e8ba8b5a-454 Hf l-1e8ba8b5a-455 If l-1e8ba8b5a-456 Jf l-1e8ba8b5a-457 Kf l-1e8ba8b5a-458 LFGHIJK MRDEL N _f_____ _$_(_-_2_7_<_AM OMN PO Qg and RMQN Sg struct? TMSN UTO Vg eq? WMVN Xg
struct-vtable YMXN ZYO [j _ \M@[ ]WZ\ ^RU] _P^ `j_ aM` bg throw-bad-struct cb db eg data-procedure->ip-counts fg $%data-procedure->ip-counts-procedure gg free-id hg
%%on-error ig m-8d25f648290-4f jiP kj lf l-8d25f648290-51 ml nRakm oj_nf____o} pMho qgp rqK sg %%type tg t-1e8ba8b5a-3a5 ug t-1e8ba8b5a-3a6 vg t-1e8ba8b5a-3a7 wg t-1e8ba8b5a-3a8 xg t-1e8ba8b5a-3a9 yg t-1e8ba8b5a-3aa zg t-1e8ba8b5a-3ab {tuvwxyz |g m-1e8ba8b5a-3ac }|P ~}}}}}}} f l-1e8ba8b5a-3b0 f l-1e8ba8b5a-3b1 f l-1e8ba8b5a-3b2 f l-1e8ba8b5a-3b3 f l-1e8ba8b5a-3b4 f l-1e8ba8b5a-3b5 f l-1e8ba8b5a-3b6 R{~ g getter g index f l-1e8ba8b5a-3a3 f l-1e8ba8b5a-3a4 Rk 8 jjj f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 R _nf_____ Ms g JrK g ck g err g s jj f l-8d25f648290-54 f l-8d25f648290-55 R j_nf____o}
M g quote M j_n M@ g %%index M g JrK f l-8d25f648290-59 f l-8d25f648290-5a R j_nf____o}
M M _n M
g %%copier M g JrK f l-8d25f648290-5e f l-8d25f648290-5f R j_nf____o}
M M g %%<coverage-data>-set-fields j_n M g t-8d25f648290-4e f l-8d25f648290-63 Rk j_nf____o}
MN _nf_____ M g if M MV MX j_n M@ g
struct-ref M _n M
Mb M Me j_n Mf g data-procedure->sources g "%data-procedure->sources-procedure g m-8d25f648290-6a P f l-8d25f648290-6c Ra _f____o} Mh g K _f_____ Ms g JK f l-8d25f648290-6f f l-8d25f648290-70 R _f____o}
M M j_ M@ M g JK f l-8d25f648290-74
f l-8d25f648290-75
R
_f____o}
M
M
_ M M g JK f l-8d25f648290-79 f l-8d25f648290-7a R _f____o}
M M j_ M ! "g t-8d25f648290-69 #" $f l-8d25f648290-7e %$ &R#% '&_f____o}
(MN' )&_f_____ *M) +* ,M) -MV) .MX) /.* 0j&_ 1M@0 2-/1 3M) 4&_ 5M 4 63*5 7Mb) 8M) 9M0 :89 ;7*: <,26; =(+< >j_ ?M> @g data-file->procedures Ag %data-file->procedures-procedure Bg m-8d25f648290-85 CBP DC Ef l-8d25f648290-87 FE GRaDF HC_Gf____o} IMhH JgI KJK L_Gf_____ MMsL NgM OJKNK PCC Qf l-8d25f648290-8a Rf l-8d25f648290-8b SQR TRPS UCT_Gf____o}
VMU WMU XjT_G YM@X ZWY [Z \ML ]g\ ^JK]K _f l-8d25f648290-8f `f l-8d25f648290-90 a_` bRPa cCb_Gf____o}
dMc eMc fb_G gM f heg ih jML kgj lJKkK mf l-8d25f648290-94 nf l-8d25f648290-95 omn pRPo qCp_Gf____o}
rMq sMq tjp_G uMt vsu wv xg t-8d25f648290-84 yx zf l-8d25f648290-99 {z |RyD{ }C|_Gf____o}
~MN} |_Gf_____ M M MV MX j|_G M@ M |_G M Mb M M@ ~ j_G MA g data-file->line-counts g !%data-file->line-counts-procedure g m-8d25f648290-a0 P f l-8d25f648290-a2 Ra _f____o} Mh g K _f_____ Ms g JK f l-8d25f648290-a5 f l-8d25f648290-a6 R _f____o}
M M j_ M@ M g JK f l-8d25f648290-aa f l-8d25f648290-ab R _f____o}
M M _ M M g JK f l-8d25f648290-af f l-8d25f648290-b0 R _f____o}
M M j_ M g t-8d25f648290-9f f l-8d25f648290-b4 R _f____o}
MN _f_____ M M MV MX j_ M@ M _ M Mb M M j_ M g each KK K K K g %%set-fields g dummy g check? g expr g m-8d25f648290-bb P f l-8d25f648290-c0 f l-8d25f648290-c1 f l-8d25f648290-c2 f l-8d25f648290-c3 f l-8d25f648290-c4 R f l-8d25f648290-bd Ra g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7
P
f l-1e8ba8b5a-3cb
f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd
R f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 R _f____
M j _ M@ Me M M@ M g map ! "g list #g
hash-for-each $g program-sources* %g source:file &g for-each 'g source:line (g hash-create-handle! )g max *g
append-map +g closed-over-procedures ,g closest-source-line -g hashq-ref .g source:addr /g module-procedures 0g loaded-modules 1g and=> 2g hashx-ref 3g hashv-ref 4g program? 5g program-sources 6g
hashq-set! 7g hash-ref 8g file-procedures 9g hash-fold :
;g
alist-cons <g module-submodules =g resolve-module >g
procedure? ?g module-obarray @g memq Ag fold Bg append Cg vector->list Dg program-objects E Fg program-free-variables Gg format Hf TN:~% Ig search-path Jg
%load-path Kg string? Lf SF:~A~% Mg source:line-for-user Ng procedure-name Of
anonymous-l~a Pf
FN:~A,~A~% Qf FNDA:~A,~A~% Rf
DA:~A,~A~% Sf LH: ~A~% Tf LF: ~A~% Uf end_of_record~% Vg current-error-port Wf "skipping unknown source file: ~a~%C 5 hpR ]4
"#+5 4. > " G /0 h ]4 56 g proc
g n g filenamef system/vm/coverage.scm
0
2 2 g nameg
hashq-proc C1R020 h | ]L 4 5C t g pair
g filenamef system/vm/coverage.scm
:
;
; ' ;
; C h ]
4 5 O 6 g proc
g alist g code g filenamef system/vm/coverage.scm
4
9 9 : g nameg assq-proc C3R4561378 h` h ])4 5 4 5 4M 5 " /HKJ$ 4J
5 C45 "" ` g frame
[ g proc [ g ip [ g
proc-entry " [ g ip-counts ) W g ip-entry @ K g filenamef system/vm/coverage.scm
G I I J I K " I ( M . N 6 O 7 P @ P G Q $ H Q ! I Q N S # S S W T W M [ g nameg collect! C89:;< h i ] 4LL> " G L L6 a g filenamef system/vm/coverage.scm
] ^
^ 4 ^ _
C;= h Y ] 4LL> " G L L6 Q g filenamef system/vm/coverage.scm
b c d
C>? h * ]2HO Q 4 5K4 54 5 O O Q Q 4> " G V4 > X4> " G " G 4J5E " g vm
g thunk g procedure->ip-counts g collect!
g level * g hook * g pre D g post D g args g filenamef system/vm/coverage.scm
>
E Z % $ [ % * Z 9 \ p a ~ \ Y f f g nameg with-code-coverageg
documentationf Run THUNK, a zero-argument procedure, using VM; instrument VM to collect code
coverage data. Return code coverage data and the values returned by THUNK. C$R@ h ] C g procedure->ip-counts
g procedure->sources g file->procedures g file->line-counts g filenamef system/vm/coverage.scm
m
g nameg %%make-coverage-data-procedure CAR4DEFIL h ] C g t-8d25f648290-2c
g t-8d25f648290-2d g t-8d25f648290-2e g t-8d25f648290-2f CE h Y ]L 6 Q g a
g filenamef system/vm/coverage.scm m
CJ h I ] L 6A g filenamef system/vm/coverage.scm m
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 system/vm/coverage.scm
m
n C5ER@ 4 @> " G Ai @R@ h ] $ CC x g obj
g filenamef system/vm/coverage.scm
m
g nameg %coverage-data?-procedure CR4D%FI_ h 8 ] C 0 g t-8d25f648290-42
C% h Y ]L 6 Q g a
g filenamef system/vm/coverage.scm m
CJ h I ] L 6A g filenamef system/vm/coverage.scm m
Ca 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 system/vm/coverage.scm
m
n C5%R@de h ] &
C 6 g s
g filenamef system/vm/coverage.scm
m
g nameg $%data-procedure->ip-counts-procedure CfR4DeFI 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 8 ] C 0 g t-8d25f648290-4e
Ce h Y ]L 6 Q g a
g filenamef system/vm/coverage.scm m
CJ h I ] L 6A g filenamef system/vm/coverage.scm m
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 system/vm/coverage.scm
m
C5eR@d h ] & C 6 g s
g filenamef system/vm/coverage.scm
m
g nameg "%data-procedure->sources-procedure CR4DFI 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 8 ] C 0 g t-8d25f648290-69
C h Y ]L 6 Q g a
g filenamef system/vm/coverage.scm m
CJ h I ] L 6A g filenamef system/vm/coverage.scm m
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 system/vm/coverage.scm
m
C5R@d@ h ] & C 6 } g s
g filenamef system/vm/coverage.scm
m
g nameg %data-file->procedures-procedure CAR4D@FIOV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s Clrw h : ]C 2 g err
g s C h 8 ] C 0 g t-8d25f648290-84
C@ h Y ]L 6 Q g a
g filenamef system/vm/coverage.scm m
CJ h I ] L 6A g filenamef system/vm/coverage.scm m
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 system/vm/coverage.scm
m
C5@R@d h ] & C 6 ~ g s
g filenamef system/vm/coverage.scm
m
g nameg !%data-file->line-counts-procedure CR4DFI 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 8 ] C 0 g t-8d25f648290-9f
C h Y ]L 6 Q g a
g filenamef system/vm/coverage.scm m
CJ h I ] L 6A g filenamef system/vm/coverage.scm m
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 system/vm/coverage.scm
m
C5R4DFI !" 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 system/vm/coverage.scm
m
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R8@#$%&%'(87) hX K ]!4 54 5 4L 5 $ " 4 54
5 4
5C C g source
Q g file Q g line Q g
file-entry Q g
line-entry A Q g filenamef system/vm/coverage.scm
-
- ! # ' . ! 6 7 < 0 A A F K $ N O
Q C*$ h j ]L 6 b g t-8d25f648290-118
g filenamef system/vm/coverage.scm
+
C+#,(87) hP @ ]4L 5 4LL5 $ " 4 54
5 45C 8 g ip
K g count K g line K g
file-entry K g
line-entry : K g filenamef system/vm/coverage.scm
- ! ' ! / 0 5 0 : : ? D $ H I
K C
hh " ]4L 5 $ 45" $ ;4L O 4LO 4 55> " G L O 6C g proc
f g ip-counts f g sources f g file ! f g filenamef system/vm/coverage.scm
% * % * 7 * ! ) * 4 > + F K d f C&-&$%&,(87) hP , ]4L 5 4LL5 $ " 4 54
5 4
5C $ g ip
J g line J g
file-entry J g
line-entry : J g filenamef system/vm/coverage.scm
) 7 + ' ! / 0 5 0 : : ? D $ G H
J C . hH ]4L 5 $ 45" $ LO 456C g proc
C g sources C g file ! C g filenamef system/vm/coverage.scm
1 ! 6 1 6 C 6 ! ! ) # 7 ) A (
C C+ h( ]4L 5$ CLL O 4 56 y g proc
% g filenamef system/vm/coverage.scm
% % C*/0
hx w ]!4 5 4 d5 4 d5 4O > " G 4O 44 5 5> " G C o g procedure->ip-counts
r g procedure->sources
r g file->procedures r g file->line-counts r g data + r g filenamef system/vm/coverage.scm
+ + . I W \ , b g r g nameg make-coverage-data C?R$1213@de.3 h ] 4L 5
6 g ip-counts
g entry-ip
g filenamef system/vm/coverage.scm
" /
"
C
hH ]
4 5 $ 04 &
" 4 55 O 6C g data
F g proc F g sources F g filenamef system/vm/coverage.scm
; D
F g nameg procedure-execution-countg
documentationf Return the number of times PROC's code was executed, according to DATA, or #f
if PROC was not executed. When PROC is a closure, the number of times its code
was executed is returned, not the number of times this code associated with this
particular closure was executed. C)R-@d45@%(6 h ]*4 & " 4 55 $ C45$ 45 & " 4 5 & " 4 5 $ 845 4 5 4
> " G CCC g data
g proc g t # g sources u g p->s u g f->p u g file g entry g filenamef system/vm/coverage.scm
# # / 9 : C ] u ~
, > . # g nameg program-sources* C$R7@d@ h( ] & " 4 56 g data
$ g file $ g filenamef system/vm/coverage.scm
" . $ $ g nameg file-procedures C8R17@d9 h( ]
$ " C g line
" g count " g
instr+exec " g instr " g exec " g filenamef system/vm/coverage.scm
' ' " & " & !
" C: h v ] 6 n g line-counts
g filenamef system/vm/coverage.scm
C h8 p ]
H44 & " 4 555KJJDh g data
8 g file 8 g
instr+exec 8 g filenamef system/vm/coverage.scm
* . 3
6 8
8 g nameg instrumented/executed-linesg
documentationf dReturn the number of instrumented and the number of executed source lines in
FILE according to DATA. C'R17@d9; h v ] 6 n g line-counts
g filenamef system/vm/coverage.scm
! C h0 < ]4 & " 4 556 4 g data
* g file * g filenamef system/vm/coverage.scm
& * * g nameg line-execution-countsg
documentationf rReturn a list of line number/execution count pairs for FILE, or #f if FILE
is not among the files covered by DATA. C(R9 h ] C g file
g counts g files g filenamef system/vm/coverage.scm
C@d h( + ] & " 4 56 # g data
$ g filenamef system/vm/coverage.scm
$ $ g nameg instrumented-source-filesg
documentationf xReturn the list of `instrumented' source files, i.e., source files whose code
was loaded at the time DATA was collected. C&R89-6< h8 ]4M5$ C4M> " G L 456 g name
7 g module 7 g result 7 g filenamef system/vm/coverage.scm
* 5 7 7 C h ]L LO 6 g modules
g result g filenamef system/vm/coverage.scm
g nameg loop C<= h0 ]H 45 K O Q 44556 g seen
- g loop - g filenamef system/vm/coverage.scm
" ) % 9 ( ) * + - -
g nameg loaded-modules C0R9> h( ] $ 45$ CCC g binding
% g var % g result % g value " g filenamef system/vm/coverage.scm
! % C? h ]4 56 g module
g filenamef system/vm/coverage.scm
$
%
g nameg module-procedures C/R.' hX c ]" 1( C 45$ C45 " $ 4 5" " [ g sources
U g ip U g sources 7 g line 7 g source 7 g filenamef system/vm/coverage.scm
'
+ - / / 0 0 " 0
( 2 ) 2 " 7 2 7 + < , @ , A , + F , 8 H , + U + U g nameg closest-source-line C,R4@ABCDEF hX ]
4 5$ F4 5$ CL 444 5 $ " 54 556C g proc
V g result V g t 3 F g filenamef system/vm/coverage.scm
6 8
8 8 " 8 & 9 ' : * : - : ( 3 : $ C : ? H : I ; Q : S 9 V g nameg loop C4ABCDEF hX ]O Q 4 5$ 6 444 5 $ " 54 556C g proc
R g loop
R g t 0 C g filenamef system/vm/coverage.scm
4
6 8
8 # 7 $ : ' : * : ( 0 : $ @ : ? E : F ; N : P 9 Q 7 R g nameg closed-over-procedures C+RGH&8IJKGL&4$MNGOP1)GQ h p ]L L 6 h g count
g filenamef system/vm/coverage.scm
S T ( T C h { ]4 5$ p4L 5 $ \45 4 5 $ "
45 4L> " G 4 L 5
LO 6CC s g proc
g sources } g line ' { g t 0 K g name K { g filenamef system/vm/coverage.scm
I K
K L L M M N % N 3 ' N ' N * O ! 0 O ? P ! D P , H P ! K N N Q T Q ] Q h R { R g nameg
dump-function CGR h ] L 6 g
line+count
g line g count g filenamef system/vm/coverage.scm
_ ` / a / ` " b 1 c , b $ C('STUVW h ]!4L 54 5 45$ 4L > " G 4LL O > " G 4 L O 4
L 5> " G 4 L > G 4L > " G 4L
> " G L 645 6 g file
g procs g path g instr g exec g filenamef system/vm/coverage.scm
X Y Z Y [ # [ $ ] * ] # 1 ] : ^ U _ _ d l _ u f $ e g g % g h h % h i # i k l k C& h0 ]4> " G O 4 56 g data
* g port * g filenamef system/vm/coverage.scm
C
W W W " n * X * g nameg coverage-data->lcovg
documentationf Traverse code coverage information DATA, as obtained with
`with-code-coverage', and write coverage information in the LCOV format to PORT.
The report will include all the modules loaded at the time coverage data was
gathered, even if their code was not executed. C*RC g m
, g rtd
t g filenamef system/vm/coverage.scm
0
Y 4
] >
v m
1B
4
7t
8a
;
>
@6
C
D
F '
I 4
Rj C
Rl
C6 PK ! iv@ @ system/vm/trace.gonu [ GOOF----LE-8-2.0( ] h 4 h ] g guile g define-module* g system g vm g trace
g filenameS f system/vm/trace.scm g importsS
g base g syntax
g frame g program g objcode g traps g rnrs g bytevectors ! "! #g instruction $# %$ &g ice-9 'g format (&' )( * "%) +g exportsS ,g trace-calls-in-procedure -g trace-calls-to-procedure .g trace-instructions-in-procedure /g call-with-trace 0,-./ 1g set-current-module 21 31 4g *objcode-header-len* 5g
string-append 6g
string-length 7f 8g build-prefix 9f | :f ~d> ;g current-error-port <f ~a~v:@y
=g frame-call-representation >g print-application ?g frame-num-locals @g frame-local-ref Af ~d< Bf ~ano values
Cf ~a~d values:~{ ~a~}
Dg map Ef ~v:@y Fg frame-return-values Gg print-return Hg widthS IH Jg vmS KJ Lg prefixS ML Ng
max-indentS ON PIKMO Qg the-vm Rf trace: Sg trap-calls-to-procedure Tg trap-calls-in-dynamic-extent UN VIKU Wg #trap-instructions-in-dynamic-extent Xg frame-instruction-pointer Yg program-objcode Zg frame-procedure [g objcode->bytecode \f ~8d: ~a
]g opcode->instruction ^g calls?S _^ `g
instructions?S a` bH cJ dN e_abcd fg set-vm-trace-level! gg vm-trace-levelC 5 h@ ]4
*+05 43 > " G 4R56'7 h` x ]" M$ 64545$ 45 " 456
" p g prefix
^ g depth ^ g infix ^ g numeric-format ^ g
max-indent ^ g indent S g n S g filenamef system/vm/trace.scm
&
' ) ( * + + # & + ) + - ( . ,
9 , ' A , H . # S . S ' U ' ^ ' ^ g nameg build-prefix C8R89:';<= h0 % ]
45 45 4 56 g frame
) g depth ) g width ) g prefix ) g
max-indent ) g prefix ) g filenamef system/vm/trace.scm
0
1 1 +
1 1 1 1 2 2 ! ! 5 ) 2 ) g nameg print-application C>R?@89A';B<CD'E h h ]L 6 ` g val
g filenamef system/vm/trace.scm
H I !
I
CF h ] 4 5 4 5 45
$
45 6 $ 45 4 5645
4 O 4
556 g frame
g depth g width g prefix g
max-indent g len g nvalues g prefix & g filenamef system/vm/trace.scm
7
8 8 9 9 ) 9 8 : : , " : 2 & : & 8 0 ; 3 = 9 = $ = = E ; H ? N ? $ S B \ B & ^ B ` ? c F i F $ n H x J H F g nameg print-return CGRPQRS> h ] LLL 6 g frame
g depth g filenamef system/vm/trace.scm
O P g nameg
apply-handler CG h ] LLL 6 g frame
g depth g filenamef system/vm/trace.scm
Q R g nameg return-handler CJ hh ' - / 0 3 # P # 45 # # ( O O 6 g proc
a g width a g vm a g prefix a g
max-indent a g filenamef system/vm/trace.scm
L
$ L = 2 M + ? N / a S a
g widthS g vmS g prefixS g
max-indentS g nameg trace-calls-to-procedure C-RPQRT> h ] LLL 6 g frame
g depth g filenamef system/vm/trace.scm
Y Z g nameg
apply-handler CG h ] LLL 6 g frame
g depth g filenamef system/vm/trace.scm
[ \ g nameg return-handler CJ hh ' - / 0 3 # P # 45 # # ( O O 6 g proc
a g width a g vm a g prefix a g
max-indent a g filenamef system/vm/trace.scm
V
$ V = 2 W + ? X / a ] a
g widthS g vmS g prefixS g
max-indentS g nameg trace-calls-in-procedure C,RVQWXYZ[4'\] h8 ]4 5 44 55 45 456 g frame
8 g ip 8 g objcode 8 g opcode & 8 g filenamef system/vm/trace.scm
b c c d d % d c e & % f & & e & c - g 0 g 8 g 8 g nameg
trace-next CJ hH - / 0 3 # P # 45 # ( 6 g proc
C g width C g vm C g
max-indent C g filenamef system/vm/trace.scm
`
$ ` D 5 a 6 C i C
g widthS g vmS g
max-indentS g nameg trace-instructions-in-procedure C.ReQ,JHN.fg hP ] L$ 4LLLL5N" L $ 4LLLL5N" L4L56 g filenamef system/vm/trace.scm
t u w v ' y ( { < z E } $ L } N } N
Cfg hX ] 4L4L5> " G M$ 4M> " G " M $ 4M > " G " NN C g filenamef system/vm/trace.scm
$ " # < = S V X
C,JHN.fg hP ] L$ 4LLLL5N" L $ 4LLLL5N" L4L56 g filenamef system/vm/trace.scm
t u w v ' y ( { < z E } $ L } N } N
Cfg hX ] 4L4L5> " G M$ 4M> " G " M $ 4M > " G " NN C g filenamef system/vm/trace.scm
$ " # < = S V X
Cfg hX ] 4L4L5> " G M$ 4M> " G " M $ 4M > " G " NN C g filenamef system/vm/trace.scm
$ " # < = S V X
C h - / 0 3 # # # P # 45 # ( HH O O 4 O > " G V4 > X4O > " G CX4O > " G F ~ g thunk
g calls? g
instructions? g width g vm g
max-indent g call-trap K g inst-trap K g filenamef system/vm/trace.scm
o
6 p ) G p ? K q p s
g calls?S g
instructions?S g widthS g vmS g
max-indentS g nameg call-with-trace C/RC g m
, g filenamef system/vm/trace.scm
1 $
# &
0
7
L
V
`
9 o
;
C6 PK ! 7*9Q9 9 system/vm/objcode.gonu [ GOOF----LE-8-2.0! ] 4 h ] g guile g define-module* g system g vm g objcode
g filenameS f system/vm/objcode.scm g exportsS
g objcode? g objcode-meta g bytecode->objcode g objcode->bytecode g load-objcode g
write-objcode g word-size g
byte-order
g set-current-module g load-extension g
string-append f libguile- g effective-version f scm_init_objcodesC 5h@ ]4
5 4 > " G i4i4 i5 5 6 g m
( g filenamef system/vm/objcode.scm
- 3 4 + < > @
@
C6 PK ! j~Y= = system/vm/program.gonu [ GOOF----LE-8-2.0= ] 4 hI
] g guile g define-module* g system g vm g program
g filenameS f system/vm/program.scm g importsS
g base g pmatch
g instruction g objcode g rnrs g bytevectors g srfi g srfi-1 g srfi-26 ! " ! #g exportsS $g make-program %g make-binding &g binding:name 'g binding:boxed? (g
binding:index )g
binding:start *g binding:end +g source:addr ,g source:line -g
source:column .g source:file /g source:line-for-user 0g program-sources 1g program-sources-pre-retire 2g program-source 3g program-bindings 4g program-bindings-by-index 5g program-bindings-for-ip 6g program-arities 7g
program-arity 8g arity:start 9g arity:end :g
arity:nreq ;g
arity:nopt <g arity:rest? =g arity:kw >g arity:allow-other-keys? ?g program-arguments-alist @g program-lambda-list Ag program-meta Bg program-objcode Cg program? Dg program-objects Eg program-module Fg program-base Gg program-free-variables Hg program-num-free-variables Ig program-free-variable-ref Jg program-free-variable-set! K$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ ' Lg set-current-module ML NL Og load-extension Pg
string-append Qf libguile- Rg effective-version Sf scm_init_programs Tg list-ref Ug *bytecode-header-len* Vg opcode->instruction Wg load-program Xg instruction-length Yg bytecode-instruction-length Zg objcode->bytecode [g reverse \g error ]f
unexpected ^g map _g cdr `g sort! ag assv-ref bg append! cg collapse-locals df bad arity eg required fg optional gg keyword hg allow-other-keys? ig rest jg extents kg arglist->arguments-alist lg string->symbol mf _ ng length og arity->arguments-alist pg and=> qg arguments-alist->lambda-list rg assq-ref sg keyword->symbol tg car ug append vu wu xg optionalS yg keyS zg unfold {g 1+ |g format }f #<procedure ~a~a> ~g procedure-name f ~a at ~a:~a:~a g number->string g object-address f <current input> f <unknown port> f f g string-join g object->string f | g
write-programC 5 hH1 ]4
"#K5 4N > " G 4Oi4PiQ4Ri5 5S> " G h ] C g name
g boxed? g index g start g end g filenamef system/vm/program.scm
5
6 g nameg make-binding C%RT h x ]
6 p g b
g filenamef system/vm/program.scm
7
7 g nameg binding:name C&RT h z ] 6 r g b
g filenamef system/vm/program.scm
8
8 g nameg binding:boxed? C'RT h y ] 6 q g b
g filenamef system/vm/program.scm
9
9
g nameg
binding:index C(RT h y ] 6 q g b
g filenamef system/vm/program.scm
:
:
g nameg
binding:start C)RT h w ] 6 o g b
g filenamef system/vm/program.scm
;
;
g nameg binding:end C*R h | ] C t g source
g filenamef system/vm/program.scm
=
> g nameg source:addr C+R h | ] C t g source
g filenamef system/vm/program.scm
?
@ g nameg source:file C.R h | ] Ct g source
g filenamef system/vm/program.scm
A
B g nameg source:line C,R h ~ ] Cv g source
g filenamef system/vm/program.scm
C
D g nameg
source:column C-R, h ]4 5C g source
g filenamef system/vm/program.scm
I
J
J g nameg source:line-for-user C/R URUVWX hh ] 4 5 & " 645
$ " " 45C g bytecode
h g ip h g idx h g inst h g filenamef system/vm/program.scm
Q
R R
S S $ S R V U " W 1 # W
* X 1 + X
, W
1 Y
9 Y
= U B \ . C \ F \
M ] . N ] Q ]
R \
Y ^ ) Z ^
[ \
` a
g U h g nameg bytecode-instruction-length CYRZB[Y\]0 h ]I44 55 " n( 6 $ P " 6 $ 4 5 " " "64 5
" g proc
g bv g in g out g ip g v # g vx 2 | g vy 2 | g ip : p g next : p
g filenamef system/vm/program.scm
m
n n n n o r t # v # v : x ? z C z
H { # Q { Y { \ | a } p | p x o o p o g nameg program-sources-pre-retire C1R^_` h ] C { g x
g y
g filenamef system/vm/program.scm
) 1 &
Ca(b h ]!" n( 456 4455 $ $4 > " G "45 " " ~ g locs
g ret t g locs t g b t g t . t g filenamef system/vm/program.scm
! & . .
7 @ # E R Z [ f ) i l t t u g nameg collapse-locals CcR3c h ] 4 5 $ 6C g prog
g t g filenamef system/vm/program.scm
g nameg program-bindings-by-index C4R[)*4 h ]" m( 6" I( " F" "45$ 45$
" "" " "4 5 " g prog
g ip g in s g out s g binds b g filenamef system/vm/program.scm
, ! 2 2 3 8 ( : = A D I & K L S V b e k s s t { 6 g nameg program-bindings-for-ip C5R\d h8 ] $ $ $ C 6 6 g a
5 g vx - g vy - g filenamef system/vm/program.scm
) 3 - , 1 3 5 , 5 g nameg arity:start C8R\d h8 ] $ $ C 6 6 g a
1 g vy ) g filenamef system/vm/program.scm
% 1 ) * - 1 1 * 1 g nameg arity:end C9R h8 ] $ , $ $ C
C
C
C g a
7 g vy 5 g vy 3 g filenamef system/vm/program.scm
7 g nameg
arity:nreq C:R hP ] $ > $ , $ $ C
C
C
C
C g a
I g vy G g vy E g vy , C g filenamef system/vm/program.scm
I g nameg
arity:nopt C;R h` ]! $ P $ > $ , $ $ CCCCCC g a
[ g vy Y g vy W g vy , U g vy < S g filenamef system/vm/program.scm
[ g nameg arity:rest? C<R h ]A $ $ o $ ] $ K $ 9 $ ' $ ( CCCCCCCCC g a
g vy g vy g vy , g vy < g vy L g vx _ g vy _ g vy m ~ g filenamef system/vm/program.scm
} : g nameg arity:kw C=R h
]A $ $ o $ ] $ K $ 9 $ ' $ ( CCCCCCCCC g a
g vy g vy g vy , g vy < g vy L g vx _ g vy _ g vx m ~ g filenamef system/vm/program.scm
g nameg arity:allow-other-keys? C>R689 hh l ]4 5 $ U" I( C$ 7" "45$ 45$ C""C "Cd g prog
h g ip h g arities h g arities ^ g filenamef system/vm/program.scm
* 0 0 1 6 ' 8 ; ? B G ) I J N Q ] ^ h g nameg
program-arity C7Refghij h 8 ]Q $ x $ e $ R $ ? $ ,
CCCCCC 0 g arglist
g vx g vy g vx g vy g vx 1 } g vy 1 } g vx B { g vy B { g vx S y g vy
S y g filenamef system/vm/program.scm
Y g nameg arglist->arguments-alist CkRlm h k ]6c g i
g filenamef system/vm/program.scm
" > . C^(& h t ]4 54 5C l g x
g filenamef system/vm/program.scm
1 C58a h ] 4L 5 $ CL 6 z g i
g t g filenamef system/vm/program.scm
Cn=e[fgh>i:;< h@ - . , 3 # H44 4555 O K"
$ *4J
5
"
$ *4J
5
"$ 24J
44555
"d 4
5 4
5 45
45 C454545
" g prog
: g arity : g make-placeholder : g var-by-index : g rbinds . < g nreq B g req B g nopt B g opt B g rest? B g rest B g n
B g filenamef system/vm/program.scm
$ 0 , . . B F J M
N W b t x |
(
* * : 0 : g nameg arity->arguments-alist CoR7o h0 , - . , 3 # 4 5 $ 6C$ g prog
0 g ip 0 g arity 0 g filenamef system/vm/program.scm
& . 0 g nameg program-arguments-alistg
documentationf PReturns the signature of the given procedure in the form of an association list. C?Rp?q h( - . , 3 # 4 56 g prog
$ g ip $ g filenamef system/vm/program.scm
$ $ g nameg program-lambda-listg
documentationf MReturns the signature of the given procedure in the form of an argument list. C@Rref^stgiwxy h ` ]!4 5 $ " 4 5 $ " 444 5 $ " 554 5 $ " 4 $
" 4 $ " 556X g arguments-alist
g t g t & 8 g t K ] g t j | g req | g opt | g key | g rest | g filenamef system/vm/program.scm
+
6 $ + & &
5 6 9
> C I 9 K K Z C _ a
b h , j j y 3 | . ) & g nameg arguments-alist->lambda-list CqRHz h b ] L CZ g i
g filenamef system/vm/program.scm
CI h h ]L 6 ` g t-46b52c6efc-47d
g filenamef system/vm/program.scm
C{ h ] 4 5 O O
6 g prog
g count g filenamef system/vm/program.scm
g nameg program-free-variablesg
documentationf *Return the list of free variables of PROG. CGR|}~p2|./-
hP ] 44L 5 54 5 $ " $ " 4 54 56 g s
K g t ; g filenamef system/vm/program.scm
" / # 0 # 2 ) 8 ; < C 8 K K C6P^qo h } ]44L 556 u g a
g filenamef system/vm/program.scm
' * + * ) C h ]
4 5 $ " 344
5 O 5 $ " 44 5 5 4 5 $ " $
" 4 4
4 O 555 6 g prog
g port g t S g t 1 P g arities Z g filenamef system/vm/program.scm
! 1 1
@ C M T Z
b e " j n p u y z } " "
g nameg
write-program CRC g m
, g filenamef system/vm/program.scm
- 2
2 2 8 2 9 2 + A 2 C 3 H 2
9 5
7
u 8
9
:
R ;
=
?
A
C
` I
e M
Q
$ m
6
?
5
C
c
$
&?
'
*
,
1F
) 1H
C6 PK ! pt t system/vm/traps.gonu [ GOOF----LE-8-2.0t ] 4 hU ] g guile g define-module* g system g vm g traps
g filenameS f system/vm/traps.scm g importsS
g base g pmatch
g frame g program g objcode g instruction g xref ! "g rnrs #g bytevectors $"# %$ & !% 'g exportsS (g trap-at-procedure-call )g trap-in-procedure *g trap-instructions-in-procedure +g trap-at-procedure-ip-in-range ,g trap-at-source-location -g trap-frame-finish .g trap-in-dynamic-extent /g trap-calls-in-dynamic-extent 0g #trap-instructions-in-dynamic-extent 1g trap-calls-to-procedure 2g trap-matching-instructions 3()*+,-./012 4g set-current-module 54 64 7g make-syntax-transformer 87 97 :g arg-check ;g macro <g $sc-dispatch =< >< ?g any @???? Ag
syntax-object Bg if Cg top DC Eg ribcage Fg dummy Gg arg Hg
predicate? Ig message JFGHI Kg
m-1f68148ae-0 LKC MLDDD Nf
l-1f68148ae-5 Of
l-1f68148ae-6 Pf
l-1f68148ae-7 Qf
l-1f68148ae-8 RNOPQ SEJMR TE Ug x VU WL Xf
l-1f68148ae-2 YX ZEVWY [DSTZ \g hygiene ]\ ^AB[] _g not `A_[] ag error bAa[] cf bad argument ~a: ~a dAc[] eg quote fAe[] g??? hFGH iLDD jf
l-1f68148ae-e kf
l-1f68148ae-f lf l-1f68148ae-10 mjkl nEhim oDnTZ pABo] qA_o] rAao] sf bad argument ~a: expected ~a tAso] uAeo] vg syntax-violation wv xv yf -source expression failed to match any pattern zf trap already enabled {f trap already disabled |g new-disabled-trap }g new-enabled-trap ~g procedure g frame-procedure g program? g program-objcode g
frame-matcher g vmS g closure?S g
our-frame?S g the-vm g
procedure? g proc g handler g add-hook! g
vm-apply-hook g remove-hook! g
current-frameS g
enter-handler g exit-handler g warn f already in proc g frame-previous g vm-push-continuation-hook g vm-pop-continuation-hook g vm-abort-continuation-hook g vm-restore-continuation-hook g next-handler g vm-next-hook g number? g integer? g exact? g non-negative-integer? g positive-integer? g and-map g range? g or-map g in-range? g range g
frame-address g frame-instruction-pointer g objcode->bytecode g program-last-ip f
unexpected g for-each g assv-set! g assv-ref g sort! g program-sources-pre-retire g program-sources-by-line f no instructions found at f : f ; using line f instead f no instructions found for g source->ip-range g source-closures g source-procedures g source-closures-or-procedures g string? g file g user-line g map f No procedures found at ~a:~a. g frame? g return-handler g
abort-handler f .return-or-abort traps may only be enabled once g
apply-handler g length g delq g
frame-predC 5 hc ]4
&'35 46 > " G 49:;>@^`bdf h( k ] C c g dummy
$ g arg $ g
predicate? $ g message $ $ Cgpqrtu h0 V ] C N g dummy
) g arg ) g
predicate? ) ) Cxy h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef system/vm/traps.scm
N 9 g
macro-typeg syntax-rulesg patternsg argg
predicate?g message g argg
predicate? C5:Raza{ hP - . , 3 # M$ " 4> " G 4L > " G NL C g frame
I g filenamef system/vm/traps.scm
c d d $ d ) d 2 e D f I
g nameg disable-trap C hX - . , 3 # M$ 4> " G " 4L > " G NLL LO C g frame
R g filenamef system/vm/traps.scm
] ^ ^ ^ % ^ 2 _ F ` R
g nameg enable-trap C h ]HO Q C g vm
g enable g disable g enabled? g enable-trap g filenamef system/vm/traps.scm
V
W g nameg new-disabled-trap C|R| h ]4 56 g vm
g frame g enable g disable g filenamef system/vm/traps.scm
k
l l g nameg new-enabled-trap C}R~ h8 ] 4 5 L & C45$ 454L 5CC g frame
2 g
frame-proc 2 g filenamef system/vm/traps.scm
s t t
u u v v ! w ( x / w 2 C h j ]4 5L C b g frame
g filenamef system/vm/traps.scm
y z z
C h0 ]
$ 4 5" $ O CO C g proc
. g match-objcode? . g proc . g filenamef system/vm/traps.scm
n
o o
p o r . g nameg
frame-matcher CRash ]4L 5$ L 6C g frame
g filenamef system/vm/traps.scm
g nameg
apply-hook C} h m ]4L5L 6 e g frame
g filenamef system/vm/traps.scm
C h m ]4L5L 6 e g frame
g filenamef system/vm/traps.scm
C h M - / 0 3 # 45 # # 4 5 4 5$ " 4> " G 45$ " 4 > " G
O Q O
O 6 E g proc
g handler g vm g closure? g
our-frame? g
apply-hook g filenamef system/vm/traps.scm
~
~ 8 0 - ; `
g vmS g closure?S g
our-frame?S g nameg trap-at-procedure-call C(Ras hX ]M$ 4L > " G N" 4L 5$ %M$ 64L > " G NCC g frame
S g filenamef system/vm/traps.scm
"
, 2 6 :
; O S g nameg
apply-hook C h( ]M$ 4L > " G NCC g frame
! g filenamef system/vm/traps.scm
! g nameg push-cont-hook C hh ] M$ 4L > " G N" 4L 4 55$ .4 5 M$ 64L> " G NCC g frame
a g frame 8 _ g filenamef system/vm/traps.scm
"
% -
1 2 8
@ D H
I ] a g nameg
pop-cont-hook C hX ]M$ 4L > " G N" 4L 5$ %M$ 64L > " G NCC g frame
S g filenamef system/vm/traps.scm
"
, 2 6 :
; O S g nameg
abort-hook C hX ]M$ 4L > " G N" 4L 5$ %M$ 64L > " G NCC g frame
S g filenamef system/vm/traps.scm
"
, 2 6 :
; O S g nameg restore-hook C} h 4 ]44L5L> " G 44L5L> " G 44L5L> " G 44L5L> " G 44L5L> " G $ 24L 5$ %M $ 64L > " G N CCC , g frame
g filenamef system/vm/traps.scm
, 5 8 E N Q ^ g j w
C h ]M$ 4L > " G N" 44L5L> " G 44L5L> " G 44L5L> " G 44L5L> " G 4L5L 6 g frame
g filenamef system/vm/traps.scm
" % 2 ; > K T W d m p } C hX 9 - / 0 3
# # 45 # # 4 5 4 5$ " 4> " G 45$ " 4 > " G 45$ " 4
> " G H O O
O
O O Q Q Q
Q Q
O
O 6 1 g proc
Q g
enter-handler Q g exit-handler Q g
current-frame Q g vm Q g closure? Q g
our-frame? Q g in-proc? Q g
apply-hook Q g push-cont-hook Q g
pop-cont-hook
Q g
abort-hook Q g restore-hook Q
g filenamef system/vm/traps.scm
# 4 9 ( D i Q Q
g
current-frameS g vmS g closure?S g
our-frame?S g nameg trap-in-procedure C)Ras h ]4L 5$ L 6C g frame
g filenamef system/vm/traps.scm
g nameg next-hook C) h8 ]44L5L> " G $ 4L 5$ L 6CC g frame
6 g filenamef system/vm/traps.scm
! "
, 2
6 g nameg enter C h( ]4L > " G 4L 5L6 g frame
! g filenamef system/vm/traps.scm
! ! g nameg exit C h - / 0 3 # # 45 # # 4 5 4 5$ " 4> " G 45$ " 4 > " G 45$ " 4
> " G O Q
O O 6 g proc
g next-handler g exit-handler g
current-frame g vm g closure? g
our-frame? g next-hook g filenamef system/vm/traps.scm
# A 9 * D i
g
current-frameS g vmS g closure?S g
our-frame?S g nameg trap-instructions-in-procedure C*R h0 ]4 5$ 4 5$ 4 5$
CCCC g x
/ g filenamef system/vm/traps.scm
# & 0 ( +
/ g nameg non-negative-integer? CR h0 ]4 5$ 4 5$ 4 5$
CCCC g x
. g filenamef system/vm/traps.scm
# & + . g nameg positive-integer? CR h ] $ 4 5$ 6CC g x
g filenamef system/vm/traps.scm
. .
C h ] $ 6C | g x
g filenamef system/vm/traps.scm
g nameg range? CR h ] L $ L CC g bounds
g filenamef system/vm/traps.scm
C h ]O 6 g range
g i g filenamef system/vm/traps.scm
g nameg in-range? CRas h@ ] " ," N C$ $ """M " g fp
: g frames 2 g filenamef system/vm/traps.scm
! # ! $ * 2
: g nameg cull-frames! C hp k ]!4 54 5 4L> " G 4L5M $
M " $ $ CM N C$
M N L 6C c g frame
o g fp o g ip o g
now-in-range? A o g
was-in-range? A o g filenamef system/vm/traps.scm
# $
% $ & ' ' 2 ( " 6 ( 9 ( 6 < ( 3 A ' K )
Q + V , X , ` )
e . g . m / o g nameg next-handler C* h( ]M $ M 4 5$ M N CCC g frame
# g filenamef system/vm/traps.scm
1 2 2 3
3 ! 3 2
4 4
# g nameg exit-handler C h - / 0 3
# # 45 # # 4 5 4 5$ " 4> " G 4 5$ " 4
> " G 45$ " 4 > " G H
O O Q Q O 6 g proc
g range g handler g
current-frame g vm g closure? g
our-frame? g fp-stack g cull-frames! g next-handler
g filenamef system/vm/traps.scm
# @ 9 ) D i 6
g
current-frameS g vmS g closure?S g
our-frame?S g nameg trap-at-procedure-ip-in-range C+R h ]44 55
C g prog
g filenamef system/vm/traps.scm
=
> > 0 > > g nameg program-last-ip CRa h0 ] 4M 4M 5 $ " 5N C g pair
0 g t ) g filenamef system/vm/traps.scm
T V
V $
W $ X ( X 8 X ( X $ & Y ( * W , V . U
0 C h ] C y g x
g y
g filenamef system/vm/traps.scm
[ [ ( [ 0 [ %
C h ]R" $ $ $ $ g $ L $ 0
$
" 45
"
4 5" " 45 " 45 " 45 "-H4O > " G 4J> " G JC4 5 " g proc
g file g sources g out g v g vx " g vy " g vx 3 g vy 3 g vx A g v
^ g vx j x g alist
g filenamef system/vm/traps.scm
@
A C
C D E E L G P G U I * V I # Z I ] J + ^ J # u L & } M + M 2 M + N 2 N # H H Q Q Q Q Q Q Q D R R S
[
A
A B A ' g nameg program-sources-by-line CR h@ ] L$ C L$ #4L L > " G CC g line-and-ranges
? g filenamef system/vm/traps.scm
_ a a ` b c c ` d d # d 8 ' e * e ' , e = 1 d < f ? C h@ ] 4O 4 55 $ C4> " G C g proc
> g file > g line > g t > g filenamef system/vm/traps.scm
^
_ h _ _ % j ) j - j / 4 j = k > g nameg source->ip-range CR h( ]
4 5 $ D4 5D g file
% g line % g closures % g filenamef system/vm/traps.scm
m
n n o o p q % q % g nameg source-closures-or-procedures CRas}+ h( ] 4 L L5 LLLL6 g proc
& g range & g filenamef system/vm/traps.scm
! = ! & & Ca h0 ]4LLLLLLO L5N M (
LL6C g frame
. g filenamef system/vm/traps.scm
" & , . C h c ] L 6[ g trap
g filenamef system/vm/traps.scm
$ C h m ]4 O M > " G N Ce g frame
g filenamef system/vm/traps.scm
C h - / 0 3 # # 45 4 5$ " 4> " G 45$ " 4
> " G 4 5$ " 4
> " G H4 > G O O 6 g file
g user-line g handler g
current-frame g vm g traps g procs g closures? g filenamef system/vm/traps.scm
w
# x : * y O z t { | ~ ~ 7 ~ }
g
current-frameS g vmS g nameg trap-at-source-location C,Ras h( ]M$ 4 5M& NL 6CC g frame
" g filenamef system/vm/traps.scm
" g nameg
pop-cont-hook C h( ]M$ 4 5M$ NL 6CC g frame
# g filenamef system/vm/traps.scm
# g nameg
abort-hook C}a h` ]M$ " 4> " G 44L5L> " G 44L5L > " G 4L5L 6 g frame
] g filenamef system/vm/traps.scm
" / 8 ; H S ] ] C hH ]N44L5L> " G 44L5L > " G 4L5L 6 g frame
D g filenamef system/vm/traps.scm
" / : D D C h _ - / 0 3 # 45 4 5$ " 4> " G 45$ " 4
> " G 45$ " 4
> " G 4 5H
O O Q Q O O 6 W g frame
g return-handler g
abort-handler g vm g fp g
pop-cont-hook g
abort-hook g filenamef system/vm/traps.scm
& ! F k
g vmS g nameg trap-frame-finish C-Ras h ]4M > " G NL 6 g frame
g filenamef system/vm/traps.scm
g nameg
abort-hook C- h ]4M > " G NL 6 g frame
g filenamef system/vm/traps.scm
g nameg return-hook C hH ]M$ " 4L 5$ ,4L > " G 4 LLO LL5NCC g frame
F g filenamef system/vm/traps.scm
+ B F g nameg
apply-hook C} h m ]4L5L 6 e g frame
g filenamef system/vm/traps.scm
C hH ]M$ +4M > " G N4L > " G " N4L 5L6 g frame
C g filenamef system/vm/traps.scm
6 9 C C C h( - / 0 3 # # 45 # # 4 5 4 5$ " 4> " G 45$ " 4 > " G 45$ " 4
> " G 45$ " 4 > " G H O
O
Q Q
O
O 6 g proc
$ g
enter-handler $ g return-handler $ g
abort-handler $ g
current-frame $ g vm $ g closure? $ g
our-frame? $ g exit-trap $ g
abort-hook $ g
apply-hook
$ g filenamef system/vm/traps.scm
# 9 9 - D i $
$
g
current-frameS g vmS g closure?S g
our-frame?S g nameg trap-in-dynamic-extent C.Ras h ]M N C | g frame
g filenamef system/vm/traps.scm
g nameg
trace-push C h ]4L M > " G M N C g frame
g filenamef system/vm/traps.scm
g nameg trace-pop C h | ]L M 6 t g frame
g filenamef system/vm/traps.scm
g nameg trace-apply C. hH ]44L5L> " G 44L5L> " G 4L5L 6 g frame
A g filenamef system/vm/traps.scm
, 7 A
A g nameg enter C hH ]44L5L> " G 44L5L> " G 4L5L 6 g frame
A g filenamef system/vm/traps.scm
, 7 A
A g nameg return C hH ]44L5L> " G 44L5L> " G 4L5L 6 g frame
A g filenamef system/vm/traps.scm
, 7 A
A g nameg abort C h
- / 0 3 # # 45 # # 4 5 4 5$ " 4> " G 45$ " 4 > " G 45$ " 4
> " G
H O O
O
Q Q Q
O
O
O 6
g proc
g
apply-handler g return-handler g
current-frame g vm g closure? g
our-frame? g *call-depth* g
trace-push g trace-pop g trace-apply
g filenamef system/vm/traps.scm
# ? 9 ( D i
g
current-frameS g vmS g closure?S g
our-frame?S g nameg trap-calls-in-dynamic-extent C/Ras h { ]L 6s g frame
g filenamef system/vm/traps.scm
g nameg
trace-next C. h ]4L5L 6 w g frame
g filenamef system/vm/traps.scm
g nameg enter C h ]4L5L 6 x g frame
g filenamef system/vm/traps.scm
g nameg return C h ]4L5L 6 w g frame
g filenamef system/vm/traps.scm
" g nameg abort C h - / 0 3 # # 45 # # 4 5 4 5$ " 4> " G 45$ " 4 > " G
O Q O
O O 6
g proc
g next-handler g
current-frame g vm g closure? g
our-frame? g
trace-next g filenamef system/vm/traps.scm
# F 9 / D i %
g
current-frameS g vmS g closure?S g
our-frame?S g nameg #trap-instructions-in-dynamic-extent C0Ras- h0 ]4M > " G 4MM5NNL L6 g frame
* g filenamef system/vm/traps.scm
? : < ; " = * A * g nameg return-hook C h( ]4M > " G 4MM 5N NC g frame
$ g filenamef system/vm/traps.scm
D : < ; " = $ g nameg
abort-hook C h` ]4M5 4L > " G 4 5& CH4 LLO LO L 5KJMNC g frame
\ g depth \ g finish-trap . \ g filenamef system/vm/traps.scm
2 3 3 5 7 + 7 . 8 1 H S G X J Z I \ g nameg
apply-hook C h f ] L 6^ g disable
g filenamef system/vm/traps.scm
_ _ $ Ch n - . , 3 # L4L 56f g frame
g filenamef system/vm/traps.scm
[ \ ) \
C hH - . , 3 # 4 O M> " G N4L 5 L O C g frame
D g trap 8 D g filenamef system/vm/traps.scm
^ _ / a # 1 a 2 b & 8 b D
C h ]L LO C | g trap
g filenamef system/vm/traps.scm
Y g nameg with-pending-finish-disablers C( h - / 0 3 # 45 4 5$ " 4> " G 45$ " 4> " G 45$ " 4 > " G H
O O Q Q 4
56 g proc
g
apply-handler g return-handler g vm g pending-finish-traps g
apply-hook g with-pending-finish-disablers g filenamef system/vm/traps.scm
+
, , ! - F . k / 0 0 e d
g vmS g nameg trap-calls-to-procedure C1Ras h ]4L 5$ L 6C g frame
g filenamef system/vm/traps.scm
n o
o p
g nameg next-hook C} h m ]4L5L 6 e g frame
g filenamef system/vm/traps.scm
t u u C h m ]4L5L 6 e g frame
g filenamef system/vm/traps.scm
v w w C
h - / 0 3 # 45 4 5$ " 4> " G 45$ " 4> " G O Q
O O 6 g
frame-pred
g handler g vm g next-hook s g filenamef system/vm/traps.scm
i
j / ! k F l r
g vmS g nameg trap-matching-instructions C2RC g m
, g filenamef system/vm/traps.scm 8
V
k
[ n
P ~
!
!
#
$
,
, =
2z @
5 ^
6= m
; w
B*
I
R(
W-
_ +
c i
c
C6 PK ! V/$ $ system/vm/vm.gonu [ GOOF----LE-8-2.0 ] ' 4 h ] g guile g define-module* g system g vm g filenameS
f system/vm/vm.scm g exportsS g vm?
g make-vm g the-vm g call-with-vm g vm:ip g vm:sp g vm:fp g vm-trace-level g set-vm-trace-level! g vm-engine g set-vm-engine! g set-default-vm-engine! g vm-push-continuation-hook g vm-pop-continuation-hook g
vm-apply-hook g vm-next-hook g vm-abort-continuation-hook g vm-restore-continuation-hook
g set-current-module ! "g load-extension #g
string-append $f libguile- %g effective-version &f scm_init_vmC 5 h@ ]4
5 4! > " G "i4#i$4%i5 5&6z g m
( g filenamef system/vm/vm.scm
- 3 4 + < > ! @
@
C6 PK ! ,#& & system/vm/inspect.gonu [ GOOF----LE-8-2.0& ] t 4 h ] g guile g define-module* g system g vm g inspect
g filenameS f system/vm/inspect.scm g importsS
g base g pmatch
g syntax
g frame g language g assembly g disassemble g selectS g %disassemble ! "g ice-9 #g rdelim $"# %$ &g pretty-print '"& (' )g format *") +* ,g program -, .- /!%(+. 0g exportsS 1 2g set-current-module 32 42 5g make-hash-table 6g
hash-for-each 7g
hashq-set! 8g hashq-ref 9g
reverse-hashq :g catch ;g wrong-number-of-args <g keyword-argument-error =g catch-bad-arguments >g eof-object? ?g char=? @g read-char Ag repl-reader Bg char-whitespace? Cg unread-char Dg read Eg reverse Fg read-args Gg make-module Hg throw Ig quit Jg set-procedure-property! Kg name Lg module-define! Mg module-add! Ng q Og module-local-variable Pg continue Qg cont Rg c Sg print Tg p Ug write Vg w Wg display Xg d Yf Error disassembling object: ~a
Zg x [g module-obarray \g procedure-name ]f ~a~{ ~:@(~a~)~}~?~%~a~&~% ^g program-lambda-list _f "~#[~:;~40t(aliases: ~@{~a~^, ~})~] `g delq ag procedure-documentation bf Invalid command ~s.~% cf #Try `help' for a list of commands~% dg sort eg hash-map->list fg string<? gg symbol->string hf Available commands:~%~% ig for-each jg help kg h lg ? mg apply ng current-error-port of )Invalid arguments to ~a. Try `help ~a'.~% pg newline qf $~&Unknown command: ~a. Try `help'.~% rg save-module-excursion sf ~20@y inspect> C 5 h y ]4
/015 44 > " G 5678 h ]L 4L 56 g k
g v g filenamef system/vm/inspect.scm
% & ! & 2 & ! & & C h( ] 45 4O > " G C g h
% g ret % g filenamef system/vm/inspect.scm
"
#
#
$ % g nameg
reverse-hashq C9R:;:<h s - 1 3 L 6 k g k
g args
g filenamef system/vm/inspect.scm
/
0
C h X ] LL O 6 P g filenamef system/vm/inspect.scm
, -
-
C h s - 1 3 L 6 k g k
g args
g filenamef system/vm/inspect.scm
1
2
C h ] O O 6 g thunk
g bad-args-thunk g filenamef system/vm/inspect.scm
*
+ + g nameg catch-bad-arguments C=R>?@ABCDE h@ ]!" 45$ C4
5$ 4 5 "45$ 4 5 "4> " G 4 5 4 5 " " 45$ 64
5$ 645$ 4 5 "4> " G 4 5 4 5 "v 4 5 " g prompt
@ g chr g reader & 4 g reader G U g reader o } g tok } g reader g out * g chr * g reader g reader g tok * g reader " g reader , : g filenamef system/vm/inspect.scm
4
9 ; : ; < $ : & 8 ) 6 : < ; = E : G 8 J 6 [ = \ ? o @ r 6 } @ A 8 6 A B D C D E C E F C 8 6 F H I 6 I J 8 6 * J , 8 / 6 @ K / @ g nameg read-args CFRGHI h ] 6 g filenamef system/vm/inspect.scm
a c
c
g nameg cg
documentationf Quit the inspector. CJKILMNOPQR& h ] L 6 g filenamef system/vm/inspect.scm
e g
g nameg cg
documentationf .Print the current object using `pretty-print'. CSTh ] ML 6 g filenamef system/vm/inspect.scm
i k
g nameg cg
documentationf 'Print the current object using `write'. CUV h ] ML 6 g filenamef system/vm/inspect.scm
m o
g nameg cg
documentationf )Print the current object using `display'. CWX: h P ] L 6H g filenamef system/vm/inspect.scm
t u
C)Y h m - 1 3 6 e g args
g filenamef system/vm/inspect.scm
v w w
C h ] L O 6 g filenamef system/vm/inspect.scm
q s
g nameg cg
documentationf GDisassemble the current object, which should be objcode or a procedure. CZ9[O\)]^_`8a
hH ]4L 5 45 4544L554 56 g cmd
D g v D g p D g canonical-name D g filenamef system/vm/inspect.scm
| } }
~ }
! }
# # + , 1 ) ; < D D g nameg help-cmd C)bcO\]^_`8ade\ h z ] 6 r g k
g v g filenamef system/vm/inspect.scm
+ Cfg h ]4 5456 { g x
g y g filenamef system/vm/inspect.scm
$ $ Chi h i - . , 3 # 44L 55 O L Q $ ~" 4 > " G 6 $ S4L 5$ B4L 5 45 4
5 4 4
55456""4455 4> " G 6 a g cmd
g rhash ! g help-cmd , g v v g p { g canonical-name g names g filenamef system/vm/inspect.scm
y { { " ! { ! { 9 > C J W Y Y
\ `
a m n } v }
{ ~ { }
~ ! }
# )
'
g nameg cg
documentationf Show this help message. Cjkl:mO= h [ ] LL @ S g filenamef system/vm/inspect.scm
C)no\ h v ] 45 4L 54L 56 n g filenamef system/vm/inspect.scm
0
C>pHI)nq h 2 - 1 3 $
4L 5" $ O O 64 5$ 4> " G 64 4
5 > " G C * g cmd
{ g args { g t { g proc ) ? g filenamef system/vm/inspect.scm
) )
? @ J K ^ ` a d j q {
g nameg handle Cr2F)s h k ] L 6 c g filenamef system/vm/inspect.scm
^ _ _
g nameg prompt C h [ ] 4L> " G L O 6 S g filenamef system/vm/inspect.scm
C h8 ] " )4L O 4LL O 5> " G "" w g filenamef system/vm/inspect.scm
#
/
/ 3
C h u - 1 3 E m g k
g args
g filenamef system/vm/inspect.scm
C h ]A45 HHHHHH 4> " G 4> " G 44 5> " G 4
4 5> " G 4 4 5> " G 4 4 5> " G K
O Q 4> " G 4> " G 44 5> " G KO Q 4> " G 4> " G 44 5> " G KO Q 4> " G 4> " G 44 5> " G KO Q 4> " G 4> " G 44 5> " G KO Q 4> " G 4> " G 44 5> " G 4 4 5> " G K O 6 g x
g commands g quit g print g write g display g disassemble g help g c g c ! g c , g c g c > g c H g filenamef system/vm/inspect.scm
R
] ] a e , i m q H y g nameg inspect CRC q g m
, g filenamef system/vm/inspect.scm
"
: *
4
R
C6 PK ! :& & system/foreign.gonu [ GOOF----LE-8-2.0& ] 4 h ] g guile g define-module* g system g foreign g filenameS
f system/foreign.scm g importsS g rnrs
g bytevectors
g srfi g srfi-1 g srfi-9 g gnu g exportsS g void g float g double g short g unsigned-short !g int "g unsigned-int #g long $g
unsigned-long %g size_t &g ssize_t 'g ptrdiff_t (g int8 )g uint8 *g uint16 +g int16 ,g uint32 -g int32 .g uint64 /g int64 0g sizeof 1g alignof 2g
%null-pointer 3g
null-pointer? 4g pointer? 5g make-pointer 6g pointer->scm 7g scm->pointer 8g pointer-address 9g pointer->bytevector :g bytevector->pointer ;g set-pointer-finalizer! <g dereference-pointer =g string->pointer >g pointer->string ?g pointer->procedure @g
make-c-struct Ag parse-c-struct Bg define-wrapped-pointer-type C !"#$%&'()*+,-./0123456789:;<=>?@AB ' Dg set-current-module ED FD Gg load-extension Hg
string-append If libguile- Jg effective-version Kf scm_init_foreign Lg defined? Mg procedure->pointer Ng call-with-deferred-observers ON PN Qg module-export! RQ SQ Tg current-module UT VT WM Xg * Yg error Zf what machine is this? [g bytevector-pointer-ref \g bytevector-pointer-set! ]g "bytevector-ieee-single-native-set! ^] _] `g "bytevector-ieee-double-native-set! a` b` cg bytevector-s8-set! dc ec fg bytevector-u8-set! gf hf ig bytevector-s16-native-set! ji ki lg bytevector-u16-native-set! ml nl og bytevector-s32-native-set! po qo rg bytevector-u32-native-set! sr tr ug bytevector-s64-native-set! vu wu xg bytevector-u64-native-set! yx zx {g *writers* |g !bytevector-ieee-single-native-ref }| ~| g !bytevector-ieee-double-native-ref g bytevector-s8-ref g bytevector-u8-ref g bytevector-s16-native-ref g bytevector-u16-native-ref g bytevector-s32-native-ref g bytevector-u32-native-ref g bytevector-s64-native-ref g bytevector-u64-native-ref g *readers* g align g write-c-struct g assv-ref f too few values f too many values g
read-c-struct g reverse g make-bytevector g fold g make-syntax-transformer g macro g $sc-dispatch g _ g any g
datum->syntax g gensym f wrap g
syntax-object g begin g top g ribcage g %wrap f l-40afcf54ff-e4 g type-name g pred g wrap g unwrap g print f l-40afcf54ff-d8 f l-40afcf54ff-d9 f l-40afcf54ff-da f l-40afcf54ff-db f l-40afcf54ff-dc g stx f l-40afcf54ff-d5 g hygiene g define-record-type g pointer g define g let g ptr->obj g make-weak-value-hash-table g lambda g ptr g or g hash-ref g o g hash-set! g set-record-type-printer! g syntax-violation f -source expression failed to match any patternC 5 h0 ]4
C5 4F > " G 4Gi4HiI4Ji5 5K> " G 8 h ]4 5
C g pointer
g filenamef system/foreign.scm
B
D D g nameg
null-pointer?g
documentationf +Return true if POINTER is the null pointer. C3R4LiM5$ 4PSVW h E ] 45 6 = g filenamef system/foreign.scm
G
C> " G " 40iX5 $ 5 h z ] 6 r g bv
g offset g filenamef system/foreign.scm
P Q Q C" $ 5 h z ] 6 r g bv
g offset g filenamef system/foreign.scm
R S S C" 4YiZ5 [R40iX5 $ 8 h ] 45C g bv
g offset g ptr g filenamef system/foreign.scm
X Y 1 Y C" $ 8 h ] 45C g bv
g offset g ptr g filenamef system/foreign.scm
Z [ 1 [ C" 4YiZ5 \R i_ ib(ie)ih+ik*in-iq,it/iw.izX\i {R i~ i(i)i+i*i-i,i/i.iX[i R h ] C g off
g alignment g filenamef system/foreign.scm
y
z z z
z g nameg align CR1{0Y
h > ]," $ $ r 4455 $ 4 > " G " 445 > " G 45 "6( C 6 "X 6 g bv
g offset g types g vals g offset g types g vals g type g offset ' g filenamef system/foreign.scm
|
}
~ ~ # ' ' , 0 1 : & = 2 B O P
_ 1 d o v y % | 1
} # g nameg write-c-struct CR10 hx ]+" c$ V 4455 45$ 4 5" 445 5 "6 " g bv
x g offset x g types x g offset i g types i g vals i g type c g offset c g filenamef system/foreign.scm
# % , / % 2 6 7 @ / B G H V Y c i i n / x x g nameg
read-c-struct CR0: h0 ]
44 5
5 4
> " G 6 g types
. g vals . g bv . g filenamef system/foreign.scm
. . g nameg
make-c-struct C@R01 h ]4 544 55C g type
g total g filenamef system/foreign.scm
& C9 h ]
4
5 4 5
6 g foreign
g types g size g filenamef system/foreign.scm
g nameg parse-c-struct CAR4B hh ]
4455
C g type-name
e g pred e g wrap e g unwrap e g print e g tmp e g filenamef system/foreign.scm 2 : 2 e C h( ] 4 5 $ @ 6 g stx
" g tmp " g filenamef system/foreign.scm
" g
documentationf SDefine helper procedures to wrap pointer objects into Scheme
objects with a disjoint type. Specifically, this macro defines PRED, a
predicate for the new Scheme type, WRAP, a procedure that takes a
pointer object and returns an object that satisfies PRED, and UNWRAP
which does the reverse. PRINT must name a user-defined object printer. C5BRC g m
, g key
2 g key
> g filenamef system/foreign.scm
- : 2 : 8 : ! 9 : - A : C ; H : 8 B
9 F ? F A F E F
F G O O O O ' T
- T / T
5 N
6 W < W > W > W \
\ \
V
_ ^
l d k
" y
9 |
( 0
C6 PK ! eRJMD MD system/repl/server.gonu [ GOOF----LE-8-2.05D ] 4 h ] g guile g define-module* g system g repl g server
g filenameS f system/repl/server.scm g importsS
g ice-9 g threads g rdelim g match g iconv g rnrs g bytevectors g io !g ports " ! #" $g srfi %g srfi-1 &$% '& (g srfi-26 )$( *) + #'* ,g exportsS -g make-tcp-server-socket .g make-unix-domain-server-socket /g
run-server 0g spawn-server 1g stop-server-and-clients! 2-./01 3g set-current-module 43 53 6g *open-sockets* 7g
make-mutex 8g sockets-lock 9g
lock-mutex :9 ;9 <g unlock-mutex =< >< ?g assq-remove! @g
close-port Ag
close-socket! Bg add-open-socket! Cg error DC EC Ff no matching pattern Gg hostS HG
Ig addrS JI Kg portS LK MHJL Ng inet-aton Og INADDR_LOOPBACK Pg socket Qg PF_INET Rg SOCK_STREAM Sg
setsockopt Tg
SOL_SOCKET Ug SO_REUSEADDR Vg bind Wg AF_INET Xg pathS YX
ZY [f /tmp/guile-socket \g PF_UNIX ]g AF_UNIX ^g delete-duplicates _g
filter-map `g and=> ag module-variable bg the-root-module cg variable-ref dg EINTR eg EAGAIN fg EWOULDBLOCK gdef hg
errs-to-retry ig run-server* jg serve-client kg catch lg select mg memq ng accept og system-error-errno pg memv qg warn rf Error accepting client sg sleep tg pipe ug fcntl vg F_SETFL wg
O_NONBLOCK xg F_GETFL yg sigaction zg SIGPIPE {g SIG_IGN |g display }g force-output ~g listen g call-with-new-thread g %thread-handler g close g current-thread g set-thread-cleanup! g
cancel-thread g guard-against-http-request g with-continuation-barrier g current-input-port g current-output-port g current-error-port g current-warning-port g
parameter? g scm-error g wrong-type-arg f parameterize f Not a parameter: ~S g *repl-stack* g
start-repl g port-closed? g
port-encoding g set-port-encoding! g with-temporary-port-encoding g port-line g port-column g set-port-line! g set-port-column! g with-saved-port-line+column g char-ready? g get-bytevector-some g bytevector? g bytevector->string f
ISO-8859-1 g string-concatenate-reverse g setvbuf g _IOFBF g drain-input-and-close g ucs-range->char-set g make-regexp g
string-append f 2^(OPTIONS|GET|HEAD|POST|PUT|DELETE|TRACE|CONNECT) f [^ ]+ f HTTP/[0-9]+.[0-9]+$ g string-every g regexp-exec g permissive-http-request-line? g read-delimited f
g peek g eof-object? g done g %make-void-port f rw g call-with-port g dup->port f w g format f
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ POSSIBLE BREAK-IN ATTEMPT ON THE REPL SERVER @@
@@ BY AN HTTP INTER-PROTOCOL EXPLOITATION ATTACK. See: @@
@@ <https://en.wikipedia.org/wiki/Inter-protocol_exploitation> @@
@@ Possible HTTP request received: ~S
@@ The associated socket has been closed. @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
g
unread-string g check-for-http-request g %set-port-property! g guard-against-http-request? g %port-property g maybe-check-for-http-request g add-hook! g before-read-hookC 5 h1 ]4
+,25 45 > " G 6R47i5 8R8; h I ] L 6A g filenamef system/repl/server.scm
/
C> h I ] L 6A g filenamef system/repl/server.scm
/
C?6@ hX ] O O 4O > " G V4 5 X4O > " G 6 g s
T g x N g filenamef system/repl/server.scm
.
/ + 0 5 0 7 / T 3 T g nameg
close-socket! CAR8; h I ] L 6A g filenamef system/repl/server.scm
7
C> h I ] L 6A g filenamef system/repl/server.scm
7
C6 hh ]
O O 4O > " G V X4O > " G CX4O > " G F g s
c g force-close c g x c g filenamef system/repl/server.scm
6
7 / 8 4 8 7 7 c g nameg add-open-socket! CBR8; h I ] L 6A g filenamef system/repl/server.scm
<
C> h I ] L 6A g filenamef system/repl/server.scm
<
C6EF1 h ]( O O 4 O > " G V ( " T$ ? $ " 4455 " 4455 X4 O > " G $ 4 > " G 6 C g x
g v , g w F { g x F { g x T c g t
g filenamef system/repl/server.scm
:
< , = ^ @ h = < ; C D
g nameg stop-server-and-clients! C1RMNOPQRSTUVW h - / 0 3 # # $ 4 5" # 4
5 4 > " G 4
> " G C g host
g addr g port g sock R g filenamef system/repl/server.scm
F
( H ) H ) I J R J U K l L
g hostS
g addrS g portS g nameg make-tcp-server-socket C-RZ[P\RSTUV] h` - / 0 3 # 4
5 4 > " G 4
> " G C g path
Y g sock ' Y g filenamef system/repl/server.scm
O
O 5 P ' P * Q A R Y
g pathS
g nameg make-unix-domain-server-socket C.R4^i4_i`abc h l ]4 56 d g name
g filenamef system/repl/server.scm
Y Z Z Cg55hR-ij h( - . , 3 # 45 6 g
server-socket
! g filenamef system/repl/server.scm
^
^ / ! _ !
g nameg
run-server C/Rklmn h( ]4M 5 4M 5$ CL6 g ready-ports
# g filenamef system/repl/server.scm
s t t 8 t < t t t v v
# w #
Cophqrs hP - 1 3 4 5 45$ L 6 4 > " G 4 > " G L 6 g k-args
L g err L g filenamef system/repl/server.scm
x
y y { z
# | $ ~ ( ~ / ~ 8 L L
C h o ] LLLO L O 6 g g filenamef system/repl/server.scm
q r
g nameg accept-new-client Ctuvwxyz{B|} h u ] 4!M > " G M 6 m g filenamef system/repl/server.scm
i j k
g nameg shutdown-server C~ h J ] LLL 6 B g filenamef system/repl/server.scm
C h q ]BHHHHO Q 45 KJKJK J K4 4 5> " G 4 > " G 4
O > " G 4 > " G " b$ 2 4
O > " G 45 "4J> " G 4J> " G 645 "i g
server-socket
g serve-client g shutdown-pipes g shutdown-read-pipe g shutdown-write-pipe g monitored-ports g accept-new-client g client g
client-socket g client-addr
g filenamef system/repl/server.scm
b
% d . e 3 f < n ? H Q V _ s
g nameg run-server* CiR-/ h J ] L 6B g filenamef system/repl/server.scm
C h( - . , 3 # 45 O 6 g
server-socket
& g filenamef system/repl/server.scm
1 & &
g nameg spawn-server C0RA h S ] L 6K g filenamef system/repl/server.scm
+
CB h S ] L 6K g filenamef system/repl/server.scm
(
C h ] 4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G 4 L 54 L 54 L 54 L 5Y
Y4 > Z" ZCZF g t-3d081069b-c3
g t-3d081069b-c4
g t-3d081069b-c5
g t-3d081069b-c6
g filenamef system/repl/server.scm
#
C h` ]
45 4 O > " G 4 O > " G 4 > " G O 6 g client
[ g addr [ g thread > g filenamef system/repl/server.scm
# ? [ [ g nameg serve-client CjR h w ] 4L5$ C4L5N LM6o g filenamef system/repl/server.scm
C h w ] 4L5$ C4L5N LM6o g filenamef system/repl/server.scm
C h w ] 4L5$ C4L5N LM6o g filenamef system/repl/server.scm
C h w ] 4L5$ C4L5N LM6o g filenamef system/repl/server.scm
C h w ] 4L5$ C4L5N LM6o g filenamef system/repl/server.scm
C hx S ] HH O O 4 O > " G V4> X4 O > " G CX4 O > " G F K g port
w g encoding w g thunk w g saved-encoding w g filenamef system/repl/server.scm
w g nameg with-temporary-port-encodingg
documentationf aCall THUNK in a dynamic environment in which the encoding of PORT is
temporarily set to ENCODING. CR h( ] 4L5$ C4L5N 4L5NC x g filenamef system/repl/server.scm
!
#
C h0 n ] 4L5$ C4LM > " G LM6 f g filenamef system/repl/server.scm
+
+
C h( ] 4L5$ C4L5N 4L5NC x g filenamef system/repl/server.scm
!
#
C h0 n ] 4L5$ C4LM > " G LM6 f g filenamef system/repl/server.scm
+
+
C h0 n ] 4L5$ C4LM > " G LM6 f g filenamef system/repl/server.scm
+
+
C hx t ]HH O O 4 O > " G V4> X4 O > " G CX4 O > " G F l g port
v g thunk v g
saved-line v g saved-column v g filenamef system/repl/server.scm
v g nameg with-saved-port-line+columng
documentationf Save the line and column of PORT before entering THUNK, and restore
their previous values upon normal or non-local exit from THUNK. CR hP ]" <4L 5$ 4L 5" 45$ 45 " 6 " g chunks
B g result B g filenamef system/repl/server.scm
*
+ 1 5 3 6 < B B C I I
C h S ] L 6 K g filenamef system/repl/server.scm
C@ h S ] L 6K g filenamef system/repl/server.scm
C hp 2 ] O Q O O 4 O > " G V4> X4 O > " G CX4 O > " G F * g socket
i g thunk
i g filenamef system/repl/server.scm
i g nameg drain-input-and-closeg
documentationf Drain input from SOCKET using ISO-8859-1 encoding until it would block,
and then close it. Return the drained input as a string. CR4i ~54i4i55 h ]4L 5$ L 6C g line
g filenamef system/repl/server.scm
g
documentationf QReturn true if LINE might plausibly be an HTTP request-line,
otherwise return #f. C O R h ] 4L L56 { g t-3d081069b-183
g filenamef system/repl/server.scm
- - 5 - C h Q ]4L 5 4 5$ C4 5$ s45 4 > " G 4
> " G 4 > " G 4 > " G 4
L 5 4 5 O 6 L 6 I g v
g void-port / | g
drained-input g filenamef system/repl/server.scm
! /
) - / / /
2 ! D " V # h $ } ( " (
, , , , , ;
C h S ] L L O 6 K g filenamef system/repl/server.scm
C h T ] O 6 L g socket
g filenamef system/repl/server.scm
' g nameg check-for-http-requestg
documentationf Check for a possible HTTP request in the initial input from SOCKET.
If one is found, close the socket and print a report to STDERR (fdes 2).
Otherwise, put back the bytes. CR h ] 6 g socket
g filenamef system/repl/server.scm
=
D D g nameg guard-against-http-requestg
documentationf \Arrange for the Guile REPL to check for an HTTP request in the
initial input from SOCKET, in which case the socket will be closed.
This guards against HTTP inter-protocol exploitation attacks, a scenario
whereby an attacker can, via an HTML page, cause a web browser to send
data to TCP servers listening on a loopback interface or private
network. CR hP - . , 3 # 45 4 5$ (4 > " G 4 5$ C 6C g socket
P g filenamef system/repl/server.scm
F
G K K " K & K ' L 9 M C M K N " N N P
g nameg maybe-check-for-http-requestg
documentationf Apply check-for-http-request to SOCKET if previously requested by
guard-against-http-request. This procedure is intended to be added to
before-read-hook. CRiii6 g m
, g cs
't ( g rx 't ( g filenamef system/repl/server.scm
- ( 0 (
1 * : *
.
6
:
F
O
X Y
\
Y
X
W
g ^
b
N
#G
'U
'V 'a 'f
'l 'n 'p 'r
't 't (
-w
/ =
1 F
1 Q
& 1
C6 PK ! )?d' d' system/repl/error-handling.gonu [ GOOF----LE-8-2.0L' ] 4 h ] g guile g define-module* g system g repl g error-handling
g filenameS f system/repl/error-handling.scm g importsS
g base g pmatch
g vm g
trap-state g debug g ice-9 g format g exportsS g call-with-error-handling g with-error-handling !g set-current-module "! #! $g call-with-output-string %g
vector-length &g print-exception 'g error-string (g on-errorS )( *g
post-errorS +* ,g pass-keysS -, .g trap-handlerS /. 0)+-/ 1g catch 2g quit 32 4g current-input-port 5g current-output-port 6g current-error-port 7g %stacks 8g narrow-stack->vector 9g
make-stack :f Trap ~d: ~a ;g
make-debug <g with-input-from-port =g with-output-to-port >g with-error-to-port ?f ~a~% @f Entering a new prompt. Af 0Type `,bt' for a backtrace or `,q' to continue.
B Cg
start-repl DBC EBC Fg debugS Gg pass Hg disabled Ig error Jf Unknown trap-handler strategy Kg with-default-trap-handler Lg %start-stack Mg report Ng memq Og throw Pg run-hook Qg before-error-hook Rg after-error-hook Sg force-output Tg
procedure? Uf Unknown post-error strategy Vg backtrace Wg print-frames Xf Unknown on-error strategy Yg make-syntax-transformer ZY [Y \g macro ]g $sc-dispatch ^] _] `g any a`` bg
syntax-object cg top dc eg ribcage fg dummy gg form hfg ig m-82c280f576c6227-80 jic kjd lf l-82c280f576c6227-85 mf l-82c280f576c6227-86 nlm oehkn pe qg x rq sj tf l-82c280f576c6227-82 ut versu wdopv xg hygiene yx zb wy {g lambda |b{wy }g syntax-violation ~} } f -source expression failed to match any patternC 5 hx r ]4
5 4# > " G $%& h( ]
4L 5$ L
" LL6 g port
& g frame & g filenamef system/repl/error-handling.scm
& ' ' ' ' 3 ' & ( & C h ] O 6 g stack
g key g args g filenamef system/repl/error-handling.scm
$
% g nameg error-string C'R013456789:;<=>?@AEF hP ] L$ ?4L> " G 4> " G 4> " G " L 6 g filenamef system/repl/error-handling.scm
L M O O O P # P ( P 1 Q 6 Q ; Q I R O R O
C h Y ] LLLL O 6 Q g filenamef system/repl/error-handling.scm
4 5
C h Y ] LLLLL O 6 Q g filenamef system/repl/error-handling.scm
2 3
C hp ]#[$ [" 44 5
$ " 5 $ 45" 4
5 LLL O 6 g frame
p g trap-idx p g trap-name p g tag p g stack 2 p g error-msg L p g debug Y p g filenamef system/repl/error-handling.scm
8 9
9 : 9 ; < * F 2 ; 2 9 : G ; H @ H ' F H L 9 O J Y 9 p 1 p g nameg debug-trap-handler CG h ]C g frame
g trap-idx g trap-name g filenamef system/repl/error-handling.scm
T g nameg null-trap-handler CHIJ1KL h Y ] L 6 Q g filenamef system/repl/error-handling.scm
a
a
C h Y ] ML O 6 Q g filenamef system/repl/error-handling.scm
_ `
CMNO<=>PQ&RS hH q ] 4> " G 4LLL > " G 4> " G L6 i g filenamef system/repl/error-handling.scm
j k l , m C n C
C h Y ] LLL LO 6 Q g filenamef system/repl/error-handling.scm
4 5
C h Y ] LLLL O 6 Q g filenamef system/repl/error-handling.scm
2 3
C h@ - 1 3 4 L5$ @4L L LO > " G C g key
? g args ? g filenamef system/repl/error-handling.scm
e
f f g 1 ?
CNO h - 1 3 4 L 5$ @C g key
g args g filenamef system/repl/error-handling.scm
q
r r s
CTNO h( - 1 3 4 L5$ " L @ g k
$ g args $ g filenamef system/repl/error-handling.scm
v
w w $ w $
CUN789';<=>?@AEF hH ] 4L> " G 4> " G 4> " G L 6 g filenamef system/repl/error-handling.scm
" + 0 5 ? E
E
C h Y ] LLL O 6 Q g filenamef system/repl/error-handling.scm
4 5
C h Y ] LLLL O 6 Q g filenamef system/repl/error-handling.scm
2 3
C hx J - 1 3 4 L5$ C[$ [" 445
$ " 5 4 5 4
5 L LLO 6 B g key
w g args w g tag * w g stack H w g error-msg U w g debug b w g filenamef system/repl/error-handling.scm
|
} } ~ ~ $ * ~ - 0 @ H H ~ K ! U ~ X b ~ w 1 w
CN<=>PQ&RS hH v ] 4> " G 4LLL > " G 4> " G L6 n g filenamef system/repl/error-handling.scm
, C C
C h Y ] LLL LO 6 Q g filenamef system/repl/error-handling.scm
4 5
C h Y ] LLLL O 6 Q g filenamef system/repl/error-handling.scm
2 3
C h@ - 1 3 4 L5$ C4L L LO > " G C g key
9 g args 9 g filenamef system/repl/error-handling.scm
1 9
CVN789<=>WPQ&RS hX ] 4L> " G 4> " G 4L LL> " G 4> " G L 6 w g filenamef system/repl/error-handling.scm
' > U U
C h Y ] LLLLL O 6 Q g filenamef system/repl/error-handling.scm
4 5
C h Y ] LLLLL O 6 Q g filenamef system/repl/error-handling.scm
2 3
C hp - 1 3 4 L5$ C[$ [" 445
$ " 5 4L L LO > " G C g key
m g args m g tag * m g frames H m g filenamef system/repl/error-handling.scm
$ * - 0 @ ' H H K 1 m
C h w - 1 3 C o g key
g args g filenamef system/repl/error-handling.scm
CNO h( - 1 3 4 L5$ " L @ g k
$ g args $ g filenamef system/repl/error-handling.scm
$ $
CX hx - / 0 3
# # # # 45 45 45 HO Q $ " & $
" $ " 4
5K O $ O " 5$ O " !45$
O " 4 5$ O " d$ O " J$ O " 0 $ " !45$
O " 4 56 g thunk
x g on-error x g
post-error x g pass-keys x g trap-handler x g in J x g out J x g err J x g le-trap-handler Q x g debug-trap-handler ] x
g filenamef system/repl/error-handling.scm
*
+ - % + A / , . 9 , E < - A .
F /
J - o X \ \ \ c u
u x
x x
z V
` n
r v
x ^ x
g on-errorS g
post-errorS g pass-keysS g trap-handlerS g nameg call-with-error-handling C R4[ \_az| h ? ] C7 g dummy
g form C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef system/repl/error-handling.scm
" g
macro-typeg syntax-rulesg patternsg form C5 RC j g m
, g filenamef system/repl/error-handling.scm
$
*
q
C6 PK ! Cŵ system/repl/command.gonu [ GOOF----LE-8-2.0 ]8 4 h/< ] g guile g define-module* g system g repl g command
g filenameS f system/repl/command.scm g importsS
g base g syntax
g pmatch
g compile
g common g debug g vm g objcode !g program " ! #" $g
trap-state % $ &% ' (' )g frame * ) +g selectS ,g frame-return-values -, .*+- /g ice-9 0g format 1/0 21 3g session 4/3 54 6g
documentation 7/6 87 9g and-let-star :/9 ;: <g rdelim =/< >= ?g control @/? A@ Bg pretty-print C/B Dg pp EBD FE GC+F Hg inspect I H Jg %inspect KHJ LK MI+L Ng statprof ON PO Q #&(.258;>AGMP Rg exportsS Sg meta-command Tg define-meta-command UST Vg autoloadsS Wg language X
W Yg lookup-language Zg language-reader [YZ \g trace ] \ ^g call-with-trace _^ `X[]_ ag set-current-module ba ca dg help eg h fde gg show hg ig apropos jg a kij lg describe mg d nlm odfhkn pg module qg m rpq sg import tg use ust vg load wg l xvw yg reload zg re {yz |g binding }g b ~|} g in prux{~ g L W W g c g compile-file g cc g expand g exp g optimize g opt g disassemble g x g disassemble-file g xx g profile g time g t g pr g tr \ g backtrace g bt g up g down g fr ) g procedure g proc g locals g
error-message g error g break g br g bp g break-at-source g break-at g bs g step g s g step-instruction g si g next g n g next-instruction g ni g finish g
tracepoint g tp g traps g delete g del g disable g enable g registers g regs g i H BD H g gc g
statistics g stat g option g o g quit g q g continue g cont o g *command-table* g warranty g w g copying g version g v g g *show-table* g
group-name g group-commands g make-hash-table g *command-infos* g command-name g command-abbrevs g hashq-ref g command-info g command-info-procedure g command-procedure g procedure-documentation g command-doc g make-command-info g command-info-arguments-reader g substring g string-index g
command-usage g command-summary g assq g lookup-group
g memq g lookup-command f $~:(~A~) Commands~:[~; [abbrev]~]:~2%
g for-each g display-summary g newline g
display-group g display f Usage: g display-command g
string-length f
[,~A~{ ,~A~}] f f ,~A~A~A - ~A
f abbrevs too long f ~%~v_ f ~v_ g catch g read f )Throw to key `~a' while reading command:
g
display-error g current-output-port f 8Throw to key `~a' with args `~s' while reading command.
!g force-output "g read-command #g read-command-arguments $g and=> %f Unknown meta command: ~A~% &f Meta-command not a symbol: ~s~% 'g
hashq-set! (g append )g add-meta-command! *g make-syntax-transformer +* ,* -g macro .g $sc-dispatch /. 0. 1g any 211 3g each-any 431 514 625 713 817 968 :19 ;g
syntax-object <g top =< >g ribcage ?g dummy @g name Ag category Bg expression0 Cg datums Dg docstring Eg b0 Fg b1 G?@ABCDEF Hg m-3ee4d7042b-92 IH< JI======== Kf l-3ee4d7042b-97 Lf l-3ee4d7042b-98 Mf l-3ee4d7042b-99 Nf l-3ee4d7042b-9a Of l-3ee4d7042b-9b Pf l-3ee4d7042b-9c Qf l-3ee4d7042b-9d Rf l-3ee4d7042b-9e Sf l-3ee4d7042b-9f TKLMNOPQRS U>GJT V> W XI Yf l-3ee4d7042b-94 ZY [>WXZ \=UV[ ]g hygiene ^] _;)\^ `g quote a;`\^ bg lambda* c;b\^ d( e( fg lambda g;f\^ hg define i;h\^ jg handle-read-error k;j\^ lg form-name m;l\^ ng key o;n\^ pg args q;p\^ rkmoq s;\^ tg unquote u;t\^ vg subr w;v\^ xuw yg msg z;y\^ {uz |uq }g rest ~;}\^ x{|u~ ;0\^ ;\^ f DThrow to key `~a' while reading ~@[argument `~A' of ~]command `~A':
;\^ ; \^ ;\^ ; \^ wzq~ g else ;\^ f TThrow to key `~a' with args `~s' while reading ~@[ argument `~A' of ~]command `~A'.
;\^ g abort ;\^ g % ;\^ g let* ;\^ g map ;\^ g repl-reader ;\^ ;\^ g optionalS ;\^ g port ;\^ g current-input-port ;\^ ;Z\^ g
repl-language ;\^ g current-module ;\^ g k ;\^ q q ;(\^ g list ;\^ g let ;\^ g open-input-string ;\^ g read-line ;\^ g lp ;\^ g out ;\^ a ;\^ ; \^ g if ;\^ g eof-object? ;\^ g reverse ;\^ g cons ;\^ g kq g g 11 2⌤ 8 1䌤 ?@ACDEF I======= f l-3ee4d7042b-ae f l-3ee4d7042b-af f l-3ee4d7042b-b0 f l-3ee4d7042b-b1 f l-3ee4d7042b-b2 f l-3ee4d7042b-b3 f l-3ee4d7042b-b4 f l-3ee4d7042b-b5 > =V[ ;T^ 15 8 1 ?@BCDEF f l-3ee4d7042b-c0 f l-3ee4d7042b-c1 f l-3ee4d7042b-c2 f l-3ee4d7042b-c3 f l-3ee4d7042b-c4 f l-3ee4d7042b-c5 f l-3ee4d7042b-c6 f l-3ee4d7042b-c7 > =V[ ;T^ ;^ 1⌤ 8 1 ?@CDEF
I====== f l-3ee4d7042b-d3 f l-3ee4d7042b-d4
f l-3ee4d7042b-d5 f l-3ee4d7042b-d6 f l-3ee4d7042b-d7 f l-3ee4d7042b-d8 f l-3ee4d7042b-d9
>
=V[ ;T^ ;^ g syntax-violation f -source expression failed to match any pattern f Command Groups:
f help all f List all commands g symbol->string g
string-append !f help "f List #f commands $f FType `,help -c COMMAND' to show documentation of a particular command. %g -c &f Unknown command: ~A~% 'f Bad arguments: ~A~% (f Unknown command or group: ~A~% )g all *g default-prompt-tag +@* ,@* -f Unknown topic: ~A~% .g
*warranty* /g *copying* 0g *version* 1g ->string 2g object-documentation 3g
repl-parse 4g
module-ref 5g repl-eval 6g form 7f ~A~24t~A
8g repl-options 9g repl-option-set! :g eval ;g repl-option-ref <g throw =g puts >g module-name ?g resolve-module @g module-uses Ag resolve-interface Bg module-use! Cf No such module: ~A~% Dg load-in-vicinity ED FD Gf system/repl Hg
reload-module Ig module-for-each Jf ~23A ~A
Kg ensureS Lg save-module-excursion Mg
repl-print Nf FInvalid arguments to `in': expected a single expression or a command.
Of No such module: ~s
Pf 6Happy hacking with ~a! To switch back, type `,L ~a'.
Qg language-title Rg
language-name Sg current-language Tg setter UT VT Wg repl-compile Xg objcode? Yg guile:disassemble Zg optsS [g repl-expand \g run-hook ]g before-print-hook ^g
repl-optimize _g assembly `W_ a` b` cg program? df 9Argument to ,disassemble not a procedure or objcode: ~a~% eg load-objcode fg gc-run-time gg get-internal-real-time hg get-internal-run-time if 8;; ~,6Fs real time, ~,6Fs run time. ~,6Fs spent in GC.
je 1.0 kg internal-time-units-per-second lg repl-prepare-eval-thunk mg widthS ng terminal-width og define-stack-command pg _ qp rg
datum->syntax sg frames tg message ug for-trap? vg index wg cur x1111111 yg t-3ee4d7042b-8e0 zg t-3ee4d7042b-8e1 {g t-3ee4d7042b-8e2 |g t-3ee4d7042b-8e3 }g t-3ee4d7042b-8e6 ~g t-3ee4d7042b-8e5 g t-3ee4d7042b-8e4 yz{|}~ g m-3ee4d7042b-8e7 < f l-3ee4d7042b-8eb f l-3ee4d7042b-8ec f l-3ee4d7042b-8ed f l-3ee4d7042b-8ee f l-3ee4d7042b-8ef f l-3ee4d7042b-8f0 f l-3ee4d7042b-8f1 > g body g body* @pD ====== f l-3ee4d7042b-8d4 f l-3ee4d7042b-8d5 f l-3ee4d7042b-8d6 f l-3ee4d7042b-8d7 f l-3ee4d7042b-8d8 f l-3ee4d7042b-8d9 > = f l-3ee4d7042b-8d1 >W =VV ;T^ ;^ ;^ g
repl-debug ;^ ;^ g
letrec-syntax ;^ g identifier-syntax ;^ g debug-frames ;^ g debug-error-message ;^ g debug-for-trap? ;^ g id ;^ g debug-index ;^ g set! ;^ ;^ g
vector-ref ;^ ;0^ ;^ f Nothing to debug.~% ;^ m g full?S g print-frames g countS g for-trap?S g integer? f BInvalid argument to `up': expected a positive integer for COUNT.~% g
vector-length f Already at outermost frame.
g print-frame g indexS g next-source?S f DInvalid argument to `down': expected a positive integer for COUNT.~% f Already at innermost frame.
f GInvalid argument to `frame': expected a non-negative integer for IDX.~% f No such frame.~% g frame-procedure m g print-locals f ~a~% g string? f No error message g
procedure? g add-trap-at-procedure-call! f Trap ~a: ~a.~% g trap-name f Not a procedure: ~a g add-trap-at-source-location! g default-prompt-handler @ @ g frame->stack-vector g frame-previous f No return values.~% f Return values:~% g
start-repl g debugS g
make-debug g repl-pop-continuation-resumer f Return from ~a g #add-ephemeral-trap-at-frame-finish! g repl-next-resumer f Step into ~a g add-ephemeral-stepping-trap! g into?S g instruction?S g add-trace-at-procedure-call! g
list-traps f No traps set.~% f ~a: ~a~a~% g
trap-enabled? f (disabled) g delete-trap! f .expected a trap index (a non-negative integer) g
disable-trap! g enable-trap! g print-registers
g width f !Set screen width to ~a columns.~% g times
g gc-stats g
repl-tm-stats g
repl-gc-stats g assq-ref g gc-times g display-diff-stat f GC times: f times g heap-size g heap-free-size g display-stat-title f Memory size: f current f limit g display-stat f heap f bytes g heap-total-allocated f Bytes allocated: f diff !f total "f allocated #g
gc-time-taken $f GC time taken: %g display-time-stat &g tms:utime 'g tms:stime (g
tms:cutime )g
tms:cstime *f Process time spent: +f user ,f system -f
child user .f child system /f ~~20~AA ~~10@A /~~10@A ~~A~~% 0f @ 1f ~10,2F 2g exact->inexact 3f s 4f ---- 5e 1000000.0 6f mips 7g display-mips-statC 5 ho C ]4
QRUV`5 4c > " G RR h x ] C p g g
g filenamef system/repl/command.scm
J
J g nameg
group-name CR h | ] C t g g
g filenamef system/repl/command.scm
K
K g nameg group-commands CR4i5 R h z ] C r g c
g filenamef system/repl/command.scm
N
N g nameg command-name CR h } ] C u g c
g filenamef system/repl/command.scm
O
O g nameg command-abbrevs CR h ]4 56 z g c
g filenamef system/repl/command.scm
P
P 4 P g nameg command-info CR h ]4 56 g c
g filenamef system/repl/command.scm
Q
Q 6
Q
g nameg command-procedure CR h ]4 56 y g c
g filenamef system/repl/command.scm
R
R 1
R
g nameg command-doc CR h ] C g proc
g arguments-reader g filenamef system/repl/command.scm
T
U g nameg make-command-info CR h ] C g info
g filenamef system/repl/command.scm
W
X g nameg command-info-procedure CR h ] C g info
g filenamef system/repl/command.scm
Z
[ g nameg command-info-arguments-reader CR h ] 4 5
4
56 g c
g doc g filenamef system/repl/command.scm
]
^
^ _ _ g nameg
command-usage CR h@ ]4 5 4
5 4
5 $
66 g c
< g doc < g start < g t " < g filenamef system/repl/command.scm
a
b b c c b d " d 4 e < f < g nameg command-summary CR h } ] 6 u g name
g filenamef system/repl/command.scm
h
i
g nameg lookup-group C R
hx ; - . , 3 # " N" 4( "4 5$ C "( ( C"" " 3 g key
s g table s g groups h g commands h g filenamef system/repl/command.scm
k
l $ m ' o * o 3 o 4 p ; p = p A m D p % J q R q R m ^ m h l k l & s l s g nameg lookup-command C R0
h( ]4 5L $ 4 5" 4 56 g c
& g filenamef system/repl/command.scm
u v w w + w ? x & v & C hX - . , 3 # 44 5> " G 4O 4 5> " G 6 g group
S g abbrev? S g filenamef system/repl/command.scm
s
t t
t 4 ) t 2 u < y G u S z
S g nameg
display-group CR h0 ]4> " G 44 5> " G 6 g command
/ g filenamef system/repl/command.scm
|
} } } ~ ~ # ~ / / g nameg display-command CR0
h ]4 5 $ 45" 45 $
45" 0 $ 4 5" 4 56 g usage
g abbrevs g summary g usage-len g abbrevs & g abbrevs-len / g filenamef system/repl/command.scm
! 1 ? & & ) / 6 = A B F J S V Z [ ` g & h ! j o t y ~ " g nameg display-summary CR h T ] 6 L g filenamef system/repl/command.scm
C0 ! h d - 1 3 $ $ y $ G 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 4> " G C \ g key
g args g vx g vy g vx ' g vy ' g vx 8 u g vy 8 u g filenamef system/repl/command.scm
= B I R V g z
C h ]6 w g repl
g filenamef system/repl/command.scm
g nameg read-command C"R h ]44 556 g c
g repl g filenamef system/repl/command.scm
" g nameg read-command-arguments C#R" $# h p ]4L5L @ h g args
g filenamef system/repl/command.scm
( ! C0%& hX ]4 5 & C$ .45 $ 4 5 O 666 g repl
R g command R g t " I g filenamef system/repl/command.scm
" - @ E I N R R g nameg meta-command CSR'( hh ~ ] 4 45> " G $ >45 $ 4 5C4 5 CC v g name
e g category e g proc e g argument-reader e g entry . c g filenamef system/repl/command.scm
# % & . 6 9 > $ C 6 F 0 H I L W / Z ] _ a e g nameg add-meta-command! C)R4 ,T-0:_acegirsqomgcka hH 9 ] L
C 1 g tmp-3ee4d7042b-ab
F F C h , 3 45
4O 5 C g dummy
g name g category g repl g expression0 g datums g docstring g b0 g b1 C h( , 3 C g dummy
" g name " g category " g repl " g datums " g docstring " g b0 " g b1 " " C h( , 3 C g dummy
! g name ! g repl ! g expression0 ! g datums ! g docstring ! g b0 ! g b1 ! ! C h ]C g dummy
g name g repl g datums g docstring g b0 g b1 C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef system/repl/command.scm
g g
macro-typeg syntax-rulesg patternsg nameg category g replg expression0g ... g datumsg docstringg b0g b1g ... g nameg category g replg datumsg docstringg b0g b1g ... g nameg replg expression0g ... g datumsg docstringg b0g b1g ... g nameg replg datumsg docstringg b0g b1g ... C5TR4)id d
!"# h8 ]44 55 45 45 6 g g
1 g name 1 g usage 1 g header & 1 g filenamef system/repl/command.scm
.
.
/ $ < & &
1 1 C$%0&'( ) h j - 1 3 ( y445> " G 4> " G 4> " G 4
> " G 4 > " G 4
> " G 6 " a" $" " " ]$ M & 2$ " ( 66666$ ( 6""{$ O & 9$ . ( 45$ 456"-")"%"!" $ . ( 45$ 456"""$ . ( 45$ 456"""$ ( & ( 6"t"p"lb g repl
g args g vx g vy g vx g vy g vx g vy g vx . w g vy . w g vx G o g vy G o g vx g vy g vx g vy g vx g vy g filenamef system/repl/command.scm
" '
+
0
9 = @ $ E N U Z c s w | ! ! # # # # # # # # R \ _ g k 7
g
documentationf help [all | GROUP | [-c] COMMAND]
Show help.
With one argument, tries to look up the argument as a group name, giving
help on that group if successful. Otherwise tries to look up the
argument as a command, giving help on the command.
If there is a command whose name is also a group name, use the ,help
-c COMMAND form to give help on the command instead of the group.
Without any argument, a list of help commands and command groups
are displayed. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0d h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)ig 0-' h - 1 3 ( 4> " G 6 $ q ( A45$ 4455 6 ( 66 ( 666 g repl
g args g vx 4 g vy 4 g vx c g vy c g vx g vy g filenamef system/repl/command.scm
%
/ 1 1 1 ' 2 * / ? 3 K / L 4 O 4 Y 4 ] 4 ` / r 6 v 6 { 8 8 / 6 6 8 8 8 8
g
documentationf show [TOPIC]
Gives information about Guile.
With one argument, tries to show a particular piece of information;
currently supported topics are `warranty' (or `w'), `copying' (or `c'),
and `version' (or `v').
Without any argument, a list of topics is displayed. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
%
>
C0g h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
%
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
%
, C> " G 4)i. h ]4> " G 6 g repl
g filenamef system/repl/command.scm
>
A B g
documentationf .show warranty
Details on the lack of warranty. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
>
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
>
, C> " G 4)i/ h ]4> " G 6 g repl
g filenamef system/repl/command.scm
D
G H g
documentationf show copying
Show the LGPLv3. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
D
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
D
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
D
, C> " G 4)i0 h ]4> " G 6 g repl
g filenamef system/repl/command.scm
J
M N g
documentationf !show version
Version information. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
J
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
J
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
J
, C> " G 4)iii1 h ]456 g repl
g regexp
g filenamef system/repl/command.scm
P
S
S
g
documentationf .apropos REGEXP
Find bindings/modules/packages. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
P
>
C0i h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
P
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
P
, C> " G 4)il2345 hP 9 ]
444 5 $ 445 5" 4 5 5> " G 6 1 g repl
I g form I g input 6 g filenamef system/repl/command.scm
U
X Y Z Z [ [ \ \ & \ + ] 8 Y = X I ^ I g
documentationf ,describe OBJ
Show description/documentation. C0l h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
U
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
U
.
C h J ] L O 6 B g filenamef system/repl/command.scm
U
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
U
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
U
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
U
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
U
M C> " G 4)i
07 h ] 6z g spec
g filenamef system/repl/command.scm
e f
f +
f 6 f C89:;
h - 1 3 (
4 56" B$ 9 $ & ( 445 56CCC$ 1 ( 44 5> " G 6 "" g repl
g args g vx - ` g vy - ` g vx > ^ g vy > ^ g vx o g vy o g filenamef system/repl/command.scm
`
c g e c O n ! T n + Z n ! \ n b c z i } i i j c
g
documentationf *option [NAME] [EXP]
List/show/set options. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
`
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
`
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
`
, C> " G 4)i< h ]6 g repl
g filenamef system/repl/command.scm
p
s s g
documentationf quit
Quit this session. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
p
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
p
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
p
, C> " G 4)ip=>a? hh k - 1 3 ( 445 56$ 8 ( $ 456456456456 c g repl
g g args g g vx * \ g vy * \ g filenamef system/repl/command.scm
z
} ~ ~ ~ ~ } 7 ; } > F I # Q T # \ _ # g g
g
documentationf 5module [MODULE]
Change modules / Show current module. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
z
>
C0p h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
z
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
z
, C> " G 4)is
=>@AB0C h( ] 4 5 $ 45 6 6 g name
% g mod % g filenamef system/repl/command.scm
! % % g nameg use C h0 - 1 3 ( 4445 5566 g repl
. g args . g filenamef system/repl/command.scm
( 5 " ( $ & .
.
g
documentationf 9import [MODULE ...]
Import modules / List those imported. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0s h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)ivFG1 h ]456 g repl
g file g filenamef system/repl/command.scm
g
documentationf ,load FILE
Load a file in the current module. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0v h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)iyH? hh u - 1 3 ( 45 6$ 8 ( $ 456456456456 m g repl
b g args b g vx % W g vy % W g filenamef system/repl/command.scm
2 6 9 A D L O W Z b b
g
documentationf Qreload [MODULE]
Reload the given module, or the current module if none was given. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0y h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i|I0J h | ] 6 t g k
g v
g filenamef system/repl/command.scm
,
!
C h ]45 6 g repl
g filenamef system/repl/command.scm
g
documentationf binding
List current bindings. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0| h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i?Kt La h( x ] 4L> " G 44L 55LL@ p g filenamef system/repl/command.scm
( & &
CM:0NO h - 1 3 45 $ $ & $ d ( 845$ O 6( 456
6( 456
6( 456
6( 456
6( 456
6 6 g repl
g module g command-or-expression g args g m g vx ( g vy ( g vx A g vy A g filenamef system/repl/command.scm
L & V g m r | $
g
documentationf [in MODULE COMMAND-OR-EXPRESSION
Evaluate an expression or command in the context of module. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)iWY0PQRSV hX % ]454 5 44545> " G 4> " G 45 6 g repl
T g name T g lang T g cur T g filenamef system/repl/command.scm
" " - 6 T T g
documentationf #language LANGUAGE
Change languages. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0W h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)iW3XYM h0 ]
4 4 55 45$ 6 6 g repl
- g form - g x - g filenamef system/repl/command.scm
% -
- g
documentationf #compile EXP
Generate compiled code. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4)i1Z h - 1 3 456 g repl
g file g opts g filenamef system/repl/command.scm
g
documentationf !compile-file FILE
Compile a file. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i[3\]D h0 ]
4 4 55 4> " G 6 g repl
. g form . g x . g filenamef system/repl/command.scm
. . g
documentationf 'expand EXP
Expand any macros in a form. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4)i^3\]D h0 ]
4 4 55 4> " G 6 g repl
. g form . g x . g filenamef system/repl/command.scm
. . g
documentationf Goptimize EXP
Run the optimizer on a piece of code and print the result. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G b h ] 6 g x
g filenamef system/repl/command.scm
g nameg guile:disassemble CYR4)i53cXY0d hH 9 ]4 4 55 45 $ " 45 $ 66 1 g repl
E g form E g obj E g t 2 g filenamef system/repl/command.scm
) 6 < A E
E g
documentationf 1disassemble EXP
Disassemble a compiled procedure. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4)iYe1 h ]44556 g repl
g file g filenamef system/repl/command.scm
# g
documentationf )disassemble-file FILE
Disassemble a file. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)ifgh53M0ijk h D ]:45 45 45 4 4 55 45 45 45 4 > " G 4
> " G C < g repl
g form g gc-start g
real-start g run-start g result ' g run-end . g real-end 5 g gc-end < g filenamef system/repl/command.scm
! ' ' * . 1 5 8 < ? S X ] _ ` h j k s u v ~ g
documentationf time EXP
Time execution. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4)iNl3 h - 1 3 4 4 55@ g repl
g form g opts g filenamef system/repl/command.scm
'
g
documentationf profile EXP
Profile execution. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4)i\^l3mn h( - 1 3 4 4 5545 @ g repl
& g form & g opts & g filenamef system/repl/command.scm
' & &
g
documentationf trace EXP
Trace execution. C0\ h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4 ,o-0qrstuvw0x hh ]LLLLL
L L
C g t-3ee4d7042b-8e0
b g t-3ee4d7042b-8e1 b g t-3ee4d7042b-8e2 b g t-3ee4d7042b-8e3 b g t-3ee4d7042b-8e6 b g t-3ee4d7042b-8e5 b g t-3ee4d7042b-8e4 b b C hx ]45454545454545 45 $ O @
6 g name
u g repl u g args u g docstring u g body u g body* u g tmp D u g tmp O u g filenamef system/repl/command.scm + + / + - - / - / / / / 1 $ 1 / & 1 ' 5 - 5 / / 5 0 7 & 6 7 < 8 7 & 9 8 & ? 8 < A 8 & D & u C h( k ] 4 5 $ @ 6 c g x
" g tmp " g filenamef system/repl/command.scm
# " C5oR4)inm0
hh - / 0 3 # # 45 # 4 5 $ 45 4
56 6 g repl
h g count h g width h g full? h g debug 9 h g filenamef system/repl/command.scm
<
# = . 3 <
a C f <
h g widthS g full?S g
documentationf backtrace [COUNT] [#:width W] [#:full? F]
Print a backtrace.
Print a backtrace of all stack frames, or innermost COUNT frames.
If COUNT is negative, the last COUNT frames will be shown. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
<
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
<
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
<
, C> " G 4)i0V h@ Z - . , 3 # 4 5 $ 45 $ "
$ 6454455$ {454455$ 644 54455> " G
4545 45 45
$ 4
5" 644 545> " G
4545 45 45
$ 4
5" 66R g repl
@ g count @ g debug @ g t , @ g filenamef system/repl/command.scm
I
% P
, P , P = P D O I Q K Q U R V R b R f O n T z T { T S U U W W W W Y ' Y " X [ [ [ & ] % + ] 9 \ > I
! @ g
documentationf up [COUNT]
Select a calling stack frame.
Select and print stack frames that called this one.
An argument says how many frames up to go. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
I
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
I
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
I
, C> " G 4)i0V h - . , 3 # 4 5 $ 45 $ "
$ 645
$ Q45
$ 6445
> " G 4 545
45 4 5644545> " G 4 545
45 45
$ 4 5" 6
6 g repl
g count g debug g t , @ g filenamef system/repl/command.scm
_
% f
, f , f = f D e I g K g U h W h [ e c j h i m k o k p m n p p p r % r q _
g
documentationf down [COUNT]
Select a called stack frame.
Select and print stack frames called by this one.
An argument says how many frames down to go. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
_
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
_
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
_
, C> " G 4)i)0V h - . , 3 # 4 5 $ $ 45 $ "
$ 64455$ P445> " G 4545
45 45
$ 4 5" 6
6 4545
45 45
$ 4 5" 66 g repl
g idx g debug g t 2 F g filenamef system/repl/command.scm
t
* z + } 2 }
2 } C } J | O ~ Q ~ T
` d | e ' " * % t
g
documentationf lframe [IDX]
Show a frame.
Show the selected frame.
With an argument, select a frame by index, then show it. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
t
>
C0) h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
t
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
t
, C> " G 4)iM0 h8 ] 4 5 $ 44545566 g repl
2 g debug 2 g filenamef system/repl/command.scm
+ 0
2 g
documentationf 5procedure
Print the procedure for the selected frame. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)inm0
hP - / 0 3 # 45 4 5 $ 45456 6 g repl
M g width M g debug ' M g filenamef system/repl/command.scm
0 !
F K
M
g widthS g
documentationf Qlocals
Show local variables.
Show locally-bound variables in the selected frame. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i0 h@ 3 ] 4 5 $ $4455$ 45" 66 + g repl
< g debug < g filenamef system/repl/command.scm
& 3 2 5 :
< g
documentationf yerror-message
Show error message.
Display the message associated with the error that started the current
debugging REPL. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i530
h@ ~ ]4 4 55 45$ 45 456 6v g repl
@ g form @ g proc @ g idx & 8 g filenamef system/repl/command.scm
& - 0 * 8
< @ @ g
documentationf abreak PROCEDURE
Break on calls to PROCEDURE.
Starts a recursive prompt when PROCEDURE is called. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4)i 0 h8 ]$ 45" 45 456 g repl
3 g file 3 g line 3 g file 3 g idx ! 3 g filenamef system/repl/command.scm
! ! ( + & 3 3 g
documentationf break-at-source FILE LINE
Break when control reaches the given source location.
Starts a recursive prompt when control reaches line LINE of file FILE.
Note that the given source location must be inside a procedure. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G , h ]L 44 556 { g frame
g filenamef system/repl/command.scm
C h [ ] O C S g k
g filenamef system/repl/command.scm
C0,
M h d ]L 6 \ g x
g filenamef system/repl/command.scm
'
C4A h S ]4> G 4L> " G 4 5 ( 4> " G " ,4> " G 4 L O > " G 4
4 5
54
L56 K g from
g stack
g vals 0 ~ g filenamef system/repl/command.scm ! * 0 8 9 > C P U Z c
) >
C h0 ] 45 U 4 O > XCXFG @ g repl
. g msg . g handler . g args # . g filenamef system/repl/command.scm
. g nameg repl-pop-continuation-resumer CR4)i0< h` \ ]4 5 $ G4 4454555 44545> " G 6
6 T g repl
_ g debug _ g handler / X g filenamef system/repl/command.scm
" - / / 2 V X ]
_ g
documentationf ifinish
Run until the current frame finishes.
Resume execution, breaking when the current frame finishes. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G , h q ]L 4 56 i g frame
g filenamef system/repl/command.scm
C h [ ] O C S g k
g filenamef system/repl/command.scm
C04A h@ ]45 4L > " G 4455 4
L 56 g stack
= g filenamef system/repl/command.scm ! $ ( ' * , < . 1 = =
C h0 ] 45 U 4 O > XCXFG @ g msg
, g handler , g args ! , g filenamef system/repl/command.scm
, g nameg repl-next-resumer CR4)i0<
hh d ]4 5 $ K445455 4454545 > " G
6 6 \ g repl
c g debug c g msg ( \ g filenamef system/repl/command.scm
(
( + = & N Z \ a
c g
documentationf ustep
Step until control reaches a different source location.
Step until control reaches a different source location. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i0<
hh k ]4 5 $ K445455 4454545 > " G
6 6 c g repl
c g debug c g msg ( \ g filenamef system/repl/command.scm
(
( + = & N Z \ a
c g
documentationf |step-instruction
Step until control reaches a different instruction.
Step until control reaches a different VM instruction. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i0<
hh ]4 5 $ K445455 4454545 > " G
6 6 g repl
c g debug c g msg ( \ g filenamef system/repl/command.scm
(
( + = & N Z \ a
c g
documentationf next
Step until control reaches a different source location in the current frame.
Step until control reaches a different source location in the current frame. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i0<
hh ]4 5 $ K445455 4454545 > " G
6 6 g repl
c g debug c g msg ( \ g filenamef system/repl/command.scm
(
( + = & N Z \ a
c g
documentationf next-instruction
Step until control reaches a different instruction in the current frame.
Step until control reaches a different VM instruction in the current frame. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i530
h@ ]4 4 55 45$ 45 456 6 g repl
@ g form @ g proc @ g idx & 8 g filenamef system/repl/command.scm
& - 0 * 8
< @ @ g
documentationf tracepoint PROCEDURE
Add a tracepoint to PROCEDURE.
A tracepoint will print out the procedure and its arguments, when it is
called, and its return value(s) when it returns. C0 h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
.
C h J ] L O 6 B g filenamef system/repl/command.scm
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
M C> " G 4)i 0
0 h( ] 4 54 5$ " 6 g idx
% g filenamef system/repl/command.scm
! ! ! 4 # ! 7 % % C h 3 ] 45 ( 66 + g repl
g traps g filenamef system/repl/command.scm
g
documentationf xtraps
Show the set of currently attached traps.
Show the set of currently attached traps (breakpoints and tracepoints). C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
, C> " G 4)i h ]45$ 66 g repl
g idx g filenamef system/repl/command.scm
$
)
) + *
* g
documentationf )delete IDX
Delete a trap.
Delete a trap. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
$
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
$
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
$
, C> " G 4)i h ]45$ 66 g repl
g idx g filenamef system/repl/command.scm
-
2
2 4 3
3 g
documentationf ,disable IDX
Disable a trap.
Disable a trap. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
-
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
-
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
-
, C> " G 4)i h ]45$ 66 g repl
g idx g filenamef system/repl/command.scm
6
;
; = <
< g
documentationf )enable IDX
Enable a trap.
Enable a trap. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
6
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
6
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
6
, C> " G 4)i 0 h0 ] 4 5 $ 454566 g repl
+ g debug + g filenamef system/repl/command.scm
?
$ D ) ?
+ g
documentationf Eregisters
Print registers.
Print the registers of the current frame. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
?
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
?
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
?
, C> " G 4)i
n0 h8 - . , 3 # 4> " G 45 6 g repl
3 g x 3 g filenamef system/repl/command.scm
F
L , M
- M 1 3 M 3 g
documentationf pwidth [X]
Set debug output width.
Set the number of screen columns in the output from `backtrace' and
`locals'. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
F
>
C0
h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
F
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
F
, C> " G 4)iHl3
J h( ]
44 4 55> G 6 g repl
& g form & g args & g filenamef system/repl/command.scm
U
X X X 2 X X & Z & g
documentationf 4inspect EXP
Inspect the result(s) of evaluating EXP. C0H h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
U
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
U
.
C h J ] L O 6 B g filenamef system/repl/command.scm
U
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
U
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
U
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
U
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
U
M C> " G 4)iBl3
\]D h m ]4 > " G 6 e g x
g filenamef system/repl/command.scm
b c d C h( ]
44 4 55> G 6 g repl
& g form & g args & g filenamef system/repl/command.scm
\
_ _ _ 2 _ _ & a & g
documentationf >pretty-print EXP
Pretty-print the result(s) of evaluating EXP. C0B h ]3$ $ $ K 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g form-name
g key g args g vx g vy g vx g vy g vx 1 r g vy 1 r g filenamef system/repl/command.scm
\
g nameg handle-read-error C,Z h0 ^ - . , 3 # 45 44L 55 45 6 V g port
. g filenamef system/repl/command.scm
\
.
C h J ] L O 6 B g filenamef system/repl/command.scm
\
C6 h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
\
C( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
\
>
C h m - 1 3 L 6 e g k
g args g filenamef system/repl/command.scm
\
C hP ] 45 U 64 O O 5 4 4O 5> XCXFG C g repl
M g handle-read-error M g form $ B g k F M g filenamef system/repl/command.scm
\
M C> " G 4)i h ]6 g repl
g filenamef system/repl/command.scm
l
o g
documentationf gc
Garbage collection. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
l
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
l
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
l
, C> " G 4)i
!"#$%&'()*+,-.V & h ; ]a45 45 4 54 5 4545 4 > " G 4
> " G 4 54 5 4
> " G 4> " G 4
> " G 4545 4
> " G 4> " G 4
> " G 4545 4
> " G 4> " G 4
> " G 4 54 54 54 54 54 54 54 5
4
> " G 4!> " G 4"> " G 4#
> " G 4$ > " G 4
> " G
44%5 > " G 4%5 6 3 g repl
| g this-tms | g this-gcs | g last-tms | g last-gcs | g
this-times 4 g g
last-times 4 g g this-heap y g this-free y g
this-alloc g
last-alloc g
this-total 2 x g
last-total 2 x g
this-utime V g
last-utime V g
this-stime V g
last-stime V g this-cutime V g last-cutime
V g this-cstime V g last-cstime V g filenamef system/repl/command.scm
q
t u
v w t # y ) y * + y , z 2 z * 4 z 4 y 9 { = { D { > I { R | h ~ n ~ ) p ~ q w * y y ~ ~ ) 3 @ ) ) - 4 > ! ' ) ) * 0 ) 2 2 7 ; = + ? 2 D M Q Z c y 0 7 & / W | c | g
documentationf statistics
Display statistics. C,( h@ | ]445 5 " %4 5 45$ 6 " " t g port
> g out 7 g x 7 g filenamef system/repl/command.scm
q
>
C0 h - 1 3 $ $ $ J 4 > " G 445 > " G " 4 > " G " 4 > " G " 4 > " G 6 g k
g args g vx g vy g vx ' g vy ' g vx 8 x g vy 8 x g filenamef system/repl/command.scm
q
C h0 k ] 45 U 4 45> XCXFG C c g repl
, g k % , g filenamef system/repl/command.scm
q
, C> " G 0/0 h0 ]
4$ " 5 6 g title
) g flag ) g field1 ) g field2 ) g unit ) g fmt ) g filenamef system/repl/command.scm
8 A D
)
) g nameg display-stat CR h ] 6 g title
g field1 g field2 g filenamef system/repl/command.scm
' g nameg display-stat-title CR h ] 6 g title
g flag g this g last g unit g filenamef system/repl/command.scm
g nameg display-diff-stat CR012k3 h@ 8 ] 4455 44556 0 g title
9 g this 9 g last 9 g num # g filenamef system/repl/command.scm
( ) * 1 ( 3 5 7 : 9 9 g nameg display-time-stat C%R40156 h` ]
$ " 45
$ " 456 g title
[ g this-time [ g
this-clock [ g last-time [ g
last-clock [ g time 9 g clock 9 g filenamef system/repl/command.scm
. $ ) % . . 0 < 1 . 3 = A C H M % R . T < U . W Y , [ [ g nameg display-mips-stat C7RC ; g m
0 g filenamef system/repl/command.scm
2 3 5 2
7 H : G
J
_ K
` M i M
N
O
= P
Q
R
L T
W
Z
o ]
a
a h
/ k
H s
O |
!
.q %
5 >
: D
>Q J
B P
G U
O `
U p
Y z
_Y
e9
i
o)
t
|A
i
n
o
b
2
ƒ <
i I
ӹ _
ڑ t
)
J
A
!
*r
0I $
4 -
9 6
> ?
B F
G U
OJ \
W l
[ q
i
j
k
ml
o
W o
C6 PK ! 'f, , system/repl/repl.gonu [ GOOF----LE-8-2.0, ] 4 h" ] g guile g define-module* g system g repl g filenameS
f system/repl/repl.scm g importsS g base
g syntax
g pmatch g compile g language g vm g error-handling g common ! "g command #" $# %g ice-9 &g control '%& (' ) !$( *g exportsS +g
start-repl ,g run-repl -+, .g set-current-module /. 0. 1g read-char 2g eof-object? 3g read-scheme-line-comment 4g read 5g read-scheme-datum-comment 6g
language-name 7g scheme 8g peek-char 9g unread-char :g read-comment ;g meta <g meta-command-token =g current-input-port >g with-input-from-port ?g flush-leading-whitespace @g language-reader Ag meta-reader Bg char-ready? Cg flush-all-input Dg catch Eg repl-reader Fg repl-prompt Gg
repl-language Hg current-module Ig quit Jg throw Kg format Lg current-output-port Mf While reading expression:
Ng print-exception Og prompting-meta-read Pg debugS QP RQ Sg current-language Tg start-repl* Ug
parameter? VU WU Xg scm-error Yg wrong-type-arg Zf parameterize [f Not a parameter: ~S \g run-repl* ]g make-repl ^g make-syntax-transformer _^ `^ ag abort-on-error bg macro cg $sc-dispatch dc ec fg any gfff hg
syntax-object ig top ji kg ribcage lg dummy mg string ng exp olmn pg m-1e9e6487f-43 qpi rqjj sf l-1e9e6487f-48 tf l-1e9e6487f-49 uf l-1e9e6487f-4a vstu wkorv xk yg x zy {q |f l-1e9e6487f-45 }| ~kz{} jwx~ g hygiene hD h g lambda h g key h g args h hK f While ~A:~% h hN hL h g abort h g syntax-violation f -source expression failed to match any pattern g default-prompt-tag g %start-stack ' ' g *repl-stack* g repl-welcome g meta-command f While executing meta-command:~% g newline g flush-to-newline g call-with-error-handling g repl-prepare-eval-thunk g
repl-parse f parsing expression f compiling expression g run-hook g before-eval-hook g on-errorS g repl-option-ref g on-error g for-each g
repl-print g trap-handlerS g disabled g char-whitespace? g char=?C 5 h ]4
)*-5 40 > " G 12 h8 ]" *4 5 45 $ C
$ C"" g port
4 g ch
0 g t 0 g filenamef system/repl/repl.scm
)
* +
+ ,
, & -
* , + -
0 .
0 * 4 g nameg read-scheme-line-comment C3R4 h ] 6 g port
g filenamef system/repl/repl.scm
0
1 g nameg read-scheme-datum-comment C5R6713859 h ] 4 5& ;$ &4> " G 4> " G C#$ `4> " G 45 ;$ &4> " G 4> " G C4#> " G CCC g lang
g port g ch g key ` g filenamef system/repl/repl.scm
4
5 5 ! 5 6 8
+ 9
G 6 H <
Z = ` =
l ?
~ @
G
g nameg read-comment C:R;"<R=>?21<:@ hX ]45 4 5$ 6 ,$ 4> " G C4LL 5$ C4L5LL 6 g ch
R g filenamef system/repl/repl.scm
W X X
Y Y
Z [ ! Y
" \ 5 ^ C Y
F ` R ` R
C h0 k - . , 3 # 45 L L O 6 c g port
* g filenamef system/repl/repl.scm
U U * V *
C h ] O C z g lang
g env g filenamef system/repl/repl.scm
T
g nameg meta-reader CARB281C h8 ] 45 $ $445 5$ C4> " G 6 C g filenamef system/repl/repl.scm
b
c c d d d c f / g
1
g nameg flush-all-input CCRDEF h O ] L 6G g filenamef system/repl/repl.scm
s s
CAGH h o ] L O 44L 545 56 g g filenamef system/repl/repl.scm
r t t t 5 t s
CIJKLMNC h` - 1 3 $ @445 > " G 445 > " G 4> " G C g key
] g args ] g filenamef system/repl/repl.scm
u v x z z $ z ' ) z 2 { 5 { C { L | ]
C h ] O 6y g repl
g filenamef system/repl/repl.scm
p
q g nameg prompting-meta-read CORRSTO h8 - / 0 3 # 45 # 6 g lang
3 g debug 3 g filenamef system/repl/repl.scm
& 3 3
g debugS g nameg
start-repl C+RSWXYZ[\] hX ] 45$ " 4 > " G 4 5Y44 5> ZCZF g lang
X g debug X g prompting-meta-read X g t-1e9e6487f-3e X g filenamef system/repl/repl.scm
B E T X g nameg start-repl* CTR4`abeg h( R ] C J g dummy
& g string & g exp & & C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef system/repl/repl.scm
" g
macro-typeg syntax-rulesg patternsg stringg exp C5aR\O h x ] 6 p g repl
g filenamef system/repl/repl.scm
g nameg run-repl C,R h Q ] L 6 I g filenamef system/repl/repl.scm
! 1
C h I ] L O 6 A g filenamef system/repl/repl.scm !
C h Q ] LL 6I g filenamef system/repl/repl.scm
/ :
C h8 ]45 U 4 O > XCXFG O " g thunk
3 g k 3 g proc 3 g filenamef system/repl/repl.scm
3 3 g nameg with-stack-and-prompt C<D h Q ] L 6I g filenamef system/repl/repl.scm
CIKNL h8 - 1 3 & 64> " G 45 6 g k
8 g args 8 g filenamef system/repl/repl.scm
" " - ( 8
8
C2DIDD h Q ] LL 6 I g filenamef system/repl/repl.scm
'
)
CKNL h@ - 1 3 4> " G 445 > " G 6 w g key
< g args < g filenamef system/repl/repl.scm
' 7 ' <
C h Z ] L4L LO 56 R g filenamef system/repl/repl.scm
$ ' &
CKNL h@ - 1 3 4> " G 445 > " G 6 g key
< g args < g filenamef system/repl/repl.scm
$ ' 4 $ <
Ch Q ] LL 6I g filenamef system/repl/repl.scm
"
C h a ]L 6 Y g v
g filenamef system/repl/repl.scm
"
$
C hx ]45 U I4LLO 5 4L> " G 4 L O 4
L 5> X" G
" G
LO 6 g thunk
O g k
U _ g l
` r g filenamef system/repl/repl.scm
$ 4 B + H A J + O X _ ) c r r
C h t - 1 3 6 l g k
g args g filenamef system/repl/repl.scm
C h Z ] L LLO 6 R g filenamef system/repl/repl.scm
C h( ]O Q 45 U [ $ " Y[( 4 > " G " " 4 5 $ " & 4 O > " G " j4 5$ %4
> " G 4 > " G " :4 > " G 4
O 4 5> " G 4 > " G "G"C Z" XCXFG C g repl
( g prompting-meta-read ( g with-stack-and-prompt
( g t 2 g exp ^ g k ( g status ( g filenamef system/repl/repl.scm
/ < 3 9 = > W X ^ d
h u
/
! ( g nameg run-repl* C\R821? h@ ]45 4 5$ C4 5$ 4> " G 6 C g ch
9 g filenamef system/repl/repl.scm
" # ! 6 -
9
g nameg flush-leading-whitespace C?RB821 hX ]45 $ G45 4 5$ " 4 5$ #4> " G 4
5$ C6 CC g ch
R g filenamef system/repl/repl.scm
# ( - . > J P T
g nameg flush-to-newline CRC g m
, g filenamef system/repl/repl.scm
g )
0
4
R ! R ' R R
u T
m b
d p
b
b
C6 PK ! <5^7 7 system/repl/common.gonu [ GOOF----LE-8-2.07 ] 4 h| ] g guile g define-module* g system g repl g common
g filenameS f system/repl/common.scm g importsS
g base g syntax
g compile
g language
g message
g vm g program g ice-9 g control ! "g history # " $# % !$ &g exportsS 'g <repl> (g make-repl )g
repl-language *g repl-options +g
repl-tm-stats ,g
repl-gc-stats -g
repl-debug .g repl-welcome /g repl-prompt 0g repl-read 1g repl-compile 2g repl-prepare-eval-thunk 3g repl-eval 4g repl-expand 5g
repl-optimize 6g
repl-parse 7g
repl-print 8g repl-option-ref 9g repl-option-set! :g repl-default-option-set! ;g repl-default-prompt-set! <g puts =g ->string >g
user-error ?g
*warranty* @g *copying* Ag *version* B'()*+,-./0123456789:;<=>?@A Cg autoloadsS Dg tree-il Eg optimize FDE Gg optimize! HG IFH Jg set-current-module KJ LJ Mg format Nf GNU Guile ~A
Copyright (C) 1995-2016 Free Software Foundation, Inc.
Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details. Og version Pf qGuile is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as
published by the Free Software Foundation, either version 3 of
the License, or (at your option) any later version.
Guile is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this program. If not, see
<http://www.gnu.org/licenses/lgpl.html>. Qf 8Guile is distributed WITHOUT ANY WARRANTY. The following
sections from the GNU General Public License, version 3, should
make that clear.
15. Disclaimer of Warranty.
THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
16. Limitation of Liability.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
17. Interpretation of Sections 15 and 16.
If the disclaimer of warranty and limitation of liability provided
above cannot be given local legal effect according to their terms,
reviewing courts shall apply local law that most closely approximates
an absolute waiver of all civil liability in connection with the
Program, unless a warranty or assumption of liability accompanies a
copy of the Program in return for a fee.
See <http://www.gnu.org/licenses/lgpl.html>, for more details. Rg make-record-type Sf <repl> Tg options Ug tm-stats Vg gc-stats Wg debug XTUVW Yg record-constructor Zg %compute-initargs [g record-predicate \g repl? ]g make-procedure-with-setter ^g record-accessor _g record-modifier `g copy-tree ag compile-options bg %auto-compilation-options c dg trace ed fg interp gf hg prompt ig string? jg thunk? kg
procedure? lg error mf Invalid prompt ng print of Invalid print procedure pg
value-history qg value-history-enabled? rg enable-value-history! sg disable-value-history! tg ->bool ug on-error vg backtrace wg report xg pass yf )Bad on-error value ~a; expected one of ~a zWvwx {g repl-default-options |g
%make-repl }g languageS ~g language? g lookup-language g optionsS g tm-statsS g times g gc-statsS g debugS g display g newline f Enter `,help' for help.
f ~A@~A~A> g
language-name g module-name g current-module g length g *repl-stack* f f [~a] g language-reader g current-input-port g repl-compile-options g fromS g toS g objcode g optsS g envS g decompile g language-parser g language-evaluator g make-program g language-compilers g default-prompt-handler g default-prompt-tag g run-hook g before-print-hook g write g assq f unknown repl option g object->string g throwC 5 h ]4
%&BCI5 4L > " G 4MiN4Oi5 5ARP@RQ?R4RiSX5'RTUVW 4Yi'i5 Z h . - 1 3 L4 L 5@ & g args
C O (R4[i'i5\R4]i4^i'i54_i'i55)R4]i4^i'iT54_i'iT55*R4]i4^i'iU54_i'iU55+R4]i4^i'iV54_i'iV55,R4]i4^i'iW54_i'iW55-R4`iabiceghi h \ ]L C T g repl
g filenamef system/repl/common.scm
u & Cjh d ]L 6 \ g repl
g filenamef system/repl/common.scm
v % v 4 Cklm hH ] $ <4 5$ O C4 5$ O C4 5$ C 6C g prompt
F g filenamef system/repl/common.scm
r s u s v & s / w 9 s @ x ! D x F C nklo h ] $ 4 5$ C 6C} g print
g filenamef system/repl/common.scm
y z | z } } C p4qi5 rst h8 ~ ] $ 4> " G " 4> " G 6 v g x
2 g filenamef system/repl/common.scm
' 2 2 C uWWvwxlyz h@ ] & " & " & " $ C 6 g x
? g filenamef system/repl/common.scm
2 9 = ? ? C 5{R(i|R|}~`{V
hP - . , 3 # 4 5$ " 4 5454 5
4 5 6
g lang
N g debug N g filenamef system/repl/common.scm
$ + 4 = D N N g nameg make-repl C(RA h@ ]4> " G 4> " G 4> " G 6 g repl
: g filenamef system/repl/common.scm
% 8 : : g nameg repl-welcome C.R8hM)
hp | ]4 5 $ 644 55445 54
[ $ " 5
$ "
4 5 6 t g repl
n g t n g t : M g level O l g filenamef system/repl/common.scm
" * * + . 4 5 : ! J ( O O T Y [ ` # e . i # n n g nameg repl-prompt C/R) h ] 44 55 45 45 6 g repl
g reader g filenamef system/repl/common.scm
! ! g nameg repl-read C0R8a h ] 6 g repl
g filenamef system/repl/common.scm
g nameg repl-compile-options CR)
h0 ]4 54 5 4 5 6 g repl
- g form - g from - g opts - g filenamef system/repl/common.scm
# ' - - g nameg repl-compile C1R)D h@ ]4 54 5 4 4
5 5 6 g repl
: g form : g from : g opts : g filenamef system/repl/common.scm
# . * 0 4 : : g nameg repl-expand C4R)GD hH ]4 54 5 44
4 5 5 4 5 56 g repl
F g form F g from F g opts F g filenamef system/repl/common.scm
& 9 - ) 3 4 < @ F F g nameg
repl-optimize C5R) h ]
44 55 $ 6C g repl
g form g parser g filenamef system/repl/common.scm
! g nameg
repl-parse C6R)18f h \ ] LL 45 6 T g filenamef system/repl/common.scm
C hh C ]44 55 "
4 56$ 844 55 $ " 4 5 $
O C"" ; g repl
c g form c g eval c g t 4 M g filenamef system/repl/common.scm
# ! ! ( + , 3 4 4
B H ' J Q c g nameg repl-prepare-eval-thunk C2R2 h K ] L 6 C g filenamef system/repl/common.scm
C h8 ]4 5 45 U 4O > XCXFG @ g repl
7 g form 7 g thunk 7 g handler 7 g args , 7 g filenamef system/repl/common.scm
7 g nameg repl-eval C3R8n hP ]
& C4> " G 4 5 $ 64> " G 6 g repl
N g val N g t ( N g filenamef system/repl/common.scm
& (
( 8 9
N
N g nameg
repl-print C7R*l h0 ]
44 55 $ " 45 C g repl
- g key - g t * g filenamef system/repl/common.scm
# ' +
- g nameg repl-option-ref C8R*lk hP U ] 44 55 $ " 45 45$ 45" CM g repl
P g key P g val P g t * g spec * P g filenamef system/repl/common.scm
# ' * / 0 5 9 = > A G N P g nameg repl-option-set! C9R{lk hP 9 ]
4 5 $ " 4 5 45$ 45" C 1 g key
K g val K g t % g spec % K g filenamef system/repl/common.scm
" % * + 0 4 8 9 < B I K g nameg repl-default-option-set! C:R:h h ] 6 g prompt
g filenamef system/repl/common.scm
g nameg repl-default-prompt-set! C;R h | ]4 > " G 6 t g x
g filenamef system/repl/common.scm
g nameg puts C<R h w ] 6 o g x
g filenamef system/repl/common.scm
g nameg ->string C=R> h - 1 3 6 g msg
g args g filenamef system/repl/common.scm
g nameg
user-error C>RC g m
0 g slots
t g constructor t g filenamef system/repl/common.scm
1 ( 8 (
9 - 7 A ( D '
F 0
I /
K ?
N >
\ j
n o k A o / n 2 m
9
w
u
B
|
k
r
<
$
*
&
C6 PK ! <67y, y, system/repl/debug.gonu [ GOOF----LE-8-2.0a, ] 4 h- ] g guile g define-module* g system g repl g debug
g filenameS f system/repl/debug.scm g importsS
g base g pmatch
g syntax
g language
g vm g frame g ice-9 g rdelim !g pretty-print " ! #" $g format % $ &% 'g inspect (' )g selectS *g %inspect +'* ,+ -(), .g program /. 0/ 1 #&-0
2g exportsS 3g <debug> 4g
make-debug 5g debug? 6g debug-frames 7g debug-index 8g debug-error-message 9g debug-for-trap? :g terminal-width ;g print-registers <g print-locals =g print-frame >g print-frames ?g
frame->module @g
stack->vector Ag narrow-stack->vector Bg frame->stack-vector C3456789:;<=>?@AB Dg set-current-module ED FD Gg make-record-type Hf <debug> Ig frames Jg index Kg
error-message Lg for-trap? MIJKL Ng record-predicate Og make-procedure-with-setter Pg record-accessor Qg record-modifier Rg
make-fluid Sg catch TS US Vg string->number Wg getenv Xf COLUMNS Yg integer? Zg exact? [g error \f -Expected a column number (a positive integer) ]g make-hash-table ^g
hash-for-each _g
hashq-set! `g hashq-ref ag
reverse-hashq bg per-line-prefixS cb dc eg current-output-port ff gf ~aRegisters:~% hg frame-instruction-pointer ig display jg run-hook kg before-print-hook lf ip = ~d
mg frame-stack-pointer nf
sp = #x~x
og
frame-address pf
fp = #x~x
qg widthS rq sb trs ug frame-bindings vf ~aNo local variables.~% wf ~aLocal variables:~% xg for-each yg frame-local-ref zg
binding:index {g binding:boxed? |f ~a~:[~; (boxed)~] = ~v:@y
}g binding:name ~g indexS ~ q g full?S g last-sourceS g next-source?S g frame-next-source g frame-source g source:file f
current input f unknown file g and=> g source:line-for-user g
source:column f
~&In ~a:~& f ~9@a~:[~*~3_~;~3d~] ~v:@y~% f ~a:~a f g frame-call-representation f g forward?S g countS g for-trap?S r g
vector-length g max g min g frame-procedure g program? g program-module g current-module g make-module g module-use! g
make-variable f 3~:[Read-only~;Mutable~] local variable ~a = ~70:@y
g module-add! g stack-length g make-vector g frame-previous g stack-ref g
make-stack g %stacksC 5 hx ]4
12C5 4F > " G 4GiHM53R3 h - 1 3 C g frames
g index g
error-message g for-trap? g defrec-1f507eb13-0 g filenamef system/repl/debug.scm
9
g nameg
make-debug C4R4Ni3i55R4Oi4Pi3iI54Qi3iI556R4Oi4Pi3iJ54Qi3iJ557R4Oi4Pi3iK54Qi3iK558R4Oi4Pi3iL54Qi3iL559R4Ri5 UVWX h h ] 456 ` g filenamef system/repl/debug.scm
E E 8 E @ E 8
E (
C h ] - 1 3 C U g args
g filenamef system/repl/debug.scm
E
CYZ[\ h : ) ]3 L [ $ C45 4 5$ #4 5$
$ " " " $ C HC] $ (4 5$ 4 5$
" " " $ L \C 6 2 g t
c g w
! U g t
U c g w
e g filenamef system/repl/debug.scm
B D E ! E $ F . F
/ F 9 F
= F * A F
U D e B k I l I v I w I ) I I 4 I I K K c
e C O :R]^_` h ]L 4L 56 g k
g v g filenamef system/repl/debug.scm
S T ! T 2 T ! T T C h( ] 45 4O > " G C g h
% g ret % g filenamef system/repl/debug.scm
P
Q
Q
R % g nameg
reverse-hashq CaRdef$ghijklmnop h - / 0 3 # 45 # 4> " G 4 5 4> " G 4 > " G 4
> " G 4 5 4> " G 4 > " G 4 > " G 4
5 4> " G 4 > " G 6 g frame
g port g per-line-prefix g val G g val g val g filenamef system/repl/debug.scm
X
X 1 ( Y 1 + _ 1 _ 8 _ A ` G ` J [ ^ \ r ] x ` ] a a [ \ ] a ] b b [ \ b ] g per-line-prefixS g nameg print-registers C;Rte:fu$vwxyz{ijk$|}
hp ] 4L 4 55 4 5$ " 4LL> " G 4> " G L4 54 5L6 g binding
m g x ) g v ) m g filenamef system/repl/debug.scm
m n n 2 n n o o p ) n , r @ s Y t Z u a u * m t m C h ] - / 0 3 # 45 # 45 # 4 5 (
64> " G
O 4 56 U g frame
~ g port ~ g width ~ g per-line-prefix ~ g bindings > ~ g filenamef system/repl/debug.scm
d
d . ' e $ 5 e G 8 f > f F g L i P i Q k W k ^ k v v ~ l ~ g widthS g per-line-prefixS g nameg print-locals C<Re:$<qb hH ' - / 0 3 # 45 # # 45 # # # 4$ " 5 $ 45 $ " " 4
5 4 5
$ K$ 45 $ " " $ " 4
> " G " 4 $ 4
5" 4 5> " G $ 6C g frame
D g port D g index D g width D g full? D g last-source D g next-source? D g source d D g t s g file D g line D g col
D g t
g filenamef system/repl/debug.scm
x
x - 0 y ) R X d d l | m } s } } ! ~ | } } } ! ~ 2 & 4 @ ( B ) D g indexS g widthS g full?S g last-sourceS g next-source?S g nameg print-frame C=Re:=~q h _ - / 0 3
# 45 # 45 # # # # 4 5 $
" $
" 4
5 " $
45" " !$
$ " "" " "
$
$
4
$ " > " G
$ " " 4
5" %
$ $ 4 5" "" "
"fCC$ "
"K W g frames
y g port y g width y g full? y g forward? y g count y g for-trap? y g len X y g lower-idx } y g upper-idx y g i
b g last-source b g frame ^
g filenamef system/repl/debug.scm
( ' $ R X ` c ( i m s { } } & #
- (
" ' 1 4 9 ? @ ^ b h y , y g widthS g full?S g forward?S g countS g for-trap?S g nameg print-frames C>Rxyz{$} hp ]4L 4 55 4 5$ " 45 44 54 5$ " > " G L4 56 g binding
l g x l g var * l g filenamef system/repl/debug.scm
.
$ 8 *
- 2 3 : C G J 1 U b ! l l Cu
hx @ ]4 5 45$ ]45 $ " 45 45 4> " G 4 O 4 5> " G C6 8 g frame
w g proc w g t 3 g mod 3 s g mod* : s g filenamef system/repl/debug.scm
, . 3 6 : =
Q
] h
w w g nameg
frame->module C?R h` G ]!4 5 45
$ ?" &$ 45 ""
4
5 "" C ? g stack
^ g len ^ g v ^ g i F g frame F g filenamef system/repl/debug.scm
% )
0 3 4 B F H W ^ g nameg
stack->vector C@R@ h0 - 1 3 44
5? $ 6C g stack
) g args ) g narrowed ) g filenamef system/repl/debug.scm
$ & ( )
g nameg narrow-stack->vector CARA h8 ] [$ [" 4 5
$ " 6 g frame
1 g tag 1 g filenamef system/repl/debug.scm
) 1 1 g nameg frame->stack-vector CBRC g m
, g set-width
g filenamef system/repl/debug.scm
: 9
A A @
P
X
( d
x
k
*
X
v
x
C6 PK ! LW: : system/repl/coop-server.gonu [ GOOF----LE-8-2.0" ] 4 hO^ ] g guile g define-module* g system g repl g coop-server
g filenameS f system/repl/coop-server.scm g importsS
g ice-9 g match
g receive
g threads
g q
g srfi g srfi-9 g selectS g start-repl* !g prompting-meta-read " ! # " $g server %$ &g run-server* 'g make-tcp-server-socket (g add-open-socket! )g
close-socket! *g guard-against-http-request +&'()* ,% + - #, .g exportsS /g spawn-coop-repl-server 0g poll-coop-repl-server 1/0 2g set-current-module 32 42 5g <coop-repl-server> 6g !%%make-coop-repl-server-procedure 7g make-syntax-transformer 87 97 :g %make-coop-repl-server ;g macro <g $sc-dispatch =< >< ?g _ @g any A?@@ Bg
syntax-object Cg lambda Dg m-6cff15a80cd23e5-5 Eg top FDE Gg ribcage Hg t-6cff15a80cd23e5-3 Ig t-6cff15a80cd23e5-4 JHI KFF Lf l-6cff15a80cd23e5-a Mf l-6cff15a80cd23e5-b NLM OGJKN PG Qg x RQ SF Tf l-6cff15a80cd23e5-7 UT VGRSU Wg shift Xg proc-name Yg args ZXY [E \[[ ]f l-1e8ba8b5a-2ba ^f l-1e8ba8b5a-2bb _]^ `GZ\_ ag key bg value cg name dg formals eg body fabcde g[[[[[ hf l-1e8ba8b5a-2ad if l-1e8ba8b5a-2ae jf l-1e8ba8b5a-2af kf l-1e8ba8b5a-2b0 lf l-1e8ba8b5a-2b1 mhijkl nGfgm og make-procedure-name po q[ rf l-1e8ba8b5a-29d sr tGpqs u[ vf l-1e8ba8b5a-29c wv xGRuw yFOPVWPPPP`ntx
zg hygiene {z |BCy{ }g mutex ~[OPV z B}~ g queue B~ g make-struct g m-6cff15a80cd23e5-1 E g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e E f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 G g ctor-args f l-1e8ba8b5a-37a Gu g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 G\ g form g type-name g constructor-spec g field-names [[[[ f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e G g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers [[[[[[[[ f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 G f l-1e8ba8b5a-334 GRu OPVWPPPPP B{ B5~ B
{ | g each-any ?Ȍ g syntax-violation f Wrong number of arguments g identifier? [PV B6 f -source expression failed to match any pattern g record-type-vtable g pwpw g default-record-printer } g set-struct-vtable-name! g vtable-offset-user g %coop-repl-server?-procedure g coop-repl-server? ?@ g m-6cff15a80cd23e5-14 E g t-6cff15a80cd23e5-13 f l-6cff15a80cd23e5-19 G f l-6cff15a80cd23e5-16 GR PWPPPP`ntx
BC{ g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f E f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 G g copier-id
f l-1e8ba8b5a-476
G
u g ctor-name f l-1e8ba8b5a-46e Gu f l-1e8ba8b5a-46c Gu g layout f l-1e8ba8b5a-46a Gu g
immutable? f l-1e8ba8b5a-468 G u !g field-count "! #f l-1e8ba8b5a-466 $# %G"u$ &g
getter-ids '& (f l-1e8ba8b5a-463 )( *G'u) +g field-ids ,+ -f l-1e8ba8b5a-460 .- /G,u. 0g predicate-name 1g
field-spec 2 01 3[[[[[[ 4f l-1e8ba8b5a-453 5f l-1e8ba8b5a-454 6f l-1e8ba8b5a-455 7f l-1e8ba8b5a-456 8f l-1e8ba8b5a-457 9f l-1e8ba8b5a-458 :456789 ;G23: <PWPPPPP
PPPP P%P*P/; =B<{ >= ?g and @B?<{ Ag struct? BBA<{ CB= Dg eq? EBD<{ Fg
struct-vtable GBF<{ HG= I[P JB5I KEHJ L@CK M>L N[P OBN Pg throw-bad-struct Q P R P Sg coop-repl-server-mutex Tg !%coop-repl-server-mutex-procedure Ug free-id Vg
%%on-error Wg m-6cff15a80cd23e5-20 XWE YX Zf l-6cff15a80cd23e5-22 [Z \GRY[ ]XP\WPPPP`ntx ^BV]{ _U^ `_@ ag %%type bg t-1e8ba8b5a-3a5 cg t-1e8ba8b5a-3a6 dg t-1e8ba8b5a-3a7 eg t-1e8ba8b5a-3a8 fg t-1e8ba8b5a-3a9 gg t-1e8ba8b5a-3aa hg t-1e8ba8b5a-3ab ibcdefgh jg m-1e8ba8b5a-3ac kjE lkkkkkkk mf l-1e8ba8b5a-3b0 nf l-1e8ba8b5a-3b1 of l-1e8ba8b5a-3b2 pf l-1e8ba8b5a-3b3 qf l-1e8ba8b5a-3b4 rf l-1e8ba8b5a-3b5 sf l-1e8ba8b5a-3b6 tmnopqrs uGilt vg getter wg index xvw yf l-1e8ba8b5a-3a3 zf l-1e8ba8b5a-3a4 {yz |Gx\{ }& ~[[[ f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 G}~ P\WPuPPP|P Ba{ U ?`@ g ck g err g s XX f l-6cff15a80cd23e5-25 f l-6cff15a80cd23e5-26 G XP\WPPPP`ntx
B{ g quote B{ [P\ B5 g %%index B{ U ?`@ f l-6cff15a80cd23e5-2a f l-6cff15a80cd23e5-2b G XP\WPPPP`ntx
B{ B{ P\ B
g %%copier B{ U ?`@ f l-6cff15a80cd23e5-2f f l-6cff15a80cd23e5-30 G XP\WPPPP`ntx
B{ B{ g %%<coop-repl-server>-set-fields [P\ B g t-6cff15a80cd23e5-1f f l-6cff15a80cd23e5-34 GY XP\WPPPP`ntx
BC{ P\WPuPPP|P B{ g if B{ BD{ BF{ [P\ B5 g
struct-ref B{ P\ B
BP{ B{ BS [P\ BT g coop-repl-server-queue g !%coop-repl-server-queue-procedure g m-6cff15a80cd23e5-3b E f l-6cff15a80cd23e5-3d GR PWPPPP`ntx BV{ U @ PWPuPPP|P Ba{ U ?@ f l-6cff15a80cd23e5-40 f l-6cff15a80cd23e5-41 G PWPPPP`ntx
B{ B{ [P B5 B{ U ?@ f l-6cff15a80cd23e5-45 f l-6cff15a80cd23e5-46 G PWPPPP`ntx
B{ B{ P B B{ U ?@ f l-6cff15a80cd23e5-4a f l-6cff15a80cd23e5-4b G PWPPPP`ntx
B { B { [P
B
g t-6cff15a80cd23e5-3a f l-6cff15a80cd23e5-4f G PWPPPP`ntx
BC{ PWPuPPP|P B{ B{ BD{ BF{ [P B5 !B{ "P #B " $!# %BP{ &B{ 'B (&' )%( * $) +* ,[P -B, .g each /@@ 0./ 1@0 2@1 3@2 4g %%set-fields 5g dummy 6g check? 7g expr 856v7 9g m-6cff15a80cd23e5-56 :9E ;: <f l-6cff15a80cd23e5-5b =f l-6cff15a80cd23e5-5c >f l-6cff15a80cd23e5-5d ?f l-6cff15a80cd23e5-5e @f l-6cff15a80cd23e5-5f A<=>?@ BG8;A C: Df l-6cff15a80cd23e5-58 ED FGRCE Gg t-1e8ba8b5a-3c4 Hg t-1e8ba8b5a-3c6 Ig t-1e8ba8b5a-3c5 JGHI Kg m-1e8ba8b5a-3c7 LKE MLLL Nf l-1e8ba8b5a-3cb Of l-1e8ba8b5a-3cc Pf l-1e8ba8b5a-3cd QNOP RGJMQ Sf l-1e8ba8b5a-3c1 Tf l-1e8ba8b5a-3c2 Uf l-1e8ba8b5a-3c3 VSTU WG}~V XBPFWPRPPPW
YB4X{ Z[BPF [B5Z \BSZ ]BZ ^\] _g map `_ a_ bg list cg
make-mutex dg make-q eg make-coop-repl-server fg
lock-mutex gf hf ig unlock-mutex ji ki lg enq! mg coop-repl-server-eval ng <coop-repl> og %%make-coop-repl-procedure pg %make-coop-repl q?@@@@ rg m-6cff15a80cd23e5-91 srE tg t-6cff15a80cd23e5-8d ug t-6cff15a80cd23e5-8e vg t-6cff15a80cd23e5-8f wg t-6cff15a80cd23e5-90 xtuvw yssss zf l-6cff15a80cd23e5-96 {f l-6cff15a80cd23e5-97 |f l-6cff15a80cd23e5-98 }f l-6cff15a80cd23e5-99 ~z{|} Gxy~ s f l-6cff15a80cd23e5-93 GR sPWPPPP`ntx
BC{ [P B} g condvar B g thunk B g cont B g m-6cff15a80cd23e5-8b E PWPPPPP B{ Bn B
{ [P Bo g pwpwpwpw } g %coop-repl?-procedure g
coop-repl? g m-6cff15a80cd23e5-a4 E g t-6cff15a80cd23e5-a3 f l-6cff15a80cd23e5-a9 G f l-6cff15a80cd23e5-a6 GR PWPPPP`ntx
BC{ PWPPPPP
PPPP P%P*P/; B{ B?{ BA{ BD{ BF{ [P Bn [P B g coop-repl-mutex g %coop-repl-mutex-procedure g m-6cff15a80cd23e5-b0 E f l-6cff15a80cd23e5-b2 GR PWPPPP`ntx BV{ U @ PWPuPPP|P Ba{ U ?@ f l-6cff15a80cd23e5-b5 f l-6cff15a80cd23e5-b6 G PWPPPP`ntx
B{ B{ [P Bn B{ U ?@ f l-6cff15a80cd23e5-ba f l-6cff15a80cd23e5-bb G PWPPPP`ntx
B{ B{ P B
B{ U ?@ f l-6cff15a80cd23e5-bf f l-6cff15a80cd23e5-c0 G PWPPPP`ntx
B{ B{ g %%<coop-repl>-set-fields [P B g t-6cff15a80cd23e5-af f l-6cff15a80cd23e5-c4 G PWPPPP`ntx
BC{ PWPuPPP|P B{ B{ BD{ BF{ [P Bn B{ P B
BP{ B{
B
[P B g coop-repl-condvar g %coop-repl-condvar-procedure g m-6cff15a80cd23e5-cb E f l-6cff15a80cd23e5-cd GR PWPPPP`ntx BV{ U @ PWPuPPP|P Ba { U ? @ ! "f l-6cff15a80cd23e5-d0 #f l-6cff15a80cd23e5-d1 $"# %G!$ &%PWPPPP`ntx
'B&{ (B&{ )[%P *Bn) +(* ,+ -B { .U- /? .@ 0f l-6cff15a80cd23e5-d5 1f l-6cff15a80cd23e5-d6 201 3G!2 43PWPPPP`ntx
5B4{ 6B4{ 73P 8B 7 968 :9 ;B { <U; =? <@ >f l-6cff15a80cd23e5-da ?f l-6cff15a80cd23e5-db @>? AG!@ BAPWPPPP`ntx
CBB{ DBB{ E[AP FBE GDF HG Ig t-6cff15a80cd23e5-ca JI Kf l-6cff15a80cd23e5-df LK MGJL NMPWPPPP`ntx
OBCN{ PMPWPuPPP|P QBP{ RQ SBP{ TBDP{ UBFP{ VUQ W[MP XBnW YTVX ZBP{ [MP \B [ ]ZQ\ ^BPP{ _BP{ `BW a_` b^Qa cSY]b dORc e[P fBe gg coop-repl-read-thunk hg %coop-repl-read-thunk-procedure ig m-6cff15a80cd23e5-e6 jiE kj lf l-6cff15a80cd23e5-e8 ml nGRkm ojPnWPPPP`ntx pBVo{ qUp rq@ sPnWPuPPP|P tBas{ uUt v?ru@ wjj xf l-6cff15a80cd23e5-eb yf l-6cff15a80cd23e5-ec zxy {Gwz |j{PnWPPPP`ntx
}B|{ ~B|{ [{Pn Bn ~ Bs{ U ?r@ f l-6cff15a80cd23e5-f0 f l-6cff15a80cd23e5-f1 Gw jPnWPPPP`ntx
B{ B{ Pn B Bs{ U ?r@ f l-6cff15a80cd23e5-f5 f l-6cff15a80cd23e5-f6 Gw jPnWPPPP`ntx
B{ B{ [Pn B g t-6cff15a80cd23e5-e5 f l-6cff15a80cd23e5-fa Gk jPnWPPPP`ntx
BC{ PnWPuPPP|P B{ B{ BD{ BF{ [Pn Bn B{ Pn B BP{ B{ Bg [Pn Bh g coop-repl-cont g %coop-repl-cont-procedure g m-6cff15a80cd23e5-101 E f l-6cff15a80cd23e5-103 GR PWPPPP`ntx BV{ U @ PWPuPPP|P Ba{ U ?@ f l-6cff15a80cd23e5-106 f l-6cff15a80cd23e5-107 G PWPPPP`ntx
B{ B{ [P Bn B{ U ?@ f l-6cff15a80cd23e5-10b f l-6cff15a80cd23e5-10c G PWPPPP`ntx
B{ B{ P B B{ U ?@ f l-6cff15a80cd23e5-110 f l-6cff15a80cd23e5-111 G PWPPPP`ntx
B{ B{ [P B g t-6cff15a80cd23e5-100 f l-6cff15a80cd23e5-115 G PWPPPP`ntx
BC{ PWPuPPP|P B{ B{ BD{ BF{ [P Bn B{ P B
BP{ B{ B
[P B g m-6cff15a80cd23e5-11c E f l-6cff15a80cd23e5-121 f l-6cff15a80cd23e5-122 f l-6cff15a80cd23e5-123 f l-6cff15a80cd23e5-124 f l-6cff15a80cd23e5-125 G8 f l-6cff15a80cd23e5-11e GR ! P WPRPPPW
"B4!{ #[ P $Bn# %B# &B# 'Bg# (B# )%&'( *g set-coop-repl-read-thunk! +g $%set-coop-repl-read-thunk!-procedure ,g m-6cff15a80cd23e5-130 -,E .g t-6cff15a80cd23e5-12e /g t-6cff15a80cd23e5-12f 0./ 1-- 2f l-6cff15a80cd23e5-135 3f l-6cff15a80cd23e5-136 423 5G014 6- 7f l-6cff15a80cd23e5-132 87 9GR68 :-5P9WPPPP`ntx
;BC:{ <g t-1e8ba8b5a-3e6 =g t-1e8ba8b5a-3e7 ><= ?g m-1e8ba8b5a-3e8 @?E A@@ Bf l-1e8ba8b5a-3ec Cf l-1e8ba8b5a-3ed DBC EG>AD Fg setter GcvF Hf l-1e8ba8b5a-3e0 If l-1e8ba8b5a-3e1 Jf l-1e8ba8b5a-3e2 KHIJ LGG~K M1w Nf l-1e8ba8b5a-3d7 Of l-1e8ba8b5a-3d8 PNO QGM\P Rg field-specs SR Tf l-1e8ba8b5a-3d3 Uf l-1e8ba8b5a-3d4 VTU WGS\V X5P9WPELPQPW YBX{ Zg val [BZX{ \Y[ ]BX{ ^BDX{ _BFX{ `_Y a[5P9 bBna c^`b dg struct-set! eBdX{ f5P9 gB f heYg[ iBPX{ jBX{ kB*a ljk miYl n]chm o;\n p[P9 qB+p rg set-coop-repl-cont! sg %set-coop-repl-cont!-procedure tg m-6cff15a80cd23e5-140 utE vg t-6cff15a80cd23e5-13e wg t-6cff15a80cd23e5-13f xvw yuu zf l-6cff15a80cd23e5-145 {f l-6cff15a80cd23e5-146 |z{ }Gxy| ~u f l-6cff15a80cd23e5-142 GR~ u}PWPPPP`ntx
BC{ }PWPELPQPW B{ BZ{ B{ BD{ BF{ [}P Bn Bd{ }P B BP{ B{ Br [P Bs g make-condition-variable g make-coop-repl g wait-condition-variable g error f 2coop-repl-read: condvar signaled, but thunk is #f! g coop-repl-read g coop-repl-prompt g store-repl-cont g *repl-stack* g current-module f "coop-reader: read-thunk is not #f! g signal-condition-variable g make-coop-reader g eval g reader-loop g q-empty? g deq! f no matching pattern g new-repl g start-repl-client g catch g call-with-new-thread g %thread-handler g current-language g start-coop-repl g make-coop-client-proc g run-coop-repl-server g
close-fdes g fileno g with-continuation-barrier g current-input-port g current-output-port g current-error-port g current-warning-port g
parameter? g scm-error g wrong-type-arg f parameterize f Not a parameter: ~S g save-module-excursionC 5 h` ]4
-.15 44 > " G 5 h ] C g mutex
g queue g filenamef system/repl/coop-server.scm
$
g nameg !%%make-coop-repl-server-procedure C6R49:;>A h \ ] C T g t-6cff15a80cd23e5-3
g t-6cff15a80cd23e5-4 C: h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm $
C? h N ] L 6F g filenamef system/repl/coop-server.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 system/repl/coop-server.scm
$
n C5:R5ݨ 4 5> " G 6i 5R5 h ] $ CC g obj
g filenamef system/repl/coop-server.scm
$
g nameg %coop-repl-server?-procedure CR49;>M h < ] C 4 g t-6cff15a80cd23e5-13
C h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm $
C? h N ] L 6F g filenamef system/repl/coop-server.scm $
CO 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 system/repl/coop-server.scm
$
n C5R5RS h ] &
C 6 g s
g filenamef system/repl/coop-server.scm
$
g nameg !%coop-repl-server-mutex-procedure CTR49S;> 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 4 g t-6cff15a80cd23e5-1f
CS h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm $
C? h N ] L 6F g filenamef system/repl/coop-server.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 system/repl/coop-server.scm
$
C5SR5R h ] & C 6 g s
g filenamef system/repl/coop-server.scm
$
g nameg !%coop-repl-server-queue-procedure CR49;> 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 4 g t-6cff15a80cd23e5-3a
C h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm $
C? h N ] L 6F g filenamef system/repl/coop-server.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 system/repl/coop-server.scm
$
C5R49;>3Y[^ab 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 system/repl/coop-server.scm
$
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5Rcd5 h ]45 45 C g mutex
g queue g filenamef system/repl/coop-server.scm
*
+ + ' +
g nameg make-coop-repl-server CeR5RSh h N ] L 6F g filenamef system/repl/coop-server.scm
0
Ck h N ] L 6F g filenamef system/repl/coop-server.scm
0
Cl h - 1 3 &
" 4 5 O O 4O > " G V4 & " 4 5> X4O > " G CX4O > " G F g coop-server
g opcode g args g x # g filenamef system/repl/coop-server.scm
-
0 # 0 J 1 O 1
k 2
p 1 r 0
g nameg coop-repl-server-evalg
documentationf Queue a new instruction with the symbolic name OPCODE and an arbitrary
number of arguments, to be processed the next time COOP-SERVER is polled. CmRn h ] C g mutex
g condvar g thunk g cont g filenamef system/repl/coop-server.scm
4
g nameg %%make-coop-repl-procedure CoR49p;>q h ] C g t-6cff15a80cd23e5-8d
g t-6cff15a80cd23e5-8e g t-6cff15a80cd23e5-8f g t-6cff15a80cd23e5-90 Cp h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
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 system/repl/coop-server.scm
4
n C5pRn 4 n> " G oi nRn h ] $ CC y g obj
g filenamef system/repl/coop-server.scm
4
g nameg %coop-repl?-procedure CR49;> h < ] C 4 g t-6cff15a80cd23e5-a3
C h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
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 system/repl/coop-server.scm
4
n C5RnR h ] &
C 6| g s
g filenamef system/repl/coop-server.scm
4
g nameg %coop-repl-mutex-procedure CR49;> 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 4 g t-6cff15a80cd23e5-af
C h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
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 system/repl/coop-server.scm
4
C5RnR h ] & C 6~ g s
g filenamef system/repl/coop-server.scm
4
g nameg %coop-repl-condvar-procedure CR49;> ', h : ]C 2 g err
g s C/5: h : ]C 2 g err
g s C=CH h : ]C 2 g err
g s Cd h < ] C 4 g t-6cff15a80cd23e5-ca
C h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
Cf 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 system/repl/coop-server.scm
4
C5RnRg h ] & C 6 g s
g filenamef system/repl/coop-server.scm
4
g nameg %coop-repl-read-thunk-procedure ChR49g;>v} 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 4 g t-6cff15a80cd23e5-e5
Cg h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
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 system/repl/coop-server.scm
4
C5gRnR h ] & C 6 { g s
g filenamef system/repl/coop-server.scm
4
g nameg %coop-repl-cont-procedure CR49;> 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 5 g t-6cff15a80cd23e5-100
C h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
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 system/repl/coop-server.scm
4
C5R49;>3"$)ab 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 system/repl/coop-server.scm
4
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5RnR* h ] & C 6 g s
g val g filenamef system/repl/coop-server.scm
4
g nameg $%set-coop-repl-read-thunk!-procedure C+R49*;>Ao h ` ] C X g t-6cff15a80cd23e5-12e
g t-6cff15a80cd23e5-12f C* h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
Cq 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 system/repl/coop-server.scm
4
n C5*RnRr h ] & C 6 g s
g val g filenamef system/repl/coop-server.scm
4
g nameg %set-coop-repl-cont!-procedure CsR49r;>A h ` ] C X g t-6cff15a80cd23e5-13e
g t-6cff15a80cd23e5-13f Cr h ^ ]L 6 V g a
g filenamef system/repl/coop-server.scm 4
C? h N ] L 6F g filenamef system/repl/coop-server.scm 4
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 system/repl/coop-server.scm
4
n C5rRcn h ]45 45 C g mutex
g condvar g filenamef system/repl/coop-server.scm
<
= = =
g nameg make-coop-repl CRnRh h N ] L 6F g filenamef system/repl/coop-server.scm
B
Ck h N ] L 6F g filenamef system/repl/coop-server.scm
B
Cg* h0 ] &
" 4 5 O O 4O > " G V & " 4 5$ " D4 & " 4 5 &
" 4 5> " G & " 4 5 $ " 4
> " G & " 4 > " G X4O > " G 6 g coop-repl
. g x ( g thunk g thunk ( . g filenamef system/repl/coop-server.scm
?
B B E C a C f D
k D & E & D
F F G
H H H I
B ( A . K . g nameg coop-repl-readg
documentationf 5Read an expression via the thunk stored in COOP-REPL. CRn h V ] LL 6N g filenamef system/repl/coop-server.scm
R R %
C h h ] L O 6 ` g exp
g filenamef system/repl/coop-server.scm
P Q CRr h ]&
O C6 g cont
g coop-repl g filenamef system/repl/coop-server.scm
M
O g nameg store-repl-contg
documentationf 4Save the partial continuation CONT within COOP-REPL. CR h ] L 6
C h0 ] U 4 O > XCXFG @ g thunk
) g handler ) g args ) g filenamef system/repl/coop-server.scm
T
V V
V ) g nameg coop-repl-promptg
documentationf 2Apply THUNK within a prompt for cooperative REPLs. CR2! h( ^ ] L Y4L> " G 4L> ZCZFV g filenamef system/repl/coop-server.scm
b
d e (
CnRh h N ] L 6F g filenamef system/repl/coop-server.scm
f
Ck h N ] L 6F g filenamef system/repl/coop-server.scm
f
Cg* h D ][45 O L & L
" 4L 5 O O 4O > " G VL & L " 4L 5$ 4
> " G " L & L " 4L > " G 4
L & L " 4L 5> " G X4O > " G L WF < g repl
g stack
g module
g
read-thunk g x ; g filenamef system/repl/coop-server.scm
\ a
` ] $ f ; f d g g h
h h
i j j # j f k k
C h S ] O C K g coop-repl
g filenamef system/repl/coop-server.scm
X
g nameg make-coop-readerg
documentationf Return a new procedure for reading user input from COOP-REPL. The
generated procedure passes the responsibility of reading input to
another thread and aborts the cooperative REPL prompt. CRm h( S ]4 45> " G 6 K g coop-server
' g coop-repl ' g filenamef system/repl/coop-server.scm
m
p p % q p ' r ' g nameg reader-loopg
documentationf Run an unbounded loop that reads an expression for COOP-REPL and
stores the expression within COOP-SERVER for later evaluation. CR5RSh h N ] L 6F g filenamef system/repl/coop-server.scm
y
Ck h N ] L 6F g filenamef system/repl/coop-server.scm
y
Cn h ]1 &
" 4 5 O O 4O > " G V & " 4 5 45$ " 45 X4O > " G $ }" $ & $ $ [( 7 4
& " 4 5> " G " 44
5> " G " 44
5> " G " 44
5> " G " 44
5> " G " 44
5> " pG " i$ ^ & >$ /( 4 > " G " "" "" " " "" C g coop-server
g x g queue \ x g op g w g x g w L g x L g w g w
g x
g w g filenamef system/repl/coop-server.scm
t
y y E z \ z _ { i { o | z y y } ~
~ ~ g nameg poll-coop-repl-serverg
documentationf Poll the cooperative REPL server COOP-SERVER and apply a pending
operation if there is one, such as evaluating an expression typed at the
REPL prompt. This procedure must be called from the same thread that
called spawn-coop-repl-server. C0R h O ] LL 6 G g filenamef system/repl/coop-server.scm
C h8 ]45 4 L O > " G 45 4 56 g coop-repl
5 g filenamef system/repl/coop-server.scm
' - ( 5 5
C h d - 1 3 C \ g args
g filenamef system/repl/coop-server.scm
C h ] O 6 g coop-server
g filenamef system/repl/coop-server.scm
g nameg start-coop-replg
documentationf 5Start a new cooperative REPL process for COOP-SERVER. CR& h ]4 56 g coop-server
g
server-socket g filenamef system/repl/coop-server.scm
g nameg run-coop-repl-serverg
documentationf QStart the cooperative REPL server for COOP-SERVER using the socket
SERVER-SOCKET. CR'e h O ] LL 6 G g filenamef system/repl/coop-server.scm
C h@ - . , 3 # 45 45 4 O > " G C g
server-socket
> g coop-server > g filenamef system/repl/coop-server.scm
$ ! >
g nameg spawn-coop-repl-serverg
documentationf Create and return a new cooperative REPL server object, and spawn a
new thread to listen for connections on SERVER-SOCKET. Proper
functioning of the REPL server requires that poll-coop-repl-server be
called periodically on the returned server object. C/Rm h ]L 6 g client
g addr g filenamef system/repl/coop-server.scm
' C h ] O C g coop-server
g filenamef system/repl/coop-server.scm
g nameg make-coop-client-procg
documentationf gReturn a new procedure that is used to schedule the creation of a new
cooperative REPL for COOP-SERVER. CR( h a ] 4L 56 Y g filenamef system/repl/coop-server.scm
2
&
C* h X ] L 6P g filenamef system/repl/coop-server.scm
C) h X ] L 6P g filenamef system/repl/coop-server.scm
C h d - 1 3 C \ g args
g filenamef system/repl/coop-server.scm
C h0 ] 4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G 4 L54 L54 L54 L5Y
Y4 L O > " G ZZ
LO 6 g t-6cff15a80cd23e5-300
" g t-6cff15a80cd23e5-301
" g t-6cff15a80cd23e5-302
" g t-6cff15a80cd23e5-303
" g filenamef system/repl/coop-server.scm
& 0 0
C h X ] L LO 6 P g filenamef system/repl/coop-server.scm
C h@ 8 ]4O > " G 4> " G O 6 0 g coop-server
: g client : g filenamef system/repl/coop-server.scm
: : g nameg start-repl-clientg
documentationf mRun a cooperative REPL for COOP-SERVER within a prompt. All input
and output is sent over the socket CLIENT. CRC g m
, g rtd
g rtd
m g filenamef system/repl/coop-server.scm
$
1 *
h -
N 4
=L <
A ?
C9 M
D T
J X
K m
Q t
T
U
X~
Z[
`
`
C6 PK ! Wl` ` system/base/ck.gonu [ GOOF----LE-8-2.0H ] 4 h ] g guile g define-module* g system g base g ck
g filenameS f system/base/ck.scm g exportsS
g set-current-module g make-syntax-transformer g macro g $sc-dispatch g any g free-id g
syntax-object g quote g top g ribcage g x ! "g m-1e97f9b4a-48 #" $# %f l-1e97f9b4a-4a &% ' !$& ( ' )g hygiene *) +(* ,+ -, .- /g each-any 0// 10 21- 3g ck-arg 4g dummy 5g op 6g ea 7g s 8g v 945678 :# ;f l-1e97f9b4a-52 <f l-1e97f9b4a-53 =f l-1e97f9b4a-54 >f l-1e97f9b4a-55 ?f l-1e97f9b4a-56 @;<=>? A 9:@ B A ' C3B* Dg append ED FD GB* H/ IH J4756 K# Lf l-1e97f9b4a-5f Mf l-1e97f9b4a-60 Nf l-1e97f9b4a-61 Of l-1e97f9b4a-62 PLMNO Q JKP R Q ' S3R* Tg syntax-violation UT VT Wf -source expression failed to match any pattern Xg m-1e97f9b4a-68 YX ZY [f l-1e97f9b4a-6a \[ ] !Z\ ^ ] _^* `_ a` ba/ c/b dc ed fg ea1 g4758f hY if l-1e97f9b4a-77 jf l-1e97f9b4a-78 kf l-1e97f9b4a-79 lf l-1e97f9b4a-7a mf l-1e97f9b4a-7b nijklm o ghn p o ] q3p* rp* s/H ts ut v4756f wf l-1e97f9b4a-84 xf l-1e97f9b4a-85 yf l-1e97f9b4a-86 zf l-1e97f9b4a-87 {f l-1e97f9b4a-88 |wxyz{ } vh| ~ } ] ~* C 5 h V ]4
5 4 > " G 4. h < ]C 4 g dummy
g v C2CFG h k ]4 5C c g dummy
g op g ea g s g v CIS h \ ] C T g dummy
g s g op g ea CVW
hP " ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef system/base/ck.scm
$ P g
macro-typeg syntax-rulesg patternsg quoteg v g opg ... g eag ... g sg quoteg v g sg opg eag ... C5R43I h \ ]C T g dummy
g s g op g va CeqFr h l ]4 5C d g dummy
g s g op g v g ea1 Cu h m ] C e g dummy
g s g op g ea g ea1 CVW
hP 6 ]4 5 $ @4 5 $ @4 5 $ @ 6. g x
P g tmp P g tmp " P g tmp 9 P g filenamef system/base/ck.scm
. P g
macro-typeg syntax-rulesg patternsg sg opg vag ... g sg opg ... g quoteg v g ea1g ... g sg opg ... g eag ea1g ... C53RC N g m
( g filenamef system/base/ck.scm
C6 PK ! system/base/types.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g system g base g types
g filenameS f system/base/types.scm g importsS
g rnrs g bytevectors
g io g ports
g srfi g srfi-1 g srfi-9 g gnu g srfi-11 ! "g srfi-26 #" $# %g srfi-60 &% '& (g ice-9 )g match *() +* ,g iconv -(, .- /g format 0(/ 10 2g vlist 3(2 43 5g foreign 65 76 8 !$'+.147
9g exportsS :g
%word-size ;g memory-backend <g memory-backend? =g %ffi-memory-backend >g dereference-word ?g memory-port @g type-number->name Ag inferior-object? Bg inferior-object-kind Cg inferior-object-sub-kind Dg inferior-object-address Eg inferior-fluid? Fg inferior-fluid-number Gg inferior-struct? Hg inferior-struct-name Ig inferior-struct-fields Jg scm->object K:;<=>?@ABCDEFGHIJ Lg set-current-module ML NL Og sizeof Pg * Qg <memory-backend> Rg %memory-backend-procedure Sg make-syntax-transformer TS US Vg macro Wg $sc-dispatch XW YW Zg _ [g any \Z[[[ ]g
syntax-object ^g lambda _g
m-1f6d4c535-6 `g top a_` bg ribcage cg
t-1f6d4c535-3 dg
t-1f6d4c535-4 eg
t-1f6d4c535-5 fcde gaaa hf
l-1f6d4c535-b if
l-1f6d4c535-c jf
l-1f6d4c535-d khij lbfgk mb ng x on pa qf
l-1f6d4c535-8 rq sbopr tg shift ug proc-name vg args wuv x` yxx zf l-1e8ba8b5a-60 {f l-1e8ba8b5a-61 |z{ }bwy| ~g key g value g name g formals g body ~ xxxxx f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 b g make-procedure-name x f l-1e8ba8b5a-43 b x f l-1e8ba8b5a-42 bo almstmmmm}
g hygiene ]^ g peek xlms ] g open ] g type-name ] g make-struct g
m-1f6d4c535-1 ` g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 ` f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a b g ctor-args f l-1e8ba8b5a-120 b g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d by g form g constructor-spec g field-names xxxx f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 b g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers xxxxxxxx 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 b f l-1e8ba8b5a-da bo lmstmmmmm ] ]Q ]
g each-any Z挤 g syntax-violation f Wrong number of arguments g identifier? xms ]R f -source expression failed to match any pattern g record-type-vtable g pwpwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %memory-backend?-procedure Z[ g m-1f6d4c535-17 ` g t-1f6d4c535-16 f l-1f6d4c535-1c
b
f l-1f6d4c535-19
bo
mtmmmm}
]^ 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 ` 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 $ !"# %b $ &g copier-id '& (f l-1e8ba8b5a-21c )( *b') +g ctor-name ,+ -f l-1e8ba8b5a-214 .- /b,. 0 1f l-1e8ba8b5a-212 21 3b02 4g layout 54 6f l-1e8ba8b5a-210 76 8b57 9g
immutable? :9 ;f l-1e8ba8b5a-20e <; =b:< >g field-count ?> @f l-1e8ba8b5a-20c A@ Bb?A Cg
getter-ids DC Ef l-1e8ba8b5a-209 FE GbDF Hg field-ids IH Jf l-1e8ba8b5a-206 KJ LbIK Mg predicate-name Ng
field-spec O9MN Pxxxxxx Qf l-1e8ba8b5a-1f9 Rf l-1e8ba8b5a-1fa Sf l-1e8ba8b5a-1fb Tf l-1e8ba8b5a-1fc Uf l-1e8ba8b5a-1fd Vf l-1e8ba8b5a-1fe WQRSTUV XbOPW Y mtm%mmmm*m/m3m8m=mBmGmLX Z]Y [Z \g and ]]\Y ^g struct? _]^Y `_Z ag eq? b]aY cg
struct-vtable d]cY edZ fx m g]Qf hbeg i]`h j[i kxm l]k mg throw-bad-struct nm om pg memory-backend-peek qg %memory-backend-peek-procedure rg free-id sg
%%on-error tg m-1f6d4c535-23 ut` vu wf l-1f6d4c535-25 xw ybovx zumytmmmm} {]sz |r{ }|[ ~g %%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 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 ` f l-1e8ba8b5a-156 f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c b g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a by C& xxx f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 b mytmmmmm ]~ r Z}[ g ck g err g s uu f l-1f6d4c535-28 f l-1f6d4c535-29 b umytmmmm}
] g quote ] xmy ]Q g %%index ] r Z}[ f l-1f6d4c535-2d f l-1f6d4c535-2e b umytmmmm}
] ] my ]
g %%copier ] r Z}[ f l-1f6d4c535-32 f l-1f6d4c535-33 b umytmmmm}
] ] g %%<memory-backend>-set-fields xmy ] g t-1f6d4c535-22 f l-1f6d4c535-37 bv umytmmmm}
]^ mytmmmmm ] g if ] ]a ]c xmy ]Q g
struct-ref ] my ]
]m ] ]p xmy ]q g memory-backend-open g %memory-backend-open-procedure g m-1f6d4c535-3e ` f l-1f6d4c535-40 bo mtmmmm} ]s r [ mtmmmmm ]~ r Z [ f l-1f6d4c535-43 f l-1f6d4c535-44 b
mtmmmm}
]
]
x m ]Q
] r Z [ f l-1f6d4c535-48 f l-1f6d4c535-49 b mtmmmm}
] ] m ] ] r !Z [ "f l-1f6d4c535-4d #f l-1f6d4c535-4e $"# %b$ &%mtmmmm}
']& (]& )x%m *]) +(* ,+ -g t-1f6d4c535-3d .- /f l-1f6d4c535-52 0/ 1b.0 21mtmmmm}
3]^2 41mtmmmmm 5]4 65 7]4 8]a4 9]c4 :95 ;x1m <]Q; =8:< >]4 ?1m @] ? A>5@ B]m4 C]4 D]; ECD FB5E G7=AF H36G Ixm J]I Kg memory-backend-type-name Lg #%memory-backend-type-name-procedure Mg m-1f6d4c535-59 NM` ON Pf l-1f6d4c535-5b QP RboOQ SNmRtmmmm} T]sS UrT VU[ WmRtmmmmm X]~W YrX ZZVY[ [NN \f l-1f6d4c535-5e ]f l-1f6d4c535-5f ^\] _b[^ `N_mRtmmmm}
a]` b]` cx_mR d]Qc ebd fe g]W hrg iZVh[ jf l-1f6d4c535-63 kf l-1f6d4c535-64 ljk mb[l nNmmRtmmmm}
o]n p]n qmmR r] q spr ts u]W vru wZVv[ xf l-1f6d4c535-68 yf l-1f6d4c535-69 zxy {b[z |N{mRtmmmm}
}]| ~]| x{mR ] ~ g t-1f6d4c535-58 f l-1f6d4c535-6d bO NmRtmmmm}
]^ mRtmmmmm ] ] ]a ]c xmR ]Q ] mR ] ]m ] ]K xmR ]L g each [[ [ [ [ g %%set-fields g dummy g check? g expr g m-1f6d4c535-74 ` f l-1f6d4c535-79 f l-1f6d4c535-7a f l-1f6d4c535-7b f l-1f6d4c535-7c f l-1f6d4c535-7d b f l-1f6d4c535-76 bo g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d ` f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 b f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 b mtmmmm
] xm ]Q ]p ] ]K g map g list g make-pointer g pointer->bytevector g bytevector-uint-ref g native-endianness g open-bytevector-input-port g make-custom-binary-input-port f
ffi-memory g bytevector-copy! g setvbuf g _IONBF g % dereference-word-procedure Z[[ g syntax-parameterize g m-1f6d4c535-c6 ` g t-1f6d4c535-c4 g t-1f6d4c535-c5 f l-1f6d4c535-cb f l-1f6d4c535-cc b f l-1f6d4c535-c8 bo f l-bde397a-1eaf f l-bde397a-1eb0 bwy f l-bde397a-1ea6 f l-bde397a-1ea7 f l-bde397a-1ea8 b g prefix xx f l-bde397a-1e9a f l-bde397a-1e98 b f l-bde397a-1e97 bo mtmmmm
] xm
]> g identifier-syntax ]
]
]^ g backend ] g address ] f *Return the word at ADDRESS, using BACKEND. ] g let ] ] ]p ! "! #" $ % &xm ']& ([[[ ) *g m-1f6d4c535-e9 +*` ,+xx -f l-1f6d4c535-ee .f l-1f6d4c535-ef /f l-1f6d4c535-f0 0-./ 1b),0 2+ 3f l-1f6d4c535-eb 43 5bo24 6x1m5 7]6 8]6 9]6 :]6 ;: <[[[[ =g size >= ?+xxx @f l-1f6d4c535-f5 Af l-1f6d4c535-f6 Bf l-1f6d4c535-f7 Cf l-1f6d4c535-f8 D@ABC Eb>?D FxEm5 G]F Hg zero? I]HF J]F K]F Lg vu8
j M]LF NKM OJN P]F Q]F R]F Sg get-bytevector-n Tg get-word Ug % type-number->name-procedure Vg m-1f6d4c535-104 WV` Xg t-1f6d4c535-101 Yg t-1f6d4c535-102 Zg t-1f6d4c535-103 [XYZ \WWW ]f l-1f6d4c535-109 ^f l-1f6d4c535-10a _f l-1f6d4c535-10b `]^_ ab[\` bW cf l-1f6d4c535-106 dc ebobd fWametmmmm
g]f hxame i]@h j] f k]Uh ljk mil nm o]^f p]h qg kind r]qh sg number t]sh uprt vf yReturn the name of the type NUMBER of KIND, where KIND is one of
'smob or 'port, or #f if the information is unavailable. w]vh x]h yg proc z]yh {]Kh |{p }z| ~} ]\h zrt z x~ ouw gn xme ]U g match-cell-words g
bytevector g m-1f6d4c535-12d ` f l-1f6d4c535-12f bo xm ] r [[ 挤 [[[ g port g len g rest xxxxx f l-1f6d4c535-132 f l-1f6d4c535-133 f l-1f6d4c535-134 f l-1f6d4c535-135 f l-1f6d4c535-136 f l-1f6d4c535-137 b xm ] ]S g remainder ] g modulo ] ]: g unless ] ]H g - ] ] [挤 [[[ xxxx f l-1f6d4c535-140 f l-1f6d4c535-141 f l-1f6d4c535-142 f l-1f6d4c535-143 f l-1f6d4c535-144 b xm ] ]T ] [[[ g match-bit-pattern g || g m-1f6d4c535-152 ` f l-1f6d4c535-154 bo xm ] r [[ g & ] r g = ] r [[ [[[[ g bits g a g b g n g c g
consequent g alternate xxxxxxx f l-1f6d4c535-157 f l-1f6d4c535-158 f l-1f6d4c535-159 f l-1f6d4c535-15a f l-1f6d4c535-15b f l-1f6d4c535-15c f l-1f6d4c535-15d f l-1f6d4c535-15e b xm ] g tag ] g logand ] ] ] g bitwise-not ] [[[ [[[[ n xxxxxx f l-1f6d4c535-168 f l-1f6d4c535-169 f l-1f6d4c535-16a f l-1f6d4c535-16b f l-1f6d4c535-16c f l-1f6d4c535-16d f l-1f6d4c535-16e b xm ] ] ] ] ] ]Z
r
[[ [[ [[
xxxxx f l-1f6d4c535-177 f l-1f6d4c535-178 f l-1f6d4c535-179 f l-1f6d4c535-17a f l-1f6d4c535-17b f l-1f6d4c535-17c b
xm ] ] ] ] ] ([ [[ [[ g << !f l-1f6d4c535-184 "f l-1f6d4c535-185 #f l-1f6d4c535-186 $f l-1f6d4c535-187 %f l-1f6d4c535-188 &f l-1f6d4c535-189 'f l-1f6d4c535-18a (f l-1f6d4c535-18b )!"#$%&'( *b ) +x*m ,]+ -]+ .g bitwise-and /].+ 0]+ 1g expt 2]1+ 3] + 4] + 54 6]+ 7]+ 8g arithmetic-shift 9]8+ :g match-cell-clauses ;[ <;挤 =[[[< >g tag-pattern ?g thing @>? Ag m-1f6d4c535-194 BA` CBxxxxxx Df l-1f6d4c535-199 Ef l-1f6d4c535-19a Ff l-1f6d4c535-19b Gf l-1f6d4c535-19c Hf l-1f6d4c535-19d If l-1f6d4c535-19e Jf l-1f6d4c535-19f KDEFGHIJ Lb@CK MB Nf l-1f6d4c535-196 ON PboMO QxLmP R]Q S]Q T]:Q U[[[ Vg inferior-object W XBxx Yf l-1f6d4c535-1aa Zf l-1f6d4c535-1ab [f l-1f6d4c535-1ac \YZ[ ]bWX\ ^x]mP _]V^ `]^ ag
unmatched-tag b]a^ c`b dg
match-cell e f[e g[f hg pattern ih jg m-1f6d4c535-1b0 kj` lkxxx mf l-1f6d4c535-1b5 nf l-1f6d4c535-1b6 of l-1f6d4c535-1b7 pf l-1f6d4c535-1b8 qmnop rbilq sk tf l-1f6d4c535-1b2 ut vbosu wxrmv x]w yg port* z]yw {]w |]Tw }]:w ~g begin ]~w g match-scm-clauses 挤 [ [ g bit-pattern g m-1f6d4c535-1c0 ` xxxx f l-1f6d4c535-1c5 f l-1f6d4c535-1c6 f l-1f6d4c535-1c7 f l-1f6d4c535-1c8 f l-1f6d4c535-1c9 b f l-1f6d4c535-1c2 bo xm ] ]~ ] x f l-1f6d4c535-1d2 f l-1f6d4c535-1d3 b xm ] g
unmatched-scm ] g match-scm [ g clauses g m-1f6d4c535-1d6 ` xx f l-1f6d4c535-1db f l-1f6d4c535-1dc f l-1f6d4c535-1dd b f l-1f6d4c535-1d8 bo xm ] g bits* ] ] g %tc2-int g
%tc3-imm24 g %tc3-cons g %tc3-int1 g %tc3-int2 g %tc8-char g %tc8-flag g %tc3-struct g %tc7-symbol g
%tc7-variable g %tc7-vector g
%tc7-wvect g %tc7-string g %tc7-number g %tc7-hashtable g %tc7-pointer g
%tc7-fluid g %tc7-stringbuf g %tc7-dynamic-state g
%tc7-frame g %tc7-objcode g %tc7-vm g %tc7-vm-continuation g %tc7-bytevector g %tc7-program g
%tc7-array g %tc7-bitvector g %tc7-port g %tc7-smob g %tc16-bignum g
%tc16-real g
%tc16-complex g %tc16-fraction g <stringbuf> g %stringbuf-procedure g stringbuf g m-1f6d4c535-1e6 ` g t-1f6d4c535-1e5 f l-1f6d4c535-1eb b f l-1f6d4c535-1e8 bo mtmmmm}
]^ g string xm ] g m-1f6d4c535-1e3 ` mtmmmmm ] ] ]
xm ] g pw g %stringbuf?-procedure g
stringbuf? g m-1f6d4c535-1f3 ` g t-1f6d4c535-1f2 f l-1f6d4c535-1f8 b f l-1f6d4c535-1f5 bo mtmmmm}
]^ mtm%mmmm*m/m3m8m=mBmGmLX ]
]\ ]^
]a ]c xm ]
xm ] g stringbuf-contents g %stringbuf-contents-procedure g m-1f6d4c535-1ff ` f l-1f6d4c535-201 bo m tmmmm} !]s "r! #"[ $m tmmmmm %]~$ &r% 'Z#&[ ( )f l-1f6d4c535-204 *f l-1f6d4c535-205 +)* ,b(+ -,m tmmmm}
.]- /]- 0x,m 1]0 2/1 32 4]$ 5r4 6Z#5[ 7f l-1f6d4c535-209 8f l-1f6d4c535-20a 978 :b(9 ;:m tmmmm}
<]; =]; >:m ?]
> @=? A@ B]$ CrB DZ#C[ Ef l-1f6d4c535-20e Ff l-1f6d4c535-20f GEF Hb(G IHm tmmmm}
J]I K]I Lg %%<stringbuf>-set-fields MxHm N]LM OKN PO Qg t-1f6d4c535-1fe RQ Sf l-1f6d4c535-213 TS UbR T VUm tmmmm}
W]^V XUm tmmmmm Y]X ZY []X \]aX ]]cX ^]Y _xUm `]_ a\^` b]X cUm d]
c ebYd f]mX g]X h]_ igh jfYi k[aej lWZk mxm n]m og m-1f6d4c535-21a po` qp rf l-1f6d4c535-21f sf l-1f6d4c535-220 tf l-1f6d4c535-221 uf l-1f6d4c535-222 vf l-1f6d4c535-223 wrstuv xbqw yp zf l-1f6d4c535-21c {z |boy{ }xm|tmmmm
~]} xxm| ] ] g set-record-type-printer! g display f #<stringbuf g write f #> g <inferior-struct> g %inferior-struct-procedure g inferior-struct g m-1f6d4c535-242 ` g t-1f6d4c535-240 g t-1f6d4c535-241 f l-1f6d4c535-247 f l-1f6d4c535-248 b f l-1f6d4c535-244 bo mtmmmm}
]^ xm ] g fields ] g m-1f6d4c535-23e ` mtmmmmm ] ] ]
xm ] g pwpw g %inferior-struct?-procedure g m-1f6d4c535-251 ` g t-1f6d4c535-250 f l-1f6d4c535-256 b f l-1f6d4c535-253 bo mtmmmm}
]^ mtm%mmmm*m/m3m8m=mBmGmLX ] ]\ ]^ ]a ]c xm ] xm ] g %inferior-struct-name-procedure g m-1f6d4c535-25d ` f l-1f6d4c535-25f bo mtmmmm} ]s r [ mtmmmmm ]~ r Z[ f l-1f6d4c535-262 f l-1f6d4c535-263 b mtmmmm}
] ] xm ] ] r Z[ f l-1f6d4c535-267 f l-1f6d4c535-268 b mtmmmm}
] ] m ]
] r Z[ f l-1f6d4c535-26c f l-1f6d4c535-26d b mtmmmm}
] ] g %%<inferior-struct>-set-fields xm ] g t-1f6d4c535-25c f l-1f6d4c535-271 b mtmmmm}
]^ mtmmmmm
]
]
]a ]c
xm ]
] m ]
]m ] ]H
xm ] g !%inferior-struct-fields-procedure !g m-1f6d4c535-278 "!` #" $f l-1f6d4c535-27a %$ &bo#% '"m&tmmmm} (]s' )r( *)[ +m&tmmmmm ,]~+ -r, .Z*-[ /"" 0f l-1f6d4c535-27d 1f l-1f6d4c535-27e 201 3b/2 4"3m&tmmmm}
5]4 6]4 7x3m& 8]7 968 :9 ;]+ <r; =Z*<[ >f l-1f6d4c535-282 ?f l-1f6d4c535-283 @>? Ab/@ B"Am&tmmmm}
C]B D]B EAm& F] E GDF HG I]+ JrI KZ*J[ Lf l-1f6d4c535-287 Mf l-1f6d4c535-288 NLM Ob/N P"Om&tmmmm}
Q]P R]P SxOm& T]S URT VU Wg t-1f6d4c535-277 XW Yf l-1f6d4c535-28c ZY [bX#Z \"[m&tmmmm}
]]^\ ^[m&tmmmmm _]^ `_ a]^ b]a^ c]c^ dc_ ex[m& f]e gbdf h]^ i[m& j] i kh_j l]m^ m]^ n]Ie omn pl_o qagkp r]`q sxm& t] s ug m-1f6d4c535-293 vu` wv xf l-1f6d4c535-298 yf l-1f6d4c535-299 zf l-1f6d4c535-29a {f l-1f6d4c535-29b |f l-1f6d4c535-29c }xyz{| ~bw} v f l-1f6d4c535-295 bo ~mtmmmm
] x~m ] ]H ]I g set-inferior-struct-fields! g &%set-inferior-struct-fields!-procedure g m-1f6d4c535-2a7 ` g t-1f6d4c535-2a5 g t-1f6d4c535-2a6 f l-1f6d4c535-2ac f l-1f6d4c535-2ad b f l-1f6d4c535-2a9 bo mtmmmm}
]^ g t-1e8ba8b5a-18c g t-1e8ba8b5a-18d g m-1e8ba8b5a-18e ` f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 b g setter f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 b N f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e by g field-specs f l-1e8ba8b5a-179 f l-1e8ba8b5a-17a by mtmmm ] g val ] ] ]a ]c xm ] g struct-set! ] m ] ]m ] ] xm ] g make-parameter g
vlist-null g
vhash-assq f #-1# f #<struct ~a g
parameter? g scm-error g wrong-type-arg f parameterize f Not a parameter: ~S g vhash-consq g for-each f #0# f ~s f ~x> g object-address g print-inferior-struct g <inferior-fluid> g %inferior-fluid-procedure g inferior-fluid g m-1f6d4c535-2de ` g t-1f6d4c535-2dc g t-1f6d4c535-2dd f l-1f6d4c535-2e3 f l-1f6d4c535-2e4 b f l-1f6d4c535-2e0 bo mtmmmm}
]^ xm ]s ] g m-1f6d4c535-2da ` mtmmmmm ] ] ]
xm ] s g %inferior-fluid?-procedure g m-1f6d4c535-2ed `
g t-1f6d4c535-2ec
f l-1f6d4c535-2f2
b f l-1f6d4c535-2ef bo mtmmmm}
]^ mtm%mmmm*m/m3m8m=mBmGmLX ] ]\ ]^ ]a ]c xm ] ! "! #xm $]# %g %inferior-fluid-number-procedure &g m-1f6d4c535-2f9 '&` (' )f l-1f6d4c535-2fb *) +bo(* ,'m+tmmmm} -]s, .r- /.[ 0m+tmmmmm 1]~0 2r1 3Z/2[ 4'' 5f l-1f6d4c535-2fe 6f l-1f6d4c535-2ff 756 8b47 9'8m+tmmmm}
:]9 ;]9 <x8m+ =]< >;= ?> @]0 Ar@ BZ/A[ Cf l-1f6d4c535-303 Df l-1f6d4c535-304 ECD Fb4E G'Fm+tmmmm}
H]G I]G JFm+ K]
J LIK ML N]0 OrN PZ/O[ Qf l-1f6d4c535-308 Rf l-1f6d4c535-309 SQR Tb4S U'Tm+tmmmm}
V]U W]U Xg %%<inferior-fluid>-set-fields YxTm+ Z]XY [WZ \[ ]g t-1f6d4c535-2f8 ^] _f l-1f6d4c535-30d `_ ab^(` b'am+tmmmm}
c]^b dam+tmmmmm e]d fe g]d h]ad i]cd jie kxam+ l]k mhjl n]d oam+ p]
o qnep r]md s]d t]Fk ust vreu wgmqv xcfw yxm+ z]%y {g inferior-fluid-value |g %inferior-fluid-value-procedure }g m-1f6d4c535-314 ~}` ~ f l-1f6d4c535-316 bo ~mtmmmm} ]s r [ mtmmmmm ]~ r Z[ ~~ f l-1f6d4c535-319 f l-1f6d4c535-31a b ~mtmmmm}
] ] xm ] ] r Z[ f l-1f6d4c535-31e f l-1f6d4c535-31f b ~mtmmmm}
] ] m ] ] r Z[ f l-1f6d4c535-323 f l-1f6d4c535-324 b ~mtmmmm}
] ] xm ]X g t-1f6d4c535-313 f l-1f6d4c535-328 b ~mtmmmm}
]^ mtmmmmm ] ] ]a ]c xm ] ] m ] ]m ] ]{ xm ]| g m-1f6d4c535-32f ` f l-1f6d4c535-334 f l-1f6d4c535-335 f l-1f6d4c535-336 f l-1f6d4c535-337 f l-1f6d4c535-338 b f l-1f6d4c535-331 bo mtmmmm
] xm ] ]F ]{ f #<fluid ~a ~x> g error * * f no matching pattern g <inferior-object> g %%inferior-object-procedure g %inferior-object g m-1f6d4c535-3a3 ` g t-1f6d4c535-3a0 g t-1f6d4c535-3a1 g t-1f6d4c535-3a2 f l-1f6d4c535-3a8 f l-1f6d4c535-3a9 f l-1f6d4c535-3aa b f l-1f6d4c535-3a5 bo mtmmmm}
]^ xm ]q g sub-kind ] ] g m-1f6d4c535-39e ` mtmmmmm ]
] ]
xm ] q g %inferior-object?-procedure g m-1f6d4c535-3b4 ` g t-1f6d4c535-3b3 f l-1f6d4c535-3b9 b f l-1f6d4c535-3b6 bo m tmmmm}
]^ m tm%mmmm*m/m3m8m=mBmGmLX ] ! "]\ #]^ $# %]a &]c '& (xm )]( *%') +"$* , !+ -xm .]- /g %inferior-object-kind-procedure 0g m-1f6d4c535-3c0 10` 21 3f l-1f6d4c535-3c2 43 5bo24 61m5tmmmm} 7]s6 8r7 98[ :m5tmmmmm ;]~: <r; =Z9<[ >11 ?f l-1f6d4c535-3c5 @f l-1f6d4c535-3c6 A?@ Bb>A C1Bm5tmmmm}
D]C E]C FxBm5 G]F HEG IH J]: KrJ LZ9K[ Mf l-1f6d4c535-3ca Nf l-1f6d4c535-3cb OMN Pb>O Q1Pm5tmmmm}
R]Q S]Q TPm5 U]
T VSU WV X]: YrX ZZ9Y[ [f l-1f6d4c535-3cf \f l-1f6d4c535-3d0 ][\ ^b>] _1^m5tmmmm}
`]_ a]_ bg %%<inferior-object>-set-fields cx^m5 d]bc ead fe gg t-1f6d4c535-3bf hg if l-1f6d4c535-3d4 ji kbh2j l1km5tmmmm}
m]^l nkm5tmmmmm o]n po q]n r]an s]cn tso uxkm5 v]u wrtv x]n ykm5 z]
y {xoz |]mn }]n ~]Bu }~ |o qw{ mp xm5 ]/ g #%inferior-object-sub-kind-procedure g m-1f6d4c535-3db ` f l-1f6d4c535-3dd bo mtmmmm} ]s r [ mtmmmmm ]~ r Z[ f l-1f6d4c535-3e0 f l-1f6d4c535-3e1 b mtmmmm}
] ] xm ] ] r Z[ f l-1f6d4c535-3e5 f l-1f6d4c535-3e6 b mtmmmm}
] ] m ] ] r Z[ f l-1f6d4c535-3ea f l-1f6d4c535-3eb b mtmmmm}
] ] xm ]b g t-1f6d4c535-3da f l-1f6d4c535-3ef b mtmmmm}
]^ mtmmmmm ] ] ]a ]c xm ] ] m ] ]m ] ]C xm ] g "%inferior-object-address-procedure g m-1f6d4c535-3f6 ` f l-1f6d4c535-3f8 bo mtmmmm} ]s r [ mtmmmmm ]~ r Z[ f l-1f6d4c535-3fb f l-1f6d4c535-3fc b mtmmmm}
] ] xm ] ] r Z[ f l-1f6d4c535-400 f l-1f6d4c535-401 b mtmmmm}
] ] m ] ] r Z [ f l-1f6d4c535-405 f l-1f6d4c535-406 b
mtmmmm}
]
]
x m ]b
g t-1f6d4c535-3f5 f l-1f6d4c535-40a b mtmmmm}
]^ mtmmmmm ] ] ]a ]c x m ] ! "] # m $] # % " $ &]m '] (]D ) ' ( * & ) + ! % * , + -xm .] - /g m-1f6d4c535-411 0 /` 1 0 2f l-1f6d4c535-416 3f l-1f6d4c535-417 4f l-1f6d4c535-418 5f l-1f6d4c535-419 6f l-1f6d4c535-41a 7 2 3 4 5 6 8b 1 7 9 0 :f l-1f6d4c535-413 ; : <bo 9 ; = 8m <tmmmm
>] = ?x 8m < @] ? A]B ? B]C ? C]D ? D A B C Ef #<~a ~:[~*~;~a ~]~x> Fg smob Gg
inferior-smob Hg
inferior-port Ig %visited-cells Jg visited Kg -> Lg m-1f6d4c535-525 M L` N M Of l-1f6d4c535-527 P O Qbo N P Rxm Q S] K R Tr S U[ T[ V U挤 W[ V Xg parameterize Yg object Z Y [ Mxxx \f l-1f6d4c535-52a ]f l-1f6d4c535-52b ^f l-1f6d4c535-52c _f l-1f6d4c535-52d ` \ ] ^ _ ab Z [ ` bx am Q c] X b d] I b eg vhash-consv f] e b g d h g ig symbol->string jg
string-length kg bytevector->uint-list lg invalid-struct mg address->inferior-struct ng and=> og
vhash-assv pg cdr qg cell->object rg string->symbol sg variable tg substring ug bytevector->string vf
ISO-8859-1 wg bitwise-ior xg little yf UTF-32LE zg big {f UTF-32BE |g make-vector }g fold ~g weak-vector g
dynamic-state g program g bignum g double g
hash-table g objcode g vm g vm-continuation g array g bitvector g bit-set? g
integer->char g undefined g
eof-object g unboundC 5h ]4
89K5 4N > " G 4OiP5:RQ h ] C g peek
g open g type-name g filenamef system/base/types.scm
D
g nameg %memory-backend-procedure CRR4U;VY\ h k ] C c g
t-1f6d4c535-3
g
t-1f6d4c535-4 g
t-1f6d4c535-5 C; h X ]L 6 P g a
g filenamef system/base/types.scm D
CZ h H ] L 6@ g filenamef system/base/types.scm D
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 system/base/types.scm
D
n C5;RQ 4 Q> " G Ri QRQ h ] $ CC x g obj
g filenamef system/base/types.scm
D
g nameg %memory-backend?-procedure CR4U<VYj h 6 ] C . g t-1f6d4c535-16
C< h X ]L 6 P g a
g filenamef system/base/types.scm D
CZ h H ] L 6@ g filenamef system/base/types.scm D
Cl 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 system/base/types.scm
D
n C5<RQop h ] &
C 6z g s
g filenamef system/base/types.scm
D
g nameg %memory-backend-peek-procedure CqR4UpVY 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 6 ] C . g t-1f6d4c535-22
Cp h X ]L 6 P g a
g filenamef system/base/types.scm D
CZ h H ] L 6@ g filenamef system/base/types.scm D
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 system/base/types.scm
D
C5pRQo h ] & C 6z g s
g filenamef system/base/types.scm
D
g nameg %memory-backend-open-procedure CR4UVY h : ]C 2 g err
g s C h : ]C 2 g err
g s C!', h : ]C 2 g err
g s CH h 6 ] C . g t-1f6d4c535-3d
C h X ]L 6 P g a
g filenamef system/base/types.scm D
CZ h H ] L 6@ g filenamef system/base/types.scm D
CJ 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 system/base/types.scm
D
C5RQoK h ] & C 6 g s
g filenamef system/base/types.scm
D
g nameg #%memory-backend-type-name-procedure CLR4UKVYZaf h : ]C 2 g err
g s Ciot h : ]C 2 g err
g s Cw} h : ]C 2 g err
g s C h 6 ] C . g t-1f6d4c535-58
CK h X ]L 6 P g a
g filenamef system/base/types.scm D
CZ h H ] L 6@ g filenamef system/base/types.scm D
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 system/base/types.scm
D
C5KR4UVY 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 system/base/types.scm
D
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5RQi: h( ]4 5 45
45 6 g address
$ g ptr $ g bv $ g filenamef system/base/types.scm
O P P Q P R " $ R $ g nameg dereference-word C h@ ]4M 5 45 4
> " G M N C g bv
9 g index 9 g count 9 g ptr 9 g mem 9 g filenamef system/base/types.scm
W X X Y X Z
4 [ 6 [
9 g nameg read-memory! C hX ) ]H K$ 4 5 45 64O 5 4> " G C ! g address
S g size S g current-address S g ptr ) g bv ! ) g port : S g filenamef system/base/types.scm
T ^ _ _
` ! _
) a * b . b 5 : b : b
= e
S g nameg open C =RQop h( ]
&
" 4 5 6 g backend
$ g address $ g peek $ g filenamef system/base/types.scm
j
l l $ m $ g nameg % dereference-word-procedure CR4U>VY# h R ] C J g t-1f6d4c535-c4
g t-1f6d4c535-c5 C> h X ]L 6 P g a
g filenamef system/base/types.scm j
CZ% h H ] L 6@ g filenamef system/base/types.scm j
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 system/base/types.scm
j
n C5>R4U?VY(789; h W ] C O g dummy
g backend g address C<GIOPQR h0 i ] C a g dummy
. g backend . g address . g size . . C h@ ]4 5 $ @4 5 $ @ 6 z g x
9 g tmp 9 g tmp " 9 g filenamef system/base/types.scm
p 9 g
documentationf Return an input port to the SIZE bytes at ADDRESS, using BACKEND. When
SIZE is omitted, return an unbounded port to the memory at ADDRESS.g
macro-typeg syntax-rulesg patternsg backendg address g backendg addressg size C5?RS: h ] 4 5
45 6 g port
g bv g filenamef system/base/types.scm
~
g nameg get-wordg
documentationf 2Read a word from PORT and return it as an integer. CTRQoK h0 ] & " 4 5 $ 6C g backend
/ g kind / g number / g proc / g filenamef system/base/types.scm
% - / g nameg % type-number->name-procedure CUR4U@VY\ h q ] C i g t-1f6d4c535-101
g t-1f6d4c535-102 g t-1f6d4c535-103 C@ h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ% h I ] L 6A g filenamef system/base/types.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 system/base/types.scm
n C5@R4UVY
h@ ] C~ g dummy
@ g port @ g name @ g len @ g rest @ g body @ @ C h( u ] C m g dummy
" g port " g name " g rest " g body " " C h Q ]C I g dummy
g port g body C
hP ? ]4 5 $ @4 5 $ @4 5 $ @ 67 g x
P g tmp P g tmp " P g tmp 9 P g filenamef system/base/types.scm
P g
macro-typeg syntax-rulesg patternsg portg
bytevectorg nameg len g restg ... g body g portg nameg restg ... g body g portg body C5R4UVY hP , 3 C g dummy
O g bits O g a O g b O g n O g c O g
consequent O g alternate O O C h@ ] C g dummy
: g bits : g x : g n : g c : g
consequent : g alternate : : C h0 ] C g dummy
+ g bits + g n + g c + g
consequent + g alternate + + C ,-/0235679 hX , 3
C g dummy
W g bits W g a W g << W g n W g c W g
consequent W g alternate W W C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef system/base/types.scm
g g
macro-typeg syntax-rulesg patternsg bitsg ag ||g b g &g ng =g c g
consequentg alternate g bitsg xg &g ng =g c g
consequentg alternate g bitsg _g &g ng =g c g
consequentg alternate g bitsg ag <<g n g ||g c g
consequentg alternate C5R4U:VY=RST h( ] C g dummy
" g port " g tag " g tag-pattern " g thing " g body " g rest " " CU_c h P ] C H g dummy
g port g tag C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef system/base/types.scm
9 g
macro-typeg syntax-rulesg patternsg portg tagg tag-patterng thingg ... g body g restg ... g portg tag C5:R4UdVYgxz{|} h X ] C P g tmp-1f6d4c535-1be
g tmp-1f6d4c535-1bd
C h8 f ] 45 C ^ g dummy
2 g port 2 g pattern 2 g body 2 2 C h( B ] 4 5 $ @ 6 : g x
" g tmp " g filenamef system/base/types.scm
" g
documentationf fMatch a cell---i.e., a non-immediate value other than a pair. The
cell's contents are read from PORT.g
macro-typeg syntax-rulesg patternsg portg patterng bodyg ... g ... C5dR4UVY h | ] C t g dummy
g bits g bit-pattern g body g rest C h ? ]C 7 g dummy
g bits C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef system/base/types.scm
9 g
macro-typeg syntax-rulesg patternsg bitsg bit-patterng bodyg ... g restg ... g bits C5R4UVY h T ] C L g dummy
g bits g clauses C h( , ] 4 5 $ @ 6 $ g x
" g tmp " g filenamef system/base/types.scm
" g
documentationf bMatch BITS, an integer representation of an 'SCM' value, against
CLAUSES. Each clause must have the form:
(PATTERN BODY ...)
PATTERN is a bit pattern that may specify bitwise operations on BITS to
determine if it matches. TEMPLATE specify the name of the variable to bind
the matching bits, possibly with bitwise operations to extract it from BITS.g
macro-typeg syntax-rulesg patternsg bitsg clausesg ... C5R R R
RiRi R iRi
R R R R
R R R R R R %R 'R -R /R 5R 7R GR MR OR UR WR }R Ri Ri Ri Ri R h ~ ] C v g string
g filenamef system/base/types.scm
g nameg %stringbuf-procedure CR4UVY h 7 ] C / g t-1f6d4c535-1e5
C h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.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 system/base/types.scm
n C5R 4 > " G i R h | ] $ CC t g obj
g filenamef system/base/types.scm
g nameg %stringbuf?-procedure CR4UVY h 7 ] C / g t-1f6d4c535-1f2
C h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.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 system/base/types.scm
n C5Ro h ] &
C 6z g s
g filenamef system/base/types.scm
g nameg %stringbuf-contents-procedure CR4UVY'.3 h : ]C 2 g err
g s C6<A h : ]C 2 g err
g s CDJP h : ]C 2 g err
g s Cl h 7 ] C / g t-1f6d4c535-1fe
C h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.scm
Cn 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 system/base/types.scm
C5R4ULVY~ 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 system/base/types.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5LR4iio hP ]4> " G 4 &
" 4 5> " G 6 g stringbuf
J g port J g filenamef system/base/types.scm
% # : F % J
J C> " G h ] C g name
g fields g filenamef system/base/types.scm
g nameg %inferior-struct-procedure CR4UVY h T ] C L g t-1f6d4c535-240
g t-1f6d4c535-241 C h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.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 system/base/types.scm
n C5R 4 > " G i R h ] $ CC z g obj
g filenamef system/base/types.scm
g nameg %inferior-struct?-procedure CR4UGVY h 7 ] C / g t-1f6d4c535-250
CG h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.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 system/base/types.scm
n C5GRoH h ] &
C 6| g s
g filenamef system/base/types.scm
g nameg %inferior-struct-name-procedure CR4UHVY 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 7 ] C / g t-1f6d4c535-25c
CH h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.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 system/base/types.scm
C5HRoI h ] & C 6~ g s
g filenamef system/base/types.scm
g nameg !%inferior-struct-fields-procedure C R4UIVY.5: h : ]C 2 g err
g s C=CH h : ]C 2 g err
g s CKQV h : ]C 2 g err
g s Cr h 7 ] C / g t-1f6d4c535-277
CI h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.scm
Ct 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 system/base/types.scm
C5IR4UVY 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 system/base/types.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5Ro h ] & C 6 g s
g val g filenamef system/base/types.scm
g nameg &%set-inferior-struct-fields!-procedure CR4UVY h T ] C L g t-1f6d4c535-2a5
g t-1f6d4c535-2a6 C h Y ]L 6 Q g a
g filenamef system/base/types.scm
CZ h I ] L 6A g filenamef system/base/types.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 system/base/types.scm
n C5R4ii5 /oH/ h ] L& L 6L 6 g field
g filenamef system/base/types.scm
/
0 1 ' 1 2 + 2 CI h 9 ]4 4L 5 5$ 64 &
" 4 5> " G 4L 5$ " 4
L > " G L 4L 4
4L 5 55Y4 O & " 4 5> " G Z4 56 1 g struct
g port g filenamef system/base/types.scm
' (
( (
( ) )
+ ! + $ , @ + I - ~ . . 3 . - / 3 / 4 4 4 C O R4iii> " G h ] C g number
g value g filenamef system/base/types.scm
9
g nameg %inferior-fluid-procedure CR4UVY h T ] C L g t-1f6d4c535-2dc
g t-1f6d4c535-2dd C h Y ]L 6 Q g a
g filenamef system/base/types.scm 9
CZ h I ] L 6A g filenamef system/base/types.scm 9
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 system/base/types.scm
9
n C5R 4 > " G i R h ] $ CC y g obj
g filenamef system/base/types.scm
9
g nameg %inferior-fluid?-procedure CR4UEVY" h 7 ] C / g t-1f6d4c535-2ec
CE h Y ]L 6 Q g a
g filenamef system/base/types.scm 9
CZ h I ] L 6A g filenamef system/base/types.scm 9
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 system/base/types.scm
9
n C5ERoF h ] &
C 6} g s
g filenamef system/base/types.scm
9
g nameg %inferior-fluid-number-procedure C%R4UFVY3:? h : ]C 2 g err
g s CBHM h : ]C 2 g err
g s CPV\ h : ]C 2 g err
g s Cx h 7 ] C / g t-1f6d4c535-2f8
CF h Y ]L 6 Q g a
g filenamef system/base/types.scm 9
CZ h I ] L 6A g filenamef system/base/types.scm 9
Cz 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 system/base/types.scm
9
C5FRo{ h ] & C 6| g s
g filenamef system/base/types.scm
9
g nameg %inferior-fluid-value-procedure C|R4U{VY 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 7 ] C / g t-1f6d4c535-313
C{ h Y ]L 6 Q g a
g filenamef system/base/types.scm 9
CZ h I ] L 6A g filenamef system/base/types.scm 9
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 system/base/types.scm
9
C5{R4UXVY 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 system/base/types.scm
9
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5XR4ii/) hH ]
$ - &
4 564 56 4 56 g fluid
C g port C g w ) g filenamef system/base/types.scm
@ A C , ! E ' ) C * A C C> " G h ] C g kind
g sub-kind g address g filenamef system/base/types.scm
J
g nameg %%inferior-object-procedure CR4UVY\
h q ] C i g t-1f6d4c535-3a0
g t-1f6d4c535-3a1 g t-1f6d4c535-3a2 C h Y ]L 6 Q g a
g filenamef system/base/types.scm J
CZ h I ] L 6A g filenamef system/base/types.scm J
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 system/base/types.scm
J
n C5R 4 > " G i R h ] $ CC z g obj
g filenamef system/base/types.scm
J
g nameg %inferior-object?-procedure CR4UAVY, h 7 ] C / g t-1f6d4c535-3b3
CA h Y ]L 6 Q g a
g filenamef system/base/types.scm J
CZ h I ] L 6A g filenamef system/base/types.scm J
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 system/base/types.scm
J
n C5ARoB h ] &
C 6| g s
g filenamef system/base/types.scm
J
g nameg %inferior-object-kind-procedure C/R4UBVY=DI h : ]C 2 g err
g s CLRW h : ]C 2 g err
g s CZ`f h : ]C 2 g err
g s C h 7 ] C / g t-1f6d4c535-3bf
CB h Y ]L 6 Q g a
g filenamef system/base/types.scm J
CZ h I ] L 6A g filenamef system/base/types.scm J
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 system/base/types.scm
J
C5BRoC h ] & C 6 g s
g filenamef system/base/types.scm
J
g nameg #%inferior-object-sub-kind-procedure CR4UCVY 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 7 ] C / g t-1f6d4c535-3da
CC h Y ]L 6 Q g a
g filenamef system/base/types.scm J
CZ h I ] L 6A g filenamef system/base/types.scm J
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 system/base/types.scm
J
C5CRoD h ] & C 6 g s
g filenamef system/base/types.scm
J
g nameg "%inferior-object-address-procedure CR4UDVY 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 7 ] C / g t-1f6d4c535-3f5
CD h Y ]L 6 Q g a
g filenamef system/base/types.scm J
CZ h I ] L 6A g filenamef system/base/types.scm J
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 system/base/types.scm
J
C5DR4UbVY > @ D 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 system/base/types.scm
J
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5bR h( U ) 3 C] C M g kind
g address g kind
" g sub-kind " g address " g filenamef system/base/types.scm
R V R ! X " g nameg inferior-objectg
documentationf SReturn an object representing an inferior object at ADDRESS, of type
KIND/SUB-KIND. CVR4ii/ E) hP ] $ 9 & #
64 56 4 56 g io
O g port O g w 5 g w 5 g w # 5 g filenamef system/base/types.scm
[ \ + ^ , 5 ^ 6 \ O C> " G V FQoK hX _ ] & " 4 5 $
45" $ " 6 W g backend
Q g type-number Q g address Q g proc ! : g t : M g filenamef system/base/types.scm
b
e f . f 2 2 f : f Q e Q g nameg
inferior-smobg
documentationf LReturn an object representing the SMOB at ADDRESS whose type is
TYPE-NUMBER. C GRVQoK hX _ ] & " 4 5 $
45" $ " 6 W g backend
Q g type-number Q g address Q g proc ! : g t : M g filenamef system/base/types.scm
j
m n . n 2 2 n : n Q m Q g nameg
inferior-portg
documentationf LReturn an object representing the port at ADDRESS whose type is
TYPE-NUMBER. C HR4ii5 IR4U JVY W c d f h h h ] C ` g dummy
g address g object g body C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef system/base/types.scm
y " g
macro-typeg syntax-rulesg patternsg addressg ->g object g bodyg ... C5 JR:QopJ i jLS I eJ h g ] L 6 _ g t-1f6d4c535-5af
g filenamef system/base/types.scm
C kV l h ]s
&
" 45 45 45 &
" 45 45 45 $ 745 4 5
&
" 45 4 5
$ 4 5" +& " 4
5 4
5 4
5
45$ " 4 > " G 4 4 4
5 55Y4O 4
45 55 & " 4> " G ZCZF 6 g address
g vtable-data-address g backend g layout-address g peek % 1 g layout-bits 1 g layout < g name-address F g peek b n g name-bits n g name y g layout g len
g address g peek g slots g open
g port
g fields
g result " g t-1f6d4c535-5a8 & g values g filenamef system/base/types.scm
1 4 < E F F K n q y ~ 1 2 2
. " " &
p z 6 / g nameg address->inferior-structg
documentationf ^Read the struct at ADDRESS using BACKEND. Return an 'inferior-struct'
object representing it. C mR= n o I pQoT m q r)V s tS: u v w x y z {L.18 | e } h ]L C | g element
g index
g filenamef system/base/types.scm
CJ h g ] L 6 _ g t-1f6d4c535-732
g filenamef system/base/types.scm
C k ~ H O s Ga X h
- . , 3 # 44 45 55 $ C& " 45 4 5 4 5
$
6 $ n4 5 4 > " G 4 > " G 4
5 $ "&
6456 456 $ 4 > " G 6 $ c4 5 4 5 4 5
4
5 $ ) &
64 56 4 56 $ Q4 5 4 5
$ " 4 > " G 4
5 C 4 5$ 4 5
4
5
$ " 4 > " G 4 4 5
& " !
& "" 44
55
5
C
#$ W4 5 4 5
$ 4$%5" (& " 45
4
5
64&4' 55 ($ 4) 5 4 > " G 4) 5
4
5 4*
5 4+5$ " 4,-./ > " G 4 40 45 55Y412O
434O 454 5 55> " G ZCZF 6$ 7 64&4' 55
8$ &4) 5 4 > " G 9 C :$ ; 64&4' 55 <$ 4) 5 = 6 >$ ? 6 @$ A 6 B$ }4 > " G 4CD5
$ 4$%5" -& " 45 44CD55 44CD55
4 5 C E$ 4 > " G F 6 G$ >4 > " G 4 > " G 4 > " G H 6 I$ 4 5 J6 K$ L 6 M$ N 6 O$ P 6 Q$ R 6 S$ T 64&4' 55 U$ '4) 5 4 > " G V 6W6 }
g address
g backend g t ) g open N [ g port [ g tag d g tag k g tag g buf g v g w g tag g tag * g buf < g start E g len
N g v Y g w o ~ g tag g len g buf
g remainder g string g tag g len
g buf , g remainder , g v
] g string
g tag
g len g address g open
g bv-port
g tag g len $ g len
A g words O g vector X g t-1f6d4c535-729 \ g tag g tag
g n 7 g tag < g tag ` g
flags+type t g tag g tag g tag g address E g open ) g port ) E g words 9 E g tag G g tag n g tag g address g tag g tag g tag g tag g tag ) g tag M g smob-type a @g filenamef system/base/types.scm
! %
) ) 7 [ ^ % $ ( * Q | & ~ . " $ ) , T Y . i 9 o . w 6 | .
9 A D M 1 O O R X \
7 6 < K O P " & 8 8 & ) , 1 2 9 9 ? 1 D
G h l n # ' ) 8 < = | g nameg cell->objectg
documentationf WReturn an object representing the object at ADDRESS, reading from memory
using BACKEND. C qR=.18Qop n o I p: eJ q V h | - . , 3
# 4 4 55 $ 6 $ &
" 4 5 4 5 4
5 $ 4 4 4
5 55 $ C
45$ " 4 > " G 4 4 4
5 55Y454&
" 4 5 4 5 5ZCZF 64 4 55 $ 4 5 64 4 55 $ q4 5
$ C $ C $ C $ C $ C $ 6
$ 6 $ 6C C t g bits
g backend g tag ' g tag ? g peek d p g type p B g pair? { B g t : g cdrloc : g pair : g t-1f6d4c535-80f : g peek # / g tag S g char g o g tag g flag g filenamef system/base/types.scm
M p s { { * " * 3 4 B C o p
( g nameg scm->objectg
documentationf LReturn the Scheme object corresponding to BITS, the bits of an 'SCM'
object. CJRC g m
, g rtd
g rtd
A B g rtd
P Q g %printed-struct
c f g rtd
j j g rtd
~ g filenamef system/base/types.scm
- B 3 B
5 B 8 @
D
h K
j
$ ~
%P
=
=
=
=
= =
= =
= =
=
=
=
=
=
>
>
>
>
>
>
>&
>,
>2
>8
>>
>D
>J
>P
>V
>\
>b
>j $ >k >o
>w
" >x
>|
> % > >
> & > >
?:
L#
N"
c & c & f %
f 6
g 9
y ?
{ J
Q
Z
b
j
v r
K
C6 PK ! A5M system/base/target.gonu [ GOOF----LE-8-2.0 ] i 4 h ] g guile g define-module* g system g base g target
g filenameS f system/base/target.scm g importsS
g rnrs g bytevectors
g ice-9 g regex g exportsS g target-type g with-target g
target-cpu g
target-vendor g target-os g target-endianness g target-word-size g set-current-module ! "g foreign #" $g sizeof %#$ &#$ 'g * (g %native-word-size )g
make-fluid *g
%host-type +g %target-type ,g native-endianness -g %target-endianness .g %target-word-size /g string? 0g string-split 1g length 2g or-map 3g string-null? 4g error 5f invalid target 6g validate-target 7g triplet-cpu 8g cpu-endianness 9g triplet-pointer-size :g string=? ;g string-match <f
^i[0-9]86$ =g little >g member ?f x86_64 @f ia64 Af powerpcle Bf powerpc64le Cf mipsel Df mips64el Ef nios2 Ff sh3 Gf sh4 Hf alpha I?@ABCDEFGH
Jf sparc Kf sparc64 Lf powerpc Mf powerpc64 Nf spu Of mips Pf mips64 Qf m68k Rf s390x SJKLMNOPQR Tg big Uf ^arm.*el Vf ^arm.*eb Wg string-prefix? Xf arm Yf ^aarch64.*be Zf aarch64 [f unknown CPU endianness \f ^mips64.*-gnuabi64 ]f ^mips64 ^f ^x86_64-.*-gnux32 _f 64$ `f 64_?[lbe][lbe]$ aJLOCEQFG bRH cf ^arm.* df unknown CPU word size eg
triplet-os fg substring gg string-index hg triplet-vendorC 5 hH * ]4
5 4! > " G 4&'5(R4)i*i5+R4)i4,i5 5-R4)i(i5.R/012345 hX ]4 5$ 54 -5 45 $ " 45 " $ 6C g target
Q g parts > g t " ; g filenamef system/base/target.scm
-
.
. / /
0 " 0 " 0 0 1 C .
G . K 2
O 2 Q g nameg validate-target C6R67+-.89 hH ]
4 > " G 4 5 454 5Y4> ZCZF g target
A g thunk A g cpu A g filenamef system/base/target.scm
4
5 6
6 & 8 & - 9 % 6 : A g nameg with-target CR:7*,;<=>ISTUVWXYZ4[ h - ]4 455$ 6 4 5$ C4 5$ C4
5$ C4 5$ C4
5$ C4 5$ C4 5$ C4 5$ C 6% g cpu
g filenamef system/base/target.scm
<
> > > > ? @
@ ! @
% @ ' A
) B
/ B 1 B
5 @ 7 D
9 E
? E A E
E @ G G
I H
M H Q H
U @ W I
Y J
] J a J
e @ g K
i L
m L q L
u @ w M
y N
} N N
@ O
P
P P
@ Q
S S
1 g nameg cpu-endiannessg
documentationf Return the endianness for CPU. C8R7;<\]^_`>abc4d:*e( h } ] 4 5 " 45$ C4 5$ C45$ C4 5$ C45$ C45$ C4
5$ C4 5$ C4 5$ C
64455$ 44 5455$ C"8"4 u g triplet
g cpu g filenamef system/base/target.scm
U
W
W \ \ \ X c $ c ( c , X 0 d 4 d 8 d < X @ f D f H f L X P h T h X h \ X ` i d i h i l X p j v j x j | X k k k X l l l X m m X X X X X Y Y Y / Y X 4 g nameg triplet-pointer-sizeg
documentationf 1Return the size of pointers in bytes for TRIPLET. C9Rfg h ]
4 -56 x g t
g filenamef system/base/target.scm
o
p p g nameg triplet-cpu C7Rgf h( ] 4 -5 4 -56 g t
! g start ! g filenamef system/base/target.scm
r
s s s t ! t ! g nameg triplet-vendor ChRgf h ] 4 -4 -55 6 g t
g start g filenamef system/base/target.scm
v
w
w + w ' w w w x g nameg
triplet-os CeR+ h ] [C g filenamef system/base/target.scm
{
g nameg target-typeg
documentationf <Return the GNU configuration triplet of the target platform. CR7 h ] 45 6 g filenamef system/base/target.scm
g nameg
target-cpug
documentationf +Return the CPU name of the target platform. CRh h ] 45 6 g filenamef system/base/target.scm
g nameg
target-vendorg
documentationf .Return the vendor name of the target platform. CRe h ] 45 6 g filenamef system/base/target.scm
g nameg target-osg
documentationf 8Return the operating system name of the target platform. CR- h ] [C g filenamef system/base/target.scm
g nameg target-endiannessg
documentationf 4Return the endianness object of the target platform. C R. h ] [C g filenamef system/base/target.scm
g nameg target-word-sizeg
documentationf 7Return the word size, in bytes, of the target platform. C RC" g m
, g filenamef system/base/target.scm
- ' / ' 1 ' 3 ' 6 $
7 ) D )
E * J * ' R * U *
V + c +
-
4
<
U
S o
@ r
4 v
{
t
F
H
C6 PK ! ^}D D system/base/pmatch.gonu [ GOOF----LE-8-2.0, ] 4 h3 ] g guile g define-module* g system g base g pmatch
g filenameS f system/base/pmatch.scm g exportsS
g set-current-module g make-syntax-transformer g macro g $sc-dispatch g any g each-any g
syntax-object g let g top g ribcage !g dummy "g e #g cs $!"# %g m-3c4e5dc25-86 &% '& (f l-3c4e5dc25-8b )f l-3c4e5dc25-8c *f l-3c4e5dc25-8d +()* , $'+ - .g x /. 0& 1f l-3c4e5dc25-88 21 3 /02 4 ,-3 5g hygiene 65 7 46 8g v 9 846 :g pmatch1 ; :46 <g syntax-violation =< >< ?f -source expression failed to match any pattern @ Ag if B!8 Cg m-3c4e5dc25-92 DC ED Ff l-3c4e5dc25-97 Gf l-3c4e5dc25-98 HFG I BEH JD Kf l-3c4e5dc25-94 LK M /JL N I-M O AN6 P N6 QOPP Rg free-id Sg else T -M U ST6 VRU WV XW Yg e0 Z!8Y" [D \f l-3c4e5dc25-9c ]f l-3c4e5dc25-9d ^f l-3c4e5dc25-9e _f l-3c4e5dc25-9f `\]^_ a Z[` b a-M c b6 dg guard e dT6 fRe gf hg ih ji kj lk mg pat ng g o!8mnY"# pD qf l-3c4e5dc25-a6 rf l-3c4e5dc25-a7 sf l-3c4e5dc25-a8 tf l-3c4e5dc25-a9 uf l-3c4e5dc25-aa vf l-3c4e5dc25-ab wf l-3c4e5dc25-ac xqrstuvw y opx z y-M { z6 |g fk } |z6 ~g lambda ~z6 :z6 g ppat z6 Az6 g and z6 } !8mY"# D f l-3c4e5dc25-b8 f l-3c4e5dc25-b9 f l-3c4e5dc25-ba f l-3c4e5dc25-bb f l-3c4e5dc25-bc f l-3c4e5dc25-bd -M 6 |6 ~6 :6 6 g _ g m-3c4e5dc25-c6 f l-3c4e5dc25-c8 / - 6 R g kt g kf !8 f l-3c4e5dc25-d4 f l-3c4e5dc25-d5 f l-3c4e5dc25-d6 f l-3c4e5dc25-d7 - A6 g null? 6 g quote 6 R g lit !8 f l-3c4e5dc25-dd f l-3c4e5dc25-de f l-3c4e5dc25-df f l-3c4e5dc25-e0 f l-3c4e5dc25-e1 - A6 g equal? 6 6 g unquote 6 R g var !8 f l-3c4e5dc25-e8 f l-3c4e5dc25-e9 f l-3c4e5dc25-ea f l-3c4e5dc25-eb f l-3c4e5dc25-ec - 6 g y !8. f l-3c4e5dc25-f3 f l-3c4e5dc25-f4 f l-3c4e5dc25-f5 f l-3c4e5dc25-f6 f l-3c4e5dc25-f7 f l-3c4e5dc25-f8 - A6 g pair? 6 6 g vx 6 g car 6 g vy 6 g cdr 6 6 f l-3c4e5dc25-100 f l-3c4e5dc25-101 f l-3c4e5dc25-102 f l-3c4e5dc25-103 f l-3c4e5dc25-104 - A6 g eq? 6 6 C 5hx Z ]4
5 4 > " G 479; h L ] C D g dummy
g e g cs C>? h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef system/base/pmatch.scm
'
" g
macro-typeg syntax-rulesg patternsg eg csg ... C5R4:@Q h < ]C 4 g dummy
g v CXc h [ ]C S g dummy
g v
g e0
g e
Cl{} h@ ] C g dummy
@ g v @ g pat @ g g @ g e0 @ g e @ g cs @ @ C h8 | ] C t g dummy
4 g v 4 g pat 4 g e0 4 g e 4 g cs 4 4 C>? hh q ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 i g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef system/base/pmatch.scm
+ g g
macro-typeg syntax-rulesg patternsg v g vg elseg e0g eg ... g vg patg guardg gg ... g e0g eg ... g csg ... g vg patg e0g eg ... g csg ... C5:R4 h \ ]C T g dummy
g v g kt g kf C h \ ] C T g dummy
g v g kt g kf C h m ] C e g dummy
g v g lit g kt g kf C h m ] C e g dummy
g v g var g kt g kf C hP z ] C r g dummy
I g v I g x I g y I g kt I g kf I I C h m ] C e g dummy
g v g lit g kt g kf C>? h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g filenamef system/base/pmatch.scm
8 g
macro-typeg syntax-rulesg patternsg vg _g ktg kf g vg ktg kf g vg quoteg lit g ktg kf g vg unquoteg var g ktg kf g vg xg yg ktg kf g vg litg ktg kf C5RC R g m
( g filenamef system/base/pmatch.scm $
s
C6 PK ! vfs s system/base/message.gonu [ GOOF----LE-8-2.0s ] 4 h; ] g guile g define-module* g system g base g message
g filenameS f system/base/message.scm g importsS
g srfi g srfi-1
g srfi-9
g ice-9 g match g exportsS g *current-warning-port* g *current-warning-prefix* g warning g
warning-type? g warning-type-name g warning-type-description g warning-type-printer !g lookup-warning-type "g %warning-types # !" $g set-current-module %$ &$ 'g format (f ~a:~a:~a )g assoc-ref *g filename +f <stdin> ,g line -g column .f <unknown-location> /g location-string 0g parameter-fluid 1g current-warning-port 2g
make-fluid 3f ;;; 4g <warning-type> 5g %make-warning-type-procedure 6g make-syntax-transformer 76 86 9g make-warning-type :g macro ;g $sc-dispatch <; =; >g _ ?g any @>??? Ag
syntax-object Bg lambda Cg m-44b57084b9-69a Dg top ECD Fg ribcage Gg t-44b57084b9-697 Hg t-44b57084b9-698 Ig t-44b57084b9-699 JGHI KEEE Lf l-44b57084b9-69f Mf l-44b57084b9-6a0 Nf l-44b57084b9-6a1 OLMN PFJKO QF Rg x SR TE Uf l-44b57084b9-69c VU WFSTV Xg shift Yg proc-name Zg args [YZ \D ]\\ ^f l-1e8ba8b5a-60 _f l-1e8ba8b5a-61 `^_ aF[]` bg key cg value dg name eg formals fg body gbcdef h\\\\\ if l-1e8ba8b5a-53 jf l-1e8ba8b5a-54 kf l-1e8ba8b5a-55 lf l-1e8ba8b5a-56 mf l-1e8ba8b5a-57 nijklm oFghn pg make-procedure-name qp r\ sf l-1e8ba8b5a-43 ts uFqrt v\ wf l-1e8ba8b5a-42 xw yFSvx zEPQWXQQQQaouy
{g hygiene |{
}ABz| ~\PQW { Ad~ g description A~ g printer A~ g make-struct g m-44b57084b9-695 D g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 D f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a F g ctor-args f l-1e8ba8b5a-120 Fv g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d F] g form g type-name g constructor-spec g field-names \\\\ f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 F g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers \\\\\\\\ 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 F f l-1e8ba8b5a-da FSv PQWXQQQQQ A| A4~ A
| } g each-any >ʌ g syntax-violation f Wrong number of arguments g identifier? \QW A5 f -source expression failed to match any pattern g record-type-vtable g pwpwpw g default-record-printer d g set-struct-vtable-name! g vtable-offset-user g %warning-type?-procedure >? g m-44b57084b9-6ab D g t-44b57084b9-6aa f l-44b57084b9-6b0 F f l-44b57084b9-6ad FS QXQQQQaouy
AB| 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 D 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 F
g copier-id
f l-1e8ba8b5a-21c
F v
g ctor-name f l-1e8ba8b5a-214 Fv f l-1e8ba8b5a-212 Fv g layout f l-1e8ba8b5a-210 Fv g
immutable? f l-1e8ba8b5a-20e !F v "g field-count #" $f l-1e8ba8b5a-20c %$ &F#v% 'g
getter-ids (' )f l-1e8ba8b5a-209 *) +F(v* ,g field-ids -, .f l-1e8ba8b5a-206 /. 0F-v/ 1g predicate-name 2g
field-spec 3 12 4\\\\\\ 5f l-1e8ba8b5a-1f9 6f l-1e8ba8b5a-1fa 7f l-1e8ba8b5a-1fb 8f l-1e8ba8b5a-1fc 9f l-1e8ba8b5a-1fd :f l-1e8ba8b5a-1fe ;56789: <F34; =QXQ QQQQQQQ Q!Q&Q+Q0< >A=| ?> @g and AA@=| Bg struct? CAB=| DC> Eg eq? FAE=| Gg
struct-vtable HAG=| IH> J\Q KA4J LFIK MADL N?M O\Q PAO Qg throw-bad-struct RQ SQ Tg %warning-type-name-procedure Ug free-id Vg
%%on-error Wg m-44b57084b9-6b7 XWD YX Zf l-44b57084b9-6b9 [Z \FSY[ ]XQ\XQQQQaouy ^AV]| _U^ `_? ag %%type bg t-1e8ba8b5a-14b cg t-1e8ba8b5a-14c dg t-1e8ba8b5a-14d eg t-1e8ba8b5a-14e fg t-1e8ba8b5a-14f gg t-1e8ba8b5a-150 hg t-1e8ba8b5a-151 ibcdefgh jg m-1e8ba8b5a-152 kjD lkkkkkkk mf l-1e8ba8b5a-156 nf l-1e8ba8b5a-157 of l-1e8ba8b5a-158 pf l-1e8ba8b5a-159 qf l-1e8ba8b5a-15a rf l-1e8ba8b5a-15b sf l-1e8ba8b5a-15c tmnopqrs uFilt vg getter wg index xvw yf l-1e8ba8b5a-149 zf l-1e8ba8b5a-14a {yz |Fx]{ }'
~\\\ f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 F}~ Q\XQuQQQ|Q Aa| U >`? g ck g err g s XX f l-44b57084b9-6bc f l-44b57084b9-6bd F XQ\XQQQQaouy
A| g quote A| \Q\ A4 g %%index A| U >`? f l-44b57084b9-6c1 f l-44b57084b9-6c2 F XQ\XQQQQaouy
A| A| Q\ A
g %%copier A| U >`? f l-44b57084b9-6c6 f l-44b57084b9-6c7 F XQ\XQQQQaouy
A| A| g %%<warning-type>-set-fields \Q\ A g t-44b57084b9-6b6 f l-44b57084b9-6cb FY XQ\XQQQQaouy
AB| Q\XQuQQQ|Q A| g if A| AE| AG| \Q\ A4 g
struct-ref A| Q\ A
AQ| A| A \Q\ AT g #%warning-type-description-procedure g m-44b57084b9-6d2 D f l-44b57084b9-6d4 FS QXQQQQaouy AV| U ? QXQuQQQ|Q Aa| U >? f l-44b57084b9-6d7 f l-44b57084b9-6d8 F QXQQQQaouy
A| A| \Q A4 A| U >? f l-44b57084b9-6dc f l-44b57084b9-6dd F QXQQQQaouy
A| A| Q A A| U >? f l-44b57084b9-6e1 f l-44b57084b9-6e2 F QXQQQQaouy
A|
A| \Q A
g t-44b57084b9-6d1 f l-44b57084b9-6e6 F QXQQQQaouy
AB| QXQuQQQ|Q A| A| AE| AG| \Q A4 A| !Q "A ! # " $AQ| %A| &A '%& ($' ) #( *) +\Q ,A+ -g %warning-type-printer-procedure .g m-44b57084b9-6ed /.D 0/ 1f l-44b57084b9-6ef 21 3FS02 4/Q3XQQQQaouy 5AV4| 6U5 76? 8Q3XQuQQQ|Q 9Aa8| :U9 ;>7:? <// =f l-44b57084b9-6f2 >f l-44b57084b9-6f3 ?=> @F<? A/@Q3XQQQQaouy
BAA| CAA| D\@Q3 EA4D FCE GF HA8| IUH J>7I? Kf l-44b57084b9-6f7 Lf l-44b57084b9-6f8 MKL NF<M O/NQ3XQQQQaouy
PAO| QAO| RNQ3 SA R TQS UT VA8| WUV X>7W? Yf l-44b57084b9-6fc Zf l-44b57084b9-6fd [YZ \F<[ ]/\Q3XQQQQaouy
^A]| _A]| `\\Q3 aA` b_a cb dg t-44b57084b9-6ec ed ff l-44b57084b9-701 gf hFe0g i/hQ3XQQQQaouy
jABi| khQ3XQuQQQ|Q lAk| ml nAk| oAEk| pAGk| qpl r\hQ3 sA4r toqs uAk| vhQ3 wA v xulw yAQk| zAk| {A r |z{ }yl| ~ntx} jm~ \Q3 A- g each ?? ? ? ? g %%set-fields g dummy g check? g expr v g m-44b57084b9-708 D f l-44b57084b9-70d f l-44b57084b9-70e f l-44b57084b9-70f f l-44b57084b9-710 f l-44b57084b9-711 F f l-44b57084b9-70a FS g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d D f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 F f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 F}~ QXQQQQ
A| \Q A4 A A A g map g list g unsupported-warning f warn about unknown warning types f &~awarning: unknown warning type `~A'~% g unused-variable f report unused variables f %~a~A: warning: unused variable `~A'~% g unused-toplevel f 'report unused local top-level variables f >~a~A: warning: possibly unused local top-level variable `~A'~% g unbound-variable f !report possibly unbound variables f /~a~A: warning: possibly unbound variable `~A'~% g arity-mismatch f =report procedure arity mismatches (wrong number of arguments) f 2~a~A: warning: wrong number of arguments to `~A'~% f ;~a~A: warning: possibly wrong number of arguments to `~A'~% g duplicate-case-datum f -report a duplicate datum in a case expression f F~a~A: warning: duplicate datum ~S in clause ~S of case expression ~S~% g bad-case-datum f Ereport a case datum that cannot be meaningfully compared using `eqv?' f i~a~A: warning: datum ~S cannot be meaningfully compared using `eqv?' in clause ~S of case expression ~S~% f ,report wrong number of arguments to `format' g wrong-num-args f ~a~A: `format' warning~% f 6~a~A: warning: wrong number of arguments to `format'~% g non-literal-format-string f *~a~A: warning: non-literal format string~% g wrong-format-string f (~a~A: warning: ~S: wrong format string~% g
wrong-port f (~a~A: warning: ~S: wrong port argument~% g syntax-error g "unexpected-conditional-termination f %~a~A: warning: ~S: unexpected `~~]'~% g list->string g string-fold-right g append \n g unexpected-semicolon f %~a~A: warning: ~S: unexpected `~~;'~% g unterminated-conditional f -~a~A: warning: ~S: unterminated conditional~% g unterminated-iteration f +~a~A: warning: ~S: unterminated iteration~% g wrong-format-arg-count f L~a~A: warning: ~S: wrong number of `format' arguments: expected ~A, got ~A~% f
any number f
~aup to ~a f
~aat least ~a g number->string f
~a~a to ~a g
simple-format f O~a~A: warning: ~S: unsupported format option ~~~A, use (ice-9 format) instead~% g find f #~A: unknown warning type `~A': ~A~%C 5 h3 ]4
#5 4& > " G '()*+,-. hH
] $ 64 5 $ " 4 54 56C g loc
B g t * g filenamef system/base/message.scm
+
, , - . . ! . . ' . , + / 1 / ! 3 / 4 / 5 0 ; 0 = 0 ? - A 1 B g nameg location-string C/R40i1i5R42i35R4 h ] C g name
g description g printer g filenamef system/base/message.scm
E
g nameg %make-warning-type-procedure C5R489:=@ h t ] C l g t-44b57084b9-697
g t-44b57084b9-698 g t-44b57084b9-699 C9 h Z ]L 6 R g a
g filenamef system/base/message.scm E
C> h J ] L 6B g filenamef system/base/message.scm E
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 system/base/message.scm
E
n C59R4ߨ 4 4> " G 5i 4R4 h ] $ CC x g obj
g filenamef system/base/message.scm
E
g nameg %warning-type?-procedure CR48 :=N h 8 ] C 0 g t-44b57084b9-6aa
C h Z ]L 6 R g a
g filenamef system/base/message.scm E
C> h J ] L 6B g filenamef system/base/message.scm E
CP 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 system/base/message.scm
E
n C5 R4S h ] &
C 6z g s
g filenamef system/base/message.scm
E
g nameg %warning-type-name-procedure CTR48 := 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 8 ] C 0 g t-44b57084b9-6b6
C h Z ]L 6 R g a
g filenamef system/base/message.scm E
C> h J ] L 6B g filenamef system/base/message.scm E
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 system/base/message.scm
E
C5 R4S h ] & C 6 g s
g filenamef system/base/message.scm
E
g nameg #%warning-type-description-procedure CR48 := 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 8 ] C 0 g t-44b57084b9-6d1
C h Z ]L 6 R g a
g filenamef system/base/message.scm E
C> h J ] L 6B g filenamef system/base/message.scm E
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 system/base/message.scm
E
C5 R4S h ] & C 6 } g s
g filenamef system/base/message.scm
E
g nameg %warning-type-printer-procedure C-R48 :=;BG h : ]C 2 g err
g s CJPU h : ]C 2 g err
g s CX^c h : ]C 2 g err
g s C h 8 ] C 0 g t-44b57084b9-6ec
C h Z ]L 6 R g a
g filenamef system/base/message.scm E
C> h J ] L 6B g filenamef system/base/message.scm E
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 system/base/message.scm
E
C5 R48:= 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 system/base/message.scm
E
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R4i5 h e ] @] g args
g filenamef system/base/message.scm
N O C' h ] [6 g port
g unused g name g filenamef system/base/message.scm
_
` C ' h ] [6 g port
g loc g name g filenamef system/base/message.scm
e
f C ' h ] [6 g port
g loc g name g filenamef system/base/message.scm
k
l C ' h ] [6 g port
g loc g name g filenamef system/base/message.scm
q
r C ' h( ]$ [6 [6 g port
& g loc & g name & g certain? & g filenamef system/base/message.scm
w
x y | & C ' h ] [6 g port
g loc g datum g clause g case-expr g filenamef system/base/message.scm
C ' h ] [6 g port
g loc g datum g clause g case-expr g filenamef system/base/message.scm
C '' h ]
& 6 C g c
g r g filenamef system/base/message.scm
%
' 3 + + C h ]
& 6 C g c
g r g filenamef system/base/message.scm
%
' 3 + + C h ]
& 6 C g c
g r g filenamef system/base/message.scm
%
' 3 + + C h ]
& 6 C g c
g r g filenamef system/base/message.scm
%
' 3 + + C h ]
& 6 C g c
g r g filenamef system/base/message.scm
%
' 3 + + C? h ]
& 6 C g c
g r g filenamef system/base/message.scm
%
' 3 + + C ' h 7 - 1 3 " 5" 5" " ;" " A" " " k$ W & 8"
[6$ ( [6"" [6 [6$ )( &
[6"i"e"a$ @ & *$ ( [6" """$ @
& *$ ( [6""""$ n & X$ M
& 7$ ,( ! [44556"Z"V"R"N"J"F$ n & X$ M & 7$ ,( ! [44556""""""$ n & X$ M & 7$ ,( ! [44556"`"\"X"T"P"L$ n & X$ M & 7$ ,( ! [44556""""""$ & $ $ $
$
(
[44 55 & & "
4 [ 5" < & 4![5" # $ 4"5" 4#[ 5 6"""""""$ d $& N$ C $ .( # %[44&556"l"h"d"`"\ / g port
g loc g rest g w : g x : g w g w g x g w g w $ ^ g x $ ^ g w A R g w o g x o g w g x g w g w P g x P g w H g x H g w < g w a g x a g w z g x z g w g w B g x B g w : g x : g w . g w S > g x S > g w l 6 g x l 6 g w } 2 g x } 2 g w . g x
. g w & g w O g x O g w h g x h g w } .g filenamef system/base/message.scm
P W o I V % & , / 4 % 8 : < @ % ! & % * , . 2 % ! % ! $ & * % K
C 5"R4S h n ]L &
" 4 5Cf g wt
g filenamef system/base/message.scm
C" h ] O 6 g name
g filenamef system/base/message.scm
g nameg lookup-warning-typeg
documentationf 2Return the warning type NAME or `#f' if not found. C!R!1'/4 h` - 1 3 4 545 " 45 6$ & 45@"" g type
Z g location Z g args Z g wt Z g port Z g filenamef system/base/message.scm
# $ 0 0 3 7 : E H R Z
g nameg warningg
documentationf jEmit a warning of type TYPE for source location LOCATION (a source
property alist) using the data in ARGS. C RC g m
, g rtd
g filenamef system/base/message.scm
+
> :
B B B @
E
N P ] / N / L
1
3
3
C6 PK ! ;m system/base/language.gonu [ GOOF----LE-8-2.0 ] l 4 h$ ] g guile g define-module* g system g base g language
g filenameS f system/base/language.scm g importsS
g syntax
g exportsS g define-language g language? g lookup-language g
make-language g
language-name g language-title g language-reader g language-printer g language-parser g language-compilers g language-decompilers g language-evaluator g language-joiner g language-for-humans? g !language-make-default-environment !g lookup-compilation-order "g lookup-decompilation-order #g invalidate-compilation-cache! $g default-environment %g *current-language* & !"#$% 'g
re-exportsS (g current-language )( *g set-current-module +* ,* -g make-record-type .f
<language> /g name 0g title 1g reader 2g printer 3g parser 4g compilers 5g decompilers 6g evaluator 7g joiner 8g for-humans? 9g make-default-environment :/0123456789 ;g
<language> <g make-fresh-user-module =g record-constructor >g %compute-initargs ?g record-predicate @g make-procedure-with-setter Ag record-accessor Bg record-modifier Cg make-syntax-transformer DC EC Fg macro Gg $sc-dispatch HG IG Jg _ Kg any LJK Mg
syntax->datum NM OM Pg
datum->syntax QP RP Sg begin T# Ug define Vg nameS Wg quote Xg syntax-violation YX ZX [f -source expression failed to match any pattern \g resolve-module ]g spec ^] _g
module-bound? `g
module-ref ag error bf no such language cg *compilation-cache* dg *decompilation-cache* eg reverse! fg memq gg or-map hg compute-translation-order ig assoc-ref jg and=> kg parameter-fluidC 5 h
]4
&')5 4, > " G 4-i.:5;R/01234 5 6789<i 4=i;i5 > h . - 1 3 L4 L 5@ & g args
C O R4?i;i5R4@i4Ai;i/54Bi;i/55R4@i4Ai;i054Bi;i055R4@i4Ai;i154Bi;i155R4@i4Ai;i254Bi;i255R4@i4Ai;i354Bi;i355R4@i4Ai;i454Bi;i455R4@i4Ai;i554Bi;i555 R4@i4Ai;i654Bi;i655 R4@i4Ai;i754Bi;i755 R4@i4Ai;i854Bi;i855 R4@i4Ai;i954Bi;i955 R4EFILORSTUVW h( x - 1 3 Cp g name
( g spec ( g filenamef system/base/language.scm
7
8 (
C h l ] 4 5 L 4?6d g args
g v g filenamef system/base/language.scm 7
CZ[ h( j ] 4 5 $ O @ 6 b g y
' g tmp ' g filenamef system/base/language.scm
7
' C5R\^_`ab h0 ] 4 5 4 5$ 6 6 g name
. g m . g filenamef system/base/language.scm
<
= = = = > > & ? * @ . @ . g nameg lookup-language CRcRdRdc h ] C g filenamef system/base/language.scm
E
F F G G
g nameg invalidate-compilation-cache! C#Refg h ~ ]L L L6 v g pair
g filenamef system/base/language.scm
T U U 2
U & U C hX ]4 5$ 3 L & 64 5$ C LO 4L 564 5 " g from
Q g seen Q g filenamef system/base/language.scm
N P
O R S ( O 8 V @ T
A Q Q Q Q g nameg lp Ch h8 ] 45$ O Q 6 456 g from
6 g to 6 g language-translators 6 g lp ' g filenamef system/base/language.scm
I
K
J N % N ' N , L $ 6 L 6 g nameg compute-translation-order ChRich h8 ] 45 $ C4 5 C g from
7 g to 7 g key 7 g t 7 g order ( 7 g filenamef system/base/language.scm
X
Y
Y
Z Z [ ( [ / ] 4 \
7 g nameg lookup-compilation-order C!Ridjh e h@ ] 45 $ C44 55 C g from
> g to > g key > g t > g order / > g filenamef system/base/language.scm
`
a
a
b b d ! e / d / d 6 g & ; g
> g nameg lookup-decompilation-order C"R h( ]44 5$ " 4 556 g lang
! g filenamef system/base/language.scm
j
l m m m l ! l ! g nameg default-environmentg
documentationf DReturn the default compilation environment for source language LANG. C$R4ki(i5%RC g m
0 g slots
u g constructor u g filenamef system/base/language.scm
> *
O 0
T 1 *
<
B B
C C
o E
I
X
j `
j
v
v
C6 PK ! 3L L system/base/syntax.gonu [ GOOF----LE-8-2.0L ] 4 h ] g guile g define-module* g system g base g syntax
g filenameS f system/base/syntax.scm g exportsS
g %compute-initargs g define-type g
define-record g define-record/keywords g record-case g transform-record
g set-current-module g string->symbol g string-trim-both g symbol->string g symbol-trim-both g list->char-set <> g
trim-brackets g make-syntax-transformer !g macro "g $sc-dispatch #" $" %g _ &g any '%& (g
syntax->datum )( *( +g
datum->syntax ,+ -+ .g
kw-arg-ref /g printerS 0g common-slotsS 1g begin 2g append 32 42 5g map 6g define 7g
symbol-append 8g - 9g make-procedure-with-setter :g lambda ;g x <; =g
struct-ref >g v ?;> @g struct-set! A> Bg iota Cg length Dg syntax-violation ED FD Gf -source expression failed to match any pattern Hg make-record-type Ig quote Jg list-tail Kg
module-gensym Lf defrec Mg make- Ng let Og cond Pg null? Qg else Rg _x Sg car Tg set! Ug cdr VR Wg make-struct Xg ? Yg record-predicate Zg record-accessor [g record-modifier \g slots ]g list ^g cons _g constructor `g record-constructor ag args bg apply c
a\ db_c e:ad fe gg assq hg error if unbound slot jg keyword? kg keyword->symbol lg memq mg filter ng pair? of unknown slot pf slot already set qf too many initargs rg each-any s&r t%s ug
syntax-object vg r wg top xw yg ribcage zg record {g clause |z{ }xx ~f l-3d2ad63ef-21d f l-3d2ad63ef-21e ~ y|} y ; x f l-3d2ad63ef-21a y x g hygiene uv g rtd u g reverse! g lp g clauses g out xxx f l-3d2ad63ef-265 f l-3d2ad63ef-266 f l-3d2ad63ef-267 y g process-clause x f l-3d2ad63ef-225 y v f l-3d2ad63ef-221 f l-3d2ad63ef-222 y} x uQ uh f unhandled record u uv g free-id s g e0 g e1 f l-3d2ad63ef-26f f l-3d2ad63ef-270 y} x
uQ & f bad else clause placement g rest f l-3d2ad63ef-275 f l-3d2ad63ef-276 f l-3d2ad63ef-277 y x
u; uQ sr & && r g infix f l-3d2ad63ef-22e y g tag g fields g exprs f l-3d2ad63ef-22b f l-3d2ad63ef-22c f l-3d2ad63ef-22d y x u g each && &s g eq? g f g accessor xxxxx f l-3d2ad63ef-233 f l-3d2ad63ef-234 f l-3d2ad63ef-235 f l-3d2ad63ef-236 f l-3d2ad63ef-237 y x
u u uN 5 5 uv &&r g let* g processed v f l-3d2ad63ef-25e f l-3d2ad63ef-25f f l-3d2ad63ef-260 y x u g
struct-vtable u uO f rec f rtd g -> g unquote f bad -> form g < g > g and g reverse g if
C 5 h9 r ]4
5 4 > " G h ]44 556 g sym
g pred g filenamef system/base/syntax.scm
$ g nameg symbol-trim-both CR h ] 456 g sym
g filenamef system/base/syntax.scm
(
g nameg
trim-brackets C R4 !$'*-./01454 h( ]L$ L " 4L 5C g def
& g filenamef system/base/syntax.scm
( )
) (
* / * , + , ) ! - # )
& C67 89:<=;?@A
h@ ]44L 5 5
C g common-slot
? g i ? g filenamef system/base/syntax.scm
/ 0 0 ! 0 0 1 0 0 ! 0 ? CBC h - 1 3 $ " $ " 4545 $ " 44O 54O 4 4
5555C z g name
g rest g name ( g opts ( g t > P g printer P g common-slots P g filenamef system/base/syntax.scm
#
$ $ $ % % # % ( % * ( $ - & 6 ' > ' M ' = P & V ( Z ( j / v 5 " y 5 ( 5 " / (
C h j ] 4 5 L 4?6b g args
g v g filenamef system/base/syntax.scm #
CFG h( h ] 4 5 $ O @ 6 ` g y
' g tmp ' g filenamef system/base/syntax.scm
#
' C5R4 !$'*-5 h t ] $ C Cl g slot
g filenamef system/base/syntax.scm
? ? - ? ) ? : C 16HI h( ] ( " $ C 4L 5C g slots
% g filenamef system/base/syntax.scm
E F F F ; F 2 F - F G H ! H - ! H 1 # H - $ H % g nameg lp CJCKL7M4NOPQNRSTUV
hH y ] L L L L C q g o
E g filenamef system/base/syntax.scm
L M M M ; M E CWXY6789ZI[ h8 ]4L 5L L C } g sname
4 g filenamef system/base/syntax.scm
T U U U . U U 4 C h - 1 3 $ " $ " 45 45 45 $ " O Q 45 4
4 55 4
5 45454O 5
45 4O 5C g name-form
g slots g name g printer + g
slot-names 6 g stem ? g lp u g reqs g opts g tail
g filenamef system/base/syntax.scm
<
= = = % = > " > % > ) + = . ? 6 = 9 A ? = C B J C ( R B ] D ) b D 5 g D D h B u E E I I & I E J J $ J E K
K K $ K K
L K
B S S $ S B T B -
C h j ] 4 5 L 4?6b g args
g v g filenamef system/base/syntax.scm <
CFG h( h ] 4 5 $ O @ 6 ` g y
' g tmp ' g filenamef system/base/syntax.scm
<
' C5R4 !$'*-5 h t ] $ C Cl g slot
g filenamef system/base/syntax.scm
` ` - ` ) ` : C 16HI7MN\]^I h( ] $ C C g slot
# g filenamef system/base/syntax.scm
g # h ) h % i ) i 2 i ) i > i ) j )
# C_`fXY6789ZI[ h8 ]4L 5L L C } g sname
4 g filenamef system/base/syntax.scm
p q q q . q q 4 C h - 1 3 $ " $ " 45 45 45 $ " 4
5
45 4 5 4O 5C g name-form
g slots g name g printer + g
slot-names 6 g stem ? g filenamef system/base/syntax.scm
]
^ ^ ^ % ^ _ " _ % _ ) + ^ . ` 6 ^ 9 b ? ^ C c J d ( R c ] e ) b e 5 g e D h c p f t f x f z c g c o o $ o c p c !
C h j ] 4 5 L 4?6b g args
g v g filenamef system/base/syntax.scm ]
CFG h( h ] 4 5 $ O @ 6 ` g y
' g tmp ' g filenamef system/base/syntax.scm
]
' C5R5ghi h@ ] $ " 4L 5 $ C $ CLL6 g slot
@ g name @ g t @ g filenamef system/base/syntax.scm
y z z z ( z { {
, | 0 {
3 | ! 8 } @ }
@ Cjklgmnhopq
h ]"" ( O 645$ i45 45$ " 4455$
645$
6 "t(
6 $ " "5 "& g args
g slots g in g
positional g out g sym 1 g slot g filenamef system/base/syntax.scm
w
y # % ) * / " 1 1 4 @
F K U V Z ^ b
c
o s y | ~ , !
$ - / g nameg %compute-initargs C
R4 !$t$ h T ] L 6 L g filenamef system/base/syntax.scm
C h u ] L 6 m g e0
g e1 g filenamef system/base/syntax.scm CD h ] 6 g e0
g e1 g rest g filenamef system/base/syntax.scm & & C ($ h ] C
C+78( h( ] 4L4L45554L 5C g v0
% g f0 % g f1 % g filenamef system/base/syntax.scm (
7 L O 7 ( ! ( $ !
% Cs+78( h( ] 4L4L4 5554L 5C g f0
% g f1 % g filenamef system/base/syntax.scm (
7 L O 7 ( ! ( $ !
% CFG hh ]4 5 $ @4 5 $ L LLO @4 5 $ L LLO @ 6 g fields
a g tmp
a g tmp ! a g tmp A a g filenamef system/base/syntax.scm
a g nameg lp C$ h ] C
Cs h : ] C2 g e0
g e1 CFG h X ] C P g tmp-3d2ad63ef-23e
g tmp-3d2ad63ef-23d
C h( p ] 45 C h g tag
# g f # g accessor # g e0 # g e1 # # C h B ] L44 55 O L Q 45 45 $ 4?" )45 $ 4?"
4 5 4
5 $ 4 ?"
4 5 L6 : g <foo>
g f0 g e0 g rest g infix g lp 3 g tmp ; z g tmp W w g tmp } g tmp
g filenamef system/base/syntax.scm
' }
CFG h ]"4 5 $ O @4 5 $ O @4 5 $ @4 5 $ L LO @
6 g clauses
y g out y g tmp
y g tmp & y g tmp B y g tmp Y y g filenamef system/base/syntax.scm
y g nameg lp C$ h( Q ] L C I g r
# g rtd # g processed # # CFG hP ]O L Q 45 45 $ O @6 g record
K g clause K g lp ! g tmp $ K g tmp / K g filenamef system/base/syntax.scm $ K CFG h( j ] 4 5 $ O @ 6 b g x
' g tmp ' g filenamef system/base/syntax.scm
' C5R4 !$'*-K 278I h ]#" ( C$ $
"$ 644L44L 55 55 "44L 55 "^ "Q "F g x
g record-stem g slots g in g out g slot g arg g filenamef system/base/syntax.scm
' + . 8 ; ? B C F $ I L R V X 2 \ a d 8 g 8 i $ m u x
! z
0 { ~ 2
0
*
0 g nameg further-predicates C782 h ]#" ( C$ $ ,44L 55 "$ 644L44L 55 55 "r "e 44L 55 "0 "% g x
g record-stem g slots g in g out g slot g arg g slot g filenamef system/base/syntax.scm
' + . 1 4 : > @ 2 D I L " O W Z ^ a b e $ h k q u w 2 { 1 1 $ ! " " . " & 2 " " ! ; g nameg let-clauses CC7M845 h ] $ & L 6 C C g y
g filenamef system/base/syntax.scm
* + ' + + 6 + > + " , 2 , " Ch hx ] $ g & O4 5 $ 9 4 4L 5 54L4LO 55C
6 4L 5C C g x
s g form $ Y g s . > g filenamef system/base/syntax.scm
# $ $ % % $ & & &
# ' $ ' ' ( + ( % . ( 7 . ( , 1 7 ; @ ( A ( F ) G * S . U * W ( ] / a / d 0 e 0 l 0 4 n 0 o 0 ! s g nameg transform-expr CQ78N5 h ]! & C 44L55 L 44LL55 44LL55$
4
L5" C g clause
g stem g slots g body g record-type 3 g filenamef system/base/syntax.scm
1 2 2 2 4 5 6 4
7 $ 7 . % + / 1 7 B 3 7 3 7 7 8 A 9 D 9 P 9 Q 8 U : X : d : g ; k ; l < z = { 8 g nameg process-clause C578 h ] 4L 5L Cy g slot
g filenamef system/base/syntax.scm
@ A COgQ2h h L - 1 3 45454 5 O O O O Q Q Q Q
4 O 5
4 5
4
5$
" 4
5
C D g type-and-common
g record g clauses g r g rtd g type-stem g further-predicates N g let-clauses N g transform-expr N g process-clause N g clauses
g filenamef system/base/syntax.scm
" v > @ B @ > C C D D D D F F % F >
C h k ] 4 5 L 4?6c g args
g v g filenamef system/base/syntax.scm
CFG h( i ] 4 5 $ O @ 6 a g y
' g tmp ' g filenamef system/base/syntax.scm
' C5RCj g m
( g filenamef system/base/syntax.scm
w
9
C6 PK ! y system/base/lalr.gonu [ GOOF----LE-8-2.0p ]b 4 hg ] g guile g define-module* g system g base g lalr
g filenameS f system/base/lalr.scm g importsS
g srfi g srfi-9
g exportsS g lalr-parser g print-states g make-lexical-token g lexical-token? g lexical-token-category g lexical-token-source g lexical-token-value g make-source-location g source-location? g source-location-input g source-location-line g source-location-column g source-location-offset g source-location-length !g "source-location->source-properties "g lr-driver #g
glr-driver $ !"# %g set-current-module &% '% (f 2.5.0 )g *lalr-scm-version* *g process-use-modules +* ,* -g ice-9 .g pretty-print /-. 0/ 1g pprint 2g symbol? 3g
lalr-keyword? 4g make-syntax-transformer 54 64 7g
BITS-PER-WORD 8g macro 9g $sc-dispatch :9 ;9 <g _ =g any ><= ?g
syntax->datum @? A? Bg
datum->syntax CB DB Eg syntax-violation FE GE Hf -source expression failed to match any pattern Ig
logical-or Jg logior Kg
lalr-error Lg error Mg supports-source-properties? Ng source-property Og loc Pg
lexical-token Qg set-source-property! Rg throw-bad-struct SR TR Ug note-source-location Vg %make-lexical-token-procedure W<=== Xg
syntax-object Yg lambda Zg m-1e9d51c93-35 [g top \Z[ ]g ribcage ^g t-1e9d51c93-32 _g t-1e9d51c93-33 `g t-1e9d51c93-34 a^_` b\\\ cf l-1e9d51c93-3a df l-1e9d51c93-3b ef l-1e9d51c93-3c fcde g]abf h] ig x ji k\ lf l-1e9d51c93-37 ml n]jkm og shift pg proc-name qg args rpq s[ tss uf l-1e8ba8b5a-60 vf l-1e8ba8b5a-61 wuv x]rtw yg key zg value {g name |g formals }g body ~yz{|} sssss f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 ]~ g make-procedure-name s f l-1e8ba8b5a-43 ] s f l-1e8ba8b5a-42 ]j \ghnohhhhx
g hygiene
XY g category sghn X g source X Xz g make-struct g m-1e9d51c93-30 [ g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 [ f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a ] g ctor-args f l-1e8ba8b5a-120 ] g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d ]t g form g type-name g constructor-spec g field-names ssss f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 ] g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers ssssssss 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 ] f l-1e8ba8b5a-da ]j ghnohhhhh X XP X
g each-any <ጤ E E f Wrong number of arguments g identifier? shn XV g record-type-vtable g pwpwpw g default-record-printer z g set-struct-vtable-name! g vtable-offset-user g %lexical-token?-procedure <= g m-1e9d51c93-46 [ g t-1e9d51c93-45 f l-1e9d51c93-4b ] f l-1e9d51c93-48 ]j hohhhhx
XY 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 [ 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 ] g copier-id f l-1e8ba8b5a-21c !] "g ctor-name #" $f l-1e8ba8b5a-214 %$ &]#% ' (f l-1e8ba8b5a-212 )( *]') +g layout ,+ -f l-1e8ba8b5a-210 .- /],. 0g
immutable? 10 2f l-1e8ba8b5a-20e 32 4]13 5g field-count 65 7f l-1e8ba8b5a-20c 87 9]68 :g
getter-ids ;: <f l-1e8ba8b5a-209 =< >];= ?g field-ids @? Af l-1e8ba8b5a-206 BA C]@B Dg predicate-name Eg
field-spec F0DE Gssssss Hf l-1e8ba8b5a-1f9 If l-1e8ba8b5a-1fa Jf l-1e8ba8b5a-1fb Kf l-1e8ba8b5a-1fc Lf l-1e8ba8b5a-1fd Mf l-1e8ba8b5a-1fe NHIJKLM O]FGN Phoh hhhh!h&h*h/h4h9h>hCO QXP RQ Sg and TXSP Ug struct? VXUP WVQ Xg eq? YXXP Zg
struct-vtable [XZP \[Q ]sh ^XP] _Y\^ `TW_ aR` bsh cXb dg !%lexical-token-category-procedure eg free-id fg
%%on-error gg m-1e9d51c93-52 hg[ ih jf l-1e9d51c93-54 kj l]jik mhhlohhhhx nXfm oen po= qg %%type rg t-1e8ba8b5a-14b sg t-1e8ba8b5a-14c tg t-1e8ba8b5a-14d ug t-1e8ba8b5a-14e vg t-1e8ba8b5a-14f wg t-1e8ba8b5a-150 xg t-1e8ba8b5a-151 yrstuvwx zg m-1e8ba8b5a-152 {z[ |{{{{{{{ }f l-1e8ba8b5a-156 ~f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c }~ ]y| g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a ]t : sss f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 ] hlohhhhh Xq e <p= g ck g err g s hh f l-1e9d51c93-57 f l-1e9d51c93-58 ] hhlohhhhx
X g quote X shl XP g %%index X e <p= f l-1e9d51c93-5c f l-1e9d51c93-5d ] hhlohhhhx
X X hl X
g %%copier X e <p= f l-1e9d51c93-61 f l-1e9d51c93-62 ] hhlohhhhx
X X g %%lexical-token-set-fields shl X g t-1e9d51c93-51 f l-1e9d51c93-66 ]i hhlohhhhx
XY hlohhhhh X g if X XX XZ shl XP g
struct-ref X hl X
XR X X shl Xd g %lexical-token-source-procedure g m-1e9d51c93-6d [ f l-1e9d51c93-6f ]j hohhhhx Xf e = hohhhhh Xq e <= f l-1e9d51c93-72 f l-1e9d51c93-73 ] hohhhhx
X X sh XP X e <= f l-1e9d51c93-77 f l-1e9d51c93-78 ]
hohhhhx
X
X
h X
X e <= f l-1e9d51c93-7c f l-1e9d51c93-7d ] hohhhhx
X X sh X g t-1e9d51c93-6c !f l-1e9d51c93-81 "! #] " $#hohhhhx
%XY$ &#hohhhhh 'X& (' )X& *XX& +XZ& ,+' -s#h .XP- /*,. 0X& 1#h 2X 1 30'2 4XR& 5X& 6X- 756 84'7 9)/38 :%(9 ;sh <X; =g %lexical-token-value-procedure >g m-1e9d51c93-88 ?>[ @? Af l-1e9d51c93-8a BA C]j@B D?hCohhhhx EXfD FeE GF= HhCohhhhh IXqH JeI K<GJ= L?? Mf l-1e9d51c93-8d Nf l-1e9d51c93-8e OMN P]LO Q?PhCohhhhx
RXQ SXQ TsPhC UXPT VSU WV XXH YeX Z<GY= [f l-1e9d51c93-92 \f l-1e9d51c93-93 ][\ ^]L] _?^hCohhhhx
`X_ aX_ b^hC cX b dac ed fXH gef h<Gg= if l-1e9d51c93-97 jf l-1e9d51c93-98 kij l]Lk m?lhCohhhhx
nXm oXm pslhC qXp roq sr tg t-1e9d51c93-87 ut vf l-1e9d51c93-9c wv x]u@w y?xhCohhhhx
zXYy {xhCohhhhh |X{ }| ~X{ XX{ XZ{ | sxhC XP X{ xhC X | XR{ X{ X | ~ z} shC X= g each == = = = g %%set-fields g dummy g check? g expr g m-1e9d51c93-a3 [ f l-1e9d51c93-a8 f l-1e9d51c93-a9 f l-1e9d51c93-aa f l-1e9d51c93-ab f l-1e9d51c93-ac ] f l-1e9d51c93-a5 ]j g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d [ f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 ] f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 ] hohhhh
X sh XP X X X g map g list g source-location g %make-source-location-procedure <===== g m-1e9d51c93-bc [ g t-1e9d51c93-b7 g t-1e9d51c93-b8 g t-1e9d51c93-b9 g t-1e9d51c93-ba g t-1e9d51c93-bb f l-1e9d51c93-c1 f l-1e9d51c93-c2 f l-1e9d51c93-c3 f l-1e9d51c93-c4 f l-1e9d51c93-c5 ] f l-1e9d51c93-be ]j hohhhhx
XY g input sh X g line X g column X g offset X g length X g m-1e9d51c93-b5 [ hohhhhh X X X
sh X g
pwpwpwpwpw g %source-location?-procedure g m-1e9d51c93-d1 [ g t-1e9d51c93-d0 f l-1e9d51c93-d6 ] f l-1e9d51c93-d3 ]j hohhhhx
XY hoh hhhh!h&h*h/h4h9h>hCO X
XS XU
XX XZ sh X
sh X g %source-location-input-procedure g m-1e9d51c93-dd [ f l-1e9d51c93-df ]j h ohhhhx Xf e ! = "h ohhhhh #Xq" $e# %<!$= & 'f l-1e9d51c93-e2 (f l-1e9d51c93-e3 )'( *]&) +*h ohhhhx
,X+ -X+ .s*h /X. 0-/ 10 2X" 3e2 4<!3= 5f l-1e9d51c93-e7 6f l-1e9d51c93-e8 756 8]&7 98h ohhhhx
:X9 ;X9 <8h =X
< >;= ?> @X" Ae@ B<!A= Cf l-1e9d51c93-ec Df l-1e9d51c93-ed ECD F]&E GFh ohhhhx
HXG IXG Jg %%source-location-set-fields KsFh LXJK MIL NM Og t-1e9d51c93-dc PO Qf l-1e9d51c93-f1 RQ S]PR TSh ohhhhx
UXYT VSh ohhhhh WXV XW YXV ZXXV [XZV \[W ]sSh ^X] _Z\^ `XV aSh bX
a c`Wb dXRV eXV fX ] gef hdWg iY_ch jUXi ksh lXk mg %source-location-line-procedure ng m-1e9d51c93-f8 on[ po qf l-1e9d51c93-fa rq s]jpr tohsohhhhx uXft veu wv= xhsohhhhh yXqx zey {<wz= |oo }f l-1e9d51c93-fd ~f l-1e9d51c93-fe }~ ]| ohsohhhhx
X X shs X Xx e <w= f l-1e9d51c93-102 f l-1e9d51c93-103 ]| ohsohhhhx
X X hs X Xx e <w= f l-1e9d51c93-107 f l-1e9d51c93-108 ]| ohsohhhhx
X X shs XJ g t-1e9d51c93-f7 f l-1e9d51c93-10c ]p ohsohhhhx
XY hsohhhhh X X XX XZ shs X X hs X XR X X shs Xm g !%source-location-column-procedure g m-1e9d51c93-113 [ f l-1e9d51c93-115 ]j hohhhhx Xf e = hohhhhh Xq e <= f l-1e9d51c93-118 f l-1e9d51c93-119 ] hohhhhx
X X sh X X e <= f l-1e9d51c93-11d f l-1e9d51c93-11e ] hohhhhx
X X h X X e <= f l-1e9d51c93-122 f l-1e9d51c93-123 ] hohhhhx
X X sh XJ g t-1e9d51c93-112 f l-1e9d51c93-127 ] hohhhhx
XY hohhhhh X X XX XZ sh X
X h X
XR X X
sh X g !%source-location-offset-procedure g m-1e9d51c93-12e [ f l-1e9d51c93-130 ]j h ohhhhx Xf e ! = "h ohhhhh #Xq" $e# %<!$= & 'f l-1e9d51c93-133 (f l-1e9d51c93-134 )'( *]&) +*h ohhhhx
,X+ -X+ .s*h /X. 0-/ 10 2X" 3e2 4<!3= 5f l-1e9d51c93-138 6f l-1e9d51c93-139 756 8]&7 98h ohhhhx
:X9 ;X9 <8h =X < >;= ?> @X" Ae@ B<!A= Cf l-1e9d51c93-13d Df l-1e9d51c93-13e ECD F]&E GFh ohhhhx
HXG IXG JsFh KXJJ LIK ML Ng t-1e9d51c93-12d ON Pf l-1e9d51c93-142 QP R]OQ SRh ohhhhx
TXYS URh ohhhhh VXU WV XXU YXXU ZXZU [ZV \sRh ]X\ ^Y[] _XU `Rh aX ` b_Va cXRU dXU eX \ fde gcVf hX^bg iTWh jsh kXj lg !%source-location-length-procedure mg m-1e9d51c93-149 nm[ on pf l-1e9d51c93-14b qp r]joq snhrohhhhx tXfs uet vu= whrohhhhh xXqw yex z<vy= {nn |f l-1e9d51c93-14e }f l-1e9d51c93-14f ~|} ]{~ nhrohhhhx
X X shr X Xw e <v= f l-1e9d51c93-153 f l-1e9d51c93-154 ]{ nhrohhhhx
X X hr X Xw e <v= f l-1e9d51c93-158 f l-1e9d51c93-159 ]{ nhrohhhhx
X X shr XJ g t-1e9d51c93-148 f l-1e9d51c93-15d ]o nhrohhhhx
XY hrohhhhh X X XX XZ shr X X hr X XR X X shr Xl g m-1e9d51c93-164 [ f l-1e9d51c93-169 f l-1e9d51c93-16a f l-1e9d51c93-16b f l-1e9d51c93-16c f l-1e9d51c93-16d ] f l-1e9d51c93-166 ]j hohhhh
X sh X X X X X X g make-vector g list->vector g reverse
g max g display f Error in map-goto g newline g expt g bidon f Error in add-lookback-edge : g assv g assq g reduce g left g right g none f %% Shift/Reduce conflict (shift f , reduce f ) on ' f ' in state f "%% Reduce/Reduce conflict (reduce g default g accept g for-each g number? g list-ref g *default* g *error* g left: g right: g nonassoc: f +invalid operator precedence specification: 猤 茤 g nonassoc g member f "duplicate definition of terminal: f invalid terminal: g assoc f Nonterminal previously defined: f Invalid nonterminal: f /Nonterminal definition must be a non-empty list g *eoi* g eoi
L
g *start* g car
f -Grammar must contain at least one nonterminal g cdar g append g : g $1 f <Grammar definition must have a non-empty list of productions f Invalid token list: f undefined symbol : g prec: f *prec: directive should be at end of rule: f Invalid prec: directive: f !Invalid terminal or nonterminal: g symbol->string f Invalid terminal or nonterminal: f TInvalid 'error' production. A single terminal symbol must follow the 'error' token.: g vector g string->symbol g
string-append f - !g number->string "f $ #f /At least one production needed for nonterminal: $g vector->list % &g ___stack 'g ___sp (g
___goto-table )g ___push *g
yypushback +&'()* ,'() -g let* .g tok /g
vector-ref 0g - 1. 2. 312. 43 5f @ 6. 716. 87 9 : ;' <g output: =g with-output-to-file >g define ?f Malformed lalr-parser form @f Invalid option: Ag expect: Bg driver: Cg glr Dg
out-table: Ef State table Ff ----------- Gf state Hf If --> Jf . Kf Lf (rule Mf ) Nf default action Of : Error Pf : Accept input Qf : reduce using rule Rf : shift and goto state Sf No generated parser available! Tg string? Ug integer? Vg memq Wg lr XWC Yg combine-locations Zg *max-stack-size* [g
vector-length \f %Syntax error: unexpected end of input ]f !Syntax error: unexpected token : ^f Syntax error: invalid token: _g
take-right `g drop ag filenameC 5 hL ]4
$5 4' > " G ()R4,0 > " G 4, > " G .i1R2i3R4678;>AD h P ] C H g filenamef system/base/lalr.upstream.scm
S
C h r ] 4 5 L 4?6j g args
g v g filenamef system/base/lalr.upstream.scm S CGH h( p ] 4 5 $ O @ 6 h g y
' g tmp ' g filenamef system/base/lalr.upstream.scm
S ' C57R46I8;>ADJ h x - 1 3 C p g x
g y g filenamef system/base/lalr.upstream.scm
T T #
C h r ] 4 5 L 4?6j g args
g v g filenamef system/base/lalr.upstream.scm T CGH h( p ] 4 5 $ O @ 6 h g y
' g tmp ' g filenamef system/base/lalr.upstream.scm
T ' C5IR46K8;>ADL h { ] C s g msg
g obj g filenamef system/base/lalr.upstream.scm
U U % C h r ] 4 5 L 4?6j g args
g v g filenamef system/base/lalr.upstream.scm U CGH h( p ] 4 5 $ O @ 6 h g y
' g tmp ' g filenamef system/base/lalr.upstream.scm
U ' C5KRMNOPQT hp ]4 5$ ^4 5$ " $
" $ 24 & " 45> " G " " C g lvalue
n g tok n g filenamef system/base/lalr.upstream.scm
V W
W X X * X W " Y
5 W 6 Z < Z % ? Z * [ Z n g nameg note-source-location CURP h ] C g category
g source g value g filenamef system/base/lalr.upstream.scm
x
g nameg %make-lexical-token-procedure CVR468;W h n ] C f g t-1e9d51c93-32
g t-1e9d51c93-33 g t-1e9d51c93-34 C h ` ]L 6 X g a
g filenamef system/base/lalr.upstream.scm x
C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x
C h ] C
CGH 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 system/base/lalr.upstream.scm
x
n C5RP 4 P> " G Vi PRP h ] $ CC g obj
g filenamef system/base/lalr.upstream.scm
x
g nameg %lexical-token?-procedure CR468;a h 6 ] C . g t-1e9d51c93-45
C h ` ]L 6 X g a
g filenamef system/base/lalr.upstream.scm x
C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x
Cc h ] C
CGH 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 system/base/lalr.upstream.scm
x
n C5RPT h ] &
C 6 g s
g filenamef system/base/lalr.upstream.scm
x
g nameg !%lexical-token-category-procedure CdR468; 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 6 ] C . g t-1e9d51c93-51
C h ` ]L 6 X g a
g filenamef system/base/lalr.upstream.scm x
C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x
C h ] C
CGH 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 system/base/lalr.upstream.scm
x
C5RPT h ] & C 6 g s
g filenamef system/base/lalr.upstream.scm
x
g nameg %lexical-token-source-procedure CR468; 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 6 ] C . g t-1e9d51c93-6c
C h ` ]L 6 X g a
g filenamef system/base/lalr.upstream.scm x
C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x
C< h ] C
CGH 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 system/base/lalr.upstream.scm
x
C5RPT h ] & C 6 g s
g filenamef system/base/lalr.upstream.scm
x
g nameg %lexical-token-value-procedure C=R468;KRW h : ]C 2 g err
g s CZ`e h : ]C 2 g err
g s Chns h : ]C 2 g err
g s C h 6 ] C . g t-1e9d51c93-87
C h ` ]L 6 X g a
g filenamef system/base/lalr.upstream.scm x
C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x
C h ] C
CGH 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 system/base/lalr.upstream.scm
x
C5R468; h v ]45C n g dummy
g check? g s g getter g expr CGH h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef system/base/lalr.upstream.scm
x
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R h ] C g input
g line g column g offset g length g filenamef system/base/lalr.upstream.scm
g nameg %make-source-location-procedure CR468; h ] C g t-1e9d51c93-b7
g t-1e9d51c93-b8 g t-1e9d51c93-b9 g t-1e9d51c93-ba g t-1e9d51c93-bb C h a ]L 6 Y g a
g filenamef system/base/lalr.upstream.scm
C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm
C h ] C
CGH 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 system/base/lalr.upstream.scm
n C5R 4 > " G i R h ] $ CC g obj
g filenamef system/base/lalr.upstream.scm
g nameg %source-location?-procedure CR468; h 6 ] C . g t-1e9d51c93-d0
C h a ]L 6 Y g a
g filenamef system/base/lalr.upstream.scm
C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm
C h ] C
CGH 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 system/base/lalr.upstream.scm
n C5RT h ] &
C 6 g s
g filenamef system/base/lalr.upstream.scm
g nameg %source-location-input-procedure CR46 8;%,1 h : ]C 2 g err
g s C4:? h : ]C 2 g err
g s CBHN h : ]C 2 g err
g s Cj h 6 ] C . g t-1e9d51c93-dc
C h a ]L 6 Y g a
g filenamef system/base/lalr.upstream.scm
C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm
Cl h ] C
CGH 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 system/base/lalr.upstream.scm
C5 RT h ] & C 6 g s
g filenamef system/base/lalr.upstream.scm
g nameg %source-location-line-procedure CmR46 8;{ 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 6 ] C . g t-1e9d51c93-f7
C h a ]L 6 Y g a
g filenamef system/base/lalr.upstream.scm
C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm
C h ] C
CGH 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 system/base/lalr.upstream.scm
C5 RT h ] & C 6 g s
g filenamef system/base/lalr.upstream.scm
g nameg !%source-location-column-procedure CR46 8; 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 7 ] C / g t-1e9d51c93-112
C h a ]L 6 Y g a
g filenamef system/base/lalr.upstream.scm
C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm
C h ] C
CGH 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 system/base/lalr.upstream.scm
C5 RT h ] & C 6 g s
g filenamef system/base/lalr.upstream.scm
g nameg !%source-location-offset-procedure CR46 8;%,1 h : ]C 2 g err
g s C4:? h : ]C 2 g err
g s CBHM h : ]C 2 g err
g s Ci h 7 ] C / g t-1e9d51c93-12d
C h a ]L 6 Y g a
g filenamef system/base/lalr.upstream.scm
C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm
Ck h ] C
CGH 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 system/base/lalr.upstream.scm
C5 RT h ] & C 6 g s
g filenamef system/base/lalr.upstream.scm
g nameg !%source-location-length-procedure ClR46 8;z 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 7 ] C / g t-1e9d51c93-148
C h a ]L 6 Y g a
g filenamef system/base/lalr.upstream.scm
C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm
C h ] C
CGH 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 system/base/lalr.upstream.scm
C5 R46J8; h v ]45C n g dummy
g check? g s g getter g expr CGH h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef system/base/lalr.upstream.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5JR468;>AD h8 ] " $$ C "
" g v1
1 g v2 1 g n 1 g i * g filenamef system/base/lalr.upstream.scm
$ $ ! $ * 1 g nameg bit-union Ch
]" $ L L L
$ tM
$ IM$ 4L> " G " #ML4L> " G " 4L> " G " 4L> " G " L L6 g p
g s4 g x
g ruleno g y g symbol 0 g filenamef system/base/lalr.upstream.scm
$
) ' $ # ' + 0 . 0 6 + : " ? 0 C & D & I - P & b ( i ( j ( o / r 7 w ( & - & ' $ g nameg loop2 C h@ ]
$ 0O L LL LLLQ LL 6C g s1
= g s3 = g loop2 ; g filenamef system/base/lalr.upstream.scm
6 5 7 # ; = g nameg loop C h ]45N4 5N45N4 5N
45N M
M N 45" #( " "45 "
" 4L > " G 4L> " G 4M 5N4M 54M
54M 54MM 5
" RM $
$ DM
$ ,M$ " ,M
"" " M
$ $ " M "$
"a
" PM
$ -
"
"
" "GO LL
Q 4
> " G "
"
4L> " G 4L> " G 4L > " G 4L
> " G C g terms
g
terms/prec g vars g gram g gram/actions g l A d g count A d g no-of-rules o g no-of-items o g squeue @ g rcount @ g rsets @ g relts
@ g r ' g s2 ' g p
' g *r ' g symbol . g r1 2 g
any-tokens 2 g symbol 7 g ruleno x g r2 ~ g p2 ~ g symbol g loop $ g filenamef system/base/lalr.upstream.scm
& ' / 4
6
7 A G
P & S 7 X ? [ 7 \ . d d o t | | } ~ ~ ~ }
1 " ( ' 2 7 # 7 = A D ! J * U 9 ] c f $ t u , x ~ 0 " ( $ : 7 * = 7 * * 1 : * . ( ' A Q a q _ C h ]N4N3N2N1N0N/N.N-N,N+N*4 5N)N(N'N&N%N$N#N"N!N N N N N NNNNNNNNNNNNNL LLL1LLL2L3LLLLL L
L L L
LO 6 g tokens
g gram g filenamef system/base/lalr.upstream.scm
! " # $ # % $ ' * ' 5 , ' . ' 1 ( 4 ) 7 * : + = , @ - C . F / I 0 L 1 O 2 R 3 U 4 X 5 [ 6 ^ 7 a 8 d 9 g : j ; m < p = s > v @ y A z B | B - g nameg gen-tables! C h ]K NN4M5N4M5N4M5N " ( C " n( "M M " 8
( M
"M
"
" "
"` g no-of-rules
g no-of-items g gram g p . g item-no . g rule-no . g nt : g prods @ g it-no2 @ g rl-no2 @ g rhs
i g it-no3 i g filenamef system/base/lalr.upstream.scm
E F F G H H I I J % J ( J * J . L 4 M 9 N : N
@ O F P I Q W Q ^ S e T i U o V t X 6 x X { Y # ~ Y / Y < Y [ 6 [ \ # \ - \ U U % U O O O L + g nameg pack-grammar C h ]0HH 4M
5K 4M 5K" NM$ AM
$ "J JJ " " "
"4M
5N " XM$ M" )
$ " )J " J " M "C
" g delts
g dset g i " p g j " p g lhs 0 l g i g j g s g x g q
g filenamef system/base/lalr.upstream.scm
_ ` ` ` a " c ' d
+ d 0 e 0 e
6 f : f E h / F h ' G h N i Q j T j \ j _ k i k p c { m m o p
p q r r t " t u " u 0 u * u q q " q : q q
v w w o .
g nameg set-derives C hX ]04M5N" m M$ `" Q( "MM $ "M$ M 4LM 5" " " M ""
"" $ " }M$ "M " $( " $4L M5 " " $
"M "
"y" "d" % M$ M 4L M 5 "C
" g i
} g sp n g sym 5 n g continue
g i g cont g x g l g z g y g i
( M g filenamef system/base/lalr.upstream.scm
$
# & , 3 > 4 - 5 5 < @ E N , W 9 Y , Z e k n
s y
}
' ' B / '
( -
1 6 " ? - A " B E K M C T
g nameg
set-firsts C h u ]4M5N4L> " G " S M$ H" $( " &4L M5 "M " M "C
" m g i
s g l - Q g fd - Q g x _ q g filenamef system/base/lalr.upstream.scm
%
) - 3 < = D < E ( I Q Q V " W = _ _
h k q s z
g nameg set-fderives C h@ ]9H4M5K" a( " _M $ :M$ -" ( " J "M "" " " "" M$ {J$ aM " J$ /$ " " " " "|" $ "6 " "@ g core
@ g ruleset @ g csp t g sym # t g dsp ; U g ruleno 2 g csp 2 g itemsetv 2 g itemno g c g itemsetv2 g c & g itemsetv2 &
g filenamef system/base/lalr.upstream.scm
" ' # #
* . 3 ; A J - L O U U Z ! ` k q t
+ % + +
% &
&
2 6 / @ = @ g nameg closure C h8 ](4M
5N4M5N
4M
> " G 4L > " G 4
5
NMN N
" $ 4L 5 4L > " G 4L> " G 4L> " G M
$ ]4
5
M M M$ M MN" NMN " "DCM ": g p
B l g
this-state
p . g x z , g is , g p g x g x g x g filenamef system/base/lalr.upstream.scm
'
" + ) ; " B I " N " T " Z [ " ` ! b ! f " i # p + s ,
w , z - z -
} . " . -
/ 0 1 2 2 # " # # # !
& 4 , 4 . + 7 6
g nameg generate-states C h < ]!N" M$ M ""
"" w$ l M
$ I4LM5NM ( MMM" M " " " "4M5N C 4 g itemset
g i % g isp 0 g i : g sym A g x [ g filenamef system/base/lalr.upstream.scm
7 9 9 : ;
; = & = > ! > % : 0 @ 3 A
7 A : B : B
A C A B
G D K D L F % V F [ G [ G c H j J = m J 7 n J w K 6 x K M , M & M N 6 N O O @ Q Q ) g nameg new-itemsets C h0 ]9M 45 " !(
" "
" M ( 4L 5 M
C" $ }" .$ $ "" " "$
C( 4L 5
C "o( 4L 5
C "I "A g sym
, g isp , g n , g isp1 7 g k 7 g key B , g sp I , g x X i g sp1 m $ g c r | g i1 g t g c g c g x g x g filenamef system/base/lalr.upstream.scm
U V V
W V X Y " Z ) [ . [ - / [ ( 7 [ 7 X B V I \ I V Q ] R ^ X ^
c _ ) d _ h " m a
r b ' r b y " } b b c d d e # f # e d g " g + g h c c 9 c - " c b i i " j j k k l $ l " n n j j k k l $ l " n $ n $ a
D , g nameg get-state C hh j ]!M 45 4
5 M
M$ MN" M MNMNC b g sym
c g isp c g n c g p c g n ) g filenamef system/base/lalr.upstream.scm
q r r
s r " r u & " / " 4 w
8 w < w G " N " U z V z Y { [ { ^ | ` | c g nameg new-state C h ] ( C4L 54L 5C g l
g filenamef system/base/lalr.upstream.scm
! * 0 * g nameg loop C h( ]O L Q 4 4M55 N C g loop
! g filenamef system/base/lalr.upstream.scm
# %
g nameg
append-states C h8 ] ( CM
$
4L 5C " g l
1 g item 1 g filenamef system/base/lalr.upstream.scm
2 ) $ / & ) ' + 1 1 g nameg loop C h ]O L Q 45 $ T4
5
45 M$ M MNC NMNCC g core
{ g itemset { g loop g rs { g p - y g x 3 > g x E P g filenamef system/base/lalr.upstream.scm
!
% & # -
3 " 3 ; # ? E M # W # ] d + e h ' j q ( s w { g nameg save-reductions C h ] M N 4L
> " G 4L > " G 4L> " G 4L> " G 4L> " G 4L> " G 4L> " G 4L> " G 4LM> " G L 6 g filenamef system/base/lalr.upstream.scm
/
+ ; K [ k {
g nameg lalr C h@ ]4M5N" " $ M
"CM " g l
2 g x 0 g filenamef system/base/lalr.upstream.scm
" " & " ' * 0 2 :
g nameg set-accessing-symbol C h8 ]4M5N" $ M
"CM " g l
0 g x . g filenamef system/base/lalr.upstream.scm
" # % ( . 0 8
g nameg set-shift-table C h8 ]4M5N" $ M
"CM " g l
0 g x . g filenamef system/base/lalr.upstream.scm
" # % ( . 0 8
g nameg set-reduction-table C hX $ ] " @M $ 1
$ " 45
"C
" g p
F g curmax F g length F g x F g filenamef system/base/lalr.upstream.scm
# % - 0 1 D F S
g nameg set-max-rhs C h ] ( C " g l
g filenamef system/base/lalr.upstream.scm
g nameg last C h X ]@O Q 4M
5N 4M
5N" M
$ MMM $ [ $ " $ M4 5M" $ "M "M "nMM
4 5 45N" *$ " $MM 4
5 "
"4 5N45N " wM
$ lM $
"M $ <" )(
"M " " "C
"
"w P g last
g count ( g i ( g rp B g sp B g t R ~ g c " g j g nelem g i & g np & g rp J g j V g np2 V g filenamef system/base/lalr.upstream.scm
" " $ ( -
1 8 = B B L P # R R e h 0 o # q 0 r $ u ! v # 1 # > , & + / 4 8 ; E J J R V \ _ ( i " p
> q
$ t + w 3 $ # " P
g nameg
initialize-LA C h ]`4M
5N4M
5 " $ k" K$ 7M M$ MM " " "4 5 "" M$ M "" M$ " M "
"NMMM MM4M5N4M5N" ( C
" R( " S M
M$ $
M M "
" " "}M "u
"
M "r g temp-map
g ng g sp g i ' r g ng2 ' r g symbol 4 e g s x g k g i g i g sp
g x g state1 g i ! s g state2 . j g symbol
5 g g k E ` g filenamef system/base/lalr.upstream.scm
! # ' * . 3 9 4 4 ; ? H , I ' J M ! P ) X [ e j r r s x 2 x $ # " # # # 8 # & ' & ( . ( & & * + , - % - . # .
0 2 2 # 2 ! 4 . 6 ) . 6 5 7 ) 5 6 < 8 @ 8 E 9 ) E 9 N : ? O : " V ; " ] < " m 4 1 s 4 x # ~ 4 0 ) 0 V
g nameg set-goto-map C h ]"" t$ +4 > " G 4> " G
C M $ C $
" "MM "x g state
g symbol g low z g high z g middle B z g s I z g filenamef system/base/lalr.upstream.scm
? @ B
B D D D D ) D > ? F # B F B F
I G I F
P I T H \ K ` H c L m L r N z N z @ @ A - A A @ g nameg map-goto C hX ]`4M 5N" * M $ " $M M 4
5 "
"4M 5 " M $ M M M $ " $ M M$ -M$ 4L5 " "M 4 5
"| $ 45" " "P" " "
"L 6 g i
: g nelem # 0 g reads
I V g i O F g rowp O F g rowf ] B g stateno d ? g sp k < g j w g edges w g symbol g b g x
g y g filenamef system/base/lalr.upstream.scm
Q R R S S S # S 8 & 1 S ' 4 S : S B U I U O W T X X X ] Y ] Y d Z d Y k [ k Y s \ w ] z ^ ~ ^ _ ? _ & _ ` ` a " a b ) b 7 b 1 b " d ) d " f . f
"
# g ' g h h
i 1 i ] # ] ; ' ] . j 1 j 9 j F W V k C V
g nameg initialize-F C h ]:4545 " .$ " ( "
"" n$ " h $ G" 7$ , " " "" "
"" !$ " "
"C g r-arg
g n g new-end g new-R g i H g x , ? g i S g sp e g sp2 r g x | g y g i g filenamef system/base/lalr.upstream.scm
| } ~ } # ) , , 5
<
B H S X \ e e j n
r u y | | * " - " / g nameg transpose C hP P ]" *( C M $ C "M " H g stateno
I g symbol I g j 0 g stno 0 g st2 0 g s 5 ? g filenamef system/base/lalr.upstream.scm
& 0 0 5 " 5 < # I I g nameg get-state C h( X ]O LL Q 4M5N" M$ " M MM
" $ " M
$ "4
5 " M$ " M " $ "
$ $M
$
"
" $ M
M
" M4> " G 4 > " G 4> " G " M
"d " z $
"M
$ AM $ %M
4L
5
"
"
"
"q
M "k M" M "? "
"4LMM5NC P g get-state
& g i g state1 : g symbol1 : g rulep B g edges B g *rulep L g rp R g stateno R g states R g *rp
W g st j g k ; g found * g i
* g done ? g stp ? g rp2
? g edgp ? g *rp W g filenamef system/base/lalr.upstream.scm
% ) 2 9 . : : B E I
L L R W W ] a b " j o ! v - # n $ n
n o p p p q q q r s s u y * y x v v v w w w w > * o 0 o 8 o ? E H & R W + W ^ & b " g & p 2 q - t - w - x 3 } = 3 - & & + + $ $ [ &
g nameg build-relations C hp ~ ](M M " X $ M" >$ .MM 4LM> " G " "M "C
" v g n
l g i
e g sp X g LA-i , O g F-j , O g filenamef system/base/lalr.upstream.scm
! & + , , , 1 I O R X X ] c e l
g nameg compute-lookaheads C h ]1MNMM M M L $ " $ y
M $ 4L> " G " M M $ M M " M M 4LM> " G " " "t" M $ F" >MM MNM M $ C4LM MM> " G ""C g i
g height g rp g rp2 + g j 5 g F-i g F-j g j g filenamef system/base/lalr.upstream.scm
# '
+ . 2 5 5 = > B C ] b c g p / q z ! !
# # 2 g nameg traverse C h ]1HHHHO LLL Q M K4M
5K4M
5K
K" CM$ 8
J$ $ $ 4> " G " " "C
" g relation
g infinity g INDEX g VERTICES g top g traverse g i W g filenamef system/base/lalr.upstream.scm
8 ; @ C F K " N W \
` f g k p q u v g nameg digraph C h ] M N C g rule
g sym g filenamef system/base/lalr.upstream.scm
g nameg add-rule-precedence! Co# hH ]SM 45 $ $ C"
MM4M5 $ M " c" QM
$ " J
M$
M M " "
M
" $ " - $ " & " & " $ M&
CC$ C
M M$ MM" M M N M&
CC
$ u
$ i
M M$ MM" M M N M&
C45C""M C g state
C g symbol C g
new-action C g
state-actions C g actions C g current-action 2 g rule 4 g t N g sym Y f g i n g prec n g item
s g i1 g sym g sym-prec g sym-assoc g rule-prec g key g n b g l g n g l g filenamef system/base/lalr.upstream.scm
O P P
Q P R R S " S & T * T 1 b 7 4 b ; < C
D F N Y " Y ` a n " s $ s $ y & } &
( ( ) ) + 4 + + , " " " 7 ;
: ; % <
: < % = : = % >
: > % ? % b - 1 d % 4 e 3 9 e R ; e A < e ) A f 3 D f ) O b S k & W k T X k ` ] l & b l ; b l / i m t " u ~ l M j % D D m % n 3 n R n A n ) o 3 o ) W W W W 3 W [ [ @ [ O [ [ \ \ 0 \ $ " \ B Z D D
] ^ ( ^ G ^ 6 ^ _ ( _ 6 ( _ = q 2 @ q , A q z C g nameg
add-action C h8 ]
" *M $ C4L > " G " " g state
7 g action 7 g i 0 g filenamef system/base/lalr.upstream.scm
t u v u w * u 0 u 7 g nameg add-action-for-all-terminals C# h y ]4 > " G 6 q g message
g filenamef system/base/lalr.upstream.scm
I J
K
C
hh ]pH O
O LLLLLLLL L Q L Q K 4M5N" M$ " M $ L $ >" M
" $
M M
" t M $ g
$ 4 > " G "
$
"
""
"y "S " sM
"> $ WM $ FM& 4
> " G " 4
> " G " "" "" " M $ _" L$ A M M$ 4M> " G " " " "" "
"4M
> " G 4J 5M$ J 6C g conflict-messages
c g
add-action c g add-action-for-all-terminals c g i N / g red ` g k | G g j 9 g rule 5 g lav 5 g token g x
g y g z g
in-la-set?
g shiftp & g k g state g symbol
g filenamef system/base/lalr.upstream.scm
4 > A A y F y , H y J y N { S | W { ` } ` } h ~ l # n ~ r ~ { 0 | | $ ' $ $ 4 " ( $ ( + & " - = - - & - 9 H & 3 & ) / 9 > D G K # M Q V + Z ^ b c h 4 m # n 7 o 4 t " + # . + ! &
# ) { / { 7 > C L G
U G
Y G a H
i c
g nameg build-tables C h d ])H" a$ V 4J5 45$ *
$ $ " JK" " " " "" <( C $ " "J
"\ g acts
g accums g l j g x f g y c g l v g max v g sym v g x g filenamef system/base/lalr.upstream.scm
# - 1 % 5 ; @ ) A $ B I + M % O Z ` j v |
" * ' g nameg most-common-action C h ]4L 5 C g act
g filenamef system/base/lalr.upstream.scm
#
C h ]L O 6 g acts
g filenamef system/base/lalr.upstream.scm
g nameg translate-terms C h ]4 5 $ L " C g x
g filenamef system/base/lalr.upstream.scm
/ > ; 6 @ ; 1 C h ]4L 5 C g act
g filenamef system/base/lalr.upstream.scm
#
C h ]) O Q " zM $ CM M$ <45 M$ " 44LO 55 " M4 O 5 "
" g terms
g most-common-action g translate-terms g i g acts ' g act : k g filenamef system/base/lalr.upstream.scm
' ' . / 3 4 : B ! H . P : S ! T ! W " f ! g h u v g nameg compact-action-table CL L
h | ] 4 5C t g x
g filenamef system/base/lalr.upstream.scm
3 ( 3 : 3 D 3 4 C h ]{ $ $ " $ c $ & " & " $ ( 6 45 "
( "{
$ )4
5$ 4
> " G " " 4
> " G
"~
"m6$ )45$ 4 > " G " " 4
> " G
"" 1$ e $ R
$ >4
5 $ " 4
5 $
6 "
6645 45
45 4 5 4 5 $ 6" Z
$ 0
4L 5
45
"45
454?6
" "
"E 6 6 g tokens
g grammar g k g lst g rev-terms g rev-terms/prec g
prec-level g term ~ g t * N g prec g v g prec v g optype v g l
~ g rev-terms ~ g rev-terms/prec ~ g term
g lst g rev-nonterm-defs g def g nonterm
g t g terms g
terms/prec
g nonterm-defs g nonterms ! g defs
; g ruleno ; g comp-defs ; g nonterm-def E r g compiled-def T r g compiled-nonterm-defs y g filenamef system/base/lalr.upstream.scm
# ' * * R U % Y ] a d # g / g # j p r s v ~ # ( % 5 ! - . 2 9 J N U ` e i ( m p ~
' % ! % - ! ( ( ! - ! $ V B R < ' - B R <
'
' - 6 ! ' ! $ , 0 4 $ 5 T 7 ; ! > % B % E & 3 E & H ' 3 T & Y + + \ , 5 c , + h - + r + s / ; y / 3 # 5 # 0 ! ! 9 ! E ! 9 ! 3 $ 3 !
8
" " Q g nameg rewrite-grammar CL h8 ] 4L L 5 $ C4L L5 $ MC 6 g x
5 g PosInNT 5 g PosInT 5 g filenamef system/base/lalr.upstream.scm
< = = > @ @ ' A , B 1 C 5 C 5 g nameg encode C L h F ] ( C 4L5 $ " 4L 5 $ 4L5C$ {& j$ Z( J4L5$ 3( %4LL4LL5> " G "cL666666 > g l
g first g rest g t 6 g filenamef system/base/lalr.upstream.scm
F G H
I J I L L + L ) : K = M D M H N L K O O Q O & U N X P Y P ] P ` Q e P f R k R ! p R t P z S { U U 7 U D U 7 U V W $ W X X X X X X Z Z Z Z . g nameg loop C h( ]
O LLLL Q 6 g rhs
' g ruleno ' g loop ' g filenamef system/base/lalr.upstream.scm
E F ' g nameg process-prec-directive C L h8 ] 4 L 5 $ " 4 L5 $ C 6 g x
2 g t $ g filenamef system/base/lalr.upstream.scm
t u + u ' u < ( u . v . 2 v " 2 CL L ! "! h0 ] L$ C444 5554L 5C g j
* g filenamef system/base/lalr.upstream.scm
* 0 , 0 6 7 8 8 7 6 ! 6 & > ( 6 ) 0 * g nameg loop-j C# h ]lHO O LQ L LQ 45K $ 4 5 " i$ \4 5 4 5
4O > " G " s$ h& V $ " "4 5 $ " $ 4
> " G " " "" "" Y4 5
444 555 O Q 4 5
" $ 4 & ' $
""p"l"h
6
"
6 g nonterm-def
g ruleno g terms g nonterms g No-NT g encode g process-prec-directive g name J g lst P g i P g rev-productions-and-actions
P g rhs g g rest l g prod
{ g rhs g t g t g
rhs-length " t g loop-j I Y g action [ t g filenamef system/base/lalr.upstream.scm
8 2 : = h > h
B h C j H j $ J j J j P k
S n W n X p ] p 5 b p ? g p g p l q l p o r v r / y r ) { r { p ~ t ] ^ ^ ` ` & ` a " a a b b ( b b a c ' c c ` d d d e e ] ) " & $ ( 0 ) 7 , 8 2 9 3 9 ; 8 = 7 @ * I * Z $ [ [ b g % j t t { w { { { ~ | | + { } " } { ~ . # ~ o k
k m 3 k
i i F i \ g nameg rewrite-nonterm-def C h8 ]" $$ $ C "C
" g x
5 g lst 5 g lst * g i * g filenamef system/base/lalr.upstream.scm
( 2 ( " * 5 g nameg pos-in-list C h` C ] ( C( C $ 4L 5C$ 4L 5C " ; g L1
Y g L2 Y g x Y g y Y g filenamef system/base/lalr.upstream.scm
#
# ' * 1 " 3 4 : > A F J K O Y Y g nameg loop C h ]
O Q 6 g lst1
g lst2 g loop
g filenamef system/base/lalr.upstream.scm
g nameg sunion C h@ ] ( L C L$ L CL$ 4L 5C C g l1
: g x : g filenamef system/base/lalr.upstream.scm
! ' + . 3 ! 5 6 : g nameg loop C h ]
O Q 6 g elem
g lst g loop g filenamef system/base/lalr.upstream.scm
g nameg sinsert C h8 ] ( C 4L 5$ 4L5C " g l
2 g x 2 g y 2 g filenamef system/base/lalr.upstream.scm
" ) 2 2 g nameg loop C h ]
O Q 6 g p
g lst g loop g filenamef system/base/lalr.upstream.scm
g nameg lalr-filter C h8 ] ( C M M $ 4L 5C " g l
7 g state
7 g symbol 7 g filenamef system/base/lalr.upstream.scm
3 4 5
6 ,
6 7 , 6 8 # 8 $ 9 ) % : ) * : / , : ) - 9 # 1 ; ) 7 ; # 7 g nameg loop C h8 ] $ $O L LQ 4 5 " C g shifts
3 g loop * g filenamef system/base/lalr.upstream.scm
0 1
2 3 % # ' 3 / < 2 1
3 C$ h ] 4LLO 4M 55C g filenamef system/base/lalr.upstream.scm
- . /
= /
.
g nameg build-goto-table C %Y"+,-!."/&0' "458 h ]$ u4L 5 M & " 4 4
55 4 4
554L 5CC g i
g l g rest ~ g ns ~ g filenamef system/base/lalr.upstream.scm
L # M ) M % N 5
O 3 O F O C O 3 N ) Q , ! Q H % Q 3 ' R 7 2 R Z 3 R W 6 R 7 ? S 7 D S O G S L H S I K S 7 N Q , O U 0 R U @ V U O Z U @ \ U 0 ^ U - ` X 1 c X A g X P k X A m X 1 o X . q Z . v Z 4 z Z . { W - | T , } P + [ ) * g nameg loop C):;/&0' h ]) M & " 45 $ "O L Q 4 5 "
$ " S 4
M & " M &
45 " 45 5 C g p
g act g nt g rhs # g n , g loop @ T g filenamef system/base/lalr.upstream.scm
E F F
G
G . G H I J J " J - # J & J : , J 0 K 6 K @ L # Y \ # ] ] a ] c ^ i _ p _ / q _ w _ N { _ 9 | _ Z _ ^ ` = ` ( a , a L a , b , b > b , _ K G ( C h ]4L O 5C g gram/actions
g filenamef system/base/lalr.upstream.scm
A B D
B g nameg build-reduction-table C<=1> h u ] 4LL > " G 6 m g filenamef system/base/lalr.upstream.scm
C h8 ) ]4 5 $ O 6C ! g options
1 g code 1 g option 1 g parser-name / g file-name / g filenamef system/base/lalr.upstream.scm
/ 1 g nameg output-parser! C3L?L@ h0 ] 4 M 5 $
4 5" $ 6C g option
0 g p 0 g filenamef system/base/lalr.upstream.scm
" & * .
0 CABC#"D=EFGHIJKLM h0 ]14> " G "
M
$ "
M 4M> " G 4> " G " M $ 4> " G "
$ E4M$ MM" M> " G 4> " G "4> " G 4
> " G 4> " G 6 M "F " g x
* g i " g v " g rlno 4 " g nt ; " g i h g v m g filenamef system/base/lalr.upstream.scm
! ! ( ! 1 ! ( # ' * 0 1 4 ; ; > E J S 9 W B \ 9 h m m t x y } " ! ! ! ! " " : * CHNOPQRS h b ]HM$ j4> " G 4> " G 4> " G 4> " G 4> " G "
( C
M 4> " G 4> " G 4> " G 4> " G 4LLLLLLO > " G 4> " G " M( " K 4> " G & 4
> " G " U4 5$ 84M M$ MM" M > " G " 4> " G & 4
> " G " t& 4> " G " V
$ *4> " G 4
> " G " $4> " G 4> " G 4> " G " "4> " G "M "4> " G 4> " G C Z g l
` j g core k j g i q j g items x j g actions j g l I g sym I g act I g n V u g filenamef system/base/lalr.upstream.scm
" +
/ 4
= " M , `
f k k q " q x " x % 1 ! #
) - . 2 7 D N O
V
) V
] a h " i r z
+ =
C
I R % d & j & j
s
w |
Y
g nameg print-states C
h ]#4LO > " G 4 5 $ "
N
4 5 $ & " N " 4L 5 M M 4L
5 4L 5 4
5 $ 4 4 LLLLLLLL O > " G " 4L > " G C g options
g tokens g rules g option $ : g option C m g driver-type O f g gram/actions v g code g option g file-name
g filenamef system/base/lalr.upstream.scm
$ $ , / * 7 ; ? C C K N O
U 3 Y [ 9 a E c n v | 8 L
& g nameg build-driver C"DT h( ] $ 4 5 $ 6CC g option
# g filenamef system/base/lalr.upstream.scm
m n n
o o n
p p # C<T h0 ] $ $4 5 $ $ 6CCC g option
/ g filenamef system/base/lalr.upstream.scm
r s s
t t s
u u s
% v ) v / CAU h8 ] $ &4 5 $ 4 5$
CCCC g option
1 g filenamef system/base/lalr.upstream.scm
x y y
z z y
{ { { $ y
' | * |
1 CBVX h0 ] $ %4 5 $ $
6CCC g option
0 g filenamef system/base/lalr.upstream.scm
% * 0 C 5 h - 1 3 `H1H0H/H.H-H,H+H*H)H(H'H&H%H$H#H"H!H H H H H HHHHHHHHHHHHHHH
H H H
H HHHHHHHH 2O 5 3O 4O 5O 6O 7O 8O 9 O :
O ; O < O =
O >O
?O @O AO BO CO DO EO FO
G HO IO JO KO L O M O N O O O P Q! R" S# T$O U%O V& W" " n^$ _^ __$ H4'_5$ 14(_J15$ _[\]^ ^ ] \ ["Z[_^6Z[_^6Z[_^6)*^6Y ^ ] \ ["+O XO45 9?MN 0/,-*)('&%$#"!
Q 3 Q 4 Q 5RS Q 6R6 Q 7 Q 8>:= $%(8!" 7 Q 9(S
Q : <Q ;" # Q < ;
Q =&'Q >JKIGEDCBA@* Q ?!
Q @$ Q A& Q BQ C*
Q D$)
Q EQ F
F K*)Q GH F
)Q I *2Q J2*)Q K-Q L/0,-.#+
Q M TQ NPQ OLQQ P
Q U+Q V0 /!WVU3+.1Q XKKKKKKKKK K
K K K
KKKKKKKKKKKKKKK K K K K K!K"K#K$K%K&K'K(K)K*,K+K,K-
K.K/K0-./01234 K1 X Z Y"g g arguments
g rrhs : g rlhs : g ritem : g nullable : g derives : g fderives : g firsts : g kernel-base : g
kernel-end : g shift-symbol
: g shift-set : g state-table : g acces-symbol
: g reduction-table : g shift-table : g
consistent : g
lookaheads : g LA : g LAruleno : g lookback : g goto-map : g
from-state : g to-state : g includes : g F : g action-table : g nitems : g nrules : g nvars : g nterms : g nsyms : g nstates : g first-state ! : g
last-state " : g final-state # : g first-shift $ : g
last-shift % : g first-reduction & : g last-reduction ' : g nshifts ( : g ngotos ) : g token-set-size * : g driver-name + : g the-terminals/prec , : g rule-precedences - : g expected-conflicts . : g
the-terminals / : g the-nonterminals 0 : g *valid-options* 1 : g lst Y { g proc Z { g options [ g tokens \ g rules ] g lst ^ g p _ g bit-union 2 g gen-tables! 3 g pack-grammar 4 g set-derives 5 g
set-firsts 6 g set-fderives 7 g closure 8 g generate-states 9 g new-itemsets : g get-state ; g new-state < g
append-states = g save-reductions > g lalr ? g set-accessing-symbol @ g set-shift-table A g set-reduction-table B g set-max-rhs C g
initialize-LA D g set-goto-map E g map-goto F g initialize-F G g transpose H g build-relations I g compute-lookaheads J g digraph K g add-rule-precedence! L g build-tables M g compact-action-table N g rewrite-grammar O g rewrite-nonterm-def P g pos-in-list Q g sunion R g sinsert S g lalr-filter T g build-goto-table U g build-reduction-table V g output-parser! W g build-driver X `g filenamef system/base/lalr.upstream.scm
{
" 2
l l q q w w ~ ~ k .
C h r ] 4 5 L 4?6j g args
g v g filenamef system/base/lalr.upstream.scm
CGH h( p ] 4 5 $ O @ 6 h g y
' g tmp ' g filenamef system/base/lalr.upstream.scm
' C5RT h ]B & " 4 5& " 45 & " 4 5& " 45 &
" 4 5&
" 45$ 45$ t45$ d45$ T45$ D
$ " ,
$ "
$ "
" " " " $ e &
" 4 5 & " 4 5 & " 4 5 C$ o &
" 4 5 & " 4 5 & " 4 5 C &
" 4 5 & " 4 5 & " 4 5 CC g src-location-1
g src-location-2 g offset-1 n g offset-2 n g length-1 n g length-2 n g t g t g t g input g line g column g input g line g column g length g input g g line g g column g g length g g filenamef system/base/lalr.upstream.scm
; V n y - - ( % * ( / 3 6 ! P ! j ! ! ! ! $ ! ! - ! G ! d $ g ! g 1 g nameg combine-locations CYR ZR[ hP ) ]4 4M 5
5 "
$ M "" 4M 5 " N C ! g new-stack
K g i 7 g filenamef system/base/lalr.upstream.scm
- . . ' . " . . / 0 0 ) 2 ' * 2 - 3 3 3 7 / 8 / ? / E / I 4 K
g nameg ___growstack C[ h ] M4M5$ L 6 C g filenamef system/base/lalr.upstream.scm
6 7 7 7 8
g nameg
___checkstack CU hX { ]M NMM 4L5 M N4L > " G MMMM45C s g delta
Q g new-category Q g lvalue Q g tok Q g state Q g new-state Q g filenamef system/base/lalr.upstream.scm
: ;
; ; < < = = / = = < ' > ) > * ? @ @ E A F A ( O A Q g nameg ___push C h r ] N C j g filenamef system/base/lalr.upstream.scm
& '
g nameg ___pushback C h ]L MMLLL O 6 g st
g filenamef system/base/lalr.upstream.scm
C D D g nameg ___reduce C h0 ]M N4L> " G M MM M C g token
* g attribute * g filenamef system/base/lalr.upstream.scm
F G G
H I ! I ( J * g nameg ___shift CL hP O ]" B
$ NCM 4L5 $ NL 6 "M "G g tok
P g sp H g state H g act ' H g filenamef system/base/lalr.upstream.scm
P Q
R
R S
T T
U U % U & ' U ' T
/ V 3 X 8 Y = Y B Z H Z H Q P g nameg
___recover C PV h G ]4L 5 M N4L> " G MM MM " M $ &
" " & NC45$ 4L 5 MMMMCM$ M" 4M5 NNMN"~"z ? g state
g tok g sync-set g tok A f g i f g act g filenamef system/base/lalr.upstream.scm
\ ] ] "
] ] ] ^ ^ _ / ` 1 ` 8 a ; a ? b A c F o J o M o W p f c l d p d
t e w f f g g & g g h * h i 0 i " " 4 " # $ l b ) g nameg ___sync CP\]^
h 7 ] " M $ 4MM M $ &
" " L 45 $ " $ & M C& \& 4M> " G C4MM > " G 4L> " G M
$ N "
NN "%
$ )4LM > " G & " N "4L
> " G "4MM > " G CMM L $ " 4 5$ >
$ 4L
> " G " M
$ M " 4M5 N N
M N " M
$ M " 4M5 N N
M N "<"8 / g state
@ g tok : g i : @ g l A g g y L d g act g @ g state
E g acts L g defact _ g filenamef system/base/lalr.upstream.scm
s t u v v
w o o ! o + p : v
A x % A x D M
L M T N W N _ N g v
l z p z t x z | z $ $ . z - " 5 * + { / { 6 { E E
L L
Q U X * _
c j n r ) v w z " " 4 " # $ " " 4 " # $ t V
g nameg ___run CZ h ]N N4
5N
NL 6 g lexerp
g errorp g filenamef system/base/lalr.upstream.scm
* * + C
h % ]{H HHHHHHO
O O O
O O O O Q
Q Q Q
Q Q Q
Q KKK
KKKK O C g action-table
g
goto-table g reduction-table g ___lexerp g ___errorp g ___stack g ___sp g
___curr-input g ___reuse-input g ___input g ___growstack
w g
___checkstack w g ___push w g ___reduce
w g ___shift w g
___recover w g ___sync w g ___run w g filenamef system/base/lalr.upstream.scm
g nameg lr-driver C"RP_`U h8 ] 4 5 4L 5 45C { g delta
4 g new-category 4 g lvalue 4 g stack 4 g tok 4 g stack 4 g state 4 g new-state " 4 g filenamef system/base/lalr.upstream.scm
" . ! " " ' 2 3 4 g nameg push C h0 ]I" $ " $ & "& "4 5 M N "
$ 'M MN "
4L LLO 5 "U "3L 4L5 $ " "$ 45 "C " g process
- g stacks g
active-stacks g stack g state g actions g
active-stacks g action ( g
other-actions ( g parse R ^ g symbol t g new-stack g state g new-stack g action-list g pair g filenamef system/base/lalr.upstream.scm
$ $ " % 1 (
1 ( 0 1 4 @ % D
1 H I 5 R 0 R % Y [ j % n % r t 6 } ~ % % > 6 % B & " K 7
2 $ % = - ? - C h ] NNNNMN" {4M5 NM $ &
" " 4M5 N4LL LLLLO > " G 4M5$ "" "MC g lexerp
g errorp g tok # H g symbol H g processes Q ~ g filenamef system/base/lalr.upstream.scm
# ! # ( , / 9 H K Q T V W
C h0 $ ]#HHHHKKKK O C g action-table
. g
goto-table . g reduction-table . g ___lexerp . g *input* . g *processes* . g *parses* . g filenamef system/base/lalr.upstream.scm
. g nameg
glr-driver C#R` h( ]
$ $
6 C C g l
! g n ! g filenamef system/base/lalr.upstream.scm
(
)
)
) ) * * * ! g nameg drop C`R` h ] 4 56 g l
g n g filenamef system/base/lalr.upstream.scm
.
/
/
/ g nameg
take-right C_RaT h` ] &
" 4 5 & " 4 5 & " 4 5 C g loc
^ g filenamef system/base/lalr.scm
/
0 0 0 $ 1
< 0 A 2 Z 0 ^ g nameg "source-location->source-properties C!RC ~ g m
, g rtd
{ g rtd
$g $ g filenamef system/base/lalr.scm
g filenamef system/base/lalr.upstream.scm . 1
2 N G O b Q i R V x
!*
(
(
>
I
J (
K} .
g filenamef system/base/lalr.scm L /
L
C6 PK ! N A8 A8 system/base/compile.gonu [ GOOF----LE-8-2.0)8 ] 4 h ] g guile g define-module* g system g base g compile
g filenameS f system/base/compile.scm g importsS
g syntax
g language g message g vm g ice-9 g regex g optargs g receive ! "! # " $g exportsS %g compiled-file-name &g compile-file 'g compile-and-load (g read-and-compile )g decompile *%&'() +g set-current-module ,+ -+ .g error /f "thunk may only be entered once: ~a 0g call-once 1g
string-append 2f .XXXXXX 3g mkstemp! 4f wb 5g with-throw-handler 6g catch 76 86 9g
stat:perms :g stat ;g lognot <g umask =g chmod >g
close-port ?g rename-file @g delete-file Ag call-with-output-file/atomic Bg language? Cg lookup-language Dg ensure-language Eg system-error Fg mkdir Gg EEXIST Hg ENOENT Ig ensure-directory Jg dirname Kg throw Lg %compile-fallback-path Mg canonicalize-path Ng string-prefix? Of / Pg
string-length Qg
string-ref Rg substring Sg %load-compiled-extensions Tg string-null? Ug warn Vf !invalid %load-compiled-extensions Wf .go Xg output-fileS YX Zg fromS [Z \g toS ]\ ^g envS _^ `g optsS a` bg canonicalizationS cb dY[]_ac eg current-language fg objcode gg default-environment hg relative ig %file-port-name-canonicalization jf ,failed to create path for auto-compiled file kg open-input-file lg
file-encoding mg set-port-encoding! nf UTF-8 og language-printer pZ q\ r^ s` tb upqrst vg value wg current-module xg map yg cdr zg lookup-compilation-order {f no way to compile |f to }g compile-passes ~g compile-fold g language-joiner g reverse g find-language-joint f BMultiple expressions read and compiled, but language has no joiner g default-language-joiner g language-reader g eof-object? g language-parser g read-and-parse pqrs g
parameter? g scm-error g wrong-type-arg f parameterize f Not a parameter: ~S g memq g warningsS g for-each g lookup-warning-type g warning g unsupported-warning g lookup-decompilation-order f no way to decompile g decompile-passes g decompile-fold ^ []s g assemblyC 5 hp+ ]4
#$*5 4- > " G ./ h( r ] M$ 4L > " G " NC j g filenamef system/base/compile.scm
+ ,
-
- - # .
%
C h J ] C B g filenamef system/base/compile.scm
0
C./ h( r ] M$ 4L > " G " NC j g filenamef system/base/compile.scm
+ ,
-
- - # .
%
C hX ] H O 4 O > " G V4 > X4> " G CX4> " G F g thunk
T g entered T g filenamef system/base/compile.scm
(
) * T g nameg call-once C0R12340589: h Z ] 4L 56 R g filenamef system/base/compile.scm
= = <
= 0
C h _ - 1 3 C W g args
g filenamef system/base/compile.scm
=
C;<=>? hx ]4LL> " G 4LO 5 $ "
445 5 4L > " G 4L> " G LL 6 g t
# > g perms
> [ g filenamef system/base/compile.scm
9 : = # = 2 > 5 > $ ; > > = A ?
K ? P ?
\ @ u A u
C>@ h( o - 1 3 4L> " G L 6 g g args
! g filenamef system/base/compile.scm
B
C ! D !
C h R ] L LLLLO LLO 6 J g filenamef system/base/compile.scm
7 8
C h@ " - . , 3 # 4 5 45 O 6 g filename
> g proc > g reference > g template > g tmp ) > g filenamef system/base/compile.scm
3
4 4 + 4 4 ! 5 ' 5 ! ) 5 ) 4 > 6 > g nameg call-with-output-file/atomic CARBC h ]4 5$ C 6 g x
g filenamef system/base/compile.scm
F
G
G I g nameg ensure-language CDR6EF h R ] L 6J g filenamef system/base/compile.scm
Q R
CGHIJK hX ]
$ " $ C$ 44L 5> " G L 6 6 g k
R g subr R g fmt R g args R g rest R g errno R g filenamef system/base/compile.scm
S T T T % T V
U # Z
' U ( [
+ [ 6 [
D \
R ^
R C h ] O O 6 g dir
g filenamef system/base/compile.scm
O
P P g nameg ensure-directory CIRL1MNOPQRSTUVW8IJ h ] ] 4L 56 U g filenamef system/base/compile.scm
4
"
C h ` - 1 3 C X g args
g filenamef system/base/compile.scm
C h ] $ 44 5 45$ " B45 $ 24 5:$ 44
54 55" " $ " 4
5 $ 4 > " G
" 5 4O 5$ CCC g file
g canon n g t q g f g filenamef system/base/compile.scm
l
~ $ q q q # p * r 3 r 7 p 8 s B s F r G u K u L u U u / _ u q x q x y y y x z z z | } $ g nameg compiled-file-name C%Rdefghi%.jklmnIJAoD(^Z\` h0 ]44L554L LLLL5 6 g port
) g filenamef system/base/compile.scm
)
) C h - / 0 3
# # 45 # # 45 # # Y$ " !4 5 $ " 4 5 4
5 4 5 4 $ "
> " G 445> " G 4O > " G ZCZF ~ g file
g output-file g from g to g env g opts g canonicalization g t n g comp g in g enc g filenamef system/base/compile.scm
# 1 : I S ) a h ! n } %
g output-fileS g fromS g toS g envS g optsS g canonicalizationS g nameg compile-file C&Ruevwhi(kZ\`^
hx n - / 0 3 # 45 # # 45 # # Y44 5
> ZCZF f g file
s g from s g to s g env s g opts s g canonicalization s g filenamef system/base/compile.scm
, ( D 1 > 8 H - Q T o
s
g fromS g toS g envS g optsS g canonicalizationS g nameg compile-and-load C'Rxyz.{| h0 ] 4 5 $ "
4 5 6 g from
/ g to / g opts / g t - g filenamef system/base/compile.scm
" & + * / / g nameg compile-passes C}R hP 8 ] ( D4 L > G $ " " 0 g passes
M g x M g e M g cenv M g first? M g x M g e M g new-cenv M g filenamef system/base/compile.scm
! # , 6 M
M g nameg lp C h ] O Q 6 g passes
g exp g env g opts g lp g filenamef system/base/compile.scm
g nameg compile-fold C~Rz.{| hh W ]" &( C45$ C "44 5 $ "
4 5 5 " O g from
b g to b g in , g lang , g t 8 V g filenamef system/base/compile.scm
# , , - 0 8 G K # O < S X b b g nameg find-language-joint CR. h( ]" L 6 $ ( C""ޯ g exps
( g env ( g filenamef system/base/compile.scm
!
( C h ] O C y g lang
g filenamef system/base/compile.scm
g nameg default-language-joiner CR h8
]44 55 45$ C4 5 $ 6C g lang
8 g port 8 g cenv 8 g exp 8 g t ' 8 g filenamef system/base/compile.scm
! ' 5 0 8 g nameg read-and-parse CRefgDe>Z\^g`~} h ]#445 L5 45$ b4L> " G 44L5 $ " 4L5 4 55 L
L $ " 4 L5
L6 4445 LL5L> G "J g exps
g env g cenv g x g t 9 Q g jexp g jenv g jcenv g filenamef system/base/compile.scm
#
2 3 9 H R \ l s % 0 g nameg lp C
h - / 0 3
# 45 # # 45 # 4545 45 45$ " 4
> " G 4 5Y O Q 4 > ZCZF g port
g from g to g env g opts g from P g to P g joint ] g t-3ee4cd0d75-1ff a g lp
g filenamef system/base/compile.scm
! ( 1 @ ! C J P U ] a
g fromS g toS g envS g optsS g nameg read-and-compile C(Revg h ] 4 5 $ C 6 g w
g t g filenamef system/base/compile.scm
# C~} h - / 0 3 # 45 # # 45 # 45 $ ! 4> " G " 4 4
5 > G C g x
g from g to g env g opts g warnings K x g warnings X q g exp g env g cenv
g filenamef system/base/compile.scm
( 1 @ C K P T W X [
y |
g fromS g toS g envS g optsS g nameg compile CRxy.| h0 ] 4 5 $ "
4 5 6 g from
/ g to / g opts / g t - g filenamef system/base/compile.scm
" & - * / / g nameg decompile-passes CR h8 ] ( D4 > G 6 g passes
2 g exp 2 g env 2 g opts 2 g exp 2 g env 2 g filenamef system/base/compile.scm
!
* 2
2 g nameg decompile-fold CRv hP - / 0 3 # # # # 45 6 g x
N g env N g from N g to N g opts N g filenamef system/base/compile.scm
$ . 7 < N N
g envS g fromS g toS g optsS g nameg decompile C)RC g m
, g filenamef system/base/compile.scm
(
3
F
c O
) l
r
h
#
'L
(
)
+n
+p
C6 PK ! ) ) scripts/frisk.gonu [ GOOF----LE-8-2.0) ] 4 h ] g guile g define-module* g scripts g frisk g filenameS
f scripts/frisk.scm g importsS g srfi
g srfi-1
g selectS g filter g remove g exportsS g make-frisker g mod-up-ls g mod-down-ls g mod-int? g edge-type g edge-up g edge-down g autoloadsS g ice-9 g getopt-long ! " #!" $g set-current-module %$ &$ 'g %include-in-guild-list (f )Show dependency information for a module. )g %summary *g
guile-user +* ,g *default-module* -g open-file .f r /g eof-object? 0g
define-module 1g def 2g
use-moduleS 3g :use-module 4g regular 5g autoloadS 6g :autoload 7g autoload 8g use-modules 9g for-each :g load ;g primitive-load <g computed =g string? >g format ?f [computed in ~A] @g read Ag grok-proc Bg make-object-property Cg up-ls Dg dn-ls Eg int? Fg i Gg x Hg i-or-x Ig setter JI KI Lg make-edge Mg car Ng cdr Og up-ls+! Pg dn-ls+! Qg assq-ref Rg make-body Sg member Tg modules Ug internal Vg external Wg i-up Xg map Yg x-up Zg i-down [g x-down \g edges ]g scan ^g default-module _f ~A ~A --- ~A --- ~A
`g dump-updown af ~A ~A
bf
~A ~A
cg dump-up dg dump-down ef frisk fg upstream gg single-char hgu ifh jg
downstream kgd ljk mgi nUm ogx pVo qgm rg value sr t^qs uilnpt vg
option-ref wf $~A ~A, ~A ~A (~A ~A, ~A ~A), ~A ~A
xg length yf files zf modules {f internal |f external }f edges ~g mainC 5 h g ]4
#5 4& > " G 'R()R+,R-./01234567894 h8 ] LM $ " L $ " 6 g use
4 g t g maybe 2 g filenamef scripts/frisk.scm
! . . s " s # t ' t 4 # 4 C:;<=>?@ h ]I4 5 H" 45 $ C$ $ K4L > " G " ( " $ " $ >4L $ " > " G " $ "
$ #4L > " G "b "Y "N " $ "4
LL O > " G " f$ " $ O4L J $ " L 45$ "
4 5 > " G " 45 "\45 "O45 "B g filename
g p g curmod g form g t g key 0 g module ? g ls ^ g key k g use g maybe g t ` s g file w
g filenamef scripts/frisk.scm
o p p " p p x y y ) z - y 0 { 0 { > } % ? } E ~ F J $ R ^ d k % k " - E = s " s t t " ( " " - > " ( " - ' { ! 1 ! 6 K { Z ^ " ` " v . w " z ( $ ( 3 ( q q z " x q x C C h ] O C g default-module
g note-use! g filenamef scripts/frisk.scm
n
g nameg grok-proc CAR4Bi5 CR4Bi5 DR4Bi5 ERCiRDiREiREFG h ]4 5$ CC g module
g filenamef scripts/frisk.scm
g nameg i-or-x CHR4Bi5 RK h( ] 445 > " G C g type
% g up % g down % g new % g filenamef scripts/frisk.scm
% g nameg make-edge CLRMiRNi RKC h ]45 4 56 g m
g new g filenamef scripts/frisk.scm
2 ( g nameg up-ls+! CORKD h ]45 4 56 g m
g new g filenamef scripts/frisk.scm
2 ( g nameg dn-ls+! CPRQ h ` ]L 6 X g key
g filenamef scripts/frisk.scm
C h n ] O C f g alist
g filenamef scripts/frisk.scm
g nameg make-body CRRASKCD1ELOP
h ]4M5 $ " =445 > " G 445 > " G MN & 4564M5 $ " =445 > " G 445 > " G MN 4 5 M N 4> " G 6 g type
g d g u g t Z g d Z g t y g u g edge g filenamef scripts/frisk.scm
' 4 , 5 A 4 F S - U Z ` , d p " q y 4 4 - " / " 0 $ $ $ ! C9RTUEVWX YZ[\ h ] H H4 O 5 4> " G J4J5 4
J5 44
J554
4
J5544 J554
4 J55J 6 g default-module
g files g modules g edges
g grok g filenamef scripts/frisk.scm
6 < E H Q T Y ! c d g l ! v w z ! ! g nameg scan C]RQ^,] h b ]L 6 Z g files
g filenamef scripts/frisk.scm
C h0 - 1 3 4 5 $ " O C g options
/ g t % g default-module % / g filenamef scripts/frisk.scm
. % /
g nameg make-frisker CR9>_HX h s ]4 54 5C k g edge
g filenamef scripts/frisk.scm
#
# CC h s ]4 54 5C k g edge
g filenamef scripts/frisk.scm
#
# CD h0 ]4 5 44 5544 556 g m
. g filenamef scripts/frisk.scm
$ , . . C h { ] 6 s g modules
g filenamef scripts/frisk.scm
g nameg dump-updown C`R9>aH9>b h | ]4 54 56 t g edge
g filenamef scripts/frisk.scm
% " 3 CC h0 ]44 5 > " G 4 56 g m
+ g filenamef scripts/frisk.scm
# # + + C h w ] 6 o g modules
g filenamef scripts/frisk.scm
g nameg dump-up CcR9>aH9>b h | ]4 54 56 t g edge
g filenamef scripts/frisk.scm
% " 3 CD h0 ]44 5 > " G 4 56 g m
+ g filenamef scripts/frisk.scm
# # + + C h y ] 6 q g modules
g filenamef scripts/frisk.scm
g nameg dump-down CdR euvfjUV^,T\>wxyz{|}`cd h - 1 3 4 5 45 45 45 45 4 5 44
4
555 4 5 45 45
4
5 445454 54
54 5> " G $ $ " " $ $ " "
6 g args
g parsed-opts g =u ! g =d - g =i 9 g =x E g files R g report l g modules u g internal ~ g external
g edges g filenamef scripts/frisk.scm
% !
! $
* % -
- 0
6 % 9
9 <
B % E
E H M + P / R R U V Z
[ a 3 e f
h l l o s u u x | ~ ~ I
g nameg frisk CRi~RC _ g m
0 g filenamef scripts/frisk.scm a
4 i
6 j 9 j
; l > l
n
W
)
^
z
!
C6 PK ! X)l scripts/read-text-outline.gonu [ GOOF----LE-8-2.0 ] L 4 h ] g guile g define-module* g scripts g read-text-outline g filenameS
f scripts/read-text-outline.scm g importsS g ice-9
g regex
g exportsS g read-text-outline-silently g make-text-outline-reader g autoloadsS g rdelim g read-line g getopt-long g set-current-module !g %include-in-guild-list "f *Convert textual outlines to s-expressions. #g %summary $g symbol->string %g string=? &f ? 'g substring (g
string-length )g ?? *g match:substring +g msub ,f -g
??-predicates .g make-regexp /f ^ 0g
string-append 1g assq-ref 2g level-submatch-number 3g
compute-level 4g level-substring-divisor 5g body-submatch-number 6g match:suffix 7g extra-fields 8g map 9g for-each :g set-object-property! ;g regexp-exec <g level =g make-line-parser >g start ?> @g eof-object? Ag object-property Bg error Cf unhandled diff not 1: Df (([ ][ ])*)- * E4 FE Gg write Hg open-file If r Jg newline Kg mainC 5 hP ]4
5 4 > " G !R"#R$%&'( h ] 4 5 44556 g symbol
g name g filenamef scripts/read-text-outline.scm
{
| | } } } & } " } }
g nameg ?? C)R* h j ] L 6 b g m
g filenamef scripts/read-text-outline.scm
C h p ] O C h g n
g filenamef scripts/read-text-outline.scm
g nameg msub C+R)%,* h ]44 L 55C g m
g filenamef scripts/read-text-outline.scm
3 C+ h( ] 4 5$ O " 4 5C g pair
& g filenamef scripts/read-text-outline.scm
" $ % & g nameg
??-predicates C-R'.%/0+123 h j ]L 6b g m
g filenamef scripts/read-text-outline.scm
$ & C4( h ]44L 55L C } g m
g filenamef scripts/read-text-outline.scm
$ ) 8 ) & C( h s ]4L 56 k g m
g filenamef scripts/read-text-outline.scm
0
!
C56 h j ] 6b g m
g filenamef scripts/read-text-outline.scm
* C78-9: h ]L 4 L 56 g pair
g filenamef scripts/read-text-outline.scm
' .
*
+ * ) C h { ] O L 6 s g obj
g m g filenamef scripts/read-text-outline.scm
$ & C h r ]C j g obj
g m g filenamef scripts/read-text-outline.scm
C;:< hX ]4L 5 $ ?4L54L5 4> " G 4L> " G CC g line
T g t T g level ! R g body ! R g filenamef scripts/read-text-outline.scm
! & , / 3 < T C h ]24
5 445$ " 4 55 445 $ " 5 4 5 $
O " (4 5 $
O "
O 45 $ 45" 45 $ 45 O " O C g re
g specs g fc 1 g rx 1 g t ? Q g level-substring S g t ^ g t z g
extract-level g t g extract-body g t g new g misc-props! g filenamef scripts/read-text-outline.scm
* $ ( / , . 1 4 7 = + ? ? S S V \ & ^ ^ r x & z z % $ - " * g nameg make-line-parser C=R=?@A<BC:>
h` ]QH H" %45 $ " '4L 5 $ 45
$ "
$ S
$ " 4 > " G
4> " G JK" E
$ =" "4
5$
K"
"J
"JJK" 4 5 " 4 5 " 4 5 J "JK J& CJC g port
\ g all \ g pchain \ g line 4 g
prev-level 4 g tp 4 g t 4 g t ) 1 g words 6 g level A g diff H g t
g g p
g filenamef scripts/read-text-outline.scm
# ) 6 ( 6 9 ( ? ; A ( A H ' H M R W ^ c g " g t " x ) " 7 + 1 + , = E , # # - ( + " . 4 5 I L N P V W [ B \ C h ]
4 5 O C g re
g specs g
parse-line g filenamef scripts/read-text-outline.scm
g nameg make-text-outline-reader CR4iDF5RGHIJ h@ - 1 3 444 55> " G 4> " G C g args
: g filenamef scripts/read-text-outline.scm
% 0 ; % ) :
g nameg read-text-outline CRiKRC g m
0 g filenamef scripts/read-text-outline.scm p
4 x
6 y 9 y
7 {
S
1
G
N
P
C6 PK ! "m#G #G & scripts/snarf-check-and-output-texi.gonu [ GOOF----LE-8-2.0 G ] 4 h ] g guile g define-module* g scripts g snarf-check-and-output-texi g filenameS
f 'scripts/snarf-check-and-output-texi.scm g importsS g ice-9
g streams
g match g exportsS g set-current-module g %include-in-guild-list f 8Transform snarfed .doc files into texinfo documentation. g %summary g make-syntax-transformer g when g macro !g $sc-dispatch "! #! $g _ %g any &$% 'g
syntax->datum (' )' *g
datum->syntax +* ,* -g if .g begin /g syntax-violation 0/ 1/ 2f -source expression failed to match any pattern 3g unless 4g not 5g
*manual-flag* 6g member 7f --manual 8g process-stream 9g current-input-port :g stream-null? ;g
stream-car <g snarf_cookie =g dispatch-top-cookie >g
stream-cdr ?g
stream-map @g string? Ag string Bg int_hex Cg int Dg string->number Eg int_oct Fg int_dec Gg id Hg string->symbol Ig make-stream Jg eol Kg hash Lg port->stream Mg read Ng error Og syntax Pf premature end of file Qg
brace_open Rg consume-multiline Sg consume-upto-cookie Tg process-singleline Uf *premature end of file in directive context Vg reverse! Wg begin-multiline Xf *premature end of file in multiline context Yg brace_close Zg
end-multiline [g process-multiline-directive \g *file* ]g *line* ^g *c-function-name* _g *function-name* `g *snarf-type* ag *args* bg *sig* cg *docstring* df @deffnx {Scheme Procedure} eg *primitive-deffnx-signature* fg
string-length gg *primitive-deffnx-sig-length* hg register ig length jg format kf ;~A:~A: ~A's C implementation takes ~A args (should take ~A) lg with-output-to-string mf ~A nf ~A of [~A pf . ~A qg primitive rf @deffnx {C Function} ~A ( sf , ~A tf )
uf
~A
vf @c snarfed from ~A:~A
wf @deffn {Scheme Procedure} ~A
xg string=? yg substring zg display {f
|f @end deffn
}f ~g
string-append f @ f @@ g
texi-quote g SCM G f invalid argument syntax: ~A g map g cdr g comma g paren_close g argsig f unknown doc attribute: ~A g arglist g
paren_open f invalid arglist syntax: ~A g void G g location g type g fname g reverse g cname g symbol->string f unknown doc attribute syntax: ~A g argpos G g
list-index f 9~A:~A: wrong position for argument ~A: ~A (should be ~A)
g current-error-port f unknown check: ~A g mainC 5 h8 Q ]4
5 4 > " G RR4 #&),-. h - 1 3 C g cond
g body g filenamef 'scripts/snarf-check-and-output-texi.scm
!
"
C h { ] 4 5 L 4?6s g args
g v g filenamef 'scripts/snarf-check-and-output-texi.scm !
C12 h( y ] 4 5 $ O @ 6 q g y
' g tmp ' g filenamef 'scripts/snarf-check-and-output-texi.scm
!
' C5 R4 3 #&),-4. h - 1 3 C g cond
g body g filenamef 'scripts/snarf-check-and-output-texi.scm
$
%
C h { ] 4 5 L 4?6s g args
g v g filenamef 'scripts/snarf-check-and-output-texi.scm $
C12 h( y ] 4 5 $ O @ 6 q g y
' g tmp ' g filenamef 'scripts/snarf-check-and-output-texi.scm
$
' C53R5R67589 h( - 1 3 4 5$ " 45 6 g flags
& g filenamef 'scripts/snarf-check-and-output-texi.scm
)
* * * * + , & , &
g nameg snarf-check-and-output-texi CR:;<=> h@ ] 4 5$ C4 5 &
4 5L 64 5 " g input
; g token ; g filenamef 'scripts/snarf-check-and-output-texi.scm
/ F
F G G H H ! H $ I . I
/ K ; K
; g nameg loop C?@ABCDEFGH
h ]" " " S" ! $ C4 5$ C C $ # &
4 5C"" $ # &
4 5C"" $ ! & 45C"S"O $ ! & 4 5C"#" g expr
g w @ ] g x @ ] g w n g x n g w g x g w g x g filenamef 'scripts/snarf-check-and-output-texi.scm
/ 9 " / , ; ( / ; " 3 / N 7 ( O 7 - X 7 " ] / | 5 ( } 5 - 5 " / 3 ( 3 - 3 " / 1 ( 1 , 1 " / CI:;JK> h` ]" L45$ C45 & " $
45 "4545C " g s
Z g s R g t 1 g filenamef 'scripts/snarf-check-and-output-texi.scm
= - > / @ 4 ? 1 A : A 4 5 ? 1 6 B : B B 4 C C ? J C N Q C 9 R > / Z CLM h0 ] O Q 444 5556 g port
* g loop
* g filenamef 'scripts/snarf-check-and-output-texi.scm
.
/ / = D - & = ( / * / * g nameg process-stream C8R:NOP;QR>ST hP " ]
4 5$ 4> " G " 4 5 &
4 56
6 g input
N g cont N g token , N g filenamef 'scripts/snarf-check-and-output-texi.scm
M
O
O P P P P & R , R 1 T 3 T 7 S : U D U N X N g nameg dispatch-top-cookie C=R:NOU;<V> h ]" k45$ 4> " G " 45 & "4 45> " G 45645 " " g process
| g input | g cont | g acc q g input q g token 0 q g filenamef 'scripts/snarf-check-and-output-texi.scm
\
] _
_ ` `
` ` * b 0 b 5 d 7 d ; c < e ? e J e U f ] f b h c h % q h q ] r ] | ] | g nameg consume-upto-cookie CSRW:NOX;YZ>S[ h` ] 4 5$ 4> " G " 4 5 & 4> " G L 4 56
L6 g input
\ g token , \ g filenamef 'scripts/snarf-check-and-output-texi.scm
m o
o p p
p p & r , r 1 t 3 t 7 s 8 u J v R v \ x \ g nameg loop C:NOX;YZ>S[
h J ]4> " G O Q 4 5$ 4> " G " 4 5 & 4 > " G 4
56 6 B g input
| g cont | g loop | g token L | g filenamef 'scripts/snarf-check-and-output-texi.scm
j
k m # o
- o . p 2 p
4 p 9 p F r L r Q t S t W s X u j v r v | x | g nameg consume-multiline CRR\R]R^R_R`RaRbRcR\]^_`abc h ] C g filenamef 'scripts/snarf-check-and-output-texi.scm
g nameg begin-multiline CWRdeR4fiei5gRbh`iaNjk\]_ljm_nopa h ` ]04> " G " L $ $4 > " G "" L$ +4> " G ] "L
$ 4> " G " " '( C4> " G " "
"i
"- X g args
g r g o L g args L g tail L g tail g filenamef 'scripts/snarf-check-and-output-texi.scm
$ % * " - ( 2 = ! @ , H L Q U V [ % ^ , c n $ q , v 7 ' $ " - 2 " - " = -
C5qjr^amst hx + ]4> " G ( " L4> " G " ) ( " (4 > " G " "6 # g args
; d g filenamef 'scripts/snarf-check-and-output-texi.scm
" ' ! * & / ; A F K % N , S ^ d d g ' m r t t
Cuvwfgxyezc{| h ]@ & " 45$ +44
455> " G " & " 4
O 5$ & 4 5" " 4 > " G 4
> " G 4> " G " |( " ~$ *45$ 44
55" " $ 4> " G "4> " G " "x4> " G 6 g req
g opt g var g all g nice-sig g
scm-deffnx g strings g g
scm-deffnx g g filenamef 'scripts/snarf-check-and-output-texi.scm
% & , 5 6
: ; >
C J + T
Y i " m t 5 +
" - " & * + 0 5 @ J K g g t x } C
g nameg
end-multiline CZRf}~yx hH # ] 4L5$ C4L 5 45$ " 4L 56 g i
E g ss ! ; g filenamef 'scripts/snarf-check-and-output-texi.scm
. ! ! $ * ( , 0 2 < A C E E g nameg rec C h ] O Q
6 g s
g rec g filenamef 'scripts/snarf-check-and-output-texi.scm
g nameg
texi-quote CRGNj
h@ | ]1"
" $ $ $ t $ N & '$ 4L 5C44 55644 55644 55644 55644 55644 556 $ * $ $ """" $ ( $ C""" t g expr
= g w g x g w 1 g x 1 g w B g x B g w g x g w $ 5
g filenamef 'scripts/snarf-check-and-output-texi.scm
X _ c h i 8 s u x } ~ 8 8 8 8 8 0 5 ' = g nameg do-args CCNjbaA\]`G~_^c ! h Z ]yO " " " " " =" " L$ 7 & $ $ & $
$ & o" 456
$ R
( G
$ -
&
C456456""456456456456456456456456$ A & +$ " $ _ $ ,$ 45" 44
4 555" 44
4 555" 44
4 555" $ $ l$ ]
$ <$ -( $ " "' " " " "" " " "" " " " C"p"l"h$ & |$ q $ \ & F$ ;( 0 $
&
C"""""""""$ X & B$ 7( , $ & C"t"p"l"h"d"`$ X & B$ 7( , $ & C"
" """"$ & o" `( 45 44?5 C$ 6 $ & & """|"x ""i"e$ b & L$ A( 6 $ & & 44 55 C""" """" " " t( 45 C$ J $ 0 & "4 564 564 56 "$ A $ , & $ ")"="9"5"1Q " R g l
g expr g w 3 d g x 3 d g w L H g x L H g w ] : g x ] : g w v g x
v g w g x g w
g w g x g w g x g w g x g w # g x # g w = g x = g w [ r g w W g x W g w O g x O g w K g x K g w ? g w
! ; g x ! ; g w h g x h g w g w g x g w g x g w g w
g x
g w . g x . g ls > g p-ls > g name K ] g w g g w v g x v g w g x g w g w
g x
g expr " g ls * g p-ls * g string 7 ? g w I g w X g x X g w g x g w g x g do-args Dg filenamef 'scripts/snarf-check-and-output-texi.scm
! & * , / 4 8 : = B F H K P T V Y ^ b d g l p r r 7 7 7 g o 1 5 ;
N Q ( Y [ ` *
" = B w | o g nameg process-multiline-directive C[R_GCazj\N h( { ]q$ $ $ $ $ $ & $ $
& o$ f( ] $ O
& ;45 $ (
$ C4
54 5 6CCCCCCCCCCC 4
56 4
56 4
56C s g l
$ g w g x g w 6 g x 6 g w G g x G g w ` g x ` g w q g x
q g w g w g x
g idx g filenamef 'scripts/snarf-check-and-output-texi.scm
3 . , # % % & ' ' '
( ( ) 2 ( * ( 1 1 1 1 1 1 1 1 1 1 1 " 1 $ g nameg process-singleline CTRiRC I g m
, g filenamef 'scripts/snarf-check-and-output-texi.scm
0
2 5
'
)
.
M
\
u j
y |
} }
~
%
&
>
!
5
8
8 6
8
C6 PK ! XZSk) k) scripts/scan-api.gonu [ GOOF----LE-8-2.0S) ] 4 hT ] g guile g define-module* g scripts g scan-api g filenameS
f scripts/scan-api.scm g importsS g ice-9
g popen
g rdelim g regex g exportsS g set-current-module g %include-in-guild-list f 2Generate an API description for a Guile extension. g %summary g set-object-property! g put !g object-property "g get #g add-props $g make-regexp %g open-pipe &g OPEN_READ 'g eof-object? (g regexp-exec )g read-line *g scan +f ^.guile.+: ([^ ]+)([ ]+(.+))*$ ,g format -f
~A -c '~S ~S' .g use-modules /g session 0 / 1.0 2g apropos 3f . 423 5g string->symbol 6g match:substring 7g Scheme 8f 9g
hashq-set! :g scan-Scheme! ;f ^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$ <f nm ~A =g C >g hashq-get-handle ?g error @f both Scheme and C: Ag scan-C! Bg current-module Cg THIS-MODULE Dg memq Eg groups Fg in-group? Gg string-match Hg
string-append If ^ Jg symbol->string Kg name-prefix? Lg add-group-name! Mg eval Ng name Og make-grok-proc Pg make-members-proc Qg make-hook Rg for-each Sg assq-ref Tg members Ug grok Vf +bad grouping, must have `members' or `grok' Wg add-hook! Xg description Yg read Zg open-file [g make-grouper \g list-ref ]g catch ^] _] `g make-hash-table ag sort bg hash-fold cg string dg scan-data e7 f= gg run-hook hg string<? if +;;; generated by scan-api -- do not edit!
jf (
kf (meta
lf (GUILE_LOAD_PATH . ~S)
mg getenv nf GUILE_LOAD_PATH of (LTDL_LIBRARY_PATH . ~S)
pf LTDL_LIBRARY_PATH qf (guile . ~S)
rf (libguileinterface . ~S)
sf (.+) tf ~A -c '(display ~A)' ug %guile-build-info vg quote wg libguileinterface xvw ySux zf (sofile . ~S)
{f ~A
|g append }g map ~g
hook->list 7= f ) ;; end of meta
f (interface
f (~A ~A (scan-data ~S))
f ) ;; end of interface
f ) ;; eof
g mainC 5 hX ]4
5 4 > " G R R i R!i"R hP - 1 3 " 4( C 4 > " G " " g object
I g args I g args
A g key A g value A g filenamef scripts/scan-api.scm
I
J K M N M " O
: P A P
A J I
g nameg add-props C#R$%&'() hp J ]#4 545 " I45 $ C45 $ 4> " G " 45 "45 "B g re
p g command p g match p g rx p g port p g line c g t ! c g t 5 V g filenamef scripts/scan-api.scm
R
S
T S U V
! V - X 5 X W Y c Y c U d U p U p g nameg scan C*R*+,-1456 789 hP ]44 55 44 5 $ " > " G L 6 g m
J g x J g t ! 4 g filenamef scripts/scan-api.scm
a b b # b b
c c c ! c 1 d 9 c J e
J C h ]45 O 6 g ht
g guile g filenamef scripts/scan-api.scm
[
\ ] ] _ ` ] \ g nameg scan-Scheme! C:R*;,<56 =>?@9 hh ] 44 55 444 55> " G 4L 5$ 4> " G " L 6 g m
a g x a g filenamef scripts/scan-api.scm
j k k # k k
l l l l & & l + l 4 m @ m A n E n L n a o a C h ]45 O 6 g ht
g sofile g filenamef scripts/scan-api.scm
g
h i i i h g nameg scan-C! CAR4Bi5 CRD"E h ]4 56 g x
g group g filenamef scripts/scan-api.scm
s
t
t t t g nameg in-group? CFRGHIJ h ]454 56 g x
g prefix g filenamef scripts/scan-api.scm
v
w w
w w + w g nameg name-prefix? CKR E" h ] 4 56 g x
g name g filenamef scripts/scan-api.scm
y
z z z # z z z g nameg add-group-name! CLRMCL h ~ ]4L 5$ L 6C v g x
g filenamef scripts/scan-api.scm
~
g nameg p C N h8 ]45 O Q 4 > " G C g name
6 g form 6 g
predicate? 6 g p 6 g filenamef scripts/scan-api.scm
|
} } $ + 6 g nameg make-grok-proc CORDL h ]4 L5$ L 6C y g x
g filenamef scripts/scan-api.scm
g nameg p C N h0 ]
O Q 4 > " G C g name
+ g members + g p + g filenamef scripts/scan-api.scm
+ g nameg make-members-proc CPRQRRSTU?VW#OXP hx k ] 4 54 5 $ " $ " 4> " G L $ 445 4 55" 4
56c g gdef
x g name x g members x g grok x g filenamef scripts/scan-api.scm
( %
# 2 6 ; M N Q & X ; [ & ] & ^ & d 5 f & h m x x CYZ& h ]L O 44 556 w g file
g filenamef scripts/scan-api.scm
C h( ] 4 5 4O > " G C g files
& g hook & g filenamef scripts/scan-api.scm
& g nameg make-grouper C[R\_[ h Z ] L 6 R g filenamef scripts/scan-api.scm
3
%
C h ] - 1 3 C U g args
g filenamef scripts/scan-api.scm
C`:Aab#cJd"7=Eefg h \ ] 4 4 54 5 $ " 4 5 4 5$ "
> " G L $ 4 L > " G " C T g key
} g value } g prior-result } g t 5 g filenamef scripts/scan-api.scm
" #
+ # 2 ; 2 . * 2 0 ; 2 2 7 # 8 / > 8 @ / D + F / L / Q " _ " ` / | " } Ch"c h ]4 5456 g a
g b g filenamef scripts/scan-api.scm
! (
! ! ( ! C,ijklmn8opqr*sty6 h j ]4 5N C b g m
g filenamef scripts/scan-api.scm
* " Cz{E|}"N h j ] 6 b g p
g filenamef scripts/scan-api.scm
- @
9
C~R,E"d h ] 4 54 56 g x
g filenamef scripts/scan-api.scm
( / ( ! C + h " - 1 3 4
54 54 O 54
5 4> " G 4> " G 44
O 5 5 4
> " G 4 > " G 4 > " G 4 45 $ " > " G 4 45 $ " > " G 4 > " G 4 H44 5 O > " G J > " G 4 > " G 4 4 $ 4!"4#55" $5> " G 4 %> " G 4 &> " G 4'(> " G 4 )> " G 4 *> " G C g args
g guile 0 g sofile 0 g grouper 0 g ht 0 g all v g t g t g i ' S g filenamef scripts/scan-api.scm
) 0 9 M a d n r v v y ~ - / ! & ' * . / 4 ! 8 : F X a f m v { } ~ $ ( - ( ( $ S
g nameg scan-api CRiRC g m
, g filenamef scripts/scan-api.scm =
0 C
2 D 5 D
< F
C G
I
R
[
g
q q
s
v
y
{ |
;
M
T
V
C6 PK ! @F scripts/display-commentary.gonu [ GOOF----LE-8-2.0 ] * 4 h ] g guile g define-module* g scripts g display-commentary g filenameS
f scripts/display-commentary.scm g importsS g ice-9
g
documentation
g exportsS g set-current-module f 5Display the Commentary section from a file or module. g %summary g format f ~A commentary:
~A g file-commentary g display-commentary-one g map g symbol->string g
string-append f / g module-name->filename-frag !g %search-load-path "f
module ~A
#g display-module-commentary $g for-each %g string? &g string-index 'g with-input-from-string (g read )g mainC 5 h ]4
5 4 > " G R h ] 4 56 g file
g filenamef scripts/display-commentary.scm
%
&
& ' & g nameg display-commentary-one CR h@ ( ]4 5 " ( C45 " " g ls
? g ls ? g ls 1 g acc 1 g filenamef scripts/display-commentary.scm
(
) ) * + - - $ - , ' - 0 ) - 1 -
1 * 4 * 7 * " ? * ? g nameg module-name->filename-frag C R! " h8 ] 44 55 $ 4 > " G 6C g module-name
3 g t 3 g filenamef scripts/display-commentary.scm
/
0 0 0 0 2 2 # 2 1 3
3 g nameg display-module-commentary C#R$%&#'( h@ ]4 5$ !
4 (5&
4 56 6 $ 6C g ref
= g filenamef scripts/display-commentary.scm
6 7
7 8 # 8 : ( 9 . ; 1 < 5 7 ; = = C h - 1 3 6 g refs
g filenamef scripts/display-commentary.scm
5
6
g nameg display-commentary CRi)RC g m
, g filenamef scripts/display-commentary.scm
. # 1 #
%
(
/
5
@
C6 PK ! g^d" " scripts/summarize-guile-TODO.gonu [ GOOF----LE-8-2.0! ] } 4 h ] g debug-enable g backtrace g guile g define-module* g scripts g summarize-guile-TODO
g filenameS f scripts/summarize-guile-TODO.scm
g importsS g read-text-outline g ice-9 g getopt-long g exportsS g autoloadsS g srfi g srfi-13 g string-tokenize g srfi-14 g char-set ! "g common-list #" $g
remove-if-not %$ & !#% 'g set-current-module (' )' *g %include-in-guild-list +f A quaint relic of the past. ,g %summary -g set-object-property! .g put /g object-property 0g get 1g who 2g map 3g string->symbol 4g pct-done 5g string->number 6g as-leaf 7g parent 8g for-each 9g hang-by-the-leaves :g make-text-outline-reader ;f =(([ ][ ])*)([-+])(D*)(R*)(X*)(([0-9]+)%)* *([^[]*)(\[(.*)\])* <g level-substring-divisor =< >g body-submatch-number ?> @g extra-fields Ag status BA Cg design? DC Eg review? FE Gg extblock? HG I4 J1 K@BDFHIJ L=?K Mg open-file Nf r Og read-TODO Pg
option-ref Qg involved Rg memq Sg personal Tg reverse Ug todo Vg string=? Wf - Xg done Yf + Zg review [g select-items \g format ]f ~A ^f _f
under : ~A~A
`g make-string af status: ~A~A~A~A~A~A
item : ~A
bf D cf R df X ef ~A% fg make-display-item gg no-parent hg
display-items if summarize-guile-TODO jg single-char kjw l1k mjn ngm oji pg value qp rQoq sjp tSsq ujt vUu wjd xXw yjr zZy {lnrtvxz |g mainC 5h ]4i> " G 4
&5 4) > " G *R+,R-i.R/i0R01.23 45
h 2 ] 4 5 $ -4 444:555> " G " 4 5 $ 4 4 5> " G " C * g x
y g t C g t L v g filenamef scripts/summarize-guile-TODO.scm
Q
R R R R T T U V % V - - V / U 4 T D W J W L W L W U Y [ Y \ Y g Y y g nameg as-leaf C6R.78 h w ]L L 6 o g child
g filenamef scripts/summarize-guile-TODO.scm
b % c 3 c ' C6 hX ] $ '4 > " G LO 64 > " G 4 5M N C g tree
T g parent T g filenamef scripts/summarize-guile-TODO.scm
^ _ _
a a a + a . d % 0 b 1 f 7 f % > f G g . P g ( R g T g nameg hang C8 h n ]L 6 f g tree
g filenamef scripts/summarize-guile-TODO.scm
h i C h8 ]HO Q 4O > " G JC g trees
4 g leaves 4 g hang 1 g filenamef scripts/summarize-guile-TODO.scm
\
] ] ^ h 4 g nameg hang-by-the-leaves C9R9:;LMN h ]4454 556 g file
g filenamef scripts/summarize-guile-TODO.scm
m
o o
p q o y y y o n g nameg read-TODO CORPQ301R h ]4 5$ L 4 56C g x
g filenamef scripts/summarize-guile-TODO.scm
$ + $ , 3 , $
CS01T h( ] 4 5 $ 45L CC g x
! g t ! g filenamef scripts/summarize-guile-TODO.scm
& - & 5 0 + ! C8P h ]4L 5$
M N CC g pair
g filenamef scripts/summarize-guile-TODO.scm
%
' ! CUV0AW h ]4 56 g x
g filenamef scripts/summarize-guile-TODO.scm
/ 6
/ ? % CXV0AY h ]4 56 g x
g filenamef scripts/summarize-guile-TODO.scm
/ 6
/ ? % CZ0E h v ] 6 n g x
g filenamef scripts/summarize-guile-TODO.scm
.
'
CT$ h + ]H4 5 $ 45 O JK " 4 5 $ 45 O JK " 4 O
> " G " !( 645 "4J5 "# g p
g items g sub g t 6 g u / g t @ g g u O ` g sub g items g filenamef scripts/summarize-guile-TODO.scm
{
|
| } } } } * , 7 = @ @ I O [ ] h u
)
" g nameg select-items C[R01\]^ h ] 4 5 $ 6C g item
g t g filenamef scripts/summarize-guile-TODO.scm
2 ' C^ h p ]C h g item
g filenamef scripts/summarize-guile-TODO.scm
C\_`07 hX ]" <$ 444 5> " G 45 "C4 5 " g item
U g parent B g indent B g filenamef scripts/summarize-guile-TODO.scm
# " + 1 * 3 8 3 @ B C " I , K " U U Ch g ]C _ g item
g filenamef scripts/summarize-guile-TODO.scm
C\a0ACb^EcGd4e h ] 44 54 5$ " 4 5$ " 4
5$ " 4 5 $ 4
5" 4L 5 > " G L 6 g item
g t Y t g filenamef scripts/summarize-guile-TODO.scm
& & * ' - / 3 5 & ; * < B D H J ( P , Q W Y Y b g % k q u $ C h0 ] $ " $ " O C g show-who?
, g show-parent? , g show-who , g show-parents , g filenamef scripts/summarize-guile-TODO.scm
, g nameg make-display-item CfRfP1g8 h(
]
44 54 55 6 g p
& g items & g display-item & g filenamef scripts/summarize-guile-TODO.scm
) 7 ) . < . ) &
& g nameg
display-items ChRi{h[OP hH ' - 1 3 4 5 4444555> " G C g args
D g p B g filenamef scripts/summarize-guile-TODO.scm
" % % 5 * C - 5 . 0 0 % 2 7 D
g nameg summarize-guile-TODO C R i|RC g m
- D g filenamef scripts/summarize-guile-TODO.scm A
A A
C
H K
J L M L
T N
[ O
5 Q
\
m
{
C6 PK ! 0" " scripts/api-diff.gonu [ GOOF----LE-8-2.0! ] ^ 4 h ] g guile g define-module* g scripts g api-diff g filenameS
f scripts/api-diff.scm g importsS g ice-9
g common-list
g format g getopt-long g exportsS g autoloadsS g srfi g srfi-13 g string-tokenize g set-current-module ! " #g %include-in-guild-list $f ,Show differences between two scan-api files. %g %summary &g with-input-from-file 'g read (g read-alist-file )g set-object-property! *g put +g object-property ,g get -g assq-ref .g meta /g interface 0g groups 1g make-hash-table 2g for-each 3g
hashq-set! 4g read-api-alist-file 5g hashq-ref 6g hang-by-the-roots 7g set-difference 8g diff? 9g
diff+note! :g hash-fold ;g acons <g map =g car >f groups-removed: ~A
?f groups-added: ~A
@g length Af ~5@A ~5@A : Bf - Cf ~5@A ~5@A : ~5@A Df ~5@D ~5@D : ~5@D Ef ~A
Fg sort Gg union Hg string<? Ig symbol->string Jg details Kf ~A ~A:
Lg removals Mf ~A
Ng additions Of ~A: no changes
Pg error Qf !api-diff: group-diff: bad options Rg
group-diff Sg single-char TSd Ug value VU WJTV XW Yg
option-ref Zf /dev/null [ZZ \g string->symbol ]g mainC 5 h ]4
5 4" > " G #R$%R&' h O ] 6 G g filenamef scripts/api-diff.scm
5 5
C h } ] 6 u g file
g filenamef scripts/api-diff.scm
3
4
g nameg read-alist-file C(R)i*R+i,R(-./*0123 h k ]L 6 c g group
g filenamef scripts/api-diff.scm
@ ' A > A ) C
h | ]!4 5 45 45 4> " G 44 5 4 O 45> " G > " G C t g file
| g alist | g meta | g interface | g ht E l g filenamef scripts/api-diff.scm
:
; ; < < < ; = = $ = ; " > ( > / > 8 ? > ? ? ? % E ? H @ R B ' X B 6 Z B ' _ @ q ? | g nameg read-api-alist-file C4R,02235 h { ]L L 4L 56 s g group
g filenamef scripts/api-diff.scm
I K . L . K ( J C-0 h w ] L O 4 56o g x
g filenamef scripts/api-diff.scm
H M M & M I C h0 ] 4 5 4O > " G C g interface
, g ht ) g filenamef scripts/api-diff.scm
F
G G G G H , g nameg hang-by-the-roots C6R7 h ]
4 5 ( CC g a
g b g result g filenamef scripts/api-diff.scm
Q
R R S g nameg diff? C8R8 hp S ]H4 5 $ 4> " G K" 4 5 $ 4> " G K" J$ 6 C K g a
k g b k g
note-removals k g note-additions k g note-same k g same? k g t 2 g t ; _ g filenamef scripts/api-diff.scm
W
X Y Y Y & + Y 8 3 Z ; Z D Z & X Z 9 e [ i [
k g nameg
diff+note! C9R6:;,0<=9> h n ] 6 f g removals
g filenamef scripts/api-diff.scm
f g $ g C? h o ] 6 g g additions
g filenamef scripts/api-diff.scm
h i $ i C h G ] C ? g filenamef scripts/api-diff.scm
j
C2-@ABC9@ h j ]4 5N C b g subs
g filenamef scripts/api-diff.scm
x # y 5 y %
C@ h j ]4 5N C b g adds
g filenamef scripts/api-diff.scm
z # { 5 { %
C h G ] C ? g filenamef scripts/api-diff.scm
| #
CDE
h / ]94L 5 4L 5 $ 45" $ 45" $ $ " " 4$ " $ " > " G " 4> " nG " g$ ]$ O
HH4O O
> " G 4 J
J> " G " "" "| 6 ' g group
g old g new g old-count * g new-count > g delta [ g add-count g sub-count g filenamef scripts/api-diff.scm
k l # l m # l n ) n 2 * l 2 o ) 3 o 2 > l F p % Q p 2 [ l ^ q c q $ i r ! q r / w s ! s / q + > B F t t u v " } " } - ~ 4 } " $ & CFGHI h ]4 5456 z g a
g b g filenamef scripts/api-diff.scm
' ' C-J-9KL2M h j ] 6 b g x
g filenamef scripts/api-diff.scm
4 A 6 C h( ]4L > " G 6 g removals
! g filenamef scripts/api-diff.scm
* * 5 1 * ! * ! CKN2M h j ] 6 b g x
g filenamef scripts/api-diff.scm
4 A 6 C h( ]4L > " G 6 g additions
! g filenamef scripts/api-diff.scm
* * 5 1 * ! * ! CO h Z ] L 6 R g filenamef scripts/api-diff.scm
* 7 ,
C h` ]4L 5 $ " 4L 5 $ " O O O 6 g group
Y g t g old Y g t ( : g new : Y g filenamef scripts/api-diff.scm
, ( C , ( ( 7 C : Y Y CPQ h a - 1 3
4 5 4455 45 45 4455 45 ( 74
> " G
O 4455645 $ O 66 Y g i-old
g i-new g options g i-old g g-old # g g-old-names . g i-new 7 g g-new J g g-new-names U g t
g filenamef scripts/api-diff.scm
]
^ ^ _ _ ! _ % _ 0 ! _ % # _ # ^ & ` . ^ 1 a 7 ^ : b ? b ! @ b % F b 0 H b % J b J ^ M c U ^ ] d ^ e k d %
g nameg
group-diff CRRXY[4J<\ R hx - 1 3 4 5 45 45 45 H45 $ 4 4
,55JK" J@ g args
v g p v g rest ! v g i-old + v g i-new 6 v g options 9 v g t E l g filenamef scripts/api-diff.scm
! ! ! $ ) % + + . 3 % 6 6 9 9 < B E E O * P * U / _ * ` $ c e v # v
g nameg api-diff CRi]RC g m
0 g filenamef scripts/api-diff.scm )
4 0
6 1 9 1
H 3
O 7
V 8
:
N F
Q
W
]
C6 PK ! scripts/generate-autoload.gonu [ GOOF----LE-8-2.0 ] 2 4 h ] g guile g define-module* g scripts g generate-autoload g filenameS
f scripts/generate-autoload.scm g exportsS
g set-current-module
g %include-in-guild-list f )Generate #:autoload clauses for a module. g %summary g open-input-file g eof-object? g read g length g defmacro-public g
define-public g
define-module g member g :export g append g export g
export-syntax g
autoload-info f --target !g display "f ;;; do not edit --- generated #g strftime $f %Y-%m-%d %H:%M:%S %g localtime &g current-time 'g newline (f (define-module )f (guile-user) *g for-each +f
:autoload ,f -f ) .f ;;; /f symbols in 0f modules
1g mainC 5 h( ]4
5 4 > " G RR
h ])4 5 " 45$ $ ( C CC" 45 "$ a" F 45$ 4& '$ 45 """"" 45$ n& a" '$ 45 "1"t$ )$ 45 """":"6 45$ & :454 5 $ 4
5" " & " $ 454
5 "d"""45 "E g file
g p g form g module-name g exports g t J f g t s g filenamef scripts/generate-autoload.scm
@
A A B C
C D
/ F 7 l K l K G
N G R G
Y f ` f d e f g i g , m e p h r h v e w i k k i G
W W V X X * V a a ^ b d d b G
Y Y V Z Z V [ ] ] [ G
" H ) H - G / I 2 I * 6 G 7 J @ K B L F L & J L J L S N # X N + ] N # p J s R s R P S U U U S B B B 9 B Q g nameg
autoload-info C R !"#$%&'()* *!+, h( ]MN45M N 6 g module-name
$ g exports $ g filenamef scripts/generate-autoload.scm
} ( ~ = ~ * > ; * : F " 4 $ * $ C h ] 4 5 $
LL O @C g file
g t g filenamef scripts/generate-autoload.scm
y z z } ! C-./0 h J - 1 3
H
H4 5 $ " $ " 4> " G 44445 55> " G 4 > " G 4
> " G 4$ " > " G 4
O > " G 4> " G 4 > " G JJ 6 B g args
g module-count
g
syms-count
g t , g target-override , g files ? g filenamef scripts/generate-autoload.scm
n
o q ! q ) q ! q , o 4 s 7 s $ ? s 0 ? o B t F t
K t T u W u
[ u \ u + _ u 6 e u + g u
l u u v w w
w x x
x ! x y
' ) )
g nameg generate-autoload CRi1RC g m
( g filenamef scripts/generate-autoload.scm :
, =
. > 1 >
@
n
$
&
C6 PK ! tC*^& & scripts/autofrisk.gonu [ GOOF----LE-8-2.0& ] | 4 h#
] g guile g define-module* g scripts g autofrisk g filenameS
f scripts/autofrisk.scm g importsS g srfi
g srfi-1
g srfi-8 g srfi-13 g srfi-14 g read-scheme-source g frisk g exportsS ! "g autoloadsS #g ice-9 $g popen %#$ &g open-input-pipe '& (%' )g set-current-module *) +) ,g %include-in-guild-list -f 0Generate snippets for use in configure.ac files. .g %summary /g
files-glob 0g non-critical-external 1g non-critical-internal 2g programs 3g pww-varname 4/0123 5g *recognized-keys* 6g error 7f
syntax error: 8f input not a list 9g every :g list? ;f non-list element <g length =f list too short >g quote ?g memq @f unrecognized key: Ag apply Bg map Cg fold Dg append Eg assq-ref Fg canonical-configuration Gg for-each Hg format If GUILE_MODULE_REQUIRED~A
Jg >>strong Kg object->string Lg string-map! Mg char-set-contains? Ng char-set:letter+digit Og safe-name Pf probably_wont_work Qg *pww* Rg edge-up Sg edge-down Tf have_guile_module~A Uf GUILE_MODULE_AVAILABLE(~A, ~A)
Vf "test "$~A" = no &&
~A="~A $~A"~A Wf
Xg >>weak Yf guile_module~Asupport_~A Zf AC_PATH_PROG(~A, ~A)
[f test \
\f "$~A" = "" -o \
]f ~A &&
~A="~A $~A"
^g list-ref _f war = peace `f freedom = slavery af ignorance = strength bg random cg >>program dg
>>programs ef echo '(' ~A ')' fg symbol->string gg read hg unglob ig make-frisker jg external kg partition lg member mg mod-down-ls nf AC_DEFUN([AUTOFRISK_CHECKS],[
of
~A=~S
pf qf AC_SUBST(~A)
])
rg >>checks sg [
AC_DEFUN([AUTOFRISK_SUMMARY],[
if test ! "$~A" = "" ; then
p=" ***"
echo "$p"
echo "$p NOTE:"
echo "$p The following modules probably won't work:"
echo "$p $~A"
echo "$p They can be installed anyway, and will work if their"
echo "$p dependencies are installed later. Please see README."
echo "$p"
fi
])
tg >>summary uf
modules.af vg file-exists? wf could not find input file: xg with-output-to-file yf ~A.m4 zg read-scheme-source-silently {g mainC 5h ]4
!"(5 4+ > " G ,R-.R45R6789:;< h k ] 4 5C c g form
g filenamef scripts/autofrisk.scm
N N $ N C=>?5 h8 ] $ $& C45 $ CN CC g form
4 g key 4 g t ! 2 g filenamef scripts/autofrisk.scm
P Q Q
R R S $ S S T ! S 0 V ! 4 C@ABCD h8 ]
L & $ 4 5" " $ CC g form
4 g so-far 4 g t & 4 g filenamef scripts/autofrisk.scm
[ \ 0 \ & ] + \ & ^ + ^ : ^ + & \ "
4 C h j ] O L 6 b g key
g filenamef scripts/autofrisk.scm
Z ` [ C5E h b ]L 6 Z g key
g filenamef scripts/autofrisk.scm
c
d
C h ] $ " 4> " G 4 5 $ " 4> " G 4 5 $ " 4> " G H4 O 5
J $ " 4 > " G 4
O 5 O C g forms
g condition * M g condition V y g un z g condition g x g bunched g filenamef scripts/autofrisk.scm
I
L K K K * L K " M * M 2 K 7 K ; K * = M B K N N V N ^ K c K g K * i N ; n K z O } P Y P K K K * K Z Z g nameg canonical-configuration CFRGHI h m ] 6 e g module
g filenamef scripts/autofrisk.scm
g h h C h z ] 6 r g modules
g filenamef scripts/autofrisk.scm
f
g
g nameg >>strong CJRKLMN h h ]4 5$ C_C ` g c
g filenamef scripts/autofrisk.scm
m n n C h( ] 4 5 4> " G C g module
" g var " g filenamef scripts/autofrisk.scm
k
l
l m " g nameg safe-name CORPQRGRSHTOUVQW
hP ]4 5 4 5 4455 4> " G 6 g edge
M g up M g down M g var # M g filenamef scripts/autofrisk.scm
w x x y x z z % z ; # z # x & { + { 4 { A | K } - M | M C h { ] 6 s g
weak-edges
g filenamef scripts/autofrisk.scm
v
w
g nameg >>weak CXRBHYO h w ]4L 5 6 o g prog
g filenamef scripts/autofrisk.scm
CGHZ h ] 6 w g var
g prog
g filenamef scripts/autofrisk.scm
CH[H\ h m ] 6 e g var
g filenamef scripts/autofrisk.scm
C]^_`abQ hx ( ]
4 O 5 4> " G 4> " G 4> " G 4
4
55 6 g module
q g progs q g vars q g filenamef scripts/autofrisk.scm
) . 3 < T U Y [ ] ` a i q q g nameg >>program CcRGc h w ] 6 o g form
g filenamef scripts/autofrisk.scm
$ C h ] 6 w g programs
g filenamef scripts/autofrisk.scm
g nameg
>>programs CdR&HeBfg h ] 44 55 456 g pattern
g p g filenamef scripts/autofrisk.scm
'
g nameg unglob ChRFDBh/01ij3Qkl9l h b ] L 6 Z g i
g filenamef scripts/autofrisk.scm
"
CBSm h0 ] 4 L 5 $ CLO 44 556 g module
/ g t / g filenamef scripts/autofrisk.scm
% / - / / CHnJopXCDm h ]4 56 | g module
g so-far g filenamef scripts/autofrisk.scm
% Cd2q h + ]A4 5 44455? 45 45 445 5 4 5 4
5 ( " 4
O > G 4> " G 4> " G 4 > " G 44 5> " G 445> " G 6 # g forms
g cfg g files g ncx ' g nci 0 g report < g external E g pww-varname N b g weak v g strong v
g filenamef scripts/autofrisk.scm
* / * ! % ' ' * . 0 0 3 4 < < ? C E E H L N N V ] * _ c y ~ % 9 g nameg >>checks CrRHfsQ h ] 456 z g filenamef scripts/autofrisk.scm
g nameg >>summary CtRuv6wxHyrzt h m ] 44L 5> " G 6 e g filenamef scripts/autofrisk.scm
C h` - 1 3 ( " 45 $ " 4> " G 45O 6 g args
Y g file Y g t ! D g filenamef scripts/autofrisk.scm
, ! . 2 9 G L $ P Y Y
g nameg autofrisk CRi{RC g m
0 g filenamef scripts/autofrisk.scm 6
4 @
6 A 9 A
; C > C
I
5 f
k
t t
v
k
.
C6 PK ! i scripts/read-rfc822.gonu [ GOOF----LE-8-2.0 ] L 4 h ] g guile g define-module* g scripts g read-rfc822 g filenameS
f scripts/read-rfc822.scm g importsS g ice-9
g regex
g rdelim g exportsS g read-rfc822-silently g autoloadsS g srfi g srfi-13 g string-join g set-current-module !g %include-in-guild-list "f Validate an RFC822-style file. #g %summary $g make-regexp %f ^From &g from-line-rx 'f ^([^:]+):[ ]* (g header-name-rx )f ^[ ]+ *g header-cont-rx +g option ,g eof-object? -g reverse .g read-line /g regexp-exec 0g for-each 1g unread-char 2g string->list 3g
drain-message 4g match:suffix 5g string->symbol 6g match:substring 7g substring 8g match:end 9f :g string-null? ;g from <g
body-lines =g headers >g body ?f
@g suffix Ag error Bf bad component: Cg
parse-message Dg format Ef From ~A
Ff ~A: ~A
Gf
~A Hg display-rfc822 Ig open-file Jg OPEN_READ Kg mainC 5 h8
]4
5 4 > " G !R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01 h b ] L 6 Z g c
g filenamef scripts/read-rfc822.scm
A
B
C2
h C ]" p45$ 6" 4 5 "$ =45$ ,4 O
44 55> " G 6""4 5 " ; g port
g line v g acc v g filenamef scripts/read-rfc822.scm
<
= > > ? G ' G " / G / > 6 @ B @ C A O D R D $ Z D [ C ` A n E v = w = ~ = * = g nameg
drain-message C3R+4/&.-/(56789
hX ])4 5 45 44 55 44455 5 M N C y g reversed-hlines
Q g hlines Q g first Q g m Q g name ( Q g data C Q g filenamef scripts/read-rfc822.scm
P Q ' Q R & Q S " Q T % T 5 ( T % ( Q + U % . V , 3 V = ; V , > W , ? V & A X & C U % C Q J Y ( O Y Q g nameg add-header! C:3*-;<=>?@AB
hX ] $ LC $ M C $ MC $ M $ C4M 5NMC 6 g component
T g t 1 L g filenamef scripts/read-rfc822.scm
g h 1 l = m & C m > E m C G m & I m P o T o T C h 4 ]A$ 444 555" HHHO Q " 45$ )$ 4> " G " 4 5K" m4 5 $ 4 545 "$ 4> " G " 4 5 "r 4 5 "_4
J5K O C , g port
g from g
body-lines # g body & g headers ) g add-header! 3 g line < g current-header < g t y g filenamef scripts/read-rfc822.scm
I
J K K " L / K " K J ) O ) J < [ = \
G \ M ]
N ] ! d ^ l ^
q _
y \ a b b a d
d ! e e $ e
[ [ [ f f " g nameg
parse-message CCRC h ] 6} g port
g filenamef scripts/read-rfc822.scm
q
r g nameg read-rfc822-silently CR;DE0DF h ] 6 w g header
g filenamef scripts/read-rfc822.scm
v w
w $
w 1 w C=G> hX ] 4 5 $ 4> " G " 44 5> " G 4 56 g parse
T g t - g filenamef scripts/read-rfc822.scm
t
u u u u u ) u 4 u ) . v 3 x 7 x 9 x > v K y
L y P y R y T y T g nameg display-rfc822 CHRIJH h8 - 1 3 44 55 4> " G C g args
1 g parse / g filenamef scripts/read-rfc822.scm
{
|
| % | 0 | % | | } 1
g nameg read-rfc822 CRiKRC g m
0 g filenamef scripts/read-rfc822.scm -
4 3
6 4 9 4
: 6 @ 6 $ B 6 E 6
F 7 L 7 $ N 7 Q 7
R 8 X 8 $ Z 8 ] 8
a :
<
G I
q
t
+ {
2
4
C6 PK ! C&C! ! scripts/help.gonu [ GOOF----LE-8-2.0! ] p 4 h ] g guile g define-module* g scripts g help g filenameS
f scripts/help.scm g importsS g ice-9
g format
g
documentation g srfi g srfi-1 g selectS g fold g
append-map g exportsS g show-help g show-summary g
show-usage g main ! "g set-current-module #" $" %f Show a brief help message. &g %summary 'f help
help --all
help COMMAND (g %synopsis )f
Show help on guild commands. With --all, show arcane incantations as
well. With COMMAND, show more detailed help for a particular command.
*g %help +g file-exists? ,g file-is-directory? -g opendir .g eof-object? /g closedir 0g readdir 1g string=? 2f . 3f .. 4g directory-files 5g or-map 6g string-suffix? 7g string-null? 8g substring 9g
string-length :g append ;g %load-compiled-extensions <g %load-extensions =g strip-extensions >g unique ?g map @g symbol->string Ag sort Bg in-vicinity Cg
%load-path Dg string<? Eg find-submodules Fg display Gf lUsage: guild COMMAND [ARGS]
Run command-line scripts provided by GNU Guile and related programs.
Commands:
Hg for-each Ig string->symbol Jg resolve-module Kg ensureS Lg and=> Mg module-variable Ng variable-ref Og %include-in-guild-list Pf ~A ~23t~a
Qf ~A
R Sf
For help on a specific command, try "guild help COMMAND".
Report guild bugs to ~a
GNU Guile home page: <http://www.gnu.org/software/guile/>
General help using GNU software: <http://www.gnu.org/gethelp/>
For complete documentation, run: info guile 'Using Guile Tools'
Tg %guile-bug-report-address Ug
list-commands Vg file-commentary Wg %search-load-path Xg module-filename Yg module-commentary Zg last-pair [g module-name \g module-command-name ]g current-output-port ^g string-split _g
string-append `f
OPTION... af
Usage: guild bg newline cf
guild df )No documentation found for command "~a".
eg current-module fg %mod gf --all hg if -a ji kg current-error-port lg exit mg string-prefix? nf - of No command named "~a".
C 5 hx ]4
!5 4$ > " G %&R'(R)*R+,-./0123
h ]!4 5$ 4 5$ }4 5 " `45$ 4> " G C4545 $ " 4 5 $ " "45 "CC g dir
g
dir-stream g new % g acc % g t U n g filenamef scripts/help.scm
)
*
* * * + + % , & . 0 .
1 0 F 2 M 3 Q 3 & U 3 U 3 c 4 g 4 & k 4 r 3 } 6 2 , , - , 7 g nameg directory-files C4R56789 h8 ]4 L 5$ #4 5$ CL
4L 54 56C g ext
4 g filenamef scripts/help.scm
:
<
; @ ; " B ) B 0 0 B 2 A
4 C:;< h ] O 456 z g path
g filenamef scripts/help.scm
9
C
: g nameg strip-extensions C=R> h8 ] ( C ( C $ 6 4 5C g l
5 g filenamef scripts/help.scm
E
F G F H H H ! F & H + ( H # + I , I 1 I $ 3 I 4 I 5 g nameg unique C>R?@>A= h ]
4 5 $ CC g x
g rest g stripped g filenamef scripts/help.scm
P Q , Q R R + C4B h j ] 6 b g x
g y
g filenamef scripts/help.scm
U !
U /
C h ~ ]44 L 556 v g path
g filenamef scripts/help.scm
O S T U T P CCD h( ] 4 5 44O 556 g head
& g shead & g filenamef scripts/help.scm
K
L L N O $ N & M & g nameg find-submodules CERFGHIJKLM&NO
PQ
h ~ ]!4 5 45 $ 4455" $ GL $ " 4 5 $ " $ $
6
6CCv g name
g modname g mod g summary 7 g v S f g filenamef scripts/help.scm
b c c c c d c " e # e & e % , e : . e % 2 e 7 c ? g E h K i Q i 2 S i S i [ j ^ j j g p k u l { l m m CER
ST
h@ ]4> " G 4 O 45> " G 6 g all?
; g filenamef scripts/help.scm
Y
Z Z Z a n # n % n * a 7 o
; o ; g nameg
list-commands CURVWX h ]44 556 g mod
g filenamef scripts/help.scm
x
z z z y g nameg module-commentary CYR@Z[ h ]44 556 g mod
g filenamef scripts/help.scm
|
} } " } } } g nameg module-command-name C\R]^M(_\`FabHFcb h0 ]4L > " G 4 L > " G L 6y g u
0 g filenamef scripts/help.scm
0 0 C
h v - . , 3 # 45 44 5 $ " 44 55
5 4 > " G 4> " G 4
> " G O 6 n g mod
g port g var % E g usages I g filenamef scripts/help.scm
* # 1 % % - 0 5 8 & @ & B I I L P
W ` e
j s g nameg
show-usage C R]M&Fb hH - . , 3 # 45 4 5 $ 4> " G 6C g mod
G g port G g var " G g filenamef scripts/help.scm
,
" "
" * +
0 7
E
G g nameg show-summary C R] M*FbY
d\ h F - . , 3 # 45 4 > " G 4 > " G 4 5 $ 4> " G 64 5 $ 4> " G 6
4 56 > g mod
g port g t J g t t g filenamef scripts/help.scm
) . B H J J S X _ m n t } g nameg show-help C R4ei5 fRUhj fklmnJIK
o h - 1 3 ( 6 $ " $ 6" 445 > " G 6 ( d4 5$ " 4
4 5
5 $ 4> " G
64> " G 6"u g args
g name l g t g filenamef scripts/help.scm
& . ' ! + 0 5 : C P P S W X ! \ 1 _ 5 a ! e l l o s t # }
&
g nameg main C RC g m
, g filenamef scripts/help.scm
. ! 1 !
3 " 6 "
8 # ; #
)
- 9
P E
V K
Y
m x
7 |
9
u
w
C6 PK ! ;^A A scripts/doc-snarf.gonu [ GOOF----LE-8-2.0A ] 4 h! ] g foo g bar g foo/bar f 0.0.2 g doc-snarf-version g guile g define-module*
g scripts g doc-snarf
g filenameS f scripts/doc-snarf.scm g importsS g ice-9 g getopt-long g regex g
string-fun g rdelim g exportsS !g set-current-module "! #! $f $Snarf out documentation from a file. %g %summary &g version 'g single-char ('v )g value *) +&(* ,g help -'h .,-* /g output 0'o 1) 2/01 3g texinfo 4't 534* 6g lang 7'l 8671 9+.258 :g command-synopsis ;g display <f
doc-snarf =g newline >g display-version ?f (Usage: doc-snarf [options...] inputfile
@f 6 --help, -h Show this usage information
Af 3 --version, -v Show version information
Bf ? --output=FILE, -o Specify output file [default=stdout]
Cf 3 --texinfo, -t Format output as texinfo
Df 5 --lang=[c,scheme], -l Specify the input language
Eg display-help Ff doc-snarf Gg
option-ref Hg string->symbol Ig string-downcase Jf scheme Kg
snarf-file Lg main Mg c Nf ^/\*(.*) Of ^ \*/ Pf ^ \* (.*) Qf ^ \*-(.*) Rf NOTHING AT THIS TIME!!! SMNOPQR Tg scheme Uf ^;; (.*) Vf ^;;\. Wf ^;;-(.*) Xf ^\(define YTUVUWX ZSY [g supported-languages \g list-ref ]g assq-ref ^g docstring-start _g
docstring-end `g docstring-prefix ag
option-prefix bg signature-start cg std-int-doc? dg lang-parm eg memq fg map gg car hg error if .doc-snarf: input language must be c or scheme. jg write-output kg snarf lg format-texinfo mg format-plain ng
unread-string og read pg length qg define rg lambda sg string? tg find-std-int-doc ug separate-fields-discarding-char vg
string-append wg split-prefixed xg open-input-file yg make-regexp zg eof-object? {g close-input-port |g reverse }g neutral ~g regexp-exec g read-line g
doc-string g match:substring g options f
internal: g append g parse-entry g entry g
make-entry g entry-symbol g entry-signature g entry-docstrings g
entry-options g entry-filename g
entry-line g
get-symbol g make-prototype f g call-with-input-string g read-char g join-symbols g symbol->string f . f g with-output-to-port g open-output-file g current-output-port g for-each f
f @c snarfed from f : f @deffn procedure g
write-line f @c f
@end deffn f Procedure: f ;; f
Snarfed from f C 5 h@3 v ] h ] $ CC ~ g braz
g filenamef scripts/doc-snarf.scm
1
2
2
2 g nameg foo/bar CRR4
5 4# > " G $%R9:R;<= h0 ] 4> " G 4> " G 6 g filenamef scripts/doc-snarf.scm
`
a a a a * a 5 *
g nameg display-version C>R;?@ABCD hh ] 4> " G 4> " G 4> " G 4> " G 4> " G 6 g filenamef scripts/doc-snarf.scm
e
f f f g g g ' h + h 0 h 9 i = j B i K k O k T k ` l b l b
g nameg display-help CERF:G,&3HI6J>E/K h Z - 1 3 4 5 45454544 4
555 $ 6 $
6 4545 $
6
6 R g args
g options g help-wanted J g version-wanted J g texinfo-wanted J g lang J g input y g output y g filenamef scripts/doc-snarf.scm
p
q q $ q q q r r + ! r " s ( s . + s , t 2 t . 5 t 6 u 9 v < v " B v 6 D v < F v " H v J u J r X w \ x b w f y g { l { ) o { p | v | * y | y { }
)
g nameg doc-snarf C R iLRZ[R\][^_`abc
hh ]4 5$
" K$ " =$ " .$ " $ " $ " 6 g lang
h g parm h g filenamef scripts/doc-snarf.scm
h h g nameg lang-parm CdRefg[hijklm hP ] 4455 $ " 4> " G 4 5$ "
6 g input
P g output P g texinfo? P g lang P g t 3 g filenamef scripts/doc-snarf.scm
#
( 6 F P P g nameg
snarf-file CKRnopqrs h ) ]
4 > " G 45 $ " o 45$ _& T$ I$ = 45$ *& 45$ CCCCCCCC 45$ @& 3$ &$ 45$ C"O"K"G"C"?C ! g line
g
input-port g form g filenamef scripts/doc-snarf.scm
" & - 4 8 : = A D F J M P T W \ ` a e g j " m q r w z ~ 5 g nameg find-std-int-docg
documentationf Unread @var{line} from @var{input-port}, then read in the entire form and
return the standard internal docstring if found. Return #f if not. CtRufv h e ]L 6 ] g line
g filenamef scripts/doc-snarf.scm
C h h - 1 3 L O 6 ` g lines
g filenamef scripts/doc-snarf.scm
C h ]
O 6 g string
g prefix g filenamef scripts/doc-snarf.scm
g nameg split-prefixed CwRxyd^_`abz{|}~ctw h u ]4 5 4455 4455 4455 4455 4455 " 74 5$ 4
> " G 6 & [4
5 $ *454 5
"45
"z & m4
54
54
54
5 $ *454 5
"$ +45
4 5
"$ 45$ &45 $
45" " $ 44 5 5" 45 4
5
"Z$ /45 4
5
"%45
" & 24
54
54
5 $ +45
4 5
"$ 45$ &45 $
45" " $ 44 5 5" 45 4
5
" $ /45 4
5
"45
"C45
" m g
input-file
g lang g i-p g docstring-start g
docstring-end ) g docstring-prefix 9 g
option-prefix I g signature-start Y g line _ g state _ g doc-strings
_ g options _ g entries _ g lno
_ g m g m0 Z g m1 Z g m2 Z g m3 Z g d g int-doc g options g m1 } g m2 } g m3 } g d g int-doc
g options
? g filenamef scripts/doc-snarf.scm
% 2 ( 2 % % 2 % ( ' 2 ) % ) , % / 2 5 ( 7 2 9 % 9 < % ? 2 E ( G 2 I % I L % O 2 U ( W 2 Y % Y _ ` j k
- 9 & * 6
( ) 3 4 : 9
I O
P X [
" e
j z
0 ) " ) ; ) " + /
) - ' * : ; C D ) E - J 9 Z ^ b c l ! u " } #
% % & " & ' % #
0 ) " ) ; )
) * * " * + * / + , + / - ? * E #
F / N / O / ) P / - Q 0 a 0 d 2 t / u 4 } 4 ~ 4 ) 4 - 4 9 4 + B $ g nameg snarf CkR h ] C g symbol
g signature g
docstrings g options g filename g line g filenamef scripts/doc-snarf.scm
6
7
7 g nameg
make-entry CR h z ] C r g e
g filenamef scripts/doc-snarf.scm
8
9 g nameg entry-symbol CR h } ] Cu g e
g filenamef scripts/doc-snarf.scm
:
; g nameg entry-signature CR h ~ ] Cv g e
g filenamef scripts/doc-snarf.scm
<
= g nameg entry-docstrings CR h { ] Cs g e
g filenamef scripts/doc-snarf.scm
>
? g nameg
entry-options CRh | ] Ct g e
g filenamef scripts/doc-snarf.scm
@
A g nameg entry-filename CR h ] C g e
g filenamef scripts/doc-snarf.scm
B
D g nameg
entry-lineg
documentationf 4This docstring will not be snarfed, unfortunately... CR|pH h A ]$ 545454 5454 54564 5
$ =44 554 54 5454 54564 5454 5456 9 g
docstrings
g options g def-line g filename g line-no g filenamef scripts/doc-snarf.scm
I
K M N N + O + P 2 P 3 P 3 : P ; P = M > Q F Q J K M R P R % W R Y R Z S a S b T i T j U u V | V } V 2 V V R X X X X - Y Y Y 2 Y Y X ) g nameg parse-entry CRo hP ] 4 > " G 4 > " G 4 5 $ 6$ 6C g s-p
L g tmp - L g filenamef scripts/doc-snarf.scm
a b c ' d - b 2 f 6 e < g ? h C e I i K k
L C h ] 6 { g def-line
g filenamef scripts/doc-snarf.scm
^
_
g nameg make-prototype CRo hH ] 4 > " G 4 > " G 4 5 $ C$ CC g s-p
G g tmp - G g filenamef scripts/doc-snarf.scm
p q r ' s - q 2 u 6 t 9 v = w A t F z G C h ] 6 w g def-line
g filenamef scripts/doc-snarf.scm
m
n
g nameg
get-symbol CRv hH ] ( C $
4 56 ( 64 54 56 g s
C g filenamef scripts/doc-snarf.scm
~
" & + - 0 5 ( 7 9 1 : 5 ? C A 5 C C g nameg join-symbols CR h R ] LL 6 J g filenamef scripts/doc-snarf.scm
C h( ]$ 45" 45 O 6 g entries
% g output-file % g writer % g filenamef scripts/doc-snarf.scm
* # % % g nameg write-output CjR;= h b ] 6Z g s
g filenamef scripts/doc-snarf.scm
C; h } ]4> " G 6 u g s
g filenamef scripts/doc-snarf.scm
! ( C h ]4> " G 44 5> " G 4> " G 4> " G 44 5> " G 4> " G 44 5> " G 4> " G 4 > " G 44
5> " G 4> " G 4 4
5> " G 4 4 5> " G 6 g entry
g filenamef scripts/doc-snarf.scm
# , < @ E N Q \ e i n w z % g nameg format-texinfo ClR;= h b ] 6Z g s
g filenamef scripts/doc-snarf.scm
C; h } ]4> " G 6 u g s
g filenamef scripts/doc-snarf.scm
! ( C h ]4> " G 44 5> " G 4> " G 44 5> " G 44 5> " G 4
> " G 44 5> " G 4 > " G 44
5> " G 4> " G 6 w g entry
g filenamef scripts/doc-snarf.scm
# , < A L U Z e n r w g nameg format-plain CmRC n g m
g filenamef scripts/doc-snarf.scm 1
J J
N
U U
X W
`
3 e
U p
\
^ a
T
8
6
U 8
:
<
>
@
! B
$ I
& ^
(R m
) ~
+S
/
3:
" 3<
C6 PK ! BS{ scripts/punify.gonu [ GOOF----LE-8-2.0 ] % 4 hs ] g guile g define-module* g scripts g punify g filenameS
f scripts/punify.scm g exportsS
g set-current-module
g %include-in-guild-list f 1Strip comments and whitespace from a Scheme file. g %summary g string->list g symbol->string g char=? g memq g list->string g display g write f ( g write-punily f ) f g with-input-from-file g eof-object? g read !g current-input-port "g
punify-one #g for-each $g mainC 5h ]4
5 4 > " G RR h ]!" p $ B44 55 4:5$ 4 5$ " 45" " $ 4:> " G 6 6 $ ( " 4> " G 4 > " G " X(
6 $ " $ " 4 > " G 4 > " G " "" g form
g ls K g t P v g first g ls g last-was-list? g new-first g filenamef scripts/punify.scm
.
=
= > > & > > ? ! ? % ? ) ? * @ 6 ? < A A A # C A P / Y C p D v E v / y / } / / 0 0 1 1 1 2 3 4
5 5 6 # 6 8 7 ' 8 : : ! : ; < 7 ' < 3 3 3 6 3 3 g nameg write-punily CR ! hP ]" 44 5 $ C4 > " G 445 5 "445 5 " g form
: g t
: g filenamef scripts/punify.scm
I K L
L
N + J . J # 4 J : O : K ; J > J # D J J K J
C h v ] 6 n g file
g filenamef scripts/punify.scm
G
H
g nameg
punify-one C"R#" h t - 1 3 6 l g args
g filenamef scripts/punify.scm
Q
R
g nameg punify CRi$RC g m
( g filenamef scripts/punify.scm (
, +
. , 1 ,
.
G
Q
T
C6 PK ! NH scripts/use2dot.gonu [ GOOF----LE-8-2.0 ] [ 4 h" ] g guile g define-module* g scripts g use2dot g filenameS
f scripts/use2dot.scm g importsS g srfi
g srfi-13
g selectS g string-join g frisk g make-frisker g edge-type g edge-up g edge-down g exportsS g autoloadsS g ice-9 g getopt-long ! " #!" $g set-current-module %$ &$ 'f 1Print a module's dependencies in graphviz format. (g %summary )g
guile-user *) +g *default-module* ,g format -f ~S .g q /g map 0f ~A=~A 1g vv 2f digraph use2dot {
3g for-each 4f ~A;
5g label 6f Guile Module Dependencies 7g ratio 8g fill 978 :9 ;g >>header <f "~A" -> "~A" =g autoload >g style ?g dotted @>? Ag fontsize BA C@B Dg computed Eg bold F>E GF Hf [~A] If , Jf ;
Kg >>body Lf } Mg >>footer Ng >> Of use2dot Pg default-module Qg single-char RQm Sg value TS UPRT VU Wg
option-ref Xg reverse Yg edges Zg mainC 5 h` ]4
#5 4& > " G '(R*+R,- h s ] 6 k g s
g filenamef scripts/use2dot.scm
;
<
< g nameg q C.R/,0 h y ] 6 q g pair
g filenamef scripts/use2dot.scm
? @
@
@ ' @ C h p ] 6 h g pairs
g filenamef scripts/use2dot.scm
>
?
g nameg vv C1R,23,4 h f ] 6 ^ g s
g filenamef scripts/use2dot.scm
E E # E C15.6:
h0 ] 4> " G 445 56 g filenamef scripts/use2dot.scm
C
D D
D F F F # F % F & F + F - E
-
g nameg >>header C;R3,<=CDGH1IJ h ] 44 54 5> " G 4 5 $ " $ " $ %4
4 4 5
5> " G " 6 g edge
g key * N g t N ~ g filenamef scripts/use2dot.scm
O P P P % P 6 P $ Q * Q 7 R D Q F S N Q W V \ V ] V $ ` V 1 h V : j V $ o V W W C h t ] 6 l g edges
g filenamef scripts/use2dot.scm
M
N
g nameg >>body CKR,L h j ] 6 b g filenamef scripts/use2dot.scm
Z
[
[
g nameg >>footer CMR;KM h( ]4> " G 4 > " G 6 x g edges
( g filenamef scripts/use2dot.scm
]
^ _ ( ` ( g nameg >> CNR OVWP+NXY hP - 1 3 4 5 45 45 45 4 445
556 g args
P g parsed-args P g =m " P g scan . P g files 9 P g filenamef scripts/use2dot.scm
b
c c ) c # d # c c f
f % " f
" c % g ) g . g . c 1 h 6 h ( 7 h , 9 h 9 c > i A i B i J i L i N i P i P
g nameg use2dot CRiZRC g m
0 g filenamef scripts/use2dot.scm 0
2 7 5 7
7 9 : 9
;
>
C
M
Z
S ]
V b
] k
_
C6 PK ! p++ + scripts/snarf-guile-m4-docs.gonu [ GOOF----LE-8-2.0 ] 3 4 hS ] g guile g define-module* g scripts g snarf-guile-m4-docs g filenameS
f scripts/snarf-guile-m4-docs.scm g importsS g ice-9
g rdelim
g exportsS g set-current-module g %include-in-guild-list f /Snarf out texinfo documentation from .m4 files. g %summary g display f @deffn {Autoconf Macro} g for-each g string=? f # g substring g
string-length f # !g newline "f
@end deffn #g display-texi $g catch %$ &$ 'g prefix? (g list->string )g reverse *g string->list +g
massage-usage ,g open-file -f r .g eof-object? /f # Usage: 0g read-line 1f AC_DEFUN 2g mainC 5h ]4
5 4 > " G RR ! h ]4" &44
55$ 4 5" B " <4 5 $ *44
55$
4 5" "" "> " G 6 g line
| g filenamef scripts/snarf-guile-m4-docs.scm
* +
. . ( . , . + / / + 0 + ' 9 + # = + > , # B , - C , 2 N , # R + S - p + | 1 | C"! hP ]4> " G 4 > " G 4> " G 4> " G 6 g lines
N g filenamef scripts/snarf-guile-m4-docs.scm
(
) ) ) * ) 3 - 3 2 3 ; 4 N 4 N g nameg display-texi C#R& h r ] L4L
4L556 j g filenamef scripts/snarf-guile-m4-docs.scm
7 8
8 # 8 8
C h g - 1 3 C _ g args
g filenamef scripts/snarf-guile-m4-docs.scm
7
C h ] O 6 g line
g sub g filenamef scripts/snarf-guile-m4-docs.scm
6
7 g nameg prefix? C'R()* hp 1 ]" Y( 4455 C ($ " )$ " ,$ " "4 5 " ) g line
o g line _ g acc _ g key " T g filenamef scripts/snarf-guile-m4-docs.scm
:
; <
= = = = > " ? " ? Q A W ? _ > _ ; ` ; g ; - o ; o g nameg
massage-usage C+R,-.'/0+ 1#)
h - 1 3 4 5 " 45 $ C45$ 4544 55 "4 5$ '4
4 5> " G 45 "" 45 "|$ %4 5$ 45 "U""45 "=
g args
g p g line g acc g t g filenamef scripts/snarf-guile-m4-docs.scm
D
E E E " E E G H
H , I 2 I 4 I 8 I
9 F @ J C J - M J U J V K \ K ^ K b I
c L f L q L z F M F Q I
N N ( N N F O O G F G )
g nameg snarf-guile-m4-docs CRi2RC g m
, g filenamef scripts/snarf-guile-m4-docs.scm !
0 %
2 & 5 &
(
6
:
D
S
C6 PK ! :&Y Y scripts/lint.gonu [ GOOF----LE-8-2.0A ] I 4 h ] g guile g define-module* g scripts g lint g filenameS
f scripts/lint.scm g importsS g ice-9
g common-list
g format g exportsS g set-current-module g %include-in-guild-list f 1Check for bugs and style errors in a Scheme file. g %summary g scan-file-for-module-name g uniq g scan-file-for-free-variables g resolve-module f Resolved module: ~S
!g catch "g eval #f !Unresolved free variables in ~A:
$g
write-char %g write &g newline 'f #No unresolved free variables in ~A
(g with-input-from-file )g eof-object? *g read +g
define-module ,g append -g detect-free-variables .g memq /g define-generic 0g quote 1g
quasiquote 2g let 3g letrec 4g map 5g car 6g let* 7g and-let* 8g define 9g
define-public :g define-macro ;g lambda <g lambda* =g receive >g
define-method ?g define* @g define-class Ag detect-free-variables-noncar Bg case Cg unquote Dg unquote-splicing Eg else Fg => Gg for-each Hg mainC 5h0 ]4
5 4 > " G RR !" h S ] LL 6 K g filenamef scripts/lint.scm
x y y
C#$%& hh - 1 3 M$ 4L> " G " 4 > " G 4L > " G 4> " G NC g args
b g filenamef scripts/lint.scm
z { | } | ) ; @ E N ` b
C' h ])4 544 55 45H 4> " G " 8( " 64O O > " G " "J$
6C } g filename
g module-name g free-vars g module ! g
all-resolved? ! g free-vars > v g filenamef scripts/lint.scm
n
o
p
p p o q ! q & s + s 2 s > t D u I w p v v t
g nameg lint CR()*+ hP ]" 94 5$ C" 45 " $ & C""45 " g x
? g filenamef scripts/lint.scm
" " % ) , . ! 2 5 ? @ J J
C h ] 6 g filename
g filenamef scripts/lint.scm
g nameg scan-file-for-module-name C R(),*- h@ ]" )4 5$ @45 4 5 "45 " g x
/ g fvlists / g filenamef scripts/lint.scm
" 8 $ ' / / 0 5 % = =
C h ] 6 g filename
g filenamef scripts/lint.scm
g nameg scan-file-for-free-variables C R.+/0123,45- h u ] L $ L" M6m g binding
g filenamef scripts/lint.scm
" ; ; $ C- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm
"
$
C67- h d ] M 6 \ g bodyform
g filenamef scripts/lint.scm
C-89:;<- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm
C=- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm
C>?- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm
C@A h ] $ " M 6z g slot/option
g filenamef scripts/lint.scm
< 8 < CB- h i ] M 6 a g case
g filenamef scripts/lint.scm
1 CCDEFA % hh ]H $ 4 J5$ C C $ ; $ " !$ " $ " $ C$ " $ r $ " 4J4
55 44 O 5?44 O 5?6
$ " $ I ( 4 O 5@4 J54
J56$ " $ " $ : $ JK J6 JK J6$ " $ U" -( " /$ "" J " 4 O 5@$ .4J 5 4 J54 O 5@$ " $ f" =( " @$ !$ " "" J " 4 O 5@ $ 4 O 5@ $ 4 J54 O 5@ $ " !!$ " "$ " #$ $ J64J54$ J56C g x
f g locals f g key , d g letrec? g locals-for-let-body g locals g args g locals-for-lambda-body g locals-for-receive-body + N g locals i g args i g locals-for-method-body g filenamef scripts/lint.scm
! ! % ) , , b l } . ( ; " " ( ' 6 ? 6 ' " " " ' 5 * / / 0 4 / 7 7 < C > / B 5 H / J L U t v z } % ) 3 ? ) % ) * , 3 , ? 9 9 3 3 * ; * ! + ( : + + + 0 5 , ; < H L N W i * o , x 3 | , J C ? C C 9 9 3 3 * ; *
* I " * M " P $ T $ 0 X $ Y % ^ % 7 b % d $ e ' f g nameg detect-free-variables C-R.FA,- hX U ]
$ 4 5$ C C $ . $ 6454 56C M g x
U g locals U g key ( S g filenamef scripts/lint.scm
)
- -
.
. . . ! ! 0 % - ( 1 ( 1 8 3 * < 3 ? 5 C 5 0 G 5 H 6 M 6 7 Q 6 S 5 T 8 U g nameg detect-free-variables-noncar CARG h s - 1 3 6 k g files
g filenamef scripts/lint.scm
:
;
g nameg main CHRC g m
, g filenamef scripts/lint.scm f
0 k
2 l 5 l
n
)
. :
0
C6 PK ! T T scripts/list.gonu [ GOOF----LE-8-2.0< ] @ 4 h ] g guile g define-module* g scripts g list g filenameS
f scripts/list.scm g importsS g srfi
g srfi-1
g exportsS g list-scripts g set-current-module g %include-in-guild-list f An alias for "help". g %summary g file-exists? g file-is-directory? g opendir g eof-object? g closedir g readdir g string=? !f . "f .. #g directory-files $g or-map %g string-suffix? &g string-null? 'g substring (g
string-length )g append *g %load-compiled-extensions +g %load-extensions ,g strip-extensions -g unique .g map /g symbol->string 0g sort 1g
append-map 2g fold 3g in-vicinity 4g
%load-path 5g string<? 6g find-submodules 7g for-each 8g format 9f ~A
: ;g help <; =g main ><= ?<= C 5 h8
]4
5 4 > " G RR !"
h ]!4 5$ 4 5$ }4 5 " `45$ 4> " G C4545 $ " 4 5 $ " "45 "CC g dir
g
dir-stream g new % g acc % g t U n g filenamef scripts/list.scm
#
$
$ $ $ % % % & & ( 0 (
1 * F , M - Q - & U - U - c . g . & k . r - } 0 , & & ' & 1 g nameg directory-files C#R$%&'( h8 ]4 L 5$ #4 5$ CL
4L 54 56C g ext
4 g filenamef scripts/list.scm
4
6
5 : 5 " < ) < 0 0 < 2 ;
4 C)*+ h ] O 456 z g path
g filenamef scripts/list.scm
3
=
4 g nameg strip-extensions C,R- h8 ] ( C ( C $ 6 4 5C g l
5 g filenamef scripts/list.scm
?
@ A @ B B B ! @ & B + ( B # + C , C 1 C $ 3 C 4 C 5 g nameg unique C-R./-012, h ]
4 5 $ CC g x
g rest g stripped g filenamef scripts/list.scm
J K , K L L + C#3 h j ] 6 b g x
g y
g filenamef scripts/list.scm
O !
O /
C h ~ ]44 L 556 v g path
g filenamef scripts/list.scm
I M N O N J C45 h( ] 4 5 44O 556 g head
& g shead & g filenamef scripts/list.scm
E
F F H I $ H & G & g nameg find-submodules C6R789 h c ] 6 [ g x
g filenamef scripts/list.scm
T V V C6: h - 1 3 456 g args
g filenamef scripts/list.scm
S
W W W T
g nameg list-scripts CR? h p - 1 3 @ h g args
g filenamef scripts/list.scm
Y
Z
g nameg main C=RC g m
, g filenamef scripts/list.scm
0
2 5
#
% 3
H ?
N E
S
3 Y
5
C6 PK ! N`# # scripts/read-scheme-source.gonu [ GOOF----LE-8-2.0" ] N 4 hA ] g guile g define-module* g scripts g read-scheme-source g filenameS
f scripts/read-scheme-source.scm g importsS g ice-9
g rdelim
g exportsS g read-scheme-source-silently g quoted? g clump g set-current-module g %include-in-guild-list f /Print a parsed representation of a Scheme file. g %summary g :type g variable g
define-module g length g define !g alias "g lambda #g string? $g procedure %g
:signature &g :std-int-doc 'g annotate! (g quote )g filename *g make-regexp +f ^#! ,f ^!# -f
^[ ]*(;+) .f ^[ ]*$ /g open-input-file 0g eof-object? 1g regexp-exec 2g hash-bang-comment 3g :line 4g :line-count 5g
:text-list 6g reverse 7g read-line 8g
whitespace 9g :text :g comment ;g :leading-semicolons <g
unread-string =g read >g port-line ?g append @g following-form-properties Ag process Bg for-each Cg write Dg newline Eg error Ff bad list! Gg string->symbol Hg substring Ig symbol->string Jg assq-ref Kg leading-semicolons Lg text Mg mainC 5 h ]4
5 4 > " G RR !"#$%& h ]" 6 $ " & 6"" B 4 5$ 0 & # $ $ 6"""" 4 5$ & " $ $ z 4 5$ e & U4 5$ @4 > " G 4
> " G 6" """" $ c $ U4 > " G 4
> " G 4 5$ 4 5$ 6CC"""""f g form
g note! g filenamef scripts/read-scheme-source.scm
c
d d d " " & ( * . d 5 z < z @ y B { E { I y L | N | R y U } X } \ y ` ~ b ~ d ~ t d w e ~ e d f f d q q n r r n s s s s n t t t n u u u u n v v v v w w w " w 4 w . w w x x % x x $ d ' g ) g - d 0 h 3 h 7 d 8 i < i > i C i L j P j S j Y j d k k k o k p l u l y l } k m m # m a g nameg annotate! C'R()*+,-./01234 56789:;<=>'? h - 1 3 4M 5N C g args
g filenamef scripts/read-scheme-source.scm
/
7 1
g nameg prop+ C@ h` i ]b4 > " G 454545454 5 " $ 4 5 $ C4
5$ " p4 5 $ " 4
5 $ 84
4
54
5 > " /G " (45
"45
"|" .4
5$ "4 > " G " 4
5 $ 44
> " G " 4> " G 45
45H H 4
O > " G J J
$ " 4> " G J K
4
J > " G 4
> " G
4545 "
C4545 " a g file
^ g nb! ^ g hash-bang-rx A ^ g bang-hash-rx A ^ g all-comment-rx A ^ g all-whitespace-rx A ^ g p A ^ g n O G g line O G g t \ E g line x g text
x g t g t 8 . g m1
M Y g form
+ g count ( g props g props % g t
g filenamef scripts/read-scheme-source.scm
# # % & * # , - 1 % 3 4 8 ( : ; A O U V
\ h t x y 2 . - . - $ $
# 0 8 A E M + M ! R & U / V # [ h u $ ! / ! # ' / 6 7 % E F
G H O P , ^ \ ^ g nameg process CARBA h t ] M N C l g e
g filenamef scripts/read-scheme-source.scm
4 * C h n ] L O 6 f g file
g filenamef scripts/read-scheme-source.scm
C6 h0 - 1 3 H4O > " G J6 g files
+ g res
+ g filenamef scripts/read-scheme-source.scm
+ +
g nameg read-scheme-source-silentlyg
documentationf 6See commentary in module (scripts read-scheme-source). CRBACD h t ]4 > " G 6 l g e
g filenamef scripts/read-scheme-source.scm
( 2 C h n ] 6 f g file
g filenamef scripts/read-scheme-source.scm
C h - 1 3 6 g files
g filenamef scripts/read-scheme-source.scm
g nameg read-scheme-sourceg
documentationf 6See commentary in module (scripts read-scheme-source). CR (EFGHI h B ]"$ 45$ & $ {
45$ l & a" Q( C $ " 4> " G 4445 55 " "CCCCCC: g sym
g form g inside $ g ls G g alist G g first S g filenamef scripts/read-scheme-source.scm
# $ ) - / 6 : ? C G M S ! S X \ a e ! j u w # z $ } / $ # # 2 ) g nameg quoted? CR6@82:JKL
h t ]Y" g( 6 $ "45$ "45$ "45$ "|45 $ " ( 45 "G 4 5
$ I4
5 $ 4
5 "45 "45 "454 5 "E " " l g forms
{ g forms m g acc m g pass-this-one-through? m g form m g t m g inner-forms 8 g level 8 g text 8 g
inner-form 8 g t
8 g new-level g filenamef scripts/read-scheme-source.scm
% # 0 1 5 9 =
@ E # P Q U Y ]
` m n r v z
}
< 0 * $ 0 ' 0 ' 3 4 3 ,
2
. 9
? @
?
9 2 < 0 * $ # < * 0 - * 8 $ 8 ; / < ) B 9 D ) E . K > M . P ( Z ] b ( m m p { R { g nameg clump CRiMRC g m
, g filenamef scripts/read-scheme-source.scm V
0 ]
2 ^ 5 ^
c
F
]
w
~
C6 PK ! 9| | scripts/disassemble.gonu [ GOOF----LE-8-2.0d ] # 4 h ] g guile g define-module* g scripts g disassemble g filenameS
f scripts/disassemble.scm g importsS g system
g vm g objcode
g language g assembly g prefixS g asm: g exportsS g set-current-module f Disassemble a compiled .go file. g %summary g for-each g asm:disassemble !g load-objcode "g mainC 5 h z ]4
5 4 > " G R ! h m ]4 56 e g file
g filenamef scripts/disassemble.scm
$ %
%
C h - 1 3 6 w g files
g filenamef scripts/disassemble.scm
#
$
g nameg disassemble CRi"RC r g m
, g filenamef scripts/disassemble.scm
. ! 1 !
r #
y (
{
C6 PK ! PU' U' scripts/compile.gonu [ GOOF----LE-8-2.0=' ] 4 h"
] g guile g define-module* g scripts g compile g filenameS
f scripts/compile.scm g importsS g system
g base
g selectS g compile-file g target
g message
g srfi g srfi-1 g srfi-13 g srfi-37 ! "! #g ice-9 $g format %#$ &% ' "& (g exportsS ) *g set-current-module +* ,* -f Compile a file. .g %summary /g current-error-port 0f error: ~{~a~}~% 1g exit 2g fail 3g srfi-37:option 4!3 5!3 6f help 7h6 8g
alist-cons 9g help? :f version ;: <g show-version =f load-path >L= ?g assoc-ref @g load-path Af output BoA Cg output-file Df .`-o' option cannot be specified more than once Ef warn FWE Gg string=? Hg show-warning-help Ig warnings Jg string->symbol Kg alist-delete Lf optimize MOL Ng optimize? Of from PfO Qg from Rf 2`--from' option cannot be specified more than once Sf to TtS Ug to Vf 0`--to' option cannot be specified more than once Wf target XTW Yf 4`--target' option cannot be specified more than once Zg %options [g args-fold \f ~A: unrecognized option ]g input-files ^] _@ `g unsupported-warning aI` b^_a cg
parse-args df compile (GNU Guile) ~A~% eg version ff Copyright (C) 2009, 2011 Free Software Foundation, Inc.
License LGPLv3+: GNU LGPL version 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.~% gf $The available warning types are:~%~% hg for-each if ~22A ~A~% jf `~A' kg <warning-type> lk mk ng srfi-9 on pg throw-bad-struct qop rop sg warning-type-name tg warning-type-description ug %warning-types vf ~% wg warningsS xg OS yg scheme zg objcode {g
%host-type |f Usage: compile [OPTION] FILE...
Compile each Guile source file FILE into a Guile object.
-h, --help print this help message
-L, --load-path=DIR add DIR to the front of the module load path
-o, --output=OFILE write output to OFILE
-W, --warn=WARNING emit warnings of type WARNING; use `--warn=help'
for a list of available warnings
-f, --from=LANG specify a source language other than `scheme'
-t, --to=LANG specify a target language other than `objcode'
-T, --target=TRIPLET produce bytecode for host TRIPLET
Note that auto-compilation will be turned off.
Report bugs to <~A>.~% }g %guile-bug-report-address ~g append g
%load-path g %load-should-auto-compile f "`-o' option can only be specified f when compiling a single file g sigaction g SIGINT f interrupted by the user f wrote `~A'
g *current-warning-prefix* f g with-target g output-fileS g fromS g toS g optsS g mainC 5 h K ]4
'()5 4, > " G -.R$/01 h( - 1 3 445 > " G 6 g messages
' g filenamef scripts/compile.scm
+
,
,
, , ' - '
g nameg fail C2R5789 h ]6 g opt
g name g arg g result g filenamef scripts/compile.scm
2 3 3 C 5;<1 h ]4> " G
6 g opt
g name g arg g result g filenamef scripts/compile.scm
5 6 7 C 5>?@8 h ] 45 6 g opt
g name g arg g result g load-path g filenamef scripts/compile.scm
: ; # ; 5 ; # ; < < + < C 5B?C2D8 h ]45$ 66 g opt
g name g arg g result g filenamef scripts/compile.scm
? @ @ ( @ @ A A B " B
C 5FG6H1?I8JK
hH - ] 45$ 4> " G
645 454 56% g opt
H g name H g arg H g result H g warnings - H g filenamef scripts/compile.scm
E F F $ F F H $ I % J & + J 8 - J & - J 3 K $ 4 L * = L $ > M $ B M 2 F M $ H K H C 5M8N h ]6 g opt
g name g arg g result g filenamef scripts/compile.scm
P Q Q C 5P?Q2R8J h( ]45$ 6456 g opt
$ g name $ g arg $ g result $ g filenamef scripts/compile.scm
S T T ( T T U U V " V ( $ V $ C 5T?U2V8J h( ]45$ 6456 g opt
$ g name $ g arg $ g result $ g filenamef scripts/compile.scm
X Y Y ( Y Y Z Z [ " [ & $ [ $ C 5X?2Y8 h ]45$ 66 g opt
g name g arg g result g filenamef scripts/compile.scm
] ^ ^ ( ^ ^ _ _ ` " `
C ZR[Z$/\1 h ]445 > " G 6 g opt
g name g arg g result g filenamef scripts/compile.scm
f
g g g , g h C?]8 h ]
45 6 g file
g result g input-files g filenamef scripts/compile.scm
i
j " j 4 j " j k k * k Cb h ] 6 g args
g filenamef scripts/compile.scm
b
o
e g nameg
parse-argsg
documentationf QParse argument list @var{args} and return an alist with all the relevant
options. CcR$def h( ] 445 > " G 6 g filenamef scripts/compile.scm
s
t t
t ( t u
! u !
g nameg show-version C<R$gh$ijmrst hH ]4 &
" 4 55 & " 4 56 g wt
E g filenamef scripts/compile.scm
| } ~
~ ! ~ ( ) ~ , E } E Cuv h0 ] 4> " G 4> " G 6 g filenamef scripts/compile.scm
z
{ {
{ | .
0 0
g nameg show-warning-help CHRc?9wINxQyUz{]C@$|}1~22 h n - 1 3 6 f g args
g filenamef scripts/compile.scm
Ch$ h P ] LLLLL 6 H g filenamef scripts/compile.scm
C h( ~ ]Y4LLLLL O 5Z6 v g file
& g filenamef scripts/compile.scm
@ & & C hp - 1 3
4 5 45 45 45$ " 45 $ " 4
5 $ " 4 5 $ "
45 45 45 $ " $ *4> " G 4
> " G " 4 5 $ 0( " $ 4> " G " " 4 > " G O 6 g args
n g options n g help? n g o + H g compile-opts H n g t S f g from f n g t q g to n g t g target n g input-files n g output-file n g load-path n g filenamef scripts/compile.scm
- # & & 9 ( & + # + . 4 3 6 : ? H K Q 1 S S c 8 f i o 1 q q 6 1 - - -
# $ % ) * . 0 5 F n H n
g nameg compile CRiRC C g m
, g filenamef scripts/compile.scm
. ( 1 (
+
1 1 4 4 9 9 > > D D O J O N R r R v W W \
\
1
/
b
y s
P z
C6 PK ! TNq q statprof.gonu [ GOOF----LE-8-2.0q ] 4 h_ ] g guile g define-module* g statprof g filenameS f statprof.scm
g importsS g srfi g srfi-1
g system g vm g frame g program g exportsS g statprof-active? g statprof-start g
statprof-stop g statprof-reset g statprof-accumulated-time g statprof-sample-count !g statprof-fold-call-data "g statprof-proc-call-data #g statprof-call-data-name $g statprof-call-data-calls %g statprof-call-data-cum-samples &g statprof-call-data-self-samples 'g statprof-call-data->stats (g statprof-stats-proc-name )g statprof-stats-%-time-in-proc *g statprof-stats-cum-secs-in-proc +g statprof-stats-self-secs-in-proc ,g statprof-stats-calls -g !statprof-stats-self-secs-per-call .g statprof-stats-cum-secs-per-call /g statprof-display 0g statprof-display-anomolies 1g statprof-fetch-stacks 2g statprof-fetch-call-tree 3g
with-statprof 4g gcprof 5 !"#$%&'()*+,-./01234 6g autoloadsS 7g ice-9 8g format 978 :8 ;9: <g set-current-module =< >< ?g accumulated-time @g last-start-time Ag sample-count Bg sampling-frequency Cg remaining-prof-time Dg
profile-level Eg
%count-calls? Fg
gc-time-taken Gg record-full-stacks? Hg stacks Ig procedure-data Jg make-call-data Kg call-data-proc Lg procedure-name Mg call-data-name Ng with-output-to-string Og write Pg call-data-printable Qg call-data-call-count Rg call-data-cum-sample-count Sg call-data-self-sample-count Tg inc-call-data-call-count! Ug inc-call-data-cum-sample-count! Vg inc-call-data-self-sample-count! Wg make-syntax-transformer XW YW Zg accumulate-time [g macro \g $sc-dispatch ]\ ^\ _g _ `g any a_` bg
syntax->datum cb db eg
datum->syntax fe ge hg set! ig + je 0.0 kg - l@ mg syntax-violation nm om pf -source expression failed to match any pattern qg program? rg program-num-free-variables sg program-objcode tg hashq-ref ug
hashq-set! vg
get-call-data wg stack-length xg frame-procedure yg
count-call zg frame-previous {g make-hash-table |g hash-fold }g and=> ~g stack-ref g sample-stack-procs g inside-profiler? g get-internal-run-time g
make-stack g profile-signal-handler g pk g what! g set-vm-trace-level! g the-vm g vm-trace-level g setitimer g ITIMER_PROF g assq g gc-stats g add-hook! g
vm-apply-hook g remove-hook! g error f /Can't reset profiler while profiler is running. g sigaction g SIGPROF f :Can't call statprof-fold-called while profiler is running. e 100.0 e 1.0 g max g stats-sorter g current-output-port f No samples recorded.
g sort f !~5a ~10a ~7a ~8a ~8a ~8a ~8@a
f % f
cumulative f self f f total f ~5a ~9a ~8a ~8a ~8a ~8a ~8@a
f time f seconds f calls f ms/call f name f ~5a ~10a ~7a ~8@a
f % f ~5a ~10a ~7a ~8@a
g for-each f #~6,2f ~9,2f ~9,2f ~7d ~8,2f ~8,2f f ~6,2f ~9,2f ~9,2f g display g newline f ---
g
simple-format f Sample count: ~A
f *Total time: ~A seconds (~A seconds in GC)
g internal-time-units-per-second f
==[~A ~A ~A]
f Total time: ~A
f 5Can't get accumulated time while profiler is running. g procedure=? g map g lists->trees g cadr g find g assq-set! g filter g identity g unfold-right g stack->procedures g loopS g hzS g count-calls?S g full-stacks?S g inexact->exact g floor e 1000000.0 f Invalid macro body g keyword? g eq? g @ g lambda g
after-gc-hookC 5 h0] F ]4
56;5 4> > " G ?R@RARBRCR
DRER
FRGRHRIR h ] C g proc
g
call-count g cum-sample-count g self-sample-count g filenamef statprof.scm
g nameg make-call-data CJRh t ]
C l g cd
g filenamef statprof.scm
g nameg call-data-proc CKRLK h } ]4 56 u g cd
g filenamef statprof.scm
,
g nameg call-data-name CMRMNOK h R ] 4L 56 J g filenamef statprof.scm
/
(
C h ] 4 5 $ C O 6 g cd
g t g filenamef statprof.scm
g nameg call-data-printable CPR h z ] C r g cd
g filenamef statprof.scm
" g nameg call-data-call-count CQR h ] Cx g cd
g filenamef statprof.scm
( g nameg call-data-cum-sample-count CRR h ] Cy g cd
g filenamef statprof.scm
) g nameg call-data-self-sample-count CSR h ] C g cd
g filenamef statprof.scm
g nameg inc-call-data-call-count! CTR h ] C g cd
g filenamef statprof.scm
g nameg inc-call-data-cum-sample-count! CUR h ] C g cd
g filenamef statprof.scm
g nameg inc-call-data-self-sample-count! CVR4YZ[^adgh?ijkl h ` ] C X g stop-time
g filenamef statprof.scm
C h a ] 4 5 L 4?6Y g args
g v g filenamef statprof.scm
Cop h( _ ] 4 5 $ O @ 6 W g y
' g tmp ' g filenamef statprof.scm
' C5ZRqrstIJu hp # ]4 5 $ " 4 5
$ " 4 5 45 $ C4
5 4> " G C g proc
o g t
# g k 4 o g t ? o g call-data T o g filenamef statprof.scm
' . 4 7 ? K T W
o g nameg
get-call-data CvRwGHAxyz{u|Uv h ]4 56 g proc
g val
g accum
g filenamef statprof.scm
C}vV~ h ])H4 > " G $ " " $ 45 $ Z& K454
5 "4 > " G 45$ " "45 "| 4
> " G 4 4
5> " !G " 4
54
5 "+JC g stack
g hit-count-call? g frame 1 g
procs-seen 1 g self 1 g t > g filenamef statprof.scm
" $ + - 1 7 8 > N
Q R Y , j k g nameg sample-stack-procs CRRDE?j@B h S ]
$ 45 45 $ "
4455 45 $ " 7 $ $4
4 5 4 4 5 5> " G "
4
> " G $ " 145 $ $4
4 5 4 4 5 5> " G " " C K g sig
g stop-time g t : g stack : g inside-apply-trap? C g filenamef statprof.scm
+ / 0 # 7 : = ! C K ! U ) V * Y * ' ^ + + a + ; g + + h + ' m * } , . 0 1 . 3 5 $ 5 6 7 7 ' 8 + 8 ; 8 + 8 ' 7 : + g nameg profile-signal-handler CR?j@}xTv h e ]4 56 ] g proc
g filenamef statprof.scm
E G
F
C h@ ]$ C45 44 5> " G 45 C g frame
< g filenamef statprof.scm
?
@ B B D D + D 4 I : I < g nameg
count-call CyRD h ]
C g filenamef statprof.scm
M
P
g nameg statprof-active?g
documentationf uReturns @code{#t} if @code{statprof-start} has been called more times
than @code{statprof-stop}, @code{#f} otherwise. CRDC@FFBEy h U ] $ $
$ "
" 45 445 5 $ 4
> " G " 4
> " G $ 4
445 5> " G " 445 445 5> " G CC M g rpt
g t 4 g use-rpt? 9 g filenamef statprof.scm
S
W W X X Y Z [ + [ [ / \ + 0 \ 9 Y > ] ? ^ E ^ F ` J ` K ` ( Q ` R ` T _ Z a [ b d b ' g b 1 l b y c e f c g h h h & h h i i i * i : i * i & i -
g nameg statprof-startg
documentationf Start the profiler.@code{} C RDFFEyC?j@ h ]
$ z445 5 445 445 5> " G $ 4
4 45 5 > " G " 4
5 45 CC g filenamef statprof.scm
m
q q
r r u u u + u u u ! t " v % v * v * - v : 3 v * 4 v & 9 v G w H x K x N x ) T x [ x h { " t { x z | | }
g nameg
statprof-stopg
documentationf Stop the profiler.@code{} C RDE?@ABC{IGH hx - . , 3 #
$ 4> " G "
4
5
4> " G C g sample-seconds
q g sample-microseconds q g count-calls? q g full-stacks? q g filenamef statprof.scm
"
' 7 : = @ E G J K T X Y [ \ q g nameg statprof-resetg
documentationf VReset the statprof sampler interval to @var{sample-seconds} and
@var{sample-microseconds}. If @var{count-calls?} is true, arrange to
instrument procedure calls as well as collecting statistical profiling
data. If @var{full-stacks?} is true, collect all sampled stacks into a
list for later analysis.
Enables traps and debugging as necessary. C RD| h ]L 6 g key
g value
g prior-result
g filenamef statprof.scm
CI h0 ]
$ 4> " G " O 6 g proc
/ g init / g filenamef statprof.scm
/ / g nameg statprof-fold-call-datag
documentationf 7Fold @var{proc} over the call-data accumulated by statprof. Cannot be
called while statprof is active. @var{proc} should take two arguments,
@code{(@var{call-data} @var{prior-result})}.
Note that a given proc-name may appear multiple times, but if it does,
it represents different functions with the same name. C!RDtI h( ]
$ 4> " G " 6 g proc
( g filenamef statprof.scm
( ( g nameg statprof-proc-call-datag
documentationf TReturns the call-data associated with @var{proc}, or @code{#f} if
none is available. C"RPSR E$j h ]14 5 4 5 4 5 45 45 45 $ 4 5" $
$
" " $ 4 5" C g call-data
g proc-name g self-samples g cum-samples g all-samples " g secs-per-sample / g num-calls C g filenamef statprof.scm
" % * / / 7 8 ' C L N , O T V + W \ ^ , _ g j o q * z | 9 } ( g nameg statprof-call-data->statsg
documentationf 0Returns an object of type @code{statprof-stats}. C'R h ]
C y g stats
g filenamef statprof.scm
) g nameg statprof-stats-proc-name C(R h ] C ~ g stats
g filenamef statprof.scm
. g nameg statprof-stats-%-time-in-proc C)R h ] C g stats
g filenamef statprof.scm
0 g nameg statprof-stats-cum-secs-in-proc C*R h ] C g stats
g filenamef statprof.scm
1 g nameg statprof-stats-self-secs-in-proc C+R h } ] Cu g stats
g filenamef statprof.scm
% g nameg statprof-stats-calls C,R h ] C g stats
g filenamef statprof.scm
2 g nameg !statprof-stats-self-secs-per-call C-R h ] C g stats
g filenamef statprof.scm
1 g nameg statprof-stats-cum-secs-per-call C.R+* h8 ]
4 545
$ 4 545"
C g x
3 g y 3 g diff 3 g filenamef statprof.scm
# * 1 3 g nameg stats-sorter CR 8!' h ~ ]4 5C v g data
g prior-value
g filenamef statprof.scm
CEE8)*+,-.( h = ]$ J4M 4 54 54 54 5 4 5 4 5> " G " )4M
4 54 54 5> " G 4 4 5M > " G
M 6 5 g stats
g filenamef statprof.scm
% / 6 : A F S Y Z a h s | g nameg display-stats-line C F $ h( - 1 3 H J ( 45 K " 45
$ J 645 45 $ H4J
> " G 4J > " G " 84J
> " G 4J > " G 4 O > " G 4 J > " G 4 45 > " G 4 5 !"#6 g port
% g
stats-list 9 % g sorted-stats D % g filenamef statprof.scm
$ ) / 1 2 7 9 9 < D L M S U W Y ( [ / ] 2 _ 9 a A f o u w
y
{
& }
0
8
B
L
&
- & 0 - & % @ %
g nameg statprof-displayg
documentationf Displays a gprof-like summary of the statistics collected. Unless an
optional @var{port} argument is passed, uses the current output port. C/R!EQRM hH ]$ :4 5
$ +4 5
$ 4 54 54 56CCC g data
D g prior-value D g filenamef statprof.scm
" ' " ( # / $ 6 % > ! D C h@ ] 4> " G 445 > " G 45 6
g filenamef statprof.scm
' ' ' ' % ' 2 ( 3 ( ) 9 (
9
g nameg statprof-display-anomoliesg
documentationf QA sanity check that attempts to detect anomolies in statprof's
statistics.@code{} C0RD? h( ]
$ 4> " G " C g filenamef statprof.scm
*
,
, - -
- % . &
g nameg statprof-accumulated-timeg
documentationf AReturns the time accumulated during the last statprof run.@code{} C RDA h( ]
$ 4> " G " C g filenamef statprof.scm
0
2
2 3 3
3 #
g nameg statprof-sample-countg
documentationf HReturns the number of samples taken during the last statprof run.@code{} C RMi#RQi$RRi%RSi&RH h > ] C 6 g filenamef statprof.scm
;
g nameg statprof-fetch-stacksg
documentationf Returns a list of stacks, as they were captured since the last call
to @code{statprof-reset}.
Note that stacks are only collected if the @var{full-stacks?} argument
to @code{statprof-reset} is true. C1Rqs h8 ] & C4 5$ 45$ 4 545CCC g a
6 g b 6 g filenamef statprof.scm
D
E F
G E G " G # H * H 1 H 6 g nameg procedure=? CR h ] 4 L 5C x g tail
g filenamef statprof.scm
R S T T . T S Cih z ] C r g a
g b g filenamef statprof.scm
X X % X . X " C h k ]L L 6 c g x
g filenamef statprof.scm
[ [
[ (
[
C
h ]"" ( +4O 5 445?45C( "4O 5 $ !4 5 "} "`
"R g lists
g equal? g in g
n-terminal g tails g trees 7 g t ` g filenamef statprof.scm
N
O P
R R V " V " , V - W 6 V : Y
> P A Z
D Z P Z Q [ ` P k ^ n ` u a x b | b * } b ` ^ d
f f ! f f
d O O , O # g nameg lists->trees CR h Y ] C Q g x
g filenamef statprof.scm
j j $ Cxz~ h ]44
556 g stack
g filenamef statprof.scm
h
j
m j
i g nameg stack->procedures CRH h T ] 4455C L g filenamef statprof.scm
o
v v v v
g nameg statprof-fetch-call-treeg
documentationf Return a call tree for the previous statprof run.
The return value is a list of nodes, each of which is of the type:
@code
node ::= (@var{proc} @var{count} . @var{nodes})
@end code C2R h0 ]
$ E4L > G " g i
) g result ) g result ) g filenamef statprof.scm
) ) g nameg lp C h l ]O L Q L6 d g lp
g filenamef statprof.scm
C h@ ] 444 L554 L4 L55LL > " G 6 g filenamef statprof.scm
& - & ) 0 0 # 7 % 0 & - ' & ) 2 > >
C /I h( [ ] 4> " G 4> " G C S g filenamef statprof.scm
% '
C h@ ] 444 L554 L4 L55LL > " G 6 g filenamef statprof.scm
& - & ) 0 0 # 7 % 0 & - ' & ) 2 > >
C /I h( [ ] 4> " G 4> " G C S g filenamef statprof.scm
% '
C /I h( [ ] 4> " G 4> " G C S g filenamef statprof.scm
% '
C h . - / 0 3 # # d # # O Q O 4O > " G V4> X4> " G CX4> " G F & g thunk
g loop g hz g count-calls? g full-stacks? g thunk A g filenamef statprof.scm
x
A
g loopS g hzS g count-calls?S g full-stacks?S g nameg statprofg
documentationf Profile the execution of @var{thunk}, and return its return values.
The stack will be sampled @var{hz} times per second, and the thunk
itself will be called @var{loop} times.
If @var{count-calls?} is true, all procedure calls will be recorded. This
operation is somewhat expensive.
If @var{full-stacks?} is true, at each sample, statprof will store away the
whole call tree, for later analysis. Use @code{statprof-fetch-stacks} or
@code{statprof-fetch-call-tree} to retrieve the last-stored stacks. CR4Y3[^adg hP ]( 645$ & C "4 5$ CC g kw
N g args N g def N g filenamef statprof.scm
# &
- :
; H N g nameg
kw-arg-ref C h` - 1 3 O Q 4 54 54 d54 54 5
C g args
[ g
kw-arg-ref [ g filenamef statprof.scm
% ) 4 5
A B M N Z
[
C h a ] 4 5 L 4?6Y g args
g v g filenamef statprof.scm
Cop h( w ] 4 5 $ O @ 6 o g y
' g tmp ' g filenamef statprof.scm
' g
documentationf Profile the expressions in the body, and return the body's return values.
Keyword arguments:
@table @code
@item #:loop
Execute the body @var{loop} number of times, or @code{#f} for no looping
default: @code{#f}
@item #:hz
Sampling rate
default: @code{20}
@item #:count-calls?
Whether to instrument each function call (expensive)
default: @code{#f}
@item #:full-stacks?
Whether to collect away all sampled stacks into a list
default: @code{#f}
@end tableg
macro-typeg defmacrog
defmacro-argsg args C53R?j@
hx . ] $ C 45 4L
5 $ "
4455 4> " G 45 C & g t
t g t
! ? g stop-time
? o g stack ? o g filenamef statprof.scm
! 0 4 5 " < ? D Y b c i r t
g nameg gc-callback CD?@AE{IGHCFF h ]
$ 4> " G "
4 5 L
$ O 4
5 445 5 4L > " G 445 445 5> " G CC y g filenamef statprof.scm
# & ) , - 6 : ; = @ B F J M
N T
U # Y ) Z 8 ` # a c
d
x
{ , < , (
%
C h8 ]" #
$ C4L > " G "L " g i
) g filenamef statprof.scm
# ) ) 1
CDFF?j@/I hh ]
$ =445 5 4L > " G 4
5 " 4 > " G
C g filenamef statprof.scm
- !
"
9 ; E
H
M _ a
C h W - / 0 3 # # O Q O O O Q Q Q 4> " G V4> X4> " G CX4> " G FO g thunk
g loop g full-stacks? g gc-callback - g pre L g thunk L g post L g filenamef statprof.scm
;
g loopS g full-stacks?S g nameg gcprofg
documentationf +Do an allocation profile of the execution of @var{thunk}.
The stack will be sampled soon after every garbage collection, yielding
an approximate idea of what is causing allocation in your program.
Since GC does not occur very frequently, you may need to use the
@var{loop} parameter, to cause @var{thunk} to be called @var{loop}
times.
If @var{full-stacks?} is true, at each sample, statprof will store away the
whole call tree, for later analysis. Use @code{statprof-fetch-stacks} or
@code{statprof-fetch-call-tree} to retrieve the last-stored stacks. C4RC > g m
0 g filenamef statprof.scm }
4
8
<
@
D
H
L
P
T
U X
\
F
p
E
t
$
. ?
; M
S
m
!
"
&
'
'
([
(
)
*5
*
,
3
6p
7 *
8 0
8 6
8 7
8 8
8 9
:Q ;
;k C
@" N
Ah h
B o
L x
]*
; ],
C6 PK ! aI9U 9U rnrs.gonu [ GOOF----LE-8-2.0!U ] 4 h,D ] g guile g define-module* g rnrs g filenameS f rnrs.scm
g pureS g versionS
g set-current-module
g resolve-r6rs-interface g
arithmetic g bitwise g call-with-deferred-observers g module-use-interfaces! g current-module g fixnums !g flonums "! #g base $# %g bytevectors &% 'g
conditions (' )g control *) +g enums ,+ -g
exceptions .- /g files 0/ 1g
hashtables 21 3g io 4g ports 534 6g simple 736 8g lists 98 :g programs ;: <g records =g
inspection ><= ?g
procedural @<? Ag syntactic B<A Cg sorting DC Eg rename Fg syntax-case GF Hg syntax-case-hack IFH JEGI Kg unicode LK Mg module-export! NM OM Pg module-re-export! QP RP Sg string-normalize-nfkc Tg string-normalize-nfc Ug string-normalize-nfkd Vg string-normalize-nfd Wg string-ci>=? Xg string-ci<=? Yg string-ci>? Zg string-ci<? [g string-ci=? \g string-foldcase ]g string-titlecase ^g string-downcase _g
string-upcase `g char-general-category ag char-title-case? bg char-lower-case? cg char-upper-case? dg char-whitespace? eg
char-numeric? fg char-alphabetic? gg
char-ci>=? hg
char-ci<=? ig char-ci>? jg char-ci<? kg char-ci=? lg
char-foldcase mg char-titlecase ng
char-downcase og char-upcase pg syntax-violation qg unsyntax-splicing rg unsyntax sg quasisyntax tg with-syntax ug generate-temporaries vg
datum->syntax wg
syntax->datum xg free-identifier=? yg bound-identifier=? zg identifier? {HF |g syntax }g make-variable-transformer ~g vector-sort! g vector-sort g list-sort g record-constructor-descriptor g record-type-descriptor g define-record-type g record-mutator g record-accessor g record-predicate g record-constructor g "make-record-constructor-descriptor g record-type-descriptor? g make-record-type-descriptor g record-field-mutable? g record-type-field-names g record-type-opaque? g record-type-sealed? g record-type-generative? g record-type-uid g record-type-parent g record-type-name g
record-rtd g record? g exit g command-line g cons* g assq g assv g assoc g assp g memq g memv g member g memp g remq g remv g remove g remp g
fold-right g fold-left g partition g filter g exists g for-all g find g write g display g newline g
write-char g read g peek-char g read-char g close-output-port g close-input-port g open-output-file g open-input-file g with-output-to-file g with-input-from-file g current-error-port g current-output-port g current-input-port g call-with-output-file g call-with-input-file g standard-error-port g standard-output-port g standard-input-port g
put-string g put-datum g put-char g lookahead-char g
get-string-n! g get-string-n g get-string-all g get-line g get-datum g get-char g flush-output-port g call-with-string-output-port g make-custom-textual-output-port g open-file-input/output-port g open-file-output-port g open-file-input-port g utf-16-codec g utf-8-codec g
latin-1-codec g call-with-bytevector-output-port g open-string-output-port g open-string-input-port g put-bytevector g put-u8 g make-custom-binary-output-port g open-bytevector-output-port g get-bytevector-all g get-bytevector-some g get-bytevector-n! g get-bytevector-n g lookahead-u8 g get-u8 g make-custom-binary-input-port g open-bytevector-input-port g call-with-port g
close-port g port-has-set-port-position!? g port-has-port-position? g set-port-position! g
port-position g transcoded-port g
textual-port? g binary-port? g port-transcoder g port-eof? g
eof-object g output-port? g input-port? g port? g eof-object? g native-transcoder g transcoder-error-handling-mode g transcoder-eol-style g transcoder-codec g make-transcoder g error-handling-mode g native-eol-style g eol-style g buffer-mode? g buffer-mode g file-options g symbol-hash g string-ci-hash g string-hash g
equal-hash g hashtable-mutable? g hashtable-hash-function g hashtable-equivalence-function g hashtable-entries g hashtable-keys g hashtable-clear! g hashtable-copy g hashtable-update! g hashtable-contains?
g hashtable-delete! g hashtable-set! g
hashtable-ref
g hashtable-size g
hashtable? g make-hashtable g make-eqv-hashtable g make-eq-hashtable g i/o-error-port g i/o-port-error? g make-i/o-port-error g &i/o-port g i/o-file-does-not-exist-error? g "make-i/o-file-does-not-exist-error g &i/o-file-does-not-exist g i/o-file-already-exists-error? g "make-i/o-file-already-exists-error g &i/o-file-already-exists g i/o-file-is-read-only-error? g make-i/o-file-is-read-only-error g &i/o-file-is-read-only g i/o-file-protection-error? g make-i/o-file-protection-error !g &i/o-file-protection "g i/o-error-filename #g i/o-filename-error? $g make-i/o-filename-error %g
&i/o-filename &g i/o-error-position 'g i/o-invalid-position-error? (g make-i/o-invalid-position-error )g &i/o-invalid-position *g i/o-write-error? +g make-i/o-write-error ,g
&i/o-write -g i/o-read-error? .g make-i/o-read-error /g &i/o-read 0g
i/o-error? 1g make-i/o-error 2g &i/o 3g delete-file 4g file-exists? 5g raise-continuable 6g raise 7g with-exception-handler 8g guard 9g define-enumeration :g enum-set-projection ;g enum-set-complement <g enum-set-difference =g enum-set-intersection >g enum-set-union ?g
enum-set=? @g enum-set-subset? Ag enum-set-member? Bg enum-set->list Cg enum-set-constructor Dg enum-set-indexer Eg enum-set-universe Fg make-enumeration Gg case-lambda Hg do Ig unless Jg when Kg undefined-violation? Lg make-undefined-violation Mg
&undefined Ng syntax-violation-subform Og syntax-violation-form Pg syntax-violation? Qg make-syntax-violation Rg &syntax Sg lexical-violation? Tg make-lexical-violation Ug &lexical Vg %implementation-restriction-violation? Wg )make-implementation-restriction-violation Xg &implementation-restriction Yg non-continuable-violation? Zg make-non-continuable-violation [g &non-continuable \g
condition-who ]g who-condition? ^g make-who-condition _g &who `g condition-irritants ag irritants-condition? bg make-irritants-condition cg
&irritants dg assertion-violation? eg make-assertion-violation fg
&assertion gg
violation? hg make-violation ig
&violation jg error? kg
make-error lg &error mg serious-condition? ng make-serious-condition og &serious pg warning? qg make-warning rg &warning sg condition-message tg message-condition? ug make-message-condition vg &message wg define-condition-type xg condition-accessor yg condition-predicate zg
condition? {g simple-conditions |g condition }g
&condition ~g
utf32->string g
utf16->string g utf8->string g
string->utf32 g
string->utf16 g string->utf8 g "bytevector-ieee-double-native-set! g !bytevector-ieee-double-native-ref g bytevector-ieee-double-set! g bytevector-ieee-double-ref g "bytevector-ieee-single-native-set! g !bytevector-ieee-single-native-ref g bytevector-ieee-single-set! g bytevector-ieee-single-ref g bytevector-s64-native-set! g bytevector-u64-native-set! g bytevector-s64-native-ref g bytevector-u64-native-ref g bytevector-s64-set! g bytevector-u64-set! g bytevector-s64-ref g bytevector-u64-ref g bytevector-s32-native-set! g bytevector-u32-native-set! g bytevector-s32-native-ref g bytevector-u32-native-ref g bytevector-s32-set! g bytevector-u32-set! g bytevector-s32-ref g bytevector-u32-ref g bytevector-s16-native-set! g bytevector-u16-native-set! g bytevector-s16-native-ref g bytevector-u16-native-ref g bytevector-s16-set! g bytevector-u16-set! g bytevector-s16-ref g bytevector-u16-ref g sint-list->bytevector g uint-list->bytevector g bytevector->uint-list g bytevector->sint-list g bytevector-sint-set! g bytevector-sint-ref g bytevector-uint-set! g bytevector-uint-ref g u8-list->bytevector g bytevector->u8-list g bytevector-s8-set! g bytevector-u8-set! g bytevector-s8-ref g bytevector-u8-ref g uniform-array->bytevector g bytevector-copy g bytevector-copy! g bytevector-fill! g bytevector=? g bytevector-length g make-bytevector g bytevector? g native-endianness g
endianness g identifier-syntax g syntax-rules g
letrec-syntax g
let-syntax g unquote-splicing g unquote g
quasiquote g apply g values g dynamic-wind g call-with-values g call/cc g call-with-current-continuation g assert g assertion-violation g error g vector-for-each g
vector-map g vector-fill! g list->vector g vector->list g vector-set! g
vector-ref g
vector-length g vector g make-vector g vector? g string-copy g string-for-each g list->string g string->list g
string-append g substring g string>=? g string<=? g string>? g string<? g string=? g
string-ref g
string-length g string g make-string g char>=? g char<=? g char>? g char<? g char=? g
integer->char g
char->integer g symbol=? g string->symbol g symbol->string g for-each g map g list-ref g list-tail g reverse g append g length g list g list? g cddddr g cdddar g cddadr g cdaddr g cadddr g caddar g caaddr g cadadr g cdaadr g cdadar g cddaar g cdaaar g cadaar g caadar g caaadr g caaaar g cdddr
g cddar g cdadr g caddr
g cdaar g cadar g caadr g caaar g cddr g cdar g cadr g caar g cdr g car g cons g boolean=? g string->number g number->string g >= g <= g > g < g = g inexact !g exact "g infinite? #g finite? $g nan? %g even? &g odd? 'g negative? (g positive? )g zero? *g integer-valued? +g rational-valued? ,g real-valued? -g inexact? .g exact? /g integer? 0g rational? 1g real? 2g complex? 3g angle 4g magnitude 5g
make-polar 6g atan 7g acos 8g asin 9g tan :g cos ;g sin <g log =g exp >g sqrt ?g exact-integer-sqrt @g expt Ag
div0-and-mod0 Bg mod0 Cg div0 Dg div-and-mod Eg mod Fg div Gg make-rectangular Hg imag-part Ig real-part Jg rationalize Kg round Lg truncate Mg ceiling Ng floor Og lcm Pg gcd Qg denominator Rg numerator Sg abs Tg min Ug max Vg / Wg * Xg - Yg + Zg eq? [g equal? \g eqv? ]g not ^g and _g or `g case ag cond bg set! cg if dg lambda eg quote fg begin gg letrec* hg letrec ig let*-values jg
let-values kg let* lg let mg
define-syntax ng define og
procedure? pg string? qg number? rg pair? sg null? tg char? ug symbol? vg boolean? wg fixnum->flonum xg no-nans-violation? yg make-no-nans-violation zg &no-nans {g no-infinities-violation? |g make-no-infinities-violation }g &no-infinities ~g flexpt g flsqrt g flatan g flasin g flacos g fltan g flcos g flsin g fllog g flexp g flround g
fltruncate g flceiling g flfloor g
fldenominator g flnumerator g flmod0 g fldiv0 g fldiv0-and-mod0 g flmod g fldiv g
fldiv-and-mod g flabs g fl/ g fl- g fl* g fl+ g flmin g flmax g flnan? g flinfinite? g flfinite? g fleven? g flodd? g flnegative? g flpositive? g flzero? g
flinteger? g fl>=? g fl>? g fl<=? g fl<? g fl=? g real->flonum g flonum? g fxreverse-bit-field g fxrotate-bit-field g fxarithmetic-shift-right g fxarithmetic-shift-left g fxarithmetic-shift g fxcopy-bit-field g fxbit-field g
fxcopy-bit g
fxbit-set? g fxfirst-bit-set g fxlength g fxbit-count g fxif g fxxor g fxior g fxand g fxnot g fx*/carry g fx-/carry g fx+/carry g fxmod0 g fxdiv0 g fxdiv0-and-mod0 g fxmod g fxdiv g
fxdiv-and-mod g fx- g fx* g fx+ g fxmin g fxmax g fxeven? g fxodd? g fxnegative? g fxpositive? g fxzero? g fx<=? g fx>=? g fx<? g fx>? g fx=? g greatest-fixnum g least-fixnum g fixnum-width g fixnum? g bitwise-reverse-bit-field g bitwise-rotate-bit-field g bitwise-arithmetic-shift-right g bitwise-arithmetic-shift-left g bitwise-arithmetic-shift g bitwise-copy-bit-field g bitwise-bit-field g bitwise-copy-bit g bitwise-bit-set? g bitwise-first-bit-set g bitwise-length g bitwise-bit-count g
bitwise-if g bitwise-xor g bitwise-ior g bitwise-and g bitwise-not STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEF3GHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkldmnopqrstuvwxyz{|}~ g module-replace! C 5 h ]4
5 4 > " G 45 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4 5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4"5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4$5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4&5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4(5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4*5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4,5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4.5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 405 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 425 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 455 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 475 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 495 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4;5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4>5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4@5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4B5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4D5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4J5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4L5 4 h : ] 45 L 62 g filenamef rnrs.scm
C O > " G 4O h : ] 45 6 2 g filenamef rnrs.scm
C> " G 4R h : ] 45 6 2 g filenamef rnrs.scm
C> " G h : ] 45 6 2 g filenamef rnrs.scm
C6 g m
+ g iface
2 g iface
' g iface
. g iface
' g iface
. g iface
' g iface
. g iface
' g iface
. g iface
' g iface
. g iface
' g iface
. g iface
' g iface
. g iface
' g iface
. g iface
' g iface
. g iface
' g iface
.
g filenamef rnrs.scm
C6 PK ! ܡ " language/scheme/compile-tree-il.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g language g scheme g compile-tree-il
g filenameS f #language/scheme/compile-tree-il.scm g importsS
g tree-il
g exportsS g set-current-module g save-module-excursion g macroexpand g c g compile g load g eval g current-moduleC 5 h o ]4
5 4 > " G h0 ]4L> " G 4L 5 45 D g x
0 g cenv & 0 g filenamef #language/scheme/compile-tree-il.scm
! " & 0 0
C h ] O 6 g x
g e g opts g filenamef #language/scheme/compile-tree-il.scm
g nameg compile-tree-il CRC g g m
, g filenamef #language/scheme/compile-tree-il.scm
C6 PK ! $ language/scheme/decompile-tree-il.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g language g scheme g decompile-tree-il
g filenameS f %language/scheme/decompile-tree-il.scm g importsS
g tree-il
g srfi g srfi-1 g srfi-26 g ice-9 g receive g vlist g match !g system "g base #g syntax $!"# %$ & % 'g exportsS ( )g set-current-module *) +) ,g do-decompile -g use-derived-syntax?S .- /g
avoid-lambda?S 0/ 1g use-case?S 21 3g strip-numeric-suffixes?S 43 5.024 6g choose-output-names 7g hashq-ref 8g if 98 :g begin ;g let <g lambda* =g define* >g define ?g lambda @g map Ag list Bg let* Cg letrec* Dg letrec Eg append FE GE Hg length Ig and Jg or K H L H Mg x NM Og else Pg reverse Q P R P SO TS Ug eqv? Vg quote Wg memv Xg case Yg c ZVO [g _ \Z[ ]IY\ ^] _g cond `g
take-while ag identity bg drop cg car dg cdr eg cons fg take gg <void> hg <const> ig const-exp jg self-evaluating? kg
<sequence> lg
sequence-exps mg
<application> ng application-proc og application-args pg <primitive-ref> qg primitive-ref-name rg
<lexical-ref> sg lexical-ref-gensym tg
<lexical-set> ug lexical-set-gensym vg lexical-set-exp wg set! xg <module-ref> yg module-ref-mod zg module-ref-name {g module-ref-public? |g @ }g @@ ~g <module-set> g module-set-mod g module-set-name g module-set-public? g module-set-exp g <toplevel-ref> g toplevel-ref-name g <toplevel-set> g toplevel-set-name g toplevel-set-exp g <toplevel-define> g toplevel-define-name g toplevel-define-exp g <lambda> g lambda-meta g lambda-body g assq-ref g
documentation g case-lambda* g case-lambda g
<lambda-case> g lambda-case-req g lambda-case-opt g lambda-case-rest g lambda-case-kw g lambda-case-inits g lambda-case-gensyms g lambda-case-body g lambda-case-alternate g cons* g list-ref g list-head g optionalS g list-tail g keyS g caddr g allow-other-keysS g
<conditional> g conditional-test g conditional-consequent g conditional-alternate VU g v VV g
last-datum Z g void? g <let> g let-gensyms g let-vals g let-body g <letrec> g letrec-in-order? g letrec-gensyms g letrec-vals g letrec-body g <fix> g fix-gensyms g fix-vals g fix-body g <let-values> g let-values-exp g let-values-body g call-with-values g make-lambda g <dynwind> g dynwind-body g dynwind-winder g dynwind-unwinder g dynamic-wind g <dynlet> g
dynlet-fluids g dynlet-vals g dynlet-body g with-fluids g <dynref> g dynref-fluid g fluid-ref g <dynset> g dynset-fluid g
dynset-exp g
fluid-set! g <prompt> g
prompt-tag g prompt-body g prompt-handler g call-with-prompt g <abort> g abort-tag g
abort-args g
abort-tail g apply g abort g error f unhandled record g make-hash-table 8V|}w>=:;BDCIJ_X?<WU g for-each g
hashq-set! g string->char-set f
0123456789 g string-skip-right g
string-length g
string-ref g substring g string->symbol g symbol->string g hashq-create-handle! g memq g top-level g vhash-foldq* g lexical-ref? g reverse! g => g cadr g fold g vhash-consq g let-names g letrec-names g fix-names g
vlist-null g sort-list g any g and=> g
string-append f - g number->stringC 5 h0 ] 4
&'(5 4+ > " G , h ] @ g e
g env g opts g filenamef %language/scheme/decompile-tree-il.scm
g nameg decompile-tree-il CR567 h ]L 6 g s
g filenamef %language/scheme/decompile-tree-il.scm
,
, !
g nameg output-name C9: h0 ] ( C" C $ ( C"" g es
/ g filenamef %language/scheme/decompile-tree-il.scm
4 5
2 8 5 / g nameg build-begin C:; h ]!" 5 $ ( & $ C C C C $ C & -$ " ( $ C"""""} g e
g w 5 g x 5 g w H g x H g w a } g x a } g filenamef %language/scheme/decompile-tree-il.scm
: ; . > ; ; g nameg build-lambda-body C: h8 ] $ ( & $ C C C C g e
7 g w 1 g x 1 g filenamef %language/scheme/decompile-tree-il.scm
@ A * C 7 g nameg build-begin-body C<=>? h H ]"" uL $ e$ T & 8$ ' $ C C C C C CL $ M$ B & ,$ ! $ C"D"@"<"8"4 @ g name
g e g w g g x g g w 2 S g x 2 S g w g x g w g x
g filenamef %language/scheme/decompile-tree-il.scm
E F ? L K M { F I F g nameg build-define C;@AB h m ][4 54L 5 " " L$ $ $ $ ( $ s( i $ Z
& E
$ ;
$ ' (
$
CCCCCCCCCCCCCC$ $ $ ( x $ h( ] $ M
& 7
$ ,
$ $ C"""""""""""$ B $ . ( $ ( C"B">":"6"2 e g names
g vals g body g v g x 2 g w E g x E g w Z g w m g w | g x
| g w g x g w
g x g w g x g w g w - g w < g x
< g w U { g x U { g x g w g x g filenamef %language/scheme/decompile-tree-il.scm
O P P Q P W P i T w P
g nameg build-let CCD@A;G?H hX
]| $ " 454L 5 " " " ]L$ T$ J & 5$ + $ 44L55CCCCCC$ ) $ $ ( $
$
(
$
&
$
$ $ t$ i( ^ $ N $ 7$ ,4545$ 45C"""""""""""""""{"w"s"o$ ; $ ' ( $ C"1"-")"%$ B $ . ( $ ( C""""" g in-order?
V g names V g vals V g body V g v $ V g w E g x E g x [ g x g w g x g w g w g x
g w g w g x
g w
g x
g w 0 g w ? g x ? g x g w g x g x R g w & N g x & N g filenamef %language/scheme/decompile-tree-il.scm
Z [
[ [ ' \ ] # [ j h o i } h [ T c [ c ! b c
f c h d
k d x d
e
[ _ [ V g nameg build-letrec C8 h ]#$ & d$ Q & 4" C$ ( C"" C C C C g test
g
consequent g alternate g w g x g w ( s g x ( s g filenamef %language/scheme/decompile-tree-il.scm
m n 9 p C n W o i p g nameg build-if CI h0 ] ( C" C $ ( C"" g xs
. g filenamef %language/scheme/decompile-tree-il.scm
r s v s . g nameg build-and CJ h0 ] ( C" C $ ( C"" g xs
. g filenamef %language/scheme/decompile-tree-il.scm
x y | y . g nameg build-or CILNORT8 hp l ]I" $ & 45 $ 45" $ " $ 4L 5 C" $ I45 " 4L 5 C$ #( 4L54L 5C""$ "4L 5 C "p4L 5 C4L 5 C $ R & <$ 1 & $ ( C"""""" d g e
l g w g x g tail-len & g len ; g ls c g n c g p-ls c g xs s g w g w g w h g x h g w 5 ` g x 5 ` g filenamef %language/scheme/decompile-tree-il.scm
S T [ c { | . S X l g nameg build-else-tail C8U h Z ] LL 6R g filenamef %language/scheme/decompile-tree-il.scm
CVWX h ] " d" A$ 4 $ & $ $
&
$
$ O
LQ
$ ( } $ k & S
$ D( 9 $ ' 4L 54L4L55CL66 6 L6L6
6
6 L6L6L6L6L6L6L6L6$ $ & $ $
&
$
$ $ ( {
$ k
& U$ J( ? $ /$ $ 4L 54L4L55C""""""""""""""""$ [ $ F & 0$ % $ $ C"J"F"B">":"6 g v
g e g v g w L g x L g w / F g x / F g w H : g x H : g w Y 4 g x
Y 4 g w r ( g x r ( g failure
" g w g w g x g failure g w g w g x g w _ m g x _ m g w p i g x p i g w a g x a g w ] g x
] g w U g x U g w
I g w E g x E g w 9 g w 1 g x 1 g w ~ g x ~ g w g x g w g x +g filenamef %language/scheme/decompile-tree-il.scm
%
R ! "
' % /
0 5 g nameg build-case-else-tail CL^RO h ]A45 $ 4 5" $ " $ D" $ X45 " D$ ;( 0 $ & D D D""$ "~ D "j g clauses
g tail-len g len g ls = g n = g p-ls = g cs M g w i g w u g w
g filenamef %language/scheme/decompile-tree-il.scm
7 9 = V X X 1 & g nameg clauses+tail CH_G@ h ] 4L 5C g test
g
consequent
g filenamef %language/scheme/decompile-tree-il.scm
(
C h C ]4 5
$ C $ L 644LO 5$ ; & $ " 4L5" 4L5 " 4L55C ; g tests
g consequents g alternate g key g w L } g x L } g filenamef %language/scheme/decompile-tree-il.scm
# & # *
, 0 B f g nameg
build-cond CUVW`a@UVW hp ]YL " $ $ & o$ f $ Q$ H( ? $ 1
&
$
(
CCCCCCCCCCCC$ $ & $ | $ e$ Z( O $ ?
& )
$
(
$ C"""""""""""" g t-df5d6f08a2a2c7b-4dd8
i g v i g w g x g w + g x + g w D g x D g w b g w q g x
q g w g w e g x e g w a g x a g w Y g x Y g w M g w I g x
I g w - = g filenamef %language/scheme/decompile-tree-il.scm
/ i CHbEcdXGef h ]KL$ ( " " $ & $ $ " $ " {$ _( S $ ?
& "
$
(
" 7" 2" -" (
" " " " " " $ & $ $ " $ "" $ ( r $ [
& ;
$ ,
(
$ " " " "" "" "
" "z " "o" "g " "Y" "Q " "C 44O 55 45 4L4L4 54 555 4L > G 454
4 554
4L4 555
$
L 6
44
4L4 5555CL 6 g tests
g consequents g alternate g test g w ) g x ) g w B g x B g w o g w ~ g x
~ g w g x g w
g x
g w : g w I g x
I g w f | g v g datum-lists g n g tail g clauses + g tail + g n c g datum-lists
c g consequents c g filenamef %language/scheme/decompile-tree-il.scm
( I 0 M 0 N 0 U 0 ) Y 0 0 0 0 ) !
*
/ 0 0 /
! $ . 5 < = ! B ) L ! M ! R ) W . a ) c ! c n r | ~ / 4 /
7 g nameg build-cond-or-case Cg9hiVjkl@mno?Hpqrs7tuvwxyz{|}~<AGcXLROUVWG8 h 0 ]" " $ & $ $ " $ C45 $ 45" $ " $ C" $ 4 5
$ ( $
&
$
(
$ & $ $ j$ `( V $ G & 2$ (( 4
5 C C C C C C C C C C C C C C C C C$ j
$ [
$ G ( =
$ . ( $ &
" C C C C C C C "q C C C $
& $ $ & u$ j $ " $ "$ >( 3 $ #
&
$ ( $
& $ ( $ & $ $ t$ i( ^ $ N & 8$ -( " $ C"""""{"w"s"o"k"g"c"_"["W"S"O"K"G"C"?";"7"3"/"+"'"# $
& $ $ & l$ a $ " $ "$ 5( * $
& $ ( $
& $ ( $ & $ $ k$ `( U $ E & /$ $( C""""""""""""""""""|"x"t"p"l"h"d"`"\ ( g e
g w g x g w 0 g x 0 g tail-len Q g len f g ls g n g p-ls g datum
g w g w g x
g w } g w z g x z g w t g x t g w k g w ' h g x ' h g w D _ g w
g w g x g w
g w g w ( g x ( g w A g x A g w R g x R g w k g x k g w g w
g x g w g w
g x g w g w g x g w g x g w 4 g w C g x C g w ` g w g x g w
g x
g w g x g w 7 g x 7 g w c g w
r g x r g w z g w
v g x v g w j g w f g x f g w ^ g x ^ g w R g w N g x N g w , B Jg filenamef %language/scheme/decompile-tree-il.scm
M N 7 0 ; 0 < 0 C 0 ) G N H V N r 0 v 0 w 0 ~ 0 ) N k R N > 0 B 0 C 0 J 0 ) N N 0 P F N g nameg
simplify-test C8UXW_IJ; h ] & C& 24 5 " C45$ $ "C"& 4 5 L4 L56
& 4 54 5 4L54 L5 $ $ l
& W$ M
$ 9
$ /$ %4 545$ L 4L
56CCCCCCCC& 6& 4 5 L6& (4 54 5 4L54L5 C& 14 54 54 5 $ " C & F4 54 54! 54" 5 $ " 4L5 C#& $ 6%& !4& 54' 5 4L5 C(& 4) 54* 5 L4L56+& 4, 54- 5 $ 4L54./5 $ " /" " j$ ` 0& K$ A $ -
$ $ 0
CCCCCCC$ e 1& O$ D $ /
$ $ 1
C":"6"2"."*"&$ B 2& ,$ ! $ 2 C""""$ B
& ,$ ! $
C""""C3C4& 45 546 547 548 549 54: 54; 54< 5 4 L5
$ " $ " $ $
$ 4=
?"
4L4L55C$ " $ 4L 5$ 4=
?"
$ 1 4L4L55 C
2$ 0 4L4L55 C
1$ 1 4L4L55 C
0$ 0 4L4L55 CC $ 4L 5" 45 $ 45"
$ 4>
5" 4?
5 $ .@4 A4?4B
5
54 L4?
555" $ LC4D4 A4 L4 E554 L4B
554 F55$ G" 5" 4D4D4D555 $ d
$ " 2$ 04L4L55 C1$ " 0$ 04L4L55 CC24L4L55CH& H4I 54J 54K 5 L M44L554L54N5$ "
4L5 " " M" " " " " T" |" " Z$ P M& ;$ 1
$ O & $
$ "
$ C$ ( $ & $ (
$
$ o( e $ V P& A$ 7
$ !$ P
4L 5CCCCCCCCCCCCCCCCCCCCC$ l M& V$ K
$ 6 Q & $
$ "
$ ";$ ( $ & $ ( $
$
$ r( g $ W P& A$ 6
$ $ P
4L 5C""{"w"s"o"k"g"c"_"["W"S"O"K"G"C"?";"7"3"/$ M& $ w
$ b
$ M ( B
$ 2
R& $ R 4L 5C"""""""""L
$ $ M& $
$
$ t ( i
$ Y
M& C$ 8 $ # L 4L56"""""""""""L
$ |$ q M& [$ P
$ ;
$ & (
& L 6"B">":"6"2"."*"&$ M& $ z
$ e
$ P
S
& :$ / $ $ ( & L 6""""""""""|$ P M& :$ /
$
(
M C"-")"%"!" L
$ $ M& t$ i
$ " $ "
$ =
$ & $ (
L
6"""""""~"z$ M& $
$ " $ "5
$ g
$ P $ E ( :
$ *
T& $ L
6""""""""""L
$ $ M& $
$ u
( j
$ Z
M & D
$ 9
$ $( L 4L 56""""" """"""$ M& $
$
(
$
M & n
$ c
$ N S& 8$ -$ "( L 4L 56"?";"7"3"/"+"'"#" """"U& n4V 54W 54X 5 4L 4 L54 L54L55 " $ Y& $ $ (
$
$ (
$ ( $ y P& d$ Z $ D$ :( " 4L5 44L55$ P
CCCCCCCCCCCCCCCCC$ Y& $ $ (
$
$ (
$ ( $ s T& ]$ R $ ;$ 0( " 4L5 $ T
C"
" """"""""""""""Z& C4[ 54\ 54] 54^ 5 L4 L54 L54L56_& 94` 54a 54b 5 L4 L54 L54L56c& 74d 54e 5 f
4L4L554L4g55 Ch& @4i 54j 54k 5 l4L5
4L4L554L5 Cm& E4n 54o 54p 5 q4 A4 L54 L554L4L55Cr& 4s 5 t4L5 Cu& &4v 54w 5 x4L54L5 Cy& @4z 54{ 54| 5 }4L5
4L4L554L5 C~& B4 54 54 5 4L54D4 L54L5 5C 6 g e
g rtd g exp ! L g exps [ j g proc ! g args ! g v ! g w g x g w g x g w g x
g gensym > H g gensym ^ x g exp ^ x g mod g name g public? g mod g name g public? g exp g name # 6 g exp # 6 g name L ] g exp L ] g meta s g body s g body g doc g w
g x
g w g x g w
g x g w y g x y g w 3 q g x 3 q g w
D m g x D m g w g x g w g x g w g x g w g x g req ] g opt ] g rest ] g kw ] g inits ] g gensyms ] g body ] g alternate ] g names
v g
alt-expansion r g formals r g key
r g
alt-expansion g nreq g nopt
g restargs g reqargs g optargs g kwargs Q g formals j g key u g test 9 g
consequent 9 g alternate 9 g
simplify-test 9 g v B 9 g w y g x y g w g x
g w g x g w
g x g w g w g x g w g w " g x " g w 7 g w F g x F g w _ g x _ g w
9 g x
9 g w
1 g x
1 g w
- g x
- g w
% g x
% g w B
g w Q
g x Q
g w n
g w
g x
g w g w g x g w g x g w
J
g x
J
g w
c
g x
c
g w
t
g x
t
g w
g w
g x
g w
g x
g w g x
g w g x g w
2 g w A g x A g w Z g x Z g w k g x k g w 2 g x 2 g w * g x
* g w & g x & g w
g w G g x G g w ` g x
` g w q g x q g w
g x g w g w
7 g x
7 g w
/ g x
/ g w
' g w
N
g x
N
g w
g
g x
g
g w
g x
g w
g w
g x
g w g x
g w ( g x ( g w
F } g w U y g x U y g w Q g x Q g w I g x
I g w A g w = g x
= g w 5 g x 5 g w - g w f 5 g x f 5 g w - g x
- g w % g w ! g x
! g w g x g w g x g w g gensyms V g vals V g body V g v z g w g x g w g x g w
g w g x g w
} g w w g w t g x t g w n g x n g s < J g w g x g w g x g w
g w g x g w
g w g w g x g w / { g x / { g s S a g in-order? g gensyms g vals g body g gensyms ; g vals ; g body ; g exp Q z g body Q z g body g winder g unwinder g fluids g vals g body g fluid - g fluid C [ g exp C [ g tag x g body x g handler x g tag g args g tail g filenamef %language/scheme/decompile-tree-il.scm
2 )
/ 0 : = . A
T ` j r $ $ ( ) H , ! P d e , ! n ' w ! 3 ) , 5 > U ] e } ~ '
X
i
% n v ~
%
" %
! ! ( ) ! , " " / ! 9 ; $ > A I J $ M % " N $ Y [ ' ^ a i j ' m ( # n ' x * # y * 2 *
+ *
, , " *
- - ' - 7 - ' - F *
. *
/ 0 ! 1 % 2 * 2 5 2 * 3 * 4 / 3 * 1 % 0 ! 5 ! *
6 7
8 $ 9 ) 9 : 9 E 9 : 9 ) : ) % ; . / : ) 0 < ) 7 < 2 9 < ) ; 8 $ > = ( B = $ D > ( I ? ( K 7 Q @ Q *
T A j *
r B u D u D F F G & F D I I J ' I C C X X X % X Y & Z 0 Z 1 Z - 6 [ ! ? [ @ X 0 0 0 0 ) X u } X 0 ! 0 " 0 ) 0 ) - X | | | X
x
x
x
X x t u v t X p p X m m X
k
+ X
n 0
r 0
s 0
z 0 )
~ X
i
i
X 0 0 0 0 ) X o f q f u X b % b ! ' b + 2 - b 1 X ] ] ! ] 2 ] X A ] ` i r z 4 < * < ? - ! K N $ V W X \ ^ I S , S V - ! b f h s w ! * 3 ; C W [ ^ f g i
l p & t v
y
" # , 5 I J Q ( Z c ( q g nameg recurse C h@ - / 0 3 # # # # 4 > G O
O O
O
O O O O O Q Q
Q
Q Q Q Q Q
Q 4 5D g e
@ g env @ g use-derived-syntax? @ g
avoid-lambda? @ g use-case? @ g strip-numeric-suffixes? @ g output-name-table F @ g occurrence-count-table F @ g output-name @ g build-begin @ g build-lambda-body
@ g build-begin-body @ g build-define @ g build-let
@ g build-letrec @ g build-if @ g build-and @ g build-or @ g build-else-tail @ g build-case-else-tail @ g clauses+tail @ g
build-cond @ g build-cond-or-case @ g recurse @ g filenamef %language/scheme/decompile-tree-il.scm
!
8 * I ) 6 @ @
g use-derived-syntax?S g
avoid-lambda?S g use-case?S g strip-numeric-suffixes?S g nameg do-decompile C,RHH 4i4Hi55 4i h ~ ]L 6 v g t-df5d6f08a2a2c7b-6cc8
g filenamef %language/scheme/decompile-tree-il.scm
, CO > " G 7 h u ]L 6 m g name
g filenamef %language/scheme/decompile-tree-il.scm
-
-
CO K 4i5 h` ] 4 L 5 $ G4 5$ 5-4 5& #04 5& C4
5 " C C C g str
] g i ] g filenamef %language/scheme/decompile-tree-il.scm
4 5 5
6 6 6 ! 6 " 6 % 7 1 6 4 8 # ; 8 3 = 8 # A 6 E 9 " T 9 ] g nameg base-name-string CO Q h ]4L 4 556 g sym
g filenamef %language/scheme/decompile-tree-il.scm
; < < , < <
CO K h0 ] 4M
5
$ MN" C g s
+ g h + g filenamef %language/scheme/decompile-tree-il.scm
N O O P P P
Q $ Q ' R ( R ) R
+ g nameg increment-occurrence-count! C h0 ]
$ CL$ 4M5" M 6 g s
* g name * g name * g filenamef %language/scheme/decompile-tree-il.scm
\ I ] ^ _ ^ * a * g nameg set-source-name! C hh ]
$ " *4M 5 45$ " $ C4M 5 4 5$ C C g a
g g b g g h 7 g h J g g filenamef %language/scheme/decompile-tree-il.scm
i I k
l l > l l m ! m ! # m ' m 2 n ( 3 n 4 n : I > k
A l H l > J l J l M m T m ! V m Z m c n ( d n e n g g nameg
add-conflict! C h( ]4L 5 $ C C g name
( g h ( g t ( g filenamef %language/scheme/decompile-tree-il.scm
E
F F G G G 3 # G - $ G ! ' H !
( C h0 ]4L 5 $ C4M 5C g name
* g h * g t * g filenamef %language/scheme/decompile-tree-il.scm
V
W W X X X - & X ! ) Y ! * Cg8e h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
ChV h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Cmnos7pqh ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Cr` h | ]L C t g s*
g filenamef %language/scheme/decompile-tree-il.scm
& ! Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d65
g filenamef %language/scheme/decompile-tree-il.scm
Ctuvwh ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch | ]L C t g s*
g filenamef %language/scheme/decompile-tree-il.scm
& ! C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d65
g filenamef %language/scheme/decompile-tree-il.scm
Cx{|}h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C~ h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
CI h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
CJ h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C_ h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
CX h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
CO h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ckl: h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C? h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C< h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C; h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
CB h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
CE@ h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
CCD h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]L L 6 v g t-df5d6f08a2a2c7b-6dd7
g filenamef %language/scheme/decompile-tree-il.scm
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]L L 6 v g t-df5d6f08a2a2c7b-6deb
g filenamef %language/scheme/decompile-tree-il.scm
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
Ch ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h ~ ]LL 6 v g t-df5d6f08a2a2c7b-6d57
g filenamef %language/scheme/decompile-tree-il.scm
z
C h - ]a & /4M 5 4M
54L 5 L O 6& /4M 5 4M
54L 5 L O 6
& 4 54 5 4
5$ T45 $ " 4M5 4M5$ 4L 4M
5> " G " " 4L> " G L6& 84 5 4M 5 4M
54L 5 L O 6& {4 5 4M
5
$ MN" 4O 444M $ " 4M55L 555 L O 6& 4 54 5 4M 5 4M
54L 5 4 L O > " G 4M
5
$ MN" 4 O 444M $ " 4M55L 555 4 L O > " G "P & P4! 5 4M $ "" #5 4M
$ "" #54L 5 $L O 6%& 4& 54' 5 4M 5 4M
54L 5 4(L O > " G 4M $ "" #5 4M
$ "" #54L 5 4)L O > " G "6*& 84+ 5 4M 5 4M
54L 5 ,L O 6-& 4. 54/ 5 4M 5 4M
54L 5 40L O > " G 4M 5 4M
54L 5 41L O > " G "L2& ^43 544 5 4M 5 4M
54L 5 45L O > " G "6& -47 548 549 5 L $ 4M :5 4M
:54L 5 4;L O > " G 4M <5 4M
<54L 5 4=L O > " G 4M >5 4M
>54L 5 4?L O > " G 4M @5 4M
@54L 5 4AL O > " G 4M B5 4M
B54L 5 4CL O > " G 4M D5 4M
D54L 5 4EL O > " G " 4M 5 4M
54L 5 4FL O > " G 4L> " G 4L> " G "G& U4H 5 4M I5 4M
I54L 5 4JL O > " G L6K& F4L 5 $ "54M M5 4M
M54L 5 NL O 6O& 4P 54Q 54R 54S 54T 54U 54V 54W 5 4M X5
4M
X54
L 5 4Y L O > " G
$ "
$ " $ 4M Z5
4M
Z54
L 5 4[ L O > " G
4M M5
4M
M54
L 5 4\ L O > " G
4M ]5
4M
]54
L 5 4^ L O > " G
" 4M _5
4M
_54
L 5 4` L O > " G
L $ H4M a5
4M
a54
L 5 4b L O > " G
" 4c$ " $ " 4de$ " 55
4dM
5 4fgL 5 4L> " G 4L
> " G 4L> " G 4L > " G $ "?Ch& R4i 54j 54k 54l 5 4M _5 4M
_54L 5 4mL O > " G L $ 4M a5 4M
a54L 5 4nL O > " G 4M <5 4M
<54L 5 4oL O > " G " 4L> " G 4L> " G 4L> " G L4fgL 4dM 556p& 4q 54r 54s 54t 54u 5 4M _5 4M
_54L 5 4vL O > " G L $ 4M a5 4M
a54L 5 4wL O > " G 4M <5 4M
<54L 5 4xL O > " G " 4M $ y" z5 4M
$ y" z54L 5 4{L O > " G 4L> " G 4L> " G 4dM 5 4fgL 5 4|LO > " G L6}& 4~ 54 54 54 5 4M _5 4M
_54L 5 4L O > " G 4M y5 4M
y54L 5 4L O > " G L $ 4M a5 4M
a54L 5 4L O > " G 4M <5 4M
<54L 5 4L O > " G " 4L> " G 4L> " G 4dM 5 4fgL 5 4LO > " G L6& p4 54 5 4M 5 4M
54L 5 4L O > " G 4L> " G "& 4 54 54 5 4M 5 4M
54L 5 4L O > " G 4L> " G 4L> " G "]& 4 54 54 5 4M 5 4M
54L 5 4L O > " G 4L> " G 4L> " G "& U4 5 4M 5 4M
54L 5 4L O > " G "i& p4 54 5 4M 5 4M
54L 5 4L O > " G 4L> " G "& 4 54 54 5 4M 5 4M
54L 5 4L O > " G 4M X5 4M
X54L 5 4L O > " G 4L> " G 4L> " G "& 4 54 54 5 4M 5 4M
54L 5 4L O > " G 4M 5 4M
54L 5 4L O > " G 4L> " G 4L> " G "A 6 - g e
g rtd g bname > g s + > g conflicts + > g bname M u g s b u g conflicts b u g proc g args g gensym g name g name H g bname H g s 5 H g conflicts 5 H g gensym W g h c g conflicts g gensym g exp g bname ) g s & g conflicts & g h 3 S g conflicts g public?
g bname
g s
g conflicts
g public? g exp g bname + h g s @ e g conflicts @ e g bname { g s g conflicts g name g bname g s g conflicts g name " g exp " g bname - j g s B g g conflicts B g g bname q g s g conflicts g name g exp g bname g s g conflicts g test 9 Q g
consequent 9 Q g alternate 9 Q g bname L g s a g conflicts a g bname g s g conflicts g bname g s g conflicts g bname U g s - R g conflicts - R g bname \ g s q g conflicts q g bname g s g conflicts g bname % g s " g conflicts " g exps ` g bname i g s ~ g conflicts ~ g body g bname g s g conflicts g req <
g opt <
g rest <
g kw <
g inits <
g gensyms <
g body <
g alternate <
g bname
S g s h g conflicts h g bname
g s g conflicts g bname
4 g s 1 g conflicts 1 g bname
; x g s P u g conflicts P u g bname
g s g conflicts g bname
g s
g conflicts
g names
G
g
base-names
R
g
body-bindings
a
g names
g gensyms
g vals
g body
g bname
5 g s
2 g conflicts
2 g bname B g s W | g conflicts W | g bname g s g conflicts g in-order? J
g names J
g gensyms J
g vals J
g body J
g bname [ g s p g conflicts p g bname g s g conflicts g bname
& g s
# g conflicts
# g bname
=
g s
^
g conflicts
^
g
base-names
g bindings
g names g gensyms g vals g body g bname ] g s 5 Z g conflicts 5 Z g bname d g s y g conflicts y g bname g s g conflicts g bname / g s , g conflicts , g
base-names f g bindings u g exp g body g bname g s g conflicts g winder / g body / g unwinder / g bname < y g s Q v g conflicts Q v g fluids < g vals < g body < g bname g s g conflicts g fluid K g bname T g s i g conflicts i g fluid g exp g bname g s g conflicts g tag . g body . g handler . g bname ; x g s P u g conflicts P u g bname g s g conflicts g tag g args g tail g bname O g s ' L g conflicts ' L g bname V g s k g conflicts k g filenamef %language/scheme/decompile-tree-il.scm
s
w " w w x " x y % y 2 + y + x > z F
G w K " M w M w P x T " V x W y \ y 2 b y b x u z }
I c J ! e -
w w # x * y / y 2 5 y 5 x H z P
Z O c O h P i P n P
s Q $ u Q ~ R R R
, , I c J ! e ,
w w w x x y y 2 y x z * O 3 O 8 P 9 P > P
C Q $ E Q N R O R P R
T ^ a f , g , l I p c s J ! x e , 0
w / ; > w w x / ; > x y y 2 y x
z
% w ) + w + w . x 2 4 x 5 y : y 2 @ y @ x E z i w q * s 6 y 9 { w { w ~ x * 6 9 x y y 2 y x z ?
w w x y y 2 y x z
' w + - w - w 0 x 4 6 x 7 y < y 2 B y B x G z k w q w t x { y y 2 y x z 0
w w x y y 2 y x z ; $
E
F w J L w L w O x S U x V y [ y 2 a y a x f z w 0 w w x 0 x y y 2 y x z w w w x x y y 2 y x z w 1 w w x 1 ! x " y ' y 2 - y - x 2 z V w Z \ w \ w _ x c e x f y k y 2 q y q x v z w 1 w w x 1 x y y 2 y x z w w w x x y y 2 y x z &
8 Q 1 Y
c w g * i w i w l x p * r x s y x y 2 ~ y ~ x z 2
w 0 w w x 0 x y y 2 y x z
M w Q S w S w V x Z \ x ] y b y 2 h y h x m z
w w w x x y y 2 y x z w w w x x y y 2 y x z 5 w 9 ; w ; w > x B D x E y J y 2 P y P x U z } w w w x x y y 2 y x z
w 0 w w x 0 x y y 2 y x z
'
/
& 4
+ =
0 I
1 #
; -
> 4
C =
E #
G
G
J
R
U
a
d
x
w
w
w
x
x y y 2
y
x z ;
< w @ 3 B w B w E x I 3 K x L y Q y 2 W y W x \ z w E w w x E x y y 2 y x z
.
'
U w Y [ w [ w ^ x b d x e y j y 2 p y p x u z
w 3 w w x 3 x y y 2 y x z w E w w x E x y y 2 y x
z
+ w
3
5 &
; /
= w
= w
@ x
H
J &
P /
R x
S y
X y 2
^ y
^ x
c z
w w w # x ' ) x * y / y 2 5 y 5 x : z ^ w b d w d w g x k m x n y s y 2 y y y x ~ z
w 3 w w x 3 x y y 2 y x z w E w w x E x y y 2 y x z 4
H
^ f
i u
x
w w w x x y y 2 y x z
6 w : < w < w ? x C E x F y K y 2 Q y Q x V z z
-
w w w x x y y 2 y x z
!
<
D
N w R ) T w T w W x [ ) ] x ^ y c y 2 i y i x n z 5
w w w x x y y 2 y x z % 5
5 w 9 ; w ; w > x B D x E y J y 2 P y P x U z y w } w w x x y y 2 y x z
*
w w w x x y ! y 2 ' y ' x , z P w T V w V w Y x ] _ x ` y e y 2 k y k x p z
3
g nameg recurse C h@ ]
O
L
L LLLLLLLLL Q 6 g e
9 g bindings 9 g recurse 9 g filenamef %language/scheme/decompile-tree-il.scm
r s 9 g nameg recurse-with-bindings C h ]M 6 g s
g name g filenamef %language/scheme/decompile-tree-il.scm
g nameg set-output-name! C7 h@ ]
4M 5 $ "
4M 5 $ "
C g a
: g b : g t g t & 8 g filenamef %language/scheme/decompile-tree-il.scm
M ' M # M ' & M # 9 # : C77 h ~ ]L Cv g t-df5d6f08a2a2c7b-6e32
g filenamef %language/scheme/decompile-tree-il.scm
! , C h( ] $ " 4M 5L O 6 g s*
$ g filenamef %language/scheme/decompile-tree-il.scm
# I
J ! $ % $ C 7 h ~ ]L Cv g t-df5d6f08a2a2c7b-6e32
g filenamef %language/scheme/decompile-tree-il.scm
! , C h( ] $ " 4M 5L O 6 g s*
$ g filenamef %language/scheme/decompile-tree-il.scm
# I
J ! $ % $ C
h ])L 4M 5 $ " $ " 4M 5 4L O 5$ ^4455 " 84L O 5$ 444 555 "" " " 6 g s
g t ! g
the-conflicts 8 g the-source-name 8 g prefix ^ g i d g name d g filenamef %language/scheme/decompile-tree-il.scm
h h h = $ I ( c + J ! 0 e 8 = P # Q % ) T & * \ ' * ^ % ) ^ % d ( e x ) { + ) | , ) - * / + - * , ) + # ( C h ]cHHHHHHO O
O Q Q
Q K45 O K45 K45 LO K45 K45 KO L
Q 4 > " G H
H O Q 45 K 4
J O 5K
4
O J
> " G J JD g e
g use-derived-syntax? g strip-numeric-suffixes? g lexical-gensyms g top-level-intern! g occurrence-count-table g base-name g source-name-table g conflict-table g increment-occurrence-count! / g set-source-name!
/ g
add-conflict! / g table L X g table f t g recurse-with-bindings g output-name-table g sorted-lexical-gensyms
g set-output-name! g filenamef %language/scheme/decompile-tree-il.scm
? E A H D L D [ L % b U f U w [ ~ g r "
1 C O 6RC g m
, g
primitive?
x ) g compute-base-name x ) g table x+ y g digits y | g base-name-string {4 { g filenamef %language/scheme/decompile-tree-il.scm
x !
x + x! + % x' $ x) + % x+ + x+ $ x. , x $ x , y 3 y 3 & y 3 y 3 ,
.
C6 PK ! `U language/scheme/spec.gonu [ GOOF----LE-8-2.0 ] : 4 h ] g guile g define-module* g language g scheme g spec
g filenameS f language/scheme/spec.scm g importsS
g system g base g compile
g compile-tree-il g decompile-tree-il g exportsS g set-current-module g invalidate-compilation-cache! !g
make-language "g nameS #g titleS $f Scheme %g readerS &g and=> 'g module-variable (g current-reader )g variable-ref *g fluid-ref +g read ,g compilersS -g tree-il .g decompilersS /g evaluatorS 0g primitive-eval 1g printerS 2g write 3g make-default-environmentS 4g make-fresh-user-module 5g module-define! 6g
make-fluid 7g module-set! 8g format 9g
simple-formatC 5 h ]4
5 4 > " G 4 i> " G 4!i"#$%&'()*+ h0 ]
444555 $ " 6 g port
- g env - g t - g filenamef language/scheme/spec.scm
! $ $ $ % $ : $ % $ $ $
- C,-i .-i /0 h w ] 6o g x
g module g filenamef language/scheme/spec.scm
, , # C12i345(6789 h@ ]45 4 45 > " G 4 > " G C g m
; g filenamef language/scheme/spec.scm
/ 2 2
6 6 & 6 6 6 # < ) < # 0 < ;
C5RC } g m
, g filenamef language/scheme/spec.scm
-
K Z * f +
C6 PK ! I2 language/elisp/bindings.gonu [ GOOF----LE-8-2.0 ] / 4 h ] g guile g define-module* g language g elisp g bindings
g filenameS f language/elisp/bindings.scm g exportsS
g
make-bindings g mark-global-needed! g map-globals-needed g with-lexical-bindings g with-dynamic-bindings g get-lexical-binding
g set-current-module g make-record-type g needed-globals g lexical-bindings g
bindings-type g record-constructor g make-hash-table g record-accessor g assoc-ref g memq !g
assoc-set! "g record-modifier #g hash-ref $g and-map %g symbol? &g error 'f can't bind non-symbols (g for-each )g hash-set! *g
make-fluid +g with-fluids* ,g map -g with-symbol-bindings .f #invalid targets for lexical bindingC 5 hH
]4
5 4 > " G 4i5R h ] 4545 6 g filenamef language/elisp/bindings.scm
1
2
2 & 2 * 2
g nameg
make-bindings C
R !" hh ]#445 5 45 $ " 45$ " 45 45 6 g bindings
e g sym e g module e g
old-needed e g t - g
old-in-module - e g
new-in-module G e g
new-needed T e g filenamef language/elisp/bindings.scm
7
8 8
8 5 8 8 8 : : * : : - 8 0 ; < ; G = G 8 J > T 8 W ? ] ? $ _ ? e ? e g nameg mark-global-needed! CR h ' ]B445 5 " `( C " $( " $45 " " " " g bindings
g proc g needed g mod-tail v g
mod-result v g aentry % n g module * k g symbols / h g sym-tail 5 Y g
sym-result 5 Y
g filenamef language/elisp/bindings.scm
F
G G
G 0 G G G I K " N % O % O * P * O / Q / O 5 R
; T D V $ E W * L W 7 N W * Q W $ Y V Y R
v M
v I y J & I g nameg map-globals-needed CR # h0 ]445 5 45 $ [CC g bindings
* g sym * g lex * g slot * g filenamef language/elisp/bindings.scm
]
^ ^
^ . ^ ^ ^ ` ^ $ a * g nameg get-lexical-binding CR$%&' (#)* h ]4L 5$ CL 45 6 x g sym
g filenamef language/elisp/bindings.scm
n o o p ' p C+,# h h ]L 6 ` g sym
g filenamef language/elisp/bindings.scm
r
r %
C
hx _ ] $ 45" $ 4> " G " 445 5 4 O > " G
4 O 56 W g bindings
s g syms s g targets s g proc s g lex B s g filenamef language/elisp/bindings.scm
h
i i
j j
i
i k ! k
( k 5 l
6 l < l - > l B l
B l E n ` r s r s g nameg with-symbol-bindings C-R$%&.- h0 ]$ 45" $ 6 6 g bindings
0 g syms 0 g targets 0 g proc 0 g filenamef language/elisp/bindings.scm
v
w w
x x
w
w y
$ y 0 z 0 g nameg with-lexical-bindings CR-, h _ ]C W g el
g filenamef language/elisp/bindings.scm
C h ] 456 g bindings
g syms g proc g filenamef language/elisp/bindings.scm
|
} g nameg with-dynamic-bindings CRC g m
( g filenamef language/elisp/bindings.scm
) , / , 1 , 3 , 6 +
1
9 7
F
K ]
h
v
E |
G
C6 PK ! m{ҳJ0 J0 language/elisp/lexer.gonu [ GOOF----LE-8-2.020 ] { 4 h ] g guile g define-module* g language g elisp g lexer
g filenameS f language/elisp/lexer.scm g importsS
g ice-9 g regex
g exportsS g get-lexer g get-lexer/1 g set-current-module g error g lexer-error g set-char-bit g eof-object? g char=? g is-char? g
integer->char g real-character !g char-alphabetic? "g
char->integer #g char-upcase $g add-control %g read-char &g
char-numeric? 'g unread-char (f invalid digit in escape-code )g charcode-escape *a +b ,t -n
.v /f 0r
1e 2s 3d 4*+,-./0123
5g basic-escape-codes 6A 7s 8H 9S :g assq-ref ;g
get-character <g peek-char =f !expected - after control sequence >g char>=? ?g char<? @g make-regexp Af ^[+-]?[0-9]+\.?$ Bg
integer-regex Cf 7^[+-]?([0-9]+\.?[0-9]*|[0-9]*\.?[0-9]+)(e[+-]?[0-9]+)?$ Dg float-regex Eg string->char-set Ff -+=*/_~!@$%^&:<>{}?. Gg no-escape-punctuation Hg list->string Ig reverse Jg regexp-exec Kg integer Lg float Mg symbol Ng char-set-contains? Og get-symbol-or-number Pg circular-ref Qg circular-def Rf !invalid circular marker character Sg get-circular-marker Tg
file-port? Ug
port-filename Vg port-line Wg port-column Xg set-source-property! Yg filename Zg line [g column \g eof ]g char-whitespace? ^g lex _g character `g string ag function bg
paren-open cg paren-close dg square-open eg square-close fg quote gg backquote hg unquote-splicing if expected @ in unquote-splicing jg unquote kg
string-length lf invalid character in input mg string->symbol ng inexact->exact og string->number pg integer? qf expected integer rg exact? sf expected inexact float tf wrong number/symbol type ug dot vg binary-ports w
v xg
eof-object ywx zwx C 5 h% H ]4
5 4 > " G h - 1 3 @ g port
g msg g args g filenamef language/elisp/lexer.scm
'
(
g nameg lexer-error CRh ] C g chr
g bit
g filenamef language/elisp/lexer.scm
-
. .
g nameg set-char-bit CR h ]4 5$ C 6 g tested
g should-be g filenamef language/elisp/lexer.scm
4
5
5 6 g nameg is-char? C R h ] $ 6 C g chr
g filenamef language/elisp/lexer.scm
<
= = > g nameg real-character C R !"# hH ] 4 5 45$ 4455 @C?$ C@$
C 6 g chr
E g real E g filenamef language/elisp/lexer.scm
F
G G H H I I " I $ I . % I / J E M
E g nameg add-control C$R%&"!#'( h t ]," " 4 5 45$ 45 0" 645$ *4455 A
$ "
" $ " $ "w$ " $ 4 > " G C 6$ $ C"1"-
" l g port
g base g digits g early-return g result g procdigs g cur g code F ] g value b g valid t
g filenamef language/elisp/lexer.scm
V
W [ [ ] \ ^ ' ^ / ( ^ - _ 7 \ 8 ` ' ; ` 6 C ` ' E a ' F ` $ F ` L b P b Z d b [ j f o f ! t [ | g
p p p 1 p h h h j m l Y Y Y W ( g nameg charcode-escape C)R45R6789% :5$; <=)">?' h C ]*M$ " 4 5 4\5$ r4 5 45 45 " $ C" ^$
4
56C$ J4 4 5-5$ 544 5-5$ " 4
> " G 4
56Cx$
6u$ 6U$ 66405$ 0485$ 4 > " G 6""$ M4 4 5-5$ 744 5-5$ " 4
> " G 4
56""6 ; g port
g in-string g meta-bits % g cur % g escaped = g esc-code H g meta S g filenamef language/elisp/lexer.scm
% * 6 7 = @ H K S _
o r " | & "
' * + I Q
X [ e i j m w { > g nameg
get-character C;R4@iA5BR4@iC5DR4EiF5GR% HIJBKDLM&!NG ' hH ])" 24 5 45$ P4455 $ " 45$ " $ " 45$ "
D4 5 $ " 4 5 $ " 4
5 $ "R4\5$ 4 5 "24 > " G 4455 $ " 45$ " $ " 45$ "
D " g port
B g result-chars 8 g
had-escape 8 g c
8 g result & j g t q g t g result 8 g filenamef language/elisp/lexer.scm
# $ & # & . 4 @ B L R ^ ` f j k " q " " % & # $ # , . 4 8 8 9 B 4 B g nameg get-symbol-or-number COR%&"PQR hx ]" 84 5 45$ 45 0
" "
" G #$ C=$ C 6 g port
u g result > g cur
> g val $ 4 g id F u g type F u g filenamef language/elisp/lexer.scm
# 2 $ $ + . 4 > > I V X e g q u u g nameg get-circular-marker CSRTUVWXYZ[ hP ]
4L> " G 4L> " G 4L > " G C g token
N g value N g obj N g filenamef language/elisp/lexer.scm
0 & 0 - 6 < 0 C
N C% \]^ _;`HI' Sabcdefg <hijOMklmKnopqLrstu 0 h { ])4 5$ 4 5" 4 54 5 O 4 5 45$ 64 5$
6" x;$ ?" 74 5 45 $ " 4
5 $
6""?$ 4
56"$ " 4 5 "$ 44556\$ f4 5
$ " $ "4 > " G 4 > " G 44
55 "m "b "[#$ 4 5 0$ " u1$ " g2$ " Y3$ " K4$ " =5$ " /6$ " !7$ " 8$ " 9$ '4 > " G 4 5 6'$ 6C($ 6)$ 6[$ 6]$ 6'$ 6`$ 6,$ 844 5@5$ 4 4 5@5$ 6 6 64 > " G 4! > G "$ 44#5
$ 4 > " G $6"4%56&$ >&4'4(55 4)5$ " 4 *> " G 6+$ 9+4(5 4,5$ 4 -> " G " 6 .64 .5$ 4 4 55$ /6"`"\ s g port
g file ) C g line ) C g column ) C g return J g c J g cur g t g result-chars g cur g escaped u g c Y g mark ; G g type g str g num v g num g filenamef language/elisp/lexer.scm
! " " ) ) D J O Y
] a b l
r '
! $ $ $ * + + ,
. . . . . . ,
0 0 ! 1 7 3 8 5 L 6 ` 8 c 8 + l 8 o 8 u 7 z : : * * % * < < =
! ?
5 @ ; @
B A E A " G A P =
T C W C
b f E i E r v F y F G G H H I I J J M
M M
M N N N N
P P O O Q Q
V X W ) Z
* a 1 a 6 a 7 e L f P f T g U g $ ] g f Z
j n k o n o , v o v o y p p q q q m Z
t t * t u % u ! v % v , v % t z z
g nameg lex C^R^ h U ] L 6M g filenamef language/elisp/lexer.scm
C h t ] O C l g port
g filenamef language/elisp/lexer.scm
g nameg get-lexer CR\zbdcefgjhQ h L ]M$ 45 C4L5 H $ " $ M N " h$ " $ M N " H$ " /$ " ! $ "
$ " $ K" J$ " M
$ N" CD g next
g quotation g key g filenamef language/elisp/lexer.scm
: ! < I Z ! \ i %
C h ]4 5
HH O C g port
g lex g finished g paren-level g filenamef language/elisp/lexer.scm
g nameg get-lexer/1 CRC @ g m
, g filenamef language/elisp/lexer.scm
'
-
4
B <
F
V
y x
>
?
E #
G
J
K
Q
S
V
W
] 0
_
b
!N
"W
%
%
C6 PK ! L ͈ ͈ ! language/elisp/compile-tree-il.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g language g elisp g compile-tree-il
g filenameS f "language/elisp/compile-tree-il.scm g importsS
g bindings
g runtime g tree-il g system g base g pmatch g compile g srfi g srfi-1 ! "g srfi-8 # " $# %g srfi-11 & % '& (g srfi-26 ) ( *) + !$'* ,g exportsS -g
compile-progn .g
compile-if /g compile-defconst 0g compile-defvar 1g compile-setq 2g compile-let 3g compile-lexical-let 4g compile-flet 5g compile-let* 6g compile-lexical-let* 7g
compile-flet* 8g compile-without-void-checks 9g compile-with-always-lexical :g compile-guile-ref ;g compile-guile-primitive <g
compile-while =g compile-function >g compile-defmacro ?g
compile-defun @g compile-` Ag
compile-quote B-./0123456789:;<=>?@A Cg set-current-module DC EC Fg
make-fluid Gg
bindings-data Hg disable-void-check Ig always-lexical Jg source-properties Kg location Lg
make-const Mg nil-value NM OM Pg t-value QP RP Sg value-slot-module TS US Vg
value-slot Wg function-slot-module XW YW Zg
function-slot [g , \g unquote? ]g ,@ ^g unquote-splicing? _g make-application `g make-primitive-ref ag call-primitive bg error cg report-error dg
runtime-error eg make-module-ref fg
ensure-fluid! gg generate-ensure-global hg
make-sequence ig append ji ki lg map-globals-needed mg ensuring-globals ng with-fluids* og list pg map qg make-lambda rg make-lambda-case sg let-dynamic tg get-lexical-binding ug access-variable vg make-lexical-ref wg mark-global-needed! xg fluid-ref yg reference-variable zg
set-variable! {g make-lexical-set |g
fluid-set! }g nil ~g length f ,expected symbol or list of 2 elements in let f expected symbol in let g process-let-bindings g lexical g all g memq g bind-lexically? g reverse g split-let-bindings g for-each g car g compile-expr g gensym g make-let g with-lexical-bindings g generate-let g
generate-let* g bind-arg-lexical? g &rest f 'expected exactly one symbol after &rest g required g optional f &invalid mode in split-lambda-arguments f %expected symbol in argument list, got g &optional g split-lambda-arguments f expected list for argument-list f function body must not be empty g cons g lset-intersection g with-dynamic-bindings g cdr g make-conditional g null? g make-void g compile-lambda f too many arguments to defvar g string? f 0expected string as third argument of defvar, got f expected symbol, got g handle-var-def g module-defined? g resolve-interface g
module-ref g resolve-module g fluid? g
find-operator g contains-unquotes? g
unquote-cell? g unquote-splicing-cell? g process-backquote f %non-pair expression contains unquotes f $symbol-list construct has empty body g and-map g symbol? f invalid symbol list g with-added-symbols F F g special-operator g
module-bound? g fluid-bound? f expected symbol in setq g iterate g make-letrec g lambda g macro g fromS g toS g value f expected symbol as macro name f expected symbol as function name g compile-pair g t g compile-symbol g valid-symbol-list-arg? f Invalid compiler options g warningsS g always-lexicalS f "Invalid value for #:always-lexical f Invalid compiler option g process-options! g
make-bindingsC 5 h(t ]4
+,B5 4E > " G 4Fi5 GR4Fi5 HR4Fi5 IRJ h ] $ 4 5 ( CCC g x
g props g filenamef "language/elisp/compile-tree-il.scm
K
L L
M M N g nameg location CKRLO h ] 6 | g loc
g filenamef "language/elisp/compile-tree-il.scm
S
T
g nameg nil-value CMRLR h ] 6 z g loc
g filenamef "language/elisp/compile-tree-il.scm
V
W
g nameg t-value CPRRUVRYZR[ h ] $ CC g sym
g filenamef "language/elisp/compile-tree-il.scm
f
g g
g g g nameg unquote? C\R] h ] $ CC g sym
g filenamef "language/elisp/compile-tree-il.scm
i
j j
j j g nameg unquote-splicing? C^R_` h - 1 3 4 56 g loc
g sym g args g filenamef "language/elisp/compile-tree-il.scm
n
o o
g nameg call-primitive CaRb h - 1 3 @ g loc
g args g filenamef "language/elisp/compile-tree-il.scm
t
u
g nameg report-error CcR_`bL h( - 1 3 4 54 56 g loc
$ g msg $ g args $ g filenamef "language/elisp/compile-tree-il.scm
w
y y , y z " z $ x $
g nameg
runtime-error CdR_efL h0 ] 4 54 54 5 6 g loc
) g sym ) g module ) g filenamef "language/elisp/compile-tree-il.scm
1 ' ) ) g nameg generate-ensure-global CgRhklg h ]L 6 z g mod
g sym g filenamef "language/elisp/compile-tree-il.scm
C h( ] 44[ O 5 56 g loc
! g bindings ! g body ! g filenamef "language/elisp/compile-tree-il.scm
! ! g nameg ensuring-globals CmRan_`ope h q ]LL 6 i g sym
g filenamef "language/elisp/compile-tree-il.scm
Cqr
hX ] 4 4 54 O 554 4 554 4 5 56 ~ g loc
S g syms S g module S g vals S g body S g filenamef "language/elisp/compile-tree-il.scm
- ( ) . 4 1 6 : ; @ A E % I 2 J 6 O Q S S g nameg let-dynamic CsRtGZ h0 X ]4[5 $ 6$ 6 6 P g loc
+ g sym + g module + g
handle-global + g handle-lexical + g handle-dynamic + g lexical + g filenamef "language/elisp/compile-tree-il.scm
# ' $ +
+ g nameg access-variable CuRue h _ ] LLL 6 W g filenamef "language/elisp/compile-tree-il.scm
Cv h u ]L 6 m g lexical
g filenamef "language/elisp/compile-tree-il.scm
CwGaxe h0 z ] 4[LL> " G L 4L LL56 r g filenamef "language/elisp/compile-tree-il.scm
- -
C h0 ] O O O 6 g loc
) g sym ) g module ) g filenamef "language/elisp/compile-tree-il.scm
) ) g nameg reference-variable CyRu_ezL h0 ] L4L54LL 54LL5L 6 g filenamef "language/elisp/compile-tree-il.scm
# $ ) + +
C{ h u ]L L 6 m g lexical
g filenamef "language/elisp/compile-tree-il.scm
CwGa|e h0 z ] 4[LL> " G L 4L LL5L6 r g filenamef "language/elisp/compile-tree-il.scm
/ /
C h0 ] O O O 6 g loc
/ g sym / g module / g value / g filenamef "language/elisp/compile-tree-il.scm
/ / g nameg
set-variable! CzRp}~c hP # ] $ C $ 4 5 " $ L 6 $ CL 6 g b
K g filenamef "language/elisp/compile-tree-il.scm
! & * 0 2
5 6 :
= @ B I # K K C h ] O 6 g loc
g bindings g filenamef "language/elisp/compile-tree-il.scm
g nameg process-let-bindings CRZVItG hX G ]& C $ C$ ,[ & C4 5 $ C[ 6C ? g sym
S g module S g t S g always ( Q g t = Q g filenamef "language/elisp/compile-tree-il.scm
! % ( . 2
3 5 =
Q S g nameg bind-lexically? CR hh ]" O( 4545D45$ " " " g bindings
c g module c g tail U g lexical U g dynamic U g filenamef "language/elisp/compile-tree-il.scm
" " ' + . 1 & 4 @ C H . K ( U U X Y c c g nameg split-let-bindings CRwG h q ][ L 6 i g sym
g filenamef "language/elisp/compile-tree-il.scm
Cps h y ] 6 q g el
g filenamef "language/elisp/compile-tree-il.scm
" = / Ch h p ]6 h g el
g filenamef "language/elisp/compile-tree-il.scm
& ( & 5 C h p ]6 h g el
g filenamef "language/elisp/compile-tree-il.scm
' ( ' 5 Ci h y ] 6 q g el
g filenamef "language/elisp/compile-tree-il.scm
" = / C h y ] 6 q g el
g filenamef "language/elisp/compile-tree-il.scm
" = / CGhpsv h q ]L 6 i g sym
g filenamef "language/elisp/compile-tree-il.scm
9 / : 1 C hH ] L( L4L56L4L5L 4LO L54L4L556 g filenamef "language/elisp/compile-tree-il.scm
2 3
" . " 6 . ' 8 . 5 " : " . D " F 5 ! F
C h j ]<4 5 4> G 4O 45> " G ( * 45454 4
5564 5 4 5 4
5 4
45455
4[45 O 56 b g loc
g module g bindings g body g bind g lexical g dynamic g lexical-syms z g dynamic-syms g all-syms g vals
g filenamef "language/elisp/compile-tree-il.scm
" , 9 G #
L $ W ` " e " . o " q $ r & # z & } ' # & ( & ) ) & / 1 / + g nameg generate-let CRwG h ]4 L 5$ C[ L 6 { g sym
g filenamef "language/elisp/compile-tree-il.scm
F G G H CphpG h h ] LL 6 ` g filenamef "language/elisp/compile-tree-il.scm
[ [ 3 [ *
Cs h ] ( L4L56 4 5 4L 5$ 745 L 4[ LO 56
L L 4L 56 g tail
g sym $ g value $ g target : l g filenamef "language/elisp/compile-tree-il.scm
L M
N N O P ! P ' $ P $ O ) Q 5 Q 6 R : R E T J U O V P W Z Y _ Z j W l S s ] " w ] ~ _ ` ` ( ` \ g nameg iterate C hP ]4 5 4O 45> " G O Q 6 g loc
I g module I g bindings I g body I g bind I g iterate 8 I g filenamef "language/elisp/compile-tree-il.scm
C
D D F K % F 8 L I g nameg
generate-let* CRI h ] [ & C 6 g arg
g always g filenamef "language/elisp/compile-tree-il.scm
i
j k k k l g nameg bind-arg-lexical? CRcb h ]b" ( /45454545
D" -& $ " $ 6 45 45
45 4 $ " 5 4 $ " 5
D$ 45 $ "
$ " $
"$
" 6
6& * & "l"" "L g loc
g args g tail g mode g required g optional g lexical g dynamic g final-required ( ; g final-optional ( ; g
final-lexical
( ; g
final-dynamic ( ; g t L b g rest r g rest-lexical { g final-required
g final-optional g
final-lexical g
final-dynamic
g arg a g bind-lexical a g new-lexical
a g new-dynamic a g filenamef "language/elisp/compile-tree-il.scm
n
o u
w x y " z ( w ; { B D H u K L L
\ ^ _ f l n
q r
u {
~ !
!
) -
) -
"
"
# # 0 9 < # E , Y ] a g j l
l u p t u w y } o p q r s t o S g nameg split-lambda-arguments CRcp h o ]6 g g x
g filenamef "language/elisp/compile-tree-il.scm
$ C h ] C g name+sym
g x g filenamef "language/elisp/compile-tree-il.scm
" Ch ] C g name+sym
g x g filenamef "language/elisp/compile-tree-il.scm
" C h@ - ]!4 5 4 5 4L 5 4L5 D % g args
> g syms > g pairs > g
lexical-pairs % > g
dynamic-pairs 2 > g filenamef "language/elisp/compile-tree-il.scm
% ( 2 > > g nameg process-args CiwGV h q ][ 6 i g sym
g filenamef "language/elisp/compile-tree-il.scm
CGGpqrpM h o ]L 6g g x
g filenamef "language/elisp/compile-tree-il.scm
Chav{MsVv h ]L 6 g name-sym
g filenamef "language/elisp/compile-tree-il.scm
( + + * C h x ]L4L LL4LO L5L4L4L55 4LL$ 84L4L 4
LLL554 LLL4 L554
L55" 4
L5L( " 4LL4LO L5 5 5 5 6 p g
compiled-body
2 g filenamef "language/elisp/compile-tree-il.scm
# ( ( 2 2 5 ? @ E K ' L ' X Y b ) j k s x
#
C h8 q ] [4L 54L 5LLLLLLLLL O 6 i g filenamef "language/elisp/compile-tree-il.scm
2 2
C hH < ]$ " 4 > " G ( 4 > " G " 4 > G O Q 4> G
4> G
4$ " > G $ " G 4
> G 4 > G 4 > G 4> " G
[ O
6 4 g loc
A g args A g body A g required N A g optional N A g rest N A g lexical N A g dynamic N A g process-args d A g
required-syms v A g required-pairs
v A g required-lex-pairs v A g required-dyn-pairs v A g
optional-syms
A g optional-pairs A g optional-lex-pairs A g optional-dyn-pairs A g rest-syms A g
rest-pairs A g rest-lex-pairs A g rest-dyn-pairs A g the-rest-sym A g all-syms A g
all-lex-pairs A g
all-dyn-pairs A g filenamef "language/elisp/compile-tree-il.scm
) * 0 5 B Q l y ! * 6 " + # # A " A g nameg compile-lambda CR~c hP F ]$ :45 $ 6( " 45$ 6C 6 > g loc
M g sym M g doc M g filenamef "language/elisp/compile-tree-il.scm
) $ * / ) 1 2 6 < ! ? " A ! I * M M g nameg handle-var-def CRZ h` U ] $ R445 5$ >445 5 45$ [" $ & CCCCC M g sym
] g type ] g op ) Y g op ? Y g filenamef "language/elisp/compile-tree-il.scm
(
* )
+
+ + ) , , ) , ) , , - 6 - ? , D . H . K . Q . T / ] g nameg
find-operator CR\^ hP 3 ] $ @4 5 $ " 4 5 $ C4 5 $ C 6C + g expr
K g t ) g t 7 I g filenamef "language/elisp/compile-tree-il.scm
4
5 5
6 6 6 6
6 $ $ 6 7 & 6 $ - 6 0 8 5 8 " 7 8 7 8
G 9 " I 9 K g nameg contains-unquotes? CR~\ h( ] $ 4 5 $ 6CC g expr
" g filenamef "language/elisp/compile-tree-il.scm
B
C C
C C C C 2 C ( " g nameg
unquote-cell? CR~^ h( ] $ 4 5 $ 6CC g expr
" g filenamef "language/elisp/compile-tree-il.scm
E
F F
F F F F ; F ( " g nameg unquote-splicing-cell? CR~\^aicL h ]*45$ $ 45 $ " 45 $ 6 4 5 $ 45 " $ 45" $ 45" $
456 $
45" 4 56
6 6 g loc
g expr g t 2 g head A g processed-tail M g head-is-list-2 e g head-unquote z g head-unquote-splicing g filenamef "language/elisp/compile-tree-il.scm
H
I
I J
J K K ) K ' 6 K
; L > L A M A M D N % K N < M N % M M R O * V O % W P - ` P * e M m Q # n R ( s R 2 u R ( z M S , T 1 U 2 T 1 M V X $ Y $ Y 2 Y $ W [ ( \ $ ] ( ] 6 ] ( ^ ( [ a `
c 1 g nameg process-backquote CRchpi h ]( 4 > " G " & " $
45" $ " 4 > " G [ & 4 56& " 4
5 Y4 4 5> ZCZF g loc
g fluid g syms g body g old c g new g filenamef "language/elisp/compile-tree-il.scm
i
j k k k $ l ( l ) l 0 m 4 m 5 m ! F l K n Q n X n c o i r m r r q ( | q t ! t u v t q q ( q g nameg with-added-symbols CR4hp h ] 456 g loc
g args g filenamef "language/elisp/compile-tree-il.scm
|
} } C5-R4Mhp h`
]"$ R $ ? 4545( 4 5" 4 4556CC g loc
] g args ] g vx [ g vy [ g vx Y g vy Y g filenamef "language/elisp/compile-tree-il.scm
) 0 < = H M * W Y ] C5.R4hzVL h`
]"$ R $ ? 4 5$ $ 4 4554 5 6CCC g loc
] g args ] g vx [ g vy [ g vx Y g vy Y g filenamef "language/elisp/compile-tree-il.scm
% 3 8 A - I J U W ] C5/R4haLVez h ]"" $ $ 4 5$ z 4 4 4 4 4 554 554 4
554 554 54 4
5554 5 6CCC$ ( 6","( g loc
g args g vx g vy g vx $ g vy $ g vx g vy g filenamef "language/elisp/compile-tree-il.scm
) 7 < A F
L M S T ^ _ i
j
p q ~
.
C50R4hzVyc hx ] ( C 4 ( " 5 $ 54L54L ( " 4L55CL6 g args
t g last t g x * g sym , t g val , t g x J ] g filenamef "language/elisp/compile-tree-il.scm
% ! ' % , , 3 7 8 E J % J R S ! Z % ^ j k r ! t t g nameg loop CM h0 ]
O Q 44 55 6 g loc
) g args ) g loop ' g filenamef "language/elisp/compile-tree-il.scm
$ ) ) C51R4V h( ]$ 6C g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scm
! C52R4 h( ]$ 6C g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scm
! C53R4Z h( ]$ 6C g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scm
! C54R4V h( ]$ 6C g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scm
! C55R4 h( ]$ 6C g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scm
! C56R4Z h( ]$ 6C g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scm
! C57R4I h( ]$ 6C g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scm
! C59R4e hP ]"$ B $ / ( $ $ 6CCCCC g loc
M g args M g vx K g vy K g vx I g vy I g filenamef "language/elisp/compile-tree-il.scm
- 1 4 / 8 C M C5:R4` h( ]$ ( 6CC g loc
% g args % g vx # g vy # g filenamef "language/elisp/compile-tree-il.scm
! % C5;R4p_vhkMqr h l ]B$ 45 45 4 4 5 5 4 4 55 4 454
55 4 4 5 5
6C d g loc
g args g vx g vy g itersym g
compiled-body # g iter-call : g full-body O g lambda-body h g
iter-thunk
g filenamef "language/elisp/compile-tree-il.scm
# &
+ ) 1 ; 5 ) 8 ) :
: = B & O O R W + ` + h h k p % q % u 7 y 7 z 7 % % & ' # $ C5<R4yZ h B ]2" .$ % ( $
6CCC$ T $ ? & )$ (
6"""{"w"s : g loc
g args g vx 2 g vy 2 g vx A g vy A g vx R g vy R g vx k g vy k
g filenamef "language/elisp/compile-tree-il.scm
*
+ . $ + . / 4 + - + C5=R4hzZ_eLmGc h ]*$ $ $ p4 4 4 4 54 54
5 554 5 5 4 4
5> " G C 6CC g loc
g args g vx g vy g vx g vy g tree-il s g filenamef "language/elisp/compile-tree-il.scm
1
2 ' 4 + 4 , 7 1 : : > ? @ E @ * G @ 3 J @ K A Q A + S A T B a A c > e : f C q 9 s 7 s 6 v D y D E F D 5 5 C5>R4hzZLc hh ]"$ V $ C $ ( 4 4 554 5 6 6CC g loc
a g args a g vx _ g vy _ g vx ] g vy ] g filenamef "language/elisp/compile-tree-il.scm
I
J ' L + L 0 O 9 R - E O F U Q O S N Y M ] M
a C5?R4 h( ]$ ( 6CC g loc
% g args % g vx # g vy # g filenamef "language/elisp/compile-tree-il.scm
W
X ! Z % C5@R4L h( ]$ ( 6CC g loc
% g args % g vx # g vy # g filenamef "language/elisp/compile-tree-il.scm
\
] ! _ % C5AR_yZp hp ]" 45 $ 645 $ 4?6 $ 4 5" 45456 g loc
m g expr m g operator m g arguments m g t m g t . m g filenamef "language/elisp/compile-tree-il.scm
c
d e d
g g g f % i & j , j . j . f 9 l A l H o L o M p \ s c t m n m g nameg compile-pair CR}MPyV h0 ]$ 6$ 6 6 g loc
* g sym * g filenamef "language/elisp/compile-tree-il.scm
y
z { z | * }
* g nameg compile-symbol CRKL h8 ] 4 5 $ 6 $ 6 6 g expr
1 g loc 1 g filenamef "language/elisp/compile-tree-il.scm
! ) 1 1 g nameg compile-expr CR h ] & C $ 6C g value
g filenamef "language/elisp/compile-tree-il.scm
g nameg valid-symbol-list-arg? CRcI
hp R ] ( " $ S ( 6 $ C$ 45$ \C6 6C J g opt
l g key . j g value . j g filenamef "language/elisp/compile-tree-il.scm
# '
* - .
; G Q ] ! a f " j l g nameg process-options! CRGHImK hH ] 45 Y4> " G 4 5 44 55 ZD g expr
F g env F g opts F g compiled * ? g filenamef "language/elisp/compile-tree-il.scm
% ! $ * - 0 < F F g nameg compile-tree-il CRC g m
, g filenamef "language/elisp/compile-tree-il.scm
- = 6 =
7 A @ A
A F J F
6 K
S
V
[ [
]
_
^ f
/ i
n
t
w
1
y
5
J
c
"
( C
) i
0 n
>
@Y
B0 (
C 4
D B
E E
I H
L i
L |
Mb
N
P
S
V
W
X
Y
Z
[
\
]z
^
_
c *
e 1
g I
i{ W
jj \
m| c
n y
o
p
r
t"
C t$
C6 PK ! language/elisp/runtime.gonu [ GOOF----LE-8-2.0 ] 4 h| ] g guile g define-module* g language g elisp g runtime
g filenameS f language/elisp/runtime.scm g exportsS
g nil-value g t-value g value-slot-module g function-slot-module g
elisp-bool g
ensure-fluid! g reference-variable g
set-variable! g
runtime-error g macro-error g
built-in-func g built-in-macro g
defspecial g prim
g set-current-module g
value-slot !g
function-slot "! #g error $g resolve-interface %g resolve-module &g module-defined? 'g make-unbound-fluid (g module-define! )g module-export! *g
module-ref +g module-set! ,g make-syntax-transformer -, ., /g macro 0g $sc-dispatch 10 20 3g any 4333 5g
syntax-object 6g begin 7g top 87 9g ribcage :g dummy ;g name <g value =:;< >g m-9d4fb909439-25 ?>7 @?88 Af l-9d4fb909439-2a Bf l-9d4fb909439-2b Cf l-9d4fb909439-2c DABC E9=@D F9 Gg x HG I? Jf l-9d4fb909439-27 KJ L9HIK M8EFL Ng hygiene ON P56MO Qg
define-public R5QMO Sg syntax-violation TS US Vf -source expression failed to match any pattern Wg
datum->syntax Xg map Yg identifier? Zg
syntax->datum [g identity \g string->symbol ]g
string-append ^g symbol->string _g make-id `g _ a`33 bg macro- cg scheme-name dc e8 ff l-9d4fb909439-44 gf h9deg i;< j88 kf l-9d4fb909439-3e lf l-9d4fb909439-3f mkl n9ijm of l-9d4fb909439-3b po q9Hep r8FhnFq s56rO t5QrO ug
make-fluid v5urO wg cons x5wrO yg quote z5yrO {5/rO |z{ }g each-any ~3} 3~ ` g compile- f l-9d4fb909439-52 9de g args g body ; 888 f l-9d4fb909439-4a f l-9d4fb909439-4b f l-9d4fb909439-4c 9 f l-9d4fb909439-47 9He 8FF 56O g define 5O 5uO 5wO 5yO g special-operator 5O g lambda 5O g @ g sym : g m-9d4fb909439-55 7 88 f l-9d4fb909439-5a f l-9d4fb909439-5b f l-9d4fb909439-5c 9 f l-9d4fb909439-57 9H 8F 5O 5O C 5 h ]4
5 4 > " G
RR R"R# h - 1 3 @ g msg
g args g filenamef language/elisp/runtime.scm
5
6
g nameg macro-error CRiR
h { ] $ CC s g b
g filenamef language/elisp/runtime.scm
<
= g nameg
elisp-bool CR$%&'() hP ]4 54 5 45$ C45 4> " G 6 g module
K g sym K g intf K g resolved K g fluid ( K g filenamef language/elisp/runtime.scm
G
H
I H J
! J $ K ( K + L
I M # K M
K g nameg
ensure-fluid! CR%* h@ ]
4 5 $ 64 > " G 45[C g module
; g sym ; g resolved ; g filenamef language/elisp/runtime.scm
O
P P R Q S U 1 V ; g nameg reference-variable CR$%&+()*
h > ]4 54 5 $ X45$ 4> " G " -4> " G 4 > " G " 4 > " G 4 5\ C 6 g module
g sym g value g intf g resolved g filenamef language/elisp/runtime.scm
X
Y
Z Y \ [ ^ * ] + _ E a [ b d b i b v d e g nameg
set-variable! CR4./24PR h R ] C J g dummy
g name g value CUV h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/elisp/runtime.scm
l " g
macro-typeg syntax-rulesg patternsg nameg value C5RWXYZ[ h y ]4 5$ " 6 q g datum
g filenamef language/elisp/runtime.scm
x y
y y C\]^ h0 - 1 3 45 4445?5 6 g template-id
0 g data 0 g symbols . g filenamef language/elisp/runtime.scm
q
x w t u u ! ) u + t 0 v
0
g nameg make-id C_R4./2a_bstvx| h0 ]
4 5 C g name
* g value * g tmp
* g filenamef language/elisp/runtime.scm " 2
"
* CUV h( n ] 4 5 $ @ 6 f g x
" g tmp " g filenamef language/elisp/runtime.scm
" C5R4./2_ h0 ] 4 5 C g name
0 g args 0 g body 0 g tmp
0 g filenamef language/elisp/runtime.scm " 2
"
0 CUV h( n ] 4 5 $ @ 6 f g x
" g tmp " g filenamef language/elisp/runtime.scm
" C5R4./2 h P ] C H g dummy
g sym g args CUV h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/elisp/runtime.scm
" g
macro-typeg syntax-rulesg patternsg symg argsg ... C5RC g m
( g filenamef language/elisp/runtime.scm
, %
0 '
2 - 5 -
7 / : /
5
8
<
* G
b O
i X
q
C6 PK ! $vd= = language/elisp/spec.gonu [ GOOF----LE-8-2.0% ] ( 4 h] ] g guile g define-module* g language g elisp g spec
g filenameS f language/elisp/spec.scm g importsS
g compile-tree-il
g parser g system g base g exportsS g set-current-module g invalidate-compilation-cache! g
make-language g nameS g titleS !f
Emacs Lisp "g readerS #g
read-elisp $g printerS %g write &g compilersS 'g tree-ilC 5 h { ]4
5 4 > " G 4 i> " G 4 i !"# h v ] 6n g port
g env g filenamef language/elisp/spec.scm
! C$%i&'
i 5
RC s g m
, g filenamef language/elisp/spec.scm
-
K
C6 PK ! Q language/elisp/parser.gonu [ GOOF----LE-8-2.0 ] W 4 hL ] g guile g define-module* g language g elisp g parser
g filenameS f language/elisp/parser.scm g importsS
g lexer
g exportsS g
read-elisp g set-current-module g error g parse-error g
make-fluid g circular-definitions g make-hash-table g make-circular-definitions g circular-ref f invalid token for circular-ref g hashq-ref f undefined circular reference !g circular-def "f "invalid token for circular-define! #g
hashq-set! $g make-promise %$ &$ 'g circular-define! (g promise? )g force *g force-promises! +g
vector-length ,g finish -f 'lexer-buffer is not empty when finished .g peek /g get 0f invalid lexer-buffer action 1g make-lexer-buffer 2g square-close 3g paren-close 4f got different token than peeked 5g get-expression 6g get-list 7g dot 8g length 9f &expected exactly one element after dot :g quote ;:: <g backquote =g ` ><= ?g unquote @g , A?@ Bg unquote-splicing Cg ,@ DBC E;>AD Fg quotation-symbols Gg eof Hf end of file during parsing Ig integer Jg float Kg symbol Lg character Mg string Ng set-source-properties! Og source-properties Pg function Qg assq-ref Rg
paren-open Sg square-open Tg list->vector Uf expected expression, got Vg get-lexerC 5 h0 ]4
5 4 > " G h - 1 3 @ g token
g msg g args g filenamef language/elisp/parser.scm
"
#
g nameg parse-error CR4i5 R h y ] 6 q g filenamef language/elisp/parser.scm
3
4
g nameg make-circular-definitions C R hH ] & " 4 > " G 4[5 $ C 6 g token
G g id & G g value 2 G g filenamef language/elisp/parser.scm
6
7 7 7 8 8
8 & 9
& 9 ) : 2 9 : ; C = G = G g nameg circular-ref C R!"#& h L ] M C D g filenamef language/elisp/parser.scm
I
C# h u ] NL L 6m g
real-value
g filenamef language/elisp/parser.scm
J K L C h` ] & " 4 > " G [ H44O 5> " G O C g token
\ g value * \ g table * \ g id * \ g filenamef language/elisp/parser.scm
C
D D D E E
E * H * F 1 I 8 I H I
\ g nameg circular-define! C'R()*+ h ] $ N4 5$ 4 5" 4 > " G 4 5$
4 5C 6 $ \4 5 " H$ = 45$ 45" 4> " G "C
"C g data
g len e g i k g el y g filenamef language/elisp/parser.scm
U
W V
Y
Y Y
Y Z Z Z Z
% [
* [ / [
8 \
= \ ? \
C \ F ] K ] M ] N ]
U ^ W ^
Z _ ^ V _ ` e ` k a p b t b y c y c | d d e & e f g g a * g nameg force-promises! C*R,-./0 hP ] & M$ 6CM$ " 4L 5 N $ MC $
M NC 6 g action
P g result @ H g filenamef language/elisp/parser.scm
t u
u v
w w z # { ! ) { 2 | @ E L P P C h ] H O C g lex
g
look-ahead g filenamef language/elisp/parser.scm
r
s g nameg make-lexer-buffer C1R.23/456789
h ]#4 5 $ " & &4 5& " 4> " G C" 4 5 4 5 C$ e & Y4 5& " 4> " G 4 5 4
5 $ " 4 > " G C"y"u g lex
g allow-dot g close-square g next g type g head U j g tail b j g tail g filenamef language/elisp/parser.scm
! / $ % ) + , 2 7 ; @ I O U X b i j t x y }
. g nameg get-list C6REFR/GHIJKLMNOP5:<?BQFR6ST !'*U h ]!4 5 $ 6$ " /$ " !$ " $ " $ , $ 4
4 5> " G " C $ 5 4
5 $ 4
4 5> " G " C$ " !$ " $ " $ <454
5 $ 4
4 5> " G " C$ 24 5 $ 4
4 5> " G " C$ 744 55 $ 4
4 5> " G " C$ 6$ 945 4
5 4> " G 4 > " G C 6 g lex
g token g type g result e g result g result ; g result M v g result g setter g expr
g filenamef language/elisp/parser.scm
! * e e j n o t ! , D E M R V W \ g
D g nameg get-expression C5R V1.G5, hX d ]!45 Y4 5 45 45 & " 45 4> " G ZCZF \ g port
W g lexer S g lexbuf S g next $ S g result = S g filenamef language/elisp/parser.scm
& " $ $ ) + / 2
7 =
@ D I W g nameg
read-elisp CRC g m
, g filenamef language/elisp/parser.scm
"
1
1
3
6
C
h U
u r
#
% (
F
'
)
C6 PK ! "Û+% +% language/elisp/runtime/macros.gonu [ GOOF----LE-8-2.0% ] n 4 h ] g guile g define-module* g language g elisp g runtime g macros
g filenameS f !language/elisp/runtime/macros.scm
g importsS g set-current-module g
make-fluid g macro g function g lambda g macro-lambda g call-with-deferred-observers g module-export! !g current-module "! #! $ %g gensym &g lexical-let 'g append (' )' *g macro-prog1 +* ,g progn -g prog1 .g macro-prog2 /. 0g if 1g nil 21 3g
macro-when 43 5g macro-unless 65 7g macro-error 8f invalid clause in cond 9g
macro-cond :9 ;g t <g macro-and =< >g macro-or ?> @g length Af invalid dotimes arguments Bf #expected symbol as dotimes variable Cg let D
Eg while Fg guile-primitive Gg < HFG Ig setq Jg 1+ KFJ Lg
macro-dotimes ML Nf invalid dolist arguments Og not PFO Qg null? RFQ Sg car TFS Ug cdr VFU Wf "expected symbol as dolist variable Xg macro-dolist YX Zf catch with empty body [g catch \F[ ]g with-always-lexical ^g eq _g throw `F_ ag macro-catch ba cf #unwind-protect without cleanup code dg dynamic-wind eFd f1 gg macro-unwind-protect hg ig macro-pop ji kg cons lg
macro-push ml C 5 h ]4
5 4 > " G 4 h p - 1 3 C h g cdr
g filenamef !language/elisp/runtime/macros.scm
C5R4 #$ h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
C> " G 4%&) h0 - 1 3 45 4 5C g form1
+ g rest + g temp + g filenamef !language/elisp/runtime/macros.scm
%
& & ' +
C5*R4 #+ h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
$
C> " G 4,- h - 1 3 C g form1
g form2 g rest g filenamef !language/elisp/runtime/macros.scm
, -
C5.R4 #/ h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
+
C> " G 40,2 h - 1 3 C g condition
g thens g filenamef !language/elisp/runtime/macros.scm
2 3
C53R4 #4 h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
1
C> " G 401, h - 1 3 C g condition
g elses g filenamef !language/elisp/runtime/macros.scm
6 7
C55R4 #6 h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
5
C> " G 4178%&0, hp ~ ] ( C 4L 5 $ " $ 6( #45 C Cv g tail
p g cur p g rest p g var A _ g filenamef !language/elisp/runtime/macros.scm
@ A
B
C D D D C
F ! ! F $ F . ) F - E 1 G 5 G 8 H < E = I A I E J J J + M J a O d O f O i P ! j O p g nameg iterate C h - 1 3 O Q 6 g clauses
g iterate g filenamef !language/elisp/runtime/macros.scm
? @
C59R4 #: h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
>
C> " G 4;02 h ]( C 4L 5C g x
g tail g filenamef !language/elisp/runtime/macros.scm
Z [
] ^ ^ ^ % ^ ] g nameg iterate C h8 ) 3 C) 3 C- 1 3 O Q 6 g x
g x
! 6 g args ! 6 g iterate ) 6 g filenamef !language/elisp/runtime/macros.scm
V W V ) Z
! 6
C5<R4 #= h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
U
C> " G 41%&0 h8 ]
( C45 4L 5 C g x
6 g tail 6 g var 6 g filenamef !language/elisp/runtime/macros.scm
f g i i j
% m * m - m ) / m 2 j
6 g nameg iterate C h8 ) 3 C) 3 C- 1 3 O Q 6 g x
g x
! 6 g args ! 6 g iterate ) 6 g filenamef !language/elisp/runtime/macros.scm
b c b ) f
! 6
C5>R4 #? h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
a
C> " G 4@7ABCDEH)IK h - 1 3 $ (4 5 $ "
4 5 " $ 6 $ " 4> " G 4
54 5 $ " C g args
g body g t 4 g var L g count L g filenamef !language/elisp/runtime/macros.scm
r t s u u s ( v 1 v 9 t = s A w E w H x K y L x S z W z
\ { ` { e { o |
|
C5LR4 #M h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scm
q
C> " G 4@7N%C&EPRIT)VW h - 1 3 $ (4 5 $ "
4 5 " $ 6 45 $ l
4
54 5 $ " C6 g args
g body g t 4 g var Q g iter-list Q g tailvar Q g filenamef !language/elisp/runtime/macros.scm
( 1 9 = A E H K M Q Z ^
`
C5XR4 #Y h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scm
C> " G 47Z%&\]0^` h - 1 3 ( 4> " G " 45 45 45 45
C ~ g tag
g body g tagsym * g dummy-key G g elisp-key N g value U g arglist ` g filenamef !language/elisp/runtime/macros.scm
& * . C G J N Q U ` ` d
C5aR4 #b h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scm
C> " G 47cef h@ - 1 3 ( 4> " G " C g body
< g clean-ups < g filenamef !language/elisp/runtime/macros.scm
' <
C5gR4 #h h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scm
C> " G 4-SIU h v ] C n g list-name
g filenamef !language/elisp/runtime/macros.scm
C5iR4 #j h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scm
C> " G 4Ik h ] C g new-el
g list-name g filenamef !language/elisp/runtime/macros.scm
C5lR #m h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scm
C6 g m
( g filenamef !language/elisp/runtime/macros.scm
)
Y $
+
9 1
5
>
) U
a
q
z
C6 PK ! ̝ $ language/elisp/runtime/value-slot.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g language g elisp g runtime g
value-slot
g filenameS f %language/elisp/runtime/value-slot.scm
g set-current-module
C 5 h( g ]4
5 4 > " G C _ g m
$ g filenamef %language/elisp/runtime/value-slot.scm
$
C6 PK ! P5] 5] language/elisp/runtime/subrs.gonu [ GOOF----LE-8-2.0 ] ] 4 h ] g guile g define-module* g language g elisp g runtime g subrs
g filenameS f language/elisp/runtime/subrs.scm
g importsS g system g base g compile g set-current-module g
elisp-bool g eq g call-with-deferred-observers g module-export! !g current-module "! #! $ %g equal &% 'g real? (g inexact? )g integer? *g floatp +* ,g exact? -g integerp .- /g numberp 0/ 1g wholenump 21 3g zerop 43 5g = 65 7g /= 87 9g < :9 ;g <= <; =g > >= ?g >= @? Ag max BA CA DA Eg min FE GE HE Ig abs JI KI LI Mg exact->inexact Ng float ON Pg 1+ QP RP SP Tg 1- UT VT WT Xg + YX ZX [X \g - ]\ ^\ _\ `g * a` b` c` dg modulo eg % fe gg floor hg ig jg ffloor kj lg ceiling ml nl og fceiling po qg truncate rq sq tg ftruncate ut vg round wv xv yg fround zy {g consp |{ }g atomp ~} g listp g nlistp g null g nil-value g car g cdr g car-safe g cdr-safe g nth g nthcdr g length g cons g list g make-list g append g reverse g copy-tree g
runtime-error f &too many arguments for number-sequence f infinite list in number-sequence g number-sequence g setcar g setcdr g reference-variable g value-slot-module g symbol-value g function-slot-module g symbol-function g
set-variable! g set g fset g
module-bound? g resolve-interface g module-variable g resolve-module g fluid? g fluid-unset! g variable-unset! g
makunbound g fmakunbound g fluid-bound? g boundp g fboundp g lambda g fromS g toS g value f list is not a function g apply g funcall g throw g elisp-exception g t-value g not g eval g compile-file g load C 5 hM { ]4
5 4 > " G h ] 6 g a
g b g filenamef language/elisp/runtime/subrs.scm
! ! g nameg eq CR4 #$ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g a
g b g filenamef language/elisp/runtime/subrs.scm
$ % % g nameg equal C%R4 #& h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
#
C> " G '() h8 ] 4 5$ $4 5 $ " 4 5 " 6 g num
6 g t / g filenamef language/elisp/runtime/subrs.scm
* + + , , % - # , - 6 + 6 g nameg floatp C*R4 #+ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
)
C> " G ,) h ]4 5$ 4 5" 6 g num
g filenamef language/elisp/runtime/subrs.scm
0 1 1 2 1 g nameg integerp C-R4 #. h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
/
C> " G ' h ]4 56 g num
g filenamef language/elisp/runtime/subrs.scm
5 6
6
g nameg numberp C/R4 #0 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
4
C> " G ,) h0 ]4 5$ 4 5$
" " 6 g num
* g filenamef language/elisp/runtime/subrs.scm
9 : : ; : < * : * g nameg wholenump C1R4 #2 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
8
C> " G h ]
6 g num
g filenamef language/elisp/runtime/subrs.scm
? @
@
g nameg zerop C3R4 #4 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
>
C> " G h ] 6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scm
E F F g nameg = C5R4 #6 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
D
C> " G h ] 6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scm
I J
J J g nameg /= C7R4 #8 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
H
C> " G h ] 6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scm
M N N g nameg < C9R4 #: h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
L
C> " G h ] 6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scm
Q R R g nameg <= C;R4 #< h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
P
C> " G h ] 6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scm
U V V g nameg > C=R4 #> h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
T
C> " G h ] 6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scm
Y Z Z g nameg >= C?R4 #@ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
X
C> " G C h - 1 3 @ x g nums
g filenamef language/elisp/runtime/subrs.scm
] ^
g nameg max CAR4 #D h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
\
C> " G G h - 1 3 @ x g nums
g filenamef language/elisp/runtime/subrs.scm
a b
g nameg min CER4 #H h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
`
C> " G KIR4 #L h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
d
C> " G ,M h ]4 5$ 6 C g num
g filenamef language/elisp/runtime/subrs.scm
j k
k l g nameg float CNR4 #O h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
i
C> " G RPR4 #S h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
s
C> " G VTR4 #W h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
u
C> " G ZXR4 #[ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
w
C> " G ^\R4 #_ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
y
C> " G b`R4 #c h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
{
C> " G dieR4 #f h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scm
}
C> " G ijR4 #k h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G noR4 #p h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G stR4 #u h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G xyR4 #z h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g el
g filenamef language/elisp/runtime/subrs.scm
g nameg consp C{R4 #| h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g el
g filenamef language/elisp/runtime/subrs.scm
g nameg atomp C}R4 #~ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] $ " 6 g el
g filenamef language/elisp/runtime/subrs.scm
g nameg listp CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] $ " 6 g el
g filenamef language/elisp/runtime/subrs.scm
g nameg nlistp CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g el
g filenamef language/elisp/runtime/subrs.scm
g nameg null CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] ( C C g el
g filenamef language/elisp/runtime/subrs.scm
g nameg car CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] ( C C g el
g filenamef language/elisp/runtime/subrs.scm
g nameg cdr CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] $ CC g el
g filenamef language/elisp/runtime/subrs.scm
g nameg car-safe CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] $ CC g el
g filenamef language/elisp/runtime/subrs.scm
g nameg cdr-safe CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G hH ]
$ C" #( C
$ C " "
g n
A g lst A g i 5 g tail 5 g filenamef language/elisp/runtime/subrs.scm
#
& * - & 5 5 A g nameg nth CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h@ ]
$ C" "( C
$ C " " g n
? g lst ? g i 3 g tail 3 g filenamef language/elisp/runtime/subrs.scm
"
( + & 3 3 ? g nameg nthcdr CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G R4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G R4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G R4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g len
g obj
g filenamef language/elisp/runtime/subrs.scm
g nameg make-list CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G R4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G R4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G R4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G K h - 1 3 45 $ 6( C $ " $ " $ " $ C" W $ C" ! $ C " 4 545 "
$ $ "6" g from
g rest g t 5 L g to Y g sep Y g t b w g i g result g filenamef language/elisp/runtime/subrs.scm
" ( - 1 4 & 5 5 G . I P X Y b b t ' { 9 ( ; 3 9 3 3 - ' ! & + 5
g nameg number-sequence CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h( ] ( ( " " C g cell
# g val # g filenamef language/elisp/runtime/subrs.scm
# g nameg setcar CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h( ] ( ( " " C g cell
# g val # g filenamef language/elisp/runtime/subrs.scm
# g nameg setcdr CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g sym
g filenamef language/elisp/runtime/subrs.scm
g nameg symbol-value CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g sym
g filenamef language/elisp/runtime/subrs.scm
g nameg symbol-function CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
C> " G h ] 6 g sym
g value g filenamef language/elisp/runtime/subrs.scm
" # g nameg set CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
!
C> " G h ] 6 g sym
g value g filenamef language/elisp/runtime/subrs.scm
& ' g nameg fset CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
%
C> " G h 1 ] 445 5$ i445 5 $ 945$ 4> " G " 4> " G " 4> " G " C) g sym
g var " y g filenamef language/elisp/runtime/subrs.scm
* + + + + , , " " , " , ' . + . , . ' 1 . / 3 . ' 7 . 8 / = / B / O 0 g nameg
makunbound CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
)
C> " G h 2 ] 445 5$ i445 5 $ 945$ 4> " G " 4> " G " 4> " G " C* g sym
g var " y g filenamef language/elisp/runtime/subrs.scm
4 5 5 5 5 6 7 " 6 " 6 ' 9 + 9
, 9 ) 1 9 1 3 9 ) 7 9 8 : = : B : O ; g nameg fmakunbound CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
3
C> " G hX + ] 445 5$ <445 5 $ 45$ 45" " " 6 # g sym
U g var $ N g filenamef language/elisp/runtime/subrs.scm
? B B B A C C " $ C $ C ) E
- E . F 3 F 5 F 9 F
: G ? G A G U @ U g nameg boundp CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
>
C> " G hX , ] 445 5$ <445 5 $ 45$ 45" " " 6 $ g sym
U g var $ N g filenamef language/elisp/runtime/subrs.scm
K N N N M O O # $ O $ O ) Q - Q . R 3 R 5 R 9 R : S ? S A S U L U g nameg fboundp CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
J
C> " G hh N - 1 3 $
4 5" > $ 5 ( " $ 4 5" 4
5" @ F g func
e g args e g real-func [ e g filenamef language/elisp/runtime/subrs.scm
Z \ [ ] ^ $ [ * _ 2 ` % 4 ` 5 5 ` 9 _ : a B a 0 F a < H a M b Q b * U b [ [ e e e
g nameg apply CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
Y
C> " G h - 1 3 6 g func
g args g filenamef language/elisp/runtime/subrs.scm
h i
g nameg funcall CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
g
C> " G h ] 6 g tag
g value g filenamef language/elisp/runtime/subrs.scm
n o o o g nameg throw CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
m
C> " G h } ] $ CC u g x
g filenamef language/elisp/runtime/subrs.scm
t u g nameg not CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
s
C> " G h ] 6 g form
g filenamef language/elisp/runtime/subrs.scm
x
y y % y g nameg eval CR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
w
C> " G h ]4 > " G C g file
g filenamef language/elisp/runtime/subrs.scm
| } } } * } g nameg load CR # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scm
{
C6 s g m
( g filenamef language/elisp/runtime/subrs.scm
#
)
/
L 4
8
>
A D
H
L
P
I T
X
\
`
t d
i
D s
u
d w
y
{
}
5
U
'
!
#
$X
%
'
)n
)
*
+
,a
,
-}
.
2
4
5y
6
7
9= !
: %
< )
?E 3
Av >
C J
F Y
GZ g
H m
I s
K& w
L {
@ M
C6 PK ! _ ' language/elisp/runtime/function-slot.gonu [ GOOF----LE-8-2.0 ] 4 hx ] g guile g define-module* g language g elisp g runtime g
function-slot
g filenameS f (language/elisp/runtime/function-slot.scm
g
duplicatesS g last g importsS g subrs g macros g selectS g macro-lambda g lambda g macro-prog1 g prog1 g macro-prog2 g prog2 g
macro-when !g when " ! #g macro-unless $g unless %#$ &g
macro-cond 'g cond (&' )g macro-and *g and +)* ,g macro-or -g or .,- /g
macro-dotimes 0g dotimes 1/0 2g macro-dolist 3g dolist 423 5g macro-catch 6g catch 756 8g macro-unwind-protect 9g unwind-protect :89 ;g macro-pop <g pop =;< >g
macro-push ?g push @>? A "%(+.147:=@ BA Cg compile-tree-il DC Eg
compile-progn Fg progn GEF Hg
compile-if Ig if JHI Kg compile-defconst Lg defconst MKL Ng compile-defvar Og defvar PNO Qg compile-setq Rg setq SQR Tg compile-let Ug let VTU Wg compile-lexical-let Xg lexical-let YWX Zg compile-flet [g flet \Z[ ]g compile-let* ^g let* _]^ `g compile-lexical-let* ag lexical-let* b`a cg
compile-flet* dg flet* ecd fg compile-with-always-lexical gg with-always-lexical hfg ig compile-guile-ref jg guile-ref kij lg compile-guile-primitive mg guile-primitive nlm og
compile-while pg while qop rg compile-function sg function trs ug
compile-defun vg defun wuv xg compile-defmacro yg defmacro zxy {g compile-` |g ` }{| ~g
compile-quote g quote ~ GJMPSVY\_behknqtwz} D B g
re-exportsS g eq g equal g floatp g integerp g numberp g wholenump g zerop g = g /= g < g <= g > g >= g max g min g abs g float g 1+ g 1- g + g - g * g % g ffloor g fceiling g ftruncate g fround g consp g atomp g listp g nlistp g null g car g cdr g car-safe g cdr-safe g nth g nthcdr g length g cons g list g make-list g append g reverse g copy-tree g number-sequence g setcar g setcdr g symbol-value g symbol-function g set g fset g
makunbound g fmakunbound g boundp g fboundp g apply g funcall g throw g not g eval g load FILORUX[^adgjmpsvy| !$'*-0369<? ` g set-current-module C 5 h0 j ]4
5 4 > " G Cb g m
0 g filenamef (language/elisp/runtime/function-slot.scm
0
C6 PK ! SN language/value/spec.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g language g value g spec
g filenameS f language/value/spec.scm g importsS
g system g base
g exportsS g set-current-module g invalidate-compilation-cache! g
make-language g nameS g titleS f Values g readerS g printerS g write g for-humans?SC 5 h` p ]4
5 4 > " G 4i> " G 4i i 5
RC h g m
, g filenamef language/value/spec.scm
-
K \
^
C6 PK ! j' ' ' language/assembly/decompile-bytecode.gonu [ GOOF----LE-8-2.0& ] \ 4 hk ] g guile g define-module* g language g assembly g decompile-bytecode
g filenameS f (language/assembly/decompile-bytecode.scm g importsS
g system g vm g instruction
g base g pmatch
g srfi g srfi-4 g rnrs g bytevectors g objcode !
"g selectS #g
byte-order $# %!"$ & % 'g exportsS ( )g set-current-module *) +) ,g u8vector-length -g decode-load-program .g error /f tried to decode too many bytes 0f -bad bytecode: only decoded ~a out of ~a bytes 1g memq 2g br 3g br-if 4g br-if-not 5g br-if-eq 6g br-if-not-eq 7g
br-if-null 8g br-if-not-null 92345678 :g br-instruction? ;g br-if-nargs-ne <g br-if-nargs-lt =g br-if-nargs-gt >g br-if-nargs-lt/non-kw ?;<=> @g br-nargs-instruction? Ag
bytes->s24 Bf -error decoding program -- read too many bytes Cg load-program Dg map Eg reverse Fg reverse! Gg decode-bytecode Hg prompt Ig assv-ref Jg gensym Kf :L Lg mv-call Mg bind-optionals/shuffle-or-br Ng and=> Og opcode->instruction Pg instruction-length Qg
load-array Rg load-wide-string Sg make-bytevector Tg make-string Ug bytevector-u8-set! V U W U Xg string-set! Yg
integer->char Zg
utf32->string [g native-endiannessC 5hp ]4
&'(5 4+ > " G ,-./ h@ ]ML $ LM" ML $ " 45 $ MN" C g b
) = g filenamef (language/assembly/decompile-bytecode.scm
! ! # " ' " " ) " ) 1 # 4 # 6 # =
g nameg pop C.0 h@ & ]
4 5 H4 O 5 J$ DJ6 g x
9 g env 9 g opts 9 g i
9 g size
9 g ret 9 g filenamef (language/assembly/decompile-bytecode.scm
% % % &
) & / '
3 ( 9 (
9 g nameg decompile-bytecode CR19 h ] 6 g x
g filenamef (language/assembly/decompile-bytecode.scm
*
+
g nameg br-instruction? C:R1? h ] 6 g x
g filenamef (language/assembly/decompile-bytecode.scm
,
-
g nameg br-nargs-instruction? C@R h8 ]
$ C C g a
4 g b 4 g c 4 g x 4 g filenamef (language/assembly/decompile-bytecode.scm
/
0 0
0 0 1 1 1 $ 1 2 3
3 3 4 g nameg
bytes->s24 CAR.BCD h ] C { g x
g filenamef (language/assembly/decompile-bytecode.scm
N " N 4 N < N .
CE-FG./ h@ ]ML $ 4L5 " ML $ " 45 $ MN" C g b
) = g filenamef (language/assembly/decompile-bytecode.scm
D E E E F E # G ' G " ) G ) E 1 H 4 H 6 H =
g nameg sub-pop CHAIJKLM@: h , 3 %4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5
H
H " <J $
6J $ 244J 55
$ " 4 54
5C4
O 5 " " (" " $ & $ $ $ $ p ( U J 4 5 4
J 5 $ " 45 J K
"
"
"
"
"
"
"
"$ & $ $ $ ~ $ i ( UJ 4 5 4
J 5 $ " 45 J K
""?";"7"3"/"+"'$ < & &$ $ $ $ $ $ $ $ $ s " !"( _J 4 !5 #4
J #5 $$$ $" 45 $#$J K $ $ $ #
"""" """""""""$ $ $ $ $ $ z ( f45$ WJ 4 5 4
J 5 $ " 45 J K
"""""""""$ $ $ $ v ( b45$ SJ 4 5 4
J 5 $ " 45 J K
"":"6"2"."*"&
" g pop
g a g b g c g d g e ' g f . g g 5 g h < g len R g metalen
h g labels k g i n g out
t g exp g vx g vy g vx g vy g vx g vy g vx * g vy * g vx ; g vy ; g where W g t b g l w g vx g vy g vx
g vy
g vx g vy g vx / g vy / g vx @ g vy @ g where \ g t g g l | g vx g vy g vx g vy g vx g vy g vx g vy g vx g vy g vx % g vy % g vx 6 g vy 6 g vx G g vy G g vx X g vy X g vx ! i g vy " i g where # g t $ g l $ g vx g vy g vx g vy g vx 1 g vy 1 g vx B g vy B g vx S g vy S g vx d g vy d g where g t g l g vx g vy g vx g vy g vx g vy g vx 0 g vy 0 g where U g t ` g l u Zg filenamef (language/assembly/decompile-bytecode.scm
6
7 7 7 7 7 7 7 * 7 # 8 ' 7 * 8 . 7 1 8 5 7 8 8 * < 7 E 9 F 9 K 9 L 9 Q 9 ( R 9 R 7 [ : \ : a : ! b : g : , h : h 7 k ; k 7 t J y K
} K L L
M
K N
N O " N Q ! Q Q 4 R N
T T
U G g L > W > W > Z ? b ? q A u A w A w A ~ B B g g g i i i i i i i i i i i i i i U L e Q > \ > \ > _ ? g ? v A z A | A | A B B e e e U u ^ > > > ? ? A A A A B B ^ ^ ^ U o X 9 y U > > > ? ? A A A A B B Y Y Y U ; V 1 E U J > U > U > X ? ` ? o A s A u A u A | B B W W W U J J J g nameg decode-load-program C-RNOC-PQRSTWXY h ] 456 g str
g pos g value g filenamef (language/assembly/decompile-bytecode.scm
} ~ 2 ~ CZ[F h0 / ]14 5 & L 645
$ & " $ " & " $ "
4L 5 4L 5 4L 5 45 " K$ & 4 4 5 5" C44L 5 > " G "
"" !
$
64L 5 "45 " ' g opcode
, g inst , g
make-sequence D g
sequence-set! d g a k g b r g c y g len g seq g i g n g out g filenamef (language/assembly/decompile-bytecode.scm
m n n p o
q s " s & o
. w < w D v N { \ { d v g % k n / r u 9 y + v v . $ 7 $ . & $ ; , 7 , C h ]4 5 O 6 g pop
g filenamef (language/assembly/decompile-bytecode.scm
k
l l g nameg decode-bytecode CGRC g m
, g filenamef (language/assembly/decompile-bytecode.scm
*
W ,
/
P 6
k k
m
C6 PK ! l& l& % language/assembly/compile-bytecode.gonu [ GOOF----LE-8-2.0T& ] V 4 h ] g guile g define-module* g language g assembly g compile-bytecode
g filenameS f &language/assembly/compile-bytecode.scm g importsS
g system g base g pmatch
g target
g vm g instruction
g rnrs g bytevectors g srfi g srfi-1 ! "g selectS #g fold $# %!"$ & % 'g exportsS ( )g set-current-module *) +) ,g assq-ref -g error .f jump too far forward /f jump too far backwards 0g big 1g instruction->opcode 2g instruction-length 3f $unhanded variable-length instruction 4g length 5g for-each 6f !bad number of args to instruction 7g prompt 8g mv-call 9g bind-optionals/shuffle-or-br :g br-if-nargs-gt ;g br-if-nargs-lt <g br-if-nargs-ne =g br-if-not-null >g
br-if-null ?g br-if-not-eq @g br-if-eq Ag br-if-not Bg br-if Cg br Dg
load-array Eg bytevector-length Fg bytevector-copy! Gg load-symbol Hg
string-length Ig
char->integer Jg
string-ref Kg load-wide-string Lg
string->utf32 Mg load-string Ng load-number Og make-char32 Pg load-program Qg byte-length Rg make-bytevector Sf failed to fill bytevector Tg target-endianness Uf bad assemblyC 5 hp r ]4
&'(5 4+ > " G ,-./0 h i ] LM LC a g filenamef &language/assembly/compile-bytecode.scm
\ ]
]
C12345 h s ]LM M N Ck g x
g filenamef &language/assembly/compile-bytecode.scm
' C6789:;<=>?@ABCDEFGHIJKLMNOPQ# h( ]
M 4L L> " G M C g asm
& g address & g start & g filenamef &language/assembly/compile-bytecode.scm
n o p $ q $ % q & C + hH
]H" v454J5 $ 6
$ 6M
LMM LMM LM M M NCM LO K 4545 $ LMMN" " " W" " " 9" ~" " " I" " " e" " " ?" " #" " " 7
$ 64
5$ LLO 6
6 $ ^
& H
$ =
$ (
( LM MN
"h"p"l"h"d"` $ ^
& H
$ =
$ (
( LM MN
"""""" $
&
$
$
$ $ $ $ y $ d ( PLM MNLM
MNLMMNLMMNLMMNLMMN """"""""""" $
& i
$ ^
$ I
$ 4 ( LM MNLM
MN "k"g"c"_"["W"S $
& i
$ ^
$ I
$ 4 ( LM MNLM
MN """"""" $
& i
$ ^
$ I
$ 4 ( LM MNLM
MN "W"K"G"C"?";"7 $ =
& '
$
( """"" $ =
& '
$
( """"" $ =
& '
$
( "w"_"["W"S $ =
& '
$
( "/""" " $ =
& '
$
( """"" $ =
& '
$
( ""{"w"s"o $ =
& '
$
( "W"/"+"'"# $
& x
$ m
( Y4 5
LM
LM
LM
M N4
LM
> " G M
NC"""" $
&
$
( w4 5
LM
LM
LM
M N" ,
$ LM4 4! 55 ""
"M
NC"""" $
"&
$ x
( d4# L5
4
5 LM LM LM M N4
LM> " G MNC"/"+"'"# $
$&
$
( w4 5
LM
LM
LM
M N" ,
$ LM4 4! 55 ""
"M
NC"t"p"l"h $
%&
$
( w4 5
LM
LM
LM
M N" ,
$ LM4 4! 55 ""
"M
NC"""" $ G
&& 1
$ &
( LM M NC"c"_"["W $
'&
$
$
$ y LM
LM N$ 4(5"
LMLM N 4)*L LO
> " G $
"C"""""
g asm
E g labels E g address E g emit-opcode? E g get-addr E g label g offset g start g inst E g args E g opcode E g len E g vx Y g vy
Y g vx r g vy r g vx
g vy g vx g vy
g vx g vy g vx
g vy g vx + ( g vy
+ ( g vx D g vy D g vx
U g vy U g vx f g vy f g vx w g vy w g vx g vy g vx g vy g vx g vy g vx 9 g vy
9 g vx R g vy R g vx
c g vy c g vx t g vy t g vx < g vy
< g vx 4 g vy 4 g vx
0 g vy 0 g vx , g vy , g vx M g vy
M g vx f g vy f g vx
w g vy w g vx g vy g vx g vy
g vx g vy g vx V g vy
V g vx 8 N g vy 8 N g vx g g vy
g g vx g vy g vx g vy
g vx g vy g vx . g vy
. g vx & g vy & g vx ? v g vy
? v g vx X n g vy X n g vx g vy
g vx g vy g vx W g vy
W g vx O g vy O g len
K g vx h g vy
h g vx g vy g len
g i g vx g vy
g vx 8 g vy 8 g x
K g len T g vx i g vy
i g vx a g vy a g len
] g i ! M g vx z
g vy
z
g vx
g vy
g len
g i
g vx
1
r g vy
1
r g vx
J
j g vy
J
j g vx
A g vy
A g vx
9 g vy
9 g vx
5 g vy
5 g vx
1 g vy
1 g x
g filenamef &language/assembly/compile-bytecode.scm
U ^
_ _ 6 _ 3 _ _
( ` ) ` - ` 1 ` 1 5 ` * @ a A a E ` I a 4 M a - T b [
d e d f g f
h i j ! % & / 3 B F L L j ) C j
. j j + ; K j + ; ( K , j + ; K j # j J N j ! j j " & j j n j j O j ~ " j C } ' j | " a j { "
j
\ z
j j
l
m
m *
m &
m
n t ! y ( / y 5 j f E g nameg write-bytecode CRE-SPQTU
h - 1 3 " d
HHO Q 4 5K4
> " G J45$ DJ456 $ & t$ e $ M $ 4 4 $ 45"
545 "' 6 6 6 6 6 g assembly
g env g opts g bv
q g target-endianness
q g pos q g u32-bv q g write-bytecode q g vx ~ g vy ~ g vy g vx g vy g vx g filenamef &language/assembly/compile-bytecode.scm
' ( - , 6 ; B M T
X `
d i q
t % ( 0 , %
#
g nameg compile-bytecode CRC j g m
, g filenamef &language/assembly/compile-bytecode.scm
l
n
C6 PK ! ]Ư language/assembly/spec.gonu [ GOOF----LE-8-2.0 ] + 4 h ] g guile g define-module* g language g assembly g spec
g filenameS f language/assembly/spec.scm g importsS
g system g base
g compile-bytecode g decompile-bytecode g exportsS g set-current-module g invalidate-compilation-cache! g
make-language g nameS g titleS !f 'Guile Virtual Machine Assembly Language "g readerS #g read $g printerS %g write &g parserS 'g compilersS (g bytecode )g decompilersS *g for-humans?SC 5 h ]4
5 4 > " G 4 i> " G 4 i !"# h y ] 6q g port
g env g filenamef language/assembly/spec.scm
# C$%i&#i'(i )(i *5RC g m
, g filenamef language/assembly/spec.scm
-
K
C6 PK ! B.'G+ + language/assembly/disassemble.gonu [ GOOF----LE-8-2.0+ ] 4 h ] g guile g define-module* g language g assembly g disassemble
g filenameS f !language/assembly/disassemble.scm g importsS
g ice-9 g format
g srfi g srfi-1 g system g vm g instruction g program g base g pmatch ! "! #g compile $ # %$ & "% 'g exportsS ( )g set-current-module *) +) ,f Disassembly of ~A:
-g disassemble-load-program .g decompile /g fromS 0g value 1g toS 2g load-program 3g assq-ref 4g objects 5g free-vars 6g meta 7g blocs 8g sources 9g newline :g for-each ;f Embedded program ~A:
<g reverse! =g byte-length >g nop ?g
print-info @g code-annotation Ag and=> Bg assq Cg source->string Dg gensym Ef Fg disassemble-free-vars Gg disassemble-meta Hg program? Ig display Jf )----------------------------------------
Kg vector->list Lg error Mf bad load-program form Nf Free variables:
Og fold Pg make-syntax-transformer QP RP Sg unless Tg macro Ug $sc-dispatch VU WU Xg _ Yg any ZXY [g
syntax->datum \[ ][ ^g
datum->syntax _^ `^ ag if bg not cg begin dg syntax-violation ed fd gf -source expression failed to match any pattern hg name ih jg *uninteresting-props* kg filter lg memq mf
Properties:
nf ~a:~a:~a og source:file pf (unknown file) qg source:line-for-user rg
source:column sg
make-int16 tg assembly-unpack ug list vg vector wf
~a element~:p xg br yg br-if zg br-if-eq {g br-if-not |g br-if-not-eq }g br-if-not-null ~g
br-if-null f -> ~A g br-if-nargs-ne g br-if-nargs-lt g br-if-nargs-gt g bind-optionals/shuffle-or-br g last-pair g
object-ref f ~s g local-ref g local-boxed-ref g local-set g local-boxed-set g
binding:start g binding:end f `~a'~@[ (arg)~] g binding:name g
binding:index g list-ref g assert-nargs-ee/locals g assert-nargs-ge/locals f ~a arg~:p, ~a local~:p g free-ref g free-boxed-ref g free-boxed-set f (closure variable) g toplevel-ref g toplevel-set f `~s' g variable? g mv-call f MV -> ~A g prompt f H -> ~A g assembly->object f ,~4@S ~32S~@[;; ~1{~@?~}~]~@[~61t at ~a~]
C 5 h ]4
&'(5 4+ > " G ,-./01 h l ] L 6d g filenamef !language/assembly/disassemble.scm
!
! % ! 1 !
C h0 ]4 > " G 4 O > 6< g x
) g filenamef !language/assembly/disassemble.scm
) g nameg disassemble CR23456789:;- h ]4 > " G 6 g sym+asm
g filenamef !language/assembly/disassemble.scm
1 2 2 2 4 2 3 ( 3 6 3 C<=>?@ABCDEFGHIJ h( ]4 5$ 4> " G 6C g x
' g filenamef !language/assembly/disassemble.scm
S T
T U U " U % V ' CKLM hP ] $ 9 & $ $ $ $
45" $
45" $
45" $
45" $
45"
" ( -4> " G 4
4 5> " G " 4 5
" I$
& x(
4 5
"|4
4 54 $
4 5" 5> " G
4 5
"#4
4 54 $
4 5" 5> " G
4 5
" 4
4 54 $
4 5" 5> " G
4 5
"k$ ^ & F45 4
> " G
4 5
" "U "N
" $ 4 > " G "
$ 4
> " G " $ 456C 6 6 6 6 6 g asm
J g env J g vx B g vy B g vx ( 2 g vy ( 2 g vy 6 * g vy F " g objs " g free-vars " g meta
" g blocs " g srcs " g pos
g code g programs g asm g len g end g vx g vy g vx ] g sym r g filenamef !language/assembly/disassemble.scm
$
% R ' S ' Y ' ) [ ' f ( g ( m ( - o ( z ) { ) ) ) ) * * * ) * + + + ) + ' , - / 0 4 0 6 6 7 6 8 6
9
, @ 3 @ 6 @ . B @ C B J E [ G c G # d G - u G z B H H H . H B E G G # G - G B H H H . H B E G G # G - - G 2 B = H D H G H . S H S 9
l ; p ; # r ; r ; u < { < " < = = = 0 > = 9
, , . , J J K L M Q W W R & Y * Y . Y 2 Y 6 Y : Y > Y B Y F Y J Y n J g nameg disassemble-load-program C-RINO? h ]4 > " G C g free-var
g i g filenamef !language/assembly/disassemble.scm
] ^
_
C h ]4> " G
6 g free-vars
g filenamef !language/assembly/disassemble.scm
[
\ \ \ ] g nameg disassemble-free-vars CFR4RSTWZ]`abc h - 1 3 C y g test
g body g filenamef !language/assembly/disassemble.scm
c
d
C h u ] 4 5 L 4?6m g args
g v g filenamef !language/assembly/disassemble.scm c
Cfg h( s ] 4 5 $ O @ 6 k g y
' g tmp ' g filenamef !language/assembly/disassemble.scm
c
' C5SRijRklj h ]4 5C | g x
g filenamef !language/assembly/disassemble.scm
i j j $ j
j CIm:? h l ] 6 d g x
g filenamef !language/assembly/disassemble.scm
n n C9 hH ] 4 5 ( C4> " G 4> " G 6 g meta
B g props B g filenamef !language/assembly/disassemble.scm
h
i
k i i l m m " m + n B o B g nameg disassemble-meta CGRnopqr h8 ] 4 5 $ " 4 54 56 g src
1 g t ! g filenamef !language/assembly/disassemble.scm
q
r
r r r . " s
) s % 1 r 1 g nameg source->string CCR h ] C g byte1
g byte2 g filenamef !language/assembly/disassemble.scm
u
v v g nameg
make-int16 CsRtuvwsxyz{|}~3A h y ] C q g obj
g filenamef !language/assembly/disassemble.scm
"
C 2 h O ].45 $ " $
4? C$ " K$ " =$ " / $ " !
$ " $ " $
45 C$ " $ " $
45 C$
4455 C$ $ CC$ " !$ " $ " $ s$ k" W $ N
" "4
5 $ *4 5 $ 4
54
5 C""C4 5 "C $ " !$ " C#$ " $$ " %$ & C'$ " ($ ?$ 7 " ) C4* 5$ $ C""C+$ ,45 C-$ .45 C/40516 G g end-addr
g code g objs g nargs g blocs g labels g code g inst g args g bindings U g b
_ g v 5 f g filenamef !language/assembly/disassemble.scm
x
y y z y { y | . ~
/ ~ 8 ~ B |
& |
& |
+ & |
- ! | Q U X \ _ _ h n n o ! s 0 u ! x | } " / " 3 0 / |
* % |
| / 4 & 5 5 = B C D N Q % U W Z ] q | s
t { ) ~ |
( j g nameg code-annotation C@R h ] 6 g addr
g info g extra g src g filenamef !language/assembly/disassemble.scm
g nameg
print-info C?RC g m
, g filenamef !language/assembly/disassemble.scm
$
x [
f f
h
A q
u
x
C6 PK ! b \
% language/brainfuck/compile-tree-il.gonu [ GOOF----LE-8-2.0
] X 4 h ] g guile g define-module* g language g brainfuck g compile-tree-il
g filenameS f &language/brainfuck/compile-tree-il.scm g importsS
g system g base g pmatch
g tree-il g exportsS g set-current-module g tape-size g
parse-tree-il g let g pointer g tape !g const "!
#g apply $g primitive %g make-vector &$% '" (g compile-body )g void *) +g begin ,g reverse -g <bf-loop> .g gensym /g letrec 0g iterate 10 2g lambda 3g lambda-case 4 5g if 6g = 7$6 8g
vector-ref 9$8 :g lexical ;: <: =#9;< >#7=" ? @g error Af unknown brainfuck instruction Bg <bf-read> Cg vector-set! D$C Eg
char->integer F$E Gg read-char H$G I#H J#FI K#D;<J Lg
<bf-print> Mg
write-char N$M Og
integer->char P$O Q#P= R#NQ Sg <bf-increment> Tg + U$T Vg <bf-move> Wg set!C 5 h ]4
5 4 > " G u0R "#&!'( h8 ]4 4
5 5D g exp
2 g env 2 g opts 2 g filenamef &language/brainfuck/compile-tree-il.scm
[
] ^ ! a * ^ , ] 2 \ 2 g nameg compile-tree-il CR*+,-./12345>(#:?@ABKLRSD;<U=!VW h( ]A" ( ( C( C45C " " " " $ & f45
4
5 "G66$ 0 & ( ""<"8"4$ 0 & ( """"$ b & L$ A ( - "b""""$ ^ & H$ = ( ) ""#" "" " g instructions
( g in g out g v . g vx M g vy M g iterate ^ g x g vx g vy g vx C g vy C g vx T g vy T g vx m g vy m g x g vx g vy g vx g vy g x
g filenamef &language/brainfuck/compile-tree-il.scm
h
i l o p q o q " r # r * r . u . u Z ^ b y + k
k k 5 5 u k
k k u . k
0 3 k ; k ? u y k
k k u z z k
k
k u i i " ( i 7 ( g nameg compile-body C(RC y g m
, g filenamef &language/brainfuck/compile-tree-il.scm
2 -
l [
h
C6 PK ! $ language/brainfuck/compile-scheme.gonu [ GOOF----LE-8-2.0 ] > 4 h ] g guile g define-module* g language g brainfuck g compile-scheme
g filenameS f %language/brainfuck/compile-scheme.scm g exportsS
g set-current-module g tape-size g let g pointer
g tape g make-vector
g append g compile-body g
write-char
g reverse g compile-instruction !g <bf-move> "g set! #g + $g <bf-increment> %g vector-set! &g
vector-ref '& (g
<bf-print> )g
integer->char *)' + * ,g <bf-read> -g
char->integer .g read-char /. 0-/ 1%0 2g <bf-loop> 3g iterate 4g if 5g not 6g = 76'
857 9g begin :3 ;: <g error =f unknown brainfuck instruction C 5 h( ]4
5 4 > " G u0R
h0 ] 44 5 5D g exp
- g env - g opts - g filenamef %language/brainfuck/compile-scheme.scm
5
7 9 9 ! 9 # 7 - 6 - g nameg compile-scheme CR h8 - ]" &( 645 " " % g instructions
7 g cur , g result , g compiled , g filenamef %language/brainfuck/compile-scheme.scm
D
E G H I I + I I J $ J , J , E / F 7 E 7 g nameg compile-body CR!"#$%'(+,123489;<= h s ] $ C$ C $
C $ C
$ "44 55 C6 k g ins
g key g dir ' g inc 4 I g filenamef %language/brainfuck/compile-scheme.scm
P
Q Q V V W 0 Q 3 \ 4 \ 8 ] R Q T c ^ Q ` i j Q l t y w ~ w w t z z 2 z
g nameg compile-instruction C RC g m
( g filenamef %language/brainfuck/compile-scheme.scm
. $
Z 5
D
& P
(
C6 PK ! tYK language/brainfuck/parse.gonu [ GOOF----LE-8-2.0 ] # 4 h# ] g guile g define-module* g language g brainfuck g parse
g filenameS f language/brainfuck/parse.scm g exportsS
g read-brainfuck
g set-current-module g <bf-nop> g reverse-without-nops g read-char g eof-object? g process-input-char g <bf-move> g <bf-increment> g
<bf-print> g <bf-read> !g <bf-loop> " C 5h x ]4
5 4 > " G hH 9 ]!" 7( C & " " "1 g lst
H g cur = g result = g head = g tail = g filenamef language/brainfuck/parse.scm
*
+ - / 0 / 1 1 " 1 . 2
5 3 = 3
= + @ , H + H g nameg reverse-without-nops CR hX 9 ]" J4 5 45$ 45 ( CC]$ 64 5 " " 1 g p
W g parsed P g chr
P g parsed ! / g filenamef language/brainfuck/parse.scm
>
? @
@ B A C ! C ) D
4 G 8 A > H ? J J J P J P ? Q ? W ? W g nameg read-brainfuck C
R !
"
hh ] >$ C <$ C +$ C -$ C .$ C ,$ C [$ 45C C g chr
a g p a g filenamef language/brainfuck/parse.scm
U
V
W V X # V % Y / V 1 Z ; V = [ G V I \ S V U ] V ] ] ] ` ^
a g nameg process-input-char CRC p g m
( g filenamef language/brainfuck/parse.scm
*
l >
U
C6 PK ! q language/brainfuck/spec.gonu [ GOOF----LE-8-2.0y ] , 4 h ] g guile g define-module* g language g brainfuck g spec
g filenameS f language/brainfuck/spec.scm g importsS
g compile-tree-il
g compile-scheme g parse g system g base g exportsS g set-current-module g invalidate-compilation-cache! !g
make-language "g nameS #g titleS $f Brainfuck %g readerS &g read-brainfuck 'g compilersS (g tree-il )g scheme *g printerS +g writeC 5h ]4
5 4 > " G 4 i> " G 4!i"#$%& h z ] 6r g port
g env g filenamef language/brainfuck/spec.scm
& & # C'(
i)i *+i5
RC w g m
, g filenamef language/brainfuck/spec.scm
- $
K % ' $
C6 PK ! H& & language/assembly.gonu [ GOOF----LE-8-2.0& ] g 4 h ] g guile g define-module* g language g assembly g filenameS
f language/assembly.scm g importsS g rnrs
g bytevectors
g system g base g pmatch g vm g instruction g srfi g srfi-1 g selectS g fold !g exportsS "g byte-length #g addr+ $g
align-program %g
align-code &g align-block 'g
assembly-pack (g assembly-unpack )g object->assembly *g assembly->object +"#$%&'()* ,g set-current-module -, ., /g *program-header-len* 0g *len-len* 1g load-program 2g error 3f unknown instruction 4g
load-array 5g bytevector-length 6g load-symbol 7g
string-length 8g load-wide-string 9g load-string :g load-number ;g instruction-length <g *program-alignment* =g make-list >g nop ?> @g code-alignment Ag append BA CA Dg make-int8 ED
Fg make-int8:0 GEF HD Ig make-int8:1 JHI KGJ Lg *abbreviations* Mg map Ng *expansions* Og assoc-ref Pg make-true QP Rg
make-false SR Tg make-nil UT Vg make-eol WV Xg char? Yg
char->integer Zg
make-char8 [g make-char32 \g integer? ]g exact? ^g
make-int64 _g bytevector->u8-list `g make-bytevector ag big bg make-uint64 cg
make-int16 dg string->symbol eg
integer->char fg u8-list->bytevectorC 5 h ]4
!+5 4. > " G /R 0R1/"234056789:; hP ]1" " " z" '" " $ ~ & d$ U $ = $ $ $ 45"
C 6 6 6 6
C $ A & +$ ( 45C"9"5"1"- $ A & +$ ( 4
5C"""" $ D & .$ # ( 4
5C"""" $ A & +$ ( 4
5C"F"B">": $ A
& +$ ( 4
5C"""" $ # 45
$ 45C"" g assembly
N g vx ' g vy ' g vy = g vx P g vy P g vx ^ g vx g vy g vx g vy g vx 5 g vy 5 g vx - g vy - g vx F g vy F g vx _ | g vy _ | g vx g vy g vx g vy g vx g vy g vx g vy g vx * J g filenamef language/assembly.scm
%
& g 4 p 4 # q 4 0 x 4 , ~ 4 7 7
7 7
7 7
7 7
& 2 2 2 & 0 ! 0 ( 0 - & l . o . v . w . | & , , , & * * * & 1 ' 9 ' = & > (
E ( J & , N g nameg byte-length C"R <R " h y ]4 5C q g x
g len
g filenamef language/assembly.scm
= = =
C h ] 6 ~ g addr
g code g filenamef language/assembly.scm
<
= g nameg addr+ C#R=? h ] 6 g addr
g alignment g
header-len g filenamef language/assembly.scm
A
C C B B
E
B g nameg code-alignment C@R h z ]C r g addr
g filenamef language/assembly.scm
G
H g nameg align-block C&RC@ h ]45 6 g code
g addr g alignment g
header-len g filenamef language/assembly.scm
J
K K g nameg
align-code C%R%< h ] 6 g prog
g addr
g filenamef language/assembly.scm
N
O
g nameg
align-program C$RKLR4Mi h p ] C h g x
g filenamef language/assembly.scm
Z Z Z ! Z
CLi5NROL h ] 4 5 $ C C g code
g t g filenamef language/assembly.scm
\
] ] g nameg
assembly-pack C'RON h ] 4 5 $ C C g code
g t g filenamef language/assembly.scm
`
a a g nameg assembly-unpack C(RQSUWXYZ[\]^_`abc'D h ] & C & C & C ( C" 64 5$ )4 5 $
4 5 C4 5 CC4 5$ #4
5$ " O
$ " $ 4 4
5
5CC" ?
$ 3 $ 4 4
5
5C"r"n" P $ B $ .
$ " C"q"m $ $ 6"""" g x
g b g bv g bv g n G [ g filenamef language/assembly.scm
i
j j j k j l & j ( m . 8 j 9 C G I J S V W ` c j d n n j o n y n y y o z z { * { | > | " z z o t o t u u v + v ! w ? w # u u o q o ) q # - q 1 r 5 r A r % G r K s Q s W s 2 Z s c o h o l o r o ! v o z p p , p p G g nameg object->assembly C)R6d9[eZ^fabcDVTRP h < ]" " " n" =" " a" m" y" /" " > $ 5 & !$ ( 6CCCC $ 8 & "$ ( C"""" $ & $ z $ e $ P $ ;
( ' 6""""""" $ ; & %$ ( 6"""" $ & $ $ $ $
$ p
$ [
$ F $ 1 ( 4
5
C""""""""""" $
& $ $ $ $
$ p
$ [
$ F $ 1 ( 4
5
C""""""""""" $ u & _$ T $ ? ( + $ C C"/"+"'"#" $ I & 3$ ( ( $ C C"""" $ "
& ( C""" $ " & ( C"m"i"e $ " & ( C"<"8"4 $ " & ( C" "" 4 g code
g vx ; j g vy ; j g vx T f g vy T f g vx y g vy y g vx g vy g vx Q g vy Q g vx I g vy I g vx E g vy E g vx A g vy A g vx = g vy
= g vx b g vy b g vx { g vy { g vx g vy g vx g vy g vx { g vy { g vx w g vy w g vx s g vy
s g vx o g vy o g vx
k g vy k g vx ' g g vy ' g g vx 8 c g vy 8 c g vx w g vy w g vx o g vy o g vx k g vy k g vx g g vy g g vx c g vy
c g vx _ g vy _ g vx
[ g vy [ g vx W g vy W g vx ( S g vy ( S g vx g vy g vx g vy g vx g vy g n g vx K g vy K g vx ! C g vy ! C g vx \ x g vy \ x g vx g vy g vx g vy g vx g vy Ng filenamef language/assembly.scm
d l , - 3 4 9 = C X Z ] ^ c 3 H J M N S 1 5 > C o t ' g nameg assembly->object C*RC g m
, g filenamef language/assembly.scm
. 1
6 "
w %
| :
<
A
] G
M J
N
V U
Z Y
m \
7 `
i
C6 PK ! b(J
J
language/objcode/spec.gonu [ GOOF----LE-8-2.02
] D 4 h ] g guile g define-module* g language g objcode g spec
g filenameS f language/objcode/spec.scm g importsS
g system g base
g vm
g program
g exportsS g set-current-module g make-program g current-module g save-module-excursion g objcode->value !g map "g cdr #g sort! $g assv-ref %g
binding:index &g append! 'g collapse-locals (g program? )g program-objects *g program-meta +g program-free-variables ,g program-bindings -g program-sources .g program-objcode /g objects 0g meta 1g free-vars 2g blocs 3g sources 4g objcode? 5g error 6f /Object for disassembly not a program or objcode 7g decompile-value 8g invalidate-compilation-cache! 9g
make-language :g nameS ;g titleS <f Guile Object Code =g readerS >g printerS ?g
write-objcode @g compilersS Ag value Bg decompilersS Cg for-humans?SC 5 h ]4
5 4 > " G h d ] 4L> " G 4L 5 LLD \ g filenamef language/objcode/spec.scm
! " "
C h0 ] 4 5 45 & 45 DO 6 g x
0 g e 0 g opts 0 g thunk 0 g filenamef language/objcode/spec.scm
# 0 0 g nameg objcode->value C R!"# h ] C { g x
g y
g filenamef language/objcode/spec.scm
, , ) , 1 , &
C$%& h r ]!" n( 456 4455 $ $4 > " G "45 " " j g locs
g ret t g locs t g b t g t . t g filenamef language/objcode/spec.scm
(
) * + + - - ! / & / . / . .
7 1 @ 1 # E 1 R 2 Z 2 [ 4 f 4 ) i 4 l 5 t 4 t ) u ) ) g nameg collapse-locals C'R()*+,-'./0123456 h ]34 5$ t4 54 54 54 54 5 $ 45" 4 5
$ 45 "
D4 5$ D 6 g x
g env g opts g objs 0 g meta 0 g free-vars 0 g binds 0 g srcs 0 g blocs L g filenamef language/objcode/spec.scm
7
9
8 : ; < # = * > 0 : @ ? A ? L ? O @ W A b B c B ( m A @ F 8 G I I g nameg decompile-value C7R48i> " G 49i:;<=>?i@A i BA7i C5RC g m
, g filenamef language/objcode/spec.scm
(
@ 7
A K
_ L l O x P K
C6 PK ! BƴS S ! language/glil/compile-assembly.gonu [ GOOF----LE-8-2.0; ]L 4 h ] g guile g define-module* g language g glil g compile-assembly
g filenameS f "language/glil/compile-assembly.scm g importsS
g system g base g syntax
g pmatch
g assembly g vm g instruction
g program
g selectS !g make-binding "! # " $g ice-9 %g receive &$% '& (g vlist )$( *) +g srfi ,g srfi-1 -+, .g fold /. 0- / 1g rnrs 2g bytevectors 312 43 5 #'*04
6g exportsS 7 8g set-current-module 98 :8 ;g vlist-ref <g vlist-length =g vhash-fold-right2 >g fold2 ?g
vector-length @g vector-fold2 Ag make-record-type Bf <variable-cache-cell> Cg key DC Eg <variable-cache-cell> Fg make-variable-cache-cell Gg record-predicate Hg variable-cache-cell? Ig make-procedure-with-setter Jg record-accessor Kg record-modifier Lg variable-cache-cell-key Mg reverse! Ng assq-ref Og filename Pg line Qg column Rg limn-sources Sg append TS US Vg dump-object Wg return XW YX Zg load-program [g addr+ \g make-meta ]g object->assembly ^g
immediate? _g last-pair `g scheme-list? ag vhash-assoc bg number? cg string? dg keyword? eg
vhash-cons fg array? gg error hf )build-constant-store: unrecognized object ig array-shape jg vector->list kg <glil-program> lg glil-program-body mg glil-program-meta ng <glil-const> og glil-const-obj pg <glil-kw-prelude> qg glil-kw-prelude-kw rg <glil-toplevel> sg glil-toplevel-name tg glil-toplevel-op ug
<glil-module> vg glil-module-mod wg glil-module-name xg glil-module-public? yg glil-module-op zg
vlist-null {g build-constant-store |f unhandled record }g build-object-table ~g make-open-binding g make-closed-binding g map f unknown binding type g open-binding f broken bindings g
close-binding g cdr g stable-sort g reverse g close-all-bindings g
open-arity f bad arities g close-arity g begin-arity g compile-program g byte-length g vlist-null? g dump-constants g
align-program g tail-call
g make-list g nop g glil->assembly g
make-false g
object-ref g long-object-ref f vcache cell key not in table g
glil-program? g compile-objtable f unrecognized constant g vector g <glil-std-prelude> g glil-std-prelude-nreq g glil-std-prelude-nlocs g glil-std-prelude-else-label g br-if-nargs-ne g assert-nargs-ee g reserve-locals g assert-nargs-ee/locals g <glil-opt-prelude> g glil-opt-prelude-nreq g glil-opt-prelude-nopt g glil-opt-prelude-rest g glil-opt-prelude-nlocs g glil-opt-prelude-else-label g br-if-nargs-lt g assert-nargs-ge g bind-optionals g push-rest g br-if-nargs-gt g glil-kw-prelude-nreq g glil-kw-prelude-nopt g glil-kw-prelude-rest g !glil-kw-prelude-allow-other-keys? g glil-kw-prelude-nlocs g glil-kw-prelude-else-label g and=> f kw not in objtable g max g 1+ g bind-optionals/shuffle g bind-optionals/shuffle-or-br g bind-kwargs g bind-rest g <glil-bind> g glil-bind-vars g <glil-mv-bind> g glil-mv-bind-vars g glil-mv-bind-rest g integer? g truncate-values g length g
<glil-unbind> g
<glil-source> g glil-source-props g <glil-void> g void f const not in table g <glil-lexical> g glil-lexical-local? g glil-lexical-boxed? g glil-lexical-op g glil-lexical-index g ref g local-boxed-ref g local-ref g set g local-boxed-set g local-set g box g empty-box g fix g fix-closure g bound? g variable-bound? g local-bound? f what g long-local-ref g variable-ref g variable-set g long-local-set g
make-variable g long-local-bound? g free-boxed-ref g free-ref g free-boxed-set f what. g toplevel-ref g toplevel-set g long-toplevel-ref g long-toplevel-set f toplevel name not in objtable g link-now g define f unknown toplevel var kind f module vcache not in objtable f unknown module var kind g <glil-label> g glil-label-label g align-block
g
<glil-branch> g glil-branch-inst g glil-branch-label
g <glil-call> g glil-call-inst g glil-call-nargs g instruction? f Unknown instruction: g instruction-pops g instruction-length f ,Unknown length for variable-arg instruction: f /Wrong number of stack arguments to instruction: g <glil-mv-call> g glil-mv-call-nargs g glil-mv-call-ra g mv-call g
<glil-prompt> g glil-prompt-label g glil-prompt-escape-only? g prompt g load-number g number->string g string-bytes-per-char !g load-string "g
align-code #g load-wide-string $f bad string bytes per char %g symbol->string &g load-symbol 'g make-symbol (' )( *g keyword->symbol +g make-keyword ,+ -, .g
string-append /f list 0f too long 1g list 2g cons 32 43 5g
array-type 6g
load-array 7g uniform-array->bytevector 8g array-contents 9g
make-array :f dump-object: unrecognized object ;f vector <f write-table: unrecognized object =g dup >= ?g
vector-set @? A@ B C
DBC ED F
Gg new-frame HG Ig call JI KCJ C 5 h A ]4
5675 4: > " G ; hH 6 ]
$ D4L 5 4L > G " . g i
G g s0 G g s1 G g pair . g s0 / G g s1 / G g filenamef "language/glil/compile-assembly.scm
$ %
% & ' % ' 6 ' % ' ( " ( ! % ( , . ( 2 ' 9 ) G )
G g nameg lp C< h( ] O Q 456 g proc
$ g vhash $ g s0 $ g s1 $ g lp $ g filenamef "language/glil/compile-assembly.scm
#
$ $ $ $ $ g nameg vhash-fold-right2 C=R h8 ] ( D4L > G " g ls
6 g s0 6 g s1 6 g s0 6 g s1 6 g filenamef "language/glil/compile-assembly.scm
, - . / / / ! / ( 0 6 0
6 g nameg lp C h ] O Q 6 g proc
g ls g s0 g s1 g lp g filenamef "language/glil/compile-assembly.scm
+
, g nameg fold2 C>R? h@ ] L$ *4L L > G "D g i
; g s0 ; g s1 ; g s0 5 g s1 5 g filenamef "language/glil/compile-assembly.scm
4 5
5 6 6 ! 6 6
' 7 5 7 ; 8
; g nameg lp C h0 ]45 O Q
6 g proc
* g vect * g s0 * g s1 * g len * g lp * g filenamef "language/glil/compile-assembly.scm
2
3
3 4 * g nameg vector-fold2 C@R4AiBD5ERE h - 1 3 C g key
g defrec-4ed7d27bcd936f9-49d g filenamef "language/glil/compile-assembly.scm
@
g nameg make-variable-cache-cell CFR4GiEi5HR4Ii4JiEiC54KiEiC55LRMNOPQ h C ]9" ( 6454545 $ E( " $ " "y "Y "K ; g sources
g in g out g filename g addr 7 g new-filename 7 g line 7 g column 7 g filenamef "language/glil/compile-assembly.scm
B
C D E F G G & G 1 ! G " H ' H * H ( , H - I 2 I 5 I * 7 I 7 F D K H J
N Q O Q V Q ) \ Q 4 ] Q ! ^ Q b J
e R l S | R W W L M L C C C ' g nameg limn-sources CRRUVYZ[ h0 ] 44
55 4
5C g bindings
/ g sources / g arities / g tail / g body / g filenamef "language/glil/compile-assembly.scm
\
] ] ] ] ] ] _ ` ( _ / g nameg make-meta C\R] h ] 6{ g x
g filenamef "language/glil/compile-assembly.scm
f
g g nameg
immediate? C^R_ h0 ] $ ! & C4 5 $ CCC g x
, g p * g filenamef "language/glil/compile-assembly.scm
k
l l m m m n n o " o
% p & p ' p , g nameg scheme-list? C`Ra^bcde<HL. h ]L 6 z g x
g store
g filenamef "language/glil/compile-assembly.scm
Cfghi? h ]L 6 z g x
g store
g filenamef "language/glil/compile-assembly.scm
Cj h` r ]
4 5$ C45$ C45$ " #45$ " $ " 45$ 4 5 645$ 4L 4 55 456$ "4
L O 5 456$ $4L 4L 55 456" #4 5$ 4 5 6
6$ F45
45 $ '4
L O 455 456"" j g store
^ g x ^ g store g store g store g store D V g filenamef "language/glil/compile-assembly.scm
z ~ } } !
+ ,
1
; <
C
G H
M
W } \ | c | g | h r } s x & | | | } | | | } ! 5 ! ! | | | } | | |
} } 5 $ 1 ' ) * # + / 0 < D D K | R | V | H ^ g nameg add-to-store Cklm.nopqrstuvwxyF h ]" & %4 5 4 > " G L6& 4 5 L 6& 4 5 L 6 & #4
5 4 > " G L 6 & A4
54 54 5 4 > " G L 4 56C g x
g store g rtd g body 4 g obj C M g kw \ f g name u g mod g name g public?
g filenamef "language/glil/compile-assembly.scm
4 < M U f n / g nameg walk Cz h( ]O Q O Q 6 g x
' g add-to-store
' g walk ' g filenamef "language/glil/compile-assembly.scm
y
' g nameg build-constant-store C{Rklm.kmlae<no^pqrstFuvwxy hx ]* & D4 > " G 4 > " G 4 5$ C 456& 74 5 4 5$ C45$ C456
& )4 5 45$ C456 & D4
5 4 > " G 45 45$ C456& ]4 54 54 5 4 > " G 4 5 45$ C456C g x
w g table w g rtd w g obj b g kw g name g x g mod , t g name , t g public? , t g x R t g filenamef "language/glil/compile-assembly.scm
4 @ H O S [
e o s
E P 5 R R U a i p t ( w Czg| h@ ] & %4 5 4 > " G 6 6 g x
< g rtd < g body 4 g filenamef "language/glil/compile-assembly.scm
4 8 < g nameg build-object-table C}R h ] C g name
g boxed? g index g filenamef "language/glil/compile-assembly.scm
g nameg make-open-binding C~R! h ] 6 g open-binding
g start g end g filenamef "language/glil/compile-assembly.scm
# g nameg make-closed-binding CR~g hh ]1 $ T $ ; $ " (
6 6 6 6 6 g v
e g vx ] g vy ] g vx U g vy U g vx 1 M g vy 1 M g filenamef "language/glil/compile-assembly.scm
E I M Q U Y ] a e e C h ]45 C g bindings
g vars g start g filenamef "language/glil/compile-assembly.scm
g nameg open-binding CR. h ]L4 LL 5C g o
g tail g filenamef "language/glil/compile-assembly.scm
Cg hh H ]2 $ R $ 9 $ 4O 5C 6 6 6 @ g bindings
c g end c g vx [ g vy [ g vx S g vy S g vx 1 K g vy 1 K g filenamef "language/glil/compile-assembly.scm
8 J O S
W [
_ c
c g nameg
close-binding CR h ] C g x
g y
g filenamef "language/glil/compile-assembly.scm
) 1 &
C h0 ] ( 44 5564 56 g bindings
- g end - g filenamef "language/glil/compile-assembly.scm
! ! - - g nameg close-all-bindings CR h` 4 ]$ " >$ " )$
" $ " C , g addr
[ g nreq [ g nopt [ g rest [ g kw [ g arities [ g filenamef "language/glil/compile-assembly.scm
*
4
=
G
N
W
Z [ g nameg
open-arity CRg hH ]"( C$ / $ C66 g addr
H g arities H g vx @ g vy @ g vx ( 8 g vy ( 8 g filenamef "language/glil/compile-assembly.scm
3 < @
D H
H g nameg close-arity CR h ]4 56 g end
g start g nreq g nopt g rest g kw g arities g filenamef "language/glil/compile-assembly.scm
& g nameg begin-arity CR{Z[U hx s ])4 5 4 5 4> " G 45$ C4> G 45 45 4 4
55Ck g glil
x g
all-constants x g prog x g tablecode A x g addr A x g prog Q x g filenamef "language/glil/compile-assembly.scm
) % 3 $ 7 + D + I , Q , U .
W / b / c .
x g nameg compile-assembly CRkml.SRM\ZU[ h o ]? ( 45454455454455
4 L5 $ "
4
$
4
5" 5C4
L > G
45 "g g body
g code g bindings g source-alist g label-alist g arities g addr g code < g bindings < g sources < g labels
< g arities < g meta S g meta-pad
k g subcode g bindings g source-alist g label-alist
g arities g filenamef "language/glil/compile-assembly.scm
< > @ @ " @ A B B & ' B ( C / D 2 D ! < D < @ G F S F [ G b G 2 c G - f G % k F o H
v I y H
L M " M 6 M " N " H
Q
Q Q
P T T V T ' g nameg lp Cg| hP 1 ]" & 24 54 5 O Q
6 6 ) g glil
I g constants I g rtd I g meta A g body A g lp + A g filenamef "language/glil/compile-assembly.scm
9
: + < 9 < ; < / < < D = = > = ) A < E : I g nameg compile-program CR=aHLg}U[ hH ]44 L 5 $ U $ " !" " G D4 5$ s44 5L 5 $ U $ " !" " G D 64 5$ L4 5 4
5 4 L > G 4 5 4
54 5D 6 g obj
E g idx E g codes E g addr E g t E g idx T g load U h g len U h g t g idx g load g len g table = g prog = g tablecode = g addr = g prog $ = g filenamef "language/glil/compile-assembly.scm
i k j
m 7 m ( Z " Z $ [ 4 [ : ] @ ^ F ^ ( I ] T ] X m a n f o h n i p s j
t r w r r q t 9 t * Z Z [ [ ] ^ ^ ( ] ] t u v u w w x j
} } ~ } $ ' # 2 3 = A E : E C<.S
h` ]45$ D4 O > G 45 4 5 D g constants
` g table ` g addr ` g elts + ` g addr + ` g len : ` g filenamef "language/glil/compile-assembly.scm
X
a
` c d c h
" % * h
. f 3 : : = C I O 0 R Y ^ `
` g nameg compile-objtable CRkmla}U[pqgno]rtsF uyvwx
| h0
Q ] & 4 > " G 4 > " G 4 5 $ ; $ " D4 5 4 5
4 > G 4
4
55
D & 4
54 54 5
" F
$
" " F $ 9 $ %
$ "" " "|" "t 44 55D& @4 54 54 54 54 5
$ "
$ "
$ " @ $ "
4
4
4
555 445
5D!& 4" 54# 54$ 54% 54& 54' 54( 5
4)4 5*5 $ " 4+,5 $ " 4- 4./4.* 55? $
$ 0" 1" 0 $
$ " " 2
$ "
$ "
$ $3
" 4
4
4
4
5555 445
$ " 5D4& 45 5 465D7& k48 549 5 4:5$ ; $ "
D;4<5 $ "
465D=& 4>5D?& 4@ 5 DA& BDC& 4D 5 4E5 $
D45
$ ;
$ " D+F6G& e4H 54I 54J 54K 5
$ $
L$ " $ M "
N "
O$ " $ P "
Q " z
R$ R " c
S$ S " L
T$ U
" 4
V$ " $ N W"
X " 4+Y
5"
L$ & $ Z
[" Z
"
O$ & $ Z
\" ]
"
R$ ^_]
" l
S$ ^]
" Q
T$ U
" 8
V$ & $ Z
W" `
" 4+Y
5
" N
L$ $ a" b" +
O$ $ c" 4+d 5" 4+Y
5 De& 4f 54g 5 L$ " O$ 4)44h 55*5
$ t
$ +L$ i" O$ j"
" 1L$ k" O$ l"
D4)4 5*5 $ " 4+m 5 $ " nL$ o" O$ _" Dp$ c4)4 5*5
$
" 4+m 5
$
"
q D+r 6s& 4t 54u 54v 54w 5
L$ " O$ 4)44h 55*5
$
" 4+x 5
$ +L$ i" O$ j"
" 1L$ k" O$ l"
D+y 6z& +4{ 5 4|5 4 5D}& *4~ 54 5
D& 4 54 5 45$ " 4+> " G 45
$ c45 $ D $ " D+456
$ D+ 6& ,4 54 5
D& 64 54 5 $ "
D+ 6 I g glil
. g bindings
. g source-alist
. g label-alist
. g constants
. g arities
. g addr
. g rtd
. g t < g i G g table g prog
g tablecode g addr g x
g nreq g nlocs g
else-label
g x z g nreq g nopt g rest
g nlocs g
else-label g
bind-required
g bind-optionals g bind-rest g x g nreq g nopt g rest
g kw g allow-other-keys? g nlocs
g
else-label g t < T g kw-idx T g
bind-required g ntotal g bind-optionals-and-shuffle g bind-kw M g bind-rest z g code g vars g vars x g rest x g props g obj O g t O g x
g t
O g i G g local? s g boxed? s g op
s g index s g a k \ g b
k \ g x g op
x g name
x g t
g x p ~ g t g i
g x
g t
5 g i
5
n g x
`
n g op
u g mod
u g name
u g public?
u g key
u g t
g i
k g x ] k g label g code g inst g label g x
g inst g nargs g pops
g key / g x C Q g x n | g x g nargs g ra g x
g label
& g escape-only?
& g x
& _g filenamef "language/glil/compile-assembly.scm
4 < G G O S U c i $ o 6 r # &
# #
$ $
$ * -
4 9 = D # E I
Y
` 7 c 2 d % g
z # # $ $ - # # + ' # * 3 5 : & > C $ G J W Y ^ / b % g - k % p y ~ 0 & . & - 0 < < K O Q T \
^ d $ j $ o x ~ % % - 5 -
! ' - 3 @ G J
M U
W ] c i o r z z } &
& # &
* , 4 + = J L ! M ! % Y ! 4 b ! f " x ! (
)
( /
1
/ 6 : 9 < < = 9 ? ? + 1 $ 7 6 : G K @ O @ W D E E
F G H I F J K L F M F N F O 0 F 6 P 8 Q F S S T W T [ T e U k V k U x W ~ Y Z \ W ^ _ a W c W g W j ' W - l / m ? o N p R p V p i q o r q r " w r 2 q s s " s 2 s 9 s 2 t t t q
C x {
{ { { {
z ~ ~ " + , " . + 8 H " J + W " Y + d " j " m p ~ ~
1 1 # #
x
*
.
2
5
=
A
C
N
T /
Z /
]
_
`
n
r
x
+
( ( % 5 7 ( D F ( Q W Z ] k o u
} $ ( ) / @ C Q Z b * h * k n | "
&
*
. g nameg glil->assembly CR]HVLb c !"#g$%&U)d*-`./01.S[4f5i678?9:; + h a ]:4 5 $ C4 5$
4 564 5$ 4 5 C4 5$ >4 5 $
C $ 6
6 $ E4 5 4 5 $ C $ 456
64 5$ 44 5564 5$ 4 5 $ 4
45> " G " " 7(
645 4 5 " " $ *4 5 44 4 55 56" 4 5$ 4! 5$ Y44! 55 44" 54 55 44 #4$ 5 4 4 55 5564% 5 4&5 " m$ )45 4 5 " 444" 55' 56
"
( 6 $ 4" 5
4& 5 $ 4& 5 $ 4
4)55" * " <$
64 5 4 5 "
""B"> Y g x
g addr g t g key \ g str g key g len V g tail V g objects \ g codes \ g addr \ g code v g kar g type G g shape G g contents N g len W g i ] g codes ] g addr ] g code r g len g tail A g i G g codes G g addr G g code f g filenamef "language/glil/compile-assembly.scm
" % * / 0 : < = F K U V
\ h z ~
" # & * / , . 3 A G M / P V \ b l m r % v v { * ,
/
#
$
-
. 1 = C
E
H N Q W ] b f g n % r r w | # } # + ! . ! ! & ! ! 3 / ' ! # % ' ) / 5 ; 4 > A G L P Z [ b % f f k p # q & g nameg dump-object CVRa hp v ]4 L 5 "
L 6$ I$ ; $ D D"" n g x
n g i n g addr n g pair n g idx . f g filenamef "language/glil/compile-assembly.scm
$ % % .
& $ & ' & + &
. ' . '
6 ( : ( < ) I * K ) M + S + , Y , , \ + d - f + n g nameg ref-or-dump C]bcdV[HL`> h( ]4L L > G D g x
! g codes ! g addr ! g subcode ! g addr ! g filenamef "language/glil/compile-assembly.scm
@ A + A B ! B ! C.S1U4f5i"678@ h( ]4L L > G D g x
! g codes ! g addr ! g subcode ! g addr ! g filenamef "language/glil/compile-assembly.scm
e f 4 f g & ! g ! C?9g< h( ]4L L > G D g x
! g codes ! g addr ! g subcode ! g addr ! g filenamef "language/glil/compile-assembly.scm
R S 2 S T $ ! T ! C " h W ];4 5 $ 45D4 5$ " #4 5$ " $ " 4 5$ 4 5 45D4 5$ 4 5 "q4
5$ N4 L O > G 4
4 5 5 D $ C4L > G 4L > G 4455D" 4 5$ 4 5$ j4L 4 5> G 4L 4 5> G 44 5 5 445545D4 5 4L O > G 4L 4 5> G 4
4 5 4 5 5 D 6 $ 4 5 $ m4 5
4 5 $ N4 L O > G 4
4 5 ! 5 D"i"e"a O g x
g i g addr g t g code b q g codes g addr g len g car-code 4 g addr 4 g cdr-code 4 g addr 4 g type c g addr c g shape ~ g addr ~ g bv g contents > g codes > g addr > g shape > g addr > g len 3 g codes g addr g len g filenamef "language/glil/compile-assembly.scm
/ 1 0 3 4 4 " 3 # 5
- 5 . 5
3 6
= 5 > 6
E 7
I 5 J 7
O 8
Y 0 Z : b : g ; q ; r < | 0 } =
= > 0 @
C @
? D E ! E F F ! F 5 F D H D I 0 J J , J J K ! K . K ! K L 2 M 4 L
9 [ C 0 D [ K [ O [ P \ S \ ( b \ f \ k ] n ] + } ] ] ^ ^ ^ . ^ ^ ^
` a ` c c e h # e d i i - i i
j k % k
l m 5 m + ! n 8 " n + ( o + + l 7 j < q > j B s
F s F 0 I N M 0 N O ^ O b N c P k P 5 r P 1 u P ) x P # y P } N ~ R
U R
Q V W ! W X X # X 7 X V Z V g nameg dump1 C=>][A h@ A ] 45 4L 45> G D 9 g obj
= g idx = g code = g addr = g pre = g valcode & = g addr & = g filenamef "language/glil/compile-assembly.scm
v y & z ) y & y { 5 | < % { 5 ) { / } . 6 } ' ; ' = } = CE<Z.SYUFHCK[ h J ]9O O Q Q 4O > G 4 5 44
55 4
45 4
5545 D B g constants
g ref-or-dump g dump1 g codes 8 g addr 8 g len G g
pre-prog-addr Y g prog x g filenamef "language/glil/compile-assembly.scm
#
# v 0 7 v ; u @ G G N Y \ ` d " e f $ l 1 p $ q x x | ~ ) ! - " g nameg dump-constants CRC 9 g m
, g filenamef "language/glil/compile-assembly.scm
#
+
2
@
B
* \
f
k
y
T
)
+
"
%[
'I
(
*h
+
-
3 9
;, X
b
p|
#
C6 PK ! @V V language/glil/spec.gonu [ GOOF----LE-8-2.0> ] - 4 h ] g guile g define-module* g language g glil g spec
g filenameS f language/glil/spec.scm g importsS
g system g base
g compile-assembly g exportsS g set-current-module g write g unparse-glil g
write-glil g compile-asm g invalidate-compilation-cache! !g
make-language "g nameS #g titleS $f +Guile Lowlevel Intermediate Language (GLIL) %g readerS &g read 'g printerS (g parserS )g
parse-glil *g compilersS +g assembly ,g for-humans?SC 5 h ]4
5 4 > " G h - 1 3 4 5@ g exp
g port g filenamef language/glil/spec.scm
g nameg
write-glil C R h ]4 5D g x
g e g opts g filenamef language/glil/spec.scm
g nameg compile-asm C R4 i> " G 4!i"#$%& h u ] 6m g port
g env g filenamef language/glil/spec.scm
" " # C' i()i*+ i ,5RC g m
, g filenamef language/glil/spec.scm
! u %
C6 PK ! xڼq& q& language/tree-il.gonu [ GOOF----LE-8-2.0Y& ]p 4 h. ] g guile g define-module* g language g tree-il g filenameS
f language/tree-il.scm g importsS g srfi
g srfi-1
g srfi-11 g system g base g pmatch g syntax g exportsS g tree-il-src g <void> g void? g make-void !g void-src "g <const> #g const? $g
make-const %g const-src &g const-exp 'g <primitive-ref> (g primitive-ref? )g make-primitive-ref *g primitive-ref-src +g primitive-ref-name ,g
<lexical-ref> -g lexical-ref? .g make-lexical-ref /g lexical-ref-src 0g lexical-ref-name 1g lexical-ref-gensym 2g
<lexical-set> 3g lexical-set? 4g make-lexical-set 5g lexical-set-src 6g lexical-set-name 7g lexical-set-gensym 8g lexical-set-exp 9g <module-ref> :g module-ref? ;g make-module-ref <g module-ref-src =g module-ref-mod >g module-ref-name ?g module-ref-public? @g <module-set> Ag module-set? Bg make-module-set Cg module-set-src Dg module-set-mod Eg module-set-name Fg module-set-public? Gg module-set-exp Hg <toplevel-ref> Ig
toplevel-ref? Jg make-toplevel-ref Kg toplevel-ref-src Lg toplevel-ref-name Mg <toplevel-set> Ng
toplevel-set? Og make-toplevel-set Pg toplevel-set-src Qg toplevel-set-name Rg toplevel-set-exp Sg <toplevel-define> Tg toplevel-define? Ug make-toplevel-define Vg toplevel-define-src Wg toplevel-define-name Xg toplevel-define-exp Yg
<conditional> Zg conditional? [g make-conditional \g conditional-src ]g conditional-test ^g conditional-consequent _g conditional-alternate `g
<application> ag application? bg make-application cg application-src dg application-proc eg application-args fg
<sequence> gg sequence? hg
make-sequence ig sequence-src jg
sequence-exps kg <lambda> lg lambda? mg make-lambda ng
lambda-src og lambda-meta pg lambda-body qg
<lambda-case> rg lambda-case? sg make-lambda-case tg lambda-case-src ug lambda-case-req vg lambda-case-opt wg lambda-case-rest xg lambda-case-kw yg lambda-case-inits zg lambda-case-gensyms {g lambda-case-body |g lambda-case-alternate }g <let> ~g let? g make-let g let-src g let-names g let-gensyms g let-vals g let-body g <letrec> g letrec? g make-letrec g
letrec-src g letrec-in-order? g letrec-names g letrec-gensyms g letrec-vals g letrec-body g <fix> g fix? g make-fix g fix-src g fix-names g fix-gensyms g fix-vals g fix-body g <let-values> g let-values? g make-let-values g let-values-src g let-values-exp g let-values-body g <dynwind> g dynwind? g make-dynwind g dynwind-src g dynwind-winder g dynwind-body g dynwind-unwinder g <dynlet> g dynlet? g make-dynlet g
dynlet-src g
dynlet-fluids g dynlet-vals g dynlet-body g <dynref> g dynref? g make-dynref g
dynref-src g dynref-fluid g <dynset> g dynset? g make-dynset g
dynset-src g dynset-fluid g
dynset-exp g <prompt> g prompt? g make-prompt g
prompt-src g
prompt-tag g prompt-body g prompt-handler g <abort> g abort? g
make-abort g abort-src g abort-tag g
abort-args g
abort-tail g
parse-tree-il g unparse-tree-il g tree-il->scheme g tree-il-fold g make-tree-il-folder g post-order! g
pre-order! g tree-il=? g tree-il-hash !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ g set-current-module g format f
#<tree-il ~S> g
print-tree-il g make-syntax-transformer g borrow-core-vtables g macro g $sc-dispatch g _ g
vector-length g %expanded-vtables g vtable-offset-user g map g
datum->syntax g
symbol-append g < g > g make- g ? g - g any g
syntax-object g define g top g ribcage g t-9d61459b896-a19 g t-9d61459b896-a17 g t-9d61459b896-a18 g m-9d61459b896-a1a f l-9d61459b896-a1e f l-9d61459b896-a1f f l-9d61459b896-a20 g acc f l-9d61459b896-a15 g lp g n g fields g out f l-9d61459b896-9e1 f l-9d61459b896-9e2
f l-9d61459b896-9e3 f l-9d61459b896-9e4
g pred f l-9d61459b896-9df g ctor f l-9d61459b896-9dd g type f l-9d61459b896-9db g sfields f l-9d61459b896-9d7 ! " #f l-9d61459b896-9d5 $# %"$ &g stem '& (f l-9d61459b896-9d3 )( *') +g vtable ,+ -f l-9d61459b896-9d1 .- /,. 0 1 2f l-9d61459b896-9ca 3f l-9d61459b896-9cb 4f l-9d61459b896-9cc 5234 6015 7g x 87 9f l-9d61459b896-9c7 :9 ;8: <
!%*/6; =g hygiene >= ?<> @g make-procedure-with-setter A@<> Bg lambda CB<> D7<> ED Fg
struct-ref GF<> Hg v IH<> JDI Kg struct-set! LK<> MI Ng syntax-violation ON PN Qf -source expression failed to match any pattern Rg each-any SRR Tg t-9d61459b896-9ea Ug t-9d61459b896-9e9 Vg t-9d61459b896-9ec Wg t-9d61459b896-9eb XTUVW Yg m-9d61459b896-9ed ZY [ZZZZ \f l-9d61459b896-9f1 ]f l-9d61459b896-9f2 ^f l-9d61459b896-9f3 _f l-9d61459b896-9f4 `\]^_ aX[` ba !%*/6; cb> dg make-struct edb> f
b> g hg t-9d61459b896-9fb ig t-9d61459b896-9fc jhi kg m-9d61459b896-9fd lk mll nf l-9d61459b896-a01 of l-9d61459b896-a02 pno qjmp rq !%*/6; sr> t7r> ut vg and wvr> xg struct? yxr> zyt {g eq? |{r> }g
struct-vtable ~}r> ~t g t-9d61459b896-a05 g m-9d61459b896-a06 f l-9d61459b896-a09 !%*/6; K> g vtable-index-printer > > g t-9d61459b896-a0c g t-9d61459b896-a0b g m-9d61459b896-a0d f l-9d61459b896-a11 f l-9d61459b896-a12 !%*/6; > g
vector-ref > > g reverse g begin g t-9d61459b896-a24 g m-9d61459b896-a25 f l-9d61459b896-a29 6; > g make-record-type f <fix> g src g names g gensyms g vals g body g record-predicate g record-accessor g record-modifier f <let-values> g exp f <dynwind> g winder g unwinder f <dynref> g fluid f <dynset> f <prompt> g tag g handler f <abort> g args g tail g source-properties g location g abort g error f unrecognized tree-il g prompt g dynset g dynref g dynlet g dynwind g
let-values g fix g letrec* g letrec g let g const g lambda-case g and=> g set! g toplevel g @@ g and-map g symbol? g @ g lexical g primitive g if g apply g void f unhandled record g scheme g decompile-tree-il g fold R g dummy g seed g m-9d61459b896-1211 f l-9d61459b896-1216 f l-9d61459b896-1217 f l-9d61459b896-1213 8 B> g tree > g down > g up > > g fold-values > g proc
> g exps >
> g null? > g values > > g car > g cdr > > g foldts > g list !g let*-values "!> #g record-case $#> %2> &> '%& (@> )(& *M> +*& ,S> -,& .Y> /g test 0/> 1g
consequent 21> 3g alternate 43> 5.024 6`> 7> 86
7 9f> :9 ;k> <> =;< >q> ?g inits @?> A>@<4 B}> C> DBC< E> FEC< G> HGC< I> JI&< K> L> M> NK<LM O> Pg fluids QP> ROQC< S> T> UST V> WVT& X> Y> Z> [XY<Z \> ]> ^\Y7] _g else `_> ag setter ba ca dg
string-length eg symbol->string fg
struct-layout gg struct-nfields hg hash-bits ig make-variable-transformer jg identifier? kg logcount lg most-positive-fixnum mg hashq ng max og hashC 5h ]4
5 4 > " G h ]4 56 g exp
g port g filenamef language/tree-il.scm
B
C C C g nameg
print-tree-il CR4 h _ ]L 6 W g f
g filenamef language/tree-il.scm
P "
P .
C?ACEGDJLM
h8 w ] C o g t-9d61459b896-a19
1 g t-9d61459b896-a17 1 g t-9d61459b896-a18 1 1 CPQScef h ] C g t-9d61459b896-9ea
g t-9d61459b896-9e9 g t-9d61459b896-9ec g t-9d61459b896-9eb Cgsuwz| h X ] C P g t-9d61459b896-9fb
g t-9d61459b896-9fc C h X ] C P g t-9d61459b896-a0c
g t-9d61459b896-a0b CR h 9 ] C1 g t-9d61459b896-a24
C h ]x" 45$
4L O 5 4L 4 55 4L 4
55 4L 4 55 " n
( "
4L 4
55
4
5 $ 4?"
4
5
"
4
5
$ 4
?"
4 5
4
5
$ 4
?"
4 5
4
5
$ 4
?"
4 5
" "@45 4
5 $ @6
"
g n
g out g vtable g stem % g fields / g sfields ? g type S g ctor e g pred w g n } g fields
} g out } g acc g tmp
g tmp g tmp ' g tmp
$ g tmp . \ g tmp
9 Y g tmp k g tmp
v g tmp g tmp g filenamef language/tree-il.scm I J J
J K L L $ M 1 % M % L . N 3 / N / L 2 O ! ? L B R G R / K R > O R F Q R / S R S L V S [ S / _ S > c S / e S e L h T m T / s T C u T / w T w L } U a c d e ( f + f ? f B f + e ( e g & g c U W # . Y # k ^ # V ! U K
l l I I I =
CPQ h( g ] 4 5 $ O @ 6 _ g x
' g tmp ' g filenamef language/tree-il.scm
F ' C5Ri
R iii h h ] $ CC ` g x
g filenamef language/tree-il.scm
n
g nameg void? C R h n ] C f g src
g filenamef language/tree-il.scm
n
g nameg make-void C R4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5!Ri "R"iii" h i ] $ CC a g x
g filenamef language/tree-il.scm
n
g nameg const? C#R" h ] C x g src
g exp g filenamef language/tree-il.scm
n
g nameg
make-const C$R4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5%R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5&Ri 'R'iii' h q ] $ CC i g x
g filenamef language/tree-il.scm
n
g nameg primitive-ref? C(R' h ] C g src
g name g filenamef language/tree-il.scm
n
g nameg make-primitive-ref C)R4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5*R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5+Ri ,R,iii, h o ] $ CC g g x
g filenamef language/tree-il.scm
n
g nameg lexical-ref? C-R, h ] C g src
g name g gensym g filenamef language/tree-il.scm
n
g nameg make-lexical-ref C.R4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5/R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C50R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C51Ri 2R2iii2 h o ] $ CC g g x
g filenamef language/tree-il.scm
n
g nameg lexical-set? C3R2 h ] C g src
g name g gensym g exp g filenamef language/tree-il.scm
n
g nameg make-lexical-set C4R4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C55R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C56R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C57R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C58Ri 9R9iii9 h n ] $ CC f g x
g filenamef language/tree-il.scm
n
g nameg module-ref? C:R9 h ] C g src
g mod g name g public? g filenamef language/tree-il.scm
n
g nameg make-module-ref C;R4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5<R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5=R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5>R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5?Ri @R@iii@ h n ] $ CC f g x
g filenamef language/tree-il.scm
n
g nameg module-set? CAR@ h ] C g src
g mod g name g public? g exp g filenamef language/tree-il.scm
n
g nameg make-module-set CBR4@ih V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5CR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5DR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5ER4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5FR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5GRi HRHiiiH h p ] $ CC h g x
g filenamef language/tree-il.scm
n
g nameg
toplevel-ref? CIRH h ] C g src
g name g filenamef language/tree-il.scm
n
g nameg make-toplevel-ref CJR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5KR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5LRi MRMiiiM h p ] $ CC h g x
g filenamef language/tree-il.scm
n
g nameg
toplevel-set? CNRM h ] C g src
g name g exp g filenamef language/tree-il.scm
n
g nameg make-toplevel-set COR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5PR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5QR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5RRi SRSiiiS h s ] $ CC k g x
g filenamef language/tree-il.scm
n
g nameg toplevel-define? CTRS h ] C g src
g name g exp g filenamef language/tree-il.scm
n
g nameg make-toplevel-define CUR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5VR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5WR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5XRi
YRYiiiY h o ] $ CC g g x
g filenamef language/tree-il.scm
n
g nameg conditional? CZRY h ] C g src
g test g
consequent g alternate g filenamef language/tree-il.scm
n
g nameg make-conditional C[R4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5\R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5]R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5^R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5_Ri `R`iii` h o ] $ CC g g x
g filenamef language/tree-il.scm
n
g nameg application? CaR` h ] C g src
g proc g args g filenamef language/tree-il.scm
n
g nameg make-application CbR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5cR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5dR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5eRi fRfiiif h l ] $ CC d g x
g filenamef language/tree-il.scm
n
g nameg sequence? CgRf h ] C | g src
g exps g filenamef language/tree-il.scm
n
g nameg
make-sequence ChR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5iR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5jRi
kRkiiik h j ] $ CC b g x
g filenamef language/tree-il.scm
n
g nameg lambda? ClRk h ] C g src
g meta g body g filenamef language/tree-il.scm
n
g nameg make-lambda CmR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5nR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5oR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5pRi qRqiiiq h o ] $ CC g g x
g filenamef language/tree-il.scm
n
g nameg lambda-case? CrRq h
, 3
C g src
g req g opt g rest g kw g inits g gensyms g body g alternate g filenamef language/tree-il.scm
n
g nameg make-lambda-case CsR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5tR4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5uR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5vR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5wR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5xR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5yR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5zR4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5{R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5|Ri }R}iii} h g ] $ CC _ g x
g filenamef language/tree-il.scm
n
g nameg let? C~R} h ] C g src
g names g gensyms g vals g body g filenamef language/tree-il.scm
n
g nameg make-let CR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5Ri Riii h j ] $ CC b g x
g filenamef language/tree-il.scm
n
g nameg letrec? CR h ] C g src
g in-order? g names g gensyms g vals g body g filenamef language/tree-il.scm
n
g nameg make-letrec CR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5Ri Riii h j ] $ CC b g x
g filenamef language/tree-il.scm
n
g nameg dynlet? CR h ] C g src
g fluids g vals g body g filenamef language/tree-il.scm
n
g nameg make-dynlet CR4@i h V ]
C N g x
g filenamef language/tree-il.scm
n
Ch e ]
C ] g x
g v g filenamef language/tree-il.scm
n
C5R4@i h V ] C N g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5R4@i h V ] CN g x
g filenamef language/tree-il.scm
n
Ch e ] C ] g x
g v
g filenamef language/tree-il.scm
n
C5R4ii5R h - 1 3 C g src
g names g gensyms g vals g body g defrec-9d61459b896-c7e g filenamef language/tree-il.scm
g nameg make-fix CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R h - 1 3 C g src
g exp g body g defrec-9d61459b896-c80 g filenamef language/tree-il.scm
g nameg make-let-values CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R h - 1 3 C g src
g winder g body g unwinder g defrec-9d61459b896-c82 g filenamef language/tree-il.scm
g nameg make-dynwind CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R h - 1 3 C g src
g fluid g defrec-9d61459b896-c84 g filenamef language/tree-il.scm
g nameg make-dynref CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4ii5R h - 1 3 C g src
g fluid g exp g defrec-9d61459b896-c86 g filenamef language/tree-il.scm
g nameg make-dynset CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R h - 1 3 C g src
g tag g body g handler g defrec-9d61459b896-c88 g filenamef language/tree-il.scm
g nameg make-prompt CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R h - 1 3 C g src
g tag g args g tail g defrec-9d61459b896-c8a g filenamef language/tree-il.scm
g nameg
make-abort CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i h ) ]
C ! g x
C h 8 ]
C 0 g x
g v C5 R h ] $ 4 5 $ CCC g x
g props g filenamef language/tree-il.scm
g nameg location CR h u ] 6m g x
g filenamef language/tree-il.scm
g nameg retrans Ch$sBmUOJB;4.)[b < h0 ] 4 5 " " " " " ^" " 0"
[" " " "
"
L" " &" " " _" " " B" " " i" " s" " " (" $ & v$ g $ N $ 5
( 45454 56 6 6 6 6 6 6 $ z & d$ Y $ D $ /
(
45454 56"""""" $ ^ & H$ = $ ( ( 45456""{"w"s"o $ B
& ,$ ! (
456"*"&""" $ ~ & h$ ] $ H $ 3
( 45454 56"""""" $ z & d$ Y $ D $ /
( 45454 56" """" " $ ^ & H$ = $ ( ( 45456""""" $ & x$ m $ X $ C
$ .
( 4 54 56""""
""" $ & y$ n $ Y $ D
$ /
( 4 54 56"x"t"p"l"h"d"` $ & y$ n $ Y $ D
$ /
( 4 54 56""""""" $ & x$ m $ X $ C
$ .
( 4 54 56"="9"5"1"-")"% $ % & 456"" $ = & '$ ( 6"""" $ & $ $ $
$
$
$ $ s $ ^ ( J$ ? ( +( !!
45456 """""""""""""" $ / & $ $ $
$
$
$ $ $ { ( g$ \ ( H$ = ( )!
45454"56 "~"z"v"r"n"j"f"b"^"Z"V"R"N"J"F $ Y #& C$ 8 $ # ( $456""""" $ d %& N$ C $ . ( $ &456""{"w"s"o"k $ '& $ $ n (& X$ M
( 9$ . ( $ ) 4 56"""""""""" $ H (& 2$ ' ( $ *6"q"m"i"e"a $ '& $ $ +& $ v
$ a
( M$ B
( .4,- 5$ $ . 4
56"""""""""""" $ q +& [$ P $ ; ( '4,-5$ $ /6" """"
" " $ '& $ $ 0& $ v
$ a
( M$ B
( .4,- 5$ $ . 4
56"U"Q"M"I"E"A"="9"5"1"-") $ q 0& [$ P $ ; ( '4,-5$ $ /6""""""" $ '& $ $ 1& z$ o
$ Z
( F$ ;
( ' $ $ 2 4
56" """"""""""" $ '& $ $ p 1& Z$ O
( ;$ 0 ( $ 2 4 56"C"?";"7"3"/"+"'"#" $ j 1& T$ I $ 4 ( $ $
36""""""" $ J 1& 4$ ) ( $
36"]"Y"U"Q"M $ H 4& 2$ ' ( $ 56""""" $ z 6& d$ Y $ D $ /
( 745454 56""}"y"u"q"m $ A 8& +$ 945456"%"!" $ & :& ( ;6""" g exp
+ g retrans + g loc
+ g vx g vy g vx g vy g vx g vy g vx g vy
g vx 3 g vy 3 g vx L g vy L g vx ] g vy ] g vx n g vy
n g vx g vy g vx g vy g vx g vy g vx ! ] g vy ! ] g vx : U g vy : U g vx n g vy n g vx g vy g vx g vy g vx g vy
g vx k g vy k g vx c g vy c g vx ! _ g vy ! _ g vx 2 [ g vy
2 [ g vx | g vy | g vx g vy g vx g vy g vx m g vy m g vx e g vy e g vx a g vy a g vx ] g vy
] g vx 1 Y g vy 1 Y g vx ~ g vy ~ g vx g vy g vx g vy g vx g vy
g vx g vy g vx g vy g vx 1 g vy 1 g vx B g vy B g vx S g vy
S g vx d g vy d g vx : g vy : g vx 2 g vy 2 g vx . g vy . g vx * g vy
* g vx & g vy & g vx K j g vy K j g vx { g vy { g vx g vy g vx g vy g vx g vy g vx g vy g vx g vy
g vx g vy g vx
g vy g vx 1 g vy 1 g vx B g vy B g vx S g vy S g vx j g vy j g vx g vy g vx g vy g vx
g vy
g vx g vy
g vx , g vy , g vx
= g vy = g vx N g vy N g vx _ g vy _ g vx p g vy p g vx g vy g vx g vy g vx m g vy m g vx 3 e g vy 3 e g vx D a g vy D a g vx ~ g vy ~ g vx g vy g vx g vy g vx
g vy
g vx
g vy
g vx
g vy
g vx
0
w g vy
0
w g vx
G
o g vy
G
o g vx
g vy
g vx
g vy
g vx
g vy
g vx g vy g vx g vy g vx 2 g vy
2 g vx C g vy C g vx
Z g vy Z g vx 2 g vy 2 g vx * g vy * g vx & g vy & g vx C
g vy C
g vx \
g vy \
g vx m g vy m g vx g vy
g vx g vy g vx
g vy g vx
g vy
g vx
4
~ g vy
4
~ g vx
E
z g vy
E
z g vx
W g vy
W g vx
O g vy
O g vx
K g vy
K g vx
C g vy
C g vx
? g vy
? g vx
7 g vy 7 g vx h g vy h g vx g vy g vx g vy g vx g vy
g vx g vy g vx } g vy } g vx 2 u g vy 2 u g vx C q g vy C q g vx g vy g vx g vy g vx % g vy % g vx g vy g vx 6 g vy 6 g vx O g vy O g vx ` g vy ` g vx q g vy
q g vx g vy g vx g vy g vx ' g vy ' g filenamef language/tree-il.scm
$
"
& & } I Q U , A W [ D " M U Y ( x ( " " & \ f j U ] a !
T *
X
_
g
k
e ) q t ? x 3 ( >
P
\
_ 2
c
n
r . = # + / ) P " T W 1 [ e i
+ # + g nameg
parse-tree-il CR `deY]^_'+,0126789=>?@DEFGHLMQRSWXkopBquvwxyz{|"&fj} y hP
]I & C& '4 54 5 4545C & 64
54 54 5
454545 C& 4 5 C& 4 54 5 C& 14 54 54 5 45 C& 14 54 54 5 $ " C & F4! 54" 54# 54$ 5 $ " 45 C%& 4& 5 ' C(& &4) 54* 5 ' 45 C+& !4, 54- 5 .45 C/& 040 541 5 $ 245 C23C4& 45 546 547 548 549 54: 54; 54< 5 =45 45 $ 4 5 " C>& 4? 5 @ CA& 4B 5 C45CD& >4E 54F 54G 54H 5 I4545 CJ& S4K 54L 54M 54N 54O 5 $ P" Q4545 CR& >4S 54T 54U 54V 5 W4545 CX& &4Y 54Z 5 [4545 C\& 64] 54^ 54_ 5 `454545 Ca& :4b 54c 54d 5 e454545 Cf& 4g 5 h45 Ci& &4j 54k 5 l4545 Cm& 64n 54o 54p 5 q454545 Cr& 84s 54t 54u 5 v454545 Cwx 6 |
g tree-il
L g rtd L g proc ( A g args ( A g test ^ g
consequent ^ g alternate ^ g name g name g gensym g name g gensym g exp g mod . g name . g public? . g mod R | g name R | g public? R | g exp R | g name g name g exp g name g exp g meta $ g body $ g req d g opt d g rest d g kw d g inits d g gensyms d g body d g alternate d g exp g exps g names + g gensyms + g vals + g body + g in-order? V g names V g gensyms V g vals V g body V g names g gensyms g vals g body g exp g body g winder 8 g body 8 g unwinder 8 g fluids U z g vals U z g body U z g fluid g fluid g exp g tag g body g handler g tag ! D g args ! D g tail ! D Cg filenamef language/tree-il.scm
. / 6 ' ? I f g n # u A ~ % & - 6 \ b d j q r / { ! " " " # , v & & * & ' & ( ( * ( $ ( G & + . . . 1 1 ! 1 8 * 1 3 f 4 h 4 n 4 s 5 | 5 $ 4 8 8 8 8 8 ; ; ; * ; > > ' > * . ? 7 > @ ] B ^ B g B - p C y B F F F I I I ( I L L L & L > L ) O * O 1 O % : P C O H } L g nameg unparse-tree-il CR h0 - . , 3 # # 4 5C g e
* g env * g opts * g filenamef language/tree-il.scm
R
R 6 S
! S ) S
* S * g nameg tree-il->scheme CR28@GMRSXY]^_`defjkpqy{|} :h` ' ]" ( " $
L 6 & 4 5 L 4L4L 556& 4 5 L 4L4L 556& 4 5 L 4L4L 556& 4 5 L 4L4L 556
& ?4 54 54
5 L 4L4L4L4L 55556& +4 54 5 L 4L4L 556& 4 5 L 4L4L 556& /4 5 4L 5 L $
4L5" 6& `4 54 54 5 L $ "4L4L4L4L 5555" 4L4L4L 5556& /4 54 5 L 4L4L4L 5556 & /4 54 5 L 4L4L4L 5556 & /4 54! 5 L 4L4L4L 5556"& /4# 54$ 5 L 4L4L4L 5556%& ?4& 54' 54( 5 L 4L4L4L4L 55556)& ?4* 54+ 54, 5 L 4L4L4L4L 55556-& 4. 5 L 4L4L 556/& /40 541 5 L 4L4L4L 55562& ?43 544 545 5 L 4L4L4L4L 555566& ?47 548 549 5 L 4L4L4L4L 55556L 6 g tree
] g result ] g rtd ! ] g exp 2 J g exp Y q g exp g exp g test g
consequent g alternate g proc 9 g args 9 g exps H ` g body o g result z g inits g body g alternate g vals 6 g body 6 g vals L m g body L m g vals g body g exp g body g body " g winder " g unwinder " g fluids ? i g vals ? i g body ? i g fluid x g fluid g exp g tag g body g handler g tag + U g args + U g tail + U )g filenamef language/tree-il.scm
` b b b b c ! d 9 f > f H f J f R d ` h e h o h q h y d j j j j d l l l l d n o p p + p o n n d % r , r - r + 7 r 9 r A d O t T t ^ t ` t h d r v z v x y w
d | } ~ ~ ) ~ 5 ~ ) ~ } # / # | d # ( 2 4 6 > d U Z _ i k m u d d ) d
+ " * d J O T Y - c e g i q d d * d $ * $
d 6 ; @ * E 4 O * Q S U ] ] g nameg loop C h | ]
O Q 6t g leaf
g down g up g seed g tree g loop
g filenamef language/tree-il.scm
X
` g nameg tree-il-foldg
documentationf Traverse TREE, calling LEAF on each leaf encountered, DOWN upon descent
into a sub-tree, and UP when leaving a sub-tree. Each of these procedures is
invoked as `(PROC TREE SEED)', where TREE is the sub-tree or leaf considered
and SEED is the current result, intially seeded with SEED.
This is an implementation of `foldts' as described by Andy Wingo in
``Applications of fold to XML transformation''. CR4
"$'&)+-502487:=<A@DCFHJNLMRQUTW[YZ^]` 9 h B ]
45 ! " ## $ % # # &' # (' # )' # * # +# , - ./ ' # 01 21 34 # 5 64 7 8 C : g dummy
g seed CPQ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il.scm
" g
macro-typeg syntax-rulesg patternsg seedg ... C5R`decY]^_2867@GDEFMRQSXWkpqy{|fj} E h ]! & Z4 54 5 445 4L5> " G 445 4L5> " G " Y& 4 54 54 5 445 4L5> " G 445 4L5> " G 44 5 4L5> " G "
& R4 5 4 > " G 4
> " G 44 5 4L5> " G " u& d4 5 4 > " G 4 > " G 4 > " G 445 4L5> " G " & @4 5 4 > " G 445 4L5> " G " & @4 5 4 > " G 445 4L5> " G " y& 84 5 $ "445 4L5> " G " " 9& y4 54 54 5 H4LJ5K44 5 4L5> " G $ "44 5 4L5> " G " " & 04 5 44 5 4L5> " G " !& l4" 54# 5 4$ > " G 44"5 4L5> " G 44#5 4L5> " G " %& l4& 54' 5 4( > " G 44&5 4L5> " G 44'5 4L5> " G " )& l4* 54+ 5 4, > " G 44*5 4L5> " G 44+5 4L5> " G " $-& X4. 54/ 5 44.5 4L5> " G 44/5 4L5> " G " 0& 41 542 543 5 4415 4L5> " G 4425 4L5> " G 4435 4L5> " G " :4& 45 546 547 5 4455 4L5> " G 4465 4L5> " G 4475 4L5> " G " 8& .49 5 4495 4L5> " G " v:& X4; 54< 5 44;5 4L5> " G 44<5 4L5> " G " =& 4> 54? 54@ 5 44>5 4L5> " G 44?5 4L5> " G 44@5 4L5> " G " A& 4B 54C 54D 5 44B5 4L5> " G 44C5 4L5> " G 44D5 4L5> " G " 4L 5 $ C C g x
g rtd g proc e g args e g test g
consequent g alternate g exp I g exp \ g exp g exp E g body X g inits g body g alternate g exps > g vals X g body X g vals & g body & g vals @ g body @ g exp g body g body g winder g unwinder g fluids g vals g body g fluid % H g fluid b g exp b g tag 2 g body 2 g handler 2 g tag S g args S g tail S g t (g filenamef language/tree-il.scm
" , " 7 @ J " W q " ( ' ) 3 ! > U " % / % : Q ` a
k
! v
" + & 3 J o y
2 W a n w " " " # # ! # " & , & 7 & @ ' J ' U ' ^ ( h ( " s ( + + + , , , - - - ( 0 2 0 = 0 T g 3 q 3 | 3 4 4 4 7 7 7 8 8 8 9 9 ! 9 > Z < d < o < x = = = > > > B B g nameg lp C h ]
O Q 6 g f
g x g lp g filenamef language/tree-il.scm
g nameg post-order! CR`decY]^_28@GMRSXkpqy{|fj} ; h0 ])4L 5 $ " & Z4545 4454L5> " G 4454L5> " G " & 45454 5 4454L5> " G 4454L5> " G 44 54L5> " G "
& .4 5 44 54L5> " G " & .4
5 44
54L5> " G " & .45 4454L5> " G " y& .45 4454L5> " G " C& 845 $ "4454L5> " G " " & y454545 H4LJ5K4454L5> " G $ "4454L5> " G " " & 045 4454L5> " G " J& Z454 5 4454L5> " G 44 54L5> " G " & Z4 54 5 44 54L5> " G 44 54L5> " G " & Z4!54"5 44!54L5> " G 44"54L5> " G " $#& X4$54%5 44$54L5> " G 44%54L5> " G " && 4'54(54)5 44'54L5> " G 44(54L5> " G 44)54L5> " G " :*& 4+54,54-5 44+54L5> " G 44,54L5> " G 44-54L5> " G " .& .4/5 44/54L5> " G " v0& X415425 44154L5> " G 44254L5> " G " 3& 445455465 44454L5> " G 44554L5> " G 44654L5> " G " 7& 4854954:5 44854L5> " G 44954L5> " G 44:54L5> " G " C g x
0 g t g x 0 g rtd ! - g proc 9 g args 9 g test g
consequent g alternate g exp A g exp T w g exp g exp g body # g inits D g body D g alternate D g exps g vals > g body > g vals X g body X g vals g body g exp b g body b g body g winder g unwinder g fluids
z g vals
z g body
z g fluid g fluid g exp g tag 1 g body 1 g handler 1 g tag & g args & g tail & )g filenamef language/tree-il.scm
E F F
F ! G > I H I $ S I \ J f J $ s J G M M $ M N N * N O O ) O G ! R + R # 6 R M G W U a U " l U G X X $ X G [ [ ' [ G ^ _
_ # _
/ G K b U b V c ` c $ k c y d z d d 7 d G g g ! g G j j j k % k 0 k J G ] n g n t n } o o o G r r r s s s G ! v + v " 6 v ? w I w # T w n G z z z { { " { | | $ | G ! + 4 > K T ^ i G G G 8 B M V ` k t ~ " G
0 g nameg lp C h ]
O Q 6 g f
g x g lp g filenamef language/tree-il.scm
D
E g nameg
pre-order! CRdef h ]444 555 C g x
g filenamef language/tree-il.scm
$ g nameg struct-nfields CgRg h ] $ T$ K & ?" -
$ C4 5$ "C4 5 "CC $ $$ 4 5$
6CC C g a
g b g n K g t " K g filenamef language/tree-il.scm
! " . 5 : 0 < @ C I K L S Y ` d g k l q t v z $ g nameg tree-il=? CR4h4iij h [ ] 6S g var
g filenamef language/tree-il.scm Ckl h [ ]6S g var
g filenamef language/tree-il.scm CPQ h( h ] 4?$ @ 6 ` g x
# g tmp # g filenamef language/tree-il.scm
# C55hRgmln o h0 ]:" t4545
$ C" ;$ /4L 5 5 "C4 5 "" 45
$ C4L 5 5 4L 5 5 4L 5 5C $ " $ "V 6 g exp
0 g depth 0 g s z g len z g h z g i * e g h * e g h1 C Z g l ~
g h
g h1 g l
g h
g h1 g l
g h
g h1
g filenamef language/tree-il.scm
#
* / 3 6 7 $ > . A ? C $ C K L Q R T 2 U V W b e f m p z ~
' / 2 ' / 2 ' / 2
( 0
[ 0 g nameg hash-exp C h ] O Q
6 g exp
g hash-exp
g filenamef language/tree-il.scm
g nameg tree-il-hash CRC g m
, g filenamef language/tree-il.scm
B
n
e
r
R
X
֢
D
-
6
C6 PK ! +-H H language/glil.gonu [ GOOF----LE-8-2.0G ] 4 h ] g guile g define-module* g language g glil g filenameS
f language/glil.scm g importsS g system
g base g syntax
g pmatch
g srfi g srfi-1 g selectS g fold g exportsS g <glil-program> g make-glil-program g
glil-program? g glil-program-meta !g glil-program-body "g <glil-std-prelude> #g make-glil-std-prelude $g glil-std-prelude? %g glil-std-prelude-nreq &g glil-std-prelude-nlocs 'g glil-std-prelude-else-label (g <glil-opt-prelude> )g make-glil-opt-prelude *g glil-opt-prelude? +g glil-opt-prelude-nreq ,g glil-opt-prelude-nopt -g glil-opt-prelude-rest .g glil-opt-prelude-nlocs /g glil-opt-prelude-else-label 0g <glil-kw-prelude> 1g make-glil-kw-prelude 2g glil-kw-prelude? 3g glil-kw-prelude-nreq 4g glil-kw-prelude-nopt 5g glil-kw-prelude-kw 6g !glil-kw-prelude-allow-other-keys? 7g glil-kw-prelude-rest 8g glil-kw-prelude-nlocs 9g glil-kw-prelude-else-label :g <glil-bind> ;g make-glil-bind <g
glil-bind? =g glil-bind-vars >g <glil-mv-bind> ?g make-glil-mv-bind @g
glil-mv-bind? Ag glil-mv-bind-vars Bg glil-mv-bind-rest Cg
<glil-unbind> Dg make-glil-unbind Eg glil-unbind? Fg
<glil-source> Gg make-glil-source Hg glil-source? Ig glil-source-props Jg <glil-void> Kg make-glil-void Lg
glil-void? Mg <glil-const> Ng make-glil-const Og glil-const? Pg glil-const-obj Qg <glil-lexical> Rg make-glil-lexical Sg
glil-lexical? Tg glil-lexical-local? Ug glil-lexical-boxed? Vg glil-lexical-op Wg glil-lexical-index Xg <glil-toplevel> Yg make-glil-toplevel Zg glil-toplevel? [g glil-toplevel-op \g glil-toplevel-name ]g
<glil-module> ^g make-glil-module _g glil-module? `g glil-module-op ag glil-module-mod bg glil-module-name cg glil-module-public? dg <glil-label> eg make-glil-label fg glil-label? gg glil-label-label hg
<glil-branch> ig make-glil-branch jg glil-branch? kg glil-branch-inst lg glil-branch-label mg <glil-call> ng make-glil-call og
glil-call? pg glil-call-inst qg glil-call-nargs rg <glil-mv-call> sg make-glil-mv-call tg
glil-mv-call? ug glil-mv-call-nargs vg glil-mv-call-ra wg
<glil-prompt> xg make-glil-prompt yg glil-prompt? zg glil-prompt-label {g glil-prompt-escape-only? |g
parse-glil }g unparse-glil ~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|} a g set-current-module g format f
#<glil ~s> g
print-glil g make-record-type f <glil-program> g meta g body g record-predicate g make-procedure-with-setter g record-accessor g record-modifier f <glil-std-prelude> g nreq g nlocs g
else-label f <glil-opt-prelude> g nopt g rest f <glil-kw-prelude> g kw g allow-other-keys? f <glil-bind> g vars f <glil-mv-bind> f
<glil-unbind> f
<glil-source> g props f <glil-void> f <glil-const> g obj f <glil-lexical> g local? g boxed? g op g index f <glil-toplevel> g name f
<glil-module> g mod g public? f <glil-label> g label f
<glil-branch> g inst f <glil-call> g nargs f <glil-mv-call> g ra f
<glil-prompt> g escape-only? g prompt g error f invalid glil g mv-call g call g branch g module g private g public g toplevel g lexical g const g void g source g unbind g mv-bind g bind g
kw-prelude g opt-prelude g std-prelude g program g map f unhandled recordC 5 h4 v ]4
~5 4 > " G } h ]4 56 g x
g port g filenamef language/glil.scm
Q
R R R g nameg
print-glil CR4ii5 R h - 1 3 C g meta
g body g defrec-98ee61a7034-32d g filenamef language/glil.scm
T
g nameg make-glil-program C R4i i5 R4i4i i54i i55 R4i4i i54i i55!R4ii5"R" h - 1 3 C g nreq
g nlocs g
else-label g defrec-98ee61a7034-32f g filenamef language/glil.scm
T
g nameg make-glil-std-prelude C#R4i"i5$R4i4i"i54i"i55%R4i4i"i54i"i55&R4i4i"i54i"i55'R4ii5(R( h - 1 3 C g nreq
g nopt g rest g nlocs g
else-label g defrec-98ee61a7034-331 g filenamef language/glil.scm
T
g nameg make-glil-opt-prelude C)R4i(i5*R4i4i(i54i(i55+R4i4i(i54i(i55,R4i4i(i54i(i55-R4i4i(i54i(i55.R4i4i(i54i(i55/R4ii50R0 h - 1 3 C g nreq
g nopt g rest g kw g allow-other-keys? g nlocs g
else-label g defrec-98ee61a7034-333 g filenamef language/glil.scm
T
g nameg make-glil-kw-prelude C1R4i0i52R4i4i0i54i0i553R4i4i0i54i0i554R4i4i0i54i0i557R4i4i0i54i0i555R4i4i0i54i0i556R4i4i0i54i0i558R4i4i0i54i0i559R4ii5:R: h - 1 3 C g vars
g defrec-98ee61a7034-335 g filenamef language/glil.scm
T
g nameg make-glil-bind C;R4i:i5<R4i4i:i54i:i55=R4ii5>R> h - 1 3 C g vars
g rest g defrec-98ee61a7034-337 g filenamef language/glil.scm
T
g nameg make-glil-mv-bind C?R4i>i5@R4i4i>i54i>i55AR4i4i>i54i>i55BR4ii5CRC h - 1 3 C g defrec-98ee61a7034-339
g filenamef language/glil.scm
T
g nameg make-glil-unbind CDR4iCi5ER4ii5FRF h - 1 3 C g props
g defrec-98ee61a7034-33b g filenamef language/glil.scm
T
g nameg make-glil-source CGR4iFi5HR4i4iFi54iFi55IR4ii5JRJ h - 1 3 C } g defrec-98ee61a7034-33d
g filenamef language/glil.scm
T
g nameg make-glil-void CKR4iJi5LR4ii5MRM h - 1 3 C g obj
g defrec-98ee61a7034-33f g filenamef language/glil.scm
T
g nameg make-glil-const CNR4iMi5OR4i4iMi54iMi55PR4ii5QRQ h - 1 3 C g local?
g boxed? g op g index g defrec-98ee61a7034-341 g filenamef language/glil.scm
T
g nameg make-glil-lexical CRR4iQi5SR4i4iQi54iQi55TR4i4iQi54iQi55UR4i4iQi54iQi55VR4i4iQi54iQi55WR4ii5XRX h - 1 3 C g op
g name g defrec-98ee61a7034-343 g filenamef language/glil.scm
T
g nameg make-glil-toplevel CYR4iXi5ZR4i4iXi54iXi55[R4i4iXi54iXi55\R4ii5]R] h - 1 3 C g op
g mod g name g public? g defrec-98ee61a7034-345 g filenamef language/glil.scm
T
g nameg make-glil-module C^R4i]i5_R4i4i]i54i]i55`R4i4i]i54i]i55aR4i4i]i54i]i55bR4i4i]i54i]i55cR4ii5dRd h - 1 3 C g label
g defrec-98ee61a7034-347 g filenamef language/glil.scm
T
g nameg make-glil-label CeR4idi5fR4i4idi54idi55gR4ii5hRh h - 1 3 C g inst
g label g defrec-98ee61a7034-349 g filenamef language/glil.scm
T
g nameg make-glil-branch CiR4ihi5jR4i4ihi54ihi55kR4i4ihi54ihi55lR4ii5mRm h - 1 3 C g inst
g nargs g defrec-98ee61a7034-34b g filenamef language/glil.scm
T
g nameg make-glil-call CnR4imi5oR4i4imi54imi55pR4i4imi54imi55qR4ii5rRr h - 1 3 C g nargs
g ra g defrec-98ee61a7034-34d g filenamef language/glil.scm
T
g nameg make-glil-mv-call CsR4iri5tR4i4iri54iri55uR4i4iri54iri55vR4ii5wRw h - 1 3 C g label
g escape-only? g defrec-98ee61a7034-34f g filenamef language/glil.scm
T
g nameg make-glil-prompt CxR4iwi5yR4i4iwi54iwi55zR4i4iwi54iwi55{Rxsnie^YRNKGD?;1)# | + h
]" z" " \" " ]" " " " L" " s" " x" " " 3" " q $ b & H$ 9 $ ( 6 6 6 6 6 6 $ 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
g x
g vx W g vy W g vx p g vy p g vx g vy g vx g vy g vx g vy g vx g vy g vx % q g vy % q g vx > i g vy > i g vx O e g vy O e g vx g vy g vx g vy g vx g vy g vx g vy g vx g vy g vx % g vy % g vx > g vy > g vx W g vy W g vx h g vy h g vx y g vy
y g vx @ g vy @ g vx 8 g vy 8 g vx 0 g vy 0 g vx , g vy , g vx ( g vy
( g vx Q g vy Q g vx j g vy j g vx { g vy { g vx ( g vy ( g vx g vy g vx g vy g vx g vy g vx g vy
g vx 9 n g vy 9 n g vx R f g vy R f g vx g vy g vx g vy g vx g vy g vx g vy g vx # o g vy # o g vx < g g vy < g g vx M c g vy M c g vx g vy g vx f g vy f g vx ^ g vy ^ g vx Z g vy Z g vx V g vy V g vx R g vy
R g vx N g vy N g vx
J g vy J g vx & F g vy & F g vx w g vy w g vx g vy g vx g vy g vx g vy g vx g vy
g vx g vy g vx | g vy | g vx 2 t g vy 2 t g vx C p g vy C p g vx T l g vy T l g vx g vy g vx g vy }g filenamef language/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 g nameg
parse-glil C|R !}"%&'(+,-./03475689:=>ABCFIJMPQTUVWX[\]`abcdghklmpqruvwz{ U h d ]A & "4 54 5 45C& '4 54 54
5 C & =4
54 54 54 54 5 C& S4 54 54 54 54 54 54 5 C & 4 5 C & 4 54! 5 " C#& $C%& 4& 5 ' C(& )C*& 4+ 5 , C-& 24. 54/ 540 541 5 2 C3& 44 545 5 6 C7& >48 549 54: 54; 5 <$ =" > C?& 4@ 5 A CB& 4C 54D 5 E CF& 4G 54H 5 I CJ& 4K 54L 5 M CN& $4O 5 4P > " G QRCST 6\ g glil
g rtd g meta 1 g body 1 g nreq N ` g nlocs N ` g
else-label N ` g nreq g nopt g rest g nlocs g
else-label g nreq g nopt g rest g kw g allow-other-keys? g nlocs g
else-label g vars g vars - ; g rest - ; g props U _ g obj y g local? g boxed? g op g index g op g name g op ' g mod ' g name ' g public? ' g label 6 @ g inst V d g label V d g inst z g nargs z g nargs g ra g label *g filenamef language/glil.scm
# & / 9 V h 3 C E N Y g i r } # & / : H \ l - g nameg unparse-glil C}RC n g m
, g filenamef language/glil.scm
Q
T
+ n
4
4
C6 PK ! Ts s language/bytecode/spec.gonu [ GOOF----LE-8-2.0[ ] + 4 h ] g guile g define-module* g language g bytecode g spec
g filenameS f language/bytecode/spec.scm g importsS
g system g base
g vm g objcode
g exportsS g set-current-module g bytecode->objcode g compile-objcode g objcode->bytecode g decompile-objcode g invalidate-compilation-cache! g
make-language !g nameS "g titleS #f Guile Bytecode Vectors $g readerS %g read &g printerS 'g write (g compilersS )g decompilersS *g for-humans?SC 5 h ]4
5 4 > " G h ]4 5D g x
g e g opts g filenamef language/bytecode/spec.scm
g nameg compile-objcode C R h ]4 5D g x
g e
g opts
g filenamef language/bytecode/spec.scm
g nameg decompile-objcode C R4 i> " G 4 i!"#$% h y ] 6q g port
g env g filenamef language/bytecode/spec.scm
! ! # C&'i( i ) i *5RC g m
, g filenamef language/bytecode/spec.scm
# $
C6 PK ! &ҬXN N language/ecmascript/base.gonu [ GOOF----LE-8-2.0N ]0 4 h} ] g guile g define-module* g language g
ecmascript g base
g filenameS f language/ecmascript/base.scm g importsS
g oop g goops
g exportsS g *undefined* g *this* g <js-object> g *object-prototype* g js-prototype g js-props g
js-prop-attrs g js-value g js-constructor g js-class g pget g prop-keys g
prop-attrs g prop-has-attr? !g pput "g
has-property? #g pdel $g object->string %g object->number &g object->value/string 'g object->value/number (g
object->value )g ->primitive *g ->boolean +g ->number ,g ->integer -g ->int32 .g ->uint32 /g ->uint16 0g ->string 1g ->object 2g
call/this* 3g call/this 4g lambda/this 5g define-js-method 6g
new-object 7g new 8 !"#$%&'()*+,-./01234567 % 9g set-current-module :9 ;9 <g make-unbound =< >< ?g
make-fluid @g defined? A@ B@ Cg is-a? DC EC Fg <generic> GF HF Ig toplevel-define! JI KI Lg ensure-generic ML NL Og
make-class Pg prototype Qg getterS Rg init-keywordS Sg prototypeS Tg
init-thunkS Ug props Vg init-formS Wg make-hash-table XW Yg
init-valueS Zg value [g valueS \g constructor ]g constructorS ^g class _f Object `g classS ag nameS bg <class> cb db eg memq fg <object> gf hf ig class-precedence-list ji ki lg class-redefinition ml nl og make po qo rg add-method! sr tr ug <method> vu wu xg specializersS yg formalsS zg o {z |g bodyS }g hash-map->list ~g lambda g k g v ~ z } g make-procedureS g procedureS g <string> g p z g string->symbol z g <top> g let g h g hashq-get-handle g if g cdr g proto z g or g attrs z g and g hashq-ref g quote g attr z z e z g ReadOnly z g throw g ReferenceError z g
hashq-set! !z g
DontDelete z g begin !z #z " g with-fluid* g make-syntax-transformer g macro g $sc-dispatch g _ g any ጤ g
syntax->datum g
datum->syntax g syntax-violation f -source expression failed to match any pattern g this g fluid-ref g toString g format f [object ~A] g toLocaleString g valueOf g hasOwnProperty g
isPrototypeOf g propertyIsEnumerable g DontEnum g
procedure? g TypeError g
default-value g number? g nan? g string? g
string-length g boolean? e +nan.0 g string->number g inf? g inexact->exact g round f undefined f null
f true f false f NaN
f 0 f Infinity g number->string g Boolean g String g Number g map g slot-set! g initargs z g ctor z g not 7 z !oS "z! #" $g new-o %g apply &3z% '$& (' )C$ *)$z +(* ,#+ - , .- /. C 5 h7 ]4
85 4; > " G 4>5 R4?i5 R4B5 $ " 4EiH5 $ 14K4N4B5$ i" 5> " G " 4B5 $ " 4EiH5 $ 14K4N4B5$ i" 5> " G " 4B5 $ " 4EiH5 $ 14K4N4B5$ i" 5> " G " 4B5 $ " 4EiH5 $ 14K4N4B5$ i" 5> " G " 4B5 $ " 4EiH5 $ 14K4N4B5$ i" 5> " G " 4B 5 $ " 4E iH5 $ 14K 4N4B 5$ i" 5> " G " " b4K4Oi PQiRST h O ] C G g filenamef language/ecmascript/base.scm
*
C UQiVXTW h P ] 6H g filenamef language/ecmascript/base.scm + '
C QiY ZQiYR[ \QiYR] ^Q iY_R` a5> " G " 4B5$ 4Eid5$ ~4eih4ki55$ `4ni4Oi PQiRST h O ] C G g filenamef language/ecmascript/base.scm
*
C UQiVXTW h P ] 6H g filenamef language/ecmascript/base.scm + '
C QiY ZQiYR[ \QiYR] ^Q iY_R` a5> " G " "
" "" "4B 5 $ " i $ !4K 4qHa 5> " G " 4t i4qwxi y{|} h n ] C f g k
g v g filenamef language/ecmascript/base.scm
2 C h n ]4 56 f g o
g filenamef language/ecmascript/base.scm
1
2 # 2 C5 > " G 4B 5 $ " i $ !4K 4qHa 5> " G " 4t i4qwxii y| h } ] 456 u g o
g p g filenamef language/ecmascript/base.scm
4
5
5 C5 > " G 4B 5 $ " i $ !4K 4qHa 5> " G " 4t i4qwxi y| h8 ]44 55 $ C4 5 $ 6C g o
6 g p 6 g h 6 g proto # 6 g filenamef language/ecmascript/base.scm
7
8 8 8 8 9 : ; # ; + <
3 = 6 C5 > " G 4B 5 $ " i $ !4K 4qHa 5> " G " 4t i4qwxi y| hP ]
4 5 $ 44 55" $ C4 5 $ 6C g o
K g p K g attrs ' g t ' K g proto 9 K g filenamef language/ecmascript/base.scm
@
A A B B B B ' A 3 C 9 C A D I E J F K C5 > " G 4B 5 $ " i $ !4K 4qHa 5> " G " 4t i4qwxi y|e h ]4 56 g o
g p g attr g filenamef language/ecmascript/base.scm
H
I
I C5 > " G 4B!5 $ " !i $ !4K!4qHa!5> " G " 4t!i4qwxi y| h0 ]4 5$
64 56 g o
* g p * g v * g filenamef language/ecmascript/base.scm
K
L L
L L M
M N * N
* C5 > " G 4B!5 $ " !i $ !4K!4qHa!5> " G " 4t!i4qwxii y|! h ] 456 g o
g p g v g filenamef language/ecmascript/base.scm
P
Q
Q C5 > " G 4B#5 $ " #i $ !4K#4qHa#5> " G " 4t#i4qwxi y| ! h0 ]4 5$ C4 > " G C g o
+ g p + g filenamef language/ecmascript/base.scm
S
T T
T T W + C5 > " G 4B#5 $ " #i $ !4K#4qHa#5> " G " 4t#i4qwxii y|# h ] 456 g o
g p g v g filenamef language/ecmascript/base.scm
Z
[
[ C5 > " G 4B"5 $ " "i $ !4K"4qHa"5> " G " 4t"i4qwxi y|" h0 ]
44 55$ C4 5 $ 6C g o
/ g p / g proto / g filenamef language/ecmascript/base.scm
]
^ ^ ^ ^ ` ` % a - b
/ C5 > " G h ] 6 g this
g f g filenamef language/ecmascript/base.scm
e
f g nameg
call/this* C2R43~ h - 1 3 C g this
g f g args g filenamef language/ecmascript/base.scm
h
i
C h p ] 4 5 L 4?6h g args
g v g filenamef language/ecmascript/base.scm h
C h( n ] 4 5 $ O @ 6 f g y
' g tmp ' g filenamef language/ecmascript/base.scm
h
' C53R44~ h - 1 3 C w g formals
g body g filenamef language/ecmascript/base.scm
j
k
C h p ] 4 5 L 4?6h g args
g v g filenamef language/ecmascript/base.scm j
C h( n ] 4 5 $ O @ 6 f g y
' g tmp ' g filenamef language/ecmascript/base.scm
j
' C54R45!4 h( - 1 3 C g object
" g
name-and-args " g body " g filenamef language/ecmascript/base.scm
l
m m m m 5 m "
C h p ] 4 5 L 4?6h g args
g v g filenamef language/ecmascript/base.scm l
C h( n ] 4 5 $ O @ 6 f g y
' g tmp ' g filenamef language/ecmascript/base.scm
l
' C55RR4oii5i 4!ii h s ][ 4 56 k g this
g filenamef language/ecmascript/base.scm s
s s
C> " G 4!ii h } - 1 3 456 u g args
g filenamef language/ecmascript/base.scm
u u u u
C> " G 4!ii h ] [C
C> " G 4!ii h ] [ 445 5$ CC g p
g this g filenamef language/ecmascript/base.scm y y y y C> " G 4!ii h y ] [ 4 5C q g v
g this g filenamef language/ecmascript/base.scm
{ { C> " G 4!ii h( ] [ 445 5$
4 5CC g p
( g this ( g filenamef language/ecmascript/base.scm } } } } ~ " ~ # $ ~ % ~ ( C> " G h ] L 6
CC h` U ]4 5 45$ 54 O 5 $ 45$
6CC$
6 CM g o
` g error? ` g toString ` g x ( M g filenamef language/ecmascript/base.scm
( 0
1 = A E " G S W [ ] ` g nameg object->string C$R h ] L 6
CC h` T ]4 5 45$ 54 O 5 $ 45$
6CC$
6 CL g o
` g error? ` g valueOf ` g x ( M g filenamef language/ecmascript/base.scm
( 0
1 = A E " G S W [ ] ` g nameg object->number C%RC% h ]4 5$ 6 C g o
g filenamef language/ecmascript/base.scm
g nameg object->value/string C&RC$ h ]4 5$ 6 C g o
g filenamef language/ecmascript/base.scm
g nameg object->value/number C'R& h ] 6z g o
g filenamef language/ecmascript/base.scm
g nameg
object->value C(RC( h ]4 5$ 6 C g x
g filenamef language/ecmascript/base.scm
g nameg ->primitive C)R h 3 ] $ { ( " l $ " V4 5$
$ " 4 5 " $ " 4 5$
4 5
" " C + g x
g t g t 5 M g t R | g filenamef language/ecmascript/base.scm
' 1 4 5 D * R a k l t g nameg ->boolean C*RC% +
hh ]4 5$ C4 5$
$ C
C (
C & C4 5$ 64 5$ 6
6 g x
g g filenamef language/ecmascript/base.scm
! + 7 9 E L M W ] a e " g g g nameg ->number C+R+ h@ ] 4 5 45$
C
$ C45$ C456 g x
< g n < g filenamef language/ecmascript/base.scm
$ . 4 < < g nameg ->integer C,R+ hx P ]4 5 45 $ "
$ " 45 $
C 4455
$
CC H g x
s g n s g t = g t # : g m Y s g filenamef language/ecmascript/base.scm
" # 1 A L M ) P 9 X ) Y Y ^ c
n o s g nameg ->int32 C-R+ h` ]4 5 45 $ "
$ " 45 $
C 4455C
g x
Z g n Z g t = g t # : g filenamef language/ecmascript/base.scm
" # 1 A L M P 0 X Y Z g nameg ->uint32 C.R+ h` ]4 5 45 $ "
$ " 45 $
C 4455C
g x
Z g n Z g t = g t # : g filenamef language/ecmascript/base.scm
" # 1 A L M P 0 X Y Z g nameg ->uint16 C/R
0& h U ] & C ( C4 5$ $ CC4 5$ C4 5$ -4 5$
C
$ C4 5$
C 64 56 M g x
~ g filenamef language/ecmascript/base.scm
! ' ) , # . 8 < F G Q S W \ ^ ` j l s v ~ ~ g nameg ->string C0R1oS[ hx
] &
6 (
64 5$
64 5$
64
5$
6 C g x
r g filenamef language/ecmascript/base.scm
$ 1 " ' $ % / = > H V W a o r g nameg ->object C1Ro! h ~ ]L 6 v g pair
g filenamef language/ecmascript/base.scm
C h0 - 1 3 45 4O > " G C g pairs
. g o . g filenamef language/ecmascript/base.scm
.
g nameg
new-object C6R4ii\6i> " G 4B75 $ " 7i $ !4K74qHa75> " G " t7i4qwxy|/oS h ] LL @
CC7 hp @ - 1 3 4 5 $ L44 5 $ " 5 4 O 5 4
5$ CC
6 8 g o
n g initargs n g ctor n g t & 9 g o ; d g new-o O d g filenamef language/ecmascript/base.scm
# & ; ; > O
R ^ h j n n
C5 6
g m
, g t
F b g t
g t
g t
Q m g t
g t
g t
f { g t
g t
g t
g t
g t
g t
C X g t
s g t
g t
g t
5U 5j g filenamef language/ecmascript/base.scm
- % / % 1 % 4 %
5 & > &
? (
/ ( (
) / ( 9 (
_ 1
4
7
@
H
K
< P
l S
Z
]
e
o
p p
r
I t
v
W x
/ z
|
"
#
$
%M
&
'
)
*
,
.@
/
1
3
50
51
5< 5E
5N
4 7
C6 PK ! 4 & language/ecmascript/compile-tree-il.gonu [ GOOF----LE-8-2.0 ]\ 4 h ] g guile g define-module* g language g
ecmascript g compile-tree-il
g filenameS f 'language/ecmascript/compile-tree-il.scm g importsS
g tree-il
g ice-9 g receive g system g base g pmatch g srfi g srfi-1 g exportsS g set-current-module ! " #g make-syntax-transformer $# %# &g -> 'g macro (g $sc-dispatch )( *( +g any ,g each-any -+, .+- /g
syntax-object 0g
quasiquote 1g top 21 3g ribcage 4g dummy 5g type 6g arg 7456 8g m-14365c91dc5cf6c7-1 981 :922 ;f l-14365c91dc5cf6c7-6 <f l-14365c91dc5cf6c7-7 =f l-14365c91dc5cf6c7-8 >;<= ?37:> @3 Ag x BA C9 Df l-14365c91dc5cf6c7-3 ED F3BCE G2?@F Hg hygiene IH J/0GI Kg map LK MK Ng unquote O/NGI Pg syntax-violation QP RP Sf -source expression failed to match any pattern Tg @implv U++ Vg sym W4V Xg m-14365c91dc5cf6c7-e YX1 ZY2 [f l-14365c91dc5cf6c7-13 \f l-14365c91dc5cf6c7-14 ][\ ^3WZ] _Y `f l-14365c91dc5cf6c7-10 a` b3B_a c2^@b d/&cI eg @ f/ecI gg quote h/gcI i/cI j/cI kg impl l/kcI mijl nhm og @impl p+- q4V6 rg m-14365c91dc5cf6c7-18 sr1 ts22 uf l-14365c91dc5cf6c7-1d vf l-14365c91dc5cf6c7-1e wf l-14365c91dc5cf6c7-1f xuvw y3qtx zs {f l-14365c91dc5cf6c7-1a |{ }3Bz| ~2y@} /&~I g apply /~I /T~I g empty-lexical-environment g lexical g econs g assq-ref g toplevel g lookup g
parse-tree-il g begin k g js-init g comp g source-properties g location g
pmatch/source g let g clause 4A g m-14365c91dc5cf6c7-4d 1 22 f l-14365c91dc5cf6c7-52 f l-14365c91dc5cf6c7-53 f l-14365c91dc5cf6c7-54 3 f l-14365c91dc5cf6c7-4f 3B 2@ /I g res /I /I g loc /I /I g if /I g set-source-properties! /I g make-parameter g current-return-tag g abort g error f return outside function g const g return g gensym f return g
parameter? g scm-error g wrong-type-arg f parameterize f Not a parameter: ~S g primitive g make-prompt-tag g prompt f val g lambda-case g k g val g with-return-prompt g block f compilation not yet implemented: g for-in f %enum f
%continue g %enum g %continue g letrec g make-enumerator g lambda g ->boolean g pget g & g length g & o o g = g var N g call/this N g pop g & N 0 g e g statement g & & & g *undefined* T & g for g true g while g do f %loop g %loop g typeof g void g delete g aref g pdel g pref
g new g ^= g ^
g bor= g bor g &= g & g >>>= g >>> g <<= g << g >>= g >> g %= g % g *= g * g /= g / g -= g - g += g + !g pput "g ref #g set! $g object %g
new-object &g cons 'f bad prop-val pair (g array )g new-array *g call +g
call/this* ,g
string-append -g symbol->string .f /g comp-body 0 1g define 2f bad var form 3g predec 4g preinc 5g postdec 6g inline 7g set 8g postinc 9g or :g and ;g bior <g bxor =g band >g !== ?g not @g eqv? Ag === Bg != Cg equal? Dg == Eg in Fg
has-property? Gg >= Hg > Ig <= Jg < Kg shift Lg mod Mg ! Ng logical-not Og ~ Pg bitwise-not Qg ->number Rg this Sg get-this Tg string Ug number Vg false Wg null Xg reverse! Yg memq Zg reverse [g foldC 5 h ]4
5 4" > " G 4%&'*.JMO h > ] C 6 g tmp-14365c91dc5cf6c7-c
C h P ]45 C H g dummy
g type g arg CRS h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef 'language/ecmascript/compile-tree-il.scm
" g
macro-typeg syntax-rulesg patternsg typeg argg ... C5&R4%T'*Udfnh h > ] C 6 g dummy
g sym CRS h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef 'language/ecmascript/compile-tree-il.scm
" g
macro-typeg syntax-rulesg patternsg sym C5TR4%o'*p h O ] C G g dummy
g sym g arg CRS h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef 'language/ecmascript/compile-tree-il.scm
!
" g
macro-typeg syntax-rulesg patternsg symg argg ... C5oR h ] C g filenamef 'language/ecmascript/compile-tree-il.scm
$
%
g nameg empty-lexical-environment CR h ] C g name
g gensym g env g filenamef 'language/ecmascript/compile-tree-il.scm
'
( ( g nameg econs CR h ]
4 5 $ C C g name
g env g t g filenamef 'language/ecmascript/compile-tree-il.scm
*
+ + , g nameg lookup CRe h0 ]4 4 45 5 5D g exp
, g env , g opts , g filenamef 'language/ecmascript/compile-tree-il.scm
.
0 1 1 2 2 ! 2 $ 1 & 0 , / , g nameg compile-tree-il CR h ] $ 4 5 ( CCC g x
g props g filenamef 'language/ecmascript/compile-tree-il.scm
6
7 7
8 8 9 g nameg location CR4%'*p hX P ] C H g dummy
R g x R g clause R R CRS h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef 'language/ecmascript/compile-tree-il.scm
?
" g
macro-typeg syntax-rulesg patternsg xg clauseg ... C5R4i5R h0 ] 45 $ " 45 C g expr
0 g t ! g filenamef 'language/ecmascript/compile-tree-il.scm
J
K K K
K & K - K & & L
( M
) M , M
/ K
0 g nameg return CR h ]45 45$ " 4 > " G 4
5Y
45 4 5 45 45 ZCZF g
body-thunk
g tag g t-14365c91dc5cf6c7-67
g val | g filenamef 'language/ecmascript/compile-tree-il.scm
O
P
P P
P
Q F R H R ! M R O Q S S U S Z S \ T ^ T ` T / c T f T i T k U l U q V v W & z W . | W & | W X Y " Y ; Y " Z % Z 2 Z % Y " X U S & g nameg with-return-prompt CRe
K h t ] L 6 l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
C
!"#$%&' h` ( ]! $ N $ 5 ( 4L 5 C 6 6 6 g x
_ g vx W g vy W g vx O g vy O g filenamef 'language/ecmascript/compile-tree-il.scm
~ , " . - 0 < 3 - 5 - ; - F " K ) O " S ) W " [ ) _ " _ C() h t ] L 6 l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
{
{ "
C* h t ] L 6 l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
v
v "
C h t ] L 6 l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
r
r ,
C h t ] L 6 l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
m
m ,
C+,-. h ]44 556 g x
g filenamef 'language/ecmascript/compile-tree-il.scm
Z [ " [ 1 [ D [ " [ Ce h t ] C l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
_ ' _ 3 C/ h d ] LLLL 6 \ g filenamef 'language/ecmascript/compile-tree-il.scm
a b
C h t ] L 6 l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
X
X "
C01e2 h ]1 $ $ H ( 4L 5 C ( C 6 ( C 6 6 g form
g vx g vy g vx b g vy b g vx ? b g vy ? b g vx f g vy f g filenamef 'language/ecmascript/compile-tree-il.scm
K L , N / N $ : N = L K P O P $ Y P ^ Q " b Q d L r P v P $ P Q " Q Q " Q C3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW h8 N ]4 > " G " 8," 8" 7" 7" 7B" 7 " 6" 64" 5" 5^" 4" 4D" 3" 3*" 2" 2 " 1x" 0" 0^" /" /D" ." .(" -" -" ,i" +" +K" *" *"" )Y" (" (" &" %" #" "" !w" "
" " " /" " !" " " I" " " " _" _" ]" " q" '" " P" " " "
"
_" " S" " G"
"
;" " /" " #" " " " v" " " " s" } $ i & D$ 0 (
45" 64 5" 6 4 5" 64 5" 6 4 5" 6} $ & $ $ $ ( x454 5 4
4
55
4
5 " 5
" " " "" " $ b & F$ ; $ $ $
( 4 5 4
5
$ 4
5 " 4
5 4
54$ "
5 4$ "
5 " 4^
"V
"L "B "8 "."* " $ & $ $ ( 4 5 4
5
4 5 4 5 " 3U "I "? "5"1 "' $ !& $ $ ( 4"54 5 4
#4
55
$ 4
5 4
5 # # " 2.
" " "" " $ \ %& @$ 5 ( % 45 " 1" "" " $ \ && @$ 5 ( 45 " 1M"; "1"- "# $ '& $ $ (& n$ c $ H
( .( $) 454
5 " 0""
"x "n"j "` "V"R "H $ '& $ $ *& l$ a $ F
( ,( ") 45+
" /""
" "" " "}"y "o $ ,& c$ X $ = ( #, 4-.O 5 " /!" " "" " $ w /& [$ P $ 5 ( 401 5" ."} "s "i"e "[ $ w 2& [$ P $ 5 ( 403 5" . " " "" " $ w 4& [$ P $ 5 ( 405 5" -"q "g "]"Y "O $ w 6& [$ P $ 5 ( 407 5" -" " "" " $ w 8& [$ P $ 5 ( 409 5" ,"e "[ "Q"M "C $ w :& [$ P $ 5 ( 40; 5" ," " "" " $ w <& [$ P $ 5 ( 40= 5" +"Y "O "E"A "7 $ w >& [$ P $ 5 ( 40? 5" +" " "" " $ w @& [$ P $ 5 ( 40A 5" *"M "C "9"5 "+ $ w B& [$ P $ 5 ( 40C 5" *
" " "" " $ w D& [$ P $ 5 ( 40E 5" )"A "7 "-") " $ 0& $ $ (& $ $ l
( R$ G
( -F 454
54 5 " ("h
"^"Z
"P "F"B "8 "."* " $ 0& $ $ *& $ $ j
( P$ E
( +F 45+
4 5 " '"k
"a"]
"S "I"E "; "1"- "# $ 0& $ $ G& s$ h ( N$ C
( )4H5 I 4
5 " & "
"w"s "i"e "[ "Q"M "C $ (& d$ Y $ > ( $J 4545 " &0" " "" " $ ~ *& b$ W $ < ( "J 45+ " %"I "? "5"1 "' $ ; K& L 4-MO 5" %I" " $ ; N& O 4-PO 5" %" " $ S Q& 7$ , ( 4R455" $"I "?"; "1 $ { S& _$ T $ 9 ( 454-TO 5" $7" " "" " $ S& $ $ (& $ $ o
( U$ J
( 04U454
54-VO 55" #_"
""
" "" " "" " $ S& $ $ *& $ $ m
( S$ H
( .4U45+
4-WO 55" "c"
""
" "" " "" " $ U& r$ g $ L X J " ! " "" " $ & $ z $ _ ( E4-Y5 4-Z5 4[\O 5 " "z "p "f"b "X $ 1 & 4-]O 5" "" " $ N & 2$ ' (
45" Y" "" " $ , & ( ^" "" " $ 1 _& 4-`O 5" "J "@ $ N G& 2$ ' (
4H5" " "" " $ a& t$ i $ N (& 2$ ' $
( ( 45 45
b
4
5 45 b cC J
+ 45 b F
"
""~
"t "j"f "\ "R"N "D $ ` a& D$ 9 $ *& $ $
( ( 45 45
b
cC J
+
+ 45 b F
+
"
""
" "" " "" " $ a& $ $ G& c$ X ( >( 44H5
I
cC
+
"
"9"5 "+"' " "" " $ d& t$ i $ N (& 2$ ' $
( ( 45 45
b
4
5 45 b cE J
+ 45 b F
" L
""
" "" "~ "t"p "f $ ` d& D$ 9 $ *& $ $
( ( 45 45
b
cE J
+
+ 45 b F
+
"
"5"1
"' " " " "" " $ d& $ $ G& c$ X ( >( 44H5
I
cE
+
"
"["W "M"I "? "5"1 "' $ e& o$ d $ I (& -$ " $
( ( 45 45
b
4
5 45 b J
45 b F
fC + "
""
" ""ޯ "ޥ "ޛ"ޗ "ލ $ ` e& D$ 9 $ *& $ $
( ( 45 45
b
J
+
45 b F
+
cC + "
"\"X
"N "D"@ "6 ","( " $ e& $ $ G& $ ( v( l4G 5
45 b
g4H5cC + "
"J"F "<"8 ". "$" " $ h& t$ i $ N (& 2$ ' $
( ( 45 45
b
4
5 45 b J
45 b F
cE + " u
"ڵ"ڱ
"ڧ "ڝ"ڙ "ڏ "څ"ځ "w $ ` h& D$ 9 $ *& $ $
( ( 45 45
b
J
+
45 b F
+
cE + "
"F"B
"8 "."* " "" " $ h& $ $ G& $ ( v( l4G 5
45 b
I4H5cE + "
"4"0 "&"" " ""
" $ & r$ g $ L ( 2 45 45 " K"ׅ "{ "q"m "c $ & $ $ g $ L ( 2 45 4545 " " " " "ֹ"ֵ "֫ $ i& $ $ x ( ^45 45 b 45 "
" " "" " $ j& o$ d $ I ( / 45 45+ "
<"j "` "V"R "H $ 3& d$ Y $ > ( $k 4545 " " " "" "Թ $ 1& d$ Y $ > ( $l 4545 " &"L "B "8"4 "* $ 5& d$ Y $ > ( $m 4545 " "ӽ "ӳ "ө"ӥ "ӛ $ n& n$ c $ H ( .co cp 4545 " "$ " "" " $ ~ q& b$ W $ < ( "cp 4545 "
}"җ "ҍ "҃" "u $ r& n$ c $ H ( .co cs 4545 " " " "" " $ ~ t& b$ W $ < ( "cs 4545 " _"q "g "]"Y "O $ u& d$ Y $ > ( $v 4545 " " " "" " $ ~ w& b$ W $ < ( "cw 4545 " K"U "K "A"= "3 $ ~ x& b$ W $ < ( "cx 4545 " " "Ͼ "ϴ"ϰ "Ϧ $ ~ y& b$ W $ < ( "cy 4545 " 9"; "1 "'"# " $ ~ z& b$ W $ < ( "cz 4545 " "ή "Τ "Κ"Ζ "Ό $ ;& i$ ^ $ C ( ){ 454C 5 " " " "" " $ 9& d$ Y $ > ( ${ 4545 " "͋ "́ "w"s "i $ =& d$ Y $ > ( $| 4545 "
" " "" " $ ~ ?& b$ W $ < ( "c? 4545 " "o "e "["W "M $ ~ A& b$ W $ < ( "cA 4545 " " " "" " $ ~ C& b$ W $ < ( "cC 4545 " o"U "K "A"= "3 $ ~ E& b$ W $ < ( "cE 4545 " " "ʾ "ʴ"ʰ "ʦ $ \ }& @$ 5 ( ~ 45 " u"S "I"E "; $ \ & @$ 5 ( 45 " " "" " $ ` C& D$ 9 ( cC +
45 " "y "o"k "a $ n E& R$ G ( -cE 45 +
" *" "" " & " " $ L & 0$ % ( + " " "u"q "g $ L & 0$ % ( + " ^"$ "" " &
+ " 0" &
+ " " &
+ " "Ǿ 4 5 $ 44 5> " G " C N g x
8 g e 8 g vx m g vy m g vx g vy g vx g vy g vy g vx g vy g vy ! g %enum ; g %continue ; g e
S g vx 8 g vy 8 g vx * g vy * g vx g vy g vx g vy g vx
( g vy ( g %continue 9 g e
F g vx I - g vy I - g vx b g vy b g vx s g vy s g %continue g e g vx > W g vy > W g vx W I g vy W I g vx h ? g vy h ? g %loop 5 g %continue 5 g e
/ g vx h g vy h g vx g vy g vx % g vy % g vx g vy g vx 6 g vy 6 g vx O g vy O g vx ` g vy ` g vx y g vy y g vx
g vy g vx
g vy
g vx & g vy & g vx 7 g vy 7 g vx P g vy P g vx
a g vy a g vx [ g vy [ g vx M g vy M g vx C g vy C g vx l g vy l g vx g vy g vx g vy g vx
_ g vy
_ g vx
Q g vy
Q g vx
G g vy
G g vx
p
g vy
p
g vx
g vy
g vx
g vy
g vx
c g vy
c g vx U g vy U g vx K g vy K g vx t g vy t g vx g vy g vx g vy g vx g g vy g g vx Y g vy Y g vx O g vy O g vx x g vy x g vx g vy g vx g vy g vx
k g vy
k g vx
] g vy
] g vx
$
S g vy
$
S g vx
|
g vy
|
g vx
g vy
g vx
g vy
g vx
o g vy
o g vx a g vy a g vx ( W g vy ( W g vx g vy g vx g vy g vx g vy g vx g vy g vx g vy g vx , g vy , g vx E g vy E g vx
V g vy V g vx m g vy
m g vx g vy g vx g vy g vx ' g vy ' g vx @ g vy @ g vx
Q g vy Q g vx h g vy
h g vx g vy g vx g vy g vx g vy g vx 9 g vy 9 g vx
P g vy P g v c g vx L g vy L g vx > g vy > g vx 4 g vy 4 g vx ] g vy ] g vx v g vy v g vx g vy g vx g vy g vx , a g vy , a g vx r g vy r g vx g vy g vx E g vy E g vx 7 g vy 7 g vx - g vy - g vx V C g vy V C g vx o 5 g vy o 5 g vx + g vy + g vx g vy g vx
g vy g vx g vy
g vx T ? g vy T ? g vx m 1 g vy m 1 g vx ~ ' g vy ~ ' g vx g vy g vx
g vy g vx g vy
g vx P g vy P g vx i g vy i g vx z g vy z g vx g vy g vx v g vy v g vx l g vy l g syms & b g vx g vy g vx g vy g vx g vy g vx * P g vy * P g vx a g vy a g vx g vy g vx g vy g vx g vy g vx r g vy r g vx h g vy h g vx 9 Z g vy 9 Z g vx
J P g vy J P g what c B g sym
j ? g what 5 g sym 2 g what , g sym ) g vx g vy g vx g vy g vx g vy g vx g vy g vx
g vy g what g sym
g what H g sym O g vx g vy g vx g vy g vx & g vy & g vx ? g vy ? g v
X g vx R g vy R g vx D g vy D g vx : g vy : g vx , g vy , g vx
" g vy " g what 5 g sym
< g what X g sym _ g what g sym g vx c g vy c g vx | g vy | g vx g vy g vx g vy g vx
g vy g what g sym
| g what r g sym ! o g vx g vy g vx { g vy { g vx q g vy q g vx c g vy c g v
* U g vx " g vy " g vx " g vy " g vx " g vy " g vx ! g vy ! g vx
! g vy ! g what ! ! g sym
! ! g what !* ! g sym !1 ! g what !d ! g sym !k ! g vx "0 # g vy "0 # g vx "I #| g vy "I #| g vx "Z #r g vy "Z #r g vx "s #d g vy "s #d g vx
" #Z g vy " #Z g what " #L g sym
" #I g what " #? g sym " #< g vx # $ g vy # $ g vx # $ g vy # $ g vx # $v g vy # $v g vx # $h g vy # $h g what
# $Z g sym $ $W g vx $ &) g vy $ &) g vx $ & g vy $ & g vx $ & g vy $ & g vx $ & g vy $ & g vx
$ % g vy $ % g what % % g sym
% % g what %/ % g sym %6 % g what %i % g sym %p % g vx &: ' g vy &: ' g vx &S ' g vy &S ' g vx &d '| g vy &d '| g vx &} 'n g vy &} 'n g vx
& 'd g vy & 'd g what & 'V g sym
& 'S g what & 'I g sym & 'F g vx ' ( g vy ' ( g vx ' ( g vy ' ( g vx ' ( g vy ' ( g vx ' (r g vy ' (r g what
( (d g sym (
(a g vx ( )1 g vy ( )1 g vx ( )# g vy ( )# g vx ( ) g vy ( ) g vx )B ) g vy )B ) g vx )[ ) g vy )[ ) g vx )l ) g vy )l ) g vx )} ) g vy )} ) g vx ) * g vy ) * g vx * * g vy * * g vx * * g vy * * g what *3 * g sym *: * g vx * +@ g vy * +@ g vx * +2 g vy * +2 g vx * +( g vy * +( g vx +Q + g vy +Q + g vx +j + g vy +j + g vx +{ + g vy +{ + g vx + ,V g vy + ,V g vx + ,H g vy + ,H g vx , ,> g vy , ,> g vx ,g , g vy ,g , g vx , , g vy , , g vx , , g vy , , g vx , -v g vy , -v g vx - -h g vy - -h g vx - -^ g vy - -^ g vx - - g vy - - g vx - - g vy - - g vx - - g vy - - g vx . . g vy . . g vx .) . g vy .) . g vx .: .| g vy .: .| g vx . / g vy . / g vx . / g vy . / g vx . / g vy . / g vx /. / g vy /. / g vx /G / g vy /G / g vx /X / g vy /X / g vx / 01 g vy / 01 g vx / 0# g vy / 0# g vx / 0 g vy / 0 g vx 0B 0 g vy 0B 0 g vx 0[ 0 g vy 0[ 0 g vx 0l 0 g vy 0l 0 g vx 0 1C g vy 0 1C g vx 0 15 g vy 0 15 g vx 0 1+ g vy 0 1+ g vx 1T 1 g vy 1T 1 g vx 1m 1 g vy 1m 1 g vx 1~ 1 g vy 1~ 1 g vx 1 2\ g vy 1 2\ g vx 1 2N g vy 1 2N g vx 2 2D g vy 2 2D g vx 2m 2 g vy 2m 2 g vx 2 2 g vy 2 2 g vx 2 2 g vy 2 2 g vx 2 3r g vy 2 3r g vx 3 3d g vy 3 3d g vx 3" 3Z g vy 3" 3Z g vx 3 3 g vy 3 3 g vx 3 3 g vy 3 3 g vx 3 3 g vy 3 3 g vx 4 4 g vy 4 4 g vx 4% 4v g vy 4% 4v g vx 46 4l g vy 46 4l g vx 4 5
g vy 4 5
g vx 4 4 g vy 4 4 g vx 4 4 g vy 4 4 g vx 5 5 g vy 5 5 g vx 57 5 g vy 57 5 g vx 5H 5~ g vy 5H 5~ g vx 5 5 g vy 5 5 g vx 5 5 g vy 5 5 g vx 6 6d g vy 6 6d g vx 6' 6V g vy 6' 6V g vx 6u 6 g vy 6u 6 g vx 6 6 g vy 6 6 g vx 6 7H g vy 6 7H g vx 6 7: g vy 6 7: g vx 7w 7 g vy 7w 7 g vx 7 7 g vy 7 7 g vx 7 8 g vy 7 8 g vx 7 8 g vy 7 8 g res 8Z 8 g loc 8c 8 Fg filenamef 'language/ecmascript/compile-tree-il.scm
\
] f f . 2 4 5 9 ; ; @ D G & K - Q & S S W Y ` * b l 4 w y z ) | # ~ ( # " / " f 3 7 9 9 < @ F F J L Q $ S T ) V # X ( Z + ` 3 b 7 l H w 7 | 7 = 7 3 > > D L > > I V I > 3 3 + ( # " ( 1 " " - : - " f ~ $ ) # ( + 3 D 3 3 > > I V I > 3 3 + ( # " / " f s w y z ~ & - & * ) # ( + 1 1 < I < 1 + ( # ) # ( + 3 D 3 3 > K > 3 3 + ( # " / " " % ( 9 f f
f f s } f " 0 2 5 = f
f
#
'
9
A f
f ' +
= E f
f + /
A I f
f
/
3
E
M f
f 3 7
I Q f
f y f t ~ f [ c g i l w | f & . f f } } ~ } f : z < z D { R z [ f x x x f u u v u ' f p p
p q r p
p f k k
k l m k
k f d f f g i g f d f Z & Z * ] 3 _ " @ ] A ` U ] f f X X X f V f > T F f o J p K ~ J f H f [ 9
c 9 f _ j _ n ` s ` x ` } ` ' ~ ; ; _ _ ` ` ` ` ' = = * = 9 = * > * ? 1 @ 1 > * A * = = _ _ ` ` ` ` ' d C ! D ( E (
F ( C ! e # d & ` F f ,
, _ _ ` ` ` ` ' . . " . 1 ! . " # / " . 0 ) 7 1 ) ? / " A 2 " H . H . K _ O _ S ` X ` ] ` b ` ' d d f 4 q 5 z 6 7 4 e d ` f P $ X $ \ % ^ & b ' d ' # f ' 2 i ' # m ) # t ' w & | % f -
5 8 _ < _ @ ` E ` J ` O ` ' P X [ _ _ _ c ` h ` m ` r ` ' t v * x 9 { * } * 1 1 * * _ _ ` ` ` ` ' d ! ( ! ( " ( ! e d ` f
_ _ ` ` ` ` ' " 1 " "
) ) " " _ ! _ % ` * ` / ` 4 ` ' 6 d 8 C % L S ] _ e i d l ` f " * . 0 4 6 $ 8 3 ; $ ? $ F I N Y f
! !
_ ! _ ! ` ! ` ! ` !! ` ' !" !* !- _ !1 _ !5 ` !: ` !? ` !D ` ' !F !Q & !Z & !d !d !g _ !k _ !o ` !t ` !y ` !~ ` ' ! d ! ! ! ( ! ( ! ( ! - ! 0 ! - ! ( ! ! ! e ! d ! ` ! f "
" " _ " _ " ` " ` " ` " ` ' " " " " " " _ " _ " ` " ` " ` " ` ' " d " " # # # + # : # + # + # + #' #* #, e #6 d #9 ` #P f # # # # # _ $ _ $ ` $ ` $ ` $ ` ' $ d $ $ $% $' % $) 4 $, % $. % $7 % $> $A $C e $M d $P ` $^ f %
% % _ % _ % ` % ` %! ` %& ` ' %' %/ %2 _ %6 _ %: ` %? ` %D ` %I ` ' %K %V & %_ & %i %i %l _ %p _ %t ` %y ` %~ ` % ` ' % d % ! % ( % ( % ( % 3 % B % 3 % 3 % 3 % ( % ! % e % d % ` % f &
& & _ & _ & ` & ` & ` & ` ' & & & & & & _ & _ & ` & ` & ` & ` ' & d & ' ' ' ' + ' : ' + '! + '* + '1 '4 '6 e '@ d 'C ` 'Z f ' ' ( ( ( _ (
_ ( ` ( ` ( ` ( ` ' (" d ($ (% (/ (1 & (3 5 (6 & (8 & (A & (H (K (M e (W d (Z ` (h f ( ( ( ( ( ) ) ) f ) ) ) ) ) ) ) ) f *+
*3 *6 _ *: _ *> ` *C ` *H ` *M ` ' *O *Q *\ ( *f *h *p *{ *~ ` * f * * * + + + + +" f + + + + + f , , ,% ,0 ,8 f , , , , , f -( -* -, ! -/ -1 -3 -5 , -8 -9 -B ( -M -P -X f - - - ! - - ) - 4 - - f .F .H .J ! .M .O .Q .S , .V .W .` ( .k .n .v f . . . ! . . + . 6 . . f /d /n /w ' / / f / / / ! / / ' 0 2 0 0 f 0x 0z 0| ! 0 0 & 0 1 0 0 f 1 1 1 ! 1 1 ' 1 2 1 1% f 1 1 1 ! 1 1 & 1 1 1 1 f 2 2 2& 2* % 23 26 2> f 2 2 2 2 2 f 3. 38 3A 3L 3T f 3 3 3 ! 3 3 & 3 1 3 3 f 4B 4D 4F ! 4I 4J & 4S 1 4^ 4f f 4 4 4 ! 4 4 & 4 1 4 4 f 5T 5V 5X ! 5[ 5\ & 5e 1 5p 5x f 5 } 5 } 5 } 5 f 63 { 6= { 6H { 6P f 6 y 6 y 6 y ! 6 y 6 y & 6 y 5 6 y 6 f 7 u 7 u 7 u ! 7 u 7 v 7 v " 7# v 7% w 7, u 74 f 7V s 7j f 7 q 7 f 7 o 8 f 8" m 8. f 88 k 8D f 8N i 8O i 8R i 8Z f 8 g nameg comp CRX"Y h ][" " " " " 7 $ " ( 45DC $ = $ (4L> G "u"" $ 5 $ & "9"E"A"= $ E $ 0 & ( """"" $ $ & $ $ }
$ h
( T 4 5
$ " 4 L 5
$ " "&"*"&""" """ $ $ & y$ n $ Y
( E4 5 $ " 4 L 5 $ " "s"s"o"k"g"c"_ z g in
g out g rvars g vx # : g vy # : g vx Z g vy Z g sub-out s g rvars s g vx g vy g vx ! g vy ! g vx g vy g vx 2 g vy 2 g vx C g vy C g vx \ g vy \ g vx m g vy
m g vx ~ g vy ~ g t
g vx g vy g vx g vy g vx / g vy / g vx @ g vy
@ g t ] v #g filenamef 'language/ecmascript/compile-tree-il.scm
. 0
: / @ A 3 K 3 M a ( e f *
k * r *
v ) , + $ " $ 1 $ 9 $ &
% #
$
! L
U ] k $ z
- g nameg lp CZK,-. h ]44 556 g x
g filenamef 'language/ecmascript/compile-tree-il.scm
8 9 9 / 9 B 9 9 C[e h t ] C l g x
g filenamef 'language/ecmascript/compile-tree-il.scm
< < + C
hp ],O Q 4> G 45 45 44 55 454 5 C g e
p g body p g formals p g formal-syms p g lp g out p g rvars p g names - p g syms 8 p g e R p
g filenamef 'language/ecmascript/compile-tree-il.scm
( " 5 ' 7 - 7 0 8 8 7 ; ; @ ; R ; R 7 V < [ < d = o < p g nameg comp-body C/RC g m
, g filenamef 'language/ecmascript/compile-tree-il.scm
$
'
z *
.
6
~ H H
J
O
\
C6 PK ! S]4 4 language/ecmascript/parse.gonu [ GOOF----LE-8-2.0z4 ]z 4 ho ] g guile g define-module* g language g
ecmascript g parse
g filenameS f language/ecmascript/parse.scm g importsS
g system g base g lalr
g tokenize g exportsS g read-ecmascript g read-ecmascript/1 g make-parser g set-current-module g throw g syntax-error g
lexical-token ! " #g and=> $g "source-location->source-properties %g make-tokenizer &g make-tokenizer/1 'g call-with-input-string (f )g read-char *g *eof-object* +g lr-driver ,g *default* -g *error* .,- /g *eoi* 0/ % 1g lbrace 21 $ 3g lparen 43 # 5g lbracket 65 " 7g dot 87 ! 9g semicolon :9 ;g + <; =g - >= ?g ++ @? Ag -- BA Cg ! DC Eg ~ FE Gg break HG Ig new JI Kg var LK Mg return NM Og void PO Qg for RQ Sg switch TS Ug while VU Wg continue XW Yg function ZY [g this \[ ]g with ^] _g if `_
a bg delete cb dg try ed
fg do gf hg typeof ih jg null kj lg true ml ng false on pg
Identifier qp rg
StringLiteral sr tg NumericLiteral ut vg
RegexpLiteral wv x.02468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw & y, zy {, |{ }, ~} , g colon P , , , 1 S Y R p Q .468<>@BDFJP\cikmosuw .2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw % 1 W . 3 [ . 3 \ . , 3 ^ p ] . 9 ` p _ . 3 a . 3 b . 3 c . 9 e .468<>@BDFJP\cikmosuw p g . .468J\kmosuw 9 m p l . , t t . g rbracket v g comma u .468<>@BDFJP\cikmosuw g rbrace ~ p } r | t { .2468:<>@BDFHJLNPRTVX\^`acegikmow & , 9 . , , . , 2 g or g ? , 6 g && , : g bor , > g ^ , B g & , F g == g != g === g !== , P g < g > g <= g >= g
instanceof g in , ] g << g >> g >>> , a = ; , d g * g % g / , h , r , u ?
A g =
g +=
g -= g *= g %= g <<= g >>= g >>>= g &= g bor= g ^= !g /= "! #
" $, v %3 &5 '7 ($%&' ), w *) +, ,5 -7 .+%,- /, 0/ 1, 21 3, 43 5, 65 7, 87 9, :9 ;, <; =, >= ?, @? A, BA C, DC E, FE G, HG I, JI K, LK M, NM O, PO Q, RQ S, TS2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw % U, VU W, XW Y, ZY [/ \.[ ] ^p _.^ `p ar bt c.`ab d, o ed f
gU h.g ig finally ji kg catch lk m.jl n, q on p9 q.p r3 s.r tg rparen ut vp w.uv x9 y.x z, {z |9 }K ~.468|<>@BDFJ}P\cikmosuw , p , 9 . , , , , 9 . , , j , i , m , n , k , l , , , , .468<>@BDFJP\cikmosuw . t . { } , . . .2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw & , , , ( , , , ! , " , # , $ , ' , ) , % , & , * , s , t p . t .468<>@BDFJP\cikmosuw , ~ p . , , , g accept / , 3 . , , , 3
. 3 . , , j , t . t . t .v , 1 .
t .
,
t . t . p . 9 .468<>@BDFJP\cikmosuw 9 . , , , , 0 ! ", 4 # $"# %, 8 & ! '%& (, < ) " *() +, @ , # -+, ., D / ' 0 & 1 % 2 $ 3./012 4, K 5 , 6 + 7 * 8 ) 9 ( :456789 ;, V <; = - >
"= ?, @? A, BA C, DC E, FE G, HG I, JI K, LK M 1 N.46M8<>@BDFJP\cikmosuw O, PO Q, RQ S.`ab T, UT V, WV X, YX Z, [Z \ 6 ].\ ^, 5 _^ `, 9 a` b, = cb d, A ed f, E gf h, L ih j, M kj l, N ml n, O on p, X qp r, W sr t, Y ut v, Z wv x, [ yx z, \ {z |, ^ }| ~, _ ~ , ` , b , c , f , e , g , - , | 7 . , { , y t 9 8 . , : . t ; .v p > . , , 1 A . t B . , 2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw % p E . 1 F . 1 H . , , K 9 M L . t N .468<>@BDFJP\cikmosuw 9 P . 9 S .468<>@BDFJP\cikmosuw , , , , f .468<>@BDFJP\cikmosuw , h . , } , z , 1 k . t l . t m . t n . , g else o , 1 q . r . , 2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw % , , v g case u g default t . , , 9 | .468<>@BDFJP\cikmosuw t . t .468<>@BDFJP\cikmosuw , t .468<>@BDFJP\cikmosuw 9 . . , 3 # , 7 & , ; ) , ?
, , C /012
, G
56789 , H 56789 , I 56789 , J 56789 , Q , R , S , T , U t . !, + "! #, $# %, &% ', 1 (' ), x *) +1 ,.+ -9 ..- / 0./ 1, 21 3 4.3 5 6.5 7, 87 9 :.9 ;, <; = >.= ?t @.? A, BA Ct D.4C68<>@BDFJP\cikmosuw E9 F.E G, HG It J.I Kt L.K Mt N.4M68<>@BDFJP\cikmosuw O, PO Q R.Q S, TS U, VU W, XW Y, Z [ \! ] ^ _ ` a b c d e f g
h i j k l m n o p q r s t u v w x y z { | }YZ[\]^_`abcdefghijklmnopqrstuvwxyz{| $ ~ .~ , , 2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw % . , . , . , t . t .468<>@BDFJP\cikmosuw , , , t . , / , , . , !
$ , 2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw % , 2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw % , , , , t . , , , , , 2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw % , , , , xz|~#(*.02468:<>@BDFHJLNPRTVXZ\]_cefhmoqswy{~. !$'*-3:<>@BDFHJLNPRSUWY[]_acegikmoqsuwy{}#
"$&(*,.02468:<>@BDFHJLNPRTVX} I & F ' D ( B ) @ * > + < , : - 8 . 6 / 5 0 4 1 3 2 2 3 1 4 0 5 - 6 , 7 + 8 ( 9 % : $ ; ! < = > ? @ A B C D E
F G H
I J K L M N O
* 2 T 0 U
V
& X 2 Y
I Z 2 d !
" I f #" $ h % i &$% ' , j ( + k )'( * 2 n +*
, 2 o -,
. 2 p /.
0 2 q 10
2 2 r 32
4 2 s 54
6 F w 7 ' x 8 & y 9678 : I z ;: < * = ) >
? @<=
>
? ) A H BA C . DC E . FE G H
G ( I J
I & K<= L
>
? ' M # N " OMN P I QP R I SR T Ō UT V I nj WV X I Ȍ YX Z J ˌ [ G ̌ \ E ͌ ] C Ό ^ A ό _ ? Ќ ` = ь a ; Ҍ b 9 ӌ c 7 Ԍ d 5 Ռ e 0 fZ[\]^_`abcde g ٌ hg i . ی ji k F ߌ lk m 猤 n
m & o F 茤 po q F 錤 rq s @ ꌤ ts u > 댤 vu w < 쌤 xw y : 팤 zy { 8 |{ } 6 ~} 6 6 6 5
5
5
5
5
5
3 3 3 3 3 2
2
2
F I F / I #
I H . F / 0 F 2 ' 3 F 4 * 5 < I = ?
& @
& C D
* G
& I J I O G Q 0 R \]^_`abcd I T G U \]^_`abcd A V _`abcd ? W `abcd = X abcd ; Y bcd 9 Z cd 7 [ d 7 \ d 7 ] d 7 ^ d 5 _
5 `
5 a
5 b
5 c
I d G e \]^_`abcd F g F i F j p
* s
* w x y
I z
{
I } ~
& I I F
*
&
* I ! " #" $ % &$% ' I (' ) *
) & + ,
+ & - .
- & / I 0/ 1 G 21\]^_`abcd 3 4
3 & 5 6
5 * 7
8
7
? ' 9% : ;
: & < =
< & > I ?> @ A
@ & B C
B & D E
D & F
G
F
? ' H I
H & J K
J & L M
L & N O
N & Pg lambda Qg append RQ SQ Tg begin UT Vg block Wg for-in Xg ref YW ZG [M \ ]g label ^ _g string `g regexp ag number bg string->number cg
string-append df . eg number->string fg array gf hg unquote-splicing ig $2 jhi kfj la
ml ng object on pg string->symbol qg aref rg pref s tg call ug postinc vg postdec wg preinc xg predec yg andC 5 h ]4
5 4 > " G "#$ hp - . , 3 # "
6$ <& / 4 5 $ "
6"" g message
m g token m g t M b g filenamef language/ecmascript/parse.scm
!
& ! & ) - 0 :
>
D H
M M
_ e m g nameg syntax-error C R% h ] 45 4 56 g port
g parse g filenamef language/ecmascript/parse.scm
#
$ $ % % g nameg read-ecmascript CR& h ] 45 4 56 g port
g parse g filenamef language/ecmascript/parse.scm
'
( ( ) ) g nameg read-ecmascript/1 CR4'i()i5*R+ !#&)+-/1359;@BDFHJKLOQSUWYfhjlnprtvxz|~
!#&(*,.024689;=?ACEGIKMO" h ] $ &
" " $ & " " $ & " " $ & " " C g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $1 p C" hX ] $ & " " $ & " " 6 g ___stack
T g ___sp T g
___goto-table T g ___push T g
yypushback T g tok T g $1 + T T C"* hP ]
$ &
" " $ & " " 6 g ___stack
O g ___sp O g
___goto-table O g ___push O g
yypushback O g tok O O C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"KP h p ]M $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" " 6 h g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $6 p g tok g tok g tok
! g tok f g $2 g tok
g filenamef language/ecmascript/parse.scm K Y C"KP h` ]] $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
"
"
$
&
" " $ &
" " $ & " "
$
&
"
"
$
&
" " $ &
" " $ & " " 6 g ___stack
Z g ___sp Z g
___goto-table Z g ___push Z g
yypushback Z g tok Z g tok M Z g $7 p Z g tok Z g tok Z g tok
! Z g $4 D Z g tok k Z g tok
Z g $2 Z g tok Z g filenamef language/ecmascript/parse.scm ? L m Z C"P h K ]= $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6 C g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $5 p g tok g tok g tok
! g tok f g filenamef language/ecmascript/parse.scm M M C"P h ^ ]E $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " "
$ &
" " $ & " " 6 V g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $6 p g tok g tok g tok
! g tok f g tok
g filenamef language/ecmascript/parse.scm N X C"P h p ]M $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
"
"
$
&
" " $ &
" " $ & " "
$
&
" "
$
&
" " 6h g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $6 p g tok g tok g tok
! g $3 D g tok k g tok
g filenamef language/ecmascript/parse.scm O a C"P hP ]U $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
"
"
$
&
" " $ &
" " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6 { g ___stack
K g ___sp K g
___goto-table K g ___push K g
yypushback K g tok K g tok M K g $7 p K g tok K g tok K g tok
! K g $4 D K g tok k K g tok
K g tok K g filenamef language/ecmascript/parse.scm : P l K C" hX ] $ & " " $ & " " 6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T Q ' X C"S h $ ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 4 56 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm R A C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"TS h a ]% $ & " " $ & " " $ & " " $ & " " "
" 0$ %& 4 5" "" " 6 Y g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm V 9 T 4 T = T 4 T M T V T 8 U 9 U C U 9 C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U CU h ]
6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g filenamef language/ecmascript/parse.scm X C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"V h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6
g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm i * C" hX ] $ & " " $ & " "
6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"TS h a ]% $ & " " $ & " " $ & " " $ & " "
"
" 0$ %& 4 5" "" " 6 Y g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm m 3 k . k 7 k . k G k P k 2 l 3 l = l 3 C"K h ] $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm o 6 C" hX ] $ & " " $ & " " 6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T p 4 X C"S h $ ]- $ &
" " $ & " " $ & " " $ & " " $ & " " $ & " " 4 56 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g $1
g filenamef language/ecmascript/parse.scm q R C" hX ] $ & " " $ & " "
6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T r < X C"S h $ ]- $ &
" " $ & " " $ & " " $ & " " $ & " " $ & " "
4 56 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g $1
g filenamef language/ecmascript/parse.scm s ^ C" hX ] $ & " " $ & " " 6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T t ' X C" h ]% $ & " " $ & " " $ & " " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm u 3 C" hX ] $ & " " $ & " " 6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T v + X C" h ]% $ & " " $ & " " $ & " " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm w 7 C" h ] $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R C" h ] $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R C"U hP ]
$ &
" " $ & " " 6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L { ! P C" h ] $ &
" " $ & " " $ & " " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $1 p C"_ h ]U $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" "
$ &
" " $ & " "
6 z g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $7 + g tok R g tok g $5 g tok
g tok & g $3 I g tok
p g tok g filenamef language/ecmascript/parse.scm I C"_ hx K ]= $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6 C g ___stack
v g ___sp v g
___goto-table v g ___push v g
yypushback v g tok v g $5 + v g tok R v g tok v g $3 v g tok
v g tok & v g filenamef language/ecmascript/parse.scm k : v C"f h r ]M $ &
" " $ & " " $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" " 6j g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g tok g $5 g tok g tok
! g tok f g $2 g tok
g filenamef language/ecmascript/parse.scm Q C"U hx K ]= $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6 C g ___stack
v g ___sp v g
___goto-table v g ___push v g
yypushback v g tok v g $5 + v g tok R v g tok v g $3 v g tok
v g tok & v g filenamef language/ecmascript/parse.scm k D v C"Q h L ]= $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6 D g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $6 + g tok R g tok g tok g tok
! g tok f g filenamef language/ecmascript/parse.scm K C"Q h q ]M $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " $ &
" " $ & " "
$
&
" "
$
&
" "
6 i g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $7 + g tok R g tok g $5 g tok
g tok & g tok k g tok
g filenamef language/ecmascript/parse.scm V C"Q h q ]M $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ & " "
$ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
" "
$
&
" "
6 i g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $7 + g tok R g tok g tok g $4
g tok & g tok k g tok
g filenamef language/ecmascript/parse.scm V C"Q hX ]] $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" "
$ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
S g ___sp S g
___goto-table S g ___push S g
yypushback S g tok S g $8 + S g tok R S g tok S g $6 S g tok
S g tok & S g $4 I S g tok
p S g tok S g tok S g filenamef language/ecmascript/parse.scm ? a S C"Q h q ]M $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
"
"
$
&
" " $ &
" " $ & " "
$
&
" "
$
&
" " 6 i g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $7 + g tok R g tok g tok g tok
! g $3 D g tok k g tok
g filenamef language/ecmascript/parse.scm Z C"Q hX ]] $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " $ & " "
$ & " "
$ &
" " $ & " " $ &
" " $ & " "
6 g ___stack
S g ___sp S g
___goto-table S g ___push S g
yypushback S g tok S g $8 + S g tok R S g tok S g $6 S g tok
S g tok & S g tok k S g $3
S g tok S g tok S g filenamef language/ecmascript/parse.scm ? e S C"Q hX ]] $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ & " "
$ & " " $ &
" " $ & " " $ & " "
$ & " "
$ &
" " $ & " " $ &
" " $ & " "
6 g ___stack
S g ___sp S g
___goto-table S g ___push S g
yypushback S g tok S g $8 + S g tok R S g tok S g tok S g $5
S g tok & S g tok k S g $3
S g tok S g tok S g filenamef language/ecmascript/parse.scm ? e S C"Q h ]m $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" "
$ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $9 + g tok R g tok g $7 g tok
g tok & g $5 I g tok
p g tok g $3 g tok g tok D g filenamef language/ecmascript/parse.scm p C"QK hP ]U $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " "
$
&
"
"
$
&
" " $ &
" " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6| g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g $8 + P g tok R P g tok P g tok P g tok
! P g $4 D P g tok k P g tok
P g tok P g filenamef language/ecmascript/parse.scm : k P C"QK h ]e $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " $ & " "
$ & " "
$ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " "
6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $9 + g tok R g tok g $7 g tok
g tok & g tok k g $4
g tok g tok g tok ? g filenamef language/ecmascript/parse.scm v C"QK h ]e $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ & " "
$ & " " $ &
" " $ & " " $ & " "
$ & " "
$ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " "
6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $9 + g tok R g tok g tok g $6
g tok & g tok k g $4
g tok g tok g tok ? g filenamef language/ecmascript/parse.scm v C"QK h ]u $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" "
$ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " "
6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $10 + g tok R g tok g $8 g tok
g tok & g $6 I g tok
p g tok g $4 g tok g tok D g tok g filenamef language/ecmascript/parse.scm C"W h ]U $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" "
$ &
" " $ & " "
6 { g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $7 + g tok R g tok g $5 g tok
g tok & g $3 I g tok
p g tok g filenamef language/ecmascript/parse.scm \ C"TKWX hh ]] $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " "
$
&
" "
$
&
" "
$ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
a g ___sp a g
___goto-table a g ___push a g
yypushback a g tok a g $8 + a g tok R a g tok a g $6 a g tok
a g tok & a g $4 I a g tok
p a g tok a g tok a g filenamef language/ecmascript/parse.scm ? a a C"W h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm 8 C"Y h ] $ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm - C"G h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm 2 C"Z h ] $ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm ' C"M h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm 4 C"[ h ] $ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm ) C"] hx K ]= $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6 C g ___stack
v g ___sp v g
___goto-table v g ___push v g
yypushback v g tok v g $5 + v g tok R v g tok v g $3 v g tok
v g tok & v g filenamef language/ecmascript/parse.scm k > v C"S hx K ]= $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " 6 C g ___stack
u g ___sp u g
___goto-table u g ___push u g
yypushback u g tok u g $5 + u g tok R u g tok u g $3 u g tok
u g tok & u g filenamef language/ecmascript/parse.scm k B u C" h ] $ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm C" h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok C"S h8 8 ]5 $ &
" " $ & " " $ & " " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " 4 5 6 0 g ___stack
7 g ___sp 7 g
___goto-table 7 g ___push 7 g
yypushback 7 g tok 7 g tok M 7 g $3 p 7 g tok 7 g $2 7 g tok
7 g filenamef language/ecmascript/parse.scm % : 7 C" h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm . C"S h8 8 ]5 $ &
" " $ & " " $ & " " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " 4 5 6 0 g ___stack
7 g ___sp 7 g
___goto-table 7 g ___push 7 g
yypushback 7 g tok 7 g tok M 7 g $3 p 7 g tok 7 g $2 7 g tok
7 g filenamef language/ecmascript/parse.scm % : 7 C" hX ] $ & " " $ & " " 6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T X C"S h ]% $ & " " $ & " " $ & " " $ & " " 4 5 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm + C" h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm ) C" h8 8 ]5 $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " 6 0 g ___stack
7 g ___sp 7 g
___goto-table 7 g ___push 7 g
yypushback 7 g tok 7 g $4 + 7 g tok R 7 g tok 7 g $2 7 g tok
7 g filenamef language/ecmascript/parse.scm & 7 7 C"\ h ] $ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm $ C" h ]% $ & " " $ & " " $ &
" " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g filenamef language/ecmascript/parse.scm 2 C"] h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm 5 C" h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm 2 C"d^ h $ ]- $ & " " $ & " " $ & " " $ & " " $ &
" " $ & " " !6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g $2 u g tok
g filenamef language/ecmascript/parse.scm % C"d h $ ]- $ & " " $ & " " $ & " " $ & " " $ &
" " $ & " " ! 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g $2 u g tok
g filenamef language/ecmascript/parse.scm ' C"d h@ I ]= $ & " " $ & " " $ & " " $ & " " $ & " "
$ & " " $ &
" " $ & " " !
6 A g ___stack
> g ___sp > g
___goto-table > g ___push > g
yypushback > g tok > g $4 + > g tok R > g $3 u > g tok > g $2
> g tok > g filenamef language/ecmascript/parse.scm + - > C"k hx K ]= $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ &
" " $ & " " " 6 C g ___stack
v g ___sp v g
___goto-table v g ___push v g
yypushback v g tok v g $5 + v g tok R v g tok v g $3 v g tok
v g tok & v g filenamef language/ecmascript/parse.scm k 3 v C"i h ] $ & " " $ & " " $ &
" " $ & " " # 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm C"[ hP ]
$ &
" " $ & " " $6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L P C"j hP ]
$ &
" " $ & " " $6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L P C"l hP ]
$ &
" " $ & " " $6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L P C"n hP ]
$ &
" " $ & " " $6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L P C"X h` ] $ & " " $ & " " $ 6 g ___stack
Z g ___sp Z g
___goto-table Z g ___push Z g
yypushback Z g tok Z g $1 + Z g filenamef language/ecmascript/parse.scm Q % Z C"_ h` ] $ & " " $ & " " $ 6 g ___stack
Z g ___sp Z g
___goto-table Z g ___push Z g
yypushback Z g tok Z g $1 + Z g filenamef language/ecmascript/parse.scm Q ( Z C"` h` ] $ & " " $ & " " $ 6 g ___stack
Z g ___sp Z g
___goto-table Z g ___push Z g
yypushback Z g tok Z g $1 + Z g filenamef language/ecmascript/parse.scm Q ( Z C"a h` ] $ & " " $ & " " $ 6 g ___stack
Z g ___sp Z g
___goto-table Z g ___push Z g
yypushback Z g tok Z g $1 + Z g filenamef language/ecmascript/parse.scm Q ) Z C"abcde h F ] $ & " " $ & " " $ &
" " $ & " " $444555 6 > g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm - 7 G V Z G 7 - C" hX ] $ & " " $ & " " $6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " $6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok C"g h ] $ &
" " $ & " " $ &
" " $ & " " % 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm ' C"k h ] $ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " " %6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g tok g filenamef language/ecmascript/parse.scm / C"f h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " %6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm 3 C"f h0 ' ]- $ &
" " $ & " " $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " % 6 g ___stack
. g ___sp . g
___goto-table . g ___push . g
yypushback . g tok . g tok M . g tok . g $2 . g tok .
g filenamef language/ecmascript/parse.scm ! 9 . C"f hp : ]5 $ &
" " $ & " " $ &
" " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " % 6 2 g ___stack
m g ___sp m g
___goto-table m g ___push m g
yypushback m g tok m g tok M m g tok m g tok m g $2 m g tok
! m g filenamef language/ecmascript/parse.scm f A m C" hX ] $ & " " $ & " " & 6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T ) X C"S h ]% $ & " " $ & " " $ & " " $ & " " &4 5 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm 1 C"S h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " &4 56 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm ; C"S hH I ]= $ & " " $ & " " $ & " " $ & " " $ &
" " $ & " "
$
&
"
"
$
&
" " &4 4 55 6 A g ___stack
F g ___sp F g
___goto-table F g ___push F g
yypushback F g tok F g $4 + F g tok R F g $3 u F g tok F g tok
F g $1 F g filenamef language/ecmascript/parse.scm * C F C"m hP ]
$ &
" " $ & " " '6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L P C"Sm h ] $ &
" " $ & " " $ & " " $ & " " '45 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $1 p g filenamef language/ecmascript/parse.scm C"o h ] $ &
" " $ & " " $ &
" " $ & " " ( 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm $ C"n h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " (6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok g filenamef language/ecmascript/parse.scm = C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " ) 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm I C"S h ] ]E $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " " )4 56 U g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $5 + g tok R g tok g $3 g tok
g tok & g $1 I
g filenamef language/ecmascript/parse.scm o h C" hX ] $ & " " $ & " " *6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"p h` ] $ & " " $ & " " *456 g ___stack
Z g ___sp Z g
___goto-table Z g ___push Z g
yypushback Z g tok Z g $1 + Z g filenamef language/ecmascript/parse.scm P # Z C" hX ] $ & " " $ & " " *6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " +6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " +6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"q h8 8 ]5 $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ & " "
$ & " " +
6 0 g ___stack
7 g ___sp 7 g
___goto-table 7 g ___push 7 g
yypushback 7 g tok 7 g tok M 7 g $3 p 7 g tok 7 g tok 7 g $1
7 g filenamef language/ecmascript/parse.scm & G 7 C"r h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " + 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm 9 C"I h $ ]- $ & " " $ & " " $ & " " $ & " " $ &
" " $ & " " + 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g $2 u g tok
g filenamef language/ecmascript/parse.scm 8 C" hX ] $ & " " $ & " " ,6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"Is h ] $ & " " $ & " " $ &
" " $ & " " , 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm ( C"t h ]% $ & " " $ & " " $ & " " $ & " " - 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm 2 C"t h ]% $ & " " $ & " " $ & " " $ & " " - 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g $1 u g filenamef language/ecmascript/parse.scm 0 C"q h8 8 ]5 $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " $ & " "
$ & " " -
6 0 g ___stack
7 g ___sp 7 g
___goto-table 7 g ___push 7 g
yypushback 7 g tok 7 g tok M 7 g $3 p 7 g tok 7 g tok 7 g $1
7 g filenamef language/ecmascript/parse.scm & C 7 C"r h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " - 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm 5 C" h ] $ &
" " $ & " " $ &
" " $ & " " . 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g filenamef language/ecmascript/parse.scm C" h ]% $ &
" " $ & " " $ & " " $ & " " $ &
" " $ & " " .6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $2 p g tok C" hX ] $ & " " $ & " " / 6 g ___stack
X g ___sp X g
___goto-table X g ___push X g
yypushback X g tok X g $1 + X g filenamef language/ecmascript/parse.scm T * X C"S h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " /4 56 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm = C" hX ] $ & " " $ & " " 06 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 06 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" hX ] $ & " " $ & " " 16 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"u h ] $ &
" " $ & " " $ & " " $ & " " 1 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $1 p g filenamef language/ecmascript/parse.scm 4 C"v h ] $ &
" " $ & " " $ & " " $ & " " 1 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g tok M g $1 p g filenamef language/ecmascript/parse.scm 4 C" hX ] $ & " " $ & " " 26 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"b h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm / C"O h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm - C"h h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm / C"w h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm + C"x h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm + C"; h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm * C"= h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm * C"E h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm * C"C h ] $ & " " $ & " " $ &
" " $ & " " 2 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $2 + g tok R g filenamef language/ecmascript/parse.scm * C" hX ] $ & " " $ & " " 36 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 3 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm L C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 3 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm L C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 3 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm L C" hX ] $ & " " $ & " " 46 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"; h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 4 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm
I C"= h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 4 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm I C" hX ] $ & " " $ & " " 56 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 5 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm D C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 5 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm D C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 5 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm E C" hX ] $ & " " $ & " " 66 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 6 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm D C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 6 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm D C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 6 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm E C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 6 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm E C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 6 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm M C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 6 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm E C" hX ] $ & " " $ & " " 76 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 7 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm L C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 7 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm L C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 7 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm M C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 7 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm M C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 7 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm U C" hX ] $ & " " $ & " " 86 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 8 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm " F C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 8 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm # F C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 8 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm $ G C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 8 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm % G C" hX ] $ & " " $ & " " 96 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 9 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm ( R C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 9 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm ) R C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 9 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm * S C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " 9 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm + S C" hX ] $ & " " $ & " " :6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " : 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm . G C" hX ] $ & " " $ & " " ;6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " ; 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm 0 S C" hX ] $ & " " $ & " " <6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " < 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm 3 I C" hX ] $ & " " $ & " " =6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " = 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm 5 U C" hX ] $ & " " $ & " " >6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " > 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm 8 I C" hX ] $ & " " $ & " " ?6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " ? 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm : U C" hX ] $ & " " $ & " " @6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"y h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " @ 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm = I C" hX ] $ & " " $ & " " A6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"y h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " A 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm ? U C" hX ] $ & " " $ & " " B6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " B 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm B H C" hX ] $ & " " $ & " " C6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " C 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm D T C" hX ] $ & " " $ & " " D6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"_ h ] ]E $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " " D 6 U g ___stack
} g ___sp } g
___goto-table } g ___push } g
yypushback } g tok } g $5 + } g tok R } g tok } g $3 } g tok
} g tok & } g $1 I }
g filenamef language/ecmascript/parse.scm p G d } C" hX ] $ & " " $ & " " E6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"_ h ] ]E $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " "
$
&
" "
$
&
" " $ & " " $ & " " E 6 U g ___stack
} g ___sp } g
___goto-table } g ___push } g
yypushback } g tok } g $5 + } g tok R } g tok } g $3 } g tok
} g tok & } g $1 I }
g filenamef language/ecmascript/parse.scm p I t } C" hX ] $ & " " $ & " " F6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h 6 ]5 $ & " " $ & " " $ & " " $ & " " $ & " "
$ & " " F
6 . g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g $2 u g tok g $1
g filenamef language/ecmascript/parse.scm L \ C" hX ] $ & " " $ & " " G6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C" h 6 ]5 $ & " " $ & " " $ & " " $ & " " $ & " "
$ & " " G
6 . g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g $2 u g tok g $1
g filenamef language/ecmascript/parse.scm N d C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L O P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L P P C"! hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L Q P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L R P C"
hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L S P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L T P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L U P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L V P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L W P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L X P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L Y P C" hP ]
$ &
" " $ & " " H6 g ___stack
P g ___sp P g
___goto-table P g ___push P g
yypushback P g tok P g filenamef language/ecmascript/parse.scm L Z P C" hX ] $ & " " $ & " " I6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"T h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " I 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm ] 9 C" hX ] $ & " " $ & " " J6 g ___stack
U g ___sp U g
___goto-table U g ___push U g
yypushback U g tok U g $1 + U U C"T h % ]- $ & " " $ & " " $ &
" " $ & " " $ & " " $ & " " J 6 g ___stack
g ___sp g
___goto-table g ___push g
yypushback g tok g $3 + g tok R g tok g $1
g filenamef language/ecmascript/parse.scm _ E Cz h q ]
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvJwxyz{|}~''
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy 6 i g filenamef language/ecmascript/parse.scm
.
3
g nameg make-parser CRC g m
, g filenamef language/ecmascript/parse.scm
#
'
, , , +
.
C6 PK ! `cY Y language/ecmascript/tokenize.gonu [ GOOF----LE-8-2.0X ] 4 h ] g guile g define-module* g language g
ecmascript g tokenize
g filenameS f language/ecmascript/tokenize.scm g importsS
g ice-9 g rdelim
g srfi g srfi-1 g selectS g unfold-right g system g base g lalr g exportsS g
next-token g make-tokenizer !g make-tokenizer/1 "g
tokenize/1 # !" $g set-current-module %$ &$ 'g throw (g syntax-error )g and=> *g "source-location->source-properties +g
port-filename ,g port-line -g port-column .g catch /. 0. 1g ftell 2g source-location 32 42 5g port-source-location 6g eof-object? 7g peek-char 8f EOF while reading a token 9g read-delimited :g peek ;g
read-until <g
char-numeric? =g memv >abcdef ?ABCDEF @g char-hex? Ag
char->integer Bg
digit->number Cg
char-downcase Dg hex->number Eg read-char Fg
lexical-token GF HF Ig / Jg char=? Kg read-line Lf EOF while in multi-line comment Mg /= Ng read-regexp Og
read-slash Pg string Qg char-alphabetic? Rg
string-append Sg reverse Tg
RegexpLiteral Uf (regexp literals may not contain newlines Vf Wg
StringLiteral Xf (octal escape sequences are not supported Yf bad hex character escape Zg
integer->char [g string->number \f (string literals may not contain newlines ]g read-string ^f break _g break `^_ af else bg else cab df new eg new fde gf var hg var igh jf case kg case ljk mf finally ng finally omn pf return qg return rpq sf void tg void ust vf catch wv. xf for yg for zxy {f switch |g switch }{| ~f while g while ~ f continue g continue f function g function f this g this f with g with f default g default f if g if f throw ' f delete g delete f in g in f try g try f do g do f
instanceof g
instanceof f typeof g typeof f null g null f true g true f false g false `cfiloruwz} g
*keywords* f abstract g abstract f enum g enum f int g int f short g short f boolean g boolean f export g export f interface g interface Ō f static g static Ȍ f byte g byte ˌ f extends g extends Ό f long g long ь f super g super Ԍ f char g char f final g final ڌ f native g native f synchronized g synchronized f class g class ㌤ f float g float 挤 f package g package 錤 f throws g throws 쌤 f const g const f goto g goto f private g private f transient g transient f debugger g debugger f
implements g
implements f protected g protected f volatile g volatile f double g double f import
g import
f public
g public
g *future-reserved-words* g list->string g assoc-ref f &word is reserved for the future, dude. g string->symbol g
Identifier g read-identifier f error reading exponent: EOF g + g - f !error reading exponent: non-digit e 1.0 g expt e 0.0 f $bad digit reading hexadecimal number f invalid digit in octal sequence g read-numeric !f { "g lbrace #!" $f } %g rbrace &$% 'f ( (g lparen )'( *f ) +g rparen ,*+ -f [ .g lbracket /-. 0f ] 1g rbracket 201 3f . 4g dot 534 6f ; 7g semicolon 867 9f , :g comma ;9: <f < =g < ><= ?f > @g > A?@ Bf <= Cg <= DBC Ef >= Fg >= GEF Hf == Ig == JHI Kf != Lg != MKL Nf === Og === PNO Qf !== Rg !== SQR Tf + UT Vf - WV Xf * Yg * ZXY [f % \g % ][\ ^f ++ _g ++ `^_ af -- bg -- cab df << eg << fde gf >> hg >> igh jf >>> kg >>> ljk mf & ng & omn pf | qg bor rpq sf ^ tg ^ ust vf ! wg ! xvw yf ~ zg ~ {yz |f && }g && ~|} f || g or f ? g ? f : g colon f = g = f += g += f -= g -= f *= g *= f %= g %= f <<= g <<= f >>= g >>= f >>>= g >>>= f &= g &= f |= g bor= f ^= g ^= #&),/258;>ADGJMPSUWZ]`cfilorux{~ . g
*punctuation* f / I f /= M g *div-punctuation* g assv-ref g
string-ref g
string-length g substring f !bad syntax: character not allowed g read-punctuation g *eoi* g NumericLiteral f unexpected right parenthesis g srfi-9 g throw-bad-struct g lexical-token-source g lexical-token-category f unexpected right bracket f unexpected right brace g reverse!C 5h: ]4
#5 4& > " G '()* h - 1 3 456 g what
g loc g form g args g filenamef language/ecmascript/tokenize.scm
g nameg syntax-error C(R+,-01 h [ ] L 6S g filenamef language/ecmascript/tokenize.scm
# # ,
C h h - 1 3 C ` g args
g filenamef language/ecmascript/tokenize.scm
#
C4 h@ ]!4 54 54 54 O 5 C g port
= g input & = g line & = g column & = g offset & = g filenamef language/ecmascript/tokenize.scm
! " # & = g nameg port-source-location C5R67(89: hH 4 ] 4455$ 64 5 4455$
6C , g delims
E g port E g loc E g token & E g filenamef language/ecmascript/tokenize.scm
'
( ( ( ( ) ) * $ * / & * & * ) + , + 4 + 8 + < , B , E g nameg
read-until C;R6<=>? h@ ] 4 5$ C4 5 $ C4 5 $ C 6 g c
= g t = g t * = g filenamef language/ecmascript/tokenize.scm
/
0
0 1 1 " 2 * 1 = 3 = g nameg char-hex? C@RA h ]4 5 0C g c
g filenamef language/ecmascript/tokenize.scm
5
6 6 6
g nameg
digit->number CBR<BAC h( ]4 5$ 6
44 55 aC g c
& g filenamef language/ecmascript/tokenize.scm
8
9
9 : ; ; ! ; # ; 1 $ ; % ; & g nameg hex->number CDRE76HIJK (LMN
h0 % ]4 > " G 4 5 45$ C4/5$ 4 > " G 64*5$ 4 > " G " c45$
64*5$ 54 5/$ 4 > " G 64 5 "4 5 "4 5 "$ 1=$ 4 > " G C C 6 g port
, g loc , g div? , g c1 , g c } g filenamef language/ecmascript/tokenize.scm
=
? @ > B ( A , D 2 D 4 E @ A A F Z G [ H g A h I } J ~ L
K M M
N
K O O O
Q R S S U U
J J J A W X X 4 X Y " # Y , [ + , g nameg
read-slash CORP7JE6Q<RSHT;(UV hx % ]B4/\
5 " G4 5 4/5$ 4 > " G " 45 $ " T45 $ " ;45 $ " #4$5 $ " 4_5 $ 454 5
C4 > " G 4 5 "L4 5 "<4\5$ @4 > " G 4 5 4 544\55 "
64 5 " g port
q g loc q g terms q g str \ g head \ g
terminator \ g c A g flags A g t H g t \ g t q g t g value g echar + R g filenamef language/ecmascript/tokenize.scm
]
_ _ ` a a c
+ b , d
A f
B g H g V h \ h k i q h j h k h g m * n * m $ l l $ l o p p , p f
f f / f
q
b r
% s + s
. t 9 u @ u ( J u R t V w \ w
\ ` ] ` i ` 5 q ` 4 q g nameg read-regexp CNREP7JHW6<(XY@ZD[R;\ hX 5 ]J4 5 4\
5 " (4 5 45$ 4 > " G C4\5$ 4 > " G 4 5 '$ " "$ " \$ " sb$ " df$ " Un$
" Fr$
" 7t$ " (v$ " 0$ <4 5 45$ " 45$ 4
5" " x$ s4 5 4 5 " 4 455" =4 5$ .4 5$ 4
45455" "" " " Xu$ M4 5 4 5 4 5 4 5
4
44
5 55
" 4454 55 " 64 5 " - g port
W g loc W g c W g terms W g str F g
terminator % F g c x g next @ g a T g b ] g a g b g c g d
g echar < g filenamef language/ecmascript/tokenize.scm
z
{ { | | % ( 4
5 J Q S _
` r ~ x ~
# - . 2 7 M
N T
W ]
d h k > u y z $ ) # :
. # % * ! 6 < @ F F G W J W g nameg read-string C]RRR6Q<JSH(E7 h ]*" 45 $ " T45 $ " ;45 $ " #4$5 $ " 4_5 $ V4455 45 $ C4
5$
64
5 C4 > " G 4 5 "4 5 " x g port
g loc g c g chars g t
q g t ! m g t 6 j g t M g g word g t g value g filenamef language/ecmascript/tokenize.scm
! 0 6 E M \ n u v y "
* * $ ' % g nameg read-identifier CRJ7E6B<( @ D h / ]:44 5.5$ 0" 4 5 4 5 45$ 6" ?" *45$ C45$ .4 > " G 4 5
45 "4e5 $ " 4E5 $ 4 > " G 4 5 45$ 45" f4+5$ 4 > " G " A4-5$ 4 > " G
" 45$ " 4 5 " k45$ " 45$ 24 > " G 4 54
455 "
$ " 4
5C4 5
"4.5$ 4 > " G " d45$ " 45$ :4 > " G 4 5454
5 " "4 5 "C45 "405$ Y4x5 $ " 4X5 $ 4 > " G 4 5 45$ " 4> " G " <45$ .4 > " G 4 5 45 "C
"45$ " 45$ C45$ n485 $ " 495 $ 4> " G " 4 > " G 4 5 45 "yC
"k"["W ' g port
g loc g c0 ! g c1 * g c1 E o g acc E o g t g c O g add O g c U g e U g c W g dec W g n W g t g c > g c 3 g acc 3 g c M g acc M g t o g filenamef language/ecmascript/tokenize.scm
! $
* - 7 = E " F $
P # T %
^ # _ &
q ' | ( } ( ( '
) )
) # *
+ + , , - - , - / , / - 0 , 0 - 1 1 ; , B 3 F 3 , L 3 O +
U 5 V 6 ` 6 f 6 0 p 6 q 7 8 8 * 8 / 8 8 8 * 8 : : : 1 : * : ; : 5 5 5 ;
# <
=
> > > . > ? ! @ * A " 1 A 4 : A ; A > B H @ O E W E W =
X = ` = . l =
o " r " " /
! # ( 0 3 ? I M N X \ f g o } & ! g nameg read-numeric C RRR h ]
( C4 4
55 $ D45 $ " 4L 4 5 5 "4
5 " g nodes
g puncs g t g filenamef language/ecmascript/tokenize.scm
, 8 , % ( * 7 - ( / % 3 ! 8 9 : % A / F 3 G 7 L B P 7 S 9 U 3 Z / [ % ` + h ! i , n 8 r , v & y ! g nameg lp CO Q 4 i5 E7H( hp F ]"" U45 $ )4 > " G 4 5 "$ C64 5L " > g port
o g loc o g c [ g tree [ g candidate [ g t [ g filenamef language/ecmascript/tokenize.scm
* 3 $ 6 4 @ F P
U [
[ \ o o C O R75E O]6QJ< H hP ]"4 54 5 $ " / $ " ! $ " $ " $ 4 > " G 6
$ "
$ 4 > " G 6/$
6"$ " '$ 645$ C4 5 $ " "4
$5 $ " 4
_5 $ 64 5$ 4
5 C 6 g port
O g div? O g c O g loc O g t g t g value 9 G g filenamef language/ecmascript/tokenize.scm
V o x
% & 0 1 1 9 ? F O O g nameg
next-token C R HW hX ]4L M5 $ : & ,
& " & " " " N C g tok
T g cat ! E g filenamef language/ecmascript/tokenize.scm
! # ! ' ' + , 4 ' 8 9 A ' B Q T
C h ] H O C g port
g div? g filenamef language/ecmascript/tokenize.scm
g nameg make-tokenizer C R H(+(.1"%7W hh ]M$ C4LM5 $ &
" " $ M N " $ }" 14 & " 4 5> " KG " DM $ 9M &
" 4
5 & M N " "" "" F $ M N " 2 $ }" 14
& " 4 5> " KG " DM $ 9M &
" 4
5 & M N " "" "" $ M N " $ }" 14 & " 4 5> " KG " DM $ 9M &
" 4
5 & M N " "" "" $ M N" $ : & ,
& " & " " " N C g tok
b g key 6 g s g s . M g s g cat / S g filenamef language/ecmascript/tokenize.scm
* + 6 F H U Z ^ ! a ! ~ 5 B ! ! $ ' + . 5 . O B S V X u z | ! ! 5 B " % / ' / 5 + 9 : " B + F G " O + P " _ N b
C h ]HHH O C g port
g div? g eoi? g stack g filenamef language/ecmascript/tokenize.scm
g nameg make-tokenizer/1 C!R h8 # ]4 5 " 45 & 6 " " g port
6 g next 6 g out / g tok / g filenamef language/ecmascript/tokenize.scm
$ ) / / 0 6 6 g nameg tokenize CR! h8 % ]4 5 " 45 & 6 " " g port
6 g next 6 g out / g tok / g filenamef language/ecmascript/tokenize.scm
$ ) / / 0 6 6 g nameg
tokenize/1 C"RC g m
, g lp
( ( g punc-tree
( * g filenamef language/ecmascript/tokenize.scm
9
' '
O /
5
8
=
` ]
( z
* -
0 4
&S
&V J &Z I
&] z &a y
( ( # ( ( * ~
.S
0
7
9^
:
:
C6 PK ! ?q q language/ecmascript/function.gonu [ GOOF----LE-8-2.0Y ] 4 h ] g guile g define-module* g language g
ecmascript g function
g filenameS f language/ecmascript/function.scm g importsS
g oop g goops
g base g exportsS g *function-prototype* g *program-wrappers* g set-current-module g toplevel-define! g <js-program-wrapper> g
make-class !g <js-object> "g nameS #g defined? $# %# &g is-a? '& (& )g <class> *) +) ,g memq -g <object> .- /- 0g class-precedence-list 10 20 3g class-redefinition 43 53 6g make-doubly-weak-hash-table 7g make 8g classS 9f Function :g valueS ;g *undefined* <g pput =g toString >g *this* ?g format @f ~A Ag js-value Bg apply Cg with-fluid* Dg <js-array-object> Eg vector->list Fg js-array-vector Gg throw Hg TypeError Ig call Jg pget K7 L7 Mg <generic> NM OM Pg add-method! QP RP Sg <method> TS US Vg specializersS Wg <applicable> Xg <top> YX ZX [g formalsS \g o ]g p ^\] _g bodyS `g let ag wrapper bg hashq-ref cb\ dac ed fg if gJa] hJ] ifagh j`ei kj lg make-procedureS mg procedureS ng v o\]n p<a]n qg prototypeS r7 :\89q sar ts ug
hashq-set! vu\a w`tvp xfapw y`ex zy {g js-prototype |\ }{a ~fa} `e~ g js-constructor a fa `e C 5h ]4
5 4 > " G " +4 4 i!i " 5> " xG " q4% 5$ b4( i+5$ K4,i/42 i55$ -45 i4 i!i " 5> " G " "t" "l" "d46i 5R47i!i89:; h h - 1 3 C ` g args
g filenamef language/ecmascript/function.scm
+
C5R4<ii=>?@A h w ][ 4 56 o g this
g filenamef language/ecmascript/function.scm "
" "
C> " G 4<iiB>;CA h T ] 4L 56 L g filenamef language/ecmascript/function.scm &
C&DAEF h t ] 4L544L 55@ l g filenamef language/ecmascript/function.scm *
+
+ + + *
CGHB hX ]
[ ( " $ O 645$ O 6
6 g this-arg
R g array R g this R g filenamef language/ecmascript/function.scm
% %
% % * & + ' 7 % H ( L - N - R - R C> " G 4<iiI>CA h \ ] 4L5L @ T g filenamef language/ecmascript/function.scm 2
2
C h - 1 3 [ O 6 g this-arg
g args g this g filenamef language/ecmascript/function.scm 0
C> " G 4%J5 $ " Ji $ !4 J4LO"J5> " G " 4RJi4LUVWiZ [^_klmbJ h( ]
4 5 $ 66 g o
# g p # g wrapper # g filenamef language/ecmascript/function.scm
4
5 5 6 7 # 8 # C5 > " G 4%<5 $ " <i $ !4 <4LO"<5> " G " 4R<i4LUVWiZZ [o_zlmb<7 :89qu hX ]4 5 $
64
5 4 > " G 6 g o
R g p R g v R g wrapper R g wrapper 0 R g filenamef language/ecmascript/function.scm
:
; ; < = > * > D 0 > 0 > 3 @
R A
R C5 > " G 4%{5 $ " {i $ !4 {4LO"{5> " G " 4R{i4LUVWi [|_lmb{ h ] 4 5 $ 6C g o
g wrapper g filenamef language/ecmascript/function.scm
C
D D E F C5 > " G 4%5 $ " i $ !4 4LO"5> " G " Ri4LUVWi [|_lmb h ] 4 5 $ 6C g o
g wrapper g filenamef language/ecmascript/function.scm
I
J J K L C5 6 g m
, g t
2 g t
} g t
i ~ g t
g filenamef language/ecmascript/function.scm
1
7 r u
v !
5 $
/
4
v :
b C
I
C6 PK ! Bpa% a% language/ecmascript/array.gonu [ GOOF----LE-8-2.0I% ] 4 h ] g guile g define-module* g language g
ecmascript g array
g filenameS f language/ecmascript/array.scm g importsS
g oop g goops
g base g function g exportsS g *array-prototype* g new-array g set-current-module g defined? ! "g js-array-vector #g is-a? $# %# &g
<accessor> '& (& )g toplevel-define! *) +) ,g ensure-accessor -, ., /g <js-array-object> 0g <class> 10 20 3g memq 4g <object> 54 64 7g class-precedence-list 87 97 :g class-redefinition ;: <: =g
make-class >g <js-object> ?g vector @g
init-valueS A Bg accessorS Cg init-keywordS Dg vectorS Eg nameS Fg make Gg classS Hf Array Ig prototypeS Jg pput Kg length Lg valueS Mg constructorS Ng
hashq-set! Og *program-wrappers* Pg prototype Qg constructor Rg pget SF TF Ug <generic> VU WU Xg add-method! YX ZX [g <method> \[ ][ ^g specializersS _g <top> `_ a_ bg formalsS cg o dg p ecd fg bodyS gg cond hg and ig integer? jid kg exact? lkd mg >= nmd
ohjln pg let qg v r"c sqr ts ug if vg < wg
vector-length xwq yvdx zg
vector-ref {zqd |g next-method }| ~uy{} pt~ o g or g symbol? d g eq? g quote K d h g string? d g string=? f length d h wr g else } g g make-procedureS g procedureS cdq m
d hjl g vect r w vd g vector-set! dq g new g make-vector g 1+ d
g vector-move-left!
g set! r dq p u p g ->uint32 q
g min
p p g g setter g toString g *this* g format f ~A g concat g + g map g error f )generic array concats not yet implemented g join g string-join g ->string f , g pop g *undefined* g pushC 5 h w ]4
5 4 > " G 4!"5 $ " 4%"i(5 $ 14+"4.4!"5$ "i" "5> " G " 4!/5$ 4%/i25$ 43i649/i55$ @4</i4=i>i ?@AB"iCD E/5> " G " :4+/4=i>i ?@AB"iCD E/5> " G " :4+/4=i>i ?@AB"iCD E/5> " G " :4+/4=i>i ?@AB"iCD E/5> " G F/GHIJKK" hp K - 1 3 45 44 5> " G 4
5 " ( C "
" C g vals
l g o l g vect < l g i B a g vals B a g filenamef language/ecmascript/array.scm
+ ! ! ! " ! - ! 6 " < " B # H $ R % # S % V & Y & a & a # l
g nameg new-array CR4Fi>iGHLiMi5R4NiOiii> " G 4JiiPi> " G 4JiiQi> " G 4!R5 $ " Ri $ !4+R4TWER5> " G " 4ZRi4T]^/ia befik"wK h8 ]
45$ 45$ ~
$ %4 5 45$ CL 6$ " $ " 45$
45" $ 4 56L 6$ " $ " 45$
45" $ 4 56L 6$ " $ " 45$
45" $ 4 56L 6} g o
8 g p 8 g v ' E g t V g t g t ! g filenamef language/ecmascript/array.scm
2
3
3 3 3 3 & 3 ! 4 ' 4 , 5 3 5 7 5 < 6 E 2
H 8 L 8
P 8 % Q 8 V 8 d 9 n 9
o 9 u 9 * w 9 3 : : 2
8 8
8 % 8 8 9 9
9 9 * 9 3 : : 2
8 8
8 % 8 8 9 9
9 9 * 9 % 3 ( : 0 : 8 2
9 8 C h n ] O C f g real-next-method
g filenamef language/ecmascript/array.scm
2
C5 > " G 4!J5 $ " Ji $ !4+J4TWEJ5> " G " 4ZJi4T]^/iaa bfK"wik h0 k ]" $ " $ " 45$
45" $ N4 5 445
5 4
4 4
5455
> " G 4 5 6L 64 5$ 4
5$ v
$ j4 5 4
5$ C4
5 4
4
5
> " G 44 5 > " G C"""c g o
0 g p 0 g v 0 g t @ g vect K g new Z g vect $ g new $ g filenamef language/ecmascript/array.scm
=
G
G
G % G G % H / H
0 H 6 H * 8 H D > E I K I N J Q J # Z J Z J ] K
c K ' f K , m K A u K ' } K
M
=
> > > > > > & > ? ? @ @ @ A C C ' C C D D + D E " F 1 0 C h n ] O C f g real-next-method
g filenamef language/ecmascript/array.scm
=
C5 > " G 4Jii" h t ][ 4 56 l g this
g filenamef language/ecmascript/array.scm Q
Q Q
C> " G 4JiiRKRK h ]4 56 x g x
g filenamef language/ecmascript/array.scm
U U 0 U 8
U 0 U & CF/GHID#"w h - 1 3 [ 444554 5? 4
5 " i(
64
5$ =45 4
45> " G 45 "6
" g rest
g this g len * g rv 4 g objs : g i : g v h g filenamef language/ecmascript/array.scm T T T ! T , T ! T U * T * T - W
4 T : X @ Y H Y : R Y S \
X \ \ \
` Y a ] f ] ' h ] h ]
k ^ q ^ & ^ ` ` # ` ` b b
X X X $
C> " G 4JiiRK hh R - 1 3 [ " >
$ $ 4 5" 64455 "4455 "J g separator
h g this h g i P g l P g filenamef language/ecmascript/array.scm e f f $ g % g % * g / , g % 2 g @ 4 g 7 h 8 i ; i E i H i P h P e Q e T e Z e ' \ e ^ e _ e ` e 6 h e h
C> " G 4JiiRKJ hH ][ 44 55
$ C4 5 4 > " G C g this
H g len H g ret , H g filenamef language/ecmascript/array.scm l
l l " l l
l m m # o * o , o , o / p
5 p 8 p = p
H
C> " G JiiRKJ h` - 1 3 [ " ?(
45644455> " G " " g args
Y g this Y g args Q g filenamef language/ecmascript/array.scm t u v ! v # v % v & w + w . w $ 4 w / 6 w $ 8 w ; w 9 @ w K x Q x Q t Y
C6 o g m
, g t
4 P g t
g t
g filenamef language/ecmascript/array.scm
-
"
J `
) ) 4 ) )
-
/
/ /
0
0 0
2
=
P
j S
d
k
s
C6 PK ! 7QZ Z language/ecmascript/spec.gonu [ GOOF----LE-8-2.0B ] ( 4 hm ] g guile g define-module* g language g
ecmascript g spec
g filenameS f language/ecmascript/spec.scm g importsS
g system g base
g parse g compile-tree-il g exportsS g set-current-module g invalidate-compilation-cache! g
make-language g nameS g titleS !f
ECMAScript "g readerS #g read-ecmascript/1 $g compilersS %g tree-il &g printerS 'g writeC 5 h ]4
5 4 > " G 4 i> " G 4 i !"# h { ] 6s g port
g env g filenamef language/ecmascript/spec.scm
# C$%i &'i5
RC x g m
, g filenamef language/ecmascript/spec.scm
-
K !
C6 PK ! [? ? language/ecmascript/impl.gonu [ GOOF----LE-8-2.0? ] 4 h ] g guile g define-module* g language g
ecmascript g impl
g filenameS f language/ecmascript/impl.scm g importsS
g oop g goops
g base g function g array g exportsS g js-init g get-this g typeof g bitwise-not g logical-not !g shift "g mod #g band $g bxor %g bior &g make-enumerator ' !"#$%& (g
re-exportsS )g *undefined* *g *this* +g
call/this* ,g pget -g pput .g pdel /g
has-property? 0g ->boolean 1g ->number 2g
new-object 3g new 4g new-array 5)*+,-./01234 6g set-current-module 76 86 9g defined? :9 ;9 <g js-module =g is-a? >= ?= @g <generic> A@ B@ Cg toplevel-define! DC EC Fg ensure-generic GF HF Ig <js-module-object> Jg <class> KJ LJ Mg memq Ng <object> ON PN Qg class-precedence-list RQ SQ Tg class-redefinition UT VT Wg
make-class Xg <js-object> Yg module Zg init-formS [g current-module \[ ]g
init-thunkS ^g init-keywordS _g moduleS `g getterS ag nameS bg make cb db eg add-method! fe ge hg <method> ih jh kg specializersS lg <string> mg formalsS ng o og p pno qg bodyS rg string->symbol sro t,ns ut vg make-procedureS wg procedureS xg <symbol> yg let zg v {g module-variable |<n }{|o ~z} ~ g if g variable-ref z g next-method z y g <top> noz -nsz g module-define! |oz g
prop-attrs g cond g module-local-variable |o g quote g
DontDelete g ReadOnly } g else ns g prop-keys n g append g hash-map->list g lambda g k z g module-obarray | g resolve-interface g map g string-split g
js-require g <js-global-object> \ g NaN e +nan.0 g Infinity e +inf.0 g undefined g require g Object g *object-prototype* g Array g *array-prototype* g init-js-bindings! f undefined f object g boolean? f boolean g number? f number g string? f string g
procedure? f function f scm g lognot g ->primitive g ash g logand g logxor g logior g modulo g + g a g b g
string-append g ->string 1 1 g - g * g / g < g string< g <= g string<= g >= g string>= g > g string> g obj-and-prototypes g js-prototype g make-hash-table g for-each
g
hashq-set! g filter g prop-has-attr?
g DontEnumC 5h+ ! ]4
'(55 48 > " G 4;<5 $ " 4?<iB5 $ 14E<4H4;<5$ <i" <5> " G " 4;I5$ #4?IiL5$ l4MiP4SIi55$ 4VIi4WiXi YZ\][ h P ] 6 H g filenamef language/ecmascript/impl.scm '
C^_`<i aI5> " G " 4EI4WiXi YZ\][ h P ] 6 H g filenamef language/ecmascript/impl.scm '
C^_`<i aI5> " G " 4EI4WiXi YZ\][ h P ] 6 H g filenamef language/ecmascript/impl.scm '
C^_`<i aI5> " G " 4EI4WiXi YZ\][ h P ] 6 H g filenamef language/ecmascript/impl.scm '
C^_`<i aI5> " G 4;,5 $ " ,i $ !4E,4dBa,5> " G " 4g,i4djkIili mpquvw,r h } ] 456 u g o
g p g filenamef language/ecmascript/impl.scm
)
*
* C5 > " G 4;,5 $ " ,i $ !4E,4dBa,5> " G " 4g,i4djkIixi mpqv{< h( ]
44 55 $ CL 6 g o
$ g p $ g v $ g filenamef language/ecmascript/impl.scm
+
, , , , - . $ +
$ C h m ] O C e g real-next-method
g filenamef language/ecmascript/impl.scm
+
Cw5 > " G 4;-5 $ " -i $ !4E-4dBa-5> " G " 4g-i4djkIili mqvw-r h ] 456 g o
g p g v g filenamef language/ecmascript/impl.scm
0
1
1 C5 > " G 4;-5 $ " -i $ !4E-4dBa-5> " G " 4g-i4djkIixi mqvw< h ]4 56 g o
g p g v g filenamef language/ecmascript/impl.scm
2
3 3 C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djkIixi mpqv<{ h8 ]44 55$ C44 55$ CL 6 g o
3 g p 3 g filenamef language/ecmascript/impl.scm
4
5 5 5 5 5 1 6 6 $ 6 ( 5 * 6 + 3 4
3 C h m ] O C e g real-next-method
g filenamef language/ecmascript/impl.scm
4
Cw5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djkIili mpqvwr h } ] 456 u g o
g p g filenamef language/ecmascript/impl.scm
8
9 9 C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djkIi mqv h n ] C f g k
g v g filenamef language/ecmascript/impl.scm
; C< h ]444 5554L 56 g o
g filenamef language/ecmascript/impl.scm
:
;
; +
; ; ; + ;
:
; C h m ] O C e g real-next-method
g filenamef language/ecmascript/impl.scm
:
Cw5 > " G bI_r h ]444 .5556 g modstr
g filenamef language/ecmascript/impl.scm
?
A A A / A A @ g nameg
js-require CR" +4E4WiIi a5> " xG " q4;5$ b4?iL5$ K4MiP4Si55$ -4Vi4WiIi a5> " G " "t" "l" "d4;<5 $ " <i $ !4E<4dBa<5> " G " 4g<i4djki mqvw[ h f ]6 ^ g o
g filenamef language/ecmascript/impl.scm
D
E C5 > " G ) h ]4 > " G 4 > " G 4 > " G 4 > " G 4
> " G
6 g mod
z g filenamef language/ecmascript/impl.scm
G
H H H H I I ! I & I / J 5 J < J E K K K R K [ P a P h P v Q z Q z g nameg init-js-bindings! CR *b[ h( ]45 $ C45\45 6 g t
% g filenamef language/ecmascript/impl.scm
S
T T V W % W %
g nameg js-init C R* h c ] [C [ g filenamef language/ecmascript/impl.scm
Y
g nameg get-this C R)=X hh ] & C ( C4 5$ C4 5$ C4 5$ C4
5$ C4
5$ CC g x
a g filenamef language/ecmascript/impl.scm
\
] ] ] ^ _ ! ] # _ % ` / ] 1 ` 3 a = ] ? a A b K ] M b O c [ ] ] c ` d a g nameg typeof C Ri R0 h ]44 55C g x
g filenamef language/ecmascript/impl.scm
g
h h h h g nameg logical-not C Ri!Ri#Ri$Ri%Ri"R4;5 $ " i $ !4E4dBa5> " G " 4gi4djklili mqvw h u ] 6 m g a
g b
g filenamef language/ecmascript/impl.scm
r
s
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djkli mqvw h } ] 456 u g a
g b g filenamef language/ecmascript/impl.scm
u
v v C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djkli mqvw h } ]4 56 u g a
g b g filenamef language/ecmascript/impl.scm
x
y y C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djk mqvw1 h ]4 545C } g a
g b g filenamef language/ecmascript/impl.scm
{
|
| | C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djk mqvw1 h ]4 545C } g a
g b g filenamef language/ecmascript/impl.scm
~
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djk mqvw1 h ]4 545C g a
g b g filenamef language/ecmascript/impl.scm
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djk mqvw1 h ]4 545C g a
g b g filenamef language/ecmascript/impl.scm
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djk mqvw1 h ]4 545C g a
g b g filenamef language/ecmascript/impl.scm
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djklili mqvw h w ] 6 o g a
g b
g filenamef language/ecmascript/impl.scm
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djk mqvw1 h ]4 545C g a
g b g filenamef language/ecmascript/impl.scm
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djklili mqvw h w ] 6 o g a
g b
g filenamef language/ecmascript/impl.scm
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djk mqvw1 h ]4 545C g a
g b g filenamef language/ecmascript/impl.scm
C5 > " G 4;5 $ " i $ !4E4dBa5> " G " 4gi4djklili mqvw h w ] 6 o g a
g b
g filenamef language/ecmascript/impl.scm
C5 > " G 4; 5 $ " i $ #4E 4dBa 5> " G " 4g i4djk mqvw1 h ]4 545C g a
g b g filenamef language/ecmascript/impl.scm
C5 > " G 4; 5 $ " i $ #4E 4dBa 5> " G " 4g i4djklili mqvw h w ] 6 o g a
g b
g filenamef language/ecmascript/impl.scm
C5 > " G h ] $ 44 55CC g o
g filenamef language/ecmascript/impl.scm
" g nameg obj-and-prototypes CR
h i ]L 6 a g k
g filenamef language/ecmascript/impl.scm
& C h r ]L O 4 56 j g o
g filenamef language/ecmascript/impl.scm
C4
h ]4L 5C | g p
g filenamef language/ecmascript/impl.scm
$ :
$ Ch o ] C g g k
g v g filenamef language/ecmascript/impl.scm
- C
hH ] 4 5 4O 4 5> " G 4 O 4 55@ g obj
B g props B g filenamef language/ecmascript/impl.scm
! , 6 @ B B g nameg make-enumerator C&RC g m
0 g t
8 T g t
c x g t
| g t
o g t
g t
g t
g t
g t
g t
g t
g t
g t
g t
g t
g t
( = g t
P e g t
x g t
g t
! ! g t
" " g t
# # g t
$ %
g t
&! &7 g filenamef language/ecmascript/impl.scm
1 &
\ )
u +
h 0
2
4
8
:
5 ?
: C
D
G
m S
Y
\
f
Y g
` j
g l
n m
u n
| p
} r
u
x
{
~
!
I
q
!
"
#
$
&
(
+
) +
C6 PK ! z\ؼ ؼ language/tree-il/peval.gonu [ GOOF----LE-8-2.0 ] 4 hM ] g guile g define-module* g language g tree-il g peval
g filenameS f language/tree-il/peval.scm g importsS
g
primitives g effects g ice-9 g vlist g match g srfi g srfi-1 g srfi-9 ! "! #g srfi-11 $ # %$ &g srfi-26 ' & (' )g control *) +* , "%(+
-g exportsS . /g set-current-module 0/ 1/ 2g make-syntax-transformer 32 42 5g *logging* 6g macro 7g identifier? 87 97 :g
syntax-object ;g top <; =g ribcage >g id ?> @g m-9d6212d37ae-5919 A@; BA Cf l-9d6212d37ae-5920 DC E=?BD F= Gg x HG If l-9d6212d37ae-591b JI K=HBJ L<EFK Mg hygiene NM O:LN Pg $sc-dispatch QP RP Sg _ Tg each-any UST Vf l-9d6212d37ae-5923 WV X=HBW Y<XFK Z:YN [g syntax-violation \[ ][ ^f -source expression failed to match any pattern _g log `g any ag free-id bg quote cg m-9d6212d37ae-5926 dc; ed ff l-9d6212d37ae-5928 gf h=Heg i<Fh j:biN kaj lk` mlT n`m og if pg dummy qg event rg arg spqr td<< uf l-9d6212d37ae-592b vf l-9d6212d37ae-592c wf l-9d6212d37ae-592d xuvw y=stx z<yFh {:ozN |g and }:|zN ~:5zN g or :zN g eq? :zN :zN ~ g memq :zN :bzN ~ g log* :zN g
module-ref g resolve-interface g pretty-print g newline g let/ec g tree-il-fold g abort-to-prompt g tree-il-any g vlist-length g vlist-ref g vlist-any g
<application> g <lambda> g <primitive-ref> g values g <const> g
<lexical-ref> g <void> g <module-ref> g <toplevel-ref> g singly-valued-primitive? g singly-valued-expression? g make-application g tree-il-src g make-primitive-ref g truncate-values g <var> g %make-var-procedure g make-var S```` g lambda g m-9d6212d37ae-5be1 ; g t-9d6212d37ae-5bdd g t-9d6212d37ae-5bde g t-9d6212d37ae-5bdf g t-9d6212d37ae-5be0 f l-9d6212d37ae-5be6 f l-9d6212d37ae-5be7 f l-9d6212d37ae-5be8 f l-9d6212d37ae-5be9 = f l-9d6212d37ae-5be3 =H g shift g proc-name g args << f l-1e8ba8b5a-60 f l-1e8ba8b5a-61 = g key g value g name g formals g body <<<<< f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 = g make-procedure-name < f l-1e8ba8b5a-43 = < f l-1e8ba8b5a-42 =H FFFFF
M : <F :N g gensym :N g refcount :N g set? :N g make-struct g m-9d6212d37ae-5bdb ; g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 ; f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a = g ctor-args f l-1e8ba8b5a-120 = g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d = g form g type-name g constructor-spec g field-names
<<<< f l-1e8ba8b5a-111 f l-1e8ba8b5a-112
f l-1e8ba8b5a-113 f l-1e8ba8b5a-114
=
g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers <<<<<<<< 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 # !" $=# %f l-1e8ba8b5a-da &% '=H& (FFFFFF$' ):( *:N +:
( ,)*+ -, .![ /![ 0f Wrong number of arguments 1!7 2!7 3<F 4:3N 5g record-type-vtable 6!5 7!5 8g pwpwpwpw 9g default-record-printer :!9 ;!9 < =g set-struct-vtable-name! >!= ?!= @g vtable-offset-user A!@ B!@ Cg %var?-procedure Dg var? ES` Fg m-9d6212d37ae-5bf4 GF; Hg t-9d6212d37ae-5bf3 IH JG Kf l-9d6212d37ae-5bf9 LK M=IJL Nf l-9d6212d37ae-5bf6 ON P=HJO QGMFPFFFF
R:Q Sg obj Tg t-1e8ba8b5a-224 Ug t-1e8ba8b5a-21e Vg t-1e8ba8b5a-21f Wg t-1e8ba8b5a-220 Xg t-1e8ba8b5a-223 Yg t-1e8ba8b5a-222 Zg t-1e8ba8b5a-221 [TUVWXYZ \g m-1e8ba8b5a-225 ]\; ^]]]]]]] _f l-1e8ba8b5a-229 `f l-1e8ba8b5a-22a af l-1e8ba8b5a-22b bf l-1e8ba8b5a-22c cf l-1e8ba8b5a-22d df l-1e8ba8b5a-22e ef l-1e8ba8b5a-22f f_`abcde g=[^f hg copier-id ih jf l-1e8ba8b5a-21c kj l=ik mg ctor-name nm of l-1e8ba8b5a-214 po q=np r sf l-1e8ba8b5a-212 ts u=rt vg layout wv xf l-1e8ba8b5a-210 yx z=wy {g
immutable? |{ }f l-1e8ba8b5a-20e ~} =|~ g field-count f l-1e8ba8b5a-20c = g
getter-ids f l-1e8ba8b5a-209 = g field-ids f l-1e8ba8b5a-206 = g predicate-name g
field-spec { <<<<<< f l-1e8ba8b5a-1f9 f l-1e8ba8b5a-1fa f l-1e8ba8b5a-1fb f l-1e8ba8b5a-1fc f l-1e8ba8b5a-1fd f l-1e8ba8b5a-1fe = MFPFgFFFFlFqFuFzFFFF$' :S :| g struct? : : g
struct-vtable : <MFP :N R <FP :CN g throw-bad-struct ! ! g var-name g %var-name-procedure g
%%on-error g m-9d6212d37ae-5c00 ; f l-9d6212d37ae-5c02 =H FFFFF : a ` g %%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 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 ; f l-1e8ba8b5a-156 f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c = g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a = h <<< f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 = FFFFFF$' : a S` g ck g err g s f l-9d6212d37ae-5c05 f l-9d6212d37ae-5c06 = FFFFF
: :b <F :N g %%index : a S` f l-9d6212d37ae-5c0a f l-9d6212d37ae-5c0b = FFFFF
: :b F :
N g %%copier : a S` f l-9d6212d37ae-5c0f f l-9d6212d37ae-5c10
=
FFFFF
:
:b g %%<var>-set-fields <
F :N
g t-9d6212d37ae-5bff f l-9d6212d37ae-5c14 = FFFFF
: FFFFFF$' : :o : : !<F ":!N # " $g
struct-ref %:$ &F ':
&N (%' ): *:b +:!N ,*+ -), . #(- / . 0<F 1:0N 2g
var-gensym 3g %var-gensym-procedure 4g m-9d6212d37ae-5c1b 54; 65 7f l-9d6212d37ae-5c1d 87 9=H68 :5F9FFFF ;:: <a; =<` >F9FFFFF$' ?:> @a? AS=@` B55 Cf l-9d6212d37ae-5c20 Df l-9d6212d37ae-5c21 ECD F=BE G5FF9FFFF
H:G I:bG J<FF9 K:JN LIK ML N:> OaN PS=O` Qf l-9d6212d37ae-5c25 Rf l-9d6212d37ae-5c26 SQR T=BS U5TF9FFFF
V:U W:bU XTF9 Y: XN ZWY [Z \:> ]a\ ^S=]` _f l-9d6212d37ae-5c2a `f l-9d6212d37ae-5c2b a_` b=Ba c5bF9FFFF
d:c e:bc f<bF9 g:fN heg ih jg t-9d6212d37ae-5c1a kj lf l-9d6212d37ae-5c2f ml n=k6m o5nF9FFFF
p:o qnF9FFFFF$' r:q sr t:oq u:q v:q wvr x<nF9 y:xN zuwy {:$q |nF9 }: |N ~{r} :q :bq :2xN r tz~ ps <F9 :3N g var-refcount g %var-refcount-procedure g m-9d6212d37ae-5c36 ; f l-9d6212d37ae-5c38 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-5c3b f l-9d6212d37ae-5c3c = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-5c40 f l-9d6212d37ae-5c41 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-5c45 f l-9d6212d37ae-5c46 = FFFFF
: :b <F :N g t-9d6212d37ae-5c35 f l-9d6212d37ae-5c4a = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g var-set? g %var-set?-procedure g m-9d6212d37ae-5c51 ; f l-9d6212d37ae-5c53 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-5c56 f l-9d6212d37ae-5c57 = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-5c5b f l-9d6212d37ae-5c5c = FFFFF
: :b F : N : a
S ` f l-9d6212d37ae-5c60 f l-9d6212d37ae-5c61
=
FFFFF
: :b <F :N g t-9d6212d37ae-5c50 f l-9d6212d37ae-5c65 = FFFFF
: FFFFFF$' : :o !: ": #" $<F %:$N &!#% ':$ (F ): (N *' ) +: ,:b -:$N .,- /+ . 0 &*/ 1 0 2<F 3:2N 4g each 5`` 645 7`6 8`7 9`8 :g %%set-fields ;g check? <g expr =p;< >g m-9d6212d37ae-5c6c ?>; @? Af l-9d6212d37ae-5c71 Bf l-9d6212d37ae-5c72 Cf l-9d6212d37ae-5c73 Df l-9d6212d37ae-5c74 Ef l-9d6212d37ae-5c75 FABCDE G==@F H? If l-9d6212d37ae-5c6e JI K=HHJ Lg t-1e8ba8b5a-16a Mg t-1e8ba8b5a-16c Ng t-1e8ba8b5a-16b OLMN Pg m-1e8ba8b5a-16d QP; RQQQ Sf l-1e8ba8b5a-171 Tf l-1e8ba8b5a-172 Uf l-1e8ba8b5a-173 VSTU W=ORV Xf l-1e8ba8b5a-167 Yf l-1e8ba8b5a-168 Zf l-1e8ba8b5a-169 [XYZ \=[ ]GFKFWFFF\$'
^::] _<GFK `:_N a:_N b:2_N c:_N d:_N eabcd fg map gf hf ig list jg set-var-refcount! kg %set-var-refcount!-procedure lS`` mg m-9d6212d37ae-5c80 nm; og t-9d6212d37ae-5c7e pg t-9d6212d37ae-5c7f qop rnn sf l-9d6212d37ae-5c85 tf l-9d6212d37ae-5c86 ust v=qru wn xf l-9d6212d37ae-5c82 yx z=Hwy {nvFzFFFF
|:{ }g t-1e8ba8b5a-18c ~g t-1e8ba8b5a-18d }~ g m-1e8ba8b5a-18e ; f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 = g setter f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 = f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e = g field-specs f l-1e8ba8b5a-179 f l-1e8ba8b5a-17a = vFzFFF$' : g val : :o : : <vFz :N g struct-set! : vFz : N : :b :jN | <Fz :kN g
set-var-set?! g %set-var-set?!-procedure g m-9d6212d37ae-5c90 ; g t-9d6212d37ae-5c8e g t-9d6212d37ae-5c8f f l-9d6212d37ae-5c95 f l-9d6212d37ae-5c96 = f l-9d6212d37ae-5c92 =H FFFFF
: FFFF$' : : :o : : <F :N : F : N : :b :N <F :N g
vlist-null g
vhash-assq g
<lambda-case> g fold g vhash-consq g append g reverse g <let> g <letrec> g <fix> g
<lexical-set> g build-var-table g <counter> g %%make-counter-procedure g
%make-counter S`````` g m-9d6212d37ae-63bc ; g t-9d6212d37ae-63b6 g t-9d6212d37ae-63b7 g t-9d6212d37ae-63b8 g t-9d6212d37ae-63b9 g t-9d6212d37ae-63ba g t-9d6212d37ae-63bb f l-9d6212d37ae-63c1 f l-9d6212d37ae-63c2 f l-9d6212d37ae-63c3 f l-9d6212d37ae-63c4 f l-9d6212d37ae-63c5 f l-9d6212d37ae-63c6 = f l-9d6212d37ae-63be =H FFFFF
: g effort < F :N
g size :
N g continuation
: N g
recursive? :N g data :N g prev :N
g m-9d6212d37ae-63b4 ; FFFFFF$' : :N :
<F : N g pwpwpwpwpwpw
!g %counter?-procedure "g counter? #g m-9d6212d37ae-63d3 $#; %g t-9d6212d37ae-63d2 &% '$ (f l-9d6212d37ae-63d8 )( *=&') +f l-9d6212d37ae-63d5 ,+ -=H', .$*F-FFFF
/:. 0*F-FgFFFFlFqFuFzFFFF$' 1:S0 21 3:|0 4:0 541 6:0 7:0 871 9<*F- ::9N ;68: <35; =/2< ><F- ?:!>N @g effort-counter Ag %effort-counter-procedure Bg m-9d6212d37ae-63df CB; DC Ef l-9d6212d37ae-63e1 FE G=HDF HCFGFFFF I:H JaI KJ` LFGFFFFF$' M:L NaM OSKN` PCC Qf l-9d6212d37ae-63e4 Rf l-9d6212d37ae-63e5 SQR T=PS UCTFGFFFF
V:U W:bU X<TFG Y:XN ZWY [Z \:L ]a\ ^SK]` _f l-9d6212d37ae-63e9 `f l-9d6212d37ae-63ea a_` b=Pa cCbFGFFFF
d:c e:bc fbFG g:
fN heg ih j:L kaj lSKk` mf l-9d6212d37ae-63ee nf l-9d6212d37ae-63ef omn p=Po qCpFGFFFF
r:q s:bq tg %%<counter>-set-fields u<pFG v:tuN wsv xw yg t-9d6212d37ae-63de zy {f l-9d6212d37ae-63f3 |{ }=zD| ~C}FGFFFF
:~ }FGFFFFF$' : :o : : <}FG :N :$ }FG :
N : :b :@N <FG :AN g size-counter g %size-counter-procedure g m-9d6212d37ae-63fa ; f l-9d6212d37ae-63fc =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-63ff f l-9d6212d37ae-6400 = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-6404 f l-9d6212d37ae-6405 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-6409 f l-9d6212d37ae-640a = FFFFF
: :b <F :tN g t-9d6212d37ae-63f9 f l-9d6212d37ae-640e = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g counter-continuation g %counter-continuation-procedure g m-9d6212d37ae-6415 ; f l-9d6212d37ae-6417 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-641a f l-9d6212d37ae-641b = FFFFF
: :b <F :N :
a S
` f l-9d6212d37ae-641f
f l-9d6212d37ae-6420
= FFFFF
: :b F : N : a S` f l-9d6212d37ae-6424 f l-9d6212d37ae-6425 = FFFFF
: :b !< F ":t!N # " $# %g t-9d6212d37ae-6414 &% 'f l-9d6212d37ae-6429 (' )=&( *)FFFFF
+:* ,)FFFFFF$' -:, .- /:o, 0:, 1:, 21- 3<)F 4:3N 5024 6:$, 7)F 8: 7N 96-8 ::, ;:b, <:3N =;< >:-= ?/59> @+.? A<F B:AN Cg counter-recursive? Dg %counter-recursive?-procedure Eg m-9d6212d37ae-6430 FE; GF Hf l-9d6212d37ae-6432 IH J=HGI KFFJFFFF L:K MaL NM` OFJFFFFF$' P:O QaP RSNQ` SFF Tf l-9d6212d37ae-6435 Uf l-9d6212d37ae-6436 VTU W=SV XFWFJFFFF
Y:X Z:bX [<WFJ \:[N ]Z\ ^] _:O `a_ aSN`` bf l-9d6212d37ae-643a cf l-9d6212d37ae-643b dbc e=Sd fFeFJFFFF
g:f h:bf ieFJ j: iN khj lk m:O nam oSNn` pf l-9d6212d37ae-643f qf l-9d6212d37ae-6440 rpq s=Sr tFsFJFFFF
u:t v:bt w<sFJ x:twN yvx zy {g t-9d6212d37ae-642f |{ }f l-9d6212d37ae-6444 ~} =|G~ FFJFFFF
: FJFFFFF$' : :o : : <FJ :N :$ FJ : N : :b :CN <FJ :DN g counter-data g %counter-data-procedure g m-9d6212d37ae-644b ; f l-9d6212d37ae-644d =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-6450 f l-9d6212d37ae-6451 = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-6455 f l-9d6212d37ae-6456 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-645a f l-9d6212d37ae-645b = FFFFF
: :b <F :tN g t-9d6212d37ae-644a f l-9d6212d37ae-645f = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g counter-prev g %counter-prev-procedure g m-9d6212d37ae-6466 ; f l-9d6212d37ae-6468 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-646b f l-9d6212d37ae-646c = FFFFF
: :b <F :N
: a
S ` f l-9d6212d37ae-6470 f l-9d6212d37ae-6471 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-6475 f l-9d6212d37ae-6476 = FFFFF
!: ":b #< F $:t#N %"$ &% 'g t-9d6212d37ae-6465 (' )f l-9d6212d37ae-647a *) +=(* ,+FFFFF
-:, .+FFFFFF$' /:. 0/ 1:o. 2:. 3:. 43/ 5<+F 6:5N 7246 8:$. 9+F :: 9N ;8/: <:. =:b. >:5N ?=> @</? A17;@ B-0A C<F D:CN Eg m-9d6212d37ae-6481 FE; GF Hf l-9d6212d37ae-6486 If l-9d6212d37ae-6487 Jf l-9d6212d37ae-6488 Kf l-9d6212d37ae-6489 Lf l-9d6212d37ae-648a MHIJKL N==GM OF Pf l-9d6212d37ae-6483 QP R=HOQ SNFRFWFFF\$'
T::S U<NFR V:UN W:@UN X:UN Y:UN Z:CUN [:UN \:UN ]WXYZ[\ ^g set-counter-recursive?! _g "%set-counter-recursive?!-procedure `g m-9d6212d37ae-6495 a`; bg t-9d6212d37ae-6493 cg t-9d6212d37ae-6494 dbc eaa ff l-9d6212d37ae-649a gf l-9d6212d37ae-649b hfg i=deh ja kf l-9d6212d37ae-6497 lk m=Hjl naiFmFFFF
o:n piFmFFF$' q:p r:p sqr t:op u:p v:p wvq x<iFm y:xN zuwy {:p |iFm }: |N ~{q}r :p :bp :^xN q tz~ os <Fm :_N g
abort-counter g record-effort! g record-size! g find-counter g min g transfer! g
make-variable g make-top-counter g make-nested-counter g make-recursive-counter g <operand> g %%make-operand-procedure g
%make-operand S`````````` g m-9d6212d37ae-6564 ; g t-9d6212d37ae-655a g t-9d6212d37ae-655b g t-9d6212d37ae-655c g t-9d6212d37ae-655d g t-9d6212d37ae-655e g t-9d6212d37ae-655f g t-9d6212d37ae-6560 g t-9d6212d37ae-6561 g t-9d6212d37ae-6562 g t-9d6212d37ae-6563
f l-9d6212d37ae-6569 f l-9d6212d37ae-656a f l-9d6212d37ae-656b f l-9d6212d37ae-656c f l-9d6212d37ae-656d f l-9d6212d37ae-656e f l-9d6212d37ae-656f f l-9d6212d37ae-6570 f l-9d6212d37ae-6571 f l-9d6212d37ae-6572
= f l-9d6212d37ae-6566 =H FFFFF
: g var <F :N g sym :N g visit :N g source :N g visit-count :N g use-count :N g copyable? :N g residual-value :N g constant-value :N g alias :N
g m-9d6212d37ae-6558 ; FFFFFF$' : :N :
<F :N g pwpwpwpwpwpwpwpwpwpw
g %operand?-procedure g operand? g m-9d6212d37ae-6583 ; g t-9d6212d37ae-6582 f l-9d6212d37ae-6588 = f l-9d6212d37ae-6585 =H FFFFF
: FFgFFFFlFqFuFzFFFF$' :S :| : : : <F :N <F :N g operand-var g %operand-var-procedure g m-9d6212d37ae-658f ; f l-9d6212d37ae-6591 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-6594 f l-9d6212d37ae-6595
=
FFFFF
: :b < F :N : a S` f l-9d6212d37ae-6599 f l-9d6212d37ae-659a = FFFFF
: :b F :
N !: "a! #S"` $f l-9d6212d37ae-659e %f l-9d6212d37ae-659f &$% '=& ('FFFFF
):( *:b( +g %%<operand>-set-fields ,<'F -:+,N .*- /. 0g t-9d6212d37ae-658e 10 2f l-9d6212d37ae-65a3 32 4=13 54FFFFF
6:5 74FFFFFF$' 8:7 98 ::o7 ;:7 <:7 =<8 ><4F ?:>N @;=? A:$7 B4F C:
BN DA8C E:7 F:b7 G:>N HFG IE8H J:@DI K69J L<F M:LN Ng operand-sym Og %operand-sym-procedure Pg m-9d6212d37ae-65aa QP; RQ Sf l-9d6212d37ae-65ac TS U=HRT VQFUFFFF W:V XaW YX` ZFUFFFFF$' [:Z \a[ ]SY\` ^QQ _f l-9d6212d37ae-65af `f l-9d6212d37ae-65b0 a_` b=^a cQbFUFFFF
d:c e:bc f<bFU g:fN heg ih j:Z kaj lSYk` mf l-9d6212d37ae-65b4 nf l-9d6212d37ae-65b5 omn p=^o qQpFUFFFF
r:q s:bq tpFU u: tN vsu wv x:Z yax zSYy` {f l-9d6212d37ae-65b9 |f l-9d6212d37ae-65ba }{| ~=^} Q~FUFFFF
: :b <~FU :+N g t-9d6212d37ae-65a9 f l-9d6212d37ae-65be =R QFUFFFF
: FUFFFFF$' : :o : : <FU :N :$ FU : N : :b :NN <FU :ON g %operand-visit g %%operand-visit-procedure g m-9d6212d37ae-65c5 ; f l-9d6212d37ae-65c7 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-65ca f l-9d6212d37ae-65cb = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-65cf f l-9d6212d37ae-65d0 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-65d4 f l-9d6212d37ae-65d5 = FFFFF
: :b <F :+N g t-9d6212d37ae-65c4 f l-9d6212d37ae-65d9 = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g operand-source g %operand-source-procedure g m-9d6212d37ae-65e0 ; f l-9d6212d37ae-65e2 =H FFFFF : a ` FFFFFF$' : a S`
f l-9d6212d37ae-65e5 f l-9d6212d37ae-65e6
=
FFFFF
: :b <F :N : a S` f l-9d6212d37ae-65ea f l-9d6212d37ae-65eb =
FFFFF
: :b F !: N " ! #" $: %a$ &S%` 'f l-9d6212d37ae-65ef (f l-9d6212d37ae-65f0 )'( *=
) +*FFFFF
,:+ -:b+ .<*F /:+.N 0-/ 10 2g t-9d6212d37ae-65df 32 4f l-9d6212d37ae-65f4 54 6=35 76FFFFF
8:7 96FFFFFF$' ::9 ;: <:o9 =:9 >:9 ?>: @<6F A:@N B=?A C:$9 D6F E: DN FC:E G:9 H:b9 I:@N JHI KG:J L<BFK M8;L N<F O:NN Pg operand-visit-count Qg %operand-visit-count-procedure Rg m-9d6212d37ae-65fb SR; TS Uf l-9d6212d37ae-65fd VU W=HTV XSFWFFFF Y:X ZaY [Z` \FWFFFFF$' ]:\ ^a] _S[^` `SS af l-9d6212d37ae-6600 bf l-9d6212d37ae-6601 cab d=`c eSdFWFFFF
f:e g:be h<dFW i:hN jgi kj l:\ mal nS[m` of l-9d6212d37ae-6605 pf l-9d6212d37ae-6606 qop r=`q sSrFWFFFF
t:s u:bs vrFW w: vN xuw yx z:\ {az |S[{` }f l-9d6212d37ae-660a ~f l-9d6212d37ae-660b }~ =` SFWFFFF
: :b <FW :+N g t-9d6212d37ae-65fa f l-9d6212d37ae-660f =T SFWFFFF
: FWFFFFF$' : :o : : <FW :N :$ FW : N : :b :PN <FW :QN g operand-use-count g %operand-use-count-procedure g m-9d6212d37ae-6616 ; f l-9d6212d37ae-6618 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-661b f l-9d6212d37ae-661c = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-6620 f l-9d6212d37ae-6621 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-6625 f l-9d6212d37ae-6626 = FFFFF
: :b <F :+N g t-9d6212d37ae-6615 f l-9d6212d37ae-662a = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g operand-copyable? g %operand-copyable?-procedure g m-9d6212d37ae-6631 ; f l-9d6212d37ae-6633 =H F FFFF : a ` F FFFFF$' :
a S
`
f l-9d6212d37ae-6636 f l-9d6212d37ae-6637
= F FFFF
: :b < F : N : a S ` f l-9d6212d37ae-663b f l-9d6212d37ae-663c = F FFFF
: !:b " F #: "N $ ! # % $ &: 'a & (S '` )f l-9d6212d37ae-6640 *f l-9d6212d37ae-6641 + ) * ,= + - ,F FFFF
.: - /:b - 0< ,F 1:+ 0N 2 / 1 3 2 4g t-9d6212d37ae-6630 5 4 6f l-9d6212d37ae-6645 7 6 8= 5 7 9 8F FFFF
:: 9 ; 8F FFFFF$' <: ; = < >:o ; ?: ; @: ; A @ < B< 8F C: BN D ? A C E:$ ; F 8F G: FN H E < G I: ; J:b ; K: BN L J K M I < L N > D H M O : = N P<F Q: PN Rg operand-residual-value Sg !%operand-residual-value-procedure Tg m-9d6212d37ae-664c U T; V U Wf l-9d6212d37ae-664e X W Y=H V X Z UF YFFFF [: Z \a [ ] \` ^F YFFFFF$' _: ^ `a _ aS ] `` b U U cf l-9d6212d37ae-6651 df l-9d6212d37ae-6652 e c d f= b e g U fF YFFFF
h: g i:b g j< fF Y k: jN l i k m l n: ^ oa n pS ] o` qf l-9d6212d37ae-6656 rf l-9d6212d37ae-6657 s q r t= b s u U tF YFFFF
v: u w:b u x tF Y y: xN z w y { z |: ^ }a | ~S ] }` f l-9d6212d37ae-665b f l-9d6212d37ae-665c = b U F YFFFF
: :b < F Y :+ N g t-9d6212d37ae-664b f l-9d6212d37ae-6660 = V U F YFFFF
: F YFFFFF$' : :o : : < F Y : N :$ F Y : N : :b : R N <F Y : S N g operand-constant-value g !%operand-constant-value-procedure g m-9d6212d37ae-6667 ; f l-9d6212d37ae-6669 =H F FFFF : a ` F FFFFF$' : a S ` f l-9d6212d37ae-666c f l-9d6212d37ae-666d = F FFFF
: :b < F : N : a S ` f l-9d6212d37ae-6671 f l-9d6212d37ae-6672 = F FFFF
: :b F : N : a S ` f l-9d6212d37ae-6676 f l-9d6212d37ae-6677 = F FFFF
: :b < F :+ N g t-9d6212d37ae-6666 f l-9d6212d37ae-667b = F FFFF
: F FFFFF$' : :o : : < F : N :$ F : N : :b : N <F : N g
operand-alias g %operand-alias-procedure
g m-9d6212d37ae-6682
;
f l-9d6212d37ae-6684
=H
F
FFFF
:
a
`
F
FFFFF$'
:
a
S
`
f l-9d6212d37ae-6687
f l-9d6212d37ae-6688
=
F
FFFF
:
:b
<
F
:
N
:
a
S
`
f l-9d6212d37ae-668c
f l-9d6212d37ae-668d
=
!
F
FFFF
":
!
#:b
!
$
F
%:
$N
&
#
%
'
&
(:
)a
(
*S
)`
+f l-9d6212d37ae-6691
,f l-9d6212d37ae-6692
-
+
,
.=
-
/
.F
FFFF
0:
/
1:b
/
2<
.F
3:+
2N
4
1
3
5
4
6g t-9d6212d37ae-6681
7
6
8f l-9d6212d37ae-6696
9
8
:=
7
9
;
:F
FFFF
<:
;
=
:F
FFFFF$'
>:
=
?
>
@:o
=
A:
=
B:
=
C
B
>
D<
:F
E:
DN
F
A
C
E
G:$
=
H
:F
I:
HN
J
G
>
I
K:
=
L:b
=
M:
DN
N
L
M
O
K
>
N
P
@
F
J
O
Q
<
?
P
R<F
S:
RN
Tg m-9d6212d37ae-669d
U
T;
V
U
Wf l-9d6212d37ae-66a2
Xf l-9d6212d37ae-66a3
Yf l-9d6212d37ae-66a4
Zf l-9d6212d37ae-66a5
[f l-9d6212d37ae-66a6
\
W
X
Y
Z
[
]==
V
\
^
U
_f l-9d6212d37ae-669f
`
_
a=H
^
`
b
]F
aFWFFF\$'
c::
b
d<
]F
a
e:
dN
f:
dN
g:N
dN
h:
dN
i:
dN
j:P
dN
k:
dN
l:
dN
m: R
dN
n:
dN
o:
dN
p
f
g
h
i
j
k
l
m
n
o
qg set-operand-visit-count!
rg #%set-operand-visit-count!-procedure
sg m-9d6212d37ae-66b1
t
s;
ug t-9d6212d37ae-66af
vg t-9d6212d37ae-66b0
w
u
v
x
t
t
yf l-9d6212d37ae-66b6
zf l-9d6212d37ae-66b7
{
y
z
|=
w
x
{
}
t
~f l-9d6212d37ae-66b3
~
=H
}
t
|F
FFFF
:
|F
FFF$'
:
:
:o
:
:
<
|F
:
N
:
|F
:
N
:
:b
:
q
N
<F
:
r
N
g set-operand-use-count!
g !%set-operand-use-count!-procedure
g m-9d6212d37ae-66c1
;
g t-9d6212d37ae-66bf
g t-9d6212d37ae-66c0
f l-9d6212d37ae-66c6
f l-9d6212d37ae-66c7
=
f l-9d6212d37ae-66c3
=H
F
FFFF
:
F
FFF$'
:
:
:o
:
:
<
F
:
N
:
F
:
N
:
:b
:
N
<F
:
N
g set-operand-copyable?!
g !%set-operand-copyable?!-procedure
g m-9d6212d37ae-66d1
;
g t-9d6212d37ae-66cf
g t-9d6212d37ae-66d0
f l-9d6212d37ae-66d6
f l-9d6212d37ae-66d7
=
f l-9d6212d37ae-66d3
=H
F
FFFF
:
F
FFF$'
:
:
:o
:
:
<
F
:
N
:
F
:
N
:
:b
:
N
<F
:
N
g %set-operand-residual-value!
g '%%set-operand-residual-value!-procedure
g m-9d6212d37ae-66e1
;
g t-9d6212d37ae-66df
g t-9d6212d37ae-66e0
f l-9d6212d37ae-66e6
f l-9d6212d37ae-66e7
=
f l-9d6212d37ae-66e3
=H
F
FFFF
:
F
FFF$' : : :o : : <
F
: N
:
F
:
N : :b :
N <F
:
N g set-operand-constant-value! g &%set-operand-constant-value!-procedure g m-9d6212d37ae-66f1 ; g t-9d6212d37ae-66ef g t-9d6212d37ae-66f0 !f l-9d6212d37ae-66f6 "f l-9d6212d37ae-66f7 # ! " $= # % &f l-9d6212d37ae-66f3 ' & (=H % ' ) $F (FFFF
*: ) + $F (FFF$' ,: + -: + . , - /:o + 0: + 1: + 2 1 , 3< $F ( 4: 3N 5 0 2 4 6: + 7 $F ( 8: 7N 9 6 , 8 - :: + ;:b + <: 3N = ; < > : , = ? / 5 9 > @ * . ? A<F ( B: AN Cg set-operand-alias! Dg %set-operand-alias!-procedure Eg m-9d6212d37ae-6701 F E; Gg t-9d6212d37ae-66ff Hg t-9d6212d37ae-6700 I G H J F F Kf l-9d6212d37ae-6706 Lf l-9d6212d37ae-6707 M K L N= I J M O F Pf l-9d6212d37ae-6703 Q P R=H O Q S F NF RFFFF
T: S U NF RFFF$' V: U W: U X V W Y:o U Z: U [: U \ [ V ]< NF R ^: ]N _ Z \ ^ `: U a NF R b: aN c ` V b W d: U e:b U f: C ]N g e f h d V g i Y _ c h j T X i k<F R l: D kN mg and=> ng make-operand og make-bound-operands pg make-unbound-operands qg set-operand-residual-value! rg apply sg
visit-operand tg not ug pair? vg null? wg list? xg symbol? yg vector? zg length {g eqv? |g equal? }g types-check? ~g operator-size-limitS ~ g operand-size-limitS g value-size-limitS g effort-limitS g recursive-effort-limitS g current-module g error f unbound var g vlist->list g
string-append g symbol->string f g make-lexical-ref f no matching pattern g every g const? g const-exp g catch g the-scm-module g effect g make-void g test g
make-const g <dynwind> g make-dynwind g <dynlet> g make-dynlet g
<sequence> z z g tail g
make-sequence g <let-values> g make-let-values g make-lambda-case g make-fix g make-letrec g make-let g <abort> g <prompt> g
<conditional> g make-lambda g <dynref> g <toplevel-set> g <toplevel-define> g <module-set> g <dynset> g constant? g operator g car g cdr g filter g compose g void? g make-effects-analyzer g lexical-ref? g lexical-ref-gensym g make-prompt-tag g abort? g tree-il=? g abort-tag g
abort-args g
abort-tail g make-prompt g
make-abort g sequence? g
sequence-exps g @apply g lambda-case-alternate g call g and-map g take g drop g split-at g
fold-right g lambda? g effect-free-primitive? g accessor-primitive? g memv f t- g t g make-conditional g cons g constructor-primitive? g string? g vector g @call-with-values f failure- g failure g make-toplevel-set g make-toplevel-define g make-module-set g resolve-module g ensureS g module? g module-variable g resolve-primitives! g primitive-ref? g make-dynset g make-dynref f post- g post f pre- g pre f what! g alist-delete g assq-ref g rest g rest-sym g $ bi S g rest-args S g ? g cut g <>
g = g lexical-refcount
|
S g make-list g tmp f tmp g make-lexical-setC 5 h ]4
,-.5 41 > " G 44569 h _ ] 6W g id
g filenamef language/tree-il/peval.scm 2 CO h * ]C " g id
CRUZ h ) ] C! g x
C]^ h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/peval.scm
2 : g
macro-typeg identifier-syntax C55R44_6Rn{}~
h0 Q ] CI g dummy
0 g event 0 g arg 0 0 C]^ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/peval.scm
> " g
macro-typeg syntax-rulesg patternsg quoteg event g argg ... C5_R_ hH - 1 3 4455 4 > " G 4> " G D g event
C g args C g pp C g filenamef language/tree-il/peval.scm
E
F
F F + F G F F H H ) H 2 I C J C
g nameg log* CR h ]
4L 5 $ L6C g exp
g res g res g filenamef language/tree-il/peval.scm
N O O P M C h ]
4L 5 $ L6C g exp
g res g res g filenamef language/tree-il/peval.scm
Q R R S M C h p ]C h g exp
g res g filenamef language/tree-il/peval.scm
T C h@ ] U #4 O O > XCXFG E g proc
> g exp > g tag > g _ 3 > g results 3 > g filenamef language/tree-il/peval.scm
L
M N 6 M > g nameg tree-il-any CR hH ]45 " -$ "4 455 $ C "C
" g proc
C g vlist C g len C g i < g t & : g filenamef language/tree-il/peval.scm
W
X
X Y Z Z [ [ & [ & [ 4 \ : \ < Y C g nameg vlist-any CR h N ] L C F g filenamef language/tree-il/peval.scm _
C h0 ])" $ & q
O Q $ N& A
& ' $ ( C6 6 C6 6 CC $ & C & C & C & C & C
& C & ?
$ )&
4 5$ C""""" g exp
) g w g failure ) g w G g w V x g failure Z x g w ! g w g filenamef language/tree-il/peval.scm
^
_ ) g nameg singly-valued-expression? CR h( ]4 5$ C4 545 6 g x
( g filenamef language/tree-il/peval.scm
m
o
o q r r / ! r & s ( q
( g nameg truncate-valuesg
documentationf %Discard all but the first value of X. CR h ] C g name
g gensym g refcount g set? g filenamef language/tree-il/peval.scm
y
g nameg %make-var-procedure CR446R- h ] C g t-9d6212d37ae-5bdd
g t-9d6212d37ae-5bde g t-9d6212d37ae-5bdf g t-9d6212d37ae-5be0 CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C4 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 language/tree-il/peval.scm
y
n C5R 78 ;< 4 ? > " G Bi R h z ] $ CC r g obj
g filenamef language/tree-il/peval.scm
y
g nameg %var?-procedure CCR44D6RE h : ] C 2 g t-9d6212d37ae-5bf3
CU/D0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
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 language/tree-il/peval.scm
y
n C5DR h | ] &
C 6t g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-name-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE/ h : ] C 2 g t-9d6212d37ae-5bff
CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C1 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 language/tree-il/peval.scm
y
C5R2 h ~ ] & C 6v g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-gensym-procedure C3R4426RAHM h : ]C 2 g err
g s CPV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-5c1a
CU/20 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
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 language/tree-il/peval.scm
y
C52R h ] & C 6 x g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-refcount-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-5c35
CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
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 language/tree-il/peval.scm
y
C5R h | ] & C 6 t g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-set?-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C
h : ]C 2 g err
g s CE1 h : ] C 2 g t-9d6212d37ae-5c50
CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C3 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 language/tree-il/peval.scm
y
C5R446R9^`ehi 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 language/tree-il/peval.scm
y
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5Rj h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
y
g nameg %set-var-refcount!-procedure CkR44j6Rl h Z ] C R g t-9d6212d37ae-5c7e
g t-9d6212d37ae-5c7f CU/j0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
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 language/tree-il/peval.scm
y
n C5jR h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
y
g nameg %set-var-set?!-procedure CR446Rl h Z ] C R g t-9d6212d37ae-5c8e
g t-9d6212d37ae-5c8f CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
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 language/tree-il/peval.scm
y
n C5Rj h ] $ v & j
45 & " 45 & " 4> " G CCC g exp
g res g w ! | g var - | g val K y g filenamef language/tree-il/peval.scm
$ - - 2 % K ! K
C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C hh ] $ X & S
4$ " $ " $ " ( /4 > " G 4 > " G 4
5" $ ~ $ j
$ N $ 2( &
"l " 4" / " $
" "
"0 " 56 & *
6 & 0
6
& *
6 & Q
4
5 & " 4> " G CCC g exp
d g res d g w e g w " e g w ) e g w 0 e g w = e g x } Z g ls F g p-ls F g p-ls
F g p-ls F g w A g w
9 g x 9 g w . g x . g w g w w g w ~ g w g w g w g w g w ^ g s . [ g filenamef language/tree-il/peval.scm
R \ c " i ' n 0 s < v F _ a e h % . . d Ch q ]C i g exp
g res g filenamef language/tree-il/peval.scm
C h( - . , 3 # 6 g exp
$ g table $ g filenamef language/tree-il/peval.scm
$ $ g nameg build-var-table CR h ] C g effort
g size g continuation g
recursive? g data g prev g filenamef language/tree-il/peval.scm
g nameg %%make-counter-procedure CR446R h ] C g t-9d6212d37ae-63b6
g t-9d6212d37ae-63b7 g t-9d6212d37ae-63b8 g t-9d6212d37ae-63b9 g t-9d6212d37ae-63ba g t-9d6212d37ae-63bb CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5R 7 ; 4 ? > " G Bi R h ] $ CC w g obj
g filenamef language/tree-il/peval.scm
g nameg %counter?-procedure C!R44"6RE= h : ] C 2 g t-9d6212d37ae-63d2
CU/"0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5"R@ h ] &
C 6{ g s
g filenamef language/tree-il/peval.scm
g nameg %effort-counter-procedure CAR44@6ROV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s Clrx h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-63de
CU/@0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5@R h ] & C 6y g s
g filenamef language/tree-il/peval.scm
g nameg %size-counter-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-63f9
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5R h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg %counter-continuation-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C $ h : ]C 2 g err
g s CE@ h : ] C 2 g t-9d6212d37ae-6414
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CB 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 language/tree-il/peval.scm
C5RC h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg %counter-recursive?-procedure CDR44C6RRY^ h : ]C 2 g err
g s Cagl h : ]C 2 g err
g s Couz h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-642f
CU/C0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5CR h ] & C 6 y g s
g filenamef language/tree-il/peval.scm
g nameg %counter-data-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-644a
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5R h ] & C 6 y g s
g filenamef language/tree-il/peval.scm
g nameg %counter-prev-procedure CR446R
h : ]C 2 g err
g s C
h : ]C 2 g err
g s C!& h : ]C 2 g err
g s CEB h : ] C 2 g t-9d6212d37ae-6465
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CD 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 language/tree-il/peval.scm
C5R44t6R9TV]hi 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 language/tree-il/peval.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5tR^ h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg "%set-counter-recursive?!-procedure C_R44^6Rl h Z ] C R g t-9d6212d37ae-6493
g t-9d6212d37ae-6494 CU/^0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5^R h ] & " 4 56 x g c
g filenamef language/tree-il/peval.scm
g nameg
abort-counter CR@ h8 ] &
" 4 5
$ 6 C g c
6 g e 6 g filenamef language/tree-il/peval.scm
! " ' - 0 1 4 6 g nameg record-effort! CR h8 ] & " 4 5
$ 6 C g c
6 g s 6 g filenamef language/tree-il/peval.scm
! " ' - 0 1 4 6 g nameg record-size! CR hP ]$ E & " 45& C & " 456C g data
O g counter O g filenamef language/tree-il/peval.scm
) 3 M O g nameg find-counter CR@ h - . , 3 # &
" 4 5 # & " 4 5 &
" 4 5&
" 45 45 & " 4 5& " 45 45 C g from
g to g effort g size g from-v g to-v g from-balance g
to-balance g amount g from-v g to-v g from-balance g
to-balance g amount g filenamef language/tree-il/peval.scm
* - 8 ( P U o + ) g nameg transfer! CR h(
]4 545 C g effort-limit
$ g
size-limit $ g continuation $ g data $ g effort $ g size $ g filenamef language/tree-il/peval.scm
$ g nameg make-top-counter CR hH ]4
54
5 4> " G C g continuation
A g data A g current A g effort ( g size ( g c ( A g filenamef language/tree-il/peval.scm
( + A g nameg make-nested-counter CR h p ]$4
54
5& " 45& " 45 4 > " G C h g effort-limit
g
size-limit g orig g current g effort D h g size D h g continuation D h g data D h g c h g filenamef language/tree-il/peval.scm
,
D h k g nameg make-recursive-counter CR h N ,
3
CF g var
g sym g visit g source g visit-count g use-count g copyable? g residual-value g constant-value g alias
g filenamef language/tree-il/peval.scm
g nameg %%make-operand-procedure CR446R h Z ,
3
CR g t-9d6212d37ae-655a
g t-9d6212d37ae-655b g t-9d6212d37ae-655c g t-9d6212d37ae-655d g t-9d6212d37ae-655e g t-9d6212d37ae-655f g t-9d6212d37ae-6560 g t-9d6212d37ae-6561 g t-9d6212d37ae-6562 g t-9d6212d37ae-6563
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5R 7 ;ר 4 ? > " G Bi R h ] $ CC w g obj
g filenamef language/tree-il/peval.scm
g nameg %operand?-procedure CR446RE h : ] C 2 g t-9d6212d37ae-6582
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5R h ] &
C 6x g s
g filenamef language/tree-il/peval.scm
g nameg %operand-var-procedure CR446R
h : ]C 2 g err
g s C h : ]C 2 g err
g s C#)/ h : ]C 2 g err
g s CEK h : ] C 2 g t-9d6212d37ae-658e
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CM 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 language/tree-il/peval.scm
C5RN h ] & C 6x g s
g filenamef language/tree-il/peval.scm
g nameg %operand-sym-procedure COR44N6R]di h : ]C 2 g err
g s Clrw h : ]C 2 g err
g s Cz h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-65a9
CU/N0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5NR h ] & C 6 { g s
g filenamef language/tree-il/peval.scm
g nameg %%operand-visit-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-65c4
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5R h ] & C 6 { g s
g filenamef language/tree-il/peval.scm
g nameg %operand-source-procedure CR446R h : ]C 2 g err
g s C # h : ]C 2 g err
g s C&,1 h : ]C 2 g err
g s CEM h : ] C 2 g t-9d6212d37ae-65df
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CO 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 language/tree-il/peval.scm
C5RP h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg %operand-visit-count-procedure CQR44P6R_fk h : ]C 2 g err
g s Cnty h : ]C 2 g err
g s C| h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-65fa
CU/P0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5PR h ] & C 6 ~ g s
g filenamef language/tree-il/peval.scm
g nameg %operand-use-count-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-6615
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5R h ] & C 6 ~ g s
g filenamef language/tree-il/peval.scm
g nameg %operand-copyable?-procedure CR446R h : ]C 2 g err
g s C % h : ]C 2 g err
g s C ( . 3 h : ]C 2 g err
g s CE O h : ] C 2 g t-9d6212d37ae-6630
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C Q 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 language/tree-il/peval.scm
C5R R h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg !%operand-residual-value-procedure C SR44 R6R a h m h : ]C 2 g err
g s C p v { h : ]C 2 g err
g s C ~ h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-664b
CU/ R0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5 RR h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg !%operand-constant-value-procedure C R44 6R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-6666
CU/ 0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
C5 R h ] & C 6 z g s
g filenamef language/tree-il/peval.scm
g nameg %operand-alias-procedure C R44 6R
h : ]C 2 g err
g s C
"
' h : ]C 2 g err
g s C
*
0
5 h : ]C 2 g err
g s CE
Q h : ] C 2 g t-9d6212d37ae-6681
CU/ 0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C
S 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 language/tree-il/peval.scm
C5 R44+6R9
c
e
phi 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 language/tree-il/peval.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5+R
q h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg #%set-operand-visit-count!-procedure C
rR44
q6Rl
h Z ] C R g t-9d6212d37ae-66af
g t-9d6212d37ae-66b0 CU/
q0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5
qR
h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg !%set-operand-use-count!-procedure C
R44
6Rl
h Z ] C R g t-9d6212d37ae-66bf
g t-9d6212d37ae-66c0 CU/
0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5
R
h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg !%set-operand-copyable?!-procedure C
R44
6Rl
h Z ] C R g t-9d6212d37ae-66cf
g t-9d6212d37ae-66d0 CU/
0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5
R
h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg '%%set-operand-residual-value!-procedure C
R44
6Rl h Z ] C R g t-9d6212d37ae-66df
g t-9d6212d37ae-66e0 CU/
0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.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 language/tree-il/peval.scm
n C5
R h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg &%set-operand-constant-value!-procedure C R44 6Rl @ h Z ] C R g t-9d6212d37ae-66ef
g t-9d6212d37ae-66f0 CU/ 0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C B 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 language/tree-il/peval.scm
n C5 R C h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg %set-operand-alias!-procedure C DR44 C6Rl j h Z ] C R g t-9d6212d37ae-66ff
g t-9d6212d37ae-6700 CU/ C0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C l 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 language/tree-il/peval.scm
n C5 CR m h T - . , 3 # # # 45 $ & " 4 5" & " 4 5$ "
C L g var
g sym g source g visit g alias g source 0 g copyable? g alias g filenamef language/tree-il/peval.scm
(
( - 0 - 8 / ; / $ T / \ 0 x 0 .
g nameg make-operand C nRf n h ] L 6 g name
g sym g source g alias g filenamef language/tree-il/peval.scm
4 5
C n h ] L 6 g name
g sym g source g filenamef language/tree-il/peval.scm
7 8
C h@ - . , 3 # $ O 6O 6 g vars
? g syms ? g sources ? g visit ? g aliases ? g filenamef language/tree-il/peval.scm
2
3 . 4 ? 7 ? g nameg make-bound-operands C oRf n h ] 6 g vars
g syms g filenamef language/tree-il/peval.scm
;
< g nameg make-unbound-operands C pR
h ]$ & q
$ V& G
& + $ ( " " " " " " " & C 6 g op
g val g w g w 6 p g w E g g val g filenamef language/tree-il/peval.scm
>
A ? g nameg set-operand-residual-value! C qRPP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
T U , U ( U 9
CP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
e f , f ( f 9
CP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
T U , U ( U 9
C
h8 r ] L& L " 4L> " G L 6 j g filenamef language/tree-il/peval.scm
[ _ 1 Z 1
g nameg abort C rP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
e f , f ( f 9
CP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
e f , f ( f 9
C h - . , 3 # # & " 4 5
$ P O O 4 O > " G V & " 4 5$ $ " $ " $ D4 & " 4 5 & " 4 5> " y U X4 & " 4 5 & " 4 54
O 5> X" /G 4
> " X4 O > " G CX4 O > " G FC g op
g counter g ctx g effort-limit g
size-limit g tag \ g _ I \ g results I \ g filenamef language/tree-il/peval.scm
I
! R : R ? R N S f W W X X X 8 X Y Y ) Y Z a b ) c C a L Z c S g nameg
visit-operand C sR t u v w x y z { |
h ] $ C $ " K $ " = $ " / $ " ! $ " $ " $
4 5 C
$ " $ " $ 4 5 CC g primitive-name
g args g filenamef language/tree-il/peval.scm
j
k k n s n } k p p g nameg types-check? C }R h( ] 4 M 5 $ C 4M 56 g sym
& g v & g filenamef language/tree-il/peval.scm
- & & g nameg
lookup-var Cf h@ ] 444 &
" 4 5555 4 M 5N C g var
? g new - ? g filenamef language/tree-il/peval.scm
- = ' - ) - + - - 0 <
? C h ]L O 6 | g vars
g filenamef language/tree-il/peval.scm
g nameg
fresh-gensyms C
h@ ] & " 4 5 & C 6 g op
9 g val 9 g filenamef language/tree-il/peval.scm
# 9 g nameg record-operand-use C q
h` ]
& " 4 5
$ 4 > " G " & C 6 g op
Z g n Z g count Z g filenamef language/tree-il/peval.scm
% * + D Z g nameg unrecord-operand-uses C q N h - . , 3 # # 4L > " G & " $ 4 > " G " &
" 4 5 &
" 4 5 & " 4
56 g op
g ctx g val g s { g filenamef language/tree-il/peval.scm
8 F G d # { 5
g nameg residualize-lexical C hH ]" %$ 4 56456 $ ( C"" g src
E g values E g filenamef language/tree-il/peval.scm
7 E g nameg make-values C f { r | hH ]L$ " L$ 4L > " 44L5L > G D g results
= G g filenamef language/tree-il/peval.scm
* - < @
G G
C h r - 1 3 D j g _
g filenamef language/tree-il/peval.scm
C h o ]L 6 g g t-9d6212d37ae-6b11
g filenamef language/tree-il/peval.scm
%
C } h ] 45$ 45 4O > G $ C $
6 $ $ 6 6 4
O 56 456" 456 & 45$
6"" g src
g name g args g ctx g make-values g args 2 g success? 3 g values 3 g filenamef language/tree-il/peval.scm
* 6 @ I O X [ _ f # h m $ o t g nameg fold-constants C z . h 0
]i" " " " " " s" " " V" $ & 7
4L 5 $ 6C & 7
4L 5 $ 6C &
45 $ 45" $ " $
4
56 " $ Y4 5 $ <( ( 4L 5
$ 4
56C4
56 4
56 $ "}4
56 "a4
56 4
56 $ &
$ & w
& /4L 5
$ 4
5 6C""""" $ M & @
4L 5 $ 6C"V"R $ V & I
4L 5 $ 6C"" $ M & @
4L 5 $ 6C"" $ & C"w"s $ & C"Y"U $ & C";"7 $ & C" " $ & ~
$ g & Z
& C L4 5$ ,L$ L4 5" $ 4 L56CC"""""" " i" " " |" - $ " & 3L $ )L$ L " $ L4 L5 6CC !& 3L $ )L$ L " $ L4 L5 6CC "& 3L $ )L$ L " $ L4 L5 6CC #& 3L $ )L$ L " $ L4 L5 6CC $& 3L $ )L$ L " $ L4 L5 6CC %& 3L $ )L$ L " $ L4 L5 6CC && 3L $ )L$ L " $ L4 L5 6CC & q
$ Z & M
4'5$ 3L $ )L$ L " $ 4 L5 6CC"F"B">":"6 $ @ (& 3L $ )L$ L " $ L4 L5 6CC"" $ @ )& 3L $ )L$ L " $ L4 L5 6CC"="9 $ @ *& 3L $ )L$ L " $ L4 L5 6CC"" $ @ +& 3L $ )L$ L " $ L4 L5 6CC"" $ @ ,& 3L $ )L$ L " $ L4 L5 6CC"P"L $ @ -& 3L $ )L$ L " $ L4 L5 6CC"" (
g exp
g w > q g w D q g w K q g w R q g body [ q g w ~ g w g w g w g body g w g w g tail-len g len g ls g n g p-ls g head k g w , Q g tail
5 Q g w u g w t g w t g w t g w l g w l g w l g w
l g w l g w l g w
" l g w ) l g w 0 l g body
@ h g w g w g w g w g w g body g w - g w - g w - g w - g w - g w
- g body - g w I g w O g w V g w ] g w d g body m g w g w g w * { g w 9 w g w [ g w a g w | =g filenamef language/tree-il/peval.scm
U G [ G c H o I t K K L M O / Q 5 Q = R B S & K S 3 M S & O S R O : A @ A H B O D ! f C l < < = >
8 8 9 + : 1 g 4 m 4 u 5 6 > % E % I % O % & R % > Y % 5 ^ % * b % g & $ k & 4 o & $ s & { ) ! $ ! 4 ! $ ! B ! )
! $ ! 4 ! $ ! B ! % / 3 9 = ) B F K ! $ O ! 4 S ! $ X ! B Z ! a k o u y ) ~ ! $ ! 4 ! $ ! B ! ) ! $ ! 4 ! $ ! B ! ) ! $ ! 4 ! $ ! B ! # ) - ) 2 6 ; ! $ ? ! 4 C ! $ H ! B J ! Q ) ! $ ! 4 ! $ ! B ! ) ! $ ! 4 ! $
! B ! / 3 9 = ) B F K ! $ O ! 4 S ! $ X ! B Z ! b z ~ ) ! $ ! 4 ! $ ! B ! ) ! $ ! 4 ! $ ! B ! ) # ' , ! $ 0 ! 4 4 ! $ 9 ! B ; ! C [ _ e i ) n r w ! $ { ! 4 ! $ ! B ! g nameg loop C h( ]
O Q 6 g src
! g exp ! g nmin ! g nmax ! g consumer ! g loop ! g filenamef language/tree-il/peval.scm
! g nameg
inline-values C h ]4M 56 g x
g filenamef language/tree-il/peval.scm
X ]
]
g nameg constant-expression? C h0 ]L & C & " 4 5
C g op
+ g filenamef language/tree-il/peval.scm
f m
m m
n ( n * n
+ g nameg referenced? Cf q h y ]4 > " G C q g op
g val g filenamef language/tree-il/peval.scm
" $ C S O R q s h T ]^O Q " "
( 4 5
$ 44 54 55 $ <4 5 ( C44
554 5456( " 45 4 4
55 ( C4
5 44
554 5456
"
4
5$
"
&
" 4
5$
"& "
&
" 4
5
$ 14
4
5> " G
"^
4
5 45$ "
"&
"4 5 " L g ops
g in-order? g body g counter g ctx g build-result g referenced?
g old g values g effects g ops*
g values g effects g new
& g effects J g values [ g effect-vals g body g values g op
g effect g filenamef language/tree-il/peval.scm
_ &
- 1 2 7 " @ 4 J J R t S v [ v c w
i y l y ! x y y z { y & ' 0 ' ~
# "
& ) E H M Y ] m a m b m
i n n n
. H . : 4 B U g nameg prune-bindings C h x ]C p g x
g res g filenamef language/tree-il/peval.scm
C h x ]C p g x
g res g filenamef language/tree-il/peval.scm
C h ]L$ CL 6 g x
g res g filenamef language/tree-il/peval.scm
C h@ ] U %4O
> " G XCXFG E g x
@ g limit @ g tag @ g _ 5 @ g results 5 @ g filenamef language/tree-il/peval.scm
8 @ g nameg small-expression? CN h0 ]& " 454 56 g sym
- g op - g env - g filenamef language/tree-il/peval.scm
! % - - g nameg
extend-env C h0 ]
$ &
6CC g x
, g r , g w & g filenamef language/tree-il/peval.scm
& , C hH ] 4 M 5 $ " 4 4M 55 & C6 g sym
F g v - g s - F g filenamef language/tree-il/peval.scm
" - * - F g nameg assigned-lexical? C R s h ]"4 5$ 4 5 4L5 $ " 45 $ &
" 45 & " 4
5 $ D& " 4 5 $ " ;4 L
5 $ " & " 45 " n4 5 4M5 $ " 44M55 & " 45 $ 4L 5DD45$ m4 5 4M5 $ " 44M55 & " 45 $ ",""D $ DD g x
g n-aliases g var = g t : g t = g s _ g t g t g y g sym K g v ( g s ( H g sym t g v g s g filenamef language/tree-il/peval.scm
/
3 7
= H _ : ,
- % ( N R S ^ b b c m n 1 t w
-
> g nameg find-definition C h ]L LL 6 g exp
g filenamef language/tree-il/peval.scm
* g nameg for-value C h ]! $ y & n
$ Z& O
& : ( C$ "( 44M 55$ CCCCCCCCC g x
g w g w 6 | g w E z g w ` v g filenamef language/tree-il/peval.scm
c ] f ] n ] r g nameg make-prompt-tag? C h y ]L 6q g val
g op g filenamef language/tree-il/peval.scm
C h y ]4L > " G L Cq g val
g op g filenamef language/tree-il/peval.scm
C h0 ]4L 5$ 4L 5$
4L 5L6CC g val
) g op ) g filenamef language/tree-il/peval.scm
" #
#
$ #
% % % ) C r hp > ]
4L > " G 4L445454544L54L5 554L LLLL55 L LLL6 6 g val
n g op n g exp ` n g filenamef language/tree-il/peval.scm
& - / 1 1 ' % 1 > ' 1 ' ( 2 ' - 2 > / 2 ' 0 3 ' 5 3 > 7 3 ' 8 2 $ ; 4 ( B 5 ' K 2 $ Q 1 R ` / ` . n n C f pN h( ] 4 L 5 & C6 g old
$ g s $ g filenamef language/tree-il/peval.scm
+ & $ g nameg new-sym C i h ]L LL 6 y g t-9d6212d37ae-8149
g filenamef language/tree-il/peval.scm
! : ! C z i h ]L 6 g var
g gensym g init g body g filenamef language/tree-il/peval.scm
i * k 6 l 6 m 6 j , C hx ) ]HL
LL $ JL4LL$ L" L$ L " 5L4LL$ 45 " 5L6L
LL $ QL4LL$ L" L 5L44LLL 54454LLL 55 5L64 LLL > G 4 L
> G 4 4LL5L
> G L$ L " G L$ 45 " G 4L L
L> G L45454L54
LO L56 ! g non-rest-gensyms
v g rest-gensyms v g provided-gensyms v g default-gensyms v g
provided-vars v g default-vars v g rest-vars v g
rest-inits ' v g
default-inits < v g filenamef language/tree-il/peval.scm
( *
* ) , - $ $ - , * . $ / . - 4 . 9 6 , 9 0 C 1 $ D 2 . H 2 = J 2 . M 2 ( R 3 ( T 0 X + _ 5 ` 5 d ) i 7 s 8 $ z 8 , 9 $ 7 ; ; $ ; 4 ; $ < * > + > B > + ? + ? ; ? + < * < $ ; 6 X X * X V Z V \ \ " \ V ^ ^ ! ^ - V ` a " a 1 a " ! a & b * V - d 6 d $ ; d ? V F f O g X h a i v e J v
g nameg inlined-application C mD C^ f h0 ]4L 4LLLL54LL55 L 6 g tmp
) g filenamef language/tree-il/peval.scm
* ) )
)
g nameg abort C {
h` G ] H44L& " 54L54 5 5K ( JC LJ454L 56 ? g elts
Z g test Z g filenamef language/tree-il/peval.scm
, 3 8 # % 8 ) # *
# 0
2 2
# 5 7 < % @ J 0 Q 0 V 4 X 0 Z
Z g nameg lp C i h X ] LLL L 6 P g filenamef language/tree-il/peval.scm 1
C h o ] 6 g g t-9d6212d37ae-9754
g filenamef language/tree-il/peval.scm
C r h`
]I" " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 $ s & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"
" $ &
" " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ L( A " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ ( " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ ( " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL 55 5 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ 0& # 4L 56"""+"'"""i"e & 7
( LL4L4 LLL 55 6"" " $ S & F
4L5$ * LL4L4 LLL556"""
g alternate
` g t g failure f g w g w " g t 3 g failure g w 7 _ g w t g w { g t g failure g w g w g w g t Z g failure 6 X g w g w & g t 7 g failure g w ; c g w | g w g w X g w / T g w 6 T g filenamef language/tree-il/peval.scm
[ \
= C C C C D % ( ! , . 4 F 7 F < F # = H A I B J F J & J J 3 K J 7 P J R H U G V K Z K * _ K ? c K * d L ' f K f K i v p x s y x v E = x y x v = x y x v = x y x v = \ ( = - C 1 C 3 C 3 C 6 > D % F ! J L R F U F Z F # [ H _ I ` J d J & h J 3 i J 7 n J p H s G t K x K * } K ? K * L ' K K v x y x v E = x y x v = x y x v = x y x v = F x I y W x [ v _ = c \ = C C C C D % ! F F F # H I J J & J 3 J 7 J H G K K * K ? K * L ' K K v x y x v E = x y " x & v ) = 6 x 9 y G x K v N = [ x ^ y l x p v t = x y x v = \ = C C C C D % ! F F F #
H I J J & J 3 J 7 J " H % G & K * K * / K ? 3 K * 4 L ' 6 K 6 K 9 v @ x C y Q x U v Z E Z = j x m y { x v = x y x v = x y x v = x y x
v = \ , = 1 C 5 C 7 C 7 C : B D % J ! N P V F Y F ^ F # _ H c I d J h J & l J 3 m J 7 r J t H w G x K | K * K ? K * L ' K K v x y x v E = x y x v = x y x v = x y x v = J x M y [ x _ v c = g \ k k & k 1 l j = x y x v = \ _ ' * \ ? c B d P c T a X \ . ` g nameg lp C t hx ]Q" $ &
$ & ~
$ Z& N
& 9 O
L LLQ
6 C C C C C C C $ &
$ & }
$ g& Z
& C $ 1( & 45 """""""""" g c
u g w g w g w 6 g w < g w C g w J g w e g w s g w z g lp
g w m g w m g w e g w ] g w Y g w . Q g w 5 Q g w < Q g filenamef language/tree-il/peval.scm
M N [ N ? T
Q S U N u g nameg simplify-conditional C h W ] L 6 O g filenamef language/tree-il/peval.scm
& '
C h c - 1 3 C [ g args
g filenamef language/tree-il/peval.scm
&
C h ]L M 6 g exp
g counter g ctx g filenamef language/tree-il/peval.scm
g nameg visit C o h ]L 6 g names
g gensyms g vals g body g filenamef language/tree-il/peval.scm
C h ]L M 6 g exp
g counter g ctx g filenamef language/tree-il/peval.scm
g nameg visit C h ]LL 6 g names
g gensyms g vals g body g filenamef language/tree-il/peval.scm
C
h ] $ & z
4L 5 $ " 45 &
" 45 & " 4 5 $ CCCC
g exp
g w ! g t , G g op G g s c g filenamef language/tree-il/peval.scm
$ , <
@ D
G L " c g nameg lookup-alias C h ]L L 6 g exp
g counter g ctx g filenamef language/tree-il/peval.scm
( * C h0 ] ( 4 > " G " L 6 g names
. g gensyms . g vals . g body . g filenamef language/tree-il/peval.scm
/
6 / . . C h( ] 45 4 M 5N C g elt
$ g new $ g filenamef language/tree-il/peval.scm
$ ! ! $ C h ] 6 g t-9d6212d37ae-af4a
g t-9d6212d37ae-af4b g filenamef language/tree-il/peval.scm
" C N h0 ] 4 5 $ C4 5 $ C 6 g x
, g t , g t , g filenamef language/tree-il/peval.scm
% % " % % - % , % 7 , C s
h8/ ? , 3 5O O LQ LQ $ 4> " G " " ." ." +" *" %" $" #" "" !" (" " " C" " " " " " d" " " " " " " :" " -" ? $ + &
O
LQ
4L54L5 4 > G
4
O
?$
L O
@4 > G 4
O ?$ L L O @ 4L 56
& C
4L5454L 564 56 4 56 $ &
" $ ( :
(
"44L
5 56
4L
5 4 5$ 44 5 5 "|4 5$ "e "V456 ">"" $ X & K
4L 5 4L5 4 L 4 55 O Q 4L
5 $ " x $ q
$ " b$ Z & L
$ 2 & $
!& $ $ "&
$ & " ( 04#5 $ 4$5$ " k" e" ` $ F $ 2 %& $
" " " " "m" " " " " " " " " " " $ C&
$
" ( ?4#54#54#5 4' 455" $ ~ $ j $ N $ 2 ( & "\ " 4" / " $ " " " " 4(LO 5$ 4L5" 6 "t"p $ "&
$ )6*$ +6,$ C4-$ 4L5" 5 4. 4/ M5
$
"
M5N C"" $ &
" " " i" " " 04L15456 $ 2&
43L
5 $ " 43L 5 $ 4L5 " "b $ \ 2& O
44
4055 """04L15456"" $ "&
$
&
& }
& V455 45 5 $ 45 5"
4/ M5 $ " 6O
Q $ "
$ " $ 04L154564748595 $ " 4:5 $ 485 $ ;& " 4<=5$ e" U& " Q;& " 4<>> " G ;& " 4<?5 " "" " 45 "@ U HHAO LQ 485 $ 4BLL 5" "$ 4C5"
4DL L5 K4L45 J5K$ 4EJ> " G " JXCXFG E"""
""" $ T & G
4F
5$ -45 4L
5 $ C0 6""" $ | & o
4G
5$ U
45 " Y" k" " " " " ? $ + 4L
5
$
C0 64 56 $ 5
"
$
$ ( $ H&
$ $ (44)5 5 "f*$ 4I5$ >
J$ K"
L$ M" +44N55$ " 6( )44+5 5 "4OP5 455 4.QR M5N 44R SO
Q 45 5 "m4I5$ 4
J$ K"
L$ M" +44N556( )44+5 5 "0 4+5 6""""""J & "L & """ $
T & r
$ g
( \
$ LH& ?
$ ( 4+5 ";""""""" $
U & r
$ g
( \
$ LH& ?
$ ( 4+5 ""k"g"c"_"["W"S $
T &
$
(
$ &
$ s & f
V& O $ = 4404WV55 5 """"""""}"y"u"q $
U &
$
(
$ &
$ i & \
V& E $ 3 44 55 """"""""""" $
T &
$
(
$ &
$ & r
X& [ $ I $ 4( ) 4 5 " """""""""""" $
U &
$
(
$ &
$ & r
X& [ $ I $ 4( ) 4 5 "6""""""""""""""" $ ~ & q
4Y
5$ W" k
45 $ I
X & )
$
" 0 6$ ( " ZO Q $ q & d
$ I & <
V& 04WV560 66 6 6 6 $ 7H& *
& 04WV5 6"4"0",""
0 6
0 64 56 & " *$
" " " " | $ p
[ & S
$ G
( ;
$ 'H&
4\5" " " " " "
" $ $ ( [ & " "` "Y"U $ ] & " "0 ") $ V & " x" " $ b
X & B
$ 3
$ ( " "" " " "" "
" " $ D&
4)5" 4+5 44 55 """"""4L,5 "l"" $ &
$ | & o
" D $ 2
4^_5 $ 4^ 5"
$
" $ "v" $ 4#5 $ ( " x" " " I$ 4L5 "445 5 04L
56$ &
$ &
V& y " f( (40
455 "$ - $ 4`4M55" $ "" " """"""$ &
$ &
X& $ $ 4`4M55" $ j$ _( T $ 4`4M55" $ 040
4 55 """"
" """"""$ VH& I
$ 34a5 40
455 "4"""4 5 "w""$ "%"
""b& "!& ""d"`"\"X"T $ &
$ &
& ( & )6 C4 5
" 04W5
6$ " *$ " $ "
$ <4cd
5$ +44
55 """~"_"["W"S"O $ L & ?
$ ( &
e& $
$ ( $ "&
$
&
& p
& X
( G
& )4f40
5
5 ""0","("$" " """" """ """ $ g&
hO
L
Q
4L*5 " '
4i 4L54L 556 $ F H& 9
$ " """"$" $ - & $ )6*$ +6 C"" $ 5 j& (
k4L56"" $ 5 l& (
m4L56"`"\ $ G n& :
o 4L
56"
" $ p& C"" $ p& x
4F5$ V & D4qrO s5
4t
5$ %4u
5 4uv5& W6 C C"_"["W"S $ w& C"8"4 $ d w& W
4F5$ =4/M5$ C4x L5 4y5$ "SC""" $ @ z& 3
{4L54L56"v"r $ , |&
}4L56";"7 $ L ~& ?
45454L 56"" $ &
4L54L54L 5
4`4M
55$ b4`4M 55$
64O5
4.
Q
M5N4
4
4
5564`4M 55$ F4O5
4.
Q
M5N4
44
5 564O54O5
4.
Q
M5N4.Q M5N4
44
5 4556"D"@ $ & &
4L5 $ &
& & a45
5 $ " $ 45 5"
4L
5 $ 4L5" " "
" "
$
Cf 4L56"" $ &
HH
H H H
O
LQ 4L5K
4LJ
5K 4J
J 5K 4 LJ 5K
4L J
5K4IJ5$ JCLJ JO 6"Q"M $ &
HHH
H H O LQ 4L5K 4LJ 5K 4J J 5K
4 LJ
5K4L
J5K" LJ
JO 64IJ5$ 4cL 5$ JC"""p"l $ R 2& E
O
Q
4L5 4L 5 4 LO 4
55
4 L
5 4L 5 4I5$ )44 55 "I" L
O 645$ l4K45 5$ V454 5 44445545 55 "پ"u"q"" $ 2& s
4^5 $ 4^5" $ " $ "ٵ" $ 4# 5
$
(
4^5 $ 4^5" $ " $ "O" |$ N4#5 $ :( / 4^5 $ 4^5" $ " $ "" $ 4# 5 $ ( $ } & p
$ Z & M
V & 6 ! ""$ " & "
#" $$$ $ & $
$ %" " &&$ && ( '4^5 )($ 4^(5" **$ *)" $ "" \,)$ .4#-5 .+$ +( + //$ /%& /
/ 00& / 11& 4/1M5 22$ 2" 414M55 2 22Q& 2 " 4<25 2 $ s445!55 24LO 25 3444
254354 !540#'4.4235555 44 "s""""ּ"ָ"ִ"ְ+$ + .+,.- - , +""(* - , +""xb%& "3!%& "'"\"X"T"P"L"H"D"@"<"8"4"0$ "*" """$ "" "u"ռ"ո
$
""Փ
""Հ"| $ &
4/5
$
" 45
&
" 4<
5 Q& " 4< 5
$ .4L 5 4 5$ C 4)5 64L
> " G
&
" 4<
54L 56"u"q $ %&
" & )6& " 4<5 $ "1& L 6&
" 4<5 Q& " 4< 5 $ L 6& " 4<5$ 47& " 4<55$ 1& " 4<5 "4& " LL5 $ p4`4M 55$ .4I 5
$ " 4 5 $ " 4y 5
$ F& " $ -& " 4<> " G " C &
" 4<5
Q&
" 4<
5
$ C,& 1"
L 64: 5$ 4L L5$ C"""
L 64L L5$ 4: 5$ " C"& " 4<> " G L 6L 6L 64/5 $ " 45 "5"y"u $ & *$ +6 C"K"G $ H& $ )6 C" " ? g exp
/5 g env /5 g counter /5 g ctx /5 g find-definition /5 g for-value /5 g w g w g w g w g make-prompt-tag?
g tag g body g vals
g vals O g w g w g w g w g w g w g exps g effects g w
/ f g w
l g x l g head } g w C g w C g w C g w C g w
C g w C g w % C g w
, C g w 3 C g vars > C g new G C g env ] C g new-sym g C g body y C g w g w g w g w g x g w g ls " g p-ls " g sym / X g w b g w g t C g w g x g ls ( g p-ls ( g p-ls ( g p-ls ( g old C m g name C m g kw C m g w w g w g x g w g x g w g w _ g w e g w l g new g x
g w g w g w g proc g w
i 5 g t z g v g w g w
g w g w g w g exp g w
\ g w w g w ~ g w
g w g w g w g w g w g nargs g nreq g nopt g x g key g inlined-application g t - P g t g found
7 g counter
$ g tag
S g new-counter
^
g result
^
g abort
q
g t
g _ g results g w
? } g args U y g t d y g w
g v g x g t
g w ! P g x
! P g w 6 0 g x 6 0 g w K ( g w f g exp g member g exp
! g t
(
g refcount
1
M g lp
l
g exp
g member
g exp
g w a g x
a g w ~ g w g w g x g exp g w v g x
v g w j g w ' b g w - b g w 9 ^ g exp H ^ g w T g x
T g w H g w @ g w @ g w 8 g w 4 g w 0 g x 0 g exp 0 g w e ( g x
e ( g w g w g w g w g w g w g x g exp g w 9 g x
9 g w V g w l g w r g w g w g w g x g w g exp g w # g x
# g w @ g w V g w \ g w w g w g w g x g w g exp g w
% g v B g w Q g x
Q g w j x g x j x g x u g w p g failure . g w & g w & g failure & g w g w g w B h g w H h g x z g x g v 9 g w E g x
E g w 0 g w # g w [ q g w g w g w . g x
. g x g res V g exp k g w S g w S g w K g w / g w
+ g x + g tail-len
+ g len
+ g ls = g n = g p-ls = g args M g w ` g tail* f g speculative? f g args g w ~ g w v g w r g ls j g exp 2 g w < f g w u g w m g w i g w e g x e g w Y g exp ? U g w g args* g exp g w g w o T g w u T g w L g w H g vals
H g exp * @ g w p g w v g w g w g w
g x g w g w
g w g w g w ( { g w A w g exp ] s g w { g w { g w { g w { g simplify-conditional
{ g v { g w C s g w g w g w g w 3 g w 3 g w 3 g w O g w U g w \ g w c g w
j g w 0 g w 0 g w 0 g w , g module
( g var % g w l g exp g w g w g w g w ! < g w ' < g w X g w ^ g w e g w l g w "+ g w "+ g w "+ g w "+ g pre
"+ g body "+ g post "+ g post-sym
!% !d g pre-sym
!{ ! g pre-sym
! "+ g post-sym ! "+ g w "G #\ g w "M #\ g w "T #\ g producer "c #\ g w
"~ #2 g w " #/ g w " #, g w
" #) g w " #! g nmin " # g nmax " # g t " # g t
#< #\ g w #x $ g w # $ g w # $ g w # $ g vars
# $ g new # $ g ops # $ g env*
# $ g body* # $ g visit # $ g w $2 $ g w $8 $ g w $E $ g w $L $ g w
$S $ g vars $Z $ g new $Z $ g ops
$Z $ g env* $Z $ g body* $Z $ g visit $m $ g w % &P g w % &P g w %" &P g w %) &P g lookup-alias
%3 &P g vars %A &P g new %J &P g ops
%i &P g env %x &P g body % &P g exp % % g sym & &H g pairs & &H g exp &2 &H g w &l * g w &r * g tail-len &{ * g len & * g ls
& * g n & * g p-ls & * g names
& * g w & * g w & * g tail-len & * g len & * g ls ' * g n ' * g p-ls ' * g gensyms '$ *k g w '7 *c g w '> *c g tail-len 'G *c g len '\ *c g ls 'z *T g n 'z *T g p-ls 'z *T g vals ' */ g w ' *' g w ' * g w ' * g w ! ' * g w " ' * g w # ' * g w $ ( * g w % ( * g w & (+ ) g w ' (: ) g x ( (: ) g tail-len ) (E ) g len * (Z ) g ls + (x ) g n , (x ) g p-ls - (x ) g args . ( ) g w / ( ) g w 0 ( ) g w 1 ( ) g v 2 ( ( g s 2 ( ) g tmps 2 ). ) g tmp-syms 3 )> ) g exp 4 )} ) g w . ) ) g w *9 *P g w *u * g w
* * g w * + g w * + g w + + g w + + g t
+ +1 g op
+1 + g s +M +m g exp + + g w , . g op , . g t ,7 . g s ,o , g val , - g t -, . g t
-K -y g t -_ -v g s
- - g t . . g filenamef language/tree-il/peval.scm
5 6 O * * # C ! R 8 * : ' * : ! 7 K P S b d f i q { * } }
% 6 > A G J S ] ] m y 6 : ; E [ L * U < _ * ` p / 0 C
G w | & *
- 7 * 9 : D D r z * ( * * + " 5 = $ $ % $ & & ! $
$ - u - u @ u # L u < M u 3 T t Y c * e f x " p w q y t y y y z t !
"
$
$
8
N
P
M U X d y } x y . & " * 2 * %
0
(
!
"
& %
(
(
+ 2
1
4
< -
D !
H
J
N
T "
W
\ &
a /
l
"
%
-
%
9
1
7 / @ H ^ b
% < % 0 4 , 9 , , , 9 B * A *
& 1 . M 2 Q V * [ A ] * b & d h z = A & E F P V Y ^ - g ? i - k k 1 f j x y * $ 9 * $ 1 2 5 D E ] H ] P ] U Y ] ] ] ] ] ] ! % & / . : ; < . = ( ? ? U Y 3
% < % # , 4 # E & ? ( , * * @ L K P & W E Y & ] ] s w * |
( *
* | K ~
_ 7 8 7 9 * 5 % / * 1 3 3 7 w * 1 & & (
( ) )
* * " + , z
* * . 8 * : < @ s | / * * ] ] ] ! ! ] ! ] ! ] ! ! ! !# # !% !% !( !0 $ !7 ! !; != !C
!H
# !M
3 !N !W % !\ : !` % !b !d
!e ] !h ] !p ] !t !u !y $ !{ !{
!~ ! & ! ! ! ! ! ! $ ! 3 ! ! ' ! < ! ' ! ! ! ! $ ! ! 7 ! ? ! 7 !
! ! & ! ! ! ! ! ! & ! ! ! ! ! " ) " A "
" ' " < " ' " ' "# < "' ' ") "+ "/ "W "a * "c "c "h
" " " " 5 " = " - " " " " #< #N #\
#` # # # # # # #
# $
$ $Z $u $ $ $ $ $
$ $ $ $ ! $
$ %9 %A %D %J %M %_ ( %i %i %l %x %{ % % % % % ( % 5 % ( % % % % % % % % % % % % % & & & & & &" &# &. &0 &2 &2
&H &T (
( ( ( ( ( ( - ( ( ) ~ ) } )! )$ ), 2 ). ). )1 )> )A
)F )O )X )a )h )m )y ){ )}
)} ) ) + + +&
+* +.
+1 j +6 k " +M k +n k
+s k +t +~ * + + l
+ m + m + o 0 + o & + o + q + r * + + * + + r + , , , , , ,7 ,K ,O ,U ,X ,o , , , , , $ , $ , $ , , ' , ' - - * - * 2 - * % - * ; -, * -, -5 ] -8 ] -@ ] -D 0
-E 9 -K 9 -Y : -_ 9 -m ; -} 0
- B - B - B - B 1 - B ( - B - E - G " - G - G . 0
.
M . 0
. W . P . P .' P .( Q .4 P .M c .M \ .N \ .Z \ .[ ] .g \ .u 7 . 8 . h . # . . . .
. .
. . . /
/ /% /* /1 = /5 g nameg loop C h - / 0 3 # 45 # # ( # #
# # d H
H HO O
O
O
Q Q
Q
Q $ Q &
45 " ( &
45 " " K4 5K 4 O 5K
O
Q 6 g exp
} g cenv } g env } g operator-size-limit } g operand-size-limit } g value-size-limit } g effort-limit } g recursive-effort-limit } g local-toplevel-env ` } g store ` } g compute-effects
` } g
lookup-var } g
fresh-gensyms } g record-operand-use
} g unrecord-operand-uses } g residualize-lexical } g fold-constants } g
inline-values } g constant-expression? } g prune-bindings } g small-expression? } g
extend-env } g w g w g loop E } g filenamef language/tree-il/peval.scm
t
t % V E { } } g operator-size-limitS g operand-size-limitS g value-size-limitS g effort-limitS g recursive-effort-limitS g nameg pevalg
documentationf }Partially evaluate EXP in compilation environment CENV, with
top-level bindings from ENV and return the resulting expression. CRC g m
, g rtd
$ N g rtd
B C g rtd
| }# g filenamef language/tree-il/peval.scm
G E
L
W
^
& m
y
>[
?{
k
l;
mi
n
r
s
ue
w
y
( (
2
б ;
i >
I
ܬ j
Ē t
Ĕ
C6 PK ! G+_M _M language/tree-il/fix-letrec.gonu [ GOOF----LE-8-2.0GM ] 4 h ] g guile g define-module* g language g tree-il g
fix-letrec
g filenameS f language/tree-il/fix-letrec.scm g importsS
g system g base g syntax
g srfi g srfi-1 g srfi-11 g effects g exportsS g fix-letrec! ! "g set-current-module #" $" %g
<lexical-set> &% '% (g lexical-set-exp )g <module-set> *) +) ,g module-set-exp -g <toplevel-set> .- /- 0g toplevel-set-exp 1g <toplevel-define> 21 31 4g toplevel-define-exp 5g
<conditional> 65 75 8g conditional-test 9g conditional-consequent :g conditional-alternate ;g
<application> <; =; >g application-proc ?g application-args @g
<sequence> A@ B@ Cg
sequence-exps Dg <lambda> ED FD Gg lambda-body Hg
<lambda-case> IH JH Kg lambda-case-inits Lg lambda-case-body Mg lambda-case-alternate Ng <let> ON PN Qg let-vals Rg let-body Sg <letrec> TS US Vg letrec-vals Wg letrec-body Xg <fix> YX ZX [g fix-vals \g fix-body ]g <let-values> ^] _] `g let-values-exp ag let-values-body bg <dynwind> cb db eg dynwind-body fg dynwind-winder gg dynwind-unwinder hg <dynlet> ih jh kg
dynlet-fluids lg dynlet-vals mg dynlet-body ng <dynref> on pn qg dynref-fluid rg <dynset> sr tr ug dynset-fluid vg
dynset-exp wg <prompt> xw yw zg
prompt-tag {g prompt-body |g prompt-handler }g <abort> ~} } g abort-tag g
abort-args g
abort-tail g fix-fold g <void> g <const> g
<lexical-ref> g lexical-ref-gensym g memq g simple-expression? g and-map g primitive-ref? g delq g lset-adjoin g eq? g lexical-set-gensym g letrec-gensyms g append g let-gensyms g letrec-in-order? g effect-free? g exclude-effects g make-effects-analyzer g lset-difference g lambda? g partition-vars g
make-sequence g reverse g make-sequence* g post-order! g make-void g
letrec-src g letrec-names g map g list g make-let g cadr g car g caddr g make-fix g make-lexical-set g
module-gensym f fixlr g make-lexical-ref g let-src g let-names g assq g lset-intersectionC 5hH@ ]4
!5 4$ > " G hh s , 3 ( D4 > G
" k g proc
f g exps f g unref f g ref f g set f g simple f g lambda f g complex f g unref 2 f g ref 2 f g set
2 f g simple 2 f g lambda 2 f g complex
2 f g filenamef language/tree-il/fix-letrec.scm
f g nameg fold-values C'(+,/034789:=>?BCFGJKLMPQRUVWZ[\_`adefgjklmpqtuvyz{| 9h0
]4L > G
& #4 5 4L
> "
& #4 5 4L
> "
& #4 5 4L
> c" ^
& #4 5 4L
> 8" 3
& 4
54 54 5 4L
> G 4L > G 4L > "
& T4 54 5 4L
> G 4LL > S" N
& %4 5 4LL
> &" !
& ?4 5 $ 4L
> "
" "
& 4 54 54 5 4LL
> G $ @4L > G 4L > N" 4L > 4" /
& T4 54 5 4LL
> G 4L > "
& T4 54 5 4LL
> G 4L > |" w
& T4 54 5 4LL
> G 4L > "
!& R4" 54# 5 4L
> G 4L > "
$& 4% 54& 54' 5 4L
> G 4L > G 4L > =" 8
(& 4) 54* 54+ 5 4LL
> G 4LL > G 4L > "
,& #4- 5 4L
> "
.& R4/ 540 5 4L
> G 4L > +" &
1& 42 543 544 5 4L
> G 4L > G 4L > "
5& 46 547 548 5 4L
> G 4LL > G 4L > "
" G
L
6
g tree
. g unref . g ref . g set . g simple . g lambda . g complex . g unref . g ref . g set . g simple
. g lambda . g complex . g rtd
+ g exp < T g exp g g exp g exp g test ^ g
consequent ^ g alternate ^ g unref ^ g ref ^ g set ^ g simple ^ g lambda ^ g complex ^ g unref 9 ^ g ref 9 ^ g set 9 ^ g simple 9 ^ g lambda 9 ^ g complex 9 ^ g proc x g args x g unref g ref g set g simple g lambda g complex g exps g body . g inits O g body O g alternate O g unref n g ref n g set n g simple n g lambda n g complex n g unref g ref g set g simple g lambda g complex g vals 5 g body 5 g unref 5 g ref 5 g set 5 g simple 5 g lambda 5 g complex 5 g vals O g body O g unref l g ref l g set l g simple l g lambda l g complex l g vals g body g unref g ref g set g simple g lambda g complex g exp G g body G g unref " G g ref " G g set " G g simple " G g lambda " G g complex " G g body h g winder h g unwinder h g unref g ref g set g simple g lambda g complex g unref g ref g set g simple g lambda g complex g fluids ] g vals ] g body ] g unref ] g ref ] g set ] g simple ] g lambda ] g complex ] g unref 8 ] g ref 8 ] g set 8 ] g simple 8 ] g lambda 8 ] g complex 8 ] g fluid p g fluid g exp g unref g ref g set g simple g lambda g complex g tag k g body k g handler k g unref k g ref k g set k g simple k g lambda k g complex k g unref F k g ref F k g set F k g simple F k g lambda F k g complex F k g tag g args g tail g unref g ref g set g simple g lambda g complex g unref g ref g set g simple g lambda g complex g unref
. g ref
. g set
. g simple
. g lambda
. g complex
. g filenamef language/tree-il/fix-letrec.scm
. g nameg foldts C h@ ; , 3 O Q O
Q
6 3 g tree
; g down ; g up ; g unref ; g ref ; g set ; g simple ; g lambda ; g complex ; g fold-values ; g foldts
; g filenamef language/tree-il/fix-letrec.scm
; g nameg fix-fold CR589:@C h j ] LL 6 b g x
g filenamef language/tree-il/fix-letrec.scm
, , C;>? h j ] LL 6 b g x
g filenamef language/tree-il/fix-letrec.scm
1 2 C h ]# & C& C& 4 5 45C& G4 54 54 5 4
5$ 4
5$
6CC & 4 5
O 6& ;4 54 5 45$ 4 5$
O 6CCC g x
g
bound-vars g simple-primcall? g rtd g gensym * 7 g test T g
consequent T g alternate T g exps g proc g args g filenamef language/tree-il/fix-letrec.scm
!
" - &
6 & ? " [ (
i ( j )
x ( *
" , " /
/ 0
/ 1
g nameg simple-expression? CR%SN
h ] & '4 5 4545D& 4 5 45D& 4 5 4
5D & 4 5 4
5DD g x
g unref g ref g set g simple g lambda* g complex g rtd g gensym 6 g gensym E ^ g gensyms m g gensyms g filenamef language/tree-il/fix-letrec.scm
: ; = " > 6 = > ; L F ^ D f ; p K K ; R R Y CSV h ] 4M 5 4 56 g x
g effects g filenamef language/tree-il/fix-letrec.scm
d e ( e g f g nameg effect+exception-free-primcall? C h j ] L 6 b g x
g filenamef language/tree-il/fix-letrec.scm
^ 0
^ <
C h ] 4M 5 4 56 g x
g effects g filenamef language/tree-il/fix-letrec.scm
_ ` ( ` b b 5 b a g nameg effect-free-primcall? CNQ h ]_ & 4 54 54 5
H O Q 4O 5K " k
( 8$ 4 5" 4
54
54
5D4
5$ l"
"$ D4 5$ "
4
5$
"P""4
5$
" 4 5$
"4
$ " O 5$
"
"
"&
4 54 5 "
( #4
54
54
5D4
5$
"4
5$
""
"a4 5$ 04
5$ "
"%"
" D g x
g unref g ref g set g simple g lambda* g complex g rtd g in-order? $ g orig-gensyms $ g vals
$ g compute-effects + g effect+exception-free-primcall? 5 g gensyms
L g vals L g s L g l L g c L g orig-gensyms g vals g gensyms
g vals g s g l
g c g filenamef language/tree-il/fix-letrec.scm
Z [ ; ^ L h R j X p # Y q ' n u # w v # w # p x x ! x j # 1 z { ) { 2 { ) z | ) } * | ) | $ z # 1 - '
! j - ) " # 0 1 6 $ 8 < j ? B - G ' J ! Z [ ` h w { j ~ - % - ) # h i # i + i 3 h [ # # # ! ! $ ' - ; < A ! E I L O - V ) Y # g n q - x ) { # ) % + % - ' ! # + 3 x C h0 E ]14 > G D= g x
0 g unref 0 g ref 0 g set 0 g simple 0 g lambda* 0 g complex 0 g filenamef language/tree-il/fix-letrec.scm
6
9
9 7 0 0 g nameg partition-vars CRD h ]"" ( ( C 456 &
"&
"&
"&
" "p "e g src
g exps g in g out g head + g rtd 0 g filenamef language/tree-il/fix-letrec.scm
! . $ ( & ( + + 0
= G O
R \ d
g ! q y
| g nameg make-sequence* CR%(SVW h0 ] ( C4 L 5$
4L 5C " g binds
/ g filenamef language/tree-il/fix-letrec.scm
$ " ( $ $ % ) / / g nameg lp C h ] O Q L 6 g set
g lp g filenamef language/tree-il/fix-letrec.scm
g nameg lookup C h l ]6 d g x
g filenamef language/tree-il/fix-letrec.scm
* 6 C h ] 6 g c
g filenamef language/tree-il/fix-letrec.scm
1 : . C h u ]6m g x
g filenamef language/tree-il/fix-letrec.scm
& 7 ( C h ] 4 56 g x
g tmp g filenamef language/tree-il/fix-letrec.scm
$ -
! 6 ! CNQR h l ] L 6 d g v
g filenamef language/tree-il/fix-letrec.scm
C h l ] L 6 d g v
g filenamef language/tree-il/fix-letrec.scm
C h l ] L 6 d g v
g filenamef language/tree-il/fix-letrec.scm
C 'h ` ]q & 24 54 5 4L5$ 45 6 C& b4 54 54
54 54 54
5 45 O Q 4 L54 L54 L54 L 5
44 54
5544 54
5544 54
5544 54 54 5444
5
( " [$ 44
5 5" >4
5 44
54
544
555 5556 & 4 54 54 54 54! 5 45 4"O 4#$L554%O 4#$L554&O 4#$L 55
44544 54 54 544
54
54
555 56 C X g x
g rtd g gensym A g exp A g src s g in-order? s g names s g gensyms s g vals s g body s g binds g lookup g u
g s g l g c
g tmps n g src g names g gensyms g vals g body g binds g u 4 g l 4 g c
4 g filenamef language/tree-il/fix-letrec.scm
" .
4 + < ! > I
$ # % ! - ) . 1 ? D N O R _ a f
! n
q u -
( 4 4 ? % B ' K * P * Y * , b * 8 k , p , ) y , 6 , B , * ( % # R C h0 ]!4 > G O 6 g x
+ g unref
+ g simple
+ g lambda*
+ g complex
+ g filenamef language/tree-il/fix-letrec.scm
/ + + g nameg fix-letrec! C RC g m
, g filenamef language/tree-il/fix-letrec.scm
D !
- 6
0
@@
@B
C6 PK ! 1 language/tree-il/optimize.gonu [ GOOF----LE-8-2.0 ] 0 4 h ] g guile g define-module* g language g tree-il g optimize
g filenameS f language/tree-il/optimize.scm g importsS
g
primitives g peval g cse g
fix-letrec g debug g ice-9 g match ! " ! #g exportsS $g optimize! %$ &g set-current-module '& (& )g memq *g
partial-eval?S +g cse?S ,g fix-letrec! -g verify-tree-il .g expand-primitives! /g resolve-primitives!C 5 hP i ]4
"#%5 4( > " G )* h o ] C g g x
g e g filenamef language/tree-il/optimize.scm
" C+ h ` ] C X g x
g filenamef language/tree-il/optimize.scm
' C,-./ h ]+45 $ \ $ =$ 0 & $ " " " " " 45 $ \ $ =$ 0 & $ " " " " " 4 44 44
4 5555556 g x
g env g opts g v u g w l g x l g w 4 Z g x 4 Z g v ~ g w g x g w g x g peval g cse g filenamef language/tree-il/optimize.scm
v $
* + , - - - # - - , + * ) g nameg optimize! C$RC a g m
, g filenamef language/tree-il/optimize.scm
K
M
C6 PK ! AG language/tree-il/analyze.gonu [ GOOF----LE-8-2.0m ] & 4 hɴ ] g guile g define-module* g language g tree-il g analyze
g filenameS f language/tree-il/analyze.scm g importsS
g srfi g srfi-1
g srfi-9
g srfi-11
g srfi-26
g ice-9 g vlist g match !g system "g base #g syntax $!"# %$ &g message '!"& (' )g vm *g program +!)* ,+ - .- /g pmatch 0!"/ 10 2 %(,.1 3g exportsS 4g analyze-lexicals 5g analyze-tree 6g unused-variable-analysis 7g unused-toplevel-analysis 8g unbound-variable-analysis 9g arity-analysis :g format-analysis ;456789: <g set-current-module =< >< ?g make-hash-table @g
hashq-set! Ag
make-hashq Bg
<application> Cg application-proc Dg application-args Eg
lset-union Fg eq? Gg map Hg
<conditional> Ig conditional-test Jg conditional-consequent Kg conditional-alternate Lg
<lexical-ref> Mg lexical-ref-gensym Ng hashq-ref Og memq Pg lambda-case? Qg length Rg lambda-case-req Sg lambda-case-opt Tg lambda-case-kw Ug lambda-case-rest Vg lambda-case-alternate Wg lambda-body Xg
<lexical-set> Yg lexical-set-gensym Zg lexical-set-exp [g lset-adjoin \g <module-set> ]g module-set-exp ^g <toplevel-set> _g toplevel-set-exp `g <toplevel-define> ag toplevel-define-exp bg
<sequence> cg
sequence-exps dg <lambda> eg reverse! fg
<lambda-case> gg lambda-case-inits hg lambda-case-gensyms ig lambda-case-body jg append kg reverse lg lset-difference mg <let> ng let-gensyms og let-vals pg let-body qg <letrec> rg letrec-gensyms sg letrec-vals tg letrec-body ug for-each vg <fix> wg fix-gensyms xg fix-vals yg fix-body zg error {f unhandled record |g cons }g assq-ref ~g
hashq-remove! g <let-values> g let-values-exp g let-values-body g <dynwind> g dynwind-body g dynwind-winder g dynwind-unwinder g <dynlet> g
dynlet-fluids g dynlet-vals g dynlet-body g <dynref> g dynref-fluid g <dynset> g dynset-fluid g
dynset-exp g <prompt> g
prompt-tag g prompt-body g prompt-handler g <abort> g abort-tag g
abort-args g
abort-tail g max g filter g cdr g gensym f :LCASE g conditional? g lexical-ref? f 'fixpoint procedures may not be assigned g <tree-analysis> g %make-tree-analysis-procedure g make-syntax-transformer g make-tree-analysis g macro g $sc-dispatch g _ g any g
syntax-object g lambda g m-a11d84f71ea-1a65 g top g ribcage g t-a11d84f71ea-1a60 g t-a11d84f71ea-1a61 g t-a11d84f71ea-1a62 g t-a11d84f71ea-1a63 g t-a11d84f71ea-1a64 f l-a11d84f71ea-1a6a f l-a11d84f71ea-1a6b f l-a11d84f71ea-1a6c f l-a11d84f71ea-1a6d f l-a11d84f71ea-1a6e g x f l-a11d84f71ea-1a67 g shift g proc-name g args f l-1e8ba8b5a-60 f l-1e8ba8b5a-61 g key g value g name g formals g body f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 g make-procedure-name f l-1e8ba8b5a-43 f l-1e8ba8b5a-42
g hygiene
g leaf g down g up g post g init g make-struct g m-a11d84f71ea-1a5e g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a g ctor-args
f l-1e8ba8b5a-120
g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d g form g type-name g constructor-spec g field-names f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 !g
record-layout "g functional-setters #g setters $g copier %g getters &g constructor 'g getter-identifiers (g field-identifiers )!"#$%&'( * +f l-1e8ba8b5a-e9 ,f l-1e8ba8b5a-e7 -f l-1e8ba8b5a-e5 .f l-1e8ba8b5a-e3 /f l-1e8ba8b5a-e1 0f l-1e8ba8b5a-df 1f l-1e8ba8b5a-dd 2f l-1e8ba8b5a-db 3+,-./012 4)*3 5f l-1e8ba8b5a-da 65 76 8
47 98 : ;
8 <9:; =< >g each-any ?> @g syntax-violation A@ B@ Cf Wrong number of arguments Dg identifier? ED FD G HG I@ J@ Kf -source expression failed to match any pattern Lg record-type-vtable ML NL Og
pwpwpwpwpw Pg default-record-printer QP RP S Tg set-struct-vtable-name! UT VT Wg vtable-offset-user XW YW Zg %tree-analysis?-procedure [g tree-analysis? \ ]g m-a11d84f71ea-1a7a ^] _g t-a11d84f71ea-1a79 `_ a^ bf l-a11d84f71ea-1a7f cb d`ac ef l-a11d84f71ea-1a7c fe gaf h^dg
ih jg obj kg t-1e8ba8b5a-224 lg t-1e8ba8b5a-21e mg t-1e8ba8b5a-21f ng t-1e8ba8b5a-220 og t-1e8ba8b5a-223 pg t-1e8ba8b5a-222 qg t-1e8ba8b5a-221 rklmnopq sg m-1e8ba8b5a-225 ts uttttttt vf l-1e8ba8b5a-229 wf l-1e8ba8b5a-22a xf l-1e8ba8b5a-22b yf l-1e8ba8b5a-22c zf l-1e8ba8b5a-22d {f l-1e8ba8b5a-22e |f l-1e8ba8b5a-22f }vwxyz{| ~ru} g copier-id f l-1e8ba8b5a-21c g ctor-name f l-1e8ba8b5a-214 f l-1e8ba8b5a-212 g layout f l-1e8ba8b5a-210 g
immutable? f l-1e8ba8b5a-20e g field-count f l-1e8ba8b5a-20c g
getter-ids f l-1e8ba8b5a-209 g field-ids f l-1e8ba8b5a-206 g predicate-name g
field-spec f l-1e8ba8b5a-1f9 f l-1e8ba8b5a-1fa f l-1e8ba8b5a-1fb f l-1e8ba8b5a-1fc f l-1e8ba8b5a-1fd f l-1e8ba8b5a-1fe dg~47 j g and g struct? F g
struct-vtable dg i g Z g throw-bad-struct g tree-analysis-leaf g %tree-analysis-leaf-procedure g free-id g
%%on-error g m-a11d84f71ea-1a86 f l-a11d84f71ea-1a88 g %%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 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 f l-1e8ba8b5a-156 f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 47 g ck g err g s f l-a11d84f71ea-1a8b f l-a11d84f71ea-1a8c
g quote
g %%index f l-a11d84f71ea-1a90 f l-a11d84f71ea-1a91
g %%copier !f l-a11d84f71ea-1a95 "f l-a11d84f71ea-1a96 #!" $ # %$
&% '% (g %%<tree-analysis>-set-fields )$ *() +'* ,+ -g t-a11d84f71ea-1a85 .- /f l-a11d84f71ea-1a9a 0/ 1.0 21
32 4147 54 65 7g if 874 9F4 :4 ;:5 <1 =< >9;= ?g
struct-ref @?4 A1 B
A C@5B D4 E4 F< GEF HD5G I8>CH J36I K LK Mg tree-analysis-down Ng %tree-analysis-down-procedure Og m-a11d84f71ea-1aa1 PO QP Rf l-a11d84f71ea-1aa3 SR TQS UPT VU WV XW YT47 ZY [Z \X[ ]PP ^f l-a11d84f71ea-1aa6 _f l-a11d84f71ea-1aa7 `^_ a ]` bPaT
cb db eaT fe gdf hg iY ji kXj lf l-a11d84f71ea-1aab mf l-a11d84f71ea-1aac nlm o ]n pPoT
qp rp soT t s urt vu w Y xw yXx zf l-a11d84f71ea-1ab0 {f l-a11d84f71ea-1ab1 |z{ } ]| ~P}T
~ ~ }T ( g t-a11d84f71ea-1aa0 f l-a11d84f71ea-1ab5 Q PT
T47 7 F T ? T M T N g tree-analysis-up g %tree-analysis-up-procedure g m-a11d84f71ea-1abc f l-a11d84f71ea-1abe 47 f l-a11d84f71ea-1ac1 f l-a11d84f71ea-1ac2
f l-a11d84f71ea-1ac6 f l-a11d84f71ea-1ac7
f l-a11d84f71ea-1acb f l-a11d84f71ea-1acc
( g t-a11d84f71ea-1abb f l-a11d84f71ea-1ad0
47 7 F ? g tree-analysis-post g %tree-analysis-post-procedure g m-a11d84f71ea-1ad7 f l-a11d84f71ea-1ad9 47
f l-a11d84f71ea-1adc f l-a11d84f71ea-1add
f l-a11d84f71ea-1ae1 f l-a11d84f71ea-1ae2
! "! # $# %$ &f l-a11d84f71ea-1ae6 'f l-a11d84f71ea-1ae7 (&' ) ( *)
+* ,* -) .(- /,. 0/ 1g t-a11d84f71ea-1ad6 21 3f l-a11d84f71ea-1aeb 43 524 65
76 85 47 98 :9 ;78 <F8 =8 >=9 ?5 @? A<>@ B?8 C5 D C EB9D F8 G8 H? IGH JF9I K;AEJ L7:K M NM Og tree-analysis-init Pg %tree-analysis-init-procedure Qg m-a11d84f71ea-1af2 RQ SR Tf l-a11d84f71ea-1af4 UT VSU WRV XW YX ZY [V47 \[ ]\ ^Z] _RR `f l-a11d84f71ea-1af7 af l-a11d84f71ea-1af8 b`a c _b dRcV
ed fd gcV hg ifh ji k[ lk mZl nf l-a11d84f71ea-1afc of l-a11d84f71ea-1afd pno q _p rRqV
sr tr uqV v u wtv xw y [ zy {Zz |f l-a11d84f71ea-1b01 }f l-a11d84f71ea-1b02 ~|} _~ RV
V ( g t-a11d84f71ea-1af1 f l-a11d84f71ea-1b06 S RV
V47 7 F V ? V O V P g each g %%set-fields g dummy g check? g expr g m-a11d84f71ea-1b0d f l-a11d84f71ea-1b12 f l-a11d84f71ea-1b13 f l-a11d84f71ea-1b14 f l-a11d84f71ea-1b15 f l-a11d84f71ea-1b16 f l-a11d84f71ea-1b0f g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 47
M O G G g list g tree-il-fold g tree-il-src g <binding-info> g %make-binding-info-procedure g make-binding-info g m-a11d84f71ea-1b75 g t-a11d84f71ea-1b73 g t-a11d84f71ea-1b74 f l-a11d84f71ea-1b7a f l-a11d84f71ea-1b7b f l-a11d84f71ea-1b77
g vars g refs g m-a11d84f71ea-1b71
47
g pwpw g %binding-info?-procedure g
binding-info? g m-a11d84f71ea-1b84 g t-a11d84f71ea-1b83
f l-a11d84f71ea-1b89
f l-a11d84f71ea-1b86
~47 j F
! "! #g binding-info-vars $g %binding-info-vars-procedure %g m-a11d84f71ea-1b90 &% '& (f l-a11d84f71ea-1b92 )( *') +&* ,+ -, .- /*47 0/ 10 2.1 3&& 4f l-a11d84f71ea-1b95 5f l-a11d84f71ea-1b96 645 7 36 8&7*
98 :8 ;7* <; =:< >= ?/ @? A.@ Bf l-a11d84f71ea-1b9a Cf l-a11d84f71ea-1b9b DBC E 3D F&E*
GF HF IE* J
I KHJ LK M / NM O.N Pf l-a11d84f71ea-1b9f Qf l-a11d84f71ea-1ba0 RPQ S 3R T&S*
UT VT Wg %%<binding-info>-set-fields XS* YWX ZVY [Z \g t-a11d84f71ea-1b8f ]\ ^f l-a11d84f71ea-1ba4 _^ `]'_ a&`*
ba c`*47 dc ed f7c gFc hc ihd j`* kj lgik m?c n`* o
n pmdo qc rc s#j trs uqdt vflpu wbev x* y$x zg binding-info-refs {g %binding-info-refs-procedure |g m-a11d84f71ea-1bab }| ~} f l-a11d84f71ea-1bad ~ } 47 }} f l-a11d84f71ea-1bb0 f l-a11d84f71ea-1bb1 }
f l-a11d84f71ea-1bb5 f l-a11d84f71ea-1bb6 }
f l-a11d84f71ea-1bba f l-a11d84f71ea-1bbb }
W g t-a11d84f71ea-1baa f l-a11d84f71ea-1bbf ~ }
47 7 F ? z { g m-a11d84f71ea-1bc6 f l-a11d84f71ea-1bcb f l-a11d84f71ea-1bcc f l-a11d84f71ea-1bcd f l-a11d84f71ea-1bce f l-a11d84f71ea-1bcf f l-a11d84f71ea-1bc8 47
# z g
string-any g symbol->string g gensym? g vhash-consq j j g cadr g fold g let-names g letrec-names g fix-names g vlist-for-each g
vhash-assq g find g pair? g warning g unused-variable g
vlist-drop g
vlist-null g <reference-graph> g %make-reference-graph-procedure g make-reference-graph g m-a11d84f71ea-1ccf g t-a11d84f71ea-1ccc g t-a11d84f71ea-1ccd g t-a11d84f71ea-1cce f l-a11d84f71ea-1cd4 f l-a11d84f71ea-1cd5 f l-a11d84f71ea-1cd6 f l-a11d84f71ea-1cd1
g defs g toplevel-context g m-a11d84f71ea-1cca
47
g pwpwpw !g %reference-graph?-procedure "g reference-graph? #g m-a11d84f71ea-1ce0 $# %g t-a11d84f71ea-1cdf &% '$ (f l-a11d84f71ea-1ce5 )( *&') +f l-a11d84f71ea-1ce2 ,+ -', .$*-
/. 0*-~47 1j0 21 30 40 541 6F0 70 871 9*- :9 ;68: <35; =/2< >- ?!> @g reference-graph-defs Ag %reference-graph-defs-procedure Bg m-a11d84f71ea-1cec CB DC Ef l-a11d84f71ea-1cee FE GDF HCG IH JI KJ LG47 ML NM OKN PCC Qf l-a11d84f71ea-1cf1 Rf l-a11d84f71ea-1cf2 SQR T PS UCTG
VU WU XTG YX ZWY [Z \L ]\ ^K] _f l-a11d84f71ea-1cf6 `f l-a11d84f71ea-1cf7 a_` b Pa cCbG
dc ec fbG g
f heg ih j L kj lKk mf l-a11d84f71ea-1cfb nf l-a11d84f71ea-1cfc omn p Po qCpG
rq sq tg %%<reference-graph>-set-fields upG vtu wsv xw yg t-a11d84f71ea-1ceb zy {f l-a11d84f71ea-1d00 |{ }zD| ~C}G
~ }G47 7 F }G ? }G
@ G A g reference-graph-refs g %reference-graph-refs-procedure g m-a11d84f71ea-1d07 f l-a11d84f71ea-1d09 47 f l-a11d84f71ea-1d0c f l-a11d84f71ea-1d0d
f l-a11d84f71ea-1d11 f l-a11d84f71ea-1d12
f l-a11d84f71ea-1d16 f l-a11d84f71ea-1d17
t g t-a11d84f71ea-1d06 f l-a11d84f71ea-1d1b
47 7 F ? g reference-graph-toplevel-context g +%reference-graph-toplevel-context-procedure g m-a11d84f71ea-1d22 f l-a11d84f71ea-1d24 47 f l-a11d84f71ea-1d27 f l-a11d84f71ea-1d28
f l-a11d84f71ea-1d2c
f l-a11d84f71ea-1d2d
f l-a11d84f71ea-1d31 f l-a11d84f71ea-1d32
! "t! # " $# %g t-a11d84f71ea-1d21 &% 'f l-a11d84f71ea-1d36 (' )&( *)
+* ,)47 -, .- /7, 0F, 1, 21- 3) 43 5024 6?, 7) 8 7 96-8 :, ;, <3 =;< >:-= ?/59> @+.? A BA Cg m-a11d84f71ea-1d3d DC ED Ff l-a11d84f71ea-1d42 Gf l-a11d84f71ea-1d43 Hf l-a11d84f71ea-1d44 If l-a11d84f71ea-1d45 Jf l-a11d84f71ea-1d46 KFGHIJ LEK MD Nf l-a11d84f71ea-1d3f ON PMO QLP47
RQ SLP TS U@S VS WS XUVW Yg and=> Zg graph-reachable-nodes [g
vlist-fold \g graph-reachable-nodes* ]g
partition* ^g toplevel-define-name _g toplevel-define-src `g toplevel-set-name ag toplevel-set-src bg module? cg module-variable dg module-public-interface eg macro? fg vlist-filter gg unused-toplevel hg <toplevel-ref> ig toplevel-ref-name jg toplevel-ref-src kg <toplevel-info> lg %make-toplevel-info-procedure mg make-toplevel-info ng m-a11d84f71ea-1e83 on pg t-a11d84f71ea-1e81 qg t-a11d84f71ea-1e82 rpq soo tf l-a11d84f71ea-1e88 uf l-a11d84f71ea-1e89 vtu wrsv xo yf l-a11d84f71ea-1e85 zy {xz |ow{
}| ~w{ ~ ~ g m-a11d84f71ea-1e7f w{
47 k~
} { l g %toplevel-info?-procedure g toplevel-info? g m-a11d84f71ea-1e92 g t-a11d84f71ea-1e91 f l-a11d84f71ea-1e97 f l-a11d84f71ea-1e94
~47 j F k g toplevel-info-refs g %toplevel-info-refs-procedure g m-a11d84f71ea-1e9e f l-a11d84f71ea-1ea0 47 f l-a11d84f71ea-1ea3 f l-a11d84f71ea-1ea4
k f l-a11d84f71ea-1ea8 f l-a11d84f71ea-1ea9
f l-a11d84f71ea-1ead f l-a11d84f71ea-1eae
g %%<toplevel-info>-set-fields g t-a11d84f71ea-1e9d f l-a11d84f71ea-1eb2
47 7 F k ?
g toplevel-info-defs g %toplevel-info-defs-procedure g m-a11d84f71ea-1eb9 f l-a11d84f71ea-1ebb
47 f l-a11d84f71ea-1ebe f l-a11d84f71ea-1ebf
k ! "f l-a11d84f71ea-1ec3 #f l-a11d84f71ea-1ec4 $"# % $ &%
'& (& )%
* ) +(* ,+ - .- /. 0f l-a11d84f71ea-1ec8 1f l-a11d84f71ea-1ec9 201 3 2 43
54 64 73
87 968 :9 ;g t-a11d84f71ea-1eb8 <; =f l-a11d84f71ea-1ecd >= ?<> @?
A@ B?
47 CB DC E7B FFB GB HGC I?
JkI KFHJ L?B M?
N M OLCN PB QB RI SQR TPCS UEKOT VADU W
XW Yg m-a11d84f71ea-1ed4 ZY [Z \f l-a11d84f71ea-1ed9 ]f l-a11d84f71ea-1eda ^f l-a11d84f71ea-1edb _f l-a11d84f71ea-1edc `f l-a11d84f71ea-1edd a\]^_` b[a cZ df l-a11d84f71ea-1ed6 ed fce gbf47
hg ibf jki ki li mkl ng <const> og toplevel-define! pg resolve-module qg oop rg goops sqr tg <module-ref> ug goops-toplevel-definition vg
vhash-delq wg unbound-variable xg
vlist-reverse yg <arity-info> zg %make-arity-info-procedure {g make-arity-info |g m-a11d84f71ea-2136 }| ~g t-a11d84f71ea-2133 g t-a11d84f71ea-2134 g t-a11d84f71ea-2135 ~ }}} f l-a11d84f71ea-213b f l-a11d84f71ea-213c f l-a11d84f71ea-213d } f l-a11d84f71ea-2138 }
g toplevel-calls g lexical-lambdas g toplevel-lambdas g m-a11d84f71ea-2131
47 y
z g %arity-info?-procedure g arity-info? g m-a11d84f71ea-2147 g t-a11d84f71ea-2146 f l-a11d84f71ea-214c f l-a11d84f71ea-2149
~47 j F y g toplevel-procedure-calls g #%toplevel-procedure-calls-procedure g m-a11d84f71ea-2153 f l-a11d84f71ea-2155 47 f l-a11d84f71ea-2158 f l-a11d84f71ea-2159
y f l-a11d84f71ea-215d f l-a11d84f71ea-215e
f l-a11d84f71ea-2162 f l-a11d84f71ea-2163
g %%<arity-info>-set-fields g t-a11d84f71ea-2152 f l-a11d84f71ea-2167
47 7 F y
?
g %lexical-lambdas-procedure g m-a11d84f71ea-216e f l-a11d84f71ea-2170 ! " 47 #" $# %!$ & 'f l-a11d84f71ea-2173 (f l-a11d84f71ea-2174 )'( * &) +*
,+ -+ .* /y. 0-/ 10 2" 32 4!3 5f l-a11d84f71ea-2178 6f l-a11d84f71ea-2179 756 8 &7 98
:9 ;9 <8 = < >;= ?> @ " A@ B!A Cf l-a11d84f71ea-217d Df l-a11d84f71ea-217e ECD F &E GF
HG IG JF KJ LIK ML Ng t-a11d84f71ea-216d ON Pf l-a11d84f71ea-2182 QP ROQ SR
TS UR 47 VU WV X7U YFU ZU [ZV \R ]y\ ^Y[] _?U `R a ` b_Va cU dU e\ fde gcVf hX^bg iTWh j kj lg %toplevel-lambdas-procedure mg m-a11d84f71ea-2189 nm on pf l-a11d84f71ea-218b qp roq snr ts ut vu wr47 xw yx zvy {nn |f l-a11d84f71ea-218e }f l-a11d84f71ea-218f ~|} {~ nr
r y w v f l-a11d84f71ea-2193 f l-a11d84f71ea-2194 { nr
r w v f l-a11d84f71ea-2198 f l-a11d84f71ea-2199 { nr
r g t-a11d84f71ea-2188 f l-a11d84f71ea-219d o nr
r47 7 F r y ? r r l g m-a11d84f71ea-21a4 f l-a11d84f71ea-21a9 f l-a11d84f71ea-21aa f l-a11d84f71ea-21ab f l-a11d84f71ea-21ac f l-a11d84f71ea-21ad f l-a11d84f71ea-21a6 47
y g program? g procedure-name g
arity:nreq g
arity:nopt g arity:rest? g car g arity:kw g arity:allow-other-keys? g program-arities g
procedure? g procedure-minimum-arity g lambda-meta g assoc-ref g const? g const-exp g keyword? g arity-mismatch g with-output-to-string g write g validate-arity g application-src g
vlist-tail g catch g
module-ref g
toplevel-ref? g lambda? f format-string-syntax-error g
&syntax-error g throw g unterminated-conditional g tilde g literal g
take-while 0123456789
g string->number g list->string g every g number? g list-ref g min g unexpected-semicolon g "unexpected-conditional-termination g unterminated-iteration g unexpected-termination f computer bought the farm g string->list g format-string-argument-count g resolve-interface g ensureS
g proc-ref? g gettext g gettext?
g ngettext g N_ g ngettext? g string? g const-fmt g boolean? g format g
wrong-port g negate g non-literal-format-string z z f no matching pattern g wrong-format-string g wrong-num-args g wrong-format-arg-count g syntax-error g
make-const ASas~% g
simple-format ! " # $ ! % ! C 5 hT k ]04
23;5 4> > " G ?@ h( ]
45 4 > " G C g k
" g v " g res " g filenamef language/tree-il/analyze.scm
" g nameg
make-hashq CARh ]L L 6 { g y
g filenamef language/tree-il/analyze.scm
&
g nameg step CBCDEFGHIJKLM@NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu@ h k ]M 6 c g sym
g filenamef language/tree-il/analyze.scm
Cvwxy@ h | ]M 6 t g sym
g val g filenamef language/tree-il/analyze.scm
# CdW@jeNz{ h ] & o4 5 4M > " G 4L 4LL55 4M 44M 55> " G 4M > " G C 6 g x
g rtd g body ~ g free A ~ g filenamef language/tree-il/analyze.scm
. % . 5 A A D ! K ! 0 N ! : X ! 0 ] ! f " C|}uN@ h0 ]4M 5$ 4M > " G L 6C ~ g sym
, g filenamef language/tree-il/analyze.scm
* + ! + - # * . # , C h( ] 4L 5 $ LLO 6C g sym
$ g refs $ g filenamef language/tree-il/analyze.scm
' ( ( )
" * $ g nameg delabel-dependents! CN h } ]4M 5$ CL 6 u g sym
g filenamef language/tree-il/analyze.scm
= > > ? CN@j~ hX ]4M 5$ G4M L44M 54M L55> " G 4M > " G M6C g sym
X g val X g filenamef language/tree-il/analyze.scm
D
E E I J J & # K & - J 2 I ; L V M X C Z h
]MO LQ & :4 54 5 4L$ " 545@& I4 54
54 5 4L54L54L 56 & "4
5 4M4M
5> " G " 4M> " G " $ 45$ 4M5 $ " ~ $ s4 5$ c44 5545$ ,4 5$ " 4 5$ " 4 5"
$
" '4 5 "
" "
45 "u" $ " " " "" " C& P4 54 5 4M > " G 4M> " G 4L56 & 4 5 " & 4 5 "!& 4" 5 "d#& m4$ 5 " U( C(
4L
5
64
4L
5
5 " "%& h4 5 4M > " G 4L 5 4M 4&4M 55> " G 4M > " G C'& 4( 54) 54* 54 5
4 > " G 4 > " G 4M4+4,54M55> " G 4-4445?4L 555
$ 4L
5" 6.& j4/ 540 541 5 4M4+4,54M55> " G -44L 545?62& 43 544 545 5 4M4+4,54M55> " G 467L O > " G -44L 545?68& 49 54: 54; 5 46<LO > " G 4M4+4,54M55> " G 4=LLLO 5
4>
5 4L 4+55 ?O
L
Q
46@
LO > " G 46ALLLO > " G -4
?6B& 04C 54D 5 4L54L56E& E4F 54G 54H 5 4L54L54L 56I& =4J 54K 54L 5 4L 544+55@M& 4N 5 "O& 04P 54Q 5 4L54L56R& G4S 54T 54U 5 4L54L54L 56V& B4W 54X 54Y 5 4L54L 545@C
g x
g proc
g labels-in-proc
g tail?
g tail-call-args
g step
g rtd
g proc - Y g args - Y g test v g
consequent v g alternate v g gensym g p g c g t
u g gensym , g exp , g exp ; R g exp a x g exp g exps g exps g ret g y
g y
g body " g free F g inits I g gensyms I g body I g alternate
I g gensyms f g vals f g body f g gensyms F g vals F g body F g gensyms c J g vals c J g body c J g var-refs
J g vars-with-refs J g body-refs J g delabel-dependents!
J g exp ` g body ` g body g winder g unwinder g fluids g vals g body g fluid # : g fluid P r g exp P r g tag g body g handler g tag g args g tail >g filenamef language/tree-il/analyze.scm
6 $ E . N $ O Y a & ( $
% & % 0 1 , 4 4 < , = , D ) H $ I . S $ Y . c $ i . p ) u # ( $ ( $ & ( , 4 B & R Z h & x & / $ 9 3 & ! % , 1 : A 4 F F I P " S , ] " b k - % ; % * . 4 5 G , I Q m t w ~ - ? - % * 8 ? B F N j - % = C < P J O R i p & t | & T & & & W & Z ) Z 3 Z ) Z * & : B Y ` & d l & p r ` z & & c & & f 4 f h
g nameg analyze! C h { ]L LL 6 s g y
g filenamef language/tree-il/analyze.scm
p p g nameg recur CBCDGHIJKXZ\]^_`abcdW@NN h r ]4M 5L 6 j g v
g filenamef language/tree-il/analyze.scm
CN h t ] 4M 5C l g sym
g filenamef language/tree-il/analyze.scm
" . $ CfghiVST h i ]L LL 6 a g x
g filenamef language/tree-il/analyze.scm
! - CAmnopQMqrst h i ]L LL 6 a g x
g filenamef language/tree-il/analyze.scm
% ' Cvwxyz{jP V hx ]kO LQ & *4 54 5 4L545@& @4 54 54
5 4L54L54L56 & 4 5 "M
& 4 5 ",& 4 5 " & 4 5 "& 4 5 45@& 4 5 " D$ 944M5 4M5> " G "" 4M 5
"4LO 4M 5544 LO 4M 555 4L
> " G 4M > " G C & 4 54 54 54! 5 4" > " G 4# > " G " ( K44L
54$
LO 5? 4M 4%&5 > " G " H 4M 4'4M 5
5> " G
"v
"j$ 4L5" 6(& u4) 54* 54+ 5 445? " c" S ( 4L
56 4M 4'4M 5
5> " G
"
"4,5$ 4-5 $ 4M 5$ " f4M
5 $ T4.455$ ?4/455 & (4.4 55$ 4/4 55 " " " " $ ;4M4'5> " G 4L4
556"""0& 41 542 543 5 " l( *444 LO 5?
4L 56
4M
4'4M
5 5> " G " "5& C46 547 548 5 " ( "
( 4L 564M
5$ S
& "4
5 4 4L 55 " 49:
5
"
4 4L 55
"e
"U
4M
5$ 9; 64M
5$
"4M
4' 5> " G " "<& ,4= 54> 5 4L54L56?& @4@ 54A 54B 5 4L54L54L56C& :4D 54E 54F 5 4L544G55@H& 4I 5 "J& ,4K 54L 5 4L54L56M& 4N 54O 54P 5 4Q5$ 4 5$ 4 5" " 4M $ 4M
5
" > " G 4L54L54L56R& >4S 54T 54U 5 4L54L545@C g x
u g proc u g n u g recur u g rtd u g proc 0 L g args 0 L g test i g
consequent i g alternate i g exp g exp g exp g exp g exps ' 6 g body E g c K g n K g free-addresses g labels g inits 3 g gensyms 3 g body 3 g alternate 3 g gensyms e g n
e g nlocs g gensyms 1 g vals 1 g body 1 g nmax E g gensyms O g n
O g v i g v F g gensyms 0 g vals 0 g body 0 g gensyms $ g n $ g nmax
g v
$ g gensyms M { g vals M { g body M { g in W o g n W o g gensyms
a g vals a g nmax a g r
g rtd g body g v
o g exp g body g body g winder g unwinder g fluids 9 g vals 9 g body 9 g fluid H Z g fluid p g exp p g tag , g body , g handler , g cont-var , g tag I r g args I r g tail I r Hg filenamef language/tree-il/analyze.scm
o q 7 p B s L s T q r p v q p q p q p q p q , 6 > q K N
R S V ] 1 _ b c ! j 5 l ! o u " " q e k
l o z / 7 / ) ' " ( < ( " " q 8 ; E E O U
Z f i i l s x y & % % 0
% ! $ 0 , / J K R " S X ( _ d s t w ' q
" ! $ $ 8 q W ] a
g l x y # " " *
" & ' 3 6 @ A H * M ; T * Y d g o o q p q p q p ( - * 7 9 A q Z p b q w p
q
#
!
* #
p , 4 q R p h + r u g nameg allocate! C? h ]AHHHHHHO O Q Q 45 K45 K45 K45 K45 K45 K4 > " G 4
> " G JC g x
g
bound-vars g free-vars g assigned g refcounts g labels g
allocation g analyze! / g allocate! / g filenamef language/tree-il/analyze.scm
P W ^ e l s m z g nameg analyze-lexicals C4R h ] C g leaf
g down g up g post g init g filenamef language/tree-il/analyze.scm
#
g nameg %make-tree-analysis-procedure CR4= h ] C g t-a11d84f71ea-1a60
g t-a11d84f71ea-1a61 g t-a11d84f71ea-1a62 g t-a11d84f71ea-1a63 g t-a11d84f71ea-1a64 C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
CH h ] C
CJK 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 language/tree-il/analyze.scm
#
n C5R NO RS 4 V > " G Yi R h ] $ CC g obj
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis?-procedure CZR4[\ h : ] C 2 g t-a11d84f71ea-1a79
C?B[C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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 language/tree-il/analyze.scm
#
n C5[R h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-leaf-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\J h : ] C 2 g t-a11d84f71ea-1a85
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
CL h ] C
CJK 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 language/tree-il/analyze.scm
#
C5RM h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-down-procedure CNR4M\ch h : ]C 2 g err
g s Ckqv h : ]C 2 g err
g s Cy h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1aa0
C?BMC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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 language/tree-il/analyze.scm
#
C5MR h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-up-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 2 g t-a11d84f71ea-1abb
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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 language/tree-il/analyze.scm
#
C5R h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-post-procedure CR4 h : ]C 2 g err
g s C " h : ]C 2 g err
g s C%+0 h : ]C 2 g err
g s C\L h : ] C 2 g t-a11d84f71ea-1ad6
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
CN h ] C
CJK 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 language/tree-il/analyze.scm
#
C5RO h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-init-procedure CPR4O^ej h : ]C 2 g err
g s Cmsx h : ]C 2 g err
g s C{ h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1af1
C?BOC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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 language/tree-il/analyze.scm
#
C5OR4( h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
#
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5(RG h ]4L 5LLL 6 g analysis
g result g filenamef language/tree-il/analyze.scm
9 : : C h( ]
4L L O L5C g x
" g results " g locs " g filenamef language/tree-il/analyze.scm
6 7 ! 7
9 < 9 ! 8 " CNGh ]4L 5LLL 6 g analysis
g result g filenamef language/tree-il/analyze.scm
9 : : C h8 ]
4 5 4L L O L5C g x
1 g results 1 g locs g locs 1 g filenamef language/tree-il/analyze.scm
6 7 ! 7 @ % @ 7 9 - < / 9 0 8 1 CG h ]4L 5LLL 6 g analysis
g result g filenamef language/tree-il/analyze.scm
9 : : C h0 ]
4L L O L5C g x
* g results * g locs
g locs
* g filenamef language/tree-il/analyze.scm
6 7 ! 7
A
7 9 & < ( 9 ) 8
* CGPu h( ] & " 4 5L 6 | g analysis
# g result # g filenamef language/tree-il/analyze.scm
K L # C hp ] 4 O O O 4 55 4
O > " G C g analyses
n g tree n g env n g proc g proc ) g proc + ; g results J k g filenamef language/tree-il/analyze.scm
,
D D E + F < G = H F G J D J C M K [ N ` K n g nameg analyze-treeg
documentationf hRun all tree analyses listed in ANALYSES on TREE for ENV, using
`tree-il-fold'. Return TREE. The leaf/down/up procedures of each analysis are
passed a ``location stack', which is the stack of `tree-il-src' values for each
parent tree (a list); it can be used to approximate source location when
accurate information is missing from a given `tree-il' element. C5R h ] C g vars
g refs g filenamef language/tree-il/analyze.scm
Z
g nameg %make-binding-info-procedure CR4 h Z ] C R g t-a11d84f71ea-1b73
g t-a11d84f71ea-1b74 C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
C h ] C
CJK 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 language/tree-il/analyze.scm
Z
n C5R N R 4 V > " G Yi R h ] $ CC ~ g obj
g filenamef language/tree-il/analyze.scm
Z
g nameg %binding-info?-procedure CR4\ h : ] C 2 g t-a11d84f71ea-1b83
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
C" h ] C
CJK 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 language/tree-il/analyze.scm
Z
n C5R# h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
Z
g nameg %binding-info-vars-procedure C$R4#29> h : ]C 2 g err
g s CAGL h : ]C 2 g err
g s COU[ h : ]C 2 g err
g s C\w h : ] C 2 g t-a11d84f71ea-1b8f
C?B#C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
Cy h ] C
CJK 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 language/tree-il/analyze.scm
Z
C5#Rz h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
Z
g nameg %binding-info-refs-procedure C{R4z 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 2 g t-a11d84f71ea-1baa
C?BzC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
C h ] C
CJK 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 language/tree-il/analyze.scm
Z
C5zR4W h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
Z
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5WR h ] 4 56 g sym
g filenamef language/tree-il/analyze.scm
`
b b g nameg gensym? CRz#XYfRSUThgG h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x Cmn h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x Cqr h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x Cvw h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x C ! h ]\& " 45&
" 454 5 & 4 5 45 C & 4
54 54 54
54 5
4 > " G 44 $ " 4
$
" $ 4 5" 555
4O
5 C& 04 54 5 4O 5
C& 04 54 5 4 O 5
C & 04 54 5 4 O 5
CC g x
g info g env g locs g refs = g vars = g src = g rtd F g gensym W o g refs c o g req g opt g rest
g kw g gensyms g names
g vars
g gensyms / Q g names / Q g vars
E Q g gensyms g g names g g vars
} g gensyms g names g vars
g filenamef language/tree-il/analyze.scm
p s t 7 u = s F } Z " c
w } # $ 0 " , " 6
w
! } 4 w E
Y } l w }
} w
# C z#OP
h p ] 4L5$ m4L 5$ " 4L5$ M $ " 4L5 45$ " $
6CCC h g var
g gensym g t ; U g name U g loc U g filenamef language/tree-il/analyze.scm
! ' . 2 5 9 " ; J " U Z " d m , n " o s w ! } CQ h0 ]4LL O L > " G L 4 56 g
inner-vars
. g refs . g filenamef language/tree-il/analyze.scm
& . . g nameg shrink Cfhmnqrvw h ]4& " 45&
" 45 O Q & 4 5 45 C& 4 5 45 C
& 4 5 45 C & 4
5 45 CC g x
g info g env g locs g refs 6 g vars 6 g shrink D g rtd P g gensyms a x g vars l x g gensyms g vars g gensyms g vars g gensyms g vars g filenamef language/tree-il/analyze.scm
6 P d l
C ii i iz#LM hp & ],& " 45&
" 45 & 4 5 45 CC g x
i g info i g env i g locs i g refs 6 i g vars 6 i g rtd = i g gensym N f g refs Z f g filenamef language/tree-il/analyze.scm
g i j 6 i = k Q m " Z m
i C h v ]C n g result
g env g filenamef language/tree-il/analyze.scm
C 6R h ] C g refs
g defs g toplevel-context g filenamef language/tree-il/analyze.scm
g nameg %make-reference-graph-procedure CR4 h z ] C r g t-a11d84f71ea-1ccc
g t-a11d84f71ea-1ccd g t-a11d84f71ea-1cce C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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 language/tree-il/analyze.scm
n C5R N R 4 V > " G Yi R h ] $ CC g obj
g filenamef language/tree-il/analyze.scm
g nameg %reference-graph?-procedure C!R4"\= h : ] C 2 g t-a11d84f71ea-1cdf
C?B"C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C? h ] C
CJK 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 language/tree-il/analyze.scm
n C5"R@ h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg %reference-graph-defs-procedure CAR4@OV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s Clrx h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1ceb
C?B@C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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 language/tree-il/analyze.scm
C5@R h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg %reference-graph-refs-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 2 g t-a11d84f71ea-1d06
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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 language/tree-il/analyze.scm
C5R h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg +%reference-graph-toplevel-context-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 2 g t-a11d84f71ea-1d21
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
CB h ] C
CJK 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 language/tree-il/analyze.scm
C5R4tRTX h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5tRY h ]L L 6 w g kid
g result g filenamef language/tree-il/analyze.scm
! C h ] 6 w g kid
g result g filenamef language/tree-il/analyze.scm
C h { ]4 5 $ " 4 5 $ C44 L55 $ " 4 5 4L O 5 6 s g root
y g path y g result y g t $ g t ; M g children M y g path Y y g result m y g filenamef language/tree-il/analyze.scm
( , / $ ; ; J @ M P Y \ m y
y g nameg loop C h ] O Q 6 g root
g refs g reachable g loop g filenamef language/tree-il/analyze.scm
g nameg graph-reachable-nodes CZR[Z h ] 4L 5 6 g root+true
g result g root g reachable g filenamef language/tree-il/analyze.scm
" " C h ]O 6 g roots
g refs g filenamef language/tree-il/analyze.scm
g nameg graph-reachable-nodes* C\R[ h@ ]" 4L 5$ 45C45C g k+v
? g result ? g k ? g v ? g r1 ? g r2 ? g filenamef language/tree-il/analyze.scm
! ! ! ! ! " # / 3 & >
? C h ]
4 O 5 D g pred
g vhash g result g filenamef language/tree-il/analyze.scm
g nameg
partition* C]R@Y
h ]* & " 4 5 &
" 4 5 & " 4 5 4455 $ " 4 5 C g graph
g name g refs g defs 8 g ctx U g t g y g ctx-refs y g refs g filenamef language/tree-il/analyze.scm
! 8 = U X [ ' g g v B y | # 4 #
g nameg add-ref-from-context C @`^_^`a h ]4& " 45&
" 45 &
" 4> " G & >4 54 5 4 $ " 4
55 C & #4
5 4 > " G L 6C g x
g graph g env g locs g refs 6 g defs 6 g rtd d g name | g src | g defs g name g filenamef language/tree-il/analyze.scm
6 = d " " * " 2 " ! $ & CO ]bcde h` ] 4L 5$ 44L 5 5" $ C4L 5$ #4L 5 $ $ 6CCC g name
[ g t [ g var ? Y g filenamef language/tree-il/analyze.scm
A ! <
< =
= =
B # , 6 7
?
G
J N
S U [ C@\f h ]4 L 5C g name+src
g filenamef language/tree-il/analyze.scm
H ) I 0 I < I 0
I + Cg h( ] 45$ C6 g name+loc
# g name # g loc # g filenamef language/tree-il/analyze.scm
L M ) N ) M
O ( O P , # P # # C
h m ]24O &
" 4 5> G 45 & " 4 5 45 4
O 5 6 e g graph
} g env } g public-defs , } g private-defs , } g roots < } g refs X } g reachable c } g unused s } g filenamef language/tree-il/analyze.scm
2 A D ! + A / @ 4 E < E A F X E [ G c E f H s E } L } C Q ii i ihij h` ]&
" 4> " G & #4 5 4 > " G L 6C g x
\ g graph \ g env \ g locs \ g rtd , \ g name = Y g filenamef language/tree-il/analyze.scm
, Y \ C O `@ hX ] & C& " 45&
" 45 CC g x
U g graph U g env U g locs U g rtd U g refs C R g defs C R g filenamef language/tree-il/analyze.scm
) + - , . C -
Q / U C 7Rk h ] C g refs
g defs g filenamef language/tree-il/analyze.scm
^
g nameg %make-toplevel-info-procedure ClR4m h Z ] C R g t-a11d84f71ea-1e81
g t-a11d84f71ea-1e82 C?BmC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
C h ] C
CJK 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 language/tree-il/analyze.scm
^
n C5mR N Rk 4 V k> " G Yli kRk h ] $ CC g obj
g filenamef language/tree-il/analyze.scm
^
g nameg %toplevel-info?-procedure CR4\ h : ] C 2 g t-a11d84f71ea-1e91
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
C h ] C
CJK 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 language/tree-il/analyze.scm
^
n C5Rk h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
^
g nameg %toplevel-info-refs-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 2 g t-a11d84f71ea-1e9d
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
C h ] C
CJK 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 language/tree-il/analyze.scm
^
C5Rk h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
^
g nameg %toplevel-info-defs-procedure CR4 h : ]C 2 g err
g s C!', h : ]C 2 g err
g s C/5: h : ]C 2 g err
g s C\V h : ] C 2 g t-a11d84f71ea-1eb8
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
CX h ] C
CJK 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 language/tree-il/analyze.scm
^
C5R4hjm h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
^
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5Rnhopst h ]#" T$ K $ 8& -
$ $ ( CCCCCCC" @ $ 7 & ,
& 45& "pCCCC $ R & E
$ - & & " "s"o"k"g"c g proc
g args g env g args Z g w X g x X g w 0 T g w w g w g w g w g filenamef language/tree-il/analyze.scm
d
h i ^ n t t # t t u
n p n
g nameg goops-toplevel-definition CuRkhijbc h ]<&
" 45& " 45 & y4 54 5 45$
4 5" $ " 4
5 $ C$ " 4 5 4
5
CC g x
g info g env g locs g refs 6 g defs 6 g rtd = g name U g src U g t r g src g refs
g filenamef language/tree-il/analyze.scm
{ } ~ 6 } = Z d
e r
! $ C k^`abc`^vBCDu hp ]D&
" 45 & " 45 4 > " G & }4 5 4 > " G 4 5$
4
5" $ " 4 5 $
C4
5 45 C& *4 5 4545 C& Q4 54 5 45 $ !4 54 5
C C C g x
k g info k g env k g locs k g refs k g defs 8 k g rtd O k g name ` g t g src g refs g name g refs g defs g proc a g args a g name - a g refs
I W g defs I W g filenamef language/tree-il/analyze.scm
! 8 ; O u
$
# -
2 6 7 $ @ $ I ` j
! k C ii ki i h ]C g x
g info g env g locs g filenamef language/tree-il/analyze.scm
Cw h ] 6 g name+loc
g name g loc g filenamef language/tree-il/analyze.scm
# # " Cxk h( ]4 &
" 4 556 g toplevel
' g env ' g filenamef language/tree-il/analyze.scm
$ % ' ' C 8Ry h ] C g toplevel-calls
g lexical-lambdas g toplevel-lambdas g filenamef language/tree-il/analyze.scm
g nameg %make-arity-info-procedure CzR4{ h z ] C r g t-a11d84f71ea-2133
g t-a11d84f71ea-2134 g t-a11d84f71ea-2135 C?B{C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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 language/tree-il/analyze.scm
n C5{R N Ry 4 V y> " G Yzi yRy h ] $ CC | g obj
g filenamef language/tree-il/analyze.scm
g nameg %arity-info?-procedure CR4\ h : ] C 2 g t-a11d84f71ea-2146
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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 language/tree-il/analyze.scm
n C5Ry h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg #%toplevel-procedure-calls-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 2 g t-a11d84f71ea-2152
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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 language/tree-il/analyze.scm
C5Ry h ] & C 6~ g s
g filenamef language/tree-il/analyze.scm
g nameg %lexical-lambdas-procedure CR4%,1 h : ]C 2 g err
g s C4:? h : ]C 2 g err
g s CBHM h : ]C 2 g err
g s C\i h : ] C 2 g t-a11d84f71ea-216d
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
Ck h ] C
CJK 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 language/tree-il/analyze.scm
C5Ry h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg %toplevel-lambdas-procedure ClR4z 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 2 g t-a11d84f71ea-2188
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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 language/tree-il/analyze.scm
C5R4 h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5RGG h0 ]4 54 54 544 554 5 C g a
0 g filenamef language/tree-il/analyze.scm
/ > ) % & /
0 CfRSUTVQdWk h ]Q4 5$ 4 544 55D4 5$ 7 $
"4 5 4 5 D" $
& 4 54
54 54 54
5 ( " $ 45"
$
"
( " $ 45"
$
"
$ 45" $ " "%& )4545 45 "D45D " g proc
g arity G f g name j g proc j g arities j g rtd s z g req E g opt E g rest E g kw E g alternate E g t
g t
g meta [ v g body [ v g filenamef language/tree-il/analyze.scm
" $ % / 2 6 : @ A G J S % V 1 Z > a d f j p
s
+ & 6 ? ! 6 ) + - & 0 6 8 ; E M ` f * h v z } = g nameg arities CDkOQ hX ]q $ F $ 3 $ $
$
( $ " ( 4 5"
"
"4
5$ X44
55 $ " $ 44
55" $ $ " "w""
L "a" L $ .$ &4 5 $ $ C CCCCCCCCCC g arity
Q g vx O g vy O g vx M g vy M g vx 1 K g vy 1 K g vx B I g vy B I g vx S G g vy
S G g args h g result h g arg
| g t g args
E g count " A g filenamef language/tree-il/analyze.scm
` % d ! h n o
| |
( !
( " ) " - 3 " = 0 > & , Q C h Y ] L 6Q g filenamef language/tree-il/analyze.scm
# 5 # @
C
h ]3O Q 4545 4 > G H4O 5KJ$ " .4$ " 4 O 5> " G C g proc
g application g lexical? g arities
g args g src g name , g arities , g matches? 4 g filenamef language/tree-il/analyze.scm
" ! / 7
L ! Q " U " ] # d # v " g nameg validate-arity CRydWLMhi h ]3&
" 45& " 45& " 45 & +4> " G 4 5 C & /4
5 4 5 $ "?C & +4
> " G 4 5 CC g lexical-name
g val g info g toplevel-calls Q g lexical-lambdas Q g toplevel-lambdas Q g rtd Z g lexical-lambdas g gensym g val* g lexical-lambdas g filenamef language/tree-il/analyze.scm
/ 1 2 9 3 Q 1 Z 4 w 7 6 4 < < = = > ' > 4 C B g nameg extend Cy`^adWhimnoqrsvwxBCDLM ! h ]lO Q &
" 45& " 45& " 45 & 4 54 5
& +4
> " G 4
5 C
& @4
5 4 5
4 4 5
$
"
5 CC& 4 54 5
6& 4 54 5
6& 4 54 5
6& 4 5 4 > " G 4 > " G
& *4 > " G 4 > " G C
& "4 5 4 5 C
& j4 5 4 5 $ L
& "4
5 4 5 C4
> " G CCCC g x
g info g env g locs g extend
g toplevel-calls ^ g lexical-lambdas ^ g toplevel-lambdas ^ g rtd g g name g exp
g rtd g toplevel-lambdas g name g proc
g toplevel-lambdas g gensyms , g vals
, g gensyms B R g vals
B R g gensyms h x g vals
h x g proc g rtd
g name g toplevel-calls g gensym g proc ( g r
4 } g rtd 9 } g name J e g toplevel-calls W e g filenamef language/tree-il/analyze.scm
- H , I F J ^ H g L N
R P
N
U U
X X - Y 1 Y - Z 1 X V L , _
4 L R a
Z L x c
L f
h
f
k k
f
o ( o
- p 1 p 4 q 4 q M t ' W t f x j x & r x , C y h U ]#&
" 45& " 45& " 45 4 5$ 45" C M g name
g val g info g toplevel-calls Q g lexical-lambdas Q g toplevel-lambdas Q g lexical-lambdas q g filenamef language/tree-il/analyze.scm
9 Q X d e q
g nameg shrink Cymnoqrsvwx h ]$ &
" 4> " G & " 4> " G &
" 4> " G & 4 54 5
6 & 4 54
5
6& 4 54 5
6C g x
g info g env g locs g shrink g rtd | g gensyms g vals g gensyms g vals g gensyms g vals g filenamef language/tree-il/analyze.scm
/ U |
C yYb h Y ] LL 6 Q g filenamef language/tree-il/analyze.scm
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
Ci h Y ] LL 6 Q g filenamef language/tree-il/analyze.scm
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
C h ]! 44L 55 $ " !4L5$ 4LO 5" 45$ 14 5 4L5$ 4
LO 5" " 4 5$
645$
6C g name+application
g name g application
g t N g proc N g name b g proc* g filenamef language/tree-il/analyze.scm
+ 5 6 N
Q [ \ " b e o p
C hP ] &
" 4 5 & " 4 5 O 6 g result
J g env J g toplevel-calls 7 J g toplevel-lambdas 7 J g filenamef language/tree-il/analyze.scm
7 J J C iii yi i h ]C g x
g info g env g locs g filenamef language/tree-il/analyze.scm
* C 9R4i5ROO h ] 6 w g char
g filenamef language/tree-il/analyze.scm
g nameg digit? CkGQ h ]4545L$ L45" " D45$ 45$ yL LLL$ 4 L5" L$
" (
" 4
?L $ 4 L5" L$
" (
" 4 ?6"c"_ g chars
g conds g mins ) g maxs ) g sel? ) g filenamef language/tree-il/analyze.scm
$
$ $ 5 $ ) ) 5 ! & 7 ! + 9 ! 9 : # F G # S Y * Z 3 f ' g 0 p + z . . 2 + $ ' 0 + . . 2 + $ # C O h ] 6 w g char
g filenamef language/tree-il/analyze.scm
g nameg digit? CO h ] 6 w g char
g filenamef language/tree-il/analyze.scm
g nameg digit? C z h8 E ]' ( $ 6D$ ~$ " %$ " &$ " t$ " T$ " u_$ " g
$ " Y($ " K)$ " =!$ " /|$ " !/$ " q$ " Q$ "0$ " 1$ " 2$ " 3$ " 4$ " 5$ " 6$ " u7$ " g8$ " Y9$ " K,$ " =:$ " /@$ " !+$ " -$ " #$ $ "v$ " V$ & "p$ " P$ V4:5 $ 4 5" $
4 5" "P[$ j 4 5 ( " 4
4 4 555 4@5
L O
";$ 2$ $
"6]$ "$ 4 566{$ 4@5$ D " V (
45" N
$ }& " 8
" ~&
"
"
" "*$ 4@5$ D 45 ( " 4
4 4 555 $ " 45 ( " 4
4 4 555 $ " "?$ " k$ " K$ D^$ Dh$ " H$ <4:5$ " "'$ 6 ( 6 "M "+$ N ~$ " "6 = g chars
6 g state 6 g params 6 g
conditions 6 g end-group 6 g min-count 6 g max-count 6 g key ( g colon? e g min-count | g numbers g selector g at? g chars g chars g tilde?
g numbers b g t g numbers g t g argc N v g key . g filenamef language/tree-il/analyze.scm
! % ( ( * 3 + % " $ & + ) % 0 3 E N ] * e m * n . | . | , 5 $ $ # ' ) $ % . 4 $ 7 % 9 % $ : % - ? & B & X % ^ ) ' ` ) i o + t , u - | - , - & - , / ' / 0 0 1 . 1 2 . 2 "
3 " 3 + 5 " ! 5 2 3 2 < = 6 I 6 K 7 $ M 7 ) O 7 R 8 " T 9 " U 9 + Z b j p s v ) ~ ; % ; " ) = % = " 8 B B B ! D # D , ; F ( G F $ N F S G U G , V G 5 _ I d J v G L L M ' M N N % N 2 N , N P P * P 3 R R . P T T U U * U 1 U X X * X 3 . X 2 [ 6 [ 6 g nameg loop C h( ] O Q 4 5
6 g fmt
! g loop
! g filenamef language/tree-il/analyze.scm
! ! g nameg format-string-argument-count C Rt h Y ] L 6Q g filenamef language/tree-il/analyze.scm
p p )
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
p
Cp cLh
hH ]," " $ & l
$ 4O 5"
45 $
45" $ $ CCC &
CCC $ c & .
45 $ $ CCC &
& C" "" $ & &
& C""" g exp
C g proc C g special-name C g env C g w # g w * g w 1 g mod V g var l g w g w g var g w
g w + ; g filenamef language/tree-il/analyze.scm
]
d 9 o : p M q V o ^ r _ r l o t s w s { s ~ s + s & d b d i i j j j k k d C g nameg proc-ref?g
documentationf Return #t when EXP designates procedure PROC in ENV. As a last
resort, return #t when EXP refers to the global variable SPECIAL-NAME. C
R
h ] 6 g t-a11d84f71ea-25ec
g t-a11d84f71ea-25ef g filenamef language/tree-il/analyze.scm
x
x + x g nameg gettext? C R
h ] 6 g t-a11d84f71ea-25f6
g t-a11d84f71ea-25f9 g filenamef language/tree-il/analyze.scm
y
y - y g nameg ngettext? C RB n h ]B" W" $ &
45$ $ $ w& l
45$ T$ K $ 8& -
4 5$ $ $ CCCCCCCCCCCCCC $ & s
45$ W $ E( : $ *&
45$ C"""""""" $ * &
45$ C"|"x"t g x
g env g w # g w 7 g w F g x F g w c g w } g x } g w g w U g w Q g w I g w - A g w v g filenamef language/tree-il/analyze.scm
{
} & 2 } } g nameg const-fmt C R Ln Q hp ]4L> G $ R$ J & " L $ & " L " $ CLL L 6CC g min
n g max
n g t M j g filenamef language/tree-il/analyze.scm
$ - ( ) $ 2 3 6 : - > ? $ H 3 M \ $ ` 0 j n
C h ]LL 6 g _
g key g filenamef language/tree-il/analyze.scm
% C h ] ]2" & $ $ 45$ 54455$ " 445> " G " " O" '4455$
64
56 $ &
C""$ E
& 8
4455$ $ " 6"i"e"a4 564 56 $ $ 4L 5$ n45$ 54455$ " 445> " G " 4L 545 O O 6"9"5"1 U g args
g loc g vx g vy g vx !
g w g w g vx 9 g vy 9 g vx J g vy J g fmt g count
g filenamef language/tree-il/analyze.scm
( 2
3 6 " > B G K O # P / [ k
q {
"
,
/
# $ / ,
, O [ \ f
g j " r v { # /
7 g nameg check-format-args C nk O h q ] 6 i g t-a11d84f71ea-2e3a
g filenamef language/tree-il/analyze.scm
C O h q ] 6 i g t-a11d84f71ea-2e41
g filenamef language/tree-il/analyze.scm
)
C h H ]Z" a $ X $ E 4L5 45$ #$ 45 "CCCC $ $ $ x& k
45$ Q$ F" ( 45" $ ~$ $ R
$
" $ "4455 "
$
"e4455 " W
$
"94455 " +
4455 " 4 5 " 4
5 $ C4
4455> " G C"""""" @ g args
g loc g w e g x e g w $ c g x $ c g w 1 c g x q g w g x g w g chars g result g w g x g w
= g x = g x
7 g x
? i g x
k g opts g t g filenamef language/tree-il/analyze.scm
) 1 H - U $ _
g
" # T U
' ! % g nameg check-simple-format-args CBt !hb h Y ] LL 6 Q g filenamef language/tree-il/analyze.scm
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
C # % h ]DO O Q Q " " - $ " &
$ &
$ & Y
4
$ " 455$ +4
$ " 45> " 8G " 1" -
& Y
4
$ " 455$ +4
$ " 45> " G " "
" " " " " " $ &
$ s& f
$ K & 5
4
$ " 45> " +G " $
"K "D "="9 "/"+ $ &
$ &
4 5$ 4
O 5"
& 4 $ " 455" $ "
$ +4 $ " 45> " G "
" "H" "@ " "2" "*C g x
g _ g env g locs g check-format-args g check-simple-format-args g w ; L g w A I g w \ > g w l 7 g w
{ g w
0 g w h g w n g w g w g w
g w g w g w 1 g w 8 g proc
[ g t g filenamef language/tree-il/analyze.scm
# ~
' /
% -
' /
% -
T ( ; E F [ e f p 1 w 9
& . - C i h ]C g x
g _ g env g locs g filenamef language/tree-il/analyze.scm
C h ]C g x
g _ g env g locs g filenamef language/tree-il/analyze.scm
C h q ]C i g _
g env g filenamef language/tree-il/analyze.scm
C :RC c g m
, g rtd
A A g rtd
m n g down
A g up A g vars K a g refs K a g init a g rtd
g add-ref-from-context
g down g post g refs g defs g init g rtd
g leaf
U g down U g refs _ u g defs _ u g init u g rtd
- g down
~ t g up ~ t g post ~ t g toplevel-calls g lexical-lambdas g toplevel-lambdas g init k g down
R T g filenamef language/tree-il/analyze.scm
=2
>5 #
j* ,
j Z
~3 `
f K a f d
S
s S
^
d
z _ u z x
) ) w '
x
2-
7x ]
8\ x
9E y
< {
R T
, T
C6 PK ! +L language/tree-il/canonicalize.gonu [ GOOF----LE-8-2.0 ] : 4 h ] g guile g define-module* g language g tree-il g canonicalize
g filenameS f !language/tree-il/canonicalize.scm g importsS
g ice-9 g match g srfi g srfi-1 g exportsS g
canonicalize! g set-current-module g tree-il-fold g tree-il-any g post-order! !g <prompt> "g
<lambda-case> #g lexical-ref? $g lexical-ref-gensym %g
<application> &g <lambda> 'g make-prompt (g make-lambda )g make-lambda-case *g make-application +g make-primitive-ref ,g throw -g
make-const .g wrong-number-of-args /f Wrong number of arguments 0g <dynlet> 1g <fix> 2g <letrec> 3g <let> 4g
<sequence> 5g any 6g sequence? 7g
make-sequence 8g
append-map 9g
sequence-expsC 5 h u ]4
5 4 > " G h ]$ CL 6 g exp
g res g filenamef !language/tree-il/canonicalize.scm
C h ]$ CL 6 g exp
g res g filenamef !language/tree-il/canonicalize.scm
C h w ]C o g exp
g res g filenamef !language/tree-il/canonicalize.scm
C h ] O O 6 g proc
g exp g filenamef !language/tree-il/canonicalize.scm
g nameg tree-il-any C R !" #$ h ]4 5$ 4 5L CC | g x
g filenamef !language/tree-il/canonicalize.scm
K L &
L ! M + M & C%&'()*+,-./01234567869 h ]4 5$ 6 C | g x
g filenamef !language/tree-il/canonicalize.scm
+ ( , .
, * - . . . C h` g ]a" " " w" " " w" $ &
$ &
$ u $ ? & 4O 5" " " " " $ " $ &
$ &
$ z& l
( S & =
& ' & " "
" " " " " " " " $ CH44 5 5K4
J5 6CC $ v & i
& K4 4
4 54
54
54
54
54
5 55 6""" $ 9 & ,
( ( C"Q"M"I"E $ J & =
( ( ( ( C""""" $ P & C
( ( ( ( C""""" $ J & =
( ( ( ( C"D"@"<"8"4 $ 7 & *
45$ 456C"" $ 2 & %
$ ( C"""" _ g x
Y g w 2 g w 8 g w ? g w F g w a g w g w g w g w g t g w g w 4 g w O g w \ g w
j g w x g w g thunk g w $ g w * g w 1 g w g w g w " g w g w g w I } g w V y g w c u g w g w g w g w g w g w 5 Q $g filenamef !language/tree-il/canonicalize.scm
$ % K I
K K
_ Q
_ X X Y Y . Y ; Y ? Y X Z
Z % Z
b % A < E =
I = J = K >
O @ T @ " V @ W A \ A ^ A _ B f C k C m C n D r D t D u E ~ A >
< : % )
) + *
% 3 Y C h ] 6 } g x
g filenamef !language/tree-il/canonicalize.scm
"
#
g nameg
canonicalize! CRC m g m
, g filenamef !language/tree-il/canonicalize.scm
"
C6 PK ! Wm language/tree-il/compile-glil.gonu [ GOOF----LE-8-2.0 ]a 4 hq+ ] g guile g define-module* g language g tree-il g compile-glil
g filenameS f !language/tree-il/compile-glil.scm g importsS
g system g base g syntax
g pmatch
g message
g ice-9 g receive g glil g vm g instruction !
"! # $# %g optimize &% '& (g canonicalize )( *) +g analyze ,+ -, .g srfi /g srfi-1 0./ 1g selectS 2g
filter-map 32 4013 5 "$'*-4 6g exportsS 7 8g set-current-module 98 :8 ;g
make-fluid <g
*comp-module* =g unused-variable >g unused-variable-analysis ?g unused-toplevel @g unused-toplevel-analysis Ag unbound-variable Bg unbound-variable-analysis Cg arity-mismatch Dg arity-analysis Eg format Fg format-analysis Gg %warning-passes Hg and=> Ig memq Jg warningsS Kg cadr Lg assoc-ref Mg analyze-tree Ng make-lambda Og tree-il-src Pg make-lambda-case Qg optimize! Rg
canonicalize! Sg analyze-lexicals Tg flatten-lambda Ug make-hash-table Vg *primcall-ops* Wg for-each Xg hash-set! Yg eq? ZY [ZY \g eqv? ]\ ^]\ _g equal? `_ a`_ bg = cb dg ee? ecd fg < gf hg lt? igh jg > kj lg gt? mkl ng <= on pg le? qop rg >= sr tg ge? ust vg + wv xg add ywx zg - {z |g sub }{| ~g 1+ ~ g add1 g 1- g sub1 g * g mul g / g div g quotient g quo g remainder g rem g modulo g mod g ash g logand g logior g logxor g not g pair? g cons g car g cdr g set-car! g set-cdr! g null? g list? g symbol? g vector? Č g list nj g vector Ɍ g class-of ˌ g
vector-ref Ό g vector-set! g
vector-set ӌ g variable-ref Ռ g variable-bound? ، g struct? ی g
struct-vtable ތ g
struct-ref ጤ g struct-set! g
struct-set 挤 g make-struct/no-tail g make-struct 錤 g return 댤 g
return/values g bytevector-u8-ref g bv-u8-ref g bytevector-u8-set! g bv-u8-set g bytevector-s8-ref g bv-s8-ref g bytevector-s8-set! g bv-s8-set g bytevector-u16-ref g
bv-u16-ref g bytevector-u16-set! g
bv-u16-set g bytevector-u16-native-ref
g bv-u16-native-ref
g bytevector-u16-native-set!
g bv-u16-native-set
g bytevector-s16-ref g
bv-s16-ref g bytevector-s16-set! g
bv-s16-set g bytevector-s16-native-ref g bv-s16-native-ref g bytevector-s16-native-set! g bv-s16-native-set g bytevector-u32-ref ! "g
bv-u32-ref #!" $g bytevector-u32-set! %$ &g
bv-u32-set '%& (g bytevector-u32-native-ref )( *g bv-u32-native-ref +)* ,g bytevector-u32-native-set! -, .g bv-u32-native-set /-. 0g bytevector-s32-ref 10 2g
bv-s32-ref 312 4g bytevector-s32-set! 54 6g
bv-s32-set 756 8g bytevector-s32-native-ref 98 :g bv-s32-native-ref ;9: <g bytevector-s32-native-set! =< >g bv-s32-native-set ?=> @g bytevector-u64-ref A@ Bg
bv-u64-ref CAB Dg bytevector-u64-set! ED Fg
bv-u64-set GEF Hg bytevector-u64-native-ref IH Jg bv-u64-native-ref KIJ Lg bytevector-u64-native-set! ML Ng bv-u64-native-set OMN Pg bytevector-s64-ref QP Rg
bv-s64-ref SQR Tg bytevector-s64-set! UT Vg
bv-s64-set WUV Xg bytevector-s64-native-ref YX Zg bv-s64-native-ref [YZ \g bytevector-s64-native-set! ]\ ^g bv-s64-native-set _]^ `g bytevector-ieee-single-ref a` bg
bv-f32-ref cab dg bytevector-ieee-single-set! ed fg
bv-f32-set gef hg !bytevector-ieee-single-native-ref ih jg bv-f32-native-ref kij lg "bytevector-ieee-single-native-set! ml ng bv-f32-native-set omn pg bytevector-ieee-double-ref qp rg
bv-f64-ref sqr tg bytevector-ieee-double-set! ut vg
bv-f64-set wuv xg !bytevector-ieee-double-native-ref yx zg bv-f64-native-ref {yz |g "bytevector-ieee-double-native-set! }| ~g bv-f64-native-set }~ [^aeimquy} #'+/37;?CGKOSW[_cgkosw{ R g gensym f :L g
make-label g map g hashq-ref g error f bad var list element g vars->bind-list g make-glil-bind g
emit-bindings g make-glil-source g reverse g with-output-to-code g <lambda> g
lambda-src g lambda-meta g lambda-body g make-glil-program g flatten-lambda-case f unhandled record g push g drop g make-glil-void g make-glil-lexical g set f bad let var allocation g <void> g vals g tail g make-glil-branch g br g make-glil-call g <const> g const-src g const-exp g make-glil-const g
<sequence> g
sequence-exps g
<application> g application-src g application-proc g application-args g primitive-ref? g hash-ref g primitive-ref-name g length g instruction-pushes f !bad primitive op: too many pushes g new-frame g tail-call g
make-const g tail-call/nargs g call g
call/nargs g make-glil-mv-call g make-glil-label g make-glil-mv-bind g lexical-ref? g assq g lexical-ref-gensym g lambda-case? g lambda-case-kw g lambda-case-opt g lambda-case-rest g lambda-case-req g box f bad lambda-case arg allocation g lambda-case-gensyms g lambda-case-alternate f *couldn't find matching case for label call g assq-ref g values g
variable-set! g variable-set g @call-with-current-continuation g tail-call/cc g make-application g make-primitive-ref g call-with-current-continuation g call/cc g @call-with-values g call-with-values g @apply g
tail-apply g apply g return/values* g
<conditional> g conditional-src g conditional-test g conditional-consequent g conditional-alternate g <primitive-ref> g br-if-not g br-if g
br-if-null g br-if-eq g br-if-not-null g br-if-not-eq g primitive-ref-src g module-variable g the-root-module g make-glil-toplevel g ref g make-glil-module g module-name g
<lexical-ref> g lexical-ref-src f bad lexical allocation g
<lexical-set> g lexical-set-src g lexical-set-gensym g lexical-set-exp g <module-ref> g module-ref-src g module-ref-mod g module-ref-name g module-ref-public? g <module-set> g module-set-src g module-set-mod g module-set-name g module-set-public? g module-set-exp g <toplevel-ref> g toplevel-ref-src g toplevel-ref-name g <toplevel-set> g toplevel-set-src g toplevel-set-name g toplevel-set-exp g <toplevel-define> g toplevel-define-src g toplevel-define-name g toplevel-define-exp g define f bad lambda free var allocation g make-closure
g
<lambda-case> g lambda-case-src g lambda-case-inits
g lambda-case-body g
list-index f bad kwarg g max f ,lambda-case gensyms don't correspond to args g make-glil-kw-prelude g make-glil-opt-prelude g make-glil-std-prelude g delq f bad keywords, yo g append g list-tail g bound? f bad arg allocation g make-glil-unbind g <let> g let-src g let-names g let-gensyms g let-vals !g let-body "g <letrec> #g
letrec-src $g letrec-in-order? %g letrec-names &g letrec-gensyms 'g letrec-vals (g letrec-body )g empty-box *f bad letrec var allocation +g <fix> ,g fix-src -g fix-names .g fix-gensyms /g fix-vals 0g fix-body 1f bad fix var allocation 2g reverse! 3f bad free var allocation 4g fix 5g <let-values> 6g let-values-src 7g let-values-exp 8g let-values-body 9f $unexpected lambda-case in let-values :f bad let-values var allocation ;g <dynwind> <g dynwind-src =g dynwind-body >g dynwind-winder ?g dynwind-unwinder @g wind Ag unwind Bg return/nvalues Cg <dynlet> Dg
dynlet-fluids Eg dynlet-vals Fg dynlet-body Gg
dynlet-src Hg wind-fluids Ig
unwind-fluids Jg <dynref> Kg dynref-fluid Lg
dynref-src Mg fluid-ref Ng <dynset> Og dynset-fluid Pg
dynset-exp Qg
dynset-src Rg fluid-set Sg <prompt> Tg
prompt-src Ug
prompt-tag Vg prompt-body Wg prompt-handler Xg make-glil-prompt Yf unexpected lambda-case in prompt Zf !bad prompt handler arg allocation [g <abort> \g abort-src ]g abort-tag ^g
abort-args _g
abort-tail `g abortC 5 h ]4
5675 4: > " G 4;i5 <R=>i?@iABiCDiEFi GRHIJK2LG h o ] 6 g g kind
g filenamef !language/tree-il/compile-glil.scm
;
<
CMNOPQRS<T h ]+H4455 $ " K4J5 4 > " G 44 54
5 5 4 5 4 5 4
5 Y45 " ZCZF g x
g e g opts g warnings g t ' g analyses 2 M g x i g x v g x g
allocation
g filenamef !language/tree-il/compile-glil.scm
5
7 7 7 7 $ 8 * ; 2 ; 5 > N @ Q @ X @ ) Y A ] A . a A ; b A ? g A i @ i @ l B v @ y C @ D @ G G g nameg compile-glil CR4Ui5 VR4WiXV h { ] 6 s g x
g filenamef !language/tree-il/compile-glil.scm
O O ' O / O
C> " G h } ] 6u g filenamef !language/tree-il/compile-glil.scm
g nameg
make-label CR hp ' ]*44L 5L5 $ D & '$ C 6 6 6 g id
k g v k g v k g vx ! _ g vy ! _ g vx 9 G g vy 9 G g filenamef !language/tree-il/compile-glil.scm
F K S W _ c k
k C h ]O 6 g ids
g vars g
allocation g proc g filenamef !language/tree-il/compile-glil.scm
g nameg vars->bind-list CR h ] 44556 g src
g ids g vars g
allocation g proc g emit-code g filenamef !language/tree-il/compile-glil.scm
g nameg
emit-bindings CR h ]M N $ 4 5M N CC g src
g x g filenamef !language/tree-il/compile-glil.scm
g nameg emit-code C h( ] H4 O > " G J6 g proc
" g out " g filenamef !language/tree-il/compile-glil.scm
" " g nameg with-output-to-code CR h@ ]L$ 4 4L5> " G " L LLL4LL5 6 g emit-code
< g filenamef !language/tree-il/compile-glil.scm
/ # 8 < < C
hP ]# & 54 54 54 5 4 O 56 6 g x
L g
self-label L g
allocation L g rtd L g src $ D g meta $ D g body $ D g filenamef !language/tree-il/compile-glil.scm
/ D H L g nameg flatten-lambda CTR h ]L 6 g tree
g filenamef !language/tree-il/compile-glil.scm
( g nameg comp-push C h ]L 6 g tree
g filenamef !language/tree-il/compile-glil.scm
( g nameg comp-drop CWH h * ]!4 L 5 $ [ & @$ / 4L45 > " G L456L6L6L6 " g h
y g v y g vx o g vy o g vy / [ g filenamef !language/tree-il/compile-glil.scm
6 : ) C O ) U B Y ) [ _ ' e i ' o s ' y y C h w ]4L 5LLL O 6 o g v
g filenamef !language/tree-il/compile-glil.scm
C h0 ] $ " $ LLLL O 6C g context
. g syms . g filenamef !language/tree-il/compile-glil.scm
, . g nameg clear-stack-slots CVW h ])44L 5L5 " `$ Q & 8$ ) & L4566666$ E & 0$ % & L456"\"X"T"P g sym
g v g vx % p g vy % p g vx = ` g vy = ` g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
! , ! L * R C V * X \ & ` d & h l & p t & x x * C * CH h ])44L 5L5 " `$ Q & 8$ ) & L4566666$ E & 0$ % & L456"\"X"T"P g sym
g v g vx % p g vy % p g vx = ` g vy = ` g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
( L & R ? V & X \ " ` d " h l " p t " x x & ? & CY< T hH ] $ 5 $ L 456L 6L 6 g loc
H g vx > g vy > g vy 4 g filenamef !language/tree-il/compile-glil.scm
' & . C 2 & 4 8 $ > B $ H H C
hh ]) $ V $ = $ % (
4L 5C 6 6 6 6 g x
g g vx _ g vy _ g vy W g vx 0 O g vy 0 O g filenamef !language/tree-il/compile-glil.scm
! = . F $ K 0 O ) S 0 W ) [ 0 _ ) c 0 g )
g C~ hx ( ])44L 5L5 $ [ & H$ ? & ,4L45> " G L456CCCC g v
x g v x g vx ! v g vy ! v g vx 9 r g vy 9 r g filenamef !language/tree-il/compile-glil.scm
E I O 6 S X d j 6 n p x CI ! h ])44L 5L5 " i$ X & =$ , & LL456L6L6L6L6$ F & 1$ & & LL456"R"N"J"F g v
g v g vx % w g vy % w g vx = c g vy = c g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
5 6 6 & 6 6 M : % S : > W : % Y : ] ; " c ; g ; " m ; q ; " w ; { ; " ; 6 8 % 8 > 8 % 8 6 C"#$%&'()* h C ])44L 5L5 $ X & =$ , & LL456L6L6L6L6 ; g v
} g v } g vx ! s g vy ! s g vx 9 _ g vy 9 _ g filenamef !language/tree-il/compile-glil.scm
C D D & D D I F % O F > S F % U F Y G " _ G c G " i G m G " s G w G " } G } C* h ]+44L 5L5 $ n & S$ B & '4L> " G LL456L6L6L6L6 g name
g v g val g v g vx ! g vy ! g vx 9 u g vy 9 u g filenamef !language/tree-il/compile-glil.scm
N O O ( O O E K ( R _ R ' e R @ i R ' k R o S $ u S y S $ S S $ S S $ S C* h C ])44L 5L5 $ X & =$ , & LL456L6L6L6L6 ; g v
} g v } g vx ! s g vy ! s g vx 9 _ g vy 9 _ g filenamef !language/tree-il/compile-glil.scm
X Y Y ( Y Y I [ ' O [ @ S [ ' U [ Y \ $ _ \ c \ $ i \ m \ $ s \ w \ $ } \ } C+,-./0TW h y ]L 456 q g loc
g filenamef !language/tree-il/compile-glil.scm
y z 0
z "
C 1
h( % ]J4L 5$ 4L4 L5> " G 4L 5 ( " 84LO > " G 4L4455> " G 44L5L5 $ X & =$ , & LL4 56
6
6
6
64 5 4L4
5> " G " $ & 4545454545 4L5
4L4
5> " G
4LLL> " G $ 4L45> " G " 4LLL$ L" LL > " G 4L45 > " G "
6L4564 5 " g x
# g v # g free-locs 5 | g v g vx g vy g vx g vy g POST # g lcase g rtd %
g src R g req R g gensyms R g body R g alternate R g label
f g filenamef !language/tree-il/compile-glil.scm
o
q p s s # s , t $ 5 t 5 t = u B y [ | _ | $ c | 4 d } 4 l | $ q | } ~ ~ ! ~ ~ 9 " % ] * f % f i m x + ( ' # D # C2W3 hH ] $ 5 $ L 456L 6L 6 g loc
H g vx > g vy > g vy 4 g filenamef !language/tree-il/compile-glil.scm
' ( . E 2 ( 4 8 & > B & H H C41 h ]24L 5$ 4L 5" ( C4L O > " G 44L5L5 $ W & <$ + & L 456 6 6 6 6 g x
g v g free-locs g v S g vx b g vy b g vx z g vy z g filenamef !language/tree-il/compile-glil.scm
! & ! ! & ) D G ' S S % > % # # # # C56789: h ])44L 5L5 " i$ X & =$ , & LL456L6L6L6L6$ F & 1$ & & LL456"R"N"J"F g v
g v g vx % w g vy % w g vx = c g vy = c g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
+ M * S C W * Y ] ' c g ' m q ' w { ' * C * C;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ h ])44L 5L5 " i$ X & =$ , & LL456L6L6L6L6$ F & 1$ & & LL456"R"N"J"F g v
g v g vx % w g vy % w g vx = c g vy = c g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
+ M * S C W * Y ] " c g " m q " w { " * C * C[\]^_` hx3 Z ]O O O LQ LQ LL LQ & j$ " $ " $ 4L45 > " G " $ L4
56&
L4 56C
& 4 54 5 $ " $ " $ 4L4 5> " G " $ L4
56&
L4 56C& \4 5 " G (
"
4L
> " G
" "& 4 54 54 5
" 4 5$ 944 54
55 $ " 44 55 " $ "4
> " G 4L4 4
55> " G 4 5
$ j$ " $ " $ 4L45 > " G " $ L4
56&
L4 56C $ Q$ 4L4 5> " G " $ L4
56&
L4 56C $ C 4 56" X& " 4L4 !
5> " G 4L > " G 4
> " G 4
5 $ J $ L4 " 564# 5
4L
> " G
L4 $
56$ $ 4L4 % 5> " G " =4# 5
4L
> " G
4L4 &
5> " G $ L4
56&
L4 56C$ F4L4' 5> " G $ L4
56&
L4 56C$ 4(5 4(5
4L4'
5> " G 4L4 5> " G 4L4
$ " 5> " G 4L4)
5> " G 4L4*
5> " G $ L4
56L4)56C4+ 5$ " 4,4- 5L5$ 4
> " G " 4. 5$ 4/ 5$ " 440 5$ " $41 5$ " 4
54 42 55$ B4 3LLLO 4445 55> " G 46L 5
L4
5647 5 "^ 8 6494:L4- 555 "="L $ 4- 5L & & 4/L5$ " E41L5$ " 54
54 42L554;40L5 5 $ "
$ V4
> " G 4 <LLLO 4445L55> " G 46LL5 L4
56"A"="9"5"4 5$ " {4 5=& $ ?4
> " G $ L4
56&
L4 56C$ 4
5
$ u4L4 !
5> " G 4L > " G 4L4 %
5> " G $ L4
56&
L4 56C4
> " G
4L > " G $ L4
56&
L4 56C$ @4
> " G 4L44
55> " G L4
56$ C4
> " G L4
5 $ 4 5" 4 > 5 6C" 4 5?& 4
5 $
4L > " G
4L > " G 4L4 @ 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C""" 4 5A& u4
5 $ d$ ,
4L > " G L4 B 56$ X4C4DE5
5 4L > " G $ L4
56&
L4 56C$ c
4L > " G 4L4 F 5> " G $ L4
56&
L4 56C$ W4C4DE5
5 4L > " G $ L4
56&
L4 56CC""4 5G& 4
5 $ $ X4C4DH5
5 4L > " G $ L4
56&
L4 56C4(5 4(5
& " 4L4 !
5> " G 4L> " G 4L4 !
5> " G 4L
> " G 4L4'
5> " G $ 4L4 " 5> " G " 44L4 % 5> " G 4L4
5> " G 4L4) 5> " G $ L4 $
564L4 &
5> " G 4L4) 5> " G & 4L4 5> " G " $ L4
56&
L4 56C"O"K4 5I& 4
5 $ n
" $ ?4L > " G 4 > " G L4 J4 556$ 4L4 !
5> " G 4L > " G 4 > " G 4L4 K4 55> " G $ L4
56&
L4 56C$ [4C4DK5 5
4L
> " G
$ L4
56&
L4 56C$ Z4C4DK5 5
4L
> " G
$ L4
56&
L4 56CC4 5$ 4 5=& & " $ {$ ?4 > " G $ L4
56&
L4 56C$ (4 > " G L4 L4 556C""""""9M& z4N 54O 54P 54Q 5
4(5 4(5
& i4 54 5 R& 45 4 5 " 54L > " G 4L4 S 5> " G " " T& $ & |4545 4 5 R& 45 " 54L> " G 4L4 U 5> " .G " '" UV& I $ = 4L> " G 4L4 W 5> " G " "v"rX& i $ \ 4L> " G 4L> " G 4L4 Y 5> " hG " a":"6 4L> " G 4L4 U 5> " (G " ! 4L> " G 4L4 U 5> " G " """ UV& I $ = 4L> " G 4L4 Z 5> " G " ""X& m $ \ 4L> " G 4L> " G 4L4 [ 5> " G " ":" "2 " 14L > " G 4L4 S 5> " G " 14L > " G 4L4 S 5> " G 4L
> " G $ " $ 4L4
5> " G " 4L4) 5> " G 4L > " G $ " $ L4)
56CR& 4\ 54 5 4]^[ 54]_ 5& o$ " $ " $ 4L4`a 5> " G " $ L4
56&
L4 56C4]_ 5$ r$ " $ " $ "4L4bac 5> " G " $ L4
56&
L4 56C$ " $ " $ (4L4ba4d^[5 5> " G " $ L4
56&
L4 56Ce& 4f 54- 5 $ " $ " $ 4646L 5L5
$ d
$ 3
4L4g
a5> " G
" 4 h
> " G " 4 h
> " G
" $ L4
56&
L4 56Ci& 14j 54k 54l 5
4L
> " G 4646L 5L5 $ d
$ 3
4L4g m5> " G " 4 h > " G
" 4 h > " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56Cn& 4o 54p 54q 54r 5
4L4ba
5> " G $ 4L4 5> " G " $ L4
56&
L4 56Cs& 4t 54u 54v 54w 54x 5
4L > " G 4L4bm
5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56Cy& ~4z 54{ 5 4L4`a 5> " G $ 4L4 5> " G " $ L4
56&
L4 56C|& 4} 54~ 54 5
4L
> " G 4L4`m 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C& 4 54 54 5
4L
> " G 4L4` 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C& 46L 5 $ " $ " $ c4L4 L5> " G ( " :4 L O > " G 4L4 4 55> " G " $ L4
56&
L4 56C& 4 542 540 541 54/ 54 545 547 54 5
4 5
$ 4
5"
$ " $ " 4O $ " 5 4 $ "
4455? 46L 5 $ 4(5 " 4 5 $ 4
5 $ "
" $ " &4
> " G 4L $ 45" / $ "
$ 45" 45> " G 4 LLLO > " G ( " b4" ( 44 $ " 5" %$ $ $ ~ $ Z " !"( 74!5$ 4!5 "p "`4 5" ! "4 5" 4 5" r 4 5" b 4 5" O $ " 444
$
" 544 554 $ "
5 "LLL> " G " ( " " 4646L5L5 $ P & $ $ 4(5 !4L4g 5> " G 4L4 U!5> " G "4L"> " G "4L4g m5> " G 4L4)!5> " G " ! & 4 > " G " " & 4 > " G " " & 4 > " zG " s" o & 4 > " NG " G" C $ $ ">"H"D
45 " 46L 5 4L4)5> " G 4L> " G ( " 4L45 > " G $ (4L4)5> " G LLL LL6C& 4 54 54 54 54 5
4 > " G 4
LLL> " G 4 LL LO 44
5> " G 4L > " G 4
> " G L45 6& 4 54 54 54 54 54 5
4 LLL O > " G 4
LLL> " G $ +4 LLLL O
> " G " :4 > " G 4 LLL O 44 5> " G 4L
> " G 4 > " G L45 6& {4 54 54 54 54 5
& " $ " 4(5
4
LLLLO
> " G " K( 45" I4,L5$ " "
" 44545LLL> " G 4 LLLO
> " G 4L > " G
$ 4L4)
5> " G " 4
> " G L45 6& 4 54 54 5
& a42
540
54/
541
545
54
547
5
$ "
$ " $ 4 > " G " 4(5 4L > " G 4L4 5> " G 4L4)5> " G 4L4*44 $ " 5LL5$ " 5> " G 4 LL LO 445> " G 4L> " G 4> " G L45 6
6& 4 54 54 54 5
4L
> " G 4L > " G 4C
5 4L > " G 4L4 5> " G $ 4(5 4L > " G 4L4
5> " G 4C 5
4L
> " G
4L4 5> " G 4L4) 5> " G 4L4
5> " G 4C 5
4L
> " G
L4 56$ M4L > " G 4L4
5> " G 4C 5 "h$ 4(5 4L > " G 4L4 5> " G 4L4) 5> " G 4L4
5> " G 4C 5
4L
> " G
L4
56$ j4L > " G 4L4
5> " G 4C 5 4L > " G $ L4
56CC& 4 54 54 5
4 > " G 4 > " G 4 > " G 4L4 4 55> " G $ 4(5 4L
> " G 4L4
5> " G 4L4 5> " G 4L4) 5> " G 4L4
5> " G L4 56$ #4L
> " G L4
56$ t4(5 4L
> " G 4L4 5> " G 4L4) 5> " G 4L4
5> " G L4
56$ E4L
> " G 4L4
5> " G $ L4
56CC& 4 5 4 > " G $ 4L> " G " X$ " $ " $ 34L> " G 4L4 5> " G " $ L4
56&
L4 56C& 4 54 5 4 > " G 4L> " G 4L > " G 4L4 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C& 4 54 54 54 5
4(5 4(5 46L 5
4L > " G 4L4 5> " G $ 4(5 4L
> " G 4L4
5> " G 4L4 5> " G 4L4)5> " G 4L4
5> " G 4L4 5> " G " T$ Y4L
> " G 4L4
5> " G 4L4
$ "
5> " G " $ 4(5 4L
> " G 4L4 5> " G 4L4)5> " G 4L4
5> " G 4L4
5> " G " b$ Y4L
> " G 4L4
5> " G 4L4
$ "
5> " G " 4L4) 5> " G & %42 540 54/ 541 545 54 547 5 $ "
$ " $ 4 > " G " 4L4*44$ " 5LL5$ " 5> " G 4 LL LO 445> " G 4L> " G 4L45 > " G " 4 > " G $ " & " $ L4)
56C& 4 54 54 54 5
4L > " G 4
> " G 4L > " G 4L4 4
55> " G $
L4 56$ .4L4*
5> " G $ L4
56C$ L4* 56$ L4
56C 6 Z g x
3u g context 3u g RA 3u g MVRA 3u g comp-push 3u g comp-drop 3u g clear-stack-slots 3u g rtd 5 3u g src 0 g exp 0 g exps ? g exps E g tree
O e g tree
h g src g proc g args
g t g t d g key C * g len g tree
g tree
/ g MV
g POST g lcase i g label
C T g t g label ? P g key g tree o g len & H g tree o g tree g tree
_
z g tree
g tree
g tree o g tree g MV L
g POST L
g producer
L
g consumer L
g proc v g args v g tree
0 g tree
x g src g test g
consequent
g alternate g L1 g L2
g rtd f g proc . g args . g rtd ( g name g len g app J g rtd O
g proc g g args g g len r g rtd w g name g tree g tree 0 K g tree O j g tree / J g tree g tree g src g name g src g gensym g v
p g vx S g vy S g vx
3 g vy
3 g src g gensym g exp
g v n g vx Q g vy
Q g vx 1 g vy 1 g src t g mod t g name
t g public? t g src H g mod H g name
H g public? H g exp H g src ^ g name ^ g src g name g exp
g src J g name J g exp
J g free-locs \ g src [ " g req [ " g opt
[ " g rest [ " g kw [ " g inits
[ " g gensyms [ " g alternate [ " g body [ " g nreq t " g nopt " g rest-idx " g allow-other-keys? " g
kw-indices " g nargs " g nlocs " g alternate-label
" g b C g t C x g kw g names g gensyms g vx 2 g vy 2 g vy @ g vx S g vy S g vx ! d g vy " d g inits c "- g n c "- g gensyms c "- g v " g vx ! g vy ! g vx ! g vy ! g L ! !] g tree " ! g label "N "k g src " # g names " # g gensyms
" # g vals " # g body " # g src # $ g in-order? # $ g names
# $ g gensyms # $ g vals # $ g body
# $ g src $ &3 g names $ &3 g gensyms
$ &3 g vals $ &3 g body $ &3 g new-RA
% &3 g out %3 %~ g gensyms %3 %~ g names %3 %~ g binds % % g src &P ' g exp &P ' g body
&P ' g rtd &Y ' g req & ' g opt
& ' g kw & ' g rest & ' g gensyms & ' g body & ' g alternate & ' g MV & ' g src ' * g body ' * g winder
' * g unwinder ' * g tree (. (I g MV (q )D g tree
( ( g tree
) )7 g tree ) ) g MV ) *< g tree
* *. g tree *~ * g fluids * , g vals * , g body
* , g MV +; + g MV + ,m g fluid , - g fluid - .b g exp - .b g src . 2f g tag . 2f g body
. 2f g handler . 2f g H . 2f g POST
. 2f g escape-only? . 2f g MV . /~ g MV / 0p g rtd 0 27 g req 1, 2 g opt 1, 2 g kw 1, 2 g rest 1, 2 g gensyms 1, 2 g body 1, 2 g alternate 1, 2 g src 2 3m g tag 2 3m g args
2 3m g tail 2 3m g filenamef !language/tree-il/compile-glil.scm
5 H e
i r
,
!
% ) , , . 8 E H L O O
e h h k q ( x " < + " ' 0 / 4 = C V s % w 3 %
, ) 9 )
, " * 2 6 ;
@
D
, G
L
U [ ( b k
( 8 ( & ( * : * ( 8 (
& ( $ 0 5 * 9 : < * A O S W [ ] a e
i m , p r } ~ $
, 3 & ! ! % ! 5 ! % ! " ' " + ' , 5 9 D M $ Q $ % \ $ j % n r & + v x |
# +
#
! $ , 1
: ' C " C
J N R T U a
e i
i j m r / z | ( - 6 # ? ? F J N P d e o t E ) | E C E J K
, J M M Q Q Q . Q Q (
S S S . S $ S 2 6 : > @ D H
L P , S U X X _ X # d X o Y o Y r x (
, J \ ] ] ] + ] ] ^ J ` a & & a , b ! 0 b 1 c ! 5 c 1 8 c ! = d ! A d 1 E d ! J a Q Y - ] ^ g k n o r x ( ( ( +
"
& ,
)
+
5
:
B -
F
G
O
S
\
_
_
b
h (
o
+
)
"
-
"
,
( + " 0 4 8 < > B F
J N , Q S ^ _
d i ) k o
o r x (
, g g - f h h f p t
t # t : t # t
s " - " " $ ( ,
0 4 , 7 9 < y A y * H z K z 2 L y X { $ \ { a | f | ! j | 1 m | ! r | { ( ~ ~ ~ - ~ ~ ( ' 7 '
'
7
'
$ (
(
-
6
:
E
V
[ '
_ 7
b '
d
e
j '
n 7
q '
v
)
*
:
*
,
-
*
& ( - 6 - N . R . / S . ? Z . ; \ . ^ . g *
h 0 m 0 q 0 / t 0 y 0 ( 2 3 3 3 / 3 : 3 6 3 3
, *
7 7 ' 7 >
7 ' 8 # 7 6 " - % " 6 : > B D H L
P T , W Y d *
e A j A ' o A > q A ' v B # x A x @ { (
, - G
$
> 1 ,
#
$ $ (
, 0 , 3 5 @ #
A & Y ' ] ' / ^ ' ? f ' h ' 0 0 # 0 2 4 6 6 ( ` $ " ' 3 7 ; B " ? 7 C B ( G B J C J C O D l F # r F w G ( V 0 I P . I P 6 P Q * Q ( R 0 I K . $ I ) K 4 - K 0 L * 0 L 3 9 ( @ N M * O M R X ( _ k p t N 0 x } ( Y . ( \ ) 7 > " $ 7 ( > * , > / ? / ? 2 8 ( ? K P T @ $ X ] q 7 u 9 " y 7 ~ 9 ( 9 : : ( ; ; ( < $ ( c 3 9 ( @ I N R f V [ g k
k - k k k l o
o - o o o t ) u 5 s > v [ x ` x d x / h x m x
, z s { } } } - } 2 } }
, ! , I N R S ! _ d v z ~
,
= %
8
< E
\ e
z ~
, (
: #
6
: C
Z c
w
,
( , - 1 5 / 8 = O S W [ ] a e
i m , p r | ( (
# ' + / 1 5 9
= A , D F P c h l * p u /
, (
* + H
L U
g k o s u y }
, ( *
% ) - 1 3 7 ;
? C , F H R S \ \ g 0 0
, n t | } " ! ( & / - $ .
& - 3 ' : ;
C P
T m
y
% ! ( o { 0 " +
& ! & : ' (
1
3 7 0 >
3 @
J W
c i r u | 6 ~
*
= ! ! ! 2 ! ! " " ! ( ! ! # ! # ! # = !" # !' # !0 !4 !? !J % !M % " !P % ) !Z % !`
!e & !i & !l & / !s & !
! & ! & ! & / ! & !
! & ! & ! & / ! & !
! & ! & ! & / ! & " " "
" " "%
"- "2 2 "D "E ( "N ( "N ( "Q "U "` "l " * " +
" + " +
" , " " " " / " # 3 # 4 #9 5 #K < #V 5 #_ #w > # ? # ? # # C # J $ K $ N $A W $U X $g ] $r X ${ $ _ $ ` $ ` $ $ m * $ m $ m $ m $ m 8 % m % n %3 %9 %: / %E %J % %N %R %W ' %Z 5 %d %g * %j 8 %k # %q # %t 1 %~ %~ % $ % % % % % . % % % % % % & & &- &3 &; &Y & &
& & & & &
& " & - & " & & ' ' ' ' '$ ') ', '/ '9 ) '> 2 'C > 'E 'M 'S '[ '` 'i '{ ' ' ' ' ' ' ' ' ' ( ( ( ( ( (% (, / (. (. (1 (7 ( (> (J (N (R % (V ([ (l (m (q
(t " (z - ( " ( ( ( * ( ( ( ( 6 ( ( ( ( ( ( ( ( ( * ( ( ( ( ( ( ( ) * ) )
) ) 6 ) ) ) )% ( ), ); )? * )B )D )M )N )T ( )[ )d
)h )l ( )o )t
)} ) 4 ) )
) ( ) ) ) )
) " ) - ) " ) ) ) ) ) ) ) ) ) * ) * *
* 6 * * * * ( *# *2 *6 *: *< *E *F *L ( *S *\
*` *d ( *g *l
*u *| 4 *~ *~
* * ( * *
* * * * * * * + + + % + 2 + +% +6 +7 +;
+> " +D - +L " +U +Y +] * +` +e +n +r +v * +y +~ + + + + ! + ! + ! * + ! + ! + " + " * + " + " + + + ( + + & + & ( + & + &
+ + ) + )
, " , - , " , , , , ,& , ,/ ,3 ,> ,G 0 ,K 0 ,O 0 * ,R 0 ,W 0 ,c ,g 1 ,k ,m ,v ,w ,} ( , , 6
, 6 , 6 ( , 6 , 6
, 8
, , 9 , , , , < , , ( , - < -) -/ ( -6 -? A
-C A -G A ( -J A -O A
-a -e -i -m -o -s -w
-{ - , - - - - - ( - - ( - - G - G - G % - G - G . H . J
." J .+ J
.= .A .E .I .K .O .S
.W .[ , .^ .` .j . U . V . W . U . . ( . . Z . Z . Z . ^ . ` . ` . " . - . " / c / c / c , / c / c / d / d /! d , /$ d /) d /2 /6 /A /J g /N g /R g , /U g /Z g /c h /g h /k h , /n h /s h / ^ / / ( / / n / n / n * / n / n / / / o / o / / / ^ / r / r / " / - 0 " 0 u 0 u 0 u 0# 0' 02 0; x 0? x 0C x , 0F x 0K x 0T 0X 0\ y 0` 0e 0} ^ 0~ 0 ( 0 0 ~ 0 ~ 0 ~ * 0 ~ 0 ~ 0 0 0 0 0 0 0 0 0 0 1@ 1V 1W 1[ 1b 1o 1t 1w 1z 1 ) 1 2 1 > 1 1 1 1 1 1 1 1 1 1 1 1 2! 2=
2F # 2J 2K 2S 7 2T * 2X 2\ 2d 2n 2 2 ( 2 2 2 2 ( 2 2 2 2 & 2 - 2 2 2 2 3 ( 3 3
3 3
3 3!
3/
33 37 ! 3; 3= 3H 3L 3T
3] 3a 3e 3i 3k 3q 3u ? 3u g nameg comp C h0 & ]O Q 6 g lcase
+ g
allocation + g self + g
self-label + g
fix-labels + g emit-code + g comp + g filenamef !language/tree-il/compile-glil.scm
' + + g nameg flatten-lambda-case CRC g m
, g filenamef !language/tree-il/compile-glil.scm
- , 6 ,
8 / _ .
5
M M
N
v P { N
!
ǒ
ǔ
C6 PK ! ~c% language/tree-il/effects.gonu [ GOOF----LE-8-2.0 ] 4 h6 ] g guile g define-module* g language g tree-il g effects
g filenameS f language/tree-il/effects.scm g importsS
g
primitives g ice-9 g match g exportsS g make-effects-analyzer g &mutable-lexical g &toplevel g &fluid g &definite-bailout g &possible-bailout g &zero-values g &allocation g
&mutable-data !g &type-check "g &all-effects #g effects-commute? $g exclude-effects %g effect-free? &g constant? 'g depends-on-effects? (g causes-effects? ) !"#$%&'( *g set-current-module +* ,* -g make-syntax-transformer .- /- 0g define-effects 1g macro 2g $sc-dispatch 32 42 5g _ 6g any 7g each-any 867 958 :g iota ;g length <g
syntax-object =g begin >g top ?> @g ribcage A@ Bg n CB D? Ef l-a141b7f3b9a-1d09 FE G@CDF Hg all Ig name JHI K?? Lf l-a141b7f3b9a-1d02 Mf l-a141b7f3b9a-1d03 NLM O@JKN Pg x QP Rf l-a141b7f3b9a-1cff SR T@QDS U?AGOAT Vg hygiene WV X<=UW Yg append ZY [Y \g map ]\ ^\ _g
define-syntax `<_UW ag identifier-syntax b<aUW cg ash d<cUW e< UW fg * g<fUW h< UW ih jg logior k<jUW lg syntax-violation ml nl of -source expression failed to match any pattern pg identifier? qp rp sg m-a141b7f3b9a-1d0f ts> ug id vu wg m-a141b7f3b9a-1d10 xw> yx zf l-a141b7f3b9a-1d17 {z |@vy{ }f l-a141b7f3b9a-1d12 ~} @Qy~ g shift t|AAGOAT
<cW < W <fW |A <
W < W 57 f l-a141b7f3b9a-1d1a @Qy tAAGOAT
<cW < W <fW A <
W < W g m-a141b7f3b9a-1d1d > f l-a141b7f3b9a-1d24 @v f l-a141b7f3b9a-1d1f @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d27 @Q tAAGOAT
<cW < W <fW A < W < W g m-a141b7f3b9a-1d2a > f l-a141b7f3b9a-1d31 @v f l-a141b7f3b9a-1d2c @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d34 @Q tAAGOAT
<cW < W <fW A < W < W g m-a141b7f3b9a-1d37 > f l-a141b7f3b9a-1d3e @v f l-a141b7f3b9a-1d39 @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d41 @Q tAAGOAT
<cW < W <fW A < W < W g m-a141b7f3b9a-1d44 > f l-a141b7f3b9a-1d4b @v f l-a141b7f3b9a-1d46 @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d4e @Q tAAGOAT
<cW < W <fW
A <
W < W
g m-a141b7f3b9a-1d51 > f l-a141b7f3b9a-1d58 @v f l-a141b7f3b9a-1d53 @Q tAAGOAT
<cW < W <fW A < W < W !f l-a141b7f3b9a-1d5b "! #@Q" $t#AAGOAT
%<c$W &< $W '<f$W (#A )< (W *< $W +')* ,%&+ -g m-a141b7f3b9a-1d5e .-> /. 0f l-a141b7f3b9a-1d65 10 2@v/1 3f l-a141b7f3b9a-1d60 43 5@Q/4 6t2A5AGOAT
7<c6W 8< 6W 9<f6W :2A5 ;< :W << 6W =9;< >78= ?f l-a141b7f3b9a-1d68 @? A@Q/@ BtAA5AGOAT
C<cBW D< BW E<fBW FAA5 G< FW H< BW IEGH JCDI Kg m-a141b7f3b9a-1d6b LK> ML Nf l-a141b7f3b9a-1d72 ON P@vMO Qf l-a141b7f3b9a-1d6d RQ S@QMR TtPASAGOAT
U<cTW V< TW W<fTW XPAS Y< XW Z< TW [WYZ \UV[ ]f l-a141b7f3b9a-1d75 ^] _@QM^ `t_ASAGOAT
a<c`W b< `W c<f`W d_AS e< dW f< `W gcef habg ig m-a141b7f3b9a-1d78 ji> kj lf l-a141b7f3b9a-1d7f ml n@vkm of l-a141b7f3b9a-1d7a po q@Qkp rtnAqAGOAT
s<crW t< rW u<frW vnAq w< vW x< rW yuwx zsty {f l-a141b7f3b9a-1d82 |{ }@Qk| ~t}AqAGOAT
<c~W < ~W <f~W }Aq < W < ~W g m-a141b7f3b9a-1d85 > f l-a141b7f3b9a-1d8c @v f l-a141b7f3b9a-1d87 @Q tAAGOAT
<jW ?A <W <W <W < W < W < W < W < W <!W
f l-a141b7f3b9a-1d8f @Q tAAGOAT
<jW ?A <W <W <W < W < W < W < W < W <!W
g &no-effects g m-a141b7f3b9a-1d92 > f l-a141b7f3b9a-1d99 @v f l-a141b7f3b9a-1d94 @Q ?A <
W f l-a141b7f3b9a-1d9c @Q ?A <
W g &all-effects-but-bailout g logand g m-a141b7f3b9a-1d9f > f l-a141b7f3b9a-1da6 @v f l-a141b7f3b9a-1da1 @Q ?A <W <"W g lognot <W < W f l-a141b7f3b9a-1da9 @Q ?A <W <"W <W < W g % cause-procedure g cause 56 g syntax-parameterize g m-a141b7f3b9a-1dad > g t-a141b7f3b9a-1dac f l-a141b7f3b9a-1db2 @ f l-a141b7f3b9a-1daf @Q g proc-name g args f
l-bde397a-8e8 f
l-bde397a-8e9 @K g formals g body I ??? f
l-bde397a-8df f
l-bde397a-8e0 f
l-bde397a-8e1 @ g make-procedure-name g prefix ?? f
l-bde397a-8d3 f
l-bde397a-8d1 @ f
l-bde397a-8d0 @QD AAAAA
V < ?A <W
<a <W
g lambda < g effect <W <cW < W f Wrong number of arguments ?A <W g % &depends-on-procedure g &depends-on g m-a141b7f3b9a-1dc8 > g t-a141b7f3b9a-1dc7 ! " #f l-a141b7f3b9a-1dcd $# %@!"$ &f l-a141b7f3b9a-1dca '& (@Q"' ) %A(AAAA
*<) +?%A( ,< +W -<a) .< +W /-. 0,/ 10 2<) 3g a 4<3+W 54 6<+W 7<"+W 8647 9258 :*19 ;?A( << ;W =g % &causes-procedure >g &causes ?g m-a141b7f3b9a-1ded @?> Ag t-a141b7f3b9a-1dec BA C@ Df l-a141b7f3b9a-1df2 ED F@BCE Gf l-a141b7f3b9a-1def HG I@QCH J@FAIAAAA
K<J L?FAI M<>LW N<aJ O<=LW PNO QMP RQ S<J T<3LW UT V<LW W<LW X<"LW YWX ZVTY [SUZ \KR[ ]?AI ^<=]W _g % depends-on-effects?-procedure `566 ag m-a141b7f3b9a-1e65 ba> cg t-a141b7f3b9a-1e63 dg t-a141b7f3b9a-1e64 ecd fbb gf l-a141b7f3b9a-1e6a hf l-a141b7f3b9a-1e6b igh j@efi kb lf l-a141b7f3b9a-1e67 ml n@Qkm objAnAAAA
p<o q?jAn r<'qW s<ao t<_qW ust vru wv x<o y<PqW z<qW {yz |g not }<|qW ~g zero? <~qW <qW < qW y z } x{ pw ?An <_W g % causes-effects?-procedure g m-a141b7f3b9a-1e9f > g t-a141b7f3b9a-1e9d g t-a141b7f3b9a-1e9e f l-a141b7f3b9a-1ea4 f l-a141b7f3b9a-1ea5 @ f l-a141b7f3b9a-1ea1 @Q AAAAA
< ?A <(W <a <W < <PW <W <|W <~W <W <>W <W ?A <W g % effects-commute?-procedure g m-a141b7f3b9a-1ef9 > g t-a141b7f3b9a-1ef7 g t-a141b7f3b9a-1ef8 f l-a141b7f3b9a-1efe f l-a141b7f3b9a-1eff @ f l-a141b7f3b9a-1efb @Q AAAAA
< ?A <#W <a <W < <3W g b <W g and <W <|W <(W < W ?A <W g make-hash-table g hashq-ref g
hashq-set! g <prompt> g <abort> g error f no matching pattern g
<sequence> g
<lambda-case> g or-map g <lambda> g
<application> g
<lexical-ref> g make-application g <primitive-ref> g bailout-primitive? g effect-free-primitive? g constructor-primitive? g accessor-primitive? g make-prompt-tag g vector g list g cons g list? g symbol? g vector? g struct? g string? g number? g char? g null? g pair? g equal? g eqv? g eq? g values g
<conditional> g <toplevel-set> g <toplevel-define>
g <module-set> g <module-ref> g <toplevel-ref>
g <dynset> g <dynref> g <dynlet> g <dynwind> g <let-values> g <fix> g <letrec> g <let> g
<lexical-set> g <void> g <const>C 5 h@o ]4
)5 4, > " G 4/0149:;47X[^`bdegi h ^ ] C V g tmp-a141b7f3b9a-1d0d
g tmp-a141b7f3b9a-1d0c C`bk h0 ) ]44 L5L L 5C ! g n
* * Cno h8 ]4455 45 $
O @6 g all
7 g name 7 g tmp 7 g tmp 7 g filenamef language/tree-il/effects.scm > > $ > > 7 Cno h( o ] 4 5 $ @ 6 g g x
" g tmp " g filenamef language/tree-il/effects.scm
; " C50R4/1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5R4/1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5R4/1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4, h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C> h * ]C " g id
C4J h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C\ h * ]C " g id
C4h h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/!1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
Cz h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5!R4/"1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5"R4/1r h a ] 6Y g id
g filenamef language/tree-il/effects.scm { C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
{ : g
macro-typeg identifier-syntax C5R4/1r h b ] 6Z g id
g filenamef language/tree-il/effects.scm C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
: g
macro-typeg identifier-syntax C5R h ] C g effect
g filenamef language/tree-il/effects.scm
g nameg % cause-procedure CR4/14 h : ] C 2 g t-a141b7f3b9a-1dac
Cn h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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 language/tree-il/effects.scm
n C5R h ] UUC g a
g filenamef language/tree-il/effects.scm
g nameg % &depends-on-procedure C R4/ 14: h : ] C 2 g t-a141b7f3b9a-1dc7
Cn h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C< h ] C
Cno 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 language/tree-il/effects.scm
n C5 R h ] C g a
g filenamef language/tree-il/effects.scm
g nameg % &causes-procedure C=R4/>14\ h : ] C 2 g t-a141b7f3b9a-1dec
Cn> h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C^ h ] C
Cno 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 language/tree-il/effects.scm
n C5>R h ] 4 5C g effects
g exclude g filenamef language/tree-il/effects.scm
g nameg exclude-effects C$R h ]
C g effects
g filenamef language/tree-il/effects.scm
g nameg effect-free? C%R h ]
C | g effects
g filenamef language/tree-il/effects.scm
g nameg constant? C&R h ] UU
C g x
g effects g filenamef language/tree-il/effects.scm
g nameg % depends-on-effects?-procedure C_R4/'14` h Z ] C R g t-a141b7f3b9a-1e63
g t-a141b7f3b9a-1e64 Cn' h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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 language/tree-il/effects.scm
n C5'Rh ]
C g x
g effects g filenamef language/tree-il/effects.scm
" g nameg % causes-effects?-procedure CR4/(14` h Z ] C R g t-a141b7f3b9a-1e9d
g t-a141b7f3b9a-1e9e Cn( h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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 language/tree-il/effects.scm
n C5(RhX ]
UU
$ C UU
C g a
T g b T g effects ' g effects 9 R g filenamef language/tree-il/effects.scm
+ 9 9 S T g nameg % effects-commute?-procedure CR4/#14` h Z ] C R g t-a141b7f3b9a-1ef7
g t-a141b7f3b9a-1ef8 Cn# h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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 language/tree-il/effects.scm
n C5#R h ` ]C X g x
g filenamef language/tree-il/effects.scm
5 C h8 ] 4L 5 $ C4L 5 4L > " G C g exp
8 g t 8 g effects 8 g filenamef language/tree-il/effects.scm
8 g nameg compute-effects C h0 ]" ( C4L 5 "
" g exps
0 g exps % g out % g filenamef language/tree-il/effects.scm
) : ) % % 0 g nameg accumulate-effects C$; |
9 hX ]Y" 2" " " c" " -" " " " \" " 0"
" " b" " " f" 6" " $" " " j" " D" " " 6" " N" " " ) $ &
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C &
?C4 56 4 56 $ &
" $ ( O 4L 5 $ " $4L5 4L > " G 4 5C 4L 5 $ " $4L5 4L > " G "N456
"6"" $
&
4 4L5 @54 L5$ "
4L 5 $ " $4L5 4L > " G $ B4L 5 $ " $4L5 4L > " G "
C"" $ &
C"" $ '
&
?C"" $
&
$ & s
4L5 $ B45 4L 5 $ C4L5 4L > " G C ?C"""" $ a
& T
$ >& 1
45$ 4L5 C"n"j"f"b"^ $
&
$ &
4L5" " & " 4455 " ~$ Y
& L4L 5 $ " $4L5 4L > " G " """|$
&
& & & (
& d4L 5 $ " $4L 5 4L > " G 4545$
" " "
" " " " " " " "t " "f" "^C"d"`"\"X $
& |
$ f& Y
45$ ? 4L5 45$ " 45$ @ "
C""""" $
&
$ & |
& e $ S( H 4L 5 $ " $4L5 4L > " G C" """"
" " $ \
& O
$ 9& ,
& ( C"""""" $ v
& i
$ S& F
" 4L5 C" & ""5& """!" "" $
&
$ &
& $ $ ( 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C""" """""
" $
&
$ &
" t" " & X $ F( ; 4L 5 $ C4L5 4L > " G C"d"`& X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"D"@ & X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"$" " !& X $ F( ; 4L 5 $ C4L5 4L > " G C""""& X $ F( ; 4L 5 $ C4L5 4L > " G C"\"X"#& X $ F( ; 4L 5 $ C4L5 4L > " G C"""("""" $
&
$ u& h
"
L6" 8" $" $& ""y%& ""&& ""'& """E"A"="9 $ \
& O
$ 9& ,
'& ( C"""""" $ ! (&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G
$ C @6"" $ &
C"" $ ` )& S
4L 5 $ " $4L5 4L > " G C"" $ ` *& S
4L 5 $ " $4L5 4L > " G C"" $ s +& f
4L 5 $ " $4L5 4L > " G C"$" $ ,&
C"" $ -&
C"" $ .&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C" " $ d /& W
4L 5 $ " $4L5 4L > " G C"" $ 0& u
4L54L5 4L 5 $ " $4L5 4L > " G C"" $ 1&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C")"% $ 2&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C"s"o $ 3& |
4 L5$ "
4L54L 5 $ " $4L5 4L > " G C"" $ 4&
4 L5$ "
4L54L 5 $ " $4L5 4L > " G C"="9 $ 5& |
4 L5$ "
4L54L 5 $ " $4L5 4L > " G C"" $ f 6& Y
4L 5 $ " $4L5 4L > " G C"0", $ - &
4L5$ C
C"" $ 7&
C"" $ 8&
C"" g exp
R g w p g w p g w p g t g effects g t / g effects , g t 9 n g effects N k g w g exps g effects g w / g t # g effects g w 5 g x 5 g t D y g effects Y v g w g w g w g w g t N g effects . K g t ^ g effects s g w g w 8 g w ? g t H g exp Z g t e g effects w g w g w g w g w 1 g w R
g w Y
g t g effects g w g w g w g w * g w 8 g w K g w
R g t d g effects y g w 3 g w N g w ` g w ] g w U g w Q g w I g t D g effects $ A g w ~ g w g w g w E g w = g w g w f
P g w
H g w
D g w
@ g x
@ g w
8 g t g effects g t
2 g effects
/ g w
q r g w
j g w
g w
g t
g effects
g w Z g w R g t % R g effects 7 R g w g g w z g t g effects g w g w g t g effects g w ' z g w : r g t E r g effects W r g w g w g t g effects g w
: g w
2 g t
2 g effects
2 g w
K
g w
^
g t
i
g effects
{
g w
g w
g t
g effects
g w f g w & ^ g t 1 ^ g effects C ^ g w g w
g w g w 6 | g w Q t g w ` p g w g w g w g t g effects g t ) g effects & g t 2 g g effects G d g tfx g g cfx g g afx g g x u g w - g t + g effects ( g w T g t a g effects v g w g t g effects g w { g w g t g effects g t g effects g w 0 ~ g t ; p g effects P m g w g w g w g t g effects g w , g w 3 g w : g t E z g effects Z w g t g effects g t g effects g w g w ! g t , a g effects A ^ g t j g effects g w ? g w ? g w ? g t = g effects : g w l g w s g w z g t g effects g w m g w m g w m g t 6 k g effects K h g w g t g effects g w g filenamef language/tree-il/effects.scm
0 r 1 9 H N Q o r s w g h
$ m + m 1 - m . j 2 h
< D S Y \ | o o h
g ^ ^ $ ^ ` `
a ^ ( . 1 O ^ U d V ^ m s v ^ X B O
H N Q Q # Z Q ] e q w z S
G H G I G \ 4 f 5 t A y 5 = < 5 \ d s y | 8 % 8 2 8 " 8 : " 7 5 4 c * r + s * t , ~ , - . . * $ ' G ! ) H ! M -
3
6
7
<
% 1 7 : V } = E Q W Z v
6
a
i
u
{
~
) 1 = C F b k p * 2 A G J g t . u " u
" , 1 X Y a p v y 7 < Y ^
3 ; J P S y z
= E T Z ] { $ , ; A D b j y > C } & - . 6 E K N l q ~ R g nameg visit C hX - . , 3 # O O O LQ Q LL Q 6 g exp
R g lookup R g compute-effects 3 R g accumulate-effects 3 R g visit 3 R g filenamef language/tree-il/effects.scm
R z R g nameg compute-effects C h > ]45 O Q C 6 g assigned-lexical?
g cache g compute-effects g filenamef language/tree-il/effects.scm
g nameg make-effects-analyzerg
documentationf VReturns a procedure of type EXP -> EFFECTS that analyzes the effects
of an expression. CRC g m
, g filenamef language/tree-il/effects.scm
"
&
'C
'
(
,
0
o9
o;
C6 PK ! Ku~ language/tree-il/spec.gonu [ GOOF----LE-8-2.0 ] 5 4 h6 ] g guile g define-module* g language g tree-il g spec
g filenameS f language/tree-il/spec.scm g importsS
g system g base
g pmatch
g glil g compile-glil g exportsS g set-current-module ! "g write #g unparse-tree-il $g
write-tree-il %g make-void &g
make-sequence 'g join (g invalidate-compilation-cache! )g
make-language *g nameS +g titleS ,f Tree Intermediate Language -g readerS .g read /g printerS 0g parserS 1g
parse-tree-il 2g joinerS 3g compilersS 4g for-humans?SC 5 h ]4
5 4! > " G "# h - 1 3 4 5@ g exp
g port g filenamef language/tree-il/spec.scm
g nameg
write-tree-il C$R%& h8 ] ( 6 $ ( C 6 6 g exps
5 g env 5 g vx . g vy . g filenamef language/tree-il/spec.scm
! . #
5 g nameg join C'R4(i> " G 4)i*+,-. h x ] 6p g port
g env g filenamef language/tree-il/spec.scm
' ' # C/$i01i2'i3i 45RC g m
, g filenamef language/tree-il/spec.scm
%
" & + %
C6 PK ! %; ; language/tree-il/debug.gonu [ GOOF----LE-8-2.0 ; ] e 4 h6 ] g guile g define-module* g language g tree-il g debug
g filenameS f language/tree-il/debug.scm g importsS
g ice-9 g match g srfi g srfi-1 g srfi-26 g exportsS g verify-tree-il g set-current-module !g hashq-ref "g error #f duplicate gensym $g
hashq-set! %g make-hash-table &f unexpected tree-il 'g <dynwind> (g <dynref> )g <dynset> *g
<conditional> +g
<application> ,g for-each -f expected list of args .g
<sequence> /f expected more than one exp 0f expected list of exps 1g <prompt> 2g <abort> 3g <dynlet> 4g length 5f mismatch in fluids/vals 6f vals should be list 7f fluids should be list 8g <module-set> 9f %module name should be list of symbols :g and-map ;g symbol? <f name should be symbol =g <toplevel-define> >f name should be a symbol ?g <toplevel-set> @g <primitive-ref> Ag <module-ref> Bg <toplevel-ref> Cg <void> Dg <const> Eg <let-values> Fg lambda-case? Gf %let-values body should be lambda-case Hg <fix> If names should be list of syms Jf gensyms should be list of syms Kf 'names, syms, vals should be same length Lg <letrec> Mg <let> Ng <lambda> Of !lambda body should be lambda-case Pf meta should be alist Qg pair? Rg
<lexical-set> Sg memq Tf displaced lexical Uf unbound lexical Vg
<lexical-ref> Wg
<lambda-case> Xf -bad required args (should be list of symbols) Yf 'bad gensyms (should be list of symbols) Zg take [g drop \f unexpected gensyms length ]f 6bad keywords (should be #f or (aok (kw name sym) ...)) ^g keyword? _f *bad required args (should be #f or symbol) `f /bad optionals (should be #f or list of symbols) ag tree-il-src bf bad src cg map dg carC 5 h1 f ]4
5 4 > " G !"#$ hX ]
( C 4M5$
45" 4M> " G " g new
R g env R g sym J g filenamef language/tree-il/debug.scm
! " $ $ $ ! % ) .
G
R $ R g nameg add-env C%"&'()*+, h o ]L L 6 g g t-9d61fd5a44d-1361
g filenamef language/tree-il/debug.scm
C-./ h o ]L L 6 g g t-9d61fd5a44d-12d8
g filenamef language/tree-il/debug.scm
C012 h o ]L L 6 g g t-9d61fd5a44d-11cd
g filenamef language/tree-il/debug.scm
C34 h o ]L L 6 g g t-9d61fd5a44d-1632
g filenamef language/tree-il/debug.scm
C h o ]L L 6 g g t-9d61fd5a44d-1638
g filenamef language/tree-il/debug.scm
C56789:;<=>?@ABCDEFGHIJ h o ]L L 6 g g t-9d61fd5a44d-1b64
g filenamef language/tree-il/debug.scm
CKL h o ]L L 6 g g t-9d61fd5a44d-1c53
g filenamef language/tree-il/debug.scm
CM h o ]L L 6 g g t-9d61fd5a44d-1d20
g filenamef language/tree-il/debug.scm
CNOPQR!STUVWX"Y h V ] L 6 N g filenamef language/tree-il/debug.scm >
>
C#$Z[\]^S hh ]) $ [ 45$ D$ ; $ ($ ( $ L 6CCCCCCC g x
f g w d g x d g w + ` g x + ` g w G Z g filenamef language/tree-il/debug.scm
5 6 ! X 8 $ f C_`abcd L h ]"
"
W" " "
" " " <" " " " " " S" " 5" @" 4 > " G " $ & b
4L > " G 4L > " G 4L > " mG " f & &
4L > " 8G " 1 & D
4L > " G 4L > " G " & b
4L > " G 4L > " G 4L > " G " & j
$ 34L > " G 4 L O > " (G " !4
> " G " & j
$ =( 4 > " G " 4
L O > " G " 4 > " G " & b
4L > " G 4L > " G 4L > " 5G " . & i
4L > " G 4L O > " G 4L > " G " "" $ &
$ $ y4545$ N4L O > " G 4L O > " G 4L > " G " 4 > " G "
4 > "
G "
4 > "
G "
"" $ &
" 4> "
vG "
o$ H4 5$ 7$ 4L > "
CG "
<4 > "
+G "
$"" " " $ \ & O
$ 4L > " G " 4 > " G " "" $ \ & O
$ 4L > " jG " c4 > " RG " K "J"F $ > !& 1
$ " 4 > " G " "" $ "& y
" 4 > " G " $ 44 5$ #$ " 4 > " G " y"" "h"d $ > #& 1
$ " =4 > " ,G " % "" $ $&
" "" $ %&
"
"" $ t && g
4'5$ ,4L > " G 4L > "
G "
z4(> "
iG "
b "I"E $ N )& A
" 4* > "
G "
$ 4 5$ " 4+ > " G " $ 4 5$ $ 45 45$ 45" $ A4L5 4,L O > " G 4L > " YG " R 4- > " >G " 74 > " &G " "+"'"" "" $ T .& G
" 4* > " G " $ 4 5$ " 4+ > " G " y$ 4 5$ $ 45 45$ 45" $ A4L5 4/L O > " G 4L > " G " 4- > " G " 4 > " G " "+"'"" "" $ G 0& :
" 4* > " WG " P$ 4 5$ " 4+ > " 'G " $ 4 5$ $ 45 45$ 45" $ :41L O > " G 4L 4L5> " G " 4- > " G " 4 > " uG " n"2"."" "3"/ $ 2&
" E$ ;4'5$ 4L > " G " 43 > " G " " $ <" 44> " G " $ 455$ """"u "p"l $ 6&
$ b47M5$ =485$ 4L > " 0G " )49> " G " 4:> " G " 4 > " G " "" $ ;&
$ N47M5$ )485$ " 49 > " xG " q4: > " `G " Y4 > " HG " A "" $ ( <&
" 4= > " G " $ 4 5$ >O
Q
" $ f4 5$ E
4 5$ 4545$ 45"
$ "
$ 45"
$ " U
$ " $ a4L > " G 47M5$
4?5" 4@M> " G "4L > " G " $ @ 47M5$
4?5" 4@M> " G " $ " " 4L > " G 47M5$
4?5" 4@M> " G
"4L4A4555$ 45"
4B455
"h $ 4L > " LG " E" A4C > " 0G " )4 > " G " 4
> " G " 4
> " G " " c$ Y" 4D > " G " $ 2 $ 4EO 5" $ "$"""" -$ #$ "4F > " ]G " V"l$ H" 4G > " /G " ($ 4 5$ "" "" "" "
" "M" "E " "" "4H 5 $ ^" 4I> " GG " @$ 5455$ 4 4JK55$ " "" "" "" C g exp
g env g w { g w g w g w g w P g w M g w b g w i g w p g w . g w + g w @ g w g w g w g w ~ g w % { g w , x g w o g w l g w i g w g w g w g w ? g w F g w g w g w
5 g w V g w ] g w g w w g w ~ g w . g w + g w ( g w % g b { g env g w U
g w \
g w c
g w j
g b g env
A g w
g w
g w
g w
g b 3 U g w g w g w
Y g w
V g w
S g w
z
g w
g w ! g w g w % g w , g w 3 g w : g w A g w H g failure
g failure g env P g nopt
P g inits P g tail P g env g inits g tail g sym & _ g sym g sym ; g x < _ g src 8 Rg filenamef language/tree-il/debug.scm
& ( K O V b ( ( ( 3 S ( s ( 1 ( E I P T [ h ( ( / C ^ ( ! # * 7 ; B O S Z s ( " ( K O P h l s ( ( & 9 ( j n u ( ( ( ) , 0 1 ! = B F M Y \ ` a # m p t u { ~ 1 2 ( q u | ! # 1
'
B
F
M
Z
^
e
(
}
}
}
{
|
{
| !
|
{ ~ { ~ # % ~ ( , { - 3 6 ? F 1 M Y { Z u z ( r u u y
7 v ; v B v R r ] t a t h t t r w s { s | s * s ( i h k h m h p
n
n
n
! l
% l
, l
9 j
= j
D j
] (
a
`
c
`
e
`
f
f
f
d
d
d
b
b
b
( O , S , Z , f * i + m * n + z + * = * = # = * ? # ? A B C C B F B G G G B A * J N N O
R R T T T & U & U ) 5 6 : > C
\
b U 0 e V o U p W O O O + O &
Q Q ' O Y Y Y Z Z
8
> [ A \ D ] P Z P J Q J T J Y J . a J e J k K l K z M M & M J ^ ^ H H H * < < & < 2 * 5 1 9 1 < 1 E 3 I 3 J 4 c 1 s * / / 0 0 0 * . . . * - - - ( - ) ( 2 8 @ E
I N
Z ] a
b ) n o t . ~ g nameg visit C h8 ]HO Q 45 KO Q 6 g exp
6 g seen-gensyms 6 g add-env 6 g visit & 6 g filenamef language/tree-il/debug.scm
& & 4 ' 6 & 6 g nameg verify-tree-il C RC ^ g m
, g filenamef language/tree-il/debug.scm
1
1
C6 PK ! /q$ $ language/tree-il/primitives.gonu [ GOOF----LE-8-2.0 ]l 4 h ] g guile g define-module* g language g tree-il g
primitives
g filenameS f language/tree-il/primitives.scm g importsS
g system g base g pmatch
g ice-9 g match g rnrs g bytevectors g syntax
g srfi g srfi-4 ! "! #g srfi-16 $ # %$ & "% 'g exportsS (g resolve-primitives! )g add-interesting-primitive! *g expand-primitives! +g effect-free-primitive? ,g effect+exception-free-primitive? -g constructor-primitive? .g accessor-primitive? /g singly-valued-primitive? 0g bailout-primitive? 1g negate-primitive 2()*+,-./01
3g set-current-module 43 53 6g apply 7g @apply 8g call-with-values 9g @call-with-values :g call-with-current-continuation ;g @call-with-current-continuation <g call/cc =g dynamic-wind >g
@dynamic-wind ?g values @g eq? Ag eqv? Bg equal? Cg memq Dg memv Eg = Fg < Gg > Hg <= Ig >= Jg zero? Kg positive? Lg negative? Mg + Ng * Og - Pg / Qg 1- Rg 1+ Sg quotient Tg remainder Ug modulo Vg ash Wg logand Xg logior Yg logxor Zg lognot [g not \g pair? ]g null? ^g list? _g symbol? `g vector? ag string? bg struct? cg number? dg char? eg complex? fg real? gg rational? hg inf? ig nan? jg integer? kg exact? lg inexact? mg even? ng odd? og char<? pg char<=? qg char>=? rg char>? sg
integer->char tg
char->integer ug number->string vg string->number wg acons xg cons yg cons* zg list {g vector |g car }g cdr ~g set-car! g set-cdr! g caar g cadr g cdar g cddr g caaar g caadr g cadar g caddr g cdaar g cdadr g cddar g cdddr g caaaar g caaadr g caadar g caaddr g cadaar g cadadr g caddar g cadddr g cdaaar g cdaadr g cdadar g cdaddr g cddaar g cddadr g cdddar g cddddr g
vector-ref g vector-set! g variable-ref g
variable-set! g variable-bound? g fluid-ref g
fluid-set! g @prompt g call-with-prompt g @abort g abort-to-prompt g make-prompt-tag g throw g error g scm-error g
string-length g
string-ref g string-set! g
struct-vtable g make-struct g
struct-ref g struct-set! g bytevector-u8-ref g bytevector-u8-set! g bytevector-s8-ref g bytevector-s8-set! g u8vector-ref g
u8vector-set! g s8vector-ref g
s8vector-set! g bytevector-u16-ref g bytevector-u16-set! g bytevector-u16-native-ref g bytevector-u16-native-set! g bytevector-s16-ref g bytevector-s16-set! g bytevector-s16-native-ref g bytevector-s16-native-set! g
u16vector-ref g u16vector-set! g
s16vector-ref g s16vector-set! g bytevector-u32-ref g bytevector-u32-set! g bytevector-u32-native-ref g bytevector-u32-native-set! g bytevector-s32-ref g bytevector-s32-set! g bytevector-s32-native-ref g bytevector-s32-native-set! g
u32vector-ref g u32vector-set! g
s32vector-ref g s32vector-set! g bytevector-u64-ref g bytevector-u64-set! g bytevector-u64-native-ref g bytevector-u64-native-set! g bytevector-s64-ref g bytevector-s64-set! g bytevector-s64-native-ref g bytevector-s64-native-set! g
u64vector-ref g u64vector-set! g
s64vector-ref g s64vector-set! g bytevector-ieee-single-ref g bytevector-ieee-single-set! g !bytevector-ieee-single-native-ref g "bytevector-ieee-single-native-set! g bytevector-ieee-double-ref g bytevector-ieee-double-set! g !bytevector-ieee-double-native-ref g "bytevector-ieee-double-native-set! g
f32vector-ref g f32vector-set! g
f64vector-ref g f64vector-set! 6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ g *interesting-primitive-names* g
hashq-set! g *interesting-primitive-vars* g module-variable g current-module f unbound interesting primitive g make-hash-table g for-each g make-struct/no-tail wxyz{ g *primitive-constructors* |}CD g *primitive-accessors* g append g *effect-free-primitives* ?@AB[\]^_`bacdwxyz{ g "*effect+exception-free-primitives* 6789:;<=>? g *multiply-valued-primitives* g *bailout-primitives* mn kl oq rp g *negatable-primitives* g *effect-free-primitive-table* g (*effect+exceptions-free-primitive-table*
g !*multiply-valued-primitive-table* g *bailout-primitive-table* g *negatable-primitive-table*
g hashq-ref g post-order! g <toplevel-ref> g toplevel-ref-src g toplevel-ref-name g and=> g make-primitive-ref g <module-ref> g module-ref-src g module-ref-mod g module-ref-name g module-ref-public? g resolve-module g module-public-interface g identity g *primitive-expand-table* g
pre-order! g
<application> g application-src g application-proc !g application-args "g primitive-ref? #g primitive-ref-name $g make-syntax-transformer %$ &$ 'g define-primitive-expander (g macro )g $sc-dispatch *) +) ,g _ -g any .,- /g
syntax->datum 0/ 1/ 2g
datum->syntax 32 42 5g reverse 6g quote 7g
make-const 8g src 9g make-application :g self-evaluating? ;f what what <g if =f bad consequent yall >g
match-lambda* ?, @g syntax-violation A@ B@ Cf -source expression failed to match any pattern Dg length ED FD Gg last HG I5 J5 Kg const? Lg const-exp Mg gensym Nf b Og make-lexical-ref Pg b Qg make-let RP Sg make-conditional Tg chained-comparison-expander UFGHIE V Wg most-negative-fixnum Xg most-positive-fixnum Yg maybe-simplify-to-eq Zf pre- [f thunk- \f post- ]g pre ^g thunk _g post `]^_ ag make-dynwind b]_ cg make-dynref dg make-dynset eg make-prompt fg make-lambda-case gg tree-il-src hg args ig handler ji kg
make-abortC 5 h` b ]4
&'25 45 > " G R h0 ] 445 5 $ " 4 5 6 g name
0 g t , g filenamef language/tree-il/primitives.scm
t
v
v # v v ! w % w ) w 0 u
0 g nameg add-interesting-primitive! C)R4i5 R4i)ii> " G RR?@ABEFGHIJKLVWXYZMNOPQRSTU[\]^_`bacdefghijklmnopqrstuv4ii5RRR RR4i5 R4i5 R4i5
R4i5 R4i5 R4i h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i
h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i h( ]4 > " G 6 g x
& g filenamef language/tree-il/primitives.scm
4
< ! 4 $ < & & Ci> " G C h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg constructor-primitive? C-RC h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg accessor-primitive? C.R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg effect-free-primitive? C+R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg effect+exception-free-primitive? C,R
h ]4 5C g prim
g filenamef language/tree-il/primitives.scm
g nameg singly-valued-primitive? C/R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg bailout-primitive? C0R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg negate-primitive C1R
h o ]L 6 g g name
g filenamef language/tree-il/primitives.scm
C
h o ]L 6 g g name
g filenamef language/tree-il/primitives.scm
C h ]44 L55L O 6 g m
g filenamef language/tree-il/primitives.scm
# C h K ]) & -4 54 5 44L 55O 6 & K4
54 54 54
5 445$ " 5O 6C C g x
g rtd g src < g name < g src ` g mod ` g name ` g public? ` g filenamef language/tree-il/primitives.scm
$ ) 3 < D k n z
C h ]O 6 g x
g mod g filenamef language/tree-il/primitives.scm
g nameg resolve-primitives! C(R4i5 R !"
# h`
]) & H4 54 54 5 45$ 4455 $ @CCC g x
Y g rtd Y g src $ W g proc $ W g args $ W g expand C U g filenamef language/tree-il/primitives.scm
+
5 6 ; & C C
K S Y C h ] 6 g x
g filenamef language/tree-il/primitives.scm
g nameg expand-primitives! C*R4 &'(+.14z5y6789:;
h ]" ( 45C$ 445 5C$ F& " 4L 5 "$ "l4
5$ "H 6 "4 g args
g in g out g filenamef language/tree-il/primitives.scm
!
$ $ / 6 7
; > A D * H J O . Q X ! c ! L g ! k " / p " < s " / v ! y
$ $
& & & &
'
' '
( ( ( 2 ( ( (
* * *
6 g nameg inline-args C<986c7=
h0 ]A $ & $ $ q $ C ( 4L 54L 5 C 4L5 C 4L5 C 4L5 C 4L5 C 4L5 C $ C4 5$
C $ 6C g exp
* g vx g vy g vx ( g vy ( g vx 9 g vy 9 g vx J g vy J g filenamef language/tree-il/primitives.scm
+ - , . V 0 Y 1 ` 2 i 0 l 4 v 4 : y 4 } 5 5 * 5 4 4 : 4 5 5 * 5 4 4 : 4 5 5 * 5 4 4 : 4 5 5 * 5 4 4 : 4 5 5 * 5 4 6 , 9 , : , $ > ( > 0 * g nameg
consequent C 6>5?8
h - 1 3 O O Q Q " 5( 45" , 45 " " C g sym
| g clauses | g inline-args | g
consequent | g in 7 l g out 7 l g filenamef language/tree-il/primitives.scm
( ? 7 B = C > D B D ' E D ! G D N E Q F " T F , U F " V G % [ G 1 ^ G % a F " d F l E l B o B - w B x ? |
C h t ] 4 5 L 4?6l g args
g v g filenamef language/tree-il/primitives.scm
CBC h( r ] 4 5 $ O @ 6 j g y
' g tmp ' g filenamef language/tree-il/primitives.scm
' C5'R4i iJ9E7 hP Z - 1 3 $ = $ *( ! 454
5 6CCC R g expr
O g w M g x M g w + I O
C> " G 4i iK9G7 hP Z - 1 3 $ = $ *( ! 454
5 6CCC R g expr
O g w M g x M g w + I O
C> " G 4i iL9F7 hP Z - 1 3 $ = $ *( ! 454
5 6CCC R g expr
O g w M g x M g w + I O
C> " G 4i iMFHJ9MKLRQ7?
hp K - 1 3 " " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ $ $ ( " 45 6" T45$ E 45& 4 5 6 45& 4
5 6""45$ E 45& 4 5 6 45& 4
5 6"\"X" """ $ L (
6 $ $( 4 5 6""" C g expr
k g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w g x g w ' g x ' g w < g w % . g w 4 g g x 4 g g w I _ g filenamef language/tree-il/primitives.scm ] \ i \ * s \ ^ . ^ X X " X Z & Z k
C> " G 4i iNFHJ9N7? h` a - 1 3 " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ L ( 6 $ $( 45 6""" Y g expr
\ g w g x g w + g x + g w < g x < g tail-len G g len \ g ls x g n
x g p-ls x g z g w
g w g w g w % X g x % X g w : P \
C> " G 4i iOFHJ9OKLQ7 h - 1 3 " " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ $ r $ ]( R " 45 645$ $ 45& 4 5 6""""~"z"v $ A $ ,( ! 454
5 6"."*"& g expr
g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w g x g w ' g x ' g w < g w g x g w g filenamef language/tree-il/primitives.scm Y j e j " o j
C> " G 4i iPFHJ9P7 hX Q - 1 3 " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ A $ ,( ! 454 5 6""" I g expr
Q g w g x g w + g x + g w < g x < g tail-len G g len \ g ls x g n
x g p-ls x g z g w
g w g w M g x M g w ' E Q
C> " G 4i iXFHJ9X7 h - 1 3 " W" $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ P $ ; $ &( 45 6"""" $ T (
6 $ ,( ! 454
5 6"R"N"J g expr
g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w ` g x ` g w ' \ g x ' \ g w < T g w u ~ g w g x g w
C> " G 4i iWFHJ9W7 h - 1 3 " W" $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ P $ ; $ &( 45 6"""" $ V (
6 $ -( " 454 5 6"P"L"H g expr
g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w ` g x ` g w ' \ g x ' \ g w < T g w u g w g x g w
C> " G 4i i9| h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9|} h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9}| h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9} h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9|} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9|} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9|} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9}| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9}| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9}| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i iy9xy? h - 1 3 " " b $ Y $ F $ 3 454455 6CCC $ P $ ; $ &( 45 6"O"K"G"C $ 9 $ $( 45 6""" g expr
g w q g x q g w / o g x / o g w @ m g x @ m g w g x g w g x g w g w g x g w
C> " G 4i iw9x h - 1 3 $ r $ _ $ L $ 9( 0 45445 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 ~ g x 8 ~ g w M z
C> " G 4i i697 h` - 1 3 $ G $ 4 $ ! 456CCC g expr
Y g w W g x W g w ' U g x ' U g w 8 S g x 8 S Y
C> " G 4i i899 h` x - 1 3 $ J $ 7 $ $( 45 6CCCC p g expr
\ g w Z g x Z g w ' X g x ' X g w < T \
C> " G 4i i:9; hH Z - 1 3 $ 5 $ "( 45 6CCC R g expr
G g w E g x E g w + A G
C> " G 4i i<9; hH Z - 1 3 $ 5 $ "( 45 6CCC R g expr
G g w E g x E g w + A G
C> " G 4i iKLck9 h ! - 1 3 $ $ t $ a 45$ J45 45$ 45$
" " $ 456CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g n N w g filenamef language/tree-il/primitives.scm = H N Q [
\ f
i ) {
C> " G 4i i9 h` x - 1 3 $ J $ 7 $ $( 45 6CCCC p g expr
\ g w Z g x Z g w ' X g x ' X g w < T \
C> " G 4i i9 hx - 1 3 $ _ $ L $ 9 $ &( 45 6CCCCC g expr
q g w o g x o g w ' m g x ' m g w 8 k g x 8 k g w M g q
C> " G 4i i9 h` x - 1 3 $ J $ 7 $ $( 45 6CCCC p g expr
\ g w Z g x Z g w ' X g x ' X g w < T \
C> " G 4i i9 hx - 1 3 $ _ $ L $ 9 $ &( 45 6CCCCC g expr
q g w o g x o g w ' m g x ' m g w 8 k g x 8 k g w M g q
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 7MNOPQRS9 h 0 )
3 6) 3 C) 3 C- 1 3 4 L 5 45 4 5 4 4
54
54 556 ( g src
g src
g a g src
$ & g a $ & g b $ & g src
/ g a / g b / g rest / g prim 8 g b-sym A g b* N
g filenamef language/tree-il/primitives.scm
0 8 ; ? A A D J & N N V [ ` a f # s > u # v # > # # $ & /
C h ] O C g prim-name
g filenamef language/tree-il/primitives.scm
g nameg chained-comparison-expander CTR4i T h } ] 4 56 u g prim-name
g filenamef language/tree-il/primitives.scm
CU> " G KLCVjkWX9@ h e ]4 5$ |4 5 45 $ " ?$ " 345$ '45$ $ " " " $ L 4
5 6CC ] g a
g b g v g t n g filenamef language/tree-il/primitives.scm
/
3 4
9 C D N S r w ) | @ ~ ) % g nameg maybe-simplify C h@ ) ,3 O Q 45 $ C6- 1 3 C g src
2 g a 2 g b 2 g maybe-simplify 2 g t 2 g else
; = g filenamef language/tree-il/primitives.scm
2 ; 2 ; =
g nameg maybe-simplify-to-eq CYR4i iAYi> " G 4i iBYi> " G 4i i=MZ[\Q`aO]9^_
hx ) d3 454545 4 4 54
4 554 556- 1 3 C g src
j g pre j g thunk j g post j g PRE j g THUNK j g POST j g else
s u g filenamef language/tree-il/primitives.scm
" $ # * " 3 # < $ = % B ' G ' ( K ' L ( P ( ( U ( = Y ( ( Z ( K \ ( ] ) b ) ( f ) h % j s j s u
C> " G 4i i>MZ\QbaO]_
hH h ]4545 4 454 556 ` g src
G g pre G g expr G g post G g PRE G g POST G g filenamef language/tree-il/primitives.scm
. 0 0 " 0
1 1 # 1 0 4 ! 5 ( 6 ) 7 . 9 3 9 ( 7 9 : ; ? ; ( C ; E 7 G 2 G C> " G 4i ic h ) 3 6- 1 3 C g src
g fluid g else
g filenamef language/tree-il/primitives.scm
? @ ?
C> " G 4i id h )
3 6- 1 3 C g src
g fluid g exp g else
g filenamef language/tree-il/primitives.scm
E F E
C> " G 4i iMefgh96O
h` ) I3 45 445 4454 5 55 6- 1 3 C y g src
O g tag O g exp O g handler O g args-sym O g else
X Z g filenamef language/tree-il/primitives.scm
K
M M R S # S ) & S 0 ( S 9 - S = . T 2 T ( 7 T ? 9 T ( < V + A V @ E V + H U % J T M R O N X K O X Z
C> " G 4i iMQje9fgh6Oi
h
) r3 45 45 4 45445 44
54 54 5 55 56- 1 3 C g src
x g tag x g thunk x g handler x g handler-sym x g args-sym x g else
g filenamef language/tree-il/primitives.scm
\
^ " _ ^ a " a ! ' a 4 ( b / c 5 c 6 7 c 8 f ; g B g * E g 1 G g : L g > M h Q i V i / X i Y j ^ j 0 b j c k h k 0 l k o j q h t f v b x ` \ " x
C> " G 4i ik h ) 3 6- 1 3 C g src
g tag g tail-args g else
g filenamef language/tree-il/primitives.scm
q s # s q
C> " G i ik7 h( * 1 3 456- 1 3 C g src
g tag g args g else
& ( g filenamef language/tree-il/primitives.scm
w y ( y 7 y ( y & w
& (
C6 Z g m
, g filenamef language/tree-il/primitives.scm
. & 1 %
\ t
] z % f z
g |
~
&
1
*
"
$
6
4
f
/
g
h ! r
J
M
P
U
% c
( h
, o
/ s
3k y
7#
8
9
9
:
;
<
=
>
?
@
A
B
C
D
E
G
H
I"
J2
KB
LR
Mb
Nr
O
P
Q
R
S
V
Wr
X
Y
Zh
[8
]7
^>
_|
`
a
b
dU
e~
f
h
iu
j
l
m.
n
o
q%
rN
s
t
vE
wn
x
y
J
K
V % `
i
t % ~
6
? ,
J - - ,
6 =
A > " =
+ C
6 D # C
, I
7 J F I
O Z
Z [ * Z
3 o
> p 8 o
K v ] u
]
C6 PK ! h language/tree-il/inline.gonu [ GOOF----LE-8-2.0 ] 4 hx ] g guile g define-module* g language g tree-il g inline
g filenameS f language/tree-il/inline.scm g exportsS
g inline!
g set-current-module g issue-deprecation-warning f ?`inline!' is deprecated. Use (language tree-il peval) instead.C 5 h g ]4
5 4 > " G h ]4> " G C g x
g filenamef language/tree-il/inline.scm
g nameg inline! C
RC _ g m
( g filenamef language/tree-il/inline.scm
C6 PK ! language/tree-il/cse.gonu [ GOOF----LE-8-2.0߮ ] 4 h ] g guile g define-module* g language g tree-il g cse
g filenameS f language/tree-il/cse.scm g importsS
g
primitives g effects g ice-9 g vlist g match g srfi g srfi-1 g srfi-9 ! "! #g srfi-11 $ # %$ &g srfi-26 ' & (' ) "%( *g exportsS + ,g set-current-module -, ., /g make-syntax-transformer 0/ 1/ 2g *logging* 3g macro 4g identifier? 54 64 7g
syntax-object 8g top 98 :g ribcage ;g id <; =g m-9d6145bdb05-25f0 >=8 ?> @f l-9d6145bdb05-25f7 A@ B:<?A C: Dg x ED Ff l-9d6145bdb05-25f2 GF H:E?G I9BCH Jg hygiene KJ L7IK Mg $sc-dispatch NM OM Pg _ Qg each-any RPQ Sf l-9d6145bdb05-25fa TS U:E?T V9UCH W7VK Xg syntax-violation YX ZX [f -source expression failed to match any pattern \g log ]g any ^g free-id _g quote `g m-9d6145bdb05-25fd a`8 ba cf l-9d6145bdb05-25ff dc e:Ebd f9Ce g7_fK h^g ih] jiQ k]j lg if mg dummy ng event og arg pmno qa99 rf l-9d6145bdb05-2602 sf l-9d6145bdb05-2603 tf l-9d6145bdb05-2604 urst v:pqu w9vCe x7lwK yg and z7ywK {72wK |g or }7|wK ~g eq? 7~wK 7wK { g memq 7wK 7_wK { g log* 7wK g
module-ref g resolve-interface g pretty-print g newline g
vlist-null g tree-il-fold g
<lexical-set> g vhash-consq g build-assigned-var-table g negate-primitive g not g symbol->string g
string-ref g
string-length g boolean-valued-primitive? g test g <const> g boolean? g
<application> g <primitive-ref> g boolean-valued-expression? g value g <lambda> g values g
<lexical-ref> g <void> g <module-ref> g <toplevel-ref> g singly-valued-primitive? g singly-valued-expression? g make-application g make-primitive-ref g
make-const g
<conditional> g make-conditional g
vector-length g tree-il=? g vlist-length g tree-il-hash g vhash-assoc g vlist-ref g error f no matching pattern g lambda g effect-free? g exclude-effects g tree-il-src g lexical-ref? g
vhash-cons g make-lexical-ref g
vhash-assq g make-effects-analyzer g vhash-fold-right g reverse g constant? g effect g lambda-case? g void? g make-void g
<sequence> g
make-sequence g sequence? g append g
sequence-exps g <prompt> g make-prompt g <abort> g
make-abort g
<lambda-case> g make-lambda-case g hashq g most-positive-fixnum g make-lambda g equal? g <toplevel-set> g make-toplevel-set g <toplevel-define> g make-toplevel-define g <module-set> g make-module-set g <dynset> g make-dynset g <dynref> g make-dynref g <dynlet> g make-dynlet g <dynwind> g make-dynwind g <let-values> g make-let-values g <fix> g make-fix g <letrec> g make-letrec g <let> g make-let g make-lexical-setC 5 hp ]4
)*+5 4. > " G 41236 h ] ] 6U g id
g filenamef language/tree-il/cse.scm n CL h * ]C " g id
CORW h ) ] C! g x
CZ[ h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/cse.scm
n : g
macro-typeg identifier-syntax C52R41\3Okxz{}
h0 Q ] CI g dummy
0 g event 0 g arg 0 0 CZ[ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/cse.scm
r " g
macro-typeg syntax-rulesg patternsg quoteg event g argg ... C5\R\ hH - 1 3 4455 4 > " G 4> " G D g event
C g args C g pp C g filenamef language/tree-il/cse.scm
x
y
y y + y z y y { { ) { 2 | C } C
g nameg log* CR h o ]C g g exp
g res g filenamef language/tree-il/cse.scm
C h8 ]
$ , &
6CC g exp
8 g res 8 g w ! 2 g filenamef language/tree-il/cse.scm
2 8 C h o ]C g g exp
g res g filenamef language/tree-il/cse.scm
C h( - . , 3 # 6 g exp
$ g table $ g filenamef language/tree-il/cse.scm
$ $ g nameg build-assigned-var-table CR h@ ] 4 5 $ C & C4 5 4455?C
g primitive
: g t : g chars % : g filenamef language/tree-il/cse.scm
% ( - $ 4 6 9 : g nameg boolean-valued-primitive? CR h ]" @" C $ + &
45$ CC"" $ L & ?
$ )&
45$ C"y"u"q"m"i g x
g ctx g w ) > g w _ g w z g filenamef language/tree-il/cse.scm
< = F g nameg boolean-valued-expression? CR h V ] L CN g filenamef language/tree-il/cse.scm
C hp I ]2" O Q $ &
" & C6 $ m& `
& : " & C6 $ ( C"" & C6 "}"y & C6 6 $ & C & C & C & C & C
& C & ?
$ )&
4 5$ C""""" A g x
i g ctx i g failure g w , g failure 0 g w ^ g w m g failure q g failure g w + a g w F Y g filenamef language/tree-il/cse.scm
i g nameg singly-valued-expression? CR h q ] 45L 6 i g filenamef language/tree-il/cse.scm 3
9
C h ]2" O Q $ y & l
$ Q& D
45$ 4455645 66 6 6 6 $ &
6
&
6 & 4
4L 54L 56 & p
$ Z& M
& 6 $ $( 4
5$ C""""""~"z"vx g exp
g ctx g failure g w ' g w - g failure 1 g w L g w ^ u g w g w g w g w g w g w g w g w ! g w < g w K | g w ^ t g filenamef language/tree-il/cse.scm
e i 0 q u y ~ 3 9 " : a m g nameg negate C h G ] $ " $ w4 $ " 5 $ V $ "
$ " $ " 4L 5$ L$ LCCCCC ? g v1
g v2 g len * g w F g w l g filenamef language/tree-il/cse.scm
8 < K O ] a o { g nameg entry-matches? C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C
h ]dO Q 454 5 4O 5$ n" c$ X45 " $
$ 4 5 $
$ &$ " $
4 5" " $ C
UU
$ " & UU
$ "C4
56 4
56 4
56 $ < & ' UU UU
$ "C""C
"C g exp
g effects g ctx g db g entry-matches? g len g h g n = g v O g w b J g x
b J g len t = g w 0 g w
0 g w 0 g t 0 g effects g effects g w a g filenamef language/tree-il/cse.scm
% 9 = B F
G , " % ( " . 1 { g nameg find-dominating-expression C h@ q ];44 55$ " C4L 5$ 4 564L4L 55$ 4 56C $ & $
45$ C6 &
$ { & n
& W $ E( : 4L 5 $ &
6CC"""""""C i g exp
; g effects ; g db ; g w v g w | g w 1 g w 1 g w ) g w % g w g v g w g filenamef language/tree-il/cse.scm
( 2 ,
0 3 <
=
@ & F 2 H & L A P
T W `
b ! ! # ; g nameg find-dominating-test C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ]-( C 4M5 $ " 45 $ " 345 45 4 O 5 "t g env
g names g syms g exps g db g name g sym g exp g t ! 8 g v R u g h [ r g filenamef language/tree-il/cse.scm
' ( * * & * 7 * + ! + / , < + I # # R # R # U $ [ # ^ % x / { / # ~ / . +
g nameg augment-env C h # ] $ " $ t4 $ " 5 $ S $ "
$ " $ " $ " L 6CC g v1
g v2 g len * g w F g filenamef language/tree-il/cse.scm
2 3 3 3 3 8 3 < 3 K 3 O 3 ] 3 a 3 p 3 t 3 5 g nameg entry-matches? C h@ ]+
$ C4 5 " $ $ 45 $ }
UU L
$ " &L UU
$ ">C456 456 456 $ E & 0L UU UU
$ "C"" g db
= g base = g n = g t = g v = g w * g len > g w R g effects f g effects g w 9 g filenamef language/tree-il/cse.scm
8 9
9 :
f @ @
A A ' A :
= ! =
& > ) > ' 3 > 9 :
= g nameg unroll Ch w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C hX ]O O Q Q 4 5 44 55$ 4 O 5$ 4545 " $ 4 5 $
$ 4
5 $ v
4
5$ A"
"{
$ 4 5$ 4
56""C4 56 4 56 4 56 C
"CC g exp
X g effects X g env X g db X g entry-matches? X g unroll X g h & X g env-len e T g db-len e T g n m J g m
m J g v H g w ; g x
; g len . g w ! g w ! g w ! g w ! g niter ! g filenamef language/tree-il/cse.scm
1 C
& C ) D , D = D A D B E W D X F _ G e F m H
r I v I w J L ' L $ L M M P & P - P " N N ' N N 0 N " O 4 O " " J J H
" X g nameg find-dominating-lexical C h g ] L 6 _ g sym
g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C hP ] $ 64L LLL> G 45 "45D g in
J g out J g db* J g x ? g db** ? g filenamef language/tree-il/cse.scm
p q q
r ) r 0 r ) r % t * t + f ? t @ u J u J g nameg lp C h( ] O L Q 6 g exps
$ g db $ g env $ g ctx $ g lp $ g filenamef language/tree-il/cse.scm
o p p $ p $ g nameg parallel-visit C h 9 ]94L 5 " $ 4L 5 $ h $ K45 $ ,
& C "456 456 456 C
"g1 g sym
g env-len g n g v ! g w - g len A g w P x g w \ x g filenamef language/tree-il/cse.scm
x S S T U
U V
l X r Z x Z y V
T
C h( ] 4M LO 5
C g exp
& g x & g filenamef language/tree-il/cse.scm
z x { & g nameg bailout? C h 9 ]94L 5 " $ 4L 5 $ h $ K45 $ ,
& C "456 456 456 C
"g1 g sym
g env-len g n g v ! g w - g len A g w P x g w \ x g filenamef language/tree-il/cse.scm
x S S T U
U V
l X r Z x Z y V
T
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C hp ]*4M LO 5 " 4 L5$ 4L L5" $ D4 L5$ 4L LL5" $ D" 0 L 4 5 4O 5 D45$ L& " L $ D""L
& 4 5$ " `4 4
55 $ " A45 $ " *4 4
55$ 4L L5" $ 4 5$ D45D"" g exp
p g db* p g effects p g t 3 g t ` g v g h g t I g t F g filenamef language/tree-il/cse.scm
} x ~ #
$ 3 A B N
O ` n }
~
#
%
* ,
. 2 3 M
N X
^ _ h 3 p g nameg return C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h O ]# $ ( ] 4L4L5LL> G ( L 456L 4L455456 4L4L5L> G 4 5$ 4
4 55 "C4 5$ "(4
5 " 4 56 G g in
g out g db* g w m g last / m g db** / m g w s g x s g head g db**
g filenamef language/tree-il/cse.scm
( ) + ' f . + ' 2 + < , A f M - P . U . - \ . 6 ^ . - ` . a f m . p ) x 1 ' } f 1 G 1 ' 1 3 2 4 4 4 4 5 2 6 8 f 8 ) $ g nameg lp C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h0 ]4 L O 5$ O 6C g k
, g h , g out , g filenamef language/tree-il/cse.scm
^ _ _ ) ` , C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h0 ]4 L O 5$ O 6C g k
, g h , g out , g filenamef language/tree-il/cse.scm
^ _ _ ) ` , C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C c h r ]O O O LQ LQ LLLL Q " " [" '" " %"
{" " e" "
"
"
'"
" " u" " " " b" " a" $ q & 4
O L Q 6 &
4L> G 4L 4
5 > G
4L
4 5> G 4
5 6 &
4L> G 4 > G
4L
> G 4
54 5 4 5 64 56 4 56 $ &
4 > G 4L> G $ 4L>
" " G 4
5 $ " 6"" $ y & l
$ 24L 45
4
O 5
>
" " G
4
56" " $ j & ]
4L> G
4 > G
4
54
56"" $ 0 !& #
4L"> G 4L4L "5"> G
4L 4 # 5> G 4L
4 $5> G 4% 5 " " c" " " " " " 64 & 54 '5 4 (O 5 6$ v!& i
45$ 4 )564 * 54 +5 4 ,O 5 6"M"I$ D!& 7
45$ 4 - 56"""$ q!& d
$ H.& ;
& % "& 4 /5" 6"""~"z"v$ q!& d
$ B.& 5
& "& 4 0 5" 6"""""$ !&
$ s.& f
& P $ >.& 1
& 4L 5 ""g"c"_"["W"S"O"K$ !&
415$ r $ `.& S
& = $ +.&
& 6"""""""""$ !&
$ t.& g
$ J.& =
$ %42 435 5 "m"
" """""$ c!& V
$ @.& 3
$ 4 4 564 556"""""g"c $ 6& 6"C"? $ I 7& <
4L > G
48
5 6"" $ I 9& <
4L > G
4:
5 6"" $ [ ;& N
4L > G
4<
5
6")"% $ =& 6"" $ >& 6"" $ j ?& ]
4L> G
4L > G
4@
54 A
56"h"d $ @ B& 3
4L> G
4C 5
6"" $ D&
4> G 4 > G
4L
4 E 5 4 F5 > G 4G
54 H 5 4 I5 6"V"R $ J&
4L> G 4L 4 K 5> G
4L
> G 4L
54 M5 4 N 5 6"" $ s O& f
4L > G
4L 4 P 5> G
4Q
54 R
56"!" $ S& x
4
> G
4L 4 T
5> G 4U 54 V
56"" $ W&
4 > G
4L 4 X54L
5> G 4Y
54 Z56"" $ [&
4
> G
4L 4 \
54L 5> G 4] 54 ^
56"B"> $ R _& E
4L
> G 4` 5 6"" $ % a&
6"" $ b& 6"" $ .& 6"e"a j g exp
g db g env g ctx g parallel-visit ! g bailout? ! g return ! g w g w g lp g w j g w j g w j g w
j g tag j g db* j g body
/ j g _ / j g handler P j g _ P j g w w g w } g w g w
g tag g db* g args
g db** g tail g db*** g db2 g w / g w 5 g w < g w
C g w J g w Q g w
X g w _ g w f g inits y g _ y g body g db* g alt g _ g w o g w
o g w o g h
* A g body
W o g _ W o g w g w g w g proc
g db* g args g db**
g w g w g w
g w
g test ' g db+ ' g converse
F g db- F g
consequent g g db++ g g alternate g db-- g v g db+ g db- g w m g db+ Q k g db- Q k g w g w 8 g w 0 g w e g w g w [ g w S g w O g w G g w | g w g w g w g w g w ( g w C g w J g w e g w g w g w [ g w a g w h g exp
{ g db* { g w g w g w g exp
g db* g w
M g w
M g w
M g w
M g w
M g exp
1
M g db*
1
M g w
g w
g w
g fluid
g db*
g exp
g db**
g w M g w $ M g fluid 7 M g db*
7 M g w i g w o g w v g w
} g fluids g db* g vals
g db** g db2 g body g db*** g db2
g w ( g w . g w 5 g w
< g pre O g db* O g body
p g db** p g post g db*** g db2 g w
9 g w
9 g w
9 g producer
9 g db*
9 g consumer
9 g db**
9 g w
U
g w
[
g w
b
g w
i
g w
p
g vals
g db*
g body
g db**
g w
o g w
o g w
o g w
o g w o g w o g vals
o g db* o g body H o g db** H o g w g w g w g w
g w g vals g db*
g body g db** g w ( i g w . i g w 5 i g w
< i g exp O i g db* O i g filenamef language/tree-il/cse.scm
j B ( ( ( : : 2
: : ; f ) ; ? . ; 2 : 7 < " < f O < " S : Z = j = m @ @ 2 @ @ A " A > A " @ B # B 6 B # @ C f D f C i s = x | ! ! " # " $ " % & % # "
& *
* - 1 > E . J # V # Z a o s ! 4 ! " > " f ! + & * / 2 # 8 0 : # @ > E I N S f f j o t f f ] + f 7 < f Q V ] m u f
# f , 0 # f ) C G l / p q w 0 % f f # ? C k u 2 z ~ 2
!
+ 2
0
4
;
M
Q
m
q
"
6
"
!
3
!
f ' " 1 6 6 " : A M Q # A # " > " # f / f # f f ? I 5 N R W " \ f o " s x # : # f f % < % &
f
&
"
- f
9
=
s !
} =
!
"
f
"
f
! = ! " " ' f 2 ) G " K R c f o s ! = ! " f ) " f ? I 2 N R Y i m ) g nameg visit C h ]AHHO O O Q Q Q 4 5 O K4J5K O Q
6 g exp
g assigned-lexical? g %compute-effects g negate + g find-dominating-expression + g find-dominating-test + g augment-env + g find-dominating-lexical + g table G S g visit l
g filenamef language/tree-il/cse.scm
A G V l j m j g nameg cseg
documentationf 'Eliminate common subexpressions in EXP. CRC g m
, g filenamef language/tree-il/cse.scm
= x
p
7
m
o
C6 PK ! ;T y y srfi/srfi-67.gonu [ GOOF----LE-8-2.0a ] 4 h 4 ] g guile g define-module* g srfi g srfi-67 g filenameS
f srfi/srfi-67.scm g importsS g srfi-27
g exportsS g </<=? g </<? g <=/<=? g <=/<? g <=? g <? g =? g >/>=? g >/>? g >=/>=? g >=/>? g >=? g >? g boolean-compare g chain<=? g chain<? !g chain=? "g chain>=? #g chain>? $g char-compare %g char-compare-ci &g compare-by< 'g compare-by<= (g
compare-by=/< )g
compare-by=/> *g compare-by> +g compare-by>= ,g complex-compare -g cond-compare .g
debug-compare /g default-compare 0g if-not=? 1g if3 2g if<=? 3g if<? 4g if=? 5g if>=? 6g if>? 7g integer-compare 8g kth-largest 9g list-compare :g list-compare-as-vector ;g max-compare <g min-compare =g not=? >g number-compare ?g pair-compare @g pair-compare-car Ag pair-compare-cdr Bg pairwise-not=? Cg rational-compare Dg real-compare Eg refine-compare Fg select-compare Gg symbol-compare Hg vector-compare Ig vector-compare-as-list J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI 9 Kg replacementsS Lg string-compare Mg string-compare-ci NLM Og set-current-module PO QO Rg cond-expand-provide Sg current-module T Ug for-each Vg compare:checked Wg make-syntax-transformer XW YW Zg macro [g $sc-dispatch \[ ][ ^g any _^^^^^ `g
syntax-object ag case bg top cb dg ribcage eg dummy fg c gg less hg equal ig greater jefghi kg m-46961e518a-3 lkb mlcccc nf l-46961e518a-8 of l-46961e518a-9 pf l-46961e518a-a qf l-46961e518a-b rf l-46961e518a-c snopqr tdjms ud vg x wv xl yf l-46961e518a-5 zy {dwxz |ctu{ }g hygiene ~} `a|~ ` |~ `
|~ ` |~ g else `|~ g error `|~ f comparison value not in {-1,0,1} `|~ g syntax-violation f -source expression failed to match any pattern g compare:if-rel? g c-cases g a-cases g consequence ef g m-46961e518a-12 b cccc f l-46961e518a-17 f l-46961e518a-18 f l-46961e518a-19 f l-46961e518a-1a f l-46961e518a-1b d f l-46961e518a-14 dw cu `~ g if `~ `~ ^^^^^^ g alternate ef ccccc f l-46961e518a-22 f l-46961e518a-23 f l-46961e518a-24 f l-46961e518a-25 f l-46961e518a-26 f l-46961e518a-27 d cu `a~ `~ `~ `~ g each-any ^ g arg e g m-46961e518a-2f b c f l-46961e518a-34 f l-46961e518a-35 d f l-46961e518a-31 dw cu `~ `
~ ` ~ ` ~ g m-46961e518a-3a b c f l-46961e518a-3f f l-46961e518a-40 d f l-46961e518a-3c dw cu `~ ` ~ `
~ ` ~ g m-46961e518a-45 b c f l-46961e518a-4a f l-46961e518a-4b d f l-46961e518a-47 dw cu `~ ` ~ ` ~ `
~ g m-46961e518a-50 b c f l-46961e518a-55 f l-46961e518a-56 d f l-46961e518a-52 dw cu `~ ` ~ `
~
` ~
g m-46961e518a-5b
b c f l-46961e518a-60 f l-46961e518a-61 d f l-46961e518a-5d dw cu `~ `
~ ` ~ ` ~ g m-46961e518a-66 b ! c "f l-46961e518a-6b #f l-46961e518a-6c $"# %d!$ & 'f l-46961e518a-68 (' )dw&( *c%u) +`*~ ,` *~ -` *~ .,- /`
*~ 0/ 1g compare:define-rel? 2^^^ 3g define 4g rel? 5g if-rel? 6e45 7g m-46961e518a-71 87b 98cc :f l-46961e518a-76 ;f l-46961e518a-77 <f l-46961e518a-78 =:;< >d69= ?8 @f l-46961e518a-73 A@ Bdw?A Cc>uB D`3C~ Eg case-lambda F`EC~ Gg lambda H`GC~ I`vC~ Jg y K`JC~ LIK M`/C~ NMIK O`C~ P`C~ QNOP Rg compare S`RC~ TS USIK VUOP W`C~ Xg
procedure? Y`XC~ ZYS [`C~ \f *not a procedure (Did you mean rel/rel??): ]`\C~ ^[]S _^ `g compare:define-rel1/rel2? a^^^^ bg
rel1/rel2? cg if-rel1? dg if-rel2? eebcd fg m-46961e518a-83 gfb hgccc if l-46961e518a-88 jf l-46961e518a-89 kf l-46961e518a-8a lf l-46961e518a-8b mijkl ndehm og pf l-46961e518a-85 qp rdwoq scnur t`3s~ u`Es~ v`Gs~ w`vs~ x`Js~ yg z z`ys~ {wxz |`/s~ }|wx ~|xz `s~ `s~ ~ `Vs~ |z `Rs~ wx xz z wxz g compare:define-chain-rel? g
chain-rel? e5 g m-46961e518a-99 b cc f l-46961e518a-9e f l-46961e518a-9f f l-46961e518a-a0 d f l-46961e518a-9b dw cu `3~ `E~ `R~ `~ g x1 `~ `V~ g x2 `~ `~ g x3 `~ g x3+ `~ g let `~ g chain? `~ g head `~ g tail `~ `~ g null? `~ g car `~ g cdr `~ g apply `~ g random-integer g list-ref g length f bad index g integer? g exact? ^ e g m-46961e518a-a9 b f l-46961e518a-ae d f l-46961e518a-ab dw cu `
~ ^^ ^ ^댤 g c1 g c2 g cs e ccc f l-46961e518a-b6 f l-46961e518a-b7 f l-46961e518a-b8 f l-46961e518a-b9 d cu `1~ ` ~ `E~ ` ~ g clause evJ g m-46961e518a-bf b ccc f l-46961e518a-c4 f l-46961e518a-c5 f l-46961e518a-c6 f l-46961e518a-c7 d
f l-46961e518a-c1
dw
cu `
~ g x-val `
~ g y-val `
~ `F
~ ^ evJ cc f l-46961e518a-ce f l-46961e518a-cf f l-46961e518a-d0 d cu `
~ g free-id cu ` ~ ! "! #^^" $^# %evJf &f l-46961e518a-d5 'f l-46961e518a-d6 (f l-46961e518a-d7 )f l-46961e518a-d8 *&'() +d%* ,c+u -`E,~ . /^. 0^/ 1^0 2g t? 3evJ2f 4ccccc 5f l-46961e518a-df 6f l-46961e518a-e0 7f l-46961e518a-e1 8f l-46961e518a-e2 9f l-46961e518a-e3 :f l-46961e518a-e4 ;56789: <d34; =c<u >`=~ ?g t?-val @`?=~ Ag tx B`A=~ Cg ty D`C=~ E`=~ F`E=~ G` =~ HG I` =~ J`F=~ Kg m-46961e518a-ed LKb ML Nf l-46961e518a-f2 ON PdMO Qf l-46961e518a-ef RQ SdwMR TcPuS U`
T~ VcuS W`V~ X W YX Z^Y [e \Lc ]f l-46961e518a-f5 ^f l-46961e518a-f6 _]^ `d[\_ ac`uS b`Ea~ c dc e^d feAC gLcccc hf l-46961e518a-fb if l-46961e518a-fc jf l-46961e518a-fd kf l-46961e518a-fe lf l-46961e518a-ff mhijkl ndfgm ocnuS p`o~ qg tx-val r`qo~ sg ty-val t`so~ u`o~ v`Eo~ w` o~ xw y` o~ z`-o~ {g compare:type-check |g type? }g type-name ~e|}v g m-46961e518a-107 b ccc f l-46961e518a-10c f l-46961e518a-10d f l-46961e518a-10e f l-46961e518a-10f d~ f l-46961e518a-109 dw cu `~ g not `~ `~ g
string-append `~ f not `~ f : `~ g begin e|}vJ cccc f l-46961e518a-115 f l-46961e518a-116 f l-46961e518a-117 f l-46961e518a-118 f l-46961e518a-119 d cu `~ `{~ g compare:define-by=/< g = g < eR|} g m-46961e518a-120 b ccccc f l-46961e518a-125 f l-46961e518a-126 f l-46961e518a-127 f l-46961e518a-128 f l-46961e518a-129 f l-46961e518a-12a d f l-46961e518a-122 dw cu `3~ `~ `G~ `v~ `J~ `~ g eq? `~ `
~ ` ~ ` ~ `~ `~ `~ `~ g boolean? f boolean g char=? g char? g char<? f char g char-ci=? g char-ci<? g string=? g string<? g string? f string g string-ci=? g string-ci<? f symbol g symbol->string f integer g rational? f rational g real? f real g complex? f complex g real-part g imag-part g number? f number g
vector-length g
vector-ref g min f $unrecognized type in default-compare f compare value not in {-1,0,1} f compare error: not reflexive f !compare error: not anti-symmetric yJv Jyv yvJ vyJ Jvy vJy
f compare error: not transitive g mapC 5h8 ]4
JKN5 4Q > " G 4Ri4Si5 T> " G Uh c ]L 6 [ g x
g filenamef srfi/srfi-67/compare.scm
U
U
C h( - 1 3 4O > " G C g result
% g compare % g args % g filenamef srfi/srfi-67/compare.scm
T
U %
g nameg compare:checked CVR4Y1Z]_ h( v ] C n g dummy
# g c # g less # g equal # g greater # # C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
[
" g
macro-typeg syntax-rulesg patternsg cg lessg equalg greater C51R4YZ]_ h ]C w g dummy
g c-cases g a-cases g c g consequence C h ] C g dummy
g c-cases g a-cases g c g consequence g alternate C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-67/compare.scm
f 9 g
macro-typeg syntax-rulesg patternsg c-casesg a-casesg cg consequence g c-casesg a-casesg cg consequenceg alternate C5R4Y4Z] h > ]C 6 g dummy
g arg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
o
" g
macro-typeg syntax-rulesg patternsg argg ... C54R4Y3Z] h > ]C 6 g dummy
g arg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
r
" g
macro-typeg syntax-rulesg patternsg argg ... C53R4Y6Z] h > ]C 6 g dummy
g arg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
u
" g
macro-typeg syntax-rulesg patternsg argg ... C56R4Y2Z]
h > ]C 6 g dummy
g arg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
x
" g
macro-typeg syntax-rulesg patternsg argg ... C52R4Y5Z] h > ]C 6 g dummy
g arg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
{
" g
macro-typeg syntax-rulesg patternsg argg ... C55R4Y0Z]+.0 h > ]C 6 g dummy
g arg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
~
" g
macro-typeg syntax-rulesg patternsg argg ... C50R4Y1Z]2DFHLQTVUWZ_ hP T ]
C L g dummy
M g rel? M g if-rel? M M C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
" g
macro-typeg syntax-rulesg patternsg rel?g if-rel? C51R/ h8 { ]
4 5
$ C $ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5
$ C $ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ h ) 3 C) 3 O C) 63 4 5
$ C $ " $ C6] 4 5$ 34 5
$ C $ " $ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ g x [ g y [ g key o g filenamef srfi/srfi-67/compare.scm
& Y [ g nameg =? CR/ h8 { ]
4 5 $ C
$ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5 $ C
$ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ h ) 3 C) 3 O C) 63 4 5 $ C
$ " $ C6] 4 5$ 34 5 $ C
$ " $ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ g x [ g y [ g key o g filenamef srfi/srfi-67/compare.scm
& Y [ g nameg <? CR/ h8 { ]
4 5 $ C $ "
$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5 $ C $ "
$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ h ) 3 C) 3 O C) 63 4 5 $ C $ "
$ C6] 4 5$ 34 5 $ C $ "
$ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ g x [ g y [ g key o g filenamef srfi/srfi-67/compare.scm
& Y [ g nameg >? C R/ h8 { ]
4 5 $ "
$ C $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5 $ "
$ C $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ h ) 3 C) 3 O C) 63 4 5 $ "
$ C $ C6] 4 5$ 34 5 $ "
$ C $ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ g x [ g y [ g key o g filenamef srfi/srfi-67/compare.scm
& Y [ g nameg <=? CR/ h8 { ]
4 5
$ " $ C $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5
$ " $ C $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ h ) 3 C) 3 O C) 63 4 5
$ " $ C $ C6] 4 5$ 34 5
$ " $ C $ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ g x [ g y [ g key o g filenamef srfi/srfi-67/compare.scm
& Y [ g nameg >=? C R/ h8 { ]
4 5 $ " $ C
$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5 $ " $ C
$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ h ) 3 C) 3 O C) 63 4 5 $ " $ C
$ C6] 4 5$ 34 5 $ " $ C
$ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ g x [ g y [ g key o g filenamef srfi/srfi-67/compare.scm
& Y [ g nameg not=? C=R4Y`Z]atuv{}
hh q ]
Ci g dummy
h g
rel1/rel2? h g if-rel1? h g if-rel2? h h C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
" g
macro-typeg syntax-rulesg patternsg
rel1/rel2?g if-rel1?g if-rel2? C5`R/V hp ]4 5 $ 345 $ C
$ " $ C6
$ " $ 66 g x
m g y m g z m g key m g key I g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5 $ 34L 5 $ C
$ " $ C6
$ " $ L 66 g x
m g y m g z m g key m g key I g filenamef srfi/srfi-67/compare.scm
m C/V h N ) 3 C) 3 O C) n3 4 5 $ 345 $ C
$ " $ C6
$ " $ 66]4 5 $ 34 5 $ C
$ " $ C6
$ " $ 66 F g compare
g x
& g y & g z & g key / g key C m g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg </<? CR/V hp ]4 5 $ 345 $ "
$ C $ C6
$ " $ 66 g x
m g y m g z m g key m g key I g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5 $ 34L 5 $ "
$ C $ C6
$ " $ L 66 g x
m g y m g z m g key m g key I g filenamef srfi/srfi-67/compare.scm
m C/V h O ) 3 C) 3 O C) n3 4 5 $ 345 $ "
$ C $ C6
$ " $ 66]4 5 $ 34 5 $ "
$ C $ C6
$ " $ 66 G g compare
g x
& g y & g z & g key / g key C m g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg </<=? CR/V hp ]4 5 $ "
$ 345 $ C
$ " $ C6 $ 66 g x
m g y m g z m g key m g key , V g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5 $ "
$ 34L 5 $ C
$ " $ C6 $ L 66 g x
m g y m g z m g key m g key , V g filenamef srfi/srfi-67/compare.scm
m C/V h O ) 3 C) 3 O C) n3 4 5 $ "
$ 345 $ C
$ " $ C6 $ 66]4 5 $ "
$ 34 5 $ C
$ " $ C6 $ 66 G g compare
g x
& g y & g z & g key / g key P z g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg <=/<? CR/V hp ]4 5 $ "
$ 345 $ "
$ C $ C6 $ 66 g x
m g y m g z m g key m g key , V g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5 $ "
$ 34L 5 $ "
$ C $ C6 $ L 66 g x
m g y m g z m g key m g key , V g filenamef srfi/srfi-67/compare.scm
m C/V h P ) 3 C) 3 O C) n3 4 5 $ "
$ 345 $ "
$ C $ C6 $ 66]4 5 $ "
$ 34 5 $ "
$ C $ C6 $ 66 H g compare
g x
& g y & g z & g key / g key P z g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg <=/<=? CR/V hp ]4 5 $ 345 $ C $ "
$ C6 $ "
$ 66 g x
m g y m g z m g key m g key H g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5 $ 34L 5 $ C $ "
$ C6 $ "
$ L 66 g x
m g y m g z m g key m g key H g filenamef srfi/srfi-67/compare.scm
m C/V h N ) 3 C) 3 O C) n3 4 5 $ 345 $ C $ "
$ C6 $ "
$ 66]4 5 $ 34 5 $ C $ "
$ C6 $ "
$ 66 F g compare
g x
& g y & g z & g key / g key B l g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg >/>? CR/V hp ]4 5 $ 345
$ " $ C $ C6 $ "
$ 66 g x
m g y m g z m g key m g key H g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5 $ 34L 5
$ " $ C $ C6 $ "
$ L 66 g x
m g y m g z m g key m g key H g filenamef srfi/srfi-67/compare.scm
m C/V h O ) 3 C) 3 O C) n3 4 5 $ 345
$ " $ C $ C6 $ "
$ 66]4 5 $ 34 5
$ " $ C $ C6 $ "
$ 66 G g compare
g x
& g y & g z & g key / g key B l g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg >/>=? CR/V hp ]4 5
$ " $ 345 $ C $ "
$ C6 $ 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5
$ " $ 34L 5 $ C $ "
$ C6 $ L 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
m C/V h O ) 3 C) 3 O C) n3 4 5
$ " $ 345 $ C $ "
$ C6 $ 66]4 5
$ " $ 34 5 $ C $ "
$ C6 $ 66 G g compare
g x
& g y & g z & g key / g key O y g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg >=/>? CR/V hp ]4 5
$ " $ 345
$ " $ C $ C6 $ 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
m CV hp ]4L 5
$ " $ 34L 5
$ " $ C $ C6 $ L 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
m C/V h P ) 3 C) 3 O C) n3 4 5
$ " $ 345
$ " $ C $ C6 $ 66]4 5
$ " $ 34 5
$ " $ C $ C6 $ 66 H g compare
g x
& g y & g z & g key / g key O y g compare
g x g y g z g key g key g filenamef srfi/srfi-67/compare.scm
& g nameg >=/>=? CR4YZ]2 hX Z ]
C R g dummy
U g
chain-rel? U g if-rel? U U C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
" g
macro-typeg syntax-rulesg patternsg
chain-rel?g if-rel? C5RV hp ) 3 C) 3 6) 63 4 5
$ C $ " $ C6) n3 4 5
$ 34 5
$ C $ " $ C6 $ " $ 66- 1 3 4 5
$ `" P( C4 5
$ " $ " $
@6 " $ " $ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b g x1 b g x2 b g x3 b g key k g key ~ g compare
n g x1 n g x2 n g x3+ n g key n g head = g tail = g key = g filenamef srfi/srfi-67/compare.scm
& Y b n
g nameg chain=? C!RV hp ) 3 C) 3 6) 63 4 5 $ C
$ " $ C6) n3 4 5 $ 34 5 $ C
$ " $ C6
$ " $ 66- 1 3 4 5 $ `" P( C4 5 $ "
$ " $
@6 "
$ " $ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b g x1 b g x2 b g x3 b g key k g key g compare
n g x1 n g x2 n g x3+ n g key n g head > g tail > g key > g filenamef srfi/srfi-67/compare.scm
& Y b n
g nameg chain<? C RV hp ) 3 C) 3 6) 63 4 5 $ C $ "
$ C6) n3 4 5 $ 34 5 $ C $ "
$ C6 $ "
$ 66- 1 3 4 5 $ `" P( C4 5 $ " $ "
$
@6 " $ "
$ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b g x1 b g x2 b g x3 b g key k g key ~ g compare
n g x1 n g x2 n g x3+ n g key n g head = g tail = g key = g filenamef srfi/srfi-67/compare.scm
& Y b n
g nameg chain>? C#RV hp
) 3 C) 3 6) 63 4 5 $ "
$ C $ C6) n3 4 5 $ "
$ 34 5 $ "
$ C $ C6 $ 66- 1 3 4 5 $ "
$ `" P( C4 5 $ "
$ " $
@6 " $ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b g x1 b g x2 b g x3 b g key k g key g compare
n g x1 n g x2 n g x3+ n g key n g head K g tail K g key
K g filenamef srfi/srfi-67/compare.scm
& Y b n
g nameg chain<=? C RV hp
) 3 C) 3 6) 63 4 5
$ " $ C $ C6) n3 4 5
$ " $ 34 5
$ " $ C $ C6 $ 66- 1 3 4 5
$ " $ `" P( C4 5
$ " $ " $
@6 " $ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b g x1 b g x2 b g x3 b g key k g key g compare
n g x1 n g x2 n g x3+ n g key n g head J g tail J g key J g filenamef srfi/srfi-67/compare.scm
& Y b n
g nameg chain>=? C"RVV h ]; $ $ $
L 6CC45 4 5 " ( )4L 455$ 45 "C$ "4L5 $ "
$ $
L@C $ "G6
"0 g x
g n g
unchecked? g i-pivot . g x-pivot 9 g i ? g x ? g x< ? g x> ? g key
g filenamef srfi/srfi-67/compare.scm
! ! - # ( .
1 9
? E F K ' T X [ ' l s w z } ( ' % - ; 5 D " % - > 8 + 4 2 g nameg unequal? C h( ) 3 C) 3 6) 63 4 5 $ " $ C
$ C6) 3 4 5 $ " $ d4 5 $ " $ 34 5 $ " $ C
$ C6
$ C6
$ 66- 1 3 O Q 456 } g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b g x1 b g x2 b g x3 b g key k g key g key g compare
% g x1+ % g unequal? % g filenamef srfi/srfi-67/compare.scm
& ' / b c k % ! % & Y b %
CBRV h )
3 6) 83 4 5 $ "
$ C $ C6) 3 4 5 $ "
$ 54 5 $ "
$ C $ C6 $ 54 5 $ "
$ C $ C66) d3 4 5 $ "
$ 4 5 $ "
$ 54 5 $ "
$ C $ C6 $ 54 5 $ "
$ C $ C66 $ 4 5 $ "
$ 54 5 $ "
$ C $ C6 $ 54 5 $ "
$ C $ C666- 1 3 " U( C4 5 $ "
$ " $ " 45 "4 5 $ "
$ " $ " 45 "b g compare
g x1 g compare
Q g x1 Q g x2 Q g key % Q g compare
Z g x1 Z g x2 Z g x3 Z g key c g key g key g compare
] g x1 ] g x2 ] g x3 ] g x4 ] g key ] g key & g key G s g key g key W g key g key % Q g compare
f g x1 f g x2 f g x3+ f g xmin j g xs j g key } g key !g filenamef srfi/srfi-67/compare.scm
% Z [
c
|
& ? G { | % W [ ] f j p t { % } } 4 4 Q Z ] f
g nameg min-compare C<RV h )
3 6) 83 4 5
$ " $ C $ C6) 3 4 5
$ " $ 54 5
$ " $ C $ C6 $ 54 5
$ " $ C $ C66) d3 4 5
$ " $ 4 5
$ " $ 54 5
$ " $ C $ C6 $ 54 5
$ " $ C $ C66 $ 4 5
$ " $ 54 5
$ " $ C $ C6 $ 54 5
$ " $ C $ C666- 1 3 " U( C4 5
$ " $ " $ " 45 "4 5
$ " $ " $ " 45 "b g compare
g x1 g compare
Q g x1 Q g x2 Q g key % Q g compare
Z g x1 Z g x2 Z g x3 Z g key c g key g key g compare
] g x1 ] g x2 ] g x3 ] g x4 ] g key ] g key % g key E q g key g key W g key g key % Q g compare
f g x1 f g x2 f g x3+ f g xmax j g xs j g key } g key !g filenamef srfi/srfi-67/compare.scm
! % ! Z [ # c # { $ $ # % % # ' ' ( % ( = ) E ) z ( { * * ( ' + + , , + - % - W + [ - ] ' f j / p 0 t 2 { 2 % } 2 } 2 2 4 2 3 2 / / / / 4 Q Z ] f
g nameg max-compare C;RV
h ) #3
$
66) 3
$ 54 5 $ "
$ C $ C6 $ 54 5 $ "
$ C $ C66) 3
$ 4 5 $ "
$ 54 5 $ "
$ C $ C6 $ 54 5 $ "
$ C $ C66 $ -4 5 $ g4 5 $ "
$ C $ 54 5 $ "
$ C $ C66
$ 54 5 $ "
$ C $ C6 $ g4 5 $ "
$ C $ 54 5 $ "
$ C $ C666 $ 4 5 $ "
$ 54 5 $ "
$ C $ C6 $ 54 5 $ "
$ C $ C666- 1 3 " 4> " -G " &45$ 45$ " "" "45 " 644 55 "
( e $ " $ $
6
6 "4
5 $ &
"Z
$ &
", $ &
"6
" " g compare
) g k ) g x0 ) g key
) g compare
2 g k 2 g x0 2 g x1 2 g key 7 g key J v g key g compare
K g k K g x0 K g x1 K g x2 K g key K g key l g key ) g key : f g key } g key g key g key , g key = g key i g key C g key g key = g compare
T g k T g x0 T g x1+ T g n g k g n g rev g x g pivot g x
g x< g n< g x=
g n= g x> g n> g key - /g filenamef srfi/srfi-67/compare.scm
:
<
< ! = % > ) > 2 : 7 @
7 @ B A J A ~ @ B B C C : E
E F F G G 1 F 2 H : H l F t E u I } I J J L ! L J I M M 4 I 5 N = N a P ! i P N I E Q Q R R Q S S C Q G T K T T : Y W ] W d W p V q V { V | V " V X X X Y ] ] $ ] ] ^
_ a ` b b c c ` d e * e 3 e ' e f ' f h h h . # h $ i ) i ! - i - i ; j > j - A j ' D j 9 ^ j f i i k p k 3 s k - v k ? k i l l 9 l 3 l E l i ^
^ # ^ 3 ^ C ^
Y Y \ Y } ) 2 K T
C8R h( ]4L 5$ C4L 5$ C
C g x
# g y # g filenamef srfi/srfi-67/compare.scm
s
s s s / s + # C h8 ) 3 O C]4 5$ C4 5$ C
C g lt
g lt
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
r t t $ t / 0 t + 4 g nameg compare-by< C&R h( ]4L 5$ C4L 5$ C
C g x
# g y # g filenamef srfi/srfi-67/compare.scm
x
x x x . x * # C h8 ) 3 O C]4 5$ C4 5$ C
C g gt
g gt
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
w y y # y . / y * 4 g nameg compare-by> C*R h( ]4L 5$ 4L 5$
C C C g x
# g y # g filenamef srfi/srfi-67/compare.scm
}
} } } , } ( # C h8 ) 3 O C]4 5$ 4 5$
C C C g le
g le
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
| ~ ~ ! ~ , - ~ ( 4 g nameg compare-by<= C'R h( ]4L 5$ 4L 5$
C C C g x
# g y # g filenamef srfi/srfi-67/compare.scm
, ( # C h8 ) 3 O C]4 5$ 4 5$
C C C g ge
g ge
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
! , - ( 4 g nameg compare-by>= C+R h( ]4L 5$
C4L 5$ C C g x
# g y # g filenamef srfi/srfi-67/compare.scm
" 1 - # C h8 )
3 O C]4 5$
C45$ C C g eq
g lt g eq
6 g lt 6 g x 6 g y 6 g filenamef srfi/srfi-67/compare.scm
" " % 1 1 - 6 g nameg
compare-by=/< C(R h( ]4L 5$
C4L 5$ C C g x
# g y # g filenamef srfi/srfi-67/compare.scm
" 1 - # C h8 )
3 O C]4 5$
C45$ C C g eq
g gt g eq
6 g gt 6 g x 6 g y 6 g filenamef srfi/srfi-67/compare.scm
" " % 1 1 - 6 g nameg
compare-by=/> C)R4YEZ] h - ]C % g dummy
C h = ]C 5 g dummy
g c1 C h ] ]C U g dummy
g c1 g c2 g cs C
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-67/compare.scm
P g
macro-typeg syntax-rulesg patternsg c1 g c1g c2g csg ... C5ER4YFZ] h( _ ] C W g dummy
& g x & g y & g clause & & C h K ]C C g dummy
g x g y C$- h Z ]CR g dummy
g x g y g c C1>@BDEFHIJ
h` ~ ] C v g dummy
] g x ] g y ] g t? ] g c ] g clause ] ] C hh X ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 P g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-67/compare.scm
g g
macro-typeg syntax-rulesg patternsg xg yg clauseg ... g xg y g xg yg elseg cg ... g xg yg t?g cg ... g clauseg ... C5FR4Y-Z]U h - ]C % g dummy
CZb h = ]C5 g dummy
g cs Ceprtuvxyz h@ q ] C i g dummy
< g tx < g ty < g cs < g clause < < C
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-67/compare.scm
P g
macro-typeg syntax-rulesg patternsg elseg csg ... g txg ty g csg ... g clauseg ... C5-R4Y{Z]a h( f ] C ^ g dummy
& g type? & g type-name & g x & & C_ h u ] C m g dummy
g type? g type-name g x g y C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-67/compare.scm
9 g
macro-typeg syntax-rulesg patternsg type?g type-nameg x g type?g type-nameg xg y C5{R4YZ] h ]
C g dummy
} g compare } g = } g < } g type? } g type-name } } C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
" g
macro-typeg syntax-rulesg patternsg compareg =g <g type?g type-name C5R hx ]4 5$ " 445 > " G 45$ " 445> " G $
$
C C$ C
C g x
u g y u g filenamef srfi/srfi-67/compare.scm
G I ` f p
u g nameg boolean-compare C Ri hh ]4 5$ G &
C45$ !4L 5$
C4 5$ C C45645 6 g x
e g y e g filenamef srfi/srfi-67/compare.scm
J
L 7 N
P
[
] 7 _
a
e C O $Rii hh ]4 5$ G &
C45$ !4L 5$
C4L 5$ C C45645 6 g x
e g y e g filenamef srfi/srfi-67/compare.scm
J
L @ N
P
[
] @ _
a
e C O %Rii hh ]4 5$ G &
C45$ !4L 5$
C4L 5$ C C45645 6 g x
e g y e g filenamef srfi/srfi-67/compare.scm
J
L ? N
P
[
] ? _
a
e C O LRii hh ]4 5$ G &
C45$ !4L 5$
C4L 5$ C C45645 6 g x
e g y e g filenamef srfi/srfi-67/compare.scm
J
L H N
P
[
] H _
a
e C O MRL hh ] $ " 445 > " G $ " 445> " G 4 5456 g x
d g y d g filenamef srfi/srfi-67/compare.scm
? A U \ % d
d g nameg symbol-compare CGR h` ]4 5$ ? &
C45$ $
C $ C C45645 6 g x
] g y ] g filenamef srfi/srfi-67/compare.scm
B
D 3 F
H
S
U 3 W
Y
] C7R h` ]4 5$ ? &
C45$ $
C $ C C45645 6 g x
] g y ] g filenamef srfi/srfi-67/compare.scm
B
D 5 F
H
S
U 5 W
Y
] CCR h` ]4 5$ ? &
C45$ $
C $ C C45645 6 g x
] g y ] g filenamef srfi/srfi-67/compare.scm
D - F
U - W
] CDRD h Y ]
4 5$ " 445 > " G 45$ " 445> " G " K44 5455 $ C
$ 4 54 56 $ C
64 5$ 4 5$ 6"" Q g x
g y g key q g filenamef srfi/srfi-67/compare.scm
G I _ b $ i 2 q q $ 2 g nameg complex-compare C,R, hh ]4 5$ " 445 > " G 45$ " 445> " G 6 g x
b g y b g filenamef srfi/srfi-67/compare.scm
G I b b g nameg number-compare C>R h ]L 6 ~ g x
g y g filenamef srfi/srfi-67/compare.scm
C h ~ ] O C v g compare
g filenamef srfi/srfi-67/compare.scm
g nameg pair-compare-car C@R h ]L 6 ~ g x
g y g filenamef srfi/srfi-67/compare.scm
C h ~ ] O C v g compare
g filenamef srfi/srfi-67/compare.scm
g nameg pair-compare-cdr CAR?/ h Z ) >3 4 5 $ C
$
6 $ C6) {3 ( (
C C( C$ G$ =4 5 $ C
$ 6 $ C6 C$ C 6] 6 R g pair-compare-car
D g pair-compare-cdr D g x D g y D g key D g compare
M g x M g y M g key g x
g y g filenamef srfi/srfi-67/compare.scm
' / / ' 2 / 4 < M S i m p t u z 3 } ; 3 ;
D M g nameg pair-compare C?R9/ h ) 3 4545 $ $
C C$ C4 45455 $ C
$ 45456 $ C6) 3 6) 3 6] 6 g compare
g x g y g empty? g head g tail g tx-val g ty-val g key G g x
g y g empty? g head g tail g compare
g x g y g x
g y g filenamef srfi/srfi-67/compare.scm
5 8 " ? + G G b " i + w g nameg list-compare C9R9:/ h ) 3
" P4545 $ $
" 9 " 3 $ " (4545 " " $ C
$ 6 $ C6) 3 6) 3 6] 6 g compare
g x g y g empty? g head g tail g x
] g y
] g tx-val ] g ty-val ] g key i g x
g y g empty? g head g tail g compare
g x g y g x
g y g filenamef srfi/srfi-67/compare.scm
# % % $ B & I & ( W & ] # i " ' " + - / g nameg list-compare-as-vector C:R7H/ h ) 3
4545 45 $ C
$ \" Q$
C4 45455 $ C
$ " $ C6
" $ C6) 3 6) 3 6] 6 g compare
g x g y g size g ref g n g m g key $ g i > g key ` g x
g y g size g ref g compare
g x g y g x
g y g filenamef srfi/srfi-67/compare.scm
3
5 5 5 7
$ 6 > 8
C 9 G 9 J ; M ; ) V ; 3 ` ; ` ; y < . < ; 8
6 ; 6 3 @ 3 B 3 D CHR7I/ h ) 3
4545 45 " W$ 64 45455 $ C
$ " $ C6
") 3 6) 3 6] 6 g compare
g x g y g size g ref g nx g ny g n $ g i * g key R g x
g y g size g ref g compare
g x g y g x
g y g filenamef srfi/srfi-67/compare.scm
H
J J J K $ K * L / M 3 M
; N < O ! ? O * H O 4 R O ! R O k P / q P ! y O L H T H V H X CIR/ $LG>H h ] ( (
C C( C $ E$ ;4 5 $ C
$
6 $ C6 C$ C 4 545 $ $ 6 C$ C4 5$ 45$ 6 C45$ C4 5$ 45$ 6 C45$ C $ $
6 C$ C4 5$ 4 5$ 6 C4 5$ C $ $
6 C$ C 6 g x
g y g key 4 d g t?-val r g tx g ty g filenamef srfi/srfi-67/compare.scm
]
^ * a
/ a 2 a & 4 a
4 ^ O b R b & T b
\ ^ c
^ d
^ e
^ f
^ A g
E ^ i h
o ^ y i i g nameg default-compare C/RvJy h( e ] $ LC $ L C $ MCC] g i
( g filenamef srfi/srfi-67/compare.scm
, ( C h ]J4L 5 & "
& " $ " 4L 5 4L5 & "
& " $ " 4L 5 4L 5 & "
& " $ " 4L 5 4L 5 & "
& " $ " 4L 5
$ " 4L > " G
$ " 4L> " G
$ " 4L > " G M $ M 4L 5 & "
& " $ " 4L 5 M 4L 5 & "
& " $ " 4L 5 M 4L5 & "
& " $ " 4L 5 M 4L5 & "
& " $ " 4L 5
$ " 4L M> " G
$ " 4LM> " G
$ ,4L4 L O
5> " G "
" N 4
5
$ " NC g x
g y g c-xy I g c-xy R g c-xy g c-xy g c-xx g c-yy g c-xy g c-yx g y g c-xy g x 3 g c-xy 0 g y 5 g c-xy @ ~ g x g c-xy g c-xz } g c-zx } g c-yz } g c-zy } g ijk
9 q g filenamef srfi/srfi-67/compare.scm
u u v
v ! v
" v * v + . v 5 x
9 x D x 6 F x
J u R u \ v
] v h v
i v q v + u v | x
x x 6 x
u u v
v v
v v + v x
x x 6 x
u u v
v v
v v + v
x
x x 6 x
) . 3 7 @ K P U Y b o p u z ~ u u v
v v
v v + v x
x x 6 x
u u v
v v
v v + v x
x + x 6 - x
5 8 u @ u J v
K v V v
W v _ v + c v j x
n x y x 6 { x
u u v
v v
v v + v x
x x 6 x
' ~ . / / ' 4 : 5 ' 9 9 > B C I L b { { C h ]HH O C g c
g z? g z g filenamef srfi/srfi-67/compare.scm
r
g nameg
debug-compare C.RC g m
0 g char=?
g char-ci=?
A g char-ci<? A g string=?
N g string<? N g string-ci=?
g string-ci<? g filenamef srfi/srfi-67.scm
1 U
6 U > U & C U
g filenamef srfi/srfi-67/compare.scm T
!T
$
+y
0"
4
9s
>!
B
Gr
L
Q
UF
X
\x
`
g
o
w
8
q
a v
B {
"
#
#
N
@
o
V
5
|
< 1
F
4 ]
/ r
9 1
C6 PK ! ϻ srfi/srfi-14.gonu [ GOOF----LE-8-2.0 ] Z 4 h ] g guile g define-module* g srfi g srfi-14 g filenameS
f srfi/srfi-14.scm g set-current-module
g call-with-deferred-observers g module-re-export! g current-module g char-set? g char-set= g
char-set<= g
char-set-hash g char-set-cursor g char-set-ref g char-set-cursor-next g end-of-char-set? g
char-set-fold g char-set-unfold !g char-set-unfold! "g char-set-for-each #g char-set-map $g
char-set-copy %g char-set &g list->char-set 'g list->char-set! (g string->char-set )g string->char-set! *g char-set-filter +g char-set-filter! ,g ucs-range->char-set -g ucs-range->char-set! .g
->char-set /g
char-set-size 0g char-set-count 1g char-set->list 2g char-set->string 3g char-set-contains? 4g char-set-every 5g char-set-any 6g char-set-adjoin 7g char-set-adjoin! 8g char-set-delete 9g char-set-delete! :g char-set-complement ;g char-set-union <g char-set-intersection =g char-set-difference >g char-set-xor ?g char-set-diff+intersection @g char-set-complement! Ag char-set-union! Bg char-set-intersection! Cg char-set-difference! Dg
char-set-xor! Eg char-set-diff+intersection! Fg char-set:lower-case Gg char-set:upper-case Hg char-set:title-case Ig char-set:letter Jg char-set:digit Kg char-set:letter+digit Lg char-set:graphic Mg char-set:printing Ng char-set:whitespace Og char-set:iso-control Pg char-set:punctuation Qg char-set:symbol Rg char-set:hex-digit Sg char-set:blank Tg char-set:ascii Ug char-set:empty Vg
char-set:full W !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV @ Xg cond-expand-provide Y C 5 h u ]4
5 4
> " G 4W h B ] 45 6 : g filenamef srfi/srfi-14.scm
C> " G Xi4i5 Y6 m g m
$ g filenamef srfi/srfi-14.scm
%
` ` & `
C6 PK ! 3Ik k srfi/srfi-8.gonu [ GOOF----LE-8-2.0S ] 4 hf ] g guile g define-module* g srfi g srfi-8 g filenameS
f srfi/srfi-8.scm g importsS g ice-9
g receive
g
re-exportsS
g set-current-module g cond-expand-provide g current-module C 5 h@ i ]4
5 4 > " G i4i5 6 a g m
, g filenamef srfi/srfi-8.scm
1 9 & ;
;
C6 PK ! 'vs s srfi/srfi-9.gonu [ GOOF----LE-8-2.0s ] 4 hG3 ] g guile g define-module* g srfi g srfi-9 g filenameS
f srfi/srfi-9.scm g importsS g srfi-1
g system g base g ck g exportsS g define-record-type g set-current-module g cond-expand-provide g current-module g make-syntax-transformer !g define-inlinable "g macro #g $sc-dispatch $# %# &g any 'g each-any (&' )(' *&) +g
syntax-object ,g define-tagged-inlinable -g top .- /g ribcage 0g dummy 1g name 2g formals 3g body 40123 5g m-1e8ba8b5a-25b 65- 76... 8f l-1e8ba8b5a-260 9f l-1e8ba8b5a-261 :f l-1e8ba8b5a-262 ;f l-1e8ba8b5a-263 <89:; =/47< >/ ?g x @? A6 Bf l-1e8ba8b5a-25d CB D/@AC E.=>D Fg hygiene GF H+,EG Ig syntax-violation JI KI Lf -source expression failed to match any pattern Mg
%%on-error N&& Og %%type Pg getter-type Qg free-id Rg quote Sg m-1e8ba8b5a-274 TS- UT Vf l-1e8ba8b5a-276 WV X/@UW Y.>X Z+RYG [QZ \[& ]&&\\ ^g s _g getter `g err a0^_` bT... cf l-1e8ba8b5a-279 df l-1e8ba8b5a-27a ef l-1e8ba8b5a-27b ff l-1e8ba8b5a-27c gcdef h/abg i.h>X j+MiG k+OiG lg %%index mg getter-index ng m-1e8ba8b5a-281 on- po qf l-1e8ba8b5a-283 rq s/@pr t.>s u+RtG vQu wv& x&&ww yo... zf l-1e8ba8b5a-286 {f l-1e8ba8b5a-287 |f l-1e8ba8b5a-288 }f l-1e8ba8b5a-289 ~z{|} /ay~ .>s +MG +lG g %%copier g
getter-copier g m-1e8ba8b5a-28e - f l-1e8ba8b5a-290 /@ .> +RG Q & && ... f l-1e8ba8b5a-293 f l-1e8ba8b5a-294 f l-1e8ba8b5a-295 f l-1e8ba8b5a-296 /a .> +MG +G g _ g each N ) g identifier? g
datum->syntax g
symbol-append g % g
syntax->datum g
-procedure g generate-temporaries &' g begin g proc-name g args .. f l-1e8ba8b5a-2ba f l-1e8ba8b5a-2bb / g key g value 123 ..... f l-1e8ba8b5a-2ad f l-1e8ba8b5a-2ae f l-1e8ba8b5a-2af f l-1e8ba8b5a-2b0 f l-1e8ba8b5a-2b1 / g make-procedure-name . f l-1e8ba8b5a-29d / . f l-1e8ba8b5a-29c /@ .>>>> +G g define +G g
define-syntax +G g lambda +G +?G g syntax-case +G +MG g append g map +G +`G +^G g syntax +G +G +RG g a +G g ... +G +IG f Wrong number of arguments +G +G g display f #< g record-type-name g record-type-descriptor f f : g write g record-type-fields f > g default-record-printer g throw g wrong-type-arg f Wrong type argument: ~S g throw-bad-struct g %% g -set-fields g make-copier-id g %%set-fields & & ' & g every g list g for-each g find g free-identifier=? f unknown getter g
struct-ref
g t-1e8ba8b5a-32b
g m-1e8ba8b5a-32c
-
f l-1e8ba8b5a-32f / g index _ f l-1e8ba8b5a-329 f l-1e8ba8b5a-32a / g lookup f l-1e8ba8b5a-2fe / g copier-name g getter+exprs f l-1e8ba8b5a-2f8 !f l-1e8ba8b5a-2f9 " ! #/ " $g type-name %g getter-id &g check? 'g expr ($%&^_' )...... *f l-1e8ba8b5a-2ec +f l-1e8ba8b5a-2ed ,f l-1e8ba8b5a-2ee -f l-1e8ba8b5a-2ef .f l-1e8ba8b5a-2f0 /f l-1e8ba8b5a-2f1 0*+,-./ 1/()0 2f l-1e8ba8b5a-2dc 32 4/@3 5.>> #1>4
6+ 5G 7g filter 8g length 9f duplicate getter :g iota ;g make-struct <g t-1e8ba8b5a-31f =< >g m-1e8ba8b5a-320 ?>- @? Af l-1e8ba8b5a-324 BA C/=@B D.>C #1>4 E+;DG F+
DG Gg here Hg unsafe-expr IH Jf l-1e8ba8b5a-317 KJ L/IK M.>L #1>4 N+GMG Og if Pg t-1e8ba8b5a-319 QP Rg m-1e8ba8b5a-31a SR- TS Uf l-1e8ba8b5a-31d VU W/QTV X.>W>L #1>4
Y+OXG Zg eq? [+ZXG \g
struct-vtable ]+\XG ^+XG _+RXG `g %define-record-type a&( b&a c&b d&c ed f&& g&f hg if invalid record definition syntax jg boolean? kf expected type name lf invalid constructor spec mf expected predicate name n&&& of invalid field spec pg string-concatenate qg make-list rf pr sf pw tg memq uf !unknown field in constructor spec vg assq-ref w&&' xg t-1e8ba8b5a-38d yg t-1e8ba8b5a-38c zg t-1e8ba8b5a-38b {xyz |g m-1e8ba8b5a-38e }|- ~}}} f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 /{~ g ctor-args f l-1e8ba8b5a-37a / g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 / g form g constructor-spec g field-names $ .... f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e / g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers ........ f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 / f l-1e8ba8b5a-334 /@ .>>>>> +!G +;G +
G g copier-id f l-1e8ba8b5a-476 / g ctor-name f l-1e8ba8b5a-46e / f l-1e8ba8b5a-46c / g layout f l-1e8ba8b5a-46a / g
immutable? f l-1e8ba8b5a-468 / g field-count f l-1e8ba8b5a-466 / g
getter-ids f l-1e8ba8b5a-463 / g field-ids f l-1e8ba8b5a-460 / g predicate-name g
field-spec $ f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 /) .>>>>>>>>>>> +GG g make-struct-layout &&&&&&& g t-1e8ba8b5a-3a5 g t-1e8ba8b5a-3a6 g t-1e8ba8b5a-3a7 g t-1e8ba8b5a-3a8 g t-1e8ba8b5a-3a9 g t-1e8ba8b5a-3aa g t-1e8ba8b5a-3ab g m-1e8ba8b5a-3ac - f l-1e8ba8b5a-3b0 f l-1e8ba8b5a-3b1 f l-1e8ba8b5a-3b2 f l-1e8ba8b5a-3b3 f l-1e8ba8b5a-3b4 f l-1e8ba8b5a-3b5 f l-1e8ba8b5a-3b6 / f l-1e8ba8b5a-3a3 f l-1e8ba8b5a-3a4 / $ ... f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0
/ .>>>>>
+, G
+O G +l G + G +^ G +O G +Z G +\ G + G + G +R G g define-syntax-rule g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 - !f l-1e8ba8b5a-3cb "f l-1e8ba8b5a-3cc #f l-1e8ba8b5a-3cd $!"# %/ $ &f l-1e8ba8b5a-3c1 'f l-1e8ba8b5a-3c2 (f l-1e8ba8b5a-3c3 )&'( */) +.>%>>>* ,++G -+&+G .+^+G /+_+G 0+'+G 1/0 2++G 3-.12 4++G 5g
filter-map 6g t-1e8ba8b5a-405 76 8g m-1e8ba8b5a-406 98- :9 ;f l-1e8ba8b5a-409 <; =/7:< >g setter ?1_> @f l-1e8ba8b5a-3ff Af l-1e8ba8b5a-400 Bf l-1e8ba8b5a-401 C@AB D/?C E Ff l-1e8ba8b5a-3f6 Gf l-1e8ba8b5a-3f7 HFG I/EH Jg field-specs KJ Lf l-1e8ba8b5a-3f2 Mf l-1e8ba8b5a-3f3 NLM O/KN P.>=D>I>O
Q+!PG R+^PG Sg val T+SPG URT V+PG WT Xg t-1e8ba8b5a-3e6 Yg t-1e8ba8b5a-3e7 ZXY [g m-1e8ba8b5a-3e8 \[- ]\\ ^f l-1e8ba8b5a-3ec _f l-1e8ba8b5a-3ed `^_ a/Z]` bf l-1e8ba8b5a-3e0 cf l-1e8ba8b5a-3e1 df l-1e8ba8b5a-3e2 ebcd f/?e gf l-1e8ba8b5a-3d7 hf l-1e8ba8b5a-3d8 igh j/Ei k$J lf l-1e8ba8b5a-3d3 mf l-1e8ba8b5a-3d4 nlm o/kn p.>af>j>o
q+!pG r+^pG s+SpG trs u+OpG v+ZpG w+\pG xwr yg struct-set! z+ypG {s |+pG }+RpG ~&&&&'&' g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f - f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 / .>>>>>>>>>>>> +G +G g let +G g rtd +G g make-struct/no-tail +G g record-type-vtable +G +RG +G g set-struct-vtable-name! +G +yG g + +G + G g vtable-offset-user +G +!G g obj +G g and +G g struct? +G +ZG +\G g pred g fields 01 g m-1e8ba8b5a-4a3 - .... f l-1e8ba8b5a-4a8 f l-1e8ba8b5a-4a9 f l-1e8ba8b5a-4aa f l-1e8ba8b5a-4ab f l-1e8ba8b5a-4ac / f l-1e8ba8b5a-4a5 /@ .> +`G +G +G C 5 h< ]4
5 4 > " G 4i4 i5 > " G 4 !"%*H h f ]C^ g dummy
g name g formals g body CKL h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9.scm
J
" g
macro-typeg syntax-rulesg patternsg nameg formalsg ... g bodyg ... C5!R4 M"%N h > ]C 6 g dummy
g err CKL h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9.scm
R
" g
macro-typeg syntax-rulesg patternsg err C5MROR4 P"%]jk h a ] C Y g dummy
g s g getter g err CKL h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9.scm
V " g
macro-typeg syntax-rulesg patternsg sg quoteg getter g quoteg err C5PRlR4 m"%x h a ] C Y g dummy
g s g getter g err CKL h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9.scm
\ " g
macro-typeg syntax-rulesg patternsg sg quoteg getter g quoteg err C5mRR4 "% h a ] C Y g dummy
g s g getter g err CKL h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9.scm
b " g
macro-typeg syntax-rulesg patternsg sg quoteg getter g quoteg err C5R4 ,"%KL h ]6 g key
g value g name g formals g body g filenamef srfi/srfi-9.scm o C% h( X ] C P g tmp-1e8ba8b5a-2c8
$ g tmp-1e8ba8b5a-2c7 $ $ C hx C ] LLL L4 4
LL5
LL L
5 C; g proc-name
x g args x x CKL hX ]44455545 45 $ O @
6 g key
R g value R g name R g formals R g body R g tmp # R g tmp . R g filenamef srfi/srfi-9.scm i j j $
j ' k $ j i q ! # p
R C h@ b ] 4 5 " 6$ 4?$ @"" Z g x
9 g tmp 9 g filenamef srfi/srfi-9.scm
g 9 C5,R
h ]4> " G 444 55> " G " l( " w4> " G 4> " G 4> " G 4 > " G "44 55
" 6 g s
g p g fields 8 g off 8 g filenamef srfi/srfi-9.scm
% , 8 > C G N W \ c l p w
) " g nameg default-record-printer CR h ] 6 g s
g who g filenamef srfi/srfi-9.scm
# g nameg throw-bad-struct CR h ] 44 556 g type-name
g filenamef srfi/srfi-9.scm
$ g nameg make-copier-id CR4 "%KL h ]6 g type-name
g getter-id
g check?
g s
g getter
g expr
g filenamef srfi/srfi-9.scm
C h d ]L 6 \ g getter-id
g filenamef srfi/srfi-9.scm
!
CI h( ] 4 O L 5 $ CLL 6 ~ g id
' g t ' g filenamef srfi/srfi-9.scm
! & ' ' C67 h g ]L 6 _ g g+e
g filenamef srfi/srfi-9.scm
2 C8I9 hP ]L 4 O L5 45
$ C $ CLL 6 g getter
K g index K g default-expr K g results K g key $ K g filenamef srfi/srfi-9.scm
# % $
< E " K
K C:8%'EF h 7 ]L C / g t-1e8ba8b5a-31f
CKLNY[]^_ h ]&44 5545 4L O > " G 4L O 4 4
555 4 5 $ 4
O ?"
45 45$ /45 CC g type-name
g getter-id g check? g s g getter g expr g copier-name g getter+exprs g tmp Z g tmp e g tmp g tmp g filenamef srfi/srfi-9.scm ) ; M # P ) X # Z Z C h@ c ] 4 5 " 6$ 4?$ O @"" [ g x
> g tmp > g filenamef srfi/srfi-9.scm
> C5R4 `"%ehI%f h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm O CKLi h8 ] 45 $ 4?"
45 6 g
immutable?
3 g form 3 g rest 3 g tmp
- g filenamef srfi/srfi-9.scm / P 3 M 3 CKLjI%f h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / CKLk( h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / Cl h i ] 6 a g ctor
g args
g filenamef srfi/srfi-9.scm
C h > ]C 6 g ctor
g args C h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / Cm%N h A ]C 9 g field
g getter Cn h U ]C M g field
g getter g setter CIf h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / CKLo hh ]4 5 $ @4 5 $ @4L 5 $ 4?"
4
L 5 L 6 g spec
c g tmp c g tmp " c g tmp ; [ g filenamef srfi/srfi-9.scm
& ] * * c c C h@ ]44 55$ '45 $ " 4445 $ 4?"
4 5
5 $ 4 5 " 8445 $ 4 ?"
4 5
5" ($ 4?$ 4?" "" " $ ^45 $ " 4445 $ 4?"
4 5 5 $
O 6CCCC g
immutable?
; g form ; g type-name ; g constructor-spec ; g predicate-name ; g
field-spec ; g t ] g tmp 2 R g tmp j g tmp | g t " g tmp g filenamef srfi/srfi-9.scm ' T Z a q " ! $ $ % & 3 & ; C%N h @ ] C 8 g name
g getter Cn h T ] C L g name
g getter g setter CKL h@ } ]4 5 $ @4 5 $ @ 6 u g
field-spec
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-9.scm
9 C%N h @ ]C 8 g name
g getter Cn h T ]C L g name
g getter g setter CKL h@ } ]4 5 $ @4 5 $ @ 6 u g
field-spec
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-9.scm
9 C8pqrs%( h > ] C 6 g ctor
g args CKL h j ]6 b g ctor
g field
g filenamef srfi/srfi-9.scm
CtI%f h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm + CKLu
hh ]4 5 4L 5 $ " ?44L5 $ 4?"
4L5 L > " G C g field
h g name h g t b g tmp , L g filenamef srfi/srfi-9.scm
- ! ' # ! ' N ( W ' g #
h Cv h _ ]L 6 W g name
g filenamef srfi/srfi-9.scm
$
&
C%w h q ] C i g t-1e8ba8b5a-38d
g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b CKL hP ]4LL O 5 LL4O L5 45 $ @6 g ctor
K g field K g ctor-args K g tmp ) K g tmp 4 K g filenamef srfi/srfi-9.scm ) K C%
hP ]
C g t-1e8ba8b5a-3a5
J g t-1e8ba8b5a-3a6 J g t-1e8ba8b5a-3a7 J g t-1e8ba8b5a-3a8 J g t-1e8ba8b5a-3a9 J g t-1e8ba8b5a-3aa J g t-1e8ba8b5a-3ab J J CKL h8 ]L L L 45 $ @6 g getter
5 g index 5 g tmp 5 g tmp 5 g filenamef srfi/srfi-9.scm
5 C:n,34 h q ] Ci g t-1e8ba8b5a-3c4
g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 C5%N h @ ]C 8 g name
g getter CnQUVRW h T ]L C L g name
g getter g setter CKL h@ ]4 5 $ @4 5 $ L O @ 6 g
field-spec
> g index > g tmp > g tmp " > g filenamef srfi/srfi-9.scm
> C%Nh @ ]C 8 g name
g getter Cn%Nqtuvxzr{|} h8 T ]L
L C L g t-1e8ba8b5a-3e6
4 g t-1e8ba8b5a-3e7 4 4 CKL h0 ]L L 45 $ O @6 g name
0 g getter 0 g setter 0 g tmp 0 g tmp 0 g filenamef srfi/srfi-9.scm 0 CKL h@ ]4 5 $ @4 5 $
L O @ 6 g
field-spec
@ g index @ g tmp @ g tmp " @ g filenamef srfi/srfi-9.scm
@ C~ h ] L L L
LL 45C g t-1e8ba8b5a-47e
g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b C h ]V45 45 45 4 5 44 $ " 55
45 4
5 $ 4 ?"
4
5 45
4
5 " 4
5" 3$ )4?$ 4 O ?" "" " 44
55 4
O 44555
4
5 $ 4?"
4
5 $ 4
O 44555" 4O 44555 4
5 $
O @
6 g
immutable?
g form g type-name g constructor-spec g predicate-name g
field-spec g field-ids g
getter-ids g field-count g
immutable? ( g layout
D g field-names O g tmp Z z g ctor-name z g copier-id
g tmp g tmp = g tmp : g tmp ~ g tmp g filenamef srfi/srfi-9.scm , , . , " / ( , + . 8 : ! @ & B D D , G 1 O , } 4 , ; ; 4 ; C I D P
S
[
] b n q y { ~ 5
* C hP t ]4 5 " 4 5 $ @ 6$ 4?$ @""l g x
P g tmp P g tmp 1 g filenamef srfi/srfi-9.scm
P C5`R4 "%c h( w ]C o g dummy
# g name # g ctor # g pred # g fields # # CKL h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9.scm
S
" g
macro-typeg syntax-rulesg patternsg nameg ctorg predg fieldsg ... C5RC g m
, g filenamef srfi/srfi-9.scm =
- B
2 B : B & ? B
T
Z
Z `
N
0
<
C6 PK ! cgS2 srfi/srfi-17.gonu [ GOOF----LE-8-2.0 ] 4 h3 ] g guile g define-module* g srfi g srfi-17 g filenameS
f srfi/srfi-17.scm g exportsS g getter-with-setter
g replacementsS g setter g car g cdr g caar g cadr g cdar g cddr g caaar g caadr g cadar g caddr g cdaar g cdadr g cddar g cdddr g caaaar g caaadr g caadar !g caaddr "g cadaar #g cadadr $g caddar %g cadddr &g cdaaar 'g cdaadr (g cdadar )g cdaddr *g cddaar +g cddadr ,g cdddar -g cddddr .g
string-ref /g
vector-ref 0 !"#$%&'()*+,-./ ! 1g set-current-module 21 31 4g cond-expand-provide 5g current-module 6 7g make-procedure-with-setter 8 9 :g error ;f 3Setting setters is not supported for a good reason. <g compose-setter = > ?g set-car! @ A Bg set-cdr! C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a! b! c" d" e# f# g$ h$ i% j% k& l& m' n' o( p( q) r) s* t* u+ v+ w, x, y- z- {. |. }g string-set! ~/ / g vector-set!C 5h( ]4
05 43 > " G 44i45i5 6> " G 7i R4 i9:; h h - 1 3 6 ` g args
g filenamef srfi/srfi-17.scm
>
? ?
C5Rh x ]L4L 56 p g obj
g value g filenamef srfi/srfi-17.scm
D E E C h ] O C g setter
g location g filenamef srfi/srfi-17.scm
C
g nameg compose-setter C<R4 i>?i5R4 iABi5R4 iD4<i?i>55R4 iF4<i?iA55R4 iH4<iBi>55R4 iJ4<iBiA55R4 iL4<i?iD55R4 iN4<i?iF55R4 iP4<i?iH55R4 iR4<i?iJ55R4 iT4<iBiD55R4 iV4<iBiF55R4 iX4<iBiH55 R4 iZ4<iBiJ55 R4 i\4<i?iL55 R4 i^4<i?iN55 R4 i`4<i?iP55 R4 ib4<i?iR55!R4 id4<i?iT55"R4 if4<i?iV55#R4 ih4<i?iX55$R4 ij4<i?iZ55%R4 il4<iBiL55&R4 in4<iBiN55'R4 ip4<iBiP55(R4 ir4<iBiR55)R4 it4<iBiT55*R4 iv4<iBiV55+R4 ix4<iBiX55,R4 iz4<iBiZ55-R4 i|}i5.R4 ii5/RC g m
, g filenamef srfi/srfi-17.scm ,
- 5
2 5 : 5 & ? 5
N 9
O < ;
# C
$ H 3 G
4 K C J
D O K P Y O \ N
] R d S r R u Q
v U } V U T
X Y X W
\ ] \ [
_ ` _ ^
b c b a
e f e d
h i ! h $ g
% k , l : k = j
> n E o S n V m
W q ^ r l q o p
p u w v u t
x y x w
{ | { z
~ ~ }
& 4 7
8 ? M P
Q X f i
j q
!
C6 PK ! bW srfi/srfi-19.gonu [ GOOF----LE-8-2.0 ] 4 hƭ ] g guile g define-module* g srfi g srfi-19 g filenameS
f srfi/srfi-19.scm g importsS g srfi-6
g srfi-8 g srfi-9 g ice-9 g i18n g exportsS g
time-duration g time-monotonic g time-process g time-tai g time-thread g time-utc !g current-date "g current-julian-day #g current-modified-julian-day $g time-resolution %g make-time &g time? 'g time-type (g time-nanosecond )g time-second *g set-time-type! +g set-time-nanosecond! ,g set-time-second! -g copy-time .g time<=? /g time<? 0g time=? 1g time>=? 2g time>? 3g time-difference 4g time-difference! 5g add-duration 6g
add-duration! 7g subtract-duration 8g subtract-duration! 9g make-date :g date? ;g date-nanosecond <g date-second =g date-minute >g date-hour ?g date-day @g
date-month Ag date-year Bg date-zone-offset Cg
date-year-day Dg
date-week-day Eg date-week-number Fg date->julian-day Gg date->modified-julian-day Hg date->time-monotonic Ig date->time-tai Jg date->time-utc Kg julian-day->date Lg julian-day->time-monotonic Mg julian-day->time-tai Ng julian-day->time-utc Og modified-julian-day->date Pg #modified-julian-day->time-monotonic Qg modified-julian-day->time-tai Rg modified-julian-day->time-utc Sg time-monotonic->date Tg time-monotonic->julian-day Ug #time-monotonic->modified-julian-day Vg time-monotonic->time-tai Wg time-monotonic->time-tai! Xg time-monotonic->time-utc Yg time-monotonic->time-utc! Zg time-tai->date [g time-tai->julian-day \g time-tai->modified-julian-day ]g time-tai->time-monotonic ^g time-tai->time-monotonic! _g time-tai->time-utc `g time-tai->time-utc! ag time-utc->date bg time-utc->julian-day cg time-utc->modified-julian-day dg time-utc->time-monotonic eg time-utc->time-monotonic! fg time-utc->time-tai gg time-utc->time-tai! hg date->string ig string->date j !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi O kg replacementsS lg current-time ml ng autoloadsS og rdelim po qg read-line rq spr tg set-current-module ut vt wg cond-expand-provide xg current-module y zf ~a ~b ~d ~H:~M:~S~z ~Y {g locale-date-time-format |f ~m/~d/~y }g locale-short-date-format ~f ~H:~M:~S g locale-time-format f ~Y-~m-~dT~H:~M:~S~z g iso-8601-date-time-format g nano g sid g sihd e 4881175/2 g tai-epoch-in-jd g throw g
misc-error f TIME-ERROR type ~A: ~S f TIME-ERROR type ~A g
time-error g open-input-file g eof-object? g read g open-input-string g
string-append f ( f ) g inexact->exact g read-tai-utc-data U- $ O # I\ " C ! 6 3H 0$ .\ ,2) *P ' % ! % b1 ʀ Φ r ?
+ H gS
X g
g leap-second-table g read-leap-second-table g leap-second-delta g time g !%make-time-unnormalized-procedure g make-syntax-transformer g make-time-unnormalized g macro g $sc-dispatch g _ g any g
syntax-object g lambda g m-46961e50d3-30 g top g ribcage g t-46961e50d3-2d g t-46961e50d3-2e g t-46961e50d3-2f f l-46961e50d3-35 f l-46961e50d3-36 f l-46961e50d3-37 g x f l-46961e50d3-32 g shift g proc-name g args f l-1e8ba8b5a-60 f l-1e8ba8b5a-61 g key g value g name g formals g body f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 g make-procedure-name f l-1e8ba8b5a-43 f l-1e8ba8b5a-42
g hygiene g type g
nanosecond g second g make-struct g m-46961e50d3-2b
g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131
g m-1e8ba8b5a-134 f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a
g ctor-args f l-1e8ba8b5a-120 g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d ! "g form #g type-name $g constructor-spec %g field-names &"#$% ' (f l-1e8ba8b5a-111 )f l-1e8ba8b5a-112 *f l-1e8ba8b5a-113 +f l-1e8ba8b5a-114 ,()*+ -&', .g
record-layout /g functional-setters 0g setters 1g copier 2g getters 3g constructor 4g getter-identifiers 5g field-identifiers 6./012345 7 8f l-1e8ba8b5a-e9 9f 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 @89:;<=>? A67@ Bf l-1e8ba8b5a-da CB DC E !-AD FE G H
E IFGH JI Kg each-any LK Mg syntax-violation NM OM Pf Wrong number of arguments Qg identifier? RQ SQ T UT VM WM Xf -source expression failed to match any pattern Yg record-type-vtable ZY [Y \g pwpwpw ]g default-record-printer ^] _] ` ag set-struct-vtable-name! ba ca dg vtable-offset-user ed fd gg %time?-procedure h ig m-46961e50d3-41 ji kg t-46961e50d3-40 lk mj nf l-46961e50d3-46 on plmo qf l-46961e50d3-43 rq smr tjps
ut vg obj wg t-1e8ba8b5a-224 xg t-1e8ba8b5a-21e yg t-1e8ba8b5a-21f zg t-1e8ba8b5a-220 {g t-1e8ba8b5a-223 |g t-1e8ba8b5a-222 }g t-1e8ba8b5a-221 ~wxyz{|} g m-1e8ba8b5a-225 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 ~ g copier-id f l-1e8ba8b5a-21c g ctor-name f l-1e8ba8b5a-214 % f l-1e8ba8b5a-212 g layout f l-1e8ba8b5a-210 g
immutable? f l-1e8ba8b5a-20e g field-count f l-1e8ba8b5a-20c g
getter-ids f l-1e8ba8b5a-209 g field-ids f l-1e8ba8b5a-206 g predicate-name g
field-spec "#$ f l-1e8ba8b5a-1f9 f l-1e8ba8b5a-1fa f l-1e8ba8b5a-1fb f l-1e8ba8b5a-1fc f l-1e8ba8b5a-1fd f l-1e8ba8b5a-1fe psAD v g and g struct? g eq? g
struct-vtable ps u s g g throw-bad-struct g %time-type-procedure g free-id g
%%on-error g m-46961e50d3-4d f l-46961e50d3-4f g %%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 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 f l-1e8ba8b5a-156 f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a # f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 AD g ck
g err g s
f l-46961e50d3-52 f l-46961e50d3-53
g quote g %%index f l-46961e50d3-57 f l-46961e50d3-58 !
"!
# " $" %! &
% '$& (' )g %%copier *) +* ,+ -f l-46961e50d3-5c .f l-46961e50d3-5d /-. 0
/ 10
2 1 31 4g %%time-set-fields 50 645 736 87 9g t-46961e50d3-4c :9 ;f l-46961e50d3-61 <; =:< >=
?> @ =AD A @ BA Cg if DC@ E@ F@ GFA H= IH JEGI Kg
struct-ref LK@ M= N
M OLAN P@ Q@ R'H SQR TPAS UDJOT V?BU W XW Yg %time-nanosecond-procedure Zg m-46961e50d3-68 [Z \[ ]f l-46961e50d3-6a ^] _\^ `[_ a` ba cb d _AD ed fe gcf h[[ if l-46961e50d3-6d jf l-46961e50d3-6e kij l hk m[l_
n m om pl_ qp roq sr td ut vcu wf l-46961e50d3-72 xf l-46961e50d3-73 ywx z hy {[z_
| { }{ ~z_ ~ } )d c f l-46961e50d3-77 f l-46961e50d3-78 h [_
_ 4 g t-46961e50d3-67 f l-46961e50d3-7c \ [_
_AD C _ K _ ( _ Y g %time-second-procedure g m-46961e50d3-83 f l-46961e50d3-85 AD f l-46961e50d3-88 f l-46961e50d3-89
f l-46961e50d3-8d f l-46961e50d3-8e
) f l-46961e50d3-92 f l-46961e50d3-93
4 g t-46961e50d3-82 f l-46961e50d3-97
AD C K ) g each g %%set-fields
g dummy g check? g expr
g m-46961e50d3-9e f l-46961e50d3-a3 f l-46961e50d3-a4 f l-46961e50d3-a5 f l-46961e50d3-a6 f l-46961e50d3-a7
f l-46961e50d3-a0 g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d ! "!!! #f l-1e8ba8b5a-171 $f l-1e8ba8b5a-172 %f l-1e8ba8b5a-173 &#$% ' "& (f l-1e8ba8b5a-167 )f l-1e8ba8b5a-168 *f l-1e8ba8b5a-169 +()* ,+ - ',AD
. - / 0/ 1'/ 2(/ 3)/ 4123 5g map 65 75 8g list 9g %set-time-type!-procedure : ;g m-46961e50d3-b2 <; =g t-46961e50d3-b0 >g t-46961e50d3-b1 ?=> @<< Af l-46961e50d3-b7 Bf l-46961e50d3-b8 CAB D?@C E< Ff l-46961e50d3-b4 GF HEG I<DH
JI Kg t-1e8ba8b5a-18c Lg t-1e8ba8b5a-18d MKL Ng m-1e8ba8b5a-18e ON POO Qf l-1e8ba8b5a-192 Rf l-1e8ba8b5a-193 SQR TMPS Ug setter VU Wf l-1e8ba8b5a-186 Xf l-1e8ba8b5a-187 Yf l-1e8ba8b5a-188 ZWXY [VZ \ ]f l-1e8ba8b5a-17d ^f l-1e8ba8b5a-17e _]^ `\_ ag field-specs b#a cf l-1e8ba8b5a-179 df l-1e8ba8b5a-17a ecd fbe g DHT[`fAD h g ig val jig khj lCg mg ng onh pDH qp rmoq sg struct-set! tsg uDH v
u wthvj xg yg z*p {yz |xh{ }lrw| ~Jk} H 9 g %set-time-nanosecond!-procedure g m-46961e50d3-c2 g t-46961e50d3-c0 g t-46961e50d3-c1 f l-46961e50d3-c7 f l-46961e50d3-c8 f l-46961e50d3-c4
T[`fAD i C s + g %set-time-second!-procedure g m-46961e50d3-d2 g t-46961e50d3-d0 g t-46961e50d3-d1 f l-46961e50d3-d7 f l-46961e50d3-d8 f l-46961e50d3-d4
T[`fAD i C s , g integer? g truncate g
split-real g abs g time-normalize! g mktime g
set-tm:sec g
set-tm:min g set-tm:hour g set-tm:mday g
set-tm:mon g set-tm:year g set-tm:isdst g
set-tm:gmtoff g date->broken-down-time g gettimeofday g current-time-utc g current-time-tai g current-time-monotonic g unsupported-clock-type g current-time-thread g internal-time-units-per-second g ns-per-guile-tick g get-internal-run-time g current-time-process g invalid-clock-type g not-duration g incompatible-time-types g priv:time-tai->time-utc! g priv:time-utc->time-tai! g date g %make-date-procedure g m-46961e50d3-343 g t-46961e50d3-33b g t-46961e50d3-33c g t-46961e50d3-33d g t-46961e50d3-33e g t-46961e50d3-33f g t-46961e50d3-340 g t-46961e50d3-341 g t-46961e50d3-342 f l-46961e50d3-348 f l-46961e50d3-349 f l-46961e50d3-34a f l-46961e50d3-34b f l-46961e50d3-34c f l-46961e50d3-34d f l-46961e50d3-34e f l-46961e50d3-34f
f l-46961e50d3-345
g minute g hour g day g month g year g zone-offset g m-46961e50d3-339 ! "!
!-AD #" $ %
" &#$% ' & (
)( *g pwpwpwpwpwpwpwpw + ,g %date?-procedure -g m-46961e50d3-35e .- /g t-46961e50d3-35d 0/ 1. 2f l-46961e50d3-363 32 4013 5f l-46961e50d3-360 65 716 8.47
98 :!47AD ;v: <; =: >: ?>; @: A: BA; C47 DC E@BD F=?E G9<F H7 I,H Jg %date-nanosecond-procedure Kg m-46961e50d3-36a LK ML Nf l-46961e50d3-36c ON PMO QLP RQ SR TS U!PAD VU WV XTW YLL Zf l-46961e50d3-36f [f l-46961e50d3-370 \Z[ ] Y\ ^L]P
_ ^ `^ a]P ba c`b dc eU fe gTf hf l-46961e50d3-374 if l-46961e50d3-375 jhi k Yj lLkP
m l nl okP p
o qnp rq s)U ts uTt vf l-46961e50d3-379 wf l-46961e50d3-37a xvw y Yx zLyP
{ z |z }g %%date-set-fields ~yP }~ | g t-46961e50d3-369 f l-46961e50d3-37e M LP
!PAD C P K P
; P J g %date-second-procedure g m-46961e50d3-385 f l-46961e50d3-387 !AD f l-46961e50d3-38a f l-46961e50d3-38b
f l-46961e50d3-38f f l-46961e50d3-390
) f l-46961e50d3-394 f l-46961e50d3-395
} g t-46961e50d3-384 f l-46961e50d3-399
!AD C K < g %date-minute-procedure g m-46961e50d3-3a0 f l-46961e50d3-3a2 !AD f l-46961e50d3-3a5 f l-46961e50d3-3a6
f l-46961e50d3-3aa f l-46961e50d3-3ab
) !f l-46961e50d3-3af "f l-46961e50d3-3b0 #!" $ # %$
& % '% ($ )}( *') +* ,g t-46961e50d3-39f -, .f l-46961e50d3-3b4 /. 0-/ 10
21 3!0AD 4 3 54 6C3 73 83 984 :0 ;: <79; =K3 >0 ? > @=4? A3 B3 C=: DBC EA4D F6<@E G25F H IH Jg %date-hour-procedure Kg m-46961e50d3-3bb LK ML Nf l-46961e50d3-3bd ON PMO QLP RQ SR TS U!PAD VU WV XTW YLL Zf l-46961e50d3-3c0 [f l-46961e50d3-3c1 \Z[ ] Y\ ^L]P
_ ^ `^ a]P ba c`b dc eU fe gTf hf l-46961e50d3-3c5 if l-46961e50d3-3c6 jhi k Yj lLkP
m l nl okP p o qnp rq s)U ts uTt vf l-46961e50d3-3ca wf l-46961e50d3-3cb xvw y Yx zLyP
{ z |z }yP ~}} |~ g t-46961e50d3-3ba f l-46961e50d3-3cf M LP
!PAD C P K P > P J g %date-day-procedure g m-46961e50d3-3d6 f l-46961e50d3-3d8 !AD f l-46961e50d3-3db f l-46961e50d3-3dc
f l-46961e50d3-3e0 f l-46961e50d3-3e1
) f l-46961e50d3-3e5 f l-46961e50d3-3e6
} g t-46961e50d3-3d5 f l-46961e50d3-3ea
!AD C K ? g %date-month-procedure g m-46961e50d3-3f1 f l-46961e50d3-3f3 !AD f l-46961e50d3-3f6 f l-46961e50d3-3f7
f l-46961e50d3-3fb f l-46961e50d3-3fc
) f l-46961e50d3-400 !f l-46961e50d3-401 " ! # " $#
% $ &$ '# (}' )&( *) +g t-46961e50d3-3f0 ,+ -f l-46961e50d3-405 .- /,. 0/
10 2!/AD 3 2 43 5C2 62 72 873 9/ :9 ;68: <K2 =/ > = ?<3> @2 A2 B@9 CAB D@3C E5;?D F14E G HG Ig %date-year-procedure Jg m-46961e50d3-40c KJ LK Mf l-46961e50d3-40e NM OLN PKO QP RQ SR T!OAD UT VU WSV XKK Yf l-46961e50d3-411 Zf l-46961e50d3-412 [YZ \ X[ ]K\O
^ ] _] `\O a` b_a cb dT ed fSe gf l-46961e50d3-416 hf l-46961e50d3-417 igh j Xi kKjO
l k mk njO o n pmo qp r)T sr tSs uf l-46961e50d3-41b vf l-46961e50d3-41c wuv x Xw yKxO
z y {y |xO }}| ~{} ~ g t-46961e50d3-40b f l-46961e50d3-420 L KO
!OAD C O K O A O I g %date-zone-offset-procedure g m-46961e50d3-427 f l-46961e50d3-429 !AD f l-46961e50d3-42c f l-46961e50d3-42d
f l-46961e50d3-431 f l-46961e50d3-432
) f l-46961e50d3-436 f l-46961e50d3-437
} g t-46961e50d3-426 f l-46961e50d3-43b
!AD C K B g m-46961e50d3-442 !!!! f l-46961e50d3-447 f l-46961e50d3-448 f l-46961e50d3-449 f l-46961e50d3-44a f l-46961e50d3-44b
f l-46961e50d3-444 ! ',AD
; < = > ?
@ A B
g set-date-nanosecond! g %set-date-nanosecond!-procedure g m-46961e50d3-456 g t-46961e50d3-454 g t-46961e50d3-455 f l-46961e50d3-45b f l-46961e50d3-45c f l-46961e50d3-458
! T[`fAD ! "i #!" $C % & '&! ( )( *%') +s , -
, .+!-" / 0 1( 201 3/!2 4$*.3 5 #4 6 76 8g set-date-second! 9g %set-date-second!-procedure :g m-46961e50d3-466 ;: <g t-46961e50d3-464 =g t-46961e50d3-465 ><= ?;; @f l-46961e50d3-46b Af l-46961e50d3-46c B@A C>?B D; Ef l-46961e50d3-468 FE GDF H;CG
IH J!CGT[`fAD K J LiJ MKL NCJ OJ PJ QPK RCG SR TOQS UsJ VCG W V XUKWL YJ ZJ [8R \Z[ ]YK\ ^NTX] _IM^ `G a9` bg set-date-minute! cg %set-date-minute!-procedure dg m-46961e50d3-476 ed fg t-46961e50d3-474 gg t-46961e50d3-475 hfg iee jf l-46961e50d3-47b kf l-46961e50d3-47c ljk mhil ne of l-46961e50d3-478 po qnp remq
sr t!mqT[`fAD u t vit wuv xCt yt zt {zu |mq }| ~y{} st mq uv t t b| u x~ sw q c g set-date-hour! g %set-date-hour!-procedure g m-46961e50d3-486 g t-46961e50d3-484 g t-46961e50d3-485 f l-46961e50d3-48b f l-46961e50d3-48c f l-46961e50d3-488
!T[`fAD i C s g
set-date-day! g %set-date-day!-procedure g m-46961e50d3-496 g t-46961e50d3-494 g t-46961e50d3-495 f l-46961e50d3-49b f l-46961e50d3-49c f l-46961e50d3-498
!T[`fAD i C s g set-date-month! g %set-date-month!-procedure g m-46961e50d3-4a6 g t-46961e50d3-4a4 g t-46961e50d3-4a5 f l-46961e50d3-4ab f l-46961e50d3-4ac f l-46961e50d3-4a8
!T[`fAD i C s
g set-date-year! g %set-date-year!-procedure g m-46961e50d3-4b6
g t-46961e50d3-4b4 g t-46961e50d3-4b5
f l-46961e50d3-4bb f l-46961e50d3-4bc
f l-46961e50d3-4b8
!T[`fAD i C ! " #" $ %$ &!#% 's ( ) ( *' ) + , -
$ .,- /+ . 0 &*/ 1 0 2 3 2 4g set-date-zone-offset! 5g %set-date-zone-offset!-procedure 6g m-46961e50d3-4c6 76 8g t-46961e50d3-4c4 9g t-46961e50d3-4c5 :89 ;77 <f l-46961e50d3-4cb =f l-46961e50d3-4cc ><= ?:;> @7 Af l-46961e50d3-4c8 BA C@B D7?C
ED F!?CT[`fAD G F HiF IGH JCF KF LF MLG N?C ON PKMO QsF R?C S R TQGSH UF VF W4N XVW YUGX ZJPTY [EIZ \C ]5\ ^g encode-julian-day-number _g decode-julian-day-number `g tm:gmtoff ag localtime bg local-tz-offset cg time->julian-day-number dg assoc eg leap-second? fg
time->date gg round he 1/2 ig
leap-year? j
k l ; m Z n x o p q Ԍ r s
t 0 u N vjklmnopqrstu wg month-assoc xg invalid-month-specification yg year-day zg week-day {g days-before-first-week |g natural-year }e -1/2 ~e 4800001/2 g number->string g
string-length g make-string g padding g expt g
last-n-digits g locale-day-short g locale-abbr-weekday g
locale-day g locale-long-weekday g locale-month-short g locale-abbr-month g locale-month g locale-long-month g date-reverse-lookup g string=? g locale-abbr-weekday->index g locale-long-weekday->index g locale-abbr-month->index g locale-long-month->index g
tz-printer g locale-print-time-zone g locale-pm-string g locale-am-string g locale-am-string/pm g display f Z f - f + e 1.0 g locale-decimal-point g substring f ~b g newline f ~I:~M:~S ~p f ~Y-~m-~d f
~H:~M:~S~z f ~Y-~m-~dT~H:~M:~S g
directives g
get-formatter g
string-ref g char=? g date-printer g bad-date-format-string g open-output-string f ~c g get-output-string g char->int g bad-date-template-string f Non-integer character g peek-char g
char-numeric? g read-char g integer-reader g make-integer-reader f !Premature ending to integer read. f 'Non-numeric characters in integer read. g integer-reader-exact g make-integer-exact-reader f Invalid time zone +/- f Invalid time zone number g zone-reader g char-alphabetic? g list->string g reverse! f Invalid string for g
locale-reader g make-locale-reader f Invalid character match. g make-char-id-reader g read-directives g priv:string->date f Incomplete date read. C 5 h8S ]@4
jkmns5 4v > " G 4wi4xi5 y> " G R R R R RRz{R|}R~RR ; R QR RR h0 ]$ 6 6 g caller
* g type * g value * g filenamef srfi/srfi-19.scm
9
" ' 5 * * g nameg
time-error CRq h N ]94 5H " 45$ " ~444555 $ 45
45JK" 4 5 " 4 5 "sJC F g filename
g port
g table
g line g data 6 g year ; g jd D g secs O g filenamef srfi/srfi-19.scm
" % ( , / 0 8 2 4 6 6 ; ; @ ! A D I ! L O W [ \
e h i p s u z ' g nameg read-tai-utc-data CRR h ]4 5 C g filename
g filenamef srfi/srfi-19.scm
g nameg read-leap-second-table CR h8 ] " $ C " $
C " g utc-seconds
6 g table g filenamef srfi/srfi-19.scm
)
# $ ( , 6 6 g nameg leap-second-delta CR h ] C g type
g
nanosecond g second g filenamef srfi/srfi-19.scm
g nameg !%make-time-unnormalized-procedure CR4J h q ] C i g t-46961e50d3-2d
g t-46961e50d3-2e g t-46961e50d3-2f CLOP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
CU h ] C
CWX 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 srfi/srfi-19.scm
n C5R [\ _` 4 c > " G fi R h r ] $ CC j g obj
g filenamef srfi/srfi-19.scm
g nameg %time?-procedure CgR4&h h 7 ] C / g t-46961e50d3-40
CLO&P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
C h ] C
CWX 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 srfi/srfi-19.scm
n C5&R' h t ] &
C 6l g s
g filenamef srfi/srfi-19.scm
g nameg %time-type-procedure CR4' h : ]C 2 g err
g s C #( h : ]C 2 g err
g s C,28 h : ]C 2 g err
g s ChV h 7 ] C / g t-46961e50d3-4c
CLO'P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
CX h ] C
CWX 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 srfi/srfi-19.scm
C5'R( h z ] & C 6r g s
g filenamef srfi/srfi-19.scm
g nameg %time-nanosecond-procedure CYR4(gns h : ]C 2 g err
g s Cv| h : ]C 2 g err
g s C h : ]C 2 g err
g s Ch h 7 ] C / g t-46961e50d3-67
CLO(P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
C h ] C
CWX 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 srfi/srfi-19.scm
C5(R) h v ] & C 6 n g s
g filenamef srfi/srfi-19.scm
g nameg %time-second-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 Ch h 7 ] C / g t-46961e50d3-82
CLO)P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
C h ] C
CWX 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 srfi/srfi-19.scm
C5)R44.0478 h v ]45C n g dummy
g check? g s g getter g expr CWX h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-19.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C54R* h ] &
C 6 g s
g val g filenamef srfi/srfi-19.scm
g nameg %set-time-type!-procedure C9R4*:~ h T ] C L g t-46961e50d3-b0
g t-46961e50d3-b1 CLO*P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
C h ] C
CWX 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 srfi/srfi-19.scm
n C5*R+ h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
g nameg %set-time-nanosecond!-procedure CR4+: h T ] C L g t-46961e50d3-c0
g t-46961e50d3-c1 CLO+P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
C h ] C
CWX 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 srfi/srfi-19.scm
n C5+R, h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
g nameg %set-time-second!-procedure CR4,: h T ] C L g t-46961e50d3-d0
g t-46961e50d3-d1 CLO,P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm
CS h D ] L 6< g filenamef srfi/srfi-19.scm
C h ] C
CWX 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 srfi/srfi-19.scm
n C5,R%'() hX ] &
" 4 5 & " 4 5 & " 4 56 g time
U g filenamef srfi/srfi-19.scm
! ; 5 U U g nameg copy-time C-R h0 ] 4 5$
4 5
D4 5 45 D g r
. g l . g filenamef srfi/srfi-19.scm
! , # . . g nameg
split-real CR(),+ h ]4 & " 4 55 ; $ 4 & " 4 5> G & " 4 5 ; & " 4 > " G ; & " 4 > " G " " & " 4 5
$ & " 4 5
$ & " 4 5 & " 4 > " G ; & " 4 5 & " 4 > " G " " " & " 4 5
$ & " 4 5
$ & " 4 5 & " 4 > " G ; & " 4 5 & " 4 > " G " "4" ", C g t
g int R g frac R g val g val g val V g val g val > l g val g filenamef srfi/srfi-19.scm
!
+ / 0
5 Q
U
\
# 5 :
= # V V 2 $ " % > > x . + g nameg time-normalize! CR h ] 6 g type
g
nanosecond g second g filenamef srfi/srfi-19.scm
g nameg make-time C%R<=>?@AB h ] 4
5 44 5> " G 44 5> " G 44 5> " G 44 5> " G 4
4 5> " G 4 l4
5> " G 4 > " G 4
4 5> " G C g date
g result g filenamef srfi/srfi-19.scm
!
" " % % % $ & ) & 4 & = ' B ' M ' V ) [ ) f ) o * t * { * * , , , , - . . . . . g nameg date->broken-down-time CR% h ]45 6 g tod
g filenamef srfi/srfi-19.scm
5
7
7 8 8 8 + 8
g nameg current-time-utc CR% h0 ]45 456 g tod
) g sec ) g usec ) g filenamef srfi/srfi-19.scm
:
< < = < > < @ A A ' A ) ?
)
g nameg current-time-tai CR h o ] 6 g g filenamef srfi/srfi-19.scm
N
P
g nameg current-time-monotonic CRl h ] 6 g filenamef srfi/srfi-19.scm
R
S S
S 4 S
g nameg current-time-thread CR ; iR% h ]45 6 g run-time
g filenamef srfi/srfi-19.scm
W
X X [ [ ] Y
g nameg current-time-process CR l h` - 1 3 ( " & 6 & 6 & 6 & 6 &
6
6 g
clock-type
` g
clock-type ` g filenamef srfi/srfi-19.scm
b
c c 4 c " d & e . d 2 f : d > g & F d J h # R d V i $ Z k \ k % ` k `
g nameg current-time ClR $
hX - 1 3 ( " $ C$ C$ C$ C 6 g
clock-type
W g
clock-type W g filenamef srfi/srfi-19.scm
q
r r 4 r # s Q z S z ) W z W
g nameg time-resolution C$R)(' h ] & " 4 5& " 45$ q & " 4 5& " 45$ 6 &
" 4 5&
" 45CCC g t1
g t2 g filenamef srfi/srfi-19.scm
~
9 = @
Z r v y
g nameg time=? C0R)( h ]
& " 4 5& " 45 $ C & " 4 5& " 45$ 6 & " 4 5& " 45CC g t1
g t2 g t 9 g filenamef srfi/srfi-19.scm
9 9 G b { #
g nameg time>? C2R)( h ]
& " 4 5& " 45 $ C & " 4 5& " 45$ 6 & " 4 5& " 45CC g t1
g t2 g t 9 g filenamef srfi/srfi-19.scm
9 9 G b { #
g nameg time<? C/R)( h ]
& " 4 5& " 45 $ C & " 4 5& " 45$ 6 & " 4 5& " 45CC g t1
g t2 g t 9 g filenamef srfi/srfi-19.scm
9 9 G b { $
g nameg time>=? C1R)( h ]
& " 4 5& " 45 $ C & " 4 5& " 45$ 6 & " 4 5& " 45CC g t1
g t2 g t 9 g filenamef srfi/srfi-19.scm
9 9 G b { $
g nameg time<=? C.R)(*,+
h 1 ] & " 4 5& " 45 & " 4 5& " 45 &
" 4 > " G & " 4 > " G & " 4 > " G 6) g time1
g time2 g sec-diff n g nsec-diff n g val t g filenamef srfi/srfi-19.scm
) 9 < V . n n t
g nameg time-difference! C4R-4 h ]
4 5 6 g time1
g time2 g result g filenamef srfi/srfi-19.scm
g nameg time-difference C3R')(,+5
h F ]&
" 45& & " 4 5& " 45 & " 4 5& " 45 & " 4 > " G & " 4 > " G 6
6 > g t
g duration g sec-plus g nsec-plus g filenamef srfi/srfi-19.scm
" % @ ) Y \ v . g nameg
add-duration! C6R-6 h ]
4 5 6 g t
g duration g result g filenamef srfi/srfi-19.scm
g nameg add-duration C5R')(,+5
h M ]&
" 45& & " 4 5& " 45 & " 4 5& " 45 & " 4 > " G & " 4 > " G 6
6 E g t
g duration g sec-minus g
nsec-minus g filenamef srfi/srfi-19.scm
" % @ + Y \ v / g nameg subtract-duration! C8R-8 h ]
4 5 6 g time1
g duration g result g filenamef srfi/srfi-19.scm
g nameg subtract-duration C7R' *(+), h h ] &
" 4 5& " 4 > " G &
" 4> " G & " 4 5 & " 4
> " G & " 4 54 & " 4 55 & " 4
> " G C ` g time-in
g time-out g caller g val > k g val g val g filenamef srfi/srfi-19.scm
" ' - 4 > n ! $ $ % $ ! g nameg priv:time-tai->time-utc! CR_ h ] 6 g time-in
g filenamef srfi/srfi-19.scm
$ F g nameg time-tai->time-utc C_R` h ] 6 g time-in
g filenamef srfi/srfi-19.scm
, g nameg time-tai->time-utc! C`R' *(+), h h ] &
" 4 5& " 4 > " G &
" 4> " G & " 4 5 & " 4
> " G & " 4 54 & " 4 55 & " 4
> " G C ` g time-in
g time-out g caller g val > k g val g val g filenamef srfi/srfi-19.scm
" ' - 4 > n ! $ $ % $ ! g nameg priv:time-utc->time-tai! CRf h ] 6 g time-in
g filenamef srfi/srfi-19.scm
$ F g nameg time-utc->time-tai CfRg h ] 6 g time-in
g filenamef srfi/srfi-19.scm
, g nameg time-utc->time-tai! CgR' X- * h ] &
" 4 5& " 4 > " G 4 5 &
" 4
> " G 6 g time-in
~ g ntime C ~ g val G t g filenamef srfi/srfi-19.scm
" ' + - 4 = C G | * ~
~ g nameg time-monotonic->time-utc CXR' Y *X hx ] &
" 4 5& " 4 > " G &
" 4 > " G
6 g time-in
u g val > k g filenamef srfi/srfi-19.scm
" ' + - 4 > s , u u g nameg time-monotonic->time-utc! CYR' V- * hx ] &
" 4 5& " 4 > " G 4 5 &
" 4
> " G C g time-in
w g ntime C w g val G t g filenamef srfi/srfi-19.scm
" ' + - 4 = C G w g nameg time-monotonic->time-tai CVR' W *
hp ] &
" 4 5& " 4 > " G &
" 4 > " G C g time-in
n g val > k g filenamef srfi/srfi-19.scm
" ' + - 4 > n g nameg time-monotonic->time-tai! CWR' d * h ] &
" 4 5& " 4 > " G 4 5 &
" 4
> " G C g time-in
g ntime M g val Q ~ g filenamef srfi/srfi-19.scm
" ' + - 4 = I 1 K ) M M Q g nameg time-utc->time-monotonic CdR' e * h ] &
" 4 5& " 4 > " G 4 5 &
" 4
> " G C g time-in
{ g ntime G { g val K x g filenamef srfi/srfi-19.scm
"
' + - 4 = E ) G G K
{ g nameg time-utc->time-monotonic! CeR' ]- * hx ] &
" 4 5& " 4 > " G 4 5 &
" 4
> " G C g time-in
w g ntime C w g val G t g filenamef srfi/srfi-19.scm
" ' + - 4 = C G w g nameg time-tai->time-monotonic C]R' ^ *
hp ] &
" 4 5& " 4 > " G &
" 4 > " G C g time-in
n g val > k g filenamef srfi/srfi-19.scm
" ' + - 4 > ! n g nameg time-tai->time-monotonic! C^R h , 3 C g
nanosecond
g second g minute g hour g day g month g year g zone-offset g filenamef srfi/srfi-19.scm
)
g nameg %make-date-procedure CR49' h
, 3 C g t-46961e50d3-33b
g t-46961e50d3-33c g t-46961e50d3-33d g t-46961e50d3-33e g t-46961e50d3-33f g t-46961e50d3-340 g t-46961e50d3-341 g t-46961e50d3-342 CLO9P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C) h ] C
CWX 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 srfi/srfi-19.scm
)
n C59R [* _+ 4 c > " G fi R h r ] $ CC j g obj
g filenamef srfi/srfi-19.scm
)
g nameg %date?-procedure C,R4:hG h 8 ] C 0 g t-46961e50d3-35d
CLO:P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
CI h ] C
CWX 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 srfi/srfi-19.scm
)
n C5:R; h z ] &
C 6r g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-nanosecond-procedure CJR4;X_d h : ]C 2 g err
g s Cgmr h : ]C 2 g err
g s Cu{ h : ]C 2 g err
g s Ch h 8 ] C 0 g t-46961e50d3-369
CLO;P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
C5;R< h v ] & C 6n g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-second-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 Ch h 8 ] C 0 g t-46961e50d3-384
CLO<P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
C5<R= h v ] & C 6 n g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-minute-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 ChG h 8 ] C 0 g t-46961e50d3-39f
CLO=P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
CI h ] C
CWX 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 srfi/srfi-19.scm
)
C5=R> h t ] & C 6 l g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-hour-procedure CJR4>X_d h : ]C 2 g err
g s Cgmr h : ]C 2 g err
g s Cu{ h : ]C 2 g err
g s Ch h 8 ] C 0 g t-46961e50d3-3ba
CLO>P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
C5>R? h s ] & C 6 k g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-day-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 Ch h 8 ] C 0 g t-46961e50d3-3d5
CLO?P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
C5?R@ h u ] & C 6 m g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-month-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 ChF h 8 ] C 0 g t-46961e50d3-3f0
CLO@P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
CH h ] C
CWX 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 srfi/srfi-19.scm
)
C5@RA h t ] & C 6 l g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-year-procedure CIR4AW^c h : ]C 2 g err
g s Cflq h : ]C 2 g err
g s Ctz h : ]C 2 g err
g s Ch h 8 ] C 0 g t-46961e50d3-40b
CLOAP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
C5ARB h { ] & C 6 s g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-zone-offset-procedure CR4B h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s Ch h 8 ] C 0 g t-46961e50d3-426
CLOBP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
C5BR4}
78 h v ]45C n g dummy
g check? g s g getter g expr CWX h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-19.scm
)
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5}R h ] &
C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-nanosecond!-procedure CR4:5 h V ] C N g t-46961e50d3-454
g t-46961e50d3-455 CLOP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C7 h ] C
CWX 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 srfi/srfi-19.scm
)
n C5R8 h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-second!-procedure C9R48:_ h V ] C N g t-46961e50d3-464
g t-46961e50d3-465 CLO8P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
Ca h ] C
CWX 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 srfi/srfi-19.scm
)
n C58Rb h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-minute!-procedure CcR4b: h V ] C N g t-46961e50d3-474
g t-46961e50d3-475 CLObP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
n C5bR h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-hour!-procedure CR4: h V ] C N g t-46961e50d3-484
g t-46961e50d3-485 CLOP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
n C5R h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-day!-procedure CR4: h V ] C N g t-46961e50d3-494
g t-46961e50d3-495 CLOP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
n C5R h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-month!-procedure CR4: h V ] C N g t-46961e50d3-4a4
g t-46961e50d3-4a5 CLOP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX 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 srfi/srfi-19.scm
)
n C5R
h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-year!-procedure C R4
:1 h V ] C N g t-46961e50d3-4b4
g t-46961e50d3-4b5 CLO
P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C3 h ] C
CWX 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 srfi/srfi-19.scm
)
n C5
R4 h ] & C 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-zone-offset!-procedure C5R44:[ h V ] C N g t-46961e50d3-4c4
g t-46961e50d3-4c5 CLO4P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
CS h D ] L 6< g filenamef srfi/srfi-19.scm )
C] h ] C
CWX 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 srfi/srfi-19.scm
)
n C54R hh ]
$ "
m
d ӖC g day
d g month d g year d g a
d g y % d g m 2 d g filenamef srfi/srfi-19.scm
9
:
:
: ; ; ; # ; % ; % : . < / < 2 < 2 : < > ? > B > C = I ? J = O @ P = Q A V A
W A X = ^ B _ = d g nameg encode-julian-day-number C^R h ]A44 55 }, : : d @
$ " D g jdn
g days g a g b * g c > g d L g e Z g m h g y | g filenamef srfi/srfi-19.scm
F
G G G G H G I I * I * G : J = J > J > G E K H K L K L G V L Y L Z L Z G a M d M h M h G o N r N { N ! | N | G P P Q
Q Q Q
Q
Q R R R R S S S O 1 g nameg decode-julian-day-number C_R`a) h0 ]
44 & " 4 555C g utc-time
* g filenamef srfi/srfi-19.scm
Y
[ [ [ [ & [ ( [ ) [ * g nameg local-tz-offset CbR h ] C g seconds
g tz-offset g filenamef srfi/srfi-19.scm
^
_
_ _ g nameg time->julian-day-number CcRd h ]4 5$ CC { g second
g filenamef srfi/srfi-19.scm
c
d d g nameg leap-second? CeR' fbe)c_g( hP R - 1 3 &
" 4 5& " 4 > " G ( 4 5" 4 & " 4
55 4 $ & " 4
5" & " 4
55 4 > G 4
455
< <
& " 4 5$
"
C J g time
M g tz-offset M g offset W M g leap-second? | M g jdn M g secs M g date M g month M g year M g int-secs M g hours
M g rem M g minutes M g seconds
M g
nanosecond 3 M g second 3 M g filenamef srfi/srfi-19.scm
f
g ) g . h 2 h 4 h ; h I i J j W k W i Z l a l / z l % | l | i m m ' n 3 n 0 o 0 m i r ! r v v ) v v w , w v x - x v y v z v
{ * | - | & 3 {
, M
g nameg time-utc->date CaR' fb_)ec_g( hH - 1 3 &
" 4 5& " 4 > " G ( 44 55" & " 4
54 & " 4
55 4 5 4
$ " 5 4> G 4455
<
< & " 4 5$ "
C g time
E g tz-offset E g offset \ E g seconds E g leap-second? E g jdn E g secs E g date E g month E g year E g int-secs
E g hours E g rem E g minutes
E g seconds E g
nanosecond + E g second + E g filenamef srfi/srfi-19.scm
) . 2 4 ; I J M & U \ \ a z ( % ' 0 ! ) , - " % & +
1 E
g nameg time-tai->date CZR' fbX)ec_g( hH - 1 3 &
" 4 5& " 4 > " G ( 44 55" & " 4
54 & " 4
55 4 5 4
$ " 5 4> G 4455
<
< & " 4 5$ "
C g time
E g tz-offset E g offset \ E g seconds E g leap-second? E g jdn E g secs E g date E g month E g year E g int-secs
E g hours E g rem E g minutes
E g seconds E g
nanosecond + E g second + E g filenamef srfi/srfi-19.scm
) . 2 4 ; I J M & U \ \ a z ( % ' 0 ! ) , - " % & +
1 E
g nameg time-monotonic->date CSR^?@Ah% ;>=<B h ]4 & " 4 5 & " 4 5 & " 4 55 4 5
&
" 4 5 < < & " 4
5 < < & " 4 5 < & " 4 5
& " 4 56 g date
g jdays [ g jdays-1/2 g g filenamef srfi/srfi-19.scm
- # 1 > 1 X [ [ ^ d - e $ g g p g nameg date->time-utc CJRgJ h ]4 56 { g date
g filenamef srfi/srfi-19.scm
g nameg date->time-tai CIReJ h ]4 56 g date
g filenamef srfi/srfi-19.scm
g nameg date->time-monotonic CHR h0 ]
$ C
$ d
CC g year
+ g t
+ g filenamef srfi/srfi-19.scm
% ) ' & ( ! + g nameg
leap-year? CiRvwRdwCxi h` 4 ] 45 $ " 4> " G " C45$ $ C"" , g day
] g month ] g year ] g days-pr ] g filenamef srfi/srfi-19.scm
# % 6 7 8 9
C H L Q R ] g nameg year-day CyRy?@A hX ] & " 4 5 & " 4 5 & " 4 56 g date
W g filenamef srfi/srfi-19.scm
" = . W W g nameg
date-year-day CCR hH y ]
d C q g day
G g month G g year G g a
G g y G g m G g filenamef srfi/srfi-19.scm
% * + , 1 2 3 9 : ? B C F G g nameg week-day CzRz?@A hX ] & " 4 5 & " 4 5 & " 4 56 g date
W g filenamef srfi/srfi-19.scm
" = . W W g nameg
date-week-day CDRAD hH ] & " 4 5
45 C g date
D g day-of-week-starting-week D g year 0 g first-day 0 D g
fdweek-day 9 D g filenamef srfi/srfi-19.scm
0 3 9 @ C D g nameg days-before-first-week C{RC{ h ]4 54 5 C g date
g day-of-week-starting-week g filenamef srfi/srfi-19.scm
g nameg date-week-number CERl ab h0 - 1 3 45 ( 45" 6 g tz-offset
, g time , g filenamef srfi/srfi-19.scm
* , ,
g nameg current-date C!R!A hh I ]45 & " 45 d d d$ C
$ C 2$ C d CA g n
h g s ' g current-year ' h g current-century 1 h g filenamef srfi/srfi-19.scm
" ' . 1 1 8 ! < C " G O # R # U # Y ^ # 6 d $ g $ h g nameg natural-year C|R;<=>?@AB^} h ]A &
" 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4 5 & " 4
5 4 5
< < <
C g date
g
nanosecond g second g minute g hour g day g month g year g offset g filenamef srfi/srfi-19.scm
&
' ( 9 ) T * o +
, - . ' / 0 / 1 2 1
3 1
5 1
1
/ g nameg date->julian-day CFRF~ h ]4 5C g date
g filenamef srfi/srfi-19.scm
8
9 : 9
g nameg date->modified-julian-day CGR' f)(
h ] &
" 4 5& " 4 > " G & " 4 5 & " 4 5
C g time
| g filenamef srfi/srfi-19.scm
<
= " = ' > + > - > 4 > ? ? Z ? ! t ? u ? x ? { ? | g nameg time-utc->julian-day CbRb~ h ]4 5C g time
g filenamef srfi/srfi-19.scm
C
D E D
g nameg time-utc->modified-julian-day CcR' f)( h
] &
" 4 5& " 4 > " G & " 4 54 & " 4 55 & " 4
5
C g time
g filenamef srfi/srfi-19.scm
G
H " H ' I + I - I 4 I ? J X K ] K ! w K x J { L L J J J g nameg time-tai->julian-day C[R[~ h ]4 5C g time
g filenamef srfi/srfi-19.scm
P
Q R Q
g nameg time-tai->modified-julian-day C\R' f)( h ] &
" 4 5& " 4 > " G & " 4 54 & " 4 55 & " 4
5
C g time
g filenamef srfi/srfi-19.scm
U
V " V ' W + W - W 4 W ? X X Y ] Y ! w Y x X { Z Z X X X g nameg time-monotonic->julian-day CTRT~ h ]4 5C g time
g filenamef srfi/srfi-19.scm
^
_ ` _
g nameg #time-monotonic->modified-julian-day CUR% h0 ] 4> G 6 g jdn
+ g secs
+ g seconds + g parts + g filenamef srfi/srfi-19.scm
b
c
c
c
e d ' g + f + g nameg julian-day->time-utc CNRgN h ]4 56 g jdn
g filenamef srfi/srfi-19.scm
j
k
k
g nameg julian-day->time-tai CMReN h ]4 56 g jdn
g filenamef srfi/srfi-19.scm
m
n
n
g nameg julian-day->time-monotonic CLRNba h0 - 1 3 4 5 ( 45" 6 g jdn
0 g tz-offset 0 g time 0 g offset & 0 g filenamef srfi/srfi-19.scm
p
q q r s & t & q 0 u 0
g nameg julian-day->date CKRK~ h - 1 3 @ g jdn
g tz-offset g filenamef srfi/srfi-19.scm
w
x ! x x
g nameg modified-julian-day->date CORN~ h ] 6 g jdn
g filenamef srfi/srfi-19.scm
{
| | | g nameg modified-julian-day->time-utc CRRM~ h ] 6 g jdn
g filenamef srfi/srfi-19.scm
~
g nameg modified-julian-day->time-tai CQRL~ h ] 6 g jdn
g filenamef srfi/srfi-19.scm
% g nameg #modified-julian-day->time-monotonic CPRbl h t ] 456 l g filenamef srfi/srfi-19.scm
g nameg current-julian-day C"Rcl h } ] 456 u g filenamef srfi/srfi-19.scm
!
g nameg current-modified-julian-day C#R hH 2 ]4 5 45 $ " $ C456 * g n
E g pad-with E g length E g str E g str-len E g t , g filenamef srfi/srfi-19.scm
) 0 6 = $ A E E g nameg padding CR h ] 4
56 g i
g n g filenamef srfi/srfi-19.scm
g nameg
last-n-digits CR h ] 6 } g n
g filenamef srfi/srfi-19.scm
2 g nameg locale-abbr-weekday CR h ] 6 } g n
g filenamef srfi/srfi-19.scm
, g nameg locale-long-weekday CRiRiR h8 , ] " )$ C4 455$ C " " $ g needle
6 g haystack-ref 6 g haystack-len 6 g same? 6 g index / g filenamef srfi/srfi-19.scm
# ) / / 6 g nameg date-reverse-lookup CR h ] 6 g string
g filenamef srfi/srfi-19.scm
g nameg locale-abbr-weekday->index CR h ] 6 g string
g filenamef srfi/srfi-19.scm
g nameg locale-long-weekday->index CR h ] 6 ~ g string
g filenamef srfi/srfi-19.scm
g nameg locale-abbr-month->index CR h ] 6 ~ g string
g filenamef srfi/srfi-19.scm
g nameg locale-long-month->index CRB h( ] & " 4 56 g date
# g port # g filenamef srfi/srfi-19.scm
# # g nameg locale-print-time-zone CR h ] $ 6 6 g hr
g filenamef srfi/srfi-19.scm
# g nameg locale-am-string/pm CR h ]
$ 4> " G " 4
$ 4> " G " 4> " G
$ C4 54 <5 440 5> " G 40 56 g offset
g port g hours y g minutes y g filenamef srfi/srfi-19.scm
% * + / 6 C G N Z ^ a h + i k l s 6 t $ w y y ~ g nameg
tz-printer CR~ h ]~6 g date
g pad-with
g port
g filenamef srfi/srfi-19.scm
CaD h ]44 556 g date
g pad-with g port g filenamef srfi/srfi-19.scm
- CAD h ]44 556 g date
g pad-with g port g filenamef srfi/srfi-19.scm
- Cb@ h( ]4 & " 4 556 g date
( g pad-with ( g port ( g filenamef srfi/srfi-19.scm
+ $ ( ( CB@ h( ]4 & " 4 556 g date
( g pad-with ( g port ( g filenamef srfi/srfi-19.scm
+ $ ( ( Cch{ h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
Cd? h0 ]4 & " 4 50 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , CDh| h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
+
Ce? h0 ]4 & " 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , Cf;< h ]# &
" 4 5$ :44 & " 4 5 5> " G " 544 & " 4 5 5> " G 4 &
" 4 5 > G 4
5 4 5 $ (44 5 > " G 4
56C g date
g pad-with g port g i g f g ns g le g filenamef srfi/srfi-19.scm
# $ ' , ( D % J Q ^ a f % * $ / $ # # ) ) " Chh h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
+
CH> h0 ]4 & " 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , CI> hP ] & " 4 5 $ 4 564 56 g date
M g pad-with M g port M g hr M g filenamef srfi/srfi-19.scm
$ ( + 2 ' 8 < ?
M
M CjC h ]44 5 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
! Ck> h0 ]4 & " 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , Cl> hx ] & " 4 5 $ " & " 4 5 " & " 4 5 4 56 g date
t g pad-with t g port t g hr a t g filenamef srfi/srfi-19.scm
$ ' B I 5 a f t t Cm@ h0 ]4 & " 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , CM= h0 ]4 & " 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , Cn h ]6 g date
g pad-with g port g filenamef srfi/srfi-19.scm
"
# CN; h0 ]4 &
" 4 5 56 g date
+ g pad-with + g port + g filenamef srfi/srfi-19.scm
$
%
% ! ' % + % + Cp> h( ]4 & " 4 556 g date
( g pad-with ( g port ( g filenamef srfi/srfi-19.scm
(
)
) - $ ) ( ) ( Crh h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
*
+ + +
+ + CsJ) h0 ] 4 5 & " 45 6 g date
/ g pad-with / g port / g s + g filenamef srfi/srfi-19.scm
,
- % - / - / CS;< hx ] &
" 4 5$ *4 & " 4 5 564 & " 4 5 56 g date
v g pad-with v g port v g filenamef srfi/srfi-19.scm
.
/ / # / & 1 + 1 ( C 1 % I 1 M 1 P 4 U 4 % r 4 v 4 v Ct h ] 6 g date
g pad-with
g port
g filenamef srfi/srfi-19.scm
7
8
CTh~ h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
9
: : +
: : CU{E h@ ]4
5
$ 44
50 5644
50 56 g date
? g pad-with ? g port ? g filenamef srfi/srfi-19.scm
;
< < < = = ( = % $ = ( = + ? . ? % ; ? ? ? ? CVE h ]44 50 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
A
B B ! B B CwD h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
D
E E Cxh} h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
F
G G CXh h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
H
I I CW{E h@ ]4 5
$ 44 50 5644 50 56 g date
? g pad-with ? g port ? g filenamef srfi/srfi-19.scm
J
K K K L L ( L % $ L ( L + N . N % ; N ? N ? CyA h8 ]44 & " 4 5 5 56 g date
3 g pad-with 3 g port 3 g filenamef srfi/srfi-19.scm
P
Q Q !
R ' ) Q ! / Q 3 Q 3 CYA h( ] & " 4 56 g date
# g pad-with # g port # g filenamef srfi/srfi-19.scm
V
W # W # CzB h( ] & " 4 56 g date
# g pad-with # g port # g filenamef srfi/srfi-19.scm
X
Y # Y # CZ h ] 6 g date
g pad-with
g port
g filenamef srfi/srfi-19.scm
Z
[
C1h h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
\
] ] +
] ] C2h h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
^
_ _ +
_ _ C3h~ h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
`
a a +
a a C4h h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
b
c c +
c c C5h h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
d
e e +
e e C )Rd h ] 4 5 $ CC g char
g
associated g filenamef srfi/srfi-19.scm
h
i i j j g nameg
get-formatter CR h ] $ |45 4~5$ A$
645 4-5$ _ $
644 55 $ &4 > " G 664_5$ ` $
644 55 $ '4 > " G 664455 $ '4 0> " G 664> " G 6C g date
g index g
format-string g str-len g port g current-char g pad-char? A d g formatter w g formatter g formatter + d
g filenamef srfi/srfi-19.scm
l
m m n n o # o & s ) s - s 1 t 3 t * 7 t 8 v ! ? v ; A v ! A v D x P w U y X y \ y ` z $ b { ) f z g } ) j ~ * s 6 u ~ * w } ) w } 3 * / w $ ) ) * 6 * )
3 * / % & ' 2 ) & + % + 3 4 R / Z ^ & ` + d e q r ! r L g nameg date-printer CR hH - 1 3 45 ( " 4
45> " G 6 g date
E g
format-string E g str-port E g fmt-str E g filenamef srfi/srfi-19.scm
+ 0 " * ! 7 E E
g nameg date->string ChR h ] 0$
C 1$ C 2$ C 3$ C 4$ C 5$ C 6$ C 7$ C 8$ C 9$ C 6 g ch
g filenamef srfi/srfi-19.scm
| ~ g nameg char->int CR h ]*" l45 45 $ " (45 $ " $ " $ C
4455 "
" { g upto
| g port | g accum r g nchars r g ch
r g t N g t + K g filenamef srfi/srfi-19.scm
$ + +
> C R Z [ ^ + f g j r
r | g nameg integer-reader CR h ` ]L 6 X g port
g filenamef srfi/srfi-19.scm
C h v ] O C n g upto
g filenamef srfi/srfi-19.scm
g nameg make-integer-reader CRi h
]*H" 45 $ C45$
645$ $K
44 55 "J$ #4 > " G "~
6
"f g n
g port g
padding-ok g port g accum g nchars g ch g filenamef srfi/srfi-19.scm
) - / $ 1 3
4
> A
H I % L 0 T % U X b
h i
$
! g nameg integer-reader-exact CR h ` ]L 6 X g port
g filenamef srfi/srfi-19.scm
C h y ] O C q g n
g filenamef srfi/srfi-19.scm
g nameg make-integer-exact-reader CRi
h 9 ]!
HH4 5 45$ 4 > " G " 4Z5 $ " 4z5 $
C4+5$ K" /4-5$ K" 4 > " G 4 5 45$ 4 > " G " 4 5
< <K 4 5 45$ 4 > " G " J4 5 < <K 4 5 45$ 4 > " G " J4 5
<K 4 5 45$ 4 > " G " J4 5 <K J$ JC
JC 1 g port
g offset g positive? g ch g t D ] g ch g ch 6 g ch = ~ g ch g filenamef srfi/srfi-19.scm
! # $ % ! * /
< D
R a d p s x ( % , ) # , ) # $
( -
% 1
3
7 = @
J
K O Q , S ) X # ] l ( u % y { , ) # ( % ! V g nameg zone-reader CR h8 ] 4L5 45$ 4L5 "4 56 g result
1 g ch 1 g filenamef srfi/srfi-19.scm
" &
) ! 1 !
1 g nameg read-char-string Ci h@ 3 ]O Q 45 45 $ C 6 + g port
; g indexer ; g read-char-string ; g str ; g index ! ; g filenamef srfi/srfi-19.scm
# # # # $ ! # ) % 0 % 2 & % 4 ' + 9 ' % ; % ; g nameg
locale-reader CR h ` ] L 6 X g port
g filenamef srfi/srfi-19.scm
*
+
C h x ] O C p g indexer
g filenamef srfi/srfi-19.scm
)
g nameg make-locale-reader CRi h( ]4L 4 55$ L C6 g port
! g filenamef srfi/srfi-19.scm
. / / / / 1 2 3 ! 1
! C h v ] O C n g char
g filenamef srfi/srfi-19.scm
-
g nameg make-char-id-reader CR h k ]C c g ch
g filenamef srfi/srfi-19.scm
M g nameg char-fail C 4i 54i 54i 54ii54ii54ii54ii5 ~ 4i~5 ai Ai bi h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
T U
C Bi h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
W X
C di h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
Y & Z ( C e h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
\ # ] % C hi h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
_ `
C Hi h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
a & b ( C k h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
c # d % C mi h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
e & f ( C Mib h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
g & h ( C Si8 h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
j & k ( C y |
h( ]
4 5 & C6 g val
$ g object $ g val $ g filenamef srfi/srfi-19.scm
m n $ n
$ C Yi
h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
o & p ( C z hH ] 4 Z5 $ C4 z5 $ C4 +5 $ C -6 g c
F g t F g t F g t 3 F g filenamef srfi/srfi-19.scm
q r r s r + t 3 r F u F Ci4 h s ]& C6 k g val
g object g filenamef srfi/srfi-19.scm
v w C Ri hP ]
4 5 45$
L645$ C4 > " G " g port
K g skipper K g ch K g filenamef srfi/srfi-19.scm
z { { |
| } } $ }
! ~ + ~
. K &
K g nameg
skip-until Cid hX ]FO Q $ 745 4~5$ $
645 45 $
4
> " G 4 5
4
5$ 4> " G " $ 4
> " G "
664 5 4 5 $ "
45 $ 4> " G "
6C g date
T g index T g
format-string T g str-len T g port T g template-string T g
skip-until T g current-char $ R g format-char Q g format-info \ g skipper
s g reader s g actor s g val
g port-char R g t # g filenamef srfi/srfi-19.scm
y
$ ' 3 6 9 = A C ! G H $ O > Q $ Q T $ \ d g ' k ' p ' s z % , 1 * - " ' ' ( , . # 5 H ! R 6 T g nameg priv:string->date CRBb% 4Ji;<=>?@A h B ]
4
454 5> " G & " 45$ " v44
55 & " 4
> " G 44 55 & " 4
> " G "
6&
" 45$ & " 45$ & " 45$ & " 45$ & " 45$ l& " 45$ I& " 45$ && " 45$ C"""""""" : g input-string
g template-string g newdate g val g g val g filenamef srfi/srfi-19.scm
! . 9
U Z ! ] " g ! g
! " !
# ? B ^ a } ( g nameg string->date CiRC g m
4 g rtd
g rtd
g g g char-fail
< G g ireader4 = G g ireader2 = G g eireader2 = G g locale-reader-abbr-weekday = G g locale-reader-long-weekday = G g locale-reader-abbr-month = G g locale-reader-long-month = G g filenamef srfi/srfi-19.scm )
5
: B & G
Q T
V Y
[ ^
` c
e h
j m
o r
t ! w
y |
~ "
)
*
0_
1=
3 !
4 5
6 :
6 N
7[ R
7j U 7n U
8] W
: b
;c q
= ~
>
@
Bd
D,
F|
G`
I
J
M
N
P
Q
R6
T
U
V^
X
Y
[%
\
^K
_
a
b
d2 )
9
y F
Y
c ^
c
f
F
*
˄
̐
̓ ̗
P
_
5
G
ו
&
ے 8
& <
C
G
P
f U
, ^
i b
j
m
p
w
{
m ~
3
x
9
B
K
t
,
y
D
\ 4 $
Q
D < " $
( * , . 7 9 ; A z D : F H D J V P * V X Z \ \ ^ 4 ` b d
h
& l
(
)Y
+
,
/
0
6
9
: )
<J -
< B < B < C < D < E $ < G $ = I $ = K $ = B =2 P =? P =L Q =Y R > S > V ?~ Y @6 \ @ ^ A a B^ c C e C g D j E` l F o G q G O G A
N y
S5
S7
C6 PK ! !| | srfi/srfi-88.gonu [ GOOF----LE-8-2.0d ] $ 4 hC ] g guile g define-module* g srfi g srfi-88 g filenameS
f srfi/srfi-88.scm g exportsS g keyword->string
g string->keyword
g
re-exportsS g keyword? g set-current-module g cond-expand-provide g current-module g read-options g append g keywords g postfix g symbol->string !g keyword->symbol "g symbol->keyword #g string->symbolC 5h@ ]4
5 4 > " G 4i4i5 > " G 44 45 5> " G ! h ]4 56 g k
g filenamef srfi/srfi-88.scm
(
*
*
g nameg keyword->stringg
documentationf 'Return the name of @var{k} as a string. C R"# h ]4 56 g s
g filenamef srfi/srfi-88.scm
,
.
.
g nameg string->keywordg
documentationf 0Return the keyword object whose name is @var{s}. C
RC g m
, g filenamef srfi/srfi-88.scm
-
2 : & ?
H & V & Y & N (
7 ,
9
C6 PK ! Cm srfi/srfi-16.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g srfi g srfi-16 g filenameS
f srfi/srfi-16.scm g
re-exportsS g case-lambda
g set-current-module C 5 h( R ]4
5 4 > " G CJ g m
( g filenamef srfi/srfi-16.scm
/
(
C6 PK ! Ge srfi/srfi-26.gonu [ GOOF----LE-8-2.0t ] 4 h
] g guile g define-module* g srfi g srfi-26 g filenameS
f srfi/srfi-26.scm g exportsS g cut
g cute
g set-current-module g cond-expand-provide g current-module g make-syntax-transformer g macro g $sc-dispatch g any g each-any g reverse ! "g
syntax-object #g lambda $g top %$ &g ribcage '& (g t-46961e50f5-72 )g t-46961e50f5-71 *() +g m-46961e50f5-73 ,+$ -,, .f l-46961e50f5-77 /f l-46961e50f5-78 0./ 1&*-0 2g loop 3g slots 4g params 5g args 62345 7%%%% 8f l-46961e50f5-68 9f l-46961e50f5-69 :f l-46961e50f5-6a ;f l-46961e50f5-6b <89:; =&67< >g slot0 ?g slot1+ @ >? A%%% Bf l-46961e50f5-62 Cf l-46961e50f5-63 Df l-46961e50f5-64 EBCD F&@AE Gg stx HG I% Jf l-46961e50f5-5f KJ L&HIK M%'1'=F'L Ng hygiene ON P"#MO Qg syntax-violation RQ SQ Tf -source expression failed to match any pattern Ug generate-temporaries Vg var WV X Yg free-id Zg <> [V \f l-46961e50f5-82 ]\ ^&[I] _g s `g rest a_` b%% cf l-46961e50f5-7b df l-46961e50f5-7c ecd f&abe g%'^''f'=F'L h"ZgO iYh jg <...> k"jgO lYk mg error nf &<...> not on the end of cut expression og append p qg t-46961e50f5-88 rg t-46961e50f5-87 sqr tg m-46961e50f5-89 ut$ vuu wf l-46961e50f5-8d xf l-46961e50f5-8e ywx z&svy {%'z'^''f'=F'L
|"#{O }g apply ~"}{O g let g t-46961e50f5-a8 g t-46961e50f5-a7 g m-46961e50f5-a9 $ f l-46961e50f5-ad f l-46961e50f5-ae & g process-hole % f l-46961e50f5-a5 & g bindings g arguments 23 f l-46961e50f5-9c f l-46961e50f5-9d f l-46961e50f5-9e f l-46961e50f5-9f &7
3 f l-46961e50f5-98 f l-46961e50f5-99 &b f l-46961e50f5-95 &HI %'' "O " O %' "ZO Y "jO Y g t C 5 hP
r ]4
5 4 > " G 4i4i5 > " G 4 !P h T ] C L g t-46961e50f5-72
g t-46961e50f5-71 CSTUWXi h T ] LLLLLL 6 L g filenamef srfi/srfi-26.scm % % 3 %
Clmn h \ ] L $ 6C T g filenamef srfi/srfi-26.scm ' '
( (
Co p|~ h T ] C L g t-46961e50f5-88
g t-46961e50f5-87 CST h@ ]44L 5L54LL5 4 5 $ @ 6 g tmp
? g tmp ( ? g filenamef srfi/srfi-26.scm ) ) ( ) * " * + * " ) ?
C hp ]4L 5 $ L LLLO @4L 5 "
LLLL L6$ #4LO ?$ L LO @"" w g var
o g tmp o g tmp / o g filenamef srfi/srfi-26.scm @ , & B , o C h K ]# ( 34545 45 $ @6 45 4 5 $
L O @6 C g slots
{ g params { g args { g tmp ; g tmp $ ; g s A { g rest A { g tmp L { g tmp W { g filenamef srfi/srfi-26.scm
, > A ! A
F " $ J " : L " $ L "
{ g nameg loop C h ] O Q 6 g cut
g slot0 g slot1+ g loop
g filenamef srfi/srfi-26.scm
CST h( e ] 4 5 $ @ 6 ] g stx
" g tmp " g filenamef srfi/srfi-26.scm
" C5 R4
p h T ] C L g t-46961e50f5-a8
g t-46961e50f5-a7 CST h \ ] LLLLL 6 T g filenamef srfi/srfi-26.scm 6 6 , 6 & 6
Ch \ ] LLLLL 6 T g filenamef srfi/srfi-26.scm 6 6 , 6 & 6
CUX h l ]LL L L L 6d g t
g filenamef srfi/srfi-26.scm ? @ A ? C h c ]+ ( .45 45 $ @6 45 $ L O @4 5 $
L O @4 5 4
5 $ L O @6 [ g slots
g bindings g arguments g tmp 6 g tmp 6 g tmp 9 g tmp D g tmp f g tmp g tmp
g filenamef srfi/srfi-26.scm
2 7 9 8 9 : 9 :
> # > 9 > # > g nameg loop C h ]
O Q 6 g cute
g slots g loop
g filenamef srfi/srfi-26.scm
2 3 4 2 CST h( e ] 4 5 $ @ 6 ] g stx
" g tmp " g filenamef srfi/srfi-26.scm
/ " C5
RC j g m
( g filenamef srfi/srfi-26.scm
)
. 6 & ;
L
C6 PK ! "Y Y srfi/srfi-4.gonu [ GOOF----LE-8-2.0X ] 4 h ] g guile g define-module* g srfi g srfi-4 g filenameS
f srfi/srfi-4.scm g importsS g rnrs
g bytevectors
g exportsS g u8vector? g
make-u8vector g u8vector g u8vector-length g u8vector-ref g
u8vector-set! g u8vector->list g list->u8vector g s8vector? g
make-s8vector g s8vector g s8vector-length g s8vector-ref g
s8vector-set! g s8vector->list !g list->s8vector "g
u16vector? #g make-u16vector $g u16vector %g u16vector-length &g
u16vector-ref 'g u16vector-set! (g u16vector->list )g list->u16vector *g
s16vector? +g make-s16vector ,g s16vector -g s16vector-length .g
s16vector-ref /g s16vector-set! 0g s16vector->list 1g list->s16vector 2g
u32vector? 3g make-u32vector 4g u32vector 5g u32vector-length 6g
u32vector-ref 7g u32vector-set! 8g u32vector->list 9g list->u32vector :g
s32vector? ;g make-s32vector <g s32vector =g s32vector-length >g
s32vector-ref ?g s32vector-set! @g s32vector->list Ag list->s32vector Bg
u64vector? Cg make-u64vector Dg u64vector Eg u64vector-length Fg
u64vector-ref Gg u64vector-set! Hg u64vector->list Ig list->u64vector Jg
s64vector? Kg make-s64vector Lg s64vector Mg s64vector-length Ng
s64vector-ref Og s64vector-set! Pg s64vector->list Qg list->s64vector Rg
f32vector? Sg make-f32vector Tg f32vector Ug f32vector-length Vg
f32vector-ref Wg f32vector-set! Xg f32vector->list Yg list->f32vector Zg
f64vector? [g make-f64vector \g f64vector ]g f64vector-length ^g
f64vector-ref _g f64vector-set! `g f64vector->list ag list->f64vector b !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a P cg set-current-module dc ec fg cond-expand-provide gg current-module h ig make-syntax-transformer ji ki lg define-bytevector-type mg macro ng $sc-dispatch on pn qg _ rg any sqr tg
syntax->datum ut vt wg
datum->syntax xw yw zg begin {g define |g
symbol-append }g vector? ~g obj ~ g and g bytevector? ~ g eq? g
array-type ~ g quote g make- g vector g len g fill g apply g make-srfi-4-vector g
vector-length g v g let g / g bytevector-length g if g integer? g error f fractional length g elts g list-> g let* g length g lp g i
g < g pair? g vector-set! g car g 1+ g cdr g vector->list g 1-
g cons g
vector-ref g bytevector- g -ref g * g x g -set! g syntax-violation f -source expression failed to match any pattern g u8 g s8 g u16 g s16 g u32 g s32 g u64 g s64 g f32 g f64C 5 hH ]4
b5 4e > " G 4fi4gi5 h> " G 4klmpsvyz{|} 7 h ]4 5
4 5
4 5
4 5 4 5 4 5 4 5! "#$4 %5&' 4 (5")*4 5 +, "-.4 /50 4 /5041253) 4 %5441553) 6 4 %5441553) 6
C g tag
g infix g size g filenamef srfi/srfi-4.scm
J
K L
L " L K - N 1 N 5 N ) 7 N 9 K P P V P " X P Z K U U " U K V V V $ V K W W W * W K Y Y " Y - Y K ] ] & ] K ` ` "
` K a a , ! a # K : d @ d 3 B d D K X e ^ e " ` e b K d f h f l f + n f p K g g " g K h h h + h K i i " i K j j j + j K N C h c ] 4 5 L 4?6[ g args
g v g filenamef srfi/srfi-4.scm J
C h( a ] 4 5 $ O @ 6 Y g y
' g tmp ' g filenamef srfi/srfi-4.scm
J
' C5lR h i ]4 5$ 4 5CC a g obj
g filenamef srfi/srfi-4.scm
l
g nameg u8vector? CR h - 1 3 @ x g len
g fill g filenamef srfi/srfi-4.scm
l
g nameg
make-u8vector CR h( ] 4 5 45$ C 6 } g v
& g len & g filenamef srfi/srfi-4.scm
l
T & g nameg u8vector-length CR h k - 1 3 6 c g elts
g filenamef srfi/srfi-4.scm
l
g nameg u8vector CR hP ]!4 5 45 " ,$ $ "CC
" g elts
O g len O g v O g i D g elts D g filenamef srfi/srfi-4.scm
l
O g nameg list->u8vector CR h8 ]"
$ C "4 5 " g v
5 g i $ g elts $ g filenamef srfi/srfi-4.scm
l
5 g nameg u8vector->list CR h y ] C q g v
g i
g filenamef srfi/srfi-4.scm
l
g nameg u8vector-ref CR h ] C g v
g i
g x
g filenamef srfi/srfi-4.scm
l
g nameg
u8vector-set! CR h ] C g v
g i
g x
g filenamef srfi/srfi-4.scm
l
g nameg
u8vector-set! CR h i ]4 5$ 4 5CC a g obj
g filenamef srfi/srfi-4.scm
m
g nameg s8vector? CR h - 1 3 @ x g len
g fill g filenamef srfi/srfi-4.scm
m
g nameg
make-s8vector CR h( ] 4 5 45$ C 6 } g v
& g len & g filenamef srfi/srfi-4.scm
m
T & g nameg s8vector-length C R! h k - 1 3 6 c g elts
g filenamef srfi/srfi-4.scm
m
g nameg s8vector C R hP ]!4 5 45 " ,$ $ "CC
" g elts
O g len O g v O g i D g elts D g filenamef srfi/srfi-4.scm
m
O g nameg list->s8vector C!R h8 ]"
$ C "4 5 " g v
5 g i $ g elts $ g filenamef srfi/srfi-4.scm
m
5 g nameg s8vector->list C R h y ] C q g v
g i
g filenamef srfi/srfi-4.scm
m
g nameg s8vector-ref C R h ] C g v
g i
g x
g filenamef srfi/srfi-4.scm
m
g nameg
s8vector-set! C R h ] C g v
g i
g x
g filenamef srfi/srfi-4.scm
m
g nameg
s8vector-set! C R h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
n
g nameg
u16vector? C"R h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
n
g nameg make-u16vector C#R h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
n
T ( g nameg u16vector-length C%R) h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
n
g nameg u16vector C$R# hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
n
R g nameg list->u16vector C)R% h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
n
8 g nameg u16vector->list C(R h z ] C r g v
g i g filenamef srfi/srfi-4.scm
n
g nameg
u16vector-ref C&R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
n
g nameg u16vector-set! C'R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
n
g nameg u16vector-set! C'R h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
o
g nameg
s16vector? C*R h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
o
g nameg make-s16vector C+R h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
o
T ( g nameg s16vector-length C-R1 h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
o
g nameg s16vector C,R+ hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
o
R g nameg list->s16vector C1R- h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
o
8 g nameg s16vector->list C0R h z ] C r g v
g i g filenamef srfi/srfi-4.scm
o
g nameg
s16vector-ref C.R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
o
g nameg s16vector-set! C/R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
o
g nameg s16vector-set! C/R h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
p
g nameg
u32vector? C2R h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
p
g nameg make-u32vector C3R h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
p
T ( g nameg u32vector-length C5R9 h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
p
g nameg u32vector C4R3 hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
p
R g nameg list->u32vector C9R5 h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
p
8 g nameg u32vector->list C8R h z ] C r g v
g i g filenamef srfi/srfi-4.scm
p
g nameg
u32vector-ref C6R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
p
g nameg u32vector-set! C7R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
p
g nameg u32vector-set! C7R h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
q
g nameg
s32vector? C:R h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
q
g nameg make-s32vector C;R h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
q
T ( g nameg s32vector-length C=RA h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
q
g nameg s32vector C<R; hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
q
R g nameg list->s32vector CAR= h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
q
8 g nameg s32vector->list C@R h z ] C r g v
g i g filenamef srfi/srfi-4.scm
q
g nameg
s32vector-ref C>R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
q
g nameg s32vector-set! C?R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
q
g nameg s32vector-set! C?R h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
r
g nameg
u64vector? CBR h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
r
g nameg make-u64vector CCR h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
r
T ( g nameg u64vector-length CERI h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
r
g nameg u64vector CDRC hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
r
R g nameg list->u64vector CIRE h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
r
8 g nameg u64vector->list CHR h z ] C r g v
g i g filenamef srfi/srfi-4.scm
r
g nameg
u64vector-ref CFR h ] C g v
g i g x g filenamef srfi/srfi-4.scm
r
g nameg u64vector-set! CGR h ] C g v
g i g x g filenamef srfi/srfi-4.scm
r
g nameg u64vector-set! CGR h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
s
g nameg
s64vector? CJR h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
s
g nameg make-s64vector CKR h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
s
T ( g nameg s64vector-length CMRQ h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
s
g nameg s64vector CLRK hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
s
R g nameg list->s64vector CQRM h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
s
8 g nameg s64vector->list CPR h z ] C r g v
g i g filenamef srfi/srfi-4.scm
s
g nameg
s64vector-ref CNR h ] C g v
g i g x g filenamef srfi/srfi-4.scm
s
g nameg s64vector-set! COR h ] C g v
g i g x g filenamef srfi/srfi-4.scm
s
g nameg s64vector-set! COR h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
t
g nameg
f32vector? CRR h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
t
g nameg make-f32vector CSR h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
t
T ( g nameg f32vector-length CURY h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
t
g nameg f32vector CTRS hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
t
R g nameg list->f32vector CYRU h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
t
8 g nameg f32vector->list CXR h z ] C r g v
g i g filenamef srfi/srfi-4.scm
t
g nameg
f32vector-ref CVR h ] C g v
g i g x g filenamef srfi/srfi-4.scm
t
g nameg f32vector-set! CWR h ] C g v
g i g x g filenamef srfi/srfi-4.scm
t
g nameg f32vector-set! CWR h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
u
g nameg
f64vector? CZR h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
u
g nameg make-f64vector C[R h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
u
T ( g nameg f64vector-length C]Ra h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
u
g nameg f64vector C\R[ hX ]!4 5 45 " /$ #$ "CC
" g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
u
R g nameg list->f64vector CaR] h8 ]" !
$ C "4 5 "΅ g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
u
8 g nameg f64vector->list C`R h z ] C r g v
g i g filenamef srfi/srfi-4.scm
u
g nameg
f64vector-ref C^R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
u
g nameg f64vector-set! C_R h ] C g v
g i g x g filenamef srfi/srfi-4.scm
u
g nameg f64vector-set! C_RC g m
, g filenamef srfi/srfi-4.scm
- G
2 G : G & ? G
l
, m
n
E o
! p
(e q
. r
5 s
< t
B u
H
C6 PK ! =WcA cA srfi/srfi-18.gonu [ GOOF----LE-8-2.0KA ] 4 h
] g guile g define-module* g srfi g srfi-18 g filenameS
f srfi/srfi-18.scm g importsS g srfi-34
g exportsS g make-thread g thread-name g thread-specific g thread-specific-set! g
thread-start! g
thread-yield! g
thread-sleep! g thread-terminate! g thread-join! g
make-mutex g
mutex-name g mutex-specific g mutex-specific-set! g mutex-state g mutex-lock! g
mutex-unlock! !g make-condition-variable "g condition-variable-name #g condition-variable-specific $g condition-variable-specific-set! %g condition-variable-signal! &g condition-variable-broadcast! 'g condition-variable-wait! (g current-time )g time? *g
time->seconds +g
seconds->time ,g current-exception-handler -g with-exception-handler .g raise /g join-timeout-exception? 0g abandoned-mutex-exception? 1g terminated-thread-exception? 2g uncaught-exception? 3g uncaught-exception-reason 4 !"#$%&'()*+,-./0123 # 5g
re-exportsS 6g current-thread 7g thread? 8g mutex? 9g condition-variable? :6789 ;g replacementsS <(!. =g set-current-module >= ?= @g provided? Ag threads Bg error Cf +SRFI-18 requires Guile with threads support Dg cond-expand-provide Eg current-module F Gg scm-error Hg wrong-type-arg If Wrong type argument: ~S Jg check-arg-type Kg abandoned-mutex-exception Lg join-timeout-exception Mg terminated-thread-exception Ng uncaught-exception Og make-weak-key-hash-table Pg object-names Qg object-specifics Rg thread-start-conds Sg thread-exception-handlers T
. U
. Vg srfi-18-exception-preserver Wg initial-handler Xg make-object-property Yg thread->exception Zg setter [Z \Z ]g srfi-18-exception-handler ^g hashq-ref _g
hashq-set! `g current-handler-stack ag
procedure? bf with-exception-handler cg thunk? d
- e
- ff uncaught-exception-reason gg launch-mutex hg launch-condition-variable ig start-mutex jg start-condition-variable kg
lock-mutex lg call-with-new-thread mg signal-condition-variable ng unlock-mutex og wait-condition-variable pf thread-name qf thread-specific rf thread-specific-set! sf
thread-start! tg
hashq-remove! ug yield vg number? wf
thread-sleep! xg inexact->exact yg truncate zg sleep {g usleep |g wrap }g thread-cleanup ~g set-thread-cleanup! g
cancel-thread g join-thread g length g unchecked-unlock g allow-external-unlock g recursive f
mutex-name f mutex-specific f mutex-specific-set! g mutex-owner g thread-exited? g abandoned g mutex-level g not-owned g
not-abandoned g catch g abandoned-mutex-error ! ! f condition-variable-name f condition-variable-specific f condition-variable-specific-set! g broadcast-condition-variable g gettimeofday g integer? f
time->seconds f
seconds->timeC 5 h@0 ]4
45:;<5 4? > " G 4@iA5$ " 4BiC> " G 4Di4Ei5 F> " G GHI h ]4 5$ C 6 g pred
g arg g caller g filenamef srfi/srfi-18.scm
`
a
a c d d + d 6 c g nameg check-arg-type CJRK KRL LRM MRN NR4Oi5 PR4Oi5 QR4Oi5 RR4Oi5 SRU.RVN h ] 6 x g obj
g filenamef srfi/srfi-18.scm
s
t t g nameg initial-handler CWR4Xi5 YR12\Y6 h8 ] 4 5 $ " 4 5 $ 4545 6C g obj
6 g t g filenamef srfi/srfi-18.scm
x
y
y z
$ y , { 4 { 6 g nameg srfi-18-exception-preserver CVR VN h0 - 1 3 & C( " 6 g key
. g args . g filenamef srfi/srfi-18.scm
}
$ ( + ( . .
g nameg srfi-18-exception-handler C]R6^S_W h0 ]45 4 5 $ C 6 g ct
* g t * g filenamef srfi/srfi-18.scm
( 1 * *
g nameg current-handler-stack C`R6`Jabc_Se_S h h ]4LL> " G L 6 ` g obj
g filenamef srfi/srfi-18.scm
C_S h0 q ]4L> G 4L L> " G E i g res
* g filenamef srfi/srfi-18.scm
* *
C hp $ ]45 45 4 > " G 4> " G 4 > " G
O O 6 g handler
o g thunk o g ct o g hl o g filenamef srfi/srfi-18.scm
' ' / ! 4 = H - M o o g nameg with-exception-handler C-R` h { ] 45 C s g filenamef srfi/srfi-18.scm
g nameg current-exception-handler C,RL h ] Cz g obj
g filenamef srfi/srfi-18.scm
& g nameg join-timeout-exception? C/RK h ] C} g obj
g filenamef srfi/srfi-18.scm
) g nameg abandoned-mutex-exception? C0RN h ] $ CC g obj
g filenamef srfi/srfi-18.scm
g nameg uncaught-exception? C2RJ2f h ]4 5C g exc
g filenamef srfi/srfi-18.scm
/
g nameg uncaught-exception-reason C3RM h ] C g obj
g filenamef srfi/srfi-18.scm
g nameg terminated-thread-exception? C1Rg!hijklkmno-W hx ] 4L> " G 4L> " G 4L> " G 4L> " G 4LL> " G 4L> " G L 6{ g filenamef srfi/srfi-18.scm
' 9 K _ x x
C]_RPon h - 1 3 $ " 45454545 4> " G 4 O
5 4 > " G $ 4
> " G " 4> " G 4> " G C g thunk
g name g n 4 g lm 4 g lc 4 g sm 4 g sc 4 g t f g filenamef srfi/srfi-18.scm
! $ ) & ' + - . 2 ) 4 4 ? Q f i
t + y
CR^PJ7p h ]4 56 g thread
g filenamef srfi/srfi-18.scm
9 g nameg thread-name CR^QJ7q h ]4 56 g thread
g filenamef srfi/srfi-18.scm
,
g nameg thread-specific CR_QJ7r h( ]44 5> " G C g thread
# g obj # g filenamef srfi/srfi-18.scm
- # g nameg thread-specific-set! CR^RJ7stkmn
h % ]44 55 $ ^ 4 > " G 4> " G 4> " G 4 > " G " C g thread
} g x } g smutex " v g scond " v g filenamef srfi/srfi-18.scm
5 " " '
;
M
_
} g nameg
thread-start! CRu h f ] 4> " G C ^ g filenamef srfi/srfi-18.scm
g nameg
thread-yield! CR*()vGHwIxyz{
h ]!445 5 4 5$ 4 5" %4 5$ " 4 5 4 4
55 4 4
B@55
$ 4 > " G "
$ 4 > " G " C g timeout
g ct g t L g secs Z g usecs u g filenamef srfi/srfi-18.scm
& # # ( 2 7 % < @ # B 3 D # I # J # L L O R Z Z ] ` g - q * s u u { & g nameg
thread-sleep! CR-, h z ]445 > " G L 6 r g obj
g filenamef srfi/srfi-18.scm
C h h ] O L 6 ` g continuation
g filenamef srfi/srfi-18.scm
C h h ] O C ` g thunk
g filenamef srfi/srfi-18.scm
g nameg wrap C|R}c~-WVM h V ] 4L > " G 6 N g filenamef srfi/srfi-18.scm
! !
CVM h M ] 6E g filenamef srfi/srfi-18.scm
*
C h` ] 4 5 45$ 4 O > " G " 4 > " G 4 > " G C g thread
[ g current-handler [ g filenamef srfi/srfi-18.scm
4
H [ g nameg thread-terminate! CR|Y.L hh ]4L L?4L 5 4L5 $ $ " 4> " G " $ 4> " G " C g v
b g e b g filenamef srfi/srfi-18.scm
# ) . I J b
C h - 1 3 H4 O 5KJB g thread
g args g thread-join-inner!
g filenamef srfi/srfi-18.scm
g nameg thread-join! CR_P hP - 1 3 $ " 45 $ 4> " G " C g name
J g n # J g m # J g filenamef srfi/srfi-18.scm
# $ $
$ %
% & ' ! ( # %
# $ - ) . )
J
g nameg
make-mutex CR^PJ8 h ]4 56 g mutex
g filenamef srfi/srfi-18.scm
+
, , 7 , , g nameg
mutex-name CR^QJ8 h ]4 56 g mutex
g filenamef srfi/srfi-18.scm
.
0
0 * 0
/ g nameg mutex-specific C R_QJ8 h( ]44 5> " G C g mutex
# g obj # g filenamef srfi/srfi-18.scm
2
3 4 4 + 4 3 # g nameg mutex-specific-set! C R h8 ] 4 5 $ 45$ CC4 5
$ CC g mutex
5 g owner 5 g filenamef srfi/srfi-18.scm
8
9 9 : ; ; ; # # < + < / < 1 < & 4 < 1
5 g nameg mutex-state C R|k h M ] LL @ E g filenamef srfi/srfi-18.scm
B
B
C.K h r - 1 3 6 j g key
g args g filenamef srfi/srfi-18.scm
C C (
C h V ] L LO 6 N g filenamef srfi/srfi-18.scm
@
A A
C h - 1 3 H4 O 5KJB g mutex
g args g mutex-lock-inner!
g filenamef srfi/srfi-18.scm
>
@ D
g nameg mutex-lock! C Rn h - 1 3 @ g mutex
g args g filenamef srfi/srfi-18.scm
F
G
g nameg
mutex-unlock! C R_P hH - 1 3 $ " 45 $ 4> " G " C g name
D g n D g m D g filenamef srfi/srfi-18.scm
M N N
N O
O O
N ' P ( P
D
g nameg make-condition-variable C!R^PJ9 h ]4 56 g condition-variable
g filenamef srfi/srfi-18.scm
R
S U * S S g nameg condition-variable-name C"R^QJ9 h ]4 56 g condition-variable
g filenamef srfi/srfi-18.scm
W
X Z . X X g nameg condition-variable-specific C#R_QJ9 h( ]44 5> " G C g condition-variable
# g obj # g filenamef srfi/srfi-18.scm
\
] ^ ` ^ ] # g nameg condition-variable-specific-set! C$Rm h ]4 > " G C ~ g cond
g filenamef srfi/srfi-18.scm
d
e g nameg condition-variable-signal! C%R h ]4 > " G C g cond
g filenamef srfi/srfi-18.scm
h
i g nameg condition-variable-broadcast! C&Ri(R hH ] $ 9 45$
" $ 45$
CCCC g obj
D g co % g co , @ g filenamef srfi/srfi-18.scm
o
p p q q q " q q 0 ) p , r , r / r " 9 r = r 0 D g nameg time? C)RJ) h( ]4 5$ B@CC g time
% g filenamef srfi/srfi-18.scm
t
u u "
u u v
v ! v " v
% g nameg
time->seconds C*RJvyx h@ ] 4 5$ +4 5 4544 B@55CC g x
> g fx < g filenamef srfi/srfi-18.scm
x
y y !
y y z z { " | % | , | , 6 | ) 8 | : | ; { > g nameg
seconds->time C+RC g m
4 g filenamef srfi/srfi-18.scm
5 [ ; [ = [ A [
F \ L \ Q \ Z ^
_ ^ g ^ & l ^
x `
z f ( } f " f
g % g g
h * h $ h
i ! i i
k k
l l
m m
n " n
r
k s
l v u v
x
}
F
L
_
+
*
o
3
t
"
+
! .
" 2
# 8
&> >
& F
(F L
)' R
* W
+" \
+ d
, h
, n
- o
. t
0= x
K 0?
C6 PK ! *YVu Vu srfi/srfi-37.gonu [ GOOF----LE-8-2.0>u ] 4 h6: ] g guile g define-module* g srfi g srfi-37 g filenameS
f srfi/srfi-37.scm g importsS g srfi-9
g exportsS g option g option-names g option-required-arg? g option-optional-arg? g option-processor g args-fold g set-current-module g cond-expand-provide g current-module g srfi-37:option g %option-procedure g make-syntax-transformer ! " #g macro $g $sc-dispatch %$ &$ 'g _ (g any )'(((( *g
syntax-object +g lambda ,g m-46961e511b-153 -g top .,- /g ribcage 0g t-46961e511b-14f 1g t-46961e511b-150 2g t-46961e511b-151 3g t-46961e511b-152 40123 5.... 6f l-46961e511b-158 7f l-46961e511b-159 8f l-46961e511b-15a 9f l-46961e511b-15b :6789 ;/45: </ =g x >= ?. @f l-46961e511b-155 A@ B/>?A Cg shift Dg proc-name Eg args FDE G- HGG If l-1e8ba8b5a-2ba Jf l-1e8ba8b5a-2bb KIJ L/FHK Mg key Ng value Og name Pg formals Qg body RMNOPQ SGGGGG Tf l-1e8ba8b5a-2ad Uf l-1e8ba8b5a-2ae Vf l-1e8ba8b5a-2af Wf l-1e8ba8b5a-2b0 Xf l-1e8ba8b5a-2b1 YTUVWX Z/RSY [g make-procedure-name \[ ]G ^f l-1e8ba8b5a-29d _^ `/\]_ aG bf l-1e8ba8b5a-29c cb d/>ac e.;<BC<<<<LZ`d
fg hygiene gf h*+eg ig names jG;<B kf l*ijk mg
required-arg? n*mjk og
optional-arg? p*ojk qg processor r*qjk slnpr tg make-struct ug m-46961e511b-14d vu- wg t-1e8ba8b5a-38d xg t-1e8ba8b5a-38c yg t-1e8ba8b5a-38b zwxy {g m-1e8ba8b5a-38e |{- }||| ~f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 ~ /z} g ctor-args f l-1e8ba8b5a-37a /a g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 /H g form g type-name g constructor-spec g field-names GGGG f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e / g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers GGGGGGGG f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 / f l-1e8ba8b5a-334 />a v;<BC<<<<< *tg * jk *
g lnpr hs g each-any ' g syntax-violation
f Wrong number of arguments g identifier?
G<B * k f -source expression failed to match any pattern g record-type-vtable
g pwpwpwpw g default-record-printer
imoq g set-struct-vtable-name!
g vtable-offset-user
g %option?-procedure g option? '( g m-46961e511b-166 - g t-46961e511b-165 f l-46961e511b-16b / f l-46961e511b-168 /> <C<<<<LZ`d
*+g g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f - f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 / g copier-id f l-1e8ba8b5a-476 /a g ctor-name f l-1e8ba8b5a-46e /a f l-1e8ba8b5a-46c /a g layout f l-1e8ba8b5a-46a
/a
g
immutable?
f l-1e8ba8b5a-468 /
a g field-count f l-1e8ba8b5a-466 /a g
getter-ids f l-1e8ba8b5a-463 /a g field-ids f l-1e8ba8b5a-460 / a g predicate-name !g
field-spec " ! #GGGGGG $f l-1e8ba8b5a-453 %f l-1e8ba8b5a-454 &f l-1e8ba8b5a-455 'f l-1e8ba8b5a-456 (f l-1e8ba8b5a-457 )f l-1e8ba8b5a-458 *$%&'() +/"#* ,v<C<<<<<<<< <<<< + -*,g .- /g and 0*/,g 1g struct? 2*1,g 32- 4g eq? 5*4,g 6g
struct-vtable 7*6,g 87- 9G< :* 9k ;58: <03; =.< >G< ?*>k @g throw-bad-struct A
@ B
@ Cg %option-names-procedure Dg free-id Eg
%%on-error Fg m-46961e511b-172 GF- HG If l-46961e511b-174 JI K/>HJ LG<KC<<<<LZ`d M*ELg NDM ON( Pg %%type Qg t-1e8ba8b5a-3a5 Rg t-1e8ba8b5a-3a6 Sg t-1e8ba8b5a-3a7 Tg t-1e8ba8b5a-3a8 Ug t-1e8ba8b5a-3a9 Vg t-1e8ba8b5a-3aa Wg t-1e8ba8b5a-3ab XQRSTUVW Yg m-1e8ba8b5a-3ac ZY- [ZZZZZZZ \f l-1e8ba8b5a-3b0 ]f l-1e8ba8b5a-3b1 ^f l-1e8ba8b5a-3b2 _f l-1e8ba8b5a-3b3 `f l-1e8ba8b5a-3b4 af l-1e8ba8b5a-3b5 bf l-1e8ba8b5a-3b6 c\]^_`ab d/X[c eg getter fg index gef hf l-1e8ba8b5a-3a3 if l-1e8ba8b5a-3a4 jhi k/gHj l mGGG nf l-1e8ba8b5a-39e of l-1e8ba8b5a-39f pf l-1e8ba8b5a-3a0 qnop r/lmq sv<KC<d<<<k<r t*Psg uDt v'Ou( wg ck xg err yg s zxy {GG |f l-46961e511b-177 }f l-46961e511b-178 ~|} /z{~ G<KC<<<<LZ`d
*wg g quote *g G<K * k g %%index *sg D 'O( f l-46961e511b-17c f l-46961e511b-17d /z{ G<KC<<<<LZ`d
*wg *g <K *
k g %%copier *sg D 'O( f l-46961e511b-181 f l-46961e511b-182 /z{ G<KC<<<<LZ`d
*wg *g g %%srfi-37:option-set-fields G<K *k g t-46961e511b-171 f l-46961e511b-186 /H G<KC<<<<LZ`d
*+g v<KC<d<<<k<r *yg g if *g *4g *6g G<K * k g
struct-ref *g <K *
k *@g *g *k G<K *Ck g %option-required-arg?-procedure g m-46961e511b-18d - f l-46961e511b-18f /> <C<<<<LZ`d *Eg D ( v<C<d<<<k<r *Pg D '( f l-46961e511b-192 f l-46961e511b-193 /z <C<<<<LZ`d
*wg *g G< * k *g D '( f l-46961e511b-197 f l-46961e511b-198 /z <C<<<<LZ`d
*wg *g < * k *g D '( f l-46961e511b-19c f l-46961e511b-19d /z <C<<<<LZ`d
*wg *g G< *k g t-46961e511b-18c f l-46961e511b-1a1 / <C<<<<LZ`d
*+g v<C<d<<<k<r *yg *g *4g
*6g
G<
* k
*g < * k *@g *g * k G< *k g %option-optional-arg?-procedure g m-46961e511b-1a8 - f l-46961e511b-1aa ! "/> ! # <"C<<<<LZ`d $*E#g %D$ &%( 'v<"C<d<<<k<r (*P'g )D( *'&)( + ,f l-46961e511b-1ad -f l-46961e511b-1ae .,- //z+. 0 /<"C<<<<LZ`d
1*w0g 2*0g 3G/<" 4* 3k 524 65 7*'g 8D7 9'&8( :f l-46961e511b-1b2 ;f l-46961e511b-1b3 <:; =/z+< > =<"C<<<<LZ`d
?*w>g @*>g A=<" B* Ak C@B DC E*'g FDE G'&F( Hf l-46961e511b-1b7 If l-46961e511b-1b8 JHI K/z+J L K<"C<<<<LZ`d
M*wLg N*Lg OGK<" P*Ok QNP RQ Sg t-46961e511b-1a7 TS Uf l-46961e511b-1bc VU W/T V X W<"C<<<<LZ`d
Y*+Xg ZvW<"C<d<<<k<r [*yZg \[ ]*Zg ^*4Zg _*6Zg `_[ aGW<" b* ak c^`b d*Zg eW<" f* ek gd[f h*@Zg i*Zg j*ak kij lh[k m]cgl nY\m oG<" p* ok qg %option-processor-procedure rg m-46961e511b-1c3 sr- ts uf l-46961e511b-1c5 vu w/>tv xs<wC<<<<LZ`d y*Exg zDy {z( |v<wC<d<<<k<r }*P|g ~D} '{~( ss f l-46961e511b-1c8 f l-46961e511b-1c9 /z s<wC<<<<LZ`d
*wg *g G<w * k *|g D '{( f l-46961e511b-1cd f l-46961e511b-1ce /z s<wC<<<<LZ`d
*wg *g <w * k *|g D '{( f l-46961e511b-1d2 f l-46961e511b-1d3 /z s<wC<<<<LZ`d
*wg *g G<w *k g t-46961e511b-1c2 f l-46961e511b-1d7 /t s<wC<<<<LZ`d
*+g v<wC<d<<<k<r *yg *g *4g *6g G<w * k *g <w * k *@g *g *k G<w *qk g each (( (Ȍ (Ɍ (ʌ g %%set-fields g dummy g check? g expr ye g m-46961e511b-1de - vvvv f l-46961e511b-1e3 f l-46961e511b-1e4 f l-46961e511b-1e5 f l-46961e511b-1e6 f l-46961e511b-1e7 / f l-46961e511b-1e0 /> g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 - f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd / f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 /lm v<C<<<<
*g G< * k *k *k *k *k g map g list g scm-error g
program-error f args-fold f Duplicate option name `~A~A' g char? f -- g error-duplicate-option g make-hash-table g length g for-each g hash-create-handle! g build-options-lookup g append
g
string-length g substring g
string-ref
g hash-ref g
misc-error f %Missing required argument after `-~A' g char=? g string-index f &Missing required argument after `--~A' f Extraneous argument after `--~A'C 5 h(7 ]4
5 4 > " G 4i4 i5 > " G h ] C g names
g
required-arg? g
optional-arg? g processor g filenamef srfi/srfi-37.scm
E
g nameg %option-procedure C R4"#&) h ] C g t-46961e511b-14f
g t-46961e511b-150 g t-46961e511b-151 g t-46961e511b-152 C h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C' h C ] L 6; g filenamef srfi/srfi-37.scm E
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 srfi/srfi-37.scm
E
n C5R ͨ 4 > " G Ӗ i R h s ] $ CC k g obj
g filenamef srfi/srfi-37.scm
E
g nameg %option?-procedure CR4"#&= h 8 ] C 0 g t-46961e511b-165
C h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C' h C ] L 6; g filenamef srfi/srfi-37.scm E
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 srfi/srfi-37.scm
E
n C5R B h v ] &
C 6n g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-names-procedure CCR4"#&v 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 8 ] C 0 g t-46961e511b-171
C h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C' h C ] L 6; g filenamef srfi/srfi-37.scm E
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 srfi/srfi-37.scm
E
C5R B h ~ ] & C 6v g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-required-arg?-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 8 ] C 0 g t-46961e511b-18c
C h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C' h C ] L 6; g filenamef srfi/srfi-37.scm E
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 srfi/srfi-37.scm
E
C5R B h ~ ] & C 6 v g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-optional-arg?-procedure C R4"#&*16 h : ]C 2 g err
g s C9?D h : ]C 2 g err
g s CGMR h : ]C 2 g err
g s Cn h 8 ] C 0 g t-46961e511b-1a7
C h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C' h C ] L 6; g filenamef srfi/srfi-37.scm E
Cp 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 srfi/srfi-37.scm
E
C5R B h z ] & C 6 r g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-processor-procedure CqR4"#& 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 8 ] C 0 g t-46961e511b-1c2
C h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C' h C ] L 6; g filenamef srfi/srfi-37.scm E
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 srfi/srfi-37.scm
E
C5R4"#& 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 srfi/srfi-37.scm
E
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R h( ]4 5$ -" 6 g option-name
% g filenamef srfi/srfi-37.scm
M
N
N
O
P P P / " P
% N
% g nameg error-duplicate-option CR h( ] 4L 5 $ 6LC g name
# g assoc # g filenamef srfi/srfi-37.scm
[ \ \ ^ ^ _ 1 _ ! ` # C B h0 e ]L O &
" 4 56 ] g opt
) g filenamef srfi/srfi-37.scm
Z a ) [ ) C h0 k ] 4 4 55 4O > " G C c g options
/ g lookup / g filenamef srfi/srfi-37.scm
T
X X & X ! X X Y / g nameg build-options-lookupg
documentationf Answer an `equal?' Guile hash-table that maps OPTIONS' names back
to the containing options, signalling an error if a name is
encountered more than once. CR B h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C h q ] & " 4 5 & " 4 5$ 45 " 9 & " 4 5$ 45 " 4> " G 44L O > 5" =N C i g opt
g name g req-arg-proc g opt-arg-proc g no-arg-proc g procedure g params g filenamef srfi/srfi-37.scm
$ ? @ ) K g h ) q p p
g nameg invoke-option-processor C
hP { ] 4M 5$ 4M 5 M N CM $ M M N CM $ M N CC s g position
N g result ' g result 3 > g filenamef srfi/srfi-37.scm
-
& 1
" $ * +
/ 2 3
8 ; A
E H J
N g nameg short-option-argument C
h( ]4L L5 $ CL 6 g t
( g args
( g filenamef srfi/srfi-37.scm
m ! m # ! ( m (
C h M ] LL 6E g filenamef srfi/srfi-37.scm
C h D ] C < g filenamef srfi/srfi-37.scm
C B h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C
h ] 4M5$ MNL6 4M 5 4L5 $ ~4LL O LO > " G & " 4 5 $ " & " 4
5 $ C "M L 4 4 LLO > 5" =N " g position
g opt-name $ g option-here / g t { g names g params g filenamef srfi/srfi-37.scm
&
' $ $
' /
7 8 d { % * " p p ! g nameg short-option C
h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C h( ] 44L LO > 5" =N Cx g arg
( g params ( g filenamef srfi/srfi-37.scm
w w
p & p ( C
h( ]L$ LL6L 6 g args
% g filenamef srfi/srfi-37.scm
& m m % m
%
C h _ ] L$ L L6C W g filenamef srfi/srfi-37.scm
6 '
C h ]L$ L 6C g args
g filenamef srfi/srfi-37.scm
m m m
C h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C h A ]8M( MEM 4-4
55 $ " 4 5 $ 0 44LL O > 5" =N MN" @4-4 55$ 4 5$ 'MN4LL O M> " G N" M " 4=5 4 $ " 455 4
L5 $ 54L O O
O > " hG " a$ " L 44LLO > 5" =N" ". MN" 4L > " G "P 9 g arg
g t ! : g params C e g arg g start-pos g index g opt-name g option-here g names D T g params Z
g filenamef srfi/srfi-37.scm
( ! ! 0 7 > C F p b p h j o t } ) w y y
, 6
6 9 # ? D D Z ] p y p :
g nameg next-arg C h J - 1 3
H H45 O O O O Q Q Q Q 6 B g args
| g options | g unrecognized-option-proc | g operand-proc | g seeds | g lookup | g invoke-option-processor H | g short-option-argument H | g short-option H | g next-arg H |
g filenamef srfi/srfi-37.scm
e
j j | |
g nameg args-foldg
documentationf Answer the results of folding SEEDS as multiple values against the
program-arguments in ARGS, as decided by the OPTIONS'
`option-processor's, UNRECOGNIZED-OPTION-PROC, and OPERAND-PROC. CRC g m
, g rtd
> g filenamef srfi/srfi-37.scm *
- 0
2 0 : 0 & ? 0
, E
M
! T
7% e
7'
C6 PK ! Ρ srfi/srfi-34.gonu [ GOOF----LE-8-2.0s ] z 4 hn ] g guile g define-module* g srfi g srfi-34 g filenameS
f srfi/srfi-34.scm g exportsS g with-exception-handler
g guard
g replacementsS g raise g set-current-module g cond-expand-provide g current-module g throw-key g with-throw-handler g throw g make-syntax-transformer g macro g $sc-dispatch ! "g any #g each+ $g free-id %g
syntax-object &g else 'g top (' )g ribcage *) +g x ,+ -g m-46961e5118-a .-' /. 0f l-46961e5118-c 10 2),/1 3(*2 4g hygiene 54 6%&35 7$6 8g each-any 9"8 :79 ;: <#"; ="< >=9 ?"> @g catch Ag dummy Bg var Cg clause Dg e Eg e* Fg body Gg body* HABCDEFG I.(((((( Jf l-46961e5118-f Kf l-46961e5118-10 Lf l-46961e5118-11 Mf l-46961e5118-12 Nf l-46961e5118-13 Of l-46961e5118-14 Pf l-46961e5118-15 QJKLMNOP R)HIQ S(R*2 T%@S5 U%S5 Vg lambda W%VS5 Xg key Y%XS5 Zg cond [%ZS5 \g append ]\ ^\ _%&S5 `"9 a`9 b"a cg clause* dABCcFG e.((((( ff l-46961e5118-21 gf l-46961e5118-22 hf l-46961e5118-23 if l-46961e5118-24 jf l-46961e5118-25 kf l-46961e5118-26 lfghijk m)del n(m*2 o%@n5 p%n5 q%Vn5 r%Xn5 s%Zn5 t%&n5 u%n5 vg syntax-violation wv xv yf -source expression failed to match any patternC 5 h
]4
5 4 > " G 4i4i5 > " G R h n ]L 6f g key
g obj g filenamef srfi/srfi-34.scm
, - C h ] O 6 g handler
g thunk g filenamef srfi/srfi-34.scm
%
* g nameg with-exception-handlerg
documentationf Returns the result(s) of invoking THUNK. HANDLER must be a
procedure that accepts one argument. It is installed as the current
exception handler for the dynamic extent (as determined by
dynamic-wind) of the invocation of THUNK. C R h ] 6 g obj
g filenamef srfi/srfi-34.scm
/
5
g nameg raiseg
documentationf 6Invokes the current exception handler on OBJ. The handler is
called in the dynamic environment of the call to raise, except that
the current exception handler is that in place for the call to
with-exception-handler that installed the handler being called. The
handler's continuation is otherwise unspecified. CR4
!?TUWY[^_ h8 ] 4 5 C g dummy
5 g var 5 g clause 5 g e 5 g e* 5 g body 5 g body* 5 5 Cbopqrs^tu h@ ] 4 5 C g dummy
> g var > g clause > g clause* > g body > g body* > > Cxy h@ ]4 5 $ @4 5 $ @ 6
g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-34.scm
8 9 g
documentationf Syntax: (guard (<var> <clause1> <clause2> ...) <body>)
Each <clause> should have the same form as a `cond' clause.
Semantics: Evaluating a guard form evaluates <body> with an exception
handler that binds the raised object to <var> and within the scope of
that binding evaluates the clauses as if they were the clauses of a
cond expression. That implicit cond expression is evaluated with the
continuation and dynamic environment of the guard expression. If
every <clause>'s <test> evaluates to false and there is no else
clause, then raise is re-invoked on the raised object within the
dynamic environment of the original call to raise except that the
current exception handler is that of the guard expression.g
macro-typeg syntax-rulesg patternsg varg clauseg ...g elseg eg e*g ... g bodyg body*g ... g varg clauseg clause*g ... g bodyg body*g ... C5
RC g m
, g filenamef srfi/srfi-34.scm
- !
2 ! : ! & ? !
I # L #
%
u /
C6 PK ! Zw w srfi/srfi-6.gonu [ GOOF----LE-8-2.0_ ] 4 h ] g guile g define-module* g srfi g srfi-6 g filenameS
f srfi/srfi-6.scm g
re-exportsS g get-output-string
g replacementsS g open-input-string g open-output-string g set-current-module g %default-port-encoding f UTF-8 g cond-expand-provide g current-module C 5 h } ]4
5 4 > " G h ]Y4 > ZCZF g s
g filenamef srfi/srfi-6.scm
! ( " " " g nameg open-input-string CR h ] Y4> ZCZF x g filenamef srfi/srfi-6.scm
$
% ( & & &
g nameg open-output-string CRi4 i5 6 u g m
, g filenamef srfi/srfi-6.scm
$
( ( & (
C6 PK ! c
8F F srfi/srfi-35.gonu [ GOOF----LE-8-2.0F ] 4 hQ ] g guile g define-module* g srfi g srfi-35 g filenameS
f srfi/srfi-35.scm g importsS g srfi-1
g exportsS g make-condition-type g condition-type? g make-condition g
condition? g condition-has-type? g
condition-ref g make-compound-condition g extract-condition g define-condition-type g condition g
&condition g &message g message-condition? g condition-message g &serious g serious-condition? !g &error "g error? # !" $g set-current-module %$ &$ 'g cond-expand-provide (g current-module ) *g make-vtable +g
string-append ,g standard-vtable-fields -f prprpr .g format /f #<condition-type ~a ~a> 0g condition-type-id 1g number->string 2g object-address 3g set-struct-vtable-name! 4g condition-type 5g %condition-type-vtable 6g make-struct-layout 7g print-condition 8g string? 9g string->symbol :f ;g %make-condition-type <g vtable-offset-user =g condition-type-parent >g condition-type-all-fields ?g string-concatenate/shared @f pr A@ Bg struct-layout-for-condition Cf #<condition ~a [~a] ~a> Dg fold Ef ~A: ~S Fg string-join Gg reverse Hf Ig error Jf "invalid condition type field names Kg every Lg symbol? Mg lset-intersection Ng eq? Og append Pf parent is not a condition type Qf )condition type identifier is not a symbol Rf 7`make-compound-condition-type' passed empty parent list Sg
append-map Tg make-compound-condition-type Ug throw Vg wrong-type-arg Wf condition-has-type? Xf Wrong type argument Yg any Zg
list-index [f invalid field name \f field name is not a symbol ]f
condition-ref ^f Wrong type argument: ~S _g make-struct `g make-condition-from-values ag
fold-right bg memq cf field not specified df make-condition eg map fg compound gg reverse! hf extract-condition ig + jg length kg make-syntax-transformer lk mk ng macro og $sc-dispatch po qo rg each sYY trs uYt vYu wYv xYw yg
syntax-object zg begin {g top |{ }g ribcage ~g dummy g name g parent g pred g
field-name g field-accessor ~ g m-46961e5119-cc { ||||| f l-46961e5119-d1 f l-46961e5119-d2 f l-46961e5119-d3 f l-46961e5119-d4 f l-46961e5119-d5 f l-46961e5119-d6 } } g x f l-46961e5119-ce } | g hygiene yz g define y y g quote y g c y y e e y g syntax-violation f -source expression failed to match any pattern g compound-condition g each-any Y g type g field ~ g m-46961e5119-e1 { || f l-46961e5119-e6 f l-46961e5119-e7 f l-46961e5119-e8 } f l-46961e5119-e3 } | y yT y g %compound y g
quasiquote y g unquote y g condition-instantiation YY g out ~ g m-46961e5119-ee { || f l-46961e5119-f3 f l-46961e5119-f4 f l-46961e5119-f5 } f l-46961e5119-f0 } | y s ڌ Yی Y܌ g field-value g rest ~ ||||| f l-46961e5119-fb f l-46961e5119-fc f l-46961e5119-fd f l-46961e5119-fe f l-46961e5119-ff f l-46961e5119-100 } | y O O y Y Y g m-46961e5119-109 { || f l-46961e5119-10e f l-46961e5119-10f f l-46961e5119-110 } f l-46961e5119-10b } | y r Y f l-46961e5119-116 f l-46961e5119-117 f l-46961e5119-118 } | y g display f <&condition>
g message
C 5 hx0 ]4
#5 4& > " G 4'i4(i5 )> " G 4*i4+i,i-5./012 h ]4 544 5 56 g ct
g port g filenamef srfi/srfi-35.scm
3 4 ' 5 " 6 " 6 2 6 " 4 C5 43i 4> " G 5R567389: hX 0 ] 4 5 4$ " 45$ 45" 45> " G C ( g layout
W g id W g parent W g
all-fields W g struct W g filenamef srfi/srfi-35.scm
;
= < < C C + $ C $ + D + 5 C $ 6 D 8 A E 8 E E H G E 8 L C W g nameg %make-condition-type C;R5 h ] $ CC g obj
g filenamef srfi/srfi-35.scm
H
J J K K g nameg condition-type?g
documentationf 'Return true if OBJ is a condition type. CR< h ]4 5$
CC g ct
g filenamef srfi/srfi-35.scm
N
O
O P P g nameg condition-type-id C0R< h ]4 5$ CC g ct
g filenamef srfi/srfi-35.scm
R
S
S T T g nameg condition-type-parent C=R< h ]4 5$ CC g ct
g filenamef srfi/srfi-35.scm
V
W
W X X g nameg condition-type-all-fields C>R?@A h0 ]" ( 6 " " g field-names
. g field-names " g layout " g filenamef srfi/srfi-35.scm
[
^ ` a b c c " b " ^ & _ . ^ . g nameg struct-layout-for-condition CBR.C04D.E h ]4 4L 55C g field
g result g filenamef srfi/srfi-35.scm
j k " k - l * k " k C>FGH12
hX ? ]44 55 4 O 455 44 5
5 4 4 5 56 7 g c
S g port S g type C g strings - @ g filenamef srfi/srfi-35.scm
e
r s
s s
i i j $ n % o - j - i 0 p 3 p ; p % = p D u
G u Q u
S r S g nameg print-condition C7R>IJKLMNOB;PQ h ] $ l45$ Y45 " 645$ 345( 4 5 4
5 6"" 6
6 g id
} g parent } g field-names } g
parent-fields m g
all-fields N e g layout W e g filenamef srfi/srfi-35.scm
w
| |
}
} ~ ~
% ) ) * 6 7 E F # N Q # W e q u
y
} } g nameg make-condition-typeg
documentationf Return a new condition type named ID, inheriting from PARENT, and with the
fields whose names are listed in FIELD-NAMES. FIELD-NAMES must be a list of
symbols and must not contain names already used by PARENT or one of its
supertypes. CRIRS>B; h@ ! ]( 6( C45 45 6 g id
; g parents ; g
all-fields $ ; g layout - ; g filenamef srfi/srfi-35.scm
$ ' - ;
; g nameg make-compound-condition-type CTR h ] $ 6C g c
g filenamef srfi/srfi-35.scm
g nameg
condition?g
documentationf Return true if C is a condition. CR h ] $ 45$ CCC g c
g vtable g filenamef srfi/srfi-35.scm
g nameg condition-type C4RUVWX=Y h@ ] L& C $ %4 5 $ L 64 5 "C g ct
9 g parent 7 g filenamef srfi/srfi-35.scm
" * + 7 9 g nameg loop C4 hP B ]
"
64 5$ *45$ O Q 4 56"" : g c
I g type I g loop / A g filenamef srfi/srfi-35.scm
& / 9 A I g nameg condition-has-type?g
documentationf )Return true if condition C has type TYPE. CR4>Zh ` ] L CX g name
g filenamef srfi/srfi-35.scm
% ' CI[\UV]^
h` ]4 5$ E$ 64 5 45 4O 5 $ C66
6 g c
^ g
field-name ^ g type J g fields $ J g index 4 J g filenamef srfi/srfi-35.scm
$
' 4
< A F J N R
V
X Z
^ ^ g nameg
condition-refg
documentationf @Return the value of the field named FIELD-NAME from condition C. CR_ h ]
@ g type
g values g filenamef srfi/srfi-35.scm
g nameg make-condition-from-values C`R>abIc h( ]
4 L 5 $ C 6 g field
$ g inits $ g v $ g filenamef srfi/srfi-35.scm
% 0 ' - ) 3 - 4 $ -
$ C`UVd^
hH - 1 3 4 5$ "4 5 4O 5 6 6 g type
B g field+value B g
all-fields 6 g inits , 6 g filenamef srfi/srfi-35.scm
( % , , 6 :
< >
B B
g nameg make-conditiong
documentationf Return a new condition of type TYPE with fields initialized as specified
by FIELD+VALUE, a sequence of field names (symbols) and values. CRe4TfS4e h ] ]L 6 U g f
g filenamef srfi/srfi-35.scm
&
(
C> h ] 4 5 O 456 g c
g ct g filenamef srfi/srfi-35.scm
) & ! C` h8 U - 1 3 4 5 45 4 5 6 M g
conditions
2 g types 2 g ct 2 g inits ( 2 g filenamef srfi/srfi-35.scm
/ ( 2 2
g nameg make-compound-conditiong
documentationf 7Return a new compound condition composed of CONDITIONS. CRg h@ ; ]" (( 6L " " 3 g start-index
= g field-names = g index . g field-names . g result . g filenamef srfi/srfi-35.scm
# .
. 3 = = g nameg list-fields CUVhX4=ie>j hp h ] ( CL & C$ 04L5 $ C 445? "4455 " ` g parents
o g index o g parent o g t * Q g shift ] o g filenamef srfi/srfi-35.scm
! " * 8 ; > % H I Q R U $ ] ] b g o o g nameg loop C>
h ]"O Q "
64 5$ f45$ W4 5 4 5 & C$ 1
O Q 4
5 44 55@C"" g c
g type g list-fields
g ct : g parent C g loop ` r g field-index r g filenamef srfi/srfi-35.scm
!
! "
! ( ) 3 4 : = C M S W ` r y ~ % g nameg extract-conditiong
documentationf OReturn a condition of condition type TYPE with the field values specified
by C. CR4mnqx h X ] C P g tmp-46961e5119-df
g tmp-46961e5119-de C
hH ] 4 5C g dummy
B g name B g parent B g pred B g
field-name B g field-accessor B B C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-35.scm
)
" g
macro-typeg syntax-rulesg patternsg nameg parentg predg
field-nameg field-accessor g ... C5R4mnq h 9 ] C 1 g tmp-46961e5119-ec
C h R ]45 CJ g dummy
g type g field C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-35.scm
3
" g
macro-typeg syntax-rulesg patternsg typeg ... g fieldg ... C5R4mnq h P ]C H g dummy
g type g out C h ]4 5C g dummy
g type g out g
field-name g field-value g rest C h@
]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-35.scm
: 9 g
macro-typeg syntax-rulesg patternsg typeg outg ... g typeg outg ... g
field-nameg field-value g restg ... C5R4mnq h R ]C J g dummy
g type
g field
C h R ]4? C J g dummy
g type g field C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-35.scm
A 9 g
macro-typeg syntax-rulesg patternsg typeg fieldg ... g typeg fieldg ... g ... C5R5i46i:5 h x ]6p g c
g port g filenamef srfi/srfi-35.scm
P Q Q C R4i i 5 R h r ] 6 j g c
g filenamef srfi/srfi-35.scm
T
g nameg message-condition? C R
h q ] 6 i g c
g filenamef srfi/srfi-35.scm
T
g nameg condition-message C R4i i5 R h r ] 6 j g c
g filenamef srfi/srfi-35.scm
X
g nameg serious-condition? C R4i! i5!R! h f ] 6 ^ g c
g filenamef srfi/srfi-35.scm
[
g nameg error? C"RC g m
, g s
( E g filenamef srfi/srfi-35.scm
- '
2 ' : ' & ? '
H 2 M 2 W 2 > Y 2 ( 2 ( 2 + 8 3 8 8 8 H .
;
H
N
x R
D V
[
e
o w
k
-
\
H
#
-@ O -F O # -H O - R - R - R " - N - L
- T
/- X
/ [
, 0s
C6 PK ! Ta)J )J srfi/srfi-27.gonu [ GOOF----LE-8-2.0J ]H 4 h* ] g guile g define-module* g srfi g srfi-27 g filenameS
f srfi/srfi-27.scm g importsS g srfi-9
g exportsS g random-integer g random-real g default-random-source g make-random-source g random-source? g random-source-state-ref g random-source-state-set! g random-source-randomize! g random-source-pseudo-randomize! g random-source-make-integers g random-source-make-reals g set-current-module g cond-expand-provide !g current-module " #g :random-source $g %%make-random-source-procedure %g make-syntax-transformer &% '% (g %make-random-source )g macro *g $sc-dispatch +* ,* -g _ .g any /-. 0g
syntax-object 1g lambda 2g m-46961e50f6-4 3g top 423 5g ribcage 6g t-46961e50f6-3 76 84 9f l-46961e50f6-9 :9 ;578: <5 =g x >= ?f l-46961e50f6-6 @? A5>8@ Bg shift Cg proc-name Dg args ECD F3 GFF Hf l-1e8ba8b5a-2ba If l-1e8ba8b5a-2bb JHI K5EGJ Lg key Mg value Ng name Og formals Pg body QLMNOP RFFFFF Sf l-1e8ba8b5a-2ad Tf l-1e8ba8b5a-2ae Uf l-1e8ba8b5a-2af Vf l-1e8ba8b5a-2b0 Wf l-1e8ba8b5a-2b1 XSTUVW Y5QRX Zg make-procedure-name [Z \F ]f l-1e8ba8b5a-29d ^] _5[\^ `F af l-1e8ba8b5a-29c ba c5>`b d4;<AB<<<<KY_c
eg hygiene fe g01df hg state iF;<A je k0hij lk mg make-struct ng m-46961e50f6-1 on3 pg t-1e8ba8b5a-38d qg t-1e8ba8b5a-38c rg t-1e8ba8b5a-38b spqr tg m-1e8ba8b5a-38e ut3 vuuu wf l-1e8ba8b5a-392 xf l-1e8ba8b5a-393 yf l-1e8ba8b5a-394 zwxy {5svz |g ctor-args }| ~f l-1e8ba8b5a-37a ~ 5}` g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 5G g form g type-name g constructor-spec g field-names FFFF f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e 5 g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers FFFFFFFF f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 5 f l-1e8ba8b5a-334 5>` o;<AB<{<<<< 0mf 0#ij 0
f k gl g each-any - g syntax-violation
f Wrong number of arguments g identifier?
F<A 0$j f -source expression failed to match any pattern g record-type-vtable
g pw g default-record-printer
h g set-struct-vtable-name!
g vtable-offset-user
g %random-source?-procedure g m-46961e50f6-11 3 g t-46961e50f6-10 f l-46961e50f6-16 5 f l-46961e50f6-13 5> <B<<<<KY_c
01f g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f 3 f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 5 g copier-id f l-1e8ba8b5a-476 5` g ctor-name f l-1e8ba8b5a-46e 5` f l-1e8ba8b5a-46c 5` g layout f l-1e8ba8b5a-46a 5` g
immutable? f l-1e8ba8b5a-468 5` g field-count
f l-1e8ba8b5a-466
5 `
g
getter-ids
f l-1e8ba8b5a-463 5` g field-ids f l-1e8ba8b5a-460 5` g predicate-name g
field-spec FFFFFF f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 ! "5! #o<B<<<<<<<<<< <<" $0#f %$ &g and '0&#f (g struct? )0(#f *)$ +g eq? ,0+#f -g
struct-vtable .0-#f /.$ 0F< 10#0j 2,/1 3'*2 4%3 5F< 605j 7g throw-bad-struct 8
7 9
7 :g random-source-state ;g %random-source-state-procedure <g free-id =g
%%on-error >g m-46961e50f6-1d ?>3 @? Af l-46961e50f6-1f BA C5>@B D?<CB<<<<KY_c E0=Df F<E GF. Hg %%type Ig t-1e8ba8b5a-3a5 Jg t-1e8ba8b5a-3a6 Kg t-1e8ba8b5a-3a7 Lg t-1e8ba8b5a-3a8 Mg t-1e8ba8b5a-3a9 Ng t-1e8ba8b5a-3aa Og t-1e8ba8b5a-3ab PIJKLMNO Qg m-1e8ba8b5a-3ac RQ3 SRRRRRRR Tf l-1e8ba8b5a-3b0 Uf l-1e8ba8b5a-3b1 Vf l-1e8ba8b5a-3b2 Wf l-1e8ba8b5a-3b3 Xf l-1e8ba8b5a-3b4 Yf l-1e8ba8b5a-3b5 Zf l-1e8ba8b5a-3b6 [TUVWXYZ \5PS[ ]g getter ^g index _]^ `f l-1e8ba8b5a-3a3 af l-1e8ba8b5a-3a4 b`a c5_Gb d
eFFF ff l-1e8ba8b5a-39e gf l-1e8ba8b5a-39f hf l-1e8ba8b5a-3a0 ifgh j5dei ko<CB<\<<<c<j l0Hkf m<l n-Gm. og ck pg err qg s rpq s?? tf l-46961e50f6-22 uf l-46961e50f6-23 vtu w5rsv x?w<CB<<<<KY_c
y0oxf zg quote {0zxf |Fw<C }0#|j ~{} ~ g %%index 0kf < -G. f l-46961e50f6-27 f l-46961e50f6-28 5rs ?<CB<<<<KY_c
0of 0zf <C 0
j g %%copier 0kf < -G. f l-46961e50f6-2c f l-46961e50f6-2d 5rs ?<CB<<<<KY_c
0of 0zf g %%:random-source-set-fields F<C 0j g t-46961e50f6-1c f l-46961e50f6-31 5@ ?<CB<<<<KY_c
01f o<CB<\<<<c<j 0qf g if 0f 0+f 0-f F<C 0#j g
struct-ref 0f <C 0
j 07f 0zf 0:j F<C 0;j g each .. . . .Ì g %%set-fields g dummy g check? g expr q] g m-46961e50f6-38 3 oooo f l-46961e50f6-3d f l-46961e50f6-3e f l-46961e50f6-3f f l-46961e50f6-40 f l-46961e50f6-41 5 f l-46961e50f6-3a 5> g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 3 f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd 5 f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 5de o<B<<<<
0f F< 0#j 0:j g map g list g set-random-source-state! g #%set-random-source-state!-procedure -.. g m-46961e50f6-4c 3 g t-46961e50f6-4a g t-46961e50f6-4b f l-46961e50f6-51 f l-46961e50f6-52 5 f l-46961e50f6-4e 5> <B<<<<KY_c
01f g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8
3
f l-1e8ba8b5a-3ec
f l-1e8ba8b5a-3ed
5 g setter N] f l-1e8ba8b5a-3e0 f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2 5e ^ f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 5G g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 !5 G "o<B<<<! #0q"f $g val %0$"f &#% '0"f (0+"f )0-"f *)# +F< ,0#+j -(*, .g struct-set! /0."f 0< 10
0j 2/#1% 307"f 40z"f 50+j 645 73#6 8'-27 9&8 :F< ;0:j <g seed->random-state =g random-state->datum >g datum->random-state ?g gettimeofday @e 1000000.0 Ag i+j->seed Bg spread Cg random Dg random:uniform Eg real? Fg error Gf !unit must be real between 0 and 1C 5 h ]4
5 4 > " G 4 i4!i5 "> " G # h ] C y g state
g filenamef srfi/srfi-27.scm
(
g nameg %%make-random-source-procedure C$R4'(),/ h 6 ] C . g t-46961e50f6-3
C( h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C- h C ] L 6; g filenamef srfi/srfi-27.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 srfi/srfi-27.scm
(
n C5(R#ƨ 4 #> " G ̖$i #R# h z ] $ CC r g obj
g filenamef srfi/srfi-27.scm
(
g nameg %random-source?-procedure CR4'),/4 h 7 ] C / g t-46961e50f6-10
C h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C- h C ] L 6; g filenamef srfi/srfi-27.scm (
C6 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 srfi/srfi-27.scm
(
n C5R#9: h } ] &
C 6u g s
g filenamef srfi/srfi-27.scm
(
g nameg %random-source-state-procedure C;R4':),ny 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 7 ] C / g t-46961e50f6-1c
C: h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C- h C ] L 6; g filenamef srfi/srfi-27.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 srfi/srfi-27.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 srfi/srfi-27.scm
(
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R#9 h ] &
C 6 g s
g val g filenamef srfi/srfi-27.scm
(
g nameg #%set-random-source-state!-procedure CR4'),9 h T ] C L g t-46961e50f6-4a
g t-46961e50f6-4b C h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C- h C ] L 6; g filenamef srfi/srfi-27.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 srfi/srfi-27.scm
(
n C5R<# h ]4
5 C } g state
g filenamef srfi/srfi-27.scm
-
. .
g nameg make-random-source CR=#9: h ] &
" 4 56~ g s
g filenamef srfi/srfi-27.scm
0
1 1 g nameg random-source-state-ref CR>#9 h( ]
45 &
C 6 g s
# g state # g val # g filenamef srfi/srfi-27.scm
3
4 4 # g nameg random-source-state-set! CR?<@#9 h8 ]45 45 &
C 6 g s
2 g time 2 g val 2 g filenamef srfi/srfi-27.scm
6
7 7
8 9 ' 9 2 9 $ 9 7 9 ! 8 8 2 g nameg random-source-randomize! CR<A#9 h0 ] 4455 &
C 6 g s
* g i * g j * g val * g filenamef srfi/srfi-27.scm
;
< < 2 < < * g nameg random-source-pseudo-randomize! CRB h ]4 5 4 5C g i
g j g filenamef srfi/srfi-27.scm
>
?
?
@
? g nameg i+j->seed CAR h@ ]" )
$ C "
" g n
= g amount = g result / g n / g shift / g filenamef srfi/srfi-27.scm
B
C D D G G F H % I / F / C = g nameg spread CBRC#9: h( c ] L & L
" 4L 56 [ g n
" g filenamef srfi/srfi-27.scm
L M " M " C h z ] O C r g s
g filenamef srfi/srfi-27.scm
K
g nameg random-source-make-integers CRD#9: h@ ]" 04L & L
" 4L 55
$ " C" g x
% 6 g filenamef srfi/srfi-27.scm
R S T T " % T % T * U / U 3 V 6 S :
CEFG h` ) 3 O C]
45$
$ " " $ " 4> " G 6 g s
g s
] g unit ] g t 4 W g filenamef srfi/srfi-27.scm
P Y Y " Y 4 Y A Z E Z L Z ] [
] g nameg random-source-make-reals CR4i5 R4ii5R4ii5RC g m
, g rtd
~ g filenamef srfi/srfi-27.scm
- &
2 & : & & ? &
(
-
q 0
f 3
6
;
>
B
K
O
] ]
^ ^
_ _
C6 PK ! G P P srfi/srfi-60.gonu [ GOOF----LE-8-2.08 ] : 4 h+ ] g guile g define-module* g srfi g srfi-60 g filenameS
f srfi/srfi-60.scm g exportsS g bitwise-and
g bitwise-ior g bitwise-xor g bitwise-not g
any-bits-set? g
bitwise-if g
bitwise-merge g log2-binary-factors g
first-set-bit g bit-set? g copy-bit g bit-field g copy-bit-field g arithmetic-shift g rotate-bit-field g reverse-bit-field g
integer->list g
list->integer g booleans->integer
g
re-exportsS !g logand "g logior #g logxor $g integer-length %g logtest &g logcount 'g logbit? (g ash )!"#$%&'( *g replacementsS +g bit-count ,+ -g set-current-module .- /- 0g load-extension 1g
string-append 2f libguile- 3g effective-version 4f scm_init_srfi_60 5g lognot 6g bit-extract 7g cond-expand-provide 8g current-module 9 C 5h ]4
)*,5 4/ > " G 40i41i243i5 54> " G !i R"i
R#iR5iR%iR&i+R5 h ] 4 5C g mask
g n0 g n1 g filenamef srfi/srfi-60.scm
8
9
: :
9 g nameg
bitwise-if CRiRiR'iR6iR6 h( ] 4 54
5C g n
" g newbits " g start " g end " g filenamef srfi/srfi-60.scm
A
B C C 0 C B B ! B " g nameg copy-bit-field CR(iR7i48i5 96 g m
0 g filenamef srfi/srfi-60.scm
1 .
6 . < . = . + E . G / L .
[ 1
b 2
i 3
p 4
w 5
~ 6
W 8
^ ;
e =
l >
s ?
A
F
H H & H
C6 PK ! :4 4 srfi/srfi-4/gnu.gonu [ GOOF----LE-8-2.04 ] 4 hF ] g guile g define-module* g srfi g srfi-4 g gnu
g filenameS f srfi/srfi-4/gnu.scm g importsS
g rnrs g bytevectors
g exportsS g
c32vector? g make-c32vector g c32vector g c32vector-length g
c32vector-ref g c32vector-set! g c32vector->list g list->c32vector g
c64vector? g make-c64vector g c64vector g c64vector-length !g
c64vector-ref "g c64vector-set! #g c64vector->list $g list->c64vector %g make-srfi-4-vector &g
any->u8vector 'g
any->s8vector (g any->u16vector )g any->s16vector *g any->u32vector +g any->s32vector ,g any->u64vector -g any->s64vector .g any->f32vector /g any->f64vector 0g any->c32vector 1g any->c64vector 2 !"#$%&'()*+,-./01 3g set-current-module 43 53 6% 7% 8g make-rectangular 9g bytevector-c32-native-ref :g real-part ;g imag-part <g bytevector-c32-native-set! =g bytevector-c64-native-ref >g bytevector-c64-native-set! ?g bytevector? @g
array-type Ag c32 Bg bytevector-length Cg integer? Dg error Ef fractional length Fg length Gg c64 Hg make-syntax-transformer IH JH Kg define-any->vector Lg macro Mg $sc-dispatch NM OM Pg _ Qg any RPQ Sg
syntax->datum TS US Vg
datum->syntax WV XV Yg begin Zg map [g define \g
symbol-append ]g any-> ^g vector _g obj `_ ag cond bg vector? cg pair? dc_ eg list-> fg and gg array? hg_ ig eqv? jg
array-rank kj_ li k mfhl ng let* og len pg array-length qp_ roq sg v tg make- uo vg let wg lp xg i yx
zy {g if |g < }|xo ~g vector-set! g array-ref _x sx g 1+ x w s g else g scm-error g quote g wrong-type-arg f g list _ g syntax-violation f -source expression failed to match any pattern g u8vector? g list->u8vector g
make-u8vector g s8vector? g list->s8vector g
make-s8vector g
u16vector? g list->u16vector g make-u16vector g
s16vector? g list->s16vector g make-s16vector g
u32vector? g list->u32vector g make-u32vector g
s32vector? g list->s32vector g make-s32vector g
u64vector? g list->u64vector g make-u64vector g
s64vector? g list->s64vector g make-s64vector g
f32vector? g list->f32vector g make-f32vector g
f64vector? g list->f64vector g make-f64vectorC 5 h ' ]4
25 45 > " G 7%R8 h ] 6 g v
g i g filenamef srfi/srfi-4/gnu.scm
,
- . 9 . - g nameg bytevector-c32-native-ref C9R:; h ] 45 45C g v
g i g x g filenamef srfi/srfi-4/gnu.scm
/
0 * 0 1 ( 1 0 1 g nameg bytevector-c32-native-set! C<R8 h ] 6 g v
g i g filenamef srfi/srfi-4/gnu.scm
2
3 4 9 4 3 g nameg bytevector-c64-native-ref C=R:; h ] 45 45C g v
g i g x g filenamef srfi/srfi-4/gnu.scm
5
6 * 6 7 ( 7 0 7 g nameg bytevector-c64-native-set! C>R?@A h n ]4 5$ 4 5CC f g obj
g filenamef srfi/srfi-4/gnu.scm
9
g nameg
c32vector? CR%A h - 1 3 @ } g len
g fill g filenamef srfi/srfi-4/gnu.scm
9
g nameg make-c32vector CRBCDEA h( ] 4 5 45$ C 6 g v
( g len ( g filenamef srfi/srfi-4/gnu.scm
9
g filenamef 9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T ( g nameg c32vector-length CR h p - 1 3 6 h g elts
g filenamef srfi/srfi-4/gnu.scm
9
g nameg c32vector CRF h` ]!4 5 45 " ;$ /$ %4> " G "CC
" g elts
^ g len ^ g v ^ g i S g elts S g filenamef srfi/srfi-4/gnu.scm
9
^ g nameg list->c32vector C R h@ ]" "
$ C4 5 "4 5 " g v
9 g i ( g elts ( g filenamef srfi/srfi-4/gnu.scm
9
9 g nameg c32vector->list CR9 h ~ ] 6 v g v
g i
g filenamef srfi/srfi-4/gnu.scm
9
g nameg
c32vector-ref CR< h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
9
g nameg c32vector-set! CR< h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
9
g nameg c32vector-set! CR?@G h n ]4 5$ 4 5CC f g obj
g filenamef srfi/srfi-4/gnu.scm
:
g nameg
c64vector? C R%G h - 1 3 @ } g len
g fill g filenamef srfi/srfi-4/gnu.scm
:
g nameg make-c64vector C RBCDEG h( ] 4 5 45$ C 6 g v
( g len ( g filenamef srfi/srfi-4/gnu.scm
:
g filenamef 9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T ( g nameg c64vector-length C R$ h p - 1 3 6 h g elts
g filenamef srfi/srfi-4/gnu.scm
:
g nameg c64vector C RF " h` ]!4 5 45 " ;$ /$ %4> " G "CC
" g elts
^ g len ^ g v ^ g i S g elts S g filenamef srfi/srfi-4/gnu.scm
:
^ g nameg list->c64vector C$R! h@ ]" "
$ C4 5 "4 5 " g v
9 g i ( g elts ( g filenamef srfi/srfi-4/gnu.scm
:
9 g nameg c64vector->list C#R= h ~ ] 6 v g v
g i
g filenamef srfi/srfi-4/gnu.scm
:
g nameg
c64vector-ref C!R> h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
:
g nameg c64vector-set! C"R> h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
:
g nameg c64vector-set! C"R4JKLORUXYZ[\]^`abdemnrstuvwz{}Y~ h ]4 54 54 5
4 5 4 5 C g tag
g filenamef srfi/srfi-4/gnu.scm
> ? ? ? (
? 3 ? ? @ @ - @ ? & A & * A 5 . A A 0 A & 2 ? ? D $ C D 3 G D > I D $ K ? _ H $ e H 7 g H $ i ? C h r - 1 3 4 5C j g tags
g filenamef srfi/srfi-4/gnu.scm
<
= > =
C h g ] 4 5 L 4?6_ g args
g v g filenamef srfi/srfi-4/gnu.scm <
C h( e ] 4 5 $ O @ 6 ] g y
' g tmp ' g filenamef srfi/srfi-4/gnu.scm
<
' C5KRgjp h ]4 5$ C $ 6" 64 5$ P 4 5& @4 5 4 5 " #$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg
any->u8vector C&Rgjp h ]4 5$ C $ 6" 64 5$ P 4 5& @4 5 4 5 " #$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg
any->s8vector C'Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->u16vector C(Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->s16vector C)Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->u32vector C*Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->s32vector C+Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->u64vector C,Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->s64vector C-Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->f32vector C.Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5 "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->f64vector C/R gjp h ]4 5$ C $ 6" 64 5$ _ 4 5& O4 5 4 5 " 2$ &4
4 5> " G "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->c32vector C0R $gjp " h ]4 5$ C $ 6" 64 5$ _ 4 5& O4 5 4 5 " 2$ &4
4 5> " G "C
""" g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->c64vector C1RC g m
, g filenamef srfi/srfi-4/gnu.scm
1 *
,
/
2
5
q 9
:
/ O
&
C6 PK ! i:!d d srfi/srfi-11.gonu [ GOOF----LE-8-2.0L ] 4 h ] g guile g define-module* g srfi g srfi-11 g filenameS
f srfi/srfi-11.scm g exportsS g
let-values
g let*-values
g set-current-module g cond-expand-provide g current-module g make-syntax-transformer g macro g $sc-dispatch g _ g any g each-any ! " ! # " $g
syntax-object %g call-with-values &g top '& (g ribcage )g binds *g exp +g b0 ,g b1 -)*+, .'''' /f l-46961e50cb-93 0f l-46961e50cb-94 1f l-46961e50cb-95 2f l-46961e50cb-96 3/012 4(-.3 5( 6g x 76 8' 9f l-46961e50cb-90 :9 ;(78: <'45; =g hygiene >= ?$%<> @g lambda A$@<> B ! C B D Eg let Fg id Gg tmp HFG I'' Jf l-46961e50cb-af Kf l-46961e50cb-b0 LJK M(HIL Ng lp Og clauses Pg ids Qg tmps RNOPQ Sf l-46961e50cb-a3 Tf l-46961e50cb-a4 Uf l-46961e50cb-a5 Vf l-46961e50cb-a6 WSTUV X(R.W Yg clause ZY+, [''' \f l-46961e50cb-9d ]f l-46961e50cb-9e ^f l-46961e50cb-9f _\]^ `(Z[_ a'5M5X`5; b$Ea> cg map dc ec fg list gg syntax-violation hg ig jf -source expression failed to match any pattern k lg generate-temporaries m ng append on pn qg inner rq sf l-46961e50cb-c7 ts u(r8t vg new-tmp wvFG xf l-46961e50cb-bf yf l-46961e50cb-c0 zf l-46961e50cb-c1 {xyz |(w[{ }g var ~}* f l-46961e50cb-b8 f l-46961e50cb-b9 (~I '5u55|5X`5; $%> $@> g each g args q f l-46961e50cb-e2 f l-46961e50cb-e3 (I g new-var vFG f l-46961e50cb-d7 f l-46961e50cb-d8 f l-46961e50cb-d9 f l-46961e50cb-da (. g vars * f l-46961e50cb-d0 f l-46961e50cb-d1 (I '5555X`5; $%> $@> g dummy g body g m-46961e50cb-104 & ' f l-46961e50cb-109 f l-46961e50cb-10a ( f l-46961e50cb-106 (7 '5 $E> g vars-1 g binding-1 g vars-2 g binding-2 ''''' f l-46961e50cb-10f f l-46961e50cb-110 f l-46961e50cb-111 f l-46961e50cb-112 f l-46961e50cb-113 f l-46961e50cb-114 ( '5 $%> $@> $
> C 5 h@ r ]4
5 4 > " G 4i4i5 > " G 4 #?A h ^ ] C V g binds
g exp g b0 g b1 CCDbef h ; ]4 5L LC 3 g id
g tmp Cijklmp h8 ] 4L L4L54 55 L C g new-tmp
5 g id 5 g tmp 5 g tmp 5 g filenamef srfi/srfi-11.scm W ' W + W ' W 5 Cij h@ ]4 5L L 45 $ LL O @6 g var
= g exp = g tmp = g tmp = g filenamef srfi/srfi-11.scm S - S = C l h ] 4 54L 5C g id
g rest g filenamef srfi/srfi-11.scm c , b + a $ d + a $ Cl h0 ] 4 5 $ L O @ 4 5 C g vars
0 g tmp 0 g filenamef srfi/srfi-11.scm
^ ! g / + f . , e ' / h . 0 g nameg lp Cp h * ] C " g id
C h o ] 4L 5C g g id
g rest
g filenamef srfi/srfi-11.scm r = q 7
Cij h@ ]4 5 $ @4 5 $ L O @ 6 ~ g tmps
> g tmp > g tmp " > g filenamef srfi/srfi-11.scm
n & > g nameg lp C h ? ]L C 7 g inner
g args Cij h` ]4L L454 55O Q 4 5 45 $ LO @6 g new-tmp
] g new-var ] g id ] g tmp ] g lp $ 3 g tmp 6 ] g tmp A ] g filenamef srfi/srfi-11.scm k ' k + k ' $ n & 6 k ] Cij hP ]O Q 4 5 L L 45 $ LLO @6 g vars
K g exp K g lp
g tmp K g tmp + K g filenamef srfi/srfi-11.scm
^ ] K C
h ] ( 0 45 $
LLO @6 45 $ L O @45 $ L O @6 g clauses
g ids g tmps g tmp 8 g tmp 8 g tmp ; g tmp F g tmp h g filenamef srfi/srfi-11.scm
I L M
; Q ; Q
g nameg lp C h ] O Q 6 g clause
g b0 g b1 g lp g filenamef srfi/srfi-11.scm I J K I Cij h@ t ]4 5 $ @4 5 $ @ 6 l g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-11.scm
C 9 C5 R4
h ? ]C 7 g dummy
g body
Cef h( ] 45 C g dummy
( g vars-1 ( g binding-1 ( g vars-2 ( g binding-2 ( g body ( ( Cij h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-11.scm
9 g
macro-typeg syntax-rulesg patternsg bodyg ... g vars-1g binding-1 g vars-2g binding-2 g ... g bodyg ... C5
RC j g m
( g filenamef srfi/srfi-11.scm &
) )
. ) 6 ) & ; )
=
C6 PK ! f srfi/srfi-1.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g srfi g srfi-1 g filenameS
f srfi/srfi-1.scm g exportsS g xcons
g
list-tabulate g list-copy g
circular-list g proper-list? g circular-list? g dotted-list? g
null-list? g not-pair? g list= g first g second g third g fourth g fifth g sixth g seventh g eighth g ninth g tenth g car+cdr !g take "g drop #g
take-right $g
drop-right %g take! &g drop-right! 'g split-at (g split-at! )g last *g length+ +g concatenate ,g concatenate! -g append-reverse .g append-reverse! /g zip 0g unzip1 1g unzip2 2g unzip3 3g unzip4 4g unzip5 5g count 6g fold 7g
fold-right 8g pair-fold 9g pair-fold-right :g reduce ;g reduce-right <g unfold =g unfold-right >g
append-map ?g append-map! @g map! Ag
pair-for-each Bg
filter-map Cg partition Dg remove Eg
partition! Fg remove! Gg find Hg find-tail Ig
take-while Jg take-while! Kg
drop-while Lg span Mg span! Ng break Og break! Pg any Qg every Rg delete-duplicates Sg delete-duplicates! Tg
alist-cons Ug
alist-copy Vg alist-delete Wg
alist-delete! Xg lset<= Yg lset= Zg lset-adjoin [g
lset-union \g lset-intersection ]g lset-difference ^g lset-xor _g lset-diff+intersection `g lset-union! ag lset-intersection! bg lset-difference! cg lset-xor! dg lset-diff+intersection! e
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd Y fg
re-exportsS gg cons hg list ig cons* jg make-list kg pair? lg null? mg car ng cdr og caar pg cadr qg cdar rg cddr sg caaar tg caadr ug cadar vg caddr wg cdaar xg cdadr yg cddar zg cdddr {g caaaar |g caaadr }g caadar ~g caaddr g cadaar g cadadr g caddar g cadddr g cdaaar g cdaadr g cdadar g cdaddr g cddaar g cddadr g cdddar g cddddr g list-ref g last-pair g length g append g append! g reverse g reverse! g filter g filter! g memq g memv g assq g assv g set-car! g set-cdr! ghijklmnopqrstuvwxyz{|}~ 3 g replacementsS g iota g map g for-each g map-in-order g
list-index g member g delete g delete! g assoc
g set-current-module g cond-expand-provide g current-module g load-extension g
string-append f libguile- g effective-version f scm_init_srfi_1 g scm-error g wrong-type-arg g symbol->string f Wrong type argument: ~S g make-syntax-transformer g check-arg g macro g $sc-dispatch PPPP g
syntax-object g if g top g ribcage g dummy g pred g arg g caller g m-1e8ba8b52-388 f l-1e8ba8b52-38d f l-1e8ba8b52-38e f l-1e8ba8b52-38f f l-1e8ba8b52-390 g x f l-1e8ba8b52-38a g hygiene g not g quote g syntax-violation f -source expression failed to match any pattern g out-of-range f Value out of range: ~A g integer? g non-negative-integer? g error f not a proper list in null-list? g
procedure? g list-head g list-tail g any1 f map f Circular list: ~S f Not a list: ~S g min f .Args do not contain a proper (finite) list: ~S f for-each g apply g every1 g acons g equal? g eq? g eqv?C 5 h ]4
ef5 4 > " G 4i4i5 > " G 4i4i4i5 5> " G h ] C g d
g a g filenamef srfi/srfi-1.scm
g nameg xconsg
documentationf dLike `cons', but with interchanged arguments. Useful mostly when passed to
higher-order procedures. C R h ]4 5 6 g caller
g arg g filenamef srfi/srfi-1.scm
' 2 g nameg wrong-type-arg CR4 h( d ] C \ g dummy
" g pred " g arg " g caller " " C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-1.scm
" g
macro-typeg syntax-rulesg patternsg predg argg caller C5R h ] 6 g proc
g arg g filenamef srfi/srfi-1.scm
& 1 g nameg out-of-range CR h ]4 5$
CC g x
g filenamef srfi/srfi-1.scm
'
" 4 g nameg non-negative-integer? CR
hX ]4 5$ " 4 > " G " !
$ C45 " " g n
U g init-proc U g n ) J g acc ) J g filenamef srfi/srfi-1.scm
) - 1 7 8 = % ? B J J M U U g nameg
list-tabulateg
documentationf Return an N-element list, where each list element is produced by applying the
procedure INIT-PROC to the corresponding list index. The order in which
INIT-PROC is applied to the indices is not specified. C
R h( - 1 3 H JK4J5JJC g elt1
! g elts
! g filenamef srfi/srfi-1.scm
!
g nameg
circular-list CR hx " - . , 3 #
# 4 5$ " 4 > " G " % $ 6 "
" g count
t g start t g step t g n E j g acc E j g filenamef srfi/srfi-1.scm
E J N T W ^ # _ b j j l t t g nameg iota CR h t ] C l g x
g filenamef srfi/srfi-1.scm
g nameg proper-list? CR hX 6 ]4 5$ C" 745$ C 45$ C& C " " . g x
W g hare J g tortoise J g hare # J g filenamef srfi/srfi-1.scm
# # & 0
: ! ? # B # J # J M W W g nameg circular-list? CR hp F ] ( C4 5$ C" G( C45$ C ( C45$ C& C " " > g x
o g hare b g tortoise b g hare 3 b g filenamef srfi/srfi-1.scm
%
& ( & * ! + $ -
. + 3 / 3 /
; 0 > 2 H 0 W 5 Z 5 b 5 b * e * o * o g nameg dotted-list? CR h( ]4 5$ C4 5$ C6 g x
$ g filenamef srfi/srfi-1.scm
7
9
8 : ; 8 " > $ > $ g nameg
null-list? CR h I ] C A g x
g filenamef srfi/srfi-1.scm
@
E E g nameg not-pair?g
documentationf Return #t if X is not a pair, #f otherwise.
This is shorthand notation `(not (pair? X))' and is supposed to be used for
end-of-list checking in contexts where dotted lists are allowed. CR hH
]" 1( C( C4L 5$ "C " g a
C g b C g a 7 g b 7 g filenamef srfi/srfi-1.scm
H I J K
J O O ! O # O ' O
* P - P 5 P 7 I C g nameg lists-equal C hx < - 1 3 O Q 4 5$ " 4 > " G ( C" * $ C45$ "C " 4 g elt=
w g rest w g lists-equal w g lists E o g t I o g filenamef srfi/srfi-1.scm
G
R ? S @ S E T H U I U I U U V Z V ] V * ` V d V g W m W o T w
g nameg list= CRmiRpiRviRiR h v ] C n g x
g filenamef srfi/srfi-1.scm
_
_ _
g nameg fifth CR h v ] C n g x
g filenamef srfi/srfi-1.scm
`
` ` g nameg sixth CR h x ] C p g x
g filenamef srfi/srfi-1.scm
a
a a g nameg seventh C R h w ] C o g x
g filenamef srfi/srfi-1.scm
b
b b
g nameg eighth C R h ] C w g x
g filenamef srfi/srfi-1.scm
c
c c
c g nameg ninth C R h ] C w g x
g filenamef srfi/srfi-1.scm
d
d d
d g nameg tenth C R h ] D g x
g filenamef srfi/srfi-1.scm
f
h
h
h
g nameg car+cdrg
documentationf 3Return two values, the `car' and the `cdr' of PAIR. C Ri!Ri"R" h8 ]" $ "C 4 5 " g lis
1 g k 1 g lag g lead g filenamef srfi/srfi-1.scm
q
r s
s t t t r ! r 1 r 1 g nameg
take-right C#R" h@ & ]" #$ "6 4 5 " g lis
? g k ? g lag ) g lead ) g result ) g filenamef srfi/srfi-1.scm
w
x y
y z z z ' z ! # z ) { ) x , x 5 x 1 ? x ? g nameg
drop-right C$R" h ]
$ C4 5 C g lst
g i g tail g filenamef srfi/srfi-1.scm
}
g nameg take!g
documentationf Linear-update variant of `take'. C%R" hP } ]4 5 ( C" %( $ C C " " u g lst
K g i K g tail K g prev > g tail > g filenamef srfi/srfi-1.scm
" & ) # * 3 6 > > C K K g nameg drop-right!g
documentationf &Linear-update variant of `drop-right'. C&R' hP ]
$ 6" )
$ 45D " " g lst
N g i N g l ? g n ? g acc ? g filenamef srfi/srfi-1.scm
) , / 2 & 5 ? ? D " N N g nameg split-atg
documentationf [Return two values, a list of the elements before index I in LST, and
a list of those after. C'R( hX ]
$ 6
$ D" %
$ D " " g lst
U g i U g l # H g n # H g tmp . : g filenamef srfi/srfi-1.scm
# ' + . . 3 4 : = @ H H M U U g nameg split-at!g
documentationf $Linear-update variant of `split-at'. C(R h ]4 5C g pair
g filenamef srfi/srfi-1.scm
g nameg lastg
documentationf ;Return the last element of the non-empty, finite list PAIR. C)RPlnm hP - 1 3 " 045$ 64545 " " g clist1
K g rest K g l
= g acc
= g filenamef srfi/srfi-1.scm
!
* 5 = = B C ' K K
g nameg zip C/R h n ] 6 f g l
g filenamef srfi/srfi-1.scm
g nameg unzip1 C0R h ]4 54 5D x g l
g filenamef srfi/srfi-1.scm
g nameg unzip2 C1R h ]4 54 54 5D g l
g filenamef srfi/srfi-1.scm
' g nameg unzip3 C2R h( ]4 54 54 54 5D g l
( g filenamef srfi/srfi-1.scm
' 5 ( ( g nameg unzip4 C3R h8 ]4 54 54 54 54 5D g l
1 g filenamef srfi/srfi-1.scm
' 5 '
1 1 g nameg unzip5 C4R6Plmn
h - 1 3 4 5$ " 4 > " G ( ." ( C4 5 " "" A45$ C4545 4 4 5? " " g kons
g knil g list1 g rest g knil 6 T g list1 6 T g knil d g lists d g cars g cdrs
g filenamef srfi/srfi-1.scm
2 6 < @ E I L ' T T d e q u ~ + !
g nameg foldg
documentationf uApply PROC to the elements of LIST1 ... LISTN to build a result, and return
that result. See the manual for details. C6R7lnm h - 1 3 4 5$ " 4 > " G ( 3" ( C4 5 "45 "" 945$ C454 4 4
5 5? "45 " g kons
g knil g clist1 g rest g lst 6 T g result 6 T g lists i g result i g filenamef srfi/srfi-1.scm
2 6 < B C H L T T U e i j v z ' 7 &
g nameg
fold-right C7R8Pln h - 1 3 4 5$ " 4 > " G ( 1" !( C 4 5 " "" 645$ C45 4 4 5? " " g kons
g knil g clist1 g rest g knil 6 W g list1 6 W g tail B W g knil g g lists g g tails
g filenamef srfi/srfi-1.scm
2 6 < B B E W W g h t x , !
g nameg pair-fold C8R9 h ] ( LCL 4L 56 g list1
g filenamef srfi/srfi-1.scm
g nameg f CPln h0 ]4 5$ LCL 4 4L4 55 5@ g lists
. g filenamef srfi/srfi-1.scm
) , ' ) * # , . . g nameg f C hh - 1 3 4 5$ " 4 > " G ( O Q 6O Q 6 g kons
g g knil g g clist1 g g rest g g f < K g f U g g filenamef srfi/srfi-1.scm
2 < U e g g
g nameg pair-fold-right C9R h \ ]C T g x
g filenamef srfi/srfi-1.scm
1 = C< h - . , 3 # " /" ( C "45 "4 5$ " 4 > " G 45$ " 4> " G 45$ " 4> " G 45$ " 4> " G " 04 5$ "*4545 " "
g p
g f g g g seed g tail-gen g lst I g seed I g lst 8 g result 8 g seed g result g filenamef srfi/srfi-1.scm
$ * -
0
8
8 ; I J m
g nameg unfold C<R= h O - . , 3 # 4 5$ " 4 > " G 45$ " 4> " G 45$ " 4> " G " '4 5$ C4545 " " G g p
g f g g g seed g tail g seed g lis g filenamef srfi/srfi-1.scm
3 9 \ g nameg unfold-right C=R:6 h@ ]4 5$ " 4 > " G ( C 6 g f
: g ridentity : g lst : g filenamef srfi/srfi-1.scm
% + & 5 ( 8 ( : ( : g nameg reduceg
documentationf `reduce' is a variant of `fold', where the first call to F is on two
elements from LST, rather than one element and a given initial value.
If LST is empty, RIDENTITY is returned. If LST has just one element
then that's the return value. C:R: h ] 456 g f
g ridentity g lst g filenamef srfi/srfi-1.scm
*
/ / g nameg reduce-rightg
documentationf `reduce-right' is a variant of `fold-right', where the first call to
F is on two elements from LST, rather than one element and a given
initial value. If LST is empty, RIDENTITY is returned. If LST
has just one element then that's the return value. C;R6* h( ]
4 5 $ $ 6CC g ls
% g len % g ls-len % g filenamef srfi/srfi-1.scm
F G & G H I I ) % C*nm h ) 3 4 5$ " 4 > " G " |$ Y$ 6& 64 5 "4 5 "( 6 6 "r- 1 3 4 5$ " 4 > " G 4
4 55 $ " 4
> " G " =
$ 6454 45? " " g f
g l g hare 0 g tortoise 0 g move? 0 g out 0 g f
y g l1 y g rest y g len y g l1 ) f g rest ) f g len ) f g out ) f g filenamef srfi/srfi-1.scm
2
4 0 5 3 6 7 6 = 7 E 8 I 9 K 9 . M 9 4 R : U 9 X ; [ ; $ ] < b < d < g < s ; v = z > > > > = ? @ A A * A 0 B A 5 5 6 5 2 E F K F F M N N
N & O P P N ) Q , R
1 R 7 S
: T ; T F T + G U L U " M U + W U Z U f T
f Q m Q 5 y Q B y
g nameg map CRiR6* h( ]
4 5 $ $ 6CC g ls
% g len % g ls-len % g filenamef srfi/srfi-1.scm
p q & q r s s ) % C*mn h Z ) 3 4 5$ " 4 > " G " $ e$ <& 64 > " G "4 > " G "( C 6 "m- 1 3 4 5$ " 4 > " G 4
4 55 $ " 4 > " G " A
$ 74
45> " G 45 "C " R g f
g l g hare 0 g tortoise 0 g move? 0 g f
g l1 g rest g len g l1 . o g rest . o g len . o g filenamef srfi/srfi-1.scm
Z
\ 0 ] 3 ^ 7 ^ = _ E ` I a K a . M a 9 R b U a V d [ d ` d k e n e + y e z g g g h h j k k * k 5 l k ] Z o p u p p w x x x & y z z " x . { 2 |
6 | 7 ~ > ~ ? ~ ! L ~ W X # c 2 m o { 9
g nameg for-each CR+ h - 1 3 4 ?6 g f
g clist1 g rest g filenamef srfi/srfi-1.scm
g nameg
append-map C>R, h - 1 3 4 ?6 g f
g clist1 g rest g filenamef srfi/srfi-1.scm
g nameg append-map! C?Ri@RBlmn
h - 1 3 4 5$ " 4 > " G ( H" 9( 64 5 $ " " "" R45$ 64 45? $ 4 5 "4 5 " " g proc
g list1 g rest g l 6 o g rl 6 o g res J o g l ~ g rl ~ g res g filenamef srfi/srfi-1.scm
2 6 < B C H J J R U Z b e o o r z ~ # " &
g nameg
filter-mapg
documentationf Apply PROC to the elements of LIST1... and return a list of the
results as per SRFI-1 `map', except that any #f results are omitted from
the list returned. CBRAln h V - 1 3 4 5$ " 4 > " G ( /" #( C4 > " G " "" 245$ C4 > " G 45 " " N g f
g clist1 g rest g l 6 Y g l e g filenamef srfi/srfi-1.scm
2 6 < ?
S Y
Y e f
r u
g nameg
pair-for-each CARI h ]4 5$ " 4 > " G ( C4 5$ H " /( C4 5$ "C "C g pred
g ls g result ? g ls E t g p E t g filenamef srfi/srfi-1.scm
+ , . 3 5 9 < ? ? E K
O T V Z
_ & b c f i ! q t w g nameg
take-whileg
documentationf jReturn a new list which is the longest initial prefix of LS whose
elements all satisfy the predicate PRED. CIRJ hh e ]4 5$ " 4 > " G " 2( C4 5$
"$ CC " ] g pred
f g lst f g prev ) [ g rest ) [ g filenamef srfi/srfi-1.scm
) / 3 8 : > C K N R U V Z [ f g nameg take-while!g
documentationf &Linear-update variant of `take-while'. CJRK hX \ ]
4 5$ " 4 > " G " ( C4 5$ "C " T g pred
Q g lst Q g lst ) I g filenamef srfi/srfi-1.scm
) / 0 2 7 9 = @ F I
Q g nameg
drop-whileg
documentationf UDrop the longest initial prefix of LST whose elements all satisfy the
predicate PRED. CKRL hh ]4 5$ " 4 > " G " 3( " 4 5$ "45D " g pred
g g lst g g lst ) \ g rl ) \ g filenamef srfi/srfi-1.scm
) / 5
: <
@ C F I Q R \ \ _ g g g nameg spang
documentationf }Return two values, the longest initial prefix of LST whose elements
all satisfy the predicate PRED, and the remainder of LST. CLRM hp ~ ]4 5$ " 4 > " G " :( D4 5$
"$
DD " v g pred
n g list n g prev ) c g rest ) c g filenamef srfi/srfi-1.scm
) / 2 4 5 : < @ E M P T W X ^ _ c c n g nameg span!g
documentationf Linear-update variant of `span'. CMRN hh ]4 5$ " 4 > " G " 3( " 4 5$ 45D " " g pred
g g clist g g clist ) \ g rl ) \ g filenamef srfi/srfi-1.scm
) / 0 5 : < @ A K N Q T \ \ _ g g g nameg breakg
documentationf zReturn two values, the longest initial prefix of LST whose elements
all fail the predicate PRED, and the remainder of LST. CNRO hp } ]4 5$ " 4 > " G " :( D4 5$ $
DD " " u g pred
n g list n g l ) c g prev ) c g filenamef srfi/srfi-1.scm
) / 2 4 5 : < @ C
G
J K Q
R V Y c c n g nameg break!g
documentationf !Linear-update variant of `break'. CORPlnm h u - 1 3 4 5$ " 4 > " G ( 6" X45$ C4455$
45@4 45? $ C45 " " m g pred
g ls g lists g lists > g t | g filenamef srfi/srfi-1.scm
2 : > ? K N S ] a d n o r | | 4 0
g nameg any CPR h@
]" 2( C( 64 5 $ C " " g pred
@ g ls @ g ls 8 g t $ 8 g filenamef srfi/srfi-1.scm
" # # % " % $ % $ % 2 % # 8 % 8 @ g nameg any1 CRQlnm
h h - 1 3 4 5$ " 4 > " G ( 6" S45$ C4455$
4 5@4 4 5?$ 45 "C " ` g pred
g ls g lists g lists > g filenamef srfi/srfi-1.scm
'
( 2 ) : * > + ? , K , N . S . ] . a , d / n / o 1 r 1 | 1 1 1 5 1 1 + + +
g nameg every CQR h@ ]
" -( C( 64 5$ "C " g pred
; g ls ; g ls 3 g filenamef srfi/srfi-1.scm
3
4 5 7 5 8 8 : " : $ : ( : + : $ 1 : 3 4 ; g nameg every1 CRlmn h A - 1 3 4 5$ " 4 > " G ( 4" %( C4 5$ C "
"" 845$ C4 45?$ C45 "
"9 g pred
g clist1 g rest g l 6 [ g i 6 [ g lists j g i j g filenamef srfi/srfi-1.scm
<
? 2 @ 6 A < B ? D D D F D J D P F S F [ F
[ A j G k H
w H z J
} J J
H L L ! L
G G G
g nameg
list-indexg
documentationf gReturn the index of the first set of elements, one from each of
CLIST1 ... CLISTN, that satisfies PRED. CRiTRT h8 r ]" &( 645 " " j g alist
7 g a , g rl , g filenamef srfi/srfi-1.scm
R
U W X Y Y Y Y ) $ Y , Y , U / V 7 U 7 g nameg
alist-copyg
documentationf eReturn a copy of ALIST, copying both the pairs comprising the list
and those making the associations. CURV h N - . , 3 # 45$ " 4> " G " 9( 64 5$
" " " F g key
g alist g k= g a = v g rl = v g filenamef srfi/srfi-1.scm
[
\ = ] C ^ I _ J ` Q ` T ` X ` [ a e a h b k b n b v b v ] y ] ] g nameg alist-delete CVRV h - . , 3 # 6 g key
g alist g k= g filenamef srfi/srfi-1.scm
d
e g nameg
alist-delete! CWRH h \ ]LL 6 T g y
g filenamef srfi/srfi-1.scm
q
q
C hh - . , 3 # & 6& 645$ " 4> " G
O 6 g x
h g ls h g = h g filenamef srfi/srfi-1.scm
i
j & m . j 6 n 7 p h q h g nameg member CRXQ h f ] LL 6 ^ g el
g filenamef srfi/srfi-1.scm
{ { 0
{ %
C hx - 1 3 4 5$ " 4 > " G ( C" ,( C4 O 5$ "C " g =
r g rest r g f 8 d g r 8 d g filenamef srfi/srfi-1.scm
u
v 2 w 8 y > z ? z A { T { W | Z | b | d y g y j y ! r y r
g nameg lset<= CXRXQ h f ] LL 6 ^ g el
g filenamef srfi/srfi-1.scm
.
#
C h k ]L 6 c g x
g y
g filenamef srfi/srfi-1.scm
0
>
C h ] ] LL O 6 U g el
g filenamef srfi/srfi-1.scm
# C h < - 1 3 4 5$ " 4 > " G ( C" C( C4 O 5$ %4 O 5$ "CC " 4 g =
g rest g f 8 { g r 8 { g filenamef srfi/srfi-1.scm
~
2 8 > ?
A T
U c I e i
l o w { ~
g nameg lset= CYRZ h k ]L 6 c g x
g y
g filenamef srfi/srfi-1.scm
C h - 1 3 H & " $ " *4 5$ " 4 > " G O K" 0( C4J5$ " " " g =
g list g rest g pred
g ans X g rest X g filenamef srfi/srfi-1.scm
" )
X ^ b g m q z }
g nameg lset-adjoing
documentationf lAdd to LIST any of the elements of REST not already in the list.
These elements are `cons'ed onto the start of LIST (so the return shares
a common tail with LIST), but the order they're added is unspecified.
The given `=' procedure is used for comparing elements, called
as `(@var{=} listelem elem)', i.e., the second argument is one of the
given REST parameters. CZR[ h k ]L 6 c g x
g y
g filenamef srfi/srfi-1.scm
C66 h ]4 M 5$ C C y g elt
g ans g filenamef srfi/srfi-1.scm
C h0 x ] ( C( C & CL O 6 p g lis
. g ans . g filenamef srfi/srfi-1.scm
. . C hh - 1 3 H & " $ " *4 5$ " 4 > " G O KO 6 g =
b g rest b g pred
b g filenamef srfi/srfi-1.scm
" )
^ b b
g nameg
lset-union C[R\Q h f ]L L 6 ^ g ll
g filenamef srfi/srfi-1.scm
&
C h ? - 1 3 4 5$ " 4 > " G " >( 64 O 5$ " " " 7 g =
y g list1 y g rest y g l 0 n g acc 0 n g filenamef srfi/srfi-1.scm
0 6 < =
P S V Y a d n n q y y
g nameg lset-intersection C\R]P h f ]L L 6 ^ g ll
g filenamef srfi/srfi-1.scm
&
C h K - 1 3 4 5$ " 4 > " G ( C" >( 64 O 5$
" " " C g =
g list1 g rest g l 9 w g acc 9 w g filenamef srfi/srfi-1.scm
2 9 ? E F Y \ f
i l o w
w z
g nameg lset-difference C]R^6 h ]"" ~( J" :( 64 L 5$
" " "4L 5$
" " "w g lst
g res g l g acc g r J g acc J g filenamef srfi/srfi-1.scm
" ( , / 9 < ? ' B ! J J W \ b f i s v y " |
C h@ - 1 3 4 5$ " 4 > " G O 6 g =
: g rest : g filenamef srfi/srfi-1.scm
6 : :
g nameg lset-xor C^R_Q h f ]L L 6 ^ g ll
g filenamef srfi/srfi-1.scm
1
)
C h - 1 3 4 5$ " 4 > " G " X( 4545D4 O 5 $ " " " g =
g list1 g rest g l 0 g accd 0 g acci 0 g appears V g filenamef srfi/srfi-1.scm
0 6 7 > F G V ^ a f ! i s
v y |
&
g nameg lset-diff+intersection C_R`[ h8 - 1 3 4 5$ " 4 > " G @ g =
4 g rest 4 g filenamef srfi/srfi-1.scm
4 4
g nameg lset-union! C`Ra\ h8 - 1 3 4 5$ " 4 > " G @ g =
6 g list1 6 g rest 6 g filenamef srfi/srfi-1.scm
6 6
g nameg lset-intersection! CaRc^ h8 - 1 3 4 5$ " 4 > " G @ g =
4 g rest 4 g filenamef srfi/srfi-1.scm
4 4
g nameg lset-xor! CcRd_ h8 - 1 3 4 5$ " 4 > " G @ g =
6 g list1 6 g rest 6 g filenamef srfi/srfi-1.scm
6 6
g nameg lset-diff+intersection! CdRC g m
0 g filenamef srfi/srfi-1.scm '
1
6 > & C
L
Q W X + ` b g
l
/
%
7
@
G
[
\
$ ]
+ ^
_
Y `
a
b
* c
d
f
j
k
q
w
}
"
#
%9
%
&
'D
(
)
,z
/]
2*
5s
9%
;B
=X
?@ *
E 1
E W
K Y
Lg
M8
M?
QD
Si
V*
X
Y
\
^)
`q
bx
d
f
hC '
i 3
l <
l P
nm R
pa [
q6 d
r i
u' u
x ~
|
@
2
a
C6 PK ! qS S srfi/srfi-10.gonu [ GOOF----LE-8-2.0; ] ' 4 h ] g guile g define-module* g srfi g srfi-10 g filenameS
f srfi/srfi-10.scm g importsS g ice-9
g rdelim
g exportsS g define-reader-ctor g set-current-module g cond-expand-provide g current-module g make-hash-table g reader-ctors g
hashq-set! g hashq-ref g
procedure? g error f unknown hash-comma tag !g lookup "g read #f %syntax error in hash-comma expression $g length %g
hash-comma &g read-hash-extendC 5 h ]4
5 4 > " G 4i4i5 > " G 4i 5R h ]4 > " G C g symbol
g proc g filenamef srfi/srfi-10.scm
=
> g nameg define-reader-ctor CR h( ] 4 5 45$ C 6 g symbol
$ g p $ g filenamef srfi/srfi-10.scm
D
E E F F H $ H $ g nameg lookup C!R" #$! hP 6 ]45 " 6$ .45
$ $ 45 @""" . g char
N g port N g obj N g p 9 B g filenamef srfi/srfi-10.scm
L
M M R R N N
N N $ $ N ) N , N ; - N 2 1 N 2 O 7 O 9 O 9 O @ P B P N g nameg
hash-comma C%R&i,%i6 g m
, g filenamef srfi/srfi-10.scm /
- 3
2 3 : 3 & ? 3
H 8 S 8
=
D
L
V
C6 PK ! (^A srfi/srfi-28.gonu [ GOOF----LE-8-2.0 ] 4 hD ] g guile g define-module* g srfi g srfi-28 g filenameS
f srfi/srfi-28.scm g replacementsS g format
g set-current-module g
simple-format g cond-expand-provide g current-module C 5 h v ]4
5 4 > " G h - 1 3 @ ~ g message
g args g filenamef srfi/srfi-28.scm
g nameg format C Ri4i5 6n g m
( g filenamef srfi/srfi-28.scm
! ! & !
C6 PK ! tv. srfi/srfi-38.gonu [ GOOF----LE-8-2.0 ] U 4 h ] g guile g define-module* g srfi g srfi-38 g filenameS
f srfi/srfi-38.scm g importsS g rnrs
g bytevectors
g srfi-8 g srfi-69 g system g vm g
trap-state g exportsS g write-with-shared-structure g read-with-shared-structure g set-current-module ! " #g cond-expand-provide $g current-module % &g current-output-port 'g
vector-length (g string? )g
string-length *g bytevector? +g port? ,g display -f ( .f ) /f . 0g hash-table-ref 1f 2f #( 3g write 4g number? 5f # 6g counter 7f = 8g hash-table-set! 9g hash-table-exists? :g make-hash-table ;g eq? <g current-input-port =g eqv? >g peek-char ?g eof-object? @g list->string Ag reverse Bg read-char Cg string->number Dg
char-numeric? Eg hash-table-ref/default Fg error Gf Double declaration of part Hg read If Use of undeclared part Jf Malformed shared part specifier Kg with-fluid* Lg %read-hash-procedures Mg for-each Ng read-hash-extend O0123456789
Pg hash-table-size Qg patch! Rg
procedure? Sg hole? Tg fill-holeC 5 h ]4
5 4" > " G 4#i4$i5 %> " G &'()*+ h \ ] $ C $ 4 5
" $ C4 5$ 4 5
" $ C4 5 $ C $ C4 5 $ CCT g obj
g t ! g t F g t X g t s g filenamef srfi/srfi-38.scm
9 : :
: ;
; ; ' ; ; ! : - <
7 < 8 < ' ? < A < F : R = X : f > j : k > m ? s : g nameg interesting? C,-./012'345678 h@ ]" _ $ 4L> " G 4L > " G " " >( L64L> " G 4L > " G L6$ C45$ "4L> " G 4L > " G "t"t "g $ 4L> " G 4 5 4L
> " G " E$ L64L> " G 4L > " G " " L64L 5$ 4 5 $ 4
5$ 04 L> " G 4 L> " G L64 5 4 L> " G 4 L> " G 4
L> " G 4 > " G 4 > " G "" L6 g obj
@ g state @ g obj : g len ] g i V g val y 8 g n 4 g filenamef srfi/srfi-38.scm
N O P
P Q
Q Q
" R
' R . R
: S
D T H Y L Y M [ Q [ X [ a \ x ] | ] | T T T T , T U U U V V ! V W ! W S
S " S
^
P _
_ _
` `
a a a b c c c + " c " # d ' d & . d 7 e > e ( E e P f ( V f V b e h f i p i q j y j k
l k
m m $ m n o $ o q " q 8 q " q q r r r s t t t u u - u v 4 w 8 k @ y ^ @ g nameg write-obj C98' h ]4L 5 $ C4 5$ 64 > " G $ "4L > " G " $ ?4 5 " +$ C4L > " G "
"C g obj
g state g t
g len w g i } g filenamef srfi/srfi-38.scm
~
" + , C G H M T _ i l p q w } g nameg scan C:;86 h L - . , 3 # 45 # O O Q Q 45 4 > " G 4
> " G 6 D g obj
g outport g optarg g interesting? 9 g write-obj 9 g scan 9 g state P g filenamef srfi/srfi-38.scm
.
0 / J P S g m s
g nameg write-with-shared-structure C R<:=>?@AB hX 7 ]" G4L 5 45 $ " 4 5 $ 4564L 5 " " / g pred
U g initial U g chars M g c
M g t . g filenamef srfi/srfi-38.scm
$ ' + " 2
5 = > G M M U g nameg read-some-chars CCDBEFG8h _ ] L C W g filenamef srfi/srfi-38.scm
$
g nameg thunk CHIJ h ]*44L 55 45 4L5 =$ P$ 4> " G " 4LO > " G 4 5 C#$ $ C
6 6 g c
g port g n g c g thunk ( g cell U g obj y g filenamef srfi/srfi-38.scm
? ( 3 9 : > E U U X
s y
g nameg read-hash CKLMN h a ] L 6 Y g digit
g filenamef srfi/srfi-38.scm
COHPQ hP ]4LO > " G 4L5
4L 5$ 4 > " G " C g result
" J g filenamef srfi/srfi-38.scm
" & - 1
2 J
C hX - . , 3 # 45 45 O O Q Q [ O 6 g port
S g parts-table S g read-some-chars 3 S g read-hash 3 S g filenamef srfi/srfi-38.scm
6 S S
g nameg read-with-shared-structure C RR h n ] 6f g x
g filenamef srfi/srfi-38.scm
g nameg hole? CSRST h ]4 5$ 4 5 6 C g x
g filenamef srfi/srfi-38.scm
/ $ g nameg fill-hole CTRSTQ' h ] $ N4 5$ 4 5" 4 > " G 4 5$
4 5C 6 $ \" J
$ C 45$ 45" 4> " G "4 5 "C g x
g i b g elt q g filenamef srfi/srfi-38.scm
$ / $ % 9 * A / 9 8 = ? C F $ K / M $ N U A W 9 Z ^ b f j q q t ~ $ * g nameg patch! CQRC g m
, g filenamef srfi/srfi-38.scm
- "
2 " : " & ? "
.
A
C6 PK ! n<z z srfi/srfi-13.gonu [ GOOF----LE-8-2.0b ] p 4 h ] g guile g define-module* g srfi g srfi-13 g filenameS
f srfi/srfi-13.scm g set-current-module
g call-with-deferred-observers g module-re-export! g current-module g string? g string-null? g
string-any g string-every g make-string g string g string-tabulate g string->list g list->string g reverse-list->string !g string-join "g
string-length #g
string-ref $g string-copy %g substring/shared &g string-copy! 'g string-take (g string-take-right )g string-drop *g string-drop-right +g
string-pad ,g string-pad-right -g string-trim .g string-trim-right /g string-trim-both 0g string-set! 1g string-fill! 2g string-compare 3g string-compare-ci 4g string= 5g string<> 6g string< 7g string> 8g string<= 9g string>= :g
string-ci= ;g string-ci<> <g
string-ci< =g
string-ci> >g string-ci<= ?g string-ci>= @g string-hash Ag string-hash-ci Bg string-prefix-length Cg string-prefix-length-ci Dg string-suffix-length Eg string-suffix-length-ci Fg string-prefix? Gg string-prefix-ci? Hg string-suffix? Ig string-suffix-ci? Jg string-index Kg string-index-right Lg string-skip Mg string-skip-right Ng string-count Og string-contains Pg string-contains-ci Qg
string-upcase Rg string-upcase! Sg string-downcase Tg string-downcase! Ug string-titlecase Vg string-titlecase! Wg string-reverse Xg string-reverse! Yg
string-append Zg string-append/shared [g string-concatenate \g string-concatenate-reverse ]g string-concatenate/shared ^g !string-concatenate-reverse/shared _g
string-map `g string-map! ag string-fold bg string-fold-right cg
string-unfold dg string-unfold-right eg string-for-each fg string-for-each-index gg
xsubstring hg
string-xcopy! ig string-replace jg string-tokenize kg
string-filter lg
string-delete m !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkl V ng cond-expand-provide o C 5 h x ]4
5 4
> " G 4m h B ] 45 6 : g filenamef srfi/srfi-13.scm
C> " G ni4i5 o6 p g m
$ g filenamef srfi/srfi-13.scm
%
&
C6 PK ! srfi/srfi-69.gonu [ GOOF----LE-8-2.0 ]W 4 hR ] g guile g define-module* g srfi g srfi-69 g filenameS
f srfi/srfi-69.scm g importsS g srfi-1
g srfi-9 g srfi-13 g ice-9 g optargs g exportsS g make-hash-table g hash-table? g alist->hash-table g hash-table-equivalence-function g hash-table-hash-function g hash-table-ref !g hash-table-ref/default "g hash-table-set! #g hash-table-delete! $g hash-table-exists? %g hash-table-update! &g hash-table-update!/default 'g hash-table-size (g hash-table-keys )g hash-table-values *g hash-table-walk +g hash-table-fold ,g hash-table->alist -g hash-table-copy .g hash-table-merge! /g string-ci-hash 0g hash-by-identity 1 !"#$%&'()*+,-./0 2g
re-exportsS 3g string-hash 43 5g replacementsS 6g hash 76 8g set-current-module 98 :8 ;g cond-expand-provide <g current-module = >g make-syntax-transformer ?> @> Ag hashx-invoke Bg macro Cg $sc-dispatch DC EC Fg _ Gg any HFG Ig
syntax->datum JI KI Lg
datum->syntax ML NL Og
ht-associator Pg
ht-real-table Qg syntax-violation RQ SQ Tf -source expression failed to match any pattern Ug with-hashx-values Vg let Wg first Xg second Yg third Zg most-positive-fixnum [g caller-with-default-size \6 ]6 ^g string-hash-ci _g hashq `g srfi-69:hash-table ag "%make-srfi-69-hash-table-procedure bg make-srfi-69-hash-table cFGGGGGG dg
syntax-object eg lambda fg m-46961e518c-31 gg top hfg ig ribcage jg t-46961e518c-2b kg t-46961e518c-2c lg t-46961e518c-2d mg t-46961e518c-2e ng t-46961e518c-2f og t-46961e518c-30 pjklmno qhhhhhh rf l-46961e518c-36 sf l-46961e518c-37 tf l-46961e518c-38 uf l-46961e518c-39 vf l-46961e518c-3a wf l-46961e518c-3b xrstuvw yipqx zi {g x |{ }h ~f l-46961e518c-33 ~ i|} g shift g proc-name g args g f l-1e8ba8b5a-2ba f l-1e8ba8b5a-2bb i g key g value g name g formals g body f l-1e8ba8b5a-2ad f l-1e8ba8b5a-2ae f l-1e8ba8b5a-2af f l-1e8ba8b5a-2b0 f l-1e8ba8b5a-2b1 i g make-procedure-name f l-1e8ba8b5a-29d i f l-1e8ba8b5a-29c i| hyzzzzz
g hygiene de g
real-table yz d g
associator d g size d g weakness d g equivalence-function d g
hash-function d g make-struct g m-46961e518c-29 g g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e g f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 i g ctor-args f l-1e8ba8b5a-37a i g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 i g form g type-name g constructor-spec g field-names f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e i g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 i f l-1e8ba8b5a-334 i| yzzzzzz d d` d
g each-any F Q Q f Wrong number of arguments g identifier? z da g record-type-vtable g pwpwpwpwpwpw g default-record-printer
g set-struct-vtable-name!
g vtable-offset-user g %hash-table?-procedure FG g m-46961e518c-48 g g t-46961e518c-47 f l-46961e518c-4d i f l-46961e518c-4a i| z zzzz
de !g obj "g t-1e8ba8b5a-47e #g t-1e8ba8b5a-478 $g t-1e8ba8b5a-479 %g t-1e8ba8b5a-47a &g t-1e8ba8b5a-47d 'g t-1e8ba8b5a-47c (g t-1e8ba8b5a-47b )"#$%&'( *g m-1e8ba8b5a-47f +*g ,+++++++ -f l-1e8ba8b5a-483 .f l-1e8ba8b5a-484 /f l-1e8ba8b5a-485 0f l-1e8ba8b5a-486 1f l-1e8ba8b5a-487 2f l-1e8ba8b5a-488 3f l-1e8ba8b5a-489 4-./0123 5i),4 6g copier-id 76 8f l-1e8ba8b5a-476 98 :i79 ;g ctor-name <; =f l-1e8ba8b5a-46e >= ?i<> @ Af l-1e8ba8b5a-46c BA Ci@B Dg layout ED Ff l-1e8ba8b5a-46a GF HiEG Ig
immutable? JI Kf l-1e8ba8b5a-468 LK MiJL Ng field-count ON Pf l-1e8ba8b5a-466 QP RiOQ Sg
getter-ids TS Uf l-1e8ba8b5a-463 VU WiTV Xg field-ids YX Zf l-1e8ba8b5a-460 [Z \iY[ ]g predicate-name ^g
field-spec _I]^ ` af l-1e8ba8b5a-453 bf l-1e8ba8b5a-454 cf l-1e8ba8b5a-455 df l-1e8ba8b5a-456 ef l-1e8ba8b5a-457 ff l-1e8ba8b5a-458 gabcdef hi_`g iz z5zzzz:z?zCzHzMzRzWz\h jd!i kj lg and mdli ng struct? odni poj qg eq? rdqi sg
struct-vtable tdsi utj vz wd`v xruw ympx z ky {z |d{ }g throw-bad-struct ~} } g %ht-real-table-procedure g free-id g
%%on-error g m-46961e518c-54 g f l-46961e518c-56 i| zzzzz d G g %%type g t-1e8ba8b5a-3a5 g t-1e8ba8b5a-3a6 g t-1e8ba8b5a-3a7 g t-1e8ba8b5a-3a8 g t-1e8ba8b5a-3a9 g t-1e8ba8b5a-3aa g t-1e8ba8b5a-3ab g m-1e8ba8b5a-3ac g f l-1e8ba8b5a-3b0 f l-1e8ba8b5a-3b1 f l-1e8ba8b5a-3b2 f l-1e8ba8b5a-3b3 f l-1e8ba8b5a-3b4 f l-1e8ba8b5a-3b5 f l-1e8ba8b5a-3b6 i g getter g index f l-1e8ba8b5a-3a3 f l-1e8ba8b5a-3a4 i S6 f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 i zzzzzz d FG g ck g err g s f l-46961e518c-59 f l-46961e518c-5a i zzzzz
d g quote d z d` g %%index d FG f l-46961e518c-5e f l-46961e518c-5f i zzzzz
d d z d
g %%copier d FG f l-46961e518c-63 f l-46961e518c-64 i zzzzz
d d g %%srfi-69:hash-table-set-fields z d g t-46961e518c-53 f l-46961e518c-68 i zzzzz
de zzzzzz d g if d dq ds z d` g
struct-ref d z d
d} d dP z d g %ht-associator-procedure g m-46961e518c-6f g f l-46961e518c-71
i| z
zzzz d
G z
zzzzz d FG f l-46961e518c-74 f l-46961e518c-75 i z
zzzz
d d z
d` d !F G "f l-46961e518c-79 #f l-46961e518c-7a $"# %i$ &%z
zzzz
'd& (d& )%z
*d ) +(* ,+ -d .- /F.G 0f l-46961e518c-7e 1f l-46961e518c-7f 201 3i2 43z
zzzz
5d4 6d4 73z
8d7 968 :9 ;g t-46961e518c-6e <; =f l-46961e518c-83 >= ?i<> @?z
zzzz
Ade@ B?z
zzzzz CdB DC EdB FdqB GdsB HGC I?z
Jd`I KFHJ LdB M?z
Nd M OLCN Pd}B QdB RdOI SQR TPCS UEKOT VADU Wz
XdW Yg ht-size Zg %ht-size-procedure [g m-46961e518c-8a \[g ]\ ^f l-46961e518c-8c _^ `i|]_ a\z`zzzz bda cb dcG ez`zzzzz fde gf hFdgG i\\ jf l-46961e518c-8f kf l-46961e518c-90 ljk miil n\mz`zzzz
odn pdn qmz` rd`q spr ts ude vu wFdvG xf l-46961e518c-94 yf l-46961e518c-95 zxy {iiz |\{z`zzzz
}d| ~d| {z` d ~ de FdG f l-46961e518c-99 f l-46961e518c-9a ii \z`zzzz
d d z` d g t-46961e518c-89 f l-46961e518c-9e i] \z`zzzz
de z`zzzzz d d dq ds z` d` d z` d d} d dY z` dZ g ht-weakness g %ht-weakness-procedure g m-46961e518c-a5 g f l-46961e518c-a7 i| zzzzz d G zzzzzz d FG f l-46961e518c-aa f l-46961e518c-ab i zzzzz
d d z d` d FG f l-46961e518c-af f l-46961e518c-b0 i zzzzz
d d z d d FG f l-46961e518c-b4 f l-46961e518c-b5 i zzzzz
d d z d g t-46961e518c-a4 f l-46961e518c-b9 i zzzzz
de zzzzzz d d dq ds z d` d z d d} d d z d g *%hash-table-equivalence-function-procedure g m-46961e518c-c0 g f l-46961e518c-c2
i|
z zzzz
d
G z zzzzz d FG f l-46961e518c-c5 f l-46961e518c-c6 i z zzzz
d d z d` d ! "F!G #f l-46961e518c-ca $f l-46961e518c-cb %#$ &i% '&z zzzz
(d' )d' *&z +d * ,)+ -, .d /. 0F/G 1f l-46961e518c-cf 2f l-46961e518c-d0 312 4i3 54z zzzz
6d5 7d5 84z 9d8 :79 ;: <g t-46961e518c-bf =< >f l-46961e518c-d4 ?> @i=? A@z zzzz
BdeA C@z zzzzz DdC ED FdC GdqC HdsC IHD J@z Kd`J LGIK MdC N@z Od N PMDO Qd}C RdC Sd J TRS UQDT VFLPU WBEV Xz YdX Zg #%hash-table-hash-function-procedure [g m-46961e518c-db \[g ]\ ^f l-46961e518c-dd _^ `i|]_ a\z`zzzz bda cb dcG ez`zzzzz fde gf hFdgG i\\ jf l-46961e518c-e0 kf l-46961e518c-e1 ljk miil n\mz`zzzz
odn pdn qmz` rd`q spr ts ude vu wFdvG xf l-46961e518c-e5 yf l-46961e518c-e6 zxy {iiz |\{z`zzzz
}d| ~d| {z` d ~ de FdG f l-46961e518c-ea f l-46961e518c-eb ii \z`zzzz
d d z` d g t-46961e518c-da f l-46961e518c-ef i] \z`zzzz
de z`zzzzz d d dq ds z` d` d z` d d} d d z` dZ g each GG G G G g %%set-fields g dummy g check? g expr g m-46961e518c-f6 g f l-46961e518c-fb f l-46961e518c-fc f l-46961e518c-fd f l-46961e518c-fe f l-46961e518c-ff i f l-46961e518c-f8 i| g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 g f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd i f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 i zzzzz
d z d` dP dO dY d d d g map g list g ht-size! g %ht-size!-procedure FGG g m-46961e518c-10a g g t-46961e518c-108 g t-46961e518c-109 f l-46961e518c-10f f l-46961e518c-110 i f l-46961e518c-10c i| zzzzz
de g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 g f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed i g setter f l-1e8ba8b5a-3e0 f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2
i
^
f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8
i g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 i zz zz d g val d d dq ds z !d` " ! #g struct-set! $d# %z &d % '$& (d} )d *d +)* ,(+ - "', .- /z 0d/ 1g equal? 2g eqv? 3g hashv 4g string=? 5g string-ci=? 6g guess-hash-function 7g reverse! 8g keyword? 9g without-keyword-args : ; <g make-weak-key-hash-table =g make-weak-value-hash-table >g key-or-value ?g make-doubly-weak-hash-table @g error Af Invalid weak hash table type Bg
guile-ht-ctor Cg assoc DC EC Fg assq Gg assv Hg equivalence-proc->associator Ig weakS JI KJ Lg for-each Mg hashx-get-handle Ng
hashx-set! Of ht-value Pg ht-unspecified Qg hashx-ref Rf Key not in table Sg hashx-create-handle! Tg
hashx-remove! Ug hash-fold Vg
alist-consC 5 h] ]4
124575 4: > " G 4;i4<i5 => " G 4@ABEHKN OP h( - 1 3 C g
hashx-proc
' g ht-var ' g args ' g filenamef srfi/srfi-69.scm
a
d '
C h d ] 4 5 L 4?6\ g args
g v g filenamef srfi/srfi-69.scm a
CST h( ! ] 4 5 $ O @ 6 g y
' g tmp ' g filenamef srfi/srfi-69.scm
a
' g
documentationf rInvoke HASHX-PROC, a `hashx-*' procedure taking a hash-function,
assoc-function, and the hash-table as first args.g
macro-typeg defmacrog
defmacro-argsg args C5AR4@UBEHKNVW XOYP hH - 1 3 4 5 4 5 4 5 C g bindings
F g ht-var F g
body-forms F g filenamef srfi/srfi-69.scm
i
l l l m % l . n 6 l F
C h d ] 4 5 L 4?6\ g args
g v g filenamef srfi/srfi-69.scm i
CST h( ] 4 5 $ O @ 6
g y
' g tmp ' g filenamef srfi/srfi-69.scm
i
' g
documentationf fBind BINDINGS to the hash-function, associator, and real-table of
HT-VAR, while evaluating BODY-FORMS.g
macro-typeg defmacrog
defmacro-argsg args C5URZ h o - . , 3 # L 6 g g obj
g size g filenamef srfi/srfi-69.scm
z { C h ] O C g hash-fn
g filenamef srfi/srfi-69.scm
w
g nameg caller-with-default-sizeg
documentationf nAnswer a function that makes `most-positive-fixnum' the default
second argument to HASH-FN, a 2-arg procedure. C[R4[i]56R^i/R4[i_i50R` h ] C g
real-table
g
associator g size g weakness g equivalence-function g
hash-function g filenamef srfi/srfi-69.scm
g nameg "%make-srfi-69-hash-table-procedure CaR4@bBEc h ] C g t-46961e518c-2b
g t-46961e518c-2c g t-46961e518c-2d g t-46961e518c-2e g t-46961e518c-2f g t-46961e518c-30 Cb h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST 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 srfi/srfi-69.scm
n C5bR
` 4 `> " G ai `R` h x ] $ CC p g obj
g filenamef srfi/srfi-69.scm
g nameg %hash-table?-procedure CR4@ BEz h 7 ] C / g t-46961e518c-47
C h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C| h ] C
CST 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 srfi/srfi-69.scm
n C5 R`P h x ] &
C 6p g s
g filenamef srfi/srfi-69.scm
g nameg %ht-real-table-procedure CR4@PBE 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 7 ] C / g t-46961e518c-53
CP h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST 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 srfi/srfi-69.scm
C5PR`O h x ] & C 6p g s
g filenamef srfi/srfi-69.scm
g nameg %ht-associator-procedure CR4@OBE h : ]C 2 g err
g s C!', h : ]C 2 g err
g s C/5: h : ]C 2 g err
g s CV h 7 ] C / g t-46961e518c-6e
CO h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
CX h ] C
CST 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 srfi/srfi-69.scm
C5OR`Y h r ] & C 6 j g s
g filenamef srfi/srfi-69.scm
g nameg %ht-size-procedure CZR4@YBEhot h : ]C 2 g err
g s Cw} h : ]C 2 g err
g s C h : ]C 2 g err
g s C h 7 ] C / g t-46961e518c-89
CY h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST 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 srfi/srfi-69.scm
C5YR` h v ] & C 6 n g s
g filenamef srfi/srfi-69.scm
g nameg %ht-weakness-procedure CR4@BE 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 7 ] C / g t-46961e518c-a4
C h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST 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 srfi/srfi-69.scm
C5R` h ] & C 6 g s
g filenamef srfi/srfi-69.scm
g nameg *%hash-table-equivalence-function-procedure CR4@ BE h : ]C 2 g err
g s C"(- h : ]C 2 g err
g s C06; h : ]C 2 g err
g s CW h 7 ] C / g t-46961e518c-bf
C h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
CY h ] C
CST 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 srfi/srfi-69.scm
C5 R` h ] & C 6 { g s
g filenamef srfi/srfi-69.scm
g nameg #%hash-table-hash-function-procedure CZR4@ BEhot h : ]C 2 g err
g s Cw} h : ]C 2 g err
g s C h : ]C 2 g err
g s C h 7 ] C / g t-46961e518c-da
C h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST 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 srfi/srfi-69.scm
C5 R4@BE h v ]45C n g dummy
g check? g s g getter g expr CST h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-69.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R` h ] & C 6 | g s
g val g filenamef srfi/srfi-69.scm
g nameg %ht-size!-procedure CR4@BE. h V ] C N g t-46961e518c-108
g t-46961e518c-109 C h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C0 h ] C
CST 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 srfi/srfi-69.scm
n C5R1]q_23435/ h@ ] & C & C & C & C &
CC g
equal-proc
< g filenamef srfi/srfi-69.scm
< g nameg guess-hash-functiong
documentationf lGuess a hash function for EQUAL-PROC, falling back on `hash', as
specified in SRFI-69 for `make-hash-table'. C6R78W hP ]" ?( 64455$ "45 " " g rest-list
P g acc E g rest-list E g filenamef srfi/srfi-69.scm
" ' 0 1 : = 1 E E F P P g nameg without-keyword-argsg
documentationf MAnswer REST-LIST with all keywords removed along with items that
follow them. C9R;<=>?@A
h@ ] $ C $ C $ C $ C 6 g weakness
9 g filenamef srfi/srfi-69.scm
5 9
9 g nameg
guile-ht-ctorg
documentationf 7Answer the Guile HT constructor for the given WEAKNESS. CBR14EqF2GC h s ] L 6 k g item
g alist g filenamef srfi/srfi-69.scm
C h@ ] & " $ C & C & C O C g
equal-proc
9 g filenamef srfi/srfi-69.scm
9 g nameg equivalence-proc->associatorg
documentationf ^Answer an `assoc'-like procedure that compares the argument key to
alist keys with EQUAL-PROC. CHRK16B9H` hh - / 0 2 3 # # 4 5 # 44545?4 5
C g
equal-proc
g g hash-proc g g weak g g
guile-opts g g
real-table R g g
associator R g g filenamef srfi/srfi-69.scm
) ; <
C K L R g
g weakS g nameg make-hash-tableg
documentationf Answer a new hash table using EQUAL-PROC as the comparison
function, and HASH-PROC as the hash function. See the reference
manual for specifics, of which there are many. CR`Y OPLMN h0 ] 4LLL 5 $ CM N LLL 6 g pair
/ g handle / g filenamef srfi/srfi-69.scm
= & * ' - 2 / / C h - 1 3 4? & " 45H& " 45& " 45&
" 45 4 O > " G J & " 4
> " G C g alist
g mht-args g result g size - g hash-proc ~ g
associator ~ g
real-table ~ g val g filenamef srfi/srfi-69.scm
- ~
g nameg alist->hash-tableg
documentationf 4Convert ALIST to a hash table created with MHT-ARGS. C ROPRQ` OPPW@R h - 1 3 4 & " 4 5 & " 4 5 &
" 4 55 & $ 456
6C g ht
g key g default-thunk-lst g result a g filenamef srfi/srfi-69.scm
a k n r s
{
g nameg hash-table-refg
documentationf Lookup KEY in HT and answer the value, invoke DEFAULT-THUNK if KEY
isn't present, or signal an error if DEFAULT-THUNK isn't provided. C RQ` OP h` ] & " 4 5 & " 4 5 &
" 4 56 g ht
Y g key Y g default Y g filenamef srfi/srfi-69.scm
Y Y g nameg hash-table-ref/defaultg
documentationf LLookup KEY in HT and answer the value. Answer DEFAULT if KEY isn't
present. C!RS` OPPY
h @ ]4 & " 4 5 & " 4 5 &
" 4 55 & N & " 4 5 & " 4 > " G " C 8 g ht
g key g new-value g handle Z g val g filenamef srfi/srfi-69.scm
Z a e h
g nameg hash-table-set!g
documentationf Set KEY to NEW-VALUE in HT. C"R` OPMYT
h G ]" & " 4 5 & " 4 5 &
" 4 5 45$ f & " 4 5 & " 4 > " G 4 > " G " C ? g ht
g key g h Q g a Q g real-ht Q g val g filenamef srfi/srfi-69.scm
Q X h k
g nameg hash-table-delete!g
documentationf Remove KEY's association in HT. C#RM` OP h` ]4 & " 4 5 & " 4 5 &
" 4 55$ CC g ht
` g key ` g filenamef srfi/srfi-69.scm
\ ` g nameg hash-table-exists?g
documentationf "Return whether KEY is a key in HT. C$R` OPMN@RY h - 1 3 & " 4 5 & " 4 5 &
" 4 5 45 $ 45" 4$ 445 5" 4 5> " G & " 4
5 & " 4 > " G C g ht
g key g modifier g default-thunk-lst g hash-proc X g
associator X g
real-table X g handle k g val g filenamef srfi/srfi-69.scm
X
_ k s v
{
( }
~
' ( ' $
g nameg hash-table-update!g
documentationf Modify HT's value at KEY by passing its value to MODIFIER and
setting it to the result thereof. Invoke DEFAULT-THUNK for the old
value if KEY isn't in HT, or signal an error if DEFAULT-THUNK is not
provided. C%R% h D ] L C < g filenamef srfi/srfi-69.scm
&
C h ^ ] O 6 V g ht
g key g modifier g default g filenamef srfi/srfi-69.scm
g nameg hash-table-update!/defaultg
documentationf Modify HT's value at KEY by passing its old value, or DEFAULT if it
doesn't have one, to MODIFIER, and setting it to the result thereof. C&R`+ h } ]C u g k
g v g ans g filenamef srfi/srfi-69.scm
! ! , CY hH - ] & " 4 5$
6 & C 6 % g ht
A g filenamef srfi/srfi-69.scm
! * ! - " A g nameg hash-table-sizeg
documentationf Return the number of associations in HT. This is guaranteed O(1)
for tables where #:weak was #f or not specified at creation time. C'R+ h } ] Cu g k
g v g lst g filenamef srfi/srfi-69.scm
& & ( C h ] 6 g ht
g filenamef srfi/srfi-69.scm
$
& 6 & g nameg hash-table-keysg
documentationf Return a list of the keys in HT. C(R+h } ]Cu g k
g v g lst g filenamef srfi/srfi-69.scm
* * ( C h ] 6 g ht
g filenamef srfi/srfi-69.scm
(
* 6 * g nameg hash-table-valuesg
documentationf "Return a list of the values in HT. C)R+ h ] 4L > G C g k
g v g unspec g vals g filenamef srfi/srfi-69.scm
. / 5 / C h ] O 6 g ht
g proc g filenamef srfi/srfi-69.scm
,
. g nameg hash-table-walkg
documentationf 3Call PROC with each key and value as two arguments. C*RU`P h( Z ] &
" 4 56 R g ht
$ g f $ g knil $ g filenamef srfi/srfi-69.scm
3
7 $ 7 $ g nameg hash-table-foldg
documentationf Invoke (F KEY VAL PREV) for each KEY and VAL in HT, where PREV is
the result of the previous invocation, using KNIL as the first PREV.
Answer the final F result. C+R+V h ] 6 g ht
g filenamef srfi/srfi-69.scm
9
; ! ; g nameg hash-table->alistg
documentationf Return an alist for HT. C,R` OP'BUN h } ]LLL 6u g k
g v g ign g filenamef srfi/srfi-69.scm
B B # C h ]9 & " 4 5 & " 4 5 &
" 4 5 4 5 & " 4 5 4455 4
O > " G & " 4 5 C g ht
g h Q g a Q g real-ht Q g size ^ g weak { g new-real-ht g equivalence-function g filenamef srfi/srfi-69.scm
=
Q ? X @ ^ @ c @ - { @ ~ A A A @ B F D g nameg hash-table-copyg
documentationf Answer a copy of HT. C-R+" h } ]L 6 u g k
g v g ign g filenamef srfi/srfi-69.scm
L L C h ]4 O > " G C g ht
g other-ht g filenamef srfi/srfi-69.scm
H
K g nameg hash-table-merge!g
documentationf `Add all key/value pairs from OTHER-HT to HT, overriding HT's
mappings where present. Return HT. C.RC g m
4 g rtd
g filenamef srfi/srfi-69.scm D
5 Z
: Z B Z & G Z
w
}
}
S
3
5
78
9Q
;
?
? + ? ?
A
C
E
G
II
M
Oi
Q
S $
Tw (
V/ ,
W 3
X 9
[ =
] H
% ]
C6 PK ! WɈ srfi/srfi-98.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g srfi g srfi-98 g filenameS
f srfi/srfi-98.scm g importsS g srfi-1
g exportsS g get-environment-variable g get-environment-variables g set-current-module g cond-expand-provide g current-module g getenv g
filter-map g string-index g
string-length g substring g environC 5h ]4
5 4 > " G 4i4i5 > " G iR h8 ]4 =54 5 $ 4
54 5CC g str
6 g pvt 6 g len 6 g filenamef srfi/srfi-98.scm
' ( ) ( * * ' * + . * : 2 * + 3 * 6 g nameg string->alist-entry C h x ] 45 6 p g filenamef srfi/srfi-98.scm
&
+ "
+
g nameg get-environment-variables CRC y g m
, g filenamef srfi/srfi-98.scm
- #
2 # : # & ? #
N %
&
C6 PK ! K\4 4 srfi/srfi-9/gnu.gonu [ GOOF----LE-8-2.04 ]R 4 hh ] g guile g define-module* g srfi g srfi-9 g gnu
g filenameS f srfi/srfi-9/gnu.scm g importsS
g srfi-1
g system g base g ck g exportsS g set-record-type-printer! g define-immutable-record-type g set-field g
set-fields g set-current-module g vtable-index-printer g make-syntax-transformer ! " #g macro $g $sc-dispatch %$ &$ 'g any (g each-any )'( *') +'* ,'+ -g
syntax-object .g @@ /g top 0/ 1g ribcage 2g dummy 3g name 4g ctor 5g pred 6g fields 723456 8g m-1e8bcc284-11e 98/ :90000 ;f l-1e8bcc284-123 <f l-1e8bcc284-124 =f l-1e8bcc284-125 >f l-1e8bcc284-126 ?f l-1e8bcc284-127 @;<=>? A17:@ B1 Cg x DC E9 Ff l-1e8bcc284-120 GF H1DEG I0ABH Jg hygiene KJ L-.IK M-IK N-IK OMN Pg %define-record-type Q-PIK RLOQ S-IK T-IK Ug syntax-violation VU WU Xf -source expression failed to match any pattern Y''(' Zg %set-fields [g s \g getter ]g expr ^2[\] _g m-1e8bcc284-130 `_/ a`000 bf l-1e8bcc284-135 cf l-1e8bcc284-136 df l-1e8bcc284-137 ef l-1e8bcc284-138 fbcde g1^af h` if l-1e8bcc284-132 ji k1Dhj l0gBk m-ZlK n-lK o-lK p'' q'p rg rest s2[r tg m-1e8bcc284-140 ut/ vu00 wf l-1e8bcc284-145 xf l-1e8bcc284-146 yf l-1e8bcc284-147 zwxy {1svz |u }f l-1e8bcc284-142 ~} 1D|~ 0{B -ZK -K -K g each p' g fold g find g free-identifier=? g delq g collate-set-field-specs g unknown-getter g _ '' f unknown getter g c-list g free-id g quote 0 f l-1e8bcc284-175 1D 0B -K ' ' g v [ 00 f l-1e8bcc284-178 f l-1e8bcc284-179 1 0B -K -K g c-same-type-check f l-1e8bcc284-17e 1D 0B -K ' ( ) ' g every g format f \field paths ~a and ~a require one object to belong to two different record types (~a and ~a) g
syntax->datum g append g orig-form g path g getter0 g type0 g type g
on-success [\ 00000000 f l-1e8bcc284-1a3 f l-1e8bcc284-1a4 f l-1e8bcc284-1a5 f l-1e8bcc284-1a6 f l-1e8bcc284-1a7 f l-1e8bcc284-1a8 f l-1e8bcc284-1a9 f l-1e8bcc284-1aa 1 0B -K -K f l-1e8bcc284-1b4 1D 0BB -.K -K -K g getter-type -K g getter-index -K g
getter-copier -K ''' ''(' ' ''(' ' (䌤 '匤 '挤 猤 g map g car \ f l-1e8bcc284-1ea f l-1e8bcc284-1eb 1 g collated-specs f l-1e8bcc284-1e2 1 g check? g path-so-far g struct-expr g head g tail ] 0000000 f l-1e8bcc284-1d4 f l-1e8bcc284-1d5 f l-1e8bcc284-1d6 f l-1e8bcc284-1d7 f l-1e8bcc284-1d8 f l-1e8bcc284-1d9 f l-1e8bcc284-1da 1 000 f l-1e8bcc284-1b8
f l-1e8bcc284-1b9 f l-1e8bcc284-1ba
1 0BBBBB
BB
-K '' ' ] f l-1e8bcc284-202 f l-1e8bcc284-203 f l-1e8bcc284-204 1 g spec f l-1e8bcc284-1fe 1 g err f l-1e8bcc284-1f0 ! "1 ! #0BBBB BBB"BBBBB
BB $-#K %f l-1e8bcc284-20a &% '1 & (0B'BBBB BBB"BBBBB
BB )-Z(K *g
struct-ref +-*(K ,-[(K --(K .-(K /g list 0g t-1e8bcc284-1f2 10 2g m-1e8bcc284-1f3 32/ 43 5f l-1e8bcc284-1f7 65 71146 80B7BBB"BBBBB
BB 9-8K :-8K ;-8K <-8K =g let >-=8K ?-[8K @ A@ B'A C(B D'C E'D FE Gf duplicate field path H(' IH J'I K(J L'K M'L NM Of %one field path is a prefix of another Pq Qf invalid syntaxC 5 h g ]4
5 4 > " G h ] C g type
g proc
g filenamef srfi/srfi-9/gnu.scm
"
g nameg set-record-type-printer!g
documentationf (Set PROC as the custom printer for TYPE. CR4"#&,RST h( w ]C o g dummy
# g name # g ctor # g pred # g fields # # CWX h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
$
" g
macro-typeg syntax-rulesg patternsg nameg ctorg predg fieldsg ... C5R4"#&Ymno h b ] C Z g dummy
g s g getter g expr CWX h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
)
" g
macro-typeg syntax-rulesg patternsg sg getterg ... g expr C5R4"#&q h N ]C F g dummy
g s g rest CWX h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
-
" g
macro-typeg syntax-rulesg patternsg sg rest C5R& h i ]L 6 a g tree
g filenamef srfi/srfi-9/gnu.scm
C D + D C hH ] 4 O 5 $ 45C C g head
A g tail A g expr A g result A g t A g filenamef srfi/srfi-9/gnu.scm
B C C ! G $ H % G ' I 0 G : J
A g nameg insert C h ] 6 ~ g head
g tail g expr g filenamef srfi/srfi-9/gnu.scm M M CWX h( ] 4 5 $ @ 6 g specs
" g tmp " g filenamef srfi/srfi-9/gnu.scm
A
" g nameg collate-set-field-specs CR4"#&U h ] 6 { g orig-form
g getter g filenamef srfi/srfi-9/gnu.scm S S % S CWX h( f ] 4 5 $ @ 6 ^ g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
P " C5R4"#& h 8 ] C 0 g s
g v CWX h( f ] 4 5 $ @ 6 ^ g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
V " C5R4"#&WXU hX ]
4 L5 $ C444L 5544L L 554 54L55L6 g t
V g g V g t V g filenamef srfi/srfi-9/gnu.scm
b c c e f g ! i 2 j C k J l R f V d
V C h , 3 O 6 g s
g orig-form g path g getter0 g getter g type0 g type g
on-success g filenamef srfi/srfi-9/gnu.scm b C h , 3 C g s
g orig-form g path g getter0 g getter g type0 g type g
on-success C h@ f ] 4 5 " 6$ 4?$ @"" ^ g x
9 g tmp 9 g filenamef srfi/srfi-9/gnu.scm
\ 9 C5R4"Z#&& h m ]C e g check?
g orig-form g path-so-far g s C h | ]C t g check?
g orig-form g path-so-far g s g e C h w ] C o g tmp-1e8bcc284-1e6
g tmp-1e8bcc284-1e5
g tmp-1e8bcc284-1e4
C&)&$)+,-./
hX ] L L L4L 5L 4 5 C g head
U g tail U g expr U g tmp U g filenamef srfi/srfi-9/gnu.scm # U CWX h0 j ] 4 5 $ LLLL O @ 6 b g spec
- g tmp - g filenamef srfi/srfi-9/gnu.scm
- C&(9:;<; h 9 ]L L C 1 g tmp-1e8bcc284-1fb
C>? h 9 ]L L LL LL L 4LLO L5L LL L L C 1 g t-1e8bcc284-1f2
CWX hX ]L 4LL LLO L5 45 $ LLLL LLO @6 g getter0
X g getter X g tmp X g tmp ! X g tmp , X g filenamef srfi/srfi-9/gnu.scm
! X CWX hX 5 ] 4455 45 45 $ LLL O @
6 - g check?
T g orig-form T g path-so-far T g struct-expr T g head T g tail T g expr T g collated-specs T g tmp T g tmp * T
g filenamef srfi/srfi-9/gnu.scm T CFUG h ]6 g check?
g orig-form g path-so-far g s g e g e* g filenamef srfi/srfi-9/gnu.scm ' CNUO h ]6 g check?
g orig-form g path-so-far g s g getter g expr g filenamef srfi/srfi-9/gnu.scm ' CPUQ h ]6 g check?
g orig-form g rest g filenamef srfi/srfi-9/gnu.scm ' CWX h ]34L 5 $ @4L 5 $ @4L 5 $ O @4L 5 $ @4L
5 $ @4L 5 $
@L 6 g getter-type
g getter-index g
getter-copier g tmp g tmp " g tmp 9 g tmp Y g tmp p g tmp CWX h8 ] 45 $ O @6 w g x
2 g tmp 2 g tmp 2 g filenamef srfi/srfi-9/gnu.scm
s t 2 C5ZRC _ g m
, g filenamef srfi/srfi-9/gnu.scm
(
@ A
~
C6 PK !
n n srfi/srfi-41.gonu [ GOOF----LE-8-2.0V ] 4 hE ] g guile g define-module* g srfi g srfi-41 g filenameS
f srfi/srfi-41.scm g importsS g srfi-1
g srfi-8 g srfi-9 g gnu g srfi-26 g ice-9 g match g exportsS !g stream-null "g stream-cons #g stream? $g stream-null? %g stream-pair? &g
stream-car 'g
stream-cdr (g
stream-lambda )g
define-stream *g list->stream +g port->stream ,g stream -g stream->list .g
stream-append /g
stream-concat 0g stream-constant 1g stream-drop 2g stream-drop-while 3g
stream-filter 4g stream-fold 5g stream-for-each 6g stream-from 7g stream-iterate 8g
stream-length 9g
stream-let :g
stream-map ;g stream-match <g stream-of =g stream-range >g
stream-ref ?g stream-reverse @g stream-scan Ag stream-take Bg stream-take-while Cg
stream-unfold Dg stream-unfolds Eg
stream-zip F!"#$%&'()*+,-./0123456789:;<=>?@ABCDE % Gg set-current-module HG IG Jg cond-expand-provide Kg current-module L Mg make-syntax-transformer NM OM Pg must Qg macro Rg $sc-dispatch SR TR Ug any Vg each-any WUV XUW YUX ZUY [UZ \g
syntax-object ]g let ^g top _^ `g ribcage ag dummy bg pred cg obj dg func eg msg fg args gabcdef hg m-46961e513a-1 ih^ ji_____ kf l-46961e513a-6 lf l-46961e513a-7 mf l-46961e513a-8 nf l-46961e513a-9 of l-46961e513a-a pf l-46961e513a-b qklmnop r`gjq s` tg x ut vi wf l-46961e513a-3 xw y`uvx z_rsy {g hygiene |{ }\]z| ~g item \~z| g unless \z| g throw \z| g quote \z| g wrong-type-arg \z| g list \z| g syntax-violation f -source expression failed to match any pattern g must-not g m-46961e513a-14 ^ _____ f l-46961e513a-19 f l-46961e513a-1a f l-46961e513a-1b f l-46961e513a-1c f l-46961e513a-1d f l-46961e513a-1e `g f l-46961e513a-16 `u _s \]| \~| g when \| \| \| \| \| g
must-every g objs abdef g m-46961e513a-27 ^ _____ f l-46961e513a-2c f l-46961e513a-2d f l-46961e513a-2e f l-46961e513a-2f f l-46961e513a-30 f l-46961e513a-31 ` f l-46961e513a-29 `u _s \]| g flunk \| g remove \| \| g null? \| \| \| \| \| g first-value UU g receive g expr a g m-46961e513a-3a ^ _ f l-46961e513a-3f f l-46961e513a-40 ` f l-46961e513a-3c `u _s \| g first \| g _ \| 挤 g second-value g m-46961e513a-44 ^ _ f l-46961e513a-49 f l-46961e513a-4a ` f l-46961e513a-46 `u _s \| \| g second \| \| g third-value g m-46961e513a-4e ^ _ f l-46961e513a-53 f l-46961e513a-54 ` f l-46961e513a-50 `u
_s \
| \
|
\
| g third \
| \
|
g define-syntax* UU V U g
define-syntax g name g body af g m-46961e513a-57 ^ ___ f l-46961e513a-5c !f l-46961e513a-5d "f l-46961e513a-5e #f l-46961e513a-5f $ !"# %` $ & 'f l-46961e513a-59 (' )`u&( *_%s) +\*| ,g lambda* -\,*| .UUU /g syntax 0a/ 1 __ 2f l-46961e513a-66 3f l-46961e513a-67 4f l-46961e513a-68 5234 6`015 7_6s) 8\7| 9g stream-promise :g %make-stream-promise-procedure ;g make-stream-promise <U =g lambda >g m-46961e513a-70 ?>^ @g t-46961e513a-6f A@ B? Cf l-46961e513a-75 DC E`ABD Ff l-46961e513a-72 GF H`uBG Ig shift Jg proc-name KJf L__ Mf l-1e8ba8b5a-2ba Nf l-1e8ba8b5a-2bb OMN P`KLO Qg key Rg value Sg formals TQRS U_____ Vf l-1e8ba8b5a-2ad Wf l-1e8ba8b5a-2ae Xf l-1e8ba8b5a-2af Yf l-1e8ba8b5a-2b0 Zf l-1e8ba8b5a-2b1 [VWXYZ \`TU[ ]g make-procedure-name ^] __ `f l-1e8ba8b5a-29d a` b`^_a c_ df l-1e8ba8b5a-29c ed f`uce g?EsHIssssP\bf
h{ i\=gh jg val k_EsH l\jk| ml ng make-struct og m-46961e513a-6d po^ qg t-1e8ba8b5a-38d rg t-1e8ba8b5a-38c sg t-1e8ba8b5a-38b tqrs ug m-1e8ba8b5a-38e vu^ wvvv xf l-1e8ba8b5a-392 yf l-1e8ba8b5a-393 zf l-1e8ba8b5a-394 {xyz |`tw{ }g ctor-args ~} f l-1e8ba8b5a-37a `~c g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 `L g form g type-name g constructor-spec g field-names ____ f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e ` g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers ________ f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 ` f l-1e8ba8b5a-334 `uc pEsHIs|ssss \nh \9k| \
h l im V f Wrong number of arguments g identifier? _sH \:| g record-type-vtable g pw g default-record-printer j g set-struct-vtable-name! g vtable-offset-user g %stream-promise?-procedure g stream-promise? g m-46961e513a-7d ^ g t-46961e513a-7c f l-46961e513a-82 ` f l-46961e513a-7f `u sIssssP\bf
\=h g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f ^ f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 ` g copier-id f l-1e8ba8b5a-476 `c g ctor-name f l-1e8ba8b5a-46e `c f l-1e8ba8b5a-46c `c g layout f l-1e8ba8b5a-46a `c g
immutable? f l-1e8ba8b5a-468 ` c g field-count f l-1e8ba8b5a-466 `c g
getter-ids
f l-1e8ba8b5a-463
`
c g field-ids f l-1e8ba8b5a-460 `c g predicate-name g
field-spec ______ f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 ` psIsssssssssss
s \c h ! "g and #\" h $g struct? %\$ h &% 'g eq? (\' h )g
struct-vtable *\) h +* ,_s -\9,| .(+- /#&. 0!/ 1_s 2\1| 3g throw-bad-struct 43 53 6g stream-promise-val 7g %stream-promise-val-procedure 8g free-id 9g
%%on-error :g m-46961e513a-89 ;:^ <; =f l-46961e513a-8b >= ?`u<> @;s?IssssP\bf A\9@h B8A CBU Dg %%type Eg t-1e8ba8b5a-3a5 Fg t-1e8ba8b5a-3a6 Gg t-1e8ba8b5a-3a7 Hg t-1e8ba8b5a-3a8 Ig t-1e8ba8b5a-3a9 Jg t-1e8ba8b5a-3aa Kg t-1e8ba8b5a-3ab LEFGHIJK Mg m-1e8ba8b5a-3ac NM^ ONNNNNNN Pf l-1e8ba8b5a-3b0 Qf l-1e8ba8b5a-3b1 Rf l-1e8ba8b5a-3b2 Sf l-1e8ba8b5a-3b3 Tf l-1e8ba8b5a-3b4 Uf l-1e8ba8b5a-3b5 Vf l-1e8ba8b5a-3b6 WPQRSTUV X`LOW Yg getter Zg index [YZ \f l-1e8ba8b5a-3a3 ]f l-1e8ba8b5a-3a4 ^\] _`[L^ ` a___ bf l-1e8ba8b5a-39e cf l-1e8ba8b5a-39f df l-1e8ba8b5a-3a0 ebcd f``ae gps?IsXsss_sf h\Dgh i8h jCiU kg ck lg err mg s nlm o;; pf l-46961e513a-8e qf l-46961e513a-8f rpq s`nor t;ss?IssssP\bf
u\kth v\th w_ss? x\9w| yvx zy {g %%index |\{gh }8| ~C}U f l-46961e513a-93 f l-46961e513a-94 `no ;s?IssssP\bf
\kh \h s? \
| g %%copier \gh 8 CU f l-46961e513a-98 f l-46961e513a-99 `no ;s?IssssP\bf
\kh \h g %%stream-promise-set-fields _s? \| g t-46961e513a-88 f l-46961e513a-9d `< ;s?IssssP\bf
\=h ps?IsXsss_sf \mh g if \h \'h \)h _s? \9| g
struct-ref \h s? \
| \3h \h \6| _s? \7| g each U U U g %%set-fields g check? amY g m-46961e513a-a4 ^ pppp f l-46961e513a-a9 f l-46961e513a-aa f l-46961e513a-ab f l-46961e513a-ac f l-46961e513a-ad ` f l-46961e513a-a6 `u g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 ^ f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd ` f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 ``a psIssss
\h _s \9| \6| g map g stream-promise-val-set! g "%stream-promise-val-set!-procedure UU g m-46961e513a-b8 ^ g t-46961e513a-b6 g t-46961e513a-b7 f l-46961e513a-bd f l-46961e513a-be ` f l-46961e513a-ba `u sIssssP\bf
\=h g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 ^ f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed ` g setter Y f l-1e8ba8b5a-3e0
f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2
`a Z f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 `L g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 `L psIs
ss \mh \jh \h \'h \)h !_s "\9!| # " $g struct-set! %\$h &s '\
&| (%' )\3h *\h +\!| ,*+ -), . #(- / . 0_s 1\0| 2g stream-value 3g %make-stream-value-procedure 4g make-stream-value 5g m-46961e513a-d9 65^ 7g t-46961e513a-d7 8g t-46961e513a-d8 978 :66 ;f l-46961e513a-de <f l-46961e513a-df =;< >`9:= ?6 @f l-46961e513a-db A@ B`u?A C6>sBIssssP\bf
D\=Ch Eg tag F_>sB G\EF| Hg proc I\HF| JGI Kg m-46961e513a-d5 LK^ ML>sBIs|ssss N\nMh O\2F| P\
Mh QNOPGI RDJQ S_sB T\3S| Ug pwpw VEH Wg %stream-value?-procedure Xg
stream-value? Yg m-46961e513a-e8 ZY^ [g t-46961e513a-e7 \[ ]Z ^f l-46961e513a-ed _^ ``\]_ af l-46961e513a-ea ba c`u]b dZ`scIssssP\bf
e\=dh fL`scIsssssssssss
s g\cfh hg i\"fh j\$fh kjg l\'fh m\)fh nmg o_`sc p\2o| qlnp rikq sehr t_sc u\Wt| vg stream-value-tag wg %stream-value-tag-procedure xg m-46961e513a-f4 yx^ zy {f l-46961e513a-f6 |{ }`uz| ~ys}IssssP\bf \9~h 8 U Ls}IsXsss_sf \Dh 8 U yy f l-46961e513a-f9 f l-46961e513a-fa `n ys}IssssP\bf
\kh \h _s} \2| \{h 8 U f l-46961e513a-fe f l-46961e513a-ff `n ys}IssssP\bf
\kh \h s} \
| \h 8 U f l-46961e513a-103 f l-46961e513a-104 `n ys}IssssP\bf
\kh \h g %%stream-value-set-fields _s} \| g t-46961e513a-f3 f l-46961e513a-108 `z ys}IssssP\bf
\=h Ls}IsXsss_sf \mh \h \'h \)h _s} \2| \h s} \
| \3h \h \v| _s} \w| g stream-value-proc g %stream-value-proc-procedure g m-46961e513a-10f ^ f l-46961e513a-111 `u sIssssP\bf \9h 8 U LsIsXsss_sf \Dh 8 U f l-46961e513a-114 f l-46961e513a-115 `n sIssssP\bf
\kh \h _s \2| \{h 8 U f l-46961e513a-119 f l-46961e513a-11a `n sIssssP\bf
\kh \h s \ | \h 8 U f l-46961e513a-11e f l-46961e513a-11f `n sIssssP\bf
\kh \h _s \| g t-46961e513a-10e f l-46961e513a-123 `
sIssssP\bf
\=
h L sIsXsss_sf
\m h
\ h \' h \) h
_ s \2| \ h s \ |
\3 h \ h \|
!_s "\!| #g m-46961e513a-12a $#^ %$LLLL &f l-46961e513a-12f 'f l-46961e513a-130 (f l-46961e513a-131 )f l-46961e513a-132 *f l-46961e513a-133 +&'()* ,`%+ -$ .f l-46961e513a-12c /. 0`u-/ 1L,s0Issss
2\1h 3_,s0 4\23| 5\v3| 6\3| 756 8g stream-value-tag-set! 9g %stream-value-tag-set!-procedure :g m-46961e513a-13e ;:^ <g t-46961e513a-13c =g t-46961e513a-13d ><= ?;; @f l-46961e513a-143 Af l-46961e513a-144 B@A C`>?B D; Ef l-46961e513a-140 FE G`uDF H;CsGIssssP\bf
I\=Hh JLCsGIs
ss K\mJh L\jJh MKL N\Jh O\'Jh P\)Jh QPK R_CsG S\2R| TOQS U\$Jh VCsG W\
V| XUKWL Y\3Jh Z\Jh [\8R| \Z[ ]YK\ ^NTX] _IM^ `_sG a\9`| bg stream-value-proc-set! cg !%stream-value-proc-set!-procedure dg m-46961e513a-14e ed^ fg t-46961e513a-14c gg t-46961e513a-14d hfg iee jf l-46961e513a-153 kf l-46961e513a-154 ljk m`hil ne of l-46961e513a-150 po q`unp remsqIssssP\bf
s\=rh tLmsqIs
ss u\mth v\jth wuv x\th y\'th z\)th {zu |_msq }\2|| ~y{} \$th msq \ | uv \3th \th \b|| u x~ sw _sq \c| g stream-lazy g exp a g m-46961e513a-173 ^ _ f l-46961e513a-178 f l-46961e513a-179 ` f l-46961e513a-175 `u _s \;| \4| \| g lazy \| \=| g eager g stream-eager g stream-delay g m-46961e513a-187 ^ _ f l-46961e513a-18c f l-46961e513a-18d ` f l-46961e513a-189 `u _s \| \| g stream-force g null g %stream-null g stream-pare g %make-stream-pare-procedure g make-stream-pare g m-46961e513a-1d9 ^ g t-46961e513a-1d7 g t-46961e513a-1d8 f l-46961e513a-1de f l-46961e513a-1df ` f l-46961e513a-1db `u sIssssP\bf
\=h g kar _s \| g kdr \| g m-46961e513a-1d5 ^ sIs|ssss \nh \| \
h _s \| g %stream-pare?-procedure g stream-pare? g m-46961e513a-1e8 ^ g t-46961e513a-1e7 f l-46961e513a-1ed ` f l-46961e513a-1ea `u sIssssP\bf
\=h sIsssssssssss
s \ch \"h \$h \'h \)h _s \| _s \| g
stream-kar g %stream-kar-procedure g m-46961e513a-1f4 ^ f l-46961e513a-1f6 `u s IssssP\bf \9h 8 U s IsXsss_sf \Dh 8 U
f l-46961e513a-1f9 f l-46961e513a-1fa
`n
s IssssP\bf
\kh \h _
s \| \{h 8 U f l-46961e513a-1fe f l-46961e513a-1ff `n s IssssP\bf
\k h \ h s \
| ! "! #\h $8# %$U &f l-46961e513a-203 'f l-46961e513a-204 (&' )`n ( *)s IssssP\bf
+\k*h ,\*h -g %%stream-pare-set-fields ._)s /\-.| 0,/ 10 2g t-46961e513a-1f3 32 4f l-46961e513a-208 54 6`35 76s IssssP\bf
8\=7h 96s IsXsss_sf :\m9h ;: <\9h =\'9h >\)9h ?>: @_6s A\@| B=?A C\9h D6s E\
D| FC:E G\39h H\9h I\@| JHI KG:J L<BFK M8;L N_s O\N| Pg
stream-kdr Qg %stream-kdr-procedure Rg m-46961e513a-20f SR^ TS Uf l-46961e513a-211 VU W`uTV XSsWIssssP\bf Y\9Xh Z8Y [ZU \sWIsXsss_sf ]\D\h ^8] _[^U `SS af l-46961e513a-214 bf l-46961e513a-215 cab d`n`c eSdsWIssssP\bf
f\keh g\eh h_dsW i\h| jgi kj l\{\h m8l n[mU of l-46961e513a-219 pf l-46961e513a-21a qop r`n`q sSrsWIssssP\bf
t\ksh u\sh vrsW w\ v| xuw yx z\\h {8z |[{U }f l-46961e513a-21e ~f l-46961e513a-21f }~ `n` SsWIssssP\bf
\kh \h _sW \-| g t-46961e513a-20e f l-46961e513a-223 `T SsWIssssP\bf
\=h sWIsXsss_sf \mh \h \'h \)h _sW \| \h sW \ | \3h \h \P| _sW \Q| g m-46961e513a-22a ^ f l-46961e513a-22f f l-46961e513a-230 f l-46961e513a-231 f l-46961e513a-232 f l-46961e513a-233 ` f l-46961e513a-22c `u sIssss
\h _s \| \| \P| g strm ac g m-46961e513a-259 ^ __ f l-46961e513a-25e f l-46961e513a-25f f l-46961e513a-260 ` f l-46961e513a-25b `u _s \| \| \| \| f
non-stream f null stream g body0 g body1 aS g m-46961e513a-28d ^ ___ f l-46961e513a-292 f l-46961e513a-293 f l-46961e513a-294 f l-46961e513a-295 ` f l-46961e513a-28f `u _s \=| \| g begin \| g on-eagerS g on-lazyS g stream-promise-visit g set-record-type-printer! g display f #<stream g
write-char g write f ...> W U g define g formal a g m-46961e513a-2cf ^ ____ f l-46961e513a-2d4 f l-46961e513a-2d5 f l-46961e513a-2d6 f l-46961e513a-2d7 f l-46961e513a-2d8 ` f l-46961e513a-2d1 `u _s \| \(| W U U
g letrec g body2 aEj
g m-46961e513a-2e0
^ _____ f l-46961e513a-2e5 f l-46961e513a-2e6 f l-46961e513a-2e7 f l-46961e513a-2e8 f l-46961e513a-2e9 f l-46961e513a-2ea ` f l-46961e513a-2e2 `u _s \
| \( | g proper-list? g circular-list? !f non-list argument "g current-input-port #g input-port? $f non-input-port argument %g read-char &g eof-object? 'U (a )g m-46961e513a-359 *)^ +* ,f l-46961e513a-35e -, .`(+- /f l-46961e513a-35b 0/ 1`u+0 2_.s1 3\!2| 4g y 5at4 6*__ 7f l-46961e513a-361 8f l-46961e513a-362 9f l-46961e513a-363 :789 ;`56: <_;s1 =\"<| >\,<| ?g % stream-fold-aux-procedure @g stream-fold-aux AUUUU Bg syntax-parameterize Cg m-46961e513a-36c DC^ Eg t-46961e513a-368 Fg t-46961e513a-369 Gg t-46961e513a-36a Hg t-46961e513a-36b IEFGH JDDDD Kf l-46961e513a-371 Lf l-46961e513a-372 Mf l-46961e513a-373 Nf l-46961e513a-374 OKLMN P`IJO QD Rf l-46961e513a-36e SR T`uQS Uf l-bde397a-1eaf Vf l-bde397a-1eb0 WUV X`KLW YS Zf l-bde397a-1ea6 [f l-bde397a-1ea7 \f l-bde397a-1ea8 ]Z[\ ^`Ya] _g prefix `]_ a__ bf l-bde397a-1e9a cf l-bde397a-1e98 dbc e``ad ff l-bde397a-1e97 gf h`ucg iDPsTIssssX^eh
j{ k\Bij l_PsT m\@l| ng identifier-syntax o\nij p\?l| qop rmq sr t\=ij u\Hl| vg base w\vl| x\l| yg limit z\yl| {uwxz |g do }\|l| ~\jl| \"l| \&l| x u~ u ~w \'l| x xx g 1- \l| z z zz g or \l| g zero? \l| z z \$l| x g values \l| ~xz } t{ ks _sT \?| f non-stream argument g integer? f non-integer count g exact? f
inexact count f negative count g reverse! g xcons f !non-stream object in input stream g
circular-list g stream-do U WV f l-46961e513a-478 `uc g var-step g end f l-46961e513a-475 f l-46961e513a-473 `a f l-46961e513a-472 `uc _s \| \| g result f l-46961e513a-47f `c _s \| f bad step expression UV g step f l-46961e513a-49c f l-46961e513a-49d `L g var g init g test f l-46961e513a-48d f l-46961e513a-48e f l-46961e513a-48f f l-46961e513a-490 f l-46961e513a-491 f l-46961e513a-492 ` _s \9| g loop \| \| \| g append f non-integer argument f inexact argument f negative argument g
procedure? f non-procedural argument g apply g number? f non-numeric starting number f non-numeric step size g ? f l-46961e513a-6c1 `uc g make-guarded g make-matcher f l-46961e513a-6be f l-46961e513a-6bc `a f l-46961e513a-6bb `uc _s \| \$| g next f l-46961e513a-6d4 `c g rest f l-46961e513a-6ce
f l-46961e513a-6cf
`L
_s s \
| g negate \
| \$
| g = \
| \&
| \'
| U g generate-temporaries ' U g guard g fail f l-46961e513a-6df !f l-46961e513a-6e0 "f l-46961e513a-6e1 # !" $` a# %t &f l-46961e513a-6d8 'f l-46961e513a-6d9 (&' )`%L( *_$s) +\*| ,VV -g matcher .- /f l-46961e513a-6f5 0f l-46961e513a-6f6 1/0 2`.L1 3 4f l-46961e513a-6f0 54 6`3c5 7g strm-expr 8g pat 978 :f l-46961e513a-6e7 ;f l-46961e513a-6e8 <f l-46961e513a-6e9 =:;< >`9a= ?_s2ss6> @\]?| A\?| B\P?| C\#?| D\?| E\;?| FDE G\?| HBCAFG I\ ?| Jg => K\J?| Lg
stream-of-aux Ma Ng m-46961e513a-701 ON^ PO__ Qf l-46961e513a-706 Rf l-46961e513a-707 Sf l-46961e513a-708 TQRS U`MPT VO Wf l-46961e513a-703 XW Y`uVX Z_UsY [\LZ| \\!Z| ]av ^g m-46961e513a-70d _^^ `___ af l-46961e513a-712 bf l-46961e513a-713 cf l-46961e513a-714 dabc e`]`d f_ gf l-46961e513a-70f hg i`ufh j_esi k\"j| lg in m_si n\lm| o8n pUoU qpV rUq sUr tUs uav, v______ wf l-46961e513a-719 xf l-46961e513a-71a yf l-46961e513a-71b zf l-46961e513a-71c {f l-46961e513a-71d |f l-46961e513a-71e }wxyz{| ~`uv} _~si \9| g recur \| \| \| \$| \]| \&| \L| \'| g is \m| 8 UU V U U U av f l-46961e513a-727 f l-46961e513a-728 f l-46961e513a-729 f l-46961e513a-72a f l-46961e513a-72b f l-46961e513a-72c `v _si \]| \L| g pred? av _____ f l-46961e513a-735 f l-46961e513a-736 f l-46961e513a-737 f l-46961e513a-738 f l-46961e513a-739 ` _si \| \L| f non-numeric ending number g < g > f beyond end of stream f non-procedural mapper f non-procedural pred? f non-procedural generator g list->vector g error f no matching pattern g
list-tabulate g
vector-lengthC 5 h ]4
F5 4I > " G 4Ji4Ki5 L> " G 4OPQT[} h0 ] C} g dummy
0 g pred 0 g obj 0 g func 0 g msg 0 g args 0 0 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
.
" g
macro-typeg syntax-rulesg patternsg predg objg funcg msgg argsg ... C5PR4OQT[ h0 ] C} g dummy
0 g pred 0 g obj 0 g func 0 g msg 0 g args 0 0 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
3
" g
macro-typeg syntax-rulesg patternsg predg objg funcg msgg argsg ... C5R4OQT[
h8 ] C ~ g dummy
4 g pred 4 g objs 4 g func 4 g msg 4 g args 4 4 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
8
" g
macro-typeg syntax-rulesg patternsg predg objsg funcg msgg argsg ... C5R4OQT h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
=
" g
macro-typeg syntax-rulesg patternsg expr C5R4OQT h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
A
" g
macro-typeg syntax-rulesg patternsg expr C5R4OQT h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
E
" g
macro-typeg syntax-rulesg patternsg expr C5R4OQT+- h c ] C [ g dummy
g name g args g body C.8 h S ] C K g dummy
g name g syntax C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-41.scm
J 9 g
macro-typeg syntax-rulesg patternsg nameg argsg bodyg ... g nameg syntax C5R9 h ] C w g val
g filenamef srfi/srfi-41.scm
q
g nameg %make-stream-promise-procedure C:R4O;QT< h 7 ] C / g t-46961e513a-6f
C; h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
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 srfi/srfi-41.scm
q
n C5;R 9¨ 4 9> " G Ȗ:i 9R9 h { ] $ CC s g obj
g filenamef srfi/srfi-41.scm
q
g nameg %stream-promise?-procedure CR4OQT<0 h 7 ] C / g t-46961e513a-7c
C h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
C2 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 srfi/srfi-41.scm
q
n C5R956 h | ] &
C 6t g s
g filenamef srfi/srfi-41.scm
q
g nameg %stream-promise-val-procedure C7R4O6QTjuz 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 7 ] C / g t-46961e513a-88
C6 h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
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 srfi/srfi-41.scm
q
C56R4OQT 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 srfi/srfi-41.scm
q
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R95 h ] &
C 6 g s
g val g filenamef srfi/srfi-41.scm
q
g nameg "%stream-promise-val-set!-procedure CR4OQT/ h T ] C L g t-46961e513a-b6
g t-46961e513a-b7 C h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
C1 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 srfi/srfi-41.scm
q
n C5R2 h ] C g tag
g proc g filenamef srfi/srfi-41.scm
t
g nameg %make-stream-value-procedure C3R4O4QTR h T ] C L g t-46961e513a-d7
g t-46961e513a-d8 C4 h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
CT 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 srfi/srfi-41.scm
t
n C54R U 2V 4 2> " G Ȗ3i 2R2 h y ] $ CC q g obj
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value?-procedure CWR4OXQT<s h 7 ] C / g t-46961e513a-e7
CX h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
Cu 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 srfi/srfi-41.scm
t
n C5XR25v h z ] &
C 6r g s
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-tag-procedure CwR4OvQT 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 7 ] C / g t-46961e513a-f3
Cv h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
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 srfi/srfi-41.scm
t
C5vR25 h { ] & C 6s g s
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-proc-procedure CR4OQT 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 8 ] C 0 g t-46961e513a-10e
C h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
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 srfi/srfi-41.scm
t
C5R4OQT247 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 srfi/srfi-41.scm
t
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R258 h ] &
C 6 g s
g val g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-tag-set!-procedure C9R4O8QT_ h V ] C N g t-46961e513a-13c
g t-46961e513a-13d C8 h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
Ca 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 srfi/srfi-41.scm
t
n C58R25b h ] & C 6 g s
g val g filenamef srfi/srfi-41.scm
t
g nameg !%stream-value-proc-set!-procedure CcR4ObQT h V ] C N g t-46961e513a-14c
g t-46961e513a-14d Cb h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
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 srfi/srfi-41.scm
t
n C5bR4OQT h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
x
" g
macro-typeg syntax-rulesg patternsg exp C5R29 h ] C g x
g val g filenamef srfi/srfi-41.scm
{
| * | | g nameg stream-eager CR4OQT h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
~
" g
macro-typeg syntax-rulesg patternsg exp C5R9562v8b
h ]) &
" 4 5 &
" 45 $ & C6$ Y4& " 455 &
" 4 5 &
" 45& " &
" 45 &
" 45 &
" 4 > " G &
" 45 & " 45 & " 4
> " G &
" 4 > " G 6C g promise
g content g key 8 g promise* g content g s g val ' g s A ` g val ` g filenamef srfi/srfi-41.scm
!
8 F b c ; E 3 * G A 4 ` g nameg stream-force CRi#R,R4ii5!R9 h( ] $ & 4 5CCC g obj
! g filenamef srfi/srfi-41.scm
! g nameg stream-null? C$R h ] C g kar
g kdr g filenamef srfi/srfi-41.scm
g nameg %make-stream-pare-procedure CR4OQT h V ] C N g t-46961e513a-1d7
g t-46961e513a-1d8 C h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.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 srfi/srfi-41.scm
n C5R U ٨ 4 > " G Ȗi R h y ] $ CC q g obj
g filenamef srfi/srfi-41.scm
g nameg %stream-pare?-procedure CR4OQT< h 8 ] C 0 g t-46961e513a-1e7
C h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.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 srfi/srfi-41.scm
n C5R5 h u ] &
C 6m g s
g filenamef srfi/srfi-41.scm
g nameg %stream-kar-procedure CR4OQT h : ]C 2 g err
g s C " h : ]C 2 g err
g s C%+1 h : ]C 2 g err
g s C<M h 8 ] C 0 g t-46961e513a-1f3
C h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
CO 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 srfi/srfi-41.scm
C5R5P h u ] & C 6m g s
g filenamef srfi/srfi-41.scm
g nameg %stream-kdr-procedure CQR4OPQT_fk h : ]C 2 g err
g s Cnty h : ]C 2 g err
g s C| h : ]C 2 g err
g s C< h 8 ] C 0 g t-46961e513a-20e
CP h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.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 srfi/srfi-41.scm
C5PR4O-QT 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 srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5-R9 h0 ] $ $ & 4 5 $ CCCC g obj
/ g obj + g filenamef srfi/srfi-41.scm
+ / g nameg stream-pair? C%R4O"QT. h P ] C H g dummy
g obj g strm C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg objg strm C5"R#& h ] 4 5$ " 4 > " G 4 5 " "4 > " 'G " $ & " "" "
6 g strm
g pare 6 g filenamef srfi/srfi-41.scm
! 0 6 = C E ( H g nameg
stream-car C&R#' h ] 4 5$ " 4 > " G 4 5 " "4 > " 'G " $ & " "" " C g strm
g pare 6 g filenamef srfi/srfi-41.scm
! 0 6 = C E ( H
g nameg
stream-cdr C'R4O(QTY h h ] C ` g dummy
g formals g body0 g body1 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg formalsg body0g body1g ... C5(R9562v
h @ - / 0 3 # # H &
" 4 5KJ& J
" 4J5 $ J& J " 4J56 $ J& J " 4J56C8 g promise
g on-eager g on-lazy g content & g key ^ g filenamef srfi/srfi-41.scm
+ G ^ n
g on-eagerS g on-lazyS g nameg stream-promise-visit CR4i9i5 h c ] L 6 [ g t-46961e513a-2c2
g filenamef srfi/srfi-41.scm
)
C h ] ]?L 6 U g _
g filenamef srfi/srfi-41.scm
)
5
CP h ] & >L64 L> " G 4 &
" 4 5LO
LO > " G L & " 4 56 g pare
g filenamef srfi/srfi-41.scm
' , 2 Z g "
C h f ]L 6 ^ g _
g filenamef srfi/srfi-41.scm
'
C h q ] LL O L O 6 i g strm
g filenamef srfi/srfi-41.scm
g nameg loop C h0 ]
4> " G O Q 6 g strm
, g port , g loop , g filenamef srfi/srfi-41.scm
, C> " G 4O)QT h y ] C q g dummy
g name g formal g body0 g body1 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg nameg formalg body0g body1g ... C5)R4O9QT h ] C g dummy
g tag g name g val g body1 g body2 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg tagg nameg val g ... g body1g body2g ... C59R *!2!2 h V ] L 6 N g filenamef srfi/srfi-41.scm
C9 h V ] LL 6 N g filenamef srfi/srfi-41.scm
'
C hX ]L( CLO LL O 6 g val
' g val
7 C g kar
C V g kdr C V g filenamef srfi/srfi-41.scm
X
C9 h y ] L O C q g objs
g val g filenamef srfi/srfi-41.scm
g nameg recur C h` ] 4 5 $ " 4 5 $ " 4 > " G O Q 6 g objs
\ g t g recur N X g filenamef srfi/srfi-41.scm
$ / 1 ! 4 N
\ g nameg list->stream C*R"#+$2%&!2 h D ] L 6< g filenamef srfi/srfi-41.scm
C9 h M ] L 6 E g filenamef srfi/srfi-41.scm
C hh ]4L 5 4 5$ C O LO
6 g c
d g val ) 5 g val C O g kar O b g kdr O b g filenamef srfi/srfi-41.scm
d
C9 h h ]LL O C ` g val
g filenamef srfi/srfi-41.scm
g nameg recur C h` - . , 3 # 45 4 5$ " 4 > " G O Q 6 g port
] g recur O [ g filenamef srfi/srfi-41.scm
( / 1 ' 4 O ]
g nameg port->stream C+R4O,QT'3 h - ]C % g dummy
CX=> h K ] C C g dummy
g x g y C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-41.scm
9 g
macro-typeg syntax-rulesg patternsg xg yg ... C5,R$&' h ]$" j$
" $ " 45 $ D $ 4 455" 45$ " " "~ g proc
g base g strm g limit g val p g strm p g limit p g t , g filenamef srfi/srfi-41.scm
# % 0 8 > ? D % L R ^ a p g nameg % stream-fold-aux-procedure C?R4O@QTA h ] C g t-46961e513a-368
g t-46961e513a-369 g t-46961e513a-36a g t-46961e513a-36b C@ h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.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 srfi/srfi-41.scm
n C5@R-#-$&' hh )
3 6]*45$ " 4 > " G $ 4 5$ " 4 > " G 4 5$ " 4
> " G
$ "4 > " G " "
" n$
" $ " 45 $ " H$ 4455" 45$ " " " G 6 g strm
g n
f g strm f g proc T g val E g strm E g limit E g t g first U d g _ U d
g filenamef srfi/srfi-41.scm
( * % - E F [ ] % ` s # * F 2 T X f f g nameg stream->list C-R#.!$2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h h ] L4L 5L6 ` g filenamef srfi/srfi-41.scm
( : "
C
hx ]L( CL 4 5$ L L6 O LL O 6 g strm
q g val 2 > g val P \ g kar \ o g kdr \ o g filenamef srfi/srfi-41.scm
) " " (
q
C29 h( ] O L Q C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
( g nameg recur C hX - 1 3 4 5 ( " 4 > " G O Q 6 g strms
R g flunk < g recur D N g filenamef srfi/srfi-41.scm
% ' + * D R
g nameg
stream-append C.R#/$!&#/'2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C92' h V ] 4L 56 N g filenamef srfi/srfi-41.scm
" /
"
C9' h M ] L 6E g filenamef srfi/srfi-41.scm
" /
C hX ]L4L O LO 56 g val
! g val
/ ; g kar
; N g kdr ; N g filenamef srfi/srfi-41.scm
" R R
C h ]4L5$ C4L5 4 5$ " 4 > " G 4 5$ L 4 L56
O LL O 6
g strm
g val l x g val g kar g kdr g filenamef srfi/srfi-41.scm
/ 1 , 4
G Q
T ) \ " b
C29 h( ] O L Q C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
( g nameg recur C hH ] 4 5$ " 4 > " G O Q 6 g strms
E g recur 7 A g filenamef srfi/srfi-41.scm
% 7 E g nameg
stream-concat C/R!* h ) 3 C- 1 3 4 ?6 g objs
g filenamef srfi/srfi-41.scm
g nameg stream-constant C0R4OQTT h ] C
C' h . ] C & g result
CV h . ] C& g result
CT h ] L C
C' h ) ] C ! g e
C h@ ]45 $ O @45 $ @L 6 g v
@ g s @ g tmp
@ g tmp & @ g filenamef srfi/srfi-41.scm
8 : & @ @ g nameg var-step C h0 @ ]4LL5L 4L 5 C8 g result
0 g step 0 0 C
h ] 45 $ 4?" H45 $ 4?" )45 $ 4?"
45 4
L O 5 4 5 $ O @6 g var
g init g step g test g result g expr g tmp
h g tmp & e g tmp B b g tmp { g tmp g filenamef srfi/srfi-41.scm i ' { & C h( c ] 4 5 $ O @ 6 [ g x
' g tmp ' g filenamef srfi/srfi-41.scm
' C5R1#$'
h0 ]"4 5$ " 4 > " G 4 5$ " 4 > " G
$ "4 > " G " 4 5$ " 4
> " G " V$
" $ " 4 5 $ " 04 5$ " " " G C g n
) g strm ) g val
g strm
g limit
g t g first ) g second ) g _ ) g filenamef srfi/srfi-41.scm
.
/ / / / 0 0 E 0 G 0 J 0 _ 1 k 1 m 1 % p 1 2 2 2 " 2 3 3 ) g nameg stream-drop C1R2#2$&' h8 ]4L5 $ "
4L4L55 $ LCL 4L56 g t
& g filenamef srfi/srfi-41.scm
8 9 9 9 + 9 2 " 9 + # 9 & * 8 0 8 8 8 8
C9 h x ] LL O C p g strm
g val g filenamef srfi/srfi-41.scm
8 g nameg loop C hx ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g pred?
u g strm u g loop e q g filenamef srfi/srfi-41.scm
5
6 6 6 , 6 0 7 E 7 G 7 ( J 7 e 8 u g nameg stream-drop-while C2R3#$!&2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
A A
A
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
A A 1
A *
C' hx ]4L5$ C4L 4L55$ MLO LLO
6L4 L56 g val
0 < g val
L X g kar
X k g kdr X k g filenamef srfi/srfi-41.scm
> ?
? @ @ @ ? & A p B x B x
C29 h0 ] O L L Q C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
> + g nameg recur C hx ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g pred?
u g strm u g recur e q g filenamef srfi/srfi-41.scm
;
< < < ( < 0 = E = G = $ J = e > u g nameg
stream-filter C3R4#$&' h ` ]#4 5$ " 4 > " G 45$ " 4 > " G " n$
" $ " 45 $ " H $ 4 4 55" 4
5$ " " " G CX g proc
g base g strm g val ` g strm ` g limit ` g t o g first g _ g filenamef srfi/srfi-41.scm
D
E E E % E 0 F E F G F " J F ` G G g nameg stream-fold C4R5#$&'U hX s ) 3 4 5$ " 4 > " G 45$ " 4 > " G " 145$ C4 4 5> " G 4
5 " "- 1 3 4 5$ " 4 > " G 4 5 ( " 4 > " G " 94 5$ C4
4 5> " G 4
5 " " k g proc
g strm g strm g g proc
U g strm U g rest U g strms U g flunk g strms M g filenamef srfi/srfi-41.scm
J
L L ! L + $ L 7 M L M N M ( Q M g N h O r N u P x P P N N J R R S S S - S T T T 1 T U V ! U $ W ) W 6 W ? U M U % U
g nameg stream-for-each C5R622 h D ] L 6< g filenamef srfi/srfi-41.scm
]
C9 h V ] LL L6 N g filenamef srfi/srfi-41.scm
] ] ]
C hX ]LO LL LO 6 g val
g val
0 < g kar
< O g kdr < O g filenamef srfi/srfi-41.scm
\ ] Q
C9 h z ] LL O C r g first
g val g filenamef srfi/srfi-41.scm
\ g nameg recur C h - . , 3 # 4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g first
g step g recur x g filenamef srfi/srfi-41.scm
Y
Z + Z - Z # 0 Z C [ X [ Z [ " ] [ x \ g nameg stream-from C6R722 h D ] L 6< g filenamef srfi/srfi-41.scm
b
C9 h V ] L4L L56 N g filenamef srfi/srfi-41.scm
b b
b
C hX ]LO L LLO 6 g val
g val
0 < g kar
< O g kdr < O g filenamef srfi/srfi-41.scm
a b Q
C9 h y ] LL O C q g base
g val g filenamef srfi/srfi-41.scm
a g nameg recur C hH ]
4 5$ " 4 > " G O Q 6 g proc
H g base H g recur 8 D g filenamef srfi/srfi-41.scm
_
` ` ` ( ` 8 a H g nameg stream-iterate C7R#8$' h J ]!4 5$ " 4 > " G " V$
" $ " 45 $ " 045$ " " " G C B g strm
g val 5 g strm 5 g limit 5 g t D [ g first g second g third g _ g filenamef srfi/srfi-41.scm
d
e e e $ e 5 f f f g nameg
stream-length C8R:#$!2& h h ] 4L4L 556 ` g filenamef srfi/srfi-41.scm
o
o o o o
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
o
p
p
C
h` ]4L5$ CLL O LLO 6 g val
" . g val
> J g kar
J ] g kdr J ] g filenamef srfi/srfi-41.scm
m n
n o
_
C29 h0 ] O L L Q C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
m + g nameg recur CU$!2& h h ] 4L4L 5?6 ` g filenamef srfi/srfi-41.scm
w w w % w w
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
w x x
C hh ]4L5$ CLL O LLO
6 g val
$ 0 g val
@ L g kar
L _ g kdr L _ g filenamef srfi/srfi-41.scm
u v v w a
C29 h0 ] O L L Q C g strms
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
u + g nameg recur C h ) v3 4 5$ " 4 > " G 45$ " 4 > " G O Q 6- 1 3 4 5$ " 4 > " G 4 5 ( " 4 > " G
O Q 6 g proc
| g strm | g recur l x g proc
g strm g rest g strms g flunk g recur g filenamef srfi/srfi-41.scm
i
k k ! k & $ k 7 l L l N l # Q l l m i r r s s s ( s t t t , t u |
g nameg
stream-map C:R4O;QT h ] C
C h X ] 6P g rest
g filenamef srfi/srfi-41.scm ~ C h , ] C $ g rest
C h i ] 6a g var
g rest g filenamef srfi/srfi-41.scm C h( ]
4L 5 C { g var
% g rest % g tmp % g filenamef srfi/srfi-41.scm % C
hp ]4 5 $ @ 4?$ @4 5 " 6$ 4?$ L O @"" g x
l g tmp
l g tmp l g tmp 9 l g filenamef srfi/srfi-41.scm
{ l g nameg make-matcher CTTVTh , ] C $ g expr
C + h Q ] C I g guard
g expr g fail C hH ] 45 $ @45 $ @6 g x
B g fail B g tmp B g tmp B g tmp + B g filenamef srfi/srfi-41.scm
B g nameg make-guarded CT,@AHIK h z ] C r g tmp-46961e513a-6fb
g tmp-46961e513a-6fa g tmp-46961e513a-6f9 C h( A ]L 4L 5 C 9 g matcher
' g expr ' ' C hH ]4L L54L 5 45 $
LO @6 g fail
B g tmp B g tmp $ B g filenamef srfi/srfi-41.scm $ ! B C h8 ]45 45 $ L O @6 g strm-expr
6 g pat 6 g expr 6 g tmp 6 g tmp 6 g filenamef srfi/srfi-41.scm 6 C h8 } ]O Q 4 5 $ O @ 6 u g x
4 g make-matcher
4 g tmp 4 g filenamef srfi/srfi-41.scm
z
4 C5;R4O<QTX[\ h Q ]C I g dummy
g expr g rest C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg exprg restg ... C5<R4OLQT.k h Q ] C I g dummy
g expr g base Ct
h8 ] C g dummy
5 g expr 5 g base 5 g var 5 g stream 5 g rest 5 5 C h ] C } g dummy
g expr g base g var g exp g rest CZ h v ] C n g dummy
g expr g base g pred? g rest C hh x ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 p g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-41.scm
g g
macro-typeg syntax-rulesg patternsg exprg base g exprg baseg varg ing stream g restg ... g exprg baseg varg isg exp g restg ... g exprg baseg pred?g restg ... C5LR=22 h D ] L 6< g filenamef srfi/srfi-41.scm
C9 h V ] LL L6 N g filenamef srfi/srfi-41.scm
$
C! hh ]4LLL5$ OLO LLL O 6C g val
+ g val
= I g kar
I \ g kdr I \ g filenamef srfi/srfi-41.scm
a
C9 h( z ] LLL L O C r g first
" g val " g filenamef srfi/srfi-41.scm
" g nameg recur C h - . , 3 # 4 5$ " 4 > " G 45$ " 4 > " G $ 145$ " 4 > " G " $ " $ "
$ "
O Q 6 g first
g past g step g step g lt? g recur g filenamef srfi/srfi-41.scm
+ - $ 0 C X Z # ] u v % g nameg stream-range C=R#>1$& h l ]
4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G
$ "4
> " G " 4 5 4 5$ "4
> " G " 6 d g strm
g n g res g filenamef srfi/srfi-41.scm
! 0 E G J ] r t w $
+ g nameg
stream-ref C>R#?2$'2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
,
C9 h D ] L C < g filenamef srfi/srfi-41.scm
C
hh ]4L5$ LCL 4L54LO LO 56 g val
* 6 g val
D P g kar
P c g kdr P c g filenamef srfi/srfi-41.scm
g g
C9 h ]
L O C g strm
g rev g val g filenamef srfi/srfi-41.scm
g nameg loop C! hH ] 4 5$ " 4 > " G O Q 6 g strm
G g loop 7 A g filenamef srfi/srfi-41.scm
% 7 G g nameg stream-reverse C?R@#$2 h D ] L 6< g filenamef srfi/srfi-41.scm
C9! h D ] C < g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
C&' h q ] L4L L4L554L56 i g filenamef srfi/srfi-41.scm
!
, ! !
C h ]4L5$ FLO 6 LO
LLLL O 6 g val
) g val
2 > g kar
> Q g kdr > Q g val
c o g val
g kar
g kdr g filenamef srfi/srfi-41.scm
Y
C29 h0 ]
O L L Q C g base
. g strm . g proc
$ g val $ . g filenamef srfi/srfi-41.scm
. g nameg recur C hx ] 4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g proc
w g base w g strm w g recur e q g filenamef srfi/srfi-41.scm
% 0 E G " J e w g nameg stream-scan C@R#A$!2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h _ ] LL4L 56W g filenamef srfi/srfi-41.scm
. 5 '
C
hx ]L
$ " 4L5 $ CLO LLL O 6 g t
g val
4 @ g val
R ^ g kar
^ q g kdr ^ q g filenamef srfi/srfi-41.scm
! * s
C29 h0 ]
O L Q C g n
+ g strm + g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg recur C h 3 ]
45$ " 4 > " G 4 5$ " 4 > " G 4 5$ " 4 > " G
$ "4
> " G " O Q 6 + g n
g strm g recur g filenamef srfi/srfi-41.scm
" 0 E G J ] r t w % g nameg stream-take CARB#$!&2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
1
*
C hp ]4L5$ C4L 4L55$ MLO LLO
6C g val
0 < g val
L X g kar
X k g kdr X k g filenamef srfi/srfi-41.scm
& p
C29 h0 ] O L L Q C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg recur C hx ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g pred?
u g strm u g recur e q g filenamef srfi/srfi-41.scm
, 0 E G ( J e u g nameg stream-take-while CBRC2 h V ] 4LL 56 N g filenamef srfi/srfi-41.scm
C9 h V ] L4L L56 N g filenamef srfi/srfi-41.scm
*
#
C! hh ]4LL5$ QLL O LLLO 6C g val
+ g val
= I g kar
I \ g kdr I \ g filenamef srfi/srfi-41.scm
a
C29 h8 ] O L LL LQ C g base
1 g proc ' g val ' 1 g filenamef srfi/srfi-41.scm
1 g nameg recur C h > ] 4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G O Q 66 g mapper
g pred? g generator g base g recur g filenamef srfi/srfi-41.scm
) 0 E G ( J ] r t , w g nameg
stream-unfold CCR2 h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9 h M ] LL 6E g filenamef srfi/srfi-41.scm
(
C hh ] 4LL> G O L O 6 g next
a g items
a g val $ 0 g val @ L g kar L _ g kdr L _ g filenamef srfi/srfi-41.scm
a
C29 h0 ] O L LQ C g seed
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg generator-stream C&!2' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
.
C9.*' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
.
C h D ] L 6< g filenamef srfi/srfi-41.scm
C2' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
.
C9 h _ ]LLL O C W g val
g filenamef srfi/srfi-41.scm
C h 0 ] H 4L5LK J ( CJ & LLL O C" =J $ )4J 5 LLL O 64
J 56 J $ _J ( TJ
O L LLO 6"]"Y( g head
g val 3 = g val c o g w g val g val g kar g kdr g filenamef srfi/srfi-41.scm
% D K & U q r
C29 h0 ]
O L Q C g genstrm
+ g index + g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg make-result-stream CD& h c ]LL 6 [ g t-46961e513a-9f4
g filenamef srfi/srfi-41.scm
!
C hx A ]O O Q Q 4 5$ " 4 > " G 45 44 4
55 O 5E 9 g gen
q g seed q g generator-stream q g make-result-stream q g genstrm S q g filenamef srfi/srfi-41.scm
5 7 ' : M S V Y ! \ 0 d ! o q q g nameg stream-unfolds CDR#EU$!2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
5 .
C h` ]4L5$ CLO LL O
6 g val
" . g val
> J g kar
J ] g kdr J ] g filenamef srfi/srfi-41.scm
_
C29 h( ] O L Q C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
( g nameg recur C h` - 1 3 45 ( " 4 > " G O Q 6 g strm
Y g rest Y g strms Y g flunk C g recur K U g filenamef srfi/srfi-41.scm
, . * 1 K Y
g nameg
stream-zip CERC g m
, g rtd
d g rtd
d g rtd
A B g filenamef srfi/srfi-41.scm
- *
2 * : * & ? *
q
t
8_ {
=
=
= = # = =
= =
>~
?2
Q
U
V
ZT
ZU
fr
jk
nb
t
yw
.
- 5
;
[ D
^ I
| Y
6 _
] d
h
n
{
1 }
C6 PK ! &> > srfi/srfi-43.gonu [ GOOF----LE-8-2.0& ]t 4 h ] g guile g define-module* g srfi g srfi-43 g filenameS
f srfi/srfi-43.scm g importsS g srfi-1
g srfi-8 g exportsS g
vector-empty? g vector= g
vector-unfold g vector-unfold-right g vector-reverse-copy g
vector-append g vector-concatenate g vector-fold g vector-fold-right g
vector-map g vector-map! g vector-for-each g vector-count !g vector-index "g vector-index-right #g vector-skip $g vector-skip-right %g vector-binary-search &g
vector-any 'g vector-every (g vector-swap! )g vector-reverse! *g vector-copy! +g vector-reverse-copy! ,g reverse-vector->list -g reverse-list->vector . !"#$%&'()*+,- /g
re-exportsS 0g make-vector 1g vector 2g vector? 3g
vector-ref 4g vector-set! 5g
vector-length 6012345 7g replacementsS 8g vector-copy 9g vector-fill! :g list->vector ;g vector->list <89:; =g set-current-module >= ?= @g cond-expand-provide Ag current-module B Cg error Dg
string-append Eg symbol->string Ff : Gg
error-from Hg make-syntax-transformer IH JH Kg assert-nonneg-exact-integer Lg macro Mg $sc-dispatch NM OM Pg any QPPP Rg
syntax-object Sg unless Tg top UT Vg ribcage Wg dummy Xg k Yg who ZWXY [g m-46961e513c-7 \[T ]\UU ^f l-46961e513c-c _f l-46961e513c-d `f l-46961e513c-e a^_` bVZ]a cV dg x ed f\ gf l-46961e513c-9 hg iVefh jUbci kg hygiene lk mRSjl ng and oRnjl pg exact-integer? qRpjl rg not sRrjl tg negative? uRtjl vRGjl wf (expected non-negative exact integer, got xRwjl yg syntax-violation zy {y |f -source expression failed to match any pattern }g assert-procedure ~g f W~Y g m-46961e513c-13 T UU f l-46961e513c-18 f l-46961e513c-19 f l-46961e513c-1a V f l-46961e513c-15 Ve Uc RSl g
procedure? Rl RGl f expected procedure, got Rl g
assert-vector g v WY g m-46961e513c-1f T UU f l-46961e513c-24 f l-46961e513c-25 f l-46961e513c-26 V f l-46961e513c-21 Ve Uc RSl R2l RGl f expected vector, got Rl g assert-valid-index PPPP g i g len WY g m-46961e513c-2b T UUU f l-46961e513c-30 f l-46961e513c-31 f l-46961e513c-32 f l-46961e513c-33 V f l-46961e513c-2d Ve Uc RSl Rnl Rpl g <= Rl R
l RGl f
invalid index Rl g assert-valid-start g start WY g m-46961e513c-39 T UUU f l-46961e513c-3e f l-46961e513c-3f f l-46961e513c-40 f l-46961e513c-41 V f l-46961e513c-3b Ve Uc RSl Rnl Rpl Rl R
l RGl f invalid start index Rl g assert-valid-range PPPPP g end WY g m-46961e513c-47 T UUUU f l-46961e513c-4c f l-46961e513c-4d f l-46961e513c-4e f l-46961e513c-4f f l-46961e513c-50 V f l-46961e513c-49 Ve Uc RSl Rnl Rpl Rl R
l RGl f invalid index range Rl g assert-vectors g let g vs WY g m-46961e513c-57 T UU f l-46961e513c-5c f l-46961e513c-5d f l-46961e513c-5e V f l-46961e513c-59 Ve Uc Rl
g loop R
l RSl
g null? R
l Rl g car Rl g cdr Rl g min g
min-length g reverse! g vectors-ref g apply 8 8 g guile-vector-copy g vector-move-left! g %vector-concatenate 9 9 g %vector-reverse! !g define-vector-copier! "g define #g copy! $g docstring %g
inner-proc &W#$% 'g m-46961e513c-5ea ('T )(UUU *f l-46961e513c-5ef +f l-46961e513c-5f0 ,f l-46961e513c-5f1 -f l-46961e513c-5f2 .*+,- /V&). 0( 1f l-46961e513c-5ec 21 3Ve02 4U/c3 5R"4l 6R4l 7g %copy! 8R74l 9g case-lambda :R94l ;g target <R;4l =g tstart >R=4l ?g source @R?4l A<>@ BR4l Cg quote DRC4l Eg tlen FRE4l GR54l HG< IFH Jg slen KRJ4l LG@ MKL NIM OR4l PRS4l Qg >= RRQ4l Sg + TRS4l UT>K VRFU WRG4l Xf would write past end of target YRX4l ZY [R
4l \8<>@[K ]\ ^g sstart _R^4l `<>@_ ag - bRa4l cbK_ dT>c eRFd f8<>@_K gf hg send iRh4l j<>@_i kR4l lbi_ mT>l nRFm o8<>@_i po qg vector-move-right! rg length sg dropC 5 hh l ]4
./67<5 4? > " G 4@i4Ai5 B> " G CDEF h - 1 3 44 55@ g who
g msg g args g filenamef srfi/srfi-43.scm
+
- - - - - ,
g nameg
error-from CGR4JKLOQmoqsuvx h0 M ] C E g dummy
+ g k + g who + + C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
0
" g
macro-typeg syntax-rulesg patternsg kg who C5KR4J}LOQ h M ] C E g dummy
g f g who C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
5
" g
macro-typeg syntax-rulesg patternsg fg who C5}R4JLOQ h M ] C E g dummy
g v g who C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
9
" g
macro-typeg syntax-rulesg patternsg vg who C5R4JLO h0 ^ ] C V g dummy
* g i * g len * g who * * C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
=
" g
macro-typeg syntax-rulesg patternsg ig leng who C5R4JLO h0 b ] C Z g dummy
* g start * g len * g who * * C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
B
" g
macro-typeg syntax-rulesg patternsg startg leng who C5R4JLO h8 s ] C k g dummy
5 g start 5 g end 5 g len 5 g who 5 5 C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
G
" g
macro-typeg syntax-rulesg patternsg startg endg leng who C5R4JLOQ h@ N ] C F g dummy
: g vs : g who : : C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
M
" g
macro-typeg syntax-rulesg patternsg vsg who C5R5 h@ ]" #( C4455 " 4 5 " g vs
< g vs ) g result ) g filenamef srfi/srfi-43.scm
U
V X Z Z Z # Z 2 Z # ! Z ) Z ) V , V - W 2 W $ 4 W < V < g nameg
min-length CR h8 ]" ( 6 " " g vs
1 g i 1 g vs & g xs & g filenamef srfi/srfi-43.scm
]
^ _ ` a a ) a a & a & ^ ) ^ 1 ^
1 g nameg vectors-ref CRGwp0 h8 ] L$ C4L > G L " g i
5 g seed 5 g x 5 g seed 5 g filenamef srfi/srfi-43.scm
{ | | } } ( ~
+ 5
5 g nameg loop C h@ ] L$ C4L > G L " g i
= g seed1 = g seed2 = g x = g seed1 = g seed2 = g filenamef srfi/srfi-43.scm
$ ,
/ =
= g nameg loop C h8 ] L$ C4L > G L " g i
7 g seeds 7 g x 7 g seeds 7 g filenamef srfi/srfi-43.scm
*
- 7
7 g nameg loop C h s ) 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45 " "$ " 4 5 "
"C) 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45 O Q 4
> " G C) 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45 O Q 4
> " G C- 1 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45
O Q 4
> " G C k g f
g len g v v g i | g f
O g len O g seed O g v O g loop + L g f
X g len X g seed1 X g seed2 X g v g loop g f
g len g seeds g v n g loop { g filenamef srfi/srfi-43.scm
e
o o o 3 p 7 p & 9 p p q v q | r s s t t u u r e x x x y y & y z z + { X e Y l n & e + / & 1 h n { 0 O X
g nameg
vector-unfoldg
documentationf (vector-unfold f length initial-seed ...) -> vector
The fundamental vector constructor. Create a vector whose length is
LENGTH and iterates across each index k from 0 up to LENGTH - 1,
applying F at each iteration to the current index and current seeds, in
that order, to receive n + 1 values: the element to put in the kth slot
of the new vector, and n new seeds for the next iteration. It is an
error for the number of seeds to vary between iterations. CRGwp0 h8 ]
$ C4L > G L " g i
4 g seed 4 g x 4 g seed 4 g filenamef srfi/srfi-43.scm
'
* 4
4 g nameg loop C h@ ]
$ C4L > G L " g i
< g seed1 < g seed2 < g x < g seed1 < g seed2 < g filenamef srfi/srfi-43.scm
$ +
. <
< g nameg loop C h8 ]
$ C4L > G L " g i
6 g seeds 6 g x 6 g seeds 6 g filenamef srfi/srfi-43.scm
)
, 6
6 g nameg loop C h ) 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45 " !
$ " 4 5 " "C) 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45 O Q 4> " G C) 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45 O Q 4> " G C- 1 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "" " "45
O Q 4> " G C g f
g len g v v g i | g f
O g len O g seed O g v O g loop + L g f
X g len X g seed1 X g seed2 X g v g loop g f
g len g seeds g v m g loop y g filenamef srfi/srfi-43.scm
3 7 & 9 p v | & + : A X Y l n & * . & 0 g m y 8 O X
g nameg vector-unfold-rightg
documentationf (vector-unfold-right f length initial-seed ...) -> vector
The fundamental vector constructor. Create a vector whose length is
LENGTH and iterates across each index k from LENGTH - 1 down to 0,
applying F at each iteration to the current index and current seeds, in
that order, to receive n + 1 values: the element to put in the kth slot
of the new vector, and n new seeds for the next iteration. It is an
error for the number of seeds to vary between iterations. CR RG85p0 h ) 3 6) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" "45 4
> " G C- . , 3 # $ " 4 > " G 4 5 " 4
> " NG " G45$ 845$ %
$ $ " "" "" "" "45 4 4 5
> " G C g v
g v
g start g len @ g result g v
g start g end g fill g len g result n g filenamef srfi/srfi-43.scm
( * : @ G K $ M ! ! & ' 1 5 9 > c j ! n n q x # * g nameg vector-copyg
documentationf (vector-copy vec [start [end [fill]]]) -> vector
Allocate a new vector whose length is END - START and fills it with
elements from vec, taking elements from vec starting at index START
and stopping at index END. START defaults to 0 and END defaults to
the value of (vector-length VEC). If END extends beyond the length of
VEC, the slots in the new vector that obviously cannot be filled by
elements from VEC are filled with FILL, whose default value is
unspecified. C8R0 hP e ]# 45 " %$ " $ "
"C ] g vec
J g start J g end J g len J g result J g i ; g j ; g filenamef srfi/srfi-43.scm
, " - 0 3 ; ; ? G J g nameg %vector-reverse-copy C G5p hx ) 23 $ " 4 > " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" "L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" "L 6 g vec
8 g vec
A g start A g len i g vec
u g start u g end u g len u g filenamef srfi/srfi-43.scm
0 # 8 A D Q S c i p t ' v + u 8 A u g
documentationf 1(vector-reverse-copy vec [start [end]]) -> vector
Allocate a new vector whose length is END - START and fills it with
elements from vec, taking elements from vec in reverse order starting
at index START and stopping at index END. START defaults to 0 and END
defaults to the value of (vector-length VEC). C O R50 h ]1" "( " !45 "
" 45 " G( " H 45 4
> " G "
"C g vs
g vs ( g len ( g
result-len 3 g result < g vs B g pos B g v O g len X g filenamef srfi/srfi-43.scm
! 1 @ 1 * ( ( 3 6
< B H O O R X [
v {
g nameg %vector-concatenate C RG50 h0 ) 3 C) *3 $ " 4 > " G 6) 3 $ " 4 > " G $ " 4> " G 4 545 45 4
> " G 4
> " G C- 1 3 " 6( " 4$ " 4> " G " " 6 g v
= g v1
F g v2 F g len1 g len2 g result g vs
+ g vs g filenamef srfi/srfi-43.scm
& ( = F I ! V ! X ! j " w " y " # $ # % % " % % & ' * * * + +
= F +
g nameg
vector-appendg
documentationf (vector-append vec ...) -> vector
Return a newly allocated vector that contains all elements in order
from the subsequent locations in VEC ... CRG hP J ] " 6( " 4$ " 4> " G " " 6 B g vs
J g vs < g filenamef srfi/srfi-43.scm
-
2 ! 2 # 2 J 3 J g nameg vector-concatenateg
documentationf (vector-concatenate list-of-vectors) -> vector
Append each vector in LIST-OF-VECTORS. Equivalent to:
(apply vector-append LIST-OF-VECTORS) CRG5 h0 ] $ " 4 > " G 4 5
C g vec
- g filenamef srfi/srfi-43.scm
5
9 9 9 $ : + : - g nameg
vector-empty?g
documentationf d(vector-empty? vec) -> boolean
Return true if VEC is empty, i.e. its length is 0, and false if not. CR5 h( ]( C 45$
"C g len
( g vs ( g filenamef srfi/srfi-43.scm
> ? ?
@ @ % @ @ @
A # & A ( g nameg all-of-length? CO hP - ]
$ C & " 45$ "C% g i
P g elt=? P g v1 P g v2 P g t P g x1 P g x2 P g filenamef srfi/srfi-43.scm
B C
C D E D
' F ( F - F ! 9 F < G N G
P g nameg =up-to? CO Q Q G5 h ) *3 4 5$ " 4 > " G C) K3 4 5$ " 4 > " G $ " 4> " G C) 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 45 45$
L 6C- 1 3 4 5$ " 4 > " G $ " 4> " G " 6( " 4$ " 4> " G " "45 4L 5$ 2" &( C4L 5$ "C "C g elt=?
0 g elt=?
9 g v 9 g elt=?
g v1 g v2 g len g elt=?
g v1 g vs g vs j g len g vs
g filenamef srfi/srfi-43.scm
H
R R R 9 H : U M U O U a V n V p V H Y Y Y Z Z Z [ [ [ \ \ ] ] ]
^ ^ H ! ` 4 ` 6 ` H a U a W a j b b b c c d d e f f g g " g 5 g g h h e 6 0 9
g
documentationf u(vector= elt=? vec ...) -> boolean
Return true if the vectors VEC ... have equal lengths and equal
elements according to ELT=?. ELT=? is always applied to two
arguments. Element comparison must be consistent with eq?, in the
following sense: if (eq? a b) returns true, then (elt=? a b) must also
return true. The order in which comparisons are performed is
unspecified. C O RG5
h ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ C4 5 "
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ C4 5 "
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " )$ C4 4 5? "
" g kcons
g knil g v g len V g i \ g state \ g kcons
J g knil J g v1 J g v2 J g len J g i ? g state ? g kcons
S g knil S g vs S g vs | g len g i g state g filenamef srfi/srfi-43.scm
k
v v v 1 w > w @ w P x V x \ y a z
e z k | l | w | * y | |
y k ~ ~ ~ (
$ % 0 " 5 4 7 ?
? S k T g i |
0
> J S
g nameg vector-foldg
documentationf (vector-fold kons knil vec1 vec2 ...) -> value
The fundamental vector iterator. KONS is iterated over each index in
all of the vectors, stopping at the end of the shortest; KONS is
applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...)
where STATE is the current state value, and I is the current index.
The current state value begins with KNIL, and becomes whatever KONS
returned at the respective iteration. The iteration is strictly
left-to-right. CRG 5
h g ) 3 4 5$ " 4 > " G $ " 4> " G 45 " $
$ C4 5 " ") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " )
$ C4 5 " "- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " (
$ C4 4 5? " " _ g kcons
g knil g v g len V g i \ g state \ g kcons
L g knil L g v1 L g v2 L g len L g i ? g state ? g kcons
U g knil U g vs U g vs ~ g len g i g state g filenamef srfi/srfi-43.scm
1 > @ P V \ _
d j k v * x
(
$ % 0 " 5 4 7 ?
? B L U V i k ~
0
D L U
g nameg vector-fold-rightg
documentationf (vector-fold-right kons knil vec1 vec2 ...) -> value
The fundamental vector iterator. KONS is iterated over each index in
all of the vectors, starting at the end of the shortest; KONS is
applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...)
where STATE is the current state value, and I is the current index.
The current state value begins with KNIL, and becomes whatever KONS
returned at the respective iteration. The iteration is strictly
right-to-left. C RG 50 h ~ ) 3 4 5$ " 4 > " G $ " 4> " G 45 45 " '$ " !4 5 "
"C) 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 45 " ,$ " &4 5 "
"C- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "4 5 45 " +$ " %4 4
5? "
"C v g f
g v g len V g result _ g i e g f
^ g v1 ^ g v2 ^ g len ^ g result " ^ g i ( T g f
g g vs g g vs g len g result g i g filenamef srfi/srfi-43.scm
1 > @ P V Y _ e j n w ! & !
) " ( - 1 : ! C & H 8 J ! K N T T g h { } ! , ! G ^ g
g nameg
vector-mapg
documentationf (vector-map f vec2 vec2 ...) -> vector
Return a new vector of the shortest size of the vector arguments.
Each element at index i of the new vector is mapped from the old
vectors by (F i (vector-ref VEC1 i) (vector-ref VEC2 i) ...). The
dynamic order of application of F is unspecified. C RG 5
h ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ C4 5 "
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ C4 5 "
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " )$ C4 4 5? "
" g f
g v g len V g i \ g f
B g v1 B g v2 B g len B g i ; g f
K g vs K g vs t g len g v1 g i g filenamef srfi/srfi-43.scm
1 > @ P V \ a e l u ! w x { ( ! * " / 4 1 2 5 ; ; K L _ a t ( B B K
g nameg vector-map!g
documentationf (vector-map! f vec2 vec2 ...) -> unspecified
Similar to vector-map, but rather than mapping the new elements into a
new vector, the new mapped elements are destructively inserted into
VEC1. The dynamic order of application of F is unspecified. C RG 5 h ) 3 4 5$ " 4 > " G $ " 4> " G 45 " +$ C4 > " G "
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " 0$ C4 > " G "
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " 1$ C4 4
5> " G "
" g f
g v g len V g i \ g f
N g v1 N g v2 N g len N g i G g f
W g vs W g vs g len g i g filenamef srfi/srfi-43.scm
1 > @ P
V
\ a e h
q
v
# , 1 " 6 A G G W X k m > N W
g nameg vector-for-eachg
documentationf (vector-for-each f vec1 vec2 ...) -> unspecified
Call (F i VEC1[i] VEC2[i] ...) for each index i less than the length
of the shortest vector passed. The iteration is strictly
left-to-right. C RG 5
h0 V ) 3 4 5$ " 4 > " G $ " 4> " G 45 " 7$ C4 5$ " "
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " <$ C4 5$ " "
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " ;$ C4 4 5?$ " "
" N g pred?
g v g len V g i \ g count \ g pred?
l g v1 l g v2 l g len l g i & b g count & b g pred?
u . g vs u . g vs g len . g i $ g count $ g filenamef srfi/srfi-43.scm
#
* * * 1 + > + @ + P , V , \ - a . e . i / r / t / x . { 0 ~ 0 0 2 2 - # 4 4 4 5 5 5 6 6 6 7 7 8 7 7 & 9 + : / : 3 ; < ; A ; + C ; G : J < M < U < X > b > b 9 u # v @ @ @ A A A B B C D D E E E D F F F H $ H $ C J l u .
g nameg vector-countg
documentationf (vector-count pred? vec1 vec2 ...) -> exact nonnegative integer
Count the number of indices i for which (PRED? VEC1[i] VEC2[i] ...)
returns true, where i is less than the length of the shortest vector
passed. C RG!5
h ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ 4 5$ C "C
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ 4 5$ C "C
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " )$ 4 4 5?$ C "C
" g pred?
g v g len V g i \ g pred?
B g v1 B g v2 B g len B g i ; g pred?
K g vs K g vs t g len g i g filenamef srfi/srfi-43.scm
K
R R R 1 S > S @ S P T V T \ U a V e V f W m W o W s W y Y Y U K [ [ [ \ \ \ ] ] ] ^ ^ _ ^ ^ ` a a b " b ' c ) b - b 3 e 9 e ; ` K K L g _ g a g t h h h i i j k k l l l l n n j A B K
g nameg vector-indexg
documentationf (vector-index pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the first elements in VEC1 VEC2 ... that
satisfy PRED?. If no matching element is found by the end of the
shortest vector, return #f. C!RG"5
h @ ) 3 4 5$ " 4 > " G $ " 4> " G 45 " $
$ 4 5$ C "C ") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " )
$ 4 5$ C "C "- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " (
$ 4 4 5?$ C "C " 8 g pred?
g v g len V g i \ g pred?
D g v1 D g v2 D g len D g i ; g pred?
M g vs M g vs v g len g i g filenamef srfi/srfi-43.scm
q
x x x 1 y > y @ y P z V z \ { ` | d | e } l } n } r } x ~ { { { q " ' ) - 3 9 ; > D M q N a c v G D M
g nameg vector-index-rightg
documentationf (vector-index-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the last elements in VEC1 VEC2 ... that
satisfy PRED?, searching from right-to-left. If no matching element
is found before the end of the shortest vector, return #f. C"RG#5
h ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ 4 5$ "CC
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ 4 5$ "CC
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " )$ 4 4 5?$ "CC
" g pred?
g v g len V g i \ g pred?
B g v1 B g v2 B g len B g i ; g pred?
K g vs K g vs t g len g i g filenamef srfi/srfi-43.scm
1 > @ P V \ a e f m o s v | " ' ) - 0 6 ; K L _ a t A B K
g nameg vector-skipg
documentationf (vector-skip pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the first elements in VEC1 VEC2 ... that
do not satisfy PRED?. If no matching element is found by the end of
the shortest vector, return #f. C#RG$5
h E ) 3 4 5$ " 4 > " G $ " 4> " G 45 " $
$ C4 5$ "C ") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " )
$ C4 5$ "C "- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " (
$ C4 4 5?$ "C " = g pred?
g v g len V g i \ g pred?
D g v1 D g v2 D g len D g i ; g pred?
M g vs M g vs v g len g i g filenamef srfi/srfi-43.scm
1 > @ P V \ _ d g n p t w } $ ) + / 2 8 ; > D M N a c v G D M
g nameg vector-skip-rightg
documentationf (vector-skip-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the last elements in VEC1 VEC2 ... that
do not satisfy PRED?, searching from right-to-left. If no matching
element is found before the end of the shortest vector, return #f. C$R hp ]-" ]$ R 45
$ C
$ "
$
"CC " g vec
o g value o g cmp o g start o g end o g lo c g hi c g i a g x a g c ) a
g filenamef srfi/srfi-43.scm
!
! )
. 3 9 > J $ M R U * _ $ c o g nameg %vector-binary-search C G%5p
h ) [3 $ " 4 > " G 45$ " 4> " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" "L 6]
$ " 4 > " G 4 5 " 4 > " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" "L 6 g vec
a g value a g cmp a g vec
j g value j g cmp j g start j g len g vec
g value g cmp g start g end g len g filenamef srfi/srfi-43.scm
+ > @ Y . a j m z | ' % ) + + a j g
documentationf (vector-binary-search vec value cmp [start [end]]) -> exact nonnegative integer or #f
Find and return an index of VEC between START and END whose value is
VALUE using a binary search. If no matching element is found, return
#f. The default START is 0 and the default END is the length of VEC.
CMP must be a procedure of two arguments such that (CMP A B) returns
a negative integer if A < B, a positive integer if A > B, or zero if
A = B. The elements of VEC must be sorted in non-decreasing order
according to CMP. C O %RG&5
h P ) 3 4 5$ " 4 > " G $ " 4> " G 45 " )$ 4 5 $ C "C
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " .$ #4 5 $ C "C
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45 " -$ "4 4 5? $ C "C
" H g pred?
g v g len V g i \ g t o g pred?
J g v1 J g v2 J g len J g i C g t - A g pred?
S g vs S g vs | g len g i g t g filenamef srfi/srfi-43.scm
1 > @ P V \ a e f m o o } & + ! - - ; " A " C S T $ g $ i $ | % % % & & ' ( ( ) ) ) ) * * ' A J S
g nameg
vector-anyg
documentationf 2(vector-any pred? vec1 vec2 ...) -> value or #f
Find the first parallel set of elements from VEC1 VEC2 ... for which
PRED? returns a true value. If such a parallel set of elements
exists, vector-any returns the value that PRED? returned for that set
of elements. The iteration is strictly left-to-right. C&RG'5
h@ m ) 3 4 5$ " 4 > " G $ " 4> " G 45
$ C" 04 5 $ " $ C "
") 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455
$ C" 54 5 $ " $ C "
"- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G " "45
$ C" 44 4 5? $ " $ C "
" e g pred?
g v g len V g t \ g i k g val x g next-i x g pred?
v g v1 v g v2 v g len % v g t + v g i : o g val L o g next-i L o g pred?
= g vs = g vs g len = g t = g i 6 g val 6 g next-i 6 g filenamef srfi/srfi-43.scm
-
6 6 6 1 7 > 7 @ 7 P 8 V 8 [ 9 \ 9 k : l ; s ; u ; x < x ;
= = ! = = ? : - A A A B B B C C C D D E % D % D * F + F : G ; H B H G I I H L J L H
V K [ K ! ` K d K o M o G - O O O P P P Q Q R R S T T % T U T
V " V ! ' V + V 6 X 6 S M v =
g nameg vector-everyg
documentationf \(vector-every pred? vec1 vec2 ...) -> value or #f
If, for every index i less than the length of the shortest vector
argument, the set of elements VEC1[i] VEC2[i] ... satisfies PRED?,
vector-every returns the value that PRED? returned for the last set of
elements, at the last index of the shortest vector. The iteration is
strictly left-to-right. C'RG(5p h ] $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" "" 4> " ;G " 445$ %
$ $ " "" "" " C g vec
g i g j g len * g tmp g filenamef srfi/srfi-43.scm
Z
^ ^ ^ $ _
* _ 1 ` 5 ` 7 ` a a a b b c c d g nameg vector-swap!g
documentationf Z(vector-swap! vec i j) -> unspecified
Swap the values of the locations in VEC at I and J. C(RH h0 ] " $ "C " g vec
) g fill ) g start ) g end ) g i ! g filenamef srfi/srfi-43.scm
k l m m n
o o
! l ) g nameg
%vector-fill! C K G95p hX ) 3 M 6) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" "L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" "L 6 g vec
g fill g vec
g fill g start g len B g vec
R g fill R g start R g end R g len R g filenamef srfi/srfi-43.scm
p v p x * x , x < y B y I z M z ' O z { p } } } ~ ~ + R R g
documentationf (vector-fill! vec fill [start [end]]) -> unspecified
Assign the value of every location in VEC between START and END to
FILL. START defaults to 0 and END defaults to the length of VEC. C O 9RhH C ]" 1$ & "C " ; g vec
D g start D g end D g i 7 g j 7 g tmp 5 g filenamef srfi/srfi-43.scm
' * - 5 7 < D D g nameg %vector-reverse! C RG) 5p hx ) 23 $ " 4 > " G
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" " 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" " 6 g vec
8 g vec
A g start A g len i g vec
u g start u g end u g len u g filenamef srfi/srfi-43.scm
0 8 A D Q S c i p t % v ) u 8 A u g nameg vector-reverse!g
documentationf (vector-reverse! vec [start [end]]) -> unspecified
Destructively reverse the contents of VEC between START and END.
START defaults to 0 and END defaults to the length of VEC. C)R4J!LO568:AB<D@NO>FPVWZ]`_Kegjkinp h8 t ]
C l g dummy
1 g copy! 1 g docstring 1 g
inner-proc 1 1 C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
" g
macro-typeg syntax-rulesg patternsg copy!g docstringg
inner-proc C5!RG*5pX q h ) 3 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "" "" "$ " 4> " G
$
6
6) G3 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "" "" "" 4> " ;G " 445$ %
$ $ " "" "" "$ " 4> " G $ 6 6] $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "" "" "" 4
> " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" "$ " 4> " G $ 6 6 g target
g tstart g source g tlen Y g slen Y g target
B g tstart B g source B g sstart B g tlen N B g slen N B g target
D g tstart D g source D g sstart D g send D g tlen g slen g filenamef srfi/srfi-43.scm
" & 4 B D
B D g
documentationf (vector-copy! target tstart source [sstart [send]]) -> unspecified
Copy a block of elements from SOURCE to TARGET, both of which must be
vectors, starting in TARGET at TSTART and starting in SOURCE at
SSTART, ending when SEND - SSTART elements have been copied. It is an
error for TARGET to have a length less than TSTART + (SEND - SSTART).
SSTART defaults to 0 and SEND defaults to the length of SOURCE. C*R h` _ ]" 4" #$ "C " & $
6"" W g target
] g tstart ] g source ] g sstart ] g send ] g i
- g j
- g filenamef srfi/srfi-43.scm
" # + - 2 ! : : G ! K U ] g nameg %copy! C G+5pX hp > ) 3 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "" "" "$ " 4> " G L
6) 03 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "" "" "" 4> " ;G " 445$ %
$ $ " "" "" "$ " 4> " G L 6] $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "" "" "" 4> " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" "$ " 4> " G L 6 6 g target
g tstart g source g tlen Y g slen Y g target
g tstart g source g sstart g tlen 9 g slen 9 g target
k g tstart k g source k g sstart k g send k g tlen h k g slen h k g filenamef srfi/srfi-43.scm
k g
documentationf X(vector-reverse-copy! target tstart source [sstart [send]]) -> unspecified
Like vector-copy!, but copy the elements in the reverse order. It is
an error if TARGET and SOURCE are identical vectors and the TARGET and
SOURCE ranges overlap; however, if TSTART = SSTART,
vector-reverse-copy! behaves as (vector-reverse! TARGET TSTART SEND)
would. C O +R h8 ]" $ C " " g vec
1 g start 1 g end 1 g i % g result % g filenamef srfi/srfi-43.scm
% % ( ) 1
1 g nameg
%vector->list C G;5p hx ) 23 $ " 4 > " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" "L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" "L 6 g vec
8 g vec
A g start A g len i g vec
u g start u g end u g len u g filenamef srfi/srfi-43.scm
0 8 A D Q S c i p t ' v + u 8 A u g
documentationf (vector->list vec [start [end]]) -> proper-list
Return a newly allocated list containing the elements in VEC between
START and END. START defaults to 0 and END defaults to the length of
VEC. C O ;R h0 ]" $ C " " g vec
0 g start 0 g end 0 g i % g result % g filenamef srfi/srfi-43.scm
% % ( 0 0 g nameg %reverse-vector->list C G,5p hx ) 23 $ " 4 > " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "" "" "L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "" "" "" "" "L 6 g vec
8 g vec
A g start A g len i g vec
u g start u g end u g len u g filenamef srfi/srfi-43.scm
0 $ 8 A D Q S c i p t ' v + u 8 A u g
documentationf (reverse-vector->list vec [start [end]]) -> proper-list
Return a newly allocated list containing the elements in VEC between
START and END in reverse order. START defaults to 0 and END defaults
to the length of VEC. C O ,Rr0s hp Z - . , 3 #
# 4 5 45 " "$ C "
4 5 " R g lst
l g start l g end l g len ) l g result 2 l g i 8 Z g lst 8 Z g filenamef srfi/srfi-43.scm
5 ) ) , 2 8 ! = "
A " K $ ' L $ O % R % Z % Z ! \ ! l ! l g nameg list->vectorg
documentationf (list->vector proper-list [start [end]]) -> vector
Return a newly allocated vector of the elements from PROPER-LIST with
indices between START and END. START defaults to 0 and END defaults
to the length of PROPER-LIST. C:Rr0s hp - . , 3 #
# 4 5 45 " !
$ C "4 5 " } g lst
m g start m g end m g len ) m g result 2 m g i 8 Y g lst 8 Y g filenamef srfi/srfi-43.scm
(
( = ) . ) . , / 2 . 8 0 ; 1
@ 1 J 3 ' K 3 N 4 Q 4 Y 4 Y 0 \ 0 ] 0 " m 0 m g nameg reverse-list->vectorg
documentationf (reverse-list->vector proper-list [start [end]]) -> vector
Return a newly allocated vector of the elements from PROPER-LIST with
indices between START and END, in reverse order. START defaults to 0
and END defaults to the length of PROPER-LIST. C-RC d g m
4 g %vector-reverse-copy
/7 3 g all-of-length?
@K GS g =up-to? @K GS g %vector-binary-search
c g guile-vector-fill!
[ g
%vector-fill! X g %copy!
! g
%vector->list
\ ҧ g %reverse-vector->list
h
g filenamef srfi/srfi-43.scm
5 )
: ) B ) & G )
D +
U
]
d
&
&
-k
3
6
:
<E -
= 5
GV <
O j
X*
_
g
m
uq "
|b J
p
;
,
Z
^ g
M
I
!
Ҫ
k
M
` (
* b
C6 PK ! a srfi/srfi-31.gonu [ GOOF----LE-8-2.0 ] O 4 h ] g guile g define-module* g srfi g srfi-31 g filenameS
f srfi/srfi-31.scm g exportsS g rec
g set-current-module g cond-expand-provide g current-module g make-syntax-transformer g macro g $sc-dispatch g any g each-any g
syntax-object !g letrec "g top #" $g ribcage %g dummy &g name 'g formals (g body )%&'( *g m-46961e5115-0 +*" ,+### -f l-46961e5115-5 .f l-46961e5115-6 /f l-46961e5115-7 0f l-46961e5115-8 1-./0 2$),1 3$ 4g x 54 6+ 7f l-46961e5115-2 87 9$568 :#239 ;g hygiene <; = !:< >g lambda ? >:< @ Ag expr B%&A C+## Df l-46961e5115-f Ef l-46961e5115-10 Ff l-46961e5115-11 GDEF H$BCG I#H39 J !I< Kg syntax-violation LK MK Nf -source expression failed to match any patternC 5 h r ]4
5 4 > " G 4i4i5 > " G 4 =? h f ] C ^ g dummy
g name g formals g body C@J h Q ] C I g dummy
g name g expr CMN h@ I ]4 5 $ @4 5 $ @ 6 A g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-31.scm
9 g
documentationf XReturn the given object, defined in a lexical environment where
NAME is bound to itself.g
macro-typeg syntax-rulesg patternsg nameg formalsg bodyg ... g nameg expr C5 RCj g m
( g filenamef srfi/srfi-31.scm
)
. 6 & ;
C6 PK ! v:D D srfi/srfi-39.gonu [ GOOF----LE-8-2.0, ] 4 h ] g guile g define-module* g srfi g srfi-39 g filenameS
f srfi/srfi-39.scm g exportsS g with-parameters*
g
re-exportsS g make-parameter g parameterize g current-input-port g current-output-port g current-error-port g set-current-module g cond-expand-provide g current-module g with-fluids* g parameter-fluid g parameter-converterC 5 hP z ]4
5 4 > " G 4i4i5 > " G hX ]#" >(
6454455 " " g params
V g values V g thunk V g params D g values D g fluids D g convs D g filenamef srfi/srfi-39.scm
-
. 2 3 4 4 5 " 5 % $ 5 ' 5 ( 6 ) 6 . 6 * 0 6 3 6 8 5 6 8 6 D 4 D . I 0 J 1 V . V g nameg with-parameters* C RC r g m
, g filenamef srfi/srfi-39.scm $
- +
2 + : + & ? +
M -
O
C6 PK ! X Rzp p srfi/srfi-45.gonu [ GOOF----LE-8-2.0X ] 4 hE ] g guile g define-module* g srfi g srfi-45 g filenameS
f srfi/srfi-45.scm g importsS g srfi-9
g gnu g exportsS g delay g lazy g force g eager g promise? g replacementsS g set-current-module g cond-expand-provide g current-module ! "g promise #g %make-promise-procedure $g make-syntax-transformer %$ &$ 'g make-promise (g macro )g $sc-dispatch *) +) ,g _ -g any .,- /g
syntax-object 0g lambda 1g m-46961e513e-4 2g top 312 4g ribcage 5g t-46961e513e-3 65 73 8f l-46961e513e-9 98 :4679 ;4 <g x =< >f l-46961e513e-6 ?> @4=7? Ag shift Bg proc-name Cg args DBC E2 FEE Gf l-1e8ba8b5a-2ba Hf l-1e8ba8b5a-2bb IGH J4DFI Kg key Lg value Mg name Ng formals Og body PKLMNO QEEEEE Rf l-1e8ba8b5a-2ad Sf l-1e8ba8b5a-2ae Tf l-1e8ba8b5a-2af Uf l-1e8ba8b5a-2b0 Vf l-1e8ba8b5a-2b1 WRSTUV X4PQW Yg make-procedure-name ZY [E \f l-1e8ba8b5a-29d ]\ ^4Z[] _E `f l-1e8ba8b5a-29c a` b4=_a c3:;@A;;;;JX^b
dg hygiene ed f/0ce gg val hE:;@ id j/ghi kj lg make-struct mg m-46961e513e-1 nm2 og t-1e8ba8b5a-38d pg t-1e8ba8b5a-38c qg t-1e8ba8b5a-38b ropq sg m-1e8ba8b5a-38e ts2 uttt vf l-1e8ba8b5a-392 wf l-1e8ba8b5a-393 xf l-1e8ba8b5a-394 yvwx z4ruy {g ctor-args |{ }f l-1e8ba8b5a-37a ~} 4|_~ g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 4F g form g type-name g constructor-spec g field-names EEEE f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e 4 g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers EEEEEEEE f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 4 f l-1e8ba8b5a-334 4=_ n:;@A;z;;;; /le /"hi /
e j fk g each-any , g syntax-violation
f Wrong number of arguments g identifier?
E;@ /#i f -source expression failed to match any pattern g record-type-vtable
g pw g default-record-printer
g g set-struct-vtable-name!
g vtable-offset-user
g %promise?-procedure g m-46961e513e-11 2 g t-46961e513e-10 f l-46961e513e-16 4 f l-46961e513e-13 4= ;A;;;;JX^b
/0e g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f 2 f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 4 g copier-id f l-1e8ba8b5a-476 4_ g ctor-name f l-1e8ba8b5a-46e 4_ f l-1e8ba8b5a-46c 4_ g layout f l-1e8ba8b5a-46a 4_ g
immutable? f l-1e8ba8b5a-468 4_ g field-count f l-1e8ba8b5a-466
4_
g
getter-ids
f l-1e8ba8b5a-463 4
_ g field-ids f l-1e8ba8b5a-460 4_ g predicate-name g
field-spec EEEEEE f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 !4 "n;A;;;;;;;;;; ;;! #/"e $# %g and &/%"e 'g struct? (/'"e )(# *g eq? +/*"e ,g
struct-vtable -/,"e .-# /E; 0/"/i 1+.0 2&)1 3$2 4E; 5/4i 6g throw-bad-struct 7
6 8
6 9g promise-val :g %promise-val-procedure ;g free-id <g
%%on-error =g m-46961e513e-1d >=2 ?> @f l-46961e513e-1f A@ B4=?A C>;BA;;;;JX^b D/<Ce E;D FE- Gg %%type Hg t-1e8ba8b5a-3a5 Ig t-1e8ba8b5a-3a6 Jg t-1e8ba8b5a-3a7 Kg t-1e8ba8b5a-3a8 Lg t-1e8ba8b5a-3a9 Mg t-1e8ba8b5a-3aa Ng t-1e8ba8b5a-3ab OHIJKLMN Pg m-1e8ba8b5a-3ac QP2 RQQQQQQQ Sf l-1e8ba8b5a-3b0 Tf l-1e8ba8b5a-3b1 Uf l-1e8ba8b5a-3b2 Vf l-1e8ba8b5a-3b3 Wf l-1e8ba8b5a-3b4 Xf l-1e8ba8b5a-3b5 Yf l-1e8ba8b5a-3b6 ZSTUVWXY [4ORZ \g getter ]g index ^\] _f l-1e8ba8b5a-3a3 `f l-1e8ba8b5a-3a4 a_` b4^Fa c dEEE ef l-1e8ba8b5a-39e ff l-1e8ba8b5a-39f gf l-1e8ba8b5a-3a0 hefg i4cdh jn;BA;[;;;b;i k/Gje l;k m,Fl- ng ck og err pg s qop r>> sf l-46961e513e-22 tf l-46961e513e-23 ust v4qru w>v;BA;;;;JX^b
x/nwe yg quote z/ywe {Ev;B |/"{i }z| ~} g %%index /je ; ,F- f l-46961e513e-27 f l-46961e513e-28 4qr >;BA;;;;JX^b
/ne /ye ;B /
i g %%copier /je ; ,F- f l-46961e513e-2c f l-46961e513e-2d 4qr >;BA;;;;JX^b
/ne /ye g %%promise-set-fields E;B /i g t-46961e513e-1c f l-46961e513e-31 4? >;BA;;;;JX^b
/0e n;BA;[;;;b;i /pe g if /e /*e /,e E;B /"i g
struct-ref /e ;B /
i /6e /ye /9i E;B /:i g each -- - - - g %%set-fields g dummy g check? g expr p\ g m-46961e513e-38 2 nnnn f l-46961e513e-3d f l-46961e513e-3e f l-46961e513e-3f f l-46961e513e-40 f l-46961e513e-41 4 f l-46961e513e-3a 4= g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 2 f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd 4 f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 4cd n;A;;;;
/e E; /"i /9i g map g list g promise-val-set! g %promise-val-set!-procedure ,-- g m-46961e513e-4c 2 g t-46961e513e-4a g t-46961e513e-4b f l-46961e513e-51 f l-46961e513e-52 4 f l-46961e513e-4e 4= ;A;;;;JX^b
/0e g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 2
f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed
4
g setter M\ f l-1e8ba8b5a-3e0 f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2 4d ] f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 4F g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 4 F !n;A;;; "/p!e #/g!e $"# %/!e &/*!e '/,!e ('" )E; */")i +&(* ,g struct-set! -/,!e .; //
.i 0-"/# 1/6!e 2/y!e 3/)i 423 51"4 6%+05 7$6 8E; 9/8i :g %make-value-procedure ;g
make-value <g m-46961e513e-6d =<2 >g t-46961e513e-6b ?g t-46961e513e-6c @>? A== Bf l-46961e513e-72 Cf l-46961e513e-73 DBC E4@AD F= Gf l-46961e513e-6f HG I4=FH J=E;IA;;;;JX^b
K/0Je Lg tag MEE;I N/LMi Og proc P/OMi QNP Rg m-46961e513e-69 SR2 TSE;IA;z;;;; U/lTe V/LMi W/
Te XUVWNP YKQX ZE;I [/:Zi \g pwpw ]LO ^g %value?-procedure _g value? `g m-46961e513e-7c a`2 bg t-46961e513e-7b cb da ef l-46961e513e-81 fe g4cdf hf l-46961e513e-7e ih j4=di kag;jA;;;;JX^b
l/0ke mSg;jA;;;;;;;;;; ;;! n/me on p/%me q/'me rqn s/*me t/,me utn vEg;j w/Lvi xsuw yprx zloy {E;j |/^{i }g value-tag ~g %value-tag-procedure g m-46961e513e-88 2 f l-46961e513e-8a 4= ;A;;;;JX^b /<e ; - S;A;[;;;b;i /Ge ; ,- f l-46961e513e-8d f l-46961e513e-8e 4q ;A;;;;JX^b
/ne /ye E; /Li /e ; ,- f l-46961e513e-92 f l-46961e513e-93 4q ;A;;;;JX^b
/ne /ye ; /
i /e ; ,- f l-46961e513e-97 f l-46961e513e-98 4q ;A;;;;JX^b
/ne /ye g %%value-set-fields E; /i g t-46961e513e-87 f l-46961e513e-9c 4 ;A;;;;JX^b
/0e S;A;[;;;b;i /pe /e /*e /,e E; /Li /e ; /
i /6e /ye /}i E; /~i g
value-proc g %value-proc-procedure g m-46961e513e-a3 2 f l-46961e513e-a5 4= ;A;;;;JX^b /<e ; - S;A;[;;;b;i /Ge ; ,- f l-46961e513e-a8 f l-46961e513e-a9 4q ;A;;;;JX^b
/ne /ye E; /Li /e ; ,- f l-46961e513e-ad f l-46961e513e-ae 4q ;A;;;;JX^b
/ne /ye ; / i /e ; ,- f l-46961e513e-b2 f l-46961e513e-b3 4q ;A;;;;JX^b
/ne /ye E; /i
g t-46961e513e-a2
f l-46961e513e-b7 4
;A;;;;JX^b
/0e S;A;[;;;b;i /pe /e /*e /,e E; /Li /e ; / i !/6e "/ye #/i $"# %!$ & % '& (E; )/(i *g m-46961e513e-be +*2 ,+SSSS -f l-46961e513e-c3 .f l-46961e513e-c4 /f l-46961e513e-c5 0f l-46961e513e-c6 1f l-46961e513e-c7 2-./01 34,2 4+ 5f l-46961e513e-c0 65 74=46 8S3;7A;;;;
9/8e :E3;7 ;/L:i </}:i =/:i ><= ?g value-tag-set! @g %value-tag-set!-procedure Ag m-46961e513e-d2 BA2 Cg t-46961e513e-d0 Dg t-46961e513e-d1 ECD FBB Gf l-46961e513e-d7 Hf l-46961e513e-d8 IGH J4EFI KB Lf l-46961e513e-d4 ML N4=KM OBJ;NA;;;;JX^b
P/0Oe QSJ;NA;;; R/pQe S/gQe TRS U/Qe V/*Qe W/,Qe XWR YEJ;N Z/LYi [VXZ \/,Qe ]J;N ^/
]i _\R^S `/6Qe a/yQe b/?Yi cab d`Rc eU[_d fPTe gE;N h/@gi ig value-proc-set! jg %value-proc-set!-procedure kg m-46961e513e-e2 lk2 mg t-46961e513e-e0 ng t-46961e513e-e1 omn pll qf l-46961e513e-e7 rf l-46961e513e-e8 sqr t4ops ul vf l-46961e513e-e4 wv x4=uw ylt;xA;;;;JX^b
z/0ye {St;xA;;; |/p{e }/g{e ~|} /{e /*{e /,{e | Et;x /Li /,{e t;x / i |} /6{e /y{e /ii | z~ E;x /ji g exp g m-46961e513e-107 2 E f l-46961e513e-10c f l-46961e513e-10d 4 f l-46961e513e-109 4= E; /'i /;i /yi /i /0i g m-46961e513e-11b 2 E f l-46961e513e-120 f l-46961e513e-121 4 f l-46961e513e-11d 4= E; /i /i g on-eagerS g on-lazyS g
promise-visit g set-record-type-printer! g format f #<promise = ~s> f #<promise => ~s>C 5h4 ]4
5 4 > " G 4 i4 i5 !> " G " h x ] C p g val
g filenamef srfi/srfi-45.scm
.
g nameg %make-promise-procedure C#R4&'(+. h 6 ] C . g t-46961e513e-3
C' h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C, h C ] L 6; g filenamef srfi/srfi-45.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 srfi/srfi-45.scm
.
n C5'R"Ũ 4 "> " G ˖#i "R" h t ] $ CC l g obj
g filenamef srfi/srfi-45.scm
.
g nameg %promise?-procedure CR4&(+.3 h 7 ] C / g t-46961e513e-10
C h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C, h C ] L 6; g filenamef srfi/srfi-45.scm .
C5 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 srfi/srfi-45.scm
.
n C5R"89 h u ] &
C 6m g s
g filenamef srfi/srfi-45.scm
.
g nameg %promise-val-procedure C:R4&9(+mx~ 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 7 ] C / g t-46961e513e-1c
C9 h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C, h C ] L 6; g filenamef srfi/srfi-45.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 srfi/srfi-45.scm
.
C59R4&(+ 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 srfi/srfi-45.scm
.
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R"8 h ] &
C 6 g s
g val g filenamef srfi/srfi-45.scm
.
g nameg %promise-val-set!-procedure CR4&(+7 h T ] C L g t-46961e513e-4a
g t-46961e513e-4b C h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C, h C ] L 6; g filenamef srfi/srfi-45.scm .
C9 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 srfi/srfi-45.scm
.
n C5RL h ] C g tag
g proc g filenamef srfi/srfi-45.scm
1
g nameg %make-value-procedure C:R4&;(+Y h T ] C L g t-46961e513e-6b
g t-46961e513e-6c C; h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C, h C ] L 6; g filenamef srfi/srfi-45.scm 1
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 srfi/srfi-45.scm
1
n C5;R\L] 4 L> " G ˖:i LRL h r ] $ CC j g obj
g filenamef srfi/srfi-45.scm
1
g nameg %value?-procedure C^R4&_(+.z h 7 ] C / g t-46961e513e-7b
C_ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C, h C ] L 6; g filenamef srfi/srfi-45.scm 1
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 srfi/srfi-45.scm
1
n C5_RL8} h s ] &
C 6k g s
g filenamef srfi/srfi-45.scm
1
g nameg %value-tag-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 7 ] C / g t-46961e513e-87
C} h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C, h C ] L 6; g filenamef srfi/srfi-45.scm 1
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 srfi/srfi-45.scm
1
C5}RL8 h t ] & C 6l g s
g filenamef srfi/srfi-45.scm
1
g nameg %value-proc-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 7 ] C / g t-46961e513e-a2
C h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C, h C ] L 6; g filenamef srfi/srfi-45.scm 1
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 srfi/srfi-45.scm
1
C5R4&(+9;> 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 srfi/srfi-45.scm
1
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5RL8? h ] &
C 6 g s
g val g filenamef srfi/srfi-45.scm
1
g nameg %value-tag-set!-procedure C@R4&?(+f h T ] C L g t-46961e513e-d0
g t-46961e513e-d1 C? h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C, h C ] L 6; g filenamef srfi/srfi-45.scm 1
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 srfi/srfi-45.scm
1
n C5?RL8i h ] & C 6 g s
g val g filenamef srfi/srfi-45.scm
1
g nameg %value-proc-set!-procedure CjR4&i(+ h T ] C L g t-46961e513e-e0
g t-46961e513e-e1 Ci h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C, h C ] L 6; g filenamef srfi/srfi-45.scm 1
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 srfi/srfi-45.scm
1
n C5iR4&(+ h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-45.scm
5
" g
macro-typeg syntax-rulesg patternsg exp C5RL" h ] C g x
g val g filenamef srfi/srfi-45.scm
8
9 9 9 g nameg eager CR4&(+ h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-45.scm
;
" g
macro-typeg syntax-rulesg patternsg exp C5R"89L}?i
h ]) &
" 4 5 &
" 45 $ & C6$ Y4& " 455 &
" 4 5 &
" 45& " &
" 45 &
" 45 &
" 4 > " G &
" 45 & " 45 & " 4
> " G &
" 4 > " G 6C g promise
g content g key 8 g promise* g content g s g val ' g s A ` g val ` g filenamef srfi/srfi-45.scm
>
? ? ! @
8 @ F A b @ c B B C B D 4 D D F 7 F , E * H 9 A H - ` G I J g nameg force CR"89L}
h 0 - / 0 3 # # H &
" 4 5KJ& J
" 4J5 $ J& J " 4J56 $ J& J " 4J56C( g promise
g on-eager g on-lazy g content & g key ^ g filenamef srfi/srfi-45.scm
P
+ Q G R ^ R n S S
R T T
g on-eagerS g on-lazyS g nameg
promise-visit CRi"i h g ]L 6 _ g value
g filenamef srfi/srfi-45.scm
Y Z Z C h f ]L 6 ^ g proc
g filenamef srfi/srfi-45.scm
[ \ \ C h s ] O O 6 k g promise
g port g filenamef srfi/srfi-45.scm
W X C6 g m
0 g rtd
~ g rtd
Q z g filenamef srfi/srfi-45.scm "
1 ,
6 , > , & C ,
.
1
, 8
1 >
3 P
4 V
4
C6 PK ! 6 h srfi/srfi-64.gonu [ GOOF----LE-8-2.0 ] 4 hC ] g guile g define-module* g srfi g srfi-64 g filenameS
f srfi/srfi-64.scm g exportsS g
test-begin
g test-end g test-assert g test-eqv g test-eq g
test-equal g test-approximate g
test-error g
test-apply g test-with-runner g test-match-nth g test-match-all g test-match-any g test-match-name g test-skip g test-expect-fail g test-read-eval-string g test-runner-group-path g
test-group g test-group-with-cleanup g test-result-ref !g test-result-set! "g test-result-clear #g test-result-remove $g test-result-kind %g test-passed? &g test-log-to-file 'g test-runner? (g test-runner-reset )g test-runner-null *g test-runner-simple +g test-runner-current ,g test-runner-factory -g test-runner-get .g test-runner-create /g test-runner-test-name 0g test-runner-pass-count 1g test-runner-pass-count! 2g test-runner-fail-count 3g test-runner-fail-count! 4g test-runner-xpass-count 5g test-runner-xpass-count! 6g test-runner-xfail-count 7g test-runner-xfail-count! 8g test-runner-skip-count 9g test-runner-skip-count! :g test-runner-group-stack ;g test-runner-group-stack! <g test-runner-on-test-begin =g test-runner-on-test-begin! >g test-runner-on-test-end ?g test-runner-on-test-end! @g test-runner-on-group-begin Ag test-runner-on-group-begin! Bg test-runner-on-group-end Cg test-runner-on-group-end! Dg test-runner-on-final Eg test-runner-on-final! Fg test-runner-on-bad-count Gg test-runner-on-bad-count! Hg test-runner-on-bad-end-name Ig test-runner-on-bad-end-name! Jg test-result-alist Kg test-result-alist! Lg test-runner-aux-value Mg test-runner-aux-value! Ng test-on-group-begin-simple Og test-on-group-end-simple Pg test-on-bad-count-simple Qg test-on-bad-end-name-simple Rg test-on-final-simple Sg test-on-test-end-simple T
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSR J Ug set-current-module VU WU Xg cond-expand-provide Yg current-module Z [g process-use-modules \[ ][ ^g srfi-9 _^ `_ ag srfi-39 ba cb dg make-syntax-transformer ed fd gg %test-export hg macro ig $sc-dispatch ji ki lg any mll ng
syntax-object og if pg top qp rg ribcage sg dummy tg names ust vg m-46961e5187-6 wvp xwq yf l-46961e5187-b zf l-46961e5187-c {yz |rux{ }r ~g x ~ w f l-46961e5187-8 r q|} g hygiene no n g syntax-violation f -source expression failed to match any pattern g %test-record-define g each llll l l l g define-record-type g alloc g runner? g name g index g setter g getter s g m-46961e5187-11 p qqqqqq f l-46961e5187-16 f l-46961e5187-17 f l-46961e5187-18 f l-46961e5187-19 f l-46961e5187-1a f l-46961e5187-1b f l-46961e5187-1c r f l-46961e5187-13 r q} n g test-runner n g map g list g %%test-runner-alloc-procedure g %test-runner-alloc g _ g lambda g m-46961e5187-2b p f l-46961e5187-2d r g shift g proc-name g args qq f l-1e8ba8b5a-2ba f l-1e8ba8b5a-2bb r g key g value g formals g body qqqqq f l-1e8ba8b5a-2ad f l-1e8ba8b5a-2ae f l-1e8ba8b5a-2af f l-1e8ba8b5a-2b0 f l-1e8ba8b5a-2b1 r g make-procedure-name q f l-1e8ba8b5a-29d r q f l-1e8ba8b5a-29c r }}}}} ^ n g make-struct g m-46961e5187-29 p g t-1e8ba8b5a-38d g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b g m-1e8ba8b5a-38e p f l-1e8ba8b5a-392 f l-1e8ba8b5a-393 f l-1e8ba8b5a-394 r g ctor-args f l-1e8ba8b5a-37a r g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 r g form g type-name g constructor-spec g field-names qqqq f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e r
g
record-layout g functional-setters g setters
g copier g getters g constructor g getter-identifiers g field-identifiers
qqqqqqqq f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 r f l-1e8ba8b5a-334 r !}}}}}} "n! #g m-46961e5187-27 $#p %$}} &n% 'n
! (} )n( *"&')))))))))))))))))))))) +* ,+ -g each-any .- /_ 0_ 1f Wrong number of arguments 2g identifier? 3_2 4_2 5q} 6n5 7g record-type-vtable 8_7 9_7 :g ,pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw ;g default-record-printer <_; =_; >g
pass-count ?g
fail-count @g xpass-count Ag xfail-count Bg
skip-count Cg skip-list Dg fail-list Eg run-list Fg skip-save Gg fail-save Hg group-stack Ig
on-test-begin Jg on-test-end Kg on-group-begin Lg on-group-end Mg on-final Ng on-bad-count Og on-bad-end-name Pg total-count Qg
count-list Rg result-alist Sg aux-value T>?@ABCDEFGHIJKLMNOPQRS Ug set-struct-vtable-name! V_U W_U Xg vtable-offset-user Y_X Z_X [g %test-runner?-procedure \l ]g m-46961e5187-36 ^]p _g t-46961e5187-35 `_ a^ bf l-46961e5187-3b cb dr`ac ef l-46961e5187-38 fe graf h^d}g}}}}
inh jg obj kg t-1e8ba8b5a-47e lg t-1e8ba8b5a-478 mg t-1e8ba8b5a-479 ng t-1e8ba8b5a-47a og t-1e8ba8b5a-47d pg t-1e8ba8b5a-47c qg t-1e8ba8b5a-47b rklmnopq sg m-1e8ba8b5a-47f tsp uttttttt vf l-1e8ba8b5a-483 wf l-1e8ba8b5a-484 xf l-1e8ba8b5a-485 yf l-1e8ba8b5a-486 zf l-1e8ba8b5a-487 {f l-1e8ba8b5a-488 |f l-1e8ba8b5a-489 }vwxyz{| ~rru} g copier-id f l-1e8ba8b5a-476 r g ctor-name f l-1e8ba8b5a-46e r f l-1e8ba8b5a-46c r g layout f l-1e8ba8b5a-46a r g
immutable? f l-1e8ba8b5a-468 r g field-count f l-1e8ba8b5a-466 r g
getter-ids f l-1e8ba8b5a-463 r g field-ids f l-1e8ba8b5a-460 r g predicate-name g
field-spec qqqqqq f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 r d}g}~}}}}}}}}}}} nj g and n g struct? n g eq? n g
struct-vtable n $d}g} n i q}g n[ g throw-bad-struct _ _ g !%test-runner-pass-count-procedure g free-id g
%%on-error g m-46961e5187-42 p f l-46961e5187-44 r }}}}} n l g %%type g t-1e8ba8b5a-3a5 g t-1e8ba8b5a-3a6 g t-1e8ba8b5a-3a7 g t-1e8ba8b5a-3a8 g t-1e8ba8b5a-3a9 g t-1e8ba8b5a-3aa g t-1e8ba8b5a-3ab g m-1e8ba8b5a-3ac p f l-1e8ba8b5a-3b0 f l-1e8ba8b5a-3b1 f l-1e8ba8b5a-3b2 f l-1e8ba8b5a-3b3 f l-1e8ba8b5a-3b4 f l-1e8ba8b5a-3b5 f l-1e8ba8b5a-3b6 r f l-1e8ba8b5a-3a3 f l-1e8ba8b5a-3a4 r qqq f l-1e8ba8b5a-39e f l-1e8ba8b5a-39f f l-1e8ba8b5a-3a0 r }}}}}} n l g ck g err g s f l-46961e5187-47 f l-46961e5187-48 r }}}}}
n g quote n $}} n
g %%index
n
l f l-46961e5187-4c f l-46961e5187-4d r }}}}}
n n } n
g %%copier n l f l-46961e5187-51 f l-46961e5187-52 ! "r! #"}}}}}
$n# %n# &g %%test-runner-set-fields '$"}} (n&' )%( *) +g t-46961e5187-41 ,+ -f l-46961e5187-56 .- /r,. 0/}}}}}
1n0 2/}}}}}} 3n2 43 5no2 6n2 7n2 873 9$/}} :n9 ;68: <g
struct-ref =n<2 >/} ?n
> @=3? An2 Bn2 Cq/} Dn0C EBD FA3E G5;@F H14G Iq} JnI Kg !%test-runner-fail-count-procedure Lg m-46961e5187-5d MLp NM Of l-46961e5187-5f PO QrNP RM}Q}}}} SnR TS UTl V}Q}}}}} WnV XW YUXl ZMM [f l-46961e5187-62 \f l-46961e5187-63 ][\ ^rZ] _M^}Q}}}}
`n_ an_ b$^}Q} cnb dac ed fn V gf hUgl if l-46961e5187-67 jf l-46961e5187-68 kij lrZk mMl}Q}}}}
nnm onm pl}Q qn p roq sr tnV ut vUul wf l-46961e5187-6c xf l-46961e5187-6d ywx zrZy {Mz}Q}}}}
|n{ }n{ ~$z}Q} n&~ } g t-46961e5187-5c f l-46961e5187-71 rN M}Q}}}}
n }Q}}}}} n no n n $}Q} n n< }Q n n n q}Q n2 q}Q nK g "%test-runner-xpass-count-procedure g m-46961e5187-78 p f l-46961e5187-7a r }}}}} n l }}}}}} n l f l-46961e5187-7d f l-46961e5187-7e r }}}}}
n n $}} n n l f l-46961e5187-82 f l-46961e5187-83 r }}}}}
n n } n n l f l-46961e5187-87 f l-46961e5187-88 r }}}}}
n n $}} n& g t-46961e5187-77 f l-46961e5187-8c r }}}}}
n }}}}}} n no n n $}} n n< } n n n q} n4 q} n g "%test-runner-xfail-count-procedure g m-46961e5187-93 p f l-46961e5187-95 r }}}}} n l }}}}}} n l f l-46961e5187-98 f l-46961e5187-99
r
}}}}}
n
n $
}} n
n l f l-46961e5187-9d f l-46961e5187-9e r }}}}}
n n } n n ! "!l #f l-46961e5187-a2 $f l-46961e5187-a3 %#$ &r% '&}}}}}
(n' )n' *$&}} +n&* ,)+ -, .g t-46961e5187-92 /. 0f l-46961e5187-a7 10 2r/1 32}}}}}
4n3 52}}}}}} 6n5 76 8no5 9n5 :n5 ;:6 <$2}} =n< >9;= ?n<5 @2} An @ B?6A Cn5 Dn5 Eq2} Fn6E GDF HC6G I8>BH J47I Kq} LnK Mg !%test-runner-skip-count-procedure Ng m-46961e5187-ae ONp PO Qf l-46961e5187-b0 RQ SrPR TO}S}}}} UnT VU WVl X}S}}}}} YnX ZY [WZl \OO ]f l-46961e5187-b3 ^f l-46961e5187-b4 _]^ `r\_ aO`}S}}}}
bna cna d$`}S} end fce gf hn X ih jWil kf l-46961e5187-b8 lf l-46961e5187-b9 mkl nr\m oOn}S}}}}
pno qno rn}S sn r tqs ut vnX wv xWwl yf l-46961e5187-bd zf l-46961e5187-be {yz |r\{ }O|}S}}}}
~n} n} $|}S} n& g t-46961e5187-ad f l-46961e5187-c2 rP O}S}}}}
n }S}}}}} n no n n $}S} n n< }S n n n q}S n8 q}S nM g %test-runner-skip-list g !%%test-runner-skip-list-procedure g m-46961e5187-c9 p f l-46961e5187-cb r }}}}} n l }}}}}} n l f l-46961e5187-ce f l-46961e5187-cf r }}}}}
n n $}} n n l f l-46961e5187-d3 f l-46961e5187-d4 r }}}}}
n n } n n l f l-46961e5187-d8 f l-46961e5187-d9 r }}}}}
n n $}} n& g t-46961e5187-c8 f l-46961e5187-dd r }}}}}
n }}}}}} n no n n $}} n n< } n n n q} n q} n g %test-runner-fail-list g !%%test-runner-fail-list-procedure g m-46961e5187-e4 p f l-46961e5187-e6 r }}}}} n l }}}}}} n l
f l-46961e5187-e9 f l-46961e5187-ea
r
}}}}}
n n $}} n n l f l-46961e5187-ee f l-46961e5187-ef r
}}}}}
n n } !n " ! #" $n %$ &%l 'f l-46961e5187-f3 (f l-46961e5187-f4 )'( *r
) +*}}}}}
,n+ -n+ .$*}} /n&. 0-/ 10 2g t-46961e5187-e3 32 4f l-46961e5187-f8 54 6r35 76}}}}}
8n7 96}}}}}} :n9 ;: <no9 =n9 >n9 ?>: @$6}} An@ B=?A Cn<9 D6} En D FC:E Gn9 Hn9 Iq6} JnI KHJ LG:K M<BFL N8;M Oq} PnO Qg %test-runner-run-list Rg %%test-runner-run-list-procedure Sg m-46961e5187-ff TSp UT Vf l-46961e5187-101 WV XrUW YT}X}}}} ZnY [Z \[l ]}X}}}}} ^n] _^ `\_l aTT bf l-46961e5187-104 cf l-46961e5187-105 dbc erad fTe}X}}}}
gnf hnf i$e}X} jni khj lk mn ] nm o\nl pf l-46961e5187-109 qf l-46961e5187-10a rpq srar tTs}X}}}}
unt vnt ws}X xn w yvx zy {n] |{ }\|l ~f l-46961e5187-10e f l-46961e5187-10f ~ ra T}X}}}}
n n $}X} n& g t-46961e5187-fe f l-46961e5187-113 rU T}X}}}}
n }X}}}}} n no n n $}X} n n< }X n n n q}X nQ q}X nR g %test-runner-skip-save g !%%test-runner-skip-save-procedure g m-46961e5187-11a p f l-46961e5187-11c r }}}}} n l }}}}}} n l f l-46961e5187-11f f l-46961e5187-120 r }}}}}
n n $}} n n l f l-46961e5187-124 f l-46961e5187-125 r }}}}}
n n } n n l f l-46961e5187-129 f l-46961e5187-12a r }}}}}
n n $}} n& g t-46961e5187-119 f l-46961e5187-12e r }}}}}
n }}}}}} n no n n $}} n n< } n n n q} n q} n g %test-runner-fail-save g !%%test-runner-fail-save-procedure g m-46961e5187-135 p f l-46961e5187-137 r }}}}} n
l }}}}}} n
l f l-46961e5187-13a f l-46961e5187-13b r }}}}}
n n $}} n n
l f l-46961e5187-13f f l-46961e5187-140 !r "!}}}}}
#n" $n" %!} &n % '$& (' )n *) +
*l ,f l-46961e5187-144 -f l-46961e5187-145 .,- /r. 0/}}}}}
1n0 2n0 3$/}} 4n&3 524 65 7g t-46961e5187-134 87 9f l-46961e5187-149 :9 ;r8: <;}}}}}
=n< >;}}}}}} ?n> @? Ano> Bn> Cn> DC? E$;}} FnE GBDF Hn<> I;} Jn I KH?J Ln> Mn> Nq;} OnN PMO QL?P RAGKQ S=@R Tq} Un T Vg "%test-runner-group-stack-procedure Wg m-46961e5187-150 XWp YX Zf l-46961e5187-152 [Z \rY[ ]X}\}}}} ^n] _^ `_l a}\}}}}} bna cb d`cl eXX ff l-46961e5187-155 gf l-46961e5187-156 hfg ireh jXi}\}}}}
knj lnj m$i}\} nnm oln po qn a rq s`rl tf l-46961e5187-15a uf l-46961e5187-15b vtu wrev xXw}\}}}}
ynx znx {w}\ |n
{ }z| ~} na `l f l-46961e5187-15f f l-46961e5187-160 re X}\}}}}
n n $}\} n& g t-46961e5187-14f f l-46961e5187-164 rY X}\}}}}
n }\}}}}} n no n n $}\} n n< }\ n
n n q}\ n: q}\ nV g $%test-runner-on-test-begin-procedure g m-46961e5187-16b p f l-46961e5187-16d r }}}}} n l }}}}}} n l f l-46961e5187-170 f l-46961e5187-171 r }}}}}
n n $}} n n l f l-46961e5187-175 f l-46961e5187-176 r }}}}}
n n } n n l f l-46961e5187-17a f l-46961e5187-17b r }}}}}
n n $}} n& g t-46961e5187-16a f l-46961e5187-17f r }}}}}
n }}}}}} n no n n $}} n n< } n n n q} n< q} n g "%test-runner-on-test-end-procedure g m-46961e5187-186 p f l-46961e5187-188 r }}}}}
n
l
}}}}}} n
l f l-46961e5187-18b f l-46961e5187-18c r }}}}}
n n $}} n n
l f l-46961e5187-190 !f l-46961e5187-191 " ! #r" $#}}}}}
%n$ &n$ '#} (n ' )&( *) +n
,+ - ,l .f l-46961e5187-195 /f l-46961e5187-196 0./ 1r0 21}}}}}
3n2 4n2 5$1}} 6n&5 746 87 9g t-46961e5187-185 :9 ;f l-46961e5187-19a <; =r:< >=}}}}}
?n> @=}}}}}} An@ BA Cno@ Dn@ En@ FEA G$=}} HnG IDFH Jn<@ K=} Ln K MJAL Nn@ On@ Pq=} Qn>P ROQ SNAR TCIMS U?BT Vq} WnV Xg %%test-runner-on-group-begin-procedure Yg m-46961e5187-1a1 ZYp [Z \f l-46961e5187-1a3 ]\ ^r[] _Z}^}}}} `n_ a` bal c}^}}}}} dnc ed fbel gZZ hf l-46961e5187-1a6 if l-46961e5187-1a7 jhi krgj lZk}^}}}}
mnl nnl o$k}^} pno qnp rq sn c ts ubtl vf l-46961e5187-1ab wf l-46961e5187-1ac xvw yrgx zZy}^}}}}
{nz |nz }y}^ ~n
} |~ nc bl f l-46961e5187-1b0 f l-46961e5187-1b1 rg Z}^}}}}
n n $}^} n& g t-46961e5187-1a0 f l-46961e5187-1b5 r[ Z}^}}}}
n }^}}}}} n no n n $}^} n n< }^ n
n n q}^ n@ q}^ nX g #%test-runner-on-group-end-procedure g m-46961e5187-1bc p f l-46961e5187-1be r }}}}} n l }}}}}} n l f l-46961e5187-1c1 f l-46961e5187-1c2 r }}}}}
n n $}} n n l f l-46961e5187-1c6 f l-46961e5187-1c7 r }}}}}
n n } n n l f l-46961e5187-1cb f l-46961e5187-1cc r }}}}}
n n $}} n& g t-46961e5187-1bb f l-46961e5187-1d0 r }}}}}
n }}}}}} n no n n $}} n n< } n n n q} nB q} n g %test-runner-on-final-procedure g m-46961e5187-1d7 p f l-46961e5187-1d9
r }
}}}} n
l }
}}}}} n l f l-46961e5187-1dc f l-46961e5187-1dd r }
}}}}
n n $}
} n n ! l "f l-46961e5187-1e1 #f l-46961e5187-1e2 $"# %r$ &%}
}}}}
'n& (n& )%}
*n ) +(* ,+ -n .- /.l 0f l-46961e5187-1e6 1f l-46961e5187-1e7 201 3r2 43}
}}}}
5n4 6n4 7$3}
} 8n&7 968 :9 ;g t-46961e5187-1d6 <; =f l-46961e5187-1eb >= ?r<> @?}
}}}}
An@ B?}
}}}}} CnB DC EnoB FnB GnB HGC I$?}
} JnI KFHJ Ln<B M?}
Nn M OLCN PnB QnB Rq?}
SnDR TQS UPCT VEKOU WADV Xq}
YnX Zg #%test-runner-on-bad-count-procedure [g m-46961e5187-1f2 \[p ]\ ^f l-46961e5187-1f4 _^ `r]_ a\}`}}}} bna cb dcl e}`}}}}} fne gf hdgl i\\ jf l-46961e5187-1f7 kf l-46961e5187-1f8 ljk mril n\m}`}}}}
onn pnn q$m}`} rnq spr ts un e vu wdvl xf l-46961e5187-1fc yf l-46961e5187-1fd zxy {riz |\{}`}}}}
}n| ~n| {}` n ~ ne dl f l-46961e5187-201 f l-46961e5187-202 ri \}`}}}}
n n $}`} n& g t-46961e5187-1f1 f l-46961e5187-206 r] \}`}}}}
n }`}}}}} n no n n $}`} n n< }` n n n q}` nF q}` nZ g &%test-runner-on-bad-end-name-procedure g m-46961e5187-20d p f l-46961e5187-20f r }}}}} n l }}}}}} n l f l-46961e5187-212 f l-46961e5187-213 r }}}}}
n n $}} n n l f l-46961e5187-217 f l-46961e5187-218 r }}}}}
n n } n n l f l-46961e5187-21c f l-46961e5187-21d r }}}}}
n n $}} n& g t-46961e5187-20c f l-46961e5187-221 r }}}}}
n }}}}}} n no n n $}} n n< } n n n q} nH q} n g %test-runner-total-count g #%%test-runner-total-count-procedure g m-46961e5187-228 p
f l-46961e5187-22a
r
}
}}}} n l }
}}}}} n l f l-46961e5187-22d f l-46961e5187-22e r }
}}}}
n n $}
} n ! "n #" $#l %f l-46961e5187-232 &f l-46961e5187-233 '%& (r' ) (}
}}}}
*n) +n) ,(}
-n , .+- /. 0n 10 21l 3f l-46961e5187-237 4f l-46961e5187-238 534 6r5 7 6}
}}}}
8n7 9n7 :$6}
} ;n&: <9; =< >g t-46961e5187-227 ?> @f l-46961e5187-23c A@ Br?
A C B}
}}}}
DnC EB}
}}}}} FnE GF HnoE InE JnE KJF L$B}
} MnL NIKM On<E PB}
Qn P ROFQ SnE TnE UqB}
VnU WTV XSFW YHNRX ZDGY [q}
\n[ ]g %test-runner-count-list ^g "%%test-runner-count-list-procedure _g m-46961e5187-243 `_p a` bf l-46961e5187-245 cb drac e`}d}}}} fne gf hgl i}d}}}}} jni kj lhkl m`` nf l-46961e5187-248 of l-46961e5187-249 pno qrmp r`q}d}}}}
snr tnr u$q}d} vnu wtv xw yn i zy {hzl |f l-46961e5187-24d }f l-46961e5187-24e ~|} rm~ `}d}}}}
n n }d n ni hl f l-46961e5187-252 f l-46961e5187-253 rm `}d}}}}
n n $}d} n& g t-46961e5187-242 f l-46961e5187-257 ra `}d}}}}
n }d}}}}} n no n n $}d} n n< }d n n n q}d n] q}d n^ g %test-result-alist-procedure g m-46961e5187-25e p f l-46961e5187-260 r }}}}} n l }}}}}} n l f l-46961e5187-263 f l-46961e5187-264 r }}}}}
n n $}} n n l f l-46961e5187-268 f l-46961e5187-269 r }}}}}
n n } n n l f l-46961e5187-26d f l-46961e5187-26e r }}}}}
n n $}} n& g t-46961e5187-25d f l-46961e5187-272 r }}}}}
n }}}}}} n no n n $}} n n< } n n n q} nJ q} n
g %test-runner-aux-value-procedure g m-46961e5187-279 p
f l-46961e5187-27b r
} }}}} n l } }}}}} n l f l-46961e5187-27e f l-46961e5187-27f r } }}}}
n n !$ } } "n ! # " $ # %n & % ' &l (f l-46961e5187-283 )f l-46961e5187-284 * ( ) +r * , +} }}}}
-n , .n , / +} 0n / 1 . 0 2 1 3n 4 3 5 4l 6f l-46961e5187-288 7f l-46961e5187-289 8 6 7 9r 8 : 9} }}}}
;n : <n : =$ 9} } >n& = ? < > @ ? Ag t-46961e5187-278 B A Cf l-46961e5187-28d D C Er B
D F E} }}}}
Gn F H E} }}}}} In H J I Kno H Ln H Mn H N M I O$ E} } Pn O Q L N P Rn< H S E} Tn S U R I T Vn H Wn H Xq E} YnL X Z W Y [ V I Z \ K Q U [ ] G J \ ^q} _n
^ `ll a ` bl a cl b dl c eg %%set-fields fg check? gg expr hs f g ig m-46961e5187-294 j ip k j lf l-46961e5187-299 mf l-46961e5187-29a nf l-46961e5187-29b of l-46961e5187-29c pf l-46961e5187-29d q l m n o p rr h k q s j tf l-46961e5187-296 u t vr s u wg t-1e8ba8b5a-3c4 xg t-1e8ba8b5a-3c6 yg t-1e8ba8b5a-3c5 z w x y {g m-1e8ba8b5a-3c7 | {p } | | | ~f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd ~ r z } f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 r r} v} }}}
n e $ r} v} n q r} v n0 n2 n4 n6 n8 n n nQ n n n: n< n> n@ nB nD nF nH n n] nJ nL g "%test-runner-pass-count!-procedure ll g m-46961e5187-2a8 p g t-46961e5187-2a6 g t-46961e5187-2a7 f l-46961e5187-2ad f l-46961e5187-2ae r f l-46961e5187-2aa r } }}}}
n g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 p f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed r f l-1e8ba8b5a-3e0 f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2 r f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 r g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 r } } } } n g val n no n n $ } } n g struct-set! n } n
n n q } n1 q} n g "%test-runner-fail-count!-procedure g m-46961e5187-2b8 p g t-46961e5187-2b6 g t-46961e5187-2b7 f l-46961e5187-2bd f l-46961e5187-2be r f l-46961e5187-2ba r } }}}}
n } } } } n n
no
n
n
$ } }
n
n
}
n
n
n
q }
n3
q}
n
g #%test-runner-xpass-count!-procedure
g m-46961e5187-2c8
p
g t-46961e5187-2c6
g t-46961e5187-2c7
f l-46961e5187-2cd
f l-46961e5187-2ce
r
!
"f l-46961e5187-2ca
#
"
$r
!
#
%
}
$}}}}
&n
%
'
}
$} } }
(n
'
)n
'
*
(
)
+no
'
,n
'
-n
'
.
-
(
/$
}
$}
0n
/
1
,
.
0
2n
'
3
}
$
4n
3
5
2
(
4
)
6n
'
7n
'
8q
}
$
9n5
8
:
7
9
;
6
(
:
<
+
1
5
;
=
&
*
<
>q}
$
?n
>
@g #%test-runner-xfail-count!-procedure
Ag m-46961e5187-2d8
B
Ap
Cg t-46961e5187-2d6
Dg t-46961e5187-2d7
E
C
D
F
B
B
Gf l-46961e5187-2dd
Hf l-46961e5187-2de
I
G
H
Jr
E
F
I
K
B
Lf l-46961e5187-2da
M
L
Nr
K
M
O
B
J}
N}}}}
Pn
O
Q
J}
N} } }
Rn
Q
Sn
Q
T
R
S
Uno
Q
Vn
Q
Wn
Q
X
W
R
Y$
J}
N}
Zn
Y
[
V
X
Z
\n
Q
]
J}
N
^n
]
_
\
R
^
S
`n
Q
an
Q
bq
J}
N
cn7
b
d
a
c
e
`
R
d
f
U
[
_
e
g
P
T
f
hq}
N
in
@
h
jg "%test-runner-skip-count!-procedure
kg m-46961e5187-2e8
l
kp
mg t-46961e5187-2e6
ng t-46961e5187-2e7
o
m
n
p
l
l
qf l-46961e5187-2ed
rf l-46961e5187-2ee
s
q
r
tr
o
p
s
u
l
vf l-46961e5187-2ea
w
v
xr
u
w
y
l
t}
x}}}}
zn
y
{
t}
x} } }
|n
{
}n
{
~
|
}
no
{
n
{
n
{
|
$
t}
x}
n
n
{
t}
x
n
|
}
n
{
n
{
q
t}
x
n9
|
z
~
q}
x
n
j
g %test-runner-skip-list!
g "%%test-runner-skip-list!-procedure
g m-46961e5187-2f8
p
g t-46961e5187-2f6
g t-46961e5187-2f7
f l-46961e5187-2fd
f l-46961e5187-2fe
r
f l-46961e5187-2fa
r
}
}}}}
n
}
} } }
n
n
no
n
n
$
}
}
n
n
}
n
n
n
q
}
n
q}
n
g %test-runner-fail-list!
g "%%test-runner-fail-list!-procedure
g m-46961e5187-308
p
g t-46961e5187-306
g t-46961e5187-307
f l-46961e5187-30d
f l-46961e5187-30e
r
f l-46961e5187-30a
r
}
}}}}
n
}
} } }
n
n
no
n
n
$
}
}
n
n
}
n
n
n
q
}
n
q}
n
g %test-runner-run-list!
g !%%test-runner-run-list!-procedure
g m-46961e5187-318
p
g t-46961e5187-316
g t-46961e5187-317
f l-46961e5187-31d
f l-46961e5187-31e
r
f l-46961e5187-31a
r
}
}}}}
n
}
} } }
n
n
no
n
n
$
}
} n n
}
n
n
n
q
}
n
q}
n
g %test-runner-skip-save! g "%%test-runner-skip-save!-procedure g m-46961e5187-328 p g t-46961e5187-326 g t-46961e5187-327 f l-46961e5187-32d f l-46961e5187-32e r ! "f l-46961e5187-32a # " $r ! # % } $}}}}
&n % ' } $} } } (n ' )n ' * ( ) +no ' ,n ' -n ' . - ( /$ } $} 0n / 1 , . 0 2n ' 3 } $ 4n 3 5 2 ( 4 ) 6n ' 7n ' 8q } $ 9n 8 : 7 9 ; 6 ( : < + 1 5 ; = & * < >q} $ ?n > @g %test-runner-fail-save! Ag "%%test-runner-fail-save!-procedure Bg m-46961e5187-338 C Bp Dg t-46961e5187-336 Eg t-46961e5187-337 F D E G C C Hf l-46961e5187-33d If l-46961e5187-33e J H I Kr F G J L C Mf l-46961e5187-33a N M Or L N P C K} O}}}}
Qn P R K} O} } } Sn R Tn R U S T Vno R Wn R Xn R Y X S Z$ K} O} [n Z \ W Y [ ]n R ^ K} O _n ^ ` ] S _ T an R bn R cq K} O dn @ c e b d f a S e g V \ ` f h Q U g iq} O jn A i kg #%test-runner-group-stack!-procedure lg m-46961e5187-348 m lp ng t-46961e5187-346 og t-46961e5187-347 p n o q m m rf l-46961e5187-34d sf l-46961e5187-34e t r s ur p q t v m wf l-46961e5187-34a x w yr v x z m u} y}}}}
{n z | u} y} } } }n | ~n | } ~ no | n | n | } $ u} y} n n | u} y n
} ~ n | n | q u} y n; } { q} y n k g %%test-runner-on-test-begin!-procedure g m-46961e5187-358 p g t-46961e5187-356 g t-46961e5187-357 f l-46961e5187-35d f l-46961e5187-35e r f l-46961e5187-35a r } }}}}
n } } } } n n no n n $ } } n n } n n n q } n= q} n g #%test-runner-on-test-end!-procedure g m-46961e5187-368 p g t-46961e5187-366 g t-46961e5187-367 f l-46961e5187-36d f l-46961e5187-36e r f l-46961e5187-36a r } }}}}
n } } } } n n no n n $ } } n n } n n n q } n? q} n g &%test-runner-on-group-begin!-procedure g m-46961e5187-378 p g t-46961e5187-376 g t-46961e5187-377 f l-46961e5187-37d f l-46961e5187-37e r f l-46961e5187-37a r } }}}}
n } } } } n n no n n $ } } n n } n
n
n q } nA
q} n g $%test-runner-on-group-end!-procedure g m-46961e5187-388 p g t-46961e5187-386 g t-46961e5187-387 f l-46961e5187-38d f l-46961e5187-38e r f l-46961e5187-38a !r " } !}}}}
#n " $ } !} } } %n $ &n $ ' % & (no $ )n $ *n $ + * % ,$ } !} -n , . ) + - /n $ 0 } ! 1n 0 2 / % 1 & 3n $ 4n $ 5q } ! 6nC 5 7 4 6 8 3 % 7 9 ( . 2 8 : # ' 9 ;q} ! <n ; =g %test-runner-on-final!-procedure >g m-46961e5187-398 ? >p @g t-46961e5187-396 Ag t-46961e5187-397 B @ A C ? ? Df l-46961e5187-39d Ef l-46961e5187-39e F D E Gr B C F H ? If l-46961e5187-39a J I Kr H J L ? G} K}}}}
Mn L N G} K} } } On N Pn N Q O P Rno N Sn N Tn N U T O V$ G} K} Wn V X S U W Yn N Z G} K [n Z \ Y O [ P ]n N ^n N _q G} K `nE _ a ^ ` b ] O a c R X \ b d M Q c eq} K fn = e gg $%test-runner-on-bad-count!-procedure hg m-46961e5187-3a8 i hp jg t-46961e5187-3a6 kg t-46961e5187-3a7 l j k m i i nf l-46961e5187-3ad of l-46961e5187-3ae p n o qr l m p r i sf l-46961e5187-3aa t s ur r t v i q} u}}}}
wn v x q} u} } } yn x zn x { y z |no x }n x ~n x ~ y $ q} u} n } n x q} u n y z n x n x q q} u nG y | w { q} u n g g '%test-runner-on-bad-end-name!-procedure g m-46961e5187-3b8 p g t-46961e5187-3b6 g t-46961e5187-3b7 f l-46961e5187-3bd f l-46961e5187-3be r f l-46961e5187-3ba r } }}}}
n } } } } n n no n n $ } } n n } n n n q } nI q} n g %test-runner-total-count! g $%%test-runner-total-count!-procedure g m-46961e5187-3c8 p g t-46961e5187-3c6 g t-46961e5187-3c7 f l-46961e5187-3cd f l-46961e5187-3ce r f l-46961e5187-3ca r } }}}}
n } } } } n n no n n $ } } n n } n n n q } n q} n g %test-runner-count-list! g #%%test-runner-count-list!-procedure g m-46961e5187-3d8 p g t-46961e5187-3d6 g t-46961e5187-3d7 f l-46961e5187-3dd f l-46961e5187-3de r f l-46961e5187-3da r } }}}}
n } } } } n n no n n
$ } }
n
n
}
n
n
n
q }
n
q}
n
g %test-result-alist!-procedure
g m-46961e5187-3e8
p
g t-46961e5187-3e6
g t-46961e5187-3e7
f l-46961e5187-3ed
f l-46961e5187-3ee
r
f l-46961e5187-3ea
r
}
}}}}
!n
"
}
} } }
#n
"
$n
"
%
#
$
&no
"
'n
"
(n
"
)
(
#
*$
}
}
+n
*
,
'
)
+
-n
"
.
}
/n
.
0
-
#
/
$
1n
"
2n
"
3q
}
4nK
3
5
2
4
6
1
#
5
7
&
,
0
6
8
!
%
7
9q}
:n
9
;g !%test-runner-aux-value!-procedure
<g m-46961e5187-3f8
=
<p
>g t-46961e5187-3f6
?g t-46961e5187-3f7
@
>
?
A
=
=
Bf l-46961e5187-3fd
Cf l-46961e5187-3fe
D
B
C
Er
@
A
D
F
=
Gf l-46961e5187-3fa
H
G
Ir
F
H
J
=
E}
I}}}}
Kn
J
L
E}
I} } }
Mn
L
Nn
L
O
M
N
Pno
L
Qn
L
Rn
L
S
R
M
T$
E}
I}
Un
T
V
Q
S
U
Wn
L
X
E}
I
Yn
X
Z
W
M
Y
N
[n
L
\n
L
]q
E}
I
^nM
]
_
\
^
`
[
M
_
a
P
V
Z
`
b
K
O
a
cq}
I
dn
;
c
eg reverse
fg %test-null-callback
gg test-on-test-begin-simple
hg make-parameter
ig error
jf 1test-runner not initialized - test-begin missing?
kg %test-specifier-matches
lg %test-any-specifier-matches
mg result-kind
ng skip
og xfail
pg %test-should-execute
qg %test-begin
rg
suite-name
ss
r
tg m-46961e5187-407
u
tp
v
uq
wf l-46961e5187-40c
xf l-46961e5187-40d
y
w
x
zr
s
v
y
{
u
|f l-46961e5187-409
}
|
~r
{
}
q
z}
~
n
q
n
lll
g count
s
r
uqq
f l-46961e5187-411
f l-46961e5187-412
f l-46961e5187-413
r
q
}
~
n
q
g display
f %%%% Starting test
g string?
g
string-append
f .log
g open-output-file
g newline
f (Writing full log to "
f ")
g output-port?
f
Group begin:
f Group end:
f *** Total number of tests was
f but should be
f . ***
f <*** Discrepancy indicates testsuite error or exceptions. ***
g %test-on-bad-count-write
g current-output-port
g %test-format-line
f test-end
f does not match test-begin
g %test-final-report1
f # of expected passes
f # of expected failures
f # of unexpected successes
f # of unexpected failures
f # of skipped tests
g %test-final-report-simple
g assq
g source-file
g source-line
f
f :
g number->string
f :
f test-end not in a group
g %test-end
lm
g let
s
r
g m-46961e5187-417
p
qq
f l-46961e5187-41c
f l-46961e5187-41d
f l-46961e5187-41e
r
f l-46961e5187-419
r
q
}
n
g r
n
n+
nK
n
g cons
n
n
g test-name
n
no
n
p
g dynamic-wind
n
n
n
n
g cleanup-form
s
r
g m-46961e5187-422
p
qqq
f l-46961e5187-427
f l-46961e5187-428
f l-46961e5187-429
f l-46961e5187-42a
r
f l-46961e5187-424
r
q
}
n
n
n
n
s
r
qq
f l-46961e5187-430
f l-46961e5187-431
f l-46961e5187-432
r
q
}
n
n
l
l
l
g form1
g form2
g form3
g rest s
r
qqqqq f l-46961e5187-437 f l-46961e5187-438 f l-46961e5187-439 f l-46961e5187-43a f l-46961e5187-43b f l-46961e5187-43c r
q }
n
g begin
n
g source-form f Test begin: g %test-write-result1 g runner g pname s g m-46961e5187-443 p qq f l-46961e5187-448 f l-46961e5187-449 f l-46961e5187-44a r f l-46961e5187-445 r q} !n "n #" $g default %s$ &qqq 'f l-46961e5187-44f (f l-46961e5187-450 )f l-46961e5187-451 *f l-46961e5187-452 +'()* ,r%&+ -q,} .n
- /g p 0n/- 1n
- 2nJ- 3no- 4g cdr 5n4- 650 7g fail 8g xpass 9f XPASS :f FAIL ;f <f Test end: =g memq >
?f @g write Ag pass BA8 Cg %test-report-result Dg %test-evaluate-with-catch Eg catch Fg test-expression GsF Hg m-46961e5187-458 IHp JIq Kf l-46961e5187-45d Lf l-46961e5187-45e MKL NrGJM OI Pf l-46961e5187-45a QP RrOQ SqN}R TnES UnS VnS WnS XnS YWX Zn!S [n+S \[ ]nS ^g actual-error _n^S `]_ an
S baWX cZ\`b dnS eVYcd fe gg
syntax-source hg assq-ref ig filename jg line kg
datum->syntax lg here mg
line-alist nm of l-46961e5187-5eb po qrnp rg
file-alist sr tf l-46961e5187-5e8 ut vrsu wj xf l-46961e5187-5e4 yx zrwy {g file |{ }f l-46961e5187-5e0 ~} r|~ g src-props f l-46961e5187-5de r f l-46961e5187-5dc r q}}q}v}z}}}} nl g
syntax->datum g append g %test-source-line2 g %test-on-test-begin g %test-on-test-end g %test-comp2body lllll g comp g expected s
g g m-46961e5187-462 p qqqq f l-46961e5187-467 f l-46961e5187-468 f l-46961e5187-469 f l-46961e5187-46a f l-46961e5187-46b r f l-46961e5187-464 r q} n
no n g exp n n! n g expected-value n g res n nD g actual-value n n nC g real-part g imag-part g %test-approximate= g %test-comp1body s
g g m-46961e5187-471 p qq f l-46961e5187-476 f l-46961e5187-477 f l-46961e5187-478 r f l-46961e5187-473 r q} n
no n n nD n! n n n nC f l-46961e5187-47e r q} n `l g mac
rj f l-46961e5187-481 f l-46961e5187-482 f l-46961e5187-483 r q} n
l l j f l-46961e5187-488 f l-46961e5187-489 r q} n
n f l-46961e5187-48d r q} n
l g let* g tname gj f l-46961e5187-490 f l-46961e5187-491 f l-46961e5187-492 f l-46961e5187-493 r q} n n
n-
n
nK n
n n
n gj f l-46961e5187-499 f l-46961e5187-49a f l-46961e5187-49b r q} n n
n- nK !n "~ #f l-46961e5187-58e $f l-46961e5187-58f %#$ &r"% 'q}& (n' )ll * gj +f l-46961e5187-592 ,f l-46961e5187-593 -f l-46961e5187-594 .f l-46961e5187-595 /f l-46961e5187-596 0f l-46961e5187-597 1+,-./0 2r*1 3q2}& 4n3 5n
3 6n-3 76 857 9n3 :nK3 ;n
3 <n3 =n
3 ><= ?n3 @
ll A gj Bf l-46961e5187-59f Cf l-46961e5187-5a0 Df l-46961e5187-5a1 Ef l-46961e5187-5a2 Ff l-46961e5187-5a3 GBCDEF HrAG IqH}& JnI Kn
I Ln-I ML NKM ON PnKI QnI Rg %test-comp2 Sg eqv? Tf l-46961e5187-4a0 UT VrU Wq}V XnSW Yf l-46961e5187-4a2 ZY [rZ \q}[ ]n\ ^g equal? _f l-46961e5187-4a4 `_ ar` bq}a cn^b df l-46961e5187-4a6 ed fre gq}f hng il j g
ij kf l-46961e5187-4a9 lf l-46961e5187-4aa mf l-46961e5187-4ab nf l-46961e5187-4ac of l-46961e5187-4ad pf l-46961e5187-4ae qklmnop rrjq sqr}f tns un
s vn-s wv xuw yns znKs {n
s |ns }n
s ~|} ns ns l g
ij f l-46961e5187-4b6 f l-46961e5187-4b7 f l-46961e5187-4b8 f l-46961e5187-4b9 f l-46961e5187-4ba r q}f n n
n- nK n n g %test-error g cond g etype s
g g m-46961e5187-4c1 p qqq f l-46961e5187-4c6 f l-46961e5187-4c7 f l-46961e5187-4c8 f l-46961e5187-4c9 r f l-46961e5187-4c3 r q} n n n
g et n n! n g expected-error n n nE n n n n n n n^ n
nC f l-46961e5187-4d0 r q} n gj f l-46961e5187-4d3 f l-46961e5187-4d4 f l-46961e5187-4d5 f l-46961e5187-4d6 f l-46961e5187-4d7 r q} n n
n- n nK n
n n
n gj f l-46961e5187-4de f l-46961e5187-4df f l-46961e5187-4e0 f l-46961e5187-4e1 r q} n n
n- nK n f l-46961e5187-4e7 f l-46961e5187-4e8 f l-46961e5187-4e9 r q} n n
n- nK n n g apply l- l s g m-46961e5187-4ed p qq f l-46961e5187-4f2 f l-46961e5187-4f3 f l-46961e5187-4f4 r
f l-46961e5187-4ef
r
q }
n
g saved-runner n n+ n
n g %test-match-nth g n s g m-46961e5187-4f9 p q !f l-46961e5187-4fe "f l-46961e5187-4ff #!" $r # % &f l-46961e5187-4fb '& (r%' )q$}( *n) +n ) ,+ -s
. qq /f l-46961e5187-503 0f l-46961e5187-504 1f l-46961e5187-505 2/01 3r-.2 4q3}( 5n4 6g %test-match-all 7g pred 8s7 9g m-46961e5187-509 :9p ;:q <f l-46961e5187-50e =f l-46961e5187-50f ><= ?r8;> @: Af l-46961e5187-50b BA Cr@B Dq?}C En6D Fg %test-as-specifier GnFD Hg %test-match-any Ig m-46961e5187-513 JIp KJq Lf l-46961e5187-518 Mf l-46961e5187-519 NLM Or8KN PJ Qf l-46961e5187-515 RQ SrPR TqO}S UnHT VnFT Wg
procedure? Xg integer? Yf not a valid test specifier Zg m-46961e5187-51d [Zp \[q ]f l-46961e5187-522 ^f l-46961e5187-523 _]^ `r8\_ a[ bf l-46961e5187-51f cb drac eq`}d fn
e gne hn-e ih jgi kj ln
e mn
e nne onFe pne qpg rq sg m-46961e5187-527 tsp utq vf l-46961e5187-52c wf l-46961e5187-52d xvw yr8ux zt {f l-46961e5187-529 |{ }rz| ~qy}} n
~ n~ n-~ n
~ n
~ n~ nF~ n~ g open-input-string g read g eof-object? g read-char g eval f (not at eof)C 5 h(X ]4
T5 4W > " G 4Xi4Yi5 Z> " G 4]`c > " G 4fghkm h @ ]C 8 g dummy
g names C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
; " g
macro-typeg syntax-rulesg patternsg names C5gR4fhk h ] 45C g dummy
g alloc g runner? g name g index g setter g getter C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
g " g
macro-typeg syntax-rulesg patternsg allocg runner?g nameg indexg setterg getter g ... C5R h u ] C m g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-alloc-procedure CR4fhk, h ] C
C.01 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C6 h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5R 9: =T 4 W > " G Zi R h ] $ CC y g obj
g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner?-procedure C[R4f'hk\ h 7 ] C / g t-46961e5187-35
C.0'1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5'R0 h ] &
C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-pass-count-procedure CR4f0hk 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 h 7 ] C / g t-46961e5187-41
C.001 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CJ h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C50R2 h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-fail-count-procedure CKR4f2hkY`e h : ]C 2 g err
g s Chns h : ]C 2 g err
g s Cv| h : ]C 2 g err
g s C\ h 7 ] C / g t-46961e5187-5c
C.021 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C52R4 h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-xpass-count-procedure CR4f4hk 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 7 ] C / g t-46961e5187-77
C.041 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C54R6 h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-xfail-count-procedure CR4f6hk h : ]C 2 g err
g s C h : ]C 2 g err
g s C"(- h : ]C 2 g err
g s C\J h 7 ] C / g t-46961e5187-92
C.061 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CL h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C56R8 h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-skip-count-procedure CMR4f8hk[bg h : ]C 2 g err
g s Cjpu h : ]C 2 g err
g s Cx~ h : ]C 2 g err
g s C\ h 7 ] C / g t-46961e5187-ad
C.081 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C58R h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-skip-list-procedure CR4fhk 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 7 ] C / g t-46961e5187-c8
C.01 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5R h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-fail-list-procedure CR4fhk h : ]C 2 g err
g s C # h : ]C 2 g err
g s C&,1 h : ]C 2 g err
g s C\N h 7 ] C / g t-46961e5187-e3
C.01 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CP h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5RQ h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-run-list-procedure CRR4fQhk`gl h : ]C 2 g err
g s Couz h : ]C 2 g err
g s C} h : ]C 2 g err
g s C\ h 7 ] C / g t-46961e5187-fe
C.0Q1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5QR h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-skip-save-procedure CR4fhk 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 8 ] C 0 g t-46961e5187-119
C.01 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5R h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-fail-save-procedure C R4fhk h : ]C 2 g err
g s C #( h : ]C 2 g err
g s C+16 h : ]C 2 g err
g s C\S h 8 ] C 0 g t-46961e5187-134
C.01 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CU h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5R: h ] &
C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-group-stack-procedure CVR4f:hkdkp h : ]C 2 g err
g s Csy~ h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h 8 ] C 0 g t-46961e5187-14f
C.0:1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5:R< h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg $%test-runner-on-test-begin-procedure CR4f<hk 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 8 ] C 0 g t-46961e5187-16a
C.0<1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5<R> h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-on-test-end-procedure CR4f>hk h : ]C 2 g err
g s C %* h : ]C 2 g err
g s C-38 h : ]C 2 g err
g s C\U h 8 ] C 0 g t-46961e5187-185
C.0>1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CW h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5>R@ h ] &
C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-on-group-begin-procedure CXR4f@hkfmr h : ]C 2 g err
g s Cu{ h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h 8 ] C 0 g t-46961e5187-1a0
C.0@1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5@RB h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-on-group-end-procedure CR4fBhk 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 8 ] C 0 g t-46961e5187-1bb
C.0B1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5BRD h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner-on-final-procedure CR4fDhk h : ]C 2 g err
g s C!', h : ]C 2 g err
g s C/5: h : ]C 2 g err
g s C\W h 8 ] C 0 g t-46961e5187-1d6
C.0D1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CY h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5DRF h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-on-bad-count-procedure CZR4fFhkhot h : ]C 2 g err
g s Cw} h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h 8 ] C 0 g t-46961e5187-1f1
C.0F1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5FRH h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg &%test-runner-on-bad-end-name-procedure CR4fHhk 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 8 ] C 0 g t-46961e5187-20c
C.0H1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5HR h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg #%%test-runner-total-count-procedure CR4fhk ! h : ]C 2 g err
g s C$*/ h : ]C 2 g err
g s C28= h : ]C 2 g err
g s C\Z h 8 ] C 0 g t-46961e5187-227
C.01 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C\ h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5R] h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-count-list-procedure C^R4f]hklsx 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 8 ] C 0 g t-46961e5187-242
C.0]1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5]RJ h ] & C 6 | g s
g filenamef srfi/srfi-64/testing.scm
g nameg %test-result-alist-procedure CR4fJhk 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 8 ] C 0 g t-46961e5187-25d
C.0J1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5JRL h ] & C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner-aux-value-procedure C
R4fLhk $ h : ]C 2 g err
g s C ' - 2 h : ]C 2 g err
g s C 5 ; @ h : ]C 2 g err
g s C\ ] h 8 ] C 0 g t-46961e5187-278
C.0L1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C _ h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"" g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-64/testing.scm
C5LR4f&hk d 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 srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5&R1 h ] &
C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-pass-count!-procedure C R4f1hk h V ] C N g t-46961e5187-2a6
g t-46961e5187-2a7 C.011 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C51R3 h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-fail-count!-procedure C R4f3hk
h V ] C N g t-46961e5187-2b6
g t-46961e5187-2b7 C.031 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C53R5 h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-xpass-count!-procedure C
R4f5hk
= h V ] C N g t-46961e5187-2c6
g t-46961e5187-2c7 C.051 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
? h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C55R7 h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-xfail-count!-procedure C
@R4f7hk
g h V ] C N g t-46961e5187-2d6
g t-46961e5187-2d7 C.071 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
i h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C57R9 h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-skip-count!-procedure C
jR4f9hk
h V ] C N g t-46961e5187-2e6
g t-46961e5187-2e7 C.091 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C59R
h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-skip-list!-procedure C
R4f
hk
h V ] C N g t-46961e5187-2f6
g t-46961e5187-2f7 C.0
1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5
R
h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-fail-list!-procedure C
R4f
hk
h V ] C N g t-46961e5187-306
g t-46961e5187-307 C.0
1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5
R
h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-run-list!-procedure C
R4f
hk h V ] C N g t-46961e5187-316
g t-46961e5187-317 C.0
1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5
R h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-skip-save!-procedure C R4f hk = h V ] C N g t-46961e5187-326
g t-46961e5187-327 C.0 1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C ? h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 R @ h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-fail-save!-procedure C AR4f @hk h h V ] C N g t-46961e5187-336
g t-46961e5187-337 C.0 @1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C j h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 @R; h ] &
C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-group-stack!-procedure C kR4f;hk h V ] C N g t-46961e5187-346
g t-46961e5187-347 C.0;1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5;R= h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-on-test-begin!-procedure C R4f=hk h V ] C N g t-46961e5187-356
g t-46961e5187-357 C.0=1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5=R? h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-on-test-end!-procedure C R4f?hk h V ] C N g t-46961e5187-366
g t-46961e5187-367 C.0?1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5?RA h ] &
C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg &%test-runner-on-group-begin!-procedure C R4fAhk h V ] C N g t-46961e5187-376
g t-46961e5187-377 C.0A1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5ARC h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg $%test-runner-on-group-end!-procedure C R4fChk : h V ] C N g t-46961e5187-386
g t-46961e5187-387 C.0C1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C < h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5CRE h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner-on-final!-procedure C =R4fEhk d h V ] C N g t-46961e5187-396
g t-46961e5187-397 C.0E1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C f h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5ERG h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg $%test-runner-on-bad-count!-procedure C gR4fGhk h V ] C N g t-46961e5187-3a6
g t-46961e5187-3a7 C.0G1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5GRI h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg '%test-runner-on-bad-end-name!-procedure C R4fIhk h V ] C N g t-46961e5187-3b6
g t-46961e5187-3b7 C.0I1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5IR h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg $%%test-runner-total-count!-procedure C R4f hk h V ] C N g t-46961e5187-3c6
g t-46961e5187-3c7 C.0 1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 R h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%%test-runner-count-list!-procedure C R4f hk
h V ] C N g t-46961e5187-3d6
g t-46961e5187-3d7 C.0 1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 RK h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg %test-result-alist!-procedure C
R4fKhk
8 h V ] C N g t-46961e5187-3e6
g t-46961e5187-3e7 C.0K1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
: h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5KRM h ] & C 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-aux-value!-procedure C
;R4fMhk
b h V ] C N g t-46961e5187-3f6
g t-46961e5187-3f7 C.0M1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
d h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"" g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5MRK13579
@; h ] & " 4 > " G &
" 4 > " G &
" 4 > " G &
" 4 > " G &
" 4 > " G &
" 4 > " G &
" 4 > " G & " 4
> " G & " 4 > " G & " 4 > " G & " 4
> " G & " 4 > " G & " 4 > " G &
C 6 g runner
g filenamef srfi/srfi-64/testing.scm
- T { & # ' C k v " w " " " # g nameg test-runner-reset C(R
e: h( ] &
" 4 56 g runner
! g filenamef srfi/srfi-64/testing.scm
! ! g nameg test-runner-group-path C R h ]C x g runner
g filenamef srfi/srfi-64/testing.scm
g nameg %test-null-callback C
fR( h ]C ~ g runner
g name g count g filenamef srfi/srfi-64/testing.scm
( CA
fCE=?h ]C g runner
g count g expected g filenamef srfi/srfi-64/testing.scm
& CG h ]C } g runner
g begin g end g filenamef srfi/srfi-64/testing.scm
) CI hp % ] 4 > " G &
" 4 > " G & " 4 > " G & " 4 > " G & " 4 > " G & " 4
> " G & " 4 > " G &
" 4 > " G C g runner
o g val \ g val g val g val g filenamef srfi/srfi-64/testing.scm
4 \ F o
g nameg test-runner-null C)R&R(NAOCRE
g=S?PGQI h [ ] 4 > " G &
" 4 > " G & " 4 > " G & " 4 > " G
& " 4 > " G & " 4
> " G & " 4 > " G & " 4 > " G C S g runner
g val 3 a g val c g val g val g val ! g val # Q g val S g filenamef srfi/srfi-64/testing.scm
3 c # S
g nameg test-runner-simple C*R4
hi5+R4
hi*i5,R+
i
j h( ]45 $ " 4> " G C g r
( g filenamef srfi/srfi-64/testing.scm
(
g nameg test-runner-get C-R h ] 6 g spec
g runner g filenamef srfi/srfi-64/testing.scm
g nameg %test-specifier-matches C
kR, h | ] 45 6 t g filenamef srfi/srfi-64/testing.scm
g nameg test-runner-create C.R
k h8 ]H" '( JC45$ K" " " g list
8 g runner 8 g result 8 g l 0 g filenamef srfi/srfi-64/testing.scm
*
# * 0
0
8 g nameg %test-any-specifier-matches C
lRQ
l!
m
n
o h ] & " 4 5 & " 4 5 $ " "4 & " 4 5 5 $ 4 > " G C4 & " 4 5 5$ 4
> " G
CC | g runner
g run g t 5 g g filenamef srfi/srfi-64/testing.scm
& ' , 5 5 C
H
d
k l
r
% t
2 y
$ 1 g nameg %test-should-execute C
pR+.@ @] :; h ]45 $ " 445 > " G 45 4&
" 45 > " G & " 45& " 45 & " 4> " G & " 4 5& " 4
5 & " 4 > " G & " 4 5& " 4
5 & " 4> " G &
" 45 &
C6 g
suite-name
g count g runner ) g val g val $ g val ^ g val g filenamef srfi/srfi-64/testing.scm
% ) , ] % x % % % ' " ) B " # E $ # ^ " ^ ! & ( % % % g nameg %test-begin C
qR4f hk `
h E ]C = g dummy
g
suite-name C
h X ] C P g dummy
g
suite-name g count C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm
2 9 g
macro-typeg syntax-rulesg patternsg
suite-name g
suite-nameg count C5 R:
&
M
L
h f ] &
" 4 5( 4> " G 4> " G $ 45$ " 4 5 4
5 4> " G 4> " G 4 > " G & " 4 > " G 4
> " G 4> " G 4> " G " 4 > " G " & " 4 5 45$ >4> " G 4> " G 4 > " G " C ^ g runner
g
suite-name g count g
log-file-name e g log-file n g log B g filenamef srfi/srfi-64/testing.scm
8
9
! 9 " ; & ; + ; 4 < K = L ? V ? ] @ c @ 2 e @ e > h D ' n > q E u E | E F G H I I I J K K K L * M
B M E N O N P P
T P [ P
d Q
x R
( g nameg test-on-group-begin-simple CNRL
:
h ] & " 4 5 45$ X4> " G 4 &
" 4 5> " G 4> " G " C g runner
g log g filenamef srfi/srfi-64/testing.scm
U
V
V W * W + Y
/ Y 6 Y
? Z
D Z ] Z d Z
m [
g nameg test-on-group-end-simple COR
h ] ]4> " G 4> " G 4> " G 4> " G 4> " G 4> " G 4> " G 6 U g runner
g count g expected-count g port g filenamef srfi/srfi-64/testing.scm
^
_ _ _ ` + a / a 6 a ? b S c W c ^ c g d y e } e e f g nameg %test-on-bad-count-write C
R
L
hX
] 4 45 > " G & " 4 5 45$ 6C g runner
S g count S g expected-count S g log 8 S g filenamef srfi/srfi-64/testing.scm
h
i i 8 i j
8 j ; k E k Q l
S g nameg test-on-bad-count-simple CPR
i h ] 44 55 6 g runner
g
begin-name g end-name g msg g filenamef srfi/srfi-64/testing.scm
n
o
o o 7 p o
o r g nameg test-on-bad-end-name-simple CQR
h@ ]
$ .4> " G 4 > " G 6C g value
: g label : g port : g filenamef srfi/srfi-64/testing.scm
v
w
w y z 8 { : g nameg %test-final-report1 C
R
0
6
4
2
8
h N ]4 &
" 4 5> " G 4 & " 4 5> " G 4 & " 4 5 > " G 4 & " 4
5 > " G & " 4 5
6 F g runner
g port g filenamef srfi/srfi-64/testing.scm
}
~ ~ ! ( ~ 1 6 P W ` e g nameg %test-final-report-simple C
R
L
hP ] 4 45 > " G & " 4 5 45$ 6C g runner
K g log 4 K g filenamef srfi/srfi-64/testing.scm
$
4 7 A I
K g nameg test-on-final-simple CRRJ
hh ]! & " 4 5 45 45 $ " $ 4
5 6C g runner
a g line-info a g source-file ( a g source-line 3 a g file D a g filenamef srfi/srfi-64/testing.scm
$ ( ( + / 3 3 ; > D 2 D L R S X ( Z \ ; ^ ` a g nameg %test-format-line C
R-:
K
iH]FB;
@ D hh ]B45 &
" 45 45 & " 4> " G ( $45 4 > " G " $ B $ " 04& " 4
5 > " G " & " 4 5 & " 4 5 $ @$ " /4& " 4
5> " G " 4& " 45> " G &
" 45 &
" 4> " G & " 45 & " 4> " G & " 45 & " 4> " G & " 45 & " 4> " G & " 45 & " 4> " G & " 4> " G &
" 45( & " 456C g
suite-name
g g line-info g g r g g groups $ g g line - g g msg g ~ g
count-list g g expected-count g g saved-count g g group-count g g val g val g val 4 b g val ~ g val g val ' g filenamef srfi/srfi-64/testing.scm
$ ' - 2 ^ _ e ' g g j 0 6 "
'
Z ' " & ! & 4 ! 4 e & ~ ! ~ & ! " * F I
8 g g nameg %test-end C
R4f hk
hP W ]
C O g dummy
L g
suite-name L g body L L C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg
suite-nameg body C5 R4f hk
h( q ] C i g dummy
! g
suite-name ! g form ! g cleanup-form ! ! C
h _ ] C W g dummy
g
suite-name g cleanup-form C
h ] C g dummy
g
suite-name g form1 g form2 g form3 g rest C
hP ; ]4 5 $ @4 5 $ @4 5 $ @ 63 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-64/testing.scm
P g
macro-typeg syntax-rulesg patternsg
suite-nameg formg cleanup-form g
suite-nameg cleanup-form g
suite-nameg form1g form2g form3g rest C5 RL
J
h O ]1 & " 4 5 45$ & " 4 5 45 45 4 5 4
5 4 > " G 4
> " G $ 4> " G " $ 4> " G " $ 4> " G " $ 6CC G g runner
g log g results E g source-file P g source-line [ g source-form f g test-name q g filenamef srfi/srfi-64/testing.scm
* - E H L " P P S W " [ [ ^ b " f f i m q q t
x
$ g nameg test-on-test-begin-simple C
gR4f hk
!# h T ]C L g dummy
g runner g pname C.01236 h0 i ] C a g dummy
) g runner ) g pname ) g default ) ) C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm
9 g
macro-typeg syntax-rulesg patternsg runnerg pname g runnerg pnameg default C5 RL
mJ78
9:;
<=> h( ]1 & " 4 54 & " 4 55 $ " & " $ & " 4 5 4 5 4
5 4 5 $ " $ b$ 4 > " G " 4
> " G $ 4 > " G " 4 > " G " 4 & " > " G $ )4 > " G 4 > " G " 4> " G " 45$ 4 > " G 4> " G " =$ 4 45$ " 4> " G "C & " 4 5 "C g runner
! g p ? R g log R ! g kind R ! g results g source-file g source-line g test-name g list g pair
g filenamef srfi/srfi-64/testing.scm
" & % R ^ l o " "
) )
$ ! ( * ) 0 1 5
C
D H M V [ ` m
!
J ! g nameg test-on-test-end-simple CSR
?
@
h` ]4> " G 4 > " G 4> " G 4 > " G 6 g pair
Z g port Z g filenamef srfi/srfi-64/testing.scm
# ,
0
7
@ E L Z Z g nameg %test-write-result1 CRJ
K h` ' ] & " 4 5 45 $ C & C 6 g runner
Z g pname Z g value Z g alist Z g p ( Z g val ? Z g filenamef srfi/srfi-64/testing.scm
( 0 5 < ) ? # ? Z g nameg test-result-set! C!RK h ] & C 6 g runner
g filenamef srfi/srfi-64/testing.scm
g nameg test-result-clear C"RJ
h ] L& C 4L 5C g r
g filenamef srfi/srfi-64/testing.scm
#
%
3 / 7 = 7 ) g nameg loop CK hh ] & " 4 5 45 $ 5O Q 45 & C 6C g runner
g g pname g g alist g g p ( g g loop 9 J g val J e g filenamef srfi/srfi-64/testing.scm
( 0 9 # J g g nameg test-result-remove C#R+
mJ hP - 1 3 $ " 45 4& " 455 $ CC g rest
N g runner N g p @ N g filenamef srfi/srfi-64/testing.scm
!
" " " ! " , " # # # & #
N
g nameg test-result-kind C$R-=
mJB h` - 1 3 $ " 45 4& " 455 $ " 6 g rest
Y g runner Y g p B U g filenamef srfi/srfi-64/testing.scm
%
& & & ! & , & ! '
% ' " ( '
Y ' Y
g nameg test-passed? C%R-$A01723845
o6789 > h
]45 4 5 $ L &
" 4 5 &
" 4 > " G " M$ L & " 4 5 & " 4
> " G " $ N & " 4 5 & " 4
> " G " $ N & " 4 5 & " 4 > " G " J & " 4 5 & " 4 > " G & " 4 5 & " 4 > " G & " 4 5 6 g r
g result-kind g val 6 c g val g val g val 8 f g val g val g filenamef srfi/srfi-64/testing.scm
)
* *
+ * , . ' 6 . " 6 . p , s 0 ' 0 " 0 , 2 ( 2 # 2 , 4 ( 8 4 # 8 4 m 6 ' 6 " 6 7 & 7 ! 7 8
g nameg %test-report-result CCR4fDhk `TUVf h J ] C B g dummy
g test-expression C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
= " g
macro-typeg syntax-rulesg patternsg test-expression C5DRghij
k h ])4 5 $
45" $
45" $ " $
" 4
54 56 g form
| g src-props | g file | g line 5 | g
file-alist J | g
line-alist ` | g filenamef srfi/srfi-64/testing.scm
p q q r r r 4 r q ' s ( s . s 4 0 s 5 q = t ? u J v J q R w T x W x - X x ` y ` q h { i { ' p { | z | g nameg %test-source-line2 CR
p<
n
mJ h ] 4 > " G 4 & " 4 5 > " G 4 & " 4 55 $ " C g r
y g p c v g filenamef srfi/srfi-64/testing.scm
A B F % I w x
y g nameg %test-on-test-begin CR!
m
J
o8A7 hh ]
4 & " 4 55 $ " & $ " " $ "
6 g r
e g result e g p * = g filenamef srfi/srfi-64/testing.scm
2 ? @ C I K % Q , [ ] % c + e e g nameg %test-on-test-end CR
J
h8 ] 4 & " 4 55 $ CC g runner
3 g p $ 3 g filenamef srfi/srfi-64/testing.scm
2 % 3 g nameg test-runner-test-name C/R4fhk
hX v ]
C n g dummy
V g r V g comp V g expected V g expr V V C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg rg compg expectedg expr C5R h` N ]"4 54 54545 L $ %L $ L $ L CCCC F g value
Y g expected Y g rval Y g ival Y g rexp Y g iexp Y g filenamef srfi/srfi-64/testing.scm
- . 2 9 : > E F J Q R Y C h ~ ] O C v g error
g filenamef srfi/srfi-64/testing.scm
g nameg %test-approximate= CR4fhk
hH N ]
C F g dummy
A g r A g expr A A C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg rg expr C5R4f
hk h U ] C M g mac
g
suite-name g line C h = ] C 5 g mac
g line C
hP ] 4 5 45 $ @45 $ @ 6 g x
L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm
0 L C5
R4fhk
h8 b ] C Z g mac
4 g tname 4 g expr 4 g line 4 4 C ! h O ] C G g mac
g expr g line C
hP ] 4 5 45 $ @45 $ @ 6 g x
L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm
0 L C5R(k)489:5;>? h8 ] C g mac
8 g tname 8 g expected 8 g expr 8 g line 8 g comp 8 8 C@JOPKQ h w ] Co g mac
g expected g expr g line g comp C
hP ]45 45 $ @45 $ @ 6 g comp
N g x N g tmp N g tmp N g tmp 7 N g filenamef srfi/srfi-64/testing.scm
. N g nameg %test-comp2 CRR4fhRX h e ] 6 ] g x
g filenamef srfi/srfi-64/testing.scm
C5R4fhR] h e ] 6 ] g x
g filenamef srfi/srfi-64/testing.scm
C5R4fhRc h e ] 6 ] g x
g filenamef srfi/srfi-64/testing.scm
C5R4fhhkitxyzu{~
h@ ] C g mac
= g tname = g expected = g expr = g error = g line = = C h( x ] C p g mac
% g expected % g expr % g error % g line % % C
hP ] 4 5 45 $ @45 $ @ 6 g x
L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm
0 L C5R4fhk h` a ]
C Y g dummy
^ g r ^ g etype ^ g expr ^ ^ C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
! " g
macro-typeg syntax-rulesg patternsg rg etypeg expr C5R4fhk h8 u ] C m g mac
6 g tname 6 g etype 6 g expr 6 g line 6 6 C h b ] C Z g mac
g etype g expr g line C h O ] C G g mac
g expr g line C hh ]! 4 5 45 $ @45 $ @45 $ @
6 g x
c g tmp c g tmp c g tmp 5 c g tmp L c g filenamef srfi/srfi-64/testing.scm
| } 0 } } } c C5R+Q
e
.+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CD+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h . - 1 3 " Y45 $ & " 45 ( 945 & " 4> " G 6 & " & " 4> " G 4> " G & C64 5 45
O O 4
O > " G V4 > " G X4 O > " G & " 4 56 $ r & e45
O O 4
O > " G V4> X4O > " G CX4O > " G F"."* & g first
g rest g r f g run-list 5 g val D r g val g r f g saved-runner G g saved-runner { g filenamef srfi/srfi-64/testing.scm
5 = > / D v } , 9 " 0 J f i m p w
g nameg
test-apply CR4fhk h( S ] C K g dummy
% g runner % g form % % C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg runnerg formg ... C5R h ]MNML $ ML LCC g runner
g filenamef srfi/srfi-64/testing.scm
C h ]
H O C g n
g count g i g filenamef srfi/srfi-64/testing.scm
g nameg %test-match-nth CR4fhk `*, h < ]C 4 g dummy
g n C
5 h O ] C G g dummy
g n g count C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm
9 g
macro-typeg syntax-rulesg patternsg n g ng count C5R h8 ]H" %( JC4 5$ " K "L " g runner
6 g result 6 g l . g filenamef srfi/srfi-64/testing.scm
% ( . .
6 C h - 1 3 O C y g pred-list
g filenamef srfi/srfi-64/testing.scm
g nameg %test-match-all C6R4fhkEG h : ] C 2 g tmp-46961e5187-512
C h ? ]45C 7 g dummy
g pred C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg predg ... C5R h8 ]H" %( JC4 5$ K" "L " g runner
6 g result 6 g l . g filenamef srfi/srfi-64/testing.scm
! ( . .
6 C h - 1 3 O C y g pred-list
g filenamef srfi/srfi-64/testing.scm
g nameg %test-match-any CHR4fhkUV h : ] C 2 g tmp-46961e5187-51c
C h ? ]45C 7 g dummy
g pred C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg predg ... C5RWX
iY h@ ]4 5$ C4 5$ 64 5$ 66 g specifier
9 g filenamef srfi/srfi-64/testing.scm
" # - 3 7 9 9 g nameg %test-as-specifier CFR4fhkfklgmno h : ] C 2 g tmp-46961e5187-526
Cr
h( ? ]45 C 7 g dummy
# g pred # # C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg predg ... C5R4fhk h : ] C 2 g tmp-46961e5187-530
C
h( ? ]45 C 7 g dummy
# g pred # # C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg predg ... C5R/ h s ]L 4 5C k g runner
g filenamef srfi/srfi-64/testing.scm
C h z ] O C r g name
g filenamef srfi/srfi-64/testing.scm
g nameg test-match-name CRY
i h8 ]4 5 45 4455$ 45 66 g string
5 g port 5 g form 5 g filenamef srfi/srfi-64/testing.scm
$ )
/
3
5
5 g nameg test-read-eval-string C RC g m
( g rtd
g filenamef srfi/srfi-64.scm
) 4
. 4 6 4 & ; 4
g filenamef srfi/srfi-64/testing.scm D P
]
8
h
l
؆
؇ ؒ ؓ ء ِ
K
\
8
U
^
h h
n
v
B }
H
c
q
t
J !
%
. )
"6 p #
%U
&g
*
4 D
GF
K
N
Q
V
X$
9 X&
C6 PK ! jW> W> srfi/srfi-111.gonu [ GOOF----LE-8-2.0?> ]< 4 h( ] g guile g define-module* g srfi g srfi-111 g filenameS
f srfi/srfi-111.scm g importsS g srfi-9
g gnu g exportsS g box g box? g unbox g set-box! g set-current-module g cond-expand-provide g current-module g <box> g %box-procedure !g make-syntax-transformer "! #! $g macro %g $sc-dispatch &% '% (g _ )g any *() +g
syntax-object ,g lambda -g m-a33a589db48-4 .g top /-. 0g ribcage 1g t-a33a589db48-3 21 3/ 4f l-a33a589db48-9 54 60235 70 8g x 98 :f l-a33a589db48-6 ;: <093; =g shift >g proc-name ?g args @>? A. BAA Cf l-1e8ba8b5a-2ba Df l-1e8ba8b5a-2bb ECD F0@BE Gg key Hg value Ig name Jg formals Kg body LGHIJK MAAAAA Nf l-1e8ba8b5a-2ad Of l-1e8ba8b5a-2ae Pf l-1e8ba8b5a-2af Qf l-1e8ba8b5a-2b0 Rf l-1e8ba8b5a-2b1 SNOPQR T0LMS Ug make-procedure-name VU WA Xf l-1e8ba8b5a-29d YX Z0VWY [A \f l-1e8ba8b5a-29c ]\ ^09[] _/67<=7777FTZ^
`g hygiene a` b+,_a cA67< d` e+Hcd fe gg make-struct hg m-a33a589db48-1 ih. jg t-1e8ba8b5a-38d kg t-1e8ba8b5a-38c lg t-1e8ba8b5a-38b mjkl ng m-1e8ba8b5a-38e on. pooo qf l-1e8ba8b5a-392 rf l-1e8ba8b5a-393 sf l-1e8ba8b5a-394 tqrs u0mpt vg ctor-args wv xf l-1e8ba8b5a-37a yx z0w[y {g ctor |g field }{| ~f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 ~ 0}B g form g type-name g constructor-spec g field-names AAAA f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e 0 g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers AAAAAAAA f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 0 f l-1e8ba8b5a-334 09[ i67<=7u777z7 +ga + cd +
a e bf g each-any ( g syntax-violation
f Wrong number of arguments g identifier?
A7< + d f -source expression failed to match any pattern g record-type-vtable
g pw g default-record-printer
H g set-struct-vtable-name!
g vtable-offset-user
g %box?-procedure g m-a33a589db48-11 . g t-a33a589db48-10 f l-a33a589db48-16 0 f l-a33a589db48-13 09 7=7777FTZ^
+,a g obj g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f . f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 0 g copier-id f l-1e8ba8b5a-476 0[ g ctor-name f l-1e8ba8b5a-46e 0[ f l-1e8ba8b5a-46c 0[ g layout f l-1e8ba8b5a-46a 0[ g
immutable? f l-1e8ba8b5a-468 0[ g field-count f l-1e8ba8b5a-466 0[ g
getter-ids f l-1e8ba8b5a-463
0[
g field-ids
f l-1e8ba8b5a-460 0
[ g predicate-name g
field-spec AAAAAA f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 0 i7=77777777777 7 + a g and !+ a "g struct? #+" a $# %g eq? &+% a 'g
struct-vtable (+' a )( *A7 ++ *d ,&)+ -!$, . - /A7 0+/d 1g throw-bad-struct 2
1 3
1 4g %unbox-procedure 5g free-id 6g
%%on-error 7g m-a33a589db48-1d 87. 98 :f l-a33a589db48-1f ;: <099; =87<=7777FTZ^ >+6=a ?5> @?) Ag %%type Bg t-1e8ba8b5a-3a5 Cg t-1e8ba8b5a-3a6 Dg t-1e8ba8b5a-3a7 Eg t-1e8ba8b5a-3a8 Fg t-1e8ba8b5a-3a9 Gg t-1e8ba8b5a-3aa Hg t-1e8ba8b5a-3ab IBCDEFGH Jg m-1e8ba8b5a-3ac KJ. LKKKKKKK Mf l-1e8ba8b5a-3b0 Nf l-1e8ba8b5a-3b1 Of l-1e8ba8b5a-3b2 Pf l-1e8ba8b5a-3b3 Qf l-1e8ba8b5a-3b4 Rf l-1e8ba8b5a-3b5 Sf l-1e8ba8b5a-3b6 TMNOPQRS U0ILT Vg getter Wg index XVW Yf l-1e8ba8b5a-3a3 Zf l-1e8ba8b5a-3a4 [YZ \0XB[ ] ^AAA _f l-1e8ba8b5a-39e `f l-1e8ba8b5a-39f af l-1e8ba8b5a-3a0 b_`a c0]^b di7<=7U777\7c e+Ada f5e g(@f) hg ck ig err jg s kij l88 mf l-a33a589db48-22 nf l-a33a589db48-23 omn p0klo q8p7<=7777FTZ^
r+hqa sg quote t+sqa uAp7< v+ ud wtv xw yg %%index z+yda {5z |(@{) }f l-a33a589db48-27 ~f l-a33a589db48-28 }~ 0kl 87<=7777FTZ^
+ha +sa 7< +
d g %%copier +da 5 (@) f l-a33a589db48-2c f l-a33a589db48-2d 0kl 87<=7777FTZ^
+ha +sa g %%<box>-set-fields A7< +d g t-a33a589db48-1c f l-a33a589db48-31 09 87<=7777FTZ^
+,a i7<=7U777\7c +ja g if +a +%a +'a A7< + d g
struct-ref +a 7< +
d +1a +sa +d A7< +4d g each )) ) ) ) g %%set-fields g dummy g check? g expr jV g m-a33a589db48-38 . iiii f l-a33a589db48-3d f l-a33a589db48-3e f l-a33a589db48-3f f l-a33a589db48-40 f l-a33a589db48-41 0 f l-a33a589db48-3a 09 g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 . f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd 0 f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 0]^ i7=7777
+a A7 + d +d g map g list g %set-box!-procedure ()) g m-a33a589db48-4c . g t-a33a589db48-4a g t-a33a589db48-4b f l-a33a589db48-51 f l-a33a589db48-52 0 f l-a33a589db48-4e 09 7=7777FTZ^
+,a g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 . f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed 0 g setter IV
f l-1e8ba8b5a-3e0 f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2
0 ^
W f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 0B g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 0B i7=777 +ja g val + a +a +%a !+'a "! #A7 $+ #d % "$ &g struct-set! '+&a (7 )+
(d *') ++1a ,+sa -+#d .,- /+. 0 %*/ 1 0 2A7 3+2d 4g set-record-type-printer! 5g display 6f #<box 7g number->string 8g object-address 9f value: :g write ;f >C 5 hh ]4
5 4 > " G 4 i4 i5 > " G h r ] C j g value
g filenamef srfi/srfi-111.scm
g nameg %box-procedure C R4#$'* h 7 ] C / g t-a33a589db48-3
C h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C( h D ] L 6< g filenamef srfi/srfi-111.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 srfi/srfi-111.scm
n C5R 4 > " G Ɩ i R h q ] $ CC i g obj
g filenamef srfi/srfi-111.scm
g nameg %box?-procedure CR4#$'*. h 8 ] C 0 g t-a33a589db48-10
C h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C( h D ] L 6< g filenamef srfi/srfi-111.scm
C0 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 srfi/srfi-111.scm
n C5R 3 h p ] &
C 6h g s
g filenamef srfi/srfi-111.scm
g nameg %unbox-procedure C4R4#$'grx 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 8 ] C 0 g t-a33a589db48-1c
C h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C( h D ] L 6< g filenamef srfi/srfi-111.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 srfi/srfi-111.scm
C5R4#$' 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 srfi/srfi-111.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R 3 h ] &
C 6 | g s
g val g filenamef srfi/srfi-111.scm
g nameg %set-box!-procedure CR4#$'1 h V ] C N g t-a33a589db48-4a
g t-a33a589db48-4b C h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C( h D ] L 6< g filenamef srfi/srfi-111.scm
C3 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 srfi/srfi-111.scm
n C5R4i i56789: 3; h ]4> " G 444 5 5> " G 4> " G 4 &
" 4 5> " G
6 g box
| g port | g filenamef srfi/srfi-111.scm
! !
! ' !
. ! 7 " ; "
@ " I # N # l # x $
| $ | C6 g m
, g rtd
o g filenamef srfi/srfi-111.scm
-
2 : & ?
b
b
C6 PK ! srfi/srfi-42.gonu [ GOOF----LE-8-2.0ܑ ]
w 4 h ] g guile g define-module* g srfi g srfi-42 g filenameS
f srfi/srfi-42.scm g exportsS g :
g :-dispatch-ref g :-dispatch-set! g :char-range g :dispatched g :do g :generator-proc g :integers g :let g :list g :parallel g :port g :range g :real-range g :string g :until g :vector g :while g any?-ec g append-ec g dispatch-union !g do-ec "g every?-ec #g first-ec $g fold-ec %g fold3-ec &g last-ec 'g list-ec (g make-initial-:-dispatch )g max-ec *g min-ec +g
product-ec ,g string-append-ec -g string-ec .g sum-ec /g vector-ec 0g vector-of-length-ec 1
!"#$%&'()*+,-./0 % 2g set-current-module 32 42 5g cond-expand-provide 6g current-module 7 8g make-syntax-transformer 98 :8 ;g macro <g $sc-dispatch =< >< ?g any @g free-id Ag
syntax-object Bg nested Cg top DC Eg ribcage FE Gg x HG Ig m-46961e513b-2 JIC KJ Lf l-46961e513b-4 ML NEHKM ODFN Pg hygiene QP RABOQ S@R Tg each-any UST VUT W?V Xg dummy Yg q Zg etc [XYZ \JDD ]f l-46961e513b-7 ^f l-46961e513b-8 _f l-46961e513b-9 `]^_ aE[\` bDaFN cA!bQ dg append ed fd g?T h?g i?h j?i kg q1 lg q2 mg etc1 nXklmZ oJDDDD pf l-46961e513b-10 qf l-46961e513b-11 rf l-46961e513b-12 sf l-46961e513b-13 tf l-46961e513b-14 upqrst vEnou wDvFN xA!wQ y?? zg begin {g cmd |X{ }JD ~f l-46961e513b-1c f l-46961e513b-1d ~ E|} DFN AzQ g if AQ AQ AOQ @ ? ?? g test X{ f l-46961e513b-21 f l-46961e513b-22 f l-46961e513b-23 E\ DFN AQ A!Q g not AOQ @ ? ?? f l-46961e513b-28 f l-46961e513b-29 f l-46961e513b-2a E\ DFN AQ AQ A!Q g and AOQ @ T ?? f l-46961e513b-2f f l-46961e513b-30 f l-46961e513b-31 E\ DFN AQ AQ A!Q g or AOQ @ T ?? f l-46961e513b-37 f l-46961e513b-38 f l-46961e513b-39 E\ DFN AQ AQ A!Q AzOQ @ T ?? XZ{ f l-46961e513b-3f f l-46961e513b-40 f l-46961e513b-41 E\ DFN AzQ A!Q AOQ @ ?????? ?? g do-ec:do g olet g lbs g ne1? g ilet g ne2? g lss X{ JDDDDDDD f l-46961e513b-47 f l-46961e513b-48 f l-46961e513b-49 f l-46961e513b-4a f l-46961e513b-4b f l-46961e513b-4c f l-46961e513b-4d f l-46961e513b-4e E DFN AQ AQ ?h? g g g arg1 g arg X{ f l-46961e513b-58 f l-46961e513b-59 f l-46961e513b-5a f l-46961e513b-5b f l-46961e513b-5c Eo DFN AQ g syntax-violation f -source expression failed to match any pattern g m-46961e513b-63 C f l-46961e513b-65 EH DF A Q @ g let A Q @ g ???T ?? g ec-simplify
g obs g oc g ibs
g ic g ls X{
DDDDDDDDD
f l-46961e513b-68 f l-46961e513b-69 f l-46961e513b-6a f l-46961e513b-6b f l-46961e513b-6c f l-46961e513b-6d f l-46961e513b-6e f l-46961e513b-6f f l-46961e513b-70 f l-46961e513b-71
E D F A Q A Q g loop !A Q "A Q #g m-46961e513b-7f $#C %$ &f l-46961e513b-81 '& (EH%' )DF( *A)Q +@* ,g atom -, .+-? /?. 0, 1+0? 2?1 3g
consequent 4X3 5$D 6f l-46961e513b-89 7f l-46961e513b-8a 867 9E458 :D9F( ;A:Q <A:Q =;<< >+-?? ??> @+0?? A?@ BA)Q C@B DC? ECD F+E? G?F HX3 I$DD Jf l-46961e513b-9c Kf l-46961e513b-9d Lf l-46961e513b-9e MJKL NEHIM ODNF( PA OQ QAOQ R+E?? S?R Tg alternate UX3T V$DDD Wf l-46961e513b-a3 Xf l-46961e513b-a4 Yf l-46961e513b-a5 Zf l-46961e513b-a6 [WXYZ \EUV[ ]D\F( ^A ]Q _A]Q `A)Q a@` bT cab d?c eg command fXe gf l-46961e513b-ac hf l-46961e513b-ad igh jEf5i kDjF( lA kQ mAzkQ nAz)Q o@n poT q?p rf l-46961e513b-b2 sf l-46961e513b-b3 trs uEf5t vDuF( wA vQ xA vQ y, zpT {?y?z |g done }g to-do1 ~g to-do2 X|}~ f l-46961e513b-b8 f l-46961e513b-b9 f l-46961e513b-ba f l-46961e513b-bb EV DF( A Q A Q ?yTg g to-do X|} f l-46961e513b-c3 f l-46961e513b-c4 f l-46961e513b-c5 f l-46961e513b-c6 EV DF( A Q A Q ?y X f l-46961e513b-ce E% DF( AQ AQ ? ?y ?yg g command1 Xe f l-46961e513b-d6 f l-46961e513b-d7 f l-46961e513b-d8 EI DF( AzQ ?T?????? g cc X g m-46961e513b-e2 C DDDDDDD f l-46961e513b-e7 f l-46961e513b-e8 f l-46961e513b-e9 f l-46961e513b-ea f l-46961e513b-eb f l-46961e513b-ec f l-46961e513b-ed f l-46961e513b-ee E f l-46961e513b-e4 EH DF AQ ????? X DDDD f l-46961e513b-f9 f l-46961e513b-fa f l-46961e513b-fb f l-46961e513b-fc f l-46961e513b-fd E DF AQ AQ AQ g index g m-46961e513b-103 C f l-46961e513b-105 EH DF AQ @ ? ???? g var g i g
expression X DDDD f l-46961e513b-108 f l-46961e513b-109 f l-46961e513b-10a f l-46961e513b-10b f l-46961e513b-10c E DF AQ AQ A
Q AQ AQ ???? X DDD f l-46961e513b-113 f l-46961e513b-114 f l-46961e513b-115 f l-46961e513b-116 E DF AQ AQ AQ AQ hT ? ? g :parallel-1 g gen X g m-46961e513b-11b C DDDDD f l-46961e513b-125
f l-46961e513b-126 f l-46961e513b-127 f l-46961e513b-128
f l-46961e513b-129 f l-46961e513b-12a
E f l-46961e513b-11d EH DF AQ ?? ? g result X g m-46961e513b-133 C DDDDDD f l-46961e513b-138 f l-46961e513b-139 f l-46961e513b-13a f l-46961e513b-13b !f l-46961e513b-13c "f l-46961e513b-13d #f l-46961e513b-13e $ !"# %E $ & 'f l-46961e513b-135 (' )EH&( *D%F) +A*Q ,DF) -A,Q .@- /A,Q 0@/ 1TT 201 3.2T?2?T 4???33 5g gens 6g ob1 7g oc1 8g lb1 9g ne1?1 :g ib1 ;g ic1 <g ne2?1 =g ls1 >g ob2 ?g oc2 @g lb2 Ag ne1?2 Bg ib2 Cg ic2 Dg ne2?2 Eg ls2 FX56789:;<=>?@ABCDE GDDDDDDDDDDDDDDDDDD Hf l-46961e513b-149 If l-46961e513b-14a Jf l-46961e513b-14b Kf l-46961e513b-14c Lf l-46961e513b-14d Mf l-46961e513b-14e Nf l-46961e513b-14f Of l-46961e513b-150 Pf l-46961e513b-151 Qf l-46961e513b-152 Rf l-46961e513b-153 Sf l-46961e513b-154 Tf l-46961e513b-155 Uf l-46961e513b-156 Vf l-46961e513b-157 Wf l-46961e513b-158 Xf l-46961e513b-159 Yf l-46961e513b-15a Zf l-46961e513b-15b [HIJKLMNOPQRSTUVWXYZ \EFG[ ]D\F) ^A]Q _A]Q `A]Q aA]Q b?T? c??h? dg :while-1 eX fg m-46961e513b-183 gfC hgDDDDD if l-46961e513b-188 jf l-46961e513b-189 kf l-46961e513b-18a lf l-46961e513b-18b mf l-46961e513b-18c nf l-46961e513b-18d oijklmn pEeho qg rf l-46961e513b-185 sr tEHqs uDpFt vAduQ wg m-46961e513b-195 xwC yx zf l-46961e513b-197 {z |EHy{ }DF| ~A}Q @~ ?????? ??? g :while-2 X xDDDDDDDD f l-46961e513b-19a f l-46961e513b-19b f l-46961e513b-19c f l-46961e513b-19d f l-46961e513b-19e f l-46961e513b-19f f l-46961e513b-1a0 f l-46961e513b-1a1 f l-46961e513b-1a2 E DF| AQ AQ g m-46961e513b-1ac C f l-46961e513b-1ae EH DF AQ @ AQ @ yT T ????? ???TTT g ib-let g ib-save g
ib-restore g ib-var g ib-rhs g ib X
DDDDDDDDDDDDDD f l-46961e513b-1b1 f l-46961e513b-1b2 f l-46961e513b-1b3 f l-46961e513b-1b4 f l-46961e513b-1b5 f l-46961e513b-1b6 f l-46961e513b-1b7 f l-46961e513b-1b8 f l-46961e513b-1b9 f l-46961e513b-1ba f l-46961e513b-1bb f l-46961e513b-1bc f l-46961e513b-1bd f l-46961e513b-1be f l-46961e513b-1bf E DF AQ g ib-tmp AQ AQ AQ AQ g set! AQ 1 b ???? ???TTT g ob X
DDDDDDDDDDDD
f l-46961e513b-1d5 f l-46961e513b-1d6 f l-46961e513b-1d7 f l-46961e513b-1d8 f l-46961e513b-1d9 f l-46961e513b-1da f l-46961e513b-1db f l-46961e513b-1dc f l-46961e513b-1dd f l-46961e513b-1de f l-46961e513b-1df f l-46961e513b-1e0 f l-46961e513b-1e1
E DF AQ AQ g
ne1?-value AQ AQ g :until-1 g m-46961e513b-1f5 C DDDDD f l-46961e513b-1fa f l-46961e513b-1fb f l-46961e513b-1fc f l-46961e513b-1fd f l-46961e513b-1fe f l-46961e513b-1ff Ee f l-46961e513b-1f7 EH DF AQ g m-46961e513b-207 C f l-46961e513b-209 EH DF AQ @ ?????? ??? DDDDDDDD f l-46961e513b-20c f l-46961e513b-20d f l-46961e513b-20e f l-46961e513b-20f f l-46961e513b-210 f l-46961e513b-211 f l-46961e513b-212 f l-46961e513b-213
f l-46961e513b-214
E
D F A
Q A
Q A
Q g m-46961e513b-21e C f l-46961e513b-220 EH DF AQ @ ? T ? ? ? X DDDD !f l-46961e513b-223 "f l-46961e513b-224 #f l-46961e513b-225 $f l-46961e513b-226 %f l-46961e513b-227 &!"#$% 'E & (D'F )A(Q *A(Q +A(Q ,?j -g arg2 .X- /DDDDD 0f l-46961e513b-22f 1f l-46961e513b-230 2f l-46961e513b-231 3f l-46961e513b-232 4f l-46961e513b-233 5f l-46961e513b-234 6012345 7E./6 8D7F 9A8Q :Ad8Q ;X <DDD =f l-46961e513b-23d >f l-46961e513b-23e ?f l-46961e513b-23f @f l-46961e513b-240 A=>?@ BE;<A CDBF DACQ EACQ FE Gg t HAGCQ IACQ Jg null? KAJCQ LKH MIL Ng car OANCQ POH QP RACQ Sg cdr TASCQ UTH VU WRV Xg m-46961e513b-245 YXC ZY [f l-46961e513b-247 \[ ]EHZ\ ^DF] _A^Q `@_ a`? b???a? cYDDDD df l-46961e513b-24a ef l-46961e513b-24b ff l-46961e513b-24c gf l-46961e513b-24d hf l-46961e513b-24e idefgh jE ci kDjF] lAkQ mAkQ ng str oAnkQ pg len qApkQ rA
kQ sqr ts uAkQ vg
string-length wAvkQ xwo yuqx zy {r |g < }A|kQ ~q g
string-ref AkQ AkQ g + AkQ A kQ ah ? ? ? X- YDDDDDD f l-46961e513b-255 f l-46961e513b-256 f l-46961e513b-257 f l-46961e513b-258 f l-46961e513b-259 f l-46961e513b-25a f l-46961e513b-25b E DF] AQ AQ g
string-append AQ X f l-46961e513b-265 f l-46961e513b-266 f l-46961e513b-267 f l-46961e513b-268 f l-46961e513b-269 Ec DF] AQ AQ AQ g m-46961e513b-270 C DDD f l-46961e513b-275 f l-46961e513b-276 f l-46961e513b-277 f l-46961e513b-278 E; f l-46961e513b-272 EH DF A Q AQ AQ DF AQ @ ? ???? DDDD f l-46961e513b-27e f l-46961e513b-27f f l-46961e513b-280 f l-46961e513b-281 f l-46961e513b-282 E DF AQ AQ g vec AQ ApQ A
Q AQ g
vector-length AQ A|Q g
vector-ref AQ AQ AQ A Q h ?ތ ?ߌ ? DDDDDD f l-46961e513b-289 f l-46961e513b-28a f l-46961e513b-28b f l-46961e513b-28c f l-46961e513b-28d f l-46961e513b-28e f l-46961e513b-28f E DF AQ A Q AQ DDDDD f l-46961e513b-299 f l-46961e513b-29a f l-46961e513b-29b f l-46961e513b-29c f l-46961e513b-29d f l-46961e513b-29e E. DF AQ AQ AQ AQ ApQ A
Q g vecs AQ g ec-:vector-filter AQ g list AQ g k AQ
AQ
A|Q
AQ AJQ AzQ AQ ANQ ASQ AQ !AQ "! #" $AQ %A Q &$ % '& (' )g m-46961e513b-2a6 *)C +* ,f l-46961e513b-2a8 -, .EH+- /DF. 0A/Q 1@0 21? 3???2 4X 5*DDD 6f l-46961e513b-2ab 7f l-46961e513b-2ac 8f l-46961e513b-2ad 9f l-46961e513b-2ae :6789 ;E45: <D;F. =A<Q >A
<Q ?> @A<Q AA<Q BA <Q CB D??? EX F*DD Gf l-46961e513b-2b4 Hf l-46961e513b-2b5 If l-46961e513b-2b6 JGHI KEEFJ LDKF. MALQ NA
LQ ON PALQ QALQ RA LQ SR Tg m-46961e513b-2ba UTC VU Wf l-46961e513b-2bc XW YEHVX ZDFY [AZQ \@[ ]\? ^]g _?^ `?_ a?` bX cUDDDDD df l-46961e513b-2bf ef l-46961e513b-2c0 ff l-46961e513b-2c1 gf l-46961e513b-2c2 hf l-46961e513b-2c3 if l-46961e513b-2c4 jdefghi kEbcj lDkFY mAlQ nAlQ oAlQ pX qUDDD rf l-46961e513b-2cd sf l-46961e513b-2ce tf l-46961e513b-2cf uf l-46961e513b-2d0 vrstu wEpqv xDwFY yAxQ zA
xQ {A xQ |{ }X- ~UDDDD f l-46961e513b-2d6 f l-46961e513b-2d7 f l-46961e513b-2d8 f l-46961e513b-2d9 f l-46961e513b-2da E}~ DFY AQ A Q ,
????y X- f l-46961e513b-2e1 f l-46961e513b-2e2 f l-46961e513b-2e3 f l-46961e513b-2e4 Eq DFY AQ AQ g b AQ AQ AQ AQ g integer? AQ g exact? AQ g error AQ f *arguments of :range are not exact integer AQ f (use :real-range?) AQ A
Q A Q A|Q AQ AQ , ???? f l-46961e513b-2ea f l-46961e513b-2eb f l-46961e513b-2ec f l-46961e513b-2ed Eq DFY AQ AQ AQ AQ AQ AQ AQ AQ AQ AQ AQ A
Q A Q g > AQ AQ g - AQ ?????y f l-46961e513b-2f3 f l-46961e513b-2f4 f l-46961e513b-2f5 f l-46961e513b-2f6 f l-46961e513b-2f7 E}~ DFY AQ AQ g a AQ AQ AQ AQ AQ AQ AQ AQ AQ AQ A Q A|Q AQ AQ ????? f l-46961e513b-2fe f l-46961e513b-2ff f l-46961e513b-300 f l-46961e513b-301 f l-46961e513b-302 E}~
D FY A
Q A
Q
A
Q A
Q g s A
Q A
Q g stop A
Q A
Q A
Q A
Q A
Q A
Q
A
Q
! "! #A
Q $A
Q %A
Q &#$%
'"& (' )
*A
Q + , -A
Q .A
Q /A
Q 0/ 1?????? 2g arg3 3X-2 4f l-46961e513b-309 5f l-46961e513b-30a 6f l-46961e513b-30b 7f l-46961e513b-30c 8f l-46961e513b-30d 9f l-46961e513b-30e :456789 ;E3c: <D;FY =A<Q >A<Q ?A<Q @A<Q AA<Q BA<Q CA
<Q DBC ED FA<Q GA<Q HA<Q IA<Q JI? KA<Q LK? MI@ NK@ OIA PKA QHJLMNOP RGQ SA<Q TA<Q UA<Q VSTU?@A WFRV Xg zero? YAX<Q ZYA [f $step size must not be zero in :range \A[<Q ]S\ ^FZ] _A<Q `A<Q ag * bAa<Q cg max dAc<Q eg ceiling fAe<Q gg / hAg<Q iA<Q ji@? khjA lfk mdCl nbmA o`?n p_Bo qW^p r? sg = tAs<Q uB v> wA<Q xA yg m-46961e513b-315 zyC {zDDD |f l-46961e513b-31a }f l-46961e513b-31b ~f l-46961e513b-31c f l-46961e513b-31d |}~ Ep{ z f l-46961e513b-317 EH DF AQ AQ AQ A
Q A Q DF AQ @ ? ???? X zDDDD f l-46961e513b-323 f l-46961e513b-324 f l-46961e513b-325 f l-46961e513b-326 f l-46961e513b-327 E DF AQ AQ A
Q A Q f l-46961e513b-32e f l-46961e513b-32f f l-46961e513b-330 f l-46961e513b-331 f l-46961e513b-332 E} DF AQ AQ AQ A Q ????? X- zDDDDD f l-46961e513b-339 f l-46961e513b-33a f l-46961e513b-33b f l-46961e513b-33c f l-46961e513b-33d f l-46961e513b-33e E DF AQ AQ A Q f l-46961e513b-346 f l-46961e513b-347 f l-46961e513b-348 f l-46961e513b-349 f l-46961e513b-34a f l-46961e513b-34b E3 DF AQ AQ AQ ?????? X-2 zDDDDDD f l-46961e513b-353 f l-46961e513b-354 f l-46961e513b-355 f l-46961e513b-356 f l-46961e513b-357 f l-46961e513b-358 f l-46961e513b-359 E DF AQ AQ AQ AQ AQ g istop AQ A
Q AQ AQ AQ g real? AQ AQ f %arguments of :real-range are not real AQ AQ AQ AQ g exact->inexact AQ AgQ AQ A|Q
AQ AaQ
AQ A Q g m-46961e513b-361 C f l-46961e513b-363 EH DF AQ @ ? ????? DDDDD f l-46961e513b-366 f l-46961e513b-367 f l-46961e513b-368 f l-46961e513b-369 f l-46961e513b-36a !f l-46961e513b-36b " ! #E" $D#F %A$Q &A$Q 'A$Q (DDDD )f l-46961e513b-373 *f l-46961e513b-374 +f l-46961e513b-375 ,f l-46961e513b-376 -f l-46961e513b-377 .)*+,- /E}(. 0D/F 1A0Q 2A0Q 3g imax 4A30Q 5g
char->integer 6A50Q 7A0Q 8g <= 9A80Q :974 ;g
integer->char <A;0Q =<7 >= ?A0Q @A0Q AA 0Q B@7A CB D?C Eg m-46961e513b-37d FEC GF Hf l-46961e513b-37f IH JEHGI KDFJ LAKQ M@L NM? ONg P?O Q?P R?Q SFDDDDD Tf l-46961e513b-382 Uf l-46961e513b-383 Vf l-46961e513b-384 Wf l-46961e513b-385 Xf l-46961e513b-386 Yf l-46961e513b-387 ZTUVWXY [EbSZ \D[FJ ]A\Q ^A\Q _A\Q `FDDD af l-46961e513b-390 bf l-46961e513b-391 cf l-46961e513b-392 df l-46961e513b-393 eabcd fE;`e gDfFJ hAgQ ig read jAigQ kj lFDDDD mf l-46961e513b-399 nf l-46961e513b-39a of l-46961e513b-39b pf l-46961e513b-39c qf l-46961e513b-39d rmnopq sE}lr tDsFJ uAtQ vAtQ wg port xAwtQ yg read-proc zAytQ {zx |{ }AtQ ~g eof-object? A~tQ v AtQ | g m-46961e513b-3a3 C f l-46961e513b-3a5 EH DF AQ @ ? h ? ? ? g dispatch X DDDDDD f l-46961e513b-3a8 f l-46961e513b-3a9 f l-46961e513b-3aa f l-46961e513b-3ab f l-46961e513b-3ac f l-46961e513b-3ad f l-46961e513b-3ae E DF AQ AQ AQ X DDDDD f l-46961e513b-3b8 f l-46961e513b-3b9 f l-46961e513b-3ba f l-46961e513b-3bb f l-46961e513b-3bc f l-46961e513b-3bd E DF AQ AQ g d AQ g args AQ AQ AQ AQ g empty AQ AQ AQ AQ g
procedure? AQ AQ f %unrecognized arguments in dispatching AQ g quote AQ g eq? AQ AQ ?g X g m-46961e513b-3c5 C DD f l-46961e513b-3ca f l-46961e513b-3cb f l-46961e513b-3cc E f l-46961e513b-3c7 EH DF AQ AQ DF AQ @ AQ @ g g each y T ??T ?? g lv g li g v X
DDDDDDDDDDD f l-46961e513b-3d2 f l-46961e513b-3d3 f l-46961e513b-3d4 f l-46961e513b-3d5 f l-46961e513b-3d6 f l-46961e513b-3d7 f l-46961e513b-3d8 f l-46961e513b-3d9 f l-46961e513b-3da f l-46961e513b-3db f l-46961e513b-3dc f l-46961e513b-3dd E DF A Q AQ
g map
g ne2 A
Q AQ AQ g lambda AQ AQ AQ AQ AzQ AQ g value A Q ! "X #D $f l-46961e513b-3f4 %f l-46961e513b-3f5 &$% 'E"#& (D'F )A(Q *f illegal macro call +A*(Q ,)+ -f dispatching conflict .g length /g SRFI42 0g string? 1g input-port? 2g char? 3g list? 4g vector? 5g vector->list 6g
:-dispatch 7f not a procedure 8g m-46961e513b-3f8 98C :9 ;f l-46961e513b-3fa <; =EH:< >DF= ?A>Q @@? A@? BAg C?B D?C E?D F9DDDDD Gf l-46961e513b-3fd Hf l-46961e513b-3fe If l-46961e513b-3ff Jf l-46961e513b-400 Kf l-46961e513b-401 Lf l-46961e513b-402 MGHIJKL NEbFM ODNF= PAOQ QAOQ RA6OQ S9DDDD Tf l-46961e513b-40b Uf l-46961e513b-40c Vf l-46961e513b-40d Wf l-46961e513b-40e Xf l-46961e513b-40f YTUVWX ZESY [DZF= \A[Q ]A6[Q ^g m-46961e513b-416 _^C `_ af l-46961e513b-418 ba cEH`b dDFc eABdQ f@e gfT hgj i?h j?i kg x0 lg etc2 mg etc3 nXkkYmlmZ o_DDDDDDD pf l-46961e513b-41b qf l-46961e513b-41c rf l-46961e513b-41d sf l-46961e513b-41e tf l-46961e513b-41f uf l-46961e513b-420 vf l-46961e513b-421 wf l-46961e513b-422 xpqrstuvw yEnox zDyFc {A%zQ |ABzQ }?, ~?} XkklmlmZ f l-46961e513b-42e f l-46961e513b-42f f l-46961e513b-430 f l-46961e513b-431 f l-46961e513b-432 f l-46961e513b-433 f l-46961e513b-434 f l-46961e513b-435 Eo DFc A%Q ABQ g f1 g f2 Xk _DDDD f l-46961e513b-440 f l-46961e513b-441 f l-46961e513b-442 f l-46961e513b-443 f l-46961e513b-444 E DFc A%Q ABQ g qualifier Xk _DDDDD f l-46961e513b-44b f l-46961e513b-44c f l-46961e513b-44d f l-46961e513b-44e f l-46961e513b-44f f l-46961e513b-450 E DFc AQ AQ AQ AQ AQ A!Q A Q AQ AzQ AQ g m-46961e513b-457 C f l-46961e513b-459 EH DF ABQ @ T i ?Č ?Ō XkkYmlZ DDDDDD f l-46961e513b-45c f l-46961e513b-45d f l-46961e513b-45e f l-46961e513b-45f f l-46961e513b-460 f l-46961e513b-461 f l-46961e513b-462 E DF A$Q ABQ XkklmlZ f l-46961e513b-46d f l-46961e513b-46e f l-46961e513b-46f f l-46961e513b-470 f l-46961e513b-471 f l-46961e513b-472 f l-46961e513b-473 E DF A$Q ABQ Xk DDD f l-46961e513b-47d f l-46961e513b-47e f l-46961e513b-47f f l-46961e513b-480 E DF A$Q ABQ Xk DDDD f l-46961e513b-486 f l-46961e513b-487 f l-46961e513b-488 f l-46961e513b-489 f l-46961e513b-48a E DF AQ AQ A!Q AQ g reverse XmZ g m-46961e513b-490 C DD f l-46961e513b-495 f l-46961e513b-496 f l-46961e513b-497 E f l-46961e513b-492
EH DF
A Q
A$ Q A Q g cons A Q g apply g m-46961e513b-49c C DD f l-46961e513b-4a1 f l-46961e513b-4a2 f l-46961e513b-4a3 E f l-46961e513b-49e EH DF !A Q "Ad Q #A' Q $g list->string %g m-46961e513b-4a8 &%C '&DD (f l-46961e513b-4ad )f l-46961e513b-4ae *f l-46961e513b-4af +()* ,E'+ -& .f l-46961e513b-4aa /. 0EH-/ 1D,F0 2A$1Q 3A'1Q 4g m-46961e513b-4b4 54C 65DD 7f l-46961e513b-4b9 8f l-46961e513b-4ba 9f l-46961e513b-4bb :789 ;E6: <5 =f l-46961e513b-4b6 >= ?EH<> @D;F? AA@Q BA@Q CA'@Q Dg list->vector Eg m-46961e513b-4c0 FEC GFDD Hf l-46961e513b-4c5 If l-46961e513b-4c6 Jf l-46961e513b-4c7 KHIJ LEGK MF Nf l-46961e513b-4c2 ON PEHMO QDLFP RADQQ SA'QQ Tg m-46961e513b-4cc UTC VU Wf l-46961e513b-4ce XW YEHVX ZDFY [ABZQ \@[ ]\T ^]h _?^ `?_ aXkYmZ bUDDDDD cf l-46961e513b-4d1 df l-46961e513b-4d2 ef l-46961e513b-4d3 ff l-46961e513b-4d4 gf l-46961e513b-4d5 hf l-46961e513b-4d6 icdefgh jEabi kDjFY lA0kQ mABkQ nXklmZ of l-46961e513b-4e0 pf l-46961e513b-4e1 qf l-46961e513b-4e2 rf l-46961e513b-4e3 sf l-46961e513b-4e4 tf l-46961e513b-4e5 uopqrst vEnbu wDvFY xA0wQ yABwQ zX {UDD |f l-46961e513b-4ee }f l-46961e513b-4ef ~f l-46961e513b-4f0 |}~ Ez{ DFY A0Q ABQ X UDDD f l-46961e513b-4f5 f l-46961e513b-4f6 f l-46961e513b-4f7 f l-46961e513b-4f8 E DFY AQ ApQ AQ g make-vector AQ AQ A
Q A!Q AQ A|Q AzQ g vector-set! AQ AQ AQ A Q AQ f )vector is too short for the comprehension AQ AsQ f (vector is too long for the comprehension AQ g m-46961e513b-4fd C DD f l-46961e513b-502 f l-46961e513b-503 f l-46961e513b-504 E f l-46961e513b-4ff EH DF A$Q AQ g m-46961e513b-509 C DD f l-46961e513b-50e f l-46961e513b-50f f l-46961e513b-510 E f l-46961e513b-50b EH DF A$Q AaQ g m-46961e513b-515 C DD f l-46961e513b-51a f l-46961e513b-51b f l-46961e513b-51c E f l-46961e513b-517 EH DF A%Q g min AQ g m-46961e513b-521 C DD f l-46961e513b-526 f l-46961e513b-527 f l-46961e513b-528 E f l-46961e513b-523 EH DF A%Q AcQ g m-46961e513b-52d C f l-46961e513b-52f EH DF ABQ @ T h ? ? g default X kYmZ DDDDD f l-46961e513b-532 f l-46961e513b-533 f l-46961e513b-534 f l-46961e513b-535 f l-46961e513b-536
f l-46961e513b-537
E
D F A&
Q AB
Q X klmZ f l-46961e513b-541 f l-46961e513b-542 f l-46961e513b-543 f l-46961e513b-544 f l-46961e513b-545 f l-46961e513b-546 E D F A& Q AB Q X DD f l-46961e513b-54f f l-46961e513b-550 f l-46961e513b-551 ! "E ! #D "F $A& #Q %AB #Q & % 'X (DDD )f l-46961e513b-556 *f l-46961e513b-557 +f l-46961e513b-558 ,f l-46961e513b-559 - ) * + , .E ' ( - /D .F 0A /Q 1A /Q 2A! /Q 3A /Q 4 1 5g m-46961e513b-55e 6 5C 7 6 8f l-46961e513b-560 9 8 :EH 7 9 ;DF : <AB ;Q =@ < > =T ? >h @? ? A? @ B 6DDDDD Cf l-46961e513b-563 Df l-46961e513b-564 Ef l-46961e513b-565 Ff l-46961e513b-566 Gf l-46961e513b-567 Hf l-46961e513b-568 I C D E F G H JE B I KD JF : LA# KQ MAB KQ Nf l-46961e513b-572 Of l-46961e513b-573 Pf l-46961e513b-574 Qf l-46961e513b-575 Rf l-46961e513b-576 Sf l-46961e513b-577 T N O P Q R S UE B T VD UF : WA# VQ XAB VQ Y 6DD Zf l-46961e513b-580 [f l-46961e513b-581 \f l-46961e513b-582 ] Z [ \ ^E Y ] _D ^F : `A# _Q aAB _Q b a c 6DDD df l-46961e513b-587 ef l-46961e513b-588 ff l-46961e513b-589 gf l-46961e513b-58a h d e f g iE ' c h jD iF : kA jQ lA jQ mA jQ nA jQ o m n p o qg ec-guarded-do-ec rA q jQ sAB jQ tAz jQ uA jQ vA jQ w u m v x w y l zg m-46961e513b-58f { zC | { }f l-46961e513b-591 ~ } EH | ~ DF AB Q @ T T ?? ? Xkl{ {DDDD f l-46961e513b-594 f l-46961e513b-595 f l-46961e513b-596 f l-46961e513b-597 f l-46961e513b-598 E D F A q Q AB Q A Q @ ? T ?? ? XY{ f l-46961e513b-5a1 f l-46961e513b-5a2 f l-46961e513b-5a3 f l-46961e513b-5a4 f l-46961e513b-5a5 E D F A Q A q Q AB Q A Q @ ? T ?? ? f l-46961e513b-5ad f l-46961e513b-5ae f l-46961e513b-5af f l-46961e513b-5b0 f l-46961e513b-5b1 E D F A Q A Q A q Q AB Q A Q @ T T ?? ? f l-46961e513b-5b9 f l-46961e513b-5ba f l-46961e513b-5bb f l-46961e513b-5bc f l-46961e513b-5bd E D F A Q A Q A q Q AB Q A Q @ T T ̌ ?? ? f l-46961e513b-5c6 f l-46961e513b-5c7 f l-46961e513b-5c8 f l-46961e513b-5c9 f l-46961e513b-5ca E D F A Q A Q A q Q AB Q Az Q @ T T ތ ?? ? XZY{ f l-46961e513b-5d3 f l-46961e513b-5d4 f l-46961e513b-5d5 f l-46961e513b-5d6 f l-46961e513b-5d7 E D F Az Q A q Q AB Q g ?? ? XY{ f l-46961e513b-5e0 f l-46961e513b-5e1 f l-46961e513b-5e2 f l-46961e513b-5e3 f l-46961e513b-5e4 E D F A! Q A Q A q Q AB Q ?? ? X{ {DD
f l-46961e513b-5ec
f l-46961e513b-5ed
f l-46961e513b-5ee
E
D
F
A!
Q
g m-46961e513b-5f2
C
f l-46961e513b-5f4
EH
DF
AB
Q
@
T
h
?
XkYmZ
DDDD
f l-46961e513b-5f7
f l-46961e513b-5f8
f l-46961e513b-5f9
f l-46961e513b-5fa
f l-46961e513b-5fb
E
D
F
A
Q
AB
Q
f l-46961e513b-604
f l-46961e513b-605
!f l-46961e513b-606
"f l-46961e513b-607
#f l-46961e513b-608
$
!
"
#
%En
$
&D
%F
'A
&Q
(AB
&Q
)X
*
D
+f l-46961e513b-610
,f l-46961e513b-611
-
+
,
.E
)
*
-
/D
.F
0A
/Q
1AB
/Q
2
1
3X
4
DD
5f l-46961e513b-615
6f l-46961e513b-616
7f l-46961e513b-617
8
5
6
7
9E
3
4
8
:D
9F
;A#
:Q
<A
:Q
=A
:Q
>A
:Q
?
>
@g m-46961e513b-61b
A
@C
B
A
Cf l-46961e513b-61d
D
C
EEH
B
D
FDF
E
GAB
FQ
H@
G
I
HT
J
Ih
K?
J
L
ADDDD
Mf l-46961e513b-620
Nf l-46961e513b-621
Of l-46961e513b-622
Pf l-46961e513b-623
Qf l-46961e513b-624
R
M
N
O
P
Q
SE
L
R
TD
SF
E
UA"
TQ
VAB
TQ
Wf l-46961e513b-62d
Xf l-46961e513b-62e
Yf l-46961e513b-62f
Zf l-46961e513b-630
[f l-46961e513b-631
\
W
X
Y
Z
[
]En
L
\
^D
]F
E
_A"
^Q
`AB
^Q
a
AD
bf l-46961e513b-639
cf l-46961e513b-63a
d
b
c
eE
)
a
d
fD
eF
E
gA"
fQ
hAB
fQ
i
h
j
ADD
kf l-46961e513b-63e
lf l-46961e513b-63f
mf l-46961e513b-640
n
k
l
m
oE
3
j
n
pD
oF
E
qA#
pQ
rA
pQ
sA
pQ
tA
pQ
uA
pQ
v
u C 5 h ]4
15 44 > " G 45i46i5 7> " G 4:!;>Wcf h M ]45C E g dummy
g q g etc Cjx h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy h > ]C 6 g dummy
g cmd C h P ] C H g dummy
g test g cmd C h P ] C H g dummy
g test g cmd C h P ] C H g dummy
g test g cmd C h P ] C H g dummy
g test g cmd Cf h O ]4 5C G g dummy
g etc g cmd C h , 3 C g dummy
g olet g lbs g ne1? g ilet g ne2? g lss g cmd C h p ] C h g dummy
g g g arg1 g arg g cmd C h ]Q4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g tmp g tmp
g filenamef srfi/srfi-42/ec.scm
: g
macro-typeg syntax-rulesg patternsg nestedg qg ... g etcg ... g q1g q2g etc1g etcg ... g cmd g ifg test g cmd g notg test g cmd g andg testg ... g cmd g org testg ... g cmd g beging etcg ... g cmd g :dog oletg lbsg ne1?g iletg ne2?g lss g cmd g gg arg1g argg ... g cmd C5!R4:;> f!" h` ,
3
44 5 5 C g dummy
Y g cmd Y g obs Y g oc Y g lbs Y g ne1? Y g ibs Y g ic Y g ne2? Y g ls Y
Y
C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
g " g
macro-typeg syntax-rulesg patternsg cmdg :dog letg obsg ocg ... g lbsg ne1?g letg ibsg icg ... g ne2?g lsg ... C5R4: ;>/h E ]C = g dummy
g
consequent C2= h E ]C = g dummy
g
consequent C? h \ ]C T g dummy
g
consequent g alternate CA h \ ]C T g dummy
g
consequent g alternate CGPQ h W ] C O g dummy
g test g
consequent CS^_ h n ] C f g dummy
g test g
consequent g alternate Cdlm h B ] C : g dummy
g command
Cqwx h B ] C : g dummy
g command
C{f h g ]45 C _ g dummy
g done g to-do1 g to-do2 Cf h f ]4 5 C^ g dummy
g done g to-do1 g to-do C h - ]C % g dummy
C h B ]C : g dummy
g command C h X ]C P g dummy
g command1 g command Cy h E ]C = g dummy
g
expression C hP ]q4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5
$
@4 5 $ @ 6 g x
M g tmp M g tmp " M g tmp 9 M g tmp P M g tmp g M g tmp ~ M g tmp M g tmp M g tmp M g tmp
M g tmp M g tmp M g tmp
M g tmp 6 M g filenamef srfi/srfi-42/ec.scm
M g
macro-typeg syntax-rulesg patternsg ifg
consequent g ifg
consequent g ifg
consequentg alternate g ifg
consequentg alternate g ifg notg notg test g
consequent g ifg notg notg test g
consequentg alternate g letg commandg ... g beging commandg ... g doneg beging to-do1g ... g to-do2g ... g doneg ... g to-do1g to-dog ... g command g command1g commandg ... g
expression C5 R4:;>f h , 3 6 g dummy
g cc g olet g lbs g ne1? g ilet g ne2? g lss C h q ] C i g dummy
g cc g lbs g ne1? g lss C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg ccg ... g oletg lbsg ne1?g iletg ne2?g lss g ccg lbsg ne1?g lss C5R4:;> h u ] Cm g dummy
g cc g var g i g
expression C h f ] C ^ g dummy
g cc g var g
expression C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g
expression g ccg varg
expression C5R4:;>y h = ]C 5 g dummy
g cc C h ] C x g dummy
g cc g g g arg1 g arg g gen C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg cc g ccg gg arg1g argg ... g geng ... C5R4:;>+ h ] C g dummy
g cc g g g arg1 g arg g gen g result C4^_`fa hh g , 3 4 54 54
5 4545 4
5 C _ g dummy
e g cc e g gens e g ob1 e g oc1 e g lb1 e g ne1?1 e g ib1 e g ic1 e g ne2?1 e g ls1
e g ob2 e g oc2 e g lb2
e g ne1?2 e g ib2 e g ic2 e g ne2?2 e g ls2 e e Cbf h Q ] 6 I g dummy
g cc
g result
C
hP H ]4 5 $ @4 5 $ @4 5 $ @ 6@ g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g geng ... g result g ccg gensg :dog letg ob1g ... g oc1g ... g lb1g ... g ne1?1g letg ib1g ... g ic1g ... g ne2?1g ls1g ... g :dog letg ob2g ... g oc2g ... g lb2g ... g ne1?2g letg ib2g ... g ic2g ... g ne2?2g ls2g ... g ccg ... g result C5R4: ;>cv h ] C y g dummy
g cc g g g arg1 g arg g test C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g test C5 R4:d;> h( , 3 C g dummy
$ g cc $ g test $ g olet $ g lbs $ g ne1? $ g ilet $ g ne2? $ g lss $ $ C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
> " g
macro-typeg syntax-rulesg patternsg ccg testg :dog oletg lbsg ne1?g iletg ne2?g lss C5dR4:;>f hh 0 , 3 454
54 5 4 5
C ( g dummy
a g cc a g test a g ib-let a g ib-save a g
ib-restore a g olet a g lbs a g ne1? a g ib-var a g ib-rhs
a g ib a g ic a g ne2?
a g lss a a Cf hX ,
3
45 4
5 C g dummy
R g cc R g test R g ib-let R g ib-save R g
ib-restore R g ob R g oc R g lbs R g ne1? R g ic
R g ne2? R g lss R
R
C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
C 9 g
macro-typeg syntax-rulesg patternsg ccg testg ib-letg ... g ib-saveg ... g
ib-restoreg ... g :dog oletg lbsg ne1?g letg ib-varg ib-rhs g ibg ... g icg ... g ne2?g lss g ccg testg ib-letg ... g ib-saveg ... g
ib-restoreg ... g :dog letg obg ... g ocg ... g lbsg ne1?g letg icg ... g ne2?g lss C5R4:;>c h ] C y g dummy
g cc g g g arg1 g arg g test C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
n " g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g test C5R4:;> h( , 3 C g dummy
& g cc & g test & g olet & g lbs & g ne1? & g ilet & g ne2? & g lss & & C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
s " g
macro-typeg syntax-rulesg patternsg ccg testg :dog oletg lbsg ne1?g iletg ne2?g lss C5R4:;> )*+ h n ] C f g dummy
g cc g var g i g arg C,9: h ] C { g dummy
g cc g var g arg1 g arg2 g arg CDFHMEQW h0 _ ] C W g dummy
* g cc * g var * g arg * * C
hP + ]4 5 $ @4 5 $ @4 5 $ @ 6# g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
} P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g argg ... g ccg varg arg1g arg2g argg ... g ccg varg arg C5R4:;>blmotz{}~
hP n ]
C f g dummy
M g cc M g var M g i M g arg M M C h ] C g dummy
g cc g var g i g arg1 g arg2 g arg Cj h q ]C i g dummy
g cc g var g arg1 g arg C
hP D ]4 5 $ @4 5 $ @4 5 $ @ 6< g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg g ccg varg indexg i g arg1g arg2g argg ... g ccg varg arg1g argg ... C5R4: ;> h _ ] CW g dummy
g cc g var g arg C
hP n ]
C f g dummy
M g cc M g var M g i M g arg M M C h( ] C g dummy
" g cc " g var " g i " g arg1 " g arg2 " g arg " " C, #( hH ]
C { g dummy
A g cc A g var A g arg1 A g arg2 A g arg A A C hh t ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 l g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg ccg varg arg g ccg varg indexg i g arg g ccg varg indexg i g arg1g arg2g argg ... g ccg varg arg1g arg2g argg ... C5 R h0 ] ( C4 5
$ 6 4 5C g vecs
, g filenamef srfi/srfi-42/ec.scm
" # ( . * +
, g nameg ec-:vector-filter CR4:;>3=?@AC h0 ] ] C U g dummy
, g cc , g var , g i , , CDMOPQS h N ] C F g dummy
g cc g var C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g ccg var C5R4:;>amno h ] C x g dummy
g cc g var g i g arg1 g arg Cyz| h ` ]C X g dummy
g cc g var g arg1 C h r ]C j g dummy
g cc g var g arg1 g arg2 C h@ ` ]
C X g dummy
9 g cc 9 g var 9 g arg2 9 9 C h@ ` ]
C X g dummy
9 g cc 9 g var 9 g arg2 9 9 C
h@ r ]
Cj g dummy
@ g cc @ g var @ g arg1 @ g arg2 @ @ C
()*+,-.0 hH r ]
C j g dummy
A g cc A g var A g arg1 A g arg2 A A C1=>?@AEqrGtuvw`x hP ]
C | g dummy
N g cc N g var N g arg1 N g arg2 N g arg3 N N C h ' ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g filenamef srfi/srfi-42/ec.scm
g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg1 g ccg varg arg1g arg2 g ccg var
g arg2 g ccg var
g arg2 g ccg varg arg1g arg2 g ccg varg arg1g arg2 g ccg varg arg1g arg2g arg3 C5R4:;> h ` ]C X g dummy
g cc g var g arg1 C h o ] C g g dummy
g cc g var g i g arg1 C h r ]C j g dummy
g cc g var g arg1 g arg2 C h ] C y g dummy
g cc g var g i g arg1 g arg2 C1 h ] C | g dummy
g cc g var g arg1 g arg2 g arg3 C
hh ]
C g dummy
d g cc d g var d g i d g arg1 d g arg2 d g arg3 d d C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g filenamef srfi/srfi-42/ec.scm
5 g
macro-typeg syntax-rulesg patternsg ccg varg arg1 g ccg varg indexg i g arg1 g ccg varg arg1g arg2 g ccg varg indexg i g arg1g arg2 g ccg varg arg1g arg2g arg3 g ccg varg indexg i g arg1g arg2g arg3 C5R4:;>%&' h ] C y g dummy
g cc g var g i g arg1 g arg2 C12467:>D hH r ] C j g dummy
A g cc A g var A g arg1 A g arg2 A A C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
X 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g arg2 g ccg varg arg1g arg2 C5R4:;>R]^_ h ] C x g dummy
g cc g var g i g arg1 g arg Chk h _ ]C W g dummy
g cc g var g arg Cuvxz|} h8 r ] Cj g dummy
8 g cc 8 g var 8 g arg1 8 g arg2 8 8 C
hP % ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
j P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg g ccg varg arg1g arg2 C5R4:;> h ] C g dummy
g cc g var g i g dispatch g arg1 g arg C,
hH ]
C g dummy
A g cc A g var A g dispatch A g arg1 A g arg A A C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
~ 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g dispatchg arg1g argg ... g ccg varg dispatchg arg1g argg ... C5R4:;> h M ]C E g dummy
g g g arg C f h : ] C2 g tmp-46961e513b-3ec
C h Z ] C R g tmp-46961e513b-3f1
g tmp-46961e513b-3f0 C h Z ] C R g tmp-46961e513b-3ee
g tmp-46961e513b-3ed C ! h , 3 4445545
4454
4 5 55 5 C g dummy
g var g obs g oc g lv g li g ne1? g i g v g ic g ne2?
g ls Cy, h > ]C 6 g dummy
g var C
hP s ]4 5 $ @4 5 $ @4 5 $ @ 6k g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg gg argg ... g varg :dog letg obsg ocg ... g lvg li g ... g ne1?g letg ig v g ... g icg ... g ne2?g lsg ... g var C5Rd- hp ? ]4L 54L 5 $ K$ B ( ($ " $ " 6 4L 54L56C$ CC7 g args
p g g1 p g g2 p g filenamef srfi/srfi-42/ec.scm
& + / : , = A L , N R U 5 X 9 Z 5 [ > ^ B ` > b k
p C h ] O C z g d1
g d2 g filenamef srfi/srfi-42/ec.scm
g nameg dispatch-union C R./ h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C0v h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% C h( m ] MM$ L MNM MNC C e g empty
! g value g filenamef srfi/srfi-42/ec.scm
! C h( m ] MM$ M MNM MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
# C1i~ h m ] 4M5# M 4L L5NC Ce g empty
g value g filenamef srfi/srfi-42/ec.scm
C h m ] ML $ M MNC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
C~ h m ] 4M5# M 4L L5NC Ce g empty
g value g filenamef srfi/srfi-42/ec.scm
C25; h( m ] ML$ 4M5N M MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
# C h( m ] MM$ M MNM MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
# C h m ] ML $ M MNC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
C hP m ] MM$ " "M( " MNMN4M5N
N$ MMN M MNC C e g empty
L g value ? I g filenamef srfi/srfi-42/ec.scm
L C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% Cd h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C h( m ] MM$ M LMNM MNC C e g empty
$ g value ! g filenamef srfi/srfi-42/ec.scm
$ C[ceh m ] MM# M ML NC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
C hP m ] MM$ " "M( " MNMN4M5N
N$ MMN M MNC C e g empty
L g value ? I g filenamef srfi/srfi-42/ec.scm
L C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% C h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C h( ]( C4 5$
"C g pred
% g args % g filenamef srfi/srfi-42/ec.scm
" ) # % g nameg every? C3 h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% C4
5h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C 1 h
]I4 5
$ C $ S $ HHO C45$
H45K
HHO C$
H45K
HHO C" 4 5$
HH" 4
J > " G " 4 J5$ " "4 J5$ $4 5 $
4
J5K" " J K
HHO C45$ 45HO CC45$ 4 5$
HO C"$" $ & " /45$ "45$ 45HO CCC" ?45$ 045$ !45 45HHO C""" 4 5$ 4 5$
HH" 4
J > " G " 4 J5$ " "4 J5$ $4 5 $
4
J5K" " J K
HHO C" "" J45$ ;4 5$ ,45$ 4 5$ HO C""""" @$ 5$ *
4 5HHH
HH O C"v"r" :45$ +4 5
H 45K
HH O C"$ #$ 4 5HH O C"" $ \ " 4 5$ 4 5$ 4 5$
HH" 4
J> " G " 4 J5$ " "4 J5$ 54 5 $ " 4 5 $
4
J5K" " JK
HH!O CCCC" 45$ 4 5$ 45$ y4 5$ j45$ [4 5$ L
H
$ 4
"> " G " 4#
4$55KH%O C""""""" M$ B$ 7$ ,
4 5HHH
HH & O C""
" " K45$ <45$ -4 5
H 45K
HH'O C"h"d$ 0$ %$ 4 5HH(O C""~"z)O Q 4* 5$ 4 ?HH+O C4 5$ )4 ?
H 45K
HH,O C4- 5$ 4 4./ 5?HH0O CC
g args
g key g a1 ! q g t , ; g var / ; g len G f g i S f g var V f g len n g i z g var } g a g istop g t g i
g var g read-proc - D g var 6 D g var ] i g a1 g a2 g var g imax g i g var g a g istop g t a h g i g var g var g vec , g len , g vecs , g k , g var , g str M n g len M n g i [ n g var ^ n g t g var g a1 g a2 g a3 g a z g istop z g t - E g i e z g var h z g stop g var g vec S o g len S o g vecs S o g k Z o g var ] o g str g len g i g var g t g var g every?
g t & 5 g var ) 5 g str J k g len J k g i X k g var [ k g t g var Hg filenamef srfi/srfi-42/ec.scm
! ! & *
, < F
G i m
n
! +
- F
G Q
R " \ ] z } %
%
" . <
! 4
9 C
D r
u y
| % 6
*
" " " *
1 5
8 ! < ? . C F {
.
*
# & 6 B C % J l x y # | 1 # C h j ] C b g filenamef srfi/srfi-42/ec.scm
g nameg make-initial-:-dispatch C(R4(i5 6R6 h a ] C Y g filenamef srfi/srfi-42/ec.scm
g nameg :-dispatch-ref C
R76 h0 ]4 5$ " 4 > " G C g dispatch
+ g filenamef srfi/srfi-42/ec.scm
!
"
" # #
# ) $ + g nameg :-dispatch-set! CR4: ;>EPQR h ] C x g dummy
g cc g var g i g arg1 g arg Cj\] h q ]C i g dummy
g cc g var g arg1 g arg C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
' 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg1g argg ... C5 R4:%;>j{|f h( , 3 4 5C g dummy
( g x0 ( g q1 ( g q ( g etc1 ( g etc2 ( g etc3 ( g etc ( ( C~ h( , 3 C g dummy
" g x0 " g q1 " g q2 " g etc1 " g etc2 " g etc3 " g etc " " C h u ] C m g dummy
g x0 g
expression g f1 g f2 C1 hP ]
C g dummy
P g x0 P g qualifier P g
expression P g f1 P g f2 P P C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
3 g g
macro-typeg syntax-rulesg patternsg x0g nestedg q1g ... g qg etc1g etc2g etc3g etcg ... g x0g q1g q2g etc1g etc2g etc3g etcg ... g x0g
expressiong f1g f2 g x0g qualifierg
expressiong f1g f2 C5%R4:$;>f h( ]4 5C g dummy
! g x0 ! g q1 ! g q ! g etc1 ! g etc2 ! g etc ! ! C} h ] C g dummy
g x0 g q1 g q2 g etc1 g etc2 g etc C h e ] C] g dummy
g x0 g
expression g f2 C h0 | ] C t g dummy
* g x0 * g qualifier * g
expression * g f2 * * C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
G g g
macro-typeg syntax-rulesg patternsg x0g nestedg q1g ... g qg etc1g etc2g etcg ... g x0g q1g q2g etc1g etc2g etcg ... g x0g
expressiong f2 g x0g qualifierg
expressiong f2 C5$R4:';>h
f h P ]45 C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
Z " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5'R4: ;>h!"# h P ] C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
f " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5 R4:-;>h23 h P ] CH g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
k " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5-R4:,;>hABC h P ] C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
w " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5,R4:/;>hRS h P ] CH g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
| " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5/R4:0;>`lmf h ~ ]4 5C v g dummy
g k g q1 g q g etc1 g etc C,xy h ] Cw g dummy
g k g q1 g q2 g etc1 g etc CD h T ] C L g dummy
g k g
expression C h@ k ]
C c g dummy
< g k < g qualifier < g
expression < < C hh h ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 ` g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg kg nestedg q1g ... g qg etc1g etcg ... g kg q1g q2g etc1g etcg ... g kg
expression g kg qualifierg
expression C50R4:.;>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5.R4:+;>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5+R4:*;>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5*R4:);>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5)R4:&;> f h ]4 5C | g dummy
g default g q1 g q g etc1 g etc C, h ] C} g dummy
g default g q1 g q2 g etc1 g etc CD $ & h Z ] C R g dummy
g default g
expression C 0 1 2 3 4 h( q ] C i g dummy
$ g default $ g qualifier $ g
expression $ $ C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 x g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg defaultg nestedg q1g ... g qg etc1g etcg ... g defaultg q1g q2g etc1g etcg ... g defaultg
expression g defaultg qualifierg
expression C5&R4:#;> A L Mf h ]4 5C | g dummy
g default g q1 g q g etc1 g etc C, W X h ] C} g dummy
g default g q1 g q2 g etc1 g etc CD ` b h Z ] C R g dummy
g default g
expression C k l p r m s t u x y h8 q ]
C i g dummy
1 g default 1 g qualifier 1 g
expression 1 1 C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 x g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg defaultg nestedg q1g ... g qg etc1g etcg ... g defaultg q1g q2g etc1g etcg ... g defaultg
expression g defaultg qualifierg
expression C5#R4: q;> f h p ]45 Ch g dummy
g stop g q1 g q2 g cmd C h q ] Ci g dummy
g stop g test g q g cmd C h q ] C i g dummy
g stop g test g q g cmd C h q ] C i g dummy
g stop g test g q g cmd C h q ] C i g dummy
g stop g test g q g cmd C f h p ]4 5C h g dummy
g stop g etc g q g cmd C h p ] C h g dummy
g stop g gen g q g cmd C
h P ] C H g dummy
g stop
g cmd
C h ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g filenamef srfi/srfi-42/ec.scm
g
macro-typeg syntax-rulesg patternsg stopg nestedg nestedg q1g ... g q2g ... g cmd g stopg nestedg ifg test g qg ... g cmd g stopg nestedg notg test g qg ... g cmd g stopg nestedg andg testg ... g qg ... g cmd g stopg nestedg org testg ... g qg ... g cmd g stopg nestedg beging etcg ... g qg ... g cmd g stopg nestedg geng qg ... g cmd g stopg nested g cmd C5 qR4: ;>
f h o ]4 5C g g dummy
g q1 g q g etc1 g etc Cj
'
( h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy
0
2 h E ] C = g dummy
g
expression CD
;
<
=
? h \ ] C T g dummy
g qualifier g
expression C hh T ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 L g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg nestedg q1g ... g qg etc1g etcg ... g q1g q2g etc1g etcg ... g
expression g qualifierg
expression C5 R4:";>
K
U
Vf h o ]4 5C g g dummy
g q1 g q g etc1 g etc Cj
_
` h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy
g
i h E ] C = g dummy
g
expression CD
q
r
s
t
v h \ ] C T g dummy
g qualifier g
expression C hh T ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 L g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg nestedg q1g ... g qg etc1g etcg ... g q1g q2g etc1g etcg ... g
expression g qualifierg
expression C5"RC g m
( g filenamef srfi/srfi-42.scm
) ?
. ? 6 ? & ; ?
g filenamef srfi/srfi-42/ec.scm A)
f
!
ó
C6 PK ! l ذ{ { srfi/srfi-2.gonu [ GOOF----LE-8-2.0c ] 4 h{ ] g guile g define-module* g srfi g srfi-2 g filenameS
f srfi/srfi-2.scm g importsS g ice-9
g and-let-star
g
re-exportsS g and-let* g set-current-module g cond-expand-provide g current-module C 5h@ i ]4
5 4 > " G i4i5 6 a g m
, g filenamef srfi/srfi-2.scm
1 9 & ;
;
C6 PK ! }HU U ice-9/popen.gonu [ GOOF----LE-8-2.0U ]j 4 h, ] g guile g define-module* g ice-9 g popen g filenameS
f ice-9/popen.scm g importsS g threads
g srfi g srfi-9 g exportsS g port/pid-table g
open-pipe* g open-pipe g
close-pipe g open-input-pipe g open-output-pipe g open-input-output-pipe g set-current-module g load-extension !g
string-append "f libguile- #g effective-version $f scm_init_popen %g <pipe-info> &g %make-pipe-info-procedure 'g make-syntax-transformer (' )' *g make-pipe-info +g macro ,g $sc-dispatch -, ., /g _ 0g any 1/0 2g
syntax-object 3g lambda 4g m-18e47d61-4 5g top 645 7g ribcage 8g t-18e47d61-3 98 :6 ;f l-18e47d61-9 <; =79:< >7 ?g x @? Af l-18e47d61-6 BA C7@:B Dg shift Eg proc-name Fg args GEF H5 IHH Jf l-1e8ba8b5a-60 Kf l-1e8ba8b5a-61 LJK M7GIL Ng key Og value Pg name Qg formals Rg body SNOPQR THHHHH Uf l-1e8ba8b5a-53 Vf l-1e8ba8b5a-54 Wf l-1e8ba8b5a-55 Xf l-1e8ba8b5a-56 Yf l-1e8ba8b5a-57 ZUVWXY [7STZ \g make-procedure-name ]\ ^H _f l-1e8ba8b5a-43 `_ a7]^` bH cf l-1e8ba8b5a-42 dc e7@bd f6=>CD>>>>M[ae
gg hygiene hg i23fh jg pid kH=>C lg m2jkl nm og make-struct pg m-18e47d61-1 qp5 rg t-1e8ba8b5a-133 sg t-1e8ba8b5a-132 tg t-1e8ba8b5a-131 urst vg m-1e8ba8b5a-134 wv5 xwww yf l-1e8ba8b5a-138 zf l-1e8ba8b5a-139 {f l-1e8ba8b5a-13a |yz{ }7ux| ~g ctor-args ~ f l-1e8ba8b5a-120 7b g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d 7I g form g type-name g constructor-spec g field-names HHHH f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 7 g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers HHHHHHHH 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 7 f l-1e8ba8b5a-da 7@b q=>CD>}>>>> 2oh 2%kl 2
h m in g each-any / g syntax-violation f Wrong number of arguments g identifier? H>C 2&l f -source expression failed to match any pattern g record-type-vtable g pw g default-record-printer j g set-struct-vtable-name! g vtable-offset-user g %pipe-info?-procedure g
pipe-info? g
m-18e47d61-11 5 g
t-18e47d61-10 f
l-18e47d61-16 7 f
l-18e47d61-13 7@ >D>>>>M[ae
23h 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 5 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 7 g copier-id f l-1e8ba8b5a-21c 7b g ctor-name f l-1e8ba8b5a-214 7b f l-1e8ba8b5a-212 7b g layout f l-1e8ba8b5a-210 7b g
immutable? f l-1e8ba8b5a-20e
7b g field-count
f l-1e8ba8b5a-20c
7 b g
getter-ids f l-1e8ba8b5a-209 7b g field-ids f l-1e8ba8b5a-206 7b g predicate-name g
field-spec HHHHHH f l-1e8ba8b5a-1f9 f l-1e8ba8b5a-1fa f l-1e8ba8b5a-1fb !f l-1e8ba8b5a-1fc "f l-1e8ba8b5a-1fd #f l-1e8ba8b5a-1fe $ !"# %7 $ &q>D>>>>>>> >>
>>>% '2&h (' )g and *2)&h +g struct? ,2+&h -,' .g eq? /2.&h 0g
struct-vtable 120&h 21' 3H> 42%3l 5/24 6*-5 7(6 8H> 928l :g throw-bad-struct ;: <: =g
pipe-info-pid >g %pipe-info-pid-procedure ?g free-id @g
%%on-error Ag
m-18e47d61-1d BA5 CB Df
l-18e47d61-1f ED F7@CE GB>FD>>>>M[ae H2@Gh I?H JI0 Kg %%type Lg t-1e8ba8b5a-14b Mg t-1e8ba8b5a-14c Ng t-1e8ba8b5a-14d Og t-1e8ba8b5a-14e Pg t-1e8ba8b5a-14f Qg t-1e8ba8b5a-150 Rg t-1e8ba8b5a-151 SLMNOPQR Tg m-1e8ba8b5a-152 UT5 VUUUUUUU Wf l-1e8ba8b5a-156 Xf l-1e8ba8b5a-157 Yf l-1e8ba8b5a-158 Zf l-1e8ba8b5a-159 [f l-1e8ba8b5a-15a \f l-1e8ba8b5a-15b ]f l-1e8ba8b5a-15c ^WXYZ[\] _7SV^ `g getter ag index b`a cf l-1e8ba8b5a-149 df l-1e8ba8b5a-14a ecd f7bIe g hHHH if l-1e8ba8b5a-144 jf l-1e8ba8b5a-145 kf l-1e8ba8b5a-146 lijk m7ghl nq>FD>_>>>f>m o2Knh p?o q/Jp0 rg ck sg err tg s ust vBB wf
l-18e47d61-22 xf
l-18e47d61-23 ywx z7uvy {Bz>FD>>>>M[ae
|2r{h }g quote ~2}{h Hz>F 2%l ~ g %%index 2nh ? /J0 f
l-18e47d61-27 f
l-18e47d61-28 7uv B>FD>>>>M[ae
2rh 2}h >F 2
l g %%copier 2nh ? /J0 f
l-18e47d61-2c f
l-18e47d61-2d 7uv B>FD>>>>M[ae
2rh 2}h g %%<pipe-info>-set-fields H>F 2l g
t-18e47d61-1c f
l-18e47d61-31 7C B>FD>>>>M[ae
23h q>FD>_>>>f>m 2th g if 2h 2.h 20h H>F 2%l g
struct-ref 2h >F 2
l 2:h 2}h 2=l H>F 2>l g each 00 0Č 0Ō 0ƌ g %%set-fields g dummy g check? g expr t` g
m-18e47d61-38 5 qqqq f
l-18e47d61-3d f
l-18e47d61-3e f
l-18e47d61-3f f
l-18e47d61-40 f
l-18e47d61-41 7 f
l-18e47d61-3a 7@ g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d 5 f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 7 f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 7gh q>D>>>>
2h H> 2%l 2=l g map g list g set-pipe-info-pid! g %set-pipe-info-pid!-procedure /00 g
m-18e47d61-4c 5 g
t-18e47d61-4a g
t-18e47d61-4b f
l-18e47d61-51 f
l-18e47d61-52 7 f
l-18e47d61-4e 7@ >D>>>>M[ae
23h g t-1e8ba8b5a-18c
g t-1e8ba8b5a-18d
g m-1e8ba8b5a-18e
5
f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 7 g setter P` f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 7h a f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e 7I g field-specs !f l-1e8ba8b5a-179 "f l-1e8ba8b5a-17a #!" $7 I# %q>D>> >$ &2t%h 'g val (2'%h )&( *2%h +2.%h ,20%h -,& .H> /2%.l 0+-/ 1g struct-set! 221%h 3> 42
3l 52&4( 62:%h 72}%h 82.l 978 :6&9 ;*05: <); =H> >2=l ?g make-soft-port @g
write-char Ag display Bg force-output Cg read-char Dg
close-port Ef r+ Fg make-rw-port Gg
make-guardian Hg
pipe-guardian Ig make-weak-key-hash-table Jg
make-mutex Kg port/pid-table-mutex Lg apply Mg open-process Ng %make-void-port Og %set-port-property! Pg popen-pipe-info Qg
lock-mutex R
Q S
Q Tg unlock-mutex U
T V
T Wg
hashq-set! Xf /bin/sh Yf -c Zg %port-property [g fetch-pipe-info \g waitpid ]g
close-process ^g error _f -close-pipe: port not created by (ice-9 popen) `f (close-pipe: pid has already been cleared ag catch bg system-error cg WNOHANG dg
reap-pipes eg add-hook! fg
after-gc-hook gg OPEN_READ hg
OPEN_WRITE ig OPEN_BOTHC 5h@% 4 ]4
5 4 > " G 4 i4!i"4#i5 5$> " G % h y ] C q g pid
g filenamef ice-9/popen.scm
g nameg %make-pipe-info-procedure C&R4)*+.1 h 4 ] C , g t-18e47d61-3
C* h R ]L 6 J g a
g filenamef ice-9/popen.scm
C/ h B ] L 6: g filenamef ice-9/popen.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/popen.scm
n C5*R%Ȩ 4 %> " G Ζ&i %R% h u ] $ CC m g obj
g filenamef ice-9/popen.scm
g nameg %pipe-info?-procedure CR4)+.17 h 5 ] C - g
t-18e47d61-10
C h R ]L 6 J g a
g filenamef ice-9/popen.scm
C/ h B ] L 6: g filenamef ice-9/popen.scm
C9 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/popen.scm
n C5R%<= h v ] &
C 6n g s
g filenamef ice-9/popen.scm
g nameg %pipe-info-pid-procedure C>R4)=+.q| h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C1 h 5 ] C - g
t-18e47d61-1c
C= h R ]L 6 J g a
g filenamef ice-9/popen.scm
C/ h B ] L 6: g filenamef ice-9/popen.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/popen.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/popen.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R%< h ] &
C 6 g s
g val g filenamef ice-9/popen.scm
g nameg %set-pipe-info-pid!-procedure CR4)+.< h P ] C H g
t-18e47d61-4a
g
t-18e47d61-4b C h R ]L 6 J g a
g filenamef ice-9/popen.scm
C/ h B ] L 6: g filenamef ice-9/popen.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/popen.scm
n C5R?@ h Z ] L 6 R g c
g filenamef ice-9/popen.scm
&
&
CA h Z ] L 6 R g s
g filenamef ice-9/popen.scm
'
'
CB h J ] L 6B g filenamef ice-9/popen.scm
( (
CC h J ] L 6B g filenamef ice-9/popen.scm
) )
CD h R ] 4L> " G L 6 J g filenamef ice-9/popen.scm
* * * &
CE h0 ]O O O O O 6 g read-port
0 g
write-port 0 g filenamef ice-9/popen.scm
#
, % . + 0 $ 0 g nameg make-rw-port CFR4Gi5 HR4Ii 5R4Ji5 KRLMFN%HOPKS h B ] L 6: g filenamef ice-9/popen.scm
O
CV h B ] L 6: g filenamef ice-9/popen.scm
O
CW h - 1 3 4 > G $ $
45" " $ " $ " $ " 4 5 4> " G 4> " G
O O 4
O > " G V4
> " G X4 O > " G C g mode
g command g args g read-port g
write-port g pid g t B r g port y g pipe-info y g x
g filenamef ice-9/popen.scm
7
? > ) A 0 B B A i E y F y A ~ K L L " L O P
O
g nameg
open-pipe*g
documentationf [Executes the program @var{command} with optional arguments
@var{args} (all strings) in a subprocess.
A port to the process (based on pipes) is created and returned.
@var{mode} specifies whether an input, an output or an input-output
port to the process is created: it should be the value of
@code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}. CRXY h ] 6 g command
g mode g filenamef ice-9/popen.scm
T
Z
Z Z g nameg open-pipeg
documentationf ;Executes the shell command @var{command} (a string) in a subprocess.
A port to the process (based on pipes) is created and returned.
@var{mode} specifies whether an input, an output or an input-output
port to the process is created: it should be the value of
@code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}. CRZP h ] 6 x g port
g filenamef ice-9/popen.scm
\
]
]
g nameg fetch-pipe-info C[RD\ h ]4 > " G 45C g port
g pid g filenamef ice-9/popen.scm
_
` a a g nameg
close-process C]R[^_%<=`]
h ]4 5 $ " 4> " G &
" 45 $ " 4> " G &
" 4> " G 6 g p
g pipe-info g pid A g filenamef ice-9/popen.scm
c
g g h i i
i * j A j I k N l R l W l b n o g nameg
close-pipeg
documentationf Closes the pipe created by @code{open-pipe}, then waits for the process
to terminate and returns its status value, @xref{Processes, waitpid}, for
information on how to interpret this value. CRH%<=ab\cH%< h8 ]4L 5
$ L6L& L
CL6 g
pid/status
3 g filenamef ice-9/popen.scm
} ~ " ~ 3
C h X - 1 3 C P g args
g filenamef ice-9/popen.scm
C hh ]" Y45 $ J &
" 4 5 $ !4 O > " G " "C" g pipe-info
_ g pid - Y g filenamef ice-9/popen.scm
q
r s s t u - u 5 w
6 | : | J | ] _ r c
g nameg
reap-pipes CdR4eifidi> " G g h ] 6 g command
g filenamef ice-9/popen.scm
g nameg open-input-pipeg
documentationf 9Equivalent to @code{open-pipe} with mode @code{OPEN_READ} CRh h ] 6 g command
g filenamef ice-9/popen.scm
g nameg open-output-pipeg
documentationf :Equivalent to @code{open-pipe} with mode @code{OPEN_WRITE} CRi h ] 6 g command
g filenamef ice-9/popen.scm
g nameg open-input-output-pipeg
documentationf 9Equivalent to @code{open-pipe} with mode @code{OPEN_BOTH} CRC, g m
, g rtd
} g filenamef ice-9/popen.scm
- 2 8 ! 9 - A C H
#
/ " /
# 4 / 4
0 5 ; 5
A 7
S T
\
_
b c
"5 q
"6
#G
$A
%>
%@
C6 PK ! j> ice-9/regex.gonu [ GOOF----LE-8-2.0r ] 3 4 h ] g guile g define-module* g ice-9 g regex g filenameS
f ice-9/regex.scm g exportsS g match:count
g match:string g match:prefix g match:suffix g
regexp-match? g regexp-quote g match:start g match:end g match:substring g string-match g regexp-substitute g fold-matches g list-matches g regexp-substitute/global
g set-current-module g
vector-length g substring g string? !g integer? "g call-with-output-string #g string-for-each $g
write-char %g make-regexp &g regexp-exec 'g for-each (g display )g pre *g post +g error ,g wrong-type-arg -g regexp? .g
regexp/notbol /g
string-length 0g reverse! 1g cons 2g
procedure?C 5 h ]4
5 4 > " G h } ]4 5C u g match
g filenamef ice-9/regex.scm
;
<
< g nameg match:count C R h v ]
C n g match
g filenamef ice-9/regex.scm
>
? g nameg match:string C
R
h ]4 5
4
56 ~ g match
g filenamef ice-9/regex.scm
A
B
B $ B g nameg match:prefix CR
h ]4 54
56 ~ g match
g filenamef ice-9/regex.scm
D
E
E " E g nameg match:suffix CR ! hp M ] $ a4
5$ R" G4 5$ C $ +4 5$ 4 5$ "CCC "CC E g match
l g i a g filenamef ice-9/regex.scm
J
K K
L L L K M N $ N ( N / O 0 O 4 N 5 P < P $ = P ? P C O D Q K Q $ L Q N Q R O U R [ R a M l g nameg
regexp-match? CR"#$ h ] *$ " = .$ " / \$ " ! ^$ " $$ " [$ 4\L > " G L 6 ($ " K )$ " = +$ " / ?$ " ! {$ " }$ " |$ 04[L > " G 4 L > " G ]L 6 L 6 g c
g filenamef ice-9/regex.scm
g h R j m k v h m n o q
C h Z ] O L 6 R g p
g filenamef ice-9/regex.scm
f g C h w ] O 6 o g string
g filenamef ice-9/regex.scm
d
e
g nameg regexp-quote CR h0 - . , 3 #
$ CC g match
, g n , g start , g filenamef ice-9/regex.scm
t
u & u u u # v ' v , g nameg match:start CR h0 - . , 3 #
$ CC g match
, g n , g end , g filenamef ice-9/regex.scm
x
y % y y y # z ' z , g nameg match:end CR
hP - . , 3 #
4 5 4 5 $ $ 4 56CC g match
J g n J g start J g end ) J g filenamef ice-9/regex.scm
|
} } ! ~ ) } 1 : F J g nameg match:substring CR%& h0 - 1 3 4 5$ "
6 g pattern
- g str - g args - g rx - g start - g filenamef ice-9/regex.scm
- -
g nameg string-match CR' (!)*+, hh ]4 5$ L64 5$ 4L 5L6 &
4L 5L6 &
4L 5L6
6 g obj
a g filenamef ice-9/regex.scm
) # 2 / ) 1 7 : 2 D ) F L O 2 Y ) ] % a a C" h \ ] LL @ T g p
g filenamef ice-9/regex.scm
C h0 - 1 3 $ O 6O 6 g port
+ g match + g items + g filenamef ice-9/regex.scm
+ +
g nameg regexp-substitute CR-%./& h 2 - . , 3 #
4 5$ " 4 5 " H
$
" K 45$ " 4J 5
$ P" 4
54
5 "4
54
5$ $ "y""C
"` * g regexp
g string g init g proc g flags g regexp - g start 3 g value 3 g abuts 3 g bol 4 g m
j g filenamef ice-9/regex.scm
' , - 3 9 > J Q U [ h 4 j j r w ~
"
g nameg fold-matches CR01 h( - . , 3 #
4 56 g regexp
' g string ' g flags ' g filenamef ice-9/regex.scm
( % ' ' g nameg list-matches CR( (!2) *+,
h E ]4 5$ L64 5$ 4L 5L64 5$
4 L 5L6 & 4LL4L 55L6 & LL4
L 56 6 = g item
g filenamef ice-9/regex.scm
& # / / & 0 : = / G & K O R Y - a e i m r s . { g nameg do-item C hx \ ] ( 4L5L6 " OO LL LQ $ *( 64> " G "CL " T g matches
w g start w g m w g items o g do-item - o g filenamef ice-9/regex.scm
? C F J O ! Q R W # \ g % m o w g nameg
next-match C" h \ ] LLL @ T g p
g filenamef ice-9/regex.scm
C hH - 1 3 $ $O Q 45
6O 6 g port
B g regexp B g string B g items B g
next-match 3 g filenamef ice-9/regex.scm
( 3 B B
g nameg regexp-substitute/global CRC g m
( g filenamef ice-9/regex.scm '
;
Y >
A
D
J
j d
j t
f x
|
C6 PK ! G ice-9/futures.gonu [ GOOF----LE-8-2.0 ]w 4 hS ] g guile g define-module* g ice-9 g futures g filenameS
f ice-9/futures.scm g importsS g srfi
g srfi-1
g srfi-9 g gnu g srfi-11 g q g match g control ! " ! #g exportsS $g future %g make-future &g future? 'g touch ($%&' )g set-current-module *) +) ,g <future> -g %%make-future-procedure .g make-syntax-transformer /. 0. 1g %make-future 2g macro 3g $sc-dispatch 43 53 6g _ 7g any 867777 9g
syntax-object :g lambda ;g m-3eebb96279-7 <g top =;< >g ribcage ?g t-3eebb96279-3 @g t-3eebb96279-4 Ag t-3eebb96279-5 Bg t-3eebb96279-6 C?@AB D==== Ef l-3eebb96279-c Ff l-3eebb96279-d Gf l-3eebb96279-e Hf l-3eebb96279-f IEFGH J>CDI K> Lg x ML N= Of l-3eebb96279-9 PO Q>MNP Rg shift Sg proc-name Tg args UST V< WVV Xf l-1e8ba8b5a-60 Yf l-1e8ba8b5a-61 ZXY [>UWZ \g key ]g value ^g name _g formals `g body a\]^_` bVVVVV cf l-1e8ba8b5a-53 df l-1e8ba8b5a-54 ef l-1e8ba8b5a-55 ff l-1e8ba8b5a-56 gf l-1e8ba8b5a-57 hcdefg i>abh jg make-procedure-name kj lV mf l-1e8ba8b5a-43 nm o>kln pV qf l-1e8ba8b5a-42 rq s>Mpr t=JKQRKKKK[ios
ug hygiene vu w9:tv xg thunk yVJKQ zu {9xyz |g state }9|yz ~g mutex 9~yz g
completion 9yz {} g make-struct g m-3eebb96279-1 < g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 < f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a > g ctor-args f l-1e8ba8b5a-120 >p g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d >W g form g type-name g constructor-spec g field-names VVVV f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 > g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers VVVVVVVV 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 > f l-1e8ba8b5a-da >Mp JKQRKKKKK 9v 9,yz 9
v JKQ 9z {} w g each-any 6Ɍ g syntax-violation f Wrong number of arguments g identifier? VKQ 9-z f -source expression failed to match any pattern g record-type-vtable g
pwpwpwpwpw g default-record-printer g result x|~ g set-struct-vtable-name! g vtable-offset-user g %future?-procedure 67 g m-3eebb96279-1a < g t-3eebb96279-19 f l-3eebb96279-1f > f l-3eebb96279-1c >M KRKKKK[ios
9:v 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 < 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 >
g copier-id
f l-1e8ba8b5a-21c
> p
g ctor-name f l-1e8ba8b5a-214 >p f l-1e8ba8b5a-212 >p g layout f l-1e8ba8b5a-210 >p g
immutable? f l-1e8ba8b5a-20e !> p "g field-count #" $f l-1e8ba8b5a-20c %$ &>#p% 'g
getter-ids (' )f l-1e8ba8b5a-209 *) +>(p* ,g field-ids -, .f l-1e8ba8b5a-206 /. 0>-p/ 1g predicate-name 2g
field-spec 3 12 4VVVVVV 5f l-1e8ba8b5a-1f9 6f l-1e8ba8b5a-1fa 7f l-1e8ba8b5a-1fb 8f l-1e8ba8b5a-1fc 9f l-1e8ba8b5a-1fd :f l-1e8ba8b5a-1fe ;56789: <>34; =KRK KKKKKKK K!K&K+K0< >9=v ?> @g and A9@=v Bg struct? C9B=v DC> Eg eq? F9E=v Gg
struct-vtable H9G=v IH> JVK K9,Jz LFIK MADL N?M OVK P9Oz Qg throw-bad-struct RQ SQ Tg future-thunk Ug %future-thunk-procedure Vg free-id Wg
%%on-error Xg m-3eebb96279-26 YX< ZY [f l-3eebb96279-28 \[ ]>MZ\ ^YK]RKKKK[ios _9W^v `V_ a`7 bg %%type cg t-1e8ba8b5a-14b dg t-1e8ba8b5a-14c eg t-1e8ba8b5a-14d fg t-1e8ba8b5a-14e gg t-1e8ba8b5a-14f hg t-1e8ba8b5a-150 ig t-1e8ba8b5a-151 jcdefghi kg m-1e8ba8b5a-152 lk< mlllllll nf l-1e8ba8b5a-156 of l-1e8ba8b5a-157 pf l-1e8ba8b5a-158 qf l-1e8ba8b5a-159 rf l-1e8ba8b5a-15a sf l-1e8ba8b5a-15b tf l-1e8ba8b5a-15c unopqrst v>jmu wg getter xg index ywx zf l-1e8ba8b5a-149 {f l-1e8ba8b5a-14a |z{ }>yW| ~'
VVV f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 >~ K]RKvKKK}K 9bv V 6a7 g ck g err g s YY f l-3eebb96279-2b f l-3eebb96279-2c > YK]RKKKK[ios
9v g quote 9v VK] 9,z g %%index 9v V 6a7 f l-3eebb96279-30 f l-3eebb96279-31 > YK]RKKKK[ios
9v 9v K] 9
z g %%copier 9v V 6a7 f l-3eebb96279-35 f l-3eebb96279-36 > YK]RKKKK[ios
9v 9v g %%<future>-set-fields VK] 9z g t-3eebb96279-25 f l-3eebb96279-3a >Z YK]RKKKK[ios
9:v K]RKvKKK}K 9v g if 9v 9Ev 9Gv VK] 9,z g
struct-ref 9v K] 9
z 9Qv 9v 9Tz VK] 9Uz g future-state g %future-state-procedure g m-3eebb96279-41 < f l-3eebb96279-43 >M KRKKKK[ios 9Wv V 7 KRKvKKK}K 9bv V 67 f l-3eebb96279-46 f l-3eebb96279-47 > KRKKKK[ios
9v 9v VK 9,z 9v V 67 f l-3eebb96279-4b f l-3eebb96279-4c > KRKKKK[ios
9v 9v K 9 z 9v V 67 f l-3eebb96279-50 f l-3eebb96279-51 >
KRKKKK[ios
9
v 9
v
V K 9
z g t-3eebb96279-40 f l-3eebb96279-55 > KRKKKK[ios
9:v KRKvKKK}K 9v 9v 9Ev 9Gv VK 9, z ! "9v #K $9 #z %"$ &9Qv '9v (9 z )'( *&) +!%* ,+ -VK .9-z /g
future-result 0g %future-result-procedure 1g m-3eebb96279-5c 21< 32 4f l-3eebb96279-5e 54 6>M35 72K6RKKKK[ios 89W7v 9V8 :97 ;K6RKvKKK}K <9b;v =V< >6:=7 ?22 @f l-3eebb96279-61 Af l-3eebb96279-62 B@A C>?B D2CK6RKKKK[ios
E9Dv F9Dv GVCK6 H9,Gz IFH JI K9;v LVK M6:L7 Nf l-3eebb96279-66 Of l-3eebb96279-67 PNO Q>?P R2QK6RKKKK[ios
S9Rv T9Rv UQK6 V9 Uz WTV XW Y9;v ZVY [6:Z7 \f l-3eebb96279-6b ]f l-3eebb96279-6c ^\] _>?^ `2_K6RKKKK[ios
a9`v b9`v cV_K6 d9cz ebd fe gg t-3eebb96279-5b hg if l-3eebb96279-70 ji k>h3j l2kK6RKKKK[ios
m9:lv nkK6RKvKKK}K o9nv po q9nv r9Env s9Gnv tso uVkK6 v9,uz wrtv x9nv ykK6 z9 yz {xoz |9Qnv }9nv ~9/uz }~ |o qw{ mp VK6 90z g future-mutex g %future-mutex-procedure g m-3eebb96279-77 < f l-3eebb96279-79 >M KRKKKK[ios 9Wv V 7 KRKvKKK}K 9bv V 67 f l-3eebb96279-7c f l-3eebb96279-7d > KRKKKK[ios
9v 9v VK 9,z 9v V 67 f l-3eebb96279-81 f l-3eebb96279-82 > KRKKKK[ios
9v 9v K 9 z 9v V 67 f l-3eebb96279-86 f l-3eebb96279-87 > KRKKKK[ios
9v 9v VK 9z g t-3eebb96279-76 f l-3eebb96279-8b > KRKKKK[ios
9:v KRKvKKK}K 9v 9v 9Ev 9Gv VK 9,z 9v K 9 z 9Qv 9v 9z VK 9z g future-completion g %future-completion-procedure g m-3eebb96279-92 < f l-3eebb96279-94 >M KRKKKK[ios 9Wv V 7 KRKvKKK}K 9bv V 67 f l-3eebb96279-97 f l-3eebb96279-98 > KRKKKK[ios
9v 9v VK 9,z 9v V 67 f l-3eebb96279-9c f l-3eebb96279-9d > KRKKKK[ios
9v 9v K 9 z 9v V 67 f l-3eebb96279-a1 f l-3eebb96279-a2
>
KRKKKK[ios
9 v 9 v V K 9z g t-3eebb96279-91 f l-3eebb96279-a6 > KRKKKK[ios
9:v KRKvKKK}K 9v 9v 9Ev 9Gv !VK "9,!z # " $9v %K &9 %z '$& (9Qv )9v *9!z +)* ,(+ - #', . - /VK 09/z 1g each 277 312 473 574 675 7g %%set-fields 8g dummy 9g check? :g expr ;89w: <g m-3eebb96279-ad =<< >= ?f l-3eebb96279-b2 @f l-3eebb96279-b3 Af l-3eebb96279-b4 Bf l-3eebb96279-b5 Cf l-3eebb96279-b6 D?@ABC E>;>D F= Gf l-3eebb96279-af HG I>MFH Jg t-1e8ba8b5a-16a Kg t-1e8ba8b5a-16c Lg t-1e8ba8b5a-16b MJKL Ng m-1e8ba8b5a-16d ON< POOO Qf l-1e8ba8b5a-171 Rf l-1e8ba8b5a-172 Sf l-1e8ba8b5a-173 TQRS U>MPT Vf l-1e8ba8b5a-167 Wf l-1e8ba8b5a-168 Xf l-1e8ba8b5a-169 YVWX Z>~Y [EKIRKUKKKZ
\97[v ]VEKI ^9,]z _9T]z `9]z a9/]z b9]z c9]z d_`abc eg map fe ge hg list ig set-future-thunk! jg %set-future-thunk!-procedure k677 lg m-3eebb96279-c1 ml< ng t-3eebb96279-bf og t-3eebb96279-c0 pno qmm rf l-3eebb96279-c6 sf l-3eebb96279-c7 trs u>pqt vm wf l-3eebb96279-c3 xw y>Mvx zmuKyRKKKK[ios
{9:zv |g t-1e8ba8b5a-18c }g t-1e8ba8b5a-18d ~|} g m-1e8ba8b5a-18e < f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 >~ g setter ^w f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 > 2x f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e >W g field-specs f l-1e8ba8b5a-179 f l-1e8ba8b5a-17a >W uKyRKKK 9v g val 9v 9v 9Ev 9Gv VuKy 9,z g struct-set! 9v uKy 9
z 9Qv 9v 9iz { VKy 9jz g set-future-state! g %set-future-state!-procedure g m-3eebb96279-d1 < g t-3eebb96279-cf g t-3eebb96279-d0 f l-3eebb96279-d6 f l-3eebb96279-d7 > f l-3eebb96279-d3 >M KRKKKK[ios
9:v KRKKK 9v 9v 9v 9Ev 9Gv VK 9,z 9v K 9 z 9Qv 9v 9z VK 9z g set-future-result! g %set-future-result!-procedure g m-3eebb96279-e1 < g t-3eebb96279-df g t-3eebb96279-e0 f l-3eebb96279-e6 f l-3eebb96279-e7 > f l-3eebb96279-e3 >M KRKKKK[ios
9:v KRKKK 9v 9v 9v 9Ev 9Gv VK 9,z 9v K 9 z 9Qv 9v 9z VK 9z g set-record-type-printer! g
simple-format f #<future ~a ~a ~s> g number->string
g object-address g create-workers! g
make-mutex
g make-condition-variable g queued g register-future! g make-q g %futures g %futures-mutex g %futures-available g %futures-waiting g make-parameter g %nesting-level g %max-nesting-level g
with-mutex 7Ɍ 7 7 g let g m g e0 g e1 8 !g m-3eebb96279-12b "!< #"VVV $f l-3eebb96279-130 %f l-3eebb96279-131 &f l-3eebb96279-132 'f l-3eebb96279-133 ($%&' )> #( *" +f l-3eebb96279-12d ,+ ->M*, .V)K- /9 .z 09L.z 1g dynamic-wind 291.z 39:.z 4g
lock-mutex 594.z 650 736 8g begin 998.z :g unlock-mutex ;9:.z <;0 =3< >= ?g make-prompt-tag @g %future-prompt Ag enq! Bg signal-condition-variable Cg let/ec Dg catch Eg
parameter? FE GE Hg scm-error Ig wrong-type-arg Jf parameterize Kf Not a parameter: ~S Lg done Mg
alist-cons Ng abort-to-prompt Og throw Pg process-future! Qg q-empty? Rg deq! Sg started Tg notify-completion Ug process-one-future Vg wait-condition-variable Wg process-futures Xg broadcast-condition-variable Yg partition Zg error [ Z \ Z ]f no matching pattern ^g for-each _g provided? `g threads ag current-processor-count bg
%worker-count cg %workers dg unfold eg call-with-new-thread fg 1+ gg %create-workers! h8` ig m-3eebb96279-259 ji< kjV lf l-3eebb96279-25e mf l-3eebb96279-25f nlm o>hkn pj qf l-3eebb96279-25b rq s>Mpr tVoKs u9%tz v9:tz C 5 hHU ]4
"#(5 4+ > " G , h ] C g thunk
g state g mutex g
completion g filenamef ice-9/futures.scm
0
g nameg %%make-future-procedure C-R401258 h ] C g t-3eebb96279-3
g t-3eebb96279-4 g t-3eebb96279-5 g t-3eebb96279-6 C1 h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
n C51R,ߨ 4 ,> " G -i ,R, h t ] $ CC l g obj
g filenamef ice-9/futures.scm
0
g nameg %future?-procedure CR40&25N h 7 ] C / g t-3eebb96279-19
C& h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
CP 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/futures.scm
0
n C5&R,ST h w ] &
C 6o g s
g filenamef ice-9/futures.scm
0
g nameg %future-thunk-procedure CUR40T25 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 7 ] C / g t-3eebb96279-25
CT h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
C5TR,S h w ] & C 6o g s
g filenamef ice-9/futures.scm
0
g nameg %future-state-procedure CR4025 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 7 ] C / g t-3eebb96279-40
C h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
C5R,S/ h x ] & C 6 p g s
g filenamef ice-9/futures.scm
0
g nameg %future-result-procedure C0R40/25>EJ h : ]C 2 g err
g s CMSX h : ]C 2 g err
g s C[af h : ]C 2 g err
g s C h 7 ] C / g t-3eebb96279-5b
C/ h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
C5/R,S h w ] & C 6 o g s
g filenamef ice-9/futures.scm
0
g nameg %future-mutex-procedure CR4025 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 7 ] C / g t-3eebb96279-76
C h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
C5R,S h | ] & C 6 t g s
g filenamef ice-9/futures.scm
0
g nameg %future-completion-procedure CR4025 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 7 ] C / g t-3eebb96279-91
C h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
C0 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/futures.scm
0
C5R40256\^dgh 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/futures.scm
0
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R,Si h ] &
C 6 g s
g val g filenamef ice-9/futures.scm
0
g nameg %set-future-thunk!-procedure CjR40i25k h T ] C L g t-3eebb96279-bf
g t-3eebb96279-c0 Ci h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
n C5iR,S h ] & C 6 g s
g val g filenamef ice-9/futures.scm
0
g nameg %set-future-state!-procedure CR4025k h T ] C L g t-3eebb96279-cf
g t-3eebb96279-d0 C h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
n C5R,S h ] & C 6 g s
g val g filenamef ice-9/futures.scm
0
g nameg %set-future-result!-procedure CR4025k h T ] C L g t-3eebb96279-df
g t-3eebb96279-e0 C h T ]L 6 L g a
g filenamef ice-9/futures.scm 0
C6 h D ] L 6< g filenamef ice-9/futures.scm 0
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/futures.scm
0
n C5R4i,i
,ST hP ]44 5 5 & " 4 5 &
" 4 56 g future
L g port L g filenamef ice-9/futures.scm
; < = = " = > 3 ? L < L C> " G
, hP ]4> " G 45 45 4> " G C g thunk
K g mutex 4 g
completion 4 g future 4 K g filenamef ice-9/futures.scm
A
E G G + F & F $ . F 4 F 7 H
K g nameg make-futureg
documentationf Return a new future for THUNK. Execution may start at any point
concurrently, or it can start at the time when the returned future is
touched. C%R4i5 R4 i5 R4
i5 RR4i
5R R4025/02739> h0 \ ] C T g dummy
) g m ) g e0 ) g e1 ) ) C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/futures.scm
d
" g
macro-typeg syntax-rulesg patternsg mg e0g e1g ... C5R4?i5 @R4AB: h@ ]4> " G 4 > " G 4> " G 6 g future
@ g filenamef ice-9/futures.scm
r
t u ) v @ w @ g nameg register-future! CRCD@GHIJK,ST
hp ] 4 5$ " 4 > " G 4 45 5Y4L & L
" 4L 5> ZCZF g t-3eebb96279-16a
i g filenamef ice-9/futures.scm ( < < A 8 C ( F * i
C4 h E ] L 6= g filenamef ice-9/futures.scm
C: h E ] L 6= g filenamef ice-9/futures.scm
C,S4 h E ] L 6= g filenamef ice-9/futures.scm
C: h E ] L 6= g filenamef ice-9/futures.scm
Ci4 h E ] L 6= g filenamef ice-9/futures.scm
C: h E ] L 6= g filenamef ice-9/futures.scm
CLABMN h N ] L E F g filenamef ice-9/futures.scm
" $
C h ] U 4LO > X" G O O 4O > " G VL& L " 4L5 O
O 4 O > " G VL& L
" 4L > " G L& L " 4L
> " G X4
O > " G & " 45 O O 4O > " G V& " 45& *4L> " G 4> " G "
4L5 X4O > " G 4L > X4O > " G " G O C g cont
g future-to-wait g x % g x f g x g results
g filenamef ice-9/futures.scm
% N f , 8 ; ! V W k
CO h N ] L @F g filenamef ice-9/futures.scm
C h Z - 1 3 O C R g args
g filenamef ice-9/futures.scm
C,S h` ] U D4 O 5 & " 4 > " G XCXFG E g future
_ g tag _ g val ! O g _ T _ g results T _ g filenamef ice-9/futures.scm
y
! W _ g nameg process-future!g
documentationf *Process FUTURE. When FUTURE completes, return #t and update its
result; otherwise, when FUTURE touches a nested future that has not
completed yet, then suspend it and return #f. Suspending a future
consists in capturing its continuation, marking it as `queued', and
adding it to the waiter queue. CPRQR4,SLS:P4 h E ] L 6= g filenamef ice-9/futures.scm
C: h E ] L 6= g filenamef ice-9/futures.scm
C4 h E ] L 6= g filenamef ice-9/futures.scm
C: h E ] L 6= g filenamef ice-9/futures.scm
CT h ](45 $ C45 4 & " 4 5> " G & " 4 5 $ "
$ & " 4 564 & " 4 5> " G 4 > " G 4 & " 4 5> " G & " 4 5
& B &
" 4 > " G 4 & " 4 5> " G 4 5 $ O O 4O > " G V & " 4 5 O O 4O > " G V & " 4 > " G 4 > " G X4O > " G X4O > " G " " +4 & " 4 5> " G 6 g t
g future
g key b g done? | ` g x Y g x @ g filenamef ice-9/futures.scm
# @ K b * " % 0 + 1 K P m v | # 3 ) B e j -
g nameg process-one-futureg
documentationf 9Attempt to pick one future from the queue and process it. CUR4QVU hX ] 4> " G " 745$ 4> " G " 4> " G "" g filenamef ice-9/futures.scm
# $ < O O
S
g nameg process-futuresg
documentationf ,Continuously process futures from the queue. CWRX,SY\ ] h( x ] $ L C4 56 p g expr
% g w g filenamef ice-9/futures.scm
% C^A\ ] h( x ] $ 64 56 p g expr
' g x g filenamef ice-9/futures.scm
' C
hX 0 ]4 & " 4 5> " G 4 O > G 6 ( g future
R g waiting ? R g remaining ? R g filenamef ice-9/futures.scm
% . B J R R g nameg notify-completiong
documentationf 9Notify futures and callers waiting that FUTURE completed. CTR4Q:,S4 h E ] L 6= g filenamef ice-9/futures.scm
C: h E ] L 6= g filenamef ice-9/futures.scm
CLVU h ]4> " G 45$ 4> " G L & L " 4L 5 O
O 4 O > " G V L & L " 4L 5& " >4
L & L " 4L 5L & L " 4L 5> X4
O > " G CX4
O > " G F4> " G 6 g x
L g filenamef ice-9/futures.scm
4 L
t w ' '
g nameg work C4,SL:S@/ hp ]O Q " <4 & " 4 5> " G & " 4 5 $ /4 & " 4 5> " G " $ X4 & " 4 5> " G 4
5
$ WG " t4> " G " 4 & " 4 5> " G 4
5 $ WG " 4> " G " " & " 4
56 g future
p g work
p g key X O g filenamef ice-9/futures.scm
6 A
X d i
& * 1 9 L O V p g nameg touchg
documentationf >Return the result of FUTURE, computing it if not already done. C'R4_i`5$
4ai5 "
bRcR4 h E ] L 6= g filenamef ice-9/futures.scm
C: h E ] L 6= g filenamef ice-9/futures.scm
Ccdb h ^ ] CV g i
g filenamef ice-9/futures.scm
' ' CeW h ^ ]6V g i
g filenamef ice-9/futures.scm
( ( Cf h a ] C Y g filenamef ice-9/futures.scm
+
g nameg create-workers! C hx ] O O 4 O > " G V( 4
5
" X4 O > " G CX4 O > " G F g x
v g filenamef ice-9/futures.scm
0 % 1 ' > & B + J v
g nameg %create-workers! CgRg h j ] 6 b g filenamef ice-9/futures.scm
. .
g nameg create-workers! C R40$252uv h ? ] C7 g dummy
g body C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/futures.scm
5
" g
documentationf Return a new future for BODY.g
macro-typeg syntax-rulesg patternsg body C5$RC g m
, g rtd
g filenamef ice-9/futures.scm
0
+ 9
/$ A
/% R /0 R
/1 U /< U
/= V /H V
/I Y /M Y
/N ] /Z ]
/a b
1 o 1 l
2 r
=' y
DI
E
H
O
O O O O O O O
O O
S;
S -
# UG
C6 PK ! `? ice-9/curried-definitions.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g ice-9 g curried-definitions g filenameS
f ice-9/curried-definitions.scm g replacementsS g cdefine
g define
g cdefine* g define* g
define-public g define*-public g set-current-module g make-syntax-transformer g macro g $sc-dispatch g any !g each-any " ! # " $ # %g
syntax-object &g top '& (g ribcage )g dummy *g head +g rest ,g body -g body* .)*+,- /g m-17381246c69178d0-0 0/& 10'''' 2f l-17381246c69178d0-5 3f l-17381246c69178d0-6 4f l-17381246c69178d0-7 5f l-17381246c69178d0-8 6f l-17381246c69178d0-9 723456 8(.17 9( :g x ;: <0 =f l-17381246c69178d0-2 >= ?(;<> @'89? Ag hygiene BA C% @B Dg lambda E%D@B F Gg name Hg val I)GH J0'' Kf l-17381246c69178d0-11 Lf l-17381246c69178d0-12 Mf l-17381246c69178d0-13 NKLM O(IJN P'O9? Q%
PB Rg syntax-violation SR TR Uf -source expression failed to match any pattern Vg m-17381246c69178d0-17 WV& XW'''' Yf l-17381246c69178d0-1c Zf l-17381246c69178d0-1d [f l-17381246c69178d0-1e \f l-17381246c69178d0-1f ]f l-17381246c69178d0-20 ^YZ[\] _(.X^ `W af l-17381246c69178d0-19 ba c(;`b d'_9c e%dB fg lambda* g%fdB hW'' if l-17381246c69178d0-28 jf l-17381246c69178d0-29 kf l-17381246c69178d0-2a lijk m(Ihl n'm9c o%nB pg m-17381246c69178d0-2e qp& rq'''' sf l-17381246c69178d0-33 tf l-17381246c69178d0-34 uf l-17381246c69178d0-35 vf l-17381246c69178d0-36 wf l-17381246c69178d0-37 xstuvw y(.rx zq {f l-17381246c69178d0-30 |{ }(;z| ~'y9} %~B %D~B g begin q'' f l-17381246c69178d0-3f f l-17381246c69178d0-40 f l-17381246c69178d0-41 (I '9} %B %
B g export %B g m-17381246c69178d0-45 & '''' f l-17381246c69178d0-4a f l-17381246c69178d0-4b f l-17381246c69178d0-4c f l-17381246c69178d0-4d f l-17381246c69178d0-4e (. f l-17381246c69178d0-47 (; '9 %B %fB '' f l-17381246c69178d0-56 f l-17381246c69178d0-57 f l-17381246c69178d0-58 (I '9 %B %B %B C 5 h a ]4
5 4 > " G 4 $CE h v ] C n g dummy
g head g rest g body g body* CFQ h P ] C H g dummy
g name g val CTU h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/curried-definitions.scm
9 g
macro-typeg syntax-rulesg patternsg headg restg bodyg body*g ... g nameg val C5 R4 $eg h v ] C n g dummy
g head g rest g body g body* CFo h P ] C H g dummy
g name g val CTU h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/curried-definitions.scm
9 g
macro-typeg syntax-rulesg patternsg headg restg bodyg body*g ... g nameg val C5R4 $ h v ] C n g dummy
g head g rest g body g body* CF h P ] CH g dummy
g name g val CTU h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/curried-definitions.scm
' 9 g
macro-typeg syntax-rulesg patternsg headg restg bodyg body*g ... g nameg val C5R4 $ h v ] C n g dummy
g head g rest g body g body* CF h P ] CH g dummy
g name g val CTU h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/curried-definitions.scm
1 9 g
macro-typeg syntax-rulesg patternsg headg restg bodyg body*g ... g nameg val C5RC Y g m
( g filenamef ice-9/curried-definitions.scm
C6 PK ! DA ice-9/streams.gonu [ GOOF----LE-8-2.0 ] . 4 h[ ] g guile g define-module* g ice-9 g streams g filenameS
f ice-9/streams.scm g exportsS g make-stream
g
stream-car g
stream-cdr g stream-null? g list->stream g vector->stream g port->stream g stream->list g stream->reversed-list g stream->list&length g stream->reversed-list&length g stream->vector g stream-fold g stream-for-each g
stream-map
g set-current-module g make-promise ! "g force #g
vector-length $g reverse! %g make-vector &g stream-fold-one 'g stream-fold-many (g or-map )g map *g stream-for-each-one +g stream-for-each-many ,g apply -g eof-object?C 5h ]4
5 4 > " G ! h( ]4LL 5 $ 4L 5CC g o
# g filenamef ice-9/streams.scm
V W
W X
X Y Z Z Z Y
" [
#
C h ] O 6 ~ g m
g state g filenamef ice-9/streams.scm
U
V g nameg make-stream C R" h ]4 5C g stream
g filenamef ice-9/streams.scm
]
_
_ g nameg
stream-carg
documentationf BReturns the first element in STREAM. This is equivalent to `car'. C
R" h ]4 5C g stream
g filenamef ice-9/streams.scm
a
c
c g nameg
stream-cdrg
documentationf GReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'. CR" h ? ]4 5C 7 g stream
g filenamef ice-9/streams.scm
e
i
i g nameg stream-null?g
documentationf Returns `#t' if STREAM is the end-of-stream marker; otherwise
returns `#f'. This is equivalent to `null?', but should be used
whenever testing for the end of a stream. CR h T ] C L g l
g filenamef ice-9/streams.scm
o C h ] 6 g l
g filenamef ice-9/streams.scm
k
n
g nameg list->streamg
documentationf oReturns a newly allocated stream whose elements are the elements of
LIST. Equivalent to `(apply stream LIST)'. CR # h ] L $ CL C g i
g t g filenamef ice-9/streams.scm
u v v w w " w C h ] 4 5 O
6 g v
g len g filenamef ice-9/streams.scm
r
t t s g nameg vector->stream CR
hH ]" /45$ D4545 "
" g stream
C g s 5 g acc 5 g len 5 g filenamef ice-9/streams.scm
z
{ | | } ~ ~ # ( ~ + ~ 7 5 ~ 5 { 8 { C { C g nameg stream->reversed-list&length CR h ]4 > G C g stream
g l
g len
g filenamef ice-9/streams.scm
g nameg stream->reversed-list CR$ h ]4 > G 45D g stream
g l
g len
g filenamef ice-9/streams.scm
g nameg stream->list&length CR$ h $ ]4 56 g stream
g filenamef ice-9/streams.scm
g nameg stream->listg
documentationf Returns a newly allocated list whose elements are the elements of STREAM.
If STREAM has infinite length this procedure will not terminate. CR% hX 5 ])4 > G 45 " %( " & "
"C - g stream
T g l
T g len
T g v T g i ! F g l ! F g filenamef ice-9/streams.scm
! ' 2 7 * 8 ; > F F T g nameg stream->vector CR&' h( - 1 3 (
6 6 g f
& g init & g stream & g rest & g filenamef ice-9/streams.scm
$ & &
g nameg stream-fold CR&
h0 ]45$ C 4 455456 g f
+ g r + g stream + g filenamef ice-9/streams.scm
" # 3 + + g nameg stream-fold-one C&R(' h ] ( L C 4L 5C g cars
g filenamef ice-9/streams.scm
! #
' - - 4 - ' g nameg recur C)
hH ] 45$ C 4 O Q 4455 ?456 g f
G g r G g streams G g recur " : g filenamef ice-9/streams.scm
" ! - . 7 ! < = G G g nameg stream-fold-many C'R*+ h( - 1 3 ( 6 6 g f
" g stream " g rest " g filenamef ice-9/streams.scm
" "
g nameg stream-for-each CR
* h8 ]45$ C4 45> " G 456 g f
3 g stream 3 g filenamef ice-9/streams.scm
+ 3 3 g nameg stream-for-each-one C*R(,)
+ h@ ]45$ C4 45> " G 456 g f
; g streams ; g filenamef ice-9/streams.scm
$ 1 ; ; g nameg stream-for-each-many C+R
h0 ] 4 5 $ C4L 4 554 5C g s
) g t ) g filenamef ice-9/streams.scm
" ! 2 ( ) C()
h0 ] 4 5 $ C4L 4 5?4 5C g streams
/ g t / g filenamef ice-9/streams.scm
( $ % . / C h0 \ - 1 3 (
O 6 O 6 T g f
, g stream , g rest , g filenamef ice-9/streams.scm
* , ,
g nameg
stream-mapg
documentationf Returns a newly allocated stream, each element being the result of
invoking F with the corresponding elements of the STREAMs
as its arguments. CR - h( ]4L 5 45 $ C C g p
# g o # g t # g filenamef ice-9/streams.scm
" # C h ]O 6 g port
g read g filenamef ice-9/streams.scm
g nameg port->stream CRC g m
( g filenamef ice-9/streams.scm
U
]
a
e
k
r
z
g
W
@
N
m
g
C6 PK ! G - - ice-9/threads.gonu [ GOOF----LE-8-2.0- ] 4 h ] g guile g define-module* g ice-9 g threads g filenameS
f ice-9/threads.scm g importsS g futures
g match g exportsS g begin-thread g parallel g letpar g make-thread g
with-mutex g monitor g par-map g par-for-each g n-par-map g n-par-for-each g n-for-each-par-map g %thread-handler !g set-current-module "! #! $g make-syntax-transformer %$ &$ 'g macro (g $sc-dispatch )( *( +g any ,g each-any -+, .+- /g
syntax-object 0g call-with-new-thread 1g top 21 3g ribcage 4g dummy 5g e0 6g e1 7456 8g m-4712ba65e6-1 981 :922 ;f l-4712ba65e6-6 <f l-4712ba65e6-7 =f l-4712ba65e6-8 >;<= ?37:> @3 Ag x BA C9 Df l-4712ba65e6-3 ED F3BCE G2?@F Hg hygiene IH J/0GI Kg lambda L/KGI M/ GI NM Og syntax-violation PO QO Rf -source expression failed to match any pattern Sg _ TS, Ug generate-temporaries Vg let Wg tmp0 XW Y2 Zf l-4712ba65e6-16 [Z \3XY[ ]5 ^f l-4712ba65e6-11 _^ `3]Y_ af l-4712ba65e6-e ba c3BYb d2@\`@c e/VdI fg map gf hf ig future j/idI kg values l/kdI mg touch n/mdI og each p++ qop rq- s+r tg call-with-values ug v vg e wg b0 xg b1 y4uvwx zg m-4712ba65e6-1d {z1 |{2222 }f l-4712ba65e6-22 ~f l-4712ba65e6-23 f l-4712ba65e6-24 f l-4712ba65e6-25 f l-4712ba65e6-26 }~ 3y| { f l-4712ba65e6-1f 3B 2@ /tI /KI /I g proc g arg 4 g m-4712ba65e6-30 1 22 f l-4712ba65e6-35 f l-4712ba65e6-36 f l-4712ba65e6-37 3 f l-4712ba65e6-32 3B 2@ /0I /KI / I +. g m 456 g m-4712ba65e6-3d 1 222 f l-4712ba65e6-42 f l-4712ba65e6-43 f l-4712ba65e6-44 f l-4712ba65e6-45 3 f l-4712ba65e6-3f 3B 2@ /VI /AI g dynamic-wind /I /KI g
lock-mutex /I g begin /I g unlock-mutex /I g first g rest 4 g m-4712ba65e6-4c 1 22 f l-4712ba65e6-51 f l-4712ba65e6-52 f l-4712ba65e6-53 3 f l-4712ba65e6-4e 3B 2@ /I g
make-mutex /I g reverse g make-future
g
par-mapper g cons g for-each g const g make-list g length g join-thread g car g cdr g apply g no-value g current-error-port g display f
In thread: g newline g
display-error f uncaught throw to f : g thread-handlerC 5 h8 ]4
5 4# > " G 4&'*.JLN h M ]C E g dummy
g e0 g e1 CQR h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/threads.scm
7
" g
macro-typeg syntax-rulesg patternsg e0g e1g ... C5R4&'*TU*,ehj h X ] C P g tmp-4712ba65e6-19
g tmp-4712ba65e6-18 Cln h 9 ] C 1 g tmp-4712ba65e6-1a
C h , ]4L 54 5 C $ g tmp0
CQR h0 ]4 5 45 $ O @6w g e0
0 g tmp 0 g tmp 0 g filenamef ice-9/threads.scm @ ! @ 0 CQR h( d ] 4 5 $ @ 6 \ g x
" g tmp " g filenamef ice-9/threads.scm
= " C5R4&'*s h k ] C c g dummy
g v g e g b0 g b1 CQR h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/threads.scm
E
" g
macro-typeg syntax-rulesg patternsg vg e g ... g b0g b1g ... C5R4&'*. h P ] C H g dummy
g proc g arg CQR h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/threads.scm
K
" g
macro-typeg syntax-rulesg patternsg procg argg ... C5R4&'* h0 \ ] C T g dummy
) g m ) g e0 ) g e1 ) ) CQR h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/threads.scm
P
" g
macro-typeg syntax-rulesg patternsg mg e0g e1g ... C5R4&'*. h R ]C J g dummy
g first g rest CQR h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/threads.scm
W
" g
macro-typeg syntax-rulesg patternsg firstg restg ... C5R h L ] LL 6D g filenamef ice-9/threads.scm
` `
Cm h e ]9" ( 84545 4LO 54L ? L456$ 8 $ * $ "CCC "s ] g lists
g ls g p-ls g p-ls g tails D g heads D g tail 3 D g head 3 D g w N g w ] g x ] g filenamef ice-9/threads.scm
] ^ ` - a 3 ` < b D b G ^ d ^ g nameg loop C h( - 1 3 O L Q 6 } g proc
" g lists " g loop " g filenamef ice-9/threads.scm
\ ] "
C h ]O C y g mapper
g cons
g filenamef ice-9/threads.scm
[
g nameg
par-mapper CR4ifii5R4ii4i55R0f hh ]" ]4L > " G M( L 64M5M 4M5NMN4L > " G 4L ?"" g args
/ c g my-result / c g filenamef ice-9/threads.scm
s t u v $ w % x % / x 4 z * > z A { ( C { D | X } / _ } c ~ c t g
C hx - 1 3 H45 H44J55 H" B $ 4J> " G C4O 5JK "
" g n
w g proc
w g arglists
w g m w g threads w g results $ w g result ( w g i . p g filenamef ice-9/threads.scm
i
j j k j l l l % " l $ l $ j . n 3 o 7 n 8 p O s e s g r j n p n w
g nameg n-par-map C R0f hp ]" _4L > " G M( L 64M5 4M5N4L > " G 4L > " G "" g args
. e g filenamef ice-9/threads.scm
% & % . 1 * ; < N e e i
C hX 9 - 1 3 H45 H " 1 $ J64O 5JK "
" 1 g n
S g proc
S g arglists
S g m S g threads S g i L g filenamef ice-9/threads.scm
$ , - A C F L S
g nameg n-par-for-each C R0f h ]" 4L > " G M( L 6M& KM( L 64M5M 4M5NMN4L > " G 4L ?"M M4L > " G 4L > " G 4L > " G MN4L > " G "3"/ g args
D x g my-result D x g arg
{ g filenamef ice-9/threads.scm
$ ' & ) - 9 : ( D I - S V + X Y m 2 t x { ' { ,
C
hp A - 1 3 H45 H44J55HJH" 7 $ J64O 5JK "
" 9 g n
n g s-proc
n g p-proc
n g arglists
n g m n g threads n g results & n g result * n g i 0 g g filenamef ice-9/threads.scm
% " $ & & 0 5 9 A B \ ^ a g n
g nameg n-for-each-par-mapg
documentationf gUsing N parallel processes, apply S-PROC in serial order on the results
of applying P-PROC on ARGLISTS. C R h - 1 3 4545 4> " G 4> " G $ 74 $
" > " G " b4> " G 4 > " G 4> " G 4> " G 4> " G C g tag
g args g n g p g filenamef ice-9/threads.scm
% . D H I Q T X _ c f n s
g nameg thread-handler CRi RC g m
, g filenamef ice-9/threads.scm "
d [
e f v f
w g g * g g
i
|
.
5
7
C6 PK ! Y ice-9/safe-r5rs.gonu [ GOOF----LE-8-2.0 ] 4 hS ] g guile g define-module* g ice-9 g safe-r5rs g filenameS
f ice-9/safe-r5rs.scm g exportsS g null-environment
g
re-exportsS g eqv? g eq? g equal? g number? g complex? g real? g rational? g integer? g exact? g inexact? g = g < g > g <= g >= g zero? g positive? g negative? !g odd? "g even? #g max $g min %g + &g * 'g - (g / )g abs *g quotient +g remainder ,g modulo -g gcd .g lcm /g numerator 0g denominator 1g rationalize 2g floor 3g ceiling 4g truncate 5g round 6g exp 7g log 8g sin 9g cos :g tan ;g asin <g acos =g atan >g sqrt ?g expt @g make-rectangular Ag
make-polar Bg real-part Cg imag-part Dg magnitude Eg angle Fg exact->inexact Gg inexact->exact Hg number->string Ig string->number Jg boolean? Kg not Lg pair? Mg cons Ng car Og cdr Pg set-car! Qg set-cdr! Rg caar Sg cadr Tg cdar Ug cddr Vg caaar Wg caadr Xg cadar Yg caddr Zg cdaar [g cdadr \g cddar ]g cdddr ^g caaaar _g caaadr `g caadar ag caaddr bg cadaar cg cadadr dg caddar eg cadddr fg cdaaar gg cdaadr hg cdadar ig cdaddr jg cddaar kg cddadr lg cdddar mg cddddr ng null? og list? pg list qg length rg append sg reverse tg list-tail ug list-ref vg memq wg memv xg member yg assq zg assv {g assoc |g symbol? }g symbol->string ~g string->symbol g char? g char=? g char<? g char>? g char<=? g char>=? g char-ci=? g char-ci<? g char-ci>? g
char-ci<=? g
char-ci>=? g char-alphabetic? g
char-numeric? g char-whitespace? g char-upper-case? g char-lower-case? g
char->integer g
integer->char g char-upcase g
char-downcase g string? g make-string g string g
string-length g
string-ref g string-set! g string=? g string-ci=? g string<? g string>? g string<=? g string>=? g string-ci<? g string-ci>? g string-ci<=? g string-ci>=? g substring g
string-append g string->list g list->string g string-copy g string-fill! g vector? g make-vector g vector g
vector-length g
vector-ref g vector-set! g vector->list g list->vector g vector-fill! g
procedure? g apply g map g for-each g force g call-with-current-continuation g values g call-with-values g dynamic-wind g eval g input-port? g output-port? g current-input-port g current-output-port g read g read-char g peek-char g eof-object? g char-ready? g write g display g newline g
write-char !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ g set-current-module g resolve-interface g null g null-interface g module-use! g module-public-interface g current-module g scm-error g
misc-error f ~A is not a valid version g make-module g set-module-kind! g interfaceC 5h ]4
5 4 > " G 4i5R4i4i4i5 5i> " G
h` ] $ " 4 > " G 4 5 4> " G 4 > " G C g n
_ g interface 2 _ g filenamef ice-9/safe-r5rs.scm
# , 2 5 ; @ I _ g nameg null-environment C RC g m
, g filenamef ice-9/safe-r5rs.scm
- 3 * 5 8
9
>
C & K
T
C6 PK ! ًX ice-9/rdelim.gonu [ GOOF----LE-8-2.0 ] h 4 h ] g guile g define-module* g ice-9 g rdelim g filenameS
f ice-9/rdelim.scm g exportsS g read-line
g
read-line! g read-delimited g read-delimited! g read-string g read-string! g %read-delimited! g
%read-line g
write-line
g set-current-module g %init-rdelim-builtins g current-input-port f
g eof-object? g trim g
string-length g peek g split !g concat "g string-set! #g error $f unexpected handle-delim value: %g make-string &g string-concatenate-reverse 'g substring (g
string-append )g string *g make-syntax-transformer +* ,* -g check-arg .g macro /g $sc-dispatch 0/ 1/ 2g any 3g each-any 423 524 625 7g
syntax-object 8g unless 9g top :9 ;g ribcage <g dummy =g exp >g message ?g arg @<=>? Ag m-1eeb5757c-50 BA9 CB::: Df l-1eeb5757c-55 Ef l-1eeb5757c-56 Ff l-1eeb5757c-57 Gf l-1eeb5757c-58 HDEFG I;@CH J; Kg x LK MB Nf l-1eeb5757c-52 ON P;LMO Q:IJP Rg hygiene SR T78QS U7#QS Vg syntax-violation WV XV Yf -source expression failed to match any pattern Zg integer? [g exact? \g index? ]g string? ^f not a string _f bad index `f start beyond end af end beyond string length bg read-char cg list->string dg reverse! eg reverse fg char? gg unread-charC 5h ]4
5 4 > " G 4i> " G h` $ - . , 3 # 4 5 " $ CC
$ 45$ C"" g string
[ g port [ g rv " [ g
terminator ' [ g nchars , [ g filenamef ice-9/rdelim.scm
&
)
( " )
" ) ' - ' ) , . , ) 8 / A / E / F 0 P / [ g nameg
read-line! C
R !"#$ h : - . , 3 # 45 # #
# 45 4 5 $ 45" $ *
$ & CC& CC$ " $ C$ 4 > " G C$ C
6 2 g delims
g buf g port g handle-delim g start g end g rv P g
terminator U g nchars Z g filenamef ice-9/rdelim.scm
5
6 ! 6 D 3 7 ) < 8
F : 6 G : $ H : P 8
P 8 U > U 8 Z ? Z 8 b @ c A n @ r @ u B z B ~ C % C D F % F G J L L ( L M J N O O $ g nameg read-delimited! CR % &'! () #$ h - . , 3 # 45 # " 45 4 5
$ " i44
55 $ 4 5$ C
4 56$ " $ C $ C
64 5$
$ & CC"o"k4
5
"
d " g delims
g port g handle-delim g
substrings ' g total-chars ' g buf-size ' g buf . g rv A g
terminator F g nchars K g new-total
R g joined p g filenamef ice-9/rdelim.scm
R
R 1 ! S ' ' T ( W . W 1 X ; Z 8 < Z & = Z ! A X A W F \ F W K ] K W R ^ R W Z _ _ k b l n l p k p j { m
| o o
q ' q m
s t t _ e
_ e & e f f g b b d b T T T 1 g nameg read-delimited CR4,-.16TU h d ] C \ g dummy
g exp g message g arg CXY h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/rdelim.scm
w
" g
macro-typeg syntax-rulesg patternsg expg messageg argg ... C5-RZ[ h( ]4 5$ 4 5$
CCC g n
! g filenamef ice-9/rdelim.scm
{
|
| | | | ! g nameg index? C\R ]#^\_`ab "
h8 - . , 3 # 45 #
# 4 5 4 5$ " 4 > " G 45$ " 4> " G 45$ " 4> " G $ " 4> " G 4 5$ " 4 > " G " H$ 94
5 4 5$ C4 > " G "C " g buf
7 g port 7 g start 7 g end 7 g n / g c ) g filenamef ice-9/rdelim.scm
~
) & 2
< E L U
_ h o x
*
# ) . / & 7 g nameg read-string!g
documentationf NRead all of the characters out of PORT and write them to BUF.
Returns the number of characters read.
This function only reads out characters from PORT if it will be able to
write them to BUF. That is to say, if BUF is smaller than the number of
available characters, then BUF will be filled, and characters will be
left in the port. CRb cde h * N. + E3 # 45 " *4 5 45$ 456 " "]"" D4 5 45 $ " $ 456 "
" g port
T g chars # M g char * M g port
V g count V g chars Z g total Z g char a g t j g filenamef ice-9/rdelim.scm
# $ * - 7 : B G M M N T V Z [ a d j | # $ T
V g nameg read-stringg
documentationf Read all of the characters out of PORT and return them as a string.
If the COUNT argument is present, treat it as a limit to the number of
characters to read. By default, there is no limit. CR !]f() g#$ h - . , 3 # 45 # 4 5 $ C$ C$ )45$ 45$
4 56CC
$ &45$ 4 > " G " C
6 g port
g handle-delim g
line/delim * g line / g delim 4 g filenamef ice-9/rdelim.scm
% ! " $ * / / 4 4 ? X b c ( m r ( z
g nameg read-line C RC g m
( g filenamef ice-9/rdelim.scm
) $
&
5 5
| R
{
~
C6 PK ! >, ice-9/rw.gonu [ GOOF----LE-8-2.0 ] 4 h- ] g guile g define-module* g ice-9 g rw g filenameS
f ice-9/rw.scm g exportsS g read-string!/partial
g write-string/partial
g set-current-module g %init-rw-builtinsC 5 h0 V ]4
5 4 > " G i6 N g m
( g filenamef ice-9/rw.scm
.
.
C6 PK ! yz z ice-9/binary-ports.gonu [ GOOF----LE-8-2.0b ] * 4 hA ] g guile g define-module* g ice-9 g binary-ports g filenameS
f ice-9/binary-ports.scm g importsS g rnrs
g bytevectors
g exportsS g
eof-object g open-bytevector-input-port g make-custom-binary-input-port g get-u8 g lookahead-u8 g get-bytevector-n g get-bytevector-n! g get-bytevector-some g get-bytevector-all g
get-string-n! g put-u8 g put-bytevector g unget-bytevector g open-bytevector-output-port g make-custom-binary-output-port ! "g set-current-module #" $" %g load-extension &g
string-append 'f libguile- (g effective-version )f scm_init_r6rs_portsC 5 hH ]4
!5 4$ > " G %i4&i'4(i5 5)6 g m
, g filenamef ice-9/binary-ports.scm
1 1 7 1 8 1 + @ 1 B 2 D 1
D
C6 PK ! nr r ice-9/occam-channel.gonu [ GOOF----LE-8-2.0q ] 4 h- ] g guile g define-module* g ice-9 g
occam-channel g filenameS
f ice-9/occam-channel.scm g importsS g oop
g goops
g threads g exportsS g alt g oc:lock g oc:unlock g oc:consequence g oc:immediate-dispatch g oc:late-dispatch g oc:first-channel g oc:set-handshake-channel g oc:unset-handshake-channel g make-channel g ? g ! !g
make-timer "g handshake-channel #g mutex $g sender-waiting? %g immediate-receive &g late-receive ' !"#$%& (g set-current-module )( *( +g no-data ,+ -g receiver-waiting .- /g toplevel-define! 0/ 1/ 2g <channel> 3g
make-class 4g nameS 5g defined? 65 75 8g is-a? 98 :8 ;g <class> <; =; >g memq ?g <object> @? A? Bg class-precedence-list CB DB Eg class-redefinition FE GE Hg
<accessor> IH JH Kg ensure-accessor LK MK Ng data Og cv Pg <data-channel> Qg accessorS Rg
init-valueS Sg init-formS Tg make-condition-variable UT Vg
init-thunkS Wg
make-mutex XW Yg
initialize Zg make [Z \Z ]g <generic> ^] _] `g add-method! a` b` cg <method> dc ec fg specializersS gg <top> hg ig jg formalsS kg ch lg initargs mkl ng bodyS og next-method po qg set! r"k sqrk tps ug make-procedureS vg setter wv xv yg procedureS zZP {z |k }g not ~g eq? Nk ~+ } g receiver-waiting? ~- g signal-condition-variable Ok g let g res q+ g
lock-mutex #k g cond k g unlock-mutex g scm-error g quote g
misc-error f *another process is already receiving on ~A g list k $k %k g else q- g wait-condition-variable &k g
*unspecified* k g x k #r q Or f (another process is already sending on ~A g port g <port-channel> g init-keywordS g portS g <port> Z g read k g write g <timer-channel> g the-timer g timer-cv g timer-mutex g
timeofday->us g
us->timeofday g gettimeofday g <integer> g t k g make-syntax-transformer g macro g $sc-dispatch g any g free-id g
syntax-object g top g ribcage g m-17d5859fdf6989b4-ca f l-17d5859fdf6989b4-cc g hygiene g each-any g dummy g form k f l-17d5859fdf6989b4-cf f l-17d5859fdf6989b4-d0 f l-17d5859fdf6989b4-d1
# g exp k f l-17d5859fdf6989b4-d6 f l-17d5859fdf6989b4-d7 f l-17d5859fdf6989b4-d8 f l-17d5859fdf6989b4-d9 # f l-17d5859fdf6989b4-df f l-17d5859fdf6989b4-e0 !f l-17d5859fdf6989b4-e1 " ! # " $# %$ &g syntax-violation '& (& )f -source expression failed to match any pattern *g m-17d5859fdf6989b4-e5 +* ,+ -f l-17d5859fdf6989b4-e7 .- /,. 0/ 1 0 21 32 43 54 6+ 7f l-17d5859fdf6989b4-ea 8f l-17d5859fdf6989b4-eb 9f l-17d5859fdf6989b4-ec :789 ;6: <;/ =< >#< ?4 @? A+ Bf l-17d5859fdf6989b4-f1 Cf l-17d5859fdf6989b4-f2 Df l-17d5859fdf6989b4-f3 Ef l-17d5859fdf6989b4-f4 FBCDE GAF HG/ IH J#H Kf l-17d5859fdf6989b4-fa Lf l-17d5859fdf6989b4-fb Mf l-17d5859fdf6989b4-fc NKLM O 6N PO/ QP R Sg => Tg m-17d5859fdf6989b4-100 UT VU Wf l-17d5859fdf6989b4-102 XW YVX ZY [SZ \[ ] ^] _^ `\_ ag lambda bg e1 cg e2 dNabc eU ff l-17d5859fdf6989b4-10a gf l-17d5859fdf6989b4-10b hf l-17d5859fdf6989b4-10c if l-17d5859fdf6989b4-10d jf l-17d5859fdf6989b4-10e kf l-17d5859fdf6989b4-10f lfghijk mdel nmY on p qp rg begin sNbc tU uf l-17d5859fdf6989b4-118 vf l-17d5859fdf6989b4-119 wf l-17d5859fdf6989b4-11a xf l-17d5859fdf6989b4-11b yuvwx zsty {zY |r{ }g m-17d5859fdf6989b4-121 ~} ~ f l-17d5859fdf6989b4-123 kb ~ f l-17d5859fdf6989b4-126 f l-17d5859fdf6989b4-127 f l-17d5859fdf6989b4-128 $ % g and kb ~ f l-17d5859fdf6989b4-12e f l-17d5859fdf6989b4-12f f l-17d5859fdf6989b4-130 f l-17d5859fdf6989b4-131 $ % g m-17d5859fdf6989b4-13f f l-17d5859fdf6989b4-141 f l-17d5859fdf6989b4-144 f l-17d5859fdf6989b4-145 f l-17d5859fdf6989b4-146 $ & f l-17d5859fdf6989b4-14c f l-17d5859fdf6989b4-14d f l-17d5859fdf6989b4-14e f l-17d5859fdf6989b4-14f $ & b f l-17d5859fdf6989b4-156 f l-17d5859fdf6989b4-157 f l-17d5859fdf6989b4-158 g m-17d5859fdf6989b4-15c f l-17d5859fdf6989b4-15e ܌ ی ߌ g
first-channel g c1 g c2 f l-17d5859fdf6989b4-175 f l-17d5859fdf6989b4-176 f l-17d5859fdf6989b4-177 g m-17d5859fdf6989b4-17c f l-17d5859fdf6989b4-17e g handshake kb f l-17d5859fdf6989b4-181 f l-17d5859fdf6989b4-182 f l-17d5859fdf6989b4-183 f l-17d5859fdf6989b4-184 q " kb f l-17d5859fdf6989b4-18a
f l-17d5859fdf6989b4-18b f l-17d5859fdf6989b4-18c f l-17d5859fdf6989b4-18d
f l-17d5859fdf6989b4-18e
q " b f l-17d5859fdf6989b4-195 f l-17d5859fdf6989b4-196 f l-17d5859fdf6989b4-197 f l-17d5859fdf6989b4-198 g m-17d5859fdf6989b4-19d !f l-17d5859fdf6989b4-19f "! # " $# % $ &% '& (' )( * +f l-17d5859fdf6989b4-1a2 ,f l-17d5859fdf6989b4-1a3 -f l-17d5859fdf6989b4-1a4 .+,- /*. 0/# 1q0 2"0 3( 43 5 6f l-17d5859fdf6989b4-1a9 7f l-17d5859fdf6989b4-1aa 8f l-17d5859fdf6989b4-1ab 9f l-17d5859fdf6989b4-1ac :6789 ;5: <;# =< >q< ?"< @f l-17d5859fdf6989b4-1b2 Af l-17d5859fdf6989b4-1b3 Bf l-17d5859fdf6989b4-1b4 C@AB D*C ED# FE Gg _ HG I Jf l-17d5859fdf6989b4-1bd KJ LIK Mg else-clause? NM O Pf l-17d5859fdf6989b4-1ba QP RNOQ Sf l-17d5859fdf6989b4-1b9 TS UIT VLRU WV XW YX ZGY [G \ ] ^f l-17d5859fdf6989b4-1c6 _f l-17d5859fdf6989b4-1c7 `^_ a\]` baLRU cGb df l-17d5859fdf6989b4-1d9 ef l-17d5859fdf6989b4-1da fde g\]f hgRU irh jh kg append lk mk ng map on pn qh rh sh th uh vkh wh x h yv zh {Oh |{v }#h ~}v z|~ h h h r f l-17d5859fdf6989b4-1d1 f l-17d5859fdf6989b4-1d2 \] RU r C 5 h? ]4
'5 4* > " G ,+R.-R" '41243i 425> " tG " m4725$ ^4:2i=5$ G4>iA4D2i55$ )4G2i43i 425> " G " "|" "t" "l47"5 $ " 4:"iJ5 $ 141"4M47"5$ "i" "5> " G " 47N5 $ " 4:NiJ5 $ 141N4M47N5$ Ni" N5> " G " 47O5 $ " 4:OiJ5 $ 141O4M47O5$ Oi" O5> " G " 47#5 $ " 4:#iJ5 $ 141#4M47#5$ #i" #5> " G " " 241P43i2i "Q"i NQNiR+i OQOiSUVT h K ] 6 C g filenamef ice-9/occam-channel.scm -
C #Q#iSXVW h K ] 6 C g filenamef ice-9/occam-channel.scm . &
C 4P5> " G " |47P5$ m4:Pi=5$ V4>iA4DPi55$ 84GPi43i2i "Q"i NQNiR+i OQOiSUVT h K ] 6 C g filenamef ice-9/occam-channel.scm -
C #Q#iSXVW h K ] 6 C g filenamef ice-9/occam-channel.scm . &
C 4P5> " G " "b" "Z" "R47Y5 $ " Yi $ !41Y4\_4Y5> " G " 4bYi4\efPii jmntux" h( x ]4L > " G 45 6 p g ch
# g initargs # g filenamef ice-9/occam-channel.scm
0
# 2 # C h h ] O C ` g real-next-method
g filenamef ice-9/occam-channel.scm
0
Cy5 > " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efjn{uyZP h Q ] 6I g filenamef ice-9/occam-channel.scm
4
5
C5 > " G 47$5 $ " $i $ !41$4\_4$5> " G " 4b$i4\efPi j|nuyN+ h r ]4 5C j g ch
g filenamef ice-9/occam-channel.scm
7
8 8
8 C5 > " G 475 $ " i $ !414\_45> " G " 4bi4\efPi j|nuyN- h j ]4 5C b g ch
g filenamef ice-9/occam-channel.scm
:
; ;
C5 > " G 47%5 $ " %i $ !41%4\_4%5> " G " 4b%i4\efPi j|nuyONx+ h@ ] 44 5> " G 4 5 445 > " G C g ch
> g res > g filenamef ice-9/occam-channel.scm
=
> > > ?
? # @ > C5 > " G 47&5 $ " &i $ !41&4\_4&5> " G " 4b&i4\efPi j|nuyNx+ h( ] 4 5 445 > " G C z g ch
' g res ' g filenamef ice-9/occam-channel.scm
C
D
D E ' C5 > " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efPi j|nuy# $%xN-O& h O ] 44 5> " G 4 5$ ,44 5> " G 4 5" T4 5$ 4
5" >44 5
> " G 44 54 5> " G 4 5 44 5> " G CG g ch
g res g filenamef ice-9/occam-channel.scm
H
I I I J $ J
% K ( K " 3 K < L @ L B L + D M I N L L Q O [ J
\ P g R S S - S 5 S T J U U U C5 > " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efPi j|nuy h b ] 6 Z g ch
g filenamef ice-9/occam-channel.scm
X
Y C5 > " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efPigi jnuy#"xNO$ h ]444 55> " G 4 5$ 9445 > " G 444 55> " G " ~4 5$ <4
44 55> " G 4
> " G " 7445 > " G 44 54 5> " G
44 556 g ch
g x g filenamef ice-9/occam-channel.scm
[
\ \ \ \ \ ] ) ] * ^ C _ F _ $ I _ ( Q _ $ V _ c ` m ] n a q a t a | a a b b b b # c b e f f " f * f g g g g % C5 > " G 475 $ " 4:iJ5 $ 1414M475$ i" 5> " G " 475$ 4:i=5$ 4>iA4Di55$ <4Gi43i2i Qi 45> " G " 64143i2i Qi 45> " G " 64143i2i Qi 45> " G " 64143i2i Qi 45> " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efi jnuyZ h d ] 6 \ g port
g filenamef ice-9/occam-channel.scm
n
o C5 > " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efi j|nuy h j ]4 56 b g ch
g filenamef ice-9/occam-channel.scm
q
r
r
C5 > " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efi j|nuy h j ]4 56 b g ch
g filenamef ice-9/occam-channel.scm
t
u
u
C5 > " G " +4143i2i 45> " xG " q475$ b4:i=5$ K4>iA4Di55$ -4Gi43i2i 45> " G " "t" "l" "d4Zii5R4Ti5 R4Wi5 R h ` ] C X g filenamef ice-9/occam-channel.scm
~
g nameg
make-timer C!R h ] B@ C g t
g filenamef ice-9/occam-channel.scm
g nameg
timeofday->us CR h ] B@ B@C g n
g filenamef ice-9/occam-channel.scm
g nameg
us->timeofday CR47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efi j|nuy h m ]45 6 e g ch
g filenamef ice-9/occam-channel.scm
C5 > " G 47 5 $ " i $ !41 4\_4 5> " G " 4b i4\efii jnuy h8 ]4> " G 445> " G 6 g ch
5 g t 5 g filenamef ice-9/occam-channel.scm
0 ' 5 5 C5 > " G 4
h O ] C G g dummy
g ch g form C h ` ] C X g dummy
g exp g ch g form C % h P ]C H g dummy
g exp g form C()
hP $ ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg ?g ch g formg ... g expg ?g ch g formg ... g expg formg ... C5R45=> h O ] C G g dummy
g ch g form C@IJ h ` ] C X g dummy
g exp g ch g form C Q h P ]C H g dummy
g exp g form C()
hP $ ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg ?g ch g formg ... g expg ?g ch g formg ... g expg formg ... C5R4Rh ? ]C 7 g dummy
g data C`o h ] C z g dummy
g data g lambda g x g e1 g e2 Cq| h _ ]C W g dummy
g data g e1 g e2 C()
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg data g datag =>g lambdag x g e1g e2g ... g datag e1g e2g ... C5R4 h M ] C E g dummy
g ch g e1 C h( ^ ] C V g dummy
! g exp ! g ch ! g e1 ! ! C h N ]CF g dummy
g exp g e1 C()
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg ?g ch g e1g ... g expg ?g ch g e1g ... g expg e1g ... C5R4 h M ] C E g dummy
g ch g e1 C h( ^ ] C V g dummy
! g exp ! g ch ! g e1 ! ! C h N ]C F g dummy
g exp g e1 C()
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg ?g ch g e1g ... g expg ?g ch g e1g ... g expg e1g ... C5R4 h ] ]C U g dummy
g ch g e1 g c2 C h n ]C f g dummy
g exp g ch g e1 g c2 Cp h M ]CE g dummy
g c1 g c2 C()
hP 4 ]4 5 $ @4 5 $ @4 5 $ @ 6, g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg ?g ch g e1g ... g c2g ... g expg ?g ch g e1g ... g c2g ... g c1g c2g ... C5R4 h d ] C \ g dummy
g ch g e1 g handshake C h u ] Cm g dummy
g exp g ch g e1 g handshake C h e ]C ] g dummy
g exp g e1 g handshake C()
hP E ]4 5 $ @4 5 $ @4 5 $ @ 6= g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg ?g ch g e1g ... g handshake g expg ?g ch g e1g ... g handshake g expg e1g ... g handshake C5 R4 )12 h M ] C E g dummy
g ch g e1 C4=>? h ^ ] CV g dummy
g exp g ch g e1 C F h N ]C F g dummy
g exp g e1 C()
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/occam-channel.scm
P g
macro-typeg syntax-rulesg patternsg ?g ch g e1g ... g expg ?g ch g e1g ... g expg e1g ... C5 R4H h ] C
CZ h : ]C 2 g e1
g e2 C[c h m ]L 6 e g c1
g c2 g filenamef ice-9/occam-channel.scm C()
hX ]4 5 $ @4 5 $ @4 5 $ L O @ 6 g x
U g tmp U g tmp " U g tmp 9 U g filenamef ice-9/occam-channel.scm
U g nameg else-clause? C[ijmpj h @ ] C 8 g tmp-17d5859fdf6989b4-1e3
Cqrstt h @ ] C 8 g tmp-17d5859fdf6989b4-1e1
Cuvwxyxy h @ ] C 8 g tmp-17d5859fdf6989b4-1e0
C h @ ] C 8 g tmp-17d5859fdf6989b4-1df
C h @ ] C 8 g tmp-17d5859fdf6989b4-1de
C h @ ] C 8 g tmp-17d5859fdf6989b4-1e2
C h = ] 445 44
5
445 445 45 55 5 4455 5C 5 g c1
g c2 C() h m ]LL 6e g c1
g c2 g filenamef ice-9/occam-channel.scm Cmp h @ ] C 8 g tmp-17d5859fdf6989b4-1d7
C h @ ] C 8 g tmp-17d5859fdf6989b4-1d5
C h @ ] C 8 g tmp-17d5859fdf6989b4-1d6
C hX : ] 445 4
5 44 5
5 5C 2 g c1
W g c2 W W C hh ]O Q 4 5 " 4 5 $ @ 6$ 4 O ?$ @"" g x
d g else-clause?
d g tmp d g tmp ' > g filenamef ice-9/occam-channel.scm
d C5RC g m
, g t
g t
/ K g t
g t
g t
g t
g t
x g t
g t
g t
g t
. g t
g t
g t
g t
b w g t
c x g t
a v g t
" 7 g t
$ 9 g filenamef ice-9/occam-channel.scm
. % 1 %
3 & 6 &
; (
*
0
4
q 7
z :
z =
C
H
X
[
k
[ n
\ q
Z t
^ w
y y
{ {
| |
~
[
! ?
C6 PK ! b< ice-9/mapping.gonu [ GOOF----LE-8-2.0k ] V 4 h ] g guile g define-module* g ice-9 g mapping g filenameS
f ice-9/mapping.scm g importsS g poe
g exportsS g mapping-hooks-type g make-mapping-hooks g mapping-hooks? g mapping-hooks-get-handle g mapping-hooks-create-handle g mapping-hooks-remove g mapping-type g make-mapping g mapping? g
mapping-hooks g mapping-data g set-mapping-hooks! g set-mapping-data! g mapping-get-handle g mapping-create-handle! g mapping-remove! !g mapping-ref "g mapping-set! #g hash-table-mapping-hooks $g make-hash-table-mapping %g hash-table-mapping & !"#$% 'g set-current-module (' )' *g issue-deprecation-warning +f H(ice-9 mapping) is deprecated. Use srfi-69 or rnrs hash tables instead. ,g make-record-type -g
get-handle .g
create-handle /g remove 0-./ 1g
perfect-funcq 2g record-constructor 3g record-predicate 4g record-accessor 5g hooks 6g data 756 8g record-modifier 9g hashq :g assq ;g hashq-get-handle <g hashq-create-handle! =g
hashq-remove! >g hashv ?g assv @g hashv-get-handle Ag hashv-create-handle! Bg
hashv-remove! Cg hash Dg assoc Eg hash-get-handle Fg hash-create-handle! Gg hash-remove! Hg hashx-get-handle Ig hashx-create-handle! Jg
hashx-remove! Kg hash-procS LK Mg
assoc-procS NM Og table-constructorS PO QLNP Rg assq-ref Sg error Tf 6Hash-procedure specified with no known assoc function. Ug make-vectorC 5 h I ]4
&5 4) > " G 4*i+> " G 4,i05R41i 42ii55R43ii5R44ii-5R44ii.5R44ii/5R4,i75R42ii5R43ii5R44ii55R44ii65R48ii55 R48ii65 R h ]44 55 6 g map
g key g filenamef ice-9/mapping.scm
5
6 6 6 6 g nameg mapping-get-handle C R h ]44 55 6 g map
g key g init g filenamef ice-9/mapping.scm
7
8 8 8 8 g nameg mapping-create-handle! C R h ]44 55 6 g map
g key g filenamef ice-9/mapping.scm
9
: : : : g nameg mapping-remove! C R h0 - . , 3 # 4 5 $ CC g map
- g key - g dflt - g t - g filenamef ice-9/mapping.scm
<
> = - g nameg mapping-ref C!R h ]4 5C g map
g key g val g filenamef ice-9/mapping.scm
A
B B g nameg mapping-set! C"R41i 9:; h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
C< h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
C= h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
C>?@ h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CA h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CB h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CCDE h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CF h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CG h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CH h q ]LL 6 i g table
g key g filenamef ice-9/mapping.scm
[ . \ 0 C h y - 1 3 L LO 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CI h ]LL 6{ g table
g key g init g filenamef ice-9/mapping.scm
^ . _ 0 C h y - 1 3 L LO 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
CJ h q ]LL 6 i g table
g key g filenamef ice-9/mapping.scm
a . b 0 C h y - 1 3 L LO 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm
G G > G 2
C h ] $ . O O O 6
$ .
O O O 6 $ . O O O 6 O O O 6 g hash-proc
g
assoc-proc g procs g proc ) g proc + 7 g proc 9 E g proc Y e g proc g s g proc u g proc g proc g proc g filenamef ice-9/mapping.scm
J K " K M ' M L N - + O - 9 P - G N P Q ' Q Q U L Y R - g S - u T - R U ' U L V - W - X - V Z C5#R# h ]45 6 g table
g hash-proc g
assoc-proc g filenamef ice-9/mapping.scm
d
e e g nameg make-hash-table-mapping C$RQCR9:>?DS%TU h f ] 6 ^ g len
g filenamef ice-9/mapping.scm
r r = r , C$ h b - / 0 3 # G # # 74 5 $ " 4
5 #
4 56 Z g size
} g hash-proc } g
assoc-proc } g table-constructor } g t F b g filenamef ice-9/mapping.scm
g
. j " 5 j , F j " F j U n " Y n ) [ o ) _ n " q s } s }
g hash-procS g
assoc-procS g table-constructorS g nameg hash-table-mapping C%RC A g m
, g filenamef ice-9/mapping.scm
-
3 8
A " G " - I " < K " N "
O ' V ' - b ' e '
f ( s (
t ) ! ~ ) E ) ! )
* $ * H * $ *
+ + A + +
- - ' - 0 - -
. .
/ /
0 0 4 0 0
1 1 3 1 1
2 2 9 2 2
3 3 8
3
3
5
7
9
<
c A
d I " F
d
g
>
C6 PK ! }{G G ice-9/psyntax-pp.gonu [ GOOF----LE-8-2.0/ ] 4 hZw ] g primitive-eval g current-module g warn f 0module system is booted, we should have a module g module-variable g resolve-module g macro? g
macro-type g
macro-binding
g %expanded-vtables g assq g name
g public g private g module-name g bare g hygiene g syntax-violation f bad module kind g for-each g lexical g macro g ellipsis g module-define! g make-syntax-transformer g
vector-length g
syntax-object g symbol->string g
module-gensym f l g list->vector g make-vector !g append "g ribcage #g shift $g list-ref %g id-var-name &f
invalid id 'g supports-source-properties? (g set-source-properties! )g source-properties *g
begin-form +g $sc-dispatch ,g _ -, .g apply /g any 0g each-any 1/0 2,1 3f -source expression failed to match any pattern 4g local-syntax-form 5g eval-when-form 601 7,6 8g e 9g memq :g eval ;g expand <g c&e =: >g load ?g compile @?> Ag c B> Cg define-syntax-form Dg define-syntax-parameter-form Eg guile FE Gg define-form Hg global IH Jg displaced-lexical KJ Lg core Mg
module-ref Ng module-local-variable Og module-add! Pg make-undefined-variable Qg variable? Rf identifier out of context Sf "cannot define keyword at top level Tg
procedure? U Vg eval-when Wf invalid situation Xg lexical-call Yg global-call Zg core-form [g local-syntax \g begin ]g define ^,// _// `_1 a,` b,/ cg if dg top ed f ge hf l-bde397a-100e ih j"fgi k" lg key ml ng
m-bde397a-fde ond po qf
l-bde397a-fdf rq s"mpr tg ftype ug fval vg fform wg fe xg fw yg fs zg fmod {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 }~ "{| g first f
l-bde397a-fce "g g r g w g s g rib g mod g for-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 "| g lambda-var-list g gen-var g strip g expand-lambda-case g lambda*-formals g expand-simple-lambda g lambda-formals g ellipsis? g expand-void g eval-local-transformer g expand-local-syntax g expand-body g expand-macro g expand-application g expand-expr g syntax-type g parse-when-list g expand-install-global g expand-top-sequence g expand-sequence g source-wrap g wrap g bound-id-member? g distinct-bound-ids? g valid-bound-ids? g
bound-id=? g free-id=? g with-transformer-environment g transformer-environment g resolve-identifier g locally-bound-identifiers g same-marks? g
join-marks g
join-wraps g smart-append g make-binding-wrap g extend-ribcage! g make-empty-ribcage g new-mark g anti-mark g
the-anti-mark g top-marked? g top-wrap g
empty-wrap g set-ribcage-labels! g set-ribcage-marks! g set-ribcage-symnames! g ribcage-labels g
ribcage-marks g ribcage-symnames g ribcage? g make-ribcage g
gen-labels g gen-label g
wrap-subst g
wrap-marks g make-wrap g id-sym-name&marks g id-sym-name g id? g
nonsymbol-id? g
global-extend g lookup g macros-only-env g extend-var-env g
extend-env g null-env g
binding-value g binding-type g make-binding g arg-check g source-annotation g no-source g set-syntax-object-module! g set-syntax-object-wrap! g set-syntax-object-expression! g syntax-object-module g syntax-object-wrap g syntax-object-expression g syntax-object? g make-syntax-object g build-lexical-var g build-letrec g build-named-let g build-let g build-sequence g
build-data g
build-primref g build-lambda-case g build-case-lambda g build-simple-lambda g build-global-definition g build-global-assignment g build-global-reference g analyze-variable g build-lexical-assignment g build-lexical-reference g build-dynlet g build-conditional g build-application g
build-void g maybe-name-value! g decorate-source g get-global-definition-hook g put-global-definition-hook g
session-id g local-eval-hook g top-level-eval-hook g fx< g fx= g fx-
g fx+ g set-lambda-meta! g lambda-meta
g lambda? g make-dynlet g make-letrec g make-let g make-lambda-case g make-lambda g
make-sequence g make-application g make-conditional g make-toplevel-define g make-toplevel-set g make-toplevel-ref g make-module-set g make-module-ref g make-lexical-set g make-lexical-ref g make-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-b6a =f
l-bde397a-b68 >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{|}~ " ! g define-structure g define-expansion-accessors g define-expansion-constructors eee f
l-bde397a-967 f
l-bde397a-92f f
l-bde397a-8fd " ejkskkkkk E c g lambda g args g e1 g e2 eeee f l-bde397a-1001 f l-bde397a-1002 f l-bde397a-1003 f l-bde397a-1004 " ekskkkkk g
define-syntax g define-syntax-parameter g call g self-evaluating? g constant g other g
syntax->datum g include-deprecated-features g issue-deprecation-warning f ASequences of zero expressions are deprecated. Use *unspecified*. f sequence of zero expressions f Ddefinition in expression context, where definitions are not allowed, g syntax f 1reference to pattern variable outside syntax form f )reference to identifier outside its scope f unexpected syntax g map f &encountered raw symbol in macro output f m f placeholder g placeholder f no expressions in body f nonprocedure transformer ,0 f -invalid or duplicate identifier in definition g reverse g each // 1 ,挤 f duplicate bound keyword f bad local syntax definition g $sc-ellipsis g ... g b f l-bde397a-116a "g g n f l-bde397a-1167 "g g id f l-bde397a-1165 "g 8 eee f l-bde397a-115f f l-bde397a-1160 f l-bde397a-1161 " ekkkkkk
f invalid argument list f %duplicate identifier in argument list g lambda* g restS g keyS g optionalS
/ f invalid optional argument list g a
ee f l-bde397a-11f4 f l-bde397a-11f5 "
g req g ropt f l-bde397a-11ea f l-bde397a-11eb f l-bde397a-11ec " g check g rest g opt l eeeee f l-bde397a-11b4 !f l-bde397a-11b2 "f l-bde397a-11b0 #f l-bde397a-11ae $f l-bde397a-11ac % !"#$ &" % 'g orig-args (' )f l-bde397a-11ab *) +"(g* ,ek&+ -, .- //// 0// 1/ 2f invalid keyword argument list 3g allow-other-keysS 4g keyword? 5g symbol->keyword 6g k 76 8f l-bde397a-1233 98 :"7g9 ;f l-bde397a-122d <f l-bde397a-122e =;< >"
= ?g rkey @ ? Af l-bde397a-1222 Bf l-bde397a-1223 Cf l-bde397a-1224 Df l-bde397a-1225 EABCD F"@E Gek:>kF&+
HG IH Jf invalid rest argument Kg car Lg cadr M/1 Ng vector O_ PNO QP1 Rg cons Sg string? Tg
documentation UM VMU Wg vector->list Xg syntax-session-id Yg
make-fluid Zg error [f 9called outside the dynamic extent of a syntax transformer \g
letrec-syntax ]g
let-syntax ^g syntax-parameterize _f
bad syntax `g quote ag ref bf misplaced ellipsis c/_ dg list eN1 f` gf extra ellipsis hg primitive ih! jf missing ellipsis kg tmp lg cdr mg and-map nf how did we get here of bad `syntax' form p,M qf
bad lambda rf bad lambda* sg case-lambda t,U u/U v,u wf bad case-lambda xg case-lambda* yf bad case-lambda* zg
with-ellipsis {g let |f duplicate bound variable }/挤 ~,} f bad let g letrec f
bad letrec g letrec* f bad letrec* g set! ,1/ g setter g m-bde397a-16ac d f l-bde397a-16ad "m g type g value g formform g ee g ww g ss g modmod f l-bde397a-16a5 f l-bde397a-16a6 f l-bde397a-16a7 f l-bde397a-16a8 f l-bde397a-16a9 f l-bde397a-16aa f l-bde397a-16ab "| g head g tail g val f l-bde397a-1696 f l-bde397a-1697 f l-bde397a-1698 " 8 eeeee f l-bde397a-1677 f l-bde397a-1678 f l-bde397a-1679 f l-bde397a-167a f l-bde397a-167b " ekkkk f bad set! g procedure-property g variable-transformer f not a variable transformer g @ ,0/ e f l-bde397a-16d4 f l-bde397a-16d5 " 8 f l-bde397a-16c8 f l-bde397a-16c9 f l-bde397a-16ca " ek
g @@ g free-id g
remodulate f l-bde397a-16e0 " f l-bde397a-16dd f l-bde397a-16de f l-bde397a-16df " e ,0/ g exp f l-bde397a-1709 f l-bde397a-170a " e f l-bde397a-16fd f l-bde397a-16fe " e ,/// g with-fluids g syntax-case g p g ids f l-bde397a-1776 f l-bde397a-1777 f l-bde397a-1778 " g cvt g v-reverse g cvt* f l-bde397a-1755 f l-bde397a-1753 f l-bde397a-1751 " g pattern g keys f l-bde397a-174e f l-bde397a-174f f l-bde397a-1750 " g gen-syntax-case g
gen-clause g build-dispatch-call g convert-pattern eeee f l-bde397a-1749 f l-bde397a-1747 f l-bde397a-1745 f l-bde397a-1743
"
ek
, N0 g atom g each+ f duplicate pattern variable g pat f l-bde397a-1812 f l-bde397a-1813 " g x g clauses f l-bde397a-1807 f l-bde397a-1808 f l-bde397a-1809 f l-bde397a-180a f l-bde397a-180b ! ""! #ek" $# %,# &f invalid clause '00 (/' ),( *f invalid literals list +g macroexpand ,g identifier? -g
datum->syntax .g
syntax-source /g generate-temporaries 0f invalid argument 1f t 2g free-identifier=? 3g bound-identifier=? 4g throw 5g syntax-error 6g syntax-local-binding 7g assq-ref 8f unexpected id-var-name 9g pattern-variable :g syntax-locally-bound-identifiers ;g define! <g
syntax-module =g with-syntax >1 ?,> @ Af l-bde397a-196a Bf l-bde397a-196b CAB D"@C E Ff l-bde397a-1967 GF H"EgG IeDkH J{I K LK1 M,L Ng out Og in PNO Qf l-bde397a-1970 Rf l-bde397a-1971 Sf l-bde397a-1972 Tf l-bde397a-1973 UQRST V"PU WeVkH XW Y{W Zf l-bde397a-197a [f l-bde397a-197b \f l-bde397a-197c ]f l-bde397a-197d ^Z[\] _"P^ `e_kH a` bd` c{` dg message eg arg fde gf l-bde397a-19a3 hf l-bde397a-19a4 igh j"fi kf l-bde397a-1986 lk m"Egl nejkm o5n pn qp rg string-join sg object->string tg syntax-rules ug clause vu wf l-bde397a-19af xw y"vgx zg expand-syntax-rules {g
expand-clause |z{ }ee ~f l-bde397a-19ac f l-bde397a-19aa ~ "|} g xx f l-bde397a-19a9 "g eky 5 1 _ _/ g dummy g keyword g template f l-bde397a-19c4 f l-bde397a-19c5 f l-bde397a-19c6 " eky de f l-bde397a-19ba f l-bde397a-19bb f l-bde397a-19bc f l-bde397a-19bd " eky 5 000 g docstring 6u eeeeee f l-bde397a-19d5 f l-bde397a-19d6 f l-bde397a-19d7 f l-bde397a-19d8 f l-bde397a-19d9 f l-bde397a-19da " g dots g
docstrings f l-bde397a-19ce f l-bde397a-19cf f l-bde397a-19d0 f l-bde397a-19d1 " ekkkk t g patterns f l-bde397a-19e7 "g g form f l-bde397a-19e3 "g ekkkkkk
z 0 ,ό / 0ь ,Ҍ /ό ,Ԍ /Ҍ , g define-syntax-rule ,_/ f l-bde397a-1a50 f l-bde397a-1a51 f l-bde397a-1a52 " f l-bde397a-1a4d "Eg ek t , ,_// f l-bde397a-1a5f f l-bde397a-1a60 f l-bde397a-1a61 f l-bde397a-1a62 " ek t , g let* g f g bindings f l-bde397a-1a80 f l-bde397a-1a81 " g v f l-bde397a-1a76 f l-bde397a-1a77 f l-bde397a-1a78 f l-bde397a-1a79 f l-bde397a-1a7a " f l-bde397a-1a68 "Eg ekk { g body
g binding
f l-bde397a-1a8a
f l-bde397a-1a8b
" ekkk { g
quasiquote g unquote g lev f l-bde397a-1a9e f l-bde397a-1a9f " g emit g quasivector g
quasilist* g quasiappend g quasicons g vquasi g quasi ! "eeeeeee #f l-bde397a-1a9a $f l-bde397a-1a98 %f l-bde397a-1a96 &f l-bde397a-1a94 'f l-bde397a-1a92 (f l-bde397a-1a90 )f l-bde397a-1a8e *#$%&'() +"!"* ,ek+ -, .- /./ 0f value 1 2f l-bde397a-1aa2 32 4"1g3 5e4k+ 605 7f quote 875 95 :89 ;, <; =</ >f l-bde397a-1aa5 ?> @"1g? Ae@k+ B7A CA DBC Eg q FE Gf l-bde397a-1aa8 Hf l-bde397a-1aa9 IGH J"FI KeJk+ LK ML NM0 Of l-bde397a-1aae PO Q"1gP ReQJk+ S0R T7R UR VTU Wg unquote-splicing XWK YX ZY0 [f l-bde397a-1ab3 \[ ]"1g\ ^e]Jk+ _0^ `7^ aW^ b`a c7 dc0 ef l-bde397a-1b0e fe g"Egf hf l-bde397a-1b0b ih j"Egi kegkj+ l7k mg y nm of l-bde397a-1b23 po q"ngp rm6 sf l-bde397a-1b11 tf l-bde397a-1b12 uf l-bde397a-1b13 vstu w"rv xeqkwkj+ y7x zf list {z |{0 }f list* ~} /1 ~ f list->vector g t-bde397a-1b34 g m-bde397a-1b35 d f l-bde397a-1b38 " g else f l-bde397a-1b32 "g ekkwkj+ f vector g t-bde397a-1b19 g m-bde397a-1b1a d f l-bde397a-1b1e " g ls f l-bde397a-1b18 "g ekkkkkj+
f l-bde397a-1abb "1g ek+ 7 f l-bde397a-1ac3 f l-bde397a-1ac4 "F f l-bde397a-1abf f l-bde397a-1ac0 " ek+ 0 f l-bde397a-1ac9 "1g ek+ 0 7 W 0 f l-bde397a-1ace "1g ek+ 0 7 W ek+ 7 c/ g dx f l-bde397a-1ae4 "g g dy f l-bde397a-1ae0 "g m f l-bde397a-1ada f l-bde397a-1adb " f l-bde397a-1ad5 f l-bde397a-1ad6 " ekkk+ 7 ekkk+ z } {/ g stuff f l-bde397a-1ae7 "g ekkk+ z ~/ f l-bde397a-1aea "g ekkk+ } ekkk+ } c f l-bde397a-1aee f l-bde397a-1aef " ek+ 7 f append f l-bde397a-1af6 "1g ekk+ 0/ m f l-bde397a-1afd f l-bde397a-1afe " ekk+ f l-bde397a-1b3e "Eg
f l-bde397a-1b3b
"Eg
e k + `
g t-bde397a-1b43 g m-bde397a-1b44 d f l-bde397a-1b48 " f l-bde397a-1b41 "Eg ekk + d g t-bde397a-1b57 g t-bde397a-1b56 g m-bde397a-1b58 d ! "f l-bde397a-1b5c #f l-bde397a-1b5d $"# %" !$ &g x* '& (f l-bde397a-1b51 )f l-bde397a-1b52 *() +"'* ,f l-bde397a-1b4d -f l-bde397a-1b4e .,- /". 0ek%k+/k + 1R0 2 320 4g t-bde397a-1b63 54 6g m-bde397a-1b64 76d 87 9f l-bde397a-1b68 :9 ;"58: <f l-bde397a-1b61 =< >"Eg= ?ek;>k + @!? A BA0 Cg t-bde397a-1b6f DC Eg m-bde397a-1b70 FEd GF Hf l-bde397a-1b74 IH J"DGI Kf l-bde397a-1b6d LK M"EgL NekJMk + ONN P QP/ Rg t-bde397a-1b7b SR Tg m-bde397a-1b7c UTd VU Wf l-bde397a-1b7f XW Y"SVX Zf l-bde397a-1b79 [Z \"Eg[ ]ekY\k + ^ ] _0 `_/ ag include bg open-input-file cg absolute-file-name? dg in-vicinity ef Brelative file name only allowed when the include form is in a file fg
file-encoding gg set-port-encoding! hf UTF-8 ig eof-object? jg close-input-port kg read lg filename mg dirname n of l-bde397a-1bba po q"ngp rg fn sr tf l-bde397a-1bb5 ut v"sgu w6l xf l-bde397a-1bb1 yf l-bde397a-1bb2 zxy {"wz |g dir }| ~f l-bde397a-1bab ~ "}g g file f l-bde397a-1ba7 "g g src f l-bde397a-1ba5 "g g read-file f l-bde397a-1b8c " f l-bde397a-1b8b "Eg ekqkkv{kkkk \ g include-from-path g %search-load-path f file not found in path f l-bde397a-1bc9 "sg f l-bde397a-1bc5 "sg f l-bde397a-1bc1 f l-bde397a-1bc2 "w f l-bde397a-1bbe "Eg ekkkk a f *expression not valid outside of quasiquote g set-procedure-property! f $variable transformer not a procedure g make-variable-transformer g identifier-syntax 8 f l-bde397a-1bdd "g f l-bde397a-1bda "g ek , , ek // / , g exp1 g var g exp2 f l-bde397a-1bec f l-bde397a-1bed f l-bde397a-1bee f l-bde397a-1bef f l-bde397a-1bf0 " ek ܌ , g define* g b0 g b1 f l-bde397a-1bfa f l-bde397a-1bfb f l-bde397a-1bfc f l-bde397a-1bfd " f l-bde397a-1bf7 "Eg ek ] f l-bde397a-1c08 f l-bde397a-1c09 " ek ] C 5 hj , 3 5HH h ] 6 g x
g mod g filenamef ice-9/psyntax.scm
g nameg top-level-eval-hook C h ]$ " 45 $ 4 > " G " 4$ 45" 45 5 $ 8$ / 45$ 45$ 4545CCCCC g symbol
g module g v L g val ^ g filenamef ice-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 g nameg get-global-definition-hook C
h@ ]$ 4
& & 45$ C CCC g name
? g val ? g meta ; g v 2 ; g filenamef ice-9/psyntax.scm
< = >
? ? $ ? ( ? , @ - / @ & 2 @ : ? g nameg maybe-name-value! C
h ] C g source
g fun-exp g arg-exps g filenamef ice-9/psyntax.scm
H
g nameg build-application C
h ] $ $ 6$ 445 5$ 66$ 6$ 7445 5$ " 4455$ 66
66 g mod
g var g modref-cont g bare-cont g kind g mod g filenamef ice-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 ^
! g nameg analyze-variable C
h0 ]
C g src
) g req ) g rest ) g vars ) g meta ) g exp ) g body ) g filenamef ice-9/psyntax.scm
)
) g nameg build-simple-lambda C
h ]( C C g src
g exps g filenamef ice-9/psyntax.scm
g nameg build-sequence C
h ]M
$ B
& 2
4
5$ "
" " 4L > " G
C g src
g ids g vars g val-exps g body-exp g f g f-name g vars g ids g body + = g proc = g meta
V g v q } g fun-exp
g names
g gensyms g vals g body
g filenamef ice-9/psyntax.scm
# ) +
+ 2
5 ; :
=
B F = I V >
Y ? ] ? a ? e ? k @ - n @ & q @ y
$
$ g nameg build-named-let CO
h8 ]( C4L > " G C g src
6 g in-order? 6 g ids 6 g vars 6 g val-exps 6 g body-exp 6 g filenamef ice-9/psyntax.scm
&
6 g nameg build-letrec CO
h z ] C r g x
g filenamef ice-9/psyntax.scm
g nameg syntax-object-expression C h( ] ( C " g labels
% g bindings % g r % g filenamef ice-9/psyntax.scm
- . 0 0 % 1 $ 1 1 1 1 % 0
% g nameg
extend-env CO h( ] ( C " g labels
( g vars ( g r ( g filenamef ice-9/psyntax.scm
5 6 8 8 ) 9 ( 9 C 9 L 9 5 9 " 9 ( 8 ( g nameg extend-var-env CO
hH ] ( C & " $ 4L 5C " g r
C g a
C g t * g filenamef ice-9/psyntax.scm
? @ A
B
B C C . C 1 D 6 D + 8 D 9 D = E # C E C g nameg macros-only-env CO h ]45 4 56 g type
g sym g val g filenamef ice-9/psyntax.scm
T $ & $
g nameg
global-extend C h8 ] $ C $ "4 5 $
& CCCC g x
6 g filenamef ice-9/psyntax.scm
c e
d d / f 6 g nameg id? C h ] ( C44554L 5C g ls
g filenamef ice-9/psyntax.scm
% *
g nameg
gen-labels CO ! h ] ( C " L " j$ ^45 $ H
& 6 L ( " 45 " " "" "" " G LL "W g ids
g i g x
g m1 J i g m2 J i g symname g marks g filenamef ice-9/psyntax.scm
<
) u u q ! % q & D t I J t ( J t
T [ o r ! + g nameg f C" h x ]+ ( C45 45 4545 O Q 4
> " G C p g ids
{ g labels { g w { g labelvec u g n r g
symnamevec . o g marksvec . o g f = ^ g filenamef ice-9/psyntax.scm
! $ ( ? . = ` x y
z { g nameg make-binding-wrap C ! h ] ( +( C ( " 45 C ( " 45 ( " 45 C y g w1
y g w2 y g m1 y g s1 y g m2 ! ; g m2 @ Z g m2 ] w g filenamef ice-9/psyntax.scm
'
! $ ! ) 0 < @ @ H O ] ] e l x y g nameg
join-wraps C h8 ] & C ( C( C & "C g x
6 g y 6 g filenamef ice-9/psyntax.scm
" & ) , & 4 6 g nameg same-marks? CO #$ h ]#( D & " $ m45 " Y$ "" " & #4L 5$ D""
"" a( "A" " & +4L4 55$ 4 5D""
"
g sym
g subst g marks g fst g symnames 0 g n @ g i F g symnames g i g filenamef ice-9/psyntax.scm
" " . , 0 0 5 9 : @ F K O T ( ` g m m r x y
*
- ! ' ( ( 9 g nameg search C%&! h R ]:O L Q $ 4 5 $ C C"
6 $ 4 5 $ |
& n ( " 45 4> G $ C45 $ CC"e"a"] J g id
g w g search g t & 4 g id j g w1 j g m1 t g m2 t g marks g new-id g marks g t g filenamef ice-9/psyntax.scm
! $ / & &
< ! > . B B
E I
J j
q % t 4 t ~ + 6 + ( g nameg id-var-name CO # h8 ]B" _( C &
" $ " w " " [" G(
"4L 5 " "" a45 " I$
"4L 5 "
" " g w
5 g mod 5 g subst e g results e g fst e g symnames 2 e g marks 2 e g subst i g symnames i g marks i g results i g symnames m g marks m g results m g w g subst ) g symnames ) g marks ) g results ) g n ) g i g results g w g filenamef ice-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 g nameg locally-bound-identifiers CO h , ]" d( " a $ " 3$ +45 $
& " " " $ "" "$ L 6C $ g ids
~ g ids j g x X g filenamef ice-9/psyntax.scm
e
d % ) d * F f \ _ " e j
v |
~ g nameg valid-bound-ids? CO h0 ] " "( C4L 5$ C " " g ids
0 g ids ( g filenamef ice-9/psyntax.scm
* 4 " ( (
0 g nameg distinct-bound-ids? CO h _ ]
( C " " $ 4 5 $ o
& ]$ N45 $ 8
& & & 4L 5" " "" "" "" "w" "o" "g $ C "; W g x
g list g j
g t g filenamef ice-9/psyntax.scm
| # | $ 1 | 5 f } g n o t u w
% g nameg bound-id-member? CO h d ]" ( C C" R $ G4 5 $ 5
& ' 4L 5 C"""( ( C"" \ g x
g w g defmod g
expression S e g wrap S e g module S e g filenamef ice-9/psyntax.scm
" & ' C L N S S
[ q t x { -
g nameg wrap CO '( h@ ]L $ '4 5$ 4 > " G " " 6 g x
9 g w 9 g s 9 g defmod 9 g filenamef ice-9/psyntax.scm
8 8 8
9
9 9 g nameg source-wrap CO ) h ]D ( C 4L4$ ,45 $
& " " " 5 $ " > G
4L
5
4L 5C g body
g r g w g mod g e
g props R e g type o g value o g form o g e o g w o g s
o g mod o g first g filenamef ice-9/psyntax.scm
3
+ " # R R W [
n r , 4 , g nameg dobody C h0 ]
LO L LQ 4 5 6 g body
+ g r + g w + g s + g mod + g dobody ) g filenamef ice-9/psyntax.scm
+ + g nameg expand-sequence CO )*+-. h ] L C
C2 h g ]L LLLLLLL 6 _ g e1
g e2 g filenamef ice-9/psyntax.scm C34 h ]L LLL 6 g body
g r g w g s g mod g filenamef ice-9/psyntax.scm
. 0 C5789:;<=>?@AB
h ]#4L L 5 L & r45$ 'LLLL45$ " LL645$ .4LLLLL5 4> " G " LC45$ 4 5 $ " /45 $ " L &
45" $ LLLL
LL6L & " L $ LLLL LL6LC4 5 $ " /45 $ " L &
45" $ -4LLLLL5 4> " G LCLC g x
g e1 g e2 g when-list g body g x p g t g t g t 1 p g t G m g x g filenamef ice-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 ]84L LLL4L$ ,4L5 $ L
& L " L" L" L5 $ " L> G 4L L5 $ B
& 2 45$ " L " " LL C g props
E X g type
b g value b g form b g e b g w b g s b g mod b g exp
g meta g v g filenamef ice-9/psyntax.scm
: $ E E J N
a e t ; & = >
? ? ? ? @ - @ & @
CJR'(S h N ] LLLLLLLLL 6 F g filenamef ice-9/psyntax.scm
K & L (
C 7 h` , 3 ( C 4L 4$ ,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 $ " > G 4L5 5 4L> " G 45$ " " 45$ 4L4L 4 $ ,4 5 $
& " " " 5 $ " > G 4L5 5" " H$ 4L4L 4 $ ,4 5 $
& " " " 5 $ " > G 4L5 5 4L> " G " ~45$ o4L4L 4 $ ,4 5 $
& " " " 5 $ " > G 4L5 445 5 $ " $ B
& 2 4 !5$ " ! " " > " G " " "$ +4L 5 4 5 $ " )$ 4L5 $ " # " $ %$ " !&$ " $ " '$ & " $ 4(45 5$ " 45 $ 4)45 5 " 4*45 4+5 > " WG " P4,5$ A$ 24-5$ "" 4.45 > " G " "" " " " & 4L 4 $ ,4 5 $
& " " " 5 $ " > G 4L5 $ 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
5 4/> " G " 6
LO G " g body
\ g r \ g w \ g s \ g m \ g esew \ g mod \ g exps \ g e g props W j g t j } g type 1 g value 1 g form
1 g e 1 g w 1 g s
1 g mod 1 g tmp g tmp g tmp L g n g r g props ( g type 2 m g value 2 m g form 2 m g e 2 m g w 2 m g s 2 m g mod 2 m g e o g props g type N g value N g form N g e N g w N g s N g mod N g props g type g value g form g e g w g s g mod g e # g props z g type g value g form g e g w g s g mod g e g fun-exp 2 g arg-exps 2 g exp 2 g meta K u g v f r g n g t g t g type g old w g props C V g type ` g value ` g form ` g e ` g w ` g s ` g mod ` g exp g meta g v g x g x g exps 2 \ Rg filenamef ice-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 \ g nameg scan C
T h ]/O L
L LLLLLLLLL Q 4 > G (
CL " 8 (
" 7 4 5$ 4 5 "
"
"6 g body
g r g w g s g m g esew g mod g scan g exps H g in e g out
e g e t g filenamef ice-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 g nameg expand-top-sequence CO F
h ]445 5$ " $ B
& 2 45$ " " " C g name
g e g fun-exp I ` g arg-exps I ` g exp ` g meta y g v g filenamef ice-9/psyntax.scm
_ ! 3
e #
* ! , e # 0
A g & D
I f
I c R
` ` e i = l y >
| ? ? ? ? @ - @ & @
! g nameg expand-install-global C U?>:;VW hp 8 ]4L 5 " W( C & " & " & " $ " 6 "0 g e
p g when-list p g result p g l h g t N g filenamef ice-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 g nameg parse-when-list CO IKHUXYMLZ[4\*V5]+^ab3 h8 ] $ C $ "4 5 $
& CCCC ~ g name
6 g filenamef ice-9/psyntax.scm e
d d / f 6 CGU h( t ]4L LL54LLLL5L LD l g name
$ g filenamef ice-9/psyntax.scm + $ $ CU h8 . ] $ " 3 $ +4 5 $
& " " " $ L " $ 4L5 "$ " 3$ +45 $
& " " " $ 4L5" o( " c" " V$ <45 $ *
& 4L 5 "4""" "6C & g name
6 g args 6 g e1 6 g e2 6 g vars K # g ls K # g w K # g filenamef ice-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'(U hp ] 4L LL54LLLL54LLL5 L $ '45$ 4L > " G " " L LD g name
j g args j g e1 j g e2 j g e . b g filenamef ice-9/psyntax.scm + . . . 6 8 7 8 A 8
B 9
j j C h8 ] $ C $ "4 5 $
& CCCC g name
6 g val 6 g filenamef ice-9/psyntax.scm e
d d / f 6 CG h s ] LLLL D k g name
g val g filenamef ice-9/psyntax.scm C h8 ] $ C $ "4 5 $
& CCCC g name
6 g val 6 g filenamef ice-9/psyntax.scm e
d d / f 6 CC h s ] LLLL D k g name
g val g filenamef ice-9/psyntax.scm C h8 ] $ C $ "4 5 $
& CCCC g name
6 g val 6 g filenamef ice-9/psyntax.scm e
d d / f 6 CD h s ] LLLL D k g name
g val g filenamef ice-9/psyntax.scm C) - h ]o $ 4L 5 45 $ " )$ 4L5 $ " " $ D $ D $ H$ D4L 5 " D $ 4L> G
$ D$
D$ 14L 5 "f $ <4 > G "! $
D$ D$ D$ D$ 4 5 " 4 5 " D4 5 " 6$ "4?$ LO @""$ +4 L LLO ?$ LO @""$ 4 ?$ O @"R"N!$ B4 5 " 6$ 4"?$ # O @""$$ B4 5 " 6$ 4%?$ & O @""' D" )4( 5$ ) D* D $ 4+ 5 $
& 4L 54,4+ 5 $
& " " 5 $ " $ " $ " "q"!" " g e
g r g w g s g rib g mod g for-car? g n g t X g t < O g b X g type ] g first g ftype g fval g fform
g fe g fw g fs
g fmod g e g r g w g s g mod g tmp U
g tmp d g tmp s g tmp X g tmp j g props = P g t P c g t j } !g filenamef ice-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 g nameg syntax-type CO ) h ]<4L 4 $ ,4 5 $
& " " " 5 $ " > G
L
6 g e
g r g w g mod g props E X g type b g value b g form b g e b g w b g s b g mod
b g filenamef ice-9/psyntax.scm
E E J N
a e g nameg expand CO !
LZM)XY
h ] L C ~ g mod
g var g public? g filenamef ice-9/psyntax.scm
q
C
h ` ] L C X g var
g filenamef ice-9/psyntax.scm
s
C'(UH
h ] L C ~ g mod
g var g public? g filenamef ice-9/psyntax.scm
q
C
h ` ] L C X g var
g filenamef ice-9/psyntax.scm
s
C*+2 h g ]L LLLL 6 _ g e1
g e2 g filenamef ice-9/psyntax.scm C-
'( hh ] 45 $ 4> " G
C4LL$ '4L5$ 4LL> " G " " LLL 56 g filenamef ice-9/psyntax.scm " " $ % $ !
+ ' ' , 4 8 5 8 ? 8
@ 9
c e ' e
C34579:
h8 ] 4L L 5 45$ LLLLL6
C g x
4 g e1 4 g e2 4 g when-list 4 g filenamef ice-9/psyntax.scm . . / / / / + 0 /
4 CGCDJ + h 5 , 3 $ C $ " $ 6 $ 4> G
4L
4$ ,45 $
& " " " 5
$
"
> G
" $ L 4$ ,45 $
& " " " 5 $ " $ /45 $
& 4
5" " "
6 $ L 4$ ,45 $
& " " " 5 $ " $ ,45 $
& " " " $ -45 $
& " " "
4L
O
O 5
6 $ M4L4L$ '45$ 4> " G " " 55 C $ LO O 6 $ L 4L4$ ,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 - g type
g value g form g e g r g w g s g mod g e [ g r [ g w
[ g s [ g mod [ g props
g type
g value g form g e g w g s g mod g id g props G Z g source g name
g x g props g source g var g mod
g exp g e 9 g props ~ g type g value
g form g e g w
g s g mod g tmp ? g tmp ? g tmp l +g filenamef ice-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
; | g nameg expand-expr CO "+1) h Q ]94L LL4 $ ,4 5 $
& " " " 5 $ " L> G L L6 I g e
g props E X g type b g value b g form b g e b g w b g s b g mod b g filenamef ice-9/psyntax.scm
C # E E J N
a e C
h0 ]
4LLLLL O 5 LL C g e0
) g e1 ) g arg-exps ) g filenamef ice-9/psyntax.scm C B
) C3 h8 ]45 $ LL O @6 g x
3 g e 3 g r 3 g w 3 g s 3 g mod 3 g tmp 3 g filenamef ice-9/psyntax.scm
? 3 g nameg expand-application CO #'( # h@ ]2 $ G4L 54L 5 L$ '45$ 4L> " G " " C $ e" w4 5 45 L$ '45$ 4L> " G " " " &$ C4L 5 "
"4 5 $
& " l L$ '45$ 4L> " G " " L $ L " C$ >& 2 L $
L " C"O"K"" $ IL 4L$ '4L5$ 4L> " G " " LLL5 6L$ '4 5$ 4 L> " G " " C g x
< g m < g e P g n b g e k g v g i g w g ms g ss g e 7 g
expression Y k g wrap Y k g module Y k g
expression g wrap g module g s g filenamef ice-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 < g nameg rebuild-macro-output C h ^ ] LLLLLL 6 V g k
g filenamef ice-9/psyntax.scm
# C#'( h ]O LQ M O Y44 4L$ '45$ 4> " G " " 5 545> ZCZF g p
g e g r g w g s g rib g mod g rebuild-macro-output g w H g filenamef ice-9/psyntax.scm
g 7
: @ ' A C F G H H # K S 8 T 8 ^ 8
_ 9
g nameg expand-macro CO $"U)G CDT*+ h( ] ( LCL 4L LL54L 5C g forms
% g filenamef ice-9/psyntax.scm
# % ) 8 > 8 / / ! 2 # / $ ) % g nameg f C h8 n ] L O LLLL L
Q 4 5 LLLLLL 6f g e1
8 g f * g filenamef ice-9/psyntax.scm # 8 8 C34 h( ] ( LCL 4L LL54L 5C g forms
% g filenamef ice-9/psyntax.scm
7 9 = L R L C C ! F # C $ = % g nameg f C h8 ]
LO LLQ 4 5 LLLLLL 6 g forms
8 g er 8 g w 8 g s 8 g mod 8 g f * g filenamef ice-9/psyntax.scm
. 7 8 0 8 CU) h ]I 4L4$ ,45 $
& " " " 5 $ " L> G L 6 g x
g e g r g props O b g type l g value l g form l g e l g w l g s l g mod l g filenamef ice-9/psyntax.scm
2 < D 4
O O T X
k o C'(
U) h ]I 4L4$ ,45 $
& " " " 5 $ " L> G L 6 g x
g e g r g props O b g type l g value l g form l g e l g w l g s l g mod l g filenamef ice-9/psyntax.scm
2 < D 4
O O T X
k o CU) h ]I 4L4$ ,45 $
& " " " 5 $ " L> G L 6 g x
g e g r g props O b g type l g value l g form l g e l g w l g s l g mod l g filenamef ice-9/psyntax.scm
B L T D
O O T X
k o C $ h c
] ( L 6 4L 4$ ,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 L4L 4L
4 $ ,4 5 $
& " " " 5 $ " > G 4L5 45 45$ "
45 L5 " $ ;4 5 $ !
L
L O @ 6 $ 'L
L
L O 6( h4LL O 4L
$ '4 5$ 4 > " G " "
5 5 ( C C4L5$ " 4 L > " G L4LL54 4 554 54!LL O 4 554"LL O 4L
$ '4 5$ 4 > " G " "
5 5 ( " ( C4#L > " G C [
g body
g ids g labels g var-ids g vars g vals g bindings g e g er g props ` s g type ~ g value
~ g form ~ g e ~ g w
~ g s ~ g mod ~ g id } g label } g id g var } g update g update ' g update / ; g id g label g trans-r g update g update g update g props G Z g type d g value d g form d g e d g w d g s d g mod d g expanded g p g tmp = g exps g exps g ids g vars g val-exps g body-exp /g filenamef ice-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 = -
g nameg parse Ch g ]L4L LL5C _ g x
g filenamef ice-9/psyntax.scm
! 5 - C hp ]% O
LLLLLLL LQ 4LO 56 g body
n g
outer-form n g r n g w n g mod n g r n g ribcage n g w n g parse 3 n g filenamef ice-9/psyntax.scm
: , 3
S g h ( i j * k 5 l D n
n g nameg expand-body CO %+) h ]94L4L LL$ L" L4 $ ,4 5 $
& " " " 5 $ " L> G 4LL5 L5C x g x
g props V i g type s g value s g form s g e s g w s g s s g mod s g filenamef ice-9/psyntax.scm
0 0 " " & ' V V [ _
r v 0 " C hp 9 ] 4L 5$ V4L
5 4L L5 L4L
4L L5 4LLLLLLO 5 L5L L6L 6 1 g id
l g val l g e1 l g e2 l g labels c g new-w ! c g trans-r 6 W g filenamef ice-9/psyntax.scm
! + 0 ( 6 9 [ c h & l l C'( h - ]45 $ 'LL LLLLLLO @4L $ '45$ 4> " G " " 56 % g rec?
y g e y g r y g w y g s y g mod y g k y g tmp y g filenamef ice-9/psyntax.scm
? # " @ H 8 I 8 S 8
T 9
w y #
y g nameg expand-local-syntax CO &T h( ]
4 5 45$ C6 g expanded
" g mod " g p " g filenamef ice-9/psyntax.scm
'
( ) )
+ # " + " g nameg eval-local-transformer C 'U IK h ]# $ r4 5 $ b
& V $ K 4L5 45 $ " )$ 4L 5 $ " " & x " C4 5 $ W
& I$ >45 $ ,
& & L 6C"""""4 5 $
& " " 4 5 $
" & 4L 54L 5CCCCCC g e
} g r } g mod } g wrap 4 I g module 4 I g id I u g n T u g t _ g t ~ g b u g j g filenamef ice-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 } g nameg ellipsis? CO (+ h O ] L4L 56 G g filenamef ice-9/psyntax.scm H H
C_ h8 ] $ C $ "4 5 $
& CCCC { g r
6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h _ ]L4L 5 6 W g r
g filenamef ice-9/psyntax.scm L L C h8 ] $ C $ "4 5 $
& CCCC g a
6 g b 6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h n ]L L 6 f g a
g b
g filenamef ice-9/psyntax.scm J
J
C h ]4 5 $
LO @4 5 " + 4?$
LO @L 6$ 4 ?$
L O @"" g args
g rreq g tmp
g tmp ( g tmp 3 Y g filenamef ice-9/psyntax.scm
E Q N S N ' Y N
g nameg req C h0 ]4L$ " 5$ DL 6 g req
. g rest . g filenamef ice-9/psyntax.scm
O Q Q ! Q * Q P
$ R ( T * T & . T . g nameg check C h0 ]O O Q L Q 6 g orig-args
, g req , g check , g filenamef ice-9/psyntax.scm
D * V , V , g nameg lambda-formals CO )!'( h , 3 $ 4 5" 4L 5
4L 5 L45$ 45"
4L4L$ '4 5$ 4 > " G " " 54L
54L 556 g e
g r g w g s g mod g req g rest g meta g body g ids g vars
) g labels 2 g filenamef ice-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 ]
g nameg expand-simple-lambda CO *+ h a ] L4L 56Y g filenamef ice-9/psyntax.scm k k # k * k
C_ h8 ] $ C $ "4 5 $
& CCCC { g r
6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h q ]L 4L 56 i g r
g filenamef ice-9/psyntax.scm u u ( u , u C h n ]4 5C f g a
g b
g filenamef ice-9/psyntax.scm r r
C h ]L4L 56 x g a
g b g filenamef ice-9/psyntax.scm s s & s * s
C h n ]4 5C f g a
g b
g filenamef ice-9/psyntax.scm p p
C h ]L4L 56 x g a
g b g filenamef ice-9/psyntax.scm q q % q ) q
C h n ]4 5C f g a
g b
g filenamef ice-9/psyntax.scm n n
C h w ]L4L 56o g a
g b g filenamef ice-9/psyntax.scm o o % o
C h8 ] $ C $ "4 5 $
& CCCC g a
6 g b 6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h n ]L L 6 f g a
g b
g filenamef ice-9/psyntax.scm m
m
C h ]24 5 $
LO @4 5 " 4 5 " 4 5 " `4 5 " + 4?$
LO @ L 6$ 4
?$
LO @""$ 4 ?$
LO @"~"z$ 4?$
LO @"I"E$ 4?$
L O @"" g args
g rreq g tmp
g tmp ( g tmp 7 g tmp F g tmp U g tmp ` g filenamef ice-9/psyntax.scm
h ~ w w ( w
g nameg req C+ h X ] LL4L 56 P g filenamef ice-9/psyntax.scm { { * {
C_
h8 ] $ C $ "4 5 $
& CCCC { g r
6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h h ]L L4L 56 ` g r
g filenamef ice-9/psyntax.scm , C h n ]4 5C f g a
g b
g filenamef ice-9/psyntax.scm
C h w ]LL4L 56 o g a
g b g filenamef ice-9/psyntax.scm *
C h n ]4 5C f g a
g b
g filenamef ice-9/psyntax.scm
C h w ]LL4L 56 o g a
g b g filenamef ice-9/psyntax.scm )
C h8 ] $ C $ "4 5 $
& CCCC g a
6 g init 6 g b 6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h ]LL L 6 x g a
g init g b g filenamef ice-9/psyntax.scm
C h8 ] $ C $ "4 5 $
& CCCC g a
6 g b 6 g filenamef ice-9/psyntax.scm e
d d / f 6 C. h n ]LL L 6 f g a
g b g filenamef ice-9/psyntax.scm } }
C h0 ]34 5 $ LO @4 5 " 4 5 " 4 5 " d4 5 " - 4?$ LO @
L 6$ 4 ?$ LO @""$ 4
?$ LO @"x"t$ 4?$ L O @"A"=$ 4?$ L O @"
" g args
* g req * g ropt * g tmp
* g tmp * * g tmp 9 g tmp H g tmp W g tmp b g filenamef ice-9/psyntax.scm
x (
* g nameg opt C+ h X ] LLL4L 56 P g filenamef ice-9/psyntax.scm (
C_
01/ h8 ] $ C $ "4 5 $
& CCCC { g r
6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h h ]L LL4L 56 ` g r
g filenamef ice-9/psyntax.scm * ! C2 h n ]4 5C f g a
g b
g filenamef ice-9/psyntax.scm
C h w ]LLL4L 56 o g a
g b g filenamef ice-9/psyntax.scm (
C3 hH ]4 5& 4$ C$ "45 $
& CCCCC g aok
E g r E g filenamef ice-9/psyntax.scm ! e
d d < f E C h y ]LLL4L 56 q g aok
g r g filenamef ice-9/psyntax.scm (
C3 h ]4 5& 45CC g aok
g a g b g filenamef ice-9/psyntax.scm ! ! C h ]LLL4L 56 g aok
g a g b g filenamef ice-9/psyntax.scm (
C3 h a ]4 5C Y g aok
g filenamef ice-9/psyntax.scm
C h j ]LLL4L 56 b g aok
g filenamef ice-9/psyntax.scm (
C4 hX ] $ " 3 $ +4 5 $
& " " " $ 456C g a
R g init R g k R g b R g filenamef ice-9/psyntax.scm e
d d 2 f E H - P #
R Ch ]LLL L 6 g a
g init g k g b g filenamef ice-9/psyntax.scm
C h8 ] $ C $ "4 5 $
& CCCC g a
6 g init 6 g b 6 g filenamef ice-9/psyntax.scm e
d d / f 6 C5 h( ] 44 55 LLL L 6 g a
& g init & g b & g tmp & g filenamef ice-9/psyntax.scm /
$ & & C h8 ] $ C $ "4 5 $
& CCCC g a
6 g b 6 g filenamef ice-9/psyntax.scm e
d d / f 6 C5I h( ]
44 55 LLL L 6 g a
% g b % g tmp % g filenamef ice-9/psyntax.scm /
# % % C h c ]L4 5 $ LO @4 5 " 4 5 " L4 5 " 4 5 " 4 5 " 4 5
" h4 5 " / 4 ?$
LO @
L 6 $ 4 ?$ LO @""
$ 4
?$ LO
@"r"n $ 4 ?$ LO @"9"5$ 4?$ LO @" "$ 4?$ L O @""$ 4?$ L O @""$ 4?$ L O @"U"Q [ g args
g req g opt g rkey g tmp
g tmp , g tmp ; g tmp J g tmp Y c g tmp h 9 g tmp
w g tmp g tmp
g filenamef ice-9/psyntax.scm
(
g nameg key C h8 ] $ C $ "4 5 $
& CCCC { g r
6 g filenamef ice-9/psyntax.scm e
d d / f 6 C h V ]LLL L 6 N g r
g filenamef ice-9/psyntax.scm CJ h8 ] 4?$ LO @L 6 g args
1 g req 1 g opt 1 g kw 1 g tmp 1 g filenamef ice-9/psyntax.scm
) + ( 1
1 g nameg rest C!KL hX G ]4L4 45$ " $ 45" 55$
DL 6 ? g req
U g opt U g rest U g kw U g filenamef ice-9/psyntax.scm
' 0 # < & * + $ 2 . 4 $ 9 8 ;
= A
K O Q ' U U g nameg check C hx ])O O O O O Q Q Q Q L Q 6 g orig-args
t g req 8 t g opt 8 t g key 8 t g rest 8 t g check 8 t g filenamef ice-9/psyntax.scm
g r t t g nameg lambda*-formals CO + hX [ ]%4L 54L 5 4LL54L L5 L4 5456
S g req
R g opt R g rest R g kw R g body R g vars R g labels R g r* , R g w* , R g filenamef ice-9/psyntax.scm
" , 3 D * O ? P C R
R g nameg parse-req C+ ) h8 ]Z $ ,4 5 $
& " " " 4455 4L 5 4L L5 4L L5 LLLL
L L L
4 5L 4LLL4$ ,45 $
& " " " 5 $ " L> G
4L L
5
L6
g id
6 g i 6 g id 7 H g v H 6 g l T 6 g r** d 6 g w** t 6 g props g type 1 g value 1 g form 1 g e 1 g w
1 g s 1 g mod 1 g filenamef ice-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 S g req
b g opt b g rest b g kw b g body b g vars b g r* b g w* b g out b g inits b g tmp
W g tmp W g id
g v
g l g r* g w*
g filenamef ice-9/psyntax.scm
]
` d 7 e 7 8
" ) * , '
' % ) * * 9 = @ % Q U X % ^ b 1 b
g nameg parse-opt C+/ ) hH ][$ ,45 $
& " " " 4455 4L 5 4L L5 4L L5 LLLLL
L L L
4 545 L 4LLL4$ ,45 $
& " " " 5 $ " L> G
4L
L
5
L6 g k
D g id D g i D g id 7 H g v H D g l T D g r** d D g w** t D g props g type ? g value ? g form ? g e
? g w ? g s ? g mod
? g filenamef ice-9/psyntax.scm 7
7 7 : 8
H K R % T T W ` - d d g n . t t ( 6 ' ' !
B D ' D C3 h , 3
$ L 4 5 $ -LLLLLL
LO @ 6L $ " $ 4 5" 454
56
g req
g opt g rest g kw g body g vars g r* g w* g aok g out g inits
g tmp Y g tmp Y
g filenamef ice-9/psyntax.scm
g o $ s v ; } 1 2 B g nameg parse-kw C+MQ!R h8 ]L LLLLLLLL4L 44 5556
g k
2 g v 2 g e1 2 g e2 2 g filenamef ice-9/psyntax.scm & 0 2
2 C1'( h` ]LL
L L L
L L4L 4LL$ '4L5$ 4LL> " G " " LLL5LLL5D g e1
Z g e2 Z g filenamef ice-9/psyntax.scm ! 8 " 8 , 8
- 9
P X Z
Z C3S h ]4 56 g docstring
g e1
g e2
g filenamef ice-9/psyntax.scm ,
#
C!T h0 ]L LLLLLLLL4L 4 5 56
g docstring
/ g e1 / g e2 / g filenamef ice-9/psyntax.scm ! ! ' ( ! - /
/ C h K ,
3
45
" o45 $ LO
@45 $ 'LLLLLL O @6
$ ,4
?$
LO
@"_"[ C g req
g opt g rest g kw g body g vars g r* g w* g inits g meta g tmp
g tmp g tmp L
g filenamef ice-9/psyntax.scm
g nameg
parse-body C+ h O ] D G g filenamef ice-9/psyntax.scm
CVh t ] C l g tmp-bde397a-1382
g tmp-bde397a-1381 g tmp-bde397a-1380 C!
h ]v4L > G 4L > G
4LLLLLLL45> G 4
5 L
D g args
g e1 g e2 g args* g e1* g e2* g req
g opt
g rest
g kw
g meta
. g req . g opt . g rest
. g kw . g inits . g vars . g body . g meta* c g else* c g filenamef ice-9/psyntax.scm ( # 1 B
f k x
C3 h n ]7O O O O
LLLLQ LLLLLQ
LLLLL Q L L
Q
45 $ @45 $ LO @
6 f g e
g r g w g s g mod g get-formals g clauses g parse-req < g parse-opt < g parse-kw < g
parse-body
< g tmp g tmp
g filenamef ice-9/psyntax.scm
g nameg expand-lambda-case CO ,9dW h ]!" $ ;4L 54L 5 " C & & C"" $ K4 5 4L 5 " '( C& "6 " C $ -4 5 $
&
L 6"9"5"1 g x
g a H g d H g old V g new a g l1 g g l2 g g filenamef ice-9/psyntax.scm
"
# # # # ) # , # ) # * & + $ 0 $ " 4 $ 9 $ 2 = $ K ' O P ( V ( Y ) a ) g + m , s . # v . , z . } / " / + / 0 + ! & g nameg f C h0 ]
45$ CO L Q 6 g x
) g w ) g f ) g filenamef ice-9/psyntax.scm
) g nameg strip CO - hH ] $ ,4 5 $
& " " " 456 g id
D g id 7 D g filenamef ice-9/psyntax.scm
6 7
7 7 < 8
D g nameg gen-var C .Q Q
Q
Q
Q Q Q Q Q Q Q Q Q Q " Q " & Q -Q $Q " Q !#-& " Q "" Q #Q $& " Q % "'Q &Q (Q ).%
Q *Q +%"
.,Q ,-Q -4i4i5 X5 / h W ] L 6 O g filenamef ice-9/psyntax.scm
C/O /K 4YiZ[ h g ]6_ g k
g filenamef ice-9/psyntax.scm
h i i C5K4i4i5 \4i\[5> " G 4i4i5 ]4i][5> " G 4L^+^_'( h ]L 6 g var
g val g e1 g e2 g filenamef ice-9/psyntax.scm S C h ^ ]L L 6 V g x
g filenamef ice-9/psyntax.scm
T *
T 6
C IKJ^R'(
h E ]4L5 $ " )$ 4L L5 $ " " $ BL4LL$ '4 5$ 4 L> " G " " LL56C = g id
g n g t F g t * = g key G g filenamef ice-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'() h v ]94L4L LL4 $ ,4 5 $
& " " " 5 $ " L> G 4LL5 L5Cn g x
g props J ] g type g g value g g form g g e g g w g g s g g mod g g filenamef ice-9/psyntax.scm
e # f 3 g 3 J J O S
f j y g 3 f % C h < ]4L L O 5 4LLL L
L L L
O > " G L4L
L $ '4L 5$ 4L L > " G " " L L L
54L4LL5 4LL L
LLO 5 L5L L
6 4 g var
g val g e1 g e2 g names g trans-r g filenamef ice-9/psyntax.scm T % T U C K 8 L 8 V 8
W 9
z { b d + d e b _ C
h ]
4 5 " @4L $ '4 5$ 4 > " G " " 56$ 94L O ?$ % LLLLLLLL L O @""} g e
g r g w g s g mod g tmp g filenamef ice-9/psyntax.scm
P m , m A 8 ! 8 + 8
, 9
O Q m C%'" O
> " G 4i4i5 `4i`L+b
h x ] 4L L5 L C p g e
g exp g filenamef ice-9/psyntax.scm s , s
C`_'( hh ]
4 5 $ LO @4L $ '4 5$ 4 > " G " " 56 g e
b g r b g w b g s b g mod b g tmp b g filenamef ice-9/psyntax.scm
q & t , ( t 3 ) 1 8 2 8 < 8
= 9
` b t b C-O 5> " G 4LU IKab`+c_`dR h ]*4LL LLLL > G 4LLLLL > G $ <& " & " " $
" D g x
g y g x g maps g y 3 g maps 3 g key = g filenamef ice-9/psyntax.scm / 3 6 $ = = K % M - Q S V * Z 6 \ f ) h 2 l n $ y $ # / # ! 7 CedN` h` ]4LL LLLL > G &
" "& 45 " D g e1
Z g e2 Z g e Z g maps Z g filenamef ice-9/psyntax.scm & $ & ( * , / / : 0 / 7 9 ( = ? 0 E < H 0 Q Z 3 Z C h w ]LLL 6 o g x
g dots g y g filenamef ice-9/psyntax.scm C+_f! h h ]L LL 6 ` g dots
g y g filenamef ice-9/psyntax.scm % Cg.i hH & ]4L > G (
L 6 4L5 D g maps
D g x D g maps D g map-env * ? g filenamef ice-9/psyntax.scm
( 9 B < 9 * 9 . ! D # L ' 2 * I * : . 1 5 < B : D 2 D C h h ]LLLL O 6 ` g dots
g y g filenamef ice-9/psyntax.scm % C h ]*4 5 " J4L L LLLL> G 4> G $ " D$ )4LLLO ?$ LLLO @"" g y
g k g tmp g y & [ g maps & [ g x 8 [ g maps 8 [ g filenamef ice-9/psyntax.scm
6 ) ' . : ; + C ' D H P [ / g nameg f Cg h@
]4LLLL LL> G (
L64L 5D g maps
@ g x @ g maps @ g filenamef ice-9/psyntax.scm
+ 3 E ? 3 - # < ' 1 + G - O 1 5 2 = 9 H ; = > = @ 5 @ g nameg k C h@ ] O LL LLLLLQ LLLL LLO 6 ~ g x
= g dots = g y = g f = g filenamef ice-9/psyntax.scm = Ch h ]L LL 6 ` g dots
g e g filenamef ice-9/psyntax.scm C h u ]C m g e
g r g mod g filenamef ice-9/psyntax.scm
; C h h ]LLLLL 6 ` g dots
g e g filenamef ice-9/psyntax.scm C h ]&$ " 3$ +45 $
& " " " $ 4L5 45 $ " )$ 4L5 $ " " & * 4L > G D45$
6 D4
5 " 4 5 " W4 5 $ L O @4 5 $ L O @ D$ /4O ?$ L LO @"t"p$ +4O ?$ L O @"0", g src
g e g r g maps g ellipsis? g mod g label N g t Y g t x g b g var.lev g var g maps g tmp g tmp g tmp b g tmp : b g filenamef ice-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 " ) g nameg
gen-syntax CO /j k hx ]$
$ D(
64L > G 45 $ D4455 D g src
q g var q g level q g maps q g outer-var 3 q g
outer-maps 3 q g b D q g inner-var _ q g filenamef ice-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 g nameg gen-ref CO 0la h p ] C h g x
g filenamef ice-9/psyntax.scm
- 9 @
9 Cama9 h ] &
L 6C z g x
g filenamef ice-9/psyntax.scm
4 < * H B ChR h y ]4 L 5C q g x
g filenamef ice-9/psyntax.scm
, = C
= 8 C hx t ]4545 & C4O 5$ , 44 5
O 5C C l g e
t g map-env t g formals t g actuals t g r P \ g filenamef ice-9/psyntax.scm
( ( " * ! $ & 2 4 8 : ? / B C % F 3 P * _ * a % b f " t g nameg gen-map C 1a
hF`Zn h( u ]) $ C$ 2 445 5$ C C$ C$ L $ ; 4L 5
C
6 445 5$ " 4 L 5 C m g x
% g key % g name * g var * g name 7 e g exp r g req g vars g exp g body g name g fun-exp % g arg-exps %
g filenamef ice-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 !
; % g nameg regen CO 2/10Q /0Q 02Q 2'(+b h( ]4LL LLL> G L 6 g x
# g e # g maps # g filenamef ice-9/psyntax.scm + ? + # / # Co hp
]4L $ '4 5$ 4 > " G " " 5 45 $ LLLO @6 g e
l g r l g w l g s l g mod l g e : l g tmp E l g filenamef ice-9/psyntax.scm
8 8 8
9
: : f 0 h 8 l l C/(2O / 0 1 2> " G 4L+p+MQ!R h( ]L4L 44 5556 g k
" g v " g e1 " g e2 " g filenamef ice-9/psyntax.scm
( % ( 2 ( % " ' ! " CS h ]4 56 g docstring
g e1
g e2
g filenamef ice-9/psyntax.scm ! @
! 7
C!T h ]L4L 4 5 56 g docstring
g e1 g e2 g filenamef ice-9/psyntax.scm
# % $ - % 3 $ - # % " ! C hp ]4 5 " 44 5 $
LO @LLLLLLLL 6 $ 4?$
LO @"" g body
k g meta k g tmp k g tmp E g filenamef ice-9/psyntax.scm
E ) # k g nameg lp C hH ]+4L > G O L LLLLLQ 6 g args
G g e1 G g e2 G g req
G g opt
G g rest
G g kw
G g lp ( G g filenamef ice-9/psyntax.scm 5 ( E @ G G Cq h8 ]
4 5 $ LL O @ 6 g e
4 g r 4 g w 4 g s 4 g mod 4 g tmp 4 g filenamef ice-9/psyntax.scm
. * , 0 * 4 4 * 4 C)*O > " G 4L+p
h8 ]4LLLLLLL > G
L C g args
8 g e1 8 g e2 8 g meta " 8 g lcase " 8 g filenamef ice-9/psyntax.scm 2 % 0 .
8 Cr h8 ]
4 5 $ L L O @ 6 g e
4 g r 4 g w 4 g s 4 g mod 4 g tmp 4 g filenamef ice-9/psyntax.scm
- . 6 , 0 6 4 4 6 4 C,+O > " G 4Ls+t h t ] C l g tmp-bde397a-154d
g tmp-bde397a-154c g tmp-bde397a-154b C!
hH ]#4 5 4LLLLLLL > G 45
L C g args
H g e1 H g e2 H g clauses H g meta* ( H g lcase ( H g meta 7 H g filenamef ice-9/psyntax.scm D = + ; 0 A 0 3 D " 7 A 0 7 A >
H CvswS h ]4 56 g docstring
g args
g e1
g e2
g filenamef ice-9/psyntax.scm F !
F
CT h t ] C l g tmp-bde397a-1563
g tmp-bde397a-1562 g tmp-bde397a-1561 C!
hX 7 ],4 5 45 4LLLLLLL > G 45
L C/ g docstring
X g args X g e1 X g e2 X g meta X g clauses X g meta* 7 X g lcase 7 X g meta G X g filenamef ice-9/psyntax.scm G " H ( G " G ! = : ; ? A 0 G A N
X C
hx ]4 5 $ L L O @4 5 "
6$ &4?$ L L O @"" g e
s g r s g w s g s s g mod s g tmp s g tmp 3 s g filenamef ice-9/psyntax.scm
9 = J , ? J 9 C J s C,)O > " G 4Lx+th t ] C l g tmp-bde397a-1583
g tmp-bde397a-1582 g tmp-bde397a-1581 C!
hH ]#4 5 4LLLLLLL > G 45
L C g args
H g e1 H g e2 H g clauses H g meta* ( H g lcase ( H g meta 7 H g filenamef ice-9/psyntax.scm X Q + O 0 U 0 3 X " 7 U 0 7 U >
H CvsyS h ]4 56 g docstring
g args
g e1
g e2
g filenamef ice-9/psyntax.scm Z !
Z
CT h t ] C l g tmp-bde397a-1599
g tmp-bde397a-1598 g tmp-bde397a-1597 C!
hX 7 ],4 5 45 4LLLLLLL > G 45
L C/ g docstring
X g args X g e1 X g e2 X g meta X g clauses X g meta* 7 X g lcase 7 X g meta G X g filenamef ice-9/psyntax.scm [ " \ ( [ " [ ! Q : O ? U 0 G U N
X C
hx ]4 5 $ L L O @4 5 "
6$ &4?$ L L O @"" g e
s g r s g w s g s s g mod s g tmp s g tmp 3 s g filenamef ice-9/psyntax.scm
M = ^ , ? ^ 9 C ^ s C,+O > " G 4Lz+pz_'( h8 ] $ C $ "4 5 $
& CCCC g dots
6 g e1 6 g e2 6 g filenamef ice-9/psyntax.scm e
d d / f 6 C '( h ` ]3 $ " 4455 4LL$ '4 5$ 4 L> " G " " LL5 4LL54L L5 L4LL$ '4L5$ 4LL> " G " " LL5L6 X g dots
g e1 g e2 g wrap . g module . g id . g ids g labels g bindings g nw g nr g filenamef ice-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 ]
4 5 " @4L$ '4 5$ 4 > " G " " 56$ *4?$ L LL LO @"" g e
g r g w g s g mod g tmp g filenamef ice-9/psyntax.scm
a p , p ; 8 ! 8 + 8
, 9
O Q p C %O > " G 4L{) h Q ]94L LL4 $ ,4 5 $
& " " " 5 $ " L> G L L6 I g x
g props E X g type b g value b g form b g e b g w b g s b g mod b g filenamef ice-9/psyntax.scm
1 E E J N
a e C{| h , 3
4L5$ o4L54L5
4L 54L
5 45
4L LO 54L4L 5 56 6 g e
g r g w g s g mod g constructor g ids g vals g exps g labels ! g new-vars
! g nw ; g nr ;
g filenamef ice-9/psyntax.scm
u v v x ) y + ! x & z ' 1 { ' ; z D } , O , e , j > ~ , | w - w 2 w g nameg
expand-let CO /" %
.Q /+~{'(m hP ] $ " 3 $ +4 5 $
& " " " $ L 6C g f
O g id O g val O g e1 O g e2 O g filenamef ice-9/psyntax.scm e
d d 2 f E M ) O Ch ]LLLLLLL 6 g f
g id g val g e1 g e2 g filenamef ice-9/psyntax.scm Cm h ]L 6 g id
g val
g e1
g e2
g filenamef ice-9/psyntax.scm
C
h8 ]4L > " G ( C C g src
4 g ids 4 g vars 4 g val-exps 4 g body-exp 4 g filenamef ice-9/psyntax.scm
&
4 g nameg build-let C h ]LLLLLLL O 6 g id
g val g e1 g e2 g filenamef ice-9/psyntax.scm C
h ]4 5 " 4 5 " @4L$ '4 5$ 4 > " G " " 56$ +4 LO ?$
L LO @""$ +4 LO ?$ L LO @"K"G g e
g r g w g s g mod g tmp g tmp g filenamef ice-9/psyntax.scm
$ . & 3 ' / 8 0 8 : 8
; 9
^ ` C /O /> " G 4L+'(m h ]L 6 g id
g val
g e1
g e2
g filenamef ice-9/psyntax.scm
C h ^ ]L LLL 6 V g x
g filenamef ice-9/psyntax.scm
5 A C'(| h ]$4L
5$ 4L 54L 5 4L L54L
L 5 L L4 54LLO 54L4LL$ '4L5$ 4LL> " G " " LL5L56L6 g id
g val g e1 g e2 g labels g new-vars g w 7 g r 7 g filenamef ice-9/psyntax.scm #
, . " ) - ) 7 A 0 L 0 ` 0 h p 8 q 8 { 8
| 9
0 " 0 8 C
h ]
4 5 " @4L$ '4 5$ 4 > " G " " 56$ 94L O ?$ % LLL LLLLLL O @""} g e
g r g w g s g mod g tmp g filenamef ice-9/psyntax.scm
, 4 8 ! 8 + 8
, 9
O Q C
!%
.O
> " G 4L+'(m h ]L 6 g id
g val
g e1
g e2
g filenamef ice-9/psyntax.scm
C h ^ ]L LLL 6 V g x
g filenamef ice-9/psyntax.scm
5 A C'(| h ]$4L
5$ 4L 54L 5 4L L54L
L 5 L L4 54LLO 54L4LL$ '4L5$ 4LL> " G " " LL5L56L6 g id
g val g e1 g e2 g labels g new-vars g w 7 g r 7 g filenamef ice-9/psyntax.scm #
, . " ) - ) 7 A 0 L 0 ` 0 h p 8 q 8 { 8
| 9
0 " 0 9 C
h ]
4 5 " @4L$ '4 5$ 4 > " G " " 56$ 94L O ?$ % LLL LLLLLL O @""} g e
g r g w g s g mod g tmp g filenamef ice-9/psyntax.scm
, 5 8 ! 8 + 8
, 9
O Q C
!%
.O
> " G 4L+^UM) h@ ] $ C $ %4 5 $
& 4L 5CCCC g e
9 g filenamef ice-9/psyntax.scm e
d d + f & 2 f 9 C
h ] L L C ~ g mod
g var g public? g filenamef ice-9/psyntax.scm
{
C
h ` ] L L C X g var
g filenamef ice-9/psyntax.scm
}
C hp ]4 5 L$ BL
& 2L 45$ " L " " L LLLO LLO 6 g e
n g var n g meta " L g v = I g filenamef ice-9/psyntax.scm E * = " >
% ? ) ? - ? 1 ? 7 @ - : @ & = @ E n y n C3) h Z ]94L LL4 $ /4 5 $
& 4L 5" " " 5 $ " L> G L L6 R g e
g props H [ g type e g value e g form e g e e g w e g s e g mod e g filenamef ice-9/psyntax.scm
7 . H H M Q
d h C!
h E ]{4L LL> G $ 4LLL4$ /45 $
& 4L5" " " 5
$
"
L> G
4L
L5
4 LL> G
4LO ?$ LL
O @ 6
4L
LL4
$ /4
5 $
& 4L
5"
"
"
5 $ " L> G
4L
L5
4 L LLLLLO 4
55
L
C = g head
g tail g val g type g value g formform g ee g ww g ss g modmod g props
v g type
g value g form g e
g w g s g mod g val
g e g r g w
g s* g mod g tmp g e
' g props o g type g value g form
g e g w g s g mod g fun-exp
g arg-exps $g filenamef ice-9/psyntax.scm ' 0 1 : ? C D \ v v {
> ! ' 2 * 3 8 < = U o o t x
2
% C'( h@ ] $ C $ %4 5 $
& 4L 5CCCC g id
9 g val 9 g filenamef ice-9/psyntax.scm e
d d + f & 2 f 9 C IK)
H
h ] L L C ~ g mod
g var g public? g filenamef ice-9/psyntax.scm
{
C
h ` ] L L C X g var
g filenamef ice-9/psyntax.scm
}
CUJR'( h ]j4L L
5 $ -4 5 $
& " L" L" L 4L 5 $ " )$ 4L5 $ " " $ 4 54L L L
4$ /45 $
& 4L 5" " " 5 $ " L> G
4L L
5
$ B
& 2 4
5$ "
" " L C $ 4L L L
4$ /45 $
& 4L 5" " " 5 $ " L> G
4L L
5
$ B
& 2 4
5$ "
" " L LO
LO 6$ 45$ 4LLL L
LL5 4L L 4$ /45 $
& 4L 5" " " 5 $ " L> G
L
L
64LLL
L54L L
56$ 4L L
L564LL$ '4L5$ 4LL> " G " " LL
L56 g id
g val g n A g id-mod A g t N g t m g b g key g props g type A g value A g form A g e A g w
A g s A g mod A g name A g var A g exp A g meta ^ g v
y g props g type
H g value
H g form
H g e
H g w
H g s
H g mod
H g exp H g meta a g v | g p g e d g props " 5 g type ? d g value ? d g form
? d g e ? d g w ? d g s
? d g mod ? d *g filenamef ice-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
]4 5 " j4 5 $ LL LLO @4L$ '4 5$ 4 > " G " " 56$ 74
L O ?$ # LLLL LLL LO
@"Y"U g e
g r g w g s g mod g tmp g tmp { g filenamef ice-9/psyntax.scm
? , A 2 B J 8 K 8 U 8
V 9
y { C $" O > " G 4i4i5 4iM+3m hH ]4L 5$ 4$ C$ "45 $
& CCCCC g mod
E g id E g filenamef ice-9/psyntax.scm e
d d < f E C h z ]45L 4 5D r g mod
g id g filenamef ice-9/psyntax.scm C hH ] 4 5 " 6$ 4L O ?$ O @"" | g e
C g r C g w C g tmp C g filenamef ice-9/psyntax.scm
C CO 5> " G 4M h ] $ 4L 54L 5C $ " C4 5 45 " &$ C4L 5 "
"4 5 $ .
& 4L 5 C""} C g x
g mod g n 1 m g v : m g i @ f g
expression g wrap g filenamef ice-9/psyntax.scm
& 2 & & 2 & " & +
* 1
4
@ :
@ " E ' I " Q 5 X A \ 5 ] $ ` , f " m n ! ! " g nameg
remodulate C+3m h i ]L 6 a g mod
g exp
g filenamef ice-9/psyntax.scm
C) hp ]4 5 4L5LL 4$ ,45 $
& " " " 5 $ " D g mod
l g exp l g mod l g props U h g filenamef ice-9/psyntax.scm # ! " ! % & U U Z ^
l !
l Cm hH ]4L 5$ 4$ C$ "45 $
& CCCCC g mod
E g id E g filenamef ice-9/psyntax.scm e
d d < f E C h z ]45L 4 5D r g mod
g id g filenamef ice-9/psyntax.scm C h ]O Q 4 5 " E4 5 " 6$ #4L O ?$ O @""$ 4 L O ?$
O @"" g e
g r g w g
remodulate
g tmp g tmp ' c g filenamef ice-9/psyntax.scm
CO > " G 4Lc+^)
hX ]:4L LL4 $ ,4 5 $
& " " " 5 $ " L> G 4LL5 4L LL4$ ,45 $
& " " " 5 $ " L> G 4LL5
L C g test
W g then W g props E X g type b g value b g form b g e b g w b g s b g mod b g props g type 8 g value 8 g form 8 g e 8 g w 8 g s 8 g mod 8 g test-exp @ W g then-exp @ W g else-exp @ W g filenamef ice-9/psyntax.scm E E J N
a e t
<
@ ) K
W C)
h ];4L LL4 $ ,4 5 $
& " " " 5 $ " L> G 4LL 5 4L LL4$ ,45 $
& " " " 5 $ " L> G 4LL 5 4L LL4$ ,45 $
& " " " 5 $ " L> G 4LL 5
L C g test
g then g else g props E X g type b g value b g form b g e b g w b g s b g mod b g props g type 8 g value 8 g form 8 g e 8 g w 8 g s 8 g mod 8 g props { g type g value g form g e g w g s g mod g test-exp g then-exp g else-exp g filenamef ice-9/psyntax.scm E E J N
a e t
9 B G K L { {
/
' C3 hX ]4 5 $ LL O @4 5 $ LL O @ 6 g e
W g r W g w W g s W g mod W g tmp W g tmp 1 W g filenamef ice-9/psyntax.scm
& W C" O > " G 4i4i5 4iL+) h Q ]94L LL4 $ ,4 5 $
& " " " 5 $ " L> G L L6 I g x
g props E X g type b g value b g form b g e b g w b g s b g mod b g filenamef ice-9/psyntax.scm
; E E J N
a e C) h Q ]94L LL4 $ ,4 5 $
& " " " 5 $ " L> G L L6 I g x
g props E X g type b g value b g form b g e b g w b g s b g mod b g filenamef ice-9/psyntax.scm
< E E J N
a e C'(
h . ] 4LLLLLO 54LLLLLO 54L 4LL$ '4L5$ 4LL> " G " " LLL5LLL5 L C & g fluid
g val g b g b* g fluids v g vals v g body v g filenamef ice-9/psyntax.scm ; < / = 7 ? 8 @ 8 J 8
K 9
n v = v 9
C3 h8 ]
4 5 $ L LLL O @ 6 g e
7 g r 7 g w 7 g s 7 g mod 7 g tmp 7 g filenamef ice-9/psyntax.scm
6 7 C" %O 5> " G 4i4i5 \4i\\5> " G 4i4i5 ]4i]]5> " G 4i4i5 4i5> " G 4i4i5 4i5> " G 4i4i5 V4iVV5> " G 4L+_ h8 ]"4LLL> G 4L L> G D g x
7 g y 7 g y 7 g ids 7 g x ' 7 g ids ' 7 g filenamef ice-9/psyntax.scm T 0 S W 4 * V % 3 Y 1 7 Y ) 7 C h0 ] 4 5 $ LL O @L 6 g p*
. g n . g ids . g tmp . g filenamef ice-9/psyntax.scm
P . Z " . g nameg cvt* C h0 ]" $ "D " g x
/ g r $ g x $ g filenamef ice-9/psyntax.scm
\ ] ^ &
^ ` - ` ' ` 8 ` ! $ _ ! $ ] % ] ) / ]
/ g nameg v-reverse C/
,U+c_h8 ]"4LLL > G 4L L> G D g x
7 g y 7 g y 7 g ids 7 g x ' 7 g ids ' 7 g filenamef ice-9/psyntax.scm 3 $ 7 * ( 3 4 7 , 7 C h O ] L D G g filenamef ice-9/psyntax.scm / '
CN h( ]4L LL > G D g x
# g p # g ids # g filenamef ice-9/psyntax.scm 3 $ F > # 6 # C h x ]L 6p g x
g dots g ys g filenamef ice-9/psyntax.scm u $ C hP ) ]34LLL> G 4L L> G 4L> G D! g x
P g dots P g ys P g ys P g ids P g x ( P g ids ( P g ys : P g e : P g filenamef ice-9/psyntax.scm w 3 v $ z 7 z G ' z 7 + y ( 0 } ; = | , C 8 P 0 P C h h ]L 6` g x
g dots g filenamef ice-9/psyntax.scm n $ C/0 h8 ]4L LL > G & " D g x
2 g dots 2 g p 2 g ids 2 g filenamef ice-9/psyntax.scm p 3
p C p 3 o $ r ; ! r 0 # r A ) r S . r K 2 r ( 2 C h ]+ $ " 3 $ +4 5 $
& " " " $ 4L L5$ D" D $ ,4 5 $
& " " " 45 $ " & 4L 54L5& D""4 5 " 4
5 " m4 5 $ L O @4 5 $
O @4 5 $ L O @4L 5 D$ '4LO ?$ L LLO @"f"b$ #4LO ?$ L O @"*"& g p
g n g ids g tmp g tmp g tmp k g tmp & k g tmp B k g filenamef ice-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 & " g nameg cvt C h@ ]O O Q LLL Q
6 g pattern
@ g keys @ g ellipsis? @ g cvt* @ g v-reverse @ g cvt @ g filenamef ice-9/psyntax.scm
N > ( @ @ g nameg convert-pattern CO /KlF
. h ] C } g var
g level g filenamef ice-9/psyntax.scm
Y i q
[ CU h & ] 4 5 4 > " G 4L54L5 L 445 5$ " 4L4 54L4L4
4 5554L 555 6 g pvars
g exp g y g r g mod g ids g labels 1 g new-vars 1 g filenamef ice-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 " g nameg build-dispatch-call CO 0 h ^ ]L LL 6 V g e
g filenamef ice-9/psyntax.scm
B N Cm h y ]4L LL 5Cq g x
g filenamef ice-9/psyntax.scm
- > I > 9 CK k
+ h ] L C
C/Fd+b h H , 3 4LLO > G 4LO 5$ 4L4 55$ 4455
L
4
5 $ 4 O ?" 14L 5
4L 54L 5
& N445 5$ " " T445 5$ " 666 @ g x
g keys g clauses g r g pat g fender g exp g mod g p g pvars g y
Y g y u g tmp g then-exp
g else-exp g test-exp g then-exp
g else-exp g req ? g vars ? g exp
? g body % 6 g fun-exp z g arg-exps z g fun-exp g arg-exps g filenamef ice-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 g nameg
gen-clause CO 1F
3+mU h ]L$ ,4L5 $ L
& L " L" L" L $ ,4 5 $
& " " " & 4L L54L 5" C g x
g filenamef ice-9/psyntax.scm
2 s
> s " ? p s q t z t - t
> C$ U%,) h ]:" L L LLL L 6 $ " 3 $ +4 5 $
& " " " $ 4L O L5$ " 4455 $ ,4 5 $
& " " " 4455 L4L4 5 4L4L
L 54L 5L 55L 6 $ ,4 5 $
& " " " 4 5 $
" & 4L 54L 5& 4L
L 4$ ,45 $
& " " " 5 $ " L > G L
L 6"n"j"" g pat
g exp g id g labels g var g props g type g value g form g e g w g s g mod
g filenamef ice-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 ]LLLLL L 6 ~ g pat
g fender g exp g filenamef ice-9/psyntax.scm 3 C& h ] ( X445 5$ " C 45 $ % L LLLLLL LLO @4
5 $ L O @
6 g x
g keys g clauses g r g mod g fun-exp N ` g arg-exps N ` g tmp c g tmp n g tmp
g filenamef ice-9/psyntax.scm
! 3
! I $
0 ! 2 I 6
F B I
N 0 N W
c * c 4 A 4 " g nameg gen-syntax-case CO 2-Q /! .Q 002(/Q 11! " Q 2'(+)m hX ] $ " 3 $ +4 5 $
& " " " $
4L LL5CC g x
T g filenamef ice-9/psyntax.scm
) e
d d 2 f E 5 F G Q B T C k
U)* h@ ]C4LLLO 5$ 4455 4L LL5
4L L4 $ ,4 5 $
& " " " 5 $ " L> G
4LL
5
L C
L 6 g val
9 g key 9 g m 9 g x $ / g req J ~ g vars J ~ g exp J ~ g body d u g props g type g value g form g e g w g s g mod
g fun-exp / g arg-exps / g filenamef ice-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 C3 hp ]4L $ '4 5$ 4 > " G " " 5 45 $ LLLLO @6 g e
o g r o g w o g s o g mod o g e : o g tmp E o g filenamef ice-9/psyntax.scm
8 8 8
9
: : o C( "2O / 0 1 2> " G 8= h@ - . , 3 # # L 445 56 g x
> g m > g esew > g filenamef ice-9/psyntax.scm
$
. '
! 1
' 2
0 5
= ;
0 <
! >
> g nameg macroexpand C O +i h0 ] $ "4 5 $
& CCCC g x
- g filenamef ice-9/psyntax.scm
_
& `
- g nameg identifier? C,i h ] C g id
g datum g wrap g module g filenamef ice-9/psyntax.scm
g nameg
datum->syntax C-i U h x ]L 6 p g x
g filenamef ice-9/psyntax.scm
g nameg
syntax->datum C-O i ) hP ] 4 $ ,4 5 $
& " " " 5 $ CC g x
J g props < J g filenamef ice-9/psyntax.scm
< < A E
J g nameg
syntax-source C.i /0 1 h y ]L45L 6 q g x
g filenamef ice-9/psyntax.scm
"
#
# *
#
# C hH ] $ " 4 > " G 445 5 L O 6 g ls
A g mod 0 A g filenamef ice-9/psyntax.scm
%
! &
! & )
! 3 /
! & 0
! 0
! A
" A g nameg generate-temporaries CO /i 20U hX ]" 4 > " OG " H $ =4 5 $ '
& $ " "" "" "" "" 4> " OG " H$ =45 $ '
& $ " "" "" "" " $ ,4 5 $
& " " " $ ,45 $
& " " " & 4L 54L 5CC g x
R g y R g filenamef ice-9/psyntax.scm
'
(
( '
( # '
( ( 5 _ 9 D `
H m
) q
) ' s
)
) _ `
s
s " < s = t F t - O t
R g nameg free-identifier=? CO 2i 30 hP ]" 4 > " OG " H $ =4 5 $ '
& $ " "" "" "" "" 4> " OG " H$ =45 $ '
& $ " "" "" "" "" C $ i4 5 $ W
& I$ >45 $ ,
& & L 6C"""""" g x
L g y L g filenamef ice-9/psyntax.scm
-
.
. '
. # '
. ( 5 _ 9 D `
H m
/ q
/ ' s
/
/ _ `
| | | " } ) * / 0 2 # L g nameg bound-identifier=? CO 3i S045)U hH 7 - . , 3 # $ 4 5$ " " $ " 4 > " G 45$ " 4> " G 4$ ,45 $
& " " " 5 $ " $ " M4$ ,45 $
& " " " 5 $ " 4L
5$
4L
5" 6/ g who
H g message H g form H g subform H g props g t ) g props & g filenamef ice-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 g nameg syntax-violation C-O i 60IHS7KZ89J# h8 ]6L L " $ " " 6$ +& $
" " "" " L 4L5 $ $ -45 $
& " " "
4L
5 $ " &
" "
" " 4 5$ h$ -45 $
& " " "
4 5 $ "
" " 4 > G
$
D $ D $
D$ D$
D$ =
DD g e
6 g r 6 g w 6 g s 6 g rib 6 g mod 6 g w r g ms o g s o g id w g w w g mod w g n g mod
g t g b g mod
Q g t \ o g b o g type 6 g value 6 g mod 6 g w g
expression / g wrap
/ g module / g filenamef ice-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 C hx ]" 4 > " OG " H $ =4 5 $ '
& $ " "" "" "" "M [ LLO 6 g id
x g filenamef ice-9/psyntax.scm
B
C
C $
C # '
C ( 5 _ 9 D `
H x l
x g nameg syntax-local-binding CO /:0 hx ]" 4 > " OG " H $ =4 5 $ '
& $ " "" "" "" "L 6 g id
v g filenamef ice-9/psyntax.scm
a
b
b $
b # '
b ( 5 _ 9 D `
H v
c
v g nameg syntax-locally-bound-identifiers CO 0Q /Q 04;i<<0 hp ]" 4 > " OG " H $ =4 5 $ '
& $ " "" "" "" " C g id
o g filenamef ice-9/psyntax.scm
>
?
? $
? # '
? ( 5 _ 9 D `
H n
@
o g nameg
syntax-module C> " G 4;i6/> " G 4;i:0> " G / 0 h ] $ 74L 5 $ 4L 5 $ CCC ( C $ ?4 5 $ /
& # 4L 5 "xCCC g e
g p g w g mod g first @ g rest . > g filenamef ice-9/psyntax.scm
,
!
&
+ .
.
6
;
F
G
K O
P n
w y
~
g nameg
match-each CO / hx S ] $ &4L 5 $ 4L 5CC ( C $ 84 5 $ (
& 4L 5 "CCCK g e
x g w x g mod x g l / g filenamef ice-9/psyntax.scm
%
#
! )
,
5
6
: >
? [
d f
r
x g nameg match-each-any CO 0,/0N
h ]
( C & C & C $ 4L 5 " & C
$ "$ ' 4L 4 54L 55 "i$ " $ C $ "8C g p
g r g key P g filenamef ice-9/psyntax.scm
"
&
*
-
# .
+ 3
8 7
+ ?
C
G
H
$ K
P
P
_
# i
r
v
$ w
$ z
%
.
%
%
2
%
$
%
& g nameg match-empty CO 1Kl h( ] ( C4 54L 4 55C g r*
' g r ' g filenamef ice-9/psyntax.scm
!
* %
! &
' g nameg combine CO 20Kl h( ] ( LC4 54L 4 55C g l
% g filenamef ice-9/psyntax.scm
'
&
2
; #
2 $
% g nameg collect C h ]" $ f4L > G $ D( '4L LL5 $ DD4L L5DD" L4L LLL5D $ 84 5 $ &
& 4L 5 "D""" g e
g w g xr* o g y-pat o g r o g xr ; S g filenamef ice-9/psyntax.scm
+
.
+
&
,
-
$ 2
+ 7
; ;
$ ;
C
H
( N
S
T
W
X
]
" `
* h
j
o
t
w
& g nameg f CUNW
hp n ]-( ( CC$ ( $ L 4L 56C& 4L 5 $ CC
$ ? (
L 64L 5 $ O Q 6C$ t O L L Q 4 > G $ ( (
L 6L6CC$ $ " 3 $ +4 5 $
& " " " $ 4L 5 $ ,45 $
& " " " $ ,45 $
& " " " & 4L 54L 5" $ CCC
$ 4L 5$ CC $ $ L 4 5 6CC f g e
o g p o g w o g r o g mod o g l U e g key i o g l g collect g x-pat g y-pat g z-pat g f g xr* 0 g y-pat 0 g r 0 g i g j g filenamef ice-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 g nameg match* CO 3,/ h D ]$ |& C& 4L 5C" L 6 $ =4 5 $ +
& L 4L 5 6"""C < g e
g p g w g r g mod g filenamef ice-9/psyntax.scm
)
< <
? C
D d
m o
v x g nameg match CO 4/4Q /0Q 01Q 12Q 24/1-20Q 33Q 4/,U hp ]& C& C" L 6 $ 54 5 $ #
& L 6""" g e
j g p j g filenamef ice-9/psyntax.scm
' , * *
- 1
2 W 1 \ ^ j g nameg $sc-dispatch C3O +i / 0 1 2 3 4
! " # $ % & ' ( ) * + , - . 4i=+?J h : ] C 2 g e1
g e2
CMXY h [ ] C S g out
g in g e1 g e2 Cabc h [ ] C S g out
g in g e1 g e2 C3
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/psyntax.scm
P C5=R4i5+a23S h v ]4 56 n g message
g arg
g filenamef ice-9/psyntax.scm 0
0
Coq h @ ] C 8 g message
g arg CS h ]456 g keyword
g operands
g message
g arg
g filenamef ice-9/psyntax.scm %
%
Crs h g ]4 56 _ g x
g filenamef ice-9/psyntax.scm
( 1 * 4
) 3
C h8 ]4 54454554 5$ " 6 g keyword
8 g operands 8 g message 8 g arg 8 g filenamef ice-9/psyntax.scm & ' ' , ( , ' & ! ' " , , , 8 &
8 C
hh v ]4 5 " 74 5 " 6$ 4?$ @""$ 4?$ @"" n g x
g g tmp g g tmp H g filenamef ice-9/psyntax.scm
g C55R4it+ h Z ] C R g keyword
g pattern g template C3S h ]456 g keyword
g pattern
g message
g arg
g filenamef ice-9/psyntax.scm <
<
C h j ] C b g keyword
g pattern g message g arg C hP ]4 5 " 4 5 $ @ 6$ 4?$ @"" g clause
P g tmp P g tmp 1 g filenamef ice-9/psyntax.scm
5 P g nameg
expand-clause C+! h@ ]4 5 L $
L CC g k
< g docstring < g keyword < g pattern < g template < g clause < g tmp ' < g filenamef ice-9/psyntax.scm ' G / N
< C3 h@ ]4L 5 45 $ O @6 g dots
; g keys ; g
docstrings ; g clauses ; g tmp ; g tmp ; g filenamef ice-9/psyntax.scm
A F B ; g nameg expand-syntax-rules C+ h t ] C l g tmp-bde397a-19fa
g tmp-bde397a-19f9
g tmp-bde397a-19f8
C h ]L 456 g k
g keyword g pattern g template g filenamef ice-9/psyntax.scm T C3,S h ]4 5$ 456C g dots
g k g docstring g keyword g pattern g template g filenamef ice-9/psyntax.scm \
\ \ * \ ! Ch t ] C l g tmp-bde397a-1a4b
g tmp-bde397a-1a4a
g tmp-bde397a-1a49
C h ]L 456 g dots
g k g docstring g keyword g pattern g template g filenamef ice-9/psyntax.scm ] C, h ] 6 g dots
g k g keyword g pattern g template g filenamef ice-9/psyntax.scm Y C h t ] C l g tmp-bde397a-1a2c
g tmp-bde397a-1a2b
g tmp-bde397a-1a2a
C h ]L 456 g dots
g k g keyword g pattern g template g filenamef ice-9/psyntax.scm Z CS h ]456 g k
g docstring
g keyword
g pattern
g template
g filenamef ice-9/psyntax.scm V
V
C h t ] C l g tmp-bde397a-1a13
g tmp-bde397a-1a12
g tmp-bde397a-1a11
C h ]L 456 g k
g docstring g keyword g pattern g template g filenamef ice-9/psyntax.scm W C h ]1 O Q 4 5 $ O @4 5 " o4 5 " <4 5 "
6$ 4 ?$ O @""$ 4
?$ O @""$ 4?$ O @"q"m g xx
g
expand-clause g expand-syntax-rules g tmp g tmp 8 g tmp G g tmp V g filenamef ice-9/psyntax.scm
4 C5tR4i+ h W ] C O g name
g pattern g template C3S h ]456 g name
g pattern
g docstring
g template
g filenamef ice-9/psyntax.scm g
g
C h n ] C f g name
g pattern g docstring g template C hP v ]4 5 $ @4 5 " 6$ 4?$ @""n g x
P g tmp P g tmp " P g filenamef ice-9/psyntax.scm
` P C5R4i+}3m, h ]6 g let*
g x
g v
g e1
g e2
g filenamef ice-9/psyntax.scm
q
C+ h A ] C 9 g body
g binding C3 hH ] ( LLC4L 5 45 $ @6 g bindings
C g tmp ! C g tmp , C g filenamef ice-9/psyntax.scm
r s u ! u $ u ! v $ ! u
C g nameg f Cd h( ]
O Q 456 g let*
$ g x $ g v $ g e1 $ g e2 $ g f $ g filenamef ice-9/psyntax.scm r $ C h@ e ] 4 5 " 6$ 4?$ @"" ] g x
9 g tmp 9 g filenamef ice-9/psyntax.scm
n 9 C5R4i+/6: h( ]L
$ CL 4L L56 { g p
% g filenamef ice-9/psyntax.scm ~
~ , ! 9 # , %
% C=D h q ]L4L L56 i g p
g filenamef ice-9/psyntax.scm : G : C_+NS h 8 ] C 0 g tmp-bde397a-1ab0
CV h@ ]L
$ L4 54LLL56L 4L 4L L554LLL56 g p
> g filenamef ice-9/psyntax.scm
0 # ( 0 / A 1 0 3 4 > > CZ_ h 8 ] C 0 g tmp-bde397a-1ab5
Cb h@ ]L
$ L4 54LLL56L 4L 4L L554LLL56 g p
> g filenamef ice-9/psyntax.scm
1 # ( 9 / J 1 9 3 4 > > C h` ]4 5 $ LLLLO @4 5 $ LL LLO @L4L L54LL56 g p
` g q ` g tmp ` g tmp / ` g filenamef ice-9/psyntax.scm M V ) ` ` C+dl h ) ]4 5 C ! g x
C+dy h 8 ] C 0 g tmp-bde397a-1b25
C h V ]L 4 56 N g y
g filenamef ice-9/psyntax.scm C| h V ]L 6N g y
g filenamef ice-9/psyntax.scm C! h h ]L4L 56 ` g ls
g filenamef ice-9/psyntax.scm
' 7 4 C h e ]L L O 6 ] g y
g z g filenamef ice-9/psyntax.scm C h` ]4 5 $ O @4 5 $ O @4 5 $
LO @L C g y
` g k ` g tmp ` g tmp ' ` g tmp C ` g filenamef ice-9/psyntax.scm
` g nameg f C+0 h 6 ] C. g t-bde397a-1b19
C3 h( t ] 4 5 $ @ 6 l g ls
" g tmp " g filenamef ice-9/psyntax.scm
" g nameg k C h@ ]4L L5 45 $ @O Q 6 g x
< g x < g tmp < g f - < g filenamef ice-9/psyntax.scm - < C h ]"4 5 $ LLO @4 5 $ LLO @4 5 $ LLLLO @4 5 $
L O @
C g p
g lev g tmp g tmp + g tmp K g tmp o g filenamef ice-9/psyntax.scm
{ g nameg quasi CO +_+ h 8 ] C 0 g tmp-bde397a-1acb
C h@ ]L
$ L4 54LLL56L 4L 4L L554LLL56 g p
> g filenamef ice-9/psyntax.scm
0 # ( 0 / A 1 0 3 4 > > C h 8 ] C 0 g tmp-bde397a-1ad0
C h@ ]L
$ L4 54LLL56L 4L 4L L554LLL56 g p
> g filenamef ice-9/psyntax.scm
1 # ( / # 1 3 4 > > C hh ]4 5 $ LLLLLO @4 5 $ LLL LLO @L4L L54LL56 g p
d g q d g tmp d g tmp 1 d g filenamef ice-9/psyntax.scm Q Z ) d d C h ] C
C3 hH ]4 5 $ LLLLL O @4 5 $ @ 6 g p
G g lev G g tmp G g tmp 0 G g filenamef ice-9/psyntax.scm
G g nameg vquasi CO +++ h * ] L C " g dx
C h8 g ] 4L 5 $ O @ ( L CL L C _ g dy
6 g tmp 6 g filenamef ice-9/psyntax.scm $ 6 C h - ]L C % g stuff
C h - ]L C % g stuff
C hh k ]45 $
O @45 $ O @45 $ O @ C c g x
b g y b g tmp b g tmp ) b g tmp E b b C3 h0 ] 45 $ @6 g x
+ g y + g tmp + g tmp + g filenamef ice-9/psyntax.scm
+ g nameg quasicons C ++0 h ) ] C! g p
C3 h8 s ]L ( CL ( L C4L 5 $ @L 6 k g tmp
6 g filenamef ice-9/psyntax.scm 6
C! h 8 ]4 5C 0 g p
g y C3 hP ]45 $ O @ ( C 45 $ @6 g x
P g y P g tmp P g tmp . P g tmp 9 P g filenamef ice-9/psyntax.scm
$ . P g nameg quasiappend C h ] ( LCL 4L 56 g x
g filenamef ice-9/psyntax.scm
" g nameg f C h ]
O L Q 6 g x
g y g f g filenamef ice-9/psyntax.scm
g nameg
quasilist* CO + h ) ] C ! g x
C|+0 h 6 ] C. g t-bde397a-1b43
C3 h0 ]4L 5 45 $ @6 x g x
- g tmp - g tmp - g filenamef ice-9/psyntax.scm # - C+1 h R ] C J g t-bde397a-1b57
g t-bde397a-1b56 C3 hH ] ( LL64L 54L 5 45 $ @6 g x*
C g tmp ! C g tmp , C g filenamef ice-9/psyntax.scm
+ . + ! C g nameg f C h t ]
O L Q 6 l g x
g y g f g filenamef ice-9/psyntax.scm C3+0@ h 6 ] C. g t-bde397a-1b63
C3 h0 ]4L 5 45 $ @6 x g x
- g tmp - g tmp - g filenamef ice-9/psyntax.scm ' - CB+0O h 6 ] C. g t-bde397a-1b6f
C3 h0 ]4L 5 45 $ @6 x g x
- g tmp - g tmp - g filenamef ice-9/psyntax.scm ' - CQ^ h o ] 4L 5 C g g x
g tmp g filenamef ice-9/psyntax.scm . C` h ) ] C ! g x
C3 h ]94 5 $ @4 5 $ L O @4 5 $ L O @4 5 $ L O @4
5 $ L O @4 5 $
L O @4 5 $ @ 6 g x
g tmp g tmp " g tmp > g tmp Z g tmp v g tmp g tmp g filenamef ice-9/psyntax.scm
g nameg emit CO Q Q Q Q +bh _ ]L4L
56 W g e
g filenamef ice-9/psyntax.scm C3 h0 e ] 4 5 $
LL O @ 6 ] g x
) g tmp ) g filenamef ice-9/psyntax.scm
) C O 5R4iabcdaefghijk- h ]#44 5$ " $
4 5" 4L 55 45 4$ " > " G " >4
5$ 4 > " G 64
545 "4
5 " g fn
g dir g k g p 6 g enc ? g x e g result e g filenamef ice-9/psyntax.scm
* . 0 4 6 6 9 ? B
L T ( Y
e
f p q
g nameg read-file C.7lSm++0 h + ] C# g exp
C3 h8 ]45 4L L5 45 $ @6 g k
8 g filename 8 g fn 8 g tmp 8 g tmp ! 8 g filenamef ice-9/psyntax.scm $ 8 C3 hp ])O Q 4 5 $
45" 45$ 45" 4 5 $
O @
6 g x
n g read-file
n g src n g file , n g dir E n g tmp P n g filenamef ice-9/psyntax.scm
% ( ' , / 9 : $ E
n C5aR4i+- hH ]45 445 $ "
4L 5 5 C g k
A g filename A g fn A g t 5 g tmp 7 A g filenamef ice-9/psyntax.scm
& * 2 , 2 2 7 7 A C3 h( e ] 4 5 $ O @ 6 ] g x
' g tmp ' g filenamef ice-9/psyntax.scm
' C5R4i h p ] 6 h g x
g filenamef ice-9/psyntax.scm
C5R4iWW h p ] 6 h g x
g filenamef ice-9/psyntax.scm
C5WRT h ]L 6 g x
g filenamef ice-9/psyntax.scm
! # g nameg transg
macro-typeg variable-transformer CZ h@ ] 4 5$ %O Q 4> " G C 6 g proc
: g trans 2 g filenamef ice-9/psyntax.scm
! $ ! $ ' ' $ 6 &
: &
: g nameg make-variable-transformer CR4i+b h8 ) ]
C ! g e
1 1 C3, h ]4 5$ 6C g id
g exp1 g var g val g exp2 g filenamef ice-9/psyntax.scm 5
5 5 C hX p ]
C h g id
W g exp1 W g var W g val W g exp2 W W C hP w ]4 5 $ @4 5 " 6$ 4?$ @""o g xx
P g tmp P g tmp " P g filenamef ice-9/psyntax.scm
) P C5R4i+a h \ ] C T g id
g args g b0 g b1 C^3, h h ] 6` g id
g val g filenamef ice-9/psyntax.scm C C h ; ] C 3 g id
g val C hP v ]4 5 $ @4 5 " 6$ 4?$ @""n g x
P g tmp P g tmp " P g filenamef ice-9/psyntax.scm
? P C5RC g
session-id
g transformer-environment g top-level-eval-hook g get-global-definition-hook g maybe-name-value! g build-application g analyze-variable g build-simple-lambda g build-sequence g build-named-let g build-letrec
g syntax-object-expression g
extend-env g extend-var-env
g macros-only-env g
global-extend g id? g
gen-labels g make-binding-wrap g
join-wraps g same-marks? g id-var-name g locally-bound-identifiers g valid-bound-ids? g distinct-bound-ids? g bound-id-member? g wrap g source-wrap g expand-sequence g expand-top-sequence g expand-install-global g parse-when-list g syntax-type g expand ! g expand-expr " g expand-application # g expand-macro $ g expand-body % g expand-local-syntax & g eval-local-transformer ' g ellipsis? ( g lambda-formals ) g expand-simple-lambda * g lambda*-formals + g expand-lambda-case , g strip - g gen-var . g v / g
gen-syntax / F Id g gen-ref 0 F Id g gen-map 1 F Id g regen 2 F Id g
expand-let / ik p g convert-pattern / r g build-dispatch-call 0 r g
gen-clause 1 r g gen-syntax-case 2 r g syntax-local-binding / g syntax-locally-bound-identifiers 0 g
match-each / l O g match-each-any 0 l O g match-empty 1 l O g combine 2 l O g match* 3 l O g match 4 l O g quasi
W Y g vquasi W Y g quasicons W Y g quasiappend W Y g
quasilist* W Y g emit W Y Gg filenamef ice-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 PK ! ;G ice-9/hcons.gonu [ GOOF----LE-8-2.0 ] ! 4 hm ] g guile g define-module* g ice-9 g hcons g filenameS
f ice-9/hcons.scm g exportsS g hashq-cons-hash
g hashq-cons-assoc g hashq-cons-get-handle g hashq-cons-create-handle! g hashq-cons-ref g hashq-cons-set! g
hashq-cons g hashq-conser g make-gc-buffer
g set-current-module g hashq g hashx-get-handle g hashx-create-handle! g hashx-ref g
hashx-set! g make-doubly-weak-hash-table g make-list g append!C 5 h ]4
5 4 > " G h0 ]4 ?54 ?5C g pair
) g n ) g filenamef ice-9/hcons.scm
"
# # # $ $ $ $ % #
( #
) g nameg hashq-cons-hash C R
hp & ]
( C$ D$ 7$ ) & & " " " " " $ C 6 g key
j g l j g t V j g filenamef ice-9/hcons.scm
'
(
) ) * * ) + + " ) % , ( , . ) 1 - 4 - : ) = . V ) h / ! j / j g nameg hashq-cons-assoc C
R
h ] 6 g table
g key g filenamef ice-9/hcons.scm
1
2 g nameg hashq-cons-get-handle CR
h ] 6 g table
g key g init g filenamef ice-9/hcons.scm
4
5 g nameg hashq-cons-create-handle! CR
h ] 6 g table
g key g filenamef ice-9/hcons.scm
7
8 g nameg hashq-cons-ref CR
h ] 6 g table
g key g val g filenamef ice-9/hcons.scm
:
; g nameg hashq-cons-set! CR h ]4 5C g table
g a g d g filenamef ice-9/hcons.scm
=
> > ( > > g nameg
hashq-cons CR h i ]L 6 a g a
g d g filenamef ice-9/hcons.scm
D D C h ] $ " 4 5 O C g hash-tab-or-size
g table g filenamef ice-9/hcons.scm
@
A A C A g nameg hashq-conser CR h m ]M M N C e g next
g filenamef ice-9/hcons.scm
L M
N N C h( ] 4 5H4JJ> " G O C g n
( g ring
( g filenamef ice-9/hcons.scm
I
J
J
K ( g nameg make-gc-buffer CRC g m
( g filenamef ice-9/hcons.scm
* "
'
1
a 4
7
:
=
@
x I
z
C6 PK ! TΖk k
ice-9/safe.gonu [ GOOF----LE-8-2.0S ] 4 h ] g guile g define-module* g ice-9 g safe g filenameS
f ice-9/safe.scm g exportsS g safe-environment
g make-safe-module
g set-current-module g resolve-interface g safe-r5rs g safe-r5rs-interface g scm-error g
misc-error f ~A is not a valid version g make-moduleC 5 h ]4
5 4 > " G 4i5R h0 ] $ " 4 > " G C g n
. g filenamef ice-9/safe.scm
# . g nameg safe-environment C R h m ] 6 e g filenamef ice-9/safe.scm
! !
g nameg make-safe-module C
RC y g m
( g filenamef ice-9/safe.scm
) / / 1 4
8
C6 PK ! Raa a ice-9/weak-vector.gonu [ GOOF----LE-8-2.0I ] 4 hx ] g guile g define-module* g ice-9 g weak-vector g filenameS
f ice-9/weak-vector.scm g exportsS g make-weak-vector
g list->weak-vector g weak-vector? g weak-vector-length g weak-vector-ref g weak-vector-set! g make-weak-key-alist-vector g make-weak-value-alist-vector g make-doubly-weak-alist-vector g weak-key-alist-vector? g weak-value-alist-vector? g doubly-weak-alist-vector?
g set-current-module g %init-weaks-builtinsC 5 h0 _ ]4
5 4 > " G i6 W g m
( g filenamef ice-9/weak-vector.scm
.
.
C6 PK ! 'L
ice-9/runq.gonu [ GOOF----LE-8-2.0 ] 4 4 h9 ] g guile g define-module* g ice-9 g runq g filenameS
f ice-9/runq.scm g importsS g q
g exportsS g runq-control g make-void-runq g make-fair-runq g make-exclusive-runq g make-subordinate-runq-to g strip-sequence g fair-strip-subtask g set-current-module g add! g for-each g enq! g
*unspecified* g enqueue! !g push! "g q-push! #g empty? $g q-empty? %g length &g q-length 'g kill! (g make-q )g throw *g not-understood +g catch ,g warn -g
runq-strip .g run-strip /g
apply-to-args 0g deq! 1g
procedure? 2g suspend 3g applyC 5 h ]4
5 4 > " G h Y ]M 6 Q g t
g filenamef ice-9/runq.scm
I *
I 6
C h Y ]M 6 Q g t
g filenamef ice-9/runq.scm
J *
J 6
C!" h Y ]M 6 Q g t
g filenamef ice-9/runq.scm
K *
K 6
C#$%&'()* h , - 1 3 H $ 4 O > " G C$ 4 O > " G C$ 4 O > " G C $
J 6 $ J 6
$ 45 K C6 $ g q
g msg
g args
g filenamef ice-9/runq.scm
G
H I 1 I H ; H < J V J H ` H a K { K K H L H M H N ( N O ' O
g nameg runq-control CR+,- h( m - 1 3 4L > " G C e g ign
! g filenamef ice-9/runq.scm
Q *
Q 6 Q < Q 6 !
C h r ] O 6j g thunk
g filenamef ice-9/runq.scm
Q
Q g nameg run-strip C.R/% h n - 1 3 $
CC f g msg
g args g filenamef ice-9/runq.scm
]
^
C h f - 1 3 $ 6C ^ g opts
g filenamef ice-9/runq.scm
Z [ \
C h [ ] C S g filenamef ice-9/runq.scm
Y
g nameg make-void-runq CR$01. h l - 1 3 $ M @4M5$ C4M5 45$ .45 $ 4M> " G " " V$ O45 $ 4M> " G " ( " 4M> " G " L C d g ctl
g
next-strip + g k ? b g k u g filenamef ice-9/runq.scm
p q r s " s % t ) + t . v 8 u 9 v A ? v 8 G w : H w A i x m u n x 7 s x B u x 7 u x . } y 0 ~ y 7 z > z . { 2 { : { 2
g nameg self C( h( ]H O Q 45 K C g q
& g self & g q # g filenamef ice-9/runq.scm
m
n n &
g nameg make-fair-runq CR$01." h - 1 3 $ M @4M5$ C4M5 45$ .45 $ 4M> " G " " V$ O45 $ 4M> " G " ( " 4M> " G " L C ~ g ctl
g
next-strip + g k ? b g k u g filenamef ice-9/runq.scm
" % ) + . 8 9 A ? 8 G : H A i m n 7 s B u 7 u . } 0 ~ 7 > . 2 = 2
g nameg self C( h( ]H O Q 45 K C g q
& g self & g q # g filenamef ice-9/runq.scm
&
g nameg make-exclusive-runq CR#% hH ]4L5$ L C" #
$ C4L> " G "4L5 " g n
: g filenamef ice-9/runq.scm
" 4 1 : ; ? ( A G G
C2# h g - 1 3 $ U $ LC4L ? L$ " 4L5$ LL4LL> " G " C4L5 4L > " G C_ g ctl
g key d g answer * d g answer i g filenamef ice-9/runq.scm
! 0 $ > * 0 / @ 3 6 9 V = b ? V @ Q D 2 I 8 J 8 N G U 8 e " i l p u
g nameg self C h0 ] O O Q C g
superior-runq
, g
basic-runq , g runq-task , g self , g filenamef ice-9/runq.scm
, g nameg make-subordinate-runq-to CR h ] ] LL L6 U g filenamef ice-9/runq.scm
-
"
C h T ] LL 6 L g filenamef ice-9/runq.scm
"
C h0 ] ( C4 5 $ L O C L O C g st
. g then . g filenamef ice-9/runq.scm
. g nameg loop C h ]O Q M N 6 g loop
g a g filenamef ice-9/runq.scm
%
C h s - 1 3 H O C k g strips
g filenamef ice-9/runq.scm
g nameg strip-sequence CR3 h0 - 1 3 45 4 > " G C g initial-strips
) g st ) g filenamef ice-9/runq.scm
)
g nameg fair-strip-subtask CRC g m
, g filenamef ice-9/runq.scm 0
G
Q
Y
m
Z
~
C6 PK ! ir\) ) ice-9/gap-buffer.gonu [ GOOF----LE-8-2.0) ] V 4 h ] g guile g define-module* g ice-9 g
gap-buffer g filenameS
f ice-9/gap-buffer.scm g exportsS g gb?
g make-gap-buffer g gb-point g gb-point-min g gb-point-max g gb-insert-string! g gb-insert-char! g gb-delete-char! g gb-erase! g gb-goto-char g
gb->string g
gb-filter! g gb->lines g gb-filter-lines! g make-gap-buffer-port
g autoloadsS g srfi g srfi-13 g string-join ! " ! #g set-current-module $# %# &g make-record-type 'g s (g all-sz )g gap-ofs *g aft-ofs +'()* ,g record-predicate -g record-accessor .g s: /g all-sz: 0g gap-ofs: 1g aft-ofs: 2g record-modifier 3g s! 4g all-sz! 5g gap-ofs! 6g aft-ofs! 7g default-initial-allocation 8g default-chunk-size 9g default-realloc-threshold :g round-up ;g record-constructor <g new =g make-string >g substring-move! ?g realloc @g port? Ag eof-object? Bg list->string Cg reverse Dg read-char Eg string? Fg
string-length Gg error Hf
bad init type Ig insert-prep Jg string-set! Kg max Lg min Mg point++n! Ng point+-n! Og
string-append Pg substring Qg string-index Rf not a gap-buffer: Sg make-soft-port Tg
string-ref Uf rwC 5 h ]4
"5 4% > " G 4&i+5R4,ii5 R4-ii'5.R4-ii(5/R4-ii)50R4-ii*51R42ii'53R42ii(54R42ii)55R42ii*56R 7R 8R 9R8 h ] C g n
g filenamef ice-9/gap-buffer.scm
g nameg round-up C:R4;ii5<R./01=>346
h ]:4 5 4 5 4 5 4 5 45 4
> " G 4> " G 4 > " G 4 > " G 6 g gb
g inc g old-s g all-sz g new-sz g gap-ofs " g aft-ofs + g new-s 4 g new-aft-ofs ; g filenamef ice-9/gap-buffer.scm
" % + . 4 ; ; > V p g nameg realloc C?R<3=7456@ABC:>.DEFGH h Q - 1 3 45 ( X445> " G 4> " G 4
> " G 4> " G " 45$ " 4 5$ 4
4 55 4 5 445> " G 4> " G 4
45
> " G 4> " G 4> " 9G " 2 45 "I45
"6" 45$ 45 4 5 445> " G 4> " G 4
45
> " G 4> " G 4> " G " 4> " G C I g init
g gb g v q g c 9 g acc 9 g len 9 g string g alloc g len b g alloc k
g filenamef ice-9/gap-buffer.scm
' 0 D W q q t ~ ! ' 5 ' ! + ' > ! 0 , . / ; 9 ! 9 : 0 A 6 L Q [ \ ! b e + k n s ' ~ > % ;
g nameg make-gap-buffer C
R0 h ]4 5C w g gb
g filenamef ice-9/gap-buffer.scm
g nameg gb-point CR h q ] C i g gb
g filenamef ice-9/gap-buffer.scm
g nameg gb-point-min CR/10 h ]4 54 54 5C g gb
g filenamef ice-9/gap-buffer.scm
' g nameg gb-point-max CR019?: hP < ]4 5 4 5 $ 4 4
5> " G " C 4 g gb
I g len I g gap-ofs I g aft-ofs I g slack I g filenamef ice-9/gap-buffer.scm
# ' ( - 0 5 : I g nameg insert-prep CIRFI>.5 h@ ]45 4 5 4
4 5> " G 6 g gb
? g string ? g len ? g gap-ofs ? g filenamef ice-9/gap-buffer.scm
" , = ? ? g nameg gb-insert-string! CRIJ.5 h0 ]
4 5 44 5> " G 6 g gb
0 g char 0 g gap-ofs
0 g filenamef ice-9/gap-buffer.scm
. 0 0 g nameg gb-insert-char! CR5K06L/1 hP ]
$ 4
4 556
$ 44 54 556
$ CC g gb
P g count P g filenamef ice-9/gap-buffer.scm
$ ( - 0 7 + @ ( B D H L P g nameg gb-delete-char! CR56/ h( ]4
> " G 4 56 g gb
" g filenamef ice-9/gap-buffer.scm
" " g nameg gb-erase! CR>56 hH ]4> " G 4 > " G 6 g gb
A g n A g s A g gap-ofs A g aft-ofs A g filenamef ice-9/gap-buffer.scm
) . ? A
A g nameg point++n! CMR>56 hH ]4> " G 4 > " G 6 g gb
D g n D g s D g gap-ofs D g aft-ofs D g filenamef ice-9/gap-buffer.scm
- # , 1 B D D g nameg point+-n! CNRNM.01 h ]*4 5 $ 4 5" $ " $
4 5" $ " Y4 5
$ " 74
$ " 4 54 54 5> " G C g gb
g new-point g pmax g t g t C g delta Y g t _ g filenamef ice-9/gap-buffer.scm
1
5 6 C R " Y Y _ _
l p t . g nameg gb-goto-char CR.OP01 h0 ] 4 5 4
4 5544 556 g gb
, g s , g filenamef ice-9/gap-buffer.scm
" " * , , g nameg
gb->string CR h0 ]
44 55 4 > " G 6 g gb
* g string-proc * g new * g filenamef ice-9/gap-buffer.scm
* * g nameg
gb-filter! CRQPC hX 8 ]!4 5 " <4
5 $ 45 "456
" 0 g gb
U g str U g start K g acc K g t K g filenamef ice-9/gap-buffer.scm
% & % 3 ; > ! I K K M U U g nameg gb->lines CR h8 ]
44 55 4 > " G 4
56 g gb
1 g
lines-proc 1 g new-lines 1 g filenamef ice-9/gap-buffer.scm
' 1 1 g nameg gb-filter-lines! CR GRS h a ]L 6 Y g c
g filenamef ice-9/gap-buffer.scm
C h a ]L 6 Y g s
g filenamef ice-9/gap-buffer.scm
C01/.TJ56 h ) ] 4L 54L 5 4L 5$ C4L 5 45 4 > " G 4L > " G 4L > " G C ! g gap-ofs
{ g aft-ofs { g s + { g c 6 { g filenamef ice-9/gap-buffer.scm
" % + . 6 9 O V $ [ d k $ p {
CU hP ] 4 5 $ " 4 > " G O O O 6 g gb
L g t , g filenamef ice-9/gap-buffer.scm
! H J L
L g nameg make-gap-buffer-port CRC ~ g m
, g filenamef ice-9/gap-buffer.scm Y
- l 3 l 5 m 7 l : k
; s H s
I u S u - U u X u
Y v c v - e v h v
i w s w - u w x w
y x x - x x
z z - z z
{ { - { {
| | - | |
} } - } }
+
R
g
{
D
k
C
C6 PK ! ;Of= = ice-9/readline.gonu [ GOOF----LE-8-2.0= ] 4 h ] g guile g define-module* g ice-9 g readline g filenameS
f ice-9/readline.scm g importsS g session
g regex g buffered-input g exportsS g filename-completion-function g add-history g read-history g
write-history g
clear-history g set-current-module g provided? !g load-extension "f libguilereadline-v-18 #f scm_init_readline $g scm-error %g
misc-error &f 3readline is not provided in this Guile installation 'g call-with-deferred-observers (' )' *g module-export! +* ,* -g current-module .- /- 0g readline-options 1g readline-enable 2g readline-disable 3012 4g
readline-set! 54 6g readline-options-interface 7g for-each 87 97 :g display ;: <: =g
string-length >g symbol->string ?> @> Ag newline BA CA Dg append ED FD Gg delq! HG IG Jg make-syntax-transformer KJ LJ Mg macro Ng $sc-dispatch ON PN Qg any RQQQ Sg
syntax-object Tg eval-when Ug m-a15bdba661f-3 Vg top WUV Xg ribcage Yg dummy Zg opt [g val \YZ[ ]g m-a15bdba661f-5 ^]V _^WW `f l-a15bdba661f-a af l-a15bdba661f-b bf l-a15bdba661f-c c`ab dX\_c eX fg x gf h^ if l-a15bdba661f-7 ji kXghj lg shift mg interface ng options og enable pg disable qg option-set! rYmnopq sg m-bde397a-1729 tsV uV vtuuuuu wf l-bde397a-172e xf l-bde397a-172f yf l-bde397a-1730 zf l-bde397a-1731 {f l-bde397a-1732 |f l-bde397a-1733 }wxyz{| ~Xrv} t f l-bde397a-172b Xg Wdekl~e g hygiene ST g expand S g load S g eval S udek S0 SD g list S g quote S g syntax-violation f -source expression failed to match any pattern g module-locally-bound? g new-input-prompt f g continuation-prompt g
input-port g current-input-port g output-port g current-output-port g read-hook g make-line-buffered-input-port g %readline g string? g eof-object? g string=? g
string-append f
g make-readline-port g the-readline-port g history-variable f
GUILE_HISTORY g history-file g getenv f HOME f . f /.guile_history g memq g add-hook! g exit-hook g
readline-port g set-readline-prompt! g
file-port? g input-port? g wrong-type-arg f set-readline-input-port! f Not a file input port: ~S g port-closed? f Port not open: ~S g set-readline-input-port! g output-port? f Not a file output port: ~S f set-readline-output-port! g set-readline-output-port! g set-readline-read-hook! g map g apropos-internal f ^ g regexp-quote g apropos-completion-function g *readline-completion-function* g !with-readline-completion-function g readline-repl-reader g repl-reader g fluid-ref g current-reader g !set-buffered-input-continuation?! f ... g run-hook g before-read-hook g read g isatty? g set-current-input-port g setter g using-readline? g activate-readline g string-match g make-completion-function C 5 h( ]4
5 4 > " G 4 i5$ " 4!i"#> " G 4 i5$ " 4$i%&> " G 4),/3 h D ] 45 6 < g filenamef ice-9/readline.scm
7
C> " G 4),/5 h D ] 45 6 < g filenamef ice-9/readline.scm
;
C> " G 69<=@C h ] 4 > " G 44 55 $ 54 > " G $ 4 > " G " " 4 > " G 4> " G 4 > " G 4> " G 6 g name
g value g
documentation g len c g filenamef ice-9/readline.scm
>
C h Y ] @Q g option
g filenamef ice-9/readline.scm
>
C h8 { ) 3 6 ] $ 4 > " G 6 456s g arg
8 g filenamef ice-9/readline.scm
>
8 g nameg readline-options C0R6F h0 v - 1 3 44 45 5> " G 6 n g flags
) g filenamef ice-9/readline.scm
>
)
g nameg readline-enable C1R69I h W ]4 M 5N C O g flag
g filenamef ice-9/readline.scm
>
C h@ - 1 3 45 H4O > " G 4J> " G 6 g flags
? g readline-options ? g filenamef ice-9/readline.scm
>
?
g nameg readline-disable C2R4L4MPR h( O ] C G g dummy
$ g opt $ g val $ $ C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/readline.scm
>
" g
macro-typeg syntax-rulesg patternsg optg val C54R44/5 5$ i" R44/5 5$ i" R44/5 5$ i" 4i5 R44/5 5$ i" 4i5 R44/5 5$ i" R h f ]! $ " M $ 4M > " G N " $ " 445$ " 45 5 4 5 $ " 14
5 $ " M $ 4 M
5" N C ^ g
continuation?
g prompt : g str ] g t f g t { g filenamef ice-9/readline.scm
S # W ) W % Z + ( [ + 2 ] 4 : ] % = ` 1 @ ` @ J ` < Q b @ ] ` 1 ] ] % ` f + f f ' s g + y g 9 { g + { f ' i 1 j 5 k D j 5 h + C h ]H O 6 g history-buffer
g filenamef ice-9/readline.scm
Q
R S
g nameg make-readline-port CR44/5 5$ i" R44/5 5$ i" R44/5 5$ i" %4i4i5 $ " 5R66 hP ] 445 5$ .4 45 $ " > " G " 6 g r/w
G g t 3 g filenamef ice-9/readline.scm
! # } } } & } } ~ ~ ~ 8 ~ K #
K
C
hp ]$ " ` 445 5$ .4 45 $ " > " G " 4 5 4
> " G C g r/w
Q g t * = g filenamef ice-9/readline.scm
} } } & } } ! ~ $ ~ * ~ B ~ R $ X Y o
CR4),/ h D ] 45 6 < g filenamef ice-9/readline.scm
{
C> " G hX - 1 3 H HHJ ( " J KJ K J ( "
J KJ K JJ& " JJ @ g args
U g prompt U g inp U g filenamef ice-9/readline.scm
" $ ' ) / 6 8 ; = I U U
g nameg readline CR4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G h - 1 3 ( C C g p
g rest g filenamef ice-9/readline.scm
g nameg set-readline-prompt! CR4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G $% hX 3 ] 4 5 $ " 4 5 $ 64 5$ 6
C + g p
W g t
" g filenamef ice-9/readline.scm
' " & * , $ . 3 0 6 7 A E G I N ( Q U W g nameg set-readline-input-port! CR4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G $% hX 4 ] 4 5 $ " 4 5 $ 64 5$
6 C , g p
W g t
" g filenamef ice-9/readline.scm
' " & * , $ . 3 1 6 7 A E G I N ( Q U W g nameg set-readline-output-port! CR4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G h ] Cz g h
g filenamef ice-9/readline.scm
g nameg set-readline-read-hook! CR4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G H > h@ ]
$ " 4444 5555N M ( CM M N C g text
= g cont? = g retval 3 = g filenamef ice-9/readline.scm
% ) " $ & (
. 3 3
8 % : = C O R4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G 4 i5$ ii " h O ] L CG g filenamef ice-9/readline.scm
C h O ] L CG g filenamef ice-9/readline.scm
C h` ( ]
O O 4 O > " G V4> X4O > " G CX4O > " G F g completer
` g thunk ` g
old-completer ` g filenamef ice-9/readline.scm
` g nameg !with-readline-completion-functiong
documentationf GWith @var{completer} as readline completion function, call @var{thunk}. CR4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G 44/5 5$ i" >i h O ] 6G g filenamef ice-9/readline.scm
+ -
C h0 s ] 4L> " G 4L > " G 6 k g filenamef ice-9/readline.scm
4 ! / /
C h X ] 4LL> " G L 6 P g filenamef ice-9/readline.scm
C h O ] 6G g filenamef ice-9/readline.scm
+ -
C h0 s ] 4L> " G 4L > " G 6 k g filenamef ice-9/readline.scm
4 ! / /
C h X ] 4LL> " G L 6 P g filenamef ice-9/readline.scm
C h X ] 4LL> " G L 6 P g filenamef ice-9/readline.scm
C h P - . , 3 # 45 45 45 & O O 4
O > " G V4$ " > X4 O > " G CX4
O > " G FL 6 H g repl-prompt
g reader g port g outer-new-input-prompt 3 g outer-continuation-prompt 3 g outer-read-hook 3 g filenamef ice-9/readline.scm
- % - 3 N f } C O R h8 ] 445 5$ #445 > " G 456C g filenamef ice-9/readline.scm
) 3 5
g nameg activate-readline CR4),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C> " G hX ' ]
$ -M( CM MN4M5$ C "L N44 55N " g text
T g continue? T g str 5 g filenamef ice-9/readline.scm
+ - " & ' " 5 & 9 :
$ >
3 ?
7 G
$ I T T g nameg completer C h8 ])HHO Q KK C g strings
5 g strs 5 g regexp 5 g completer 5 g strs 2 g regexp 2 g filenamef ice-9/readline.scm
5 g nameg make-completion-functiong
documentationf
Construct and return a completion function for a list of strings.
The returned function is suitable for passing to
@code{with-readline-completion-function. The argument @var{strings}
should be a list of strings, where each string is one of the possible
completions. CR),/ h E ] 45 6 = g filenamef ice-9/readline.scm
C6 g m
, g t
g completions
g boot-9-repl-reader
" g filenamef ice-9/readline.scm
- ) 3 ) 5 ) 9 )
> * D * F * , K * T , Z , \ , ` ,
e - k - n / o 0 p 1 u - ~ 7
;
>
K
K K
L
L ! L
M
M M
N
% N . N
/ O
C Q
D u
` w
y w | w
} x
y y y y y y % y * y x
^ {
S
5
"
#
"
$
(w
G (
C6 PK ! l}N> N> ice-9/vlist.gonu [ GOOF----LE-8-2.06> ] 4 hz ] g guile g define-module* g ice-9 g vlist g filenameS
f ice-9/vlist.scm g importsS g srfi
g srfi-1
g srfi-9 g gnu g srfi-26 g format g exportsS g vlist? g
vlist-cons g
vlist-head !g
vlist-tail "g vlist-null? #g
vlist-null $g list->vlist %g vlist-ref &g
vlist-drop 'g
vlist-take (g vlist-length )g
vlist-fold *g vlist-fold-right +g vlist-map ,g vlist-unfold -g vlist-unfold-right .g vlist-append /g
vlist-reverse 0g vlist-filter 1g vlist-delete 2g vlist->list 3g vlist-for-each 4g block-growth-factor 5g vhash? 6g
vhash-cons 7g vhash-consq 8g vhash-consv 9g vhash-assoc :g
vhash-assq ;g
vhash-assv <g vhash-delete =g
vhash-delq >g
vhash-delv ?g
vhash-fold @g vhash-fold-right Ag vhash-fold* Bg vhash-foldq* Cg vhash-foldv* Dg alist->vhash E !"#$%&'()*+,-./0123456789:;<=>?@ABCD ' Fg set-current-module GF HF Ig
make-fluid Jg make-vector Kg % make-block-procedure Lg make-syntax-transformer ML NL Og
make-block Pg macro Qg $sc-dispatch RQ SQ Tg _ Ug any VTUUUU Wg
syntax-object Xg syntax-parameterize Yg m-198d9e0d-123b Zg top [YZ \g ribcage ]g t-198d9e0d-1237 ^g t-198d9e0d-1238 _g t-198d9e0d-1239 `g t-198d9e0d-123a a]^_` b[[[[ cf l-198d9e0d-1240 df l-198d9e0d-1241 ef l-198d9e0d-1242 ff l-198d9e0d-1243 gcdef h\abg i\ jg x kj l[ mf l-198d9e0d-123d nm o\kln pg shift qg proc-name rg args sqr tZ utt vf
l-bde397a-8e8 wf
l-bde397a-8e9 xvw y\sux zg name {g formals |g body }z{| ~ttt f
l-bde397a-8df f
l-bde397a-8e0 f
l-bde397a-8e1 \}~ g make-procedure-name g prefix tt f
l-bde397a-8d3 f
l-bde397a-8d1 \ t f
l-bde397a-8d0 \k [hiopiiiiy
g hygiene WX thio WO g identifier-syntax W WK g lambda W g base W g offset W g size W g hash-tab? W g if W g vector W WJ g * W W W W
g each-any T g syntax-violation f Wrong number of arguments g identifier? tio WK f -source expression failed to match any pattern g define-block-accessor UUU g define-inlinable g dummy g index z g m-198d9e0d-1262 Z tt f l-198d9e0d-1267 f l-198d9e0d-1268 f l-198d9e0d-1269 \ f l-198d9e0d-1264 \k ti W g block W g
vector-ref W g % block-content-procedure g
block-content TU g m-198d9e0d-126f Z g t-198d9e0d-126e f l-198d9e0d-1274 \ f l-198d9e0d-1271 \k ipiiiiy
WX ti W W W W g m-198d9e0d-126d Z ipi W W W
ti W g % block-base-procedure g
block-base g m-198d9e0d-128b Z g t-198d9e0d-128a
f l-198d9e0d-1290
\
f l-198d9e0d-128d
\k ipiiiiy
WX t i W W W W g m-198d9e0d-1289 Z ipi W W W ! " ! #" $ti %W$ &g % block-offset-procedure 'g block-offset (g m-198d9e0d-12a7 )(Z *g t-198d9e0d-12a6 +* ,) -f l-198d9e0d-12ac .- /\+,. 0f l-198d9e0d-12a9 10 2\k,1 3)/i2piiiiy
4WX3 5t/i2 6W'5 7W3 8W&5 978 :69 ;: <W3 =g m-198d9e0d-12a5 >=Z ?>/i2pi @W? A@ BW? CW 5 DB@C E<AD F4;E Gti2 HW&G Ig % block-size-procedure Jg
block-size Kg m-198d9e0d-12c3 LKZ Mg t-198d9e0d-12c2 NM OL Pf l-198d9e0d-12c8 QP R\NOQ Sf l-198d9e0d-12c5 TS U\kOT VLRiUpiiiiy
WWXV XtRiU YWJX ZWV [WIX \Z[ ]Y\ ^] _WV `g m-198d9e0d-12c1 a`Z baRiUpi cWb dc eWb fW X gecf h_dg iW^h jtiU kWIj lg % block-next-free-procedure mg block-next-free ng m-198d9e0d-12df onZ pg t-198d9e0d-12de qp ro sf l-198d9e0d-12e4 ts u\qrt vf l-198d9e0d-12e1 wv x\krw youixpiiiiy
zWXy {tuix |Wm{ }Wy ~Wl{ }~ | Wy g m-198d9e0d-12dd Z uixpi W W W { z tix Wl g
vector-length g % block-hash-table?-procedure g block-hash-table? g m-198d9e0d-12fa Z g t-198d9e0d-12f9 f l-198d9e0d-12ff \ f l-198d9e0d-12fc \k ipiiiiy
WX ti W W W W W g < W WJ W W ti W g % set-block-next-free!-procedure g set-block-next-free! TUU g m-198d9e0d-1336 Z g t-198d9e0d-1334 g t-198d9e0d-1335 f l-198d9e0d-133b f l-198d9e0d-133c \ f l-198d9e0d-1338 \k ipiiiiy
WX ti W W W W W g next-free W g vector-set! W W ti W g % block-append!-procedure g
block-append! TUUU g m-198d9e0d-1357 Z g t-198d9e0d-1354 g t-198d9e0d-1355 g t-198d9e0d-1356 f l-198d9e0d-135c f l-198d9e0d-135d f l-198d9e0d-135e \ f l-198d9e0d-1359 \k ipiiiiy
WX ti W W W W W g value W W g and W W WJ g = W Wm
g begin W
W
g 1+ W
W W W ti W g % block-ref-procedure g block-ref g m-198d9e0d-13c0 Z g t-198d9e0d-13be !g t-198d9e0d-13bf " ! # $f l-198d9e0d-13c5 %f l-198d9e0d-13c6 &$% '\"#& ( )f l-198d9e0d-13c2 *) +\k(* , 'i+piiiiy
-WX, .t'i+ /W . 0W, 1W . 201 3/2 43 5W, 6g content 7W6. 8W. 978 :W. ;:78 <59; =-4< >ti+ ?W > @g (% block-hash-table-next-offset-procedure Ag block-hash-table-next-offset Bg m-198d9e0d-13e1 CBZ Dg t-198d9e0d-13de Eg t-198d9e0d-13df Fg t-198d9e0d-13e0 GDEF HCCC If l-198d9e0d-13e6 Jf l-198d9e0d-13e7 Kf l-198d9e0d-13e8 LIJK M\GHL NC Of l-198d9e0d-13e3 PO Q\kNP RCMiQpiiiiy
SWXR TtMiQ UWAT VWR WW@T XVW YUX ZY [WR \W6T ]WT ^WT _\]^ `WT ag + bWaT cb]]^ d`\c e[_d fSZe gtiQ hW@g ig -% block-hash-table-set-next-offset!-procedure jg !block-hash-table-set-next-offset! kg m-198d9e0d-1407 lkZ mg t-198d9e0d-1403 ng t-198d9e0d-1404 og t-198d9e0d-1405 pg t-198d9e0d-1406 qmnop rllll sf l-198d9e0d-140c tf l-198d9e0d-140d uf l-198d9e0d-140e vf l-198d9e0d-140f wstuv x\qrw yl zf l-198d9e0d-1409 {z |\ky{ }lxi|piiiiy
~WX} txi| Wj W} Wi W} W6 W W g next-offset W W Wa ~ ti| Wi g % block-hash-table-ref-procedure g block-hash-table-ref g m-198d9e0d-1430 Z g t-198d9e0d-142d g t-198d9e0d-142e g t-198d9e0d-142f f l-198d9e0d-1435 f l-198d9e0d-1436 f l-198d9e0d-1437 \ f l-198d9e0d-1432 \k ipiiiiy
WX ti W W W W W6 W g khash W W Wa ti W g !% block-hash-table-set!-procedure g block-hash-table-set! g m-198d9e0d-1456 Z g t-198d9e0d-1452 g t-198d9e0d-1453 g t-198d9e0d-1454 g t-198d9e0d-1455 f l-198d9e0d-145b f l-198d9e0d-145c f l-198d9e0d-145d f l-198d9e0d-145e \ f l-198d9e0d-1458 \k ipiiiiy
WX ti W W W W W6 W W W W Wa ti W g !% block-hash-table-add!-procedure g block-hash-table-add! g m-198d9e0d-1480 Z g t-198d9e0d-147c g t-198d9e0d-147d g t-198d9e0d-147e g t-198d9e0d-147f f l-198d9e0d-1485 f l-198d9e0d-1486 f l-198d9e0d-1487 f l-198d9e0d-1488 \ f l-198d9e0d-1482 \k ipiiiiy
WX ti W W W W W6 W W
W
Wj
W
W
ti W g
block-null g <vlist> g %make-vlist-procedure g
make-vlist g m-198d9e0d-1501 Z g t-198d9e0d-14ff g t-198d9e0d-1500 f l-198d9e0d-1506 !f l-198d9e0d-1507 " ! #\ " $ %f l-198d9e0d-1503 &% '\k$& (f l-1e8ba8b5a-60 )f l-1e8ba8b5a-61 *() +\su* ,g key -,z{| .ttttt /f l-1e8ba8b5a-53 0f l-1e8ba8b5a-54 1f l-1e8ba8b5a-55 2f l-1e8ba8b5a-56 3f l-1e8ba8b5a-57 4/0123 5\-.4 6 7t 8f l-1e8ba8b5a-43 98 :\679 ;f l-1e8ba8b5a-42 <; =\k< >#i'piiii+5:=
? @W>? At#i' BWA CWA DBC Eg make-struct Fg m-198d9e0d-14fd GFZ Hg t-1e8ba8b5a-133 Ig t-1e8ba8b5a-132 Jg t-1e8ba8b5a-131 KHIJ Lg m-1e8ba8b5a-134 MLZ NMMM Of l-1e8ba8b5a-138 Pf l-1e8ba8b5a-139 Qf l-1e8ba8b5a-13a ROPQ S\KNR Tg ctor-args UT Vf l-1e8ba8b5a-120 WV X\UW Yg ctor Zg field [YZ \f l-1e8ba8b5a-11c ]f l-1e8ba8b5a-11d ^\] _\[u^ `g form ag type-name bg constructor-spec cg field-names d`abc etttt ff l-1e8ba8b5a-111 gf l-1e8ba8b5a-112 hf l-1e8ba8b5a-113 if l-1e8ba8b5a-114 jfghi k\dej lg
record-layout mg functional-setters ng setters og copier pg getters qg constructor rg getter-identifiers sg field-identifiers tlmnopqrs utttttttt vf l-1e8ba8b5a-e9 wf l-1e8ba8b5a-e7 xf l-1e8ba8b5a-e5 yf l-1e8ba8b5a-e3 zf l-1e8ba8b5a-e1 {f l-1e8ba8b5a-df |f l-1e8ba8b5a-dd }f l-1e8ba8b5a-db ~vwxyz{|} \tu~ f l-1e8ba8b5a-da \k G#i'piSiiiX_ik WE? WA W
? BC @D ti' W g record-type-vtable g pwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %vlist?-procedure g m-198d9e0d-1510 Z g t-198d9e0d-150f f l-198d9e0d-1515 \ f l-198d9e0d-1512 \k ipiiii+5:=
W? 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 Z 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 \ g copier-id f l-1e8ba8b5a-21c \ g ctor-name f l-1e8ba8b5a-214 \ c f l-1e8ba8b5a-212 \ g layout f l-1e8ba8b5a-210 \ g
immutable? f l-1e8ba8b5a-20e \ g field-count f l-1e8ba8b5a-20c \ g
getter-ids f l-1e8ba8b5a-209 \ g field-ids f l-1e8ba8b5a-206 \ g predicate-name g
field-spec `ab tttttt f l-1e8ba8b5a-1f9 f l-1e8ba8b5a-1fa f l-1e8ba8b5a-1fb f l-1e8ba8b5a-1fc f l-1e8ba8b5a-1fd f l-1e8ba8b5a-1fe \ Gipiiiiiiiiiiii W? W? g struct? W? g eq? W? g
struct-vtable W? ti W ti W g throw-bad-struct g
vlist-base
g %vlist-base-procedure g free-id g
%%on-error
g m-198d9e0d-151c
Z f l-198d9e0d-151e \k ipiiii+5:= W ? U g %%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 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 ! Z "!!!!!!! #f l-1e8ba8b5a-156 $f l-1e8ba8b5a-157 %f l-1e8ba8b5a-158 &f l-1e8ba8b5a-159 'f l-1e8ba8b5a-15a (f l-1e8ba8b5a-15b )f l-1e8ba8b5a-15c *#$%&'() +\ "* ,g getter -, .f l-1e8ba8b5a-149 /f l-1e8ba8b5a-14a 0./ 1\-u0 2a 3f l-1e8ba8b5a-144 4f l-1e8ba8b5a-145 5f l-1e8ba8b5a-146 6345 7\2~6 8Gipi+iii1i7 9W8? : 9 ;T:U <g ck =g err >g s ?=> @ Af l-198d9e0d-1521 Bf l-198d9e0d-1522 CAB D\?@C EDipiiii+5:=
FW<E? Gg quote HWGE? ItDi JWI KHJ LK Mg %%index NWM8? O N PTOU Qf l-198d9e0d-1526 Rf l-198d9e0d-1527 SQR T\?@S UTipiiii+5:=
VW<U? WWGU? XTi YW
X ZWY [Z \g %%copier ]W\8? ^ ] _T^U `f l-198d9e0d-152b af l-198d9e0d-152c b`a c\?@b dcipiiii+5:=
eW<d? fWGd? gg %%<vlist>-set-fields htci iWgh jfi kj lg t-198d9e0d-151b ml nf l-198d9e0d-1530 on p\mo qpipiiii+5:=
rWq? sGpipi+iii1i7 tW>s? ut vWs? wWs? xWs? yxt ztpi {Wz |wy{ }g
struct-ref ~W}s? pi W
~t Ws? WGs? W z t v| ru ti W
g vlist-offset g %vlist-offset-procedure g m-198d9e0d-1537 Z f l-198d9e0d-1539 \k ipiiii+5:= W ? U Gipi+iii1i7 W? TU f l-198d9e0d-153c f l-198d9e0d-153d \? ipiiii+5:=
W<? WG? ti W WM? TU f l-198d9e0d-1541 f l-198d9e0d-1542 \? ipiiii+5:=
W<? WG? i W W\? TU f l-198d9e0d-1546 f l-198d9e0d-1547 \? ipiiii+5:=
W<? WG? ti Wg g t-198d9e0d-1536 f l-198d9e0d-154b \ ipiiii+5:=
W? Gipi+iii1i7 W>? W? W? W? ti W W}? i W W? WG? W ti W g each UU U㌤ U䌤 U匤 g %%set-fields g check? g expr >, g m-198d9e0d-1552 Z GGGG f l-198d9e0d-1557 f l-198d9e0d-1558 f l-198d9e0d-1559 f l-198d9e0d-155a f l-198d9e0d-155b \ f l-198d9e0d-1554 \k g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d Z f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 \ f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 \2~
Gipiiii
W
? ti
W W W g map g list g set-record-type-printer! f #<vlist ()> f #<vhash ~x ~a pairs> g object-address f #<vlist ~a> g throw g wrong-type-arg f Not a vlist: ~S g % assert-vlist-procedure g assert-vlist g m-198d9e0d-157d Z !g t-198d9e0d-157c "! # $f l-198d9e0d-1582 %$ &\"#% 'f l-198d9e0d-157f (' )\k#( * &i)piiiiy
+WX* ,t&i) -W , .W* /W , 0./ 1-0 21 3W* 4g val 5W4, 65 7g unless 8W7, 9W , :95 ;W, <WG, =W, ><= ?W, @W , AW, BA5 C;>?@BB D8:C E36D F+2E Gti) HW G Ig % block-cons-procedure Jg
block-cons Kg m-198d9e0d-15a0 LKZ Mg t-198d9e0d-159d Ng t-198d9e0d-159e Og t-198d9e0d-159f PMNO QLLL Rf l-198d9e0d-15a5 Sf l-198d9e0d-15a6 Tf l-198d9e0d-15a7 URST V\PQU WL Xf l-198d9e0d-15a2 YX Z\kWY [LViZpiiiiy
\WX[ ]tViZ ^WJ] _W[ `WI] a_` b^a cb dW[ eg item fWe] gW] hW] ifgh jg let kWj] lW] mW ] nmg oln pW] qW
] rW] srg tqs upt vou wg cond xWw] yW] zylfp {W] |{lp }z| ~g else W~] g let* W] W] WJ] l WO] g 1- W] p g zero? W] W ] W] p W] g fluid-ref W] W4] x lh l W] l W] W] l W
] f {l x} kv di \c tiZ WI g fold g cons g equal? g
fold-right g hash g hashq g hashv g % %vhash-fold*-procedure g %vhash-fold* TUUUUUU g m-198d9e0d-1bf6 Z g t-198d9e0d-1bf0 g t-198d9e0d-1bf1 g t-198d9e0d-1bf2 g t-198d9e0d-1bf3 g t-198d9e0d-1bf4 g t-198d9e0d-1bf5 f l-198d9e0d-1bfb f l-198d9e0d-1bfc f l-198d9e0d-1bfd f l-198d9e0d-1bfe f l-198d9e0d-1bff f l-198d9e0d-1c00 \ f l-198d9e0d-1bf8 \k ipiiiiy
WX ti W W W W g proc W g init W W, g vhash W W W g define W g visit-block W W g
max-offset W g result W W W WJ W6 W W Wj g loop W W W W WA W g <= W g car W
W
g cdr W g
next-block W W g > W W
W' ! "! # " $# %$ & % '& (' )W *) +W ,+ -, . - /W 0/ 1,0 2.1 3(*2 43 5ti 6W5 7g % %vhash-assoc-procedure 8g %vhash-assoc 9g m-198d9e0d-2023 :9Z ;g t-198d9e0d-201f <g t-198d9e0d-2020 =g t-198d9e0d-2021 >g t-198d9e0d-2022 ?;<=> @:::: Af l-198d9e0d-2028 Bf l-198d9e0d-2029 Cf l-198d9e0d-202a Df l-198d9e0d-202b EABCD F\?@E G: Hf l-198d9e0d-2025 IH J\kGI K:FiJpiiiiy
LWXK MtFiJ NW8M OWK PW7M QOP RNQ SR TWK UW,M VWM WWM XWM YUVWX ZWM [WM \WM ]WM ^[\] _WM `WM aWJM ba\ c`b dW6M eWM fe\ gdf hWM iXU` jhi kcgj lWjM mWM nWM oWM pod`h qnp rq sWM tWM uWM vun] wWM xW M yxdn zwy {WUz |tv{ }WAM ~}d`n m~ s|y WM WM \ WM a W
M W'M \ [ t l sn lmr _k Z^ W M V W M V a WM V [ t TY LS tiJ W7 g eqv?C 5 h ]4
E5 4H > " G 4Ii 54RJ h0 ]$ 4 5
C45
C g base
0 g offset 0 g size 0 g hash-tab? 0 g filenamef ice-9/vlist.scm
G
L M M M M O / O 0 g nameg % make-block-procedure CKR4NOPSV h ] C g t-198d9e0d-1237
g t-198d9e0d-1238 g t-198d9e0d-1239 g t-198d9e0d-123a CO h R ]L 6 J g a
g filenamef ice-9/vlist.scm G
CT h B ] L 6: g filenamef ice-9/vlist.scm G
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/vlist.scm
G
n C5OR4NPS h R ] C J g dummy
g name g index C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/vlist.scm
R
" g
macro-typeg syntax-rulesg patternsg nameg index C5R h { ]
C s g block
g filenamef ice-9/vlist.scm
V
g nameg % block-content-procedure CR4NPS h 7 ] C / g t-198d9e0d-126e
C h R ]L 6 J g a
g filenamef ice-9/vlist.scm V
CT h B ] L 6: g filenamef ice-9/vlist.scm V
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/vlist.scm
V
n C5R h x ] C p g block
g filenamef ice-9/vlist.scm
W
g nameg % block-base-procedure CR4NPS# h 7 ] C / g t-198d9e0d-128a
C h R ]L 6 J g a
g filenamef ice-9/vlist.scm W
CT h B ] L 6: g filenamef ice-9/vlist.scm W
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/vlist.scm
W
n C5R h z ] Cr g block
g filenamef ice-9/vlist.scm
X
g nameg % block-offset-procedure C&R4N'PSF h 7 ] C / g t-198d9e0d-12a6
C' h R ]L 6 J g a
g filenamef ice-9/vlist.scm X
CT h B ] L 6: g filenamef ice-9/vlist.scm X
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/vlist.scm
X
n C5'R h x ] Cp g block
g filenamef ice-9/vlist.scm
Y
g nameg % block-size-procedure CIR4NJPSi h 7 ] C / g t-198d9e0d-12c2
CJ h R ]L 6 J g a
g filenamef ice-9/vlist.scm Y
CT h B ] L 6: g filenamef ice-9/vlist.scm Y
Ck 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/vlist.scm
Y
n C5JR h } ] Cu g block
g filenamef ice-9/vlist.scm
Z
g nameg % block-next-free-procedure ClR4NmPS h 7 ] C / g t-198d9e0d-12de
Cm h R ]L 6 J g a
g filenamef ice-9/vlist.scm Z
CT h B ] L 6: g filenamef ice-9/vlist.scm Z
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/vlist.scm
Z
n C5mR h ] 4
5C g block
g filenamef ice-9/vlist.scm
\
] ] ] ' ] ] g nameg % block-hash-table?-procedure CR4NPS h 7 ] C / g t-198d9e0d-12f9
C h R ]L 6 J g a
g filenamef ice-9/vlist.scm \
CT h B ] L 6: g filenamef ice-9/vlist.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/vlist.scm
\
n C5R h ] C g block
g next-free g filenamef ice-9/vlist.scm
_
` g nameg % set-block-next-free!-procedure CR4NPS h T ] C L g t-198d9e0d-1334
g t-198d9e0d-1335 C h R ]L 6 J g a
g filenamef ice-9/vlist.scm _
CT h B ] L 6: g filenamef ice-9/vlist.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/vlist.scm
_
n C5R h8 ] $ ( $
CCC g block
8 g value 8 g offset 8 g next-free ) g filenamef ice-9/vlist.scm
b
d
d d e e d g % g - h 2 h 8 g nameg % block-append!-procedure CR4NPS h q ] C i g t-198d9e0d-1354
g t-198d9e0d-1355 g t-198d9e0d-1356 C h R ]L 6 J g a
g filenamef ice-9/vlist.scm b
CT h B ] L 6: g filenamef ice-9/vlist.scm b
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/vlist.scm
b
n C5R h ] C g content
g offset g filenamef ice-9/vlist.scm
l
m g nameg % block-ref-procedure C R4N PS= h T ] C L g t-198d9e0d-13be
g t-198d9e0d-13bf C h R ]L 6 J g a
g filenamef ice-9/vlist.scm l
CT h B ] L 6: g filenamef ice-9/vlist.scm l
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/vlist.scm
l
n C5 R h ] C g content
g size g offset g filenamef ice-9/vlist.scm
q
r
r g nameg (% block-hash-table-next-offset-procedure C@R4NAPSf h q ] C i g t-198d9e0d-13de
g t-198d9e0d-13df g t-198d9e0d-13e0 CA h R ]L 6 J g a
g filenamef ice-9/vlist.scm q
CT h B ] L 6: g filenamef ice-9/vlist.scm q
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/vlist.scm
q
n C5AR h ] C g content
g size g offset g next-offset g filenamef ice-9/vlist.scm
v
x x g nameg -% block-hash-table-set-next-offset!-procedure CiR4NjPSV h ] C g t-198d9e0d-1403
g t-198d9e0d-1404 g t-198d9e0d-1405 g t-198d9e0d-1406 Cj h R ]L 6 J g a
g filenamef ice-9/vlist.scm v
CT h B ] L 6: g filenamef ice-9/vlist.scm v
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/vlist.scm
v
n C5jR h ] C g content
g size g khash g filenamef ice-9/vlist.scm
|
}
} g nameg % block-hash-table-ref-procedure CR4NPS h q ] C i g t-198d9e0d-142d
g t-198d9e0d-142e g t-198d9e0d-142f C h R ]L 6 J g a
g filenamef ice-9/vlist.scm |
CT h B ] L 6: g filenamef ice-9/vlist.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/vlist.scm
|
n C5R h ] C g content
g size g khash g offset g filenamef ice-9/vlist.scm
g nameg !% block-hash-table-set!-procedure CR4NPSV h ] C g t-198d9e0d-1452
g t-198d9e0d-1453 g t-198d9e0d-1454 g t-198d9e0d-1455 C h R ]L 6 J g a
g filenamef ice-9/vlist.scm
CT h B ] L 6: g filenamef ice-9/vlist.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/vlist.scm
n C5R h( ] C g content
( g size ( g khash ( g offset ( g next-offset
g filenamef ice-9/vlist.scm
%
# ( g nameg !% block-hash-table-add!-procedure CR4NPSV h ] C g t-198d9e0d-147c
g t-198d9e0d-147d g t-198d9e0d-147e g t-198d9e0d-147f C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
n C5R4Ji
5
R h ] C g base
g offset g filenamef ice-9/vlist.scm
g nameg %make-vlist-procedure CR4NPS h T ] C L g t-198d9e0d-14ff
g t-198d9e0d-1500 C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
n C5R 4 > " G i R h r ] $ CC j g obj
g filenamef ice-9/vlist.scm
g nameg %vlist?-procedure CR4N PS h 7 ] C / g t-198d9e0d-150f
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
n C5 R h t ] &
C 6l g s
g filenamef ice-9/vlist.scm
g nameg %vlist-base-procedure C
R4N PS;FL h : ]C 2 g err
g s CPV[ h : ]C 2 g err
g s C_ek h : ]C 2 g err
g s C h 7 ] C / g t-198d9e0d-151b
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
C5 R h v ] & C 6n g s
g filenamef ice-9/vlist.scm
g nameg %vlist-offset-procedure CR4NPS 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 7 ] C / g t-198d9e0d-1536
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
C5R4NgPS
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/vlist.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5gR4ii"5(2
hH ]4 5$ 64 5$ 4 54 564 56 g vl
E g port E g filenamef ice-9/vlist.scm
#
0 # # & 0 ' + . + 6 # < 0 = + E # E C> " G i i
#R h@ ] $ & C 6 6 g val
: g filenamef ice-9/vlist.scm
% ' + . 3 8 : : g nameg % assert-vlist-procedure C R4N PSF h 7 ] C / g t-198d9e0d-157c
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
n C5 R 4J h ]+&
" 45& " 45 " ~
$ " $ " [ $ 4 5
" 45
C $ ; $ +
$
C"?";"7 g item
g vlist g hash-tab? g base 7 g offset 7 g size D g offset j g size j g base g next-free
g filenamef ice-9/vlist.scm
7 7 D D I L Q [ _ j j g nameg % block-cons-procedure CIR4NJPS h q ] C i g t-198d9e0d-159d
g t-198d9e0d-159e g t-198d9e0d-159f CJ h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
n C5JR 4J h { ]*" #4 > " 'G " $ & " "" "
" _
$ " $ " [ 45
C $ ; $ +
$
C"^"Z"V s g item
g vlist g base R g offset R g size _ g offset g size g base g next-free g filenamef ice-9/vlist.scm
M g nameg
vlist-consg
documentationf ?Return a new vlist with ITEM as its head and VLIST as its
tail. C R hh ]" #4 > " 'G " $ & " "" "
C g vlist
a g base Q a g offset Q a g content Y a g filenamef ice-9/vlist.scm
M Q Q Y Y a g nameg
vlist-headg
documentationf Return the head of VLIST. C R h d ]!" #4 > " 'G " $ & " "" "
$ C C \ g vlist
g base Q g offset Q g offset ` l g base u g offset u g filenamef ice-9/vlist.scm
M Q Q Y ] ` ` p u u
g nameg
vlist-tailg
documentationf Return the tail of VLIST. C!R hh ] " #4 > " 'G " $ & " "" "
$ C
C g vlist
a g base M a g filenamef ice-9/vlist.scm
M M S W _ ` a g nameg vlist-null?g
documentationf Return true if VLIST is empty. C"R/ # h ]4 56 g lst
g filenamef ice-9/vlist.scm
g nameg list->vlistg
documentationf 4Return a new vlist whose contents correspond to LST. C$R h ]3" #4 > " 'G " $ & " "" "" V& C
$ " $ " 4
5 "
"
g proc
g init g vlist g base M g offset M g result M g next [ g done? a g content g filenamef ice-9/vlist.scm
M U [ [ a a i m y ~
!
g nameg
vlist-foldg
documentationf /Fold over VLIST, calling PROC for each element. C)R %( h ]" #4 > " 'G " $ & " "" "" &
$ C4 455 "45 " g proc
g init g vlist g index M s g result M s g filenamef ice-9/vlist.scm
M Q U [ \
_ k
s s t { g nameg vlist-fold-rightg
documentationf OFold over VLIST, calling PROC for each element, starting from
the last element. C*R) # h ] 6 g vlist
g filenamef ice-9/vlist.scm
g nameg
vlist-reverseg
documentationf EReturn a new VLIST whose content are those of VLIST in reverse
order. C/R) h | ]4L 56 t g item
g result g filenamef ice-9/vlist.scm
C#/ h ] O 456 g proc
g vlist g filenamef ice-9/vlist.scm
! g nameg vlist-mapg
documentationf ;Map PROC over the elements of VLIST and return a new vlist. C+R* h ] 6 g vlist
g filenamef ice-9/vlist.scm
#
% % g nameg vlist->listg
documentationf 6Return a new list whose contents match those of VLIST. C2R h ]*" #4 > " 'G " $ & " "" "" 6$
C "
" g vlist
g index g index M g base M g offset M g content _ i g offset _ i g filenamef ice-9/vlist.scm
'
) M * R - V - Z . _ . ( _ . n / t 0 y 1 / * + , * g nameg vlist-refg
documentationf +Return the element at index INDEX in VLIST. C%R h ]"" #4 > " 'G " $ & " "" "" 4$ C "
" g vlist
g count g count M g base M g offset M g offset [ g g filenamef ice-9/vlist.scm
3
6 M 7 R : V : [ ; [ ; l < r = w > < 7 8 9 7 g nameg
vlist-dropg
documentationf KReturn a new vlist that does not contain the COUNT first elements of
VLIST. C&R/! # hH { ]" 0
$ 6454455 " " s g vlist
F g count F g count 6 g vlist 6 g result 6 g filenamef ice-9/vlist.scm
@
C
F F G H I J " J , J 6 H 6 C
F g nameg
vlist-takeg
documentationf HReturn a new vlist that contains only the COUNT first elements of
VLIST. C'R* h } ]4L 5$ 6Cu g e
g v g filenamef ice-9/vlist.scm
O P
P Q C# h ] O 6 g pred
g vlist g filenamef ice-9/vlist.scm
L
O g nameg vlist-filterg
documentationf LReturn a new vlist containing all the elements from VLIST that
satisfy PRED. C0R0 h e ]4L L 5C ] g e
g filenamef ice-9/vlist.scm
Y Z Z
C h( - . , 3 # O 6 g x
% g vlist % g equal? % g filenamef ice-9/vlist.scm
V
% Y % g nameg vlist-deleteg
documentationf KReturn a new vlist corresponding to VLIST without the elements
EQUAL? to X. C1R h . ]" #4 > " 'G " $ & " "" "" & C "
" & g vlist
} g base M m g len M m g filenamef ice-9/vlist.scm
]
_ M ` U b \ d _ e d e e e m d m ` q ` u a } ` } g nameg vlist-lengthg
documentationf Return the length of VLIST. C(R# h S ]C K g x
g filenamef ice-9/vlist.scm
h , C h0 ]4L 5$ L 64L 54L4L 556 g seed
* g filenamef ice-9/vlist.scm
j k
k l m n n ( n * m
* g nameg uf C h8 ) - . , 3 # O Q 6 ! g p
5 g f 5 g g 5 g seed 5 g tail-gen 5 g uf " 5 g filenamef ice-9/vlist.scm
g
" j 5 g nameg vlist-unfoldg
documentationf HReturn a new vlist. See the description of SRFI-1 `unfold' for details. C,R# hX - . , 3 # " +4 5$ C454455 " " g p
Q g f Q g g Q g seed Q g tail Q g seed E g lis E g filenamef ice-9/vlist.scm
p
s t % t ) v 0 v 3 v ! = v E v E s Q g nameg vlist-unfold-rightg
documentationf NReturn a new vlist. See the description of SRFI-1 `unfold-right' for
details. C-R#* h k ] 6 c g e
g v
g filenamef ice-9/vlist.scm
} &
~ (
C h t ] 6 l g vlist
g result g filenamef ice-9/vlist.scm
| } C h - 1 3 ( C 6 g vlists
g filenamef ice-9/vlist.scm
x
z |
g nameg vlist-appendg
documentationf Append the given lists. C.R) h n ]L 6f g item
g x g filenamef ice-9/vlist.scm
C h ] O 6 g proc
g vlist g filenamef ice-9/vlist.scm
g nameg vlist-for-eachg
documentationf ?Call PROC on each element of VLIST. The result is unspecified. C3R h0 ] $ ! &
4
5CCC g obj
, g block ( g filenamef ice-9/vlist.scm
, g nameg vhash?g
documentationf "Return true if OBJ is a hash list. C5R 4J h - . , 3 # " #4 > " 'G " $ & " "" "
" l
$ " $ " [ 4 5
" \ $ F $ 2
$
" "N" "F" "> &
" 4 5 & " 4
5 4 5
C g key
g value g vhash g hash g item b @ g base m = g offset m = g size z g offset g size g base g next-free g vhash @ g base \ g offset x g size g khash g content g next-offset
g filenamef ice-9/vlist.scm
b b @ E \ a x g nameg
vhash-consg
documentationf jReturn a new hash list based on VHASH where KEY is associated
with VALUE. Use HASH to compute KEY's hash. C6R6 h ] 6 g t-198d9e0d-1bd9
g t-198d9e0d-1bda g t-198d9e0d-1bdb g filenamef ice-9/vlist.scm
g nameg vhash-consq C7R6 h ] 6 g t-198d9e0d-1be5
g t-198d9e0d-1be6 g t-198d9e0d-1be7 g filenamef ice-9/vlist.scm
g nameg vhash-consv C8R h( ( ]N"
4 5 " s $ F
$ (4
5$ 4
5"
"
"
$
"t
C
"{$ 0& " 4 > " G " 4 > " G
$
"C g proc
( g init ( g key ( g vhash ( g equal? ( g hash ( g base g
max-offset g result g size g content
g khash g offset " g result
" g
next-block r g block g filenamef ice-9/vlist.scm
" ( / 8 < = F , G ' I M N U ! V Z n r r y { *
% * ( g nameg % %vhash-fold*-procedure CR4NPS4 h ] C g t-198d9e0d-1bf0
g t-198d9e0d-1bf1 g t-198d9e0d-1bf2 g t-198d9e0d-1bf3 g t-198d9e0d-1bf4 g t-198d9e0d-1bf5 C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.scm
C6 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/vlist.scm
n C5R h8 ] - . , 3 # # "
4 5 " s $ F
$ (4
5$ 4
5"
"
"
$
"t
C
"{" #4 > " 'G " $ & " "" "
$
"C U g proc
7 g init 7 g key 7 g vhash 7 g equal? 7 g hash 7 g base $ g
max-offset $ g result $ g size ) g content
/ g khash : g offset @ g result
@ g
next-block g block g filenamef ice-9/vlist.scm
$ 7 g nameg vhash-fold*g
documentation k F o l d o v e r a l l t h e v a l u e s a s s o c i a t e d w i t h K E Y i n V H A S H , w i t h e a c h
c a l l t o P R O C h a v i n g t h e f o r m ( p r o c v a l u e r e s u l t ) , w h e r e
R E S U L T i s t h e r e s u l t o f t h e p r e v i o u s c a l l t o P R O C a n d I N I T t h e
v a l u e o f R E S U L T f o r t h e f i r s t c a l l t o P R O C . CAR h } ]T "
45
" n $ A $ # & 4 5" " "
$
"y C
"" #4 > " 'G " $ & " "" "
$
"Cu g proc
g init g key g vhash g hash g base
g
max-offset
g result
g size g content g khash
g offset & g result & g
next-block
q g block g filenamef ice-9/vlist.scm
g nameg vhash-foldq*g
documentationk S a m e a s v h a s h - f o l d * , b u t u s i n g h a s h q a n d e q ? . CBR h ]T "
45
" o $ B $ $ $ 4 5" " "
$
"x C
"" #4 > " 'G " $ & " "" "
$
"C y g proc
g init g key g vhash g hash g base
g
max-offset
g result
g size g content g khash
g offset & g result & g
next-block
r g block g filenamef ice-9/vlist.scm
g nameg vhash-foldv*g
documentationk S a m e a s v h a s h - f o l d * , b u t u s i n g h a s h v a n d e q v ? . CCR h ]<"
4 5 " j $ B $ (4 5$ C " "
$
"|C "$ 0& " 4 > " G " 4 > " G
$
"C g key
g vhash g equal? g hash g base g
max-offset g size g content g khash g offset " g
next-block
n g block g filenamef ice-9/vlist.scm
" ( - 1 2 ; & < ! > B G
O Y ` j n n u
w
{
+
) g nameg % %vhash-assoc-procedure C7R4N8PSV h ] C g t-198d9e0d-201f
g t-198d9e0d-2020 g t-198d9e0d-2021 g t-198d9e0d-2022 C8 h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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/vlist.scm
n C58R h - . , 3 # # "
4 5 " e $ =" " $ 4 5$ C""
$
"C "" #4 > " 'G " $ & " "" "
$
"C g key
g vhash g equal? g hash g base $ g
max-offset $ g size ) g content / g khash : g offset @ g
next-block
g block g filenamef ice-9/vlist.scm
$ g nameg vhash-assocg
documentationf pReturn the first key/value pair from VHASH whose key is equal to
KEY according to the EQUAL? equality predicate. C9R h u ]B "
4 5 " `$ 8" "$ & C""
$ "C "" #4 > " 'G " $ & " "" "
$
" C m g key
g vhash g hash g base
g
max-offset
g size g content g khash g offset & g
next-block h g block g filenamef ice-9/vlist.scm
g nameg
vhash-assqg
documentation k R e t u r n t h e f i r s t k e y / v a l u e p a i r f r o m V H A S H w h o s e k e y i s e q ? t o
K E Y . C:R h y ]B "
4 5 " a$ 9" "$ $ C""
$ "C "" #4 > " 'G " $ & " "" "
$
"
C q g key
g vhash g hash g base
g
max-offset
g size g content g khash g offset & g
next-block i g block g filenamef ice-9/vlist.scm
" g nameg
vhash-assvg
documentation k R e t u r n t h e f i r s t k e y / v a l u e p a i r f r o m V H A S H w h o s e k e y i s e q v ? t o
K E Y . C;R9)6 h( ] 4LL5$ CL 6 g k+v
( g result ( g k ( g v ( g filenamef ice-9/vlist.scm
( ) * )
+ + ( - ( C# hH ! - . , 3 # # 4 5$ O 6C g key
G g vhash G g equal? G g hash G g filenamef ice-9/vlist.scm
$
! ' 1 ' D ( G g nameg vhash-deleteg
documentationf HRemove all associations from VHASH with KEY, comparing keys
with EQUAL?. C<R< h ] 6 g t-198d9e0d-243e
g t-198d9e0d-243f g filenamef ice-9/vlist.scm
2 g nameg
vhash-delq C=R< h ] 6 g t-198d9e0d-2448
g t-198d9e0d-2449 g filenamef ice-9/vlist.scm
3 g nameg
vhash-delv C>R) h ]L 6 g key+value
g result g filenamef ice-9/vlist.scm
: ;
; & ; C h m ] O 6 e g proc
g init g vhash g filenamef ice-9/vlist.scm
5
: g nameg
vhash-foldg
documentation k F o l d o v e r t h e k e y / p a i r e l e m e n t s o f V H A S H f r o m l e f t t o r i g h t , w i t h
e a c h c a l l t o P R O C h a v i n g t h e f o r m ( P R O C k e y v a l u e r e s u l t ) ,
w h e r e R E S U L T i s t h e r e s u l t o f t h e p r e v i o u s c a l l t o P R O C a n d
I N I T t h e v a l u e o f R E S U L T f o r t h e f i r s t c a l l t o P R O C . C?R* h ]L 6 g key+value
g result g filenamef ice-9/vlist.scm
E F
F , F C h u ] O 6 m g proc
g init g vhash g filenamef ice-9/vlist.scm
@
E g nameg vhash-fold-rightg
documentation k F o l d o v e r t h e k e y / p a i r e l e m e n t s o f V H A S H f r o m r i g h t t o l e f t , w i t h
e a c h c a l l t o P R O C h a v i n g t h e f o r m ( P R O C k e y v a l u e r e s u l t ) ,
w h e r e R E S U L T i s t h e r e s u l t o f t h e p r e v i o u s c a l l t o P R O C a n d
I N I T t h e v a l u e o f R E S U L T f o r t h e f i r s t c a l l t o P R O C . C@R6 h ] L 6} g pair
g result g filenamef ice-9/vlist.scm
M N
N ' N C# h( - . , 3 # O 6 g alist
% g hash % g filenamef ice-9/vlist.scm
K
% M % g nameg alist->vhashg
documentationf =Return the vhash corresponding to ALIST, an association list. CDRC g m
, g rtd
:D :p g base
J J g filenamef ice-9/vlist.scm
- E 8 D
g G
V V
t W
X
Y
Z
; \
_
b
l
$ q
(T v
, |
/
3
6 6
7
I
J J
K
Q
W
X
Z
\%
]#
`
bX
cW
e
e #
hg '
j 3
l @
nw L
p8 V
r ]
t g
v p
x x
zt
{
^
6
@
\
$
2
` 3
5
@
K
A
C6 PK ! wO ice-9/control.gonu [ GOOF----LE-8-2.0 ] 4 h
] g guile g define-module* g ice-9 g control g filenameS
f ice-9/control.scm g exportsS g %
g abort g shift g reset g shift* g reset* g call-with-escape-continuation g call/ec g let-escape-continuation g let/ec
g
re-exportsS g call-with-prompt g abort-to-prompt g default-prompt-tag g make-prompt-tag g set-current-module g make-syntax-transformer ! " #g macro $g $sc-dispatch %$ &$ 'g any ('' )g
syntax-object *g top +* ,g ribcage -g dummy .g expr /-. 0g m-3d0776c508-76 10* 21+ 3f l-3d0776c508-7b 4f l-3d0776c508-7c 534 6,/25 7, 8g x 98 :1 ;f l-3d0776c508-78 <; =,9:< >+67= ?g hygiene @? A)>@ B)>@ CB Dg lambda E)D>@ Fg default-prompt-handler G)F>@ HG I''' Jg handler K-.J L1++ Mf l-3d0776c508-80 Nf l-3d0776c508-81 Of l-3d0776c508-82 PMNO Q,KLP R+Q7= S)R@ T)R@ UT V)DR@ W'''' Xg tag Y-X.J Z1+++ [f l-3d0776c508-87 \f l-3d0776c508-88 ]f l-3d0776c508-89 ^f l-3d0776c508-8a _[\]^ `,YZ_ a+`7= b)a@ c)Da@ dg syntax-violation ed fd gf -source expression failed to match any pattern h'' ig body j-i kg m-3d0776c508-95 lk* ml+ nf l-3d0776c508-9a of l-3d0776c508-9b pno q,jmp rl sf l-3d0776c508-97 ts u,9rt v+q7u w)v@ x)v@ yx z)Dv@ {g cont |){v@ }g f ~)}v@ |~ ~| z 'h g var -i g m-3d0776c508-9f * ++ f l-3d0776c508-a4 f l-3d0776c508-a5 f l-3d0776c508-a6 , f l-3d0776c508-a1 ,9 +7 )@ )@ )D@ ){@ )@ g vals )@ g apply )@ g each-any ' ' g let g k -i g m-3d0776c508-cf * ++ f l-3d0776c508-d4 f l-3d0776c508-d5 f l-3d0776c508-d6 , f l-3d0776c508-d1 ,9 +7 )@ )X@ g list )@ g quote )@ )@ )@ )D@ g args )@ )@ )@ g _ )@ g results )@ ̌ g values )@ g m-3d0776c508-dc * ++ f l-3d0776c508-e1 f l-3d0776c508-e2 f l-3d0776c508-e3 , f l-3d0776c508-de ,9 +7 )@ C 5 h` ]4
5 4 > " G h z - 1 3 45 @ r g args
g filenamef ice-9/control.scm
g nameg abort C
R4" #&(ACEH h ? ] C 7 g dummy
g expr CISUV h T ] C L g dummy
g expr g handler CWbc h e ] C ] g dummy
g tag g expr g handler Cfg
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/control.scm
P g
macro-typeg syntax-rulesg patternsg expr g exprg handler g tagg exprg handler C5 RF h E ] LL 6= g filenamef ice-9/control.scm 8
C h0 ] 45 U 4 O > XCXFG @ g k
. g proc . g handler . g args # . g filenamef ice-9/control.scm
6
7 7 7 . g nameg default-prompt-handler CFR4"#&hwyz h ? ]C 7 g dummy
g body Cfg h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/control.scm
@
" g
macro-typeg syntax-rulesg patternsg body C5R4"#& h( P ] C H g dummy
# g var # g body # # Cfg h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/control.scm
E
" g
macro-typeg syntax-rulesg patternsg varg body C5R h E ] L 6 = g filenamef ice-9/control.scm L
C h0 ]45 U 4 O > XCXFG 6 g thunk
* g cont * g f * g filenamef ice-9/control.scm
K
L * g nameg reset* CR h E ] LL @= g filenamef ice-9/control.scm O
C h8 y - 1 3 45 U 4 L O > XCXFG 6 q g vals
3 g cont & 3 g f & 3 g filenamef ice-9/control.scm
O 3
C h E ] LL O 6 = g filenamef ice-9/control.scm
O
C h0 w ]45 U 4 L O > XCXFG 6 o g cont
, g cont , g f , g filenamef ice-9/control.scm
O , C h o ]45 O WF g g fc
g filenamef ice-9/control.scm
N
O g nameg shift* CR h a - 1 3 L @ Y g args
g filenamef ice-9/control.scm
V W
C h0 % ] U 4 O > XCXFG E g proc
. g tag . g _ # . g args # . g filenamef ice-9/control.scm
Q
S S
S T V & T . Y . g nameg call-with-escape-continuationg
documentationf &Call PROC with an escape continuation. CRiR4"#& h( N ] C F g dummy
' g k ' g body ' ' Cfg h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/control.scm
]
" g
documentationf CBind K to an escape continuation within the lexical extent of BODY.g
macro-typeg syntax-rulesg patternsg kg bodyg ... C5R4"#& h N ]C F g dummy
g k g body Cfg h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/control.scm
h
" g
macro-typeg syntax-rulesg patternsg kg bodyg ... C5RC } g m
, g filenamef ice-9/control.scm
* 6
5 K
N
Q
[
_
C6 PK ! 1߀^\ ^\ ice-9/pretty-print.gonu [ GOOF----LE-8-2.0F\ ] 4 h ] g guile g define-module* g ice-9 g pretty-print g filenameS
f ice-9/pretty-print.scm g importsS g match
g srfi g srfi-1 g rnrs g bytevectors g exportsS g truncated-print g set-current-module g make-string g genwrite:newline-str g
string-length !f ( "g fold #f $f ) %g object->string &g display 'g write (g quote )f ' *g
quasiquote +f ` ,g unquote -f , .g unquote-splicing /f ,@ 0f 1g substring 2g min 3g
generic-write 4f 5g reverse-string-append 6g vector->list 7f # 8g symbol->string 9f . :g lambda ;g lambda* <g let* =g letrec >g define ?g define* @g
define-public Ag
define-syntax Bg
let-syntax Cg
letrec-syntax Dg with-syntax Eg if Fg set! Gg cond Hg case Ig and Jg or Kg let Lg begin Mg do Ng syntax-rules Og syntax-case Pg string-set! Qg
string-ref Rg portS SR Tg widthS UT Vg max-expr-widthS WV Xg display?S YX Zg per-line-prefixS [Z \SUWY[ ]g current-output-port ^X _g breadth-first?S `_ aSU^` bg %default-port-encoding cg
port-encoding dg catch eg encoding-error fg !%default-port-conversion-strategy gg error hg with-output-to-string ik & jf ... kg max lg floor mf expected a positive width ng length og cdr pf #( qg
vector-length rg
vector-ref sg identity tg bytevector? ug format vf #~a( wg
array-type xg array-length yg array-ref zf . {g string-prefix? |g string-suffix? }f ~a~a~a~a ~f #< f > ~ p$ !$ f " g with-output-to-portC 5hR ]4
5 4 > " G 4 i
5 R h( ]$ 4L 5$ 4 5CCC g str
" g col " g filenamef ice-9/pretty-print.scm
9 : :
: : ! : " g nameg out C!"# h( ]L $ 4L 5$ " " 6 g i
' g col ' g filenamef ice-9/pretty-print.scm
G :
:
H % :
: : ! : ' H
' C$%&' ()*+,-./ hX ]"" $ $ V4L$ 4L5$ " " 5 4LLO 5 $ 4L5$ CCC4 L $ " 5 $ 4L5$ 45CCC4 L $ " 5 $ 4L5$ 45CCC $ j & $ ( y L $
" . $ "
$ " $ " $ 4L5$ 45" " 6""| & $ ( y L $
" . $ "
$ " $ " $ 4L5$ 45" " 6""
& $ ( y L $
" . $ "
$ " $ " $ 4L5$ 45" " 6"R"N& $ ( y L $
" . $ "
$ " $ " $ 4L5$ 45" " 6"""" g obj
W g col W g w g x g col D t g col X t g str g str g w S g x S g w g head V g str V g w g head g str g w : g head B g str g w G g head g str E g filenamef ice-9/pretty-print.scm
= ? E ) : * :
. E $ 0 :
4 : 7 : ! 8 : D E D E G G X F ` : a :
e F g :
k : n : ! o : u K K " K K : :
: : ! : K K " K K : :
: : ! : ? 2 2 3 ! 4 . 3 0 5 = 3 ? 6 L 3 N 7 V A ^ : _ :
i : l : ! s : A ? 2 2 3 4 3 5 3 6 3 7 A : :
: : !
: A ? B 2 B 2 M 3 O 4 \ 3 ^ 5 k 3 m 6 z 3 | 7 A : :
: : ! : A ? 2 2 3 4 3 5 3 6 3 7 A # : $ :
. : 1 : ! 8 : G A K ? q W g nameg loop C h ]
O LLL Q 6 g obj
g col g loop
g filenamef ice-9/pretty-print.scm
<
= g nameg wr C01 hp > ]
$ b $ - $ 4L 5$ " " "4
5 $ 4L 5$ 45CCCC 6 g n
o g col o g str J l g filenamef ice-9/pretty-print.scm
O P
P Q Q R : :
# R % :
) : - : ! . : @ R
A S E S J S J S
R : S :
] : ` : ! g : o g nameg spaces C hh ]
$ ^ $ J 4L5$ 45" $ #4LL 5$
4L 5$ L
6CCCL 6C g to
h g col h g str 2 g filenamef ice-9/pretty-print.scm
V W
X X Y :
: # : ! * : 6 Y
7 :
A Y
C : ! J : N : U [ b \ f \
h g nameg indent C234 h ] MNM 4 5N M
C g str
g filenamef ice-9/pretty-print.scm
c d d e ! e e f C5 67!
h ], $ " $ 4LL5HH4 LLO > " G J
$ )4J5 $ 4L5$ 45CCC $
64 5$ 4L5$ " " $ 4L 5$ " " LL6L 6 g obj
g col g extra g pp-pair g result & g left & g str [ } g l g col g col
g filenamef ice-9/pretty-print.scm
^ _ _
_ _ _ ` a a ! a " a & a & ` + b
6 b 8 D b
P g T g
U h [ h c : d :
n : q : ! x : i i j k : :
k / :
: : ! : k : :
:
: : ! : l 0 g nameg pr C(*,.)+-/ 8! h x ] $ " !$ " $ " $ $ " " $ {L $ " .$ " $ " $ " $ 4L5$ 4 5" " L6 $ |4L 5 $
64 4
55 $ L L64L $ 4L 5$ " " 5 $ L L6C$ 4L 5$ " " L L6p g expr
g col g extra g head Z g tail Z g head g g str g head g proc a g col* G a g col g filenamef ice-9/pretty-print.scm
n ) ) ) * B ( F ( I ( / J ( ( ^ o c / g 2 g 2 r 3 t 4 3 5 3 6 3 7 q : :
: : ! : p t t u u
v v w x y y &
y
y y { ! & , : - :
1 & 3 :
7 : : : ! ; : G G O T Y & _
g : h :
l n :
r : u : ! v : C g nameg pp-expr C$9 h / ]%" $ |$ 4 ( "
4L4L55 "( 4L 5$ CCL4L4L4L4L55556C "p ' g l
g col1 g col2 g extra g pp-item g l g col g rest G g extra & G g filenamef ice-9/pretty-print.scm
# ! 4 & + 0 " 1 * ? G M
N :
R T :
X : [ : ! \ : c d i n * r / s 3 } * # g nameg pp-down C!# h P ]?" m"
" Y$ K$ @ ( "
4L 4L
5
5
" """ c" L 6$ G$ < ( "
4L 4L
5
5 " """ L 6 4L$ 4L5$ " " 5 "
"$ U$ J
4L
$ 4L5$ " " 5
"u"" H g expr
g col g extra g named? g pp-1 g pp-2 g pp-3 g rest s g col1 s g col2 s g col3
s g val1 . k g rest 3 k g extra
C k g rest w g col1 w g col2 w g col3
w g val1 g rest g extra
g rest g col1 g col2 g head g rest g col* g name
J g rest O g col** w g filenamef ice-9/pretty-print.scm
' + . .
3 3
; > ) C
J O & ] k w
)
& : :
! :
: : ! : ) . 2 :
: C G J J
O O
R \ : ] :
a & c :
g : j : ! k : w w
5 I g nameg
pp-general C! h8 ] $ 4L 5$ " " L L6 g l
1 g col 1 g extra 1 g col ! 1 g filenamef ice-9/pretty-print.scm
: :
:
: : ! : ! 1 1 g nameg pp-expr-list C h ]L LL 6 g expr
g col g extra g filenamef ice-9/pretty-print.scm
g nameg pp-LAMBDA C! hH ( ] 4L $ 4L5$ " " 5 $ L L6C g expr
C g col C g extra C g col* ) C g filenamef ice-9/pretty-print.scm
: :
& :
: : ! : ) ) 1 6 ; & A
C g nameg pp-COND C h ]L LLL 6 g expr
g col g extra g filenamef ice-9/pretty-print.scm
g nameg pp-DO C:;<=>?@ABCDEF h ]L L L 6 g expr
g col g extra g filenamef ice-9/pretty-print.scm
g nameg pp-IF CGH h ]L LL 6 g expr
g col g extra g filenamef ice-9/pretty-print.scm
g nameg pp-CASE CIJ! hH ' ] 4L $ 4L5$ " " 5 $ L L6C g expr
C g col C g extra C g col* ) C g filenamef ice-9/pretty-print.scm
: :
& :
: : ! : ) ) 1 6 ; & A
C g nameg pp-AND CK h0 ] $ " L LL 6 g expr
* g col * g extra * g rest * g named? * g filenamef ice-9/pretty-print.scm
0 ' *
* g nameg pp-LET CL h ]L L 6 g expr
g col g extra g filenamef ice-9/pretty-print.scm
g nameg pp-BEGIN CMNO h ]L LL 6 g expr
g col g extra g filenamef ice-9/pretty-print.scm
g nameg pp-SYNTAX-CASE C hX z ] $ " $ " u $ " g $ " Y $ " K $ " = $ " / $ " ! $ "
$ " $ LC $ "
$
L LO C $ LC $ LL LO C $ " $ LLLL O C $ L LLO C $
L LO C $ LC $ LC $ L LLO CCr g head
X g filenamef ice-9/pretty-print.scm
X g nameg style C h ]ZO O O O O O O O O
O O LQ LLQ LLLLLQ LLQ LL Q LLQ LQ Q LLQ
Q LL
Q
6 | g obj
g col g spaces g indent g pr g pp-expr g pp-down g
pp-general g pp-expr-list g pp-LAMBDA g pp-COND
g pp-DO g style
g filenamef ice-9/pretty-print.scm
M g nameg pp C h r ] O O O Q Q Q 45$
45" $ 44
5> " G " 4
> " G C j g obj
g display? g width g max-expr-width g per-line-prefix g output g out " g wr " g pp " g filenamef ice-9/pretty-print.scm
$
B :
L : N : ! U : ` a f r g nameg
generic-write C3R PQ h ]* $ n 45 4L 5 " 7$ +445> " G "C
45 "6 g l
} g i } g str w g len w g result $ w g j * a g k * a g filenamef ice-9/pretty-print.scm
( " 0 $ $ * / 3
4 ; $ H S
V
^
a c " l o w } } g nameg rev-string-append C h ] O Q
6 g l
g rev-string-append
g filenamef ice-9/pretty-print.scm
g nameg reverse-string-append C5R\]43 & h c ]4 L > " G C[ g s
g filenamef ice-9/pretty-print.scm
$ $ C h - / 0 3 # # $ " 45 # O # 2 # # 45O 6 g obj
y g port* y g port y g width y g max-expr-width y g display? y g per-line-prefix y g filenamef ice-9/pretty-print.scm
( / ' Z ( e ! l ! y y g portS g widthS g max-expr-widthS g display?S g per-line-prefixS g nameg pretty-printg
documentationf Pretty-print OBJ on PORT, which is a keyword argument defaulting to
the current output port. Formatting can be controlled by a number of
keyword arguments: Each line in the output is preceded by the string
PER-LINE-PREFIX, which is empty by default. The output lines will be
at most WIDTH characters wide; the default is 79. If DISPLAY? is
true, display rather than write representation will be used.
Instead of with a keyword argument, you can also specify the output
port directly after OBJ, like (pretty-print OBJ PORT). CRa]bcdefgh&i h \ ] 6T g filenamef ice-9/pretty-print.scm
E @ F
C h \ ] Y4> ZCZF T g filenamef ice-9/pretty-print.scm
B
C = D
Cj h x - 1 3 C p g key
g args g filenamef ice-9/pretty-print.scm
G
H
C &bchkl h8 ] L4LLL5L $ 4 4LLL55" LL6 g filenamef ice-9/pretty-print.scm
\ ] $ ^ $ _ ( ` 1 ! ` A " ` 8 $ ` 1 % ` - ' _ ( 0 a 1 1 a ( 3 ] 3
C h o ]%"
$ 4 > " G " $ C" iL$ M64L5Y4LLL O 5Z 4> " G 4545 "e$ >
$ " $ L 45
$ " 6"O"K
"
g g x
g width g len g ref g next g x g width g i g t ) g str n g t g filenamef ice-9/pretty-print.scm
L M
P P
Q ) S ) R
= V > V B R
H W K Z 9 T [ n Y q b c c c & c c ; c R
T T R
T $ T T . T U U ! U U 1 U M $ g nameg print-sequence Cgm&!n h r ] C j g x
g i g filenamef ice-9/pretty-print.scm
* Co$7pqrstuvwxyzhl h( ] LLL $ 4L 5" L 6 g filenamef ice-9/pretty-print.scm
p q "
r " s & s 0 s - s & # t & % q
%
C# &' h e ] L$ L 6L 6 ] g filenamef ice-9/pretty-print.scm
# 0 <
C{|}1 h K ]"
$ 6 $ L L$ :4> " G 4L 4 5> " G 6 6 $ L L$ :4
> " G 4L 4 5
> " G 6 64 5$ Q $ B44 5> " G 4L 4 5
> " G 6 6 $ L$ 4> " G " $ " $ -4> " G 4L > " dG " ]4LLO 5 4> " G 4> " G 45 "p "a 6 64 LO 5 4> " G 45$ " " ( " " "45$ {45$ h45$ V4545L$ 54 4 4545L5M5" "u"q"m"i "Q6 C g x
g width g width > g x D g width D g str g str g fixes . g filenamef ice-9/pretty-print.scm
! %
& * / 8 A B * Q ] _ c e h
l s t x
y } *
*
" # '
( , 1 > > D g G j K j P j U j Y i
Z k ^ k c k l l u l z l o o u v v v w w w % w w g
$ . { 4
6 A G G
H M ! R V
W \ ! a e f o s v { ' ~ ' # 2 # ( 7 ( { { { g nameg print C h S ] LLL 6 K g filenamef ice-9/pretty-print.scm
C h : - / 0 3
# # $ " 45 # O # # 45YH45K4 J5
O O Q Q 4
O > ZCZF 2 g x
g port* g port g width g display? g breadth-first? g ellipsis ] g ellipsis-width s g print-sequence g print
g filenamef ice-9/pretty-print.scm
)
( + / + * T ; ( ` A d A j A m J s J g portS g widthS g display?S g breadth-first?S g nameg truncated-printg
documentationf APrint @var{x}, truncating the output, if necessary, to make it fit
into @var{width} characters. By default, @var{x} will be printed using
@code{write}, though that behavior can be overriden via the
@var{display?} keyword argument.
The default behaviour is to print depth-first, meaning that the entire
remaining width will be available to each sub-expression of @var{x} --
e.g., if @var{x} is a vector, each member of @var{x}. One can attempt to
"ration" the available width, trying to allocate it equally to each
sub-expression, via the @var{breadth-first?} keyword argument. CRC g m
, g filenamef ice-9/pretty-print.scm
- " 9 "
3 $
7
;
R )
R
C6 PK ! ub ice-9/local-eval.gonu [ 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 <g t-3348ed57c594e3-6 =9:;< >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 '#<lexical-environment ~S (~S bindings)> 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 ;: <g m-3348ed57c594e3-e2 =<6 >=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
<s
?
@[
B(
B*
C6 PK ! L}0 ice-9/boot-9.gonu [ GOOF----LE-8-2.0 ] 4 h
] g current-module g error f 're-loading ice-9/boot-9.scm not allowed f prompt g gensym g make-prompt-tag g default-prompt-tag g call-with-prompt g abort-to-prompt
g with-throw-handler g memq g apply
g
make-fluid g quit g primitive-exit g integer? g format g current-error-port f guile: uncaught throw to ~a: ~a
g scm-error g wrong-type-arg f catch f &Wrong type argument in position ~a: ~a g catch f with-throw-handler f throw g throw g map g car g cdr g for-each g primitive-load-path !f
ice-9/r4rs "g newline #g display $f ;;; %g write &g last-pair 'g peek (g pk )g with-output-to-port *g current-warning-port +f ;;; WARNING ,g warn -g
*features* .g provide /g provided? 0g make-struct 1g make-struct/no-tail 2g absolute-file-name? 3g and-map 4g or-map 5g
simple-format 6g
string-length 7g string-any-c-code 8g
procedure? 9g
string-ref :g
string-any ;g string-every-c-code <g string-every =g string-fill! >g substring-fill! ?g guile @? Ag module-name Bg
hashq-set! Cg %get-pre-modules-obarray Dg module-add! Eg hashq-ref Fg
make-variable Gg module-define! Hg module-variable If badness! Jg
module-ref Kg module-generate-unique-id! Lg
module-gensym Mg resolve-module Ng syntax-violation Og
datum->syntax Pg
syntax->datum Qg
syntax-source Rg identifier? Sg generate-temporaries Tg bound-identifier=? Ug free-identifier=? Vg $sc-dispatch Wf ice-9/psyntax-pp Xg make-syntax-transformer Yg and Zg macro [g any \[ ]g
syntax-object ^g top _^ `g ribcage ag dummy ba cg
m-bde397a-a11 dc^ ed ff
l-bde397a-a16 gf h`beg i` jg x kj lf
l-bde397a-a13 ml n`kem o_hin pg hygiene qp? r]oq s[[ t[[ u[t vg if wg y xajw yd__ zf
l-bde397a-a1e {f
l-bde397a-a1f |f
l-bde397a-a20 }z{| ~`xy} _~in ]vq ]Yq ]q f -source expression failed to match any pattern g or g
m-bde397a-a24 ^ f
l-bde397a-a29 `b f
l-bde397a-a26 `k _i ]q g let __ f
l-bde397a-a31 f
l-bde397a-a32 f
l-bde397a-a33 `x _i ]q g t ]q ]vq ]q g quasisyntax g free-id g level j __ f
l-bde397a-a3f f
l-bde397a-a40 ` g expand _ f
l-bde397a-a3b ` g e _ f
l-bde397a-a3a ` _i ]q [ g _ [ s g unsyntax ]q [ g each-any [ g unsyntax-splicing ]q [ [ g append g vector g vector->list g list->vector [ g k g r f
l-bde397a-a8f f
l-bde397a-a90 ` _i ]q g
m-bde397a-a96 ^ f
l-bde397a-a97 ` _ii ]q g ... g r* g rep ___ f
l-bde397a-a7b f
l-bde397a-a7c f
l-bde397a-a7d ` f
l-bde397a-a74 f
l-bde397a-a75 ` _iii ]q g each g list [ g with-syntax g template* g replacements f
l-bde397a-acc f
l-bde397a-acd ` g template f
l-bde397a-ac7 ` _i ]q g syntax ]q
f Invalid expression g when [
[ [
g test g stmt g stmt* a g
m-bde397a-ad5 ^ ___ f
l-bde397a-ada f
l-bde397a-adb f
l-bde397a-adc f
l-bde397a-add ` f
l-bde397a-ad7 `k _i !]v q "g begin #]" q $g unless %g
m-bde397a-ae4 &%^ '&___ (f
l-bde397a-ae9 )f
l-bde397a-aea *f
l-bde397a-aeb +f
l-bde397a-aec ,()*+ -`', .& /f
l-bde397a-ae6 0/ 1`k.0 2_-i1 3]v2q 4g not 5]42q 6]"2q 7g cond 8 9g else :g
bad-clause ;: <f
l-bde397a-b21 =< >`;= ?g clause @? Af
l-bde397a-b1f BA C`@B Dg clauses E?D Ff
l-bde397a-b0e Gf
l-bde397a-b0f HFG I`EH Jg reverse-map Kg fold LJK M__ Nf
l-bde397a-af6 Of
l-bde397a-af4 PNO Q`LMP Rg
whole-expr SR Tf
l-bde397a-af3 UT V`SU W_>CIQV X]9Wq YX ZY [g tail \[ ]f
l-bde397a-b2c ^] _`\^ `g e* a` bf
l-bde397a-b27 cf
l-bde397a-b28 dbc e`ad f_i_e>CIQV g]"fq hf else must be the last clause iY jf invalid clause kg => l]kWq ml n[m[ og
t-bde397a-b36 po qg
m-bde397a-b37 rq^ sr tf
l-bde397a-b3b ut v`psu wf
l-bde397a-b35 xw y`\x zg receiver {z |f
l-bde397a-b30 }f
l-bde397a-b31 ~|} `{~ _iviiiy>CIQV
]q ]q ]vq m [ f $wrong number of receiver expressions [[m[ g call-with-values g
t-bde397a-b4c g
m-bde397a-b4d ^ f
l-bde397a-b51 ` f
l-bde397a-b4b `\ g generator g guard z f
l-bde397a-b44 f
l-bde397a-b45 f
l-bde397a-b46 ` _iiii>CIQV
]q g lambda ]q g vals ]q ]vq ] q [ g
t-bde397a-b60 g
m-bde397a-b61 ^ f
l-bde397a-b65 ` f
l-bde397a-b5f `\ f
l-bde397a-b5c ` _iiii>CIQV
]q ]q ]vq g
t-bde397a-b71 g
m-bde397a-b72 ^ f
l-bde397a-b76 ` f
l-bde397a-b70 `\ ` f
l-bde397a-b69 f
l-bde397a-b6a f
l-bde397a-b6b ` _iiii>CIQV
]vq ]"q g
t-bde397a-b12 g
m-bde397a-b13 ^ f
l-bde397a-b17 ` _iIQV ]"q g case
g rest f
l-bde397a-bd6 f
l-bde397a-bd7 ` f
l-bde397a-bd0 `; g seen ? f
l-bde397a-bcd f
l-bde397a-bce ` g key f
l-bde397a-bbd ` g expr ?D f
l-bde397a-bb5 f
l-bde397a-bb6 f
l-bde397a-bb7 ` g reverse-map-with-seed g fold2 K ___ f
l-bde397a-b81 f
l-bde397a-b7f f
l-bde397a-b7d ` f
l-bde397a-b7c `S _iii ]kq [ _ ]q f
l-bde397a-c09 f
l-bde397a-c0a
`a
_ iii
]" q g memv g system g base g message g warning g duplicate-case-datum g source-properties g array? g bad-case-datum g
t-bde397a-bf5 g
m-bde397a-bf6 ^ f
l-bde397a-bfa !` "f
l-bde397a-bf4 #" $`\# % &f
l-bde397a-be2 '& (`%' )g datums *) +f
l-bde397a-be0 ,+ -`*, .g clause-expr /. 0f
l-bde397a-bdc 10 2`/1 3_i!iii$i(-i2iii 4]v3q 5]3q 6g quote 7]63q 8_i2iii
9]98q :9 ;g
t-bde397a-bbf <; =g
m-bde397a-bc0 >=^ ?> @f
l-bde397a-bc4 A@ B`<?A C_iBiii
D]Cq Eg do F
G HFG I[H Jg letrec Kg var Lg init Mg step Ng command OaKLMN Pg
m-bde397a-c0f QP^ RQ______ Sf
l-bde397a-c14 Tf
l-bde397a-c15 Uf
l-bde397a-c16 Vf
l-bde397a-c17 Wf
l-bde397a-c18 Xf
l-bde397a-c19 Yf
l-bde397a-c1a ZSTUVWXY [`ORZ \Q ]f
l-bde397a-c11 ^] _`k\^ `_[i_ a]J`q bg loop c]b`q d]`q e]v`q f]"`q g]`q hegg i]E`q jf step k]j`q lg atom mlj n[m[ o[m[[ pg wrong-number-of-args qf Cdefine-values: wrong number of return values returned by expression rg %define-values-arity-error sg
define-values t[ ua vg define wf
l-bde397a-c3e xw y`bx z {f
l-bde397a-c39 |{ }`z| ~g orig-form ~ f
l-bde397a-c36 ` _iiiiy}i ]vq ]q ]q g case-lambda ]q ]q ]q ]rq \[ g each+ [\ [ [[ [[ [ f
l-bde397a-c7f `b g var0 g varn f
l-bde397a-c76 f
l-bde397a-c77 f
l-bde397a-c78 ` _iiiii ]"q ]vq ]q ]q ]q ]q ]q ]rq ]q g v ]q ] q g set! ]q ] q ]q K f
l-bde397a-c6a f
l-bde397a-c6b ` _i ]vq ]q ]q ]q f
l-bde397a-c5e `b f
l-bde397a-c55 f
l-bde397a-c56 f
l-bde397a-c57 ` _iiiii ]"q ]vq ]q ]q ]q ]q ]q ]rq ]q ]q ] q ]q ] q ]q f
l-bde397a-c47 f
l-bde397a-c48 ` _ii ]vq ]q ]q ]q ]q ]q ]rq g delay g make-promise g exp a g
m-bde397a-c87 ^ _ f
l-bde397a-c8c f
l-bde397a-c8d ` f
l-bde397a-c89 `k _i ]q ]q g current-source-location g s f
l-bde397a-c96
` f
l-bde397a-c91
`k _i
i
]6q g current-filename g canonicalize-path g assq-ref g filename g define-once [[[ g sym g val a g
m-bde397a-c9e ^ __ f
l-bde397a-ca3 f
l-bde397a-ca4 f
l-bde397a-ca5 ` ! "f
l-bde397a-ca0 #" $`k!# %_ i$ &]v%q ']v%q (g module-locally-bound? )](%q *]%q +* ,]6%q -f map .f Circular list: ~S /g reverse! 0f Not a list: ~S 1f List of wrong length: ~S 2g length 3g map-in-order 4f for-each 5f Unexpected tail: ~S 6g binaryS 76 8g encodingS 98 :g guess-encodingS ;: <79; =g open-file >f rb ?f r @g open-input-file A79 Bf wb Cf w Dg open-output-file E6 F8 G: HEFG Ig close-input-port Jg call-with-input-file KEF Lg close-output-port Mg call-with-output-file Ng with-input-from-port Og with-input-from-file Pg with-output-to-file Qg with-error-to-port Rg with-error-to-file Sg set-exception-printer! Tg and=> Ug frame-source Vf <unnamed port> Wf
~a:~a:~a: Xf ERROR: Yf !Throw to key `~a' with args `~s'. Zg frame-procedure [f In procedure ~a:
\g procedure-name ]f Error while printing exception. ^g force-output _g print-exception `f In procedure ~a: ag goops-error bg host-not-found cg keyword-argument-error df ~a: ~s eg
misc-error fg no-data gg no-recovery hg null-pointer-error ig out-of-range jg
program-error kg
read-error lg regular-expression-syntax mg signal ng stack-overflow og system-error pg try-again qg unbound-variable rg syntax-error sf Syntax error:
tf unknown file ug line vg 1+ wg column xf unknown location: yf ~a: zf ~a {f in subform ~s of ~s |f in form ~s }g getaddrinfo-error ~f In procedure getaddrinfo: ~a g gai-strerror g define-macro t
t g args g body Z f
l-bde397a-e12 f
l-bde397a-e13 f
l-bde397a-e14 ` f
l-bde397a-df9 `k _i ]q ]q ]q g transformer Z f
l-bde397a-e1a f
l-bde397a-e1b ` _i ]q ]q [[[ g string? g
define-syntax g doc Z f
l-bde397a-e29 f
l-bde397a-e2a f
l-bde397a-e2b ` _i ]q ]q ]wq g
macro-type ]q g defmacro ]q g
defmacro-args ]q ]q g syntax-case ]q ]q ]q ]q ]Pq ]q ]Oq ] q g body1 Z _____ f
l-bde397a-e06 f
l-bde397a-e07 f
l-bde397a-e08 f
l-bde397a-e09 f
l-bde397a-e0a ` _i ]q ]q [ Ҍ f
l-bde397a-e49 f
l-bde397a-e4a f
l-bde397a-e4b ` f
l-bde397a-e30 `k _i ]q ]q ]q f
l-bde397a-e3d f
l-bde397a-e3e f
l-bde397a-e3f f
l-bde397a-e40 f
l-bde397a-e41 ` _i ]q ]q g begin-deprecated g include-deprecated-features g form g form* f
l-bde397a-e54 f
l-bde397a-e55 ` f
l-bde397a-e51 `k _i ]"q g identity g compose g negate g const g call-with-current-continuation g call/cc g false-if-exception a g
m-bde397a-e71 ^ _ f
l-bde397a-e76 f
l-bde397a-e77 ` f
l-bde397a-e73
`k
_i
] q ] q ] q ] q ] q g warningS l [ [ g arg a ___ f
l-bde397a-e7b f
l-bde397a-e7c f
l-bde397a-e7d f
l-bde397a-e7e !` "_!i #]"q $]"q %]"q &]"q ']"q (&' )] "q *]"q +* ,]v"q -]4"q .g string-null? /]."q 0/* 1-0 2]"q 3]*"q 43 5f ;;; ~a
6]5"q 7246* 8,17 9%+8 :g string-split ;]:"q <g call-with-output-string =]<"q >g port ?]>"q @? A]_"q B]"q CA?B&' DC E]
"q FE GB Hg make-weak-key-hash-table Ig
make-mutex Jg make-procedure-with-setter Kg
lock-mutex Lg unlock-mutex Mg make-object-property Ng assoc Og symbol-pref Pg symbol-property Qg symbol-pset! Rg set-symbol-property! Sg delq! Tg symbol-property-remove! Ug number? Vg array-dimensions Wg array-shape Xg member Yg
kw-arg-ref Zg vtable-index-layout [g
struct-layout \g get-print-state ]g port-with-print-state ^g inherit-print-state _g make-vtable `g
string-append ag standard-vtable-fields bf prprpw cf #<record-type dg record-type-name ef > fg set-struct-vtable-name! gg record-type hg record-type-vtable ig record-type? jf #< kg record-type-descriptor lf mf : ng record-type-fields og make-struct-layout pf pw qg copy-tree rg vtable-offset-user sf make-~a tf Wrong number of arguments ug string->symbol vg make-record-type wg not-a-record-type xg primitive-eval yg record-constructor zg record-predicate {f %record-type-check |f !Wrong type record (want `~S'): ~S }g %record-type-error ~g
list-index g
no-such-field g record-accessor g record-modifier g record? g not-a-record g record g ->bool g symbol->string g
symbol-append g list->string g list->symbol g string g symbol f ice-9/posix g socket f ice-9/networking g posix g stat g OPEN_READ g
close-port g file-exists? g stat:type g directory f /. g file-is-directory? g list-ref g system-error-errno f ? g string-join f ~A g make-list f ~S g tm:sec g tm:min g tm:hour g tm:mday g tm:mon g tm:year g tm:wday g tm:yday g tm:isdst g tm:gmtoff g tm:zone g
set-tm:sec g
set-tm:min g set-tm:hour g set-tm:mday g
set-tm:mon g set-tm:year g set-tm:wday g set-tm:yday g set-tm:isdst g
set-tm:gmtoff g set-tm:zone g tms:clock g tms:utime g tms:stime g
tms:cutime g
tms:cstime g ftell g
file-position g SEEK_SET g seek g file-set-position g dup->fdes g close g primitive-move->fdes g set-port-revealed! g
move->fdes g
port-revealed g release-port-handle g fdopen g dup->port g dup->inport g dup->outport g port-mode g dup g duplicate-port g input-port? g fdes->ports g fdes->inport g output-port? g
fdes->outport g fileno g
port->fdes g putenv f = g setenv g unsetenv g char=? g file-name-separator? f / g file-name-separator-string g string-prefix? f g in-vicinity g program-arguments g command-line g getenv f HOME g
passwd:dir g getpwuid g getuid f .guile g primitive-load g load-user-init f start-stack g %stacks g %start-stack g start-stack g tag a g m-bde397a-11e7 ^ __ f l-bde397a-11ec f l-bde397a-11ed f l-bde397a-11ee ` f l-bde397a-11e9 `k _i ]q ]q g
load-stack g load-from-path g add-to-load-path g eval-when g elt a g m-bde397a-11f6 ^ _ f l-bde397a-11fb f l-bde397a-11fc
` f l-bde397a-11f8
`k
_
i ]q ]q g load ]q g eval ]q ]q g
%load-path ]q g cons ]q g delete ] q g %load-verbosely g assert-load-verbosity !f loading "g %load-announce #g
%load-hook $g
read-eval? %g read-hash-extend &g read 'g interaction-environment (f -#. read expansion found and read-eval? is #f. )g module-kind *f module +g number->string ,g object-address -g
%print-module .g "pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw /g module 0g obarray 1g uses 2g binder 3g eval-closure 4g name 5g kind 6g duplicates-handlers 7g import-obarray 8g observers 9g weak-observers :g version ;g
submodules <g submodule-binder =g public-interface >g next-unique-id ?0123456789:;<=> @g module-type Ag module-constructor Bg module? Cg module-obarray Dg set-module-obarray! Eg module-uses Fg set-module-uses! Gg
module-binder Hg set-module-binder! Ig module-eval-closure Jg set-module-eval-closure! Kg set-module-transformer! Lg set-module-name! Mg set-module-kind! Ng module-duplicates-handlers Og set-module-duplicates-handlers! Pg module-import-obarray Qg module-observers Rg set-module-observers! Sg module-weak-observers Tg module-version Ug set-module-version! Vg module-submodules Wg set-module-submodules! Xg module-submodule-binder Yg set-module-submodule-binder! Zg module-public-interface [g set-module-public-interface! \g module-filename ]g set-module-filename! ^g module-next-unique-id _g set-module-next-unique-id! `f Illegal size to make-module. af Incorrect use list. bf -Lazy-binder expected to be a procedure or #f. cg make-hash-table dg macroexpand eg make-module fg module-observe gg module-observe-weak hg hash-remove! ig delq1! jg module-unobserve kg module-defer-observers lg recursive mg module-defer-observers-mutex ng module-defer-observers-table og hash-set! pg module-call-observers qg module-modified rg
hash-for-each sg hash-clear! tg call-with-deferred-observers ug
module-search vg module-local-variable wg
module-bound? xg hashq-get-handle yg hash-get-handle zg module-obarray-get-handle {g hash-ref |g module-obarray-ref }g module-obarray-set! ~g
hashq-remove! g module-obarray-remove! g module-symbol-locally-interned? g module-symbol-interned? f Locally unbound variable. g module-symbol-local-binding f Unbound variable. g module-symbol-binding g variable? g make-undefined-variable g module-make-local-var! g module-ensure-local-variable! f Bad variable to module-add! f Bad symbol to module-add! g module-remove! g
module-clear! g module-for-each g hash-map->list g
module-map g module-ref-submodule g module-define-submodule! f not in submodules table f defining module f !: not overriding local definition g set-current-module g save-module-excursion f No variable named g in g module-set! g module-defined? g module-use! g reverse g module-use-interfaces! g
nested-ref f failed to resolve module g nested-set! g nested-define! g nested-remove! g nested-ref-module f can't redefine root module g nested-define-module! g local-ref g
local-set! g local-define g local-remove g local-ref-module g local-define-module g the-root-module g interface g the-scm-module f /unexpected module to resolve during module boot g define-module* g process-use-modules g module-export! g $default-duplicate-binding-procedures f mg f - g hash g most-positive-fixnum g make-modules-in g beautify-user-module! g >= g <= f Invalid sub-version reference g version-matches? g make-fresh-user-module g ensureS g try-load-module f *incompatible module version already loaded g try-module-autoload f unknown file name for module g
reload-module g purify-module! g selectS g hideS g prefixS g renamerS g versionS g symbol-prefix-proc f no code for module g custom-interface f no binding `~A' in module ~A f $no binding `~A' to hide in module ~A g resolve-interface g filenameS g pureS g
duplicatesS g importsS g exportsS g replacementsS g
re-exportsS g autoloadsS g transformerS
f #unexpected use-module specification f unexpected tail of imports list f %expected list of integers for version f 8expected exports to be a list of symbols or symbol pairs g module-replace! f =expected replacements to be a list of symbols or symbol pairs g module-re-export! f ;expected re-exports to be a list of symbols or symbol pairs g module-autoload! g lookup-duplicates-handlers f (expected transformer to be a module name g symbol? g run-hook g module-defined-hook g make-hook f missing interface for module f Failed to autoload ~a in ~a:
g autoload g make-weak-value-hash-table g make-autoload-interface f "invalid name+binding autoload list g autoloads-in-progress g autoload-done-or-in-progress? g autoload-in-progress! g set-autoloaded! g current-reader ??
g autoloads-done g delete! g autoload-done!
g define-option-interface [\ [ g options g enable g disable g option-set! a g m-bde397a-1729 ^ _____ f l-bde397a-172e f l-bde397a-172f f l-bde397a-1730 f l-bde397a-1731 f l-bde397a-1732 f l-bde397a-1733 ` !f l-bde397a-172b "! #`k " $_ i# %]"$q &]v$q ']$q (]$q )( *]v$q +g list? ,]+$q -,( .] $q /]$q 0g option 1]0$q 21 3] $q 4]4$q 5g value 6]5$q 7g
documentation 8]7$q 9468 :]#$q ;:4 <]$q =g len >]=$q ?]6$q @]$q A@4 B?A C>B DC E] $q Fg < G]F$q H] $q IG>H J] $q K:J L] $q MG>L NEMK OEIKN P<DO Q:6 R:8 S]"$q TS U/9;PKQKRT V3U1 W/2V X]$q YX Zg flags []Z$q \]$q ]g flag ^]]$q _^ `]$q a]S$q b[ cg define-syntax-rule d]c$q eg opt f]e$q g]$q hfg i]$q j]$q k]$q l]$q mjkl n]$q o]6$q pof qnpg rq sg debug-options-interface tg
debug-options ug debug-enable vg
debug-disable wg
debug-set! xg m-bde397a-173a yx^ zae {g m-bde397a-173c |{^ }|yy ~f l-bde397a-1741 f l-bde397a-1742 f l-bde397a-1743 ~ `z} | f l-bde397a-173e `k g shift yi i# ]q ]q ]q ]q _i ]tq ]q ]q ]6q g read-options-interface g read-options g read-enable g read-disable g read-set! g m-bde397a-175d ^ g m-bde397a-175f ^ f l-bde397a-1764 f l-bde397a-1765 f l-bde397a-1766 `z f l-bde397a-1761 `k i i# ]q ]q ]q ]q _i ]q ]q ]q ]6q g print-options-interface g
print-options g print-enable g
print-disable g
print-set! g m-bde397a-1780 ^ g m-bde397a-1782 ^ f l-bde397a-1787 f l-bde397a-1788 f l-bde397a-1789 `z f l-bde397a-1784 `k i i# ]q ]q ]q ]q _i ]q ]q ]q ]6q g
*unspecified* g id g m-bde397a-17a3 ^ f l-bde397a-17aa ` f l-bde397a-17a5 `k _i ]vq ]q f l-bde397a-17ad `k _i ]vq ]q g unspecified? g <applicable-struct-vtable> g pwprpr g <parameter> g make-parameter g fluid->parameter g
parameter? f parameter-fluid f Not a parameter: ~S g parameter-fluid g parameter-converter g parameterize s g p f l-bde397a-17e2 ` g param g body* 5 ____ f l-bde397a-17d7 f l-bde397a-17d8 f l-bde397a-17d9 f l-bde397a-17da ` f l-bde397a-17d4
`k _ii
] q
]v q ]4 q ] q ] q ]6 q ] q f parameterize ] q ] q ] q ] q g with-fluids ] q g
struct-ref ] q ] q ] q ! "g %current-input-port-fluid #f expected an input port $g current-input-port %g %current-output-port-fluid &f expected an output port 'g current-output-port (g %current-error-port-fluid )g %current-warning-port-fluid *g scheme +g current-language ,g *repl-stack* -g batch-mode? .g ensure-batch-mode! /g exit 0g assq 1g
gc-time-taken 2g gc-stats 3g gc-run-time 4g
abort-hook 5g before-error-hook 6g after-error-hook 7g before-backtrace-hook 8g after-backtrace-hook 9g before-read-hook :g after-read-hook ;g before-eval-hook <g after-eval-hook =g before-print-hook >g after-print-hook ?g exit-hook @g fluid-ref Ag char-ready? Bg set-port-column! Cg repl-reader Dg iota Eg while Fg break Gg continue Hg t-bde397a-1825 Ig t-bde397a-1826 JHI Kg m-bde397a-1827 LK^ MLL Nf l-bde397a-182b Of l-bde397a-182c PNO Q`JMP RE7 Sf l-bde397a-181f Tf l-bde397a-1820 Uf l-bde397a-1821 VSTU W`RV Xf l-bde397a-181c YX Z`kY [_iQWiZ \][q ]g break-tag ^]][q _][q `f break a]`[q b_a c^b dg continue-tag e]d[q ff continue g]f[q h_g ieh jci k][q l][q m][q n]j[q on p][q q][q r][q s][q tqrs u][q v] [q wv^rs xuw ytx z][q {] [q |{v^z }lz| ~u} q~ pny lo g lp ][q q ve u qz ]N[q ]6[q ]G[q f too many arguments ][q n l u q pn lo ]E[q ]4[q ][q ][q l z ]v[q g null? ][q z ][q g values ][q {z l g symbol->keyword g substring g keyword-like-symbol->keyword g
define-module g t-bde397a-188a g m-bde397a-188b ^ f l-bde397a-188e ` g imp g rex g aut ______ f l-bde397a-1878 f l-bde397a-1879 f l-bde397a-187a f l-bde397a-187b f l-bde397a-187c f l-bde397a-187d ` g parse g parse-iface g ->keyword g
keyword-like? ____ f l-bde397a-183a f l-bde397a-1838 f l-bde397a-1836 f l-bde397a-1834 ` f l-bde397a-1833 `k _ii ]q g
quasiquote ]q g t-bde397a-1890 g m-bde397a-1891 ^ f l-bde397a-1894 ` _ii ]q ]6q g t-bde397a-1896 g m-bde397a-1897 ^ f l-bde397a-189a ` _ii ]q ]6q g t-bde397a-189c g m-bde397a-189d ^ f l-bde397a-18a0 ` _ii ]q ]6q g t-bde397a-18a2 g m-bde397a-18a3 ^ f l-bde397a-18a6 ` _ii ]q ]6q g no-backtraceS l [ l
[ g t-bde397a-18de
g m-bde397a-18df
^ f l-bde397a-18e2 ` f l-bde397a-18dc ` _ii ]q ]q f keyword arg without value l [ g t-bde397a-18ec g m-bde397a-18ed ! ^ "! #f l-bde397a-18f0 $# %` "$ & 'f l-bde397a-18e8 (f l-bde397a-18e9 )'( *`&) +_i%*i ,]+q -]6+q .l /. 0g t-bde397a-18f8 10 2g m-bde397a-18f9 32^ 43 5f l-bde397a-18fc 65 7`146 8g d 98 :f l-bde397a-18f4 ;f l-bde397a-18f5 <:; =`9< >_i7=i ?]>q @]6>q Al BAt Cg t-bde397a-1904 DC Eg m-bde397a-1905 FE^ GF Hf l-bde397a-1908 IH J`DGI Kg f LK Mf l-bde397a-1900 Nf l-bde397a-1901 OMN P`LO Q_iJPi R]Qq S]6Qq Tg
use-moduleS UlT V [ WUV Xg
use-syntaxS YlX ZYV [G[ \U[ ]g exportS ^l] _^ `g
export-syntaxS al` ba cg re-exportS dlc ed fg re-export-syntaxS glf hg ig replaceS jli kj lg replace-syntaxS mll nm og autoloadS plo qpu rf unknown keyword or bad argument sl tst ug unquote vg renamer wv xf l-bde397a-1867 yf l-bde397a-1868 zxy {`wz |g out }b| ~f l-bde397a-1846 f l-bde397a-1847 f l-bde397a-1848 ~ `} f l-bde397a-1845 ` _{ii ]uq g keyword? f expected keyword arg g t-bde397a-1931 g m-bde397a-1932 ^ f l-bde397a-1935 ` g name* 4 f l-bde397a-192b f l-bde397a-192c f l-bde397a-192d ` _ii ]q ]6q G g
quoted-arg f l-bde397a-19de f l-bde397a-19df ` 4 f l-bde397a-19d5 f l-bde397a-19d6 f l-bde397a-19d7 ` _i ]q ]q ]q ]q ]q g m ]q ]q ]6q ]q ]q f no such module g use-modules g kw f l-bde397a-1a31 f l-bde397a-1a32 f l-bde397a-1a33 ` f l-bde397a-1a0b f l-bde397a-1a0c f l-bde397a-1a0d `} f l-bde397a-1a0a ` g quotify g
quotify-iface f l-bde397a-19ff f l-bde397a-19fd f l-bde397a-19fb f l-bde397a-19f9 ` f l-bde397a-19f8 `k _ii ]6q f l-bde397a-1a65 ` 4 f l-bde397a-1a5a f l-bde397a-1a5b f l-bde397a-1a5c f l-bde397a-1a5d ` | f l-bde397a-1a39 f l-bde397a-1a3a f l-bde397a-1a3b ` g specs f l-bde397a-1a38 ` _iiii ]q ]6q 4 f l-bde397a-1a49 f l-bde397a-1a4a f l-bde397a-1a4b ` _ii ]6q g quoted-args f l-bde397a-1a73 ` g spec f l-bde397a-1a6e ` _i ] q ] q ] q ] q ] q
] q ] q
g
use-syntax a g m-bde397a-1a78 ^ _ f l-bde397a-1a7d f l-bde397a-1a7e ` f l-bde397a-1a7a `k _ i ]" q ] q ] q ] q ] q !g issue-deprecation-warning "] ! q #f E`use-syntax' is deprecated. Please contact guile-devel for more info. $] # q % " $ & % '] q (g library )g sym? *g make-custom-interface + ) * ,f l-bde397a-1b4a -f l-bde397a-1b48 . , - /` +M . 0g import-spec 1 0 2f l-bde397a-1b47 3 2 4` 1 3 5_ / 4 6] ( 5q 7 6 8g srfi 9] 8 5q : 9 ; <[ ; =[ < > : = ? 7 > @ 7 = A 7 Bg only C] B 5q D C E D Fg except G] F 5q H G I H Jg prefix K] J 5q L K M L[[ Ng rename O] N 5q P O Q[ R P Q Sg resolve-r6rs-interface T4 Uf l-bde397a-1c19 Vf l-bde397a-1c1a W U V X` T W Y_ X / 4 Z] ( Yq [4: \f l-bde397a-1c0b ]f l-bde397a-1c0c ^f l-bde397a-1c0d _ \ ] ^ `` [ _ a_ ` / 4 b] ( aq cf 'duplicate binding for `~A' in module ~A df l-bde397a-1b93 ef l-bde397a-1b94 f d e g` T f h_ g / 4 i] ( hq jg colon-n k j: lf l-bde397a-1b54 mf l-bde397a-1b55 nf l-bde397a-1b56 o l m n p` k o q_ p / 4 r] 8 qq sf srfi- tg t-bde397a-1b68 u t vg m-bde397a-1b69 w v^ x w yf l-bde397a-1b6c z y {` u x z |g srfi-n } | ~f l-bde397a-1b64 ~ ` } f l-bde397a-1b5e f l-bde397a-1b5f f l-bde397a-1b60 ` k _i {i / 4 ] ( q ] 8 q g t-bde397a-1b74 g m-bde397a-1b75 ^ f l-bde397a-1b78 ` 4 f l-bde397a-1b70 f l-bde397a-1b71 ` _i i / 4 ] ( q ] 8 q g export g compute-exports f l-bde397a-1a86 ` g stx f l-bde397a-1a85 ` _ ] q g import ] q = g for g im f l-bde397a-1b0b ` g espec g ispec 4: f l-bde397a-1afe f l-bde397a-1aff f l-bde397a-1b00 f l-bde397a-1b01 f l-bde397a-1b02 f l-bde397a-1b03 ` _i i ] q j f l-bde397a-1a96 f l-bde397a-1a97 f l-bde397a-1a98 f l-bde397a-1a99 f l-bde397a-1a9a ` g replace? g
re-export? f l-bde397a-1a8e f l-bde397a-1a8c ` M g ifaces f l-bde397a-1a8a f l-bde397a-1a8b ` _i ] N q [ t[ j f l-bde397a-1b1f f l-bde397a-1b20 f l-bde397a-1b21 ` g exports g
re-exports f l-bde397a-1b19 f l-bde397a-1b1a f l-bde397a-1b1b ` _i ii ]" q ] q ] q ] q ] q ] q g re-export ] q g export! ] q g @@ ] q 4 f l-bde397a-1ae2
f l-bde397a-1ae3
f l-bde397a-1ae4
f l-bde397a-1ae5
f l-bde397a-1ae6
`
_
] (
q
]
q
]
q
g
import-set
f l-bde397a-1b32
`
g strip-for
f l-bde397a-1b2f
`
f l-bde397a-1b2e
`
_i
]
q
g library-reference
f l-bde397a-1b42
`
f l-bde397a-1b3d
!
"`
!
#_i
"
$]
#q
%]
#q
&]
#q
']
#q
(
%
&
'
)]
#q
*g iface
+]
*
#q
,] S
#q
-]6
#q
.]t
#q
/]
#q
0]
#q
1]
#q
2
1
3]
#q
4
3
+
5
0
2
4
6
/
5
7
.
6
8
7
9]v
#q
:]
#q
;
9
:
:
<
;
=g define-private
>g foo
?g bar
@a
>
?
Ag m-bde397a-1c1f
B
A^
C
B__
Df l-bde397a-1c24
Ef l-bde397a-1c25
Ff l-bde397a-1c26
G
D
E
F
H`
@
C
G
I
B
Jf l-bde397a-1c21
K
J
L`k
I
K
M_
Hi
L
N]v
Mq
Og
define-public
P[ ጤ
Qa4
Rg m-bde397a-1c2a
S
R^
T
S___
Uf l-bde397a-1c2f
Vf l-bde397a-1c30
Wf l-bde397a-1c31
Xf l-bde397a-1c32
Y
U
V
W
X
Z`
Q
T
Y
[
S
\f l-bde397a-1c2c
]
\
^`k
[
]
__
Zi
^
`]"
_q
a]v
_q
b]
_q
ca4
d
S__
ef l-bde397a-1c38
ff l-bde397a-1c39
gf l-bde397a-1c3a
h
e
f
g
i`
c
d
h
j_
ii
^
k]"
jq
l]v
jq
m]
jq
ng defmacro-public
og m-bde397a-1c3f
p
o^
q
p___
rf l-bde397a-1c44
sf l-bde397a-1c45
tf l-bde397a-1c46
uf l-bde397a-1c47
v
r
s
t
u
w`
Q
q
v
x
p
yf l-bde397a-1c41
z
y
{`k
x
z
|_
wi
{
}]"
|q
~]
|q
g
export-syntax
]
|q
k T
g formals
a
g m-bde397a-1c4e
^
__
f l-bde397a-1c53
f l-bde397a-1c54
f l-bde397a-1c55
`
f l-bde397a-1c50
`k
_
i
]
q
g set-object-property!
g replace
g module-export-all!
f re-exporting local variable:
f Undefined variable:
a4
g m-bde397a-1c95
^
_
f l-bde397a-1c9a
f l-bde397a-1c9b
`
f l-bde397a-1c97
`k
_
i
]
q
]
q
]
q
]
q
]t
q
]
q
]
q
]
q
]6
q
g m-bde397a-1ca0
^
_
f l-bde397a-1ca5
f l-bde397a-1ca6
`
f l-bde397a-1ca2
`k
_
i
]
q
]
q
]
q
]
q
]t
q
]
q
]
q
]
q
]6
q
g m-bde397a-1cab
^
_
f l-bde397a-1cb0
f l-bde397a-1cb1
`
f l-bde397a-1cad
`k
_
i
]
q
]
q
]
q
]
q
]t
q
]
q
]
q
]
q
]6
q
g m-bde397a-1cb6
^
_
f l-bde397a-1cbb
f l-bde397a-1cbc
`
f l-bde397a-1cb8
`k
_
i
]
q
g re-export-syntax
g m-bde397a-1cc1
^
_
f l-bde397a-1cc6
f l-bde397a-1cc7
`
f l-bde397a-1cc3
`k
_
i
]
q
g make-mutable-parameter
g duplicate-handlers
g check
f %~A: `~A' imported from both ~A and ~A
f /WARNING: ~A: `~A' imported from both ~A and ~A
g object-property
g warn-override-core
f <WARNING: ~A: imported module ~A overrides core binding `~A'
g first g last g merge-generics g merge-accessors f invalid duplicate handler name:
, g !default-duplicate-binding-handler g warningsS g arity-mismatch q
g %auto-compilation-options f Stat of ~a failed:
g
stat:mtime g stat:mtimensec g vm g objcode g program g make-program g load-objcode f *WARNING: failed to load compiled file ~a:
g %load-compiled-extensions g %load-compiled-path g %compile-fallback-path g system-file-name-convention g windows g %fresh-auto-compile f :;;; note: source file ~a
;;; newer than compiled ~a
g %load-should-auto-compile g %warn-auto-compilation-enabled f ;;; compiling ~a
!g compile " ! #g compile-file $g optsS %g envS &f ;;; compiled ~a
'f #WARNING: compilation of ~a failed:
(f !invalid %load-compiled-extensions )f .go *g %file-port-name-canonicalization +g relative ,g load-in-vicinity -g make-variable-transformer .g dirname /g t-bde397a-1e18 0 / 1g m-bde397a-1e19 2 1^ 3 2 4f l-bde397a-1e1c 5 4 6` 0 3 5 7 8f l-bde397a-1e16 9 8 :` 7 9 ;g dir < ; =f l-bde397a-1e10 > = ?` < > @g file A @ Bf l-bde397a-1e0c C B D` A C Eg src F E Gf l-bde397a-1e0a H G I` F H Jf l-bde397a-1e08 K J L`k K M_i 6 :ii ?i Di Iii L N] , Mq Og getcwd Pg m-bde397a-1e1f Q P^ R Q Sf l-bde397a-1e20 T S U` R T V_i U :ii ?i Di Iii L W] O Vq X W Yg t-bde397a-1e28 Z Y [g m-bde397a-1e29 \ [^ ] \ ^f l-bde397a-1e2c _ ^ `` Z ] _ af l-bde397a-1e26 b a c` b d_i ` cii ?i Di Iii L e] dq f] dq g] dq h] , dq ig m-bde397a-1e2e j i^ k j lf l-bde397a-1e2f m l n` k m o_i n cii ?i Di Iii L p] O oq q p r f sg guile-2 tg r5rs ug srfi-0 vg srfi-4 wg srfi-13 xg srfi-14 yg srfi-16 zg srfi-23 {g srfi-30 |g srfi-39 }g srfi-46 ~g srfi-55 g srfi-61 g srfi-62 g srfi-87 g srfi-105 ? s t u v w x y z { | } ~ g %cond-expand-features g %cond-expand-table g cond-expand-provide g cond-expand g condition f l-bde397a-1e49 ` g match g condition-matches? g module-has-feature? f l-bde397a-1e40 f l-bde397a-1e3e f l-bde397a-1e3c ` f l-bde397a-1e3b `k _i ]Y q ] q ]4 q [ f l-bde397a-1e63 f l-bde397a-1e64 f l-bde397a-1e65 ` g alternate D f l-bde397a-1e5f f l-bde397a-1e60 ` _ i ]" q _ ]9 q [ ? f l-bde397a-1e6d f l-bde397a-1e6e ` _i ]" q f unfulfilled cond-expand g use-srfis g require-extension f l-bde397a-1e7c `k _i ] 8 q f Not a recognized extension type g srfi- f l-bde397a-1e87 ` } g n f l-bde397a-1e82 ` _i i ] q ] 8 q g define-inlinable f % g
-procedure g proc-name f l-bde397a-1eaf f l-bde397a-1eb0 ` 4
f l-bde397a-1ea6 f l-bde397a-1ea7 f l-bde397a-1ea8 ` g make-procedure-name J f l-bde397a-1e9a f l-bde397a-1e98 ` M f l-bde397a-1e97 `k _iiii ]" q ]v q g syntax-parameterize ] q g identifier-syntax ] q g define-syntax-parameter ] q ] q ]j q ] q ] q ] q g a ] q ] q ]N q ]6 q ]t q ]R q g using-readline?
g ice-9 g
deprecated
8 v f ice-9/boot-9.scm g syntax-local-binding g
syntax-module g syntax-locally-bound-identifiers g syntax-session-id @ @ g
guile-user ! # " @ @ C 5 hP 3% ]4i5 $ 4i> " G " h - . , 3 # 6 { g stem
g filenamef ice-9/boot-9.scm
7 7 8
g nameg make-prompt-tag CR4i5 h C ] L C ; g filenamef ice-9/boot-9.scm
=
C O R h D ] L 6 < g filenamef ice-9/boot-9.scm A
C h( ] U 4O > XCXFG @ g tag
% g thunk % g handler % g args % g filenamef ice-9/boot-9.scm
@
A % g nameg call-with-prompt CRh - 1 3 W F g tag
g args g filenamef ice-9/boot-9.scm
B
C
g nameg abort-to-prompt C R
RHH h - 1 3 L& " L$ aM[ ML Y4L 5$ " 4L > " G L$ 4L > " 4L > ZCZFL @ g thrown-k
g args g running ! g filenamef ice-9/boot-9.scm
c d d d ' d ! e * f 9 - g 9 g > h Y j Z k n l m
C h ] M [ LO C g
prompt-tag
g catch-k g pre g prev g filenamef ice-9/boot-9.scm
a b g nameg custom-throw-handler CO Q 4
i5K 4
i hh - 1 3 & 0$ $45$ "
$
" "
6445 > " G 6 g k
a g args a g filenamef ice-9/boot-9.scm
K
M
L O N P P " " P & N ) P . 0 Q 4 N A N B T E T K T # T T a U a
g nameg default-exception-handler C5K h0 - 1 3 L& " L$
L @L @ g thrown-k
0 g args 0 g filenamef ice-9/boot-9.scm
\ ] ] ] ' ] ( ^ 0 _ 0
C h g - . , 3 # $ " $ " !4 > " G 45 U >M$ 4L 5" M[ O Y4> Z" XCXFG @ _ g k
g thunk g handler g pre-unwind-handler g tag U g prev x g cont g k g args g filenamef ice-9/boot-9.scm
p % # )
. 2 4 ) 6 < A $ F O S & U U
^ f g x [ g nameg catchg
documentationf oInvoke @var{thunk} in the dynamic context of @var{handler} for
exceptions matching @var{key}. If thunk throws to the symbol
@var{key}, then @var{handler} is invoked this way:
@lisp
(handler key args ...)
@end lisp
@var{key} is a symbol or @code{#t}.
@var{thunk} takes no arguments. If @var{thunk} returns
normally, that is the return value of @code{catch}.
Handler is invoked outside the scope of its own @code{catch}.
If @var{handler} again throws to the same key, a new handler
from further up the call chain is invoked.
If the key is @code{#t}, then a throw to @emph{any} symbol will
match this call to @code{catch}.
If a @var{pre-unwind-handler} is given and @var{thunk} throws
an exception that matches @var{key}, Guile calls the
@var{pre-unwind-handler} before unwinding the dynamic state and
invoking the main @var{handler}. @var{pre-unwind-handler} should
be a procedure with the same signature as @var{handler}, that
is @code{(lambda (key . args))}. It is typically used to save
the stack at the point where the exception occurred, but can also
query other parts of the dynamic state at that point, such as
fluid values.
A @var{pre-unwind-handler} can exit either normally or non-locally.
If it exits normally, Guile unwinds the stack and dynamic context
and then calls the normal (third argument) handler. If it exits
non-locally, that exit determines the continuation. CO i hX ] $ " $ " !4 > " G M 4L 5Y4> ZCZF g k
U g thunk U g pre-unwind-handler U g filenamef ice-9/boot-9.scm
#
! ) # ) . $ 3 > J U g nameg with-throw-handlerg
documentationf eAdd @var{handler} to the dynamic context as a throw handler
for key @var{k}, then invoke @var{thunk}. CO
i h0 - 1 3 $ M [ @M [ 6 g key
/ g args / g filenamef ice-9/boot-9.scm
. > " ( 8 - E / /
g nameg throwg
documentationf Invoke the catch form matching @var{key}, passing @var{args} to the
@var{handler}.
@var{key} is a symbol. It will match catches of the same symbol or of @code{#t}.
If there is no handler at all, Guile prints an error and then exits. CO i h ] ( C4L 54L 5C g l
g filenamef ice-9/boot-9.scm
# g nameg map1 Ch( ] ( C4L 54L 5C g l1
" g l2 " g filenamef ice-9/boot-9.scm
!
" g nameg map2 C h0 ] ( C4L 45?4L 455C g l1
. g rest . g filenamef ice-9/boot-9.scm
# ! " , -
. g nameg lp C hh E ) 3 O Q 6) 3 O Q 6- 1 3 O Q 6 = g f
g l g map1 g f
( @ g l1 ( @ g l2 ( @ g map2 1 @ g f
I a g l1 I a g rest I a g lp R a g filenamef ice-9/boot-9.scm
( 1 I R ( @ I a
g nameg map C R h ) 43 " %$ 4 > " G "C ") @3 " -$ $4 > " G "C "- 1 3 " ;$ 24 45> " G 45 "C " w g f
: g l : g l
2 g f
C g l1 C g l2 C g l1 G t g l2 G t g f
g l1 g rest g l1 g rest
g filenamef ice-9/boot-9.scm
* 0
2 C G J N O
T W \
g j ! r
t
# : C
g nameg for-each C R4 i!> " G "#$%& hX - 1 3 4> " G 4> " G 4 > " G 4> " G 4 5C g stuff
V g filenamef ice-9/boot-9.scm
# , > N U
V
g nameg peek C'R'i(R)*"#+& hP ] 4> " G 4> " G 4L > " G 4> " G 4L 5C g filenamef ice-9/boot-9.scm
%
7 G N
O
C h | - 1 3 45 O 6 t g stuff
g filenamef ice-9/boot-9.scm
g nameg warn C,R - h ]4 5$ C C g sym
g filenamef ice-9/boot-9.scm
g nameg provide C.R - h ]4 5$ CC y g feature
g filenamef ice-9/boot-9.scm
g nameg provided? C/R0 h - 1 3
@ g vtable
g args g filenamef ice-9/boot-9.scm
&
'
g nameg make-struct/no-tail C1R h { ]C s g file-name
g filenamef ice-9/boot-9.scm
.
g nameg absolute-file-name? C2RhP ]" :$ 2( " $ ( " C4 5 "C " g f
K g lst K g result @ g l @ g filenamef ice-9/boot-9.scm
=
> @ A
A # A
, C 1 C 3 C 6 C > C
@ >
K g nameg and-map C3R h8 ]" $$ C( C4 5 " " g f
5 g lst 5 g result * g l * g filenamef ice-9/boot-9.scm
J
K M N O O O " O * O
* K 5 g nameg or-map C4R5iR6789 h ^ - . , 3 #
# 45 " 64 5$ F$ 945$ '4 5 $ C 456""" V g char_pred
g s g start g end g t d } g filenamef ice-9/boot-9.scm
Z Z 2 4 ` 4 [ 5 [
? [ D \
H [ K ] R ]
V [ W ^ b ^ 1 d ^ d ^ r _ y _ % { _ } _ g nameg
string-any C:R6;89 h Q - . , 3 #
# 45 " 64 5$ A$ 445$ "4 5$ 456C""" I g char_pred
g s g start g end g filenamef ice-9/boot-9.scm
e e 2 4 k 4 f 5 f
? f D g
H f K h R h
V f W i
b i 4 d i
h i k j r j & t j v j
g nameg string-every C<R= h ] 6 g str
g start g end g fill g filenamef ice-9/boot-9.scm
o
p g nameg substring-fill! C>R@ h t ]C l g x
g filenamef ice-9/boot-9.scm
v
w g nameg module-name CARBC h ]45 6 g module
g sym g var g filenamef ice-9/boot-9.scm
x
y y g nameg module-add! CDRECDF h0 ] 445 5 $ C45 456 g module
/ g sym / g val / g v / g filenamef ice-9/boot-9.scm
z
{ { { { | } ~ ' ~ * / ~ / g nameg module-define! CGRHI( h0 ]
4 5 $ C4 5456 g module
+ g sym + g v + g filenamef ice-9/boot-9.scm
" - # 9 +
+ g nameg
module-ref CJR
H h } ] M N C u g m
g i g filenamef ice-9/boot-9.scm
C O KRiLR h s - 1 3 C k g args
g filenamef ice-9/boot-9.scm
g nameg resolve-module CMRNRORPRQRRRSRTRURVR4 iW> " G 4XiYZV\r h - ]C % g dummy
Cs h < ]C 4 g dummy
g x Cu h K ]C C g dummy
g x g y CN
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/boot-9.scm
P g
macro-typeg syntax-rulesg patternsg x g xg y C5YR4XiZV\ h - ]C % g dummy
Cs h < ]C 4 g dummy
g x Cu h K ] CC g dummy
g x g y CN
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/boot-9.scm
P g
macro-typeg syntax-rulesg patternsg x g xg y C5R4XiZVV h K ] C C g k
g e* g reps CN h8 ]L 4L L5 45 $ @6 g e
3 g tmp 3 g tmp 3 g filenamef ice-9/quasisyntax.scm U " U 5 U " T 3 CtV h ^ ] 45 C V g h*
g rep1 g t* g rep2 CN h@ ]4L L54L L5 45 $ @6 g h
9 g t 9 g tmp 9 g tmp " 9 g filenamef ice-9/quasisyntax.scm p ( q ( p 9 CV h < ]4 5 C 4 g e*
g reps CN h8 ]4L 44 55L5 45 $ @6 g e
7 g tmp 7 g tmp 7 g filenamef ice-9/quasisyntax.scm v v v u 7 CRU h8 ]
L
$ )4 5$ 4 5 $ C 6CC g k
5 g r 5 g t 1 g filenamef ice-9/quasisyntax.scm i
i j i k k 1 l 5 CVs h < ]L C 4 g r*
g reps
CN h8 ]4L L5 45 $ O @6 g k
3 g r 3 g tmp 3 g tmp 3 g filenamef ice-9/quasisyntax.scm m "
m 5 m " m 3 C h h ]L
C ` g e
g r g filenamef ice-9/quasisyntax.scm b CSV h 7 ] C/ g tmp-bde397a-a8c
CV h( ) ]44 ?L544 L 5L5 C ! g t
& & CN h8 ]45 45 $ L O @6 g r*
6 g rep 6 g t 6 g tmp 6 g tmp 6 g filenamef ice-9/quasisyntax.scm e 6 CN h@ ]4L
54 5 45 $ O @6 g e
; g r ; g tmp ; g tmp ; g filenamef ice-9/quasisyntax.scm c ' d ' c ; C h h ]L
C ` g e
g r g filenamef ice-9/quasisyntax.scm \ CSV h( J ]4 544L 55 C B g r*
! g rep ! g t ! ! CN h@ ]4L
54 5 45 $ O @6 g e
; g r ; g tmp ; g tmp ; g filenamef ice-9/quasisyntax.scm ] ' ^ ' ] ; C h Y ]L
C Q g e
g filenamef ice-9/quasisyntax.scm X CSV\ h ) ] L C ! g t
CN h0 ]45 45 $ O @6 g e
0 g tmp 0 g tmp 0 g filenamef ice-9/quasisyntax.scm Y Y 2 Y Y 0 C hH ]:4 5 $ L O @4 5 " 4 5 " 4 5 " |4 5 " B4 5 $
L O @4 5 $
L O @ C$ !4 O ?$
L O @""$ 4O ?$ L O @"_"[$ 4O ?$ L O @"'"#$ 4O ?$ @"" g x
A g level A g tmp A g tmp + A g tmp : g tmp I g tmp X g tmp g g tmp g filenamef ice-9/quasisyntax.scm
Q A g nameg expand CVVs h K ] C C g template*
g replacements CN h0 ]4L
5 45 $ @6 g template
, g tmp
, g tmp , g filenamef ice-9/quasisyntax.scm } /
} , CN h8 | ]O Q 4 5 $ O @ 6 t g e
4 g expand
4 g tmp 4 g filenamef ice-9/quasisyntax.scm
C 4 C5R4XiZN
h t ] 6 l g e
g filenamef ice-9/quasisyntax.scm
C5R4XiZN
h t ] 6 l g e
g filenamef ice-9/quasisyntax.scm
C5R4Xi ZV!# h d ] C \ g dummy
g test g stmt g stmt* CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg testg stmtg stmt*g ... C5 R4Xi$ZV356 h d ] C \ g dummy
g test g stmt g stmt* CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg testg stmtg stmt*g ... C5$R4Xi7Z h0 ]" ( C4 5 " " g f
0 g seed 0 g xs 0 g xs $ g seed $ g filenamef ice-9/boot-9.scm
$ $
0 g nameg fold C h x ]4L 5C p g x
g seed
g filenamef ice-9/boot-9.scm
#
C h ]L O 6 g f
g xs g filenamef ice-9/boot-9.scm
g nameg reverse-map CV8 h | ] 6t g clause-builder
g tail g filenamef ice-9/boot-9.scm
CVZgN7h h { ] ( LL CL L6s g tail
g filenamef ice-9/boot-9.scm
+ , C h 9 ]L L O C1 g e
g e* CiN7j h W ] LL 6 O g filenamef ice-9/boot-9.scm + <
CnV h( 5 ]L L C - g
t-bde397a-b36
# # CN h0 g ] 4 5 $
LL O @ 6 _ g tail
) g tmp ) g filenamef ice-9/boot-9.scm
) C h B ] O C : g test
g receiver CN7 h ]LL 6 x g test
g receiver g filenamef ice-9/boot-9.scm + & CV h8 5 ]L L L C - g
t-bde397a-b4c
1 1 CN h0 g ] 4 5 $ LLL O @ 6 _ g tail
+ g tmp + g filenamef ice-9/boot-9.scm
+ C h Z ] O C R g generator
g guard g receiver CN7 h ]LL 6 g generator
g guard g receiver g filenamef ice-9/boot-9.scm + & C\V h 5 ]L C- g
t-bde397a-b60
CN h( g ] 4 5 $ L O @ 6 _ g tail
' g tmp ' g filenamef ice-9/boot-9.scm
' C h , ] O C $ g test
C
V h 5 ]LL L C - g
t-bde397a-b71
CN h0 g ] 4 5 $ LLL O @ 6 _ g tail
+ g tmp + g filenamef ice-9/boot-9.scm
+ C h K ] O C C g test
g e g e* CN7j h ]A4 5 $
L O @4 5 $
L O @4 5 $ @4 5 $
L O @4
5 $ @4 5 $
L O @4 5 $ @4 5 $ @L 6 g clause
g tmp g tmp ) g tmp G g tmp ^ g tmp | g tmp g tmp g tmp g filenamef ice-9/boot-9.scm
+ < CV h 5 ] C- g
t-bde397a-b12
CN h@ ]4L 4LLO 55 45 $ @6 g clause
= g clauses = g tmp = g tmp & = g filenamef ice-9/boot-9.scm = CN h@ ] O Q 4 5 $ O @ 6 g
whole-expr
< g fold < g reverse-map < g tmp < g filenamef ice-9/boot-9.scm
< C57R4XiZ h0 ]" ( C4 5 " " g f
0 g seed 0 g xs 0 g xs $ g seed $ g filenamef ice-9/boot-9.scm
$ $
0 g nameg fold C h8 ] ( D4L > G " g xs
6 g a 6 g b 6 g a 6 g b 6 g filenamef ice-9/boot-9.scm
! ( 6
6 g nameg loop C h ] O Q 6 g f
g a g b g xs g loop g filenamef ice-9/boot-9.scm
g nameg fold2 C h ]4L > G D g x
g ys g seed g y g seed g filenamef ice-9/boot-9.scm
C h ]L O 6 g f
g seed g xs g filenamef ice-9/boot-9.scm
g nameg reverse-map-with-seed CV h | ] 6t g clause-builder
g tail g filenamef ice-9/boot-9.scm
CVtV h 0 ] C ( g receiver
CN h n ]LL 6 f g receiver
g filenamef ice-9/boot-9.scm ( ! C
h 9 ] C 1 g e
g e* CNjP h ]4 5$ >444 544L 555 4L54L5> " G " $ " 4 5$ >444 544L 555 4L54L5> " G " C g datum
g seen g filenamef ice-9/boot-9.scm
$ & , & & ( ) ' 4 ) 1 ! 1 " " 2 * ! 1 , ) / $ ) 6 % ) A ( P ( 0 T ( , U ( 0 Z ( > d ( & e ( g ) i ) 4 j ) m 1 t ! 1 w " 2 ! 1 ) $ ) % ) ( * & " C PV457 h 5 ]L L C - g
t-bde397a-bf5
CN h0 g ] 4 5 $
LL O @ 6 _ g tail
) g tmp ) g filenamef ice-9/boot-9.scm
- & ) C h0 ] 4L LLLO L4 55 LO D g datums
, g seen , g filenamef ice-9/boot-9.scm # , $ # , - , C:Nh h { ] ( L CL L6 s g tail
g filenamef ice-9/boot-9.scm
2 ) 3 + ( 6 0 C h E ] LLLO L D = g filenamef ice-9/boot-9.scm 2 !
C h ]45 $ 4?" R45 $ 4LLO ?" ,45 $ 4?"
4
LL5 4 5 $ L LLL O @4
5 $ L LLO @
LL6 g test
g rest g tmp s g tmp ' p g tmp J m g tmp s g tmp ~ g tmp g filenamef ice-9/boot-9.scm ^ b ( d
9 j s (
9 CNj h0 ]
4 5 $ L L O @L 6 g clause
0 g seen 0 g tmp 0 g filenamef ice-9/boot-9.scm
( ( *
9 0 0 CVD h 5 ]L C - g
t-bde397a-bbf
CN hH ]4L 4LL LO 55 45 $ O @6 g expr
E g clause E g clauses E g tmp E g tmp ) E g filenamef ice-9/boot-9.scm :
E CN h@ ]! O Q 4 5 $ O @ 6 g
whole-expr
@ g fold @ g fold2 @ g reverse-map-with-seed @ g tmp @ g filenamef ice-9/boot-9.scm
@ C5R4XiEZVIacdefh ik h T ] C L g tmp-bde397a-c25
g tmp-bde397a-c24 C
hH ]44 5 5 C g dummy
F g var F g init F g step F g test F g expr F g command F F Cnh < ]C 4 g dummy
g x Co h K ]C C g dummy
g x g y CN
hP 3 ]4 5 $ @4 5 $ @4 5 $ @ 6+ g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/boot-9.scm
= P g
macro-typeg syntax-rulesg patternsg varg initg stepg ... g ... g testg exprg ... g commandg ... f stepg x f stepg xg y C5ERpq h ] 6 g filenamef ice-9/boot-9.scm
U
V X
Y
V
g nameg %define-values-arity-error CrR4XisZVtSuV\ h - ] L C% g dummy
CN h0 ]45 45 $ O @6 g expr
0 g tmp 0 g tmp 0 g filenamef ice-9/boot-9.scm a a 4 a a 0 CN3R h | ]4 56 t g var0
g varn g expr g filenamef ice-9/boot-9.scm CSuV\ h0 7 ] L L L C / g tmp-bde397a-c85
. . C hx - ] L 4LL54LL 5 44
O L5L
5C % g dummy
w w CN h8 ]45 45 $ O @6 g var0
4 g varn 4 g expr 4 g tmp 4 g tmp 4 g filenamef ice-9/boot-9.scm 4 4 CR h i ] 6a g var
g expr g filenamef ice-9/boot-9.scm C h = ] C5 g var
g expr C3R h | ]4 56 t g var0
g varn g expr g filenamef ice-9/boot-9.scm o CSuV\ h0 7 ] L L L C / g tmp-bde397a-c64
. . C h - ] L 4LL 54LL 5 44
O L5L
5C % g dummy
z z CN h8 ]45 45 $ O @6 g var0
4 g varn 4 g expr 4 g tmp 4 g tmp 4 g filenamef ice-9/boot-9.scm q q 4 q q 4 CR h i ] 6a g var
g expr g filenamef ice-9/boot-9.scm h C h = ] C5 g var
g expr C h ])4 5 $ @4 5 " 4 5 " e4 5 " 74 5 " 6$ 4
?$ @""$ 4 ?$
@""$ 4?$ @""|$ 4?$ @"R"N g orig-form
g tmp g tmp " g tmp 1 g tmp @ g tmp O } g filenamef ice-9/boot-9.scm
] C5sR4XiZVs h > ] C6 g dummy
g exp CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg exp C5R4XiZVOQ h r ]4L 4L 55 C j g tmp
g filenamef ice-9/boot-9.scm )
CN h( d ] 4 5 $ O @ 6 \ g x
' g tmp ' g filenamef ice-9/boot-9.scm
' C5R4XiZQ h q ] 44L 556 i g filenamef ice-9/boot-9.scm
" 4
C h Y - 1 3 C Q g args
g filenamef ice-9/boot-9.scm
C h
] O 6 g x
g filenamef ice-9/boot-9.scm
g
documentationf A macro that expands to the current filename: the filename that
the (current-filename) form appears in. Expands to #f if this
information is unavailable. C5R4XiZV&')+, h( O ] C G g dummy
! g sym ! g val ! ! CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg symg val C5R-./012 hh ) 3 " |$ Y$ 6& 64 5 "4 5 "( 6 6 "r) 3 " $ $ $ [& 6& 64 5 "4 5 "h$ " 6( )( 6$ " 6 6 "- 1 3 45 " C( " A45$ "4 > " G " " " 6( 64
54 4 5? " " g f
g l g hare
g tortoise
g move?
g out
g f
g l1 g l2 g h1 g h2 g t1 g t2 g move? g out g f
c g l1 c g rest c g len g rest g l1 T g rest T g out T g filenamef ice-9/boot-9.scm
" & ( . * 4 / 2 5 8 $ : ? A D P S W \ ^ a m s y } * 0 6 & , & , # , # # ( + # - 0 @ D F & I M O U Z ] c i o s u $ x | ~ $ @
, 2 " $ * - . 7 < = ) G J T T Y ) c c
g nameg map C R i3R4.0521
h ] ) 3 " $ j4 > " G $ I& 4 > " G " 4 > " G "C( C 6 "k) "3 " " T( ( " " $ " $ C$ 6 6$ $ $ a& 6& 64 > " G "34 > " G """ "- 1 3 45 " C( " A45$ "4 > " G " " " ;$ 24 4
5> " G 4
5 "C " U g f
g l g hare
g tortoise
g hare * ~ g f
g l1 g l2 g h1 g h2 g t1 g t2 g move? g f
y g l1 y g rest y g len . g rest # g l1 2 m g rest 2 m g filenamef ice-9/boot-9.scm
*
*
/ 3 ;
< @ " B 2 D = I " O \ a f q t + | * 5 ( )
) ) * *
* - . . $ . / / . 1 1 $ 1 / 2 1
' ) & + 1 0 3 ; ? " A " & C " 1 H # K " L % Q % T % Y % d & g & j & ( m & 1 | & } 5 5 6 7 8 8 8 8 8
9 9 : : : , : 7 ; " ; : # 6 2 = 5 > 9 > : @
A @ B @ O @
Z A [ A ! k A
m = w y
g nameg for-each C R<=>?8: hP - / 0 3 # # # $ " 6 g file
J g binary J g encoding J g guess-encoding J g filenamef ice-9/boot-9.scm
J
8 O : O @ O " J O J
g binaryS g encodingS g guess-encodingS g nameg open-input-fileg
documentationf Takes a string naming an existing file and returns an input port
capable of delivering characters from the file. If the file
cannot be opened, an error is signalled. C@RA=BC8 h@ - / 0 3 # # $ " 6 g file
= g binary = g encoding = g filenamef ice-9/boot-9.scm
S
/ X 1 X 7 X " = X =
g binaryS g encodingS g nameg open-output-fileg
documentationf Takes a string naming an output file to be created and returns an
output port capable of writing characters to a new file by that
name. If the file cannot be opened, an error is signalled. If a
file with the given name already exists, the effect is unspecified. CDRH@68:I hp - / 0 3 # # # 4 5 4> G 4> " G E g file
i g proc i g binary i g encoding i g guess-encoding i g p A i g vals N i g filenamef ice-9/boot-9.scm
[
/ g A g D l Q k T n i o i
g binaryS g encodingS g guess-encodingS g nameg call-with-input-fileg
documentationf FPROC should be a procedure of one argument, and FILE should be a
string naming a file. The file must
already exist. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output. If the file cannot be opened, an error is
signalled. If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation. CJRKD68L h` - / 0 3 # # 4 5 4> G 4> " G E g file
\ g proc \ g binary \ g encoding \ g p 4 \ g vals A \ g filenamef ice-9/boot-9.scm
q
& | 4 | 7 ~ D } G \ \
g binaryS g encodingS g nameg call-with-output-fileg
documentationf bPROC should be a procedure of one argument, and FILE should be a
string naming a file. The behaviour is unspecified if the file
already exists. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output. If the file cannot be opened, an error is
signalled. If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation. CMRHJN h ] ] L 6 U g p
g filenamef ice-9/boot-9.scm
C68: hH 5 - / 0 3 # # # O 6 - g file
G g thunk G g binary G g encoding G g guess-encoding G g filenamef ice-9/boot-9.scm
G G
g binaryS g encodingS g guess-encodingS g nameg with-input-from-fileg
documentationf THUNK must be a procedure of no arguments, and FILE must be a
string naming a file. The file must already exist. The file is opened for
input, an input port connected to it is made
the default value returned by `current-input-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored. Returns the values yielded by THUNK. If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent. CORKM) h ] ] L 6 U g p
g filenamef ice-9/boot-9.scm
C68 h@ - / 0 3 # # O 6 g file
: g thunk : g binary : g encoding : g filenamef ice-9/boot-9.scm
: :
g binaryS g encodingS g nameg with-output-to-fileg
documentationf (THUNK must be a procedure of no arguments, and FILE must be a
string naming a file. The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-output-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored. Returns the values yielded by THUNK. If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent. CPRKMQ h ] ] L 6 U g p
g filenamef ice-9/boot-9.scm
C68 h@ - / 0 3 # # O 6 g file
: g thunk : g binary : g encoding : g filenamef ice-9/boot-9.scm
: :
g binaryS g encodingS g nameg with-error-to-fileg
documentationf 'THUNK must be a procedure of no arguments, and FILE must be a
string naming a file. The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-error-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored. Returns the values yielded by THUNK. If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent. CRRSRH TUVWX hX _ ]"4 5 $ 6 $ " 66 W g frame
Q g port Q g source Q g t * g filename 4 I g line 4 I g col 4 I g filenamef ice-9/boot-9.scm
' , - 2 4
@ E / I O Q
Q g nameg print-location C h ] M N C g key
g proc g filenamef ice-9/boot-9.scm
#
g nameg set-exception-printer! C O Si Y h r ] LLL 6 j g filenamef ice-9/boot-9.scm
g nameg default-printer CZ[\ h M ] L 6E g filenamef ice-9/boot-9.scm
0
C h Y - 1 3 C Q g args
g filenamef ice-9/boot-9.scm
CY h0 ]4M L5 $ LLLL6LLL6 g printer
+ g filenamef ice-9/boot-9.scm
% + +
C] h y - 1 3 L 6 q g k
g args g filenamef ice-9/boot-9.scm
C"^ h e ] O Q $ Z45 4L > " G 4 4O 5 $ " > " G " 4L > " G 4L O O > " G 4
> " G 6] g port
g frame g key g args g default-printer g proc " q g t N a g filenamef ice-9/boot-9.scm
" % 9 ? @ N f v
g nameg print-exception C O _i ` hP * ;1 3 $ 4L > " G " L$ " @- 1 3 L 6 g subr
A g msg A g args A g rest A g _
J N g filenamef ice-9/boot-9.scm
8 % ? . A J N A
J N
C h ] O @ g port
g key g args g default-printer g filenamef ice-9/boot-9.scm
g nameg scm-error-printer C 4Sia > " G 4Sib > " G 4Sicd h ] 6 g port
g key g args g default-printer g message
g faulty
g filenamef ice-9/boot-9.scm
g nameg keyword-error-printer C> " G 4Sie > " G 4Sif > " G 4Sig > " G 4Sih > " G 4Sii > " G 4Sij > " G 4Sik > " G 4Sil > " G 4Sim > " G 4Sin > " G 4Sio > " G 4Sip > " G 4Siq > " G 4Sip > " G 4Si > " G 4SirstTuvwWxyz{| h * 1 3 4L> " G $ b45 $ " 44554 5 4L
> " G " 4L > " G $ 4L > " G " 4L
> " G $ L6$
L6C- 1 3 L 6 g who
g what g where g form g subform g extra g t / B g file [ g line [ g col [ g _
g filenamef ice-9/boot-9.scm
& ' " - 2 / " / ? = C F % L 5 N % R S Y - [ [ b h ! s # )
C h ] O @ g port
g key g args g default-printer g filenamef ice-9/boot-9.scm
g nameg syntax-error-printer C> " G 4Si}~ h ] 456 g port
g key g args g default-printer g filenamef ice-9/boot-9.scm
0 > 0 g nameg getaddrinfo-error-printer C> " G 4XiZV h Q ] C I g macro
g args g body C h F ] C > g macro
g transformer CNP h( ] 4455 $ C45C g macro
" g doc " g transformer " g t " g filenamef ice-9/boot-9.scm 7 7 7 7 8 ! 8 " C
h8 W ]
CO g macro
8 g doc 8 g transformer 8 8 CP h ]456 g macro
g args
g doc
g body1
g body
g filenamef ice-9/boot-9.scm 0
0
C h u ] C m g macro
g args g doc g body1 g body C h ]!4 5 " e4 5 $ @4 5 $ @4 5 " 6$ 4
?$ @""$ 4 ?$
@""| g x
g tmp g tmp v g tmp 1 v g tmp H v g filenamef ice-9/boot-9.scm
, g
documentationf Define a defmacro. C5R4XiZV h Q ] C I g macro
g args g body CNP h ]456 g macro
g args
g doc
g body1
g body
g filenamef ice-9/boot-9.scm H
H
C h u ] C m g macro
g args g doc g body1 g body C hP ]4 5 " 4 5 $ @ 6$ 4?$ @"" g x
P g tmp P g tmp 1 g filenamef ice-9/boot-9.scm
D P g
documentationf 3Define a defmacro, with the old lispy defun syntax. C5R4.i> " G 4XiZV8 h t ]45 $ CC l g form
g form* g filenamef ice-9/boot-9.scm X X CN h( d ] 4 5 $ @ 6 \ g x
" g tmp " g filenamef ice-9/boot-9.scm
U " C5R h h ] C ` g x
g filenamef ice-9/boot-9.scm
a
g nameg identity CR h M ] LL @E g filenamef ice-9/boot-9.scm
k k '
C h b - 1 3 L 4 LO > 6< Z g args
g filenamef ice-9/boot-9.scm
j k
C h( z - 1 3 ( C4? O C r g proc
% g rest % g g % g filenamef ice-9/boot-9.scm
c
g i i %
g nameg composeg
documentationf Compose PROC with the procedures in REST, such that the last one in
REST is applied first and PROC last, and return the resulting procedure.
The given procedures must have compatible arity. CR h k - 1 3 4L ?C c g args
g filenamef ice-9/boot-9.scm
p
q q
C h ] O C g proc
g filenamef ice-9/boot-9.scm
m
g nameg negateg
documentationf WReturn a procedure with the same arity as PROC that returns the `not'
of PROC's result. CR h V - 1 3 L C N g _
g filenamef ice-9/boot-9.scm
v
C h ] O C g value
g filenamef ice-9/boot-9.scm
s
g nameg constg
documentationf JReturn a procedure that accepts any number of arguments and returns
VALUE. CR h ] $ 6C g value
g procedure g filenamef ice-9/boot-9.scm
y
{ {
g nameg and=>g
documentationf =When VALUE is #f, return #f. Otherwise, return (PROC VALUE). CTRiR4XiZVs
h ? ] C 7 g dummy
g expr C#$%()9;=@2?DFG hH f ]
C ^ g dummy
A g expr A g template A g arg A A CN h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/boot-9.scm
9 g
macro-typeg syntax-rulesg patternsg expr g exprg warningSg templateg argg ... C5RHIJK h D ] L 6< g filenamef ice-9/boot-9.scm
CL h D ] L 6< g filenamef ice-9/boot-9.scm
CE h` q ]L O L O 4L O > " G V4L > X4L O > " G CX4L O > " G Fi g obj
` g filenamef ice-9/boot-9.scm
' $ 4 ` CK h D ] L 6< g filenamef ice-9/boot-9.scm
CL h D ] L 6< g filenamef ice-9/boot-9.scm
CB hh ]L O L O 4L O > " G V4L > X4L O > " G CX4L O > " G F z g obj
b g val b g filenamef ice-9/boot-9.scm
' ( 6 b C h( ]45 45 O O 6 g prop
& g lock & g filenamef ice-9/boot-9.scm
& &
g nameg make-object-property CMRNO h ]
44 55 $ CC g sym
g prop g pair g filenamef ice-9/boot-9.scm
g nameg symbol-property CPRNOQ h8 ] 44 55 $ C 4 56 g sym
2 g prop 2 g val 2 g pair 2 g filenamef ice-9/boot-9.scm
( ) * 0 2 2 g nameg set-symbol-property! CRRNOQS h0 ]
44 55 $ 44 556C g sym
. g prop . g pair . g filenamef ice-9/boot-9.scm
" & * , . g nameg symbol-property-remove! CTR U h z ]4 5$
C Cr g ind
g filenamef ice-9/boot-9.scm
/ ' CV h } ]4 56 u g a
g filenamef ice-9/boot-9.scm
g nameg array-shape CWRX h( ]
4 5 $ $ CCC g args
$ g kw $ g rem $ g filenamef ice-9/boot-9.scm
$ g nameg
kw-arg-ref CYRZ h ] C w g s
g filenamef ice-9/boot-9.scm
g nameg
struct-layout C[R\] h ]4 5$
4 56C g old-port
g new-port g filenamef ice-9/boot-9.scm
& g nameg inherit-print-state C^R4_i4`iaib5#cde h8 ]4> " G 44 5> " G 6 g s
7 g p 7 g filenamef ice-9/boot-9.scm
# # ' 3 # 7
7 C5 4fi g> " G hRh h ] $ CC g obj
g filenamef ice-9/boot-9.scm
- g nameg record-type? CiR#jdklmne h ]4> " G 444 55> " G " l( " w4> " G 4> " G 4> " G 4 > " G "44 55
"6 g s
g p g fields 8 g off 8 g filenamef ice-9/boot-9.scm
, - -
- . .
. % .
, . 8 / > 1 C 3 G 3 N 3 W 4 \ 4 c 4 l 5 p 5 w 5 6 6 6 7 7 7 / / / + / / 8
8 " g nameg default-record-printer Cho` p h ] ]C U g f
g filenamef ice-9/boot-9.scm
= ' = 3 Cqr2h D ] L C< g filenamef ice-9/boot-9.scm
B
C h T ]L C L g a
g filenamef ice-9/boot-9.scm
B
C h c ]L C [ g a
g b g filenamef ice-9/boot-9.scm
B C h r ]L C j g a
g b g c g filenamef ice-9/boot-9.scm
B C h ]L Cy g a
g b g c g d g filenamef ice-9/boot-9.scm
B C h ]L C g a
g b g c g d g e g filenamef ice-9/boot-9.scm
B C h ]L C g a
g b g c g d g e g f g filenamef ice-9/boot-9.scm
B C h ]L C g a
g b g c g d g e g f g g g filenamef ice-9/boot-9.scm
B Ch , 3 L C g a
g b g c g d g e g f g g g h g filenamef ice-9/boot-9.scm
B C h , 3 L
C g a
g b g c g d g e g f g g g h g i g filenamef ice-9/boot-9.scm
B C h ,
3
L C g a
g b g c g d g e g f g g g h g i g j
g filenamef ice-9/boot-9.scm
B
C h( , 3 L
C g a
" g b " g c " g d " g e " g f " g g " g h " g i " g j " g k
" g filenamef ice-9/boot-9.scm
B " C h( , 3 L
C g a
$ g b $ g c $ g d $ g e $ g f $ g g $ g h $ g i $ g j $ g k
$ g l $ g filenamef ice-9/boot-9.scm
B $ C h( ,
3
L
C g a
& g b & g c & g d & g e & g f & g g & g h & g i & g j & g k
& g l & g m &
g filenamef ice-9/boot-9.scm
B &
C h( , 3 L
C g a
( g b ( g c ( g d ( g e ( g f ( g g ( g h ( g i ( g j ( g k
( g l ( g m ( g n
( g filenamef ice-9/boot-9.scm
B ( C h0 & , 3 L
C g a
* g b * g c * g d * g e * g f * g g * g h * g i * g j * g k
* g l * g m * g n
* g o * g filenamef ice-9/boot-9.scm
B * Ch0 5 , 3 L
C - g a
, g b , g c , g d , g e , g f , g g , g h , g i , g j , g k
, g l , g m , g n
, g o , g p , g filenamef ice-9/boot-9.scm
B , C h0 D , 3 L
C < g a
. g b . g c . g d . g e . g f . g g . g h . g i . g j . g k
. g l . g m . g n
. g o . g p . g q . g filenamef ice-9/boot-9.scm
B . C h0 S , 3 L
CK g a
0 g b 0 g c 0 g d 0 g e 0 g f 0 g g 0 g h 0 g i 0 g j 0 g k
0 g l 0 g m 0 g n
0 g o 0 g p 0 g q 0 g r 0 g filenamef ice-9/boot-9.scm
B 0 C h8 b , 3 L
C Z g a
2 g b 2 g c 2 g d 2 g e 2 g f 2 g g 2 g h 2 g i 2 g j 2 g k
2 g l 2 g m 2 g n
2 g o 2 g p 2 g q 2 g r 2 g s 2 g filenamef ice-9/boot-9.scm
B 2 C20pst h8 Y - 1 3 4 5L$ L
@4L 56 Q g args
4 g filenamef ice-9/boot-9.scm
B 4
Cfu ! h( - . , 3 # 4445?5$ " 45 4 5
$
O " $ O " s $ O " _ $
O " K $ O " 7 $ O " # $ O " $ O " $ O " $ O "
$ O " $ O " $ O "
$ O " $ O " o $ O " [ $ O " G $ O " 3 $ O " $ O " O 4 $ " 4 5> " G C g type-name
! g fields ! g printer ! g default-record-printer ! g rtd H ! g n X g filenamef ice-9/boot-9.scm
; < " = " , < . ; 4 > ? @ H :
H : Q A R B ' X B A E E % E ! G % E ! g nameg make-record-type CvRirw h ]4 5$ C 6 g obj
g filenamef ice-9/boot-9.scm
J
K
K L M
M g nameg record-type-name CdRirw h ]4 5$ C 6 g obj
g filenamef ice-9/boot-9.scm
O
P
P Q Q R
R g nameg record-type-fields CnRx06 h f ]4 L 5$ CC ^ g f
g filenamef ice-9/boot-9.scm
Y & Z , Z ( Cnr hP - . , 3 # $ +
4O 4 55 6 C g rtd
O g field-names O g filenamef ice-9/boot-9.scm
T
U X , Y ! 6 ] & > Y ! ? X F W M V N V O g nameg record-constructor CyR h z ] $ L CC r g obj
g filenamef ice-9/boot-9.scm
` ` ` ` , ` # C h r ] O C j g rtd
g filenamef ice-9/boot-9.scm
_
g nameg record-predicate CzRk{|d h0 ]
45 $ C4 5 6 g rtd
. g obj . g t . g filenamef ice-9/boot-9.scm
b
c c c d d ! e f + f . d . g nameg %record-type-error C}R~n} h z ] L& L CL 6 r g obj
g filenamef ice-9/boot-9.scm
m n n o
p
C h@ ]
44 55 $ " 4> " G O C g rtd
: g
field-name : g pos : g filenamef ice-9/boot-9.scm
i
j
j j
j k l ! l ( l
: g nameg record-accessor CR~n} h ] L& L CL 6 g obj
g val g filenamef ice-9/boot-9.scm
v w w x
y
C h@ ]
44 55 $ " 4> " G O C g rtd
: g
field-name : g pos : g filenamef ice-9/boot-9.scm
r
s
s s
s t u ! u ( u
: g nameg record-modifier CRi h ] $ 6C g obj
g filenamef ice-9/boot-9.scm
{
| | | # | g nameg record? CR h ] $ C 6 g obj
g filenamef ice-9/boot-9.scm
~
g nameg record-type-descriptor CkR4.i> " G h x ] C p g x
g filenamef ice-9/boot-9.scm
g nameg ->bool CRu` h - 1 3 44 5?6 g args
g filenamef ice-9/boot-9.scm
'
g nameg
symbol-append CRu h - 1 3 4 ?6 { g args
g filenamef ice-9/boot-9.scm
g nameg list->symbol CRu h } - 1 3 4 ?6 u g args
g filenamef ice-9/boot-9.scm
g nameg symbol CR h8 ]" "( C& C "
" g l
3 g k 3 g n ( g l ( g filenamef ice-9/boot-9.scm
(
(
3 g nameg
list-index C~R4 i> " G 4/i5$ 4 i> " G " 4/i5$ h h ]4 56 ` g str
g filenamef ice-9/boot-9.scm
C" o= h M ] L 6 E g filenamef ice-9/boot-9.scm
)
4
C h Y - 1 3 C Q g args
g filenamef ice-9/boot-9.scm
C h0 ] 4 O 5 $ 4> " G CC g str
0 g port 0 g filenamef ice-9/boot-9.scm
0 CR4/i5$ h ]44 55C { g str
g filenamef ice-9/boot-9.scm
$ C" o=` h h ] 4L 56 ` g filenamef ice-9/boot-9.scm
1 D
1 &
C h Y - 1 3 C Q g args
g filenamef ice-9/boot-9.scm
C h0 ] 4 O 5 $ 4> " G CC g str
0 g port 0 g filenamef ice-9/boot-9.scm
0 CRo h ] & 4 5CC g args
g filenamef ice-9/boot-9.scm
g nameg system-error-errno CRe2 hH ( ) 3 6- 1 3 444555 6 g message
D g args D g msg 3 D g filenamef ice-9/boot-9.scm
" # # ( & 3 . A 0 ( 1 3 3 9 A % D
D
g nameg error CR h q ]
C i g obj
g filenamef ice-9/boot-9.scm
g nameg tm:sec CR h q ] C i g obj
g filenamef ice-9/boot-9.scm
g nameg tm:min CR h r ] Cj g obj
g filenamef ice-9/boot-9.scm
g nameg tm:hour CRh r ] Cj g obj
g filenamef ice-9/boot-9.scm
g nameg tm:mday CRh q ] Ci g obj
g filenamef ice-9/boot-9.scm
g nameg tm:mon CR h r ] Cj g obj
g filenamef ice-9/boot-9.scm
g nameg tm:year CRh r ] Cj g obj
g filenamef ice-9/boot-9.scm
g nameg tm:wday CRh r ] Cj g obj
g filenamef ice-9/boot-9.scm
g nameg tm:yday CRh s ] Ck g obj
g filenamef ice-9/boot-9.scm
g nameg tm:isdst CR h t ] Cl g obj
g filenamef ice-9/boot-9.scm
g nameg tm:gmtoff CR h r ]
Cj g obj
g filenamef ice-9/boot-9.scm
g nameg tm:zone CRh ]
C ~ g obj
g val
g filenamef ice-9/boot-9.scm
g nameg
set-tm:sec CR h ] C ~ g obj
g val
g filenamef ice-9/boot-9.scm
g nameg
set-tm:min CR h ] C g obj
g val g filenamef ice-9/boot-9.scm
g nameg set-tm:hour CR h ] C g obj
g val g filenamef ice-9/boot-9.scm
g nameg set-tm:mday CR h ] C ~ g obj
g val g filenamef ice-9/boot-9.scm
g nameg
set-tm:mon CR h ] C g obj
g val g filenamef ice-9/boot-9.scm
g nameg set-tm:year CR h ] C g obj
g val g filenamef ice-9/boot-9.scm
g nameg set-tm:wday CR h ] C g obj
g val g filenamef ice-9/boot-9.scm
g nameg set-tm:yday CR h ] C g obj
g val g filenamef ice-9/boot-9.scm
g nameg set-tm:isdst CR h ] C g obj
g val g filenamef ice-9/boot-9.scm
g nameg
set-tm:gmtoff CR h ]
C g obj
g val g filenamef ice-9/boot-9.scm
g nameg set-tm:zone CR h t ]
C l g obj
g filenamef ice-9/boot-9.scm
g nameg tms:clock CR h t ] C l g obj
g filenamef ice-9/boot-9.scm
g nameg tms:utime CR h t ] Cl g obj
g filenamef ice-9/boot-9.scm
g nameg tms:stime CR h u ] Cm g obj
g filenamef ice-9/boot-9.scm
g nameg
tms:cutime CR h u ] Cm g obj
g filenamef ice-9/boot-9.scm
g nameg
tms:cstime CRiR h - . , 3 # 6 g port
g offset g whence g filenamef ice-9/boot-9.scm
g nameg file-set-position CR h` ]4 5$ )4 > " G 4 > " G C4 > " G 4 > " G C g fd/port
` g fd ` g filenamef ice-9/boot-9.scm
" 7 K ` g nameg
move->fdes CR h ] 4 5
$ 6C g port
g revealed g filenamef ice-9/boot-9.scm
! g nameg release-port-handle CR h@ ) 3 4 56] 44 55 4 > " G C g port/fd
g mode g port/fd
@ g mode @ g new-fd @ g port ( @ g filenamef ice-9/boot-9.scm
( ( +
@ g nameg dup->port CR? h ) 3 6] 6 g port/fd
g port/fd
g new-fd g filenamef ice-9/boot-9.scm
" " g nameg dup->inport CRC h ) 3 6] 6 g port/fd
g port/fd
g new-fd g filenamef ice-9/boot-9.scm
% ' ' % ) ) g nameg dup->outport CR hP ) !3 4 5$ 6 4 56]4 5$ 6 4 56 g port/fd
' g port/fd
) K g new-fd ) K g filenamef ice-9/boot-9.scm
,
. . / 0 ' 0 ) , * 2 4 2 < 3 A 4 K 4
' ) K g nameg dup CR h ] 6 g port
g modes
g filenamef ice-9/boot-9.scm
6
7
g nameg duplicate-port CR? hp r ]" \( !4 5 4 > " G C45$ 445> " G C "4 5 " j g fdes
o g
rest-ports b g result - g filenamef ice-9/boot-9.scm
9
: ;
< < & < < =
. ? 3 ? 5 ? 9 ; : @ ? @ @ A " E A 1 G A " H A M @ X B \ D b D b : c : o : o g nameg fdes->inport CRC hp s ]" \( !4 5 4 > " G C45$ 445> " G C "4 5 " k g fdes
o g
rest-ports b g result - g filenamef ice-9/boot-9.scm
F
G H
I I & I I J
. L 3 L 5 L 9 H : M ? M @ N " E N 1 G N " H N M M X O \ Q b Q b G c G o G o g nameg
fdes->outport CR h( ]4 4 5> " G 6 g port
" g filenamef ice-9/boot-9.scm
S
T T T T " U " g nameg
port->fdes CR` h ]$ 4 56 6 g name
g value g filenamef ice-9/boot-9.scm
W
X Y Y " Y Y Z g nameg setenv CR h ] 6 g name
g filenamef ice-9/boot-9.scm
\
^ g nameg unsetenvg
documentationf /Remove the entry for NAME from the environment. CR h ~ ] /6 v g c
g filenamef ice-9/boot-9.scm
x
y
g nameg file-name-separator? CRR h ] 6 g file-name
g filenamef ice-9/boot-9.scm
} ~
~
g nameg absolute-file-name? C2R69` hP % ]
4 5
$ "
4 5 $ 45" $ " 6 g vicinity
M g file M g len % g tail % M g filenamef ice-9/boot-9.scm
) " % 1 2 & = A C M M g nameg in-vicinity CR h e ] 6 ] g filenamef ice-9/boot-9.scm
g nameg command-line CR h h ] 445 56` g filenamef ice-9/boot-9.scm
3 = 3 '
C h Y - 1 3 C Q g args
g filenamef ice-9/boot-9.scm
C hX ! ]45 $ " 45 $ " 4 5 4 5$
6C g t
7 g t
! 4 g home
7 W g init-file B W g filenamef ice-9/boot-9.scm
! 7 : @ & B B E O U W
g nameg load-user-init CR h0 y ]L L[ $ " Y4L> ZCZF q g t
g filenamef ice-9/boot-9.scm % = " -
C h M ] LL @E g filenamef ice-9/boot-9.scm
$
C h@ ]45 U 4 O > XCXFG O 6 g tag
= g thunk = g
prompt-tag = g k ' = g args ' = g filenamef ice-9/boot-9.scm
% = = g nameg %start-stack CR4XiZV h O ] C G g dummy
g tag g exp CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg tagg exp C5R h M ] L 6E g filenamef ice-9/boot-9.scm
C h ] O 6 { g name
g filenamef ice-9/boot-9.scm
g nameg load-from-path CR4Xi ZVs h > ] C6 g dummy
g elt CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
documentationf >Add ELT to Guile's load path, at compile-time and at run-time.g
macro-typeg syntax-rulesg patternsg elt C5 R R h ~ ] Cv g v
g filenamef ice-9/boot-9.scm
" g nameg assert-load-verbosity C R )*#$!"^ hP ] 4> " G 4> " G 4L > " G 4> " G 6 g filenamef ice-9/boot-9.scm
'
9
L
L
C h ]$ 45 O 6C g file
g filenamef ice-9/boot-9.scm
g nameg %load-announce C"R"i#i 4
i5$R4%i.$&'( h ][$ 4545 66 g c
g port g filenamef ice-9/boot-9.scm
* C> " G #j)*lA+,e
h r ]
4> " G 44 5 $ " > " G 4> " G 44 5> " G 4> " G 444 5 5> " G 6 j g mod
g port g t 3 g filenamef ice-9/boot-9.scm
]
^ ^ ^ _ _ _ 0 _ ! : _ C ` G ` N ` W a Z a g a p b t b { b c c c c c d d g nameg
%print-module C-Rhi.- h q ] 6 i g obj
g port
g filenamef ice-9/boot-9.scm
C/? @R4fi@i/> " G @i h0 , 3 L
C g obarray
. g uses . g binder . g eval-closure . g transformer . g name . g kind . g duplicates-handlers . g import-obarray . g observers . g weak-observers
. g version . g
submodules . g submodule-binder
. g public-interface . g filename . g next-unique-id . g filenamef ice-9/boot-9.scm
. C O AR@iri Ai@ h j ] $ CC b g obj
g filenamef ice-9/boot-9.scm
g nameg module? CBR@i } h Y ] L &
CL 6Q g module
g filenamef ice-9/boot-9.scm
C O CR@i } h j ] L &
CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O DR@i } h Y ] L & CL 6Q g module
g filenamef ice-9/boot-9.scm
C O ER@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O FR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O GR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O HR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O IR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O JR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O KR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O LR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O )R@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O MR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O NR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O OR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O PR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O QR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O RR@i } h Y ] L &
CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O SR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O TR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O UR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O VR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O WR@i } h Y ] L &
CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O XR@i } h j ] L &
CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O YR@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O ZR@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O [R@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O \R@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O ]R@i } h Y ] L & CL 6 Q g module
g filenamef ice-9/boot-9.scm
C O ^R@i } h j ] L & CL 6 b g module
g val g filenamef ice-9/boot-9.scm
C O _R`a3B8bAcdH
h - . , 3 # # # 4 5$ " 4 > " G " 4> " +G " $$ 45$ " "" "$ '45$ " 4> " G " 4
5 4
X54 54
5
6 g size
g uses g binder g filenamef ice-9/boot-9.scm
1 ) 3 8 <
C P T
[ g j n o {
g nameg make-module CeRRQ h( ]4 4 5> " G C g module
$ g proc $ g filenamef ice-9/boot-9.scm
+ # $ g nameg module-observe CfRBS h( - . , 3 # 4 56 g module
% g observer-id % g proc % g filenamef ice-9/boot-9.scm
! % ! % g nameg module-observe-weak CgRhSRiQ h` ] 45$ 445> " G " 44455> " G C g token
\ g module Z g id Z g filenamef ice-9/boot-9.scm
#
$ % $
& & ' ' ( ' 5 ( : ( & ? ( 1 G ( & L ( \ g nameg module-unobserve CjRkR4Iil5mR4ci5 nRkonp h ]$ 6 6 g m
g filenamef ice-9/boot-9.scm
/
0 1 2 g nameg module-modified CqRKmk h V ] 4> " G C N g filenamef ice-9/boot-9.scm
9 : ;
Ckrp h p ] 6h g m
g dummy g filenamef ice-9/boot-9.scm
? @ CnsLm h8 h ] 4> " G 4> " G 6 ` g filenamef ice-9/boot-9.scm
= > ? B 1 C 1
CKmk h V ] 4> " G C N g filenamef ice-9/boot-9.scm
9 : ;
Ckrp h p ] 6h g m
g dummy g filenamef ice-9/boot-9.scm
? @ CnsLm h8 h ] 4> " G 4> " G 6 ` g filenamef ice-9/boot-9.scm
= > ? B 1 C 1
Ckrp h p ] 6h g m
g dummy g filenamef ice-9/boot-9.scm
? @ CnsLm h8 h ] 4> " G 4> " G 6 ` g filenamef ice-9/boot-9.scm
= > ? B 1 C 1
C hH ]4> " G V4 > X4> " G CX4> " G F g thunk
C g filenamef ice-9/boot-9.scm
7
8 C g nameg call-with-deferred-observers CtR h ` ] L 6X g proc
g filenamef ice-9/boot-9.scm
F F CQrh p ]L 6h g id
g proc g filenamef ice-9/boot-9.scm
K K # CS h8 ]4 O 4 5> " G O 4 56 g m
2 g filenamef ice-9/boot-9.scm
E
F
F % F * K - 2 K 2 g nameg module-call-observers CpRuE hP 0 ]" )$ 4 5 $ C "C4 5 $ C45 "( g fn
P g m P g v P g pos / g t - g t 8 P g filenamef ice-9/boot-9.scm
f
g h
h i
i i
i ' j - j
0 k 8 k D l P l P g nameg
module-search CuRv h ]
4 5 $ CC g m
g v g var g filenamef ice-9/boot-9.scm
y
z
z { | g nameg module-locally-bound? C(RH h ]
4 5 $ CC g m
g v g var g filenamef ice-9/boot-9.scm
g nameg
module-bound? CwRxy h ]$ " 6 g ob
g key g filenamef ice-9/boot-9.scm
g nameg module-obarray-get-handle CzRE{ h ]$ " 6 g ob
g key g filenamef ice-9/boot-9.scm
g nameg module-obarray-ref C|RBo h ]$ " 6 g ob
g key g val g filenamef ice-9/boot-9.scm
g nameg module-obarray-set! C}R~h h ]$ " 6 g ob
g key g filenamef ice-9/boot-9.scm
g nameg module-obarray-remove! CRzC h ]44 55C g m
g v g filenamef ice-9/boot-9.scm
' g nameg module-symbol-locally-interned? CRu h ] 6 g m
g v g filenamef ice-9/boot-9.scm
g nameg module-symbol-interned? CRv hH
- 1 3 4 5 " ( 6C$ $ C"" g m
C g v C g opt-val C g var C g filenamef ice-9/boot-9.scm
" & ) * 3 7 : C
g nameg module-symbol-local-binding CRH hH - 1 3 4 5 " ( 6C$ $ C"" g m
C g v C g opt-val C g var C g filenamef ice-9/boot-9.scm
" & ) * 3 7 : C
g nameg module-symbol-binding CR|CqD hh ]
44 55 45$ 4 > " G " $ C45 4 > " G C g m
d g v d g b 9 g t 9 d g local-var I d g filenamef ice-9/boot-9.scm
#
9 E I L
d g nameg module-make-local-var! CRvD h8 ]
4 5 $ C45 4 > " G C g module
6 g symbol 6 g t 6 g var 6 g filenamef ice-9/boot-9.scm
6 g nameg module-ensure-local-variable! CR}Cq hh ]45$ " 4> " G $ " 4> " G 44 5> " G 6 g m
e g v e g var e g filenamef ice-9/boot-9.scm
( , 1 5
< E ! H ! W ! e " e g nameg module-add! CDRCq h( ]44 5> " G 6 g m
! g v ! g filenamef ice-9/boot-9.scm
(
) ) ) ! * ! g nameg module-remove! CRsCq h ]44 5> " G 6 g m
g filenamef ice-9/boot-9.scm
,
- - - . g nameg
module-clear! CRrC h ] 456 g proc
g module g filenamef ice-9/boot-9.scm
4
5 5 g nameg module-for-each CRC h ] 456 g proc
g module g filenamef ice-9/boot-9.scm
7
8 8 g nameg
module-map CREVX h8 ]
44 55 $ C4 5$
4 5 6C g module
5 g name 5 g t 5 g filenamef ice-9/boot-9.scm
@
A A A A B & B ' C 3 C
5 g nameg module-ref-submodule CRBV h ]4 56 g module
g name g submodule g filenamef ice-9/boot-9.scm
E
F F g nameg module-define-submodule! CREVXvB,* h ]
44 55 $ C4 5$ 44 5 5" $ C4 5 $ 1$ (45$ 4 > " G CCCC g module
g name g t g t 9 g var M g filenamef ice-9/boot-9.scm
P Q Q Q Q R & R ' S ( S
4 S 9 Q E T M T U U X U \ U ] U ( b U 1 d U ( h U i W m W q W & v W X g nameg module-ref-submodule CRvB,GBV h o ]4 5 $ W $ " 45 $ 4 > " G " 4 > " G " 4 > " G 4 56 g g module
g name g submodule g var g t 0 g filenamef ice-9/boot-9.scm
Z [ [ \ ] ] ] % ^ * ^ , ^ - ^ 4 \ 5 _ 9 _ = _ ( D _ Q ` a a g nameg module-define-submodule! CR h h ] 45 N4M > " G N C` g filenamef ice-9/boot-9.scm
k l ' l
m n
C h h ] 45 N4M > " G N C` g filenamef ice-9/boot-9.scm
p q ' q
r s
C h h ] 45 N4M > " G N C` g filenamef ice-9/boot-9.scm
k l ' l
m n
C h h ] 45 N4M > " G N C` g filenamef ice-9/boot-9.scm
p q ' q
r s
C h h ] 45 N4M > " G N C` g filenamef ice-9/boot-9.scm
p q ' q
r s
C hp ]45 HHO O 4O > " G V4 > X4O > " G CX4O > " G F g thunk
p g inner-module p g outer-module p g filenamef ice-9/boot-9.scm
h
i i k p g nameg save-module-excursion CRH hH - 1 3 4 5 " ( 6C$ $ C"" g module
G g name G g rest G g variable G g filenamef ice-9/boot-9.scm
~
" & , * - . 7 ; >
G
g nameg
module-ref CJRH h( ] 4 5 $ C 6 g module
& g name & g value & g variable & g filenamef ice-9/boot-9.scm
" ( & & g nameg module-set! CRvqFD h8 ]4 5 $ 645 6 g module
1 g name 1 g value 1 g variable 1 g variable % 1 g filenamef ice-9/boot-9.scm
% 1
1 g nameg module-define! CGRH h ]
4 5 $ CC g module
g name g variable g filenamef ice-9/boot-9.scm
g nameg module-defined? CR EFsPq hh ] & " 44 55$ C4 44 5 5> " G 44 5> " G 6 g module
c g interface c g filenamef ice-9/boot-9.scm
! $ ) ! , ) 7 ) 9 ! > G J U c c g nameg module-use! CRE FsPq h ]*4 5 " U( 45" O 45 $ " 45 $ " " " 4 45> " G 44 5> " G 6 g module
g
interfaces g cur g in d g out d g iface & \ g t 1 J g new o g filenamef ice-9/boot-9.scm
# & % & ) " 1 ? 3 N Y d d g , o o r w g nameg module-use-interfaces! CRJ hX D ]"( C" 4( 645 $ "C " < g root
U g names U g cur C g head C g tail C g cur ' C g filenamef ice-9/boot-9.scm
'
/
4
7
( A
C H K U U g nameg
nested-ref CR hX _ ]#" ;(
645 $ "6 " W g root
S g names S g val S g cur A g head A g tail A g cur A g filenamef ice-9/boot-9.scm
'
,
/
# 9
=
A
A
F
I
S
S g nameg nested-set! CRG hX b ]#" ;(
645 $ "6 " Z g root
S g names S g val S g cur A g head A g tail A g cur A g filenamef ice-9/boot-9.scm
'
,
/
# 9
=
A
A
F
I
S
S g nameg nested-define! CR hX Q ]"" 9( 645 $ "6 " I g root
Q g names Q g cur ? g head ? g tail ? g cur ? g filenamef ice-9/boot-9.scm
%
!
*
# -
# # 7
# ;
" ?
" ?
D
G
Q
Q g nameg nested-remove! CR h@ ]" *( C45 $
"C " g root
< g names < g cur 0 g names 0 g cur 0 g filenamef ice-9/boot-9.scm
&
'
)
+
+ -
+
+ !
,
&
- .
- 0
' < g nameg nested-ref-module CReMLA h ]#(
6" (
645 $ " [4 5 4> " G 44 4
5 5> " G 4> " G "g "U
g root
g names g module g cur g head g tail g t / g m D g cur g filenamef ice-9/boot-9.scm
/
0
1
1
2
5 &
6 '
7 /
7 >
8 $ D
8 G
9 M
9 1 R
9 [
: `
: 1 c
: 9 n
; 9 p
: 1 u
: ~
<
7
>
> #
>
2
3
4
2 g nameg nested-define-module! CR h ]45 6 w g names
g filenamef ice-9/boot-9.scm
A
B
B
g nameg local-ref CR h ]45 6 g names
g val g filenamef ice-9/boot-9.scm
D
E
E g nameg
local-set! CR h ]45 6 g names
g val g filenamef ice-9/boot-9.scm
G
H
H g nameg local-define CR h ]45 6 z g names
g filenamef ice-9/boot-9.scm
J
K
K
g nameg local-remove CR h ]45 6 ~ g names
g filenamef ice-9/boot-9.scm
M
N
N
g nameg local-ref-module CR h ]45 6 g names
g mod g filenamef ice-9/boot-9.scm
P
Q
Q g nameg local-define-module CR4ei
5 4Di 4Ci5 > " G 4Li @> " G 4_i 4Ki5> " G R4ei
5 4Di 4Ci5 > " G 4Li @> " G 4Mi > " G 4[i > " G R4[iii> " G @ h - 1 3 $ C 6 g name
g args g filenamef ice-9/boot-9.scm
g nameg resolve-module CMR^_ h( ] 4 5 4 > " G C g m
# g i # g filenamef ice-9/boot-9.scm
"
# g nameg module-generate-unique-id! CKRRRRR4ii> " G 4i@i45 LM hX ] 4L 5 $ C45 4 > " G 445 > " G L 6 g mod
S g t S g name S g filenamef ice-9/boot-9.scm
3
6
# 9
3 <
# E
S
S C O ARu`A+K hp - . , 3 # # 45 $ @4 4455 4 5 4
5 4 5 56 6 g id
o g m o g number @ N g number W e g filenamef ice-9/boot-9.scm
'
1 )
,
2
3
6
& @
@
C
P
Q
W
Z
g
i
o
o
g nameg
module-gensymg
documentationf Return a fresh symbol in the context of module M, based on ID (a
string or symbol). As long as M is a valid module, this procedure is
deterministic. CLReMLA hp ]
4 5 $ C4 5 4> " G 444 55> " G 4 > " G C g module
l g name l g t l g m l g filenamef ice-9/boot-9.scm
&
+
4
9
<
$ F
K
T
l g nameg make-modules-in CRZeLAUTM[ E h ]4 5 $ " $ j4 5 44 5> " G 44 5> " G 4> " G 4 > " G " 4
4 55$ "
$ 6C g module
g interface g interface & g filenamef ice-9/boot-9.scm
&
)
.
& 9
B
G
) R
[
a
& f
o
%
g nameg beautify-user-module! CR h r ]L L 6 j g v
g filenamef ice-9/boot-9.scm
"
g nameg matches? CUY344 h ]O L Q 4 5$ C $ p $ C$ C$ 6$ 6 $ 4L 5 C
6
6 g v-ref
g t g matches? g key - g v g filenamef ice-9/boot-9.scm
"
&
*
-
-
=
?
I
N
P
Z
a
% c
l
s
$ u
~
"
"
g nameg sub-version-matches? C h r ] L 6 j g v
g filenamef ice-9/boot-9.scm
g nameg matches? CY344 h ]" <O Q ( C( C45$ "CO Q ( C $ 6$ 6$ 45 C "] g version-ref
g target g v-refs B g t B g sub-version-matches? B g matches? J g key Z g v g filenamef ice-9/boot-9.scm
!
$
)
# ,
0 .
2
5
" 8
/ @
J
U
V
Z
Z
l
# n
w
~
"
g nameg version-matches? CRe h ]45 4 > " G C g m
g filenamef ice-9/boot-9.scm
g nameg make-fresh-user-module CR4ei5 4Li > " G 4i ?i> " G MZT h - / 0 3 # # # 4L 5 " >$ 4 > " G 6$ C$ L 6C$ Q$ 45" $ 7$ .44 55$ " 4
> " G " C"k"g g name
g autoload g version g ensure g already 7 g filenamef ice-9/boot-9.scm
/
7
C
D
b
h
q y {
"
2 g ensureS C O MR h ] 6 g name
g version
g filenamef ice-9/boot-9.scm
g nameg try-load-module CR\ h0 h ] 445 > " G 4L> " G L C ` g filenamef ice-9/boot-9.scm
,
C h( ] 4 5 $
O 6 6 g m
& g f & g filenamef ice-9/boot-9.scm
" & & g nameg
reload-moduleg
documentationf <Revisit the source file corresponding to the module @var{m}. CRE&F h8 Q ] 4 5 $ #45& 44556CC I g module
7 g use-list 7 g filenamef ice-9/boot-9.scm
"
$ $ %
% & & % % ' ! ( ' / / ' * 1 ' ! 3 ' 7 g nameg purify-module!g
documentationf GRemoves bindings in MODULE which are inherited from the (guile) module. CRMZ h g ] C _ g sym
g var g filenamef ice-9/boot-9.scm
Y 0 CeML v5 SD h ] $ " $ " 4L5 $ " +4L 5 $ " 44L55 4M5$
4M5NCL4L56 g bspec
g orig g seen $ g t / k g t F h g var k g filenamef ice-9/boot-9.scm
` a & b # b 5 a a & c # $ c 5 $ a ' d & / d " > e & F d " U f & X h ' ] i + c h ' e f & k a n k z k { l ' l n ) m Cv5 h( ]4L 5$ C4 L 56 g binding
! g filenamef ice-9/boot-9.scm
r s s u v u ! t ! C hH x - / 0 3
H# # K# # $ 45" # 4 5 $ 45" $ " 4 > " G $ " J( " $ C$ " 4
54 5 4
> " G 4 > " G 4 O > " G 4 O J> " G C p g name
C g select C g hide C g prefix C g renamer C g version C g module d C g public-i x C g selection C g custom-i C
g filenamef ice-9/boot-9.scm
K
( M " ? O % @ P ) X S d S l T m T x S U V V
V W W ' W Y Y $ [ Y \
\ % \
]
`
& r
C
g selectS g hideS g prefixS g renamerS g versionS g nameg resolve-interface CR h b ]L 6 Z g symbol
g filenamef ice-9/boot-9.scm
|
}
C h w ] O C o g prefix
g filenamef ice-9/boot-9.scm
{
g nameg symbol-prefix-proc CR h0 ]( C$ 4 5$
"CC g pred
. g l . g filenamef ice-9/boot-9.scm
" 4 * & . g nameg list-of C h( ] $ C $ $ CCC g x
# g filenamef ice-9/boot-9.scm
, # > 5 # g nameg
valid-export? C/ h` q ]" L( 6$ 1 $ 4?" 45 "6 " i g imports
] g imports R g out R g import-spec ? g filenamef ice-9/boot-9.scm
" $
( )
4
8 <
B J N R
R U $ ] ] g nameg resolve-imports CM]UZt O
h( ]L$ 4LL> " G " 4LLL5$ #L$ 4LL> " G " " 4> " G 4LLL5$ #L$ 4LL> " G " " 4> " G 4LLL5$ #L$ 4LL> " G " " 4> " G L( " 4
LL> " G L $ 4 L 5 L 6C g handlers
g filenamef ice-9/boot-9.scm
"
. 1 5
6 R
V [
d
p s w
x
$ !
C&KJ h T - / 0 3 # # # # # # # # #
#
O
Q 4 5 4> " G $ 4> " G " $ 4> " G " $ T4 5$ " 4
> " G 4 > " G 4 4
5> " G " 4
5 4 O > " G
$ x" 4
> " _G " X
$ M4
5$ 84
54
5 445> " G " "" "" 4> " G C L g name
g filename g pure g version g
duplicates g imports g exports g replacements g
re-exports g autoloads g transformer
g list-of } g
valid-export? } g resolve-imports
} g module g imports 9 e g iface g sym g filenamef ice-9/boot-9.scm
5 3 > G " P 5 Y b '
&
3 9 < k p t { % . -
g filenameS g pureS g versionS g
duplicatesS g importsS g exportsS g replacementsS g
re-exportsS g autoloadsS g transformerS
g nameg define-module* CR4i 5R ZMEv hh ]4LL5$ W44L 55 $ " 4L > " G 4L4L55 $ " L6C g i
f g autoload I ^ g filenamef ice-9/boot-9.scm
5 # ( , 3 < % A - I % I N R W f h
C .*5 h T ]4 5$ C45 6 L g s
g filenamef ice-9/boot-9.scm
C:<_ h( i ]4 LL> " G L L6 a g port
% g filenamef ice-9/boot-9.scm
% C h8 i - 1 3 444 L LO 5
5> " G C a g key
6 g args 6 g filenamef ice-9/boot-9.scm
6
C h ]L LLO L O 6 g a
g sym g definep g filenamef ice-9/boot-9.scm
g nameg b CAc hH ] O Q 4
54
54 54
5
6 g module
B g name B g bindings B g b B g filenamef ice-9/boot-9.scm
, & = ( . , / 0 7 B B g nameg make-autoload-interface CR h` j - 1 3 " I( C( 6 4 4 5> " G " " b g module
^ g args ^ g args
V g name + V g bindings + V g filenamef ice-9/boot-9.scm
$ ' * + 0
5 ! D
O V
V ^
g nameg module-autoload!g
documentationf Have @var{module} automatically load the module named @var{name} when one
of the symbols listed in @var{bindings} is looked up. @var{args} should be a
list of module-name/binding-list pairs, e.g., as in @code{(module-autoload!
module '(ice-9 q) '(make-q q-length))}. CRR` ` h h ]4 56 ` g elt
g filenamef ice-9/boot-9.scm
0 ! CM h M ] LL 6 E g filenamef ice-9/boot-9.scm
C h M ] LLM 6 E g filenamef ice-9/boot-9.scm
3 3
C h M ] L W FE g filenamef ice-9/boot-9.scm
# # +
C hX ]445 > " G 45 U (44L L5 O > " G NXCXFG D g tag
T g k M T g filenamef ice-9/boot-9.scm
' ' ' ' % & 0 ) 0 + = 0 H 2 P T $ $ T
C
h - . , 3 # 4 5 45 45 445? 4> " G 45$ CHO O 4O > " G V
Y4 O > " G ZX4 O > " G JC } g module-name
g version g reverse-name g name & g dir-hint-module-name 0 g dir-hint @ g didit e g filenamef ice-9/boot-9.scm
$ & &
) . ( 0 0
3 6 @ @
C V b e | g nameg try-module-autoloadg
documentationf Try to load a module of the given name. If it is not found, return
#f. Otherwise return #t. May raise an exception if a file is found,
but it fails to load. CR
RX
h0 ] 45 $ " 45 6 g p
0 g m 0 g n 0 g t . g filenamef ice-9/boot-9.scm
=
> > ? ? # @ 0 ? 0 g nameg autoload-done-or-in-progress? CR X
h8 ] 45 45 $ C C g p
1 g m 1 g n 1 g t 1 g filenamef ice-9/boot-9.scm
B
C C
E
D F F - G / G
1 g nameg autoload-done! C R
h ]
45 C g p
g m g n g filenamef ice-9/boot-9.scm
I
J J
L
K M M g nameg autoload-in-progress! CR
h0 ] $ 6 45 45 C g p
/ g m / g done? / g n / g filenamef ice-9/boot-9.scm
O
P Q R R S " S # T $ - T
/ g nameg set-autoloaded! CR4Xi
ZV%&')*-.WY[\</_`a^bdhimr h ]
C g dummy
g interface g options g enable g disable g option-set! CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
\ " g
macro-typeg syntax-rulesg patternsg interfaceg optionsg enableg disable g option-set! C5
Rs #6" h ] 4 > " G 44 55 $ 54 > " G $ 4 > " G " " 4 > " G 4> " G 4 > " G 4> " G 6 g name
g value g
documentation g len c g filenamef ice-9/boot-9.scm
C h X ] @P g option
g filenamef ice-9/boot-9.scm
C h8 w ) 3 6 ] $ 4 > " G 6 456o g arg
8 g filenamef ice-9/boot-9.scm
8 g nameg
debug-options CtRs h0 r - 1 3 44 45 5> " G 6 j g flags
) g filenamef ice-9/boot-9.scm
)
g nameg debug-enable CuRs S h V ]4 M 5N C N g flag
g filenamef ice-9/boot-9.scm
C h@ - 1 3 45 H4O > " G 4J> " G 6 g flags
? g
debug-options ? g filenamef ice-9/boot-9.scm
?
g nameg
debug-disable CvR4XiwZV h( O ] C G g dummy
$ g opt $ g val $ $ CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg optg val C5wR #6" h ] 4 > " G 44 55 $ 54 > " G $ 4 > " G " " 4 > " G 4> " G 4 > " G 4> " G 6 g name
g value g
documentation g len c g filenamef ice-9/boot-9.scm
C h X ] @P g option
g filenamef ice-9/boot-9.scm
C h8 v ) 3 6 ] $ 4 > " G 6 456n g arg
8 g filenamef ice-9/boot-9.scm
8 g nameg read-options CR h0 q - 1 3 44 45 5> " G 6 i g flags
) g filenamef ice-9/boot-9.scm
)
g nameg read-enable CR S h V ]4 M 5N C N g flag
g filenamef ice-9/boot-9.scm
C h@ - 1 3 45 H4O > " G 4J> " G 6 g flags
? g read-options ? g filenamef ice-9/boot-9.scm
?
g nameg read-disable CR4XiZV h( O ] C G g dummy
$ g opt $ g val $ $ CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg optg val C5R #6" h ] 4 > " G 44 55 $ 54 > " G $ 4 > " G " " 4 > " G 4> " G 4 > " G 4> " G 6 g name
g value g
documentation g len c g filenamef ice-9/boot-9.scm
C h X ] @P g option
g filenamef ice-9/boot-9.scm
C h8 w ) 3 6 ] $ 4 > " G 6 456o g arg
8 g filenamef ice-9/boot-9.scm
8 g nameg
print-options CR h0 r - 1 3 44 45 5> " G 6 j g flags
) g filenamef ice-9/boot-9.scm
)
g nameg print-enable CR S h V ]4 M 5N C N g flag
g filenamef ice-9/boot-9.scm
C h@ - 1 3 45 H4O > " G 4J> " G 6 g flags
? g
print-options ? g filenamef ice-9/boot-9.scm
?
g nameg
print-disable CR4XiZV h( O ] C G g dummy
$ g opt $ g val $ $ CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg optg val C5R4XiZR h V ] 6N g id
g filenamef ice-9/boot-9.scm C h * ]C " g id
CV h ) ] C! g x
CN h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef ice-9/boot-9.scm
: g
macro-typeg identifier-syntax C5R h u ] C m g v
g filenamef ice-9/boot-9.scm
g nameg unspecified? CRi R4fii> " G h T ] C L g x
g filenamef ice-9/boot-9.scm
/ C
h( ) 3 L[C] L[ L4L 5\C w g x
! g prev ! g filenamef ice-9/boot-9.scm
,
! C h8 - . , 3 # 44 55 O C g init
7 g conv 7 g fluid " 7 g filenamef ice-9/boot-9.scm
" " 6 7 g nameg make-parameterg
documentationf BMake a new parameter.
A parameter is a dynamically bound value, accessed through a procedure.
To access the current value, apply the procedure with no arguments:
(define p (make-parameter 10))
(p) => 10
To provide a new value for the parameter in a dynamic extent, use
`parameterize':
(parameterize ((p 20))
(p)) => 20
(p) => 10
The value outside of the dynamic extent of the body is unaffected. To
update the current value, apply it to one argument:
(p 20) => 10
(p) => 20
As you can see, the call that updates a parameter returns its previous
value.
All values for the parameter are first run through the CONV procedure,
including INIT, the initial value. The default CONV procedure is the
identity procedure. CONV is commonly used to ensure some set of
invariants on the values that a parameter may have. CR h T ] C L g x
g filenamef ice-9/boot-9.scm
2 C h( ) 3 L[C] L[ L4L 5\C w g x
! g prev ! g filenamef ice-9/boot-9.scm
*
! C h0 - . , 3 # O C g fluid
) g conv ) g filenamef ice-9/boot-9.scm
( ) g nameg fluid->parameterg
documentationf `Make a parameter that wraps a fluid.
The value of the parameter will be the same as the value of the fluid.
If the parameter is rebound in some dynamic extent, perhaps via
`parameterize', the new value will be run through the optional CONV
procedure, as with any parameter. Note that unlike `make-parameter',
CONV is not applied to the initial value. CR h ] $ CC g x
g filenamef ice-9/boot-9.scm
g nameg
parameter? CR h( ]4 5$ C 6 g p
" g filenamef ice-9/boot-9.scm
! ' "
" g nameg parameter-fluid CR h( ]4 5$ C 6 g p
# g filenamef ice-9/boot-9.scm
! ' #
# g nameg parameter-converter CR4XiZVSV
h0 8 ] C 0 g tmp-bde397a-17e9
* * C ! h V ] C N g tmp-bde397a-17e7
g tmp-bde397a-17e6 C h8 ) ]4 L544 54L 5L L 5C ! g p
7 7 CN h8 ]4 5 45 $ O @6 g param
6 g value 6 g body 6 g body* 6 g tmp 6 g tmp 6 g filenamef ice-9/boot-9.scm 6 CN h( d ] 4 5 $ @ 6 \ g x
" g tmp " g filenamef ice-9/boot-9.scm
" C5R4i4Ji4i5 "5# h f ]4 5$ C 6^ g x
g filenamef ice-9/boot-9.scm
"
C5$i 4i4i5 "> " G 4i4Ji4i5 %5& h f ]4 5$ C 6^ g x
g filenamef ice-9/boot-9.scm
#
C5'i 4i4i5 %> " G 4i4Ji4i5 (5& h f ]4 5$ C 6^ g x
g filenamef ice-9/boot-9.scm
#
C5i 4i4i5 (> " G 4i4Ji4i5 )5& h f ]4 5$ C 6^ g x
g filenamef ice-9/boot-9.scm
#
C5*i 4i4i5 )> " G 4i*5+R4
i5,R, h d ] [C \ g filenamef ice-9/boot-9.scm
+
,
g nameg batch-mode? C-R h \ ] C T g filenamef ice-9/boot-9.scm
3
g nameg batch-mode? C- h k ] Cc g filenamef ice-9/boot-9.scm
2
3
g nameg ensure-batch-mode! C.R h { - 1 3 @ s g args
g filenamef ice-9/boot-9.scm
5
6
6
g nameg quit CRi/R012 h ] 445 5C g filenamef ice-9/boot-9.scm
:
;
;
;
;
;
g nameg gc-run-time C3R4i5 4R4i5 5R4i5 6R4i5 7R4i5 8R4i5 9R4i5 :R4i 5;R4i 5<R4i 5=R4i 5>R4i5 ?R@A#B'^9&$
h - . , 3 # 45 45 $ " <44 5$ " 4 5 > " G 445
> " G 4> " G 4
> " G $ " 4 5 6 g prompt
g reader g filenamef ice-9/boot-9.scm
Q
Q &
R
$
R )
T
,
T 6
T =
T / F
T
O
f
R
f \
f
e
g u
h
i
i
i g nameg repl-reader CCR h0 ]"
$ C " " g n
- g count ! g result ! g filenamef ice-9/boot-9.scm
q
r
s
s
t
t !
t !
r $
r %
r $ -
r - g nameg iota CDR4XiEZV
OFGVs\jk^lme hX R ]
L
L C J g t-bde397a-1825
R g t-bde397a-1826 R R CN h@ ]4 54 5 45 $
O @6 g while
@ g cond @ g body @ g tmp @ g tmp " @ g filenamef ice-9/boot-9.scm
6
$
;
$
@ CN h( d ] 4 5 $ @ 6 \ g x
" g tmp " g filenamef ice-9/boot-9.scm
" C5ERu h ]444 5 556 g sym
g filenamef ice-9/boot-9.scm
#
.
#
g nameg keyword-like-symbol->keyword CR4XiZVV h ] 4445556 g t-bde397a-18ac
g t-bde397a-18ab g t-bde397a-18aa g t-bde397a-18a9 g t-bde397a-18a8 CN h * ]8L( " L L( " L L( " L L( " L L ( "
L 4 5 $
@6 " g imp
u g exp u g rex u g rep u g aut u g tmp g tmp g filenamef ice-9/boot-9.scm
$
$ 6
7
$ M
N
$ d
e
$ u
Ct h X ]L LLLLL 6 P g args
g filenamef ice-9/boot-9.scm
C
h q ] 4L LLLLL5 C i g args
g tmp g filenamef ice-9/boot-9.scm
C\N h h ]L 6 ` g kw
g filenamef ice-9/boot-9.scm
*
C ,- h( ]
4L LLLLL5 C y g v
# g args # g tmp # g filenamef ice-9/boot-9.scm
#
# C/?@ h( ]
4L LLLLL5 C y g d
# g args # g tmp # g filenamef ice-9/boot-9.scm
&
# CBRS h( ]
4L LLLLL5 C y g f
# g args # g tmp # g filenamef ice-9/boot-9.scm
# CWZ\_V h 6 ] L 6 . g t-bde397a-1967
CN h@ y ]
LL4L5 $ 4 O ?"
4L5 LLL 6 q g ex
> g args > g tmp 6 g filenamef ice-9/boot-9.scm >
> CbV h 6 ] L 6 . g t-bde397a-1975
CN h@ y ]
LL4L5 $ 4 O ?"
4L5 LLL 6 q g ex
> g args > g tmp 6 g filenamef ice-9/boot-9.scm >
> CeV h 6 ] L 6 . g t-bde397a-1983
CN h@ y ]
LLL4L5 $ 4 O ?"
4L5 LL 6 q g re
> g args > g tmp 8 g filenamef ice-9/boot-9.scm >
> ChV h 6 ] L 6 . g t-bde397a-1991
CN h@ y ]
LLL4L5 $ 4 O ?"
4L5 LL 6 q g re
> g args > g tmp 8 g filenamef ice-9/boot-9.scm > > CkV h 6 ] L 6 . g t-bde397a-199f
CN h@ x ]
LLLL4L5 $ 4 O ?"
4L5 L 6 p g r
> g args > g tmp : g filenamef ice-9/boot-9.scm > > CnV h 6 ] L 6 . g t-bde397a-19ad
CN h@ x ]
LLLL4L5 $ 4 O ?"
4L5 L 6 p g r
> g args > g tmp : g filenamef ice-9/boot-9.scm > > CqV h 6 ] L L 6 . g t-bde397a-19bd
CN h@ ] LLLLL4L 5 $ 4 O ?"
4L 5 6 g name
@ g bindings @ g args @ g tmp > g filenamef ice-9/boot-9.scm @ @ CuNr h ] 6 g kw
g val g args g filenamef ice-9/boot-9.scm * CN3P h ]4 56 g name
g name* g arg g args g filenamef ice-9/boot-9.scm
CV/ h E ] L 6= g filenamef ice-9/boot-9.scm
Ctt h t ]L L 6 l g renamer
g in g filenamef ice-9/boot-9.scm
Cuh ]L L 6x g kw
g val g in g filenamef ice-9/boot-9.scm
CNP h ]44 55Cy g kw
g in g filenamef ice-9/boot-9.scm
$
CN h x ]L 6 p g kw
g in g filenamef ice-9/boot-9.scm
,
CP9 h( ]
4 5 $ 445
5:CC g sym
% g in % g dat % g filenamef ice-9/boot-9.scm
"
% CPu h8 ]
L4 5 44445 555 L 6 g sym
5 g in 5 g sym ' g tmp ' 1 g filenamef ice-9/boot-9.scm
!
'
2
' "
$
'
5
5 C h ]*4 5 $ O @4 5 " x4 5 " E4 5 $
L O @4 5 $
L O @ 6$ 4
?$ LO @""$ 4 ?$
L O @"f"b g in
g out g tmp
g tmp & g tmp 5 g tmp D g tmp b g filenamef ice-9/boot-9.scm
g nameg loop CV h R ] L L 6 J g t-bde397a-1955
g t-bde397a-1954 CN hh ]LLO LQ 45 45 $ 4 O ?"
45 LLLL 6 g name
e g name* e g arg e g args e g loop # g tmp & [ g tmp 1 X g filenamef ice-9/boot-9.scm
&
e
e C3P h ]4 56 ~ g name
g name* g args g filenamef ice-9/boot-9.scm
CV h 6 ] L L 6 . g t-bde397a-1938
CN hX ] 4L 4L5 $ 4 O ?"
4L5 LLLL5 C g name
T g name* T g args T g tmp 7 g tmp A T g filenamef ice-9/boot-9.scm
A
T C3P h ]4 56 ~ g name
g name* g args g filenamef ice-9/boot-9.scm
CV h 6 ] L L 6 . g t-bde397a-1919
CN h@ ] L4L5 $ 4 O ?"
4L5 LLLL 6 g name
@ g name* @ g args @ g tmp 6 g filenamef ice-9/boot-9.scm @
@ CP h ]44 55C{ g kw
g args g filenamef ice-9/boot-9.scm
$
CN h z ]L 6 r g kw
g args g filenamef ice-9/boot-9.scm
*
CP9 h( ]
4 5 $ 445
5:CC g sym
% g args % g dat % g filenamef ice-9/boot-9.scm
"
% CPu h@ ]
L4 5 44445 555 LLLLL 6 g sym
= g args = g sym ' g tmp ' 1 g filenamef ice-9/boot-9.scm
'
2
' "
$
'
=
= C / hX < ]4 5 $ O @4 5 " 4 5 " 4 5 $ L O @4 5
$ L O
@4 5 $ LO @4
5 $ L O @4 5
$
L O
@4 5 $ L O @4 5 " 4 5 " i4 5 " *4 5 $ L O @4 5 $ L O @4 5 $ L O @4 5 $ L O @4 5 $ L O @4 5 $ L O @4 5 $ L O @4 !5 $ "@#$ 6$ &4%?$ &LL O @""$ $4'?$ (L O @"m"i$ $4)?$ *L O @"0",$ 4+?$ ,LO @"#" $ $4-?$ .L O @"" 4 g args
R g imp R g exp R g rex R g rep R g aut R g tmp
R g tmp . R g tmp = $ g tmp L g tmp
r g tmp g tmp g tmp
g tmp g tmp & g tmp 5 g tmp D g tmp S t g tmp y t g tmp t g tmp t g tmp t g tmp t g tmp 7 t g tmp ] t g filenamef ice-9/boot-9.scm
R g nameg parse CVN3P h ]4 56 } g name
g name* g arg g filenamef ice-9/boot-9.scm CQV h0 H ]LL C @ g
quoted-arg
. g filename . . CN
hx L ]4L 544L5 $ " 5 45$ " 45 $
O @ 6 D g name
q g name* q g arg q g t * g f . E g tmp H q g tmp S q g filenamef ice-9/boot-9.scm ) -
1 5 9 ( 6 2 ' H , 2 . ( . 1 & ; ! H q C hP w ]O Q 4 5 " 6$ 4?$
O @""o g x
P g parse P g tmp P g filenamef ice-9/boot-9.scm
P C5R h ] 4 ? $ C 6 g mif-args
g t g filenamef ice-9/boot-9.scm
% & & ' & ' Ct h V ] 45 L 6 N g filenamef ice-9/boot-9.scm
* +
+
C h ] 4 5 O 6 g module-interface-args
g
interfaces g filenamef ice-9/boot-9.scm
$
% % ) g nameg process-use-modules CR4XiZV h E ] L 6= g filenamef ice-9/boot-9.scm G
CV[N3P h ]4 56 g name
g name* g arg g in g filenamef ice-9/boot-9.scm L L CV/ h E ] L 6= g filenamef ice-9/boot-9.scm 9
Ctt h t ]L L 6l g renamer
g in g filenamef ice-9/boot-9.scm
@ @ Cu h ]L L 6 x g kw
g val g in g filenamef ice-9/boot-9.scm B B CNP h ]44 55Cy g kw
g in g filenamef ice-9/boot-9.scm = = $ = = CN h x ]L 6 p g kw
g in g filenamef ice-9/boot-9.scm > > , > CP9 h( ]
4 5 $ 445
5:CC g sym
% g in % g dat % g filenamef ice-9/boot-9.scm 0 0 1
1 2 2 2 " 2
% CPu h8 ]
L4 5 44445 555 L 6 g sym
5 g in 5 g sym ' g tmp ' 1 g filenamef ice-9/boot-9.scm < ! < 4 4 4 ' 4 2 4 ' " 4 $ 4 ' < 5 < 5 C h ]*4 5 $ O @4 5 " x4 5 " E4 5 $
L O @4 5 $
L O @ 6$ 4
?$ LO @""$ 4 ?$
L O @"f"b g in
g out g tmp
g tmp & g tmp 5 g tmp D g tmp b g filenamef ice-9/boot-9.scm
7 g nameg loop CV h g ]LLL L L6 _ g
quoted-arg
g filenamef ice-9/boot-9.scm N N
CN hP ]O L Q 45 45 $ LLO @6 g name
L g name* L g arg L g in L g loop g tmp L g tmp ( L g filenamef ice-9/boot-9.scm 7 7 7 M L C3P h ]4 56 | g name
g name* g in g filenamef ice-9/boot-9.scm I I C h ]L L 6| g name
g name* g in g filenamef ice-9/boot-9.scm J J C h ]4 5 $ O @4 5 " @4 5 " 6$ 4?$ LL O @""$ 4 ?$
L O @"" g in
g out g tmp
g tmp & g tmp 5 l g filenamef ice-9/boot-9.scm
E g nameg lp C h ] O L Q 6 g specs
g lp g filenamef ice-9/boot-9.scm
D E E E g nameg quotify CVV
h 3 ] C + g quoted-args
CN h0 ]4L 5 45 $ @6 z g spec
+ g tmp + g tmp + g filenamef ice-9/boot-9.scm S ( S + CN h8 y ]O Q 4 5 $ O @ 6 q g x
4 g quotify
4 g tmp 4 g filenamef ice-9/boot-9.scm
. 4 C5R4Xi
ZV & ' h ? ] C 7 g dummy
g spec CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
X
" g
macro-typeg syntax-rulesg patternsg specg ... C5
RP h | ]4 5C t g x
g filenamef ice-9/r6rs-libraries.scm
g nameg sym? CV ? @ A E I M R = 3 h r ]L 6 j g name
g name*
g filenamef ice-9/r6rs-libraries.scm
y
C S Z h r ] 45 6 j g name
g name* g filenamef ice-9/r6rs-libraries.scm z CN3 h ]L 6 g name
g name*
g version
g filenamef ice-9/r6rs-libraries.scm
u
C S b h ] 4 5 6 g name
g name* g version g filenamef ice-9/r6rs-libraries.scm v C3 h ]4L 5$ L 6C g
import-set
g from g to g filenamef ice-9/r6rs-libraries.scm ^
^ ^ & C SeMLAD h v ]L 6 n g sym
g var g filenamef ice-9/r6rs-libraries.scm
a a * C v cD h( ]4L 5$ L 6L 6 g pair
' g filenamef ice-9/r6rs-libraries.scm
f g
g / g g h i h " j % % j 0 ' j ' CvP h / ]+4 5 45 4> " G 445> " G 4O > " G " z( 4
O > " G C4 5 $ "
4
5 4> " G "4455 "m ' g
import-set
g from g to g mod g iface D g iface D g in c g out c g t g var
g filenamef ice-9/r6rs-libraries.scm _ _ ' , 7 D _ G a c b i c j e n n 5 n n o o ! p ! o n q
q # q
r r ! r r
b b b > b $ CP h ]45C } g
import-set
g
identifier g filenamef ice-9/r6rs-libraries.scm
C SeMLAPD h ~ ]L4L 56 v g sym
g var g filenamef ice-9/r6rs-libraries.scm
X Y - Y C
hp - ]4 5 45 4> " G 445> " G 45 4 O > " G C % g
import-set
m g
identifier m g mod m g iface D g iface D m g pre M m g filenamef ice-9/r6rs-libraries.scm U U ' , 7 D U G W M U P X m C3 h } ]L 6 u g
import-set
g
identifier
g filenamef ice-9/r6rs-libraries.scm
H
C SeMLAD h v ]L 6 n g sym
g var g filenamef ice-9/r6rs-libraries.scm
K K * C v h( ]4L 5$ L 6 L 6 } g sym
! g filenamef ice-9/r6rs-libraries.scm
L M M N O ! O ! CP h ) ]4 5 45 4> " G 445> " G 4O > " G 4
O 4 5> " G C ! g
import-set
g
identifier g mod g iface D g iface D g filenamef ice-9/r6rs-libraries.scm I I ' , 7 D I G K ` L l P w L C3 h } ]L 6 u g
import-set
g
identifier
g filenamef ice-9/r6rs-libraries.scm
<
C SeMLA Dv h0 ] L 4L 5 $ " 4 L 5 6 g sym
/ g t - g filenamef ice-9/r6rs-libraries.scm
? A $ A B $ $ B + * B $ / @ / CP
hp ]4 5 45 4> " G 445> " G 4O 4 5> " G C g
import-set
i g
identifier i g mod i g iface D g iface D i g filenamef ice-9/r6rs-libraries.scm = = ' , 7 D = G ? S D ^ ? i C3 h r ]L 6 j g name
g name*
g filenamef ice-9/r6rs-libraries.scm
8
C S i h r ] 45 6 j g name
g name* g filenamef ice-9/r6rs-libraries.scm 9 C3 h ]L 6 g name
g name*
g version
g filenamef ice-9/r6rs-libraries.scm
3
CP h ]4 5456 g name
g name* g version g filenamef ice-9/r6rs-libraries.scm 4 5 " 4 C3 rP9 h8 ]4L 5$ $4 5$ 444 55
5:CCC g colon-n
8 g rest 8 g version 8 g filenamef ice-9/r6rs-libraries.scm !
! " "
! # " # % # , - # 0 # 3 #
8 Cu` sP SV h ] LL C
C h > ]L4L 5 C 6 g name
g rest CN h ]44444 55 555 45 $ 4 O ?" 04
5 $ 4 O ?"
4
5 6 g colon-n
{ g rest { g version { g srfi-n { g tmp , y g tmp O v g filenamef ice-9/r6rs-libraries.scm $ %
& ' ' ' 0 ' ' % $ $ { )
{ C h > ]Q 4 5 " 4 5 " f4 5 " 34 5 " 4 5 " 4 5 " 4 5 " l4
5 " 94 5
$ 4 O
?$
@ 6 6 $ 4O ?$ @""$ 4O ?$ @"t"p$ 4?$ @"F"B$ 4O ?$ @""$ 4O ?$ @""$ 4O ?$ @""$ 4 O ?$ @"z"v$ 4 O ?$ @"G"C 6 g import-spec
g sym? g tmp g tmp g tmp - g tmp < f g tmp K B g tmp Z g tmp i g tmp x g tmp
g filenamef ice-9/r6rs-libraries.scm
g nameg resolve-r6rs-interface C SR4Xi (ZV 3R h ] 6 g name
g name*
g version
g espec
g ispec
g body
g filenamef ice-9/r6rs-libraries.scm
C V S h ] 6x g
import-set
g import-level g filenamef ice-9/r6rs-libraries.scm C S h v ] 4 5 $ @ 6 n g im
g tmp g filenamef ice-9/r6rs-libraries.scm
# CV h M ] LLL D E g filenamef ice-9/r6rs-libraries.scm
C tR h p ] 6h g id
g rest g filenamef ice-9/r6rs-libraries.scm CP4v h i ] L 6 a g iface
g filenamef ice-9/r6rs-libraries.scm
Cv hX ]
4 5 4O L5$ L L LL645$ L LL L6L LLL6 g id
W g rest W g sym W g filenamef ice-9/r6rs-libraries.scm
( , - 9
F H Q W
W CN3R h ]4 5$ 6C g from
g to g rest g filenamef ice-9/r6rs-libraries.scm CV h M ] LLLLL 6 E g filenamef ice-9/r6rs-libraries.scm
C P4v h i ] L 6 a g iface
g filenamef ice-9/r6rs-libraries.scm
Cv hp ] 4 5 4O L5 $ L L LL64 5 45 $ L LL L6L LLL6 g from
o g to o g in o g sym g sym 9 G g filenamef ice-9/r6rs-libraries.scm . 2 3 9 < K [ ] i o o CN hX ]4 5 $ LLO @4 5 $ L LO @ 6 g in
R g e R g r R g x R g tmp
R g tmp . R g filenamef ice-9/r6rs-libraries.scm
R g nameg lp2 C h0 ] O LL Q 4 5LLL6 g from
- g to - g rest - g lp2
- g filenamef ice-9/r6rs-libraries.scm
- C h ] 4 5 $ O @4 5 " A4 5 $ '4?$ LL O @ 6 6$ "4 ?$
LL O @"" g specs
g e g r g x g tmp
g tmp * g tmp 9 q g filenamef ice-9/r6rs-libraries.scm
g nameg lp CV h 8 ] C 0 g tmp-bde397a-1b2c
C h 8 ]LL C 0 g tmp-bde397a-1b2b
C hH G ]LLL 44L 5
4 LLO L55C ? g e
G g r G g x G G CN hp ].45 O Q 4> G 4 5
$ O
@ 6 g name
l g name* l g version l g espec l g ispec l g body l g ifaces * g lp * g exports + l g
re-exports + l g replacements + l g tmp = l g tmp
H l
g filenamef ice-9/r6rs-libraries.scm
# $ ( % 0 * . =
l CN3R h ] 6 g name
g name*
g espec
g ispec
g body
g filenamef ice-9/r6rs-libraries.scm
C
h( w ] 45C o g name
! g name* ! g espec ! g ispec ! g body ! ! C
hh ~ ]4 5 " 44 5 $ 4?$ @ 6 6$ 4?$ @"" v g stx
d g tmp d g tmp E g filenamef ice-9/r6rs-libraries.scm
} d C5 (R4Xi ZV V
h L ] C D g
import-set
g import-level C h ] 4 5 $ @ C g
import-set
g tmp g filenamef ice-9/r6rs-libraries.scm
g nameg strip-for CV
$
(
)
+
,
-
8 h 8 ] C 0 g tmp-bde397a-1b44
C
< h 9 ]44 55C 1 g library-reference
CN h0 ]4 5 45 $ @6 g
import-set
- g tmp - g tmp - g filenamef ice-9/r6rs-libraries.scm . - CN h( n ] 4 5 $ @ 6 f g stx
" g tmp " g filenamef ice-9/r6rs-libraries.scm
" C5 R4Xi
=ZV
N h O ] C G g dummy
g foo g bar CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
a
" g
macro-typeg syntax-rulesg patternsg foog bar C5
=R4Xi
OZV
P
`
a
b h c ] C [ g dummy
g name g args g body C
k
l
m h P ] CH g dummy
g name g val CN h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/boot-9.scm
e 9 g
macro-typeg syntax-rulesg patternsg nameg argsg bodyg nameg val C5
OR4Xi
nZV
}
~
h c ] C [ g dummy
g name g args g body CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
o
" g
macro-typeg syntax-rulesg patternsg nameg argsg bodyg ... C5
nR4Xi
ZV
h T ]C L g dummy
g formals g body CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
u
" g
macro-typeg syntax-rulesg patternsg formalsg bodyg ... C5
RZ D h@ ] $ " $ " 4L 5 L6 g name
; g
internal-name ; g
external-name $ ; g var / ; g filenamef ice-9/boot-9.scm
* & 7 * & 7 $ ' / ;
; C h ]
4 5 O 6 g m
g names g public-i g filenamef ice-9/boot-9.scm
~
g nameg module-export! CRZ
D hP ] $ " $ " 4L 5 4> " G L6 g name
P g
internal-name P g
external-name $ P g var / P g filenamef ice-9/boot-9.scm
* & 7 * & 7 $ ' / 2 8 , > P P C h ]
4 5 O 6 g m
g names g public-i g filenamef ice-9/boot-9.scm
g nameg module-replace! CRZeLAUTM[DC h G ] 4 5 $ " f45 44 5> " G 44 5> " G 4> " G 4 > " G
4 56 ? g mod
g t g iface } g iface g filenamef ice-9/boot-9.scm
$ / 8 = ! H Q W \ e g nameg module-export-all! C
RZ Hv
D
h` ? ] $ " $ " 4L 5 $ !4L 5& 6L667 g name
` g
internal-name ` g
external-name $ ` g var / ` g filenamef ice-9/boot-9.scm
* & 7 * & 7 $ ' / 7 : " F J N X \ ` ` C h ]
4 5 O 6 g m
g names g public-i g filenamef ice-9/boot-9.scm
g nameg module-re-export! CR4Xi ZV
h( ? ] C 7 g dummy
# g name # # CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg nameg ... C5 R4Xi ZV
h( ? ] C 7 g dummy
# g name # # CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg nameg ... C5 R4Xi ZV
h( ? ] C 7 g dummy
# g name # # CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg nameg ... C5 R4Xi
ZV
h ? ]C7 g dummy
g name CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg nameg ... C5
R4Xi
ZV
h ? ]C7 g dummy
g name CN h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/boot-9.scm
" g
macro-typeg syntax-rulesg patternsg nameg ... C5
R
h g ) 3 L[C]L4L 5\C _ g val
g filenamef ice-9/boot-9.scm
C h0 - . , 3 # 44 55 O C g init
. g converter . g fluid " . g filenamef ice-9/boot-9.scm
" " . g nameg make-mutable-parameter C
R4ei 5 h , 3 C g module
g name g int1 g val1 g int2 g val2 g var g val g filenamef ice-9/boot-9.scm
g nameg noop C 4Li
> " G 4Mi > " G 4Gi
e
A h0 & , 3 4 54545 6 g module
* g name * g int1 * g val1 * g int2 * g val2 * g var * g val * g filenamef ice-9/boot-9.scm
' * * g nameg check C> " G 4Gi ,*
A h8 % , 3 445 4 54545> " G C g module
6 g name 6 g int1 6 g val1 6 g int2 6 g val2 6 g var 6 g val 6 g filenamef ice-9/boot-9.scm
! , 6 g nameg warn C> " G 4Gi
H h , 3
$ 45$ " " $ " 45 45 45$ & "
4 5$ CC4 5$ CC g module
g name g int1 g val1 g int2 g val2 g var g val g t % ? g old H g new H g filenamef ice-9/boot-9.scm
3 % 4 @ H M S ! U Y a b g m / o p t z
&
g nameg replace C> " G 4Gi
*
Av h@ < , 3 & /445 4 545> " G 6C 4 g module
? g name ? g int1 ? g val1 ? g int2 ? g val2 ? g var ? g val ? g filenamef ice-9/boot-9.scm
-
=
? g nameg warn-override-core C> " G 4Gi v h , 3 $ C6 g module
g name g int1 g val1 g int2 g val2 g var g val g filenamef ice-9/boot-9.scm
g nameg first C> " G 4Gi v h , 3 6 g module
g name g int1 g val1 g int2 g val2 g var g val g filenamef ice-9/boot-9.scm
g nameg last C> " G 4Gi > " G 4Gi > " G
R
h ] 4 5 $ C 6 g handler-name
g t g filenamef ice-9/boot-9.scm
. / / 1 1 C h( ] $ $ " 6C g
handler-names
" g filenamef ice-9/boot-9.scm
,
- 3 3 5 . " g nameg lookup-duplicates-handlers CR4
i5R4
i h { ]44 5> " G C s g
handler-names
g filenamef ice-9/boot-9.scm
< = > = C5 R
R h M ] L 6E g filenamef ice-9/boot-9.scm
C .*5 h T ]4 5$ C45 6 L g s
g filenamef ice-9/boot-9.scm
C:< _ h( i ]4 L> " G L L6 a g port
# g filenamef ice-9/boot-9.scm
# C h8 i - 1 3 444 L O 5
5> " G C a g key
4 g args 4 g filenamef ice-9/boot-9.scm
4
C44`
J h0 ]4545 4544 5L 56 g objcode
- g program - g filenamef ice-9/boot-9.scm
&
& % ' + - -
C .*5 h T ]4 5$ C45 6 L g s
g filenamef ice-9/boot-9.scm
C:< _ h( i ]4 L> " G L L6 a g port
# g filenamef ice-9/boot-9.scm
# C h8 i - 1 3 444 L O 5
5> " G C a g key
4 g args 4 g filenamef ice-9/boot-9.scm
4
C h H ]44L L5 5 45 $ _454M5 $ " '454M5$ 454M5" $ O O 6CC @ g ext
g candidate g gostat g t 3 j g filenamef ice-9/boot-9.scm
, $ % , 3 3 A H # O
S T [ b
n C h _ ] L LO 6 W g dir
g filenamef ice-9/boot-9.scm
C T h M ] L 6E g filenamef ice-9/boot-9.scm
!
C h Y - 1 3 C Q g args
g filenamef ice-9/boot-9.scm
CT `.9 2 * J " # $ % &
hX ] $ " 4L5 " $ 445 L L> " G " $ 4> " G 445 L > " G 44 4
5 5L
45 5 445 > " G 4
54
5 4 544 556C $ y4 54M5 $ " '4 54M5$ 4 54M5" $ +4
54
5 4 544 5L56""Õ g gostat
X g cfn g objcode g program g t ! g objcode 3 P g program 3 P g filenamef ice-9/boot-9.scm
!
" % + 4 F
G W Z ` . g p q t x $ z | ~ 0 & & #
% & * & , - 1 & 3 3 8 > @ A B H J N P K X
C .*5 h T ]4 5$ C45 6 L g s
g filenamef ice-9/boot-9.scm
C:< '_ h( i ]4 L> " G L L6 a g port
# g filenamef ice-9/boot-9.scm
# C h8 i - 1 3 444 L O 5
5> " G C a g key
4 g args 4 g filenamef ice-9/boot-9.scm
4
C h h ]L L O L O 6 ` g go-file-name
g filenamef ice-9/boot-9.scm
C
h ]$ o44 5$ "
44
55$ " ;45 & .4 5$ 4
4
54 55" " M5" LL O 6 g canon
g filenamef ice-9/boot-9.scm
g g h # h ! , h 0 f 7 j = j . A f B k L j M o R p [ q e o u C# h M ] L 6E g filenamef ice-9/boot-9.scm
C h 8 ]H4 O O 5KJ$ D4LO 5 $ " 44 O 5
L O 5 " $ $ 4 > " G " 6
O 6 0 g
abs-file-name
g scmstat g t 1 a g compiled f g filenamef ice-9/boot-9.scm
! " 1 ! @ C
^ f n t u
g nameg
load-absolute C ., ( ) * +2 h` ] L Y4L5$ 4LL> 7" 14L5$ 4L4LL5> " 44LL5> ZCZF g filenamef ice-9/boot-9.scm
5
& 0 1 4 A F I V Z
C hx ' - . , 3 # HO Q $ " 45 $ 4> " G " K O 6 g dir
w g file-name w g reader w g compiled-extension w g
load-absolute ! w g t + C g filenamef ice-9/boot-9.scm
\
+ v + v 9 w > w @ w G v H x L x S x ] z d { w w g nameg load-in-vicinityg
documentationf Load source file FILE-NAME in vicinity of directory DIR. Use a
pre-compiled version of FILE-NAME when available, and auto-compile one
when none is available, reading FILE-NAME with READER. C ,R4XiZ4 -iQ .V N X h W ]L $ L " C O g arg
g filenamef ice-9/boot-9.scm
CR h V ] 6N g id
g filenamef ice-9/boot-9.scm
C e f g h q r h( V ]L $ L " C N g id
! g filenamef ice-9/boot-9.scm
( ! CN
h ])4 5 $
45" 45$ 45" 4 5 $ O @ 4 ?$
O @ 6 g x
| g src | g file | g dir 8 | g tmp C | g tmp [ | g filenamef ice-9/boot-9.scm
) " , - % 8
| C55R R4ci 5 RZB E h0 ]
4 5 $ 44556C g module
, g features , g mod , g filenamef ice-9/boot-9.scm
K
L
L M O O " O ? $ O ( O * N , g nameg cond-expand-provide C R4Xi ZV 3 h U ]L 6 M g c
g filenamef ice-9/boot-9.scm
\
C 4 h U ]L 6 M g c
g filenamef ice-9/boot-9.scm
^
C h U ]4L 5C M g c
g filenamef ice-9/boot-9.scm `
CR h U ] 6M g c
g filenamef ice-9/boot-9.scm b CP 4 E h z ]L 4 56 r g mod
g filenamef ice-9/boot-9.scm
U V V < V V CE h8 ]4 5 45$ C45 O 456 g c
3 g sym 3 g mod 3 g filenamef ice-9/boot-9.scm c c d d f $ f + W 3 U 3 CN hx ]!4 5 $ L O @4 5 $ L O @4 5 $ L O @ 4?$ @
6 g condition
w g tmp w g tmp ' w g tmp C w g tmp [ w g filenamef ice-9/boot-9.scm
Y w g nameg condition-matches? CVV h ]4L 5$ CL L6 g condition
g form g rest g filenamef ice-9/boot-9.scm k
k m
C h E ] L 6 = g filenamef ice-9/boot-9.scm n
CN hH ]4 5 $ LL O @4 5 $ O @ 6 g clauses
F g alternate F g tmp F g tmp * F g filenamef ice-9/boot-9.scm
h F g nameg match CV h D ] L C< g filenamef ice-9/boot-9.scm
s
C h l ]L O 6 d g clause
g form g filenamef ice-9/boot-9.scm r CN h _ ] L 6 W g filenamef ice-9/boot-9.scm
w x x * x
C h Z ]L L O 6 R g clause
g filenamef ice-9/boot-9.scm v CN
hh ]!O O Q Q 4 5 $ O @4 5 $
O @ 6 g x
b g condition-matches? b g match b g tmp ( b g tmp D b g filenamef ice-9/boot-9.scm
S b C5 R 8u` s+ h ]444 555 C g num
g filenamef ice-9/boot-9.scm
,
4
C h ]4 56 w g srfis
g filenamef ice-9/boot-9.scm
}
~ g nameg use-srfis C R4Xi ZV NR h i ] 6a g type
g arg g filenamef ice-9/boot-9.scm CN h { ]L 6 s g type
g arg g filenamef ice-9/boot-9.scm , C3P h ^ ]4 56 V g n
g filenamef ice-9/boot-9.scm C O h x ]L 4 56 p g n
g filenamef ice-9/boot-9.scm
% 4 % Cu+PV h 8 ] C 0 g tmp-bde397a-1e89
C h . ]4 5C & g srfi-n
CN hH ]4L O 444 5555 45 $ @
6 g n
E g tmp # E g tmp . E g filenamef ice-9/boot-9.scm
+ ! #
# E C
hx u ]4 5 " <4 5 " 6$ 4?$ O @""$ 4?$ O @"" m g x
q g tmp q g tmp M g filenamef ice-9/boot-9.scm
q C5 R4Xi Zu VNR h ] 6w g name
g formals g body g filenamef ice-9/boot-9.scm COP SV h F ] LL L L
L LL
L
C > g proc-name
g args CN hP ]4 4M 4 55545 45 $ O @
6 g name
N g formals N g body N g tmp # N g tmp . N g filenamef ice-9/boot-9.scm
+ $ ! # N C hP ]H45K4 5 " 6$ 4?$ O @"" g x
J g prefix J g tmp J g filenamef ice-9/boot-9.scm
# J C5 R4
i5 4Ji h D ] L [C < g filenamef ice-9/boot-9.scm
C O h T ]L \C L g v
g filenamef ice-9/boot-9.scm
C O 5 R4ii4i 5> " G 4ii4i
5> " G 4i 5 4i > " G i4Mi 5 4 ivD h0 ] 4L 5 4L > " G L 6 g sym
+ g v + g filenamef ice-9/boot-9.scm
+ + C O > " G 4i > " G 4 5 4 > " G C+% g %default-prompt-tag
K g %running-exception-handlers
D g %exception-handler D g custom-throw-handler g next-id
- . g exception-printers
V O g print-location 1 L g scm-error-printer
g s
g rtd
J M" g rtd
M Ni g rtd
Nr O g rtd
O# O g rtd
O Pb g rtd
Pk Q g rtd
Q
Q g rtd
Q RQ g rtd
RZ S g rtd
S S g rtd
S Tb g rtd
Tk U g rtd
U
U g rtd
U VQ g rtd
VZ W g rtd
W W g rtd
W XA g rtd
XJ X g rtd
X Y g rtd
Y Z1 g rtd
Z: Z g rtd
Z [ g rtd
[ \2 g rtd
\; \ g rtd
\ ] g rtd
] ^! g rtd
^* ^ g rtd
^ _q g rtd
_z `" g rtd
`+ ` g rtd
` ar g m
g m
t g accessor
g root
] . g m
v g noop s g using-readline?
g m
g from
g to g m
6 N 3g filenamef ice-9/boot-9.scm +
+
, , , 6
< < N :
@
> B
B I
W & W 2 W & X o
! &
U
\
!t
"7 &
" .
$) =
%^ J
%e U
'q Y
)d d
*; o
* v
+ x
, z
-
- .
.
/>
/B
/F
/J
/N
/R
/V
/Z
/^
/b
/c
/i /n
q U
T J
S
[
3 q
Y
R
P
U
V V
I & . 5 > F M V ^ e n v }
% . 6 = F N U ^ f m v } ! ! N ! W # _ # # m M
t M y M
\ a
c
њ m
s
y
}
i
ު
>
s J
^ O
B T
v _
b
i
r
Y {
1 ~
2
9 >
_
;
<
C H
Q X Z ^
_ f k x
v
%
6
F
V
p
J
!B
!
"
#;
#
$
%3
%
&P
&
'q
(
(
(
*"
+
,
-
. $
0 +
0 6
2 9
4 F
5 S
6 W
7 \
8* x 8- { ( 81 { 8 } :
;
=
@$
B
Dj
E
F
F
F F
F
J. ]
J6 d+
e
f
g #
g +
g , % g , 1 g , % g ,
g - % g -
h /
ne 7
pV E
q f
r y
s
t
us
v]
w/
x
x
zI
{
}a
~
,
(
,
4
_ 7
@
| E
P Z [ h
~
g
\
x
K
&
Z
&
f
/
A
D
G
.
J
M
P
g
g
h
h
h
i
i
i
m
m "
m
f
u
u
v
v !
v *
w 3
w 8
w A
x K
x P
x Y
{ x
t
y
x
}
/
M
U
V
]
`
h
m
v
#
1
"
, K
K {
ݨ
9
< ; @ ;
t =
B
I
O
{
I
Q , T X
Y
f % k
q
2
3
7
s
C
)
%
% !
%
%
+
2
&
5
.
8
:
=
=
>
>
?
?
@
@
A
A
!
C ,
C
-
D 8
D
9
E E
E
F
F R
F
S
G _
G
`
H l
H
m
L x
L
g
P
q
!P
Nm $
g filenamef ice-9/r6rs-libraries.scm |
g filenamef ice-9/boot-9.scm ~
A
# ( 1 ! ; ! @ ! I " R " " # # Z # c $ l $ $ & % / % % & & & ' ' 4 ' = ( F ( M ( V ) _ ) f ) z
7 ,
8 8 D 7
E ; M ; ; :
Y W
\
7 . ; *
< F I F
K
K }
0
/
# 3 #
P
C6 PK ! D[ ice-9/expect.gonu [ GOOF----LE-8-2.0{ ] t 4 h ] g guile g define-module* g ice-9 g expect g filenameS
f ice-9/expect.scm g importsS g regex
g exportsS g expect-strings g expect-port g expect-timeout g expect-timeout-proc g expect-eof-proc g expect-char-proc g expect-strings-compile-flags g expect-strings-exec-flags g
expect-select g expect-regexec g set-current-module g make-syntax-transformer ! "g macro #g $sc-dispatch $# %# &g _ 'g any (&' )g
syntax->datum *) +) ,g
datum->syntax -, ., /g gensym 0g let 1f 21 3g or 4g current-input-port 54 635 76 8g if 9g let* :g
secs-usecs ;g gettimeofday <; =:< >= ?g + @g car A@: Bg / Cg cdr DC: EBD B@ F?AE G9>F H8G IH Jg next-char Kg and Lg not M Ng read-char Og eof-object? Pg set! Qg
string-append Rg string Sg cond Tg append UT VT Wg reverse Xg => Yg length Zg apply [g scm-error \g
misc-error ]f expect ^f bad recipient: ~S _g map `g else aJ b`a cb dg syntax-violation ed fd gf -source expression failed to match any pattern hg regexp/newline ig
regexp/noteol jg make-regexp k lg lambda mg s ng eof? omn pg select qg regexp-exec rg match:substring sg match:countC 5 h`
]4
5 4 > " G RRRRR4!"%(+./027IJ8KLMNOPQRSVWXYZ[\]^_@C`c $ h q - 1 3 45 45 45 45
4" ( 45" ( " M& @45 $ " 4 5" "s4 54 5 "V! ""
# 5 C i g clauses
g s g c g port g timeout g tests @ g exprs @ g body @ g filenamef ice-9/expect.scm
1
2 3 4 5 2 ' 6 O R T W X Z Z [ * [ \ # ] ( ] 5 [ ^ / ^ 7 ^ / ^ , ^ # e ' e 1 f 2 e ' ` ' ` 2 a 2 " b 2 % c 8 ( c 2 + ` ' 2 h # 3 Z 6 Y @ V @ O A O ) J P ) S Q ( ] O _ 6 /
C h d ] 4 5 L 4?6\ g args
g v g filenamef ice-9/expect.scm 1
Cfg h( b ] 4 5 $ O @ 6 Z g y
' g tmp ' g filenamef ice-9/expect.scm
1
' C5RhiRiiR4!"%(+.0W/jklo_@C
h - 1 3 " a( 4545 " c45 " 4
54
5 "C g clauses
g tests p g exprs p g defs p g body p g rxname 2 p g filenamef ice-9/expect.scm
x
y y
} ~ ~ ( ~ 3 & ~ ( ) ~ . ! 2 7 : > & A 2 C & K M & ] * ^ & a m p y
q y ! z z ! { | y
y
C h d ] 4 5 L 4?6\ g args
g v g filenamef ice-9/expect.scm x
Cfg h( b ] 4 5 $ O @ 6 Z g y
' g tmp ' g filenamef ice-9/expect.scm
x
' C5R;p h@ L ]45 B@
$ 4 5CC D g port
: g timeout : g
secs-usecs : g relative : g filenamef ice-9/expect.scm
# ' ( / 0 ) 1 - 5 6 7 : g nameg
expect-select CRiqrs h ]#" " $$ $ " "" " 4
5 $ 7" "
$ C45 "45 "C | g rx
g s g eof? g flags 0 g match > g i J l g result J l g filenamef ice-9/expect.scm
0 3 > F J N
R X * Y d l m t u } g nameg expect-regexec CRC g m
, g filenamef ice-9/expect.scm
0 )
4 *
8 +
< ,
@ -
s
t
7
W
Y
C6 PK ! ީ ice-9/top-repl.gonu [ GOOF----LE-8-2.0
] C 4 h ] g guile g define-module* g ice-9 g top-repl g filenameS
f ice-9/top-repl.scm g importsS
g system g repl
g selectS g
start-repl g replacementsS g set-current-module g provided? g posix g sigaction g SIGINT g scm-error g signal f User interrupt !g call-with-sigint "g resolve-module #g
guile-user $# %g process-use-modules &g append 'g r5rs (' )( *g session +* ,+ -), .g regex /. 0/ 10 2g threads 32 43 54 6g defined? 7g setlocale 8g catch 9g system-error :g LC_ALL ;f <g format =g current-error-port >f 'warning: failed to install locale: ~a~% ?g strerror @g current-language Ag run-hook Bg exit-hookC 5 h ]4
5 4 > " G 4i5$ h ] 6 w g sig
g filenamef ice-9/top-repl.scm
$ % # % .
% ? & # % C h U ] 45N C M g filenamef ice-9/top-repl.scm
! #
"
C h m ] M $ M M 66 e g filenamef ice-9/top-repl.scm
( ) + $ + 2 + -
C h m ] M $ M M 66 e g filenamef ice-9/top-repl.scm
( ) + $ + 2 + -
C h m ] M $ M M 66 e g filenamef ice-9/top-repl.scm
( ) + $ + 2 + -
C h` } ] HO O 4O > " G V4 > X4O > " G CX4O > " G F u g thunk
_ g handler _ g filenamef ice-9/top-repl.scm
_ C" x h a ] 6 Y g thunk
g filenamef ice-9/top-repl.scm
C!R"$%&-.125!67897:; h U ] 6 M g filenamef ice-9/top-repl.scm
D E "
E
C<=>? h ]45 456 g key
g subr g fmt g args g errno g filenamef ice-9/top-repl.scm
F G H I I " I G C@AB hH ]45$ 4> " G " 445 5 4
> " G C g status
1 H g filenamef ice-9/top-repl.scm
A B B B
B C C C ( K + K ! 1 K 1 K 4 L H
C h` 1 ]45 4 > " G 4445$ " 4
5$ " 5> " G
6 ) g guile-user-module
^ g filenamef ice-9/top-repl.scm
/
0 0 + 0 0 4 5 ! 6 % 7 & 9
* 9 , 9
0 9 2 :
7 ;
8 <
< < > <
B < D =
I >
K 6 P 5 ^ @ ^
g nameg top-repl CRC ~ g m
, g filenamef ice-9/top-repl.scm
- 3 5 9
/
C6 PK ! V쇸H H ice-9/command-line.gonu [ GOOF----LE-8-2.0H ] 4 hg ] g guile g define-module* g ice-9 g command-line g filenameS
f ice-9/command-line.scm g exportsS g compile-shell-switches
g version-etc g *GPLv3+* g *LGPLv3+* g emit-bug-reporting-address
g autoloadsS g system g vm g set-default-vm-engine! g set-vm-engine! g the-vm g set-current-module g gettext g _ f License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law. !f License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law. "g portS #" $g copyright-yearS %$ &g copyright-holderS '& (g copyrightS )( *g licenseS +* ,g command-nameS -, .g packagerS /. 0g packager-versionS 10 2#%')+-/1 3g current-output-port 4f Free Software Foundation, Inc. 5g format 6f Copyright (C) ~a ~a 7f ~a (~a) ~a
8f ~a ~a
9f Packaged by ~a (~a)
:f Packaged by ~a
;g display <g newline =g urlS >= ?. @g packager-bug-addressS A@ B#>?A Cg
string-append Df http://www.gnu.org/software/ Ef / Ff
Report bugs to: ~a
Gf Report ~a bugs to: ~a
Hf ~a home page: <~a>
If ?General help using GNU software: <http://www.gnu.org/gethelp/>
Jf Evaluate code with Guile, interactively or from a script.
[-s] FILE load source code from FILE, and exit
-c EXPR evalute expression EXPR, and exit
-- stop scanning arguments; run interactively
The above switches stop argument processing, and pass all
remaining arguments as the value of (command-line).
If FILE begins with `-' the -s switch is mandatory.
-L DIRECTORY add DIRECTORY to the front of the module load path
-C DIRECTORY like -L, but for compiled files
-x EXTENSION add EXTENSION to the front of the load extensions
-l FILE load source code from FILE
-e FUNCTION after reading script, apply FUNCTION to
command line arguments
--language=LANG change language; default: scheme
-ds do -s script at this point
--debug start with the "debugging" VM engine
--no-debug start with the normal VM engine (backtraces but
no breakpoints); default is --debug for interactive
use, but not for `-s' and `-c'.
--auto-compile compile source files automatically
--fresh-auto-compile invalidate auto-compilation cache
--no-auto-compile disable automatic source file compilation;
default is to enable auto-compilation of source
files.
--listen[=P] listen on a local port or a path for REPL clients;
if P is not given, the default is local port 37146
-q inhibit loading of user init file
--use-srfi=LS load SRFI modules for the SRFIs in LS,
which is a list of numbers like "2,13,14"
-h, --help display this help and exit
-v, --version display version information and exit
\ read arguments from following script lines Kg *usage* Lg current-error-port Mg apply Nf Usage: ~a [OPTION]... [FILE]...
Of GNU Guile Pf bug-guile@gnu.org Qf "http://www.gnu.org/software/guile/ Rg assq-ref Sg %guile-build-info Tg packager Ug packager-bug-address Vg exit Wg shell-usage Xg current-language Yg scheme Zg call-with-input-string [g read \g eof-object? ]g eval ^g current-module _g
module-ref `g resolve-module ag eval-string ba cg eval-string/lang dg load-in-vicinity eg getcwd fg base gg compile hfg ig compile-file jg toS kg value lg load/lang mf guile ng string-prefix? of - pg string=? qf -s rf error: sf missing argument to `-s' switch tf ~% ug @@ vul wf -c xf missing argument to `-c' switch yuc zf -- {f -l |f missing argument to `-l' switch }f -L ~f missing argument to `-L' switch f -C f missing argument to `-C' switch f -x f missing argument to `-x' switch f -e f missing argument to `-e' switch g open-input-string g memq g @ u g and-map g symbol? g main f --language= g quote g string->symbol g substring f
--language f 'missing argument to `--language' option f -ds f )the -ds switch may only be specified once f --debug f
--no-debug f --auto-compile g %load-should-auto-compile f --fresh-auto-compile g %fresh-auto-compile f --no-auto-compile f -q f --use-srfi= g map g string->number f invalid SRFI specification g exact? g integer? g string-split g use-srfis f --listen g repl g server g spawn-server u f --listen= f invalid port for --listen g make-tcp-server-socket u g make-unix-domain-server-socket u g pathS f unknown argument to --listen f -h f --help f -v f --version g version g packager-version f unrecognized switch ~a f 1the `-ds' switch requires the use of `-s' as well g set-program-arguments g debug g control g % g begin g append g load-user-init g set! g %load-extensions g cons g
%load-path g %load-compiled-path g reverse! g top-repl g quit g
string-rindexC 5 h@. ]4
5 4 > " G i R4 i 5R4 i!5R2345678 9:;< hH - /
0
3
# 45 # # # 45 # # # # $ 4 > " G " 4 > " G $ F $ !44
5 > " G " 44 5> " G " 4 > " G 4
> " G 4
> " G 4 > " G
6 g package
H g version H g port H g copyright-year H g copyright-holder H g copyright H g license H g command-name H g packager H g packager-version H
g filenamef ice-9/command-line.scm
A
B 3 E ( < F ! A F , G F ! t K u L { L L M M M O P Q
Q Q Q Q
R
R R R R
T U V / W H X H
g portS g copyright-yearS g copyright-holderS g copyrightS g licenseS g command-nameS g packagerS g packager-versionS g nameg version-etc C
RB3CDE5 FGHI h # - / 0 3 # 45 #
4 5 # # 445> " G $ +$ !44 5> " G " " 44
5 > " G 4 56 g package
g bug-address g port g url g packager g packager-bug-address g filenamef ice-9/command-line.scm
]
^ + ' _ * + ` + / b + 1 _ * F d K d O d Q d X d f e l e m f r f v f x f f g g g g g i
i
i
h
g portS g urlS g packagerS g packager-bug-addressS g nameg emit-bug-reporting-address CR4 iJ5KRL3M5< N;KOP"=Q.RST@UV h - . 1 3 # $ 45 " 45 $ .4> " G 4> " G " 445 > " G 4 > " G 4> " G 4
4545>
" G $ 6C g name
g fatal? g fmt g args g port ) g filenamef ice-9/command-line.scm
% ) 1 2 J ` e i k r { , ! g nameg shell-usage CWRXYZ[\]^ h@ ] " 14 5 45$ C445 > " G "" g port
; g exp
7 g filenamef ice-9/command-line.scm
" + 7 7 ; C_`ba h0 ] 45 $ 64455 6 g str
, g key , g filenamef ice-9/command-line.scm
" " $ & 8 ( , , g nameg eval-string/lang CcRXYde_`hijk h8 ] 45 $ 45 64455
6 g f
3 g key 3 g filenamef ice-9/command-line.scm
! % " ' ) : + 1
3 3 g nameg load/lang ClRmnopqWCrstvwxyz{|}~[\XWCrt hX ] 4 5 " M 456$ -45$ 45$
$ C"""" g x
X g n X g filenamef ice-9/command-line.scm
i j ) j
m - *
! ! k " ( k - 2 k & 3 k 8 = k & A k E E k & X C"EV
O*,.RST0 h e ] C ] g ext
g filenamef ice-9/command-line.scm
C h f ] C ^ g path
g filenamef ice-9/command-line.scm
C h f ] C ^ g path
g filenamef ice-9/command-line.scm
C l hH - . , 3 H# KH H
H HHHHHHH" (
" 45$ D45$ ]( "4J4
5> " G " KKJ$ JJ
" % J
" 4 5$ A( "4J4
5> " G " K
" 45$
" 45$ >( "4J4
5> " G "
"45$ =( "4J4
5> " G " JK
"q45$ =( "4J4
5> " G " JK
"'45$ =( "4J4
5> " G " JK
"45$ ( "4J4
5> " G " 45 45 45 4 5$ ?$ 24 5$ " 4 5$ !"" " " ! K
"!4#5$ %$%4&4' 55
"4(5$ H( "4J4)
5> " G " $%4&5
"4*5$ @J$ "4J4+
5> " G " K J
"M4,5$ K
K
".4-5$ K K
"4.5$ /
"405$ / 1
"425$ /
"435$ K
"445$ _456O 474' 5,55 ( "4J48
5> " G " 9%
"04:5$ ;
"4<5$ 4' 5 4=5 $ c" 4J4>
55" D4?5$ 54@5$ "
$ ABC " "" "" "" 24D5$ AEF " 4J4G
55
"E4H5 $ " 4I5 $ 4J> " G J
64K5 $ " 4L5 $ :4MN4O5 PQRS4TUV5W4TUX5>
" G J
6J4Y
56KKJ$ JJ
" J
" " J$ -J$ " 4J4Z
5> " G " 4[J > " G J
$ " J$ J " $ -4\]> " G 4^4_5 ]> " G " `a4bJ$ J $ " c" 4b45dJ54b45eJ54b45fJ54b4g
54bJ$ Jh " J$ i" j 555555 C $ 7 K4kJ/5 $ 4'J 5" JK
"
" g args
H g
usage-name H g arg0 & H g script-cell & H g entry-point & H g user-load-path & H g user-load-compiled-path & H g user-extensions & H g interactive? & H g inhibit-user-init? & H g turn-on-debugging?
& H g turn-off-debugging? & H g args > g out
> g arg V g args V g port g arg1
g arg2
g srfis g where B g t K g t g t @ Y g args g out
g t + I g slash 1 g filenamef ice-9/command-line.scm
= ! ! " & > D P S V V [ _ ! c g
h n p t
z {
*
*
& ( ,
8 9 ? A E
K L R
V X Z * \
a p r u @ x {
*
'
!
*
$
* + 1
5 7 9 * ;
@ O ( R " T W a b h j n
t u {
*
, ! " ' & ) & * * & * ) + ) , ( % / / 2 " 2 & 2 *
. 4 1 5 4 6 : 6 - < 6 > 5 A 4 G 4 O 3 P 9 T 9 X 9 \
b : c i
m o ; q * s
x < = = . = > = . = = < @ @ @
C
D *
E E G G F K K K
L M N P P P
Q # R / S 0 W 6 W 8 W <
? X K Y L [ R [ T [ X
[ \ ^ ] j ^ k ` q ` s ` w
z a b d d d
e f h h h
i n n , n i i o
p *
r r q t t t
v " v * u + x / x 3 x 7
: | B | E ~ K } X ^
b d " f * h
j n o y z 0 > " }
*
{
y $ 2 $
7 8 > @ @ N $ T 2 V $ ]
^ b c % o ( r $ x @ z $ } 5
*
"
*
! +
> A M N R $ W ` c i % n |
$ . & . 4 5 = @ H
H g nameg compile-shell-switches C RC g m
, g filenamef ice-9/command-line.scm !
3 *
4 - : - < - ? ,
@ 2 F 2 H 2 K 1
A
]
l l l k
V
.>
.@
C6 PK ! >
ice-9/q.gonu [ GOOF----LE-8-2.0 ] " 4 h ] g guile g define-module* g ice-9 g q g filenameS
f ice-9/q.scm g exportsS g sync-q!
g make-q g q? g q-empty? g
q-empty-check g q-front g q-rear g q-remove! g q-push! g enq! g q-pop! g deq! g q-length
g set-current-module g last-pair g throw g q-empty g delq! !g lengthC 5 h ]4
5 4 > " G h ] $ 4 5" C g q
g filenamef ice-9/q.scm
E
F F F
F " F - F " F g nameg sync-q! C R h ` ] C X g filenamef ice-9/q.scm
M
M M
g nameg make-q C
R h0 ] $ # $
4 5C ( CCC g obj
. g filenamef ice-9/q.scm
U
V V W
W W X X X % X X ! Y % Y ( Z ) Z . g nameg q? CR h t ] C l g obj
g filenamef ice-9/q.scm
^
^ ^ g nameg q-empty? CR h ]4 5$ 6C g q
g filenamef ice-9/q.scm
b
b
b b 2 b + g nameg
q-empty-check CR h q ]4 > " G C i g q
g filenamef ice-9/q.scm
f
f f & g nameg q-front CR h p ]4 > " G C h g q
g filenamef ice-9/q.scm
j
j j % g nameg q-rear CR h ] 4 5 6 g q
g obj g filenamef ice-9/q.scm
n
o o o o p g nameg q-remove! CR h0 ] $ " C g q
, g obj , g h ) g t & g filenamef ice-9/q.scm
t
u u u v w w # w , g nameg q-push! CR h0 ]
( " C g q
* g obj * g h ' g filenamef ice-9/q.scm
|
} } ~ ~ $
* g nameg enq! CR h8 ]4 > " G ( " C g q
6 g it 6 g next 6 g filenamef ice-9/q.scm
& * 3 6 g nameg q-pop! CRiR! h u ] 6 m g q
g filenamef ice-9/q.scm
g nameg q-length CRC g m
( g filenamef ice-9/q.scm :
E
k M
U
^
b
t f
j
n
t
|
C6 PK ! ice-9/receive.gonu [ GOOF----LE-8-2.0 ] C 4 h ] g guile g define-module* g ice-9 g receive g filenameS
f ice-9/receive.scm g exportsS
g set-current-module
g make-syntax-transformer g macro g $sc-dispatch g any g
syntax-object g call-with-values g top g ribcage g dummy !g vars "g vals #g body $ !"# %g m-45d2cb8b0a-f &% '& (f l-45d2cb8b0a-14 )f l-45d2cb8b0a-15 *f l-45d2cb8b0a-16 +f l-45d2cb8b0a-17 ,()*+ - $', . /g x 0/ 1& 2f l-45d2cb8b0a-11 32 4 013 5 -.4 6g hygiene 76 8 57 9g lambda :957 ;g syntax-violation <; =; >f -source expression failed to match any pattern ?g cond-expand-provide @g current-module Ag srfi-8 BA C 5 h o ]4
5 4 > " G 48: h c ] C[ g dummy
g vars g vals g body C=> h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/receive.scm
" g
macro-typeg syntax-rulesg patternsg varsg valsg body C5R?i4@i5 B6 g g m
( g filenamef ice-9/receive.scm
&
C6 PK ! H H ice-9/match.gonu [ GOOF----LE-8-2.0H ] 4 hR ] g guile g define-module* g ice-9 g match g filenameS
f ice-9/match.scm g exportsS g match-lambda
g
match-lambda* g match-let g
match-let* g match-letrec
g set-current-module g throw g match-error f match g error g make-syntax-transformer g slot-ref g macro g $sc-dispatch !g any "!!!! #g
syntax-object $g
struct-ref %g top &% 'g ribcage (g dummy )g rtd *g rec +g n ,()*+ -g m-1883f58c-6d8 .-% /.&&& 0f l-1883f58c-6dd 1f l-1883f58c-6de 2f l-1883f58c-6df 3f l-1883f58c-6e0 40123 5',/4 6' 7g x 87 9. :f l-1883f58c-6da ;: <'89; =&56< >g hygiene ?> @#$=? Ag syntax-violation BA CA Df -source expression failed to match any pattern Eg slot-set! F!!!!! Gg struct-set! Hg value I()*+H Jg m-1883f58c-6e5 KJ% LK&&&& Mf l-1883f58c-6ea Nf l-1883f58c-6eb Of l-1883f58c-6ec Pf l-1883f58c-6ed Qf l-1883f58c-6ee RMNOPQ S'ILR TK Uf l-1883f58c-6e7 VU W'8TV X&S6W Y#GX? Zg is-a? [!!! \g and ](*) ^g m-1883f58c-6f4 _^% `_&& af l-1883f58c-6f9 bf l-1883f58c-6fa cf l-1883f58c-6fb dabc e']`d f_ gf l-1883f58c-6f6 hg i'8fh j&e6i k#\j? lg struct? m#lj? ng eq? o#nj? pg
struct-vtable q#pj? rg match-syntax-error s! t( ug m-1883f58c-701 vu% wv xf l-1883f58c-706 yx z'twy {f l-1883f58c-703 |{ }'8w| ~&z6} #r~? f invalid match-syntax-error usage #~? g m-1883f58c-708 % f l-1883f58c-70d 't f l-1883f58c-70a '8 &6 #r? f missing match expression #? !! g atom ( & f l-1883f58c-710 f l-1883f58c-711 ' &6 #r? f no match clauses #? g each-any g each !! ! g let g app g pat g body ( &&& f l-1883f58c-715 f l-1883f58c-716 f l-1883f58c-717 f l-1883f58c-718 ' &6 #? g v #? g
match-next #? g set! #? g map g cons g vector ! g vec ( f l-1883f58c-723 f l-1883f58c-724 f l-1883f58c-725 f l-1883f58c-726 ' &6 #? #? g list->vector #? #? ! !Ҍ ( f l-1883f58c-72f f l-1883f58c-730 f l-1883f58c-731 f l-1883f58c-732 ' &6 #? #? #? #? g g+s ( g m-1883f58c-739 % && f l-1883f58c-73e f l-1883f58c-73f f l-1883f58c-740 ' f l-1883f58c-73b '8 &6 #? g quote #? #? f no matching pattern #? g free-id g => &6 #? ! ! ! ! ! ! ! g failure g rest ( &&&&&& f l-1883f58c-745 f l-1883f58c-746 f l-1883f58c-747 f l-1883f58c-748
f l-1883f58c-749 f l-1883f58c-74a f l-1883f58c-74b
'
&6 #? g lambda #? #? g match-one #? g match-drop-ids #? g begin #? ! ! ! ! ( &&&&& !f l-1883f58c-754 "f l-1883f58c-755 #f l-1883f58c-756 $f l-1883f58c-757 %f l-1883f58c-758 &f l-1883f58c-759 '!"#$%& (' ' )&(6 *#)? +#)? ,#)? -+, .! /!!.!!!! 0g match-check-ellipse 1g p 2g q 3g r 4g sk 5g fk 6g i 7(123456 8g m-1883f58c-760 98% :9&&&&&&&& ;f l-1883f58c-765 <f l-1883f58c-766 =f l-1883f58c-767 >f l-1883f58c-768 ?f l-1883f58c-769 @f l-1883f58c-76a Af l-1883f58c-76b Bf l-1883f58c-76c Cf l-1883f58c-76d D;<=>?@ABC E'7:D F9 Gf l-1883f58c-762 HG I'8FH J&E6I K#0J? Lg match-extract-vars M#LJ? Ng match-gen-ellipses O#NJ? Pg match-two Q#PJ? R(7 S9& Tf l-1883f58c-778 Uf l-1883f58c-779 VTU W'RSV X&W6I Y#PX? Z!!!!! [g if \(456 ]g m-1883f58c-77c ^]% _^&&&&& `f l-1883f58c-781 af l-1883f58c-782 bf l-1883f58c-783 cf l-1883f58c-784 df l-1883f58c-785 ef l-1883f58c-786 f`abcde g'\_f h^ if l-1883f58c-77e ji k'8hj l&g6k m#[l? ng null? o#nl? pg append qp rp s&6k t#s? ut vu! w!!v!!! x(1456 y^&&&&&& zf l-1883f58c-78f {f l-1883f58c-790 |f l-1883f58c-791 }f l-1883f58c-792 ~f l-1883f58c-793 f l-1883f58c-794 f l-1883f58c-795 z{|}~ 'xy &6k #[? g equal? #? #? g
quasiquote #s? ! ! ! ! g match-quasiquote (17 ^&&& f l-1883f58c-79f f l-1883f58c-7a0 f l-1883f58c-7a1 f l-1883f58c-7a2 ' &6k #? #\s? !!!!! ! !!!!!! (12456 ^&&&&&&& f l-1883f58c-7b6 f l-1883f58c-7b7 f l-1883f58c-7b8 f l-1883f58c-7b9 f l-1883f58c-7ba f l-1883f58c-7bb f l-1883f58c-7bc f l-1883f58c-7bd ' &6k #? #\? g or #s? !!!!!! ! ! ! ! f l-1883f58c-7d5 f l-1883f58c-7d6 f l-1883f58c-7d7 f l-1883f58c-7d8 ' &6k #? !!!!!! f l-1883f58c-7de f l-1883f58c-7df f l-1883f58c-7e0 f l-1883f58c-7e1 f l-1883f58c-7e2 f l-1883f58c-7e3 f l-1883f58c-7e4 'xy &6k #L? #? g match-gen-or #? g not #s? ! !!!!! f l-1883f58c-7ef f l-1883f58c-7f0 f l-1883f58c-7f1 f l-1883f58c-7f2 f l-1883f58c-7f3 f l-1883f58c-7f4 f l-1883f58c-7f5 'xy &6k #? #? g get! #s? ! !!!! g getter g g g s (456 f l-1883f58c-7ff f l-1883f58c-800 f l-1883f58c-801 f l-1883f58c-802 f l-1883f58c-803 f l-1883f58c-804 f l-1883f58c-805 f l-1883f58c-806 ' &6k #? #? #s? ! ! !!!! g setter (456 f l-1883f58c-811 f l-1883f58c-812 f l-1883f58c-813 f l-1883f58c-814 f l-1883f58c-815 f l-1883f58c-816 f l-1883f58c-817 f l-1883f58c-818 ' &6k
# ? # ? #7 ?
g ? #s? !!!!!! g pred (1456 f l-1883f58c-824 f l-1883f58c-825 f l-1883f58c-826 f l-1883f58c-827 f l-1883f58c-828 f l-1883f58c-829 f l-1883f58c-82a f l-1883f58c-82b ' & 6k #[ ? !# ? "#\ ? #g = $##s? %$ &%!! '&! (!' )!( *g proc +(*17 ,^&&&& -f l-1883f58c-835 .f l-1883f58c-836 /f l-1883f58c-837 0f l-1883f58c-838 1f l-1883f58c-839 2-./01 3'+,2 4&36k 5#4? 6g w 7#64? 8#4? 9g ___ :#9s? ;: <;! =!< >!!=!!!! ?(13456 @f l-1883f58c-840 Af l-1883f58c-841 Bf l-1883f58c-842 Cf l-1883f58c-843 Df l-1883f58c-844 Ef l-1883f58c-845 Ff l-1883f58c-846 Gf l-1883f58c-847 H@ABCDEFG I'?H J&I6k K#LJ? L#NJ? M!!s!!!! Nf l-1883f58c-851 Of l-1883f58c-852 Pf l-1883f58c-853 Qf l-1883f58c-854 Rf l-1883f58c-855 Sf l-1883f58c-856 Tf l-1883f58c-857 UNOPQRST V'xyU W&V6k X#[W? Y#\W? Zg pair? [#ZW? \#nW? ]g cdr ^#]W? _#W? `#6W? ag car b#aW? c#W? dg set-car! e#dW? fg *** g#fs? hg i!h! j!!i!!!! kf l-1883f58c-860 lf l-1883f58c-861 mf l-1883f58c-862 nf l-1883f58c-863 of l-1883f58c-864 pf l-1883f58c-865 qf l-1883f58c-866 rf l-1883f58c-867 sklmnopqr t's u&t6k v#Lu? wg match-gen-search x#wu? yh! z!y {!!z!!!! |f l-1883f58c-871 }f l-1883f58c-872 ~f l-1883f58c-873 f l-1883f58c-874 f l-1883f58c-875 f l-1883f58c-876 f l-1883f58c-877 f l-1883f58c-878 |}~ ' &6k #r? f invalid use of *** #? #f? g ..1 #s? ! !!!!!! f l-1883f58c-882 f l-1883f58c-883 f l-1883f58c-884 f l-1883f58c-885 f l-1883f58c-886 f l-1883f58c-887 f l-1883f58c-888 'xy &6k #[? #Z? #? #9? g $ #s? !!!!!! (*1456 f l-1883f58c-891 f l-1883f58c-892 f l-1883f58c-893 f l-1883f58c-894 f l-1883f58c-895 f l-1883f58c-896 f l-1883f58c-897 f l-1883f58c-898 ' &6k #[? #Z? g match-record-refs #? #
? !!!!!! f l-1883f58c-8a3 f l-1883f58c-8a4 f l-1883f58c-8a5 f l-1883f58c-8a6 f l-1883f58c-8a7 f l-1883f58c-8a8 f l-1883f58c-8a9 f l-1883f58c-8aa ' &6k #[? #Z? #? #6? #a? #7? #]? #? #d? g set-cdr! #? !̌ !͌ g match-vector (17 f l-1883f58c-8b4 f l-1883f58c-8b5 f l-1883f58c-8b6 f l-1883f58c-8b7 f l-1883f58c-8b8 ', &6k #? #
? g _ #s? !!!!! !!!!! g
let-syntax g id (745 f l-1883f58c-8ce f l-1883f58c-8cf f l-1883f58c-8d0 f l-1883f58c-8d1 f l-1883f58c-8d2 f l-1883f58c-8d3 f l-1883f58c-8d4 'y &6k #? g new-sym? #? g syntax-rules #? g sk2 #? g fk2 #? g y #? g random-sym-to-match #? #? #[? #? g unquote g m-1883f58c-8e1 % f l-1883f58c-8e3 '8 &6
# ?
!
!! !!!! &&&&&& f l-1883f58c-8e6 f l-1883f58c-8e7 f l-1883f58c-8e8 f l-1883f58c-8e9 f l-1883f58c-8ea f l-1883f58c-8eb f l-1883f58c-8ec 'x &6 #? g unquote-splicing # ? ! ! !! !!!! (1456 !&&&&&&& "f l-1883f58c-8f5 #f l-1883f58c-8f6 $f l-1883f58c-8f7 %f l-1883f58c-8f8 &f l-1883f58c-8f9 'f l-1883f58c-8fa (f l-1883f58c-8fb )f l-1883f58c-8fc *"#$%&'() +' !* ,&+6 -#[,? .#Z,? /#,? 0g tmp 1#0,? 2#,? 3# ? 43 54! 6!. 7!6 857 9!8 :!9 ;g depth <(1456; =f l-1883f58c-906 >f l-1883f58c-907 ?f l-1883f58c-908 @f l-1883f58c-909 Af l-1883f58c-90a Bf l-1883f58c-90b Cf l-1883f58c-90c Df l-1883f58c-90d E=>?@ABCD F'<!E G&F6 H#G? I#G? J!7 K J L!K M!L N(14567; O&&&&&&&& Pf l-1883f58c-917 Qf l-1883f58c-918 Rf l-1883f58c-919 Sf l-1883f58c-91a Tf l-1883f58c-91b Uf l-1883f58c-91c Vf l-1883f58c-91d Wf l-1883f58c-91e Xf l-1883f58c-91f YPQRSTUVWX Z'NOY [&Z6 \#[? ] J ^!] _!^ `f l-1883f58c-92a af l-1883f58c-92b bf l-1883f58c-92c cf l-1883f58c-92d df l-1883f58c-92e ef l-1883f58c-92f ff l-1883f58c-930 gf l-1883f58c-931 hf l-1883f58c-932 i`abcdefgh j'NOi k&j6 l#k? m7 n!m o!n p(12456; qf l-1883f58c-93d rf l-1883f58c-93e sf l-1883f58c-93f tf l-1883f58c-940 uf l-1883f58c-941 vf l-1883f58c-942 wf l-1883f58c-943 xf l-1883f58c-944 yf l-1883f58c-945 zqrstuvwxy {'pOz |&{6 }#[|? ~#Z|? #|? #6|? #a|? #7|? #]|? #|? g match-quasiquote-step #|? 7 ! ! g elt (456; f l-1883f58c-950 f l-1883f58c-951 f l-1883f58c-952 f l-1883f58c-953 f l-1883f58c-954 f l-1883f58c-955 f l-1883f58c-956 f l-1883f58c-957 '! &6 #[? g vector? #? #? g ls #? g vector->list #? #? !J ! (7456; f l-1883f58c-962 f l-1883f58c-963 f l-1883f58c-964 f l-1883f58c-965 f l-1883f58c-966 f l-1883f58c-967 f l-1883f58c-968 f l-1883f58c-969 '! &6 #? #? !!!!!!!! (7245;6 g m-1883f58c-972 % &&&&&&& f l-1883f58c-977 f l-1883f58c-978 f l-1883f58c-979 f l-1883f58c-97a f l-1883f58c-97b f l-1883f58c-97c f l-1883f58c-97d f l-1883f58c-97e ' f l-1883f58c-974 '8 &6 #? ! g match-tuck-ids !! !Ȍ g match-drop-first-arg !!!!! g id-ls (1456 g m-1883f58c-9ae % &&&&&&&& f l-1883f58c-9b3 f l-1883f58c-9b4 f l-1883f58c-9b5 f l-1883f58c-9b6 f l-1883f58c-9b7 f l-1883f58c-9b8 f l-1883f58c-9b9 f l-1883f58c-9ba f l-1883f58c-9bb ' f l-1883f58c-9b0 '8 &6 #? #? #? g match-gen-or-step #? #? 6 !茤 !錤 s! !댤 !쌤 g m-1883f58c-9cb % &&& f l-1883f58c-9dd f l-1883f58c-9de f l-1883f58c-9df f l-1883f58c-9e0 ' f l-1883f58c-9cd '8 &6 #? &&&&&&& f l-1883f58c-9e6 f l-1883f58c-9e7 f l-1883f58c-9e8 f l-1883f58c-9e9 f l-1883f58c-9ea f l-1883f58c-9eb f l-1883f58c-9ec f l-1883f58c-9ed ' &6 #?
#? #? #?
#?
!!!!!! g match-check-identifier g m-1883f58c-9f6 % &&&&&&&& f l-1883f58c-9fb f l-1883f58c-9fc f l-1883f58c-9fd f l-1883f58c-9fe f l-1883f58c-9ff f l-1883f58c-a00 f l-1883f58c-a01 f l-1883f58c-a02 f l-1883f58c-a03 ' f l-1883f58c-9f8 ! "'8 ! #& 6" $##? %##? &#[#? 'g list? (#'#? )g loop *#)#? +##? ,##? -, .- /g cond 0#/#? 1#n#? 21+ 3g reverse 4#3#? 5#Z#? 65+ 7#6#? 8#a#? 98+ :79 ;: <##? =#d#? >=+ ?9> @##? A#]#? BA+ C##? Dg else E#D#? F!!!!!!! Gg match-verify-no-ellipses H(13456
I&&&&&&&&&
Jf l-1883f58c-a15 Kf l-1883f58c-a16 Lf l-1883f58c-a17 Mf l-1883f58c-a18 Nf l-1883f58c-a19 Of l-1883f58c-a1a Pf l-1883f58c-a1b Qf l-1883f58c-a1c Rf l-1883f58c-a1d Sf l-1883f58c-a1e TJKLMNOPQRS
U'HIT V&U6" W#GV? Xg let* Y#XV? Zg tail-len [#ZV? \g length ]#\V? ^#V? _#V? `g len a#`V? b#\V? c#'V? dc_ e]_ fbde gaf hg i#[V? j#V? k#V? lka mg < n#mV? ona[ pjlo q#V? r#)V? s__ t#+V? uta v^ wv x#/V? y##V? zyt[ {#3V? |#V? }#V? ~}} #ZV? _ #6V? #aV? _ #dV? _ #V? #]V? _ g - #V? # V? t #V? #DV? !! (74 g m-1883f58c-a2f % &&& f l-1883f58c-a34 f l-1883f58c-a35 f l-1883f58c-a36 f l-1883f58c-a37 ' f l-1883f58c-a31 '8 &6 #0? #r? f 3multiple ellipse patterns not allowed at same level #? #G? !! (74 && f l-1883f58c-a42 f l-1883f58c-a43 f l-1883f58c-a44 ' &6 #r? f %dotted tail not allowed after ellipse #? !!!!!!!! g letrec (12456
g m-1883f58c-a48 % &&&&&&&&&
f l-1883f58c-a4d f l-1883f58c-a4e f l-1883f58c-a4f f l-1883f58c-a50 f l-1883f58c-a51 f l-1883f58c-a52 f l-1883f58c-a53 f l-1883f58c-a54 f l-1883f58c-a55 f l-1883f58c-a56
' f l-1883f58c-a4a '8 &6 #? g try #? #? #6? g fail #? #? #? #? #3? g next #? #[? #? #Z? g u #? #a? #d? #? #? g lp #? #? #]? #? ! ! ! ! ! g pats (+127 g m-1883f58c-a6b % &&&&&& f l-1883f58c-a70 f l-1883f58c-a71 f l-1883f58c-a72 f l-1883f58c-a73 f l-1883f58c-a74 f l-1883f58c-a75 f l-1883f58c-a76
'
f l-1883f58c-a6d
'8 & 6 #0? g match-gen-vector-ellipses #? g match-vector-two #? &6 #9? ! !!!!!!! (+1456 &&&&&&& f l-1883f58c-a7f f l-1883f58c-a80 f l-1883f58c-a81 f l-1883f58c-a82 !f l-1883f58c-a83 "f l-1883f58c-a84 #f l-1883f58c-a85 $f l-1883f58c-a86 % !"#$ &' % '&&6 (#'? )& *f l-1883f58c-a90 +f l-1883f58c-a91 ,*+ -'R), .&-6 /#.? 0!!!!!! 1g index 2(+1456 3g m-1883f58c-a94 43% 54&&&&&&& 6f l-1883f58c-a99 7f l-1883f58c-a9a 8f l-1883f58c-a9b 9f l-1883f58c-a9c :f l-1883f58c-a9d ;f l-1883f58c-a9e <f l-1883f58c-a9f =f l-1883f58c-aa0 >6789:;<= ?'25> @4 Af l-1883f58c-a96 BA C'8@B D&?6C E#[D? F#D? G#D? H#`D? Ig
vector-length J#ID? K##D? Lg match-vector-step M#LD? Ng list O P!O Q!P R!Q S4&&&&&& Tf l-1883f58c-aac Uf l-1883f58c-aad Vf l-1883f58c-aae Wf l-1883f58c-aaf Xf l-1883f58c-ab0 Yf l-1883f58c-ab1 Zf l-1883f58c-ab2 [TUVWXYZ \'S[ ]&\6C ^#]? _g + `#_]? a# ]? ba c!!!! d!!!!! e(1456 fg m-1883f58c-abb gf% hg&&&&&&& if l-1883f58c-acc jf l-1883f58c-acd kf l-1883f58c-ace lf l-1883f58c-acf mf l-1883f58c-ad0 nf l-1883f58c-ad1 of l-1883f58c-ad2 pf l-1883f58c-ad3 qijklmnop r'ehq sg tf l-1883f58c-abd ut v'8su w&r6v x#w? y#6w? zg
vector-ref {#zw? |#w? }g vector-set! ~#}w? #Lw? !!!!!!! (+11456 g m-1883f58c-adc % &&&&&&&& f l-1883f58c-ae1 f l-1883f58c-ae2 f l-1883f58c-ae3 f l-1883f58c-ae4 f l-1883f58c-ae5 f l-1883f58c-ae6 f l-1883f58c-ae7 f l-1883f58c-ae8 f l-1883f58c-ae9 ' f l-1883f58c-ade '8 &6 #[? #? #? #`? #I? g >= #? #L? g match-vector-tail #? (1+`456 g m-1883f58c-af5 % &&&&&&& f l-1883f58c-afa f l-1883f58c-afb f l-1883f58c-afc f l-1883f58c-afd f l-1883f58c-afe f l-1883f58c-aff f l-1883f58c-b00 f l-1883f58c-b01 ' f l-1883f58c-af7 '8 &6 #L? g match-vector-tail-two #? (1+`456
g m-1883f58c-b0a % &&&&&&&&&
f l-1883f58c-b0f f l-1883f58c-b10 f l-1883f58c-b11 f l-1883f58c-b12 f l-1883f58c-b13 f l-1883f58c-b14 f l-1883f58c-b15 f l-1883f58c-b16 f l-1883f58c-b17 f l-1883f58c-b18
' f l-1883f58c-b0c '8 &6 #? #)? g j #? #? #[? #? #3? #6? #z? #? g
vetor-set! #? #? #_? # ? #? !!!!!!!! (*+12456
g m-1883f58c-b29 % &&&&&&&&&
f l-1883f58c-b2e f l-1883f58c-b2f f l-1883f58c-b30 f l-1883f58c-b31 f l-1883f58c-b32 f l-1883f58c-b33 f l-1883f58c-b34 f l-1883f58c-b35 f l-1883f58c-b36 f l-1883f58c-b37
' f l-1883f58c-b2b '8 &6 #? #6? # ? #? #E? #? #_? # ? !!!!!!! g m-1883f58c-b54 % f l-1883f58c-b56 '8 &6 #? !
! (17 &&&
f l-1883f58c-b59 f l-1883f58c-b5a f l-1883f58c-b5b f l-1883f58c-b5c
' &6 #L? #? ! ! (*17 f l-1883f58c-b62 f l-1883f58c-b63 f l-1883f58c-b64 f l-1883f58c-b65 ' !& 6 "#L!? ###? $# %$!! &%! '!& ((*17 )f l-1883f58c-b6b *f l-1883f58c-b6c +f l-1883f58c-b6d ,f l-1883f58c-b6e -)*+, .'( - /&.6 0#L/? 1#? 21 32! 4!3!! 5#? 65 76! 8!7!!! 9g match-extract-quasiquote-vars :g k ;(7:6 < &&&& =f l-1883f58c-b80 >f l-1883f58c-b81 ?f l-1883f58c-b82 @f l-1883f58c-b83 Af l-1883f58c-b84 B=>?@A C';<B D&C6 E#9D? F#D? GF HG I#\? JI KJ! LK! M!L N(17 O && Pf l-1883f58c-b8b Qf l-1883f58c-b8c Rf l-1883f58c-b8d SPQR T'NOS U&T6 V#LU? W#? XW YX! ZY! [!Z \f l-1883f58c-b92 ]f l-1883f58c-b93 ^f l-1883f58c-b94 _\]^ `'NO_ a&`6 b#La? c#? dc ed! fe! g!f hf l-1883f58c-b99 if l-1883f58c-b9a jf l-1883f58c-b9b khij l'NOk m&l6 n#Lm? o!.!!! p(123:6 q &&&&&& rf l-1883f58c-ba0 sf l-1883f58c-ba1 tf l-1883f58c-ba2 uf l-1883f58c-ba3 vf l-1883f58c-ba4 wf l-1883f58c-ba5 xf l-1883f58c-ba6 yrstuvwx z'pqy {&z6 |#0{? }#L{? ~g match-extract-vars-step #~{? !!!! (12:6 &&&&& f l-1883f58c-baf f l-1883f58c-bb0 f l-1883f58c-bb1 f l-1883f58c-bb2 f l-1883f58c-bb3 f l-1883f58c-bb4 ' &6 #L? #~? ! ! f l-1883f58c-bbc f l-1883f58c-bbd f l-1883f58c-bbe 'NO &6 #L? #? !!! #9? !!! #f? !!! #? !!! !!! (1:6 f l-1883f58c-bec f l-1883f58c-bed f l-1883f58c-bee f l-1883f58c-bef f l-1883f58c-bf0 '< &6 #? #? #? #4? #5? #!? #? g p-ls #? !!!!! g v2 g v2-ls (1:6 g m-1883f58c-bf9 % &&&&&& f l-1883f58c-bfe f l-1883f58c-bff f l-1883f58c-c00 f l-1883f58c-c01 f l-1883f58c-c02 f l-1883f58c-c03 f l-1883f58c-c04 ' f l-1883f58c-bfb '8 &6 #L? g m-1883f58c-c0f % f l-1883f58c-c11 '8 &6 #? ! !!!!! g d (7:6 &&&&& f l-1883f58c-c14 f l-1883f58c-c15 f l-1883f58c-c16 f l-1883f58c-c17 f l-1883f58c-c18 f l-1883f58c-c19 ' &6 #9? #? #? ! !!!!! f l-1883f58c-c21 f l-1883f58c-c22 f l-1883f58c-c23 f l-1883f58c-c24 f l-1883f58c-c25 f l-1883f58c-c26 ' &6 #9? #? #? ! !!!! &&&& f l-1883f58c-c2e f l-1883f58c-c2f f l-1883f58c-c30 f l-1883f58c-c31 f l-1883f58c-c32 '; &6 #L?
! !!!!
f l-1883f58c-c39
f l-1883f58c-c3a f l-1883f58c-c3b f l-1883f58c-c3c f l-1883f58c-c3d f l-1883f58c-c3e
' &6 #9? !!!!
(7:6 &&&&&& f l-1883f58c-c46 f l-1883f58c-c47 f l-1883f58c-c48 f l-1883f58c-c49 f l-1883f58c-c4a f l-1883f58c-c4b f l-1883f58c-c4c !' "&!6 ##9"? $g "match-extract-quasiquote-vars-step %#$"? &!!!!
'f l-1883f58c-c55 (f l-1883f58c-c56 )f l-1883f58c-c57 *f l-1883f58c-c58 +f l-1883f58c-c59 ,f l-1883f58c-c5a -'()*+, .'- /&.6 0#9/? 1!!!!
2!!!!!! 3(7:6 4g m-1883f58c-c70 54% 65&&&&&&& 7f l-1883f58c-c75 8f l-1883f58c-c76 9f l-1883f58c-c77 :f l-1883f58c-c78 ;f l-1883f58c-c79 <f l-1883f58c-c7a =f l-1883f58c-c7b >f l-1883f58c-c7c ?789:;<=> @'36? A5 Bf l-1883f58c-c72 CB D'8AC E&@6D F#9E? Gg pattern H(G Ig m-1883f58c-c88 JI% KJ&& Lf l-1883f58c-c8d Mf l-1883f58c-c8e Nf l-1883f58c-c8f OLMN P'HKO QJ Rf l-1883f58c-c8a SR T'8QS U&P6T V#U? Wg expr X#WU? YX Z#U? [g m-1883f58c-c95 \[% ]\&& ^f l-1883f58c-c9a _f l-1883f58c-c9b `f l-1883f58c-c9c a^_` b'H]a c\ df l-1883f58c-c97 ed f'8ce g&b6f h#g? i#Wg? j#g? k! l!k mg match-let/helper ng var o(nH pg m-1883f58c-ca2 qp% rq&&& sf l-1883f58c-ca7 tf l-1883f58c-ca8 uf l-1883f58c-ca9 vf l-1883f58c-caa wstuv x'orw yq zf l-1883f58c-ca4 {z |'8y{ }&x6| ~#m}? #}? !l g match-named-let g init ()n q&&&& f l-1883f58c-cb2 f l-1883f58c-cb3 f l-1883f58c-cb4 f l-1883f58c-cb5 f l-1883f58c-cb6 ' &6| #? g m-1883f58c-cbe % &&& f l-1883f58c-cc3 f l-1883f58c-cc4 f l-1883f58c-cc5 f l-1883f58c-cc6 'o f l-1883f58c-cc0 '8 &6 #m? #? ! ! ! ! ! (nW0 g m-1883f58c-ccd % &&&&&& f l-1883f58c-cdf f l-1883f58c-ce0 f l-1883f58c-ce1 f l-1883f58c-ce2 f l-1883f58c-ce3 f l-1883f58c-ce4 f l-1883f58c-ce5 ' f l-1883f58c-ccf '8 &6 #? ! ! ! ! ! g a g b (1W &&&&&&&& f l-1883f58c-cf2 f l-1883f58c-cf3 f l-1883f58c-cf4 f l-1883f58c-cf5 f l-1883f58c-cf6 f l-1883f58c-cf7 f l-1883f58c-cf8 f l-1883f58c-cf9 f l-1883f58c-cfa ' &6 #m? #0? ! ! ! !، !ٌ (1W &&&&&&& f l-1883f58c-d07 f l-1883f58c-d08 f l-1883f58c-d09 f l-1883f58c-d0a f l-1883f58c-d0b f l-1883f58c-d0c f l-1883f58c-d0d f l-1883f58c-d0e ' &6 #m? #0? ! 댤 쌤 !팤 ! f l-1883f58c-d1b f l-1883f58c-d1c f l-1883f58c-d1d f l-1883f58c-d1e f l-1883f58c-d1f f l-1883f58c-d20 f l-1883f58c-d21 f l-1883f58c-d22 ' &6 #m? [ ! ! ()Wn g m-1883f58c-d2d % &&&&& f l-1883f58c-d32 f l-1883f58c-d33 f l-1883f58c-d34 f l-1883f58c-d35 f l-1883f58c-d36 f l-1883f58c-d37
'
f l-1883f58c-d2f
'8 & 6 #? #? !쌤 ! ()W &&&&&& f l-1883f58c-d43 f l-1883f58c-d44 f l-1883f58c-d45 f l-1883f58c-d46 f l-1883f58c-d47 f l-1883f58c-d48 f l-1883f58c-d49 ' & 6 !# ? "#0 ? #" $! %( &g m-1883f58c-d52 '&% ('& )f l-1883f58c-d57 *f l-1883f58c-d58 +)* ,'%(+ -' .f l-1883f58c-d54 /. 0'8-/ 1&,60 2#1? 3!댤 4(W 5'&&&& 6f l-1883f58c-d5c 7f l-1883f58c-d5d 8f l-1883f58c-d5e 9f l-1883f58c-d5f :f l-1883f58c-d60 ;6789: <'45; =&<60 >#=? ?#=? @!!! A!!! Bg success-k Cg failure-k D(BC Eg m-1883f58c-d66 FE% GF&&& Hf l-1883f58c-d7f If l-1883f58c-d80 Jf l-1883f58c-d81 Kf l-1883f58c-d82 LHIJK M'DGL NF Of l-1883f58c-d68 PO Q'8NP R&M6Q S#R? Tg ellipse? U#TR? V#R? Wg foo X#WR? Y#4R? Z#5R? [YZ \Y ]g other ^#]R? _U^YZ `_Z a` b#R? c#R? dg c e#dR? fbce g(7BC hg m-1883f58c-d87 ih% ji&&& kf l-1883f58c-da0 lf l-1883f58c-da1 mf l-1883f58c-da2 nf l-1883f58c-da3 oklmn p'gjo qi rf l-1883f58c-d89 sr t'8qs u&p6t v#u? wg sym? x#wu? y#u? z#4u? {#5u? |z{ }z ~#u? x~z{ { g abracadabra #u? C 5 hp a ]4
5 4 > " G h - 1 3 @ g _
g args g filenamef ice-9/match.scm
g nameg error CR4 "@ h ^ ] C V g dummy
g rtd g rec g n CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.scm
! " g
macro-typeg syntax-rulesg patternsg rtdg recg n C5 R4E FY h q ] C i g dummy
g rtd g rec g n g value CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.scm
& " g
macro-typeg syntax-rulesg patternsg rtdg recg ng value C5ER4Z [kmoq h O ] C G g dummy
g rec g rtd CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.scm
+ " g
macro-typeg syntax-rulesg patternsg recg rtd C5ZR4r s h - ]C % g dummy
CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patterns C5rR4 s h - ]C % g dummy
C h ? ]C 7 g dummy
g atom C h0 a ] 45 CY g dummy
0 g app 0 g pat 0 g body 0 0 C h0 a ]45 45 C Y g dummy
+ g vec + g pat + g body + + C h0 b ] 45 CZ g dummy
0 g atom 0 g pat 0 g body 0 0 CCD h b ])4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @
6 Z g x
~ g tmp ~ g tmp " ~ g tmp 9 ~ g tmp P ~ g tmp g ~ g filenamef ice-9/match.upstream.scm
~ g
macro-typeg syntax-rulesg patternsg atom g appg ... g patg bodyg ... g vecg ... g patg bodyg ... g atomg patg bodyg ... C5R4 [ h M ] C E g dummy
g v g g+s C h@ ] C g dummy
@ g v @ g g+s @ g pat @ g failure @ g body @ g rest @ @ C *- h ]C z g dummy
g v g g+s g pat g body g rest CCD
hP . ]4 5 $ @4 5 $ @4 5 $ @ 6& g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
P g
macro-typeg syntax-rulesg patternsg vg g+s g vg g+sg patg =>g failure g bodyg restg vg g+sg patg bodyg rest C5R4 /KMOQ hH , 3 C g dummy
D g v D g p D g q D g r D g g+s D g sk D g fk D g i D D CY h < ]C4 g dummy
g x CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
/ 9 g
macro-typeg syntax-rulesg patternsg vg pg qg rg g+sg skg fkg i g x C5R4P Zmor h | ] 4 5 C t g dummy
g v g g+s g sk g fk g i Cwr h( ] 4 5 C g dummy
$ g v $ g p $ g g+s $ g sk $ g fk $ g i $ $ C h Z ]C R g dummy
g v g p g x Cr h | ] 6 t g dummy
g v
g g+s
g sk
g fk
g i
C h( , 3 C g dummy
( g v ( g p ( g q ( g g+s ( g sk ( g fk ( g i ( ( C h | ]C t g dummy
g v g g+s g sk g fk g i C h Z ]C R g dummy
g v g p g x C h( ] C g dummy
# g v # g p # g g+s # g sk # g fk # g i # # Cr h( ] 4 5 C g dummy
# g v # g p # g g+s # g sk # g fk # g i # # Cr h( , 3 4 5 C g dummy
( g v ( g getter ( g g ( g s ( g sk ( g fk ( g i ( ( C
r h0 , 3 45 4 5 C g dummy
0 g v 0 g setter 0 g g 0 g s 0 g sk 0 g fk 0 g i 0 0 C !" h0 , 3 C g dummy
) g v ) g pred ) g p ) g g+s ) g sk ) g fk ) g i ) ) C)578 h( l ] C d g dummy
" g v " g proc " g p " g x " " C>KL h( , 3 C g dummy
& g v & g p & g r & g g+s & g sk & g fk & g i & & CMXY[\^_`bce hX ]
C g dummy
V g v V g p V g g+s V g sk V g fk V g i V V Cjvx h( , 3 C g dummy
& g v & g p & g q & g g+s & g sk & g fk & g i & & C{ h , 3 C g dummy
g v g p g q g g+s g sk g fk g i C h( ] C g dummy
% g v % g p % g g+s % g sk % g fk % g i % % C h0 , 3 C g dummy
, g v , g rec , g p , g g+s , g sk , g fk , g i , , C hx , 3
C g dummy
q g v q g p q g q q g g+s q g sk q g fk q g i q q C h k ]C c g dummy
g v g p g g+s g x Cr h | ] 6 t g dummy
g v
g g+s
g sk
g fk
g i
Cr hp ] 4 4 5 5
4 5 C g dummy
l g v l g x l g g+s l g sk l g fk l g id l l CCD 2 h ]4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5 $ !@4 "5 $ #@4 $5 $ %@4 &5 $ '@4 (5 $ )@4 *5 $ +@4 ,5 $ -@4 .5 $ /@01 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g tmp g tmp
g tmp g tmp g tmp
g tmp 6 g tmp M g tmp d g tmp { g tmp g tmp g tmp g tmp g tmp g tmp g filenamef ice-9/match.upstream.scm
N g
macro-typeg syntax-rulesg patternsg vg g+sg skg ... g fkg i g vg quoteg p g g+sg skg ... g fkg i g vg
quasiquoteg p g xg vg and g g+sg skg ... g fkg i g vg andg pg qg ... g g+sg skg fkg i g vg or g g+sg skg fkg i g vg org p g xg vg org pg ... g g+sg skg fkg i g vg notg p g g+sg skg ... g fkg i g vg get!g getter g gg s g skg ... g fkg i g vg set!g setter g gg sg ... g skg ... g fkg i g vg ?g predg pg g+sg skg fkg i g vg =g procg p g xg vg pg ___g rg g+sg skg fkg i g vg p g g+sg skg fkg i g vg pg ***g q g g+sg skg fkg i g vg pg ***g qg g+sg skg fkg i g vg pg ..1 g g+sg skg fkg i g vg $g recg pg ... g g+sg skg fkg i g vg pg qg g+sg skg fkg i g vg pg ... g g+sg xg vg _g g+sg skg ... g fkg i g vg xg g+sg skg ... g fkg idg ... C5PR4
h ] C g dummy
g v g p g g+s g sk g fk g i C -./12 h8 , 3 C g dummy
4 g v 4 g p 4 g rest 4 g g+s 4 g sk 4 g fk 4 g i 4 4 C:HI h( , 3 C g dummy
! g v ! g p ! g g+s ! g sk ! g fk ! g i ! g depth ! ! CM\ h , 3 C g dummy
g v g p g g+s g sk g fk g i g x g depth C_l h , 3 C g dummy
g v g p g g+s g sk g fk g i g x g depth Co}~
h` , 3 C g dummy
[ g v [ g p [ g q [ g g+s [ g sk [ g fk [ g i [ g depth [ [ C h@ , 3 C g dummy
@ g v @ g elt @ g g+s @ g sk @ g fk @ g i @ g depth @ @ C h , 3 C g dummy
g v g x g g+s g sk g fk g i g depth CCD h ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g filenamef ice-9/match.upstream.scm
g
macro-typeg syntax-rulesg patternsg vg unquoteg p g g+sg skg fkg i g vg unquote-splicingg p g restg g+sg skg fkg i g vg
quasiquoteg p g g+sg skg fkg ig depthg vg unquoteg p g g+sg skg fkg ig xg depthg vg unquote-splicingg p g g+sg skg fkg ig xg depthg vg pg qg g+sg skg fkg ig depthg vg eltg ... g g+sg skg fkg ig depthg vg xg g+sg skg fkg ig depth C5R4 h , 3 C g dummy
g x g q g g+s g sk g fk g depth g i CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg xg qg g+sg skg fkg depthg i C5R4 h P ]C H g dummy
g expr g ids CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg exprg idsg ... C5R4 r h v ]45 C n g dummy
g letish g args g expr g ids CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg letishg argsg exprg ... g idsg ... C5R4 [ h P ]C H g dummy
g arg g expr CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg argg expr C5R4 r hH , 3 445 5 C g dummy
G g v G g p G g g+s G g sk G g fk G g i G g id G g id-ls G G CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg pg g+sg skg ... g fkg ig ... g idg id-ls g ... C5R4 h | ]C t g dummy
g v g g+s g sk g fk g x C h Z ]C R g dummy
g v g p g x C
h@ , 3 C g dummy
< g v < g p < g q < g g+s < g sk < g fk < g i < < CCD
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
P g
macro-typeg syntax-rulesg patternsg vg g+sg skg fkg xg vg p g xg vg pg qg g+sg skg fkg i C5R4N $%&(r*+. h 8 ] C0 g tmp-1883f58c-a0e
C024 h V ] C N g tmp-1883f58c-a10
g tmp-1883f58c-a0f C6;<7?@BC h V ] C N g tmp-1883f58c-a13
g tmp-1883f58c-a12 CE h , 3 4 5 4 5
4 54 5
45 C g dummy
g v g p g g+s g sk g fk g i g id g id-ls CFWY[]^_hipqrsuw h 8 ] C0 g tmp-1883f58c-a29
Cxz{ h V ] C N g tmp-1883f58c-a2b
g tmp-1883f58c-a2a C|~ h V ] C N g tmp-1883f58c-a2e
g tmp-1883f58c-a2d C h ,
3
4 5
4 5
4 5 C g dummy
g v g p g r g g+s g sk g fk g i g id g id-ls
CCD h@ G ]4 5 $ @4 5 $ @ 6 ? g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
9 g
macro-typeg syntax-rulesg patternsg vg pg g+sg skg ... g fkg ig idg id-ls g ... g vg pg rg g+sg skg ... g fkg ig idg id-ls g ... C5NR4G h [ ] C S g dummy
g x g y g sk Ch = ]C 5 g dummy
g sk C[ h L ] C D g dummy
g x g sk CCD
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
, P g
macro-typeg syntax-rulesg patternsg xg yg sk g sk g xg sk C5GR4w h V ] C N g tmp-1883f58c-a63
g tmp-1883f58c-a62 C h V ] C N g tmp-1883f58c-a67
g tmp-1883f58c-a66 C h 8 ] C0 g tmp-1883f58c-a69
C h ,
3
4
5
4 5 4 5 C g dummy
g v g p g q g g+s g sk g fk g i g id g id-ls
CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
E " g
macro-typeg syntax-rulesg patternsg vg pg qg g+sg skg fkg ig idg id-ls g ... C5wR4 h8 ] C g dummy
1 g v 1 g n 1 g pats 1 g p 1 g q 1 g x 1 1 C( h , 3 C g dummy
g v g n g pats g p g sk g fk g i C/ h < ]C4 g dummy
g x CCD
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
h P g
macro-typeg syntax-rulesg patternsg vg ng patsg pg q g xg vg ng patsg pg ___ g skg fkg i g x C5R4 0EFGHJKMN
hX , 3 4 5 C g dummy
Q g v Q g n Q g pat Q g index Q g sk Q g fk Q g i Q Q CR^`br h0 ]4 5C g dummy
) g v ) g n ) g pats ) g p ) g q ) g x ) ) CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
u 9 g
macro-typeg syntax-rulesg patternsg vg ng patg index g ... g skg fkg i g vg ng patsg ... g pg qg x C5R4L cr h k ] 6 c g dummy
g v
g sk
g fk
g i
Cdxy{|~ hP , 3 C g dummy
L g v L g pat L g index L g rest L g sk L g fk L g i L L CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
9 g
macro-typeg syntax-rulesg patternsg vg skg ... g fkg i g vg patg index g restg skg fkg i C5LR4 N h` , 3 4 5
C g dummy
` g v ` g n ` g pat ` g index ` g p ` g sk ` g fk ` g i ` ` CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg ng patg index g ... g pg skg fkg i C5R4 h( , 3 C g dummy
& g v & g p & g n & g len & g sk & g fk & g i & & CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg pg ng leng skg fkg i C5R4 F h 8 ] C0 g tmp-1883f58c-b23
C h V ] C N g tmp-1883f58c-b25
g tmp-1883f58c-b24 Cr h V ] C N g tmp-1883f58c-b28
g tmp-1883f58c-b27 C h ,
3
4 5 4 54 5
4 5 C g dummy
g v g p g n g len g sk g fk g i g id g id-ls
CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg pg ng leng skg ... g fkg ig idg id-ls g ... C5R4 h` ,
3
C g dummy
^ g v ^ g rec ^ g n ^ g p ^ g q ^ g g+s ^ g sk ^ g fk ^ g i ^
^
Cr h , 3 6 g dummy
g v g rec g n g g+s g sk g fk g i CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
9 g
macro-typeg syntax-rulesg patternsg vg recg ng pg qg g+sg skg fkg i g vg recg ng g+sg skg ... g fkg i C5R4L
h ] ]C U g dummy
g pred g p g x C" h \ ]C T g dummy
g rec g p g x C'0 h ] ]C U g dummy
g proc g p g x C4r h i ] 6 a g dummy
g x
g k
g i
g v
C8EH h i ]C a g dummy
g x g k g i g v CMV h K ]C C g dummy
g p g x C[b h K ]C C g dummy
g p g x Cgn h K ]C C g dummy
g p g x Co|} h8 ] C g dummy
6 g p 6 g q 6 g r 6 g k 6 g i 6 g v 6 6 C h x ] C p g dummy
g p g q g k g i g v C h K ]C C g dummy
g p g x Cr h Z ] 6 R g dummy
g k
g i
g v
Cr h Z ] 6 R g dummy
g k
g i
g v
Cr h Z ] 6 R g dummy
g k
g i
g v
Cr h Z ] 6 R g dummy
g k
g i
g v
Cr
hP i ] 4 54 5 C a g dummy
I g p I g k I g i I g v I I CCD $ h ]4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5 $ !@"# 6 g x
{ g tmp { g tmp " { g tmp 9 { g tmp P { g tmp g { g tmp ~ { g tmp { g tmp { g tmp { g tmp
{ g tmp { g tmp { g tmp
{ g tmp 6 { g tmp M { g tmp d { g filenamef ice-9/match.upstream.scm
{ g
macro-typeg syntax-rulesg patternsg ?g predg pg xg $g recg pg xg =g procg p g xg quoteg x g kg ... g ig v g
quasiquoteg x g kg ig v g andg pg xg org pg xg notg pg xg pg qg rg kg ig v g pg qg kg ig v g pg ... g xg _g kg ... g ig v g ___g kg ... g ig v g ***g kg ... g ig v g ..1g kg ... g ig v g pg kg ... g ig ... g v C5LR4~ rN h( ]454455 C g dummy
' g p ' g k ' g i ' g v ' g v2 ' g v2-ls ' ' CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg pg kg ig vg v2g v2-ls g ... C5~R49 h x ] C p g dummy
g x g k g i g v g d C h x ] C p g dummy
g x g k g i g v g d C h i ] Ca g dummy
g x g k g i g v C h x ] C p g dummy
g x g k g i g v g d C#% h ] C g dummy
g x g y g k g i g v g d C&0 h x ] C p g dummy
g x g k g i g v g d C1r h x ] 6 p g dummy
g x
g k
g i
g v
g d
CCD h 3 ]94 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @ 6 + g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g filenamef ice-9/match.upstream.scm
g
macro-typeg syntax-rulesg patternsg
quasiquoteg x g kg ig vg d g unquote-splicingg x g kg ig vg d g unquoteg x g kg ig v g unquoteg x g kg ig vg d g xg yg kg ig vg d g xg ... g kg ig vg d g xg kg ... g ig vg d C59R4$ 2FrN h0 , 3 454455 C g dummy
- g x - g k - g i - g v - g d - g v2 - g v2-ls - - CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg xg kg ig vg dg v2g v2-ls g ... C5$R4 VYZX h T ]45 C L g dummy
g pattern g body CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg patterng bodyg ... C5 R4
hij h T ]45 C L g dummy
g pattern g body CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg patterng bodyg ... C5
R4 l~N h c ]45C [ g dummy
g var g value g body CN h t ]45C l g dummy
g loop g var g init g body CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
) 9 g
macro-typeg syntax-rulesg patternsg varg value g ... g bodyg loopg varg init g ... g body C5R4 lN h c ]45C [ g dummy
g var g value g body CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
3 " g
macro-typeg syntax-rulesg patternsg varg value g ... g body C5R4m N h s ]45C k g dummy
g let g var g expr g body CN h( ]4545 C g dummy
$ g let $ g var $ g expr $ g pat $ g tmp $ g body $ $ Cr h8 , 3 4 54 5C g dummy
7 g let 7 g v 7 g p 7 g a 7 g b 7 g expr 7 g rest 7 g body 7 7 Cr h@ , 3 4 5445 5C g dummy
9 g let 9 g v 9 g p 9 g a 9 g expr 9 g rest 9 g body 9 9 Cr h( , 3 4 5C g dummy
' g let ' g v ' g p ' g a ' g expr ' g rest ' g body ' ' CCD h H ])4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @
6 @ g x
~ g tmp ~ g tmp " ~ g tmp 9 ~ g tmp P ~ g tmp g ~ g filenamef ice-9/match.upstream.scm
8 ~ g
macro-typeg syntax-rulesg patternsg letg varg expr g ... g bodyg letg varg expr g ... g patg tmp g ... g bodyg letg vg ... g pg ... g ag bg expr g restg bodyg letg vg ... g pg ... g ag ... g expr g restg bodyg letg vg ... g pg ... g ag expr g restg body C5mR4 N h( ]4545 C } g dummy
& g loop & g pat & g expr & g var & g body & & C!r# h( ]4 5C g dummy
! g loop ! g v ! g pat ! g expr ! g rest ! g body ! ! CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
I 9 g
macro-typeg syntax-rulesg patternsg loopg patg exprg var g ... g bodyg loopg vg ... g patg expr g restg body C5R4 $2 h ? ]C7 g dummy
g body C3>? h t ] C l g dummy
g pat g expr g rest g body CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
X 9 g
macro-typeg syntax-rulesg patternsg bodyg patg expr g restg body C5R40 @ h y ]C q g dummy
g a g b g success-k g failure-k CA h j ]C b g dummy
g a g success-k g failure-k C"SUVX[\af h8 k ] C c g dummy
3 g id 3 g success-k 3 g failure-k 3 3 CCD
hP 3 ]4 5 $ @4 5 $ @4 5 $ @ 6+ g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
l P g
macro-typeg syntax-rulesg patternsg ag bg success-kg failure-k g ag ... g success-kg failure-k g idg success-kg failure-k C50R4 @ h y ]C q g dummy
g x g y g success-k g failure-k CA h j ]C b g dummy
g x g success-k g failure-k C"vxy|} h0 j ] C b g dummy
. g x . g success-k . g failure-k . . CCD
hP 2 ]4 5 $ @4 5 $ @4 5 $ @ 6* g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
P g
macro-typeg syntax-rulesg patternsg xg yg success-kg failure-k g xg ... g success-kg failure-k g xg success-kg failure-k C5RC Y g m
( g filenamef ice-9/match.scm
j
C6 PK ! ew( ( ice-9/syncase.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g ice-9 g syncase g filenameS
f ice-9/syncase.scm g exportsS g datum->syntax-object
g syntax-object->datum g sc-expand
g set-current-module g issue-deprecation-warning f bSyntax-case macros are now a part of Guile core; importing (ice-9 syncase) is no longer necessary. g
datum->syntax g
syntax->datum g macroexpandC 5 hX ~ ]4
5 4 > " G 4i> " G i Ri
RiRC v g m
( g filenamef ice-9/syncase.scm
)
/ 4
C
J
Q
S
C6 PK ! \! ! ice-9/string-fun.gonu [ GOOF----LE-8-2.0z! ] - 4 h ] g guile g define-module* g ice-9 g
string-fun g filenameS
f ice-9/string-fun.scm g exportsS g split-after-char
g split-before-char g split-discarding-char g split-after-char-last g split-before-char-last g split-discarding-char-last g split-before-predicate g split-after-predicate g split-discarding-predicate g separate-fields-discarding-char g separate-fields-after-char g separate-fields-before-char g string-prefix-predicate g string-prefix=? g sans-surrounding-whitespace g sans-trailing-whitespace g sans-leading-whitespace g sans-final-newline g has-trailing-newline?
g set-current-module ! " #g string-index $g
string-length %g substring &f 'g
string-rindex (g
string-ref )g reverse *g string=? +g char-whitespace? ,g char=?C 5 h ]4
5 4" > " G #$% h@ ] 4 5 $ " 45 4
5456 g char
= g str = g ret = g t $ g end $ = g filenamef ice-9/string-fun.scm
a
c b
d $ b ) e 3 f = e = g nameg split-after-char C R#$% h@ ] 4 5 $ " 45 4
5456 g char
< g str < g ret < g t # g end # < g filenamef ice-9/string-fun.scm
h
i i
j # i ( k 2 l < k < g nameg split-before-char C
R#%& h8 ] 4 5 $ 4
54566 g char
3 g str 3 g ret 3 g end 3 g filenamef ice-9/string-fun.scm
n
o
o p r
s
' s ) s
+ r 1 q 3 q 3 g nameg split-discarding-char CR'% h8 ] 4 5 $ "
4
5456 g char
7 g str 7 g ret 7 g t g end 7 g filenamef ice-9/string-fun.scm
u
w v
v # y - z 7 y 7 g nameg split-after-char-last CR'% h8 ] 4 5 $ "
4
5456 g char
6 g str 6 g ret 6 g t g end 6 g filenamef ice-9/string-fun.scm
|
} }
} " ~ , 6 ~ 6 g nameg split-before-char-last CR'%& h8 ] 4 5 $ 4
54566 g char
3 g str 3 g ret 3 g end 3 g filenamef ice-9/string-fun.scm
' )
+ 1 3 3 g nameg split-discarding-char-last CR$&(% hX > ] " H45$ 64 455$ 4
5456 "
" 6 g pred
U g str U g ret U g n N g filenamef ice-9/string-fun.scm
1 ( * . 1 - ; - E ( H . N ( N U g nameg split-before-predicate CR$&(% hX a ] " J45$ 64 455$ 4
5456 "
" Y g pred
W g str W g ret W g n P g filenamef ice-9/string-fun.scm
1 ( * . 1 - 9 > ; - < - C < E - G ( J . P ( P W g nameg split-after-predicate CR$&(% hX T ] " I45$ 64 455$ 4
5456 "
" L g pred
V g str V g ret V g n O g filenamef ice-9/string-fun.scm
1 ( * . 1 - ; - B < D - F ( I . O ( O V g nameg split-discarding-predicate CR'% hP O ]" 84 5 $ 454
5 "@ " G g ch
I g str I g ret I g fields > g str > g t > g filenamef ice-9/string-fun.scm
! 0 ! ! $ % 6 > > ? I I g nameg separate-fields-discarding-char CR)#% hX e ]" A4 5 $ 4
545 "4?" "6 ] g ch
V g str V g ret V g fields I g str I g t I g filenamef ice-9/string-fun.scm
" " 3 $ " ' ( / * 1 9 : I J T V V g nameg separate-fields-after-char CR'% hH 9 ]" 74 5 $ 454
5 "@ "1 g ch
H g str H g ret H g fields = g str = g t = g filenamef ice-9/string-fun.scm
! # $ 5 = = > H
H g nameg separate-fields-before-char CR$% h0 ]4 545$ L 4
4 556C g prefix
, g str , g filenamef ice-9/string-fun.scm
$ ( ( *
, C h ] O C w g pred?
g filenamef ice-9/string-fun.scm
g nameg string-prefix-predicate CR4i*i5R$+(&% h ]
4 5HH" 9" 1J4 5$ 44 J55$ JK"" " """ 4" ,
J$ 44 J55$ JK"" " ""JJ$ C JJ6 g s
g st
g end
g filenamef ice-9/string-fun.scm
$ % ( " 2 6 9 ; ? S [ _ ` c " j 0 l " n r u w { g nameg sans-surrounding-whitespace CR$+(&% h` . ] 4 5H" 4" ,
J$ 44 J55$ JK"" " ""J
$ C
J6 & g s
[ g end [ g filenamef ice-9/string-fun.scm
" & 0 ( " * . 1 3 7 K O Q [ [ g nameg sans-trailing-whitespace CR$+(&% h` 4 ]
4 5 H" 4" ,J$ 44 J55$ JK"" " ""J$ C J6, g s
` g st
` g end
` g filenamef ice-9/string-fun.scm
# " - 1 4 6 : O S U ` ` g nameg sans-leading-whitespace C R$,(% h@ ]
4 5$ C4
4 4 555$
4 56 C g str
> g filenamef ice-9/string-fun.scm
% $ ! & ( , 2 9 ; > g nameg sans-final-newline C R$,( h( ]
4 5$
4 4 556C g str
& g filenamef ice-9/string-fun.scm
( $ " $
& g nameg has-trailing-newline? C RC g m
( g filenamef ice-9/string-fun.scm
s a
h
n
H u
|
l
7
\
w
!
C6 PK ! wfIm m ice-9/iconv.gonu [ GOOF----LE-8-2.0U ] 3 4 h ] g guile g define-module* g ice-9 g iconv g filenameS
f ice-9/iconv.scm g importsS g rnrs
g bytevectors
g binary-ports g rdelim g selectS g read-string g exportsS g string->bytevector g bytevector->string g call-with-encoded-output-string g set-current-module ! "g open-output-string #g get-output-string $g
close-port %g call-with-output-string* &g open-bytevector-output-port 'g call-with-output-bytevector* (g error )g set-port-encoding! *g set-port-conversion-strategy! +g string-ci=? ,f utf-8 -g string->utf8 .g display /g open-bytevector-input-port 0g eof-object? 1f 2g utf8->stringC 5 h
{ ]4
5 4! > " G "#$ h@ ]45 4 > " G 45 4> " G C g proc
9 g port 9 g str " 9 g filenamef ice-9/iconv.scm
" % ! 9 g nameg call-with-output-string* C%R&$ h@ ]4> G 4 > " G 45 4> " G C g proc
@ g port @ g get-bytevector @ g bv ) @ g filenamef ice-9/iconv.scm
$
% % ' % ( ) ( , ) @ g nameg call-with-output-bytevector* C'R(')* h@ u ]4 L> " G L$ 4 L> " G " L 6 m g port
: g filenamef ice-9/iconv.scm
8 9 : ;
: < : C+,-% hX - . , 3 # " O 64 5$ & 456"" g encoding
Q g proc Q g conversion-strategy Q g filenamef ice-9/iconv.scm
,
. ? ) 7 ) 1 * 1 0 1 ! 2 1 6 1 : 2 $ > 1 A 6 I 6
Q g nameg call-with-encoded-output-stringg
documentationf yCall PROC on a fresh port. Encode the resulting string as a
bytevector according to ENCODING, and return the bytevector. C R( . h ] ]L 6 U g port
g filenamef ice-9/iconv.scm
J
K
C+,- hP x - . , 3 # " O 645$ & 6"" p g str
L g encoding L g conversion-strategy L g filenamef ice-9/iconv.scm
A
B = ) H ) E * E 0 E ! 2 E 6 E : F $ > E D G L g nameg string->bytevectorg
documentationf hEncode STRING according to ENCODING, which should be a string naming
a character encoding, like "utf-8". CR(/)*$01+,2 h = - . , 3 # " g4 5 4> " G $ 4> " G " 45 4> " G 45$ CC4
5$ & 6"z"v 5 g bv
g encoding g conversion-strategy g p ! g res \ g filenamef ice-9/iconv.scm
N
O = V ! V $ W = X > Y V Z \ Z _ [
q \ { \
} ] S S S ! S S T $ S U g nameg bytevector->stringg
documentationf Decode the string represented by BV. The bytes in the bytevector
will be interpreted according to ENCODING, which should be a string
naming a character encoding, like "utf-8". C RC s g m
, g filenamef ice-9/iconv.scm
N
$
r ,
A
N
C6 PK ! ~ ice-9/stack-catch.gonu [ GOOF----LE-8-2.0 ] 4 hE ] g guile g define-module* g ice-9 g stack-catch g filenameS
f ice-9/stack-catch.scm g importsS g
save-stack
g exportsS g set-current-module g catch g throwC 5 h a ]4
5 4 > " G h( } - 1 3 4 > " G @ u g key
# g args # g filenamef ice-9/stack-catch.scm
+
- # . #
C h ] 6 g key
g thunk g handler g filenamef ice-9/stack-catch.scm
( g nameg stack-catchg
documentationf Like @code{catch}, invoke @var{thunk} in the dynamic context of
@var{handler} for exceptions matching @var{key}, but also save the
current stack state in the @var{the-last-stack} fluid, for the purpose
of debugging or re-throwing of an error. If thunk throws to the
symbol @var{key}, then @var{handler} is invoked this way:
@example
(handler key args ...)
@end example
@var{key} is a symbol or #t.
@var{thunk} takes no arguments. If @var{thunk} returns normally, that
is the return value of @code{catch}.
Handler is invoked outside the scope of its own @code{catch}. If
@var{handler} again throws to the same key, a new handler from further
up the call chain is invoked.
If the key is @code{#t}, then a throw to @emph{any} symbol will match
this call to @code{catch}. CRC Y g m
, g filenamef ice-9/stack-catch.scm
C6 PK ! ?;V ice-9/getopt-long.gonu [ GOOF----LE-8-2.0 ] 4 hY ] g guile g define-module* g ice-9 g getopt-long g filenameS
f ice-9/getopt-long.scm g importsS g common-list
g selectS g
remove-if-not
g srfi g srfi-9 g match g regex g optargs g exportsS !g
option-ref "! #g set-current-module $# %# &g
make-fluid 'f guile (g
%program-name )g program-name *g format +g current-error-port ,f ~a: -g apply .g newline /g exit 0g fatal-error 1g option-spec 2g %%make-option-spec-procedure 3g make-syntax-transformer 43 53 6g %make-option-spec 7g macro 8g $sc-dispatch 98 :8 ;g _ <g any =;<<<<< >g
syntax-object ?g lambda @g m-70fb8ec09b0a817-48c Ag top B@A Cg ribcage Dg t-70fb8ec09b0a817-487 Eg t-70fb8ec09b0a817-488 Fg t-70fb8ec09b0a817-489 Gg t-70fb8ec09b0a817-48a Hg t-70fb8ec09b0a817-48b IDEFGH JBBBBB Kf l-70fb8ec09b0a817-491 Lf l-70fb8ec09b0a817-492 Mf l-70fb8ec09b0a817-493 Nf l-70fb8ec09b0a817-494 Of l-70fb8ec09b0a817-495 PKLMNO QCIJP RC Sg x TS UB Vf l-70fb8ec09b0a817-48e WV XCTUW Yg shift Zg proc-name [g args \Z[ ]A ^]] _f l-1e8ba8b5a-60 `f l-1e8ba8b5a-61 a_` bC\^a cg key dg value eg name fg formals gg body hcdefg i]]]]] jf l-1e8ba8b5a-53 kf l-1e8ba8b5a-54 lf l-1e8ba8b5a-55 mf l-1e8ba8b5a-56 nf l-1e8ba8b5a-57 ojklmn pChio qg make-procedure-name rq s] tf l-1e8ba8b5a-43 ut vCrsu w] xf l-1e8ba8b5a-42 yx zCTwy {BQRXYRRRRbpvz
|g hygiene }| ~>?{} ]QRX | >e g required? > g option-spec->single-char > g predicate > g value-policy > g make-struct g m-70fb8ec09b0a817-485 A g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 A f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a C g ctor-args f l-1e8ba8b5a-120 Cw g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d C^ g form g type-name g constructor-spec g field-names ]]]] f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 C g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers ]]]]]]]] 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 C f l-1e8ba8b5a-da CTw QRXYRRRRR >} >1 >
} ~ g each-any ;ό g syntax-violation f Wrong number of arguments g identifier? ]RX >2 f -source expression failed to match any pattern g record-type-vtable g
pwpwpwpwpw g default-record-printer e g set-struct-vtable-name! g vtable-offset-user g %option-spec?-procedure g option-spec? ;< g m-70fb8ec09b0a817-4a1 A g t-70fb8ec09b0a817-4a0 f l-70fb8ec09b0a817-4a6 C f l-70fb8ec09b0a817-4a3 CT RYRRRRbpvz
>?} 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 A 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
C g copier-id f l-1e8ba8b5a-21c Cw g ctor-name f l-1e8ba8b5a-214 Cw f l-1e8ba8b5a-212 Cw g layout f l-1e8ba8b5a-210 ! "C w! #g
immutable? $# %f l-1e8ba8b5a-20e &% 'C$w& (g field-count )( *f l-1e8ba8b5a-20c +* ,C)w+ -g
getter-ids .- /f l-1e8ba8b5a-209 0/ 1C.w0 2g field-ids 32 4f l-1e8ba8b5a-206 54 6C3w5 7g predicate-name 8g
field-spec 9#78 :]]]]]] ;f l-1e8ba8b5a-1f9 <f l-1e8ba8b5a-1fa =f l-1e8ba8b5a-1fb >f l-1e8ba8b5a-1fc ?f l-1e8ba8b5a-1fd @f l-1e8ba8b5a-1fe A;<=>?@ BC9:A CRYRRRRRRR R"R'R,R1R6B D>C} ED Fg and G>FC} Hg struct? I>HC} JID Kg eq? L>KC} Mg
struct-vtable N>MC} OND P]R Q>1P RLOQ SGJR TES U]R V>U Wg throw-bad-struct XW YW Zg option-spec->name [g %option-spec->name-procedure \g free-id ]g
%%on-error ^g m-70fb8ec09b0a817-4ad _^A `_ af l-70fb8ec09b0a817-4af ba cCT`b d_RcYRRRRbpvz e>]d} f\e gf< hg %%type ig t-1e8ba8b5a-14b jg t-1e8ba8b5a-14c kg t-1e8ba8b5a-14d lg t-1e8ba8b5a-14e mg t-1e8ba8b5a-14f ng t-1e8ba8b5a-150 og t-1e8ba8b5a-151 pijklmno qg m-1e8ba8b5a-152 rqA srrrrrrr tf l-1e8ba8b5a-156 uf l-1e8ba8b5a-157 vf l-1e8ba8b5a-158 wf l-1e8ba8b5a-159 xf l-1e8ba8b5a-15a yf l-1e8ba8b5a-15b zf l-1e8ba8b5a-15c {tuvwxyz |Cps{ }g getter ~g index }~ f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a C^ - ]]] f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 C RcYR|RRRR >h} \ ;g< g ck g err g s __ f l-70fb8ec09b0a817-4b2 f l-70fb8ec09b0a817-4b3 C _RcYRRRRbpvz
>} g quote >} ]Rc >1 g %%index >} \ ;g< f l-70fb8ec09b0a817-4b7 f l-70fb8ec09b0a817-4b8 C _RcYRRRRbpvz
>} >} Rc >
g %%copier >} \ ;g< f l-70fb8ec09b0a817-4bc f l-70fb8ec09b0a817-4bd C _RcYRRRRbpvz
>} >} g %%option-spec-set-fields ]Rc > g t-70fb8ec09b0a817-4ac f l-70fb8ec09b0a817-4c1 C` _RcYRRRRbpvz
>?} RcYR|RRRR >} g if >} >K} >M} ]Rc >1 g
struct-ref >} Rc >
>W} >} >Z ]Rc >[ g option-spec->required? g !%option-spec->required?-procedure g m-70fb8ec09b0a817-4c8 A f l-70fb8ec09b0a817-4ca CT RYRRRRbpvz >]} \ < RYR|RRRR >h} \ ;< f l-70fb8ec09b0a817-4cd f l-70fb8ec09b0a817-4ce C RYRRRRbpvz
>} >} ]R >1 >} \ ;< f l-70fb8ec09b0a817-4d2 f l-70fb8ec09b0a817-4d3 C RYRRRRbpvz
>} >} R > >}
\ ;
< f l-70fb8ec09b0a817-4d7
f l-70fb8ec09b0a817-4d8
C RYRRRRbpvz
>} >} ]R > g t-70fb8ec09b0a817-4c7 f l-70fb8ec09b0a817-4dc C RYRRRRbpvz
>? } RYR|RRRR > } !> } ">K } #>M } $# %]R &>1% '"$& (> } )R *> ) +( * ,>W } -> } .>% /-. 0, / 1!'+0 2 1 3]R 4>3 5g #%option-spec->single-char-procedure 6g m-70fb8ec09b0a817-4e3 76A 87 9f l-70fb8ec09b0a817-4e5 :9 ;CT8: <7R;YRRRRbpvz =>]<} >\= ?>< @R;YR|RRRR A>h@} B\A C;?B< D77 Ef l-70fb8ec09b0a817-4e8 Ff l-70fb8ec09b0a817-4e9 GEF HCDG I7HR;YRRRRbpvz
J>I} K>I} L]HR; M>1L NKM ON P>@} Q\P R;?Q< Sf l-70fb8ec09b0a817-4ed Tf l-70fb8ec09b0a817-4ee UST VCDU W7VR;YRRRRbpvz
X>W} Y>W} ZVR; [> Z \Y[ ]\ ^>@} _\^ `;?_< af l-70fb8ec09b0a817-4f2 bf l-70fb8ec09b0a817-4f3 cab dCDc e7dR;YRRRRbpvz
f>e} g>e} h]dR; i>h jgi kj lg t-70fb8ec09b0a817-4e2 ml nf l-70fb8ec09b0a817-4f7 on pCm8o q7pR;YRRRRbpvz
r>?q} spR;YR|RRRR t>s} ut v>s} w>Ks} x>Ms} yxt z]pR; {>1z |wy{ }>s} ~pR; > ~ }t >Ws} >s} >z t v| ru ]R; >5 g option-spec->predicate g !%option-spec->predicate-procedure g m-70fb8ec09b0a817-4fe A f l-70fb8ec09b0a817-500 CT RYRRRRbpvz >]} \ < RYR|RRRR >h} \ ;< f l-70fb8ec09b0a817-503 f l-70fb8ec09b0a817-504 C RYRRRRbpvz
>} >} ]R >1 >} \ ;< f l-70fb8ec09b0a817-508 f l-70fb8ec09b0a817-509 C RYRRRRbpvz
>} >} R > >} \ ;< f l-70fb8ec09b0a817-50d f l-70fb8ec09b0a817-50e C RYRRRRbpvz
>} >} ]R > g t-70fb8ec09b0a817-4fd f l-70fb8ec09b0a817-512 C RYRRRRbpvz
>?} RYR|RRRR >} >} >K} >M} ]R >1 >} R > >W} >} > ]R > g option-spec->value-policy g $%option-spec->value-policy-procedure g m-70fb8ec09b0a817-519 A f l-70fb8ec09b0a817-51b CT RYRRRRbpvz >]} \ < RYR|RRRR >h} \ ;< f l-70fb8ec09b0a817-51e f l-70fb8ec09b0a817-51f C RYRRRRbpvz
>} >} ]R >1 >} \ ;< f l-70fb8ec09b0a817-523 f l-70fb8ec09b0a817-524 C RYRRRRbpvz
>} >} R >
>} \
; <
f l-70fb8ec09b0a817-528 f l-70fb8ec09b0a817-529
C RYRRRRbpvz
>} >} ]R > g t-70fb8ec09b0a817-518 f l-70fb8ec09b0a817-52d C RYRRRRbpvz
>? } RYR|RRRR > } ! "> } #>K } $>M } %$ &] R '>1& (#%' )> } * R +> * ,) + ->W } .> } />& 0./ 1- 0 2"(,1 3 !2 4]R 5>4 6g each 7<< 867 9<8 :<9 ;<: <g %%set-fields =g dummy >g check? ?g expr @=>}? Ag m-70fb8ec09b0a817-534 BAA CB Df l-70fb8ec09b0a817-539 Ef l-70fb8ec09b0a817-53a Ff l-70fb8ec09b0a817-53b Gf l-70fb8ec09b0a817-53c Hf l-70fb8ec09b0a817-53d IDEFGH JC@CI KB Lf l-70fb8ec09b0a817-536 ML NCTKM Og t-1e8ba8b5a-16a Pg t-1e8ba8b5a-16c Qg t-1e8ba8b5a-16b ROPQ Sg m-1e8ba8b5a-16d TSA UTTT Vf l-1e8ba8b5a-171 Wf l-1e8ba8b5a-172 Xf l-1e8ba8b5a-173 YVWX ZCRUY [f l-1e8ba8b5a-167 \f l-1e8ba8b5a-168 ]f l-1e8ba8b5a-169 ^[\] _C^ `JRNYRZRRR_
a><`} b]JRN c>1b d>Zb e>b f>b g>b h>b idefgh jg map kj lj mg list ng set-option-spec-name! og %set-option-spec-name!-procedure p;<< qg m-70fb8ec09b0a817-548 rqA sg t-70fb8ec09b0a817-546 tg t-70fb8ec09b0a817-547 ust vrr wf l-70fb8ec09b0a817-54d xf l-70fb8ec09b0a817-54e ywx zCuvy {r |f l-70fb8ec09b0a817-54a }| ~CT{} rzR~YRRRRbpvz
>?} g t-1e8ba8b5a-18c g t-1e8ba8b5a-18d g m-1e8ba8b5a-18e A f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 C g setter e} f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 C 8~ f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e C^ g field-specs f l-1e8ba8b5a-179 f l-1e8ba8b5a-17a C^ zR~YRRR >} g val >} >} >K} >M} ]zR~ >1 g struct-set! >} zR~ >
>W} >} >n ]R~ >o g set-option-spec-required?! g %%set-option-spec-required?!-procedure g m-70fb8ec09b0a817-558 A g t-70fb8ec09b0a817-556 g t-70fb8ec09b0a817-557 f l-70fb8ec09b0a817-55d f l-70fb8ec09b0a817-55e C f l-70fb8ec09b0a817-55a CT RYRRRRbpvz
>?} RYRRR >} >} >} >K} >M} ]R >1 >} R > >W} >} > ]R > g set-option-spec-single-char! g '%set-option-spec-single-char!-procedure g m-70fb8ec09b0a817-568 A g t-70fb8ec09b0a817-566 g t-70fb8ec09b0a817-567 f l-70fb8ec09b0a817-56d f l-70fb8ec09b0a817-56e C f l-70fb8ec09b0a817-56a CT RYRRRRbpvz
>?} RYRRR >} >} >} >K} >M} ]R >1 >} R > >W} >} > ]R
> g set-option-spec-predicate! g %%set-option-spec-predicate!-procedure
g m-70fb8ec09b0a817-578
A g t-70fb8ec09b0a817-576 g t-70fb8ec09b0a817-577 f l-70fb8ec09b0a817-57d f l-70fb8ec09b0a817-57e C f l-70fb8ec09b0a817-57a CT RYRRRRbpvz
>?} RYRRR > } > } !> } ">K } #>M } $# %]R &>1% '"$& (> } )R *> ) +( * ,>W } -> } .> % /-. 0, / 1!'+0 2 1 3]R 4> 3 5g set-option-spec-value-policy! 6g (%set-option-spec-value-policy!-procedure 7g m-70fb8ec09b0a817-588 87A 9g t-70fb8ec09b0a817-586 :g t-70fb8ec09b0a817-587 ;9: <88 =f l-70fb8ec09b0a817-58d >f l-70fb8ec09b0a817-58e ?=> @C;<? A8 Bf l-70fb8ec09b0a817-58a CB DCTAC E8@RDYRRRRbpvz
F>?E} G@RDYRRR H>G} I>G} JHI K>G} L>KG} M>MG} NMH O]@RD P>1O QLNP R>G} S@RD T> S URHTI V>WG} W>G} X>5O YWX ZVHY [KQUZ \FJ[ ]]RD ^>6] _g make-option-spec `g symbol->string ag for-each bg error cf $invalid getopt-long option property: db eb ff no matching pattern gf option predicate failed: --~a hg single-char ig char? jf #`single-char' value must be a char! kg parse-option-spec lg reverse mg string=? nf -- og split-arg-list pg make-regexp qf ^-([a-zA-Z]+)(.*) rg short-opt-rx sf ^--([^=]+)$ tg long-opt-no-value-rx uf ^--([^=]+)=(.*) vg long-opt-with-value-rx wg regexp-exec xg looks-like-an-option yg make-string zg optional {f ,option must be specified with argument: --~a |g match:substring }g assoc-ref ~f no such option: -~a g append g
string-append f - g string->list f g length f no such option: --~a f &option does not support argument: --~a g process-options g stop-at-first-non-optionS g assq-ref f option must be specified: --~a g string->symbolC 5 hP[ ^ ]4
"5 4% > " G 4&i'5(R( h a ] [C Y g filenamef ice-9/getopt-long.scm
g nameg program-name C)R*+,)-./ h` - 1 3 445 45 > " G 445 > " G 445 > " G 6 g fmt
Z g args Z g filenamef ice-9/getopt-long.scm
& & + 8 A D M Z Z
g nameg fatal-error C0R1 h ] C g name
g required? g option-spec->single-char g predicate g value-policy g filenamef ice-9/getopt-long.scm
g nameg %%make-option-spec-procedure C2R4567:= h ] C g t-70fb8ec09b0a817-487
g t-70fb8ec09b0a817-488 g t-70fb8ec09b0a817-489 g t-70fb8ec09b0a817-48a g t-70fb8ec09b0a817-48b C6 h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
n C56R1 4 1> " G 2i 1R1 h ~ ] $ CC v g obj
g filenamef ice-9/getopt-long.scm
g nameg %option-spec?-procedure CR457:T h = ] C 5 g t-70fb8ec09b0a817-4a0
C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.scm
CV 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/getopt-long.scm
n C5R1YZ h ] &
C 6y g s
g filenamef ice-9/getopt-long.scm
g nameg %option-spec->name-procedure C[R45Z7: 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 5 g t-70fb8ec09b0a817-4ac
CZ h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
C5ZR1Y h ] & C 6~ g s
g filenamef ice-9/getopt-long.scm
g nameg !%option-spec->required?-procedure CR457: h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C2 h = ] C 5 g t-70fb8ec09b0a817-4c7
C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.scm
C4 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/getopt-long.scm
C5R1Y h ] & C 6 g s
g filenamef ice-9/getopt-long.scm
g nameg #%option-spec->single-char-procedure C5R457:CJO h : ]C 2 g err
g s CRX] h : ]C 2 g err
g s C`fk h : ]C 2 g err
g s C h = ] C 5 g t-70fb8ec09b0a817-4e2
C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
C5R1Y h ] & C 6 ~ g s
g filenamef ice-9/getopt-long.scm
g nameg !%option-spec->predicate-procedure CR457: 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 5 g t-70fb8ec09b0a817-4fd
C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
C5R1Y h ] & C 6 g s
g filenamef ice-9/getopt-long.scm
g nameg $%option-spec->value-policy-procedure CR457: h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C3 h = ] C 5 g t-70fb8ec09b0a817-518
C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.scm
C5 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/getopt-long.scm
C5R457:;acilm 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/getopt-long.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R1Yn h ] &
C 6 g s
g val g filenamef ice-9/getopt-long.scm
g nameg %set-option-spec-name!-procedure CoR45n7:p h ` ] C X g t-70fb8ec09b0a817-546
g t-70fb8ec09b0a817-547 Cn h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
n C5nR1Y h ] & C 6 g s
g val g filenamef ice-9/getopt-long.scm
g nameg %%set-option-spec-required?!-procedure CR457:p h ` ] C X g t-70fb8ec09b0a817-556
g t-70fb8ec09b0a817-557 C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
n C5R1Y h ] & C 6 g s
g val g filenamef ice-9/getopt-long.scm
g nameg '%set-option-spec-single-char!-procedure CR457:p h ` ] C X g t-70fb8ec09b0a817-566
g t-70fb8ec09b0a817-567 C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
n C5R1Y h ] & C 6 g s
g val g filenamef ice-9/getopt-long.scm
g nameg %%set-option-spec-predicate!-procedure C R45 7:p2 h ` ] C X g t-70fb8ec09b0a817-576
g t-70fb8ec09b0a817-577 C h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.scm
C4 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/getopt-long.scm
n C5 R1Y5 h ] & C 6 g s
g val g filenamef ice-9/getopt-long.scm
g nameg (%set-option-spec-value-policy!-procedure C6R4557:p\ h ` ] C X g t-70fb8ec09b0a817-586
g t-70fb8ec09b0a817-587 C5 h Y ]L 6 Q g a
g filenamef ice-9/getopt-long.scm
C; h I ] L 6A g filenamef ice-9/getopt-long.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/getopt-long.scm
n C55R1 h ] C y g name
g filenamef ice-9/getopt-long.scm
g nameg make-option-spec C_R_`abcef10g h( ]
$ 4L 5 $ C 6C g name
$ g val $ g t " g filenamef ice-9/getopt-long.scm
) " # $ CY hijd5 h ]" " *" " R $ > $ ( 64 56 4 56 4 56 $ O & 9$ .( # L &
L O C L
6"`"\"X"T $ k & U$ J( ? 4 5$ " 4
> " G L & L C L 6"""" $ J & 4$ )( L & L C L 6"""" $ I & 3$ (( L & L C L 6"5"1"-") g expr
g w W g x W g w q g x q g w g w 0 g x 0 g w $ g w A g x A g w ^ y g w g x g w g filenamef ice-9/getopt-long.scm
9 = > ( c } C h0 ] 44 55 4O > " G C g desc
. g spec . g filenamef ice-9/getopt-long.scm
0
# . g nameg parse-option-spec CkRlmn hP J ]" <( 45C45$ 45C " " B g
argument-list
M g yes B g no B g filenamef ice-9/getopt-long.scm
* $ ! % & * / 8 0 $ 4 7 : * B B C M M g nameg split-arg-list CoR4piq5rR4pis5tR4piu5vRwrvt h8 ] 4 5 $ C4 5 $ C 6 g string
2 g t 2 g t 2 g filenamef ice-9/getopt-long.scm
2 2 g nameg looks-like-an-option CxRj1YZ h n ] &
" 4 5 Cf g spec
g filenamef ice-9/getopt-long.scm
Cy1Y h( ]4 & " 4 55 C x g spec
' g filenamef ice-9/getopt-long.scm
, # & ' C5z1Yx0{Zlwr|}~y h t ]4 56l g c
g filenamef ice-9/getopt-long.scm
) : > + Cmtvef !h( < ]k4 544 55 " " & " 4 5& P
( " 4
5$
"
" & " 4 5& V
( " 4
5$ &
" 4
56
"
"( 45C$
4 5 $
$ ;4 5 4 5
$
" 4 5
"4 5 4444 5554 5$ " 5
4
54
5 "(4 5 $ ;4 5
4
5 $ " 4
5
"4 5
$ l4
5 45 $ " 4 5 & " 4 5$ 4
5
"k 6"
"C$
$ 4455C""4 56
" 4 g specs
& g argument-ls & g stop-at-first-non-option & g idx & g sc-idx & g unclumped # g argument-ls # g found # g etc # g spec ' ( g ls
' ( g w F g x
F g t S g c k g t
v g spec
g extra g unclumped-opts
g t g opt
G g t 9 g spec 9 G g t
P g opt ` g t k g spec g filenamef ice-9/getopt-long.scm
# ' ) , H N O T Y ( [ _
b h ' y ~ $ 9 - (
$ 9 - # (
. 1 8 < K S
_
c
d k n % v ! % 2 % " $ ) * ) $ ( 2 ( $ < @
! ! " ! " . # ! 2 # . 6 # ! 9 ! G $ H % P
Y ' ` ' c ( ! k ( z ) ! ~ ) . ) ! ' * * + ' + ! + , # , 2 2 , 2
/ . 0 0 0 0 > H & | & g nameg process-options CR(jkoa1YZ0 h ] &
" 4 54L 5 & " 4 5$ "$ " 4> " G " & " 4 5 $ 6C g spec
g name % g val % g pred g filenamef ice-9/getopt-long.scm
] ^ _ % ^ , ` G ` M a R b V b * ] b l d d e e C1YZ h0 ] 4 &
" 45 5C g spec+val
. g s
) g filenamef ice-9/getopt-long.scm
g i
i ?
i , + i , h . C h - / 0 3
# Y45 4 5 45 45 4 O > " G 4
> " G ZCZF g program-arguments
g option-desc-list g stop-at-first-non-option g specifications , g pair 6 g split-ls ; g non-split-ls @ g found/etc M g found R g rest-ls ^
g filenamef ice-9/getopt-long.scm
4
! T $ U , U / V 4 V ! 6 V 6 U ; W ; U @ X @ U C Y M U R [ R U U \ Z \ ^ \ ^ U a ] z g k k k
g stop-at-first-non-optionS g nameg getopt-longg
documentationf /Process options, handling both long and short options, similar to
the glibc function 'getopt_long'. PROGRAM-ARGUMENTS should be a value
similar to what (program-arguments) returns. OPTION-DESC-LIST is a
list of option descriptions. Each option description must satisfy the
following grammar:
<option-spec> :: (<name> . <attribute-ls>)
<attribute-ls> :: (<attribute> . <attribute-ls>)
| ()
<attribute> :: <required-attribute>
| <arg-required-attribute>
| <single-char-attribute>
| <predicate-attribute>
| <value-attribute>
<required-attribute> :: (required? <boolean>)
<single-char-attribute> :: (single-char <char>)
<value-attribute> :: (value #t)
(value #f)
(value optional)
<predicate-attribute> :: (predicate <1-ary-function>)
The procedure returns an alist of option names and values. Each
option name is a symbol. The option value will be '#t' if no value
was specified. There is a special item in the returned alist with a
key of the empty list, (): the list of arguments that are not options
or option values.
By default, options are not required, and option values are not
required. By default, single character equivalents are not supported;
if you want to allow the user to use single character options, you need
to add a `single-char' clause to the option description. CR h C ] 4 5 $ CC ; g options
g key g default g t g filenamef ice-9/getopt-long.scm
m
p p g nameg
option-refg
documentationf qReturn value in alist OPTIONS using KEY, a symbol; or DEFAULT if not found.
The value is either a string or `#t'. C!RCV g m
, g rtd
| g filenamef ice-9/getopt-long.scm
- 3 " 5 8
$
E
7
=
?
? ? , ? ?
? ? , ? ?
? ? , ? ?
@
M
Y 4
[N m
[P
C6 PK ! 21- -
ice-9/r4rs.gonu [ GOOF----LE-8-2.0l- ] ' 4 ho ] g apply:nconc2last g apply g call-with-current-continuation g call-with-values g dynamic-wind f r g OPEN_READ f w g
OPEN_WRITE
f r+ g OPEN_BOTH f /dev/null
g
*null-device* g open-file g open-input-file g open-output-file g open-io-file g close-input-port g call-with-input-file g close-output-port g call-with-output-file g set-current-input-port g with-input-from-port g set-current-output-port g with-output-to-port g set-current-error-port g with-error-to-port g with-input-from-file g with-output-to-file g with-error-to-file g call-with-input-string g with-input-from-string !g call-with-output-string "g with-output-to-string #g with-error-to-string $f %g read-char &g the-eof-objectC 5 hh( B ] h - 1 3 45@ g fun
g args g filenamef ice-9/r4rs.scm
!
" "
g nameg apply CR h ] B ~ g proc
g filenamef ice-9/r4rs.scm
#
$ g nameg call-with-current-continuation CR h ]4 > 6< g producer
g consumer g filenamef ice-9/r4rs.scm
%
& g nameg call-with-values CR hH } ] 4 > " G V4> X4> " G CX4> " G F u g in
C g thunk C g out C g filenamef ice-9/r4rs.scm
'
Y Y ! Y C g nameg dynamic-windg
documentationf All three arguments must be 0-argument procedures.
Guard @var{in} is called, then @var{thunk}, then
guard @var{out}.
If, any time during the execution of @var{thunk}, the
continuation of the @code{dynamic_wind} expression is escaped
non-locally, @var{out} is called. If the continuation of
the dynamic-wind is re-entered, @var{in} is called. Thus
@var{in} and @var{out} may be called any number of
times.
@lisp
(define x 'normal-binding)
@result{} x
(define a-cont
(call-with-current-continuation
(lambda (escape)
(let ((old-x x))
(dynamic-wind
;; in-guard:
;;
(lambda () (set! x 'special-binding))
;; thunk
;;
(lambda () (display x) (newline)
(call-with-current-continuation escape)
(display x) (newline)
x)
;; out-guard:
;;
(lambda () (set! x old-x)))))))
;; Prints:
special-binding
;; Evaluates to:
@result{} a-cont
x
@result{} normal-binding
(a-cont #f)
;; Prints:
special-binding
;; Evaluates to:
@result{} a-cont ;; the value of the (define a-cont...)
x
@result{} normal-binding
a-cont
@result{} special-binding
@end lisp CRR R
R
R h 2 ] 6 * g str
g filenamef ice-9/r4rs.scm
t
x
g nameg open-input-fileg
documentationf Takes a string naming an existing file and returns an input port
capable of delivering characters from the file. If the file
cannot be opened, an error is signalled. CR h ] 6 g str
g filenamef ice-9/r4rs.scm
z
g nameg open-output-fileg
documentationf Takes a string naming an output file to be created and returns an
output port capable of writing characters to a new file by that
name. If the file cannot be opened, an error is signalled. If a
file with the given name already exists, the effect is unspecified. CR h ] 6 g str
g filenamef ice-9/r4rs.scm
g nameg open-io-fileg
documentationf 2Open file with name STR for both input and output. CR h8 8 ]4 5 4> G 4> " G E 0 g str
1 g proc 1 g p 1 g vals 1 g filenamef ice-9/r4rs.scm
1 1 g nameg call-with-input-fileg
documentationf EPROC should be a procedure of one argument, and STR should be a
string naming a file. The file must
already exist. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output. If the file cannot be opened, an error is
signalled. If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation. CR h8 V ]4 5 4> G 4> " G E N g str
1 g proc 1 g p 1 g vals 1 g filenamef ice-9/r4rs.scm
1 1 g nameg call-with-output-fileg
documentationf bPROC should be a procedure of one argument, and STR should be a
string naming a file. The behaviour is unspecified if the file
already exists. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output. If the file cannot be opened, an error is
signalled. If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation. CR h i ] 4M 5N C a g filenamef ice-9/r4rs.scm
)
g nameg swaports C hX ]
H O Q 4> " G V4> X4> " G CX4> " G F g port
T g thunk T g swaports T g filenamef ice-9/r4rs.scm
T g nameg with-input-from-port CR h i ] 4M 5N C a g filenamef ice-9/r4rs.scm
)
g nameg swaports C hX ]
H O Q 4> " G V4> X4> " G CX4> " G F g port
T g thunk T g swaports T g filenamef ice-9/r4rs.scm
T g nameg with-output-to-port CR h i ] 4M 5N C a g filenamef ice-9/r4rs.scm
)
g nameg swaports C hX ]
H O Q 4> " G V4> X4> " G CX4> " G F g port
T g thunk T g swaports T g filenamef ice-9/r4rs.scm
T g nameg with-error-to-port CR h [ ] L 6 S g p
g filenamef ice-9/r4rs.scm
C h ] O 6 g file
g thunk g filenamef ice-9/r4rs.scm
g nameg with-input-from-fileg
documentationf
THUNK must be a procedure of no arguments, and FILE must be a
string naming a file. The file must already exist. The file is opened for
input, an input port connected to it is made
the default value returned by `current-input-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored. Returns the values yielded by THUNK. If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent. C R h [ ] L 6 S g p
g filenamef ice-9/r4rs.scm
C h ] O 6 g file
g thunk g filenamef ice-9/r4rs.scm
g nameg with-output-to-fileg
documentationf *THUNK must be a procedure of no arguments, and FILE must be a
string naming a file. The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-output-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored. Returns the values yielded by THUNK. If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent. C R h [ ] L 6 S g p
g filenamef ice-9/r4rs.scm
C h ] O 6 g file
g thunk g filenamef ice-9/r4rs.scm
g nameg with-error-to-fileg
documentationf )THUNK must be a procedure of no arguments, and FILE must be a
string naming a file. The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-error-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored. Returns the values yielded by THUNK. If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent. C R h [ ] L 6 S g p
g filenamef ice-9/r4rs.scm
C h # ] O 6 g string
g thunk g filenamef ice-9/r4rs.scm
g nameg with-input-from-stringg
documentationf xTHUNK must be a procedure of no arguments.
The test of STRING is opened for
input, an input port connected to it is made,
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed.
Returns the values yielded by THUNK. If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent. C R! h [ ] L 6 S g p
g filenamef ice-9/r4rs.scm
C h ] O 6 g thunk
g filenamef ice-9/r4rs.scm
g nameg with-output-to-stringg
documentationf /Calls THUNK and returns its output as a string. C"R! h [ ] L 6 S g p
g filenamef ice-9/r4rs.scm
C h ] O 6 g thunk
g filenamef ice-9/r4rs.scm
g nameg with-error-to-stringg
documentationf 5Calls THUNK and returns its error output as a string. C#R4 i$% h [ ] 6S g p
g filenamef ice-9/r4rs.scm
2 > C5&RC : g filenamef ice-9/r4rs.scm !
Y #
%
'
n n
o o
p p
r r
M t
z
s
j
g
"I
%
&p
'
' ' / (] (`
(b
C6 PK ! SD1 D1 ice-9/common-list.gonu [ GOOF----LE-8-2.0,1 ] 2 4 h5 ] g guile g define-module* g ice-9 g common-list g filenameS
f ice-9/common-list.scm g exportsS g adjoin
g union g intersection g set-difference g reduce-init g reduce g some g every g notany g notevery g count-if g find-if g member-if g remove-if g
remove-if-not g
delete-if! g delete-if-not! g butlast g and? g or? g has-duplicates? !g pick "g
pick-mappings #g uniq $
!"# %g set-current-module &% '% (g memq )g reverse! *g memv +g map ,g car -g cdr .g length /g error 0f negative argument to butlast 1g memberC 5 hp, * ]4
$5 4' > " G ( h ]4 5$ C C g e
g l g filenamef ice-9/common-list.scm
M
O O O g nameg adjoing
documentationf GReturn list L, possibly with element E added if it is not already in L. C R
h( 7 ] ( C( C 4 56 / g l1
% g l2 % g filenamef ice-9/common-list.scm
Q
U W W W & # W % W % g nameg uniong
documentationf wReturn a new list that is the union of L1 and L2.
Elements that occur in both lists occur only once in
the result list. C
R)* hX ]( C" 8( 645$ " " " g l1
R g l2 R g l1 G g result G g filenamef ice-9/common-list.scm
Y
\ ] ^ ^ _ ! _ % _ ) ^ , _ ( / _ 7 2 _ 1 : _ " = ` G ` G ] J ] ! R ] R g nameg intersectiong
documentationf yReturn a new list that is the intersection of L1 and L2.
Only elements that occur in both lists occur in the result list. CR)* hP r ]" 8( 645$
" " " j g l1
I g l2 I g l1 > g result > g filenamef ice-9/common-list.scm
b
d e e f f f e # f $ - f 0 g 3 g % 6 g > g > d A d I d I g nameg set-differenceg
documentationf 5Return elements from list L1 that are not in list L2. CR h ]( C 4 56 g p
g init g l g filenamef ice-9/common-list.scm
i
k m m m m & m g nameg reduce-initg
documentationf ESame as `reduce' except it implicitly inserts INIT at the start of L. CR h( ]( C( C 6 g p
" g l " g filenamef ice-9/common-list.scm
o
u v u v w w % " w " g nameg reduceg
documentationf 9Combine all the elements of sequence L using a binary operation P.
The combination is left-associative. For example, using +, one can
add up all the elements. `reduce' allows you to apply a function which
accepts only two arguments to more than 2 objects. Functional
programmers usually refer to this as foldl. CR+,- h $ - 1 3 ( 0" $( C4 5 $ C " "" 8( C4 45? $ C45 " " g pred
g l g rest g l 7 g t # 7 g l C { g rest C { g t \ { g filenamef ice-9/common-list.scm
y
! # # 1 ) 7 # 7 C I L Q % R - \ \ j k ' { {
g nameg someg
documentationf pPRED is a boolean function of as many arguments as there are list
arguments to `some', i.e., L plus any optional arguments. PRED is
applied to successive elements of the list arguments in order. As soon
as one of these applications returns a true value, return that value.
If no application returns a true value, return #f.
All the lists should have the same length. CR+,- h C - 1 3 ( +" ( C4 5$ "C "" 3( C4 45?$ 45 "C " ; g pred
} g l } g rest } g l 2 g l > q g rest > q g filenamef ice-9/common-list.scm
! # ' * ) 0 # 2 > D E G L % M - W [ ^ _ ' o q }
g nameg everyg
documentationf Return #t iff every application of PRED to L, etc., returns #t.
Analogous to `some' except it returns #t if every application of
PRED is #t and #f otherwise. CR h U - 1 3 4 ?C M g pred
g ls g filenamef ice-9/common-list.scm
g nameg notanyg
documentationf Return #t iff every application of PRED to L, etc., returns #f.
Analogous to some but returns #t if no application of PRED returns a
true value or #f as soon as any one does. CR h S - 1 3 4 ?C K g pred
g ls g filenamef ice-9/common-list.scm
g nameg noteveryg
documentationf Return #t iff there is an application of PRED to L, etc., that returns #f.
Analogous to some but returns #t as soon as an application of PRED returns #f,
or #f otherwise. CRhH h ]" 0( C4 5$ " "
" ` g pred
A g l A g n 6 g l 6 g filenamef ice-9/common-list.scm
! ( ) . 6 6 A g nameg count-ifg
documentationf IReturn the number of elements in L for which (PRED element) returns true. CR h( X ]( C4 5$ C 6 P g pred
# g l # g filenamef ice-9/common-list.scm
! #
# g nameg find-ifg
documentationf |Search for the first element in L for which (PRED element) returns true.
If found, return that element, otherwise return #f. CR h( ]( C4 5$ C 6 g pred
" g l " g filenamef ice-9/common-list.scm
" " g nameg member-ifg
documentationf 9Return the first sublist of L for whose car PRED is true. CR) hH ]" 6( 64 5$
" " " g pred
G g l G g l < g result < g filenamef ice-9/common-list.scm
! + . 1 $ 4 < < ? G G g nameg remove-ifg
documentationf WRemove all elements from L where (PRED element) is true.
Return everything that's left. CR) hH ]" 6( 64 5$ " " " g pred
G g l G g l < g result < g filenamef ice-9/common-list.scm
! $ $ ' / 2 & < < ? G G g nameg
remove-if-notg
documentationf URemove all elements from L where (PRED element) is #f.
Return everything that's left. CRh0 ] ( C4L 5$ " 4L 5 C g l
- g filenamef ice-9/common-list.scm
% " ' " ) * - g nameg delete-if C h ]
O Q 6 g pred
g l g delete-if g filenamef ice-9/common-list.scm
g nameg
delete-if!g
documentationf #Destructive version of `remove-if'. CRh0 ] ( C4L 5$ 4L 5 C " g l
- g filenamef ice-9/common-list.scm
& ! ' / - - g nameg
delete-if-not C h ]
O Q 6 g pred
g l g
delete-if-not g filenamef ice-9/common-list.scm
g nameg delete-if-not!g
documentationf 'Destructive version of `remove-if-not'. C R h( ] ( C
$ 4L 5CC g lst
% g n % g filenamef ice-9/common-list.scm
( , 6 ! ( " $ % g nameg bl C./0 hH < ]HO Q 4 5 K
$
45" J6 4 g lst
B g n B g l B g bl
B g l % g filenamef ice-9/common-list.scm
, 1 2 6 : B B g nameg butlastg
documentationf *Return all but the last N elements of LST. C R h( - 1 3 ( C $ @C g args
! g filenamef ice-9/common-list.scm
!
g nameg and?g
documentationf #Return #t iff all of ARGS are true. C R h( - 1 3 ( C $ C @ g args
! g filenamef ice-9/common-list.scm
! !
g nameg or?g
documentationf "Return #t iff any of ARGS is true. C R1 h( ] ( C4 5$ C 6 g lst
" g filenamef ice-9/common-list.scm
"
" g nameg has-duplicates?g
documentationf 3Return #t iff 2 members of LST are equal?, else #f. C R hH ]" 3( C4 5$ " " " g p
D g l D g s 9 g l 9 g filenamef ice-9/common-list.scm
$ ! $ / , 1 9 9 : D D g nameg pickg
documentationf ZApply P to each element of L, returning a list of elts
for which P returns a non-#f value. C!R hH ]" 6( C4 5 $ " " " g p
G g l G g s < g l < g t < g filenamef ice-9/common-list.scm
$ 0 ' A / * 4 < < = G G g nameg
pick-mappingsg
documentationf PApply P to each element of L, returning a list of the
non-#f return values of P. C"R)( hH \ ]" 1( 645$ " " " T g l
B g acc 7 g l 7 g filenamef ice-9/common-list.scm
) , / 7 7 8 B B g nameg uniqg
documentationf @Return a list containing elements of L, with duplicates removed. C#RC " g m
( g filenamef ice-9/common-list.scm 4
A M
Q
Y
b
i
K o
y
p
C
#w
$
%
&
(
*
,g
,i
C6 PK ! B16 2 2 ice-9/ls.gonu [ GOOF----LE-8-2.0 ] % 4 hU ] g guile g define-module* g ice-9 g ls g filenameS
f ice-9/ls.scm g importsS g common-list
g exportsS g local-definitions-in g definitions-in g lls g recursive-local-define g set-current-module g nested-ref-module g
module-map g
nested-ref g reduce g union g map g module-uses g current-module !g reverse! "g reverse #g module-define! $g make-modules-inC 5 h x ]4
5 4 > " G h ^ ] C V g k
g v g filenamef ice-9/ls.scm
: C h( ]
4 5 $ 6 6 g root
# g names # g m # g filenamef ice-9/ls.scm
7
8 8 9 : # ; # g nameg local-definitions-in CR h ` ] 6 X g m2
g filenamef ice-9/ls.scm
B B ; B ( C h8 ]
4 5 $ 4544556 6 g root
8 g names 8 g m 8 g filenamef ice-9/ls.scm
=
> > ? A A . A B % C - B . A 0 @ 8 D 8 g nameg definitions-in CR h q ] 445 5C i g ref
g filenamef ice-9/ls.scm
I J J , J J C h8 - 1 3 $ $ 645 645 6 g various-refs
5 g filenamef ice-9/ls.scm
F
G G H H I " L ) L + + L
. M 3 M ' 5 M
5
g nameg ls CR h q ] 445 5C i g ref
g filenamef ice-9/ls.scm
R S S 2 S S C h8 - 1 3 $ $ 645 645 6 g various-refs
5 g filenamef ice-9/ls.scm
O
P P Q Q R " U ) U 1 + U
. V 3 V - 5 V
5
g nameg lls CR!"#$ h( ]
44 55 445 5 6 g name
% g value % g parent % g filenamef ice-9/ls.scm
X
Y Y
Y Y Y Z Z % Z % Z % g nameg recursive-local-define CRCp g m
, g filenamef ice-9/ls.scm
7
i =
F
O
X
C6 PK ! ]m) ice-9/posix.gonu [ GOOF----LE-8-2.0 ] 1 4 ha ] g stat:dev g stat:ino g stat:mode g
stat:nlink g stat:uid g stat:gid g stat:rdev g stat:size g
stat:atime
g
stat:mtime g
stat:ctime g stat:blksize
g stat:blocks g stat:atimensec g stat:mtimensec g stat:ctimensec g stat:type g
stat:perms g passwd:name g
passwd:passwd g
passwd:uid g
passwd:gid g passwd:gecos g
passwd:dir g passwd:shell g
group:name g group:passwd g group:gid g group:mem g utsname:sysname g utsname:nodename g utsname:release !g utsname:version "g utsname:machine #g getpw $g getpwent %g setpw &g setpwent 'g endpwent (g getpwnam )g getpwuid *g getgr +g getgrent ,g setgr -g setgrent .g endgrent /g getgrnam 0g getgrgidC 5 h ] h n ]
C f g f
g filenamef ice-9/posix.scm
g nameg stat:dev CR h n ] C f g f
g filenamef ice-9/posix.scm
g nameg stat:ino CR h o ] Cg g f
g filenamef ice-9/posix.scm
g nameg stat:mode CR h p ] Ch g f
g filenamef ice-9/posix.scm
g nameg
stat:nlink CR h n ] Cf g f
g filenamef ice-9/posix.scm
g nameg stat:uid CR h n ] Cf g f
g filenamef ice-9/posix.scm
g nameg stat:gid CR h o ] Cg g f
g filenamef ice-9/posix.scm
g nameg stat:rdev CR h o ] Cg g f
g filenamef ice-9/posix.scm
g nameg stat:size CR h p ] Ch g f
g filenamef ice-9/posix.scm
g nameg
stat:atime C R h p ] Ch g f
g filenamef ice-9/posix.scm
g nameg
stat:mtime C
R h p ]
Ch g f
g filenamef ice-9/posix.scm
g nameg
stat:ctime C R h r ] Cj g f
g filenamef ice-9/posix.scm
!
! g nameg stat:blksize C R h q ] Ci g f
g filenamef ice-9/posix.scm
"
" g nameg stat:blocks C
R h t ] Cl g f
g filenamef ice-9/posix.scm
#
# g nameg stat:atimensec CR h t ] Cl g f
g filenamef ice-9/posix.scm
$
$ g nameg stat:mtimensec CR h t ] Cl g f
g filenamef ice-9/posix.scm
%
% g nameg stat:ctimensec CR h o ]
Cg g f
g filenamef ice-9/posix.scm
(
( g nameg stat:type CR h p ] Ch g f
g filenamef ice-9/posix.scm
)
) g nameg
stat:perms CR h s ]
C k g obj
g filenamef ice-9/posix.scm
+
+ g nameg passwd:name CRh u ] C m g obj
g filenamef ice-9/posix.scm
,
, g nameg
passwd:passwd CR h r ] Cj g obj
g filenamef ice-9/posix.scm
-
- g nameg
passwd:uid CR h r ] Cj g obj
g filenamef ice-9/posix.scm
.
. g nameg
passwd:gid CR h t ] Cl g obj
g filenamef ice-9/posix.scm
/
/ g nameg passwd:gecos CR h r ] Cj g obj
g filenamef ice-9/posix.scm
0
0 g nameg
passwd:dir CR h t ] Cl g obj
g filenamef ice-9/posix.scm
1
1 g nameg passwd:shell CR h r ]
C j g obj
g filenamef ice-9/posix.scm
3
3 g nameg
group:name CR h t ] C l g obj
g filenamef ice-9/posix.scm
4
4 g nameg group:passwd CR h q ] Ci g obj
g filenamef ice-9/posix.scm
5
5 g nameg group:gid C R h q ] Ci g obj
g filenamef ice-9/posix.scm
6
6 g nameg group:mem C R h w ]
C o g obj
g filenamef ice-9/posix.scm
8
8 g nameg utsname:sysname C R h x ] C p g obj
g filenamef ice-9/posix.scm
9
9 g nameg utsname:nodename C R h w ] Co g obj
g filenamef ice-9/posix.scm
:
: g nameg utsname:release C R h w ] Co g obj
g filenamef ice-9/posix.scm
;
; g nameg utsname:version C!R h w ] Co g obj
g filenamef ice-9/posix.scm
<
< g nameg utsname:machine C"R# h ^ ] 6 V g filenamef ice-9/posix.scm
>
>
g nameg getpwent C$R% h ^ ] 6 V g filenamef ice-9/posix.scm
?
?
g nameg setpwent C&R% h ^ ] 6 V g filenamef ice-9/posix.scm
@
@
g nameg endpwent C'R# h q ] 6i g name
g filenamef ice-9/posix.scm
B
B g nameg getpwnam C(R# h p ] 6h g uid
g filenamef ice-9/posix.scm
C
C g nameg getpwuid C)R* h ^ ] 6 V g filenamef ice-9/posix.scm
E
E
g nameg getgrent C+R, h ^ ] 6 V g filenamef ice-9/posix.scm
F
F
g nameg setgrent C-R, h ^ ] 6 V g filenamef ice-9/posix.scm
G
G
g nameg endgrent C.R* h q ] 6i g name
g filenamef ice-9/posix.scm
I
I g nameg getgrnam C/R* h o ] 6g g id
g filenamef ice-9/posix.scm
J
J g nameg getgrgid C0RC g filenamef ice-9/posix.scm
#
1
B
S
e !
"
w #
$
%
" (
)
6 +
,
M -
.
_ /
0
w 1
3
4
5
6
2 8
9
R :
;
r <
>
i ?
@
l B
C
y E
F
i G
I
J
-
C6 PK ! o ice-9/debug.gonu [ GOOF----LE-8-2.0 ] 4 h/ ] g guile g define-module* g ice-9 g debug g filenameS
f ice-9/debug.scm g set-current-module
g issue-deprecation-warning f ?(ice-9 debug) is deprecated. Use (system vm trace) for tracing.C 5 h0 ` ]4
5 4
> " G i6 X g m
$ g filenamef ice-9/debug.scm
* ,
,
C6 PK ! _m
ice-9/history.gonu [ GOOF----LE-8-2.0
] + 4 hI ] g guile g define-module* g ice-9 g history g filenameS
f ice-9/history.scm g exportsS g value-history-enabled?
g enable-value-history! g disable-value-history! g clear-value-history!
g set-current-module g
value-history g *value-history-enabled?* g module-use! g current-module g resolve-interface g use-value-history g resolve-module g unspecified? g string->symbol g
simple-format f $~A f ~A = !g module-define! "g module-export! #g save-value-history $g add-hook! %g before-eval-hook &g before-print-hook 'g remove-hook! (g hash-clear! )g module-obarray *g module-public-interfaceC 5 hH ]4
5 4 > " G 4i> " G R h f ] C ^ g filenamef ice-9/history.scm
g nameg value-history-enabled? C R h ]45 456 g x
g filenamef ice-9/history.scm
" g nameg use-value-history CR
4i5 H !" hp ]4 5$ CM 4455 4> " G 4L > " G 4L > " G NC g v
m g c m g s # m g filenamef ice-9/history.scm
$ %
% & &
' ' $ ' 6 ! ' $ # ' # &
& ( + ( 2 ( ; ) Q * Z * $ _ * k + m C O #R $%&# h@ ] 45 $ C4> " G 4> " G C g filenamef ice-9/history.scm
-
. . 0 " 1 8 2 :
g nameg enable-value-history! C
R '%&# h@ ] 45 $ -4> " G 4> " G CC g filenamef ice-9/history.scm
4
5 5 7 8 6 9 :
g nameg disable-value-history! CR()* h8 ]45 44 5> " G 44 556 g history
2 g filenamef ice-9/history.scm
;
< < ! < < = = = % > ( > ! 0 > 2 >
2
g nameg clear-value-history! CR
i6 g m
( g count
6 g history 6 g filenamef ice-9/history.scm
)
/ 4
@
# # ! # " 9 !
( -
4
= ;
C @
C
C6 PK ! \$ ice-9/buffered-input.gonu [ GOOF----LE-8-2.0 ] ! 4 ha ] g guile g define-module* g ice-9 g buffered-input g filenameS
f ice-9/buffered-input.scm g exportsS g make-buffered-input-port
g make-line-buffered-input-port g !set-buffered-input-continuation?!
g set-current-module g make-object-property g buffered-input-continuation? g setter f g
string-length g
string-ref g char-whitespace? g eof-object? g make-soft-port f r g
string-append f
C 5 h` ]4
5 4 > " G 4i5 R h @ ]45 6 8 g port
g val g filenamef ice-9/buffered-input.scm
! g nameg !set-buffered-input-continuation?!g
documentationf Set the read continuation flag for @var{port} to @var{val}.
See @code{make-buffered-input-port} for the meaning and use of this
flag. CR hx ]M4M5$ :4MM5 MN4 5$ " 445M> " G C4L4M55 4 5$ C N
N" g res
J g x
V q g filenamef ice-9/buffered-input.scm
? @ $ @ @ B B C ) C ! D + D 0 E K H N H % V H V H Y J c I j N m O q P q
g nameg
get-character C h u ] 4M5M C m g filenamef ice-9/buffered-input.scm
R S S
g nameg
input-waiting C hh 5 ])
HHHO Q K 4O 5K445J> " G JC - g reader
e g read-string e g string-index e g port
e g
get-character e g port & / g filenamef ice-9/buffered-input.scm
#
< <
> 0 U D U ! F U R H U J U K V e g nameg make-buffered-input-portg
documentationf Construct a line-buffered input port from the specified @var{reader}.
@var{reader} should be a procedure of one argument that somehow reads
a chunk of input and returns it as a string.
The port created by @code{make-buffered-input-port} does @emph{not}
interpolate any additional characters between the strings returned by
@var{reader}.
@var{reader} should take a boolean @var{continuation?} argument.
@var{continuation?} indicates whether @var{reader} is being called to
start a logically new read operation (in which case
@var{continuation?} is @code{#f}) or to continue a read operation for
which some input has already been read (in which case
@var{continuation?} is @code{#t}). Some @var{reader} implementations
use the @var{continuation?} argument to determine what prompt to
display to the user.
The new/continuation distinction is largely an application-level
concept: @code{set-buffered-input-continuation?!} allows an
application to specify when a read operation is considered to be new.
But note that if there is non-whitespace data already buffered in the
port when a new read operation starts, this data will be read before
the first call to @var{reader}, and so @var{reader} will be called
with @var{continuation?} set to @code{#t}. C R h( ] 4L 5 45$ C6 g
continuation?
! g str ! g filenamef ice-9/buffered-input.scm
f g ) g h $ h j 7 ! j $ ! C h ] O 6 g reader
g filenamef ice-9/buffered-input.scm
Y
f
g nameg make-line-buffered-input-portg
documentationf Construct a line-buffered input port from the specified @var{reader}.
@var{reader} should be a procedure of one argument that somehow reads
a line of input and returns it as a string @emph{without} the
terminating newline character.
The port created by @code{make-line-buffered-input-port} automatically
interpolates a newline character after each string returned by
@var{reader}.
@var{reader} should take a boolean @var{continuation?} argument. For
the meaning and use of this argument, see
@code{make-buffered-input-port}. C
RC { g m
( g filenamef ice-9/buffered-input.scm
) % 2
#
Y Y
[
C6 PK ! v C8 8 ice-9/deprecated.gonu [ GOOF----LE-8-2.0 ][ 4 h ; ] g guile g define-module* g ice-9 g
deprecated g filenameS
f ice-9/deprecated.scm g exportsS g substring-move-left!
g substring-move-right! g dynamic-maybe-call g dynamic-maybe-link g try-module-linked g try-module-dynamic-link g list* g feature? g eval-case g unmemoize-expr g $asinh g $acosh g $atanh g $sqrt g $abs g $exp g $expt g $log g $sin g $cos g $tan !g $asin "g $acos #g $atan $g $sinh %g $cosh &g $tanh 'g closure? (g %nil )g @bind *g bad-throw +g error-catching-loop ,g error-catching-repl -g scm-style-repl .g
apply-to-args /g has-suffix? 0g scheme-file-suffix 1g
get-option 2g for-next-option 3g display-usage-report 4g transform-usage-lambda 5g collect 6g assert-repl-silence 7g assert-repl-print-unspecified 8g assert-repl-verbosity 9g set-repl-prompt! :g set-batch-mode?! ;g repl <g pre-unwind-handler-dispatch =g default-pre-unwind-handler >g handle-system-error ?g stack-saved? @g the-last-stack Ag
save-stack Bg named-module-use! Cg top-repl Dg turn-on-debugging Eg read-hash-procedures Fg process-define-module Gg fluid-let-syntax Hg set-system-module! Ig char-code-limit Jg generalized-vector? Kg generalized-vector-length Lg generalized-vector-ref Mg generalized-vector-set! Ng generalized-vector->list O
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMN C Pg set-current-module QP RP Sg issue-deprecation-warning Tf E`substring-move-left!' is deprecated. Use `substring-move!' instead. Ug substring-move! Vf F`substring-move-right!' is deprecated. Use `substring-move!' instead. Wg reverse Xg string->symbol Yg substring Zg
string-ref [g
string-length \g split-c-module-name ]g map ^g c-registered-modules _g c-clear-registered-modules `g convert-c-registered-modules ag registered-modules bg append! cg register-modules df 3Autoloading of compiled code modules is deprecated. ef 7Write a Scheme file instead that uses `load-extension'. fg
simple-format gf (You just autoloaded module ~S.) hg warn-autoload-deprecation ig or-map jg delq! kg resolve-module lg save-module-excursion mg set-module-public-interface! ng dynamic-call og init-dynamic-module pf %`dynamic-maybe-call' is deprecated. qf 7Wrap `dynamic-call' in a `false-if-exception' yourself. rg catch sr tr uf %`dynamic-maybe-link' is deprecated. vf 7Wrap `dynamic-link' in a `false-if-exception' yourself. wg dynamic-link xg
string-append yf lib zg symbol->string {f / |f }f _ ~f scm_init g list->string g char-alphabetic? g
char-numeric? g string->list f _module g in-vicinity g try-using-libtool-name g try-using-sharlib-name g file-exists? g link-dynamic-module g
%load-path g find-and-link-dynamic-module f .la f .so f "`try-module-linked' is deprecated. f ,See the manual for how more on C extensions. f (`try-module-dynamic-link' is deprecated. f ,'list*' is deprecated. Use 'cons*' instead. g cons* f 3`feature?' is deprecated. Use `provided?' instead. g provided? g make-syntax-transformer g macro g $sc-dispatch g _ g any g
syntax->datum g
datum->syntax f 4`eval-case' is deprecated. Use `eval-when' instead. g assoc-ref g
load-toplevel g begin g
*unspecified* g else g syntax-violation f -source expression failed to match any pattern g read-hash-extend f =The `#y' bytevector syntax is deprecated. Use `#s8' instead. g read g list->s8vector g error f !#y needs to be followed by a list f C`unmemoize-expr' is deprecated. Use `unmemoize-expression' instead. g unmemoize-expression f -`$asinh' is deprecated. Use `asinh' instead. g asinh f -`$acosh' is deprecated. Use `acosh' instead. g acosh f -`$atanh' is deprecated. Use `atanh' instead. g atanh f +`$sqrt' is deprecated. Use `sqrt' instead. g sqrt f )`$abs' is deprecated. Use `abs' instead. g abs f )`$exp' is deprecated. Use `exp' instead. g exp f +`$expt' is deprecated. Use `expt' instead. g expt f )`$log' is deprecated. Use `log' instead. g log f )`$sin' is deprecated. Use `sin' instead. g sin f )`$cos' is deprecated. Use `cos' instead. g cos f )`$tan' is deprecated. Use `tan' instead. g tan f +`$asin' is deprecated. Use `asin' instead. g asin f +`$acos' is deprecated. Use `acos' instead. g acos f +`$atan' is deprecated. Use `atan' instead. g atan f +`$sinh' is deprecated. Use `sinh' instead. g sinh f +`$cosh' is deprecated. Use `cosh' instead. g cosh f +`$tanh' is deprecated. Use `tanh' instead. g tanh f 3`closure?' is deprecated. Use `procedure?' instead. g
procedure? g bound-identifier=? f 1`@bind' is deprecated. Use `with-fluids' instead. g each-any ތ ߌ g
syntax-object g let g top g ribcage g b0 g b1 f l-2f788c0406b05c-348 f l-2f788c0406b05c-349 g bound-member f l-2f788c0406b05c-33d g x f l-2f788c0406b05c-33c g hygiene g each ߌ g and-map g identifier? f duplicate bound identifier g generate-temporaries
g old-v g v
f l-2f788c0406b05c-368 f l-2f788c0406b05c-369
g id g val f l-2f788c0406b05c-357 f l-2f788c0406b05c-358 f l-2f788c0406b05c-359 f l-2f788c0406b05c-35a g append ] !] "g list #g dynamic-wind $# %g lambda &% 'g set! (' )g make-module *g set-module-name! +g %app ,+ -g module-define-submodule! .g the-root-module /g app 0g modules 1g module-public-interface 2g and=> 3g module-local-variable 4g %module-public-interface 5g variable-ref 6f Setting a module's public interface via munging %module-public-interface is
deprecated. Use set-module-public-interface! instead. 7g module-define! 8f m`bad-throw' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead. 9- :9* ;9* <f w`error-catching-loop' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead. =9+ >9+ ?f w`error-catching-repl' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead. @9, A9, Bf `scm-style-repl' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead, or
better yet, use the repl from `(system repl repl)'. C9- D9- Ef D`apply-to-args' is deprecated. Include a local copy in your program. Ff J`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed). Gg string-suffix? Hf C`scheme-file-suffix' is deprecated. Use `%load-extensions' instead. If .scm Jf >`get-option' is deprecated. Use `(ice-9 getopt-long)' instead. Kg
normal-arg Lg string-index Mg symbol->keyword Ng member Og usage-error Pf - Qf C`for-next-option' is deprecated. Use `(ice-9 getopt-long)' instead. Rf H`display-usage-report' is deprecated. Use `(ice-9 getopt-long)' instead. Sg for-each Tg string? Uf < Vf > Wg with-output-to-string Xg display Yg keyword->symbol Zf [g make-string \f
]g newline ^g car _g boolean? `g %display-usage ag quote bg %argv cb dg %next-arg ebb fe gg %opt hg %arg ig %new-argv jghi kg case lf ,`collect' is deprecated. Define it yourself. m nf l-2f788c0406b05c-442 on po q p raq sr tߌ ug x* vu wf l-2f788c0406b05c-446 xf l-2f788c0406b05c-447 ywx zvy {z p |{ }{ ~g cons ~{ 5{ f <`assert-repl-silence' has moved to `(ice-9 scm-style-repl)'. 96 96 f F`assert-repl-print-unspecified' has moved to `(ice-9 scm-style-repl)'. 97 97 f >`assert-repl-verbosity' has moved to `(ice-9 scm-style-repl)'. 98 98 f h`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from
the `(system repl common)' module. g
module-ref g resolve-interface g system g common ; g repl-default-prompt-set! f C`set-batch-mode?!' is deprecated. Use `ensure-batch-mode!' instead. g ensure-batch-mode! f ``set-batch-mode?!' with an argument of `#f' is deprecated. Use the
`*repl-stack*' fluid instead. f )`repl' is deprecated. Define it yourself. g current-input-port f u`pre-unwind-handler-dispatch' is deprecated. Use
`default-pre-unwind-handler' from `(ice-9 scm-style-repl)' directly. 9= 9= f a`default-pre-unwind-handler' is deprecated. Use it from
`(ice-9 scm-style-repl)' if you need it. f Z`handle-system-error' is deprecated. Use it from
`(ice-9 scm-style-repl)' if you need it. 9> 9> g make-variable-transformer f N`stack-saved?' is deprecated. Use it from
`(ice-9 save-stack)' if you need it. g free-id f l-2f788c0406b05c-46d ' g @ f l-2f788c0406b05c-47b A ? f l-2f788c0406b05c-474 f l-2f788c0406b05c-475 ' A ? f P`the-last-stack' is deprecated. Use it from `(ice-9 save-stack)'
if you need it. f l-2f788c0406b05c-483 f l-2f788c0406b05c-47e A @ f L`save-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need
it. A A A f E`named-module-use!' is deprecated. Define it yourself if you need it. g module-use! f 6`top-repl' has moved to the `(ice-9 top-repl)' module. C g debug-enable g memq g debug f 6`(debug-enable 'debug)' is obsolete and has no effect. f Remove it from your code. g delq f <`(turn-on-debugging)' is obsolete and usually has no effect. f .Debugging capabilities are present by default. g backtrace g read-enable g positions f %`read-hash-procedures' is deprecated. f .Use the fluid `%read-hash-procedures' instead. g read-hash-procedures-warning g m-2f788c0406b05c-48f f l-2f788c0406b05c-491 g shift g exp1 g var g exp2 f l-bde397a-1bec f l-bde397a-1bed f l-bde397a-1bee f l-bde397a-1bef f l-bde397a-1bf0 g xx f l-bde397a-1bda ' g expr f l-2f788c0406b05c-494
g
fluid-set!
g %read-hash-procedures ތ f l-2f788c0406b05c-497 g fluid-ref ! " #" $ % &$% '!#& (f E`process-define-module' is deprecated. Use `define-module*' instead. )g pureS *g versionS +g
duplicatesS ,g transformerS -g importsS .g reverse! /g
re-exportsS 0g replacementsS 1g autoloadsS 2g
use-moduleS 3g
use-syntaxS 4f )missing argument to define-module keyword 5g syncase 65 7f L(ice-9 syncase) is deprecated. Support for syntax-case is now in Guile core. 8g autoloadS 9g no-backtraceS :g exportS ;g
export-syntaxS <g re-exportS =g re-export-syntaxS >g replaceS ?g replace-syntaxS @f #unrecognized define-module argument Af A`fluid-let-syntax' is deprecated. Use syntax parameters instead. Bg syntax-parameterize Cg k Dg body0 Eg body FC DE Gf l-2f788c0406b05c-4ed Hf l-2f788c0406b05c-4ee If l-2f788c0406b05c-4ef Jf l-2f788c0406b05c-4f0 KGHIJ LFK Mf l-2f788c0406b05c-4ea NM ON PL O QBP Rf 9`close-io-port' is deprecated. Use `close-port' instead. Sg
close-port Tg
close-io-port Uf @`set-system-module!' is deprecated. There is no need to use it. Vg set-procedure-property! Wg module-eval-closure Xg
system-module Yf T`module-eval-closure' is deprecated. Use module-variable or module-define! instead. Zg standard-eval-closureC 5 hp . ]4
O5 4R > " G STU h( - 1 3 4> " G @ g args
! g filenamef ice-9/deprecated.scm
T
U V U ! W !
g nameg substring-move-left! C RSVU h( - 1 3 4> " G @ g args
! g filenamef ice-9/deprecated.scm
Y
Z [ Z ! \ !
g nameg substring-move-right! C
RWXYZ[ h x ]!" k$ 44 5564 5 & '44 55 " "
4 5 " p g str
g rev q g start q g pos q g end q g filenamef ice-9/deprecated.scm
c
d i h j j % ! j $ j & j ' k 5 h 6 l 9 l " E l H l K m N n \ l c q q q q d r d u g d g nameg split-c-module-name C\R]\ h ]4 5 L C w g c
g filenamef ice-9/deprecated.scm
t u u /
u
u 8 u C^_ h( ] 4 O 45 5 4> " G C g dynobj
( g res ( g filenamef ice-9/deprecated.scm
s
t
v t
t w ( g nameg convert-c-registered-modules C`RaRb`a h ]44 55 C g dynobj
g filenamef ice-9/deprecated.scm
|
~ ~ ~ } g nameg register-modules CcRSdefg h( ]4> " G 4 56 g modname
$ g filenamef ice-9/deprecated.scm
" $
$ g nameg warn-autoload-deprecation ChRcihjaklPmn h8 u ] 4L> " G 4LL> " G L L 6 m g filenamef ice-9/deprecated.scm
- % 1 4 5 5
C hP ] L $ B4L > " G 4 5 4L 5 4 O > " G CC g modinfo
P g mod 1 N g filenamef ice-9/deprecated.scm
+ ) * 1 4 P Ca h ]4> " G O 6 g modname
g filenamef ice-9/deprecated.scm
g nameg init-dynamic-module CoRSpqtn h Q ] LL 6 I g filenamef ice-9/deprecated.scm
C h ] - 1 3 C U g args
g filenamef ice-9/deprecated.scm
C h( ]4> " G O 6 g name
& g dynobj & g filenamef ice-9/deprecated.scm
& & g nameg dynamic-maybe-call CRSuvtw h Q ] L 6I g filenamef ice-9/deprecated.scm
C h ] - 1 3 C U g args
g filenamef ice-9/deprecated.scm
C h( ]4> " G O 6 g filename
$ g filenamef ice-9/deprecated.scm
$ $ g nameg dynamic-maybe-link CRxyz{|]x}z h s ]4 56 k g s
g filenamef ice-9/deprecated.scm
* ; ; , C~ h0 ] 4 5 $ " 4 5 $ C_C g c
* g t g filenamef ice-9/deprecated.scm
& 0 , 0 $ ( * C h ]9" 9( 4455" (4455 " "44 5? 44 4
4 555 5 " g( C4
5 45 $ " 45 " "$ 45$ 6"" " w g module-name
g dirs ? g syms ? g mod-name Y z g subdir-and-libname z g init z g subdir g libname g dir-list g dir g t g sharlib-full g filenamef ice-9/deprecated.scm
) / ? / $ ) ) . 9 0 ) 2 E 4 7 ? ? A K L O % Y Y \ ` a d ! i & q ! s u w z % $ 9 g nameg find-and-link-dynamic-module CRx h( ]
4 455 45$ CC g libdir
$ g libname $ g libtool-filename $ g filenamef ice-9/deprecated.scm
' > '
$ g nameg try-using-libtool-name CRx h ] 456 g libdir
g libname g filenamef ice-9/deprecated.scm
- g nameg try-using-sharlib-name CRcwn h8 ]
4> " G 4 5 4> " G 6 g filename
6 g initname 6 g dynobj 6 g filenamef ice-9/deprecated.scm
6 6 g nameg link-dynamic-module CRSo h ]4> " G 6 g module-name
g filenamef ice-9/deprecated.scm
g nameg try-module-linked CRSo h0 ]4> " G 4 5$ 6C g module-name
) g filenamef ice-9/deprecated.scm
! ' ) g nameg try-module-dynamic-link CRS h( - 1 3 4> " G @ g args
! g filenamef ice-9/deprecated.scm
! !
g nameg list* CRS h ]4> " G 6 g sym
g filenamef ice-9/deprecated.scm
g nameg feature? CR4S hX - 1 3 4> " G 4 5 $ C4 5 $ CC g clauses
R g t $ R g t > R g filenamef ice-9/deprecated.scm
" $ $ . 6 < > > H
Q R
C h i ] 4 5 L 4?6a g args
g v g filenamef ice-9/deprecated.scm
C h( g ] 4 5 $ O @ 6 _ g y
' g tmp ' g filenamef ice-9/deprecated.scm
' C5R4iyS h8 ]
4> " G 45 $ 66 g c
2 g port 2 g x 2 g filenamef ice-9/deprecated.scm
$ * . 2 2 C> " G S h( - 1 3 4> " G @ g args
! g filenamef ice-9/deprecated.scm
! !
g nameg unmemoize-expr CRS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
! " g nameg $asinh CRS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
#
$ % $ & g nameg $acosh CRS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
'
( ) ( * g nameg $atanh CRS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
+
, - , . g nameg $sqrt CRS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
/
0 1 0 2 g nameg $abs CRS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
3
4 5 4 6 g nameg $exp CRS h ]4> " G 6 g z1
g z2 g filenamef ice-9/deprecated.scm
7
8 9 8 : g nameg $expt C RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
;
< = < > g nameg $log C RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
?
@ A @ B g nameg $sin C RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
C
D E D F g nameg $cos C RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
G
H I H J g nameg $tan C RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
K
L M L N g nameg $asin C!RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
O
P Q P R g nameg $acos C"RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
S
T U T V g nameg $atan C#RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
W
X Y X Z g nameg $sinh C$RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
[
\ ] \ ^ g nameg $cosh C%RS h ]4> " G 6 g z
g filenamef ice-9/deprecated.scm
_
` a ` b g nameg $tanh C&RS h ]4> " G 6 g x
g filenamef ice-9/deprecated.scm
d
e f e g g nameg closure? C'R(R4) h8 ]
( C4 5$ C4L 5 $ CC g id
2 g ids 2 g t % 2 g filenamef ice-9/deprecated.scm
p q r
r $ r
q s
s # s % % s
% q 2 g nameg bound-member CS h : ] C 2 g b0
g b1
C h ] 6 g id
g val
g b0
g b1
g filenamef ice-9/deprecated.scm
|
C) !"$&( h b ] C Z g tmp-2f788c0406b05c-371
g tmp-2f788c0406b05c-370 C( h b ] C Z g tmp-2f788c0406b05c-374
g tmp-2f788c0406b05c-373 C hX < ]44 L54L554L5LL 4 L5 C 4 g old-v
R g v R R C
h U ]" (( " %4L5$ " " "$
L 64 54 5 45 $ O @ 6 M g id
g val g b0 g b1 g ids . g tmp U g tmp ` g filenamef ice-9/deprecated.scm } ~
" , ~
( . . } : } > @ $ D E & L " U C hx ]O Q 4> " G 4 5 $ @4 5 " 6$ 4
?$
O @"" g x
v g bound-member
v g tmp * v g tmp A v g filenamef ice-9/deprecated.scm
o u v u v C5)R4)i 5 4*i ,> " G 4-i.i+ > " G 4-i.i/ > " G 4-i 04ki5> " G 1i 2345S6m hX ] 4L 5 $ C44 55 $ )4> " G 4 > " G CC g mod
W g t W g t $ W g filenamef ice-9/deprecated.scm
2 $ $ - 1
6 ? W C O 1i mi 74 h ]4L > " G 6 g mod
g iface g filenamef ice-9/deprecated.scm
C O mi S8; h( - 1 3 4> " G @ g key
# g args # g filenamef ice-9/deprecated.scm
# #
g nameg bad-throw C*RS<> h ]4> " G 6 g thunk
g filenamef ice-9/deprecated.scm
g nameg error-catching-loop C+RS?A h ]4> " G 6 g r
g e g p g filenamef ice-9/deprecated.scm
g nameg error-catching-repl C,RSBD h ] 4> " G 6 g filenamef ice-9/deprecated.scm
g nameg scm-style-repl C-RSE h ]4> " G @ g args
g fn g filenamef ice-9/deprecated.scm
g nameg
apply-to-args C.RSFG h ]4> " G 6 g str
g suffix g filenamef ice-9/deprecated.scm
g nameg has-suffix? C/RSHI h ] 4> " G C g filenamef ice-9/deprecated.scm
g nameg scheme-file-suffix C0RSJZ[KLMYNOxP
h L ], H 4> " G J ( J 6-4J
5 $ "
4J 5 $ J J 6-4J 5& 4J =5 $ " 4J 5 44J 55 4 5 4 5 4J 5& " 4J 4J 55 $ " $ J K J " $ " $ J 6
J 64J 5 45 4 5$ @4J 4J 55
45$ J "
4 5J 64 5$ Q4J 4J 55
45$ J "
45$ J " J 6
J 6D g argv
g kw-opts g kw-args g return g t 3 M g t v g
kw-arg-pos - g kw - g kw-opt? - g kw-arg? - g t g arg - g char 8 g kw A g rest-car b g new-argv g rest-car g arg g new-argv g filenamef ice-9/deprecated.scm
& ) . " 1 2
3 3 A
F H
J Q U X [ # ] `
e h
l m r ) v v * + . = . $ $ $ 3 $ + 7
"
& + " -
. 3 8 8 ;
A D P Q V $ Y 1 ^ @ ` 1 b b f " m q t y # } 2 # @
$ 1 @ 1 "
! !
u g nameg
get-option C1RSQ1 h ] $ L L6C g opt
g opt-arg g argv g filenamef ice-9/deprecated.scm
( ) ) C h u ] LLLL O 6 m g argv
g filenamef ice-9/deprecated.scm
& ' g nameg loop C1 h ] $ L L6C g opt
g opt-arg g argv g filenamef ice-9/deprecated.scm
( ) ) C h@ ] 4> " G O Q O 6 g proc
= g argv = g kw-opts = g kw-args = g loop = g filenamef ice-9/deprecated.scm
#
$ % $ & = ' = g nameg for-next-option C2RSRSTxUV|W]XYZ h ]44 5> " G 6 } g x
g filenamef ice-9/deprecated.scm
< % < 1 < : < 1 < X < O C h Q ] L 6 I g filenamef ice-9/deprecated.scm
;
<
C[[\X] h ]1 $ C $ C 45$ " 45$ 45" 44O 55 4 5 $ )4 5 ($ 4
4 5 5" " 4 > " G 4 > " G 4 > " G
6 g kw
g t g t g help ' g opts , g opts-proper C g arg-name c g left-part x g middle-part g filenamef ice-9/deprecated.scm
/ 0 0 0 1 1 1 0 & 3 ' 2 , 4 , 2 / 5 ! 4 5 * 6 5 ! : 5 = 5 6 C 2 F 6 K 6 ' M 6 Q 6 R 7 V 7 - Y 7 1 [ 7 < ] 7 c 8 c 2 f 9 i : x 9 x 2 { ? ) ? & ? @ ) @ & ? ! A ! A 4 A . A ! B ! 2 C D E F 2 C h ]4> " G 6 g kw-desc
g filenamef ice-9/deprecated.scm
+
, - , . g nameg display-usage-report C3RSRj]^_ hX ] $ " $ $ " C $ C4 5$ " $ C C g x
R g t ' R g t D R g filenamef ice-9/deprecated.scm
M # N 2 N ( N $ N 2 N ( & O 6 ' O - ' N $ 3 P - 8 P 7 : P - > P ( D N $ R C T h | ]4 5$ C C t g x
g filenamef ice-9/deprecated.scm
U % U ; U D
U ; U 1 CT h ]4 5$ CC } g x
g filenamef ice-9/deprecated.scm
V % V 6 V ?
V 6 V 1 V H C_T hp A ] 45 $ " $ " 8$ " *45$ " 45$ " C 9 g case
m g opts h g t # g filenamef ice-9/deprecated.scm
W $ X 8 X , Y 6 Y 2 Y K Y F ' Y . 0 \ = 1 \ 4 5 [ 2 < ] 4 A ] > C ] 4 G [ 2 N ^ 4 S ^ = V ^ 4 Z [ 2 ] ^ J e _ 9 k ` , l X & m C`%3acdf1bjkg h ]94> " G 44 55 45 45 45 44 5? 44
5? 4 5
C g cases
g raw-usage $ g usage-sans-specials / g
usage-desc 9 g kw-desc D g kw-opts T g kw-args d g transmogrified-cases o g filenamef ice-9/deprecated.scm
I
J K J L L L ! $ L $ L ' M / L 2 S 9 L < T D L G U J U T U T L W V Z V d V d L g W o L s b g nameg transform-usage-lambda C4R45Slms h ] C
Ct|} h 9 ] C 1 g x
g x* C
hP ]4> " G 4 5 $ @4 5 $ @ 6 g x
K g tmp K g tmp 4 K g filenamef ice-9/deprecated.scm
u v w v K C55RS h ]4> " G 6 g v
g filenamef ice-9/deprecated.scm
g nameg assert-repl-silence C6RS h ]4> " G 6 g v
g filenamef ice-9/deprecated.scm
g nameg assert-repl-print-unspecified C7RS h ]4> " G 6 g v
g filenamef ice-9/deprecated.scm
g nameg assert-repl-verbosity C8RS h( ]4> " G 4455 6 g v
& g filenamef ice-9/deprecated.scm
" " & & g nameg set-repl-prompt! C9RS h8 ] $ 4> " G 6 4> " G C g arg
2 g filenamef ice-9/deprecated.scm
# (
2 g nameg set-batch-mode?! C:RS hP 6 ] 4> " G " '445> " G 4 45 5 "4 45 5 " . g read
O g evaler O g print O g source ? g filenamef ice-9/deprecated.scm
' 0
3 9
? ? @ C I O O g nameg repl C;RS h( - 1 3 4> " G @ g key
# g args # g filenamef ice-9/deprecated.scm
# #
g nameg pre-unwind-handler-dispatch C<RS h( - 1 3 4> " G @ g key
# g args # g filenamef ice-9/deprecated.scm
# #
g nameg default-pre-unwind-handler C=RS h( - 1 3 4> " G @ g key
# g args # g filenamef ice-9/deprecated.scm
# #
g nameg handle-system-error C>R4?4iS h Z ] 6R g id
g filenamef ice-9/deprecated.scm C h * ]C " g id
C h k ] 6c g id
g val g filenamef ice-9/deprecated.scm C h ; ] C 3 g id
g val C hh ]4> " G 4 5 " ! 4?$ @ 6$ 4 ?$
@"" g x
c g tmp c g tmp ( D g filenamef ice-9/deprecated.scm
c C55?R4@S h Z ] 6R g id
g filenamef ice-9/deprecated.scm C h * ]C " g id
C h8 ] 4> " G 4?$ @ 6 { g x
5 g tmp 5 g filenamef ice-9/deprecated.scm
5 C5@RS h( - 1 3 4> " G @ g args
! g filenamef ice-9/deprecated.scm
! !
g nameg
save-stack CARSk h( ]4> " G 4 5456 g user
& g usee & g filenamef ice-9/deprecated.scm
% & & g nameg named-module-use! CBRSkC h( ] 4> " G 44556 g filenamef ice-9/deprecated.scm
2 " $ $
g nameg top-repl CCRi S h@ - 1 3 4 5$ !4> " G L 4 5@L @ g opts
= g filenamef ice-9/deprecated.scm
" - $ 1 * 5 $ 7 = =
C O i S h0 ] 4> " G 4> " G 6 g filenamef ice-9/deprecated.scm
, . .
g nameg turn-on-debugging CDRS h ] 6 g filenamef ice-9/deprecated.scm
g nameg read-hash-procedures-warning CR4E4
h , ] C $ g expr
C h ) ] C! g x
C h I ] 6A g filenamef ice-9/deprecated.scm
C' h ] C
C hh ]4 5 $ @4 5 $ @4 5 " 6$ 4 ?$
@"" g x
g g tmp g g tmp " g g tmp 9 g g filenamef ice-9/deprecated.scm
g g
macro-typeg variable-transformer C55ERS( )*+,-. /012346789:; <=>?@ hX ]y4> " G HHHHH " ( 3JJJJJ 4
5
6
$ "
$ $ "
4> " G $ 04> " G
"B
& K"
"
$ n$ " $ "
4> " G
"
$
"n
$ K
"E
$ R $ "
4> " G K
"
$ K$ "
4> " G K
"
$ "
$ U $ "
4> " G 4 5
"*
$ "
$ U $ "
4> " G 4
5
"
$ "
$ U $ "
4> " G
4 5
"R
$ R $ "
4> " G K
" 6
" g args
U g name U g filename U g pure? U g version U g
duplicates U g transformer U g kws , = g imports , = g exports , = g
re-exports
, = g replacements , = g autoloads , = g key
h = g t g kw g
iface-spec ! g t < f g kw J c g name o g bindings o g t g kw g kw Y r g t g kw g t G g kw + D g t g kw g t g kw g filenamef ice-9/deprecated.scm
, 2 M " e
h ' h '
) ) )
* *
, , " , +
- . - / / 2 ! 2 3 3 4 5 6 ! 5 * '
- 9 . 9 2 9 5 9 / 7 9 ( < 9
J : J : M
Q
X
i ; m < o ;
v = ? " = '
C C
'
F
G G
'
J J J
K K
! L $ L
' M B M
K '
N P O P S P
Y Q Y Q \
`
g
u R x R
{ S S
'
V V V
W W
X Y Y + Y X
'
\ \ \
+ ] + ] .
2
9
J ^ P _ # W _ 6 Z _ # n ^
w '
b b b
c c
d f f ( f d
'
h h h
i i
j j
k 5 k
9 = = @ A B C D E U U g nameg process-define-module CFR4GSAQ!" h ] ]4 5C U g k
g v g body0 g body C h8 ] 4> " G 4 5 $ @ 6 { g x
4 g tmp 4 g filenamef ice-9/deprecated.scm
q r s r 4 C5GRSRS h ]4> " G 6 g port
g filenamef ice-9/deprecated.scm
y
z { z | g nameg
close-io-port CTRSUVWX h( ]4> " G 4 56 g m
# g s # g filenamef ice-9/deprecated.scm
~
3 # # g nameg set-system-module! CHRSYZ h ]4> " G 6 g m
g filenamef ice-9/deprecated.scm
g nameg module-eval-closure CWi IRC & g m
( g %app
5e 5 g getter
5 7I g setter
7R 8 g debug-enable
j kJ g filenamef ice-9/deprecated.scm
S
X
c
s
z z
s |
B
5
"
]
C
h
O
_
5
!i #
"1 '
" +
# /
$ 3
%a 7
&' ;
& ?
' C
( G
)H K
* O
* S
+ W
,h [
-0 _
- d
- i
5\ 5e
5h 5r 5w 5 5 , 5 5 5 , 5 5 5 ! 5 * 5 : 5 * 5 5 7N
7R 8
9
9
:
;
<
=l
>.
F
J #
O +
W I
Z?
[)
\
]!
^9
_
`
a
b
b h
i
j
j kO
lY
m
m }>
y
~
a
g
a i
C6 PK ! y ice-9/channel.gonu [ GOOF----LE-8-2.0 ] H 4 h ] g guile g define-module* g ice-9 g channel g filenameS
f ice-9/channel.scm g exportsS g make-object-channel
g channel-open g channel-print-value g channel-print-token
g set-current-module g make-record-type g stdin g stdout g printer g token-module g channel-type g record-constructor g make-channel g current-input-port g current-output-port g make-module g record-accessor !g
channel-stdin "g channel-stdout #g channel-printer $g channel-token-module %g catch &g channel:prompt 'g read (g eof-object? )g throw *g quit +g eval ,g module-use! -g current-module .g destroy /g module-defined? 0g module-remove! 1g
channel:error 2f Invalid token: ~S 3f Unknown command: ~S 4g format 5f exception = ~S
6f value = ~S
7g
symbol-append 8g gensym 9f %% :g %% ;g object->string <f token = ~S
=g module-define! >g display ?f channel> @g force-output Af ERROR: Bg apply Cg newline Dg
guile:eval Eg procedure-minimum-arity Fg defined? Gf ~SC 5 h8
]4
5 4 > " G 4i5R4ii5 R h ]45 45 45 6 g printer
g filenamef ice-9/channel.scm
W
X
Y [ X g nameg make-object-channel C R4 ii5!R4 ii5"R4 ii5#R4 ii5$R!"#$%&'()*+,-+./0123 h ]4L> " G 4L5 4 5$ 4> " G " $ >445 L> " G 4LL4 4L545 5> " G "
$ K4L5 4 L5$ 4 L> " G " 4
L> " G " 5 $ 4> " G " 4
L > " G L 6 g cmd
g token g filenamef ice-9/channel.scm
m n
o o
p ( p ) q - q 2 q G r H t K t V t _ u d u g u # n u 0 t u y u r w w x x y z z + z r | | | ~ ~ ' ~
%
C*)45 hH - 1 3 $ 64L 4? > " G L6 g key
D g args D g filenamef ice-9/channel.scm
" ( 0 , < 0 3 8
D
D
C h( ] ] L LLLLLO LL O 6 U g filenamef ice-9/channel.scm
k ! l !
g nameg loop C hH ])4 54 54 54 5 O Q 6 g ch
F g stdin F g stdout F g printer F g token-module F g loop 3 F g filenamef ice-9/channel.scm
f
g
h i j g 3 k F g nameg channel-open C
R4"6 h ]4 56 g ch
g val g filenamef ice-9/channel.scm
g nameg channel-print-value CR789:;4"<=$ hH ; ]4455 45 44 5> " G 4
563 g ch
H g val H g token H g pair H g filenamef ice-9/channel.scm
' - " * 1 < H H g nameg channel-print-token CR>?@ h ]4 > " G 6 g port
g filenamef ice-9/channel.scm
g nameg channel:prompt C&R>AB4C h@ - 1 3 4 > " G 4 > " G 6 g port
; g msg ; g args ; g filenamef ice-9/channel.scm
; ;
g nameg
channel:error C1R+iDR4EiDi5 $ D h m ] 6 e g x
g e
g filenamef ice-9/channel.scm
C" Di+R4Fi;5$ ;i" 4G h g ] 6 _ g x
g filenamef ice-9/channel.scm
C;RC g m
( g filenamef ice-9/channel.scm H
) S / S 1 S 3 S 6 R
7 U D U
W
] ] 4 ! ] $ ]
% ^ / ^ 5 1 ^ 4 ^
5 _ ? _ 6 A _ D _
E ` O ` ; Q ` T `
o f
D
2
*
4
C6 PK ! l ice-9/hash-table.gonu [ GOOF----LE-8-2.0 ] c 4 h ] g guile g define-module* g ice-9 g
hash-table g filenameS
f ice-9/hash-table.scm g exportsS g alist->hash-table
g alist->hashq-table g alist->hashv-table g alist->hashx-table
g set-current-module g make-syntax-transformer g define-alist-converter g macro g $sc-dispatch g any g
syntax-object g define g top ! "g ribcage #g dummy $g name %g
hash-set-proc &#$% 'g m-3144cc814ae864-1 (' )(!! *f l-3144cc814ae864-6 +f l-3144cc814ae864-7 ,f l-3144cc814ae864-8 -*+, ."&)- /" 0g x 10 2( 3f l-3144cc814ae864-3 43 5"124 6!./5 7g hygiene 87 9 68 :g alist ; :68 <; =f Convert ALIST into a hash table. > =68 ?g let @ ?68 Ag table B A68 Cg make-hash-table D C68 ED FBE GF Hg for-each I H68 Jg lambda K J68 Lg pair M L68 NM Og car P O68 QPM Rg cdr S R68 TSM UBQT Vg reverse W V68 XW; YX ZB [g syntax-violation \[ ][ ^f -source expression failed to match any pattern _g hash-set! `g
hashq-set! ag
hashv-set! bg
hashx-set!C 5 hx x ]4
5 4 > " G 4 9<>@GIKNUYZ h0 Z ]
C R g dummy
* g name * g
hash-set-proc * * C]^ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/hash-table.scm
" g
macro-typeg syntax-rulesg patternsg nameg
hash-set-proc C5RCH_ h Y ]L 6 Q g pair
g filenamef ice-9/hash-table.scm
!
CV h0 ] 45 4O 4 5> " G C g alist
* g table * g filenamef ice-9/hash-table.scm
!
* g nameg alist->hash-tableg
documentationf Convert ALIST into a hash table. C RCH` h Y ]L 6 Q g pair
g filenamef ice-9/hash-table.scm
"
CV h0 ] 45 4O 4 5> " G C g alist
* g table * g filenamef ice-9/hash-table.scm
"
* g nameg alist->hashq-tableg
documentationf Convert ALIST into a hash table. C
RCHa h Y ]L 6 Q g pair
g filenamef ice-9/hash-table.scm
#
CV h0 ] 45 4O 4 5> " G C g alist
* g table * g filenamef ice-9/hash-table.scm
#
* g nameg alist->hashv-tableg
documentationf Convert ALIST into a hash table. CRCHb h r ]LLL 6 j g pair
g filenamef ice-9/hash-table.scm
)
* - * 8 * CV h0 5 ] 45 4 O 45> " G C - g hash
. g assoc . g alist . g table . g filenamef ice-9/hash-table.scm
%
( (
) + # ) . g nameg alist->hashx-tableg
documentationf FConvert ALIST into a hash table with custom HASH and ASSOC
procedures. CRC p g m
( g filenamef ice-9/hash-table.scm
[ !
"
\ #
p %
r
C6 PK ! Y ۞" " ice-9/documentation.gonu [ GOOF----LE-8-2.0
] H 4 h ] g guile g define-module* g ice-9 g
documentation g filenameS
f ice-9/documentation.scm g importsS g rdelim
g exportsS g file-commentary g documentation-files g search-documentation-files g object-documentation g autoloadsS g regex g match:suffix g set-current-module g make-regexp f ^;;; Commentary: !f
^;;; Code: "f ^;+ #g regexp-exec $g length %g regexp? &g string? 'g
procedure? (g call-with-input-file )g eof-object? *g after +g in ,g read-delimited -f
.g
string-append /f 0g before 1g map 2g in-vicinity 3f guile-procedures.txt 4g %library-dir 5g %package-data-dir 6g %site-dir 7f . 8f 9g entry-delimiter :g file-exists? ;g symbol->string <g
string-length =g string=? >g substring ?g
string-ref @g find-documentation-in-file Ag or-map Bg procedure-documentation Cg object-property Dg macro? Eg macro-transformer Fg procedure-name Gg set-procedure-property!C 5 h ]4
5 4 > " G !"# h ] 4L 5 $ 6 C g line
g m g filenamef ice-9/documentation.scm
g h % h i i $ C$%&'()*#+,-./0
h ]!" 45 $ " $ C4L 5$ " 4L5$ " & C4 5& "& 44L55" " "g4 5 "P g port
g line g doc g parse-state g t
" g new-state Q g filenamef ice-9/documentation.scm
~
* % &
* 6 8 : = I K = Q U [ _ c * g i ( o q < w x } 1 > ) $ C h - 1 3 HHH45K45K45 O K 45$ J" 1 45$ " 45$ 45" J 45$ J" 2 45$ " 45$ 45" J 45$ J" 4 5$ " J
O 6 g filename
g cust g default-in-line-re g default-after-line-re g
default-scrub g dirt + 7 g v O } g v g v g
in-line-re g
after-line-re g scrub g filenamef ice-9/documentation.scm
]
d d * d e e - " e % f $ ) f 1 + f $ + f ; l B l F l O n ! O n R o ! \ o c p ! m o n p - r r r t $ t u $ u v $ u v 0 x x x z z { { l } )
g nameg file-commentary CR41i23 h } ]4 5 6 u g vicinity
g filenamef ice-9/documentation.scm
!
C4i5i6i7 h T ] C L g filenamef ice-9/documentation.scm
C 5R89R:(;<,9)=>? h ]!4L 5 45 4 > " G " {45$ C" 4 5 "45$ I44
55$ 045
$ 45 6"""4 5 "v g port
g name g len g entry , g t x g filenamef ice-9/documentation.scm
, - 7 > # L L M V Z [ ^ # k o p x ) 6 3 ! C h ]45$
O 6C g name
g file g filenamef ice-9/documentation.scm
g nameg find-documentation-in-file C@RA@ h g ]L 6 _ g file
g filenamef ice-9/documentation.scm
C h( - 1 3 O ( " 6 g name
" g files " g filenamef ice-9/documentation.scm
" "
g nameg search-documentation-files CR'BCDEFG h G ] 4 5$ 4 5" $ C4 5 $ C4 5$ 44 55" $ C4 5$ >4 5$ 14 4 55 $ 4
> " G " CCC ? g object
g t g t - g t T g docstring g filenamef ice-9/documentation.scm
% + - - 9 C D G ! O T ` j k u v y
1 g nameg object-documentationg
documentationf zReturn the docstring for OBJECT.
OBJECT can be a procedure, macro or any object that has its
`documentation' property set. CRC g m
0 g filenamef ice-9/documentation.scm P
]
\
C6 PK ! !`
ice-9/null.gonu [ GOOF----LE-8-2.0 ] # 4 h ] g guile g define-module* g ice-9 g null g filenameS
f ice-9/null.scm g
re-exportsS g define
g quote g lambda g if g set! g cond g case g and g or g let g let* g letrec g begin g do g delay g
quasiquote g
define-syntax g
let-syntax g
letrec-syntax
g set-current-module ! " C 5 h( P ]4
5 4" > " G CH g m
( g filenamef ice-9/null.scm
(
C6 PK ! k ice-9/unicode.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g ice-9 g unicode g filenameS
f ice-9/unicode.scm g exportsS g formal-name->char
g char->formal-name
g set-current-module g load-extension g
string-append f libguile- g effective-version f scm_init_unicodeC 5 h@ ]4
5 4 > " G i4i4i5 56| g m
( g filenamef ice-9/unicode.scm
- 3 ! 4 - < > @ @
C6 PK ! (^ ice-9/poe.gonu [ GOOF----LE-8-2.0
] # 4 h( ] g guile g define-module* g ice-9 g poe g filenameS
f
ice-9/poe.scm g importsS g hcons
g exportsS g
pure-funcq g
perfect-funcq g set-current-module g make-weak-key-hash-table g
funcq-memo g make-gc-buffer g funcq-buffer g hashq g
funcq-hash g eq?-list g funcq-assoc g not-found g hashx-ref !g
hashx-set! "g make-hash-tableC 5 h ]4
5 4 > " G 4i 5R4i 5R h@ ]" +( C4 ?5 "
" g arg-list
< g n < g x 1 g arg-list 1 g filenamef
ice-9/poe.scm
3
4 6 7 8 " 8 ) % 8 " & 8 ) 9 1 8 1 4 < g nameg
funcq-hash C R h0 ] ( C( C &
6C g x
* g y * g filenamef
ice-9/poe.scm
=
> ? @ A A @ # B & B ( B * g nameg eq?-list C R h( ]( C4 5$ C 6 g arg-list
& g alist & g filenamef
ice-9/poe.scm
D
E G
G G
G H
$ I & I
& g nameg funcq-assoc C R R ! hx - 1 3 L 45 & 84L ? 4> " G 4> " G C4> " G C g args
v g key v g cached v g val 0 a g filenamef
ice-9/poe.scm
P Q Q R Q ) S * X 0 X
3 Y E Z b U v
C h n ] O C f g base-func
g filenamef
ice-9/poe.scm
O
g nameg
pure-funcq CR" ! hx - 1 3 L 4M 5 & 84L ? 4> " G 4M > " G C4> " G C g args
v g key v g cached v g val 0 a g filenamef
ice-9/poe.scm
h i i j i ) k * p 0 p
3 q E r b m v
C h ]
H4 5KO C g size
g base-func g
funcq-memo g filenamef
ice-9/poe.scm
e
f g nameg
perfect-funcq CRC g m
, g filenamef
ice-9/poe.scm
- 0 9 0
: 1 F 1
3
=
D
L L L
O
e
C6 PK ! E=M5
ice-9/r5rs.gonu [ GOOF----LE-8-2.0 ] ' 4 h ] g guile g define-module* g ice-9 g r5rs g filenameS
f ice-9/r5rs.scm g exportsS g scheme-report-environment
g
re-exportsS g interaction-environment g call-with-input-file g call-with-output-file g with-input-from-file g with-output-to-file g open-input-file g open-output-file g close-input-port g close-output-port g load
g set-current-module g module-use! g module-public-interface g current-module g resolve-interface !g safe-r5rs "! #g scheme-report-interface $g scm-error %g
misc-error &f ~A is not a valid versionC 5 hx ]4
5 4 > " G 4 i4 i4 i5 54 i"5> " G 4 i4 i5 5#R$% &# h0 ] $ " 4 > " G C g n
. g filenamef ice-9/r5rs.scm
&
' ' ( ( ( ) * + # ( . g nameg scheme-report-environment C RC g m
, g filenamef ice-9/r5rs.scm
- !
2 !
7 ! & ? !
@ "
F " H "
M !
V $ [ $ 9 c $ f $
q &
s
C6 PK ! -, , ice-9/calling.gonu [ GOOF----LE-8-2.0, ] m 4 h ] g guile g define-module* g ice-9 g calling g filenameS
f ice-9/calling.scm g exportsS g with-excursion-function
g with-getter-and-setter g with-getter g !with-delegating-getter-and-setter g with-excursion-getter-and-setter g $with-configuration-getter-and-setter g /with-delegating-configuration-getter-and-setter g (let-with-configuration-getter-and-setter
g set-current-module g make-syntax-transformer g macro g $sc-dispatch g _ g any ! "g
syntax->datum #" $" %g
datum->syntax &% '% (g excursion-function-syntax )g syntax-violation *) +) ,f -source expression failed to match any pattern -g getter-and-setter-syntax .g #delegating-getter-and-setter-syntax /g map 0g gensym 1f temp 2f swap 3f thunk 4g lambda 5g letrec 6 7g begin 8g set! 9g dynamic-wind :f args ;f an-arg <f new-value =f loop >g symbol->keyword ?g let @g if Ag null? Bg quote CB Dg all-vals Eg vals FED Gg kws HAE Ig
quasiquote Jg unquote Kg car LKG MJL NKE OJN Pg unquote-splicing Qg cdr RQE SQG TRS Ug case Vg append Wg else Xg throw Yg bad-get-option ZBY [g or \g cadr ]g bad-set-option ^B] _g cddr `g append! ag simpler-get bg simpler-set cg body-proc dabc eabc f4de gg kw hg ig list jg new-val kgj lj C 5 h# p ]4
5 4 > " G 4 !$'( h x ]4 5 C p g vars
g proc g filenamef ice-9/calling.scm
/
0 0 C h e ] 4 5 L 4?6] g args
g v g filenamef ice-9/calling.scm /
C+, h( c ] 4 5 $ O @ 6 [ g y
' g tmp ' g filenamef ice-9/calling.scm
/
' C5 R4
!$'- h x ]4 5C p g vars
g proc
g filenamef ice-9/calling.scm
\
]
]
C h e ] 4 5 L 4?6] g args
g v g filenamef ice-9/calling.scm \
C+, h( c ] 4 5 $ O @ 6 [ g y
' g tmp ' g filenamef ice-9/calling.scm
\
' C5
R4 !$'- h ]4 5 Cx g vars
g proc g filenamef ice-9/calling.scm
d
e e e C h e ] 4 5 L 4?6] g args
g v g filenamef ice-9/calling.scm d
C+, h( c ] 4 5 $ O @ 6 [ g y
' g tmp ' g filenamef ice-9/calling.scm
d
' C5R4 !$'. h ]4 5C g vars
g get-delegate g set-delegate g proc g filenamef ice-9/calling.scm
u
v
v C h e ] 4 5 L 4?6] g args
g v g filenamef ice-9/calling.scm u
C+, h( c ] 4 5 $ O @ 6 [ g y
' g tmp ' g filenamef ice-9/calling.scm
u
' C5R4 !$'(- h ]4 54 5C | g vars
g proc g filenamef ice-9/calling.scm
C h f ] 4 5 L 4?6^ g args
g v g filenamef ice-9/calling.scm
C+, h( d ] 4 5 $ O @ 6 \ g y
' g tmp ' g filenamef ice-9/calling.scm
' C5R/012345678 h( n ]L L C f g n
# g sn # g filenamef ice-9/calling.scm
$ & # Ch n ] C f g sn
g n
g filenamef ice-9/calling.scm
'
C9 hp w ]!4 5454545 4 O 5 4
5 C o g vars
o g saved-value-names o g tmp-var-name o g swap-fn-name o g
thunk-name o g filenamef ice-9/calling.scm
* < L Q \ o g nameg excursion-function-syntax C(R0:;<=/>4?@ACDBFGHIMOPT/UV h n ] C f g kw
g v
g filenamef ice-9/calling.scm
( 7
CWXZ[QK\8 h n ] L C f g kw
g v g filenamef ice-9/calling.scm
# 2 C^_ % hx ])454545454 5
( " P
44 5 5 ! 44"O 5 # 5$ C g vars
u g args-name ' u g an-arg-name ' u g new-val-name ' u g loop-name ' u g kws ' u g filenamef ice-9/calling.scm
' 3
R T Z
" # # "
2 5 F W X
t ! u g nameg getter-and-setter-syntax C-R0:;<=/>4?@A`CDBFGHIMOPT/UV h n ] C f g kw
g v
g filenamef ice-9/calling.scm
( 7
CWK[Q\8 h n ] L C f g kw
g v g filenamef ice-9/calling.scm
# 2 C_ # h Z ]+454545454 5
(
" P
44 5 5 44!O 5 5" C R g vars
g get-delegate g set-delegate g args-name ' g an-arg-name ' g new-val-name ' g loop-name ' g kws ' g filenamef ice-9/calling.scm
' 3
T V \
" # # "
? B S d e
! g nameg #delegating-getter-and-setter-syntax C.R4 !$'f4hUg/>i h8 ] 4 5 $ " C g v
1 g t - g filenamef ice-9/calling.scm
0
$ 0 ' 8 * 0 0 1 Ck>l8 h8 ] 4 5 $ " C g v
3 g t / g filenamef ice-9/calling.scm
0
B % 0 ( 8 * 0 2
3 C
h8 ]4 5 4 5 C g vars-etc
6 g proc 6 g filenamef ice-9/calling.scm
#
, 6 C h f ] 4 5 L 4?6^ g args
g v g filenamef ice-9/calling.scm
C+, h( d ] 4 5 $ O @ 6 \ g y
' g tmp ' g filenamef ice-9/calling.scm
' C5R4 !$'f4hUg`/>i h8 ] 4 5 $ " C g v
1 g t - g filenamef ice-9/calling.scm
( 9
(
$ ! ) ' $ " 8 ' " @ * " 8 0 $ 1 CWk>l8 h8 ] 4 5 $ " C g v
3 g t / g filenamef ice-9/calling.scm
( ( ( ( 9
( (
( $ * ) ) ' * J % + 8 ( + @ * + 8 2 ( $
3 C h` ]44 5 5
44 5
5 C g vars-etc
Z g delegate-get Z g delegate-set Z g proc Z g filenamef ice-9/calling.scm
$ '
( 5 (
8 ( B - O (
P
Z C h f ] 4 5 L 4?6^ g args
g v g filenamef ice-9/calling.scm
C+, h( d ] 4 5 $ O @ 6 \ g y
' g tmp ' g filenamef ice-9/calling.scm
' C5R4 !$'?/ h p ] C h g v
g filenamef ice-9/calling.scm
C C C & C
C h y ] C q g v
g filenamef ice-9/calling.scm
D 1 D @ D I
D T D = C h( ]4 54 5 C g vars-etc
! g proc ! g filenamef ice-9/calling.scm
B
C C C D , C ! C h f ] 4 5 L 4?6^ g args
g v g filenamef ice-9/calling.scm B
C+, h( d ] 4 5 $ O @ 6 \ g y
' g tmp ' g filenamef ice-9/calling.scm
B
' C5RC h g m
( g filenamef ice-9/calling.scm
]
#
C6 PK ! Vl] ice-9/serialize.gonu [ GOOF----LE-8-2.0 ] 4 4 h^ ] g guile g define-module* g ice-9 g serialize g filenameS
f ice-9/serialize.scm g importsS g threads
g exportsS g call-with-serialization g call-with-parallelization g parallelize g set-current-module g
make-mutex g serialization-mutex g admin-mutex g owner g
lock-mutex g dynamic-root g unlock-mutex g make-syntax-transformer ! "g macro #g $sc-dispatch $# %# &g _ 'g any (&' )g
syntax->datum *) +) ,g
datum->syntax -, ., /g lambda 0g syntax-violation 10 20 3f -source expression failed to match any patternC 5 h` ]4
5 4 > " G 4i5 R4i5 RR hX ] 4> " G N M 45 $ 64> " G 4> " G 45 C g filenamef ice-9/serialize.scm
F G
H
I % I $ I
* N + K = L O M U M W
C h@ ~ ] 4> " G M 45 $ " 4> " G 6 v g filenamef ice-9/serialize.scm
P Q
R % R R
' T ( U ? V
?
C hX ] 4> " G N M 45 $ 64> " G 4> " G 45 C g filenamef ice-9/serialize.scm
F G
H
I % I $ I
* N + K = L O M U M W
C h@ ~ ] 4> " G M 45 $ " 4> " G 6 v g filenamef ice-9/serialize.scm
P Q
R % R R
' T ( U ? V
?
C h@ ~ ] 4> " G M 45 $ " 4> " G 6 v g filenamef ice-9/serialize.scm
P Q
R % R R
' T ( U ? V
?
C h` ] HO O 4O > " G V4 > X4O > " G CX4O > " G F g thunk
_ g outer-owner _ g filenamef ice-9/serialize.scm
C
D E _ g nameg call-with-serialization CR4!"%(+./ h c - 1 3 C [ g forms
g filenamef ice-9/serialize.scm
X
Y
C h g ] 4 5 L 4?6_ g args
g v g filenamef ice-9/serialize.scm X
C23 h( e ] 4 5 $ O @ 6 ] g y
' g tmp ' g filenamef ice-9/serialize.scm
X
' C5R hH ] 4> " G N M 45 $ 4> " G " 6 ~ g filenamef ice-9/serialize.scm
^ _
`
a a $ a
' c ( d C e
C
C hP ] 4> " G M 45 $ *4> " G 4> " G M C6~ g filenamef ice-9/serialize.scm
g h
i i i
! k 3 l H m P n
P
C hH ] 4> " G N M 45 $ 4> " G " 6 ~ g filenamef ice-9/serialize.scm
^ _
`
a a $ a
' c ( d C e
C
C hP ] 4> " G M 45 $ *4> " G 4> " G M C6~ g filenamef ice-9/serialize.scm
g h
i i i
! k 3 l H m P n
P
C hP ] 4> " G M 45 $ *4> " G 4> " G M C6~ g filenamef ice-9/serialize.scm
g h
i i i
! k 3 l H m P n
P
C h` ] HO O 4O > " G V4 > X4O > " G CX4O > " G F g thunk
_ g outer-owner _ g filenamef ice-9/serialize.scm
[
\ ] _ g nameg call-with-parallelization CR4!"%(+./ h c - 1 3 C [ g forms
g filenamef ice-9/serialize.scm
p
q
C h g ] 4 5 L 4?6_ g args
g v g filenamef ice-9/serialize.scm p
C23 h( e ] 4 5 $ O @ 6 ] g y
' g tmp ' g filenamef ice-9/serialize.scm
p
' C5RC g m
, g filenamef ice-9/serialize.scm 7
- ? 6 ?
7 @ @ @
D A
C
[
\
C6 PK ! ˃ ˃
ice-9/poll.gonu [ GOOF----LE-8-2.0 ] 4 h{A ] g guile g define-module* g ice-9 g poll g filenameS
f ice-9/poll.scm g importsS g srfi
g srfi-9
g gnu
g rnrs g bytevectors g exportsS g make-empty-poll-set g poll-set? g
poll-set-nfds g poll-set-find-port g
poll-set-port g poll-set-events g set-poll-set-events! g poll-set-revents !g set-poll-set-revents! "g
poll-set-add! #g poll-set-remove! $ !"# %g set-current-module &% '% (g load-extension )g
string-append *f libguile- +g effective-version ,f
scm_init_poll -g %sizeof-struct-pollfd .g error /f Unexpected struct pollfd size 0g defined? 1g POLLIN 2g call-with-deferred-observers 32 42 5g module-export! 65 75 8g current-module 98 :8 ;1 <g POLLPRI =< >g POLLOUT ?> @g POLLRDHUP A@ Bg POLLERR CB Dg POLLHUP ED Fg POLLNVAL GF Hg
<poll-set> Ig %make-poll-set-procedure Jg make-syntax-transformer KJ LJ Mg
make-poll-set Ng macro Og $sc-dispatch PO QO Rg _ Sg any TRSSS Ug
syntax-object Vg lambda Wg m-c625576-d Xg top YWX Zg ribcage [g t-c625576-a \g t-c625576-b ]g t-c625576-c ^[\] _YYY `f l-c625576-12 af l-c625576-13 bf l-c625576-14 c`ab dZ^_c eZ fg x gf hY if l-c625576-f ji kZghj lg shift mg proc-name ng args omn pX qpp rf l-1e8ba8b5a-60 sf l-1e8ba8b5a-61 trs uZoqt 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 f l-1e8ba8b5a-57 }~ Z{| g make-procedure-name p f l-1e8ba8b5a-43 Z p f l-1e8ba8b5a-42 Zg Ydekleeeeu
g hygiene
UV g pollfds pdek U g nfds U g ports U g make-struct g m-c625576-8 X g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 X f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a Z g ctor-args f l-1e8ba8b5a-120 Z g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d Zq 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 Z 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 Z f l-1e8ba8b5a-da Zg dekleeeee U UH U
g each-any Rߌ g syntax-violation f Wrong number of arguments g identifier? pek UI f -source expression failed to match any pattern g record-type-vtable g pwpwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %poll-set?-procedure RS g m-c625576-1e X g t-c625576-1d f l-c625576-23 Z f l-c625576-20 Zg eleeeeu
UV
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 X 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 Z g copier-id !f l-1e8ba8b5a-21c "! #Z " $g ctor-name %$ &f l-1e8ba8b5a-214 '& (Z%' ) *f l-1e8ba8b5a-212 +* ,Z)+ -g layout .- /f l-1e8ba8b5a-210 0/ 1Z.0 2g
immutable? 32 4f l-1e8ba8b5a-20e 54 6Z35 7g field-count 87 9f l-1e8ba8b5a-20c :9 ;Z8: <g
getter-ids =< >f l-1e8ba8b5a-209 ?> @Z=? Ag field-ids BA Cf l-1e8ba8b5a-206 DC EZBD Fg predicate-name Gg
field-spec H2FG Ipppppp Jf l-1e8ba8b5a-1f9 Kf l-1e8ba8b5a-1fa Lf l-1e8ba8b5a-1fb Mf l-1e8ba8b5a-1fc Nf l-1e8ba8b5a-1fd Of l-1e8ba8b5a-1fe PJKLMNO QZHIP Rele eeee#e(e,e1e6e;e@eEQ SU
R TS Ug and VUUR Wg struct? XUWR YXS Zg eq? [UZR \g
struct-vtable ]U\R ^]S _pe `UH_ a[^` bVYa c Tb dpe eUd fg throw-bad-struct gf hf ig pset-pollfds jg %pset-pollfds-procedure kg free-id lg
%%on-error mg m-c625576-2a nmX on pf l-c625576-2c qp rZgoq snerleeeeu tUls ukt vuS wg %%type xg t-1e8ba8b5a-14b yg t-1e8ba8b5a-14c zg t-1e8ba8b5a-14d {g t-1e8ba8b5a-14e |g t-1e8ba8b5a-14f }g t-1e8ba8b5a-150 ~g t-1e8ba8b5a-151 xyz{|}~ g m-1e8ba8b5a-152 X f l-1e8ba8b5a-156 f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c Z g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a Zq < ppp f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 Z erleeeee Uw k RvS g ck g err g s nn f l-c625576-2f f l-c625576-30 Z nerleeeeu
U g quote U per UH g %%index U k RvS f l-c625576-34 f l-c625576-35 Z nerleeeeu
U U er U
g %%copier U k RvS f l-c625576-39 f l-c625576-3a Z nerleeeeu
U U g %%<poll-set>-set-fields per U g t-c625576-29 f l-c625576-3e Zo nerleeeeu
UV erleeeee U g if U UZ U\ per UH g
struct-ref U er U
Uf U Ui per Uj g %poll-set-nfds-procedure g m-c625576-45 X f l-c625576-47 Zg eleeeeu Ul k S eleeeee Uw k RS f l-c625576-4a f l-c625576-4b Z eleeeeu
U U pe UH U
k R
S f l-c625576-4f
f l-c625576-50
Z eleeeeu
U U e U U k RS f l-c625576-54 f l-c625576-55 Z eleeeeu
U U !p e "U! # " $# %g t-c625576-44 &% 'f l-c625576-59 (' )Z&( *)eleeeeu
+UV* ,)eleeeee -U, .- /U, 0UZ, 1U\, 21- 3p)e 4UH3 5024 6U, 7)e 8U 7 96-8 :Uf, ;U, <U3 =;< >:-= ?/59> @+.? Ape BUA Cg
pset-ports Dg %pset-ports-procedure Eg m-c625576-60 FEX GF Hf l-c625576-62 IH JZgGI KFeJleeeeu LUlK MkL NMS OeJleeeee PUwO QkP RRNQS SFF Tf l-c625576-65 Uf l-c625576-66 VTU WZSV XFWeJleeeeu
YUX ZUX [pWeJ \UH[ ]Z\ ^] _UO `k_ aRN`S bf l-c625576-6a cf l-c625576-6b dbc eZSd fFeeJleeeeu
gUf hUf ieeJ jU i khj lk mUO nkm oRNnS pf l-c625576-6f qf l-c625576-70 rpq sZSr tFseJleeeeu
uUt vUt wpseJ xUw yvx zy {g t-c625576-5f |{ }f l-c625576-74 ~} Z|G~ FeJleeeeu
UV eJleeeee U U UZ U\ peJ UH U eJ U Uf U UC peJ UD g each SS S S S g %%set-fields g dummy g check? g expr g m-c625576-7b X f l-c625576-80 f l-c625576-81 f l-c625576-82 f l-c625576-83 f l-c625576-84 Z f l-c625576-7d Zg g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d X f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 Z f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 Z eleeee
U pe UH Ui U UC g map g list g set-pset-pollfds! g %set-pset-pollfds!-procedure RSS g m-c625576-8f X g t-c625576-8d g t-c625576-8e f l-c625576-94 f l-c625576-95 Z f l-c625576-91 Zg eleeeeu
UV g t-1e8ba8b5a-18c g t-1e8ba8b5a-18d g m-1e8ba8b5a-18e X f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 Z g setter x f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 Z G f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e Zq g field-specs f l-1e8ba8b5a-179 f l-1e8ba8b5a-17a Zq eleee U g val U U UZ U\ pe UH
g struct-set! U
e
U
Uf U U pe U g set-pset-nfds! g %set-pset-nfds!-procedure g m-c625576-9f X g t-c625576-9d g t-c625576-9e f l-c625576-a4 !f l-c625576-a5 " ! #Z " $ %f l-c625576-a1 &% 'Zg$& (#e'leeeeu
)UV( *#e'leee +U* ,U * -+, .U* /UZ* 0U\* 10+ 2p#e' 3UH2 4/13 5U
* 6#e' 7U 6 85+7, 9Uf* :U* ;U2 <:; =9+< >.48= ?)-> @pe' AU@ Bg set-pset-ports! Cg %set-pset-ports!-procedure Dg m-c625576-af EDX Fg t-c625576-ad Gg t-c625576-ae HFG IEE Jf l-c625576-b4 Kf l-c625576-b5 LJK MZHIL NE Of l-c625576-b1 PO QZgNP REMeQleeeeu
SUVR TMeQleee UUT VU T WUV XUT YUZT ZU\T [ZU \pMeQ ]UH\ ^Y[] _U
T `MeQ aU ` b_UaV cUfT dUT eUB\ fde gcUf hX^bg iSWh jpeQ kUCj lg
pollfd-offset mg * ng n on pg m-c625576-dc qpX rqp sf l-c625576-e1 tf l-c625576-e2 ust vZoru wq xf l-c625576-de yx zZgwy {pvez |Um{ }U { ~} g make-bytevector g make-vector g
vector-length g pset-size g bytevector-copy! g vector-move-left! g ensure-pset-size! f poll set index out of bounds g integer? g
port->fdes g port? g release-port-handle g primitive-pollC 5h(< a ]4
$5 4' > " G 4(i4)i*4+i5 5,> " G -i $ " 4.i/-i> " G 40i15$ ~447:; h A ] 45 6 9 g filenamef ice-9/poll.scm
,
C> " G " 40i<5$ {447:= h A ] 45 6 9 g filenamef ice-9/poll.scm
/
C> " G " 40i>5$ {447:? h A ] 45 6 9 g filenamef ice-9/poll.scm
2
C> " G " 40i@5$ {447:A h A ] 45 6 9 g filenamef ice-9/poll.scm
5
C> " G " 40iB5$ {447:C h A ] 45 6 9 g filenamef ice-9/poll.scm
8
C> " G " 40iD5$ {447:E h A ] 45 6 9 g filenamef ice-9/poll.scm
;
C> " G " 40iF5$ {447:G h A ] 45 6 9 g filenamef ice-9/poll.scm
>
C> " G " H h ] C g pollfds
g nfds g ports g filenamef ice-9/poll.scm
A
g nameg %make-poll-set-procedure CIR4LMNQT h e ] C ] g t-c625576-a
g t-c625576-b g t-c625576-c CM h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 z g x
n g tmp n g tmp " n g tmp > n g filenamef ice-9/poll.scm
A
n C5MRH 4 H> " G Ii HRH h s ] $ CC k g obj
g filenamef ice-9/poll.scm
A
g nameg %poll-set?-procedure CR4LNQc h 4 ] C , g t-c625576-1d
C h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
Ce h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 z g x
n g tmp n g tmp " n g tmp > n g filenamef ice-9/poll.scm
A
n C5RHhi h t ] &
C 6l g s
g filenamef ice-9/poll.scm
A
g nameg %pset-pollfds-procedure CjR4LiNQ 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 4 ] C , g t-c625576-29
Ci h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
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/poll.scm
A
C5iRHh h u ] & C 6m g s
g filenamef ice-9/poll.scm
A
g nameg %poll-set-nfds-procedure CR4LNQ 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 4 ] C , g t-c625576-44
C h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
CB 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/poll.scm
A
C5RHhC h r ] & C 6 j g s
g filenamef ice-9/poll.scm
A
g nameg %pset-ports-procedure CDR4LCNQRY^ h : ]C 2 g err
g s Cagl h : ]C 2 g err
g s Couz h : ]C 2 g err
g s C h 4 ] C , g t-c625576-5f
CC h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
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/poll.scm
A
C5CR4LNQ 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/poll.scm
A
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5RHh h ] &
C 6 g s
g val g filenamef ice-9/poll.scm
A
g nameg %set-pset-pollfds!-procedure CR4LNQ h N ] C F g t-c625576-8d
g t-c625576-8e C h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 z g x
n g tmp n g tmp " n g tmp > n g filenamef ice-9/poll.scm
A
n C5RHh h ] & C 6 g s
g val g filenamef ice-9/poll.scm
A
g nameg %set-pset-nfds!-procedure CR4LNQ? h N ] C F g t-c625576-9d
g t-c625576-9e C h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
CA h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 z g x
n g tmp n g tmp " n g tmp > n g filenamef ice-9/poll.scm
A
n C5RHhB h ] & C 6 g s
g val g filenamef ice-9/poll.scm
A
g nameg %set-pset-ports!-procedure CCR4LBNQi h N ] C F g t-c625576-ad
g t-c625576-ae CB h Q ]L 6 I g a
g filenamef ice-9/poll.scm A
CR h A ] L 69 g filenamef ice-9/poll.scm A
Ck h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 z g x
n g tmp n g tmp " n g tmp > n g filenamef ice-9/poll.scm
A
n C5BR4LlNQ|~ h < ]C 4 g dummy
g n C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/poll.scm
I
" g
macro-typeg syntax-rulesg patternsg n C5lRH h8 - . , 3 # 4
54 5
C g
pre-allocated
8 g pollfds ) 8 g ports ) 8 g filenamef ice-9/poll.scm
L
M M " ! M " O ) M 8
g nameg make-empty-poll-set CRHhC h( x ] & " 4 56 p g set
! g filenamef ice-9/poll.scm
Q
R ! R ! g nameg pset-size CRHhiCB
h ]:4 5 $ " $ " &
" 4 5 & " 4 5 & " 4 54
545 4
> " G 4
> " G &
" 4 > " G & C 6 "C g set
g size g prev g new g old-pollfds g nfds g old-ports g new-pollfds g new-ports g filenamef ice-9/poll.scm
T
U U V V W X ! X
& Y , Y / Z ! I [ c \ | ] ! ] 2 ] ! ^ Z _ ` " _ a b c W g nameg ensure-pset-size! CRHhC hh ]
" T & " 4 5$ 1 & " 4 5$ C "C
" g set
a g port a g i Z g filenamef ice-9/poll.scm
e
f g
# g ' g * h E h H h L h R j X j Z f
a g nameg poll-set-find-port C RHhC. hP ] & " 4 5$ & " 4 5C 6 g set
L g idx L g filenamef ice-9/poll.scm
m
n
n # n & o A o F p
L p L g nameg
poll-set-port C RHhi. hX ] & " 4 5$ $ &
" 4 5 C 6 g set
Q g idx Q g filenamef ice-9/poll.scm
r
s
s # s & t ! B t 7 E t 4 F t K u
Q u Q g nameg poll-set-events C RHhi. hX ] & " 4 5$ ' &
" 4 5 C 6 g set
T g idx T g events T g filenamef ice-9/poll.scm
w
x
x # x & y " B y 8 E y 5 H y N {
T { T g nameg set-poll-set-events! C RHhi. hX ] & " 4 5$ $ &
" 4 5 C 6 g set
Q g idx Q g filenamef ice-9/poll.scm
}
~
~ # ~ & ! B 7 E 4 F K
Q Q g nameg poll-set-revents C RHhi. hX ] & " 4 5$ ' &
" 4 5 C 6 g set
T g idx T g revents T g filenamef ice-9/poll.scm
# & " B 8 E 5 H N
T T g nameg set-poll-set-revents! C!RHhiC h ]# & " 4 5 45$ " 45 45$ 4> " G " 4 > " G &
" 4 5 &
" 4 5 &
" 4 5
& " 4
5 & C 6 g set
g
fd-or-port g events g idx g off # g fd = g val g filenamef ice-9/poll.scm
# # & 0
7 = @ J K a h m x 3 3 g nameg
poll-set-add! C"RHh.Ci h " ]" & " 4 5$ " 4 > " G & " 4 5 & " 4 5 4 & " 4 5 & " 4 5> " G & " 4 54 &
" 4 5 &
" 4 5 > " G &
" 4 5
& " 4
> " G C g set
g idx g nfds z g off z g port z g val j g filenamef ice-9/poll.scm
# ( ,
5 @ \
_ z z ( "
8 ) 1 4 = 7 . 8 = H b B e 3 g j j % g nameg poll-set-remove! C#RHhiC hp - . , 3 # &
" 4 5 & " 4 5 & " 4 56 g poll-set
k g timeout k g filenamef ice-9/poll.scm
5 O k k g nameg poll CRC Y g m
, g rtd
g filenamef ice-9/poll.scm
- % 2 % 8 % ! 9 % - A % C & H % W ( [ (
` ) f ) o ) x + ~ + + +
, . . . .
/ 1 1 1 1
2 4 4 4 4
5 7 7 7 7
8 # : ) : + : / :
0 ; = = = =
> A
' L
( Q
+ T
-e e
. m
/ r
1+ w
2m }
3
6
:
<%
> <'
C6 PK ! eV V ice-9/and-let-star.gonu [ GOOF----LE-8-2.0> ] 4 h ] g guile g define-module* g ice-9 g and-let-star g filenameS
f ice-9/and-let-star.scm g exportsS g and-let*
g set-current-module g make-syntax-transformer g %and-let* g macro g $sc-dispatch g _ g any g
syntax-object g begin g top ! "g ribcage #g orig-form $g body %#$ &!! 'f l-1706b9545eb5b006-4 (f l-1706b9545eb5b006-5 )'( *"%&) +" ,g form -, .! /f l-1706b9545eb5b006-1 0/ 1"-.0 2!*+1 3g hygiene 43 5 24 6 24 7 8 978 :9 ;: <; = >=8 ?> @? A@ Bg and Cg expr Dg rest Eg rest* F#CDE$ G!!!!! Hf l-1706b9545eb5b006-22 If l-1706b9545eb5b006-23 Jf l-1706b9545eb5b006-24 Kf l-1706b9545eb5b006-25 Lf l-1706b9545eb5b006-26 MHIJKL N"FGM O!N+1 P BO4 Q O4 R8 SR TS UT V7 WV X= YX Z= [V \[ ]\ ^X _^ `_ a#C$ b!!! cf l-1706b9545eb5b006-6e df l-1706b9545eb5b006-6f ef l-1706b9545eb5b006-70 fcde g"abf h!g+1 i Bh4 j h4 k= lk ml n8 on po qg syntax-violation rf
Bad clause sq tq uf -source expression failed to match any pattern vg identifier? wg var x#w$ yf l-1706b9545eb5b006-7b zf l-1706b9545eb5b006-7c {f l-1706b9545eb5b006-7d |yz{ }"xb| ~!}+1 B~4 ~4 g let #wC$ !!!! f l-1706b9545eb5b006-65 f l-1706b9545eb5b006-66 f l-1706b9545eb5b006-67 f l-1706b9545eb5b006-68 " !+1 4 B4 4 #wDE$ f l-1706b9545eb5b006-37 f l-1706b9545eb5b006-38 f l-1706b9545eb5b006-39 f l-1706b9545eb5b006-3a f l-1706b9545eb5b006-3b "G !+1 B4 4 #wCDE$ !!!!!! f l-1706b9545eb5b006-15 f l-1706b9545eb5b006-16 f l-1706b9545eb5b006-17 f l-1706b9545eb5b006-18 f l-1706b9545eb5b006-19 f l-1706b9545eb5b006-1a " !+1 4 B4 4 g each-any g t-1706b9545eb5b006-92 g m-1706b9545eb5b006-93 f l-1706b9545eb5b006-96 " g c $ f l-1706b9545eb5b006-8e f l-1706b9545eb5b006-8f "& f l-1706b9545eb5b006-8b "-. !++ 4 g cond-expand-provide g current-module g srfi-2 C 5 hX t ]4
5 4 > " G 4 56 h C ]C ; g orig-form
g body C<APQ h z ] Cr g orig-form
g expr g rest g rest* g body CUWY h C ]C ; g orig-form
g expr CZ]`ij h U ] C M g orig-form
g expr g body Cmpq r h ] 6 g orig-form
g
bad-clause g rest g body g filenamef ice-9/and-let-star.scm @ @ # @ Ctuv h ]6} g orig-form
g var g body g filenamef ice-9/and-let-star.scm ; C h T ] C L g orig-form
g var g body Cv h ]6 g orig-form
g var g expr g body g filenamef ice-9/and-let-star.scm 5 C h f ] C ^ g orig-form
g var g expr g body Cv h s ]6k g orig-form
g var g filenamef ice-9/and-let-star.scm 0 C h B ]C : g orig-form
g var Cv h ]6} g orig-form
g var g expr g filenamef ice-9/and-let-star.scm + C h T ]C L g orig-form
g var g expr Cv h ]6 g orig-form
g var g rest g rest* g body g filenamef ice-9/and-let-star.scm & C h y ] Cq g orig-form
g var g rest g rest* g body Cv h ]6 g orig-form
g var g expr g rest g rest* g body g filenamef ice-9/and-let-star.scm C h( ] C g orig-form
' g var ' g expr ' g rest ' g rest* ' g body ' ' C h ' ]Y4 5 $ @4 5 " K4 5 $ @4 5 " 4 5 " 4 5 $
@4 5 " 4 5 " e4
5 $ @4 5
" 4 5 $ @ 6
$ 4
?$
@""$ 4?$ @""|$ 4?$ @"R"N$ 4?$ @"
" $ 4 ?$ @""$ 4 ?$ @"" g form
g tmp g tmp " g tmp 1 s g tmp H s g tmp W T g tmp f 5 g tmp } 5 g tmp g tmp g tmp
g tmp g filenamef ice-9/and-let-star.scm
C5R4 h ; ]L C 3 g c
g body Ctu h( l ] 4 5 $ O @ 6 d g form
' g tmp ' g filenamef ice-9/and-let-star.scm
C ' C5 Ri4i5 6l g m
( g filenamef ice-9/and-let-star.scm
N H V H & X H
X
C6 PK ! ); x x ice-9/save-stack.gonu [ GOOF----LE-8-2.0` ] 4 hP ] g guile g define-module* g ice-9 g
save-stack g filenameS
f ice-9/save-stack.scm g replacementsS g stack-saved?
g the-last-stack
g set-current-module g
make-fluid g %stacks g
make-stackC 5 h` v ]4
5 4 > " G R4i5
R
h@ - 1 3 $ C[ 4 $ "
?\ C g narrowing
; g stacks 6 g filenamef ice-9/save-stack.scm
*
+ - 5 ! 7 ! % 7 ( 7 0 2 5 9 9
;
g nameg
save-stack CRC n g m
( g filenamef ice-9/save-stack.scm
, &
- ( 6 (
] *
_
C6 PK ! u@MM MM ice-9/optargs.gonu [ GOOF----LE-8-2.05M ] 4 h7 ] g guile g define-module* g ice-9 g optargs g filenameS
f ice-9/optargs.scm g importsS g system
g base g pmatch
g exportsS g let-optional g
let-optional* g let-keywords g
let-keywords* g define*-public g defmacro* g defmacro*-public g
re-exportsS g lambda* g define* g set-current-module ! "g $sc-dispatch #" $" %g reverse &g any '&& ('& )&& *g syntax-violation +* ,* -f -source expression failed to match any pattern .g identifier? /g
syntax-object 0g top 10 2g ribcage 3g v 4g rest 534 611 7f l-44375c4e67-1f0 8f l-44375c4e67-1f1 978 :2569 ;2 <g lp =g bindings >g vars ?g inits @<=>? A1111 Bf l-44375c4e67-1d4 Cf l-44375c4e67-1d5 Df l-44375c4e67-1d6 Ef l-44375c4e67-1d7 FBCDE G2@AF H= I1 Jf l-44375c4e67-1d3 KJ L2HIK M1:;G;L Ng hygiene ON P/MO Qg
vars&inits Rg make-syntax-transformer SR TR Ug macro Vg _ Wg each-any X&W YWX Z&Y [VZ \g length ]g append ^g generate-temporaries _&&&WW `g let ag n bg n+1 cg t dg i eab>cd f11111 gf l-44375c4e67-210 hf l-44375c4e67-211 if l-44375c4e67-212 jf l-44375c4e67-213 kf l-44375c4e67-214 lghijk m2efl n>? of l-44375c4e67-20b pf l-44375c4e67-20c qop r2n6q sg rest-arg tg binding ug b0 vg b1 wstuv xf l-44375c4e67-200 yf l-44375c4e67-201 zf l-44375c4e67-202 {f l-44375c4e67-203 |xyz{ }2wA| ~g x ~ f l-44375c4e67-1f5 2I 1;m;;r}; /`O g map g lambda /O g apply /O g or /O g parse-lambda-case /O g quote /O /
O /O g list /O g error /O f sth /O &&&W ab>d f l-44375c4e67-23a f l-44375c4e67-23b f l-44375c4e67-23c f l-44375c4e67-23d 2A f l-44375c4e67-235 f l-44375c4e67-236 2n6 f l-44375c4e67-22a f l-44375c4e67-22b f l-44375c4e67-22c f l-44375c4e67-22d 2wA f l-44375c4e67-21f 2I 1;;;; /O /O /O /O /O /
O /O /O /O /O &Z V g aok stuv f l-44375c4e67-279 f l-44375c4e67-27a f l-44375c4e67-27b f l-44375c4e67-27c f l-44375c4e67-27d 2f f l-44375c4e67-245 2I 1; /`O g r /O /O g symbol->keyword g
syntax->datum g iota &&&WWWW g ivars g kw g idx a>cd 1111111 f l-44375c4e67-264 f l-44375c4e67-265 f l-44375c4e67-266 f l-44375c4e67-267 f l-44375c4e67-268 f l-44375c4e67-269 f l-44375c4e67-26a 2 f l-44375c4e67-25f f l-44375c4e67-260 2n6 f l-44375c4e67-252 f l-44375c4e67-253 f l-44375c4e67-254 f l-44375c4e67-255 f l-44375c4e67-256 2f 1;;;; /`O /O /O /O /O /O /
O /O g cons /O /O /O f l-44375c4e67-2b4 f l-44375c4e67-2b5 f l-44375c4e67-2b6 f l-44375c4e67-2b7 f l-44375c4e67-2b8 2f f l-44375c4e67-286 2I 1; /`O /O /O &&WWW
a>d f l-44375c4e67-2a5 f l-44375c4e67-2a6
f l-44375c4e67-2a7 f l-44375c4e67-2a8 f l-44375c4e67-2a9
2
f f l-44375c4e67-2a0 f l-44375c4e67-2a1 2n6 f l-44375c4e67-293 f l-44375c4e67-294 f l-44375c4e67-295 f l-44375c4e67-296 f l-44375c4e67-297 2f 1;;; ; / O / O / O !/ O "/ O #/
O $/ O %/ O &/ O '/ O ()X )V( *g
define-public +g id ,g args -+,uv .f l-44375c4e67-2c4 /f l-44375c4e67-2c5 0f l-44375c4e67-2c6 1f l-44375c4e67-2c7 2./01 32-A2 4f l-44375c4e67-2c1 54 62I5 713;6 8/*7O 9/ 7O :V&& ;g val <+; =f l-44375c4e67-2d2 >f l-44375c4e67-2d3 ?=> @2<6? A1@;6 B/*AO C&X D&C E&D FVE GVD Hg define-macro If l-44375c4e67-2f0 Jf l-44375c4e67-2f1 Kf l-44375c4e67-2f2 Lf l-44375c4e67-2f3 MIJKL N2-AM Of l-44375c4e67-2d7 PO Q2IP R1N;Q S/HRO T/RO U/ RO Vg string? Wg doc X+,Wuv Yf l-44375c4e67-2e4 Zf l-44375c4e67-2e5 [f l-44375c4e67-2e6 \f l-44375c4e67-2e7 ]f l-44375c4e67-2e8 ^YZ[\] _2Xf^ `1_;Q a/H`O b/ `O cg begin dg dummy ed+,uv fg m-44375c4e67-2fa gf0 hg1111 if l-44375c4e67-2ff jf l-44375c4e67-300 kf l-44375c4e67-301 lf l-44375c4e67-302 mf l-44375c4e67-303 nijklm o2ehn pg qf l-44375c4e67-2fc rq s2pr t1o;s u/ctO v/tO wg
export-syntax x/wtO yg
uninitialized zg *uninitialized* {g make-list |g append! }g keyword? ~g assq-ref g list-set! g scm-error g keyword-argument-error f Unrecognized keyword f Invalid keyword g list-copy f unexpected specC 5 h/ ]4
5 4! > " G $% h U ] 4L54L 5D M g filenamef ice-9/optargs.scm Z
Z Z
C(),-. h g ] 6_ g v
g rest g filenamef ice-9/optargs.scm ] CP h w ]L LL 6 o g v
g rest g filenamef ice-9/optargs.scm ^ ^ " ^ C. h y ] 6q g v
g init g rest g filenamef ice-9/optargs.scm [ C h ]L LL 6 g v
g init g rest g filenamef ice-9/optargs.scm \ \ " \ C h ]4 5 $
O @4 5 " @4 5 " 6$ 4?$ L O @""$ 4 ?$
L O @"" g bindings
g vars g inits g tmp
g tmp ( g tmp 7 n g filenamef ice-9/optargs.scm
W g nameg lp C h ] O Q 6 g bindings
g lp
g filenamef ice-9/optargs.scm
V
W W % W 1 W g nameg
vars&inits CQR4TU$[,-. h ] 6 g rest-arg
g binding g b0 g b1 g filenamef ice-9/optargs.scm c , CQ\]^$_ h Z ]L C R g tmp-44375c4e67-21b
g tmp-44375c4e67-21a C hX j ]4O 5LL
L
L C b g n
U g n+1 U g vars U g t U g i U U C,-
hh ]$4> G 45454 545 45 $ O @ 6 g rest-arg
f g binding f g b0 f g b1 f g vars
f g inits
f g tmp ; f g tmp F f g filenamef ice-9/optargs.scm d $ d f g " # g $ h - h , / h 0 i " ; f f C h@ d ] 4 5 " 6$ 4?$ @"" \ g x
9 g tmp 9 g filenamef ice-9/optargs.scm
a 9 C5R4TU$[,-. h ] 6 g rest-arg
g binding g b0 g b1 g filenamef ice-9/optargs.scm v , CQ\]$ h : ]L C 2 g tmp-44375c4e67-243
C
hP [ ]LL 4
O 5L L C S g n
L g n+1 L g vars L g i L L C,- h` ]$4> G 45454 5 45 $ O @6 g rest-arg
_ g binding _ g b0 _ g b1 _ g vars
_ g inits
_ g tmp 4 _ g tmp ? _ g filenamef ice-9/optargs.scm w $ w y z " # z $ { - { , / { 4 y
_ C h@ d ] 4 5 " 6$ 4?$ @"" \ g x
9 g tmp 9 g filenamef ice-9/optargs.scm
t 9 C5R4TU$ h( v ] C n g rest-arg
# g aok # g binding # g b0 # g b1 # # C,-. h ] 6 g rest-arg
g aok g binding g b0 g b1 g filenamef ice-9/optargs.scm 0 CQ\^$ h Z ]L C R g tmp-44375c4e67-273
g tmp-44375c4e67-272 C h` ]4O 5LL
L4 5 L
L C g n
_ g vars _ g ivars _ g kw _ g idx _ g t _ g i _ _ C,-
h M ]%4> G 45454455445545 4 5 $
O @ 6 E g rest-arg
y g aok y g binding y g b0 y g b1 y g vars
y g inits
y g tmp L y g tmp W y g filenamef ice-9/optargs.scm $ % # * ( 4 # 5 $ 8 * @ $ A " L
y C hP v ]4 5 " 4 5 $ @ 6$ 4?$ @""n g x
P g tmp P g tmp 1 g filenamef ice-9/optargs.scm
P C5R4TU$ h( v ] C n g rest-arg
# g aok # g binding # g b0 # g b1 # # C,-. h ] 6 g rest-arg
g aok g binding g b0 g b1 g filenamef ice-9/optargs.scm 0 CQ\$ !"#$% h : ]L C 2 g tmp-44375c4e67-2b2
C&' hX k ]LL L 4 5
4 O 5L
L C c g n
V g vars V g kw V g idx V g i V V C,- hp ; ]%4> G 4544554455 45 $ O @
6 3 g rest-arg
k g aok k g binding k g b0 k g b1 k g vars
k g inits
k g tmp > k g tmp I k g filenamef ice-9/optargs.scm $ # # ( - # . $ 1 * 9 $ > k C hP v ]4 5 " 4 5 $ @ 6$ 4?$ @""n g x
P g tmp P g tmp 1 g filenamef ice-9/optargs.scm
P C5R4TU$)89 h \ ] C T g id
g args g b0 g b1 C:,-. h h ] 6` g id
g val g filenamef ice-9/optargs.scm CB h ; ] C 3 g id
g val C hP v ]4 5 $ @4 5 " 6$ 4?$ @""n g x
P g tmp P g tmp " P g filenamef ice-9/optargs.scm
P C5R4TU$FGSTU h \ ] C T g id
g args g b0 g b1 C,-V h ]456 g id
g args
g doc
g b0
g b1
g filenamef ice-9/optargs.scm *
!
Cab h m ] C e g id
g args g doc g b0 g b1 C hP v ]4 5 " 4 5 $ @ 6$ 4?$ @""n g x
P g tmp P g tmp 1 g filenamef ice-9/optargs.scm
P C5R4TU$Euvx h o ] C g g dummy
g id g args g b0 g b1 C,- h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/optargs.scm
" g
macro-typeg syntax-rulesg patternsg idg argsg b0g b1g ... C5Ry zR{z|}~ hP
] $ ; $ " $ $
$
$
( " m
$ G$ " 4 5 $
45" " "( C "" m
$ " Q( %4? " "" ~$ 8
$ " [ "
$ -( " 45$ " C$ CC" ( 6( C& 4?" "45$ 45$ $ 4
5" " $ .4> " G "Z" 645$ ,$ $ """" "" ( 6( C& 4?" "45$ 45$ $ 4
5" " $ .4> " G "Z" 645$ ,$ $ """"$ "
64 5 "^
6
6
6
6
6
6
6
g spec
L g inits L g args L g vx D g vy D g vx < g vy < g vx 1 4 g vy 1 4 g vx B , g vy
B , g vx S $ g vy S $ g vx
d g vy d g args r g prev r g tail r g n r g
slots-tail g slots P g
slots-tail P g args-tail P g n P g inits P g slots T g
slots-tail T g args-tail T g inits T g rest-idx T g slots g
slots-tail g args-tail g inits g t F g slots g
slots-tail g args-tail g inits g t Q g args )g filenamef ice-9/optargs.scm
r " u $ z # % % ! % & & & & & ' ' ' # , , # , - / . 0 . 2 2 % 2 2 3 3 % 3 ) 3 0 . 3 3 5 4 5 9 6 < 6 % ? 6 5 B 6 < P 6 T 7 Z 8 _ ; b <
f < k = $ { =
> > 1 >
? 8 B B B - B 7 B - B C D 8 H I K N N O ( O / O ( O P & P 7 P ; P Q Q Q I S $ S & S * S - T . T 2 S 3 U : U # < U F I O W X W ! ^ W m X 0 | X ] ] 4 ^ ] I Y Y Y I Z Z Y \ + \ R + R _ ` b e e f ( f / f ( f
g g + g / g h # h % h ) ` * n / n 1 n 5 n 8 o 9 o = n > p E p # G p Q ` Z r c r ! i r x s $ s x x 4 y x ` t t t ` u u t w w i k # k
l l 3 m l
z z { | |
| $ |
( | , |
0 | 4 |
8 | < |
@ | D |
H | L |
L g nameg parse-lambda-case CRC { g m
0 g filenamef ice-9/optargs.scm ;
[ V
/
/
C6 PK ! 5ȹ) ) ice-9/scm-style-repl.gonu [ GOOF----LE-8-2.0) ] n 4 h ] g guile g define-module* g ice-9 g scm-style-repl g filenameS
f ice-9/scm-style-repl.scm g importsS g
save-stack
g exportsS g scm-repl-silent g scm-repl-print-unspecified g scm-repl-verbose g scm-repl-prompt g replacementsS g assert-repl-silence g assert-repl-print-unspecified g assert-repl-verbosity g default-pre-unwind-handler g bad-throw g error-catching-loop g error-catching-repl g handle-system-error g set-current-module ! " #f guile> $g symbol-property %g throw-handler-default &g error 'f unhandled-exception: (g throw )g has-shown-debugger-hint? *g catch +g call-with-unblocked-asyncs ,g quit -g switch-repl .g abort /g run-hook 0g
abort-hook 1g force-output 2g current-output-port 3g display 4f ABORT: 5g current-error-port 6g write 7g newline 8g memq 9g backtrace :g debug-options-interface ;g stack? <g the-last-stack =f OType "(backtrace)" to get more information or "(debug)" to enter the debugger.
>g primitive-exit ?g stack-saved? @g length Ag restore-signals Bg ensure-batch-mode! Cg batch-mode? Dg call-with-blocked-asyncs Eg for-each Ff ;;; Gg inexact->exact Hg get-internal-run-time Ig internal-time-units-per-second Jf msec ( Kg gc-run-time Lf
msec in gc)
Mg string? Ng thunk? Of > Pf Qg repl-reader Rg eof-object? Sg after-read-hook Tf ;;; EOF -- quitting Ug before-print-hook Vg unspecified? Wg after-print-hook Xf ;;; QUIT executed, repl exitting Yg peek-char Zg char=? [g read-char \g before-eval-hook ]g %start-stack ^] _] `g
repl-stack ag primitive-eval bg after-eval-hook cg wrong-type-arg dg out-of-range eg list-ref fg before-backtrace-hook gf Backtrace:
hg display-backtrace ig after-backtrace-hook jg before-error-hook kg apply lg
display-error mg after-error-hookC 5 hP ]4
5 4" > " G R h ] Cz g v
g filenamef ice-9/scm-style-repl.scm
'
' g nameg assert-repl-silence CRR h ] C g v
g filenamef ice-9/scm-style-repl.scm
*
* * g nameg assert-repl-print-unspecified CRR h ] C| g v
g filenamef ice-9/scm-style-repl.scm
-
- " g nameg assert-repl-verbosity CR#R$%&' h@ - 1 3 4 5 $
4 ?" $ C @ g key
= g args = g default = g t ( = g filenamef ice-9/scm-style-repl.scm
9
: : & : : ; ; ( ; 7 < = < =
g nameg bad-throw CR ( h( - 1 3 4 > " G @ g key
# g args # g filenamef ice-9/scm-style-repl.scm
@
B # C #
g nameg default-pre-unwind-handler CR)R*+ h8 ]4M> " G N" 4L 5 "4L 5 "C g v
$ g filenamef ice-9/scm-style-repl.scm
R S Y Z [ ! $ [ $ Z % Z ' / Z
1
C h S ] L LO 6 K g filenamef ice-9/scm-style-repl.scm
P Q
C,-(./01234567)89:;<=>? h ] 4> " G 445 > " G 445 > " G 4L45 > " G 4 45 > " G M $ x
$ " 4 4
5 5$ " 4[5$ 34 45 > " G 445 > " G
" 445 > " G " 4 > " G Cy g filenamef ice-9/scm-style-repl.scm
k l m m ) ! m * n . n $ / n / 8 n A o F o ' O o X p [ p $ d p r q x s % ~ u + u 1 v 1 u + s % w & s ! y ' y 0 y ' z ' { ( | ( z ' } ' ~ ! ~ / ~ ! ! &
C@ h y ] 4L5 $ L L@L L@q g filenamef ice-9/scm-style-repl.scm
% " " "
C hH - 1 3 $ NC $ @ $
L O C O C g key
F g args F g filenamef ice-9/scm-style-repl.scm
^ _ a ! _ % e & ) e 2 _ F
C h8 ] H 4L O LLO 5 $ H "MC g first
3 g next 3 g filenamef ice-9/scm-style-repl.scm
L N
M ( 0 3 g nameg loop CA h } ] N 6 u g filenamef ice-9/scm-style-repl.scm
g nameg ensure-batch-mode! CB h m ] M C e g filenamef ice-9/scm-style-repl.scm
!
g nameg batch-mode? CCD h L ] C D g filenamef ice-9/scm-style-repl.scm
C h U ] L 6M g filenamef ice-9/scm-style-repl.scm
C h@ ]HHO Q O O O 6 g thunk
; g status ; g interactive ; g loop ; g filenamef ice-9/scm-style-repl.scm
I
J ' 0 ; ; g nameg error-catching-loop C R E h ]4L4L5 > G L 6 g
the-values
g filenamef ice-9/scm-style-repl.scm
" % "
C h ] O 6 g r
g e g p g filenamef ice-9/scm-style-repl.scm
g nameg error-catching-repl C R3FGHIJKL hx < ] 4> " G 44 45 M5> " G 4> " G 44 45 M 5> " G 6 4 g filenamef ice-9/scm-style-repl.scm
# # 2 % / ( , ) $ + # 0 9 = # B K N $ T 3 [ 0 ^ - _ % a $ f r # t t
g nameg repl-report CMNOPQR/SKH73T, h ]45$ " "45$ 45 " $ " 4 5 4 5$ " 4L> " G 4 > " G 4 5$ _4
5 N4 5 N $ 64
> " G 4> " G 4
> " G " 4
> " G " C g prompt
5 A g val
A g filenamef ice-9/scm-style-repl.scm
0
) 0 ) 0 - ) / @ 5 5 5 8 A D N S c u 9 ' 6 ' " " + " "
g nameg -read C/UV67W1 h ] $ C4 > " G $ " 4 5 $ &4 > " G 4> " G " 4 > " G $ 4L > " G "
6 g result
g t 8 g filenamef ice-9/scm-style-repl.scm
, . 5 5 0 < ( = . O . c | } ! C3X7YRZ[ hh ]45 4 5 $ C4 5 $ " 4 5 $ 4> " G "4
5$ 6 C g ch
h g t h g t $ = g filenamef ice-9/scm-style-repl.scm
$ 2 * A B U V b f h
g nameg consume-trailing-whitespace C KH/\_`a h U ] L 6M g filenamef ice-9/scm-style-repl.scm
,
Cb hP ] 45 N45 N 4 > " G 4 O 5 4 > " G C g sourc
K g val 2 K g filenamef ice-9/scm-style-repl.scm
9 '
6 ' % ) , 2 2 5 K g nameg -eval C h ]@HH O O O " ?$ 64> " G 4> " G 4> " G " CO Q Q Q Q K K 4
O 5 "o g start-gc-rt
g start-rt g args ' f g repl-report n g -read n g -print n g consume-trailing-whitespace n g start-gc-rt g start-rt g status
g filenamef ice-9/scm-style-repl.scm
' - . 2 # 7 @ P n
g nameg scm-style-repl CR5;<89:cde/f73ghijklm1(. h0 - 1 3 45 4[5 $ " 445 5$ & " $
4 5" 4
> " G 4 > " G 4
> " G 4[> " G 4 > " G 4
> " G " 4
> " G 4[> " G 4
> " G 4> " G 6 g key
/ g args / g cep / g t g
highlights Y g filenamef ice-9/scm-style-repl.scm
& * + 1 5 9 . = ! > % F
. G
% K L ! Y ! Y \
n
+ / # /
g nameg handle-system-error C RC g m
0 g filenamef ice-9/scm-style-repl.scm
4 &
'
)
*
,
' -
) / , /
| 9
a @
e G
: I
N
P
C6 PK ! #a a ice-9/session.gonu [ GOOF----LE-8-2.0a ] 4 h; ] g guile g define-module* g ice-9 g session g filenameS
f ice-9/session.scm g importsS g
documentation
g regex g rdelim g match g exportsS g help g add-value-help-handler! g remove-value-help-handler! g add-name-help-handler! g remove-name-help-handler! g apropos-hook g apropos !g apropos-internal "g apropos-fold #g apropos-fold-accessible $g apropos-fold-exported %g apropos-fold-all &g source 'g arity (g procedure-arguments )g module-commentary * !"#$%&'() +g set-current-module ,+ -+ .g object-documentation /g *value-help-handlers* 0g delete! 1g or-map 2g try-value-help 3g *name-help-handlers* 4g
try-name-help 5g make-syntax-transformer 65 75 8g macro 9g $sc-dispatch :9 ;9 <g _ =g any ><= ?g
syntax->datum @? A? Bg
datum->syntax CB DB Eg length Fg provided? Gg display Hg help-doc Ig
simple-format Jf ^~A$ Kg regexp-quote Lg symbol->string Mg string? Ng and-map Og symbol? Pg quote Qg
write-line Rf commentary: Sf No ~A found for ~A
Tg
commentary Ug
help-usage Vg unquote Wg
module-ref Xg current-module Yg search-documentation-files Zg begin [Z \f ]`help' depends on the `regex' feature.
You don't seem to have regular expressions installed.
]g syntax-violation ^] _] `f -source expression failed to match any pattern ag map bg reverse cg
string-append df / eg %search-load-path fg in-vicinity gg module-filename hg file-commentary ig
procedure? jf a procedure kf an object lf Documentation from file: mf Did not find any object nf named `~A'
of matching regexp "~A"
pg for-each qf ~S: ~S
rg module-name sg cadr tg caddr uf !`~S' is ~A in the ~S module.
~A
vg cadddr wf Documentation found for:
xg newline yf No documentation found for:
zf vUsage: (help NAME) gives documentation about objects named NAME (a symbol)
(help REGEXP) ditto for objects with names matching REGEXP (a string)
(help 'NAME) gives documentation for NAME, even if it is not an object
(help ,EXPR) gives documentation for object returned by EXPR
(help (my module)) gives module commentary for `(my module)'
(help) gives this text
`help' searches among bindings exported from loaded modules, while
`apropos' searches among bindings visible from the "current" module.
Examples: (help help)
(help cons)
(help "output-string")
Other useful sources of helpful information:
(apropos STRING)
(arity PROCEDURE)
(name PROCEDURE-OR-MACRO)
(source PROCEDURE-OR-MACRO)
Tools:
(backtrace) ;show backtrace from last error
(debug) ;enter the debugger
(trace [PROCEDURE]) ;trace procedure (no arg => show)
(untrace [PROCEDURE]) ;untrace (no arg => untrace all)
(OPTIONSET-options 'full) ;display option information
(OPTIONSET-enable 'OPTION)
(OPTIONSET-disable 'OPTION)
(OPTIONSET-set! OPTION VALUE)
where OPTIONSET is one of debug, read, eval, print
{g make-hook |g run-hook }g
string-length ~f Empty string not allowed g make-regexp g module-uses g
duplicates g member g shadow g value g full g module-obarray g
hash-for-each g regexp-exec f : f (unbound) f shadowed g make-hash-table g hash-fold g hashq-get-handle g
hashq-set! g hash-create-handle! g make-fold-modules g identity g
submodules g resolve-module g root-modules g hash-map->list g module-submodules g module-public-interface g procedure-source g macro? g macro-transformer g procedure-property g arglist f f required f arguments: f argument: f ', ` f ' and ` f ', the rest in ` f , f optional f keyword f other keywords allowed f
the rest in ` f ' g procedure-minimum-arity f or more f required and f optional f argument f
arguments f .
g required g number? g make-list g optional g keyword g allow-other-keys? g rest g error f no matching pattern g system g vm g program g program? g program-arguments-alist C 5h L ^ ]4
*5 4- > " G . h r ]6j g name
g value g filenamef ice-9/session.scm
$ % C /R/ h ] C g proc
g filenamef ice-9/session.scm
'
. . g nameg add-value-help-handler!g
documentationf 1Adds a handler for performing `help' on a value.
`proc' will be called as (PROC NAME VALUE). `proc' should return #t to
indicate that it has performed help, a string to override the default
object documentation, or #f to try the other handlers, potentially
falling back on the normal behavior for `help'. CR0/ h ]4 5 C g proc
g filenamef ice-9/session.scm
0
2
2 g nameg remove-value-help-handler!g
documentationf 3Removes a handler for performing `help' on a value. C R1 h _ ] LL 6 W g proc
g filenamef ice-9/session.scm
5
5
C/ h ] O 6 g name
g value g filenamef ice-9/session.scm
4
5 g nameg try-value-help C2R3R3 h F ] C > g proc
g filenamef ice-9/session.scm
:
D D g nameg add-name-help-handler!g
documentationf Adds a handler for performing `help' on a name.
`proc' will be called with the unevaluated name as its argument. That is
to say, when the user calls `(help FOO)', the name is FOO, exactly as
the user types it.
`proc' should return #t to indicate that it has performed help, a string
to override the default object documentation, or #f to try the other
handlers, potentially falling back on the normal behavior for `help'. C R03 h ]4 5 C g proc
g filenamef ice-9/session.scm
F
H
H g nameg remove-name-help-handler!g
documentationf 2Removes a handler for performing `help' on a name. C R1 h _ ] L 6W g proc
g filenamef ice-9/session.scm
K
K C3 h x ] O 6 p g name
g filenamef ice-9/session.scm
J
K g nameg
try-name-help C4R478;>ADEF4GHIJKLMNOP)QRSTUV2WX Y[\ h " - 1 3 4 5 $ r45$ R 45 $ !& " 4> " G " $ *444 4
555> " G " 4 5$ 4> " G " $ " 4
5$ ( " $ g45 $ :4> " G 4> " G 4> " ?G " 84> " $G " 4> "
G " 4> " G " 45 $ & g4445 55 $ !& " 4> " G " 4> " G " l& _$ N45 $ 4> " G " 4> " G " "l" "d" "\" 4> " G C4 > " G C4> " G C g exp
g name $ s g t - p g t ? g doc g x g t A g x " > g filenamef ice-9/session.scm
P
S S S V V V ! S $ [ $ [ ' b
- _ < c A c 1 Y f
] _ ^ g
c h h i i j l j & t j v h { g
m
_ n
q _
'
( 4 ( " ] ' ] . ) $ 0 ] @
g _ h r q r u q
x s z s " ~ q
t t ( u ( u 4 v 4 u ( t t
w y w : w ] ] . w + ] ~ ~ " |
|
0
! 3 " % ] * ] . , $ 3 ] ^
r t W x W } W Y T U `
C h e ] 4 5 L 4?6] g args
g v g filenamef ice-9/session.scm P
C_` h( ] 4 5 $ O @ 6 g y
' g tmp ' g filenamef ice-9/session.scm
P
' g
documentationf 7(help [NAME])
Prints useful information. Try `(help)'.g
macro-typeg defmacrog
defmacro-argsg args C5RaLbccd h i ] 6 a g elt
g filenamef ice-9/session.scm
4
!
Cef hH x ])4 5 45 45 445? 456 p g name
B g name B g reverse-name B g leaf B g dir-hint-module-name # B g dir-hint 3 B g filenamef ice-9/session.scm
! ( # # & ) 3 3 8 B B g nameg module-filename CgRgh h ] 4 5 $ 6C g name
g t g filenamef ice-9/session.scm
g nameg module-commentary C)R"2ijk h0 ] 4545$ " C g module
) g name ) g object ) g data ) g filenamef ice-9/session.scm
- 4 - 4 " 4 % ' ( ! ) C$YQlGmInopIqrstuv hh T ] 44 54 55 4 5$ 3MN44 54 54 54 55MNCM N C L g entry
b g
entry-summary b g filenamef ice-9/session.scm
. 2 / < / / . & + ' - ! . - 3 1 4 . ; . B . G ; I . J . R - U ' W ! ^ % ` b CEwG h b ] 6Z g entry
g filenamef ice-9/session.scm
- CxG h( } ]M $ N " 4> " G 6 u g entry
% g filenamef ice-9/session.scm
% % CxyG h b ] 6Z g entry
g filenamef ice-9/session.scm
- C h@ ]245 ( O4 5 $ 4> " G 64> " G $
" 6HHHH4
O > " G J( " 4J5 $ " J $ -4> " G 4 J> " G K" 4 O J> " G J( CJ$ K" 4> " G 4> " G J6 g term
? g regexp ? g entries ? g t e g first? i ? g undocumented-entries i ? g documented-entries i ? g documentations i ? g t g filenamef ice-9/session.scm
& * / = > B G U Y [ a e g ' h % i ! i r
& * / ? / ? g nameg help-doc CHRGz h m ] 6e g filenamef ice-9/session.scm
g nameg
help-usage CUR4{i 5 R| X}~rprLGiWXx h ]4L4 55$ 4L > " G 4> " G 4 > " G $ Q 45 $ " M $ (4 > " G 4> " G " " $4 > " G 4> " G M$ 34L 5445 5& " 4 > " G "
6 C g symbol
g variable g val T g t ] o g filenamef ice-9/session.scm
> ? ? * ? ? @ ' A + A 0 A 9 B M C Q C T D ) T D W E + ] E ' s E t F ' G ' I J J ' J K L * M * M 6 M * K N N $ N O " C h0 ]4 5 4 5 L LLO 6 g module
) g name ) g obarray ) g filenamef ice-9/session.scm
9 : : ; : ) =
) C h - 1 3 445 > " G 4 5
$ C4 5 445 5 45 ( " 45 $ " 4
5H4
5H4
5$
KK" O 6 g rgx
g options g match 9 g uses E g modules p g shadow { g value g filenamef ice-9/session.scm
%
' ' ' # (
* ( / ( 1 ) 3 * 9 * < + ? + E + E * H , R - X . * ] . 7 _ . * a / * b . % f - i 0 p , p * s 3 w 3 { 3 { * ~ 4 4 4 * 5 5 5 5 6 7 8 )
g nameg aproposg
documentationf CSearch for bindings: apropos regexp {options= 'full 'shadow 'value} C R" h ]C g module
g name g var g data g filenamef ice-9/session.scm
U V C#X h ] 445 56 g rgx
g filenamef ice-9/session.scm
S
W
Y
Y ) Y U g nameg apropos-internalg
documentationf +Return a list of accessible variable names. C!R| XL hX ] $ K 4L 4 55$ 14L 5$ C4L > " G LL 6CC
g name
W g var W g data W g val T g filenamef ice-9/session.scm
z { { | 0 | s s 3 s s ! t % - s 1 v Q w W g nameg
module-filter C h( ] $ L LL O 4 56C g module
% g data % g filenamef ice-9/session.scm
p ~ ( " ~ % g nameg fold-module C h@ ]445 > " G 4545 O 6 g proc
< g init < g rgx < g folder < g match ' < g recorded ' < g filenamef ice-9/session.scm
[
l l l m # n ' m < < g nameg apropos-foldg
documentationf Folds PROCEDURE over bindings matching third arg REGEXP.
Result is
(PROCEDURE MODULE1 NAME1 VALUE1
(PROCEDURE MODULE2 NAME2 VALUE2
...
(PROCEDURE MODULEn NAMEn VALUEn INIT)))
where INIT is the second arg to `apropos-fold'.
Fourth arg FOLDER is one of
(apropos-fold-accessible MODULE) ;fold over bindings accessible in MODULE
apropos-fold-exported ;fold over all exported bindings
apropos-fold-all ;fold over all bindings C"R hx ]*" _( C 4L 5 $ 4L4L4L554L55" " " g data
q g modules q g modules e g data e g obj 7 g handle ! 4 g first? & 1 g filenamef ice-9/session.scm
$ $ ! & $ & , ; < ? ! B . G 7 I . M ! N ! S + U ! W e q g nameg rec C h0 ]4 5 O L L Q 4L5 6 g fold-module
/ g init / g table / g rec / g filenamef ice-9/session.scm
) / / C h ] O C g
init-thunk
g traverse g extract g filenamef ice-9/session.scm
g nameg make-fold-modulesg
documentationf Return procedure capable of traversing a forest of modules.
The forest traversed is the image of the forest generated by root
modules returned by INIT-THUNK and the generator TRAVERSE.
It is an image under the mapping EXTRACT. CR h N ] L CF g filenamef ice-9/session.scm
C h ] O 6 ~ g module
g filenamef ice-9/session.scm
g nameg apropos-fold-accessible C#R h ] 456 y g filenamef ice-9/session.scm
g nameg root-modules CR h d ]C \ g k
g v g filenamef ice-9/session.scm
C h ]4 56 w g mod
g filenamef ice-9/session.scm
# g nameg
submodules CR4iiii5$R4iiii5%Ri h0 ]4 5$ 64 5$ 4 56C g obj
+ g filenamef ice-9/session.scm
! ( ) + g nameg source C® h x
]I4 5 $ H ( " P45 4> " G 4> " G 4> " G $ 4> " G " 4> " G 4`> " G 4> " G " ( 4'> " G " $ L $ 4 > " G " 4
> " G 4 > " G "4 > " G 4 > " G 4'> " G " "N K( " lJ$ 4 > " G " 45 4> " G 4> " G 4
> " G $ 4> " G " 4> " G 4`> " G 4> " G " ( 4'> " G " $ L $ 4 > " G " 4
> " G 4 > " G "4 > " G 4 > " G 4'> " G " "N K( " lJ$ 4 > " G " 45 4> " G 4> " G 4> " G $ 4> " G " 4> " G 4`> " G 4> " G " ( 4'> " G " $ L $ 4 > " G " 4
> " G 4 > " G "4 > " G 4 > " G 4'> " G " "N K$ 5J$ 4 > " G " 4> " G K" $ VJ$ 4 > " G " 4> " G 4> " G 4> " G " " 4 5 4> " G $ 4> " G " F
$ " 84> " G 4> " G 4> " G $ " $
" $ 4> " G " 4> " G 6 p
g obj
g t g
required-args - ( g
optional-args - ( g keyword-args - ( g allow-other-keys? - ( g rest-arg - ( g need-punctuation - ( g len J g ls g len g ls Q g len 6 | g ls p g arity 3 g filenamef ice-9/session.scm
" " ( , - ? D J M _ c h q u : z
! & /
4 9
D J
K
O T
]
o
' 0 ' :
) ; @
E Q W X
p t w x |
}
' 0 # ' 0 6 9 K O T ] a 9 f r
v w
{
%
0 6
7
; @
I
[
p s y ' 0 ' ' 0 '
- 3 6 ; @ K
Q R
V [
j l q v
z
g nameg arity C'R< h0 " ]Q4 5 $ $ $ $ $ $ f ( R
45$
45" 45$
45"
C4
56 4
56 4
56 4
56 4
56 4
56 4 5 $ C4 5$ 6C g proc
, g t , g w g x g w 1 g x 1 g w B g x B g w S g x S g w
h g t , g filenamef ice-9/session.scm
l m w x ~ + +
$ &
*
, g nameg procedure-argumentsg
documentationf Return an alist describing the arguments that `proc' accepts, or `#f'
if the information cannot be obtained.
The alist keys that are currently defined are `required', `optional',
`keyword', `allow-other-keys?', and `rest'. C(RC V g m
, g filenamef ice-9/session.scm
$ #
'
0
4
8 8
Y :
W F
k J
x
\
# #
&g %
($ S
- [
2
3
4t
5
5 5
5 5
6
G{
K
K
C6 PK ! Q<# # ice-9/eval-string.gonu [ GOOF----LE-8-2.0 ] G 4 hm ] g guile g define-module* g ice-9 g eval-string g filenameS
f ice-9/eval-string.scm g importsS g system
g base g compile
g language
g vm g program g replacementsS g set-current-module g language? g lookup-language g ensure-language !g langS "! #" $g current-language %g
parameter? &% '% (g scm-error )g wrong-type-arg *f parameterize +f Not a parameter: ~S ,g language-reader -g current-module .g eof-object? /g language-evaluator 0g
read-and-eval 1g moduleS 21 3g fileS 43 5g lineS 65 7g columnS 87 9! :g compile?S ;: <24689; =g call-with-input-string >g set-port-filename! ?g set-port-line! @g set-port-column! Ag make-program Bg read-and-compile Cg fromS Dg toS Eg objcode Fg save-module-excursionC 5 h q ]4
5 4 > " G h ]4 5$ C 6 g x
g filenamef ice-9/eval-string.scm
g nameg ensure-language C R#$'()*+ ,-./$-,. hP ]4445 5 45 > G 4445 5L45 5 45$ E " g exp
L g vals L g next 3 L g filenamef ice-9/eval-string.scm
+
$ $ $
$ $ 3 $ , " ! " $ " * " - " 1 3 " 3 / 6 1 @ 0 D 2 L 4 L g nameg lp C
h Q - / 0 3 # 45 45$ " 4 > " G 4 455Y44 45 5 4
5 5 4 5$ " O Q 4> ZCZFI g port
g lang g t-6f52a6ff84e411f-7 " g exp x g lp g filenamef ice-9/eval-string.scm
) " Z # b e " f " i " o " r " 1 x " x & { '
' +
g langS g nameg
read-and-eval C0R<-$ =>?@/ABCDE0!
h ] L$ 4L> " G " L$ 4LL> " G " L$ 4LL> " G " L$ 4LL> " G " L $ " 4L5$ 44LL
556 L L6 g filenamef ice-9/eval-string.scm
K L
M $ N
% O B P
C Q ` R
a S ~ U U U U
V V V E V V V W
CF h X ] 4L> " G L 6 P g filenamef ice-9/eval-string.scm
@ A B
C h8 ] O LLLLL LQ L$
LO 66 g port
8 g thunk 8 g filenamef ice-9/eval-string.scm
H I ' > 4 ? 8 C 8 C hx s - / 0 3 # 45 # # # # 45 # 45 O 6 k g str
q g module q g file q g line q g column q g lang q g compile? q g lang X q g filenamef ice-9/eval-string.scm
6
7 B ; R E X E q F q
g moduleS g fileS g lineS g columnS g langS g compile?S g nameg eval-string CRCi g m
, g filenamef ice-9/eval-string.scm
6
C6 PK ! m[O
ice-9/list.gonu [ GOOF----LE-8-2.0 ] 4 hE ] g guile g define-module* g ice-9 g list g filenameS
f ice-9/list.scm g exportsS g rassoc
g rassv g rassq
g set-current-module g generic-rassoc g equal? g eqv? g eq?C 5 h r ]4
5 4 > " G h8 ] " $( C4 5$ C " " g key
2 g alist 2 g = 2 g ls * g filenamef ice-9/list.scm
$ * * 2 g nameg generic-rassoc CR h - 1 3 ( " 6 g key
g alist g = g filenamef ice-9/list.scm
1
g nameg rassoc C R h ] 6 w g key
g alist g filenamef ice-9/list.scm
g nameg rassv C
R h ] 6 w g key
g alist g filenamef ice-9/list.scm
"
# g nameg rassq CRC j g m
( g filenamef ice-9/list.scm
b
=
"
C6 PK ! E# # ice-9/networking.gonu [ GOOF----LE-8-2.0" ] 9 4 hh ] g gethost g
gethostbyaddr g
gethostbyname g getnet g getnetbyaddr g getnetbyname g getproto g getprotobyname g getprotobynumber
g getserv g
getservbyname g
getservbyport
g sethost g
sethostent g setnet g setnetent g setproto g setprotoent g setserv g
setservent g
gethostent g getnetent g getprotoent g
getservent g
endhostent g endnetent g endprotoent g
endservent g hostent:name g hostent:aliases g hostent:addrtype g hostent:length !g hostent:addr-list "g netent:name #g netent:aliases $g netent:addrtype %g
netent:net &g
protoent:name 'g protoent:aliases (g protoent:proto )g servent:name *g servent:aliases +g servent:port ,g
servent:proto -g sockaddr:fam .g
sockaddr:path /g
sockaddr:addr 0g
sockaddr:port 1g sockaddr:flowinfo 2g sockaddr:scopeid 3g addrinfo:flags 4g addrinfo:fam 5g addrinfo:socktype 6g addrinfo:protocol 7g
addrinfo:addr 8g addrinfo:canonnameC 5 h` ] h { ] 6s g addr
g filenamef ice-9/networking.scm
g nameg
gethostbyaddr CR h { ] 6s g name
g filenamef ice-9/networking.scm
g nameg
gethostbyname CR h z ] 6r g addr
g filenamef ice-9/networking.scm
g nameg getnetbyaddr CR h z ] 6r g name
g filenamef ice-9/networking.scm
g nameg getnetbyname CR h | ] 6t g name
g filenamef ice-9/networking.scm
g nameg getprotobyname CR h ~ ] 6v g addr
g filenamef ice-9/networking.scm
g nameg getprotobynumber C R
h ] 6 g name
g proto
g filenamef ice-9/networking.scm
#
g nameg
getservbyname C R
h ] 6 g port
g proto
g filenamef ice-9/networking.scm
#
g nameg
getservbyport C R
h - 1 3 $ 66 g stayopen
g filenamef ice-9/networking.scm
"
# # $ $ %
g nameg
sethostent CR h - 1 3 $ 66 g stayopen
g filenamef ice-9/networking.scm
&
' ' ( ( )
g nameg setnetent CR h - 1 3 $ 66 g stayopen
g filenamef ice-9/networking.scm
*
+ + , , -
g nameg setprotoent CR h - 1 3 $ 66 g stayopen
g filenamef ice-9/networking.scm
.
/ / 0 0 1
g nameg
setservent CR h e ] 6 ] g filenamef ice-9/networking.scm
3
3
g nameg
gethostent CR h d ] 6 \ g filenamef ice-9/networking.scm
4
4
g nameg getnetent CR h f ] 6 ^ g filenamef ice-9/networking.scm
5
5
g nameg getprotoent CR
h e ] 6 ] g filenamef ice-9/networking.scm
6
6
g nameg
getservent CR
h e ] 6 ] g filenamef ice-9/networking.scm
8
8
g nameg
endhostent CR h d ] 6 \ g filenamef ice-9/networking.scm
9
9
g nameg endnetent CR h f ] 6 ^ g filenamef ice-9/networking.scm
:
:
g nameg endprotoent CR h e ] 6 ] g filenamef ice-9/networking.scm
;
;
g nameg
endservent C R h y ]
C q g obj
g filenamef ice-9/networking.scm
=
= g nameg hostent:name C R h | ] C t g obj
g filenamef ice-9/networking.scm
>
> g nameg hostent:aliases C R h } ] Cu g obj
g filenamef ice-9/networking.scm
?
? g nameg hostent:addrtype C R h { ] Cs g obj
g filenamef ice-9/networking.scm
@
@ g nameg hostent:length C Rh ~ ] Cv g obj
g filenamef ice-9/networking.scm
A
A g nameg hostent:addr-list C!R h x ]
C p g obj
g filenamef ice-9/networking.scm
C
C g nameg netent:name C"R h { ] C s g obj
g filenamef ice-9/networking.scm
D
D g nameg netent:aliases C#Rh | ] Ct g obj
g filenamef ice-9/networking.scm
E
E g nameg netent:addrtype C$R h w ] Co g obj
g filenamef ice-9/networking.scm
F
F g nameg
netent:net C%R h z ]
C r g obj
g filenamef ice-9/networking.scm
H
H g nameg
protoent:name C&R h } ] C u g obj
g filenamef ice-9/networking.scm
I
I g nameg protoent:aliases C'R h { ] Cs g obj
g filenamef ice-9/networking.scm
J
J g nameg protoent:proto C(Rh y ]
C q g obj
g filenamef ice-9/networking.scm
L
L g nameg servent:name C)R h | ] C t g obj
g filenamef ice-9/networking.scm
M
M g nameg servent:aliases C*R h y ] Cq g obj
g filenamef ice-9/networking.scm
N
N g nameg servent:port C+R h z ] Cr g obj
g filenamef ice-9/networking.scm
O
O g nameg
servent:proto C,R h y ]
C q g obj
g filenamef ice-9/networking.scm
Q
Q g nameg sockaddr:fam C-R h z ] C r g obj
g filenamef ice-9/networking.scm
R
R g nameg
sockaddr:path C.R h z ] C r g obj
g filenamef ice-9/networking.scm
S
S g nameg
sockaddr:addr C/R h z ] Cr g obj
g filenamef ice-9/networking.scm
T
T g nameg
sockaddr:port C0R h ~ ] Cv g obj
g filenamef ice-9/networking.scm
U
U g nameg sockaddr:flowinfo C1R h } ] Cu g obj
g filenamef ice-9/networking.scm
V
V g nameg sockaddr:scopeid C2R h { ]
C s g obj
g filenamef ice-9/networking.scm
X
X g nameg addrinfo:flags C3Rh y ] C q g obj
g filenamef ice-9/networking.scm
Y
Y g nameg addrinfo:fam C4R h ~ ] Cv g obj
g filenamef ice-9/networking.scm
Z
Z g nameg addrinfo:socktype C5R h ~ ] Cv g obj
g filenamef ice-9/networking.scm
[
[ g nameg addrinfo:protocol C6R h z ] Cr g obj
g filenamef ice-9/networking.scm
\
\ g nameg
addrinfo:addr C7R h ] Cw g obj
g filenamef ice-9/networking.scm
]
] ! g nameg addrinfo:canonname C8RC g filenamef ice-9/networking.scm
6
e
I
"
&
j *
A .
3
? 4
5
@ 6
8
? 9
:
@ ;
=
g >
?
@
) A
C
N D
E
r F
H
I
. J
L
O M
N
u O
Q
R
% S
T
I U
V
v X
Y
Z
1 [
\
Z ]
1 \
C6 PK ! ~ƀS S
ice-9/i18n.gonu [ GOOF----LE-8-2.0hS ] 4 h ] g guile g define-module* g ice-9 g i18n g filenameS
f ice-9/i18n.scm g importsS g optargs
g exportsS g make-locale g locale? g %global-locale g string-locale<? g string-locale>? g string-locale-ci<? g string-locale-ci>? g string-locale-ci=? g
char-locale<? g
char-locale>? g char-locale-ci<? g char-locale-ci>? g char-locale-ci=? g char-locale-downcase g char-locale-upcase g char-locale-titlecase !g string-locale-downcase "g string-locale-upcase #g string-locale-titlecase $g locale-string->integer %g locale-string->inexact &g locale-encoding 'g locale-day-short (g
locale-day )g locale-month-short *g locale-month +g locale-am-string ,g locale-pm-string -g locale-date+time-format .g locale-date-format /g locale-time-format 0g locale-time+am/pm-format 1g
locale-era 2g locale-era-year 3g locale-era-date-format 4g locale-era-date+time-format 5g locale-era-time-format 6g locale-currency-symbol 7g locale-monetary-decimal-point 8g #locale-monetary-thousands-separator 9g locale-monetary-grouping :g !locale-monetary-fractional-digits ;g )locale-currency-symbol-precedes-positive? <g )locale-currency-symbol-precedes-negative? =g #locale-positive-separated-by-space? >g #locale-negative-separated-by-space? ?g locale-monetary-positive-sign @g locale-monetary-negative-sign Ag locale-positive-sign-position Bg locale-negative-sign-position Cg monetary-amount->locale-string Dg locale-digit-grouping Eg locale-decimal-point Fg locale-thousands-separator Gg number->locale-string Hg locale-yes-regexp Ig locale-no-regexp J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI 9 Kg set-current-module LK MK Ng load-extension Og
string-append Pf libguile- Qg effective-version Rf
scm_init_i18n Sg nl-langinfo Tg CODESET Ug make-syntax-transformer VU WU Xg define-vector-langinfo-mapping Yg macro Zg $sc-dispatch [Z \Z ]g _ ^g any _]^ `g
syntax->datum a` b` cg
datum->syntax dc ec fg length gg define hg %nl-items ig vector jg item kg locale ljk mg if ng and og integer? poj qg exact? rqj snpr tg >= utj vg <= wg apply xg
vector-ref yxhj zwSyk {g throw |g quote }g out-of-range ~|} f out of range {~j g wrong-type-arg | f wrong argument type {j g syntax-violation f -source expression failed to match any pattern g ABDAY_1 g ABDAY_2 g ABDAY_3 g ABDAY_4 g ABDAY_5 g ABDAY_6 g ABDAY_7 g DAY_1 g DAY_2 g DAY_3 g DAY_4 g DAY_5 g DAY_6 g DAY_7 g ABMON_1 g ABMON_2 g ABMON_3 g ABMON_4 g ABMON_5 g ABMON_6 g ABMON_7 g ABMON_8 g ABMON_9 g ABMON_10 g ABMON_11 g ABMON_12 g MON_1 g MON_2 g MON_3 g MON_4 g MON_5 g MON_6 g MON_7 g MON_8 g MON_9 g MON_10 g MON_11 g MON_12 g define-simple-langinfo-mapping g defined? k g AM_STR g PM_STR g D_T_FMT g D_FMT g T_FMT g
T_FMT_AMPM g ERA g ERA_YEAR g ERA_D_T_FMT g ERA_D_FMT g ERA_T_FMT g define-monetary-langinfo-mapping g intl? k g INT_CURR_SYMBOL g CRNCYSTR g INT_FRAC_DIGITS g FRAC_DIGITS g
POSITIVE_SIGN g
NEGATIVE_SIGN g MON_DECIMAL_POINT g MON_THOUSANDS_SEP g MON_GROUPING g locale-monetary-digit-grouping g INT_P_CS_PRECEDES g
P_CS_PRECEDES g INT_N_CS_PRECEDES g
N_CS_PRECEDES g INT_P_SEP_BY_SPACE g P_SEP_BY_SPACE g INT_N_SEP_BY_SPACE g N_SEP_BY_SPACE g INT_P_SIGN_POSN g P_SIGN_POSN g INT_N_SIGN_POSN g N_SIGN_POSN f 0 g list->string g
integer->char g integer->string g expt g floor g
string-pad g round g inexact->exact f g number-decimal-string g string=? g
string-length g min g substring g %number-integer-part f g parenthesize f ( f ) g sign-before g
sign-after g unspecified g sign-before-currency-symbol g sign-after-currency-symbol g error f unsupported sign position g add-monetary-sign+currency g abs g GROUPING g RADIXCHAR g THOUSEP f - g YESEXPR g NOEXPRC 5 hh< ]4
J5 4M > " G 4Ni4OiP4Qi5 5R> " G ST h { - 1 3 @ s g locale
g filenamef ice-9/i18n.scm
_
`
g nameg locale-encoding C&R4WXY\_befghilmsnuvjz hP ]45
C g name
J g nl-items J g
item-count J g defines J g filenamef ice-9/i18n.scm
i
j j
k j r & m < t > m I r J C h b ] 4 5 L 4?6Z g args
g v g filenamef ice-9/i18n.scm i
C h( ` ] 4 5 $ O @ 6 X g y
' g tmp ' g filenamef ice-9/i18n.scm
i
' C5XR{oq}S h - 1 3 H K"
64 5$ A4 5$ 2"
6 $ $ J @"""" g item
~ g locale ~ g %nl-items
~ g filenamef ice-9/i18n.scm
w
* q 2 N p 4 j t ' n t ~
g nameg locale-day-short C'R{oq}S h - 1 3 H K"
64 5$ A4 5$ 2"
6 $ $ J @"""" g item
~ g locale ~ g %nl-items
~ g filenamef ice-9/i18n.scm
z
* q 2 N p 4 j t ' n t ~
g nameg
locale-day C(R{oq}S h - 1 3 H
K"
64 5$ A4 5$ 2"
6 $ $ J @"""" g item
g locale g %nl-items
g filenamef ice-9/i18n.scm
}
4 q 2 X p 4 t t ' x t
g nameg locale-month-short C)R{oq}S h - 1 3 H
K"
64 5$ A4 5$ 2"
6 $ $ J @"""" g item
g locale g %nl-items
g filenamef ice-9/i18n.scm
4 q 2 X p 4 t t ' x t
g nameg locale-month C*R4WY\_bewSgk h0 ] 45$ " C g name
- g item - g default - g body - g filenamef ice-9/i18n.scm
" - C h c ] 4 5 L 4?6[ g args
g v g filenamef ice-9/i18n.scm
C h( a ] 4 5 $ O @ 6 Y g y
' g tmp ' g filenamef ice-9/i18n.scm
' C5RS h u - 1 3 @ m g locale
g filenamef ice-9/i18n.scm
g nameg locale-am-string C+RS h u - 1 3 @ m g locale
g filenamef ice-9/i18n.scm
g nameg locale-pm-string C,RS h | - 1 3 @ t g locale
g filenamef ice-9/i18n.scm
g nameg locale-date+time-format C-RS h w - 1 3 @ o g locale
g filenamef ice-9/i18n.scm
g nameg locale-date-format C.RS h w - 1 3 @ o g locale
g filenamef ice-9/i18n.scm
g nameg locale-time-format C/RS h } - 1 3 @ u g locale
g filenamef ice-9/i18n.scm
g nameg locale-time+am/pm-format C0RS h o - 1 3 @ g g locale
g filenamef ice-9/i18n.scm
g nameg
locale-era C1RS h t - 1 3 @ l g locale
g filenamef ice-9/i18n.scm
g nameg locale-era-year C2RS h - 1 3 @ x g locale
g filenamef ice-9/i18n.scm
g nameg locale-era-date+time-format C4RS h { - 1 3 @ s g locale
g filenamef ice-9/i18n.scm
g nameg locale-era-date-format C3RS h { - 1 3 @ s g locale
g filenamef ice-9/i18n.scm
g nameg locale-era-time-format C5R4WY\_bewSmg h` I ]45$ " 45$ " C A g name
^ g
local-item ^ g intl-item ^ g
default/local ^ g default/intl ^ g intl : O g local : O g body O ^ g filenamef ice-9/i18n.scm
) + : @ O S ^ C h c ] 4 5 L 4?6[ g args
g v g filenamef ice-9/i18n.scm
C h( a ] 4 5 $ O @ 6 Y g y
' g tmp ' g filenamef ice-9/i18n.scm
' C5RS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg locale-currency-symbol C6RS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg !locale-monetary-fractional-digits C:RS h - 1 3 @ z g locale
g filenamef ice-9/i18n.scm
g nameg locale-monetary-positive-sign C?RS h - 1 3 @ z g locale
g filenamef ice-9/i18n.scm
g nameg locale-monetary-negative-sign C@RS h - 1 3 @ z g locale
g filenamef ice-9/i18n.scm
g nameg locale-monetary-decimal-point C7RS h - 1 3 @ g locale
g filenamef ice-9/i18n.scm
g nameg #locale-monetary-thousands-separator C8RS h - 1 3 @ { g locale
g filenamef ice-9/i18n.scm
g nameg locale-monetary-digit-grouping CRS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg )locale-currency-symbol-precedes-positive? C;RS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg )locale-currency-symbol-precedes-negative? C<RS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg #locale-positive-separated-by-space? C=RS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg #locale-negative-separated-by-space? C>RS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg locale-positive-sign-position CARS h - 1 3 $ @@ g intl?
g locale g filenamef ice-9/i18n.scm
g nameg locale-negative-sign-position CBR hP ]
$ C" 2
$ 6
4 05 " " g number
N g number C g digits C g digit ) 8 g filenamef ice-9/i18n.scm
$ ) % ) , 2 3 5 ; C C F N N g nameg integer->stringg
documentationf DReturn a string representing NUMBER, an integer, written in base 10. CRo h g ]"45$ /4
5 4 5 44455506" q 4
5 45 $ " $ 74 54
5 444555
$ CC "
"_ g number
g digit-count g number ! < g decimals @ g number' L g t X m g fraction g str g filenamef ice-9/i18n.scm
! ! ! & ) % , , 4 % 6 < @ C ! L L Q X X j q
t % { % " ' ! ! " $ $ ) g nameg number-decimal-stringg
documentationf Return a string representing the decimal part of NUMBER. When
DIGIT-COUNT is an integer, return exactly DIGIT-COUNT digits; when
DIGIT-COUNT is #t, return as many decimals as necessary, up to an
arbitrary limit. CRO h * ]3" }45$ @( @45 45 4
545 $ " " "t " g int
g grouping g separator g int g grouping g result g len . g cut : g sub Z y g filenamef ice-9/i18n.scm
&
, /
/ / / / / ' 0 ( 2 . 2 1 3 6 3 : 3 : 2 = 4 G 4 $ I 4 L 5 M 6 V 6 - Z 6 Z 6 a 7 e 7 l 8 v 9 4
, . , g nameg %number-integer-part CR?@6;<=>ABO h ]D
$ 45"
$ 45" 45 $ " $ " $ "
45$ "
4 5 $ /
45$ 4
5" 4
56 $ -
45$ 4
5" 4
56 $ " $ %45$
6
6 $ %45$
6
6 $ %45$
6
64 56 g amount
g figure g intl? g locale g positive? g sign . g currency 9 g currency-precedes? I g
separated? Y g
sign-position i g currency-space
g key g filenamef ice-9/i18n.scm
;
> >
@ @
@ A ! @
" A . B . > 1 C 9 > A E
I > Q I
Y > a M
i > l Q x Q
z Q ( Q , > X
X Z T T U V Z 3 Z X T T U V \ X _ _ + ` 7 a @ X A c M c Y d e e n X o g { g h i k k * k : g nameg add-monetary-sign+currency CR:O78 h - . , 3 # 45 $ " 4444 5555 44 55 4 5 $ "
$ " *4
4 54 5$ 4
5" 5 45 45 4
4556 g amount
g intl? g locale g t 2 g fraction-digits 2 g int J g dec Z g t e y g dec g grouping g separator g filenamef ice-9/i18n.scm
n
v v
2 u 5 8 % ; & > - F & H % J J u M P , Z Z ] y c y " e y e y v y & } y z { { | 6 | # | } # { u u u " # " ( g nameg monetary-amount->locale-stringg
documentationf Convert @var{amount} (an inexact) into a string according to the cultural
conventions of either @var{locale} (a locale object) or the current locale.
If @var{intl?} is true, then the international monetary format for the given
locale is used. CCRS h z - 1 3 @ r g locale
g filenamef ice-9/i18n.scm
g nameg locale-digit-grouping CDRS h y - 1 3 @ q g locale
g filenamef ice-9/i18n.scm
g nameg locale-decimal-point CERS h - 1 3 @ w g locale
g filenamef ice-9/i18n.scm
g nameg locale-thousands-separator CFROEoDF h C - . , 3 # #
$ "
$ " 4444 5555 44 55 4 5 $ "
$ " ;4
4 54 5$ "4
5$ 4
5" " 5 45 45
456 ; g number
g fraction-digits g locale g sign = g int U g dec e g t p g dec g grouping g separator
g filenamef ice-9/i18n.scm
# '
) 1 5
7 = = @ C ' F ( I / Q ( S ' U U X [ . e e h n " p p & ( + ( # # - g nameg number->locale-stringg
documentationf ^Convert @var{number} (an inexact) into a string according to the cultural
conventions of either @var{locale} (a locale object) or the current locale.
By default, print as many fractional digits as necessary, up to an upper bound.
Optionally, @var{fraction-digits} may be bound to an integer specifying the
number of fractional digits to be displayed. CGRS h v - 1 3 @ n g locale
g filenamef ice-9/i18n.scm
g nameg locale-yes-regexp CHRS h u - 1 3 @ m g locale
g filenamef ice-9/i18n.scm
g nameg locale-no-regexp CIRC g m
, g filenamef ice-9/i18n.scm
- W 2 W 8 W ! 9 W - A W C X H W _
w
i z
}
p
X
R
J
F
E
[
e
/
"
&b
)E &
. ;
3 n
4M
4
5
;
;
<`
1 <b
C6 PK ! Z5 5
ice-9/eval.gonu [ GOOF----LE-8-2.05 ] ' 4 h ] g unbound-arg g set-procedure-property! g arglist g _ g set-procedure-minimum-arity! g scm-error g wrong-number-of-args f eval f Wrong number of arguments
g keyword? g max g keyword-argument-error
f Invalid keyword g assq g list-set! f Unrecognized keyword g list-tail g memoized-expression-typecode g memoized-expression-data g list-ref g reverse g variable? g memoize-variable-access! g last-pair g current-module g the-root-module g
documentation g
procedure? g procedure-property g name g define! g map !g error "f what #g memoize-expression $g macroexpanded? %g module-transformer &g primitive-evalC 5 hx1 ]
hP - 1 3 " ,
$ 4( L $ M @6 "L$ Q" 9
$ S( " 45$ !4L5 " "" L L LL L$ "
" " ( " #4 5 "
" " $ L
"
"
L$ "
" "
$ " L$
"
6
$ w4
5$ g4
5
$ 4
> " G " '$ " 4
> " G
"Z"a"]" C$ 44 5 L& 4L5" "LL 6
"
"L $ -$ "45$ " L$ M @"."*"&LL ""
$ 7L$ LL6( LL6L $ M @6( !4L5 " "LL "kL
L " g %args
I g env
9 g nreq*
9 g args
9 g env S g nopt* S g args S g inits S g aok U g kw U g kw-base
U g imax g kw g imax U g i ( g env
( g env C U g args
I M g kw-pair g v g i > g inits > g tail 6 g env % g nopt % g args % g inits % g filenamef ice-9/eval.scm
! ' + " - " / ) 0 " 3 6 9 < ? I O S , W 3 [ 0 a 4 b 4 g 4 , l 4 6 n 4 , r 4 s 5 % x 5 + | 5 % 5 6 6 / 5 7 % 7 8 8 * 8 5 7 @ # @ A " @ B ' B 4 B ' @ C $ D & F . F 3 F . G . F * C $ C 3 C $ @ I # O ) O % P - P 4 " P ) ( I # 0 L 1 5 M 5 C I # C @ I S L T $ P T Z d # ] f + c f ' g g 2 i h 2 k h 9 l i 2 o i < r i 6 t g ' t T w T 8 x T 1 | T } U $ U . U $ T V . V 4 V . W ( V X ! Z % [ 8 [ 0 Z % ] % ^ ) _ * ` * ` 1 a * a 4 a . ^ ) b % b ! n # p ) p % q 5 q ) r 4 r + t 9 t ? ! u ? # t 9 $ s / + v / . v 6 6 v + > x ) > n # C n / M n # M S U 0 ^ : b : c : 2 h : < j : 2 n : v ; z : > , ( ! ! " ! # % $ 0 % 0 % 7 & 0 $ % ' ( ' ( - ( ' ( ! ) ! ) 0
(
* ' * ! + ! + + + 6 % * % 9 I
C hh , 3 H" m" R
$
( " $ $ " " $ "
$
" $ " 8 $ .
$ $ " " $ " " $
"4
" 4 $ " $ "
$ " > " G 4
> " G "
" C$
( "
$
$
" "
$
"
$
"
$
"
$
" 4L 5
" KL L O " g env
a g body a g nreq a g rest? a g nopt a g kw a g inits a g alt a g alt-proc a g proc
z g alt
c g nreq c g nopt c g rest?
c g spec g nreq* g rest?* 2 g tail S g nopt* c g alt* v g t } g body 9 g spec
6 g nreq 3 g rest 0 g tail
- g nopt * g kw ' g inits $ g alt ! g filenamef ice-9/eval.scm
% ( ) 1 7 2 7 ' 8 < ? : A 3 E H G S [ ^ % c k n % v } } ! - ! ,
. / 6 ? " / % 7 0 / 2 : : ) ? H c
% 4
& 9 2 F
#
"
$ 1
#
a V a g nameg make-general-closure CO h B ] LLL 6 : g filenamef ice-9/eval.scm
C h R ]LL L 6 J g a
g filenamef ice-9/eval.scm
C h a ]LL L 6Y g a
g b g filenamef ice-9/eval.scm
C h p ]LL L 6 h g a
g b g c g filenamef ice-9/eval.scm
C h ]LL L 6 w g a
g b g c g d g filenamef ice-9/eval.scm
C h ]LL L 6 g a
g b g c g d g e g filenamef ice-9/eval.scm
Ch ]LL L 6 g a
g b g c g d g e g f g filenamef ice-9/eval.scm
C h ]LL L 6 g a
g b g c g d g e g f g g g filenamef ice-9/eval.scm
C h - 1 3 " O
$ LL ( "
456 ( 6
" LL
" g a
g b g c g d g e g f g g g h g more g new-env
\ g nreq
\ g args
\ g filenamef ice-9/eval.scm
C h [ ]L L 6 S g x
g filenamef ice-9/eval.scm
)
C h [ ]L L 6 S g x
g filenamef ice-9/eval.scm
'
C h0 ] ( LLL6 Y4L > ZCZF g fluids
* g vals * g filenamef ice-9/eval.scm
- ! $ &
* g nameg lp C h C ] LLL 6 ; g filenamef ice-9/eval.scm
C!" ! hx
]J4 54 5 & 6 & 4L 5
$ 6 $ 4L 56 $ 4L 54L 56 $ %4L 54L 54L 564L 54L 54L 54L 5" ) ( 4
5" ' 4L 5
"
"@ & _45$ " L4 $ 45" ( 45 " $ " 45 $ " 5C & 9 4L 5$ "< "0 & C & m " *( "4L 5 "( 45 " $ " 45 $ " " & ( ( 45 " $ " 45 $ "
$
L O " $
L O " $
L O " $
L O " m $
L O " U $
L O " = $
L O " % $
L O "
L
O
" | ( ?4L( 45 " $ " 45 $ "
5" 64L( 45 " $ " 45 $ " ?
$ 4
> " G "
C
& N " 4( "4L > " G " "
& 4L 5 6
& % 4L 544L 5> 6< & ' 4L 54L 5@ & 45$ " 4 5C & a 4L 5 45$ +45$ " 4> " G " 4> " G C & s 4L 545$ " L4 $ 45" ( 45 " $ " 45 $ " 5 C & o 4L 54L 5 4> " G V4L > X4 > " G CX4 > " G F & V 4L O 5 4 L O 5 O
L Q
6 & I 4L 5U 4 L O > XCXFG 4L 5@ &
4L 5B & / 4L 545$ " 4 5 C 6
g exp
t g env t g tag t g data t g f 2 + g xb 2 + g nargs < + g args < + g proc I + g exps g args
g env ^ g test g xb g
consequent g alternate g inits R g body R g inits g new-env g body ` g xb ` g docstring j g xb j g nreq t g tail t g e
y g proc
g first + s g rest + s g first 3 g g rest 3 g g n g x g val g producer g consumer g f g xb g args g name ' g x ' g x 4 g
var-or-sym g x g env g in t g xb t g exp t g out t g pre + t g post + t g fluids g xb g vals g exp g fluids g vals g lp
g tag # g xb # g exp # g handler # g args # g x C l g var-or-spec C l Bg filenamef ice-9/eval.scm
{ | $ ~ , | A I S 3 | 4 >
E L 9 P ( Q > X 9 ^ ( |
| % ) R Z | ~ 7 . 3 3 4
+
% | 3 9 E F \ _ g g { | | | |
! | , 4 7 A B ( H > J ( N S Y * ` m |
9 ( > 9 ( | # + E " R | | | + | , 5 = | H
Q [
b j p | t g nameg eval CO Q Q #$% h0 ]L 44 5$ " 4445 5 556 g exp
, g filenamef ice-9/eval.scm
! #
' ) * ,
, g
documentationf )Evaluate @var{exp} in the current module. CO &RC g unbound-arg
1l g make-general-closure 0 1i g eval 0 1i g filenamef ice-9/eval.scm 1o
1q
C6 PK ! F[
ice-9/lineio.gonu [ GOOF----LE-8-2.0
] $ 4 hQ ] g guile g define-module* g ice-9 g lineio g filenameS
f ice-9/lineio.scm g importsS g rdelim
g exportsS g
unread-string g read-string g lineio-port? g make-line-buffering-input-port g set-current-module g object-property g make-soft-port g
string-ref g
string-length g substring g read-char g
close-port f r !g set-object-property! "g read-line #g concatC 5 h t ]4
5 4 > " G h ]45 6 g str
g line-buffering-input-port g filenamef ice-9/lineio.scm
8
9 9 . 9 9 g nameg
unread-string CR h ]4 56 g line-buffering-input-port
g filenamef ice-9/lineio.scm
<
= = . =
=
g nameg read-string CR h ]4 5C g port
g filenamef ice-9/lineio.scm
@
A A " A A
A g nameg lineio-port? CR h@ ]M$ 14M
5 4M5$ MN" M4M 5 CL 6 g c
9 g filenamef ice-9/lineio.scm
T U W W * W W X X / X X ! X $ Y ) & Y - Z - 2 Z 8 5 Z - 6 Z ? V ?
g nameg getc C h g ] L 6_ g filenamef ice-9/lineio.scm
] ] %
g nameg propogate-close C ! h ]
4 5$ M N CC g str
g filenamef ice-9/lineio.scm
a b $ b b c 1 c # g nameg
unread-string C"# h ]M( L 6M MN C g answer
g filenamef ice-9/lineio.scm
e f l 4 l h ' h i ) i
g nameg read-string C
h` ]H4 O O 5 4O > " G 4 O > " G C g underlying-port
_ g buffers _ g self " _ g filenamef ice-9/lineio.scm
K
O L _ _ _ F " _ " L % n + n 7 n @ o F o T o _ g nameg make-line-buffering-input-port CRC l g m
, g filenamef ice-9/lineio.scm
8
<
@
K
C6 PK ! eYR R ice-9/ftw.gonu [ GOOF----LE-8-2.0R ] 4 h
] g guile g define-module* g ice-9 g ftw g filenameS
f
ice-9/ftw.scm g importsS g match
g vlist g srfi g srfi-1 g exportsS g nftw g file-system-fold g file-system-tree g scandir g autoloadsS g i18n g string-locale<? ! " ! #g set-current-module $# %# &g opendir 'g eof-object? (g closedir )g readdir *g string=? +f . ,f .. -g directory-files .f /g substring 0g
string-length 1g
string-append 2f / 3g pathify 4g char=? 5g
string-ref 6g abs? 7g make-hash-table 8g hashv-ref 9g stat:dev :g stat:ino ;g
hashv-set! <g
visited?-proc =g getuid >g getgid ?g
stat:perms @g stat:uid Ag stat:gid Bg stat-dir-readable?-proc Cg memq Dg depth Eg directory-processed Fg directory Gg
nftw-style Hg
stale-symlink Ig symlink Jg physical Kg catch LK MK Ng lstat Og stat:type Pg stat Qg directory-not-readable Rg regular Sg invalid-stat Tg stat&flag-proc Ug clean Vg hash-size Wg throw Xg ftw-early-exit Yg for-each Zg getcwd [g mount \g chdir ]g nftw-early-exit ^g make-syntax-transformer _^ `^ ag errno-if-exception bg macro cg $sc-dispatch dc ec fg any gff hg
syntax-object ig top ji kg ribcage lg dummy mg expr nlm og
m-c0b95d8-107 poi qpj rf
l-c0b95d8-10c sf
l-c0b95d8-10d trs uknqt vk wg x xw yp zf
l-c0b95d8-109 {z |kxy{ }juv| ~g hygiene ~ hK} g quote h} g system-error h} g lambda h} g args h} g system-error-errno h} g syntax-violation f -source expression failed to match any pattern g integer? g vhash-assoc g
vhash-cons g directory-stream? g fold g cons g
alist-cons g
vlist-null g basename g error
f no matching pattern g const g and=> g sortC 5 hPG ]4
"5 4% > " G &'()*+, h s ]!4 5 " `45$ 4> " G C4545 $ " 45 $ " "45 " k g dir
g
dir-stream g new o g acc o g t ? X g filenamef
ice-9/ftw.scm
0 7 ; " ? ? M Q " U \ g o
o p w g nameg directory-files C-R*./012 hh J - 1 3 " J( -45$ " $ C 45645 " " B g nodes
c g nodes
W g result
W g t ' @ g filenamef
ice-9/ftw.scm
" & ' 8 @ C D J 0 M 4 O W W [ c c
g nameg pathify C3R45 h z ]/4
56r g filename
g filenamef
ice-9/ftw.scm
g nameg abs? C6R789:7; h ! ] $ y4L 4 554 5 HJ $ " $4L5K4L 4 5J> " G 4J5 $ C4J> " G CC g s
g ino-hash g ino g t # V g t _ g filenamef
ice-9/ftw.scm
/ #
0 " 8 9 > ( K W _
k C h ] 4 5 O C g size
g dev-hash g filenamef
ice-9/ftw.scm
g nameg
visited?-proc C<R=>?@A hp M ]4 5 L
$ CL4 5$
" $ CL 4 5$
" $ C
CE g s
p g perms p g t p g t 6 p g t \ p g filenamef
ice-9/ftw.scm
$ ( / ) 0 $ 1 6 D K O U ) V $ W \ m ) n $ o p C h ]45 45 O C g uid
g gid g uid g gid g filenamef
ice-9/ftw.scm
g nameg stat-dir-readable?-proc CBRCDEFGHIJMN h J ] L 6B g filenamef
ice-9/ftw.scm
#
C h V - 1 3 C N g args
g filenamef
ice-9/ftw.scm
CIOP h J ] L 6B g filenamef
ice-9/ftw.scm
3
C h V - 1 3 C N g args
g filenamef
ice-9/ftw.scm
CFQRS h ]4 O 5 $ 45& Z4 O 5 $ =L$ D45 & 4L5$ L" "
DL D45 & 4L5$ L" "
D D g name
g s g s-follow 5 g type R x g type g filenamef
ice-9/ftw.scm
& ' 5 = ! C # G $ " I $ L " R V ! \ ] g o u z & " " ! ' # C
hP - 1 3 45$ " 45$ " 45 O C g
dir-readable?
P g
control-flags P g directory-flag P g stale-symlink-flag 5 P g physical? @ P g filenamef
ice-9/ftw.scm
#
! ! % ' ) ! - / ! 5 ! 5
8 < @ @
P
g nameg stat&flag-proc CTR045/ h0 ] 4 5 4/4 55$
6 C g name
, g last-char-index
, g filenamef
ice-9/ftw.scm
)
*
*
*
+ + + + ) ,
, g nameg clean CUR<CVTB=>WXFY3 h g ]L4L 56 _ g child
g filenamef
ice-9/ftw.scm
= # > ) > % C- h 4 ]4L > G 4L5 $ C4L 5 & " 4> " G & $4 LO 4 5> " G " C, g fullname
g s
g flag
g t g ret 1 g filenamef
ice-9/ftw.scm
4 5 0 5 7 7 ' 8 & 1 8 : 9 ? : ! C : ( J : ! T ; ' Z ; [ < " g ? # r < " g nameg go CKXU h S ] L4L 56 K g filenamef
ice-9/ftw.scm
B
B
B
C h d ]C \ g key
g val g filenamef
ice-9/ftw.scm
C
C
hp v - 1 3 445 $ " 5 4445 45 55 O Q
O 6 n g filename
l g proc l g options l g t + g visited? - l g stat&flag C l g go P l g filenamef
ice-9/ftw.scm
/
0
0 ) 0 / 0 ) 0 " - 0 - 0 0 2 3 3 6 3 . ; 3 7 A 3 C 2 C 0 P 4 _ A
l A l
g nameg ftw CRZMN h J ] L 6B g filenamef
ice-9/ftw.scm
G G ,
C h V - 1 3 C N g args
g filenamef
ice-9/ftw.scm
G
C9C[9 h c ]4 5L C [ g s
g filenamef
ice-9/ftw.scm
J J ' J $
C h Q ]C I g s
g filenamef
ice-9/ftw.scm
K C\6\/ h ]
$ C4
56 g fullname
g base g t g filenamef
ice-9/ftw.scm
O P ! P L ' Q ! C\3/ h ]4L 4
556 g fullname
g base g filenamef
ice-9/ftw.scm
R T
L ' T S Ch j ]C b g fullname
g base g filenamef
ice-9/ftw.scm
U C\ h J ] L 6B g filenamef
ice-9/ftw.scm
W W '
C h A ] C 9 g filenamef
ice-9/ftw.scm
X
CD<VE h f ] C^ g flag
g filenamef
ice-9/ftw.scm
^ ^ 1 ^ ' CF h f ] C^ g flag
g filenamef
ice-9/ftw.scm
_ _ 1 _ ' CTB=>GY30 h ]L4L 54L5L 6 z g child
g filenamef
ice-9/ftw.scm
q . r 4 s 8 s 4 u 4 r 0 C-W]30 h ]L4L 54L5L 6 z g child
g filenamef
ice-9/ftw.scm
q . r 4 s 8 s 4 u 4 r 0 C hh ? ]+4L > G 4L5 $ " 14L 5 $ " L$ 4L5$ &4 LO 4 5> " G " 4L > " G 4L 5 4L> " G & " 4> " G " 4L > " G 4L 5 4L> " G & " 4> " G 4L5$ &4 LO 4 5> " G " C 7 g fullname
c g base c g level c g s
a g flag
a g t [ g t / X g ret g ret $ g filenamef
ice-9/ftw.scm
c d 0 d w w ( x " / x / w A y B o - L o ( M p - [ v . f p - s g ( i 3 i ( k * l * m . m 5 m . g ( i 3 i ( k * l * m . m 5 m . % o - / o ( 0 p - > v . I p - $ c g nameg go CK]U h S ] L4L 5
6 K g filenamef
ice-9/ftw.scm
~ ~ ' ~ #
C h d ]C \ g key
g val g filenamef
ice-9/ftw.scm
C\ ! hH - 1 3 45 4 O 5 $ 45" 45$ O " 4
5$ 4 5$ "
O " 4
5$ O " 45 445 $ " 5 $ "
4445 45 5? O
Q 4 O 5
4 > " G
C g filename
G g proc G g
control-flags G g od G g s 7 g odev 7 G g same-dev? S G g maybe-cd G g
maybe-cd-back G g depth-first? G g t g visited? G g has-kids?
G g stat&flag G g go G g ret
0 G g filenamef
ice-9/ftw.scm
E
F
F G G ' H ( H 7 F : I > I B I F I S F V M Z M ^ M b M c N m N F V V " V V F Y Y Y F Z [ [ ! [ [ Z F ] F ` a a 4 a = a b ! ` F c } # } 0 } 0 } 3 5 G
g nameg nftw CR4`abeg h ? ] C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef
ice-9/ftw.scm
" g
macro-typeg syntax-rulesg patternsg expr C5aRN*.129:FOK& h J ] M 6B g filenamef
ice-9/ftw.scm
-
C h V - 1 3 6 N g args
g filenamef
ice-9/ftw.scm
C'( h n ] LLMLL L 6 f g filenamef
ice-9/ftw.scm
, 4 4 4 4 .
C h { ]4L LO > 6< s g subdir
g result+visited g filenamef
ice-9/ftw.scm
& ( C+,) h J ] LL 6B g filenamef
ice-9/ftw.scm
% 9
C h V - 1 3 6 N g args
g filenamef
ice-9/ftw.scm
%
C h( ]EH45$ " 4 5K45$ L J6445455$ D 4
5& 4LJ5$ |4
O 5445455 45$ 5" 45$ :4> " G 4LO
5 4LJ 5 D45 $ " 45 $ 45
"4J5 4 LO 5 4 5$ 454L 5
"54
5 & 45 4
5
"
454L 5
"454LJ5
"4L J5D4LJ5445455DLJ6 g name
! g path ! g dir-stat ! g result ! g visited ! g full-name ! g dir g visited g entry g result g subdirs
g r+v g t g child < g st P g filenamef
ice-9/ftw.scm
#
& 0 ; < ? F $ M Q U [ ] ^ h i
w x #
& # : # # +
+ 1 2 % 8 > < % < ? % P S ] ^ # e # | } & 5 ' ' ! ' ' ! " " " #
! [ ! g nameg loop C.K h J ] LL 6B g filenamef
ice-9/ftw.scm
+
C h V - 1 3 6 N g args
g filenamef
ice-9/ftw.scm
C hX J - . , 3
# O Q 4O 56 B g enter?
V g leaf V g down V g up V g skip V g error V g init V g file-name V g stat V g loop % V
g filenamef
ice-9/ftw.scm
% > ? V V g nameg file-system-foldg
documentationf Traverse the directory at FILE-NAME, recursively. Enter
sub-directories only when (ENTER? PATH STAT RESULT) returns true. When
a sub-directory is entered, call (DOWN PATH STAT RESULT), where PATH is
the path of the sub-directory and STAT the result of (stat PATH); when
it is left, call (UP PATH STAT RESULT). For each file in a directory,
call (LEAF PATH STAT RESULT). When ENTER? returns false, call (SKIP
PATH STAT RESULT). When an `opendir' or STAT call raises an exception,
call (ERROR PATH STAT ERRNO RESULT), with ERRNO being the operating
system error number that was raised.
Return the result of these successive applications.
When FILE-NAME names a flat file, (LEAF PATH STAT INIT) is returned.
The optional STAT parameter defaults to `lstat'. CRh ` ]C X g n
g s g filenamef
ice-9/ftw.scm
. CN h` ]$ I $ +$ 44 5 5C456 456 456 g name
_ g stat _ g result _ g w R g x R g filenamef
ice-9/ftw.scm
"
% 0 4 4
7 9 _ g nameg leaf C h
]#$ { $ ]$ I $ +$ 44 55C456 456 456 456 456 g name
g stat g result g w g x g w ' j g x ' j g filenamef
ice-9/ftw.scm
:
= H ) L
O Q g nameg up C h ]L 6 g name
g stat
g result
g filenamef
ice-9/ftw.scm
g nameg enter?* C h ]C g name
g stat g result g filenamef
ice-9/ftw.scm
g nameg down C* h ]4 L5$ CL 6 g name
g stat g errno g result g filenamef
ice-9/ftw.scm
g nameg error C
h w - . , 3 # # 4O O 5 $ e( Q " .( ( C4
56 4
56 $ ( C""4
56 4
56 o g file-name
g enter? g stat g leaf ( g up ( g v K g w ^ g w n g filenamef
ice-9/ftw.scm
) E ; K g nameg file-system-treeg
documentationf RReturn a tree of the form (FILE-NAME STAT CHILDREN ...) where STAT is
the result of (STAT FILE-NAME) and CHILDREN are similar structures for
each file contained in FILE-NAME when it designates a directory. The
optional ENTER? predicate is invoked as (ENTER? NAME STAT) and should
return true to allow recursion into directory NAME; the default value is
a procedure that always returns #t. When a directory does not match
ENTER?, it nonetheless appears in the resulting tree, only with zero
children. The optional STAT parameter defaults to `lstat'. Return #f
when FILE-NAME is not readable. CR K& h J ] L 6B g filenamef
ice-9/ftw.scm
" #
C'() h` ]" J45$ 4 > " G L 64 54L5$ " "4 5 " g stream
` g entry P g files P g filenamef
ice-9/ftw.scm
' ( * *
, + - , . 3 / = / B 0 P . P ( Q ( X ) ` ( ` C hH - . , 3 # 45 # 4 O 455O 6 g name
E g select? E g entry<? E g filenamef
ice-9/ftw.scm
+ ' ! + ! 3 $ : ! E & E g nameg scandirg
documentationf Return the list of the names of files contained in directory NAME
that match predicate SELECT? (by default, all files.) The returned list
of file names is sorted according to ENTRY<?, which defaults to
`string-locale<?'. Return #f when NAME is unreadable or is not a
directory. CRC g m
0 g filenamef
ice-9/ftw.scm
F
7
k
| )
/
' E
8
C
GH
GJ
C6 PK ! lNR R
ice-9/slib.gonu [ GOOF----LE-8-2.0: ] 4 h ] g assq-ref g %guile-build-info g datadir g
string-append f /slib/guile.init g file-exists? g guile g load-in-vicinity
f ice-9
f
/usr/share g load-from-path f slib/guile.initC 5 h P ]4ii5 4i 5 4i5$ 4 > " G " $ C4i
5 4i 5$ 4 > " G " $ Ci6H g dir
K g init H g t
K g init
a g t
g filenamef ice-9/slib.scm
, 1 + , K W ] _ 1 a a d p q
C6 PK ! د_e(4 (4 ice-9/format.gonu [ GOOF----LE-8-2.04 ]% 4 hx ] g guile g define-module* g ice-9 g format g filenameS
f ice-9/format.scm g replacementsS
g autoloadsS g pretty-print g truncated-print g i18n g %global-locale g number->locale-string g set-current-module f 3.0 g format:version g string? g error f +format: expected a string for format string g boolean? !g current-output-port "g output-port? #g number? $g issue-deprecation-warning %f 5Passing a number to format as the port is deprecated. &f "Pass (current-error-port) instead. 'g current-error-port (f format: bad destination `~a' )g %default-port-encoding *f UTF-8 +g open-output-string ,g port-column -g
write-char .g
string-ref /g
string-length 0g char=? 1g display 2g string 3f ~ 4g memv 5g append 6[];:@^ 70123456789-+v#' 8f illegal format string 9{}:@^ :g char-upcase ;g memq <g colon =g colon-at ><= ?g at @?= Af missing argument(s) Bg list-ref Cg length Df '~s parameter must be a positive integer Ef width Ff decimals Gg
integer->char Hf padchar Ig
string-pad Jg complex? Kf argument not a complex number Lg real-part Mg imag-part Nf 'one positive integer parameter expected Og integer? Pg char? Qf ~~c expects a character Rg object->string Sg
char->integer Tf #\ Ug number->string Vf missing backward argument(s) Wf ~~p expects a number argument Xf ies Yg call-with-output-string Zg widthS [g max \f illegal modifier in ~~? ]g char-whitespace? ^f &illegal modifier `:@' in ~~* directive _g string-copy `g char-alphabetic? ag string-set! bg
char-downcase cg string-capitalize dg
string-upcase eg string-downcase ff missing ~~( gg if-then hg if-else-then if illegal modifier in ~~[ jg num-case kf ~~; not in ~~[~~] conditional lf no parameter allowed in ~~; mg substring nf illegal modifier in ~~; of missing ~~[ pf no modifier allowed in ~~] qf no parameter allowed in ~~] rf argument not a positive integer sg rest-args tg sublists ug
rest-sublists vg list wf missing ~~{ xf illegal modifier yf no parameters allowed in ~~} zg string=? {f |f expected a list argument }g list-tail ~f !expected a list of lists argument f expected list arguments f internal error in ~~} f too much parameters f double `@' modifier f double `:' modifier f misplaced modifier g
char-numeric? g string->number f
misplaced '#' g
string-append f SLIB Common LISP format version f , (C) copyright 1992-1994 by Dirk Lutzebaeck f 5 please send bug reports to `lutzeb@cs.tu-berlin.de' f unknown control character `~c' g string-prefix? f #< f mincol f colinc f minpad f argument not an integer f
commawidth f colnum f unsupported modifier for ~~t f 'only positive integers can be romanized g list->string g reverse M D dC 2L
X V I g assv d d
f zero f minus f thousand f million f billion f trillion f quadrillion f quintillion f sextillion f septillion f
octillion f
nonillion f
decillion f undecillion f
duodecillion f
tredecillion f quattuordecillion f quindecillion f
sexdecillion f septendecillion f octodecillion f novemdecillion f
vigintillion { g string->list f , f one f two f three f four f five f six f seven f eight f nine f ten f eleven f twelve f thirteen f fourteen f fifteen f sixteen f seventeen f eighteen f nineteen f hundred f twenty f thirty f forty f fifty f sixty f seventy f eighty f ninety
f times ten to the f power f 3only integers can be converted to English cardinals f zeroth f th f f first f second f third f fourth f fifth f sixth f seventh f eighth f ninth f tenth f eleventh f twelfth f
thirteenth f
fourteenth f fifteenth f sixteenth f seventeenth f
eighteenth f
nineteenth f twentieth f thirtieth f fortieth f fiftieth f sixtieth f
seventieth f eightieth f ninetieth
f - f 2only integers can be converted to English ordinals g string-index f +argument is not a number or a number string f digits g inf? g nan? f argument is not a number f exponent digits g min
f mindig g exact->inexact f (illegal character `~c' in number->string
f 4number is too long to format (enlarge format:fn-max) f -internal error in format:fn-shiftleft (~d,~d) f 'FORMAT: INTERNAL ERROR IN FORMAT:ERROR! g newline f destination: g write f format string: f format args: f error args: f error in format f r~%FORMAT: error with call: (format ~a "~a<===~a" ~
~{~a ~}===>~{~a ~})~% g list-head g apply g make-string f ~a missing argument~:p g force-output g get-output-string g
close-port f ;Omitting the destination on a call to format is deprecated. f 5Pass #f as the destination, before the format string. !f @Omitting the destination port on a call to format is deprecated. "f :Pass #f as the destination port, before the format string. #g module-set! $g the-root-moduleC 5 hx ]4
5 4 > " G R !"#$%&'()*+,-. hP ] " 1$ " ,44 5L> " G " "M N C g str
K g i K g n K g k 7 g filenamef ice-9/format.scm
Z [ \ [ ] ] & ] 1 [ 7 [ F ^ % G ^ I ^
K g nameg format:out-substr C- h@ ]
" * $ " $4L> " G "
"M N C g n
@ g ch @ g i 0 g filenamef ice-9/format.scm
c d e d f * d 0 d < g > g
@ g nameg format:out-fill C/.012- h ]M
L $ M C4L
M
5 M
N
4 ~5$
NNNL 6 M
$ cM
$ WM$ "44M4 55L> " G " 4 L> " G 4
5$
" MN" " "T g ch
# g char
# g filenamef ice-9/format.scm
! # & 2 5 6 # 8 ; ? B G J O U M V N
Y N \ N + d N k N
x P
R R T Q
g nameg anychar-dispatch C134.56789:;>@AB<CDEFGH/I?=JKLM2-0NOPQRSTUV#WXYABZ hH ]MM$ MN4M> " G " MNMN4LM5 L 6 g p
D g filenamef ice-9/format.scm
) " , . 2 3 : < D D CABZ[ hP ]MM$ MN4M> " G " MNMN4LM5 4L M 56 g p
M g filenamef ice-9/format.scm
) " , . 2 3 : < A . H 3 K . M M C\Z]^_/.`ab: h ])4 54 5 H " u$ C4 5 45$ GJ$ 445> " G " K445> " G " "
" g str
g cap-str g non-first-alpha g str-len g i g c 0 g filenamef ice-9/format.scm
% & ( & ) *
$ ) ( + 0 +
3 , = , C - D . K . + V . e 0 f 1 m 1 - x 1 ) ) g nameg string-capitalize-first Ccdefghijklmnopqrstuvwxyz{|}~_ f h0) QI ]HM*L)$ @M%$ 44M%5L&> " G " 4L&> " G M' N'M(CM
$ " 44L M*5455 $ (M#
$ " +4M*L)$ 4M$5" 4L M*54 55 $ (h4
M*L)$ 4M$5" 4L M*5 M*N* 5 A$ c4 M 5N4L4 M
5M(M$ MN4M$> " G " M(N(M(N4LM(5M> " G L6 S$ c4 M 5N4L4 M
5M(M$ MN4M$> " G " M(N(M(N4LM(5M> " G L6 D$ R4L
M M(M$ MN4M$> " G " M(N(M(N4LM(5M
> " G L6 H$ M(M$ MN4M$> " G " M(N(M(N4LM(5 M $ <M(M$ MN4M$> " G " M(N(M(N4LM(5" 4M5 M
$ 34
5 $
$
4M$5" " " M $ 34 5 $
$
4M$5" " " 4M $ 54 5 $
$
4M$5" " " 5 45 $ #45$ 45" " M%$ 44M%5L&> " G " 4L&> " G M'45N' L6 X$ R4L
M M(M$ MN4M$> " G " M(N(M(N4LM(5M > " G L6 O$ R4L
M M(M$ MN4M$> " G " M(N(M(N4LM(5M > " G L6 B$ R4L
M M(M$ MN4M$> " G " M(N(M(N4LM(5M > " G L6 R$ M( 4L4M $ L " $ L"" $ L " L! M(M$ MN4M$> " G " M(N(M(N4LM(55M> " G " P4L
M M(M$ MN4M$> " G " M(N(M(N4LM(5MM> " G L6 F$ P4L M M(M$ MN4M$> " G " M(N(M(N4LM(5M> " G L6 E$ P4L M M(M$ MN4M$> " G " M(N(M(N4LM(5M> " G L6 G$ P4L M M(M$ MN4M$> " G " M(N(M(N4LM(5M> " G L6 $$ P4L M M(M$ MN4M$> " G " M(N(M(N4LM(5M> " G L6 I$ M(M$ MN4M$> " G " M(N(M(N4LM(5 4 5$ " 4M$ > " G 4L M 4 5M> " G 4L 4 5M> " G M%$ "44M%4!i55L&> " G " 4"iL&> " G 4#i
5$
" M'N' L6 C$ bM ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ 4M5" 8M(M$ MN4M$> " G " M(N(M(N4LM(5 4&5$ " 4M$'> " G M $ S4(5 M%$ 44M%5L&> " G " 4L&> " G M'45N' " 1$ 4)5HJ
$ J K" J $ M%$ "44M%4!^55L&> " G " 4"^L&> " G 4#^
5$
" M'N'4J @5 M%$ "44M%4!55L&> " G " 4"L&> " G 4#
5$
" M'N' " J $ M%$ 44M%*5L&> " G " 4*L&> " G M' N'4+J 5 M%$ 44M%5L&> " G " 4L&> " G M'45N' " SM%$ "44M%4!55L&> " G " 4"L&> " G 4#
5$
" M'N' " SM%$ "44M%4!55L&> " G " 4"L&> " G 4#
5$
" M'N' L6 P$ M & " $ A M(N(M(NM(
$ 4M$,> " G " 4LM(> " G " M(M$ MN4M$> " G " M(N(M(N4LM(5 4-5$ " 4M$.> " G $ xM & " $ WM%$ "44M%4!y55L&> " G " 4"yL&> " G 4#y
5$
" M'N'" " M & " $ BM%$ 44M%/5L&> " G " 4/L&> " G M' N'" SM%$ "44M%4!s55L&> " G " 4"sL&> " G 4#s
5$
" M'N' L6 ~$ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ 4L M~> " G " SM%$ "44M%4!~55L&> " G " 4"~L&> " G 4#~
5$
" M'N'L6 %$ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ 4L M
> " G " SM%$ "44M%4!
55L&> " G " 4"
L&> " G 4#
5$
" M'N'
N'L6 &$ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ 8M
$ (4L MM'
$
"
> " G "
N'" _M'
$ WM%$ "44M%4!
55L&> " G " 4"
L&> " G 4#
5$
" M'N'" L6 _$ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ 4L M > " G " SM%$ "44M%4! 55L&> " G " 4" L&> " G 4#
5$
" M'N'L6 /$ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ 4L M > " G " SM%$ "44M%4! 55L&> " G " 4" L&> " G 4#
5$
" M'N'L6 |$ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ 4L M > " G " SM%$ "44M%4! 55L&> " G " 4" L&> " G 4#
5$
" M'N'
N'L6 T$ 4LM M> " G L6 Y$ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ M" O M $ b401LLL$LL(O 5 M%$ 44M%5L&> " G " 4L&> " G M'45N' " $ d402L'LLL$LL(O 5 M%$ 44M%5L&> " G " 4L&> " G M'45N' " p$ 4M$3> " G " Q44M(M$ MN4M$> " G " M(N(M(N4LM(5L&5> " G
N' L6 ?$ " K$ 1M & " $ 4M$3> " G " M & dM(M$ MN4M$> " G " M(N(M(N4LM(5 4L5 4L4L5> " G " M(M$ MN4M$> " G " M(N(M(N4LM(5 M(M$ MN4M$> " G " M(N(M(N4LM(5 4L> " G L6 !$ N
L6
$ M & WM%$ "44M%4!
55L&> " G " 4"
L&> " G 4#
5$
" M'N'" M*L)$ 9" 465 $ " M*L) $ " M & M*L)$ 4M$5" 4L M*5 M*N* M%$ "44M%4!55L&> " G " 4"L&> " G 4#
5$
" M'N' " 8M*L)$ 4M$> " G " 4L M*> " G M*N*M*L)$ 4M$5" 4L M*5 "M*L)$ 4M$5" 4L M*5 "" L6 *$ M $ M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ c" TM$ " M M(N(M(NM(
$ 4M$,> " G " 4LM(> " G "
"" = M(N(M(NM(
$ 4M$,> " G " 4LM(> " G " $ nM ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ M"
N(" + $ 4M$7> " G " M ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ i" ZM$ " SM(M$ MN4M$> " G " M(N(M(N4LM(> " G "
"" CM(M$ MN4M$> " G " M(N(M(N4LM(> " G L6 ($ <M $ 8" $ 9" $ :" ; N%L6 )$ #M%$ " 4M$<> " G N%L6 [$ MNM $ M*NNNM $ =" %$ >" $ 4M$?5" @ NM ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ M" 8M(M$ MN4M$> " G " M(N(M(N4LM(5N" L6 ;$ M
$ 4M$A> " G " M( " 4M$B> " G M $ nM & N4CL MM* 5" 6M & " $ 4M$D5" 4CL MM* 5 4M 5NM*N " L6 ]$ M
$ 4M$E> " G " MNM $ 4M$F> " G " M( " 4M$G> " G M
$ G4CL MM* 5 M$ N" 4M 5N M =$ &M$ 4LMM > " G " " >$ /4L4LM$ M" M4L5 5> " G " @$ 4%M5 $ " M
$ 4M$H> " G " " ;4L4LM4M5$ M" 4MM54L5 5> " +G " $M4M5$ M$ "" " "" " L6 {$ M#N#M# $ M*NM $ I" $ J" $ K" L NM ( " J" 4M$$5" ;4%5$ +
$ 45 $ " "" "" " $ M" N" L6 }$ 6M#
$ 4M$M> " G " M#N#M $ M$ " N" - $ " $ 4M$N> " G " M( " 4M$O> " G M#
$ 4CL MM*M $ " 5H4PJQ5$ >M(M$ MN4M$> " G " M(N(M(N4LM(5K" M L$ M(M$ MN4M$> " G " M(N(M(N4LM(5
H $ " 4M$R> " G 45K" KJ $ " M$ M" $ " (4LJ4S55 "
" " YJ$ M(M$ MN4M$> " G " M(N(M(N4LM(5
H $ " 4M$R> " G 45K" uJ $ " M$ M" $ " O45 $ " 4M$T> " G 4LJ> " G "
" " cI$ 4L5 45 " M $ " M$ M" $ " (4LJ4S55 "
" 4L> " G " K$ 4L5 45 " w $ " M$ M" $ " O45 $ " 4M$U> " G 4LJ> " G "
" 4L> " G " 4M$V> " G " L6 ^$ M( @M%$ WN%" -M# $ " M $ " M(M$ L)N*" " }4M5 $ M
" _ $ 4M
54M 5" A $ 14M 5 4M
5$ 4M 5" " 4M$X5 $ L6 C @$ IM & " $ 4M$Y> " G " M & " N " :$ IM & " $ 4M$Z> " G " M & " N "ڳ '$ ]M $ 4M$[> " G " 4M4)M*L)$ 4M$5" 4L M*5 M*N* 5 5NN"M 0$ " 1$ " 2$ " u 3$ " g 4$ " Y 5$ " K 6$ " = 7$ " / 8$ " ! 9$ " -$ " +$ M $ 4M$[> " G " M*M*H " o4\5$ `M*L)$ 4M$> " G " 4L M*> " G M*N*JKM*L)$ 4M$5" 4L M*5 "" #M*L)$ 4M$5" 4L M*5 "n4M4]4CL J55 5N N" V$ gM $ 4M$[> " G " 4MM(M$ MN4M$> " G " M(N(M(N4LM(5 5NN"V #$ UM$ 4M$^> " G " M $ 4M$[> " G " 4M44L5 5 5NN" ,$ 8M $ 4M$[> " G " M$ " 4M_5NN" Q$ M & N` M%$ 44M%5L&> " G " 4L&> " G M'45N' " g4!
5 4ab`cd5 M%$ 44M%5L&> " G " 4L&> " G M'45N' L6 M$e4L M*56L6 L6 II g t
O v g t
~ g ch
g key
)% g num a ) g key e g locale & g argc # g pars g par g width g pars D g par < g decimals D g pars K g par _ g padchar g str g str g key T g z ~ g params g ch / g key T g str f g c g ch
>
g str
2 g t g arg
g t g t
1
H g params
M g params & g params g params g params g params ^ g params [ g width g key g str / g str T g t 3 J g frmt g args g frmt ^ g args B [ g ch g t g ch 2 > g ch > g key + g params 8 g i g params E g params , g i 4 g key " g key v g params
g t g
clause-str g
clause-str g key g t . B g key g params " | g key g
iteration-str J # g key # g args !f g args-len !f g arg-pos ! !V g i ! !V g t ! !0 g args ! "\ g args-len ! "\ g arg-pos ! "O g t ! ! g sublist " "F g args "n " g args-len "w " g arg-pos "} " g i "} " g t " " g usedup-args " " g args # # g args-len # # g arg-pos # # g t # #7 g sublist #J # g usedup-args # # g key $' $ g b $i $ g continue $ $ g t $ $ g t % % g ch % % g num-str-beg &y '5 g num-str-end &y '5 g ch & & g str (^ ( g nl ( ) g str ( ) ig filenamef ice-9/format.scm
F G
G G " G
/ H
3 : H
E J F J H I N O ] ` i m ' o q s z } ~ ' ! * ) " % 5 7 ; < C E M Y b c m n
q
* ~ ) "
) " ) . 2 5 ) 7 8 < " A Q S W X _ a a e $ u y | ) ~ " $ $
A $
! % & * , A . D G $ K % R
V W _
g k o p t v 1 x $ $ % ! 1 ! . ) " ) F G
G G
H
J J I - $ 6 7 & @ D G ) I J N " S c e i j q s | & ' ) ) " ) * , ) " ' ) 2 , > - G M / N 0 R 3 ) " 3 0 : ) "
; , ; 9 : * < 3 4 > = A D ) F G K " P ` b f g n p w > ? A ) " A B D ) " " ) D 5 E > ? G H L O ) Q R V " [ k m q r y { G H ) " J K K L L ' L M M 0 M N N ' N + N . M / N
2 N 5 N + = N D N
Q P
e R q R y T { Q P R ! R S ! S 0 S ! )
" ! % & - / / R 2 U < U A V E V ' J V T W ` Y ( f Y n F o G
r G G
H
J J I W [ ! [ \ \ ] & ] a ` M N
N N + N N
P
R
* R
2 T
4 Q
5 e
< e ,
> e
> d
F M
G N
J N
M N +
U N
\ N
i P
} R
R
T
Q
f
`
F
G
G
g ,
G
G
H
g ,
H
J
J
I
i
h
F
G
G G
H
& J - J / I < M = N
@ N C N + K N R N
_ P
s R R T Q M N
N N + N N
P
R R T Q m o o ! & ' + 0 = Y ] ` ) b c g " l | ~ q r r s s ' s t t u u M N
N N + N N
P
R
R
% T
' Q
1 w
L w
R F
S G
V G
Z x -
\ G
c G
p H
t x -
{ H
J
J
I
M
N
N
N +
N
N
P
R
R
T
Q
z
|
$ % - 1 Q | R } W } ( ^ } p M q N
t N w N + N N
P
R R T Q
* + 0 ( 7 I M J N
M N P N + X N _ N
l P
R R T Q 1 5 1 $ . + : B F L M M N
P N S N + [ N b N
o P
R R T Q
( ) M * N
- N 0 N + 8 N ? N
L P
` R l R t T v Q z ( M N
N N + N N
% P
9 R E R M T O Q S \ ^ f p t v z { ( M N
N N + N N
P
R R & T ( Q + / 8 9 P Y [ $ c m q s w x } $ F G
G G
H
# J * J , I < = T \ F ] G
` G m G
z H
J J I & ) " # 3 N O S # X h # l q u x ) z { " " $ ) " ) " " 2 4 8 9 @ B B E b k n r { % M N
N N + N N
P
R R T Q % . + # % * 2 7 ! 9 > F M G N
J N M N + U N \ N
i P
} R R T Q !
) + 8 @ J N P T U Z \ ` c e i j r v $ $
# C E ( M W [ ] a b g i m p r v w $ ( $ 0 4 9 $ : > G K N ) P Q U " Z j l p q x } $ ) " $ ( 1 7 < @ % E P T ] ` * b f j n q r # t v # & ) 7 ) # ! $ ) & ' + " 0 @ B F G N P R
Z c f k l p % u % . + . + ' 7 ' ! " # $ ( $ ) $ 0 - $ > 2 $ 0 A % * C % I & J ' N ' % S ' e ( j ) n ) % s ) ~ + * , ' - 2 , ' , . / 0 ) 0 9 0 ) 0 1 3 4 4 0 5 0 4 1 7 8 8 - 9 1 : 1 ; - 8 7 & 1 ' = % . = . = ? > F = G ? K ? * P ? a B d C i D 6 p D " t D { F " G C B @ @ : @ & @ @ ! H J ( J L K M O P # O Q & O R ) S # N " T . * 4 8 : > ? D F J M O S T \ ` T * U . T V X X X . X < X . Y ( Y Z \ \ / Z ] $ ] 2 ] $ ^ _ _ % _ + ` 0 ` 1 b ? c 7 H c ) J b J a M d S d 5 U d Y d ^ b e ) g h l " q e f ) " h j ' j k " k 0 k " l - ! l ! m ! r ' ! r # !# s ' !( t , !4 m !; n 1 !@ p 2 !J n 1 !K m . !N q ( !V m !s f !x !| ! ) ! ! ! " ! ! ! ! ! ! ! ! v ! x ' ! x ! y " ! y 0 ! y " ! z - ! z ! { ! | ' ! | # ! } ' ! ~ , " { " / " " + " " " & "" ' "' & "0 " "I { . "O { "i f "j ) "n "q - "w "} $ " - " ) " - " 2 " $ " 7 " 8 " 7 " 4 " . " $ " " " f " ) # # - # # $ # - # ) #* - #/ 2 #; $ #B 5 #J & #O 1 #S ( #X , #\ : #a , #j ( # 4 # $ # # # ! # / # ! # # # # # # $ $ $ $ $ $! $ $' $4 , $5 % $C $D ( $L < $T % $a $b ) $i % $l ) $v % $} ) $ % $ & $ 4 $ & $ $ $ $ $ $ $ $ $ % $ $ 4 $ " $ < $ F $ $ % % %# %$ %( % %- %= 4 %A " %C 9 %I C %K %O %X %^ %_ %c . %h %u %z 5 % % % % % % % % ! % % 5 % / % % % % % &^ &_ &c . &h &w & &y & & & & & & & & & & ! & & ) & & & & & & & & & & & & ' ' ' ' ' ) ' * '( ) '+ # '- '/ '8 '< 'E 'K 'L 'P . 'U 'b 'k 'o 'r ) 't 'u 'y " '~ ' ' ' ' ' ' ' / ' ' ' ' ' ' ' ) ' 7 ' ) ' ' ' . ' ' ' 5 ' = ' 5 ' / ( ( ( (
( ( ( ( . (# (5 (: $ (@ 3 (B $ (D (G (K (T (X % (\ (^ (f F (g G
(j G (w G
( H
( J ( J ( I ( ! ( ( ( ( ( ( ( ( F ( G
( G ( G
( H
) J ) J ) I ) ) ! ) ! )! ; )# ! )% )) )-
g nameg tilde-dispatch C h0 ]"
$ C "LM " g l
g k g filenamef ice-9/format.scm
$ , +
g nameg rest-args C h ] MNMN C g n
g filenamef ice-9/format.scm
g nameg add-arg-pos CC h , 3 &M4 5HHHHHH
H H H
H HHHHH O O + O O LLL LQ LLLL
L L L
L LLLLLLLLL LLLLQ Q LQ
45
% $ # " ! KKKKK K K
K K K
!K"K#K$K%K ! " # $ %
N
N4> " G NJC g
format-string
g arglist g recursive-pos-save g format-string-len g arg-pos g arg-len g modifier g params g param-value-found g conditional-nest g
clause-pos
g clause-default g clauses g conditional-type
g conditional-arg g iteration-nest g
iteration-pos g iteration-type g max-iterations g anychar-dispatch g tilde-dispatch g rest-args g add-arg-pos g arg-pos 4 g arg-len 4 g modifier 4 g params 4 g param-value-found 4 g conditional-nest 4 g
clause-pos 4 g clause-default 4 g clauses 4 g conditional-type 4 g conditional-arg ! 4 g iteration-nest " 4 g
iteration-pos # 4 g iteration-type $ 4 g max-iterations % 4 &g filenamef ice-9/format.scm
! ) . g nameg format:format-work CRY1 h ] ]L 6 U g p
g filenamef ice-9/format.scm
.
:
C1/CBDG1 h ] ]L 6 U g p
g filenamef ice-9/format.scm
.
:
C h ]D( $ 45" 4O 5 M$ 45$ 45" " M$ 44M5L> " G " 4L> " G M45NC45
$ 34
5 $
$
4M
5" "
"
$ 34 5 $
$
4M
5" " " $ 44 5 $
$
4M
5" "
"
4 $ 4 5 $ " " 5$ 45" 4O 5 M$ 45$ 45" " $ " CM$ 44M 5L> " G " 4 L> " G M4 5N" 3
$ 4L > " 'G "
"4 5
" $ EM$ 44M 5L> " G " 4 L> " G M4 5NCC g pad-left
g obj g slashify g pars g res % P g str P g l g par g par g par * Q g par k ~ g res g mincol g colinc g minpad g padchar g objstr g
objstr-len
) \ g i ) \ g filenamef ice-9/format.scm
" #
% - . # 2 3 6 # : ; P $
X F Y G
\ G i G
v H
J J I % %
& 1
' 1
! " *
2 6 : ; ? A ( 1 C W ) ^
b c k
s { )
# 3 # & , F G
G G
H
J # J % I ) . . 0 1 0 5 . 6 1 T / \ . ] . m . s 2 y F z G
} G G
H
J J I g g nameg format:out-obj-padded COUC/BDG?=<12-0 h ]T45$ " 4M> " G 45 " #4545
$ 34
5 $
$
4M5" " " 4 $ 4 5 $ " " 54 $ 4 5 $ " , " ,5 $ 54 5 $
$
4M
5" " "
$ H & " $
$ J K " "
& " $
$ "
J K " J $ 4LJ > " G " " & " $ c
$ WM $ "44M 4+55L> " G " 4+L> " G 4+
5$
" MN" "
& " $
$ "
4L
> " G "
$ C
$ WM $ "44M 4 55L> " G " 4 L> " G 4
5$
" MN" 4L
> " G
"q
"iM $ 44M 5L> " G " 4L> " G M45NC( O $ "M $ 44M 5L> " G " 4L> " G M45NC" g modifier
g number g pars g radix g numstr , g l @ U g
numstr-len @ U g par T { g par g par g par g mincol U g padchar U g commachar U g
commawidth
U g numlen . g start \ g ns \ g i
y g filenamef ice-9/format.scm
5 6
6 6 " 6 0 6 " $ 7 , 7 3 : : ; @ : H
L M T
\ ` d e i k < 4 m =
= ?
@ 5 ?
A 7 < , B . C 8 D F D J D > N D Q E ' S E c F q F w H ; { H 7 G 4 G * G ' G K K L L + L M M N M M N
N N + N N
P
R ! R ) T + Q ; P I P N Q ! R R " V R \ Q a S y T ~ U T V V M N
N N + N N
P
R R T Q X X 4 X T $ T F G
G ' G
4 H
J J Q J S I U 8 a 8 k F l G
o G | G
H
J J I g nameg format:out-num-padded CCBDG<=? hx ]245
$ 34
5 $
$
4M5" " " $ 34 5 $
$
4M5" " " 4 $ 4 5 $ " " 5 $ " $ M 6
$ GL
$ " 3" !$ M " "
M "6LM $ M " 6
$
" )" M $ M " " "6 g modifier
t g pars t g l t g par B g par W ~ g par g colnum t g colinc t g padch t g c g col g c K h g filenamef ice-9/format.scm
[ \ \
# ' + , 0 2 ] - 4 K
O P W
_ c g h l n ^ - p _
_ ] `
b b
`
e e g i g j
g g h " g & d
- o 1 n 6 p > q B n K t P u T t Y v b t h t t m
> t g nameg format:tabulate CO h ]9" M 64 5$ | $ p" ]( 456 " ,
$ " " " ""s"o g n
g n # g romans # g s # g roman-val = g roman-dgt = g q E q g s E q g filenamef ice-9/format.scm
#
) , - 4 7 ! ; ! = E I M R U a d 1 i q v
}
g nameg format:num->old-roman CO5 h ]Q" M 64 5$
$ " ( 456 " {
$ _"
"$ ; $ + 445
5 "z""
"
"o "5"" g n
g n # g romans # g
boundaries # g s # g roman-val @ g roman-dgt @ g bdry @ g q J g r J g s
J g filenamef ice-9/format.scm
#
) , 4 7 ! ; ! @ @ J N R [ $ ^ 1 l l y , z & ~ " 5 " ( . ) ( " ) ! !
}
0 g nameg format:num->roman COC5B h ]Q4 5$
$ C
$ 4L
5645 " O
$ 6
$ 4
$ 4
5" d d
4
$ -44 4 554
5
$ " 5" $
$ 4 4 55" " 144 4 55
$ -4 4
55" 55
$ 4 4 55" "44 54 4L 554 555" "
"M 6 g n
g power3-word-limit 6 g n < g power3 < g s < g n-before-block V g
n-after-block V g hundreds : g tens+ones 7 g tens 4 g ones
1 g filenamef ice-9/format.scm
$ $ % - ( C - - / 0 4 6 6
< @ D J P + V * V _ c ! g h ! n & r " s & w 4 y & ~ :
" -
" $ % * ,
. ? & C " D & G ' K O ' Q & V & Y ' ] 5 _ ' ` ' c ( j ) l ( n ' o ' s 5 u ' w & { !
s g nameg format:num->cardinal CO{B h ]!4 5$
$ C
$ 4L
56 d d
$ #44L d5
$ " 5"
$ " X $
4 5" B
$
4
5" 44 5 4 55 6M
6 g n
g hundreds 9 g tens+ones 9 g tens g ones g filenamef ice-9/format.scm
$ $ % - ( B - - / 4 9 9
C G H K R + T X \ ^ ) d . f l p t v $ $ $ ! ! "
" # $ $ % & & #
9 g nameg format:num->ordinal CU/[G1 h( ]>4 5 45 4.5 $ "
$ "
" $ 44 5
5"
$ 4
5"
4$ " 5 4L
> " G M$ 44M5L > " G " 4L > " G M45NL 6$ $$ $
L456"("$" g number
# g width # g digits # g edigits # g overch # g padch # g str # g len # g dot # g digits = # g leftpad
d g rightpad g padch
g filenamef ice-9/format.scm
+ / / 0 / 1 / % 2 2 3 7 3 $ = 2 = / I 6 J 7 O 7 . V 7 7 [ 7 . \ 7 % _ 7 d 6 l 9 m : ! t : & z : ! 6 < < ) < 6 = F G
G G
H
J J I ? 4 4 4
4 5 # 5 / # g nameg format:out-inf-nan C# CBDE?G
h @ ]C45$ " 45$ " 4M
> " G 45
$ 34
5 $
$
4M
5" " " $ 34 5 $
$
4M
5" " " $ 4 5 $ "
"
$ 4 5 $ " " $ 4 5 $ " " " $ 4L> " G MM$ 4LMM> " G " 4L> " G $ MH M
$ "
$ J K " M
$ $ J K " " J $ 4LJ 4
5> " G " " L 6$ J $
L4
56""L 64L> " G 4L> " G $ MH M
$ "
$ J K " M
$ J K " J $ 4LJ 4
5> " G " J $ IJ MM
$ $
L4
56L 64L
> " G L 6L 6L 645$ 54 5 $ " 4 5 $ L 6"" 8 g modifier
{ g number { g pars { g l : { g par L s g par g par g par g par + g width 1 { g digits 1 { g scale 1 { g overch 1 { g padch 1 { g numlen A g t
g numlen v 0 g t
{ g dot-index
) g t I ` g filenamef ice-9/format.scm
C D
D D D $ D " E
& E + E
4 G : G @
D E L
T X \ ] a c H - e |
I .
( 1 H E N
F T _ U b U f U g V q V . r V $ w V W X Y Y Z Z Z = Z / Z [ # [ \ \ \ 8 \ / \ ] # ] ^ ^ _ _ ' _ 8 _ b 7 b . b ` ( ` " , ` 1 a - 9 a H c I f ^ g s h v i v i { j { j j = j / j k # k l l m # m n n o o ' o 8 o p p r * q ' q s s t u 7 u
v x x / x ) y 0 z 7 { 7 N
8 O B N
C P I P W P # d O s Q { g nameg format:out-fixed C# CBDE?G h8 ][45$ " 45$ " 4M > " G 45
$ 34
5 $
$
4M 5" " " $ 34 5 $
$
4M 5" " " $ 44 5 $
$
4M 5" " " $ 4 5 $ " " $ 4 5 $ " " $ 4 5 $ " " $ 4 5 $ " "
" F$
$ $
"
" 4L> " G MM $ 4L MM> " G " 4L > " G $ " M H M
$ "
$ J K " M
$ $ J K " " J $ M$ " M" MK J $ 4LJ 4 5> " G " " 4L
J > " G L
6$ J $
L4 56""$ $$ M$
L4 56"""4L
> " G L
64L> " G 4L> " G $ R" M H M $ "
$ J K " M
$ J K " J $ M$ " M" MK J $ 4LJ 4 5> " G " J $ tMM J $ .$
L4 564L
> " G L
64L J > " G 4L
> " G L
64L
> " G L
6$ $$ M$
L4 56"""4L
> " G L
645$ 64 5 $ " 4
5 $ L 6"y"u g modifier
5 g number 5 g pars 5 g l : 5 g par L s g par g par g par g par - ? g par V i g par g width 5 g digits 5 g edigits 5 g scale 5 g overch 5 g padch 5 g expch
5 g digits X g numlen 6 g t
; P g numlen g t g f g t g filenamef ice-9/format.scm
$ "
& +
4 : @
D E L
T X \ ] a c - e |
.
/
$ % -
5 I
M N V
^ f t
x y
+ " % " 0 & - 6 $ 6 ; ; L C M 5 T W ) Y a ! e j > k 5 o r ) t ! 2 % - - ? 6 ( 3 * $ ) - 1 > X Y n " A 3 ' ' 0 # + + # $ # ' + 1 6 5 > $ ? & Y & Z " a 6 d 3 i " r " " ( +
# - 5 g nameg format:out-expon C# CB[
h ][45$ " 45$ " 4M > " G 45
$ 4
5" $ 4 5" $
4 5" $
4 5" $
4 5" " 4L
> " G 4L> " G $ " $ "
M
$
4L5 " M $ " 4M4 55
"
L 6
$ 5
$ (4L
> " G L 6""45$ 645 $ " 4 5 $ L 6"" g modifier
g number g pars g l : g width g digits g edigits g overch g padch g ee g ww
g n g d 5 g dd
< g t g filenamef ice-9/format.scm
$ "
& +
4 : @ D E ! U Y Z " k o p # " ! # !
& + - 5 5 < < L L P T Y ^ p 6 u
# B g nameg format:out-general C# CBD
E?=<12-0G h0 ];45$ " 45$ " 4M
> " G 45
$ 44
5 $
$
4M
5" " " $ 34 5 $
$
4M
5" " " $ 44 5 $
$
4M
5" "
"
$ 4 5 $ " " " 4L
> " G MM $ 4L
MM > " G " 4L > " G MHM $ "
& " $ JK" $ M $ JM K" " M
$ $ " JK" J$ ! $ }M$ " SM$ "4
4M4-55L> " G " 4-L> " G 4-
5$
" MN4LJ45> " G "
$ 4LJ45> " G M$ +" - M$ "4
4M4 55L> " G " 4 L> " G 4
5$
" MN " $ M$ +" - M$ "4
4M4 55L> " G " 4 L> " G 4
5$
" MN 4LJ45> " G " y4LJ45> " G M$ " SM$ "4
4M4-55L> " G " 4-L> " G 4-
5$
" MN" M$ q
& " $ WM$ "4
4M4+55L> " G " 4+L> " G 4+
5$
" MN" " SM$ "4
4M4-55L> " G " 4-L> " G 4-
5$
" MN $ (M $ 4LM 0> " G " " M
$ a$ " SM$ "4
4M4055L> " G " 40L> " G 40
5$
" MN" 4LM
M > " G M$ "4
4M4.55L> " G " 4.L> " G 4.
5$
" MNLMM M645$ 445 $ " 45 $ L 6"" g modifier
0 g number 0 g pars 0 g l : 0 g par L t g par g par g par g digits 0 g mindig 0 g width 0 g padch 0 g numlen } g t g ch g ch " z g t g filenamef ice-9/format.scm
$ "
& +
4 : @
D E L
T X \ ] a c - e ~
-
,
, D G K L V . W $ \ i } } + ) M N
N N + N % N
2 P
F R R R Z T \ Q ] ! d ! & e ! 7 p ! # # & # 7 # $ & $ M N
N N + N N
P
R R T Q & & " & * M + N
. N 1 N + 9 N @ N
M P
a R m R u T w Q { ' ' & ' 7 ' ) ) & ) 7 ) * M N
N N + N N
P
R R T Q , % - 3 - 9 M : N
= N @ N + H N O N
\ P
p R | R T Q M N
N N + N N
P
R R T Q / / / 0 0 ! 0 1 1 1 * M + N
. N 1 N + 9 N @ N
M P
a R m R u T w Q | 3 M N
N N + N N
P
R R T Q 5
# ( 0 g nameg format:out-dollar C U .0a] / h a ]C4 5$ " 44 55 N
N
N N
N" $ FM $ " M
N J$
K
N N
" $ ;J
$ UM
$ IM J$ 4LJ> " G M JN
K" 4LM > " G JM K
N " "
$ " M
$ 4L5
J$ " M
M
$ !4L
M
M > " G M
N " uM
$ 4L
M > " G
N " KJ
$ <J
$ 4L
> " G " 4LJ> " G
JN " M
N
" " J
$ JM " M
$ "
J
$ 4LJ> " G N " M
$ N " 4LM 4L5
> " G J$ 4L
> " G N " O
$ 4L
> " G
N " +M $ 4LM > " G N " N
C45K 4J 5$ gJ$ B4J 05$ J$ JK" " K4MM
J > " G M
N
" 4MMJ > " G MN" 4J -5
$ " 4J +5
$ $J$ 4J +5N " 4J +5N" 4J .5$ M
N " m4J e5$ K" Y4J E5$ K" E4J 5$ " 64J d5$ " %4J #5$ " 4M J > " G JJJJ H HHH "K
4
5H HHH "/ Y g num
g fixed? g scale g num-str g i 4 g
left-zeros 4 g mantissa? 4 g
all-zeros? 4 g num-len 4 g c 4 g t
g shift
g negexp
g t
" g filenamef ice-9/format.scm
C D
D F F ) F D $ G ' H * I - J 0 K 4 L 9 R
= L C S
K T Q V
T X W Y Z Z d ^
h a l a p a - t a y b } b ~ d e 1 e f h i . i j k k k k - k l - l $ l m o o m p q (
q p r $ s & s * m + t / t 2 5 t / : t E u M w Q w V x # Z x [ y # q { % | 9 | % } 3 } ( @ % " + 3 7 8 < ) D O X \ ] e ) j v ~
+ & & &
, - % 7 < % F K W
[ ` l
o t
L L P L g nameg format:parse-float CS. hX ]M
$
C" = M$ M$ JC
JCJ
44M 55 0K JH "
H "
g i
M g n M g filenamef ice-9/format.scm
# , - # 0 2 : # < = > @ C M
W
g nameg
format:en-int CU.a/ h _ ]!
N
N4 5 " Q$ C45K4J5$ 4M MJ> " G MN" JH "
45H " W g en
| g en-str | g i i g en-len i g c i g filenamef ice-9/format.scm
! $ .
/ 9
: R $ T [ i k | | g nameg
format:en-set C
a. h ]
M $ 4M> " G " MN $ N" B
$ C4M $ 0" 4M 5> " G "M "" *M$ C4M 0> " G "M " g left?
g n g i 6 x g i g filenamef ice-9/format.scm
* , 2 6
: >
A L P W ` 7 b g r x
&
g nameg format:fn-zfill Ca. hp ] M$ 4M M> " G " " ;M$ M NC4M 4M 5> " G " "
g n
l g i ) d g filenamef ice-9/format.scm
) . 2 7 9 < E # F + S ^ d l g nameg format:fn-shiftleft CaS.G h
] H J MK " J
$ "
$ @J $ 2J N4L > " G 4M
1> " G MNCJ NC44M 55 0JK4M 4J
$ J 0" J
05> " G J
$
" KJH "=J H "1 g digits
g i g c g t ) g filenamef ice-9/format.scm
& - 1 5 9 : L c % e k n q % { } ~ % * & * - * % ( g nameg format:fn-round C?12-0 h a ]M$ c & WM$ "44M4+55L> " G " 4+L> " G 4+
5$
" MN" " SM$ "44M4-55L> " G " 4-L> " G 4-
5$
" MNM
$ a$ WM$ "44M4055L> " G " 40L> " G 40
5$
" MN" " 4LM
M> " G M$ "44M4.55L> " G " 4.L> " G 4.
5$
" MNLMMM 6 Y g modifier
g add-leading-zero? g filenamef ice-9/format.scm
M N
N N + % N , N
9 P
M R Y R a T c Q q M r N
u N x N + N N
P
R R T Q
M N
N N + N N
P
R R T Q (
B M C N
F N I N + Q N X N
e P
y R R T Q 6 g nameg
format:fn-out CG12-0 h ]
$ 45" E M$ "44M455L> " G " 4L> " G 4
5$
" MN M$ +" - M$ "44M455L> " G " 4L> " G 4
5$
" MN $ (M $ 4L M0> " G " " L M
M6 g edigits
g expch
g ch m g ch { g filenamef ice-9/format.scm
! M N
! N $ N + , N 3 N
@ P
T R ` R h T j Q s
{
M N
N N + N N
P
R R T Q
$
g nameg
format:en-out Ca0. h` ]4MM0> " G " :44M 505 $ " M $ NC "M " g i
V g t - B g filenamef ice-9/format.scm
, - - ? F I K P V ^
g nameg format:fn-strip C0. hP ]" A M $ " 44M 505 $ M$
C C "
" g i
G g t , g filenamef ice-9/format.scm
( ) 0 5 9 A G N
g nameg format:fn-zlead C'1 h { - 1 3 4> " G 4> " G 4> " G 4L> " G 4> " G 4> " G 4L> " G 4> " G 4> " G 4L> " G 4> " G 4> " G 4 > " G 4> " G M N
6 s g args
g filenamef ice-9/format.scm
~
: , 0 5 > ( P < ` d i r * @ ( < ( 5 6 " 6
g nameg format:intern-error Cm/}
h 3 - 1 3 45 LLLLLO NM
$ " MN4L4L
M 54LM 4L554LM54LM5> " G 4 > " G 4
> " G MN 6 + g args
g port g filenamef ice-9/format.scm
k
l l ! m $ n ) n 0 o ! 2 o 3 p 9 q < t F u M v U u V w _ x l p u y z { 6 " 6
g nameg format:error CC1 2 h` - 1 3 /45$ " 4> " G $ Z4 5$ 45 " B4 5$ " 14 5$ 4
> " G 4 5 " 4 5"
Y45 Z 45 $ "
HHHHHHHH
H H H
H HHHO O O O O O O O O O O O O
O
O ! O "!O #"O $#O %$O &%O '&O ('O )(O *)O +Q Q ! Q Q Q Q Q Q Q Q Q *"'%
( Q *"'%
)( Q
+*" Q
%'" Q ! $&%#
Q "Q #Q $
Q %
Q & %
Q '
Q (Q )
Q *
Q +K
K
K*
O K J K
K 4+ 5K
K
KK4+
5K
KK454,5 - ,,-$ "-K4-J> " G J .,-6J$ 4/> " G " $ C405 .41> " G .C g destination
` g
format-string ` g format-args ` g port ` g t g
output-col ` g
flush-output? ` g format:case-conversion ` g
format:pos ` g format:arg-pos ` g format:error ` g format:error-save
` g format:read-proof ` g
format:fn-str ` g
format:fn-len
` g
format:fn-dot ` g format:fn-pos? ` g
format:en-str ` g
format:en-len ` g format:en-pos? ` g format:out-substr # ` g format:out-fill # ` g format:format-work # ` g format:out-obj-padded # ` g format:out-num-padded # ` g format:tabulate # ` g format:num->old-roman # ` g format:num->roman # ` g format:num->cardinal # ` g format:num->ordinal # ` g format:out-inf-nan # ` g format:out-fixed # ` g format:out-expon # ` g format:out-general # ` g format:out-dollar ! # ` g format:parse-float " # ` g
format:en-int # # ` g
format:en-set $ # ` g format:fn-zfill % # ` g format:fn-shiftleft & # ` g format:fn-round ' # ` g
format:fn-out ( # ` g
format:en-out ) # ` g format:fn-strip * # ` g format:fn-zlead + # ` g arg-pos , ` g arg-len - ` g str . I ` 0g filenamef ice-9/format.scm
&
' ' ( (
$ ( 2 +
3 0 = +
> 0 # G 1 Q +
X 2 b +
c 3 g 4
i 5
n 3 w 6 8 8 8 . 2 / * : : * : ? 8 9 8 ; : < < = > > / > $ @ % A @ B C D I D L E 0 `
g nameg format CRi $ !" h` > * :1 3 4 5$ 4> " G L @L @]4> " G L 6 6 g destination
@ g
format-string @ g args @ g deprecated-format-string-only
B ] g filenamef ice-9/format.scm
K
M M O P Q # O 6 R @ S B K C U G V
I W
N U ] X @
B ] C O i #i$ii6 g m
, g format
^ g filenamef ice-9/format.scm
. $ 1 $
&
J b I n \ t \
t
C6 PK ! (
ice-9/time.gonu [ GOOF----LE-8-2.0
] : 4 h ] g guile g define-module* g ice-9 g time g filenameS
f ice-9/time.scm g importsS g format
g exportsS g set-current-module g gc-run-time g times g display f 'clock utime stime cutime cstime gctime
f $~5,2F ~5,2F ~5,2F ~6,2F ~6,2F ~6,2F
g tms:clock g exact->inexact g internal-time-units-per-second g tms:utime g tms:stime g
tms:cutime g
tms:cstime !g identity "g time-proc #g make-syntax-transformer $# %# &g macro 'g $sc-dispatch (' )' *g _ +g any ,*+ -g
syntax->datum .- /- 0g
datum->syntax 10 20 3g @@ 43" 5g lambda 6g syntax-violation 76 86 9f -source expression failed to match any patternC 5 hX Z ]4
5 4 > " G ! h 7 ]145 45 4 5 45 45 4> " G 4 44545 5
44545 5 44545 5 44545 5
44545 5 44545 5 > " G C / g proc
g gc-start g tms-start g result g tms-end g gc-end # g proc ? [ g proc ] y g proc { g proc g proc g proc g filenamef ice-9/time.scm
"
# #
$ # % # & # ' # # & , * ,
/ , 8 - = - ? . B + E + L + ' S + V + X + ] / ` + c + j + ' q + t + v + { 0 ~ + + + ' + + + 1 + + + ' + + + 2 + + + ' + + + 3 + + + ' + + + - < g nameg time-proc C"R4%&),/245 h Z ] CR g exp
g filenamef ice-9/time.scm
6
7 C h b ] 4 5 L 4?6Z g args
g v g filenamef ice-9/time.scm 6
C89 h( ` ] 4 5 $ O @ 6 X g y
' g tmp ' g filenamef ice-9/time.scm
6
' C5RC R g m
, g filenamef ice-9/time.scm
"
W
C6 PK ! H7 7 rnrs/exceptions.gonu [ PK ! ̅
7 rnrs/lists.gonu [ PK ! U U @G rnrs/base.gonu [ PK ! k7 x rnrs/io/simple.gonu [ PK ! ; rnrs/io/ports.gonu [ PK ! Hz z
L rnrs/programs.gonu [ PK ! vߧ Q rnrs/mutable-pairs.gonu [ PK ! P W rnrs/control.gonu [ PK ! C ^ ^
] rnrs/files.gonu [ PK ! B 0M 0M #p rnrs/arithmetic/fixnums.gonu [ PK ! R`1; 1; rnrs/arithmetic/flonums.gonu [ PK ! 4ι rnrs/arithmetic/bitwise.gonu [ PK ! p@& & a
rnrs/conditions.gonu [ PK ! oW 0 rnrs/mutable-strings.gonu [ PK ! z^ 6 rnrs/syntax-case.gonu [ PK ! rĠ yC rnrs/sorting.gonu [ PK ! WDBDT DT XL rnrs/records/syntactic.gonu [ PK ! & rnrs/records/inspection.gonu [ PK ! j̨( ( µ rnrs/records/procedural.gonu [ PK ! ą
!
! rnrs/hashtables.gonu [ PK ! Eh h rnrs/unicode.gonu [ PK ! rnrs/r5rs.gonu [ PK ! b(2z$ $
rnrs/enums.gonu [ PK ! 8$s 8 rnrs/bytevectors.gonu [ PK ! lr G rnrs/eval.gonu [ PK ! x8 8
Q texinfo.gonu [ PK ! 4ӱP P sxml/simple.gonu [ PK ! @% % O sxml/fold.gonu [ PK ! V V u sxml/apply-templates.gonu [ PK ! C[d s s
g sxml/match.gonu [ PK ! sHA sxml/transform.gonu [ PK ! .+ .+
sxml/xpath.gonu [ PK ! Ӝ
2 2 GF sxml/ssax/input-parse.gonu [ PK ! oC x sxml/ssax.gonu [ PK ! M\
R web/server.gonu [ PK ! 3P `L web/response.gonu [ PK ! (YC C
web/uri.gonu [ PK ! ]
6 web/http.gonu [ PK ! W W
web/client.gonu [ PK ! r r f web/server/http.gonu [ PK ! {+ + web/request.gonu [ PK ! ˸S R
oop/goops.gonu [ PK ! ~A oop/goops/simple.gonu [ PK ! O= G( ( H oop/goops/dispatch.gonu [ PK ! #$ bq oop/goops/accessors.gonu [ PK ! t% % ]~ oop/goops/stklos.gonu [ PK ! nR6 6 Œ oop/goops/active-slot.gonu [ PK ! ? Fe e C oop/goops/save.gonu [ PK ! P q oop/goops/internal.gonu [ PK ! c u oop/goops/composite-slot.gonu [ PK ! Dg2 2 oop/goops/describe.gonu [ PK ! $Mͨ ¸ oop/goops/util.gonu [ PK ! +- 1 1 oop/goops/compile.gonu [ PK ! c/Qu Qu G texinfo/reflection.gonu [ PK ! /\.> .> < texinfo/html.gonu [ PK ! p)z"B "B J{ texinfo/plain-text.gonu [ PK ! WS& S& texinfo/docbook.gonu [ PK ! S7~? ~? F texinfo/serialize.gonu [ PK ! ӸP P $ texinfo/indexing.gonu [ PK ! TA A / texinfo/string-utils.gonu [ PK ! =M M qq system/xref.gonu [ PK ! br>*? *? 6 system/vm/trap-state.gonu [ PK ! ȣ< system/vm/frame.gonu [ PK ! WM M n system/vm/instruction.gonu [ PK ! ZkW system/vm/coverage.gonu [ PK ! iv@ @ B system/vm/trace.gonu [ PK ! 7*9Q9 9 system/vm/objcode.gonu [ PK ! j~Y= = A system/vm/program.gonu [ PK ! pt t system/vm/traps.gonu [ PK ! V/$ $ e system/vm/vm.gonu [ PK ! ,#& & ȏ system/vm/inspect.gonu [ PK ! :& & system/foreign.gonu [ PK ! eRJMD MD system/repl/server.gonu [ PK ! )?d' d' " system/repl/error-handling.gonu [ PK ! Cŵ 6J system/repl/command.gonu [ PK ! 'f, , 1 system/repl/repl.gonu [ PK ! <5^7 7 W+ system/repl/common.gonu [ PK ! <67y, y, b system/repl/debug.gonu [ PK ! LW: : t system/repl/coop-server.gonu [ PK ! Wl` ` T system/base/ck.gonu [ PK ! d system/base/types.gonu [ PK ! A5M system/base/target.gonu [ PK ! ^}D D # system/base/pmatch.gonu [ PK ! vfs s system/base/message.gonu [ PK ! ;m system/base/language.gonu [ PK ! 3L L system/base/syntax.gonu [ PK ! y ~ system/base/lalr.gonu [ PK ! N A8 A8 I system/base/compile.gonu [ PK ! ) ) scripts/frisk.gonu [ PK ! X)l scripts/read-text-outline.gonu [ PK ! "m#G #G & 0 scripts/snarf-check-and-output-texi.gonu [ PK ! XZSk) k) mx scripts/scan-api.gonu [ PK ! @F scripts/display-commentary.gonu [ PK ! g^d" " scripts/summarize-guile-TODO.gonu [ PK ! 0" " f scripts/api-diff.gonu [ PK ! scripts/generate-autoload.gonu [ PK ! tC*^& & scripts/autofrisk.gonu [ PK ! i ' scripts/read-rfc822.gonu [ PK ! C&C! ! ; scripts/help.gonu [ PK ! ;^A A ] scripts/doc-snarf.gonu [ PK ! BS{ ϟ scripts/punify.gonu [ PK ! NH scripts/use2dot.gonu [ PK ! p++ + scripts/snarf-guile-m4-docs.gonu [ PK ! :&Y Y scripts/lint.gonu [ PK ! T T scripts/list.gonu [ PK ! N`# # scripts/read-scheme-source.gonu [ PK ! 9| | scripts/disassemble.gonu [ PK ! PU' U' scripts/compile.gonu [ PK ! TNq q aH statprof.gonu [ PK ! aI9U 9U rnrs.gonu [ PK ! ܡ " language/scheme/compile-tree-il.gonu [ PK ! $ language/scheme/decompile-tree-il.gonu [ PK ! `U ! language/scheme/spec.gonu [ PK ! I2 #! language/elisp/bindings.gonu [ PK ! m{ҳJ0 J0 m5! language/elisp/lexer.gonu [ PK ! L ͈ ͈ ! e! language/elisp/compile-tree-il.gonu [ PK ! ! language/elisp/runtime.gonu [ PK ! $vd= = A " language/elisp/spec.gonu [ PK ! Q " language/elisp/parser.gonu [ PK ! "Û+% +% -" language/elisp/runtime/macros.gonu [ PK ! ̝ $ mS" language/elisp/runtime/value-slot.gonu [ PK ! P5] 5] U" language/elisp/runtime/subrs.gonu [ PK ! _ ' ." language/elisp/runtime/function-slot.gonu [ PK ! SN " language/value/spec.gonu [ PK ! j' ' ' " language/assembly/decompile-bytecode.gonu [ PK ! l& l& % f" language/assembly/compile-bytecode.gonu [ PK ! ]Ư '# language/assembly/spec.gonu [ PK ! B.'G+ + 1# language/assembly/disassemble.gonu [ PK ! b \
% BD# language/brainfuck/compile-tree-il.gonu [ PK ! $ rR# language/brainfuck/compile-scheme.gonu [ PK ! tYK \# language/brainfuck/parse.gonu [ PK ! q d# language/brainfuck/spec.gonu [ PK ! H& & i# language/assembly.gonu [ PK ! b(J
J
# language/objcode/spec.gonu [ PK ! BƴS S ! r# language/glil/compile-assembly.gonu [ PK ! @V V @$ language/glil/spec.gonu [ PK ! xڼq& q& F$ language/tree-il.gonu [ PK ! +-H H em% language/glil.gonu [ PK ! Ts s % language/bytecode/spec.gonu [ PK ! &ҬXN N q% language/ecmascript/base.gonu [ PK ! 4 & & language/ecmascript/compile-tree-il.gonu [ PK ! S]4 4 & language/ecmascript/parse.gonu [ PK ! `cY Y m) language/ecmascript/tokenize.gonu [ PK ! ?q q ]) language/ecmascript/function.gonu [ PK ! Bpa% a% s) language/ecmascript/array.gonu [ PK ! 7QZ Z ,) language/ecmascript/spec.gonu [ PK ! [? ? ѝ) language/ecmascript/impl.gonu [ PK ! z\ؼ ؼ ) language/tree-il/peval.gonu [ PK ! G+_M _M , language/tree-il/fix-letrec.gonu [ PK ! 1 , language/tree-il/optimize.gonu [ PK ! AG , language/tree-il/analyze.gonu [ PK ! +L
/ language/tree-il/canonicalize.gonu [ PK ! Wm / language/tree-il/compile-glil.gonu [ PK ! ~c% 0 language/tree-il/effects.gonu [ PK ! Ku~ 20 language/tree-il/spec.gonu [ PK ! %; ; 0 language/tree-il/debug.gonu [ PK ! /q$ $ 1 language/tree-il/primitives.gonu [ PK ! h f1 language/tree-il/inline.gonu [ PK ! ɼ1 language/tree-il/cse.gonu [ PK ! ;T y y l2 srfi/srfi-67.gonu [ PK ! ϻ {3 srfi/srfi-14.gonu [ PK ! 3Ik k Ņ3 srfi/srfi-8.gonu [ PK ! 'vs s n3 srfi/srfi-9.gonu [ PK ! cgS2 j3 srfi/srfi-17.gonu [ PK ! bW 4 srfi/srfi-19.gonu [ PK ! !| | %6 srfi/srfi-88.gonu [ PK ! Cm +6 srfi/srfi-16.gonu [ PK ! Ge -6 srfi/srfi-26.gonu [ PK ! "Y Y cG6 srfi/srfi-4.gonu [ PK ! =WcA cA 6 srfi/srfi-18.gonu [ PK ! *YVu Vu V6 srfi/srfi-37.gonu [ PK ! Ρ W7 srfi/srfi-34.gonu [ PK ! Zw w k7 srfi/srfi-6.gonu [ PK ! c
8F F jp7 srfi/srfi-35.gonu [ PK ! Ta)J )J 7 srfi/srfi-27.gonu [ PK ! G P P 8 srfi/srfi-60.gonu [ PK ! :4 4
8 srfi/srfi-4/gnu.gonu [ PK ! i:!d d ?8 srfi/srfi-11.gonu [ PK ! f 9]8 srfi/srfi-1.gonu [ PK ! qS S 9 srfi/srfi-10.gonu [ PK ! (^A
9 srfi/srfi-28.gonu [ PK ! tv.
9 srfi/srfi-38.gonu [ PK ! n<z z -9 srfi/srfi-13.gonu [ PK ! 99 srfi/srfi-69.gonu [ PK ! WɈ 9 srfi/srfi-98.gonu [ PK ! K\4 4 9 srfi/srfi-9/gnu.gonu [ PK !
n n *: srfi/srfi-41.gonu [ PK ! &> > ; srfi/srfi-43.gonu [ PK ! a < srfi/srfi-31.gonu [ PK ! v:D D "< srfi/srfi-39.gonu [ PK ! X Rzp p < srfi/srfi-45.gonu [ PK ! 6 h T?= srfi/srfi-64.gonu [ PK ! jW> W> ?? srfi/srfi-111.gonu [ PK ! -@ srfi/srfi-42.gonu [ PK ! l ذ{ { A srfi/srfi-2.gonu [ PK ! }HU U A ice-9/popen.gonu [ PK ! j> B ice-9/regex.gonu [ PK ! G 6B ice-9/futures.gonu [ PK ! `? B ice-9/curried-definitions.gonu [ PK ! DA *B ice-9/streams.gonu [ PK ! G - - % C ice-9/threads.gonu [ PK ! Y DKC ice-9/safe-r5rs.gonu [ PK ! ًX ^C ice-9/rdelim.gonu [ PK ! >, }C ice-9/rw.gonu [ PK ! yz z 'C ice-9/binary-ports.gonu [ PK ! nr r C ice-9/occam-channel.gonu [ PK ! b< =C ice-9/mapping.gonu [ PK ! }{G G D ice-9/psyntax-pp.gonu [ PK ! ;G G ice-9/hcons.gonu [ PK ! TΖk k
!G ice-9/safe.gonu [ PK ! Raa a ]&G ice-9/weak-vector.gonu [ PK ! 'L
*G ice-9/runq.gonu [ PK ! ir\) ) DG ice-9/gap-buffer.gonu [ PK ! ;Of= = nG ice-9/readline.gonu [ PK ! l}N> N> G ice-9/vlist.gonu [ PK ! wO nH ice-9/control.gonu [ PK ! 1߀^\ ^\ e I ice-9/pretty-print.gonu [ PK ! ub hI ice-9/local-eval.gonu [ PK ! L}0 LJ ice-9/boot-9.gonu [ PK ! D[ p
N ice-9/expect.gonu [ PK ! ީ B N ice-9/top-repl.gonu [ PK ! V쇸H H .N ice-9/command-line.gonu [ PK ! >
wN ice-9/q.gonu [ PK ! N ice-9/receive.gonu [ PK ! H H N ice-9/match.gonu [ PK ! ew( ( O ice-9/syncase.gonu [ PK ! \! ! O ice-9/string-fun.gonu [ PK ! wfIm m O ice-9/iconv.gonu [ PK ! ~ P ice-9/stack-catch.gonu [ PK ! ?;V P ice-9/getopt-long.gonu [ PK ! 21- -
P ice-9/r4rs.gonu [ PK ! SD1 D1 P ice-9/common-list.gonu [ PK ! B16 2 2 \+Q ice-9/ls.gonu [ PK ! ]m) 6Q ice-9/posix.gonu [ PK ! o SQ ice-9/debug.gonu [ PK ! _m
MVQ ice-9/history.gonu [ PK ! \$ aQ ice-9/buffered-input.gonu [ PK ! v C8 8 ksQ ice-9/deprecated.gonu [ PK ! y 6R ice-9/channel.gonu [ PK ! l KR ice-9/hash-table.gonu [ PK ! Y ۞" " [R ice-9/documentation.gonu [ PK ! !`
sR ice-9/null.gonu [ PK ! k :vR ice-9/unicode.gonu [ PK ! (^ yR ice-9/poe.gonu [ PK ! E=M5
gR ice-9/r5rs.gonu [ PK ! -, , ER ice-9/calling.gonu [ PK ! Vl] R ice-9/serialize.gonu [ PK ! ˃ ˃
R ice-9/poll.gonu [ PK ! eV V NS ice-9/and-let-star.gonu [ PK ! ); x x BkS ice-9/save-stack.gonu [ PK ! u@MM MM nS ice-9/optargs.gonu [ PK ! 5ȹ) ) S ice-9/scm-style-repl.gonu [ PK ! #a a S ice-9/session.gonu [ PK ! Q<# # jHT ice-9/eval-string.gonu [ PK ! m[O
WT ice-9/list.gonu [ PK ! E# # ]T ice-9/networking.gonu [ PK ! ~ƀS S
T ice-9/i18n.gonu [ PK ! Z5 5
T ice-9/eval.gonu [ PK ! F[
U ice-9/lineio.gonu [ PK ! eYR R U ice-9/ftw.gonu [ PK ! lNR R
hU ice-9/slib.gonu [ PK ! د_e(4 (4 \lU ice-9/format.gonu [ PK ! (
àV ice-9/time.gonu [ PK U V