diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-09-10 20:09:31 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-09-10 20:09:31 +0000 |
| commit | 2c6300009875da1b834a0007715a08c47f8bf45d (patch) | |
| tree | 5721e5b02bb8b8976c93ea388ab588a20d56ff4c /ice-9/psyntax.pp | |
| parent | 7a0ff2f80714f8c8ece3d8aa53a561dc209f696e (diff) | |
| download | guile-2c6300009875da1b834a0007715a08c47f8bf45d.tar.gz | |
* syncase.scm (psyncomp): New procedure: Recompiles psyntax.pp.
Should be used inside the (ice-9 syncase) module with (use-syntax
syncase) and with the current directory containing the psyntax.ss
source.
Added hack to transfer syntactic information from the builtin
variable `define' to the slib version if module (ice-9 slib) has
been loaded.
Diffstat (limited to 'ice-9/psyntax.pp')
| -rw-r--r-- | ice-9/psyntax.pp | 9932 |
1 files changed, 11 insertions, 9921 deletions
diff --git a/ice-9/psyntax.pp b/ice-9/psyntax.pp index 6abad55ef..172342d6d 100644 --- a/ice-9/psyntax.pp +++ b/ice-9/psyntax.pp @@ -1,9921 +1,11 @@ -;;; psyntax.pp -;;; automatically generated from psyntax.ss -;;; Wed Aug 20 08:31:55 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) (eval (list g38 g587)))) -(g44 (lambda (g585) (eval (list g38 g585)))) -(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 (= 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) -(- g1370 '1))))) -g1373) -((lambda (g1375) -(if g1375 -(apply -(lambda (g1377 g1376) -(if (= 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) -(- 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) -(+ 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))) +(letrec ((lambda-var-list (lambda (vars203) (let lvl ((vars204 vars203) (ls (quote ())) (w205 (quote (())))) (cond ((pair? vars204) (lvl (cdr vars204) (cons (wrap (car vars204) w205) ls) w205)) ((id? vars204) (cons (wrap vars204 w205) ls)) ((null? vars204) ls) ((syntax-object? vars204) (lvl (syntax-object-expression vars204) ls (join-wraps w205 (syntax-object-wrap vars204)))) ((annotation? vars204) (lvl (annotation-expression vars204) ls w205)) (else (cons vars204 ls)))))) (gen-var (lambda (id206) (let ((id207 (if (syntax-object? id206) (syntax-object-expression id206) id206))) (if (annotation? id207) (gensym (annotation-expression id207) generated-symbols) (gensym id207 generated-symbols))))) (strip (lambda (x208 w209) (if (memq (quote top) (wrap-marks w209)) (if (or (annotation? x208) (and (pair? x208) (annotation? (car x208)))) (strip-annotation x208 (quote #f)) x208) (let f210 ((x211 x208)) (cond ((syntax-object? x211) (strip (syntax-object-expression x211) (syntax-object-wrap x211))) ((pair? x211) (let ((a (f210 (car x211))) (d (f210 (cdr x211)))) (if (and (eq? a (car x211)) (eq? d (cdr x211))) x211 (cons a d)))) ((vector? x211) (let ((old212 (vector->list x211))) (let ((new213 (map f210 old212))) (if (andmap eq? old212 new213) x211 (list->vector new213))))) (else x211)))))) (strip-annotation (lambda (x214 parent) (cond ((pair? x214) (let ((new215 (cons (quote #f) (quote #f)))) (begin (when parent (set-annotation-stripped! parent new215)) (set-car! new215 (strip-annotation (car x214) (quote #f))) (set-cdr! new215 (strip-annotation (cdr x214) (quote #f))) new215))) ((annotation? x214) (or (annotation-stripped x214) (strip-annotation (annotation-expression x214) x214))) ((vector? x214) (let ((new216 (make-vector (vector-length x214)))) (begin (when parent (set-annotation-stripped! parent new216)) (let loop ((i217 (- (vector-length x214) (quote 1)))) (unless (fx< i217 (quote 0)) (vector-set! new216 i217 (strip-annotation (vector-ref x214 i217) (quote #f))) (loop (fx- i217 (quote 1))))) new216))) (else x214)))) (ellipsis? (lambda (x218) (and (nonsymbol-id? x218) (free-id=? x218 (quote #(syntax-object ... ((top) #(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-named-let build-let build-sequence build-data build-primref build-lambda build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage (define-structure) ((top)) ("i"))))))))) (chi-void (lambda () (list (quote void)))) (eval-local-transformer (lambda (expanded) (let ((p (local-eval-hook expanded))) (if (procedure? p) p (syntax-error p (quote "nonprocedure transfomer")))))) (chi-local-syntax (lambda (rec? e219 r w220 s k) ((lambda (tmp221) ((lambda (tmp222) (if tmp222 (apply (lambda (_223 id224 val e1 e2) (let ((ids225 id224)) (if (not (valid-bound-ids? ids225)) (syntax-error e219 (quote "duplicate bound keyword in")) (let ((labels (gen-labels ids225))) (let ((new-w (make-binding-wrap ids225 labels w220))) (k (cons e1 e2) (extend-env labels (let ((w228 (if rec? new-w w220)) (trans-r (macros-only-env r))) (map (lambda (x229) (cons (quote macro) (eval-local-transformer (chi x229 trans-r w228)))) val)) r) new-w s)))))) tmp222) ((lambda (_231) (syntax-error (source-wrap e219 w220 s))) tmp221))) (syntax-dispatch tmp221 (quote (any #(each (any any)) any . each-any))))) e219))) (chi-lambda-clause (lambda (e232 c r233 w234 k235) ((lambda (tmp236) ((lambda (tmp237) (if tmp237 (apply (lambda (id238 e1239 e2240) (let ((ids241 id238)) (if (not (valid-bound-ids? ids241)) (syntax-error e232 (quote "invalid parameter list in")) (let ((labels243 (gen-labels ids241)) (new-vars (map gen-var ids241))) (k235 new-vars (chi-body (cons e1239 e2240) e232 (extend-var-env labels243 new-vars r233) (make-binding-wrap ids241 labels243 w234))))))) tmp237) ((lambda (tmp245) (if tmp245 (apply (lambda (ids246 e1247 e2248) (let ((old-ids (lambda-var-list ids246))) (if (not (valid-bound-ids? old-ids)) (syntax-error e232 (quote "invalid parameter list in")) (let ((labels249 (gen-labels old-ids)) (new-vars250 (map gen-var old-ids))) (k235 (let f251 ((ls1 (cdr new-vars250)) (ls2 (car new-vars250))) (if (null? ls1) ls2 (f251 (cdr ls1) (cons (car ls1) ls2)))) (chi-body (cons e1247 e2248) e232 (extend-var-env labels249 new-vars250 r233) (make-binding-wrap old-ids labels249 w234))))))) tmp245) ((lambda (_253) (syntax-error e232)) tmp236))) (syntax-dispatch tmp236 (quote (any any . each-any)))))) (syntax-dispatch tmp236 (quote (each-any any . each-any))))) c))) (chi-body (lambda (body outer-form r254 w255) (let ((r256 (cons (quote ("placeholder" placeholder)) r254))) (let ((ribcage (make-ribcage (quote ()) (quote ()) (quote ())))) (let ((w257 (make-wrap (wrap-marks w255) (cons ribcage (wrap-subst w255))))) (let parse ((body258 (map (lambda (x262) (cons r256 (wrap x262 w257))) body)) (ids259 (quote ())) (labels260 (quote ())) (vars261 (quote ())) (vals (quote ())) (bindings (quote ()))) (if (null? body258) (syntax-error outer-form (quote "no expressions in body")) (let ((e263 (cdar body258)) (er (caar body258))) (call-with-values (lambda () (syntax-type e263 er (quote (())) (quote #f) ribcage)) (lambda (type264 value265 e266 w267 s268) (let ((t type264)) (if (memv t (quote (define-form))) (let ((id269 (wrap value265 w267)) (label (gen-label))) (let ((var270 (gen-var id269))) (begin (extend-ribcage! ribcage id269 label) (parse (cdr body258) (cons id269 ids259) (cons label labels260) (cons var270 vars261) (cons (cons er (wrap e266 w267)) vals) (cons (cons (quote lexical) var270) bindings))))) (if (memv t (quote (define-syntax-form))) (let ((id271 (wrap value265 w267)) (label272 (gen-label))) (begin (extend-ribcage! ribcage id271 label272) (parse (cdr body258) (cons id271 ids259) (cons label272 labels260) vars261 vals (cons (cons (quote macro) (cons er (wrap e266 w267))) bindings)))) (if (memv t (quote (begin-form))) ((lambda (tmp273) ((lambda (tmp274) (if tmp274 (apply (lambda (_275 e1276) (parse (let f277 ((forms e1276)) (if (null? forms) (cdr body258) (cons (cons er (wrap (car forms) w267)) (f277 (cdr forms))))) ids259 labels260 vars261 vals bindings)) tmp274) (syntax-error tmp273))) (syntax-dispatch tmp273 (quote (any . each-any))))) e266) (if (memv t (quote (local-syntax-form))) (chi-local-syntax value265 e266 er w267 s268 (lambda (forms279 er280 w281 s282) (parse (let f283 ((forms284 forms279)) (if (null? forms284) (cdr body258) (cons (cons er280 (wrap (car forms284) w281)) (f283 (cdr forms284))))) ids259 labels260 vars261 vals bindings))) (if (null? ids259) (build-sequence (quote #f) (map (lambda (x285) (chi (cdr x285) (car x285) (quote (())))) (cons (cons er (source-wrap e266 w267 s268)) (cdr body258)))) (begin (if (not (valid-bound-ids? ids259)) (syntax-error outer-form (quote "invalid or duplicate identifier in definition"))) (let loop286 ((bs bindings) (er-cache (quote #f)) (r-cache (quote #f))) (if (not (null? bs)) (let ((b (car bs))) (if (eq? (car b) (quote macro)) (let ((er287 (cadr b))) (let ((r-cache288 (if (eq? er287 er-cache) r-cache (macros-only-env er287)))) (begin (set-cdr! b (eval-local-transformer (chi (cddr b) r-cache288 (quote (()))))) (loop286 (cdr bs) er287 r-cache288)))) (loop286 (cdr bs) er-cache r-cache))))) (set-cdr! r256 (extend-env labels260 bindings (cdr r256))) (build-letrec (quote #f) vars261 (map (lambda (x289) (chi (cdr x289) (car x289) (quote (())))) vals) (build-sequence (quote #f) (map (lambda (x290) (chi (cdr x290) (car x290) (quote (())))) (cons (cons er (source-wrap e266 w267 s268)) (cdr body258)))))))))))))))))))))) (chi-macro (lambda (p291 e292 r293 w294 rib) (letrec ((rebuild-macro-output (lambda (x295 m) (cond ((pair? x295) (cons (rebuild-macro-output (car x295) m) (rebuild-macro-output (cdr x295) m))) ((syntax-object? x295) (let ((w296 (syntax-object-wrap x295))) (let ((ms (wrap-marks w296)) (s297 (wrap-subst w296))) (make-syntax-object (syntax-object-expression x295) (if (and (pair? ms) (eq? (car ms) (quote #f))) (make-wrap (cdr ms) (if rib (cons rib (cdr s297)) (cdr s297))) (make-wrap (cons m ms) (if rib (cons rib (cons (quote shift) s297)) (cons (quote shift) s297)))))))) ((vector? x295) (let ((n (vector-length x295))) (let ((v (make-vector n))) (let doloop ((i298 (quote 0))) (if (fx= i298 n) v (begin (vector-set! v i298 (rebuild-macro-output (vector-ref x295 i298) m)) (doloop (fx+ i298 (quote 1))))))))) ((symbol? x295) (syntax-error x295 (quote "encountered raw symbol in macro output"))) (else x295))))) (rebuild-macro-output (p291 (wrap e292 (anti-mark w294))) (string (quote #\m)))))) (chi-application (lambda (x299 e300 r301 w302 s303) ((lambda (tmp304) ((lambda (tmp305) (if tmp305 (apply (lambda (e0 e1306) (cons x299 (map (lambda (e307) (chi e307 r301 w302)) e1306))) tmp305) (syntax-error tmp304))) (syntax-dispatch tmp304 (quote (any . each-any))))) e300))) (chi-expr (lambda (type309 value310 e311 r312 w313 s314) (let ((t315 type309)) (if (memv t315 (quote (lexical))) value310 (if (memv t315 (quote (core))) (value310 e311 r312 w313 s314) (if (memv t315 (quote (lexical-call))) (chi-application value310 e311 r312 w313 s314) (if (memv t315 (quote (global-call))) (chi-application value310 e311 r312 w313 s314) (if (memv t315 (quote (constant))) (list (quote quote) (strip (source-wrap e311 w313 s314) (quote (())))) (if (memv t315 (quote (global))) value310 (if (memv t315 (quote (call))) (chi-application (chi (car e311) r312 w313) e311 r312 w313 s314) (if (memv t315 (quote (begin-form))) ((lambda (tmp316) ((lambda (tmp317) (if tmp317 (apply (lambda (_318 e1319 e2320) (chi-sequence (cons e1319 e2320) r312 w313 s314)) tmp317) (syntax-error tmp316))) (syntax-dispatch tmp316 (quote (any any . each-any))))) e311) (if (memv t315 (quote (local-syntax-form))) (chi-local-syntax value310 e311 r312 w313 s314 chi-sequence) (if (memv t315 (quote (eval-when-form))) ((lambda (tmp322) ((lambda (tmp323) (if tmp323 (apply (lambda (_324 x325 e1326 e2327) (let ((when-list (chi-when-list e311 x325 w313))) (if (memq (quote eval) when-list) (chi-sequence (cons e1326 e2327) r312 w313 s314) (chi-void)))) tmp323) (syntax-error tmp322))) (syntax-dispatch tmp322 (quote (any each-any any . each-any))))) e311) (if (memv t315 (quote (define-form define-syntax-form))) (syntax-error (wrap value310 w313) (quote "invalid context for definition of")) (if (memv t315 (quote (syntax))) (syntax-error (source-wrap e311 w313 s314) (quote "reference to pattern variable outside syntax form")) (if (memv t315 (quote (displaced-lexical))) (syntax-error (source-wrap e311 w313 s314) (quote "reference to identifier outside its scope")) (syntax-error (source-wrap e311 w313 s314)))))))))))))))))) (chi (lambda (e330 r331 w332) (call-with-values (lambda () (syntax-type e330 r331 w332 (quote #f) (quote #f))) (lambda (type333 value334 e335 w336 s337) (chi-expr type333 value334 e335 r331 w336 s337))))) (chi-top (lambda (e338 r339 w340 m341 esew) (call-with-values (lambda () (syntax-type e338 r339 w340 (quote #f) (quote #f))) (lambda (type348 value349 e350 w351 s352) (let ((t353 type348)) (if (memv t353 (quote (begin-form))) ((lambda (tmp354) ((lambda (tmp355) (if tmp355 (apply (lambda (_356) (chi-void)) tmp355) ((lambda (tmp357) (if tmp357 (apply (lambda (_358 e1359 e2360) (chi-top-sequence (cons e1359 e2360) r339 w351 s352 m341 esew)) tmp357) (syntax-error tmp354))) (syntax-dispatch tmp354 (quote (any any . each-any)))))) (syntax-dispatch tmp354 (quote (any))))) e350) (if (memv t353 (quote (local-syntax-form))) (chi-local-syntax value349 e350 r339 w351 s352 (lambda (body362 r363 w364 s365) (chi-top-sequence body362 r363 w364 s365 m341 esew))) (if (memv t353 (quote (eval-when-form))) ((lambda (tmp366) ((lambda (tmp367) (if tmp367 (apply (lambda (_368 x369 e1370 e2371) (let ((when-list372 (chi-when-list e350 x369 w351)) (body373 (cons e1370 e2371))) (cond ((eq? m341 (quote e)) (if (memq (quote eval) when-list372) (chi-top-sequence body373 r339 w351 s352 (quote e) (quote (eval))) (chi-void))) ((memq (quote load) when-list372) (if (or (memq (quote compile) when-list372) (and (eq? m341 (quote c&e)) (memq (quote eval) when-list372))) (chi-top-sequence body373 r339 w351 s352 (quote c&e) (quote (compile load))) (if (memq m341 (quote (c c&e))) (chi-top-sequence body373 r339 w351 s352 (quote c) (quote (load))) (chi-void)))) ((or (memq (quote compile) when-list372) (and (eq? m341 (quote c&e)) (memq (quote eval) when-list372))) (top-level-eval-hook (chi-top-sequence body373 r339 w351 s352 (quote e) (quote (eval)))) (chi-void)) (else (chi-void))))) tmp367) (syntax-error tmp366))) (syntax-dispatch tmp366 (quote (any each-any any . each-any))))) e350) (if (memv t353 (quote (define-syntax-form))) (let ((n376 (id-var-name value349 w351)) (r377 (macros-only-env r339))) (let ((t378 m341)) (if (memv t378 (quote (c))) (if (memq (quote compile) esew) (let ((e379 (chi-install-global n376 (chi e350 r377 w351)))) (begin (top-level-eval-hook e379) (if (memq (quote load) esew) e379 (chi-void)))) (if (memq (quote load) esew) (chi-install-global n376 (chi e350 r377 w351)) (chi-void))) (if (memv t378 (quote (c&e))) (let ((e380 (chi-install-global n376 (chi e350 r377 w351)))) (begin (top-level-eval-hook e380) e380)) (begin (if (memq (quote eval) esew) (top-level-eval-hook (chi-install-global n376 (chi e350 r377 w351)))) (chi-void)))))) (if (memv t353 (quote (define-form))) (let ((n381 (id-var-name value349 w351))) (let ((t382 (binding-type (lookup n381 r339)))) (if (memv t382 (quote (global))) (let ((x383 (list (quote define) n381 (chi e350 r339 w351)))) (begin (if (eq? m341 (quote c&e)) (top-level-eval-hook x383)) x383)) (if (memv t382 (quote (displaced-lexical))) (syntax-error (wrap value349 w351) (quote "identifier out of context")) (syntax-error (wrap value349 w351) (quote "cannot define keyword at top level")))))) (let ((x384 (chi-expr type348 value349 e350 r339 w351 s352))) (begin (if (eq? m341 (quote c&e)) (top-level-eval-hook x384)) x384)))))))))))) (syntax-type (lambda (e385 r386 w387 s388 rib389) (cond ((symbol? e385) (let ((n390 (id-var-name e385 w387))) (let ((b391 (lookup n390 r386))) (let ((type392 (binding-type b391))) (let ((t393 type392)) (if (memv t393 (quote (lexical))) (values type392 (binding-value b391) e385 w387 s388) (if (memv t393 (quote (global))) (values type392 n390 e385 w387 s388) (if (memv t393 (quote (macro))) (syntax-type (chi-macro (binding-value b391) e385 r386 w387 rib389) r386 (quote (())) s388 rib389) (values type392 (binding-value b391) e385 w387 s388))))))))) ((pair? e385) (let ((first (car e385))) (if (id? first) (let ((n394 (id-var-name first w387))) (let ((b395 (lookup n394 r386))) (let ((type396 (binding-type b395))) (let ((t397 type396)) (if (memv t397 (quote (lexical))) (values (quote lexical-call) (binding-value b395) e385 w387 s388) (if (memv t397 (quote (global))) (values (quote global-call) n394 e385 w387 s388) (if (memv t397 (quote (macro))) (syntax-type (chi-macro (binding-value b395) e385 r386 w387 rib389) r386 (quote (())) s388 rib389) (if (memv t397 (quote (core))) (values type396 (binding-value b395) e385 w387 s388) (if (memv t397 (quote (local-syntax))) (values (quote local-syntax-form) (binding-value b395) e385 w387 s388) (if (memv t397 (quote (begin))) (values (quote begin-form) (quote #f) e385 w387 s388) (if (memv t397 (quote (eval-when))) (values (quote eval-when-form) (quote #f) e385 w387 s388) (if (memv t397 (quote (define))) ((lambda (tmp398) ((lambda (tmp399) (if (if tmp399 (apply (lambda (_400 name401 val402) (id? name401)) tmp399) (quote #f)) (apply (lambda (_403 name404 val405) (values (quote define-form) name404 val405 w387 s388)) tmp399) ((lambda (tmp406) (if (if tmp406 (apply (lambda (_407 name408 args409 e1410 e2411) (and (id? name408) (or (valid-bound-ids? (lambda-var-list args409)) (id? (lambda-var-list args409))))) tmp406) (quote #f)) (apply (lambda (_412 name413 args414 e1415 e2416) (values (quote define-form) (wrap name413 w387) (cons (quote #(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(t) #(("m" top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(e r w s rib) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage (define-structure) ((top)) ("i"))))) (wrap (cons args414 (cons e1415 e2416)) w387)) (quote (())) s388)) tmp406) ((lambda (tmp418) (if (if tmp418 (apply (lambda (_419 name420) (id? name420)) tmp418) (quote #f)) (apply (lambda (_421 name422) (values (quote define-form) (wrap name422 w387) (quote (#(syntax-object void ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(t) #(("m" top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(e r w s rib) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage (define-structure) ((top)) ("i")))))) (quote (())) s388)) tmp418) (syntax-error tmp398))) (syntax-dispatch tmp398 (quote (any any)))))) (syntax-dispatch tmp398 (quote (any (any . any) any . each-any)))))) (syntax-dispatch tmp398 (quote (any any any))))) e385) (if (memv t397 (quote (define-syntax))) ((lambda (tmp423) ((lambda (tmp424) (if (if tmp424 (apply (lambda (_425 name426 val427) (id? name426)) tmp424) (quote #f)) (apply (lambda (_428 name429 val430) (values (quote define-syntax-form) name429 val430 w387 s388)) tmp424) (syntax-error tmp423))) (syntax-dispatch tmp423 (quote (any any any))))) e385) (values (quote call) (quote #f) e385 w387 s388)))))))))))))) (values (quote call) (quote #f) e385 w387 s388)))) ((syntax-object? e385) (syntax-type (syntax-object-expression e385) r386 (join-wraps w387 (syntax-object-wrap e385)) (quote #f) rib389)) ((annotation? e385) (syntax-type (annotation-expression e385) r386 w387 (annotation-source e385) rib389)) ((let ((x431 e385)) (or (boolean? x431) (number? x431) (string? x431) (char? x431) (null? x431) (keyword? x431))) (values (quote constant) (quote #f) e385 w387 s388)) (else (values (quote other) (quote #f) e385 w387 s388))))) (chi-when-list (lambda (e432 when-list433 w434) (let f435 ((when-list436 when-list433) (situations (quote ()))) (if (null? when-list436) situations (f435 (cdr when-list436) (cons (let ((x437 (car when-list436))) (cond ((free-id=? x437 (quote #(syntax-object compile ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage (define-structure) ((top)) ("i")))))) (quote compile)) ((free-id=? x437 (quote #(syntax-object load ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage (define-structure) ((top)) ("i")))))) (quote load)) ((free-id=? x437 (quote #(syntax-object eval ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source unannotate set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object self-evaluating? build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage (define-structure) ((top)) ("i")))))) (quote eval)) (else (syntax-error (wrap x437 w434) (quote "invalid eval-when situation"))))) situations)))))) (chi-install-global (lambda (name438 e439) (list (quote install-global-transformer) (list (quote quote) name438) e439))) (chi-top-sequence (lambda (body440 r441 w442 s443 m444 esew445) (build-sequence s443 (let dobody ((body446 body440) (r447 r441) (w448 w442) (m449 m444) (esew450 esew445)) (if (null? body446) (quote ()) (let ((first451 (chi-top (car body446) r447 w448 m449 esew450))) (cons first451 (dobody (cdr body446) r447 w448 m449 esew450)))))))) (chi-sequence (lambda (body452 r453 w454 s455) (build-sequence s455 (let dobody456 ((body457 body452) (r458 r453) (w459 w454)) (if (null? body457) (quote ()) (let ((first460 (chi (car body457) r458 w459))) (cons first460 (dobody456 (cdr body457) r458 w459)))))))) (source-wrap (lambda (x461 w462 s463) (wrap (if s463 (make-annotation x461 s463 (quote #f)) x461) w462))) (wrap (lambda (x464 w465) (cond ((and (null? (wrap-marks w465)) (null? (wrap-subst w465))) x464) ((syntax-object? x464) (make-syntax-object (syntax-object-expression x464) (join-wraps w465 (syntax-object-wrap x464)))) ((null? x464) x464) (else (make-syntax-object x464 w465))))) (bound-id-member? (lambda (x466 list) (and (not (null? list)) (or (bound-id=? x466 (car list)) (bound-id-member? x466 (cdr list)))))) (distinct-bound-ids? (lambda (ids467) (let distinct? ((ids468 ids467)) (or (null? ids468) (and (not (bound-id-member? (car ids468) (cdr ids468))) (distinct? (cdr ids468))))))) (valid-bound-ids? (lambda (ids469) (and (let all-ids? ((ids470 ids469)) (or (null? ids470) (and (id? (car ids470)) (all-ids? (cdr ids470))))) (distinct-bound-ids? ids469)))) (bound-id=? (lambda (i471 j) (if (and (syntax-object? i471) (syntax-object? j)) (and (eq? (let ((e472 (syntax-object-expression i471))) (if (annotation? e472) (annotation-expression e472) e472)) (let ((e473 (syntax-object-expression j))) (if (annotation? e473) (annotation-expression e473) e473))) (same-marks? (wrap-marks (syntax-object-wrap i471)) (wrap-marks (syntax-object-wrap j)))) (eq? (let ((e474 i471)) (if (annotation? e474) (annotation-expression e474) e474)) (let ((e475 j)) (if (annotation? e475) (annotation-expression e475) e475)))))) (free-id=? (lambda (i476 j477) (and (eq? (let ((x478 i476)) (let ((e479 (if (syntax-object? x478) (syntax-object-expression x478) x478))) (if (annotation? e479) (annotation-expression e479) e479))) (let ((x480 j477)) (let ((e481 (if (syntax-object? x480) (syntax-object-expression x480) x480))) (if (annotation? e481) (annotation-expression e481) e481)))) (eq? (id-var-name i476 (quote (()))) (id-var-name j477 (quote (()))))))) (id-var-name (lambda (id482 w483) (letrec ((search-vector-rib (lambda (sym subst marks489 symnames ribcage490) (let ((n491 (vector-length symnames))) (let f492 ((i493 (quote 0))) (cond ((fx= i493 n491) (search sym (cdr subst) marks489)) ((and (eq? (vector-ref symnames i493) sym) (same-marks? marks489 (vector-ref (ribcage-marks ribcage490) i493))) (values (vector-ref (ribcage-labels ribcage490) i493) marks489)) (else (f492 (fx+ i493 (quote 1))))))))) (search-list-rib (lambda (sym494 subst495 marks496 symnames497 ribcage498) (let f499 ((symnames500 symnames497) (i501 (quote 0))) (cond ((null? symnames500) (search sym494 (cdr subst495) marks496)) ((and (eq? (car symnames500) sym494) (same-marks? marks496 (list-ref (ribcage-marks ribcage498) i501))) (values (list-ref (ribcage-labels ribcage498) i501) marks496)) (else (f499 (cdr symnames500) (fx+ i501 (quote 1)))))))) (search (lambda (sym502 subst503 marks504) (if (null? subst503) (values (quote #f) marks504) (let ((fst (car subst503))) (if (eq? fst (quote shift)) (search sym502 (cdr subst503) (cdr marks504)) (let ((symnames505 (ribcage-symnames fst))) (if (vector? symnames505) (search-vector-rib sym502 subst503 marks504 symnames505 fst) (search-list-rib sym502 subst503 marks504 symnames505 fst))))))))) (cond ((symbol? id482) (or (call-with-values (lambda () (search id482 (wrap-subst w483) (wrap-marks w483))) (lambda (x506 . ignore) x506)) id482)) ((syntax-object? id482) (let ((id507 (let ((e508 (syntax-object-expression id482))) (if (annotation? e508) (annotation-expression e508) e508))) (w1 (syntax-object-wrap id482))) (let ((marks509 (join-marks (wrap-marks w483) (wrap-marks w1)))) (call-with-values (lambda () (search id507 (wrap-subst w483) marks509)) (lambda (new-id marks510) (or new-id (call-with-values (lambda () (search id507 (wrap-subst w1) marks510)) (lambda (x512 . ignore511) x512)) id507)))))) ((annotation? id482) (let ((id513 (let ((e514 id482)) (if (annotation? e514) (annotation-expression e514) e514)))) (or (call-with-values (lambda () (search id513 (wrap-subst w483) (wrap-marks w483))) (lambda (x516 . ignore515) x516)) id513))) (else (error-hook (quote id-var-name) (quote "invalid id") id482)))))) (same-marks? (lambda (x517 y) (or (eq? x517 y) (and (not (null? x517)) (not (null? y)) (eq? (car x517) (car y)) (same-marks? (cdr x517) (cdr y)))))) (join-marks (lambda (m1 m2) (smart-append m1 m2))) (join-wraps (lambda (w1518 w2) (let ((m1519 (wrap-marks w1518)) (s1 (wrap-subst w1518))) (if (null? m1519) (if (null? s1) w2 (make-wrap (wrap-marks w2) (smart-append s1 (wrap-subst w2)))) (make-wrap (smart-append m1519 (wrap-marks w2)) (smart-append s1 (wrap-subst w2))))))) (smart-append (lambda (m1520 m2521) (if (null? m2521) m1520 (append m1520 m2521)))) (make-binding-wrap (lambda (ids522 labels523 w524) (if (null? ids522) w524 (make-wrap (wrap-marks w524) (cons (let ((labelvec (list->vector labels523))) (let ((n525 (vector-length labelvec))) (let ((symnamevec (make-vector n525)) (marksvec (make-vector n525))) (begin (let f526 ((ids527 ids522) (i528 (quote 0))) (if (not (null? ids527)) (call-with-values (lambda () (id-sym-name&marks (car ids527) w524)) (lambda (symname marks529) (begin (vector-set! symnamevec i528 symname) (vector-set! marksvec i528 marks529) (f526 (cdr ids527) (fx+ i528 (quote 1)))))))) (make-ribcage symnamevec marksvec labelvec))))) (wrap-subst w524)))))) (extend-ribcage! (lambda (ribcage530 id531 label532) (begin (set-ribcage-symnames! ribcage530 (cons (let ((e533 (syntax-object-expression id531))) (if (annotation? e533) (annotation-expression e533) e533)) (ribcage-symnames ribcage530))) (set-ribcage-marks! ribcage530 (cons (wrap-marks (syntax-object-wrap id531)) (ribcage-marks ribcage530))) (set-ribcage-labels! ribcage530 (cons label532 (ribcage-labels ribcage530)))))) (anti-mark (lambda (w534) (make-wrap (cons (quote #f) (wrap-marks w534)) (cons (quote shift) (wrap-subst w534))))) (set-ribcage-labels! (lambda (x535 update) (vector-set! x535 (quote 3) update))) (set-ribcage-marks! (lambda (x536 update537) (vector-set! x536 (quote 2) update537))) (set-ribcage-symnames! (lambda (x538 update539) (vector-set! x538 (quote 1) update539))) (ribcage-labels (lambda (x540) (vector-ref x540 (quote 3)))) (ribcage-marks (lambda (x541) (vector-ref x541 (quote 2)))) (ribcage-symnames (lambda (x542) (vector-ref x542 (quote 1)))) (ribcage? (lambda (x543) (and (vector? x543) (= (vector-length x543) (quote 4)) (eq? (vector-ref x543 (quote 0)) (quote ribcage))))) (make-ribcage (lambda (symnames544 marks545 labels546) (vector (quote ribcage) symnames544 marks545 labels546))) (gen-labels (lambda (ls547) (if (null? ls547) (quote ()) (cons (gen-label) (gen-labels (cdr ls547)))))) (gen-label (lambda () (string (quote #\i)))) (wrap-subst cdr) (wrap-marks car) (make-wrap cons) (id-sym-name&marks (lambda (x548 w549) (if (syntax-object? x548) (values (let ((e550 (syntax-object-expression x548))) (if (annotation? e550) (annotation-expression e550) e550)) (join-marks (wrap-marks w549) (wrap-marks (syntax-object-wrap x548)))) (values (let ((e551 x548)) (if (annotation? e551) (annotation-expression e551) e551)) (wrap-marks w549))))) (id? (lambda (x552) (cond ((symbol? x552) (quote #t)) ((syntax-object? x552) (symbol? (let ((e553 (syntax-object-expression x552))) (if (annotation? e553) (annotation-expression e553) e553)))) ((annotation? x552) (symbol? (annotation-expression x552))) (else (quote #f))))) (nonsymbol-id? (lambda (x554) (and (syntax-object? x554) (symbol? (let ((e555 (syntax-object-expression x554))) (if (annotation? e555) (annotation-expression e555) e555)))))) (global-extend (lambda (type556 sym557 val558) (put-global-definition-hook sym557 (cons type556 val558)))) (lookup (lambda (x559 r560) (cond ((assq x559 r560) => cdr) ((symbol? x559) (or (get-global-definition-hook x559) (quote (global)))) (else (quote (displaced-lexical)))))) (macros-only-env (lambda (r561) (if (null? r561) (quote ()) (let ((a562 (car r561))) (if (eq? (cadr a562) (quote macro)) (cons a562 (macros-only-env (cdr r561))) (macros-only-env (cdr r561))))))) (extend-var-env (lambda (labels563 vars564 r565) (if (null? labels563) r565 (extend-var-env (cdr labels563) (cdr vars564) (cons (cons (car labels563) (cons (quote lexical) (car vars564))) r565))))) (extend-env (lambda (labels566 bindings567 r568) (if (null? labels566) r568 (extend-env (cdr labels566) (cdr bindings567) (cons (cons (car labels566) (car bindings567)) r568))))) (binding-value cdr) (binding-type car) (source-annotation (lambda (x569) (cond ((annotation? x569) (annotation-source x569)) ((syntax-object? x569) (source-annotation (syntax-object-expression x569))) (else (quote #f))))) (set-syntax-object-wrap! (lambda (x570 update571) (vector-set! x570 (quote 2) update571))) (set-syntax-object-expression! (lambda (x572 update573) (vector-set! x572 (quote 1) update573))) (syntax-object-wrap (lambda (x574) (vector-ref x574 (quote 2)))) (syntax-object-expression (lambda (x575) (vector-ref x575 (quote 1)))) (syntax-object? (lambda (x576) (and (vector? x576) (= (vector-length x576) (quote 3)) (eq? (vector-ref x576 (quote 0)) (quote syntax-object))))) (make-syntax-object (lambda (expression wrap577) (vector (quote syntax-object) expression wrap577))) (build-letrec (lambda (src578 vars579 val-exps body-exp) (if (null? vars579) body-exp (list (quote letrec) (map list vars579 val-exps) body-exp)))) (build-named-let (lambda (src580 vars581 val-exps582 body-exp583) (if (null? vars581) body-exp583 (list (quote let) (car vars581) (map list (cdr vars581) val-exps582) body-exp583)))) (build-let (lambda (src584 vars585 val-exps586 body-exp587) (if (null? vars585) body-exp587 (list (quote let) (map list vars585 val-exps586) body-exp587)))) (build-sequence (lambda (src588 exps) (if (null? (cdr exps)) (car exps) (cons (quote begin) exps)))) (get-global-definition-hook (lambda (symbol) (getprop symbol (quote *sc-expander*)))) (put-global-definition-hook (lambda (symbol589 binding) (putprop symbol589 (quote *sc-expander*) binding))) (error-hook (lambda (who590 why what) (error who590 (quote "~a ~s") why what))) (local-eval-hook (lambda (x591) (eval (list noexpand x591)))) (top-level-eval-hook (lambda (x592) (eval (list noexpand x592)))) (annotation? (lambda (x593) (quote #f))) (fx< <) (fx= =) (fx- -) (fx+ +) (noexpand (quote "noexpand"))) (begin (global-extend (quote local-syntax) (quote letrec-syntax) (quote #t)) (global-extend (quote local-syntax) (quote let-syntax) (quote #f)) (global-extend (quote core) (quote fluid-let-syntax) (lambda (e594 r595 w596 s597) ((lambda (tmp598) ((lambda (tmp599) (if (if tmp599 (apply (lambda (_600 var601 val602 e1603 e2604) (valid-bound-ids? var601)) tmp599) (quote #f)) (apply (lambda (_606 var607 val608 e1609 e2610) (let ((names (map (lambda (x611) (id-var-name x611 w596)) var607))) (begin (for-each (lambda (id613 n614) (let ((t615 (binding-type (lookup n614 r595)))) (if (memv t615 (quote (displaced-lexical))) (syntax-error (source-wrap id613 w596 s597) (quote "identifier out of context"))))) var607 names) (chi-body (cons e1609 e2610) (source-wrap e594 w596 s597) (extend-env names (let ((trans-r618 (macros-only-env r595))) (map (lambda (x619) (cons (quote macro) (eval-local-transformer (chi x619 trans-r618 w596)))) val608)) r595) w596)))) tmp599) ((lambda (_621) (syntax-error (source-wrap e594 w596 s597))) tmp598))) (syntax-dispatch tmp598 (quote (any #(each (any any)) any . each-any))))) e594))) (global-extend (quote core) (quote quote) (lambda (e622 r623 w624 s625) ((lambda (tmp626) ((lambda (tmp627) (if tmp627 (apply (lambda (_628 e629) (list (quote quote) (strip e629 w624))) tmp627) ((lambda (_630) (syntax-error (source-wrap e622 w624 s625))) tmp626))) (syntax-dispatch tmp626 (quote (any any))))) e622))) (global-extend (quote core) (quote syntax) (letrec ((regen (lambda (x631) (let ((t632 (car x631))) (if (memv t632 (quote (ref))) (cadr x631) (if (memv t632 (quote (primitive))) (cadr x631) (if (memv t632 (quote (quote))) (list (quote quote) (cadr x631)) (if (memv t632 (quote (lambda))) (list (quote lambda) (cadr x631) (regen (caddr x631))) (if (memv t632 (quote (map))) (let ((ls633 (map regen (cdr x631)))) (cons (if (fx= (length ls633) (quote 2)) (quote map) (quote map)) ls633)) (cons (car x631) (map regen (cdr x631))))))))))) (gen-vector (lambda (x634) (cond ((eq? (car x634) (quote list)) (cons (quote vector) (cdr x634))) ((eq? (car x634) (quote quote)) (list (quote quote) (list->vector (cadr x634)))) (else (list (quote list->vector) x634))))) (gen-append (lambda (x635 y636) (if (equal? y636 (quote (quote ()))) x635 (list (quote append) x635 y636)))) (gen-cons (lambda (x637 y638) (let ((t639 (car y638))) (if (memv t639 (quote (quote))) (if (eq? (car x637) (quote quote)) (list (quote quote) (cons (cadr x637) (cadr y638))) (if (eq? (cadr y638) (quote ())) (list (quote list) x637) (list (quote cons) x637 y638))) (if (memv t639 (quote (list))) (cons (quote list) (cons x637 (cdr y638))) (list (quote cons) x637 y638)))))) (gen-map (lambda (e640 map-env) (let ((formals (map cdr map-env)) (actuals (map (lambda (x641) (list (quote ref) (car x641))) map-env))) (cond ((eq? (car e640) (quote ref)) (car actuals)) ((andmap (lambda (x642) (and (eq? (car x642) (quote ref)) (memq (cadr x642) formals))) (cdr e640)) (cons (quote map) (cons (list (quote primitive) (car e640)) (map (let ((r643 (map cons formals actuals))) (lambda (x644) (cdr (assq (cadr x644) r643)))) (cdr e640))))) (else (cons (quote map) (cons (list (quote lambda) formals e640) actuals))))))) (gen-mappend (lambda (e645 map-env646) (list (quote apply) (quote (primitive append)) (gen-map e645 map-env646)))) (gen-ref (lambda (src647 var648 level649 maps) (if (fx= level649 (quote 0)) (values var648 maps) (if (null? maps) (syntax-error src647 (quote "missing ellipsis in syntax form")) (call-with-values (lambda () (gen-ref src647 var648 (fx- level649 (quote 1)) (cdr maps))) (lambda (outer-var outer-maps) (let ((b650 (assq outer-var (car maps)))) (if b650 (values (cdr b650) maps) (let ((inner-var (gen-var (quote tmp)))) (values inner-var (cons (cons (cons outer-var inner-var) (car maps)) outer-maps))))))))))) (gen-syntax (lambda (src651 e652 r653 maps654 ellipsis?655) (if (id? e652) (let ((label656 (id-var-name e652 (quote (()))))) (let ((b657 (lookup label656 r653))) (if (eq? (binding-type b657) (quote syntax)) (call-with-values (lambda () (let ((var.lev (binding-value b657))) (gen-ref src651 (car var.lev) (cdr var.lev) maps654))) (lambda (var658 maps659) (values (list (quote ref) var658) maps659))) (if (ellipsis?655 e652) (syntax-error src651 (quote "misplaced ellipsis in syntax form")) (values (list (quote quote) e652) maps654))))) ((lambda (tmp660) ((lambda (tmp661) (if (if tmp661 (apply (lambda (dots e662) (ellipsis?655 dots)) tmp661) (quote #f)) (apply (lambda (dots663 e664) (gen-syntax src651 e664 r653 maps654 (lambda (x665) (quote #f)))) tmp661) ((lambda (tmp666) (if (if tmp666 (apply (lambda (x667 dots668 y669) (ellipsis?655 dots668)) tmp666) (quote #f)) (apply (lambda (x670 dots671 y672) (let f673 ((y674 y672) (k675 (lambda (maps676) (call-with-values (lambda () (gen-syntax src651 x670 r653 (cons (quote ()) maps676) ellipsis?655)) (lambda (x677 maps678) (if (null? (car maps678)) (syntax-error src651 (quote "extra ellipsis in syntax form")) (values (gen-map x677 (car maps678)) (cdr maps678)))))))) ((lambda (tmp679) ((lambda (tmp680) (if (if tmp680 (apply (lambda (dots681 y682) (ellipsis?655 dots681)) tmp680) (quote #f)) (apply (lambda (dots683 y684) (f673 y684 (lambda (maps685) (call-with-values (lambda () (k675 (cons (quote ()) maps685))) (lambda (x686 maps687) (if (null? (car maps687)) (syntax-error src651 (quote "extra ellipsis in syntax form")) (values (gen-mappend x686 (car maps687)) (cdr maps687)))))))) tmp680) ((lambda (_688) (call-with-values (lambda () (gen-syntax src651 y674 r653 maps654 ellipsis?655)) (lambda (y689 maps690) (call-with-values (lambda () (k675 maps690)) (lambda (x691 maps692) (values (gen-append x691 y689) maps692)))))) tmp679))) (syntax-dispatch tmp679 (quote (any . any))))) y674))) tmp666) ((lambda (tmp693) (if tmp693 (apply (lambda (x694 y695) (call-with-values (lambda () (gen-syntax src651 x694 r653 maps654 ellipsis?655)) (lambda (x696 maps697) (call-with-values (lambda () (gen-syntax src651 y695 r653 maps697 ellipsis?655)) (lambda (y698 maps699) (values (gen-cons x696 y698) maps699)))))) tmp693) ((lambda (tmp700) (if tmp700 (apply (lambda (e1701 e2702) (call-with-values (lambda () (gen-syntax src651 (cons e1701 e2702) r653 maps654 ellipsis?655)) (lambda (e704 maps705) (values (gen-vector e704) maps705)))) tmp700) ((lambda (_706) (values (list (quote quote) e652) maps654)) tmp660))) (syntax-dispatch tmp660 (quote #(vector (any . each-any))))))) (syntax-dispatch tmp660 (quote (any . any)))))) (syntax-dispatch tmp660 (quote (any any . any)))))) (syntax-dispatch tmp660 (quote (any any))))) e652))))) (lambda (e707 r708 w709 s710) (let ((e711 (source-wrap e707 w709 s710))) ((lambda (tmp712) ((lambda (tmp713) (if tmp713 (apply (lambda (_714 x715) (call-with-values (lambda () (gen-syntax e711 x715 r708 (quote ()) ellipsis?)) (lambda (e716 maps717) (regen e716)))) tmp713) ((lambda (_718) (syntax-error e711)) tmp712))) (syntax-dispatch tmp712 (quote (any any))))) e711))))) (global-extend (quote core) (quote lambda) (lambda (e719 r720 w721 s722) ((lambda (tmp723) ((lambda (tmp724) (if tmp724 (apply (lambda (_725 c726) (chi-lambda-clause (source-wrap e719 w721 s722) c726 r720 w721 (lambda (vars727 body728) (list (quote lambda) vars727 body728)))) tmp724) (syntax-error tmp723))) (syntax-dispatch tmp723 (quote (any . any))))) e719))) (global-extend (quote core) (quote let) (letrec ((chi-let (lambda (e729 r730 w731 s732 constructor733 ids734 vals735 exps736) (if (not (valid-bound-ids? ids734)) (syntax-error e729 (quote "duplicate bound variable in")) (let ((labels737 (gen-labels ids734)) (new-vars738 (map gen-var ids734))) (let ((nw (make-binding-wrap ids734 labels737 w731)) (nr (extend-var-env labels737 new-vars738 r730))) (constructor733 s732 new-vars738 (map (lambda (x739) (chi x739 r730 w731)) vals735) (chi-body exps736 (source-wrap e729 nw s732) nr nw)))))))) (lambda (e740 r741 w742 s743) ((lambda (tmp744) ((lambda (tmp745) (if tmp745 (apply (lambda (_746 id747 val748 e1749 e2750) (chi-let e740 r741 w742 s743 build-let id747 val748 (cons e1749 e2750))) tmp745) ((lambda (tmp754) (if (if tmp754 (apply (lambda (_755 f756 id757 val758 e1759 e2760) (id? f756)) tmp754) (quote #f)) (apply (lambda (_761 f762 id763 val764 e1765 e2766) (chi-let e740 r741 w742 s743 build-named-let (cons f762 id763) val764 (cons e1765 e2766))) tmp754) ((lambda (_770) (syntax-error (source-wrap e740 w742 s743))) tmp744))) (syntax-dispatch tmp744 (quote (any any #(each (any any)) any . each-any)))))) (syntax-dispatch tmp744 (quote (any #(each (any any)) any . each-any))))) e740)))) (global-extend (quote core) (quote letrec) (lambda (e771 r772 w773 s774) ((lambda (tmp775) ((lambda (tmp776) (if tmp776 (apply (lambda (_777 id778 val779 e1780 e2781) (let ((ids782 id778)) (if (not (valid-bound-ids? ids782)) (syntax-error e771 (quote "duplicate bound variable in")) (let ((labels784 (gen-labels ids782)) (new-vars785 (map gen-var ids782))) (let ((w786 (make-binding-wrap ids782 labels784 w773)) (r787 (extend-var-env labels784 new-vars785 r772))) (build-letrec s774 new-vars785 (map (lambda (x788) (chi x788 r787 w786)) val779) (chi-body (cons e1780 e2781) (source-wrap e771 w786 s774) r787 w786))))))) tmp776) ((lambda (_791) (syntax-error (source-wrap e771 w773 s774))) tmp775))) (syntax-dispatch tmp775 (quote (any #(each (any any)) any . each-any))))) e771))) (global-extend (quote core) (quote set!) (lambda (e792 r793 w794 s795) ((lambda (tmp796) ((lambda (tmp797) (if (if tmp797 (apply (lambda (_798 id799 val800) (id? id799)) tmp797) (quote #f)) (apply (lambda (_801 id802 val803) (let ((val804 (chi val803 r793 w794)) (n805 (id-var-name id802 w794))) (let ((b806 (lookup n805 r793))) (let ((t807 (binding-type b806))) (if (memv t807 (quote (lexical))) (list (quote set!) (binding-value b806) val804) (if (memv t807 (quote (global))) (list (quote set!) n805 val804) (if (memv t807 (quote (displaced-lexical))) (syntax-error (wrap id802 w794) (quote "identifier out of context")) (syntax-error (source-wrap e792 w794 s795))))))))) tmp797) ((lambda (_808) (syntax-error (source-wrap e792 w794 s795))) tmp796))) (syntax-dispatch tmp796 (quote (any any any))))) e792))) (global-extend (quote begin) (quote begin) (quote ())) (global-extend (quote define) (quote define) (quote ())) (global-extend (quote define-syntax) (quote define-syntax) (quote ())) (global-extend (quote eval-when) (quote eval-when) (quote ())) (global-extend (quote core) (quote syntax-case) (letrec ((gen-syntax-case (lambda (x809 keys clauses r810) (if (null? clauses) (list (quote syntax-error) x809) ((lambda (tmp811) ((lambda (tmp812) (if tmp812 (apply (lambda (pat exp813) (if (and (id? pat) (andmap (lambda (x814) (not (free-id=? pat x814))) (cons (quote #(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-named-let build-let build-sequence build-data build-primref build-lambda build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application get-global-definition-hook put-global-definition-hook gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage (define-structure) ((top)) ("i"))))) keys))) (let ((labels815 (list (gen-label))) (var816 (gen-var pat))) (list (list (quote lambda) (list var816) (chi exp813 (extend-env labels815 (list (cons (quote syntax) (cons var816 (quote 0)))) r810) (make-binding-wrap (list pat) labels815 (quote (()))))) x809)) (gen-clause x809 keys (cdr clauses) r810 pat (quote #t) exp813))) tmp812) ((lambda (tmp817) (if tmp817 (apply (lambda (pat818 fender exp819) (gen-clause x809 keys (cdr clauses) r810 pat818 fender exp819)) tmp817) ((lambda (_820) (syntax-error (car clauses) (quote "invalid syntax-case clause"))) tmp811))) (syntax-dispatch tmp811 (quote (any any any)))))) (syntax-dispatch tmp811 (quote (any any))))) (car clauses))))) (gen-clause (lambda (x821 keys822 clauses823 r824 pat825 fender826 exp827) (call-with-values (lambda () (convert-pattern pat825 keys822)) (lambda (p828 pvars) (cond ((not (distinct-bound-ids? (map car pvars))) (syntax-error pat825 (quote "duplicate pattern variable in syntax-case pattern"))) ((not (andmap (lambda (x829) (not (ellipsis? (car x829)))) pvars)) (syntax-error pat825 (quote "misplaced ellipsis in syntax-case pattern"))) (else (let ((y830 (gen-var (quote tmp)))) (list (list (quote lambda) (list y830) (let ((y831 y830)) (list (quote if) ((lambda (tmp832) ((lambda (tmp833) (if tmp833 (apply (lambda () y831) tmp833) ((lambda (_834) (list (quote if) y831 (build-dispatch-call pvars fender826 y831 r824) (list (quote quote) (quote #f)))) tmp832))) (syntax-dispatch tmp832 (quote #(atom #t))))) fender826) (build-dispatch-call pvars exp827 y831 r824) (gen-syntax-case x821 keys822 clauses823 r824)))) (if (eq? p828 (quote any)) (list (quote list) x821) (list (quote syntax-dispatch) x821 (list (quote quote) p828))))))))))) (build-dispatch-call (lambda (pvars835 exp836 y837 r838) (let ((ids839 (map car pvars835)) (levels (map cdr pvars835))) (let ((labels840 (gen-labels ids839)) (new-vars841 (map gen-var ids839))) (list (quote apply) (list (quote lambda) new-vars841 (chi exp836 (extend-env labels840 (map (lambda (var842 level843) (cons (quote syntax) (cons var842 level843))) new-vars841 (map cdr pvars835)) r838) (make-binding-wrap ids839 labels840 (quote (()))))) y837))))) (convert-pattern (lambda (pattern keys844) (let cvt ((p845 pattern) (n846 (quote 0)) (ids847 (quote ()))) (if (id? p845) (if (bound-id-member? p845 keys844) (values (vector (quote free-id) p845) ids847) (values (quote any) (cons (cons p845 n846) ids847))) ((lambda (tmp848) ((lambda (tmp849) (if (if tmp849 (apply (lambda (x850 dots851) (ellipsis? dots851)) tmp849) (quote #f)) (apply (lambda (x852 dots853) (call-with-values (lambda () (cvt x852 (fx+ n846 (quote 1)) ids847)) (lambda (p854 ids855) (values (if (eq? p854 (quote any)) (quote each-any) (vector (quote each) p854)) ids855)))) tmp849) ((lambda (tmp856) (if tmp856 (apply (lambda (x857 y858) (call-with-values (lambda () (cvt y858 n846 ids847)) (lambda (y859 ids860) (call-with-values (lambda () (cvt x857 n846 ids860)) (lambda (x861 ids862) (values (cons x861 y859) ids862)))))) tmp856) ((lambda (tmp863) (if tmp863 (apply (lambda () (values (quote ()) ids847)) tmp863) ((lambda (tmp864) (if tmp864 (apply (lambda (x865) (call-with-values (lambda () (cvt x865 n846 ids847)) (lambda (p867 ids868) (values (vector (quote vector) p867) ids868)))) tmp864) ((lambda (x869) (values (vector (quote atom) (strip p845 (quote (())))) ids847)) tmp848))) (syntax-dispatch tmp848 (quote #(vector each-any)))))) (syntax-dispatch tmp848 (quote ()))))) (syntax-dispatch tmp848 (quote (any . any)))))) (syntax-dispatch tmp848 (quote (any any))))) p845)))))) (lambda (e870 r871 w872 s873) (let ((e874 (source-wrap e870 w872 s873))) ((lambda (tmp875) ((lambda (tmp876) (if tmp876 (apply (lambda (_877 val878 key m879) (if (andmap (lambda (x880) (and (id? x880) (not (ellipsis? x880)))) key) (let ((x882 (gen-var (quote tmp)))) (list (list (quote lambda) (list x882) (gen-syntax-case x882 key m879 r871)) (chi val878 r871 (quote (()))))) (syntax-error e874 (quote "invalid literals list in")))) tmp876) (syntax-error tmp875))) (syntax-dispatch tmp875 (quote (any any each-any . each-any))))) e874))))) (set! sc-expand (let ((m885 (quote e)) (esew886 (quote (eval)))) (lambda (x887) (if (and (pair? x887) (equal? (car x887) noexpand)) (cadr x887) (chi-top x887 (quote ()) (quote ((top))) m885 esew886))))) (set! sc-expand3 (let ((m888 (quote e)) (esew889 (quote (eval)))) (lambda (x890 . rest) (if (and (pair? x890) (equal? (car x890) noexpand)) (cadr x890) (chi-top x890 (quote ()) (quote ((top))) (if (null? rest) m888 (car rest)) (if (or (null? rest) (null? (cdr rest))) esew889 (cadr rest))))))) (set! identifier? (lambda (x891) (nonsymbol-id? x891))) (set! datum->syntax-object (lambda (id892 datum) (begin (let ((x893 id892)) (if (not (nonsymbol-id? x893)) (error-hook (quote datum->syntax-object) (quote "invalid argument") x893))) (make-syntax-object datum (syntax-object-wrap id892))))) (set! syntax-object->datum (lambda (x894) (strip x894 (quote (()))))) (set! generate-temporaries (lambda (ls895) (begin (let ((x896 ls895)) (if (not (list? x896)) (error-hook (quote generate-temporaries) (quote "invalid argument") x896))) (map (lambda (x897) (wrap (gensym) (quote ((top))))) ls895)))) (set! free-identifier=? (lambda (x898 y899) (begin (let ((x900 x898)) (if (not (nonsymbol-id? x900)) (error-hook (quote free-identifier=?) (quote "invalid argument") x900))) (let ((x901 y899)) (if (not (nonsymbol-id? x901)) (error-hook (quote free-identifier=?) (quote "invalid argument") x901))) (free-id=? x898 y899)))) (set! bound-identifier=? (lambda (x902 y903) (begin (let ((x904 x902)) (if (not (nonsymbol-id? x904)) (error-hook (quote bound-identifier=?) (quote "invalid argument") x904))) (let ((x905 y903)) (if (not (nonsymbol-id? x905)) (error-hook (quote bound-identifier=?) (quote "invalid argument") x905))) (bound-id=? x902 y903)))) (set! syntax-error (lambda (object . messages) (begin (for-each (lambda (x906) (let ((x907 x906)) (if (not (string? x907)) (error-hook (quote syntax-error) (quote "invalid argument") x907)))) messages) (let ((message (if (null? messages) (quote "invalid syntax") (apply string-append messages)))) (error-hook (quote #f) message (strip object (quote (())))))))) (set! install-global-transformer (lambda (sym908 v909) (begin (let ((x910 sym908)) (if (not (symbol? x910)) (error-hook (quote define-syntax) (quote "invalid argument") x910))) (let ((x911 v909)) (if (not (procedure? x911)) (error-hook (quote define-syntax) (quote "invalid argument") x911))) (global-extend (quote macro) sym908 v909)))) (letrec ((match (lambda (e912 p913 w914 r915) (cond ((not r915) (quote #f)) ((eq? p913 (quote any)) (cons (wrap e912 w914) r915)) ((syntax-object? e912) (match* (let ((e916 (syntax-object-expression e912))) (if (annotation? e916) (annotation-expression e916) e916)) p913 (join-wraps w914 (syntax-object-wrap e912)) r915)) (else (match* (let ((e917 e912)) (if (annotation? e917) (annotation-expression e917) e917)) p913 w914 r915))))) (match* (lambda (e918 p919 w920 r921) (cond ((null? p919) (and (null? e918) r921)) ((pair? p919) (and (pair? e918) (match (car e918) (car p919) w920 (match (cdr e918) (cdr p919) w920 r921)))) ((eq? p919 (quote each-any)) (let ((l (match-each-any e918 w920))) (and l (cons l r921)))) (else (let ((t922 (vector-ref p919 (quote 0)))) (if (memv t922 (quote (each))) (if (null? e918) (match-empty (vector-ref p919 (quote 1)) r921) (let ((l923 (match-each e918 (vector-ref p919 (quote 1)) w920))) (and l923 (let collect ((l924 l923)) (if (null? (car l924)) r921 (cons (map car l924) (collect (map cdr l924)))))))) (if (memv t922 (quote (free-id))) (and (id? e918) (free-id=? (wrap e918 w920) (vector-ref p919 (quote 1))) r921) (if (memv t922 (quote (atom))) (and (equal? (vector-ref p919 (quote 1)) (strip e918 w920)) r921) (if (memv t922 (quote (vector))) (and (vector? e918) (match (vector->list e918) (vector-ref p919 (quote 1)) w920 r921))))))))))) (match-empty (lambda (p925 r926) (cond ((null? p925) r926) ((eq? p925 (quote any)) (cons (quote ()) r926)) ((pair? p925) (match-empty (car p925) (match-empty (cdr p925) r926))) ((eq? p925 (quote each-any)) (cons (quote ()) r926)) (else (let ((t927 (vector-ref p925 (quote 0)))) (if (memv t927 (quote (each))) (match-empty (vector-ref p925 (quote 1)) r926) (if (memv t927 (quote (free-id atom))) r926 (if (memv t927 (quote (vector))) (match-empty (vector-ref p925 (quote 1)) r926))))))))) (match-each-any (lambda (e928 w929) (cond ((annotation? e928) (match-each-any (annotation-expression e928) w929)) ((pair? e928) (let ((l930 (match-each-any (cdr e928) w929))) (and l930 (cons (wrap (car e928) w929) l930)))) ((null? e928) (quote ())) ((syntax-object? e928) (match-each-any (syntax-object-expression e928) (join-wraps w929 (syntax-object-wrap e928)))) (else (quote #f))))) (match-each (lambda (e931 p932 w933) (cond ((annotation? e931) (match-each (annotation-expression e931) p932 w933)) ((pair? e931) (let ((first934 (match (car e931) p932 w933 (quote ())))) (and first934 (let ((rest935 (match-each (cdr e931) p932 w933))) (and rest935 (cons first934 rest935)))))) ((null? e931) (quote ())) ((syntax-object? e931) (match-each (syntax-object-expression e931) p932 (join-wraps w933 (syntax-object-wrap e931)))) (else (quote #f)))))) (set! syntax-dispatch (lambda (e936 p937) (cond ((eq? p937 (quote any)) (list e936)) ((syntax-object? e936) (match* (let ((e938 (syntax-object-expression e936))) (if (annotation? e938) (annotation-expression e938) e938)) p937 (syntax-object-wrap e936) (quote ()))) (else (match* (let ((e939 e936)) (if (annotation? e939) (annotation-expression e939) e939)) p937 (quote (())) (quote ()))))))))) +(install-global-transformer (quote with-syntax) (lambda (x940) ((lambda (tmp941) ((lambda (tmp942) (if tmp942 (apply (lambda (_943 e1944 e2945) (cons (quote #(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons e1944 e2945))) tmp942) ((lambda (tmp947) (if tmp947 (apply (lambda (_948 out in e1949 e2950) (list (quote #(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"))))) in (quote ()) (list out (cons (quote #(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 e1949 e2950))))) tmp947) ((lambda (tmp952) (if tmp952 (apply (lambda (_953 out954 in955 e1956 e2957) (list (quote #(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 (quote #(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) in955) (quote ()) (list out954 (cons (quote #(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 e1956 e2957))))) tmp952) (syntax-error tmp941))) (syntax-dispatch tmp941 (quote (any #(each (any any)) any . each-any)))))) (syntax-dispatch tmp941 (quote (any ((any any)) any . each-any)))))) (syntax-dispatch tmp941 (quote (any () any . each-any))))) x940))) +(install-global-transformer (quote syntax-rules) (lambda (x961) ((lambda (tmp962) ((lambda (tmp963) (if tmp963 (apply (lambda (_964 k965 keyword pattern966 template) (list (quote #(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (quote (#(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 (quote #(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 (quote #(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 k965 (map (lambda (tmp969 tmp968) (list (cons (quote #(syntax-object dummy ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) tmp968) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) tmp969))) template pattern966)))))) tmp963) (syntax-error tmp962))) (syntax-dispatch tmp962 (quote (any each-any . #(each ((any . any) any))))))) x961))) +(install-global-transformer (quote let*) (lambda (x970) ((lambda (tmp971) ((lambda (tmp972) (if (if tmp972 (apply (lambda (let* x973 v974 e1975 e2976) (andmap identifier? x973)) tmp972) (quote #f)) (apply (lambda (let*978 x979 v980 e1981 e2982) (let f983 ((bindings984 (map list x979 v980))) (if (null? bindings984) (cons (quote #(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i" "i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons (quote ()) (cons e1981 e2982))) ((lambda (tmp988) ((lambda (tmp989) (if tmp989 (apply (lambda (body binding) (list (quote #(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i" "i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (list binding) body)) tmp989) (syntax-error tmp988))) (syntax-dispatch tmp988 (quote (any any))))) (list (f983 (cdr bindings984)) (car bindings984)))))) tmp972) (syntax-error tmp971))) (syntax-dispatch tmp971 (quote (any #(each (any any)) any . each-any))))) x970))) +(install-global-transformer (quote do) (lambda (orig-x) ((lambda (tmp990) ((lambda (tmp991) (if tmp991 (apply (lambda (_992 var init step e0 e1 c) ((lambda (tmp993) ((lambda (tmp994) (if tmp994 (apply (lambda (step995) ((lambda (tmp996) ((lambda (tmp997) (if tmp997 (apply (lambda () (list (quote #(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"))))) (quote #(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 var init) (list (quote #(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 (quote #(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"))))) e0) (cons (quote #(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 c (list (cons (quote #(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"))))) step995))))))) tmp997) ((lambda (tmp1002) (if tmp1002 (apply (lambda (e11003 e2) (list (quote #(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"))))) (quote #(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 var init) (list (quote #(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"))))) e0 (cons (quote #(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 e11003 e2)) (cons (quote #(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 c (list (cons (quote #(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"))))) step995))))))) tmp1002) (syntax-error tmp996))) (syntax-dispatch tmp996 (quote (any . each-any)))))) (syntax-dispatch tmp996 (quote ())))) e1)) tmp994) (syntax-error tmp993))) (syntax-dispatch tmp993 (quote each-any)))) (map (lambda (v s) ((lambda (tmp1010) ((lambda (tmp1011) (if tmp1011 (apply (lambda () v) tmp1011) ((lambda (tmp1012) (if tmp1012 (apply (lambda (e) e) tmp1012) ((lambda (_1013) (syntax-error orig-x)) tmp1010))) (syntax-dispatch tmp1010 (quote (any)))))) (syntax-dispatch tmp1010 (quote ())))) s)) var step))) tmp991) (syntax-error tmp990))) (syntax-dispatch tmp990 (quote (any #(each (any any . any)) (any . each-any) . each-any))))) orig-x))) +(install-global-transformer (quote quasiquote) (letrec ((quasicons (lambda (x1016 y) ((lambda (tmp1017) ((lambda (tmp1018) (if tmp1018 (apply (lambda (x1019 y1020) ((lambda (tmp1021) ((lambda (tmp1022) (if tmp1022 (apply (lambda (dy) ((lambda (tmp1023) ((lambda (tmp1024) (if tmp1024 (apply (lambda (dx) (list (quote #(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 dx dy))) tmp1024) ((lambda (_1025) (if (null? dy) (list (quote #(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"))))) x1019) (list (quote #(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"))))) x1019 y1020))) tmp1023))) (syntax-dispatch tmp1023 (quote (#(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))))) x1019)) tmp1022) ((lambda (tmp) (if tmp (apply (lambda (stuff) (cons (quote #(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 x1019 stuff))) tmp) ((lambda (else) (list (quote #(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"))))) x1019 y1020)) tmp1021))) (syntax-dispatch tmp1021 (quote (#(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 tmp1021 (quote (#(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))))) y1020)) tmp1018) (syntax-error tmp1017))) (syntax-dispatch tmp1017 (quote (any any))))) (list x1016 y)))) (quasiappend (lambda (x y1026) ((lambda (tmp1027) ((lambda (tmp1028) (if tmp1028 (apply (lambda (x1029 y1030) ((lambda (tmp1031) ((lambda (tmp1032) (if tmp1032 (apply (lambda () x1029) tmp1032) ((lambda (_) (list (quote #(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"))))) x1029 y1030)) tmp1031))) (syntax-dispatch tmp1031 (quote (#(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"))))) ()))))) y1030)) tmp1028) (syntax-error tmp1027))) (syntax-dispatch tmp1027 (quote (any any))))) (list x y1026)))) (quasivector (lambda (x1033) ((lambda (tmp1034) ((lambda (x1035) ((lambda (tmp1036) ((lambda (tmp1037) (if tmp1037 (apply (lambda (x1038) (list (quote #(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 x1038))) tmp1037) ((lambda (tmp1040) (if tmp1040 (apply (lambda (x1041) (cons (quote #(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"))))) x1041)) tmp1040) ((lambda (_1043) (list (quote #(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"))))) x1035)) tmp1036))) (syntax-dispatch tmp1036 (quote (#(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 tmp1036 (quote (#(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))))) x1035)) tmp1034)) x1033))) (quasi (lambda (p lev) ((lambda (tmp1044) ((lambda (tmp1045) (if tmp1045 (apply (lambda (p1046) (if (= lev (quote 0)) p1046 (quasicons (quote (#(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")))))) (quasi (list p1046) (- lev (quote 1)))))) tmp1045) ((lambda (tmp1047) (if tmp1047 (apply (lambda (p1048 q) (if (= lev (quote 0)) (quasiappend p1048 (quasi q lev)) (quasicons (quasicons (quote (#(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")))))) (quasi (list p1048) (- lev (quote 1)))) (quasi q lev)))) tmp1047) ((lambda (tmp1049) (if tmp1049 (apply (lambda (p1050) (quasicons (quote (#(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")))))) (quasi (list p1050) (+ lev (quote 1))))) tmp1049) ((lambda (tmp1051) (if tmp1051 (apply (lambda (p1052 q1053) (quasicons (quasi p1052 lev) (quasi q1053 lev))) tmp1051) ((lambda (tmp1054) (if tmp1054 (apply (lambda (x1055) (quasivector (quasi x1055 lev))) tmp1054) ((lambda (p1057) (list (quote #(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"))))) p1057)) tmp1044))) (syntax-dispatch tmp1044 (quote #(vector each-any)))))) (syntax-dispatch tmp1044 (quote (any . any)))))) (syntax-dispatch tmp1044 (quote (#(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 tmp1044 (quote ((#(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 tmp1044 (quote (#(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))))) p)))) (lambda (x1058) ((lambda (tmp1059) ((lambda (tmp1060) (if tmp1060 (apply (lambda (_1061 e1062) (quasi e1062 (quote 0))) tmp1060) (syntax-error tmp1059))) (syntax-dispatch tmp1059 (quote (any any))))) x1058)))) +(install-global-transformer (quote include) (lambda (x1063) (letrec ((read-file (lambda (fn k) (let ((p1064 (open-input-file fn))) (let f ((x1065 (read p1064))) (if (eof-object? x1065) (begin (close-input-port p1064) (quote ())) (cons (datum->syntax-object k x1065) (f (read p1064))))))))) ((lambda (tmp1066) ((lambda (tmp1067) (if tmp1067 (apply (lambda (k1068 filename) (let ((fn1069 (syntax-object->datum filename))) ((lambda (tmp1070) ((lambda (tmp1071) (if tmp1071 (apply (lambda (exp) (cons (quote #(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"))))) exp)) tmp1071) (syntax-error tmp1070))) (syntax-dispatch tmp1070 (quote each-any)))) (read-file fn1069 k1068)))) tmp1067) (syntax-error tmp1066))) (syntax-dispatch tmp1066 (quote (any any))))) x1063)))) +(install-global-transformer (quote unquote) (lambda (x1073) ((lambda (tmp1074) ((lambda (tmp1075) (if tmp1075 (apply (lambda (_1076 e1077) (error (quote unquote) (quote "expression ,~s not valid outside of quasiquote") (syntax-object->datum e1077))) tmp1075) (syntax-error tmp1074))) (syntax-dispatch tmp1074 (quote (any any))))) x1073))) +(install-global-transformer (quote unquote-splicing) (lambda (x1078) ((lambda (tmp1079) ((lambda (tmp1080) (if tmp1080 (apply (lambda (_1081 e1082) (error (quote unquote-splicing) (quote "expression ,@~s not valid outside of quasiquote") (syntax-object->datum e1082))) tmp1080) (syntax-error tmp1079))) (syntax-dispatch tmp1079 (quote (any any))))) x1078))) +(install-global-transformer (quote case) (lambda (x1083) ((lambda (tmp1084) ((lambda (tmp1085) (if tmp1085 (apply (lambda (_1086 e1087 m1 m2) ((lambda (tmp1088) ((lambda (body1089) (list (quote #(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 (quote #(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"))))) e1087)) body1089)) tmp1088)) (let f1090 ((clause m1) (clauses m2)) (if (null? clauses) ((lambda (tmp1092) ((lambda (tmp1093) (if tmp1093 (apply (lambda (e11094 e21095) (cons (quote #(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons e11094 e21095))) tmp1093) ((lambda (tmp1097) (if tmp1097 (apply (lambda (k1098 e11099 e21100) (list (quote #(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (list (quote #(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (list (quote #(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) k1098)) (cons (quote #(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons e11099 e21100)))) tmp1097) ((lambda (_1103) (syntax-error x1083)) tmp1092))) (syntax-dispatch tmp1092 (quote (each-any any . each-any)))))) (syntax-dispatch tmp1092 (quote (#(free-id #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) any . each-any))))) clause) ((lambda (tmp1104) ((lambda (rest) ((lambda (tmp1105) ((lambda (tmp1106) (if tmp1106 (apply (lambda (k1107 e11108 e21109) (list (quote #(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (list (quote #(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (list (quote #(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) k1107)) (cons (quote #(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons e11108 e21109)) rest)) tmp1106) ((lambda (_1112) (syntax-error x1083)) tmp1105))) (syntax-dispatch tmp1105 (quote (each-any any . each-any))))) clause)) tmp1104)) (f1090 (car clauses) (cdr clauses))))))) tmp1085) (syntax-error tmp1084))) (syntax-dispatch tmp1084 (quote (any any any . each-any))))) x1083))) +(install-global-transformer (quote identifier-syntax) (lambda (x1113) ((lambda (tmp1114) ((lambda (tmp1115) (if tmp1115 (apply (lambda (_1116 e1117) (list (quote #(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (quote (#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))))) (list (quote #(syntax-object syntax-case ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (quote #(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (quote ()) (list (quote #(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (quote (#(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 (quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) e1117)) (list (cons _1116 (quote (#(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 (quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons e1117 (quote (#(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")))))))))))) tmp1115) (syntax-error tmp1114))) (syntax-dispatch tmp1114 (quote (any any))))) x1113))) |