8a78f45e25
* module/mes/psyntax.pp: Rename from module/mes/psyntax-pp.mes. * module/mes/psyntax.mes: Update. * AUTHORS: Update.
9630 lines
589 KiB
ObjectPascal
9630 lines
589 KiB
ObjectPascal
(letrec ((syntmp-lambda-var-list-167
|
|
(lambda (syntmp-vars-552)
|
|
(let syntmp-lvl-553 ((syntmp-vars-554 syntmp-vars-552)
|
|
(syntmp-ls-555 (quote ()))
|
|
(syntmp-w-556 (quote (()))))
|
|
(cond ((pair? syntmp-vars-554)
|
|
(syntmp-lvl-553
|
|
(cdr syntmp-vars-554)
|
|
(cons (syntmp-wrap-146
|
|
(car syntmp-vars-554)
|
|
syntmp-w-556)
|
|
syntmp-ls-555)
|
|
syntmp-w-556))
|
|
((syntmp-id?-118 syntmp-vars-554)
|
|
(cons (syntmp-wrap-146 syntmp-vars-554 syntmp-w-556)
|
|
syntmp-ls-555))
|
|
((null? syntmp-vars-554) syntmp-ls-555)
|
|
((syntmp-syntax-object?-104 syntmp-vars-554)
|
|
(syntmp-lvl-553
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-vars-554)
|
|
syntmp-ls-555
|
|
(syntmp-join-wraps-137
|
|
syntmp-w-556
|
|
(syntmp-syntax-object-wrap-106 syntmp-vars-554))))
|
|
((syntmp-annotation?-92 syntmp-vars-554)
|
|
(syntmp-lvl-553
|
|
(annotation-expression syntmp-vars-554)
|
|
syntmp-ls-555
|
|
syntmp-w-556))
|
|
(else (cons syntmp-vars-554 syntmp-ls-555))))))
|
|
(syntmp-gen-var-166
|
|
(lambda (syntmp-id-557)
|
|
(let ((syntmp-id-558
|
|
(if (syntmp-syntax-object?-104 syntmp-id-557)
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-id-557)
|
|
syntmp-id-557)))
|
|
(if (syntmp-annotation?-92 syntmp-id-558)
|
|
(gensym
|
|
(symbol->string
|
|
(annotation-expression syntmp-id-558)))
|
|
(gensym (symbol->string syntmp-id-558))))))
|
|
(syntmp-strip-165
|
|
(lambda (syntmp-x-559 syntmp-w-560)
|
|
(if (memq 'top
|
|
(syntmp-wrap-marks-121 syntmp-w-560))
|
|
(if (or (syntmp-annotation?-92 syntmp-x-559)
|
|
(and (pair? syntmp-x-559)
|
|
(syntmp-annotation?-92 (car syntmp-x-559))))
|
|
(syntmp-strip-annotation-164 syntmp-x-559 #f)
|
|
syntmp-x-559)
|
|
(let syntmp-f-561 ((syntmp-x-562 syntmp-x-559))
|
|
(cond ((syntmp-syntax-object?-104 syntmp-x-562)
|
|
(syntmp-strip-165
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-562)
|
|
(syntmp-syntax-object-wrap-106 syntmp-x-562)))
|
|
((pair? syntmp-x-562)
|
|
(let ((syntmp-a-563 (syntmp-f-561 (car syntmp-x-562)))
|
|
(syntmp-d-564 (syntmp-f-561 (cdr syntmp-x-562))))
|
|
(if (and (eq? syntmp-a-563 (car syntmp-x-562))
|
|
(eq? syntmp-d-564 (cdr syntmp-x-562)))
|
|
syntmp-x-562
|
|
(cons syntmp-a-563 syntmp-d-564))))
|
|
((vector? syntmp-x-562)
|
|
(let ((syntmp-old-565 (vector->list syntmp-x-562)))
|
|
(let ((syntmp-new-566
|
|
(map syntmp-f-561 syntmp-old-565)))
|
|
(if (andmap eq? syntmp-old-565 syntmp-new-566)
|
|
syntmp-x-562
|
|
(list->vector syntmp-new-566)))))
|
|
(else syntmp-x-562))))))
|
|
(syntmp-strip-annotation-164
|
|
(lambda (syntmp-x-567 syntmp-parent-568)
|
|
(cond ((pair? syntmp-x-567)
|
|
(let ((syntmp-new-569 (cons #f #f)))
|
|
(begin
|
|
(when syntmp-parent-568
|
|
(set-annotation-stripped!
|
|
syntmp-parent-568
|
|
syntmp-new-569))
|
|
(set-car!
|
|
syntmp-new-569
|
|
(syntmp-strip-annotation-164
|
|
(car syntmp-x-567)
|
|
#f))
|
|
(set-cdr!
|
|
syntmp-new-569
|
|
(syntmp-strip-annotation-164
|
|
(cdr syntmp-x-567)
|
|
#f))
|
|
syntmp-new-569)))
|
|
((syntmp-annotation?-92 syntmp-x-567)
|
|
(or (annotation-stripped syntmp-x-567)
|
|
(syntmp-strip-annotation-164
|
|
(annotation-expression syntmp-x-567)
|
|
syntmp-x-567)))
|
|
((vector? syntmp-x-567)
|
|
(let ((syntmp-new-570
|
|
(make-vector (vector-length syntmp-x-567))))
|
|
(begin
|
|
(when syntmp-parent-568
|
|
(set-annotation-stripped!
|
|
syntmp-parent-568
|
|
syntmp-new-570))
|
|
(let syntmp-loop-571 ((syntmp-i-572
|
|
(- (vector-length syntmp-x-567)
|
|
1)))
|
|
(unless
|
|
(syntmp-fx<-91 syntmp-i-572 0)
|
|
(vector-set!
|
|
syntmp-new-570
|
|
syntmp-i-572
|
|
(syntmp-strip-annotation-164
|
|
(vector-ref syntmp-x-567 syntmp-i-572)
|
|
#f))
|
|
(syntmp-loop-571 (syntmp-fx--89 syntmp-i-572 1))))
|
|
syntmp-new-570)))
|
|
(else syntmp-x-567))))
|
|
(syntmp-ellipsis?-163
|
|
(lambda (syntmp-e-573 syntmp-r-574)
|
|
(and (syntmp-nonsymbol-id?-117 syntmp-e-573)
|
|
(let ((syntmp-id-575
|
|
(syntmp-make-syntax-object-103
|
|
'$sc-ellipsis
|
|
(syntmp-syntax-object-wrap-106 syntmp-e-573))))
|
|
(let ((syntmp-n-576
|
|
(syntmp-id-var-name-140
|
|
syntmp-id-575
|
|
'(()))))
|
|
(let ((syntmp-b-577
|
|
(syntmp-lookup-115 syntmp-n-576 syntmp-r-574)))
|
|
(if (eq? (syntmp-binding-type-110 syntmp-b-577)
|
|
'ellipsis)
|
|
(syntmp-bound-id=?-142
|
|
syntmp-e-573
|
|
(syntmp-binding-value-111 syntmp-b-577))
|
|
(syntmp-free-id=?-141
|
|
syntmp-e-573
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(b) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(n) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(id) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e r) #((top) (top)) #("i" "i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i"))))))))))))
|
|
(syntmp-chi-void-162
|
|
(lambda () (list (quote void))))
|
|
(syntmp-eval-local-transformer-161
|
|
(lambda (syntmp-expanded-578)
|
|
(let ((syntmp-p-579
|
|
(syntmp-local-eval-hook-94 syntmp-expanded-578)))
|
|
(if (procedure? syntmp-p-579)
|
|
syntmp-p-579
|
|
(syntax-error
|
|
syntmp-p-579
|
|
"nonprocedure transformer")))))
|
|
(syntmp-chi-local-syntax-160
|
|
(lambda (syntmp-rec?-580
|
|
syntmp-e-581
|
|
syntmp-r-582
|
|
syntmp-w-583
|
|
syntmp-s-584
|
|
syntmp-k-585)
|
|
((lambda (syntmp-tmp-586)
|
|
((lambda (syntmp-tmp-587)
|
|
(if syntmp-tmp-587
|
|
(apply (lambda (syntmp-_-588
|
|
syntmp-id-589
|
|
syntmp-val-590
|
|
syntmp-e1-591
|
|
syntmp-e2-592)
|
|
(let ((syntmp-ids-593 syntmp-id-589))
|
|
(if (not (syntmp-valid-bound-ids?-143
|
|
syntmp-ids-593))
|
|
(syntax-error
|
|
syntmp-e-581
|
|
"duplicate bound keyword in")
|
|
(let ((syntmp-labels-595
|
|
(syntmp-gen-labels-124
|
|
syntmp-ids-593)))
|
|
(let ((syntmp-new-w-596
|
|
(syntmp-make-binding-wrap-135
|
|
syntmp-ids-593
|
|
syntmp-labels-595
|
|
syntmp-w-583)))
|
|
(syntmp-k-585
|
|
(cons syntmp-e1-591 syntmp-e2-592)
|
|
(syntmp-extend-env-112
|
|
syntmp-labels-595
|
|
(let ((syntmp-w-598
|
|
(if syntmp-rec?-580
|
|
syntmp-new-w-596
|
|
syntmp-w-583))
|
|
(syntmp-trans-r-599
|
|
(syntmp-macros-only-env-114
|
|
syntmp-r-582)))
|
|
(map (lambda (syntmp-x-600)
|
|
(cons 'macro
|
|
(syntmp-eval-local-transformer-161
|
|
(syntmp-chi-154
|
|
syntmp-x-600
|
|
syntmp-trans-r-599
|
|
syntmp-w-598))))
|
|
syntmp-val-590))
|
|
syntmp-r-582)
|
|
syntmp-new-w-596
|
|
syntmp-s-584))))))
|
|
syntmp-tmp-587)
|
|
((lambda (syntmp-_-602)
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-581
|
|
syntmp-w-583
|
|
syntmp-s-584)))
|
|
syntmp-tmp-586)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-586
|
|
'(any #(each (any any)) any . each-any))))
|
|
syntmp-e-581)))
|
|
(syntmp-chi-lambda-clause-159
|
|
(lambda (syntmp-e-603
|
|
syntmp-c-604
|
|
syntmp-r-605
|
|
syntmp-w-606
|
|
syntmp-k-607)
|
|
((lambda (syntmp-tmp-608)
|
|
((lambda (syntmp-tmp-609)
|
|
(if syntmp-tmp-609
|
|
(apply (lambda (syntmp-id-610 syntmp-e1-611 syntmp-e2-612)
|
|
(let ((syntmp-ids-613 syntmp-id-610))
|
|
(if (not (syntmp-valid-bound-ids?-143
|
|
syntmp-ids-613))
|
|
(syntax-error
|
|
syntmp-e-603
|
|
"invalid parameter list in")
|
|
(let ((syntmp-labels-615
|
|
(syntmp-gen-labels-124
|
|
syntmp-ids-613))
|
|
(syntmp-new-vars-616
|
|
(map syntmp-gen-var-166
|
|
syntmp-ids-613)))
|
|
(syntmp-k-607
|
|
syntmp-new-vars-616
|
|
(syntmp-chi-body-158
|
|
(cons syntmp-e1-611 syntmp-e2-612)
|
|
syntmp-e-603
|
|
(syntmp-extend-var-env-113
|
|
syntmp-labels-615
|
|
syntmp-new-vars-616
|
|
syntmp-r-605)
|
|
(syntmp-make-binding-wrap-135
|
|
syntmp-ids-613
|
|
syntmp-labels-615
|
|
syntmp-w-606)))))))
|
|
syntmp-tmp-609)
|
|
((lambda (syntmp-tmp-618)
|
|
(if syntmp-tmp-618
|
|
(apply (lambda (syntmp-ids-619
|
|
syntmp-e1-620
|
|
syntmp-e2-621)
|
|
(let ((syntmp-old-ids-622
|
|
(syntmp-lambda-var-list-167
|
|
syntmp-ids-619)))
|
|
(if (not (syntmp-valid-bound-ids?-143
|
|
syntmp-old-ids-622))
|
|
(syntax-error
|
|
syntmp-e-603
|
|
"invalid parameter list in")
|
|
(let ((syntmp-labels-623
|
|
(syntmp-gen-labels-124
|
|
syntmp-old-ids-622))
|
|
(syntmp-new-vars-624
|
|
(map syntmp-gen-var-166
|
|
syntmp-old-ids-622)))
|
|
(syntmp-k-607
|
|
(let syntmp-f-625 ((syntmp-ls1-626
|
|
(cdr syntmp-new-vars-624))
|
|
(syntmp-ls2-627
|
|
(car syntmp-new-vars-624)))
|
|
(if (null? syntmp-ls1-626)
|
|
syntmp-ls2-627
|
|
(syntmp-f-625
|
|
(cdr syntmp-ls1-626)
|
|
(cons (car syntmp-ls1-626)
|
|
syntmp-ls2-627))))
|
|
(syntmp-chi-body-158
|
|
(cons syntmp-e1-620 syntmp-e2-621)
|
|
syntmp-e-603
|
|
(syntmp-extend-var-env-113
|
|
syntmp-labels-623
|
|
syntmp-new-vars-624
|
|
syntmp-r-605)
|
|
(syntmp-make-binding-wrap-135
|
|
syntmp-old-ids-622
|
|
syntmp-labels-623
|
|
syntmp-w-606)))))))
|
|
syntmp-tmp-618)
|
|
((lambda (syntmp-_-629)
|
|
(syntax-error syntmp-e-603))
|
|
syntmp-tmp-608)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-608
|
|
'(any any . each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-608
|
|
'(each-any any . each-any))))
|
|
syntmp-c-604)))
|
|
(syntmp-chi-body-158
|
|
(lambda (syntmp-body-630
|
|
syntmp-outer-form-631
|
|
syntmp-r-632
|
|
syntmp-w-633)
|
|
(let ((syntmp-r-634
|
|
(cons '("placeholder" placeholder)
|
|
syntmp-r-632)))
|
|
(let ((syntmp-ribcage-635
|
|
(syntmp-make-ribcage-125
|
|
'()
|
|
'()
|
|
'())))
|
|
(let ((syntmp-w-636
|
|
(syntmp-make-wrap-120
|
|
(syntmp-wrap-marks-121 syntmp-w-633)
|
|
(cons syntmp-ribcage-635
|
|
(syntmp-wrap-subst-122 syntmp-w-633)))))
|
|
(let syntmp-parse-637 ((syntmp-body-638
|
|
(map (lambda (syntmp-x-644)
|
|
(cons syntmp-r-634
|
|
(syntmp-wrap-146
|
|
syntmp-x-644
|
|
syntmp-w-636)))
|
|
syntmp-body-630))
|
|
(syntmp-ids-639 (quote ()))
|
|
(syntmp-labels-640 (quote ()))
|
|
(syntmp-vars-641 (quote ()))
|
|
(syntmp-vals-642 (quote ()))
|
|
(syntmp-bindings-643 (quote ())))
|
|
(if (null? syntmp-body-638)
|
|
(syntax-error
|
|
syntmp-outer-form-631
|
|
"no expressions in body")
|
|
(let ((syntmp-e-645 (cdar syntmp-body-638))
|
|
(syntmp-er-646 (caar syntmp-body-638)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-syntax-type-152
|
|
syntmp-e-645
|
|
syntmp-er-646
|
|
'(())
|
|
#f
|
|
syntmp-ribcage-635))
|
|
(lambda (syntmp-type-647
|
|
syntmp-value-648
|
|
syntmp-e-649
|
|
syntmp-w-650
|
|
syntmp-s-651)
|
|
(let ((syntmp-t-652 syntmp-type-647))
|
|
(if (memv syntmp-t-652 (quote (define-form)))
|
|
(let ((syntmp-id-653
|
|
(syntmp-wrap-146
|
|
syntmp-value-648
|
|
syntmp-w-650))
|
|
(syntmp-label-654
|
|
(syntmp-gen-label-123)))
|
|
(let ((syntmp-var-655
|
|
(syntmp-gen-var-166 syntmp-id-653)))
|
|
(begin
|
|
(syntmp-extend-ribcage!-134
|
|
syntmp-ribcage-635
|
|
syntmp-id-653
|
|
syntmp-label-654)
|
|
(syntmp-parse-637
|
|
(cdr syntmp-body-638)
|
|
(cons syntmp-id-653 syntmp-ids-639)
|
|
(cons syntmp-label-654
|
|
syntmp-labels-640)
|
|
(cons syntmp-var-655 syntmp-vars-641)
|
|
(cons (cons syntmp-er-646
|
|
(syntmp-wrap-146
|
|
syntmp-e-649
|
|
syntmp-w-650))
|
|
syntmp-vals-642)
|
|
(cons (cons 'lexical
|
|
syntmp-var-655)
|
|
syntmp-bindings-643)))))
|
|
(if (memv syntmp-t-652
|
|
'(define-syntax-form))
|
|
(let ((syntmp-id-656
|
|
(syntmp-wrap-146
|
|
syntmp-value-648
|
|
syntmp-w-650))
|
|
(syntmp-label-657
|
|
(syntmp-gen-label-123)))
|
|
(begin
|
|
(syntmp-extend-ribcage!-134
|
|
syntmp-ribcage-635
|
|
syntmp-id-656
|
|
syntmp-label-657)
|
|
(syntmp-parse-637
|
|
(cdr syntmp-body-638)
|
|
(cons syntmp-id-656 syntmp-ids-639)
|
|
(cons syntmp-label-657
|
|
syntmp-labels-640)
|
|
syntmp-vars-641
|
|
syntmp-vals-642
|
|
(cons (cons 'macro
|
|
(cons syntmp-er-646
|
|
(syntmp-wrap-146
|
|
syntmp-e-649
|
|
syntmp-w-650)))
|
|
syntmp-bindings-643))))
|
|
(if (memv syntmp-t-652 (quote (begin-form)))
|
|
((lambda (syntmp-tmp-658)
|
|
((lambda (syntmp-tmp-659)
|
|
(if syntmp-tmp-659
|
|
(apply (lambda (syntmp-_-660
|
|
syntmp-e1-661)
|
|
(syntmp-parse-637
|
|
(let syntmp-f-662 ((syntmp-forms-663
|
|
syntmp-e1-661))
|
|
(if (null? syntmp-forms-663)
|
|
(cdr syntmp-body-638)
|
|
(cons (cons syntmp-er-646
|
|
(syntmp-wrap-146
|
|
(car syntmp-forms-663)
|
|
syntmp-w-650))
|
|
(syntmp-f-662
|
|
(cdr syntmp-forms-663)))))
|
|
syntmp-ids-639
|
|
syntmp-labels-640
|
|
syntmp-vars-641
|
|
syntmp-vals-642
|
|
syntmp-bindings-643))
|
|
syntmp-tmp-659)
|
|
(syntax-error syntmp-tmp-658)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-658
|
|
'(any . each-any))))
|
|
syntmp-e-649)
|
|
(if (memv syntmp-t-652
|
|
'(local-syntax-form))
|
|
(syntmp-chi-local-syntax-160
|
|
syntmp-value-648
|
|
syntmp-e-649
|
|
syntmp-er-646
|
|
syntmp-w-650
|
|
syntmp-s-651
|
|
(lambda (syntmp-forms-665
|
|
syntmp-er-666
|
|
syntmp-w-667
|
|
syntmp-s-668)
|
|
(syntmp-parse-637
|
|
(let syntmp-f-669 ((syntmp-forms-670
|
|
syntmp-forms-665))
|
|
(if (null? syntmp-forms-670)
|
|
(cdr syntmp-body-638)
|
|
(cons (cons syntmp-er-666
|
|
(syntmp-wrap-146
|
|
(car syntmp-forms-670)
|
|
syntmp-w-667))
|
|
(syntmp-f-669
|
|
(cdr syntmp-forms-670)))))
|
|
syntmp-ids-639
|
|
syntmp-labels-640
|
|
syntmp-vars-641
|
|
syntmp-vals-642
|
|
syntmp-bindings-643)))
|
|
(if (null? syntmp-ids-639)
|
|
(syntmp-build-sequence-99
|
|
#f
|
|
(map (lambda (syntmp-x-671)
|
|
(syntmp-chi-154
|
|
(cdr syntmp-x-671)
|
|
(car syntmp-x-671)
|
|
'(())))
|
|
(cons (cons syntmp-er-646
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-649
|
|
syntmp-w-650
|
|
syntmp-s-651))
|
|
(cdr syntmp-body-638))))
|
|
(begin
|
|
(if (not (syntmp-valid-bound-ids?-143
|
|
syntmp-ids-639))
|
|
(syntax-error
|
|
syntmp-outer-form-631
|
|
"invalid or duplicate identifier in definition"))
|
|
(let syntmp-loop-672 ((syntmp-bs-673
|
|
syntmp-bindings-643)
|
|
(syntmp-er-cache-674
|
|
#f)
|
|
(syntmp-r-cache-675
|
|
#f))
|
|
(if (not (null? syntmp-bs-673))
|
|
(let ((syntmp-b-676
|
|
(car syntmp-bs-673)))
|
|
(if (eq? (car syntmp-b-676)
|
|
'macro)
|
|
(let ((syntmp-er-677
|
|
(cadr syntmp-b-676)))
|
|
(let ((syntmp-r-cache-678
|
|
(if (eq? syntmp-er-677
|
|
syntmp-er-cache-674)
|
|
syntmp-r-cache-675
|
|
(syntmp-macros-only-env-114
|
|
syntmp-er-677))))
|
|
(begin
|
|
(set-cdr!
|
|
syntmp-b-676
|
|
(syntmp-eval-local-transformer-161
|
|
(syntmp-chi-154
|
|
(cddr syntmp-b-676)
|
|
syntmp-r-cache-678
|
|
'(()))))
|
|
(syntmp-loop-672
|
|
(cdr syntmp-bs-673)
|
|
syntmp-er-677
|
|
syntmp-r-cache-678))))
|
|
(syntmp-loop-672
|
|
(cdr syntmp-bs-673)
|
|
syntmp-er-cache-674
|
|
syntmp-r-cache-675)))))
|
|
(set-cdr!
|
|
syntmp-r-634
|
|
(syntmp-extend-env-112
|
|
syntmp-labels-640
|
|
syntmp-bindings-643
|
|
(cdr syntmp-r-634)))
|
|
(syntmp-build-letrec-102
|
|
#f
|
|
syntmp-vars-641
|
|
(map (lambda (syntmp-x-679)
|
|
(syntmp-chi-154
|
|
(cdr syntmp-x-679)
|
|
(car syntmp-x-679)
|
|
'(())))
|
|
syntmp-vals-642)
|
|
(syntmp-build-sequence-99
|
|
#f
|
|
(map (lambda (syntmp-x-680)
|
|
(syntmp-chi-154
|
|
(cdr syntmp-x-680)
|
|
(car syntmp-x-680)
|
|
'(())))
|
|
(cons (cons syntmp-er-646
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-649
|
|
syntmp-w-650
|
|
syntmp-s-651))
|
|
(cdr syntmp-body-638))))))))))))))))))))))
|
|
(syntmp-chi-macro-157
|
|
(lambda (syntmp-p-681
|
|
syntmp-e-682
|
|
syntmp-r-683
|
|
syntmp-w-684
|
|
syntmp-rib-685)
|
|
(letrec ((syntmp-rebuild-macro-output-686
|
|
(lambda (syntmp-x-687 syntmp-m-688)
|
|
(cond ((pair? syntmp-x-687)
|
|
(cons (syntmp-rebuild-macro-output-686
|
|
(car syntmp-x-687)
|
|
syntmp-m-688)
|
|
(syntmp-rebuild-macro-output-686
|
|
(cdr syntmp-x-687)
|
|
syntmp-m-688)))
|
|
((syntmp-syntax-object?-104 syntmp-x-687)
|
|
(let ((syntmp-w-689
|
|
(syntmp-syntax-object-wrap-106
|
|
syntmp-x-687)))
|
|
(let ((syntmp-ms-690
|
|
(syntmp-wrap-marks-121
|
|
syntmp-w-689))
|
|
(syntmp-s-691
|
|
(syntmp-wrap-subst-122
|
|
syntmp-w-689)))
|
|
(syntmp-make-syntax-object-103
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-687)
|
|
(if (and (pair? syntmp-ms-690)
|
|
(eq? (car syntmp-ms-690) #f))
|
|
(syntmp-make-wrap-120
|
|
(cdr syntmp-ms-690)
|
|
(if syntmp-rib-685
|
|
(cons syntmp-rib-685
|
|
(cdr syntmp-s-691))
|
|
(cdr syntmp-s-691)))
|
|
(syntmp-make-wrap-120
|
|
(cons syntmp-m-688 syntmp-ms-690)
|
|
(if syntmp-rib-685
|
|
(cons syntmp-rib-685
|
|
(cons 'shift
|
|
syntmp-s-691))
|
|
(cons 'shift
|
|
syntmp-s-691))))))))
|
|
((vector? syntmp-x-687)
|
|
(let ((syntmp-n-692
|
|
(vector-length syntmp-x-687)))
|
|
(let ((syntmp-v-693
|
|
(make-vector syntmp-n-692)))
|
|
(let syntmp-doloop-694 ((syntmp-i-695 0))
|
|
(if (syntmp-fx=-90
|
|
syntmp-i-695
|
|
syntmp-n-692)
|
|
syntmp-v-693
|
|
(begin
|
|
(vector-set!
|
|
syntmp-v-693
|
|
syntmp-i-695
|
|
(syntmp-rebuild-macro-output-686
|
|
(vector-ref
|
|
syntmp-x-687
|
|
syntmp-i-695)
|
|
syntmp-m-688))
|
|
(syntmp-doloop-694
|
|
(syntmp-fx+-88
|
|
syntmp-i-695
|
|
1))))))))
|
|
((symbol? syntmp-x-687)
|
|
(syntax-error
|
|
syntmp-x-687
|
|
"encountered raw symbol in macro output"))
|
|
(else syntmp-x-687)))))
|
|
(syntmp-rebuild-macro-output-686
|
|
(syntmp-p-681
|
|
(syntmp-wrap-146
|
|
syntmp-e-682
|
|
(syntmp-anti-mark-133 syntmp-w-684)))
|
|
(string #\m)))))
|
|
(syntmp-chi-application-156
|
|
(lambda (syntmp-x-696
|
|
syntmp-e-697
|
|
syntmp-r-698
|
|
syntmp-w-699
|
|
syntmp-s-700)
|
|
((lambda (syntmp-tmp-701)
|
|
((lambda (syntmp-tmp-702)
|
|
(if syntmp-tmp-702
|
|
(apply (lambda (syntmp-e0-703 syntmp-e1-704)
|
|
(cons syntmp-x-696
|
|
(map (lambda (syntmp-e-705)
|
|
(syntmp-chi-154
|
|
syntmp-e-705
|
|
syntmp-r-698
|
|
syntmp-w-699))
|
|
syntmp-e1-704)))
|
|
syntmp-tmp-702)
|
|
(syntax-error syntmp-tmp-701)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-701
|
|
'(any . each-any))))
|
|
syntmp-e-697)))
|
|
(syntmp-chi-expr-155
|
|
(lambda (syntmp-type-707
|
|
syntmp-value-708
|
|
syntmp-e-709
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
(let ((syntmp-t-713 syntmp-type-707))
|
|
(if (memv syntmp-t-713 (quote (lexical)))
|
|
syntmp-value-708
|
|
(if (memv syntmp-t-713 (quote (core external-macro)))
|
|
(syntmp-value-708
|
|
syntmp-e-709
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
(if (memv syntmp-t-713 (quote (lexical-call)))
|
|
(syntmp-chi-application-156
|
|
syntmp-value-708
|
|
syntmp-e-709
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
(if (memv syntmp-t-713 (quote (global-call)))
|
|
(syntmp-chi-application-156
|
|
syntmp-value-708
|
|
syntmp-e-709
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
(if (memv syntmp-t-713 (quote (constant)))
|
|
(syntmp-build-data-98
|
|
syntmp-s-712
|
|
(syntmp-strip-165
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-709
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
'(())))
|
|
(if (memv syntmp-t-713 (quote (global)))
|
|
syntmp-value-708
|
|
(if (memv syntmp-t-713 (quote (call)))
|
|
(syntmp-chi-application-156
|
|
(syntmp-chi-154
|
|
(car syntmp-e-709)
|
|
syntmp-r-710
|
|
syntmp-w-711)
|
|
syntmp-e-709
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
(if (memv syntmp-t-713 (quote (begin-form)))
|
|
((lambda (syntmp-tmp-714)
|
|
((lambda (syntmp-tmp-715)
|
|
(if syntmp-tmp-715
|
|
(apply (lambda (syntmp-_-716
|
|
syntmp-e1-717
|
|
syntmp-e2-718)
|
|
(syntmp-chi-sequence-148
|
|
(cons syntmp-e1-717
|
|
syntmp-e2-718)
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712))
|
|
syntmp-tmp-715)
|
|
(syntax-error syntmp-tmp-714)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-714
|
|
'(any any . each-any))))
|
|
syntmp-e-709)
|
|
(if (memv syntmp-t-713
|
|
'(local-syntax-form))
|
|
(syntmp-chi-local-syntax-160
|
|
syntmp-value-708
|
|
syntmp-e-709
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712
|
|
syntmp-chi-sequence-148)
|
|
(if (memv syntmp-t-713
|
|
'(eval-when-form))
|
|
((lambda (syntmp-tmp-720)
|
|
((lambda (syntmp-tmp-721)
|
|
(if syntmp-tmp-721
|
|
(apply (lambda (syntmp-_-722
|
|
syntmp-x-723
|
|
syntmp-e1-724
|
|
syntmp-e2-725)
|
|
(let ((syntmp-when-list-726
|
|
(syntmp-chi-when-list-151
|
|
syntmp-e-709
|
|
syntmp-x-723
|
|
syntmp-w-711)))
|
|
(if (memq 'eval
|
|
syntmp-when-list-726)
|
|
(syntmp-chi-sequence-148
|
|
(cons syntmp-e1-724
|
|
syntmp-e2-725)
|
|
syntmp-r-710
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
(syntmp-chi-void-162))))
|
|
syntmp-tmp-721)
|
|
(syntax-error syntmp-tmp-720)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-720
|
|
'(any each-any any . each-any))))
|
|
syntmp-e-709)
|
|
(if (memv syntmp-t-713
|
|
'(define-form define-syntax-form))
|
|
(syntax-error
|
|
(syntmp-wrap-146
|
|
syntmp-value-708
|
|
syntmp-w-711)
|
|
"invalid context for definition of")
|
|
(if (memv syntmp-t-713 (quote (syntax)))
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-709
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
"reference to pattern variable outside syntax form")
|
|
(if (memv syntmp-t-713
|
|
'(displaced-lexical))
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-709
|
|
syntmp-w-711
|
|
syntmp-s-712)
|
|
"reference to identifier outside its scope")
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-709
|
|
syntmp-w-711
|
|
syntmp-s-712))))))))))))))))))
|
|
(syntmp-chi-154
|
|
(lambda (syntmp-e-729 syntmp-r-730 syntmp-w-731)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-syntax-type-152
|
|
syntmp-e-729
|
|
syntmp-r-730
|
|
syntmp-w-731
|
|
#f
|
|
#f))
|
|
(lambda (syntmp-type-732
|
|
syntmp-value-733
|
|
syntmp-e-734
|
|
syntmp-w-735
|
|
syntmp-s-736)
|
|
(syntmp-chi-expr-155
|
|
syntmp-type-732
|
|
syntmp-value-733
|
|
syntmp-e-734
|
|
syntmp-r-730
|
|
syntmp-w-735
|
|
syntmp-s-736)))))
|
|
(syntmp-chi-top-153
|
|
(lambda (syntmp-e-737
|
|
syntmp-r-738
|
|
syntmp-w-739
|
|
syntmp-m-740
|
|
syntmp-esew-741)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-syntax-type-152
|
|
syntmp-e-737
|
|
syntmp-r-738
|
|
syntmp-w-739
|
|
#f
|
|
#f))
|
|
(lambda (syntmp-type-754
|
|
syntmp-value-755
|
|
syntmp-e-756
|
|
syntmp-w-757
|
|
syntmp-s-758)
|
|
(let ((syntmp-t-759 syntmp-type-754))
|
|
(if (memv syntmp-t-759 (quote (begin-form)))
|
|
((lambda (syntmp-tmp-760)
|
|
((lambda (syntmp-tmp-761)
|
|
(if syntmp-tmp-761
|
|
(apply (lambda (syntmp-_-762)
|
|
(syntmp-chi-void-162))
|
|
syntmp-tmp-761)
|
|
((lambda (syntmp-tmp-763)
|
|
(if syntmp-tmp-763
|
|
(apply (lambda (syntmp-_-764
|
|
syntmp-e1-765
|
|
syntmp-e2-766)
|
|
(syntmp-chi-top-sequence-149
|
|
(cons syntmp-e1-765 syntmp-e2-766)
|
|
syntmp-r-738
|
|
syntmp-w-757
|
|
syntmp-s-758
|
|
syntmp-m-740
|
|
syntmp-esew-741))
|
|
syntmp-tmp-763)
|
|
(syntax-error syntmp-tmp-760)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-760
|
|
'(any any . each-any)))))
|
|
(syntax-dispatch syntmp-tmp-760 (quote (any)))))
|
|
syntmp-e-756)
|
|
(if (memv syntmp-t-759 (quote (local-syntax-form)))
|
|
(syntmp-chi-local-syntax-160
|
|
syntmp-value-755
|
|
syntmp-e-756
|
|
syntmp-r-738
|
|
syntmp-w-757
|
|
syntmp-s-758
|
|
(lambda (syntmp-body-768
|
|
syntmp-r-769
|
|
syntmp-w-770
|
|
syntmp-s-771)
|
|
(syntmp-chi-top-sequence-149
|
|
syntmp-body-768
|
|
syntmp-r-769
|
|
syntmp-w-770
|
|
syntmp-s-771
|
|
syntmp-m-740
|
|
syntmp-esew-741)))
|
|
(if (memv syntmp-t-759 (quote (eval-when-form)))
|
|
((lambda (syntmp-tmp-772)
|
|
((lambda (syntmp-tmp-773)
|
|
(if syntmp-tmp-773
|
|
(apply (lambda (syntmp-_-774
|
|
syntmp-x-775
|
|
syntmp-e1-776
|
|
syntmp-e2-777)
|
|
(let ((syntmp-when-list-778
|
|
(syntmp-chi-when-list-151
|
|
syntmp-e-756
|
|
syntmp-x-775
|
|
syntmp-w-757))
|
|
(syntmp-body-779
|
|
(cons syntmp-e1-776
|
|
syntmp-e2-777)))
|
|
(cond ((eq? syntmp-m-740 (quote e))
|
|
(if (memq 'eval
|
|
syntmp-when-list-778)
|
|
(syntmp-chi-top-sequence-149
|
|
syntmp-body-779
|
|
syntmp-r-738
|
|
syntmp-w-757
|
|
syntmp-s-758
|
|
'e
|
|
'(eval))
|
|
(syntmp-chi-void-162)))
|
|
((memq 'load
|
|
syntmp-when-list-778)
|
|
(if (or (memq 'compile
|
|
syntmp-when-list-778)
|
|
(and (eq? syntmp-m-740
|
|
'c&e)
|
|
(memq 'eval
|
|
syntmp-when-list-778)))
|
|
(syntmp-chi-top-sequence-149
|
|
syntmp-body-779
|
|
syntmp-r-738
|
|
syntmp-w-757
|
|
syntmp-s-758
|
|
'c&e
|
|
'(compile load))
|
|
(if (memq syntmp-m-740
|
|
'(c c&e))
|
|
(syntmp-chi-top-sequence-149
|
|
syntmp-body-779
|
|
syntmp-r-738
|
|
syntmp-w-757
|
|
syntmp-s-758
|
|
'c
|
|
'(load))
|
|
(syntmp-chi-void-162))))
|
|
((or (memq 'compile
|
|
syntmp-when-list-778)
|
|
(and (eq? syntmp-m-740
|
|
'c&e)
|
|
(memq 'eval
|
|
syntmp-when-list-778)))
|
|
(syntmp-top-level-eval-hook-93
|
|
(syntmp-chi-top-sequence-149
|
|
syntmp-body-779
|
|
syntmp-r-738
|
|
syntmp-w-757
|
|
syntmp-s-758
|
|
'e
|
|
'(eval)))
|
|
(syntmp-chi-void-162))
|
|
(else
|
|
(syntmp-chi-void-162)))))
|
|
syntmp-tmp-773)
|
|
(syntax-error syntmp-tmp-772)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-772
|
|
'(any each-any any . each-any))))
|
|
syntmp-e-756)
|
|
(if (memv syntmp-t-759 (quote (define-syntax-form)))
|
|
(let ((syntmp-n-782
|
|
(syntmp-id-var-name-140
|
|
syntmp-value-755
|
|
syntmp-w-757))
|
|
(syntmp-r-783
|
|
(syntmp-macros-only-env-114 syntmp-r-738)))
|
|
(let ((syntmp-t-784 syntmp-m-740))
|
|
(if (memv syntmp-t-784 (quote (c)))
|
|
(if (memq (quote compile) syntmp-esew-741)
|
|
(let ((syntmp-e-785
|
|
(syntmp-chi-install-global-150
|
|
syntmp-n-782
|
|
(syntmp-chi-154
|
|
syntmp-e-756
|
|
syntmp-r-783
|
|
syntmp-w-757))))
|
|
(begin
|
|
(syntmp-top-level-eval-hook-93
|
|
syntmp-e-785)
|
|
(if (memq (quote load) syntmp-esew-741)
|
|
syntmp-e-785
|
|
(syntmp-chi-void-162))))
|
|
(if (memq (quote load) syntmp-esew-741)
|
|
(syntmp-chi-install-global-150
|
|
syntmp-n-782
|
|
(syntmp-chi-154
|
|
syntmp-e-756
|
|
syntmp-r-783
|
|
syntmp-w-757))
|
|
(syntmp-chi-void-162)))
|
|
(if (memv syntmp-t-784 (quote (c&e)))
|
|
(let ((syntmp-e-786
|
|
(syntmp-chi-install-global-150
|
|
syntmp-n-782
|
|
(syntmp-chi-154
|
|
syntmp-e-756
|
|
syntmp-r-783
|
|
syntmp-w-757))))
|
|
(begin
|
|
(syntmp-top-level-eval-hook-93
|
|
syntmp-e-786)
|
|
syntmp-e-786))
|
|
(begin
|
|
(if (memq (quote eval) syntmp-esew-741)
|
|
(syntmp-top-level-eval-hook-93
|
|
(syntmp-chi-install-global-150
|
|
syntmp-n-782
|
|
(syntmp-chi-154
|
|
syntmp-e-756
|
|
syntmp-r-783
|
|
syntmp-w-757))))
|
|
(syntmp-chi-void-162))))))
|
|
(if (memv syntmp-t-759 (quote (define-form)))
|
|
(let ((syntmp-n-787
|
|
(syntmp-id-var-name-140
|
|
syntmp-value-755
|
|
syntmp-w-757)))
|
|
(let ((syntmp-type-788
|
|
(syntmp-binding-type-110
|
|
(syntmp-lookup-115
|
|
syntmp-n-787
|
|
syntmp-r-738))))
|
|
(let ((syntmp-t-789 syntmp-type-788))
|
|
(if (memv syntmp-t-789 (quote (global)))
|
|
(let ((syntmp-x-790
|
|
(list 'define
|
|
syntmp-n-787
|
|
(syntmp-chi-154
|
|
syntmp-e-756
|
|
syntmp-r-738
|
|
syntmp-w-757))))
|
|
(begin
|
|
(if (eq? syntmp-m-740 (quote c&e))
|
|
(syntmp-top-level-eval-hook-93
|
|
syntmp-x-790))
|
|
syntmp-x-790))
|
|
(if (memv syntmp-t-789
|
|
'(displaced-lexical))
|
|
(syntax-error
|
|
(syntmp-wrap-146
|
|
syntmp-value-755
|
|
syntmp-w-757)
|
|
"identifier out of context")
|
|
(if (eq? syntmp-type-788
|
|
'external-macro)
|
|
(let ((syntmp-x-791
|
|
(list 'define
|
|
syntmp-n-787
|
|
(syntmp-chi-154
|
|
syntmp-e-756
|
|
syntmp-r-738
|
|
syntmp-w-757))))
|
|
(begin
|
|
(if (eq? syntmp-m-740 (quote c&e))
|
|
(syntmp-top-level-eval-hook-93
|
|
syntmp-x-791))
|
|
syntmp-x-791))
|
|
(syntax-error
|
|
(syntmp-wrap-146
|
|
syntmp-value-755
|
|
syntmp-w-757)
|
|
"cannot define keyword at top level")))))))
|
|
(let ((syntmp-x-792
|
|
(syntmp-chi-expr-155
|
|
syntmp-type-754
|
|
syntmp-value-755
|
|
syntmp-e-756
|
|
syntmp-r-738
|
|
syntmp-w-757
|
|
syntmp-s-758)))
|
|
(begin
|
|
(if (eq? syntmp-m-740 (quote c&e))
|
|
(syntmp-top-level-eval-hook-93
|
|
syntmp-x-792))
|
|
syntmp-x-792))))))))))))
|
|
(syntmp-syntax-type-152
|
|
(lambda (syntmp-e-793
|
|
syntmp-r-794
|
|
syntmp-w-795
|
|
syntmp-s-796
|
|
syntmp-rib-797)
|
|
(cond ((symbol? syntmp-e-793)
|
|
(let ((syntmp-n-798
|
|
(syntmp-id-var-name-140
|
|
syntmp-e-793
|
|
syntmp-w-795)))
|
|
(let ((syntmp-b-799
|
|
(syntmp-lookup-115 syntmp-n-798 syntmp-r-794)))
|
|
(let ((syntmp-type-800
|
|
(syntmp-binding-type-110 syntmp-b-799)))
|
|
(let ((syntmp-t-801 syntmp-type-800))
|
|
(if (memv syntmp-t-801 (quote (lexical)))
|
|
(values
|
|
syntmp-type-800
|
|
(syntmp-binding-value-111 syntmp-b-799)
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-801 (quote (global)))
|
|
(values
|
|
syntmp-type-800
|
|
syntmp-n-798
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-801 (quote (macro)))
|
|
(syntmp-syntax-type-152
|
|
(syntmp-chi-macro-157
|
|
(syntmp-binding-value-111 syntmp-b-799)
|
|
syntmp-e-793
|
|
syntmp-r-794
|
|
syntmp-w-795
|
|
syntmp-rib-797)
|
|
syntmp-r-794
|
|
'(())
|
|
syntmp-s-796
|
|
syntmp-rib-797)
|
|
(values
|
|
syntmp-type-800
|
|
(syntmp-binding-value-111 syntmp-b-799)
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)))))))))
|
|
((pair? syntmp-e-793)
|
|
(let ((syntmp-first-802 (car syntmp-e-793)))
|
|
(if (syntmp-id?-118 syntmp-first-802)
|
|
(let ((syntmp-n-803
|
|
(syntmp-id-var-name-140
|
|
syntmp-first-802
|
|
syntmp-w-795)))
|
|
(let ((syntmp-b-804
|
|
(syntmp-lookup-115
|
|
syntmp-n-803
|
|
syntmp-r-794)))
|
|
(let ((syntmp-type-805
|
|
(syntmp-binding-type-110 syntmp-b-804)))
|
|
(let ((syntmp-t-806 syntmp-type-805))
|
|
(if (memv syntmp-t-806 (quote (lexical)))
|
|
(values
|
|
'lexical-call
|
|
(syntmp-binding-value-111 syntmp-b-804)
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-806 (quote (global)))
|
|
(values
|
|
'global-call
|
|
syntmp-n-803
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-806 (quote (macro)))
|
|
(syntmp-syntax-type-152
|
|
(syntmp-chi-macro-157
|
|
(syntmp-binding-value-111
|
|
syntmp-b-804)
|
|
syntmp-e-793
|
|
syntmp-r-794
|
|
syntmp-w-795
|
|
syntmp-rib-797)
|
|
syntmp-r-794
|
|
'(())
|
|
syntmp-s-796
|
|
syntmp-rib-797)
|
|
(if (memv syntmp-t-806
|
|
'(core external-macro))
|
|
(values
|
|
syntmp-type-805
|
|
(syntmp-binding-value-111
|
|
syntmp-b-804)
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-806
|
|
'(local-syntax))
|
|
(values
|
|
'local-syntax-form
|
|
(syntmp-binding-value-111
|
|
syntmp-b-804)
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-806
|
|
'(begin))
|
|
(values
|
|
'begin-form
|
|
#f
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-806
|
|
'(eval-when))
|
|
(values
|
|
'eval-when-form
|
|
#f
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)
|
|
(if (memv syntmp-t-806
|
|
'(define))
|
|
((lambda (syntmp-tmp-807)
|
|
((lambda (syntmp-tmp-808)
|
|
(if (if syntmp-tmp-808
|
|
(apply (lambda (syntmp-_-809
|
|
syntmp-name-810
|
|
syntmp-val-811)
|
|
(syntmp-id?-118
|
|
syntmp-name-810))
|
|
syntmp-tmp-808)
|
|
#f)
|
|
(apply (lambda (syntmp-_-812
|
|
syntmp-name-813
|
|
syntmp-val-814)
|
|
(values
|
|
'define-form
|
|
syntmp-name-813
|
|
syntmp-val-814
|
|
syntmp-w-795
|
|
syntmp-s-796))
|
|
syntmp-tmp-808)
|
|
((lambda (syntmp-tmp-815)
|
|
(if (if syntmp-tmp-815
|
|
(apply (lambda (syntmp-_-816
|
|
syntmp-name-817
|
|
syntmp-args-818
|
|
syntmp-e1-819
|
|
syntmp-e2-820)
|
|
(and (syntmp-id?-118
|
|
syntmp-name-817)
|
|
(syntmp-valid-bound-ids?-143
|
|
(syntmp-lambda-var-list-167
|
|
syntmp-args-818))))
|
|
syntmp-tmp-815)
|
|
#f)
|
|
(apply (lambda (syntmp-_-821
|
|
syntmp-name-822
|
|
syntmp-args-823
|
|
syntmp-e1-824
|
|
syntmp-e2-825)
|
|
(values
|
|
'define-form
|
|
(syntmp-wrap-146
|
|
syntmp-name-822
|
|
syntmp-w-795)
|
|
(cons '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name
|
|
args
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(t)
|
|
#(("m"
|
|
top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(type)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(b)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(n)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i"))))
|
|
(syntmp-wrap-146
|
|
(cons syntmp-args-823
|
|
(cons syntmp-e1-824
|
|
syntmp-e2-825))
|
|
syntmp-w-795))
|
|
'(())
|
|
syntmp-s-796))
|
|
syntmp-tmp-815)
|
|
((lambda (syntmp-tmp-827)
|
|
(if (if syntmp-tmp-827
|
|
(apply (lambda (syntmp-_-828
|
|
syntmp-name-829)
|
|
(syntmp-id?-118
|
|
syntmp-name-829))
|
|
syntmp-tmp-827)
|
|
#f)
|
|
(apply (lambda (syntmp-_-830
|
|
syntmp-name-831)
|
|
(values
|
|
'define-form
|
|
(syntmp-wrap-146
|
|
syntmp-name-831
|
|
syntmp-w-795)
|
|
'(#(syntax-object
|
|
void
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(t)
|
|
#(("m"
|
|
top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(type)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(b)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(n)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i")))))
|
|
'(())
|
|
syntmp-s-796))
|
|
syntmp-tmp-827)
|
|
(syntax-error
|
|
syntmp-tmp-807)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-807
|
|
'(any any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-807
|
|
'(any (any . any)
|
|
any
|
|
.
|
|
each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-807
|
|
'(any any any))))
|
|
syntmp-e-793)
|
|
(if (memv syntmp-t-806
|
|
'(define-syntax))
|
|
((lambda (syntmp-tmp-832)
|
|
((lambda (syntmp-tmp-833)
|
|
(if (if syntmp-tmp-833
|
|
(apply (lambda (syntmp-_-834
|
|
syntmp-name-835
|
|
syntmp-val-836)
|
|
(syntmp-id?-118
|
|
syntmp-name-835))
|
|
syntmp-tmp-833)
|
|
#f)
|
|
(apply (lambda (syntmp-_-837
|
|
syntmp-name-838
|
|
syntmp-val-839)
|
|
(values
|
|
'define-syntax-form
|
|
syntmp-name-838
|
|
syntmp-val-839
|
|
syntmp-w-795
|
|
syntmp-s-796))
|
|
syntmp-tmp-833)
|
|
(syntax-error
|
|
syntmp-tmp-832)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-832
|
|
'(any any any))))
|
|
syntmp-e-793)
|
|
(if (memv syntmp-t-806
|
|
'(ellipsis))
|
|
(values
|
|
'ellipsis
|
|
(syntmp-make-syntax-object-103
|
|
(syntmp-syntax-object-expression-105
|
|
value)
|
|
(syntmp-anti-mark-133
|
|
(syntmp-syntax-object-wrap-106
|
|
value))))
|
|
(values
|
|
'call
|
|
#f
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)))))))))))))))
|
|
(values
|
|
'call
|
|
#f
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796))))
|
|
((syntmp-syntax-object?-104 syntmp-e-793)
|
|
(syntmp-syntax-type-152
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-e-793)
|
|
syntmp-r-794
|
|
(syntmp-join-wraps-137
|
|
syntmp-w-795
|
|
(syntmp-syntax-object-wrap-106 syntmp-e-793))
|
|
#f
|
|
syntmp-rib-797))
|
|
((syntmp-annotation?-92 syntmp-e-793)
|
|
(syntmp-syntax-type-152
|
|
(annotation-expression syntmp-e-793)
|
|
syntmp-r-794
|
|
syntmp-w-795
|
|
(annotation-source syntmp-e-793)
|
|
syntmp-rib-797))
|
|
((self-evaluating? syntmp-e-793)
|
|
(values
|
|
'constant
|
|
#f
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796))
|
|
(else
|
|
(values
|
|
'other
|
|
#f
|
|
syntmp-e-793
|
|
syntmp-w-795
|
|
syntmp-s-796)))))
|
|
(syntmp-chi-when-list-151
|
|
(lambda (syntmp-e-840 syntmp-when-list-841 syntmp-w-842)
|
|
(let syntmp-f-843 ((syntmp-when-list-844 syntmp-when-list-841)
|
|
(syntmp-situations-845 (quote ())))
|
|
(if (null? syntmp-when-list-844)
|
|
syntmp-situations-845
|
|
(syntmp-f-843
|
|
(cdr syntmp-when-list-844)
|
|
(cons (let ((syntmp-x-846 (car syntmp-when-list-844)))
|
|
(cond ((syntmp-free-id=?-141
|
|
syntmp-x-846
|
|
'#(syntax-object
|
|
compile
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i")))))
|
|
'compile)
|
|
((syntmp-free-id=?-141
|
|
syntmp-x-846
|
|
'#(syntax-object
|
|
load
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i")))))
|
|
'load)
|
|
((syntmp-free-id=?-141
|
|
syntmp-x-846
|
|
'#(syntax-object
|
|
eval
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i")))))
|
|
'eval)
|
|
(else
|
|
(syntax-error
|
|
(syntmp-wrap-146 syntmp-x-846 syntmp-w-842)
|
|
"invalid eval-when situation"))))
|
|
syntmp-situations-845))))))
|
|
(syntmp-chi-install-global-150
|
|
(lambda (syntmp-name-847 syntmp-e-848)
|
|
(list 'install-global-transformer
|
|
(syntmp-build-data-98 #f syntmp-name-847)
|
|
syntmp-e-848)))
|
|
(syntmp-chi-top-sequence-149
|
|
(lambda (syntmp-body-849
|
|
syntmp-r-850
|
|
syntmp-w-851
|
|
syntmp-s-852
|
|
syntmp-m-853
|
|
syntmp-esew-854)
|
|
(syntmp-build-sequence-99
|
|
syntmp-s-852
|
|
(let syntmp-dobody-855 ((syntmp-body-856 syntmp-body-849)
|
|
(syntmp-r-857 syntmp-r-850)
|
|
(syntmp-w-858 syntmp-w-851)
|
|
(syntmp-m-859 syntmp-m-853)
|
|
(syntmp-esew-860 syntmp-esew-854))
|
|
(if (null? syntmp-body-856)
|
|
'()
|
|
(let ((syntmp-first-861
|
|
(syntmp-chi-top-153
|
|
(car syntmp-body-856)
|
|
syntmp-r-857
|
|
syntmp-w-858
|
|
syntmp-m-859
|
|
syntmp-esew-860)))
|
|
(cons syntmp-first-861
|
|
(syntmp-dobody-855
|
|
(cdr syntmp-body-856)
|
|
syntmp-r-857
|
|
syntmp-w-858
|
|
syntmp-m-859
|
|
syntmp-esew-860))))))))
|
|
(syntmp-chi-sequence-148
|
|
(lambda (syntmp-body-862
|
|
syntmp-r-863
|
|
syntmp-w-864
|
|
syntmp-s-865)
|
|
(syntmp-build-sequence-99
|
|
syntmp-s-865
|
|
(let syntmp-dobody-866 ((syntmp-body-867 syntmp-body-862)
|
|
(syntmp-r-868 syntmp-r-863)
|
|
(syntmp-w-869 syntmp-w-864))
|
|
(if (null? syntmp-body-867)
|
|
'()
|
|
(let ((syntmp-first-870
|
|
(syntmp-chi-154
|
|
(car syntmp-body-867)
|
|
syntmp-r-868
|
|
syntmp-w-869)))
|
|
(cons syntmp-first-870
|
|
(syntmp-dobody-866
|
|
(cdr syntmp-body-867)
|
|
syntmp-r-868
|
|
syntmp-w-869))))))))
|
|
(syntmp-source-wrap-147
|
|
(lambda (syntmp-x-871 syntmp-w-872 syntmp-s-873)
|
|
(syntmp-wrap-146
|
|
(if syntmp-s-873
|
|
(make-annotation syntmp-x-871 syntmp-s-873 #f)
|
|
syntmp-x-871)
|
|
syntmp-w-872)))
|
|
(syntmp-wrap-146
|
|
(lambda (syntmp-x-874 syntmp-w-875)
|
|
(cond ((and (null? (syntmp-wrap-marks-121 syntmp-w-875))
|
|
(null? (syntmp-wrap-subst-122 syntmp-w-875)))
|
|
syntmp-x-874)
|
|
((syntmp-syntax-object?-104 syntmp-x-874)
|
|
(syntmp-make-syntax-object-103
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-874)
|
|
(syntmp-join-wraps-137
|
|
syntmp-w-875
|
|
(syntmp-syntax-object-wrap-106 syntmp-x-874))))
|
|
((null? syntmp-x-874) syntmp-x-874)
|
|
(else
|
|
(syntmp-make-syntax-object-103
|
|
syntmp-x-874
|
|
syntmp-w-875)))))
|
|
(syntmp-bound-id-member?-145
|
|
(lambda (syntmp-x-876 syntmp-list-877)
|
|
(and (not (null? syntmp-list-877))
|
|
(or (syntmp-bound-id=?-142
|
|
syntmp-x-876
|
|
(car syntmp-list-877))
|
|
(syntmp-bound-id-member?-145
|
|
syntmp-x-876
|
|
(cdr syntmp-list-877))))))
|
|
(syntmp-distinct-bound-ids?-144
|
|
(lambda (syntmp-ids-878)
|
|
(let syntmp-distinct?-879 ((syntmp-ids-880 syntmp-ids-878))
|
|
(or (null? syntmp-ids-880)
|
|
(and (not (syntmp-bound-id-member?-145
|
|
(car syntmp-ids-880)
|
|
(cdr syntmp-ids-880)))
|
|
(syntmp-distinct?-879 (cdr syntmp-ids-880)))))))
|
|
(syntmp-valid-bound-ids?-143
|
|
(lambda (syntmp-ids-881)
|
|
(and (let syntmp-all-ids?-882 ((syntmp-ids-883 syntmp-ids-881))
|
|
(or (null? syntmp-ids-883)
|
|
(and (syntmp-id?-118 (car syntmp-ids-883))
|
|
(syntmp-all-ids?-882 (cdr syntmp-ids-883)))))
|
|
(syntmp-distinct-bound-ids?-144 syntmp-ids-881))))
|
|
(syntmp-bound-id=?-142
|
|
(lambda (syntmp-i-884 syntmp-j-885)
|
|
(if (and (syntmp-syntax-object?-104 syntmp-i-884)
|
|
(syntmp-syntax-object?-104 syntmp-j-885))
|
|
(and (eq? (let ((syntmp-e-886
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-i-884)))
|
|
(if (syntmp-annotation?-92 syntmp-e-886)
|
|
(annotation-expression syntmp-e-886)
|
|
syntmp-e-886))
|
|
(let ((syntmp-e-887
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-j-885)))
|
|
(if (syntmp-annotation?-92 syntmp-e-887)
|
|
(annotation-expression syntmp-e-887)
|
|
syntmp-e-887)))
|
|
(syntmp-same-marks?-139
|
|
(syntmp-wrap-marks-121
|
|
(syntmp-syntax-object-wrap-106 syntmp-i-884))
|
|
(syntmp-wrap-marks-121
|
|
(syntmp-syntax-object-wrap-106 syntmp-j-885))))
|
|
(eq? (let ((syntmp-e-888 syntmp-i-884))
|
|
(if (syntmp-annotation?-92 syntmp-e-888)
|
|
(annotation-expression syntmp-e-888)
|
|
syntmp-e-888))
|
|
(let ((syntmp-e-889 syntmp-j-885))
|
|
(if (syntmp-annotation?-92 syntmp-e-889)
|
|
(annotation-expression syntmp-e-889)
|
|
syntmp-e-889))))))
|
|
(syntmp-free-id=?-141
|
|
(lambda (syntmp-i-890 syntmp-j-891)
|
|
(and (eq? (let ((syntmp-x-892 syntmp-i-890))
|
|
(let ((syntmp-e-893
|
|
(if (syntmp-syntax-object?-104 syntmp-x-892)
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-892)
|
|
syntmp-x-892)))
|
|
(if (syntmp-annotation?-92 syntmp-e-893)
|
|
(annotation-expression syntmp-e-893)
|
|
syntmp-e-893)))
|
|
(let ((syntmp-x-894 syntmp-j-891))
|
|
(let ((syntmp-e-895
|
|
(if (syntmp-syntax-object?-104 syntmp-x-894)
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-894)
|
|
syntmp-x-894)))
|
|
(if (syntmp-annotation?-92 syntmp-e-895)
|
|
(annotation-expression syntmp-e-895)
|
|
syntmp-e-895))))
|
|
(eq? (syntmp-id-var-name-140
|
|
syntmp-i-890
|
|
'(()))
|
|
(syntmp-id-var-name-140
|
|
syntmp-j-891
|
|
'(()))))))
|
|
(syntmp-id-var-name-140
|
|
(lambda (syntmp-id-896 syntmp-w-897)
|
|
(letrec ((syntmp-search-vector-rib-900
|
|
(lambda (syntmp-sym-911
|
|
syntmp-subst-912
|
|
syntmp-marks-913
|
|
syntmp-symnames-914
|
|
syntmp-ribcage-915)
|
|
(let ((syntmp-n-916
|
|
(vector-length syntmp-symnames-914)))
|
|
(let syntmp-f-917 ((syntmp-i-918 0))
|
|
(cond ((syntmp-fx=-90 syntmp-i-918 syntmp-n-916)
|
|
(syntmp-search-898
|
|
syntmp-sym-911
|
|
(cdr syntmp-subst-912)
|
|
syntmp-marks-913))
|
|
((and (eq? (vector-ref
|
|
syntmp-symnames-914
|
|
syntmp-i-918)
|
|
syntmp-sym-911)
|
|
(syntmp-same-marks?-139
|
|
syntmp-marks-913
|
|
(vector-ref
|
|
(syntmp-ribcage-marks-128
|
|
syntmp-ribcage-915)
|
|
syntmp-i-918)))
|
|
(values
|
|
(vector-ref
|
|
(syntmp-ribcage-labels-129
|
|
syntmp-ribcage-915)
|
|
syntmp-i-918)
|
|
syntmp-marks-913))
|
|
(else
|
|
(syntmp-f-917
|
|
(syntmp-fx+-88 syntmp-i-918 1))))))))
|
|
(syntmp-search-list-rib-899
|
|
(lambda (syntmp-sym-919
|
|
syntmp-subst-920
|
|
syntmp-marks-921
|
|
syntmp-symnames-922
|
|
syntmp-ribcage-923)
|
|
(let syntmp-f-924 ((syntmp-symnames-925
|
|
syntmp-symnames-922)
|
|
(syntmp-i-926 0))
|
|
(cond ((null? syntmp-symnames-925)
|
|
(syntmp-search-898
|
|
syntmp-sym-919
|
|
(cdr syntmp-subst-920)
|
|
syntmp-marks-921))
|
|
((and (eq? (car syntmp-symnames-925)
|
|
syntmp-sym-919)
|
|
(syntmp-same-marks?-139
|
|
syntmp-marks-921
|
|
(list-ref
|
|
(syntmp-ribcage-marks-128
|
|
syntmp-ribcage-923)
|
|
syntmp-i-926)))
|
|
(values
|
|
(list-ref
|
|
(syntmp-ribcage-labels-129
|
|
syntmp-ribcage-923)
|
|
syntmp-i-926)
|
|
syntmp-marks-921))
|
|
(else
|
|
(syntmp-f-924
|
|
(cdr syntmp-symnames-925)
|
|
(syntmp-fx+-88 syntmp-i-926 1)))))))
|
|
(syntmp-search-898
|
|
(lambda (syntmp-sym-927
|
|
syntmp-subst-928
|
|
syntmp-marks-929)
|
|
(if (null? syntmp-subst-928)
|
|
(values #f syntmp-marks-929)
|
|
(let ((syntmp-fst-930 (car syntmp-subst-928)))
|
|
(if (eq? syntmp-fst-930 (quote shift))
|
|
(syntmp-search-898
|
|
syntmp-sym-927
|
|
(cdr syntmp-subst-928)
|
|
(cdr syntmp-marks-929))
|
|
(let ((syntmp-symnames-931
|
|
(syntmp-ribcage-symnames-127
|
|
syntmp-fst-930)))
|
|
(if (vector? syntmp-symnames-931)
|
|
(syntmp-search-vector-rib-900
|
|
syntmp-sym-927
|
|
syntmp-subst-928
|
|
syntmp-marks-929
|
|
syntmp-symnames-931
|
|
syntmp-fst-930)
|
|
(syntmp-search-list-rib-899
|
|
syntmp-sym-927
|
|
syntmp-subst-928
|
|
syntmp-marks-929
|
|
syntmp-symnames-931
|
|
syntmp-fst-930)))))))))
|
|
(cond ((symbol? syntmp-id-896)
|
|
(or (call-with-values
|
|
(lambda ()
|
|
(syntmp-search-898
|
|
syntmp-id-896
|
|
(syntmp-wrap-subst-122 syntmp-w-897)
|
|
(syntmp-wrap-marks-121 syntmp-w-897)))
|
|
(lambda (syntmp-x-933 . syntmp-ignore-932)
|
|
syntmp-x-933))
|
|
syntmp-id-896))
|
|
((syntmp-syntax-object?-104 syntmp-id-896)
|
|
(let ((syntmp-id-934
|
|
(let ((syntmp-e-936
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-id-896)))
|
|
(if (syntmp-annotation?-92 syntmp-e-936)
|
|
(annotation-expression syntmp-e-936)
|
|
syntmp-e-936)))
|
|
(syntmp-w1-935
|
|
(syntmp-syntax-object-wrap-106 syntmp-id-896)))
|
|
(let ((syntmp-marks-937
|
|
(syntmp-join-marks-138
|
|
(syntmp-wrap-marks-121 syntmp-w-897)
|
|
(syntmp-wrap-marks-121 syntmp-w1-935))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-search-898
|
|
syntmp-id-934
|
|
(syntmp-wrap-subst-122 syntmp-w-897)
|
|
syntmp-marks-937))
|
|
(lambda (syntmp-new-id-938 syntmp-marks-939)
|
|
(or syntmp-new-id-938
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-search-898
|
|
syntmp-id-934
|
|
(syntmp-wrap-subst-122 syntmp-w1-935)
|
|
syntmp-marks-939))
|
|
(lambda (syntmp-x-941 . syntmp-ignore-940)
|
|
syntmp-x-941))
|
|
syntmp-id-934))))))
|
|
((syntmp-annotation?-92 syntmp-id-896)
|
|
(let ((syntmp-id-942
|
|
(let ((syntmp-e-943 syntmp-id-896))
|
|
(if (syntmp-annotation?-92 syntmp-e-943)
|
|
(annotation-expression syntmp-e-943)
|
|
syntmp-e-943))))
|
|
(or (call-with-values
|
|
(lambda ()
|
|
(syntmp-search-898
|
|
syntmp-id-942
|
|
(syntmp-wrap-subst-122 syntmp-w-897)
|
|
(syntmp-wrap-marks-121 syntmp-w-897)))
|
|
(lambda (syntmp-x-945 . syntmp-ignore-944)
|
|
syntmp-x-945))
|
|
syntmp-id-942)))
|
|
(else
|
|
(syntmp-error-hook-95
|
|
'id-var-name
|
|
"invalid id"
|
|
syntmp-id-896))))))
|
|
(syntmp-same-marks?-139
|
|
(lambda (syntmp-x-946 syntmp-y-947)
|
|
(or (eq? syntmp-x-946 syntmp-y-947)
|
|
(and (not (null? syntmp-x-946))
|
|
(not (null? syntmp-y-947))
|
|
(eq? (car syntmp-x-946) (car syntmp-y-947))
|
|
(syntmp-same-marks?-139
|
|
(cdr syntmp-x-946)
|
|
(cdr syntmp-y-947))))))
|
|
(syntmp-join-marks-138
|
|
(lambda (syntmp-m1-948 syntmp-m2-949)
|
|
(syntmp-smart-append-136
|
|
syntmp-m1-948
|
|
syntmp-m2-949)))
|
|
(syntmp-join-wraps-137
|
|
(lambda (syntmp-w1-950 syntmp-w2-951)
|
|
(let ((syntmp-m1-952
|
|
(syntmp-wrap-marks-121 syntmp-w1-950))
|
|
(syntmp-s1-953
|
|
(syntmp-wrap-subst-122 syntmp-w1-950)))
|
|
(if (null? syntmp-m1-952)
|
|
(if (null? syntmp-s1-953)
|
|
syntmp-w2-951
|
|
(syntmp-make-wrap-120
|
|
(syntmp-wrap-marks-121 syntmp-w2-951)
|
|
(syntmp-smart-append-136
|
|
syntmp-s1-953
|
|
(syntmp-wrap-subst-122 syntmp-w2-951))))
|
|
(syntmp-make-wrap-120
|
|
(syntmp-smart-append-136
|
|
syntmp-m1-952
|
|
(syntmp-wrap-marks-121 syntmp-w2-951))
|
|
(syntmp-smart-append-136
|
|
syntmp-s1-953
|
|
(syntmp-wrap-subst-122 syntmp-w2-951)))))))
|
|
(syntmp-smart-append-136
|
|
(lambda (syntmp-m1-954 syntmp-m2-955)
|
|
(if (null? syntmp-m2-955)
|
|
syntmp-m1-954
|
|
(append syntmp-m1-954 syntmp-m2-955))))
|
|
(syntmp-make-binding-wrap-135
|
|
(lambda (syntmp-ids-956 syntmp-labels-957 syntmp-w-958)
|
|
(if (null? syntmp-ids-956)
|
|
syntmp-w-958
|
|
(syntmp-make-wrap-120
|
|
(syntmp-wrap-marks-121 syntmp-w-958)
|
|
(cons (let ((syntmp-labelvec-959
|
|
(list->vector syntmp-labels-957)))
|
|
(let ((syntmp-n-960
|
|
(vector-length syntmp-labelvec-959)))
|
|
(let ((syntmp-symnamevec-961
|
|
(make-vector syntmp-n-960))
|
|
(syntmp-marksvec-962
|
|
(make-vector syntmp-n-960)))
|
|
(begin
|
|
(let syntmp-f-963 ((syntmp-ids-964
|
|
syntmp-ids-956)
|
|
(syntmp-i-965 0))
|
|
(if (not (null? syntmp-ids-964))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-id-sym-name&marks-119
|
|
(car syntmp-ids-964)
|
|
syntmp-w-958))
|
|
(lambda (syntmp-symname-966
|
|
syntmp-marks-967)
|
|
(begin
|
|
(vector-set!
|
|
syntmp-symnamevec-961
|
|
syntmp-i-965
|
|
syntmp-symname-966)
|
|
(vector-set!
|
|
syntmp-marksvec-962
|
|
syntmp-i-965
|
|
syntmp-marks-967)
|
|
(syntmp-f-963
|
|
(cdr syntmp-ids-964)
|
|
(syntmp-fx+-88 syntmp-i-965 1)))))))
|
|
(syntmp-make-ribcage-125
|
|
syntmp-symnamevec-961
|
|
syntmp-marksvec-962
|
|
syntmp-labelvec-959)))))
|
|
(syntmp-wrap-subst-122 syntmp-w-958))))))
|
|
(syntmp-extend-ribcage!-134
|
|
(lambda (syntmp-ribcage-968
|
|
syntmp-id-969
|
|
syntmp-label-970)
|
|
(begin
|
|
(syntmp-set-ribcage-symnames!-130
|
|
syntmp-ribcage-968
|
|
(cons (let ((syntmp-e-971
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-id-969)))
|
|
(if (syntmp-annotation?-92 syntmp-e-971)
|
|
(annotation-expression syntmp-e-971)
|
|
syntmp-e-971))
|
|
(syntmp-ribcage-symnames-127 syntmp-ribcage-968)))
|
|
(syntmp-set-ribcage-marks!-131
|
|
syntmp-ribcage-968
|
|
(cons (syntmp-wrap-marks-121
|
|
(syntmp-syntax-object-wrap-106 syntmp-id-969))
|
|
(syntmp-ribcage-marks-128 syntmp-ribcage-968)))
|
|
(syntmp-set-ribcage-labels!-132
|
|
syntmp-ribcage-968
|
|
(cons syntmp-label-970
|
|
(syntmp-ribcage-labels-129 syntmp-ribcage-968))))))
|
|
(syntmp-anti-mark-133
|
|
(lambda (syntmp-w-972)
|
|
(syntmp-make-wrap-120
|
|
(cons #f (syntmp-wrap-marks-121 syntmp-w-972))
|
|
(cons 'shift
|
|
(syntmp-wrap-subst-122 syntmp-w-972)))))
|
|
(syntmp-set-ribcage-labels!-132
|
|
(lambda (syntmp-x-973 syntmp-update-974)
|
|
(vector-set! syntmp-x-973 3 syntmp-update-974)))
|
|
(syntmp-set-ribcage-marks!-131
|
|
(lambda (syntmp-x-975 syntmp-update-976)
|
|
(vector-set! syntmp-x-975 2 syntmp-update-976)))
|
|
(syntmp-set-ribcage-symnames!-130
|
|
(lambda (syntmp-x-977 syntmp-update-978)
|
|
(vector-set! syntmp-x-977 1 syntmp-update-978)))
|
|
(syntmp-ribcage-labels-129
|
|
(lambda (syntmp-x-979)
|
|
(vector-ref syntmp-x-979 3)))
|
|
(syntmp-ribcage-marks-128
|
|
(lambda (syntmp-x-980)
|
|
(vector-ref syntmp-x-980 2)))
|
|
(syntmp-ribcage-symnames-127
|
|
(lambda (syntmp-x-981)
|
|
(vector-ref syntmp-x-981 1)))
|
|
(syntmp-ribcage?-126
|
|
(lambda (syntmp-x-982)
|
|
(and (vector? syntmp-x-982)
|
|
(= (vector-length syntmp-x-982) 4)
|
|
(eq? (vector-ref syntmp-x-982 0) (quote ribcage)))))
|
|
(syntmp-make-ribcage-125
|
|
(lambda (syntmp-symnames-983
|
|
syntmp-marks-984
|
|
syntmp-labels-985)
|
|
(vector
|
|
'ribcage
|
|
syntmp-symnames-983
|
|
syntmp-marks-984
|
|
syntmp-labels-985)))
|
|
(syntmp-gen-labels-124
|
|
(lambda (syntmp-ls-986)
|
|
(if (null? syntmp-ls-986)
|
|
'()
|
|
(cons (syntmp-gen-label-123)
|
|
(syntmp-gen-labels-124 (cdr syntmp-ls-986))))))
|
|
(syntmp-gen-label-123 (lambda () (string #\i)))
|
|
(syntmp-wrap-subst-122 cdr)
|
|
(syntmp-wrap-marks-121 car)
|
|
(syntmp-make-wrap-120 cons)
|
|
(syntmp-id-sym-name&marks-119
|
|
(lambda (syntmp-x-987 syntmp-w-988)
|
|
(if (syntmp-syntax-object?-104 syntmp-x-987)
|
|
(values
|
|
(let ((syntmp-e-989
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-987)))
|
|
(if (syntmp-annotation?-92 syntmp-e-989)
|
|
(annotation-expression syntmp-e-989)
|
|
syntmp-e-989))
|
|
(syntmp-join-marks-138
|
|
(syntmp-wrap-marks-121 syntmp-w-988)
|
|
(syntmp-wrap-marks-121
|
|
(syntmp-syntax-object-wrap-106 syntmp-x-987))))
|
|
(values
|
|
(let ((syntmp-e-990 syntmp-x-987))
|
|
(if (syntmp-annotation?-92 syntmp-e-990)
|
|
(annotation-expression syntmp-e-990)
|
|
syntmp-e-990))
|
|
(syntmp-wrap-marks-121 syntmp-w-988)))))
|
|
(syntmp-id?-118
|
|
(lambda (syntmp-x-991)
|
|
(cond ((symbol? syntmp-x-991) #t)
|
|
((syntmp-syntax-object?-104 syntmp-x-991)
|
|
(symbol?
|
|
(let ((syntmp-e-992
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-991)))
|
|
(if (syntmp-annotation?-92 syntmp-e-992)
|
|
(annotation-expression syntmp-e-992)
|
|
syntmp-e-992))))
|
|
((syntmp-annotation?-92 syntmp-x-991)
|
|
(symbol? (annotation-expression syntmp-x-991)))
|
|
(else #f))))
|
|
(syntmp-nonsymbol-id?-117
|
|
(lambda (syntmp-x-993)
|
|
(and (syntmp-syntax-object?-104 syntmp-x-993)
|
|
(symbol?
|
|
(let ((syntmp-e-994
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-993)))
|
|
(if (syntmp-annotation?-92 syntmp-e-994)
|
|
(annotation-expression syntmp-e-994)
|
|
syntmp-e-994))))))
|
|
(syntmp-global-extend-116
|
|
(lambda (syntmp-type-995 syntmp-sym-996 syntmp-val-997)
|
|
(syntmp-put-global-definition-hook-96
|
|
syntmp-sym-996
|
|
(cons syntmp-type-995 syntmp-val-997))))
|
|
(syntmp-lookup-115
|
|
(lambda (syntmp-x-998 syntmp-r-999)
|
|
(cond ((assq syntmp-x-998 syntmp-r-999) => cdr)
|
|
((symbol? syntmp-x-998)
|
|
(or (syntmp-get-global-definition-hook-97
|
|
syntmp-x-998)
|
|
'(global)))
|
|
(else (quote (displaced-lexical))))))
|
|
(syntmp-macros-only-env-114
|
|
(lambda (syntmp-r-1000)
|
|
(if (null? syntmp-r-1000)
|
|
'()
|
|
(let ((syntmp-a-1001 (car syntmp-r-1000)))
|
|
(if (memq (cadr syntmp-a-1001)
|
|
'(macro ellipsis))
|
|
(cons syntmp-a-1001
|
|
(syntmp-macros-only-env-114 (cdr syntmp-r-1000)))
|
|
(syntmp-macros-only-env-114 (cdr syntmp-r-1000)))))))
|
|
(syntmp-extend-var-env-113
|
|
(lambda (syntmp-labels-1002
|
|
syntmp-vars-1003
|
|
syntmp-r-1004)
|
|
(if (null? syntmp-labels-1002)
|
|
syntmp-r-1004
|
|
(syntmp-extend-var-env-113
|
|
(cdr syntmp-labels-1002)
|
|
(cdr syntmp-vars-1003)
|
|
(cons (cons (car syntmp-labels-1002)
|
|
(cons (quote lexical) (car syntmp-vars-1003)))
|
|
syntmp-r-1004)))))
|
|
(syntmp-extend-env-112
|
|
(lambda (syntmp-labels-1005
|
|
syntmp-bindings-1006
|
|
syntmp-r-1007)
|
|
(if (null? syntmp-labels-1005)
|
|
syntmp-r-1007
|
|
(syntmp-extend-env-112
|
|
(cdr syntmp-labels-1005)
|
|
(cdr syntmp-bindings-1006)
|
|
(cons (cons (car syntmp-labels-1005)
|
|
(car syntmp-bindings-1006))
|
|
syntmp-r-1007)))))
|
|
(syntmp-binding-value-111 cdr)
|
|
(syntmp-binding-type-110 car)
|
|
(syntmp-source-annotation-109
|
|
(lambda (syntmp-x-1008)
|
|
(cond ((syntmp-annotation?-92 syntmp-x-1008)
|
|
(annotation-source syntmp-x-1008))
|
|
((syntmp-syntax-object?-104 syntmp-x-1008)
|
|
(syntmp-source-annotation-109
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-x-1008)))
|
|
(else #f))))
|
|
(syntmp-set-syntax-object-wrap!-108
|
|
(lambda (syntmp-x-1009 syntmp-update-1010)
|
|
(vector-set! syntmp-x-1009 2 syntmp-update-1010)))
|
|
(syntmp-set-syntax-object-expression!-107
|
|
(lambda (syntmp-x-1011 syntmp-update-1012)
|
|
(vector-set! syntmp-x-1011 1 syntmp-update-1012)))
|
|
(syntmp-syntax-object-wrap-106
|
|
(lambda (syntmp-x-1013)
|
|
(vector-ref syntmp-x-1013 2)))
|
|
(syntmp-syntax-object-expression-105
|
|
(lambda (syntmp-x-1014)
|
|
(vector-ref syntmp-x-1014 1)))
|
|
(syntmp-syntax-object?-104
|
|
(lambda (syntmp-x-1015)
|
|
(and (vector? syntmp-x-1015)
|
|
(= (vector-length syntmp-x-1015) 3)
|
|
(eq? (vector-ref syntmp-x-1015 0)
|
|
'syntax-object))))
|
|
(syntmp-make-syntax-object-103
|
|
(lambda (syntmp-expression-1016 syntmp-wrap-1017)
|
|
(vector
|
|
'syntax-object
|
|
syntmp-expression-1016
|
|
syntmp-wrap-1017)))
|
|
(syntmp-build-letrec-102
|
|
(lambda (syntmp-src-1018
|
|
syntmp-vars-1019
|
|
syntmp-val-exps-1020
|
|
syntmp-body-exp-1021)
|
|
(if (null? syntmp-vars-1019)
|
|
syntmp-body-exp-1021
|
|
(list 'letrec
|
|
(map list syntmp-vars-1019 syntmp-val-exps-1020)
|
|
syntmp-body-exp-1021))))
|
|
(syntmp-build-named-let-101
|
|
(lambda (syntmp-src-1022
|
|
syntmp-vars-1023
|
|
syntmp-val-exps-1024
|
|
syntmp-body-exp-1025)
|
|
(if (null? syntmp-vars-1023)
|
|
syntmp-body-exp-1025
|
|
(list 'let
|
|
(car syntmp-vars-1023)
|
|
(map list
|
|
(cdr syntmp-vars-1023)
|
|
syntmp-val-exps-1024)
|
|
syntmp-body-exp-1025))))
|
|
(syntmp-build-let-100
|
|
(lambda (syntmp-src-1026
|
|
syntmp-vars-1027
|
|
syntmp-val-exps-1028
|
|
syntmp-body-exp-1029)
|
|
(if (null? syntmp-vars-1027)
|
|
syntmp-body-exp-1029
|
|
(list 'let
|
|
(map list syntmp-vars-1027 syntmp-val-exps-1028)
|
|
syntmp-body-exp-1029))))
|
|
(syntmp-build-sequence-99
|
|
(lambda (syntmp-src-1030 syntmp-exps-1031)
|
|
(if (null? (cdr syntmp-exps-1031))
|
|
(car syntmp-exps-1031)
|
|
(cons (quote begin) syntmp-exps-1031))))
|
|
(syntmp-build-data-98
|
|
(lambda (syntmp-src-1032 syntmp-exp-1033)
|
|
(if (and (self-evaluating? syntmp-exp-1033)
|
|
(not (vector? syntmp-exp-1033)))
|
|
syntmp-exp-1033
|
|
(list (quote quote) syntmp-exp-1033))))
|
|
(syntmp-get-global-definition-hook-97
|
|
(lambda (syntmp-symbol-1034)
|
|
(getprop
|
|
syntmp-symbol-1034
|
|
'*sc-expander*)))
|
|
(syntmp-put-global-definition-hook-96
|
|
(lambda (syntmp-symbol-1035 syntmp-binding-1036)
|
|
(putprop
|
|
syntmp-symbol-1035
|
|
'*sc-expander*
|
|
syntmp-binding-1036)))
|
|
(syntmp-error-hook-95
|
|
(lambda (syntmp-who-1037
|
|
syntmp-why-1038
|
|
syntmp-what-1039)
|
|
(error syntmp-who-1037
|
|
"~a ~s"
|
|
syntmp-why-1038
|
|
syntmp-what-1039)))
|
|
(syntmp-local-eval-hook-94
|
|
(lambda (syntmp-x-1040)
|
|
(eval (list syntmp-noexpand-87 syntmp-x-1040)
|
|
(interaction-environment))))
|
|
(syntmp-top-level-eval-hook-93
|
|
(lambda (syntmp-x-1041)
|
|
(eval (list syntmp-noexpand-87 syntmp-x-1041)
|
|
(interaction-environment))))
|
|
(syntmp-annotation?-92
|
|
(lambda (syntmp-x-1042) #f))
|
|
(syntmp-fx<-91 <)
|
|
(syntmp-fx=-90 =)
|
|
(syntmp-fx--89 -)
|
|
(syntmp-fx+-88 +)
|
|
(syntmp-noexpand-87 "noexpand"))
|
|
(begin
|
|
(syntmp-global-extend-116
|
|
'local-syntax
|
|
'letrec-syntax
|
|
#t)
|
|
(syntmp-global-extend-116
|
|
'local-syntax
|
|
'let-syntax
|
|
#f)
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'fluid-let-syntax
|
|
(lambda (syntmp-e-1043
|
|
syntmp-r-1044
|
|
syntmp-w-1045
|
|
syntmp-s-1046)
|
|
((lambda (syntmp-tmp-1047)
|
|
((lambda (syntmp-tmp-1048)
|
|
(if (if syntmp-tmp-1048
|
|
(apply (lambda (syntmp-_-1049
|
|
syntmp-var-1050
|
|
syntmp-val-1051
|
|
syntmp-e1-1052
|
|
syntmp-e2-1053)
|
|
(syntmp-valid-bound-ids?-143 syntmp-var-1050))
|
|
syntmp-tmp-1048)
|
|
#f)
|
|
(apply (lambda (syntmp-_-1055
|
|
syntmp-var-1056
|
|
syntmp-val-1057
|
|
syntmp-e1-1058
|
|
syntmp-e2-1059)
|
|
(let ((syntmp-names-1060
|
|
(map (lambda (syntmp-x-1061)
|
|
(syntmp-id-var-name-140
|
|
syntmp-x-1061
|
|
syntmp-w-1045))
|
|
syntmp-var-1056)))
|
|
(begin
|
|
(for-each
|
|
(lambda (syntmp-id-1063 syntmp-n-1064)
|
|
(let ((syntmp-t-1065
|
|
(syntmp-binding-type-110
|
|
(syntmp-lookup-115
|
|
syntmp-n-1064
|
|
syntmp-r-1044))))
|
|
(if (memv syntmp-t-1065
|
|
'(displaced-lexical))
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-id-1063
|
|
syntmp-w-1045
|
|
syntmp-s-1046)
|
|
"identifier out of context"))))
|
|
syntmp-var-1056
|
|
syntmp-names-1060)
|
|
(syntmp-chi-body-158
|
|
(cons syntmp-e1-1058 syntmp-e2-1059)
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1043
|
|
syntmp-w-1045
|
|
syntmp-s-1046)
|
|
(syntmp-extend-env-112
|
|
syntmp-names-1060
|
|
(let ((syntmp-trans-r-1068
|
|
(syntmp-macros-only-env-114
|
|
syntmp-r-1044)))
|
|
(map (lambda (syntmp-x-1069)
|
|
(cons 'macro
|
|
(syntmp-eval-local-transformer-161
|
|
(syntmp-chi-154
|
|
syntmp-x-1069
|
|
syntmp-trans-r-1068
|
|
syntmp-w-1045))))
|
|
syntmp-val-1057))
|
|
syntmp-r-1044)
|
|
syntmp-w-1045))))
|
|
syntmp-tmp-1048)
|
|
((lambda (syntmp-_-1071)
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1043
|
|
syntmp-w-1045
|
|
syntmp-s-1046)))
|
|
syntmp-tmp-1047)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1047
|
|
'(any #(each (any any)) any . each-any))))
|
|
syntmp-e-1043)))
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'quote
|
|
(lambda (syntmp-e-1072
|
|
syntmp-r-1073
|
|
syntmp-w-1074
|
|
syntmp-s-1075)
|
|
((lambda (syntmp-tmp-1076)
|
|
((lambda (syntmp-tmp-1077)
|
|
(if syntmp-tmp-1077
|
|
(apply (lambda (syntmp-_-1078 syntmp-e-1079)
|
|
(syntmp-build-data-98
|
|
syntmp-s-1075
|
|
(syntmp-strip-165 syntmp-e-1079 syntmp-w-1074)))
|
|
syntmp-tmp-1077)
|
|
((lambda (syntmp-_-1080)
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1072
|
|
syntmp-w-1074
|
|
syntmp-s-1075)))
|
|
syntmp-tmp-1076)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1076
|
|
'(any any))))
|
|
syntmp-e-1072)))
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'syntax
|
|
(letrec ((syntmp-regen-1088
|
|
(lambda (syntmp-x-1089)
|
|
(let ((syntmp-t-1090 (car syntmp-x-1089)))
|
|
(if (memv syntmp-t-1090 (quote (ref)))
|
|
(cadr syntmp-x-1089)
|
|
(if (memv syntmp-t-1090 (quote (primitive)))
|
|
(cadr syntmp-x-1089)
|
|
(if (memv syntmp-t-1090 (quote (quote)))
|
|
(syntmp-build-data-98 #f (cadr syntmp-x-1089))
|
|
(if (memv syntmp-t-1090 (quote (lambda)))
|
|
(list 'lambda
|
|
(cadr syntmp-x-1089)
|
|
(syntmp-regen-1088 (caddr syntmp-x-1089)))
|
|
(if (memv syntmp-t-1090 (quote (map)))
|
|
(let ((syntmp-ls-1091
|
|
(map syntmp-regen-1088
|
|
(cdr syntmp-x-1089))))
|
|
(cons (if (syntmp-fx=-90
|
|
(length syntmp-ls-1091)
|
|
2)
|
|
'map
|
|
'map)
|
|
syntmp-ls-1091))
|
|
(cons (car syntmp-x-1089)
|
|
(map syntmp-regen-1088
|
|
(cdr syntmp-x-1089)))))))))))
|
|
(syntmp-gen-vector-1087
|
|
(lambda (syntmp-x-1092)
|
|
(cond ((eq? (car syntmp-x-1092) (quote list))
|
|
(cons (quote vector) (cdr syntmp-x-1092)))
|
|
((eq? (car syntmp-x-1092) (quote quote))
|
|
(list 'quote
|
|
(list->vector (cadr syntmp-x-1092))))
|
|
(else (list (quote list->vector) syntmp-x-1092)))))
|
|
(syntmp-gen-append-1086
|
|
(lambda (syntmp-x-1093 syntmp-y-1094)
|
|
(if (equal? syntmp-y-1094 (quote (quote ())))
|
|
syntmp-x-1093
|
|
(list (quote append) syntmp-x-1093 syntmp-y-1094))))
|
|
(syntmp-gen-cons-1085
|
|
(lambda (syntmp-x-1095 syntmp-y-1096)
|
|
(let ((syntmp-t-1097 (car syntmp-y-1096)))
|
|
(if (memv syntmp-t-1097 (quote (quote)))
|
|
(if (eq? (car syntmp-x-1095) (quote quote))
|
|
(list 'quote
|
|
(cons (cadr syntmp-x-1095)
|
|
(cadr syntmp-y-1096)))
|
|
(if (eq? (cadr syntmp-y-1096) (quote ()))
|
|
(list (quote list) syntmp-x-1095)
|
|
(list (quote cons) syntmp-x-1095 syntmp-y-1096)))
|
|
(if (memv syntmp-t-1097 (quote (list)))
|
|
(cons 'list
|
|
(cons syntmp-x-1095 (cdr syntmp-y-1096)))
|
|
(list (quote cons) syntmp-x-1095 syntmp-y-1096))))))
|
|
(syntmp-gen-map-1084
|
|
(lambda (syntmp-e-1098 syntmp-map-env-1099)
|
|
(let ((syntmp-formals-1100
|
|
(map cdr syntmp-map-env-1099))
|
|
(syntmp-actuals-1101
|
|
(map (lambda (syntmp-x-1102)
|
|
(list (quote ref) (car syntmp-x-1102)))
|
|
syntmp-map-env-1099)))
|
|
(cond ((eq? (car syntmp-e-1098) (quote ref))
|
|
(car syntmp-actuals-1101))
|
|
((andmap
|
|
(lambda (syntmp-x-1103)
|
|
(and (eq? (car syntmp-x-1103) (quote ref))
|
|
(memq (cadr syntmp-x-1103)
|
|
syntmp-formals-1100)))
|
|
(cdr syntmp-e-1098))
|
|
(cons 'map
|
|
(cons (list 'primitive
|
|
(car syntmp-e-1098))
|
|
(map (let ((syntmp-r-1104
|
|
(map cons
|
|
syntmp-formals-1100
|
|
syntmp-actuals-1101)))
|
|
(lambda (syntmp-x-1105)
|
|
(cdr (assq (cadr syntmp-x-1105)
|
|
syntmp-r-1104))))
|
|
(cdr syntmp-e-1098)))))
|
|
(else
|
|
(cons 'map
|
|
(cons (list 'lambda
|
|
syntmp-formals-1100
|
|
syntmp-e-1098)
|
|
syntmp-actuals-1101)))))))
|
|
(syntmp-gen-mappend-1083
|
|
(lambda (syntmp-e-1106 syntmp-map-env-1107)
|
|
(list 'apply
|
|
'(primitive append)
|
|
(syntmp-gen-map-1084
|
|
syntmp-e-1106
|
|
syntmp-map-env-1107))))
|
|
(syntmp-gen-ref-1082
|
|
(lambda (syntmp-src-1108
|
|
syntmp-var-1109
|
|
syntmp-level-1110
|
|
syntmp-maps-1111)
|
|
(if (syntmp-fx=-90 syntmp-level-1110 0)
|
|
(values syntmp-var-1109 syntmp-maps-1111)
|
|
(if (null? syntmp-maps-1111)
|
|
(syntax-error
|
|
syntmp-src-1108
|
|
"missing ellipsis in syntax form")
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-gen-ref-1082
|
|
syntmp-src-1108
|
|
syntmp-var-1109
|
|
(syntmp-fx--89 syntmp-level-1110 1)
|
|
(cdr syntmp-maps-1111)))
|
|
(lambda (syntmp-outer-var-1112 syntmp-outer-maps-1113)
|
|
(let ((syntmp-b-1114
|
|
(assq syntmp-outer-var-1112
|
|
(car syntmp-maps-1111))))
|
|
(if syntmp-b-1114
|
|
(values (cdr syntmp-b-1114) syntmp-maps-1111)
|
|
(let ((syntmp-inner-var-1115
|
|
(syntmp-gen-var-166 (quote tmp))))
|
|
(values
|
|
syntmp-inner-var-1115
|
|
(cons (cons (cons syntmp-outer-var-1112
|
|
syntmp-inner-var-1115)
|
|
(car syntmp-maps-1111))
|
|
syntmp-outer-maps-1113)))))))))))
|
|
(syntmp-gen-syntax-1081
|
|
(lambda (syntmp-src-1116
|
|
syntmp-e-1117
|
|
syntmp-r-1118
|
|
syntmp-maps-1119
|
|
syntmp-ellipsis?-1120)
|
|
(if (syntmp-id?-118 syntmp-e-1117)
|
|
(let ((syntmp-label-1121
|
|
(syntmp-id-var-name-140
|
|
syntmp-e-1117
|
|
'(()))))
|
|
(let ((syntmp-b-1122
|
|
(syntmp-lookup-115
|
|
syntmp-label-1121
|
|
syntmp-r-1118)))
|
|
(if (eq? (syntmp-binding-type-110 syntmp-b-1122)
|
|
'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((syntmp-var.lev-1123
|
|
(syntmp-binding-value-111
|
|
syntmp-b-1122)))
|
|
(syntmp-gen-ref-1082
|
|
syntmp-src-1116
|
|
(car syntmp-var.lev-1123)
|
|
(cdr syntmp-var.lev-1123)
|
|
syntmp-maps-1119)))
|
|
(lambda (syntmp-var-1124 syntmp-maps-1125)
|
|
(values
|
|
(list (quote ref) syntmp-var-1124)
|
|
syntmp-maps-1125)))
|
|
(if (syntmp-ellipsis?-1120
|
|
syntmp-e-1117
|
|
syntmp-r-1118)
|
|
(syntax-error
|
|
syntmp-src-1116
|
|
"misplaced ellipsis in syntax form")
|
|
(values
|
|
(list (quote quote) syntmp-e-1117)
|
|
syntmp-maps-1119)))))
|
|
((lambda (syntmp-tmp-1126)
|
|
((lambda (syntmp-tmp-1127)
|
|
(if (if syntmp-tmp-1127
|
|
(apply (lambda (syntmp-dots-1128
|
|
syntmp-e-1129)
|
|
(syntmp-ellipsis?-1120
|
|
syntmp-dots-1128
|
|
syntmp-r-1118))
|
|
syntmp-tmp-1127)
|
|
#f)
|
|
(apply (lambda (syntmp-dots-1130 syntmp-e-1131)
|
|
(syntmp-gen-syntax-1081
|
|
syntmp-src-1116
|
|
syntmp-e-1131
|
|
syntmp-r-1118
|
|
syntmp-maps-1119
|
|
(lambda (syntmp-e-1132 syntmp-r-1133)
|
|
#f)))
|
|
syntmp-tmp-1127)
|
|
((lambda (syntmp-tmp-1134)
|
|
(if (if syntmp-tmp-1134
|
|
(apply (lambda (syntmp-x-1135
|
|
syntmp-dots-1136
|
|
syntmp-y-1137)
|
|
(syntmp-ellipsis?-1120
|
|
syntmp-dots-1136
|
|
syntmp-r-1118))
|
|
syntmp-tmp-1134)
|
|
#f)
|
|
(apply (lambda (syntmp-x-1138
|
|
syntmp-dots-1139
|
|
syntmp-y-1140)
|
|
(let syntmp-f-1141 ((syntmp-y-1142
|
|
syntmp-y-1140)
|
|
(syntmp-k-1143
|
|
(lambda (syntmp-maps-1144)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-gen-syntax-1081
|
|
syntmp-src-1116
|
|
syntmp-x-1138
|
|
syntmp-r-1118
|
|
(cons '()
|
|
syntmp-maps-1144)
|
|
syntmp-ellipsis?-1120))
|
|
(lambda (syntmp-x-1145
|
|
syntmp-maps-1146)
|
|
(if (null? (car syntmp-maps-1146))
|
|
(syntax-error
|
|
syntmp-src-1116
|
|
"extra ellipsis in syntax form")
|
|
(values
|
|
(syntmp-gen-map-1084
|
|
syntmp-x-1145
|
|
(car syntmp-maps-1146))
|
|
(cdr syntmp-maps-1146))))))))
|
|
((lambda (syntmp-tmp-1147)
|
|
((lambda (syntmp-tmp-1148)
|
|
(if (if syntmp-tmp-1148
|
|
(apply (lambda (syntmp-dots-1149
|
|
syntmp-y-1150)
|
|
(syntmp-ellipsis?-1120
|
|
syntmp-dots-1149
|
|
syntmp-r-1118))
|
|
syntmp-tmp-1148)
|
|
#f)
|
|
(apply (lambda (syntmp-dots-1151
|
|
syntmp-y-1152)
|
|
(syntmp-f-1141
|
|
syntmp-y-1152
|
|
(lambda (syntmp-maps-1153)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-k-1143
|
|
(cons '()
|
|
syntmp-maps-1153)))
|
|
(lambda (syntmp-x-1154
|
|
syntmp-maps-1155)
|
|
(if (null? (car syntmp-maps-1155))
|
|
(syntax-error
|
|
syntmp-src-1116
|
|
"extra ellipsis in syntax form")
|
|
(values
|
|
(syntmp-gen-mappend-1083
|
|
syntmp-x-1154
|
|
(car syntmp-maps-1155))
|
|
(cdr syntmp-maps-1155))))))))
|
|
syntmp-tmp-1148)
|
|
((lambda (syntmp-_-1156)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-gen-syntax-1081
|
|
syntmp-src-1116
|
|
syntmp-y-1142
|
|
syntmp-r-1118
|
|
syntmp-maps-1119
|
|
syntmp-ellipsis?-1120))
|
|
(lambda (syntmp-y-1157
|
|
syntmp-maps-1158)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-k-1143
|
|
syntmp-maps-1158))
|
|
(lambda (syntmp-x-1159
|
|
syntmp-maps-1160)
|
|
(values
|
|
(syntmp-gen-append-1086
|
|
syntmp-x-1159
|
|
syntmp-y-1157)
|
|
syntmp-maps-1160))))))
|
|
syntmp-tmp-1147)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1147
|
|
'(any . any))))
|
|
syntmp-y-1142)))
|
|
syntmp-tmp-1134)
|
|
((lambda (syntmp-tmp-1161)
|
|
(if syntmp-tmp-1161
|
|
(apply (lambda (syntmp-x-1162
|
|
syntmp-y-1163)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-gen-syntax-1081
|
|
syntmp-src-1116
|
|
syntmp-x-1162
|
|
syntmp-r-1118
|
|
syntmp-maps-1119
|
|
syntmp-ellipsis?-1120))
|
|
(lambda (syntmp-x-1164
|
|
syntmp-maps-1165)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-gen-syntax-1081
|
|
syntmp-src-1116
|
|
syntmp-y-1163
|
|
syntmp-r-1118
|
|
syntmp-maps-1165
|
|
syntmp-ellipsis?-1120))
|
|
(lambda (syntmp-y-1166
|
|
syntmp-maps-1167)
|
|
(values
|
|
(syntmp-gen-cons-1085
|
|
syntmp-x-1164
|
|
syntmp-y-1166)
|
|
syntmp-maps-1167))))))
|
|
syntmp-tmp-1161)
|
|
((lambda (syntmp-tmp-1168)
|
|
(if syntmp-tmp-1168
|
|
(apply (lambda (syntmp-e1-1169
|
|
syntmp-e2-1170)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-gen-syntax-1081
|
|
syntmp-src-1116
|
|
(cons syntmp-e1-1169
|
|
syntmp-e2-1170)
|
|
syntmp-r-1118
|
|
syntmp-maps-1119
|
|
syntmp-ellipsis?-1120))
|
|
(lambda (syntmp-e-1172
|
|
syntmp-maps-1173)
|
|
(values
|
|
(syntmp-gen-vector-1087
|
|
syntmp-e-1172)
|
|
syntmp-maps-1173))))
|
|
syntmp-tmp-1168)
|
|
((lambda (syntmp-_-1174)
|
|
(values
|
|
(list 'quote
|
|
syntmp-e-1117)
|
|
syntmp-maps-1119))
|
|
syntmp-tmp-1126)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1126
|
|
'#(vector (any . each-any))))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1126
|
|
'(any . any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1126
|
|
'(any any . any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1126
|
|
'(any any))))
|
|
syntmp-e-1117)))))
|
|
(lambda (syntmp-e-1175
|
|
syntmp-r-1176
|
|
syntmp-w-1177
|
|
syntmp-s-1178)
|
|
(let ((syntmp-e-1179
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1175
|
|
syntmp-w-1177
|
|
syntmp-s-1178)))
|
|
((lambda (syntmp-tmp-1180)
|
|
((lambda (syntmp-tmp-1181)
|
|
(if syntmp-tmp-1181
|
|
(apply (lambda (syntmp-_-1182 syntmp-x-1183)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-gen-syntax-1081
|
|
syntmp-e-1179
|
|
syntmp-x-1183
|
|
syntmp-r-1176
|
|
'()
|
|
syntmp-ellipsis?-163))
|
|
(lambda (syntmp-e-1184 syntmp-maps-1185)
|
|
(syntmp-regen-1088 syntmp-e-1184))))
|
|
syntmp-tmp-1181)
|
|
((lambda (syntmp-_-1186)
|
|
(syntax-error syntmp-e-1179))
|
|
syntmp-tmp-1180)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1180
|
|
'(any any))))
|
|
syntmp-e-1179)))))
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'lambda
|
|
(lambda (syntmp-e-1187
|
|
syntmp-r-1188
|
|
syntmp-w-1189
|
|
syntmp-s-1190)
|
|
((lambda (syntmp-tmp-1191)
|
|
((lambda (syntmp-tmp-1192)
|
|
(if syntmp-tmp-1192
|
|
(apply (lambda (syntmp-_-1193 syntmp-c-1194)
|
|
(syntmp-chi-lambda-clause-159
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1187
|
|
syntmp-w-1189
|
|
syntmp-s-1190)
|
|
syntmp-c-1194
|
|
syntmp-r-1188
|
|
syntmp-w-1189
|
|
(lambda (syntmp-vars-1195 syntmp-body-1196)
|
|
(list 'lambda
|
|
syntmp-vars-1195
|
|
syntmp-body-1196))))
|
|
syntmp-tmp-1192)
|
|
(syntax-error syntmp-tmp-1191)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1191
|
|
'(any . any))))
|
|
syntmp-e-1187)))
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'with-ellipsis
|
|
(lambda (syntmp-e-1197
|
|
syntmp-r-1198
|
|
syntmp-w-1199
|
|
syntmp-s-1200)
|
|
(let ((syntmp-tmp-1201 syntmp-e-1197))
|
|
(let ((syntmp-tmp-1202
|
|
(syntax-dispatch
|
|
syntmp-tmp-1201
|
|
'(_ any any . each-any))))
|
|
(if (and syntmp-tmp-1202
|
|
(apply (lambda (syntmp-dots-1203
|
|
syntmp-e1-1204
|
|
syntmp-e2-1205)
|
|
(syntmp-id?-118 syntmp-dots-1203))
|
|
syntmp-tmp-1202))
|
|
(apply (lambda (syntmp-dots-1206 syntmp-e1-1207 syntmp-e2-1208)
|
|
(let ((syntmp-id-1209
|
|
(if (symbol? syntmp-dots-1206)
|
|
'$sc-ellipsis
|
|
(syntmp-make-syntax-object-103
|
|
'$sc-ellipsis
|
|
(syntmp-syntax-object-wrap-106
|
|
syntmp-dots-1206)))))
|
|
(let ((syntmp-ids-1210 (list syntmp-id-1209))
|
|
(syntmp-labels-1211
|
|
(list (syntmp-gen-label-123)))
|
|
(syntmp-bindings-1212
|
|
(list (cons 'ellipsis
|
|
(syntmp-source-wrap-147
|
|
syntmp-dots-1206
|
|
syntmp-w-1199
|
|
syntmp-s-1200)))))
|
|
(let ((syntmp-nw-1213
|
|
(syntmp-make-binding-wrap-135
|
|
syntmp-ids-1210
|
|
syntmp-labels-1211
|
|
syntmp-w-1199))
|
|
(syntmp-nr-1214
|
|
(syntmp-extend-env-112
|
|
syntmp-labels-1211
|
|
syntmp-bindings-1212
|
|
syntmp-r-1198)))
|
|
(syntmp-chi-body-158
|
|
(cons syntmp-e1-1207 syntmp-e2-1208)
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1197
|
|
syntmp-nw-1213
|
|
syntmp-s-1200)
|
|
syntmp-nr-1214
|
|
syntmp-nw-1213)))))
|
|
syntmp-tmp-1202)
|
|
(syntax-error (quote with-ellipsis) "bad syntax"))))))
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'let
|
|
(letrec ((syntmp-chi-let-1215
|
|
(lambda (syntmp-e-1216
|
|
syntmp-r-1217
|
|
syntmp-w-1218
|
|
syntmp-s-1219
|
|
syntmp-constructor-1220
|
|
syntmp-ids-1221
|
|
syntmp-vals-1222
|
|
syntmp-exps-1223)
|
|
(if (not (syntmp-valid-bound-ids?-143 syntmp-ids-1221))
|
|
(syntax-error
|
|
syntmp-e-1216
|
|
"duplicate bound variable in")
|
|
(let ((syntmp-labels-1224
|
|
(syntmp-gen-labels-124 syntmp-ids-1221))
|
|
(syntmp-new-vars-1225
|
|
(map syntmp-gen-var-166 syntmp-ids-1221)))
|
|
(let ((syntmp-nw-1226
|
|
(syntmp-make-binding-wrap-135
|
|
syntmp-ids-1221
|
|
syntmp-labels-1224
|
|
syntmp-w-1218))
|
|
(syntmp-nr-1227
|
|
(syntmp-extend-var-env-113
|
|
syntmp-labels-1224
|
|
syntmp-new-vars-1225
|
|
syntmp-r-1217)))
|
|
(syntmp-constructor-1220
|
|
syntmp-s-1219
|
|
syntmp-new-vars-1225
|
|
(map (lambda (syntmp-x-1228)
|
|
(syntmp-chi-154
|
|
syntmp-x-1228
|
|
syntmp-r-1217
|
|
syntmp-w-1218))
|
|
syntmp-vals-1222)
|
|
(syntmp-chi-body-158
|
|
syntmp-exps-1223
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1216
|
|
syntmp-nw-1226
|
|
syntmp-s-1219)
|
|
syntmp-nr-1227
|
|
syntmp-nw-1226))))))))
|
|
(lambda (syntmp-e-1229
|
|
syntmp-r-1230
|
|
syntmp-w-1231
|
|
syntmp-s-1232)
|
|
((lambda (syntmp-tmp-1233)
|
|
((lambda (syntmp-tmp-1234)
|
|
(if syntmp-tmp-1234
|
|
(apply (lambda (syntmp-_-1235
|
|
syntmp-id-1236
|
|
syntmp-val-1237
|
|
syntmp-e1-1238
|
|
syntmp-e2-1239)
|
|
(syntmp-chi-let-1215
|
|
syntmp-e-1229
|
|
syntmp-r-1230
|
|
syntmp-w-1231
|
|
syntmp-s-1232
|
|
syntmp-build-let-100
|
|
syntmp-id-1236
|
|
syntmp-val-1237
|
|
(cons syntmp-e1-1238 syntmp-e2-1239)))
|
|
syntmp-tmp-1234)
|
|
((lambda (syntmp-tmp-1243)
|
|
(if (if syntmp-tmp-1243
|
|
(apply (lambda (syntmp-_-1244
|
|
syntmp-f-1245
|
|
syntmp-id-1246
|
|
syntmp-val-1247
|
|
syntmp-e1-1248
|
|
syntmp-e2-1249)
|
|
(syntmp-id?-118 syntmp-f-1245))
|
|
syntmp-tmp-1243)
|
|
#f)
|
|
(apply (lambda (syntmp-_-1250
|
|
syntmp-f-1251
|
|
syntmp-id-1252
|
|
syntmp-val-1253
|
|
syntmp-e1-1254
|
|
syntmp-e2-1255)
|
|
(syntmp-chi-let-1215
|
|
syntmp-e-1229
|
|
syntmp-r-1230
|
|
syntmp-w-1231
|
|
syntmp-s-1232
|
|
syntmp-build-named-let-101
|
|
(cons syntmp-f-1251 syntmp-id-1252)
|
|
syntmp-val-1253
|
|
(cons syntmp-e1-1254 syntmp-e2-1255)))
|
|
syntmp-tmp-1243)
|
|
((lambda (syntmp-_-1259)
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1229
|
|
syntmp-w-1231
|
|
syntmp-s-1232)))
|
|
syntmp-tmp-1233)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1233
|
|
'(any any #(each (any any)) any . each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1233
|
|
'(any #(each (any any)) any . each-any))))
|
|
syntmp-e-1229))))
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'letrec
|
|
(lambda (syntmp-e-1260
|
|
syntmp-r-1261
|
|
syntmp-w-1262
|
|
syntmp-s-1263)
|
|
((lambda (syntmp-tmp-1264)
|
|
((lambda (syntmp-tmp-1265)
|
|
(if syntmp-tmp-1265
|
|
(apply (lambda (syntmp-_-1266
|
|
syntmp-id-1267
|
|
syntmp-val-1268
|
|
syntmp-e1-1269
|
|
syntmp-e2-1270)
|
|
(let ((syntmp-ids-1271 syntmp-id-1267))
|
|
(if (not (syntmp-valid-bound-ids?-143
|
|
syntmp-ids-1271))
|
|
(syntax-error
|
|
syntmp-e-1260
|
|
"duplicate bound variable in")
|
|
(let ((syntmp-labels-1273
|
|
(syntmp-gen-labels-124 syntmp-ids-1271))
|
|
(syntmp-new-vars-1274
|
|
(map syntmp-gen-var-166 syntmp-ids-1271)))
|
|
(let ((syntmp-w-1275
|
|
(syntmp-make-binding-wrap-135
|
|
syntmp-ids-1271
|
|
syntmp-labels-1273
|
|
syntmp-w-1262))
|
|
(syntmp-r-1276
|
|
(syntmp-extend-var-env-113
|
|
syntmp-labels-1273
|
|
syntmp-new-vars-1274
|
|
syntmp-r-1261)))
|
|
(syntmp-build-letrec-102
|
|
syntmp-s-1263
|
|
syntmp-new-vars-1274
|
|
(map (lambda (syntmp-x-1277)
|
|
(syntmp-chi-154
|
|
syntmp-x-1277
|
|
syntmp-r-1276
|
|
syntmp-w-1275))
|
|
syntmp-val-1268)
|
|
(syntmp-chi-body-158
|
|
(cons syntmp-e1-1269 syntmp-e2-1270)
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1260
|
|
syntmp-w-1275
|
|
syntmp-s-1263)
|
|
syntmp-r-1276
|
|
syntmp-w-1275)))))))
|
|
syntmp-tmp-1265)
|
|
((lambda (syntmp-_-1280)
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1260
|
|
syntmp-w-1262
|
|
syntmp-s-1263)))
|
|
syntmp-tmp-1264)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1264
|
|
'(any #(each (any any)) any . each-any))))
|
|
syntmp-e-1260)))
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'set!
|
|
(lambda (syntmp-e-1281
|
|
syntmp-r-1282
|
|
syntmp-w-1283
|
|
syntmp-s-1284)
|
|
((lambda (syntmp-tmp-1285)
|
|
((lambda (syntmp-tmp-1286)
|
|
(if (if syntmp-tmp-1286
|
|
(apply (lambda (syntmp-_-1287
|
|
syntmp-id-1288
|
|
syntmp-val-1289)
|
|
(syntmp-id?-118 syntmp-id-1288))
|
|
syntmp-tmp-1286)
|
|
#f)
|
|
(apply (lambda (syntmp-_-1290 syntmp-id-1291 syntmp-val-1292)
|
|
(let ((syntmp-val-1293
|
|
(syntmp-chi-154
|
|
syntmp-val-1292
|
|
syntmp-r-1282
|
|
syntmp-w-1283))
|
|
(syntmp-n-1294
|
|
(syntmp-id-var-name-140
|
|
syntmp-id-1291
|
|
syntmp-w-1283)))
|
|
(let ((syntmp-b-1295
|
|
(syntmp-lookup-115
|
|
syntmp-n-1294
|
|
syntmp-r-1282)))
|
|
(let ((syntmp-t-1296
|
|
(syntmp-binding-type-110 syntmp-b-1295)))
|
|
(if (memv syntmp-t-1296 (quote (lexical)))
|
|
(list 'set!
|
|
(syntmp-binding-value-111 syntmp-b-1295)
|
|
syntmp-val-1293)
|
|
(if (memv syntmp-t-1296 (quote (global)))
|
|
(list 'set!
|
|
syntmp-n-1294
|
|
syntmp-val-1293)
|
|
(if (memv syntmp-t-1296
|
|
'(displaced-lexical))
|
|
(syntax-error
|
|
(syntmp-wrap-146
|
|
syntmp-id-1291
|
|
syntmp-w-1283)
|
|
"identifier out of context")
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1281
|
|
syntmp-w-1283
|
|
syntmp-s-1284)))))))))
|
|
syntmp-tmp-1286)
|
|
((lambda (syntmp-tmp-1297)
|
|
(if syntmp-tmp-1297
|
|
(apply (lambda (syntmp-_-1298
|
|
syntmp-getter-1299
|
|
syntmp-arg-1300
|
|
syntmp-val-1301)
|
|
(cons (syntmp-chi-154
|
|
(list '#(syntax-object
|
|
setter
|
|
((top)
|
|
#(ribcage
|
|
#(_ getter arg val)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e r w s)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i"))))
|
|
syntmp-getter-1299)
|
|
syntmp-r-1282
|
|
syntmp-w-1283)
|
|
(map (lambda (syntmp-e-1302)
|
|
(syntmp-chi-154
|
|
syntmp-e-1302
|
|
syntmp-r-1282
|
|
syntmp-w-1283))
|
|
(append
|
|
syntmp-arg-1300
|
|
(list syntmp-val-1301)))))
|
|
syntmp-tmp-1297)
|
|
((lambda (syntmp-_-1304)
|
|
(syntax-error
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1281
|
|
syntmp-w-1283
|
|
syntmp-s-1284)))
|
|
syntmp-tmp-1285)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1285
|
|
'(any (any . each-any) any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1285
|
|
'(any any any))))
|
|
syntmp-e-1281)))
|
|
(syntmp-global-extend-116
|
|
'begin
|
|
'begin
|
|
'())
|
|
(syntmp-global-extend-116
|
|
'define
|
|
'define
|
|
'())
|
|
(syntmp-global-extend-116
|
|
'define-syntax
|
|
'define-syntax
|
|
'())
|
|
(syntmp-global-extend-116
|
|
'eval-when
|
|
'eval-when
|
|
'())
|
|
(syntmp-global-extend-116
|
|
'core
|
|
'syntax-case
|
|
(letrec ((syntmp-gen-syntax-case-1308
|
|
(lambda (syntmp-x-1309
|
|
syntmp-keys-1310
|
|
syntmp-clauses-1311
|
|
syntmp-r-1312)
|
|
(if (null? syntmp-clauses-1311)
|
|
(list (quote syntax-error) syntmp-x-1309)
|
|
((lambda (syntmp-tmp-1313)
|
|
((lambda (syntmp-tmp-1314)
|
|
(if syntmp-tmp-1314
|
|
(apply (lambda (syntmp-pat-1315 syntmp-exp-1316)
|
|
(if (and (syntmp-id?-118 syntmp-pat-1315)
|
|
(andmap
|
|
(lambda (syntmp-x-1317)
|
|
(not (syntmp-free-id=?-141
|
|
syntmp-pat-1315
|
|
syntmp-x-1317)))
|
|
(cons '#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x
|
|
keys
|
|
clauses
|
|
r)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i" "i" "i" "i"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
strip-annotation
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-lambda-clause
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
unannotate
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
error-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
annotation?
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(define-structure)
|
|
((top))
|
|
("i"))))
|
|
syntmp-keys-1310)))
|
|
(let ((syntmp-labels-1318
|
|
(list (syntmp-gen-label-123)))
|
|
(syntmp-var-1319
|
|
(syntmp-gen-var-166
|
|
syntmp-pat-1315)))
|
|
(list (list 'lambda
|
|
(list syntmp-var-1319)
|
|
(syntmp-chi-154
|
|
syntmp-exp-1316
|
|
(syntmp-extend-env-112
|
|
syntmp-labels-1318
|
|
(list (cons 'syntax
|
|
(cons syntmp-var-1319
|
|
0)))
|
|
syntmp-r-1312)
|
|
(syntmp-make-binding-wrap-135
|
|
(list syntmp-pat-1315)
|
|
syntmp-labels-1318
|
|
'(()))))
|
|
syntmp-x-1309))
|
|
(syntmp-gen-clause-1307
|
|
syntmp-x-1309
|
|
syntmp-keys-1310
|
|
(cdr syntmp-clauses-1311)
|
|
syntmp-r-1312
|
|
syntmp-pat-1315
|
|
#t
|
|
syntmp-exp-1316)))
|
|
syntmp-tmp-1314)
|
|
((lambda (syntmp-tmp-1320)
|
|
(if syntmp-tmp-1320
|
|
(apply (lambda (syntmp-pat-1321
|
|
syntmp-fender-1322
|
|
syntmp-exp-1323)
|
|
(syntmp-gen-clause-1307
|
|
syntmp-x-1309
|
|
syntmp-keys-1310
|
|
(cdr syntmp-clauses-1311)
|
|
syntmp-r-1312
|
|
syntmp-pat-1321
|
|
syntmp-fender-1322
|
|
syntmp-exp-1323))
|
|
syntmp-tmp-1320)
|
|
((lambda (syntmp-_-1324)
|
|
(syntax-error
|
|
(car syntmp-clauses-1311)
|
|
"invalid syntax-case clause"))
|
|
syntmp-tmp-1313)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1313
|
|
'(any any any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1313
|
|
'(any any))))
|
|
(car syntmp-clauses-1311)))))
|
|
(syntmp-gen-clause-1307
|
|
(lambda (syntmp-x-1325
|
|
syntmp-keys-1326
|
|
syntmp-clauses-1327
|
|
syntmp-r-1328
|
|
syntmp-pat-1329
|
|
syntmp-fender-1330
|
|
syntmp-exp-1331)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-convert-pattern-1305
|
|
syntmp-pat-1329
|
|
syntmp-keys-1326
|
|
(lambda (syntmp-e-1332)
|
|
(syntmp-ellipsis?-163
|
|
syntmp-e-1332
|
|
syntmp-r-1328))))
|
|
(lambda (syntmp-p-1333 syntmp-pvars-1334)
|
|
(cond ((not (syntmp-distinct-bound-ids?-144
|
|
(map car syntmp-pvars-1334)))
|
|
(syntax-error
|
|
syntmp-pat-1329
|
|
"duplicate pattern variable in syntax-case pattern"))
|
|
((not (andmap
|
|
(lambda (syntmp-x-1335)
|
|
(not (syntmp-ellipsis?-163
|
|
(car syntmp-x-1335)
|
|
syntmp-r-1328)))
|
|
syntmp-pvars-1334))
|
|
(syntax-error
|
|
syntmp-pat-1329
|
|
"misplaced ellipsis in syntax-case pattern"))
|
|
(else
|
|
(let ((syntmp-y-1336
|
|
(syntmp-gen-var-166 (quote tmp))))
|
|
(list (list 'lambda
|
|
(list syntmp-y-1336)
|
|
(let ((syntmp-y-1337
|
|
syntmp-y-1336))
|
|
(list 'if
|
|
((lambda (syntmp-tmp-1338)
|
|
((lambda (syntmp-tmp-1339)
|
|
(if syntmp-tmp-1339
|
|
(apply (lambda ()
|
|
syntmp-y-1337)
|
|
syntmp-tmp-1339)
|
|
((lambda (syntmp-_-1340)
|
|
(list 'if
|
|
syntmp-y-1337
|
|
(syntmp-build-dispatch-call-1306
|
|
syntmp-pvars-1334
|
|
syntmp-fender-1330
|
|
syntmp-y-1337
|
|
syntmp-r-1328)
|
|
(syntmp-build-data-98
|
|
#f
|
|
#f)))
|
|
syntmp-tmp-1338)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1338
|
|
'#(atom #t))))
|
|
syntmp-fender-1330)
|
|
(syntmp-build-dispatch-call-1306
|
|
syntmp-pvars-1334
|
|
syntmp-exp-1331
|
|
syntmp-y-1337
|
|
syntmp-r-1328)
|
|
(syntmp-gen-syntax-case-1308
|
|
syntmp-x-1325
|
|
syntmp-keys-1326
|
|
syntmp-clauses-1327
|
|
syntmp-r-1328))))
|
|
(if (eq? syntmp-p-1333 (quote any))
|
|
(list (quote list) syntmp-x-1325)
|
|
(list 'syntax-dispatch
|
|
syntmp-x-1325
|
|
(syntmp-build-data-98
|
|
#f
|
|
syntmp-p-1333)))))))))))
|
|
(syntmp-build-dispatch-call-1306
|
|
(lambda (syntmp-pvars-1341
|
|
syntmp-exp-1342
|
|
syntmp-y-1343
|
|
syntmp-r-1344)
|
|
(let ((syntmp-ids-1345 (map car syntmp-pvars-1341))
|
|
(syntmp-levels-1346 (map cdr syntmp-pvars-1341)))
|
|
(let ((syntmp-labels-1347
|
|
(syntmp-gen-labels-124 syntmp-ids-1345))
|
|
(syntmp-new-vars-1348
|
|
(map syntmp-gen-var-166 syntmp-ids-1345)))
|
|
(list 'apply
|
|
(list 'lambda
|
|
syntmp-new-vars-1348
|
|
(syntmp-chi-154
|
|
syntmp-exp-1342
|
|
(syntmp-extend-env-112
|
|
syntmp-labels-1347
|
|
(map (lambda (syntmp-var-1349
|
|
syntmp-level-1350)
|
|
(cons 'syntax
|
|
(cons syntmp-var-1349
|
|
syntmp-level-1350)))
|
|
syntmp-new-vars-1348
|
|
(map cdr syntmp-pvars-1341))
|
|
syntmp-r-1344)
|
|
(syntmp-make-binding-wrap-135
|
|
syntmp-ids-1345
|
|
syntmp-labels-1347
|
|
'(()))))
|
|
syntmp-y-1343)))))
|
|
(syntmp-convert-pattern-1305
|
|
(lambda (syntmp-pattern-1351
|
|
syntmp-keys-1352
|
|
syntmp-ellipsis?-1353)
|
|
(let syntmp-cvt-1354 ((syntmp-p-1355 syntmp-pattern-1351)
|
|
(syntmp-n-1356 0)
|
|
(syntmp-ids-1357 (quote ())))
|
|
(if (syntmp-id?-118 syntmp-p-1355)
|
|
(if (syntmp-bound-id-member?-145
|
|
syntmp-p-1355
|
|
syntmp-keys-1352)
|
|
(values
|
|
(vector (quote free-id) syntmp-p-1355)
|
|
syntmp-ids-1357)
|
|
(values
|
|
'any
|
|
(cons (cons syntmp-p-1355 syntmp-n-1356)
|
|
syntmp-ids-1357)))
|
|
((lambda (syntmp-tmp-1358)
|
|
((lambda (syntmp-tmp-1359)
|
|
(if (if syntmp-tmp-1359
|
|
(apply (lambda (syntmp-x-1360
|
|
syntmp-dots-1361)
|
|
(syntmp-ellipsis?-1353
|
|
syntmp-dots-1361))
|
|
syntmp-tmp-1359)
|
|
#f)
|
|
(apply (lambda (syntmp-x-1362 syntmp-dots-1363)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-cvt-1354
|
|
syntmp-x-1362
|
|
(syntmp-fx+-88 syntmp-n-1356 1)
|
|
syntmp-ids-1357))
|
|
(lambda (syntmp-p-1364
|
|
syntmp-ids-1365)
|
|
(values
|
|
(if (eq? syntmp-p-1364
|
|
'any)
|
|
'each-any
|
|
(vector
|
|
'each
|
|
syntmp-p-1364))
|
|
syntmp-ids-1365))))
|
|
syntmp-tmp-1359)
|
|
((lambda (syntmp-tmp-1366)
|
|
(if syntmp-tmp-1366
|
|
(apply (lambda (syntmp-x-1367
|
|
syntmp-y-1368)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-cvt-1354
|
|
syntmp-y-1368
|
|
syntmp-n-1356
|
|
syntmp-ids-1357))
|
|
(lambda (syntmp-y-1369
|
|
syntmp-ids-1370)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-cvt-1354
|
|
syntmp-x-1367
|
|
syntmp-n-1356
|
|
syntmp-ids-1370))
|
|
(lambda (syntmp-x-1371
|
|
syntmp-ids-1372)
|
|
(values
|
|
(cons syntmp-x-1371
|
|
syntmp-y-1369)
|
|
syntmp-ids-1372))))))
|
|
syntmp-tmp-1366)
|
|
((lambda (syntmp-tmp-1373)
|
|
(if syntmp-tmp-1373
|
|
(apply (lambda ()
|
|
(values
|
|
'()
|
|
syntmp-ids-1357))
|
|
syntmp-tmp-1373)
|
|
((lambda (syntmp-tmp-1374)
|
|
(if syntmp-tmp-1374
|
|
(apply (lambda (syntmp-x-1375)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntmp-cvt-1354
|
|
syntmp-x-1375
|
|
syntmp-n-1356
|
|
syntmp-ids-1357))
|
|
(lambda (syntmp-p-1377
|
|
syntmp-ids-1378)
|
|
(values
|
|
(vector
|
|
'vector
|
|
syntmp-p-1377)
|
|
syntmp-ids-1378))))
|
|
syntmp-tmp-1374)
|
|
((lambda (syntmp-x-1379)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(syntmp-strip-165
|
|
syntmp-p-1355
|
|
'(())))
|
|
syntmp-ids-1357))
|
|
syntmp-tmp-1358)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1358
|
|
'#(vector each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1358
|
|
'()))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1358
|
|
'(any . any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1358
|
|
'(any any))))
|
|
syntmp-p-1355))))))
|
|
(lambda (syntmp-e-1380
|
|
syntmp-r-1381
|
|
syntmp-w-1382
|
|
syntmp-s-1383)
|
|
(let ((syntmp-e-1384
|
|
(syntmp-source-wrap-147
|
|
syntmp-e-1380
|
|
syntmp-w-1382
|
|
syntmp-s-1383)))
|
|
((lambda (syntmp-tmp-1385)
|
|
((lambda (syntmp-tmp-1386)
|
|
(if syntmp-tmp-1386
|
|
(apply (lambda (syntmp-_-1387
|
|
syntmp-val-1388
|
|
syntmp-key-1389
|
|
syntmp-m-1390)
|
|
(if (andmap
|
|
(lambda (syntmp-x-1391)
|
|
(and (syntmp-id?-118 syntmp-x-1391)
|
|
(not (syntmp-ellipsis?-163
|
|
syntmp-x-1391
|
|
syntmp-r-1381))))
|
|
syntmp-key-1389)
|
|
(let ((syntmp-x-1393
|
|
(syntmp-gen-var-166 (quote tmp))))
|
|
(list (list 'lambda
|
|
(list syntmp-x-1393)
|
|
(syntmp-gen-syntax-case-1308
|
|
syntmp-x-1393
|
|
syntmp-key-1389
|
|
syntmp-m-1390
|
|
syntmp-r-1381))
|
|
(syntmp-chi-154
|
|
syntmp-val-1388
|
|
syntmp-r-1381
|
|
'(()))))
|
|
(syntax-error
|
|
syntmp-e-1384
|
|
"invalid literals list in")))
|
|
syntmp-tmp-1386)
|
|
(syntax-error syntmp-tmp-1385)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1385
|
|
'(any any each-any . each-any))))
|
|
syntmp-e-1384)))))
|
|
(set! sc-expand
|
|
(let ((syntmp-m-1396 (quote e))
|
|
(syntmp-esew-1397 (quote (eval))))
|
|
(lambda (syntmp-x-1398)
|
|
(if (and (pair? syntmp-x-1398)
|
|
(equal? (car syntmp-x-1398) syntmp-noexpand-87))
|
|
(cadr syntmp-x-1398)
|
|
(syntmp-chi-top-153
|
|
syntmp-x-1398
|
|
'()
|
|
'((top))
|
|
syntmp-m-1396
|
|
syntmp-esew-1397)))))
|
|
(set! sc-expand3
|
|
(let ((syntmp-m-1399 (quote e))
|
|
(syntmp-esew-1400 (quote (eval))))
|
|
(lambda (syntmp-x-1402 . syntmp-rest-1401)
|
|
(if (and (pair? syntmp-x-1402)
|
|
(equal? (car syntmp-x-1402) syntmp-noexpand-87))
|
|
(cadr syntmp-x-1402)
|
|
(syntmp-chi-top-153
|
|
syntmp-x-1402
|
|
'()
|
|
'((top))
|
|
(if (null? syntmp-rest-1401)
|
|
syntmp-m-1399
|
|
(car syntmp-rest-1401))
|
|
(if (or (null? syntmp-rest-1401)
|
|
(null? (cdr syntmp-rest-1401)))
|
|
syntmp-esew-1400
|
|
(cadr syntmp-rest-1401)))))))
|
|
(set! identifier?
|
|
(lambda (syntmp-x-1403)
|
|
(syntmp-nonsymbol-id?-117 syntmp-x-1403)))
|
|
(set! datum->syntax-object
|
|
(lambda (syntmp-id-1404 syntmp-datum-1405)
|
|
(syntmp-make-syntax-object-103
|
|
syntmp-datum-1405
|
|
(syntmp-syntax-object-wrap-106 syntmp-id-1404))))
|
|
(set! syntax-object->datum
|
|
(lambda (syntmp-x-1406)
|
|
(syntmp-strip-165 syntmp-x-1406 (quote (())))))
|
|
(set! generate-temporaries
|
|
(lambda (syntmp-ls-1407)
|
|
(begin
|
|
(let ((syntmp-x-1408 syntmp-ls-1407))
|
|
(if (not (list? syntmp-x-1408))
|
|
(syntmp-error-hook-95
|
|
'generate-temporaries
|
|
"invalid argument"
|
|
syntmp-x-1408)))
|
|
(map (lambda (syntmp-x-1409)
|
|
(syntmp-wrap-146 (gensym) (quote ((top)))))
|
|
syntmp-ls-1407))))
|
|
(set! free-identifier=?
|
|
(lambda (syntmp-x-1410 syntmp-y-1411)
|
|
(begin
|
|
(let ((syntmp-x-1412 syntmp-x-1410))
|
|
(if (not (syntmp-nonsymbol-id?-117 syntmp-x-1412))
|
|
(syntmp-error-hook-95
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
syntmp-x-1412)))
|
|
(let ((syntmp-x-1413 syntmp-y-1411))
|
|
(if (not (syntmp-nonsymbol-id?-117 syntmp-x-1413))
|
|
(syntmp-error-hook-95
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
syntmp-x-1413)))
|
|
(syntmp-free-id=?-141
|
|
syntmp-x-1410
|
|
syntmp-y-1411))))
|
|
(set! bound-identifier=?
|
|
(lambda (syntmp-x-1414 syntmp-y-1415)
|
|
(begin
|
|
(let ((syntmp-x-1416 syntmp-x-1414))
|
|
(if (not (syntmp-nonsymbol-id?-117 syntmp-x-1416))
|
|
(syntmp-error-hook-95
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
syntmp-x-1416)))
|
|
(let ((syntmp-x-1417 syntmp-y-1415))
|
|
(if (not (syntmp-nonsymbol-id?-117 syntmp-x-1417))
|
|
(syntmp-error-hook-95
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
syntmp-x-1417)))
|
|
(syntmp-bound-id=?-142
|
|
syntmp-x-1414
|
|
syntmp-y-1415))))
|
|
(set! syntax-error
|
|
(lambda (syntmp-object-1419 . syntmp-messages-1418)
|
|
(begin
|
|
(for-each
|
|
(lambda (syntmp-x-1420)
|
|
(let ((syntmp-x-1421 syntmp-x-1420))
|
|
(if (not (string? syntmp-x-1421))
|
|
(syntmp-error-hook-95
|
|
'syntax-error
|
|
"invalid argument"
|
|
syntmp-x-1421))))
|
|
syntmp-messages-1418)
|
|
(let ((syntmp-message-1422
|
|
(if (null? syntmp-messages-1418)
|
|
"invalid syntax"
|
|
(apply string-append syntmp-messages-1418))))
|
|
(syntmp-error-hook-95
|
|
#f
|
|
syntmp-message-1422
|
|
(syntmp-strip-165
|
|
syntmp-object-1419
|
|
'(())))))))
|
|
(set! install-global-transformer
|
|
(lambda (syntmp-sym-1423 syntmp-v-1424)
|
|
(begin
|
|
(let ((syntmp-x-1425 syntmp-sym-1423))
|
|
(if (not (symbol? syntmp-x-1425))
|
|
(syntmp-error-hook-95
|
|
'define-syntax
|
|
"invalid argument"
|
|
syntmp-x-1425)))
|
|
(let ((syntmp-x-1426 syntmp-v-1424))
|
|
(if (not (procedure? syntmp-x-1426))
|
|
(syntmp-error-hook-95
|
|
'define-syntax
|
|
"invalid argument"
|
|
syntmp-x-1426)))
|
|
(syntmp-global-extend-116
|
|
'macro
|
|
syntmp-sym-1423
|
|
syntmp-v-1424))))
|
|
(letrec ((syntmp-match-1431
|
|
(lambda (syntmp-e-1432
|
|
syntmp-p-1433
|
|
syntmp-w-1434
|
|
syntmp-r-1435)
|
|
(cond ((not syntmp-r-1435) #f)
|
|
((eq? syntmp-p-1433 (quote _)) syntmp-r-1435)
|
|
((eq? syntmp-p-1433 (quote any))
|
|
(cons (syntmp-wrap-146 syntmp-e-1432 syntmp-w-1434)
|
|
syntmp-r-1435))
|
|
((syntmp-syntax-object?-104 syntmp-e-1432)
|
|
(syntmp-match*-1430
|
|
(let ((syntmp-e-1436
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-e-1432)))
|
|
(if (syntmp-annotation?-92 syntmp-e-1436)
|
|
(annotation-expression syntmp-e-1436)
|
|
syntmp-e-1436))
|
|
syntmp-p-1433
|
|
(syntmp-join-wraps-137
|
|
syntmp-w-1434
|
|
(syntmp-syntax-object-wrap-106 syntmp-e-1432))
|
|
syntmp-r-1435))
|
|
(else
|
|
(syntmp-match*-1430
|
|
(let ((syntmp-e-1437 syntmp-e-1432))
|
|
(if (syntmp-annotation?-92 syntmp-e-1437)
|
|
(annotation-expression syntmp-e-1437)
|
|
syntmp-e-1437))
|
|
syntmp-p-1433
|
|
syntmp-w-1434
|
|
syntmp-r-1435)))))
|
|
(syntmp-match*-1430
|
|
(lambda (syntmp-e-1438
|
|
syntmp-p-1439
|
|
syntmp-w-1440
|
|
syntmp-r-1441)
|
|
(cond ((null? syntmp-p-1439)
|
|
(and (null? syntmp-e-1438) syntmp-r-1441))
|
|
((pair? syntmp-p-1439)
|
|
(and (pair? syntmp-e-1438)
|
|
(syntmp-match-1431
|
|
(car syntmp-e-1438)
|
|
(car syntmp-p-1439)
|
|
syntmp-w-1440
|
|
(syntmp-match-1431
|
|
(cdr syntmp-e-1438)
|
|
(cdr syntmp-p-1439)
|
|
syntmp-w-1440
|
|
syntmp-r-1441))))
|
|
((eq? syntmp-p-1439 (quote each-any))
|
|
(let ((syntmp-l-1442
|
|
(syntmp-match-each-any-1428
|
|
syntmp-e-1438
|
|
syntmp-w-1440)))
|
|
(and syntmp-l-1442
|
|
(cons syntmp-l-1442 syntmp-r-1441))))
|
|
(else
|
|
(let ((syntmp-t-1443 (vector-ref syntmp-p-1439 0)))
|
|
(if (memv syntmp-t-1443 (quote (each)))
|
|
(if (null? syntmp-e-1438)
|
|
(syntmp-match-empty-1429
|
|
(vector-ref syntmp-p-1439 1)
|
|
syntmp-r-1441)
|
|
(let ((syntmp-l-1444
|
|
(syntmp-match-each-1427
|
|
syntmp-e-1438
|
|
(vector-ref syntmp-p-1439 1)
|
|
syntmp-w-1440)))
|
|
(and syntmp-l-1444
|
|
(let syntmp-collect-1445 ((syntmp-l-1446
|
|
syntmp-l-1444))
|
|
(if (null? (car syntmp-l-1446))
|
|
syntmp-r-1441
|
|
(cons (map car syntmp-l-1446)
|
|
(syntmp-collect-1445
|
|
(map cdr syntmp-l-1446))))))))
|
|
(if (memv syntmp-t-1443 (quote (free-id)))
|
|
(and (syntmp-id?-118 syntmp-e-1438)
|
|
(syntmp-free-id=?-141
|
|
(syntmp-wrap-146
|
|
syntmp-e-1438
|
|
syntmp-w-1440)
|
|
(vector-ref syntmp-p-1439 1))
|
|
syntmp-r-1441)
|
|
(if (memv syntmp-t-1443 (quote (atom)))
|
|
(and (equal?
|
|
(vector-ref syntmp-p-1439 1)
|
|
(syntmp-strip-165
|
|
syntmp-e-1438
|
|
syntmp-w-1440))
|
|
syntmp-r-1441)
|
|
(if (memv syntmp-t-1443 (quote (vector)))
|
|
(and (vector? syntmp-e-1438)
|
|
(syntmp-match-1431
|
|
(vector->list syntmp-e-1438)
|
|
(vector-ref syntmp-p-1439 1)
|
|
syntmp-w-1440
|
|
syntmp-r-1441)))))))))))
|
|
(syntmp-match-empty-1429
|
|
(lambda (syntmp-p-1447 syntmp-r-1448)
|
|
(cond ((null? syntmp-p-1447) syntmp-r-1448)
|
|
((eq? syntmp-p-1447 (quote _)) syntmp-r-1448)
|
|
((eq? syntmp-p-1447 (quote any))
|
|
(cons (quote ()) syntmp-r-1448))
|
|
((pair? syntmp-p-1447)
|
|
(syntmp-match-empty-1429
|
|
(car syntmp-p-1447)
|
|
(syntmp-match-empty-1429
|
|
(cdr syntmp-p-1447)
|
|
syntmp-r-1448)))
|
|
((eq? syntmp-p-1447 (quote each-any))
|
|
(cons (quote ()) syntmp-r-1448))
|
|
(else
|
|
(let ((syntmp-t-1449 (vector-ref syntmp-p-1447 0)))
|
|
(if (memv syntmp-t-1449 (quote (each)))
|
|
(syntmp-match-empty-1429
|
|
(vector-ref syntmp-p-1447 1)
|
|
syntmp-r-1448)
|
|
(if (memv syntmp-t-1449 (quote (free-id atom)))
|
|
syntmp-r-1448
|
|
(if (memv syntmp-t-1449 (quote (vector)))
|
|
(syntmp-match-empty-1429
|
|
(vector-ref syntmp-p-1447 1)
|
|
syntmp-r-1448)))))))))
|
|
(syntmp-match-each-any-1428
|
|
(lambda (syntmp-e-1450 syntmp-w-1451)
|
|
(cond ((syntmp-annotation?-92 syntmp-e-1450)
|
|
(syntmp-match-each-any-1428
|
|
(annotation-expression syntmp-e-1450)
|
|
syntmp-w-1451))
|
|
((pair? syntmp-e-1450)
|
|
(let ((syntmp-l-1452
|
|
(syntmp-match-each-any-1428
|
|
(cdr syntmp-e-1450)
|
|
syntmp-w-1451)))
|
|
(and syntmp-l-1452
|
|
(cons (syntmp-wrap-146
|
|
(car syntmp-e-1450)
|
|
syntmp-w-1451)
|
|
syntmp-l-1452))))
|
|
((null? syntmp-e-1450) (quote ()))
|
|
((syntmp-syntax-object?-104 syntmp-e-1450)
|
|
(syntmp-match-each-any-1428
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-e-1450)
|
|
(syntmp-join-wraps-137
|
|
syntmp-w-1451
|
|
(syntmp-syntax-object-wrap-106 syntmp-e-1450))))
|
|
(else #f))))
|
|
(syntmp-match-each-1427
|
|
(lambda (syntmp-e-1453 syntmp-p-1454 syntmp-w-1455)
|
|
(cond ((syntmp-annotation?-92 syntmp-e-1453)
|
|
(syntmp-match-each-1427
|
|
(annotation-expression syntmp-e-1453)
|
|
syntmp-p-1454
|
|
syntmp-w-1455))
|
|
((pair? syntmp-e-1453)
|
|
(let ((syntmp-first-1456
|
|
(syntmp-match-1431
|
|
(car syntmp-e-1453)
|
|
syntmp-p-1454
|
|
syntmp-w-1455
|
|
'())))
|
|
(and syntmp-first-1456
|
|
(let ((syntmp-rest-1457
|
|
(syntmp-match-each-1427
|
|
(cdr syntmp-e-1453)
|
|
syntmp-p-1454
|
|
syntmp-w-1455)))
|
|
(and syntmp-rest-1457
|
|
(cons syntmp-first-1456
|
|
syntmp-rest-1457))))))
|
|
((null? syntmp-e-1453) (quote ()))
|
|
((syntmp-syntax-object?-104 syntmp-e-1453)
|
|
(syntmp-match-each-1427
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-e-1453)
|
|
syntmp-p-1454
|
|
(syntmp-join-wraps-137
|
|
syntmp-w-1455
|
|
(syntmp-syntax-object-wrap-106 syntmp-e-1453))))
|
|
(else #f)))))
|
|
(begin
|
|
(set! syntax-dispatch
|
|
(lambda (syntmp-e-1458 syntmp-p-1459)
|
|
(cond ((eq? syntmp-p-1459 (quote any))
|
|
(list syntmp-e-1458))
|
|
((eq? syntmp-p-1459 (quote _)) (quote ()))
|
|
((syntmp-syntax-object?-104 syntmp-e-1458)
|
|
(syntmp-match*-1430
|
|
(let ((syntmp-e-1460
|
|
(syntmp-syntax-object-expression-105
|
|
syntmp-e-1458)))
|
|
(if (syntmp-annotation?-92 syntmp-e-1460)
|
|
(annotation-expression syntmp-e-1460)
|
|
syntmp-e-1460))
|
|
syntmp-p-1459
|
|
(syntmp-syntax-object-wrap-106 syntmp-e-1458)
|
|
'()))
|
|
(else
|
|
(syntmp-match*-1430
|
|
(let ((syntmp-e-1461 syntmp-e-1458))
|
|
(if (syntmp-annotation?-92 syntmp-e-1461)
|
|
(annotation-expression syntmp-e-1461)
|
|
syntmp-e-1461))
|
|
syntmp-p-1459
|
|
'(())
|
|
'())))))
|
|
(set! sc-chi syntmp-chi-154)))))
|
|
|
|
(install-global-transformer
|
|
'with-syntax
|
|
(lambda (syntmp-x-1462)
|
|
((lambda (syntmp-tmp-1463)
|
|
((lambda (syntmp-tmp-1464)
|
|
(if syntmp-tmp-1464
|
|
(apply (lambda (syntmp-_-1465 syntmp-e1-1466 syntmp-e2-1467)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(_ e1 e2)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
(cons '()
|
|
(cons syntmp-e1-1466 syntmp-e2-1467))))
|
|
syntmp-tmp-1464)
|
|
((lambda (syntmp-tmp-1469)
|
|
(if syntmp-tmp-1469
|
|
(apply (lambda (syntmp-_-1470
|
|
syntmp-out-1471
|
|
syntmp-in-1472
|
|
syntmp-e1-1473
|
|
syntmp-e2-1474)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
syntmp-in-1472
|
|
'()
|
|
(list syntmp-out-1471
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(cons '()
|
|
(cons syntmp-e1-1473
|
|
syntmp-e2-1474))))))
|
|
syntmp-tmp-1469)
|
|
((lambda (syntmp-tmp-1476)
|
|
(if syntmp-tmp-1476
|
|
(apply (lambda (syntmp-_-1477
|
|
syntmp-out-1478
|
|
syntmp-in-1479
|
|
syntmp-e1-1480
|
|
syntmp-e2-1481)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-in-1479)
|
|
'()
|
|
(list syntmp-out-1478
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(cons '()
|
|
(cons syntmp-e1-1480
|
|
syntmp-e2-1481))))))
|
|
syntmp-tmp-1476)
|
|
(syntax-error syntmp-tmp-1463)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1463
|
|
'(any #(each (any any)) any . each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1463
|
|
'(any ((any any)) any . each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1463
|
|
'(any () any . each-any))))
|
|
syntmp-x-1462)))
|
|
|
|
(install-global-transformer
|
|
'syntax-rules
|
|
(lambda (syntmp-xx-1503)
|
|
(letrec ((syntmp-expand-syntax-rules-1504
|
|
(lambda (syntmp-dots-1505
|
|
syntmp-keys-1506
|
|
syntmp-docstrings-1507
|
|
syntmp-clauses-1508)
|
|
((lambda (syntmp-tmp-1509)
|
|
((lambda (syntmp-tmp-1510)
|
|
(if syntmp-tmp-1510
|
|
(apply (lambda (syntmp-k-1511
|
|
syntmp-docstring-1512
|
|
syntmp-keyword-1513
|
|
syntmp-pattern-1514
|
|
syntmp-template-1515)
|
|
((lambda (syntmp-tmp-1516)
|
|
((lambda (syntmp-form-1517)
|
|
(if syntmp-dots-1505
|
|
((lambda (syntmp-tmp-1518)
|
|
((lambda (syntmp-dots-1519)
|
|
(list '#(syntax-object
|
|
with-ellipsis
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(dots)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(form)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(dots
|
|
keys
|
|
docstrings
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage
|
|
(expand-syntax-rules)
|
|
((top))
|
|
("i"))
|
|
#(ribcage
|
|
#(xx)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-dots-1519
|
|
syntmp-form-1517))
|
|
syntmp-tmp-1518))
|
|
syntmp-dots-1505)
|
|
syntmp-form-1517))
|
|
syntmp-tmp-1516))
|
|
(cons '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(dots keys docstrings clauses)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage
|
|
(expand-syntax-rules)
|
|
((top))
|
|
("i"))
|
|
#(ribcage #(xx) #((top)) #("i"))))
|
|
(cons '(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(dots
|
|
keys
|
|
docstrings
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage
|
|
(expand-syntax-rules)
|
|
((top))
|
|
("i"))
|
|
#(ribcage
|
|
#(xx)
|
|
#((top))
|
|
#("i")))))
|
|
(append
|
|
syntmp-docstring-1512
|
|
(list (cons '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(dots
|
|
keys
|
|
docstrings
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(expand-syntax-rules)
|
|
((top))
|
|
("i"))
|
|
#(ribcage
|
|
#(xx)
|
|
#((top))
|
|
#("i"))))
|
|
(cons '#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(dots
|
|
keys
|
|
docstrings
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(expand-syntax-rules)
|
|
((top))
|
|
("i"))
|
|
#(ribcage
|
|
#(xx)
|
|
#((top))
|
|
#("i"))))
|
|
(cons syntmp-k-1511
|
|
(map (lambda (syntmp-tmp-1522
|
|
syntmp-tmp-1521)
|
|
(list (cons '#(syntax-object
|
|
dummy
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(dots
|
|
keys
|
|
docstrings
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(expand-syntax-rules)
|
|
((top))
|
|
("i"))
|
|
#(ribcage
|
|
#(xx)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-tmp-1521)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(dots
|
|
keys
|
|
docstrings
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
(expand-syntax-rules)
|
|
((top))
|
|
("i"))
|
|
#(ribcage
|
|
#(xx)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-tmp-1522)))
|
|
syntmp-template-1515
|
|
syntmp-pattern-1514))))))))))
|
|
syntmp-tmp-1510)
|
|
(syntax-error syntmp-tmp-1509)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1509
|
|
'(each-any each-any #(each ((any . any) any))))))
|
|
(list syntmp-keys-1506
|
|
syntmp-docstrings-1507
|
|
syntmp-clauses-1508)))))
|
|
((lambda (syntmp-tmp-1524)
|
|
((lambda (syntmp-tmp-1525)
|
|
(if syntmp-tmp-1525
|
|
(apply (lambda (syntmp-_-1526
|
|
syntmp-k-1527
|
|
syntmp-keyword-1528
|
|
syntmp-pattern-1529
|
|
syntmp-template-1530)
|
|
(syntmp-expand-syntax-rules-1504
|
|
#f
|
|
syntmp-k-1527
|
|
'()
|
|
(map (lambda (syntmp-tmp-1534
|
|
syntmp-tmp-1533
|
|
syntmp-tmp-1532)
|
|
(list (cons syntmp-tmp-1532 syntmp-tmp-1533)
|
|
syntmp-tmp-1534))
|
|
syntmp-template-1530
|
|
syntmp-pattern-1529
|
|
syntmp-keyword-1528)))
|
|
syntmp-tmp-1525)
|
|
((lambda (syntmp-tmp-1535)
|
|
(if (if syntmp-tmp-1535
|
|
(apply (lambda (syntmp-_-1536
|
|
syntmp-k-1537
|
|
syntmp-docstring-1538
|
|
syntmp-keyword-1539
|
|
syntmp-pattern-1540
|
|
syntmp-template-1541)
|
|
(string?
|
|
(syntax-object->datum
|
|
syntmp-docstring-1538)))
|
|
syntmp-tmp-1535)
|
|
#f)
|
|
(apply (lambda (syntmp-_-1542
|
|
syntmp-k-1543
|
|
syntmp-docstring-1544
|
|
syntmp-keyword-1545
|
|
syntmp-pattern-1546
|
|
syntmp-template-1547)
|
|
(syntmp-expand-syntax-rules-1504
|
|
#f
|
|
syntmp-k-1543
|
|
(list syntmp-docstring-1544)
|
|
(map (lambda (syntmp-tmp-1551
|
|
syntmp-tmp-1550
|
|
syntmp-tmp-1549)
|
|
(list (cons syntmp-tmp-1549
|
|
syntmp-tmp-1550)
|
|
syntmp-tmp-1551))
|
|
syntmp-template-1547
|
|
syntmp-pattern-1546
|
|
syntmp-keyword-1545)))
|
|
syntmp-tmp-1535)
|
|
((lambda (syntmp-tmp-1552)
|
|
(if (if syntmp-tmp-1552
|
|
(apply (lambda (syntmp-_-1553
|
|
syntmp-dots-1554
|
|
syntmp-k-1555
|
|
syntmp-keyword-1556
|
|
syntmp-pattern-1557
|
|
syntmp-template-1558)
|
|
(identifier? syntmp-dots-1554))
|
|
syntmp-tmp-1552)
|
|
#f)
|
|
(apply (lambda (syntmp-_-1559
|
|
syntmp-dots-1560
|
|
syntmp-k-1561
|
|
syntmp-keyword-1562
|
|
syntmp-pattern-1563
|
|
syntmp-template-1564)
|
|
(syntmp-expand-syntax-rules-1504
|
|
syntmp-dots-1560
|
|
syntmp-k-1561
|
|
'()
|
|
(map (lambda (syntmp-tmp-1568
|
|
syntmp-tmp-1567
|
|
syntmp-tmp-1566)
|
|
(list (cons syntmp-tmp-1566
|
|
syntmp-tmp-1567)
|
|
syntmp-tmp-1568))
|
|
syntmp-template-1564
|
|
syntmp-pattern-1563
|
|
syntmp-keyword-1562)))
|
|
syntmp-tmp-1552)
|
|
((lambda (syntmp-tmp-1569)
|
|
(if (if syntmp-tmp-1569
|
|
(apply (lambda (syntmp-_-1570
|
|
syntmp-dots-1571
|
|
syntmp-k-1572
|
|
syntmp-docstring-1573
|
|
syntmp-keyword-1574
|
|
syntmp-pattern-1575
|
|
syntmp-template-1576)
|
|
(and (identifier? syntmp-dots-1571)
|
|
(string?
|
|
(syntax-object->datum
|
|
syntmp-docstring-1573))))
|
|
syntmp-tmp-1569)
|
|
#f)
|
|
(apply (lambda (syntmp-_-1577
|
|
syntmp-dots-1578
|
|
syntmp-k-1579
|
|
syntmp-docstring-1580
|
|
syntmp-keyword-1581
|
|
syntmp-pattern-1582
|
|
syntmp-template-1583)
|
|
(syntmp-expand-syntax-rules-1504
|
|
syntmp-dots-1578
|
|
syntmp-k-1579
|
|
(list syntmp-docstring-1580)
|
|
(map (lambda (syntmp-tmp-1587
|
|
syntmp-tmp-1586
|
|
syntmp-tmp-1585)
|
|
(list (cons syntmp-tmp-1585
|
|
syntmp-tmp-1586)
|
|
syntmp-tmp-1587))
|
|
syntmp-template-1583
|
|
syntmp-pattern-1582
|
|
syntmp-keyword-1581)))
|
|
syntmp-tmp-1569)
|
|
(syntax-error syntmp-tmp-1524)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1524
|
|
'(any any
|
|
each-any
|
|
any
|
|
.
|
|
#(each ((any . any) any)))))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1524
|
|
'(any any each-any . #(each ((any . any) any)))))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1524
|
|
'(any each-any any . #(each ((any . any) any)))))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1524
|
|
'(any each-any . #(each ((any . any) any))))))
|
|
syntmp-xx-1503))))
|
|
|
|
(install-global-transformer
|
|
'define-syntax-rule
|
|
(lambda (syntmp-x-1667)
|
|
((lambda (syntmp-tmp-1668)
|
|
((lambda (syntmp-tmp-1669)
|
|
(if syntmp-tmp-1669
|
|
(apply (lambda (syntmp-_-1670
|
|
syntmp-name-1671
|
|
syntmp-pattern-1672
|
|
syntmp-template-1673)
|
|
(list '#(syntax-object
|
|
define-syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ name pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
syntmp-name-1671
|
|
(list '#(syntax-object
|
|
syntax-rules
|
|
((top)
|
|
#(ribcage
|
|
#(_ name pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
'()
|
|
(list (cons syntmp-_-1670 syntmp-pattern-1672)
|
|
syntmp-template-1673))))
|
|
syntmp-tmp-1669)
|
|
((lambda (syntmp-tmp-1674)
|
|
(if (if syntmp-tmp-1674
|
|
(apply (lambda (syntmp-_-1675
|
|
syntmp-name-1676
|
|
syntmp-pattern-1677
|
|
syntmp-docstring-1678
|
|
syntmp-template-1679)
|
|
(string?
|
|
(syntax-object->datum syntmp-docstring-1678)))
|
|
syntmp-tmp-1674)
|
|
#f)
|
|
(apply (lambda (syntmp-_-1680
|
|
syntmp-name-1681
|
|
syntmp-pattern-1682
|
|
syntmp-docstring-1683
|
|
syntmp-template-1684)
|
|
(list '#(syntax-object
|
|
define-syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ name pattern docstring template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
syntmp-name-1681
|
|
(list '#(syntax-object
|
|
syntax-rules
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name
|
|
pattern
|
|
docstring
|
|
template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
'()
|
|
syntmp-docstring-1683
|
|
(list (cons syntmp-_-1680
|
|
syntmp-pattern-1682)
|
|
syntmp-template-1684))))
|
|
syntmp-tmp-1674)
|
|
(syntax-error syntmp-tmp-1668)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1668
|
|
'(any (any . any) any any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1668
|
|
'(any (any . any) any))))
|
|
syntmp-x-1667)))
|
|
|
|
(install-global-transformer
|
|
'let*
|
|
(lambda (syntmp-x-1703)
|
|
((lambda (syntmp-tmp-1704)
|
|
((lambda (syntmp-tmp-1705)
|
|
(if (if syntmp-tmp-1705
|
|
(apply (lambda (syntmp-let*-1706
|
|
syntmp-x-1707
|
|
syntmp-v-1708
|
|
syntmp-e1-1709
|
|
syntmp-e2-1710)
|
|
(andmap identifier? syntmp-x-1707))
|
|
syntmp-tmp-1705)
|
|
#f)
|
|
(apply (lambda (syntmp-let*-1712
|
|
syntmp-x-1713
|
|
syntmp-v-1714
|
|
syntmp-e1-1715
|
|
syntmp-e2-1716)
|
|
(let syntmp-f-1717 ((syntmp-bindings-1718
|
|
(map list
|
|
syntmp-x-1713
|
|
syntmp-v-1714)))
|
|
(if (null? syntmp-bindings-1718)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
(cons '()
|
|
(cons syntmp-e1-1715 syntmp-e2-1716)))
|
|
((lambda (syntmp-tmp-1722)
|
|
((lambda (syntmp-tmp-1723)
|
|
(if syntmp-tmp-1723
|
|
(apply (lambda (syntmp-body-1724
|
|
syntmp-binding-1725)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(body binding)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(list syntmp-binding-1725)
|
|
syntmp-body-1724))
|
|
syntmp-tmp-1723)
|
|
(syntax-error syntmp-tmp-1722)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1722
|
|
'(any any))))
|
|
(list (syntmp-f-1717 (cdr syntmp-bindings-1718))
|
|
(car syntmp-bindings-1718))))))
|
|
syntmp-tmp-1705)
|
|
(syntax-error syntmp-tmp-1704)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1704
|
|
'(any #(each (any any)) any . each-any))))
|
|
syntmp-x-1703)))
|
|
|
|
(install-global-transformer
|
|
'do
|
|
(lambda (syntmp-orig-x-1745)
|
|
((lambda (syntmp-tmp-1746)
|
|
((lambda (syntmp-tmp-1747)
|
|
(if syntmp-tmp-1747
|
|
(apply (lambda (syntmp-_-1748
|
|
syntmp-var-1749
|
|
syntmp-init-1750
|
|
syntmp-step-1751
|
|
syntmp-e0-1752
|
|
syntmp-e1-1753
|
|
syntmp-c-1754)
|
|
((lambda (syntmp-tmp-1755)
|
|
((lambda (syntmp-tmp-1756)
|
|
(if syntmp-tmp-1756
|
|
(apply (lambda (syntmp-step-1757)
|
|
((lambda (syntmp-tmp-1758)
|
|
((lambda (syntmp-tmp-1759)
|
|
(if syntmp-tmp-1759
|
|
(apply (lambda ()
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
(map list
|
|
syntmp-var-1749
|
|
syntmp-init-1750)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
(list '#(syntax-object
|
|
not
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-e0-1752)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
(append
|
|
syntmp-c-1754
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-step-1757)))))))
|
|
syntmp-tmp-1759)
|
|
((lambda (syntmp-tmp-1764)
|
|
(if syntmp-tmp-1764
|
|
(apply (lambda (syntmp-e1-1765
|
|
syntmp-e2-1766)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
(map list
|
|
syntmp-var-1749
|
|
syntmp-init-1750)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-e0-1752
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
(cons syntmp-e1-1765
|
|
syntmp-e2-1766))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
(append
|
|
syntmp-c-1754
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-step-1757)))))))
|
|
syntmp-tmp-1764)
|
|
(syntax-error
|
|
syntmp-tmp-1758)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1758
|
|
'(any . each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1758
|
|
'())))
|
|
syntmp-e1-1753))
|
|
syntmp-tmp-1756)
|
|
(syntax-error syntmp-tmp-1755)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1755
|
|
'each-any)))
|
|
(map (lambda (syntmp-v-1773 syntmp-s-1774)
|
|
((lambda (syntmp-tmp-1775)
|
|
((lambda (syntmp-tmp-1776)
|
|
(if syntmp-tmp-1776
|
|
(apply (lambda () syntmp-v-1773)
|
|
syntmp-tmp-1776)
|
|
((lambda (syntmp-tmp-1777)
|
|
(if syntmp-tmp-1777
|
|
(apply (lambda (syntmp-e-1778)
|
|
syntmp-e-1778)
|
|
syntmp-tmp-1777)
|
|
((lambda (syntmp-_-1779)
|
|
(syntax-error syntmp-orig-x-1745))
|
|
syntmp-tmp-1775)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1775
|
|
'(any)))))
|
|
(syntax-dispatch syntmp-tmp-1775 (quote ()))))
|
|
syntmp-s-1774))
|
|
syntmp-var-1749
|
|
syntmp-step-1751)))
|
|
syntmp-tmp-1747)
|
|
(syntax-error syntmp-tmp-1746)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1746
|
|
'(any #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
syntmp-orig-x-1745)))
|
|
|
|
(install-global-transformer
|
|
'quasiquote
|
|
(letrec ((syntmp-quasicons-1807
|
|
(lambda (syntmp-x-1811 syntmp-y-1812)
|
|
((lambda (syntmp-tmp-1813)
|
|
((lambda (syntmp-tmp-1814)
|
|
(if syntmp-tmp-1814
|
|
(apply (lambda (syntmp-x-1815 syntmp-y-1816)
|
|
((lambda (syntmp-tmp-1817)
|
|
((lambda (syntmp-tmp-1818)
|
|
(if syntmp-tmp-1818
|
|
(apply (lambda (syntmp-dy-1819)
|
|
((lambda (syntmp-tmp-1820)
|
|
((lambda (syntmp-tmp-1821)
|
|
(if syntmp-tmp-1821
|
|
(apply (lambda (syntmp-dx-1822)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dx)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))))
|
|
(cons syntmp-dx-1822
|
|
syntmp-dy-1819)))
|
|
syntmp-tmp-1821)
|
|
((lambda (syntmp-_-1823)
|
|
(if (null? syntmp-dy-1819)
|
|
(list '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))))
|
|
syntmp-x-1815)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i"
|
|
"i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))))
|
|
syntmp-x-1815
|
|
syntmp-y-1816)))
|
|
syntmp-tmp-1820)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1820
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i")))))
|
|
any))))
|
|
syntmp-x-1815))
|
|
syntmp-tmp-1818)
|
|
((lambda (syntmp-tmp-1824)
|
|
(if syntmp-tmp-1824
|
|
(apply (lambda (syntmp-stuff-1825)
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(stuff)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))))
|
|
(cons syntmp-x-1815
|
|
syntmp-stuff-1825)))
|
|
syntmp-tmp-1824)
|
|
((lambda (syntmp-else-1826)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(else)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))))
|
|
syntmp-x-1815
|
|
syntmp-y-1816))
|
|
syntmp-tmp-1817)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1817
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
.
|
|
any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1817
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
any))))
|
|
syntmp-y-1816))
|
|
syntmp-tmp-1814)
|
|
(syntax-error syntmp-tmp-1813)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1813
|
|
'(any any))))
|
|
(list syntmp-x-1811 syntmp-y-1812))))
|
|
(syntmp-quasiappend-1808
|
|
(lambda (syntmp-x-1827 syntmp-y-1828)
|
|
((lambda (syntmp-tmp-1829)
|
|
((lambda (syntmp-tmp-1830)
|
|
(if syntmp-tmp-1830
|
|
(apply (lambda (syntmp-x-1831 syntmp-y-1832)
|
|
((lambda (syntmp-tmp-1833)
|
|
((lambda (syntmp-tmp-1834)
|
|
(if syntmp-tmp-1834
|
|
(apply (lambda () syntmp-x-1831)
|
|
syntmp-tmp-1834)
|
|
((lambda (syntmp-_-1835)
|
|
(list '#(syntax-object
|
|
append
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i"))))
|
|
syntmp-x-1831
|
|
syntmp-y-1832))
|
|
syntmp-tmp-1833)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1833
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
()))))
|
|
syntmp-y-1832))
|
|
syntmp-tmp-1830)
|
|
(syntax-error syntmp-tmp-1829)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1829
|
|
'(any any))))
|
|
(list syntmp-x-1827 syntmp-y-1828))))
|
|
(syntmp-quasivector-1809
|
|
(lambda (syntmp-x-1836)
|
|
((lambda (syntmp-tmp-1837)
|
|
((lambda (syntmp-x-1838)
|
|
((lambda (syntmp-tmp-1839)
|
|
((lambda (syntmp-tmp-1840)
|
|
(if syntmp-tmp-1840
|
|
(apply (lambda (syntmp-x-1841)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))))
|
|
(list->vector syntmp-x-1841)))
|
|
syntmp-tmp-1840)
|
|
((lambda (syntmp-tmp-1843)
|
|
(if syntmp-tmp-1843
|
|
(apply (lambda (syntmp-x-1844)
|
|
(cons '#(syntax-object
|
|
vector
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i"))))
|
|
syntmp-x-1844))
|
|
syntmp-tmp-1843)
|
|
((lambda (syntmp-_-1846)
|
|
(list '#(syntax-object
|
|
list->vector
|
|
((top)
|
|
#(ribcage #(_) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))))
|
|
syntmp-x-1838))
|
|
syntmp-tmp-1839)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1839
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
.
|
|
each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1839
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))
|
|
#(ribcage
|
|
#(quasicons quasiappend quasivector quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
each-any))))
|
|
syntmp-x-1838))
|
|
syntmp-tmp-1837))
|
|
syntmp-x-1836)))
|
|
(syntmp-quasi-1810
|
|
(lambda (syntmp-p-1847 syntmp-lev-1848)
|
|
((lambda (syntmp-tmp-1849)
|
|
((lambda (syntmp-tmp-1850)
|
|
(if syntmp-tmp-1850
|
|
(apply (lambda (syntmp-p-1851)
|
|
(if (= syntmp-lev-1848 0)
|
|
syntmp-p-1851
|
|
(syntmp-quasicons-1807
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
(syntmp-quasi-1810
|
|
(list syntmp-p-1851)
|
|
(- syntmp-lev-1848 1)))))
|
|
syntmp-tmp-1850)
|
|
((lambda (syntmp-tmp-1852)
|
|
(if syntmp-tmp-1852
|
|
(apply (lambda (syntmp-p-1853 syntmp-q-1854)
|
|
(if (= syntmp-lev-1848 0)
|
|
(syntmp-quasiappend-1808
|
|
syntmp-p-1853
|
|
(syntmp-quasi-1810
|
|
syntmp-q-1854
|
|
syntmp-lev-1848))
|
|
(syntmp-quasicons-1807
|
|
(syntmp-quasicons-1807
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))))
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
(syntmp-quasi-1810
|
|
(list syntmp-p-1853)
|
|
(- syntmp-lev-1848 1)))
|
|
(syntmp-quasi-1810
|
|
syntmp-q-1854
|
|
syntmp-lev-1848))))
|
|
syntmp-tmp-1852)
|
|
((lambda (syntmp-tmp-1855)
|
|
(if syntmp-tmp-1855
|
|
(apply (lambda (syntmp-p-1856)
|
|
(syntmp-quasicons-1807
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))))
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
(syntmp-quasi-1810
|
|
(list syntmp-p-1856)
|
|
(+ syntmp-lev-1848 1))))
|
|
syntmp-tmp-1855)
|
|
((lambda (syntmp-tmp-1857)
|
|
(if syntmp-tmp-1857
|
|
(apply (lambda (syntmp-p-1858
|
|
syntmp-q-1859)
|
|
(syntmp-quasicons-1807
|
|
(syntmp-quasi-1810
|
|
syntmp-p-1858
|
|
syntmp-lev-1848)
|
|
(syntmp-quasi-1810
|
|
syntmp-q-1859
|
|
syntmp-lev-1848)))
|
|
syntmp-tmp-1857)
|
|
((lambda (syntmp-tmp-1860)
|
|
(if syntmp-tmp-1860
|
|
(apply (lambda (syntmp-x-1861)
|
|
(syntmp-quasivector-1809
|
|
(syntmp-quasi-1810
|
|
syntmp-x-1861
|
|
syntmp-lev-1848)))
|
|
syntmp-tmp-1860)
|
|
((lambda (syntmp-p-1863)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i"))))
|
|
syntmp-p-1863))
|
|
syntmp-tmp-1849)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1849
|
|
'#(vector each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1849
|
|
'(any . any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1849
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1849
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(p lev) #((top) (top)) #("i" "i"))
|
|
#(ribcage
|
|
#(quasicons quasiappend quasivector quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
any)
|
|
.
|
|
any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1849
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(p lev) #((top) (top)) #("i" "i"))
|
|
#(ribcage
|
|
#(quasicons quasiappend quasivector quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i")))))
|
|
any))))
|
|
syntmp-p-1847))))
|
|
(lambda (syntmp-x-1864)
|
|
((lambda (syntmp-tmp-1865)
|
|
((lambda (syntmp-tmp-1866)
|
|
(if syntmp-tmp-1866
|
|
(apply (lambda (syntmp-_-1867 syntmp-e-1868)
|
|
(syntmp-quasi-1810 syntmp-e-1868 0))
|
|
syntmp-tmp-1866)
|
|
(syntax-error syntmp-tmp-1865)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1865
|
|
'(any any))))
|
|
syntmp-x-1864))))
|
|
|
|
(install-global-transformer
|
|
'include
|
|
(lambda (syntmp-x-1928)
|
|
(letrec ((syntmp-read-file-1929
|
|
(lambda (syntmp-fn-1930 syntmp-k-1931)
|
|
(let ((syntmp-p-1932 (open-input-file syntmp-fn-1930)))
|
|
(let syntmp-f-1933 ((syntmp-x-1934 (read syntmp-p-1932)))
|
|
(if (eof-object? syntmp-x-1934)
|
|
(begin
|
|
(close-input-port syntmp-p-1932)
|
|
'())
|
|
(cons (datum->syntax-object
|
|
syntmp-k-1931
|
|
syntmp-x-1934)
|
|
(syntmp-f-1933 (read syntmp-p-1932)))))))))
|
|
((lambda (syntmp-tmp-1935)
|
|
((lambda (syntmp-tmp-1936)
|
|
(if syntmp-tmp-1936
|
|
(apply (lambda (syntmp-k-1937 syntmp-filename-1938)
|
|
(let ((syntmp-fn-1939
|
|
(syntax-object->datum syntmp-filename-1938)))
|
|
((lambda (syntmp-tmp-1940)
|
|
((lambda (syntmp-tmp-1941)
|
|
(if syntmp-tmp-1941
|
|
(apply (lambda (syntmp-exp-1942)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(exp)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage
|
|
(read-file)
|
|
((top))
|
|
("i"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-exp-1942))
|
|
syntmp-tmp-1941)
|
|
(syntax-error syntmp-tmp-1940)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1940
|
|
'each-any)))
|
|
(syntmp-read-file-1929
|
|
syntmp-fn-1939
|
|
syntmp-k-1937))))
|
|
syntmp-tmp-1936)
|
|
(syntax-error syntmp-tmp-1935)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1935
|
|
'(any any))))
|
|
syntmp-x-1928))))
|
|
|
|
(install-global-transformer
|
|
'unquote
|
|
(lambda (syntmp-x-1959)
|
|
((lambda (syntmp-tmp-1960)
|
|
((lambda (syntmp-tmp-1961)
|
|
(if syntmp-tmp-1961
|
|
(apply (lambda (syntmp-_-1962 syntmp-e-1963)
|
|
(error 'unquote
|
|
"expression ,~s not valid outside of quasiquote"
|
|
(syntax-object->datum syntmp-e-1963)))
|
|
syntmp-tmp-1961)
|
|
(syntax-error syntmp-tmp-1960)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1960
|
|
'(any any))))
|
|
syntmp-x-1959)))
|
|
|
|
(install-global-transformer
|
|
'unquote-splicing
|
|
(lambda (syntmp-x-1969)
|
|
((lambda (syntmp-tmp-1970)
|
|
((lambda (syntmp-tmp-1971)
|
|
(if syntmp-tmp-1971
|
|
(apply (lambda (syntmp-_-1972 syntmp-e-1973)
|
|
(error 'unquote-splicing
|
|
"expression ,@~s not valid outside of quasiquote"
|
|
(syntax-object->datum syntmp-e-1973)))
|
|
syntmp-tmp-1971)
|
|
(syntax-error syntmp-tmp-1970)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1970
|
|
'(any any))))
|
|
syntmp-x-1969)))
|
|
|
|
(install-global-transformer
|
|
'case
|
|
(lambda (syntmp-x-1979)
|
|
((lambda (syntmp-tmp-1980)
|
|
((lambda (syntmp-tmp-1981)
|
|
(if syntmp-tmp-1981
|
|
(apply (lambda (syntmp-_-1982
|
|
syntmp-e-1983
|
|
syntmp-m1-1984
|
|
syntmp-m2-1985)
|
|
((lambda (syntmp-tmp-1986)
|
|
((lambda (syntmp-body-1987)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(body) #((top)) #("i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
(list (list '#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-e-1983))
|
|
syntmp-body-1987))
|
|
syntmp-tmp-1986))
|
|
(let syntmp-f-1988 ((syntmp-clause-1989 syntmp-m1-1984)
|
|
(syntmp-clauses-1990 syntmp-m2-1985))
|
|
(if (null? syntmp-clauses-1990)
|
|
((lambda (syntmp-tmp-1992)
|
|
((lambda (syntmp-tmp-1993)
|
|
(if syntmp-tmp-1993
|
|
(apply (lambda (syntmp-e1-1994
|
|
syntmp-e2-1995)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(cons syntmp-e1-1994
|
|
syntmp-e2-1995)))
|
|
syntmp-tmp-1993)
|
|
((lambda (syntmp-tmp-1997)
|
|
(if syntmp-tmp-1997
|
|
(apply (lambda (syntmp-k-1998
|
|
syntmp-e1-1999
|
|
syntmp-e2-2000)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-k-1998))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(cons syntmp-e1-1999
|
|
syntmp-e2-2000))))
|
|
syntmp-tmp-1997)
|
|
((lambda (syntmp-_-2003)
|
|
(syntax-error syntmp-x-1979))
|
|
syntmp-tmp-1992)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1992
|
|
'(each-any any . each-any)))))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1992
|
|
'(#(free-id
|
|
#(syntax-object
|
|
else
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("i" "i" "i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top) (top) (top) (top))
|
|
#("i" "i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i")))))
|
|
any
|
|
.
|
|
each-any))))
|
|
syntmp-clause-1989)
|
|
((lambda (syntmp-tmp-2004)
|
|
((lambda (syntmp-rest-2005)
|
|
((lambda (syntmp-tmp-2006)
|
|
((lambda (syntmp-tmp-2007)
|
|
(if syntmp-tmp-2007
|
|
(apply (lambda (syntmp-k-2008
|
|
syntmp-e1-2009
|
|
syntmp-e2-2010)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i" "i" "i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-k-2008))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i"
|
|
"i"
|
|
"i"
|
|
"i"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(cons syntmp-e1-2009
|
|
syntmp-e2-2010))
|
|
syntmp-rest-2005))
|
|
syntmp-tmp-2007)
|
|
((lambda (syntmp-_-2013)
|
|
(syntax-error syntmp-x-1979))
|
|
syntmp-tmp-2006)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-2006
|
|
'(each-any any . each-any))))
|
|
syntmp-clause-1989))
|
|
syntmp-tmp-2004))
|
|
(syntmp-f-1988
|
|
(car syntmp-clauses-1990)
|
|
(cdr syntmp-clauses-1990)))))))
|
|
syntmp-tmp-1981)
|
|
(syntax-error syntmp-tmp-1980)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-1980
|
|
'(any any any . each-any))))
|
|
syntmp-x-1979)))
|
|
|
|
(install-global-transformer
|
|
'identifier-syntax
|
|
(lambda (syntmp-x-2043)
|
|
((lambda (syntmp-tmp-2044)
|
|
((lambda (syntmp-tmp-2045)
|
|
(if syntmp-tmp-2045
|
|
(apply (lambda (syntmp-_-2046 syntmp-e-2047)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage #(_ e) #((top) (top)) #("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage #(_ e) #((top) (top)) #("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i")))))
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
'()
|
|
(list '#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
'(#(syntax-object
|
|
identifier?
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
(#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i"))))
|
|
#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
syntmp-e-2047))
|
|
(list (cons syntmp-_-2046
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
(cons syntmp-e-2047
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i"))))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i" "i"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i")))))))))))
|
|
syntmp-tmp-2045)
|
|
(syntax-error syntmp-tmp-2044)))
|
|
(syntax-dispatch
|
|
syntmp-tmp-2044
|
|
'(any any))))
|
|
syntmp-x-2043)))
|
|
|