[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 ChangeLog boot-9.scm psy...
|
From: |
Mikael Djurfeldt |
|
Subject: |
guile/guile-core/ice-9 ChangeLog boot-9.scm psy... |
|
Date: |
Mon, 27 Jan 2003 06:02:51 -0500 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Mikael Djurfeldt <address@hidden> 03/01/27 06:02:51
Modified files:
guile-core/ice-9: ChangeLog boot-9.scm psyntax.pp psyntax.ss
syncase.scm
Log message:
* upstream/Makefile.am (ltdl.h.diff, ltdl.c.diff): Look for ltdl.h
and ltdl.c in "$(srcdir)".
* evalext.c, evalext.h (s_scm_self_evaluating_p): Needed by
syntax-case macro fix.
* Makefile.am (c-tokenize.c): Look for it in $(srcdir).
* syncase.scm, psyntax.ss, psyntax.pp: Imported fixes from trunk.
* boot-9.scm (use-syntax): Return *unspecified*.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.461.2.46&tr2=1.461.2.47&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.266.2.14&tr2=1.266.2.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/psyntax.pp.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.13.2.1&tr2=1.13.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/psyntax.ss.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.13&tr2=1.13.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/syncase.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.18.2.7&tr2=1.18.2.8&r1=text&r2=text
Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -c guile/guile-core/ice-9/ChangeLog:1.545
guile/guile-core/ice-9/ChangeLog:1.546
*** guile/guile-core/ice-9/ChangeLog:1.545 Fri Jan 24 05:32:13 2003
--- guile/guile-core/ice-9/ChangeLog Mon Jan 27 03:46:18 2003
***************
*** 1,3 ****
--- 1,9 ----
+ 2003-01-27 Mikael Djurfeldt <address@hidden>
+
+ * syncase.scm (guile-macro): Strip syntactic information from
+ expression before trying to treat it as a Guile macro call.
+ (Thanks to Kevin Ryde.)
+
2003-01-24 Mikael Djurfeldt <address@hidden>
* threads.scm (parallel, letpar): Rewritten.
Index: guile/guile-core/ice-9/boot-9.scm
diff -c guile/guile-core/ice-9/boot-9.scm:1.295
guile/guile-core/ice-9/boot-9.scm:1.296
*** guile/guile-core/ice-9/boot-9.scm:1.295 Sat Dec 28 15:14:21 2002
--- guile/guile-core/ice-9/boot-9.scm Wed Jan 15 15:35:25 2003
***************
*** 1,6 ****
;;; installed-scm-file
! ;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 Free Software
Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
--- 1,6 ----
;;; installed-scm-file
! ;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003 Free
Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
***************
*** 2593,2599 ****
(list ,@(compile-interface-spec spec))))
(set-module-transformer! (current-module)
,(car (last-pair spec))))
! `((set-module-transformer! (current-module) ,spec))))
(else
(error "use-syntax can only be used at the top level"))))
--- 2593,2600 ----
(list ,@(compile-interface-spec spec))))
(set-module-transformer! (current-module)
,(car (last-pair spec))))
! `((set-module-transformer! (current-module) ,spec)))
! *unspecified*)
(else
(error "use-syntax can only be used at the top level"))))
Index: guile/guile-core/ice-9/psyntax.pp
diff -c guile/guile-core/ice-9/psyntax.pp:1.17
guile/guile-core/ice-9/psyntax.pp:1.18
*** guile/guile-core/ice-9/psyntax.pp:1.17 Sun Jan 19 12:47:01 2003
--- guile/guile-core/ice-9/psyntax.pp Mon Jan 20 05:12:28 2003
***************
*** 1,11 ****
! (letrec ((syntmp-lambda-var-list-164 (lambda (syntmp-vars-559) (let
syntmp-lvl-560 ((syntmp-vars-561 syntmp-vars-559) (syntmp-ls-562 (quote ()))
(syntmp-w-563 (quote (())))) (cond ((pair? syntmp-vars-561) (syntmp-lvl-560
(cdr syntmp-vars-561) (cons (syntmp-wrap-143 (car syntmp-vars-561)
syntmp-w-563) syntmp-ls-562) syntmp-w-563)) ((syntmp-id?-115 syntmp-vars-561)
(cons (syntmp-wrap-143 syntmp-vars-561 syntmp-w-563) syntmp-ls-562)) ((null?
syntmp-vars-561) syntmp-ls-562) ((syntmp-syntax-object?-101 syntmp-vars-561)
(syntmp-lvl-560 (syntmp-syntax-object-expression-102 syntmp-vars-561)
syntmp-ls-562 (syntmp-join-wraps-134 syntmp-w-563
(syntmp-syntax-object-wrap-103 syntmp-vars-561)))) ((syntmp-annotation?-89
syntmp-vars-561) (syntmp-lvl-560 (annotation-expression syntmp-vars-561)
syntmp-ls-562 syntmp-w-563)) (else (cons syntmp-vars-561 syntmp-ls-562))))))
(syntmp-gen-var-163 (lambda (syntmp-id-564) (let ((syntmp-id-565 (if
(syntmp-syntax-object?-101 syntmp-id-564) (syntmp-syntax-object-expression-102
syntmp-id-564) syntmp-id-564))) (if (syntmp-annotation?-89 syntmp-id-565)
(gensym (symbol->string (annotation-expression syntmp-id-565))) (gensym
(symbol->string syntmp-id-565)))))) (syntmp-strip-162 (lambda (syntmp-x-566
syntmp-w-567) (if (memq (quote top) (syntmp-wrap-marks-118 syntmp-w-567)) (if
(or (syntmp-annotation?-89 syntmp-x-566) (and (pair? syntmp-x-566)
(syntmp-annotation?-89 (car syntmp-x-566)))) (syntmp-strip-annotation-161
syntmp-x-566 #f) syntmp-x-566) (let syntmp-f-568 ((syntmp-x-569 syntmp-x-566))
(cond ((syntmp-syntax-object?-101 syntmp-x-569) (syntmp-strip-162
(syntmp-syntax-object-expression-102 syntmp-x-569)
(syntmp-syntax-object-wrap-103 syntmp-x-569))) ((pair? syntmp-x-569) (let
((syntmp-a-570 (syntmp-f-568 (car syntmp-x-569))) (syntmp-d-571 (syntmp-f-568
(cdr syntmp-x-569)))) (if (and (eq? syntmp-a-570 (car syntmp-x-569)) (eq?
syntmp-d-571 (cdr syntmp-x-569))) syntmp-x-569 (cons syntmp-a-570
syntmp-d-571)))) ((vector? syntmp-x-569) (let ((syntmp-old-572 (vector->list
syntmp-x-569))) (let ((syntmp-new-573 (map syntmp-f-568 syntmp-old-572))) (if
(andmap eq? syntmp-old-572 syntmp-new-573) syntmp-x-569 (list->vector
syntmp-new-573))))) (else syntmp-x-569)))))) (syntmp-strip-annotation-161
(lambda (syntmp-x-574 syntmp-parent-575) (cond ((pair? syntmp-x-574) (let
((syntmp-new-576 (cons #f #f))) (begin (when syntmp-parent-575
(set-annotation-stripped! syntmp-parent-575 syntmp-new-576)) (set-car!
syntmp-new-576 (syntmp-strip-annotation-161 (car syntmp-x-574) #f)) (set-cdr!
syntmp-new-576 (syntmp-strip-annotation-161 (cdr syntmp-x-574) #f))
syntmp-new-576))) ((syntmp-annotation?-89 syntmp-x-574) (or
(annotation-stripped syntmp-x-574) (syntmp-strip-annotation-161
(annotation-expression syntmp-x-574) syntmp-x-574))) ((vector? syntmp-x-574)
(let ((syntmp-new-577 (make-vector (vector-length syntmp-x-574)))) (begin (when
syntmp-parent-575 (set-annotation-stripped! syntmp-parent-575 syntmp-new-577))
(let syntmp-loop-578 ((syntmp-i-579 (- (vector-length syntmp-x-574) 1)))
(unless (syntmp-fx<-88 syntmp-i-579 0) (vector-set! syntmp-new-577 syntmp-i-579
(syntmp-strip-annotation-161 (vector-ref syntmp-x-574 syntmp-i-579) #f))
(syntmp-loop-578 (syntmp-fx--86 syntmp-i-579 1)))) syntmp-new-577))) (else
syntmp-x-574)))) (syntmp-ellipsis?-160 (lambda (syntmp-x-580) (and
(syntmp-nonsymbol-id?-114 syntmp-x-580) (syntmp-free-id=?-138 syntmp-x-580
(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"))))))))) (syntmp-chi-void-159 (lambda () (list
(quote void)))) (syntmp-eval-local-transformer-158 (lambda
(syntmp-expanded-581) (let ((syntmp-p-582 (syntmp-local-eval-hook-91
syntmp-expanded-581))) (if (procedure? syntmp-p-582) syntmp-p-582 (syntax-error
syntmp-p-582 "nonprocedure transformer"))))) (syntmp-chi-local-syntax-157
(lambda (syntmp-rec?-583 syntmp-e-584 syntmp-r-585 syntmp-w-586 syntmp-s-587
syntmp-k-588) ((lambda (syntmp-tmp-589) ((lambda (syntmp-tmp-590) (if
syntmp-tmp-590 (apply (lambda (syntmp-_-591 syntmp-id-592 syntmp-val-593
syntmp-e1-594 syntmp-e2-595) (let ((syntmp-ids-596 syntmp-id-592)) (if (not
(syntmp-valid-bound-ids?-140 syntmp-ids-596)) (syntax-error syntmp-e-584
"duplicate bound keyword in") (let ((syntmp-labels-598 (syntmp-gen-labels-121
syntmp-ids-596))) (let ((syntmp-new-w-599 (syntmp-make-binding-wrap-132
syntmp-ids-596 syntmp-labels-598 syntmp-w-586))) (syntmp-k-588 (cons
syntmp-e1-594 syntmp-e2-595) (syntmp-extend-env-109 syntmp-labels-598 (let
((syntmp-w-601 (if syntmp-rec?-583 syntmp-new-w-599 syntmp-w-586))
(syntmp-trans-r-602 (syntmp-macros-only-env-111 syntmp-r-585))) (map (lambda
(syntmp-x-603) (cons (quote macro) (syntmp-eval-local-transformer-158
(syntmp-chi-151 syntmp-x-603 syntmp-trans-r-602 syntmp-w-601))))
syntmp-val-593)) syntmp-r-585) syntmp-new-w-599 syntmp-s-587))))))
syntmp-tmp-590) ((lambda (syntmp-_-605) (syntax-error (syntmp-source-wrap-144
syntmp-e-584 syntmp-w-586 syntmp-s-587))) syntmp-tmp-589))) (syntax-dispatch
syntmp-tmp-589 (quote (any #(each (any any)) any . each-any)))))
syntmp-e-584))) (syntmp-chi-lambda-clause-156 (lambda (syntmp-e-606
syntmp-c-607 syntmp-r-608 syntmp-w-609 syntmp-k-610) ((lambda (syntmp-tmp-611)
((lambda (syntmp-tmp-612) (if syntmp-tmp-612 (apply (lambda (syntmp-id-613
syntmp-e1-614 syntmp-e2-615) (let ((syntmp-ids-616 syntmp-id-613)) (if (not
(syntmp-valid-bound-ids?-140 syntmp-ids-616)) (syntax-error syntmp-e-606
"invalid parameter list in") (let ((syntmp-labels-618 (syntmp-gen-labels-121
syntmp-ids-616)) (syntmp-new-vars-619 (map syntmp-gen-var-163 syntmp-ids-616)))
(syntmp-k-610 syntmp-new-vars-619 (syntmp-chi-body-155 (cons syntmp-e1-614
syntmp-e2-615) syntmp-e-606 (syntmp-extend-var-env-110 syntmp-labels-618
syntmp-new-vars-619 syntmp-r-608) (syntmp-make-binding-wrap-132 syntmp-ids-616
syntmp-labels-618 syntmp-w-609))))))) syntmp-tmp-612) ((lambda (syntmp-tmp-621)
(if syntmp-tmp-621 (apply (lambda (syntmp-ids-622 syntmp-e1-623 syntmp-e2-624)
(let ((syntmp-old-ids-625 (syntmp-lambda-var-list-164 syntmp-ids-622))) (if
(not (syntmp-valid-bound-ids?-140 syntmp-old-ids-625)) (syntax-error
syntmp-e-606 "invalid parameter list in") (let ((syntmp-labels-626
(syntmp-gen-labels-121 syntmp-old-ids-625)) (syntmp-new-vars-627 (map
syntmp-gen-var-163 syntmp-old-ids-625))) (syntmp-k-610 (let syntmp-f-628
((syntmp-ls1-629 (cdr syntmp-new-vars-627)) (syntmp-ls2-630 (car
syntmp-new-vars-627))) (if (null? syntmp-ls1-629) syntmp-ls2-630 (syntmp-f-628
(cdr syntmp-ls1-629) (cons (car syntmp-ls1-629) syntmp-ls2-630))))
(syntmp-chi-body-155 (cons syntmp-e1-623 syntmp-e2-624) syntmp-e-606
(syntmp-extend-var-env-110 syntmp-labels-626 syntmp-new-vars-627 syntmp-r-608)
(syntmp-make-binding-wrap-132 syntmp-old-ids-625 syntmp-labels-626
syntmp-w-609))))))) syntmp-tmp-621) ((lambda (syntmp-_-632) (syntax-error
syntmp-e-606)) syntmp-tmp-611))) (syntax-dispatch syntmp-tmp-611 (quote (any
any . each-any)))))) (syntax-dispatch syntmp-tmp-611 (quote (each-any any .
each-any))))) syntmp-c-607))) (syntmp-chi-body-155 (lambda (syntmp-body-633
syntmp-outer-form-634 syntmp-r-635 syntmp-w-636) (let ((syntmp-r-637 (cons
(quote ("placeholder" placeholder)) syntmp-r-635))) (let ((syntmp-ribcage-638
(syntmp-make-ribcage-122 (quote ()) (quote ()) (quote ())))) (let
((syntmp-w-639 (syntmp-make-wrap-117 (syntmp-wrap-marks-118 syntmp-w-636) (cons
syntmp-ribcage-638 (syntmp-wrap-subst-119 syntmp-w-636))))) (let
syntmp-parse-640 ((syntmp-body-641 (map (lambda (syntmp-x-647) (cons
syntmp-r-637 (syntmp-wrap-143 syntmp-x-647 syntmp-w-639))) syntmp-body-633))
(syntmp-ids-642 (quote ())) (syntmp-labels-643 (quote ())) (syntmp-vars-644
(quote ())) (syntmp-vals-645 (quote ())) (syntmp-bindings-646 (quote ()))) (if
(null? syntmp-body-641) (syntax-error syntmp-outer-form-634 "no expressions in
body") (let ((syntmp-e-648 (cdar syntmp-body-641)) (syntmp-er-649 (caar
syntmp-body-641))) (call-with-values (lambda () (syntmp-syntax-type-149
syntmp-e-648 syntmp-er-649 (quote (())) #f syntmp-ribcage-638)) (lambda
(syntmp-type-650 syntmp-value-651 syntmp-e-652 syntmp-w-653 syntmp-s-654) (let
((syntmp-t-655 syntmp-type-650)) (if (memv syntmp-t-655 (quote (define-form)))
(let ((syntmp-id-656 (syntmp-wrap-143 syntmp-value-651 syntmp-w-653))
(syntmp-label-657 (syntmp-gen-label-120))) (let ((syntmp-var-658
(syntmp-gen-var-163 syntmp-id-656))) (begin (syntmp-extend-ribcage!-131
syntmp-ribcage-638 syntmp-id-656 syntmp-label-657) (syntmp-parse-640 (cdr
syntmp-body-641) (cons syntmp-id-656 syntmp-ids-642) (cons syntmp-label-657
syntmp-labels-643) (cons syntmp-var-658 syntmp-vars-644) (cons (cons
syntmp-er-649 (syntmp-wrap-143 syntmp-e-652 syntmp-w-653)) syntmp-vals-645)
(cons (cons (quote lexical) syntmp-var-658) syntmp-bindings-646))))) (if (memv
syntmp-t-655 (quote (define-syntax-form))) (let ((syntmp-id-659
(syntmp-wrap-143 syntmp-value-651 syntmp-w-653)) (syntmp-label-660
(syntmp-gen-label-120))) (begin (syntmp-extend-ribcage!-131 syntmp-ribcage-638
syntmp-id-659 syntmp-label-660) (syntmp-parse-640 (cdr syntmp-body-641) (cons
syntmp-id-659 syntmp-ids-642) (cons syntmp-label-660 syntmp-labels-643)
syntmp-vars-644 syntmp-vals-645 (cons (cons (quote macro) (cons syntmp-er-649
(syntmp-wrap-143 syntmp-e-652 syntmp-w-653))) syntmp-bindings-646)))) (if (memv
syntmp-t-655 (quote (begin-form))) ((lambda (syntmp-tmp-661) ((lambda
(syntmp-tmp-662) (if syntmp-tmp-662 (apply (lambda (syntmp-_-663 syntmp-e1-664)
(syntmp-parse-640 (let syntmp-f-665 ((syntmp-forms-666 syntmp-e1-664)) (if
(null? syntmp-forms-666) (cdr syntmp-body-641) (cons (cons syntmp-er-649
(syntmp-wrap-143 (car syntmp-forms-666) syntmp-w-653)) (syntmp-f-665 (cdr
syntmp-forms-666))))) syntmp-ids-642 syntmp-labels-643 syntmp-vars-644
syntmp-vals-645 syntmp-bindings-646)) syntmp-tmp-662) (syntax-error
syntmp-tmp-661))) (syntax-dispatch syntmp-tmp-661 (quote (any . each-any)))))
syntmp-e-652) (if (memv syntmp-t-655 (quote (local-syntax-form)))
(syntmp-chi-local-syntax-157 syntmp-value-651 syntmp-e-652 syntmp-er-649
syntmp-w-653 syntmp-s-654 (lambda (syntmp-forms-668 syntmp-er-669 syntmp-w-670
syntmp-s-671) (syntmp-parse-640 (let syntmp-f-672 ((syntmp-forms-673
syntmp-forms-668)) (if (null? syntmp-forms-673) (cdr syntmp-body-641) (cons
(cons syntmp-er-669 (syntmp-wrap-143 (car syntmp-forms-673) syntmp-w-670))
(syntmp-f-672 (cdr syntmp-forms-673))))) syntmp-ids-642 syntmp-labels-643
syntmp-vars-644 syntmp-vals-645 syntmp-bindings-646))) (if (null?
syntmp-ids-642) (syntmp-build-sequence-96 #f (map (lambda (syntmp-x-674)
(syntmp-chi-151 (cdr syntmp-x-674) (car syntmp-x-674) (quote (())))) (cons
(cons syntmp-er-649 (syntmp-source-wrap-144 syntmp-e-652 syntmp-w-653
syntmp-s-654)) (cdr syntmp-body-641)))) (begin (if (not
(syntmp-valid-bound-ids?-140 syntmp-ids-642)) (syntax-error
syntmp-outer-form-634 "invalid or duplicate identifier in definition")) (let
syntmp-loop-675 ((syntmp-bs-676 syntmp-bindings-646) (syntmp-er-cache-677 #f)
(syntmp-r-cache-678 #f)) (if (not (null? syntmp-bs-676)) (let ((syntmp-b-679
(car syntmp-bs-676))) (if (eq? (car syntmp-b-679) (quote macro)) (let
((syntmp-er-680 (cadr syntmp-b-679))) (let ((syntmp-r-cache-681 (if (eq?
syntmp-er-680 syntmp-er-cache-677) syntmp-r-cache-678
(syntmp-macros-only-env-111 syntmp-er-680)))) (begin (set-cdr! syntmp-b-679
(syntmp-eval-local-transformer-158 (syntmp-chi-151 (cddr syntmp-b-679)
syntmp-r-cache-681 (quote (()))))) (syntmp-loop-675 (cdr syntmp-bs-676)
syntmp-er-680 syntmp-r-cache-681)))) (syntmp-loop-675 (cdr syntmp-bs-676)
syntmp-er-cache-677 syntmp-r-cache-678))))) (set-cdr! syntmp-r-637
(syntmp-extend-env-109 syntmp-labels-643 syntmp-bindings-646 (cdr
syntmp-r-637))) (syntmp-build-letrec-99 #f syntmp-vars-644 (map (lambda
(syntmp-x-682) (syntmp-chi-151 (cdr syntmp-x-682) (car syntmp-x-682) (quote
(())))) syntmp-vals-645) (syntmp-build-sequence-96 #f (map (lambda
(syntmp-x-683) (syntmp-chi-151 (cdr syntmp-x-683) (car syntmp-x-683) (quote
(())))) (cons (cons syntmp-er-649 (syntmp-source-wrap-144 syntmp-e-652
syntmp-w-653 syntmp-s-654)) (cdr syntmp-body-641))))))))))))))))))))))
(syntmp-chi-macro-154 (lambda (syntmp-p-684 syntmp-e-685 syntmp-r-686
syntmp-w-687 syntmp-rib-688) (letrec ((syntmp-rebuild-macro-output-689 (lambda
(syntmp-x-690 syntmp-m-691) (cond ((pair? syntmp-x-690) (cons
(syntmp-rebuild-macro-output-689 (car syntmp-x-690) syntmp-m-691)
(syntmp-rebuild-macro-output-689 (cdr syntmp-x-690) syntmp-m-691)))
((syntmp-syntax-object?-101 syntmp-x-690) (let ((syntmp-w-692
(syntmp-syntax-object-wrap-103 syntmp-x-690))) (let ((syntmp-ms-693
(syntmp-wrap-marks-118 syntmp-w-692)) (syntmp-s-694 (syntmp-wrap-subst-119
syntmp-w-692))) (syntmp-make-syntax-object-100
(syntmp-syntax-object-expression-102 syntmp-x-690) (if (and (pair?
syntmp-ms-693) (eq? (car syntmp-ms-693) #f)) (syntmp-make-wrap-117 (cdr
syntmp-ms-693) (if syntmp-rib-688 (cons syntmp-rib-688 (cdr syntmp-s-694)) (cdr
syntmp-s-694))) (syntmp-make-wrap-117 (cons syntmp-m-691 syntmp-ms-693) (if
syntmp-rib-688 (cons syntmp-rib-688 (cons (quote shift) syntmp-s-694)) (cons
(quote shift) syntmp-s-694)))))))) ((vector? syntmp-x-690) (let ((syntmp-n-695
(vector-length syntmp-x-690))) (let ((syntmp-v-696 (make-vector syntmp-n-695)))
(let syntmp-doloop-697 ((syntmp-i-698 0)) (if (syntmp-fx=-87 syntmp-i-698
syntmp-n-695) syntmp-v-696 (begin (vector-set! syntmp-v-696 syntmp-i-698
(syntmp-rebuild-macro-output-689 (vector-ref syntmp-x-690 syntmp-i-698)
syntmp-m-691)) (syntmp-doloop-697 (syntmp-fx+-85 syntmp-i-698 1))))))))
((symbol? syntmp-x-690) (syntax-error syntmp-x-690 "encountered raw symbol in
macro output")) (else syntmp-x-690))))) (syntmp-rebuild-macro-output-689
(syntmp-p-684 (syntmp-wrap-143 syntmp-e-685 (syntmp-anti-mark-130
syntmp-w-687))) (string #\m))))) (syntmp-chi-application-153 (lambda
(syntmp-x-699 syntmp-e-700 syntmp-r-701 syntmp-w-702 syntmp-s-703) ((lambda
(syntmp-tmp-704) ((lambda (syntmp-tmp-705) (if syntmp-tmp-705 (apply (lambda
(syntmp-e0-706 syntmp-e1-707) (cons syntmp-x-699 (map (lambda (syntmp-e-708)
(syntmp-chi-151 syntmp-e-708 syntmp-r-701 syntmp-w-702)) syntmp-e1-707)))
syntmp-tmp-705) (syntax-error syntmp-tmp-704))) (syntax-dispatch syntmp-tmp-704
(quote (any . each-any))))) syntmp-e-700))) (syntmp-chi-expr-152 (lambda
(syntmp-type-710 syntmp-value-711 syntmp-e-712 syntmp-r-713 syntmp-w-714
syntmp-s-715) (let ((syntmp-t-716 syntmp-type-710)) (if (memv syntmp-t-716
(quote (lexical))) syntmp-value-711 (if (memv syntmp-t-716 (quote (core
external-macro))) (syntmp-value-711 syntmp-e-712 syntmp-r-713 syntmp-w-714
syntmp-s-715) (if (memv syntmp-t-716 (quote (lexical-call)))
(syntmp-chi-application-153 syntmp-value-711 syntmp-e-712 syntmp-r-713
syntmp-w-714 syntmp-s-715) (if (memv syntmp-t-716 (quote (global-call)))
(syntmp-chi-application-153 syntmp-value-711 syntmp-e-712 syntmp-r-713
syntmp-w-714 syntmp-s-715) (if (memv syntmp-t-716 (quote (constant)))
(syntmp-build-data-95 syntmp-s-715 (syntmp-strip-162 (syntmp-source-wrap-144
syntmp-e-712 syntmp-w-714 syntmp-s-715) (quote (())))) (if (memv syntmp-t-716
(quote (global))) syntmp-value-711 (if (memv syntmp-t-716 (quote (call)))
(syntmp-chi-application-153 (syntmp-chi-151 (car syntmp-e-712) syntmp-r-713
syntmp-w-714) syntmp-e-712 syntmp-r-713 syntmp-w-714 syntmp-s-715) (if (memv
syntmp-t-716 (quote (begin-form))) ((lambda (syntmp-tmp-717) ((lambda
(syntmp-tmp-718) (if syntmp-tmp-718 (apply (lambda (syntmp-_-719 syntmp-e1-720
syntmp-e2-721) (syntmp-chi-sequence-145 (cons syntmp-e1-720 syntmp-e2-721)
syntmp-r-713 syntmp-w-714 syntmp-s-715)) syntmp-tmp-718) (syntax-error
syntmp-tmp-717))) (syntax-dispatch syntmp-tmp-717 (quote (any any .
each-any))))) syntmp-e-712) (if (memv syntmp-t-716 (quote (local-syntax-form)))
(syntmp-chi-local-syntax-157 syntmp-value-711 syntmp-e-712 syntmp-r-713
syntmp-w-714 syntmp-s-715 syntmp-chi-sequence-145) (if (memv syntmp-t-716
(quote (eval-when-form))) ((lambda (syntmp-tmp-723) ((lambda (syntmp-tmp-724)
(if syntmp-tmp-724 (apply (lambda (syntmp-_-725 syntmp-x-726 syntmp-e1-727
syntmp-e2-728) (let ((syntmp-when-list-729 (syntmp-chi-when-list-148
syntmp-e-712 syntmp-x-726 syntmp-w-714))) (if (memq (quote eval)
syntmp-when-list-729) (syntmp-chi-sequence-145 (cons syntmp-e1-727
syntmp-e2-728) syntmp-r-713 syntmp-w-714 syntmp-s-715) (syntmp-chi-void-159))))
syntmp-tmp-724) (syntax-error syntmp-tmp-723))) (syntax-dispatch syntmp-tmp-723
(quote (any each-any any . each-any))))) syntmp-e-712) (if (memv syntmp-t-716
(quote (define-form define-syntax-form))) (syntax-error (syntmp-wrap-143
syntmp-value-711 syntmp-w-714) "invalid context for definition of") (if (memv
syntmp-t-716 (quote (syntax))) (syntax-error (syntmp-source-wrap-144
syntmp-e-712 syntmp-w-714 syntmp-s-715) "reference to pattern variable outside
syntax form") (if (memv syntmp-t-716 (quote (displaced-lexical))) (syntax-error
(syntmp-source-wrap-144 syntmp-e-712 syntmp-w-714 syntmp-s-715) "reference to
identifier outside its scope") (syntax-error (syntmp-source-wrap-144
syntmp-e-712 syntmp-w-714 syntmp-s-715)))))))))))))))))) (syntmp-chi-151
(lambda (syntmp-e-732 syntmp-r-733 syntmp-w-734) (call-with-values (lambda ()
(syntmp-syntax-type-149 syntmp-e-732 syntmp-r-733 syntmp-w-734 #f #f)) (lambda
(syntmp-type-735 syntmp-value-736 syntmp-e-737 syntmp-w-738 syntmp-s-739)
(syntmp-chi-expr-152 syntmp-type-735 syntmp-value-736 syntmp-e-737 syntmp-r-733
syntmp-w-738 syntmp-s-739))))) (syntmp-chi-top-150 (lambda (syntmp-e-740
syntmp-r-741 syntmp-w-742 syntmp-m-743 syntmp-esew-744) (call-with-values
(lambda () (syntmp-syntax-type-149 syntmp-e-740 syntmp-r-741 syntmp-w-742 #f
#f)) (lambda (syntmp-type-757 syntmp-value-758 syntmp-e-759 syntmp-w-760
syntmp-s-761) (let ((syntmp-t-762 syntmp-type-757)) (if (memv syntmp-t-762
(quote (begin-form))) ((lambda (syntmp-tmp-763) ((lambda (syntmp-tmp-764) (if
syntmp-tmp-764 (apply (lambda (syntmp-_-765) (syntmp-chi-void-159))
syntmp-tmp-764) ((lambda (syntmp-tmp-766) (if syntmp-tmp-766 (apply (lambda
(syntmp-_-767 syntmp-e1-768 syntmp-e2-769) (syntmp-chi-top-sequence-146 (cons
syntmp-e1-768 syntmp-e2-769) syntmp-r-741 syntmp-w-760 syntmp-s-761
syntmp-m-743 syntmp-esew-744)) syntmp-tmp-766) (syntax-error syntmp-tmp-763)))
(syntax-dispatch syntmp-tmp-763 (quote (any any . each-any))))))
(syntax-dispatch syntmp-tmp-763 (quote (any))))) syntmp-e-759) (if (memv
syntmp-t-762 (quote (local-syntax-form))) (syntmp-chi-local-syntax-157
syntmp-value-758 syntmp-e-759 syntmp-r-741 syntmp-w-760 syntmp-s-761 (lambda
(syntmp-body-771 syntmp-r-772 syntmp-w-773 syntmp-s-774)
(syntmp-chi-top-sequence-146 syntmp-body-771 syntmp-r-772 syntmp-w-773
syntmp-s-774 syntmp-m-743 syntmp-esew-744))) (if (memv syntmp-t-762 (quote
(eval-when-form))) ((lambda (syntmp-tmp-775) ((lambda (syntmp-tmp-776) (if
syntmp-tmp-776 (apply (lambda (syntmp-_-777 syntmp-x-778 syntmp-e1-779
syntmp-e2-780) (let ((syntmp-when-list-781 (syntmp-chi-when-list-148
syntmp-e-759 syntmp-x-778 syntmp-w-760)) (syntmp-body-782 (cons syntmp-e1-779
syntmp-e2-780))) (cond ((eq? syntmp-m-743 (quote e)) (if (memq (quote eval)
syntmp-when-list-781) (syntmp-chi-top-sequence-146 syntmp-body-782 syntmp-r-741
syntmp-w-760 syntmp-s-761 (quote e) (quote (eval))) (syntmp-chi-void-159)))
((memq (quote load) syntmp-when-list-781) (if (or (memq (quote compile)
syntmp-when-list-781) (and (eq? syntmp-m-743 (quote c&e)) (memq (quote eval)
syntmp-when-list-781))) (syntmp-chi-top-sequence-146 syntmp-body-782
syntmp-r-741 syntmp-w-760 syntmp-s-761 (quote c&e) (quote (compile load))) (if
(memq syntmp-m-743 (quote (c c&e))) (syntmp-chi-top-sequence-146
syntmp-body-782 syntmp-r-741 syntmp-w-760 syntmp-s-761 (quote c) (quote
(load))) (syntmp-chi-void-159)))) ((or (memq (quote compile)
syntmp-when-list-781) (and (eq? syntmp-m-743 (quote c&e)) (memq (quote eval)
syntmp-when-list-781))) (syntmp-top-level-eval-hook-90
(syntmp-chi-top-sequence-146 syntmp-body-782 syntmp-r-741 syntmp-w-760
syntmp-s-761 (quote e) (quote (eval)))) (syntmp-chi-void-159)) (else
(syntmp-chi-void-159))))) syntmp-tmp-776) (syntax-error syntmp-tmp-775)))
(syntax-dispatch syntmp-tmp-775 (quote (any each-any any . each-any)))))
syntmp-e-759) (if (memv syntmp-t-762 (quote (define-syntax-form))) (let
((syntmp-n-785 (syntmp-id-var-name-137 syntmp-value-758 syntmp-w-760))
(syntmp-r-786 (syntmp-macros-only-env-111 syntmp-r-741))) (let ((syntmp-t-787
syntmp-m-743)) (if (memv syntmp-t-787 (quote (c))) (if (memq (quote compile)
syntmp-esew-744) (let ((syntmp-e-788 (syntmp-chi-install-global-147
syntmp-n-785 (syntmp-chi-151 syntmp-e-759 syntmp-r-786 syntmp-w-760)))) (begin
(syntmp-top-level-eval-hook-90 syntmp-e-788) (if (memq (quote load)
syntmp-esew-744) syntmp-e-788 (syntmp-chi-void-159)))) (if (memq (quote load)
syntmp-esew-744) (syntmp-chi-install-global-147 syntmp-n-785 (syntmp-chi-151
syntmp-e-759 syntmp-r-786 syntmp-w-760)) (syntmp-chi-void-159))) (if (memv
syntmp-t-787 (quote (c&e))) (let ((syntmp-e-789 (syntmp-chi-install-global-147
syntmp-n-785 (syntmp-chi-151 syntmp-e-759 syntmp-r-786 syntmp-w-760)))) (begin
(syntmp-top-level-eval-hook-90 syntmp-e-789) syntmp-e-789)) (begin (if (memq
(quote eval) syntmp-esew-744) (syntmp-top-level-eval-hook-90
(syntmp-chi-install-global-147 syntmp-n-785 (syntmp-chi-151 syntmp-e-759
syntmp-r-786 syntmp-w-760)))) (syntmp-chi-void-159)))))) (if (memv syntmp-t-762
(quote (define-form))) (let ((syntmp-n-790 (syntmp-id-var-name-137
syntmp-value-758 syntmp-w-760))) (let ((syntmp-type-791
(syntmp-binding-type-107 (syntmp-lookup-112 syntmp-n-790 syntmp-r-741)))) (let
((syntmp-t-792 syntmp-type-791)) (if (memv syntmp-t-792 (quote (global))) (let
((syntmp-x-793 (list (quote define) syntmp-n-790 (syntmp-chi-151 syntmp-e-759
syntmp-r-741 syntmp-w-760)))) (begin (if (eq? syntmp-m-743 (quote c&e))
(syntmp-top-level-eval-hook-90 syntmp-x-793)) syntmp-x-793)) (if (memv
syntmp-t-792 (quote (displaced-lexical))) (syntax-error (syntmp-wrap-143
syntmp-value-758 syntmp-w-760) "identifier out of context") (if (eq?
syntmp-type-791 (quote external-macro)) (let ((syntmp-x-794 (list (quote
define) syntmp-n-790 (syntmp-chi-151 syntmp-e-759 syntmp-r-741 syntmp-w-760))))
(begin (if (eq? syntmp-m-743 (quote c&e)) (syntmp-top-level-eval-hook-90
syntmp-x-794)) syntmp-x-794)) (syntax-error (syntmp-wrap-143 syntmp-value-758
syntmp-w-760) "cannot define keyword at top level"))))))) (let ((syntmp-x-795
(syntmp-chi-expr-152 syntmp-type-757 syntmp-value-758 syntmp-e-759 syntmp-r-741
syntmp-w-760 syntmp-s-761))) (begin (if (eq? syntmp-m-743 (quote c&e))
(syntmp-top-level-eval-hook-90 syntmp-x-795)) syntmp-x-795))))))))))))
(syntmp-syntax-type-149 (lambda (syntmp-e-796 syntmp-r-797 syntmp-w-798
syntmp-s-799 syntmp-rib-800) (cond ((symbol? syntmp-e-796) (let ((syntmp-n-801
(syntmp-id-var-name-137 syntmp-e-796 syntmp-w-798))) (let ((syntmp-b-802
(syntmp-lookup-112 syntmp-n-801 syntmp-r-797))) (let ((syntmp-type-803
(syntmp-binding-type-107 syntmp-b-802))) (let ((syntmp-t-804 syntmp-type-803))
(if (memv syntmp-t-804 (quote (lexical))) (values syntmp-type-803
(syntmp-binding-value-108 syntmp-b-802) syntmp-e-796 syntmp-w-798 syntmp-s-799)
(if (memv syntmp-t-804 (quote (global))) (values syntmp-type-803 syntmp-n-801
syntmp-e-796 syntmp-w-798 syntmp-s-799) (if (memv syntmp-t-804 (quote (macro)))
(syntmp-syntax-type-149 (syntmp-chi-macro-154 (syntmp-binding-value-108
syntmp-b-802) syntmp-e-796 syntmp-r-797 syntmp-w-798 syntmp-rib-800)
syntmp-r-797 (quote (())) syntmp-s-799 syntmp-rib-800) (values syntmp-type-803
(syntmp-binding-value-108 syntmp-b-802) syntmp-e-796 syntmp-w-798
syntmp-s-799))))))))) ((pair? syntmp-e-796) (let ((syntmp-first-805 (car
syntmp-e-796))) (if (syntmp-id?-115 syntmp-first-805) (let ((syntmp-n-806
(syntmp-id-var-name-137 syntmp-first-805 syntmp-w-798))) (let ((syntmp-b-807
(syntmp-lookup-112 syntmp-n-806 syntmp-r-797))) (let ((syntmp-type-808
(syntmp-binding-type-107 syntmp-b-807))) (let ((syntmp-t-809 syntmp-type-808))
(if (memv syntmp-t-809 (quote (lexical))) (values (quote lexical-call)
(syntmp-binding-value-108 syntmp-b-807) syntmp-e-796 syntmp-w-798 syntmp-s-799)
(if (memv syntmp-t-809 (quote (global))) (values (quote global-call)
syntmp-n-806 syntmp-e-796 syntmp-w-798 syntmp-s-799) (if (memv syntmp-t-809
(quote (macro))) (syntmp-syntax-type-149 (syntmp-chi-macro-154
(syntmp-binding-value-108 syntmp-b-807) syntmp-e-796 syntmp-r-797 syntmp-w-798
syntmp-rib-800) syntmp-r-797 (quote (())) syntmp-s-799 syntmp-rib-800) (if
(memv syntmp-t-809 (quote (core external-macro))) (values syntmp-type-808
(syntmp-binding-value-108 syntmp-b-807) syntmp-e-796 syntmp-w-798 syntmp-s-799)
(if (memv syntmp-t-809 (quote (local-syntax))) (values (quote
local-syntax-form) (syntmp-binding-value-108 syntmp-b-807) syntmp-e-796
syntmp-w-798 syntmp-s-799) (if (memv syntmp-t-809 (quote (begin))) (values
(quote begin-form) #f syntmp-e-796 syntmp-w-798 syntmp-s-799) (if (memv
syntmp-t-809 (quote (eval-when))) (values (quote eval-when-form) #f
syntmp-e-796 syntmp-w-798 syntmp-s-799) (if (memv syntmp-t-809 (quote
(define))) ((lambda (syntmp-tmp-810) ((lambda (syntmp-tmp-811) (if (if
syntmp-tmp-811 (apply (lambda (syntmp-_-812 syntmp-name-813 syntmp-val-814)
(syntmp-id?-115 syntmp-name-813)) syntmp-tmp-811) #f) (apply (lambda
(syntmp-_-815 syntmp-name-816 syntmp-val-817) (values (quote define-form)
syntmp-name-816 syntmp-val-817 syntmp-w-798 syntmp-s-799)) syntmp-tmp-811)
((lambda (syntmp-tmp-818) (if (if syntmp-tmp-818 (apply (lambda (syntmp-_-819
syntmp-name-820 syntmp-args-821 syntmp-e1-822 syntmp-e2-823) (and
(syntmp-id?-115 syntmp-name-820) (syntmp-valid-bound-ids?-140
(syntmp-lambda-var-list-164 syntmp-args-821)))) syntmp-tmp-818) #f) (apply
(lambda (syntmp-_-824 syntmp-name-825 syntmp-args-826 syntmp-e1-827
syntmp-e2-828) (values (quote define-form) (syntmp-wrap-143 syntmp-name-825
syntmp-w-798) (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"))))) (syntmp-wrap-143 (cons syntmp-args-826
(cons syntmp-e1-827 syntmp-e2-828)) syntmp-w-798)) (quote (())) syntmp-s-799))
syntmp-tmp-818) ((lambda (syntmp-tmp-830) (if (if syntmp-tmp-830 (apply (lambda
(syntmp-_-831 syntmp-name-832) (syntmp-id?-115 syntmp-name-832))
syntmp-tmp-830) #f) (apply (lambda (syntmp-_-833 syntmp-name-834) (values
(quote define-form) (syntmp-wrap-143 syntmp-name-834 syntmp-w-798) (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 (()))
syntmp-s-799)) syntmp-tmp-830) (syntax-error syntmp-tmp-810))) (syntax-dispatch
syntmp-tmp-810 (quote (any any)))))) (syntax-dispatch syntmp-tmp-810 (quote
(any (any . any) any . each-any)))))) (syntax-dispatch syntmp-tmp-810 (quote
(any any any))))) syntmp-e-796) (if (memv syntmp-t-809 (quote (define-syntax)))
((lambda (syntmp-tmp-835) ((lambda (syntmp-tmp-836) (if (if syntmp-tmp-836
(apply (lambda (syntmp-_-837 syntmp-name-838 syntmp-val-839) (syntmp-id?-115
syntmp-name-838)) syntmp-tmp-836) #f) (apply (lambda (syntmp-_-840
syntmp-name-841 syntmp-val-842) (values (quote define-syntax-form)
syntmp-name-841 syntmp-val-842 syntmp-w-798 syntmp-s-799)) syntmp-tmp-836)
(syntax-error syntmp-tmp-835))) (syntax-dispatch syntmp-tmp-835 (quote (any any
any))))) syntmp-e-796) (values (quote call) #f syntmp-e-796 syntmp-w-798
syntmp-s-799)))))))))))))) (values (quote call) #f syntmp-e-796 syntmp-w-798
syntmp-s-799)))) ((syntmp-syntax-object?-101 syntmp-e-796)
(syntmp-syntax-type-149 (syntmp-syntax-object-expression-102 syntmp-e-796)
syntmp-r-797 (syntmp-join-wraps-134 syntmp-w-798 (syntmp-syntax-object-wrap-103
syntmp-e-796)) #f syntmp-rib-800)) ((syntmp-annotation?-89 syntmp-e-796)
(syntmp-syntax-type-149 (annotation-expression syntmp-e-796) syntmp-r-797
syntmp-w-798 (annotation-source syntmp-e-796) syntmp-rib-800)) ((let
((syntmp-x-843 syntmp-e-796)) (or (boolean? syntmp-x-843) (number?
syntmp-x-843) (string? syntmp-x-843) (char? syntmp-x-843) (keyword?
syntmp-x-843) (procedure? syntmp-x-843))) (values (quote constant) #f
syntmp-e-796 syntmp-w-798 syntmp-s-799)) (else (values (quote other) #f
syntmp-e-796 syntmp-w-798 syntmp-s-799))))) (syntmp-chi-when-list-148 (lambda
(syntmp-e-844 syntmp-when-list-845 syntmp-w-846) (let syntmp-f-847
((syntmp-when-list-848 syntmp-when-list-845) (syntmp-situations-849 (quote
()))) (if (null? syntmp-when-list-848) syntmp-situations-849 (syntmp-f-847 (cdr
syntmp-when-list-848) (cons (let ((syntmp-x-850 (car syntmp-when-list-848)))
(cond ((syntmp-free-id=?-138 syntmp-x-850 (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)) ((syntmp-free-id=?-138
syntmp-x-850 (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))
((syntmp-free-id=?-138 syntmp-x-850 (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
(syntmp-wrap-143 syntmp-x-850 syntmp-w-846) "invalid eval-when situation"))))
syntmp-situations-849)))))) (syntmp-chi-install-global-147 (lambda
(syntmp-name-851 syntmp-e-852) (list (quote install-global-transformer)
(syntmp-build-data-95 #f syntmp-name-851) syntmp-e-852)))
(syntmp-chi-top-sequence-146 (lambda (syntmp-body-853 syntmp-r-854 syntmp-w-855
syntmp-s-856 syntmp-m-857 syntmp-esew-858) (syntmp-build-sequence-96
syntmp-s-856 (let syntmp-dobody-859 ((syntmp-body-860 syntmp-body-853)
(syntmp-r-861 syntmp-r-854) (syntmp-w-862 syntmp-w-855) (syntmp-m-863
syntmp-m-857) (syntmp-esew-864 syntmp-esew-858)) (if (null? syntmp-body-860)
(quote ()) (let ((syntmp-first-865 (syntmp-chi-top-150 (car syntmp-body-860)
syntmp-r-861 syntmp-w-862 syntmp-m-863 syntmp-esew-864))) (cons
syntmp-first-865 (syntmp-dobody-859 (cdr syntmp-body-860) syntmp-r-861
syntmp-w-862 syntmp-m-863 syntmp-esew-864)))))))) (syntmp-chi-sequence-145
(lambda (syntmp-body-866 syntmp-r-867 syntmp-w-868 syntmp-s-869)
(syntmp-build-sequence-96 syntmp-s-869 (let syntmp-dobody-870 ((syntmp-body-871
syntmp-body-866) (syntmp-r-872 syntmp-r-867) (syntmp-w-873 syntmp-w-868)) (if
(null? syntmp-body-871) (quote ()) (let ((syntmp-first-874 (syntmp-chi-151 (car
syntmp-body-871) syntmp-r-872 syntmp-w-873))) (cons syntmp-first-874
(syntmp-dobody-870 (cdr syntmp-body-871) syntmp-r-872 syntmp-w-873))))))))
(syntmp-source-wrap-144 (lambda (syntmp-x-875 syntmp-w-876 syntmp-s-877)
(syntmp-wrap-143 (if syntmp-s-877 (make-annotation syntmp-x-875 syntmp-s-877
#f) syntmp-x-875) syntmp-w-876))) (syntmp-wrap-143 (lambda (syntmp-x-878
syntmp-w-879) (cond ((and (null? (syntmp-wrap-marks-118 syntmp-w-879)) (null?
(syntmp-wrap-subst-119 syntmp-w-879))) syntmp-x-878)
((syntmp-syntax-object?-101 syntmp-x-878) (syntmp-make-syntax-object-100
(syntmp-syntax-object-expression-102 syntmp-x-878) (syntmp-join-wraps-134
syntmp-w-879 (syntmp-syntax-object-wrap-103 syntmp-x-878)))) ((null?
syntmp-x-878) syntmp-x-878) (else (syntmp-make-syntax-object-100 syntmp-x-878
syntmp-w-879))))) (syntmp-bound-id-member?-142 (lambda (syntmp-x-880
syntmp-list-881) (and (not (null? syntmp-list-881)) (or (syntmp-bound-id=?-139
syntmp-x-880 (car syntmp-list-881)) (syntmp-bound-id-member?-142 syntmp-x-880
(cdr syntmp-list-881)))))) (syntmp-distinct-bound-ids?-141 (lambda
(syntmp-ids-882) (let syntmp-distinct?-883 ((syntmp-ids-884 syntmp-ids-882))
(or (null? syntmp-ids-884) (and (not (syntmp-bound-id-member?-142 (car
syntmp-ids-884) (cdr syntmp-ids-884))) (syntmp-distinct?-883 (cdr
syntmp-ids-884))))))) (syntmp-valid-bound-ids?-140 (lambda (syntmp-ids-885)
(and (let syntmp-all-ids?-886 ((syntmp-ids-887 syntmp-ids-885)) (or (null?
syntmp-ids-887) (and (syntmp-id?-115 (car syntmp-ids-887)) (syntmp-all-ids?-886
(cdr syntmp-ids-887))))) (syntmp-distinct-bound-ids?-141 syntmp-ids-885))))
(syntmp-bound-id=?-139 (lambda (syntmp-i-888 syntmp-j-889) (if (and
(syntmp-syntax-object?-101 syntmp-i-888) (syntmp-syntax-object?-101
syntmp-j-889)) (and (eq? (let ((syntmp-e-890
(syntmp-syntax-object-expression-102 syntmp-i-888))) (if (syntmp-annotation?-89
syntmp-e-890) (annotation-expression syntmp-e-890) syntmp-e-890)) (let
((syntmp-e-891 (syntmp-syntax-object-expression-102 syntmp-j-889))) (if
(syntmp-annotation?-89 syntmp-e-891) (annotation-expression syntmp-e-891)
syntmp-e-891))) (syntmp-same-marks?-136 (syntmp-wrap-marks-118
(syntmp-syntax-object-wrap-103 syntmp-i-888)) (syntmp-wrap-marks-118
(syntmp-syntax-object-wrap-103 syntmp-j-889)))) (eq? (let ((syntmp-e-892
syntmp-i-888)) (if (syntmp-annotation?-89 syntmp-e-892) (annotation-expression
syntmp-e-892) syntmp-e-892)) (let ((syntmp-e-893 syntmp-j-889)) (if
(syntmp-annotation?-89 syntmp-e-893) (annotation-expression syntmp-e-893)
syntmp-e-893)))))) (syntmp-free-id=?-138 (lambda (syntmp-i-894 syntmp-j-895)
(and (eq? (let ((syntmp-x-896 syntmp-i-894)) (let ((syntmp-e-897 (if
(syntmp-syntax-object?-101 syntmp-x-896) (syntmp-syntax-object-expression-102
syntmp-x-896) syntmp-x-896))) (if (syntmp-annotation?-89 syntmp-e-897)
(annotation-expression syntmp-e-897) syntmp-e-897))) (let ((syntmp-x-898
syntmp-j-895)) (let ((syntmp-e-899 (if (syntmp-syntax-object?-101 syntmp-x-898)
(syntmp-syntax-object-expression-102 syntmp-x-898) syntmp-x-898))) (if
(syntmp-annotation?-89 syntmp-e-899) (annotation-expression syntmp-e-899)
syntmp-e-899)))) (eq? (syntmp-id-var-name-137 syntmp-i-894 (quote (())))
(syntmp-id-var-name-137 syntmp-j-895 (quote (()))))))) (syntmp-id-var-name-137
(lambda (syntmp-id-900 syntmp-w-901) (letrec ((syntmp-search-vector-rib-904
(lambda (syntmp-sym-915 syntmp-subst-916 syntmp-marks-917 syntmp-symnames-918
syntmp-ribcage-919) (let ((syntmp-n-920 (vector-length syntmp-symnames-918)))
(let syntmp-f-921 ((syntmp-i-922 0)) (cond ((syntmp-fx=-87 syntmp-i-922
syntmp-n-920) (syntmp-search-902 syntmp-sym-915 (cdr syntmp-subst-916)
syntmp-marks-917)) ((and (eq? (vector-ref syntmp-symnames-918 syntmp-i-922)
syntmp-sym-915) (syntmp-same-marks?-136 syntmp-marks-917 (vector-ref
(syntmp-ribcage-marks-125 syntmp-ribcage-919) syntmp-i-922))) (values
(vector-ref (syntmp-ribcage-labels-126 syntmp-ribcage-919) syntmp-i-922)
syntmp-marks-917)) (else (syntmp-f-921 (syntmp-fx+-85 syntmp-i-922 1))))))))
(syntmp-search-list-rib-903 (lambda (syntmp-sym-923 syntmp-subst-924
syntmp-marks-925 syntmp-symnames-926 syntmp-ribcage-927) (let syntmp-f-928
((syntmp-symnames-929 syntmp-symnames-926) (syntmp-i-930 0)) (cond ((null?
syntmp-symnames-929) (syntmp-search-902 syntmp-sym-923 (cdr syntmp-subst-924)
syntmp-marks-925)) ((and (eq? (car syntmp-symnames-929) syntmp-sym-923)
(syntmp-same-marks?-136 syntmp-marks-925 (list-ref (syntmp-ribcage-marks-125
syntmp-ribcage-927) syntmp-i-930))) (values (list-ref
(syntmp-ribcage-labels-126 syntmp-ribcage-927) syntmp-i-930) syntmp-marks-925))
(else (syntmp-f-928 (cdr syntmp-symnames-929) (syntmp-fx+-85 syntmp-i-930
1))))))) (syntmp-search-902 (lambda (syntmp-sym-931 syntmp-subst-932
syntmp-marks-933) (if (null? syntmp-subst-932) (values #f syntmp-marks-933)
(let ((syntmp-fst-934 (car syntmp-subst-932))) (if (eq? syntmp-fst-934 (quote
shift)) (syntmp-search-902 syntmp-sym-931 (cdr syntmp-subst-932) (cdr
syntmp-marks-933)) (let ((syntmp-symnames-935 (syntmp-ribcage-symnames-124
syntmp-fst-934))) (if (vector? syntmp-symnames-935)
(syntmp-search-vector-rib-904 syntmp-sym-931 syntmp-subst-932 syntmp-marks-933
syntmp-symnames-935 syntmp-fst-934) (syntmp-search-list-rib-903 syntmp-sym-931
syntmp-subst-932 syntmp-marks-933 syntmp-symnames-935 syntmp-fst-934)))))))))
(cond ((symbol? syntmp-id-900) (or (call-with-values (lambda ()
(syntmp-search-902 syntmp-id-900 (syntmp-wrap-subst-119 syntmp-w-901)
(syntmp-wrap-marks-118 syntmp-w-901))) (lambda (syntmp-x-937 .
syntmp-ignore-936) syntmp-x-937)) syntmp-id-900)) ((syntmp-syntax-object?-101
syntmp-id-900) (let ((syntmp-id-938 (let ((syntmp-e-940
(syntmp-syntax-object-expression-102 syntmp-id-900))) (if
(syntmp-annotation?-89 syntmp-e-940) (annotation-expression syntmp-e-940)
syntmp-e-940))) (syntmp-w1-939 (syntmp-syntax-object-wrap-103 syntmp-id-900)))
(let ((syntmp-marks-941 (syntmp-join-marks-135 (syntmp-wrap-marks-118
syntmp-w-901) (syntmp-wrap-marks-118 syntmp-w1-939)))) (call-with-values
(lambda () (syntmp-search-902 syntmp-id-938 (syntmp-wrap-subst-119
syntmp-w-901) syntmp-marks-941)) (lambda (syntmp-new-id-942 syntmp-marks-943)
(or syntmp-new-id-942 (call-with-values (lambda () (syntmp-search-902
syntmp-id-938 (syntmp-wrap-subst-119 syntmp-w1-939) syntmp-marks-943)) (lambda
(syntmp-x-945 . syntmp-ignore-944) syntmp-x-945)) syntmp-id-938))))))
((syntmp-annotation?-89 syntmp-id-900) (let ((syntmp-id-946 (let ((syntmp-e-947
syntmp-id-900)) (if (syntmp-annotation?-89 syntmp-e-947) (annotation-expression
syntmp-e-947) syntmp-e-947)))) (or (call-with-values (lambda ()
(syntmp-search-902 syntmp-id-946 (syntmp-wrap-subst-119 syntmp-w-901)
(syntmp-wrap-marks-118 syntmp-w-901))) (lambda (syntmp-x-949 .
syntmp-ignore-948) syntmp-x-949)) syntmp-id-946))) (else (syntmp-error-hook-92
(quote id-var-name) "invalid id" syntmp-id-900)))))) (syntmp-same-marks?-136
(lambda (syntmp-x-950 syntmp-y-951) (or (eq? syntmp-x-950 syntmp-y-951) (and
(not (null? syntmp-x-950)) (not (null? syntmp-y-951)) (eq? (car syntmp-x-950)
(car syntmp-y-951)) (syntmp-same-marks?-136 (cdr syntmp-x-950) (cdr
syntmp-y-951)))))) (syntmp-join-marks-135 (lambda (syntmp-m1-952 syntmp-m2-953)
(syntmp-smart-append-133 syntmp-m1-952 syntmp-m2-953))) (syntmp-join-wraps-134
(lambda (syntmp-w1-954 syntmp-w2-955) (let ((syntmp-m1-956
(syntmp-wrap-marks-118 syntmp-w1-954)) (syntmp-s1-957 (syntmp-wrap-subst-119
syntmp-w1-954))) (if (null? syntmp-m1-956) (if (null? syntmp-s1-957)
syntmp-w2-955 (syntmp-make-wrap-117 (syntmp-wrap-marks-118 syntmp-w2-955)
(syntmp-smart-append-133 syntmp-s1-957 (syntmp-wrap-subst-119 syntmp-w2-955))))
(syntmp-make-wrap-117 (syntmp-smart-append-133 syntmp-m1-956
(syntmp-wrap-marks-118 syntmp-w2-955)) (syntmp-smart-append-133 syntmp-s1-957
(syntmp-wrap-subst-119 syntmp-w2-955))))))) (syntmp-smart-append-133 (lambda
(syntmp-m1-958 syntmp-m2-959) (if (null? syntmp-m2-959) syntmp-m1-958 (append
syntmp-m1-958 syntmp-m2-959)))) (syntmp-make-binding-wrap-132 (lambda
(syntmp-ids-960 syntmp-labels-961 syntmp-w-962) (if (null? syntmp-ids-960)
syntmp-w-962 (syntmp-make-wrap-117 (syntmp-wrap-marks-118 syntmp-w-962) (cons
(let ((syntmp-labelvec-963 (list->vector syntmp-labels-961))) (let
((syntmp-n-964 (vector-length syntmp-labelvec-963))) (let
((syntmp-symnamevec-965 (make-vector syntmp-n-964)) (syntmp-marksvec-966
(make-vector syntmp-n-964))) (begin (let syntmp-f-967 ((syntmp-ids-968
syntmp-ids-960) (syntmp-i-969 0)) (if (not (null? syntmp-ids-968))
(call-with-values (lambda () (syntmp-id-sym-name&marks-116 (car syntmp-ids-968)
syntmp-w-962)) (lambda (syntmp-symname-970 syntmp-marks-971) (begin
(vector-set! syntmp-symnamevec-965 syntmp-i-969 syntmp-symname-970)
(vector-set! syntmp-marksvec-966 syntmp-i-969 syntmp-marks-971) (syntmp-f-967
(cdr syntmp-ids-968) (syntmp-fx+-85 syntmp-i-969 1)))))))
(syntmp-make-ribcage-122 syntmp-symnamevec-965 syntmp-marksvec-966
syntmp-labelvec-963))))) (syntmp-wrap-subst-119 syntmp-w-962))))))
(syntmp-extend-ribcage!-131 (lambda (syntmp-ribcage-972 syntmp-id-973
syntmp-label-974) (begin (syntmp-set-ribcage-symnames!-127 syntmp-ribcage-972
(cons (let ((syntmp-e-975 (syntmp-syntax-object-expression-102 syntmp-id-973)))
(if (syntmp-annotation?-89 syntmp-e-975) (annotation-expression syntmp-e-975)
syntmp-e-975)) (syntmp-ribcage-symnames-124 syntmp-ribcage-972)))
(syntmp-set-ribcage-marks!-128 syntmp-ribcage-972 (cons (syntmp-wrap-marks-118
(syntmp-syntax-object-wrap-103 syntmp-id-973)) (syntmp-ribcage-marks-125
syntmp-ribcage-972))) (syntmp-set-ribcage-labels!-129 syntmp-ribcage-972 (cons
syntmp-label-974 (syntmp-ribcage-labels-126 syntmp-ribcage-972))))))
(syntmp-anti-mark-130 (lambda (syntmp-w-976) (syntmp-make-wrap-117 (cons #f
(syntmp-wrap-marks-118 syntmp-w-976)) (cons (quote shift)
(syntmp-wrap-subst-119 syntmp-w-976))))) (syntmp-set-ribcage-labels!-129
(lambda (syntmp-x-977 syntmp-update-978) (vector-set! syntmp-x-977 3
syntmp-update-978))) (syntmp-set-ribcage-marks!-128 (lambda (syntmp-x-979
syntmp-update-980) (vector-set! syntmp-x-979 2 syntmp-update-980)))
(syntmp-set-ribcage-symnames!-127 (lambda (syntmp-x-981 syntmp-update-982)
(vector-set! syntmp-x-981 1 syntmp-update-982))) (syntmp-ribcage-labels-126
(lambda (syntmp-x-983) (vector-ref syntmp-x-983 3))) (syntmp-ribcage-marks-125
(lambda (syntmp-x-984) (vector-ref syntmp-x-984 2)))
(syntmp-ribcage-symnames-124 (lambda (syntmp-x-985) (vector-ref syntmp-x-985
1))) (syntmp-ribcage?-123 (lambda (syntmp-x-986) (and (vector? syntmp-x-986) (=
(vector-length syntmp-x-986) 4) (eq? (vector-ref syntmp-x-986 0) (quote
ribcage))))) (syntmp-make-ribcage-122 (lambda (syntmp-symnames-987
syntmp-marks-988 syntmp-labels-989) (vector (quote ribcage) syntmp-symnames-987
syntmp-marks-988 syntmp-labels-989))) (syntmp-gen-labels-121 (lambda
(syntmp-ls-990) (if (null? syntmp-ls-990) (quote ()) (cons
(syntmp-gen-label-120) (syntmp-gen-labels-121 (cdr syntmp-ls-990))))))
(syntmp-gen-label-120 (lambda () (string #\i))) (syntmp-wrap-subst-119 cdr)
(syntmp-wrap-marks-118 car) (syntmp-make-wrap-117 cons)
(syntmp-id-sym-name&marks-116 (lambda (syntmp-x-991 syntmp-w-992) (if
(syntmp-syntax-object?-101 syntmp-x-991) (values (let ((syntmp-e-993
(syntmp-syntax-object-expression-102 syntmp-x-991))) (if (syntmp-annotation?-89
syntmp-e-993) (annotation-expression syntmp-e-993) syntmp-e-993))
(syntmp-join-marks-135 (syntmp-wrap-marks-118 syntmp-w-992)
(syntmp-wrap-marks-118 (syntmp-syntax-object-wrap-103 syntmp-x-991)))) (values
(let ((syntmp-e-994 syntmp-x-991)) (if (syntmp-annotation?-89 syntmp-e-994)
(annotation-expression syntmp-e-994) syntmp-e-994)) (syntmp-wrap-marks-118
syntmp-w-992))))) (syntmp-id?-115 (lambda (syntmp-x-995) (cond ((symbol?
syntmp-x-995) #t) ((syntmp-syntax-object?-101 syntmp-x-995) (symbol? (let
((syntmp-e-996 (syntmp-syntax-object-expression-102 syntmp-x-995))) (if
(syntmp-annotation?-89 syntmp-e-996) (annotation-expression syntmp-e-996)
syntmp-e-996)))) ((syntmp-annotation?-89 syntmp-x-995) (symbol?
(annotation-expression syntmp-x-995))) (else #f)))) (syntmp-nonsymbol-id?-114
(lambda (syntmp-x-997) (and (syntmp-syntax-object?-101 syntmp-x-997) (symbol?
(let ((syntmp-e-998 (syntmp-syntax-object-expression-102 syntmp-x-997))) (if
(syntmp-annotation?-89 syntmp-e-998) (annotation-expression syntmp-e-998)
syntmp-e-998)))))) (syntmp-global-extend-113 (lambda (syntmp-type-999
syntmp-sym-1000 syntmp-val-1001) (syntmp-put-global-definition-hook-93
syntmp-sym-1000 (cons syntmp-type-999 syntmp-val-1001)))) (syntmp-lookup-112
(lambda (syntmp-x-1002 syntmp-r-1003) (cond ((assq syntmp-x-1002 syntmp-r-1003)
=> cdr) ((symbol? syntmp-x-1002) (or (syntmp-get-global-definition-hook-94
syntmp-x-1002) (quote (global)))) (else (quote (displaced-lexical))))))
(syntmp-macros-only-env-111 (lambda (syntmp-r-1004) (if (null? syntmp-r-1004)
(quote ()) (let ((syntmp-a-1005 (car syntmp-r-1004))) (if (eq? (cadr
syntmp-a-1005) (quote macro)) (cons syntmp-a-1005 (syntmp-macros-only-env-111
(cdr syntmp-r-1004))) (syntmp-macros-only-env-111 (cdr syntmp-r-1004)))))))
(syntmp-extend-var-env-110 (lambda (syntmp-labels-1006 syntmp-vars-1007
syntmp-r-1008) (if (null? syntmp-labels-1006) syntmp-r-1008
(syntmp-extend-var-env-110 (cdr syntmp-labels-1006) (cdr syntmp-vars-1007)
(cons (cons (car syntmp-labels-1006) (cons (quote lexical) (car
syntmp-vars-1007))) syntmp-r-1008))))) (syntmp-extend-env-109 (lambda
(syntmp-labels-1009 syntmp-bindings-1010 syntmp-r-1011) (if (null?
syntmp-labels-1009) syntmp-r-1011 (syntmp-extend-env-109 (cdr
syntmp-labels-1009) (cdr syntmp-bindings-1010) (cons (cons (car
syntmp-labels-1009) (car syntmp-bindings-1010)) syntmp-r-1011)))))
(syntmp-binding-value-108 cdr) (syntmp-binding-type-107 car)
(syntmp-source-annotation-106 (lambda (syntmp-x-1012) (cond
((syntmp-annotation?-89 syntmp-x-1012) (annotation-source syntmp-x-1012))
((syntmp-syntax-object?-101 syntmp-x-1012) (syntmp-source-annotation-106
(syntmp-syntax-object-expression-102 syntmp-x-1012))) (else #f))))
(syntmp-set-syntax-object-wrap!-105 (lambda (syntmp-x-1013 syntmp-update-1014)
(vector-set! syntmp-x-1013 2 syntmp-update-1014)))
(syntmp-set-syntax-object-expression!-104 (lambda (syntmp-x-1015
syntmp-update-1016) (vector-set! syntmp-x-1015 1 syntmp-update-1016)))
(syntmp-syntax-object-wrap-103 (lambda (syntmp-x-1017) (vector-ref
syntmp-x-1017 2))) (syntmp-syntax-object-expression-102 (lambda (syntmp-x-1018)
(vector-ref syntmp-x-1018 1))) (syntmp-syntax-object?-101 (lambda
(syntmp-x-1019) (and (vector? syntmp-x-1019) (= (vector-length syntmp-x-1019)
3) (eq? (vector-ref syntmp-x-1019 0) (quote syntax-object)))))
(syntmp-make-syntax-object-100 (lambda (syntmp-expression-1020
syntmp-wrap-1021) (vector (quote syntax-object) syntmp-expression-1020
syntmp-wrap-1021))) (syntmp-build-letrec-99 (lambda (syntmp-src-1022
syntmp-vars-1023 syntmp-val-exps-1024 syntmp-body-exp-1025) (if (null?
syntmp-vars-1023) syntmp-body-exp-1025 (list (quote letrec) (map list
syntmp-vars-1023 syntmp-val-exps-1024) syntmp-body-exp-1025))))
(syntmp-build-named-let-98 (lambda (syntmp-src-1026 syntmp-vars-1027
syntmp-val-exps-1028 syntmp-body-exp-1029) (if (null? syntmp-vars-1027)
syntmp-body-exp-1029 (list (quote let) (car syntmp-vars-1027) (map list (cdr
syntmp-vars-1027) syntmp-val-exps-1028) syntmp-body-exp-1029))))
(syntmp-build-let-97 (lambda (syntmp-src-1030 syntmp-vars-1031
syntmp-val-exps-1032 syntmp-body-exp-1033) (if (null? syntmp-vars-1031)
syntmp-body-exp-1033 (list (quote let) (map list syntmp-vars-1031
syntmp-val-exps-1032) syntmp-body-exp-1033)))) (syntmp-build-sequence-96
(lambda (syntmp-src-1034 syntmp-exps-1035) (if (null? (cdr syntmp-exps-1035))
(car syntmp-exps-1035) (cons (quote begin) syntmp-exps-1035))))
(syntmp-build-data-95 (lambda (syntmp-src-1036 syntmp-exp-1037) (if (let
((syntmp-x-1038 syntmp-exp-1037)) (or (boolean? syntmp-x-1038) (number?
syntmp-x-1038) (string? syntmp-x-1038) (char? syntmp-x-1038) (keyword?
syntmp-x-1038) (procedure? syntmp-x-1038))) syntmp-exp-1037 (list (quote quote)
syntmp-exp-1037)))) (syntmp-get-global-definition-hook-94 (lambda
(syntmp-symbol-1039) (getprop syntmp-symbol-1039 (quote *sc-expander*))))
(syntmp-put-global-definition-hook-93 (lambda (syntmp-symbol-1040
syntmp-binding-1041) (putprop syntmp-symbol-1040 (quote *sc-expander*)
syntmp-binding-1041))) (syntmp-error-hook-92 (lambda (syntmp-who-1042
syntmp-why-1043 syntmp-what-1044) (error syntmp-who-1042 "~a ~s"
syntmp-why-1043 syntmp-what-1044))) (syntmp-local-eval-hook-91 (lambda
(syntmp-x-1045) (eval (list syntmp-noexpand-84 syntmp-x-1045)
(interaction-environment)))) (syntmp-top-level-eval-hook-90 (lambda
(syntmp-x-1046) (eval (list syntmp-noexpand-84 syntmp-x-1046)
(interaction-environment)))) (syntmp-annotation?-89 (lambda (syntmp-x-1047)
#f)) (syntmp-fx<-88 <) (syntmp-fx=-87 =) (syntmp-fx--86 -) (syntmp-fx+-85 +)
(syntmp-noexpand-84 "noexpand")) (begin (syntmp-global-extend-113 (quote
local-syntax) (quote letrec-syntax) #t) (syntmp-global-extend-113 (quote
local-syntax) (quote let-syntax) #f) (syntmp-global-extend-113 (quote core)
(quote fluid-let-syntax) (lambda (syntmp-e-1048 syntmp-r-1049 syntmp-w-1050
syntmp-s-1051) ((lambda (syntmp-tmp-1052) ((lambda (syntmp-tmp-1053) (if (if
syntmp-tmp-1053 (apply (lambda (syntmp-_-1054 syntmp-var-1055 syntmp-val-1056
syntmp-e1-1057 syntmp-e2-1058) (syntmp-valid-bound-ids?-140 syntmp-var-1055))
syntmp-tmp-1053) #f) (apply (lambda (syntmp-_-1060 syntmp-var-1061
syntmp-val-1062 syntmp-e1-1063 syntmp-e2-1064) (let ((syntmp-names-1065 (map
(lambda (syntmp-x-1066) (syntmp-id-var-name-137 syntmp-x-1066 syntmp-w-1050))
syntmp-var-1061))) (begin (for-each (lambda (syntmp-id-1068 syntmp-n-1069) (let
((syntmp-t-1070 (syntmp-binding-type-107 (syntmp-lookup-112 syntmp-n-1069
syntmp-r-1049)))) (if (memv syntmp-t-1070 (quote (displaced-lexical)))
(syntax-error (syntmp-source-wrap-144 syntmp-id-1068 syntmp-w-1050
syntmp-s-1051) "identifier out of context")))) syntmp-var-1061
syntmp-names-1065) (syntmp-chi-body-155 (cons syntmp-e1-1063 syntmp-e2-1064)
(syntmp-source-wrap-144 syntmp-e-1048 syntmp-w-1050 syntmp-s-1051)
(syntmp-extend-env-109 syntmp-names-1065 (let ((syntmp-trans-r-1073
(syntmp-macros-only-env-111 syntmp-r-1049))) (map (lambda (syntmp-x-1074) (cons
(quote macro) (syntmp-eval-local-transformer-158 (syntmp-chi-151 syntmp-x-1074
syntmp-trans-r-1073 syntmp-w-1050)))) syntmp-val-1062)) syntmp-r-1049)
syntmp-w-1050)))) syntmp-tmp-1053) ((lambda (syntmp-_-1076) (syntax-error
(syntmp-source-wrap-144 syntmp-e-1048 syntmp-w-1050 syntmp-s-1051)))
syntmp-tmp-1052))) (syntax-dispatch syntmp-tmp-1052 (quote (any #(each (any
any)) any . each-any))))) syntmp-e-1048))) (syntmp-global-extend-113 (quote
core) (quote quote) (lambda (syntmp-e-1077 syntmp-r-1078 syntmp-w-1079
syntmp-s-1080) ((lambda (syntmp-tmp-1081) ((lambda (syntmp-tmp-1082) (if
syntmp-tmp-1082 (apply (lambda (syntmp-_-1083 syntmp-e-1084)
(syntmp-build-data-95 syntmp-s-1080 (syntmp-strip-162 syntmp-e-1084
syntmp-w-1079))) syntmp-tmp-1082) ((lambda (syntmp-_-1085) (syntax-error
(syntmp-source-wrap-144 syntmp-e-1077 syntmp-w-1079 syntmp-s-1080)))
syntmp-tmp-1081))) (syntax-dispatch syntmp-tmp-1081 (quote (any any)))))
syntmp-e-1077))) (syntmp-global-extend-113 (quote core) (quote syntax) (letrec
((syntmp-regen-1093 (lambda (syntmp-x-1094) (let ((syntmp-t-1095 (car
syntmp-x-1094))) (if (memv syntmp-t-1095 (quote (ref))) (cadr syntmp-x-1094)
(if (memv syntmp-t-1095 (quote (primitive))) (cadr syntmp-x-1094) (if (memv
syntmp-t-1095 (quote (quote))) (syntmp-build-data-95 #f (cadr syntmp-x-1094))
(if (memv syntmp-t-1095 (quote (lambda))) (list (quote lambda) (cadr
syntmp-x-1094) (syntmp-regen-1093 (caddr syntmp-x-1094))) (if (memv
syntmp-t-1095 (quote (map))) (let ((syntmp-ls-1096 (map syntmp-regen-1093 (cdr
syntmp-x-1094)))) (cons (if (syntmp-fx=-87 (length syntmp-ls-1096) 2) (quote
map) (quote map)) syntmp-ls-1096)) (cons (car syntmp-x-1094) (map
syntmp-regen-1093 (cdr syntmp-x-1094))))))))))) (syntmp-gen-vector-1092 (lambda
(syntmp-x-1097) (cond ((eq? (car syntmp-x-1097) (quote list)) (cons (quote
vector) (cdr syntmp-x-1097))) ((eq? (car syntmp-x-1097) (quote quote)) (list
(quote quote) (list->vector (cadr syntmp-x-1097)))) (else (list (quote
list->vector) syntmp-x-1097))))) (syntmp-gen-append-1091 (lambda (syntmp-x-1098
syntmp-y-1099) (if (equal? syntmp-y-1099 (quote (quote ()))) syntmp-x-1098
(list (quote append) syntmp-x-1098 syntmp-y-1099)))) (syntmp-gen-cons-1090
(lambda (syntmp-x-1100 syntmp-y-1101) (let ((syntmp-t-1102 (car
syntmp-y-1101))) (if (memv syntmp-t-1102 (quote (quote))) (if (eq? (car
syntmp-x-1100) (quote quote)) (list (quote quote) (cons (cadr syntmp-x-1100)
(cadr syntmp-y-1101))) (if (eq? (cadr syntmp-y-1101) (quote ())) (list (quote
list) syntmp-x-1100) (list (quote cons) syntmp-x-1100 syntmp-y-1101))) (if
(memv syntmp-t-1102 (quote (list))) (cons (quote list) (cons syntmp-x-1100 (cdr
syntmp-y-1101))) (list (quote cons) syntmp-x-1100 syntmp-y-1101))))))
(syntmp-gen-map-1089 (lambda (syntmp-e-1103 syntmp-map-env-1104) (let
((syntmp-formals-1105 (map cdr syntmp-map-env-1104)) (syntmp-actuals-1106 (map
(lambda (syntmp-x-1107) (list (quote ref) (car syntmp-x-1107)))
syntmp-map-env-1104))) (cond ((eq? (car syntmp-e-1103) (quote ref)) (car
syntmp-actuals-1106)) ((andmap (lambda (syntmp-x-1108) (and (eq? (car
syntmp-x-1108) (quote ref)) (memq (cadr syntmp-x-1108) syntmp-formals-1105)))
(cdr syntmp-e-1103)) (cons (quote map) (cons (list (quote primitive) (car
syntmp-e-1103)) (map (let ((syntmp-r-1109 (map cons syntmp-formals-1105
syntmp-actuals-1106))) (lambda (syntmp-x-1110) (cdr (assq (cadr syntmp-x-1110)
syntmp-r-1109)))) (cdr syntmp-e-1103))))) (else (cons (quote map) (cons (list
(quote lambda) syntmp-formals-1105 syntmp-e-1103) syntmp-actuals-1106)))))))
(syntmp-gen-mappend-1088 (lambda (syntmp-e-1111 syntmp-map-env-1112) (list
(quote apply) (quote (primitive append)) (syntmp-gen-map-1089 syntmp-e-1111
syntmp-map-env-1112)))) (syntmp-gen-ref-1087 (lambda (syntmp-src-1113
syntmp-var-1114 syntmp-level-1115 syntmp-maps-1116) (if (syntmp-fx=-87
syntmp-level-1115 0) (values syntmp-var-1114 syntmp-maps-1116) (if (null?
syntmp-maps-1116) (syntax-error syntmp-src-1113 "missing ellipsis in syntax
form") (call-with-values (lambda () (syntmp-gen-ref-1087 syntmp-src-1113
syntmp-var-1114 (syntmp-fx--86 syntmp-level-1115 1) (cdr syntmp-maps-1116)))
(lambda (syntmp-outer-var-1117 syntmp-outer-maps-1118) (let ((syntmp-b-1119
(assq syntmp-outer-var-1117 (car syntmp-maps-1116)))) (if syntmp-b-1119 (values
(cdr syntmp-b-1119) syntmp-maps-1116) (let ((syntmp-inner-var-1120
(syntmp-gen-var-163 (quote tmp)))) (values syntmp-inner-var-1120 (cons (cons
(cons syntmp-outer-var-1117 syntmp-inner-var-1120) (car syntmp-maps-1116))
syntmp-outer-maps-1118))))))))))) (syntmp-gen-syntax-1086 (lambda
(syntmp-src-1121 syntmp-e-1122 syntmp-r-1123 syntmp-maps-1124
syntmp-ellipsis?-1125) (if (syntmp-id?-115 syntmp-e-1122) (let
((syntmp-label-1126 (syntmp-id-var-name-137 syntmp-e-1122 (quote (()))))) (let
((syntmp-b-1127 (syntmp-lookup-112 syntmp-label-1126 syntmp-r-1123))) (if (eq?
(syntmp-binding-type-107 syntmp-b-1127) (quote syntax)) (call-with-values
(lambda () (let ((syntmp-var.lev-1128 (syntmp-binding-value-108
syntmp-b-1127))) (syntmp-gen-ref-1087 syntmp-src-1121 (car syntmp-var.lev-1128)
(cdr syntmp-var.lev-1128) syntmp-maps-1124))) (lambda (syntmp-var-1129
syntmp-maps-1130) (values (list (quote ref) syntmp-var-1129)
syntmp-maps-1130))) (if (syntmp-ellipsis?-1125 syntmp-e-1122) (syntax-error
syntmp-src-1121 "misplaced ellipsis in syntax form") (values (list (quote
quote) syntmp-e-1122) syntmp-maps-1124))))) ((lambda (syntmp-tmp-1131) ((lambda
(syntmp-tmp-1132) (if (if syntmp-tmp-1132 (apply (lambda (syntmp-dots-1133
syntmp-e-1134) (syntmp-ellipsis?-1125 syntmp-dots-1133)) syntmp-tmp-1132) #f)
(apply (lambda (syntmp-dots-1135 syntmp-e-1136) (syntmp-gen-syntax-1086
syntmp-src-1121 syntmp-e-1136 syntmp-r-1123 syntmp-maps-1124 (lambda
(syntmp-x-1137) #f))) syntmp-tmp-1132) ((lambda (syntmp-tmp-1138) (if (if
syntmp-tmp-1138 (apply (lambda (syntmp-x-1139 syntmp-dots-1140 syntmp-y-1141)
(syntmp-ellipsis?-1125 syntmp-dots-1140)) syntmp-tmp-1138) #f) (apply (lambda
(syntmp-x-1142 syntmp-dots-1143 syntmp-y-1144) (let syntmp-f-1145
((syntmp-y-1146 syntmp-y-1144) (syntmp-k-1147 (lambda (syntmp-maps-1148)
(call-with-values (lambda () (syntmp-gen-syntax-1086 syntmp-src-1121
syntmp-x-1142 syntmp-r-1123 (cons (quote ()) syntmp-maps-1148)
syntmp-ellipsis?-1125)) (lambda (syntmp-x-1149 syntmp-maps-1150) (if (null?
(car syntmp-maps-1150)) (syntax-error syntmp-src-1121 "extra ellipsis in syntax
form") (values (syntmp-gen-map-1089 syntmp-x-1149 (car syntmp-maps-1150)) (cdr
syntmp-maps-1150)))))))) ((lambda (syntmp-tmp-1151) ((lambda (syntmp-tmp-1152)
(if (if syntmp-tmp-1152 (apply (lambda (syntmp-dots-1153 syntmp-y-1154)
(syntmp-ellipsis?-1125 syntmp-dots-1153)) syntmp-tmp-1152) #f) (apply (lambda
(syntmp-dots-1155 syntmp-y-1156) (syntmp-f-1145 syntmp-y-1156 (lambda
(syntmp-maps-1157) (call-with-values (lambda () (syntmp-k-1147 (cons (quote ())
syntmp-maps-1157))) (lambda (syntmp-x-1158 syntmp-maps-1159) (if (null? (car
syntmp-maps-1159)) (syntax-error syntmp-src-1121 "extra ellipsis in syntax
form") (values (syntmp-gen-mappend-1088 syntmp-x-1158 (car syntmp-maps-1159))
(cdr syntmp-maps-1159)))))))) syntmp-tmp-1152) ((lambda (syntmp-_-1160)
(call-with-values (lambda () (syntmp-gen-syntax-1086 syntmp-src-1121
syntmp-y-1146 syntmp-r-1123 syntmp-maps-1124 syntmp-ellipsis?-1125)) (lambda
(syntmp-y-1161 syntmp-maps-1162) (call-with-values (lambda () (syntmp-k-1147
syntmp-maps-1162)) (lambda (syntmp-x-1163 syntmp-maps-1164) (values
(syntmp-gen-append-1091 syntmp-x-1163 syntmp-y-1161) syntmp-maps-1164))))))
syntmp-tmp-1151))) (syntax-dispatch syntmp-tmp-1151 (quote (any . any)))))
syntmp-y-1146))) syntmp-tmp-1138) ((lambda (syntmp-tmp-1165) (if
syntmp-tmp-1165 (apply (lambda (syntmp-x-1166 syntmp-y-1167) (call-with-values
(lambda () (syntmp-gen-syntax-1086 syntmp-src-1121 syntmp-x-1166 syntmp-r-1123
syntmp-maps-1124 syntmp-ellipsis?-1125)) (lambda (syntmp-x-1168
syntmp-maps-1169) (call-with-values (lambda () (syntmp-gen-syntax-1086
syntmp-src-1121 syntmp-y-1167 syntmp-r-1123 syntmp-maps-1169
syntmp-ellipsis?-1125)) (lambda (syntmp-y-1170 syntmp-maps-1171) (values
(syntmp-gen-cons-1090 syntmp-x-1168 syntmp-y-1170) syntmp-maps-1171))))))
syntmp-tmp-1165) ((lambda (syntmp-tmp-1172) (if syntmp-tmp-1172 (apply (lambda
(syntmp-e1-1173 syntmp-e2-1174) (call-with-values (lambda ()
(syntmp-gen-syntax-1086 syntmp-src-1121 (cons syntmp-e1-1173 syntmp-e2-1174)
syntmp-r-1123 syntmp-maps-1124 syntmp-ellipsis?-1125)) (lambda (syntmp-e-1176
syntmp-maps-1177) (values (syntmp-gen-vector-1092 syntmp-e-1176)
syntmp-maps-1177)))) syntmp-tmp-1172) ((lambda (syntmp-_-1178) (values (list
(quote quote) syntmp-e-1122) syntmp-maps-1124)) syntmp-tmp-1131)))
(syntax-dispatch syntmp-tmp-1131 (quote #(vector (any . each-any)))))))
(syntax-dispatch syntmp-tmp-1131 (quote (any . any)))))) (syntax-dispatch
syntmp-tmp-1131 (quote (any any . any)))))) (syntax-dispatch syntmp-tmp-1131
(quote (any any))))) syntmp-e-1122))))) (lambda (syntmp-e-1179 syntmp-r-1180
syntmp-w-1181 syntmp-s-1182) (let ((syntmp-e-1183 (syntmp-source-wrap-144
syntmp-e-1179 syntmp-w-1181 syntmp-s-1182))) ((lambda (syntmp-tmp-1184)
((lambda (syntmp-tmp-1185) (if syntmp-tmp-1185 (apply (lambda (syntmp-_-1186
syntmp-x-1187) (call-with-values (lambda () (syntmp-gen-syntax-1086
syntmp-e-1183 syntmp-x-1187 syntmp-r-1180 (quote ()) syntmp-ellipsis?-160))
(lambda (syntmp-e-1188 syntmp-maps-1189) (syntmp-regen-1093 syntmp-e-1188))))
syntmp-tmp-1185) ((lambda (syntmp-_-1190) (syntax-error syntmp-e-1183))
syntmp-tmp-1184))) (syntax-dispatch syntmp-tmp-1184 (quote (any any)))))
syntmp-e-1183))))) (syntmp-global-extend-113 (quote core) (quote lambda)
(lambda (syntmp-e-1191 syntmp-r-1192 syntmp-w-1193 syntmp-s-1194) ((lambda
(syntmp-tmp-1195) ((lambda (syntmp-tmp-1196) (if syntmp-tmp-1196 (apply (lambda
(syntmp-_-1197 syntmp-c-1198) (syntmp-chi-lambda-clause-156
(syntmp-source-wrap-144 syntmp-e-1191 syntmp-w-1193 syntmp-s-1194)
syntmp-c-1198 syntmp-r-1192 syntmp-w-1193 (lambda (syntmp-vars-1199
syntmp-body-1200) (list (quote lambda) syntmp-vars-1199 syntmp-body-1200))))
syntmp-tmp-1196) (syntax-error syntmp-tmp-1195))) (syntax-dispatch
syntmp-tmp-1195 (quote (any . any))))) syntmp-e-1191)))
(syntmp-global-extend-113 (quote core) (quote let) (letrec
((syntmp-chi-let-1201 (lambda (syntmp-e-1202 syntmp-r-1203 syntmp-w-1204
syntmp-s-1205 syntmp-constructor-1206 syntmp-ids-1207 syntmp-vals-1208
syntmp-exps-1209) (if (not (syntmp-valid-bound-ids?-140 syntmp-ids-1207))
(syntax-error syntmp-e-1202 "duplicate bound variable in") (let
((syntmp-labels-1210 (syntmp-gen-labels-121 syntmp-ids-1207))
(syntmp-new-vars-1211 (map syntmp-gen-var-163 syntmp-ids-1207))) (let
((syntmp-nw-1212 (syntmp-make-binding-wrap-132 syntmp-ids-1207
syntmp-labels-1210 syntmp-w-1204)) (syntmp-nr-1213 (syntmp-extend-var-env-110
syntmp-labels-1210 syntmp-new-vars-1211 syntmp-r-1203)))
(syntmp-constructor-1206 syntmp-s-1205 syntmp-new-vars-1211 (map (lambda
(syntmp-x-1214) (syntmp-chi-151 syntmp-x-1214 syntmp-r-1203 syntmp-w-1204))
syntmp-vals-1208) (syntmp-chi-body-155 syntmp-exps-1209 (syntmp-source-wrap-144
syntmp-e-1202 syntmp-nw-1212 syntmp-s-1205) syntmp-nr-1213
syntmp-nw-1212)))))))) (lambda (syntmp-e-1215 syntmp-r-1216 syntmp-w-1217
syntmp-s-1218) ((lambda (syntmp-tmp-1219) ((lambda (syntmp-tmp-1220) (if
syntmp-tmp-1220 (apply (lambda (syntmp-_-1221 syntmp-id-1222 syntmp-val-1223
syntmp-e1-1224 syntmp-e2-1225) (syntmp-chi-let-1201 syntmp-e-1215 syntmp-r-1216
syntmp-w-1217 syntmp-s-1218 syntmp-build-let-97 syntmp-id-1222 syntmp-val-1223
(cons syntmp-e1-1224 syntmp-e2-1225))) syntmp-tmp-1220) ((lambda
(syntmp-tmp-1229) (if (if syntmp-tmp-1229 (apply (lambda (syntmp-_-1230
syntmp-f-1231 syntmp-id-1232 syntmp-val-1233 syntmp-e1-1234 syntmp-e2-1235)
(syntmp-id?-115 syntmp-f-1231)) syntmp-tmp-1229) #f) (apply (lambda
(syntmp-_-1236 syntmp-f-1237 syntmp-id-1238 syntmp-val-1239 syntmp-e1-1240
syntmp-e2-1241) (syntmp-chi-let-1201 syntmp-e-1215 syntmp-r-1216 syntmp-w-1217
syntmp-s-1218 syntmp-build-named-let-98 (cons syntmp-f-1237 syntmp-id-1238)
syntmp-val-1239 (cons syntmp-e1-1240 syntmp-e2-1241))) syntmp-tmp-1229)
((lambda (syntmp-_-1245) (syntax-error (syntmp-source-wrap-144 syntmp-e-1215
syntmp-w-1217 syntmp-s-1218))) syntmp-tmp-1219))) (syntax-dispatch
syntmp-tmp-1219 (quote (any any #(each (any any)) any . each-any))))))
(syntax-dispatch syntmp-tmp-1219 (quote (any #(each (any any)) any .
each-any))))) syntmp-e-1215)))) (syntmp-global-extend-113 (quote core) (quote
letrec) (lambda (syntmp-e-1246 syntmp-r-1247 syntmp-w-1248 syntmp-s-1249)
((lambda (syntmp-tmp-1250) ((lambda (syntmp-tmp-1251) (if syntmp-tmp-1251
(apply (lambda (syntmp-_-1252 syntmp-id-1253 syntmp-val-1254 syntmp-e1-1255
syntmp-e2-1256) (let ((syntmp-ids-1257 syntmp-id-1253)) (if (not
(syntmp-valid-bound-ids?-140 syntmp-ids-1257)) (syntax-error syntmp-e-1246
"duplicate bound variable in") (let ((syntmp-labels-1259 (syntmp-gen-labels-121
syntmp-ids-1257)) (syntmp-new-vars-1260 (map syntmp-gen-var-163
syntmp-ids-1257))) (let ((syntmp-w-1261 (syntmp-make-binding-wrap-132
syntmp-ids-1257 syntmp-labels-1259 syntmp-w-1248)) (syntmp-r-1262
(syntmp-extend-var-env-110 syntmp-labels-1259 syntmp-new-vars-1260
syntmp-r-1247))) (syntmp-build-letrec-99 syntmp-s-1249 syntmp-new-vars-1260
(map (lambda (syntmp-x-1263) (syntmp-chi-151 syntmp-x-1263 syntmp-r-1262
syntmp-w-1261)) syntmp-val-1254) (syntmp-chi-body-155 (cons syntmp-e1-1255
syntmp-e2-1256) (syntmp-source-wrap-144 syntmp-e-1246 syntmp-w-1261
syntmp-s-1249) syntmp-r-1262 syntmp-w-1261))))))) syntmp-tmp-1251) ((lambda
(syntmp-_-1266) (syntax-error (syntmp-source-wrap-144 syntmp-e-1246
syntmp-w-1248 syntmp-s-1249))) syntmp-tmp-1250))) (syntax-dispatch
syntmp-tmp-1250 (quote (any #(each (any any)) any . each-any)))))
syntmp-e-1246))) (syntmp-global-extend-113 (quote core) (quote set!) (lambda
(syntmp-e-1267 syntmp-r-1268 syntmp-w-1269 syntmp-s-1270) ((lambda
(syntmp-tmp-1271) ((lambda (syntmp-tmp-1272) (if (if syntmp-tmp-1272 (apply
(lambda (syntmp-_-1273 syntmp-id-1274 syntmp-val-1275) (syntmp-id?-115
syntmp-id-1274)) syntmp-tmp-1272) #f) (apply (lambda (syntmp-_-1276
syntmp-id-1277 syntmp-val-1278) (let ((syntmp-val-1279 (syntmp-chi-151
syntmp-val-1278 syntmp-r-1268 syntmp-w-1269)) (syntmp-n-1280
(syntmp-id-var-name-137 syntmp-id-1277 syntmp-w-1269))) (let ((syntmp-b-1281
(syntmp-lookup-112 syntmp-n-1280 syntmp-r-1268))) (let ((syntmp-t-1282
(syntmp-binding-type-107 syntmp-b-1281))) (if (memv syntmp-t-1282 (quote
(lexical))) (list (quote set!) (syntmp-binding-value-108 syntmp-b-1281)
syntmp-val-1279) (if (memv syntmp-t-1282 (quote (global))) (list (quote set!)
syntmp-n-1280 syntmp-val-1279) (if (memv syntmp-t-1282 (quote
(displaced-lexical))) (syntax-error (syntmp-wrap-143 syntmp-id-1277
syntmp-w-1269) "identifier out of context") (syntax-error
(syntmp-source-wrap-144 syntmp-e-1267 syntmp-w-1269 syntmp-s-1270)))))))))
syntmp-tmp-1272) ((lambda (syntmp-tmp-1283) (if syntmp-tmp-1283 (apply (lambda
(syntmp-_-1284 syntmp-getter-1285 syntmp-arg-1286 syntmp-val-1287) (cons
(syntmp-chi-151 (list (quote #(syntax-object setter ((top) #(ribcage #(_ getter
arg val) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ())
#(ribcage #(e r w s) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
(lambda-var-list gen-var strip strip-annotation ellipsis? chi-void
eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro
chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-wrap!
set-syntax-object-expression! syntax-object-wrap syntax-object-expression
syntax-object? make-syntax-object 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"))))) syntmp-getter-1285) syntmp-r-1268
syntmp-w-1269) (map (lambda (syntmp-e-1288) (syntmp-chi-151 syntmp-e-1288
syntmp-r-1268 syntmp-w-1269)) (append syntmp-arg-1286 (list
syntmp-val-1287))))) syntmp-tmp-1283) ((lambda (syntmp-_-1290) (syntax-error
(syntmp-source-wrap-144 syntmp-e-1267 syntmp-w-1269 syntmp-s-1270)))
syntmp-tmp-1271))) (syntax-dispatch syntmp-tmp-1271 (quote (any (any .
each-any) any)))))) (syntax-dispatch syntmp-tmp-1271 (quote (any any any)))))
syntmp-e-1267))) (syntmp-global-extend-113 (quote begin) (quote begin) (quote
())) (syntmp-global-extend-113 (quote define) (quote define) (quote ()))
(syntmp-global-extend-113 (quote define-syntax) (quote define-syntax) (quote
())) (syntmp-global-extend-113 (quote eval-when) (quote eval-when) (quote ()))
(syntmp-global-extend-113 (quote core) (quote syntax-case) (letrec
((syntmp-gen-syntax-case-1294 (lambda (syntmp-x-1295 syntmp-keys-1296
syntmp-clauses-1297 syntmp-r-1298) (if (null? syntmp-clauses-1297) (list (quote
syntax-error) syntmp-x-1295) ((lambda (syntmp-tmp-1299) ((lambda
(syntmp-tmp-1300) (if syntmp-tmp-1300 (apply (lambda (syntmp-pat-1301
syntmp-exp-1302) (if (and (syntmp-id?-115 syntmp-pat-1301) (andmap (lambda
(syntmp-x-1303) (not (syntmp-free-id=?-138 syntmp-pat-1301 syntmp-x-1303)))
(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"))))) syntmp-keys-1296))) (let
((syntmp-labels-1304 (list (syntmp-gen-label-120))) (syntmp-var-1305
(syntmp-gen-var-163 syntmp-pat-1301))) (list (list (quote lambda) (list
syntmp-var-1305) (syntmp-chi-151 syntmp-exp-1302 (syntmp-extend-env-109
syntmp-labels-1304 (list (cons (quote syntax) (cons syntmp-var-1305 0)))
syntmp-r-1298) (syntmp-make-binding-wrap-132 (list syntmp-pat-1301)
syntmp-labels-1304 (quote (()))))) syntmp-x-1295)) (syntmp-gen-clause-1293
syntmp-x-1295 syntmp-keys-1296 (cdr syntmp-clauses-1297) syntmp-r-1298
syntmp-pat-1301 #t syntmp-exp-1302))) syntmp-tmp-1300) ((lambda
(syntmp-tmp-1306) (if syntmp-tmp-1306 (apply (lambda (syntmp-pat-1307
syntmp-fender-1308 syntmp-exp-1309) (syntmp-gen-clause-1293 syntmp-x-1295
syntmp-keys-1296 (cdr syntmp-clauses-1297) syntmp-r-1298 syntmp-pat-1307
syntmp-fender-1308 syntmp-exp-1309)) syntmp-tmp-1306) ((lambda (syntmp-_-1310)
(syntax-error (car syntmp-clauses-1297) "invalid syntax-case clause"))
syntmp-tmp-1299))) (syntax-dispatch syntmp-tmp-1299 (quote (any any any))))))
(syntax-dispatch syntmp-tmp-1299 (quote (any any))))) (car
syntmp-clauses-1297))))) (syntmp-gen-clause-1293 (lambda (syntmp-x-1311
syntmp-keys-1312 syntmp-clauses-1313 syntmp-r-1314 syntmp-pat-1315
syntmp-fender-1316 syntmp-exp-1317) (call-with-values (lambda ()
(syntmp-convert-pattern-1291 syntmp-pat-1315 syntmp-keys-1312)) (lambda
(syntmp-p-1318 syntmp-pvars-1319) (cond ((not (syntmp-distinct-bound-ids?-141
(map car syntmp-pvars-1319))) (syntax-error syntmp-pat-1315 "duplicate pattern
variable in syntax-case pattern")) ((not (andmap (lambda (syntmp-x-1320) (not
(syntmp-ellipsis?-160 (car syntmp-x-1320)))) syntmp-pvars-1319)) (syntax-error
syntmp-pat-1315 "misplaced ellipsis in syntax-case pattern")) (else (let
((syntmp-y-1321 (syntmp-gen-var-163 (quote tmp)))) (list (list (quote lambda)
(list syntmp-y-1321) (let ((syntmp-y-1322 syntmp-y-1321)) (list (quote if)
((lambda (syntmp-tmp-1323) ((lambda (syntmp-tmp-1324) (if syntmp-tmp-1324
(apply (lambda () syntmp-y-1322) syntmp-tmp-1324) ((lambda (syntmp-_-1325)
(list (quote if) syntmp-y-1322 (syntmp-build-dispatch-call-1292
syntmp-pvars-1319 syntmp-fender-1316 syntmp-y-1322 syntmp-r-1314)
(syntmp-build-data-95 #f #f))) syntmp-tmp-1323))) (syntax-dispatch
syntmp-tmp-1323 (quote #(atom #t))))) syntmp-fender-1316)
(syntmp-build-dispatch-call-1292 syntmp-pvars-1319 syntmp-exp-1317
syntmp-y-1322 syntmp-r-1314) (syntmp-gen-syntax-case-1294 syntmp-x-1311
syntmp-keys-1312 syntmp-clauses-1313 syntmp-r-1314)))) (if (eq? syntmp-p-1318
(quote any)) (list (quote list) syntmp-x-1311) (list (quote syntax-dispatch)
syntmp-x-1311 (syntmp-build-data-95 #f syntmp-p-1318)))))))))))
(syntmp-build-dispatch-call-1292 (lambda (syntmp-pvars-1326 syntmp-exp-1327
syntmp-y-1328 syntmp-r-1329) (let ((syntmp-ids-1330 (map car
syntmp-pvars-1326)) (syntmp-levels-1331 (map cdr syntmp-pvars-1326))) (let
((syntmp-labels-1332 (syntmp-gen-labels-121 syntmp-ids-1330))
(syntmp-new-vars-1333 (map syntmp-gen-var-163 syntmp-ids-1330))) (list (quote
apply) (list (quote lambda) syntmp-new-vars-1333 (syntmp-chi-151
syntmp-exp-1327 (syntmp-extend-env-109 syntmp-labels-1332 (map (lambda
(syntmp-var-1334 syntmp-level-1335) (cons (quote syntax) (cons syntmp-var-1334
syntmp-level-1335))) syntmp-new-vars-1333 (map cdr syntmp-pvars-1326))
syntmp-r-1329) (syntmp-make-binding-wrap-132 syntmp-ids-1330 syntmp-labels-1332
(quote (()))))) syntmp-y-1328))))) (syntmp-convert-pattern-1291 (lambda
(syntmp-pattern-1336 syntmp-keys-1337) (let syntmp-cvt-1338 ((syntmp-p-1339
syntmp-pattern-1336) (syntmp-n-1340 0) (syntmp-ids-1341 (quote ()))) (if
(syntmp-id?-115 syntmp-p-1339) (if (syntmp-bound-id-member?-142 syntmp-p-1339
syntmp-keys-1337) (values (vector (quote free-id) syntmp-p-1339)
syntmp-ids-1341) (values (quote any) (cons (cons syntmp-p-1339 syntmp-n-1340)
syntmp-ids-1341))) ((lambda (syntmp-tmp-1342) ((lambda (syntmp-tmp-1343) (if
(if syntmp-tmp-1343 (apply (lambda (syntmp-x-1344 syntmp-dots-1345)
(syntmp-ellipsis?-160 syntmp-dots-1345)) syntmp-tmp-1343) #f) (apply (lambda
(syntmp-x-1346 syntmp-dots-1347) (call-with-values (lambda () (syntmp-cvt-1338
syntmp-x-1346 (syntmp-fx+-85 syntmp-n-1340 1) syntmp-ids-1341)) (lambda
(syntmp-p-1348 syntmp-ids-1349) (values (if (eq? syntmp-p-1348 (quote any))
(quote each-any) (vector (quote each) syntmp-p-1348)) syntmp-ids-1349))))
syntmp-tmp-1343) ((lambda (syntmp-tmp-1350) (if syntmp-tmp-1350 (apply (lambda
(syntmp-x-1351 syntmp-y-1352) (call-with-values (lambda () (syntmp-cvt-1338
syntmp-y-1352 syntmp-n-1340 syntmp-ids-1341)) (lambda (syntmp-y-1353
syntmp-ids-1354) (call-with-values (lambda () (syntmp-cvt-1338 syntmp-x-1351
syntmp-n-1340 syntmp-ids-1354)) (lambda (syntmp-x-1355 syntmp-ids-1356) (values
(cons syntmp-x-1355 syntmp-y-1353) syntmp-ids-1356)))))) syntmp-tmp-1350)
((lambda (syntmp-tmp-1357) (if syntmp-tmp-1357 (apply (lambda () (values (quote
()) syntmp-ids-1341)) syntmp-tmp-1357) ((lambda (syntmp-tmp-1358) (if
syntmp-tmp-1358 (apply (lambda (syntmp-x-1359) (call-with-values (lambda ()
(syntmp-cvt-1338 syntmp-x-1359 syntmp-n-1340 syntmp-ids-1341)) (lambda
(syntmp-p-1361 syntmp-ids-1362) (values (vector (quote vector) syntmp-p-1361)
syntmp-ids-1362)))) syntmp-tmp-1358) ((lambda (syntmp-x-1363) (values (vector
(quote atom) (syntmp-strip-162 syntmp-p-1339 (quote (())))) syntmp-ids-1341))
syntmp-tmp-1342))) (syntax-dispatch syntmp-tmp-1342 (quote #(vector
each-any)))))) (syntax-dispatch syntmp-tmp-1342 (quote ()))))) (syntax-dispatch
syntmp-tmp-1342 (quote (any . any)))))) (syntax-dispatch syntmp-tmp-1342 (quote
(any any))))) syntmp-p-1339)))))) (lambda (syntmp-e-1364 syntmp-r-1365
syntmp-w-1366 syntmp-s-1367) (let ((syntmp-e-1368 (syntmp-source-wrap-144
syntmp-e-1364 syntmp-w-1366 syntmp-s-1367))) ((lambda (syntmp-tmp-1369)
((lambda (syntmp-tmp-1370) (if syntmp-tmp-1370 (apply (lambda (syntmp-_-1371
syntmp-val-1372 syntmp-key-1373 syntmp-m-1374) (if (andmap (lambda
(syntmp-x-1375) (and (syntmp-id?-115 syntmp-x-1375) (not (syntmp-ellipsis?-160
syntmp-x-1375)))) syntmp-key-1373) (let ((syntmp-x-1377 (syntmp-gen-var-163
(quote tmp)))) (list (list (quote lambda) (list syntmp-x-1377)
(syntmp-gen-syntax-case-1294 syntmp-x-1377 syntmp-key-1373 syntmp-m-1374
syntmp-r-1365)) (syntmp-chi-151 syntmp-val-1372 syntmp-r-1365 (quote (())))))
(syntax-error syntmp-e-1368 "invalid literals list in"))) syntmp-tmp-1370)
(syntax-error syntmp-tmp-1369))) (syntax-dispatch syntmp-tmp-1369 (quote (any
any each-any . each-any))))) syntmp-e-1368))))) (set! sc-expand (let
((syntmp-m-1380 (quote e)) (syntmp-esew-1381 (quote (eval)))) (lambda
(syntmp-x-1382) (if (and (pair? syntmp-x-1382) (equal? (car syntmp-x-1382)
syntmp-noexpand-84)) (cadr syntmp-x-1382) (syntmp-chi-top-150 syntmp-x-1382
(quote ()) (quote ((top))) syntmp-m-1380 syntmp-esew-1381))))) (set! sc-expand3
(let ((syntmp-m-1383 (quote e)) (syntmp-esew-1384 (quote (eval)))) (lambda
(syntmp-x-1386 . syntmp-rest-1385) (if (and (pair? syntmp-x-1386) (equal? (car
syntmp-x-1386) syntmp-noexpand-84)) (cadr syntmp-x-1386) (syntmp-chi-top-150
syntmp-x-1386 (quote ()) (quote ((top))) (if (null? syntmp-rest-1385)
syntmp-m-1383 (car syntmp-rest-1385)) (if (or (null? syntmp-rest-1385) (null?
(cdr syntmp-rest-1385))) syntmp-esew-1384 (cadr syntmp-rest-1385))))))) (set!
identifier? (lambda (syntmp-x-1387) (syntmp-nonsymbol-id?-114 syntmp-x-1387)))
(set! datum->syntax-object (lambda (syntmp-id-1388 syntmp-datum-1389)
(syntmp-make-syntax-object-100 syntmp-datum-1389 (syntmp-syntax-object-wrap-103
syntmp-id-1388)))) (set! syntax-object->datum (lambda (syntmp-x-1390)
(syntmp-strip-162 syntmp-x-1390 (quote (()))))) (set! generate-temporaries
(lambda (syntmp-ls-1391) (begin (let ((syntmp-x-1392 syntmp-ls-1391)) (if (not
(list? syntmp-x-1392)) (syntmp-error-hook-92 (quote generate-temporaries)
"invalid argument" syntmp-x-1392))) (map (lambda (syntmp-x-1393)
(syntmp-wrap-143 (gensym) (quote ((top))))) syntmp-ls-1391)))) (set!
free-identifier=? (lambda (syntmp-x-1394 syntmp-y-1395) (begin (let
((syntmp-x-1396 syntmp-x-1394)) (if (not (syntmp-nonsymbol-id?-114
syntmp-x-1396)) (syntmp-error-hook-92 (quote free-identifier=?) "invalid
argument" syntmp-x-1396))) (let ((syntmp-x-1397 syntmp-y-1395)) (if (not
(syntmp-nonsymbol-id?-114 syntmp-x-1397)) (syntmp-error-hook-92 (quote
free-identifier=?) "invalid argument" syntmp-x-1397))) (syntmp-free-id=?-138
syntmp-x-1394 syntmp-y-1395)))) (set! bound-identifier=? (lambda (syntmp-x-1398
syntmp-y-1399) (begin (let ((syntmp-x-1400 syntmp-x-1398)) (if (not
(syntmp-nonsymbol-id?-114 syntmp-x-1400)) (syntmp-error-hook-92 (quote
bound-identifier=?) "invalid argument" syntmp-x-1400))) (let ((syntmp-x-1401
syntmp-y-1399)) (if (not (syntmp-nonsymbol-id?-114 syntmp-x-1401))
(syntmp-error-hook-92 (quote bound-identifier=?) "invalid argument"
syntmp-x-1401))) (syntmp-bound-id=?-139 syntmp-x-1398 syntmp-y-1399)))) (set!
syntax-error (lambda (syntmp-object-1403 . syntmp-messages-1402) (begin
(for-each (lambda (syntmp-x-1404) (let ((syntmp-x-1405 syntmp-x-1404)) (if (not
(string? syntmp-x-1405)) (syntmp-error-hook-92 (quote syntax-error) "invalid
argument" syntmp-x-1405)))) syntmp-messages-1402) (let ((syntmp-message-1406
(if (null? syntmp-messages-1402) "invalid syntax" (apply string-append
syntmp-messages-1402)))) (syntmp-error-hook-92 #f syntmp-message-1406
(syntmp-strip-162 syntmp-object-1403 (quote (())))))))) (set!
install-global-transformer (lambda (syntmp-sym-1407 syntmp-v-1408) (begin (let
((syntmp-x-1409 syntmp-sym-1407)) (if (not (symbol? syntmp-x-1409))
(syntmp-error-hook-92 (quote define-syntax) "invalid argument" syntmp-x-1409)))
(let ((syntmp-x-1410 syntmp-v-1408)) (if (not (procedure? syntmp-x-1410))
(syntmp-error-hook-92 (quote define-syntax) "invalid argument" syntmp-x-1410)))
(syntmp-global-extend-113 (quote macro) syntmp-sym-1407 syntmp-v-1408))))
(letrec ((syntmp-match-1415 (lambda (syntmp-e-1416 syntmp-p-1417 syntmp-w-1418
syntmp-r-1419) (cond ((not syntmp-r-1419) #f) ((eq? syntmp-p-1417 (quote any))
(cons (syntmp-wrap-143 syntmp-e-1416 syntmp-w-1418) syntmp-r-1419))
((syntmp-syntax-object?-101 syntmp-e-1416) (syntmp-match*-1414 (let
((syntmp-e-1420 (syntmp-syntax-object-expression-102 syntmp-e-1416))) (if
(syntmp-annotation?-89 syntmp-e-1420) (annotation-expression syntmp-e-1420)
syntmp-e-1420)) syntmp-p-1417 (syntmp-join-wraps-134 syntmp-w-1418
(syntmp-syntax-object-wrap-103 syntmp-e-1416)) syntmp-r-1419)) (else
(syntmp-match*-1414 (let ((syntmp-e-1421 syntmp-e-1416)) (if
(syntmp-annotation?-89 syntmp-e-1421) (annotation-expression syntmp-e-1421)
syntmp-e-1421)) syntmp-p-1417 syntmp-w-1418 syntmp-r-1419)))))
(syntmp-match*-1414 (lambda (syntmp-e-1422 syntmp-p-1423 syntmp-w-1424
syntmp-r-1425) (cond ((null? syntmp-p-1423) (and (null? syntmp-e-1422)
syntmp-r-1425)) ((pair? syntmp-p-1423) (and (pair? syntmp-e-1422)
(syntmp-match-1415 (car syntmp-e-1422) (car syntmp-p-1423) syntmp-w-1424
(syntmp-match-1415 (cdr syntmp-e-1422) (cdr syntmp-p-1423) syntmp-w-1424
syntmp-r-1425)))) ((eq? syntmp-p-1423 (quote each-any)) (let ((syntmp-l-1426
(syntmp-match-each-any-1412 syntmp-e-1422 syntmp-w-1424))) (and syntmp-l-1426
(cons syntmp-l-1426 syntmp-r-1425)))) (else (let ((syntmp-t-1427 (vector-ref
syntmp-p-1423 0))) (if (memv syntmp-t-1427 (quote (each))) (if (null?
syntmp-e-1422) (syntmp-match-empty-1413 (vector-ref syntmp-p-1423 1)
syntmp-r-1425) (let ((syntmp-l-1428 (syntmp-match-each-1411 syntmp-e-1422
(vector-ref syntmp-p-1423 1) syntmp-w-1424))) (and syntmp-l-1428 (let
syntmp-collect-1429 ((syntmp-l-1430 syntmp-l-1428)) (if (null? (car
syntmp-l-1430)) syntmp-r-1425 (cons (map car syntmp-l-1430)
(syntmp-collect-1429 (map cdr syntmp-l-1430)))))))) (if (memv syntmp-t-1427
(quote (free-id))) (and (syntmp-id?-115 syntmp-e-1422) (syntmp-free-id=?-138
(syntmp-wrap-143 syntmp-e-1422 syntmp-w-1424) (vector-ref syntmp-p-1423 1))
syntmp-r-1425) (if (memv syntmp-t-1427 (quote (atom))) (and (equal? (vector-ref
syntmp-p-1423 1) (syntmp-strip-162 syntmp-e-1422 syntmp-w-1424)) syntmp-r-1425)
(if (memv syntmp-t-1427 (quote (vector))) (and (vector? syntmp-e-1422)
(syntmp-match-1415 (vector->list syntmp-e-1422) (vector-ref syntmp-p-1423 1)
syntmp-w-1424 syntmp-r-1425))))))))))) (syntmp-match-empty-1413 (lambda
(syntmp-p-1431 syntmp-r-1432) (cond ((null? syntmp-p-1431) syntmp-r-1432) ((eq?
syntmp-p-1431 (quote any)) (cons (quote ()) syntmp-r-1432)) ((pair?
syntmp-p-1431) (syntmp-match-empty-1413 (car syntmp-p-1431)
(syntmp-match-empty-1413 (cdr syntmp-p-1431) syntmp-r-1432))) ((eq?
syntmp-p-1431 (quote each-any)) (cons (quote ()) syntmp-r-1432)) (else (let
((syntmp-t-1433 (vector-ref syntmp-p-1431 0))) (if (memv syntmp-t-1433 (quote
(each))) (syntmp-match-empty-1413 (vector-ref syntmp-p-1431 1) syntmp-r-1432)
(if (memv syntmp-t-1433 (quote (free-id atom))) syntmp-r-1432 (if (memv
syntmp-t-1433 (quote (vector))) (syntmp-match-empty-1413 (vector-ref
syntmp-p-1431 1) syntmp-r-1432))))))))) (syntmp-match-each-any-1412 (lambda
(syntmp-e-1434 syntmp-w-1435) (cond ((syntmp-annotation?-89 syntmp-e-1434)
(syntmp-match-each-any-1412 (annotation-expression syntmp-e-1434)
syntmp-w-1435)) ((pair? syntmp-e-1434) (let ((syntmp-l-1436
(syntmp-match-each-any-1412 (cdr syntmp-e-1434) syntmp-w-1435))) (and
syntmp-l-1436 (cons (syntmp-wrap-143 (car syntmp-e-1434) syntmp-w-1435)
syntmp-l-1436)))) ((null? syntmp-e-1434) (quote ()))
((syntmp-syntax-object?-101 syntmp-e-1434) (syntmp-match-each-any-1412
(syntmp-syntax-object-expression-102 syntmp-e-1434) (syntmp-join-wraps-134
syntmp-w-1435 (syntmp-syntax-object-wrap-103 syntmp-e-1434)))) (else #f))))
(syntmp-match-each-1411 (lambda (syntmp-e-1437 syntmp-p-1438 syntmp-w-1439)
(cond ((syntmp-annotation?-89 syntmp-e-1437) (syntmp-match-each-1411
(annotation-expression syntmp-e-1437) syntmp-p-1438 syntmp-w-1439)) ((pair?
syntmp-e-1437) (let ((syntmp-first-1440 (syntmp-match-1415 (car syntmp-e-1437)
syntmp-p-1438 syntmp-w-1439 (quote ())))) (and syntmp-first-1440 (let
((syntmp-rest-1441 (syntmp-match-each-1411 (cdr syntmp-e-1437) syntmp-p-1438
syntmp-w-1439))) (and syntmp-rest-1441 (cons syntmp-first-1440
syntmp-rest-1441)))))) ((null? syntmp-e-1437) (quote ()))
((syntmp-syntax-object?-101 syntmp-e-1437) (syntmp-match-each-1411
(syntmp-syntax-object-expression-102 syntmp-e-1437) syntmp-p-1438
(syntmp-join-wraps-134 syntmp-w-1439 (syntmp-syntax-object-wrap-103
syntmp-e-1437)))) (else #f))))) (begin (set! syntax-dispatch (lambda
(syntmp-e-1442 syntmp-p-1443) (cond ((eq? syntmp-p-1443 (quote any)) (list
syntmp-e-1442)) ((syntmp-syntax-object?-101 syntmp-e-1442) (syntmp-match*-1414
(let ((syntmp-e-1444 (syntmp-syntax-object-expression-102 syntmp-e-1442))) (if
(syntmp-annotation?-89 syntmp-e-1444) (annotation-expression syntmp-e-1444)
syntmp-e-1444)) syntmp-p-1443 (syntmp-syntax-object-wrap-103 syntmp-e-1442)
(quote ()))) (else (syntmp-match*-1414 (let ((syntmp-e-1445 syntmp-e-1442)) (if
(syntmp-annotation?-89 syntmp-e-1445) (annotation-expression syntmp-e-1445)
syntmp-e-1445)) syntmp-p-1443 (quote (())) (quote ())))))) (set! sc-chi
syntmp-chi-151)))))
! (install-global-transformer (quote with-syntax) (lambda (syntmp-x-1446)
((lambda (syntmp-tmp-1447) ((lambda (syntmp-tmp-1448) (if syntmp-tmp-1448
(apply (lambda (syntmp-_-1449 syntmp-e1-1450 syntmp-e2-1451) (cons (quote
#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i"
"i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons
syntmp-e1-1450 syntmp-e2-1451))) syntmp-tmp-1448) ((lambda (syntmp-tmp-1453)
(if syntmp-tmp-1453 (apply (lambda (syntmp-_-1454 syntmp-out-1455
syntmp-in-1456 syntmp-e1-1457 syntmp-e2-1458) (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")))))
syntmp-in-1456 (quote ()) (list syntmp-out-1455 (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
syntmp-e1-1457 syntmp-e2-1458))))) syntmp-tmp-1453) ((lambda (syntmp-tmp-1460)
(if syntmp-tmp-1460 (apply (lambda (syntmp-_-1461 syntmp-out-1462
syntmp-in-1463 syntmp-e1-1464 syntmp-e2-1465) (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"))))) syntmp-in-1463) (quote ()) (list syntmp-out-1462 (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 syntmp-e1-1464 syntmp-e2-1465))))) syntmp-tmp-1460)
(syntax-error syntmp-tmp-1447))) (syntax-dispatch syntmp-tmp-1447 (quote (any
#(each (any any)) any . each-any)))))) (syntax-dispatch syntmp-tmp-1447 (quote
(any ((any any)) any . each-any)))))) (syntax-dispatch syntmp-tmp-1447 (quote
(any () any . each-any))))) syntmp-x-1446)))
! (install-global-transformer (quote syntax-rules) (lambda (syntmp-x-1487)
((lambda (syntmp-tmp-1488) ((lambda (syntmp-tmp-1489) (if syntmp-tmp-1489
(apply (lambda (syntmp-_-1490 syntmp-k-1491 syntmp-keyword-1492
syntmp-pattern-1493 syntmp-template-1494) (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
syntmp-k-1491 (map (lambda (syntmp-tmp-1497 syntmp-tmp-1496) (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"))))) syntmp-tmp-1496) (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"))))) syntmp-tmp-1497))) syntmp-template-1494 syntmp-pattern-1493))))))
syntmp-tmp-1489) (syntax-error syntmp-tmp-1488))) (syntax-dispatch
syntmp-tmp-1488 (quote (any each-any . #(each ((any . any) any)))))))
syntmp-x-1487)))
! (install-global-transformer (quote let*) (lambda (syntmp-x-1508) ((lambda
(syntmp-tmp-1509) ((lambda (syntmp-tmp-1510) (if (if syntmp-tmp-1510 (apply
(lambda (syntmp-let*-1511 syntmp-x-1512 syntmp-v-1513 syntmp-e1-1514
syntmp-e2-1515) (andmap identifier? syntmp-x-1512)) syntmp-tmp-1510) #f) (apply
(lambda (syntmp-let*-1517 syntmp-x-1518 syntmp-v-1519 syntmp-e1-1520
syntmp-e2-1521) (let syntmp-f-1522 ((syntmp-bindings-1523 (map list
syntmp-x-1518 syntmp-v-1519))) (if (null? syntmp-bindings-1523) (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 syntmp-e1-1520 syntmp-e2-1521))) ((lambda
(syntmp-tmp-1527) ((lambda (syntmp-tmp-1528) (if syntmp-tmp-1528 (apply (lambda
(syntmp-body-1529 syntmp-binding-1530) (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 syntmp-binding-1530)
syntmp-body-1529)) syntmp-tmp-1528) (syntax-error syntmp-tmp-1527)))
(syntax-dispatch syntmp-tmp-1527 (quote (any any))))) (list (syntmp-f-1522 (cdr
syntmp-bindings-1523)) (car syntmp-bindings-1523)))))) syntmp-tmp-1510)
(syntax-error syntmp-tmp-1509))) (syntax-dispatch syntmp-tmp-1509 (quote (any
#(each (any any)) any . each-any))))) syntmp-x-1508)))
! (install-global-transformer (quote do) (lambda (syntmp-orig-x-1550) ((lambda
(syntmp-tmp-1551) ((lambda (syntmp-tmp-1552) (if syntmp-tmp-1552 (apply (lambda
(syntmp-_-1553 syntmp-var-1554 syntmp-init-1555 syntmp-step-1556 syntmp-e0-1557
syntmp-e1-1558 syntmp-c-1559) ((lambda (syntmp-tmp-1560) ((lambda
(syntmp-tmp-1561) (if syntmp-tmp-1561 (apply (lambda (syntmp-step-1562)
((lambda (syntmp-tmp-1563) ((lambda (syntmp-tmp-1564) (if syntmp-tmp-1564
(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 syntmp-var-1554
syntmp-init-1555) (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"))))) syntmp-e0-1557) (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 syntmp-c-1559 (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")))))
syntmp-step-1562))))))) syntmp-tmp-1564) ((lambda (syntmp-tmp-1569) (if
syntmp-tmp-1569 (apply (lambda (syntmp-e1-1570 syntmp-e2-1571) (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 syntmp-var-1554 syntmp-init-1555) (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"))))) syntmp-e0-1557 (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 syntmp-e1-1570
syntmp-e2-1571)) (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 syntmp-c-1559 (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"))))) syntmp-step-1562))))))) syntmp-tmp-1569)
(syntax-error syntmp-tmp-1563))) (syntax-dispatch syntmp-tmp-1563 (quote (any .
each-any)))))) (syntax-dispatch syntmp-tmp-1563 (quote ())))) syntmp-e1-1558))
syntmp-tmp-1561) (syntax-error syntmp-tmp-1560))) (syntax-dispatch
syntmp-tmp-1560 (quote each-any)))) (map (lambda (syntmp-v-1578 syntmp-s-1579)
((lambda (syntmp-tmp-1580) ((lambda (syntmp-tmp-1581) (if syntmp-tmp-1581
(apply (lambda () syntmp-v-1578) syntmp-tmp-1581) ((lambda (syntmp-tmp-1582)
(if syntmp-tmp-1582 (apply (lambda (syntmp-e-1583) syntmp-e-1583)
syntmp-tmp-1582) ((lambda (syntmp-_-1584) (syntax-error syntmp-orig-x-1550))
syntmp-tmp-1580))) (syntax-dispatch syntmp-tmp-1580 (quote (any))))))
(syntax-dispatch syntmp-tmp-1580 (quote ())))) syntmp-s-1579)) syntmp-var-1554
syntmp-step-1556))) syntmp-tmp-1552) (syntax-error syntmp-tmp-1551)))
(syntax-dispatch syntmp-tmp-1551 (quote (any #(each (any any . any)) (any .
each-any) . each-any))))) syntmp-orig-x-1550)))
! (install-global-transformer (quote quasiquote) (letrec
((syntmp-quasicons-1612 (lambda (syntmp-x-1616 syntmp-y-1617) ((lambda
(syntmp-tmp-1618) ((lambda (syntmp-tmp-1619) (if syntmp-tmp-1619 (apply (lambda
(syntmp-x-1620 syntmp-y-1621) ((lambda (syntmp-tmp-1622) ((lambda
(syntmp-tmp-1623) (if syntmp-tmp-1623 (apply (lambda (syntmp-dy-1624) ((lambda
(syntmp-tmp-1625) ((lambda (syntmp-tmp-1626) (if syntmp-tmp-1626 (apply (lambda
(syntmp-dx-1627) (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 syntmp-dx-1627
syntmp-dy-1624))) syntmp-tmp-1626) ((lambda (syntmp-_-1628) (if (null?
syntmp-dy-1624) (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"))))) syntmp-x-1620) (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"))))) syntmp-x-1620 syntmp-y-1621))) syntmp-tmp-1625))) (syntax-dispatch
syntmp-tmp-1625 (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))))) syntmp-x-1620)) syntmp-tmp-1623) ((lambda
(syntmp-tmp-1629) (if syntmp-tmp-1629 (apply (lambda (syntmp-stuff-1630) (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 syntmp-x-1620 syntmp-stuff-1630))) syntmp-tmp-1629) ((lambda
(syntmp-else-1631) (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"))))) syntmp-x-1620 syntmp-y-1621)) syntmp-tmp-1622))) (syntax-dispatch
syntmp-tmp-1622 (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 syntmp-tmp-1622 (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))))) syntmp-y-1621)) syntmp-tmp-1619) (syntax-error
syntmp-tmp-1618))) (syntax-dispatch syntmp-tmp-1618 (quote (any any))))) (list
syntmp-x-1616 syntmp-y-1617)))) (syntmp-quasiappend-1613 (lambda (syntmp-x-1632
syntmp-y-1633) ((lambda (syntmp-tmp-1634) ((lambda (syntmp-tmp-1635) (if
syntmp-tmp-1635 (apply (lambda (syntmp-x-1636 syntmp-y-1637) ((lambda
(syntmp-tmp-1638) ((lambda (syntmp-tmp-1639) (if syntmp-tmp-1639 (apply (lambda
() syntmp-x-1636) syntmp-tmp-1639) ((lambda (syntmp-_-1640) (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"))))) syntmp-x-1636
syntmp-y-1637)) syntmp-tmp-1638))) (syntax-dispatch syntmp-tmp-1638 (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"))))) ()))))) syntmp-y-1637)) syntmp-tmp-1635)
(syntax-error syntmp-tmp-1634))) (syntax-dispatch syntmp-tmp-1634 (quote (any
any))))) (list syntmp-x-1632 syntmp-y-1633)))) (syntmp-quasivector-1614 (lambda
(syntmp-x-1641) ((lambda (syntmp-tmp-1642) ((lambda (syntmp-x-1643) ((lambda
(syntmp-tmp-1644) ((lambda (syntmp-tmp-1645) (if syntmp-tmp-1645 (apply (lambda
(syntmp-x-1646) (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 syntmp-x-1646))) syntmp-tmp-1645) ((lambda (syntmp-tmp-1648) (if
syntmp-tmp-1648 (apply (lambda (syntmp-x-1649) (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"))))) syntmp-x-1649)) syntmp-tmp-1648) ((lambda
(syntmp-_-1651) (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")))))
syntmp-x-1643)) syntmp-tmp-1644))) (syntax-dispatch syntmp-tmp-1644 (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 syntmp-tmp-1644 (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))))) syntmp-x-1643)) syntmp-tmp-1642))
syntmp-x-1641))) (syntmp-quasi-1615 (lambda (syntmp-p-1652 syntmp-lev-1653)
((lambda (syntmp-tmp-1654) ((lambda (syntmp-tmp-1655) (if syntmp-tmp-1655
(apply (lambda (syntmp-p-1656) (if (= syntmp-lev-1653 0) syntmp-p-1656
(syntmp-quasicons-1612 (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")))))) (syntmp-quasi-1615 (list syntmp-p-1656) (-
syntmp-lev-1653 1))))) syntmp-tmp-1655) ((lambda (syntmp-tmp-1657) (if
syntmp-tmp-1657 (apply (lambda (syntmp-p-1658 syntmp-q-1659) (if (=
syntmp-lev-1653 0) (syntmp-quasiappend-1613 syntmp-p-1658 (syntmp-quasi-1615
syntmp-q-1659 syntmp-lev-1653)) (syntmp-quasicons-1612 (syntmp-quasicons-1612
(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")))))) (syntmp-quasi-1615 (list
syntmp-p-1658) (- syntmp-lev-1653 1))) (syntmp-quasi-1615 syntmp-q-1659
syntmp-lev-1653)))) syntmp-tmp-1657) ((lambda (syntmp-tmp-1660) (if
syntmp-tmp-1660 (apply (lambda (syntmp-p-1661) (syntmp-quasicons-1612 (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")))))) (syntmp-quasi-1615 (list syntmp-p-1661) (+ syntmp-lev-1653 1))))
syntmp-tmp-1660) ((lambda (syntmp-tmp-1662) (if syntmp-tmp-1662 (apply (lambda
(syntmp-p-1663 syntmp-q-1664) (syntmp-quasicons-1612 (syntmp-quasi-1615
syntmp-p-1663 syntmp-lev-1653) (syntmp-quasi-1615 syntmp-q-1664
syntmp-lev-1653))) syntmp-tmp-1662) ((lambda (syntmp-tmp-1665) (if
syntmp-tmp-1665 (apply (lambda (syntmp-x-1666) (syntmp-quasivector-1614
(syntmp-quasi-1615 syntmp-x-1666 syntmp-lev-1653))) syntmp-tmp-1665) ((lambda
(syntmp-p-1668) (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"))))) syntmp-p-1668)) syntmp-tmp-1654)))
(syntax-dispatch syntmp-tmp-1654 (quote #(vector each-any))))))
(syntax-dispatch syntmp-tmp-1654 (quote (any . any)))))) (syntax-dispatch
syntmp-tmp-1654 (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 syntmp-tmp-1654 (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 syntmp-tmp-1654 (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))))) syntmp-p-1652)))) (lambda (syntmp-x-1669)
((lambda (syntmp-tmp-1670) ((lambda (syntmp-tmp-1671) (if syntmp-tmp-1671
(apply (lambda (syntmp-_-1672 syntmp-e-1673) (syntmp-quasi-1615 syntmp-e-1673
0)) syntmp-tmp-1671) (syntax-error syntmp-tmp-1670))) (syntax-dispatch
syntmp-tmp-1670 (quote (any any))))) syntmp-x-1669))))
! (install-global-transformer (quote include) (lambda (syntmp-x-1733) (letrec
((syntmp-read-file-1734 (lambda (syntmp-fn-1735 syntmp-k-1736) (let
((syntmp-p-1737 (open-input-file syntmp-fn-1735))) (let syntmp-f-1738
((syntmp-x-1739 (read syntmp-p-1737))) (if (eof-object? syntmp-x-1739) (begin
(close-input-port syntmp-p-1737) (quote ())) (cons (datum->syntax-object
syntmp-k-1736 syntmp-x-1739) (syntmp-f-1738 (read syntmp-p-1737)))))))))
((lambda (syntmp-tmp-1740) ((lambda (syntmp-tmp-1741) (if syntmp-tmp-1741
(apply (lambda (syntmp-k-1742 syntmp-filename-1743) (let ((syntmp-fn-1744
(syntax-object->datum syntmp-filename-1743))) ((lambda (syntmp-tmp-1745)
((lambda (syntmp-tmp-1746) (if syntmp-tmp-1746 (apply (lambda (syntmp-exp-1747)
(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"))))) syntmp-exp-1747))
syntmp-tmp-1746) (syntax-error syntmp-tmp-1745))) (syntax-dispatch
syntmp-tmp-1745 (quote each-any)))) (syntmp-read-file-1734 syntmp-fn-1744
syntmp-k-1742)))) syntmp-tmp-1741) (syntax-error syntmp-tmp-1740)))
(syntax-dispatch syntmp-tmp-1740 (quote (any any))))) syntmp-x-1733))))
! (install-global-transformer (quote unquote) (lambda (syntmp-x-1764) ((lambda
(syntmp-tmp-1765) ((lambda (syntmp-tmp-1766) (if syntmp-tmp-1766 (apply (lambda
(syntmp-_-1767 syntmp-e-1768) (error (quote unquote) "expression ,~s not valid
outside of quasiquote" (syntax-object->datum syntmp-e-1768))) syntmp-tmp-1766)
(syntax-error syntmp-tmp-1765))) (syntax-dispatch syntmp-tmp-1765 (quote (any
any))))) syntmp-x-1764)))
! (install-global-transformer (quote unquote-splicing) (lambda (syntmp-x-1774)
((lambda (syntmp-tmp-1775) ((lambda (syntmp-tmp-1776) (if syntmp-tmp-1776
(apply (lambda (syntmp-_-1777 syntmp-e-1778) (error (quote unquote-splicing)
"expression ,@~s not valid outside of quasiquote" (syntax-object->datum
syntmp-e-1778))) syntmp-tmp-1776) (syntax-error syntmp-tmp-1775)))
(syntax-dispatch syntmp-tmp-1775 (quote (any any))))) syntmp-x-1774)))
! (install-global-transformer (quote case) (lambda (syntmp-x-1784) ((lambda
(syntmp-tmp-1785) ((lambda (syntmp-tmp-1786) (if syntmp-tmp-1786 (apply (lambda
(syntmp-_-1787 syntmp-e-1788 syntmp-m1-1789 syntmp-m2-1790) ((lambda
(syntmp-tmp-1791) ((lambda (syntmp-body-1792) (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")))))
syntmp-e-1788)) syntmp-body-1792)) syntmp-tmp-1791)) (let syntmp-f-1793
((syntmp-clause-1794 syntmp-m1-1789) (syntmp-clauses-1795 syntmp-m2-1790)) (if
(null? syntmp-clauses-1795) ((lambda (syntmp-tmp-1797) ((lambda
(syntmp-tmp-1798) (if syntmp-tmp-1798 (apply (lambda (syntmp-e1-1799
syntmp-e2-1800) (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 syntmp-e1-1799 syntmp-e2-1800))) syntmp-tmp-1798) ((lambda
(syntmp-tmp-1802) (if syntmp-tmp-1802 (apply (lambda (syntmp-k-1803
syntmp-e1-1804 syntmp-e2-1805) (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"))))) syntmp-k-1803)) (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 syntmp-e1-1804
syntmp-e2-1805)))) syntmp-tmp-1802) ((lambda (syntmp-_-1808) (syntax-error
syntmp-x-1784)) syntmp-tmp-1797))) (syntax-dispatch syntmp-tmp-1797 (quote
(each-any any . each-any)))))) (syntax-dispatch syntmp-tmp-1797 (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))))) syntmp-clause-1794) ((lambda
(syntmp-tmp-1809) ((lambda (syntmp-rest-1810) ((lambda (syntmp-tmp-1811)
((lambda (syntmp-tmp-1812) (if syntmp-tmp-1812 (apply (lambda (syntmp-k-1813
syntmp-e1-1814 syntmp-e2-1815) (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"))))) syntmp-k-1813)) (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 syntmp-e1-1814 syntmp-e2-1815)) syntmp-rest-1810))
syntmp-tmp-1812) ((lambda (syntmp-_-1818) (syntax-error syntmp-x-1784))
syntmp-tmp-1811))) (syntax-dispatch syntmp-tmp-1811 (quote (each-any any .
each-any))))) syntmp-clause-1794)) syntmp-tmp-1809)) (syntmp-f-1793 (car
syntmp-clauses-1795) (cdr syntmp-clauses-1795))))))) syntmp-tmp-1786)
(syntax-error syntmp-tmp-1785))) (syntax-dispatch syntmp-tmp-1785 (quote (any
any any . each-any))))) syntmp-x-1784)))
! (install-global-transformer (quote identifier-syntax) (lambda (syntmp-x-1848)
((lambda (syntmp-tmp-1849) ((lambda (syntmp-tmp-1850) (if syntmp-tmp-1850
(apply (lambda (syntmp-_-1851 syntmp-e-1852) (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"))))) syntmp-e-1852)) (list (cons syntmp-_-1851 (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 syntmp-e-1852 (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"))))))))))))
syntmp-tmp-1850) (syntax-error syntmp-tmp-1849))) (syntax-dispatch
syntmp-tmp-1849 (quote (any any))))) syntmp-x-1848)))
--- 1,11 ----
! (letrec ((syntmp-lambda-var-list-164 (lambda (syntmp-vars-549) (let
syntmp-lvl-550 ((syntmp-vars-551 syntmp-vars-549) (syntmp-ls-552 (quote ()))
(syntmp-w-553 (quote (())))) (cond ((pair? syntmp-vars-551) (syntmp-lvl-550
(cdr syntmp-vars-551) (cons (syntmp-wrap-143 (car syntmp-vars-551)
syntmp-w-553) syntmp-ls-552) syntmp-w-553)) ((syntmp-id?-115 syntmp-vars-551)
(cons (syntmp-wrap-143 syntmp-vars-551 syntmp-w-553) syntmp-ls-552)) ((null?
syntmp-vars-551) syntmp-ls-552) ((syntmp-syntax-object?-101 syntmp-vars-551)
(syntmp-lvl-550 (syntmp-syntax-object-expression-102 syntmp-vars-551)
syntmp-ls-552 (syntmp-join-wraps-134 syntmp-w-553
(syntmp-syntax-object-wrap-103 syntmp-vars-551)))) ((syntmp-annotation?-89
syntmp-vars-551) (syntmp-lvl-550 (annotation-expression syntmp-vars-551)
syntmp-ls-552 syntmp-w-553)) (else (cons syntmp-vars-551 syntmp-ls-552))))))
(syntmp-gen-var-163 (lambda (syntmp-id-554) (let ((syntmp-id-555 (if
(syntmp-syntax-object?-101 syntmp-id-554) (syntmp-syntax-object-expression-102
syntmp-id-554) syntmp-id-554))) (if (syntmp-annotation?-89 syntmp-id-555)
(gensym (symbol->string (annotation-expression syntmp-id-555))) (gensym
(symbol->string syntmp-id-555)))))) (syntmp-strip-162 (lambda (syntmp-x-556
syntmp-w-557) (if (memq (quote top) (syntmp-wrap-marks-118 syntmp-w-557)) (if
(or (syntmp-annotation?-89 syntmp-x-556) (and (pair? syntmp-x-556)
(syntmp-annotation?-89 (car syntmp-x-556)))) (syntmp-strip-annotation-161
syntmp-x-556 #f) syntmp-x-556) (let syntmp-f-558 ((syntmp-x-559 syntmp-x-556))
(cond ((syntmp-syntax-object?-101 syntmp-x-559) (syntmp-strip-162
(syntmp-syntax-object-expression-102 syntmp-x-559)
(syntmp-syntax-object-wrap-103 syntmp-x-559))) ((pair? syntmp-x-559) (let
((syntmp-a-560 (syntmp-f-558 (car syntmp-x-559))) (syntmp-d-561 (syntmp-f-558
(cdr syntmp-x-559)))) (if (and (eq? syntmp-a-560 (car syntmp-x-559)) (eq?
syntmp-d-561 (cdr syntmp-x-559))) syntmp-x-559 (cons syntmp-a-560
syntmp-d-561)))) ((vector? syntmp-x-559) (let ((syntmp-old-562 (vector->list
syntmp-x-559))) (let ((syntmp-new-563 (map syntmp-f-558 syntmp-old-562))) (if
(andmap eq? syntmp-old-562 syntmp-new-563) syntmp-x-559 (list->vector
syntmp-new-563))))) (else syntmp-x-559)))))) (syntmp-strip-annotation-161
(lambda (syntmp-x-564 syntmp-parent-565) (cond ((pair? syntmp-x-564) (let
((syntmp-new-566 (cons #f #f))) (begin (when syntmp-parent-565
(set-annotation-stripped! syntmp-parent-565 syntmp-new-566)) (set-car!
syntmp-new-566 (syntmp-strip-annotation-161 (car syntmp-x-564) #f)) (set-cdr!
syntmp-new-566 (syntmp-strip-annotation-161 (cdr syntmp-x-564) #f))
syntmp-new-566))) ((syntmp-annotation?-89 syntmp-x-564) (or
(annotation-stripped syntmp-x-564) (syntmp-strip-annotation-161
(annotation-expression syntmp-x-564) syntmp-x-564))) ((vector? syntmp-x-564)
(let ((syntmp-new-567 (make-vector (vector-length syntmp-x-564)))) (begin (when
syntmp-parent-565 (set-annotation-stripped! syntmp-parent-565 syntmp-new-567))
(let syntmp-loop-568 ((syntmp-i-569 (- (vector-length syntmp-x-564) 1)))
(unless (syntmp-fx<-88 syntmp-i-569 0) (vector-set! syntmp-new-567 syntmp-i-569
(syntmp-strip-annotation-161 (vector-ref syntmp-x-564 syntmp-i-569) #f))
(syntmp-loop-568 (syntmp-fx--86 syntmp-i-569 1)))) syntmp-new-567))) (else
syntmp-x-564)))) (syntmp-ellipsis?-160 (lambda (syntmp-x-570) (and
(syntmp-nonsymbol-id?-114 syntmp-x-570) (syntmp-free-id=?-138 syntmp-x-570
(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 build-lexical-var build-letrec
build-named-let build-let build-sequence build-data build-primref build-lambda
build-global-definition build-global-assignment build-global-reference
build-lexical-assignment build-lexical-reference build-conditional
build-application get-global-definition-hook put-global-definition-hook
gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx=
fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i")) #(ribcage (define-structure) ((top)) ("i")))))))))
(syntmp-chi-void-159 (lambda () (list (quote void))))
(syntmp-eval-local-transformer-158 (lambda (syntmp-expanded-571) (let
((syntmp-p-572 (syntmp-local-eval-hook-91 syntmp-expanded-571))) (if
(procedure? syntmp-p-572) syntmp-p-572 (syntax-error syntmp-p-572 "nonprocedure
transformer"))))) (syntmp-chi-local-syntax-157 (lambda (syntmp-rec?-573
syntmp-e-574 syntmp-r-575 syntmp-w-576 syntmp-s-577 syntmp-k-578) ((lambda
(syntmp-tmp-579) ((lambda (syntmp-tmp-580) (if syntmp-tmp-580 (apply (lambda
(syntmp-_-581 syntmp-id-582 syntmp-val-583 syntmp-e1-584 syntmp-e2-585) (let
((syntmp-ids-586 syntmp-id-582)) (if (not (syntmp-valid-bound-ids?-140
syntmp-ids-586)) (syntax-error syntmp-e-574 "duplicate bound keyword in") (let
((syntmp-labels-588 (syntmp-gen-labels-121 syntmp-ids-586))) (let
((syntmp-new-w-589 (syntmp-make-binding-wrap-132 syntmp-ids-586
syntmp-labels-588 syntmp-w-576))) (syntmp-k-578 (cons syntmp-e1-584
syntmp-e2-585) (syntmp-extend-env-109 syntmp-labels-588 (let ((syntmp-w-591 (if
syntmp-rec?-573 syntmp-new-w-589 syntmp-w-576)) (syntmp-trans-r-592
(syntmp-macros-only-env-111 syntmp-r-575))) (map (lambda (syntmp-x-593) (cons
(quote macro) (syntmp-eval-local-transformer-158 (syntmp-chi-151 syntmp-x-593
syntmp-trans-r-592 syntmp-w-591)))) syntmp-val-583)) syntmp-r-575)
syntmp-new-w-589 syntmp-s-577)))))) syntmp-tmp-580) ((lambda (syntmp-_-595)
(syntax-error (syntmp-source-wrap-144 syntmp-e-574 syntmp-w-576 syntmp-s-577)))
syntmp-tmp-579))) (syntax-dispatch syntmp-tmp-579 (quote (any #(each (any any))
any . each-any))))) syntmp-e-574))) (syntmp-chi-lambda-clause-156 (lambda
(syntmp-e-596 syntmp-c-597 syntmp-r-598 syntmp-w-599 syntmp-k-600) ((lambda
(syntmp-tmp-601) ((lambda (syntmp-tmp-602) (if syntmp-tmp-602 (apply (lambda
(syntmp-id-603 syntmp-e1-604 syntmp-e2-605) (let ((syntmp-ids-606
syntmp-id-603)) (if (not (syntmp-valid-bound-ids?-140 syntmp-ids-606))
(syntax-error syntmp-e-596 "invalid parameter list in") (let
((syntmp-labels-608 (syntmp-gen-labels-121 syntmp-ids-606))
(syntmp-new-vars-609 (map syntmp-gen-var-163 syntmp-ids-606))) (syntmp-k-600
syntmp-new-vars-609 (syntmp-chi-body-155 (cons syntmp-e1-604 syntmp-e2-605)
syntmp-e-596 (syntmp-extend-var-env-110 syntmp-labels-608 syntmp-new-vars-609
syntmp-r-598) (syntmp-make-binding-wrap-132 syntmp-ids-606 syntmp-labels-608
syntmp-w-599))))))) syntmp-tmp-602) ((lambda (syntmp-tmp-611) (if
syntmp-tmp-611 (apply (lambda (syntmp-ids-612 syntmp-e1-613 syntmp-e2-614) (let
((syntmp-old-ids-615 (syntmp-lambda-var-list-164 syntmp-ids-612))) (if (not
(syntmp-valid-bound-ids?-140 syntmp-old-ids-615)) (syntax-error syntmp-e-596
"invalid parameter list in") (let ((syntmp-labels-616 (syntmp-gen-labels-121
syntmp-old-ids-615)) (syntmp-new-vars-617 (map syntmp-gen-var-163
syntmp-old-ids-615))) (syntmp-k-600 (let syntmp-f-618 ((syntmp-ls1-619 (cdr
syntmp-new-vars-617)) (syntmp-ls2-620 (car syntmp-new-vars-617))) (if (null?
syntmp-ls1-619) syntmp-ls2-620 (syntmp-f-618 (cdr syntmp-ls1-619) (cons (car
syntmp-ls1-619) syntmp-ls2-620)))) (syntmp-chi-body-155 (cons syntmp-e1-613
syntmp-e2-614) syntmp-e-596 (syntmp-extend-var-env-110 syntmp-labels-616
syntmp-new-vars-617 syntmp-r-598) (syntmp-make-binding-wrap-132
syntmp-old-ids-615 syntmp-labels-616 syntmp-w-599))))))) syntmp-tmp-611)
((lambda (syntmp-_-622) (syntax-error syntmp-e-596)) syntmp-tmp-601)))
(syntax-dispatch syntmp-tmp-601 (quote (any any . each-any))))))
(syntax-dispatch syntmp-tmp-601 (quote (each-any any . each-any)))))
syntmp-c-597))) (syntmp-chi-body-155 (lambda (syntmp-body-623
syntmp-outer-form-624 syntmp-r-625 syntmp-w-626) (let ((syntmp-r-627 (cons
(quote ("placeholder" placeholder)) syntmp-r-625))) (let ((syntmp-ribcage-628
(syntmp-make-ribcage-122 (quote ()) (quote ()) (quote ())))) (let
((syntmp-w-629 (syntmp-make-wrap-117 (syntmp-wrap-marks-118 syntmp-w-626) (cons
syntmp-ribcage-628 (syntmp-wrap-subst-119 syntmp-w-626))))) (let
syntmp-parse-630 ((syntmp-body-631 (map (lambda (syntmp-x-637) (cons
syntmp-r-627 (syntmp-wrap-143 syntmp-x-637 syntmp-w-629))) syntmp-body-623))
(syntmp-ids-632 (quote ())) (syntmp-labels-633 (quote ())) (syntmp-vars-634
(quote ())) (syntmp-vals-635 (quote ())) (syntmp-bindings-636 (quote ()))) (if
(null? syntmp-body-631) (syntax-error syntmp-outer-form-624 "no expressions in
body") (let ((syntmp-e-638 (cdar syntmp-body-631)) (syntmp-er-639 (caar
syntmp-body-631))) (call-with-values (lambda () (syntmp-syntax-type-149
syntmp-e-638 syntmp-er-639 (quote (())) #f syntmp-ribcage-628)) (lambda
(syntmp-type-640 syntmp-value-641 syntmp-e-642 syntmp-w-643 syntmp-s-644) (let
((syntmp-t-645 syntmp-type-640)) (if (memv syntmp-t-645 (quote (define-form)))
(let ((syntmp-id-646 (syntmp-wrap-143 syntmp-value-641 syntmp-w-643))
(syntmp-label-647 (syntmp-gen-label-120))) (let ((syntmp-var-648
(syntmp-gen-var-163 syntmp-id-646))) (begin (syntmp-extend-ribcage!-131
syntmp-ribcage-628 syntmp-id-646 syntmp-label-647) (syntmp-parse-630 (cdr
syntmp-body-631) (cons syntmp-id-646 syntmp-ids-632) (cons syntmp-label-647
syntmp-labels-633) (cons syntmp-var-648 syntmp-vars-634) (cons (cons
syntmp-er-639 (syntmp-wrap-143 syntmp-e-642 syntmp-w-643)) syntmp-vals-635)
(cons (cons (quote lexical) syntmp-var-648) syntmp-bindings-636))))) (if (memv
syntmp-t-645 (quote (define-syntax-form))) (let ((syntmp-id-649
(syntmp-wrap-143 syntmp-value-641 syntmp-w-643)) (syntmp-label-650
(syntmp-gen-label-120))) (begin (syntmp-extend-ribcage!-131 syntmp-ribcage-628
syntmp-id-649 syntmp-label-650) (syntmp-parse-630 (cdr syntmp-body-631) (cons
syntmp-id-649 syntmp-ids-632) (cons syntmp-label-650 syntmp-labels-633)
syntmp-vars-634 syntmp-vals-635 (cons (cons (quote macro) (cons syntmp-er-639
(syntmp-wrap-143 syntmp-e-642 syntmp-w-643))) syntmp-bindings-636)))) (if (memv
syntmp-t-645 (quote (begin-form))) ((lambda (syntmp-tmp-651) ((lambda
(syntmp-tmp-652) (if syntmp-tmp-652 (apply (lambda (syntmp-_-653 syntmp-e1-654)
(syntmp-parse-630 (let syntmp-f-655 ((syntmp-forms-656 syntmp-e1-654)) (if
(null? syntmp-forms-656) (cdr syntmp-body-631) (cons (cons syntmp-er-639
(syntmp-wrap-143 (car syntmp-forms-656) syntmp-w-643)) (syntmp-f-655 (cdr
syntmp-forms-656))))) syntmp-ids-632 syntmp-labels-633 syntmp-vars-634
syntmp-vals-635 syntmp-bindings-636)) syntmp-tmp-652) (syntax-error
syntmp-tmp-651))) (syntax-dispatch syntmp-tmp-651 (quote (any . each-any)))))
syntmp-e-642) (if (memv syntmp-t-645 (quote (local-syntax-form)))
(syntmp-chi-local-syntax-157 syntmp-value-641 syntmp-e-642 syntmp-er-639
syntmp-w-643 syntmp-s-644 (lambda (syntmp-forms-658 syntmp-er-659 syntmp-w-660
syntmp-s-661) (syntmp-parse-630 (let syntmp-f-662 ((syntmp-forms-663
syntmp-forms-658)) (if (null? syntmp-forms-663) (cdr syntmp-body-631) (cons
(cons syntmp-er-659 (syntmp-wrap-143 (car syntmp-forms-663) syntmp-w-660))
(syntmp-f-662 (cdr syntmp-forms-663))))) syntmp-ids-632 syntmp-labels-633
syntmp-vars-634 syntmp-vals-635 syntmp-bindings-636))) (if (null?
syntmp-ids-632) (syntmp-build-sequence-96 #f (map (lambda (syntmp-x-664)
(syntmp-chi-151 (cdr syntmp-x-664) (car syntmp-x-664) (quote (())))) (cons
(cons syntmp-er-639 (syntmp-source-wrap-144 syntmp-e-642 syntmp-w-643
syntmp-s-644)) (cdr syntmp-body-631)))) (begin (if (not
(syntmp-valid-bound-ids?-140 syntmp-ids-632)) (syntax-error
syntmp-outer-form-624 "invalid or duplicate identifier in definition")) (let
syntmp-loop-665 ((syntmp-bs-666 syntmp-bindings-636) (syntmp-er-cache-667 #f)
(syntmp-r-cache-668 #f)) (if (not (null? syntmp-bs-666)) (let ((syntmp-b-669
(car syntmp-bs-666))) (if (eq? (car syntmp-b-669) (quote macro)) (let
((syntmp-er-670 (cadr syntmp-b-669))) (let ((syntmp-r-cache-671 (if (eq?
syntmp-er-670 syntmp-er-cache-667) syntmp-r-cache-668
(syntmp-macros-only-env-111 syntmp-er-670)))) (begin (set-cdr! syntmp-b-669
(syntmp-eval-local-transformer-158 (syntmp-chi-151 (cddr syntmp-b-669)
syntmp-r-cache-671 (quote (()))))) (syntmp-loop-665 (cdr syntmp-bs-666)
syntmp-er-670 syntmp-r-cache-671)))) (syntmp-loop-665 (cdr syntmp-bs-666)
syntmp-er-cache-667 syntmp-r-cache-668))))) (set-cdr! syntmp-r-627
(syntmp-extend-env-109 syntmp-labels-633 syntmp-bindings-636 (cdr
syntmp-r-627))) (syntmp-build-letrec-99 #f syntmp-vars-634 (map (lambda
(syntmp-x-672) (syntmp-chi-151 (cdr syntmp-x-672) (car syntmp-x-672) (quote
(())))) syntmp-vals-635) (syntmp-build-sequence-96 #f (map (lambda
(syntmp-x-673) (syntmp-chi-151 (cdr syntmp-x-673) (car syntmp-x-673) (quote
(())))) (cons (cons syntmp-er-639 (syntmp-source-wrap-144 syntmp-e-642
syntmp-w-643 syntmp-s-644)) (cdr syntmp-body-631))))))))))))))))))))))
(syntmp-chi-macro-154 (lambda (syntmp-p-674 syntmp-e-675 syntmp-r-676
syntmp-w-677 syntmp-rib-678) (letrec ((syntmp-rebuild-macro-output-679 (lambda
(syntmp-x-680 syntmp-m-681) (cond ((pair? syntmp-x-680) (cons
(syntmp-rebuild-macro-output-679 (car syntmp-x-680) syntmp-m-681)
(syntmp-rebuild-macro-output-679 (cdr syntmp-x-680) syntmp-m-681)))
((syntmp-syntax-object?-101 syntmp-x-680) (let ((syntmp-w-682
(syntmp-syntax-object-wrap-103 syntmp-x-680))) (let ((syntmp-ms-683
(syntmp-wrap-marks-118 syntmp-w-682)) (syntmp-s-684 (syntmp-wrap-subst-119
syntmp-w-682))) (syntmp-make-syntax-object-100
(syntmp-syntax-object-expression-102 syntmp-x-680) (if (and (pair?
syntmp-ms-683) (eq? (car syntmp-ms-683) #f)) (syntmp-make-wrap-117 (cdr
syntmp-ms-683) (if syntmp-rib-678 (cons syntmp-rib-678 (cdr syntmp-s-684)) (cdr
syntmp-s-684))) (syntmp-make-wrap-117 (cons syntmp-m-681 syntmp-ms-683) (if
syntmp-rib-678 (cons syntmp-rib-678 (cons (quote shift) syntmp-s-684)) (cons
(quote shift) syntmp-s-684)))))))) ((vector? syntmp-x-680) (let ((syntmp-n-685
(vector-length syntmp-x-680))) (let ((syntmp-v-686 (make-vector syntmp-n-685)))
(let syntmp-doloop-687 ((syntmp-i-688 0)) (if (syntmp-fx=-87 syntmp-i-688
syntmp-n-685) syntmp-v-686 (begin (vector-set! syntmp-v-686 syntmp-i-688
(syntmp-rebuild-macro-output-679 (vector-ref syntmp-x-680 syntmp-i-688)
syntmp-m-681)) (syntmp-doloop-687 (syntmp-fx+-85 syntmp-i-688 1))))))))
((symbol? syntmp-x-680) (syntax-error syntmp-x-680 "encountered raw symbol in
macro output")) (else syntmp-x-680))))) (syntmp-rebuild-macro-output-679
(syntmp-p-674 (syntmp-wrap-143 syntmp-e-675 (syntmp-anti-mark-130
syntmp-w-677))) (string #\m))))) (syntmp-chi-application-153 (lambda
(syntmp-x-689 syntmp-e-690 syntmp-r-691 syntmp-w-692 syntmp-s-693) ((lambda
(syntmp-tmp-694) ((lambda (syntmp-tmp-695) (if syntmp-tmp-695 (apply (lambda
(syntmp-e0-696 syntmp-e1-697) (cons syntmp-x-689 (map (lambda (syntmp-e-698)
(syntmp-chi-151 syntmp-e-698 syntmp-r-691 syntmp-w-692)) syntmp-e1-697)))
syntmp-tmp-695) (syntax-error syntmp-tmp-694))) (syntax-dispatch syntmp-tmp-694
(quote (any . each-any))))) syntmp-e-690))) (syntmp-chi-expr-152 (lambda
(syntmp-type-700 syntmp-value-701 syntmp-e-702 syntmp-r-703 syntmp-w-704
syntmp-s-705) (let ((syntmp-t-706 syntmp-type-700)) (if (memv syntmp-t-706
(quote (lexical))) syntmp-value-701 (if (memv syntmp-t-706 (quote (core
external-macro))) (syntmp-value-701 syntmp-e-702 syntmp-r-703 syntmp-w-704
syntmp-s-705) (if (memv syntmp-t-706 (quote (lexical-call)))
(syntmp-chi-application-153 syntmp-value-701 syntmp-e-702 syntmp-r-703
syntmp-w-704 syntmp-s-705) (if (memv syntmp-t-706 (quote (global-call)))
(syntmp-chi-application-153 syntmp-value-701 syntmp-e-702 syntmp-r-703
syntmp-w-704 syntmp-s-705) (if (memv syntmp-t-706 (quote (constant)))
(syntmp-build-data-95 syntmp-s-705 (syntmp-strip-162 (syntmp-source-wrap-144
syntmp-e-702 syntmp-w-704 syntmp-s-705) (quote (())))) (if (memv syntmp-t-706
(quote (global))) syntmp-value-701 (if (memv syntmp-t-706 (quote (call)))
(syntmp-chi-application-153 (syntmp-chi-151 (car syntmp-e-702) syntmp-r-703
syntmp-w-704) syntmp-e-702 syntmp-r-703 syntmp-w-704 syntmp-s-705) (if (memv
syntmp-t-706 (quote (begin-form))) ((lambda (syntmp-tmp-707) ((lambda
(syntmp-tmp-708) (if syntmp-tmp-708 (apply (lambda (syntmp-_-709 syntmp-e1-710
syntmp-e2-711) (syntmp-chi-sequence-145 (cons syntmp-e1-710 syntmp-e2-711)
syntmp-r-703 syntmp-w-704 syntmp-s-705)) syntmp-tmp-708) (syntax-error
syntmp-tmp-707))) (syntax-dispatch syntmp-tmp-707 (quote (any any .
each-any))))) syntmp-e-702) (if (memv syntmp-t-706 (quote (local-syntax-form)))
(syntmp-chi-local-syntax-157 syntmp-value-701 syntmp-e-702 syntmp-r-703
syntmp-w-704 syntmp-s-705 syntmp-chi-sequence-145) (if (memv syntmp-t-706
(quote (eval-when-form))) ((lambda (syntmp-tmp-713) ((lambda (syntmp-tmp-714)
(if syntmp-tmp-714 (apply (lambda (syntmp-_-715 syntmp-x-716 syntmp-e1-717
syntmp-e2-718) (let ((syntmp-when-list-719 (syntmp-chi-when-list-148
syntmp-e-702 syntmp-x-716 syntmp-w-704))) (if (memq (quote eval)
syntmp-when-list-719) (syntmp-chi-sequence-145 (cons syntmp-e1-717
syntmp-e2-718) syntmp-r-703 syntmp-w-704 syntmp-s-705) (syntmp-chi-void-159))))
syntmp-tmp-714) (syntax-error syntmp-tmp-713))) (syntax-dispatch syntmp-tmp-713
(quote (any each-any any . each-any))))) syntmp-e-702) (if (memv syntmp-t-706
(quote (define-form define-syntax-form))) (syntax-error (syntmp-wrap-143
syntmp-value-701 syntmp-w-704) "invalid context for definition of") (if (memv
syntmp-t-706 (quote (syntax))) (syntax-error (syntmp-source-wrap-144
syntmp-e-702 syntmp-w-704 syntmp-s-705) "reference to pattern variable outside
syntax form") (if (memv syntmp-t-706 (quote (displaced-lexical))) (syntax-error
(syntmp-source-wrap-144 syntmp-e-702 syntmp-w-704 syntmp-s-705) "reference to
identifier outside its scope") (syntax-error (syntmp-source-wrap-144
syntmp-e-702 syntmp-w-704 syntmp-s-705)))))))))))))))))) (syntmp-chi-151
(lambda (syntmp-e-722 syntmp-r-723 syntmp-w-724) (call-with-values (lambda ()
(syntmp-syntax-type-149 syntmp-e-722 syntmp-r-723 syntmp-w-724 #f #f)) (lambda
(syntmp-type-725 syntmp-value-726 syntmp-e-727 syntmp-w-728 syntmp-s-729)
(syntmp-chi-expr-152 syntmp-type-725 syntmp-value-726 syntmp-e-727 syntmp-r-723
syntmp-w-728 syntmp-s-729))))) (syntmp-chi-top-150 (lambda (syntmp-e-730
syntmp-r-731 syntmp-w-732 syntmp-m-733 syntmp-esew-734) (call-with-values
(lambda () (syntmp-syntax-type-149 syntmp-e-730 syntmp-r-731 syntmp-w-732 #f
#f)) (lambda (syntmp-type-747 syntmp-value-748 syntmp-e-749 syntmp-w-750
syntmp-s-751) (let ((syntmp-t-752 syntmp-type-747)) (if (memv syntmp-t-752
(quote (begin-form))) ((lambda (syntmp-tmp-753) ((lambda (syntmp-tmp-754) (if
syntmp-tmp-754 (apply (lambda (syntmp-_-755) (syntmp-chi-void-159))
syntmp-tmp-754) ((lambda (syntmp-tmp-756) (if syntmp-tmp-756 (apply (lambda
(syntmp-_-757 syntmp-e1-758 syntmp-e2-759) (syntmp-chi-top-sequence-146 (cons
syntmp-e1-758 syntmp-e2-759) syntmp-r-731 syntmp-w-750 syntmp-s-751
syntmp-m-733 syntmp-esew-734)) syntmp-tmp-756) (syntax-error syntmp-tmp-753)))
(syntax-dispatch syntmp-tmp-753 (quote (any any . each-any))))))
(syntax-dispatch syntmp-tmp-753 (quote (any))))) syntmp-e-749) (if (memv
syntmp-t-752 (quote (local-syntax-form))) (syntmp-chi-local-syntax-157
syntmp-value-748 syntmp-e-749 syntmp-r-731 syntmp-w-750 syntmp-s-751 (lambda
(syntmp-body-761 syntmp-r-762 syntmp-w-763 syntmp-s-764)
(syntmp-chi-top-sequence-146 syntmp-body-761 syntmp-r-762 syntmp-w-763
syntmp-s-764 syntmp-m-733 syntmp-esew-734))) (if (memv syntmp-t-752 (quote
(eval-when-form))) ((lambda (syntmp-tmp-765) ((lambda (syntmp-tmp-766) (if
syntmp-tmp-766 (apply (lambda (syntmp-_-767 syntmp-x-768 syntmp-e1-769
syntmp-e2-770) (let ((syntmp-when-list-771 (syntmp-chi-when-list-148
syntmp-e-749 syntmp-x-768 syntmp-w-750)) (syntmp-body-772 (cons syntmp-e1-769
syntmp-e2-770))) (cond ((eq? syntmp-m-733 (quote e)) (if (memq (quote eval)
syntmp-when-list-771) (syntmp-chi-top-sequence-146 syntmp-body-772 syntmp-r-731
syntmp-w-750 syntmp-s-751 (quote e) (quote (eval))) (syntmp-chi-void-159)))
((memq (quote load) syntmp-when-list-771) (if (or (memq (quote compile)
syntmp-when-list-771) (and (eq? syntmp-m-733 (quote c&e)) (memq (quote eval)
syntmp-when-list-771))) (syntmp-chi-top-sequence-146 syntmp-body-772
syntmp-r-731 syntmp-w-750 syntmp-s-751 (quote c&e) (quote (compile load))) (if
(memq syntmp-m-733 (quote (c c&e))) (syntmp-chi-top-sequence-146
syntmp-body-772 syntmp-r-731 syntmp-w-750 syntmp-s-751 (quote c) (quote
(load))) (syntmp-chi-void-159)))) ((or (memq (quote compile)
syntmp-when-list-771) (and (eq? syntmp-m-733 (quote c&e)) (memq (quote eval)
syntmp-when-list-771))) (syntmp-top-level-eval-hook-90
(syntmp-chi-top-sequence-146 syntmp-body-772 syntmp-r-731 syntmp-w-750
syntmp-s-751 (quote e) (quote (eval)))) (syntmp-chi-void-159)) (else
(syntmp-chi-void-159))))) syntmp-tmp-766) (syntax-error syntmp-tmp-765)))
(syntax-dispatch syntmp-tmp-765 (quote (any each-any any . each-any)))))
syntmp-e-749) (if (memv syntmp-t-752 (quote (define-syntax-form))) (let
((syntmp-n-775 (syntmp-id-var-name-137 syntmp-value-748 syntmp-w-750))
(syntmp-r-776 (syntmp-macros-only-env-111 syntmp-r-731))) (let ((syntmp-t-777
syntmp-m-733)) (if (memv syntmp-t-777 (quote (c))) (if (memq (quote compile)
syntmp-esew-734) (let ((syntmp-e-778 (syntmp-chi-install-global-147
syntmp-n-775 (syntmp-chi-151 syntmp-e-749 syntmp-r-776 syntmp-w-750)))) (begin
(syntmp-top-level-eval-hook-90 syntmp-e-778) (if (memq (quote load)
syntmp-esew-734) syntmp-e-778 (syntmp-chi-void-159)))) (if (memq (quote load)
syntmp-esew-734) (syntmp-chi-install-global-147 syntmp-n-775 (syntmp-chi-151
syntmp-e-749 syntmp-r-776 syntmp-w-750)) (syntmp-chi-void-159))) (if (memv
syntmp-t-777 (quote (c&e))) (let ((syntmp-e-779 (syntmp-chi-install-global-147
syntmp-n-775 (syntmp-chi-151 syntmp-e-749 syntmp-r-776 syntmp-w-750)))) (begin
(syntmp-top-level-eval-hook-90 syntmp-e-779) syntmp-e-779)) (begin (if (memq
(quote eval) syntmp-esew-734) (syntmp-top-level-eval-hook-90
(syntmp-chi-install-global-147 syntmp-n-775 (syntmp-chi-151 syntmp-e-749
syntmp-r-776 syntmp-w-750)))) (syntmp-chi-void-159)))))) (if (memv syntmp-t-752
(quote (define-form))) (let ((syntmp-n-780 (syntmp-id-var-name-137
syntmp-value-748 syntmp-w-750))) (let ((syntmp-type-781
(syntmp-binding-type-107 (syntmp-lookup-112 syntmp-n-780 syntmp-r-731)))) (let
((syntmp-t-782 syntmp-type-781)) (if (memv syntmp-t-782 (quote (global))) (let
((syntmp-x-783 (list (quote define) syntmp-n-780 (syntmp-chi-151 syntmp-e-749
syntmp-r-731 syntmp-w-750)))) (begin (if (eq? syntmp-m-733 (quote c&e))
(syntmp-top-level-eval-hook-90 syntmp-x-783)) syntmp-x-783)) (if (memv
syntmp-t-782 (quote (displaced-lexical))) (syntax-error (syntmp-wrap-143
syntmp-value-748 syntmp-w-750) "identifier out of context") (if (eq?
syntmp-type-781 (quote external-macro)) (let ((syntmp-x-784 (list (quote
define) syntmp-n-780 (syntmp-chi-151 syntmp-e-749 syntmp-r-731 syntmp-w-750))))
(begin (if (eq? syntmp-m-733 (quote c&e)) (syntmp-top-level-eval-hook-90
syntmp-x-784)) syntmp-x-784)) (syntax-error (syntmp-wrap-143 syntmp-value-748
syntmp-w-750) "cannot define keyword at top level"))))))) (let ((syntmp-x-785
(syntmp-chi-expr-152 syntmp-type-747 syntmp-value-748 syntmp-e-749 syntmp-r-731
syntmp-w-750 syntmp-s-751))) (begin (if (eq? syntmp-m-733 (quote c&e))
(syntmp-top-level-eval-hook-90 syntmp-x-785)) syntmp-x-785))))))))))))
(syntmp-syntax-type-149 (lambda (syntmp-e-786 syntmp-r-787 syntmp-w-788
syntmp-s-789 syntmp-rib-790) (cond ((symbol? syntmp-e-786) (let ((syntmp-n-791
(syntmp-id-var-name-137 syntmp-e-786 syntmp-w-788))) (let ((syntmp-b-792
(syntmp-lookup-112 syntmp-n-791 syntmp-r-787))) (let ((syntmp-type-793
(syntmp-binding-type-107 syntmp-b-792))) (let ((syntmp-t-794 syntmp-type-793))
(if (memv syntmp-t-794 (quote (lexical))) (values syntmp-type-793
(syntmp-binding-value-108 syntmp-b-792) syntmp-e-786 syntmp-w-788 syntmp-s-789)
(if (memv syntmp-t-794 (quote (global))) (values syntmp-type-793 syntmp-n-791
syntmp-e-786 syntmp-w-788 syntmp-s-789) (if (memv syntmp-t-794 (quote (macro)))
(syntmp-syntax-type-149 (syntmp-chi-macro-154 (syntmp-binding-value-108
syntmp-b-792) syntmp-e-786 syntmp-r-787 syntmp-w-788 syntmp-rib-790)
syntmp-r-787 (quote (())) syntmp-s-789 syntmp-rib-790) (values syntmp-type-793
(syntmp-binding-value-108 syntmp-b-792) syntmp-e-786 syntmp-w-788
syntmp-s-789))))))))) ((pair? syntmp-e-786) (let ((syntmp-first-795 (car
syntmp-e-786))) (if (syntmp-id?-115 syntmp-first-795) (let ((syntmp-n-796
(syntmp-id-var-name-137 syntmp-first-795 syntmp-w-788))) (let ((syntmp-b-797
(syntmp-lookup-112 syntmp-n-796 syntmp-r-787))) (let ((syntmp-type-798
(syntmp-binding-type-107 syntmp-b-797))) (let ((syntmp-t-799 syntmp-type-798))
(if (memv syntmp-t-799 (quote (lexical))) (values (quote lexical-call)
(syntmp-binding-value-108 syntmp-b-797) syntmp-e-786 syntmp-w-788 syntmp-s-789)
(if (memv syntmp-t-799 (quote (global))) (values (quote global-call)
syntmp-n-796 syntmp-e-786 syntmp-w-788 syntmp-s-789) (if (memv syntmp-t-799
(quote (macro))) (syntmp-syntax-type-149 (syntmp-chi-macro-154
(syntmp-binding-value-108 syntmp-b-797) syntmp-e-786 syntmp-r-787 syntmp-w-788
syntmp-rib-790) syntmp-r-787 (quote (())) syntmp-s-789 syntmp-rib-790) (if
(memv syntmp-t-799 (quote (core external-macro))) (values syntmp-type-798
(syntmp-binding-value-108 syntmp-b-797) syntmp-e-786 syntmp-w-788 syntmp-s-789)
(if (memv syntmp-t-799 (quote (local-syntax))) (values (quote
local-syntax-form) (syntmp-binding-value-108 syntmp-b-797) syntmp-e-786
syntmp-w-788 syntmp-s-789) (if (memv syntmp-t-799 (quote (begin))) (values
(quote begin-form) #f syntmp-e-786 syntmp-w-788 syntmp-s-789) (if (memv
syntmp-t-799 (quote (eval-when))) (values (quote eval-when-form) #f
syntmp-e-786 syntmp-w-788 syntmp-s-789) (if (memv syntmp-t-799 (quote
(define))) ((lambda (syntmp-tmp-800) ((lambda (syntmp-tmp-801) (if (if
syntmp-tmp-801 (apply (lambda (syntmp-_-802 syntmp-name-803 syntmp-val-804)
(syntmp-id?-115 syntmp-name-803)) syntmp-tmp-801) #f) (apply (lambda
(syntmp-_-805 syntmp-name-806 syntmp-val-807) (values (quote define-form)
syntmp-name-806 syntmp-val-807 syntmp-w-788 syntmp-s-789)) syntmp-tmp-801)
((lambda (syntmp-tmp-808) (if (if syntmp-tmp-808 (apply (lambda (syntmp-_-809
syntmp-name-810 syntmp-args-811 syntmp-e1-812 syntmp-e2-813) (and
(syntmp-id?-115 syntmp-name-810) (syntmp-valid-bound-ids?-140
(syntmp-lambda-var-list-164 syntmp-args-811)))) syntmp-tmp-808) #f) (apply
(lambda (syntmp-_-814 syntmp-name-815 syntmp-args-816 syntmp-e1-817
syntmp-e2-818) (values (quote define-form) (syntmp-wrap-143 syntmp-name-815
syntmp-w-788) (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 build-lexical-var build-letrec
build-named-let build-let build-sequence build-data build-primref build-lambda
build-global-definition build-global-assignment build-global-reference
build-lexical-assignment build-lexical-reference build-conditional
build-application get-global-definition-hook put-global-definition-hook
gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx=
fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i")) #(ribcage (define-structure) ((top)) ("i"))))) (syntmp-wrap-143 (cons
syntmp-args-816 (cons syntmp-e1-817 syntmp-e2-818)) syntmp-w-788)) (quote (()))
syntmp-s-789)) syntmp-tmp-808) ((lambda (syntmp-tmp-820) (if (if syntmp-tmp-820
(apply (lambda (syntmp-_-821 syntmp-name-822) (syntmp-id?-115 syntmp-name-822))
syntmp-tmp-820) #f) (apply (lambda (syntmp-_-823 syntmp-name-824) (values
(quote define-form) (syntmp-wrap-143 syntmp-name-824 syntmp-w-788) (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 build-lexical-var
build-letrec build-named-let build-let build-sequence build-data build-primref
build-lambda build-global-definition build-global-assignment
build-global-reference build-lexical-assignment build-lexical-reference
build-conditional build-application get-global-definition-hook
put-global-definition-hook gensym-hook error-hook local-eval-hook
top-level-eval-hook annotation? fx< fx= fx- fx+ noexpand) ((top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure) ((top)) ("i")))))) (quote (())) syntmp-s-789))
syntmp-tmp-820) (syntax-error syntmp-tmp-800))) (syntax-dispatch syntmp-tmp-800
(quote (any any)))))) (syntax-dispatch syntmp-tmp-800 (quote (any (any . any)
any . each-any)))))) (syntax-dispatch syntmp-tmp-800 (quote (any any any)))))
syntmp-e-786) (if (memv syntmp-t-799 (quote (define-syntax))) ((lambda
(syntmp-tmp-825) ((lambda (syntmp-tmp-826) (if (if syntmp-tmp-826 (apply
(lambda (syntmp-_-827 syntmp-name-828 syntmp-val-829) (syntmp-id?-115
syntmp-name-828)) syntmp-tmp-826) #f) (apply (lambda (syntmp-_-830
syntmp-name-831 syntmp-val-832) (values (quote define-syntax-form)
syntmp-name-831 syntmp-val-832 syntmp-w-788 syntmp-s-789)) syntmp-tmp-826)
(syntax-error syntmp-tmp-825))) (syntax-dispatch syntmp-tmp-825 (quote (any any
any))))) syntmp-e-786) (values (quote call) #f syntmp-e-786 syntmp-w-788
syntmp-s-789)))))))))))))) (values (quote call) #f syntmp-e-786 syntmp-w-788
syntmp-s-789)))) ((syntmp-syntax-object?-101 syntmp-e-786)
(syntmp-syntax-type-149 (syntmp-syntax-object-expression-102 syntmp-e-786)
syntmp-r-787 (syntmp-join-wraps-134 syntmp-w-788 (syntmp-syntax-object-wrap-103
syntmp-e-786)) #f syntmp-rib-790)) ((syntmp-annotation?-89 syntmp-e-786)
(syntmp-syntax-type-149 (annotation-expression syntmp-e-786) syntmp-r-787
syntmp-w-788 (annotation-source syntmp-e-786) syntmp-rib-790))
((self-evaluating? syntmp-e-786) (values (quote constant) #f syntmp-e-786
syntmp-w-788 syntmp-s-789)) (else (values (quote other) #f syntmp-e-786
syntmp-w-788 syntmp-s-789))))) (syntmp-chi-when-list-148 (lambda (syntmp-e-833
syntmp-when-list-834 syntmp-w-835) (let syntmp-f-836 ((syntmp-when-list-837
syntmp-when-list-834) (syntmp-situations-838 (quote ()))) (if (null?
syntmp-when-list-837) syntmp-situations-838 (syntmp-f-836 (cdr
syntmp-when-list-837) (cons (let ((syntmp-x-839 (car syntmp-when-list-837)))
(cond ((syntmp-free-id=?-138 syntmp-x-839 (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 build-lexical-var build-letrec
build-named-let build-let build-sequence build-data build-primref build-lambda
build-global-definition build-global-assignment build-global-reference
build-lexical-assignment build-lexical-reference build-conditional
build-application get-global-definition-hook put-global-definition-hook
gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx=
fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i")) #(ribcage (define-structure) ((top)) ("i")))))) (quote compile))
((syntmp-free-id=?-138 syntmp-x-839 (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 build-lexical-var build-letrec
build-named-let build-let build-sequence build-data build-primref build-lambda
build-global-definition build-global-assignment build-global-reference
build-lexical-assignment build-lexical-reference build-conditional
build-application get-global-definition-hook put-global-definition-hook
gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx=
fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i")) #(ribcage (define-structure) ((top)) ("i")))))) (quote load))
((syntmp-free-id=?-138 syntmp-x-839 (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 build-lexical-var build-letrec
build-named-let build-let build-sequence build-data build-primref build-lambda
build-global-definition build-global-assignment build-global-reference
build-lexical-assignment build-lexical-reference build-conditional
build-application get-global-definition-hook put-global-definition-hook
gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx=
fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i")) #(ribcage (define-structure) ((top)) ("i")))))) (quote eval)) (else
(syntax-error (syntmp-wrap-143 syntmp-x-839 syntmp-w-835) "invalid eval-when
situation")))) syntmp-situations-838)))))) (syntmp-chi-install-global-147
(lambda (syntmp-name-840 syntmp-e-841) (list (quote install-global-transformer)
(syntmp-build-data-95 #f syntmp-name-840) syntmp-e-841)))
(syntmp-chi-top-sequence-146 (lambda (syntmp-body-842 syntmp-r-843 syntmp-w-844
syntmp-s-845 syntmp-m-846 syntmp-esew-847) (syntmp-build-sequence-96
syntmp-s-845 (let syntmp-dobody-848 ((syntmp-body-849 syntmp-body-842)
(syntmp-r-850 syntmp-r-843) (syntmp-w-851 syntmp-w-844) (syntmp-m-852
syntmp-m-846) (syntmp-esew-853 syntmp-esew-847)) (if (null? syntmp-body-849)
(quote ()) (let ((syntmp-first-854 (syntmp-chi-top-150 (car syntmp-body-849)
syntmp-r-850 syntmp-w-851 syntmp-m-852 syntmp-esew-853))) (cons
syntmp-first-854 (syntmp-dobody-848 (cdr syntmp-body-849) syntmp-r-850
syntmp-w-851 syntmp-m-852 syntmp-esew-853)))))))) (syntmp-chi-sequence-145
(lambda (syntmp-body-855 syntmp-r-856 syntmp-w-857 syntmp-s-858)
(syntmp-build-sequence-96 syntmp-s-858 (let syntmp-dobody-859 ((syntmp-body-860
syntmp-body-855) (syntmp-r-861 syntmp-r-856) (syntmp-w-862 syntmp-w-857)) (if
(null? syntmp-body-860) (quote ()) (let ((syntmp-first-863 (syntmp-chi-151 (car
syntmp-body-860) syntmp-r-861 syntmp-w-862))) (cons syntmp-first-863
(syntmp-dobody-859 (cdr syntmp-body-860) syntmp-r-861 syntmp-w-862))))))))
(syntmp-source-wrap-144 (lambda (syntmp-x-864 syntmp-w-865 syntmp-s-866)
(syntmp-wrap-143 (if syntmp-s-866 (make-annotation syntmp-x-864 syntmp-s-866
#f) syntmp-x-864) syntmp-w-865))) (syntmp-wrap-143 (lambda (syntmp-x-867
syntmp-w-868) (cond ((and (null? (syntmp-wrap-marks-118 syntmp-w-868)) (null?
(syntmp-wrap-subst-119 syntmp-w-868))) syntmp-x-867)
((syntmp-syntax-object?-101 syntmp-x-867) (syntmp-make-syntax-object-100
(syntmp-syntax-object-expression-102 syntmp-x-867) (syntmp-join-wraps-134
syntmp-w-868 (syntmp-syntax-object-wrap-103 syntmp-x-867)))) ((null?
syntmp-x-867) syntmp-x-867) (else (syntmp-make-syntax-object-100 syntmp-x-867
syntmp-w-868))))) (syntmp-bound-id-member?-142 (lambda (syntmp-x-869
syntmp-list-870) (and (not (null? syntmp-list-870)) (or (syntmp-bound-id=?-139
syntmp-x-869 (car syntmp-list-870)) (syntmp-bound-id-member?-142 syntmp-x-869
(cdr syntmp-list-870)))))) (syntmp-distinct-bound-ids?-141 (lambda
(syntmp-ids-871) (let syntmp-distinct?-872 ((syntmp-ids-873 syntmp-ids-871))
(or (null? syntmp-ids-873) (and (not (syntmp-bound-id-member?-142 (car
syntmp-ids-873) (cdr syntmp-ids-873))) (syntmp-distinct?-872 (cdr
syntmp-ids-873))))))) (syntmp-valid-bound-ids?-140 (lambda (syntmp-ids-874)
(and (let syntmp-all-ids?-875 ((syntmp-ids-876 syntmp-ids-874)) (or (null?
syntmp-ids-876) (and (syntmp-id?-115 (car syntmp-ids-876)) (syntmp-all-ids?-875
(cdr syntmp-ids-876))))) (syntmp-distinct-bound-ids?-141 syntmp-ids-874))))
(syntmp-bound-id=?-139 (lambda (syntmp-i-877 syntmp-j-878) (if (and
(syntmp-syntax-object?-101 syntmp-i-877) (syntmp-syntax-object?-101
syntmp-j-878)) (and (eq? (let ((syntmp-e-879
(syntmp-syntax-object-expression-102 syntmp-i-877))) (if (syntmp-annotation?-89
syntmp-e-879) (annotation-expression syntmp-e-879) syntmp-e-879)) (let
((syntmp-e-880 (syntmp-syntax-object-expression-102 syntmp-j-878))) (if
(syntmp-annotation?-89 syntmp-e-880) (annotation-expression syntmp-e-880)
syntmp-e-880))) (syntmp-same-marks?-136 (syntmp-wrap-marks-118
(syntmp-syntax-object-wrap-103 syntmp-i-877)) (syntmp-wrap-marks-118
(syntmp-syntax-object-wrap-103 syntmp-j-878)))) (eq? (let ((syntmp-e-881
syntmp-i-877)) (if (syntmp-annotation?-89 syntmp-e-881) (annotation-expression
syntmp-e-881) syntmp-e-881)) (let ((syntmp-e-882 syntmp-j-878)) (if
(syntmp-annotation?-89 syntmp-e-882) (annotation-expression syntmp-e-882)
syntmp-e-882)))))) (syntmp-free-id=?-138 (lambda (syntmp-i-883 syntmp-j-884)
(and (eq? (let ((syntmp-x-885 syntmp-i-883)) (let ((syntmp-e-886 (if
(syntmp-syntax-object?-101 syntmp-x-885) (syntmp-syntax-object-expression-102
syntmp-x-885) syntmp-x-885))) (if (syntmp-annotation?-89 syntmp-e-886)
(annotation-expression syntmp-e-886) syntmp-e-886))) (let ((syntmp-x-887
syntmp-j-884)) (let ((syntmp-e-888 (if (syntmp-syntax-object?-101 syntmp-x-887)
(syntmp-syntax-object-expression-102 syntmp-x-887) syntmp-x-887))) (if
(syntmp-annotation?-89 syntmp-e-888) (annotation-expression syntmp-e-888)
syntmp-e-888)))) (eq? (syntmp-id-var-name-137 syntmp-i-883 (quote (())))
(syntmp-id-var-name-137 syntmp-j-884 (quote (()))))))) (syntmp-id-var-name-137
(lambda (syntmp-id-889 syntmp-w-890) (letrec ((syntmp-search-vector-rib-893
(lambda (syntmp-sym-904 syntmp-subst-905 syntmp-marks-906 syntmp-symnames-907
syntmp-ribcage-908) (let ((syntmp-n-909 (vector-length syntmp-symnames-907)))
(let syntmp-f-910 ((syntmp-i-911 0)) (cond ((syntmp-fx=-87 syntmp-i-911
syntmp-n-909) (syntmp-search-891 syntmp-sym-904 (cdr syntmp-subst-905)
syntmp-marks-906)) ((and (eq? (vector-ref syntmp-symnames-907 syntmp-i-911)
syntmp-sym-904) (syntmp-same-marks?-136 syntmp-marks-906 (vector-ref
(syntmp-ribcage-marks-125 syntmp-ribcage-908) syntmp-i-911))) (values
(vector-ref (syntmp-ribcage-labels-126 syntmp-ribcage-908) syntmp-i-911)
syntmp-marks-906)) (else (syntmp-f-910 (syntmp-fx+-85 syntmp-i-911 1))))))))
(syntmp-search-list-rib-892 (lambda (syntmp-sym-912 syntmp-subst-913
syntmp-marks-914 syntmp-symnames-915 syntmp-ribcage-916) (let syntmp-f-917
((syntmp-symnames-918 syntmp-symnames-915) (syntmp-i-919 0)) (cond ((null?
syntmp-symnames-918) (syntmp-search-891 syntmp-sym-912 (cdr syntmp-subst-913)
syntmp-marks-914)) ((and (eq? (car syntmp-symnames-918) syntmp-sym-912)
(syntmp-same-marks?-136 syntmp-marks-914 (list-ref (syntmp-ribcage-marks-125
syntmp-ribcage-916) syntmp-i-919))) (values (list-ref
(syntmp-ribcage-labels-126 syntmp-ribcage-916) syntmp-i-919) syntmp-marks-914))
(else (syntmp-f-917 (cdr syntmp-symnames-918) (syntmp-fx+-85 syntmp-i-919
1))))))) (syntmp-search-891 (lambda (syntmp-sym-920 syntmp-subst-921
syntmp-marks-922) (if (null? syntmp-subst-921) (values #f syntmp-marks-922)
(let ((syntmp-fst-923 (car syntmp-subst-921))) (if (eq? syntmp-fst-923 (quote
shift)) (syntmp-search-891 syntmp-sym-920 (cdr syntmp-subst-921) (cdr
syntmp-marks-922)) (let ((syntmp-symnames-924 (syntmp-ribcage-symnames-124
syntmp-fst-923))) (if (vector? syntmp-symnames-924)
(syntmp-search-vector-rib-893 syntmp-sym-920 syntmp-subst-921 syntmp-marks-922
syntmp-symnames-924 syntmp-fst-923) (syntmp-search-list-rib-892 syntmp-sym-920
syntmp-subst-921 syntmp-marks-922 syntmp-symnames-924 syntmp-fst-923)))))))))
(cond ((symbol? syntmp-id-889) (or (call-with-values (lambda ()
(syntmp-search-891 syntmp-id-889 (syntmp-wrap-subst-119 syntmp-w-890)
(syntmp-wrap-marks-118 syntmp-w-890))) (lambda (syntmp-x-926 .
syntmp-ignore-925) syntmp-x-926)) syntmp-id-889)) ((syntmp-syntax-object?-101
syntmp-id-889) (let ((syntmp-id-927 (let ((syntmp-e-929
(syntmp-syntax-object-expression-102 syntmp-id-889))) (if
(syntmp-annotation?-89 syntmp-e-929) (annotation-expression syntmp-e-929)
syntmp-e-929))) (syntmp-w1-928 (syntmp-syntax-object-wrap-103 syntmp-id-889)))
(let ((syntmp-marks-930 (syntmp-join-marks-135 (syntmp-wrap-marks-118
syntmp-w-890) (syntmp-wrap-marks-118 syntmp-w1-928)))) (call-with-values
(lambda () (syntmp-search-891 syntmp-id-927 (syntmp-wrap-subst-119
syntmp-w-890) syntmp-marks-930)) (lambda (syntmp-new-id-931 syntmp-marks-932)
(or syntmp-new-id-931 (call-with-values (lambda () (syntmp-search-891
syntmp-id-927 (syntmp-wrap-subst-119 syntmp-w1-928) syntmp-marks-932)) (lambda
(syntmp-x-934 . syntmp-ignore-933) syntmp-x-934)) syntmp-id-927))))))
((syntmp-annotation?-89 syntmp-id-889) (let ((syntmp-id-935 (let ((syntmp-e-936
syntmp-id-889)) (if (syntmp-annotation?-89 syntmp-e-936) (annotation-expression
syntmp-e-936) syntmp-e-936)))) (or (call-with-values (lambda ()
(syntmp-search-891 syntmp-id-935 (syntmp-wrap-subst-119 syntmp-w-890)
(syntmp-wrap-marks-118 syntmp-w-890))) (lambda (syntmp-x-938 .
syntmp-ignore-937) syntmp-x-938)) syntmp-id-935))) (else (syntmp-error-hook-92
(quote id-var-name) "invalid id" syntmp-id-889)))))) (syntmp-same-marks?-136
(lambda (syntmp-x-939 syntmp-y-940) (or (eq? syntmp-x-939 syntmp-y-940) (and
(not (null? syntmp-x-939)) (not (null? syntmp-y-940)) (eq? (car syntmp-x-939)
(car syntmp-y-940)) (syntmp-same-marks?-136 (cdr syntmp-x-939) (cdr
syntmp-y-940)))))) (syntmp-join-marks-135 (lambda (syntmp-m1-941 syntmp-m2-942)
(syntmp-smart-append-133 syntmp-m1-941 syntmp-m2-942))) (syntmp-join-wraps-134
(lambda (syntmp-w1-943 syntmp-w2-944) (let ((syntmp-m1-945
(syntmp-wrap-marks-118 syntmp-w1-943)) (syntmp-s1-946 (syntmp-wrap-subst-119
syntmp-w1-943))) (if (null? syntmp-m1-945) (if (null? syntmp-s1-946)
syntmp-w2-944 (syntmp-make-wrap-117 (syntmp-wrap-marks-118 syntmp-w2-944)
(syntmp-smart-append-133 syntmp-s1-946 (syntmp-wrap-subst-119 syntmp-w2-944))))
(syntmp-make-wrap-117 (syntmp-smart-append-133 syntmp-m1-945
(syntmp-wrap-marks-118 syntmp-w2-944)) (syntmp-smart-append-133 syntmp-s1-946
(syntmp-wrap-subst-119 syntmp-w2-944))))))) (syntmp-smart-append-133 (lambda
(syntmp-m1-947 syntmp-m2-948) (if (null? syntmp-m2-948) syntmp-m1-947 (append
syntmp-m1-947 syntmp-m2-948)))) (syntmp-make-binding-wrap-132 (lambda
(syntmp-ids-949 syntmp-labels-950 syntmp-w-951) (if (null? syntmp-ids-949)
syntmp-w-951 (syntmp-make-wrap-117 (syntmp-wrap-marks-118 syntmp-w-951) (cons
(let ((syntmp-labelvec-952 (list->vector syntmp-labels-950))) (let
((syntmp-n-953 (vector-length syntmp-labelvec-952))) (let
((syntmp-symnamevec-954 (make-vector syntmp-n-953)) (syntmp-marksvec-955
(make-vector syntmp-n-953))) (begin (let syntmp-f-956 ((syntmp-ids-957
syntmp-ids-949) (syntmp-i-958 0)) (if (not (null? syntmp-ids-957))
(call-with-values (lambda () (syntmp-id-sym-name&marks-116 (car syntmp-ids-957)
syntmp-w-951)) (lambda (syntmp-symname-959 syntmp-marks-960) (begin
(vector-set! syntmp-symnamevec-954 syntmp-i-958 syntmp-symname-959)
(vector-set! syntmp-marksvec-955 syntmp-i-958 syntmp-marks-960) (syntmp-f-956
(cdr syntmp-ids-957) (syntmp-fx+-85 syntmp-i-958 1)))))))
(syntmp-make-ribcage-122 syntmp-symnamevec-954 syntmp-marksvec-955
syntmp-labelvec-952))))) (syntmp-wrap-subst-119 syntmp-w-951))))))
(syntmp-extend-ribcage!-131 (lambda (syntmp-ribcage-961 syntmp-id-962
syntmp-label-963) (begin (syntmp-set-ribcage-symnames!-127 syntmp-ribcage-961
(cons (let ((syntmp-e-964 (syntmp-syntax-object-expression-102 syntmp-id-962)))
(if (syntmp-annotation?-89 syntmp-e-964) (annotation-expression syntmp-e-964)
syntmp-e-964)) (syntmp-ribcage-symnames-124 syntmp-ribcage-961)))
(syntmp-set-ribcage-marks!-128 syntmp-ribcage-961 (cons (syntmp-wrap-marks-118
(syntmp-syntax-object-wrap-103 syntmp-id-962)) (syntmp-ribcage-marks-125
syntmp-ribcage-961))) (syntmp-set-ribcage-labels!-129 syntmp-ribcage-961 (cons
syntmp-label-963 (syntmp-ribcage-labels-126 syntmp-ribcage-961))))))
(syntmp-anti-mark-130 (lambda (syntmp-w-965) (syntmp-make-wrap-117 (cons #f
(syntmp-wrap-marks-118 syntmp-w-965)) (cons (quote shift)
(syntmp-wrap-subst-119 syntmp-w-965))))) (syntmp-set-ribcage-labels!-129
(lambda (syntmp-x-966 syntmp-update-967) (vector-set! syntmp-x-966 3
syntmp-update-967))) (syntmp-set-ribcage-marks!-128 (lambda (syntmp-x-968
syntmp-update-969) (vector-set! syntmp-x-968 2 syntmp-update-969)))
(syntmp-set-ribcage-symnames!-127 (lambda (syntmp-x-970 syntmp-update-971)
(vector-set! syntmp-x-970 1 syntmp-update-971))) (syntmp-ribcage-labels-126
(lambda (syntmp-x-972) (vector-ref syntmp-x-972 3))) (syntmp-ribcage-marks-125
(lambda (syntmp-x-973) (vector-ref syntmp-x-973 2)))
(syntmp-ribcage-symnames-124 (lambda (syntmp-x-974) (vector-ref syntmp-x-974
1))) (syntmp-ribcage?-123 (lambda (syntmp-x-975) (and (vector? syntmp-x-975) (=
(vector-length syntmp-x-975) 4) (eq? (vector-ref syntmp-x-975 0) (quote
ribcage))))) (syntmp-make-ribcage-122 (lambda (syntmp-symnames-976
syntmp-marks-977 syntmp-labels-978) (vector (quote ribcage) syntmp-symnames-976
syntmp-marks-977 syntmp-labels-978))) (syntmp-gen-labels-121 (lambda
(syntmp-ls-979) (if (null? syntmp-ls-979) (quote ()) (cons
(syntmp-gen-label-120) (syntmp-gen-labels-121 (cdr syntmp-ls-979))))))
(syntmp-gen-label-120 (lambda () (string #\i))) (syntmp-wrap-subst-119 cdr)
(syntmp-wrap-marks-118 car) (syntmp-make-wrap-117 cons)
(syntmp-id-sym-name&marks-116 (lambda (syntmp-x-980 syntmp-w-981) (if
(syntmp-syntax-object?-101 syntmp-x-980) (values (let ((syntmp-e-982
(syntmp-syntax-object-expression-102 syntmp-x-980))) (if (syntmp-annotation?-89
syntmp-e-982) (annotation-expression syntmp-e-982) syntmp-e-982))
(syntmp-join-marks-135 (syntmp-wrap-marks-118 syntmp-w-981)
(syntmp-wrap-marks-118 (syntmp-syntax-object-wrap-103 syntmp-x-980)))) (values
(let ((syntmp-e-983 syntmp-x-980)) (if (syntmp-annotation?-89 syntmp-e-983)
(annotation-expression syntmp-e-983) syntmp-e-983)) (syntmp-wrap-marks-118
syntmp-w-981))))) (syntmp-id?-115 (lambda (syntmp-x-984) (cond ((symbol?
syntmp-x-984) #t) ((syntmp-syntax-object?-101 syntmp-x-984) (symbol? (let
((syntmp-e-985 (syntmp-syntax-object-expression-102 syntmp-x-984))) (if
(syntmp-annotation?-89 syntmp-e-985) (annotation-expression syntmp-e-985)
syntmp-e-985)))) ((syntmp-annotation?-89 syntmp-x-984) (symbol?
(annotation-expression syntmp-x-984))) (else #f)))) (syntmp-nonsymbol-id?-114
(lambda (syntmp-x-986) (and (syntmp-syntax-object?-101 syntmp-x-986) (symbol?
(let ((syntmp-e-987 (syntmp-syntax-object-expression-102 syntmp-x-986))) (if
(syntmp-annotation?-89 syntmp-e-987) (annotation-expression syntmp-e-987)
syntmp-e-987)))))) (syntmp-global-extend-113 (lambda (syntmp-type-988
syntmp-sym-989 syntmp-val-990) (syntmp-put-global-definition-hook-93
syntmp-sym-989 (cons syntmp-type-988 syntmp-val-990)))) (syntmp-lookup-112
(lambda (syntmp-x-991 syntmp-r-992) (cond ((assq syntmp-x-991 syntmp-r-992) =>
cdr) ((symbol? syntmp-x-991) (or (syntmp-get-global-definition-hook-94
syntmp-x-991) (quote (global)))) (else (quote (displaced-lexical))))))
(syntmp-macros-only-env-111 (lambda (syntmp-r-993) (if (null? syntmp-r-993)
(quote ()) (let ((syntmp-a-994 (car syntmp-r-993))) (if (eq? (cadr
syntmp-a-994) (quote macro)) (cons syntmp-a-994 (syntmp-macros-only-env-111
(cdr syntmp-r-993))) (syntmp-macros-only-env-111 (cdr syntmp-r-993)))))))
(syntmp-extend-var-env-110 (lambda (syntmp-labels-995 syntmp-vars-996
syntmp-r-997) (if (null? syntmp-labels-995) syntmp-r-997
(syntmp-extend-var-env-110 (cdr syntmp-labels-995) (cdr syntmp-vars-996) (cons
(cons (car syntmp-labels-995) (cons (quote lexical) (car syntmp-vars-996)))
syntmp-r-997))))) (syntmp-extend-env-109 (lambda (syntmp-labels-998
syntmp-bindings-999 syntmp-r-1000) (if (null? syntmp-labels-998) syntmp-r-1000
(syntmp-extend-env-109 (cdr syntmp-labels-998) (cdr syntmp-bindings-999) (cons
(cons (car syntmp-labels-998) (car syntmp-bindings-999)) syntmp-r-1000)))))
(syntmp-binding-value-108 cdr) (syntmp-binding-type-107 car)
(syntmp-source-annotation-106 (lambda (syntmp-x-1001) (cond
((syntmp-annotation?-89 syntmp-x-1001) (annotation-source syntmp-x-1001))
((syntmp-syntax-object?-101 syntmp-x-1001) (syntmp-source-annotation-106
(syntmp-syntax-object-expression-102 syntmp-x-1001))) (else #f))))
(syntmp-set-syntax-object-wrap!-105 (lambda (syntmp-x-1002 syntmp-update-1003)
(vector-set! syntmp-x-1002 2 syntmp-update-1003)))
(syntmp-set-syntax-object-expression!-104 (lambda (syntmp-x-1004
syntmp-update-1005) (vector-set! syntmp-x-1004 1 syntmp-update-1005)))
(syntmp-syntax-object-wrap-103 (lambda (syntmp-x-1006) (vector-ref
syntmp-x-1006 2))) (syntmp-syntax-object-expression-102 (lambda (syntmp-x-1007)
(vector-ref syntmp-x-1007 1))) (syntmp-syntax-object?-101 (lambda
(syntmp-x-1008) (and (vector? syntmp-x-1008) (= (vector-length syntmp-x-1008)
3) (eq? (vector-ref syntmp-x-1008 0) (quote syntax-object)))))
(syntmp-make-syntax-object-100 (lambda (syntmp-expression-1009
syntmp-wrap-1010) (vector (quote syntax-object) syntmp-expression-1009
syntmp-wrap-1010))) (syntmp-build-letrec-99 (lambda (syntmp-src-1011
syntmp-vars-1012 syntmp-val-exps-1013 syntmp-body-exp-1014) (if (null?
syntmp-vars-1012) syntmp-body-exp-1014 (list (quote letrec) (map list
syntmp-vars-1012 syntmp-val-exps-1013) syntmp-body-exp-1014))))
(syntmp-build-named-let-98 (lambda (syntmp-src-1015 syntmp-vars-1016
syntmp-val-exps-1017 syntmp-body-exp-1018) (if (null? syntmp-vars-1016)
syntmp-body-exp-1018 (list (quote let) (car syntmp-vars-1016) (map list (cdr
syntmp-vars-1016) syntmp-val-exps-1017) syntmp-body-exp-1018))))
(syntmp-build-let-97 (lambda (syntmp-src-1019 syntmp-vars-1020
syntmp-val-exps-1021 syntmp-body-exp-1022) (if (null? syntmp-vars-1020)
syntmp-body-exp-1022 (list (quote let) (map list syntmp-vars-1020
syntmp-val-exps-1021) syntmp-body-exp-1022)))) (syntmp-build-sequence-96
(lambda (syntmp-src-1023 syntmp-exps-1024) (if (null? (cdr syntmp-exps-1024))
(car syntmp-exps-1024) (cons (quote begin) syntmp-exps-1024))))
(syntmp-build-data-95 (lambda (syntmp-src-1025 syntmp-exp-1026) (if (and
(self-evaluating? syntmp-exp-1026) (not (vector? syntmp-exp-1026)))
syntmp-exp-1026 (list (quote quote) syntmp-exp-1026))))
(syntmp-get-global-definition-hook-94 (lambda (syntmp-symbol-1027) (getprop
syntmp-symbol-1027 (quote *sc-expander*))))
(syntmp-put-global-definition-hook-93 (lambda (syntmp-symbol-1028
syntmp-binding-1029) (putprop syntmp-symbol-1028 (quote *sc-expander*)
syntmp-binding-1029))) (syntmp-error-hook-92 (lambda (syntmp-who-1030
syntmp-why-1031 syntmp-what-1032) (error syntmp-who-1030 "~a ~s"
syntmp-why-1031 syntmp-what-1032))) (syntmp-local-eval-hook-91 (lambda
(syntmp-x-1033) (eval (list syntmp-noexpand-84 syntmp-x-1033)
(interaction-environment)))) (syntmp-top-level-eval-hook-90 (lambda
(syntmp-x-1034) (eval (list syntmp-noexpand-84 syntmp-x-1034)
(interaction-environment)))) (syntmp-annotation?-89 (lambda (syntmp-x-1035)
#f)) (syntmp-fx<-88 <) (syntmp-fx=-87 =) (syntmp-fx--86 -) (syntmp-fx+-85 +)
(syntmp-noexpand-84 "noexpand")) (begin (syntmp-global-extend-113 (quote
local-syntax) (quote letrec-syntax) #t) (syntmp-global-extend-113 (quote
local-syntax) (quote let-syntax) #f) (syntmp-global-extend-113 (quote core)
(quote fluid-let-syntax) (lambda (syntmp-e-1036 syntmp-r-1037 syntmp-w-1038
syntmp-s-1039) ((lambda (syntmp-tmp-1040) ((lambda (syntmp-tmp-1041) (if (if
syntmp-tmp-1041 (apply (lambda (syntmp-_-1042 syntmp-var-1043 syntmp-val-1044
syntmp-e1-1045 syntmp-e2-1046) (syntmp-valid-bound-ids?-140 syntmp-var-1043))
syntmp-tmp-1041) #f) (apply (lambda (syntmp-_-1048 syntmp-var-1049
syntmp-val-1050 syntmp-e1-1051 syntmp-e2-1052) (let ((syntmp-names-1053 (map
(lambda (syntmp-x-1054) (syntmp-id-var-name-137 syntmp-x-1054 syntmp-w-1038))
syntmp-var-1049))) (begin (for-each (lambda (syntmp-id-1056 syntmp-n-1057) (let
((syntmp-t-1058 (syntmp-binding-type-107 (syntmp-lookup-112 syntmp-n-1057
syntmp-r-1037)))) (if (memv syntmp-t-1058 (quote (displaced-lexical)))
(syntax-error (syntmp-source-wrap-144 syntmp-id-1056 syntmp-w-1038
syntmp-s-1039) "identifier out of context")))) syntmp-var-1049
syntmp-names-1053) (syntmp-chi-body-155 (cons syntmp-e1-1051 syntmp-e2-1052)
(syntmp-source-wrap-144 syntmp-e-1036 syntmp-w-1038 syntmp-s-1039)
(syntmp-extend-env-109 syntmp-names-1053 (let ((syntmp-trans-r-1061
(syntmp-macros-only-env-111 syntmp-r-1037))) (map (lambda (syntmp-x-1062) (cons
(quote macro) (syntmp-eval-local-transformer-158 (syntmp-chi-151 syntmp-x-1062
syntmp-trans-r-1061 syntmp-w-1038)))) syntmp-val-1050)) syntmp-r-1037)
syntmp-w-1038)))) syntmp-tmp-1041) ((lambda (syntmp-_-1064) (syntax-error
(syntmp-source-wrap-144 syntmp-e-1036 syntmp-w-1038 syntmp-s-1039)))
syntmp-tmp-1040))) (syntax-dispatch syntmp-tmp-1040 (quote (any #(each (any
any)) any . each-any))))) syntmp-e-1036))) (syntmp-global-extend-113 (quote
core) (quote quote) (lambda (syntmp-e-1065 syntmp-r-1066 syntmp-w-1067
syntmp-s-1068) ((lambda (syntmp-tmp-1069) ((lambda (syntmp-tmp-1070) (if
syntmp-tmp-1070 (apply (lambda (syntmp-_-1071 syntmp-e-1072)
(syntmp-build-data-95 syntmp-s-1068 (syntmp-strip-162 syntmp-e-1072
syntmp-w-1067))) syntmp-tmp-1070) ((lambda (syntmp-_-1073) (syntax-error
(syntmp-source-wrap-144 syntmp-e-1065 syntmp-w-1067 syntmp-s-1068)))
syntmp-tmp-1069))) (syntax-dispatch syntmp-tmp-1069 (quote (any any)))))
syntmp-e-1065))) (syntmp-global-extend-113 (quote core) (quote syntax) (letrec
((syntmp-regen-1081 (lambda (syntmp-x-1082) (let ((syntmp-t-1083 (car
syntmp-x-1082))) (if (memv syntmp-t-1083 (quote (ref))) (cadr syntmp-x-1082)
(if (memv syntmp-t-1083 (quote (primitive))) (cadr syntmp-x-1082) (if (memv
syntmp-t-1083 (quote (quote))) (syntmp-build-data-95 #f (cadr syntmp-x-1082))
(if (memv syntmp-t-1083 (quote (lambda))) (list (quote lambda) (cadr
syntmp-x-1082) (syntmp-regen-1081 (caddr syntmp-x-1082))) (if (memv
syntmp-t-1083 (quote (map))) (let ((syntmp-ls-1084 (map syntmp-regen-1081 (cdr
syntmp-x-1082)))) (cons (if (syntmp-fx=-87 (length syntmp-ls-1084) 2) (quote
map) (quote map)) syntmp-ls-1084)) (cons (car syntmp-x-1082) (map
syntmp-regen-1081 (cdr syntmp-x-1082))))))))))) (syntmp-gen-vector-1080 (lambda
(syntmp-x-1085) (cond ((eq? (car syntmp-x-1085) (quote list)) (cons (quote
vector) (cdr syntmp-x-1085))) ((eq? (car syntmp-x-1085) (quote quote)) (list
(quote quote) (list->vector (cadr syntmp-x-1085)))) (else (list (quote
list->vector) syntmp-x-1085))))) (syntmp-gen-append-1079 (lambda (syntmp-x-1086
syntmp-y-1087) (if (equal? syntmp-y-1087 (quote (quote ()))) syntmp-x-1086
(list (quote append) syntmp-x-1086 syntmp-y-1087)))) (syntmp-gen-cons-1078
(lambda (syntmp-x-1088 syntmp-y-1089) (let ((syntmp-t-1090 (car
syntmp-y-1089))) (if (memv syntmp-t-1090 (quote (quote))) (if (eq? (car
syntmp-x-1088) (quote quote)) (list (quote quote) (cons (cadr syntmp-x-1088)
(cadr syntmp-y-1089))) (if (eq? (cadr syntmp-y-1089) (quote ())) (list (quote
list) syntmp-x-1088) (list (quote cons) syntmp-x-1088 syntmp-y-1089))) (if
(memv syntmp-t-1090 (quote (list))) (cons (quote list) (cons syntmp-x-1088 (cdr
syntmp-y-1089))) (list (quote cons) syntmp-x-1088 syntmp-y-1089))))))
(syntmp-gen-map-1077 (lambda (syntmp-e-1091 syntmp-map-env-1092) (let
((syntmp-formals-1093 (map cdr syntmp-map-env-1092)) (syntmp-actuals-1094 (map
(lambda (syntmp-x-1095) (list (quote ref) (car syntmp-x-1095)))
syntmp-map-env-1092))) (cond ((eq? (car syntmp-e-1091) (quote ref)) (car
syntmp-actuals-1094)) ((andmap (lambda (syntmp-x-1096) (and (eq? (car
syntmp-x-1096) (quote ref)) (memq (cadr syntmp-x-1096) syntmp-formals-1093)))
(cdr syntmp-e-1091)) (cons (quote map) (cons (list (quote primitive) (car
syntmp-e-1091)) (map (let ((syntmp-r-1097 (map cons syntmp-formals-1093
syntmp-actuals-1094))) (lambda (syntmp-x-1098) (cdr (assq (cadr syntmp-x-1098)
syntmp-r-1097)))) (cdr syntmp-e-1091))))) (else (cons (quote map) (cons (list
(quote lambda) syntmp-formals-1093 syntmp-e-1091) syntmp-actuals-1094)))))))
(syntmp-gen-mappend-1076 (lambda (syntmp-e-1099 syntmp-map-env-1100) (list
(quote apply) (quote (primitive append)) (syntmp-gen-map-1077 syntmp-e-1099
syntmp-map-env-1100)))) (syntmp-gen-ref-1075 (lambda (syntmp-src-1101
syntmp-var-1102 syntmp-level-1103 syntmp-maps-1104) (if (syntmp-fx=-87
syntmp-level-1103 0) (values syntmp-var-1102 syntmp-maps-1104) (if (null?
syntmp-maps-1104) (syntax-error syntmp-src-1101 "missing ellipsis in syntax
form") (call-with-values (lambda () (syntmp-gen-ref-1075 syntmp-src-1101
syntmp-var-1102 (syntmp-fx--86 syntmp-level-1103 1) (cdr syntmp-maps-1104)))
(lambda (syntmp-outer-var-1105 syntmp-outer-maps-1106) (let ((syntmp-b-1107
(assq syntmp-outer-var-1105 (car syntmp-maps-1104)))) (if syntmp-b-1107 (values
(cdr syntmp-b-1107) syntmp-maps-1104) (let ((syntmp-inner-var-1108
(syntmp-gen-var-163 (quote tmp)))) (values syntmp-inner-var-1108 (cons (cons
(cons syntmp-outer-var-1105 syntmp-inner-var-1108) (car syntmp-maps-1104))
syntmp-outer-maps-1106))))))))))) (syntmp-gen-syntax-1074 (lambda
(syntmp-src-1109 syntmp-e-1110 syntmp-r-1111 syntmp-maps-1112
syntmp-ellipsis?-1113) (if (syntmp-id?-115 syntmp-e-1110) (let
((syntmp-label-1114 (syntmp-id-var-name-137 syntmp-e-1110 (quote (()))))) (let
((syntmp-b-1115 (syntmp-lookup-112 syntmp-label-1114 syntmp-r-1111))) (if (eq?
(syntmp-binding-type-107 syntmp-b-1115) (quote syntax)) (call-with-values
(lambda () (let ((syntmp-var.lev-1116 (syntmp-binding-value-108
syntmp-b-1115))) (syntmp-gen-ref-1075 syntmp-src-1109 (car syntmp-var.lev-1116)
(cdr syntmp-var.lev-1116) syntmp-maps-1112))) (lambda (syntmp-var-1117
syntmp-maps-1118) (values (list (quote ref) syntmp-var-1117)
syntmp-maps-1118))) (if (syntmp-ellipsis?-1113 syntmp-e-1110) (syntax-error
syntmp-src-1109 "misplaced ellipsis in syntax form") (values (list (quote
quote) syntmp-e-1110) syntmp-maps-1112))))) ((lambda (syntmp-tmp-1119) ((lambda
(syntmp-tmp-1120) (if (if syntmp-tmp-1120 (apply (lambda (syntmp-dots-1121
syntmp-e-1122) (syntmp-ellipsis?-1113 syntmp-dots-1121)) syntmp-tmp-1120) #f)
(apply (lambda (syntmp-dots-1123 syntmp-e-1124) (syntmp-gen-syntax-1074
syntmp-src-1109 syntmp-e-1124 syntmp-r-1111 syntmp-maps-1112 (lambda
(syntmp-x-1125) #f))) syntmp-tmp-1120) ((lambda (syntmp-tmp-1126) (if (if
syntmp-tmp-1126 (apply (lambda (syntmp-x-1127 syntmp-dots-1128 syntmp-y-1129)
(syntmp-ellipsis?-1113 syntmp-dots-1128)) syntmp-tmp-1126) #f) (apply (lambda
(syntmp-x-1130 syntmp-dots-1131 syntmp-y-1132) (let syntmp-f-1133
((syntmp-y-1134 syntmp-y-1132) (syntmp-k-1135 (lambda (syntmp-maps-1136)
(call-with-values (lambda () (syntmp-gen-syntax-1074 syntmp-src-1109
syntmp-x-1130 syntmp-r-1111 (cons (quote ()) syntmp-maps-1136)
syntmp-ellipsis?-1113)) (lambda (syntmp-x-1137 syntmp-maps-1138) (if (null?
(car syntmp-maps-1138)) (syntax-error syntmp-src-1109 "extra ellipsis in syntax
form") (values (syntmp-gen-map-1077 syntmp-x-1137 (car syntmp-maps-1138)) (cdr
syntmp-maps-1138)))))))) ((lambda (syntmp-tmp-1139) ((lambda (syntmp-tmp-1140)
(if (if syntmp-tmp-1140 (apply (lambda (syntmp-dots-1141 syntmp-y-1142)
(syntmp-ellipsis?-1113 syntmp-dots-1141)) syntmp-tmp-1140) #f) (apply (lambda
(syntmp-dots-1143 syntmp-y-1144) (syntmp-f-1133 syntmp-y-1144 (lambda
(syntmp-maps-1145) (call-with-values (lambda () (syntmp-k-1135 (cons (quote ())
syntmp-maps-1145))) (lambda (syntmp-x-1146 syntmp-maps-1147) (if (null? (car
syntmp-maps-1147)) (syntax-error syntmp-src-1109 "extra ellipsis in syntax
form") (values (syntmp-gen-mappend-1076 syntmp-x-1146 (car syntmp-maps-1147))
(cdr syntmp-maps-1147)))))))) syntmp-tmp-1140) ((lambda (syntmp-_-1148)
(call-with-values (lambda () (syntmp-gen-syntax-1074 syntmp-src-1109
syntmp-y-1134 syntmp-r-1111 syntmp-maps-1112 syntmp-ellipsis?-1113)) (lambda
(syntmp-y-1149 syntmp-maps-1150) (call-with-values (lambda () (syntmp-k-1135
syntmp-maps-1150)) (lambda (syntmp-x-1151 syntmp-maps-1152) (values
(syntmp-gen-append-1079 syntmp-x-1151 syntmp-y-1149) syntmp-maps-1152))))))
syntmp-tmp-1139))) (syntax-dispatch syntmp-tmp-1139 (quote (any . any)))))
syntmp-y-1134))) syntmp-tmp-1126) ((lambda (syntmp-tmp-1153) (if
syntmp-tmp-1153 (apply (lambda (syntmp-x-1154 syntmp-y-1155) (call-with-values
(lambda () (syntmp-gen-syntax-1074 syntmp-src-1109 syntmp-x-1154 syntmp-r-1111
syntmp-maps-1112 syntmp-ellipsis?-1113)) (lambda (syntmp-x-1156
syntmp-maps-1157) (call-with-values (lambda () (syntmp-gen-syntax-1074
syntmp-src-1109 syntmp-y-1155 syntmp-r-1111 syntmp-maps-1157
syntmp-ellipsis?-1113)) (lambda (syntmp-y-1158 syntmp-maps-1159) (values
(syntmp-gen-cons-1078 syntmp-x-1156 syntmp-y-1158) syntmp-maps-1159))))))
syntmp-tmp-1153) ((lambda (syntmp-tmp-1160) (if syntmp-tmp-1160 (apply (lambda
(syntmp-e1-1161 syntmp-e2-1162) (call-with-values (lambda ()
(syntmp-gen-syntax-1074 syntmp-src-1109 (cons syntmp-e1-1161 syntmp-e2-1162)
syntmp-r-1111 syntmp-maps-1112 syntmp-ellipsis?-1113)) (lambda (syntmp-e-1164
syntmp-maps-1165) (values (syntmp-gen-vector-1080 syntmp-e-1164)
syntmp-maps-1165)))) syntmp-tmp-1160) ((lambda (syntmp-_-1166) (values (list
(quote quote) syntmp-e-1110) syntmp-maps-1112)) syntmp-tmp-1119)))
(syntax-dispatch syntmp-tmp-1119 (quote #(vector (any . each-any)))))))
(syntax-dispatch syntmp-tmp-1119 (quote (any . any)))))) (syntax-dispatch
syntmp-tmp-1119 (quote (any any . any)))))) (syntax-dispatch syntmp-tmp-1119
(quote (any any))))) syntmp-e-1110))))) (lambda (syntmp-e-1167 syntmp-r-1168
syntmp-w-1169 syntmp-s-1170) (let ((syntmp-e-1171 (syntmp-source-wrap-144
syntmp-e-1167 syntmp-w-1169 syntmp-s-1170))) ((lambda (syntmp-tmp-1172)
((lambda (syntmp-tmp-1173) (if syntmp-tmp-1173 (apply (lambda (syntmp-_-1174
syntmp-x-1175) (call-with-values (lambda () (syntmp-gen-syntax-1074
syntmp-e-1171 syntmp-x-1175 syntmp-r-1168 (quote ()) syntmp-ellipsis?-160))
(lambda (syntmp-e-1176 syntmp-maps-1177) (syntmp-regen-1081 syntmp-e-1176))))
syntmp-tmp-1173) ((lambda (syntmp-_-1178) (syntax-error syntmp-e-1171))
syntmp-tmp-1172))) (syntax-dispatch syntmp-tmp-1172 (quote (any any)))))
syntmp-e-1171))))) (syntmp-global-extend-113 (quote core) (quote lambda)
(lambda (syntmp-e-1179 syntmp-r-1180 syntmp-w-1181 syntmp-s-1182) ((lambda
(syntmp-tmp-1183) ((lambda (syntmp-tmp-1184) (if syntmp-tmp-1184 (apply (lambda
(syntmp-_-1185 syntmp-c-1186) (syntmp-chi-lambda-clause-156
(syntmp-source-wrap-144 syntmp-e-1179 syntmp-w-1181 syntmp-s-1182)
syntmp-c-1186 syntmp-r-1180 syntmp-w-1181 (lambda (syntmp-vars-1187
syntmp-body-1188) (list (quote lambda) syntmp-vars-1187 syntmp-body-1188))))
syntmp-tmp-1184) (syntax-error syntmp-tmp-1183))) (syntax-dispatch
syntmp-tmp-1183 (quote (any . any))))) syntmp-e-1179)))
(syntmp-global-extend-113 (quote core) (quote let) (letrec
((syntmp-chi-let-1189 (lambda (syntmp-e-1190 syntmp-r-1191 syntmp-w-1192
syntmp-s-1193 syntmp-constructor-1194 syntmp-ids-1195 syntmp-vals-1196
syntmp-exps-1197) (if (not (syntmp-valid-bound-ids?-140 syntmp-ids-1195))
(syntax-error syntmp-e-1190 "duplicate bound variable in") (let
((syntmp-labels-1198 (syntmp-gen-labels-121 syntmp-ids-1195))
(syntmp-new-vars-1199 (map syntmp-gen-var-163 syntmp-ids-1195))) (let
((syntmp-nw-1200 (syntmp-make-binding-wrap-132 syntmp-ids-1195
syntmp-labels-1198 syntmp-w-1192)) (syntmp-nr-1201 (syntmp-extend-var-env-110
syntmp-labels-1198 syntmp-new-vars-1199 syntmp-r-1191)))
(syntmp-constructor-1194 syntmp-s-1193 syntmp-new-vars-1199 (map (lambda
(syntmp-x-1202) (syntmp-chi-151 syntmp-x-1202 syntmp-r-1191 syntmp-w-1192))
syntmp-vals-1196) (syntmp-chi-body-155 syntmp-exps-1197 (syntmp-source-wrap-144
syntmp-e-1190 syntmp-nw-1200 syntmp-s-1193) syntmp-nr-1201
syntmp-nw-1200)))))))) (lambda (syntmp-e-1203 syntmp-r-1204 syntmp-w-1205
syntmp-s-1206) ((lambda (syntmp-tmp-1207) ((lambda (syntmp-tmp-1208) (if
syntmp-tmp-1208 (apply (lambda (syntmp-_-1209 syntmp-id-1210 syntmp-val-1211
syntmp-e1-1212 syntmp-e2-1213) (syntmp-chi-let-1189 syntmp-e-1203 syntmp-r-1204
syntmp-w-1205 syntmp-s-1206 syntmp-build-let-97 syntmp-id-1210 syntmp-val-1211
(cons syntmp-e1-1212 syntmp-e2-1213))) syntmp-tmp-1208) ((lambda
(syntmp-tmp-1217) (if (if syntmp-tmp-1217 (apply (lambda (syntmp-_-1218
syntmp-f-1219 syntmp-id-1220 syntmp-val-1221 syntmp-e1-1222 syntmp-e2-1223)
(syntmp-id?-115 syntmp-f-1219)) syntmp-tmp-1217) #f) (apply (lambda
(syntmp-_-1224 syntmp-f-1225 syntmp-id-1226 syntmp-val-1227 syntmp-e1-1228
syntmp-e2-1229) (syntmp-chi-let-1189 syntmp-e-1203 syntmp-r-1204 syntmp-w-1205
syntmp-s-1206 syntmp-build-named-let-98 (cons syntmp-f-1225 syntmp-id-1226)
syntmp-val-1227 (cons syntmp-e1-1228 syntmp-e2-1229))) syntmp-tmp-1217)
((lambda (syntmp-_-1233) (syntax-error (syntmp-source-wrap-144 syntmp-e-1203
syntmp-w-1205 syntmp-s-1206))) syntmp-tmp-1207))) (syntax-dispatch
syntmp-tmp-1207 (quote (any any #(each (any any)) any . each-any))))))
(syntax-dispatch syntmp-tmp-1207 (quote (any #(each (any any)) any .
each-any))))) syntmp-e-1203)))) (syntmp-global-extend-113 (quote core) (quote
letrec) (lambda (syntmp-e-1234 syntmp-r-1235 syntmp-w-1236 syntmp-s-1237)
((lambda (syntmp-tmp-1238) ((lambda (syntmp-tmp-1239) (if syntmp-tmp-1239
(apply (lambda (syntmp-_-1240 syntmp-id-1241 syntmp-val-1242 syntmp-e1-1243
syntmp-e2-1244) (let ((syntmp-ids-1245 syntmp-id-1241)) (if (not
(syntmp-valid-bound-ids?-140 syntmp-ids-1245)) (syntax-error syntmp-e-1234
"duplicate bound variable in") (let ((syntmp-labels-1247 (syntmp-gen-labels-121
syntmp-ids-1245)) (syntmp-new-vars-1248 (map syntmp-gen-var-163
syntmp-ids-1245))) (let ((syntmp-w-1249 (syntmp-make-binding-wrap-132
syntmp-ids-1245 syntmp-labels-1247 syntmp-w-1236)) (syntmp-r-1250
(syntmp-extend-var-env-110 syntmp-labels-1247 syntmp-new-vars-1248
syntmp-r-1235))) (syntmp-build-letrec-99 syntmp-s-1237 syntmp-new-vars-1248
(map (lambda (syntmp-x-1251) (syntmp-chi-151 syntmp-x-1251 syntmp-r-1250
syntmp-w-1249)) syntmp-val-1242) (syntmp-chi-body-155 (cons syntmp-e1-1243
syntmp-e2-1244) (syntmp-source-wrap-144 syntmp-e-1234 syntmp-w-1249
syntmp-s-1237) syntmp-r-1250 syntmp-w-1249))))))) syntmp-tmp-1239) ((lambda
(syntmp-_-1254) (syntax-error (syntmp-source-wrap-144 syntmp-e-1234
syntmp-w-1236 syntmp-s-1237))) syntmp-tmp-1238))) (syntax-dispatch
syntmp-tmp-1238 (quote (any #(each (any any)) any . each-any)))))
syntmp-e-1234))) (syntmp-global-extend-113 (quote core) (quote set!) (lambda
(syntmp-e-1255 syntmp-r-1256 syntmp-w-1257 syntmp-s-1258) ((lambda
(syntmp-tmp-1259) ((lambda (syntmp-tmp-1260) (if (if syntmp-tmp-1260 (apply
(lambda (syntmp-_-1261 syntmp-id-1262 syntmp-val-1263) (syntmp-id?-115
syntmp-id-1262)) syntmp-tmp-1260) #f) (apply (lambda (syntmp-_-1264
syntmp-id-1265 syntmp-val-1266) (let ((syntmp-val-1267 (syntmp-chi-151
syntmp-val-1266 syntmp-r-1256 syntmp-w-1257)) (syntmp-n-1268
(syntmp-id-var-name-137 syntmp-id-1265 syntmp-w-1257))) (let ((syntmp-b-1269
(syntmp-lookup-112 syntmp-n-1268 syntmp-r-1256))) (let ((syntmp-t-1270
(syntmp-binding-type-107 syntmp-b-1269))) (if (memv syntmp-t-1270 (quote
(lexical))) (list (quote set!) (syntmp-binding-value-108 syntmp-b-1269)
syntmp-val-1267) (if (memv syntmp-t-1270 (quote (global))) (list (quote set!)
syntmp-n-1268 syntmp-val-1267) (if (memv syntmp-t-1270 (quote
(displaced-lexical))) (syntax-error (syntmp-wrap-143 syntmp-id-1265
syntmp-w-1257) "identifier out of context") (syntax-error
(syntmp-source-wrap-144 syntmp-e-1255 syntmp-w-1257 syntmp-s-1258)))))))))
syntmp-tmp-1260) ((lambda (syntmp-tmp-1271) (if syntmp-tmp-1271 (apply (lambda
(syntmp-_-1272 syntmp-getter-1273 syntmp-arg-1274 syntmp-val-1275) (cons
(syntmp-chi-151 (list (quote #(syntax-object setter ((top) #(ribcage #(_ getter
arg val) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ())
#(ribcage #(e r w s) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
(lambda-var-list gen-var strip strip-annotation ellipsis? chi-void
eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro
chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-wrap!
set-syntax-object-expression! syntax-object-wrap syntax-object-expression
syntax-object? make-syntax-object build-lexical-var build-letrec
build-named-let build-let build-sequence build-data build-primref build-lambda
build-global-definition build-global-assignment build-global-reference
build-lexical-assignment build-lexical-reference build-conditional
build-application get-global-definition-hook put-global-definition-hook
gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx=
fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i")) #(ribcage (define-structure) ((top)) ("i"))))) syntmp-getter-1273)
syntmp-r-1256 syntmp-w-1257) (map (lambda (syntmp-e-1276) (syntmp-chi-151
syntmp-e-1276 syntmp-r-1256 syntmp-w-1257)) (append syntmp-arg-1274 (list
syntmp-val-1275))))) syntmp-tmp-1271) ((lambda (syntmp-_-1278) (syntax-error
(syntmp-source-wrap-144 syntmp-e-1255 syntmp-w-1257 syntmp-s-1258)))
syntmp-tmp-1259))) (syntax-dispatch syntmp-tmp-1259 (quote (any (any .
each-any) any)))))) (syntax-dispatch syntmp-tmp-1259 (quote (any any any)))))
syntmp-e-1255))) (syntmp-global-extend-113 (quote begin) (quote begin) (quote
())) (syntmp-global-extend-113 (quote define) (quote define) (quote ()))
(syntmp-global-extend-113 (quote define-syntax) (quote define-syntax) (quote
())) (syntmp-global-extend-113 (quote eval-when) (quote eval-when) (quote ()))
(syntmp-global-extend-113 (quote core) (quote syntax-case) (letrec
((syntmp-gen-syntax-case-1282 (lambda (syntmp-x-1283 syntmp-keys-1284
syntmp-clauses-1285 syntmp-r-1286) (if (null? syntmp-clauses-1285) (list (quote
syntax-error) syntmp-x-1283) ((lambda (syntmp-tmp-1287) ((lambda
(syntmp-tmp-1288) (if syntmp-tmp-1288 (apply (lambda (syntmp-pat-1289
syntmp-exp-1290) (if (and (syntmp-id?-115 syntmp-pat-1289) (andmap (lambda
(syntmp-x-1291) (not (syntmp-free-id=?-138 syntmp-pat-1289 syntmp-x-1291)))
(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 build-lexical-var build-letrec
build-named-let build-let build-sequence build-data build-primref build-lambda
build-global-definition build-global-assignment build-global-reference
build-lexical-assignment build-lexical-reference build-conditional
build-application get-global-definition-hook put-global-definition-hook
gensym-hook error-hook local-eval-hook top-level-eval-hook annotation? fx< fx=
fx- fx+ noexpand) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i")) #(ribcage (define-structure) ((top)) ("i"))))) syntmp-keys-1284)))
(let ((syntmp-labels-1292 (list (syntmp-gen-label-120))) (syntmp-var-1293
(syntmp-gen-var-163 syntmp-pat-1289))) (list (list (quote lambda) (list
syntmp-var-1293) (syntmp-chi-151 syntmp-exp-1290 (syntmp-extend-env-109
syntmp-labels-1292 (list (cons (quote syntax) (cons syntmp-var-1293 0)))
syntmp-r-1286) (syntmp-make-binding-wrap-132 (list syntmp-pat-1289)
syntmp-labels-1292 (quote (()))))) syntmp-x-1283)) (syntmp-gen-clause-1281
syntmp-x-1283 syntmp-keys-1284 (cdr syntmp-clauses-1285) syntmp-r-1286
syntmp-pat-1289 #t syntmp-exp-1290))) syntmp-tmp-1288) ((lambda
(syntmp-tmp-1294) (if syntmp-tmp-1294 (apply (lambda (syntmp-pat-1295
syntmp-fender-1296 syntmp-exp-1297) (syntmp-gen-clause-1281 syntmp-x-1283
syntmp-keys-1284 (cdr syntmp-clauses-1285) syntmp-r-1286 syntmp-pat-1295
syntmp-fender-1296 syntmp-exp-1297)) syntmp-tmp-1294) ((lambda (syntmp-_-1298)
(syntax-error (car syntmp-clauses-1285) "invalid syntax-case clause"))
syntmp-tmp-1287))) (syntax-dispatch syntmp-tmp-1287 (quote (any any any))))))
(syntax-dispatch syntmp-tmp-1287 (quote (any any))))) (car
syntmp-clauses-1285))))) (syntmp-gen-clause-1281 (lambda (syntmp-x-1299
syntmp-keys-1300 syntmp-clauses-1301 syntmp-r-1302 syntmp-pat-1303
syntmp-fender-1304 syntmp-exp-1305) (call-with-values (lambda ()
(syntmp-convert-pattern-1279 syntmp-pat-1303 syntmp-keys-1300)) (lambda
(syntmp-p-1306 syntmp-pvars-1307) (cond ((not (syntmp-distinct-bound-ids?-141
(map car syntmp-pvars-1307))) (syntax-error syntmp-pat-1303 "duplicate pattern
variable in syntax-case pattern")) ((not (andmap (lambda (syntmp-x-1308) (not
(syntmp-ellipsis?-160 (car syntmp-x-1308)))) syntmp-pvars-1307)) (syntax-error
syntmp-pat-1303 "misplaced ellipsis in syntax-case pattern")) (else (let
((syntmp-y-1309 (syntmp-gen-var-163 (quote tmp)))) (list (list (quote lambda)
(list syntmp-y-1309) (let ((syntmp-y-1310 syntmp-y-1309)) (list (quote if)
((lambda (syntmp-tmp-1311) ((lambda (syntmp-tmp-1312) (if syntmp-tmp-1312
(apply (lambda () syntmp-y-1310) syntmp-tmp-1312) ((lambda (syntmp-_-1313)
(list (quote if) syntmp-y-1310 (syntmp-build-dispatch-call-1280
syntmp-pvars-1307 syntmp-fender-1304 syntmp-y-1310 syntmp-r-1302)
(syntmp-build-data-95 #f #f))) syntmp-tmp-1311))) (syntax-dispatch
syntmp-tmp-1311 (quote #(atom #t))))) syntmp-fender-1304)
(syntmp-build-dispatch-call-1280 syntmp-pvars-1307 syntmp-exp-1305
syntmp-y-1310 syntmp-r-1302) (syntmp-gen-syntax-case-1282 syntmp-x-1299
syntmp-keys-1300 syntmp-clauses-1301 syntmp-r-1302)))) (if (eq? syntmp-p-1306
(quote any)) (list (quote list) syntmp-x-1299) (list (quote syntax-dispatch)
syntmp-x-1299 (syntmp-build-data-95 #f syntmp-p-1306)))))))))))
(syntmp-build-dispatch-call-1280 (lambda (syntmp-pvars-1314 syntmp-exp-1315
syntmp-y-1316 syntmp-r-1317) (let ((syntmp-ids-1318 (map car
syntmp-pvars-1314)) (syntmp-levels-1319 (map cdr syntmp-pvars-1314))) (let
((syntmp-labels-1320 (syntmp-gen-labels-121 syntmp-ids-1318))
(syntmp-new-vars-1321 (map syntmp-gen-var-163 syntmp-ids-1318))) (list (quote
apply) (list (quote lambda) syntmp-new-vars-1321 (syntmp-chi-151
syntmp-exp-1315 (syntmp-extend-env-109 syntmp-labels-1320 (map (lambda
(syntmp-var-1322 syntmp-level-1323) (cons (quote syntax) (cons syntmp-var-1322
syntmp-level-1323))) syntmp-new-vars-1321 (map cdr syntmp-pvars-1314))
syntmp-r-1317) (syntmp-make-binding-wrap-132 syntmp-ids-1318 syntmp-labels-1320
(quote (()))))) syntmp-y-1316))))) (syntmp-convert-pattern-1279 (lambda
(syntmp-pattern-1324 syntmp-keys-1325) (let syntmp-cvt-1326 ((syntmp-p-1327
syntmp-pattern-1324) (syntmp-n-1328 0) (syntmp-ids-1329 (quote ()))) (if
(syntmp-id?-115 syntmp-p-1327) (if (syntmp-bound-id-member?-142 syntmp-p-1327
syntmp-keys-1325) (values (vector (quote free-id) syntmp-p-1327)
syntmp-ids-1329) (values (quote any) (cons (cons syntmp-p-1327 syntmp-n-1328)
syntmp-ids-1329))) ((lambda (syntmp-tmp-1330) ((lambda (syntmp-tmp-1331) (if
(if syntmp-tmp-1331 (apply (lambda (syntmp-x-1332 syntmp-dots-1333)
(syntmp-ellipsis?-160 syntmp-dots-1333)) syntmp-tmp-1331) #f) (apply (lambda
(syntmp-x-1334 syntmp-dots-1335) (call-with-values (lambda () (syntmp-cvt-1326
syntmp-x-1334 (syntmp-fx+-85 syntmp-n-1328 1) syntmp-ids-1329)) (lambda
(syntmp-p-1336 syntmp-ids-1337) (values (if (eq? syntmp-p-1336 (quote any))
(quote each-any) (vector (quote each) syntmp-p-1336)) syntmp-ids-1337))))
syntmp-tmp-1331) ((lambda (syntmp-tmp-1338) (if syntmp-tmp-1338 (apply (lambda
(syntmp-x-1339 syntmp-y-1340) (call-with-values (lambda () (syntmp-cvt-1326
syntmp-y-1340 syntmp-n-1328 syntmp-ids-1329)) (lambda (syntmp-y-1341
syntmp-ids-1342) (call-with-values (lambda () (syntmp-cvt-1326 syntmp-x-1339
syntmp-n-1328 syntmp-ids-1342)) (lambda (syntmp-x-1343 syntmp-ids-1344) (values
(cons syntmp-x-1343 syntmp-y-1341) syntmp-ids-1344)))))) syntmp-tmp-1338)
((lambda (syntmp-tmp-1345) (if syntmp-tmp-1345 (apply (lambda () (values (quote
()) syntmp-ids-1329)) syntmp-tmp-1345) ((lambda (syntmp-tmp-1346) (if
syntmp-tmp-1346 (apply (lambda (syntmp-x-1347) (call-with-values (lambda ()
(syntmp-cvt-1326 syntmp-x-1347 syntmp-n-1328 syntmp-ids-1329)) (lambda
(syntmp-p-1349 syntmp-ids-1350) (values (vector (quote vector) syntmp-p-1349)
syntmp-ids-1350)))) syntmp-tmp-1346) ((lambda (syntmp-x-1351) (values (vector
(quote atom) (syntmp-strip-162 syntmp-p-1327 (quote (())))) syntmp-ids-1329))
syntmp-tmp-1330))) (syntax-dispatch syntmp-tmp-1330 (quote #(vector
each-any)))))) (syntax-dispatch syntmp-tmp-1330 (quote ()))))) (syntax-dispatch
syntmp-tmp-1330 (quote (any . any)))))) (syntax-dispatch syntmp-tmp-1330 (quote
(any any))))) syntmp-p-1327)))))) (lambda (syntmp-e-1352 syntmp-r-1353
syntmp-w-1354 syntmp-s-1355) (let ((syntmp-e-1356 (syntmp-source-wrap-144
syntmp-e-1352 syntmp-w-1354 syntmp-s-1355))) ((lambda (syntmp-tmp-1357)
((lambda (syntmp-tmp-1358) (if syntmp-tmp-1358 (apply (lambda (syntmp-_-1359
syntmp-val-1360 syntmp-key-1361 syntmp-m-1362) (if (andmap (lambda
(syntmp-x-1363) (and (syntmp-id?-115 syntmp-x-1363) (not (syntmp-ellipsis?-160
syntmp-x-1363)))) syntmp-key-1361) (let ((syntmp-x-1365 (syntmp-gen-var-163
(quote tmp)))) (list (list (quote lambda) (list syntmp-x-1365)
(syntmp-gen-syntax-case-1282 syntmp-x-1365 syntmp-key-1361 syntmp-m-1362
syntmp-r-1353)) (syntmp-chi-151 syntmp-val-1360 syntmp-r-1353 (quote (())))))
(syntax-error syntmp-e-1356 "invalid literals list in"))) syntmp-tmp-1358)
(syntax-error syntmp-tmp-1357))) (syntax-dispatch syntmp-tmp-1357 (quote (any
any each-any . each-any))))) syntmp-e-1356))))) (set! sc-expand (let
((syntmp-m-1368 (quote e)) (syntmp-esew-1369 (quote (eval)))) (lambda
(syntmp-x-1370) (if (and (pair? syntmp-x-1370) (equal? (car syntmp-x-1370)
syntmp-noexpand-84)) (cadr syntmp-x-1370) (syntmp-chi-top-150 syntmp-x-1370
(quote ()) (quote ((top))) syntmp-m-1368 syntmp-esew-1369))))) (set! sc-expand3
(let ((syntmp-m-1371 (quote e)) (syntmp-esew-1372 (quote (eval)))) (lambda
(syntmp-x-1374 . syntmp-rest-1373) (if (and (pair? syntmp-x-1374) (equal? (car
syntmp-x-1374) syntmp-noexpand-84)) (cadr syntmp-x-1374) (syntmp-chi-top-150
syntmp-x-1374 (quote ()) (quote ((top))) (if (null? syntmp-rest-1373)
syntmp-m-1371 (car syntmp-rest-1373)) (if (or (null? syntmp-rest-1373) (null?
(cdr syntmp-rest-1373))) syntmp-esew-1372 (cadr syntmp-rest-1373))))))) (set!
identifier? (lambda (syntmp-x-1375) (syntmp-nonsymbol-id?-114 syntmp-x-1375)))
(set! datum->syntax-object (lambda (syntmp-id-1376 syntmp-datum-1377)
(syntmp-make-syntax-object-100 syntmp-datum-1377 (syntmp-syntax-object-wrap-103
syntmp-id-1376)))) (set! syntax-object->datum (lambda (syntmp-x-1378)
(syntmp-strip-162 syntmp-x-1378 (quote (()))))) (set! generate-temporaries
(lambda (syntmp-ls-1379) (begin (let ((syntmp-x-1380 syntmp-ls-1379)) (if (not
(list? syntmp-x-1380)) (syntmp-error-hook-92 (quote generate-temporaries)
"invalid argument" syntmp-x-1380))) (map (lambda (syntmp-x-1381)
(syntmp-wrap-143 (gensym) (quote ((top))))) syntmp-ls-1379)))) (set!
free-identifier=? (lambda (syntmp-x-1382 syntmp-y-1383) (begin (let
((syntmp-x-1384 syntmp-x-1382)) (if (not (syntmp-nonsymbol-id?-114
syntmp-x-1384)) (syntmp-error-hook-92 (quote free-identifier=?) "invalid
argument" syntmp-x-1384))) (let ((syntmp-x-1385 syntmp-y-1383)) (if (not
(syntmp-nonsymbol-id?-114 syntmp-x-1385)) (syntmp-error-hook-92 (quote
free-identifier=?) "invalid argument" syntmp-x-1385))) (syntmp-free-id=?-138
syntmp-x-1382 syntmp-y-1383)))) (set! bound-identifier=? (lambda (syntmp-x-1386
syntmp-y-1387) (begin (let ((syntmp-x-1388 syntmp-x-1386)) (if (not
(syntmp-nonsymbol-id?-114 syntmp-x-1388)) (syntmp-error-hook-92 (quote
bound-identifier=?) "invalid argument" syntmp-x-1388))) (let ((syntmp-x-1389
syntmp-y-1387)) (if (not (syntmp-nonsymbol-id?-114 syntmp-x-1389))
(syntmp-error-hook-92 (quote bound-identifier=?) "invalid argument"
syntmp-x-1389))) (syntmp-bound-id=?-139 syntmp-x-1386 syntmp-y-1387)))) (set!
syntax-error (lambda (syntmp-object-1391 . syntmp-messages-1390) (begin
(for-each (lambda (syntmp-x-1392) (let ((syntmp-x-1393 syntmp-x-1392)) (if (not
(string? syntmp-x-1393)) (syntmp-error-hook-92 (quote syntax-error) "invalid
argument" syntmp-x-1393)))) syntmp-messages-1390) (let ((syntmp-message-1394
(if (null? syntmp-messages-1390) "invalid syntax" (apply string-append
syntmp-messages-1390)))) (syntmp-error-hook-92 #f syntmp-message-1394
(syntmp-strip-162 syntmp-object-1391 (quote (())))))))) (set!
install-global-transformer (lambda (syntmp-sym-1395 syntmp-v-1396) (begin (let
((syntmp-x-1397 syntmp-sym-1395)) (if (not (symbol? syntmp-x-1397))
(syntmp-error-hook-92 (quote define-syntax) "invalid argument" syntmp-x-1397)))
(let ((syntmp-x-1398 syntmp-v-1396)) (if (not (procedure? syntmp-x-1398))
(syntmp-error-hook-92 (quote define-syntax) "invalid argument" syntmp-x-1398)))
(syntmp-global-extend-113 (quote macro) syntmp-sym-1395 syntmp-v-1396))))
(letrec ((syntmp-match-1403 (lambda (syntmp-e-1404 syntmp-p-1405 syntmp-w-1406
syntmp-r-1407) (cond ((not syntmp-r-1407) #f) ((eq? syntmp-p-1405 (quote any))
(cons (syntmp-wrap-143 syntmp-e-1404 syntmp-w-1406) syntmp-r-1407))
((syntmp-syntax-object?-101 syntmp-e-1404) (syntmp-match*-1402 (let
((syntmp-e-1408 (syntmp-syntax-object-expression-102 syntmp-e-1404))) (if
(syntmp-annotation?-89 syntmp-e-1408) (annotation-expression syntmp-e-1408)
syntmp-e-1408)) syntmp-p-1405 (syntmp-join-wraps-134 syntmp-w-1406
(syntmp-syntax-object-wrap-103 syntmp-e-1404)) syntmp-r-1407)) (else
(syntmp-match*-1402 (let ((syntmp-e-1409 syntmp-e-1404)) (if
(syntmp-annotation?-89 syntmp-e-1409) (annotation-expression syntmp-e-1409)
syntmp-e-1409)) syntmp-p-1405 syntmp-w-1406 syntmp-r-1407)))))
(syntmp-match*-1402 (lambda (syntmp-e-1410 syntmp-p-1411 syntmp-w-1412
syntmp-r-1413) (cond ((null? syntmp-p-1411) (and (null? syntmp-e-1410)
syntmp-r-1413)) ((pair? syntmp-p-1411) (and (pair? syntmp-e-1410)
(syntmp-match-1403 (car syntmp-e-1410) (car syntmp-p-1411) syntmp-w-1412
(syntmp-match-1403 (cdr syntmp-e-1410) (cdr syntmp-p-1411) syntmp-w-1412
syntmp-r-1413)))) ((eq? syntmp-p-1411 (quote each-any)) (let ((syntmp-l-1414
(syntmp-match-each-any-1400 syntmp-e-1410 syntmp-w-1412))) (and syntmp-l-1414
(cons syntmp-l-1414 syntmp-r-1413)))) (else (let ((syntmp-t-1415 (vector-ref
syntmp-p-1411 0))) (if (memv syntmp-t-1415 (quote (each))) (if (null?
syntmp-e-1410) (syntmp-match-empty-1401 (vector-ref syntmp-p-1411 1)
syntmp-r-1413) (let ((syntmp-l-1416 (syntmp-match-each-1399 syntmp-e-1410
(vector-ref syntmp-p-1411 1) syntmp-w-1412))) (and syntmp-l-1416 (let
syntmp-collect-1417 ((syntmp-l-1418 syntmp-l-1416)) (if (null? (car
syntmp-l-1418)) syntmp-r-1413 (cons (map car syntmp-l-1418)
(syntmp-collect-1417 (map cdr syntmp-l-1418)))))))) (if (memv syntmp-t-1415
(quote (free-id))) (and (syntmp-id?-115 syntmp-e-1410) (syntmp-free-id=?-138
(syntmp-wrap-143 syntmp-e-1410 syntmp-w-1412) (vector-ref syntmp-p-1411 1))
syntmp-r-1413) (if (memv syntmp-t-1415 (quote (atom))) (and (equal? (vector-ref
syntmp-p-1411 1) (syntmp-strip-162 syntmp-e-1410 syntmp-w-1412)) syntmp-r-1413)
(if (memv syntmp-t-1415 (quote (vector))) (and (vector? syntmp-e-1410)
(syntmp-match-1403 (vector->list syntmp-e-1410) (vector-ref syntmp-p-1411 1)
syntmp-w-1412 syntmp-r-1413))))))))))) (syntmp-match-empty-1401 (lambda
(syntmp-p-1419 syntmp-r-1420) (cond ((null? syntmp-p-1419) syntmp-r-1420) ((eq?
syntmp-p-1419 (quote any)) (cons (quote ()) syntmp-r-1420)) ((pair?
syntmp-p-1419) (syntmp-match-empty-1401 (car syntmp-p-1419)
(syntmp-match-empty-1401 (cdr syntmp-p-1419) syntmp-r-1420))) ((eq?
syntmp-p-1419 (quote each-any)) (cons (quote ()) syntmp-r-1420)) (else (let
((syntmp-t-1421 (vector-ref syntmp-p-1419 0))) (if (memv syntmp-t-1421 (quote
(each))) (syntmp-match-empty-1401 (vector-ref syntmp-p-1419 1) syntmp-r-1420)
(if (memv syntmp-t-1421 (quote (free-id atom))) syntmp-r-1420 (if (memv
syntmp-t-1421 (quote (vector))) (syntmp-match-empty-1401 (vector-ref
syntmp-p-1419 1) syntmp-r-1420))))))))) (syntmp-match-each-any-1400 (lambda
(syntmp-e-1422 syntmp-w-1423) (cond ((syntmp-annotation?-89 syntmp-e-1422)
(syntmp-match-each-any-1400 (annotation-expression syntmp-e-1422)
syntmp-w-1423)) ((pair? syntmp-e-1422) (let ((syntmp-l-1424
(syntmp-match-each-any-1400 (cdr syntmp-e-1422) syntmp-w-1423))) (and
syntmp-l-1424 (cons (syntmp-wrap-143 (car syntmp-e-1422) syntmp-w-1423)
syntmp-l-1424)))) ((null? syntmp-e-1422) (quote ()))
((syntmp-syntax-object?-101 syntmp-e-1422) (syntmp-match-each-any-1400
(syntmp-syntax-object-expression-102 syntmp-e-1422) (syntmp-join-wraps-134
syntmp-w-1423 (syntmp-syntax-object-wrap-103 syntmp-e-1422)))) (else #f))))
(syntmp-match-each-1399 (lambda (syntmp-e-1425 syntmp-p-1426 syntmp-w-1427)
(cond ((syntmp-annotation?-89 syntmp-e-1425) (syntmp-match-each-1399
(annotation-expression syntmp-e-1425) syntmp-p-1426 syntmp-w-1427)) ((pair?
syntmp-e-1425) (let ((syntmp-first-1428 (syntmp-match-1403 (car syntmp-e-1425)
syntmp-p-1426 syntmp-w-1427 (quote ())))) (and syntmp-first-1428 (let
((syntmp-rest-1429 (syntmp-match-each-1399 (cdr syntmp-e-1425) syntmp-p-1426
syntmp-w-1427))) (and syntmp-rest-1429 (cons syntmp-first-1428
syntmp-rest-1429)))))) ((null? syntmp-e-1425) (quote ()))
((syntmp-syntax-object?-101 syntmp-e-1425) (syntmp-match-each-1399
(syntmp-syntax-object-expression-102 syntmp-e-1425) syntmp-p-1426
(syntmp-join-wraps-134 syntmp-w-1427 (syntmp-syntax-object-wrap-103
syntmp-e-1425)))) (else #f))))) (begin (set! syntax-dispatch (lambda
(syntmp-e-1430 syntmp-p-1431) (cond ((eq? syntmp-p-1431 (quote any)) (list
syntmp-e-1430)) ((syntmp-syntax-object?-101 syntmp-e-1430) (syntmp-match*-1402
(let ((syntmp-e-1432 (syntmp-syntax-object-expression-102 syntmp-e-1430))) (if
(syntmp-annotation?-89 syntmp-e-1432) (annotation-expression syntmp-e-1432)
syntmp-e-1432)) syntmp-p-1431 (syntmp-syntax-object-wrap-103 syntmp-e-1430)
(quote ()))) (else (syntmp-match*-1402 (let ((syntmp-e-1433 syntmp-e-1430)) (if
(syntmp-annotation?-89 syntmp-e-1433) (annotation-expression syntmp-e-1433)
syntmp-e-1433)) syntmp-p-1431 (quote (())) (quote ())))))) (set! sc-chi
syntmp-chi-151)))))
! (install-global-transformer (quote with-syntax) (lambda (syntmp-x-1434)
((lambda (syntmp-tmp-1435) ((lambda (syntmp-tmp-1436) (if syntmp-tmp-1436
(apply (lambda (syntmp-_-1437 syntmp-e1-1438 syntmp-e2-1439) (cons (quote
#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i"
"i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))))) (cons
syntmp-e1-1438 syntmp-e2-1439))) syntmp-tmp-1436) ((lambda (syntmp-tmp-1441)
(if syntmp-tmp-1441 (apply (lambda (syntmp-_-1442 syntmp-out-1443
syntmp-in-1444 syntmp-e1-1445 syntmp-e2-1446) (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")))))
syntmp-in-1444 (quote ()) (list syntmp-out-1443 (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
syntmp-e1-1445 syntmp-e2-1446))))) syntmp-tmp-1441) ((lambda (syntmp-tmp-1448)
(if syntmp-tmp-1448 (apply (lambda (syntmp-_-1449 syntmp-out-1450
syntmp-in-1451 syntmp-e1-1452 syntmp-e2-1453) (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"))))) syntmp-in-1451) (quote ()) (list syntmp-out-1450 (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 syntmp-e1-1452 syntmp-e2-1453))))) syntmp-tmp-1448)
(syntax-error syntmp-tmp-1435))) (syntax-dispatch syntmp-tmp-1435 (quote (any
#(each (any any)) any . each-any)))))) (syntax-dispatch syntmp-tmp-1435 (quote
(any ((any any)) any . each-any)))))) (syntax-dispatch syntmp-tmp-1435 (quote
(any () any . each-any))))) syntmp-x-1434)))
! (install-global-transformer (quote syntax-rules) (lambda (syntmp-x-1475)
((lambda (syntmp-tmp-1476) ((lambda (syntmp-tmp-1477) (if syntmp-tmp-1477
(apply (lambda (syntmp-_-1478 syntmp-k-1479 syntmp-keyword-1480
syntmp-pattern-1481 syntmp-template-1482) (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
syntmp-k-1479 (map (lambda (syntmp-tmp-1485 syntmp-tmp-1484) (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"))))) syntmp-tmp-1484) (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"))))) syntmp-tmp-1485))) syntmp-template-1482 syntmp-pattern-1481))))))
syntmp-tmp-1477) (syntax-error syntmp-tmp-1476))) (syntax-dispatch
syntmp-tmp-1476 (quote (any each-any . #(each ((any . any) any)))))))
syntmp-x-1475)))
! (install-global-transformer (quote let*) (lambda (syntmp-x-1496) ((lambda
(syntmp-tmp-1497) ((lambda (syntmp-tmp-1498) (if (if syntmp-tmp-1498 (apply
(lambda (syntmp-let*-1499 syntmp-x-1500 syntmp-v-1501 syntmp-e1-1502
syntmp-e2-1503) (andmap identifier? syntmp-x-1500)) syntmp-tmp-1498) #f) (apply
(lambda (syntmp-let*-1505 syntmp-x-1506 syntmp-v-1507 syntmp-e1-1508
syntmp-e2-1509) (let syntmp-f-1510 ((syntmp-bindings-1511 (map list
syntmp-x-1506 syntmp-v-1507))) (if (null? syntmp-bindings-1511) (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 syntmp-e1-1508 syntmp-e2-1509))) ((lambda
(syntmp-tmp-1515) ((lambda (syntmp-tmp-1516) (if syntmp-tmp-1516 (apply (lambda
(syntmp-body-1517 syntmp-binding-1518) (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 syntmp-binding-1518)
syntmp-body-1517)) syntmp-tmp-1516) (syntax-error syntmp-tmp-1515)))
(syntax-dispatch syntmp-tmp-1515 (quote (any any))))) (list (syntmp-f-1510 (cdr
syntmp-bindings-1511)) (car syntmp-bindings-1511)))))) syntmp-tmp-1498)
(syntax-error syntmp-tmp-1497))) (syntax-dispatch syntmp-tmp-1497 (quote (any
#(each (any any)) any . each-any))))) syntmp-x-1496)))
! (install-global-transformer (quote do) (lambda (syntmp-orig-x-1538) ((lambda
(syntmp-tmp-1539) ((lambda (syntmp-tmp-1540) (if syntmp-tmp-1540 (apply (lambda
(syntmp-_-1541 syntmp-var-1542 syntmp-init-1543 syntmp-step-1544 syntmp-e0-1545
syntmp-e1-1546 syntmp-c-1547) ((lambda (syntmp-tmp-1548) ((lambda
(syntmp-tmp-1549) (if syntmp-tmp-1549 (apply (lambda (syntmp-step-1550)
((lambda (syntmp-tmp-1551) ((lambda (syntmp-tmp-1552) (if syntmp-tmp-1552
(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 syntmp-var-1542
syntmp-init-1543) (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"))))) syntmp-e0-1545) (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 syntmp-c-1547 (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")))))
syntmp-step-1550))))))) syntmp-tmp-1552) ((lambda (syntmp-tmp-1557) (if
syntmp-tmp-1557 (apply (lambda (syntmp-e1-1558 syntmp-e2-1559) (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 syntmp-var-1542 syntmp-init-1543) (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"))))) syntmp-e0-1545 (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 syntmp-e1-1558
syntmp-e2-1559)) (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 syntmp-c-1547 (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"))))) syntmp-step-1550))))))) syntmp-tmp-1557)
(syntax-error syntmp-tmp-1551))) (syntax-dispatch syntmp-tmp-1551 (quote (any .
each-any)))))) (syntax-dispatch syntmp-tmp-1551 (quote ())))) syntmp-e1-1546))
syntmp-tmp-1549) (syntax-error syntmp-tmp-1548))) (syntax-dispatch
syntmp-tmp-1548 (quote each-any)))) (map (lambda (syntmp-v-1566 syntmp-s-1567)
((lambda (syntmp-tmp-1568) ((lambda (syntmp-tmp-1569) (if syntmp-tmp-1569
(apply (lambda () syntmp-v-1566) syntmp-tmp-1569) ((lambda (syntmp-tmp-1570)
(if syntmp-tmp-1570 (apply (lambda (syntmp-e-1571) syntmp-e-1571)
syntmp-tmp-1570) ((lambda (syntmp-_-1572) (syntax-error syntmp-orig-x-1538))
syntmp-tmp-1568))) (syntax-dispatch syntmp-tmp-1568 (quote (any))))))
(syntax-dispatch syntmp-tmp-1568 (quote ())))) syntmp-s-1567)) syntmp-var-1542
syntmp-step-1544))) syntmp-tmp-1540) (syntax-error syntmp-tmp-1539)))
(syntax-dispatch syntmp-tmp-1539 (quote (any #(each (any any . any)) (any .
each-any) . each-any))))) syntmp-orig-x-1538)))
! (install-global-transformer (quote quasiquote) (letrec
((syntmp-quasicons-1600 (lambda (syntmp-x-1604 syntmp-y-1605) ((lambda
(syntmp-tmp-1606) ((lambda (syntmp-tmp-1607) (if syntmp-tmp-1607 (apply (lambda
(syntmp-x-1608 syntmp-y-1609) ((lambda (syntmp-tmp-1610) ((lambda
(syntmp-tmp-1611) (if syntmp-tmp-1611 (apply (lambda (syntmp-dy-1612) ((lambda
(syntmp-tmp-1613) ((lambda (syntmp-tmp-1614) (if syntmp-tmp-1614 (apply (lambda
(syntmp-dx-1615) (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 syntmp-dx-1615
syntmp-dy-1612))) syntmp-tmp-1614) ((lambda (syntmp-_-1616) (if (null?
syntmp-dy-1612) (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"))))) syntmp-x-1608) (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"))))) syntmp-x-1608 syntmp-y-1609))) syntmp-tmp-1613))) (syntax-dispatch
syntmp-tmp-1613 (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))))) syntmp-x-1608)) syntmp-tmp-1611) ((lambda
(syntmp-tmp-1617) (if syntmp-tmp-1617 (apply (lambda (syntmp-stuff-1618) (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 syntmp-x-1608 syntmp-stuff-1618))) syntmp-tmp-1617) ((lambda
(syntmp-else-1619) (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"))))) syntmp-x-1608 syntmp-y-1609)) syntmp-tmp-1610))) (syntax-dispatch
syntmp-tmp-1610 (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 syntmp-tmp-1610 (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))))) syntmp-y-1609)) syntmp-tmp-1607) (syntax-error
syntmp-tmp-1606))) (syntax-dispatch syntmp-tmp-1606 (quote (any any))))) (list
syntmp-x-1604 syntmp-y-1605)))) (syntmp-quasiappend-1601 (lambda (syntmp-x-1620
syntmp-y-1621) ((lambda (syntmp-tmp-1622) ((lambda (syntmp-tmp-1623) (if
syntmp-tmp-1623 (apply (lambda (syntmp-x-1624 syntmp-y-1625) ((lambda
(syntmp-tmp-1626) ((lambda (syntmp-tmp-1627) (if syntmp-tmp-1627 (apply (lambda
() syntmp-x-1624) syntmp-tmp-1627) ((lambda (syntmp-_-1628) (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"))))) syntmp-x-1624
syntmp-y-1625)) syntmp-tmp-1626))) (syntax-dispatch syntmp-tmp-1626 (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"))))) ()))))) syntmp-y-1625)) syntmp-tmp-1623)
(syntax-error syntmp-tmp-1622))) (syntax-dispatch syntmp-tmp-1622 (quote (any
any))))) (list syntmp-x-1620 syntmp-y-1621)))) (syntmp-quasivector-1602 (lambda
(syntmp-x-1629) ((lambda (syntmp-tmp-1630) ((lambda (syntmp-x-1631) ((lambda
(syntmp-tmp-1632) ((lambda (syntmp-tmp-1633) (if syntmp-tmp-1633 (apply (lambda
(syntmp-x-1634) (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 syntmp-x-1634))) syntmp-tmp-1633) ((lambda (syntmp-tmp-1636) (if
syntmp-tmp-1636 (apply (lambda (syntmp-x-1637) (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"))))) syntmp-x-1637)) syntmp-tmp-1636) ((lambda
(syntmp-_-1639) (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")))))
syntmp-x-1631)) syntmp-tmp-1632))) (syntax-dispatch syntmp-tmp-1632 (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 syntmp-tmp-1632 (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))))) syntmp-x-1631)) syntmp-tmp-1630))
syntmp-x-1629))) (syntmp-quasi-1603 (lambda (syntmp-p-1640 syntmp-lev-1641)
((lambda (syntmp-tmp-1642) ((lambda (syntmp-tmp-1643) (if syntmp-tmp-1643
(apply (lambda (syntmp-p-1644) (if (= syntmp-lev-1641 0) syntmp-p-1644
(syntmp-quasicons-1600 (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")))))) (syntmp-quasi-1603 (list syntmp-p-1644) (-
syntmp-lev-1641 1))))) syntmp-tmp-1643) ((lambda (syntmp-tmp-1645) (if
syntmp-tmp-1645 (apply (lambda (syntmp-p-1646 syntmp-q-1647) (if (=
syntmp-lev-1641 0) (syntmp-quasiappend-1601 syntmp-p-1646 (syntmp-quasi-1603
syntmp-q-1647 syntmp-lev-1641)) (syntmp-quasicons-1600 (syntmp-quasicons-1600
(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")))))) (syntmp-quasi-1603 (list
syntmp-p-1646) (- syntmp-lev-1641 1))) (syntmp-quasi-1603 syntmp-q-1647
syntmp-lev-1641)))) syntmp-tmp-1645) ((lambda (syntmp-tmp-1648) (if
syntmp-tmp-1648 (apply (lambda (syntmp-p-1649) (syntmp-quasicons-1600 (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")))))) (syntmp-quasi-1603 (list syntmp-p-1649) (+ syntmp-lev-1641 1))))
syntmp-tmp-1648) ((lambda (syntmp-tmp-1650) (if syntmp-tmp-1650 (apply (lambda
(syntmp-p-1651 syntmp-q-1652) (syntmp-quasicons-1600 (syntmp-quasi-1603
syntmp-p-1651 syntmp-lev-1641) (syntmp-quasi-1603 syntmp-q-1652
syntmp-lev-1641))) syntmp-tmp-1650) ((lambda (syntmp-tmp-1653) (if
syntmp-tmp-1653 (apply (lambda (syntmp-x-1654) (syntmp-quasivector-1602
(syntmp-quasi-1603 syntmp-x-1654 syntmp-lev-1641))) syntmp-tmp-1653) ((lambda
(syntmp-p-1656) (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"))))) syntmp-p-1656)) syntmp-tmp-1642)))
(syntax-dispatch syntmp-tmp-1642 (quote #(vector each-any))))))
(syntax-dispatch syntmp-tmp-1642 (quote (any . any)))))) (syntax-dispatch
syntmp-tmp-1642 (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 syntmp-tmp-1642 (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 syntmp-tmp-1642 (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))))) syntmp-p-1640)))) (lambda (syntmp-x-1657)
((lambda (syntmp-tmp-1658) ((lambda (syntmp-tmp-1659) (if syntmp-tmp-1659
(apply (lambda (syntmp-_-1660 syntmp-e-1661) (syntmp-quasi-1603 syntmp-e-1661
0)) syntmp-tmp-1659) (syntax-error syntmp-tmp-1658))) (syntax-dispatch
syntmp-tmp-1658 (quote (any any))))) syntmp-x-1657))))
! (install-global-transformer (quote include) (lambda (syntmp-x-1721) (letrec
((syntmp-read-file-1722 (lambda (syntmp-fn-1723 syntmp-k-1724) (let
((syntmp-p-1725 (open-input-file syntmp-fn-1723))) (let syntmp-f-1726
((syntmp-x-1727 (read syntmp-p-1725))) (if (eof-object? syntmp-x-1727) (begin
(close-input-port syntmp-p-1725) (quote ())) (cons (datum->syntax-object
syntmp-k-1724 syntmp-x-1727) (syntmp-f-1726 (read syntmp-p-1725)))))))))
((lambda (syntmp-tmp-1728) ((lambda (syntmp-tmp-1729) (if syntmp-tmp-1729
(apply (lambda (syntmp-k-1730 syntmp-filename-1731) (let ((syntmp-fn-1732
(syntax-object->datum syntmp-filename-1731))) ((lambda (syntmp-tmp-1733)
((lambda (syntmp-tmp-1734) (if syntmp-tmp-1734 (apply (lambda (syntmp-exp-1735)
(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"))))) syntmp-exp-1735))
syntmp-tmp-1734) (syntax-error syntmp-tmp-1733))) (syntax-dispatch
syntmp-tmp-1733 (quote each-any)))) (syntmp-read-file-1722 syntmp-fn-1732
syntmp-k-1730)))) syntmp-tmp-1729) (syntax-error syntmp-tmp-1728)))
(syntax-dispatch syntmp-tmp-1728 (quote (any any))))) syntmp-x-1721))))
! (install-global-transformer (quote unquote) (lambda (syntmp-x-1752) ((lambda
(syntmp-tmp-1753) ((lambda (syntmp-tmp-1754) (if syntmp-tmp-1754 (apply (lambda
(syntmp-_-1755 syntmp-e-1756) (error (quote unquote) "expression ,~s not valid
outside of quasiquote" (syntax-object->datum syntmp-e-1756))) syntmp-tmp-1754)
(syntax-error syntmp-tmp-1753))) (syntax-dispatch syntmp-tmp-1753 (quote (any
any))))) syntmp-x-1752)))
! (install-global-transformer (quote unquote-splicing) (lambda (syntmp-x-1762)
((lambda (syntmp-tmp-1763) ((lambda (syntmp-tmp-1764) (if syntmp-tmp-1764
(apply (lambda (syntmp-_-1765 syntmp-e-1766) (error (quote unquote-splicing)
"expression ,@~s not valid outside of quasiquote" (syntax-object->datum
syntmp-e-1766))) syntmp-tmp-1764) (syntax-error syntmp-tmp-1763)))
(syntax-dispatch syntmp-tmp-1763 (quote (any any))))) syntmp-x-1762)))
! (install-global-transformer (quote case) (lambda (syntmp-x-1772) ((lambda
(syntmp-tmp-1773) ((lambda (syntmp-tmp-1774) (if syntmp-tmp-1774 (apply (lambda
(syntmp-_-1775 syntmp-e-1776 syntmp-m1-1777 syntmp-m2-1778) ((lambda
(syntmp-tmp-1779) ((lambda (syntmp-body-1780) (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")))))
syntmp-e-1776)) syntmp-body-1780)) syntmp-tmp-1779)) (let syntmp-f-1781
((syntmp-clause-1782 syntmp-m1-1777) (syntmp-clauses-1783 syntmp-m2-1778)) (if
(null? syntmp-clauses-1783) ((lambda (syntmp-tmp-1785) ((lambda
(syntmp-tmp-1786) (if syntmp-tmp-1786 (apply (lambda (syntmp-e1-1787
syntmp-e2-1788) (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 syntmp-e1-1787 syntmp-e2-1788))) syntmp-tmp-1786) ((lambda
(syntmp-tmp-1790) (if syntmp-tmp-1790 (apply (lambda (syntmp-k-1791
syntmp-e1-1792 syntmp-e2-1793) (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"))))) syntmp-k-1791)) (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 syntmp-e1-1792
syntmp-e2-1793)))) syntmp-tmp-1790) ((lambda (syntmp-_-1796) (syntax-error
syntmp-x-1772)) syntmp-tmp-1785))) (syntax-dispatch syntmp-tmp-1785 (quote
(each-any any . each-any)))))) (syntax-dispatch syntmp-tmp-1785 (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))))) syntmp-clause-1782) ((lambda
(syntmp-tmp-1797) ((lambda (syntmp-rest-1798) ((lambda (syntmp-tmp-1799)
((lambda (syntmp-tmp-1800) (if syntmp-tmp-1800 (apply (lambda (syntmp-k-1801
syntmp-e1-1802 syntmp-e2-1803) (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"))))) syntmp-k-1801)) (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 syntmp-e1-1802 syntmp-e2-1803)) syntmp-rest-1798))
syntmp-tmp-1800) ((lambda (syntmp-_-1806) (syntax-error syntmp-x-1772))
syntmp-tmp-1799))) (syntax-dispatch syntmp-tmp-1799 (quote (each-any any .
each-any))))) syntmp-clause-1782)) syntmp-tmp-1797)) (syntmp-f-1781 (car
syntmp-clauses-1783) (cdr syntmp-clauses-1783))))))) syntmp-tmp-1774)
(syntax-error syntmp-tmp-1773))) (syntax-dispatch syntmp-tmp-1773 (quote (any
any any . each-any))))) syntmp-x-1772)))
! (install-global-transformer (quote identifier-syntax) (lambda (syntmp-x-1836)
((lambda (syntmp-tmp-1837) ((lambda (syntmp-tmp-1838) (if syntmp-tmp-1838
(apply (lambda (syntmp-_-1839 syntmp-e-1840) (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"))))) syntmp-e-1840)) (list (cons syntmp-_-1839 (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 syntmp-e-1840 (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"))))))))))))
syntmp-tmp-1838) (syntax-error syntmp-tmp-1837))) (syntax-dispatch
syntmp-tmp-1837 (quote (any any))))) syntmp-x-1836)))
Index: guile/guile-core/ice-9/psyntax.ss
diff -c guile/guile-core/ice-9/psyntax.ss:1.16
guile/guile-core/ice-9/psyntax.ss:1.17
*** guile/guile-core/ice-9/psyntax.ss:1.16 Sun Jan 19 12:47:01 2003
--- guile/guile-core/ice-9/psyntax.ss Mon Jan 20 05:12:28 2003
***************
*** 419,425 ****
((_ src level name) name)))
(define (build-data src exp)
! (if (self-evaluating? exp)
exp
(list 'quote exp)))
--- 419,426 ----
((_ src level name) name)))
(define (build-data src exp)
! (if (and (self-evaluating? exp)
! (not (vector? exp)))
exp
(list 'quote exp)))
***************
*** 450,462 ****
(define-syntax build-lexical-var
(syntax-rules ()
((_ src id) (gensym (symbol->string id)))))
-
- (define-syntax self-evaluating?
- (syntax-rules ()
- ((_ e)
- (let ((x e))
- (or (boolean? x) (number? x) (string? x) (char? x) (keyword? x)
- (procedure? x))))))
)
(define-structure (syntax-object expression wrap))
--- 451,456 ----
Index: guile/guile-core/ice-9/syncase.scm
diff -c guile/guile-core/ice-9/syncase.scm:1.29
guile/guile-core/ice-9/syncase.scm:1.30
*** guile/guile-core/ice-9/syncase.scm:1.29 Thu Jan 16 06:48:14 2003
--- guile/guile-core/ice-9/syncase.scm Mon Jan 27 03:46:18 2003
***************
*** 157,177 ****
(define guile-macro
(cons 'external-macro
(lambda (e r w s)
! (if (symbol? e)
! ;; pass the expression through
! e
! (let* ((eval-closure (fluid-ref expansion-eval-closure))
! (m (variable-ref (eval-closure (car e) #f))))
! (if (eq? (macro-type m) 'syntax)
! ;; pass the expression through
! e
! ;; perform Guile macro transform
! (let ((e ((macro-transformer m)
! e
! (append r (list eval-closure)))))
! (if (null? r)
! (sc-expand e)
! (sc-chi e r w)))))))))
(define generated-symbols (make-weak-key-hash-table 1019))
--- 157,178 ----
(define guile-macro
(cons 'external-macro
(lambda (e r w s)
! (let ((e (syntax-object->datum e)))
! (if (symbol? e)
! ;; pass the expression through
! e
! (let* ((eval-closure (fluid-ref expansion-eval-closure))
! (m (variable-ref (eval-closure (car e) #f))))
! (if (eq? (macro-type m) 'syntax)
! ;; pass the expression through
! e
! ;; perform Guile macro transform
! (let ((e ((macro-transformer m)
! e
! (append r (list eval-closure)))))
! (if (null? r)
! (sc-expand e)
! (sc-chi e r w))))))))))
(define generated-symbols (make-weak-key-hash-table 1019))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/ice-9 ChangeLog boot-9.scm psy...,
Mikael Djurfeldt <=