artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity
mes/module/mes/psyntax.mes
Jan Nieuwenhuizen f6baa9ce98 psyntax: Add missing (interaction-environment) to eval. 
* module/mes/psyntax.mes: Add (interaction-environment) to eval.
2016-12-12 20:33:49 +01:00

9930 lines
774 KiB
Plaintext
Raw Blame History

;;; psyntax.pp
;;; automatically generated from psyntax.ss
;;; Mon Aug 18 13:18:06 EST 1997
;;; see copyright notice in psyntax.ss
((lambda ()
((lambda ()
(letrec ((g115 (lambda (g800)
((letrec ((g801 (lambda (g804 g802 g803)
(if (pair? g804)
(g801 (cdr g804)
(cons (g94 (car g804)
g803)
g802)
g803)
(if (g66 g804)
(cons (g94 g804 g803)
g802)
(if (null? g804)
g802
(if (g52 g804)
(g801 (g53 g804)
g802
(g85 g803
(g54 g804)))
(if (g43 g804)
(g801 (annotation-expression
g804)
g802
g803)
(cons g804
g802)))))))))
g801)
g800
'()
'(()))))
(g114 (lambda (g322)
((lambda (g323) (if (g43 g323) (gensym) (gensym)))
(if (g52 g322) (g53 g322) g322))))
(g113 (lambda (g792 g791)
(if (memq 'top (g69 g791))
(if ((lambda (g793)
(if g793
g793
(if (pair? g792)
(g43 (car g792))
'#f)))
(g43 g792))
(g112 g792 '#f)
g792)
((letrec ((g794 (lambda (g795)
(if (g52 g795)
(g113 (g53 g795)
(g54 g795))
(if (pair? g795)
((lambda (g797 g796)
(if (if (eq? g797
(car g795))
(eq? g796
(cdr g795))
'#f)
g795
(cons g797
g796)))
(g794 (car g795))
(g794 (cdr g795)))
(if (vector? g795)
((lambda (g798)
((lambda (g799)
(if (andmap
eq?
g798
g799)
g795
(list->vector
g799)))
(map g794
g798)))
(vector->list
g795))
g795))))))
g794)
g792))))
(g112 (lambda (g325 g324)
(if (pair? g325)
((lambda (g326)
(begin (when g324
(set-annotation-stripped!
g324
g326))
(set-car! g326 (g112 (car g325) '#f))
(set-cdr! g326 (g112 (cdr g325) '#f))
g326))
(cons '#f '#f))
(if (g43 g325)
((lambda (g327)
(if g327
g327
(g112 (annotation-expression g325)
g325)))
(annotation-stripped g325))
(if (vector? g325)
((lambda (g328)
(begin (when g324
(set-annotation-stripped!
g324
g328))
((letrec ((g329 (lambda (g330)
(unless (g42 g330
'0)
(vector-set!
g328
g330
(g112 (vector-ref
g325
g330)
'#f))
(g329 (g40 g330
'1))))))
g329)
(- (vector-length g325) '1))
g328))
(make-vector (vector-length g325)))
g325)))))
(g111 (lambda (g790)
(if (g65 g790)
(g89 g790
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage #(x) #((top)) #("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
self-evaluating?
build-lexical-var
build-letrec
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))
("i" "i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"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"))
#(ribcage
(define-structure)
((top))
("i")))))
'#f)))
(g110 (lambda () (list 'void)))
(g109 (lambda (g788)
((lambda (g789)
(if (procedure? g789)
g789
(syntax-error
g789
'"nonprocedure transfomer")))
(g45 g788))))
(g108 (lambda (g336 g331 g335 g332 g334 g333)
((lambda (g337)
((lambda (g338)
(if g338
(apply
(lambda (g343 g339 g342 g340 g341)
((lambda (g344)
(if (not (g91 g344))
(syntax-error
g331
'"duplicate bound keyword in")
((lambda (g345)
((lambda (g346)
(g333 (cons g340 g341)
(g60 g345
((lambda (g348
g347)
(map (lambda (g350)
(cons 'macro
(g109 (g102 g350
g347
g348))))
g342))
(if g336
g346
g332)
(g62 g335))
g335)
g346
g334))
(g83 g344 g345 g332)))
(g72 g344))))
g339))
g338)
((lambda (g353)
(syntax-error (g95 g331 g332 g334)))
g337)))
(syntax-dispatch
g337
'(any #(each (any any)) any . each-any))))
g331)))
(g107 (lambda (g765 g761 g764 g762 g763)
((lambda (g766)
((lambda (g767)
(if g767
(apply
(lambda (g770 g768 g769)
((lambda (g771)
(if (not (g91 g771))
(syntax-error
g765
'"invalid parameter list in")
((lambda (g773 g772)
(g763 g772
(g106 (cons g768 g769)
g765
(g61 g773
g772
g764)
(g83 g771
g773
g762))))
(g72 g771)
(map g114 g771))))
g770))
g767)
((lambda (g776)
(if g776
(apply
(lambda (g779 g777 g778)
((lambda (g780)
(if (not (g91 g780))
(syntax-error
g765
'"invalid parameter list in")
((lambda (g782 g781)
(g763 ((letrec ((g784 (lambda (g786
g785)
(if (null?
g786)
g785
(g784 (cdr g786)
(cons (car g786)
g785))))))
g784)
(cdr g781)
(car g781))
(g106 (cons g777
g778)
g765
(g61 g782
g781
g764)
(g83 g780
g782
g762))))
(g72 g780)
(map g114 g780))))
(g115 g779)))
g776)
((lambda (g787)
(syntax-error g765))
g766)))
(syntax-dispatch
g766
'(any any . each-any)))))
(syntax-dispatch
g766
'(each-any any . each-any))))
g761)))
(g106 (lambda (g357 g354 g356 g355)
((lambda (g358)
((lambda (g359)
((lambda (g360)
((lambda ()
((letrec ((g361 (lambda (g367
g362
g366
g363
g365
g364)
(if (null? g367)
(syntax-error
g354
'"no expressions in body")
((lambda (g369
g368)
(call-with-values
(lambda ()
(g100 g369
g368
'(())
'#f
g359))
(lambda (g374
g370
g373
g371
g372)
((lambda (g375)
(if (memv g375
'(define-form))
((lambda (g377
g376)
((lambda (g378)
(begin (g82 g359
g377
g376)
(g361 (cdr g367)
(cons g377
g362)
(cons g376
g366)
(cons g378
g363)
(cons (cons g368
(g94 g373
g371))
g365)
(cons (cons 'lexical
g378)
g364))))
(g114 g377)))
(g94 g370
g371)
(g71))
(if (memv g375
'(define-syntax-form))
((lambda (g380
g379)
(begin (g82 g359
g380
g379)
(g361 (cdr g367)
(cons g380
g362)
(cons g379
g366)
g363
g365
(cons (cons 'macro
(cons g368
(g94 g373
g371)))
g364))))
(g94 g370
g371)
(g71))
(if (memv g375
'(begin-form))
((lambda (g381)
((lambda (g382)
(if g382
(apply
(lambda (g384
g383)
(g361 ((letrec ((g385 (lambda (g386)
(if (null?
g386)
(cdr g367)
(cons (cons g368
(g94 (car g386)
g371))
(g385 (cdr g386)))))))
g385)
g383)
g362
g366
g363
g365
g364))
g382)
(syntax-error
g381)))
(syntax-dispatch
g381
'(any .
each-any))))
g373)
(if (memv g375
'(local-syntax-form))
(g108 g370
g373
g368
g371
g372
(lambda (g391
g388
g390
g389)
(g361 ((letrec ((g392 (lambda (g393)
(if (null?
g393)
(cdr g367)
(cons (cons g388
(g94 (car g393)
g390))
(g392 (cdr g393)))))))
g392)
g391)
g362
g366
g363
g365
g364)))
(if (null?
g362)
(g49 '#f
(map (lambda (g394)
(g102 (cdr g394)
(car g394)
'(())))
(cons (cons g368
(g95 g373
g371
g372))
(cdr g367))))
(begin (if (not (g91 g362))
(syntax-error
g354
'"invalid or duplicate identifier in definition")
(void))
((letrec ((g395 (lambda (g398
g396
g397)
(if (not (null?
g398))
((lambda (g399)
((lambda ()
(if (eq? (car g399)
'macro)
((lambda (g400)
((lambda (g401)
((lambda ()
(begin (set-cdr!
g399
(g109 (g102 (cddr g399)
g401
'(()))))
(g395 (cdr g398)
g400
g401)))))
(if (eq? g400
g396)
g397
(g62 g400))))
(cadr g399))
(g395 (cdr g398)
g396
g397)))))
(car g398))
(void)))))
g395)
g364
'#f
'#f)
(set-cdr!
g358
(g60 g366
g364
(cdr g358)))
(g50 '#f
g363
(map (lambda (g403)
(g102 (cdr g403)
(car g403)
'(())))
g365)
(g49 '#f
(map (lambda (g402)
(g102 (cdr g402)
(car g402)
'(())))
(cons (cons g368
(g95 g373
g371
g372))
(cdr g367))))))))))))
g374))))
(cdar g367)
(caar g367))))))
g361)
(map (lambda (g404)
(cons g358 (g94 g404 g360)))
g357)
'()
'()
'()
'()
'()))))
(g68 (g69 g355) (cons g359 (g70 g355)))))
(g73 '() '() '())))
(cons '("placeholder" placeholder) g356))))
(g105 (lambda (g750 g746 g749 g747 g748)
(letrec ((g751 (lambda (g753 g752)
(if (pair? g753)
(cons (g751 (car g753) g752)
(g751 (cdr g753) g752))
(if (g52 g753)
((lambda (g754)
((lambda (g756 g755)
(g51 (g53 g753)
(if (if (pair?
g756)
(eq? (car g756)
'#f)
'#f)
(g68 (cdr g756)
(if g748
(cons g748
(cdr g755))
(cdr g755)))
(g68 (cons g752
g756)
(if g748
(cons g748
(cons 'shift
g755))
(cons 'shift
g755))))))
(g69 g754)
(g70 g754)))
(g54 g753))
(if (vector? g753)
((lambda (g757)
((lambda (g758)
((lambda ()
((letrec ((g759 (lambda (g760)
(if (g41 g760
g757)
g758
(begin (vector-set!
g758
g760
(g751 (vector-ref
g753
g760)
g752))
(g759 (g39 g760
'1)))))))
g759)
'0))))
(make-vector
g757)))
(vector-length g753))
(if (symbol? g753)
(syntax-error
g753
'"encountered raw symbol in macro output")
g753)))))))
(g751 (g750 (g94 g746 (g81 g747)))
(string '#\m)))))
(g104 (lambda (g409 g405 g408 g406 g407)
((lambda (g410)
((lambda (g411)
(if g411
(apply
(lambda (g413 g412)
(cons g409
(map (lambda (g415)
(g102 g415 g408 g406))
g412)))
g411)
(syntax-error g410)))
(syntax-dispatch g410 '(any . each-any))))
g405)))
(g103 (lambda (g729 g724 g728 g725 g727 g726)
((lambda (g730)
(if (memv g730 '(lexical))
g724
(if (memv g730 '(core))
(g724 g728 g725 g727 g726)
(if (memv g730 '(lexical-call))
(g104 g724 g728 g725 g727 g726)
(if (memv g730 '(global-call))
(g104 g724 g728 g725 g727 g726)
(if (memv g730 '(constant))
(list 'quote
(g113 (g95 g728
g727
g726)
'(())))
(if (memv g730 '(global))
g724
(if (memv g730 '(call))
(g104 (g102 (car g728)
g725
g727)
g728
g725
g727
g726)
(if (memv g730
'(begin-form))
((lambda (g731)
((lambda (g732)
(if g732
(apply
(lambda (g735
g733
g734)
(g96 (cons g733
g734)
g725
g727
g726))
g732)
(syntax-error
g731)))
(syntax-dispatch
g731
'(any any
.
each-any))))
g728)
(if (memv g730
'(local-syntax-form))
(g108 g724
g728
g725
g727
g726
g96)
(if (memv g730
'(eval-when-form))
((lambda (g737)
((lambda (g738)
(if g738
(apply
(lambda (g742
g739
g741
g740)
((lambda (g743)
(if (memq 'eval
g743)
(g96 (cons g741
g740)
g725
g727
g726)
(g110)))
(g99 g728
g739
g727)))
g738)
(syntax-error
g737)))
(syntax-dispatch
g737
'(any each-any
any
.
each-any))))
g728)
(if (memv g730
'(define-form
define-syntax-form))
(syntax-error
(g94 g724
g727)
'"invalid context for definition of")
(if (memv g730
'(syntax))
(syntax-error
(g95 g728
g727
g726)
'"reference to pattern variable outside syntax form")
(if (memv g730
'(displaced-lexical))
(syntax-error
(g95 g728
g727
g726)
'"reference to identifier outside its scope")
(syntax-error
(g95 g728
g727
g726))))))))))))))))
g729)))
(g102 (lambda (g418 g416 g417)
(call-with-values
(lambda () (g100 g418 g416 g417 '#f '#f))
(lambda (g423 g419 g422 g420 g421)
(g103 g423 g419 g422 g416 g420 g421)))))
(g101 (lambda (g678 g674 g677 g675 g676)
(call-with-values
(lambda () (g100 g678 g674 g677 '#f '#f))
(lambda (g689 g685 g688 g686 g687)
((lambda (g690)
(if (memv g690 '(begin-form))
((lambda (g691)
((lambda (g692)
(if g692
(apply
(lambda (g693) (g110))
g692)
((lambda (g694)
(if g694
(apply
(lambda (g697
g695
g696)
(g97 (cons g695
g696)
g674
g686
g687
g675
g676))
g694)
(syntax-error g691)))
(syntax-dispatch
g691
'(any any . each-any)))))
(syntax-dispatch g691 '(any))))
g688)
(if (memv g690 '(local-syntax-form))
(g108 g685
g688
g674
g686
g687
(lambda (g702 g699 g701 g700)
(g97 g702
g699
g701
g700
g675
g676)))
(if (memv g690 '(eval-when-form))
((lambda (g703)
((lambda (g704)
(if g704
(apply
(lambda (g708
g705
g707
g706)
((lambda (g710
g709)
(if (eq? g675
'e)
(if (memq 'eval
g710)
(g97 g709
g674
g686
g687
'e
'(eval))
(g110))
(if (memq 'load
g710)
(if ((lambda (g711)
(if g711
g711
(if (eq? g675
'c&e)
(memq 'eval
g710)
'#f)))
(memq 'compile
g710))
(g97 g709
g674
g686
g687
'c&e
'(compile
load))
(if (memq g675
'(c c&e))
(g97 g709
g674
g686
g687
'c
'(load))
(g110)))
(if ((lambda (g712)
(if g712
g712
(if (eq? g675
'c&e)
(memq 'eval
g710)
'#f)))
(memq 'compile
g710))
(begin (g44 (g97 g709
g674
g686
g687
'e
'(eval)))
(g110))
(g110)))))
(g99 g688
g705
g686)
(cons g707 g706)))
g704)
(syntax-error g703)))
(syntax-dispatch
g703
'(any each-any
any
.
each-any))))
g688)
(if (memv g690
'(define-syntax-form))
((lambda (g716 g715)
((lambda (g717)
(if (memv g717 '(c))
(if (memq 'compile
g676)
((lambda (g718)
(begin (g44 g718)
(if (memq 'load
g676)
g718
(g110))))
(g98 g716
(g102 g688
g715
g686)))
(if (memq 'load
g676)
(g98 g716
(g102 g688
g715
g686))
(g110)))
(if (memv g717
'(c&e))
((lambda (g719)
(begin (g44 g719)
g719))
(g98 g716
(g102 g688
g715
g686)))
(begin (if (memq 'eval
g676)
(g44 (g98 g716
(g102 g688
g715
g686)))
(void))
(g110)))))
g675))
(g88 g685 g686)
(g62 g674))
(if (memv g690
'(define-form))
((lambda (g720)
((lambda (g721)
(if (memv g721
'(global))
((lambda (g722)
(begin (if (eq? g675
'c&e)
(g44 g722)
(void))
g722))
(list 'define
g720
(g102 g688
g674
g686)))
(if (memv g721
'(displaced-lexical))
(syntax-error
(g94 g685
g686)
'"identifier out of context")
(syntax-error
(g94 g685
g686)
'"cannot define keyword at top level"))))
(g58 (g63 g720
g674))))
(g88 g685 g686))
((lambda (g723)
(begin (if (eq? g675
'c&e)
(g44 g723)
(void))
g723))
(g103 g689
g685
g688
g674
g686
g687))))))))
g689)))))
(g100 (lambda (g428 g424 g427 g425 g426)
(if (symbol? g428)
((lambda (g429)
((lambda (g430)
((lambda (g431)
((lambda ()
((lambda (g432)
(if (memv g432 '(lexical))
(values
g431
(g59 g430)
g428
g427
g425)
(if (memv g432 '(global))
(values
g431
g429
g428
g427
g425)
(if (memv g432 '(macro))
(g100 (g105 (g59 g430)
g428
g424
g427
g426)
g424
'(())
g425
g426)
(values
g431
(g59 g430)
g428
g427
g425)))))
g431))))
(g58 g430)))
(g63 g429 g424)))
(g88 g428 g427))
(if (pair? g428)
((lambda (g433)
(if (g66 g433)
((lambda (g434)
((lambda (g435)
((lambda (g436)
((lambda ()
((lambda (g437)
(if (memv g437
'(lexical))
(values
'lexical-call
(g59 g435)
g428
g427
g425)
(if (memv g437
'(global))
(values
'global-call
g434
g428
g427
g425)
(if (memv g437
'(macro))
(g100 (g105 (g59 g435)
g428
g424
g427
g426)
g424
'(())
g425
g426)
(if (memv g437
'(core))
(values
g436
(g59 g435)
g428
g427
g425)
(if (memv g437
'(local-syntax))
(values
'local-syntax-form
(g59 g435)
g428
g427
g425)
(if (memv g437
'(begin))
(values
'begin-form
'#f
g428
g427
g425)
(if (memv g437
'(eval-when))
(values
'eval-when-form
'#f
g428
g427
g425)
(if (memv g437
'(define))
((lambda (g438)
((lambda (g439)
(if (if g439
(apply
(lambda (g442
g440
g441)
(g66 g440))
g439)
'#f)
(apply
(lambda (g445
g443
g444)
(values
'define-form
g443
g444
g427
g425))
g439)
((lambda (g446)
(if (if g446
(apply
(lambda (g451
g447
g450
g448
g449)
(if (g66 g447)
(g91 (g115 g450))
'#f))
g446)
'#f)
(apply
(lambda (g456
g452
g455
g453
g454)
(values
'define-form
(g94 g452
g427)
(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
()
()
())
#(ribcage
()
()
())
#(ribcage
#(type)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(b)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(n)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(first)
#((top))
#("i"))
#(ribcage
()
()
())
#(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
self-evaluating?
build-lexical-var
build-letrec
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))
("i" "i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"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"))
#(ribcage
(define-structure)
((top))
("i"))))
(g94 (cons g455
(cons g453
g454))
g427))
'(())
g425))
g446)
((lambda (g458)
(if (if g458
(apply
(lambda (g460
g459)
(g66 g459))
g458)
'#f)
(apply
(lambda (g462
g461)
(values
'define-form
(g94 g461
g427)
'(#(syntax-object
void
((top)
#(ribcage
#(_
name)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(t)
#(("m" top))
#("i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(type)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(b)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(n)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(first)
#((top))
#("i"))
#(ribcage
()
()
())
#(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
self-evaluating?
build-lexical-var
build-letrec
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))
("i" "i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"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"))
#(ribcage
(define-structure)
((top))
("i")))))
'(())
g425))
g458)
(syntax-error
g438)))
(syntax-dispatch
g438
'(any any)))))
(syntax-dispatch
g438
'(any (any .
any)
any
.
each-any)))))
(syntax-dispatch
g438
'(any any
any))))
g428)
(if (memv g437
'(define-syntax))
((lambda (g463)
((lambda (g464)
(if (if g464
(apply
(lambda (g467
g465
g466)
(g66 g465))
g464)
'#f)
(apply
(lambda (g470
g468
g469)
(values
'define-syntax-form
g468
g469
g427
g425))
g464)
(syntax-error
g463)))
(syntax-dispatch
g463
'(any any
any))))
g428)
(values
'call
'#f
g428
g427
g425)))))))))))
g436))))
(g58 g435)))
(g63 g434 g424)))
(g88 g433 g427))
(values 'call '#f g428 g427 g425)))
(car g428))
(if (g52 g428)
(g100 (g53 g428)
g424
(g85 g427 (g54 g428))
'#f
g426)
(if (g43 g428)
(g100 (annotation-expression g428)
g424
g427
(annotation-source g428)
g426)
(if ((lambda (g471)
((lambda (g472)
(if g472
g472
((lambda (g473)
(if g473
g473
((lambda (g474)
(if g474
g474
((lambda (g475)
(if g475
g475
(null?
g471)))
(char?
g471))))
(string?
g471))))
(number? g471))))
(boolean? g471)))
g428)
(values
'constant
'#f
g428
g427
g425)
(values
'other
'#f
g428
g427
g425))))))))
(g99 (lambda (g669 g667 g668)
((letrec ((g670 (lambda (g672 g671)
(if (null? g672)
g671
(g670 (cdr g672)
(cons ((lambda (g673)
(if (g89 g673
'#(syntax-object
compile
((top)
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(when-list
situations)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
()
()
())
#(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
self-evaluating?
build-lexical-var
build-letrec
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))
("i" "i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"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"))
#(ribcage
(define-structure)
((top))
("i")))))
'compile
(if (g89 g673
'#(syntax-object
load
((top)
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(when-list
situations)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
()
()
())
#(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
self-evaluating?
build-lexical-var
build-letrec
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))
("i" "i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"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"))
#(ribcage
(define-structure)
((top))
("i")))))
'load
(if (g89 g673
'#(syntax-object
eval
((top)
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(when-list
situations)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
()
()
())
#(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
self-evaluating?
build-lexical-var
build-letrec
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))
("i" "i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"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"))
#(ribcage
(define-structure)
((top))
("i")))))
'eval
(syntax-error
(g94 g673
g668)
'"invalid eval-when situation")))))
(car g672))
g671))))))
g670)
g667
'())))
(g98 (lambda (g477 g476)
(list 'install-global-transformer
(list 'quote g477)
g476)))
(g97 (lambda (g659 g654 g658 g655 g657 g656)
(g49 g655
((letrec ((g660 (lambda (g665
g661
g664
g662
g663)
(if (null? g665)
'()
((lambda (g666)
(cons g666
(g660 (cdr g665)
g661
g664
g662
g663)))
(g101 (car g665)
g661
g664
g662
g663))))))
g660)
g659
g654
g658
g657
g656))))
(g96 (lambda (g481 g478 g480 g479)
(g49 g479
((letrec ((g482 (lambda (g485 g483 g484)
(if (null? g485)
'()
((lambda (g486)
(cons g486
(g482 (cdr g485)
g483
g484)))
(g102 (car g485)
g483
g484))))))
g482)
g481
g478
g480))))
(g95 (lambda (g653 g651 g652)
(g94 (if g652 (make-annotation g653 g652 '#f) g653)
g651)))
(g94 (lambda (g488 g487)
(if (if (null? (g69 g487)) (null? (g70 g487)) '#f)
g488
(if (g52 g488)
(g51 (g53 g488) (g85 g487 (g54 g488)))
(if (null? g488) g488 (g51 g488 g487))))))
(g93 (lambda (g649 g648)
(if (not (null? g648))
((lambda (g650)
(if g650 g650 (g93 g649 (cdr g648))))
(g90 g649 (car g648)))
'#f)))
(g92 (lambda (g489)
((letrec ((g490 (lambda (g491)
((lambda (g492)
(if g492
g492
(if (not (g93 (car g491)
(cdr g491)))
(g490 (cdr g491))
'#f)))
(null? g491)))))
g490)
g489)))
(g91 (lambda (g644)
(if ((letrec ((g645 (lambda (g646)
((lambda (g647)
(if g647
g647
(if (g66 (car g646))
(g645 (cdr g646))
'#f)))
(null? g646)))))
g645)
g644)
(g92 g644)
'#f)))
(g90 (lambda (g494 g493)
(if (if (g52 g494) (g52 g493) '#f)
(if (eq? ((lambda (g496)
(if (g43 g496)
(annotation-expression g496)
g496))
(g53 g494))
((lambda (g495)
(if (g43 g495)
(annotation-expression g495)
g495))
(g53 g493)))
(g87 (g69 (g54 g494)) (g69 (g54 g493)))
'#f)
(eq? ((lambda (g498)
(if (g43 g498)
(annotation-expression g498)
g498))
g494)
((lambda (g497)
(if (g43 g497)
(annotation-expression g497)
g497))
g493)))))
(g89 (lambda (g639 g638)
(if (eq? ((lambda (g642)
((lambda (g643)
(if (g43 g643)
(annotation-expression g643)
g643))
(if (g52 g642) (g53 g642) g642)))
g639)
((lambda (g640)
((lambda (g641)
(if (g43 g641)
(annotation-expression g641)
g641))
(if (g52 g640) (g53 g640) g640)))
g638))
(eq? (g88 g639 '(())) (g88 g638 '(())))
'#f)))
(g88 (lambda (g500 g499)
(letrec ((g503 (lambda (g526 g522 g525 g523 g524)
((lambda (g527)
((letrec ((g528 (lambda (g529)
(if (g41 g529
g527)
(g501 g526
(cdr g522)
g525)
(if (if (eq? (vector-ref
g523
g529)
g526)
(g87 g525
(vector-ref
(g76 g524)
g529))
'#f)
(values
(vector-ref
(g77 g524)
g529)
g525)
(g528 (g39 g529
'1)))))))
g528)
'0))
(vector-length g523))))
(g502 (lambda (g513 g509 g512 g510 g511)
((letrec ((g514 (lambda (g516 g515)
(if (null? g516)
(g501 g513
(cdr g509)
g512)
(if (if (eq? (car g516)
g513)
(g87 g512
(list-ref
(g76 g511)
g515))
'#f)
(values
(list-ref
(g77 g511)
g515)
g512)
(g514 (cdr g516)
(g39 g515
'1)))))))
g514)
g510
'0)))
(g501 (lambda (g519 g517 g518)
(if (null? g517)
(values '#f g518)
((lambda (g520)
(if (eq? g520 'shift)
(g501 g519
(cdr g517)
(cdr g518))
((lambda (g521)
(if (vector? g521)
(g503 g519
g517
g518
g521
g520)
(g502 g519
g517
g518
g521
g520)))
(g75 g520))))
(car g517))))))
(if (symbol? g500)
((lambda (g530) (if g530 g530 g500))
(call-with-values
(lambda ()
(g501 g500 (g70 g499) (g69 g499)))
(lambda (g531 . g532) g531)))
(if (g52 g500)
((lambda (g534 g533)
((lambda (g535)
(call-with-values
(lambda ()
(g501 g534 (g70 g499) g535))
(lambda (g537 g536)
((lambda (g538)
(if g538
g538
((lambda (g539)
(if g539 g539 g534))
(call-with-values
(lambda ()
(g501 g534
(g70 g533)
g536))
(lambda (g540 . g541)
g540)))))
g537))))
(g86 (g69 g499) (g69 g533))))
((lambda (g542)
(if (g43 g542)
(annotation-expression g542)
g542))
(g53 g500))
(g54 g500))
(if (g43 g500)
((lambda (g543)
((lambda (g544) (if g544 g544 g543))
(call-with-values
(lambda ()
(g501 g543
(g70 g499)
(g69 g499)))
(lambda (g545 . g546) g545))))
((lambda (g547)
(if (g43 g547)
(annotation-expression g547)
g547))
g500))
(g46 'id-var-name
'"invalid id"
g500)))))))
(g87 (lambda (g636 g635)
((lambda (g637)
(if g637
g637
(if (not (null? g636))
(if (not (null? g635))
(if (eq? (car g636) (car g635))
(g87 (cdr g636) (cdr g635))
'#f)
'#f)
'#f)))
(eq? g636 g635))))
(g86 (lambda (g549 g548) (g84 g549 g548)))
(g85 (lambda (g632 g631)
((lambda (g634 g633)
(if (null? g634)
(if (null? g633)
g631
(g68 (g69 g631) (g84 g633 (g70 g631))))
(g68 (g84 g634 (g69 g631))
(g84 g633 (g70 g631)))))
(g69 g632)
(g70 g632))))
(g84 (lambda (g551 g550)
(if (null? g550) g551 (append g551 g550))))
(g83 (lambda (g621 g619 g620)
(if (null? g621)
g620
(g68 (g69 g620)
(cons ((lambda (g622)
((lambda (g623)
((lambda (g625 g624)
(begin ((letrec ((g626 (lambda (g628
g627)
(if (not (null?
g628))
(call-with-values
(lambda ()
(g67 (car g628)
g620))
(lambda (g630
g629)
(begin (vector-set!
g625
g627
g630)
(vector-set!
g624
g627
g629)
(g626 (cdr g628)
(g39 g627
'1)))))
(void)))))
g626)
g621
'0)
(g73 g625 g624 g622)))
(make-vector g623)
(make-vector g623)))
(vector-length g622)))
(list->vector g619))
(g70 g620))))))
(g82 (lambda (g554 g552 g553)
(begin (g78 g554
(cons ((lambda (g555)
(if (g43 g555)
(annotation-expression g555)
g555))
(g53 g552))
(g75 g554)))
(g79 g554 (cons (g69 (g54 g552)) (g76 g554)))
(g80 g554 (cons g553 (g77 g554))))))
(g81 (lambda (g618)
(g68 (cons '#f (g69 g618)) (cons 'shift (g70 g618)))))
(g80 (lambda (g557 g556) (vector-set! g557 '3 g556)))
(g79 (lambda (g617 g616) (vector-set! g617 '2 g616)))
(g78 (lambda (g559 g558) (vector-set! g559 '1 g558)))
(g77 (lambda (g615) (vector-ref g615 '3)))
(g76 (lambda (g560) (vector-ref g560 '2)))
(g75 (lambda (g614) (vector-ref g614 '1)))
(g74 (lambda (g561)
(if (vector? g561)
(if (= (vector-length g561) '4)
(eq? (vector-ref g561 '0) 'ribcage)
'#f)
'#f)))
(g73 (lambda (g613 g611 g612)
(vector 'ribcage g613 g611 g612)))
(g72 (lambda (g562)
(if (null? g562) '() (cons (g71) (g72 (cdr g562))))))
(g71 (lambda () (string '#\i)))
(g70 cdr)
(g69 car)
(g68 cons)
(g67 (lambda (g608 g607)
(if (g52 g608)
(values
((lambda (g609)
(if (g43 g609)
(annotation-expression g609)
g609))
(g53 g608))
(g86 (g69 g607) (g69 (g54 g608))))
(values
((lambda (g610)
(if (g43 g610)
(annotation-expression g610)
g610))
g608)
(g69 g607)))))
(g66 (lambda (g563)
(if (symbol? g563)
'#t
(if (g52 g563)
(symbol?
((lambda (g564)
(if (g43 g564)
(annotation-expression g564)
g564))
(g53 g563)))
(if (g43 g563)
(symbol? (annotation-expression g563))
'#f)))))
(g65 (lambda (g605)
(if (g52 g605)
(symbol?
((lambda (g606)
(if (g43 g606)
(annotation-expression g606)
g606))
(g53 g605)))
'#f)))
(g64 (lambda (g567 g565 g566) (g47 g565 (cons g567 g566))))
(g63 (lambda (g602 g601)
((lambda (g603)
(if g603
(cdr g603)
(if (symbol? g602)
((lambda (g604) (if g604 g604 '(global)))
(g48 g602))
'(displaced-lexical))))
(assq g602 g601))))
(g62 (lambda (g568)
(if (null? g568)
'()
((lambda (g569)
(if (eq? (cadr g569) 'macro)
(cons g569 (g62 (cdr g568)))
(g62 (cdr g568))))
(car g568)))))
(g61 (lambda (g600 g598 g599)
(if (null? g600)
g599
(g61 (cdr g600)
(cdr g598)
(cons (cons (car g600)
(cons 'lexical (car g598)))
g599)))))
(g60 (lambda (g572 g570 g571)
(if (null? g572)
g571
(g60 (cdr g572)
(cdr g570)
(cons (cons (car g572) (car g570)) g571)))))
(g59 cdr)
(g58 car)
(g57 (lambda (g597)
(if (g43 g597)
(annotation-source g597)
(if (g52 g597) (g57 (g53 g597)) '#f))))
(g56 (lambda (g574 g573) (vector-set! g574 '2 g573)))
(g55 (lambda (g596 g595) (vector-set! g596 '1 g595)))
(g54 (lambda (g575) (vector-ref g575 '2)))
(g53 (lambda (g594) (vector-ref g594 '1)))
(g52 (lambda (g576)
(if (vector? g576)
(if (= (vector-length g576) '3)
(eq? (vector-ref g576 '0) 'syntax-object)
'#f)
'#f)))
(g51 (lambda (g593 g592) (vector 'syntax-object g593 g592)))
(g50 (lambda (g580 g577 g579 g578)
(if (null? g577)
g578
(list 'letrec (map list g577 g579) g578))))
(g49 (lambda (g591 g590)
(if (null? (cdr g590))
(car g590)
(cons 'begin g590))))
(g48 (lambda (g581) (getprop g581 '*sc-expander*)))
(g47 (lambda (g589 g588) (putprop g589 '*sc-expander* g588)))
(g46 (lambda (g584 g582 g583)
(error g584 '"~a ~s" g582 g583)))
(g45 (lambda (g587)
(display "EVAL! e=")
(display g38)
(newline)
(eval (list g38 g587) (interaction-environment))))
(g44 (lambda (g585)
(display "EVAL! e=")
(display g38)
(newline)
(eval (list g38 g585) (interaction-environment))))
(g43 (lambda (g586) '#f))
(g42 <)
(g41 =)
(g40 -)
(g39 +)
(g38 '"noexpand"))
(begin (g64 'local-syntax 'letrec-syntax '#t)
(g64 'local-syntax 'let-syntax '#f)
(g64 'core
'fluid-let-syntax
(lambda (g1137 g1134 g1136 g1135)
((lambda (g1138)
((lambda (g1139)
(if (if g1139
(apply
(lambda (g1144
g1140
g1143
g1141
g1142)
(g91 g1140))
g1139)
'#f)
(apply
(lambda (g1150 g1146 g1149 g1147 g1148)
((lambda (g1151)
(begin (for-each
(lambda (g1158 g1157)
((lambda (g1159)
(if (memv g1159
'(displaced-lexical))
(syntax-error
(g95 g1158
g1136
g1135)
'"identifier out of context")
(void)))
(g58 (g63 g1157
g1134))))
g1146
g1151)
(g106 (cons g1147 g1148)
(g95 g1137 g1136 g1135)
(g60 g1151
((lambda (g1152)
(map (lambda (g1154)
(cons 'macro
(g109 (g102 g1154
g1152
g1136))))
g1149))
(g62 g1134))
g1134)
g1136)))
(map (lambda (g1161)
(g88 g1161 g1136))
g1146)))
g1139)
((lambda (g1162)
(syntax-error (g95 g1137 g1136 g1135)))
g1138)))
(syntax-dispatch
g1138
'(any #(each (any any)) any . each-any))))
g1137)))
(g64 'core
'quote
(lambda (g808 g805 g807 g806)
((lambda (g809)
((lambda (g810)
(if g810
(apply
(lambda (g812 g811)
(list 'quote (g113 g811 g807)))
g810)
((lambda (g813)
(syntax-error (g95 g808 g807 g806)))
g809)))
(syntax-dispatch g809 '(any any))))
g808)))
(g64 'core
'syntax
((lambda ()
(letrec ((g1036 (lambda (g1119)
((lambda (g1120)
(if (memv g1120 '(ref))
(cadr g1119)
(if (memv g1120
'(primitive))
(cadr g1119)
(if (memv g1120
'(quote))
(list 'quote
(cadr g1119))
(if (memv g1120
'(lambda))
(list 'lambda
(cadr g1119)
(g1036
(caddr
g1119)))
(if (memv g1120
'(map))
((lambda (g1121)
(cons (if (g41 (length
g1121)
'2)
'map
'map)
g1121))
(map g1036
(cdr g1119)))
(cons (car g1119)
(map g1036
(cdr g1119)))))))))
(car g1119))))
(g1035 (lambda (g1037)
(if (eq? (car g1037) 'list)
(cons 'vector (cdr g1037))
(if (eq? (car g1037) 'quote)
(list 'quote
(list->vector
(cadr g1037)))
(list 'list->vector
g1037)))))
(g1034 (lambda (g1118 g1117)
(if (equal? g1117 ''())
g1118
(list 'append g1118 g1117))))
(g1033 (lambda (g1039 g1038)
((lambda (g1040)
(if (memv g1040 '(quote))
(if (eq? (car g1039)
'quote)
(list 'quote
(cons (cadr g1039)
(cadr g1038)))
(if (eq? (cadr g1038)
'())
(list 'list g1039)
(list 'cons
g1039
g1038)))
(if (memv g1040 '(list))
(cons 'list
(cons g1039
(cdr g1038)))
(list 'cons
g1039
g1038))))
(car g1038))))
(g1032 (lambda (g1110 g1109)
((lambda (g1112 g1111)
(if (eq? (car g1110) 'ref)
(car g1111)
(if (andmap
(lambda (g1113)
(if (eq? (car g1113)
'ref)
(memq (cadr g1113)
g1112)
'#f))
(cdr g1110))
(cons 'map
(cons (list 'primitive
(car g1110))
(map ((lambda (g1114)
(lambda (g1115)
(cdr (assq (cadr g1115)
g1114))))
(map cons
g1112
g1111))
(cdr g1110))))
(cons 'map
(cons (list 'lambda
g1112
g1110)
g1111)))))
(map cdr g1109)
(map (lambda (g1116)
(list 'ref (car g1116)))
g1109))))
(g1031 (lambda (g1042 g1041)
(list 'apply
'(primitive append)
(g1032 g1042 g1041))))
(g1030 (lambda (g1104 g1101 g1103 g1102)
(if (g41 g1103 '0)
(values g1101 g1102)
(if (null? g1102)
(syntax-error
g1104
'"missing ellipsis in syntax form")
(call-with-values
(lambda ()
(g1030
g1104
g1101
(g40 g1103 '1)
(cdr g1102)))
(lambda (g1106 g1105)
((lambda (g1107)
(if g1107
(values
(cdr g1107)
g1102)
((lambda (g1108)
(values
g1108
(cons (cons (cons g1106
g1108)
(car g1102))
g1105)))
(g114 'tmp))))
(assq g1106
(car g1102)))))))))
(g1029 (lambda (g1047
g1043
g1046
g1044
g1045)
(if (g66 g1043)
((lambda (g1048)
((lambda (g1049)
(if (eq? (g58 g1049)
'syntax)
(call-with-values
(lambda ()
((lambda (g1052)
(g1030
g1047
(car g1052)
(cdr g1052)
g1044))
(g59 g1049)))
(lambda (g1051
g1050)
(values
(list 'ref
g1051)
g1050)))
(if (g1045 g1043)
(syntax-error
g1047
'"misplaced ellipsis in syntax form")
(values
(list 'quote
g1043)
g1044))))
(g63 g1048 g1046)))
(g88 g1043 '(())))
((lambda (g1053)
((lambda (g1054)
(if (if g1054
(apply
(lambda (g1056
g1055)
(g1045
g1056))
g1054)
'#f)
(apply
(lambda (g1058
g1057)
(g1029
g1047
g1057
g1046
g1044
(lambda (g1059)
'#f)))
g1054)
((lambda (g1060)
(if (if g1060
(apply
(lambda (g1063
g1061
g1062)
(g1045
g1061))
g1060)
'#f)
(apply
(lambda (g1066
g1064
g1065)
((letrec ((g1067 (lambda (g1069
g1068)
((lambda (g1070)
((lambda (g1071)
(if (if g1071
(apply
(lambda (g1073
g1072)
(g1045
g1073))
g1071)
'#f)
(apply
(lambda (g1075
g1074)
(g1067
g1074
(lambda (g1076)
(call-with-values
(lambda ()
(g1068
(cons '()
g1076)))
(lambda (g1078
g1077)
(if (null?
(car g1077))
(syntax-error
g1047
'"extra ellipsis in syntax form")
(values
(g1031
g1078
(car g1077))
(cdr g1077))))))))
g1071)
((lambda (g1079)
(call-with-values
(lambda ()
(g1029
g1047
g1069
g1046
g1044
g1045))
(lambda (g1081
g1080)
(call-with-values
(lambda ()
(g1068
g1080))
(lambda (g1083
g1082)
(values
(g1034
g1083
g1081)
g1082))))))
g1070)))
(syntax-dispatch
g1070
'(any .
any))))
g1069))))
g1067)
g1065
(lambda (g1084)
(call-with-values
(lambda ()
(g1029
g1047
g1066
g1046
(cons '()
g1084)
g1045))
(lambda (g1086
g1085)
(if (null?
(car g1085))
(syntax-error
g1047
'"extra ellipsis in syntax form")
(values
(g1032
g1086
(car g1085))
(cdr g1085))))))))
g1060)
((lambda (g1087)
(if g1087
(apply
(lambda (g1089
g1088)
(call-with-values
(lambda ()
(g1029
g1047
g1089
g1046
g1044
g1045))
(lambda (g1091
g1090)
(call-with-values
(lambda ()
(g1029
g1047
g1088
g1046
g1090
g1045))
(lambda (g1093
g1092)
(values
(g1033
g1091
g1093)
g1092))))))
g1087)
((lambda (g1094)
(if g1094
(apply
(lambda (g1096
g1095)
(call-with-values
(lambda ()
(g1029
g1047
(cons g1096
g1095)
g1046
g1044
g1045))
(lambda (g1098
g1097)
(values
(g1035
g1098)
g1097))))
g1094)
((lambda (g1100)
(values
(list 'quote
g1043)
g1044))
g1053)))
(syntax-dispatch
g1053
'#(vector
(any .
each-any))))))
(syntax-dispatch
g1053
'(any .
any)))))
(syntax-dispatch
g1053
'(any any
.
any)))))
(syntax-dispatch
g1053
'(any any))))
g1043)))))
(lambda (g1125 g1122 g1124 g1123)
((lambda (g1126)
((lambda (g1127)
((lambda (g1128)
(if g1128
(apply
(lambda (g1130 g1129)
(call-with-values
(lambda ()
(g1029
g1126
g1129
g1122
'()
g111))
(lambda (g1132 g1131)
(g1036 g1132))))
g1128)
((lambda (g1133)
(syntax-error g1126))
g1127)))
(syntax-dispatch g1127 '(any any))))
g1126))
(g95 g1125 g1124 g1123)))))))
(g64 'core
'lambda
(lambda (g817 g814 g816 g815)
((lambda (g818)
((lambda (g819)
(if g819
(apply
(lambda (g821 g820)
(g107 (g95 g817 g816 g815)
g820
g814
g816
(lambda (g823 g822)
(list 'lambda g823 g822))))
g819)
(syntax-error g818)))
(syntax-dispatch g818 '(any . any))))
g817)))
(g64 'core
'letrec
(lambda (g1011 g1008 g1010 g1009)
((lambda (g1012)
((lambda (g1013)
(if g1013
(apply
(lambda (g1018 g1014 g1017 g1015 g1016)
((lambda (g1019)
(if (not (g91 g1019))
(syntax-error
g1011
'"duplicate bound variable in")
((lambda (g1021 g1020)
((lambda (g1023 g1022)
(g50 g1009
g1020
(map (lambda (g1026)
(g102 g1026
g1022
g1023))
g1017)
(g106 (cons g1015
g1016)
(g95 g1011
g1023
g1009)
g1022
g1023)))
(g83 g1019 g1021 g1010)
(g61 g1021 g1020 g1008)))
(g72 g1019)
(map g114 g1019))))
g1014))
g1013)
((lambda (g1028)
(syntax-error (g95 g1011 g1010 g1009)))
g1012)))
(syntax-dispatch
g1012
'(any #(each (any any)) any . each-any))))
g1011)))
(g64 'core
'if
(lambda (g827 g824 g826 g825)
((lambda (g828)
((lambda (g829)
(if g829
(apply
(lambda (g832 g830 g831)
(list 'if
(g102 g830 g824 g826)
(g102 g831 g824 g826)
(g110)))
g829)
((lambda (g833)
(if g833
(apply
(lambda (g837 g834 g836 g835)
(list 'if
(g102 g834 g824 g826)
(g102 g836 g824 g826)
(g102 g835 g824 g826)))
g833)
((lambda (g838)
(syntax-error
(g95 g827 g826 g825)))
g828)))
(syntax-dispatch
g828
'(any any any any)))))
(syntax-dispatch g828 '(any any any))))
g827)))
(g64 'core
'set!
(lambda (g994 g991 g993 g992)
((lambda (g995)
((lambda (g996)
(if (if g996
(apply
(lambda (g999 g997 g998) (g66 g997))
g996)
'#f)
(apply
(lambda (g1002 g1000 g1001)
((lambda (g1004 g1003)
((lambda (g1005)
((lambda (g1006)
(if (memv g1006 '(lexical))
(list 'set!
(g59 g1005)
g1004)
(if (memv g1006 '(global))
(list 'set!
g1003
g1004)
(if (memv g1006
'(displaced-lexical))
(syntax-error
(g94 g1000 g993)
'"identifier out of context")
(syntax-error
(g95 g994
g993
g992))))))
(g58 g1005)))
(g63 g1003 g991)))
(g102 g1001 g991 g993)
(g88 g1000 g993)))
g996)
((lambda (g1007)
(syntax-error (g95 g994 g993 g992)))
g995)))
(syntax-dispatch g995 '(any any any))))
g994)))
(g64 'begin 'begin '())
(g64 'define 'define '())
(g64 'define-syntax 'define-syntax '())
(g64 'eval-when 'eval-when '())
(g64 'core
'syntax-case
((lambda ()
(letrec ((g842 (lambda (g899 g896 g898 g897)
(if (null? g898)
(list 'syntax-error g899)
((lambda (g900)
((lambda (g901)
(if g901
(apply
(lambda (g903 g902)
(if (if (g66 g903)
(andmap
(lambda (g904)
(not (g89 g903
g904)))
(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
self-evaluating?
build-lexical-var
build-letrec
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))
("i" "i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"i"
"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"))
#(ribcage
(define-structure)
((top))
("i"))))
g896))
'#f)
((lambda (g906
g905)
(list (list 'lambda
(list g905)
(g102 g902
(g60 g906
(list (cons 'syntax
(cons g905
'0)))
g897)
(g83 (list g903)
g906
'(()))))
g899))
(list (g71))
(g114 g903))
(g841 g899
g896
(cdr g898)
g897
g903
'#t
g902)))
g901)
((lambda (g907)
(if g907
(apply
(lambda (g910
g908
g909)
(g841 g899
g896
(cdr g898)
g897
g910
g908
g909))
g907)
((lambda (g911)
(syntax-error
(car g898)
'"invalid syntax-case clause"))
g900)))
(syntax-dispatch
g900
'(any any any)))))
(syntax-dispatch
g900
'(any any))))
(car g898)))))
(g841 (lambda (g849
g843
g848
g844
g847
g845
g846)
(call-with-values
(lambda () (g839 g847 g843))
(lambda (g851 g850)
(if (not (g92 (map car g850)))
(syntax-error
g847
'"duplicate pattern variable in syntax-case pattern")
(if (not (andmap
(lambda (g852)
(not (g111 (car g852))))
g850))
(syntax-error
g847
'"misplaced ellipsis in syntax-case pattern")
((lambda (g853)
(list (list 'lambda
(list g853)
((lambda (g854)
(list 'if
((lambda (g855)
((lambda (g856)
(if g856
(apply
(lambda ()
g854)
g856)
((lambda (g857)
(list 'if
g854
(g840 g850
g845
g854
g844)
(list 'quote
'#f)))
g855)))
(syntax-dispatch
g855
'#(atom
#t))))
g845)
(g840 g850
g846
g854
g844)
(g842 g849
g843
g848
g844)))
g853))
(if (eq? g851
'any)
(list 'list
g849)
(list 'syntax-dispatch
g849
(list 'quote
g851)))))
(g114 'tmp))))))))
(g840 (lambda (g889 g886 g888 g887)
((lambda (g891 g890)
((lambda (g893 g892)
(list 'apply
(list 'lambda
g892
(g102 g886
(g60 g893
(map (lambda (g895
g894)
(cons 'syntax
(cons g895
g894)))
g892
(map cdr
g889))
g887)
(g83 g891
g893
'(()))))
g888))
(g72 g891)
(map g114 g891)))
(map car g889)
(map cdr g889))))
(g839 (lambda (g859 g858)
((letrec ((g860 (lambda (g863
g861
g862)
(if (g66 g863)
(if (g93 g863
g858)
(values
(vector
'free-id
g863)
g862)
(values
'any
(cons (cons g863
g861)
g862)))
((lambda (g864)
((lambda (g865)
(if (if g865
(apply
(lambda (g867
g866)
(g111 g866))
g865)
'#f)
(apply
(lambda (g869
g868)
(call-with-values
(lambda ()
(g860 g869
(g39 g861
'1)
g862))
(lambda (g871
g870)
(values
(if (eq? g871
'any)
'each-any
(vector
'each
g871))
g870))))
g865)
((lambda (g872)
(if g872
(apply
(lambda (g874
g873)
(call-with-values
(lambda ()
(g860 g873
g861
g862))
(lambda (g876
g875)
(call-with-values
(lambda ()
(g860 g874
g861
g875))
(lambda (g878
g877)
(values
(cons g878
g876)
g877))))))
g872)
((lambda (g879)
(if g879
(apply
(lambda ()
(values
'()
g862))
g879)
((lambda (g880)
(if g880
(apply
(lambda (g881)
(call-with-values
(lambda ()
(g860 g881
g861
g862))
(lambda (g883
g882)
(values
(vector
'vector
g883)
g882))))
g880)
((lambda (g885)
(values
(vector
'atom
(g113 g863
'(())))
g862))
g864)))
(syntax-dispatch
g864
'#(vector
each-any)))))
(syntax-dispatch
g864
'()))))
(syntax-dispatch
g864
'(any .
any)))))
(syntax-dispatch
g864
'(any any))))
g863)))))
g860)
g859
'0
'()))))
(lambda (g915 g912 g914 g913)
((lambda (g916)
((lambda (g917)
((lambda (g918)
(if g918
(apply
(lambda (g922 g919 g921 g920)
(if (andmap
(lambda (g924)
(if (g66 g924)
(not (g111 g924))
'#f))
g921)
((lambda (g925)
(list (list 'lambda
(list g925)
(g842 g925
g921
g920
g912))
(g102 g919
g912
'(()))))
(g114 'tmp))
(syntax-error
g916
'"invalid literals list in")))
g918)
(syntax-error g917)))
(syntax-dispatch
g917
'(any any each-any . each-any))))
g916))
(g95 g915 g914 g913)))))))
(set! sc-expand
((lambda (g989 g988)
(lambda (g990)
(if (if (pair? g990) (equal? (car g990) g38) '#f)
(cadr g990)
(g101 g990 '() '((top)) g989 g988))))
'e
'(eval)))
(set! identifier? (lambda (g928) (g65 g928)))
(set! datum->syntax-object
(lambda (g986 g985)
(begin ((lambda (g987)
(if (not (g65 g987))
(g46 'datum->syntax-object
'"invalid argument"
g987)
(void)))
g986)
(g51 g985 (g54 g986)))))
(set! syntax-object->datum
(lambda (g929) (g113 g929 '(()))))
(set! generate-temporaries
(lambda (g982)
(begin ((lambda (g984)
(if (not (list? g984))
(g46 'generate-temporaries
'"invalid argument"
g984)
(void)))
g982)
(map (lambda (g983) (g94 (gensym) '((top))))
g982))))
(set! free-identifier=?
(lambda (g931 g930)
(begin ((lambda (g933)
(if (not (g65 g933))
(g46 'free-identifier=?
'"invalid argument"
g933)
(void)))
g931)
((lambda (g932)
(if (not (g65 g932))
(g46 'free-identifier=?
'"invalid argument"
g932)
(void)))
g930)
(g89 g931 g930))))
(set! bound-identifier=?
(lambda (g979 g978)
(begin ((lambda (g981)
(if (not (g65 g981))
(g46 'bound-identifier=?
'"invalid argument"
g981)
(void)))
g979)
((lambda (g980)
(if (not (g65 g980))
(g46 'bound-identifier=?
'"invalid argument"
g980)
(void)))
g978)
(g90 g979 g978))))
(set! syntax-error
(lambda (g934 . g935)
(begin (for-each
(lambda (g937)
((lambda (g938)
(if (not (string? g938))
(g46 'syntax-error
'"invalid argument"
g938)
(void)))
g937))
g935)
((lambda (g936) (g46 '#f g936 (g113 g934 '(()))))
(if (null? g935)
'"invalid syntax"
(apply string-append g935))))))
(set! install-global-transformer
(lambda (g975 g974)
(begin ((lambda (g977)
(if (not (symbol? g977))
(g46 'define-syntax
'"invalid argument"
g977)
(void)))
g975)
((lambda (g976)
(if (not (procedure? g976))
(g46 'define-syntax
'"invalid argument"
g976)
(void)))
g974)
(g64 'macro g975 g974))))
((lambda ()
(letrec ((g943 (lambda (g967 g964 g966 g965)
(if (not g965)
'#f
(if (eq? g964 'any)
(cons (g94 g967 g966) g965)
(if (g52 g967)
(g942 ((lambda (g968)
(if (g43 g968)
(annotation-expression
g968)
g968))
(g53 g967))
g964
(g85 g966 (g54 g967))
g965)
(g942 ((lambda (g969)
(if (g43 g969)
(annotation-expression
g969)
g969))
g967)
g964
g966
g965))))))
(g942 (lambda (g947 g944 g946 g945)
(if (null? g944)
(if (null? g947) g945 '#f)
(if (pair? g944)
(if (pair? g947)
(g943 (car g947)
(car g944)
g946
(g943 (cdr g947)
(cdr g944)
g946
g945))
'#f)
(if (eq? g944 'each-any)
((lambda (g948)
(if g948
(cons g948 g945)
'#f))
(g940 g947 g946))
((lambda (g949)
(if (memv g949 '(each))
(if (null? g947)
(g941 (vector-ref
g944
'1)
g945)
((lambda (g950)
(if g950
((letrec ((g951 (lambda (g952)
(if (null?
(car g952))
g945
(cons (map car
g952)
(g951 (map cdr
g952)))))))
g951)
g950)
'#f))
(g939 g947
(vector-ref
g944
'1)
g946)))
(if (memv g949
'(free-id))
(if (g66 g947)
(if (g89 (g94 g947
g946)
(vector-ref
g944
'1))
g945
'#f)
'#f)
(if (memv g949
'(atom))
(if (equal?
(vector-ref
g944
'1)
(g113 g947
g946))
g945
'#f)
(if (memv g949
'(vector))
(if (vector?
g947)
(g943 (vector->list
g947)
(vector-ref
g944
'1)
g946
g945)
'#f)
(void))))))
(vector-ref g944 '0)))))))
(g941 (lambda (g962 g961)
(if (null? g962)
g961
(if (eq? g962 'any)
(cons '() g961)
(if (pair? g962)
(g941 (car g962)
(g941 (cdr g962)
g961))
(if (eq? g962 'each-any)
(cons '() g961)
((lambda (g963)
(if (memv g963
'(each))
(g941 (vector-ref
g962
'1)
g961)
(if (memv g963
'(free-id
atom))
g961
(if (memv g963
'(vector))
(g941 (vector-ref
g962
'1)
g961)
(void)))))
(vector-ref
g962
'0))))))))
(g940 (lambda (g954 g953)
(if (g43 g954)
(g940 (annotation-expression g954)
g953)
(if (pair? g954)
((lambda (g955)
(if g955
(cons (g94 (car g954)
g953)
g955)
'#f))
(g940 (cdr g954) g953))
(if (null? g954)
'()
(if (g52 g954)
(g940 (g53 g954)
(g85 g953
(g54 g954)))
'#f))))))
(g939 (lambda (g958 g956 g957)
(if (g43 g958)
(g939 (annotation-expression g958)
g956
g957)
(if (pair? g958)
((lambda (g959)
(if g959
((lambda (g960)
(if g960
(cons g959 g960)
'#f))
(g939 (cdr g958)
g956
g957))
'#f))
(g943 (car g958)
g956
g957
'()))
(if (null? g958)
'()
(if (g52 g958)
(g939 (g53 g958)
g956
(g85 g957
(g54 g958)))
'#f)))))))
(set! syntax-dispatch
(lambda (g971 g970)
(if (eq? g970 'any)
(list g971)
(if (g52 g971)
(g942 ((lambda (g972)
(if (g43 g972)
(annotation-expression g972)
g972))
(g53 g971))
g970
(g54 g971)
'())
(g942 ((lambda (g973)
(if (g43 g973)
(annotation-expression g973)
g973))
g971)
g970
'(())
'()))))))))))))))
(install-global-transformer
'with-syntax
(lambda (g1163)
((lambda (g1164)
((lambda (g1165)
(if g1165
(apply
(lambda (g1168 g1166 g1167)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
#("i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
(cons g1166 g1167)))
g1165)
((lambda (g1170)
(if g1170
(apply
(lambda (g1175 g1171 g1174 g1172 g1173)
(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"))))
g1174
'()
(list g1171
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ out in e1 e2)
#((top)
(top)
(top)
(top)
(top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1172 g1173)))))
g1170)
((lambda (g1177)
(if g1177
(apply
(lambda (g1182 g1178 g1181 g1179 g1180)
(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"))))
g1181)
'()
(list g1178
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ out in e1 e2)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1179 g1180)))))
g1177)
(syntax-error g1164)))
(syntax-dispatch
g1164
'(any #(each (any any)) any . each-any)))))
(syntax-dispatch g1164 '(any ((any any)) any . each-any)))))
(syntax-dispatch g1164 '(any () any . each-any))))
g1163)))
(install-global-transformer
'syntax-rules
(lambda (g1186)
((lambda (g1187)
((lambda (g1188)
(if g1188
(apply
(lambda (g1193 g1189 g1192 g1190 g1191)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
'(#(syntax-object
x
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
(cons '#(syntax-object
x
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
(cons g1189
(map (lambda (g1196 g1195)
(list (cons '#(syntax-object
dummy
((top)
#(ribcage
#(_
k
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1195)
(list '#(syntax-object
syntax
((top)
#(ribcage
#(_
k
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1196)))
g1191
g1190))))))
g1188)
(syntax-error g1187)))
(syntax-dispatch
g1187
'(any each-any . #(each ((any . any) any))))))
g1186)))
(install-global-transformer
'or
(lambda (g1197)
((lambda (g1198)
((lambda (g1199)
(if g1199
(apply
(lambda (g1200)
'#(syntax-object
#f
((top)
#(ribcage #(_) #((top)) #("i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))))
g1199)
((lambda (g1201)
(if g1201
(apply (lambda (g1203 g1202) g1202) g1201)
((lambda (g1204)
(if g1204
(apply
(lambda (g1208 g1205 g1207 g1206)
(list '#(syntax-object
let
((top)
#(ribcage
#(_ e1 e2 e3)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
(list (list '#(syntax-object
t
((top)
#(ribcage
#(_ e1 e2 e3)
#((top)
(top)
(top)
(top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
g1205))
(list '#(syntax-object
if
((top)
#(ribcage
#(_ e1 e2 e3)
#((top)
(top)
(top)
(top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
'#(syntax-object
t
((top)
#(ribcage
#(_ e1 e2 e3)
#((top)
(top)
(top)
(top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
'#(syntax-object
t
((top)
#(ribcage
#(_ e1 e2 e3)
#((top)
(top)
(top)
(top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
(cons '#(syntax-object
or
((top)
#(ribcage
#(_ e1 e2 e3)
#((top)
(top)
(top)
(top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1207 g1206)))))
g1204)
(syntax-error g1198)))
(syntax-dispatch g1198 '(any any any . each-any)))))
(syntax-dispatch g1198 '(any any)))))
(syntax-dispatch g1198 '(any))))
g1197)))
(install-global-transformer
'and
(lambda (g1210)
((lambda (g1211)
((lambda (g1212)
(if g1212
(apply
(lambda (g1216 g1213 g1215 g1214)
(cons '#(syntax-object
if
((top)
#(ribcage
#(_ e1 e2 e3)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
(cons g1213
(cons (cons '#(syntax-object
and
((top)
#(ribcage
#(_ e1 e2 e3)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1215 g1214))
'(#(syntax-object
#f
((top)
#(ribcage
#(_ e1 e2 e3)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i")))))))))
g1212)
((lambda (g1218)
(if g1218
(apply (lambda (g1220 g1219) g1219) g1218)
((lambda (g1221)
(if g1221
(apply
(lambda (g1222)
'#(syntax-object
#t
((top)
#(ribcage #(_) #((top)) #("i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))))
g1221)
(syntax-error g1211)))
(syntax-dispatch g1211 '(any)))))
(syntax-dispatch g1211 '(any any)))))
(syntax-dispatch g1211 '(any any any . each-any))))
g1210)))
(install-global-transformer
'let
(lambda (g1223)
((lambda (g1224)
((lambda (g1225)
(if (if g1225
(apply
(lambda (g1230 g1226 g1229 g1227 g1228)
(andmap identifier? g1226))
g1225)
'#f)
(apply
(lambda (g1236 g1232 g1235 g1233 g1234)
(cons (cons '#(syntax-object
lambda
((top)
#(ribcage
#(_ x v e1 e2)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
(cons g1232 (cons g1233 g1234)))
g1235))
g1225)
((lambda (g1240)
(if (if g1240
(apply
(lambda (g1246 g1241 g1245 g1242 g1244 g1243)
(andmap identifier? (cons g1241 g1245)))
g1240)
'#f)
(apply
(lambda (g1253 g1248 g1252 g1249 g1251 g1250)
(cons (list '#(syntax-object
letrec
((top)
#(ribcage
#(_ f x v e1 e2)
#((top)
(top)
(top)
(top)
(top)
(top))
#("i" "i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
(list (list g1248
(cons '#(syntax-object
lambda
((top)
#(ribcage
#(_
f
x
v
e1
e2)
#((top)
(top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1252
(cons g1251
g1250)))))
g1248)
g1249))
g1240)
(syntax-error g1224)))
(syntax-dispatch
g1224
'(any any #(each (any any)) any . each-any)))))
(syntax-dispatch
g1224
'(any #(each (any any)) any . each-any))))
g1223)))
(install-global-transformer
'let*
(lambda (g1257)
((lambda (g1258)
((lambda (g1259)
(if (if g1259
(apply
(lambda (g1264 g1260 g1263 g1261 g1262)
(andmap identifier? g1260))
g1259)
'#f)
(apply
(lambda (g1270 g1266 g1269 g1267 g1268)
((letrec ((g1271 (lambda (g1272)
(if (null? g1272)
(cons '#(syntax-object
let
((top)
#(ribcage () () ())
#(ribcage
#(bindings)
#((top))
#("i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(let* x v e1 e2)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
(cons '()
(cons g1267 g1268)))
((lambda (g1274)
((lambda (g1275)
(if g1275
(apply
(lambda (g1277 g1276)
(list '#(syntax-object
let
((top)
#(ribcage
#(body
binding)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(bindings)
#((top))
#("i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(let*
x
v
e1
e2)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(list g1276)
g1277))
g1275)
(syntax-error g1274)))
(syntax-dispatch
g1274
'(any any))))
(list (g1271 (cdr g1272))
(car g1272)))))))
g1271)
(map list g1266 g1269)))
g1259)
(syntax-error g1258)))
(syntax-dispatch
g1258
'(any #(each (any any)) any . each-any))))
g1257)))
(install-global-transformer
'cond
(lambda (g1280)
((lambda (g1281)
((lambda (g1282)
(if g1282
(apply
(lambda (g1285 g1283 g1284)
((letrec ((g1286 (lambda (g1288 g1287)
(if (null? g1287)
((lambda (g1289)
((lambda (g1290)
(if g1290
(apply
(lambda (g1292 g1291)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1292
g1291)))
g1290)
((lambda (g1294)
(if g1294
(apply
(lambda (g1295)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons (list (list '#(syntax-object
t
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1295))
'((#(syntax-object
if
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
#(syntax-object
t
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
#(syntax-object
t
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i")))))))))
g1294)
((lambda (g1296)
(if g1296
(apply
(lambda (g1298
g1297)
(list '#(syntax-object
let
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(list (list '#(syntax-object
t
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1298))
(list '#(syntax-object
if
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
'#(syntax-object
t
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1297
'(#(syntax-object
t
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i")))))))))
g1296)
((lambda (g1299)
(if g1299
(apply
(lambda (g1302
g1300
g1301)
(list '#(syntax-object
if
((top)
#(ribcage
#(e0
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1302
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e0
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1300
g1301))))
g1299)
((lambda (g1304)
(syntax-error
g1280))
g1289)))
(syntax-dispatch
g1289
'(any any
.
each-any)))))
(syntax-dispatch
g1289
'(any #(free-id
#(syntax-object
=>
((top)
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i")))))
any)))))
(syntax-dispatch
g1289
'(any)))))
(syntax-dispatch
g1289
'(#(free-id
#(syntax-object
else
((top)
#(ribcage () () ())
#(ribcage
#(clause clauses)
#((top) (top))
#("i" "i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_ m1 m2)
#((top)
(top)
(top))
#("i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i")))))
any
.
each-any))))
g1288)
((lambda (g1305)
((lambda (g1306)
((lambda (g1307)
((lambda (g1308)
(if g1308
(apply
(lambda (g1309)
(list '#(syntax-object
let
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(list (list '#(syntax-object
t
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1309))
(list '#(syntax-object
if
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
'#(syntax-object
t
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
'#(syntax-object
t
((top)
#(ribcage
#(e0)
#((top))
#("i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1306)))
g1308)
((lambda (g1310)
(if g1310
(apply
(lambda (g1312
g1311)
(list '#(syntax-object
let
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(list (list '#(syntax-object
t
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1312))
(list '#(syntax-object
if
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
'#(syntax-object
t
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1311
'(#(syntax-object
t
((top)
#(ribcage
#(e0
e1)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))))
g1306)))
g1310)
((lambda (g1313)
(if g1313
(apply
(lambda (g1316
g1314
g1315)
(list '#(syntax-object
if
((top)
#(ribcage
#(e0
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1316
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e0
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1314
g1315))
g1306))
g1313)
((lambda (g1318)
(syntax-error
g1280))
g1307)))
(syntax-dispatch
g1307
'(any any
.
each-any)))))
(syntax-dispatch
g1307
'(any #(free-id
#(syntax-object
=>
((top)
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
m1
m2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i")))))
any)))))
(syntax-dispatch
g1307
'(any))))
g1288))
g1305))
(g1286
(car g1287)
(cdr g1287)))))))
g1286)
g1283
g1284))
g1282)
(syntax-error g1281)))
(syntax-dispatch g1281 '(any any . each-any))))
g1280)))
(install-global-transformer
'do
(lambda (g1320)
((lambda (g1321)
((lambda (g1322)
(if g1322
(apply
(lambda (g1329 g1323 g1328 g1324 g1327 g1325 g1326)
((lambda (g1330)
((lambda (g1340)
(if g1340
(apply
(lambda (g1341)
((lambda (g1342)
((lambda (g1344)
(if g1344
(apply
(lambda ()
(list '#(syntax-object
let
((top)
#(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
#(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 g1323 g1328)
(list '#(syntax-object
if
((top)
#(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
#(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"))))
g1327)
(cons '#(syntax-object
begin
((top)
#(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
g1326
(list (cons '#(syntax-object
doloop
((top)
#(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"))))
g1341)))))))
g1344)
((lambda (g1349)
(if g1349
(apply
(lambda (g1351 g1350)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top)
(top))
#("i"
"i"))
#(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
#(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
g1323
g1328)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1
e2)
#((top)
(top))
#("i"
"i"))
#(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"))))
g1327
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1
e2)
#((top)
(top))
#("i"
"i"))
#(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 g1351
g1350))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1
e2)
#((top)
(top))
#("i"
"i"))
#(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
g1326
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(e1
e2)
#((top)
(top))
#("i"
"i"))
#(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"))))
g1341)))))))
g1349)
(syntax-error g1342)))
(syntax-dispatch
g1342
'(any . each-any)))))
(syntax-dispatch g1342 '())))
g1325))
g1340)
(syntax-error g1330)))
(syntax-dispatch g1330 'each-any)))
(map (lambda (g1334 g1333)
((lambda (g1335)
((lambda (g1336)
(if g1336
(apply (lambda () g1334) g1336)
((lambda (g1337)
(if g1337
(apply
(lambda (g1338) g1338)
g1337)
((lambda (g1339)
(syntax-error g1320))
g1335)))
(syntax-dispatch g1335 '(any)))))
(syntax-dispatch g1335 '())))
g1333))
g1323
g1324)))
g1322)
(syntax-error g1321)))
(syntax-dispatch
g1321
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
g1320)))
(install-global-transformer
'quasiquote
(letrec ((g1360 (lambda (g1399 g1398)
((lambda (g1400)
((lambda (g1401)
(if g1401
(apply
(lambda (g1403 g1402)
((lambda (g1404)
((lambda (g1405)
(if g1405
(apply
(lambda (g1406)
((lambda (g1407)
((lambda (g1408)
(if g1408
(apply
(lambda (g1409)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
#("i"))
#(ribcage
#(dy)
#((top))
#("i"))
#(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 g1409
g1406)))
g1408)
((lambda (g1410)
(if (null?
g1406)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
#("i"))
#(ribcage
#(dy)
#((top))
#("i"))
#(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"))))
g1403)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
#("i"))
#(ribcage
#(dy)
#((top))
#("i"))
#(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"))))
g1403
g1402)))
g1407)))
(syntax-dispatch
g1407
'(#(free-id
#(syntax-object
quote
((top)
#(ribcage
#(dy)
#((top))
#("i"))
#(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))))
g1403))
g1405)
((lambda (g1411)
(if g1411
(apply
(lambda (g1412)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
#("i"))
#(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 g1403
g1412)))
g1411)
((lambda (g1413)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
#("i"))
#(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"))))
g1403
g1402))
g1404)))
(syntax-dispatch
g1404
'(#(free-id
#(syntax-object
list
((top)
#(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
g1404
'(#(free-id
#(syntax-object
quote
((top)
#(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))))
g1402))
g1401)
(syntax-error g1400)))
(syntax-dispatch g1400 '(any any))))
(list g1399 g1398))))
(g1357 (lambda (g1362 g1361)
((lambda (g1363)
((lambda (g1364)
(if g1364
(apply
(lambda (g1366 g1365)
((lambda (g1367)
((lambda (g1368)
(if g1368
(apply (lambda () g1366) g1368)
((lambda (g1369)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
#("i"))
#(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"))))
g1366
g1365))
g1367)))
(syntax-dispatch
g1367
'(#(free-id
#(syntax-object
quote
((top)
#(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")))))
()))))
g1365))
g1364)
(syntax-error g1363)))
(syntax-dispatch g1363 '(any any))))
(list g1362 g1361))))
(g1359 (lambda (g1387)
((lambda (g1388)
((lambda (g1389)
((lambda (g1390)
((lambda (g1391)
(if g1391
(apply
(lambda (g1392)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
#("i"))
#(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 g1392)))
g1391)
((lambda (g1394)
(if g1394
(apply
(lambda (g1395)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))))
g1395))
g1394)
((lambda (g1397)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
#("i"))
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))))
g1389))
g1390)))
(syntax-dispatch
g1390
'(#(free-id
#(syntax-object
list
((top)
#(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
g1390
'(#(free-id
#(syntax-object
quote
((top)
#(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))))
g1389))
g1388))
g1387)))
(g1358 (lambda (g1371 g1370)
((lambda (g1372)
((lambda (g1373)
(if g1373
(apply
(lambda (g1374)
(if (fx= g1370 '0)
g1374
(g1360
'(#(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")))))
(g1358
(list g1374)
(fx- g1370 '1)))))
g1373)
((lambda (g1375)
(if g1375
(apply
(lambda (g1377 g1376)
(if (fx= g1370 '0)
(g1357
g1377
(g1358 g1376 g1370))
(g1360
(g1360
'(#(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")))))
(g1358
(list g1377)
(fx- g1370 '1)))
(g1358 g1376 g1370))))
g1375)
((lambda (g1378)
(if g1378
(apply
(lambda (g1379)
(g1360
'(#(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")))))
(g1358
(list g1379)
(fx+ g1370 '1))))
g1378)
((lambda (g1380)
(if g1380
(apply
(lambda (g1382 g1381)
(g1360
(g1358
g1382
g1370)
(g1358
g1381
g1370)))
g1380)
((lambda (g1383)
(if g1383
(apply
(lambda (g1384)
(g1359
(g1358
g1384
g1370)))
g1383)
((lambda (g1386)
(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"))))
g1386))
g1372)))
(syntax-dispatch
g1372
'#(vector
each-any)))))
(syntax-dispatch
g1372
'(any . any)))))
(syntax-dispatch
g1372
'(#(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
g1372
'((#(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
g1372
'(#(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))))
g1371))))
(lambda (g1414)
((lambda (g1415)
((lambda (g1416)
(if g1416
(apply (lambda (g1418 g1417) (g1358 g1417 '0)) g1416)
(syntax-error g1415)))
(syntax-dispatch g1415 '(any any))))
g1414))))
(install-global-transformer
'include
(lambda (g1419)
(letrec ((g1420 (lambda (g1422 g1421)
((lambda (g1423)
((letrec ((g1424 (lambda (g1425)
(if (eof-object? g1425)
(begin (close-input-port
g1423)
'())
(cons (datum->syntax-object
g1421
g1425)
(g1424
(read g1423)))))))
g1424)
(read g1423)))
(open-input-file g1422)))))
((lambda (g1426)
((lambda (g1427)
(if g1427
(apply
(lambda (g1429 g1428)
((lambda (g1430)
((lambda (g1431)
((lambda (g1432)
(if g1432
(apply
(lambda (g1433)
(cons '#(syntax-object
begin
((top)
#(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"))))
g1433))
g1432)
(syntax-error g1431)))
(syntax-dispatch g1431 'each-any)))
(g1420 g1430 g1429)))
(syntax-object->datum g1428)))
g1427)
(syntax-error g1426)))
(syntax-dispatch g1426 '(any any))))
g1419))))
(install-global-transformer
'unquote
(lambda (g1435)
((lambda (g1436)
((lambda (g1437)
(if g1437
(apply
(lambda (g1439 g1438)
(error 'unquote
'"expression ,~s not valid outside of quasiquote"
(syntax-object->datum g1438)))
g1437)
(syntax-error g1436)))
(syntax-dispatch g1436 '(any any))))
g1435)))
(install-global-transformer
'unquote-splicing
(lambda (g1440)
((lambda (g1441)
((lambda (g1442)
(if g1442
(apply
(lambda (g1444 g1443)
(error 'unquote-splicing
'"expression ,@~s not valid outside of quasiquote"
(syntax-object->datum g1443)))
g1442)
(syntax-error g1441)))
(syntax-dispatch g1441 '(any any))))
g1440)))
(install-global-transformer
'case
(lambda (g1445)
((lambda (g1446)
((lambda (g1447)
(if g1447
(apply
(lambda (g1451 g1448 g1450 g1449)
((lambda (g1452)
((lambda (g1479)
(list '#(syntax-object
let
((top)
#(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
#(body)
#((top))
#("i"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i"))))
g1448))
g1479))
g1452))
((letrec ((g1453 (lambda (g1455 g1454)
(if (null? g1454)
((lambda (g1456)
((lambda (g1457)
(if g1457
(apply
(lambda (g1459 g1458)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1
e2)
#((top)
(top))
#("i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
e
m1
m2)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1459
g1458)))
g1457)
((lambda (g1461)
(if g1461
(apply
(lambda (g1464
g1462
g1463)
(list '#(syntax-object
if
((top)
#(ribcage
#(k
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("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
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("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
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("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
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
e
m1
m2)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1464))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
e
m1
m2)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1462
g1463))))
g1461)
((lambda (g1467)
(syntax-error
g1445))
g1456)))
(syntax-dispatch
g1456
'(each-any
any
.
each-any)))))
(syntax-dispatch
g1456
'(#(free-id
#(syntax-object
else
((top)
#(ribcage () () ())
#(ribcage
#(clause clauses)
#((top) (top))
#("i" "i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
#("i")))))
any
.
each-any))))
g1455)
((lambda (g1468)
((lambda (g1469)
((lambda (g1470)
((lambda (g1471)
(if g1471
(apply
(lambda (g1474
g1472
g1473)
(list '#(syntax-object
if
((top)
#(ribcage
#(k
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("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
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("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
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("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
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
e
m1
m2)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
g1474))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k
e1
e2)
#((top)
(top)
(top))
#("i"
"i"
"i"))
#(ribcage
#(rest)
#((top))
#("i"))
#(ribcage
()
()
())
#(ribcage
#(clause
clauses)
#((top)
(top))
#("i"
"i"))
#(ribcage
#(f)
#((top))
#("i"))
#(ribcage
#(_
e
m1
m2)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
#(x)
#((top))
#("i"))))
(cons g1472
g1473))
g1469))
g1471)
((lambda (g1477)
(syntax-error
g1445))
g1470)))
(syntax-dispatch
g1470
'(each-any
any
.
each-any))))
g1455))
g1468))
(g1453
(car g1454)
(cdr g1454)))))))
g1453)
g1450
g1449)))
g1447)
(syntax-error g1446)))
(syntax-dispatch g1446 '(any any any . each-any))))
g1445)))
(install-global-transformer
'identifier-syntax
(lambda (g1480)
((lambda (g1481)
((lambda (g1482)
(if g1482
(apply
(lambda (g1484 g1483)
(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"))))
g1483))
(list (cons g1484
'(#(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 g1483
'(#(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")))))))))))
g1482)
(syntax-error g1481)))
(syntax-dispatch g1481 '(any any))))
g1480)))
Reference in a new issue View git blame Copy permalink