|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-6-38-gd7a4096 |
| Date: | Thu, 24 Dec 2009 13:19:43 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=d7a4096d251933a21325739fcd32129b073c33ce
The branch, master has been updated
via d7a4096d251933a21325739fcd32129b073c33ce (commit)
via f6fe5fe26b7b64c2d194b1dd27b1bd038e8fa70c (commit)
via f6a8e7919755ce15cd75ad01326e02151fa99445 (commit)
from 1ad7fef5249f409317c20d5242bc3c4c2b8d9d18 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit d7a4096d251933a21325739fcd32129b073c33ce
Author: Andy Wingo <address@hidden>
Date: Thu Dec 24 14:20:41 2009 +0100
implement up, down, frame, and bindings in the repl
* module/system/vm/debug.scm (debugger-repl): Implement up, down, frame,
and bindings using the new command infrastructure.
commit f6fe5fe26b7b64c2d194b1dd27b1bd038e8fa70c
Author: Andy Wingo <address@hidden>
Date: Thu Dec 24 08:28:59 2009 +0100
rewrite debugger command loop
* module/system/vm/debug.scm: Rewrite the command loop to have better
introspection and argument handling.
commit f6a8e7919755ce15cd75ad01326e02151fa99445
Author: Andy Wingo <address@hidden>
Date: Wed Dec 23 22:59:12 2009 +0100
keyword arg errors throw to 'keyword-argument-error
* libguile/vm-engine.c (VM_NAME): Keyword arg errors are now thrown to
'keyword-argument-error.
* libguile/vm.c: Define sym_keyword_argument_error, and statically
allocate some other symbols.
* module/ice-9/optargs.scm (parse-lambda-case): Throw to
'keyword-argument-error in kwarg error cases.
* module/ice-9/psyntax.scm (build-lambda-case): Remove a couple
workarounds for the old memoizer. Throw to 'wrong-number-of-args if
the lambda-case fails to parse.
* module/ice-9/psyntax-pp.scm: Regenerated.
* test-suite/tests/optargs.test: Update expected exceptions.
-----------------------------------------------------------------------
Summary of changes:
libguile/vm-engine.c | 25 +-
libguile/vm.c | 11 +-
module/ice-9/optargs.scm | 9 +-
module/ice-9/psyntax-pp.scm |16987 +++++++++++++++++++++--------------------
module/ice-9/psyntax.scm | 11 +-
module/system/vm/debug.scm | 272 +-
test-suite/tests/optargs.test | 15 +-
7 files changed, 8809 insertions(+), 8521 deletions(-)
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 4f2dff2..a64b43a 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -130,6 +130,8 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
{
SCM err_msg;
+ /* FIXME: need to sync regs before allocating anything, in each case. */
+
vm_error_bad_instruction:
err_msg = scm_from_locale_string ("VM: Bad instruction: ~s");
finish_args = scm_list_1 (scm_from_uchar (ip[-1]));
@@ -145,19 +147,24 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
goto vm_error;
vm_error_kwargs_length_not_even:
- err_msg = scm_from_locale_string ("Bad keyword argument list: odd
length");
- finish_args = SCM_EOL;
- goto vm_error;
+ SYNC_ALL ();
+ err_msg = scm_from_locale_string ("Odd length of keyword argument list");
+ scm_error_scm (sym_keyword_argument_error, program, err_msg,
+ SCM_EOL, SCM_BOOL_F);
vm_error_kwargs_invalid_keyword:
- err_msg = scm_from_locale_string ("Bad keyword argument list: expected
keyword");
- finish_args = SCM_EOL;
- goto vm_error;
+ /* FIXME say which one it was */
+ SYNC_ALL ();
+ err_msg = scm_from_locale_string ("Invalid keyword");
+ scm_error_scm (sym_keyword_argument_error, program, err_msg,
+ SCM_EOL, SCM_BOOL_F);
vm_error_kwargs_unrecognized_keyword:
- err_msg = scm_from_locale_string ("Bad keyword argument list:
unrecognized keyword");
- finish_args = SCM_EOL;
- goto vm_error;
+ /* FIXME say which one it was */
+ SYNC_ALL ();
+ err_msg = scm_from_locale_string ("Unrecognized keyword");
+ scm_error_scm (sym_keyword_argument_error, program, err_msg,
+ SCM_EOL, SCM_BOOL_F);
vm_error_too_many_args:
err_msg = scm_from_locale_string ("VM: Too many arguments");
diff --git a/libguile/vm.c b/libguile/vm.c
index 121beaa..a5b5a55 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -169,9 +169,10 @@ vm_dispatch_hook (SCM vm, int hook_num)
* VM Internal functions
*/
-static SCM sym_vm_run;
-static SCM sym_vm_error;
-static SCM sym_debug;
+SCM_SYMBOL (sym_vm_run, "vm-run");
+SCM_SYMBOL (sym_vm_error, "vm-error");
+SCM_SYMBOL (sym_keyword_argument_error, "keyword-argument-error");
+SCM_SYMBOL (sym_debug, "debug");
static SCM
really_make_boot_program (long nargs)
@@ -672,10 +673,6 @@ scm_bootstrap_vm (void)
scm_c_make_gsubr ("load-compiled/vm", 1, 0, 0,
scm_load_compiled_with_vm));
- sym_vm_run = scm_from_locale_symbol ("vm-run");
- sym_vm_error = scm_from_locale_symbol ("vm-error");
- sym_debug = scm_from_locale_symbol ("debug");
-
scm_c_register_extension ("libguile", "scm_init_vm",
(scm_t_extension_init_func)scm_init_vm, NULL);
diff --git a/module/ice-9/optargs.scm b/module/ice-9/optargs.scm
index 5ad9e81..c9a0493 100644
--- a/module/ice-9/optargs.scm
+++ b/module/ice-9/optargs.scm
@@ -343,7 +343,8 @@
(pair? (cdr args-tail))
allow-other-keys?)
(permissive-keys slots slots-tail (cddr args-tail) inits))
- (else (error "unrecognized keyword" args-tail))))
+ (else (scm-error 'keyword-argument-error #f "Unrecognized keyword"
+ '() args-tail))))
(define (key slots slots-tail args-tail inits)
(cond
((null? args-tail)
@@ -357,7 +358,8 @@
(if rest-idx
;; no error checking, everything goes to the rest..
(key slots slots-tail '() inits)
- (error "bad keyword argument list" args-tail)))
+ (scm-error 'keyword-argument-error #f "Invalid keyword"
+ '() args-tail)))
((and (keyword? (car args-tail))
(pair? (cdr args-tail))
(assq-ref kw-indices (car args-tail)))
@@ -368,7 +370,8 @@
(pair? (cdr args-tail))
allow-other-keys?)
(key slots slots-tail (cddr args-tail) inits))
- (else (error "unrecognized keyword" args-tail))))
+ (else (scm-error 'keyword-argument-error #f "Unrecognized keyword"
+ '() args-tail))))
(let ((args (list-copy args)))
(req args #f args nreq)))
(else (error "unexpected spec" spec))))
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 999cc6f..ec229ce 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,610 +1,610 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 28}#
- (lambda (#{f\ 66}# #{first\ 67}# . #{rest\ 68}#)
- (let ((#{t\ 69}# (null? #{first\ 67}#)))
- (if #{t\ 69}#
- #{t\ 69}#
- (if (null? #{rest\ 68}#)
- (letrec ((#{andmap\ 70}#
- (lambda (#{first\ 71}#)
- (let ((#{x\ 72}# (car #{first\ 71}#))
- (#{first\ 73}# (cdr #{first\ 71}#)))
- (if (null? #{first\ 73}#)
- (#{f\ 66}# #{x\ 72}#)
- (if (#{f\ 66}# #{x\ 72}#)
- (#{andmap\ 70}# #{first\ 73}#)
+(letrec ((#{and-map*\ 60}#
+ (lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#)
+ (let ((#{t\ 130}# (null? #{first\ 123}#)))
+ (if #{t\ 130}#
+ #{t\ 130}#
+ (if (null? #{rest\ 124}#)
+ (letrec ((#{andmap\ 134}#
+ (lambda (#{first\ 135}#)
+ (let ((#{x\ 138}# (car #{first\ 135}#))
+ (#{first\ 139}# (cdr #{first\ 135}#)))
+ (if (null? #{first\ 139}#)
+ (#{f\ 122}# #{x\ 138}#)
+ (if (#{f\ 122}# #{x\ 138}#)
+ (#{andmap\ 134}# #{first\ 139}#)
#f))))))
- (#{andmap\ 70}# #{first\ 67}#))
- (letrec ((#{andmap\ 74}#
- (lambda (#{first\ 75}# #{rest\ 76}#)
- (let ((#{x\ 77}# (car #{first\ 75}#))
- (#{xr\ 78}# (map car #{rest\ 76}#))
- (#{first\ 79}# (cdr #{first\ 75}#))
- (#{rest\ 80}# (map cdr #{rest\ 76}#)))
- (if (null? #{first\ 79}#)
- (apply #{f\ 66}#
- (cons #{x\ 77}# #{xr\ 78}#))
- (if (apply #{f\ 66}#
- (cons #{x\ 77}# #{xr\ 78}#))
- (#{andmap\ 74}#
- #{first\ 79}#
- #{rest\ 80}#)
+ (#{andmap\ 134}# #{first\ 123}#))
+ (letrec ((#{andmap\ 145}#
+ (lambda (#{first\ 146}# #{rest\ 147}#)
+ (let ((#{x\ 152}# (car #{first\ 146}#))
+ (#{xr\ 153}# (map car #{rest\ 147}#))
+ (#{first\ 154}# (cdr #{first\ 146}#))
+ (#{rest\ 155}# (map cdr #{rest\ 147}#)))
+ (if (null? #{first\ 154}#)
+ (apply #{f\ 122}#
+ (cons #{x\ 152}# #{xr\ 153}#))
+ (if (apply #{f\ 122}#
+ (cons #{x\ 152}# #{xr\ 153}#))
+ (#{andmap\ 145}#
+ #{first\ 154}#
+ #{rest\ 155}#)
#f))))))
- (#{andmap\ 74}# #{first\ 67}# #{rest\ 68}#))))))))
- (letrec ((#{lambda-var-list\ 179}#
- (lambda (#{vars\ 303}#)
- (letrec ((#{lvl\ 304}#
- (lambda (#{vars\ 305}# #{ls\ 306}# #{w\ 307}#)
- (if (pair? #{vars\ 305}#)
- (#{lvl\ 304}#
- (cdr #{vars\ 305}#)
- (cons (#{wrap\ 156}#
- (car #{vars\ 305}#)
- #{w\ 307}#
+ (#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#))))))))
+ (letrec ((#{lambda-var-list\ 375}#
+ (lambda (#{vars\ 590}#)
+ (letrec ((#{lvl\ 596}#
+ (lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#)
+ (if (pair? #{vars\ 597}#)
+ (#{lvl\ 596}#
+ (cdr #{vars\ 597}#)
+ (cons (#{wrap\ 329}#
+ (car #{vars\ 597}#)
+ #{w\ 599}#
#f)
- #{ls\ 306}#)
- #{w\ 307}#)
- (if (#{id?\ 128}# #{vars\ 305}#)
- (cons (#{wrap\ 156}#
- #{vars\ 305}#
- #{w\ 307}#
+ #{ls\ 598}#)
+ #{w\ 599}#)
+ (if (#{id?\ 260}# #{vars\ 597}#)
+ (cons (#{wrap\ 329}#
+ #{vars\ 597}#
+ #{w\ 599}#
#f)
- #{ls\ 306}#)
- (if (null? #{vars\ 305}#)
- #{ls\ 306}#
- (if (#{syntax-object?\ 112}# #{vars\ 305}#)
- (#{lvl\ 304}#
- (#{syntax-object-expression\ 113}#
- #{vars\ 305}#)
- #{ls\ 306}#
- (#{join-wraps\ 147}#
- #{w\ 307}#
- (#{syntax-object-wrap\ 114}#
- #{vars\ 305}#)))
- (cons #{vars\ 305}# #{ls\ 306}#))))))))
- (#{lvl\ 304}#
- #{vars\ 303}#
+ #{ls\ 598}#)
+ (if (null? #{vars\ 597}#)
+ #{ls\ 598}#
+ (if (#{syntax-object?\ 224}# #{vars\ 597}#)
+ (#{lvl\ 596}#
+ (#{syntax-object-expression\ 226}#
+ #{vars\ 597}#)
+ #{ls\ 598}#
+ (#{join-wraps\ 311}#
+ #{w\ 599}#
+ (#{syntax-object-wrap\ 228}#
+ #{vars\ 597}#)))
+ (cons #{vars\ 597}# #{ls\ 598}#))))))))
+ (#{lvl\ 596}#
+ #{vars\ 590}#
'()
'(())))))
- (#{gen-var\ 178}#
- (lambda (#{id\ 308}#)
- (let ((#{id\ 309}#
- (if (#{syntax-object?\ 112}# #{id\ 308}#)
- (#{syntax-object-expression\ 113}# #{id\ 308}#)
- #{id\ 308}#)))
+ (#{gen-var\ 373}#
+ (lambda (#{id\ 610}#)
+ (let ((#{id\ 613}#
+ (if (#{syntax-object?\ 224}# #{id\ 610}#)
+ (#{syntax-object-expression\ 226}# #{id\ 610}#)
+ #{id\ 610}#)))
(gensym
- (string-append (symbol->string #{id\ 309}#) " ")))))
- (#{strip\ 177}#
- (lambda (#{x\ 310}# #{w\ 311}#)
+ (string-append (symbol->string #{id\ 613}#) " ")))))
+ (#{strip\ 371}#
+ (lambda (#{x\ 615}# #{w\ 616}#)
(if (memq 'top
- (#{wrap-marks\ 131}# #{w\ 311}#))
- #{x\ 310}#
- (letrec ((#{f\ 312}# (lambda (#{x\ 313}#)
- (if (#{syntax-object?\ 112}#
- #{x\ 313}#)
- (#{strip\ 177}#
- (#{syntax-object-expression\ 113}#
- #{x\ 313}#)
- (#{syntax-object-wrap\ 114}#
- #{x\ 313}#))
- (if (pair? #{x\ 313}#)
- (let ((#{a\ 314}# (#{f\ 312}# (car
#{x\ 313}#)))
- (#{d\ 315}# (#{f\ 312}# (cdr
#{x\ 313}#))))
- (if (if (eq? #{a\ 314}#
- (car #{x\ 313}#))
- (eq? #{d\ 315}#
- (cdr #{x\ 313}#))
+ (#{wrap-marks\ 267}# #{w\ 616}#))
+ #{x\ 615}#
+ (letrec ((#{f\ 622}# (lambda (#{x\ 623}#)
+ (if (#{syntax-object?\ 224}#
+ #{x\ 623}#)
+ (#{strip\ 371}#
+ (#{syntax-object-expression\ 226}#
+ #{x\ 623}#)
+ (#{syntax-object-wrap\ 228}#
+ #{x\ 623}#))
+ (if (pair? #{x\ 623}#)
+ (let ((#{a\ 630}# (#{f\ 622}# (car
#{x\ 623}#)))
+ (#{d\ 631}# (#{f\ 622}# (cdr
#{x\ 623}#))))
+ (if (if (eq? #{a\ 630}#
+ (car #{x\ 623}#))
+ (eq? #{d\ 631}#
+ (cdr #{x\ 623}#))
#f)
- #{x\ 313}#
- (cons #{a\ 314}# #{d\ 315}#)))
- (if (vector? #{x\ 313}#)
- (let ((#{old\ 316}#
+ #{x\ 623}#
+ (cons #{a\ 630}# #{d\ 631}#)))
+ (if (vector? #{x\ 623}#)
+ (let ((#{old\ 637}#
(vector->list
- #{x\ 313}#)))
- (let ((#{new\ 317}#
- (map #{f\ 312}#
- #{old\ 316}#)))
- (if (#{and-map*\ 28}#
+ #{x\ 623}#)))
+ (let ((#{new\ 639}#
+ (map #{f\ 622}#
+ #{old\ 637}#)))
+ (if (#{and-map*\ 60}#
eq?
- #{old\ 316}#
- #{new\ 317}#)
- #{x\ 313}#
+ #{old\ 637}#
+ #{new\ 639}#)
+ #{x\ 623}#
(list->vector
- #{new\ 317}#))))
- #{x\ 313}#))))))
- (#{f\ 312}# #{x\ 310}#)))))
- (#{chi-lambda-case\ 176}#
- (lambda (#{e\ 318}#
- #{r\ 319}#
- #{w\ 320}#
- #{s\ 321}#
- #{mod\ 322}#
- #{get-formals\ 323}#
- #{clauses\ 324}#)
- (letrec ((#{expand-body\ 328}#
- (lambda (#{req\ 329}#
- #{opt\ 330}#
- #{rest\ 331}#
- #{kw\ 332}#
- #{body\ 333}#
- #{vars\ 334}#
- #{r*\ 335}#
- #{w*\ 336}#
- #{inits\ 337}#)
- ((lambda (#{tmp\ 338}#)
- ((lambda (#{tmp\ 339}#)
- (if (if #{tmp\ 339}#
- (apply (lambda (#{docstring\ 340}#
- #{e1\ 341}#
- #{e2\ 342}#)
+ #{new\ 639}#))))
+ #{x\ 623}#))))))
+ (#{f\ 622}# #{x\ 615}#)))))
+ (#{chi-lambda-case\ 369}#
+ (lambda (#{e\ 641}#
+ #{r\ 642}#
+ #{w\ 643}#
+ #{s\ 644}#
+ #{mod\ 645}#
+ #{get-formals\ 646}#
+ #{clauses\ 647}#)
+ (letrec ((#{expand-body\ 662}#
+ (lambda (#{req\ 663}#
+ #{opt\ 664}#
+ #{rest\ 665}#
+ #{kw\ 666}#
+ #{body\ 667}#
+ #{vars\ 668}#
+ #{r*\ 669}#
+ #{w*\ 670}#
+ #{inits\ 671}#)
+ ((lambda (#{tmp\ 681}#)
+ ((lambda (#{tmp\ 682}#)
+ (if (if #{tmp\ 682}#
+ (apply (lambda (#{docstring\ 686}#
+ #{e1\ 687}#
+ #{e2\ 688}#)
(string?
(syntax->datum
- #{docstring\ 340}#)))
- #{tmp\ 339}#)
+ #{docstring\ 686}#)))
+ #{tmp\ 682}#)
#f)
- (apply (lambda (#{docstring\ 343}#
- #{e1\ 344}#
- #{e2\ 345}#)
+ (apply (lambda (#{docstring\ 692}#
+ #{e1\ 693}#
+ #{e2\ 694}#)
(values
(syntax->datum
- #{docstring\ 343}#)
- #{req\ 329}#
- #{opt\ 330}#
- #{rest\ 331}#
- #{kw\ 332}#
- #{inits\ 337}#
- #{vars\ 334}#
- (#{chi-body\ 168}#
- (cons #{e1\ 344}# #{e2\ 345}#)
- (#{source-wrap\ 157}#
- #{e\ 318}#
- #{w\ 320}#
- #{s\ 321}#
- #{mod\ 322}#)
- #{r*\ 335}#
- #{w*\ 336}#
- #{mod\ 322}#)))
- #{tmp\ 339}#)
- ((lambda (#{tmp\ 347}#)
- (if #{tmp\ 347}#
- (apply (lambda (#{e1\ 348}#
- #{e2\ 349}#)
+ #{docstring\ 692}#)
+ #{req\ 663}#
+ #{opt\ 664}#
+ #{rest\ 665}#
+ #{kw\ 666}#
+ #{inits\ 671}#
+ #{vars\ 668}#
+ (#{chi-body\ 353}#
+ (cons #{e1\ 693}# #{e2\ 694}#)
+ (#{source-wrap\ 331}#
+ #{e\ 641}#
+ #{w\ 643}#
+ #{s\ 644}#
+ #{mod\ 645}#)
+ #{r*\ 669}#
+ #{w*\ 670}#
+ #{mod\ 645}#)))
+ #{tmp\ 682}#)
+ ((lambda (#{tmp\ 696}#)
+ (if #{tmp\ 696}#
+ (apply (lambda (#{e1\ 699}#
+ #{e2\ 700}#)
(values
#f
- #{req\ 329}#
- #{opt\ 330}#
- #{rest\ 331}#
- #{kw\ 332}#
- #{inits\ 337}#
- #{vars\ 334}#
- (#{chi-body\ 168}#
- (cons #{e1\ 348}#
- #{e2\ 349}#)
- (#{source-wrap\ 157}#
- #{e\ 318}#
- #{w\ 320}#
- #{s\ 321}#
- #{mod\ 322}#)
- #{r*\ 335}#
- #{w*\ 336}#
- #{mod\ 322}#)))
- #{tmp\ 347}#)
+ #{req\ 663}#
+ #{opt\ 664}#
+ #{rest\ 665}#
+ #{kw\ 666}#
+ #{inits\ 671}#
+ #{vars\ 668}#
+ (#{chi-body\ 353}#
+ (cons #{e1\ 699}#
+ #{e2\ 700}#)
+ (#{source-wrap\ 331}#
+ #{e\ 641}#
+ #{w\ 643}#
+ #{s\ 644}#
+ #{mod\ 645}#)
+ #{r*\ 669}#
+ #{w*\ 670}#
+ #{mod\ 645}#)))
+ #{tmp\ 696}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 338}#)))
+ #{tmp\ 681}#)))
($sc-dispatch
- #{tmp\ 338}#
+ #{tmp\ 681}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 338}#
+ #{tmp\ 681}#
'(any any . each-any))))
- #{body\ 333}#)))
- (#{expand-kw\ 327}#
- (lambda (#{req\ 351}#
- #{opt\ 352}#
- #{rest\ 353}#
- #{kw\ 354}#
- #{body\ 355}#
- #{vars\ 356}#
- #{r*\ 357}#
- #{w*\ 358}#
- #{aok\ 359}#
- #{out\ 360}#
- #{inits\ 361}#)
- (if (pair? #{kw\ 354}#)
- ((lambda (#{tmp\ 362}#)
- ((lambda (#{tmp\ 363}#)
- (if #{tmp\ 363}#
- (apply (lambda (#{k\ 364}#
- #{id\ 365}#
- #{i\ 366}#)
- (let ((#{v\ 367}# (#{gen-var\
178}#
- #{id\
365}#)))
- (let ((#{l\ 368}#
(#{gen-labels\ 134}#
- (list
#{v\ 367}#))))
- (let ((#{r**\ 369}#
- (#{extend-var-env\
123}#
- #{l\ 368}#
- (list #{v\ 367}#)
- #{r*\ 357}#)))
- (let ((#{w**\ 370}#
-
(#{make-binding-wrap\ 145}#
- (list #{id\
365}#)
- #{l\ 368}#
- #{w*\ 358}#)))
- (#{expand-kw\ 327}#
- #{req\ 351}#
- #{opt\ 352}#
- #{rest\ 353}#
- (cdr #{kw\ 354}#)
- #{body\ 355}#
- (cons #{v\ 367}#
- #{vars\ 356}#)
- #{r**\ 369}#
- #{w**\ 370}#
- #{aok\ 359}#
+ #{body\ 667}#)))
+ (#{expand-kw\ 660}#
+ (lambda (#{req\ 702}#
+ #{opt\ 703}#
+ #{rest\ 704}#
+ #{kw\ 705}#
+ #{body\ 706}#
+ #{vars\ 707}#
+ #{r*\ 708}#
+ #{w*\ 709}#
+ #{aok\ 710}#
+ #{out\ 711}#
+ #{inits\ 712}#)
+ (if (pair? #{kw\ 705}#)
+ ((lambda (#{tmp\ 726}#)
+ ((lambda (#{tmp\ 727}#)
+ (if #{tmp\ 727}#
+ (apply (lambda (#{k\ 731}#
+ #{id\ 732}#
+ #{i\ 733}#)
+ (let ((#{v\ 736}# (#{gen-var\
373}#
+ #{id\
732}#)))
+ (let ((#{l\ 738}#
(#{gen-labels\ 278}#
+ (list
#{v\ 736}#))))
+ (let ((#{r**\ 740}#
+ (#{extend-var-env\
250}#
+ #{l\ 738}#
+ (list #{v\ 736}#)
+ #{r*\ 708}#)))
+ (let ((#{w**\ 742}#
+
(#{make-binding-wrap\ 307}#
+ (list #{id\
732}#)
+ #{l\ 738}#
+ #{w*\ 709}#)))
+ (#{expand-kw\ 660}#
+ #{req\ 702}#
+ #{opt\ 703}#
+ #{rest\ 704}#
+ (cdr #{kw\ 705}#)
+ #{body\ 706}#
+ (cons #{v\ 736}#
+ #{vars\ 707}#)
+ #{r**\ 740}#
+ #{w**\ 742}#
+ #{aok\ 710}#
(cons (list
(syntax->datum
- #{k\
364}#)
+ #{k\
731}#)
(syntax->datum
- #{id\
365}#)
- #{v\
367}#)
- #{out\ 360}#)
- (cons (#{chi\ 164}#
- #{i\ 366}#
- #{r*\ 357}#
- #{w*\ 358}#
- #{mod\ 322}#)
- #{inits\
361}#)))))))
- #{tmp\ 363}#)
+ #{id\
732}#)
+ #{v\
736}#)
+ #{out\ 711}#)
+ (cons (#{chi\ 345}#
+ #{i\ 733}#
+ #{r*\ 708}#
+ #{w*\ 709}#
+ #{mod\ 645}#)
+ #{inits\
712}#)))))))
+ #{tmp\ 727}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 362}#)))
+ #{tmp\ 726}#)))
($sc-dispatch
- #{tmp\ 362}#
+ #{tmp\ 726}#
'(any any any))))
- (car #{kw\ 354}#))
- (#{expand-body\ 328}#
- #{req\ 351}#
- #{opt\ 352}#
- #{rest\ 353}#
- (if (let ((#{t\ 371}# #{aok\ 359}#))
- (if #{t\ 371}#
- #{t\ 371}#
- (pair? #{out\ 360}#)))
- (cons #{aok\ 359}# (reverse #{out\ 360}#))
+ (car #{kw\ 705}#))
+ (#{expand-body\ 662}#
+ #{req\ 702}#
+ #{opt\ 703}#
+ #{rest\ 704}#
+ (if (let ((#{t\ 746}# #{aok\ 710}#))
+ (if #{t\ 746}#
+ #{t\ 746}#
+ (pair? #{out\ 711}#)))
+ (cons #{aok\ 710}# (reverse #{out\ 711}#))
#f)
- #{body\ 355}#
- (reverse #{vars\ 356}#)
- #{r*\ 357}#
- #{w*\ 358}#
- (reverse #{inits\ 361}#)))))
- (#{expand-opt\ 326}#
- (lambda (#{req\ 372}#
- #{opt\ 373}#
- #{rest\ 374}#
- #{kw\ 375}#
- #{body\ 376}#
- #{vars\ 377}#
- #{r*\ 378}#
- #{w*\ 379}#
- #{out\ 380}#
- #{inits\ 381}#)
- (if (pair? #{opt\ 373}#)
- ((lambda (#{tmp\ 382}#)
- ((lambda (#{tmp\ 383}#)
- (if #{tmp\ 383}#
- (apply (lambda (#{id\ 384}# #{i\ 385}#)
- (let ((#{v\ 386}# (#{gen-var\
178}#
- #{id\
384}#)))
- (let ((#{l\ 387}#
(#{gen-labels\ 134}#
- (list
#{v\ 386}#))))
- (let ((#{r**\ 388}#
- (#{extend-var-env\
123}#
- #{l\ 387}#
- (list #{v\ 386}#)
- #{r*\ 378}#)))
- (let ((#{w**\ 389}#
-
(#{make-binding-wrap\ 145}#
- (list #{id\
384}#)
- #{l\ 387}#
- #{w*\ 379}#)))
- (#{expand-opt\ 326}#
- #{req\ 372}#
- (cdr #{opt\ 373}#)
- #{rest\ 374}#
- #{kw\ 375}#
- #{body\ 376}#
- (cons #{v\ 386}#
- #{vars\ 377}#)
- #{r**\ 388}#
- #{w**\ 389}#
+ #{body\ 706}#
+ (reverse #{vars\ 707}#)
+ #{r*\ 708}#
+ #{w*\ 709}#
+ (reverse #{inits\ 712}#)))))
+ (#{expand-opt\ 658}#
+ (lambda (#{req\ 748}#
+ #{opt\ 749}#
+ #{rest\ 750}#
+ #{kw\ 751}#
+ #{body\ 752}#
+ #{vars\ 753}#
+ #{r*\ 754}#
+ #{w*\ 755}#
+ #{out\ 756}#
+ #{inits\ 757}#)
+ (if (pair? #{opt\ 749}#)
+ ((lambda (#{tmp\ 770}#)
+ ((lambda (#{tmp\ 771}#)
+ (if #{tmp\ 771}#
+ (apply (lambda (#{id\ 774}# #{i\ 775}#)
+ (let ((#{v\ 778}# (#{gen-var\
373}#
+ #{id\
774}#)))
+ (let ((#{l\ 780}#
(#{gen-labels\ 278}#
+ (list
#{v\ 778}#))))
+ (let ((#{r**\ 782}#
+ (#{extend-var-env\
250}#
+ #{l\ 780}#
+ (list #{v\ 778}#)
+ #{r*\ 754}#)))
+ (let ((#{w**\ 784}#
+
(#{make-binding-wrap\ 307}#
+ (list #{id\
774}#)
+ #{l\ 780}#
+ #{w*\ 755}#)))
+ (#{expand-opt\ 658}#
+ #{req\ 748}#
+ (cdr #{opt\ 749}#)
+ #{rest\ 750}#
+ #{kw\ 751}#
+ #{body\ 752}#
+ (cons #{v\ 778}#
+ #{vars\ 753}#)
+ #{r**\ 782}#
+ #{w**\ 784}#
(cons (syntax->datum
- #{id\ 384}#)
- #{out\ 380}#)
- (cons (#{chi\ 164}#
- #{i\ 385}#
- #{r*\ 378}#
- #{w*\ 379}#
- #{mod\ 322}#)
- #{inits\
381}#)))))))
- #{tmp\ 383}#)
+ #{id\ 774}#)
+ #{out\ 756}#)
+ (cons (#{chi\ 345}#
+ #{i\ 775}#
+ #{r*\ 754}#
+ #{w*\ 755}#
+ #{mod\ 645}#)
+ #{inits\
757}#)))))))
+ #{tmp\ 771}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 382}#)))
+ #{tmp\ 770}#)))
($sc-dispatch
- #{tmp\ 382}#
+ #{tmp\ 770}#
'(any any))))
- (car #{opt\ 373}#))
- (if #{rest\ 374}#
- (let ((#{v\ 390}# (#{gen-var\ 178}#
- #{rest\ 374}#)))
- (let ((#{l\ 391}# (#{gen-labels\ 134}#
- (list #{v\ 390}#))))
- (let ((#{r*\ 392}#
- (#{extend-var-env\ 123}#
- #{l\ 391}#
- (list #{v\ 390}#)
- #{r*\ 378}#)))
- (let ((#{w*\ 393}#
- (#{make-binding-wrap\ 145}#
- (list #{rest\ 374}#)
- #{l\ 391}#
- #{w*\ 379}#)))
- (#{expand-kw\ 327}#
- #{req\ 372}#
- (if (pair? #{out\ 380}#)
- (reverse #{out\ 380}#)
+ (car #{opt\ 749}#))
+ (if #{rest\ 750}#
+ (let ((#{v\ 789}# (#{gen-var\ 373}#
+ #{rest\ 750}#)))
+ (let ((#{l\ 791}# (#{gen-labels\ 278}#
+ (list #{v\ 789}#))))
+ (let ((#{r*\ 793}#
+ (#{extend-var-env\ 250}#
+ #{l\ 791}#
+ (list #{v\ 789}#)
+ #{r*\ 754}#)))
+ (let ((#{w*\ 795}#
+ (#{make-binding-wrap\ 307}#
+ (list #{rest\ 750}#)
+ #{l\ 791}#
+ #{w*\ 755}#)))
+ (#{expand-kw\ 660}#
+ #{req\ 748}#
+ (if (pair? #{out\ 756}#)
+ (reverse #{out\ 756}#)
#f)
- (syntax->datum #{rest\ 374}#)
- (if (pair? #{kw\ 375}#)
- (cdr #{kw\ 375}#)
- #{kw\ 375}#)
- #{body\ 376}#
- (cons #{v\ 390}# #{vars\ 377}#)
- #{r*\ 392}#
- #{w*\ 393}#
- (if (pair? #{kw\ 375}#)
- (car #{kw\ 375}#)
+ (syntax->datum #{rest\ 750}#)
+ (if (pair? #{kw\ 751}#)
+ (cdr #{kw\ 751}#)
+ #{kw\ 751}#)
+ #{body\ 752}#
+ (cons #{v\ 789}# #{vars\ 753}#)
+ #{r*\ 793}#
+ #{w*\ 795}#
+ (if (pair? #{kw\ 751}#)
+ (car #{kw\ 751}#)
#f)
'()
- #{inits\ 381}#)))))
- (#{expand-kw\ 327}#
- #{req\ 372}#
- (if (pair? #{out\ 380}#)
- (reverse #{out\ 380}#)
+ #{inits\ 757}#)))))
+ (#{expand-kw\ 660}#
+ #{req\ 748}#
+ (if (pair? #{out\ 756}#)
+ (reverse #{out\ 756}#)
#f)
#f
- (if (pair? #{kw\ 375}#)
- (cdr #{kw\ 375}#)
- #{kw\ 375}#)
- #{body\ 376}#
- #{vars\ 377}#
- #{r*\ 378}#
- #{w*\ 379}#
- (if (pair? #{kw\ 375}#) (car #{kw\ 375}#) #f)
+ (if (pair? #{kw\ 751}#)
+ (cdr #{kw\ 751}#)
+ #{kw\ 751}#)
+ #{body\ 752}#
+ #{vars\ 753}#
+ #{r*\ 754}#
+ #{w*\ 755}#
+ (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f)
'()
- #{inits\ 381}#)))))
- (#{expand-req\ 325}#
- (lambda (#{req\ 394}#
- #{opt\ 395}#
- #{rest\ 396}#
- #{kw\ 397}#
- #{body\ 398}#)
- (let ((#{vars\ 399}#
- (map #{gen-var\ 178}# #{req\ 394}#))
- (#{labels\ 400}#
- (#{gen-labels\ 134}# #{req\ 394}#)))
- (let ((#{r*\ 401}#
- (#{extend-var-env\ 123}#
- #{labels\ 400}#
- #{vars\ 399}#
- #{r\ 319}#))
- (#{w*\ 402}#
- (#{make-binding-wrap\ 145}#
- #{req\ 394}#
- #{labels\ 400}#
- #{w\ 320}#)))
- (#{expand-opt\ 326}#
- (map syntax->datum #{req\ 394}#)
- #{opt\ 395}#
- #{rest\ 396}#
- #{kw\ 397}#
- #{body\ 398}#
- (reverse #{vars\ 399}#)
- #{r*\ 401}#
- #{w*\ 402}#
+ #{inits\ 757}#)))))
+ (#{expand-req\ 656}#
+ (lambda (#{req\ 797}#
+ #{opt\ 798}#
+ #{rest\ 799}#
+ #{kw\ 800}#
+ #{body\ 801}#)
+ (let ((#{vars\ 809}#
+ (map #{gen-var\ 373}# #{req\ 797}#))
+ (#{labels\ 810}#
+ (#{gen-labels\ 278}# #{req\ 797}#)))
+ (let ((#{r*\ 813}#
+ (#{extend-var-env\ 250}#
+ #{labels\ 810}#
+ #{vars\ 809}#
+ #{r\ 642}#))
+ (#{w*\ 814}#
+ (#{make-binding-wrap\ 307}#
+ #{req\ 797}#
+ #{labels\ 810}#
+ #{w\ 643}#)))
+ (#{expand-opt\ 658}#
+ (map syntax->datum #{req\ 797}#)
+ #{opt\ 798}#
+ #{rest\ 799}#
+ #{kw\ 800}#
+ #{body\ 801}#
+ (reverse #{vars\ 809}#)
+ #{r*\ 813}#
+ #{w*\ 814}#
'()
'()))))))
- ((lambda (#{tmp\ 403}#)
- ((lambda (#{tmp\ 404}#)
- (if #{tmp\ 404}#
- (apply (lambda () (values #f #f)) #{tmp\ 404}#)
- ((lambda (#{tmp\ 405}#)
- (if #{tmp\ 405}#
- (apply (lambda (#{args\ 406}#
- #{e1\ 407}#
- #{e2\ 408}#
- #{args*\ 409}#
- #{e1*\ 410}#
- #{e2*\ 411}#)
+ ((lambda (#{tmp\ 815}#)
+ ((lambda (#{tmp\ 816}#)
+ (if #{tmp\ 816}#
+ (apply (lambda () (values #f #f)) #{tmp\ 816}#)
+ ((lambda (#{tmp\ 817}#)
+ (if #{tmp\ 817}#
+ (apply (lambda (#{args\ 824}#
+ #{e1\ 825}#
+ #{e2\ 826}#
+ #{args*\ 827}#
+ #{e1*\ 828}#
+ #{e2*\ 829}#)
(call-with-values
(lambda ()
- (#{get-formals\ 323}#
- #{args\ 406}#))
- (lambda (#{req\ 412}#
- #{opt\ 413}#
- #{rest\ 414}#
- #{kw\ 415}#)
+ (#{get-formals\ 646}#
+ #{args\ 824}#))
+ (lambda (#{req\ 830}#
+ #{opt\ 831}#
+ #{rest\ 832}#
+ #{kw\ 833}#)
(call-with-values
(lambda ()
- (#{expand-req\ 325}#
- #{req\ 412}#
- #{opt\ 413}#
- #{rest\ 414}#
- #{kw\ 415}#
- (cons #{e1\ 407}#
- #{e2\ 408}#)))
- (lambda (#{docstring\ 417}#
- #{req\ 418}#
- #{opt\ 419}#
- #{rest\ 420}#
- #{kw\ 421}#
- #{inits\ 422}#
- #{vars\ 423}#
- #{body\ 424}#)
+ (#{expand-req\ 656}#
+ #{req\ 830}#
+ #{opt\ 831}#
+ #{rest\ 832}#
+ #{kw\ 833}#
+ (cons #{e1\ 825}#
+ #{e2\ 826}#)))
+ (lambda (#{docstring\ 839}#
+ #{req\ 840}#
+ #{opt\ 841}#
+ #{rest\ 842}#
+ #{kw\ 843}#
+ #{inits\ 844}#
+ #{vars\ 845}#
+ #{body\ 846}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 176}#
- #{e\ 318}#
- #{r\ 319}#
- #{w\ 320}#
- #{s\ 321}#
- #{mod\ 322}#
- #{get-formals\ 323}#
- (map (lambda (#{tmp\ 427}#
- #{tmp\ 426}#
- #{tmp\
425}#)
- (cons #{tmp\ 425}#
- (cons #{tmp\
426}#
- #{tmp\
427}#)))
- #{e2*\ 411}#
- #{e1*\ 410}#
- #{args*\ 409}#)))
- (lambda (#{docstring*\ 429}#
- #{else*\ 430}#)
+ (#{chi-lambda-case\ 369}#
+ #{e\ 641}#
+ #{r\ 642}#
+ #{w\ 643}#
+ #{s\ 644}#
+ #{mod\ 645}#
+ #{get-formals\ 646}#
+ (map (lambda (#{tmp\ 857}#
+ #{tmp\ 856}#
+ #{tmp\
855}#)
+ (cons #{tmp\ 855}#
+ (cons #{tmp\
856}#
+ #{tmp\
857}#)))
+ #{e2*\ 829}#
+ #{e1*\ 828}#
+ #{args*\ 827}#)))
+ (lambda (#{docstring*\ 859}#
+ #{else*\ 860}#)
(values
- (let ((#{t\ 431}#
#{docstring\ 417}#))
- (if #{t\ 431}#
- #{t\ 431}#
- #{docstring*\ 429}#))
- (#{build-lambda-case\
104}#
- #{s\ 321}#
- #{req\ 418}#
- #{opt\ 419}#
- #{rest\ 420}#
- #{kw\ 421}#
- #{inits\ 422}#
- #{vars\ 423}#
- #{body\ 424}#
- #{else*\ 430}#)))))))))
- #{tmp\ 405}#)
+ (let ((#{t\ 865}#
#{docstring\ 839}#))
+ (if #{t\ 865}#
+ #{t\ 865}#
+ #{docstring*\ 859}#))
+ (#{build-lambda-case\
206}#
+ #{s\ 644}#
+ #{req\ 840}#
+ #{opt\ 841}#
+ #{rest\ 842}#
+ #{kw\ 843}#
+ #{inits\ 844}#
+ #{vars\ 845}#
+ #{body\ 846}#
+ #{else*\ 860}#)))))))))
+ #{tmp\ 817}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 403}#)))
+ #{tmp\ 815}#)))
($sc-dispatch
- #{tmp\ 403}#
+ #{tmp\ 815}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 403}# (quote ()))))
- #{clauses\ 324}#))))
- (#{lambda*-formals\ 175}#
- (lambda (#{orig-args\ 432}#)
- (letrec ((#{check\ 437}#
- (lambda (#{req\ 438}#
- #{opt\ 439}#
- #{rest\ 440}#
- #{kw\ 441}#)
- (if (#{distinct-bound-ids?\ 154}#
+ ($sc-dispatch #{tmp\ 815}# (quote ()))))
+ #{clauses\ 647}#))))
+ (#{lambda*-formals\ 367}#
+ (lambda (#{orig-args\ 867}#)
+ (letrec ((#{check\ 878}#
+ (lambda (#{req\ 879}#
+ #{opt\ 880}#
+ #{rest\ 881}#
+ #{kw\ 882}#)
+ (if (#{distinct-bound-ids?\ 325}#
(append
- #{req\ 438}#
- (map car #{opt\ 439}#)
- (if #{rest\ 440}#
- (list #{rest\ 440}#)
+ #{req\ 879}#
+ (map car #{opt\ 880}#)
+ (if #{rest\ 881}#
+ (list #{rest\ 881}#)
'())
- (if (pair? #{kw\ 441}#)
- (map cadr (cdr #{kw\ 441}#))
+ (if (pair? #{kw\ 882}#)
+ (map cadr (cdr #{kw\ 882}#))
'())))
(values
- #{req\ 438}#
- #{opt\ 439}#
- #{rest\ 440}#
- #{kw\ 441}#)
+ #{req\ 879}#
+ #{opt\ 880}#
+ #{rest\ 881}#
+ #{kw\ 882}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 432}#))))
- (#{rest\ 436}#
- (lambda (#{args\ 442}#
- #{req\ 443}#
- #{opt\ 444}#
- #{kw\ 445}#)
- ((lambda (#{tmp\ 446}#)
- ((lambda (#{tmp\ 447}#)
- (if (if #{tmp\ 447}#
- (apply (lambda (#{r\ 448}#)
- (#{id?\ 128}# #{r\ 448}#))
- #{tmp\ 447}#)
+ #{orig-args\ 867}#))))
+ (#{rest\ 876}#
+ (lambda (#{args\ 890}#
+ #{req\ 891}#
+ #{opt\ 892}#
+ #{kw\ 893}#)
+ ((lambda (#{tmp\ 898}#)
+ ((lambda (#{tmp\ 899}#)
+ (if (if #{tmp\ 899}#
+ (apply (lambda (#{r\ 901}#)
+ (#{id?\ 260}# #{r\ 901}#))
+ #{tmp\ 899}#)
#f)
- (apply (lambda (#{r\ 449}#)
- (#{check\ 437}#
- #{req\ 443}#
- #{opt\ 444}#
- #{r\ 449}#
- #{kw\ 445}#))
- #{tmp\ 447}#)
- ((lambda (#{else\ 450}#)
+ (apply (lambda (#{r\ 903}#)
+ (#{check\ 878}#
+ #{req\ 891}#
+ #{opt\ 892}#
+ #{r\ 903}#
+ #{kw\ 893}#))
+ #{tmp\ 899}#)
+ ((lambda (#{else\ 905}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 432}#
- #{args\ 442}#))
- #{tmp\ 446}#)))
- (list #{tmp\ 446}#)))
- #{args\ 442}#)))
- (#{key\ 435}#
- (lambda (#{args\ 451}#
- #{req\ 452}#
- #{opt\ 453}#
- #{rkey\ 454}#)
- ((lambda (#{tmp\ 455}#)
- ((lambda (#{tmp\ 456}#)
- (if #{tmp\ 456}#
+ #{orig-args\ 867}#
+ #{args\ 890}#))
+ #{tmp\ 898}#)))
+ (list #{tmp\ 898}#)))
+ #{args\ 890}#)))
+ (#{key\ 874}#
+ (lambda (#{args\ 906}#
+ #{req\ 907}#
+ #{opt\ 908}#
+ #{rkey\ 909}#)
+ ((lambda (#{tmp\ 914}#)
+ ((lambda (#{tmp\ 915}#)
+ (if #{tmp\ 915}#
(apply (lambda ()
- (#{check\ 437}#
- #{req\ 452}#
- #{opt\ 453}#
+ (#{check\ 878}#
+ #{req\ 907}#
+ #{opt\ 908}#
#f
(cons #f
- (reverse #{rkey\ 454}#))))
- #{tmp\ 456}#)
- ((lambda (#{tmp\ 457}#)
- (if (if #{tmp\ 457}#
- (apply (lambda (#{a\ 458}#
- #{b\ 459}#)
- (#{id?\ 128}#
- #{a\ 458}#))
- #{tmp\ 457}#)
+ (reverse #{rkey\ 909}#))))
+ #{tmp\ 915}#)
+ ((lambda (#{tmp\ 916}#)
+ (if (if #{tmp\ 916}#
+ (apply (lambda (#{a\ 919}#
+ #{b\ 920}#)
+ (#{id?\ 260}#
+ #{a\ 919}#))
+ #{tmp\ 916}#)
#f)
- (apply (lambda (#{a\ 460}# #{b\ 461}#)
- ((lambda (#{tmp\ 462}#)
- ((lambda (#{k\ 463}#)
- (#{key\ 435}#
- #{b\ 461}#
- #{req\ 452}#
- #{opt\ 453}#
- (cons (cons #{k\
463}#
- (cons
#{a\ 460}#
+ (apply (lambda (#{a\ 923}# #{b\ 924}#)
+ ((lambda (#{tmp\ 926}#)
+ ((lambda (#{k\ 928}#)
+ (#{key\ 874}#
+ #{b\ 924}#
+ #{req\ 907}#
+ #{opt\ 908}#
+ (cons (cons #{k\
928}#
+ (cons
#{a\ 923}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
-
#("i"))
+
#("i927"))
#(ribcage
#(a
b)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i921"
+
"i922"))
#(ribcage
()
()
@@ -618,10 +618,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i910"
+
"i911"
+
"i912"
+
"i913"))
#(ribcage
(check rest
key
@@ -632,15 +632,15 @@
(top)
(top)
(top))
-
("i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
("i877"
+
"i875"
+
"i873"
+
"i871"
+
"i869"))
#(ribcage
#(orig-args)
#((top))
-
#("i"))
+
#("i868"))
#(ribcage
(lambda-var-list
gen-var
@@ -876,348 +876,349 @@
(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"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
("i374"
+
"i372"
+
"i370"
+
"i368"
+
"i366"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i354"
+
"i352"
+
"i350"
+
"i348"
+
"i346"
+
"i344"
+
"i342"
+
"i340"
+
"i338"
+
"i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i303"
+
"i302"
+
"i300"
+
"i299"
+
"i298"
+
"i297"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i277"
+
"i275"
+
"i274"
+
"i273"
+
"i272"
+
"i271"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i246"
+
"i244"
+
"i242"
+
"i241"
+
"i240"
+
"i238"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"
+
"i227"
+
"i225"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i174"
+
"i172"
+
"i170"
+
"i168"
+
"i166"
+
"i164"
+
"i162"
+
"i160"
+
"i158"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i"
-
"i")))
+
("i61"
+
"i59")))
(hygiene
guile)))))
- #{rkey\
454}#)))
- #{tmp\ 462}#))
+ #{rkey\
909}#)))
+ #{tmp\ 926}#))
(symbol->keyword
(syntax->datum
- #{a\ 460}#))))
- #{tmp\ 457}#)
- ((lambda (#{tmp\ 464}#)
- (if (if #{tmp\ 464}#
- (apply (lambda (#{a\ 465}#
- #{init\ 466}#
- #{b\ 467}#)
- (#{id?\ 128}#
- #{a\ 465}#))
- #{tmp\ 464}#)
+ #{a\ 923}#))))
+ #{tmp\ 916}#)
+ ((lambda (#{tmp\ 929}#)
+ (if (if #{tmp\ 929}#
+ (apply (lambda (#{a\ 933}#
+ #{init\ 934}#
+ #{b\ 935}#)
+ (#{id?\ 260}#
+ #{a\ 933}#))
+ #{tmp\ 929}#)
#f)
- (apply (lambda (#{a\ 468}#
- #{init\ 469}#
- #{b\ 470}#)
- ((lambda (#{tmp\ 471}#)
- ((lambda (#{k\ 472}#)
- (#{key\ 435}#
- #{b\ 470}#
- #{req\ 452}#
- #{opt\ 453}#
- (cons (list
#{k\ 472}#
-
#{a\ 468}#
-
#{init\ 469}#)
- #{rkey\
454}#)))
- #{tmp\ 471}#))
+ (apply (lambda (#{a\ 939}#
+ #{init\ 940}#
+ #{b\ 941}#)
+ ((lambda (#{tmp\ 943}#)
+ ((lambda (#{k\ 945}#)
+ (#{key\ 874}#
+ #{b\ 941}#
+ #{req\ 907}#
+ #{opt\ 908}#
+ (cons (list
#{k\ 945}#
+
#{a\ 939}#
+
#{init\ 940}#)
+ #{rkey\
909}#)))
+ #{tmp\ 943}#))
(symbol->keyword
(syntax->datum
- #{a\ 468}#))))
- #{tmp\ 464}#)
- ((lambda (#{tmp\ 473}#)
- (if (if #{tmp\ 473}#
- (apply (lambda (#{a\
474}#
- #{init\
475}#
- #{k\
476}#
- #{b\
477}#)
- (if (#{id?\
128}#
- #{a\
474}#)
+ #{a\ 939}#))))
+ #{tmp\ 929}#)
+ ((lambda (#{tmp\ 946}#)
+ (if (if #{tmp\ 946}#
+ (apply (lambda (#{a\
951}#
+ #{init\
952}#
+ #{k\
953}#
+ #{b\
954}#)
+ (if (#{id?\
260}#
+ #{a\
951}#)
(keyword?
(syntax->datum
- #{k\
476}#))
+ #{k\
953}#))
#f))
- #{tmp\ 473}#)
+ #{tmp\ 946}#)
#f)
- (apply (lambda (#{a\ 478}#
- #{init\
479}#
- #{k\ 480}#
- #{b\ 481}#)
- (#{key\ 435}#
- #{b\ 481}#
- #{req\ 452}#
- #{opt\ 453}#
- (cons (list #{k\
480}#
- #{a\
478}#
-
#{init\ 479}#)
- #{rkey\
454}#)))
- #{tmp\ 473}#)
- ((lambda (#{tmp\ 482}#)
- (if (if #{tmp\ 482}#
- (apply (lambda
(#{aok\ 483}#)
+ (apply (lambda (#{a\ 961}#
+ #{init\
962}#
+ #{k\ 963}#
+ #{b\ 964}#)
+ (#{key\ 874}#
+ #{b\ 964}#
+ #{req\ 907}#
+ #{opt\ 908}#
+ (cons (list #{k\
963}#
+ #{a\
961}#
+
#{init\ 962}#)
+ #{rkey\
909}#)))
+ #{tmp\ 946}#)
+ ((lambda (#{tmp\ 965}#)
+ (if (if #{tmp\ 965}#
+ (apply (lambda
(#{aok\ 967}#)
(eq?
(syntax->datum
-
#{aok\ 483}#)
+
#{aok\ 967}#)
#:allow-other-keys))
- #{tmp\
482}#)
+ #{tmp\
965}#)
#f)
- (apply (lambda (#{aok\
484}#)
- (#{check\
437}#
- #{req\ 452}#
- #{opt\ 453}#
+ (apply (lambda (#{aok\
969}#)
+ (#{check\
878}#
+ #{req\ 907}#
+ #{opt\ 908}#
#f
(cons #t
(reverse
-
#{rkey\ 454}#))))
- #{tmp\ 482}#)
- ((lambda (#{tmp\ 485}#)
- (if (if #{tmp\ 485}#
- (apply
(lambda (#{aok\ 486}#
-
#{a\ 487}#
-
#{b\ 488}#)
+
#{rkey\ 909}#))))
+ #{tmp\ 965}#)
+ ((lambda (#{tmp\ 970}#)
+ (if (if #{tmp\ 970}#
+ (apply
(lambda (#{aok\ 974}#
+
#{a\ 975}#
+
#{b\ 976}#)
(if
(eq? (syntax->datum
-
#{aok\ 486}#)
+
#{aok\ 974}#)
#:allow-other-keys)
(eq? (syntax->datum
-
#{a\ 487}#)
+
#{a\ 975}#)
#:rest)
#f))
- #{tmp\
485}#)
+ #{tmp\
970}#)
#f)
- (apply (lambda
(#{aok\ 489}#
-
#{a\ 490}#
-
#{b\ 491}#)
- (#{rest\
436}#
- #{b\
491}#
- #{req\
452}#
- #{opt\
453}#
+ (apply (lambda
(#{aok\ 982}#
+
#{a\ 983}#
+
#{b\ 984}#)
+ (#{rest\
876}#
+ #{b\
984}#
+ #{req\
907}#
+ #{opt\
908}#
(cons
#t
(reverse
-
#{rkey\ 454}#))))
- #{tmp\
485}#)
- ((lambda (#{tmp\
492}#)
- (if (if #{tmp\
492}#
- (apply
(lambda (#{aok\ 493}#
-
#{r\ 494}#)
+
#{rkey\ 909}#))))
+ #{tmp\
970}#)
+ ((lambda (#{tmp\
985}#)
+ (if (if #{tmp\
985}#
+ (apply
(lambda (#{aok\ 988}#
+
#{r\ 989}#)
(if (eq? (syntax->datum
-
#{aok\ 493}#)
+
#{aok\ 988}#)
#:allow-other-keys)
-
(#{id?\ 128}#
-
#{r\ 494}#)
+
(#{id?\ 260}#
+
#{r\ 989}#)
#f))
-
#{tmp\ 492}#)
+
#{tmp\ 985}#)
#f)
- (apply
(lambda (#{aok\ 495}#
-
#{r\ 496}#)
-
(#{rest\ 436}#
-
#{r\ 496}#
-
#{req\ 452}#
-
#{opt\ 453}#
+ (apply
(lambda (#{aok\ 994}#
+
#{r\ 995}#)
+
(#{rest\ 876}#
+
#{r\ 995}#
+
#{req\ 907}#
+
#{opt\ 908}#
(cons #t
(reverse
-
#{rkey\ 454}#))))
-
#{tmp\ 492}#)
- ((lambda
(#{tmp\ 497}#)
- (if (if
#{tmp\ 497}#
-
(apply (lambda (#{a\ 498}#
-
#{b\ 499}#)
+
#{rkey\ 909}#))))
+
#{tmp\ 985}#)
+ ((lambda
(#{tmp\ 996}#)
+ (if (if
#{tmp\ 996}#
+
(apply (lambda (#{a\ 999}#
+
#{b\ 1000}#)
(eq? (syntax->datum
-
#{a\ 498}#)
+
#{a\ 999}#)
#:rest))
-
#{tmp\ 497}#)
+
#{tmp\ 996}#)
#f)
- (apply
(lambda (#{a\ 500}#
-
#{b\ 501}#)
-
(#{rest\ 436}#
-
#{b\ 501}#
-
#{req\ 452}#
-
#{opt\ 453}#
+ (apply
(lambda (#{a\ 1003}#
+
#{b\ 1004}#)
+
(#{rest\ 876}#
+
#{b\ 1004}#
+
#{req\ 907}#
+
#{opt\ 908}#
(cons #f
(reverse
-
#{rkey\ 454}#))))
-
#{tmp\ 497}#)
-
((lambda (#{tmp\ 502}#)
- (if
(if #{tmp\ 502}#
-
(apply (lambda (#{r\ 503}#)
-
(#{id?\ 128}#
-
#{r\ 503}#))
-
#{tmp\ 502}#)
+
#{rkey\ 909}#))))
+
#{tmp\ 996}#)
+
((lambda (#{tmp\ 1005}#)
+ (if
(if #{tmp\ 1005}#
+
(apply (lambda (#{r\ 1007}#)
+
(#{id?\ 260}#
+
#{r\ 1007}#))
+
#{tmp\ 1005}#)
#f)
-
(apply (lambda (#{r\ 504}#)
-
(#{rest\ 436}#
-
#{r\ 504}#
-
#{req\ 452}#
-
#{opt\ 453}#
+
(apply (lambda (#{r\ 1009}#)
+
(#{rest\ 876}#
+
#{r\ 1009}#
+
#{req\ 907}#
+
#{opt\ 908}#
(cons #f
(reverse
-
#{rkey\ 454}#))))
-
#{tmp\ 502}#)
-
((lambda (#{else\ 505}#)
+
#{rkey\ 909}#))))
+
#{tmp\ 1005}#)
+
((lambda (#{else\ 1011}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
-
#{orig-args\ 432}#
-
#{args\ 451}#))
-
#{tmp\ 455}#)))
- (list
#{tmp\ 455}#))))
+
#{orig-args\ 867}#
+
#{args\ 906}#))
+
#{tmp\ 914}#)))
+ (list
#{tmp\ 914}#))))
($sc-dispatch
- #{tmp\
455}#
+ #{tmp\
914}#
'(any
any)))))
($sc-dispatch
- #{tmp\ 455}#
+ #{tmp\ 914}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 455}#
+ #{tmp\ 914}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 455}#
+ #{tmp\ 914}#
'(any)))))
($sc-dispatch
- #{tmp\ 455}#
+ #{tmp\ 914}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 455}#
+ #{tmp\ 914}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 455}#
+ #{tmp\ 914}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 455}# (quote ()))))
- #{args\ 451}#)))
- (#{opt\ 434}#
- (lambda (#{args\ 506}# #{req\ 507}# #{ropt\ 508}#)
- ((lambda (#{tmp\ 509}#)
- ((lambda (#{tmp\ 510}#)
- (if #{tmp\ 510}#
+ ($sc-dispatch #{tmp\ 914}# (quote ()))))
+ #{args\ 906}#)))
+ (#{opt\ 872}#
+ (lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#)
+ ((lambda (#{tmp\ 1018}#)
+ ((lambda (#{tmp\ 1019}#)
+ (if #{tmp\ 1019}#
(apply (lambda ()
- (#{check\ 437}#
- #{req\ 507}#
- (reverse #{ropt\ 508}#)
+ (#{check\ 878}#
+ #{req\ 1013}#
+ (reverse #{ropt\ 1014}#)
#f
'()))
- #{tmp\ 510}#)
- ((lambda (#{tmp\ 511}#)
- (if (if #{tmp\ 511}#
- (apply (lambda (#{a\ 512}#
- #{b\ 513}#)
- (#{id?\ 128}#
- #{a\ 512}#))
- #{tmp\ 511}#)
+ #{tmp\ 1019}#)
+ ((lambda (#{tmp\ 1020}#)
+ (if (if #{tmp\ 1020}#
+ (apply (lambda (#{a\ 1023}#
+ #{b\ 1024}#)
+ (#{id?\ 260}#
+ #{a\ 1023}#))
+ #{tmp\ 1020}#)
#f)
- (apply (lambda (#{a\ 514}# #{b\ 515}#)
- (#{opt\ 434}#
- #{b\ 515}#
- #{req\ 507}#
- (cons (cons #{a\ 514}#
+ (apply (lambda (#{a\ 1027}#
+ #{b\ 1028}#)
+ (#{opt\ 872}#
+ #{b\ 1028}#
+ #{req\ 1013}#
+ (cons (cons #{a\ 1027}#
'(#(syntax-object
#f
((top)
@@ -1225,8 +1226,8 @@
#(a b)
#((top)
(top))
- #("i"
- "i"))
+
#("i1025"
+
"i1026"))
#(ribcage
()
()
@@ -1238,9 +1239,9 @@
#((top)
(top)
(top))
- #("i"
- "i"
- "i"))
+
#("i1015"
+
"i1016"
+
"i1017"))
#(ribcage
(check
rest
key
@@ -1251,15 +1252,15 @@
(top)
(top)
(top))
- ("i"
- "i"
- "i"
- "i"
- "i"))
+ ("i877"
+ "i875"
+ "i873"
+ "i871"
+
"i869"))
#(ribcage
#(orig-args)
#((top))
- #("i"))
+
#("i868"))
#(ribcage
(lambda-var-list
gen-var
@@ -1495,460 +1496,462 @@
(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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+
"i158"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i"
- "i")))
+ ("i61"
+
"i59")))
(hygiene
guile))))
- #{ropt\ 508}#)))
- #{tmp\ 511}#)
- ((lambda (#{tmp\ 516}#)
- (if (if #{tmp\ 516}#
- (apply (lambda (#{a\ 517}#
- #{init\ 518}#
- #{b\ 519}#)
- (#{id?\ 128}#
- #{a\ 517}#))
- #{tmp\ 516}#)
+ #{ropt\ 1014}#)))
+ #{tmp\ 1020}#)
+ ((lambda (#{tmp\ 1029}#)
+ (if (if #{tmp\ 1029}#
+ (apply (lambda (#{a\ 1033}#
+ #{init\
1034}#
+ #{b\ 1035}#)
+ (#{id?\ 260}#
+ #{a\ 1033}#))
+ #{tmp\ 1029}#)
#f)
- (apply (lambda (#{a\ 520}#
- #{init\ 521}#
- #{b\ 522}#)
- (#{opt\ 434}#
- #{b\ 522}#
- #{req\ 507}#
- (cons (list #{a\ 520}#
- #{init\
521}#)
- #{ropt\ 508}#)))
- #{tmp\ 516}#)
- ((lambda (#{tmp\ 523}#)
- (if (if #{tmp\ 523}#
- (apply (lambda (#{a\
524}#
- #{b\
525}#)
+ (apply (lambda (#{a\ 1039}#
+ #{init\ 1040}#
+ #{b\ 1041}#)
+ (#{opt\ 872}#
+ #{b\ 1041}#
+ #{req\ 1013}#
+ (cons (list #{a\
1039}#
+ #{init\
1040}#)
+ #{ropt\
1014}#)))
+ #{tmp\ 1029}#)
+ ((lambda (#{tmp\ 1042}#)
+ (if (if #{tmp\ 1042}#
+ (apply (lambda (#{a\
1045}#
+ #{b\
1046}#)
(eq?
(syntax->datum
- #{a\
524}#)
+ #{a\
1045}#)
#:key))
- #{tmp\ 523}#)
+ #{tmp\ 1042}#)
#f)
- (apply (lambda (#{a\ 526}#
- #{b\ 527}#)
- (#{key\ 435}#
- #{b\ 527}#
- #{req\ 507}#
+ (apply (lambda (#{a\ 1049}#
+ #{b\ 1050}#)
+ (#{key\ 874}#
+ #{b\ 1050}#
+ #{req\ 1013}#
(reverse
- #{ropt\ 508}#)
+ #{ropt\ 1014}#)
'()))
- #{tmp\ 523}#)
- ((lambda (#{tmp\ 528}#)
- (if (if #{tmp\ 528}#
- (apply (lambda
(#{a\ 529}#
-
#{b\ 530}#)
+ #{tmp\ 1042}#)
+ ((lambda (#{tmp\ 1051}#)
+ (if (if #{tmp\ 1051}#
+ (apply (lambda
(#{a\ 1054}#
+
#{b\ 1055}#)
(eq?
(syntax->datum
-
#{a\ 529}#)
+
#{a\ 1054}#)
#:rest))
- #{tmp\
528}#)
+ #{tmp\
1051}#)
#f)
- (apply (lambda (#{a\
531}#
- #{b\
532}#)
- (#{rest\ 436}#
- #{b\ 532}#
- #{req\ 507}#
+ (apply (lambda (#{a\
1058}#
+ #{b\
1059}#)
+ (#{rest\ 876}#
+ #{b\ 1059}#
+ #{req\
1013}#
(reverse
- #{ropt\
508}#)
+ #{ropt\
1014}#)
'()))
- #{tmp\ 528}#)
- ((lambda (#{tmp\ 533}#)
- (if (if #{tmp\ 533}#
- (apply
(lambda (#{r\ 534}#)
-
(#{id?\ 128}#
-
#{r\ 534}#))
- #{tmp\
533}#)
+ #{tmp\ 1051}#)
+ ((lambda (#{tmp\
1060}#)
+ (if (if #{tmp\
1060}#
+ (apply
(lambda (#{r\ 1062}#)
+
(#{id?\ 260}#
+
#{r\ 1062}#))
+ #{tmp\
1060}#)
#f)
- (apply (lambda
(#{r\ 535}#)
- (#{rest\
436}#
- #{r\
535}#
- #{req\
507}#
+ (apply (lambda
(#{r\ 1064}#)
+ (#{rest\
876}#
+ #{r\
1064}#
+ #{req\
1013}#
(reverse
-
#{ropt\ 508}#)
+
#{ropt\ 1014}#)
'()))
- #{tmp\
533}#)
- ((lambda (#{else\
536}#)
+ #{tmp\
1060}#)
+ ((lambda (#{else\
1066}#)
(syntax-violation
'lambda*
"invalid
optional argument list"
- #{orig-args\
432}#
- #{args\
506}#))
- #{tmp\ 509}#)))
- (list #{tmp\ 509}#))))
+ #{orig-args\
867}#
+ #{args\
1012}#))
+ #{tmp\ 1018}#)))
+ (list #{tmp\
1018}#))))
($sc-dispatch
- #{tmp\ 509}#
+ #{tmp\ 1018}#
'(any any)))))
($sc-dispatch
- #{tmp\ 509}#
+ #{tmp\ 1018}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 509}#
+ #{tmp\ 1018}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 509}#
+ #{tmp\ 1018}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 509}# (quote ()))))
- #{args\ 506}#)))
- (#{req\ 433}#
- (lambda (#{args\ 537}# #{rreq\ 538}#)
- ((lambda (#{tmp\ 539}#)
- ((lambda (#{tmp\ 540}#)
- (if #{tmp\ 540}#
+ ($sc-dispatch #{tmp\ 1018}# (quote ()))))
+ #{args\ 1012}#)))
+ (#{req\ 870}#
+ (lambda (#{args\ 1067}# #{rreq\ 1068}#)
+ ((lambda (#{tmp\ 1071}#)
+ ((lambda (#{tmp\ 1072}#)
+ (if #{tmp\ 1072}#
(apply (lambda ()
- (#{check\ 437}#
- (reverse #{rreq\ 538}#)
+ (#{check\ 878}#
+ (reverse #{rreq\ 1068}#)
'()
#f
'()))
- #{tmp\ 540}#)
- ((lambda (#{tmp\ 541}#)
- (if (if #{tmp\ 541}#
- (apply (lambda (#{a\ 542}#
- #{b\ 543}#)
- (#{id?\ 128}#
- #{a\ 542}#))
- #{tmp\ 541}#)
+ #{tmp\ 1072}#)
+ ((lambda (#{tmp\ 1073}#)
+ (if (if #{tmp\ 1073}#
+ (apply (lambda (#{a\ 1076}#
+ #{b\ 1077}#)
+ (#{id?\ 260}#
+ #{a\ 1076}#))
+ #{tmp\ 1073}#)
#f)
- (apply (lambda (#{a\ 544}# #{b\ 545}#)
- (#{req\ 433}#
- #{b\ 545}#
- (cons #{a\ 544}#
- #{rreq\ 538}#)))
- #{tmp\ 541}#)
- ((lambda (#{tmp\ 546}#)
- (if (if #{tmp\ 546}#
- (apply (lambda (#{a\ 547}#
- #{b\ 548}#)
+ (apply (lambda (#{a\ 1080}#
+ #{b\ 1081}#)
+ (#{req\ 870}#
+ #{b\ 1081}#
+ (cons #{a\ 1080}#
+ #{rreq\ 1068}#)))
+ #{tmp\ 1073}#)
+ ((lambda (#{tmp\ 1082}#)
+ (if (if #{tmp\ 1082}#
+ (apply (lambda (#{a\ 1085}#
+ #{b\ 1086}#)
(eq? (syntax->datum
- #{a\ 547}#)
+ #{a\ 1085}#)
#:optional))
- #{tmp\ 546}#)
+ #{tmp\ 1082}#)
#f)
- (apply (lambda (#{a\ 549}#
- #{b\ 550}#)
- (#{opt\ 434}#
- #{b\ 550}#
+ (apply (lambda (#{a\ 1089}#
+ #{b\ 1090}#)
+ (#{opt\ 872}#
+ #{b\ 1090}#
(reverse
- #{rreq\ 538}#)
+ #{rreq\ 1068}#)
'()))
- #{tmp\ 546}#)
- ((lambda (#{tmp\ 551}#)
- (if (if #{tmp\ 551}#
- (apply (lambda (#{a\
552}#
- #{b\
553}#)
+ #{tmp\ 1082}#)
+ ((lambda (#{tmp\ 1091}#)
+ (if (if #{tmp\ 1091}#
+ (apply (lambda (#{a\
1094}#
+ #{b\
1095}#)
(eq?
(syntax->datum
- #{a\
552}#)
+ #{a\
1094}#)
#:key))
- #{tmp\ 551}#)
+ #{tmp\ 1091}#)
#f)
- (apply (lambda (#{a\ 554}#
- #{b\ 555}#)
- (#{key\ 435}#
- #{b\ 555}#
+ (apply (lambda (#{a\ 1098}#
+ #{b\ 1099}#)
+ (#{key\ 874}#
+ #{b\ 1099}#
(reverse
- #{rreq\ 538}#)
+ #{rreq\ 1068}#)
'()
'()))
- #{tmp\ 551}#)
- ((lambda (#{tmp\ 556}#)
- (if (if #{tmp\ 556}#
- (apply (lambda
(#{a\ 557}#
-
#{b\ 558}#)
+ #{tmp\ 1091}#)
+ ((lambda (#{tmp\ 1100}#)
+ (if (if #{tmp\ 1100}#
+ (apply (lambda
(#{a\ 1103}#
+
#{b\ 1104}#)
(eq?
(syntax->datum
-
#{a\ 557}#)
+
#{a\ 1103}#)
#:rest))
- #{tmp\
556}#)
+ #{tmp\
1100}#)
#f)
- (apply (lambda (#{a\
559}#
- #{b\
560}#)
- (#{rest\ 436}#
- #{b\ 560}#
+ (apply (lambda (#{a\
1107}#
+ #{b\
1108}#)
+ (#{rest\ 876}#
+ #{b\ 1108}#
(reverse
- #{rreq\
538}#)
+ #{rreq\
1068}#)
'()
'()))
- #{tmp\ 556}#)
- ((lambda (#{tmp\ 561}#)
- (if (if #{tmp\ 561}#
- (apply
(lambda (#{r\ 562}#)
-
(#{id?\ 128}#
-
#{r\ 562}#))
- #{tmp\
561}#)
+ #{tmp\ 1100}#)
+ ((lambda (#{tmp\
1109}#)
+ (if (if #{tmp\
1109}#
+ (apply
(lambda (#{r\ 1111}#)
+
(#{id?\ 260}#
+
#{r\ 1111}#))
+ #{tmp\
1109}#)
#f)
- (apply (lambda
(#{r\ 563}#)
- (#{rest\
436}#
- #{r\
563}#
+ (apply (lambda
(#{r\ 1113}#)
+ (#{rest\
876}#
+ #{r\
1113}#
(reverse
-
#{rreq\ 538}#)
+
#{rreq\ 1068}#)
'()
'()))
- #{tmp\
561}#)
- ((lambda (#{else\
564}#)
+ #{tmp\
1109}#)
+ ((lambda (#{else\
1115}#)
(syntax-violation
'lambda*
"invalid
argument list"
- #{orig-args\
432}#
- #{args\
537}#))
- #{tmp\ 539}#)))
- (list #{tmp\ 539}#))))
+ #{orig-args\
867}#
+ #{args\
1067}#))
+ #{tmp\ 1071}#)))
+ (list #{tmp\
1071}#))))
($sc-dispatch
- #{tmp\ 539}#
+ #{tmp\ 1071}#
'(any any)))))
($sc-dispatch
- #{tmp\ 539}#
+ #{tmp\ 1071}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 539}#
+ #{tmp\ 1071}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 539}#
+ #{tmp\ 1071}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 539}# (quote ()))))
- #{args\ 537}#))))
- (#{req\ 433}# #{orig-args\ 432}# (quote ())))))
- (#{chi-simple-lambda\ 174}#
- (lambda (#{e\ 565}#
- #{r\ 566}#
- #{w\ 567}#
- #{s\ 568}#
- #{mod\ 569}#
- #{req\ 570}#
- #{rest\ 571}#
- #{docstring\ 572}#
- #{body\ 573}#)
- (let ((#{ids\ 574}#
- (if #{rest\ 571}#
- (append #{req\ 570}# (list #{rest\ 571}#))
- #{req\ 570}#)))
- (let ((#{vars\ 575}#
- (map #{gen-var\ 178}# #{ids\ 574}#)))
- (let ((#{labels\ 576}#
- (#{gen-labels\ 134}# #{ids\ 574}#)))
- (#{build-simple-lambda\ 102}#
- #{s\ 568}#
- (map syntax->datum #{req\ 570}#)
- (if #{rest\ 571}#
- (syntax->datum #{rest\ 571}#)
+ ($sc-dispatch #{tmp\ 1071}# (quote ()))))
+ #{args\ 1067}#))))
+ (#{req\ 870}# #{orig-args\ 867}# (quote ())))))
+ (#{chi-simple-lambda\ 365}#
+ (lambda (#{e\ 1116}#
+ #{r\ 1117}#
+ #{w\ 1118}#
+ #{s\ 1119}#
+ #{mod\ 1120}#
+ #{req\ 1121}#
+ #{rest\ 1122}#
+ #{docstring\ 1123}#
+ #{body\ 1124}#)
+ (let ((#{ids\ 1136}#
+ (if #{rest\ 1122}#
+ (append #{req\ 1121}# (list #{rest\ 1122}#))
+ #{req\ 1121}#)))
+ (let ((#{vars\ 1138}#
+ (map #{gen-var\ 373}# #{ids\ 1136}#)))
+ (let ((#{labels\ 1140}#
+ (#{gen-labels\ 278}# #{ids\ 1136}#)))
+ (#{build-simple-lambda\ 202}#
+ #{s\ 1119}#
+ (map syntax->datum #{req\ 1121}#)
+ (if #{rest\ 1122}#
+ (syntax->datum #{rest\ 1122}#)
#f)
- #{vars\ 575}#
- #{docstring\ 572}#
- (#{chi-body\ 168}#
- #{body\ 573}#
- (#{source-wrap\ 157}#
- #{e\ 565}#
- #{w\ 567}#
- #{s\ 568}#
- #{mod\ 569}#)
- (#{extend-var-env\ 123}#
- #{labels\ 576}#
- #{vars\ 575}#
- #{r\ 566}#)
- (#{make-binding-wrap\ 145}#
- #{ids\ 574}#
- #{labels\ 576}#
- #{w\ 567}#)
- #{mod\ 569}#)))))))
- (#{lambda-formals\ 173}#
- (lambda (#{orig-args\ 577}#)
- (letrec ((#{check\ 579}#
- (lambda (#{req\ 580}# #{rest\ 581}#)
- (if (#{distinct-bound-ids?\ 154}#
- (if #{rest\ 581}#
- (cons #{rest\ 581}# #{req\ 580}#)
- #{req\ 580}#))
- (values #{req\ 580}# #f #{rest\ 581}# #f)
+ #{vars\ 1138}#
+ #{docstring\ 1123}#
+ (#{chi-body\ 353}#
+ #{body\ 1124}#
+ (#{source-wrap\ 331}#
+ #{e\ 1116}#
+ #{w\ 1118}#
+ #{s\ 1119}#
+ #{mod\ 1120}#)
+ (#{extend-var-env\ 250}#
+ #{labels\ 1140}#
+ #{vars\ 1138}#
+ #{r\ 1117}#)
+ (#{make-binding-wrap\ 307}#
+ #{ids\ 1136}#
+ #{labels\ 1140}#
+ #{w\ 1118}#)
+ #{mod\ 1120}#)))))))
+ (#{lambda-formals\ 363}#
+ (lambda (#{orig-args\ 1143}#)
+ (letrec ((#{check\ 1148}#
+ (lambda (#{req\ 1149}# #{rest\ 1150}#)
+ (if (#{distinct-bound-ids?\ 325}#
+ (if #{rest\ 1150}#
+ (cons #{rest\ 1150}# #{req\ 1149}#)
+ #{req\ 1149}#))
+ (values #{req\ 1149}# #f #{rest\ 1150}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 577}#))))
- (#{req\ 578}#
- (lambda (#{args\ 582}# #{rreq\ 583}#)
- ((lambda (#{tmp\ 584}#)
- ((lambda (#{tmp\ 585}#)
- (if #{tmp\ 585}#
+ #{orig-args\ 1143}#))))
+ (#{req\ 1146}#
+ (lambda (#{args\ 1156}# #{rreq\ 1157}#)
+ ((lambda (#{tmp\ 1160}#)
+ ((lambda (#{tmp\ 1161}#)
+ (if #{tmp\ 1161}#
(apply (lambda ()
- (#{check\ 579}#
- (reverse #{rreq\ 583}#)
+ (#{check\ 1148}#
+ (reverse #{rreq\ 1157}#)
#f))
- #{tmp\ 585}#)
- ((lambda (#{tmp\ 586}#)
- (if (if #{tmp\ 586}#
- (apply (lambda (#{a\ 587}#
- #{b\ 588}#)
- (#{id?\ 128}#
- #{a\ 587}#))
- #{tmp\ 586}#)
+ #{tmp\ 1161}#)
+ ((lambda (#{tmp\ 1162}#)
+ (if (if #{tmp\ 1162}#
+ (apply (lambda (#{a\ 1165}#
+ #{b\ 1166}#)
+ (#{id?\ 260}#
+ #{a\ 1165}#))
+ #{tmp\ 1162}#)
#f)
- (apply (lambda (#{a\ 589}# #{b\ 590}#)
- (#{req\ 578}#
- #{b\ 590}#
- (cons #{a\ 589}#
- #{rreq\ 583}#)))
- #{tmp\ 586}#)
- ((lambda (#{tmp\ 591}#)
- (if (if #{tmp\ 591}#
- (apply (lambda (#{r\ 592}#)
- (#{id?\ 128}#
- #{r\ 592}#))
- #{tmp\ 591}#)
+ (apply (lambda (#{a\ 1169}#
+ #{b\ 1170}#)
+ (#{req\ 1146}#
+ #{b\ 1170}#
+ (cons #{a\ 1169}#
+ #{rreq\ 1157}#)))
+ #{tmp\ 1162}#)
+ ((lambda (#{tmp\ 1171}#)
+ (if (if #{tmp\ 1171}#
+ (apply (lambda (#{r\ 1173}#)
+ (#{id?\ 260}#
+ #{r\ 1173}#))
+ #{tmp\ 1171}#)
#f)
- (apply (lambda (#{r\ 593}#)
- (#{check\ 579}#
+ (apply (lambda (#{r\ 1175}#)
+ (#{check\ 1148}#
(reverse
- #{rreq\ 583}#)
- #{r\ 593}#))
- #{tmp\ 591}#)
- ((lambda (#{else\ 594}#)
+ #{rreq\ 1157}#)
+ #{r\ 1175}#))
+ #{tmp\ 1171}#)
+ ((lambda (#{else\ 1177}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 577}#
- #{args\ 582}#))
- #{tmp\ 584}#)))
- (list #{tmp\ 584}#))))
+ #{orig-args\ 1143}#
+ #{args\ 1156}#))
+ #{tmp\ 1160}#)))
+ (list #{tmp\ 1160}#))))
($sc-dispatch
- #{tmp\ 584}#
+ #{tmp\ 1160}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 584}# (quote ()))))
- #{args\ 582}#))))
- (#{req\ 578}# #{orig-args\ 577}# (quote ())))))
- (#{ellipsis?\ 172}#
- (lambda (#{x\ 595}#)
- (if (#{nonsymbol-id?\ 127}# #{x\ 595}#)
- (#{free-id=?\ 151}#
- #{x\ 595}#
+ ($sc-dispatch #{tmp\ 1160}# (quote ()))))
+ #{args\ 1156}#))))
+ (#{req\ 1146}# #{orig-args\ 1143}# (quote ())))))
+ (#{ellipsis?\ 361}#
+ (lambda (#{x\ 1178}#)
+ (if (#{nonsymbol-id?\ 258}# #{x\ 1178}#)
+ (#{free-id=?\ 319}#
+ #{x\ 1178}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i"))
+ #(ribcage #(x) #((top)) #("i1179"))
#(ribcage
(lambda-var-list
gen-var
@@ -2184,1343 +2187,1366 @@
(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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i" "i")))
+ ("i61" "i59")))
(hygiene guile)))
#f)))
- (#{chi-void\ 171}#
- (lambda () (#{build-void\ 92}# #f)))
- (#{eval-local-transformer\ 170}#
- (lambda (#{expanded\ 596}# #{mod\ 597}#)
- (let ((#{p\ 598}# (#{local-eval-hook\ 88}#
- #{expanded\ 596}#
- #{mod\ 597}#)))
- (if (procedure? #{p\ 598}#)
- (cons #{p\ 598}# (module-name (current-module)))
+ (#{chi-void\ 359}#
+ (lambda () (#{build-void\ 182}# #f)))
+ (#{eval-local-transformer\ 357}#
+ (lambda (#{expanded\ 1183}# #{mod\ 1184}#)
+ (let ((#{p\ 1188}#
+ (#{local-eval-hook\ 173}#
+ #{expanded\ 1183}#
+ #{mod\ 1184}#)))
+ (if (procedure? #{p\ 1188}#)
+ (cons #{p\ 1188}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 598}#)))))
- (#{chi-local-syntax\ 169}#
- (lambda (#{rec?\ 599}#
- #{e\ 600}#
- #{r\ 601}#
- #{w\ 602}#
- #{s\ 603}#
- #{mod\ 604}#
- #{k\ 605}#)
- ((lambda (#{tmp\ 606}#)
- ((lambda (#{tmp\ 607}#)
- (if #{tmp\ 607}#
- (apply (lambda (#{_\ 608}#
- #{id\ 609}#
- #{val\ 610}#
- #{e1\ 611}#
- #{e2\ 612}#)
- (let ((#{ids\ 613}# #{id\ 609}#))
- (if (not (#{valid-bound-ids?\ 153}#
- #{ids\ 613}#))
+ #{p\ 1188}#)))))
+ (#{chi-local-syntax\ 355}#
+ (lambda (#{rec?\ 1189}#
+ #{e\ 1190}#
+ #{r\ 1191}#
+ #{w\ 1192}#
+ #{s\ 1193}#
+ #{mod\ 1194}#
+ #{k\ 1195}#)
+ ((lambda (#{tmp\ 1203}#)
+ ((lambda (#{tmp\ 1204}#)
+ (if #{tmp\ 1204}#
+ (apply (lambda (#{_\ 1210}#
+ #{id\ 1211}#
+ #{val\ 1212}#
+ #{e1\ 1213}#
+ #{e2\ 1214}#)
+ (let ((#{ids\ 1216}# #{id\ 1211}#))
+ (if (not (#{valid-bound-ids?\ 323}#
+ #{ids\ 1216}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 600}#)
- (let ((#{labels\ 615}#
- (#{gen-labels\ 134}#
- #{ids\ 613}#)))
- (let ((#{new-w\ 616}#
- (#{make-binding-wrap\ 145}#
- #{ids\ 613}#
- #{labels\ 615}#
- #{w\ 602}#)))
- (#{k\ 605}# (cons #{e1\ 611}#
- #{e2\ 612}#)
- (#{extend-env\ 122}#
- #{labels\ 615}#
- (let ((#{w\ 618}# (if
#{rec?\ 599}#
-
#{new-w\ 616}#
- #{w\
602}#))
- (#{trans-r\ 619}#
-
(#{macros-only-env\ 124}#
- #{r\ 601}#)))
- (map (lambda (#{x\
620}#)
- (cons 'macro
-
(#{eval-local-transformer\ 170}#
- (#{chi\
164}#
- #{x\
620}#
-
#{trans-r\ 619}#
- #{w\
618}#
-
#{mod\ 604}#)
- #{mod\
604}#)))
- #{val\ 610}#))
- #{r\ 601}#)
- #{new-w\ 616}#
- #{s\ 603}#
- #{mod\ 604}#))))))
- #{tmp\ 607}#)
- ((lambda (#{_\ 622}#)
+ #{e\ 1190}#)
+ (let ((#{labels\ 1219}#
+ (#{gen-labels\ 278}#
+ #{ids\ 1216}#)))
+ (let ((#{new-w\ 1221}#
+ (#{make-binding-wrap\ 307}#
+ #{ids\ 1216}#
+ #{labels\ 1219}#
+ #{w\ 1192}#)))
+ (#{k\ 1195}#
+ (cons #{e1\ 1213}# #{e2\ 1214}#)
+ (#{extend-env\ 248}#
+ #{labels\ 1219}#
+ (let ((#{w\ 1225}#
+ (if #{rec?\ 1189}#
+ #{new-w\ 1221}#
+ #{w\ 1192}#))
+ (#{trans-r\ 1226}#
+ (#{macros-only-env\ 252}#
+ #{r\ 1191}#)))
+ (map (lambda (#{x\ 1227}#)
+ (cons 'macro
+
(#{eval-local-transformer\ 357}#
+ (#{chi\ 345}#
+ #{x\ 1227}#
+ #{trans-r\
1226}#
+ #{w\ 1225}#
+ #{mod\ 1194}#)
+ #{mod\ 1194}#)))
+ #{val\ 1212}#))
+ #{r\ 1191}#)
+ #{new-w\ 1221}#
+ #{s\ 1193}#
+ #{mod\ 1194}#))))))
+ #{tmp\ 1204}#)
+ ((lambda (#{_\ 1232}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 157}#
- #{e\ 600}#
- #{w\ 602}#
- #{s\ 603}#
- #{mod\ 604}#)))
- #{tmp\ 606}#)))
+ (#{source-wrap\ 331}#
+ #{e\ 1190}#
+ #{w\ 1192}#
+ #{s\ 1193}#
+ #{mod\ 1194}#)))
+ #{tmp\ 1203}#)))
($sc-dispatch
- #{tmp\ 606}#
+ #{tmp\ 1203}#
'(any #(each (any any)) any . each-any))))
- #{e\ 600}#)))
- (#{chi-body\ 168}#
- (lambda (#{body\ 623}#
- #{outer-form\ 624}#
- #{r\ 625}#
- #{w\ 626}#
- #{mod\ 627}#)
- (let ((#{r\ 628}# (cons '("placeholder" placeholder)
- #{r\ 625}#)))
- (let ((#{ribcage\ 629}#
- (#{make-ribcage\ 135}#
+ #{e\ 1190}#)))
+ (#{chi-body\ 353}#
+ (lambda (#{body\ 1233}#
+ #{outer-form\ 1234}#
+ #{r\ 1235}#
+ #{w\ 1236}#
+ #{mod\ 1237}#)
+ (let ((#{r\ 1245}#
+ (cons '("placeholder" placeholder)
+ #{r\ 1235}#)))
+ (let ((#{ribcage\ 1247}#
+ (#{make-ribcage\ 281}#
'()
'()
'())))
- (let ((#{w\ 630}# (#{make-wrap\ 130}#
- (#{wrap-marks\ 131}# #{w\ 626}#)
- (cons #{ribcage\ 629}#
- (#{wrap-subst\ 132}#
- #{w\ 626}#)))))
- (letrec ((#{parse\ 631}#
- (lambda (#{body\ 632}#
- #{ids\ 633}#
- #{labels\ 634}#
- #{var-ids\ 635}#
- #{vars\ 636}#
- #{vals\ 637}#
- #{bindings\ 638}#)
- (if (null? #{body\ 632}#)
+ (let ((#{w\ 1250}#
+ (#{make-wrap\ 265}#
+ (#{wrap-marks\ 267}# #{w\ 1236}#)
+ (cons #{ribcage\ 1247}#
+ (#{wrap-subst\ 269}# #{w\ 1236}#)))))
+ (letrec ((#{parse\ 1259}#
+ (lambda (#{body\ 1260}#
+ #{ids\ 1261}#
+ #{labels\ 1262}#
+ #{var-ids\ 1263}#
+ #{vars\ 1264}#
+ #{vals\ 1265}#
+ #{bindings\ 1266}#)
+ (if (null? #{body\ 1260}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 624}#)
- (let ((#{e\ 640}# (cdar #{body\ 632}#))
- (#{er\ 641}# (caar #{body\ 632}#)))
+ #{outer-form\ 1234}#)
+ (let ((#{e\ 1271}# (cdar #{body\ 1260}#))
+ (#{er\ 1272}# (caar #{body\ 1260}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 162}#
- #{e\ 640}#
- #{er\ 641}#
+ (#{syntax-type\ 341}#
+ #{e\ 1271}#
+ #{er\ 1272}#
'(())
- (#{source-annotation\ 119}#
- #{er\ 641}#)
- #{ribcage\ 629}#
- #{mod\ 627}#
+ (#{source-annotation\ 239}#
+ #{er\ 1272}#)
+ #{ribcage\ 1247}#
+ #{mod\ 1237}#
#f))
- (lambda (#{type\ 642}#
- #{value\ 643}#
- #{e\ 644}#
- #{w\ 645}#
- #{s\ 646}#
- #{mod\ 647}#)
- (if (memv #{type\ 642}#
+ (lambda (#{type\ 1274}#
+ #{value\ 1275}#
+ #{e\ 1276}#
+ #{w\ 1277}#
+ #{s\ 1278}#
+ #{mod\ 1279}#)
+ (if (memv #{type\ 1274}#
'(define-form))
- (let ((#{id\ 648}#
- (#{wrap\ 156}#
- #{value\ 643}#
- #{w\ 645}#
- #{mod\ 647}#))
- (#{label\ 649}#
- (#{gen-label\ 133}#)))
- (let ((#{var\ 650}#
- (#{gen-var\ 178}#
- #{id\ 648}#)))
+ (let ((#{id\ 1289}#
+ (#{wrap\ 329}#
+ #{value\ 1275}#
+ #{w\ 1277}#
+ #{mod\ 1279}#))
+ (#{label\ 1290}#
+ (#{gen-label\ 276}#)))
+ (let ((#{var\ 1292}#
+ (#{gen-var\ 373}#
+ #{id\ 1289}#)))
(begin
- (#{extend-ribcage!\ 144}#
- #{ribcage\ 629}#
- #{id\ 648}#
- #{label\ 649}#)
- (#{parse\ 631}#
- (cdr #{body\ 632}#)
- (cons #{id\ 648}#
- #{ids\ 633}#)
- (cons #{label\ 649}#
- #{labels\ 634}#)
- (cons #{id\ 648}#
- #{var-ids\ 635}#)
- (cons #{var\ 650}#
- #{vars\ 636}#)
- (cons (cons #{er\ 641}#
- (#{wrap\ 156}#
- #{e\ 644}#
- #{w\ 645}#
- #{mod\
647}#))
- #{vals\ 637}#)
+ (#{extend-ribcage!\ 305}#
+ #{ribcage\ 1247}#
+ #{id\ 1289}#
+ #{label\ 1290}#)
+ (#{parse\ 1259}#
+ (cdr #{body\ 1260}#)
+ (cons #{id\ 1289}#
+ #{ids\ 1261}#)
+ (cons #{label\ 1290}#
+ #{labels\ 1262}#)
+ (cons #{id\ 1289}#
+ #{var-ids\ 1263}#)
+ (cons #{var\ 1292}#
+ #{vars\ 1264}#)
+ (cons (cons #{er\ 1272}#
+ (#{wrap\ 329}#
+ #{e\ 1276}#
+ #{w\ 1277}#
+ #{mod\
1279}#))
+ #{vals\ 1265}#)
(cons (cons 'lexical
- #{var\ 650}#)
- #{bindings\
638}#)))))
- (if (memv #{type\ 642}#
+ #{var\ 1292}#)
+ #{bindings\
1266}#)))))
+ (if (memv #{type\ 1274}#
'(define-syntax-form))
- (let ((#{id\ 651}#
- (#{wrap\ 156}#
- #{value\ 643}#
- #{w\ 645}#
- #{mod\ 647}#))
- (#{label\ 652}#
- (#{gen-label\ 133}#)))
+ (let ((#{id\ 1297}#
+ (#{wrap\ 329}#
+ #{value\ 1275}#
+ #{w\ 1277}#
+ #{mod\ 1279}#))
+ (#{label\ 1298}#
+ (#{gen-label\ 276}#)))
(begin
- (#{extend-ribcage!\ 144}#
- #{ribcage\ 629}#
- #{id\ 651}#
- #{label\ 652}#)
- (#{parse\ 631}#
- (cdr #{body\ 632}#)
- (cons #{id\ 651}#
- #{ids\ 633}#)
- (cons #{label\ 652}#
- #{labels\ 634}#)
- #{var-ids\ 635}#
- #{vars\ 636}#
- #{vals\ 637}#
+ (#{extend-ribcage!\ 305}#
+ #{ribcage\ 1247}#
+ #{id\ 1297}#
+ #{label\ 1298}#)
+ (#{parse\ 1259}#
+ (cdr #{body\ 1260}#)
+ (cons #{id\ 1297}#
+ #{ids\ 1261}#)
+ (cons #{label\ 1298}#
+ #{labels\ 1262}#)
+ #{var-ids\ 1263}#
+ #{vars\ 1264}#
+ #{vals\ 1265}#
(cons (cons 'macro
- (cons #{er\
641}#
- (#{wrap\
156}#
- #{e\
644}#
- #{w\
645}#
- #{mod\
647}#)))
- #{bindings\ 638}#))))
- (if (memv #{type\ 642}#
+ (cons #{er\
1272}#
+ (#{wrap\
329}#
+ #{e\
1276}#
+ #{w\
1277}#
+ #{mod\
1279}#)))
+ #{bindings\
1266}#))))
+ (if (memv #{type\ 1274}#
'(begin-form))
- ((lambda (#{tmp\ 653}#)
- ((lambda (#{tmp\ 654}#)
- (if #{tmp\ 654}#
- (apply (lambda (#{_\
655}#
- #{e1\
656}#)
- (#{parse\
631}#
- (letrec
((#{f\ 657}# (lambda (#{forms\ 658}#)
-
(if (null? #{forms\ 658}#)
-
(cdr #{body\ 632}#)
-
(cons (cons #{er\ 641}#
-
(#{wrap\ 156}#
-
(car #{forms\ 658}#)
-
#{w\ 645}#
-
#{mod\ 647}#))
-
(#{f\ 657}# (cdr #{forms\ 658}#)))))))
- (#{f\
657}# #{e1\ 656}#))
- #{ids\ 633}#
- #{labels\
634}#
- #{var-ids\
635}#
- #{vars\
636}#
- #{vals\
637}#
- #{bindings\
638}#))
- #{tmp\ 654}#)
+ ((lambda (#{tmp\ 1301}#)
+ ((lambda (#{tmp\ 1302}#)
+ (if #{tmp\ 1302}#
+ (apply (lambda (#{_\
1305}#
+ #{e1\
1306}#)
+ (#{parse\
1259}#
+ (letrec
((#{f\ 1309}#
+
(lambda (#{forms\ 1310}#)
+
(if (null? #{forms\ 1310}#)
+
(cdr #{body\ 1260}#)
+
(cons (cons #{er\ 1272}#
+
(#{wrap\ 329}#
+
(car #{forms\ 1310}#)
+
#{w\ 1277}#
+
#{mod\ 1279}#))
+
(#{f\ 1309}#
+
(cdr #{forms\ 1310}#)))))))
+ (#{f\
1309}#
+ #{e1\
1306}#))
+ #{ids\
1261}#
+ #{labels\
1262}#
+ #{var-ids\
1263}#
+ #{vars\
1264}#
+ #{vals\
1265}#
+ #{bindings\
1266}#))
+ #{tmp\ 1302}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 653}#)))
+ #{tmp\ 1301}#)))
($sc-dispatch
- #{tmp\ 653}#
+ #{tmp\ 1301}#
'(any . each-any))))
- #{e\ 644}#)
- (if (memv #{type\ 642}#
+ #{e\ 1276}#)
+ (if (memv #{type\ 1274}#
'(local-syntax-form))
- (#{chi-local-syntax\ 169}#
- #{value\ 643}#
- #{e\ 644}#
- #{er\ 641}#
- #{w\ 645}#
- #{s\ 646}#
- #{mod\ 647}#
- (lambda (#{forms\ 660}#
- #{er\ 661}#
- #{w\ 662}#
- #{s\ 663}#
- #{mod\ 664}#)
- (#{parse\ 631}#
- (letrec ((#{f\ 665}#
(lambda (#{forms\ 666}#)
-
(if (null? #{forms\ 666}#)
-
(cdr #{body\ 632}#)
-
(cons (cons #{er\ 661}#
-
(#{wrap\ 156}#
-
(car #{forms\ 666}#)
-
#{w\ 662}#
-
#{mod\ 664}#))
-
(#{f\ 665}# (cdr #{forms\ 666}#)))))))
- (#{f\ 665}# #{forms\
660}#))
- #{ids\ 633}#
- #{labels\ 634}#
- #{var-ids\ 635}#
- #{vars\ 636}#
- #{vals\ 637}#
- #{bindings\ 638}#)))
- (if (null? #{ids\ 633}#)
- (#{build-sequence\ 107}#
+ (#{chi-local-syntax\ 355}#
+ #{value\ 1275}#
+ #{e\ 1276}#
+ #{er\ 1272}#
+ #{w\ 1277}#
+ #{s\ 1278}#
+ #{mod\ 1279}#
+ (lambda (#{forms\ 1313}#
+ #{er\ 1314}#
+ #{w\ 1315}#
+ #{s\ 1316}#
+ #{mod\ 1317}#)
+ (#{parse\ 1259}#
+ (letrec ((#{f\ 1325}#
+ (lambda
(#{forms\ 1326}#)
+ (if
(null? #{forms\ 1326}#)
+ (cdr
#{body\ 1260}#)
+ (cons
(cons #{er\ 1314}#
+
(#{wrap\ 329}#
+
(car #{forms\ 1326}#)
+
#{w\ 1315}#
+
#{mod\ 1317}#))
+
(#{f\ 1325}#
+
(cdr #{forms\ 1326}#)))))))
+ (#{f\ 1325}#
+ #{forms\ 1313}#))
+ #{ids\ 1261}#
+ #{labels\ 1262}#
+ #{var-ids\ 1263}#
+ #{vars\ 1264}#
+ #{vals\ 1265}#
+ #{bindings\ 1266}#)))
+ (if (null? #{ids\ 1261}#)
+ (#{build-sequence\ 212}#
#f
- (map (lambda (#{x\ 667}#)
- (#{chi\ 164}#
- (cdr #{x\ 667}#)
- (car #{x\ 667}#)
+ (map (lambda (#{x\
1329}#)
+ (#{chi\ 345}#
+ (cdr #{x\
1329}#)
+ (car #{x\
1329}#)
'(())
- #{mod\ 647}#))
- (cons (cons #{er\
641}#
-
(#{source-wrap\ 157}#
- #{e\
644}#
- #{w\
645}#
- #{s\
646}#
-
#{mod\ 647}#))
- (cdr #{body\
632}#))))
+ #{mod\ 1279}#))
+ (cons (cons #{er\
1272}#
+
(#{source-wrap\ 331}#
+ #{e\
1276}#
+ #{w\
1277}#
+ #{s\
1278}#
+
#{mod\ 1279}#))
+ (cdr #{body\
1260}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 153}#
- #{ids\ 633}#))
+ (if (not
(#{valid-bound-ids?\ 323}#
+ #{ids\
1261}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\ 624}#))
- (letrec ((#{loop\ 668}#
- (lambda
(#{bs\ 669}#
-
#{er-cache\ 670}#
-
#{r-cache\ 671}#)
- (if (not
(null? #{bs\ 669}#))
- (let
((#{b\ 672}# (car #{bs\ 669}#)))
- (if
(eq? (car #{b\ 672}#)
+ #{outer-form\
1234}#))
+ (letrec ((#{loop\ 1336}#
+ (lambda
(#{bs\ 1337}#
+
#{er-cache\ 1338}#
+
#{r-cache\ 1339}#)
+ (if (not
(null? #{bs\ 1337}#))
+ (let
((#{b\ 1342}#
+
(car #{bs\ 1337}#)))
+ (if
(eq? (car #{b\ 1342}#)
'macro)
- (let
((#{er\ 673}#
-
(cadr #{b\ 672}#)))
-
(let ((#{r-cache\ 674}#
-
(if (eq? #{er\ 673}#
-
#{er-cache\ 670}#)
-
#{r-cache\ 671}#
-
(#{macros-only-env\ 124}#
-
#{er\ 673}#))))
+ (let
((#{er\ 1345}#
+
(cadr #{b\ 1342}#)))
+
(let ((#{r-cache\ 1347}#
+
(if (eq? #{er\ 1345}#
+
#{er-cache\ 1338}#)
+
#{r-cache\ 1339}#
+
(#{macros-only-env\ 252}#
+
#{er\ 1345}#))))
(begin
(set-cdr!
-
#{b\ 672}#
-
(#{eval-local-transformer\ 170}#
-
(#{chi\ 164}#
-
(cddr #{b\ 672}#)
-
#{r-cache\ 674}#
+
#{b\ 1342}#
+
(#{eval-local-transformer\ 357}#
+
(#{chi\ 345}#
+
(cddr #{b\ 1342}#)
+
#{r-cache\ 1347}#
'(())
-
#{mod\ 647}#)
-
#{mod\ 647}#))
-
(#{loop\ 668}#
-
(cdr #{bs\ 669}#)
-
#{er\ 673}#
-
#{r-cache\ 674}#))))
-
(#{loop\ 668}#
-
(cdr #{bs\ 669}#)
-
#{er-cache\ 670}#
-
#{r-cache\ 671}#)))))))
- (#{loop\ 668}#
- #{bindings\ 638}#
+
#{mod\ 1279}#)
+
#{mod\ 1279}#))
+
(#{loop\ 1336}#
+
(cdr #{bs\ 1337}#)
+
#{er\ 1345}#
+
#{r-cache\ 1347}#))))
+
(#{loop\ 1336}#
+
(cdr #{bs\ 1337}#)
+
#{er-cache\ 1338}#
+
#{r-cache\ 1339}#)))))))
+ (#{loop\ 1336}#
+ #{bindings\ 1266}#
#f
#f))
(set-cdr!
- #{r\ 628}#
- (#{extend-env\ 122}#
- #{labels\ 634}#
- #{bindings\ 638}#
- (cdr #{r\ 628}#)))
- (#{build-letrec\ 110}#
+ #{r\ 1245}#
+ (#{extend-env\ 248}#
+ #{labels\ 1262}#
+ #{bindings\ 1266}#
+ (cdr #{r\ 1245}#)))
+ (#{build-letrec\ 218}#
#f
(map syntax->datum
- #{var-ids\ 635}#)
- #{vars\ 636}#
- (map (lambda (#{x\
675}#)
- (#{chi\ 164}#
- (cdr #{x\
675}#)
- (car #{x\
675}#)
+ #{var-ids\ 1263}#)
+ #{vars\ 1264}#
+ (map (lambda (#{x\
1350}#)
+ (#{chi\ 345}#
+ (cdr #{x\
1350}#)
+ (car #{x\
1350}#)
'(())
- #{mod\ 647}#))
- #{vals\ 637}#)
- (#{build-sequence\
107}#
+ #{mod\
1279}#))
+ #{vals\ 1265}#)
+ (#{build-sequence\
212}#
#f
- (map (lambda (#{x\
676}#)
- (#{chi\ 164}#
- (cdr #{x\
676}#)
- (car #{x\
676}#)
+ (map (lambda (#{x\
1354}#)
+ (#{chi\ 345}#
+ (cdr #{x\
1354}#)
+ (car #{x\
1354}#)
'(())
- #{mod\
647}#))
- (cons (cons
#{er\ 641}#
-
(#{source-wrap\ 157}#
-
#{e\ 644}#
-
#{w\ 645}#
-
#{s\ 646}#
-
#{mod\ 647}#))
- (cdr
#{body\ 632}#))))))))))))))))))
- (#{parse\ 631}#
- (map (lambda (#{x\ 639}#)
- (cons #{r\ 628}#
- (#{wrap\ 156}#
- #{x\ 639}#
- #{w\ 630}#
- #{mod\ 627}#)))
- #{body\ 623}#)
+ #{mod\
1279}#))
+ (cons (cons
#{er\ 1272}#
+
(#{source-wrap\ 331}#
+
#{e\ 1276}#
+
#{w\ 1277}#
+
#{s\ 1278}#
+
#{mod\ 1279}#))
+ (cdr
#{body\ 1260}#))))))))))))))))))
+ (#{parse\ 1259}#
+ (map (lambda (#{x\ 1267}#)
+ (cons #{r\ 1245}#
+ (#{wrap\ 329}#
+ #{x\ 1267}#
+ #{w\ 1250}#
+ #{mod\ 1237}#)))
+ #{body\ 1233}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 167}#
- (lambda (#{p\ 677}#
- #{e\ 678}#
- #{r\ 679}#
- #{w\ 680}#
- #{rib\ 681}#
- #{mod\ 682}#)
- (letrec ((#{rebuild-macro-output\ 683}#
- (lambda (#{x\ 684}# #{m\ 685}#)
- (if (pair? #{x\ 684}#)
- (cons (#{rebuild-macro-output\ 683}#
- (car #{x\ 684}#)
- #{m\ 685}#)
- (#{rebuild-macro-output\ 683}#
- (cdr #{x\ 684}#)
- #{m\ 685}#))
- (if (#{syntax-object?\ 112}# #{x\ 684}#)
- (let ((#{w\ 686}# (#{syntax-object-wrap\ 114}#
- #{x\ 684}#)))
- (let ((#{ms\ 687}#
- (#{wrap-marks\ 131}# #{w\ 686}#))
- (#{s\ 688}# (#{wrap-subst\ 132}#
- #{w\ 686}#)))
- (if (if (pair? #{ms\ 687}#)
- (eq? (car #{ms\ 687}#) #f)
+ (#{chi-macro\ 351}#
+ (lambda (#{p\ 1357}#
+ #{e\ 1358}#
+ #{r\ 1359}#
+ #{w\ 1360}#
+ #{rib\ 1361}#
+ #{mod\ 1362}#)
+ (letrec ((#{rebuild-macro-output\ 1370}#
+ (lambda (#{x\ 1371}# #{m\ 1372}#)
+ (if (pair? #{x\ 1371}#)
+ (cons (#{rebuild-macro-output\ 1370}#
+ (car #{x\ 1371}#)
+ #{m\ 1372}#)
+ (#{rebuild-macro-output\ 1370}#
+ (cdr #{x\ 1371}#)
+ #{m\ 1372}#))
+ (if (#{syntax-object?\ 224}# #{x\ 1371}#)
+ (let ((#{w\ 1380}#
+ (#{syntax-object-wrap\ 228}#
+ #{x\ 1371}#)))
+ (let ((#{ms\ 1383}#
+ (#{wrap-marks\ 267}# #{w\ 1380}#))
+ (#{s\ 1384}#
+ (#{wrap-subst\ 269}# #{w\ 1380}#)))
+ (if (if (pair? #{ms\ 1383}#)
+ (eq? (car #{ms\ 1383}#) #f)
#f)
- (#{make-syntax-object\ 111}#
- (#{syntax-object-expression\ 113}#
- #{x\ 684}#)
- (#{make-wrap\ 130}#
- (cdr #{ms\ 687}#)
- (if #{rib\ 681}#
- (cons #{rib\ 681}#
- (cdr #{s\ 688}#))
- (cdr #{s\ 688}#)))
- (#{syntax-object-module\ 115}#
- #{x\ 684}#))
- (#{make-syntax-object\ 111}#
- (#{syntax-object-expression\ 113}#
- #{x\ 684}#)
- (#{make-wrap\ 130}#
- (cons #{m\ 685}# #{ms\ 687}#)
- (if #{rib\ 681}#
- (cons #{rib\ 681}#
+ (#{make-syntax-object\ 222}#
+ (#{syntax-object-expression\ 226}#
+ #{x\ 1371}#)
+ (#{make-wrap\ 265}#
+ (cdr #{ms\ 1383}#)
+ (if #{rib\ 1361}#
+ (cons #{rib\ 1361}#
+ (cdr #{s\ 1384}#))
+ (cdr #{s\ 1384}#)))
+ (#{syntax-object-module\ 230}#
+ #{x\ 1371}#))
+ (#{make-syntax-object\ 222}#
+ (#{syntax-object-expression\ 226}#
+ #{x\ 1371}#)
+ (#{make-wrap\ 265}#
+ (cons #{m\ 1372}# #{ms\ 1383}#)
+ (if #{rib\ 1361}#
+ (cons #{rib\ 1361}#
(cons 'shift
- #{s\ 688}#))
- (cons (quote shift) #{s\ 688}#)))
+ #{s\ 1384}#))
+ (cons (quote shift) #{s\ 1384}#)))
(cons 'hygiene
- (cdr #{p\ 677}#))))))
- (if (vector? #{x\ 684}#)
- (let ((#{n\ 689}# (vector-length
- #{x\ 684}#)))
- (let ((#{v\ 690}# (make-vector
- #{n\ 689}#)))
- (letrec ((#{loop\ 691}#
- (lambda (#{i\ 692}#)
- (if (#{fx=\ 85}#
- #{i\ 692}#
- #{n\ 689}#)
+ (cdr #{p\ 1357}#))))))
+ (if (vector? #{x\ 1371}#)
+ (let ((#{n\ 1392}#
+ (vector-length #{x\ 1371}#)))
+ (let ((#{v\ 1394}#
+ (make-vector #{n\ 1392}#)))
+ (letrec ((#{loop\ 1397}#
+ (lambda (#{i\ 1398}#)
+ (if (#{fx=\ 167}#
+ #{i\ 1398}#
+ #{n\ 1392}#)
(begin
(if #f #f)
- #{v\ 690}#)
+ #{v\ 1394}#)
(begin
(vector-set!
- #{v\ 690}#
- #{i\ 692}#
-
(#{rebuild-macro-output\ 683}#
+ #{v\ 1394}#
+ #{i\ 1398}#
+
(#{rebuild-macro-output\ 1370}#
(vector-ref
- #{x\ 684}#
- #{i\ 692}#)
- #{m\ 685}#))
- (#{loop\ 691}#
- (#{fx+\ 83}#
- #{i\ 692}#
+ #{x\ 1371}#
+ #{i\ 1398}#)
+ #{m\ 1372}#))
+ (#{loop\ 1397}#
+ (#{fx+\ 163}#
+ #{i\ 1398}#
1)))))))
- (#{loop\ 691}# 0))))
- (if (symbol? #{x\ 684}#)
+ (#{loop\ 1397}# 0))))
+ (if (symbol? #{x\ 1371}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 157}#
- #{e\ 678}#
- #{w\ 680}#
- (#{wrap-subst\ 132}# #{w\ 680}#)
- #{mod\ 682}#)
- #{x\ 684}#)
- #{x\ 684}#)))))))
- (#{rebuild-macro-output\ 683}#
- ((car #{p\ 677}#)
- (#{wrap\ 156}#
- #{e\ 678}#
- (#{anti-mark\ 143}# #{w\ 680}#)
- #{mod\ 682}#))
+ (#{source-wrap\ 331}#
+ #{e\ 1358}#
+ #{w\ 1360}#
+ (#{wrap-subst\ 269}# #{w\ 1360}#)
+ #{mod\ 1362}#)
+ #{x\ 1371}#)
+ #{x\ 1371}#)))))))
+ (#{rebuild-macro-output\ 1370}#
+ ((car #{p\ 1357}#)
+ (#{wrap\ 329}#
+ #{e\ 1358}#
+ (#{anti-mark\ 301}# #{w\ 1360}#)
+ #{mod\ 1362}#))
(gensym "m")))))
- (#{chi-application\ 166}#
- (lambda (#{x\ 693}#
- #{e\ 694}#
- #{r\ 695}#
- #{w\ 696}#
- #{s\ 697}#
- #{mod\ 698}#)
- ((lambda (#{tmp\ 699}#)
- ((lambda (#{tmp\ 700}#)
- (if #{tmp\ 700}#
- (apply (lambda (#{e0\ 701}# #{e1\ 702}#)
- (#{build-application\ 93}#
- #{s\ 697}#
- #{x\ 693}#
- (map (lambda (#{e\ 703}#)
- (#{chi\ 164}#
- #{e\ 703}#
- #{r\ 695}#
- #{w\ 696}#
- #{mod\ 698}#))
- #{e1\ 702}#)))
- #{tmp\ 700}#)
+ (#{chi-application\ 349}#
+ (lambda (#{x\ 1405}#
+ #{e\ 1406}#
+ #{r\ 1407}#
+ #{w\ 1408}#
+ #{s\ 1409}#
+ #{mod\ 1410}#)
+ ((lambda (#{tmp\ 1417}#)
+ ((lambda (#{tmp\ 1418}#)
+ (if #{tmp\ 1418}#
+ (apply (lambda (#{e0\ 1421}# #{e1\ 1422}#)
+ (#{build-application\ 184}#
+ #{s\ 1409}#
+ #{x\ 1405}#
+ (map (lambda (#{e\ 1423}#)
+ (#{chi\ 345}#
+ #{e\ 1423}#
+ #{r\ 1407}#
+ #{w\ 1408}#
+ #{mod\ 1410}#))
+ #{e1\ 1422}#)))
+ #{tmp\ 1418}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 699}#)))
+ #{tmp\ 1417}#)))
($sc-dispatch
- #{tmp\ 699}#
+ #{tmp\ 1417}#
'(any . each-any))))
- #{e\ 694}#)))
- (#{chi-expr\ 165}#
- (lambda (#{type\ 705}#
- #{value\ 706}#
- #{e\ 707}#
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#)
- (if (memv #{type\ 705}# (quote (lexical)))
- (#{build-lexical-reference\ 95}#
+ #{e\ 1406}#)))
+ (#{chi-expr\ 347}#
+ (lambda (#{type\ 1426}#
+ #{value\ 1427}#
+ #{e\ 1428}#
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#)
+ (if (memv #{type\ 1426}# (quote (lexical)))
+ (#{build-lexical-reference\ 188}#
'value
- #{s\ 710}#
- #{e\ 707}#
- #{value\ 706}#)
- (if (memv #{type\ 705}# (quote (core core-form)))
- (#{value\ 706}#
- #{e\ 707}#
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#)
- (if (memv #{type\ 705}# (quote (module-ref)))
+ #{s\ 1431}#
+ #{e\ 1428}#
+ #{value\ 1427}#)
+ (if (memv #{type\ 1426}# (quote (core core-form)))
+ (#{value\ 1427}#
+ #{e\ 1428}#
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#)
+ (if (memv #{type\ 1426}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 706}# #{e\ 707}#))
- (lambda (#{id\ 712}# #{mod\ 713}#)
- (#{build-global-reference\ 98}#
- #{s\ 710}#
- #{id\ 712}#
- #{mod\ 713}#)))
- (if (memv #{type\ 705}# (quote (lexical-call)))
- (#{chi-application\ 166}#
- (#{build-lexical-reference\ 95}#
+ (lambda () (#{value\ 1427}# #{e\ 1428}#))
+ (lambda (#{id\ 1443}# #{mod\ 1444}#)
+ (#{build-global-reference\ 194}#
+ #{s\ 1431}#
+ #{id\ 1443}#
+ #{mod\ 1444}#)))
+ (if (memv #{type\ 1426}# (quote (lexical-call)))
+ (#{chi-application\ 349}#
+ (#{build-lexical-reference\ 188}#
'fun
- (#{source-annotation\ 119}# (car #{e\ 707}#))
- (car #{e\ 707}#)
- #{value\ 706}#)
- #{e\ 707}#
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#)
- (if (memv #{type\ 705}# (quote (global-call)))
- (#{chi-application\ 166}#
- (#{build-global-reference\ 98}#
- (#{source-annotation\ 119}# (car #{e\ 707}#))
- (if (#{syntax-object?\ 112}# #{value\ 706}#)
- (#{syntax-object-expression\ 113}#
- #{value\ 706}#)
- #{value\ 706}#)
- (if (#{syntax-object?\ 112}# #{value\ 706}#)
- (#{syntax-object-module\ 115}# #{value\ 706}#)
- #{mod\ 711}#))
- #{e\ 707}#
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#)
- (if (memv #{type\ 705}# (quote (constant)))
- (#{build-data\ 106}#
- #{s\ 710}#
- (#{strip\ 177}#
- (#{source-wrap\ 157}#
- #{e\ 707}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#)
+ (#{source-annotation\ 239}# (car #{e\ 1428}#))
+ (car #{e\ 1428}#)
+ #{value\ 1427}#)
+ #{e\ 1428}#
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#)
+ (if (memv #{type\ 1426}# (quote (global-call)))
+ (#{chi-application\ 349}#
+ (#{build-global-reference\ 194}#
+ (#{source-annotation\ 239}# (car #{e\ 1428}#))
+ (if (#{syntax-object?\ 224}# #{value\ 1427}#)
+ (#{syntax-object-expression\ 226}#
+ #{value\ 1427}#)
+ #{value\ 1427}#)
+ (if (#{syntax-object?\ 224}# #{value\ 1427}#)
+ (#{syntax-object-module\ 230}# #{value\ 1427}#)
+ #{mod\ 1432}#))
+ #{e\ 1428}#
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#)
+ (if (memv #{type\ 1426}# (quote (constant)))
+ (#{build-data\ 210}#
+ #{s\ 1431}#
+ (#{strip\ 371}#
+ (#{source-wrap\ 331}#
+ #{e\ 1428}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#)
'(())))
- (if (memv #{type\ 705}# (quote (global)))
- (#{build-global-reference\ 98}#
- #{s\ 710}#
- #{value\ 706}#
- #{mod\ 711}#)
- (if (memv #{type\ 705}# (quote (call)))
- (#{chi-application\ 166}#
- (#{chi\ 164}#
- (car #{e\ 707}#)
- #{r\ 708}#
- #{w\ 709}#
- #{mod\ 711}#)
- #{e\ 707}#
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#)
- (if (memv #{type\ 705}# (quote (begin-form)))
- ((lambda (#{tmp\ 714}#)
- ((lambda (#{tmp\ 715}#)
- (if #{tmp\ 715}#
- (apply (lambda (#{_\ 716}#
- #{e1\ 717}#
- #{e2\ 718}#)
- (#{chi-sequence\ 158}#
- (cons #{e1\ 717}#
- #{e2\ 718}#)
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#))
- #{tmp\ 715}#)
+ (if (memv #{type\ 1426}# (quote (global)))
+ (#{build-global-reference\ 194}#
+ #{s\ 1431}#
+ #{value\ 1427}#
+ #{mod\ 1432}#)
+ (if (memv #{type\ 1426}# (quote (call)))
+ (#{chi-application\ 349}#
+ (#{chi\ 345}#
+ (car #{e\ 1428}#)
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{mod\ 1432}#)
+ #{e\ 1428}#
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#)
+ (if (memv #{type\ 1426}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1454}#)
+ ((lambda (#{tmp\ 1455}#)
+ (if #{tmp\ 1455}#
+ (apply (lambda (#{_\ 1459}#
+ #{e1\ 1460}#
+ #{e2\ 1461}#)
+ (#{chi-sequence\ 333}#
+ (cons #{e1\ 1460}#
+ #{e2\ 1461}#)
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#))
+ #{tmp\ 1455}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 714}#)))
+ #{tmp\ 1454}#)))
($sc-dispatch
- #{tmp\ 714}#
+ #{tmp\ 1454}#
'(any any . each-any))))
- #{e\ 707}#)
- (if (memv #{type\ 705}#
+ #{e\ 1428}#)
+ (if (memv #{type\ 1426}#
'(local-syntax-form))
- (#{chi-local-syntax\ 169}#
- #{value\ 706}#
- #{e\ 707}#
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#
- #{chi-sequence\ 158}#)
- (if (memv #{type\ 705}#
+ (#{chi-local-syntax\ 355}#
+ #{value\ 1427}#
+ #{e\ 1428}#
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#
+ #{chi-sequence\ 333}#)
+ (if (memv #{type\ 1426}#
'(eval-when-form))
- ((lambda (#{tmp\ 720}#)
- ((lambda (#{tmp\ 721}#)
- (if #{tmp\ 721}#
- (apply (lambda (#{_\ 722}#
- #{x\ 723}#
- #{e1\ 724}#
- #{e2\ 725}#)
- (let ((#{when-list\ 726}#
-
(#{chi-when-list\ 161}#
- #{e\ 707}#
- #{x\ 723}#
- #{w\ 709}#)))
+ ((lambda (#{tmp\ 1465}#)
+ ((lambda (#{tmp\ 1466}#)
+ (if #{tmp\ 1466}#
+ (apply (lambda (#{_\ 1471}#
+ #{x\ 1472}#
+ #{e1\ 1473}#
+ #{e2\ 1474}#)
+ (let ((#{when-list\
1476}#
+
(#{chi-when-list\ 339}#
+ #{e\ 1428}#
+ #{x\ 1472}#
+ #{w\ 1430}#)))
(if (memq 'eval
- #{when-list\
726}#)
- (#{chi-sequence\
158}#
- (cons #{e1\ 724}#
- #{e2\ 725}#)
- #{r\ 708}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#)
- (#{chi-void\
171}#))))
- #{tmp\ 721}#)
+ #{when-list\
1476}#)
+ (#{chi-sequence\
333}#
+ (cons #{e1\ 1473}#
+ #{e2\ 1474}#)
+ #{r\ 1429}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#)
+ (#{chi-void\
359}#))))
+ #{tmp\ 1466}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 720}#)))
+ #{tmp\ 1465}#)))
($sc-dispatch
- #{tmp\ 720}#
+ #{tmp\ 1465}#
'(any each-any any . each-any))))
- #{e\ 707}#)
- (if (memv #{type\ 705}#
+ #{e\ 1428}#)
+ (if (memv #{type\ 1426}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 707}#
- (#{wrap\ 156}#
- #{value\ 706}#
- #{w\ 709}#
- #{mod\ 711}#))
- (if (memv #{type\ 705}#
+ #{e\ 1428}#
+ (#{wrap\ 329}#
+ #{value\ 1427}#
+ #{w\ 1430}#
+ #{mod\ 1432}#))
+ (if (memv #{type\ 1426}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 157}#
- #{e\ 707}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#))
- (if (memv #{type\ 705}#
+ (#{source-wrap\ 331}#
+ #{e\ 1428}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#))
+ (if (memv #{type\ 1426}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 157}#
- #{e\ 707}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#))
+ (#{source-wrap\ 331}#
+ #{e\ 1428}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 157}#
- #{e\ 707}#
- #{w\ 709}#
- #{s\ 710}#
- #{mod\ 711}#))))))))))))))))))
- (#{chi\ 164}#
- (lambda (#{e\ 729}# #{r\ 730}# #{w\ 731}# #{mod\ 732}#)
+ (#{source-wrap\ 331}#
+ #{e\ 1428}#
+ #{w\ 1430}#
+ #{s\ 1431}#
+ #{mod\ 1432}#))))))))))))))))))
+ (#{chi\ 345}#
+ (lambda (#{e\ 1483}#
+ #{r\ 1484}#
+ #{w\ 1485}#
+ #{mod\ 1486}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 162}#
- #{e\ 729}#
- #{r\ 730}#
- #{w\ 731}#
- (#{source-annotation\ 119}# #{e\ 729}#)
+ (#{syntax-type\ 341}#
+ #{e\ 1483}#
+ #{r\ 1484}#
+ #{w\ 1485}#
+ (#{source-annotation\ 239}# #{e\ 1483}#)
#f
- #{mod\ 732}#
+ #{mod\ 1486}#
#f))
- (lambda (#{type\ 733}#
- #{value\ 734}#
- #{e\ 735}#
- #{w\ 736}#
- #{s\ 737}#
- #{mod\ 738}#)
- (#{chi-expr\ 165}#
- #{type\ 733}#
- #{value\ 734}#
- #{e\ 735}#
- #{r\ 730}#
- #{w\ 736}#
- #{s\ 737}#
- #{mod\ 738}#)))))
- (#{chi-top\ 163}#
- (lambda (#{e\ 739}#
- #{r\ 740}#
- #{w\ 741}#
- #{m\ 742}#
- #{esew\ 743}#
- #{mod\ 744}#)
+ (lambda (#{type\ 1491}#
+ #{value\ 1492}#
+ #{e\ 1493}#
+ #{w\ 1494}#
+ #{s\ 1495}#
+ #{mod\ 1496}#)
+ (#{chi-expr\ 347}#
+ #{type\ 1491}#
+ #{value\ 1492}#
+ #{e\ 1493}#
+ #{r\ 1484}#
+ #{w\ 1494}#
+ #{s\ 1495}#
+ #{mod\ 1496}#)))))
+ (#{chi-top\ 343}#
+ (lambda (#{e\ 1503}#
+ #{r\ 1504}#
+ #{w\ 1505}#
+ #{m\ 1506}#
+ #{esew\ 1507}#
+ #{mod\ 1508}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 162}#
- #{e\ 739}#
- #{r\ 740}#
- #{w\ 741}#
- (#{source-annotation\ 119}# #{e\ 739}#)
+ (#{syntax-type\ 341}#
+ #{e\ 1503}#
+ #{r\ 1504}#
+ #{w\ 1505}#
+ (#{source-annotation\ 239}# #{e\ 1503}#)
#f
- #{mod\ 744}#
+ #{mod\ 1508}#
#f))
- (lambda (#{type\ 752}#
- #{value\ 753}#
- #{e\ 754}#
- #{w\ 755}#
- #{s\ 756}#
- #{mod\ 757}#)
- (if (memv #{type\ 752}# (quote (begin-form)))
- ((lambda (#{tmp\ 758}#)
- ((lambda (#{tmp\ 759}#)
- (if #{tmp\ 759}#
- (apply (lambda (#{_\ 760}#) (#{chi-void\ 171}#))
- #{tmp\ 759}#)
- ((lambda (#{tmp\ 761}#)
- (if #{tmp\ 761}#
- (apply (lambda (#{_\ 762}#
- #{e1\ 763}#
- #{e2\ 764}#)
- (#{chi-top-sequence\ 159}#
- (cons #{e1\ 763}# #{e2\ 764}#)
- #{r\ 740}#
- #{w\ 755}#
- #{s\ 756}#
- #{m\ 742}#
- #{esew\ 743}#
- #{mod\ 757}#))
- #{tmp\ 761}#)
+ (lambda (#{type\ 1529}#
+ #{value\ 1530}#
+ #{e\ 1531}#
+ #{w\ 1532}#
+ #{s\ 1533}#
+ #{mod\ 1534}#)
+ (if (memv #{type\ 1529}# (quote (begin-form)))
+ ((lambda (#{tmp\ 1542}#)
+ ((lambda (#{tmp\ 1543}#)
+ (if #{tmp\ 1543}#
+ (apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#))
+ #{tmp\ 1543}#)
+ ((lambda (#{tmp\ 1546}#)
+ (if #{tmp\ 1546}#
+ (apply (lambda (#{_\ 1550}#
+ #{e1\ 1551}#
+ #{e2\ 1552}#)
+ (#{chi-top-sequence\ 335}#
+ (cons #{e1\ 1551}# #{e2\ 1552}#)
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{s\ 1533}#
+ #{m\ 1506}#
+ #{esew\ 1507}#
+ #{mod\ 1534}#))
+ #{tmp\ 1546}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 758}#)))
+ #{tmp\ 1542}#)))
($sc-dispatch
- #{tmp\ 758}#
+ #{tmp\ 1542}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 758}# (quote (any)))))
- #{e\ 754}#)
- (if (memv #{type\ 752}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 169}#
- #{value\ 753}#
- #{e\ 754}#
- #{r\ 740}#
- #{w\ 755}#
- #{s\ 756}#
- #{mod\ 757}#
- (lambda (#{body\ 766}#
- #{r\ 767}#
- #{w\ 768}#
- #{s\ 769}#
- #{mod\ 770}#)
- (#{chi-top-sequence\ 159}#
- #{body\ 766}#
- #{r\ 767}#
- #{w\ 768}#
- #{s\ 769}#
- #{m\ 742}#
- #{esew\ 743}#
- #{mod\ 770}#)))
- (if (memv #{type\ 752}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 771}#)
- ((lambda (#{tmp\ 772}#)
- (if #{tmp\ 772}#
- (apply (lambda (#{_\ 773}#
- #{x\ 774}#
- #{e1\ 775}#
- #{e2\ 776}#)
- (let ((#{when-list\ 777}#
- (#{chi-when-list\ 161}#
- #{e\ 754}#
- #{x\ 774}#
- #{w\ 755}#))
- (#{body\ 778}#
- (cons #{e1\ 775}#
- #{e2\ 776}#)))
- (if (eq? #{m\ 742}# (quote e))
+ ($sc-dispatch #{tmp\ 1542}# (quote (any)))))
+ #{e\ 1531}#)
+ (if (memv #{type\ 1529}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 355}#
+ #{value\ 1530}#
+ #{e\ 1531}#
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{s\ 1533}#
+ #{mod\ 1534}#
+ (lambda (#{body\ 1555}#
+ #{r\ 1556}#
+ #{w\ 1557}#
+ #{s\ 1558}#
+ #{mod\ 1559}#)
+ (#{chi-top-sequence\ 335}#
+ #{body\ 1555}#
+ #{r\ 1556}#
+ #{w\ 1557}#
+ #{s\ 1558}#
+ #{m\ 1506}#
+ #{esew\ 1507}#
+ #{mod\ 1559}#)))
+ (if (memv #{type\ 1529}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 1566}#)
+ ((lambda (#{tmp\ 1567}#)
+ (if #{tmp\ 1567}#
+ (apply (lambda (#{_\ 1572}#
+ #{x\ 1573}#
+ #{e1\ 1574}#
+ #{e2\ 1575}#)
+ (let ((#{when-list\ 1578}#
+ (#{chi-when-list\ 339}#
+ #{e\ 1531}#
+ #{x\ 1573}#
+ #{w\ 1532}#))
+ (#{body\ 1579}#
+ (cons #{e1\ 1574}#
+ #{e2\ 1575}#)))
+ (if (eq? #{m\ 1506}# (quote e))
(if (memq 'eval
- #{when-list\ 777}#)
- (#{chi-top-sequence\ 159}#
- #{body\ 778}#
- #{r\ 740}#
- #{w\ 755}#
- #{s\ 756}#
+ #{when-list\ 1578}#)
+ (#{chi-top-sequence\ 335}#
+ #{body\ 1579}#
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{s\ 1533}#
'e
'(eval)
- #{mod\ 757}#)
- (#{chi-void\ 171}#))
+ #{mod\ 1534}#)
+ (#{chi-void\ 359}#))
(if (memq 'load
- #{when-list\ 777}#)
- (if (let ((#{t\ 781}# (memq
'compile
-
#{when-list\ 777}#)))
- (if #{t\ 781}#
- #{t\ 781}#
- (if (eq? #{m\ 742}#
+ #{when-list\ 1578}#)
+ (if (let ((#{t\ 1588}#
+ (memq 'compile
+ #{when-list\
1578}#)))
+ (if #{t\ 1588}#
+ #{t\ 1588}#
+ (if (eq? #{m\ 1506}#
'c&e)
(memq 'eval
- #{when-list\
777}#)
+ #{when-list\
1578}#)
#f)))
- (#{chi-top-sequence\ 159}#
- #{body\ 778}#
- #{r\ 740}#
- #{w\ 755}#
- #{s\ 756}#
+ (#{chi-top-sequence\ 335}#
+ #{body\ 1579}#
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{s\ 1533}#
'c&e
'(compile load)
- #{mod\ 757}#)
- (if (memq #{m\ 742}#
+ #{mod\ 1534}#)
+ (if (memq #{m\ 1506}#
'(c c&e))
- (#{chi-top-sequence\ 159}#
- #{body\ 778}#
- #{r\ 740}#
- #{w\ 755}#
- #{s\ 756}#
+ (#{chi-top-sequence\ 335}#
+ #{body\ 1579}#
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{s\ 1533}#
'c
'(load)
- #{mod\ 757}#)
- (#{chi-void\ 171}#)))
- (if (let ((#{t\ 782}# (memq
'compile
-
#{when-list\ 777}#)))
- (if #{t\ 782}#
- #{t\ 782}#
- (if (eq? #{m\ 742}#
+ #{mod\ 1534}#)
+ (#{chi-void\ 359}#)))
+ (if (let ((#{t\ 1596}#
+ (memq 'compile
+ #{when-list\
1578}#)))
+ (if #{t\ 1596}#
+ #{t\ 1596}#
+ (if (eq? #{m\ 1506}#
'c&e)
(memq 'eval
- #{when-list\
777}#)
+ #{when-list\
1578}#)
#f)))
(begin
- (#{top-level-eval-hook\
87}#
- (#{chi-top-sequence\
159}#
- #{body\ 778}#
- #{r\ 740}#
- #{w\ 755}#
- #{s\ 756}#
+ (#{top-level-eval-hook\
171}#
+ (#{chi-top-sequence\
335}#
+ #{body\ 1579}#
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{s\ 1533}#
'e
'(eval)
- #{mod\ 757}#)
- #{mod\ 757}#)
- (#{chi-void\ 171}#))
- (#{chi-void\ 171}#))))))
- #{tmp\ 772}#)
+ #{mod\ 1534}#)
+ #{mod\ 1534}#)
+ (#{chi-void\ 359}#))
+ (#{chi-void\ 359}#))))))
+ #{tmp\ 1567}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 771}#)))
+ #{tmp\ 1566}#)))
($sc-dispatch
- #{tmp\ 771}#
+ #{tmp\ 1566}#
'(any each-any any . each-any))))
- #{e\ 754}#)
- (if (memv #{type\ 752}# (quote (define-syntax-form)))
- (let ((#{n\ 783}# (#{id-var-name\ 150}#
- #{value\ 753}#
- #{w\ 755}#))
- (#{r\ 784}# (#{macros-only-env\ 124}#
- #{r\ 740}#)))
- (if (memv #{m\ 742}# (quote (c)))
- (if (memq (quote compile) #{esew\ 743}#)
- (let ((#{e\ 785}# (#{chi-install-global\ 160}#
- #{n\ 783}#
- (#{chi\ 164}#
- #{e\ 754}#
- #{r\ 784}#
- #{w\ 755}#
- #{mod\ 757}#))))
+ #{e\ 1531}#)
+ (if (memv #{type\ 1529}#
+ '(define-syntax-form))
+ (let ((#{n\ 1604}#
+ (#{id-var-name\ 317}#
+ #{value\ 1530}#
+ #{w\ 1532}#))
+ (#{r\ 1605}#
+ (#{macros-only-env\ 252}# #{r\ 1504}#)))
+ (if (memv #{m\ 1506}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 1507}#)
+ (let ((#{e\ 1608}#
+ (#{chi-install-global\ 337}#
+ #{n\ 1604}#
+ (#{chi\ 345}#
+ #{e\ 1531}#
+ #{r\ 1605}#
+ #{w\ 1532}#
+ #{mod\ 1534}#))))
(begin
- (#{top-level-eval-hook\ 87}#
- #{e\ 785}#
- #{mod\ 757}#)
- (if (memq (quote load) #{esew\ 743}#)
- #{e\ 785}#
- (#{chi-void\ 171}#))))
- (if (memq (quote load) #{esew\ 743}#)
- (#{chi-install-global\ 160}#
- #{n\ 783}#
- (#{chi\ 164}#
- #{e\ 754}#
- #{r\ 784}#
- #{w\ 755}#
- #{mod\ 757}#))
- (#{chi-void\ 171}#)))
- (if (memv #{m\ 742}# (quote (c&e)))
- (let ((#{e\ 786}# (#{chi-install-global\ 160}#
- #{n\ 783}#
- (#{chi\ 164}#
- #{e\ 754}#
- #{r\ 784}#
- #{w\ 755}#
- #{mod\ 757}#))))
+ (#{top-level-eval-hook\ 171}#
+ #{e\ 1608}#
+ #{mod\ 1534}#)
+ (if (memq (quote load) #{esew\ 1507}#)
+ #{e\ 1608}#
+ (#{chi-void\ 359}#))))
+ (if (memq (quote load) #{esew\ 1507}#)
+ (#{chi-install-global\ 337}#
+ #{n\ 1604}#
+ (#{chi\ 345}#
+ #{e\ 1531}#
+ #{r\ 1605}#
+ #{w\ 1532}#
+ #{mod\ 1534}#))
+ (#{chi-void\ 359}#)))
+ (if (memv #{m\ 1506}# (quote (c&e)))
+ (let ((#{e\ 1611}#
+ (#{chi-install-global\ 337}#
+ #{n\ 1604}#
+ (#{chi\ 345}#
+ #{e\ 1531}#
+ #{r\ 1605}#
+ #{w\ 1532}#
+ #{mod\ 1534}#))))
(begin
- (#{top-level-eval-hook\ 87}#
- #{e\ 786}#
- #{mod\ 757}#)
- #{e\ 786}#))
+ (#{top-level-eval-hook\ 171}#
+ #{e\ 1611}#
+ #{mod\ 1534}#)
+ #{e\ 1611}#))
(begin
- (if (memq (quote eval) #{esew\ 743}#)
- (#{top-level-eval-hook\ 87}#
- (#{chi-install-global\ 160}#
- #{n\ 783}#
- (#{chi\ 164}#
- #{e\ 754}#
- #{r\ 784}#
- #{w\ 755}#
- #{mod\ 757}#))
- #{mod\ 757}#))
- (#{chi-void\ 171}#)))))
- (if (memv #{type\ 752}# (quote (define-form)))
- (let ((#{n\ 787}# (#{id-var-name\ 150}#
- #{value\ 753}#
- #{w\ 755}#)))
- (let ((#{type\ 788}#
- (#{binding-type\ 120}#
- (#{lookup\ 125}#
- #{n\ 787}#
- #{r\ 740}#
- #{mod\ 757}#))))
- (if (memv #{type\ 788}#
+ (if (memq (quote eval) #{esew\ 1507}#)
+ (#{top-level-eval-hook\ 171}#
+ (#{chi-install-global\ 337}#
+ #{n\ 1604}#
+ (#{chi\ 345}#
+ #{e\ 1531}#
+ #{r\ 1605}#
+ #{w\ 1532}#
+ #{mod\ 1534}#))
+ #{mod\ 1534}#))
+ (#{chi-void\ 359}#)))))
+ (if (memv #{type\ 1529}# (quote (define-form)))
+ (let ((#{n\ 1616}#
+ (#{id-var-name\ 317}#
+ #{value\ 1530}#
+ #{w\ 1532}#)))
+ (let ((#{type\ 1618}#
+ (#{binding-type\ 243}#
+ (#{lookup\ 254}#
+ #{n\ 1616}#
+ #{r\ 1504}#
+ #{mod\ 1534}#))))
+ (if (memv #{type\ 1618}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 787}#))
+ #{n\ 1616}#))
(current-module)
#f)
- (let ((#{old\ 789}#
+ (let ((#{old\ 1623}#
(module-variable
(current-module)
- #{n\ 787}#)))
+ #{n\ 1616}#)))
(module-define!
(current-module)
- #{n\ 787}#
- (if (variable? #{old\ 789}#)
- (variable-ref #{old\ 789}#)
+ #{n\ 1616}#
+ (if (variable? #{old\ 1623}#)
+ (variable-ref #{old\ 1623}#)
#f))))
- (let ((#{x\ 790}#
(#{build-global-definition\ 101}#
- #{s\ 756}#
- #{n\ 787}#
- (#{chi\ 164}#
- #{e\ 754}#
- #{r\ 740}#
- #{w\ 755}#
- #{mod\ 757}#))))
+ (let ((#{x\ 1626}#
+ (#{build-global-definition\ 200}#
+ #{s\ 1533}#
+ #{n\ 1616}#
+ (#{chi\ 345}#
+ #{e\ 1531}#
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{mod\ 1534}#))))
(begin
- (if (eq? #{m\ 742}# (quote c&e))
- (#{top-level-eval-hook\ 87}#
- #{x\ 790}#
- #{mod\ 757}#))
- #{x\ 790}#)))
- (if (memv #{type\ 788}#
+ (if (eq? #{m\ 1506}# (quote c&e))
+ (#{top-level-eval-hook\ 171}#
+ #{x\ 1626}#
+ #{mod\ 1534}#))
+ #{x\ 1626}#)))
+ (if (memv #{type\ 1618}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 754}#
- (#{wrap\ 156}#
- #{value\ 753}#
- #{w\ 755}#
- #{mod\ 757}#))
+ #{e\ 1531}#
+ (#{wrap\ 329}#
+ #{value\ 1530}#
+ #{w\ 1532}#
+ #{mod\ 1534}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 754}#
- (#{wrap\ 156}#
- #{value\ 753}#
- #{w\ 755}#
- #{mod\ 757}#))))))
- (let ((#{x\ 791}# (#{chi-expr\ 165}#
- #{type\ 752}#
- #{value\ 753}#
- #{e\ 754}#
- #{r\ 740}#
- #{w\ 755}#
- #{s\ 756}#
- #{mod\ 757}#)))
+ #{e\ 1531}#
+ (#{wrap\ 329}#
+ #{value\ 1530}#
+ #{w\ 1532}#
+ #{mod\ 1534}#))))))
+ (let ((#{x\ 1632}#
+ (#{chi-expr\ 347}#
+ #{type\ 1529}#
+ #{value\ 1530}#
+ #{e\ 1531}#
+ #{r\ 1504}#
+ #{w\ 1532}#
+ #{s\ 1533}#
+ #{mod\ 1534}#)))
(begin
- (if (eq? #{m\ 742}# (quote c&e))
- (#{top-level-eval-hook\ 87}#
- #{x\ 791}#
- #{mod\ 757}#))
- #{x\ 791}#)))))))))))
- (#{syntax-type\ 162}#
- (lambda (#{e\ 792}#
- #{r\ 793}#
- #{w\ 794}#
- #{s\ 795}#
- #{rib\ 796}#
- #{mod\ 797}#
- #{for-car?\ 798}#)
- (if (symbol? #{e\ 792}#)
- (let ((#{n\ 799}# (#{id-var-name\ 150}#
- #{e\ 792}#
- #{w\ 794}#)))
- (let ((#{b\ 800}# (#{lookup\ 125}#
- #{n\ 799}#
- #{r\ 793}#
- #{mod\ 797}#)))
- (let ((#{type\ 801}#
- (#{binding-type\ 120}# #{b\ 800}#)))
- (if (memv #{type\ 801}# (quote (lexical)))
+ (if (eq? #{m\ 1506}# (quote c&e))
+ (#{top-level-eval-hook\ 171}#
+ #{x\ 1632}#
+ #{mod\ 1534}#))
+ #{x\ 1632}#)))))))))))
+ (#{syntax-type\ 341}#
+ (lambda (#{e\ 1633}#
+ #{r\ 1634}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{rib\ 1637}#
+ #{mod\ 1638}#
+ #{for-car?\ 1639}#)
+ (if (symbol? #{e\ 1633}#)
+ (let ((#{n\ 1651}#
+ (#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#)))
+ (let ((#{b\ 1653}#
+ (#{lookup\ 254}#
+ #{n\ 1651}#
+ #{r\ 1634}#
+ #{mod\ 1638}#)))
+ (let ((#{type\ 1655}#
+ (#{binding-type\ 243}# #{b\ 1653}#)))
+ (if (memv #{type\ 1655}# (quote (lexical)))
(values
- #{type\ 801}#
- (#{binding-value\ 121}# #{b\ 800}#)
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{type\ 801}# (quote (global)))
+ #{type\ 1655}#
+ (#{binding-value\ 245}# #{b\ 1653}#)
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{type\ 1655}# (quote (global)))
(values
- #{type\ 801}#
- #{n\ 799}#
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{type\ 801}# (quote (macro)))
- (if #{for-car?\ 798}#
+ #{type\ 1655}#
+ #{n\ 1651}#
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{type\ 1655}# (quote (macro)))
+ (if #{for-car?\ 1639}#
(values
- #{type\ 801}#
- (#{binding-value\ 121}# #{b\ 800}#)
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (#{syntax-type\ 162}#
- (#{chi-macro\ 167}#
- (#{binding-value\ 121}# #{b\ 800}#)
- #{e\ 792}#
- #{r\ 793}#
- #{w\ 794}#
- #{rib\ 796}#
- #{mod\ 797}#)
- #{r\ 793}#
+ #{type\ 1655}#
+ (#{binding-value\ 245}# #{b\ 1653}#)
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (#{syntax-type\ 341}#
+ (#{chi-macro\ 351}#
+ (#{binding-value\ 245}# #{b\ 1653}#)
+ #{e\ 1633}#
+ #{r\ 1634}#
+ #{w\ 1635}#
+ #{rib\ 1637}#
+ #{mod\ 1638}#)
+ #{r\ 1634}#
'(())
- #{s\ 795}#
- #{rib\ 796}#
- #{mod\ 797}#
+ #{s\ 1636}#
+ #{rib\ 1637}#
+ #{mod\ 1638}#
#f))
(values
- #{type\ 801}#
- (#{binding-value\ 121}# #{b\ 800}#)
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)))))))
- (if (pair? #{e\ 792}#)
- (let ((#{first\ 802}# (car #{e\ 792}#)))
+ #{type\ 1655}#
+ (#{binding-value\ 245}# #{b\ 1653}#)
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)))))))
+ (if (pair? #{e\ 1633}#)
+ (let ((#{first\ 1664}# (car #{e\ 1633}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 162}#
- #{first\ 802}#
- #{r\ 793}#
- #{w\ 794}#
- #{s\ 795}#
- #{rib\ 796}#
- #{mod\ 797}#
+ (#{syntax-type\ 341}#
+ #{first\ 1664}#
+ #{r\ 1634}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{rib\ 1637}#
+ #{mod\ 1638}#
#t))
- (lambda (#{ftype\ 803}#
- #{fval\ 804}#
- #{fe\ 805}#
- #{fw\ 806}#
- #{fs\ 807}#
- #{fmod\ 808}#)
- (if (memv #{ftype\ 803}# (quote (lexical)))
+ (lambda (#{ftype\ 1665}#
+ #{fval\ 1666}#
+ #{fe\ 1667}#
+ #{fw\ 1668}#
+ #{fs\ 1669}#
+ #{fmod\ 1670}#)
+ (if (memv #{ftype\ 1665}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 804}#
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{ftype\ 803}# (quote (global)))
+ #{fval\ 1666}#
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{ftype\ 1665}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 111}#
- #{fval\ 804}#
- #{w\ 794}#
- #{fmod\ 808}#)
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{ftype\ 803}# (quote (macro)))
- (#{syntax-type\ 162}#
- (#{chi-macro\ 167}#
- #{fval\ 804}#
- #{e\ 792}#
- #{r\ 793}#
- #{w\ 794}#
- #{rib\ 796}#
- #{mod\ 797}#)
- #{r\ 793}#
+ (#{make-syntax-object\ 222}#
+ #{fval\ 1666}#
+ #{w\ 1635}#
+ #{fmod\ 1670}#)
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{ftype\ 1665}# (quote (macro)))
+ (#{syntax-type\ 341}#
+ (#{chi-macro\ 351}#
+ #{fval\ 1666}#
+ #{e\ 1633}#
+ #{r\ 1634}#
+ #{w\ 1635}#
+ #{rib\ 1637}#
+ #{mod\ 1638}#)
+ #{r\ 1634}#
'(())
- #{s\ 795}#
- #{rib\ 796}#
- #{mod\ 797}#
- #{for-car?\ 798}#)
- (if (memv #{ftype\ 803}# (quote (module-ref)))
+ #{s\ 1636}#
+ #{rib\ 1637}#
+ #{mod\ 1638}#
+ #{for-car?\ 1639}#)
+ (if (memv #{ftype\ 1665}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 804}# #{e\ 792}#))
- (lambda (#{sym\ 809}# #{mod\ 810}#)
- (#{syntax-type\ 162}#
- #{sym\ 809}#
- #{r\ 793}#
- #{w\ 794}#
- #{s\ 795}#
- #{rib\ 796}#
- #{mod\ 810}#
- #{for-car?\ 798}#)))
- (if (memv #{ftype\ 803}# (quote (core)))
+ (lambda () (#{fval\ 1666}# #{e\ 1633}#))
+ (lambda (#{sym\ 1682}# #{mod\ 1683}#)
+ (#{syntax-type\ 341}#
+ #{sym\ 1682}#
+ #{r\ 1634}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{rib\ 1637}#
+ #{mod\ 1683}#
+ #{for-car?\ 1639}#)))
+ (if (memv #{ftype\ 1665}# (quote (core)))
(values
'core-form
- #{fval\ 804}#
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{ftype\ 803}#
+ #{fval\ 1666}#
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{ftype\ 1665}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 804}#
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{ftype\ 803}# (quote (begin)))
+ #{fval\ 1666}#
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{ftype\ 1665}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{ftype\ 803}#
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{ftype\ 1665}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
- (if (memv #{ftype\ 803}#
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
+ (if (memv #{ftype\ 1665}#
'(define))
- ((lambda (#{tmp\ 811}#)
- ((lambda (#{tmp\ 812}#)
- (if (if #{tmp\ 812}#
- (apply (lambda (#{_\
813}#
- #{name\
814}#
- #{val\
815}#)
- (#{id?\ 128}#
- #{name\
814}#))
- #{tmp\ 812}#)
+ ((lambda (#{tmp\ 1691}#)
+ ((lambda (#{tmp\ 1692}#)
+ (if (if #{tmp\ 1692}#
+ (apply (lambda (#{_\
1696}#
+ #{name\
1697}#
+ #{val\
1698}#)
+ (#{id?\ 260}#
+ #{name\
1697}#))
+ #{tmp\ 1692}#)
#f)
- (apply (lambda (#{_\ 816}#
- #{name\
817}#
- #{val\
818}#)
+ (apply (lambda (#{_\ 1702}#
+ #{name\
1703}#
+ #{val\
1704}#)
(values
'define-form
- #{name\ 817}#
- #{val\ 818}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#))
- #{tmp\ 812}#)
- ((lambda (#{tmp\ 819}#)
- (if (if #{tmp\ 819}#
- (apply (lambda
(#{_\ 820}#
-
#{name\ 821}#
-
#{args\ 822}#
-
#{e1\ 823}#
-
#{e2\ 824}#)
- (if
(#{id?\ 128}#
-
#{name\ 821}#)
-
(#{valid-bound-ids?\ 153}#
-
(#{lambda-var-list\ 179}#
-
#{args\ 822}#))
+ #{name\ 1703}#
+ #{val\ 1704}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#))
+ #{tmp\ 1692}#)
+ ((lambda (#{tmp\ 1705}#)
+ (if (if #{tmp\ 1705}#
+ (apply (lambda
(#{_\ 1711}#
+
#{name\ 1712}#
+
#{args\ 1713}#
+
#{e1\ 1714}#
+
#{e2\ 1715}#)
+ (if
(#{id?\ 260}#
+
#{name\ 1712}#)
+
(#{valid-bound-ids?\ 323}#
+
(#{lambda-var-list\ 375}#
+
#{args\ 1713}#))
#f))
- #{tmp\
819}#)
+ #{tmp\
1705}#)
#f)
- (apply (lambda (#{_\
825}#
-
#{name\ 826}#
-
#{args\ 827}#
- #{e1\
828}#
- #{e2\
829}#)
+ (apply (lambda (#{_\
1723}#
+
#{name\ 1724}#
+
#{args\ 1725}#
+ #{e1\
1726}#
+ #{e2\
1727}#)
(values
'define-form
- (#{wrap\
156}#
- #{name\
826}#
- #{w\ 794}#
- #{mod\
797}#)
-
(#{decorate-source\ 91}#
+ (#{wrap\
329}#
+ #{name\
1724}#
+ #{w\
1635}#
+ #{mod\
1638}#)
+
(#{decorate-source\ 180}#
(cons
'#(syntax-object
lambda
((top)
@@ -3535,11 +3561,11 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1718"
+
"i1719"
+
"i1720"
+
"i1721"
+
"i1722"))
#(ribcage
()
()
@@ -3561,12 +3587,12 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1671"
+
"i1672"
+
"i1673"
+
"i1674"
+
"i1675"
+
"i1676"))
#(ribcage
()
()
@@ -3574,7 +3600,7 @@
#(ribcage
#(first)
#((top))
-
#("i"))
+
#("i1663"))
#(ribcage
()
()
@@ -3602,13 +3628,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1640"
+
"i1641"
+
"i1642"
+
"i1643"
+
"i1644"
+
"i1645"
+
"i1646"))
#(ribcage
(lambda-var-list
gen-var
@@ -3844,159 +3870,159 @@
(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"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
("i374"
+
"i372"
+
"i370"
+
"i368"
+
"i366"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i354"
+
"i352"
+
"i350"
+
"i348"
+
"i346"
+
"i344"
+
"i342"
+
"i340"
+
"i338"
+
"i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i303"
+
"i302"
+
"i300"
+
"i299"
+
"i298"
+
"i297"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i277"
+
"i275"
+
"i274"
+
"i273"
+
"i272"
+
"i271"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i246"
+
"i244"
+
"i242"
+
"i241"
+
"i240"
+
"i238"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"
+
"i227"
+
"i225"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i174"
+
"i172"
+
"i170"
+
"i168"
+
"i166"
+
"i164"
+
"i162"
+
"i160"
+
"i158"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i"
-
"i")))
+
("i61"
+
"i59")))
(hygiene
guile))
-
(#{wrap\ 156}#
-
(cons #{args\ 827}#
-
(cons #{e1\ 828}#
-
#{e2\ 829}#))
-
#{w\ 794}#
-
#{mod\ 797}#))
- #{s\
795}#)
+
(#{wrap\ 329}#
+
(cons #{args\ 1725}#
+
(cons #{e1\ 1726}#
+
#{e2\ 1727}#))
+
#{w\ 1635}#
+
#{mod\ 1638}#))
+ #{s\
1636}#)
'(())
- #{s\ 795}#
- #{mod\
797}#))
- #{tmp\ 819}#)
- ((lambda (#{tmp\ 831}#)
- (if (if #{tmp\ 831}#
- (apply
(lambda (#{_\ 832}#
-
#{name\ 833}#)
-
(#{id?\ 128}#
-
#{name\ 833}#))
- #{tmp\
831}#)
+ #{s\ 1636}#
+ #{mod\
1638}#))
+ #{tmp\ 1705}#)
+ ((lambda (#{tmp\
1730}#)
+ (if (if #{tmp\
1730}#
+ (apply
(lambda (#{_\ 1733}#
+
#{name\ 1734}#)
+
(#{id?\ 260}#
+
#{name\ 1734}#))
+ #{tmp\
1730}#)
#f)
- (apply (lambda
(#{_\ 834}#
-
#{name\ 835}#)
+ (apply (lambda
(#{_\ 1737}#
+
#{name\ 1738}#)
(values
'define-form
-
(#{wrap\ 156}#
-
#{name\ 835}#
- #{w\
794}#
-
#{mod\ 797}#)
+
(#{wrap\ 329}#
+
#{name\ 1738}#
+ #{w\
1635}#
+
#{mod\ 1638}#)
'(#(syntax-object
if
((top)
@@ -4005,8 +4031,8 @@
name)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i1735"
+
"i1736"))
#(ribcage
()
()
@@ -4028,12 +4054,12 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1671"
+
"i1672"
+
"i1673"
+
"i1674"
+
"i1675"
+
"i1676"))
#(ribcage
()
()
@@ -4041,7 +4067,7 @@
#(ribcage
#(first)
#((top))
-
#("i"))
+
#("i1663"))
#(ribcage
()
()
@@ -4069,13 +4095,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1640"
+
"i1641"
+
"i1642"
+
"i1643"
+
"i1644"
+
"i1645"
+
"i1646"))
#(ribcage
(lambda-var-list
gen-var
@@ -4311,130 +4337,130 @@
(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"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
("i374"
+
"i372"
+
"i370"
+
"i368"
+
"i366"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i354"
+
"i352"
+
"i350"
+
"i348"
+
"i346"
+
"i344"
+
"i342"
+
"i340"
+
"i338"
+
"i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i303"
+
"i302"
+
"i300"
+
"i299"
+
"i298"
+
"i297"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i277"
+
"i275"
+
"i274"
+
"i273"
+
"i272"
+
"i271"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i246"
+
"i244"
+
"i242"
+
"i241"
+
"i240"
+
"i238"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"
+
"i227"
+
"i225"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i174"
+
"i172"
+
"i170"
+
"i168"
+
"i166"
+
"i164"
+
"i162"
+
"i160"
+
"i158"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i"
-
"i")))
+
("i61"
+
"i59")))
(hygiene
guile))
#(syntax-object
@@ -4445,8 +4471,8 @@
name)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i1735"
+
"i1736"))
#(ribcage
()
()
@@ -4468,12 +4494,12 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1671"
+
"i1672"
+
"i1673"
+
"i1674"
+
"i1675"
+
"i1676"))
#(ribcage
()
()
@@ -4481,7 +4507,7 @@
#(ribcage
#(first)
#((top))
-
#("i"))
+
#("i1663"))
#(ribcage
()
()
@@ -4509,13 +4535,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1640"
+
"i1641"
+
"i1642"
+
"i1643"
+
"i1644"
+
"i1645"
+
"i1646"))
#(ribcage
(lambda-var-list
gen-var
@@ -4751,130 +4777,130 @@
(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"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
("i374"
+
"i372"
+
"i370"
+
"i368"
+
"i366"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i354"
+
"i352"
+
"i350"
+
"i348"
+
"i346"
+
"i344"
+
"i342"
+
"i340"
+
"i338"
+
"i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i303"
+
"i302"
+
"i300"
+
"i299"
+
"i298"
+
"i297"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i277"
+
"i275"
+
"i274"
+
"i273"
+
"i272"
+
"i271"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i246"
+
"i244"
+
"i242"
+
"i241"
+
"i240"
+
"i238"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"
+
"i227"
+
"i225"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i174"
+
"i172"
+
"i170"
+
"i168"
+
"i166"
+
"i164"
+
"i162"
+
"i160"
+
"i158"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i"
-
"i")))
+
("i61"
+
"i59")))
(hygiene
guile))
#(syntax-object
@@ -4885,8 +4911,8 @@
name)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i1735"
+
"i1736"))
#(ribcage
()
()
@@ -4908,12 +4934,12 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1671"
+
"i1672"
+
"i1673"
+
"i1674"
+
"i1675"
+
"i1676"))
#(ribcage
()
()
@@ -4921,7 +4947,7 @@
#(ribcage
#(first)
#((top))
-
#("i"))
+
#("i1663"))
#(ribcage
()
()
@@ -4949,13 +4975,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i1640"
+
"i1641"
+
"i1642"
+
"i1643"
+
"i1644"
+
"i1645"
+
"i1646"))
#(ribcage
(lambda-var-list
gen-var
@@ -5191,3782 +5217,3719 @@
(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"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
("i374"
+
"i372"
+
"i370"
+
"i368"
+
"i366"
+
"i364"
+
"i362"
+
"i360"
+
"i358"
+
"i356"
+
"i354"
+
"i352"
+
"i350"
+
"i348"
+
"i346"
+
"i344"
+
"i342"
+
"i340"
+
"i338"
+
"i336"
+
"i334"
+
"i332"
+
"i330"
+
"i328"
+
"i326"
+
"i324"
+
"i322"
+
"i320"
+
"i318"
+
"i316"
+
"i314"
+
"i312"
+
"i310"
+
"i308"
+
"i306"
+
"i304"
+
"i303"
+
"i302"
+
"i300"
+
"i299"
+
"i298"
+
"i297"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i280"
+
"i277"
+
"i275"
+
"i274"
+
"i273"
+
"i272"
+
"i271"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i246"
+
"i244"
+
"i242"
+
"i241"
+
"i240"
+
"i238"
+
"i237"
+
"i235"
+
"i233"
+
"i231"
+
"i229"
+
"i227"
+
"i225"
+
"i223"
+
"i221"
+
"i219"
+
"i217"
+
"i215"
+
"i213"
+
"i211"
+
"i209"
+
"i207"
+
"i205"
+
"i203"
+
"i201"
+
"i199"
+
"i197"
+
"i195"
+
"i193"
+
"i191"
+
"i189"
+
"i187"
+
"i185"
+
"i183"
+
"i181"
+
"i179"
+
"i177"
+
"i175"
+
"i174"
+
"i172"
+
"i170"
+
"i168"
+
"i166"
+
"i164"
+
"i162"
+
"i160"
+
"i158"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
-
("i"
-
"i")))
+
("i61"
+
"i59")))
(hygiene
guile)))
'(())
- #{s\
795}#
- #{mod\
797}#))
- #{tmp\
831}#)
+ #{s\
1636}#
+ #{mod\
1638}#))
+ #{tmp\
1730}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 811}#)))
+ #{tmp\ 1691}#)))
($sc-dispatch
- #{tmp\ 811}#
+ #{tmp\ 1691}#
'(any any)))))
($sc-dispatch
- #{tmp\ 811}#
+ #{tmp\ 1691}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 811}#
+ #{tmp\ 1691}#
'(any any any))))
- #{e\ 792}#)
- (if (memv #{ftype\ 803}#
+ #{e\ 1633}#)
+ (if (memv #{ftype\ 1665}#
'(define-syntax))
- ((lambda (#{tmp\ 836}#)
- ((lambda (#{tmp\ 837}#)
- (if (if #{tmp\ 837}#
- (apply (lambda (#{_\
838}#
-
#{name\ 839}#
-
#{val\ 840}#)
- (#{id?\ 128}#
- #{name\
839}#))
- #{tmp\ 837}#)
+ ((lambda (#{tmp\ 1741}#)
+ ((lambda (#{tmp\ 1742}#)
+ (if (if #{tmp\ 1742}#
+ (apply (lambda (#{_\
1746}#
+
#{name\ 1747}#
+
#{val\ 1748}#)
+ (#{id?\ 260}#
+ #{name\
1747}#))
+ #{tmp\ 1742}#)
#f)
- (apply (lambda (#{_\ 841}#
- #{name\
842}#
- #{val\
843}#)
+ (apply (lambda (#{_\
1752}#
+ #{name\
1753}#
+ #{val\
1754}#)
(values
'define-syntax-form
- #{name\ 842}#
- #{val\ 843}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#))
- #{tmp\ 837}#)
+ #{name\ 1753}#
+ #{val\ 1754}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#))
+ #{tmp\ 1742}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 836}#)))
+ #{tmp\ 1741}#)))
($sc-dispatch
- #{tmp\ 836}#
+ #{tmp\ 1741}#
'(any any any))))
- #{e\ 792}#)
+ #{e\ 1633}#)
(values
'call
#f
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#))))))))))))))
- (if (#{syntax-object?\ 112}# #{e\ 792}#)
- (#{syntax-type\ 162}#
- (#{syntax-object-expression\ 113}# #{e\ 792}#)
- #{r\ 793}#
- (#{join-wraps\ 147}#
- #{w\ 794}#
- (#{syntax-object-wrap\ 114}# #{e\ 792}#))
- #{s\ 795}#
- #{rib\ 796}#
- (let ((#{t\ 844}# (#{syntax-object-module\ 115}#
- #{e\ 792}#)))
- (if #{t\ 844}# #{t\ 844}# #{mod\ 797}#))
- #{for-car?\ 798}#)
- (if (self-evaluating? #{e\ 792}#)
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#))))))))))))))
+ (if (#{syntax-object?\ 224}# #{e\ 1633}#)
+ (#{syntax-type\ 341}#
+ (#{syntax-object-expression\ 226}# #{e\ 1633}#)
+ #{r\ 1634}#
+ (#{join-wraps\ 311}#
+ #{w\ 1635}#
+ (#{syntax-object-wrap\ 228}# #{e\ 1633}#))
+ #{s\ 1636}#
+ #{rib\ 1637}#
+ (let ((#{t\ 1760}#
+ (#{syntax-object-module\ 230}# #{e\ 1633}#)))
+ (if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#))
+ #{for-car?\ 1639}#)
+ (if (self-evaluating? #{e\ 1633}#)
(values
'constant
#f
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)
(values
'other
#f
- #{e\ 792}#
- #{w\ 794}#
- #{s\ 795}#
- #{mod\ 797}#)))))))
- (#{chi-when-list\ 161}#
- (lambda (#{e\ 845}# #{when-list\ 846}# #{w\ 847}#)
- (letrec ((#{f\ 848}# (lambda (#{when-list\ 849}#
- #{situations\ 850}#)
- (if (null? #{when-list\ 849}#)
- #{situations\ 850}#
- (#{f\ 848}# (cdr #{when-list\ 849}#)
- (cons (let ((#{x\ 851}#
(car #{when-list\ 849}#)))
- (if (#{free-id=?\
151}#
- #{x\ 851}#
-
'#(syntax-object
- compile
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(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
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
-
ellipsis?
-
chi-void
-
eval-local-transformer
-
chi-local-syntax
-
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
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
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-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
maybe-name-value!
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-conditional
-
build-application
-
build-void
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
*mode*
-
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)
- (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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
-
(define-structure
-
and-map*)
- ((top)
- (top))
- ("i"
- "i")))
- (hygiene
- guile)))
- 'compile
- (if
(#{free-id=?\ 151}#
- #{x\ 851}#
-
'#(syntax-object
- load
- ((top)
-
#(ribcage
- ()
- ()
- ())
-
#(ribcage
- ()
- ()
- ())
-
#(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
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
-
ellipsis?
-
chi-void
-
eval-local-transformer
-
chi-local-syntax
-
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
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
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-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
maybe-name-value!
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-conditional
-
build-application
-
build-void
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
*mode*
-
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)
-
(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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
-
"i"))
-
#(ribcage
-
(define-structure
-
and-map*)
-
((top)
-
(top))
- ("i"
-
"i")))
- (hygiene
-
guile)))
- 'load
- (if
(#{free-id=?\ 151}#
- #{x\
851}#
-
'#(syntax-object
- eval
- ((top)
-
#(ribcage
- ()
- ()
- ())
-
#(ribcage
- ()
- ()
- ())
-
#(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
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
-
ellipsis?
-
chi-void
-
eval-local-transformer
-
chi-local-syntax
-
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
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
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-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
maybe-name-value!
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-conditional
-
build-application
-
build-void
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
-
fx<
-
fx=
-
fx-
-
fx+
-
*mode*
-
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)
-
(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"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
-
#(ribcage
-
(define-structure
-
and-map*)
-
((top)
-
(top))
-
("i"
-
"i")))
-
(hygiene
-
guile)))
- 'eval
-
(syntax-violation
- 'eval-when
- "invalid
situation"
- #{e\ 845}#
- (#{wrap\
156}#
- #{x\
851}#
- #{w\
847}#
- #f))))))
- #{situations\
850}#))))))
- (#{f\ 848}# #{when-list\ 846}# (quote ())))))
- (#{chi-install-global\ 160}#
- (lambda (#{name\ 852}# #{e\ 853}#)
- (#{build-global-definition\ 101}#
+ #{e\ 1633}#
+ #{w\ 1635}#
+ #{s\ 1636}#
+ #{mod\ 1638}#)))))))
+ (#{chi-when-list\ 339}#
+ (lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#)
+ (letrec ((#{f\ 1774}#
+ (lambda (#{when-list\ 1775}# #{situations\ 1776}#)
+ (if (null? #{when-list\ 1775}#)
+ #{situations\ 1776}#
+ (#{f\ 1774}#
+ (cdr #{when-list\ 1775}#)
+ (cons (let ((#{x\ 1778}#
+ (car #{when-list\ 1775}#)))
+ (if (#{free-id=?\ 319}#
+ #{x\ 1778}#
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1777"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1771" "i1772" "i1773"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1768" "i1769" "i1770"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ 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
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ 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-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ 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)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
+ #(ribcage
+ (define-structure and-map*)
+ ((top) (top))
+ ("i61" "i59")))
+ (hygiene guile)))
+ 'compile
+ (if (#{free-id=?\ 319}#
+ #{x\ 1778}#
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1777"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1771"
+ "i1772"
+ "i1773"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1768"
+ "i1769"
+ "i1770"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ 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
+
set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ 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-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+
build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ 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)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top) (top))
+ ("i61" "i59")))
+ (hygiene guile)))
+ 'load
+ (if (#{free-id=?\ 319}#
+ #{x\ 1778}#
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1777"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i1771"
+ "i1772"
+ "i1773"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1768"
+ "i1769"
+ "i1770"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+
eval-local-transformer
+ chi-local-syntax
+ 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
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ 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-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+ maybe-name-value!
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ 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)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top) (top))
+ ("i61" "i59")))
+ (hygiene guile)))
+ 'eval
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e\ 1765}#
+ (#{wrap\ 329}#
+ #{x\ 1778}#
+ #{w\ 1767}#
+ #f))))))
+ #{situations\ 1776}#))))))
+ (#{f\ 1774}# #{when-list\ 1766}# (quote ())))))
+ (#{chi-install-global\ 337}#
+ (lambda (#{name\ 1786}# #{e\ 1787}#)
+ (#{build-global-definition\ 200}#
#f
- #{name\ 852}#
- (if (let ((#{v\ 854}# (module-variable
- (current-module)
- #{name\ 852}#)))
- (if #{v\ 854}#
- (if (variable-bound? #{v\ 854}#)
- (if (macro? (variable-ref #{v\ 854}#))
- (not (eq? (macro-type (variable-ref #{v\ 854}#))
+ #{name\ 1786}#
+ (if (let ((#{v\ 1792}#
+ (module-variable
+ (current-module)
+ #{name\ 1786}#)))
+ (if #{v\ 1792}#
+ (if (variable-bound? #{v\ 1792}#)
+ (if (macro? (variable-ref #{v\ 1792}#))
+ (not (eq? (macro-type (variable-ref #{v\ 1792}#))
'syncase-macro))
#f)
#f)
#f))
- (#{build-application\ 93}#
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'make-extended-syncase-macro)
- (list (#{build-application\ 93}#
+ (list (#{build-application\ 184}#
#f
- (#{build-primref\ 105}# #f (quote module-ref))
- (list (#{build-application\ 93}#
+ (#{build-primref\ 208}# #f (quote module-ref))
+ (list (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'current-module)
'())
- (#{build-data\ 106}# #f #{name\ 852}#)))
- (#{build-data\ 106}# #f (quote macro))
- (#{build-application\ 93}#
+ (#{build-data\ 210}# #f #{name\ 1786}#)))
+ (#{build-data\ 210}# #f (quote macro))
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}# #f (quote cons))
- (list #{e\ 853}#
- (#{build-application\ 93}#
+ (#{build-primref\ 208}# #f (quote cons))
+ (list #{e\ 1787}#
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'module-name)
- (list (#{build-application\ 93}#
+ (list (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'current-module)
'())))))))
- (#{build-application\ 93}#
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'make-syncase-macro)
- (list (#{build-data\ 106}# #f (quote macro))
- (#{build-application\ 93}#
+ (list (#{build-data\ 210}# #f (quote macro))
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}# #f (quote cons))
- (list #{e\ 853}#
- (#{build-application\ 93}#
+ (#{build-primref\ 208}# #f (quote cons))
+ (list #{e\ 1787}#
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'module-name)
- (list (#{build-application\ 93}#
+ (list (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'current-module)
'())))))))))))
- (#{chi-top-sequence\ 159}#
- (lambda (#{body\ 855}#
- #{r\ 856}#
- #{w\ 857}#
- #{s\ 858}#
- #{m\ 859}#
- #{esew\ 860}#
- #{mod\ 861}#)
- (#{build-sequence\ 107}#
- #{s\ 858}#
- (letrec ((#{dobody\ 862}#
- (lambda (#{body\ 863}#
- #{r\ 864}#
- #{w\ 865}#
- #{m\ 866}#
- #{esew\ 867}#
- #{mod\ 868}#)
- (if (null? #{body\ 863}#)
+ (#{chi-top-sequence\ 335}#
+ (lambda (#{body\ 1820}#
+ #{r\ 1821}#
+ #{w\ 1822}#
+ #{s\ 1823}#
+ #{m\ 1824}#
+ #{esew\ 1825}#
+ #{mod\ 1826}#)
+ (#{build-sequence\ 212}#
+ #{s\ 1823}#
+ (letrec ((#{dobody\ 1841}#
+ (lambda (#{body\ 1842}#
+ #{r\ 1843}#
+ #{w\ 1844}#
+ #{m\ 1845}#
+ #{esew\ 1846}#
+ #{mod\ 1847}#)
+ (if (null? #{body\ 1842}#)
'()
- (let ((#{first\ 869}#
- (#{chi-top\ 163}#
- (car #{body\ 863}#)
- #{r\ 864}#
- #{w\ 865}#
- #{m\ 866}#
- #{esew\ 867}#
- #{mod\ 868}#)))
- (cons #{first\ 869}#
- (#{dobody\ 862}#
- (cdr #{body\ 863}#)
- #{r\ 864}#
- #{w\ 865}#
- #{m\ 866}#
- #{esew\ 867}#
- #{mod\ 868}#)))))))
- (#{dobody\ 862}#
- #{body\ 855}#
- #{r\ 856}#
- #{w\ 857}#
- #{m\ 859}#
- #{esew\ 860}#
- #{mod\ 861}#)))))
- (#{chi-sequence\ 158}#
- (lambda (#{body\ 870}#
- #{r\ 871}#
- #{w\ 872}#
- #{s\ 873}#
- #{mod\ 874}#)
- (#{build-sequence\ 107}#
- #{s\ 873}#
- (letrec ((#{dobody\ 875}#
- (lambda (#{body\ 876}#
- #{r\ 877}#
- #{w\ 878}#
- #{mod\ 879}#)
- (if (null? #{body\ 876}#)
+ (let ((#{first\ 1849}#
+ (#{chi-top\ 343}#
+ (car #{body\ 1842}#)
+ #{r\ 1843}#
+ #{w\ 1844}#
+ #{m\ 1845}#
+ #{esew\ 1846}#
+ #{mod\ 1847}#)))
+ (cons #{first\ 1849}#
+ (#{dobody\ 1841}#
+ (cdr #{body\ 1842}#)
+ #{r\ 1843}#
+ #{w\ 1844}#
+ #{m\ 1845}#
+ #{esew\ 1846}#
+ #{mod\ 1847}#)))))))
+ (#{dobody\ 1841}#
+ #{body\ 1820}#
+ #{r\ 1821}#
+ #{w\ 1822}#
+ #{m\ 1824}#
+ #{esew\ 1825}#
+ #{mod\ 1826}#)))))
+ (#{chi-sequence\ 333}#
+ (lambda (#{body\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
+ (#{build-sequence\ 212}#
+ #{s\ 1853}#
+ (letrec ((#{dobody\ 1865}#
+ (lambda (#{body\ 1866}#
+ #{r\ 1867}#
+ #{w\ 1868}#
+ #{mod\ 1869}#)
+ (if (null? #{body\ 1866}#)
'()
- (let ((#{first\ 880}#
- (#{chi\ 164}#
- (car #{body\ 876}#)
- #{r\ 877}#
- #{w\ 878}#
- #{mod\ 879}#)))
- (cons #{first\ 880}#
- (#{dobody\ 875}#
- (cdr #{body\ 876}#)
- #{r\ 877}#
- #{w\ 878}#
- #{mod\ 879}#)))))))
- (#{dobody\ 875}#
- #{body\ 870}#
- #{r\ 871}#
- #{w\ 872}#
- #{mod\ 874}#)))))
- (#{source-wrap\ 157}#
- (lambda (#{x\ 881}#
- #{w\ 882}#
- #{s\ 883}#
- #{defmod\ 884}#)
- (#{wrap\ 156}#
- (#{decorate-source\ 91}# #{x\ 881}# #{s\ 883}#)
- #{w\ 882}#
- #{defmod\ 884}#)))
- (#{wrap\ 156}#
- (lambda (#{x\ 885}# #{w\ 886}# #{defmod\ 887}#)
- (if (if (null? (#{wrap-marks\ 131}# #{w\ 886}#))
- (null? (#{wrap-subst\ 132}# #{w\ 886}#))
+ (let ((#{first\ 1871}#
+ (#{chi\ 345}#
+ (car #{body\ 1866}#)
+ #{r\ 1867}#
+ #{w\ 1868}#
+ #{mod\ 1869}#)))
+ (cons #{first\ 1871}#
+ (#{dobody\ 1865}#
+ (cdr #{body\ 1866}#)
+ #{r\ 1867}#
+ #{w\ 1868}#
+ #{mod\ 1869}#)))))))
+ (#{dobody\ 1865}#
+ #{body\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{mod\ 1854}#)))))
+ (#{source-wrap\ 331}#
+ (lambda (#{x\ 1872}#
+ #{w\ 1873}#
+ #{s\ 1874}#
+ #{defmod\ 1875}#)
+ (#{wrap\ 329}#
+ (#{decorate-source\ 180}#
+ #{x\ 1872}#
+ #{s\ 1874}#)
+ #{w\ 1873}#
+ #{defmod\ 1875}#)))
+ (#{wrap\ 329}#
+ (lambda (#{x\ 1880}# #{w\ 1881}# #{defmod\ 1882}#)
+ (if (if (null? (#{wrap-marks\ 267}# #{w\ 1881}#))
+ (null? (#{wrap-subst\ 269}# #{w\ 1881}#))
#f)
- #{x\ 885}#
- (if (#{syntax-object?\ 112}# #{x\ 885}#)
- (#{make-syntax-object\ 111}#
- (#{syntax-object-expression\ 113}# #{x\ 885}#)
- (#{join-wraps\ 147}#
- #{w\ 886}#
- (#{syntax-object-wrap\ 114}# #{x\ 885}#))
- (#{syntax-object-module\ 115}# #{x\ 885}#))
- (if (null? #{x\ 885}#)
- #{x\ 885}#
- (#{make-syntax-object\ 111}#
- #{x\ 885}#
- #{w\ 886}#
- #{defmod\ 887}#))))))
- (#{bound-id-member?\ 155}#
- (lambda (#{x\ 888}# #{list\ 889}#)
- (if (not (null? #{list\ 889}#))
- (let ((#{t\ 890}# (#{bound-id=?\ 152}#
- #{x\ 888}#
- (car #{list\ 889}#))))
- (if #{t\ 890}#
- #{t\ 890}#
- (#{bound-id-member?\ 155}#
- #{x\ 888}#
- (cdr #{list\ 889}#))))
+ #{x\ 1880}#
+ (if (#{syntax-object?\ 224}# #{x\ 1880}#)
+ (#{make-syntax-object\ 222}#
+ (#{syntax-object-expression\ 226}# #{x\ 1880}#)
+ (#{join-wraps\ 311}#
+ #{w\ 1881}#
+ (#{syntax-object-wrap\ 228}# #{x\ 1880}#))
+ (#{syntax-object-module\ 230}# #{x\ 1880}#))
+ (if (null? #{x\ 1880}#)
+ #{x\ 1880}#
+ (#{make-syntax-object\ 222}#
+ #{x\ 1880}#
+ #{w\ 1881}#
+ #{defmod\ 1882}#))))))
+ (#{bound-id-member?\ 327}#
+ (lambda (#{x\ 1895}# #{list\ 1896}#)
+ (if (not (null? #{list\ 1896}#))
+ (let ((#{t\ 1903}#
+ (#{bound-id=?\ 321}#
+ #{x\ 1895}#
+ (car #{list\ 1896}#))))
+ (if #{t\ 1903}#
+ #{t\ 1903}#
+ (#{bound-id-member?\ 327}#
+ #{x\ 1895}#
+ (cdr #{list\ 1896}#))))
#f)))
- (#{distinct-bound-ids?\ 154}#
- (lambda (#{ids\ 891}#)
- (letrec ((#{distinct?\ 892}#
- (lambda (#{ids\ 893}#)
- (let ((#{t\ 894}# (null? #{ids\ 893}#)))
- (if #{t\ 894}#
- #{t\ 894}#
- (if (not (#{bound-id-member?\ 155}#
- (car #{ids\ 893}#)
- (cdr #{ids\ 893}#)))
- (#{distinct?\ 892}# (cdr #{ids\ 893}#))
+ (#{distinct-bound-ids?\ 325}#
+ (lambda (#{ids\ 1905}#)
+ (letrec ((#{distinct?\ 1909}#
+ (lambda (#{ids\ 1910}#)
+ (let ((#{t\ 1913}# (null? #{ids\ 1910}#)))
+ (if #{t\ 1913}#
+ #{t\ 1913}#
+ (if (not (#{bound-id-member?\ 327}#
+ (car #{ids\ 1910}#)
+ (cdr #{ids\ 1910}#)))
+ (#{distinct?\ 1909}# (cdr #{ids\ 1910}#))
#f))))))
- (#{distinct?\ 892}# #{ids\ 891}#))))
- (#{valid-bound-ids?\ 153}#
- (lambda (#{ids\ 895}#)
- (if (letrec ((#{all-ids?\ 896}#
- (lambda (#{ids\ 897}#)
- (let ((#{t\ 898}# (null? #{ids\ 897}#)))
- (if #{t\ 898}#
- #{t\ 898}#
- (if (#{id?\ 128}# (car #{ids\ 897}#))
- (#{all-ids?\ 896}# (cdr #{ids\ 897}#))
+ (#{distinct?\ 1909}# #{ids\ 1905}#))))
+ (#{valid-bound-ids?\ 323}#
+ (lambda (#{ids\ 1917}#)
+ (if (letrec ((#{all-ids?\ 1922}#
+ (lambda (#{ids\ 1923}#)
+ (let ((#{t\ 1926}# (null? #{ids\ 1923}#)))
+ (if #{t\ 1926}#
+ #{t\ 1926}#
+ (if (#{id?\ 260}# (car #{ids\ 1923}#))
+ (#{all-ids?\ 1922}# (cdr #{ids\ 1923}#))
#f))))))
- (#{all-ids?\ 896}# #{ids\ 895}#))
- (#{distinct-bound-ids?\ 154}# #{ids\ 895}#)
+ (#{all-ids?\ 1922}# #{ids\ 1917}#))
+ (#{distinct-bound-ids?\ 325}# #{ids\ 1917}#)
#f)))
- (#{bound-id=?\ 152}#
- (lambda (#{i\ 899}# #{j\ 900}#)
- (if (if (#{syntax-object?\ 112}# #{i\ 899}#)
- (#{syntax-object?\ 112}# #{j\ 900}#)
+ (#{bound-id=?\ 321}#
+ (lambda (#{i\ 1931}# #{j\ 1932}#)
+ (if (if (#{syntax-object?\ 224}# #{i\ 1931}#)
+ (#{syntax-object?\ 224}# #{j\ 1932}#)
#f)
- (if (eq? (#{syntax-object-expression\ 113}# #{i\ 899}#)
- (#{syntax-object-expression\ 113}# #{j\ 900}#))
- (#{same-marks?\ 149}#
- (#{wrap-marks\ 131}#
- (#{syntax-object-wrap\ 114}# #{i\ 899}#))
- (#{wrap-marks\ 131}#
- (#{syntax-object-wrap\ 114}# #{j\ 900}#)))
+ (if (eq? (#{syntax-object-expression\ 226}# #{i\ 1931}#)
+ (#{syntax-object-expression\ 226}# #{j\ 1932}#))
+ (#{same-marks?\ 315}#
+ (#{wrap-marks\ 267}#
+ (#{syntax-object-wrap\ 228}# #{i\ 1931}#))
+ (#{wrap-marks\ 267}#
+ (#{syntax-object-wrap\ 228}# #{j\ 1932}#)))
#f)
- (eq? #{i\ 899}# #{j\ 900}#))))
- (#{free-id=?\ 151}#
- (lambda (#{i\ 901}# #{j\ 902}#)
- (if (eq? (let ((#{x\ 903}# #{i\ 901}#))
- (if (#{syntax-object?\ 112}# #{x\ 903}#)
- (#{syntax-object-expression\ 113}# #{x\ 903}#)
- #{x\ 903}#))
- (let ((#{x\ 904}# #{j\ 902}#))
- (if (#{syntax-object?\ 112}# #{x\ 904}#)
- (#{syntax-object-expression\ 113}# #{x\ 904}#)
- #{x\ 904}#)))
- (eq? (#{id-var-name\ 150}# #{i\ 901}# (quote (())))
- (#{id-var-name\ 150}# #{j\ 902}# (quote (()))))
+ (eq? #{i\ 1931}# #{j\ 1932}#))))
+ (#{free-id=?\ 319}#
+ (lambda (#{i\ 1939}# #{j\ 1940}#)
+ (if (eq? (let ((#{x\ 1946}# #{i\ 1939}#))
+ (if (#{syntax-object?\ 224}# #{x\ 1946}#)
+ (#{syntax-object-expression\ 226}# #{x\ 1946}#)
+ #{x\ 1946}#))
+ (let ((#{x\ 1949}# #{j\ 1940}#))
+ (if (#{syntax-object?\ 224}# #{x\ 1949}#)
+ (#{syntax-object-expression\ 226}# #{x\ 1949}#)
+ #{x\ 1949}#)))
+ (eq? (#{id-var-name\ 317}# #{i\ 1939}# (quote (())))
+ (#{id-var-name\ 317}# #{j\ 1940}# (quote (()))))
#f)))
- (#{id-var-name\ 150}#
- (lambda (#{id\ 905}# #{w\ 906}#)
- (letrec ((#{search-vector-rib\ 909}#
- (lambda (#{sym\ 915}#
- #{subst\ 916}#
- #{marks\ 917}#
- #{symnames\ 918}#
- #{ribcage\ 919}#)
- (let ((#{n\ 920}# (vector-length
- #{symnames\ 918}#)))
- (letrec ((#{f\ 921}# (lambda (#{i\ 922}#)
- (if (#{fx=\ 85}#
- #{i\ 922}#
- #{n\ 920}#)
- (#{search\ 907}#
- #{sym\ 915}#
- (cdr #{subst\ 916}#)
- #{marks\ 917}#)
- (if (if (eq? (vector-ref
-
#{symnames\ 918}#
- #{i\
922}#)
- #{sym\
915}#)
- (#{same-marks?\
149}#
- #{marks\ 917}#
- (vector-ref
-
(#{ribcage-marks\ 138}#
- #{ribcage\
919}#)
- #{i\ 922}#))
- #f)
- (values
- (vector-ref
-
(#{ribcage-labels\ 139}#
- #{ribcage\
919}#)
- #{i\ 922}#)
- #{marks\ 917}#)
- (#{f\ 921}# (#{fx+\
83}#
- #{i\
922}#
- 1)))))))
- (#{f\ 921}# 0)))))
- (#{search-list-rib\ 908}#
- (lambda (#{sym\ 923}#
- #{subst\ 924}#
- #{marks\ 925}#
- #{symnames\ 926}#
- #{ribcage\ 927}#)
- (letrec ((#{f\ 928}# (lambda (#{symnames\ 929}#
- #{i\ 930}#)
- (if (null? #{symnames\
929}#)
- (#{search\ 907}#
- #{sym\ 923}#
- (cdr #{subst\ 924}#)
- #{marks\ 925}#)
- (if (if (eq? (car
#{symnames\ 929}#)
- #{sym\ 923}#)
- (#{same-marks?\
149}#
- #{marks\ 925}#
- (list-ref
-
(#{ribcage-marks\ 138}#
- #{ribcage\
927}#)
- #{i\ 930}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels\
139}#
- #{ribcage\ 927}#)
- #{i\ 930}#)
- #{marks\ 925}#)
- (#{f\ 928}# (cdr
#{symnames\ 929}#)
- (#{fx+\ 83}#
- #{i\ 930}#
- 1)))))))
- (#{f\ 928}# #{symnames\ 926}# 0))))
- (#{search\ 907}#
- (lambda (#{sym\ 931}# #{subst\ 932}# #{marks\ 933}#)
- (if (null? #{subst\ 932}#)
- (values #f #{marks\ 933}#)
- (let ((#{fst\ 934}# (car #{subst\ 932}#)))
- (if (eq? #{fst\ 934}# (quote shift))
- (#{search\ 907}#
- #{sym\ 931}#
- (cdr #{subst\ 932}#)
- (cdr #{marks\ 933}#))
- (let ((#{symnames\ 935}#
- (#{ribcage-symnames\ 137}#
- #{fst\ 934}#)))
- (if (vector? #{symnames\ 935}#)
- (#{search-vector-rib\ 909}#
- #{sym\ 931}#
- #{subst\ 932}#
- #{marks\ 933}#
- #{symnames\ 935}#
- #{fst\ 934}#)
- (#{search-list-rib\ 908}#
- #{sym\ 931}#
- #{subst\ 932}#
- #{marks\ 933}#
- #{symnames\ 935}#
- #{fst\ 934}#)))))))))
- (if (symbol? #{id\ 905}#)
- (let ((#{t\ 936}# (call-with-values
- (lambda ()
- (#{search\ 907}#
- #{id\ 905}#
- (#{wrap-subst\ 132}# #{w\ 906}#)
- (#{wrap-marks\ 131}# #{w\ 906}#)))
- (lambda (#{x\ 937}# . #{ignore\ 938}#)
- #{x\ 937}#))))
- (if #{t\ 936}# #{t\ 936}# #{id\ 905}#))
- (if (#{syntax-object?\ 112}# #{id\ 905}#)
- (let ((#{id\ 939}#
- (#{syntax-object-expression\ 113}# #{id\ 905}#))
- (#{w1\ 940}#
- (#{syntax-object-wrap\ 114}# #{id\ 905}#)))
- (let ((#{marks\ 941}#
- (#{join-marks\ 148}#
- (#{wrap-marks\ 131}# #{w\ 906}#)
- (#{wrap-marks\ 131}# #{w1\ 940}#))))
+ (#{id-var-name\ 317}#
+ (lambda (#{id\ 1953}# #{w\ 1954}#)
+ (letrec ((#{search-vector-rib\ 1963}#
+ (lambda (#{sym\ 1975}#
+ #{subst\ 1976}#
+ #{marks\ 1977}#
+ #{symnames\ 1978}#
+ #{ribcage\ 1979}#)
+ (let ((#{n\ 1986}#
+ (vector-length #{symnames\ 1978}#)))
+ (letrec ((#{f\ 1989}#
+ (lambda (#{i\ 1990}#)
+ (if (#{fx=\ 167}#
+ #{i\ 1990}#
+ #{n\ 1986}#)
+ (#{search\ 1959}#
+ #{sym\ 1975}#
+ (cdr #{subst\ 1976}#)
+ #{marks\ 1977}#)
+ (if (if (eq? (vector-ref
+ #{symnames\ 1978}#
+ #{i\ 1990}#)
+ #{sym\ 1975}#)
+ (#{same-marks?\ 315}#
+ #{marks\ 1977}#
+ (vector-ref
+ (#{ribcage-marks\ 287}#
+ #{ribcage\ 1979}#)
+ #{i\ 1990}#))
+ #f)
+ (values
+ (vector-ref
+ (#{ribcage-labels\ 289}#
+ #{ribcage\ 1979}#)
+ #{i\ 1990}#)
+ #{marks\ 1977}#)
+ (#{f\ 1989}#
+ (#{fx+\ 163}#
+ #{i\ 1990}#
+ 1)))))))
+ (#{f\ 1989}# 0)))))
+ (#{search-list-rib\ 1961}#
+ (lambda (#{sym\ 1998}#
+ #{subst\ 1999}#
+ #{marks\ 2000}#
+ #{symnames\ 2001}#
+ #{ribcage\ 2002}#)
+ (letrec ((#{f\ 2011}#
+ (lambda (#{symnames\ 2012}# #{i\ 2013}#)
+ (if (null? #{symnames\ 2012}#)
+ (#{search\ 1959}#
+ #{sym\ 1998}#
+ (cdr #{subst\ 1999}#)
+ #{marks\ 2000}#)
+ (if (if (eq? (car #{symnames\
2012}#)
+ #{sym\ 1998}#)
+ (#{same-marks?\ 315}#
+ #{marks\ 2000}#
+ (list-ref
+ (#{ribcage-marks\ 287}#
+ #{ribcage\ 2002}#)
+ #{i\ 2013}#))
+ #f)
+ (values
+ (list-ref
+ (#{ribcage-labels\ 289}#
+ #{ribcage\ 2002}#)
+ #{i\ 2013}#)
+ #{marks\ 2000}#)
+ (#{f\ 2011}#
+ (cdr #{symnames\ 2012}#)
+ (#{fx+\ 163}#
+ #{i\ 2013}#
+ 1)))))))
+ (#{f\ 2011}# #{symnames\ 2001}# 0))))
+ (#{search\ 1959}#
+ (lambda (#{sym\ 2021}#
+ #{subst\ 2022}#
+ #{marks\ 2023}#)
+ (if (null? #{subst\ 2022}#)
+ (values #f #{marks\ 2023}#)
+ (let ((#{fst\ 2028}# (car #{subst\ 2022}#)))
+ (if (eq? #{fst\ 2028}# (quote shift))
+ (#{search\ 1959}#
+ #{sym\ 2021}#
+ (cdr #{subst\ 2022}#)
+ (cdr #{marks\ 2023}#))
+ (let ((#{symnames\ 2030}#
+ (#{ribcage-symnames\ 285}#
+ #{fst\ 2028}#)))
+ (if (vector? #{symnames\ 2030}#)
+ (#{search-vector-rib\ 1963}#
+ #{sym\ 2021}#
+ #{subst\ 2022}#
+ #{marks\ 2023}#
+ #{symnames\ 2030}#
+ #{fst\ 2028}#)
+ (#{search-list-rib\ 1961}#
+ #{sym\ 2021}#
+ #{subst\ 2022}#
+ #{marks\ 2023}#
+ #{symnames\ 2030}#
+ #{fst\ 2028}#)))))))))
+ (if (symbol? #{id\ 1953}#)
+ (let ((#{t\ 2033}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 1959}#
+ #{id\ 1953}#
+ (#{wrap-subst\ 269}# #{w\ 1954}#)
+ (#{wrap-marks\ 267}# #{w\ 1954}#)))
+ (lambda (#{x\ 2035}# . #{ignore\ 2036}#)
+ #{x\ 2035}#))))
+ (if #{t\ 2033}# #{t\ 2033}# #{id\ 1953}#))
+ (if (#{syntax-object?\ 224}# #{id\ 1953}#)
+ (let ((#{id\ 2044}#
+ (#{syntax-object-expression\ 226}# #{id\ 1953}#))
+ (#{w1\ 2045}#
+ (#{syntax-object-wrap\ 228}# #{id\ 1953}#)))
+ (let ((#{marks\ 2047}#
+ (#{join-marks\ 313}#
+ (#{wrap-marks\ 267}# #{w\ 1954}#)
+ (#{wrap-marks\ 267}# #{w1\ 2045}#))))
(call-with-values
(lambda ()
- (#{search\ 907}#
- #{id\ 939}#
- (#{wrap-subst\ 132}# #{w\ 906}#)
- #{marks\ 941}#))
- (lambda (#{new-id\ 942}# #{marks\ 943}#)
- (let ((#{t\ 944}# #{new-id\ 942}#))
- (if #{t\ 944}#
- #{t\ 944}#
- (let ((#{t\ 945}# (call-with-values
- (lambda ()
- (#{search\ 907}#
- #{id\ 939}#
- (#{wrap-subst\ 132}#
- #{w1\ 940}#)
- #{marks\ 943}#))
- (lambda (#{x\ 946}#
- .
- #{ignore\ 947}#)
- #{x\ 946}#))))
- (if #{t\ 945}#
- #{t\ 945}#
- #{id\ 939}#))))))))
+ (#{search\ 1959}#
+ #{id\ 2044}#
+ (#{wrap-subst\ 269}# #{w\ 1954}#)
+ #{marks\ 2047}#))
+ (lambda (#{new-id\ 2048}# #{marks\ 2049}#)
+ (let ((#{t\ 2054}# #{new-id\ 2048}#))
+ (if #{t\ 2054}#
+ #{t\ 2054}#
+ (let ((#{t\ 2057}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 1959}#
+ #{id\ 2044}#
+ (#{wrap-subst\ 269}#
+ #{w1\ 2045}#)
+ #{marks\ 2049}#))
+ (lambda (#{x\ 2059}#
+ .
+ #{ignore\ 2060}#)
+ #{x\ 2059}#))))
+ (if #{t\ 2057}#
+ #{t\ 2057}#
+ #{id\ 2044}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 905}#))))))
- (#{same-marks?\ 149}#
- (lambda (#{x\ 948}# #{y\ 949}#)
- (let ((#{t\ 950}# (eq? #{x\ 948}# #{y\ 949}#)))
- (if #{t\ 950}#
- #{t\ 950}#
- (if (not (null? #{x\ 948}#))
- (if (not (null? #{y\ 949}#))
- (if (eq? (car #{x\ 948}#) (car #{y\ 949}#))
- (#{same-marks?\ 149}#
- (cdr #{x\ 948}#)
- (cdr #{y\ 949}#))
+ #{id\ 1953}#))))))
+ (#{same-marks?\ 315}#
+ (lambda (#{x\ 2065}# #{y\ 2066}#)
+ (let ((#{t\ 2071}# (eq? #{x\ 2065}# #{y\ 2066}#)))
+ (if #{t\ 2071}#
+ #{t\ 2071}#
+ (if (not (null? #{x\ 2065}#))
+ (if (not (null? #{y\ 2066}#))
+ (if (eq? (car #{x\ 2065}#) (car #{y\ 2066}#))
+ (#{same-marks?\ 315}#
+ (cdr #{x\ 2065}#)
+ (cdr #{y\ 2066}#))
#f)
#f)
#f)))))
- (#{join-marks\ 148}#
- (lambda (#{m1\ 951}# #{m2\ 952}#)
- (#{smart-append\ 146}# #{m1\ 951}# #{m2\ 952}#)))
- (#{join-wraps\ 147}#
- (lambda (#{w1\ 953}# #{w2\ 954}#)
- (let ((#{m1\ 955}# (#{wrap-marks\ 131}# #{w1\ 953}#))
- (#{s1\ 956}# (#{wrap-subst\ 132}# #{w1\ 953}#)))
- (if (null? #{m1\ 955}#)
- (if (null? #{s1\ 956}#)
- #{w2\ 954}#
- (#{make-wrap\ 130}#
- (#{wrap-marks\ 131}# #{w2\ 954}#)
- (#{smart-append\ 146}#
- #{s1\ 956}#
- (#{wrap-subst\ 132}# #{w2\ 954}#))))
- (#{make-wrap\ 130}#
- (#{smart-append\ 146}#
- #{m1\ 955}#
- (#{wrap-marks\ 131}# #{w2\ 954}#))
- (#{smart-append\ 146}#
- #{s1\ 956}#
- (#{wrap-subst\ 132}# #{w2\ 954}#)))))))
- (#{smart-append\ 146}#
- (lambda (#{m1\ 957}# #{m2\ 958}#)
- (if (null? #{m2\ 958}#)
- #{m1\ 957}#
- (append #{m1\ 957}# #{m2\ 958}#))))
- (#{make-binding-wrap\ 145}#
- (lambda (#{ids\ 959}# #{labels\ 960}# #{w\ 961}#)
- (if (null? #{ids\ 959}#)
- #{w\ 961}#
- (#{make-wrap\ 130}#
- (#{wrap-marks\ 131}# #{w\ 961}#)
- (cons (let ((#{labelvec\ 962}#
- (list->vector #{labels\ 960}#)))
- (let ((#{n\ 963}# (vector-length
- #{labelvec\ 962}#)))
- (let ((#{symnamevec\ 964}#
- (make-vector #{n\ 963}#))
- (#{marksvec\ 965}#
- (make-vector #{n\ 963}#)))
+ (#{join-marks\ 313}#
+ (lambda (#{m1\ 2077}# #{m2\ 2078}#)
+ (#{smart-append\ 309}# #{m1\ 2077}# #{m2\ 2078}#)))
+ (#{join-wraps\ 311}#
+ (lambda (#{w1\ 2081}# #{w2\ 2082}#)
+ (let ((#{m1\ 2087}# (#{wrap-marks\ 267}# #{w1\ 2081}#))
+ (#{s1\ 2088}# (#{wrap-subst\ 269}# #{w1\ 2081}#)))
+ (if (null? #{m1\ 2087}#)
+ (if (null? #{s1\ 2088}#)
+ #{w2\ 2082}#
+ (#{make-wrap\ 265}#
+ (#{wrap-marks\ 267}# #{w2\ 2082}#)
+ (#{smart-append\ 309}#
+ #{s1\ 2088}#
+ (#{wrap-subst\ 269}# #{w2\ 2082}#))))
+ (#{make-wrap\ 265}#
+ (#{smart-append\ 309}#
+ #{m1\ 2087}#
+ (#{wrap-marks\ 267}# #{w2\ 2082}#))
+ (#{smart-append\ 309}#
+ #{s1\ 2088}#
+ (#{wrap-subst\ 269}# #{w2\ 2082}#)))))))
+ (#{smart-append\ 309}#
+ (lambda (#{m1\ 2089}# #{m2\ 2090}#)
+ (if (null? #{m2\ 2090}#)
+ #{m1\ 2089}#
+ (append #{m1\ 2089}# #{m2\ 2090}#))))
+ (#{make-binding-wrap\ 307}#
+ (lambda (#{ids\ 2093}# #{labels\ 2094}# #{w\ 2095}#)
+ (if (null? #{ids\ 2093}#)
+ #{w\ 2095}#
+ (#{make-wrap\ 265}#
+ (#{wrap-marks\ 267}# #{w\ 2095}#)
+ (cons (let ((#{labelvec\ 2100}#
+ (list->vector #{labels\ 2094}#)))
+ (let ((#{n\ 2102}#
+ (vector-length #{labelvec\ 2100}#)))
+ (let ((#{symnamevec\ 2105}#
+ (make-vector #{n\ 2102}#))
+ (#{marksvec\ 2106}#
+ (make-vector #{n\ 2102}#)))
(begin
- (letrec ((#{f\ 966}# (lambda (#{ids\ 967}#
- #{i\ 968}#)
- (if (not (null? #{ids\
967}#))
- (call-with-values
- (lambda ()
-
(#{id-sym-name&marks\ 129}#
- (car #{ids\
967}#)
- #{w\ 961}#))
- (lambda
(#{symname\ 969}#
- #{marks\
970}#)
- (begin
- (vector-set!
-
#{symnamevec\ 964}#
- #{i\ 968}#
- #{symname\
969}#)
- (vector-set!
- #{marksvec\
965}#
- #{i\ 968}#
- #{marks\
970}#)
- (#{f\ 966}#
(cdr #{ids\ 967}#)
-
(#{fx+\ 83}#
-
#{i\ 968}#
-
1)))))))))
- (#{f\ 966}# #{ids\ 959}# 0))
- (#{make-ribcage\ 135}#
- #{symnamevec\ 964}#
- #{marksvec\ 965}#
- #{labelvec\ 962}#)))))
- (#{wrap-subst\ 132}# #{w\ 961}#))))))
- (#{extend-ribcage!\ 144}#
- (lambda (#{ribcage\ 971}# #{id\ 972}# #{label\ 973}#)
+ (letrec ((#{f\ 2110}#
+ (lambda (#{ids\ 2111}# #{i\ 2112}#)
+ (if (not (null? #{ids\ 2111}#))
+ (call-with-values
+ (lambda ()
+ (#{id-sym-name&marks\ 263}#
+ (car #{ids\ 2111}#)
+ #{w\ 2095}#))
+ (lambda (#{symname\ 2113}#
+ #{marks\ 2114}#)
+ (begin
+ (vector-set!
+ #{symnamevec\ 2105}#
+ #{i\ 2112}#
+ #{symname\ 2113}#)
+ (vector-set!
+ #{marksvec\ 2106}#
+ #{i\ 2112}#
+ #{marks\ 2114}#)
+ (#{f\ 2110}#
+ (cdr #{ids\ 2111}#)
+ (#{fx+\ 163}#
+ #{i\ 2112}#
+ 1)))))))))
+ (#{f\ 2110}# #{ids\ 2093}# 0))
+ (#{make-ribcage\ 281}#
+ #{symnamevec\ 2105}#
+ #{marksvec\ 2106}#
+ #{labelvec\ 2100}#)))))
+ (#{wrap-subst\ 269}# #{w\ 2095}#))))))
+ (#{extend-ribcage!\ 305}#
+ (lambda (#{ribcage\ 2117}# #{id\ 2118}# #{label\ 2119}#)
(begin
- (#{set-ribcage-symnames!\ 140}#
- #{ribcage\ 971}#
- (cons (#{syntax-object-expression\ 113}# #{id\ 972}#)
- (#{ribcage-symnames\ 137}# #{ribcage\ 971}#)))
- (#{set-ribcage-marks!\ 141}#
- #{ribcage\ 971}#
- (cons (#{wrap-marks\ 131}#
- (#{syntax-object-wrap\ 114}# #{id\ 972}#))
- (#{ribcage-marks\ 138}# #{ribcage\ 971}#)))
- (#{set-ribcage-labels!\ 142}#
- #{ribcage\ 971}#
- (cons #{label\ 973}#
- (#{ribcage-labels\ 139}# #{ribcage\ 971}#))))))
- (#{anti-mark\ 143}#
- (lambda (#{w\ 974}#)
- (#{make-wrap\ 130}#
- (cons #f (#{wrap-marks\ 131}# #{w\ 974}#))
+ (#{set-ribcage-symnames!\ 291}#
+ #{ribcage\ 2117}#
+ (cons (#{syntax-object-expression\ 226}# #{id\ 2118}#)
+ (#{ribcage-symnames\ 285}# #{ribcage\ 2117}#)))
+ (#{set-ribcage-marks!\ 293}#
+ #{ribcage\ 2117}#
+ (cons (#{wrap-marks\ 267}#
+ (#{syntax-object-wrap\ 228}# #{id\ 2118}#))
+ (#{ribcage-marks\ 287}# #{ribcage\ 2117}#)))
+ (#{set-ribcage-labels!\ 295}#
+ #{ribcage\ 2117}#
+ (cons #{label\ 2119}#
+ (#{ribcage-labels\ 289}# #{ribcage\ 2117}#))))))
+ (#{anti-mark\ 301}#
+ (lambda (#{w\ 2123}#)
+ (#{make-wrap\ 265}#
+ (cons #f (#{wrap-marks\ 267}# #{w\ 2123}#))
(cons 'shift
- (#{wrap-subst\ 132}# #{w\ 974}#)))))
- (#{set-ribcage-labels!\ 142}#
- (lambda (#{x\ 975}# #{update\ 976}#)
- (vector-set! #{x\ 975}# 3 #{update\ 976}#)))
- (#{set-ribcage-marks!\ 141}#
- (lambda (#{x\ 977}# #{update\ 978}#)
- (vector-set! #{x\ 977}# 2 #{update\ 978}#)))
- (#{set-ribcage-symnames!\ 140}#
- (lambda (#{x\ 979}# #{update\ 980}#)
- (vector-set! #{x\ 979}# 1 #{update\ 980}#)))
- (#{ribcage-labels\ 139}#
- (lambda (#{x\ 981}#) (vector-ref #{x\ 981}# 3)))
- (#{ribcage-marks\ 138}#
- (lambda (#{x\ 982}#) (vector-ref #{x\ 982}# 2)))
- (#{ribcage-symnames\ 137}#
- (lambda (#{x\ 983}#) (vector-ref #{x\ 983}# 1)))
- (#{ribcage?\ 136}#
- (lambda (#{x\ 984}#)
- (if (vector? #{x\ 984}#)
- (if (= (vector-length #{x\ 984}#) 4)
- (eq? (vector-ref #{x\ 984}# 0) (quote ribcage))
+ (#{wrap-subst\ 269}# #{w\ 2123}#)))))
+ (#{set-ribcage-labels!\ 295}#
+ (lambda (#{x\ 2126}# #{update\ 2127}#)
+ (vector-set! #{x\ 2126}# 3 #{update\ 2127}#)))
+ (#{set-ribcage-marks!\ 293}#
+ (lambda (#{x\ 2130}# #{update\ 2131}#)
+ (vector-set! #{x\ 2130}# 2 #{update\ 2131}#)))
+ (#{set-ribcage-symnames!\ 291}#
+ (lambda (#{x\ 2134}# #{update\ 2135}#)
+ (vector-set! #{x\ 2134}# 1 #{update\ 2135}#)))
+ (#{ribcage-labels\ 289}#
+ (lambda (#{x\ 2138}#) (vector-ref #{x\ 2138}# 3)))
+ (#{ribcage-marks\ 287}#
+ (lambda (#{x\ 2140}#) (vector-ref #{x\ 2140}# 2)))
+ (#{ribcage-symnames\ 285}#
+ (lambda (#{x\ 2142}#) (vector-ref #{x\ 2142}# 1)))
+ (#{ribcage?\ 283}#
+ (lambda (#{x\ 2144}#)
+ (if (vector? #{x\ 2144}#)
+ (if (= (vector-length #{x\ 2144}#) 4)
+ (eq? (vector-ref #{x\ 2144}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 135}#
- (lambda (#{symnames\ 985}#
- #{marks\ 986}#
- #{labels\ 987}#)
+ (#{make-ribcage\ 281}#
+ (lambda (#{symnames\ 2149}#
+ #{marks\ 2150}#
+ #{labels\ 2151}#)
(vector
'ribcage
- #{symnames\ 985}#
- #{marks\ 986}#
- #{labels\ 987}#)))
- (#{gen-labels\ 134}#
- (lambda (#{ls\ 988}#)
- (if (null? #{ls\ 988}#)
+ #{symnames\ 2149}#
+ #{marks\ 2150}#
+ #{labels\ 2151}#)))
+ (#{gen-labels\ 278}#
+ (lambda (#{ls\ 2155}#)
+ (if (null? #{ls\ 2155}#)
'()
- (cons (#{gen-label\ 133}#)
- (#{gen-labels\ 134}# (cdr #{ls\ 988}#))))))
- (#{gen-label\ 133}#
+ (cons (#{gen-label\ 276}#)
+ (#{gen-labels\ 278}# (cdr #{ls\ 2155}#))))))
+ (#{gen-label\ 276}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 132}# cdr)
- (#{wrap-marks\ 131}# car)
- (#{make-wrap\ 130}# cons)
- (#{id-sym-name&marks\ 129}#
- (lambda (#{x\ 989}# #{w\ 990}#)
- (if (#{syntax-object?\ 112}# #{x\ 989}#)
+ (#{wrap-subst\ 269}# cdr)
+ (#{wrap-marks\ 267}# car)
+ (#{make-wrap\ 265}# cons)
+ (#{id-sym-name&marks\ 263}#
+ (lambda (#{x\ 2157}# #{w\ 2158}#)
+ (if (#{syntax-object?\ 224}# #{x\ 2157}#)
(values
- (#{syntax-object-expression\ 113}# #{x\ 989}#)
- (#{join-marks\ 148}#
- (#{wrap-marks\ 131}# #{w\ 990}#)
- (#{wrap-marks\ 131}#
- (#{syntax-object-wrap\ 114}# #{x\ 989}#))))
+ (#{syntax-object-expression\ 226}# #{x\ 2157}#)
+ (#{join-marks\ 313}#
+ (#{wrap-marks\ 267}# #{w\ 2158}#)
+ (#{wrap-marks\ 267}#
+ (#{syntax-object-wrap\ 228}# #{x\ 2157}#))))
(values
- #{x\ 989}#
- (#{wrap-marks\ 131}# #{w\ 990}#)))))
- (#{id?\ 128}#
- (lambda (#{x\ 991}#)
- (if (symbol? #{x\ 991}#)
+ #{x\ 2157}#
+ (#{wrap-marks\ 267}# #{w\ 2158}#)))))
+ (#{id?\ 260}#
+ (lambda (#{x\ 2161}#)
+ (if (symbol? #{x\ 2161}#)
#t
- (if (#{syntax-object?\ 112}# #{x\ 991}#)
+ (if (#{syntax-object?\ 224}# #{x\ 2161}#)
(symbol?
- (#{syntax-object-expression\ 113}# #{x\ 991}#))
+ (#{syntax-object-expression\ 226}# #{x\ 2161}#))
#f))))
- (#{nonsymbol-id?\ 127}#
- (lambda (#{x\ 992}#)
- (if (#{syntax-object?\ 112}# #{x\ 992}#)
+ (#{nonsymbol-id?\ 258}#
+ (lambda (#{x\ 2168}#)
+ (if (#{syntax-object?\ 224}# #{x\ 2168}#)
(symbol?
- (#{syntax-object-expression\ 113}# #{x\ 992}#))
+ (#{syntax-object-expression\ 226}# #{x\ 2168}#))
#f)))
- (#{global-extend\ 126}#
- (lambda (#{type\ 993}# #{sym\ 994}# #{val\ 995}#)
- (#{put-global-definition-hook\ 89}#
- #{sym\ 994}#
- #{type\ 993}#
- #{val\ 995}#)))
- (#{lookup\ 125}#
- (lambda (#{x\ 996}# #{r\ 997}# #{mod\ 998}#)
- (let ((#{t\ 999}# (assq #{x\ 996}# #{r\ 997}#)))
- (if #{t\ 999}#
- (cdr #{t\ 999}#)
- (if (symbol? #{x\ 996}#)
- (let ((#{t\ 1000}#
- (#{get-global-definition-hook\ 90}#
- #{x\ 996}#
- #{mod\ 998}#)))
- (if #{t\ 1000}# #{t\ 1000}# (quote (global))))
+ (#{global-extend\ 256}#
+ (lambda (#{type\ 2172}# #{sym\ 2173}# #{val\ 2174}#)
+ (#{put-global-definition-hook\ 176}#
+ #{sym\ 2173}#
+ #{type\ 2172}#
+ #{val\ 2174}#)))
+ (#{lookup\ 254}#
+ (lambda (#{x\ 2178}# #{r\ 2179}# #{mod\ 2180}#)
+ (let ((#{t\ 2186}# (assq #{x\ 2178}# #{r\ 2179}#)))
+ (if #{t\ 2186}#
+ (cdr #{t\ 2186}#)
+ (if (symbol? #{x\ 2178}#)
+ (let ((#{t\ 2192}#
+ (#{get-global-definition-hook\ 178}#
+ #{x\ 2178}#
+ #{mod\ 2180}#)))
+ (if #{t\ 2192}# #{t\ 2192}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 124}#
- (lambda (#{r\ 1001}#)
- (if (null? #{r\ 1001}#)
+ (#{macros-only-env\ 252}#
+ (lambda (#{r\ 2197}#)
+ (if (null? #{r\ 2197}#)
'()
- (let ((#{a\ 1002}# (car #{r\ 1001}#)))
- (if (eq? (cadr #{a\ 1002}#) (quote macro))
- (cons #{a\ 1002}#
- (#{macros-only-env\ 124}# (cdr #{r\ 1001}#)))
- (#{macros-only-env\ 124}# (cdr #{r\ 1001}#)))))))
- (#{extend-var-env\ 123}#
- (lambda (#{labels\ 1003}# #{vars\ 1004}# #{r\ 1005}#)
- (if (null? #{labels\ 1003}#)
- #{r\ 1005}#
- (#{extend-var-env\ 123}#
- (cdr #{labels\ 1003}#)
- (cdr #{vars\ 1004}#)
- (cons (cons (car #{labels\ 1003}#)
- (cons (quote lexical) (car #{vars\ 1004}#)))
- #{r\ 1005}#)))))
- (#{extend-env\ 122}#
- (lambda (#{labels\ 1006}# #{bindings\ 1007}# #{r\ 1008}#)
- (if (null? #{labels\ 1006}#)
- #{r\ 1008}#
- (#{extend-env\ 122}#
- (cdr #{labels\ 1006}#)
- (cdr #{bindings\ 1007}#)
- (cons (cons (car #{labels\ 1006}#)
- (car #{bindings\ 1007}#))
- #{r\ 1008}#)))))
- (#{binding-value\ 121}# cdr)
- (#{binding-type\ 120}# car)
- (#{source-annotation\ 119}#
- (lambda (#{x\ 1009}#)
- (if (#{syntax-object?\ 112}# #{x\ 1009}#)
- (#{source-annotation\ 119}#
- (#{syntax-object-expression\ 113}# #{x\ 1009}#))
- (if (pair? #{x\ 1009}#)
- (let ((#{props\ 1010}# (source-properties #{x\ 1009}#)))
- (if (pair? #{props\ 1010}#) #{props\ 1010}# #f))
+ (let ((#{a\ 2200}# (car #{r\ 2197}#)))
+ (if (eq? (cadr #{a\ 2200}#) (quote macro))
+ (cons #{a\ 2200}#
+ (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))
+ (#{macros-only-env\ 252}# (cdr #{r\ 2197}#)))))))
+ (#{extend-var-env\ 250}#
+ (lambda (#{labels\ 2201}# #{vars\ 2202}# #{r\ 2203}#)
+ (if (null? #{labels\ 2201}#)
+ #{r\ 2203}#
+ (#{extend-var-env\ 250}#
+ (cdr #{labels\ 2201}#)
+ (cdr #{vars\ 2202}#)
+ (cons (cons (car #{labels\ 2201}#)
+ (cons (quote lexical) (car #{vars\ 2202}#)))
+ #{r\ 2203}#)))))
+ (#{extend-env\ 248}#
+ (lambda (#{labels\ 2208}# #{bindings\ 2209}# #{r\ 2210}#)
+ (if (null? #{labels\ 2208}#)
+ #{r\ 2210}#
+ (#{extend-env\ 248}#
+ (cdr #{labels\ 2208}#)
+ (cdr #{bindings\ 2209}#)
+ (cons (cons (car #{labels\ 2208}#)
+ (car #{bindings\ 2209}#))
+ #{r\ 2210}#)))))
+ (#{binding-value\ 245}# cdr)
+ (#{binding-type\ 243}# car)
+ (#{source-annotation\ 239}#
+ (lambda (#{x\ 2214}#)
+ (if (#{syntax-object?\ 224}# #{x\ 2214}#)
+ (#{source-annotation\ 239}#
+ (#{syntax-object-expression\ 226}# #{x\ 2214}#))
+ (if (pair? #{x\ 2214}#)
+ (let ((#{props\ 2221}# (source-properties #{x\ 2214}#)))
+ (if (pair? #{props\ 2221}#) #{props\ 2221}# #f))
#f))))
- (#{set-syntax-object-module!\ 118}#
- (lambda (#{x\ 1011}# #{update\ 1012}#)
- (vector-set! #{x\ 1011}# 3 #{update\ 1012}#)))
- (#{set-syntax-object-wrap!\ 117}#
- (lambda (#{x\ 1013}# #{update\ 1014}#)
- (vector-set! #{x\ 1013}# 2 #{update\ 1014}#)))
- (#{set-syntax-object-expression!\ 116}#
- (lambda (#{x\ 1015}# #{update\ 1016}#)
- (vector-set! #{x\ 1015}# 1 #{update\ 1016}#)))
- (#{syntax-object-module\ 115}#
- (lambda (#{x\ 1017}#) (vector-ref #{x\ 1017}# 3)))
- (#{syntax-object-wrap\ 114}#
- (lambda (#{x\ 1018}#) (vector-ref #{x\ 1018}# 2)))
- (#{syntax-object-expression\ 113}#
- (lambda (#{x\ 1019}#) (vector-ref #{x\ 1019}# 1)))
- (#{syntax-object?\ 112}#
- (lambda (#{x\ 1020}#)
- (if (vector? #{x\ 1020}#)
- (if (= (vector-length #{x\ 1020}#) 4)
- (eq? (vector-ref #{x\ 1020}# 0)
+ (#{set-syntax-object-module!\ 236}#
+ (lambda (#{x\ 2223}# #{update\ 2224}#)
+ (vector-set! #{x\ 2223}# 3 #{update\ 2224}#)))
+ (#{set-syntax-object-wrap!\ 234}#
+ (lambda (#{x\ 2227}# #{update\ 2228}#)
+ (vector-set! #{x\ 2227}# 2 #{update\ 2228}#)))
+ (#{set-syntax-object-expression!\ 232}#
+ (lambda (#{x\ 2231}# #{update\ 2232}#)
+ (vector-set! #{x\ 2231}# 1 #{update\ 2232}#)))
+ (#{syntax-object-module\ 230}#
+ (lambda (#{x\ 2235}#) (vector-ref #{x\ 2235}# 3)))
+ (#{syntax-object-wrap\ 228}#
+ (lambda (#{x\ 2237}#) (vector-ref #{x\ 2237}# 2)))
+ (#{syntax-object-expression\ 226}#
+ (lambda (#{x\ 2239}#) (vector-ref #{x\ 2239}# 1)))
+ (#{syntax-object?\ 224}#
+ (lambda (#{x\ 2241}#)
+ (if (vector? #{x\ 2241}#)
+ (if (= (vector-length #{x\ 2241}#) 4)
+ (eq? (vector-ref #{x\ 2241}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 111}#
- (lambda (#{expression\ 1021}#
- #{wrap\ 1022}#
- #{module\ 1023}#)
+ (#{make-syntax-object\ 222}#
+ (lambda (#{expression\ 2246}#
+ #{wrap\ 2247}#
+ #{module\ 2248}#)
(vector
'syntax-object
- #{expression\ 1021}#
- #{wrap\ 1022}#
- #{module\ 1023}#)))
- (#{build-letrec\ 110}#
- (lambda (#{src\ 1024}#
- #{ids\ 1025}#
- #{vars\ 1026}#
- #{val-exps\ 1027}#
- #{body-exp\ 1028}#)
- (if (null? #{vars\ 1026}#)
- #{body-exp\ 1028}#
- (let ((#{atom-key\ 1029}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1029}# (quote (c)))
+ #{expression\ 2246}#
+ #{wrap\ 2247}#
+ #{module\ 2248}#)))
+ (#{build-letrec\ 218}#
+ (lambda (#{src\ 2252}#
+ #{ids\ 2253}#
+ #{vars\ 2254}#
+ #{val-exps\ 2255}#
+ #{body-exp\ 2256}#)
+ (if (null? #{vars\ 2254}#)
+ #{body-exp\ 2256}#
+ (let ((#{atom-key\ 2264}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2264}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 100}#
- #{ids\ 1025}#
- #{val-exps\ 1027}#)
+ #{maybe-name-value!\ 198}#
+ #{ids\ 2253}#
+ #{val-exps\ 2255}#)
((@ (language tree-il) make-letrec)
- #{src\ 1024}#
- #{ids\ 1025}#
- #{vars\ 1026}#
- #{val-exps\ 1027}#
- #{body-exp\ 1028}#))
- (#{decorate-source\ 91}#
+ #{src\ 2252}#
+ #{ids\ 2253}#
+ #{vars\ 2254}#
+ #{val-exps\ 2255}#
+ #{body-exp\ 2256}#))
+ (#{decorate-source\ 180}#
(list 'letrec
- (map list #{vars\ 1026}# #{val-exps\ 1027}#)
- #{body-exp\ 1028}#)
- #{src\ 1024}#))))))
- (#{build-named-let\ 109}#
- (lambda (#{src\ 1030}#
- #{ids\ 1031}#
- #{vars\ 1032}#
- #{val-exps\ 1033}#
- #{body-exp\ 1034}#)
- (let ((#{f\ 1035}# (car #{vars\ 1032}#))
- (#{f-name\ 1036}# (car #{ids\ 1031}#))
- (#{vars\ 1037}# (cdr #{vars\ 1032}#))
- (#{ids\ 1038}# (cdr #{ids\ 1031}#)))
- (let ((#{atom-key\ 1039}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1039}# (quote (c)))
- (let ((#{proc\ 1040}#
- (#{build-simple-lambda\ 102}#
- #{src\ 1030}#
- #{ids\ 1038}#
+ (map list #{vars\ 2254}# #{val-exps\ 2255}#)
+ #{body-exp\ 2256}#)
+ #{src\ 2252}#))))))
+ (#{build-named-let\ 216}#
+ (lambda (#{src\ 2268}#
+ #{ids\ 2269}#
+ #{vars\ 2270}#
+ #{val-exps\ 2271}#
+ #{body-exp\ 2272}#)
+ (let ((#{f\ 2282}# (car #{vars\ 2270}#))
+ (#{f-name\ 2283}# (car #{ids\ 2269}#))
+ (#{vars\ 2284}# (cdr #{vars\ 2270}#))
+ (#{ids\ 2285}# (cdr #{ids\ 2269}#)))
+ (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2288}# (quote (c)))
+ (let ((#{proc\ 2291}#
+ (#{build-simple-lambda\ 202}#
+ #{src\ 2268}#
+ #{ids\ 2285}#
#f
- #{vars\ 1037}#
+ #{vars\ 2284}#
#f
- #{body-exp\ 1034}#)))
+ #{body-exp\ 2272}#)))
(begin
- (#{maybe-name-value!\ 100}#
- #{f-name\ 1036}#
- #{proc\ 1040}#)
+ (#{maybe-name-value!\ 198}#
+ #{f-name\ 2283}#
+ #{proc\ 2291}#)
(for-each
- #{maybe-name-value!\ 100}#
- #{ids\ 1038}#
- #{val-exps\ 1033}#)
+ #{maybe-name-value!\ 198}#
+ #{ids\ 2285}#
+ #{val-exps\ 2271}#)
((@ (language tree-il) make-letrec)
- #{src\ 1030}#
- (list #{f-name\ 1036}#)
- (list #{f\ 1035}#)
- (list #{proc\ 1040}#)
- (#{build-application\ 93}#
- #{src\ 1030}#
- (#{build-lexical-reference\ 95}#
+ #{src\ 2268}#
+ (list #{f-name\ 2283}#)
+ (list #{f\ 2282}#)
+ (list #{proc\ 2291}#)
+ (#{build-application\ 184}#
+ #{src\ 2268}#
+ (#{build-lexical-reference\ 188}#
'fun
- #{src\ 1030}#
- #{f-name\ 1036}#
- #{f\ 1035}#)
- #{val-exps\ 1033}#))))
- (#{decorate-source\ 91}#
+ #{src\ 2268}#
+ #{f-name\ 2283}#
+ #{f\ 2282}#)
+ #{val-exps\ 2271}#))))
+ (#{decorate-source\ 180}#
(list 'letrec
- (list (list #{f\ 1035}#
+ (list (list #{f\ 2282}#
(list 'lambda
- #{vars\ 1037}#
- #{body-exp\ 1034}#)))
- (cons #{f\ 1035}# #{val-exps\ 1033}#))
- #{src\ 1030}#))))))
- (#{build-let\ 108}#
- (lambda (#{src\ 1041}#
- #{ids\ 1042}#
- #{vars\ 1043}#
- #{val-exps\ 1044}#
- #{body-exp\ 1045}#)
- (if (null? #{vars\ 1043}#)
- #{body-exp\ 1045}#
- (let ((#{atom-key\ 1046}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1046}# (quote (c)))
+ #{vars\ 2284}#
+ #{body-exp\ 2272}#)))
+ (cons #{f\ 2282}# #{val-exps\ 2271}#))
+ #{src\ 2268}#))))))
+ (#{build-let\ 214}#
+ (lambda (#{src\ 2294}#
+ #{ids\ 2295}#
+ #{vars\ 2296}#
+ #{val-exps\ 2297}#
+ #{body-exp\ 2298}#)
+ (if (null? #{vars\ 2296}#)
+ #{body-exp\ 2298}#
+ (let ((#{atom-key\ 2306}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2306}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 100}#
- #{ids\ 1042}#
- #{val-exps\ 1044}#)
+ #{maybe-name-value!\ 198}#
+ #{ids\ 2295}#
+ #{val-exps\ 2297}#)
((@ (language tree-il) make-let)
- #{src\ 1041}#
- #{ids\ 1042}#
- #{vars\ 1043}#
- #{val-exps\ 1044}#
- #{body-exp\ 1045}#))
- (#{decorate-source\ 91}#
+ #{src\ 2294}#
+ #{ids\ 2295}#
+ #{vars\ 2296}#
+ #{val-exps\ 2297}#
+ #{body-exp\ 2298}#))
+ (#{decorate-source\ 180}#
(list 'let
- (map list #{vars\ 1043}# #{val-exps\ 1044}#)
- #{body-exp\ 1045}#)
- #{src\ 1041}#))))))
- (#{build-sequence\ 107}#
- (lambda (#{src\ 1047}# #{exps\ 1048}#)
- (if (null? (cdr #{exps\ 1048}#))
- (car #{exps\ 1048}#)
- (let ((#{atom-key\ 1049}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1049}# (quote (c)))
+ (map list #{vars\ 2296}# #{val-exps\ 2297}#)
+ #{body-exp\ 2298}#)
+ #{src\ 2294}#))))))
+ (#{build-sequence\ 212}#
+ (lambda (#{src\ 2310}# #{exps\ 2311}#)
+ (if (null? (cdr #{exps\ 2311}#))
+ (car #{exps\ 2311}#)
+ (let ((#{atom-key\ 2316}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2316}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 1047}#
- #{exps\ 1048}#)
- (#{decorate-source\ 91}#
- (cons (quote begin) #{exps\ 1048}#)
- #{src\ 1047}#))))))
- (#{build-data\ 106}#
- (lambda (#{src\ 1050}# #{exp\ 1051}#)
- (let ((#{atom-key\ 1052}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1052}# (quote (c)))
+ #{src\ 2310}#
+ #{exps\ 2311}#)
+ (#{decorate-source\ 180}#
+ (cons (quote begin) #{exps\ 2311}#)
+ #{src\ 2310}#))))))
+ (#{build-data\ 210}#
+ (lambda (#{src\ 2320}# #{exp\ 2321}#)
+ (let ((#{atom-key\ 2326}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2326}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 1050}#
- #{exp\ 1051}#)
- (#{decorate-source\ 91}#
- (if (if (self-evaluating? #{exp\ 1051}#)
- (not (vector? #{exp\ 1051}#))
+ #{src\ 2320}#
+ #{exp\ 2321}#)
+ (#{decorate-source\ 180}#
+ (if (if (self-evaluating? #{exp\ 2321}#)
+ (not (vector? #{exp\ 2321}#))
#f)
- #{exp\ 1051}#
- (list (quote quote) #{exp\ 1051}#))
- #{src\ 1050}#)))))
- (#{build-primref\ 105}#
- (lambda (#{src\ 1053}# #{name\ 1054}#)
+ #{exp\ 2321}#
+ (list (quote quote) #{exp\ 2321}#))
+ #{src\ 2320}#)))))
+ (#{build-primref\ 208}#
+ (lambda (#{src\ 2331}# #{name\ 2332}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 1055}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1055}# (quote (c)))
+ (let ((#{atom-key\ 2337}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2337}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 1053}#
- #{name\ 1054}#)
- (#{decorate-source\ 91}#
- #{name\ 1054}#
- #{src\ 1053}#)))
- (let ((#{atom-key\ 1056}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1056}# (quote (c)))
+ #{src\ 2331}#
+ #{name\ 2332}#)
+ (#{decorate-source\ 180}#
+ #{name\ 2332}#
+ #{src\ 2331}#)))
+ (let ((#{atom-key\ 2342}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2342}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 1053}#
+ #{src\ 2331}#
'(guile)
- #{name\ 1054}#
+ #{name\ 2332}#
#f)
- (#{decorate-source\ 91}#
- (list (quote @@) (quote (guile)) #{name\ 1054}#)
- #{src\ 1053}#))))))
- (#{build-lambda-case\ 104}#
- (lambda (#{src\ 1057}#
- #{req\ 1058}#
- #{opt\ 1059}#
- #{rest\ 1060}#
- #{kw\ 1061}#
- #{inits\ 1062}#
- #{vars\ 1063}#
- #{body\ 1064}#
- #{else-case\ 1065}#)
- (let ((#{atom-key\ 1066}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1066}# (quote (c)))
+ (#{decorate-source\ 180}#
+ (list (quote @@) (quote (guile)) #{name\ 2332}#)
+ #{src\ 2331}#))))))
+ (#{build-lambda-case\ 206}#
+ (lambda (#{src\ 2346}#
+ #{req\ 2347}#
+ #{opt\ 2348}#
+ #{rest\ 2349}#
+ #{kw\ 2350}#
+ #{inits\ 2351}#
+ #{vars\ 2352}#
+ #{body\ 2353}#
+ #{else-case\ 2354}#)
+ (let ((#{atom-key\ 2366}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2366}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 1057}#
- #{req\ 1058}#
- #{opt\ 1059}#
- #{rest\ 1060}#
- #{kw\ 1061}#
- #{inits\ 1062}#
- #{vars\ 1063}#
- #{body\ 1064}#
- #{else-case\ 1065}#)
- (let ((#{nreq\ 1067}# (length #{req\ 1058}#)))
- (let ((#{nopt\ 1068}#
- (if #{opt\ 1059}# (length #{opt\ 1059}#) 0)))
- (let ((#{rest-idx\ 1069}#
- (if #{rest\ 1060}#
- (+ #{nreq\ 1067}# #{nopt\ 1068}#)
+ #{src\ 2346}#
+ #{req\ 2347}#
+ #{opt\ 2348}#
+ #{rest\ 2349}#
+ #{kw\ 2350}#
+ #{inits\ 2351}#
+ #{vars\ 2352}#
+ #{body\ 2353}#
+ #{else-case\ 2354}#)
+ (let ((#{nreq\ 2371}# (length #{req\ 2347}#)))
+ (let ((#{nopt\ 2373}#
+ (if #{opt\ 2348}# (length #{opt\ 2348}#) 0)))
+ (let ((#{rest-idx\ 2375}#
+ (if #{rest\ 2349}#
+ (+ #{nreq\ 2371}# #{nopt\ 2373}#)
#f)))
- (let ((#{allow-other-keys?\ 1070}#
- (if #{kw\ 1061}# (car #{kw\ 1061}#) #f)))
- (let ((#{kw-indices\ 1071}#
- (map (lambda (#{x\ 1072}#)
- (cons (car #{x\ 1072}#)
+ (let ((#{allow-other-keys?\ 2379}#
+ (if #{kw\ 2350}# (car #{kw\ 2350}#) #f)))
+ (let ((#{kw-indices\ 2381}#
+ (map (lambda (#{x\ 2382}#)
+ (cons (car #{x\ 2382}#)
(list-index
- #{vars\ 1063}#
- (caddr #{x\ 1072}#))))
- (if #{kw\ 1061}#
- (cdr #{kw\ 1061}#)
+ #{vars\ 2352}#
+ (caddr #{x\ 2382}#))))
+ (if #{kw\ 2350}#
+ (cdr #{kw\ 2350}#)
'()))))
- (let ((#{nargs\ 1073}#
+ (let ((#{nargs\ 2385}#
(apply max
- (+ #{nreq\ 1067}#
- #{nopt\ 1068}#
- (if #{rest\ 1060}# 1 0))
+ (+ #{nreq\ 2371}#
+ #{nopt\ 2373}#
+ (if #{rest\ 2349}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 1071}#)))))
+ #{kw-indices\ 2381}#)))))
(begin
- (let ((#{t\ 1074}#
- (= #{nargs\ 1073}#
- (length #{vars\ 1063}#)
- (+ #{nreq\ 1067}#
- (length #{inits\ 1062}#)
- (if #{rest\ 1060}# 1 0)))))
- (if #{t\ 1074}#
- #{t\ 1074}#
+ (let ((#{t\ 2388}#
+ (= #{nargs\ 2385}#
+ (length #{vars\ 2352}#)
+ (+ #{nreq\ 2371}#
+ (length #{inits\ 2351}#)
+ (if #{rest\ 2349}# 1 0)))))
+ (if #{t\ 2388}#
+ #{t\ 2388}#
(error "something went wrong"
- #{req\ 1058}#
- #{opt\ 1059}#
- #{rest\ 1060}#
- #{kw\ 1061}#
- #{inits\ 1062}#
- #{vars\ 1063}#
- #{nreq\ 1067}#
- #{nopt\ 1068}#
- #{kw-indices\ 1071}#
- #{nargs\ 1073}#)))
- (#{decorate-source\ 91}#
+ #{req\ 2347}#
+ #{opt\ 2348}#
+ #{rest\ 2349}#
+ #{kw\ 2350}#
+ #{inits\ 2351}#
+ #{vars\ 2352}#
+ #{nreq\ 2371}#
+ #{nopt\ 2373}#
+ #{kw-indices\ 2381}#
+ #{nargs\ 2385}#)))
+ (#{decorate-source\ 180}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\
1067}#
- #{nopt\
1068}#
-
#{rest-idx\ 1069}#
-
#{nargs\ 1073}#
-
#{allow-other-keys?\ 1070}#
-
#{kw-indices\ 1071}#))
+ (list #{nreq\
2371}#
+ #{nopt\
2373}#
+
#{rest-idx\ 2375}#
+
#{nargs\ 2385}#
+
#{allow-other-keys?\ 2379}#
+
#{kw-indices\ 2381}#))
(cons (cons 'list
- (map
(lambda (#{i\ 1075}#)
+ (map
(lambda (#{i\ 2391}#)
(list 'lambda
-
#{vars\ 1063}#
-
#{i\ 1075}#))
-
#{inits\ 1062}#))
+
#{vars\ 2352}#
+
#{i\ 2391}#))
+
#{inits\ 2351}#))
'(%%args))))
'=>
(list 'lambda
- '(%%%args . _)
+ '(%%args)
(cons 'apply
(cons (list 'lambda
- #{vars\
1063}#
- #{body\
1064}#)
- '(%%%args)))))
- (let ((#{t\ 1076}#
- #{else-case\ 1065}#))
- (if #{t\ 1076}#
- #{t\ 1076}#
+ #{vars\
2352}#
+ #{body\
2353}#)
+ '(%%args)))))
+ (let ((#{t\ 2396}#
+ #{else-case\ 2354}#))
+ (if #{t\ 2396}#
+ #{t\ 2396}#
'((%%args
- (error "wrong number of
arguments"
- %%args))))))
- #{src\ 1057}#))))))))))))
- (#{build-case-lambda\ 103}#
- (lambda (#{src\ 1077}#
- #{docstring\ 1078}#
- #{body\ 1079}#)
- (let ((#{atom-key\ 1080}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1080}# (quote (c)))
+ (scm-error
+ 'wrong-number-of-args
+ #f
+ "Wrong number of arguments"
+ '()
+ %%args))))))
+ #{src\ 2346}#))))))))))))
+ (#{build-case-lambda\ 204}#
+ (lambda (#{src\ 2399}#
+ #{docstring\ 2400}#
+ #{body\ 2401}#)
+ (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2407}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 1077}#
- (if #{docstring\ 1078}#
- (list (cons (quote documentation) #{docstring\ 1078}#))
+ #{src\ 2399}#
+ (if #{docstring\ 2400}#
+ (list (cons (quote documentation) #{docstring\ 2400}#))
'())
- #{body\ 1079}#)
- (#{decorate-source\ 91}#
+ #{body\ 2401}#)
+ (#{decorate-source\ 180}#
(cons 'lambda
(cons '%%args
(append
- (if #{docstring\ 1078}#
- (list #{docstring\ 1078}#)
+ (if #{docstring\ 2400}#
+ (list #{docstring\ 2400}#)
'())
- (list (cons (quote cond) #{body\ 1079}#)))))
- #{src\ 1077}#)))))
- (#{build-simple-lambda\ 102}#
- (lambda (#{src\ 1081}#
- #{req\ 1082}#
- #{rest\ 1083}#
- #{vars\ 1084}#
- #{docstring\ 1085}#
- #{exp\ 1086}#)
- (let ((#{atom-key\ 1087}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1087}# (quote (c)))
+ (list (cons (quote cond) #{body\ 2401}#)))))
+ #{src\ 2399}#)))))
+ (#{build-simple-lambda\ 202}#
+ (lambda (#{src\ 2412}#
+ #{req\ 2413}#
+ #{rest\ 2414}#
+ #{vars\ 2415}#
+ #{docstring\ 2416}#
+ #{exp\ 2417}#)
+ (let ((#{atom-key\ 2426}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2426}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 1081}#
- (if #{docstring\ 1085}#
- (list (cons (quote documentation) #{docstring\ 1085}#))
+ #{src\ 2412}#
+ (if #{docstring\ 2416}#
+ (list (cons (quote documentation) #{docstring\ 2416}#))
'())
((@ (language tree-il) make-lambda-case)
- #{src\ 1081}#
- #{req\ 1082}#
+ #{src\ 2412}#
+ #{req\ 2413}#
#f
- #{rest\ 1083}#
+ #{rest\ 2414}#
#f
'()
- #{vars\ 1084}#
- #{exp\ 1086}#
+ #{vars\ 2415}#
+ #{exp\ 2417}#
#f))
- (#{decorate-source\ 91}#
+ (#{decorate-source\ 180}#
(cons 'lambda
- (cons (if #{rest\ 1083}#
- (apply cons* #{vars\ 1084}#)
- #{vars\ 1084}#)
+ (cons (if #{rest\ 2414}#
+ (apply cons* #{vars\ 2415}#)
+ #{vars\ 2415}#)
(append
- (if #{docstring\ 1085}#
- (list #{docstring\ 1085}#)
+ (if #{docstring\ 2416}#
+ (list #{docstring\ 2416}#)
'())
- (list #{exp\ 1086}#))))
- #{src\ 1081}#)))))
- (#{build-global-definition\ 101}#
- (lambda (#{source\ 1088}# #{var\ 1089}# #{exp\ 1090}#)
- (let ((#{atom-key\ 1091}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1091}# (quote (c)))
+ (list #{exp\ 2417}#))))
+ #{src\ 2412}#)))))
+ (#{build-global-definition\ 200}#
+ (lambda (#{source\ 2431}# #{var\ 2432}# #{exp\ 2433}#)
+ (let ((#{atom-key\ 2439}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2439}# (quote (c)))
(begin
- (#{maybe-name-value!\ 100}#
- #{var\ 1089}#
- #{exp\ 1090}#)
+ (#{maybe-name-value!\ 198}#
+ #{var\ 2432}#
+ #{exp\ 2433}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 1088}#
- #{var\ 1089}#
- #{exp\ 1090}#))
- (#{decorate-source\ 91}#
- (list (quote define) #{var\ 1089}# #{exp\ 1090}#)
- #{source\ 1088}#)))))
- (#{maybe-name-value!\ 100}#
- (lambda (#{name\ 1092}# #{val\ 1093}#)
- (if ((@ (language tree-il) lambda?) #{val\ 1093}#)
- (let ((#{meta\ 1094}#
+ #{source\ 2431}#
+ #{var\ 2432}#
+ #{exp\ 2433}#))
+ (#{decorate-source\ 180}#
+ (list (quote define) #{var\ 2432}# #{exp\ 2433}#)
+ #{source\ 2431}#)))))
+ (#{maybe-name-value!\ 198}#
+ (lambda (#{name\ 2443}# #{val\ 2444}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 2444}#)
+ (let ((#{meta\ 2450}#
((@ (language tree-il) lambda-meta)
- #{val\ 1093}#)))
- (if (not (assq (quote name) #{meta\ 1094}#))
+ #{val\ 2444}#)))
+ (if (not (assq (quote name) #{meta\ 2450}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 1093}#
+ #{val\ 2444}#
(acons 'name
- #{name\ 1092}#
- #{meta\ 1094}#)))))))
- (#{build-global-assignment\ 99}#
- (lambda (#{source\ 1095}#
- #{var\ 1096}#
- #{exp\ 1097}#
- #{mod\ 1098}#)
- (#{analyze-variable\ 97}#
- #{mod\ 1098}#
- #{var\ 1096}#
- (lambda (#{mod\ 1099}# #{var\ 1100}# #{public?\ 1101}#)
- (let ((#{atom-key\ 1102}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1102}# (quote (c)))
+ #{name\ 2443}#
+ #{meta\ 2450}#)))))))
+ (#{build-global-assignment\ 196}#
+ (lambda (#{source\ 2451}#
+ #{var\ 2452}#
+ #{exp\ 2453}#
+ #{mod\ 2454}#)
+ (#{analyze-variable\ 192}#
+ #{mod\ 2454}#
+ #{var\ 2452}#
+ (lambda (#{mod\ 2459}# #{var\ 2460}# #{public?\ 2461}#)
+ (let ((#{atom-key\ 2467}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2467}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 1095}#
- #{mod\ 1099}#
- #{var\ 1100}#
- #{public?\ 1101}#
- #{exp\ 1097}#)
- (#{decorate-source\ 91}#
+ #{source\ 2451}#
+ #{mod\ 2459}#
+ #{var\ 2460}#
+ #{public?\ 2461}#
+ #{exp\ 2453}#)
+ (#{decorate-source\ 180}#
(list 'set!
- (list (if #{public?\ 1101}#
+ (list (if #{public?\ 2461}#
'@
'@@)
- #{mod\ 1099}#
- #{var\ 1100}#)
- #{exp\ 1097}#)
- #{source\ 1095}#))))
- (lambda (#{var\ 1103}#)
- (let ((#{atom-key\ 1104}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1104}# (quote (c)))
+ #{mod\ 2459}#
+ #{var\ 2460}#)
+ #{exp\ 2453}#)
+ #{source\ 2451}#))))
+ (lambda (#{var\ 2471}#)
+ (let ((#{atom-key\ 2475}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2475}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 1095}#
- #{var\ 1103}#
- #{exp\ 1097}#)
- (#{decorate-source\ 91}#
- (list (quote set!) #{var\ 1103}# #{exp\ 1097}#)
- #{source\ 1095}#)))))))
- (#{build-global-reference\ 98}#
- (lambda (#{source\ 1105}# #{var\ 1106}# #{mod\ 1107}#)
- (#{analyze-variable\ 97}#
- #{mod\ 1107}#
- #{var\ 1106}#
- (lambda (#{mod\ 1108}# #{var\ 1109}# #{public?\ 1110}#)
- (let ((#{atom-key\ 1111}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1111}# (quote (c)))
+ #{source\ 2451}#
+ #{var\ 2471}#
+ #{exp\ 2453}#)
+ (#{decorate-source\ 180}#
+ (list (quote set!) #{var\ 2471}# #{exp\ 2453}#)
+ #{source\ 2451}#)))))))
+ (#{build-global-reference\ 194}#
+ (lambda (#{source\ 2479}# #{var\ 2480}# #{mod\ 2481}#)
+ (#{analyze-variable\ 192}#
+ #{mod\ 2481}#
+ #{var\ 2480}#
+ (lambda (#{mod\ 2485}# #{var\ 2486}# #{public?\ 2487}#)
+ (let ((#{atom-key\ 2493}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2493}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 1105}#
- #{mod\ 1108}#
- #{var\ 1109}#
- #{public?\ 1110}#)
- (#{decorate-source\ 91}#
- (list (if #{public?\ 1110}# (quote @) (quote @@))
- #{mod\ 1108}#
- #{var\ 1109}#)
- #{source\ 1105}#))))
- (lambda (#{var\ 1112}#)
- (let ((#{atom-key\ 1113}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1113}# (quote (c)))
+ #{source\ 2479}#
+ #{mod\ 2485}#
+ #{var\ 2486}#
+ #{public?\ 2487}#)
+ (#{decorate-source\ 180}#
+ (list (if #{public?\ 2487}# (quote @) (quote @@))
+ #{mod\ 2485}#
+ #{var\ 2486}#)
+ #{source\ 2479}#))))
+ (lambda (#{var\ 2496}#)
+ (let ((#{atom-key\ 2500}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2500}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 1105}#
- #{var\ 1112}#)
- (#{decorate-source\ 91}#
- #{var\ 1112}#
- #{source\ 1105}#)))))))
- (#{analyze-variable\ 97}#
- (lambda (#{mod\ 1114}#
- #{var\ 1115}#
- #{modref-cont\ 1116}#
- #{bare-cont\ 1117}#)
- (if (not #{mod\ 1114}#)
- (#{bare-cont\ 1117}# #{var\ 1115}#)
- (let ((#{kind\ 1118}# (car #{mod\ 1114}#))
- (#{mod\ 1119}# (cdr #{mod\ 1114}#)))
- (if (memv #{kind\ 1118}# (quote (public)))
- (#{modref-cont\ 1116}#
- #{mod\ 1119}#
- #{var\ 1115}#
+ #{source\ 2479}#
+ #{var\ 2496}#)
+ (#{decorate-source\ 180}#
+ #{var\ 2496}#
+ #{source\ 2479}#)))))))
+ (#{analyze-variable\ 192}#
+ (lambda (#{mod\ 2503}#
+ #{var\ 2504}#
+ #{modref-cont\ 2505}#
+ #{bare-cont\ 2506}#)
+ (if (not #{mod\ 2503}#)
+ (#{bare-cont\ 2506}# #{var\ 2504}#)
+ (let ((#{kind\ 2513}# (car #{mod\ 2503}#))
+ (#{mod\ 2514}# (cdr #{mod\ 2503}#)))
+ (if (memv #{kind\ 2513}# (quote (public)))
+ (#{modref-cont\ 2505}#
+ #{mod\ 2514}#
+ #{var\ 2504}#
#t)
- (if (memv #{kind\ 1118}# (quote (private)))
+ (if (memv #{kind\ 2513}# (quote (private)))
(if (not (equal?
- #{mod\ 1119}#
+ #{mod\ 2514}#
(module-name (current-module))))
- (#{modref-cont\ 1116}#
- #{mod\ 1119}#
- #{var\ 1115}#
+ (#{modref-cont\ 2505}#
+ #{mod\ 2514}#
+ #{var\ 2504}#
#f)
- (#{bare-cont\ 1117}# #{var\ 1115}#))
- (if (memv #{kind\ 1118}# (quote (bare)))
- (#{bare-cont\ 1117}# #{var\ 1115}#)
- (if (memv #{kind\ 1118}# (quote (hygiene)))
+ (#{bare-cont\ 2506}# #{var\ 2504}#))
+ (if (memv #{kind\ 2513}# (quote (bare)))
+ (#{bare-cont\ 2506}# #{var\ 2504}#)
+ (if (memv #{kind\ 2513}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 1119}#
+ #{mod\ 2514}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 1119}#)
- #{var\ 1115}#)
+ (resolve-module #{mod\ 2514}#)
+ #{var\ 2504}#)
#f)
- (#{modref-cont\ 1116}#
- #{mod\ 1119}#
- #{var\ 1115}#
+ (#{modref-cont\ 2505}#
+ #{mod\ 2514}#
+ #{var\ 2504}#
#f)
- (#{bare-cont\ 1117}# #{var\ 1115}#))
+ (#{bare-cont\ 2506}# #{var\ 2504}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 1115}#
- #{mod\ 1119}#)))))))))
- (#{build-lexical-assignment\ 96}#
- (lambda (#{source\ 1120}#
- #{name\ 1121}#
- #{var\ 1122}#
- #{exp\ 1123}#)
- (let ((#{atom-key\ 1124}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1124}# (quote (c)))
+ #{var\ 2504}#
+ #{mod\ 2514}#)))))))))
+ (#{build-lexical-assignment\ 190}#
+ (lambda (#{source\ 2522}#
+ #{name\ 2523}#
+ #{var\ 2524}#
+ #{exp\ 2525}#)
+ (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2532}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 1120}#
- #{name\ 1121}#
- #{var\ 1122}#
- #{exp\ 1123}#)
- (#{decorate-source\ 91}#
- (list (quote set!) #{var\ 1122}# #{exp\ 1123}#)
- #{source\ 1120}#)))))
- (#{build-lexical-reference\ 95}#
- (lambda (#{type\ 1125}#
- #{source\ 1126}#
- #{name\ 1127}#
- #{var\ 1128}#)
- (let ((#{atom-key\ 1129}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1129}# (quote (c)))
+ #{source\ 2522}#
+ #{name\ 2523}#
+ #{var\ 2524}#
+ #{exp\ 2525}#)
+ (#{decorate-source\ 180}#
+ (list (quote set!) #{var\ 2524}# #{exp\ 2525}#)
+ #{source\ 2522}#)))))
+ (#{build-lexical-reference\ 188}#
+ (lambda (#{type\ 2536}#
+ #{source\ 2537}#
+ #{name\ 2538}#
+ #{var\ 2539}#)
+ (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2546}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 1126}#
- #{name\ 1127}#
- #{var\ 1128}#)
- (#{decorate-source\ 91}#
- #{var\ 1128}#
- #{source\ 1126}#)))))
- (#{build-conditional\ 94}#
- (lambda (#{source\ 1130}#
- #{test-exp\ 1131}#
- #{then-exp\ 1132}#
- #{else-exp\ 1133}#)
- (let ((#{atom-key\ 1134}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1134}# (quote (c)))
+ #{source\ 2537}#
+ #{name\ 2538}#
+ #{var\ 2539}#)
+ (#{decorate-source\ 180}#
+ #{var\ 2539}#
+ #{source\ 2537}#)))))
+ (#{build-conditional\ 186}#
+ (lambda (#{source\ 2549}#
+ #{test-exp\ 2550}#
+ #{then-exp\ 2551}#
+ #{else-exp\ 2552}#)
+ (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2559}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 1130}#
- #{test-exp\ 1131}#
- #{then-exp\ 1132}#
- #{else-exp\ 1133}#)
- (#{decorate-source\ 91}#
- (if (equal? #{else-exp\ 1133}# (quote (if #f #f)))
+ #{source\ 2549}#
+ #{test-exp\ 2550}#
+ #{then-exp\ 2551}#
+ #{else-exp\ 2552}#)
+ (#{decorate-source\ 180}#
+ (if (equal? #{else-exp\ 2552}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 1131}#
- #{then-exp\ 1132}#)
+ #{test-exp\ 2550}#
+ #{then-exp\ 2551}#)
(list 'if
- #{test-exp\ 1131}#
- #{then-exp\ 1132}#
- #{else-exp\ 1133}#))
- #{source\ 1130}#)))))
- (#{build-application\ 93}#
- (lambda (#{source\ 1135}#
- #{fun-exp\ 1136}#
- #{arg-exps\ 1137}#)
- (let ((#{atom-key\ 1138}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1138}# (quote (c)))
+ #{test-exp\ 2550}#
+ #{then-exp\ 2551}#
+ #{else-exp\ 2552}#))
+ #{source\ 2549}#)))))
+ (#{build-application\ 184}#
+ (lambda (#{source\ 2564}#
+ #{fun-exp\ 2565}#
+ #{arg-exps\ 2566}#)
+ (let ((#{atom-key\ 2572}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2572}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 1135}#
- #{fun-exp\ 1136}#
- #{arg-exps\ 1137}#)
- (#{decorate-source\ 91}#
- (cons #{fun-exp\ 1136}# #{arg-exps\ 1137}#)
- #{source\ 1135}#)))))
- (#{build-void\ 92}#
- (lambda (#{source\ 1139}#)
- (let ((#{atom-key\ 1140}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1140}# (quote (c)))
+ #{source\ 2564}#
+ #{fun-exp\ 2565}#
+ #{arg-exps\ 2566}#)
+ (#{decorate-source\ 180}#
+ (cons #{fun-exp\ 2565}# #{arg-exps\ 2566}#)
+ #{source\ 2564}#)))))
+ (#{build-void\ 182}#
+ (lambda (#{source\ 2576}#)
+ (let ((#{atom-key\ 2580}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2580}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 1139}#)
- (#{decorate-source\ 91}#
+ #{source\ 2576}#)
+ (#{decorate-source\ 180}#
'(if #f #f)
- #{source\ 1139}#)))))
- (#{decorate-source\ 91}#
- (lambda (#{e\ 1141}# #{s\ 1142}#)
+ #{source\ 2576}#)))))
+ (#{decorate-source\ 180}#
+ (lambda (#{e\ 2583}# #{s\ 2584}#)
(begin
- (if (if (pair? #{e\ 1141}#) #{s\ 1142}# #f)
- (set-source-properties! #{e\ 1141}# #{s\ 1142}#))
- #{e\ 1141}#)))
- (#{get-global-definition-hook\ 90}#
- (lambda (#{symbol\ 1143}# #{module\ 1144}#)
+ (if (if (pair? #{e\ 2583}#) #{s\ 2584}# #f)
+ (set-source-properties! #{e\ 2583}# #{s\ 2584}#))
+ #{e\ 2583}#)))
+ (#{get-global-definition-hook\ 178}#
+ (lambda (#{symbol\ 2589}# #{module\ 2590}#)
(begin
- (if (if (not #{module\ 1144}#) (current-module) #f)
+ (if (if (not #{module\ 2590}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 1143}#))
- (let ((#{v\ 1145}#
+ #{symbol\ 2589}#))
+ (let ((#{v\ 2596}#
(module-variable
- (if #{module\ 1144}#
- (resolve-module (cdr #{module\ 1144}#))
+ (if #{module\ 2590}#
+ (resolve-module (cdr #{module\ 2590}#))
(current-module))
- #{symbol\ 1143}#)))
- (if #{v\ 1145}#
- (if (variable-bound? #{v\ 1145}#)
- (let ((#{val\ 1146}# (variable-ref #{v\ 1145}#)))
- (if (macro? #{val\ 1146}#)
- (if (syncase-macro-type #{val\ 1146}#)
- (cons (syncase-macro-type #{val\ 1146}#)
- (syncase-macro-binding #{val\ 1146}#))
+ #{symbol\ 2589}#)))
+ (if #{v\ 2596}#
+ (if (variable-bound? #{v\ 2596}#)
+ (let ((#{val\ 2601}# (variable-ref #{v\ 2596}#)))
+ (if (macro? #{val\ 2601}#)
+ (if (syncase-macro-type #{val\ 2601}#)
+ (cons (syncase-macro-type #{val\ 2601}#)
+ (syncase-macro-binding #{val\ 2601}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 89}#
- (lambda (#{symbol\ 1147}# #{type\ 1148}# #{val\ 1149}#)
- (let ((#{existing\ 1150}#
- (let ((#{v\ 1151}#
+ (#{put-global-definition-hook\ 176}#
+ (lambda (#{symbol\ 2605}# #{type\ 2606}# #{val\ 2607}#)
+ (let ((#{existing\ 2612}#
+ (let ((#{v\ 2614}#
(module-variable
(current-module)
- #{symbol\ 1147}#)))
- (if #{v\ 1151}#
- (if (variable-bound? #{v\ 1151}#)
- (let ((#{val\ 1152}# (variable-ref #{v\ 1151}#)))
- (if (macro? #{val\ 1152}#)
- (if (not (syncase-macro-type #{val\ 1152}#))
- #{val\ 1152}#
+ #{symbol\ 2605}#)))
+ (if #{v\ 2614}#
+ (if (variable-bound? #{v\ 2614}#)
+ (let ((#{val\ 2619}# (variable-ref #{v\ 2614}#)))
+ (if (macro? #{val\ 2619}#)
+ (if (not (syncase-macro-type #{val\ 2619}#))
+ #{val\ 2619}#
#f)
#f))
#f)
#f))))
(module-define!
(current-module)
- #{symbol\ 1147}#
- (if #{existing\ 1150}#
+ #{symbol\ 2605}#
+ (if #{existing\ 2612}#
(make-extended-syncase-macro
- #{existing\ 1150}#
- #{type\ 1148}#
- #{val\ 1149}#)
- (make-syncase-macro #{type\ 1148}# #{val\ 1149}#))))))
- (#{local-eval-hook\ 88}#
- (lambda (#{x\ 1153}# #{mod\ 1154}#)
+ #{existing\ 2612}#
+ #{type\ 2606}#
+ #{val\ 2607}#)
+ (make-syncase-macro #{type\ 2606}# #{val\ 2607}#))))))
+ (#{local-eval-hook\ 173}#
+ (lambda (#{x\ 2623}# #{mod\ 2624}#)
(primitive-eval
- (list #{noexpand\ 81}#
- (let ((#{atom-key\ 1155}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1155}# (quote (c)))
+ (list #{noexpand\ 159}#
+ (let ((#{atom-key\ 2630}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2630}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 1153}#)
- #{x\ 1153}#))))))
- (#{top-level-eval-hook\ 87}#
- (lambda (#{x\ 1156}# #{mod\ 1157}#)
+ #{x\ 2623}#)
+ #{x\ 2623}#))))))
+ (#{top-level-eval-hook\ 171}#
+ (lambda (#{x\ 2633}# #{mod\ 2634}#)
(primitive-eval
- (list #{noexpand\ 81}#
- (let ((#{atom-key\ 1158}# (fluid-ref #{*mode*\ 82}#)))
- (if (memv #{atom-key\ 1158}# (quote (c)))
+ (list #{noexpand\ 159}#
+ (let ((#{atom-key\ 2640}# (fluid-ref #{*mode*\ 161}#)))
+ (if (memv #{atom-key\ 2640}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 1156}#)
- #{x\ 1156}#))))))
- (#{fx<\ 86}# <)
- (#{fx=\ 85}# =)
- (#{fx-\ 84}# -)
- (#{fx+\ 83}# +)
- (#{*mode*\ 82}# (make-fluid))
- (#{noexpand\ 81}# "noexpand"))
+ #{x\ 2633}#)
+ #{x\ 2633}#))))))
+ (#{fx<\ 169}# <)
+ (#{fx=\ 167}# =)
+ (#{fx-\ 165}# -)
+ (#{fx+\ 163}# +)
+ (#{*mode*\ 161}# (make-fluid))
+ (#{noexpand\ 159}# "noexpand"))
(begin
- (#{global-extend\ 126}#
+ (#{global-extend\ 256}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 126}#
+ (#{global-extend\ 256}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 126}#
+ (#{global-extend\ 256}#
'core
'fluid-let-syntax
- (lambda (#{e\ 1159}#
- #{r\ 1160}#
- #{w\ 1161}#
- #{s\ 1162}#
- #{mod\ 1163}#)
- ((lambda (#{tmp\ 1164}#)
- ((lambda (#{tmp\ 1165}#)
- (if (if #{tmp\ 1165}#
- (apply (lambda (#{_\ 1166}#
- #{var\ 1167}#
- #{val\ 1168}#
- #{e1\ 1169}#
- #{e2\ 1170}#)
- (#{valid-bound-ids?\ 153}# #{var\ 1167}#))
- #{tmp\ 1165}#)
+ (lambda (#{e\ 2643}#
+ #{r\ 2644}#
+ #{w\ 2645}#
+ #{s\ 2646}#
+ #{mod\ 2647}#)
+ ((lambda (#{tmp\ 2653}#)
+ ((lambda (#{tmp\ 2654}#)
+ (if (if #{tmp\ 2654}#
+ (apply (lambda (#{_\ 2660}#
+ #{var\ 2661}#
+ #{val\ 2662}#
+ #{e1\ 2663}#
+ #{e2\ 2664}#)
+ (#{valid-bound-ids?\ 323}# #{var\ 2661}#))
+ #{tmp\ 2654}#)
#f)
- (apply (lambda (#{_\ 1172}#
- #{var\ 1173}#
- #{val\ 1174}#
- #{e1\ 1175}#
- #{e2\ 1176}#)
- (let ((#{names\ 1177}#
- (map (lambda (#{x\ 1178}#)
- (#{id-var-name\ 150}#
- #{x\ 1178}#
- #{w\ 1161}#))
- #{var\ 1173}#)))
+ (apply (lambda (#{_\ 2671}#
+ #{var\ 2672}#
+ #{val\ 2673}#
+ #{e1\ 2674}#
+ #{e2\ 2675}#)
+ (let ((#{names\ 2677}#
+ (map (lambda (#{x\ 2678}#)
+ (#{id-var-name\ 317}#
+ #{x\ 2678}#
+ #{w\ 2645}#))
+ #{var\ 2672}#)))
(begin
(for-each
- (lambda (#{id\ 1180}# #{n\ 1181}#)
- (let ((#{atom-key\ 1182}#
- (#{binding-type\ 120}#
- (#{lookup\ 125}#
- #{n\ 1181}#
- #{r\ 1160}#
- #{mod\ 1163}#))))
- (if (memv #{atom-key\ 1182}#
+ (lambda (#{id\ 2681}# #{n\ 2682}#)
+ (let ((#{atom-key\ 2687}#
+ (#{binding-type\ 243}#
+ (#{lookup\ 254}#
+ #{n\ 2682}#
+ #{r\ 2644}#
+ #{mod\ 2647}#))))
+ (if (memv #{atom-key\ 2687}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 1159}#
- (#{source-wrap\ 157}#
- #{id\ 1180}#
- #{w\ 1161}#
- #{s\ 1162}#
- #{mod\ 1163}#)))))
- #{var\ 1173}#
- #{names\ 1177}#)
- (#{chi-body\ 168}#
- (cons #{e1\ 1175}# #{e2\ 1176}#)
- (#{source-wrap\ 157}#
- #{e\ 1159}#
- #{w\ 1161}#
- #{s\ 1162}#
- #{mod\ 1163}#)
- (#{extend-env\ 122}#
- #{names\ 1177}#
- (let ((#{trans-r\ 1185}#
- (#{macros-only-env\ 124}#
- #{r\ 1160}#)))
- (map (lambda (#{x\ 1186}#)
+ #{e\ 2643}#
+ (#{source-wrap\ 331}#
+ #{id\ 2681}#
+ #{w\ 2645}#
+ #{s\ 2646}#
+ #{mod\ 2647}#)))))
+ #{var\ 2672}#
+ #{names\ 2677}#)
+ (#{chi-body\ 353}#
+ (cons #{e1\ 2674}# #{e2\ 2675}#)
+ (#{source-wrap\ 331}#
+ #{e\ 2643}#
+ #{w\ 2645}#
+ #{s\ 2646}#
+ #{mod\ 2647}#)
+ (#{extend-env\ 248}#
+ #{names\ 2677}#
+ (let ((#{trans-r\ 2692}#
+ (#{macros-only-env\ 252}#
+ #{r\ 2644}#)))
+ (map (lambda (#{x\ 2693}#)
(cons 'macro
- (#{eval-local-transformer\
170}#
- (#{chi\ 164}#
- #{x\ 1186}#
- #{trans-r\ 1185}#
- #{w\ 1161}#
- #{mod\ 1163}#)
- #{mod\ 1163}#)))
- #{val\ 1174}#))
- #{r\ 1160}#)
- #{w\ 1161}#
- #{mod\ 1163}#))))
- #{tmp\ 1165}#)
- ((lambda (#{_\ 1188}#)
+ (#{eval-local-transformer\
357}#
+ (#{chi\ 345}#
+ #{x\ 2693}#
+ #{trans-r\ 2692}#
+ #{w\ 2645}#
+ #{mod\ 2647}#)
+ #{mod\ 2647}#)))
+ #{val\ 2673}#))
+ #{r\ 2644}#)
+ #{w\ 2645}#
+ #{mod\ 2647}#))))
+ #{tmp\ 2654}#)
+ ((lambda (#{_\ 2698}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 157}#
- #{e\ 1159}#
- #{w\ 1161}#
- #{s\ 1162}#
- #{mod\ 1163}#)))
- #{tmp\ 1164}#)))
+ (#{source-wrap\ 331}#
+ #{e\ 2643}#
+ #{w\ 2645}#
+ #{s\ 2646}#
+ #{mod\ 2647}#)))
+ #{tmp\ 2653}#)))
($sc-dispatch
- #{tmp\ 1164}#
+ #{tmp\ 2653}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1159}#)))
- (#{global-extend\ 126}#
+ #{e\ 2643}#)))
+ (#{global-extend\ 256}#
'core
'quote
- (lambda (#{e\ 1189}#
- #{r\ 1190}#
- #{w\ 1191}#
- #{s\ 1192}#
- #{mod\ 1193}#)
- ((lambda (#{tmp\ 1194}#)
- ((lambda (#{tmp\ 1195}#)
- (if #{tmp\ 1195}#
- (apply (lambda (#{_\ 1196}# #{e\ 1197}#)
- (#{build-data\ 106}#
- #{s\ 1192}#
- (#{strip\ 177}# #{e\ 1197}# #{w\ 1191}#)))
- #{tmp\ 1195}#)
- ((lambda (#{_\ 1198}#)
+ (lambda (#{e\ 2699}#
+ #{r\ 2700}#
+ #{w\ 2701}#
+ #{s\ 2702}#
+ #{mod\ 2703}#)
+ ((lambda (#{tmp\ 2709}#)
+ ((lambda (#{tmp\ 2710}#)
+ (if #{tmp\ 2710}#
+ (apply (lambda (#{_\ 2713}# #{e\ 2714}#)
+ (#{build-data\ 210}#
+ #{s\ 2702}#
+ (#{strip\ 371}# #{e\ 2714}# #{w\ 2701}#)))
+ #{tmp\ 2710}#)
+ ((lambda (#{_\ 2716}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 157}#
- #{e\ 1189}#
- #{w\ 1191}#
- #{s\ 1192}#
- #{mod\ 1193}#)))
- #{tmp\ 1194}#)))
- ($sc-dispatch #{tmp\ 1194}# (quote (any any)))))
- #{e\ 1189}#)))
- (#{global-extend\ 126}#
+ (#{source-wrap\ 331}#
+ #{e\ 2699}#
+ #{w\ 2701}#
+ #{s\ 2702}#
+ #{mod\ 2703}#)))
+ #{tmp\ 2709}#)))
+ ($sc-dispatch #{tmp\ 2709}# (quote (any any)))))
+ #{e\ 2699}#)))
+ (#{global-extend\ 256}#
'core
'syntax
- (letrec ((#{regen\ 1206}#
- (lambda (#{x\ 1207}#)
- (let ((#{atom-key\ 1208}# (car #{x\ 1207}#)))
- (if (memv #{atom-key\ 1208}# (quote (ref)))
- (#{build-lexical-reference\ 95}#
+ (letrec ((#{regen\ 2732}#
+ (lambda (#{x\ 2733}#)
+ (let ((#{atom-key\ 2737}# (car #{x\ 2733}#)))
+ (if (memv #{atom-key\ 2737}# (quote (ref)))
+ (#{build-lexical-reference\ 188}#
'value
#f
- (cadr #{x\ 1207}#)
- (cadr #{x\ 1207}#))
- (if (memv #{atom-key\ 1208}# (quote (primitive)))
- (#{build-primref\ 105}# #f (cadr #{x\ 1207}#))
- (if (memv #{atom-key\ 1208}# (quote (quote)))
- (#{build-data\ 106}# #f (cadr #{x\ 1207}#))
- (if (memv #{atom-key\ 1208}# (quote (lambda)))
- (if (list? (cadr #{x\ 1207}#))
- (#{build-simple-lambda\ 102}#
+ (cadr #{x\ 2733}#)
+ (cadr #{x\ 2733}#))
+ (if (memv #{atom-key\ 2737}# (quote (primitive)))
+ (#{build-primref\ 208}# #f (cadr #{x\ 2733}#))
+ (if (memv #{atom-key\ 2737}# (quote (quote)))
+ (#{build-data\ 210}# #f (cadr #{x\ 2733}#))
+ (if (memv #{atom-key\ 2737}# (quote (lambda)))
+ (if (list? (cadr #{x\ 2733}#))
+ (#{build-simple-lambda\ 202}#
#f
- (cadr #{x\ 1207}#)
+ (cadr #{x\ 2733}#)
#f
- (cadr #{x\ 1207}#)
+ (cadr #{x\ 2733}#)
#f
- (#{regen\ 1206}# (caddr #{x\ 1207}#)))
- (error "how did we get here" #{x\ 1207}#))
- (#{build-application\ 93}#
+ (#{regen\ 2732}# (caddr #{x\ 2733}#)))
+ (error "how did we get here" #{x\ 2733}#))
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}# #f (car #{x\ 1207}#))
- (map #{regen\ 1206}#
- (cdr #{x\ 1207}#))))))))))
- (#{gen-vector\ 1205}#
- (lambda (#{x\ 1209}#)
- (if (eq? (car #{x\ 1209}#) (quote list))
- (cons (quote vector) (cdr #{x\ 1209}#))
- (if (eq? (car #{x\ 1209}#) (quote quote))
+ (#{build-primref\ 208}# #f (car #{x\ 2733}#))
+ (map #{regen\ 2732}#
+ (cdr #{x\ 2733}#))))))))))
+ (#{gen-vector\ 2730}#
+ (lambda (#{x\ 2749}#)
+ (if (eq? (car #{x\ 2749}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2749}#))
+ (if (eq? (car #{x\ 2749}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 1209}#)))
- (list (quote list->vector) #{x\ 1209}#)))))
- (#{gen-append\ 1204}#
- (lambda (#{x\ 1210}# #{y\ 1211}#)
- (if (equal? #{y\ 1211}# (quote (quote ())))
- #{x\ 1210}#
- (list (quote append) #{x\ 1210}# #{y\ 1211}#))))
- (#{gen-cons\ 1203}#
- (lambda (#{x\ 1212}# #{y\ 1213}#)
- (let ((#{atom-key\ 1214}# (car #{y\ 1213}#)))
- (if (memv #{atom-key\ 1214}# (quote (quote)))
- (if (eq? (car #{x\ 1212}#) (quote quote))
+ (list->vector (cadr #{x\ 2749}#)))
+ (list (quote list->vector) #{x\ 2749}#)))))
+ (#{gen-append\ 2728}#
+ (lambda (#{x\ 2759}# #{y\ 2760}#)
+ (if (equal? #{y\ 2760}# (quote (quote ())))
+ #{x\ 2759}#
+ (list (quote append) #{x\ 2759}# #{y\ 2760}#))))
+ (#{gen-cons\ 2726}#
+ (lambda (#{x\ 2764}# #{y\ 2765}#)
+ (let ((#{atom-key\ 2770}# (car #{y\ 2765}#)))
+ (if (memv #{atom-key\ 2770}# (quote (quote)))
+ (if (eq? (car #{x\ 2764}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 1212}#) (cadr #{y\ 1213}#)))
- (if (eq? (cadr #{y\ 1213}#) (quote ()))
- (list (quote list) #{x\ 1212}#)
- (list (quote cons) #{x\ 1212}# #{y\ 1213}#)))
- (if (memv #{atom-key\ 1214}# (quote (list)))
+ (cons (cadr #{x\ 2764}#) (cadr #{y\ 2765}#)))
+ (if (eq? (cadr #{y\ 2765}#) (quote ()))
+ (list (quote list) #{x\ 2764}#)
+ (list (quote cons) #{x\ 2764}# #{y\ 2765}#)))
+ (if (memv #{atom-key\ 2770}# (quote (list)))
(cons 'list
- (cons #{x\ 1212}# (cdr #{y\ 1213}#)))
- (list (quote cons) #{x\ 1212}# #{y\ 1213}#))))))
- (#{gen-map\ 1202}#
- (lambda (#{e\ 1215}# #{map-env\ 1216}#)
- (let ((#{formals\ 1217}# (map cdr #{map-env\ 1216}#))
- (#{actuals\ 1218}#
- (map (lambda (#{x\ 1219}#)
- (list (quote ref) (car #{x\ 1219}#)))
- #{map-env\ 1216}#)))
- (if (eq? (car #{e\ 1215}#) (quote ref))
- (car #{actuals\ 1218}#)
+ (cons #{x\ 2764}# (cdr #{y\ 2765}#)))
+ (list (quote cons) #{x\ 2764}# #{y\ 2765}#))))))
+ (#{gen-map\ 2724}#
+ (lambda (#{e\ 2779}# #{map-env\ 2780}#)
+ (let ((#{formals\ 2785}# (map cdr #{map-env\ 2780}#))
+ (#{actuals\ 2786}#
+ (map (lambda (#{x\ 2787}#)
+ (list (quote ref) (car #{x\ 2787}#)))
+ #{map-env\ 2780}#)))
+ (if (eq? (car #{e\ 2779}#) (quote ref))
+ (car #{actuals\ 2786}#)
(if (and-map
- (lambda (#{x\ 1220}#)
- (if (eq? (car #{x\ 1220}#) (quote ref))
- (memq (cadr #{x\ 1220}#) #{formals\ 1217}#)
+ (lambda (#{x\ 2794}#)
+ (if (eq? (car #{x\ 2794}#) (quote ref))
+ (memq (cadr #{x\ 2794}#) #{formals\ 2785}#)
#f))
- (cdr #{e\ 1215}#))
+ (cdr #{e\ 2779}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 1215}#))
- (map (let ((#{r\ 1221}#
+ (car #{e\ 2779}#))
+ (map (let ((#{r\ 2800}#
(map cons
- #{formals\ 1217}#
- #{actuals\ 1218}#)))
- (lambda (#{x\ 1222}#)
- (cdr (assq (cadr #{x\ 1222}#)
- #{r\ 1221}#))))
- (cdr #{e\ 1215}#))))
+ #{formals\ 2785}#
+ #{actuals\ 2786}#)))
+ (lambda (#{x\ 2801}#)
+ (cdr (assq (cadr #{x\ 2801}#)
+ #{r\ 2800}#))))
+ (cdr #{e\ 2779}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 1217}#
- #{e\ 1215}#)
- #{actuals\ 1218}#)))))))
- (#{gen-mappend\ 1201}#
- (lambda (#{e\ 1223}# #{map-env\ 1224}#)
+ #{formals\ 2785}#
+ #{e\ 2779}#)
+ #{actuals\ 2786}#)))))))
+ (#{gen-mappend\ 2722}#
+ (lambda (#{e\ 2805}# #{map-env\ 2806}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 1202}# #{e\ 1223}# #{map-env\ 1224}#))))
- (#{gen-ref\ 1200}#
- (lambda (#{src\ 1225}#
- #{var\ 1226}#
- #{level\ 1227}#
- #{maps\ 1228}#)
- (if (#{fx=\ 85}# #{level\ 1227}# 0)
- (values #{var\ 1226}# #{maps\ 1228}#)
- (if (null? #{maps\ 1228}#)
+ (#{gen-map\ 2724}# #{e\ 2805}# #{map-env\ 2806}#))))
+ (#{gen-ref\ 2720}#
+ (lambda (#{src\ 2810}#
+ #{var\ 2811}#
+ #{level\ 2812}#
+ #{maps\ 2813}#)
+ (if (#{fx=\ 167}# #{level\ 2812}# 0)
+ (values #{var\ 2811}# #{maps\ 2813}#)
+ (if (null? #{maps\ 2813}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 1225}#)
+ #{src\ 2810}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 1200}#
- #{src\ 1225}#
- #{var\ 1226}#
- (#{fx-\ 84}# #{level\ 1227}# 1)
- (cdr #{maps\ 1228}#)))
- (lambda (#{outer-var\ 1229}# #{outer-maps\ 1230}#)
- (let ((#{b\ 1231}#
- (assq #{outer-var\ 1229}#
- (car #{maps\ 1228}#))))
- (if #{b\ 1231}#
- (values (cdr #{b\ 1231}#) #{maps\ 1228}#)
- (let ((#{inner-var\ 1232}#
- (#{gen-var\ 178}# (quote tmp))))
+ (#{gen-ref\ 2720}#
+ #{src\ 2810}#
+ #{var\ 2811}#
+ (#{fx-\ 165}# #{level\ 2812}# 1)
+ (cdr #{maps\ 2813}#)))
+ (lambda (#{outer-var\ 2818}# #{outer-maps\ 2819}#)
+ (let ((#{b\ 2823}#
+ (assq #{outer-var\ 2818}#
+ (car #{maps\ 2813}#))))
+ (if #{b\ 2823}#
+ (values (cdr #{b\ 2823}#) #{maps\ 2813}#)
+ (let ((#{inner-var\ 2825}#
+ (#{gen-var\ 373}# (quote tmp))))
(values
- #{inner-var\ 1232}#
- (cons (cons (cons #{outer-var\ 1229}#
- #{inner-var\ 1232}#)
- (car #{maps\ 1228}#))
- #{outer-maps\ 1230}#)))))))))))
- (#{gen-syntax\ 1199}#
- (lambda (#{src\ 1233}#
- #{e\ 1234}#
- #{r\ 1235}#
- #{maps\ 1236}#
- #{ellipsis?\ 1237}#
- #{mod\ 1238}#)
- (if (#{id?\ 128}# #{e\ 1234}#)
- (let ((#{label\ 1239}#
- (#{id-var-name\ 150}#
- #{e\ 1234}#
+ #{inner-var\ 2825}#
+ (cons (cons (cons #{outer-var\ 2818}#
+ #{inner-var\ 2825}#)
+ (car #{maps\ 2813}#))
+ #{outer-maps\ 2819}#)))))))))))
+ (#{gen-syntax\ 2718}#
+ (lambda (#{src\ 2826}#
+ #{e\ 2827}#
+ #{r\ 2828}#
+ #{maps\ 2829}#
+ #{ellipsis?\ 2830}#
+ #{mod\ 2831}#)
+ (if (#{id?\ 260}# #{e\ 2827}#)
+ (let ((#{label\ 2839}#
+ (#{id-var-name\ 317}#
+ #{e\ 2827}#
'(()))))
- (let ((#{b\ 1240}#
- (#{lookup\ 125}#
- #{label\ 1239}#
- #{r\ 1235}#
- #{mod\ 1238}#)))
- (if (eq? (#{binding-type\ 120}# #{b\ 1240}#)
+ (let ((#{b\ 2842}#
+ (#{lookup\ 254}#
+ #{label\ 2839}#
+ #{r\ 2828}#
+ #{mod\ 2831}#)))
+ (if (eq? (#{binding-type\ 243}# #{b\ 2842}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 1241}#
- (#{binding-value\ 121}# #{b\ 1240}#)))
- (#{gen-ref\ 1200}#
- #{src\ 1233}#
- (car #{var.lev\ 1241}#)
- (cdr #{var.lev\ 1241}#)
- #{maps\ 1236}#)))
- (lambda (#{var\ 1242}# #{maps\ 1243}#)
+ (let ((#{var.lev\ 2844}#
+ (#{binding-value\ 245}# #{b\ 2842}#)))
+ (#{gen-ref\ 2720}#
+ #{src\ 2826}#
+ (car #{var.lev\ 2844}#)
+ (cdr #{var.lev\ 2844}#)
+ #{maps\ 2829}#)))
+ (lambda (#{var\ 2845}# #{maps\ 2846}#)
(values
- (list (quote ref) #{var\ 1242}#)
- #{maps\ 1243}#)))
- (if (#{ellipsis?\ 1237}# #{e\ 1234}#)
+ (list (quote ref) #{var\ 2845}#)
+ #{maps\ 2846}#)))
+ (if (#{ellipsis?\ 2830}# #{e\ 2827}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 1233}#)
+ #{src\ 2826}#)
(values
- (list (quote quote) #{e\ 1234}#)
- #{maps\ 1236}#)))))
- ((lambda (#{tmp\ 1244}#)
- ((lambda (#{tmp\ 1245}#)
- (if (if #{tmp\ 1245}#
- (apply (lambda (#{dots\ 1246}# #{e\ 1247}#)
- (#{ellipsis?\ 1237}#
- #{dots\ 1246}#))
- #{tmp\ 1245}#)
+ (list (quote quote) #{e\ 2827}#)
+ #{maps\ 2829}#)))))
+ ((lambda (#{tmp\ 2851}#)
+ ((lambda (#{tmp\ 2852}#)
+ (if (if #{tmp\ 2852}#
+ (apply (lambda (#{dots\ 2855}# #{e\ 2856}#)
+ (#{ellipsis?\ 2830}#
+ #{dots\ 2855}#))
+ #{tmp\ 2852}#)
#f)
- (apply (lambda (#{dots\ 1248}# #{e\ 1249}#)
- (#{gen-syntax\ 1199}#
- #{src\ 1233}#
- #{e\ 1249}#
- #{r\ 1235}#
- #{maps\ 1236}#
- (lambda (#{x\ 1250}#) #f)
- #{mod\ 1238}#))
- #{tmp\ 1245}#)
- ((lambda (#{tmp\ 1251}#)
- (if (if #{tmp\ 1251}#
- (apply (lambda (#{x\ 1252}#
- #{dots\ 1253}#
- #{y\ 1254}#)
- (#{ellipsis?\ 1237}#
- #{dots\ 1253}#))
- #{tmp\ 1251}#)
+ (apply (lambda (#{dots\ 2859}# #{e\ 2860}#)
+ (#{gen-syntax\ 2718}#
+ #{src\ 2826}#
+ #{e\ 2860}#
+ #{r\ 2828}#
+ #{maps\ 2829}#
+ (lambda (#{x\ 2861}#) #f)
+ #{mod\ 2831}#))
+ #{tmp\ 2852}#)
+ ((lambda (#{tmp\ 2863}#)
+ (if (if #{tmp\ 2863}#
+ (apply (lambda (#{x\ 2867}#
+ #{dots\ 2868}#
+ #{y\ 2869}#)
+ (#{ellipsis?\ 2830}#
+ #{dots\ 2868}#))
+ #{tmp\ 2863}#)
#f)
- (apply (lambda (#{x\ 1255}#
- #{dots\ 1256}#
- #{y\ 1257}#)
- (letrec ((#{f\ 1258}#
- (lambda (#{y\ 1259}#
- #{k\ 1260}#)
- ((lambda (#{tmp\
1264}#)
- ((lambda (#{tmp\
1265}#)
- (if (if #{tmp\
1265}#
- (apply
(lambda (#{dots\ 1266}#
-
#{y\ 1267}#)
-
(#{ellipsis?\ 1237}#
-
#{dots\ 1266}#))
-
#{tmp\ 1265}#)
+ (apply (lambda (#{x\ 2873}#
+ #{dots\ 2874}#
+ #{y\ 2875}#)
+ (letrec ((#{f\ 2879}#
+ (lambda (#{y\ 2880}#
+ #{k\ 2881}#)
+ ((lambda (#{tmp\
2888}#)
+ ((lambda (#{tmp\
2889}#)
+ (if (if #{tmp\
2889}#
+ (apply
(lambda (#{dots\ 2892}#
+
#{y\ 2893}#)
+
(#{ellipsis?\ 2830}#
+
#{dots\ 2892}#))
+
#{tmp\ 2889}#)
#f)
- (apply
(lambda (#{dots\ 1268}#
-
#{y\ 1269}#)
-
(#{f\ 1258}#
-
#{y\ 1269}#
-
(lambda (#{maps\ 1270}#)
+ (apply
(lambda (#{dots\ 2896}#
+
#{y\ 2897}#)
+
(#{f\ 2879}#
+
#{y\ 2897}#
+
(lambda (#{maps\ 2898}#)
(call-with-values
(lambda ()
-
(#{k\ 1260}#
+
(#{k\ 2881}#
(cons '()
-
#{maps\ 1270}#)))
-
(lambda (#{x\ 1271}#
-
#{maps\ 1272}#)
-
(if (null? (car #{maps\ 1272}#))
+
#{maps\ 2898}#)))
+
(lambda (#{x\ 2900}#
+
#{maps\ 2901}#)
+
(if (null? (car #{maps\ 2901}#))
(syntax-violation
'syntax
"extra ellipsis"
-
#{src\ 1233}#)
+
#{src\ 2826}#)
(values
-
(#{gen-mappend\ 1201}#
-
#{x\ 1271}#
-
(car #{maps\ 1272}#))
-
(cdr #{maps\ 1272}#))))))))
-
#{tmp\ 1265}#)
- ((lambda
(#{_\ 1273}#)
+
(#{gen-mappend\ 2722}#
+
#{x\ 2900}#
+
(car #{maps\ 2901}#))
+
(cdr #{maps\ 2901}#))))))))
+
#{tmp\ 2889}#)
+ ((lambda
(#{_\ 2905}#)
(call-with-values
(lambda
()
-
(#{gen-syntax\ 1199}#
-
#{src\ 1233}#
-
#{y\ 1259}#
-
#{r\ 1235}#
-
#{maps\ 1236}#
-
#{ellipsis?\ 1237}#
-
#{mod\ 1238}#))
- (lambda
(#{y\ 1274}#
-
#{maps\ 1275}#)
+
(#{gen-syntax\ 2718}#
+
#{src\ 2826}#
+
#{y\ 2880}#
+
#{r\ 2828}#
+
#{maps\ 2829}#
+
#{ellipsis?\ 2830}#
+
#{mod\ 2831}#))
+ (lambda
(#{y\ 2906}#
+
#{maps\ 2907}#)
(call-with-values
(lambda ()
-
(#{k\ 1260}#
-
#{maps\ 1275}#))
-
(lambda (#{x\ 1276}#
-
#{maps\ 1277}#)
+
(#{k\ 2881}#
+
#{maps\ 2907}#))
+
(lambda (#{x\ 2910}#
+
#{maps\ 2911}#)
(values
-
(#{gen-append\ 1204}#
-
#{x\ 1276}#
-
#{y\ 1274}#)
-
#{maps\ 1277}#))))))
- #{tmp\
1264}#)))
+
(#{gen-append\ 2728}#
+
#{x\ 2910}#
+
#{y\ 2906}#)
+
#{maps\ 2911}#))))))
+ #{tmp\
2888}#)))
($sc-dispatch
- #{tmp\ 1264}#
+ #{tmp\ 2888}#
'(any . any))))
- #{y\ 1259}#))))
- (#{f\ 1258}#
- #{y\ 1257}#
- (lambda (#{maps\ 1261}#)
+ #{y\ 2880}#))))
+ (#{f\ 2879}#
+ #{y\ 2875}#
+ (lambda (#{maps\ 2882}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1199}#
- #{src\ 1233}#
- #{x\ 1255}#
- #{r\ 1235}#
+ (#{gen-syntax\ 2718}#
+ #{src\ 2826}#
+ #{x\ 2873}#
+ #{r\ 2828}#
(cons '()
- #{maps\ 1261}#)
- #{ellipsis?\ 1237}#
- #{mod\ 1238}#))
- (lambda (#{x\ 1262}#
- #{maps\ 1263}#)
- (if (null? (car #{maps\
1263}#))
+ #{maps\ 2882}#)
+ #{ellipsis?\ 2830}#
+ #{mod\ 2831}#))
+ (lambda (#{x\ 2884}#
+ #{maps\ 2885}#)
+ (if (null? (car #{maps\
2885}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 1233}#)
+ #{src\ 2826}#)
(values
- (#{gen-map\ 1202}#
- #{x\ 1262}#
- (car #{maps\
1263}#))
- (cdr #{maps\
1263}#)))))))))
- #{tmp\ 1251}#)
- ((lambda (#{tmp\ 1278}#)
- (if #{tmp\ 1278}#
- (apply (lambda (#{x\ 1279}#
- #{y\ 1280}#)
+ (#{gen-map\ 2724}#
+ #{x\ 2884}#
+ (car #{maps\
2885}#))
+ (cdr #{maps\
2885}#)))))))))
+ #{tmp\ 2863}#)
+ ((lambda (#{tmp\ 2914}#)
+ (if #{tmp\ 2914}#
+ (apply (lambda (#{x\ 2917}#
+ #{y\ 2918}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1199}#
- #{src\ 1233}#
- #{x\ 1279}#
- #{r\ 1235}#
- #{maps\ 1236}#
- #{ellipsis?\ 1237}#
- #{mod\ 1238}#))
- (lambda (#{x\ 1281}#
- #{maps\ 1282}#)
+ (#{gen-syntax\ 2718}#
+ #{src\ 2826}#
+ #{x\ 2917}#
+ #{r\ 2828}#
+ #{maps\ 2829}#
+ #{ellipsis?\ 2830}#
+ #{mod\ 2831}#))
+ (lambda (#{x\ 2919}#
+ #{maps\ 2920}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1199}#
- #{src\ 1233}#
- #{y\ 1280}#
- #{r\ 1235}#
- #{maps\ 1282}#
- #{ellipsis?\ 1237}#
- #{mod\ 1238}#))
- (lambda (#{y\ 1283}#
- #{maps\
1284}#)
+ (#{gen-syntax\ 2718}#
+ #{src\ 2826}#
+ #{y\ 2918}#
+ #{r\ 2828}#
+ #{maps\ 2920}#
+ #{ellipsis?\ 2830}#
+ #{mod\ 2831}#))
+ (lambda (#{y\ 2923}#
+ #{maps\
2924}#)
(values
- (#{gen-cons\ 1203}#
- #{x\ 1281}#
- #{y\ 1283}#)
- #{maps\
1284}#))))))
- #{tmp\ 1278}#)
- ((lambda (#{tmp\ 1285}#)
- (if #{tmp\ 1285}#
- (apply (lambda (#{e1\ 1286}#
- #{e2\ 1287}#)
+ (#{gen-cons\ 2726}#
+ #{x\ 2919}#
+ #{y\ 2923}#)
+ #{maps\
2924}#))))))
+ #{tmp\ 2914}#)
+ ((lambda (#{tmp\ 2927}#)
+ (if #{tmp\ 2927}#
+ (apply (lambda (#{e1\ 2930}#
+ #{e2\ 2931}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
1199}#
- #{src\ 1233}#
- (cons #{e1\ 1286}#
- #{e2\
1287}#)
- #{r\ 1235}#
- #{maps\ 1236}#
- #{ellipsis?\
1237}#
- #{mod\ 1238}#))
- (lambda (#{e\ 1289}#
- #{maps\
1290}#)
+ (#{gen-syntax\
2718}#
+ #{src\ 2826}#
+ (cons #{e1\ 2930}#
+ #{e2\
2931}#)
+ #{r\ 2828}#
+ #{maps\ 2829}#
+ #{ellipsis?\
2830}#
+ #{mod\ 2831}#))
+ (lambda (#{e\ 2933}#
+ #{maps\
2934}#)
(values
- (#{gen-vector\
1205}#
- #{e\ 1289}#)
- #{maps\ 1290}#))))
- #{tmp\ 1285}#)
- ((lambda (#{_\ 1291}#)
+ (#{gen-vector\
2730}#
+ #{e\ 2933}#)
+ #{maps\ 2934}#))))
+ #{tmp\ 2927}#)
+ ((lambda (#{_\ 2938}#)
(values
(list 'quote
- #{e\ 1234}#)
- #{maps\ 1236}#))
- #{tmp\ 1244}#)))
+ #{e\ 2827}#)
+ #{maps\ 2829}#))
+ #{tmp\ 2851}#)))
($sc-dispatch
- #{tmp\ 1244}#
+ #{tmp\ 2851}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 1244}#
+ #{tmp\ 2851}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1244}#
+ #{tmp\ 2851}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 1244}# (quote (any any)))))
- #{e\ 1234}#)))))
- (lambda (#{e\ 1292}#
- #{r\ 1293}#
- #{w\ 1294}#
- #{s\ 1295}#
- #{mod\ 1296}#)
- (let ((#{e\ 1297}#
- (#{source-wrap\ 157}#
- #{e\ 1292}#
- #{w\ 1294}#
- #{s\ 1295}#
- #{mod\ 1296}#)))
- ((lambda (#{tmp\ 1298}#)
- ((lambda (#{tmp\ 1299}#)
- (if #{tmp\ 1299}#
- (apply (lambda (#{_\ 1300}# #{x\ 1301}#)
+ ($sc-dispatch #{tmp\ 2851}# (quote (any any)))))
+ #{e\ 2827}#)))))
+ (lambda (#{e\ 2940}#
+ #{r\ 2941}#
+ #{w\ 2942}#
+ #{s\ 2943}#
+ #{mod\ 2944}#)
+ (let ((#{e\ 2951}#
+ (#{source-wrap\ 331}#
+ #{e\ 2940}#
+ #{w\ 2942}#
+ #{s\ 2943}#
+ #{mod\ 2944}#)))
+ ((lambda (#{tmp\ 2952}#)
+ ((lambda (#{tmp\ 2953}#)
+ (if #{tmp\ 2953}#
+ (apply (lambda (#{_\ 2956}# #{x\ 2957}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1199}#
- #{e\ 1297}#
- #{x\ 1301}#
- #{r\ 1293}#
+ (#{gen-syntax\ 2718}#
+ #{e\ 2951}#
+ #{x\ 2957}#
+ #{r\ 2941}#
'()
- #{ellipsis?\ 172}#
- #{mod\ 1296}#))
- (lambda (#{e\ 1302}# #{maps\ 1303}#)
- (#{regen\ 1206}# #{e\ 1302}#))))
- #{tmp\ 1299}#)
- ((lambda (#{_\ 1304}#)
+ #{ellipsis?\ 361}#
+ #{mod\ 2944}#))
+ (lambda (#{e\ 2958}# #{maps\ 2959}#)
+ (#{regen\ 2732}# #{e\ 2958}#))))
+ #{tmp\ 2953}#)
+ ((lambda (#{_\ 2963}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 1297}#))
- #{tmp\ 1298}#)))
- ($sc-dispatch #{tmp\ 1298}# (quote (any any)))))
- #{e\ 1297}#)))))
- (#{global-extend\ 126}#
+ #{e\ 2951}#))
+ #{tmp\ 2952}#)))
+ ($sc-dispatch #{tmp\ 2952}# (quote (any any)))))
+ #{e\ 2951}#)))))
+ (#{global-extend\ 256}#
'core
'lambda
- (lambda (#{e\ 1305}#
- #{r\ 1306}#
- #{w\ 1307}#
- #{s\ 1308}#
- #{mod\ 1309}#)
- ((lambda (#{tmp\ 1310}#)
- ((lambda (#{tmp\ 1311}#)
- (if (if #{tmp\ 1311}#
- (apply (lambda (#{_\ 1312}#
- #{args\ 1313}#
- #{docstring\ 1314}#
- #{e1\ 1315}#
- #{e2\ 1316}#)
- (string? (syntax->datum #{docstring\ 1314}#)))
- #{tmp\ 1311}#)
+ (lambda (#{e\ 2964}#
+ #{r\ 2965}#
+ #{w\ 2966}#
+ #{s\ 2967}#
+ #{mod\ 2968}#)
+ ((lambda (#{tmp\ 2974}#)
+ ((lambda (#{tmp\ 2975}#)
+ (if (if #{tmp\ 2975}#
+ (apply (lambda (#{_\ 2981}#
+ #{args\ 2982}#
+ #{docstring\ 2983}#
+ #{e1\ 2984}#
+ #{e2\ 2985}#)
+ (string? (syntax->datum #{docstring\ 2983}#)))
+ #{tmp\ 2975}#)
#f)
- (apply (lambda (#{_\ 1317}#
- #{args\ 1318}#
- #{docstring\ 1319}#
- #{e1\ 1320}#
- #{e2\ 1321}#)
+ (apply (lambda (#{_\ 2991}#
+ #{args\ 2992}#
+ #{docstring\ 2993}#
+ #{e1\ 2994}#
+ #{e2\ 2995}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 173}# #{args\ 1318}#))
- (lambda (#{req\ 1322}#
- #{opt\ 1323}#
- #{rest\ 1324}#
- #{kw\ 1325}#)
- (#{chi-simple-lambda\ 174}#
- #{e\ 1305}#
- #{r\ 1306}#
- #{w\ 1307}#
- #{s\ 1308}#
- #{mod\ 1309}#
- #{req\ 1322}#
- #{rest\ 1324}#
- (syntax->datum #{docstring\ 1319}#)
- (cons #{e1\ 1320}# #{e2\ 1321}#)))))
- #{tmp\ 1311}#)
- ((lambda (#{tmp\ 1327}#)
- (if #{tmp\ 1327}#
- (apply (lambda (#{_\ 1328}#
- #{args\ 1329}#
- #{e1\ 1330}#
- #{e2\ 1331}#)
+ (#{lambda-formals\ 363}# #{args\ 2992}#))
+ (lambda (#{req\ 2996}#
+ #{opt\ 2997}#
+ #{rest\ 2998}#
+ #{kw\ 2999}#)
+ (#{chi-simple-lambda\ 365}#
+ #{e\ 2964}#
+ #{r\ 2965}#
+ #{w\ 2966}#
+ #{s\ 2967}#
+ #{mod\ 2968}#
+ #{req\ 2996}#
+ #{rest\ 2998}#
+ (syntax->datum #{docstring\ 2993}#)
+ (cons #{e1\ 2994}# #{e2\ 2995}#)))))
+ #{tmp\ 2975}#)
+ ((lambda (#{tmp\ 3005}#)
+ (if #{tmp\ 3005}#
+ (apply (lambda (#{_\ 3010}#
+ #{args\ 3011}#
+ #{e1\ 3012}#
+ #{e2\ 3013}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 173}# #{args\ 1329}#))
- (lambda (#{req\ 1332}#
- #{opt\ 1333}#
- #{rest\ 1334}#
- #{kw\ 1335}#)
- (#{chi-simple-lambda\ 174}#
- #{e\ 1305}#
- #{r\ 1306}#
- #{w\ 1307}#
- #{s\ 1308}#
- #{mod\ 1309}#
- #{req\ 1332}#
- #{rest\ 1334}#
+ (#{lambda-formals\ 363}# #{args\ 3011}#))
+ (lambda (#{req\ 3014}#
+ #{opt\ 3015}#
+ #{rest\ 3016}#
+ #{kw\ 3017}#)
+ (#{chi-simple-lambda\ 365}#
+ #{e\ 2964}#
+ #{r\ 2965}#
+ #{w\ 2966}#
+ #{s\ 2967}#
+ #{mod\ 2968}#
+ #{req\ 3014}#
+ #{rest\ 3016}#
#f
- (cons #{e1\ 1330}# #{e2\ 1331}#)))))
- #{tmp\ 1327}#)
- ((lambda (#{_\ 1337}#)
+ (cons #{e1\ 3012}# #{e2\ 3013}#)))))
+ #{tmp\ 3005}#)
+ ((lambda (#{_\ 3024}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 1305}#))
- #{tmp\ 1310}#)))
+ #{e\ 2964}#))
+ #{tmp\ 2974}#)))
($sc-dispatch
- #{tmp\ 1310}#
+ #{tmp\ 2974}#
'(any any any . each-any)))))
($sc-dispatch
- #{tmp\ 1310}#
+ #{tmp\ 2974}#
'(any any any any . each-any))))
- #{e\ 1305}#)))
- (#{global-extend\ 126}#
+ #{e\ 2964}#)))
+ (#{global-extend\ 256}#
'core
'lambda*
- (lambda (#{e\ 1338}#
- #{r\ 1339}#
- #{w\ 1340}#
- #{s\ 1341}#
- #{mod\ 1342}#)
- ((lambda (#{tmp\ 1343}#)
- ((lambda (#{tmp\ 1344}#)
- (if #{tmp\ 1344}#
- (apply (lambda (#{_\ 1345}#
- #{args\ 1346}#
- #{e1\ 1347}#
- #{e2\ 1348}#)
+ (lambda (#{e\ 3025}#
+ #{r\ 3026}#
+ #{w\ 3027}#
+ #{s\ 3028}#
+ #{mod\ 3029}#)
+ ((lambda (#{tmp\ 3035}#)
+ ((lambda (#{tmp\ 3036}#)
+ (if #{tmp\ 3036}#
+ (apply (lambda (#{_\ 3041}#
+ #{args\ 3042}#
+ #{e1\ 3043}#
+ #{e2\ 3044}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 176}#
- #{e\ 1338}#
- #{r\ 1339}#
- #{w\ 1340}#
- #{s\ 1341}#
- #{mod\ 1342}#
- #{lambda*-formals\ 175}#
- (list (cons #{args\ 1346}#
- (cons #{e1\ 1347}#
- #{e2\ 1348}#)))))
- (lambda (#{docstring\ 1350}# #{lcase\ 1351}#)
- (#{build-case-lambda\ 103}#
- #{s\ 1341}#
- #{docstring\ 1350}#
- #{lcase\ 1351}#))))
- #{tmp\ 1344}#)
- ((lambda (#{_\ 1352}#)
+ (#{chi-lambda-case\ 369}#
+ #{e\ 3025}#
+ #{r\ 3026}#
+ #{w\ 3027}#
+ #{s\ 3028}#
+ #{mod\ 3029}#
+ #{lambda*-formals\ 367}#
+ (list (cons #{args\ 3042}#
+ (cons #{e1\ 3043}#
+ #{e2\ 3044}#)))))
+ (lambda (#{docstring\ 3046}# #{lcase\ 3047}#)
+ (#{build-case-lambda\ 204}#
+ #{s\ 3028}#
+ #{docstring\ 3046}#
+ #{lcase\ 3047}#))))
+ #{tmp\ 3036}#)
+ ((lambda (#{_\ 3051}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 1338}#))
- #{tmp\ 1343}#)))
+ #{e\ 3025}#))
+ #{tmp\ 3035}#)))
($sc-dispatch
- #{tmp\ 1343}#
+ #{tmp\ 3035}#
'(any any any . each-any))))
- #{e\ 1338}#)))
- (#{global-extend\ 126}#
+ #{e\ 3025}#)))
+ (#{global-extend\ 256}#
'core
'case-lambda
- (lambda (#{e\ 1353}#
- #{r\ 1354}#
- #{w\ 1355}#
- #{s\ 1356}#
- #{mod\ 1357}#)
- ((lambda (#{tmp\ 1358}#)
- ((lambda (#{tmp\ 1359}#)
- (if #{tmp\ 1359}#
- (apply (lambda (#{_\ 1360}#
- #{args\ 1361}#
- #{e1\ 1362}#
- #{e2\ 1363}#
- #{args*\ 1364}#
- #{e1*\ 1365}#
- #{e2*\ 1366}#)
+ (lambda (#{e\ 3052}#
+ #{r\ 3053}#
+ #{w\ 3054}#
+ #{s\ 3055}#
+ #{mod\ 3056}#)
+ ((lambda (#{tmp\ 3062}#)
+ ((lambda (#{tmp\ 3063}#)
+ (if #{tmp\ 3063}#
+ (apply (lambda (#{_\ 3071}#
+ #{args\ 3072}#
+ #{e1\ 3073}#
+ #{e2\ 3074}#
+ #{args*\ 3075}#
+ #{e1*\ 3076}#
+ #{e2*\ 3077}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 176}#
- #{e\ 1353}#
- #{r\ 1354}#
- #{w\ 1355}#
- #{s\ 1356}#
- #{mod\ 1357}#
- #{lambda-formals\ 173}#
- (cons (cons #{args\ 1361}#
- (cons #{e1\ 1362}# #{e2\ 1363}#))
- (map (lambda (#{tmp\ 1370}#
- #{tmp\ 1369}#
- #{tmp\ 1368}#)
- (cons #{tmp\ 1368}#
- (cons #{tmp\ 1369}#
- #{tmp\ 1370}#)))
- #{e2*\ 1366}#
- #{e1*\ 1365}#
- #{args*\ 1364}#))))
- (lambda (#{docstring\ 1372}# #{lcase\ 1373}#)
- (#{build-case-lambda\ 103}#
- #{s\ 1356}#
- #{docstring\ 1372}#
- #{lcase\ 1373}#))))
- #{tmp\ 1359}#)
- ((lambda (#{_\ 1374}#)
+ (#{chi-lambda-case\ 369}#
+ #{e\ 3052}#
+ #{r\ 3053}#
+ #{w\ 3054}#
+ #{s\ 3055}#
+ #{mod\ 3056}#
+ #{lambda-formals\ 363}#
+ (cons (cons #{args\ 3072}#
+ (cons #{e1\ 3073}# #{e2\ 3074}#))
+ (map (lambda (#{tmp\ 3081}#
+ #{tmp\ 3080}#
+ #{tmp\ 3079}#)
+ (cons #{tmp\ 3079}#
+ (cons #{tmp\ 3080}#
+ #{tmp\ 3081}#)))
+ #{e2*\ 3077}#
+ #{e1*\ 3076}#
+ #{args*\ 3075}#))))
+ (lambda (#{docstring\ 3083}# #{lcase\ 3084}#)
+ (#{build-case-lambda\ 204}#
+ #{s\ 3055}#
+ #{docstring\ 3083}#
+ #{lcase\ 3084}#))))
+ #{tmp\ 3063}#)
+ ((lambda (#{_\ 3088}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 1353}#))
- #{tmp\ 1358}#)))
+ #{e\ 3052}#))
+ #{tmp\ 3062}#)))
($sc-dispatch
- #{tmp\ 1358}#
+ #{tmp\ 3062}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 1353}#)))
- (#{global-extend\ 126}#
+ #{e\ 3052}#)))
+ (#{global-extend\ 256}#
'core
'case-lambda*
- (lambda (#{e\ 1375}#
- #{r\ 1376}#
- #{w\ 1377}#
- #{s\ 1378}#
- #{mod\ 1379}#)
- ((lambda (#{tmp\ 1380}#)
- ((lambda (#{tmp\ 1381}#)
- (if #{tmp\ 1381}#
- (apply (lambda (#{_\ 1382}#
- #{args\ 1383}#
- #{e1\ 1384}#
- #{e2\ 1385}#
- #{args*\ 1386}#
- #{e1*\ 1387}#
- #{e2*\ 1388}#)
+ (lambda (#{e\ 3089}#
+ #{r\ 3090}#
+ #{w\ 3091}#
+ #{s\ 3092}#
+ #{mod\ 3093}#)
+ ((lambda (#{tmp\ 3099}#)
+ ((lambda (#{tmp\ 3100}#)
+ (if #{tmp\ 3100}#
+ (apply (lambda (#{_\ 3108}#
+ #{args\ 3109}#
+ #{e1\ 3110}#
+ #{e2\ 3111}#
+ #{args*\ 3112}#
+ #{e1*\ 3113}#
+ #{e2*\ 3114}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 176}#
- #{e\ 1375}#
- #{r\ 1376}#
- #{w\ 1377}#
- #{s\ 1378}#
- #{mod\ 1379}#
- #{lambda*-formals\ 175}#
- (cons (cons #{args\ 1383}#
- (cons #{e1\ 1384}# #{e2\ 1385}#))
- (map (lambda (#{tmp\ 1392}#
- #{tmp\ 1391}#
- #{tmp\ 1390}#)
- (cons #{tmp\ 1390}#
- (cons #{tmp\ 1391}#
- #{tmp\ 1392}#)))
- #{e2*\ 1388}#
- #{e1*\ 1387}#
- #{args*\ 1386}#))))
- (lambda (#{docstring\ 1394}# #{lcase\ 1395}#)
- (#{build-case-lambda\ 103}#
- #{s\ 1378}#
- #{docstring\ 1394}#
- #{lcase\ 1395}#))))
- #{tmp\ 1381}#)
- ((lambda (#{_\ 1396}#)
+ (#{chi-lambda-case\ 369}#
+ #{e\ 3089}#
+ #{r\ 3090}#
+ #{w\ 3091}#
+ #{s\ 3092}#
+ #{mod\ 3093}#
+ #{lambda*-formals\ 367}#
+ (cons (cons #{args\ 3109}#
+ (cons #{e1\ 3110}# #{e2\ 3111}#))
+ (map (lambda (#{tmp\ 3118}#
+ #{tmp\ 3117}#
+ #{tmp\ 3116}#)
+ (cons #{tmp\ 3116}#
+ (cons #{tmp\ 3117}#
+ #{tmp\ 3118}#)))
+ #{e2*\ 3114}#
+ #{e1*\ 3113}#
+ #{args*\ 3112}#))))
+ (lambda (#{docstring\ 3120}# #{lcase\ 3121}#)
+ (#{build-case-lambda\ 204}#
+ #{s\ 3092}#
+ #{docstring\ 3120}#
+ #{lcase\ 3121}#))))
+ #{tmp\ 3100}#)
+ ((lambda (#{_\ 3125}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 1375}#))
- #{tmp\ 1380}#)))
+ #{e\ 3089}#))
+ #{tmp\ 3099}#)))
($sc-dispatch
- #{tmp\ 1380}#
+ #{tmp\ 3099}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 1375}#)))
- (#{global-extend\ 126}#
+ #{e\ 3089}#)))
+ (#{global-extend\ 256}#
'core
'let
- (letrec ((#{chi-let\ 1397}#
- (lambda (#{e\ 1398}#
- #{r\ 1399}#
- #{w\ 1400}#
- #{s\ 1401}#
- #{mod\ 1402}#
- #{constructor\ 1403}#
- #{ids\ 1404}#
- #{vals\ 1405}#
- #{exps\ 1406}#)
- (if (not (#{valid-bound-ids?\ 153}# #{ids\ 1404}#))
+ (letrec ((#{chi-let\ 3127}#
+ (lambda (#{e\ 3128}#
+ #{r\ 3129}#
+ #{w\ 3130}#
+ #{s\ 3131}#
+ #{mod\ 3132}#
+ #{constructor\ 3133}#
+ #{ids\ 3134}#
+ #{vals\ 3135}#
+ #{exps\ 3136}#)
+ (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3134}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 1398}#)
- (let ((#{labels\ 1407}#
- (#{gen-labels\ 134}# #{ids\ 1404}#))
- (#{new-vars\ 1408}#
- (map #{gen-var\ 178}# #{ids\ 1404}#)))
- (let ((#{nw\ 1409}#
- (#{make-binding-wrap\ 145}#
- #{ids\ 1404}#
- #{labels\ 1407}#
- #{w\ 1400}#))
- (#{nr\ 1410}#
- (#{extend-var-env\ 123}#
- #{labels\ 1407}#
- #{new-vars\ 1408}#
- #{r\ 1399}#)))
- (#{constructor\ 1403}#
- #{s\ 1401}#
- (map syntax->datum #{ids\ 1404}#)
- #{new-vars\ 1408}#
- (map (lambda (#{x\ 1411}#)
- (#{chi\ 164}#
- #{x\ 1411}#
- #{r\ 1399}#
- #{w\ 1400}#
- #{mod\ 1402}#))
- #{vals\ 1405}#)
- (#{chi-body\ 168}#
- #{exps\ 1406}#
- (#{source-wrap\ 157}#
- #{e\ 1398}#
- #{nw\ 1409}#
- #{s\ 1401}#
- #{mod\ 1402}#)
- #{nr\ 1410}#
- #{nw\ 1409}#
- #{mod\ 1402}#))))))))
- (lambda (#{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
- ((lambda (#{tmp\ 1417}#)
- ((lambda (#{tmp\ 1418}#)
- (if (if #{tmp\ 1418}#
- (apply (lambda (#{_\ 1419}#
- #{id\ 1420}#
- #{val\ 1421}#
- #{e1\ 1422}#
- #{e2\ 1423}#)
- (and-map #{id?\ 128}# #{id\ 1420}#))
- #{tmp\ 1418}#)
+ #{e\ 3128}#)
+ (let ((#{labels\ 3148}#
+ (#{gen-labels\ 278}# #{ids\ 3134}#))
+ (#{new-vars\ 3149}#
+ (map #{gen-var\ 373}# #{ids\ 3134}#)))
+ (let ((#{nw\ 3152}#
+ (#{make-binding-wrap\ 307}#
+ #{ids\ 3134}#
+ #{labels\ 3148}#
+ #{w\ 3130}#))
+ (#{nr\ 3153}#
+ (#{extend-var-env\ 250}#
+ #{labels\ 3148}#
+ #{new-vars\ 3149}#
+ #{r\ 3129}#)))
+ (#{constructor\ 3133}#
+ #{s\ 3131}#
+ (map syntax->datum #{ids\ 3134}#)
+ #{new-vars\ 3149}#
+ (map (lambda (#{x\ 3154}#)
+ (#{chi\ 345}#
+ #{x\ 3154}#
+ #{r\ 3129}#
+ #{w\ 3130}#
+ #{mod\ 3132}#))
+ #{vals\ 3135}#)
+ (#{chi-body\ 353}#
+ #{exps\ 3136}#
+ (#{source-wrap\ 331}#
+ #{e\ 3128}#
+ #{nw\ 3152}#
+ #{s\ 3131}#
+ #{mod\ 3132}#)
+ #{nr\ 3153}#
+ #{nw\ 3152}#
+ #{mod\ 3132}#))))))))
+ (lambda (#{e\ 3156}#
+ #{r\ 3157}#
+ #{w\ 3158}#
+ #{s\ 3159}#
+ #{mod\ 3160}#)
+ ((lambda (#{tmp\ 3166}#)
+ ((lambda (#{tmp\ 3167}#)
+ (if (if #{tmp\ 3167}#
+ (apply (lambda (#{_\ 3173}#
+ #{id\ 3174}#
+ #{val\ 3175}#
+ #{e1\ 3176}#
+ #{e2\ 3177}#)
+ (and-map #{id?\ 260}# #{id\ 3174}#))
+ #{tmp\ 3167}#)
#f)
- (apply (lambda (#{_\ 1425}#
- #{id\ 1426}#
- #{val\ 1427}#
- #{e1\ 1428}#
- #{e2\ 1429}#)
- (#{chi-let\ 1397}#
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#
- #{build-let\ 108}#
- #{id\ 1426}#
- #{val\ 1427}#
- (cons #{e1\ 1428}# #{e2\ 1429}#)))
- #{tmp\ 1418}#)
- ((lambda (#{tmp\ 1433}#)
- (if (if #{tmp\ 1433}#
- (apply (lambda (#{_\ 1434}#
- #{f\ 1435}#
- #{id\ 1436}#
- #{val\ 1437}#
- #{e1\ 1438}#
- #{e2\ 1439}#)
- (if (#{id?\ 128}# #{f\ 1435}#)
- (and-map #{id?\ 128}# #{id\ 1436}#)
+ (apply (lambda (#{_\ 3184}#
+ #{id\ 3185}#
+ #{val\ 3186}#
+ #{e1\ 3187}#
+ #{e2\ 3188}#)
+ (#{chi-let\ 3127}#
+ #{e\ 3156}#
+ #{r\ 3157}#
+ #{w\ 3158}#
+ #{s\ 3159}#
+ #{mod\ 3160}#
+ #{build-let\ 214}#
+ #{id\ 3185}#
+ #{val\ 3186}#
+ (cons #{e1\ 3187}# #{e2\ 3188}#)))
+ #{tmp\ 3167}#)
+ ((lambda (#{tmp\ 3192}#)
+ (if (if #{tmp\ 3192}#
+ (apply (lambda (#{_\ 3199}#
+ #{f\ 3200}#
+ #{id\ 3201}#
+ #{val\ 3202}#
+ #{e1\ 3203}#
+ #{e2\ 3204}#)
+ (if (#{id?\ 260}# #{f\ 3200}#)
+ (and-map #{id?\ 260}# #{id\ 3201}#)
#f))
- #{tmp\ 1433}#)
+ #{tmp\ 3192}#)
#f)
- (apply (lambda (#{_\ 1441}#
- #{f\ 1442}#
- #{id\ 1443}#
- #{val\ 1444}#
- #{e1\ 1445}#
- #{e2\ 1446}#)
- (#{chi-let\ 1397}#
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#
- #{build-named-let\ 109}#
- (cons #{f\ 1442}# #{id\ 1443}#)
- #{val\ 1444}#
- (cons #{e1\ 1445}# #{e2\ 1446}#)))
- #{tmp\ 1433}#)
- ((lambda (#{_\ 1450}#)
+ (apply (lambda (#{_\ 3214}#
+ #{f\ 3215}#
+ #{id\ 3216}#
+ #{val\ 3217}#
+ #{e1\ 3218}#
+ #{e2\ 3219}#)
+ (#{chi-let\ 3127}#
+ #{e\ 3156}#
+ #{r\ 3157}#
+ #{w\ 3158}#
+ #{s\ 3159}#
+ #{mod\ 3160}#
+ #{build-named-let\ 216}#
+ (cons #{f\ 3215}# #{id\ 3216}#)
+ #{val\ 3217}#
+ (cons #{e1\ 3218}# #{e2\ 3219}#)))
+ #{tmp\ 3192}#)
+ ((lambda (#{_\ 3224}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 157}#
- #{e\ 1412}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)))
- #{tmp\ 1417}#)))
+ (#{source-wrap\ 331}#
+ #{e\ 3156}#
+ #{w\ 3158}#
+ #{s\ 3159}#
+ #{mod\ 3160}#)))
+ #{tmp\ 3166}#)))
($sc-dispatch
- #{tmp\ 1417}#
+ #{tmp\ 3166}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1417}#
+ #{tmp\ 3166}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1412}#))))
- (#{global-extend\ 126}#
+ #{e\ 3156}#))))
+ (#{global-extend\ 256}#
'core
'letrec
- (lambda (#{e\ 1451}#
- #{r\ 1452}#
- #{w\ 1453}#
- #{s\ 1454}#
- #{mod\ 1455}#)
- ((lambda (#{tmp\ 1456}#)
- ((lambda (#{tmp\ 1457}#)
- (if (if #{tmp\ 1457}#
- (apply (lambda (#{_\ 1458}#
- #{id\ 1459}#
- #{val\ 1460}#
- #{e1\ 1461}#
- #{e2\ 1462}#)
- (and-map #{id?\ 128}# #{id\ 1459}#))
- #{tmp\ 1457}#)
+ (lambda (#{e\ 3225}#
+ #{r\ 3226}#
+ #{w\ 3227}#
+ #{s\ 3228}#
+ #{mod\ 3229}#)
+ ((lambda (#{tmp\ 3235}#)
+ ((lambda (#{tmp\ 3236}#)
+ (if (if #{tmp\ 3236}#
+ (apply (lambda (#{_\ 3242}#
+ #{id\ 3243}#
+ #{val\ 3244}#
+ #{e1\ 3245}#
+ #{e2\ 3246}#)
+ (and-map #{id?\ 260}# #{id\ 3243}#))
+ #{tmp\ 3236}#)
#f)
- (apply (lambda (#{_\ 1464}#
- #{id\ 1465}#
- #{val\ 1466}#
- #{e1\ 1467}#
- #{e2\ 1468}#)
- (let ((#{ids\ 1469}# #{id\ 1465}#))
- (if (not (#{valid-bound-ids?\ 153}#
- #{ids\ 1469}#))
+ (apply (lambda (#{_\ 3253}#
+ #{id\ 3254}#
+ #{val\ 3255}#
+ #{e1\ 3256}#
+ #{e2\ 3257}#)
+ (let ((#{ids\ 3259}# #{id\ 3254}#))
+ (if (not (#{valid-bound-ids?\ 323}#
+ #{ids\ 3259}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 1451}#)
- (let ((#{labels\ 1471}#
- (#{gen-labels\ 134}# #{ids\ 1469}#))
- (#{new-vars\ 1472}#
- (map #{gen-var\ 178}# #{ids\ 1469}#)))
- (let ((#{w\ 1473}#
- (#{make-binding-wrap\ 145}#
- #{ids\ 1469}#
- #{labels\ 1471}#
- #{w\ 1453}#))
- (#{r\ 1474}#
- (#{extend-var-env\ 123}#
- #{labels\ 1471}#
- #{new-vars\ 1472}#
- #{r\ 1452}#)))
- (#{build-letrec\ 110}#
- #{s\ 1454}#
- (map syntax->datum #{ids\ 1469}#)
- #{new-vars\ 1472}#
- (map (lambda (#{x\ 1475}#)
- (#{chi\ 164}#
- #{x\ 1475}#
- #{r\ 1474}#
- #{w\ 1473}#
- #{mod\ 1455}#))
- #{val\ 1466}#)
- (#{chi-body\ 168}#
- (cons #{e1\ 1467}# #{e2\ 1468}#)
- (#{source-wrap\ 157}#
- #{e\ 1451}#
- #{w\ 1473}#
- #{s\ 1454}#
- #{mod\ 1455}#)
- #{r\ 1474}#
- #{w\ 1473}#
- #{mod\ 1455}#)))))))
- #{tmp\ 1457}#)
- ((lambda (#{_\ 1478}#)
+ #{e\ 3225}#)
+ (let ((#{labels\ 3263}#
+ (#{gen-labels\ 278}# #{ids\ 3259}#))
+ (#{new-vars\ 3264}#
+ (map #{gen-var\ 373}# #{ids\ 3259}#)))
+ (let ((#{w\ 3267}#
+ (#{make-binding-wrap\ 307}#
+ #{ids\ 3259}#
+ #{labels\ 3263}#
+ #{w\ 3227}#))
+ (#{r\ 3268}#
+ (#{extend-var-env\ 250}#
+ #{labels\ 3263}#
+ #{new-vars\ 3264}#
+ #{r\ 3226}#)))
+ (#{build-letrec\ 218}#
+ #{s\ 3228}#
+ (map syntax->datum #{ids\ 3259}#)
+ #{new-vars\ 3264}#
+ (map (lambda (#{x\ 3269}#)
+ (#{chi\ 345}#
+ #{x\ 3269}#
+ #{r\ 3268}#
+ #{w\ 3267}#
+ #{mod\ 3229}#))
+ #{val\ 3255}#)
+ (#{chi-body\ 353}#
+ (cons #{e1\ 3256}# #{e2\ 3257}#)
+ (#{source-wrap\ 331}#
+ #{e\ 3225}#
+ #{w\ 3267}#
+ #{s\ 3228}#
+ #{mod\ 3229}#)
+ #{r\ 3268}#
+ #{w\ 3267}#
+ #{mod\ 3229}#)))))))
+ #{tmp\ 3236}#)
+ ((lambda (#{_\ 3274}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 157}#
- #{e\ 1451}#
- #{w\ 1453}#
- #{s\ 1454}#
- #{mod\ 1455}#)))
- #{tmp\ 1456}#)))
+ (#{source-wrap\ 331}#
+ #{e\ 3225}#
+ #{w\ 3227}#
+ #{s\ 3228}#
+ #{mod\ 3229}#)))
+ #{tmp\ 3235}#)))
($sc-dispatch
- #{tmp\ 1456}#
+ #{tmp\ 3235}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1451}#)))
- (#{global-extend\ 126}#
+ #{e\ 3225}#)))
+ (#{global-extend\ 256}#
'core
'set!
- (lambda (#{e\ 1479}#
- #{r\ 1480}#
- #{w\ 1481}#
- #{s\ 1482}#
- #{mod\ 1483}#)
- ((lambda (#{tmp\ 1484}#)
- ((lambda (#{tmp\ 1485}#)
- (if (if #{tmp\ 1485}#
- (apply (lambda (#{_\ 1486}# #{id\ 1487}# #{val\ 1488}#)
- (#{id?\ 128}# #{id\ 1487}#))
- #{tmp\ 1485}#)
+ (lambda (#{e\ 3275}#
+ #{r\ 3276}#
+ #{w\ 3277}#
+ #{s\ 3278}#
+ #{mod\ 3279}#)
+ ((lambda (#{tmp\ 3285}#)
+ ((lambda (#{tmp\ 3286}#)
+ (if (if #{tmp\ 3286}#
+ (apply (lambda (#{_\ 3290}# #{id\ 3291}# #{val\ 3292}#)
+ (#{id?\ 260}# #{id\ 3291}#))
+ #{tmp\ 3286}#)
#f)
- (apply (lambda (#{_\ 1489}# #{id\ 1490}# #{val\ 1491}#)
- (let ((#{val\ 1492}#
- (#{chi\ 164}#
- #{val\ 1491}#
- #{r\ 1480}#
- #{w\ 1481}#
- #{mod\ 1483}#))
- (#{n\ 1493}#
- (#{id-var-name\ 150}#
- #{id\ 1490}#
- #{w\ 1481}#)))
- (let ((#{b\ 1494}#
- (#{lookup\ 125}#
- #{n\ 1493}#
- #{r\ 1480}#
- #{mod\ 1483}#)))
- (let ((#{atom-key\ 1495}#
- (#{binding-type\ 120}# #{b\ 1494}#)))
- (if (memv #{atom-key\ 1495}#
+ (apply (lambda (#{_\ 3296}# #{id\ 3297}# #{val\ 3298}#)
+ (let ((#{val\ 3301}#
+ (#{chi\ 345}#
+ #{val\ 3298}#
+ #{r\ 3276}#
+ #{w\ 3277}#
+ #{mod\ 3279}#))
+ (#{n\ 3302}#
+ (#{id-var-name\ 317}#
+ #{id\ 3297}#
+ #{w\ 3277}#)))
+ (let ((#{b\ 3304}#
+ (#{lookup\ 254}#
+ #{n\ 3302}#
+ #{r\ 3276}#
+ #{mod\ 3279}#)))
+ (let ((#{atom-key\ 3307}#
+ (#{binding-type\ 243}# #{b\ 3304}#)))
+ (if (memv #{atom-key\ 3307}#
'(lexical))
- (#{build-lexical-assignment\ 96}#
- #{s\ 1482}#
- (syntax->datum #{id\ 1490}#)
- (#{binding-value\ 121}# #{b\ 1494}#)
- #{val\ 1492}#)
- (if (memv #{atom-key\ 1495}#
+ (#{build-lexical-assignment\ 190}#
+ #{s\ 3278}#
+ (syntax->datum #{id\ 3297}#)
+ (#{binding-value\ 245}# #{b\ 3304}#)
+ #{val\ 3301}#)
+ (if (memv #{atom-key\ 3307}#
'(global))
- (#{build-global-assignment\ 99}#
- #{s\ 1482}#
- #{n\ 1493}#
- #{val\ 1492}#
- #{mod\ 1483}#)
- (if (memv #{atom-key\ 1495}#
+ (#{build-global-assignment\ 196}#
+ #{s\ 3278}#
+ #{n\ 3302}#
+ #{val\ 3301}#
+ #{mod\ 3279}#)
+ (if (memv #{atom-key\ 3307}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 156}#
- #{id\ 1490}#
- #{w\ 1481}#
- #{mod\ 1483}#))
+ (#{wrap\ 329}#
+ #{id\ 3297}#
+ #{w\ 3277}#
+ #{mod\ 3279}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 157}#
- #{e\ 1479}#
- #{w\ 1481}#
- #{s\ 1482}#
- #{mod\ 1483}#)))))))))
- #{tmp\ 1485}#)
- ((lambda (#{tmp\ 1496}#)
- (if #{tmp\ 1496}#
- (apply (lambda (#{_\ 1497}#
- #{head\ 1498}#
- #{tail\ 1499}#
- #{val\ 1500}#)
+ (#{source-wrap\ 331}#
+ #{e\ 3275}#
+ #{w\ 3277}#
+ #{s\ 3278}#
+ #{mod\ 3279}#)))))))))
+ #{tmp\ 3286}#)
+ ((lambda (#{tmp\ 3312}#)
+ (if #{tmp\ 3312}#
+ (apply (lambda (#{_\ 3317}#
+ #{head\ 3318}#
+ #{tail\ 3319}#
+ #{val\ 3320}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 162}#
- #{head\ 1498}#
- #{r\ 1480}#
+ (#{syntax-type\ 341}#
+ #{head\ 3318}#
+ #{r\ 3276}#
'(())
#f
#f
- #{mod\ 1483}#
+ #{mod\ 3279}#
#t))
- (lambda (#{type\ 1501}#
- #{value\ 1502}#
- #{ee\ 1503}#
- #{ww\ 1504}#
- #{ss\ 1505}#
- #{modmod\ 1506}#)
- (if (memv #{type\ 1501}#
+ (lambda (#{type\ 3323}#
+ #{value\ 3324}#
+ #{ee\ 3325}#
+ #{ww\ 3326}#
+ #{ss\ 3327}#
+ #{modmod\ 3328}#)
+ (if (memv #{type\ 3323}#
'(module-ref))
- (let ((#{val\ 1507}#
- (#{chi\ 164}#
- #{val\ 1500}#
- #{r\ 1480}#
- #{w\ 1481}#
- #{mod\ 1483}#)))
+ (let ((#{val\ 3337}#
+ (#{chi\ 345}#
+ #{val\ 3320}#
+ #{r\ 3276}#
+ #{w\ 3277}#
+ #{mod\ 3279}#)))
(call-with-values
(lambda ()
- (#{value\ 1502}#
- (cons #{head\ 1498}#
- #{tail\ 1499}#)))
- (lambda (#{id\ 1509}# #{mod\ 1510}#)
- (#{build-global-assignment\ 99}#
- #{s\ 1482}#
- #{id\ 1509}#
- #{val\ 1507}#
- #{mod\ 1510}#))))
- (#{build-application\ 93}#
- #{s\ 1482}#
- (#{chi\ 164}#
+ (#{value\ 3324}#
+ (cons #{head\ 3318}#
+ #{tail\ 3319}#)))
+ (lambda (#{id\ 3339}# #{mod\ 3340}#)
+ (#{build-global-assignment\ 196}#
+ #{s\ 3278}#
+ #{id\ 3339}#
+ #{val\ 3337}#
+ #{mod\ 3340}#))))
+ (#{build-application\ 184}#
+ #{s\ 3278}#
+ (#{chi\ 345}#
(list '#(syntax-object
setter
((top)
@@ -8985,19 +8948,22 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i"
- "i"
- "i"))
+ #("i3329"
+ "i3330"
+ "i3331"
+ "i3332"
+ "i3333"
+ "i3334"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i" "i" "i" "i"))
+ #("i3313"
+ "i3314"
+ "i3315"
+ "i3316"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9006,7 +8972,11 @@
(top)
(top)
(top))
- #("i" "i" "i" "i" "i"))
+ #("i3280"
+ "i3281"
+ "i3282"
+ "i3283"
+ "i3284"))
#(ribcage
(lambda-var-list
gen-var
@@ -9242,176 +9212,176 @@
(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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i" "i")))
+ ("i61" "i59")))
(hygiene guile))
- #{head\ 1498}#)
- #{r\ 1480}#
- #{w\ 1481}#
- #{mod\ 1483}#)
- (map (lambda (#{e\ 1511}#)
- (#{chi\ 164}#
- #{e\ 1511}#
- #{r\ 1480}#
- #{w\ 1481}#
- #{mod\ 1483}#))
+ #{head\ 3318}#)
+ #{r\ 3276}#
+ #{w\ 3277}#
+ #{mod\ 3279}#)
+ (map (lambda (#{e\ 3344}#)
+ (#{chi\ 345}#
+ #{e\ 3344}#
+ #{r\ 3276}#
+ #{w\ 3277}#
+ #{mod\ 3279}#))
(append
- #{tail\ 1499}#
- (list #{val\ 1500}#))))))))
- #{tmp\ 1496}#)
- ((lambda (#{_\ 1513}#)
+ #{tail\ 3319}#
+ (list #{val\ 3320}#))))))))
+ #{tmp\ 3312}#)
+ ((lambda (#{_\ 3348}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 157}#
- #{e\ 1479}#
- #{w\ 1481}#
- #{s\ 1482}#
- #{mod\ 1483}#)))
- #{tmp\ 1484}#)))
+ (#{source-wrap\ 331}#
+ #{e\ 3275}#
+ #{w\ 3277}#
+ #{s\ 3278}#
+ #{mod\ 3279}#)))
+ #{tmp\ 3285}#)))
($sc-dispatch
- #{tmp\ 1484}#
+ #{tmp\ 3285}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 1484}#
+ #{tmp\ 3285}#
'(any any any))))
- #{e\ 1479}#)))
- (#{global-extend\ 126}#
+ #{e\ 3275}#)))
+ (#{global-extend\ 256}#
'module-ref
'@
- (lambda (#{e\ 1514}#)
- ((lambda (#{tmp\ 1515}#)
- ((lambda (#{tmp\ 1516}#)
- (if (if #{tmp\ 1516}#
- (apply (lambda (#{_\ 1517}# #{mod\ 1518}# #{id\ 1519}#)
- (if (and-map #{id?\ 128}# #{mod\ 1518}#)
- (#{id?\ 128}# #{id\ 1519}#)
+ (lambda (#{e\ 3349}#)
+ ((lambda (#{tmp\ 3351}#)
+ ((lambda (#{tmp\ 3352}#)
+ (if (if #{tmp\ 3352}#
+ (apply (lambda (#{_\ 3356}# #{mod\ 3357}# #{id\ 3358}#)
+ (if (and-map #{id?\ 260}# #{mod\ 3357}#)
+ (#{id?\ 260}# #{id\ 3358}#)
#f))
- #{tmp\ 1516}#)
+ #{tmp\ 3352}#)
#f)
- (apply (lambda (#{_\ 1521}# #{mod\ 1522}# #{id\ 1523}#)
+ (apply (lambda (#{_\ 3365}# #{mod\ 3366}# #{id\ 3367}#)
(values
- (syntax->datum #{id\ 1523}#)
+ (syntax->datum #{id\ 3367}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -9419,9 +9389,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i" "i" "i"))
+ #("i3362" "i3363" "i3364"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i"))
+ #(ribcage #(e) #((top)) #("i3350"))
#(ribcage
(lambda-var-list
gen-var
@@ -9657,154 +9627,154 @@
(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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i" "i")))
+ ("i61" "i59")))
(hygiene guile))
- #{mod\ 1522}#))))
- #{tmp\ 1516}#)
+ #{mod\ 3366}#))))
+ #{tmp\ 3352}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1515}#)))
+ #{tmp\ 3351}#)))
($sc-dispatch
- #{tmp\ 1515}#
+ #{tmp\ 3351}#
'(any each-any any))))
- #{e\ 1514}#)))
- (#{global-extend\ 126}#
+ #{e\ 3349}#)))
+ (#{global-extend\ 256}#
'module-ref
'@@
- (lambda (#{e\ 1525}#)
- ((lambda (#{tmp\ 1526}#)
- ((lambda (#{tmp\ 1527}#)
- (if (if #{tmp\ 1527}#
- (apply (lambda (#{_\ 1528}# #{mod\ 1529}# #{id\ 1530}#)
- (if (and-map #{id?\ 128}# #{mod\ 1529}#)
- (#{id?\ 128}# #{id\ 1530}#)
+ (lambda (#{e\ 3369}#)
+ ((lambda (#{tmp\ 3371}#)
+ ((lambda (#{tmp\ 3372}#)
+ (if (if #{tmp\ 3372}#
+ (apply (lambda (#{_\ 3376}# #{mod\ 3377}# #{id\ 3378}#)
+ (if (and-map #{id?\ 260}# #{mod\ 3377}#)
+ (#{id?\ 260}# #{id\ 3378}#)
#f))
- #{tmp\ 1527}#)
+ #{tmp\ 3372}#)
#f)
- (apply (lambda (#{_\ 1532}# #{mod\ 1533}# #{id\ 1534}#)
+ (apply (lambda (#{_\ 3385}# #{mod\ 3386}# #{id\ 3387}#)
(values
- (syntax->datum #{id\ 1534}#)
+ (syntax->datum #{id\ 3387}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -9812,9 +9782,9 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i" "i" "i"))
+ #("i3382" "i3383" "i3384"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i"))
+ #(ribcage #(e) #((top)) #("i3370"))
#(ribcage
(lambda-var-list
gen-var
@@ -10050,252 +10020,252 @@
(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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i" "i")))
+ ("i61" "i59")))
(hygiene guile))
- #{mod\ 1533}#))))
- #{tmp\ 1527}#)
+ #{mod\ 3386}#))))
+ #{tmp\ 3372}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1526}#)))
+ #{tmp\ 3371}#)))
($sc-dispatch
- #{tmp\ 1526}#
+ #{tmp\ 3371}#
'(any each-any any))))
- #{e\ 1525}#)))
- (#{global-extend\ 126}#
+ #{e\ 3369}#)))
+ (#{global-extend\ 256}#
'core
'if
- (lambda (#{e\ 1536}#
- #{r\ 1537}#
- #{w\ 1538}#
- #{s\ 1539}#
- #{mod\ 1540}#)
- ((lambda (#{tmp\ 1541}#)
- ((lambda (#{tmp\ 1542}#)
- (if #{tmp\ 1542}#
- (apply (lambda (#{_\ 1543}# #{test\ 1544}# #{then\ 1545}#)
- (#{build-conditional\ 94}#
- #{s\ 1539}#
- (#{chi\ 164}#
- #{test\ 1544}#
- #{r\ 1537}#
- #{w\ 1538}#
- #{mod\ 1540}#)
- (#{chi\ 164}#
- #{then\ 1545}#
- #{r\ 1537}#
- #{w\ 1538}#
- #{mod\ 1540}#)
- (#{build-void\ 92}# #f)))
- #{tmp\ 1542}#)
- ((lambda (#{tmp\ 1546}#)
- (if #{tmp\ 1546}#
- (apply (lambda (#{_\ 1547}#
- #{test\ 1548}#
- #{then\ 1549}#
- #{else\ 1550}#)
- (#{build-conditional\ 94}#
- #{s\ 1539}#
- (#{chi\ 164}#
- #{test\ 1548}#
- #{r\ 1537}#
- #{w\ 1538}#
- #{mod\ 1540}#)
- (#{chi\ 164}#
- #{then\ 1549}#
- #{r\ 1537}#
- #{w\ 1538}#
- #{mod\ 1540}#)
- (#{chi\ 164}#
- #{else\ 1550}#
- #{r\ 1537}#
- #{w\ 1538}#
- #{mod\ 1540}#)))
- #{tmp\ 1546}#)
+ (lambda (#{e\ 3389}#
+ #{r\ 3390}#
+ #{w\ 3391}#
+ #{s\ 3392}#
+ #{mod\ 3393}#)
+ ((lambda (#{tmp\ 3399}#)
+ ((lambda (#{tmp\ 3400}#)
+ (if #{tmp\ 3400}#
+ (apply (lambda (#{_\ 3404}# #{test\ 3405}# #{then\ 3406}#)
+ (#{build-conditional\ 186}#
+ #{s\ 3392}#
+ (#{chi\ 345}#
+ #{test\ 3405}#
+ #{r\ 3390}#
+ #{w\ 3391}#
+ #{mod\ 3393}#)
+ (#{chi\ 345}#
+ #{then\ 3406}#
+ #{r\ 3390}#
+ #{w\ 3391}#
+ #{mod\ 3393}#)
+ (#{build-void\ 182}# #f)))
+ #{tmp\ 3400}#)
+ ((lambda (#{tmp\ 3408}#)
+ (if #{tmp\ 3408}#
+ (apply (lambda (#{_\ 3413}#
+ #{test\ 3414}#
+ #{then\ 3415}#
+ #{else\ 3416}#)
+ (#{build-conditional\ 186}#
+ #{s\ 3392}#
+ (#{chi\ 345}#
+ #{test\ 3414}#
+ #{r\ 3390}#
+ #{w\ 3391}#
+ #{mod\ 3393}#)
+ (#{chi\ 345}#
+ #{then\ 3415}#
+ #{r\ 3390}#
+ #{w\ 3391}#
+ #{mod\ 3393}#)
+ (#{chi\ 345}#
+ #{else\ 3416}#
+ #{r\ 3390}#
+ #{w\ 3391}#
+ #{mod\ 3393}#)))
+ #{tmp\ 3408}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1541}#)))
+ #{tmp\ 3399}#)))
($sc-dispatch
- #{tmp\ 1541}#
+ #{tmp\ 3399}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 1541}#
+ #{tmp\ 3399}#
'(any any any))))
- #{e\ 1536}#)))
- (#{global-extend\ 126}#
+ #{e\ 3389}#)))
+ (#{global-extend\ 256}#
'begin
'begin
'())
- (#{global-extend\ 126}#
+ (#{global-extend\ 256}#
'define
'define
'())
- (#{global-extend\ 126}#
+ (#{global-extend\ 256}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 126}#
+ (#{global-extend\ 256}#
'eval-when
'eval-when
'())
- (#{global-extend\ 126}#
+ (#{global-extend\ 256}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 1554}#
- (lambda (#{x\ 1555}#
- #{keys\ 1556}#
- #{clauses\ 1557}#
- #{r\ 1558}#
- #{mod\ 1559}#)
- (if (null? #{clauses\ 1557}#)
- (#{build-application\ 93}#
+ (letrec ((#{gen-syntax-case\ 3424}#
+ (lambda (#{x\ 3425}#
+ #{keys\ 3426}#
+ #{clauses\ 3427}#
+ #{r\ 3428}#
+ #{mod\ 3429}#)
+ (if (null? #{clauses\ 3427}#)
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'syntax-violation)
- (list (#{build-data\ 106}# #f #f)
- (#{build-data\ 106}#
+ (list (#{build-data\ 210}# #f #f)
+ (#{build-data\ 210}#
#f
"source expression failed to match any
pattern")
- #{x\ 1555}#))
- ((lambda (#{tmp\ 1560}#)
- ((lambda (#{tmp\ 1561}#)
- (if #{tmp\ 1561}#
- (apply (lambda (#{pat\ 1562}# #{exp\ 1563}#)
- (if (if (#{id?\ 128}# #{pat\ 1562}#)
+ #{x\ 3425}#))
+ ((lambda (#{tmp\ 3439}#)
+ ((lambda (#{tmp\ 3440}#)
+ (if #{tmp\ 3440}#
+ (apply (lambda (#{pat\ 3443}# #{exp\ 3444}#)
+ (if (if (#{id?\ 260}# #{pat\ 3443}#)
(and-map
- (lambda (#{x\ 1564}#)
- (not (#{free-id=?\ 151}#
- #{pat\ 1562}#
- #{x\ 1564}#)))
+ (lambda (#{x\ 3447}#)
+ (not (#{free-id=?\ 319}#
+ #{pat\ 3443}#
+ #{x\ 3447}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i" "i"))
+ #("i3441" "i3442"))
#(ribcage () () ())
#(ribcage
#(x
@@ -10308,11 +10278,11 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i"
- "i"))
+ #("i3430"
+ "i3431"
+ "i3432"
+ "i3433"
+ "i3434"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10322,7 +10292,10 @@
(top)
(top)
(top))
- ("i" "i" "i" "i"))
+ ("i3423"
+ "i3421"
+ "i3419"
+ "i3417"))
#(ribcage
(lambda-var-list
gen-var
@@ -10558,1026 +10531,1026 @@
(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"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
+ ("i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i356"
+ "i354"
+ "i352"
+ "i350"
+ "i348"
+ "i346"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i328"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i303"
+ "i302"
+ "i300"
+ "i299"
+ "i298"
+ "i297"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i277"
+ "i275"
+ "i274"
+ "i273"
+ "i272"
+ "i271"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i246"
+ "i244"
+ "i242"
+ "i241"
+ "i240"
+ "i238"
+ "i237"
+ "i235"
+ "i233"
+ "i231"
+ "i229"
+ "i227"
+ "i225"
+ "i223"
+ "i221"
+ "i219"
+ "i217"
+ "i215"
+ "i213"
+ "i211"
+ "i209"
+ "i207"
+ "i205"
+ "i203"
+ "i201"
+ "i199"
+ "i197"
+ "i195"
+ "i193"
+ "i191"
+ "i189"
+ "i187"
+ "i185"
+ "i183"
+ "i181"
+ "i179"
+ "i177"
+ "i175"
+ "i174"
+ "i172"
+ "i170"
+ "i168"
+ "i166"
+ "i164"
+ "i162"
+ "i160"
+ "i158"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i" "i")))
+ ("i61" "i59")))
(hygiene guile))
- #{keys\ 1556}#))
+ #{keys\ 3426}#))
#f)
- (let ((#{labels\ 1565}#
- (list (#{gen-label\ 133}#)))
- (#{var\ 1566}#
- (#{gen-var\ 178}#
- #{pat\ 1562}#)))
- (#{build-application\ 93}#
+ (let ((#{labels\ 3451}#
+ (list (#{gen-label\ 276}#)))
+ (#{var\ 3452}#
+ (#{gen-var\ 373}#
+ #{pat\ 3443}#)))
+ (#{build-application\ 184}#
#f
- (#{build-simple-lambda\ 102}#
+ (#{build-simple-lambda\ 202}#
#f
(list (syntax->datum
- #{pat\ 1562}#))
+ #{pat\ 3443}#))
#f
- (list #{var\ 1566}#)
+ (list #{var\ 3452}#)
#f
- (#{chi\ 164}#
- #{exp\ 1563}#
- (#{extend-env\ 122}#
- #{labels\ 1565}#
+ (#{chi\ 345}#
+ #{exp\ 3444}#
+ (#{extend-env\ 248}#
+ #{labels\ 3451}#
(list (cons 'syntax
- (cons #{var\
1566}#
+ (cons #{var\
3452}#
0)))
- #{r\ 1558}#)
- (#{make-binding-wrap\ 145}#
- (list #{pat\ 1562}#)
- #{labels\ 1565}#
+ #{r\ 3428}#)
+ (#{make-binding-wrap\ 307}#
+ (list #{pat\ 3443}#)
+ #{labels\ 3451}#
'(()))
- #{mod\ 1559}#))
- (list #{x\ 1555}#)))
- (#{gen-clause\ 1553}#
- #{x\ 1555}#
- #{keys\ 1556}#
- (cdr #{clauses\ 1557}#)
- #{r\ 1558}#
- #{pat\ 1562}#
+ #{mod\ 3429}#))
+ (list #{x\ 3425}#)))
+ (#{gen-clause\ 3422}#
+ #{x\ 3425}#
+ #{keys\ 3426}#
+ (cdr #{clauses\ 3427}#)
+ #{r\ 3428}#
+ #{pat\ 3443}#
#t
- #{exp\ 1563}#
- #{mod\ 1559}#)))
- #{tmp\ 1561}#)
- ((lambda (#{tmp\ 1567}#)
- (if #{tmp\ 1567}#
- (apply (lambda (#{pat\ 1568}#
- #{fender\ 1569}#
- #{exp\ 1570}#)
- (#{gen-clause\ 1553}#
- #{x\ 1555}#
- #{keys\ 1556}#
- (cdr #{clauses\ 1557}#)
- #{r\ 1558}#
- #{pat\ 1568}#
- #{fender\ 1569}#
- #{exp\ 1570}#
- #{mod\ 1559}#))
- #{tmp\ 1567}#)
- ((lambda (#{_\ 1571}#)
+ #{exp\ 3444}#
+ #{mod\ 3429}#)))
+ #{tmp\ 3440}#)
+ ((lambda (#{tmp\ 3458}#)
+ (if #{tmp\ 3458}#
+ (apply (lambda (#{pat\ 3462}#
+ #{fender\ 3463}#
+ #{exp\ 3464}#)
+ (#{gen-clause\ 3422}#
+ #{x\ 3425}#
+ #{keys\ 3426}#
+ (cdr #{clauses\ 3427}#)
+ #{r\ 3428}#
+ #{pat\ 3462}#
+ #{fender\ 3463}#
+ #{exp\ 3464}#
+ #{mod\ 3429}#))
+ #{tmp\ 3458}#)
+ ((lambda (#{_\ 3466}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 1557}#)))
- #{tmp\ 1560}#)))
+ (car #{clauses\ 3427}#)))
+ #{tmp\ 3439}#)))
($sc-dispatch
- #{tmp\ 1560}#
+ #{tmp\ 3439}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 1560}# (quote (any any)))))
- (car #{clauses\ 1557}#)))))
- (#{gen-clause\ 1553}#
- (lambda (#{x\ 1572}#
- #{keys\ 1573}#
- #{clauses\ 1574}#
- #{r\ 1575}#
- #{pat\ 1576}#
- #{fender\ 1577}#
- #{exp\ 1578}#
- #{mod\ 1579}#)
+ ($sc-dispatch #{tmp\ 3439}# (quote (any any)))))
+ (car #{clauses\ 3427}#)))))
+ (#{gen-clause\ 3422}#
+ (lambda (#{x\ 3467}#
+ #{keys\ 3468}#
+ #{clauses\ 3469}#
+ #{r\ 3470}#
+ #{pat\ 3471}#
+ #{fender\ 3472}#
+ #{exp\ 3473}#
+ #{mod\ 3474}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 1551}#
- #{pat\ 1576}#
- #{keys\ 1573}#))
- (lambda (#{p\ 1580}# #{pvars\ 1581}#)
- (if (not (#{distinct-bound-ids?\ 154}#
- (map car #{pvars\ 1581}#)))
+ (#{convert-pattern\ 3418}#
+ #{pat\ 3471}#
+ #{keys\ 3468}#))
+ (lambda (#{p\ 3483}# #{pvars\ 3484}#)
+ (if (not (#{distinct-bound-ids?\ 325}#
+ (map car #{pvars\ 3484}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 1576}#)
+ #{pat\ 3471}#)
(if (not (and-map
- (lambda (#{x\ 1582}#)
- (not (#{ellipsis?\ 172}#
- (car #{x\ 1582}#))))
- #{pvars\ 1581}#))
+ (lambda (#{x\ 3491}#)
+ (not (#{ellipsis?\ 361}#
+ (car #{x\ 3491}#))))
+ #{pvars\ 3484}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 1576}#)
- (let ((#{y\ 1583}#
- (#{gen-var\ 178}# (quote tmp))))
- (#{build-application\ 93}#
+ #{pat\ 3471}#)
+ (let ((#{y\ 3495}#
+ (#{gen-var\ 373}# (quote tmp))))
+ (#{build-application\ 184}#
#f
- (#{build-simple-lambda\ 102}#
+ (#{build-simple-lambda\ 202}#
#f
(list (quote tmp))
#f
- (list #{y\ 1583}#)
+ (list #{y\ 3495}#)
#f
- (let ((#{y\ 1584}#
- (#{build-lexical-reference\ 95}#
+ (let ((#{y\ 3499}#
+ (#{build-lexical-reference\ 188}#
'value
#f
'tmp
- #{y\ 1583}#)))
- (#{build-conditional\ 94}#
+ #{y\ 3495}#)))
+ (#{build-conditional\ 186}#
#f
- ((lambda (#{tmp\ 1585}#)
- ((lambda (#{tmp\ 1586}#)
- (if #{tmp\ 1586}#
- (apply (lambda () #{y\ 1584}#)
- #{tmp\ 1586}#)
- ((lambda (#{_\ 1587}#)
- (#{build-conditional\ 94}#
+ ((lambda (#{tmp\ 3502}#)
+ ((lambda (#{tmp\ 3503}#)
+ (if #{tmp\ 3503}#
+ (apply (lambda () #{y\ 3499}#)
+ #{tmp\ 3503}#)
+ ((lambda (#{_\ 3505}#)
+ (#{build-conditional\ 186}#
#f
- #{y\ 1584}#
- (#{build-dispatch-call\
1552}#
- #{pvars\ 1581}#
- #{fender\ 1577}#
- #{y\ 1584}#
- #{r\ 1575}#
- #{mod\ 1579}#)
- (#{build-data\ 106}#
+ #{y\ 3499}#
+ (#{build-dispatch-call\
3420}#
+ #{pvars\ 3484}#
+ #{fender\ 3472}#
+ #{y\ 3499}#
+ #{r\ 3470}#
+ #{mod\ 3474}#)
+ (#{build-data\ 210}#
#f
#f)))
- #{tmp\ 1585}#)))
+ #{tmp\ 3502}#)))
($sc-dispatch
- #{tmp\ 1585}#
+ #{tmp\ 3502}#
'#(atom #t))))
- #{fender\ 1577}#)
- (#{build-dispatch-call\ 1552}#
- #{pvars\ 1581}#
- #{exp\ 1578}#
- #{y\ 1584}#
- #{r\ 1575}#
- #{mod\ 1579}#)
- (#{gen-syntax-case\ 1554}#
- #{x\ 1572}#
- #{keys\ 1573}#
- #{clauses\ 1574}#
- #{r\ 1575}#
- #{mod\ 1579}#))))
- (list (if (eq? #{p\ 1580}# (quote any))
- (#{build-application\ 93}#
+ #{fender\ 3472}#)
+ (#{build-dispatch-call\ 3420}#
+ #{pvars\ 3484}#
+ #{exp\ 3473}#
+ #{y\ 3499}#
+ #{r\ 3470}#
+ #{mod\ 3474}#)
+ (#{gen-syntax-case\ 3424}#
+ #{x\ 3467}#
+ #{keys\ 3468}#
+ #{clauses\ 3469}#
+ #{r\ 3470}#
+ #{mod\ 3474}#))))
+ (list (if (eq? #{p\ 3483}# (quote any))
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'list)
- (list #{x\ 1572}#))
- (#{build-application\ 93}#
+ (list #{x\ 3467}#))
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}#
+ (#{build-primref\ 208}#
#f
'$sc-dispatch)
- (list #{x\ 1572}#
- (#{build-data\ 106}#
+ (list #{x\ 3467}#
+ (#{build-data\ 210}#
#f
- #{p\ 1580}#)))))))))))))
- (#{build-dispatch-call\ 1552}#
- (lambda (#{pvars\ 1588}#
- #{exp\ 1589}#
- #{y\ 1590}#
- #{r\ 1591}#
- #{mod\ 1592}#)
- (let ((#{ids\ 1593}# (map car #{pvars\ 1588}#))
- (#{levels\ 1594}# (map cdr #{pvars\ 1588}#)))
- (let ((#{labels\ 1595}#
- (#{gen-labels\ 134}# #{ids\ 1593}#))
- (#{new-vars\ 1596}#
- (map #{gen-var\ 178}# #{ids\ 1593}#)))
- (#{build-application\ 93}#
+ #{p\ 3483}#)))))))))))))
+ (#{build-dispatch-call\ 3420}#
+ (lambda (#{pvars\ 3513}#
+ #{exp\ 3514}#
+ #{y\ 3515}#
+ #{r\ 3516}#
+ #{mod\ 3517}#)
+ (let ((#{ids\ 3525}# (map car #{pvars\ 3513}#))
+ (#{levels\ 3526}# (map cdr #{pvars\ 3513}#)))
+ (let ((#{labels\ 3529}#
+ (#{gen-labels\ 278}# #{ids\ 3525}#))
+ (#{new-vars\ 3530}#
+ (map #{gen-var\ 373}# #{ids\ 3525}#)))
+ (#{build-application\ 184}#
#f
- (#{build-primref\ 105}# #f (quote apply))
- (list (#{build-simple-lambda\ 102}#
+ (#{build-primref\ 208}# #f (quote apply))
+ (list (#{build-simple-lambda\ 202}#
#f
- (map syntax->datum #{ids\ 1593}#)
+ (map syntax->datum #{ids\ 3525}#)
#f
- #{new-vars\ 1596}#
+ #{new-vars\ 3530}#
#f
- (#{chi\ 164}#
- #{exp\ 1589}#
- (#{extend-env\ 122}#
- #{labels\ 1595}#
- (map (lambda (#{var\ 1597}#
- #{level\ 1598}#)
+ (#{chi\ 345}#
+ #{exp\ 3514}#
+ (#{extend-env\ 248}#
+ #{labels\ 3529}#
+ (map (lambda (#{var\ 3534}#
+ #{level\ 3535}#)
(cons 'syntax
- (cons #{var\ 1597}#
- #{level\ 1598}#)))
- #{new-vars\ 1596}#
- (map cdr #{pvars\ 1588}#))
- #{r\ 1591}#)
- (#{make-binding-wrap\ 145}#
- #{ids\ 1593}#
- #{labels\ 1595}#
+ (cons #{var\ 3534}#
+ #{level\ 3535}#)))
+ #{new-vars\ 3530}#
+ (map cdr #{pvars\ 3513}#))
+ #{r\ 3516}#)
+ (#{make-binding-wrap\ 307}#
+ #{ids\ 3525}#
+ #{labels\ 3529}#
'(()))
- #{mod\ 1592}#))
- #{y\ 1590}#))))))
- (#{convert-pattern\ 1551}#
- (lambda (#{pattern\ 1599}# #{keys\ 1600}#)
- (letrec ((#{cvt\ 1602}#
- (lambda (#{p\ 1603}# #{n\ 1604}# #{ids\ 1605}#)
- (if (#{id?\ 128}# #{p\ 1603}#)
- (if (#{bound-id-member?\ 155}#
- #{p\ 1603}#
- #{keys\ 1600}#)
+ #{mod\ 3517}#))
+ #{y\ 3515}#))))))
+ (#{convert-pattern\ 3418}#
+ (lambda (#{pattern\ 3541}# #{keys\ 3542}#)
+ (letrec ((#{cvt\ 3548}#
+ (lambda (#{p\ 3549}# #{n\ 3550}# #{ids\ 3551}#)
+ (if (#{id?\ 260}# #{p\ 3549}#)
+ (if (#{bound-id-member?\ 327}#
+ #{p\ 3549}#
+ #{keys\ 3542}#)
(values
- (vector (quote free-id) #{p\ 1603}#)
- #{ids\ 1605}#)
+ (vector (quote free-id) #{p\ 3549}#)
+ #{ids\ 3551}#)
(values
'any
- (cons (cons #{p\ 1603}# #{n\ 1604}#)
- #{ids\ 1605}#)))
- ((lambda (#{tmp\ 1606}#)
- ((lambda (#{tmp\ 1607}#)
- (if (if #{tmp\ 1607}#
- (apply (lambda (#{x\ 1608}#
- #{dots\ 1609}#)
- (#{ellipsis?\ 172}#
- #{dots\ 1609}#))
- #{tmp\ 1607}#)
+ (cons (cons #{p\ 3549}# #{n\ 3550}#)
+ #{ids\ 3551}#)))
+ ((lambda (#{tmp\ 3555}#)
+ ((lambda (#{tmp\ 3556}#)
+ (if (if #{tmp\ 3556}#
+ (apply (lambda (#{x\ 3559}#
+ #{dots\ 3560}#)
+ (#{ellipsis?\ 361}#
+ #{dots\ 3560}#))
+ #{tmp\ 3556}#)
#f)
- (apply (lambda (#{x\ 1610}#
- #{dots\ 1611}#)
+ (apply (lambda (#{x\ 3563}#
+ #{dots\ 3564}#)
(call-with-values
(lambda ()
- (#{cvt\ 1602}#
- #{x\ 1610}#
- (#{fx+\ 83}#
- #{n\ 1604}#
+ (#{cvt\ 3548}#
+ #{x\ 3563}#
+ (#{fx+\ 163}#
+ #{n\ 3550}#
1)
- #{ids\ 1605}#))
- (lambda (#{p\ 1612}#
- #{ids\ 1613}#)
+ #{ids\ 3551}#))
+ (lambda (#{p\ 3565}#
+ #{ids\ 3566}#)
(values
- (if (eq? #{p\ 1612}#
+ (if (eq? #{p\ 3565}#
'any)
'each-any
(vector
'each
- #{p\ 1612}#))
- #{ids\ 1613}#))))
- #{tmp\ 1607}#)
- ((lambda (#{tmp\ 1614}#)
- (if (if #{tmp\ 1614}#
- (apply (lambda (#{x\
1615}#
- #{dots\
1616}#
- #{ys\
1617}#)
- (#{ellipsis?\
172}#
- #{dots\
1616}#))
- #{tmp\ 1614}#)
+ #{p\ 3565}#))
+ #{ids\ 3566}#))))
+ #{tmp\ 3556}#)
+ ((lambda (#{tmp\ 3569}#)
+ (if (if #{tmp\ 3569}#
+ (apply (lambda (#{x\
3573}#
+ #{dots\
3574}#
+ #{ys\
3575}#)
+ (#{ellipsis?\
361}#
+ #{dots\
3574}#))
+ #{tmp\ 3569}#)
#f)
- (apply (lambda (#{x\ 1618}#
- #{dots\ 1619}#
- #{ys\ 1620}#)
+ (apply (lambda (#{x\ 3579}#
+ #{dots\ 3580}#
+ #{ys\ 3581}#)
(call-with-values
(lambda ()
- (#{cvt*\ 1601}#
- #{ys\ 1620}#
- #{n\ 1604}#
- #{ids\ 1605}#))
- (lambda (#{ys\
1622}#
- #{ids\
1623}#)
+ (#{cvt*\ 3546}#
+ #{ys\ 3581}#
+ #{n\ 3550}#
+ #{ids\ 3551}#))
+ (lambda (#{ys\
3583}#
+ #{ids\
3584}#)
(call-with-values
(lambda ()
- (#{cvt\
1602}#
- #{x\ 1618}#
- (+ #{n\
1604}#
+ (#{cvt\
3548}#
+ #{x\ 3579}#
+ (+ #{n\
3550}#
1)
- #{ids\
1623}#))
- (lambda (#{x\
1624}#
-
#{ids\ 1625}#)
+ #{ids\
3584}#))
+ (lambda (#{x\
3587}#
+
#{ids\ 3588}#)
(values
(list->vector
(cons
'each+
-
(cons #{x\ 1624}#
+
(cons #{x\ 3587}#
(cons (reverse
-
#{ys\ 1622}#)
+
#{ys\ 3583}#)
'(())))))
- #{ids\
1625}#))))))
- #{tmp\ 1614}#)
- ((lambda (#{tmp\ 1626}#)
- (if #{tmp\ 1626}#
- (apply (lambda (#{x\
1627}#
- #{y\
1628}#)
+ #{ids\
3588}#))))))
+ #{tmp\ 3569}#)
+ ((lambda (#{tmp\ 3592}#)
+ (if #{tmp\ 3592}#
+ (apply (lambda (#{x\
3595}#
+ #{y\
3596}#)
(call-with-values
(lambda ()
- (#{cvt\
1602}#
- #{y\
1628}#
- #{n\
1604}#
- #{ids\
1605}#))
- (lambda (#{y\
1629}#
-
#{ids\ 1630}#)
+ (#{cvt\
3548}#
+ #{y\
3596}#
+ #{n\
3550}#
+ #{ids\
3551}#))
+ (lambda (#{y\
3597}#
+
#{ids\ 3598}#)
(call-with-values
(lambda ()
- (#{cvt\
1602}#
- #{x\
1627}#
- #{n\
1604}#
-
#{ids\ 1630}#))
- (lambda
(#{x\ 1631}#
-
#{ids\ 1632}#)
+ (#{cvt\
3548}#
+ #{x\
3595}#
+ #{n\
3550}#
+
#{ids\ 3598}#))
+ (lambda
(#{x\ 3601}#
+
#{ids\ 3602}#)
(values
- (cons
#{x\ 1631}#
-
#{y\ 1629}#)
-
#{ids\ 1632}#))))))
- #{tmp\ 1626}#)
- ((lambda (#{tmp\ 1633}#)
- (if #{tmp\ 1633}#
+ (cons
#{x\ 3601}#
+
#{y\ 3597}#)
+
#{ids\ 3602}#))))))
+ #{tmp\ 3592}#)
+ ((lambda (#{tmp\ 3605}#)
+ (if #{tmp\ 3605}#
(apply (lambda ()
(values
'()
- #{ids\
1605}#))
- #{tmp\
1633}#)
- ((lambda (#{tmp\
1634}#)
- (if #{tmp\ 1634}#
- (apply (lambda
(#{x\ 1635}#)
+ #{ids\
3551}#))
+ #{tmp\
3605}#)
+ ((lambda (#{tmp\
3606}#)
+ (if #{tmp\ 3606}#
+ (apply (lambda
(#{x\ 3608}#)
(call-with-values
(lambda ()
-
(#{cvt\ 1602}#
-
#{x\ 1635}#
-
#{n\ 1604}#
-
#{ids\ 1605}#))
-
(lambda (#{p\ 1637}#
-
#{ids\ 1638}#)
+
(#{cvt\ 3548}#
+
#{x\ 3608}#
+
#{n\ 3550}#
+
#{ids\ 3551}#))
+
(lambda (#{p\ 3610}#
+
#{ids\ 3611}#)
(values
(vector
'vector
-
#{p\ 1637}#)
-
#{ids\ 1638}#))))
- #{tmp\
1634}#)
- ((lambda (#{x\
1639}#)
+
#{p\ 3610}#)
+
#{ids\ 3611}#))))
+ #{tmp\
3606}#)
+ ((lambda (#{x\
3615}#)
(values
(vector
'atom
-
(#{strip\ 177}#
- #{p\
1603}#
+
(#{strip\ 371}#
+ #{p\
3549}#
'(())))
- #{ids\
1605}#))
- #{tmp\
1606}#)))
+ #{ids\
3551}#))
+ #{tmp\
3555}#)))
($sc-dispatch
- #{tmp\ 1606}#
+ #{tmp\ 3555}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 1606}#
+ #{tmp\ 3555}#
'()))))
($sc-dispatch
- #{tmp\ 1606}#
+ #{tmp\ 3555}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1606}#
+ #{tmp\ 3555}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 1606}#
+ #{tmp\ 3555}#
'(any any))))
- #{p\ 1603}#))))
- (#{cvt*\ 1601}#
- (lambda (#{p*\ 1640}#
- #{n\ 1641}#
- #{ids\ 1642}#)
- (if (null? #{p*\ 1640}#)
- (values (quote ()) #{ids\ 1642}#)
+ #{p\ 3549}#))))
+ (#{cvt*\ 3546}#
+ (lambda (#{p*\ 3617}#
+ #{n\ 3618}#
+ #{ids\ 3619}#)
+ (if (null? #{p*\ 3617}#)
+ (values (quote ()) #{ids\ 3619}#)
(call-with-values
(lambda ()
- (#{cvt*\ 1601}#
- (cdr #{p*\ 1640}#)
- #{n\ 1641}#
- #{ids\ 1642}#))
- (lambda (#{y\ 1643}# #{ids\ 1644}#)
+ (#{cvt*\ 3546}#
+ (cdr #{p*\ 3617}#)
+ #{n\ 3618}#
+ #{ids\ 3619}#))
+ (lambda (#{y\ 3623}# #{ids\ 3624}#)
(call-with-values
(lambda ()
- (#{cvt\ 1602}#
- (car #{p*\ 1640}#)
- #{n\ 1641}#
- #{ids\ 1644}#))
- (lambda (#{x\ 1645}# #{ids\ 1646}#)
+ (#{cvt\ 3548}#
+ (car #{p*\ 3617}#)
+ #{n\ 3618}#
+ #{ids\ 3624}#))
+ (lambda (#{x\ 3627}# #{ids\ 3628}#)
(values
- (cons #{x\ 1645}# #{y\ 1643}#)
- #{ids\ 1646}#)))))))))
- (#{cvt\ 1602}# #{pattern\ 1599}# 0 (quote ()))))))
- (lambda (#{e\ 1647}#
- #{r\ 1648}#
- #{w\ 1649}#
- #{s\ 1650}#
- #{mod\ 1651}#)
- (let ((#{e\ 1652}#
- (#{source-wrap\ 157}#
- #{e\ 1647}#
- #{w\ 1649}#
- #{s\ 1650}#
- #{mod\ 1651}#)))
- ((lambda (#{tmp\ 1653}#)
- ((lambda (#{tmp\ 1654}#)
- (if #{tmp\ 1654}#
- (apply (lambda (#{_\ 1655}#
- #{val\ 1656}#
- #{key\ 1657}#
- #{m\ 1658}#)
+ (cons #{x\ 3627}# #{y\ 3623}#)
+ #{ids\ 3628}#)))))))))
+ (#{cvt\ 3548}# #{pattern\ 3541}# 0 (quote ()))))))
+ (lambda (#{e\ 3631}#
+ #{r\ 3632}#
+ #{w\ 3633}#
+ #{s\ 3634}#
+ #{mod\ 3635}#)
+ (let ((#{e\ 3642}#
+ (#{source-wrap\ 331}#
+ #{e\ 3631}#
+ #{w\ 3633}#
+ #{s\ 3634}#
+ #{mod\ 3635}#)))
+ ((lambda (#{tmp\ 3643}#)
+ ((lambda (#{tmp\ 3644}#)
+ (if #{tmp\ 3644}#
+ (apply (lambda (#{_\ 3649}#
+ #{val\ 3650}#
+ #{key\ 3651}#
+ #{m\ 3652}#)
(if (and-map
- (lambda (#{x\ 1659}#)
- (if (#{id?\ 128}# #{x\ 1659}#)
- (not (#{ellipsis?\ 172}# #{x\ 1659}#))
+ (lambda (#{x\ 3653}#)
+ (if (#{id?\ 260}# #{x\ 3653}#)
+ (not (#{ellipsis?\ 361}# #{x\ 3653}#))
#f))
- #{key\ 1657}#)
- (let ((#{x\ 1661}#
- (#{gen-var\ 178}# (quote tmp))))
- (#{build-application\ 93}#
- #{s\ 1650}#
- (#{build-simple-lambda\ 102}#
+ #{key\ 3651}#)
+ (let ((#{x\ 3659}#
+ (#{gen-var\ 373}# (quote tmp))))
+ (#{build-application\ 184}#
+ #{s\ 3634}#
+ (#{build-simple-lambda\ 202}#
#f
(list (quote tmp))
#f
- (list #{x\ 1661}#)
+ (list #{x\ 3659}#)
#f
- (#{gen-syntax-case\ 1554}#
- (#{build-lexical-reference\ 95}#
+ (#{gen-syntax-case\ 3424}#
+ (#{build-lexical-reference\ 188}#
'value
#f
'tmp
- #{x\ 1661}#)
- #{key\ 1657}#
- #{m\ 1658}#
- #{r\ 1648}#
- #{mod\ 1651}#))
- (list (#{chi\ 164}#
- #{val\ 1656}#
- #{r\ 1648}#
+ #{x\ 3659}#)
+ #{key\ 3651}#
+ #{m\ 3652}#
+ #{r\ 3632}#
+ #{mod\ 3635}#))
+ (list (#{chi\ 345}#
+ #{val\ 3650}#
+ #{r\ 3632}#
'(())
- #{mod\ 1651}#))))
+ #{mod\ 3635}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 1652}#)))
- #{tmp\ 1654}#)
+ #{e\ 3642}#)))
+ #{tmp\ 3644}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1653}#)))
+ #{tmp\ 3643}#)))
($sc-dispatch
- #{tmp\ 1653}#
+ #{tmp\ 3643}#
'(any any each-any . each-any))))
- #{e\ 1652}#)))))
+ #{e\ 3642}#)))))
(set! sc-expand
- (lambda (#{x\ 1664}# . #{rest\ 1665}#)
- (if (if (pair? #{x\ 1664}#)
- (equal? (car #{x\ 1664}#) #{noexpand\ 81}#)
+ (lambda (#{x\ 3665}# . #{rest\ 3666}#)
+ (if (if (pair? #{x\ 3665}#)
+ (equal? (car #{x\ 3665}#) #{noexpand\ 159}#)
#f)
- (cadr #{x\ 1664}#)
- (let ((#{m\ 1666}#
- (if (null? #{rest\ 1665}#)
+ (cadr #{x\ 3665}#)
+ (let ((#{m\ 3673}#
+ (if (null? #{rest\ 3666}#)
'e
- (car #{rest\ 1665}#)))
- (#{esew\ 1667}#
- (if (let ((#{t\ 1668}# (null? #{rest\ 1665}#)))
- (if #{t\ 1668}#
- #{t\ 1668}#
- (null? (cdr #{rest\ 1665}#))))
+ (car #{rest\ 3666}#)))
+ (#{esew\ 3674}#
+ (if (let ((#{t\ 3677}# (null? #{rest\ 3666}#)))
+ (if #{t\ 3677}#
+ #{t\ 3677}#
+ (null? (cdr #{rest\ 3666}#))))
'(eval)
- (cadr #{rest\ 1665}#))))
+ (cadr #{rest\ 3666}#))))
(with-fluid*
- #{*mode*\ 82}#
- #{m\ 1666}#
+ #{*mode*\ 161}#
+ #{m\ 3673}#
(lambda ()
- (#{chi-top\ 163}#
- #{x\ 1664}#
+ (#{chi-top\ 343}#
+ #{x\ 3665}#
'()
'((top))
- #{m\ 1666}#
- #{esew\ 1667}#
+ #{m\ 3673}#
+ #{esew\ 3674}#
(cons 'hygiene
(module-name (current-module))))))))))
(set! identifier?
- (lambda (#{x\ 1669}#)
- (#{nonsymbol-id?\ 127}# #{x\ 1669}#)))
+ (lambda (#{x\ 3681}#)
+ (#{nonsymbol-id?\ 258}# #{x\ 3681}#)))
(set! datum->syntax
- (lambda (#{id\ 1670}# #{datum\ 1671}#)
- (#{make-syntax-object\ 111}#
- #{datum\ 1671}#
- (#{syntax-object-wrap\ 114}# #{id\ 1670}#)
+ (lambda (#{id\ 3683}# #{datum\ 3684}#)
+ (#{make-syntax-object\ 222}#
+ #{datum\ 3684}#
+ (#{syntax-object-wrap\ 228}# #{id\ 3683}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 1672}#)
- (#{strip\ 177}# #{x\ 1672}# (quote (())))))
+ (lambda (#{x\ 3687}#)
+ (#{strip\ 371}# #{x\ 3687}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 1673}#)
+ (lambda (#{ls\ 3690}#)
(begin
- (let ((#{x\ 1674}# #{ls\ 1673}#))
- (if (not (list? #{x\ 1674}#))
+ (let ((#{x\ 3694}# #{ls\ 3690}#))
+ (if (not (list? #{x\ 3694}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 1674}#)))
- (map (lambda (#{x\ 1675}#)
- (#{wrap\ 156}# (gensym) (quote ((top))) #f))
- #{ls\ 1673}#))))
+ #{x\ 3694}#)))
+ (map (lambda (#{x\ 3695}#)
+ (#{wrap\ 329}# (gensym) (quote ((top))) #f))
+ #{ls\ 3690}#))))
(set! free-identifier=?
- (lambda (#{x\ 1676}# #{y\ 1677}#)
+ (lambda (#{x\ 3699}# #{y\ 3700}#)
(begin
- (let ((#{x\ 1678}# #{x\ 1676}#))
- (if (not (#{nonsymbol-id?\ 127}# #{x\ 1678}#))
+ (let ((#{x\ 3705}# #{x\ 3699}#))
+ (if (not (#{nonsymbol-id?\ 258}# #{x\ 3705}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 1678}#)))
- (let ((#{x\ 1679}# #{y\ 1677}#))
- (if (not (#{nonsymbol-id?\ 127}# #{x\ 1679}#))
+ #{x\ 3705}#)))
+ (let ((#{x\ 3708}# #{y\ 3700}#))
+ (if (not (#{nonsymbol-id?\ 258}# #{x\ 3708}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 1679}#)))
- (#{free-id=?\ 151}# #{x\ 1676}# #{y\ 1677}#))))
+ #{x\ 3708}#)))
+ (#{free-id=?\ 319}# #{x\ 3699}# #{y\ 3700}#))))
(set! bound-identifier=?
- (lambda (#{x\ 1680}# #{y\ 1681}#)
+ (lambda (#{x\ 3709}# #{y\ 3710}#)
(begin
- (let ((#{x\ 1682}# #{x\ 1680}#))
- (if (not (#{nonsymbol-id?\ 127}# #{x\ 1682}#))
+ (let ((#{x\ 3715}# #{x\ 3709}#))
+ (if (not (#{nonsymbol-id?\ 258}# #{x\ 3715}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 1682}#)))
- (let ((#{x\ 1683}# #{y\ 1681}#))
- (if (not (#{nonsymbol-id?\ 127}# #{x\ 1683}#))
+ #{x\ 3715}#)))
+ (let ((#{x\ 3718}# #{y\ 3710}#))
+ (if (not (#{nonsymbol-id?\ 258}# #{x\ 3718}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 1683}#)))
- (#{bound-id=?\ 152}# #{x\ 1680}# #{y\ 1681}#))))
+ #{x\ 3718}#)))
+ (#{bound-id=?\ 321}# #{x\ 3709}# #{y\ 3710}#))))
(set! syntax-violation
- (lambda (#{who\ 1684}#
- #{message\ 1685}#
- #{form\ 1686}#
+ (lambda (#{who\ 3719}#
+ #{message\ 3720}#
+ #{form\ 3721}#
.
- #{subform\ 1687}#)
+ #{subform\ 3722}#)
(begin
- (let ((#{x\ 1688}# #{who\ 1684}#))
- (if (not ((lambda (#{x\ 1689}#)
- (let ((#{t\ 1690}# (not #{x\ 1689}#)))
- (if #{t\ 1690}#
- #{t\ 1690}#
- (let ((#{t\ 1691}# (string? #{x\ 1689}#)))
- (if #{t\ 1691}#
- #{t\ 1691}#
- (symbol? #{x\ 1689}#))))))
- #{x\ 1688}#))
+ (let ((#{x\ 3729}# #{who\ 3719}#))
+ (if (not ((lambda (#{x\ 3730}#)
+ (let ((#{t\ 3734}# (not #{x\ 3730}#)))
+ (if #{t\ 3734}#
+ #{t\ 3734}#
+ (let ((#{t\ 3737}# (string? #{x\ 3730}#)))
+ (if #{t\ 3737}#
+ #{t\ 3737}#
+ (symbol? #{x\ 3730}#))))))
+ #{x\ 3729}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 1688}#)))
- (let ((#{x\ 1692}# #{message\ 1685}#))
- (if (not (string? #{x\ 1692}#))
+ #{x\ 3729}#)))
+ (let ((#{x\ 3741}# #{message\ 3720}#))
+ (if (not (string? #{x\ 3741}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 1692}#)))
+ #{x\ 3741}#)))
(scm-error
'syntax-error
'sc-expand
(string-append
- (if #{who\ 1684}# "~a: " "")
+ (if #{who\ 3719}# "~a: " "")
"~a "
- (if (null? #{subform\ 1687}#)
+ (if (null? #{subform\ 3722}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 1693}#
- (cons #{message\ 1685}#
- (map (lambda (#{x\ 1694}#)
- (#{strip\ 177}# #{x\ 1694}# (quote (()))))
+ (let ((#{tail\ 3743}#
+ (cons #{message\ 3720}#
+ (map (lambda (#{x\ 3744}#)
+ (#{strip\ 371}# #{x\ 3744}# (quote (()))))
(append
- #{subform\ 1687}#
- (list #{form\ 1686}#))))))
- (if #{who\ 1684}#
- (cons #{who\ 1684}# #{tail\ 1693}#)
- #{tail\ 1693}#))
+ #{subform\ 3722}#
+ (list #{form\ 3721}#))))))
+ (if #{who\ 3719}#
+ (cons #{who\ 3719}# #{tail\ 3743}#)
+ #{tail\ 3743}#))
#f))))
- (letrec ((#{match\ 1701}#
- (lambda (#{e\ 1702}#
- #{p\ 1703}#
- #{w\ 1704}#
- #{r\ 1705}#
- #{mod\ 1706}#)
- (if (not #{r\ 1705}#)
+ (letrec ((#{match\ 3760}#
+ (lambda (#{e\ 3761}#
+ #{p\ 3762}#
+ #{w\ 3763}#
+ #{r\ 3764}#
+ #{mod\ 3765}#)
+ (if (not #{r\ 3764}#)
#f
- (if (eq? #{p\ 1703}# (quote any))
- (cons (#{wrap\ 156}#
- #{e\ 1702}#
- #{w\ 1704}#
- #{mod\ 1706}#)
- #{r\ 1705}#)
- (if (#{syntax-object?\ 112}# #{e\ 1702}#)
- (#{match*\ 1700}#
- (#{syntax-object-expression\ 113}# #{e\ 1702}#)
- #{p\ 1703}#
- (#{join-wraps\ 147}#
- #{w\ 1704}#
- (#{syntax-object-wrap\ 114}# #{e\ 1702}#))
- #{r\ 1705}#
- (#{syntax-object-module\ 115}# #{e\ 1702}#))
- (#{match*\ 1700}#
- #{e\ 1702}#
- #{p\ 1703}#
- #{w\ 1704}#
- #{r\ 1705}#
- #{mod\ 1706}#))))))
- (#{match*\ 1700}#
- (lambda (#{e\ 1707}#
- #{p\ 1708}#
- #{w\ 1709}#
- #{r\ 1710}#
- #{mod\ 1711}#)
- (if (null? #{p\ 1708}#)
- (if (null? #{e\ 1707}#) #{r\ 1710}# #f)
- (if (pair? #{p\ 1708}#)
- (if (pair? #{e\ 1707}#)
- (#{match\ 1701}#
- (car #{e\ 1707}#)
- (car #{p\ 1708}#)
- #{w\ 1709}#
- (#{match\ 1701}#
- (cdr #{e\ 1707}#)
- (cdr #{p\ 1708}#)
- #{w\ 1709}#
- #{r\ 1710}#
- #{mod\ 1711}#)
- #{mod\ 1711}#)
+ (if (eq? #{p\ 3762}# (quote any))
+ (cons (#{wrap\ 329}#
+ #{e\ 3761}#
+ #{w\ 3763}#
+ #{mod\ 3765}#)
+ #{r\ 3764}#)
+ (if (#{syntax-object?\ 224}# #{e\ 3761}#)
+ (#{match*\ 3758}#
+ (#{syntax-object-expression\ 226}# #{e\ 3761}#)
+ #{p\ 3762}#
+ (#{join-wraps\ 311}#
+ #{w\ 3763}#
+ (#{syntax-object-wrap\ 228}# #{e\ 3761}#))
+ #{r\ 3764}#
+ (#{syntax-object-module\ 230}# #{e\ 3761}#))
+ (#{match*\ 3758}#
+ #{e\ 3761}#
+ #{p\ 3762}#
+ #{w\ 3763}#
+ #{r\ 3764}#
+ #{mod\ 3765}#))))))
+ (#{match*\ 3758}#
+ (lambda (#{e\ 3778}#
+ #{p\ 3779}#
+ #{w\ 3780}#
+ #{r\ 3781}#
+ #{mod\ 3782}#)
+ (if (null? #{p\ 3779}#)
+ (if (null? #{e\ 3778}#) #{r\ 3781}# #f)
+ (if (pair? #{p\ 3779}#)
+ (if (pair? #{e\ 3778}#)
+ (#{match\ 3760}#
+ (car #{e\ 3778}#)
+ (car #{p\ 3779}#)
+ #{w\ 3780}#
+ (#{match\ 3760}#
+ (cdr #{e\ 3778}#)
+ (cdr #{p\ 3779}#)
+ #{w\ 3780}#
+ #{r\ 3781}#
+ #{mod\ 3782}#)
+ #{mod\ 3782}#)
#f)
- (if (eq? #{p\ 1708}# (quote each-any))
- (let ((#{l\ 1712}#
- (#{match-each-any\ 1697}#
- #{e\ 1707}#
- #{w\ 1709}#
- #{mod\ 1711}#)))
- (if #{l\ 1712}#
- (cons #{l\ 1712}# #{r\ 1710}#)
+ (if (eq? #{p\ 3779}# (quote each-any))
+ (let ((#{l\ 3799}#
+ (#{match-each-any\ 3752}#
+ #{e\ 3778}#
+ #{w\ 3780}#
+ #{mod\ 3782}#)))
+ (if #{l\ 3799}#
+ (cons #{l\ 3799}# #{r\ 3781}#)
#f))
- (let ((#{atom-key\ 1713}# (vector-ref #{p\ 1708}# 0)))
- (if (memv #{atom-key\ 1713}# (quote (each)))
- (if (null? #{e\ 1707}#)
- (#{match-empty\ 1698}#
- (vector-ref #{p\ 1708}# 1)
- #{r\ 1710}#)
- (let ((#{l\ 1714}#
- (#{match-each\ 1695}#
- #{e\ 1707}#
- (vector-ref #{p\ 1708}# 1)
- #{w\ 1709}#
- #{mod\ 1711}#)))
- (if #{l\ 1714}#
- (letrec ((#{collect\ 1715}#
- (lambda (#{l\ 1716}#)
- (if (null? (car #{l\ 1716}#))
- #{r\ 1710}#
- (cons (map car #{l\ 1716}#)
- (#{collect\ 1715}#
+ (let ((#{atom-key\ 3805}# (vector-ref #{p\ 3779}# 0)))
+ (if (memv #{atom-key\ 3805}# (quote (each)))
+ (if (null? #{e\ 3778}#)
+ (#{match-empty\ 3754}#
+ (vector-ref #{p\ 3779}# 1)
+ #{r\ 3781}#)
+ (let ((#{l\ 3808}#
+ (#{match-each\ 3748}#
+ #{e\ 3778}#
+ (vector-ref #{p\ 3779}# 1)
+ #{w\ 3780}#
+ #{mod\ 3782}#)))
+ (if #{l\ 3808}#
+ (letrec ((#{collect\ 3813}#
+ (lambda (#{l\ 3814}#)
+ (if (null? (car #{l\ 3814}#))
+ #{r\ 3781}#
+ (cons (map car #{l\ 3814}#)
+ (#{collect\ 3813}#
(map cdr
- #{l\
1716}#)))))))
- (#{collect\ 1715}# #{l\ 1714}#))
+ #{l\
3814}#)))))))
+ (#{collect\ 3813}# #{l\ 3808}#))
#f)))
- (if (memv #{atom-key\ 1713}# (quote (each+)))
+ (if (memv #{atom-key\ 3805}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 1696}#
- #{e\ 1707}#
- (vector-ref #{p\ 1708}# 1)
- (vector-ref #{p\ 1708}# 2)
- (vector-ref #{p\ 1708}# 3)
- #{w\ 1709}#
- #{r\ 1710}#
- #{mod\ 1711}#))
- (lambda (#{xr*\ 1717}#
- #{y-pat\ 1718}#
- #{r\ 1719}#)
- (if #{r\ 1719}#
- (if (null? #{y-pat\ 1718}#)
- (if (null? #{xr*\ 1717}#)
- (#{match-empty\ 1698}#
- (vector-ref #{p\ 1708}# 1)
- #{r\ 1719}#)
- (#{combine\ 1699}#
- #{xr*\ 1717}#
- #{r\ 1719}#))
+ (#{match-each+\ 3750}#
+ #{e\ 3778}#
+ (vector-ref #{p\ 3779}# 1)
+ (vector-ref #{p\ 3779}# 2)
+ (vector-ref #{p\ 3779}# 3)
+ #{w\ 3780}#
+ #{r\ 3781}#
+ #{mod\ 3782}#))
+ (lambda (#{xr*\ 3816}#
+ #{y-pat\ 3817}#
+ #{r\ 3818}#)
+ (if #{r\ 3818}#
+ (if (null? #{y-pat\ 3817}#)
+ (if (null? #{xr*\ 3816}#)
+ (#{match-empty\ 3754}#
+ (vector-ref #{p\ 3779}# 1)
+ #{r\ 3818}#)
+ (#{combine\ 3756}#
+ #{xr*\ 3816}#
+ #{r\ 3818}#))
#f)
#f)))
- (if (memv #{atom-key\ 1713}# (quote (free-id)))
- (if (#{id?\ 128}# #{e\ 1707}#)
- (if (#{free-id=?\ 151}#
- (#{wrap\ 156}#
- #{e\ 1707}#
- #{w\ 1709}#
- #{mod\ 1711}#)
- (vector-ref #{p\ 1708}# 1))
- #{r\ 1710}#
+ (if (memv #{atom-key\ 3805}# (quote (free-id)))
+ (if (#{id?\ 260}# #{e\ 3778}#)
+ (if (#{free-id=?\ 319}#
+ (#{wrap\ 329}#
+ #{e\ 3778}#
+ #{w\ 3780}#
+ #{mod\ 3782}#)
+ (vector-ref #{p\ 3779}# 1))
+ #{r\ 3781}#
#f)
#f)
- (if (memv #{atom-key\ 1713}# (quote (atom)))
+ (if (memv #{atom-key\ 3805}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 1708}# 1)
- (#{strip\ 177}#
- #{e\ 1707}#
- #{w\ 1709}#))
- #{r\ 1710}#
+ (vector-ref #{p\ 3779}# 1)
+ (#{strip\ 371}#
+ #{e\ 3778}#
+ #{w\ 3780}#))
+ #{r\ 3781}#
#f)
- (if (memv #{atom-key\ 1713}#
+ (if (memv #{atom-key\ 3805}#
'(vector))
- (if (vector? #{e\ 1707}#)
- (#{match\ 1701}#
- (vector->list #{e\ 1707}#)
- (vector-ref #{p\ 1708}# 1)
- #{w\ 1709}#
- #{r\ 1710}#
- #{mod\ 1711}#)
+ (if (vector? #{e\ 3778}#)
+ (#{match\ 3760}#
+ (vector->list #{e\ 3778}#)
+ (vector-ref #{p\ 3779}# 1)
+ #{w\ 3780}#
+ #{r\ 3781}#
+ #{mod\ 3782}#)
#f))))))))))))
- (#{combine\ 1699}#
- (lambda (#{r*\ 1720}# #{r\ 1721}#)
- (if (null? (car #{r*\ 1720}#))
- #{r\ 1721}#
- (cons (map car #{r*\ 1720}#)
- (#{combine\ 1699}#
- (map cdr #{r*\ 1720}#)
- #{r\ 1721}#)))))
- (#{match-empty\ 1698}#
- (lambda (#{p\ 1722}# #{r\ 1723}#)
- (if (null? #{p\ 1722}#)
- #{r\ 1723}#
- (if (eq? #{p\ 1722}# (quote any))
- (cons (quote ()) #{r\ 1723}#)
- (if (pair? #{p\ 1722}#)
- (#{match-empty\ 1698}#
- (car #{p\ 1722}#)
- (#{match-empty\ 1698}#
- (cdr #{p\ 1722}#)
- #{r\ 1723}#))
- (if (eq? #{p\ 1722}# (quote each-any))
- (cons (quote ()) #{r\ 1723}#)
- (let ((#{atom-key\ 1724}#
- (vector-ref #{p\ 1722}# 0)))
- (if (memv #{atom-key\ 1724}# (quote (each)))
- (#{match-empty\ 1698}#
- (vector-ref #{p\ 1722}# 1)
- #{r\ 1723}#)
- (if (memv #{atom-key\ 1724}# (quote (each+)))
- (#{match-empty\ 1698}#
- (vector-ref #{p\ 1722}# 1)
- (#{match-empty\ 1698}#
- (reverse (vector-ref #{p\ 1722}# 2))
- (#{match-empty\ 1698}#
- (vector-ref #{p\ 1722}# 3)
- #{r\ 1723}#)))
- (if (memv #{atom-key\ 1724}#
+ (#{combine\ 3756}#
+ (lambda (#{r*\ 3835}# #{r\ 3836}#)
+ (if (null? (car #{r*\ 3835}#))
+ #{r\ 3836}#
+ (cons (map car #{r*\ 3835}#)
+ (#{combine\ 3756}#
+ (map cdr #{r*\ 3835}#)
+ #{r\ 3836}#)))))
+ (#{match-empty\ 3754}#
+ (lambda (#{p\ 3839}# #{r\ 3840}#)
+ (if (null? #{p\ 3839}#)
+ #{r\ 3840}#
+ (if (eq? #{p\ 3839}# (quote any))
+ (cons (quote ()) #{r\ 3840}#)
+ (if (pair? #{p\ 3839}#)
+ (#{match-empty\ 3754}#
+ (car #{p\ 3839}#)
+ (#{match-empty\ 3754}#
+ (cdr #{p\ 3839}#)
+ #{r\ 3840}#))
+ (if (eq? #{p\ 3839}# (quote each-any))
+ (cons (quote ()) #{r\ 3840}#)
+ (let ((#{atom-key\ 3854}#
+ (vector-ref #{p\ 3839}# 0)))
+ (if (memv #{atom-key\ 3854}# (quote (each)))
+ (#{match-empty\ 3754}#
+ (vector-ref #{p\ 3839}# 1)
+ #{r\ 3840}#)
+ (if (memv #{atom-key\ 3854}# (quote (each+)))
+ (#{match-empty\ 3754}#
+ (vector-ref #{p\ 3839}# 1)
+ (#{match-empty\ 3754}#
+ (reverse (vector-ref #{p\ 3839}# 2))
+ (#{match-empty\ 3754}#
+ (vector-ref #{p\ 3839}# 3)
+ #{r\ 3840}#)))
+ (if (memv #{atom-key\ 3854}#
'(free-id atom))
- #{r\ 1723}#
- (if (memv #{atom-key\ 1724}#
+ #{r\ 3840}#
+ (if (memv #{atom-key\ 3854}#
'(vector))
- (#{match-empty\ 1698}#
- (vector-ref #{p\ 1722}# 1)
- #{r\ 1723}#))))))))))))
- (#{match-each-any\ 1697}#
- (lambda (#{e\ 1725}# #{w\ 1726}# #{mod\ 1727}#)
- (if (pair? #{e\ 1725}#)
- (let ((#{l\ 1728}#
- (#{match-each-any\ 1697}#
- (cdr #{e\ 1725}#)
- #{w\ 1726}#
- #{mod\ 1727}#)))
- (if #{l\ 1728}#
- (cons (#{wrap\ 156}#
- (car #{e\ 1725}#)
- #{w\ 1726}#
- #{mod\ 1727}#)
- #{l\ 1728}#)
+ (#{match-empty\ 3754}#
+ (vector-ref #{p\ 3839}# 1)
+ #{r\ 3840}#))))))))))))
+ (#{match-each-any\ 3752}#
+ (lambda (#{e\ 3859}# #{w\ 3860}# #{mod\ 3861}#)
+ (if (pair? #{e\ 3859}#)
+ (let ((#{l\ 3868}#
+ (#{match-each-any\ 3752}#
+ (cdr #{e\ 3859}#)
+ #{w\ 3860}#
+ #{mod\ 3861}#)))
+ (if #{l\ 3868}#
+ (cons (#{wrap\ 329}#
+ (car #{e\ 3859}#)
+ #{w\ 3860}#
+ #{mod\ 3861}#)
+ #{l\ 3868}#)
#f))
- (if (null? #{e\ 1725}#)
+ (if (null? #{e\ 3859}#)
'()
- (if (#{syntax-object?\ 112}# #{e\ 1725}#)
- (#{match-each-any\ 1697}#
- (#{syntax-object-expression\ 113}# #{e\ 1725}#)
- (#{join-wraps\ 147}#
- #{w\ 1726}#
- (#{syntax-object-wrap\ 114}# #{e\ 1725}#))
- #{mod\ 1727}#)
+ (if (#{syntax-object?\ 224}# #{e\ 3859}#)
+ (#{match-each-any\ 3752}#
+ (#{syntax-object-expression\ 226}# #{e\ 3859}#)
+ (#{join-wraps\ 311}#
+ #{w\ 3860}#
+ (#{syntax-object-wrap\ 228}# #{e\ 3859}#))
+ #{mod\ 3861}#)
#f)))))
- (#{match-each+\ 1696}#
- (lambda (#{e\ 1729}#
- #{x-pat\ 1730}#
- #{y-pat\ 1731}#
- #{z-pat\ 1732}#
- #{w\ 1733}#
- #{r\ 1734}#
- #{mod\ 1735}#)
- (letrec ((#{f\ 1736}#
- (lambda (#{e\ 1737}# #{w\ 1738}#)
- (if (pair? #{e\ 1737}#)
+ (#{match-each+\ 3750}#
+ (lambda (#{e\ 3876}#
+ #{x-pat\ 3877}#
+ #{y-pat\ 3878}#
+ #{z-pat\ 3879}#
+ #{w\ 3880}#
+ #{r\ 3881}#
+ #{mod\ 3882}#)
+ (letrec ((#{f\ 3893}#
+ (lambda (#{e\ 3894}# #{w\ 3895}#)
+ (if (pair? #{e\ 3894}#)
(call-with-values
(lambda ()
- (#{f\ 1736}#
- (cdr #{e\ 1737}#)
- #{w\ 1738}#))
- (lambda (#{xr*\ 1739}#
- #{y-pat\ 1740}#
- #{r\ 1741}#)
- (if #{r\ 1741}#
- (if (null? #{y-pat\ 1740}#)
- (let ((#{xr\ 1742}#
- (#{match\ 1701}#
- (car #{e\ 1737}#)
- #{x-pat\ 1730}#
- #{w\ 1738}#
+ (#{f\ 3893}#
+ (cdr #{e\ 3894}#)
+ #{w\ 3895}#))
+ (lambda (#{xr*\ 3898}#
+ #{y-pat\ 3899}#
+ #{r\ 3900}#)
+ (if #{r\ 3900}#
+ (if (null? #{y-pat\ 3899}#)
+ (let ((#{xr\ 3905}#
+ (#{match\ 3760}#
+ (car #{e\ 3894}#)
+ #{x-pat\ 3877}#
+ #{w\ 3895}#
'()
- #{mod\ 1735}#)))
- (if #{xr\ 1742}#
+ #{mod\ 3882}#)))
+ (if #{xr\ 3905}#
(values
- (cons #{xr\ 1742}#
- #{xr*\ 1739}#)
- #{y-pat\ 1740}#
- #{r\ 1741}#)
+ (cons #{xr\ 3905}#
+ #{xr*\ 3898}#)
+ #{y-pat\ 3899}#
+ #{r\ 3900}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 1740}#)
- (#{match\ 1701}#
- (car #{e\ 1737}#)
- (car #{y-pat\ 1740}#)
- #{w\ 1738}#
- #{r\ 1741}#
- #{mod\ 1735}#)))
+ (cdr #{y-pat\ 3899}#)
+ (#{match\ 3760}#
+ (car #{e\ 3894}#)
+ (car #{y-pat\ 3899}#)
+ #{w\ 3895}#
+ #{r\ 3900}#
+ #{mod\ 3882}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 112}# #{e\ 1737}#)
- (#{f\ 1736}#
- (#{syntax-object-expression\ 113}#
- #{e\ 1737}#)
- (#{join-wraps\ 147}#
- #{w\ 1738}#
- #{e\ 1737}#))
+ (if (#{syntax-object?\ 224}# #{e\ 3894}#)
+ (#{f\ 3893}#
+ (#{syntax-object-expression\ 226}#
+ #{e\ 3894}#)
+ (#{join-wraps\ 311}#
+ #{w\ 3895}#
+ #{e\ 3894}#))
(values
'()
- #{y-pat\ 1731}#
- (#{match\ 1701}#
- #{e\ 1737}#
- #{z-pat\ 1732}#
- #{w\ 1738}#
- #{r\ 1734}#
- #{mod\ 1735}#)))))))
- (#{f\ 1736}# #{e\ 1729}# #{w\ 1733}#))))
- (#{match-each\ 1695}#
- (lambda (#{e\ 1743}#
- #{p\ 1744}#
- #{w\ 1745}#
- #{mod\ 1746}#)
- (if (pair? #{e\ 1743}#)
- (let ((#{first\ 1747}#
- (#{match\ 1701}#
- (car #{e\ 1743}#)
- #{p\ 1744}#
- #{w\ 1745}#
+ #{y-pat\ 3878}#
+ (#{match\ 3760}#
+ #{e\ 3894}#
+ #{z-pat\ 3879}#
+ #{w\ 3895}#
+ #{r\ 3881}#
+ #{mod\ 3882}#)))))))
+ (#{f\ 3893}# #{e\ 3876}# #{w\ 3880}#))))
+ (#{match-each\ 3748}#
+ (lambda (#{e\ 3909}#
+ #{p\ 3910}#
+ #{w\ 3911}#
+ #{mod\ 3912}#)
+ (if (pair? #{e\ 3909}#)
+ (let ((#{first\ 3920}#
+ (#{match\ 3760}#
+ (car #{e\ 3909}#)
+ #{p\ 3910}#
+ #{w\ 3911}#
'()
- #{mod\ 1746}#)))
- (if #{first\ 1747}#
- (let ((#{rest\ 1748}#
- (#{match-each\ 1695}#
- (cdr #{e\ 1743}#)
- #{p\ 1744}#
- #{w\ 1745}#
- #{mod\ 1746}#)))
- (if #{rest\ 1748}#
- (cons #{first\ 1747}# #{rest\ 1748}#)
+ #{mod\ 3912}#)))
+ (if #{first\ 3920}#
+ (let ((#{rest\ 3924}#
+ (#{match-each\ 3748}#
+ (cdr #{e\ 3909}#)
+ #{p\ 3910}#
+ #{w\ 3911}#
+ #{mod\ 3912}#)))
+ (if #{rest\ 3924}#
+ (cons #{first\ 3920}# #{rest\ 3924}#)
#f))
#f))
- (if (null? #{e\ 1743}#)
+ (if (null? #{e\ 3909}#)
'()
- (if (#{syntax-object?\ 112}# #{e\ 1743}#)
- (#{match-each\ 1695}#
- (#{syntax-object-expression\ 113}# #{e\ 1743}#)
- #{p\ 1744}#
- (#{join-wraps\ 147}#
- #{w\ 1745}#
- (#{syntax-object-wrap\ 114}# #{e\ 1743}#))
- (#{syntax-object-module\ 115}# #{e\ 1743}#))
+ (if (#{syntax-object?\ 224}# #{e\ 3909}#)
+ (#{match-each\ 3748}#
+ (#{syntax-object-expression\ 226}# #{e\ 3909}#)
+ #{p\ 3910}#
+ (#{join-wraps\ 311}#
+ #{w\ 3911}#
+ (#{syntax-object-wrap\ 228}# #{e\ 3909}#))
+ (#{syntax-object-module\ 230}# #{e\ 3909}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 1749}# #{p\ 1750}#)
- (if (eq? #{p\ 1750}# (quote any))
- (list #{e\ 1749}#)
- (if (#{syntax-object?\ 112}# #{e\ 1749}#)
- (#{match*\ 1700}#
- (#{syntax-object-expression\ 113}# #{e\ 1749}#)
- #{p\ 1750}#
- (#{syntax-object-wrap\ 114}# #{e\ 1749}#)
+ (lambda (#{e\ 3932}# #{p\ 3933}#)
+ (if (eq? #{p\ 3933}# (quote any))
+ (list #{e\ 3932}#)
+ (if (#{syntax-object?\ 224}# #{e\ 3932}#)
+ (#{match*\ 3758}#
+ (#{syntax-object-expression\ 226}# #{e\ 3932}#)
+ #{p\ 3933}#
+ (#{syntax-object-wrap\ 228}# #{e\ 3932}#)
'()
- (#{syntax-object-module\ 115}# #{e\ 1749}#))
- (#{match*\ 1700}#
- #{e\ 1749}#
- #{p\ 1750}#
+ (#{syntax-object-module\ 230}# #{e\ 3932}#))
+ (#{match*\ 3758}#
+ #{e\ 3932}#
+ #{p\ 3933}#
'(())
'()
#f)))))))))
@@ -11585,43 +11558,50 @@
(define with-syntax
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1751}#)
- ((lambda (#{tmp\ 1752}#)
- ((lambda (#{tmp\ 1753}#)
- (if #{tmp\ 1753}#
- (apply (lambda (#{_\ 1754}# #{e1\ 1755}# #{e2\ 1756}#)
+ (cons (lambda (#{x\ 3942}#)
+ ((lambda (#{tmp\ 3944}#)
+ ((lambda (#{tmp\ 3945}#)
+ (if #{tmp\ 3945}#
+ (apply (lambda (#{_\ 3949}# #{e1\ 3950}# #{e2\ 3951}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i" "i" "i"))
+ #("i3946" "i3947" "i3948"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage #(x) #((top)) #("i3943")))
(hygiene guile))
- (cons #{e1\ 1755}# #{e2\ 1756}#)))
- #{tmp\ 1753}#)
- ((lambda (#{tmp\ 1758}#)
- (if #{tmp\ 1758}#
- (apply (lambda (#{_\ 1759}#
- #{out\ 1760}#
- #{in\ 1761}#
- #{e1\ 1762}#
- #{e2\ 1763}#)
+ (cons #{e1\ 3950}# #{e2\ 3951}#)))
+ #{tmp\ 3945}#)
+ ((lambda (#{tmp\ 3953}#)
+ (if #{tmp\ 3953}#
+ (apply (lambda (#{_\ 3959}#
+ #{out\ 3960}#
+ #{in\ 3961}#
+ #{e1\ 3962}#
+ #{e2\ 3963}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i" "i" "i" "i" "i"))
+ #("i3954"
+ "i3955"
+ "i3956"
+ "i3957"
+ "i3958"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i3943")))
(hygiene guile))
- #{in\ 1761}#
+ #{in\ 3961}#
'()
- (list #{out\ 1760}#
+ (list #{out\ 3960}#
(cons '#(syntax-object
begin
((top)
@@ -11632,27 +11612,27 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i"
- "i"))
+ #("i3954"
+ "i3955"
+ "i3956"
+ "i3957"
+ "i3958"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i3943")))
(hygiene guile))
- (cons #{e1\ 1762}#
- #{e2\ 1763}#)))))
- #{tmp\ 1758}#)
- ((lambda (#{tmp\ 1765}#)
- (if #{tmp\ 1765}#
- (apply (lambda (#{_\ 1766}#
- #{out\ 1767}#
- #{in\ 1768}#
- #{e1\ 1769}#
- #{e2\ 1770}#)
+ (cons #{e1\ 3962}#
+ #{e2\ 3963}#)))))
+ #{tmp\ 3953}#)
+ ((lambda (#{tmp\ 3965}#)
+ (if #{tmp\ 3965}#
+ (apply (lambda (#{_\ 3971}#
+ #{out\ 3972}#
+ #{in\ 3973}#
+ #{e1\ 3974}#
+ #{e2\ 3975}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11663,12 +11643,16 @@
(top)
(top)
(top))
- #("i" "i" "i" "i" "i"))
+ #("i3966"
+ "i3967"
+ "i3968"
+ "i3969"
+ "i3970"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i3943")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -11680,20 +11664,20 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i"
- "i"))
+ #("i3966"
+ "i3967"
+ "i3968"
+ "i3969"
+ "i3970"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i3943")))
(hygiene guile))
- #{in\ 1768}#)
+ #{in\ 3973}#)
'()
- (list #{out\ 1767}#
+ (list #{out\ 3972}#
(cons '#(syntax-object
begin
((top)
@@ -11708,11 +11692,11 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i"
- "i"))
+ #("i3966"
+ "i3967"
+ "i3968"
+ "i3969"
+ "i3970"))
#(ribcage
()
()
@@ -11720,48 +11704,52 @@
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i3943")))
(hygiene guile))
- (cons #{e1\ 1769}#
- #{e2\
1770}#)))))
- #{tmp\ 1765}#)
+ (cons #{e1\ 3974}#
+ #{e2\
3975}#)))))
+ #{tmp\ 3965}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1752}#)))
+ #{tmp\ 3944}#)))
($sc-dispatch
- #{tmp\ 1752}#
+ #{tmp\ 3944}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1752}#
+ #{tmp\ 3944}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1752}#
+ #{tmp\ 3944}#
'(any () any . each-any))))
- #{x\ 1751}#))
+ #{x\ 3942}#))
(module-name (current-module)))))
(define syntax-rules
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1774}#)
- ((lambda (#{tmp\ 1775}#)
- ((lambda (#{tmp\ 1776}#)
- (if #{tmp\ 1776}#
- (apply (lambda (#{_\ 1777}#
- #{k\ 1778}#
- #{keyword\ 1779}#
- #{pattern\ 1780}#
- #{template\ 1781}#)
+ (cons (lambda (#{x\ 3979}#)
+ ((lambda (#{tmp\ 3981}#)
+ ((lambda (#{tmp\ 3982}#)
+ (if #{tmp\ 3982}#
+ (apply (lambda (#{_\ 3988}#
+ #{k\ 3989}#
+ #{keyword\ 3990}#
+ #{pattern\ 3991}#
+ #{template\ 3992}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i" "i" "i" "i" "i"))
+ #("i3983"
+ "i3984"
+ "i3985"
+ "i3986"
+ "i3987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage #(x) #((top)) #("i3980")))
(hygiene guile))
'(#(syntax-object
x
@@ -11769,9 +11757,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i" "i" "i" "i" "i"))
+ #("i3983"
+ "i3984"
+ "i3985"
+ "i3986"
+ "i3987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage #(x) #((top)) #("i3980")))
(hygiene guile)))
(cons '#(syntax-object
syntax-case
@@ -11779,9 +11771,16 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i" "i" "i" "i" "i"))
+ #("i3983"
+ "i3984"
+ "i3985"
+ "i3986"
+ "i3987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i3980")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -11797,16 +11796,20 @@
(top)
(top)
(top))
- #("i" "i" "i" "i" "i"))
+ #("i3983"
+ "i3984"
+ "i3985"
+ "i3986"
+ "i3987"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i3980")))
(hygiene guile))
- (cons #{k\ 1778}#
- (map (lambda (#{tmp\
1784}#
- #{tmp\
1783}#)
+ (cons #{k\ 3989}#
+ (map (lambda (#{tmp\
3995}#
+ #{tmp\
3994}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -11821,11 +11824,11 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i3983"
+
"i3984"
+
"i3985"
+
"i3986"
+
"i3987"))
#(ribcage
()
()
@@ -11833,10 +11836,10 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i3980")))
(hygiene
guile))
- #{tmp\
1783}#)
+ #{tmp\
3994}#)
(list
'#(syntax-object
syntax
((top)
@@ -11851,11 +11854,11 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i3983"
+
"i3984"
+
"i3985"
+
"i3986"
+
"i3987"))
#(ribcage
()
()
@@ -11863,47 +11866,47 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i3980")))
(hygiene
guile))
- #{tmp\
1784}#)))
- #{template\ 1781}#
- #{pattern\
1780}#))))))
- #{tmp\ 1776}#)
+ #{tmp\
3995}#)))
+ #{template\ 3992}#
+ #{pattern\
3991}#))))))
+ #{tmp\ 3982}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1775}#)))
+ #{tmp\ 3981}#)))
($sc-dispatch
- #{tmp\ 1775}#
+ #{tmp\ 3981}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 1774}#))
+ #{x\ 3979}#))
(module-name (current-module)))))
(define let*
(make-extended-syncase-macro
(module-ref (current-module) (quote let*))
'macro
- (cons (lambda (#{x\ 1785}#)
- ((lambda (#{tmp\ 1786}#)
- ((lambda (#{tmp\ 1787}#)
- (if (if #{tmp\ 1787}#
- (apply (lambda (#{let*\ 1788}#
- #{x\ 1789}#
- #{v\ 1790}#
- #{e1\ 1791}#
- #{e2\ 1792}#)
- (and-map identifier? #{x\ 1789}#))
- #{tmp\ 1787}#)
+ (cons (lambda (#{x\ 3996}#)
+ ((lambda (#{tmp\ 3998}#)
+ ((lambda (#{tmp\ 3999}#)
+ (if (if #{tmp\ 3999}#
+ (apply (lambda (#{let*\ 4005}#
+ #{x\ 4006}#
+ #{v\ 4007}#
+ #{e1\ 4008}#
+ #{e2\ 4009}#)
+ (and-map identifier? #{x\ 4006}#))
+ #{tmp\ 3999}#)
#f)
- (apply (lambda (#{let*\ 1794}#
- #{x\ 1795}#
- #{v\ 1796}#
- #{e1\ 1797}#
- #{e2\ 1798}#)
- (letrec ((#{f\ 1799}#
- (lambda (#{bindings\ 1800}#)
- (if (null? #{bindings\ 1800}#)
+ (apply (lambda (#{let*\ 4016}#
+ #{x\ 4017}#
+ #{v\ 4018}#
+ #{e1\ 4019}#
+ #{e2\ 4020}#)
+ (letrec ((#{f\ 4023}#
+ (lambda (#{bindings\ 4024}#)
+ (if (null? #{bindings\ 4024}#)
(cons '#(syntax-object
let
((top)
@@ -11911,7 +11914,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i" "i"))
+ #("i4021" "i4022"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -11919,21 +11922,25 @@
(top)
(top)
(top))
- #("i" "i" "i" "i" "i"))
+ #("i4011"
+ "i4012"
+ "i4013"
+ "i4014"
+ "i4015"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i3997")))
(hygiene guile))
(cons '()
- (cons #{e1\ 1797}#
- #{e2\ 1798}#)))
- ((lambda (#{tmp\ 1804}#)
- ((lambda (#{tmp\ 1805}#)
- (if #{tmp\ 1805}#
- (apply (lambda (#{body\
1806}#
- #{binding\
1807}#)
+ (cons #{e1\ 4019}#
+ #{e2\ 4020}#)))
+ ((lambda (#{tmp\ 4029}#)
+ ((lambda (#{tmp\ 4030}#)
+ (if #{tmp\ 4030}#
+ (apply (lambda (#{body\
4033}#
+ #{binding\
4034}#)
(list
'#(syntax-object
let
((top)
@@ -11942,8 +11949,8 @@
binding)
#((top)
(top))
- #("i"
-
"i"))
+
#("i4031"
+
"i4032"))
#(ribcage
()
()
@@ -11953,8 +11960,8 @@
bindings)
#((top)
(top))
- #("i"
-
"i"))
+
#("i4021"
+
"i4022"))
#(ribcage
#(let*
x
@@ -11966,11 +11973,11 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i"
-
"i"))
+
#("i4011"
+
"i4012"
+
"i4013"
+
"i4014"
+
"i4015"))
#(ribcage
()
()
@@ -11978,56 +11985,56 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i3997")))
(hygiene
guile))
- (list
#{binding\ 1807}#)
- #{body\
1806}#))
- #{tmp\ 1805}#)
+ (list
#{binding\ 4034}#)
+ #{body\
4033}#))
+ #{tmp\ 4030}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1804}#)))
+ #{tmp\ 4029}#)))
($sc-dispatch
- #{tmp\ 1804}#
+ #{tmp\ 4029}#
'(any any))))
- (list (#{f\ 1799}#
- (cdr #{bindings\ 1800}#))
- (car #{bindings\
1800}#)))))))
- (#{f\ 1799}#
- (map list #{x\ 1795}# #{v\ 1796}#))))
- #{tmp\ 1787}#)
+ (list (#{f\ 4023}#
+ (cdr #{bindings\ 4024}#))
+ (car #{bindings\
4024}#)))))))
+ (#{f\ 4023}#
+ (map list #{x\ 4017}# #{v\ 4018}#))))
+ #{tmp\ 3999}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1786}#)))
+ #{tmp\ 3998}#)))
($sc-dispatch
- #{tmp\ 1786}#
+ #{tmp\ 3998}#
'(any #(each (any any)) any . each-any))))
- #{x\ 1785}#))
+ #{x\ 3996}#))
(module-name (current-module)))))
(define do
(make-syncase-macro
'macro
- (cons (lambda (#{orig-x\ 1808}#)
- ((lambda (#{tmp\ 1809}#)
- ((lambda (#{tmp\ 1810}#)
- (if #{tmp\ 1810}#
- (apply (lambda (#{_\ 1811}#
- #{var\ 1812}#
- #{init\ 1813}#
- #{step\ 1814}#
- #{e0\ 1815}#
- #{e1\ 1816}#
- #{c\ 1817}#)
- ((lambda (#{tmp\ 1818}#)
- ((lambda (#{tmp\ 1819}#)
- (if #{tmp\ 1819}#
- (apply (lambda (#{step\ 1820}#)
- ((lambda (#{tmp\ 1821}#)
- ((lambda (#{tmp\ 1822}#)
- (if #{tmp\ 1822}#
+ (cons (lambda (#{orig-x\ 4035}#)
+ ((lambda (#{tmp\ 4037}#)
+ ((lambda (#{tmp\ 4038}#)
+ (if #{tmp\ 4038}#
+ (apply (lambda (#{_\ 4046}#
+ #{var\ 4047}#
+ #{init\ 4048}#
+ #{step\ 4049}#
+ #{e0\ 4050}#
+ #{e1\ 4051}#
+ #{c\ 4052}#)
+ ((lambda (#{tmp\ 4054}#)
+ ((lambda (#{tmp\ 4055}#)
+ (if #{tmp\ 4055}#
+ (apply (lambda (#{step\ 4057}#)
+ ((lambda (#{tmp\ 4058}#)
+ ((lambda (#{tmp\ 4059}#)
+ (if #{tmp\ 4059}#
(apply (lambda ()
(list
'#(syntax-object
let
@@ -12035,7 +12042,7 @@
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12051,13 +12058,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12065,7 +12072,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
'#(syntax-object
@@ -12074,7 +12081,7 @@
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12090,13 +12097,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12104,19 +12111,19 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
(map list
-
#{var\ 1812}#
-
#{init\ 1813}#)
+
#{var\ 4047}#
+
#{init\ 4048}#)
(list
'#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12132,13 +12139,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12146,7 +12153,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
(list '#(syntax-object
@@ -12155,7 +12162,7 @@
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12171,13 +12178,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12185,17 +12192,17 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
-
#{e0\ 1815}#)
+
#{e0\ 4050}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12211,13 +12218,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12225,18 +12232,18 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
(append
-
#{c\ 1817}#
+
#{c\ 4052}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12252,13 +12259,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12266,15 +12273,15 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
-
#{step\ 1820}#)))))))
- #{tmp\ 1822}#)
- ((lambda (#{tmp\ 1827}#)
- (if #{tmp\ 1827}#
- (apply (lambda
(#{e1\ 1828}#
-
#{e2\ 1829}#)
+
#{step\ 4057}#)))))))
+ #{tmp\ 4059}#)
+ ((lambda (#{tmp\ 4064}#)
+ (if #{tmp\ 4064}#
+ (apply (lambda
(#{e1\ 4067}#
+
#{e2\ 4068}#)
(list
'#(syntax-object
let
((top)
@@ -12283,12 +12290,12 @@
e2)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4065"
+
"i4066"))
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12304,13 +12311,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12318,7 +12325,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
'#(syntax-object
@@ -12329,12 +12336,12 @@
e2)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4065"
+
"i4066"))
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12350,13 +12357,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12364,12 +12371,12 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
(map
list
-
#{var\ 1812}#
-
#{init\ 1813}#)
+
#{var\ 4047}#
+
#{init\ 4048}#)
(list '#(syntax-object
if
((top)
@@ -12378,12 +12385,12 @@
e2)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4065"
+
"i4066"))
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12399,13 +12406,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12413,10 +12420,10 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
-
#{e0\ 1815}#
+
#{e0\ 4050}#
(cons '#(syntax-object
begin
((top)
@@ -12425,12 +12432,12 @@
e2)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4065"
+
"i4066"))
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12446,13 +12453,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12460,11 +12467,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
-
(cons #{e1\ 1828}#
-
#{e2\ 1829}#))
+
(cons #{e1\ 4067}#
+
#{e2\ 4068}#))
(cons '#(syntax-object
begin
((top)
@@ -12473,12 +12480,12 @@
e2)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4065"
+
"i4066"))
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12494,13 +12501,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12508,11 +12515,11 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
(append
-
#{c\ 1817}#
+
#{c\ 4052}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12521,12 +12528,12 @@
e2)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4065"
+
"i4066"))
#(ribcage
#(step)
#((top))
-
#("i"))
+
#("i4056"))
#(ribcage
#(_
var
@@ -12542,13 +12549,13 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"
-
"i"))
+
#("i4039"
+
"i4040"
+
"i4041"
+
"i4042"
+
"i4043"
+
"i4044"
+
"i4045"))
#(ribcage
()
()
@@ -12556,106 +12563,106 @@
#(ribcage
#(orig-x)
#((top))
-
#("i")))
+
#("i4036")))
(hygiene
guile))
-
#{step\ 1820}#)))))))
- #{tmp\
1827}#)
+
#{step\ 4057}#)))))))
+ #{tmp\
4064}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 1821}#)))
+ #{tmp\ 4058}#)))
($sc-dispatch
- #{tmp\ 1821}#
+ #{tmp\ 4058}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 1821}#
+ #{tmp\ 4058}#
'())))
- #{e1\ 1816}#))
- #{tmp\ 1819}#)
+ #{e1\ 4051}#))
+ #{tmp\ 4055}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1818}#)))
+ #{tmp\ 4054}#)))
($sc-dispatch
- #{tmp\ 1818}#
+ #{tmp\ 4054}#
'each-any)))
- (map (lambda (#{v\ 1836}# #{s\ 1837}#)
- ((lambda (#{tmp\ 1838}#)
- ((lambda (#{tmp\ 1839}#)
- (if #{tmp\ 1839}#
- (apply (lambda () #{v\ 1836}#)
- #{tmp\ 1839}#)
- ((lambda (#{tmp\ 1840}#)
- (if #{tmp\ 1840}#
- (apply (lambda (#{e\ 1841}#)
- #{e\ 1841}#)
- #{tmp\ 1840}#)
- ((lambda (#{_\ 1842}#)
+ (map (lambda (#{v\ 4075}# #{s\ 4076}#)
+ ((lambda (#{tmp\ 4079}#)
+ ((lambda (#{tmp\ 4080}#)
+ (if #{tmp\ 4080}#
+ (apply (lambda () #{v\ 4075}#)
+ #{tmp\ 4080}#)
+ ((lambda (#{tmp\ 4081}#)
+ (if #{tmp\ 4081}#
+ (apply (lambda (#{e\ 4083}#)
+ #{e\ 4083}#)
+ #{tmp\ 4081}#)
+ ((lambda (#{_\ 4085}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 1808}#
- #{s\ 1837}#))
- #{tmp\ 1838}#)))
+ #{orig-x\ 4035}#
+ #{s\ 4076}#))
+ #{tmp\ 4079}#)))
($sc-dispatch
- #{tmp\ 1838}#
+ #{tmp\ 4079}#
'(any)))))
($sc-dispatch
- #{tmp\ 1838}#
+ #{tmp\ 4079}#
'())))
- #{s\ 1837}#))
- #{var\ 1812}#
- #{step\ 1814}#)))
- #{tmp\ 1810}#)
+ #{s\ 4076}#))
+ #{var\ 4047}#
+ #{step\ 4049}#)))
+ #{tmp\ 4038}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1809}#)))
+ #{tmp\ 4037}#)))
($sc-dispatch
- #{tmp\ 1809}#
+ #{tmp\ 4037}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 1808}#))
+ #{orig-x\ 4035}#))
(module-name (current-module)))))
(define quasiquote
(make-syncase-macro
'macro
- (cons (letrec ((#{quasicons\ 1845}#
- (lambda (#{x\ 1849}# #{y\ 1850}#)
- ((lambda (#{tmp\ 1851}#)
- ((lambda (#{tmp\ 1852}#)
- (if #{tmp\ 1852}#
- (apply (lambda (#{x\ 1853}# #{y\ 1854}#)
- ((lambda (#{tmp\ 1855}#)
- ((lambda (#{tmp\ 1856}#)
- (if #{tmp\ 1856}#
- (apply (lambda (#{dy\ 1857}#)
- ((lambda (#{tmp\
1858}#)
- ((lambda (#{tmp\
1859}#)
- (if #{tmp\
1859}#
- (apply
(lambda (#{dx\ 1860}#)
+ (cons (letrec ((#{quasicons\ 4092}#
+ (lambda (#{x\ 4096}# #{y\ 4097}#)
+ ((lambda (#{tmp\ 4101}#)
+ ((lambda (#{tmp\ 4102}#)
+ (if #{tmp\ 4102}#
+ (apply (lambda (#{x\ 4105}# #{y\ 4106}#)
+ ((lambda (#{tmp\ 4107}#)
+ ((lambda (#{tmp\ 4108}#)
+ (if #{tmp\ 4108}#
+ (apply (lambda (#{dy\ 4110}#)
+ ((lambda (#{tmp\
4111}#)
+ ((lambda (#{tmp\
4112}#)
+ (if #{tmp\
4112}#
+ (apply
(lambda (#{dx\ 4114}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
-
#("i"))
+
#("i4113"))
#(ribcage
#(dy)
#((top))
-
#("i"))
+
#("i4109"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4103"
+
"i4104"))
#(ribcage
()
()
@@ -12669,8 +12676,8 @@
y)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4098"
+
"i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12680,35 +12687,35 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i")))
+
#("i4088"
+
"i4089"
+
"i4090"
+
"i4091")))
(hygiene
guile))
-
(cons #{dx\ 1860}#
-
#{dy\ 1857}#)))
- #{tmp\
1859}#)
- ((lambda
(#{_\ 1861}#)
- (if (null?
#{dy\ 1857}#)
+
(cons #{dx\ 4114}#
+
#{dy\ 4110}#)))
+ #{tmp\
4112}#)
+ ((lambda
(#{_\ 4116}#)
+ (if (null?
#{dy\ 4110}#)
(list
'#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
-
#("i"))
+
#("i4115"))
#(ribcage
#(dy)
#((top))
-
#("i"))
+
#("i4109"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4103"
+
"i4104"))
#(ribcage
()
()
@@ -12722,8 +12729,8 @@
y)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4098"
+
"i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12733,31 +12740,31 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i")))
+
#("i4088"
+
"i4089"
+
"i4090"
+
"i4091")))
(hygiene
guile))
-
#{x\ 1853}#)
+
#{x\ 4105}#)
(list
'#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
-
#("i"))
+
#("i4115"))
#(ribcage
#(dy)
#((top))
-
#("i"))
+
#("i4109"))
#(ribcage
#(x
y)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4103"
+
"i4104"))
#(ribcage
()
()
@@ -12771,8 +12778,8 @@
y)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4098"
+
"i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12782,17 +12789,17 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i")))
+
#("i4088"
+
"i4089"
+
"i4090"
+
"i4091")))
(hygiene
guile))
-
#{x\ 1853}#
-
#{y\ 1854}#)))
- #{tmp\
1858}#)))
+
#{x\ 4105}#
+
#{y\ 4106}#)))
+ #{tmp\
4111}#)))
($sc-dispatch
- #{tmp\ 1858}#
+ #{tmp\ 4111}#
'(#(free-id
#(syntax-object
quote
@@ -12800,13 +12807,13 @@
#(ribcage
#(dy)
#((top))
- #("i"))
+
#("i4109"))
#(ribcage
#(x y)
#((top)
(top))
- #("i"
- "i"))
+
#("i4103"
+
"i4104"))
#(ribcage
()
()
@@ -12819,8 +12826,8 @@
#(x y)
#((top)
(top))
- #("i"
- "i"))
+
#("i4098"
+
"i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12830,32 +12837,32 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
-
"i")))
+
#("i4088"
+
"i4089"
+
"i4090"
+
"i4091")))
(hygiene
guile)))
any))))
- #{x\ 1853}#))
- #{tmp\ 1856}#)
- ((lambda (#{tmp\ 1862}#)
- (if #{tmp\ 1862}#
- (apply (lambda (#{stuff\
1863}#)
+ #{x\ 4105}#))
+ #{tmp\ 4108}#)
+ ((lambda (#{tmp\ 4117}#)
+ (if #{tmp\ 4117}#
+ (apply (lambda (#{stuff\
4119}#)
(cons
'#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
-
#("i"))
+
#("i4118"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i"
-
"i"))
+
#("i4103"
+
"i4104"))
#(ribcage
()
()
@@ -12869,8 +12876,8 @@
y)
#((top)
(top))
- #("i"
-
"i"))
+
#("i4098"
+
"i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12880,28 +12887,29 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
-
"i")))
+
#("i4088"
+
"i4089"
+
"i4090"
+
"i4091")))
(hygiene
guile))
- (cons #{x\
1853}#
-
#{stuff\ 1863}#)))
- #{tmp\ 1862}#)
- ((lambda (#{else\ 1864}#)
+ (cons #{x\
4105}#
+
#{stuff\ 4119}#)))
+ #{tmp\ 4117}#)
+ ((lambda (#{else\ 4121}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i"))
+ #("i4120"))
#(ribcage
#(x y)
#((top)
(top))
- #("i" "i"))
+ #("i4103"
+ "i4104"))
#(ribcage
()
()
@@ -12914,7 +12922,8 @@
#(x y)
#((top)
(top))
- #("i" "i"))
+ #("i4098"
+ "i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12924,17 +12933,17 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+
"i4091")))
(hygiene
guile))
- #{x\ 1853}#
- #{y\ 1854}#))
- #{tmp\ 1855}#)))
+ #{x\ 4105}#
+ #{y\ 4106}#))
+ #{tmp\ 4107}#)))
($sc-dispatch
- #{tmp\ 1855}#
+ #{tmp\ 4107}#
'(#(free-id
#(syntax-object
list
@@ -12942,13 +12951,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4103" "i4104"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4098" "i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12958,15 +12967,15 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 1855}#
+ #{tmp\ 4107}#
'(#(free-id
#(syntax-object
quote
@@ -12974,13 +12983,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4103" "i4104"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4098" "i4099"))
#(ribcage
#(quasicons
quasiappend
@@ -12990,40 +12999,44 @@
(top)
(top)
(top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
any))))
- #{y\ 1854}#))
- #{tmp\ 1852}#)
+ #{y\ 4106}#))
+ #{tmp\ 4102}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1851}#)))
- ($sc-dispatch #{tmp\ 1851}# (quote (any any)))))
- (list #{x\ 1849}# #{y\ 1850}#))))
- (#{quasiappend\ 1846}#
- (lambda (#{x\ 1865}# #{y\ 1866}#)
- ((lambda (#{tmp\ 1867}#)
- ((lambda (#{tmp\ 1868}#)
- (if #{tmp\ 1868}#
- (apply (lambda (#{x\ 1869}# #{y\ 1870}#)
- ((lambda (#{tmp\ 1871}#)
- ((lambda (#{tmp\ 1872}#)
- (if #{tmp\ 1872}#
- (apply (lambda () #{x\ 1869}#)
- #{tmp\ 1872}#)
- ((lambda (#{_\ 1873}#)
+ #{tmp\ 4101}#)))
+ ($sc-dispatch #{tmp\ 4101}# (quote (any any)))))
+ (list #{x\ 4096}# #{y\ 4097}#))))
+ (#{quasiappend\ 4093}#
+ (lambda (#{x\ 4122}# #{y\ 4123}#)
+ ((lambda (#{tmp\ 4127}#)
+ ((lambda (#{tmp\ 4128}#)
+ (if #{tmp\ 4128}#
+ (apply (lambda (#{x\ 4131}# #{y\ 4132}#)
+ ((lambda (#{tmp\ 4133}#)
+ ((lambda (#{tmp\ 4134}#)
+ (if #{tmp\ 4134}#
+ (apply (lambda () #{x\ 4131}#)
+ #{tmp\ 4134}#)
+ ((lambda (#{_\ 4136}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i"))
+ #("i4135"))
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4129"
+ "i4130"))
#(ribcage
()
()
@@ -13035,7 +13048,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4124"
+ "i4125"))
#(ribcage
#(quasicons
quasiappend
@@ -13045,16 +13059,16 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile))
- #{x\ 1869}#
- #{y\ 1870}#))
- #{tmp\ 1871}#)))
+ #{x\ 4131}#
+ #{y\ 4132}#))
+ #{tmp\ 4133}#)))
($sc-dispatch
- #{tmp\ 1871}#
+ #{tmp\ 4133}#
'(#(free-id
#(syntax-object
quote
@@ -13062,13 +13076,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4129" "i4130"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i" "i"))
+ #("i4124" "i4125"))
#(ribcage
#(quasicons
quasiappend
@@ -13078,42 +13092,45 @@
(top)
(top)
(top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
()))))
- #{y\ 1870}#))
- #{tmp\ 1868}#)
+ #{y\ 4132}#))
+ #{tmp\ 4128}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1867}#)))
- ($sc-dispatch #{tmp\ 1867}# (quote (any any)))))
- (list #{x\ 1865}# #{y\ 1866}#))))
- (#{quasivector\ 1847}#
- (lambda (#{x\ 1874}#)
- ((lambda (#{tmp\ 1875}#)
- ((lambda (#{x\ 1876}#)
- ((lambda (#{tmp\ 1877}#)
- ((lambda (#{tmp\ 1878}#)
- (if #{tmp\ 1878}#
- (apply (lambda (#{x\ 1879}#)
+ #{tmp\ 4127}#)))
+ ($sc-dispatch #{tmp\ 4127}# (quote (any any)))))
+ (list #{x\ 4122}# #{y\ 4123}#))))
+ (#{quasivector\ 4094}#
+ (lambda (#{x\ 4137}#)
+ ((lambda (#{tmp\ 4140}#)
+ ((lambda (#{x\ 4142}#)
+ ((lambda (#{tmp\ 4143}#)
+ ((lambda (#{tmp\ 4144}#)
+ (if #{tmp\ 4144}#
+ (apply (lambda (#{x\ 4146}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4145"))
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4141"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4138"))
#(ribcage
#(quasicons
quasiappend
@@ -13123,25 +13140,28 @@
(top)
(top)
(top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile))
(list->vector
- #{x\ 1879}#)))
- #{tmp\ 1878}#)
- ((lambda (#{tmp\ 1881}#)
- (if #{tmp\ 1881}#
- (apply (lambda (#{x\ 1882}#)
+ #{x\ 4146}#)))
+ #{tmp\ 4144}#)
+ ((lambda (#{tmp\ 4148}#)
+ (if #{tmp\ 4148}#
+ (apply (lambda (#{x\ 4150}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4149"))
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4141"))
#(ribcage
()
()
@@ -13153,7 +13173,7 @@
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4138"))
#(ribcage
#(quasicons
quasiappend
@@ -13163,31 +13183,31 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile))
- #{x\ 1882}#))
- #{tmp\ 1881}#)
- ((lambda (#{_\ 1884}#)
+ #{x\ 4150}#))
+ #{tmp\ 4148}#)
+ ((lambda (#{_\ 4153}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i"))
+ #("i4152"))
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4141"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i"))
+ #("i4138"))
#(ribcage
#(quasicons
quasiappend
@@ -13197,80 +13217,98 @@
(top)
(top)
(top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile))
- #{x\ 1876}#))
- #{tmp\ 1877}#)))
+ #{x\ 4142}#))
+ #{tmp\ 4143}#)))
($sc-dispatch
- #{tmp\ 1877}#
+ #{tmp\ 4143}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i4141"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i4138"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 1877}#
+ #{tmp\ 4143}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i"))
+ #(ribcage #(x) #((top)) #("i4141"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i"))
+ #(ribcage #(x) #((top)) #("i4138"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
each-any))))
- #{x\ 1876}#))
- #{tmp\ 1875}#))
- #{x\ 1874}#)))
- (#{quasi\ 1848}#
- (lambda (#{p\ 1885}# #{lev\ 1886}#)
- ((lambda (#{tmp\ 1887}#)
- ((lambda (#{tmp\ 1888}#)
- (if #{tmp\ 1888}#
- (apply (lambda (#{p\ 1889}#)
- (if (= #{lev\ 1886}# 0)
- #{p\ 1889}#
- (#{quasicons\ 1845}#
+ #{x\ 4142}#))
+ #{tmp\ 4140}#))
+ #{x\ 4137}#)))
+ (#{quasi\ 4095}#
+ (lambda (#{p\ 4154}# #{lev\ 4155}#)
+ ((lambda (#{tmp\ 4158}#)
+ ((lambda (#{tmp\ 4159}#)
+ (if #{tmp\ 4159}#
+ (apply (lambda (#{p\ 4161}#)
+ (if (= #{lev\ 4155}# 0)
+ #{p\ 4161}#
+ (#{quasicons\ 4092}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i"))
+ #("i4160"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile))
#(syntax-object
unquote
@@ -13278,47 +13316,50 @@
#(ribcage
#(p)
#((top))
- #("i"))
+ #("i4160"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
- (#{quasi\ 1848}#
- (list #{p\ 1889}#)
- (- #{lev\ 1886}# 1)))))
- #{tmp\ 1888}#)
- ((lambda (#{tmp\ 1890}#)
- (if (if #{tmp\ 1890}#
- (apply (lambda (#{args\ 1891}#)
- (= #{lev\ 1886}# 0))
- #{tmp\ 1890}#)
+ (#{quasi\ 4095}#
+ (list #{p\ 4161}#)
+ (- #{lev\ 4155}# 1)))))
+ #{tmp\ 4159}#)
+ ((lambda (#{tmp\ 4162}#)
+ (if (if #{tmp\ 4162}#
+ (apply (lambda (#{args\ 4164}#)
+ (= #{lev\ 4155}# 0))
+ #{tmp\ 4162}#)
#f)
- (apply (lambda (#{args\ 1892}#)
+ (apply (lambda (#{args\ 4166}#)
(syntax-violation
'unquote
"unquote takes exactly one
argument"
- #{p\ 1885}#
+ #{p\ 4154}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i"))
+ #("i4165"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13328,29 +13369,33 @@
(top)
(top)
(top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile))
- #{args\ 1892}#)))
- #{tmp\ 1890}#)
- ((lambda (#{tmp\ 1893}#)
- (if #{tmp\ 1893}#
- (apply (lambda (#{p\ 1894}#
- #{q\ 1895}#)
- (if (= #{lev\ 1886}# 0)
- (#{quasiappend\ 1846}#
- #{p\ 1894}#
- (#{quasi\ 1848}#
- #{q\ 1895}#
- #{lev\ 1886}#))
- (#{quasicons\ 1845}#
- (#{quasicons\ 1845}#
+ #{args\ 4166}#)))
+ #{tmp\ 4162}#)
+ ((lambda (#{tmp\ 4167}#)
+ (if #{tmp\ 4167}#
+ (apply (lambda (#{p\ 4170}#
+ #{q\ 4171}#)
+ (if (= #{lev\ 4155}# 0)
+ (#{quasiappend\ 4093}#
+ #{p\ 4170}#
+ (#{quasi\ 4095}#
+ #{q\ 4171}#
+ #{lev\ 4155}#))
+ (#{quasicons\ 4092}#
+ (#{quasicons\ 4092}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i" "i"))
+ #("i4168"
+ "i4169"))
#(ribcage
()
()
@@ -13358,7 +13403,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156"
+ "i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13368,10 +13414,10 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -13379,7 +13425,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i" "i"))
+ #("i4168"
+ "i4169"))
#(ribcage
()
()
@@ -13387,7 +13434,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156"
+ "i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13397,31 +13445,31 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
- (#{quasi\ 1848}#
- (list #{p\ 1894}#)
- (- #{lev\ 1886}# 1)))
- (#{quasi\ 1848}#
- #{q\ 1895}#
- #{lev\ 1886}#))))
- #{tmp\ 1893}#)
- ((lambda (#{tmp\ 1896}#)
- (if (if #{tmp\ 1896}#
- (apply (lambda (#{args\
1897}#
- #{q\ 1898}#)
- (= #{lev\ 1886}# 0))
- #{tmp\ 1896}#)
+ (#{quasi\ 4095}#
+ (list #{p\ 4170}#)
+ (- #{lev\ 4155}# 1)))
+ (#{quasi\ 4095}#
+ #{q\ 4171}#
+ #{lev\ 4155}#))))
+ #{tmp\ 4167}#)
+ ((lambda (#{tmp\ 4172}#)
+ (if (if #{tmp\ 4172}#
+ (apply (lambda (#{args\
4175}#
+ #{q\ 4176}#)
+ (= #{lev\ 4155}# 0))
+ #{tmp\ 4172}#)
#f)
- (apply (lambda (#{args\ 1899}#
- #{q\ 1900}#)
+ (apply (lambda (#{args\ 4179}#
+ #{q\ 4180}#)
(syntax-violation
'unquote-splicing
"unquote-splicing
takes exactly one argument"
- #{p\ 1885}#
+ #{p\ 4154}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -13429,8 +13477,8 @@
#(args q)
#((top)
(top))
- #("i"
- "i"))
+ #("i4177"
+
"i4178"))
#(ribcage
()
()
@@ -13439,8 +13487,8 @@
#(p lev)
#((top)
(top))
- #("i"
- "i"))
+ #("i4156"
+
"i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13450,25 +13498,25 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+
"i4091")))
(hygiene
guile))
- #{args\
1899}#)))
- #{tmp\ 1896}#)
- ((lambda (#{tmp\ 1901}#)
- (if #{tmp\ 1901}#
- (apply (lambda (#{p\ 1902}#)
- (#{quasicons\
1845}#
+ #{args\
4179}#)))
+ #{tmp\ 4172}#)
+ ((lambda (#{tmp\ 4181}#)
+ (if #{tmp\ 4181}#
+ (apply (lambda (#{p\ 4183}#)
+ (#{quasicons\
4092}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i"))
+
#("i4182"))
#(ribcage
()
()
@@ -13477,8 +13525,8 @@
#(p lev)
#((top)
(top))
- #("i"
- "i"))
+ #("i4156"
+
"i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13488,10 +13536,10 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+
"i4091")))
(hygiene
guile))
#(syntax-object
@@ -13500,7 +13548,7 @@
#(ribcage
#(p)
#((top))
- #("i"))
+
#("i4182"))
#(ribcage
()
()
@@ -13509,8 +13557,8 @@
#(p lev)
#((top)
(top))
- #("i"
- "i"))
+ #("i4156"
+
"i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13520,45 +13568,45 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
- "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+
"i4091")))
(hygiene
guile)))
- (#{quasi\ 1848}#
- (list #{p\
1902}#)
- (+ #{lev\
1886}#
+ (#{quasi\ 4095}#
+ (list #{p\
4183}#)
+ (+ #{lev\
4155}#
1))))
- #{tmp\ 1901}#)
- ((lambda (#{tmp\ 1903}#)
- (if #{tmp\ 1903}#
- (apply (lambda (#{p\
1904}#
- #{q\
1905}#)
- (#{quasicons\
1845}#
- (#{quasi\
1848}#
- #{p\
1904}#
- #{lev\
1886}#)
- (#{quasi\
1848}#
- #{q\
1905}#
- #{lev\
1886}#)))
- #{tmp\ 1903}#)
- ((lambda (#{tmp\
1906}#)
- (if #{tmp\ 1906}#
- (apply (lambda
(#{x\ 1907}#)
-
(#{quasivector\ 1847}#
-
(#{quasi\ 1848}#
- #{x\
1907}#
-
#{lev\ 1886}#)))
- #{tmp\
1906}#)
- ((lambda (#{p\
1909}#)
+ #{tmp\ 4181}#)
+ ((lambda (#{tmp\ 4184}#)
+ (if #{tmp\ 4184}#
+ (apply (lambda (#{p\
4187}#
+ #{q\
4188}#)
+ (#{quasicons\
4092}#
+ (#{quasi\
4095}#
+ #{p\
4187}#
+ #{lev\
4155}#)
+ (#{quasi\
4095}#
+ #{q\
4188}#
+ #{lev\
4155}#)))
+ #{tmp\ 4184}#)
+ ((lambda (#{tmp\
4189}#)
+ (if #{tmp\ 4189}#
+ (apply (lambda
(#{x\ 4191}#)
+
(#{quasivector\ 4094}#
+
(#{quasi\ 4095}#
+ #{x\
4191}#
+
#{lev\ 4155}#)))
+ #{tmp\
4189}#)
+ ((lambda (#{p\
4194}#)
(list
'#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
-
#("i"))
+
#("i4193"))
#(ribcage
()
()
@@ -13568,8 +13616,8 @@
lev)
#((top)
(top))
-
#("i"
-
"i"))
+
#("i4156"
+
"i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13579,23 +13627,23 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i")))
+
#("i4088"
+
"i4089"
+
"i4090"
+
"i4091")))
(hygiene
guile))
- #{p\
1909}#))
- #{tmp\ 1887}#)))
+ #{p\
4194}#))
+ #{tmp\ 4158}#)))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 4158}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 4158}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 4158}#
'(#(free-id
#(syntax-object
quasiquote
@@ -13604,7 +13652,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13614,11 +13662,14 @@
(top)
(top)
(top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 4158}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13627,7 +13678,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
@@ -13637,14 +13688,17 @@
(top)
(top)
(top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 4158}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13653,20 +13707,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i" "i" "i" "i")))
+ #("i4088"
+ "i4089"
+ "i4090"
+ "i4091")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 4158}#
'(#(free-id
#(syntax-object
unquote
@@ -13675,19 +13732,19 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i" "i" "i" "i")))
+ #("i4088" "i4089" "i4090" "i4091")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 1887}#
+ #{tmp\ 4158}#
'(#(free-id
#(syntax-object
unquote
@@ -13696,219 +13753,238 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i" "i"))
+ #("i4156" "i4157"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i" "i" "i" "i")))
+ #("i4088" "i4089" "i4090" "i4091")))
(hygiene guile)))
any))))
- #{p\ 1885}#))))
- (lambda (#{x\ 1910}#)
- ((lambda (#{tmp\ 1911}#)
- ((lambda (#{tmp\ 1912}#)
- (if #{tmp\ 1912}#
- (apply (lambda (#{_\ 1913}# #{e\ 1914}#)
- (#{quasi\ 1848}# #{e\ 1914}# 0))
- #{tmp\ 1912}#)
+ #{p\ 4154}#))))
+ (lambda (#{x\ 4195}#)
+ ((lambda (#{tmp\ 4197}#)
+ ((lambda (#{tmp\ 4198}#)
+ (if #{tmp\ 4198}#
+ (apply (lambda (#{_\ 4201}# #{e\ 4202}#)
+ (#{quasi\ 4095}# #{e\ 4202}# 0))
+ #{tmp\ 4198}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1911}#)))
- ($sc-dispatch #{tmp\ 1911}# (quote (any any)))))
- #{x\ 1910}#)))
+ #{tmp\ 4197}#)))
+ ($sc-dispatch #{tmp\ 4197}# (quote (any any)))))
+ #{x\ 4195}#)))
(module-name (current-module)))))
(define include
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1915}#)
- (letrec ((#{read-file\ 1916}#
- (lambda (#{fn\ 1917}# #{k\ 1918}#)
- (let ((#{p\ 1919}# (open-input-file #{fn\ 1917}#)))
- (letrec ((#{f\ 1920}#
- (lambda (#{x\ 1921}#)
- (if (eof-object? #{x\ 1921}#)
+ (cons (lambda (#{x\ 4203}#)
+ (letrec ((#{read-file\ 4206}#
+ (lambda (#{fn\ 4207}# #{k\ 4208}#)
+ (let ((#{p\ 4212}# (open-input-file #{fn\ 4207}#)))
+ (letrec ((#{f\ 4215}#
+ (lambda (#{x\ 4216}#)
+ (if (eof-object? #{x\ 4216}#)
(begin
- (close-input-port #{p\ 1919}#)
+ (close-input-port #{p\ 4212}#)
'())
(cons (datum->syntax
- #{k\ 1918}#
- #{x\ 1921}#)
- (#{f\ 1920}#
- (read #{p\ 1919}#)))))))
- (#{f\ 1920}# (read #{p\ 1919}#)))))))
- ((lambda (#{tmp\ 1922}#)
- ((lambda (#{tmp\ 1923}#)
- (if #{tmp\ 1923}#
- (apply (lambda (#{k\ 1924}# #{filename\ 1925}#)
- (let ((#{fn\ 1926}#
- (syntax->datum #{filename\ 1925}#)))
- ((lambda (#{tmp\ 1927}#)
- ((lambda (#{tmp\ 1928}#)
- (if #{tmp\ 1928}#
- (apply (lambda (#{exp\ 1929}#)
+ #{k\ 4208}#
+ #{x\ 4216}#)
+ (#{f\ 4215}#
+ (read #{p\ 4212}#)))))))
+ (#{f\ 4215}# (read #{p\ 4212}#)))))))
+ ((lambda (#{tmp\ 4217}#)
+ ((lambda (#{tmp\ 4218}#)
+ (if #{tmp\ 4218}#
+ (apply (lambda (#{k\ 4221}# #{filename\ 4222}#)
+ (let ((#{fn\ 4224}#
+ (syntax->datum #{filename\ 4222}#)))
+ ((lambda (#{tmp\ 4226}#)
+ ((lambda (#{tmp\ 4227}#)
+ (if #{tmp\ 4227}#
+ (apply (lambda (#{exp\ 4229}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i"))
+ #("i4228"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i"))
+ #("i4223"))
#(ribcage
#(k filename)
#((top) (top))
- #("i" "i"))
+ #("i4219"
+ "i4220"))
#(ribcage
(read-file)
((top))
- ("i"))
+ ("i4205"))
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4204")))
(hygiene guile))
- #{exp\ 1929}#))
- #{tmp\ 1928}#)
+ #{exp\ 4229}#))
+ #{tmp\ 4227}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1927}#)))
+ #{tmp\ 4226}#)))
($sc-dispatch
- #{tmp\ 1927}#
+ #{tmp\ 4226}#
'each-any)))
- (#{read-file\ 1916}#
- #{fn\ 1926}#
- #{k\ 1924}#))))
- #{tmp\ 1923}#)
+ (#{read-file\ 4206}#
+ #{fn\ 4224}#
+ #{k\ 4221}#))))
+ #{tmp\ 4218}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1922}#)))
- ($sc-dispatch #{tmp\ 1922}# (quote (any any)))))
- #{x\ 1915}#)))
+ #{tmp\ 4217}#)))
+ ($sc-dispatch #{tmp\ 4217}# (quote (any any)))))
+ #{x\ 4203}#)))
(module-name (current-module)))))
(define include-from-path
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1931}#)
- ((lambda (#{tmp\ 1932}#)
- ((lambda (#{tmp\ 1933}#)
- (if #{tmp\ 1933}#
- (apply (lambda (#{k\ 1934}# #{filename\ 1935}#)
- (let ((#{fn\ 1936}#
- (syntax->datum #{filename\ 1935}#)))
- ((lambda (#{tmp\ 1937}#)
- ((lambda (#{fn\ 1938}#)
+ (cons (lambda (#{x\ 4231}#)
+ ((lambda (#{tmp\ 4233}#)
+ ((lambda (#{tmp\ 4234}#)
+ (if #{tmp\ 4234}#
+ (apply (lambda (#{k\ 4237}# #{filename\ 4238}#)
+ (let ((#{fn\ 4240}#
+ (syntax->datum #{filename\ 4238}#)))
+ ((lambda (#{tmp\ 4242}#)
+ ((lambda (#{fn\ 4244}#)
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i"))
+ #(ribcage
+ #(fn)
+ #((top))
+ #("i4243"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i"))
+ #(ribcage
+ #(fn)
+ #((top))
+ #("i4239"))
#(ribcage
#(k filename)
#((top) (top))
- #("i" "i"))
+ #("i4235" "i4236"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i4232")))
(hygiene guile))
- #{fn\ 1938}#))
- #{tmp\ 1937}#))
- (let ((#{t\ 1939}#
- (%search-load-path #{fn\ 1936}#)))
- (if #{t\ 1939}#
- #{t\ 1939}#
+ #{fn\ 4244}#))
+ #{tmp\ 4242}#))
+ (let ((#{t\ 4247}#
+ (%search-load-path #{fn\ 4240}#)))
+ (if #{t\ 4247}#
+ #{t\ 4247}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 1931}#
- #{filename\ 1935}#))))))
- #{tmp\ 1933}#)
+ #{x\ 4231}#
+ #{filename\ 4238}#))))))
+ #{tmp\ 4234}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1932}#)))
- ($sc-dispatch #{tmp\ 1932}# (quote (any any)))))
- #{x\ 1931}#))
+ #{tmp\ 4233}#)))
+ ($sc-dispatch #{tmp\ 4233}# (quote (any any)))))
+ #{x\ 4231}#))
(module-name (current-module)))))
(define unquote
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1940}#)
- ((lambda (#{tmp\ 1941}#)
- ((lambda (#{tmp\ 1942}#)
- (if #{tmp\ 1942}#
- (apply (lambda (#{_\ 1943}# #{e\ 1944}#)
+ (cons (lambda (#{x\ 4249}#)
+ ((lambda (#{tmp\ 4251}#)
+ ((lambda (#{tmp\ 4252}#)
+ (if #{tmp\ 4252}#
+ (apply (lambda (#{_\ 4255}# #{e\ 4256}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 1940}#))
- #{tmp\ 1942}#)
+ #{x\ 4249}#))
+ #{tmp\ 4252}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1941}#)))
- ($sc-dispatch #{tmp\ 1941}# (quote (any any)))))
- #{x\ 1940}#))
+ #{tmp\ 4251}#)))
+ ($sc-dispatch #{tmp\ 4251}# (quote (any any)))))
+ #{x\ 4249}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1945}#)
- ((lambda (#{tmp\ 1946}#)
- ((lambda (#{tmp\ 1947}#)
- (if #{tmp\ 1947}#
- (apply (lambda (#{_\ 1948}# #{e\ 1949}#)
+ (cons (lambda (#{x\ 4257}#)
+ ((lambda (#{tmp\ 4259}#)
+ ((lambda (#{tmp\ 4260}#)
+ (if #{tmp\ 4260}#
+ (apply (lambda (#{_\ 4263}# #{e\ 4264}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 1945}#))
- #{tmp\ 1947}#)
+ #{x\ 4257}#))
+ #{tmp\ 4260}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1946}#)))
- ($sc-dispatch #{tmp\ 1946}# (quote (any any)))))
- #{x\ 1945}#))
+ #{tmp\ 4259}#)))
+ ($sc-dispatch #{tmp\ 4259}# (quote (any any)))))
+ #{x\ 4257}#))
(module-name (current-module)))))
(define case
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1950}#)
- ((lambda (#{tmp\ 1951}#)
- ((lambda (#{tmp\ 1952}#)
- (if #{tmp\ 1952}#
- (apply (lambda (#{_\ 1953}#
- #{e\ 1954}#
- #{m1\ 1955}#
- #{m2\ 1956}#)
- ((lambda (#{tmp\ 1957}#)
- ((lambda (#{body\ 1958}#)
+ (cons (lambda (#{x\ 4265}#)
+ ((lambda (#{tmp\ 4267}#)
+ ((lambda (#{tmp\ 4268}#)
+ (if #{tmp\ 4268}#
+ (apply (lambda (#{_\ 4273}#
+ #{e\ 4274}#
+ #{m1\ 4275}#
+ #{m2\ 4276}#)
+ ((lambda (#{tmp\ 4278}#)
+ ((lambda (#{body\ 4280}#)
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i"))
+ #(ribcage
+ #(body)
+ #((top))
+ #("i4279"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i" "i" "i" "i"))
+ #("i4269"
+ "i4270"
+ "i4271"
+ "i4272"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i4266")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -13916,32 +13992,35 @@
#(ribcage
#(body)
#((top))
- #("i"))
+ #("i4279"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i" "i" "i" "i"))
+ #("i4269"
+ "i4270"
+ "i4271"
+ "i4272"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4266")))
(hygiene guile))
- #{e\ 1954}#))
- #{body\ 1958}#))
- #{tmp\ 1957}#))
- (letrec ((#{f\ 1959}#
- (lambda (#{clause\ 1960}#
- #{clauses\ 1961}#)
- (if (null? #{clauses\ 1961}#)
- ((lambda (#{tmp\ 1963}#)
- ((lambda (#{tmp\ 1964}#)
- (if #{tmp\ 1964}#
- (apply (lambda (#{e1\
1965}#
- #{e2\
1966}#)
+ #{e\ 4274}#))
+ #{body\ 4280}#))
+ #{tmp\ 4278}#))
+ (letrec ((#{f\ 4284}#
+ (lambda (#{clause\ 4285}#
+ #{clauses\ 4286}#)
+ (if (null? #{clauses\ 4286}#)
+ ((lambda (#{tmp\ 4288}#)
+ ((lambda (#{tmp\ 4289}#)
+ (if #{tmp\ 4289}#
+ (apply (lambda (#{e1\
4292}#
+ #{e2\
4293}#)
(cons
'#(syntax-object
begin
((top)
@@ -13950,8 +14029,8 @@
e2)
#((top)
(top))
- #("i"
-
"i"))
+
#("i4290"
+
"i4291"))
#(ribcage
()
()
@@ -13963,9 +14042,9 @@
#((top)
(top)
(top))
- #("i"
- "i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -13975,10 +14054,10 @@
(top)
(top)
(top))
- #("i"
- "i"
- "i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -13986,17 +14065,17 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
- (cons
#{e1\ 1965}#
-
#{e2\ 1966}#)))
- #{tmp\ 1964}#)
- ((lambda (#{tmp\ 1968}#)
- (if #{tmp\ 1968}#
- (apply (lambda (#{k\
1969}#
-
#{e1\ 1970}#
-
#{e2\ 1971}#)
+ (cons
#{e1\ 4292}#
+
#{e2\ 4293}#)))
+ #{tmp\ 4289}#)
+ ((lambda (#{tmp\ 4295}#)
+ (if #{tmp\ 4295}#
+ (apply (lambda (#{k\
4299}#
+
#{e1\ 4300}#
+
#{e2\ 4301}#)
(list
'#(syntax-object
if
((top)
@@ -14007,9 +14086,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14021,9 +14100,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14033,10 +14112,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14044,7 +14123,7 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
(list
'#(syntax-object
@@ -14057,9 +14136,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14071,9 +14150,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14083,10 +14162,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14094,7 +14173,7 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
'#(syntax-object
@@ -14107,9 +14186,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14121,9 +14200,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14133,10 +14212,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14144,7 +14223,7 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
(list '#(syntax-object
@@ -14157,9 +14236,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14171,9 +14250,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14183,10 +14262,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14194,10 +14273,10 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
-
#{k\ 1969}#))
+
#{k\ 4299}#))
(cons
'#(syntax-object
begin
((top)
@@ -14208,9 +14287,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4296"
+
"i4297"
+
"i4298"))
#(ribcage
()
()
@@ -14222,9 +14301,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14234,10 +14313,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14245,27 +14324,27 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
-
(cons #{e1\ 1970}#
-
#{e2\ 1971}#))))
- #{tmp\ 1968}#)
- ((lambda (#{_\
1974}#)
+
(cons #{e1\ 4300}#
+
#{e2\ 4301}#))))
+ #{tmp\ 4295}#)
+ ((lambda (#{_\
4305}#)
(syntax-violation
'case
"bad clause"
- #{x\ 1950}#
- #{clause\
1960}#))
- #{tmp\ 1963}#)))
+ #{x\ 4265}#
+ #{clause\
4285}#))
+ #{tmp\ 4288}#)))
($sc-dispatch
- #{tmp\ 1963}#
+ #{tmp\ 4288}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1963}#
+ #{tmp\ 4288}#
'(#(free-id
#(syntax-object
else
@@ -14276,32 +14355,37 @@
#((top)
(top)
(top))
- #("i" "i" "i"))
+ #("i4281"
+ "i4282"
+ "i4283"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i" "i" "i" "i"))
+ #("i4269"
+ "i4270"
+ "i4271"
+ "i4272"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4266")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 1960}#)
- ((lambda (#{tmp\ 1975}#)
- ((lambda (#{rest\ 1976}#)
- ((lambda (#{tmp\ 1977}#)
- ((lambda (#{tmp\ 1978}#)
- (if #{tmp\ 1978}#
- (apply (lambda
(#{k\ 1979}#
-
#{e1\ 1980}#
-
#{e2\ 1981}#)
+ #{clause\ 4285}#)
+ ((lambda (#{tmp\ 4307}#)
+ ((lambda (#{rest\ 4309}#)
+ ((lambda (#{tmp\ 4310}#)
+ ((lambda (#{tmp\ 4311}#)
+ (if #{tmp\ 4311}#
+ (apply (lambda
(#{k\ 4315}#
+
#{e1\ 4316}#
+
#{e2\ 4317}#)
(list
'#(syntax-object
if
((top)
@@ -14312,13 +14396,13 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i"))
+
#("i4308"))
#(ribcage
()
()
@@ -14330,9 +14414,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14342,10 +14426,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14353,7 +14437,7 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
(list '#(syntax-object
@@ -14366,13 +14450,13 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i"))
+
#("i4308"))
#(ribcage
()
()
@@ -14384,9 +14468,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14396,10 +14480,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14407,7 +14491,7 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
'#(syntax-object
@@ -14420,13 +14504,13 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i"))
+
#("i4308"))
#(ribcage
()
()
@@ -14438,9 +14522,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14450,10 +14534,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14461,7 +14545,7 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
(list '#(syntax-object
@@ -14474,13 +14558,13 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i"))
+
#("i4308"))
#(ribcage
()
()
@@ -14492,9 +14576,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14504,10 +14588,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14515,10 +14599,10 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
-
#{k\ 1979}#))
+
#{k\ 4315}#))
(cons '#(syntax-object
begin
((top)
@@ -14529,13 +14613,13 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4312"
+
"i4313"
+
"i4314"))
#(ribcage
#(rest)
#((top))
-
#("i"))
+
#("i4308"))
#(ribcage
()
()
@@ -14547,9 +14631,9 @@
#((top)
(top)
(top))
-
#("i"
-
"i"
-
"i"))
+
#("i4281"
+
"i4282"
+
"i4283"))
#(ribcage
#(_
e
@@ -14559,10 +14643,10 @@
(top)
(top)
(top))
-
#("i"
-
"i"
-
"i"
-
"i"))
+
#("i4269"
+
"i4270"
+
"i4271"
+
"i4272"))
#(ribcage
()
()
@@ -14570,60 +14654,60 @@
#(ribcage
#(x)
#((top))
-
#("i")))
+
#("i4266")))
(hygiene
guile))
-
(cons #{e1\ 1980}#
-
#{e2\ 1981}#))
-
#{rest\ 1976}#))
- #{tmp\
1978}#)
- ((lambda (#{_\
1984}#)
+
(cons #{e1\ 4316}#
+
#{e2\ 4317}#))
+
#{rest\ 4309}#))
+ #{tmp\
4311}#)
+ ((lambda (#{_\
4321}#)
(syntax-violation
'case
"bad clause"
- #{x\ 1950}#
- #{clause\
1960}#))
- #{tmp\ 1977}#)))
+ #{x\ 4265}#
+ #{clause\
4285}#))
+ #{tmp\ 4310}#)))
($sc-dispatch
- #{tmp\ 1977}#
+ #{tmp\ 4310}#
'(each-any
any
.
each-any))))
- #{clause\ 1960}#))
- #{tmp\ 1975}#))
- (#{f\ 1959}#
- (car #{clauses\ 1961}#)
- (cdr #{clauses\ 1961}#)))))))
- (#{f\ 1959}# #{m1\ 1955}# #{m2\ 1956}#))))
- #{tmp\ 1952}#)
+ #{clause\ 4285}#))
+ #{tmp\ 4307}#))
+ (#{f\ 4284}#
+ (car #{clauses\ 4286}#)
+ (cdr #{clauses\ 4286}#)))))))
+ (#{f\ 4284}# #{m1\ 4275}# #{m2\ 4276}#))))
+ #{tmp\ 4268}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1951}#)))
+ #{tmp\ 4267}#)))
($sc-dispatch
- #{tmp\ 1951}#
+ #{tmp\ 4267}#
'(any any any . each-any))))
- #{x\ 1950}#))
+ #{x\ 4265}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1985}#)
- ((lambda (#{tmp\ 1986}#)
- ((lambda (#{tmp\ 1987}#)
- (if #{tmp\ 1987}#
- (apply (lambda (#{_\ 1988}# #{e\ 1989}#)
+ (cons (lambda (#{x\ 4322}#)
+ ((lambda (#{tmp\ 4324}#)
+ ((lambda (#{tmp\ 4325}#)
+ (if #{tmp\ 4325}#
+ (apply (lambda (#{_\ 4328}# #{e\ 4329}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage #(x) #((top)) #("i4323")))
(hygiene guile))
'(#(syntax-object
x
@@ -14631,9 +14715,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage #(x) #((top)) #("i4323")))
(hygiene guile)))
(list '#(syntax-object
syntax-case
@@ -14641,9 +14725,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i4323")))
(hygiene guile))
'#(syntax-object
x
@@ -14651,9 +14738,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("i4323")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -14662,12 +14752,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -14675,12 +14765,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))
(#(syntax-object
syntax
@@ -14688,12 +14778,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))
#(syntax-object
id
@@ -14701,12 +14791,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -14714,27 +14804,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))
- #{e\ 1989}#))
- (list (cons #{_\ 1988}#
+ #{e\ 4329}#))
+ (list (cons #{_\ 4328}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))
#(syntax-object
...
@@ -14742,12 +14832,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -14755,14 +14845,14 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i" "i"))
+ #("i4326" "i4327"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))
- (cons #{e\ 1989}#
+ (cons #{e\ 4329}#
'(#(syntax-object
x
((top)
@@ -14770,7 +14860,8 @@
#(_ e)
#((top)
(top))
- #("i" "i"))
+ #("i4326"
+ "i4327"))
#(ribcage
()
()
@@ -14778,7 +14869,7 @@
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene guile))
#(syntax-object
...
@@ -14787,7 +14878,8 @@
#(_ e)
#((top)
(top))
- #("i" "i"))
+ #("i4326"
+ "i4327"))
#(ribcage
()
()
@@ -14795,69 +14887,80 @@
#(ribcage
#(x)
#((top))
- #("i")))
+ #("i4323")))
(hygiene
guile)))))))))
- #{tmp\ 1987}#)
+ #{tmp\ 4325}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1986}#)))
- ($sc-dispatch #{tmp\ 1986}# (quote (any any)))))
- #{x\ 1985}#))
+ #{tmp\ 4324}#)))
+ ($sc-dispatch #{tmp\ 4324}# (quote (any any)))))
+ #{x\ 4322}#))
(module-name (current-module)))))
(define define*
(make-syncase-macro
'macro
- (cons (lambda (#{x\ 1990}#)
- ((lambda (#{tmp\ 1991}#)
- ((lambda (#{tmp\ 1992}#)
- (if #{tmp\ 1992}#
- (apply (lambda (#{dummy\ 1993}#
- #{id\ 1994}#
- #{args\ 1995}#
- #{b0\ 1996}#
- #{b1\ 1997}#)
+ (cons (lambda (#{x\ 4331}#)
+ ((lambda (#{tmp\ 4333}#)
+ ((lambda (#{tmp\ 4334}#)
+ (if #{tmp\ 4334}#
+ (apply (lambda (#{dummy\ 4340}#
+ #{id\ 4341}#
+ #{args\ 4342}#
+ #{b0\ 4343}#
+ #{b1\ 4344}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(dummy id args b0 b1)
- #(("m" top) (top) (top) (top) (top))
- #("i" "i" "i" "i" "i"))
+ #((m4330 top) (top) (top) (top) (top))
+ #("i4335"
+ "i4336"
+ "i4337"
+ "i4338"
+ "i4339"))
#(ribcage () () ())
- #(ribcage #(x) #(("m" top)) #("i")))
+ #(ribcage
+ #(x)
+ #((m4330 top))
+ #("i4332")))
(hygiene guile))
- #{id\ 1994}#
+ #{id\ 4341}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(dummy id args b0 b1)
- #(("m" top)
+ #((m4330 top)
(top)
(top)
(top)
(top))
- #("i" "i" "i" "i" "i"))
+ #("i4335"
+ "i4336"
+ "i4337"
+ "i4338"
+ "i4339"))
#(ribcage () () ())
#(ribcage
#(x)
- #(("m" top))
- #("i")))
+ #((m4330 top))
+ #("i4332")))
(hygiene guile))
- (cons #{args\ 1995}#
- (cons #{b0\ 1996}#
- #{b1\ 1997}#)))))
- #{tmp\ 1992}#)
+ (cons #{args\ 4342}#
+ (cons #{b0\ 4343}#
+ #{b1\ 4344}#)))))
+ #{tmp\ 4334}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1991}#)))
+ #{tmp\ 4333}#)))
($sc-dispatch
- #{tmp\ 1991}#
+ #{tmp\ 4333}#
'(any (any . any) any . each-any))))
- #{x\ 1990}#))
+ #{x\ 4331}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 50fb33d..4e6c849 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -518,14 +518,11 @@
'(,nreq ,nopt ,rest-idx ,nargs ,allow-other-keys? ,kw-indices)
(list ,@(map (lambda (i) `(lambda ,vars ,i)) inits))
%%args)
- ;; FIXME: This _ is here to work around a bug in the
- ;; memoizer. The %%% makes it different from %%, also a
- ;; memoizer workaround. See the "interesting bug" mail from
- ;; 23 oct 2009. As soon as we change the evaluator, this
- ;; can be removed.
- => (lambda (%%%args . _) (apply (lambda ,vars ,body) %%%args)))
+ => (lambda (%%args) (apply (lambda ,vars ,body) %%args)))
,@(or else-case
- `((%%args (error "wrong number of arguments" %%args)))))
+ `((%%args (scm-error 'wrong-number-of-args #f
+ "Wrong number of arguments" '()
+ %%args)))))
src))))))
(define build-primref
diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm
index 960696f..462af50 100644
--- a/module/system/vm/debug.scm
+++ b/module/system/vm/debug.scm
@@ -22,10 +22,56 @@
#:use-module (system base syntax)
#:use-module (system vm vm)
#:use-module (system vm frame)
+ #:use-module (ice-9 rdelim)
+ #:use-module (ice-9 pretty-print)
#:use-module (ice-9 format)
+ #:use-module (system vm program)
#:export (run-debugger debug-pre-unwind-handler))
+(define (reverse-hashq h)
+ (let ((ret (make-hash-table)))
+ (hash-for-each
+ (lambda (k v)
+ (hashq-set! ret v (cons k (hashq-ref ret v '()))))
+ h)
+ ret))
+
+(define (catch-bad-arguments thunk bad-args-thunk)
+ (catch 'wrong-number-of-args
+ (lambda ()
+ (catch 'keyword-argument-error
+ thunk
+ (lambda (k . args)
+ (bad-args-thunk))))
+ (lambda (k . args)
+ (bad-args-thunk))))
+
+(define (read-args prompt)
+ (define (read* reader)
+ (repl-reader prompt reader))
+ (define (next)
+ (read* read-char))
+ (define (cmd chr)
+ (cond
+ ((eof-object? chr) (list chr))
+ ((char=? chr #\newline) (cmd (next)))
+ ((char-whitespace? chr) (cmd (next)))
+ (else
+ (unread-char chr)
+ (let ((tok (read* read)))
+ (args (list tok) (next))))))
+ (define (args out chr)
+ (cond
+ ((eof-object? chr) (reverse out))
+ ((char=? chr #\newline) (reverse out))
+ ((char-whitespace? chr) (args out (next)))
+ (else
+ (unread-char chr)
+ (let ((tok (read* read)))
+ (args (cons tok out) (next))))))
+ (cmd (next)))
+
;;;
;;; Debugger
;;;
@@ -40,62 +86,202 @@
(let ((prop (make-object-property)))
(lambda (vm)
(or (prop vm)
- (let ((debugger (make-debugger vm (make-fluid) '()
(make-debugger-module))))
+ (let ((debugger (make-debugger vm 0 '() (make-debugger-module))))
(set! (prop vm) debugger)
debugger)))))
(define* (run-debugger frame #:optional (vm (the-vm)))
(let* ((db (vm-debugger vm))
(level (debugger-level db)))
- (with-fluids ((level (or (and=> (fluid-ref level) 1+) 0)))
- (debugger-repl db frame))))
+ (dynamic-wind
+ (lambda () (set! (debugger-level db) (1+ level)))
+ (lambda () (debugger-repl db frame))
+ (lambda () (set! (debugger-level db) level)))))
(define (debugger-repl db frame)
- (let ((top frame))
+ (let ((top frame)
+ (cur frame)
+ (index 0)
+ (level (debugger-level db)))
(define (frame-index frame)
(let lp ((idx 0) (walk top))
(if (= (frame-return-address frame) (frame-return-address walk))
idx
(lp (1+ idx) (frame-previous walk)))))
- (let loop ()
- (let ((index (frame-index frame))
- (level (fluid-ref (debugger-level db))))
- (let ((cmd (repl-reader
- (lambda ()
- (format #f "address@hidden> " level index))
- read)))
- (if (not (or (eof-object? cmd)
- (memq cmd '(q quit c continue))))
- (begin
- (case cmd
- ((bt)
- (display-backtrace (make-stack frame)
(current-output-port)))
- ((bindings)
- (format #t "~a\n" (frame-bindings frame)))
- ((frame f)
- (format #t "~s\n" frame))
- ((up)
- (let ((prev (frame-previous frame)))
- (if prev
- (begin
- (set! index (1+ index))
- (set! frame prev)
- (format #t "~s\n" frame))
- (format #t "Already at outermost frame.\n"))))
- ((down)
- (if (zero? index)
- (format #t "Already at innermost frame.\n")
- (begin
- (set! frame (let lp ((n (1- index)) (frame top))
- (if (zero? n)
- frame
- (lp (1- n) (frame-previous top)))))
- (format #t "~s\n" frame))))
- ((help ?)
- (format #t "Type `c' to continue.\n"))
- (else
- (format #t "Unknown command: ~A\n" cmd)))
- (loop))))))))
+ (define (frame-at-index idx)
+ (let lp ((idx idx) (walk top))
+ (cond
+ ((not walk) #f)
+ ((zero? idx) walk)
+ (else (lp (1+ idx) (frame-previous walk))))))
+ (define (show-frame)
+; #2 0x009600e0 in do_std_select (args=0xbfffd9e0) at threads.c:1668
+; 1668 select (select_args->nfds,
+ (let ((p (frame-procedure cur)))
+ (format #t "#~2a 0x~8,'0x in ~s~%" index (frame-instruction-pointer
cur)
+ (cons (or (procedure-name p) p) (frame-arguments cur)))))
+
+ (define-syntax define-command
+ (syntax-rules ()
+ ((_ ((mod cname alias ...) . args) body ...)
+ (define cname
+ (let ((c (lambda* args body ...)))
+ (set-procedure-property! c 'name 'cname)
+ (module-define! mod 'cname c)
+ (module-add! mod 'alias (module-local-variable mod 'cname))
+ ...
+ c)))))
+
+ (let ((commands (make-module)))
+ (define (prompt)
+ (format #f "~a~a debug> "
+ (if (= level 1)
+ ""
+ (format #f "~a:" level))
+ index))
+
+ (define (print* . vals)
+ (define (print x)
+ (run-hook before-print-hook x)
+ (pretty-print x))
+ (if (and (pair? vals)
+ (not (and (null? (cdr vals))
+ (unspecified? (car vals)))))
+ (for-each print vals)))
+
+ (define-command ((commands backtrace bt) #:optional count)
+ "Print a backtrace of all stack frames, or innermost COUNT frames."
+ (display-backtrace (make-stack top) (current-output-port) #f count))
+
+ (define-command ((commands up) #:optional (count 1))
+ "Select and print stack frames that called this one.
+An argument says how many frames up to go"
+ (if (or (not (integer? count)) (<= count 0))
+ (format #t "Invalid argument to `up': expected a positive integer
for COUNT.~%")
+ (let lp ((n count))
+ (cond
+ ((zero? n) (show-frame))
+ ((frame-previous cur)
+ => (lambda (new)
+ (set! cur new)
+ (set! index (1+ index))
+ (lp (1- n))))
+ ((= n count)
+ (format #t "Already at outermost frame.\n"))
+ (else
+ (format #t "Reached outermost frame after walking ~a frames.\n"
+ (- count n))
+ (show-frame))))))
+
+ (define-command ((commands down) #:optional (count 1))
+ "Select and print stack frames called by this one.
+An argument says how many frames down to go"
+ (cond
+ ((or (not (integer? count)) (<= count 0))
+ (format #t "Invalid argument to `down': expected a positive integer
for COUNT.~%"))
+ ((= index 0)
+ (format #t "Already at innermost frame.~%"))
+ (else
+ (set! index (max (- index count) 0))
+ (set! cur (frame-at-index index))
+ (show-frame))))
+
+ (define-command ((commands frame f) #:optional idx)
+ "Show the selected frame.
+With an argument, select a frame by index, then show it."
+ (cond
+ (idx
+ (cond
+ ((or (not (integer? idx)) (< idx 0))
+ (format #t "Invalid argument to `frame': expected a non-negative
integer for IDX.~%"))
+ ((frame-at-index idx)
+ => (lambda (f)
+ (set! cur f)
+ (set! index idx)
+ (show-frame)))
+ (else
+ (format #t "No such frame.~%"))))
+ (else (show-frame))))
+
+ (define-command ((commands bindings))
+ "Show some information about locally-bound variables in the selected
frame."
+ (format #t "~a\n" (frame-bindings cur)))
+
+ (define-command ((commands quit q continue cont c))
+ "Quit the debugger and let the program continue executing."
+ (throw 'quit))
+
+ (define-command ((commands help h ?) #:optional cmd)
+ "Show this help message."
+ (let ((rhash (reverse-hashq (module-obarray commands))))
+ (define (help-cmd cmd)
+ (let* ((v (module-local-variable commands cmd))
+ (p (variable-ref v))
+ (canonical-name (procedure-name p)))
+ ;; la la la
+ (format #t "~a~{ ~:@(~a~)~}~?~%~a~&~%"
+ canonical-name (program-lambda-list p)
+ "~#[~:;~40t(aliases: address@hidden, ~})~]"
+ (delq canonical-name (hashq-ref rhash v))
+ (procedure-documentation p))))
+ (cond
+ (cmd
+ (cond
+ ((and (symbol? cmd) (module-local-variable commands cmd))
+ (help-cmd cmd))
+ (else
+ (format #t "Invalid command ~s.~%" cmd)
+ (format #t "Try `help' for a list of commands~%"))))
+ (else
+ (let ((names (sort
+ (hash-map->list
+ (lambda (k v)
+ (procedure-name (variable-ref k)))
+ rhash)
+ (lambda (x y)
+ (string<? (symbol->string x)
+ (symbol->string y))))))
+ (format #t "Available commands:~%~%")
+ (for-each help-cmd names))))))
+
+ (define (handle cmd . args)
+ (cond
+ ((and (symbol? cmd)
+ (module-local-variable commands cmd))
+ => (lambda (var)
+ (let ((proc (variable-ref var)))
+ (catch-bad-arguments
+ (lambda ()
+ (apply (variable-ref var) args))
+ (lambda ()
+ (format (current-error-port)
+ "Invalid arguments to ~a. Try `help ~a'.~%"
+ (procedure-name proc) (procedure-name proc)))))))
+
+ #;
+ ((and (integer? cmd) (exact? cmd))
+ (nth cmd))
+ ((eof-object? cmd)
+ (newline)
+ (throw 'quit))
+ (else
+ (format (current-error-port)
+ "~&Unknown command: ~a. Try `help'.~%" cmd)
+ *unspecified*)))
+
+ (catch 'quit
+ (lambda ()
+ (let loop ()
+ (apply
+ handle
+ (save-module-excursion
+ (lambda ()
+ (set-current-module commands)
+ (read-args prompt))))
+ (loop)))
+ (lambda (k . args)
+ (apply values args))))))
+
;; things this debugger should do:
;;
diff --git a/test-suite/tests/optargs.test b/test-suite/tests/optargs.test
index 05b67e5..5eb8d48 100644
--- a/test-suite/tests/optargs.test
+++ b/test-suite/tests/optargs.test
@@ -23,18 +23,13 @@
#:use-module (ice-9 optargs))
(define exception:unrecognized-keyword
- ;; Can be `vm-error' or `misc-error' depending on whether we use the
- ;; interpreter or VM:
- ;; (vm-error vm-run "Bad keyword argument list: unrecognized keyword" ())
- ;; (misc-error #f "~A ~S" ("unrecognized keyword" (#:y 2)) #f)
- (cons #t ".*"))
+ '(keyword-argument-error . "Unrecognized keyword"))
(define exception:extraneous-arguments
- ;; Can be `vm-error' or `misc-error' depending on whether we use the
- ;; interpreter or VM, and depending on the evenness of the number of extra
- ;; arguments (!).
- (cons #t ".*"))
-
+ ;; Message depends on whether we use the interpreter or VM, and on the
+ ;; evenness of the number of extra arguments (!).
+ ;'(keyword-argument-error . ".*")
+ '(#t . ".*"))
(define-syntax c&e
(syntax-rules (pass-if pass-if-exception)
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |