diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-23 22:59:12 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-23 22:59:12 +0100 |
commit | f6a8e7919755ce15cd75ad01326e02151fa99445 (patch) | |
tree | 66c4b0ce2f2a81133853375a21785f728f32b0fd | |
parent | 1ad7fef5249f409317c20d5242bc3c4c2b8d9d18 (diff) | |
download | guile-f6a8e7919755ce15cd75ad01326e02151fa99445.tar.gz |
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.
-rw-r--r-- | libguile/vm-engine.c | 25 | ||||
-rw-r--r-- | libguile/vm.c | 11 | ||||
-rw-r--r-- | module/ice-9/optargs.scm | 9 | ||||
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 16987 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 11 | ||||
-rw-r--r-- | test-suite/tests/optargs.test | 15 |
6 files changed, 8580 insertions, 8478 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 4f2dff218..a64b43a47 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 121beaa26..a5b5a558e 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 5ad9e8121..c9a049345 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 999cc6f09..ec229ce3a 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 50fb33d43..4e6c849e4 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/test-suite/tests/optargs.test b/test-suite/tests/optargs.test index 05b67e591..5eb8d48f8 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) |