|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-13-56-g2090f90 |
| Date: | Tue, 16 Nov 2010 01:54:15 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=2090f909b4675286b0de11936771a77a515d885e
The branch, master has been updated
via 2090f909b4675286b0de11936771a77a515d885e (commit)
via 6cb423613ebf6103d15be355041bdd789c3cb05a (commit)
via 1811d0332f145f8e393c790cf21529c92626bf3e (commit)
via 8f1870f20f3a6dcd74078d7cc52523dfa2a2a494 (commit)
from a6f3af1618bb28b96ac44b77f6a69afe97995516 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 2090f909b4675286b0de11936771a77a515d885e
Author: Andy Wingo <address@hidden>
Date: Tue Nov 16 02:56:43 2010 +0100
add proper pretty-printing for syntax errors
* module/system/repl/repl.scm (display-syntax-error): New helper,
displays a syntax error.
(abort-on-error, run-repl): Use it.
* libguile/throw.c (handler_message): Re-code the same thing in C.
commit 6cb423613ebf6103d15be355041bdd789c3cb05a
Author: Andy Wingo <address@hidden>
Date: Tue Nov 16 02:55:46 2010 +0100
remove syntax-error and call-with-compile-error-catch from compile.scm
* module/system/base/compile.scm: Remove unused syntax-error and
call-with-compile-error-catch exports.
commit 1811d0332f145f8e393c790cf21529c92626bf3e
Author: Andy Wingo <address@hidden>
Date: Tue Nov 16 02:09:39 2010 +0100
ecmascript syntax errors throw to 'syntax-error
* module/language/ecmascript/parse.scm (syntax-error):
* module/language/ecmascript/tokenize.scm (syntax-error): Throw to
'syntax-error as psyntax does.
commit 8f1870f20f3a6dcd74078d7cc52523dfa2a2a494
Author: Andy Wingo <address@hidden>
Date: Tue Nov 16 02:09:03 2010 +0100
syntax-violation uses lambda*, throws a structured message
* module/ice-9/psyntax.scm (syntax-violation): Use lambda* for subform
arg. Instead of using scm-error, just throw to 'syntax-error with all
we got.
* module/ice-9/psyntax-pp.scm (#{and-map*\ 37}): Regenerated.
-----------------------------------------------------------------------
Summary of changes:
libguile/throw.c | 55 +-
module/ice-9/psyntax-pp.scm |16489 +++++++++++++++----------------
module/ice-9/psyntax.scm | 16 +-
module/language/ecmascript/parse.scm | 2 +-
module/language/ecmascript/tokenize.scm | 2 +-
module/system/base/compile.scm | 26 +-
module/system/repl/repl.scm | 27 +-
7 files changed, 8280 insertions(+), 8337 deletions(-)
diff --git a/libguile/throw.c b/libguile/throw.c
index 238c52c..6234077 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -341,7 +341,60 @@ handler_message (void *handler_data, SCM tag, SCM args)
char *prog_name = (char *) handler_data;
SCM p = scm_current_error_port ();
- if (scm_ilength (args) == 4)
+ if (scm_is_eq (tag, scm_from_locale_symbol ("syntax-error"))
+ && scm_ilength (args) >= 5)
+ {
+ SCM who = SCM_CAR (args);
+ SCM what = SCM_CADR (args);
+ SCM where = SCM_CADDR (args);
+ SCM form = SCM_CADDDR (args);
+ SCM subform = SCM_CAR (SCM_CDDDDR (args));
+
+ scm_puts ("Syntax error:\n", p);
+
+ if (scm_is_true (where))
+ {
+ SCM file, line, col;
+
+ file = scm_assq_ref (where, scm_sym_filename);
+ line = scm_assq_ref (where, scm_sym_line);
+ col = scm_assq_ref (where, scm_sym_column);
+
+ if (scm_is_true (file))
+ scm_display (file, p);
+ else
+ scm_puts ("unknown file", p);
+ scm_puts (": ", p);
+ scm_display (line, p);
+ scm_puts (": ", p);
+ scm_display (col, p);
+ scm_puts (": ", p);
+ }
+ else
+ scm_puts ("unknown location: ", p);
+
+ if (scm_is_true (who))
+ {
+ scm_display (who, p);
+ scm_puts (": ", p);
+ }
+
+ scm_display (what, p);
+
+ if (scm_is_true (subform))
+ {
+ scm_puts (" in subform ", p);
+ scm_write (subform, p);
+ scm_puts (" of ", p);
+ scm_write (form, p);
+ }
+ else if (scm_is_true (form))
+ {
+ scm_puts (" in form ", p);
+ scm_write (form, p);
+ }
+ }
+ else if (scm_ilength (args) == 4)
{
SCM stack = scm_make_stack (SCM_BOOL_T, SCM_EOL);
SCM subr = SCM_CAR (args);
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 9bcc25d..098fb32 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1207 +2,1203 @@
(if #f #f)
(letrec*
- ((#{and-map*\ 36}#
- (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#)
+ ((#{and-map*\ 37}#
+ (lambda (#{f\ 201}# #{first\ 202}# . #{rest\ 203}#)
(begin
- (let ((#{t\ 208}# (null? #{first\ 201}#)))
- (if #{t\ 208}#
- #{t\ 208}#
- (if (null? #{rest\ 202}#)
+ (let ((#{t\ 209}# (null? #{first\ 202}#)))
+ (if #{t\ 209}#
+ #{t\ 209}#
+ (if (null? #{rest\ 203}#)
(letrec*
- ((#{andmap\ 212}#
- (lambda (#{first\ 213}#)
+ ((#{andmap\ 213}#
+ (lambda (#{first\ 214}#)
(begin
- (let ((#{x\ 216}# (car #{first\ 213}#))
- (#{first\ 217}# (cdr #{first\ 213}#)))
- (if (null? #{first\ 217}#)
- (#{f\ 200}# #{x\ 216}#)
- (if (#{f\ 200}# #{x\ 216}#)
- (#{andmap\ 212}# #{first\ 217}#)
+ (let ((#{x\ 217}# (car #{first\ 214}#))
+ (#{first\ 218}# (cdr #{first\ 214}#)))
+ (if (null? #{first\ 218}#)
+ (#{f\ 201}# #{x\ 217}#)
+ (if (#{f\ 201}# #{x\ 217}#)
+ (#{andmap\ 213}# #{first\ 218}#)
#f)))))))
- (begin (#{andmap\ 212}# #{first\ 201}#)))
+ (begin (#{andmap\ 213}# #{first\ 202}#)))
(letrec*
- ((#{andmap\ 223}#
- (lambda (#{first\ 224}# #{rest\ 225}#)
+ ((#{andmap\ 224}#
+ (lambda (#{first\ 225}# #{rest\ 226}#)
(begin
- (let ((#{x\ 230}# (car #{first\ 224}#))
- (#{xr\ 231}# (map car #{rest\ 225}#))
- (#{first\ 232}# (cdr #{first\ 224}#))
- (#{rest\ 233}# (map cdr #{rest\ 225}#)))
- (if (null? #{first\ 232}#)
- (@apply #{f\ 200}# #{x\ 230}# #{xr\ 231}#)
- (if (@apply #{f\ 200}# #{x\ 230}# #{xr\ 231}#)
- (#{andmap\ 223}# #{first\ 232}# #{rest\ 233}#)
+ (let ((#{x\ 231}# (car #{first\ 225}#))
+ (#{xr\ 232}# (map car #{rest\ 226}#))
+ (#{first\ 233}# (cdr #{first\ 225}#))
+ (#{rest\ 234}# (map cdr #{rest\ 226}#)))
+ (if (null? #{first\ 233}#)
+ (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#)
+ (if (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#)
+ (#{andmap\ 224}# #{first\ 233}# #{rest\ 234}#)
#f)))))))
(begin
- (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#))))))))))
+ (#{andmap\ 224}# #{first\ 202}# #{rest\ 203}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 242}# (if #f #f))
- (#{fx+\ 281}# (if #f #f))
- (#{fx-\ 283}# (if #f #f))
- (#{fx=\ 285}# (if #f #f))
- (#{fx<\ 287}# (if #f #f))
- (#{set-syntax-object-expression!\ 352}#
+ (let ((#{make-primitive-ref\ 243}# (if #f #f))
+ (#{fx+\ 282}# (if #f #f))
+ (#{fx-\ 284}# (if #f #f))
+ (#{fx=\ 286}# (if #f #f))
+ (#{fx<\ 288}# (if #f #f))
+ (#{set-syntax-object-expression!\ 353}#
(if #f #f))
- (#{set-syntax-object-wrap!\ 354}# (if #f #f))
- (#{set-syntax-object-module!\ 356}# (if #f #f))
- (#{ribcage?\ 398}# (if #f #f)))
+ (#{set-syntax-object-wrap!\ 355}# (if #f #f))
+ (#{set-syntax-object-module!\ 357}# (if #f #f))
+ (#{ribcage?\ 399}# (if #f #f)))
(letrec*
- ((#{make-void\ 238}#
- (lambda (#{src\ 750}#)
+ ((#{make-void\ 239}#
+ (lambda (#{src\ 751}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 750}#)))
- (#{make-const\ 240}#
- (lambda (#{src\ 752}# #{exp\ 753}#)
+ #{src\ 751}#)))
+ (#{make-const\ 241}#
+ (lambda (#{src\ 753}# #{exp\ 754}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 752}#
- #{exp\ 753}#)))
- (#{make-lexical-ref\ 244}#
- (lambda (#{src\ 760}# #{name\ 761}# #{gensym\ 762}#)
+ #{src\ 753}#
+ #{exp\ 754}#)))
+ (#{make-lexical-ref\ 245}#
+ (lambda (#{src\ 761}# #{name\ 762}# #{gensym\ 763}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 760}#
- #{name\ 761}#
- #{gensym\ 762}#)))
- (#{make-lexical-set\ 246}#
- (lambda (#{src\ 766}#
- #{name\ 767}#
- #{gensym\ 768}#
- #{exp\ 769}#)
+ #{src\ 761}#
+ #{name\ 762}#
+ #{gensym\ 763}#)))
+ (#{make-lexical-set\ 247}#
+ (lambda (#{src\ 767}#
+ #{name\ 768}#
+ #{gensym\ 769}#
+ #{exp\ 770}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 766}#
- #{name\ 767}#
- #{gensym\ 768}#
- #{exp\ 769}#)))
- (#{make-module-ref\ 248}#
- (lambda (#{src\ 774}#
- #{mod\ 775}#
- #{name\ 776}#
- #{public?\ 777}#)
+ #{src\ 767}#
+ #{name\ 768}#
+ #{gensym\ 769}#
+ #{exp\ 770}#)))
+ (#{make-module-ref\ 249}#
+ (lambda (#{src\ 775}#
+ #{mod\ 776}#
+ #{name\ 777}#
+ #{public?\ 778}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 774}#
- #{mod\ 775}#
- #{name\ 776}#
- #{public?\ 777}#)))
- (#{make-module-set\ 250}#
- (lambda (#{src\ 782}#
- #{mod\ 783}#
- #{name\ 784}#
- #{public?\ 785}#
- #{exp\ 786}#)
+ #{src\ 775}#
+ #{mod\ 776}#
+ #{name\ 777}#
+ #{public?\ 778}#)))
+ (#{make-module-set\ 251}#
+ (lambda (#{src\ 783}#
+ #{mod\ 784}#
+ #{name\ 785}#
+ #{public?\ 786}#
+ #{exp\ 787}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 782}#
- #{mod\ 783}#
- #{name\ 784}#
- #{public?\ 785}#
- #{exp\ 786}#)))
- (#{make-toplevel-ref\ 252}#
- (lambda (#{src\ 792}# #{name\ 793}#)
+ #{src\ 783}#
+ #{mod\ 784}#
+ #{name\ 785}#
+ #{public?\ 786}#
+ #{exp\ 787}#)))
+ (#{make-toplevel-ref\ 253}#
+ (lambda (#{src\ 793}# #{name\ 794}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 792}#
- #{name\ 793}#)))
- (#{make-toplevel-set\ 254}#
- (lambda (#{src\ 796}# #{name\ 797}# #{exp\ 798}#)
+ #{src\ 793}#
+ #{name\ 794}#)))
+ (#{make-toplevel-set\ 255}#
+ (lambda (#{src\ 797}# #{name\ 798}# #{exp\ 799}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 796}#
- #{name\ 797}#
- #{exp\ 798}#)))
- (#{make-toplevel-define\ 256}#
- (lambda (#{src\ 802}# #{name\ 803}# #{exp\ 804}#)
+ #{src\ 797}#
+ #{name\ 798}#
+ #{exp\ 799}#)))
+ (#{make-toplevel-define\ 257}#
+ (lambda (#{src\ 803}# #{name\ 804}# #{exp\ 805}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 802}#
- #{name\ 803}#
- #{exp\ 804}#)))
- (#{make-conditional\ 258}#
- (lambda (#{src\ 808}#
- #{test\ 809}#
- #{consequent\ 810}#
- #{alternate\ 811}#)
+ #{src\ 803}#
+ #{name\ 804}#
+ #{exp\ 805}#)))
+ (#{make-conditional\ 259}#
+ (lambda (#{src\ 809}#
+ #{test\ 810}#
+ #{consequent\ 811}#
+ #{alternate\ 812}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 808}#
- #{test\ 809}#
- #{consequent\ 810}#
- #{alternate\ 811}#)))
- (#{make-application\ 260}#
- (lambda (#{src\ 816}# #{proc\ 817}# #{args\ 818}#)
+ #{src\ 809}#
+ #{test\ 810}#
+ #{consequent\ 811}#
+ #{alternate\ 812}#)))
+ (#{make-application\ 261}#
+ (lambda (#{src\ 817}# #{proc\ 818}# #{args\ 819}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 816}#
- #{proc\ 817}#
- #{args\ 818}#)))
- (#{make-sequence\ 262}#
- (lambda (#{src\ 822}# #{exps\ 823}#)
+ #{src\ 817}#
+ #{proc\ 818}#
+ #{args\ 819}#)))
+ (#{make-sequence\ 263}#
+ (lambda (#{src\ 823}# #{exps\ 824}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 822}#
- #{exps\ 823}#)))
- (#{make-lambda\ 264}#
- (lambda (#{src\ 826}# #{meta\ 827}# #{body\ 828}#)
+ #{src\ 823}#
+ #{exps\ 824}#)))
+ (#{make-lambda\ 265}#
+ (lambda (#{src\ 827}# #{meta\ 828}# #{body\ 829}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 826}#
- #{meta\ 827}#
- #{body\ 828}#)))
- (#{make-lambda-case\ 266}#
- (lambda (#{src\ 832}#
- #{req\ 833}#
- #{opt\ 834}#
- #{rest\ 835}#
- #{kw\ 836}#
- #{inits\ 837}#
- #{gensyms\ 838}#
- #{body\ 839}#
- #{alternate\ 840}#)
+ #{src\ 827}#
+ #{meta\ 828}#
+ #{body\ 829}#)))
+ (#{make-lambda-case\ 267}#
+ (lambda (#{src\ 833}#
+ #{req\ 834}#
+ #{opt\ 835}#
+ #{rest\ 836}#
+ #{kw\ 837}#
+ #{inits\ 838}#
+ #{gensyms\ 839}#
+ #{body\ 840}#
+ #{alternate\ 841}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 832}#
- #{req\ 833}#
- #{opt\ 834}#
- #{rest\ 835}#
- #{kw\ 836}#
- #{inits\ 837}#
- #{gensyms\ 838}#
- #{body\ 839}#
- #{alternate\ 840}#)))
- (#{make-let\ 268}#
- (lambda (#{src\ 850}#
- #{names\ 851}#
- #{gensyms\ 852}#
- #{vals\ 853}#
- #{body\ 854}#)
+ #{src\ 833}#
+ #{req\ 834}#
+ #{opt\ 835}#
+ #{rest\ 836}#
+ #{kw\ 837}#
+ #{inits\ 838}#
+ #{gensyms\ 839}#
+ #{body\ 840}#
+ #{alternate\ 841}#)))
+ (#{make-let\ 269}#
+ (lambda (#{src\ 851}#
+ #{names\ 852}#
+ #{gensyms\ 853}#
+ #{vals\ 854}#
+ #{body\ 855}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 850}#
- #{names\ 851}#
- #{gensyms\ 852}#
- #{vals\ 853}#
- #{body\ 854}#)))
- (#{make-letrec\ 270}#
- (lambda (#{src\ 860}#
- #{in-order?\ 861}#
- #{names\ 862}#
- #{gensyms\ 863}#
- #{vals\ 864}#
- #{body\ 865}#)
+ #{src\ 851}#
+ #{names\ 852}#
+ #{gensyms\ 853}#
+ #{vals\ 854}#
+ #{body\ 855}#)))
+ (#{make-letrec\ 271}#
+ (lambda (#{src\ 861}#
+ #{in-order?\ 862}#
+ #{names\ 863}#
+ #{gensyms\ 864}#
+ #{vals\ 865}#
+ #{body\ 866}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 860}#
- #{in-order?\ 861}#
- #{names\ 862}#
- #{gensyms\ 863}#
- #{vals\ 864}#
- #{body\ 865}#)))
- (#{make-dynlet\ 272}#
- (lambda (#{src\ 872}#
- #{fluids\ 873}#
- #{vals\ 874}#
- #{body\ 875}#)
+ #{src\ 861}#
+ #{in-order?\ 862}#
+ #{names\ 863}#
+ #{gensyms\ 864}#
+ #{vals\ 865}#
+ #{body\ 866}#)))
+ (#{make-dynlet\ 273}#
+ (lambda (#{src\ 873}#
+ #{fluids\ 874}#
+ #{vals\ 875}#
+ #{body\ 876}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 872}#
- #{fluids\ 873}#
- #{vals\ 874}#
- #{body\ 875}#)))
- (#{lambda?\ 275}#
- (lambda (#{x\ 880}#)
- (if (struct? #{x\ 880}#)
- (eq? (struct-vtable #{x\ 880}#)
+ #{src\ 873}#
+ #{fluids\ 874}#
+ #{vals\ 875}#
+ #{body\ 876}#)))
+ (#{lambda?\ 276}#
+ (lambda (#{x\ 881}#)
+ (if (struct? #{x\ 881}#)
+ (eq? (struct-vtable #{x\ 881}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 277}#
- (lambda (#{x\ 884}#) (struct-ref #{x\ 884}# 1)))
- (#{set-lambda-meta!\ 279}#
- (lambda (#{x\ 886}# #{v\ 887}#)
- (struct-set! #{x\ 886}# 1 #{v\ 887}#)))
- (#{top-level-eval-hook\ 289}#
- (lambda (#{x\ 890}# #{mod\ 891}#)
- (primitive-eval #{x\ 890}#)))
- (#{local-eval-hook\ 291}#
- (lambda (#{x\ 894}# #{mod\ 895}#)
- (primitive-eval #{x\ 894}#)))
- (#{put-global-definition-hook\ 294}#
- (lambda (#{symbol\ 898}# #{type\ 899}# #{val\ 900}#)
+ (#{lambda-meta\ 278}#
+ (lambda (#{x\ 885}#) (struct-ref #{x\ 885}# 1)))
+ (#{set-lambda-meta!\ 280}#
+ (lambda (#{x\ 887}# #{v\ 888}#)
+ (struct-set! #{x\ 887}# 1 #{v\ 888}#)))
+ (#{top-level-eval-hook\ 290}#
+ (lambda (#{x\ 891}# #{mod\ 892}#)
+ (primitive-eval #{x\ 891}#)))
+ (#{local-eval-hook\ 292}#
+ (lambda (#{x\ 895}# #{mod\ 896}#)
+ (primitive-eval #{x\ 895}#)))
+ (#{put-global-definition-hook\ 295}#
+ (lambda (#{symbol\ 899}# #{type\ 900}# #{val\ 901}#)
(module-define!
(current-module)
- #{symbol\ 898}#
+ #{symbol\ 899}#
(make-syntax-transformer
- #{symbol\ 898}#
- #{type\ 899}#
- #{val\ 900}#))))
- (#{get-global-definition-hook\ 296}#
- (lambda (#{symbol\ 904}# #{module\ 905}#)
+ #{symbol\ 899}#
+ #{type\ 900}#
+ #{val\ 901}#))))
+ (#{get-global-definition-hook\ 297}#
+ (lambda (#{symbol\ 905}# #{module\ 906}#)
(begin
- (if (if (not #{module\ 905}#) (current-module) #f)
+ (if (if (not #{module\ 906}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 904}#))
+ #{symbol\ 905}#))
(begin
- (let ((#{v\ 911}# (module-variable
- (if #{module\ 905}#
- (resolve-module (cdr #{module\ 905}#))
+ (let ((#{v\ 912}# (module-variable
+ (if #{module\ 906}#
+ (resolve-module (cdr #{module\ 906}#))
(current-module))
- #{symbol\ 904}#)))
- (if #{v\ 911}#
- (if (variable-bound? #{v\ 911}#)
+ #{symbol\ 905}#)))
+ (if #{v\ 912}#
+ (if (variable-bound? #{v\ 912}#)
(begin
- (let ((#{val\ 916}# (variable-ref #{v\ 911}#)))
- (if (macro? #{val\ 916}#)
- (if (macro-type #{val\ 916}#)
- (cons (macro-type #{val\ 916}#)
- (macro-binding #{val\ 916}#))
+ (let ((#{val\ 917}# (variable-ref #{v\ 912}#)))
+ (if (macro? #{val\ 917}#)
+ (if (macro-type #{val\ 917}#)
+ (cons (macro-type #{val\ 917}#)
+ (macro-binding #{val\ 917}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 298}#
- (lambda (#{e\ 920}# #{s\ 921}#)
+ (#{decorate-source\ 299}#
+ (lambda (#{e\ 921}# #{s\ 922}#)
(begin
- (if (if (pair? #{e\ 920}#) #{s\ 921}# #f)
- (set-source-properties! #{e\ 920}# #{s\ 921}#))
- #{e\ 920}#)))
- (#{maybe-name-value!\ 300}#
- (lambda (#{name\ 926}# #{val\ 927}#)
- (if (#{lambda?\ 275}# #{val\ 927}#)
+ (if (if (pair? #{e\ 921}#) #{s\ 922}# #f)
+ (set-source-properties! #{e\ 921}# #{s\ 922}#))
+ #{e\ 921}#)))
+ (#{maybe-name-value!\ 301}#
+ (lambda (#{name\ 927}# #{val\ 928}#)
+ (if (#{lambda?\ 276}# #{val\ 928}#)
(begin
- (let ((#{meta\ 931}#
- (#{lambda-meta\ 277}# #{val\ 927}#)))
- (if (not (assq (quote name) #{meta\ 931}#))
- (#{set-lambda-meta!\ 279}#
- #{val\ 927}#
- (cons (cons (quote name) #{name\ 926}#)
- #{meta\ 931}#))))))))
- (#{build-void\ 302}#
- (lambda (#{source\ 932}#)
- (#{make-void\ 238}# #{source\ 932}#)))
- (#{build-application\ 304}#
- (lambda (#{source\ 934}#
- #{fun-exp\ 935}#
- #{arg-exps\ 936}#)
- (#{make-application\ 260}#
- #{source\ 934}#
- #{fun-exp\ 935}#
- #{arg-exps\ 936}#)))
- (#{build-conditional\ 306}#
- (lambda (#{source\ 940}#
- #{test-exp\ 941}#
- #{then-exp\ 942}#
- #{else-exp\ 943}#)
- (#{make-conditional\ 258}#
- #{source\ 940}#
- #{test-exp\ 941}#
- #{then-exp\ 942}#
- #{else-exp\ 943}#)))
- (#{build-dynlet\ 308}#
- (lambda (#{source\ 948}#
- #{fluids\ 949}#
- #{vals\ 950}#
- #{body\ 951}#)
- (#{make-dynlet\ 272}#
- #{source\ 948}#
- #{fluids\ 949}#
- #{vals\ 950}#
- #{body\ 951}#)))
- (#{build-lexical-reference\ 310}#
- (lambda (#{type\ 956}#
- #{source\ 957}#
- #{name\ 958}#
- #{var\ 959}#)
- (#{make-lexical-ref\ 244}#
- #{source\ 957}#
- #{name\ 958}#
- #{var\ 959}#)))
- (#{build-lexical-assignment\ 312}#
- (lambda (#{source\ 964}#
- #{name\ 965}#
- #{var\ 966}#
- #{exp\ 967}#)
+ (let ((#{meta\ 932}#
+ (#{lambda-meta\ 278}# #{val\ 928}#)))
+ (if (not (assq 'name #{meta\ 932}#))
+ (#{set-lambda-meta!\ 280}#
+ #{val\ 928}#
+ (cons (cons 'name #{name\ 927}#) #{meta\ 932}#))))))))
+ (#{build-void\ 303}#
+ (lambda (#{source\ 933}#)
+ (#{make-void\ 239}# #{source\ 933}#)))
+ (#{build-application\ 305}#
+ (lambda (#{source\ 935}#
+ #{fun-exp\ 936}#
+ #{arg-exps\ 937}#)
+ (#{make-application\ 261}#
+ #{source\ 935}#
+ #{fun-exp\ 936}#
+ #{arg-exps\ 937}#)))
+ (#{build-conditional\ 307}#
+ (lambda (#{source\ 941}#
+ #{test-exp\ 942}#
+ #{then-exp\ 943}#
+ #{else-exp\ 944}#)
+ (#{make-conditional\ 259}#
+ #{source\ 941}#
+ #{test-exp\ 942}#
+ #{then-exp\ 943}#
+ #{else-exp\ 944}#)))
+ (#{build-dynlet\ 309}#
+ (lambda (#{source\ 949}#
+ #{fluids\ 950}#
+ #{vals\ 951}#
+ #{body\ 952}#)
+ (#{make-dynlet\ 273}#
+ #{source\ 949}#
+ #{fluids\ 950}#
+ #{vals\ 951}#
+ #{body\ 952}#)))
+ (#{build-lexical-reference\ 311}#
+ (lambda (#{type\ 957}#
+ #{source\ 958}#
+ #{name\ 959}#
+ #{var\ 960}#)
+ (#{make-lexical-ref\ 245}#
+ #{source\ 958}#
+ #{name\ 959}#
+ #{var\ 960}#)))
+ (#{build-lexical-assignment\ 313}#
+ (lambda (#{source\ 965}#
+ #{name\ 966}#
+ #{var\ 967}#
+ #{exp\ 968}#)
(begin
- (#{maybe-name-value!\ 300}#
- #{name\ 965}#
- #{exp\ 967}#)
- (#{make-lexical-set\ 246}#
- #{source\ 964}#
- #{name\ 965}#
- #{var\ 966}#
- #{exp\ 967}#))))
- (#{analyze-variable\ 314}#
- (lambda (#{mod\ 972}#
- #{var\ 973}#
- #{modref-cont\ 974}#
- #{bare-cont\ 975}#)
- (if (not #{mod\ 972}#)
- (#{bare-cont\ 975}# #{var\ 973}#)
+ (#{maybe-name-value!\ 301}#
+ #{name\ 966}#
+ #{exp\ 968}#)
+ (#{make-lexical-set\ 247}#
+ #{source\ 965}#
+ #{name\ 966}#
+ #{var\ 967}#
+ #{exp\ 968}#))))
+ (#{analyze-variable\ 315}#
+ (lambda (#{mod\ 973}#
+ #{var\ 974}#
+ #{modref-cont\ 975}#
+ #{bare-cont\ 976}#)
+ (if (not #{mod\ 973}#)
+ (#{bare-cont\ 976}# #{var\ 974}#)
(begin
- (let ((#{kind\ 982}# (car #{mod\ 972}#))
- (#{mod\ 983}# (cdr #{mod\ 972}#)))
- (if (eqv? #{kind\ 982}# (quote public))
- (#{modref-cont\ 974}#
- #{mod\ 983}#
- #{var\ 973}#
+ (let ((#{kind\ 983}# (car #{mod\ 973}#))
+ (#{mod\ 984}# (cdr #{mod\ 973}#)))
+ (if (eqv? #{kind\ 983}# 'public)
+ (#{modref-cont\ 975}#
+ #{mod\ 984}#
+ #{var\ 974}#
#t)
- (if (eqv? #{kind\ 982}# (quote private))
+ (if (eqv? #{kind\ 983}# 'private)
(if (not (equal?
- #{mod\ 983}#
+ #{mod\ 984}#
(module-name (current-module))))
- (#{modref-cont\ 974}#
- #{mod\ 983}#
- #{var\ 973}#
+ (#{modref-cont\ 975}#
+ #{mod\ 984}#
+ #{var\ 974}#
#f)
- (#{bare-cont\ 975}# #{var\ 973}#))
- (if (eqv? #{kind\ 982}# (quote bare))
- (#{bare-cont\ 975}# #{var\ 973}#)
- (if (eqv? #{kind\ 982}# (quote hygiene))
+ (#{bare-cont\ 976}# #{var\ 974}#))
+ (if (eqv? #{kind\ 983}# 'bare)
+ (#{bare-cont\ 976}# #{var\ 974}#)
+ (if (eqv? #{kind\ 983}# 'hygiene)
(if (if (not (equal?
- #{mod\ 983}#
+ #{mod\ 984}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 983}#)
- #{var\ 973}#)
+ (resolve-module #{mod\ 984}#)
+ #{var\ 974}#)
#f)
- (#{modref-cont\ 974}#
- #{mod\ 983}#
- #{var\ 973}#
+ (#{modref-cont\ 975}#
+ #{mod\ 984}#
+ #{var\ 974}#
#f)
- (#{bare-cont\ 975}# #{var\ 973}#))
+ (#{bare-cont\ 976}# #{var\ 974}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 973}#
- #{mod\ 983}#))))))))))
- (#{build-global-reference\ 316}#
- (lambda (#{source\ 991}# #{var\ 992}# #{mod\ 993}#)
- (#{analyze-variable\ 314}#
- #{mod\ 993}#
- #{var\ 992}#
- (lambda (#{mod\ 997}# #{var\ 998}# #{public?\ 999}#)
- (#{make-module-ref\ 248}#
- #{source\ 991}#
- #{mod\ 997}#
- #{var\ 998}#
- #{public?\ 999}#))
- (lambda (#{var\ 1003}#)
- (#{make-toplevel-ref\ 252}#
- #{source\ 991}#
- #{var\ 1003}#)))))
- (#{build-global-assignment\ 318}#
- (lambda (#{source\ 1005}#
- #{var\ 1006}#
- #{exp\ 1007}#
- #{mod\ 1008}#)
+ #{var\ 974}#
+ #{mod\ 984}#))))))))))
+ (#{build-global-reference\ 317}#
+ (lambda (#{source\ 992}# #{var\ 993}# #{mod\ 994}#)
+ (#{analyze-variable\ 315}#
+ #{mod\ 994}#
+ #{var\ 993}#
+ (lambda (#{mod\ 998}# #{var\ 999}# #{public?\ 1000}#)
+ (#{make-module-ref\ 249}#
+ #{source\ 992}#
+ #{mod\ 998}#
+ #{var\ 999}#
+ #{public?\ 1000}#))
+ (lambda (#{var\ 1004}#)
+ (#{make-toplevel-ref\ 253}#
+ #{source\ 992}#
+ #{var\ 1004}#)))))
+ (#{build-global-assignment\ 319}#
+ (lambda (#{source\ 1006}#
+ #{var\ 1007}#
+ #{exp\ 1008}#
+ #{mod\ 1009}#)
(begin
- (#{maybe-name-value!\ 300}#
- #{var\ 1006}#
- #{exp\ 1007}#)
- (#{analyze-variable\ 314}#
- #{mod\ 1008}#
- #{var\ 1006}#
- (lambda (#{mod\ 1013}# #{var\ 1014}# #{public?\ 1015}#)
- (#{make-module-set\ 250}#
- #{source\ 1005}#
- #{mod\ 1013}#
- #{var\ 1014}#
- #{public?\ 1015}#
- #{exp\ 1007}#))
- (lambda (#{var\ 1019}#)
- (#{make-toplevel-set\ 254}#
- #{source\ 1005}#
- #{var\ 1019}#
- #{exp\ 1007}#))))))
- (#{build-global-definition\ 320}#
- (lambda (#{source\ 1021}# #{var\ 1022}# #{exp\ 1023}#)
+ (#{maybe-name-value!\ 301}#
+ #{var\ 1007}#
+ #{exp\ 1008}#)
+ (#{analyze-variable\ 315}#
+ #{mod\ 1009}#
+ #{var\ 1007}#
+ (lambda (#{mod\ 1014}# #{var\ 1015}# #{public?\ 1016}#)
+ (#{make-module-set\ 251}#
+ #{source\ 1006}#
+ #{mod\ 1014}#
+ #{var\ 1015}#
+ #{public?\ 1016}#
+ #{exp\ 1008}#))
+ (lambda (#{var\ 1020}#)
+ (#{make-toplevel-set\ 255}#
+ #{source\ 1006}#
+ #{var\ 1020}#
+ #{exp\ 1008}#))))))
+ (#{build-global-definition\ 321}#
+ (lambda (#{source\ 1022}# #{var\ 1023}# #{exp\ 1024}#)
(begin
- (#{maybe-name-value!\ 300}#
- #{var\ 1022}#
- #{exp\ 1023}#)
- (#{make-toplevel-define\ 256}#
- #{source\ 1021}#
- #{var\ 1022}#
- #{exp\ 1023}#))))
- (#{build-simple-lambda\ 322}#
- (lambda (#{src\ 1027}#
- #{req\ 1028}#
- #{rest\ 1029}#
- #{vars\ 1030}#
- #{meta\ 1031}#
- #{exp\ 1032}#)
- (#{make-lambda\ 264}#
- #{src\ 1027}#
- #{meta\ 1031}#
- (#{make-lambda-case\ 266}#
- #{src\ 1027}#
- #{req\ 1028}#
+ (#{maybe-name-value!\ 301}#
+ #{var\ 1023}#
+ #{exp\ 1024}#)
+ (#{make-toplevel-define\ 257}#
+ #{source\ 1022}#
+ #{var\ 1023}#
+ #{exp\ 1024}#))))
+ (#{build-simple-lambda\ 323}#
+ (lambda (#{src\ 1028}#
+ #{req\ 1029}#
+ #{rest\ 1030}#
+ #{vars\ 1031}#
+ #{meta\ 1032}#
+ #{exp\ 1033}#)
+ (#{make-lambda\ 265}#
+ #{src\ 1028}#
+ #{meta\ 1032}#
+ (#{make-lambda-case\ 267}#
+ #{src\ 1028}#
+ #{req\ 1029}#
#f
- #{rest\ 1029}#
+ #{rest\ 1030}#
#f
'()
- #{vars\ 1030}#
- #{exp\ 1032}#
+ #{vars\ 1031}#
+ #{exp\ 1033}#
#f))))
- (#{build-case-lambda\ 324}#
- (lambda (#{src\ 1039}# #{meta\ 1040}# #{body\ 1041}#)
- (#{make-lambda\ 264}#
- #{src\ 1039}#
- #{meta\ 1040}#
- #{body\ 1041}#)))
- (#{build-lambda-case\ 326}#
- (lambda (#{src\ 1045}#
- #{req\ 1046}#
- #{opt\ 1047}#
- #{rest\ 1048}#
- #{kw\ 1049}#
- #{inits\ 1050}#
- #{vars\ 1051}#
- #{body\ 1052}#
- #{else-case\ 1053}#)
- (#{make-lambda-case\ 266}#
- #{src\ 1045}#
- #{req\ 1046}#
- #{opt\ 1047}#
- #{rest\ 1048}#
- #{kw\ 1049}#
- #{inits\ 1050}#
- #{vars\ 1051}#
- #{body\ 1052}#
- #{else-case\ 1053}#)))
- (#{build-primref\ 328}#
- (lambda (#{src\ 1063}# #{name\ 1064}#)
- (if (equal?
- (module-name (current-module))
- '(guile))
- (#{make-toplevel-ref\ 252}#
- #{src\ 1063}#
- #{name\ 1064}#)
- (#{make-module-ref\ 248}#
- #{src\ 1063}#
+ (#{build-case-lambda\ 325}#
+ (lambda (#{src\ 1040}# #{meta\ 1041}# #{body\ 1042}#)
+ (#{make-lambda\ 265}#
+ #{src\ 1040}#
+ #{meta\ 1041}#
+ #{body\ 1042}#)))
+ (#{build-lambda-case\ 327}#
+ (lambda (#{src\ 1046}#
+ #{req\ 1047}#
+ #{opt\ 1048}#
+ #{rest\ 1049}#
+ #{kw\ 1050}#
+ #{inits\ 1051}#
+ #{vars\ 1052}#
+ #{body\ 1053}#
+ #{else-case\ 1054}#)
+ (#{make-lambda-case\ 267}#
+ #{src\ 1046}#
+ #{req\ 1047}#
+ #{opt\ 1048}#
+ #{rest\ 1049}#
+ #{kw\ 1050}#
+ #{inits\ 1051}#
+ #{vars\ 1052}#
+ #{body\ 1053}#
+ #{else-case\ 1054}#)))
+ (#{build-primref\ 329}#
+ (lambda (#{src\ 1064}# #{name\ 1065}#)
+ (if (equal? (module-name (current-module)) '(guile))
+ (#{make-toplevel-ref\ 253}#
+ #{src\ 1064}#
+ #{name\ 1065}#)
+ (#{make-module-ref\ 249}#
+ #{src\ 1064}#
'(guile)
- #{name\ 1064}#
+ #{name\ 1065}#
#f))))
- (#{build-data\ 330}#
- (lambda (#{src\ 1067}# #{exp\ 1068}#)
- (#{make-const\ 240}# #{src\ 1067}# #{exp\ 1068}#)))
- (#{build-sequence\ 332}#
- (lambda (#{src\ 1071}# #{exps\ 1072}#)
- (if (null? (cdr #{exps\ 1072}#))
- (car #{exps\ 1072}#)
- (#{make-sequence\ 262}#
- #{src\ 1071}#
- #{exps\ 1072}#))))
- (#{build-let\ 334}#
- (lambda (#{src\ 1075}#
- #{ids\ 1076}#
- #{vars\ 1077}#
- #{val-exps\ 1078}#
- #{body-exp\ 1079}#)
+ (#{build-data\ 331}#
+ (lambda (#{src\ 1068}# #{exp\ 1069}#)
+ (#{make-const\ 241}# #{src\ 1068}# #{exp\ 1069}#)))
+ (#{build-sequence\ 333}#
+ (lambda (#{src\ 1072}# #{exps\ 1073}#)
+ (if (null? (cdr #{exps\ 1073}#))
+ (car #{exps\ 1073}#)
+ (#{make-sequence\ 263}#
+ #{src\ 1072}#
+ #{exps\ 1073}#))))
+ (#{build-let\ 335}#
+ (lambda (#{src\ 1076}#
+ #{ids\ 1077}#
+ #{vars\ 1078}#
+ #{val-exps\ 1079}#
+ #{body-exp\ 1080}#)
(begin
(for-each
- #{maybe-name-value!\ 300}#
- #{ids\ 1076}#
- #{val-exps\ 1078}#)
- (if (null? #{vars\ 1077}#)
- #{body-exp\ 1079}#
- (#{make-let\ 268}#
- #{src\ 1075}#
- #{ids\ 1076}#
- #{vars\ 1077}#
- #{val-exps\ 1078}#
- #{body-exp\ 1079}#)))))
- (#{build-named-let\ 336}#
- (lambda (#{src\ 1085}#
- #{ids\ 1086}#
- #{vars\ 1087}#
- #{val-exps\ 1088}#
- #{body-exp\ 1089}#)
+ #{maybe-name-value!\ 301}#
+ #{ids\ 1077}#
+ #{val-exps\ 1079}#)
+ (if (null? #{vars\ 1078}#)
+ #{body-exp\ 1080}#
+ (#{make-let\ 269}#
+ #{src\ 1076}#
+ #{ids\ 1077}#
+ #{vars\ 1078}#
+ #{val-exps\ 1079}#
+ #{body-exp\ 1080}#)))))
+ (#{build-named-let\ 337}#
+ (lambda (#{src\ 1086}#
+ #{ids\ 1087}#
+ #{vars\ 1088}#
+ #{val-exps\ 1089}#
+ #{body-exp\ 1090}#)
(begin
- (let ((#{f\ 1099}# (car #{vars\ 1087}#))
- (#{f-name\ 1100}# (car #{ids\ 1086}#))
- (#{vars\ 1101}# (cdr #{vars\ 1087}#))
- (#{ids\ 1102}# (cdr #{ids\ 1086}#)))
+ (let ((#{f\ 1100}# (car #{vars\ 1088}#))
+ (#{f-name\ 1101}# (car #{ids\ 1087}#))
+ (#{vars\ 1102}# (cdr #{vars\ 1088}#))
+ (#{ids\ 1103}# (cdr #{ids\ 1087}#)))
(begin
- (let ((#{proc\ 1104}#
- (#{build-simple-lambda\ 322}#
- #{src\ 1085}#
- #{ids\ 1102}#
+ (let ((#{proc\ 1105}#
+ (#{build-simple-lambda\ 323}#
+ #{src\ 1086}#
+ #{ids\ 1103}#
#f
- #{vars\ 1101}#
+ #{vars\ 1102}#
'()
- #{body-exp\ 1089}#)))
+ #{body-exp\ 1090}#)))
(begin
- (#{maybe-name-value!\ 300}#
- #{f-name\ 1100}#
- #{proc\ 1104}#)
+ (#{maybe-name-value!\ 301}#
+ #{f-name\ 1101}#
+ #{proc\ 1105}#)
(for-each
- #{maybe-name-value!\ 300}#
- #{ids\ 1102}#
- #{val-exps\ 1088}#)
- (#{make-letrec\ 270}#
- #{src\ 1085}#
+ #{maybe-name-value!\ 301}#
+ #{ids\ 1103}#
+ #{val-exps\ 1089}#)
+ (#{make-letrec\ 271}#
+ #{src\ 1086}#
#f
- (list #{f-name\ 1100}#)
- (list #{f\ 1099}#)
- (list #{proc\ 1104}#)
- (#{build-application\ 304}#
- #{src\ 1085}#
- (#{build-lexical-reference\ 310}#
+ (list #{f-name\ 1101}#)
+ (list #{f\ 1100}#)
+ (list #{proc\ 1105}#)
+ (#{build-application\ 305}#
+ #{src\ 1086}#
+ (#{build-lexical-reference\ 311}#
'fun
- #{src\ 1085}#
- #{f-name\ 1100}#
- #{f\ 1099}#)
- #{val-exps\ 1088}#)))))))))
- (#{build-letrec\ 338}#
- (lambda (#{src\ 1105}#
- #{in-order?\ 1106}#
- #{ids\ 1107}#
- #{vars\ 1108}#
- #{val-exps\ 1109}#
- #{body-exp\ 1110}#)
- (if (null? #{vars\ 1108}#)
- #{body-exp\ 1110}#
+ #{src\ 1086}#
+ #{f-name\ 1101}#
+ #{f\ 1100}#)
+ #{val-exps\ 1089}#)))))))))
+ (#{build-letrec\ 339}#
+ (lambda (#{src\ 1106}#
+ #{in-order?\ 1107}#
+ #{ids\ 1108}#
+ #{vars\ 1109}#
+ #{val-exps\ 1110}#
+ #{body-exp\ 1111}#)
+ (if (null? #{vars\ 1109}#)
+ #{body-exp\ 1111}#
(begin
(for-each
- #{maybe-name-value!\ 300}#
- #{ids\ 1107}#
- #{val-exps\ 1109}#)
- (#{make-letrec\ 270}#
- #{src\ 1105}#
- #{in-order?\ 1106}#
- #{ids\ 1107}#
- #{vars\ 1108}#
- #{val-exps\ 1109}#
- #{body-exp\ 1110}#)))))
- (#{make-syntax-object\ 342}#
- (lambda (#{expression\ 1117}#
- #{wrap\ 1118}#
- #{module\ 1119}#)
+ #{maybe-name-value!\ 301}#
+ #{ids\ 1108}#
+ #{val-exps\ 1110}#)
+ (#{make-letrec\ 271}#
+ #{src\ 1106}#
+ #{in-order?\ 1107}#
+ #{ids\ 1108}#
+ #{vars\ 1109}#
+ #{val-exps\ 1110}#
+ #{body-exp\ 1111}#)))))
+ (#{make-syntax-object\ 343}#
+ (lambda (#{expression\ 1118}#
+ #{wrap\ 1119}#
+ #{module\ 1120}#)
(vector
'syntax-object
- #{expression\ 1117}#
- #{wrap\ 1118}#
- #{module\ 1119}#)))
- (#{syntax-object?\ 344}#
- (lambda (#{x\ 1123}#)
- (if (vector? #{x\ 1123}#)
- (if (= (vector-length #{x\ 1123}#) 4)
- (eq? (vector-ref #{x\ 1123}# 0)
- 'syntax-object)
+ #{expression\ 1118}#
+ #{wrap\ 1119}#
+ #{module\ 1120}#)))
+ (#{syntax-object?\ 345}#
+ (lambda (#{x\ 1124}#)
+ (if (vector? #{x\ 1124}#)
+ (if (= (vector-length #{x\ 1124}#) 4)
+ (eq? (vector-ref #{x\ 1124}# 0) 'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 346}#
- (lambda (#{x\ 1128}#) (vector-ref #{x\ 1128}# 1)))
- (#{syntax-object-wrap\ 348}#
- (lambda (#{x\ 1130}#) (vector-ref #{x\ 1130}# 2)))
- (#{syntax-object-module\ 350}#
- (lambda (#{x\ 1132}#) (vector-ref #{x\ 1132}# 3)))
- (#{source-annotation\ 359}#
- (lambda (#{x\ 1146}#)
- (if (#{syntax-object?\ 344}# #{x\ 1146}#)
- (#{source-annotation\ 359}#
- (#{syntax-object-expression\ 346}# #{x\ 1146}#))
- (if (pair? #{x\ 1146}#)
+ (#{syntax-object-expression\ 347}#
+ (lambda (#{x\ 1129}#) (vector-ref #{x\ 1129}# 1)))
+ (#{syntax-object-wrap\ 349}#
+ (lambda (#{x\ 1131}#) (vector-ref #{x\ 1131}# 2)))
+ (#{syntax-object-module\ 351}#
+ (lambda (#{x\ 1133}#) (vector-ref #{x\ 1133}# 3)))
+ (#{source-annotation\ 360}#
+ (lambda (#{x\ 1147}#)
+ (if (#{syntax-object?\ 345}# #{x\ 1147}#)
+ (#{source-annotation\ 360}#
+ (#{syntax-object-expression\ 347}# #{x\ 1147}#))
+ (if (pair? #{x\ 1147}#)
(begin
- (let ((#{props\ 1153}# (source-properties #{x\ 1146}#)))
- (if (pair? #{props\ 1153}#) #{props\ 1153}# #f)))
+ (let ((#{props\ 1154}# (source-properties #{x\ 1147}#)))
+ (if (pair? #{props\ 1154}#) #{props\ 1154}# #f)))
#f))))
- (#{extend-env\ 366}#
- (lambda (#{labels\ 1155}# #{bindings\ 1156}# #{r\ 1157}#)
- (if (null? #{labels\ 1155}#)
- #{r\ 1157}#
- (#{extend-env\ 366}#
- (cdr #{labels\ 1155}#)
- (cdr #{bindings\ 1156}#)
- (cons (cons (car #{labels\ 1155}#)
- (car #{bindings\ 1156}#))
- #{r\ 1157}#)))))
- (#{extend-var-env\ 368}#
- (lambda (#{labels\ 1161}# #{vars\ 1162}# #{r\ 1163}#)
- (if (null? #{labels\ 1161}#)
- #{r\ 1163}#
- (#{extend-var-env\ 368}#
- (cdr #{labels\ 1161}#)
- (cdr #{vars\ 1162}#)
- (cons (cons (car #{labels\ 1161}#)
- (cons (quote lexical) (car #{vars\ 1162}#)))
- #{r\ 1163}#)))))
- (#{macros-only-env\ 370}#
- (lambda (#{r\ 1168}#)
- (if (null? #{r\ 1168}#)
+ (#{extend-env\ 367}#
+ (lambda (#{labels\ 1156}# #{bindings\ 1157}# #{r\ 1158}#)
+ (if (null? #{labels\ 1156}#)
+ #{r\ 1158}#
+ (#{extend-env\ 367}#
+ (cdr #{labels\ 1156}#)
+ (cdr #{bindings\ 1157}#)
+ (cons (cons (car #{labels\ 1156}#)
+ (car #{bindings\ 1157}#))
+ #{r\ 1158}#)))))
+ (#{extend-var-env\ 369}#
+ (lambda (#{labels\ 1162}# #{vars\ 1163}# #{r\ 1164}#)
+ (if (null? #{labels\ 1162}#)
+ #{r\ 1164}#
+ (#{extend-var-env\ 369}#
+ (cdr #{labels\ 1162}#)
+ (cdr #{vars\ 1163}#)
+ (cons (cons (car #{labels\ 1162}#)
+ (cons 'lexical (car #{vars\ 1163}#)))
+ #{r\ 1164}#)))))
+ (#{macros-only-env\ 371}#
+ (lambda (#{r\ 1169}#)
+ (if (null? #{r\ 1169}#)
'()
(begin
- (let ((#{a\ 1171}# (car #{r\ 1168}#)))
- (if (eq? (car (cdr #{a\ 1171}#)) (quote macro))
- (cons #{a\ 1171}#
- (#{macros-only-env\ 370}# (cdr #{r\ 1168}#)))
- (#{macros-only-env\ 370}# (cdr #{r\ 1168}#))))))))
- (#{lookup\ 372}#
- (lambda (#{x\ 1172}# #{r\ 1173}# #{mod\ 1174}#)
+ (let ((#{a\ 1172}# (car #{r\ 1169}#)))
+ (if (eq? (car (cdr #{a\ 1172}#)) 'macro)
+ (cons #{a\ 1172}#
+ (#{macros-only-env\ 371}# (cdr #{r\ 1169}#)))
+ (#{macros-only-env\ 371}# (cdr #{r\ 1169}#))))))))
+ (#{lookup\ 373}#
+ (lambda (#{x\ 1173}# #{r\ 1174}# #{mod\ 1175}#)
(begin
- (let ((#{t\ 1180}# (assq #{x\ 1172}# #{r\ 1173}#)))
- (if #{t\ 1180}#
- (cdr #{t\ 1180}#)
- (if (symbol? #{x\ 1172}#)
+ (let ((#{t\ 1181}# (assq #{x\ 1173}# #{r\ 1174}#)))
+ (if #{t\ 1181}#
+ (cdr #{t\ 1181}#)
+ (if (symbol? #{x\ 1173}#)
(begin
- (let ((#{t\ 1186}#
- (#{get-global-definition-hook\ 296}#
- #{x\ 1172}#
- #{mod\ 1174}#)))
- (if #{t\ 1186}# #{t\ 1186}# (quote (global)))))
+ (let ((#{t\ 1187}#
+ (#{get-global-definition-hook\ 297}#
+ #{x\ 1173}#
+ #{mod\ 1175}#)))
+ (if #{t\ 1187}# #{t\ 1187}# '(global))))
'(displaced-lexical)))))))
- (#{global-extend\ 374}#
- (lambda (#{type\ 1191}# #{sym\ 1192}# #{val\ 1193}#)
- (#{put-global-definition-hook\ 294}#
- #{sym\ 1192}#
- #{type\ 1191}#
- #{val\ 1193}#)))
- (#{nonsymbol-id?\ 376}#
- (lambda (#{x\ 1197}#)
- (if (#{syntax-object?\ 344}# #{x\ 1197}#)
+ (#{global-extend\ 375}#
+ (lambda (#{type\ 1192}# #{sym\ 1193}# #{val\ 1194}#)
+ (#{put-global-definition-hook\ 295}#
+ #{sym\ 1193}#
+ #{type\ 1192}#
+ #{val\ 1194}#)))
+ (#{nonsymbol-id?\ 377}#
+ (lambda (#{x\ 1198}#)
+ (if (#{syntax-object?\ 345}# #{x\ 1198}#)
(symbol?
- (#{syntax-object-expression\ 346}# #{x\ 1197}#))
+ (#{syntax-object-expression\ 347}# #{x\ 1198}#))
#f)))
- (#{id?\ 378}#
- (lambda (#{x\ 1201}#)
- (if (symbol? #{x\ 1201}#)
+ (#{id?\ 379}#
+ (lambda (#{x\ 1202}#)
+ (if (symbol? #{x\ 1202}#)
#t
- (if (#{syntax-object?\ 344}# #{x\ 1201}#)
+ (if (#{syntax-object?\ 345}# #{x\ 1202}#)
(symbol?
- (#{syntax-object-expression\ 346}# #{x\ 1201}#))
+ (#{syntax-object-expression\ 347}# #{x\ 1202}#))
#f))))
- (#{id-sym-name&marks\ 381}#
- (lambda (#{x\ 1208}# #{w\ 1209}#)
- (if (#{syntax-object?\ 344}# #{x\ 1208}#)
+ (#{id-sym-name&marks\ 382}#
+ (lambda (#{x\ 1209}# #{w\ 1210}#)
+ (if (#{syntax-object?\ 345}# #{x\ 1209}#)
(values
- (#{syntax-object-expression\ 346}# #{x\ 1208}#)
- (#{join-marks\ 428}#
- (car #{w\ 1209}#)
- (car (#{syntax-object-wrap\ 348}# #{x\ 1208}#))))
- (values #{x\ 1208}# (car #{w\ 1209}#)))))
- (#{gen-label\ 391}#
+ (#{syntax-object-expression\ 347}# #{x\ 1209}#)
+ (#{join-marks\ 429}#
+ (car #{w\ 1210}#)
+ (car (#{syntax-object-wrap\ 349}# #{x\ 1209}#))))
+ (values #{x\ 1209}# (car #{w\ 1210}#)))))
+ (#{gen-label\ 392}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 393}#
- (lambda (#{ls\ 1215}#)
- (if (null? #{ls\ 1215}#)
+ (#{gen-labels\ 394}#
+ (lambda (#{ls\ 1216}#)
+ (if (null? #{ls\ 1216}#)
'()
- (cons (#{gen-label\ 391}#)
- (#{gen-labels\ 393}# (cdr #{ls\ 1215}#))))))
- (#{make-ribcage\ 396}#
- (lambda (#{symnames\ 1217}#
- #{marks\ 1218}#
- #{labels\ 1219}#)
+ (cons (#{gen-label\ 392}#)
+ (#{gen-labels\ 394}# (cdr #{ls\ 1216}#))))))
+ (#{make-ribcage\ 397}#
+ (lambda (#{symnames\ 1218}#
+ #{marks\ 1219}#
+ #{labels\ 1220}#)
(vector
'ribcage
- #{symnames\ 1217}#
- #{marks\ 1218}#
- #{labels\ 1219}#)))
- (#{ribcage-symnames\ 400}#
- (lambda (#{x\ 1228}#) (vector-ref #{x\ 1228}# 1)))
- (#{ribcage-marks\ 402}#
- (lambda (#{x\ 1230}#) (vector-ref #{x\ 1230}# 2)))
- (#{ribcage-labels\ 404}#
- (lambda (#{x\ 1232}#) (vector-ref #{x\ 1232}# 3)))
- (#{set-ribcage-symnames!\ 406}#
- (lambda (#{x\ 1234}# #{update\ 1235}#)
- (vector-set! #{x\ 1234}# 1 #{update\ 1235}#)))
- (#{set-ribcage-marks!\ 408}#
- (lambda (#{x\ 1238}# #{update\ 1239}#)
- (vector-set! #{x\ 1238}# 2 #{update\ 1239}#)))
- (#{set-ribcage-labels!\ 410}#
- (lambda (#{x\ 1242}# #{update\ 1243}#)
- (vector-set! #{x\ 1242}# 3 #{update\ 1243}#)))
- (#{anti-mark\ 416}#
- (lambda (#{w\ 1246}#)
- (cons (cons #f (car #{w\ 1246}#))
- (cons (quote shift) (cdr #{w\ 1246}#)))))
- (#{extend-ribcage!\ 420}#
- (lambda (#{ribcage\ 1252}# #{id\ 1253}# #{label\ 1254}#)
+ #{symnames\ 1218}#
+ #{marks\ 1219}#
+ #{labels\ 1220}#)))
+ (#{ribcage-symnames\ 401}#
+ (lambda (#{x\ 1229}#) (vector-ref #{x\ 1229}# 1)))
+ (#{ribcage-marks\ 403}#
+ (lambda (#{x\ 1231}#) (vector-ref #{x\ 1231}# 2)))
+ (#{ribcage-labels\ 405}#
+ (lambda (#{x\ 1233}#) (vector-ref #{x\ 1233}# 3)))
+ (#{set-ribcage-symnames!\ 407}#
+ (lambda (#{x\ 1235}# #{update\ 1236}#)
+ (vector-set! #{x\ 1235}# 1 #{update\ 1236}#)))
+ (#{set-ribcage-marks!\ 409}#
+ (lambda (#{x\ 1239}# #{update\ 1240}#)
+ (vector-set! #{x\ 1239}# 2 #{update\ 1240}#)))
+ (#{set-ribcage-labels!\ 411}#
+ (lambda (#{x\ 1243}# #{update\ 1244}#)
+ (vector-set! #{x\ 1243}# 3 #{update\ 1244}#)))
+ (#{anti-mark\ 417}#
+ (lambda (#{w\ 1247}#)
+ (cons (cons #f (car #{w\ 1247}#))
+ (cons 'shift (cdr #{w\ 1247}#)))))
+ (#{extend-ribcage!\ 421}#
+ (lambda (#{ribcage\ 1253}# #{id\ 1254}# #{label\ 1255}#)
(begin
- (#{set-ribcage-symnames!\ 406}#
- #{ribcage\ 1252}#
- (cons (#{syntax-object-expression\ 346}# #{id\ 1253}#)
- (#{ribcage-symnames\ 400}# #{ribcage\ 1252}#)))
- (#{set-ribcage-marks!\ 408}#
- #{ribcage\ 1252}#
- (cons (car (#{syntax-object-wrap\ 348}# #{id\ 1253}#))
- (#{ribcage-marks\ 402}# #{ribcage\ 1252}#)))
- (#{set-ribcage-labels!\ 410}#
- #{ribcage\ 1252}#
- (cons #{label\ 1254}#
- (#{ribcage-labels\ 404}# #{ribcage\ 1252}#))))))
- (#{make-binding-wrap\ 422}#
- (lambda (#{ids\ 1259}# #{labels\ 1260}# #{w\ 1261}#)
- (if (null? #{ids\ 1259}#)
- #{w\ 1261}#
- (cons (car #{w\ 1261}#)
+ (#{set-ribcage-symnames!\ 407}#
+ #{ribcage\ 1253}#
+ (cons (#{syntax-object-expression\ 347}# #{id\ 1254}#)
+ (#{ribcage-symnames\ 401}# #{ribcage\ 1253}#)))
+ (#{set-ribcage-marks!\ 409}#
+ #{ribcage\ 1253}#
+ (cons (car (#{syntax-object-wrap\ 349}# #{id\ 1254}#))
+ (#{ribcage-marks\ 403}# #{ribcage\ 1253}#)))
+ (#{set-ribcage-labels!\ 411}#
+ #{ribcage\ 1253}#
+ (cons #{label\ 1255}#
+ (#{ribcage-labels\ 405}# #{ribcage\ 1253}#))))))
+ (#{make-binding-wrap\ 423}#
+ (lambda (#{ids\ 1260}# #{labels\ 1261}# #{w\ 1262}#)
+ (if (null? #{ids\ 1260}#)
+ #{w\ 1262}#
+ (cons (car #{w\ 1262}#)
(cons (begin
- (let ((#{labelvec\ 1268}#
- (list->vector #{labels\ 1260}#)))
+ (let ((#{labelvec\ 1269}#
+ (list->vector #{labels\ 1261}#)))
(begin
- (let ((#{n\ 1270}#
- (vector-length #{labelvec\ 1268}#)))
+ (let ((#{n\ 1271}#
+ (vector-length #{labelvec\ 1269}#)))
(begin
- (let ((#{symnamevec\ 1273}#
- (make-vector #{n\ 1270}#))
- (#{marksvec\ 1274}#
- (make-vector #{n\ 1270}#)))
+ (let ((#{symnamevec\ 1274}#
+ (make-vector #{n\ 1271}#))
+ (#{marksvec\ 1275}#
+ (make-vector #{n\ 1271}#)))
(begin
(letrec*
- ((#{f\ 1278}#
- (lambda (#{ids\ 1279}#
- #{i\ 1280}#)
- (if (not (null? #{ids\ 1279}#))
+ ((#{f\ 1279}#
+ (lambda (#{ids\ 1280}#
+ #{i\ 1281}#)
+ (if (not (null? #{ids\ 1280}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\
381}#
- (car #{ids\ 1279}#)
- #{w\ 1261}#))
- (lambda (#{symname\ 1281}#
- #{marks\ 1282}#)
+ (#{id-sym-name&marks\
382}#
+ (car #{ids\ 1280}#)
+ #{w\ 1262}#))
+ (lambda (#{symname\ 1282}#
+ #{marks\ 1283}#)
(begin
(vector-set!
- #{symnamevec\ 1273}#
- #{i\ 1280}#
- #{symname\ 1281}#)
+ #{symnamevec\ 1274}#
+ #{i\ 1281}#
+ #{symname\ 1282}#)
(vector-set!
- #{marksvec\ 1274}#
- #{i\ 1280}#
- #{marks\ 1282}#)
- (#{f\ 1278}#
- (cdr #{ids\ 1279}#)
- (#{fx+\ 281}#
- #{i\ 1280}#
+ #{marksvec\ 1275}#
+ #{i\ 1281}#
+ #{marks\ 1283}#)
+ (#{f\ 1279}#
+ (cdr #{ids\ 1280}#)
+ (#{fx+\ 282}#
+ #{i\ 1281}#
1)))))))))
(begin
- (#{f\ 1278}# #{ids\ 1259}# 0)))
- (#{make-ribcage\ 396}#
- #{symnamevec\ 1273}#
- #{marksvec\ 1274}#
- #{labelvec\ 1268}#))))))))
- (cdr #{w\ 1261}#))))))
- (#{smart-append\ 424}#
- (lambda (#{m1\ 1286}# #{m2\ 1287}#)
- (if (null? #{m2\ 1287}#)
- #{m1\ 1286}#
- (append #{m1\ 1286}# #{m2\ 1287}#))))
- (#{join-wraps\ 426}#
- (lambda (#{w1\ 1290}# #{w2\ 1291}#)
+ (#{f\ 1279}# #{ids\ 1260}# 0)))
+ (#{make-ribcage\ 397}#
+ #{symnamevec\ 1274}#
+ #{marksvec\ 1275}#
+ #{labelvec\ 1269}#))))))))
+ (cdr #{w\ 1262}#))))))
+ (#{smart-append\ 425}#
+ (lambda (#{m1\ 1287}# #{m2\ 1288}#)
+ (if (null? #{m2\ 1288}#)
+ #{m1\ 1287}#
+ (append #{m1\ 1287}# #{m2\ 1288}#))))
+ (#{join-wraps\ 427}#
+ (lambda (#{w1\ 1291}# #{w2\ 1292}#)
(begin
- (let ((#{m1\ 1296}# (car #{w1\ 1290}#))
- (#{s1\ 1297}# (cdr #{w1\ 1290}#)))
- (if (null? #{m1\ 1296}#)
- (if (null? #{s1\ 1297}#)
- #{w2\ 1291}#
- (cons (car #{w2\ 1291}#)
- (#{smart-append\ 424}#
- #{s1\ 1297}#
- (cdr #{w2\ 1291}#))))
- (cons (#{smart-append\ 424}#
- #{m1\ 1296}#
- (car #{w2\ 1291}#))
- (#{smart-append\ 424}#
- #{s1\ 1297}#
- (cdr #{w2\ 1291}#))))))))
- (#{join-marks\ 428}#
- (lambda (#{m1\ 1306}# #{m2\ 1307}#)
- (#{smart-append\ 424}# #{m1\ 1306}# #{m2\ 1307}#)))
- (#{same-marks?\ 430}#
- (lambda (#{x\ 1310}# #{y\ 1311}#)
+ (let ((#{m1\ 1297}# (car #{w1\ 1291}#))
+ (#{s1\ 1298}# (cdr #{w1\ 1291}#)))
+ (if (null? #{m1\ 1297}#)
+ (if (null? #{s1\ 1298}#)
+ #{w2\ 1292}#
+ (cons (car #{w2\ 1292}#)
+ (#{smart-append\ 425}#
+ #{s1\ 1298}#
+ (cdr #{w2\ 1292}#))))
+ (cons (#{smart-append\ 425}#
+ #{m1\ 1297}#
+ (car #{w2\ 1292}#))
+ (#{smart-append\ 425}#
+ #{s1\ 1298}#
+ (cdr #{w2\ 1292}#))))))))
+ (#{join-marks\ 429}#
+ (lambda (#{m1\ 1307}# #{m2\ 1308}#)
+ (#{smart-append\ 425}# #{m1\ 1307}# #{m2\ 1308}#)))
+ (#{same-marks?\ 431}#
+ (lambda (#{x\ 1311}# #{y\ 1312}#)
(begin
- (let ((#{t\ 1316}# (eq? #{x\ 1310}# #{y\ 1311}#)))
- (if #{t\ 1316}#
- #{t\ 1316}#
- (if (not (null? #{x\ 1310}#))
- (if (not (null? #{y\ 1311}#))
- (if (eq? (car #{x\ 1310}#) (car #{y\ 1311}#))
- (#{same-marks?\ 430}#
- (cdr #{x\ 1310}#)
- (cdr #{y\ 1311}#))
+ (let ((#{t\ 1317}# (eq? #{x\ 1311}# #{y\ 1312}#)))
+ (if #{t\ 1317}#
+ #{t\ 1317}#
+ (if (not (null? #{x\ 1311}#))
+ (if (not (null? #{y\ 1312}#))
+ (if (eq? (car #{x\ 1311}#) (car #{y\ 1312}#))
+ (#{same-marks?\ 431}#
+ (cdr #{x\ 1311}#)
+ (cdr #{y\ 1312}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 432}#
- (lambda (#{id\ 1322}# #{w\ 1323}#)
+ (#{id-var-name\ 433}#
+ (lambda (#{id\ 1323}# #{w\ 1324}#)
(letrec*
- ((#{search\ 1328}#
- (lambda (#{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}#)
- (if (null? #{subst\ 1345}#)
- (values #f #{marks\ 1346}#)
+ ((#{search\ 1329}#
+ (lambda (#{sym\ 1345}# #{subst\ 1346}# #{marks\ 1347}#)
+ (if (null? #{subst\ 1346}#)
+ (values #f #{marks\ 1347}#)
(begin
- (let ((#{fst\ 1351}# (car #{subst\ 1345}#)))
- (if (eq? #{fst\ 1351}# (quote shift))
- (#{search\ 1328}#
- #{sym\ 1344}#
- (cdr #{subst\ 1345}#)
- (cdr #{marks\ 1346}#))
+ (let ((#{fst\ 1352}# (car #{subst\ 1346}#)))
+ (if (eq? #{fst\ 1352}# 'shift)
+ (#{search\ 1329}#
+ #{sym\ 1345}#
+ (cdr #{subst\ 1346}#)
+ (cdr #{marks\ 1347}#))
(begin
- (let ((#{symnames\ 1353}#
- (#{ribcage-symnames\ 400}#
- #{fst\ 1351}#)))
- (if (vector? #{symnames\ 1353}#)
- (#{search-vector-rib\ 1332}#
- #{sym\ 1344}#
- #{subst\ 1345}#
- #{marks\ 1346}#
- #{symnames\ 1353}#
- #{fst\ 1351}#)
- (#{search-list-rib\ 1330}#
- #{sym\ 1344}#
- #{subst\ 1345}#
- #{marks\ 1346}#
- #{symnames\ 1353}#
- #{fst\ 1351}#))))))))))
- (#{search-list-rib\ 1330}#
- (lambda (#{sym\ 1354}#
- #{subst\ 1355}#
- #{marks\ 1356}#
- #{symnames\ 1357}#
- #{ribcage\ 1358}#)
+ (let ((#{symnames\ 1354}#
+ (#{ribcage-symnames\ 401}#
+ #{fst\ 1352}#)))
+ (if (vector? #{symnames\ 1354}#)
+ (#{search-vector-rib\ 1333}#
+ #{sym\ 1345}#
+ #{subst\ 1346}#
+ #{marks\ 1347}#
+ #{symnames\ 1354}#
+ #{fst\ 1352}#)
+ (#{search-list-rib\ 1331}#
+ #{sym\ 1345}#
+ #{subst\ 1346}#
+ #{marks\ 1347}#
+ #{symnames\ 1354}#
+ #{fst\ 1352}#))))))))))
+ (#{search-list-rib\ 1331}#
+ (lambda (#{sym\ 1355}#
+ #{subst\ 1356}#
+ #{marks\ 1357}#
+ #{symnames\ 1358}#
+ #{ribcage\ 1359}#)
(letrec*
- ((#{f\ 1367}#
- (lambda (#{symnames\ 1368}# #{i\ 1369}#)
- (if (null? #{symnames\ 1368}#)
- (#{search\ 1328}#
- #{sym\ 1354}#
- (cdr #{subst\ 1355}#)
- #{marks\ 1356}#)
- (if (if (eq? (car #{symnames\ 1368}#)
- #{sym\ 1354}#)
- (#{same-marks?\ 430}#
- #{marks\ 1356}#
+ ((#{f\ 1368}#
+ (lambda (#{symnames\ 1369}# #{i\ 1370}#)
+ (if (null? #{symnames\ 1369}#)
+ (#{search\ 1329}#
+ #{sym\ 1355}#
+ (cdr #{subst\ 1356}#)
+ #{marks\ 1357}#)
+ (if (if (eq? (car #{symnames\ 1369}#)
+ #{sym\ 1355}#)
+ (#{same-marks?\ 431}#
+ #{marks\ 1357}#
(list-ref
- (#{ribcage-marks\ 402}#
- #{ribcage\ 1358}#)
- #{i\ 1369}#))
+ (#{ribcage-marks\ 403}#
+ #{ribcage\ 1359}#)
+ #{i\ 1370}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 404}# #{ribcage\ 1358}#)
- #{i\ 1369}#)
- #{marks\ 1356}#)
- (#{f\ 1367}#
- (cdr #{symnames\ 1368}#)
- (#{fx+\ 281}# #{i\ 1369}# 1)))))))
- (begin (#{f\ 1367}# #{symnames\ 1357}# 0)))))
- (#{search-vector-rib\ 1332}#
- (lambda (#{sym\ 1377}#
- #{subst\ 1378}#
- #{marks\ 1379}#
- #{symnames\ 1380}#
- #{ribcage\ 1381}#)
+ (#{ribcage-labels\ 405}# #{ribcage\ 1359}#)
+ #{i\ 1370}#)
+ #{marks\ 1357}#)
+ (#{f\ 1368}#
+ (cdr #{symnames\ 1369}#)
+ (#{fx+\ 282}# #{i\ 1370}# 1)))))))
+ (begin (#{f\ 1368}# #{symnames\ 1358}# 0)))))
+ (#{search-vector-rib\ 1333}#
+ (lambda (#{sym\ 1378}#
+ #{subst\ 1379}#
+ #{marks\ 1380}#
+ #{symnames\ 1381}#
+ #{ribcage\ 1382}#)
(begin
- (let ((#{n\ 1388}# (vector-length #{symnames\ 1380}#)))
+ (let ((#{n\ 1389}# (vector-length #{symnames\ 1381}#)))
(letrec*
- ((#{f\ 1391}#
- (lambda (#{i\ 1392}#)
- (if (#{fx=\ 285}# #{i\ 1392}# #{n\ 1388}#)
- (#{search\ 1328}#
- #{sym\ 1377}#
- (cdr #{subst\ 1378}#)
- #{marks\ 1379}#)
+ ((#{f\ 1392}#
+ (lambda (#{i\ 1393}#)
+ (if (#{fx=\ 286}# #{i\ 1393}# #{n\ 1389}#)
+ (#{search\ 1329}#
+ #{sym\ 1378}#
+ (cdr #{subst\ 1379}#)
+ #{marks\ 1380}#)
(if (if (eq? (vector-ref
- #{symnames\ 1380}#
- #{i\ 1392}#)
- #{sym\ 1377}#)
- (#{same-marks?\ 430}#
- #{marks\ 1379}#
+ #{symnames\ 1381}#
+ #{i\ 1393}#)
+ #{sym\ 1378}#)
+ (#{same-marks?\ 431}#
+ #{marks\ 1380}#
(vector-ref
- (#{ribcage-marks\ 402}#
- #{ribcage\ 1381}#)
- #{i\ 1392}#))
+ (#{ribcage-marks\ 403}#
+ #{ribcage\ 1382}#)
+ #{i\ 1393}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 404}#
- #{ribcage\ 1381}#)
- #{i\ 1392}#)
- #{marks\ 1379}#)
- (#{f\ 1391}#
- (#{fx+\ 281}# #{i\ 1392}# 1)))))))
- (begin (#{f\ 1391}# 0))))))))
+ (#{ribcage-labels\ 405}#
+ #{ribcage\ 1382}#)
+ #{i\ 1393}#)
+ #{marks\ 1380}#)
+ (#{f\ 1392}#
+ (#{fx+\ 282}# #{i\ 1393}# 1)))))))
+ (begin (#{f\ 1392}# 0))))))))
(begin
- (if (symbol? #{id\ 1322}#)
+ (if (symbol? #{id\ 1323}#)
(begin
- (let ((#{t\ 1402}#
+ (let ((#{t\ 1403}#
(call-with-values
(lambda ()
- (#{search\ 1328}#
- #{id\ 1322}#
- (cdr #{w\ 1323}#)
- (car #{w\ 1323}#)))
- (lambda (#{x\ 1406}# . #{ignore\ 1407}#)
- #{x\ 1406}#))))
- (if #{t\ 1402}# #{t\ 1402}# #{id\ 1322}#)))
- (if (#{syntax-object?\ 344}# #{id\ 1322}#)
+ (#{search\ 1329}#
+ #{id\ 1323}#
+ (cdr #{w\ 1324}#)
+ (car #{w\ 1324}#)))
+ (lambda (#{x\ 1407}# . #{ignore\ 1408}#)
+ #{x\ 1407}#))))
+ (if #{t\ 1403}# #{t\ 1403}# #{id\ 1323}#)))
+ (if (#{syntax-object?\ 345}# #{id\ 1323}#)
(begin
- (let ((#{id\ 1415}#
- (#{syntax-object-expression\ 346}#
- #{id\ 1322}#))
- (#{w1\ 1416}#
- (#{syntax-object-wrap\ 348}# #{id\ 1322}#)))
+ (let ((#{id\ 1416}#
+ (#{syntax-object-expression\ 347}#
+ #{id\ 1323}#))
+ (#{w1\ 1417}#
+ (#{syntax-object-wrap\ 349}# #{id\ 1323}#)))
(begin
- (let ((#{marks\ 1418}#
- (#{join-marks\ 428}#
- (car #{w\ 1323}#)
- (car #{w1\ 1416}#))))
+ (let ((#{marks\ 1419}#
+ (#{join-marks\ 429}#
+ (car #{w\ 1324}#)
+ (car #{w1\ 1417}#))))
(call-with-values
(lambda ()
- (#{search\ 1328}#
- #{id\ 1415}#
- (cdr #{w\ 1323}#)
- #{marks\ 1418}#))
- (lambda (#{new-id\ 1422}# #{marks\ 1423}#)
+ (#{search\ 1329}#
+ #{id\ 1416}#
+ (cdr #{w\ 1324}#)
+ #{marks\ 1419}#))
+ (lambda (#{new-id\ 1423}# #{marks\ 1424}#)
(begin
- (let ((#{t\ 1428}# #{new-id\ 1422}#))
- (if #{t\ 1428}#
- #{t\ 1428}#
+ (let ((#{t\ 1429}# #{new-id\ 1423}#))
+ (if #{t\ 1429}#
+ #{t\ 1429}#
(begin
- (let ((#{t\ 1431}#
+ (let ((#{t\ 1432}#
(call-with-values
(lambda ()
- (#{search\ 1328}#
- #{id\ 1415}#
- (cdr #{w1\ 1416}#)
- #{marks\ 1423}#))
- (lambda (#{x\ 1434}#
+ (#{search\ 1329}#
+ #{id\ 1416}#
+ (cdr #{w1\ 1417}#)
+ #{marks\ 1424}#))
+ (lambda (#{x\ 1435}#
.
- #{ignore\ 1435}#)
- #{x\ 1434}#))))
- (if #{t\ 1431}#
- #{t\ 1431}#
- #{id\ 1415}#))))))))))))
+ #{ignore\ 1436}#)
+ #{x\ 1435}#))))
+ (if #{t\ 1432}#
+ #{t\ 1432}#
+ #{id\ 1416}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1322}#)))))))
- (#{free-id=?\ 434}#
- (lambda (#{i\ 1440}# #{j\ 1441}#)
+ #{id\ 1323}#)))))))
+ (#{free-id=?\ 435}#
+ (lambda (#{i\ 1441}# #{j\ 1442}#)
(if (eq? (begin
- (let ((#{x\ 1447}# #{i\ 1440}#))
- (if (#{syntax-object?\ 344}# #{x\ 1447}#)
- (#{syntax-object-expression\ 346}# #{x\ 1447}#)
- #{x\ 1447}#)))
+ (let ((#{x\ 1448}# #{i\ 1441}#))
+ (if (#{syntax-object?\ 345}# #{x\ 1448}#)
+ (#{syntax-object-expression\ 347}# #{x\ 1448}#)
+ #{x\ 1448}#)))
(begin
- (let ((#{x\ 1450}# #{j\ 1441}#))
- (if (#{syntax-object?\ 344}# #{x\ 1450}#)
- (#{syntax-object-expression\ 346}# #{x\ 1450}#)
- #{x\ 1450}#))))
- (eq? (#{id-var-name\ 432}# #{i\ 1440}# (quote (())))
- (#{id-var-name\ 432}# #{j\ 1441}# (quote (()))))
+ (let ((#{x\ 1451}# #{j\ 1442}#))
+ (if (#{syntax-object?\ 345}# #{x\ 1451}#)
+ (#{syntax-object-expression\ 347}# #{x\ 1451}#)
+ #{x\ 1451}#))))
+ (eq? (#{id-var-name\ 433}# #{i\ 1441}# '(()))
+ (#{id-var-name\ 433}# #{j\ 1442}# '(())))
#f)))
- (#{bound-id=?\ 436}#
- (lambda (#{i\ 1454}# #{j\ 1455}#)
- (if (if (#{syntax-object?\ 344}# #{i\ 1454}#)
- (#{syntax-object?\ 344}# #{j\ 1455}#)
+ (#{bound-id=?\ 437}#
+ (lambda (#{i\ 1455}# #{j\ 1456}#)
+ (if (if (#{syntax-object?\ 345}# #{i\ 1455}#)
+ (#{syntax-object?\ 345}# #{j\ 1456}#)
#f)
- (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1454}#)
- (#{syntax-object-expression\ 346}# #{j\ 1455}#))
- (#{same-marks?\ 430}#
- (car (#{syntax-object-wrap\ 348}# #{i\ 1454}#))
- (car (#{syntax-object-wrap\ 348}# #{j\ 1455}#)))
+ (if (eq? (#{syntax-object-expression\ 347}# #{i\ 1455}#)
+ (#{syntax-object-expression\ 347}# #{j\ 1456}#))
+ (#{same-marks?\ 431}#
+ (car (#{syntax-object-wrap\ 349}# #{i\ 1455}#))
+ (car (#{syntax-object-wrap\ 349}# #{j\ 1456}#)))
#f)
- (eq? #{i\ 1454}# #{j\ 1455}#))))
- (#{valid-bound-ids?\ 438}#
- (lambda (#{ids\ 1464}#)
+ (eq? #{i\ 1455}# #{j\ 1456}#))))
+ (#{valid-bound-ids?\ 439}#
+ (lambda (#{ids\ 1465}#)
(if (letrec*
- ((#{all-ids?\ 1469}#
- (lambda (#{ids\ 1470}#)
+ ((#{all-ids?\ 1470}#
+ (lambda (#{ids\ 1471}#)
(begin
- (let ((#{t\ 1473}# (null? #{ids\ 1470}#)))
- (if #{t\ 1473}#
- #{t\ 1473}#
- (if (#{id?\ 378}# (car #{ids\ 1470}#))
- (#{all-ids?\ 1469}# (cdr #{ids\ 1470}#))
+ (let ((#{t\ 1474}# (null? #{ids\ 1471}#)))
+ (if #{t\ 1474}#
+ #{t\ 1474}#
+ (if (#{id?\ 379}# (car #{ids\ 1471}#))
+ (#{all-ids?\ 1470}# (cdr #{ids\ 1471}#))
#f)))))))
- (begin (#{all-ids?\ 1469}# #{ids\ 1464}#)))
- (#{distinct-bound-ids?\ 440}# #{ids\ 1464}#)
+ (begin (#{all-ids?\ 1470}# #{ids\ 1465}#)))
+ (#{distinct-bound-ids?\ 441}# #{ids\ 1465}#)
#f)))
- (#{distinct-bound-ids?\ 440}#
- (lambda (#{ids\ 1478}#)
+ (#{distinct-bound-ids?\ 441}#
+ (lambda (#{ids\ 1479}#)
(letrec*
- ((#{distinct?\ 1482}#
- (lambda (#{ids\ 1483}#)
+ ((#{distinct?\ 1483}#
+ (lambda (#{ids\ 1484}#)
(begin
- (let ((#{t\ 1486}# (null? #{ids\ 1483}#)))
- (if #{t\ 1486}#
- #{t\ 1486}#
- (if (not (#{bound-id-member?\ 442}#
- (car #{ids\ 1483}#)
- (cdr #{ids\ 1483}#)))
- (#{distinct?\ 1482}# (cdr #{ids\ 1483}#))
+ (let ((#{t\ 1487}# (null? #{ids\ 1484}#)))
+ (if #{t\ 1487}#
+ #{t\ 1487}#
+ (if (not (#{bound-id-member?\ 443}#
+ (car #{ids\ 1484}#)
+ (cdr #{ids\ 1484}#)))
+ (#{distinct?\ 1483}# (cdr #{ids\ 1484}#))
#f)))))))
- (begin (#{distinct?\ 1482}# #{ids\ 1478}#)))))
- (#{bound-id-member?\ 442}#
- (lambda (#{x\ 1490}# #{list\ 1491}#)
- (if (not (null? #{list\ 1491}#))
+ (begin (#{distinct?\ 1483}# #{ids\ 1479}#)))))
+ (#{bound-id-member?\ 443}#
+ (lambda (#{x\ 1491}# #{list\ 1492}#)
+ (if (not (null? #{list\ 1492}#))
(begin
- (let ((#{t\ 1498}#
- (#{bound-id=?\ 436}#
- #{x\ 1490}#
- (car #{list\ 1491}#))))
- (if #{t\ 1498}#
- #{t\ 1498}#
- (#{bound-id-member?\ 442}#
- #{x\ 1490}#
- (cdr #{list\ 1491}#)))))
+ (let ((#{t\ 1499}#
+ (#{bound-id=?\ 437}#
+ #{x\ 1491}#
+ (car #{list\ 1492}#))))
+ (if #{t\ 1499}#
+ #{t\ 1499}#
+ (#{bound-id-member?\ 443}#
+ #{x\ 1491}#
+ (cdr #{list\ 1492}#)))))
#f)))
- (#{wrap\ 444}#
- (lambda (#{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#)
- (if (if (null? (car #{w\ 1501}#))
- (null? (cdr #{w\ 1501}#))
+ (#{wrap\ 445}#
+ (lambda (#{x\ 1501}# #{w\ 1502}# #{defmod\ 1503}#)
+ (if (if (null? (car #{w\ 1502}#))
+ (null? (cdr #{w\ 1502}#))
#f)
- #{x\ 1500}#
- (if (#{syntax-object?\ 344}# #{x\ 1500}#)
- (#{make-syntax-object\ 342}#
- (#{syntax-object-expression\ 346}# #{x\ 1500}#)
- (#{join-wraps\ 426}#
- #{w\ 1501}#
- (#{syntax-object-wrap\ 348}# #{x\ 1500}#))
- (#{syntax-object-module\ 350}# #{x\ 1500}#))
- (if (null? #{x\ 1500}#)
- #{x\ 1500}#
- (#{make-syntax-object\ 342}#
- #{x\ 1500}#
- #{w\ 1501}#
- #{defmod\ 1502}#))))))
- (#{source-wrap\ 446}#
- (lambda (#{x\ 1517}#
- #{w\ 1518}#
- #{s\ 1519}#
- #{defmod\ 1520}#)
- (#{wrap\ 444}#
- (#{decorate-source\ 298}#
- #{x\ 1517}#
- #{s\ 1519}#)
- #{w\ 1518}#
- #{defmod\ 1520}#)))
- (#{chi-sequence\ 448}#
- (lambda (#{body\ 1525}#
- #{r\ 1526}#
- #{w\ 1527}#
- #{s\ 1528}#
- #{mod\ 1529}#)
- (#{build-sequence\ 332}#
- #{s\ 1528}#
+ #{x\ 1501}#
+ (if (#{syntax-object?\ 345}# #{x\ 1501}#)
+ (#{make-syntax-object\ 343}#
+ (#{syntax-object-expression\ 347}# #{x\ 1501}#)
+ (#{join-wraps\ 427}#
+ #{w\ 1502}#
+ (#{syntax-object-wrap\ 349}# #{x\ 1501}#))
+ (#{syntax-object-module\ 351}# #{x\ 1501}#))
+ (if (null? #{x\ 1501}#)
+ #{x\ 1501}#
+ (#{make-syntax-object\ 343}#
+ #{x\ 1501}#
+ #{w\ 1502}#
+ #{defmod\ 1503}#))))))
+ (#{source-wrap\ 447}#
+ (lambda (#{x\ 1518}#
+ #{w\ 1519}#
+ #{s\ 1520}#
+ #{defmod\ 1521}#)
+ (#{wrap\ 445}#
+ (#{decorate-source\ 299}#
+ #{x\ 1518}#
+ #{s\ 1520}#)
+ #{w\ 1519}#
+ #{defmod\ 1521}#)))
+ (#{chi-sequence\ 449}#
+ (lambda (#{body\ 1526}#
+ #{r\ 1527}#
+ #{w\ 1528}#
+ #{s\ 1529}#
+ #{mod\ 1530}#)
+ (#{build-sequence\ 333}#
+ #{s\ 1529}#
(letrec*
- ((#{dobody\ 1540}#
- (lambda (#{body\ 1541}#
- #{r\ 1542}#
- #{w\ 1543}#
- #{mod\ 1544}#)
- (if (null? #{body\ 1541}#)
+ ((#{dobody\ 1541}#
+ (lambda (#{body\ 1542}#
+ #{r\ 1543}#
+ #{w\ 1544}#
+ #{mod\ 1545}#)
+ (if (null? #{body\ 1542}#)
'()
(begin
- (let ((#{first\ 1546}#
- (#{chi\ 460}#
- (car #{body\ 1541}#)
- #{r\ 1542}#
- #{w\ 1543}#
- #{mod\ 1544}#)))
- (cons #{first\ 1546}#
- (#{dobody\ 1540}#
- (cdr #{body\ 1541}#)
- #{r\ 1542}#
- #{w\ 1543}#
- #{mod\ 1544}#))))))))
+ (let ((#{first\ 1547}#
+ (#{chi\ 461}#
+ (car #{body\ 1542}#)
+ #{r\ 1543}#
+ #{w\ 1544}#
+ #{mod\ 1545}#)))
+ (cons #{first\ 1547}#
+ (#{dobody\ 1541}#
+ (cdr #{body\ 1542}#)
+ #{r\ 1543}#
+ #{w\ 1544}#
+ #{mod\ 1545}#))))))))
(begin
- (#{dobody\ 1540}#
- #{body\ 1525}#
- #{r\ 1526}#
- #{w\ 1527}#
- #{mod\ 1529}#))))))
- (#{chi-top-sequence\ 450}#
- (lambda (#{body\ 1547}#
- #{r\ 1548}#
- #{w\ 1549}#
- #{s\ 1550}#
- #{m\ 1551}#
- #{esew\ 1552}#
- #{mod\ 1553}#)
- (#{build-sequence\ 332}#
- #{s\ 1550}#
+ (#{dobody\ 1541}#
+ #{body\ 1526}#
+ #{r\ 1527}#
+ #{w\ 1528}#
+ #{mod\ 1530}#))))))
+ (#{chi-top-sequence\ 451}#
+ (lambda (#{body\ 1548}#
+ #{r\ 1549}#
+ #{w\ 1550}#
+ #{s\ 1551}#
+ #{m\ 1552}#
+ #{esew\ 1553}#
+ #{mod\ 1554}#)
+ (#{build-sequence\ 333}#
+ #{s\ 1551}#
(letrec*
- ((#{dobody\ 1569}#
- (lambda (#{body\ 1570}#
- #{r\ 1571}#
- #{w\ 1572}#
- #{m\ 1573}#
- #{esew\ 1574}#
- #{mod\ 1575}#
- #{out\ 1576}#)
- (if (null? #{body\ 1570}#)
- (reverse #{out\ 1576}#)
- (#{dobody\ 1569}#
- (cdr #{body\ 1570}#)
- #{r\ 1571}#
- #{w\ 1572}#
- #{m\ 1573}#
- #{esew\ 1574}#
- #{mod\ 1575}#
- (cons (#{chi-top\ 458}#
- (car #{body\ 1570}#)
- #{r\ 1571}#
- #{w\ 1572}#
- #{m\ 1573}#
- #{esew\ 1574}#
- #{mod\ 1575}#)
- #{out\ 1576}#))))))
+ ((#{dobody\ 1570}#
+ (lambda (#{body\ 1571}#
+ #{r\ 1572}#
+ #{w\ 1573}#
+ #{m\ 1574}#
+ #{esew\ 1575}#
+ #{mod\ 1576}#
+ #{out\ 1577}#)
+ (if (null? #{body\ 1571}#)
+ (reverse #{out\ 1577}#)
+ (#{dobody\ 1570}#
+ (cdr #{body\ 1571}#)
+ #{r\ 1572}#
+ #{w\ 1573}#
+ #{m\ 1574}#
+ #{esew\ 1575}#
+ #{mod\ 1576}#
+ (cons (#{chi-top\ 459}#
+ (car #{body\ 1571}#)
+ #{r\ 1572}#
+ #{w\ 1573}#
+ #{m\ 1574}#
+ #{esew\ 1575}#
+ #{mod\ 1576}#)
+ #{out\ 1577}#))))))
(begin
- (#{dobody\ 1569}#
- #{body\ 1547}#
- #{r\ 1548}#
- #{w\ 1549}#
- #{m\ 1551}#
- #{esew\ 1552}#
- #{mod\ 1553}#
+ (#{dobody\ 1570}#
+ #{body\ 1548}#
+ #{r\ 1549}#
+ #{w\ 1550}#
+ #{m\ 1552}#
+ #{esew\ 1553}#
+ #{mod\ 1554}#
'()))))))
- (#{chi-install-global\ 452}#
- (lambda (#{name\ 1577}# #{e\ 1578}#)
- (#{build-global-definition\ 320}#
+ (#{chi-install-global\ 453}#
+ (lambda (#{name\ 1578}# #{e\ 1579}#)
+ (#{build-global-definition\ 321}#
#f
- #{name\ 1577}#
- (#{build-application\ 304}#
+ #{name\ 1578}#
+ (#{build-application\ 305}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 329}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 330}# #f #{name\ 1577}#)
- (#{build-data\ 330}# #f (quote macro))
- #{e\ 1578}#)))))
- (#{chi-when-list\ 454}#
- (lambda (#{e\ 1586}# #{when-list\ 1587}# #{w\ 1588}#)
+ (list (#{build-data\ 331}# #f #{name\ 1578}#)
+ (#{build-data\ 331}# #f 'macro)
+ #{e\ 1579}#)))))
+ (#{chi-when-list\ 455}#
+ (lambda (#{e\ 1587}# #{when-list\ 1588}# #{w\ 1589}#)
(letrec*
- ((#{f\ 1595}#
- (lambda (#{when-list\ 1596}# #{situations\ 1597}#)
- (if (null? #{when-list\ 1596}#)
- #{situations\ 1597}#
- (#{f\ 1595}#
- (cdr #{when-list\ 1596}#)
+ ((#{f\ 1596}#
+ (lambda (#{when-list\ 1597}# #{situations\ 1598}#)
+ (if (null? #{when-list\ 1597}#)
+ #{situations\ 1598}#
+ (#{f\ 1596}#
+ (cdr #{when-list\ 1597}#)
(cons (begin
- (let ((#{x\ 1599}# (car #{when-list\ 1596}#)))
- (if (#{free-id=?\ 434}#
- #{x\ 1599}#
+ (let ((#{x\ 1600}# (car #{when-list\ 1597}#)))
+ (if (#{free-id=?\ 435}#
+ #{x\ 1600}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1598"))
+ #(ribcage #(x) #((top)) #("i1599"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1592" "i1593" "i1594"))
+ #("i1593" "i1594" "i1595"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1589" "i1590" "i1591"))
+ #("i1590" "i1591" "i1592"))
#(ribcage
(lambda-var-list
gen-var
@@ -1478,58 +1474,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -1538,94 +1535,93 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 434}#
- #{x\ 1599}#
+ (if (#{free-id=?\ 435}#
+ #{x\ 1600}#
'#(syntax-object
load
((top)
@@ -1635,17 +1631,17 @@
#(ribcage
#(x)
#((top))
- #("i1598"))
+ #("i1599"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1592" "i1593" "i1594"))
+ #("i1593" "i1594" "i1595"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1589" "i1590" "i1591"))
+ #("i1590" "i1591" "i1592"))
#(ribcage
(lambda-var-list
gen-var
@@ -1921,58 +1917,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -1981,94 +1978,93 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 434}#
- #{x\ 1599}#
+ (if (#{free-id=?\ 435}#
+ #{x\ 1600}#
'#(syntax-object
eval
((top)
@@ -2078,17 +2074,17 @@
#(ribcage
#(x)
#((top))
- #("i1598"))
+ #("i1599"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1592" "i1593" "i1594"))
+ #("i1593" "i1594" "i1595"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1589" "i1590" "i1591"))
+ #("i1590" "i1591" "i1592"))
#(ribcage
(lambda-var-list
gen-var
@@ -2364,58 +2360,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -2424,94 +2421,93 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 434}#
- #{x\ 1599}#
+ (if (#{free-id=?\ 435}#
+ #{x\ 1600}#
'#(syntax-object
expand
((top)
@@ -2521,17 +2517,17 @@
#(ribcage
#(x)
#((top))
- #("i1598"))
+ #("i1599"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1592" "i1593" "i1594"))
+ #("i1593" "i1594" "i1595"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1589" "i1590" "i1591"))
+ #("i1590" "i1591" "i1592"))
#(ribcage
(lambda-var-list
gen-var
@@ -2807,58 +2803,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -2867,337 +2864,332 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1586}#
- (#{wrap\ 444}#
- #{x\ 1599}#
- #{w\ 1588}#
+ #{e\ 1587}#
+ (#{wrap\ 445}#
+ #{x\ 1600}#
+ #{w\ 1589}#
#f))))))))
- #{situations\ 1597}#))))))
+ #{situations\ 1598}#))))))
+ (begin (#{f\ 1596}# #{when-list\ 1588}# '())))))
+ (#{syntax-type\ 457}#
+ (lambda (#{e\ 1610}#
+ #{r\ 1611}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{rib\ 1614}#
+ #{mod\ 1615}#
+ #{for-car?\ 1616}#)
+ (if (symbol? #{e\ 1610}#)
(begin
- (#{f\ 1595}# #{when-list\ 1587}# (quote ()))))))
- (#{syntax-type\ 456}#
- (lambda (#{e\ 1609}#
- #{r\ 1610}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{rib\ 1613}#
- #{mod\ 1614}#
- #{for-car?\ 1615}#)
- (if (symbol? #{e\ 1609}#)
- (begin
- (let ((#{n\ 1627}#
- (#{id-var-name\ 432}# #{e\ 1609}# #{w\ 1611}#)))
+ (let ((#{n\ 1628}#
+ (#{id-var-name\ 433}# #{e\ 1610}# #{w\ 1612}#)))
(begin
- (let ((#{b\ 1629}#
- (#{lookup\ 372}#
- #{n\ 1627}#
- #{r\ 1610}#
- #{mod\ 1614}#)))
+ (let ((#{b\ 1630}#
+ (#{lookup\ 373}#
+ #{n\ 1628}#
+ #{r\ 1611}#
+ #{mod\ 1615}#)))
(begin
- (let ((#{type\ 1631}# (car #{b\ 1629}#)))
- (if (eqv? #{type\ 1631}# (quote lexical))
+ (let ((#{type\ 1632}# (car #{b\ 1630}#)))
+ (if (eqv? #{type\ 1632}# 'lexical)
(values
- #{type\ 1631}#
- (cdr #{b\ 1629}#)
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{type\ 1631}# (quote global))
+ #{type\ 1632}#
+ (cdr #{b\ 1630}#)
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{type\ 1632}# 'global)
(values
- #{type\ 1631}#
- #{n\ 1627}#
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{type\ 1631}# (quote macro))
- (if #{for-car?\ 1615}#
+ #{type\ 1632}#
+ #{n\ 1628}#
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{type\ 1632}# 'macro)
+ (if #{for-car?\ 1616}#
(values
- #{type\ 1631}#
- (cdr #{b\ 1629}#)
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (#{syntax-type\ 456}#
- (#{chi-macro\ 466}#
- (cdr #{b\ 1629}#)
- #{e\ 1609}#
- #{r\ 1610}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{rib\ 1613}#
- #{mod\ 1614}#)
- #{r\ 1610}#
+ #{type\ 1632}#
+ (cdr #{b\ 1630}#)
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (#{syntax-type\ 457}#
+ (#{chi-macro\ 467}#
+ (cdr #{b\ 1630}#)
+ #{e\ 1610}#
+ #{r\ 1611}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{rib\ 1614}#
+ #{mod\ 1615}#)
+ #{r\ 1611}#
'(())
- #{s\ 1612}#
- #{rib\ 1613}#
- #{mod\ 1614}#
+ #{s\ 1613}#
+ #{rib\ 1614}#
+ #{mod\ 1615}#
#f))
(values
- #{type\ 1631}#
- (cdr #{b\ 1629}#)
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#))))))))))
- (if (pair? #{e\ 1609}#)
+ #{type\ 1632}#
+ (cdr #{b\ 1630}#)
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#))))))))))
+ (if (pair? #{e\ 1610}#)
(begin
- (let ((#{first\ 1645}# (car #{e\ 1609}#)))
+ (let ((#{first\ 1646}# (car #{e\ 1610}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 456}#
- #{first\ 1645}#
- #{r\ 1610}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{rib\ 1613}#
- #{mod\ 1614}#
+ (#{syntax-type\ 457}#
+ #{first\ 1646}#
+ #{r\ 1611}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{rib\ 1614}#
+ #{mod\ 1615}#
#t))
- (lambda (#{ftype\ 1646}#
- #{fval\ 1647}#
- #{fe\ 1648}#
- #{fw\ 1649}#
- #{fs\ 1650}#
- #{fmod\ 1651}#)
- (if (eqv? #{ftype\ 1646}# (quote lexical))
+ (lambda (#{ftype\ 1647}#
+ #{fval\ 1648}#
+ #{fe\ 1649}#
+ #{fw\ 1650}#
+ #{fs\ 1651}#
+ #{fmod\ 1652}#)
+ (if (eqv? #{ftype\ 1647}# 'lexical)
(values
'lexical-call
- #{fval\ 1647}#
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{ftype\ 1646}# (quote global))
+ #{fval\ 1648}#
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{ftype\ 1647}# 'global)
(values
'global-call
- (#{make-syntax-object\ 342}#
- #{fval\ 1647}#
- #{w\ 1611}#
- #{fmod\ 1651}#)
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{ftype\ 1646}# (quote macro))
- (#{syntax-type\ 456}#
- (#{chi-macro\ 466}#
- #{fval\ 1647}#
- #{e\ 1609}#
- #{r\ 1610}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{rib\ 1613}#
- #{mod\ 1614}#)
- #{r\ 1610}#
+ (#{make-syntax-object\ 343}#
+ #{fval\ 1648}#
+ #{w\ 1612}#
+ #{fmod\ 1652}#)
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{ftype\ 1647}# 'macro)
+ (#{syntax-type\ 457}#
+ (#{chi-macro\ 467}#
+ #{fval\ 1648}#
+ #{e\ 1610}#
+ #{r\ 1611}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{rib\ 1614}#
+ #{mod\ 1615}#)
+ #{r\ 1611}#
'(())
- #{s\ 1612}#
- #{rib\ 1613}#
- #{mod\ 1614}#
- #{for-car?\ 1615}#)
- (if (eqv? #{ftype\ 1646}# (quote module-ref))
+ #{s\ 1613}#
+ #{rib\ 1614}#
+ #{mod\ 1615}#
+ #{for-car?\ 1616}#)
+ (if (eqv? #{ftype\ 1647}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval\ 1647}#
- #{e\ 1609}#
- #{r\ 1610}#
- #{w\ 1611}#))
- (lambda (#{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{mod\ 1667}#)
- (#{syntax-type\ 456}#
- #{e\ 1663}#
- #{r\ 1664}#
- #{w\ 1665}#
- #{s\ 1666}#
- #{rib\ 1613}#
- #{mod\ 1667}#
- #{for-car?\ 1615}#)))
- (if (eqv? #{ftype\ 1646}# (quote core))
+ (#{fval\ 1648}#
+ #{e\ 1610}#
+ #{r\ 1611}#
+ #{w\ 1612}#))
+ (lambda (#{e\ 1664}#
+ #{r\ 1665}#
+ #{w\ 1666}#
+ #{s\ 1667}#
+ #{mod\ 1668}#)
+ (#{syntax-type\ 457}#
+ #{e\ 1664}#
+ #{r\ 1665}#
+ #{w\ 1666}#
+ #{s\ 1667}#
+ #{rib\ 1614}#
+ #{mod\ 1668}#
+ #{for-car?\ 1616}#)))
+ (if (eqv? #{ftype\ 1647}# 'core)
(values
'core-form
- #{fval\ 1647}#
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{ftype\ 1646}#
- 'local-syntax)
+ #{fval\ 1648}#
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{ftype\ 1647}# 'local-syntax)
(values
'local-syntax-form
- #{fval\ 1647}#
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{ftype\ 1646}# (quote begin))
+ #{fval\ 1648}#
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{ftype\ 1647}# 'begin)
(values
'begin-form
#f
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{ftype\ 1646}#
- 'eval-when)
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{ftype\ 1647}# 'eval-when)
(values
'eval-when-form
#f
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
- (if (eqv? #{ftype\ 1646}#
- 'define)
- (let ((#{tmp\ 1678}# #{e\ 1609}#))
- (let ((#{tmp\ 1679}#
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
+ (if (eqv? #{ftype\ 1647}# 'define)
+ (let ((#{tmp\ 1679}# #{e\ 1610}#))
+ (let ((#{tmp\ 1680}#
($sc-dispatch
- #{tmp\ 1678}#
+ #{tmp\ 1679}#
'(_ any any))))
- (if (if #{tmp\ 1679}#
+ (if (if #{tmp\ 1680}#
(@apply
- (lambda (#{name\ 1682}#
- #{val\ 1683}#)
- (#{id?\ 378}#
- #{name\ 1682}#))
- #{tmp\ 1679}#)
+ (lambda (#{name\ 1683}#
+ #{val\ 1684}#)
+ (#{id?\ 379}#
+ #{name\ 1683}#))
+ #{tmp\ 1680}#)
#f)
(@apply
- (lambda (#{name\ 1686}#
- #{val\ 1687}#)
+ (lambda (#{name\ 1687}#
+ #{val\ 1688}#)
(values
'define-form
- #{name\ 1686}#
- #{val\ 1687}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#))
- #{tmp\ 1679}#)
- (let ((#{tmp\ 1688}#
+ #{name\ 1687}#
+ #{val\ 1688}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#))
+ #{tmp\ 1680}#)
+ (let ((#{tmp\ 1689}#
($sc-dispatch
- #{tmp\ 1678}#
+ #{tmp\ 1679}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp\ 1688}#
+ (if (if #{tmp\ 1689}#
(@apply
- (lambda (#{name\
1693}#
- #{args\
1694}#
- #{e1\
1695}#
- #{e2\
1696}#)
- (if (#{id?\ 378}#
- #{name\
1693}#)
-
(#{valid-bound-ids?\ 438}#
-
(#{lambda-var-list\ 490}#
- #{args\
1694}#))
+ (lambda (#{name\
1694}#
+ #{args\
1695}#
+ #{e1\
1696}#
+ #{e2\
1697}#)
+ (if (#{id?\ 379}#
+ #{name\
1694}#)
+
(#{valid-bound-ids?\ 439}#
+
(#{lambda-var-list\ 491}#
+ #{args\
1695}#))
#f))
- #{tmp\ 1688}#)
+ #{tmp\ 1689}#)
#f)
(@apply
- (lambda (#{name\ 1703}#
- #{args\ 1704}#
- #{e1\ 1705}#
- #{e2\ 1706}#)
+ (lambda (#{name\ 1704}#
+ #{args\ 1705}#
+ #{e1\ 1706}#
+ #{e2\ 1707}#)
(values
'define-form
- (#{wrap\ 444}#
- #{name\ 1703}#
- #{w\ 1611}#
- #{mod\ 1614}#)
- (#{decorate-source\
298}#
+ (#{wrap\ 445}#
+ #{name\ 1704}#
+ #{w\ 1612}#
+ #{mod\ 1615}#)
+ (#{decorate-source\
299}#
(cons
'#(syntax-object
lambda
((top)
@@ -3210,10 +3202,10 @@
(top)
(top)
(top))
-
#("i1699"
-
"i1700"
+
#("i1700"
"i1701"
-
"i1702"))
+
"i1702"
+
"i1703"))
#(ribcage
()
()
@@ -3235,12 +3227,12 @@
(top)
(top)
(top))
-
#("i1652"
-
"i1653"
+
#("i1653"
"i1654"
"i1655"
"i1656"
-
"i1657"))
+
"i1657"
+
"i1658"))
#(ribcage
()
()
@@ -3248,7 +3240,7 @@
#(ribcage
#(first)
#((top))
-
#("i1644"))
+
#("i1645"))
#(ribcage
()
()
@@ -3276,13 +3268,13 @@
(top)
(top)
(top))
-
#("i1616"
-
"i1617"
+
#("i1617"
"i1618"
"i1619"
"i1620"
"i1621"
-
"i1622"))
+
"i1622"
+
"i1623"))
#(ribcage
(lambda-var-list
gen-var
@@ -3558,58 +3550,59 @@
(top)
(top)
(top))
-
("i489"
-
"i487"
-
"i485"
-
"i483"
-
"i481"
-
"i479"
-
"i477"
-
"i475"
-
"i473"
-
"i471"
-
"i469"
-
"i467"
-
"i465"
-
"i463"
-
"i461"
-
"i459"
-
"i457"
-
"i455"
-
"i453"
-
"i451"
-
"i449"
-
"i447"
-
"i445"
-
"i443"
-
"i441"
-
"i439"
-
"i437"
-
"i435"
-
"i433"
-
"i431"
-
"i429"
-
"i427"
-
"i425"
-
"i423"
-
"i421"
+
("i490"
+
"i488"
+
"i486"
+
"i484"
+
"i482"
+
"i480"
+
"i478"
+
"i476"
+
"i474"
+
"i472"
+
"i470"
+
"i468"
+
"i466"
+
"i464"
+
"i462"
+
"i460"
+
"i458"
+
"i456"
+
"i454"
+
"i452"
+
"i450"
+
"i448"
+
"i446"
+
"i444"
+
"i442"
+
"i440"
+
"i438"
+
"i436"
+
"i434"
+
"i432"
+
"i430"
+
"i428"
+
"i426"
+
"i424"
+
"i422"
+
"i420"
"i419"
"i418"
-
"i417"
+
"i416"
"i415"
"i414"
"i413"
"i412"
-
"i411"
-
"i409"
-
"i407"
-
"i405"
-
"i403"
-
"i401"
-
"i399"
-
"i397"
-
"i395"
-
"i392"
+
"i410"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i398"
+
"i396"
+
"i393"
+
"i391"
"i390"
"i389"
"i388"
@@ -3618,83 +3611,82 @@
"i385"
"i384"
"i383"
-
"i382"
+
"i381"
"i380"
-
"i379"
-
"i377"
-
"i375"
-
"i373"
-
"i371"
-
"i369"
-
"i367"
+
"i378"
+
"i376"
+
"i374"
+
"i372"
+
"i370"
+
"i368"
+
"i366"
"i365"
"i364"
"i363"
"i362"
"i361"
-
"i360"
+
"i359"
"i358"
-
"i357"
-
"i355"
-
"i353"
-
"i351"
-
"i349"
-
"i347"
-
"i345"
-
"i343"
-
"i341"
-
"i339"
-
"i337"
-
"i335"
-
"i333"
-
"i331"
-
"i329"
-
"i327"
-
"i325"
-
"i323"
-
"i321"
-
"i319"
-
"i317"
-
"i315"
-
"i313"
-
"i311"
-
"i309"
-
"i307"
-
"i305"
-
"i303"
-
"i301"
-
"i299"
-
"i297"
-
"i295"
+
"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"
+
"i302"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
"i293"
-
"i292"
-
"i290"
-
"i288"
-
"i286"
-
"i284"
-
"i282"
-
"i280"
-
"i278"
-
"i276"
-
"i274"
-
"i271"
-
"i269"
-
"i267"
-
"i265"
-
"i263"
-
"i261"
-
"i259"
-
"i257"
-
"i255"
-
"i253"
-
"i251"
-
"i249"
-
"i247"
-
"i245"
-
"i243"
-
"i241"
-
"i239"
-
"i237"))
+
"i291"
+
"i289"
+
"i287"
+
"i285"
+
"i283"
+
"i281"
+
"i279"
+
"i277"
+
"i275"
+
"i272"
+
"i270"
+
"i268"
+
"i266"
+
"i264"
+
"i262"
+
"i260"
+
"i258"
+
"i256"
+
"i254"
+
"i252"
+
"i250"
+
"i248"
+
"i246"
+
"i244"
+
"i242"
+
"i240"
+
"i238"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3704,49 +3696,49 @@
(top)
(top)
(top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
-
"i35")))
+
"i36")))
(hygiene
guile))
- (#{wrap\
444}#
- (cons
#{args\ 1704}#
-
(cons #{e1\ 1705}#
-
#{e2\ 1706}#))
- #{w\
1611}#
- #{mod\
1614}#))
- #{s\ 1612}#)
+ (#{wrap\
445}#
+ (cons
#{args\ 1705}#
+
(cons #{e1\ 1706}#
+
#{e2\ 1707}#))
+ #{w\
1612}#
+ #{mod\
1615}#))
+ #{s\ 1613}#)
'(())
- #{s\ 1612}#
- #{mod\ 1614}#))
- #{tmp\ 1688}#)
- (let ((#{tmp\ 1709}#
+ #{s\ 1613}#
+ #{mod\ 1615}#))
+ #{tmp\ 1689}#)
+ (let ((#{tmp\ 1710}#
($sc-dispatch
- #{tmp\ 1678}#
+ #{tmp\ 1679}#
'(_ any))))
- (if (if #{tmp\ 1709}#
+ (if (if #{tmp\ 1710}#
(@apply
- (lambda
(#{name\ 1711}#)
- (#{id?\ 378}#
- #{name\
1711}#))
- #{tmp\ 1709}#)
+ (lambda
(#{name\ 1712}#)
+ (#{id?\ 379}#
+ #{name\
1712}#))
+ #{tmp\ 1710}#)
#f)
(@apply
- (lambda (#{name\
1713}#)
+ (lambda (#{name\
1714}#)
(values
'define-form
- (#{wrap\ 444}#
- #{name\ 1713}#
- #{w\ 1611}#
- #{mod\ 1614}#)
+ (#{wrap\ 445}#
+ #{name\ 1714}#
+ #{w\ 1612}#
+ #{mod\ 1615}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
-
#("i1712"))
+
#("i1713"))
#(ribcage
()
()
@@ -3768,12 +3760,12 @@
(top)
(top)
(top))
- #("i1652"
- "i1653"
+ #("i1653"
"i1654"
"i1655"
"i1656"
-
"i1657"))
+ "i1657"
+
"i1658"))
#(ribcage
()
()
@@ -3781,7 +3773,7 @@
#(ribcage
#(first)
#((top))
-
#("i1644"))
+
#("i1645"))
#(ribcage
()
()
@@ -3809,13 +3801,13 @@
(top)
(top)
(top))
- #("i1616"
- "i1617"
+ #("i1617"
"i1618"
"i1619"
"i1620"
"i1621"
-
"i1622"))
+ "i1622"
+
"i1623"))
#(ribcage
(lambda-var-list
gen-var
@@ -4091,58 +4083,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -4151,83 +4144,82 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4237,10 +4229,10 @@
(top)
(top)
(top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
- "i35")))
+ "i36")))
(hygiene
guile))
#(syntax-object
@@ -4249,7 +4241,7 @@
#(ribcage
#(name)
#((top))
-
#("i1712"))
+
#("i1713"))
#(ribcage
()
()
@@ -4271,12 +4263,12 @@
(top)
(top)
(top))
- #("i1652"
- "i1653"
+ #("i1653"
"i1654"
"i1655"
"i1656"
-
"i1657"))
+ "i1657"
+
"i1658"))
#(ribcage
()
()
@@ -4284,7 +4276,7 @@
#(ribcage
#(first)
#((top))
-
#("i1644"))
+
#("i1645"))
#(ribcage
()
()
@@ -4312,13 +4304,13 @@
(top)
(top)
(top))
- #("i1616"
- "i1617"
+ #("i1617"
"i1618"
"i1619"
"i1620"
"i1621"
-
"i1622"))
+ "i1622"
+
"i1623"))
#(ribcage
(lambda-var-list
gen-var
@@ -4594,58 +4586,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -4654,83 +4647,82 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4740,10 +4732,10 @@
(top)
(top)
(top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
- "i35")))
+ "i36")))
(hygiene
guile))
#(syntax-object
@@ -4752,7 +4744,7 @@
#(ribcage
#(name)
#((top))
-
#("i1712"))
+
#("i1713"))
#(ribcage
()
()
@@ -4774,12 +4766,12 @@
(top)
(top)
(top))
- #("i1652"
- "i1653"
+ #("i1653"
"i1654"
"i1655"
"i1656"
-
"i1657"))
+ "i1657"
+
"i1658"))
#(ribcage
()
()
@@ -4787,7 +4779,7 @@
#(ribcage
#(first)
#((top))
-
#("i1644"))
+
#("i1645"))
#(ribcage
()
()
@@ -4815,13 +4807,13 @@
(top)
(top)
(top))
- #("i1616"
- "i1617"
+ #("i1617"
"i1618"
"i1619"
"i1620"
"i1621"
-
"i1622"))
+ "i1622"
+
"i1623"))
#(ribcage
(lambda-var-list
gen-var
@@ -5097,58 +5089,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -5157,83 +5150,82 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -5243,1215 +5235,1201 @@
(top)
(top)
(top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
- "i35")))
+ "i36")))
(hygiene
guile)))
'(())
- #{s\ 1612}#
- #{mod\ 1614}#))
- #{tmp\ 1709}#)
+ #{s\ 1613}#
+ #{mod\ 1615}#))
+ #{tmp\ 1710}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\
1678}#))))))))
- (if (eqv? #{ftype\ 1646}#
+ #{tmp\
1679}#))))))))
+ (if (eqv? #{ftype\ 1647}#
'define-syntax)
- (let ((#{tmp\ 1716}# #{e\ 1609}#))
- (let ((#{tmp\ 1717}#
+ (let ((#{tmp\ 1717}# #{e\ 1610}#))
+ (let ((#{tmp\ 1718}#
($sc-dispatch
- #{tmp\ 1716}#
+ #{tmp\ 1717}#
'(_ any any))))
- (if (if #{tmp\ 1717}#
+ (if (if #{tmp\ 1718}#
(@apply
- (lambda (#{name\
1720}#
- #{val\
1721}#)
- (#{id?\ 378}#
- #{name\ 1720}#))
- #{tmp\ 1717}#)
+ (lambda (#{name\
1721}#
+ #{val\
1722}#)
+ (#{id?\ 379}#
+ #{name\ 1721}#))
+ #{tmp\ 1718}#)
#f)
(@apply
- (lambda (#{name\ 1724}#
- #{val\ 1725}#)
+ (lambda (#{name\ 1725}#
+ #{val\ 1726}#)
(values
'define-syntax-form
- #{name\ 1724}#
- #{val\ 1725}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#))
- #{tmp\ 1717}#)
+ #{name\ 1725}#
+ #{val\ 1726}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#))
+ #{tmp\ 1718}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 1716}#))))
+ #{tmp\ 1717}#))))
(values
'call
#f
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)))))))))))))))
- (if (#{syntax-object?\ 344}# #{e\ 1609}#)
- (#{syntax-type\ 456}#
- (#{syntax-object-expression\ 346}# #{e\ 1609}#)
- #{r\ 1610}#
- (#{join-wraps\ 426}#
- #{w\ 1611}#
- (#{syntax-object-wrap\ 348}# #{e\ 1609}#))
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)))))))))))))))
+ (if (#{syntax-object?\ 345}# #{e\ 1610}#)
+ (#{syntax-type\ 457}#
+ (#{syntax-object-expression\ 347}# #{e\ 1610}#)
+ #{r\ 1611}#
+ (#{join-wraps\ 427}#
+ #{w\ 1612}#
+ (#{syntax-object-wrap\ 349}# #{e\ 1610}#))
(begin
- (let ((#{t\ 1731}#
- (#{source-annotation\ 359}# #{e\ 1609}#)))
- (if #{t\ 1731}# #{t\ 1731}# #{s\ 1612}#)))
- #{rib\ 1613}#
+ (let ((#{t\ 1732}#
+ (#{source-annotation\ 360}# #{e\ 1610}#)))
+ (if #{t\ 1732}# #{t\ 1732}# #{s\ 1613}#)))
+ #{rib\ 1614}#
(begin
- (let ((#{t\ 1735}#
- (#{syntax-object-module\ 350}# #{e\ 1609}#)))
- (if #{t\ 1735}# #{t\ 1735}# #{mod\ 1614}#)))
- #{for-car?\ 1615}#)
- (if (self-evaluating? #{e\ 1609}#)
+ (let ((#{t\ 1736}#
+ (#{syntax-object-module\ 351}# #{e\ 1610}#)))
+ (if #{t\ 1736}# #{t\ 1736}# #{mod\ 1615}#)))
+ #{for-car?\ 1616}#)
+ (if (self-evaluating? #{e\ 1610}#)
(values
'constant
#f
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)
(values
'other
#f
- #{e\ 1609}#
- #{w\ 1611}#
- #{s\ 1612}#
- #{mod\ 1614}#)))))))
- (#{chi-top\ 458}#
- (lambda (#{e\ 1740}#
- #{r\ 1741}#
- #{w\ 1742}#
- #{m\ 1743}#
- #{esew\ 1744}#
- #{mod\ 1745}#)
+ #{e\ 1610}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1615}#)))))))
+ (#{chi-top\ 459}#
+ (lambda (#{e\ 1741}#
+ #{r\ 1742}#
+ #{w\ 1743}#
+ #{m\ 1744}#
+ #{esew\ 1745}#
+ #{mod\ 1746}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 456}#
- #{e\ 1740}#
- #{r\ 1741}#
- #{w\ 1742}#
- (#{source-annotation\ 359}# #{e\ 1740}#)
+ (#{syntax-type\ 457}#
+ #{e\ 1741}#
+ #{r\ 1742}#
+ #{w\ 1743}#
+ (#{source-annotation\ 360}# #{e\ 1741}#)
#f
- #{mod\ 1745}#
+ #{mod\ 1746}#
#f))
- (lambda (#{type\ 1766}#
- #{value\ 1767}#
- #{e\ 1768}#
- #{w\ 1769}#
- #{s\ 1770}#
- #{mod\ 1771}#)
- (if (eqv? #{type\ 1766}# (quote begin-form))
- (let ((#{tmp\ 1779}# #{e\ 1768}#))
- (let ((#{tmp\ 1780}#
- ($sc-dispatch #{tmp\ 1779}# (quote (_)))))
- (if #{tmp\ 1780}#
+ (lambda (#{type\ 1767}#
+ #{value\ 1768}#
+ #{e\ 1769}#
+ #{w\ 1770}#
+ #{s\ 1771}#
+ #{mod\ 1772}#)
+ (if (eqv? #{type\ 1767}# 'begin-form)
+ (let ((#{tmp\ 1780}# #{e\ 1769}#))
+ (let ((#{tmp\ 1781}# ($sc-dispatch #{tmp\ 1780}# '(_))))
+ (if #{tmp\ 1781}#
(@apply
- (lambda () (#{chi-void\ 474}#))
- #{tmp\ 1780}#)
- (let ((#{tmp\ 1781}#
+ (lambda () (#{chi-void\ 475}#))
+ #{tmp\ 1781}#)
+ (let ((#{tmp\ 1782}#
($sc-dispatch
- #{tmp\ 1779}#
+ #{tmp\ 1780}#
'(_ any . each-any))))
- (if #{tmp\ 1781}#
+ (if #{tmp\ 1782}#
(@apply
- (lambda (#{e1\ 1784}# #{e2\ 1785}#)
- (#{chi-top-sequence\ 450}#
- (cons #{e1\ 1784}# #{e2\ 1785}#)
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
- #{m\ 1743}#
- #{esew\ 1744}#
- #{mod\ 1771}#))
- #{tmp\ 1781}#)
+ (lambda (#{e1\ 1785}# #{e2\ 1786}#)
+ (#{chi-top-sequence\ 451}#
+ (cons #{e1\ 1785}# #{e2\ 1786}#)
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
+ #{m\ 1744}#
+ #{esew\ 1745}#
+ #{mod\ 1772}#))
+ #{tmp\ 1782}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1779}#))))))
- (if (eqv? #{type\ 1766}# (quote local-syntax-form))
- (#{chi-local-syntax\ 470}#
- #{value\ 1767}#
- #{e\ 1768}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
- #{mod\ 1771}#
- (lambda (#{body\ 1788}#
- #{r\ 1789}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{mod\ 1792}#)
- (#{chi-top-sequence\ 450}#
- #{body\ 1788}#
- #{r\ 1789}#
- #{w\ 1790}#
- #{s\ 1791}#
- #{m\ 1743}#
- #{esew\ 1744}#
- #{mod\ 1792}#)))
- (if (eqv? #{type\ 1766}# (quote eval-when-form))
- (let ((#{tmp\ 1799}# #{e\ 1768}#))
- (let ((#{tmp\ 1800}#
+ #{tmp\ 1780}#))))))
+ (if (eqv? #{type\ 1767}# 'local-syntax-form)
+ (#{chi-local-syntax\ 471}#
+ #{value\ 1768}#
+ #{e\ 1769}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
+ #{mod\ 1772}#
+ (lambda (#{body\ 1789}#
+ #{r\ 1790}#
+ #{w\ 1791}#
+ #{s\ 1792}#
+ #{mod\ 1793}#)
+ (#{chi-top-sequence\ 451}#
+ #{body\ 1789}#
+ #{r\ 1790}#
+ #{w\ 1791}#
+ #{s\ 1792}#
+ #{m\ 1744}#
+ #{esew\ 1745}#
+ #{mod\ 1793}#)))
+ (if (eqv? #{type\ 1767}# 'eval-when-form)
+ (let ((#{tmp\ 1800}# #{e\ 1769}#))
+ (let ((#{tmp\ 1801}#
($sc-dispatch
- #{tmp\ 1799}#
+ #{tmp\ 1800}#
'(_ each-any any . each-any))))
- (if #{tmp\ 1800}#
+ (if #{tmp\ 1801}#
(@apply
- (lambda (#{x\ 1804}# #{e1\ 1805}# #{e2\ 1806}#)
+ (lambda (#{x\ 1805}# #{e1\ 1806}# #{e2\ 1807}#)
(begin
- (let ((#{when-list\ 1809}#
- (#{chi-when-list\ 454}#
- #{e\ 1768}#
- #{x\ 1804}#
- #{w\ 1769}#))
- (#{body\ 1810}#
- (cons #{e1\ 1805}# #{e2\ 1806}#)))
- (if (eq? #{m\ 1743}# (quote e))
- (if (memq 'eval
- #{when-list\ 1809}#)
- (#{chi-top-sequence\ 450}#
- #{body\ 1810}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
+ (let ((#{when-list\ 1810}#
+ (#{chi-when-list\ 455}#
+ #{e\ 1769}#
+ #{x\ 1805}#
+ #{w\ 1770}#))
+ (#{body\ 1811}#
+ (cons #{e1\ 1806}# #{e2\ 1807}#)))
+ (if (eq? #{m\ 1744}# 'e)
+ (if (memq 'eval #{when-list\ 1810}#)
+ (#{chi-top-sequence\ 451}#
+ #{body\ 1811}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
(if (memq 'expand
- #{when-list\ 1809}#)
+ #{when-list\ 1810}#)
'c&e
'e)
'(eval)
- #{mod\ 1771}#)
+ #{mod\ 1772}#)
(begin
(if (memq 'expand
- #{when-list\ 1809}#)
- (#{top-level-eval-hook\ 289}#
- (#{chi-top-sequence\ 450}#
- #{body\ 1810}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
+ #{when-list\ 1810}#)
+ (#{top-level-eval-hook\ 290}#
+ (#{chi-top-sequence\ 451}#
+ #{body\ 1811}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
'e
'(eval)
- #{mod\ 1771}#)
- #{mod\ 1771}#))
- (#{chi-void\ 474}#)))
- (if (memq 'load
- #{when-list\ 1809}#)
+ #{mod\ 1772}#)
+ #{mod\ 1772}#))
+ (#{chi-void\ 475}#)))
+ (if (memq 'load #{when-list\ 1810}#)
(if (begin
- (let ((#{t\ 1819}#
+ (let ((#{t\ 1820}#
(memq 'compile
- #{when-list\
1809}#)))
- (if #{t\ 1819}#
- #{t\ 1819}#
+ #{when-list\
1810}#)))
+ (if #{t\ 1820}#
+ #{t\ 1820}#
(begin
- (let ((#{t\ 1822}#
+ (let ((#{t\ 1823}#
(memq 'expand
-
#{when-list\ 1809}#)))
- (if #{t\ 1822}#
- #{t\ 1822}#
- (if (eq? #{m\ 1743}#
+
#{when-list\ 1810}#)))
+ (if #{t\ 1823}#
+ #{t\ 1823}#
+ (if (eq? #{m\ 1744}#
'c&e)
(memq 'eval
- #{when-list\
1809}#)
+ #{when-list\
1810}#)
#f)))))))
- (#{chi-top-sequence\ 450}#
- #{body\ 1810}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
+ (#{chi-top-sequence\ 451}#
+ #{body\ 1811}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
'c&e
'(compile load)
- #{mod\ 1771}#)
- (if (if (eq? #{m\ 1743}# (quote c))
+ #{mod\ 1772}#)
+ (if (if (eq? #{m\ 1744}# 'c)
#t
- (eq? #{m\ 1743}# (quote c&e)))
- (#{chi-top-sequence\ 450}#
- #{body\ 1810}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
+ (eq? #{m\ 1744}# 'c&e))
+ (#{chi-top-sequence\ 451}#
+ #{body\ 1811}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
'c
'(load)
- #{mod\ 1771}#)
- (#{chi-void\ 474}#)))
+ #{mod\ 1772}#)
+ (#{chi-void\ 475}#)))
(if (begin
- (let ((#{t\ 1830}#
+ (let ((#{t\ 1831}#
(memq 'compile
- #{when-list\
1809}#)))
- (if #{t\ 1830}#
- #{t\ 1830}#
+ #{when-list\
1810}#)))
+ (if #{t\ 1831}#
+ #{t\ 1831}#
(begin
- (let ((#{t\ 1833}#
+ (let ((#{t\ 1834}#
(memq 'expand
-
#{when-list\ 1809}#)))
- (if #{t\ 1833}#
- #{t\ 1833}#
- (if (eq? #{m\ 1743}#
+
#{when-list\ 1810}#)))
+ (if #{t\ 1834}#
+ #{t\ 1834}#
+ (if (eq? #{m\ 1744}#
'c&e)
(memq 'eval
- #{when-list\
1809}#)
+ #{when-list\
1810}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 289}#
- (#{chi-top-sequence\ 450}#
- #{body\ 1810}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
+ (#{top-level-eval-hook\ 290}#
+ (#{chi-top-sequence\ 451}#
+ #{body\ 1811}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
'e
'(eval)
- #{mod\ 1771}#)
- #{mod\ 1771}#)
- (#{chi-void\ 474}#))
- (#{chi-void\ 474}#)))))))
- #{tmp\ 1800}#)
+ #{mod\ 1772}#)
+ #{mod\ 1772}#)
+ (#{chi-void\ 475}#))
+ (#{chi-void\ 475}#)))))))
+ #{tmp\ 1801}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1799}#))))
- (if (eqv? #{type\ 1766}# (quote define-syntax-form))
+ #{tmp\ 1800}#))))
+ (if (eqv? #{type\ 1767}# 'define-syntax-form)
(begin
- (let ((#{n\ 1841}#
- (#{id-var-name\ 432}#
- #{value\ 1767}#
- #{w\ 1769}#))
- (#{r\ 1842}#
- (#{macros-only-env\ 370}# #{r\ 1741}#)))
- (if (eqv? #{m\ 1743}# (quote c))
- (if (memq (quote compile) #{esew\ 1744}#)
+ (let ((#{n\ 1842}#
+ (#{id-var-name\ 433}#
+ #{value\ 1768}#
+ #{w\ 1770}#))
+ (#{r\ 1843}#
+ (#{macros-only-env\ 371}# #{r\ 1742}#)))
+ (if (eqv? #{m\ 1744}# 'c)
+ (if (memq 'compile #{esew\ 1745}#)
(begin
- (let ((#{e\ 1845}#
- (#{chi-install-global\ 452}#
- #{n\ 1841}#
- (#{chi\ 460}#
- #{e\ 1768}#
- #{r\ 1842}#
- #{w\ 1769}#
- #{mod\ 1771}#))))
+ (let ((#{e\ 1846}#
+ (#{chi-install-global\ 453}#
+ #{n\ 1842}#
+ (#{chi\ 461}#
+ #{e\ 1769}#
+ #{r\ 1843}#
+ #{w\ 1770}#
+ #{mod\ 1772}#))))
(begin
- (#{top-level-eval-hook\ 289}#
- #{e\ 1845}#
- #{mod\ 1771}#)
- (if (memq (quote load) #{esew\ 1744}#)
- #{e\ 1845}#
- (#{chi-void\ 474}#)))))
- (if (memq (quote load) #{esew\ 1744}#)
- (#{chi-install-global\ 452}#
- #{n\ 1841}#
- (#{chi\ 460}#
- #{e\ 1768}#
- #{r\ 1842}#
- #{w\ 1769}#
- #{mod\ 1771}#))
- (#{chi-void\ 474}#)))
- (if (eqv? #{m\ 1743}# (quote c&e))
+ (#{top-level-eval-hook\ 290}#
+ #{e\ 1846}#
+ #{mod\ 1772}#)
+ (if (memq 'load #{esew\ 1745}#)
+ #{e\ 1846}#
+ (#{chi-void\ 475}#)))))
+ (if (memq 'load #{esew\ 1745}#)
+ (#{chi-install-global\ 453}#
+ #{n\ 1842}#
+ (#{chi\ 461}#
+ #{e\ 1769}#
+ #{r\ 1843}#
+ #{w\ 1770}#
+ #{mod\ 1772}#))
+ (#{chi-void\ 475}#)))
+ (if (eqv? #{m\ 1744}# 'c&e)
(begin
- (let ((#{e\ 1848}#
- (#{chi-install-global\ 452}#
- #{n\ 1841}#
- (#{chi\ 460}#
- #{e\ 1768}#
- #{r\ 1842}#
- #{w\ 1769}#
- #{mod\ 1771}#))))
+ (let ((#{e\ 1849}#
+ (#{chi-install-global\ 453}#
+ #{n\ 1842}#
+ (#{chi\ 461}#
+ #{e\ 1769}#
+ #{r\ 1843}#
+ #{w\ 1770}#
+ #{mod\ 1772}#))))
(begin
- (#{top-level-eval-hook\ 289}#
- #{e\ 1848}#
- #{mod\ 1771}#)
- #{e\ 1848}#)))
+ (#{top-level-eval-hook\ 290}#
+ #{e\ 1849}#
+ #{mod\ 1772}#)
+ #{e\ 1849}#)))
(begin
- (if (memq (quote eval) #{esew\ 1744}#)
- (#{top-level-eval-hook\ 289}#
- (#{chi-install-global\ 452}#
- #{n\ 1841}#
- (#{chi\ 460}#
- #{e\ 1768}#
- #{r\ 1842}#
- #{w\ 1769}#
- #{mod\ 1771}#))
- #{mod\ 1771}#))
- (#{chi-void\ 474}#))))))
- (if (eqv? #{type\ 1766}# (quote define-form))
+ (if (memq 'eval #{esew\ 1745}#)
+ (#{top-level-eval-hook\ 290}#
+ (#{chi-install-global\ 453}#
+ #{n\ 1842}#
+ (#{chi\ 461}#
+ #{e\ 1769}#
+ #{r\ 1843}#
+ #{w\ 1770}#
+ #{mod\ 1772}#))
+ #{mod\ 1772}#))
+ (#{chi-void\ 475}#))))))
+ (if (eqv? #{type\ 1767}# 'define-form)
(begin
- (let ((#{n\ 1853}#
- (#{id-var-name\ 432}#
- #{value\ 1767}#
- #{w\ 1769}#)))
+ (let ((#{n\ 1854}#
+ (#{id-var-name\ 433}#
+ #{value\ 1768}#
+ #{w\ 1770}#)))
(begin
- (let ((#{type\ 1855}#
- (car (#{lookup\ 372}#
- #{n\ 1853}#
- #{r\ 1741}#
- #{mod\ 1771}#))))
- (if (if (eqv? #{type\ 1855}# (quote global))
+ (let ((#{type\ 1856}#
+ (car (#{lookup\ 373}#
+ #{n\ 1854}#
+ #{r\ 1742}#
+ #{mod\ 1772}#))))
+ (if (if (eqv? #{type\ 1856}# 'global)
#t
- (if (eqv? #{type\ 1855}# (quote core))
+ (if (eqv? #{type\ 1856}# 'core)
#t
- (if (eqv? #{type\ 1855}#
- 'macro)
+ (if (eqv? #{type\ 1856}# 'macro)
#t
- (eqv? #{type\ 1855}#
+ (eqv? #{type\ 1856}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 1743}# (quote c))
+ (if (if (if (eq? #{m\ 1744}# 'c)
#t
- (eq? #{m\ 1743}# (quote c&e)))
+ (eq? #{m\ 1744}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n\ 1853}#))
+ #{n\ 1854}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 1862}#
+ (let ((#{old\ 1863}#
(module-variable
(current-module)
- #{n\ 1853}#)))
+ #{n\ 1854}#)))
(module-define!
(current-module)
- #{n\ 1853}#
- (if (variable? #{old\ 1862}#)
- (variable-ref #{old\ 1862}#)
+ #{n\ 1854}#
+ (if (variable? #{old\ 1863}#)
+ (variable-ref #{old\ 1863}#)
#f)))))
(begin
- (let ((#{x\ 1865}#
- (#{build-global-definition\
320}#
- #{s\ 1770}#
- #{n\ 1853}#
- (#{chi\ 460}#
- #{e\ 1768}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{mod\ 1771}#))))
+ (let ((#{x\ 1866}#
+ (#{build-global-definition\
321}#
+ #{s\ 1771}#
+ #{n\ 1854}#
+ (#{chi\ 461}#
+ #{e\ 1769}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{mod\ 1772}#))))
(begin
- (if (eq? #{m\ 1743}# (quote c&e))
- (#{top-level-eval-hook\ 289}#
- #{x\ 1865}#
- #{mod\ 1771}#))
- #{x\ 1865}#))))
- (if (eqv? #{type\ 1855}#
+ (if (eq? #{m\ 1744}# 'c&e)
+ (#{top-level-eval-hook\ 290}#
+ #{x\ 1866}#
+ #{mod\ 1772}#))
+ #{x\ 1866}#))))
+ (if (eqv? #{type\ 1856}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 1768}#
- (#{wrap\ 444}#
- #{value\ 1767}#
- #{w\ 1769}#
- #{mod\ 1771}#))
+ #{e\ 1769}#
+ (#{wrap\ 445}#
+ #{value\ 1768}#
+ #{w\ 1770}#
+ #{mod\ 1772}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1768}#
- (#{wrap\ 444}#
- #{value\ 1767}#
- #{w\ 1769}#
- #{mod\ 1771}#))))))))
+ #{e\ 1769}#
+ (#{wrap\ 445}#
+ #{value\ 1768}#
+ #{w\ 1770}#
+ #{mod\ 1772}#))))))))
(begin
- (let ((#{x\ 1871}#
- (#{chi-expr\ 462}#
- #{type\ 1766}#
- #{value\ 1767}#
- #{e\ 1768}#
- #{r\ 1741}#
- #{w\ 1769}#
- #{s\ 1770}#
- #{mod\ 1771}#)))
+ (let ((#{x\ 1872}#
+ (#{chi-expr\ 463}#
+ #{type\ 1767}#
+ #{value\ 1768}#
+ #{e\ 1769}#
+ #{r\ 1742}#
+ #{w\ 1770}#
+ #{s\ 1771}#
+ #{mod\ 1772}#)))
(begin
- (if (eq? #{m\ 1743}# (quote c&e))
- (#{top-level-eval-hook\ 289}#
- #{x\ 1871}#
- #{mod\ 1771}#))
- #{x\ 1871}#))))))))))))
- (#{chi\ 460}#
- (lambda (#{e\ 1872}#
- #{r\ 1873}#
- #{w\ 1874}#
- #{mod\ 1875}#)
+ (if (eq? #{m\ 1744}# 'c&e)
+ (#{top-level-eval-hook\ 290}#
+ #{x\ 1872}#
+ #{mod\ 1772}#))
+ #{x\ 1872}#))))))))))))
+ (#{chi\ 461}#
+ (lambda (#{e\ 1873}#
+ #{r\ 1874}#
+ #{w\ 1875}#
+ #{mod\ 1876}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 456}#
- #{e\ 1872}#
- #{r\ 1873}#
- #{w\ 1874}#
- (#{source-annotation\ 359}# #{e\ 1872}#)
+ (#{syntax-type\ 457}#
+ #{e\ 1873}#
+ #{r\ 1874}#
+ #{w\ 1875}#
+ (#{source-annotation\ 360}# #{e\ 1873}#)
#f
- #{mod\ 1875}#
+ #{mod\ 1876}#
#f))
- (lambda (#{type\ 1880}#
- #{value\ 1881}#
- #{e\ 1882}#
- #{w\ 1883}#
- #{s\ 1884}#
- #{mod\ 1885}#)
- (#{chi-expr\ 462}#
- #{type\ 1880}#
- #{value\ 1881}#
- #{e\ 1882}#
- #{r\ 1873}#
- #{w\ 1883}#
- #{s\ 1884}#
- #{mod\ 1885}#)))))
- (#{chi-expr\ 462}#
- (lambda (#{type\ 1892}#
- #{value\ 1893}#
- #{e\ 1894}#
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#)
- (if (eqv? #{type\ 1892}# (quote lexical))
- (#{build-lexical-reference\ 310}#
+ (lambda (#{type\ 1881}#
+ #{value\ 1882}#
+ #{e\ 1883}#
+ #{w\ 1884}#
+ #{s\ 1885}#
+ #{mod\ 1886}#)
+ (#{chi-expr\ 463}#
+ #{type\ 1881}#
+ #{value\ 1882}#
+ #{e\ 1883}#
+ #{r\ 1874}#
+ #{w\ 1884}#
+ #{s\ 1885}#
+ #{mod\ 1886}#)))))
+ (#{chi-expr\ 463}#
+ (lambda (#{type\ 1893}#
+ #{value\ 1894}#
+ #{e\ 1895}#
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#)
+ (if (eqv? #{type\ 1893}# 'lexical)
+ (#{build-lexical-reference\ 311}#
'value
- #{s\ 1897}#
- #{e\ 1894}#
- #{value\ 1893}#)
- (if (if (eqv? #{type\ 1892}# (quote core))
+ #{s\ 1898}#
+ #{e\ 1895}#
+ #{value\ 1894}#)
+ (if (if (eqv? #{type\ 1893}# 'core)
#t
- (eqv? #{type\ 1892}# (quote core-form)))
- (#{value\ 1893}#
- #{e\ 1894}#
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#)
- (if (eqv? #{type\ 1892}# (quote module-ref))
+ (eqv? #{type\ 1893}# 'core-form))
+ (#{value\ 1894}#
+ #{e\ 1895}#
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#)
+ (if (eqv? #{type\ 1893}# 'module-ref)
(call-with-values
(lambda ()
- (#{value\ 1893}#
- #{e\ 1894}#
- #{r\ 1895}#
- #{w\ 1896}#))
- (lambda (#{e\ 1909}#
- #{r\ 1910}#
- #{w\ 1911}#
- #{s\ 1912}#
- #{mod\ 1913}#)
- (#{chi\ 460}#
- #{e\ 1909}#
- #{r\ 1910}#
- #{w\ 1911}#
- #{mod\ 1913}#)))
- (if (eqv? #{type\ 1892}# (quote lexical-call))
- (#{chi-application\ 464}#
+ (#{value\ 1894}#
+ #{e\ 1895}#
+ #{r\ 1896}#
+ #{w\ 1897}#))
+ (lambda (#{e\ 1910}#
+ #{r\ 1911}#
+ #{w\ 1912}#
+ #{s\ 1913}#
+ #{mod\ 1914}#)
+ (#{chi\ 461}#
+ #{e\ 1910}#
+ #{r\ 1911}#
+ #{w\ 1912}#
+ #{mod\ 1914}#)))
+ (if (eqv? #{type\ 1893}# 'lexical-call)
+ (#{chi-application\ 465}#
(begin
- (let ((#{id\ 1921}# (car #{e\ 1894}#)))
- (#{build-lexical-reference\ 310}#
+ (let ((#{id\ 1922}# (car #{e\ 1895}#)))
+ (#{build-lexical-reference\ 311}#
'fun
- (#{source-annotation\ 359}# #{id\ 1921}#)
- (if (#{syntax-object?\ 344}# #{id\ 1921}#)
- (syntax->datum #{id\ 1921}#)
- #{id\ 1921}#)
- #{value\ 1893}#)))
- #{e\ 1894}#
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#)
- (if (eqv? #{type\ 1892}# (quote global-call))
- (#{chi-application\ 464}#
- (#{build-global-reference\ 316}#
- (#{source-annotation\ 359}# (car #{e\ 1894}#))
- (if (#{syntax-object?\ 344}# #{value\ 1893}#)
- (#{syntax-object-expression\ 346}#
- #{value\ 1893}#)
- #{value\ 1893}#)
- (if (#{syntax-object?\ 344}# #{value\ 1893}#)
- (#{syntax-object-module\ 350}# #{value\ 1893}#)
- #{mod\ 1898}#))
- #{e\ 1894}#
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#)
- (if (eqv? #{type\ 1892}# (quote constant))
- (#{build-data\ 330}#
- #{s\ 1897}#
- (#{strip\ 486}#
- (#{source-wrap\ 446}#
- #{e\ 1894}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#)
+ (#{source-annotation\ 360}# #{id\ 1922}#)
+ (if (#{syntax-object?\ 345}# #{id\ 1922}#)
+ (syntax->datum #{id\ 1922}#)
+ #{id\ 1922}#)
+ #{value\ 1894}#)))
+ #{e\ 1895}#
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#)
+ (if (eqv? #{type\ 1893}# 'global-call)
+ (#{chi-application\ 465}#
+ (#{build-global-reference\ 317}#
+ (#{source-annotation\ 360}# (car #{e\ 1895}#))
+ (if (#{syntax-object?\ 345}# #{value\ 1894}#)
+ (#{syntax-object-expression\ 347}#
+ #{value\ 1894}#)
+ #{value\ 1894}#)
+ (if (#{syntax-object?\ 345}# #{value\ 1894}#)
+ (#{syntax-object-module\ 351}# #{value\ 1894}#)
+ #{mod\ 1899}#))
+ #{e\ 1895}#
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#)
+ (if (eqv? #{type\ 1893}# 'constant)
+ (#{build-data\ 331}#
+ #{s\ 1898}#
+ (#{strip\ 487}#
+ (#{source-wrap\ 447}#
+ #{e\ 1895}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#)
'(())))
- (if (eqv? #{type\ 1892}# (quote global))
- (#{build-global-reference\ 316}#
- #{s\ 1897}#
- #{value\ 1893}#
- #{mod\ 1898}#)
- (if (eqv? #{type\ 1892}# (quote call))
- (#{chi-application\ 464}#
- (#{chi\ 460}#
- (car #{e\ 1894}#)
- #{r\ 1895}#
- #{w\ 1896}#
- #{mod\ 1898}#)
- #{e\ 1894}#
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#)
- (if (eqv? #{type\ 1892}# (quote begin-form))
- (let ((#{tmp\ 1928}# #{e\ 1894}#))
- (let ((#{tmp\ 1929}#
+ (if (eqv? #{type\ 1893}# 'global)
+ (#{build-global-reference\ 317}#
+ #{s\ 1898}#
+ #{value\ 1894}#
+ #{mod\ 1899}#)
+ (if (eqv? #{type\ 1893}# 'call)
+ (#{chi-application\ 465}#
+ (#{chi\ 461}#
+ (car #{e\ 1895}#)
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{mod\ 1899}#)
+ #{e\ 1895}#
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#)
+ (if (eqv? #{type\ 1893}# 'begin-form)
+ (let ((#{tmp\ 1929}# #{e\ 1895}#))
+ (let ((#{tmp\ 1930}#
($sc-dispatch
- #{tmp\ 1928}#
+ #{tmp\ 1929}#
'(_ any . each-any))))
- (if #{tmp\ 1929}#
+ (if #{tmp\ 1930}#
(@apply
- (lambda (#{e1\ 1932}# #{e2\ 1933}#)
- (#{chi-sequence\ 448}#
- (cons #{e1\ 1932}# #{e2\ 1933}#)
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#))
- #{tmp\ 1929}#)
+ (lambda (#{e1\ 1933}# #{e2\ 1934}#)
+ (#{chi-sequence\ 449}#
+ (cons #{e1\ 1933}# #{e2\ 1934}#)
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#))
+ #{tmp\ 1930}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1928}#))))
- (if (eqv? #{type\ 1892}#
- 'local-syntax-form)
- (#{chi-local-syntax\ 470}#
- #{value\ 1893}#
- #{e\ 1894}#
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#
- #{chi-sequence\ 448}#)
- (if (eqv? #{type\ 1892}#
- 'eval-when-form)
- (let ((#{tmp\ 1937}# #{e\ 1894}#))
- (let ((#{tmp\ 1938}#
+ #{tmp\ 1929}#))))
+ (if (eqv? #{type\ 1893}# 'local-syntax-form)
+ (#{chi-local-syntax\ 471}#
+ #{value\ 1894}#
+ #{e\ 1895}#
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#
+ #{chi-sequence\ 449}#)
+ (if (eqv? #{type\ 1893}# 'eval-when-form)
+ (let ((#{tmp\ 1938}# #{e\ 1895}#))
+ (let ((#{tmp\ 1939}#
($sc-dispatch
- #{tmp\ 1937}#
+ #{tmp\ 1938}#
'(_ each-any any . each-any))))
- (if #{tmp\ 1938}#
+ (if #{tmp\ 1939}#
(@apply
- (lambda (#{x\ 1942}#
- #{e1\ 1943}#
- #{e2\ 1944}#)
+ (lambda (#{x\ 1943}#
+ #{e1\ 1944}#
+ #{e2\ 1945}#)
(begin
- (let ((#{when-list\ 1946}#
- (#{chi-when-list\ 454}#
- #{e\ 1894}#
- #{x\ 1942}#
- #{w\ 1896}#)))
+ (let ((#{when-list\ 1947}#
+ (#{chi-when-list\ 455}#
+ #{e\ 1895}#
+ #{x\ 1943}#
+ #{w\ 1897}#)))
(if (memq 'eval
- #{when-list\ 1946}#)
- (#{chi-sequence\ 448}#
- (cons #{e1\ 1943}#
- #{e2\ 1944}#)
- #{r\ 1895}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#)
- (#{chi-void\ 474}#)))))
- #{tmp\ 1938}#)
+ #{when-list\ 1947}#)
+ (#{chi-sequence\ 449}#
+ (cons #{e1\ 1944}#
+ #{e2\ 1945}#)
+ #{r\ 1896}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#)
+ (#{chi-void\ 475}#)))))
+ #{tmp\ 1939}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1937}#))))
- (if (if (eqv? #{type\ 1892}#
- 'define-form)
+ #{tmp\ 1938}#))))
+ (if (if (eqv? #{type\ 1893}# 'define-form)
#t
- (eqv? #{type\ 1892}#
+ (eqv? #{type\ 1893}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1894}#
- (#{wrap\ 444}#
- #{value\ 1893}#
- #{w\ 1896}#
- #{mod\ 1898}#))
- (if (eqv? #{type\ 1892}# (quote syntax))
+ #{e\ 1895}#
+ (#{wrap\ 445}#
+ #{value\ 1894}#
+ #{w\ 1897}#
+ #{mod\ 1899}#))
+ (if (eqv? #{type\ 1893}# 'syntax)
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 446}#
- #{e\ 1894}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#))
- (if (eqv? #{type\ 1892}#
+ (#{source-wrap\ 447}#
+ #{e\ 1895}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#))
+ (if (eqv? #{type\ 1893}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 446}#
- #{e\ 1894}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#))
+ (#{source-wrap\ 447}#
+ #{e\ 1895}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 446}#
- #{e\ 1894}#
- #{w\ 1896}#
- #{s\ 1897}#
- #{mod\ 1898}#))))))))))))))))))
- (#{chi-application\ 464}#
- (lambda (#{x\ 1953}#
- #{e\ 1954}#
- #{r\ 1955}#
- #{w\ 1956}#
- #{s\ 1957}#
- #{mod\ 1958}#)
- (let ((#{tmp\ 1965}# #{e\ 1954}#))
- (let ((#{tmp\ 1966}#
- ($sc-dispatch
- #{tmp\ 1965}#
- '(any . each-any))))
- (if #{tmp\ 1966}#
+ (#{source-wrap\ 447}#
+ #{e\ 1895}#
+ #{w\ 1897}#
+ #{s\ 1898}#
+ #{mod\ 1899}#))))))))))))))))))
+ (#{chi-application\ 465}#
+ (lambda (#{x\ 1954}#
+ #{e\ 1955}#
+ #{r\ 1956}#
+ #{w\ 1957}#
+ #{s\ 1958}#
+ #{mod\ 1959}#)
+ (let ((#{tmp\ 1966}# #{e\ 1955}#))
+ (let ((#{tmp\ 1967}#
+ ($sc-dispatch #{tmp\ 1966}# '(any . each-any))))
+ (if #{tmp\ 1967}#
(@apply
- (lambda (#{e0\ 1969}# #{e1\ 1970}#)
- (#{build-application\ 304}#
- #{s\ 1957}#
- #{x\ 1953}#
- (map (lambda (#{e\ 1971}#)
- (#{chi\ 460}#
- #{e\ 1971}#
- #{r\ 1955}#
- #{w\ 1956}#
- #{mod\ 1958}#))
- #{e1\ 1970}#)))
- #{tmp\ 1966}#)
+ (lambda (#{e0\ 1970}# #{e1\ 1971}#)
+ (#{build-application\ 305}#
+ #{s\ 1958}#
+ #{x\ 1954}#
+ (map (lambda (#{e\ 1972}#)
+ (#{chi\ 461}#
+ #{e\ 1972}#
+ #{r\ 1956}#
+ #{w\ 1957}#
+ #{mod\ 1959}#))
+ #{e1\ 1971}#)))
+ #{tmp\ 1967}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1965}#))))))
- (#{chi-macro\ 466}#
- (lambda (#{p\ 1974}#
- #{e\ 1975}#
- #{r\ 1976}#
- #{w\ 1977}#
- #{s\ 1978}#
- #{rib\ 1979}#
- #{mod\ 1980}#)
+ #{tmp\ 1966}#))))))
+ (#{chi-macro\ 467}#
+ (lambda (#{p\ 1975}#
+ #{e\ 1976}#
+ #{r\ 1977}#
+ #{w\ 1978}#
+ #{s\ 1979}#
+ #{rib\ 1980}#
+ #{mod\ 1981}#)
(letrec*
- ((#{rebuild-macro-output\ 1989}#
- (lambda (#{x\ 1990}# #{m\ 1991}#)
- (if (pair? #{x\ 1990}#)
- (#{decorate-source\ 298}#
- (cons (#{rebuild-macro-output\ 1989}#
- (car #{x\ 1990}#)
- #{m\ 1991}#)
- (#{rebuild-macro-output\ 1989}#
- (cdr #{x\ 1990}#)
- #{m\ 1991}#))
- #{s\ 1978}#)
- (if (#{syntax-object?\ 344}# #{x\ 1990}#)
+ ((#{rebuild-macro-output\ 1990}#
+ (lambda (#{x\ 1991}# #{m\ 1992}#)
+ (if (pair? #{x\ 1991}#)
+ (#{decorate-source\ 299}#
+ (cons (#{rebuild-macro-output\ 1990}#
+ (car #{x\ 1991}#)
+ #{m\ 1992}#)
+ (#{rebuild-macro-output\ 1990}#
+ (cdr #{x\ 1991}#)
+ #{m\ 1992}#))
+ #{s\ 1979}#)
+ (if (#{syntax-object?\ 345}# #{x\ 1991}#)
(begin
- (let ((#{w\ 1999}#
- (#{syntax-object-wrap\ 348}# #{x\ 1990}#)))
+ (let ((#{w\ 2000}#
+ (#{syntax-object-wrap\ 349}# #{x\ 1991}#)))
(begin
- (let ((#{ms\ 2002}# (car #{w\ 1999}#))
- (#{s\ 2003}# (cdr #{w\ 1999}#)))
- (if (if (pair? #{ms\ 2002}#)
- (eq? (car #{ms\ 2002}#) #f)
+ (let ((#{ms\ 2003}# (car #{w\ 2000}#))
+ (#{s\ 2004}# (cdr #{w\ 2000}#)))
+ (if (if (pair? #{ms\ 2003}#)
+ (eq? (car #{ms\ 2003}#) #f)
#f)
- (#{make-syntax-object\ 342}#
- (#{syntax-object-expression\ 346}#
- #{x\ 1990}#)
- (cons (cdr #{ms\ 2002}#)
- (if #{rib\ 1979}#
- (cons #{rib\ 1979}#
- (cdr #{s\ 2003}#))
- (cdr #{s\ 2003}#)))
- (#{syntax-object-module\ 350}#
- #{x\ 1990}#))
- (#{make-syntax-object\ 342}#
- (#{decorate-source\ 298}#
- (#{syntax-object-expression\ 346}#
- #{x\ 1990}#)
- #{s\ 2003}#)
- (cons (cons #{m\ 1991}# #{ms\ 2002}#)
- (if #{rib\ 1979}#
- (cons #{rib\ 1979}#
- (cons 'shift
- #{s\ 2003}#))
- (cons (quote shift) #{s\ 2003}#)))
- (#{syntax-object-module\ 350}#
- #{x\ 1990}#)))))))
- (if (vector? #{x\ 1990}#)
+ (#{make-syntax-object\ 343}#
+ (#{syntax-object-expression\ 347}#
+ #{x\ 1991}#)
+ (cons (cdr #{ms\ 2003}#)
+ (if #{rib\ 1980}#
+ (cons #{rib\ 1980}#
+ (cdr #{s\ 2004}#))
+ (cdr #{s\ 2004}#)))
+ (#{syntax-object-module\ 351}#
+ #{x\ 1991}#))
+ (#{make-syntax-object\ 343}#
+ (#{decorate-source\ 299}#
+ (#{syntax-object-expression\ 347}#
+ #{x\ 1991}#)
+ #{s\ 2004}#)
+ (cons (cons #{m\ 1992}# #{ms\ 2003}#)
+ (if #{rib\ 1980}#
+ (cons #{rib\ 1980}#
+ (cons 'shift #{s\ 2004}#))
+ (cons 'shift #{s\ 2004}#)))
+ (#{syntax-object-module\ 351}#
+ #{x\ 1991}#)))))))
+ (if (vector? #{x\ 1991}#)
(begin
- (let ((#{n\ 2015}# (vector-length #{x\ 1990}#)))
+ (let ((#{n\ 2016}# (vector-length #{x\ 1991}#)))
(begin
- (let ((#{v\ 2017}#
- (#{decorate-source\ 298}#
- (make-vector #{n\ 2015}#)
- #{x\ 1990}#)))
+ (let ((#{v\ 2018}#
+ (#{decorate-source\ 299}#
+ (make-vector #{n\ 2016}#)
+ #{x\ 1991}#)))
(letrec*
- ((#{loop\ 2020}#
- (lambda (#{i\ 2021}#)
- (if (#{fx=\ 285}#
- #{i\ 2021}#
- #{n\ 2015}#)
- (begin (if #f #f) #{v\ 2017}#)
+ ((#{loop\ 2021}#
+ (lambda (#{i\ 2022}#)
+ (if (#{fx=\ 286}#
+ #{i\ 2022}#
+ #{n\ 2016}#)
+ (begin (if #f #f) #{v\ 2018}#)
(begin
(vector-set!
- #{v\ 2017}#
- #{i\ 2021}#
- (#{rebuild-macro-output\ 1989}#
+ #{v\ 2018}#
+ #{i\ 2022}#
+ (#{rebuild-macro-output\ 1990}#
(vector-ref
- #{x\ 1990}#
- #{i\ 2021}#)
- #{m\ 1991}#))
- (#{loop\ 2020}#
- (#{fx+\ 281}#
- #{i\ 2021}#
+ #{x\ 1991}#
+ #{i\ 2022}#)
+ #{m\ 1992}#))
+ (#{loop\ 2021}#
+ (#{fx+\ 282}#
+ #{i\ 2022}#
1)))))))
- (begin (#{loop\ 2020}# 0)))))))
- (if (symbol? #{x\ 1990}#)
+ (begin (#{loop\ 2021}# 0)))))))
+ (if (symbol? #{x\ 1991}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 446}#
- #{e\ 1975}#
- #{w\ 1977}#
- (cdr #{w\ 1977}#)
- #{mod\ 1980}#)
- #{x\ 1990}#)
- (#{decorate-source\ 298}#
- #{x\ 1990}#
- #{s\ 1978}#))))))))
+ (#{source-wrap\ 447}#
+ #{e\ 1976}#
+ #{w\ 1978}#
+ (cdr #{w\ 1978}#)
+ #{mod\ 1981}#)
+ #{x\ 1991}#)
+ (#{decorate-source\ 299}#
+ #{x\ 1991}#
+ #{s\ 1979}#))))))))
(begin
- (#{rebuild-macro-output\ 1989}#
- (#{p\ 1974}#
- (#{source-wrap\ 446}#
- #{e\ 1975}#
- (#{anti-mark\ 416}# #{w\ 1977}#)
- #{s\ 1978}#
- #{mod\ 1980}#))
+ (#{rebuild-macro-output\ 1990}#
+ (#{p\ 1975}#
+ (#{source-wrap\ 447}#
+ #{e\ 1976}#
+ (#{anti-mark\ 417}# #{w\ 1978}#)
+ #{s\ 1979}#
+ #{mod\ 1981}#))
(gensym "m"))))))
- (#{chi-body\ 468}#
- (lambda (#{body\ 2029}#
- #{outer-form\ 2030}#
- #{r\ 2031}#
- #{w\ 2032}#
- #{mod\ 2033}#)
+ (#{chi-body\ 469}#
+ (lambda (#{body\ 2030}#
+ #{outer-form\ 2031}#
+ #{r\ 2032}#
+ #{w\ 2033}#
+ #{mod\ 2034}#)
(begin
- (let ((#{r\ 2041}#
- (cons '("placeholder" placeholder)
- #{r\ 2031}#)))
+ (let ((#{r\ 2042}#
+ (cons '("placeholder" placeholder) #{r\ 2032}#)))
(begin
- (let ((#{ribcage\ 2043}#
- (#{make-ribcage\ 396}#
- '()
- '()
- '())))
+ (let ((#{ribcage\ 2044}#
+ (#{make-ribcage\ 397}# '() '() '())))
(begin
- (let ((#{w\ 2046}#
- (cons (car #{w\ 2032}#)
- (cons #{ribcage\ 2043}#
- (cdr #{w\ 2032}#)))))
+ (let ((#{w\ 2047}#
+ (cons (car #{w\ 2033}#)
+ (cons #{ribcage\ 2044}#
+ (cdr #{w\ 2033}#)))))
(letrec*
- ((#{parse\ 2058}#
- (lambda (#{body\ 2059}#
- #{ids\ 2060}#
- #{labels\ 2061}#
- #{var-ids\ 2062}#
- #{vars\ 2063}#
- #{vals\ 2064}#
- #{bindings\ 2065}#)
- (if (null? #{body\ 2059}#)
+ ((#{parse\ 2059}#
+ (lambda (#{body\ 2060}#
+ #{ids\ 2061}#
+ #{labels\ 2062}#
+ #{var-ids\ 2063}#
+ #{vars\ 2064}#
+ #{vals\ 2065}#
+ #{bindings\ 2066}#)
+ (if (null? #{body\ 2060}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 2030}#)
+ #{outer-form\ 2031}#)
(begin
- (let ((#{e\ 2070}#
- (cdr (car #{body\ 2059}#)))
- (#{er\ 2071}#
- (car (car #{body\ 2059}#))))
+ (let ((#{e\ 2071}#
+ (cdr (car #{body\ 2060}#)))
+ (#{er\ 2072}#
+ (car (car #{body\ 2060}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 456}#
- #{e\ 2070}#
- #{er\ 2071}#
+ (#{syntax-type\ 457}#
+ #{e\ 2071}#
+ #{er\ 2072}#
'(())
- (#{source-annotation\ 359}#
- #{er\ 2071}#)
- #{ribcage\ 2043}#
- #{mod\ 2033}#
+ (#{source-annotation\ 360}#
+ #{er\ 2072}#)
+ #{ribcage\ 2044}#
+ #{mod\ 2034}#
#f))
- (lambda (#{type\ 2073}#
- #{value\ 2074}#
- #{e\ 2075}#
- #{w\ 2076}#
- #{s\ 2077}#
- #{mod\ 2078}#)
- (if (eqv? #{type\ 2073}#
+ (lambda (#{type\ 2074}#
+ #{value\ 2075}#
+ #{e\ 2076}#
+ #{w\ 2077}#
+ #{s\ 2078}#
+ #{mod\ 2079}#)
+ (if (eqv? #{type\ 2074}#
'define-form)
(begin
- (let ((#{id\ 2088}#
- (#{wrap\ 444}#
- #{value\ 2074}#
- #{w\ 2076}#
- #{mod\ 2078}#))
- (#{label\ 2089}#
- (#{gen-label\ 391}#)))
+ (let ((#{id\ 2089}#
+ (#{wrap\ 445}#
+ #{value\ 2075}#
+ #{w\ 2077}#
+ #{mod\ 2079}#))
+ (#{label\ 2090}#
+ (#{gen-label\ 392}#)))
(begin
- (let ((#{var\ 2091}#
- (#{gen-var\ 488}#
- #{id\ 2088}#)))
+ (let ((#{var\ 2092}#
+ (#{gen-var\ 489}#
+ #{id\ 2089}#)))
(begin
- (#{extend-ribcage!\ 420}#
- #{ribcage\ 2043}#
- #{id\ 2088}#
- #{label\ 2089}#)
- (#{parse\ 2058}#
- (cdr #{body\ 2059}#)
- (cons #{id\ 2088}#
- #{ids\ 2060}#)
- (cons #{label\ 2089}#
- #{labels\ 2061}#)
- (cons #{id\ 2088}#
- #{var-ids\
2062}#)
- (cons #{var\ 2091}#
- #{vars\ 2063}#)
- (cons (cons #{er\
2071}#
- (#{wrap\
444}#
- #{e\
2075}#
- #{w\
2076}#
- #{mod\
2078}#))
- #{vals\ 2064}#)
+ (#{extend-ribcage!\ 421}#
+ #{ribcage\ 2044}#
+ #{id\ 2089}#
+ #{label\ 2090}#)
+ (#{parse\ 2059}#
+ (cdr #{body\ 2060}#)
+ (cons #{id\ 2089}#
+ #{ids\ 2061}#)
+ (cons #{label\ 2090}#
+ #{labels\ 2062}#)
+ (cons #{id\ 2089}#
+ #{var-ids\
2063}#)
+ (cons #{var\ 2092}#
+ #{vars\ 2064}#)
+ (cons (cons #{er\
2072}#
+ (#{wrap\
445}#
+ #{e\
2076}#
+ #{w\
2077}#
+ #{mod\
2079}#))
+ #{vals\ 2065}#)
(cons (cons 'lexical
- #{var\
2091}#)
- #{bindings\
2065}#)))))))
- (if (eqv? #{type\ 2073}#
+ #{var\
2092}#)
+ #{bindings\
2066}#)))))))
+ (if (eqv? #{type\ 2074}#
'define-syntax-form)
(begin
- (let ((#{id\ 2096}#
- (#{wrap\ 444}#
- #{value\ 2074}#
- #{w\ 2076}#
- #{mod\ 2078}#))
- (#{label\ 2097}#
- (#{gen-label\ 391}#)))
+ (let ((#{id\ 2097}#
+ (#{wrap\ 445}#
+ #{value\ 2075}#
+ #{w\ 2077}#
+ #{mod\ 2079}#))
+ (#{label\ 2098}#
+ (#{gen-label\ 392}#)))
(begin
- (#{extend-ribcage!\ 420}#
- #{ribcage\ 2043}#
- #{id\ 2096}#
- #{label\ 2097}#)
- (#{parse\ 2058}#
- (cdr #{body\ 2059}#)
- (cons #{id\ 2096}#
- #{ids\ 2060}#)
- (cons #{label\ 2097}#
- #{labels\ 2061}#)
- #{var-ids\ 2062}#
- #{vars\ 2063}#
- #{vals\ 2064}#
+ (#{extend-ribcage!\ 421}#
+ #{ribcage\ 2044}#
+ #{id\ 2097}#
+ #{label\ 2098}#)
+ (#{parse\ 2059}#
+ (cdr #{body\ 2060}#)
+ (cons #{id\ 2097}#
+ #{ids\ 2061}#)
+ (cons #{label\ 2098}#
+ #{labels\ 2062}#)
+ #{var-ids\ 2063}#
+ #{vars\ 2064}#
+ #{vals\ 2065}#
(cons (cons 'macro
- (cons #{er\
2071}#
-
(#{wrap\ 444}#
- #{e\
2075}#
- #{w\
2076}#
-
#{mod\ 2078}#)))
- #{bindings\
2065}#)))))
- (if (eqv? #{type\ 2073}#
+ (cons #{er\
2072}#
+
(#{wrap\ 445}#
+ #{e\
2076}#
+ #{w\
2077}#
+
#{mod\ 2079}#)))
+ #{bindings\
2066}#)))))
+ (if (eqv? #{type\ 2074}#
'begin-form)
- (let ((#{tmp\ 2100}#
- #{e\ 2075}#))
- (let ((#{tmp\ 2101}#
+ (let ((#{tmp\ 2101}#
+ #{e\ 2076}#))
+ (let ((#{tmp\ 2102}#
($sc-dispatch
- #{tmp\ 2100}#
+ #{tmp\ 2101}#
'(_ . each-any))))
- (if #{tmp\ 2101}#
+ (if #{tmp\ 2102}#
(@apply
- (lambda (#{e1\ 2103}#)
- (#{parse\ 2058}#
+ (lambda (#{e1\ 2104}#)
+ (#{parse\ 2059}#
(letrec*
- ((#{f\ 2106}#
- (lambda
(#{forms\ 2107}#)
- (if (null?
#{forms\ 2107}#)
- (cdr
#{body\ 2059}#)
- (cons
(cons #{er\ 2071}#
-
(#{wrap\ 444}#
-
(car #{forms\ 2107}#)
-
#{w\ 2076}#
-
#{mod\ 2078}#))
-
(#{f\ 2106}#
-
(cdr #{forms\ 2107}#)))))))
+ ((#{f\ 2107}#
+ (lambda
(#{forms\ 2108}#)
+ (if (null?
#{forms\ 2108}#)
+ (cdr
#{body\ 2060}#)
+ (cons
(cons #{er\ 2072}#
+
(#{wrap\ 445}#
+
(car #{forms\ 2108}#)
+
#{w\ 2077}#
+
#{mod\ 2079}#))
+
(#{f\ 2107}#
+
(cdr #{forms\ 2108}#)))))))
(begin
- (#{f\ 2106}#
- #{e1\
2103}#)))
- #{ids\ 2060}#
- #{labels\ 2061}#
- #{var-ids\ 2062}#
- #{vars\ 2063}#
- #{vals\ 2064}#
- #{bindings\
2065}#))
- #{tmp\ 2101}#)
+ (#{f\ 2107}#
+ #{e1\
2104}#)))
+ #{ids\ 2061}#
+ #{labels\ 2062}#
+ #{var-ids\ 2063}#
+ #{vars\ 2064}#
+ #{vals\ 2065}#
+ #{bindings\
2066}#))
+ #{tmp\ 2102}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 2100}#))))
- (if (eqv? #{type\ 2073}#
+ #{tmp\ 2101}#))))
+ (if (eqv? #{type\ 2074}#
'local-syntax-form)
- (#{chi-local-syntax\ 470}#
- #{value\ 2074}#
- #{e\ 2075}#
- #{er\ 2071}#
- #{w\ 2076}#
- #{s\ 2077}#
- #{mod\ 2078}#
- (lambda (#{forms\ 2110}#
- #{er\ 2111}#
- #{w\ 2112}#
- #{s\ 2113}#
- #{mod\ 2114}#)
- (#{parse\ 2058}#
+ (#{chi-local-syntax\ 471}#
+ #{value\ 2075}#
+ #{e\ 2076}#
+ #{er\ 2072}#
+ #{w\ 2077}#
+ #{s\ 2078}#
+ #{mod\ 2079}#
+ (lambda (#{forms\ 2111}#
+ #{er\ 2112}#
+ #{w\ 2113}#
+ #{s\ 2114}#
+ #{mod\ 2115}#)
+ (#{parse\ 2059}#
(letrec*
- ((#{f\ 2122}#
- (lambda (#{forms\
2123}#)
- (if (null?
#{forms\ 2123}#)
- (cdr #{body\
2059}#)
- (cons (cons
#{er\ 2111}#
-
(#{wrap\ 444}#
-
(car #{forms\ 2123}#)
-
#{w\ 2112}#
-
#{mod\ 2114}#))
- (#{f\
2122}#
- (cdr
#{forms\ 2123}#)))))))
+ ((#{f\ 2123}#
+ (lambda (#{forms\
2124}#)
+ (if (null?
#{forms\ 2124}#)
+ (cdr #{body\
2060}#)
+ (cons (cons
#{er\ 2112}#
+
(#{wrap\ 445}#
+
(car #{forms\ 2124}#)
+
#{w\ 2113}#
+
#{mod\ 2115}#))
+ (#{f\
2123}#
+ (cdr
#{forms\ 2124}#)))))))
(begin
- (#{f\ 2122}#
- #{forms\
2110}#)))
- #{ids\ 2060}#
- #{labels\ 2061}#
- #{var-ids\ 2062}#
- #{vars\ 2063}#
- #{vals\ 2064}#
- #{bindings\ 2065}#)))
- (if (null? #{ids\ 2060}#)
- (#{build-sequence\ 332}#
+ (#{f\ 2123}#
+ #{forms\
2111}#)))
+ #{ids\ 2061}#
+ #{labels\ 2062}#
+ #{var-ids\ 2063}#
+ #{vars\ 2064}#
+ #{vals\ 2065}#
+ #{bindings\ 2066}#)))
+ (if (null? #{ids\ 2061}#)
+ (#{build-sequence\ 333}#
#f
- (map (lambda (#{x\
2126}#)
- (#{chi\ 460}#
- (cdr #{x\
2126}#)
- (car #{x\
2126}#)
+ (map (lambda (#{x\
2127}#)
+ (#{chi\ 461}#
+ (cdr #{x\
2127}#)
+ (car #{x\
2127}#)
'(())
- #{mod\ 2078}#))
- (cons (cons #{er\
2071}#
-
(#{source-wrap\ 446}#
- #{e\
2075}#
- #{w\
2076}#
- #{s\
2077}#
-
#{mod\ 2078}#))
- (cdr #{body\
2059}#))))
+ #{mod\ 2079}#))
+ (cons (cons #{er\
2072}#
+
(#{source-wrap\ 447}#
+ #{e\
2076}#
+ #{w\
2077}#
+ #{s\
2078}#
+
#{mod\ 2079}#))
+ (cdr #{body\
2060}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 438}#
- #{ids\
2060}#))
+ (if (not
(#{valid-bound-ids?\ 439}#
+ #{ids\
2061}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
2030}#))
+ #{outer-form\
2031}#))
(letrec*
- ((#{loop\ 2133}#
- (lambda (#{bs\
2134}#
-
#{er-cache\ 2135}#
- #{r-cache\
2136}#)
- (if (not (null?
#{bs\ 2134}#))
+ ((#{loop\ 2134}#
+ (lambda (#{bs\
2135}#
+
#{er-cache\ 2136}#
+ #{r-cache\
2137}#)
+ (if (not (null?
#{bs\ 2135}#))
(begin
- (let ((#{b\
2139}#
- (car
#{bs\ 2134}#)))
- (if (eq?
(car #{b\ 2139}#)
+ (let ((#{b\
2140}#
+ (car
#{bs\ 2135}#)))
+ (if (eq?
(car #{b\ 2140}#)
'macro)
(begin
- (let
((#{er\ 2142}#
-
(car (cdr #{b\ 2139}#))))
+ (let
((#{er\ 2143}#
+
(car (cdr #{b\ 2140}#))))
(begin
-
(let ((#{r-cache\ 2144}#
-
(if (eq? #{er\ 2142}#
-
#{er-cache\ 2135}#)
-
#{r-cache\ 2136}#
-
(#{macros-only-env\ 370}#
-
#{er\ 2142}#))))
+
(let ((#{r-cache\ 2145}#
+
(if (eq? #{er\ 2143}#
+
#{er-cache\ 2136}#)
+
#{r-cache\ 2137}#
+
(#{macros-only-env\ 371}#
+
#{er\ 2143}#))))
(begin
(set-cdr!
-
#{b\ 2139}#
-
(#{eval-local-transformer\ 472}#
-
(#{chi\ 460}#
-
(cdr (cdr #{b\ 2139}#))
-
#{r-cache\ 2144}#
+
#{b\ 2140}#
+
(#{eval-local-transformer\ 473}#
+
(#{chi\ 461}#
+
(cdr (cdr #{b\ 2140}#))
+
#{r-cache\ 2145}#
'(())
-
#{mod\ 2078}#)
-
#{mod\ 2078}#))
-
(#{loop\ 2133}#
-
(cdr #{bs\ 2134}#)
-
#{er\ 2142}#
-
#{r-cache\ 2144}#))))))
- (#{loop\
2133}#
- (cdr
#{bs\ 2134}#)
-
#{er-cache\ 2135}#
-
#{r-cache\ 2136}#))))))))
+
#{mod\ 2079}#)
+
#{mod\ 2079}#))
+
(#{loop\ 2134}#
+
(cdr #{bs\ 2135}#)
+
#{er\ 2143}#
+
#{r-cache\ 2145}#))))))
+ (#{loop\
2134}#
+ (cdr
#{bs\ 2135}#)
+
#{er-cache\ 2136}#
+
#{r-cache\ 2137}#))))))))
(begin
- (#{loop\ 2133}#
- #{bindings\ 2065}#
+ (#{loop\ 2134}#
+ #{bindings\ 2066}#
#f
#f)))
(set-cdr!
- #{r\ 2041}#
- (#{extend-env\ 366}#
- #{labels\ 2061}#
- #{bindings\ 2065}#
- (cdr #{r\ 2041}#)))
- (#{build-letrec\ 338}#
+ #{r\ 2042}#
+ (#{extend-env\ 367}#
+ #{labels\ 2062}#
+ #{bindings\ 2066}#
+ (cdr #{r\ 2042}#)))
+ (#{build-letrec\ 339}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\
2062}#))
+ #{var-ids\
2063}#))
(reverse
- #{vars\ 2063}#)
- (map (lambda (#{x\
2147}#)
- (#{chi\ 460}#
- (cdr #{x\
2147}#)
- (car #{x\
2147}#)
+ #{vars\ 2064}#)
+ (map (lambda (#{x\
2148}#)
+ (#{chi\ 461}#
+ (cdr #{x\
2148}#)
+ (car #{x\
2148}#)
'(())
- #{mod\
2078}#))
+ #{mod\
2079}#))
(reverse
- #{vals\ 2064}#))
- (#{build-sequence\
332}#
+ #{vals\ 2065}#))
+ (#{build-sequence\
333}#
#f
- (map (lambda (#{x\
2151}#)
- (#{chi\ 460}#
- (cdr #{x\
2151}#)
- (car #{x\
2151}#)
+ (map (lambda (#{x\
2152}#)
+ (#{chi\ 461}#
+ (cdr #{x\
2152}#)
+ (car #{x\
2152}#)
'(())
- #{mod\
2078}#))
- (cons (cons
#{er\ 2071}#
-
(#{source-wrap\ 446}#
-
#{e\ 2075}#
-
#{w\ 2076}#
-
#{s\ 2077}#
-
#{mod\ 2078}#))
- (cdr
#{body\ 2059}#)))))))))))))))))))
+ #{mod\
2079}#))
+ (cons (cons
#{er\ 2072}#
+
(#{source-wrap\ 447}#
+
#{e\ 2076}#
+
#{w\ 2077}#
+
#{s\ 2078}#
+
#{mod\ 2079}#))
+ (cdr
#{body\ 2060}#)))))))))))))))))))
(begin
- (#{parse\ 2058}#
- (map (lambda (#{x\ 2066}#)
- (cons #{r\ 2041}#
- (#{wrap\ 444}#
- #{x\ 2066}#
- #{w\ 2046}#
- #{mod\ 2033}#)))
- #{body\ 2029}#)
+ (#{parse\ 2059}#
+ (map (lambda (#{x\ 2067}#)
+ (cons #{r\ 2042}#
+ (#{wrap\ 445}#
+ #{x\ 2067}#
+ #{w\ 2047}#
+ #{mod\ 2034}#)))
+ #{body\ 2030}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 470}#
- (lambda (#{rec?\ 2154}#
- #{e\ 2155}#
- #{r\ 2156}#
- #{w\ 2157}#
- #{s\ 2158}#
- #{mod\ 2159}#
- #{k\ 2160}#)
- (let ((#{tmp\ 2168}# #{e\ 2155}#))
- (let ((#{tmp\ 2169}#
+ (#{chi-local-syntax\ 471}#
+ (lambda (#{rec?\ 2155}#
+ #{e\ 2156}#
+ #{r\ 2157}#
+ #{w\ 2158}#
+ #{s\ 2159}#
+ #{mod\ 2160}#
+ #{k\ 2161}#)
+ (let ((#{tmp\ 2169}# #{e\ 2156}#))
+ (let ((#{tmp\ 2170}#
($sc-dispatch
- #{tmp\ 2168}#
+ #{tmp\ 2169}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 2169}#
+ (if #{tmp\ 2170}#
(@apply
- (lambda (#{id\ 2174}#
- #{val\ 2175}#
- #{e1\ 2176}#
- #{e2\ 2177}#)
+ (lambda (#{id\ 2175}#
+ #{val\ 2176}#
+ #{e1\ 2177}#
+ #{e2\ 2178}#)
(begin
- (let ((#{ids\ 2179}# #{id\ 2174}#))
- (if (not (#{valid-bound-ids?\ 438}# #{ids\ 2179}#))
+ (let ((#{ids\ 2180}# #{id\ 2175}#))
+ (if (not (#{valid-bound-ids?\ 439}# #{ids\ 2180}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 2155}#)
+ #{e\ 2156}#)
(begin
- (let ((#{labels\ 2182}#
- (#{gen-labels\ 393}# #{ids\ 2179}#)))
+ (let ((#{labels\ 2183}#
+ (#{gen-labels\ 394}# #{ids\ 2180}#)))
(begin
- (let ((#{new-w\ 2184}#
- (#{make-binding-wrap\ 422}#
- #{ids\ 2179}#
- #{labels\ 2182}#
- #{w\ 2157}#)))
- (#{k\ 2160}#
- (cons #{e1\ 2176}# #{e2\ 2177}#)
- (#{extend-env\ 366}#
- #{labels\ 2182}#
+ (let ((#{new-w\ 2185}#
+ (#{make-binding-wrap\ 423}#
+ #{ids\ 2180}#
+ #{labels\ 2183}#
+ #{w\ 2158}#)))
+ (#{k\ 2161}#
+ (cons #{e1\ 2177}# #{e2\ 2178}#)
+ (#{extend-env\ 367}#
+ #{labels\ 2183}#
(begin
- (let ((#{w\ 2188}#
- (if #{rec?\ 2154}#
- #{new-w\ 2184}#
- #{w\ 2157}#))
- (#{trans-r\ 2189}#
- (#{macros-only-env\ 370}#
- #{r\ 2156}#)))
- (map (lambda (#{x\ 2190}#)
+ (let ((#{w\ 2189}#
+ (if #{rec?\ 2155}#
+ #{new-w\ 2185}#
+ #{w\ 2158}#))
+ (#{trans-r\ 2190}#
+ (#{macros-only-env\ 371}#
+ #{r\ 2157}#)))
+ (map (lambda (#{x\ 2191}#)
(cons 'macro
-
(#{eval-local-transformer\ 472}#
- (#{chi\ 460}#
- #{x\ 2190}#
- #{trans-r\ 2189}#
- #{w\ 2188}#
- #{mod\ 2159}#)
- #{mod\ 2159}#)))
- #{val\ 2175}#)))
- #{r\ 2156}#)
- #{new-w\ 2184}#
- #{s\ 2158}#
- #{mod\ 2159}#)))))))))
- #{tmp\ 2169}#)
- (let ((#{_\ 2195}# #{tmp\ 2168}#))
+
(#{eval-local-transformer\ 473}#
+ (#{chi\ 461}#
+ #{x\ 2191}#
+ #{trans-r\ 2190}#
+ #{w\ 2189}#
+ #{mod\ 2160}#)
+ #{mod\ 2160}#)))
+ #{val\ 2176}#)))
+ #{r\ 2157}#)
+ #{new-w\ 2185}#
+ #{s\ 2159}#
+ #{mod\ 2160}#)))))))))
+ #{tmp\ 2170}#)
+ (let ((#{_\ 2196}# #{tmp\ 2169}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 446}#
- #{e\ 2155}#
- #{w\ 2157}#
- #{s\ 2158}#
- #{mod\ 2159}#))))))))
- (#{eval-local-transformer\ 472}#
- (lambda (#{expanded\ 2196}# #{mod\ 2197}#)
+ (#{source-wrap\ 447}#
+ #{e\ 2156}#
+ #{w\ 2158}#
+ #{s\ 2159}#
+ #{mod\ 2160}#))))))))
+ (#{eval-local-transformer\ 473}#
+ (lambda (#{expanded\ 2197}# #{mod\ 2198}#)
(begin
- (let ((#{p\ 2201}#
- (#{local-eval-hook\ 291}#
- #{expanded\ 2196}#
- #{mod\ 2197}#)))
- (if (procedure? #{p\ 2201}#)
- #{p\ 2201}#
+ (let ((#{p\ 2202}#
+ (#{local-eval-hook\ 292}#
+ #{expanded\ 2197}#
+ #{mod\ 2198}#)))
+ (if (procedure? #{p\ 2202}#)
+ #{p\ 2202}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 2201}#))))))
- (#{chi-void\ 474}#
- (lambda () (#{build-void\ 302}# #f)))
- (#{ellipsis?\ 476}#
- (lambda (#{x\ 2203}#)
- (if (#{nonsymbol-id?\ 376}# #{x\ 2203}#)
- (#{free-id=?\ 434}#
- #{x\ 2203}#
+ #{p\ 2202}#))))))
+ (#{chi-void\ 475}#
+ (lambda () (#{build-void\ 303}# #f)))
+ (#{ellipsis?\ 477}#
+ (lambda (#{x\ 2204}#)
+ (if (#{nonsymbol-id?\ 377}# #{x\ 2204}#)
+ (#{free-id=?\ 435}#
+ #{x\ 2204}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2204"))
+ #(ribcage #(x) #((top)) #("i2205"))
#(ribcage
(lambda-var-list
gen-var
@@ -6727,58 +6705,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -6787,357 +6766,346 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 478}#
- (lambda (#{orig-args\ 2207}#)
+ (#{lambda-formals\ 479}#
+ (lambda (#{orig-args\ 2208}#)
(letrec*
- ((#{req\ 2210}#
- (lambda (#{args\ 2213}# #{rreq\ 2214}#)
- (let ((#{tmp\ 2217}# #{args\ 2213}#))
- (let ((#{tmp\ 2218}#
- ($sc-dispatch #{tmp\ 2217}# (quote ()))))
- (if #{tmp\ 2218}#
+ ((#{req\ 2211}#
+ (lambda (#{args\ 2214}# #{rreq\ 2215}#)
+ (let ((#{tmp\ 2218}# #{args\ 2214}#))
+ (let ((#{tmp\ 2219}# ($sc-dispatch #{tmp\ 2218}# '())))
+ (if #{tmp\ 2219}#
(@apply
(lambda ()
- (#{check\ 2212}# (reverse #{rreq\ 2214}#) #f))
- #{tmp\ 2218}#)
- (let ((#{tmp\ 2219}#
- ($sc-dispatch
- #{tmp\ 2217}#
- '(any . any))))
- (if (if #{tmp\ 2219}#
+ (#{check\ 2213}# (reverse #{rreq\ 2215}#) #f))
+ #{tmp\ 2219}#)
+ (let ((#{tmp\ 2220}#
+ ($sc-dispatch #{tmp\ 2218}# '(any . any))))
+ (if (if #{tmp\ 2220}#
(@apply
- (lambda (#{a\ 2222}# #{b\ 2223}#)
- (#{id?\ 378}# #{a\ 2222}#))
- #{tmp\ 2219}#)
+ (lambda (#{a\ 2223}# #{b\ 2224}#)
+ (#{id?\ 379}# #{a\ 2223}#))
+ #{tmp\ 2220}#)
#f)
(@apply
- (lambda (#{a\ 2226}# #{b\ 2227}#)
- (#{req\ 2210}#
- #{b\ 2227}#
- (cons #{a\ 2226}# #{rreq\ 2214}#)))
- #{tmp\ 2219}#)
- (let ((#{tmp\ 2228}# (list #{tmp\ 2217}#)))
- (if (if #{tmp\ 2228}#
+ (lambda (#{a\ 2227}# #{b\ 2228}#)
+ (#{req\ 2211}#
+ #{b\ 2228}#
+ (cons #{a\ 2227}# #{rreq\ 2215}#)))
+ #{tmp\ 2220}#)
+ (let ((#{tmp\ 2229}# (list #{tmp\ 2218}#)))
+ (if (if #{tmp\ 2229}#
(@apply
- (lambda (#{r\ 2230}#)
- (#{id?\ 378}# #{r\ 2230}#))
- #{tmp\ 2228}#)
+ (lambda (#{r\ 2231}#)
+ (#{id?\ 379}# #{r\ 2231}#))
+ #{tmp\ 2229}#)
#f)
(@apply
- (lambda (#{r\ 2232}#)
- (#{check\ 2212}#
- (reverse #{rreq\ 2214}#)
- #{r\ 2232}#))
- #{tmp\ 2228}#)
- (let ((#{else\ 2234}# #{tmp\ 2217}#))
+ (lambda (#{r\ 2233}#)
+ (#{check\ 2213}#
+ (reverse #{rreq\ 2215}#)
+ #{r\ 2233}#))
+ #{tmp\ 2229}#)
+ (let ((#{else\ 2235}# #{tmp\ 2218}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 2207}#
- #{args\ 2213}#)))))))))))
- (#{check\ 2212}#
- (lambda (#{req\ 2235}# #{rest\ 2236}#)
- (if (#{distinct-bound-ids?\ 440}#
- (if #{rest\ 2236}#
- (cons #{rest\ 2236}# #{req\ 2235}#)
- #{req\ 2235}#))
- (values #{req\ 2235}# #f #{rest\ 2236}# #f)
+ #{orig-args\ 2208}#
+ #{args\ 2214}#)))))))))))
+ (#{check\ 2213}#
+ (lambda (#{req\ 2236}# #{rest\ 2237}#)
+ (if (#{distinct-bound-ids?\ 441}#
+ (if #{rest\ 2237}#
+ (cons #{rest\ 2237}# #{req\ 2236}#)
+ #{req\ 2236}#))
+ (values #{req\ 2236}# #f #{rest\ 2237}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 2207}#)))))
- (begin
- (#{req\ 2210}# #{orig-args\ 2207}# (quote ()))))))
- (#{chi-simple-lambda\ 480}#
- (lambda (#{e\ 2242}#
- #{r\ 2243}#
- #{w\ 2244}#
- #{s\ 2245}#
- #{mod\ 2246}#
- #{req\ 2247}#
- #{rest\ 2248}#
- #{meta\ 2249}#
- #{body\ 2250}#)
+ #{orig-args\ 2208}#)))))
+ (begin (#{req\ 2211}# #{orig-args\ 2208}# '())))))
+ (#{chi-simple-lambda\ 481}#
+ (lambda (#{e\ 2243}#
+ #{r\ 2244}#
+ #{w\ 2245}#
+ #{s\ 2246}#
+ #{mod\ 2247}#
+ #{req\ 2248}#
+ #{rest\ 2249}#
+ #{meta\ 2250}#
+ #{body\ 2251}#)
(begin
- (let ((#{ids\ 2262}#
- (if #{rest\ 2248}#
- (append #{req\ 2247}# (list #{rest\ 2248}#))
- #{req\ 2247}#)))
+ (let ((#{ids\ 2263}#
+ (if #{rest\ 2249}#
+ (append #{req\ 2248}# (list #{rest\ 2249}#))
+ #{req\ 2248}#)))
(begin
- (let ((#{vars\ 2264}#
- (map #{gen-var\ 488}# #{ids\ 2262}#)))
+ (let ((#{vars\ 2265}#
+ (map #{gen-var\ 489}# #{ids\ 2263}#)))
(begin
- (let ((#{labels\ 2266}#
- (#{gen-labels\ 393}# #{ids\ 2262}#)))
- (#{build-simple-lambda\ 322}#
- #{s\ 2245}#
- (map syntax->datum #{req\ 2247}#)
- (if #{rest\ 2248}#
- (syntax->datum #{rest\ 2248}#)
+ (let ((#{labels\ 2267}#
+ (#{gen-labels\ 394}# #{ids\ 2263}#)))
+ (#{build-simple-lambda\ 323}#
+ #{s\ 2246}#
+ (map syntax->datum #{req\ 2248}#)
+ (if #{rest\ 2249}#
+ (syntax->datum #{rest\ 2249}#)
#f)
- #{vars\ 2264}#
- #{meta\ 2249}#
- (#{chi-body\ 468}#
- #{body\ 2250}#
- (#{source-wrap\ 446}#
- #{e\ 2242}#
- #{w\ 2244}#
- #{s\ 2245}#
- #{mod\ 2246}#)
- (#{extend-var-env\ 368}#
- #{labels\ 2266}#
- #{vars\ 2264}#
- #{r\ 2243}#)
- (#{make-binding-wrap\ 422}#
- #{ids\ 2262}#
- #{labels\ 2266}#
- #{w\ 2244}#)
- #{mod\ 2246}#))))))))))
- (#{lambda*-formals\ 482}#
- (lambda (#{orig-args\ 2269}#)
+ #{vars\ 2265}#
+ #{meta\ 2250}#
+ (#{chi-body\ 469}#
+ #{body\ 2251}#
+ (#{source-wrap\ 447}#
+ #{e\ 2243}#
+ #{w\ 2245}#
+ #{s\ 2246}#
+ #{mod\ 2247}#)
+ (#{extend-var-env\ 369}#
+ #{labels\ 2267}#
+ #{vars\ 2265}#
+ #{r\ 2244}#)
+ (#{make-binding-wrap\ 423}#
+ #{ids\ 2263}#
+ #{labels\ 2267}#
+ #{w\ 2245}#)
+ #{mod\ 2247}#))))))))))
+ (#{lambda*-formals\ 483}#
+ (lambda (#{orig-args\ 2270}#)
(letrec*
- ((#{req\ 2272}#
- (lambda (#{args\ 2281}# #{rreq\ 2282}#)
- (let ((#{tmp\ 2285}# #{args\ 2281}#))
- (let ((#{tmp\ 2286}#
- ($sc-dispatch #{tmp\ 2285}# (quote ()))))
- (if #{tmp\ 2286}#
+ ((#{req\ 2273}#
+ (lambda (#{args\ 2282}# #{rreq\ 2283}#)
+ (let ((#{tmp\ 2286}# #{args\ 2282}#))
+ (let ((#{tmp\ 2287}# ($sc-dispatch #{tmp\ 2286}# '())))
+ (if #{tmp\ 2287}#
(@apply
(lambda ()
- (#{check\ 2280}#
- (reverse #{rreq\ 2282}#)
+ (#{check\ 2281}#
+ (reverse #{rreq\ 2283}#)
'()
#f
'()))
- #{tmp\ 2286}#)
- (let ((#{tmp\ 2287}#
- ($sc-dispatch
- #{tmp\ 2285}#
- '(any . any))))
- (if (if #{tmp\ 2287}#
+ #{tmp\ 2287}#)
+ (let ((#{tmp\ 2288}#
+ ($sc-dispatch #{tmp\ 2286}# '(any . any))))
+ (if (if #{tmp\ 2288}#
(@apply
- (lambda (#{a\ 2290}# #{b\ 2291}#)
- (#{id?\ 378}# #{a\ 2290}#))
- #{tmp\ 2287}#)
+ (lambda (#{a\ 2291}# #{b\ 2292}#)
+ (#{id?\ 379}# #{a\ 2291}#))
+ #{tmp\ 2288}#)
#f)
(@apply
- (lambda (#{a\ 2294}# #{b\ 2295}#)
- (#{req\ 2272}#
- #{b\ 2295}#
- (cons #{a\ 2294}# #{rreq\ 2282}#)))
- #{tmp\ 2287}#)
- (let ((#{tmp\ 2296}#
+ (lambda (#{a\ 2295}# #{b\ 2296}#)
+ (#{req\ 2273}#
+ #{b\ 2296}#
+ (cons #{a\ 2295}# #{rreq\ 2283}#)))
+ #{tmp\ 2288}#)
+ (let ((#{tmp\ 2297}#
($sc-dispatch
- #{tmp\ 2285}#
+ #{tmp\ 2286}#
'(any . any))))
- (if (if #{tmp\ 2296}#
+ (if (if #{tmp\ 2297}#
(@apply
- (lambda (#{a\ 2299}# #{b\ 2300}#)
- (eq? (syntax->datum #{a\ 2299}#)
+ (lambda (#{a\ 2300}# #{b\ 2301}#)
+ (eq? (syntax->datum #{a\ 2300}#)
#:optional))
- #{tmp\ 2296}#)
+ #{tmp\ 2297}#)
#f)
(@apply
- (lambda (#{a\ 2303}# #{b\ 2304}#)
- (#{opt\ 2274}#
- #{b\ 2304}#
- (reverse #{rreq\ 2282}#)
+ (lambda (#{a\ 2304}# #{b\ 2305}#)
+ (#{opt\ 2275}#
+ #{b\ 2305}#
+ (reverse #{rreq\ 2283}#)
'()))
- #{tmp\ 2296}#)
- (let ((#{tmp\ 2305}#
+ #{tmp\ 2297}#)
+ (let ((#{tmp\ 2306}#
($sc-dispatch
- #{tmp\ 2285}#
+ #{tmp\ 2286}#
'(any . any))))
- (if (if #{tmp\ 2305}#
+ (if (if #{tmp\ 2306}#
(@apply
- (lambda (#{a\ 2308}# #{b\ 2309}#)
- (eq? (syntax->datum #{a\ 2308}#)
+ (lambda (#{a\ 2309}# #{b\ 2310}#)
+ (eq? (syntax->datum #{a\ 2309}#)
#:key))
- #{tmp\ 2305}#)
+ #{tmp\ 2306}#)
#f)
(@apply
- (lambda (#{a\ 2312}# #{b\ 2313}#)
- (#{key\ 2276}#
- #{b\ 2313}#
- (reverse #{rreq\ 2282}#)
+ (lambda (#{a\ 2313}# #{b\ 2314}#)
+ (#{key\ 2277}#
+ #{b\ 2314}#
+ (reverse #{rreq\ 2283}#)
'()
'()))
- #{tmp\ 2305}#)
- (let ((#{tmp\ 2314}#
+ #{tmp\ 2306}#)
+ (let ((#{tmp\ 2315}#
($sc-dispatch
- #{tmp\ 2285}#
+ #{tmp\ 2286}#
'(any any))))
- (if (if #{tmp\ 2314}#
+ (if (if #{tmp\ 2315}#
(@apply
- (lambda (#{a\ 2317}#
- #{b\ 2318}#)
+ (lambda (#{a\ 2318}#
+ #{b\ 2319}#)
(eq? (syntax->datum
- #{a\ 2317}#)
+ #{a\ 2318}#)
#:rest))
- #{tmp\ 2314}#)
+ #{tmp\ 2315}#)
#f)
(@apply
- (lambda (#{a\ 2321}# #{b\ 2322}#)
- (#{rest\ 2278}#
- #{b\ 2322}#
- (reverse #{rreq\ 2282}#)
+ (lambda (#{a\ 2322}# #{b\ 2323}#)
+ (#{rest\ 2279}#
+ #{b\ 2323}#
+ (reverse #{rreq\ 2283}#)
'()
'()))
- #{tmp\ 2314}#)
- (let ((#{tmp\ 2323}#
- (list #{tmp\ 2285}#)))
- (if (if #{tmp\ 2323}#
+ #{tmp\ 2315}#)
+ (let ((#{tmp\ 2324}#
+ (list #{tmp\ 2286}#)))
+ (if (if #{tmp\ 2324}#
(@apply
- (lambda (#{r\ 2325}#)
- (#{id?\ 378}#
- #{r\ 2325}#))
- #{tmp\ 2323}#)
+ (lambda (#{r\ 2326}#)
+ (#{id?\ 379}#
+ #{r\ 2326}#))
+ #{tmp\ 2324}#)
#f)
(@apply
- (lambda (#{r\ 2327}#)
- (#{rest\ 2278}#
- #{r\ 2327}#
- (reverse #{rreq\ 2282}#)
+ (lambda (#{r\ 2328}#)
+ (#{rest\ 2279}#
+ #{r\ 2328}#
+ (reverse #{rreq\ 2283}#)
'()
'()))
- #{tmp\ 2323}#)
- (let ((#{else\ 2329}#
- #{tmp\ 2285}#))
+ #{tmp\ 2324}#)
+ (let ((#{else\ 2330}#
+ #{tmp\ 2286}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2269}#
- #{args\
2281}#)))))))))))))))))
- (#{opt\ 2274}#
- (lambda (#{args\ 2330}# #{req\ 2331}# #{ropt\ 2332}#)
- (let ((#{tmp\ 2336}# #{args\ 2330}#))
- (let ((#{tmp\ 2337}#
- ($sc-dispatch #{tmp\ 2336}# (quote ()))))
- (if #{tmp\ 2337}#
+ #{orig-args\ 2270}#
+ #{args\
2282}#)))))))))))))))))
+ (#{opt\ 2275}#
+ (lambda (#{args\ 2331}# #{req\ 2332}# #{ropt\ 2333}#)
+ (let ((#{tmp\ 2337}# #{args\ 2331}#))
+ (let ((#{tmp\ 2338}# ($sc-dispatch #{tmp\ 2337}# '())))
+ (if #{tmp\ 2338}#
(@apply
(lambda ()
- (#{check\ 2280}#
- #{req\ 2331}#
- (reverse #{ropt\ 2332}#)
+ (#{check\ 2281}#
+ #{req\ 2332}#
+ (reverse #{ropt\ 2333}#)
#f
'()))
- #{tmp\ 2337}#)
- (let ((#{tmp\ 2338}#
- ($sc-dispatch
- #{tmp\ 2336}#
- '(any . any))))
- (if (if #{tmp\ 2338}#
+ #{tmp\ 2338}#)
+ (let ((#{tmp\ 2339}#
+ ($sc-dispatch #{tmp\ 2337}# '(any . any))))
+ (if (if #{tmp\ 2339}#
(@apply
- (lambda (#{a\ 2341}# #{b\ 2342}#)
- (#{id?\ 378}# #{a\ 2341}#))
- #{tmp\ 2338}#)
+ (lambda (#{a\ 2342}# #{b\ 2343}#)
+ (#{id?\ 379}# #{a\ 2342}#))
+ #{tmp\ 2339}#)
#f)
(@apply
- (lambda (#{a\ 2345}# #{b\ 2346}#)
- (#{opt\ 2274}#
- #{b\ 2346}#
- #{req\ 2331}#
- (cons (cons #{a\ 2345}#
+ (lambda (#{a\ 2346}# #{b\ 2347}#)
+ (#{opt\ 2275}#
+ #{b\ 2347}#
+ #{req\ 2332}#
+ (cons (cons #{a\ 2346}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2343" "i2344"))
+ #("i2344" "i2345"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2333"
- "i2334"
- "i2335"))
+ #("i2334"
+ "i2335"
+ "i2336"))
#(ribcage
(check rest key opt req)
((top)
@@ -7145,15 +7113,15 @@
(top)
(top)
(top))
- ("i2279"
- "i2277"
- "i2275"
- "i2273"
- "i2271"))
+ ("i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"))
#(ribcage
#(orig-args)
#((top))
- #("i2270"))
+ #("i2271"))
#(ribcage
(lambda-var-list
gen-var
@@ -7429,58 +7397,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -7489,83 +7458,82 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -7575,150 +7543,147 @@
(top)
(top)
(top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
- "i35")))
+ "i36")))
(hygiene guile))))
- #{ropt\ 2332}#)))
- #{tmp\ 2338}#)
- (let ((#{tmp\ 2347}#
+ #{ropt\ 2333}#)))
+ #{tmp\ 2339}#)
+ (let ((#{tmp\ 2348}#
($sc-dispatch
- #{tmp\ 2336}#
+ #{tmp\ 2337}#
'((any any) . any))))
- (if (if #{tmp\ 2347}#
+ (if (if #{tmp\ 2348}#
(@apply
- (lambda (#{a\ 2351}#
- #{init\ 2352}#
- #{b\ 2353}#)
- (#{id?\ 378}# #{a\ 2351}#))
- #{tmp\ 2347}#)
+ (lambda (#{a\ 2352}#
+ #{init\ 2353}#
+ #{b\ 2354}#)
+ (#{id?\ 379}# #{a\ 2352}#))
+ #{tmp\ 2348}#)
#f)
(@apply
- (lambda (#{a\ 2357}#
- #{init\ 2358}#
- #{b\ 2359}#)
- (#{opt\ 2274}#
- #{b\ 2359}#
- #{req\ 2331}#
- (cons (list #{a\ 2357}# #{init\ 2358}#)
- #{ropt\ 2332}#)))
- #{tmp\ 2347}#)
- (let ((#{tmp\ 2360}#
+ (lambda (#{a\ 2358}#
+ #{init\ 2359}#
+ #{b\ 2360}#)
+ (#{opt\ 2275}#
+ #{b\ 2360}#
+ #{req\ 2332}#
+ (cons (list #{a\ 2358}# #{init\ 2359}#)
+ #{ropt\ 2333}#)))
+ #{tmp\ 2348}#)
+ (let ((#{tmp\ 2361}#
($sc-dispatch
- #{tmp\ 2336}#
+ #{tmp\ 2337}#
'(any . any))))
- (if (if #{tmp\ 2360}#
+ (if (if #{tmp\ 2361}#
(@apply
- (lambda (#{a\ 2363}# #{b\ 2364}#)
- (eq? (syntax->datum #{a\ 2363}#)
+ (lambda (#{a\ 2364}# #{b\ 2365}#)
+ (eq? (syntax->datum #{a\ 2364}#)
#:key))
- #{tmp\ 2360}#)
+ #{tmp\ 2361}#)
#f)
(@apply
- (lambda (#{a\ 2367}# #{b\ 2368}#)
- (#{key\ 2276}#
- #{b\ 2368}#
- #{req\ 2331}#
- (reverse #{ropt\ 2332}#)
+ (lambda (#{a\ 2368}# #{b\ 2369}#)
+ (#{key\ 2277}#
+ #{b\ 2369}#
+ #{req\ 2332}#
+ (reverse #{ropt\ 2333}#)
'()))
- #{tmp\ 2360}#)
- (let ((#{tmp\ 2369}#
+ #{tmp\ 2361}#)
+ (let ((#{tmp\ 2370}#
($sc-dispatch
- #{tmp\ 2336}#
+ #{tmp\ 2337}#
'(any any))))
- (if (if #{tmp\ 2369}#
+ (if (if #{tmp\ 2370}#
(@apply
- (lambda (#{a\ 2372}#
- #{b\ 2373}#)
+ (lambda (#{a\ 2373}#
+ #{b\ 2374}#)
(eq? (syntax->datum
- #{a\ 2372}#)
+ #{a\ 2373}#)
#:rest))
- #{tmp\ 2369}#)
+ #{tmp\ 2370}#)
#f)
(@apply
- (lambda (#{a\ 2376}# #{b\ 2377}#)
- (#{rest\ 2278}#
- #{b\ 2377}#
- #{req\ 2331}#
- (reverse #{ropt\ 2332}#)
+ (lambda (#{a\ 2377}# #{b\ 2378}#)
+ (#{rest\ 2279}#
+ #{b\ 2378}#
+ #{req\ 2332}#
+ (reverse #{ropt\ 2333}#)
'()))
- #{tmp\ 2369}#)
- (let ((#{tmp\ 2378}#
- (list #{tmp\ 2336}#)))
- (if (if #{tmp\ 2378}#
+ #{tmp\ 2370}#)
+ (let ((#{tmp\ 2379}#
+ (list #{tmp\ 2337}#)))
+ (if (if #{tmp\ 2379}#
(@apply
- (lambda (#{r\ 2380}#)
- (#{id?\ 378}#
- #{r\ 2380}#))
- #{tmp\ 2378}#)
+ (lambda (#{r\ 2381}#)
+ (#{id?\ 379}#
+ #{r\ 2381}#))
+ #{tmp\ 2379}#)
#f)
(@apply
- (lambda (#{r\ 2382}#)
- (#{rest\ 2278}#
- #{r\ 2382}#
- #{req\ 2331}#
- (reverse #{ropt\ 2332}#)
+ (lambda (#{r\ 2383}#)
+ (#{rest\ 2279}#
+ #{r\ 2383}#
+ #{req\ 2332}#
+ (reverse #{ropt\ 2333}#)
'()))
- #{tmp\ 2378}#)
- (let ((#{else\ 2384}#
- #{tmp\ 2336}#))
+ #{tmp\ 2379}#)
+ (let ((#{else\ 2385}#
+ #{tmp\ 2337}#))
(syntax-violation
'lambda*
"invalid optional argument
list"
- #{orig-args\ 2269}#
- #{args\
2330}#)))))))))))))))))
- (#{key\ 2276}#
- (lambda (#{args\ 2385}#
- #{req\ 2386}#
- #{opt\ 2387}#
- #{rkey\ 2388}#)
- (let ((#{tmp\ 2393}# #{args\ 2385}#))
- (let ((#{tmp\ 2394}#
- ($sc-dispatch #{tmp\ 2393}# (quote ()))))
- (if #{tmp\ 2394}#
+ #{orig-args\ 2270}#
+ #{args\
2331}#)))))))))))))))))
+ (#{key\ 2277}#
+ (lambda (#{args\ 2386}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
+ #{rkey\ 2389}#)
+ (let ((#{tmp\ 2394}# #{args\ 2386}#))
+ (let ((#{tmp\ 2395}# ($sc-dispatch #{tmp\ 2394}# '())))
+ (if #{tmp\ 2395}#
(@apply
(lambda ()
- (#{check\ 2280}#
- #{req\ 2386}#
- #{opt\ 2387}#
+ (#{check\ 2281}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
#f
- (cons #f (reverse #{rkey\ 2388}#))))
- #{tmp\ 2394}#)
- (let ((#{tmp\ 2395}#
- ($sc-dispatch
- #{tmp\ 2393}#
- '(any . any))))
- (if (if #{tmp\ 2395}#
+ (cons #f (reverse #{rkey\ 2389}#))))
+ #{tmp\ 2395}#)
+ (let ((#{tmp\ 2396}#
+ ($sc-dispatch #{tmp\ 2394}# '(any . any))))
+ (if (if #{tmp\ 2396}#
(@apply
- (lambda (#{a\ 2398}# #{b\ 2399}#)
- (#{id?\ 378}# #{a\ 2398}#))
- #{tmp\ 2395}#)
+ (lambda (#{a\ 2399}# #{b\ 2400}#)
+ (#{id?\ 379}# #{a\ 2399}#))
+ #{tmp\ 2396}#)
#f)
(@apply
- (lambda (#{a\ 2402}# #{b\ 2403}#)
- (let ((#{tmp\ 2405}#
+ (lambda (#{a\ 2403}# #{b\ 2404}#)
+ (let ((#{tmp\ 2406}#
(symbol->keyword
- (syntax->datum #{a\ 2402}#))))
- (let ((#{k\ 2407}# #{tmp\ 2405}#))
- (#{key\ 2276}#
- #{b\ 2403}#
- #{req\ 2386}#
- #{opt\ 2387}#
- (cons (cons #{k\ 2407}#
- (cons #{a\ 2402}#
+ (syntax->datum #{a\ 2403}#))))
+ (let ((#{k\ 2408}# #{tmp\ 2406}#))
+ (#{key\ 2277}#
+ #{b\ 2404}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
+ (cons (cons #{k\ 2408}#
+ (cons #{a\ 2403}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2406"))
+ #("i2407"))
#(ribcage
#(a b)
#((top) (top))
- #("i2400"
- "i2401"))
+ #("i2401"
+ "i2402"))
#(ribcage
()
()
@@ -7732,10 +7697,10 @@
(top)
(top)
(top))
- #("i2389"
- "i2390"
+ #("i2390"
"i2391"
- "i2392"))
+ "i2392"
+ "i2393"))
#(ribcage
(check rest
key
@@ -7746,15 +7711,15 @@
(top)
(top)
(top))
- ("i2279"
- "i2277"
- "i2275"
- "i2273"
- "i2271"))
+ ("i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"))
#(ribcage
#(orig-args)
#((top))
- #("i2270"))
+ #("i2271"))
#(ribcage
(lambda-var-list
gen-var
@@ -8030,58 +7995,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -8090,83 +8056,82 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -8176,2062 +8141,2038 @@
(top)
(top)
(top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
- "i35")))
+ "i36")))
(hygiene
guile)))))
- #{rkey\ 2388}#)))))
- #{tmp\ 2395}#)
- (let ((#{tmp\ 2408}#
+ #{rkey\ 2389}#)))))
+ #{tmp\ 2396}#)
+ (let ((#{tmp\ 2409}#
($sc-dispatch
- #{tmp\ 2393}#
+ #{tmp\ 2394}#
'((any any) . any))))
- (if (if #{tmp\ 2408}#
+ (if (if #{tmp\ 2409}#
(@apply
- (lambda (#{a\ 2412}#
- #{init\ 2413}#
- #{b\ 2414}#)
- (#{id?\ 378}# #{a\ 2412}#))
- #{tmp\ 2408}#)
+ (lambda (#{a\ 2413}#
+ #{init\ 2414}#
+ #{b\ 2415}#)
+ (#{id?\ 379}# #{a\ 2413}#))
+ #{tmp\ 2409}#)
#f)
(@apply
- (lambda (#{a\ 2418}#
- #{init\ 2419}#
- #{b\ 2420}#)
- (let ((#{tmp\ 2422}#
+ (lambda (#{a\ 2419}#
+ #{init\ 2420}#
+ #{b\ 2421}#)
+ (let ((#{tmp\ 2423}#
(symbol->keyword
- (syntax->datum #{a\ 2418}#))))
- (let ((#{k\ 2424}# #{tmp\ 2422}#))
- (#{key\ 2276}#
- #{b\ 2420}#
- #{req\ 2386}#
- #{opt\ 2387}#
- (cons (list #{k\ 2424}#
- #{a\ 2418}#
- #{init\ 2419}#)
- #{rkey\ 2388}#)))))
- #{tmp\ 2408}#)
- (let ((#{tmp\ 2425}#
+ (syntax->datum #{a\ 2419}#))))
+ (let ((#{k\ 2425}# #{tmp\ 2423}#))
+ (#{key\ 2277}#
+ #{b\ 2421}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
+ (cons (list #{k\ 2425}#
+ #{a\ 2419}#
+ #{init\ 2420}#)
+ #{rkey\ 2389}#)))))
+ #{tmp\ 2409}#)
+ (let ((#{tmp\ 2426}#
($sc-dispatch
- #{tmp\ 2393}#
+ #{tmp\ 2394}#
'((any any any) . any))))
- (if (if #{tmp\ 2425}#
+ (if (if #{tmp\ 2426}#
(@apply
- (lambda (#{a\ 2430}#
- #{init\ 2431}#
- #{k\ 2432}#
- #{b\ 2433}#)
- (if (#{id?\ 378}# #{a\ 2430}#)
+ (lambda (#{a\ 2431}#
+ #{init\ 2432}#
+ #{k\ 2433}#
+ #{b\ 2434}#)
+ (if (#{id?\ 379}# #{a\ 2431}#)
(keyword?
- (syntax->datum #{k\ 2432}#))
+ (syntax->datum #{k\ 2433}#))
#f))
- #{tmp\ 2425}#)
+ #{tmp\ 2426}#)
#f)
(@apply
- (lambda (#{a\ 2440}#
- #{init\ 2441}#
- #{k\ 2442}#
- #{b\ 2443}#)
- (#{key\ 2276}#
- #{b\ 2443}#
- #{req\ 2386}#
- #{opt\ 2387}#
- (cons (list #{k\ 2442}#
- #{a\ 2440}#
- #{init\ 2441}#)
- #{rkey\ 2388}#)))
- #{tmp\ 2425}#)
- (let ((#{tmp\ 2444}#
+ (lambda (#{a\ 2441}#
+ #{init\ 2442}#
+ #{k\ 2443}#
+ #{b\ 2444}#)
+ (#{key\ 2277}#
+ #{b\ 2444}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
+ (cons (list #{k\ 2443}#
+ #{a\ 2441}#
+ #{init\ 2442}#)
+ #{rkey\ 2389}#)))
+ #{tmp\ 2426}#)
+ (let ((#{tmp\ 2445}#
($sc-dispatch
- #{tmp\ 2393}#
+ #{tmp\ 2394}#
'(any))))
- (if (if #{tmp\ 2444}#
+ (if (if #{tmp\ 2445}#
(@apply
- (lambda (#{aok\ 2446}#)
+ (lambda (#{aok\ 2447}#)
(eq? (syntax->datum
- #{aok\ 2446}#)
+ #{aok\ 2447}#)
#:allow-other-keys))
- #{tmp\ 2444}#)
+ #{tmp\ 2445}#)
#f)
(@apply
- (lambda (#{aok\ 2448}#)
- (#{check\ 2280}#
- #{req\ 2386}#
- #{opt\ 2387}#
+ (lambda (#{aok\ 2449}#)
+ (#{check\ 2281}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
#f
(cons #t
(reverse
- #{rkey\ 2388}#))))
- #{tmp\ 2444}#)
- (let ((#{tmp\ 2449}#
+ #{rkey\ 2389}#))))
+ #{tmp\ 2445}#)
+ (let ((#{tmp\ 2450}#
($sc-dispatch
- #{tmp\ 2393}#
+ #{tmp\ 2394}#
'(any any any))))
- (if (if #{tmp\ 2449}#
+ (if (if #{tmp\ 2450}#
(@apply
- (lambda (#{aok\ 2453}#
- #{a\ 2454}#
- #{b\ 2455}#)
+ (lambda (#{aok\ 2454}#
+ #{a\ 2455}#
+ #{b\ 2456}#)
(if (eq? (syntax->datum
- #{aok\ 2453}#)
+ #{aok\ 2454}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 2454}#)
+ #{a\ 2455}#)
#:rest)
#f))
- #{tmp\ 2449}#)
+ #{tmp\ 2450}#)
#f)
(@apply
- (lambda (#{aok\ 2461}#
- #{a\ 2462}#
- #{b\ 2463}#)
- (#{rest\ 2278}#
- #{b\ 2463}#
- #{req\ 2386}#
- #{opt\ 2387}#
+ (lambda (#{aok\ 2462}#
+ #{a\ 2463}#
+ #{b\ 2464}#)
+ (#{rest\ 2279}#
+ #{b\ 2464}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
(cons #t
(reverse
- #{rkey\ 2388}#))))
- #{tmp\ 2449}#)
- (let ((#{tmp\ 2464}#
+ #{rkey\ 2389}#))))
+ #{tmp\ 2450}#)
+ (let ((#{tmp\ 2465}#
($sc-dispatch
- #{tmp\ 2393}#
+ #{tmp\ 2394}#
'(any . any))))
- (if (if #{tmp\ 2464}#
+ (if (if #{tmp\ 2465}#
(@apply
- (lambda (#{aok\ 2467}#
- #{r\ 2468}#)
+ (lambda (#{aok\ 2468}#
+ #{r\ 2469}#)
(if (eq?
(syntax->datum
- #{aok\
2467}#)
+ #{aok\
2468}#)
#:allow-other-keys)
- (#{id?\ 378}#
- #{r\ 2468}#)
+ (#{id?\ 379}#
+ #{r\ 2469}#)
#f))
- #{tmp\ 2464}#)
+ #{tmp\ 2465}#)
#f)
(@apply
- (lambda (#{aok\ 2473}#
- #{r\ 2474}#)
- (#{rest\ 2278}#
- #{r\ 2474}#
- #{req\ 2386}#
- #{opt\ 2387}#
+ (lambda (#{aok\ 2474}#
+ #{r\ 2475}#)
+ (#{rest\ 2279}#
+ #{r\ 2475}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
(cons #t
(reverse
- #{rkey\
2388}#))))
- #{tmp\ 2464}#)
- (let ((#{tmp\ 2475}#
+ #{rkey\
2389}#))))
+ #{tmp\ 2465}#)
+ (let ((#{tmp\ 2476}#
($sc-dispatch
- #{tmp\ 2393}#
+ #{tmp\ 2394}#
'(any any))))
- (if (if #{tmp\ 2475}#
+ (if (if #{tmp\ 2476}#
(@apply
- (lambda (#{a\
2478}#
- #{b\
2479}#)
+ (lambda (#{a\
2479}#
+ #{b\
2480}#)
(eq?
(syntax->datum
- #{a\
2478}#)
+ #{a\
2479}#)
#:rest))
- #{tmp\ 2475}#)
+ #{tmp\ 2476}#)
#f)
(@apply
- (lambda (#{a\ 2482}#
- #{b\ 2483}#)
- (#{rest\ 2278}#
- #{b\ 2483}#
- #{req\ 2386}#
- #{opt\ 2387}#
+ (lambda (#{a\ 2483}#
+ #{b\ 2484}#)
+ (#{rest\ 2279}#
+ #{b\ 2484}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
(cons #f
(reverse
- #{rkey\
2388}#))))
- #{tmp\ 2475}#)
- (let ((#{tmp\ 2484}#
- (list #{tmp\
2393}#)))
- (if (if #{tmp\ 2484}#
+ #{rkey\
2389}#))))
+ #{tmp\ 2476}#)
+ (let ((#{tmp\ 2485}#
+ (list #{tmp\
2394}#)))
+ (if (if #{tmp\ 2485}#
(@apply
- (lambda (#{r\
2486}#)
- (#{id?\ 378}#
- #{r\
2486}#))
- #{tmp\ 2484}#)
+ (lambda (#{r\
2487}#)
+ (#{id?\ 379}#
+ #{r\
2487}#))
+ #{tmp\ 2485}#)
#f)
(@apply
- (lambda (#{r\
2488}#)
- (#{rest\ 2278}#
- #{r\ 2488}#
- #{req\ 2386}#
- #{opt\ 2387}#
+ (lambda (#{r\
2489}#)
+ (#{rest\ 2279}#
+ #{r\ 2489}#
+ #{req\ 2387}#
+ #{opt\ 2388}#
(cons #f
(reverse
-
#{rkey\ 2388}#))))
- #{tmp\ 2484}#)
- (let ((#{else\ 2490}#
- #{tmp\
2393}#))
+
#{rkey\ 2389}#))))
+ #{tmp\ 2485}#)
+ (let ((#{else\ 2491}#
+ #{tmp\
2394}#))
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args\
2269}#
- #{args\
2385}#)))))))))))))))))))))))
- (#{rest\ 2278}#
- (lambda (#{args\ 2491}#
- #{req\ 2492}#
- #{opt\ 2493}#
- #{kw\ 2494}#)
- (let ((#{tmp\ 2499}# #{args\ 2491}#))
- (let ((#{tmp\ 2500}# (list #{tmp\ 2499}#)))
- (if (if #{tmp\ 2500}#
+ #{orig-args\
2270}#
+ #{args\
2386}#)))))))))))))))))))))))
+ (#{rest\ 2279}#
+ (lambda (#{args\ 2492}#
+ #{req\ 2493}#
+ #{opt\ 2494}#
+ #{kw\ 2495}#)
+ (let ((#{tmp\ 2500}# #{args\ 2492}#))
+ (let ((#{tmp\ 2501}# (list #{tmp\ 2500}#)))
+ (if (if #{tmp\ 2501}#
(@apply
- (lambda (#{r\ 2502}#)
- (#{id?\ 378}# #{r\ 2502}#))
- #{tmp\ 2500}#)
+ (lambda (#{r\ 2503}#)
+ (#{id?\ 379}# #{r\ 2503}#))
+ #{tmp\ 2501}#)
#f)
(@apply
- (lambda (#{r\ 2504}#)
- (#{check\ 2280}#
- #{req\ 2492}#
- #{opt\ 2493}#
- #{r\ 2504}#
- #{kw\ 2494}#))
- #{tmp\ 2500}#)
- (let ((#{else\ 2506}# #{tmp\ 2499}#))
+ (lambda (#{r\ 2505}#)
+ (#{check\ 2281}#
+ #{req\ 2493}#
+ #{opt\ 2494}#
+ #{r\ 2505}#
+ #{kw\ 2495}#))
+ #{tmp\ 2501}#)
+ (let ((#{else\ 2507}# #{tmp\ 2500}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2269}#
- #{args\ 2491}#)))))))
- (#{check\ 2280}#
- (lambda (#{req\ 2507}#
- #{opt\ 2508}#
- #{rest\ 2509}#
- #{kw\ 2510}#)
- (if (#{distinct-bound-ids?\ 440}#
+ #{orig-args\ 2270}#
+ #{args\ 2492}#)))))))
+ (#{check\ 2281}#
+ (lambda (#{req\ 2508}#
+ #{opt\ 2509}#
+ #{rest\ 2510}#
+ #{kw\ 2511}#)
+ (if (#{distinct-bound-ids?\ 441}#
(append
- #{req\ 2507}#
- (map car #{opt\ 2508}#)
- (if #{rest\ 2509}#
- (list #{rest\ 2509}#)
- '())
- (if (pair? #{kw\ 2510}#)
- (map cadr (cdr #{kw\ 2510}#))
+ #{req\ 2508}#
+ (map car #{opt\ 2509}#)
+ (if #{rest\ 2510}# (list #{rest\ 2510}#) '())
+ (if (pair? #{kw\ 2511}#)
+ (map cadr (cdr #{kw\ 2511}#))
'())))
(values
- #{req\ 2507}#
- #{opt\ 2508}#
- #{rest\ 2509}#
- #{kw\ 2510}#)
+ #{req\ 2508}#
+ #{opt\ 2509}#
+ #{rest\ 2510}#
+ #{kw\ 2511}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2269}#)))))
- (begin
- (#{req\ 2272}# #{orig-args\ 2269}# (quote ()))))))
- (#{chi-lambda-case\ 484}#
- (lambda (#{e\ 2518}#
- #{r\ 2519}#
- #{w\ 2520}#
- #{s\ 2521}#
- #{mod\ 2522}#
- #{get-formals\ 2523}#
- #{clauses\ 2524}#)
+ #{orig-args\ 2270}#)))))
+ (begin (#{req\ 2273}# #{orig-args\ 2270}# '())))))
+ (#{chi-lambda-case\ 485}#
+ (lambda (#{e\ 2519}#
+ #{r\ 2520}#
+ #{w\ 2521}#
+ #{s\ 2522}#
+ #{mod\ 2523}#
+ #{get-formals\ 2524}#
+ #{clauses\ 2525}#)
(letrec*
- ((#{expand-req\ 2533}#
- (lambda (#{req\ 2540}#
- #{opt\ 2541}#
- #{rest\ 2542}#
- #{kw\ 2543}#
- #{body\ 2544}#)
+ ((#{expand-req\ 2534}#
+ (lambda (#{req\ 2541}#
+ #{opt\ 2542}#
+ #{rest\ 2543}#
+ #{kw\ 2544}#
+ #{body\ 2545}#)
(begin
- (let ((#{vars\ 2552}#
- (map #{gen-var\ 488}# #{req\ 2540}#))
- (#{labels\ 2553}#
- (#{gen-labels\ 393}# #{req\ 2540}#)))
+ (let ((#{vars\ 2553}#
+ (map #{gen-var\ 489}# #{req\ 2541}#))
+ (#{labels\ 2554}#
+ (#{gen-labels\ 394}# #{req\ 2541}#)))
(begin
- (let ((#{r*\ 2556}#
- (#{extend-var-env\ 368}#
- #{labels\ 2553}#
- #{vars\ 2552}#
- #{r\ 2519}#))
- (#{w*\ 2557}#
- (#{make-binding-wrap\ 422}#
- #{req\ 2540}#
- #{labels\ 2553}#
- #{w\ 2520}#)))
- (#{expand-opt\ 2535}#
- (map syntax->datum #{req\ 2540}#)
- #{opt\ 2541}#
- #{rest\ 2542}#
- #{kw\ 2543}#
- #{body\ 2544}#
- (reverse #{vars\ 2552}#)
- #{r*\ 2556}#
- #{w*\ 2557}#
+ (let ((#{r*\ 2557}#
+ (#{extend-var-env\ 369}#
+ #{labels\ 2554}#
+ #{vars\ 2553}#
+ #{r\ 2520}#))
+ (#{w*\ 2558}#
+ (#{make-binding-wrap\ 423}#
+ #{req\ 2541}#
+ #{labels\ 2554}#
+ #{w\ 2521}#)))
+ (#{expand-opt\ 2536}#
+ (map syntax->datum #{req\ 2541}#)
+ #{opt\ 2542}#
+ #{rest\ 2543}#
+ #{kw\ 2544}#
+ #{body\ 2545}#
+ (reverse #{vars\ 2553}#)
+ #{r*\ 2557}#
+ #{w*\ 2558}#
'()
'())))))))
- (#{expand-opt\ 2535}#
- (lambda (#{req\ 2558}#
- #{opt\ 2559}#
- #{rest\ 2560}#
- #{kw\ 2561}#
- #{body\ 2562}#
- #{vars\ 2563}#
- #{r*\ 2564}#
- #{w*\ 2565}#
- #{out\ 2566}#
- #{inits\ 2567}#)
- (if (pair? #{opt\ 2559}#)
- (let ((#{tmp\ 2580}# (car #{opt\ 2559}#)))
- (let ((#{tmp\ 2581}#
- ($sc-dispatch
- #{tmp\ 2580}#
- '(any any))))
- (if #{tmp\ 2581}#
+ (#{expand-opt\ 2536}#
+ (lambda (#{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ #{body\ 2563}#
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{out\ 2567}#
+ #{inits\ 2568}#)
+ (if (pair? #{opt\ 2560}#)
+ (let ((#{tmp\ 2581}# (car #{opt\ 2560}#)))
+ (let ((#{tmp\ 2582}#
+ ($sc-dispatch #{tmp\ 2581}# '(any any))))
+ (if #{tmp\ 2582}#
(@apply
- (lambda (#{id\ 2584}# #{i\ 2585}#)
+ (lambda (#{id\ 2585}# #{i\ 2586}#)
(begin
- (let ((#{v\ 2588}#
- (#{gen-var\ 488}# #{id\ 2584}#)))
+ (let ((#{v\ 2589}#
+ (#{gen-var\ 489}# #{id\ 2585}#)))
(begin
- (let ((#{l\ 2590}#
- (#{gen-labels\ 393}#
- (list #{v\ 2588}#))))
+ (let ((#{l\ 2591}#
+ (#{gen-labels\ 394}#
+ (list #{v\ 2589}#))))
(begin
- (let ((#{r**\ 2592}#
- (#{extend-var-env\ 368}#
- #{l\ 2590}#
- (list #{v\ 2588}#)
- #{r*\ 2564}#)))
+ (let ((#{r**\ 2593}#
+ (#{extend-var-env\ 369}#
+ #{l\ 2591}#
+ (list #{v\ 2589}#)
+ #{r*\ 2565}#)))
(begin
- (let ((#{w**\ 2594}#
- (#{make-binding-wrap\
422}#
- (list #{id\ 2584}#)
- #{l\ 2590}#
- #{w*\ 2565}#)))
- (#{expand-opt\ 2535}#
- #{req\ 2558}#
- (cdr #{opt\ 2559}#)
- #{rest\ 2560}#
- #{kw\ 2561}#
- #{body\ 2562}#
- (cons #{v\ 2588}#
- #{vars\ 2563}#)
- #{r**\ 2592}#
- #{w**\ 2594}#
+ (let ((#{w**\ 2595}#
+ (#{make-binding-wrap\
423}#
+ (list #{id\ 2585}#)
+ #{l\ 2591}#
+ #{w*\ 2566}#)))
+ (#{expand-opt\ 2536}#
+ #{req\ 2559}#
+ (cdr #{opt\ 2560}#)
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ #{body\ 2563}#
+ (cons #{v\ 2589}#
+ #{vars\ 2564}#)
+ #{r**\ 2593}#
+ #{w**\ 2595}#
(cons (syntax->datum
- #{id\ 2584}#)
- #{out\ 2566}#)
- (cons (#{chi\ 460}#
- #{i\ 2585}#
- #{r*\ 2564}#
- #{w*\ 2565}#
- #{mod\ 2522}#)
- #{inits\
2567}#)))))))))))
- #{tmp\ 2581}#)
+ #{id\ 2585}#)
+ #{out\ 2567}#)
+ (cons (#{chi\ 461}#
+ #{i\ 2586}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{mod\ 2523}#)
+ #{inits\
2568}#)))))))))))
+ #{tmp\ 2582}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2580}#))))
- (if #{rest\ 2560}#
+ #{tmp\ 2581}#))))
+ (if #{rest\ 2561}#
(begin
- (let ((#{v\ 2599}#
- (#{gen-var\ 488}# #{rest\ 2560}#)))
+ (let ((#{v\ 2600}#
+ (#{gen-var\ 489}# #{rest\ 2561}#)))
(begin
- (let ((#{l\ 2601}#
- (#{gen-labels\ 393}#
- (list #{v\ 2599}#))))
+ (let ((#{l\ 2602}#
+ (#{gen-labels\ 394}#
+ (list #{v\ 2600}#))))
(begin
- (let ((#{r*\ 2603}#
- (#{extend-var-env\ 368}#
- #{l\ 2601}#
- (list #{v\ 2599}#)
- #{r*\ 2564}#)))
+ (let ((#{r*\ 2604}#
+ (#{extend-var-env\ 369}#
+ #{l\ 2602}#
+ (list #{v\ 2600}#)
+ #{r*\ 2565}#)))
(begin
- (let ((#{w*\ 2605}#
- (#{make-binding-wrap\ 422}#
- (list #{rest\ 2560}#)
- #{l\ 2601}#
- #{w*\ 2565}#)))
- (#{expand-kw\ 2537}#
- #{req\ 2558}#
- (if (pair? #{out\ 2566}#)
- (reverse #{out\ 2566}#)
+ (let ((#{w*\ 2606}#
+ (#{make-binding-wrap\ 423}#
+ (list #{rest\ 2561}#)
+ #{l\ 2602}#
+ #{w*\ 2566}#)))
+ (#{expand-kw\ 2538}#
+ #{req\ 2559}#
+ (if (pair? #{out\ 2567}#)
+ (reverse #{out\ 2567}#)
#f)
- (syntax->datum #{rest\ 2560}#)
- (if (pair? #{kw\ 2561}#)
- (cdr #{kw\ 2561}#)
- #{kw\ 2561}#)
- #{body\ 2562}#
- (cons #{v\ 2599}# #{vars\ 2563}#)
- #{r*\ 2603}#
- #{w*\ 2605}#
- (if (pair? #{kw\ 2561}#)
- (car #{kw\ 2561}#)
+ (syntax->datum #{rest\ 2561}#)
+ (if (pair? #{kw\ 2562}#)
+ (cdr #{kw\ 2562}#)
+ #{kw\ 2562}#)
+ #{body\ 2563}#
+ (cons #{v\ 2600}# #{vars\ 2564}#)
+ #{r*\ 2604}#
+ #{w*\ 2606}#
+ (if (pair? #{kw\ 2562}#)
+ (car #{kw\ 2562}#)
#f)
'()
- #{inits\ 2567}#)))))))))
- (#{expand-kw\ 2537}#
- #{req\ 2558}#
- (if (pair? #{out\ 2566}#)
- (reverse #{out\ 2566}#)
+ #{inits\ 2568}#)))))))))
+ (#{expand-kw\ 2538}#
+ #{req\ 2559}#
+ (if (pair? #{out\ 2567}#)
+ (reverse #{out\ 2567}#)
#f)
#f
- (if (pair? #{kw\ 2561}#)
- (cdr #{kw\ 2561}#)
- #{kw\ 2561}#)
- #{body\ 2562}#
- #{vars\ 2563}#
- #{r*\ 2564}#
- #{w*\ 2565}#
- (if (pair? #{kw\ 2561}#) (car #{kw\ 2561}#) #f)
+ (if (pair? #{kw\ 2562}#)
+ (cdr #{kw\ 2562}#)
+ #{kw\ 2562}#)
+ #{body\ 2563}#
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ (if (pair? #{kw\ 2562}#) (car #{kw\ 2562}#) #f)
'()
- #{inits\ 2567}#)))))
- (#{expand-kw\ 2537}#
- (lambda (#{req\ 2607}#
- #{opt\ 2608}#
- #{rest\ 2609}#
- #{kw\ 2610}#
- #{body\ 2611}#
- #{vars\ 2612}#
- #{r*\ 2613}#
- #{w*\ 2614}#
- #{aok\ 2615}#
- #{out\ 2616}#
- #{inits\ 2617}#)
- (if (pair? #{kw\ 2610}#)
- (let ((#{tmp\ 2631}# (car #{kw\ 2610}#)))
- (let ((#{tmp\ 2632}#
- ($sc-dispatch
- #{tmp\ 2631}#
- '(any any any))))
- (if #{tmp\ 2632}#
+ #{inits\ 2568}#)))))
+ (#{expand-kw\ 2538}#
+ (lambda (#{req\ 2608}#
+ #{opt\ 2609}#
+ #{rest\ 2610}#
+ #{kw\ 2611}#
+ #{body\ 2612}#
+ #{vars\ 2613}#
+ #{r*\ 2614}#
+ #{w*\ 2615}#
+ #{aok\ 2616}#
+ #{out\ 2617}#
+ #{inits\ 2618}#)
+ (if (pair? #{kw\ 2611}#)
+ (let ((#{tmp\ 2632}# (car #{kw\ 2611}#)))
+ (let ((#{tmp\ 2633}#
+ ($sc-dispatch #{tmp\ 2632}# '(any any any))))
+ (if #{tmp\ 2633}#
(@apply
- (lambda (#{k\ 2636}# #{id\ 2637}# #{i\ 2638}#)
+ (lambda (#{k\ 2637}# #{id\ 2638}# #{i\ 2639}#)
(begin
- (let ((#{v\ 2641}#
- (#{gen-var\ 488}# #{id\ 2637}#)))
+ (let ((#{v\ 2642}#
+ (#{gen-var\ 489}# #{id\ 2638}#)))
(begin
- (let ((#{l\ 2643}#
- (#{gen-labels\ 393}#
- (list #{v\ 2641}#))))
+ (let ((#{l\ 2644}#
+ (#{gen-labels\ 394}#
+ (list #{v\ 2642}#))))
(begin
- (let ((#{r**\ 2645}#
- (#{extend-var-env\ 368}#
- #{l\ 2643}#
- (list #{v\ 2641}#)
- #{r*\ 2613}#)))
+ (let ((#{r**\ 2646}#
+ (#{extend-var-env\ 369}#
+ #{l\ 2644}#
+ (list #{v\ 2642}#)
+ #{r*\ 2614}#)))
(begin
- (let ((#{w**\ 2647}#
- (#{make-binding-wrap\
422}#
- (list #{id\ 2637}#)
- #{l\ 2643}#
- #{w*\ 2614}#)))
- (#{expand-kw\ 2537}#
- #{req\ 2607}#
- #{opt\ 2608}#
- #{rest\ 2609}#
- (cdr #{kw\ 2610}#)
- #{body\ 2611}#
- (cons #{v\ 2641}#
- #{vars\ 2612}#)
- #{r**\ 2645}#
- #{w**\ 2647}#
- #{aok\ 2615}#
+ (let ((#{w**\ 2648}#
+ (#{make-binding-wrap\
423}#
+ (list #{id\ 2638}#)
+ #{l\ 2644}#
+ #{w*\ 2615}#)))
+ (#{expand-kw\ 2538}#
+ #{req\ 2608}#
+ #{opt\ 2609}#
+ #{rest\ 2610}#
+ (cdr #{kw\ 2611}#)
+ #{body\ 2612}#
+ (cons #{v\ 2642}#
+ #{vars\ 2613}#)
+ #{r**\ 2646}#
+ #{w**\ 2648}#
+ #{aok\ 2616}#
(cons (list (syntax->datum
- #{k\ 2636}#)
+ #{k\ 2637}#)
(syntax->datum
- #{id\ 2637}#)
- #{v\ 2641}#)
- #{out\ 2616}#)
- (cons (#{chi\ 460}#
- #{i\ 2638}#
- #{r*\ 2613}#
- #{w*\ 2614}#
- #{mod\ 2522}#)
- #{inits\
2617}#)))))))))))
- #{tmp\ 2632}#)
+ #{id\ 2638}#)
+ #{v\ 2642}#)
+ #{out\ 2617}#)
+ (cons (#{chi\ 461}#
+ #{i\ 2639}#
+ #{r*\ 2614}#
+ #{w*\ 2615}#
+ #{mod\ 2523}#)
+ #{inits\
2618}#)))))))))))
+ #{tmp\ 2633}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2631}#))))
- (#{expand-body\ 2539}#
- #{req\ 2607}#
- #{opt\ 2608}#
- #{rest\ 2609}#
+ #{tmp\ 2632}#))))
+ (#{expand-body\ 2540}#
+ #{req\ 2608}#
+ #{opt\ 2609}#
+ #{rest\ 2610}#
(if (begin
- (let ((#{t\ 2651}# #{aok\ 2615}#))
- (if #{t\ 2651}#
- #{t\ 2651}#
- (pair? #{out\ 2616}#))))
- (cons #{aok\ 2615}# (reverse #{out\ 2616}#))
+ (let ((#{t\ 2652}# #{aok\ 2616}#))
+ (if #{t\ 2652}#
+ #{t\ 2652}#
+ (pair? #{out\ 2617}#))))
+ (cons #{aok\ 2616}# (reverse #{out\ 2617}#))
#f)
- #{body\ 2611}#
- (reverse #{vars\ 2612}#)
- #{r*\ 2613}#
- #{w*\ 2614}#
- (reverse #{inits\ 2617}#)
+ #{body\ 2612}#
+ (reverse #{vars\ 2613}#)
+ #{r*\ 2614}#
+ #{w*\ 2615}#
+ (reverse #{inits\ 2618}#)
'()))))
- (#{expand-body\ 2539}#
- (lambda (#{req\ 2653}#
- #{opt\ 2654}#
- #{rest\ 2655}#
- #{kw\ 2656}#
- #{body\ 2657}#
- #{vars\ 2658}#
- #{r*\ 2659}#
- #{w*\ 2660}#
- #{inits\ 2661}#
- #{meta\ 2662}#)
- (let ((#{tmp\ 2673}# #{body\ 2657}#))
- (let ((#{tmp\ 2674}#
+ (#{expand-body\ 2540}#
+ (lambda (#{req\ 2654}#
+ #{opt\ 2655}#
+ #{rest\ 2656}#
+ #{kw\ 2657}#
+ #{body\ 2658}#
+ #{vars\ 2659}#
+ #{r*\ 2660}#
+ #{w*\ 2661}#
+ #{inits\ 2662}#
+ #{meta\ 2663}#)
+ (let ((#{tmp\ 2674}# #{body\ 2658}#))
+ (let ((#{tmp\ 2675}#
($sc-dispatch
- #{tmp\ 2673}#
+ #{tmp\ 2674}#
'(any any . each-any))))
- (if (if #{tmp\ 2674}#
+ (if (if #{tmp\ 2675}#
(@apply
- (lambda (#{docstring\ 2678}#
- #{e1\ 2679}#
- #{e2\ 2680}#)
+ (lambda (#{docstring\ 2679}#
+ #{e1\ 2680}#
+ #{e2\ 2681}#)
(string?
- (syntax->datum #{docstring\ 2678}#)))
- #{tmp\ 2674}#)
+ (syntax->datum #{docstring\ 2679}#)))
+ #{tmp\ 2675}#)
#f)
(@apply
- (lambda (#{docstring\ 2684}#
- #{e1\ 2685}#
- #{e2\ 2686}#)
- (#{expand-body\ 2539}#
- #{req\ 2653}#
- #{opt\ 2654}#
- #{rest\ 2655}#
- #{kw\ 2656}#
- (cons #{e1\ 2685}# #{e2\ 2686}#)
- #{vars\ 2658}#
- #{r*\ 2659}#
- #{w*\ 2660}#
- #{inits\ 2661}#
+ (lambda (#{docstring\ 2685}#
+ #{e1\ 2686}#
+ #{e2\ 2687}#)
+ (#{expand-body\ 2540}#
+ #{req\ 2654}#
+ #{opt\ 2655}#
+ #{rest\ 2656}#
+ #{kw\ 2657}#
+ (cons #{e1\ 2686}# #{e2\ 2687}#)
+ #{vars\ 2659}#
+ #{r*\ 2660}#
+ #{w*\ 2661}#
+ #{inits\ 2662}#
(append
- #{meta\ 2662}#
+ #{meta\ 2663}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2684}#))))))
- #{tmp\ 2674}#)
- (let ((#{tmp\ 2689}#
+ #{docstring\ 2685}#))))))
+ #{tmp\ 2675}#)
+ (let ((#{tmp\ 2690}#
($sc-dispatch
- #{tmp\ 2673}#
+ #{tmp\ 2674}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 2689}#
+ (if #{tmp\ 2690}#
(@apply
- (lambda (#{k\ 2694}#
- #{v\ 2695}#
- #{e1\ 2696}#
- #{e2\ 2697}#)
- (#{expand-body\ 2539}#
- #{req\ 2653}#
- #{opt\ 2654}#
- #{rest\ 2655}#
- #{kw\ 2656}#
- (cons #{e1\ 2696}# #{e2\ 2697}#)
- #{vars\ 2658}#
- #{r*\ 2659}#
- #{w*\ 2660}#
- #{inits\ 2661}#
+ (lambda (#{k\ 2695}#
+ #{v\ 2696}#
+ #{e1\ 2697}#
+ #{e2\ 2698}#)
+ (#{expand-body\ 2540}#
+ #{req\ 2654}#
+ #{opt\ 2655}#
+ #{rest\ 2656}#
+ #{kw\ 2657}#
+ (cons #{e1\ 2697}# #{e2\ 2698}#)
+ #{vars\ 2659}#
+ #{r*\ 2660}#
+ #{w*\ 2661}#
+ #{inits\ 2662}#
(append
- #{meta\ 2662}#
+ #{meta\ 2663}#
(syntax->datum
- (map cons #{k\ 2694}# #{v\ 2695}#)))))
- #{tmp\ 2689}#)
- (let ((#{tmp\ 2701}#
+ (map cons #{k\ 2695}# #{v\ 2696}#)))))
+ #{tmp\ 2690}#)
+ (let ((#{tmp\ 2702}#
($sc-dispatch
- #{tmp\ 2673}#
+ #{tmp\ 2674}#
'(any . each-any))))
- (if #{tmp\ 2701}#
+ (if #{tmp\ 2702}#
(@apply
- (lambda (#{e1\ 2704}# #{e2\ 2705}#)
+ (lambda (#{e1\ 2705}# #{e2\ 2706}#)
(values
- #{meta\ 2662}#
- #{req\ 2653}#
- #{opt\ 2654}#
- #{rest\ 2655}#
- #{kw\ 2656}#
- #{inits\ 2661}#
- #{vars\ 2658}#
- (#{chi-body\ 468}#
- (cons #{e1\ 2704}# #{e2\ 2705}#)
- (#{source-wrap\ 446}#
- #{e\ 2518}#
- #{w\ 2520}#
- #{s\ 2521}#
- #{mod\ 2522}#)
- #{r*\ 2659}#
- #{w*\ 2660}#
- #{mod\ 2522}#)))
- #{tmp\ 2701}#)
+ #{meta\ 2663}#
+ #{req\ 2654}#
+ #{opt\ 2655}#
+ #{rest\ 2656}#
+ #{kw\ 2657}#
+ #{inits\ 2662}#
+ #{vars\ 2659}#
+ (#{chi-body\ 469}#
+ (cons #{e1\ 2705}# #{e2\ 2706}#)
+ (#{source-wrap\ 447}#
+ #{e\ 2519}#
+ #{w\ 2521}#
+ #{s\ 2522}#
+ #{mod\ 2523}#)
+ #{r*\ 2660}#
+ #{w*\ 2661}#
+ #{mod\ 2523}#)))
+ #{tmp\ 2702}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 2673}#)))))))))))
+ #{tmp\ 2674}#)))))))))))
(begin
- (let ((#{tmp\ 2707}# #{clauses\ 2524}#))
- (let ((#{tmp\ 2708}#
- ($sc-dispatch #{tmp\ 2707}# (quote ()))))
- (if #{tmp\ 2708}#
+ (let ((#{tmp\ 2708}# #{clauses\ 2525}#))
+ (let ((#{tmp\ 2709}# ($sc-dispatch #{tmp\ 2708}# '())))
+ (if #{tmp\ 2709}#
(@apply
- (lambda () (values (quote ()) #f))
- #{tmp\ 2708}#)
- (let ((#{tmp\ 2709}#
+ (lambda () (values '() #f))
+ #{tmp\ 2709}#)
+ (let ((#{tmp\ 2710}#
($sc-dispatch
- #{tmp\ 2707}#
+ #{tmp\ 2708}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 2709}#
+ (if #{tmp\ 2710}#
(@apply
- (lambda (#{args\ 2716}#
- #{e1\ 2717}#
- #{e2\ 2718}#
- #{args*\ 2719}#
- #{e1*\ 2720}#
- #{e2*\ 2721}#)
+ (lambda (#{args\ 2717}#
+ #{e1\ 2718}#
+ #{e2\ 2719}#
+ #{args*\ 2720}#
+ #{e1*\ 2721}#
+ #{e2*\ 2722}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2523}# #{args\ 2716}#))
- (lambda (#{req\ 2722}#
- #{opt\ 2723}#
- #{rest\ 2724}#
- #{kw\ 2725}#)
+ (#{get-formals\ 2524}# #{args\ 2717}#))
+ (lambda (#{req\ 2723}#
+ #{opt\ 2724}#
+ #{rest\ 2725}#
+ #{kw\ 2726}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2533}#
- #{req\ 2722}#
- #{opt\ 2723}#
- #{rest\ 2724}#
- #{kw\ 2725}#
- (cons #{e1\ 2717}# #{e2\ 2718}#)))
- (lambda (#{meta\ 2731}#
- #{req\ 2732}#
- #{opt\ 2733}#
- #{rest\ 2734}#
- #{kw\ 2735}#
- #{inits\ 2736}#
- #{vars\ 2737}#
- #{body\ 2738}#)
+ (#{expand-req\ 2534}#
+ #{req\ 2723}#
+ #{opt\ 2724}#
+ #{rest\ 2725}#
+ #{kw\ 2726}#
+ (cons #{e1\ 2718}# #{e2\ 2719}#)))
+ (lambda (#{meta\ 2732}#
+ #{req\ 2733}#
+ #{opt\ 2734}#
+ #{rest\ 2735}#
+ #{kw\ 2736}#
+ #{inits\ 2737}#
+ #{vars\ 2738}#
+ #{body\ 2739}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 484}#
- #{e\ 2518}#
- #{r\ 2519}#
- #{w\ 2520}#
- #{s\ 2521}#
- #{mod\ 2522}#
- #{get-formals\ 2523}#
- (map (lambda (#{tmp\ 2749}#
- #{tmp\ 2748}#
- #{tmp\ 2747}#)
- (cons #{tmp\ 2747}#
- (cons #{tmp\ 2748}#
- #{tmp\
2749}#)))
- #{e2*\ 2721}#
- #{e1*\ 2720}#
- #{args*\ 2719}#)))
- (lambda (#{meta*\ 2751}#
- #{else*\ 2752}#)
+ (#{chi-lambda-case\ 485}#
+ #{e\ 2519}#
+ #{r\ 2520}#
+ #{w\ 2521}#
+ #{s\ 2522}#
+ #{mod\ 2523}#
+ #{get-formals\ 2524}#
+ (map (lambda (#{tmp\ 2750}#
+ #{tmp\ 2749}#
+ #{tmp\ 2748}#)
+ (cons #{tmp\ 2748}#
+ (cons #{tmp\ 2749}#
+ #{tmp\
2750}#)))
+ #{e2*\ 2722}#
+ #{e1*\ 2721}#
+ #{args*\ 2720}#)))
+ (lambda (#{meta*\ 2752}#
+ #{else*\ 2753}#)
(values
(append
- #{meta\ 2731}#
- #{meta*\ 2751}#)
- (#{build-lambda-case\ 326}#
- #{s\ 2521}#
- #{req\ 2732}#
- #{opt\ 2733}#
- #{rest\ 2734}#
- #{kw\ 2735}#
- #{inits\ 2736}#
- #{vars\ 2737}#
- #{body\ 2738}#
- #{else*\ 2752}#)))))))))
- #{tmp\ 2709}#)
+ #{meta\ 2732}#
+ #{meta*\ 2752}#)
+ (#{build-lambda-case\ 327}#
+ #{s\ 2522}#
+ #{req\ 2733}#
+ #{opt\ 2734}#
+ #{rest\ 2735}#
+ #{kw\ 2736}#
+ #{inits\ 2737}#
+ #{vars\ 2738}#
+ #{body\ 2739}#
+ #{else*\ 2753}#)))))))))
+ #{tmp\ 2710}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2707}#))))))))))
- (#{strip\ 486}#
- (lambda (#{x\ 2755}# #{w\ 2756}#)
- (if (memq (quote top) (car #{w\ 2756}#))
- #{x\ 2755}#
+ #{tmp\ 2708}#))))))))))
+ (#{strip\ 487}#
+ (lambda (#{x\ 2756}# #{w\ 2757}#)
+ (if (memq 'top (car #{w\ 2757}#))
+ #{x\ 2756}#
(letrec*
- ((#{f\ 2763}#
- (lambda (#{x\ 2764}#)
- (if (#{syntax-object?\ 344}# #{x\ 2764}#)
- (#{strip\ 486}#
- (#{syntax-object-expression\ 346}# #{x\ 2764}#)
- (#{syntax-object-wrap\ 348}# #{x\ 2764}#))
- (if (pair? #{x\ 2764}#)
+ ((#{f\ 2764}#
+ (lambda (#{x\ 2765}#)
+ (if (#{syntax-object?\ 345}# #{x\ 2765}#)
+ (#{strip\ 487}#
+ (#{syntax-object-expression\ 347}# #{x\ 2765}#)
+ (#{syntax-object-wrap\ 349}# #{x\ 2765}#))
+ (if (pair? #{x\ 2765}#)
(begin
- (let ((#{a\ 2771}# (#{f\ 2763}# (car #{x\ 2764}#)))
- (#{d\ 2772}#
- (#{f\ 2763}# (cdr #{x\ 2764}#))))
- (if (if (eq? #{a\ 2771}# (car #{x\ 2764}#))
- (eq? #{d\ 2772}# (cdr #{x\ 2764}#))
+ (let ((#{a\ 2772}# (#{f\ 2764}# (car #{x\ 2765}#)))
+ (#{d\ 2773}#
+ (#{f\ 2764}# (cdr #{x\ 2765}#))))
+ (if (if (eq? #{a\ 2772}# (car #{x\ 2765}#))
+ (eq? #{d\ 2773}# (cdr #{x\ 2765}#))
#f)
- #{x\ 2764}#
- (cons #{a\ 2771}# #{d\ 2772}#))))
- (if (vector? #{x\ 2764}#)
+ #{x\ 2765}#
+ (cons #{a\ 2772}# #{d\ 2773}#))))
+ (if (vector? #{x\ 2765}#)
(begin
- (let ((#{old\ 2778}# (vector->list #{x\ 2764}#)))
+ (let ((#{old\ 2779}# (vector->list #{x\ 2765}#)))
(begin
- (let ((#{new\ 2780}#
- (map #{f\ 2763}# #{old\ 2778}#)))
- (if (#{and-map*\ 36}#
+ (let ((#{new\ 2781}#
+ (map #{f\ 2764}# #{old\ 2779}#)))
+ (if (#{and-map*\ 37}#
eq?
- #{old\ 2778}#
- #{new\ 2780}#)
- #{x\ 2764}#
- (list->vector #{new\ 2780}#))))))
- #{x\ 2764}#))))))
- (begin (#{f\ 2763}# #{x\ 2755}#))))))
- (#{gen-var\ 488}#
- (lambda (#{id\ 2782}#)
+ #{old\ 2779}#
+ #{new\ 2781}#)
+ #{x\ 2765}#
+ (list->vector #{new\ 2781}#))))))
+ #{x\ 2765}#))))))
+ (begin (#{f\ 2764}# #{x\ 2756}#))))))
+ (#{gen-var\ 489}#
+ (lambda (#{id\ 2783}#)
(begin
- (let ((#{id\ 2785}#
- (if (#{syntax-object?\ 344}# #{id\ 2782}#)
- (#{syntax-object-expression\ 346}# #{id\ 2782}#)
- #{id\ 2782}#)))
+ (let ((#{id\ 2786}#
+ (if (#{syntax-object?\ 345}# #{id\ 2783}#)
+ (#{syntax-object-expression\ 347}# #{id\ 2783}#)
+ #{id\ 2783}#)))
(gensym
- (string-append (symbol->string #{id\ 2785}#) " "))))))
- (#{lambda-var-list\ 490}#
- (lambda (#{vars\ 2787}#)
+ (string-append (symbol->string #{id\ 2786}#) " "))))))
+ (#{lambda-var-list\ 491}#
+ (lambda (#{vars\ 2788}#)
(letrec*
- ((#{lvl\ 2793}#
- (lambda (#{vars\ 2794}# #{ls\ 2795}# #{w\ 2796}#)
- (if (pair? #{vars\ 2794}#)
- (#{lvl\ 2793}#
- (cdr #{vars\ 2794}#)
- (cons (#{wrap\ 444}#
- (car #{vars\ 2794}#)
- #{w\ 2796}#
+ ((#{lvl\ 2794}#
+ (lambda (#{vars\ 2795}# #{ls\ 2796}# #{w\ 2797}#)
+ (if (pair? #{vars\ 2795}#)
+ (#{lvl\ 2794}#
+ (cdr #{vars\ 2795}#)
+ (cons (#{wrap\ 445}#
+ (car #{vars\ 2795}#)
+ #{w\ 2797}#
#f)
- #{ls\ 2795}#)
- #{w\ 2796}#)
- (if (#{id?\ 378}# #{vars\ 2794}#)
- (cons (#{wrap\ 444}# #{vars\ 2794}# #{w\ 2796}# #f)
- #{ls\ 2795}#)
- (if (null? #{vars\ 2794}#)
- #{ls\ 2795}#
- (if (#{syntax-object?\ 344}# #{vars\ 2794}#)
- (#{lvl\ 2793}#
- (#{syntax-object-expression\ 346}#
- #{vars\ 2794}#)
- #{ls\ 2795}#
- (#{join-wraps\ 426}#
- #{w\ 2796}#
- (#{syntax-object-wrap\ 348}# #{vars\ 2794}#)))
- (cons #{vars\ 2794}# #{ls\ 2795}#))))))))
- (begin
- (#{lvl\ 2793}#
- #{vars\ 2787}#
- '()
- '(())))))))
+ #{ls\ 2796}#)
+ #{w\ 2797}#)
+ (if (#{id?\ 379}# #{vars\ 2795}#)
+ (cons (#{wrap\ 445}# #{vars\ 2795}# #{w\ 2797}# #f)
+ #{ls\ 2796}#)
+ (if (null? #{vars\ 2795}#)
+ #{ls\ 2796}#
+ (if (#{syntax-object?\ 345}# #{vars\ 2795}#)
+ (#{lvl\ 2794}#
+ (#{syntax-object-expression\ 347}#
+ #{vars\ 2795}#)
+ #{ls\ 2796}#
+ (#{join-wraps\ 427}#
+ #{w\ 2797}#
+ (#{syntax-object-wrap\ 349}# #{vars\ 2795}#)))
+ (cons #{vars\ 2795}# #{ls\ 2796}#))))))))
+ (begin (#{lvl\ 2794}# #{vars\ 2788}# '() '(())))))))
(begin
- (set! #{make-primitive-ref\ 242}#
- (lambda (#{src\ 756}# #{name\ 757}#)
+ (set! #{make-primitive-ref\ 243}#
+ (lambda (#{src\ 757}# #{name\ 758}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 756}#
- #{name\ 757}#)))
- (set! #{fx+\ 281}# +)
- (set! #{fx-\ 283}# -)
- (set! #{fx=\ 285}# =)
- (set! #{fx<\ 287}# <)
- (set! #{set-syntax-object-expression!\ 352}#
- (lambda (#{x\ 1134}# #{update\ 1135}#)
- (vector-set! #{x\ 1134}# 1 #{update\ 1135}#)))
- (set! #{set-syntax-object-wrap!\ 354}#
- (lambda (#{x\ 1138}# #{update\ 1139}#)
- (vector-set! #{x\ 1138}# 2 #{update\ 1139}#)))
- (set! #{set-syntax-object-module!\ 356}#
- (lambda (#{x\ 1142}# #{update\ 1143}#)
- (vector-set! #{x\ 1142}# 3 #{update\ 1143}#)))
- (set! #{ribcage?\ 398}#
- (lambda (#{x\ 1223}#)
- (if (vector? #{x\ 1223}#)
- (if (= (vector-length #{x\ 1223}#) 4)
- (eq? (vector-ref #{x\ 1223}# 0) (quote ribcage))
+ #{src\ 757}#
+ #{name\ 758}#)))
+ (set! #{fx+\ 282}# +)
+ (set! #{fx-\ 284}# -)
+ (set! #{fx=\ 286}# =)
+ (set! #{fx<\ 288}# <)
+ (set! #{set-syntax-object-expression!\ 353}#
+ (lambda (#{x\ 1135}# #{update\ 1136}#)
+ (vector-set! #{x\ 1135}# 1 #{update\ 1136}#)))
+ (set! #{set-syntax-object-wrap!\ 355}#
+ (lambda (#{x\ 1139}# #{update\ 1140}#)
+ (vector-set! #{x\ 1139}# 2 #{update\ 1140}#)))
+ (set! #{set-syntax-object-module!\ 357}#
+ (lambda (#{x\ 1143}# #{update\ 1144}#)
+ (vector-set! #{x\ 1143}# 3 #{update\ 1144}#)))
+ (set! #{ribcage?\ 399}#
+ (lambda (#{x\ 1224}#)
+ (if (vector? #{x\ 1224}#)
+ (if (= (vector-length #{x\ 1224}#) 4)
+ (eq? (vector-ref #{x\ 1224}# 0) 'ribcage)
#f)
#f)))
(begin
- (#{global-extend\ 374}#
+ (#{global-extend\ 375}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 374}#
+ (#{global-extend\ 375}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 374}#
+ (#{global-extend\ 375}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2807}#
- #{r\ 2808}#
- #{w\ 2809}#
- #{s\ 2810}#
- #{mod\ 2811}#)
- (let ((#{tmp\ 2817}# #{e\ 2807}#))
- (let ((#{tmp\ 2818}#
+ (lambda (#{e\ 2808}#
+ #{r\ 2809}#
+ #{w\ 2810}#
+ #{s\ 2811}#
+ #{mod\ 2812}#)
+ (let ((#{tmp\ 2818}# #{e\ 2808}#))
+ (let ((#{tmp\ 2819}#
($sc-dispatch
- #{tmp\ 2817}#
+ #{tmp\ 2818}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2818}#
+ (if (if #{tmp\ 2819}#
(@apply
- (lambda (#{var\ 2823}#
- #{val\ 2824}#
- #{e1\ 2825}#
- #{e2\ 2826}#)
- (#{valid-bound-ids?\ 438}# #{var\ 2823}#))
- #{tmp\ 2818}#)
+ (lambda (#{var\ 2824}#
+ #{val\ 2825}#
+ #{e1\ 2826}#
+ #{e2\ 2827}#)
+ (#{valid-bound-ids?\ 439}# #{var\ 2824}#))
+ #{tmp\ 2819}#)
#f)
(@apply
- (lambda (#{var\ 2832}#
- #{val\ 2833}#
- #{e1\ 2834}#
- #{e2\ 2835}#)
+ (lambda (#{var\ 2833}#
+ #{val\ 2834}#
+ #{e1\ 2835}#
+ #{e2\ 2836}#)
(begin
- (let ((#{names\ 2837}#
- (map (lambda (#{x\ 2838}#)
- (#{id-var-name\ 432}#
- #{x\ 2838}#
- #{w\ 2809}#))
- #{var\ 2832}#)))
+ (let ((#{names\ 2838}#
+ (map (lambda (#{x\ 2839}#)
+ (#{id-var-name\ 433}#
+ #{x\ 2839}#
+ #{w\ 2810}#))
+ #{var\ 2833}#)))
(begin
(for-each
- (lambda (#{id\ 2841}# #{n\ 2842}#)
+ (lambda (#{id\ 2842}# #{n\ 2843}#)
(begin
- (let ((#{atom-key\ 2847}#
- (car (#{lookup\ 372}#
- #{n\ 2842}#
- #{r\ 2808}#
- #{mod\ 2811}#))))
- (if (eqv? #{atom-key\ 2847}#
+ (let ((#{atom-key\ 2848}#
+ (car (#{lookup\ 373}#
+ #{n\ 2843}#
+ #{r\ 2809}#
+ #{mod\ 2812}#))))
+ (if (eqv? #{atom-key\ 2848}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2807}#
- (#{source-wrap\ 446}#
- #{id\ 2841}#
- #{w\ 2809}#
- #{s\ 2810}#
- #{mod\ 2811}#))))))
- #{var\ 2832}#
- #{names\ 2837}#)
- (#{chi-body\ 468}#
- (cons #{e1\ 2834}# #{e2\ 2835}#)
- (#{source-wrap\ 446}#
- #{e\ 2807}#
- #{w\ 2809}#
- #{s\ 2810}#
- #{mod\ 2811}#)
- (#{extend-env\ 366}#
- #{names\ 2837}#
+ #{e\ 2808}#
+ (#{source-wrap\ 447}#
+ #{id\ 2842}#
+ #{w\ 2810}#
+ #{s\ 2811}#
+ #{mod\ 2812}#))))))
+ #{var\ 2833}#
+ #{names\ 2838}#)
+ (#{chi-body\ 469}#
+ (cons #{e1\ 2835}# #{e2\ 2836}#)
+ (#{source-wrap\ 447}#
+ #{e\ 2808}#
+ #{w\ 2810}#
+ #{s\ 2811}#
+ #{mod\ 2812}#)
+ (#{extend-env\ 367}#
+ #{names\ 2838}#
(begin
- (let ((#{trans-r\ 2853}#
- (#{macros-only-env\ 370}#
- #{r\ 2808}#)))
- (map (lambda (#{x\ 2854}#)
+ (let ((#{trans-r\ 2854}#
+ (#{macros-only-env\ 371}#
+ #{r\ 2809}#)))
+ (map (lambda (#{x\ 2855}#)
(cons 'macro
-
(#{eval-local-transformer\ 472}#
- (#{chi\ 460}#
- #{x\ 2854}#
- #{trans-r\ 2853}#
- #{w\ 2809}#
- #{mod\ 2811}#)
- #{mod\ 2811}#)))
- #{val\ 2833}#)))
- #{r\ 2808}#)
- #{w\ 2809}#
- #{mod\ 2811}#)))))
- #{tmp\ 2818}#)
- (let ((#{_\ 2859}# #{tmp\ 2817}#))
+
(#{eval-local-transformer\ 473}#
+ (#{chi\ 461}#
+ #{x\ 2855}#
+ #{trans-r\ 2854}#
+ #{w\ 2810}#
+ #{mod\ 2812}#)
+ #{mod\ 2812}#)))
+ #{val\ 2834}#)))
+ #{r\ 2809}#)
+ #{w\ 2810}#
+ #{mod\ 2812}#)))))
+ #{tmp\ 2819}#)
+ (let ((#{_\ 2860}# #{tmp\ 2818}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 446}#
- #{e\ 2807}#
- #{w\ 2809}#
- #{s\ 2810}#
- #{mod\ 2811}#))))))))
- (#{global-extend\ 374}#
+ (#{source-wrap\ 447}#
+ #{e\ 2808}#
+ #{w\ 2810}#
+ #{s\ 2811}#
+ #{mod\ 2812}#))))))))
+ (#{global-extend\ 375}#
'core
'quote
- (lambda (#{e\ 2860}#
- #{r\ 2861}#
- #{w\ 2862}#
- #{s\ 2863}#
- #{mod\ 2864}#)
- (let ((#{tmp\ 2870}# #{e\ 2860}#))
- (let ((#{tmp\ 2871}#
- ($sc-dispatch #{tmp\ 2870}# (quote (_ any)))))
- (if #{tmp\ 2871}#
+ (lambda (#{e\ 2861}#
+ #{r\ 2862}#
+ #{w\ 2863}#
+ #{s\ 2864}#
+ #{mod\ 2865}#)
+ (let ((#{tmp\ 2871}# #{e\ 2861}#))
+ (let ((#{tmp\ 2872}#
+ ($sc-dispatch #{tmp\ 2871}# '(_ any))))
+ (if #{tmp\ 2872}#
(@apply
- (lambda (#{e\ 2873}#)
- (#{build-data\ 330}#
- #{s\ 2863}#
- (#{strip\ 486}# #{e\ 2873}# #{w\ 2862}#)))
- #{tmp\ 2871}#)
- (let ((#{_\ 2875}# #{tmp\ 2870}#))
+ (lambda (#{e\ 2874}#)
+ (#{build-data\ 331}#
+ #{s\ 2864}#
+ (#{strip\ 487}# #{e\ 2874}# #{w\ 2863}#)))
+ #{tmp\ 2872}#)
+ (let ((#{_\ 2876}# #{tmp\ 2871}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 446}#
- #{e\ 2860}#
- #{w\ 2862}#
- #{s\ 2863}#
- #{mod\ 2864}#))))))))
- (#{global-extend\ 374}#
+ (#{source-wrap\ 447}#
+ #{e\ 2861}#
+ #{w\ 2863}#
+ #{s\ 2864}#
+ #{mod\ 2865}#))))))))
+ (#{global-extend\ 375}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 2877}#
- (lambda (#{src\ 2892}#
- #{e\ 2893}#
- #{r\ 2894}#
- #{maps\ 2895}#
- #{ellipsis?\ 2896}#
- #{mod\ 2897}#)
- (if (#{id?\ 378}# #{e\ 2893}#)
+ ((#{gen-syntax\ 2878}#
+ (lambda (#{src\ 2893}#
+ #{e\ 2894}#
+ #{r\ 2895}#
+ #{maps\ 2896}#
+ #{ellipsis?\ 2897}#
+ #{mod\ 2898}#)
+ (if (#{id?\ 379}# #{e\ 2894}#)
(begin
- (let ((#{label\ 2905}#
- (#{id-var-name\ 432}#
- #{e\ 2893}#
- '(()))))
+ (let ((#{label\ 2906}#
+ (#{id-var-name\ 433}# #{e\ 2894}# '(()))))
(begin
- (let ((#{b\ 2908}#
- (#{lookup\ 372}#
- #{label\ 2905}#
- #{r\ 2894}#
- #{mod\ 2897}#)))
- (if (eq? (car #{b\ 2908}#) (quote syntax))
+ (let ((#{b\ 2909}#
+ (#{lookup\ 373}#
+ #{label\ 2906}#
+ #{r\ 2895}#
+ #{mod\ 2898}#)))
+ (if (eq? (car #{b\ 2909}#) 'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 2911}#
- (cdr #{b\ 2908}#)))
- (#{gen-ref\ 2879}#
- #{src\ 2892}#
- (car #{var.lev\ 2911}#)
- (cdr #{var.lev\ 2911}#)
- #{maps\ 2895}#))))
- (lambda (#{var\ 2913}# #{maps\ 2914}#)
+ (let ((#{var.lev\ 2912}#
+ (cdr #{b\ 2909}#)))
+ (#{gen-ref\ 2880}#
+ #{src\ 2893}#
+ (car #{var.lev\ 2912}#)
+ (cdr #{var.lev\ 2912}#)
+ #{maps\ 2896}#))))
+ (lambda (#{var\ 2914}# #{maps\ 2915}#)
(values
- (list (quote ref) #{var\ 2913}#)
- #{maps\ 2914}#)))
- (if (#{ellipsis?\ 2896}# #{e\ 2893}#)
+ (list 'ref #{var\ 2914}#)
+ #{maps\ 2915}#)))
+ (if (#{ellipsis?\ 2897}# #{e\ 2894}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2892}#)
+ #{src\ 2893}#)
(values
- (list (quote quote) #{e\ 2893}#)
- #{maps\ 2895}#)))))))
- (let ((#{tmp\ 2919}# #{e\ 2893}#))
- (let ((#{tmp\ 2920}#
- ($sc-dispatch
- #{tmp\ 2919}#
- '(any any))))
- (if (if #{tmp\ 2920}#
+ (list 'quote #{e\ 2894}#)
+ #{maps\ 2896}#)))))))
+ (let ((#{tmp\ 2920}# #{e\ 2894}#))
+ (let ((#{tmp\ 2921}#
+ ($sc-dispatch #{tmp\ 2920}# '(any any))))
+ (if (if #{tmp\ 2921}#
(@apply
- (lambda (#{dots\ 2923}# #{e\ 2924}#)
- (#{ellipsis?\ 2896}# #{dots\ 2923}#))
- #{tmp\ 2920}#)
+ (lambda (#{dots\ 2924}# #{e\ 2925}#)
+ (#{ellipsis?\ 2897}# #{dots\ 2924}#))
+ #{tmp\ 2921}#)
#f)
(@apply
- (lambda (#{dots\ 2927}# #{e\ 2928}#)
- (#{gen-syntax\ 2877}#
- #{src\ 2892}#
- #{e\ 2928}#
- #{r\ 2894}#
- #{maps\ 2895}#
- (lambda (#{x\ 2929}#) #f)
- #{mod\ 2897}#))
- #{tmp\ 2920}#)
- (let ((#{tmp\ 2931}#
+ (lambda (#{dots\ 2928}# #{e\ 2929}#)
+ (#{gen-syntax\ 2878}#
+ #{src\ 2893}#
+ #{e\ 2929}#
+ #{r\ 2895}#
+ #{maps\ 2896}#
+ (lambda (#{x\ 2930}#) #f)
+ #{mod\ 2898}#))
+ #{tmp\ 2921}#)
+ (let ((#{tmp\ 2932}#
($sc-dispatch
- #{tmp\ 2919}#
+ #{tmp\ 2920}#
'(any any . any))))
- (if (if #{tmp\ 2931}#
+ (if (if #{tmp\ 2932}#
(@apply
- (lambda (#{x\ 2935}#
- #{dots\ 2936}#
- #{y\ 2937}#)
- (#{ellipsis?\ 2896}# #{dots\ 2936}#))
- #{tmp\ 2931}#)
+ (lambda (#{x\ 2936}#
+ #{dots\ 2937}#
+ #{y\ 2938}#)
+ (#{ellipsis?\ 2897}# #{dots\ 2937}#))
+ #{tmp\ 2932}#)
#f)
(@apply
- (lambda (#{x\ 2941}#
- #{dots\ 2942}#
- #{y\ 2943}#)
+ (lambda (#{x\ 2942}#
+ #{dots\ 2943}#
+ #{y\ 2944}#)
(letrec*
- ((#{f\ 2947}#
- (lambda (#{y\ 2948}# #{k\ 2949}#)
- (let ((#{tmp\ 2956}# #{y\ 2948}#))
- (let ((#{tmp\ 2957}#
+ ((#{f\ 2948}#
+ (lambda (#{y\ 2949}# #{k\ 2950}#)
+ (let ((#{tmp\ 2957}# #{y\ 2949}#))
+ (let ((#{tmp\ 2958}#
($sc-dispatch
- #{tmp\ 2956}#
+ #{tmp\ 2957}#
'(any . any))))
- (if (if #{tmp\ 2957}#
+ (if (if #{tmp\ 2958}#
(@apply
- (lambda (#{dots\ 2960}#
- #{y\ 2961}#)
- (#{ellipsis?\ 2896}#
- #{dots\ 2960}#))
- #{tmp\ 2957}#)
+ (lambda (#{dots\ 2961}#
+ #{y\ 2962}#)
+ (#{ellipsis?\ 2897}#
+ #{dots\ 2961}#))
+ #{tmp\ 2958}#)
#f)
(@apply
- (lambda (#{dots\ 2964}#
- #{y\ 2965}#)
- (#{f\ 2947}#
- #{y\ 2965}#
- (lambda (#{maps\
2966}#)
+ (lambda (#{dots\ 2965}#
+ #{y\ 2966}#)
+ (#{f\ 2948}#
+ #{y\ 2966}#
+ (lambda (#{maps\
2967}#)
(call-with-values
(lambda ()
- (#{k\ 2949}#
+ (#{k\ 2950}#
(cons '()
- #{maps\
2966}#)))
- (lambda (#{x\
2968}#
- #{maps\
2969}#)
- (if (null? (car
#{maps\ 2969}#))
+ #{maps\
2967}#)))
+ (lambda (#{x\
2969}#
+ #{maps\
2970}#)
+ (if (null? (car
#{maps\ 2970}#))
(syntax-violation
'syntax
"extra
ellipsis"
- #{src\
2892}#)
+ #{src\
2893}#)
(values
-
(#{gen-mappend\ 2881}#
- #{x\ 2968}#
- (car
#{maps\ 2969}#))
- (cdr #{maps\
2969}#))))))))
- #{tmp\ 2957}#)
- (let ((#{_\ 2973}#
- #{tmp\ 2956}#))
+
(#{gen-mappend\ 2882}#
+ #{x\ 2969}#
+ (car
#{maps\ 2970}#))
+ (cdr #{maps\
2970}#))))))))
+ #{tmp\ 2958}#)
+ (let ((#{_\ 2974}#
+ #{tmp\ 2957}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 2877}#
- #{src\ 2892}#
- #{y\ 2948}#
- #{r\ 2894}#
- #{maps\ 2895}#
- #{ellipsis?\ 2896}#
- #{mod\ 2897}#))
- (lambda (#{y\ 2974}#
- #{maps\ 2975}#)
+ (#{gen-syntax\ 2878}#
+ #{src\ 2893}#
+ #{y\ 2949}#
+ #{r\ 2895}#
+ #{maps\ 2896}#
+ #{ellipsis?\ 2897}#
+ #{mod\ 2898}#))
+ (lambda (#{y\ 2975}#
+ #{maps\ 2976}#)
(call-with-values
(lambda ()
- (#{k\ 2949}#
- #{maps\ 2975}#))
- (lambda (#{x\ 2978}#
- #{maps\
2979}#)
+ (#{k\ 2950}#
+ #{maps\ 2976}#))
+ (lambda (#{x\ 2979}#
+ #{maps\
2980}#)
(values
- (#{gen-append\
2887}#
- #{x\ 2978}#
- #{y\ 2974}#)
- #{maps\
2979}#))))))))))))
+ (#{gen-append\
2888}#
+ #{x\ 2979}#
+ #{y\ 2975}#)
+ #{maps\
2980}#))))))))))))
(begin
- (#{f\ 2947}#
- #{y\ 2943}#
- (lambda (#{maps\ 2950}#)
+ (#{f\ 2948}#
+ #{y\ 2944}#
+ (lambda (#{maps\ 2951}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2877}#
- #{src\ 2892}#
- #{x\ 2941}#
- #{r\ 2894}#
- (cons '()
- #{maps\ 2950}#)
- #{ellipsis?\ 2896}#
- #{mod\ 2897}#))
- (lambda (#{x\ 2952}#
- #{maps\ 2953}#)
- (if (null? (car #{maps\
2953}#))
+ (#{gen-syntax\ 2878}#
+ #{src\ 2893}#
+ #{x\ 2942}#
+ #{r\ 2895}#
+ (cons '() #{maps\ 2951}#)
+ #{ellipsis?\ 2897}#
+ #{mod\ 2898}#))
+ (lambda (#{x\ 2953}#
+ #{maps\ 2954}#)
+ (if (null? (car #{maps\
2954}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2892}#)
+ #{src\ 2893}#)
(values
- (#{gen-map\ 2883}#
- #{x\ 2952}#
- (car #{maps\ 2953}#))
- (cdr #{maps\
2953}#))))))))))
- #{tmp\ 2931}#)
- (let ((#{tmp\ 2982}#
+ (#{gen-map\ 2884}#
+ #{x\ 2953}#
+ (car #{maps\ 2954}#))
+ (cdr #{maps\
2954}#))))))))))
+ #{tmp\ 2932}#)
+ (let ((#{tmp\ 2983}#
($sc-dispatch
- #{tmp\ 2919}#
+ #{tmp\ 2920}#
'(any . any))))
- (if #{tmp\ 2982}#
+ (if #{tmp\ 2983}#
(@apply
- (lambda (#{x\ 2985}# #{y\ 2986}#)
+ (lambda (#{x\ 2986}# #{y\ 2987}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2877}#
- #{src\ 2892}#
- #{x\ 2985}#
- #{r\ 2894}#
- #{maps\ 2895}#
- #{ellipsis?\ 2896}#
- #{mod\ 2897}#))
- (lambda (#{x\ 2987}# #{maps\ 2988}#)
+ (#{gen-syntax\ 2878}#
+ #{src\ 2893}#
+ #{x\ 2986}#
+ #{r\ 2895}#
+ #{maps\ 2896}#
+ #{ellipsis?\ 2897}#
+ #{mod\ 2898}#))
+ (lambda (#{x\ 2988}# #{maps\ 2989}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2877}#
- #{src\ 2892}#
- #{y\ 2986}#
- #{r\ 2894}#
- #{maps\ 2988}#
- #{ellipsis?\ 2896}#
- #{mod\ 2897}#))
- (lambda (#{y\ 2991}#
- #{maps\ 2992}#)
+ (#{gen-syntax\ 2878}#
+ #{src\ 2893}#
+ #{y\ 2987}#
+ #{r\ 2895}#
+ #{maps\ 2989}#
+ #{ellipsis?\ 2897}#
+ #{mod\ 2898}#))
+ (lambda (#{y\ 2992}#
+ #{maps\ 2993}#)
(values
- (#{gen-cons\ 2885}#
- #{x\ 2987}#
- #{y\ 2991}#)
- #{maps\ 2992}#))))))
- #{tmp\ 2982}#)
- (let ((#{tmp\ 2995}#
+ (#{gen-cons\ 2886}#
+ #{x\ 2988}#
+ #{y\ 2992}#)
+ #{maps\ 2993}#))))))
+ #{tmp\ 2983}#)
+ (let ((#{tmp\ 2996}#
($sc-dispatch
- #{tmp\ 2919}#
+ #{tmp\ 2920}#
'#(vector (any . each-any)))))
- (if #{tmp\ 2995}#
+ (if #{tmp\ 2996}#
(@apply
- (lambda (#{e1\ 2998}# #{e2\ 2999}#)
+ (lambda (#{e1\ 2999}# #{e2\ 3000}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2877}#
- #{src\ 2892}#
- (cons #{e1\ 2998}#
- #{e2\ 2999}#)
- #{r\ 2894}#
- #{maps\ 2895}#
- #{ellipsis?\ 2896}#
- #{mod\ 2897}#))
- (lambda (#{e\ 3001}#
- #{maps\ 3002}#)
+ (#{gen-syntax\ 2878}#
+ #{src\ 2893}#
+ (cons #{e1\ 2999}#
+ #{e2\ 3000}#)
+ #{r\ 2895}#
+ #{maps\ 2896}#
+ #{ellipsis?\ 2897}#
+ #{mod\ 2898}#))
+ (lambda (#{e\ 3002}#
+ #{maps\ 3003}#)
(values
- (#{gen-vector\ 2889}#
- #{e\ 3001}#)
- #{maps\ 3002}#))))
- #{tmp\ 2995}#)
- (let ((#{_\ 3006}# #{tmp\ 2919}#))
+ (#{gen-vector\ 2890}#
+ #{e\ 3002}#)
+ #{maps\ 3003}#))))
+ #{tmp\ 2996}#)
+ (let ((#{_\ 3007}# #{tmp\ 2920}#))
(values
- (list (quote quote) #{e\ 2893}#)
- #{maps\ 2895}#))))))))))))))
- (#{gen-ref\ 2879}#
- (lambda (#{src\ 3008}#
- #{var\ 3009}#
- #{level\ 3010}#
- #{maps\ 3011}#)
- (if (#{fx=\ 285}# #{level\ 3010}# 0)
- (values #{var\ 3009}# #{maps\ 3011}#)
- (if (null? #{maps\ 3011}#)
+ (list 'quote #{e\ 2894}#)
+ #{maps\ 2896}#))))))))))))))
+ (#{gen-ref\ 2880}#
+ (lambda (#{src\ 3009}#
+ #{var\ 3010}#
+ #{level\ 3011}#
+ #{maps\ 3012}#)
+ (if (#{fx=\ 286}# #{level\ 3011}# 0)
+ (values #{var\ 3010}# #{maps\ 3012}#)
+ (if (null? #{maps\ 3012}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 3008}#)
+ #{src\ 3009}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2879}#
- #{src\ 3008}#
- #{var\ 3009}#
- (#{fx-\ 283}# #{level\ 3010}# 1)
- (cdr #{maps\ 3011}#)))
- (lambda (#{outer-var\ 3016}# #{outer-maps\ 3017}#)
+ (#{gen-ref\ 2880}#
+ #{src\ 3009}#
+ #{var\ 3010}#
+ (#{fx-\ 284}# #{level\ 3011}# 1)
+ (cdr #{maps\ 3012}#)))
+ (lambda (#{outer-var\ 3017}# #{outer-maps\ 3018}#)
(begin
- (let ((#{b\ 3021}#
- (assq #{outer-var\ 3016}#
- (car #{maps\ 3011}#))))
- (if #{b\ 3021}#
- (values (cdr #{b\ 3021}#) #{maps\ 3011}#)
+ (let ((#{b\ 3022}#
+ (assq #{outer-var\ 3017}#
+ (car #{maps\ 3012}#))))
+ (if #{b\ 3022}#
+ (values (cdr #{b\ 3022}#) #{maps\ 3012}#)
(begin
- (let ((#{inner-var\ 3023}#
- (#{gen-var\ 488}# (quote tmp))))
+ (let ((#{inner-var\ 3024}#
+ (#{gen-var\ 489}# 'tmp)))
(values
- #{inner-var\ 3023}#
- (cons (cons (cons #{outer-var\ 3016}#
- #{inner-var\ 3023}#)
- (car #{maps\ 3011}#))
- #{outer-maps\
3017}#)))))))))))))
- (#{gen-mappend\ 2881}#
- (lambda (#{e\ 3024}# #{map-env\ 3025}#)
+ #{inner-var\ 3024}#
+ (cons (cons (cons #{outer-var\ 3017}#
+ #{inner-var\ 3024}#)
+ (car #{maps\ 3012}#))
+ #{outer-maps\
3018}#)))))))))))))
+ (#{gen-mappend\ 2882}#
+ (lambda (#{e\ 3025}# #{map-env\ 3026}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2883}# #{e\ 3024}# #{map-env\ 3025}#))))
- (#{gen-map\ 2883}#
- (lambda (#{e\ 3029}# #{map-env\ 3030}#)
+ (#{gen-map\ 2884}# #{e\ 3025}# #{map-env\ 3026}#))))
+ (#{gen-map\ 2884}#
+ (lambda (#{e\ 3030}# #{map-env\ 3031}#)
(begin
- (let ((#{formals\ 3035}# (map cdr #{map-env\ 3030}#))
- (#{actuals\ 3036}#
- (map (lambda (#{x\ 3037}#)
- (list (quote ref) (car #{x\ 3037}#)))
- #{map-env\ 3030}#)))
- (if (eq? (car #{e\ 3029}#) (quote ref))
- (car #{actuals\ 3036}#)
+ (let ((#{formals\ 3036}# (map cdr #{map-env\ 3031}#))
+ (#{actuals\ 3037}#
+ (map (lambda (#{x\ 3038}#)
+ (list 'ref (car #{x\ 3038}#)))
+ #{map-env\ 3031}#)))
+ (if (eq? (car #{e\ 3030}#) 'ref)
+ (car #{actuals\ 3037}#)
(if (and-map
- (lambda (#{x\ 3044}#)
- (if (eq? (car #{x\ 3044}#) (quote ref))
- (memq (car (cdr #{x\ 3044}#))
- #{formals\ 3035}#)
+ (lambda (#{x\ 3045}#)
+ (if (eq? (car #{x\ 3045}#) 'ref)
+ (memq (car (cdr #{x\ 3045}#))
+ #{formals\ 3036}#)
#f))
- (cdr #{e\ 3029}#))
+ (cdr #{e\ 3030}#))
(cons 'map
- (cons (list 'primitive
- (car #{e\ 3029}#))
+ (cons (list 'primitive (car #{e\ 3030}#))
(map (begin
- (let ((#{r\ 3050}#
+ (let ((#{r\ 3051}#
(map cons
- #{formals\ 3035}#
- #{actuals\
3036}#)))
- (lambda (#{x\ 3051}#)
- (cdr (assq (car (cdr #{x\
3051}#))
- #{r\ 3050}#)))))
- (cdr #{e\ 3029}#))))
+ #{formals\ 3036}#
+ #{actuals\
3037}#)))
+ (lambda (#{x\ 3052}#)
+ (cdr (assq (car (cdr #{x\
3052}#))
+ #{r\ 3051}#)))))
+ (cdr #{e\ 3030}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 3035}#
- #{e\ 3029}#)
- #{actuals\ 3036}#))))))))
- (#{gen-cons\ 2885}#
- (lambda (#{x\ 3055}# #{y\ 3056}#)
+ #{formals\ 3036}#
+ #{e\ 3030}#)
+ #{actuals\ 3037}#))))))))
+ (#{gen-cons\ 2886}#
+ (lambda (#{x\ 3056}# #{y\ 3057}#)
(begin
- (let ((#{atom-key\ 3061}# (car #{y\ 3056}#)))
- (if (eqv? #{atom-key\ 3061}# (quote quote))
- (if (eq? (car #{x\ 3055}#) (quote quote))
+ (let ((#{atom-key\ 3062}# (car #{y\ 3057}#)))
+ (if (eqv? #{atom-key\ 3062}# 'quote)
+ (if (eq? (car #{x\ 3056}#) 'quote)
(list 'quote
- (cons (car (cdr #{x\ 3055}#))
- (car (cdr #{y\ 3056}#))))
- (if (eq? (car (cdr #{y\ 3056}#)) (quote ()))
- (list (quote list) #{x\ 3055}#)
- (list (quote cons) #{x\ 3055}# #{y\ 3056}#)))
- (if (eqv? #{atom-key\ 3061}# (quote list))
- (cons 'list
- (cons #{x\ 3055}# (cdr #{y\ 3056}#)))
- (list (quote cons) #{x\ 3055}# #{y\ 3056}#)))))))
- (#{gen-append\ 2887}#
- (lambda (#{x\ 3070}# #{y\ 3071}#)
- (if (equal? #{y\ 3071}# (quote (quote ())))
- #{x\ 3070}#
- (list (quote append) #{x\ 3070}# #{y\ 3071}#))))
- (#{gen-vector\ 2889}#
- (lambda (#{x\ 3075}#)
- (if (eq? (car #{x\ 3075}#) (quote list))
- (cons (quote vector) (cdr #{x\ 3075}#))
- (if (eq? (car #{x\ 3075}#) (quote quote))
+ (cons (car (cdr #{x\ 3056}#))
+ (car (cdr #{y\ 3057}#))))
+ (if (eq? (car (cdr #{y\ 3057}#)) '())
+ (list 'list #{x\ 3056}#)
+ (list 'cons #{x\ 3056}# #{y\ 3057}#)))
+ (if (eqv? #{atom-key\ 3062}# 'list)
+ (cons 'list (cons #{x\ 3056}# (cdr #{y\ 3057}#)))
+ (list 'cons #{x\ 3056}# #{y\ 3057}#)))))))
+ (#{gen-append\ 2888}#
+ (lambda (#{x\ 3071}# #{y\ 3072}#)
+ (if (equal? #{y\ 3072}# ''())
+ #{x\ 3071}#
+ (list 'append #{x\ 3071}# #{y\ 3072}#))))
+ (#{gen-vector\ 2890}#
+ (lambda (#{x\ 3076}#)
+ (if (eq? (car #{x\ 3076}#) 'list)
+ (cons 'vector (cdr #{x\ 3076}#))
+ (if (eq? (car #{x\ 3076}#) 'quote)
(list 'quote
- (list->vector (car (cdr #{x\ 3075}#))))
- (list (quote list->vector) #{x\ 3075}#)))))
- (#{regen\ 2891}#
- (lambda (#{x\ 3085}#)
+ (list->vector (car (cdr #{x\ 3076}#))))
+ (list 'list->vector #{x\ 3076}#)))))
+ (#{regen\ 2892}#
+ (lambda (#{x\ 3086}#)
(begin
- (let ((#{atom-key\ 3089}# (car #{x\ 3085}#)))
- (if (eqv? #{atom-key\ 3089}# (quote ref))
- (#{build-lexical-reference\ 310}#
+ (let ((#{atom-key\ 3090}# (car #{x\ 3086}#)))
+ (if (eqv? #{atom-key\ 3090}# 'ref)
+ (#{build-lexical-reference\ 311}#
'value
#f
- (car (cdr #{x\ 3085}#))
- (car (cdr #{x\ 3085}#)))
- (if (eqv? #{atom-key\ 3089}# (quote primitive))
- (#{build-primref\ 328}#
+ (car (cdr #{x\ 3086}#))
+ (car (cdr #{x\ 3086}#)))
+ (if (eqv? #{atom-key\ 3090}# 'primitive)
+ (#{build-primref\ 329}#
#f
- (car (cdr #{x\ 3085}#)))
- (if (eqv? #{atom-key\ 3089}# (quote quote))
- (#{build-data\ 330}# #f (car (cdr #{x\ 3085}#)))
- (if (eqv? #{atom-key\ 3089}# (quote lambda))
- (if (list? (car (cdr #{x\ 3085}#)))
- (#{build-simple-lambda\ 322}#
+ (car (cdr #{x\ 3086}#)))
+ (if (eqv? #{atom-key\ 3090}# 'quote)
+ (#{build-data\ 331}# #f (car (cdr #{x\ 3086}#)))
+ (if (eqv? #{atom-key\ 3090}# 'lambda)
+ (if (list? (car (cdr #{x\ 3086}#)))
+ (#{build-simple-lambda\ 323}#
#f
- (car (cdr #{x\ 3085}#))
+ (car (cdr #{x\ 3086}#))
#f
- (car (cdr #{x\ 3085}#))
+ (car (cdr #{x\ 3086}#))
'()
- (#{regen\ 2891}#
- (car (cdr (cdr #{x\ 3085}#)))))
- (error "how did we get here" #{x\ 3085}#))
- (#{build-application\ 304}#
+ (#{regen\ 2892}#
+ (car (cdr (cdr #{x\ 3086}#)))))
+ (error "how did we get here" #{x\ 3086}#))
+ (#{build-application\ 305}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 329}#
#f
- (car #{x\ 3085}#))
- (map #{regen\ 2891}#
- (cdr #{x\ 3085}#))))))))))))
+ (car #{x\ 3086}#))
+ (map #{regen\ 2892}#
+ (cdr #{x\ 3086}#))))))))))))
(begin
- (lambda (#{e\ 3101}#
- #{r\ 3102}#
- #{w\ 3103}#
- #{s\ 3104}#
- #{mod\ 3105}#)
+ (lambda (#{e\ 3102}#
+ #{r\ 3103}#
+ #{w\ 3104}#
+ #{s\ 3105}#
+ #{mod\ 3106}#)
(begin
- (let ((#{e\ 3112}#
- (#{source-wrap\ 446}#
- #{e\ 3101}#
- #{w\ 3103}#
- #{s\ 3104}#
- #{mod\ 3105}#)))
- (let ((#{tmp\ 3113}# #{e\ 3112}#))
- (let ((#{tmp\ 3114}#
- ($sc-dispatch
- #{tmp\ 3113}#
- '(_ any))))
- (if #{tmp\ 3114}#
+ (let ((#{e\ 3113}#
+ (#{source-wrap\ 447}#
+ #{e\ 3102}#
+ #{w\ 3104}#
+ #{s\ 3105}#
+ #{mod\ 3106}#)))
+ (let ((#{tmp\ 3114}# #{e\ 3113}#))
+ (let ((#{tmp\ 3115}#
+ ($sc-dispatch #{tmp\ 3114}# '(_ any))))
+ (if #{tmp\ 3115}#
(@apply
- (lambda (#{x\ 3116}#)
+ (lambda (#{x\ 3117}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2877}#
- #{e\ 3112}#
- #{x\ 3116}#
- #{r\ 3102}#
+ (#{gen-syntax\ 2878}#
+ #{e\ 3113}#
+ #{x\ 3117}#
+ #{r\ 3103}#
'()
- #{ellipsis?\ 476}#
- #{mod\ 3105}#))
- (lambda (#{e\ 3117}# #{maps\ 3118}#)
- (#{regen\ 2891}# #{e\ 3117}#))))
- #{tmp\ 3114}#)
- (let ((#{_\ 3122}# #{tmp\ 3113}#))
+ #{ellipsis?\ 477}#
+ #{mod\ 3106}#))
+ (lambda (#{e\ 3118}# #{maps\ 3119}#)
+ (#{regen\ 2892}# #{e\ 3118}#))))
+ #{tmp\ 3115}#)
+ (let ((#{_\ 3123}# #{tmp\ 3114}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3112}#)))))))))))
- (#{global-extend\ 374}#
+ #{e\ 3113}#)))))))))))
+ (#{global-extend\ 375}#
'core
'lambda
- (lambda (#{e\ 3123}#
- #{r\ 3124}#
- #{w\ 3125}#
- #{s\ 3126}#
- #{mod\ 3127}#)
- (let ((#{tmp\ 3133}# #{e\ 3123}#))
- (let ((#{tmp\ 3134}#
+ (lambda (#{e\ 3124}#
+ #{r\ 3125}#
+ #{w\ 3126}#
+ #{s\ 3127}#
+ #{mod\ 3128}#)
+ (let ((#{tmp\ 3134}# #{e\ 3124}#))
+ (let ((#{tmp\ 3135}#
($sc-dispatch
- #{tmp\ 3133}#
+ #{tmp\ 3134}#
'(_ any any . each-any))))
- (if #{tmp\ 3134}#
+ (if #{tmp\ 3135}#
(@apply
- (lambda (#{args\ 3138}# #{e1\ 3139}# #{e2\ 3140}#)
+ (lambda (#{args\ 3139}# #{e1\ 3140}# #{e2\ 3141}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 478}# #{args\ 3138}#))
- (lambda (#{req\ 3141}#
- #{opt\ 3142}#
- #{rest\ 3143}#
- #{kw\ 3144}#)
+ (#{lambda-formals\ 479}# #{args\ 3139}#))
+ (lambda (#{req\ 3142}#
+ #{opt\ 3143}#
+ #{rest\ 3144}#
+ #{kw\ 3145}#)
(letrec*
- ((#{lp\ 3152}#
- (lambda (#{body\ 3153}# #{meta\ 3154}#)
- (let ((#{tmp\ 3156}# #{body\ 3153}#))
- (let ((#{tmp\ 3157}#
+ ((#{lp\ 3153}#
+ (lambda (#{body\ 3154}# #{meta\ 3155}#)
+ (let ((#{tmp\ 3157}# #{body\ 3154}#))
+ (let ((#{tmp\ 3158}#
($sc-dispatch
- #{tmp\ 3156}#
+ #{tmp\ 3157}#
'(any any . each-any))))
- (if (if #{tmp\ 3157}#
+ (if (if #{tmp\ 3158}#
(@apply
- (lambda (#{docstring\ 3161}#
- #{e1\ 3162}#
- #{e2\ 3163}#)
+ (lambda (#{docstring\ 3162}#
+ #{e1\ 3163}#
+ #{e2\ 3164}#)
(string?
(syntax->datum
- #{docstring\ 3161}#)))
- #{tmp\ 3157}#)
+ #{docstring\ 3162}#)))
+ #{tmp\ 3158}#)
#f)
(@apply
- (lambda (#{docstring\ 3167}#
- #{e1\ 3168}#
- #{e2\ 3169}#)
- (#{lp\ 3152}#
- (cons #{e1\ 3168}#
- #{e2\ 3169}#)
+ (lambda (#{docstring\ 3168}#
+ #{e1\ 3169}#
+ #{e2\ 3170}#)
+ (#{lp\ 3153}#
+ (cons #{e1\ 3169}#
+ #{e2\ 3170}#)
(append
- #{meta\ 3154}#
+ #{meta\ 3155}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
3167}#))))))
- #{tmp\ 3157}#)
- (let ((#{tmp\ 3172}#
+ #{docstring\
3168}#))))))
+ #{tmp\ 3158}#)
+ (let ((#{tmp\ 3173}#
($sc-dispatch
- #{tmp\ 3156}#
+ #{tmp\ 3157}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 3172}#
+ (if #{tmp\ 3173}#
(@apply
- (lambda (#{k\ 3177}#
- #{v\ 3178}#
- #{e1\ 3179}#
- #{e2\ 3180}#)
- (#{lp\ 3152}#
- (cons #{e1\ 3179}#
- #{e2\ 3180}#)
+ (lambda (#{k\ 3178}#
+ #{v\ 3179}#
+ #{e1\ 3180}#
+ #{e2\ 3181}#)
+ (#{lp\ 3153}#
+ (cons #{e1\ 3180}#
+ #{e2\ 3181}#)
(append
- #{meta\ 3154}#
+ #{meta\ 3155}#
(syntax->datum
(map cons
- #{k\ 3177}#
- #{v\ 3178}#)))))
- #{tmp\ 3172}#)
- (let ((#{_\ 3185}#
- #{tmp\ 3156}#))
- (#{chi-simple-lambda\ 480}#
- #{e\ 3123}#
- #{r\ 3124}#
- #{w\ 3125}#
- #{s\ 3126}#
- #{mod\ 3127}#
- #{req\ 3141}#
- #{rest\ 3143}#
- #{meta\ 3154}#
- #{body\ 3153}#))))))))))
+ #{k\ 3178}#
+ #{v\ 3179}#)))))
+ #{tmp\ 3173}#)
+ (let ((#{_\ 3186}#
+ #{tmp\ 3157}#))
+ (#{chi-simple-lambda\ 481}#
+ #{e\ 3124}#
+ #{r\ 3125}#
+ #{w\ 3126}#
+ #{s\ 3127}#
+ #{mod\ 3128}#
+ #{req\ 3142}#
+ #{rest\ 3144}#
+ #{meta\ 3155}#
+ #{body\ 3154}#))))))))))
(begin
- (#{lp\ 3152}#
- (cons #{e1\ 3139}# #{e2\ 3140}#)
+ (#{lp\ 3153}#
+ (cons #{e1\ 3140}# #{e2\ 3141}#)
'()))))))
- #{tmp\ 3134}#)
- (let ((#{_\ 3187}# #{tmp\ 3133}#))
+ #{tmp\ 3135}#)
+ (let ((#{_\ 3188}# #{tmp\ 3134}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3123}#)))))))
- (#{global-extend\ 374}#
+ #{e\ 3124}#)))))))
+ (#{global-extend\ 375}#
'core
'lambda*
- (lambda (#{e\ 3188}#
- #{r\ 3189}#
- #{w\ 3190}#
- #{s\ 3191}#
- #{mod\ 3192}#)
- (let ((#{tmp\ 3198}# #{e\ 3188}#))
- (let ((#{tmp\ 3199}#
+ (lambda (#{e\ 3189}#
+ #{r\ 3190}#
+ #{w\ 3191}#
+ #{s\ 3192}#
+ #{mod\ 3193}#)
+ (let ((#{tmp\ 3199}# #{e\ 3189}#))
+ (let ((#{tmp\ 3200}#
($sc-dispatch
- #{tmp\ 3198}#
+ #{tmp\ 3199}#
'(_ any any . each-any))))
- (if #{tmp\ 3199}#
+ (if #{tmp\ 3200}#
(@apply
- (lambda (#{args\ 3203}# #{e1\ 3204}# #{e2\ 3205}#)
+ (lambda (#{args\ 3204}# #{e1\ 3205}# #{e2\ 3206}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 484}#
- #{e\ 3188}#
- #{r\ 3189}#
- #{w\ 3190}#
- #{s\ 3191}#
- #{mod\ 3192}#
- #{lambda*-formals\ 482}#
- (list (cons #{args\ 3203}#
- (cons #{e1\ 3204}#
- #{e2\ 3205}#)))))
- (lambda (#{meta\ 3207}# #{lcase\ 3208}#)
- (#{build-case-lambda\ 324}#
- #{s\ 3191}#
- #{meta\ 3207}#
- #{lcase\ 3208}#))))
- #{tmp\ 3199}#)
- (let ((#{_\ 3212}# #{tmp\ 3198}#))
+ (#{chi-lambda-case\ 485}#
+ #{e\ 3189}#
+ #{r\ 3190}#
+ #{w\ 3191}#
+ #{s\ 3192}#
+ #{mod\ 3193}#
+ #{lambda*-formals\ 483}#
+ (list (cons #{args\ 3204}#
+ (cons #{e1\ 3205}#
+ #{e2\ 3206}#)))))
+ (lambda (#{meta\ 3208}# #{lcase\ 3209}#)
+ (#{build-case-lambda\ 325}#
+ #{s\ 3192}#
+ #{meta\ 3208}#
+ #{lcase\ 3209}#))))
+ #{tmp\ 3200}#)
+ (let ((#{_\ 3213}# #{tmp\ 3199}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3188}#)))))))
- (#{global-extend\ 374}#
+ #{e\ 3189}#)))))))
+ (#{global-extend\ 375}#
'core
'case-lambda
- (lambda (#{e\ 3213}#
- #{r\ 3214}#
- #{w\ 3215}#
- #{s\ 3216}#
- #{mod\ 3217}#)
- (let ((#{tmp\ 3223}# #{e\ 3213}#))
- (let ((#{tmp\ 3224}#
+ (lambda (#{e\ 3214}#
+ #{r\ 3215}#
+ #{w\ 3216}#
+ #{s\ 3217}#
+ #{mod\ 3218}#)
+ (let ((#{tmp\ 3224}# #{e\ 3214}#))
+ (let ((#{tmp\ 3225}#
($sc-dispatch
- #{tmp\ 3223}#
+ #{tmp\ 3224}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3224}#
+ (if #{tmp\ 3225}#
(@apply
- (lambda (#{args\ 3231}#
- #{e1\ 3232}#
- #{e2\ 3233}#
- #{args*\ 3234}#
- #{e1*\ 3235}#
- #{e2*\ 3236}#)
+ (lambda (#{args\ 3232}#
+ #{e1\ 3233}#
+ #{e2\ 3234}#
+ #{args*\ 3235}#
+ #{e1*\ 3236}#
+ #{e2*\ 3237}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 484}#
- #{e\ 3213}#
- #{r\ 3214}#
- #{w\ 3215}#
- #{s\ 3216}#
- #{mod\ 3217}#
- #{lambda-formals\ 478}#
- (cons (cons #{args\ 3231}#
- (cons #{e1\ 3232}# #{e2\ 3233}#))
- (map (lambda (#{tmp\ 3240}#
- #{tmp\ 3239}#
- #{tmp\ 3238}#)
- (cons #{tmp\ 3238}#
- (cons #{tmp\ 3239}#
- #{tmp\ 3240}#)))
- #{e2*\ 3236}#
- #{e1*\ 3235}#
- #{args*\ 3234}#))))
- (lambda (#{meta\ 3242}# #{lcase\ 3243}#)
- (#{build-case-lambda\ 324}#
- #{s\ 3216}#
- #{meta\ 3242}#
- #{lcase\ 3243}#))))
- #{tmp\ 3224}#)
- (let ((#{_\ 3247}# #{tmp\ 3223}#))
+ (#{chi-lambda-case\ 485}#
+ #{e\ 3214}#
+ #{r\ 3215}#
+ #{w\ 3216}#
+ #{s\ 3217}#
+ #{mod\ 3218}#
+ #{lambda-formals\ 479}#
+ (cons (cons #{args\ 3232}#
+ (cons #{e1\ 3233}# #{e2\ 3234}#))
+ (map (lambda (#{tmp\ 3241}#
+ #{tmp\ 3240}#
+ #{tmp\ 3239}#)
+ (cons #{tmp\ 3239}#
+ (cons #{tmp\ 3240}#
+ #{tmp\ 3241}#)))
+ #{e2*\ 3237}#
+ #{e1*\ 3236}#
+ #{args*\ 3235}#))))
+ (lambda (#{meta\ 3243}# #{lcase\ 3244}#)
+ (#{build-case-lambda\ 325}#
+ #{s\ 3217}#
+ #{meta\ 3243}#
+ #{lcase\ 3244}#))))
+ #{tmp\ 3225}#)
+ (let ((#{_\ 3248}# #{tmp\ 3224}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3213}#)))))))
- (#{global-extend\ 374}#
+ #{e\ 3214}#)))))))
+ (#{global-extend\ 375}#
'core
'case-lambda*
- (lambda (#{e\ 3248}#
- #{r\ 3249}#
- #{w\ 3250}#
- #{s\ 3251}#
- #{mod\ 3252}#)
- (let ((#{tmp\ 3258}# #{e\ 3248}#))
- (let ((#{tmp\ 3259}#
+ (lambda (#{e\ 3249}#
+ #{r\ 3250}#
+ #{w\ 3251}#
+ #{s\ 3252}#
+ #{mod\ 3253}#)
+ (let ((#{tmp\ 3259}# #{e\ 3249}#))
+ (let ((#{tmp\ 3260}#
($sc-dispatch
- #{tmp\ 3258}#
+ #{tmp\ 3259}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3259}#
+ (if #{tmp\ 3260}#
(@apply
- (lambda (#{args\ 3266}#
- #{e1\ 3267}#
- #{e2\ 3268}#
- #{args*\ 3269}#
- #{e1*\ 3270}#
- #{e2*\ 3271}#)
+ (lambda (#{args\ 3267}#
+ #{e1\ 3268}#
+ #{e2\ 3269}#
+ #{args*\ 3270}#
+ #{e1*\ 3271}#
+ #{e2*\ 3272}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 484}#
- #{e\ 3248}#
- #{r\ 3249}#
- #{w\ 3250}#
- #{s\ 3251}#
- #{mod\ 3252}#
- #{lambda*-formals\ 482}#
- (cons (cons #{args\ 3266}#
- (cons #{e1\ 3267}# #{e2\ 3268}#))
- (map (lambda (#{tmp\ 3275}#
- #{tmp\ 3274}#
- #{tmp\ 3273}#)
- (cons #{tmp\ 3273}#
- (cons #{tmp\ 3274}#
- #{tmp\ 3275}#)))
- #{e2*\ 3271}#
- #{e1*\ 3270}#
- #{args*\ 3269}#))))
- (lambda (#{meta\ 3277}# #{lcase\ 3278}#)
- (#{build-case-lambda\ 324}#
- #{s\ 3251}#
- #{meta\ 3277}#
- #{lcase\ 3278}#))))
- #{tmp\ 3259}#)
- (let ((#{_\ 3282}# #{tmp\ 3258}#))
+ (#{chi-lambda-case\ 485}#
+ #{e\ 3249}#
+ #{r\ 3250}#
+ #{w\ 3251}#
+ #{s\ 3252}#
+ #{mod\ 3253}#
+ #{lambda*-formals\ 483}#
+ (cons (cons #{args\ 3267}#
+ (cons #{e1\ 3268}# #{e2\ 3269}#))
+ (map (lambda (#{tmp\ 3276}#
+ #{tmp\ 3275}#
+ #{tmp\ 3274}#)
+ (cons #{tmp\ 3274}#
+ (cons #{tmp\ 3275}#
+ #{tmp\ 3276}#)))
+ #{e2*\ 3272}#
+ #{e1*\ 3271}#
+ #{args*\ 3270}#))))
+ (lambda (#{meta\ 3278}# #{lcase\ 3279}#)
+ (#{build-case-lambda\ 325}#
+ #{s\ 3252}#
+ #{meta\ 3278}#
+ #{lcase\ 3279}#))))
+ #{tmp\ 3260}#)
+ (let ((#{_\ 3283}# #{tmp\ 3259}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3248}#)))))))
- (#{global-extend\ 374}#
+ #{e\ 3249}#)))))))
+ (#{global-extend\ 375}#
'core
'let
(letrec*
- ((#{chi-let\ 3284}#
- (lambda (#{e\ 3285}#
- #{r\ 3286}#
- #{w\ 3287}#
- #{s\ 3288}#
- #{mod\ 3289}#
- #{constructor\ 3290}#
- #{ids\ 3291}#
- #{vals\ 3292}#
- #{exps\ 3293}#)
- (if (not (#{valid-bound-ids?\ 438}# #{ids\ 3291}#))
+ ((#{chi-let\ 3285}#
+ (lambda (#{e\ 3286}#
+ #{r\ 3287}#
+ #{w\ 3288}#
+ #{s\ 3289}#
+ #{mod\ 3290}#
+ #{constructor\ 3291}#
+ #{ids\ 3292}#
+ #{vals\ 3293}#
+ #{exps\ 3294}#)
+ (if (not (#{valid-bound-ids?\ 439}# #{ids\ 3292}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3285}#)
+ #{e\ 3286}#)
(begin
- (let ((#{labels\ 3305}#
- (#{gen-labels\ 393}# #{ids\ 3291}#))
- (#{new-vars\ 3306}#
- (map #{gen-var\ 488}# #{ids\ 3291}#)))
+ (let ((#{labels\ 3306}#
+ (#{gen-labels\ 394}# #{ids\ 3292}#))
+ (#{new-vars\ 3307}#
+ (map #{gen-var\ 489}# #{ids\ 3292}#)))
(begin
- (let ((#{nw\ 3309}#
- (#{make-binding-wrap\ 422}#
- #{ids\ 3291}#
- #{labels\ 3305}#
- #{w\ 3287}#))
- (#{nr\ 3310}#
- (#{extend-var-env\ 368}#
- #{labels\ 3305}#
- #{new-vars\ 3306}#
- #{r\ 3286}#)))
- (#{constructor\ 3290}#
- #{s\ 3288}#
- (map syntax->datum #{ids\ 3291}#)
- #{new-vars\ 3306}#
- (map (lambda (#{x\ 3311}#)
- (#{chi\ 460}#
- #{x\ 3311}#
- #{r\ 3286}#
- #{w\ 3287}#
- #{mod\ 3289}#))
- #{vals\ 3292}#)
- (#{chi-body\ 468}#
- #{exps\ 3293}#
- (#{source-wrap\ 446}#
- #{e\ 3285}#
- #{nw\ 3309}#
- #{s\ 3288}#
- #{mod\ 3289}#)
- #{nr\ 3310}#
- #{nw\ 3309}#
- #{mod\ 3289}#))))))))))
+ (let ((#{nw\ 3310}#
+ (#{make-binding-wrap\ 423}#
+ #{ids\ 3292}#
+ #{labels\ 3306}#
+ #{w\ 3288}#))
+ (#{nr\ 3311}#
+ (#{extend-var-env\ 369}#
+ #{labels\ 3306}#
+ #{new-vars\ 3307}#
+ #{r\ 3287}#)))
+ (#{constructor\ 3291}#
+ #{s\ 3289}#
+ (map syntax->datum #{ids\ 3292}#)
+ #{new-vars\ 3307}#
+ (map (lambda (#{x\ 3312}#)
+ (#{chi\ 461}#
+ #{x\ 3312}#
+ #{r\ 3287}#
+ #{w\ 3288}#
+ #{mod\ 3290}#))
+ #{vals\ 3293}#)
+ (#{chi-body\ 469}#
+ #{exps\ 3294}#
+ (#{source-wrap\ 447}#
+ #{e\ 3286}#
+ #{nw\ 3310}#
+ #{s\ 3289}#
+ #{mod\ 3290}#)
+ #{nr\ 3311}#
+ #{nw\ 3310}#
+ #{mod\ 3290}#))))))))))
(begin
- (lambda (#{e\ 3313}#
- #{r\ 3314}#
- #{w\ 3315}#
- #{s\ 3316}#
- #{mod\ 3317}#)
- (let ((#{tmp\ 3323}# #{e\ 3313}#))
- (let ((#{tmp\ 3324}#
+ (lambda (#{e\ 3314}#
+ #{r\ 3315}#
+ #{w\ 3316}#
+ #{s\ 3317}#
+ #{mod\ 3318}#)
+ (let ((#{tmp\ 3324}# #{e\ 3314}#))
+ (let ((#{tmp\ 3325}#
($sc-dispatch
- #{tmp\ 3323}#
+ #{tmp\ 3324}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3324}#
+ (if (if #{tmp\ 3325}#
(@apply
- (lambda (#{id\ 3329}#
- #{val\ 3330}#
- #{e1\ 3331}#
- #{e2\ 3332}#)
- (and-map #{id?\ 378}# #{id\ 3329}#))
- #{tmp\ 3324}#)
+ (lambda (#{id\ 3330}#
+ #{val\ 3331}#
+ #{e1\ 3332}#
+ #{e2\ 3333}#)
+ (and-map #{id?\ 379}# #{id\ 3330}#))
+ #{tmp\ 3325}#)
#f)
(@apply
- (lambda (#{id\ 3338}#
- #{val\ 3339}#
- #{e1\ 3340}#
- #{e2\ 3341}#)
- (#{chi-let\ 3284}#
- #{e\ 3313}#
- #{r\ 3314}#
- #{w\ 3315}#
- #{s\ 3316}#
- #{mod\ 3317}#
- #{build-let\ 334}#
- #{id\ 3338}#
- #{val\ 3339}#
- (cons #{e1\ 3340}# #{e2\ 3341}#)))
- #{tmp\ 3324}#)
- (let ((#{tmp\ 3345}#
+ (lambda (#{id\ 3339}#
+ #{val\ 3340}#
+ #{e1\ 3341}#
+ #{e2\ 3342}#)
+ (#{chi-let\ 3285}#
+ #{e\ 3314}#
+ #{r\ 3315}#
+ #{w\ 3316}#
+ #{s\ 3317}#
+ #{mod\ 3318}#
+ #{build-let\ 335}#
+ #{id\ 3339}#
+ #{val\ 3340}#
+ (cons #{e1\ 3341}# #{e2\ 3342}#)))
+ #{tmp\ 3325}#)
+ (let ((#{tmp\ 3346}#
($sc-dispatch
- #{tmp\ 3323}#
+ #{tmp\ 3324}#
'(_ any
#(each (any any))
any
.
each-any))))
- (if (if #{tmp\ 3345}#
+ (if (if #{tmp\ 3346}#
(@apply
- (lambda (#{f\ 3351}#
- #{id\ 3352}#
- #{val\ 3353}#
- #{e1\ 3354}#
- #{e2\ 3355}#)
- (if (#{id?\ 378}# #{f\ 3351}#)
- (and-map #{id?\ 378}# #{id\ 3352}#)
+ (lambda (#{f\ 3352}#
+ #{id\ 3353}#
+ #{val\ 3354}#
+ #{e1\ 3355}#
+ #{e2\ 3356}#)
+ (if (#{id?\ 379}# #{f\ 3352}#)
+ (and-map #{id?\ 379}# #{id\ 3353}#)
#f))
- #{tmp\ 3345}#)
+ #{tmp\ 3346}#)
#f)
(@apply
- (lambda (#{f\ 3364}#
- #{id\ 3365}#
- #{val\ 3366}#
- #{e1\ 3367}#
- #{e2\ 3368}#)
- (#{chi-let\ 3284}#
- #{e\ 3313}#
- #{r\ 3314}#
- #{w\ 3315}#
- #{s\ 3316}#
- #{mod\ 3317}#
- #{build-named-let\ 336}#
- (cons #{f\ 3364}# #{id\ 3365}#)
- #{val\ 3366}#
- (cons #{e1\ 3367}# #{e2\ 3368}#)))
- #{tmp\ 3345}#)
- (let ((#{_\ 3373}# #{tmp\ 3323}#))
+ (lambda (#{f\ 3365}#
+ #{id\ 3366}#
+ #{val\ 3367}#
+ #{e1\ 3368}#
+ #{e2\ 3369}#)
+ (#{chi-let\ 3285}#
+ #{e\ 3314}#
+ #{r\ 3315}#
+ #{w\ 3316}#
+ #{s\ 3317}#
+ #{mod\ 3318}#
+ #{build-named-let\ 337}#
+ (cons #{f\ 3365}# #{id\ 3366}#)
+ #{val\ 3367}#
+ (cons #{e1\ 3368}# #{e2\ 3369}#)))
+ #{tmp\ 3346}#)
+ (let ((#{_\ 3374}# #{tmp\ 3324}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 446}#
- #{e\ 3313}#
- #{w\ 3315}#
- #{s\ 3316}#
- #{mod\ 3317}#))))))))))))
- (#{global-extend\ 374}#
+ (#{source-wrap\ 447}#
+ #{e\ 3314}#
+ #{w\ 3316}#
+ #{s\ 3317}#
+ #{mod\ 3318}#))))))))))))
+ (#{global-extend\ 375}#
'core
'letrec
- (lambda (#{e\ 3374}#
- #{r\ 3375}#
- #{w\ 3376}#
- #{s\ 3377}#
- #{mod\ 3378}#)
- (let ((#{tmp\ 3384}# #{e\ 3374}#))
- (let ((#{tmp\ 3385}#
+ (lambda (#{e\ 3375}#
+ #{r\ 3376}#
+ #{w\ 3377}#
+ #{s\ 3378}#
+ #{mod\ 3379}#)
+ (let ((#{tmp\ 3385}# #{e\ 3375}#))
+ (let ((#{tmp\ 3386}#
($sc-dispatch
- #{tmp\ 3384}#
+ #{tmp\ 3385}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3385}#
+ (if (if #{tmp\ 3386}#
(@apply
- (lambda (#{id\ 3390}#
- #{val\ 3391}#
- #{e1\ 3392}#
- #{e2\ 3393}#)
- (and-map #{id?\ 378}# #{id\ 3390}#))
- #{tmp\ 3385}#)
+ (lambda (#{id\ 3391}#
+ #{val\ 3392}#
+ #{e1\ 3393}#
+ #{e2\ 3394}#)
+ (and-map #{id?\ 379}# #{id\ 3391}#))
+ #{tmp\ 3386}#)
#f)
(@apply
- (lambda (#{id\ 3399}#
- #{val\ 3400}#
- #{e1\ 3401}#
- #{e2\ 3402}#)
+ (lambda (#{id\ 3400}#
+ #{val\ 3401}#
+ #{e1\ 3402}#
+ #{e2\ 3403}#)
(begin
- (let ((#{ids\ 3404}# #{id\ 3399}#))
- (if (not (#{valid-bound-ids?\ 438}#
- #{ids\ 3404}#))
+ (let ((#{ids\ 3405}# #{id\ 3400}#))
+ (if (not (#{valid-bound-ids?\ 439}#
+ #{ids\ 3405}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3374}#)
+ #{e\ 3375}#)
(begin
- (let ((#{labels\ 3408}#
- (#{gen-labels\ 393}# #{ids\ 3404}#))
- (#{new-vars\ 3409}#
- (map #{gen-var\ 488}#
- #{ids\ 3404}#)))
+ (let ((#{labels\ 3409}#
+ (#{gen-labels\ 394}# #{ids\ 3405}#))
+ (#{new-vars\ 3410}#
+ (map #{gen-var\ 489}#
+ #{ids\ 3405}#)))
(begin
- (let ((#{w\ 3412}#
- (#{make-binding-wrap\ 422}#
- #{ids\ 3404}#
- #{labels\ 3408}#
- #{w\ 3376}#))
- (#{r\ 3413}#
- (#{extend-var-env\ 368}#
- #{labels\ 3408}#
- #{new-vars\ 3409}#
- #{r\ 3375}#)))
- (#{build-letrec\ 338}#
- #{s\ 3377}#
+ (let ((#{w\ 3413}#
+ (#{make-binding-wrap\ 423}#
+ #{ids\ 3405}#
+ #{labels\ 3409}#
+ #{w\ 3377}#))
+ (#{r\ 3414}#
+ (#{extend-var-env\ 369}#
+ #{labels\ 3409}#
+ #{new-vars\ 3410}#
+ #{r\ 3376}#)))
+ (#{build-letrec\ 339}#
+ #{s\ 3378}#
#f
- (map syntax->datum #{ids\ 3404}#)
- #{new-vars\ 3409}#
- (map (lambda (#{x\ 3414}#)
- (#{chi\ 460}#
- #{x\ 3414}#
- #{r\ 3413}#
- #{w\ 3412}#
- #{mod\ 3378}#))
- #{val\ 3400}#)
- (#{chi-body\ 468}#
- (cons #{e1\ 3401}# #{e2\ 3402}#)
- (#{source-wrap\ 446}#
- #{e\ 3374}#
- #{w\ 3412}#
- #{s\ 3377}#
- #{mod\ 3378}#)
- #{r\ 3413}#
- #{w\ 3412}#
- #{mod\ 3378}#))))))))))
- #{tmp\ 3385}#)
- (let ((#{_\ 3419}# #{tmp\ 3384}#))
+ (map syntax->datum #{ids\ 3405}#)
+ #{new-vars\ 3410}#
+ (map (lambda (#{x\ 3415}#)
+ (#{chi\ 461}#
+ #{x\ 3415}#
+ #{r\ 3414}#
+ #{w\ 3413}#
+ #{mod\ 3379}#))
+ #{val\ 3401}#)
+ (#{chi-body\ 469}#
+ (cons #{e1\ 3402}# #{e2\ 3403}#)
+ (#{source-wrap\ 447}#
+ #{e\ 3375}#
+ #{w\ 3413}#
+ #{s\ 3378}#
+ #{mod\ 3379}#)
+ #{r\ 3414}#
+ #{w\ 3413}#
+ #{mod\ 3379}#))))))))))
+ #{tmp\ 3386}#)
+ (let ((#{_\ 3420}# #{tmp\ 3385}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 446}#
- #{e\ 3374}#
- #{w\ 3376}#
- #{s\ 3377}#
- #{mod\ 3378}#))))))))
- (#{global-extend\ 374}#
+ (#{source-wrap\ 447}#
+ #{e\ 3375}#
+ #{w\ 3377}#
+ #{s\ 3378}#
+ #{mod\ 3379}#))))))))
+ (#{global-extend\ 375}#
'core
'letrec*
- (lambda (#{e\ 3420}#
- #{r\ 3421}#
- #{w\ 3422}#
- #{s\ 3423}#
- #{mod\ 3424}#)
- (let ((#{tmp\ 3430}# #{e\ 3420}#))
- (let ((#{tmp\ 3431}#
+ (lambda (#{e\ 3421}#
+ #{r\ 3422}#
+ #{w\ 3423}#
+ #{s\ 3424}#
+ #{mod\ 3425}#)
+ (let ((#{tmp\ 3431}# #{e\ 3421}#))
+ (let ((#{tmp\ 3432}#
($sc-dispatch
- #{tmp\ 3430}#
+ #{tmp\ 3431}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3431}#
+ (if (if #{tmp\ 3432}#
(@apply
- (lambda (#{id\ 3436}#
- #{val\ 3437}#
- #{e1\ 3438}#
- #{e2\ 3439}#)
- (and-map #{id?\ 378}# #{id\ 3436}#))
- #{tmp\ 3431}#)
+ (lambda (#{id\ 3437}#
+ #{val\ 3438}#
+ #{e1\ 3439}#
+ #{e2\ 3440}#)
+ (and-map #{id?\ 379}# #{id\ 3437}#))
+ #{tmp\ 3432}#)
#f)
(@apply
- (lambda (#{id\ 3445}#
- #{val\ 3446}#
- #{e1\ 3447}#
- #{e2\ 3448}#)
+ (lambda (#{id\ 3446}#
+ #{val\ 3447}#
+ #{e1\ 3448}#
+ #{e2\ 3449}#)
(begin
- (let ((#{ids\ 3450}# #{id\ 3445}#))
- (if (not (#{valid-bound-ids?\ 438}#
- #{ids\ 3450}#))
+ (let ((#{ids\ 3451}# #{id\ 3446}#))
+ (if (not (#{valid-bound-ids?\ 439}#
+ #{ids\ 3451}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 3420}#)
+ #{e\ 3421}#)
(begin
- (let ((#{labels\ 3454}#
- (#{gen-labels\ 393}# #{ids\ 3450}#))
- (#{new-vars\ 3455}#
- (map #{gen-var\ 488}#
- #{ids\ 3450}#)))
+ (let ((#{labels\ 3455}#
+ (#{gen-labels\ 394}# #{ids\ 3451}#))
+ (#{new-vars\ 3456}#
+ (map #{gen-var\ 489}#
+ #{ids\ 3451}#)))
(begin
- (let ((#{w\ 3458}#
- (#{make-binding-wrap\ 422}#
- #{ids\ 3450}#
- #{labels\ 3454}#
- #{w\ 3422}#))
- (#{r\ 3459}#
- (#{extend-var-env\ 368}#
- #{labels\ 3454}#
- #{new-vars\ 3455}#
- #{r\ 3421}#)))
- (#{build-letrec\ 338}#
- #{s\ 3423}#
+ (let ((#{w\ 3459}#
+ (#{make-binding-wrap\ 423}#
+ #{ids\ 3451}#
+ #{labels\ 3455}#
+ #{w\ 3423}#))
+ (#{r\ 3460}#
+ (#{extend-var-env\ 369}#
+ #{labels\ 3455}#
+ #{new-vars\ 3456}#
+ #{r\ 3422}#)))
+ (#{build-letrec\ 339}#
+ #{s\ 3424}#
#t
- (map syntax->datum #{ids\ 3450}#)
- #{new-vars\ 3455}#
- (map (lambda (#{x\ 3460}#)
- (#{chi\ 460}#
- #{x\ 3460}#
- #{r\ 3459}#
- #{w\ 3458}#
- #{mod\ 3424}#))
- #{val\ 3446}#)
- (#{chi-body\ 468}#
- (cons #{e1\ 3447}# #{e2\ 3448}#)
- (#{source-wrap\ 446}#
- #{e\ 3420}#
- #{w\ 3458}#
- #{s\ 3423}#
- #{mod\ 3424}#)
- #{r\ 3459}#
- #{w\ 3458}#
- #{mod\ 3424}#))))))))))
- #{tmp\ 3431}#)
- (let ((#{_\ 3465}# #{tmp\ 3430}#))
+ (map syntax->datum #{ids\ 3451}#)
+ #{new-vars\ 3456}#
+ (map (lambda (#{x\ 3461}#)
+ (#{chi\ 461}#
+ #{x\ 3461}#
+ #{r\ 3460}#
+ #{w\ 3459}#
+ #{mod\ 3425}#))
+ #{val\ 3447}#)
+ (#{chi-body\ 469}#
+ (cons #{e1\ 3448}# #{e2\ 3449}#)
+ (#{source-wrap\ 447}#
+ #{e\ 3421}#
+ #{w\ 3459}#
+ #{s\ 3424}#
+ #{mod\ 3425}#)
+ #{r\ 3460}#
+ #{w\ 3459}#
+ #{mod\ 3425}#))))))))))
+ #{tmp\ 3432}#)
+ (let ((#{_\ 3466}# #{tmp\ 3431}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 446}#
- #{e\ 3420}#
- #{w\ 3422}#
- #{s\ 3423}#
- #{mod\ 3424}#))))))))
- (#{global-extend\ 374}#
+ (#{source-wrap\ 447}#
+ #{e\ 3421}#
+ #{w\ 3423}#
+ #{s\ 3424}#
+ #{mod\ 3425}#))))))))
+ (#{global-extend\ 375}#
'core
'set!
- (lambda (#{e\ 3466}#
- #{r\ 3467}#
- #{w\ 3468}#
- #{s\ 3469}#
- #{mod\ 3470}#)
- (let ((#{tmp\ 3476}# #{e\ 3466}#))
- (let ((#{tmp\ 3477}#
- ($sc-dispatch #{tmp\ 3476}# (quote (_ any any)))))
- (if (if #{tmp\ 3477}#
+ (lambda (#{e\ 3467}#
+ #{r\ 3468}#
+ #{w\ 3469}#
+ #{s\ 3470}#
+ #{mod\ 3471}#)
+ (let ((#{tmp\ 3477}# #{e\ 3467}#))
+ (let ((#{tmp\ 3478}#
+ ($sc-dispatch #{tmp\ 3477}# '(_ any any))))
+ (if (if #{tmp\ 3478}#
(@apply
- (lambda (#{id\ 3480}# #{val\ 3481}#)
- (#{id?\ 378}# #{id\ 3480}#))
- #{tmp\ 3477}#)
+ (lambda (#{id\ 3481}# #{val\ 3482}#)
+ (#{id?\ 379}# #{id\ 3481}#))
+ #{tmp\ 3478}#)
#f)
(@apply
- (lambda (#{id\ 3484}# #{val\ 3485}#)
+ (lambda (#{id\ 3485}# #{val\ 3486}#)
(begin
- (let ((#{n\ 3488}#
- (#{id-var-name\ 432}#
- #{id\ 3484}#
- #{w\ 3468}#))
- (#{id-mod\ 3489}#
- (if (#{syntax-object?\ 344}# #{id\ 3484}#)
- (#{syntax-object-module\ 350}#
- #{id\ 3484}#)
- #{mod\ 3470}#)))
+ (let ((#{n\ 3489}#
+ (#{id-var-name\ 433}#
+ #{id\ 3485}#
+ #{w\ 3469}#))
+ (#{id-mod\ 3490}#
+ (if (#{syntax-object?\ 345}# #{id\ 3485}#)
+ (#{syntax-object-module\ 351}#
+ #{id\ 3485}#)
+ #{mod\ 3471}#)))
(begin
- (let ((#{b\ 3491}#
- (#{lookup\ 372}#
- #{n\ 3488}#
- #{r\ 3467}#
- #{id-mod\ 3489}#)))
+ (let ((#{b\ 3492}#
+ (#{lookup\ 373}#
+ #{n\ 3489}#
+ #{r\ 3468}#
+ #{id-mod\ 3490}#)))
(begin
- (let ((#{atom-key\ 3494}#
- (car #{b\ 3491}#)))
- (if (eqv? #{atom-key\ 3494}#
- 'lexical)
- (#{build-lexical-assignment\ 312}#
- #{s\ 3469}#
- (syntax->datum #{id\ 3484}#)
- (cdr #{b\ 3491}#)
- (#{chi\ 460}#
- #{val\ 3485}#
- #{r\ 3467}#
- #{w\ 3468}#
- #{mod\ 3470}#))
- (if (eqv? #{atom-key\ 3494}#
- 'global)
- (#{build-global-assignment\ 318}#
- #{s\ 3469}#
- #{n\ 3488}#
- (#{chi\ 460}#
- #{val\ 3485}#
- #{r\ 3467}#
- #{w\ 3468}#
- #{mod\ 3470}#)
- #{id-mod\ 3489}#)
- (if (eqv? #{atom-key\ 3494}#
- 'macro)
+ (let ((#{atom-key\ 3495}#
+ (car #{b\ 3492}#)))
+ (if (eqv? #{atom-key\ 3495}# 'lexical)
+ (#{build-lexical-assignment\ 313}#
+ #{s\ 3470}#
+ (syntax->datum #{id\ 3485}#)
+ (cdr #{b\ 3492}#)
+ (#{chi\ 461}#
+ #{val\ 3486}#
+ #{r\ 3468}#
+ #{w\ 3469}#
+ #{mod\ 3471}#))
+ (if (eqv? #{atom-key\ 3495}# 'global)
+ (#{build-global-assignment\ 319}#
+ #{s\ 3470}#
+ #{n\ 3489}#
+ (#{chi\ 461}#
+ #{val\ 3486}#
+ #{r\ 3468}#
+ #{w\ 3469}#
+ #{mod\ 3471}#)
+ #{id-mod\ 3490}#)
+ (if (eqv? #{atom-key\ 3495}# 'macro)
(begin
- (let ((#{p\ 3501}#
- (cdr #{b\ 3491}#)))
+ (let ((#{p\ 3502}#
+ (cdr #{b\ 3492}#)))
(if (procedure-property
- #{p\ 3501}#
+ #{p\ 3502}#
'variable-transformer)
- (#{chi\ 460}#
- (#{chi-macro\ 466}#
- #{p\ 3501}#
- #{e\ 3466}#
- #{r\ 3467}#
- #{w\ 3468}#
- #{s\ 3469}#
+ (#{chi\ 461}#
+ (#{chi-macro\ 467}#
+ #{p\ 3502}#
+ #{e\ 3467}#
+ #{r\ 3468}#
+ #{w\ 3469}#
+ #{s\ 3470}#
#f
- #{mod\ 3470}#)
- #{r\ 3467}#
+ #{mod\ 3471}#)
+ #{r\ 3468}#
'(())
- #{mod\ 3470}#)
+ #{mod\ 3471}#)
(syntax-violation
'set!
"not a variable
transformer"
- (#{wrap\ 444}#
- #{e\ 3466}#
- #{w\ 3468}#
- #{mod\ 3470}#)
- (#{wrap\ 444}#
- #{id\ 3484}#
- #{w\ 3468}#
- #{id-mod\ 3489}#)))))
- (if (eqv? #{atom-key\ 3494}#
+ (#{wrap\ 445}#
+ #{e\ 3467}#
+ #{w\ 3469}#
+ #{mod\ 3471}#)
+ (#{wrap\ 445}#
+ #{id\ 3485}#
+ #{w\ 3469}#
+ #{id-mod\ 3490}#)))))
+ (if (eqv? #{atom-key\ 3495}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 444}#
- #{id\ 3484}#
- #{w\ 3468}#
- #{mod\ 3470}#))
+ (#{wrap\ 445}#
+ #{id\ 3485}#
+ #{w\ 3469}#
+ #{mod\ 3471}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 446}#
- #{e\ 3466}#
- #{w\ 3468}#
- #{s\ 3469}#
- #{mod\ 3470}#)))))))))))))
- #{tmp\ 3477}#)
- (let ((#{tmp\ 3506}#
+ (#{source-wrap\ 447}#
+ #{e\ 3467}#
+ #{w\ 3469}#
+ #{s\ 3470}#
+ #{mod\ 3471}#)))))))))))))
+ #{tmp\ 3478}#)
+ (let ((#{tmp\ 3507}#
($sc-dispatch
- #{tmp\ 3476}#
+ #{tmp\ 3477}#
'(_ (any . each-any) any))))
- (if #{tmp\ 3506}#
+ (if #{tmp\ 3507}#
(@apply
- (lambda (#{head\ 3510}#
- #{tail\ 3511}#
- #{val\ 3512}#)
+ (lambda (#{head\ 3511}#
+ #{tail\ 3512}#
+ #{val\ 3513}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 456}#
- #{head\ 3510}#
- #{r\ 3467}#
+ (#{syntax-type\ 457}#
+ #{head\ 3511}#
+ #{r\ 3468}#
'(())
#f
#f
- #{mod\ 3470}#
+ #{mod\ 3471}#
#t))
- (lambda (#{type\ 3515}#
- #{value\ 3516}#
- #{ee\ 3517}#
- #{ww\ 3518}#
- #{ss\ 3519}#
- #{modmod\ 3520}#)
- (if (eqv? #{type\ 3515}# (quote module-ref))
+ (lambda (#{type\ 3516}#
+ #{value\ 3517}#
+ #{ee\ 3518}#
+ #{ww\ 3519}#
+ #{ss\ 3520}#
+ #{modmod\ 3521}#)
+ (if (eqv? #{type\ 3516}# 'module-ref)
(begin
- (let ((#{val\ 3529}#
- (#{chi\ 460}#
- #{val\ 3512}#
- #{r\ 3467}#
- #{w\ 3468}#
- #{mod\ 3470}#)))
+ (let ((#{val\ 3530}#
+ (#{chi\ 461}#
+ #{val\ 3513}#
+ #{r\ 3468}#
+ #{w\ 3469}#
+ #{mod\ 3471}#)))
(call-with-values
(lambda ()
- (#{value\ 3516}#
- (cons #{head\ 3510}#
- #{tail\ 3511}#)
- #{r\ 3467}#
- #{w\ 3468}#))
- (lambda (#{e\ 3531}#
- #{r\ 3532}#
- #{w\ 3533}#
- #{s*\ 3534}#
- #{mod\ 3535}#)
- (let ((#{tmp\ 3541}# #{e\ 3531}#))
- (let ((#{tmp\ 3542}#
- (list #{tmp\ 3541}#)))
- (if (if #{tmp\ 3542}#
+ (#{value\ 3517}#
+ (cons #{head\ 3511}#
+ #{tail\ 3512}#)
+ #{r\ 3468}#
+ #{w\ 3469}#))
+ (lambda (#{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s*\ 3535}#
+ #{mod\ 3536}#)
+ (let ((#{tmp\ 3542}# #{e\ 3532}#))
+ (let ((#{tmp\ 3543}#
+ (list #{tmp\ 3542}#)))
+ (if (if #{tmp\ 3543}#
(@apply
- (lambda (#{e\ 3544}#)
- (#{id?\ 378}#
- #{e\ 3544}#))
- #{tmp\ 3542}#)
+ (lambda (#{e\ 3545}#)
+ (#{id?\ 379}#
+ #{e\ 3545}#))
+ #{tmp\ 3543}#)
#f)
(@apply
- (lambda (#{e\ 3546}#)
-
(#{build-global-assignment\ 318}#
- #{s\ 3469}#
+ (lambda (#{e\ 3547}#)
+
(#{build-global-assignment\ 319}#
+ #{s\ 3470}#
(syntax->datum
- #{e\ 3546}#)
- #{val\ 3529}#
- #{mod\ 3535}#))
- #{tmp\ 3542}#)
+ #{e\ 3547}#)
+ #{val\ 3530}#
+ #{mod\ 3536}#))
+ #{tmp\ 3543}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 3541}#))))))))
- (#{build-application\ 304}#
- #{s\ 3469}#
- (#{chi\ 460}#
+ #{tmp\ 3542}#))))))))
+ (#{build-application\ 305}#
+ #{s\ 3470}#
+ (#{chi\ 461}#
(list '#(syntax-object
setter
((top)
@@ -10250,16 +10191,16 @@
(top)
(top)
(top))
- #("i3521"
- "i3522"
+ #("i3522"
"i3523"
"i3524"
"i3525"
- "i3526"))
+ "i3526"
+ "i3527"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3507" "i3508" "i3509"))
+ #("i3508" "i3509" "i3510"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10268,11 +10209,11 @@
(top)
(top)
(top))
- #("i3471"
- "i3472"
+ #("i3472"
"i3473"
"i3474"
- "i3475"))
+ "i3475"
+ "i3476"))
#(ribcage
(lambda-var-list
gen-var
@@ -10548,58 +10489,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -10608,137 +10550,134 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile))
- #{head\ 3510}#)
- #{r\ 3467}#
- #{w\ 3468}#
- #{mod\ 3470}#)
- (map (lambda (#{e\ 3548}#)
- (#{chi\ 460}#
- #{e\ 3548}#
- #{r\ 3467}#
- #{w\ 3468}#
- #{mod\ 3470}#))
+ #{head\ 3511}#)
+ #{r\ 3468}#
+ #{w\ 3469}#
+ #{mod\ 3471}#)
+ (map (lambda (#{e\ 3549}#)
+ (#{chi\ 461}#
+ #{e\ 3549}#
+ #{r\ 3468}#
+ #{w\ 3469}#
+ #{mod\ 3471}#))
(append
- #{tail\ 3511}#
- (list #{val\ 3512}#))))))))
- #{tmp\ 3506}#)
- (let ((#{_\ 3552}# #{tmp\ 3476}#))
+ #{tail\ 3512}#
+ (list #{val\ 3513}#))))))))
+ #{tmp\ 3507}#)
+ (let ((#{_\ 3553}# #{tmp\ 3477}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 446}#
- #{e\ 3466}#
- #{w\ 3468}#
- #{s\ 3469}#
- #{mod\ 3470}#))))))))))
- (#{global-extend\ 374}#
+ (#{source-wrap\ 447}#
+ #{e\ 3467}#
+ #{w\ 3469}#
+ #{s\ 3470}#
+ #{mod\ 3471}#))))))))))
+ (#{global-extend\ 375}#
'module-ref
'@
- (lambda (#{e\ 3553}# #{r\ 3554}# #{w\ 3555}#)
- (let ((#{tmp\ 3559}# #{e\ 3553}#))
- (let ((#{tmp\ 3560}#
- ($sc-dispatch
- #{tmp\ 3559}#
- '(_ each-any any))))
- (if (if #{tmp\ 3560}#
+ (lambda (#{e\ 3554}# #{r\ 3555}# #{w\ 3556}#)
+ (let ((#{tmp\ 3560}# #{e\ 3554}#))
+ (let ((#{tmp\ 3561}#
+ ($sc-dispatch #{tmp\ 3560}# '(_ each-any any))))
+ (if (if #{tmp\ 3561}#
(@apply
- (lambda (#{mod\ 3563}# #{id\ 3564}#)
- (if (and-map #{id?\ 378}# #{mod\ 3563}#)
- (#{id?\ 378}# #{id\ 3564}#)
+ (lambda (#{mod\ 3564}# #{id\ 3565}#)
+ (if (and-map #{id?\ 379}# #{mod\ 3564}#)
+ (#{id?\ 379}# #{id\ 3565}#)
#f))
- #{tmp\ 3560}#)
+ #{tmp\ 3561}#)
#f)
(@apply
- (lambda (#{mod\ 3570}# #{id\ 3571}#)
+ (lambda (#{mod\ 3571}# #{id\ 3572}#)
(values
- (syntax->datum #{id\ 3571}#)
- #{r\ 3554}#
- #{w\ 3555}#
+ (syntax->datum #{id\ 3572}#)
+ #{r\ 3555}#
+ #{w\ 3556}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10747,12 +10686,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3568" "i3569"))
+ #("i3569" "i3570"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3556" "i3557" "i3558"))
+ #("i3557" "i3558" "i3559"))
#(ribcage
(lambda-var-list
gen-var
@@ -11028,58 +10967,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -11088,162 +11028,159 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile))
- #{mod\ 3570}#))))
- #{tmp\ 3560}#)
+ #{mod\ 3571}#))))
+ #{tmp\ 3561}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3559}#))))))
- (#{global-extend\ 374}#
+ #{tmp\ 3560}#))))))
+ (#{global-extend\ 375}#
'module-ref
'@@
- (lambda (#{e\ 3573}# #{r\ 3574}# #{w\ 3575}#)
+ (lambda (#{e\ 3574}# #{r\ 3575}# #{w\ 3576}#)
(letrec*
- ((#{remodulate\ 3580}#
- (lambda (#{x\ 3581}# #{mod\ 3582}#)
- (if (pair? #{x\ 3581}#)
- (cons (#{remodulate\ 3580}#
- (car #{x\ 3581}#)
- #{mod\ 3582}#)
- (#{remodulate\ 3580}#
- (cdr #{x\ 3581}#)
- #{mod\ 3582}#))
- (if (#{syntax-object?\ 344}# #{x\ 3581}#)
- (#{make-syntax-object\ 342}#
- (#{remodulate\ 3580}#
- (#{syntax-object-expression\ 346}# #{x\ 3581}#)
- #{mod\ 3582}#)
- (#{syntax-object-wrap\ 348}# #{x\ 3581}#)
- #{mod\ 3582}#)
- (if (vector? #{x\ 3581}#)
+ ((#{remodulate\ 3581}#
+ (lambda (#{x\ 3582}# #{mod\ 3583}#)
+ (if (pair? #{x\ 3582}#)
+ (cons (#{remodulate\ 3581}#
+ (car #{x\ 3582}#)
+ #{mod\ 3583}#)
+ (#{remodulate\ 3581}#
+ (cdr #{x\ 3582}#)
+ #{mod\ 3583}#))
+ (if (#{syntax-object?\ 345}# #{x\ 3582}#)
+ (#{make-syntax-object\ 343}#
+ (#{remodulate\ 3581}#
+ (#{syntax-object-expression\ 347}# #{x\ 3582}#)
+ #{mod\ 3583}#)
+ (#{syntax-object-wrap\ 349}# #{x\ 3582}#)
+ #{mod\ 3583}#)
+ (if (vector? #{x\ 3582}#)
(begin
- (let ((#{n\ 3593}# (vector-length #{x\ 3581}#)))
+ (let ((#{n\ 3594}# (vector-length #{x\ 3582}#)))
(begin
- (let ((#{v\ 3595}#
- (make-vector #{n\ 3593}#)))
+ (let ((#{v\ 3596}#
+ (make-vector #{n\ 3594}#)))
(letrec*
- ((#{loop\ 3598}#
- (lambda (#{i\ 3599}#)
- (if (#{fx=\ 285}#
- #{i\ 3599}#
- #{n\ 3593}#)
- (begin (if #f #f) #{v\ 3595}#)
+ ((#{loop\ 3599}#
+ (lambda (#{i\ 3600}#)
+ (if (#{fx=\ 286}#
+ #{i\ 3600}#
+ #{n\ 3594}#)
+ (begin (if #f #f) #{v\ 3596}#)
(begin
(vector-set!
- #{v\ 3595}#
- #{i\ 3599}#
- (#{remodulate\ 3580}#
+ #{v\ 3596}#
+ #{i\ 3600}#
+ (#{remodulate\ 3581}#
(vector-ref
- #{x\ 3581}#
- #{i\ 3599}#)
- #{mod\ 3582}#))
- (#{loop\ 3598}#
- (#{fx+\ 281}#
- #{i\ 3599}#
+ #{x\ 3582}#
+ #{i\ 3600}#)
+ #{mod\ 3583}#))
+ (#{loop\ 3599}#
+ (#{fx+\ 282}#
+ #{i\ 3600}#
1)))))))
- (begin (#{loop\ 3598}# 0)))))))
- #{x\ 3581}#))))))
+ (begin (#{loop\ 3599}# 0)))))))
+ #{x\ 3582}#))))))
(begin
- (let ((#{tmp\ 3603}# #{e\ 3573}#))
- (let ((#{tmp\ 3604}#
- ($sc-dispatch
- #{tmp\ 3603}#
- '(_ each-any any))))
- (if (if #{tmp\ 3604}#
+ (let ((#{tmp\ 3604}# #{e\ 3574}#))
+ (let ((#{tmp\ 3605}#
+ ($sc-dispatch #{tmp\ 3604}# '(_ each-any any))))
+ (if (if #{tmp\ 3605}#
(@apply
- (lambda (#{mod\ 3607}# #{exp\ 3608}#)
- (and-map #{id?\ 378}# #{mod\ 3607}#))
- #{tmp\ 3604}#)
+ (lambda (#{mod\ 3608}# #{exp\ 3609}#)
+ (and-map #{id?\ 379}# #{mod\ 3608}#))
+ #{tmp\ 3605}#)
#f)
(@apply
- (lambda (#{mod\ 3612}# #{exp\ 3613}#)
+ (lambda (#{mod\ 3613}# #{exp\ 3614}#)
(begin
- (let ((#{mod\ 3615}#
+ (let ((#{mod\ 3616}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11251,17 +11188,17 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3610" "i3611"))
+ #("i3611" "i3612"))
#(ribcage
(remodulate)
((top))
- ("i3579"))
+ ("i3580"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3576"
- "i3577"
- "i3578"))
+ #("i3577"
+ "i3578"
+ "i3579"))
#(ribcage
(lambda-var-list
gen-var
@@ -11537,58 +11474,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -11597,272 +11535,263 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
- "i35")))
+ "i36")))
(hygiene guile))
- #{mod\ 3612}#))))
+ #{mod\ 3613}#))))
(values
- (#{remodulate\ 3580}#
- #{exp\ 3613}#
- #{mod\ 3615}#)
- #{r\ 3574}#
- #{w\ 3575}#
- (#{source-annotation\ 359}# #{exp\ 3613}#)
- #{mod\ 3615}#))))
- #{tmp\ 3604}#)
+ (#{remodulate\ 3581}#
+ #{exp\ 3614}#
+ #{mod\ 3616}#)
+ #{r\ 3575}#
+ #{w\ 3576}#
+ (#{source-annotation\ 360}# #{exp\ 3614}#)
+ #{mod\ 3616}#))))
+ #{tmp\ 3605}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3603}#))))))))
- (#{global-extend\ 374}#
+ #{tmp\ 3604}#))))))))
+ (#{global-extend\ 375}#
'core
'if
- (lambda (#{e\ 3617}#
- #{r\ 3618}#
- #{w\ 3619}#
- #{s\ 3620}#
- #{mod\ 3621}#)
- (let ((#{tmp\ 3627}# #{e\ 3617}#))
- (let ((#{tmp\ 3628}#
- ($sc-dispatch #{tmp\ 3627}# (quote (_ any any)))))
- (if #{tmp\ 3628}#
+ (lambda (#{e\ 3618}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{s\ 3621}#
+ #{mod\ 3622}#)
+ (let ((#{tmp\ 3628}# #{e\ 3618}#))
+ (let ((#{tmp\ 3629}#
+ ($sc-dispatch #{tmp\ 3628}# '(_ any any))))
+ (if #{tmp\ 3629}#
(@apply
- (lambda (#{test\ 3631}# #{then\ 3632}#)
- (#{build-conditional\ 306}#
- #{s\ 3620}#
- (#{chi\ 460}#
- #{test\ 3631}#
- #{r\ 3618}#
- #{w\ 3619}#
- #{mod\ 3621}#)
- (#{chi\ 460}#
- #{then\ 3632}#
- #{r\ 3618}#
- #{w\ 3619}#
- #{mod\ 3621}#)
- (#{build-void\ 302}# #f)))
- #{tmp\ 3628}#)
- (let ((#{tmp\ 3634}#
- ($sc-dispatch
- #{tmp\ 3627}#
- '(_ any any any))))
- (if #{tmp\ 3634}#
+ (lambda (#{test\ 3632}# #{then\ 3633}#)
+ (#{build-conditional\ 307}#
+ #{s\ 3621}#
+ (#{chi\ 461}#
+ #{test\ 3632}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{mod\ 3622}#)
+ (#{chi\ 461}#
+ #{then\ 3633}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{mod\ 3622}#)
+ (#{build-void\ 303}# #f)))
+ #{tmp\ 3629}#)
+ (let ((#{tmp\ 3635}#
+ ($sc-dispatch #{tmp\ 3628}# '(_ any any any))))
+ (if #{tmp\ 3635}#
(@apply
- (lambda (#{test\ 3638}#
- #{then\ 3639}#
- #{else\ 3640}#)
- (#{build-conditional\ 306}#
- #{s\ 3620}#
- (#{chi\ 460}#
- #{test\ 3638}#
- #{r\ 3618}#
- #{w\ 3619}#
- #{mod\ 3621}#)
- (#{chi\ 460}#
- #{then\ 3639}#
- #{r\ 3618}#
- #{w\ 3619}#
- #{mod\ 3621}#)
- (#{chi\ 460}#
- #{else\ 3640}#
- #{r\ 3618}#
- #{w\ 3619}#
- #{mod\ 3621}#)))
- #{tmp\ 3634}#)
+ (lambda (#{test\ 3639}#
+ #{then\ 3640}#
+ #{else\ 3641}#)
+ (#{build-conditional\ 307}#
+ #{s\ 3621}#
+ (#{chi\ 461}#
+ #{test\ 3639}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{mod\ 3622}#)
+ (#{chi\ 461}#
+ #{then\ 3640}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{mod\ 3622}#)
+ (#{chi\ 461}#
+ #{else\ 3641}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{mod\ 3622}#)))
+ #{tmp\ 3635}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3627}#))))))))
- (#{global-extend\ 374}#
+ #{tmp\ 3628}#))))))))
+ (#{global-extend\ 375}#
'core
'with-fluids
- (lambda (#{e\ 3641}#
- #{r\ 3642}#
- #{w\ 3643}#
- #{s\ 3644}#
- #{mod\ 3645}#)
- (let ((#{tmp\ 3651}# #{e\ 3641}#))
- (let ((#{tmp\ 3652}#
+ (lambda (#{e\ 3642}#
+ #{r\ 3643}#
+ #{w\ 3644}#
+ #{s\ 3645}#
+ #{mod\ 3646}#)
+ (let ((#{tmp\ 3652}# #{e\ 3642}#))
+ (let ((#{tmp\ 3653}#
($sc-dispatch
- #{tmp\ 3651}#
+ #{tmp\ 3652}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 3652}#
+ (if #{tmp\ 3653}#
(@apply
- (lambda (#{fluid\ 3657}#
- #{val\ 3658}#
- #{b\ 3659}#
- #{b*\ 3660}#)
- (#{build-dynlet\ 308}#
- #{s\ 3644}#
- (map (lambda (#{x\ 3661}#)
- (#{chi\ 460}#
- #{x\ 3661}#
- #{r\ 3642}#
- #{w\ 3643}#
- #{mod\ 3645}#))
- #{fluid\ 3657}#)
- (map (lambda (#{x\ 3664}#)
- (#{chi\ 460}#
- #{x\ 3664}#
- #{r\ 3642}#
- #{w\ 3643}#
- #{mod\ 3645}#))
- #{val\ 3658}#)
- (#{chi-body\ 468}#
- (cons #{b\ 3659}# #{b*\ 3660}#)
- (#{source-wrap\ 446}#
- #{e\ 3641}#
- #{w\ 3643}#
- #{s\ 3644}#
- #{mod\ 3645}#)
- #{r\ 3642}#
- #{w\ 3643}#
- #{mod\ 3645}#)))
- #{tmp\ 3652}#)
+ (lambda (#{fluid\ 3658}#
+ #{val\ 3659}#
+ #{b\ 3660}#
+ #{b*\ 3661}#)
+ (#{build-dynlet\ 309}#
+ #{s\ 3645}#
+ (map (lambda (#{x\ 3662}#)
+ (#{chi\ 461}#
+ #{x\ 3662}#
+ #{r\ 3643}#
+ #{w\ 3644}#
+ #{mod\ 3646}#))
+ #{fluid\ 3658}#)
+ (map (lambda (#{x\ 3665}#)
+ (#{chi\ 461}#
+ #{x\ 3665}#
+ #{r\ 3643}#
+ #{w\ 3644}#
+ #{mod\ 3646}#))
+ #{val\ 3659}#)
+ (#{chi-body\ 469}#
+ (cons #{b\ 3660}# #{b*\ 3661}#)
+ (#{source-wrap\ 447}#
+ #{e\ 3642}#
+ #{w\ 3644}#
+ #{s\ 3645}#
+ #{mod\ 3646}#)
+ #{r\ 3643}#
+ #{w\ 3644}#
+ #{mod\ 3646}#)))
+ #{tmp\ 3653}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3651}#))))))
- (#{global-extend\ 374}#
- 'begin
- 'begin
- '())
- (#{global-extend\ 374}#
- 'define
- 'define
- '())
- (#{global-extend\ 374}#
+ #{tmp\ 3652}#))))))
+ (#{global-extend\ 375}# 'begin 'begin '())
+ (#{global-extend\ 375}# 'define 'define '())
+ (#{global-extend\ 375}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 374}#
+ (#{global-extend\ 375}#
'eval-when
'eval-when
'())
- (#{global-extend\ 374}#
+ (#{global-extend\ 375}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 3669}#
- (lambda (#{pattern\ 3676}# #{keys\ 3677}#)
+ ((#{convert-pattern\ 3670}#
+ (lambda (#{pattern\ 3677}# #{keys\ 3678}#)
(letrec*
- ((#{cvt*\ 3681}#
- (lambda (#{p*\ 3684}# #{n\ 3685}# #{ids\ 3686}#)
- (if (null? #{p*\ 3684}#)
- (values (quote ()) #{ids\ 3686}#)
+ ((#{cvt*\ 3682}#
+ (lambda (#{p*\ 3685}# #{n\ 3686}# #{ids\ 3687}#)
+ (if (null? #{p*\ 3685}#)
+ (values '() #{ids\ 3687}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3681}#
- (cdr #{p*\ 3684}#)
- #{n\ 3685}#
- #{ids\ 3686}#))
- (lambda (#{y\ 3690}# #{ids\ 3691}#)
+ (#{cvt*\ 3682}#
+ (cdr #{p*\ 3685}#)
+ #{n\ 3686}#
+ #{ids\ 3687}#))
+ (lambda (#{y\ 3691}# #{ids\ 3692}#)
(call-with-values
(lambda ()
- (#{cvt\ 3683}#
- (car #{p*\ 3684}#)
- #{n\ 3685}#
- #{ids\ 3691}#))
- (lambda (#{x\ 3694}# #{ids\ 3695}#)
+ (#{cvt\ 3684}#
+ (car #{p*\ 3685}#)
+ #{n\ 3686}#
+ #{ids\ 3692}#))
+ (lambda (#{x\ 3695}# #{ids\ 3696}#)
(values
- (cons #{x\ 3694}# #{y\ 3690}#)
- #{ids\ 3695}#))))))))
- (#{cvt\ 3683}#
- (lambda (#{p\ 3698}# #{n\ 3699}# #{ids\ 3700}#)
- (if (#{id?\ 378}# #{p\ 3698}#)
- (if (#{bound-id-member?\ 442}#
- #{p\ 3698}#
- #{keys\ 3677}#)
+ (cons #{x\ 3695}# #{y\ 3691}#)
+ #{ids\ 3696}#))))))))
+ (#{cvt\ 3684}#
+ (lambda (#{p\ 3699}# #{n\ 3700}# #{ids\ 3701}#)
+ (if (#{id?\ 379}# #{p\ 3699}#)
+ (if (#{bound-id-member?\ 443}#
+ #{p\ 3699}#
+ #{keys\ 3678}#)
(values
- (vector (quote free-id) #{p\ 3698}#)
- #{ids\ 3700}#)
- (if (#{free-id=?\ 434}#
- #{p\ 3698}#
+ (vector 'free-id #{p\ 3699}#)
+ #{ids\ 3701}#)
+ (if (#{free-id=?\ 435}#
+ #{p\ 3699}#
'#(syntax-object
_
((top)
@@ -11870,22 +11799,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3701" "i3702" "i3703"))
+ #("i3702" "i3703" "i3704"))
#(ribcage
(cvt cvt*)
((top) (top))
- ("i3682" "i3680"))
+ ("i3683" "i3681"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3678" "i3679"))
+ #("i3679" "i3680"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3674" "i3672" "i3670" "i3668"))
+ ("i3675" "i3673" "i3671" "i3669"))
#(ribcage
(lambda-var-list
gen-var
@@ -12161,58 +12090,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -12221,420 +12151,407 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile)))
- (values (quote _) #{ids\ 3700}#)
+ (values '_ #{ids\ 3701}#)
(values
'any
- (cons (cons #{p\ 3698}# #{n\ 3699}#)
- #{ids\ 3700}#))))
- (let ((#{tmp\ 3709}# #{p\ 3698}#))
- (let ((#{tmp\ 3710}#
+ (cons (cons #{p\ 3699}# #{n\ 3700}#)
+ #{ids\ 3701}#))))
+ (let ((#{tmp\ 3710}# #{p\ 3699}#))
+ (let ((#{tmp\ 3711}#
($sc-dispatch
- #{tmp\ 3709}#
+ #{tmp\ 3710}#
'(any any))))
- (if (if #{tmp\ 3710}#
+ (if (if #{tmp\ 3711}#
(@apply
- (lambda (#{x\ 3713}# #{dots\ 3714}#)
- (#{ellipsis?\ 476}#
- #{dots\ 3714}#))
- #{tmp\ 3710}#)
+ (lambda (#{x\ 3714}# #{dots\ 3715}#)
+ (#{ellipsis?\ 477}#
+ #{dots\ 3715}#))
+ #{tmp\ 3711}#)
#f)
(@apply
- (lambda (#{x\ 3717}# #{dots\ 3718}#)
+ (lambda (#{x\ 3718}# #{dots\ 3719}#)
(call-with-values
(lambda ()
- (#{cvt\ 3683}#
- #{x\ 3717}#
- (#{fx+\ 281}# #{n\ 3699}# 1)
- #{ids\ 3700}#))
- (lambda (#{p\ 3719}# #{ids\ 3720}#)
+ (#{cvt\ 3684}#
+ #{x\ 3718}#
+ (#{fx+\ 282}# #{n\ 3700}# 1)
+ #{ids\ 3701}#))
+ (lambda (#{p\ 3720}# #{ids\ 3721}#)
(values
- (if (eq? #{p\ 3719}# (quote any))
+ (if (eq? #{p\ 3720}# 'any)
'each-any
- (vector
- 'each
- #{p\ 3719}#))
- #{ids\ 3720}#))))
- #{tmp\ 3710}#)
- (let ((#{tmp\ 3723}#
+ (vector 'each #{p\ 3720}#))
+ #{ids\ 3721}#))))
+ #{tmp\ 3711}#)
+ (let ((#{tmp\ 3724}#
($sc-dispatch
- #{tmp\ 3709}#
+ #{tmp\ 3710}#
'(any any . each-any))))
- (if (if #{tmp\ 3723}#
+ (if (if #{tmp\ 3724}#
(@apply
- (lambda (#{x\ 3727}#
- #{dots\ 3728}#
- #{ys\ 3729}#)
- (#{ellipsis?\ 476}#
- #{dots\ 3728}#))
- #{tmp\ 3723}#)
+ (lambda (#{x\ 3728}#
+ #{dots\ 3729}#
+ #{ys\ 3730}#)
+ (#{ellipsis?\ 477}#
+ #{dots\ 3729}#))
+ #{tmp\ 3724}#)
#f)
(@apply
- (lambda (#{x\ 3733}#
- #{dots\ 3734}#
- #{ys\ 3735}#)
+ (lambda (#{x\ 3734}#
+ #{dots\ 3735}#
+ #{ys\ 3736}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3681}#
- #{ys\ 3735}#
- #{n\ 3699}#
- #{ids\ 3700}#))
- (lambda (#{ys\ 3737}#
- #{ids\ 3738}#)
+ (#{cvt*\ 3682}#
+ #{ys\ 3736}#
+ #{n\ 3700}#
+ #{ids\ 3701}#))
+ (lambda (#{ys\ 3738}#
+ #{ids\ 3739}#)
(call-with-values
(lambda ()
- (#{cvt\ 3683}#
- #{x\ 3733}#
- (1+ #{n\ 3699}#)
- #{ids\ 3738}#))
- (lambda (#{x\ 3741}#
- #{ids\ 3742}#)
+ (#{cvt\ 3684}#
+ #{x\ 3734}#
+ (1+ #{n\ 3700}#)
+ #{ids\ 3739}#))
+ (lambda (#{x\ 3742}#
+ #{ids\ 3743}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3741}#
+ (cons #{x\ 3742}#
(cons
(reverse
-
#{ys\ 3737}#)
+
#{ys\ 3738}#)
'(())))))
- #{ids\ 3742}#))))))
- #{tmp\ 3723}#)
- (let ((#{tmp\ 3746}#
+ #{ids\ 3743}#))))))
+ #{tmp\ 3724}#)
+ (let ((#{tmp\ 3747}#
($sc-dispatch
- #{tmp\ 3709}#
+ #{tmp\ 3710}#
'(any . any))))
- (if #{tmp\ 3746}#
+ (if #{tmp\ 3747}#
(@apply
- (lambda (#{x\ 3749}# #{y\ 3750}#)
+ (lambda (#{x\ 3750}# #{y\ 3751}#)
(call-with-values
(lambda ()
- (#{cvt\ 3683}#
- #{y\ 3750}#
- #{n\ 3699}#
- #{ids\ 3700}#))
- (lambda (#{y\ 3751}#
- #{ids\ 3752}#)
+ (#{cvt\ 3684}#
+ #{y\ 3751}#
+ #{n\ 3700}#
+ #{ids\ 3701}#))
+ (lambda (#{y\ 3752}#
+ #{ids\ 3753}#)
(call-with-values
(lambda ()
- (#{cvt\ 3683}#
- #{x\ 3749}#
- #{n\ 3699}#
- #{ids\ 3752}#))
- (lambda (#{x\ 3755}#
- #{ids\ 3756}#)
+ (#{cvt\ 3684}#
+ #{x\ 3750}#
+ #{n\ 3700}#
+ #{ids\ 3753}#))
+ (lambda (#{x\ 3756}#
+ #{ids\ 3757}#)
(values
- (cons #{x\ 3755}#
- #{y\ 3751}#)
- #{ids\ 3756}#))))))
- #{tmp\ 3746}#)
- (let ((#{tmp\ 3759}#
+ (cons #{x\ 3756}#
+ #{y\ 3752}#)
+ #{ids\ 3757}#))))))
+ #{tmp\ 3747}#)
+ (let ((#{tmp\ 3760}#
($sc-dispatch
- #{tmp\ 3709}#
+ #{tmp\ 3710}#
'())))
- (if #{tmp\ 3759}#
+ (if #{tmp\ 3760}#
(@apply
(lambda ()
- (values
- '()
- #{ids\ 3700}#))
- #{tmp\ 3759}#)
- (let ((#{tmp\ 3760}#
+ (values '() #{ids\ 3701}#))
+ #{tmp\ 3760}#)
+ (let ((#{tmp\ 3761}#
($sc-dispatch
- #{tmp\ 3709}#
+ #{tmp\ 3710}#
'#(vector
each-any))))
- (if #{tmp\ 3760}#
+ (if #{tmp\ 3761}#
(@apply
- (lambda (#{x\ 3762}#)
+ (lambda (#{x\ 3763}#)
(call-with-values
(lambda ()
- (#{cvt\ 3683}#
- #{x\ 3762}#
- #{n\ 3699}#
- #{ids\ 3700}#))
- (lambda (#{p\ 3764}#
- #{ids\
3765}#)
+ (#{cvt\ 3684}#
+ #{x\ 3763}#
+ #{n\ 3700}#
+ #{ids\ 3701}#))
+ (lambda (#{p\ 3765}#
+ #{ids\
3766}#)
(values
(vector
'vector
- #{p\ 3764}#)
- #{ids\ 3765}#))))
- #{tmp\ 3760}#)
- (let ((#{x\ 3769}#
- #{tmp\ 3709}#))
+ #{p\ 3765}#)
+ #{ids\ 3766}#))))
+ #{tmp\ 3761}#)
+ (let ((#{x\ 3770}#
+ #{tmp\ 3710}#))
(values
(vector
'atom
- (#{strip\ 486}#
- #{p\ 3698}#
+ (#{strip\ 487}#
+ #{p\ 3699}#
'(())))
- #{ids\
3700}#)))))))))))))))))
- (begin
- (#{cvt\ 3683}# #{pattern\ 3676}# 0 (quote ()))))))
- (#{build-dispatch-call\ 3671}#
- (lambda (#{pvars\ 3771}#
- #{exp\ 3772}#
- #{y\ 3773}#
- #{r\ 3774}#
- #{mod\ 3775}#)
+ #{ids\
3701}#)))))))))))))))))
+ (begin (#{cvt\ 3684}# #{pattern\ 3677}# 0 '())))))
+ (#{build-dispatch-call\ 3672}#
+ (lambda (#{pvars\ 3772}#
+ #{exp\ 3773}#
+ #{y\ 3774}#
+ #{r\ 3775}#
+ #{mod\ 3776}#)
(begin
- (map cdr #{pvars\ 3771}#)
- (let ((#{ids\ 3783}# (map car #{pvars\ 3771}#)))
+ (map cdr #{pvars\ 3772}#)
+ (let ((#{ids\ 3784}# (map car #{pvars\ 3772}#)))
(begin
- (let ((#{labels\ 3787}#
- (#{gen-labels\ 393}# #{ids\ 3783}#))
- (#{new-vars\ 3788}#
- (map #{gen-var\ 488}# #{ids\ 3783}#)))
- (#{build-application\ 304}#
+ (let ((#{labels\ 3788}#
+ (#{gen-labels\ 394}# #{ids\ 3784}#))
+ (#{new-vars\ 3789}#
+ (map #{gen-var\ 489}# #{ids\ 3784}#)))
+ (#{build-application\ 305}#
#f
- (#{build-primref\ 328}# #f (quote apply))
- (list (#{build-simple-lambda\ 322}#
+ (#{build-primref\ 329}# #f 'apply)
+ (list (#{build-simple-lambda\ 323}#
#f
- (map syntax->datum #{ids\ 3783}#)
+ (map syntax->datum #{ids\ 3784}#)
#f
- #{new-vars\ 3788}#
+ #{new-vars\ 3789}#
'()
- (#{chi\ 460}#
- #{exp\ 3772}#
- (#{extend-env\ 366}#
- #{labels\ 3787}#
- (map (lambda (#{var\ 3792}#
- #{level\ 3793}#)
+ (#{chi\ 461}#
+ #{exp\ 3773}#
+ (#{extend-env\ 367}#
+ #{labels\ 3788}#
+ (map (lambda (#{var\ 3793}#
+ #{level\ 3794}#)
(cons 'syntax
- (cons #{var\ 3792}#
- #{level\
3793}#)))
- #{new-vars\ 3788}#
- (map cdr #{pvars\ 3771}#))
- #{r\ 3774}#)
- (#{make-binding-wrap\ 422}#
- #{ids\ 3783}#
- #{labels\ 3787}#
+ (cons #{var\ 3793}#
+ #{level\
3794}#)))
+ #{new-vars\ 3789}#
+ (map cdr #{pvars\ 3772}#))
+ #{r\ 3775}#)
+ (#{make-binding-wrap\ 423}#
+ #{ids\ 3784}#
+ #{labels\ 3788}#
'(()))
- #{mod\ 3775}#))
- #{y\ 3773}#))))))))
- (#{gen-clause\ 3673}#
- (lambda (#{x\ 3799}#
- #{keys\ 3800}#
- #{clauses\ 3801}#
- #{r\ 3802}#
- #{pat\ 3803}#
- #{fender\ 3804}#
- #{exp\ 3805}#
- #{mod\ 3806}#)
+ #{mod\ 3776}#))
+ #{y\ 3774}#))))))))
+ (#{gen-clause\ 3674}#
+ (lambda (#{x\ 3800}#
+ #{keys\ 3801}#
+ #{clauses\ 3802}#
+ #{r\ 3803}#
+ #{pat\ 3804}#
+ #{fender\ 3805}#
+ #{exp\ 3806}#
+ #{mod\ 3807}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3669}#
- #{pat\ 3803}#
- #{keys\ 3800}#))
- (lambda (#{p\ 3815}# #{pvars\ 3816}#)
- (if (not (#{distinct-bound-ids?\ 440}#
- (map car #{pvars\ 3816}#)))
+ (#{convert-pattern\ 3670}#
+ #{pat\ 3804}#
+ #{keys\ 3801}#))
+ (lambda (#{p\ 3816}# #{pvars\ 3817}#)
+ (if (not (#{distinct-bound-ids?\ 441}#
+ (map car #{pvars\ 3817}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3803}#)
+ #{pat\ 3804}#)
(if (not (and-map
- (lambda (#{x\ 3823}#)
- (not (#{ellipsis?\ 476}#
- (car #{x\ 3823}#))))
- #{pvars\ 3816}#))
+ (lambda (#{x\ 3824}#)
+ (not (#{ellipsis?\ 477}#
+ (car #{x\ 3824}#))))
+ #{pvars\ 3817}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3803}#)
+ #{pat\ 3804}#)
(begin
- (let ((#{y\ 3827}#
- (#{gen-var\ 488}# (quote tmp))))
- (#{build-application\ 304}#
+ (let ((#{y\ 3828}# (#{gen-var\ 489}# 'tmp)))
+ (#{build-application\ 305}#
#f
- (#{build-simple-lambda\ 322}#
+ (#{build-simple-lambda\ 323}#
#f
- (list (quote tmp))
+ (list 'tmp)
#f
- (list #{y\ 3827}#)
+ (list #{y\ 3828}#)
'()
(begin
- (let ((#{y\ 3831}#
- (#{build-lexical-reference\
310}#
+ (let ((#{y\ 3832}#
+ (#{build-lexical-reference\
311}#
'value
#f
'tmp
- #{y\ 3827}#)))
- (#{build-conditional\ 306}#
+ #{y\ 3828}#)))
+ (#{build-conditional\ 307}#
#f
- (let ((#{tmp\ 3834}#
- #{fender\ 3804}#))
- (let ((#{tmp\ 3835}#
+ (let ((#{tmp\ 3835}#
+ #{fender\ 3805}#))
+ (let ((#{tmp\ 3836}#
($sc-dispatch
- #{tmp\ 3834}#
+ #{tmp\ 3835}#
'#(atom #t))))
- (if #{tmp\ 3835}#
+ (if #{tmp\ 3836}#
(@apply
- (lambda () #{y\ 3831}#)
- #{tmp\ 3835}#)
- (let ((#{_\ 3837}#
- #{tmp\ 3834}#))
- (#{build-conditional\ 306}#
+ (lambda () #{y\ 3832}#)
+ #{tmp\ 3836}#)
+ (let ((#{_\ 3838}#
+ #{tmp\ 3835}#))
+ (#{build-conditional\ 307}#
#f
- #{y\ 3831}#
- (#{build-dispatch-call\
3671}#
- #{pvars\ 3816}#
- #{fender\ 3804}#
- #{y\ 3831}#
- #{r\ 3802}#
- #{mod\ 3806}#)
- (#{build-data\ 330}#
+ #{y\ 3832}#
+ (#{build-dispatch-call\
3672}#
+ #{pvars\ 3817}#
+ #{fender\ 3805}#
+ #{y\ 3832}#
+ #{r\ 3803}#
+ #{mod\ 3807}#)
+ (#{build-data\ 331}#
#f
#f))))))
- (#{build-dispatch-call\ 3671}#
- #{pvars\ 3816}#
- #{exp\ 3805}#
- #{y\ 3831}#
- #{r\ 3802}#
- #{mod\ 3806}#)
- (#{gen-syntax-case\ 3675}#
- #{x\ 3799}#
- #{keys\ 3800}#
- #{clauses\ 3801}#
- #{r\ 3802}#
- #{mod\ 3806}#)))))
- (list (if (eq? #{p\ 3815}# (quote any))
- (#{build-application\ 304}#
+ (#{build-dispatch-call\ 3672}#
+ #{pvars\ 3817}#
+ #{exp\ 3806}#
+ #{y\ 3832}#
+ #{r\ 3803}#
+ #{mod\ 3807}#)
+ (#{gen-syntax-case\ 3676}#
+ #{x\ 3800}#
+ #{keys\ 3801}#
+ #{clauses\ 3802}#
+ #{r\ 3803}#
+ #{mod\ 3807}#)))))
+ (list (if (eq? #{p\ 3816}# 'any)
+ (#{build-application\ 305}#
#f
- (#{build-primref\ 328}#
- #f
- 'list)
- (list #{x\ 3799}#))
- (#{build-application\ 304}#
+ (#{build-primref\ 329}# #f 'list)
+ (list #{x\ 3800}#))
+ (#{build-application\ 305}#
#f
- (#{build-primref\ 328}#
+ (#{build-primref\ 329}#
#f
'$sc-dispatch)
- (list #{x\ 3799}#
- (#{build-data\ 330}#
+ (list #{x\ 3800}#
+ (#{build-data\ 331}#
#f
- #{p\ 3815}#))))))))))))))
- (#{gen-syntax-case\ 3675}#
- (lambda (#{x\ 3845}#
- #{keys\ 3846}#
- #{clauses\ 3847}#
- #{r\ 3848}#
- #{mod\ 3849}#)
- (if (null? #{clauses\ 3847}#)
- (#{build-application\ 304}#
+ #{p\ 3816}#))))))))))))))
+ (#{gen-syntax-case\ 3676}#
+ (lambda (#{x\ 3846}#
+ #{keys\ 3847}#
+ #{clauses\ 3848}#
+ #{r\ 3849}#
+ #{mod\ 3850}#)
+ (if (null? #{clauses\ 3848}#)
+ (#{build-application\ 305}#
#f
- (#{build-primref\ 328}#
- #f
- 'syntax-violation)
- (list (#{build-data\ 330}# #f #f)
- (#{build-data\ 330}#
+ (#{build-primref\ 329}# #f 'syntax-violation)
+ (list (#{build-data\ 331}# #f #f)
+ (#{build-data\ 331}#
#f
"source expression failed to match any
pattern")
- #{x\ 3845}#))
- (let ((#{tmp\ 3859}# (car #{clauses\ 3847}#)))
- (let ((#{tmp\ 3860}#
- ($sc-dispatch
- #{tmp\ 3859}#
- '(any any))))
- (if #{tmp\ 3860}#
+ #{x\ 3846}#))
+ (let ((#{tmp\ 3860}# (car #{clauses\ 3848}#)))
+ (let ((#{tmp\ 3861}#
+ ($sc-dispatch #{tmp\ 3860}# '(any any))))
+ (if #{tmp\ 3861}#
(@apply
- (lambda (#{pat\ 3863}# #{exp\ 3864}#)
- (if (if (#{id?\ 378}# #{pat\ 3863}#)
+ (lambda (#{pat\ 3864}# #{exp\ 3865}#)
+ (if (if (#{id?\ 379}# #{pat\ 3864}#)
(and-map
- (lambda (#{x\ 3867}#)
- (not (#{free-id=?\ 434}#
- #{pat\ 3863}#
- #{x\ 3867}#)))
+ (lambda (#{x\ 3868}#)
+ (not (#{free-id=?\ 435}#
+ #{pat\ 3864}#
+ #{x\ 3868}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3861" "i3862"))
+ #("i3862" "i3863"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -12643,21 +12560,21 @@
(top)
(top)
(top))
- #("i3850"
- "i3851"
+ #("i3851"
"i3852"
"i3853"
- "i3854"))
+ "i3854"
+ "i3855"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3674"
- "i3672"
- "i3670"
- "i3668"))
+ ("i3675"
+ "i3673"
+ "i3671"
+ "i3669"))
#(ribcage
(lambda-var-list
gen-var
@@ -12933,58 +12850,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -12993,123 +12911,122 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39"
+ ("i40"
+ "i39"
"i38"
- "i37"
- "i35")))
+ "i36")))
(hygiene guile))
- #{keys\ 3846}#))
+ #{keys\ 3847}#))
#f)
- (if (#{free-id=?\ 434}#
+ (if (#{free-id=?\ 435}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3861" "i3862"))
+ #("i3862" "i3863"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3850"
- "i3851"
+ #("i3851"
"i3852"
"i3853"
- "i3854"))
+ "i3854"
+ "i3855"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3674"
- "i3672"
- "i3670"
- "i3668"))
+ ("i3675"
+ "i3673"
+ "i3671"
+ "i3669"))
#(ribcage
(lambda-var-list
gen-var
@@ -13385,58 +13302,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -13445,90 +13363,89 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile))
'#(syntax-object
_
@@ -13536,26 +13453,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3861" "i3862"))
+ #("i3862" "i3863"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3850"
- "i3851"
+ #("i3851"
"i3852"
"i3853"
- "i3854"))
+ "i3854"
+ "i3855"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3674"
- "i3672"
- "i3670"
- "i3668"))
+ ("i3675"
+ "i3673"
+ "i3671"
+ "i3669"))
#(ribcage
(lambda-var-list
gen-var
@@ -13831,58 +13748,59 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
- "i483"
- "i481"
- "i479"
- "i477"
- "i475"
- "i473"
- "i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
+ ("i490"
+ "i488"
+ "i486"
+ "i484"
+ "i482"
+ "i480"
+ "i478"
+ "i476"
+ "i474"
+ "i472"
+ "i470"
+ "i468"
+ "i466"
+ "i464"
+ "i462"
+ "i460"
+ "i458"
+ "i456"
+ "i454"
+ "i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
"i419"
"i418"
- "i417"
+ "i416"
"i415"
"i414"
"i413"
"i412"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i395"
- "i392"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i393"
+ "i391"
"i390"
"i389"
"i388"
@@ -13891,690 +13809,675 @@
"i385"
"i384"
"i383"
- "i382"
+ "i381"
"i380"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
"i365"
"i364"
"i363"
"i362"
"i361"
- "i360"
+ "i359"
"i358"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
+ "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"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
"i293"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"))
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i254"
+ "i252"
+ "i250"
+ "i248"
+ "i246"
+ "i244"
+ "i242"
+ "i240"
+ "i238"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i40" "i39" "i38" "i36")))
(hygiene guile)))
- (#{chi\ 460}#
- #{exp\ 3864}#
- #{r\ 3848}#
+ (#{chi\ 461}#
+ #{exp\ 3865}#
+ #{r\ 3849}#
'(())
- #{mod\ 3849}#)
+ #{mod\ 3850}#)
(begin
- (let ((#{labels\ 3872}#
- (list (#{gen-label\ 391}#)))
- (#{var\ 3873}#
- (#{gen-var\ 488}#
- #{pat\ 3863}#)))
- (#{build-application\ 304}#
+ (let ((#{labels\ 3873}#
+ (list (#{gen-label\ 392}#)))
+ (#{var\ 3874}#
+ (#{gen-var\ 489}#
+ #{pat\ 3864}#)))
+ (#{build-application\ 305}#
#f
- (#{build-simple-lambda\ 322}#
+ (#{build-simple-lambda\ 323}#
#f
(list (syntax->datum
- #{pat\ 3863}#))
+ #{pat\ 3864}#))
#f
- (list #{var\ 3873}#)
+ (list #{var\ 3874}#)
'()
- (#{chi\ 460}#
- #{exp\ 3864}#
- (#{extend-env\ 366}#
- #{labels\ 3872}#
+ (#{chi\ 461}#
+ #{exp\ 3865}#
+ (#{extend-env\ 367}#
+ #{labels\ 3873}#
(list (cons 'syntax
- (cons #{var\
3873}#
+ (cons #{var\
3874}#
0)))
- #{r\ 3848}#)
- (#{make-binding-wrap\ 422}#
- (list #{pat\ 3863}#)
- #{labels\ 3872}#
+ #{r\ 3849}#)
+ (#{make-binding-wrap\ 423}#
+ (list #{pat\ 3864}#)
+ #{labels\ 3873}#
'(()))
- #{mod\ 3849}#))
- (list #{x\ 3845}#)))))
- (#{gen-clause\ 3673}#
- #{x\ 3845}#
- #{keys\ 3846}#
- (cdr #{clauses\ 3847}#)
- #{r\ 3848}#
- #{pat\ 3863}#
+ #{mod\ 3850}#))
+ (list #{x\ 3846}#)))))
+ (#{gen-clause\ 3674}#
+ #{x\ 3846}#
+ #{keys\ 3847}#
+ (cdr #{clauses\ 3848}#)
+ #{r\ 3849}#
+ #{pat\ 3864}#
#t
- #{exp\ 3864}#
- #{mod\ 3849}#)))
- #{tmp\ 3860}#)
- (let ((#{tmp\ 3879}#
+ #{exp\ 3865}#
+ #{mod\ 3850}#)))
+ #{tmp\ 3861}#)
+ (let ((#{tmp\ 3880}#
($sc-dispatch
- #{tmp\ 3859}#
+ #{tmp\ 3860}#
'(any any any))))
- (if #{tmp\ 3879}#
+ (if #{tmp\ 3880}#
(@apply
- (lambda (#{pat\ 3883}#
- #{fender\ 3884}#
- #{exp\ 3885}#)
- (#{gen-clause\ 3673}#
- #{x\ 3845}#
- #{keys\ 3846}#
- (cdr #{clauses\ 3847}#)
- #{r\ 3848}#
- #{pat\ 3883}#
- #{fender\ 3884}#
- #{exp\ 3885}#
- #{mod\ 3849}#))
- #{tmp\ 3879}#)
- (let ((#{_\ 3887}# #{tmp\ 3859}#))
+ (lambda (#{pat\ 3884}#
+ #{fender\ 3885}#
+ #{exp\ 3886}#)
+ (#{gen-clause\ 3674}#
+ #{x\ 3846}#
+ #{keys\ 3847}#
+ (cdr #{clauses\ 3848}#)
+ #{r\ 3849}#
+ #{pat\ 3884}#
+ #{fender\ 3885}#
+ #{exp\ 3886}#
+ #{mod\ 3850}#))
+ #{tmp\ 3880}#)
+ (let ((#{_\ 3888}# #{tmp\ 3860}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3847}#))))))))))))
+ (car #{clauses\ 3848}#))))))))))))
(begin
- (lambda (#{e\ 3888}#
- #{r\ 3889}#
- #{w\ 3890}#
- #{s\ 3891}#
- #{mod\ 3892}#)
+ (lambda (#{e\ 3889}#
+ #{r\ 3890}#
+ #{w\ 3891}#
+ #{s\ 3892}#
+ #{mod\ 3893}#)
(begin
- (let ((#{e\ 3899}#
- (#{source-wrap\ 446}#
- #{e\ 3888}#
- #{w\ 3890}#
- #{s\ 3891}#
- #{mod\ 3892}#)))
- (let ((#{tmp\ 3900}# #{e\ 3899}#))
- (let ((#{tmp\ 3901}#
+ (let ((#{e\ 3900}#
+ (#{source-wrap\ 447}#
+ #{e\ 3889}#
+ #{w\ 3891}#
+ #{s\ 3892}#
+ #{mod\ 3893}#)))
+ (let ((#{tmp\ 3901}# #{e\ 3900}#))
+ (let ((#{tmp\ 3902}#
($sc-dispatch
- #{tmp\ 3900}#
+ #{tmp\ 3901}#
'(_ any each-any . each-any))))
- (if #{tmp\ 3901}#
+ (if #{tmp\ 3902}#
(@apply
- (lambda (#{val\ 3905}#
- #{key\ 3906}#
- #{m\ 3907}#)
+ (lambda (#{val\ 3906}#
+ #{key\ 3907}#
+ #{m\ 3908}#)
(if (and-map
- (lambda (#{x\ 3908}#)
- (if (#{id?\ 378}# #{x\ 3908}#)
- (not (#{ellipsis?\ 476}#
- #{x\ 3908}#))
+ (lambda (#{x\ 3909}#)
+ (if (#{id?\ 379}# #{x\ 3909}#)
+ (not (#{ellipsis?\ 477}#
+ #{x\ 3909}#))
#f))
- #{key\ 3906}#)
+ #{key\ 3907}#)
(begin
- (let ((#{x\ 3914}#
- (#{gen-var\ 488}# (quote tmp))))
- (#{build-application\ 304}#
- #{s\ 3891}#
- (#{build-simple-lambda\ 322}#
+ (let ((#{x\ 3915}#
+ (#{gen-var\ 489}# 'tmp)))
+ (#{build-application\ 305}#
+ #{s\ 3892}#
+ (#{build-simple-lambda\ 323}#
#f
- (list (quote tmp))
+ (list 'tmp)
#f
- (list #{x\ 3914}#)
+ (list #{x\ 3915}#)
'()
- (#{gen-syntax-case\ 3675}#
- (#{build-lexical-reference\ 310}#
+ (#{gen-syntax-case\ 3676}#
+ (#{build-lexical-reference\ 311}#
'value
#f
'tmp
- #{x\ 3914}#)
- #{key\ 3906}#
- #{m\ 3907}#
- #{r\ 3889}#
- #{mod\ 3892}#))
- (list (#{chi\ 460}#
- #{val\ 3905}#
- #{r\ 3889}#
+ #{x\ 3915}#)
+ #{key\ 3907}#
+ #{m\ 3908}#
+ #{r\ 3890}#
+ #{mod\ 3893}#))
+ (list (#{chi\ 461}#
+ #{val\ 3906}#
+ #{r\ 3890}#
'(())
- #{mod\ 3892}#)))))
+ #{mod\ 3893}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3899}#)))
- #{tmp\ 3901}#)
+ #{e\ 3900}#)))
+ #{tmp\ 3902}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3900}#))))))))))
+ #{tmp\ 3901}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 3920}#
+ (#{x\ 3921}#
#:optional
- (#{m\ 3922}# (quote e))
- (#{esew\ 3924}# (quote (eval))))
- (#{chi-top\ 458}#
- #{x\ 3920}#
+ (#{m\ 3923}# 'e)
+ (#{esew\ 3925}# '(eval)))
+ (#{chi-top\ 459}#
+ #{x\ 3921}#
'()
'((top))
- #{m\ 3922}#
- #{esew\ 3924}#
- (cons 'hygiene
- (module-name (current-module))))))
+ #{m\ 3923}#
+ #{esew\ 3925}#
+ (cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3928}#)
- (#{nonsymbol-id?\ 376}# #{x\ 3928}#)))
+ (lambda (#{x\ 3929}#)
+ (#{nonsymbol-id?\ 377}# #{x\ 3929}#)))
(set! datum->syntax
- (lambda (#{id\ 3930}# #{datum\ 3931}#)
- (#{make-syntax-object\ 342}#
- #{datum\ 3931}#
- (#{syntax-object-wrap\ 348}# #{id\ 3930}#)
- (#{syntax-object-module\ 350}# #{id\ 3930}#))))
+ (lambda (#{id\ 3931}# #{datum\ 3932}#)
+ (#{make-syntax-object\ 343}#
+ #{datum\ 3932}#
+ (#{syntax-object-wrap\ 349}# #{id\ 3931}#)
+ (#{syntax-object-module\ 351}# #{id\ 3931}#))))
(set! syntax->datum
- (lambda (#{x\ 3934}#)
- (#{strip\ 486}# #{x\ 3934}# (quote (())))))
+ (lambda (#{x\ 3935}#)
+ (#{strip\ 487}# #{x\ 3935}# '(()))))
(set! syntax-source
- (lambda (#{x\ 3937}#)
- (#{source-annotation\ 359}# #{x\ 3937}#)))
+ (lambda (#{x\ 3938}#)
+ (#{source-annotation\ 360}# #{x\ 3938}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3939}#)
+ (lambda (#{ls\ 3940}#)
(begin
(begin
- (let ((#{x\ 3943}# #{ls\ 3939}#))
- (if (not (list? #{x\ 3943}#))
+ (let ((#{x\ 3944}# #{ls\ 3940}#))
+ (if (not (list? #{x\ 3944}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3943}#))))
- (map (lambda (#{x\ 3944}#)
- (#{wrap\ 444}# (gensym) (quote ((top))) #f))
- #{ls\ 3939}#))))
+ #{x\ 3944}#))))
+ (map (lambda (#{x\ 3945}#)
+ (#{wrap\ 445}# (gensym) '((top)) #f))
+ #{ls\ 3940}#))))
(set! free-identifier=?
- (lambda (#{x\ 3948}# #{y\ 3949}#)
+ (lambda (#{x\ 3949}# #{y\ 3950}#)
(begin
(begin
- (let ((#{x\ 3954}# #{x\ 3948}#))
- (if (not (#{nonsymbol-id?\ 376}# #{x\ 3954}#))
+ (let ((#{x\ 3955}# #{x\ 3949}#))
+ (if (not (#{nonsymbol-id?\ 377}# #{x\ 3955}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3954}#))))
+ #{x\ 3955}#))))
(begin
- (let ((#{x\ 3957}# #{y\ 3949}#))
- (if (not (#{nonsymbol-id?\ 376}# #{x\ 3957}#))
+ (let ((#{x\ 3958}# #{y\ 3950}#))
+ (if (not (#{nonsymbol-id?\ 377}# #{x\ 3958}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3957}#))))
- (#{free-id=?\ 434}# #{x\ 3948}# #{y\ 3949}#))))
+ #{x\ 3958}#))))
+ (#{free-id=?\ 435}# #{x\ 3949}# #{y\ 3950}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3958}# #{y\ 3959}#)
+ (lambda (#{x\ 3959}# #{y\ 3960}#)
(begin
(begin
- (let ((#{x\ 3964}# #{x\ 3958}#))
- (if (not (#{nonsymbol-id?\ 376}# #{x\ 3964}#))
+ (let ((#{x\ 3965}# #{x\ 3959}#))
+ (if (not (#{nonsymbol-id?\ 377}# #{x\ 3965}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3964}#))))
+ #{x\ 3965}#))))
(begin
- (let ((#{x\ 3967}# #{y\ 3959}#))
- (if (not (#{nonsymbol-id?\ 376}# #{x\ 3967}#))
+ (let ((#{x\ 3968}# #{y\ 3960}#))
+ (if (not (#{nonsymbol-id?\ 377}# #{x\ 3968}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3967}#))))
- (#{bound-id=?\ 436}# #{x\ 3958}# #{y\ 3959}#))))
+ #{x\ 3968}#))))
+ (#{bound-id=?\ 437}# #{x\ 3959}# #{y\ 3960}#))))
(set! syntax-violation
- (lambda (#{who\ 3968}#
- #{message\ 3969}#
- #{form\ 3970}#
- .
- #{subform\ 3971}#)
+ (lambda*
+ (#{who\ 3969}#
+ #{message\ 3970}#
+ #{form\ 3971}#
+ #:optional
+ (#{subform\ 3975}# #f))
(begin
(begin
- (let ((#{x\ 3978}# #{who\ 3968}#))
- (if (not (let ((#{x\ 3979}# #{x\ 3978}#))
+ (let ((#{x\ 3979}# #{who\ 3969}#))
+ (if (not (let ((#{x\ 3980}# #{x\ 3979}#))
(begin
- (let ((#{t\ 3983}# (not #{x\ 3979}#)))
- (if #{t\ 3983}#
- #{t\ 3983}#
+ (let ((#{t\ 3984}# (not #{x\ 3980}#)))
+ (if #{t\ 3984}#
+ #{t\ 3984}#
(begin
- (let ((#{t\ 3986}#
- (string? #{x\ 3979}#)))
- (if #{t\ 3986}#
- #{t\ 3986}#
- (symbol? #{x\ 3979}#)))))))))
+ (let ((#{t\ 3987}#
+ (string? #{x\ 3980}#)))
+ (if #{t\ 3987}#
+ #{t\ 3987}#
+ (symbol? #{x\ 3980}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3978}#))))
+ #{x\ 3979}#))))
(begin
- (let ((#{x\ 3990}# #{message\ 3969}#))
- (if (not (string? #{x\ 3990}#))
+ (let ((#{x\ 3991}# #{message\ 3970}#))
+ (if (not (string? #{x\ 3991}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3990}#))))
- (scm-error
- 'syntax-error
- 'macroexpand
- (string-append
- (if #{who\ 3968}# "~a: " "")
- "~a "
- (if (null? #{subform\ 3971}#)
- "in ~a"
- "in subform `~s' of `~s'"))
- (begin
- (let ((#{tail\ 3992}#
- (cons #{message\ 3969}#
- (map (lambda (#{x\ 3993}#)
- (#{strip\ 486}#
- #{x\ 3993}#
- '(())))
- (append
- #{subform\ 3971}#
- (list #{form\ 3970}#))))))
- (if #{who\ 3968}#
- (cons #{who\ 3968}# #{tail\ 3992}#)
- #{tail\ 3992}#)))
- #f))))
+ #{x\ 3991}#))))
+ (throw 'syntax-error
+ #{who\ 3969}#
+ #{message\ 3970}#
+ (#{source-annotation\ 360}#
+ (begin
+ (let ((#{t\ 3994}# #{form\ 3971}#))
+ (if #{t\ 3994}#
+ #{t\ 3994}#
+ #{subform\ 3975}#))))
+ (#{strip\ 487}# #{form\ 3971}# '(()))
+ (if #{subform\ 3975}#
+ (#{strip\ 487}# #{subform\ 3975}# '(()))
+ #f)))))
(letrec*
- ((#{match-each\ 3997}#
- (lambda (#{e\ 4010}#
- #{p\ 4011}#
- #{w\ 4012}#
- #{mod\ 4013}#)
- (if (pair? #{e\ 4010}#)
+ ((#{match-each\ 4001}#
+ (lambda (#{e\ 4014}#
+ #{p\ 4015}#
+ #{w\ 4016}#
+ #{mod\ 4017}#)
+ (if (pair? #{e\ 4014}#)
(begin
- (let ((#{first\ 4021}#
- (#{match\ 4009}#
- (car #{e\ 4010}#)
- #{p\ 4011}#
- #{w\ 4012}#
+ (let ((#{first\ 4025}#
+ (#{match\ 4013}#
+ (car #{e\ 4014}#)
+ #{p\ 4015}#
+ #{w\ 4016}#
'()
- #{mod\ 4013}#)))
- (if #{first\ 4021}#
+ #{mod\ 4017}#)))
+ (if #{first\ 4025}#
(begin
- (let ((#{rest\ 4025}#
- (#{match-each\ 3997}#
- (cdr #{e\ 4010}#)
- #{p\ 4011}#
- #{w\ 4012}#
- #{mod\ 4013}#)))
- (if #{rest\ 4025}#
- (cons #{first\ 4021}# #{rest\ 4025}#)
+ (let ((#{rest\ 4029}#
+ (#{match-each\ 4001}#
+ (cdr #{e\ 4014}#)
+ #{p\ 4015}#
+ #{w\ 4016}#
+ #{mod\ 4017}#)))
+ (if #{rest\ 4029}#
+ (cons #{first\ 4025}# #{rest\ 4029}#)
#f)))
#f)))
- (if (null? #{e\ 4010}#)
+ (if (null? #{e\ 4014}#)
'()
- (if (#{syntax-object?\ 344}# #{e\ 4010}#)
- (#{match-each\ 3997}#
- (#{syntax-object-expression\ 346}# #{e\ 4010}#)
- #{p\ 4011}#
- (#{join-wraps\ 426}#
- #{w\ 4012}#
- (#{syntax-object-wrap\ 348}# #{e\ 4010}#))
- (#{syntax-object-module\ 350}# #{e\ 4010}#))
+ (if (#{syntax-object?\ 345}# #{e\ 4014}#)
+ (#{match-each\ 4001}#
+ (#{syntax-object-expression\ 347}# #{e\ 4014}#)
+ #{p\ 4015}#
+ (#{join-wraps\ 427}#
+ #{w\ 4016}#
+ (#{syntax-object-wrap\ 349}# #{e\ 4014}#))
+ (#{syntax-object-module\ 351}# #{e\ 4014}#))
#f)))))
- (#{match-each+\ 3999}#
- (lambda (#{e\ 4033}#
- #{x-pat\ 4034}#
- #{y-pat\ 4035}#
- #{z-pat\ 4036}#
- #{w\ 4037}#
- #{r\ 4038}#
- #{mod\ 4039}#)
+ (#{match-each+\ 4003}#
+ (lambda (#{e\ 4037}#
+ #{x-pat\ 4038}#
+ #{y-pat\ 4039}#
+ #{z-pat\ 4040}#
+ #{w\ 4041}#
+ #{r\ 4042}#
+ #{mod\ 4043}#)
(letrec*
- ((#{f\ 4050}#
- (lambda (#{e\ 4051}# #{w\ 4052}#)
- (if (pair? #{e\ 4051}#)
+ ((#{f\ 4054}#
+ (lambda (#{e\ 4055}# #{w\ 4056}#)
+ (if (pair? #{e\ 4055}#)
(call-with-values
(lambda ()
- (#{f\ 4050}# (cdr #{e\ 4051}#) #{w\ 4052}#))
- (lambda (#{xr*\ 4055}#
- #{y-pat\ 4056}#
- #{r\ 4057}#)
- (if #{r\ 4057}#
- (if (null? #{y-pat\ 4056}#)
+ (#{f\ 4054}# (cdr #{e\ 4055}#) #{w\ 4056}#))
+ (lambda (#{xr*\ 4059}#
+ #{y-pat\ 4060}#
+ #{r\ 4061}#)
+ (if #{r\ 4061}#
+ (if (null? #{y-pat\ 4060}#)
(begin
- (let ((#{xr\ 4062}#
- (#{match\ 4009}#
- (car #{e\ 4051}#)
- #{x-pat\ 4034}#
- #{w\ 4052}#
+ (let ((#{xr\ 4066}#
+ (#{match\ 4013}#
+ (car #{e\ 4055}#)
+ #{x-pat\ 4038}#
+ #{w\ 4056}#
'()
- #{mod\ 4039}#)))
- (if #{xr\ 4062}#
+ #{mod\ 4043}#)))
+ (if #{xr\ 4066}#
(values
- (cons #{xr\ 4062}# #{xr*\ 4055}#)
- #{y-pat\ 4056}#
- #{r\ 4057}#)
+ (cons #{xr\ 4066}# #{xr*\ 4059}#)
+ #{y-pat\ 4060}#
+ #{r\ 4061}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 4056}#)
- (#{match\ 4009}#
- (car #{e\ 4051}#)
- (car #{y-pat\ 4056}#)
- #{w\ 4052}#
- #{r\ 4057}#
- #{mod\ 4039}#)))
+ (cdr #{y-pat\ 4060}#)
+ (#{match\ 4013}#
+ (car #{e\ 4055}#)
+ (car #{y-pat\ 4060}#)
+ #{w\ 4056}#
+ #{r\ 4061}#
+ #{mod\ 4043}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 344}# #{e\ 4051}#)
- (#{f\ 4050}#
- (#{syntax-object-expression\ 346}# #{e\ 4051}#)
- (#{join-wraps\ 426}# #{w\ 4052}# #{e\ 4051}#))
+ (if (#{syntax-object?\ 345}# #{e\ 4055}#)
+ (#{f\ 4054}#
+ (#{syntax-object-expression\ 347}# #{e\ 4055}#)
+ (#{join-wraps\ 427}# #{w\ 4056}# #{e\ 4055}#))
(values
'()
- #{y-pat\ 4035}#
- (#{match\ 4009}#
- #{e\ 4051}#
- #{z-pat\ 4036}#
- #{w\ 4052}#
- #{r\ 4038}#
- #{mod\ 4039}#)))))))
- (begin (#{f\ 4050}# #{e\ 4033}# #{w\ 4037}#)))))
- (#{match-each-any\ 4001}#
- (lambda (#{e\ 4066}# #{w\ 4067}# #{mod\ 4068}#)
- (if (pair? #{e\ 4066}#)
+ #{y-pat\ 4039}#
+ (#{match\ 4013}#
+ #{e\ 4055}#
+ #{z-pat\ 4040}#
+ #{w\ 4056}#
+ #{r\ 4042}#
+ #{mod\ 4043}#)))))))
+ (begin (#{f\ 4054}# #{e\ 4037}# #{w\ 4041}#)))))
+ (#{match-each-any\ 4005}#
+ (lambda (#{e\ 4070}# #{w\ 4071}# #{mod\ 4072}#)
+ (if (pair? #{e\ 4070}#)
(begin
- (let ((#{l\ 4075}#
- (#{match-each-any\ 4001}#
- (cdr #{e\ 4066}#)
- #{w\ 4067}#
- #{mod\ 4068}#)))
- (if #{l\ 4075}#
- (cons (#{wrap\ 444}#
- (car #{e\ 4066}#)
- #{w\ 4067}#
- #{mod\ 4068}#)
- #{l\ 4075}#)
+ (let ((#{l\ 4079}#
+ (#{match-each-any\ 4005}#
+ (cdr #{e\ 4070}#)
+ #{w\ 4071}#
+ #{mod\ 4072}#)))
+ (if #{l\ 4079}#
+ (cons (#{wrap\ 445}#
+ (car #{e\ 4070}#)
+ #{w\ 4071}#
+ #{mod\ 4072}#)
+ #{l\ 4079}#)
#f)))
- (if (null? #{e\ 4066}#)
+ (if (null? #{e\ 4070}#)
'()
- (if (#{syntax-object?\ 344}# #{e\ 4066}#)
- (#{match-each-any\ 4001}#
- (#{syntax-object-expression\ 346}# #{e\ 4066}#)
- (#{join-wraps\ 426}#
- #{w\ 4067}#
- (#{syntax-object-wrap\ 348}# #{e\ 4066}#))
- #{mod\ 4068}#)
+ (if (#{syntax-object?\ 345}# #{e\ 4070}#)
+ (#{match-each-any\ 4005}#
+ (#{syntax-object-expression\ 347}# #{e\ 4070}#)
+ (#{join-wraps\ 427}#
+ #{w\ 4071}#
+ (#{syntax-object-wrap\ 349}# #{e\ 4070}#))
+ #{mod\ 4072}#)
#f)))))
- (#{match-empty\ 4003}#
- (lambda (#{p\ 4083}# #{r\ 4084}#)
- (if (null? #{p\ 4083}#)
- #{r\ 4084}#
- (if (eq? #{p\ 4083}# (quote _))
- #{r\ 4084}#
- (if (eq? #{p\ 4083}# (quote any))
- (cons (quote ()) #{r\ 4084}#)
- (if (pair? #{p\ 4083}#)
- (#{match-empty\ 4003}#
- (car #{p\ 4083}#)
- (#{match-empty\ 4003}#
- (cdr #{p\ 4083}#)
- #{r\ 4084}#))
- (if (eq? #{p\ 4083}# (quote each-any))
- (cons (quote ()) #{r\ 4084}#)
+ (#{match-empty\ 4007}#
+ (lambda (#{p\ 4087}# #{r\ 4088}#)
+ (if (null? #{p\ 4087}#)
+ #{r\ 4088}#
+ (if (eq? #{p\ 4087}# '_)
+ #{r\ 4088}#
+ (if (eq? #{p\ 4087}# 'any)
+ (cons '() #{r\ 4088}#)
+ (if (pair? #{p\ 4087}#)
+ (#{match-empty\ 4007}#
+ (car #{p\ 4087}#)
+ (#{match-empty\ 4007}#
+ (cdr #{p\ 4087}#)
+ #{r\ 4088}#))
+ (if (eq? #{p\ 4087}# 'each-any)
+ (cons '() #{r\ 4088}#)
(begin
- (let ((#{atom-key\ 4100}#
- (vector-ref #{p\ 4083}# 0)))
- (if (eqv? #{atom-key\ 4100}# (quote each))
- (#{match-empty\ 4003}#
- (vector-ref #{p\ 4083}# 1)
- #{r\ 4084}#)
- (if (eqv? #{atom-key\ 4100}# (quote each+))
- (#{match-empty\ 4003}#
- (vector-ref #{p\ 4083}# 1)
- (#{match-empty\ 4003}#
- (reverse (vector-ref #{p\ 4083}# 2))
- (#{match-empty\ 4003}#
- (vector-ref #{p\ 4083}# 3)
- #{r\ 4084}#)))
- (if (if (eqv? #{atom-key\ 4100}#
- 'free-id)
+ (let ((#{atom-key\ 4104}#
+ (vector-ref #{p\ 4087}# 0)))
+ (if (eqv? #{atom-key\ 4104}# 'each)
+ (#{match-empty\ 4007}#
+ (vector-ref #{p\ 4087}# 1)
+ #{r\ 4088}#)
+ (if (eqv? #{atom-key\ 4104}# 'each+)
+ (#{match-empty\ 4007}#
+ (vector-ref #{p\ 4087}# 1)
+ (#{match-empty\ 4007}#
+ (reverse (vector-ref #{p\ 4087}# 2))
+ (#{match-empty\ 4007}#
+ (vector-ref #{p\ 4087}# 3)
+ #{r\ 4088}#)))
+ (if (if (eqv? #{atom-key\ 4104}# 'free-id)
#t
- (eqv? #{atom-key\ 4100}#
- 'atom))
- #{r\ 4084}#
- (if (eqv? #{atom-key\ 4100}#
- 'vector)
- (#{match-empty\ 4003}#
- (vector-ref #{p\ 4083}# 1)
- #{r\ 4084}#))))))))))))))
- (#{combine\ 4005}#
- (lambda (#{r*\ 4105}# #{r\ 4106}#)
- (if (null? (car #{r*\ 4105}#))
- #{r\ 4106}#
- (cons (map car #{r*\ 4105}#)
- (#{combine\ 4005}#
- (map cdr #{r*\ 4105}#)
- #{r\ 4106}#)))))
- (#{match*\ 4007}#
- (lambda (#{e\ 4109}#
- #{p\ 4110}#
- #{w\ 4111}#
- #{r\ 4112}#
- #{mod\ 4113}#)
- (if (null? #{p\ 4110}#)
- (if (null? #{e\ 4109}#) #{r\ 4112}# #f)
- (if (pair? #{p\ 4110}#)
- (if (pair? #{e\ 4109}#)
- (#{match\ 4009}#
- (car #{e\ 4109}#)
- (car #{p\ 4110}#)
- #{w\ 4111}#
- (#{match\ 4009}#
- (cdr #{e\ 4109}#)
- (cdr #{p\ 4110}#)
- #{w\ 4111}#
- #{r\ 4112}#
- #{mod\ 4113}#)
- #{mod\ 4113}#)
+ (eqv? #{atom-key\ 4104}# 'atom))
+ #{r\ 4088}#
+ (if (eqv? #{atom-key\ 4104}# 'vector)
+ (#{match-empty\ 4007}#
+ (vector-ref #{p\ 4087}# 1)
+ #{r\ 4088}#))))))))))))))
+ (#{combine\ 4009}#
+ (lambda (#{r*\ 4109}# #{r\ 4110}#)
+ (if (null? (car #{r*\ 4109}#))
+ #{r\ 4110}#
+ (cons (map car #{r*\ 4109}#)
+ (#{combine\ 4009}#
+ (map cdr #{r*\ 4109}#)
+ #{r\ 4110}#)))))
+ (#{match*\ 4011}#
+ (lambda (#{e\ 4113}#
+ #{p\ 4114}#
+ #{w\ 4115}#
+ #{r\ 4116}#
+ #{mod\ 4117}#)
+ (if (null? #{p\ 4114}#)
+ (if (null? #{e\ 4113}#) #{r\ 4116}# #f)
+ (if (pair? #{p\ 4114}#)
+ (if (pair? #{e\ 4113}#)
+ (#{match\ 4013}#
+ (car #{e\ 4113}#)
+ (car #{p\ 4114}#)
+ #{w\ 4115}#
+ (#{match\ 4013}#
+ (cdr #{e\ 4113}#)
+ (cdr #{p\ 4114}#)
+ #{w\ 4115}#
+ #{r\ 4116}#
+ #{mod\ 4117}#)
+ #{mod\ 4117}#)
#f)
- (if (eq? #{p\ 4110}# (quote each-any))
+ (if (eq? #{p\ 4114}# 'each-any)
(begin
- (let ((#{l\ 4130}#
- (#{match-each-any\ 4001}#
- #{e\ 4109}#
- #{w\ 4111}#
- #{mod\ 4113}#)))
- (if #{l\ 4130}#
- (cons #{l\ 4130}# #{r\ 4112}#)
+ (let ((#{l\ 4134}#
+ (#{match-each-any\ 4005}#
+ #{e\ 4113}#
+ #{w\ 4115}#
+ #{mod\ 4117}#)))
+ (if #{l\ 4134}#
+ (cons #{l\ 4134}# #{r\ 4116}#)
#f)))
(begin
- (let ((#{atom-key\ 4136}#
- (vector-ref #{p\ 4110}# 0)))
- (if (eqv? #{atom-key\ 4136}# (quote each))
- (if (null? #{e\ 4109}#)
- (#{match-empty\ 4003}#
- (vector-ref #{p\ 4110}# 1)
- #{r\ 4112}#)
+ (let ((#{atom-key\ 4140}#
+ (vector-ref #{p\ 4114}# 0)))
+ (if (eqv? #{atom-key\ 4140}# 'each)
+ (if (null? #{e\ 4113}#)
+ (#{match-empty\ 4007}#
+ (vector-ref #{p\ 4114}# 1)
+ #{r\ 4116}#)
(begin
- (let ((#{l\ 4139}#
- (#{match-each\ 3997}#
- #{e\ 4109}#
- (vector-ref #{p\ 4110}# 1)
- #{w\ 4111}#
- #{mod\ 4113}#)))
- (if #{l\ 4139}#
+ (let ((#{l\ 4143}#
+ (#{match-each\ 4001}#
+ #{e\ 4113}#
+ (vector-ref #{p\ 4114}# 1)
+ #{w\ 4115}#
+ #{mod\ 4117}#)))
+ (if #{l\ 4143}#
(letrec*
- ((#{collect\ 4144}#
- (lambda (#{l\ 4145}#)
- (if (null? (car #{l\ 4145}#))
- #{r\ 4112}#
- (cons (map car #{l\ 4145}#)
- (#{collect\ 4144}#
+ ((#{collect\ 4148}#
+ (lambda (#{l\ 4149}#)
+ (if (null? (car #{l\ 4149}#))
+ #{r\ 4116}#
+ (cons (map car #{l\ 4149}#)
+ (#{collect\ 4148}#
(map cdr
- #{l\ 4145}#)))))))
+ #{l\ 4149}#)))))))
(begin
- (#{collect\ 4144}# #{l\ 4139}#)))
+ (#{collect\ 4148}# #{l\ 4143}#)))
#f))))
- (if (eqv? #{atom-key\ 4136}# (quote each+))
+ (if (eqv? #{atom-key\ 4140}# 'each+)
(call-with-values
(lambda ()
- (#{match-each+\ 3999}#
- #{e\ 4109}#
- (vector-ref #{p\ 4110}# 1)
- (vector-ref #{p\ 4110}# 2)
- (vector-ref #{p\ 4110}# 3)
- #{w\ 4111}#
- #{r\ 4112}#
- #{mod\ 4113}#))
- (lambda (#{xr*\ 4147}#
- #{y-pat\ 4148}#
- #{r\ 4149}#)
- (if #{r\ 4149}#
- (if (null? #{y-pat\ 4148}#)
- (if (null? #{xr*\ 4147}#)
- (#{match-empty\ 4003}#
- (vector-ref #{p\ 4110}# 1)
- #{r\ 4149}#)
- (#{combine\ 4005}#
- #{xr*\ 4147}#
- #{r\ 4149}#))
+ (#{match-each+\ 4003}#
+ #{e\ 4113}#
+ (vector-ref #{p\ 4114}# 1)
+ (vector-ref #{p\ 4114}# 2)
+ (vector-ref #{p\ 4114}# 3)
+ #{w\ 4115}#
+ #{r\ 4116}#
+ #{mod\ 4117}#))
+ (lambda (#{xr*\ 4151}#
+ #{y-pat\ 4152}#
+ #{r\ 4153}#)
+ (if #{r\ 4153}#
+ (if (null? #{y-pat\ 4152}#)
+ (if (null? #{xr*\ 4151}#)
+ (#{match-empty\ 4007}#
+ (vector-ref #{p\ 4114}# 1)
+ #{r\ 4153}#)
+ (#{combine\ 4009}#
+ #{xr*\ 4151}#
+ #{r\ 4153}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 4136}# (quote free-id))
- (if (#{id?\ 378}# #{e\ 4109}#)
- (if (#{free-id=?\ 434}#
- (#{wrap\ 444}#
- #{e\ 4109}#
- #{w\ 4111}#
- #{mod\ 4113}#)
- (vector-ref #{p\ 4110}# 1))
- #{r\ 4112}#
+ (if (eqv? #{atom-key\ 4140}# 'free-id)
+ (if (#{id?\ 379}# #{e\ 4113}#)
+ (if (#{free-id=?\ 435}#
+ (#{wrap\ 445}#
+ #{e\ 4113}#
+ #{w\ 4115}#
+ #{mod\ 4117}#)
+ (vector-ref #{p\ 4114}# 1))
+ #{r\ 4116}#
#f)
#f)
- (if (eqv? #{atom-key\ 4136}# (quote atom))
+ (if (eqv? #{atom-key\ 4140}# 'atom)
(if (equal?
- (vector-ref #{p\ 4110}# 1)
- (#{strip\ 486}#
- #{e\ 4109}#
- #{w\ 4111}#))
- #{r\ 4112}#
+ (vector-ref #{p\ 4114}# 1)
+ (#{strip\ 487}#
+ #{e\ 4113}#
+ #{w\ 4115}#))
+ #{r\ 4116}#
#f)
- (if (eqv? #{atom-key\ 4136}#
- 'vector)
- (if (vector? #{e\ 4109}#)
- (#{match\ 4009}#
- (vector->list #{e\ 4109}#)
- (vector-ref #{p\ 4110}# 1)
- #{w\ 4111}#
- #{r\ 4112}#
- #{mod\ 4113}#)
+ (if (eqv? #{atom-key\ 4140}# 'vector)
+ (if (vector? #{e\ 4113}#)
+ (#{match\ 4013}#
+ (vector->list #{e\ 4113}#)
+ (vector-ref #{p\ 4114}# 1)
+ #{w\ 4115}#
+ #{r\ 4116}#
+ #{mod\ 4117}#)
#f)))))))))))))
- (#{match\ 4009}#
- (lambda (#{e\ 4166}#
- #{p\ 4167}#
- #{w\ 4168}#
- #{r\ 4169}#
- #{mod\ 4170}#)
- (if (not #{r\ 4169}#)
+ (#{match\ 4013}#
+ (lambda (#{e\ 4170}#
+ #{p\ 4171}#
+ #{w\ 4172}#
+ #{r\ 4173}#
+ #{mod\ 4174}#)
+ (if (not #{r\ 4173}#)
#f
- (if (eq? #{p\ 4167}# (quote _))
- #{r\ 4169}#
- (if (eq? #{p\ 4167}# (quote any))
- (cons (#{wrap\ 444}#
- #{e\ 4166}#
- #{w\ 4168}#
- #{mod\ 4170}#)
- #{r\ 4169}#)
- (if (#{syntax-object?\ 344}# #{e\ 4166}#)
- (#{match*\ 4007}#
- (#{syntax-object-expression\ 346}# #{e\ 4166}#)
- #{p\ 4167}#
- (#{join-wraps\ 426}#
- #{w\ 4168}#
- (#{syntax-object-wrap\ 348}# #{e\ 4166}#))
- #{r\ 4169}#
- (#{syntax-object-module\ 350}# #{e\ 4166}#))
- (#{match*\ 4007}#
- #{e\ 4166}#
- #{p\ 4167}#
- #{w\ 4168}#
- #{r\ 4169}#
- #{mod\ 4170}#))))))))
+ (if (eq? #{p\ 4171}# '_)
+ #{r\ 4173}#
+ (if (eq? #{p\ 4171}# 'any)
+ (cons (#{wrap\ 445}#
+ #{e\ 4170}#
+ #{w\ 4172}#
+ #{mod\ 4174}#)
+ #{r\ 4173}#)
+ (if (#{syntax-object?\ 345}# #{e\ 4170}#)
+ (#{match*\ 4011}#
+ (#{syntax-object-expression\ 347}# #{e\ 4170}#)
+ #{p\ 4171}#
+ (#{join-wraps\ 427}#
+ #{w\ 4172}#
+ (#{syntax-object-wrap\ 349}# #{e\ 4170}#))
+ #{r\ 4173}#
+ (#{syntax-object-module\ 351}# #{e\ 4170}#))
+ (#{match*\ 4011}#
+ #{e\ 4170}#
+ #{p\ 4171}#
+ #{w\ 4172}#
+ #{r\ 4173}#
+ #{mod\ 4174}#))))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 4185}# #{p\ 4186}#)
- (if (eq? #{p\ 4186}# (quote any))
- (list #{e\ 4185}#)
- (if (eq? #{p\ 4186}# (quote _))
+ (lambda (#{e\ 4189}# #{p\ 4190}#)
+ (if (eq? #{p\ 4190}# 'any)
+ (list #{e\ 4189}#)
+ (if (eq? #{p\ 4190}# '_)
'()
- (if (#{syntax-object?\ 344}# #{e\ 4185}#)
- (#{match*\ 4007}#
- (#{syntax-object-expression\ 346}# #{e\ 4185}#)
- #{p\ 4186}#
- (#{syntax-object-wrap\ 348}# #{e\ 4185}#)
+ (if (#{syntax-object?\ 345}# #{e\ 4189}#)
+ (#{match*\ 4011}#
+ (#{syntax-object-expression\ 347}# #{e\ 4189}#)
+ #{p\ 4190}#
+ (#{syntax-object-wrap\ 349}# #{e\ 4189}#)
'()
- (#{syntax-object-module\ 350}# #{e\ 4185}#))
- (#{match*\ 4007}#
- #{e\ 4185}#
- #{p\ 4186}#
+ (#{syntax-object-module\ 351}# #{e\ 4189}#))
+ (#{match*\ 4011}#
+ #{e\ 4189}#
+ #{p\ 4190}#
'(())
'()
#f))))))))))))))
@@ -14583,81 +14486,81 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4197}#)
- (let ((#{tmp\ 4199}# #{x\ 4197}#))
- (let ((#{tmp\ 4200}#
+ (lambda (#{x\ 4201}#)
+ (let ((#{tmp\ 4203}# #{x\ 4201}#))
+ (let ((#{tmp\ 4204}#
($sc-dispatch
- #{tmp\ 4199}#
+ #{tmp\ 4203}#
'(_ () any . each-any))))
- (if #{tmp\ 4200}#
+ (if #{tmp\ 4204}#
(@apply
- (lambda (#{e1\ 4203}# #{e2\ 4204}#)
+ (lambda (#{e1\ 4207}# #{e2\ 4208}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4201" "i4202"))
+ #("i4205" "i4206"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4202")))
(hygiene guile))
- (cons #{e1\ 4203}# #{e2\ 4204}#)))
- #{tmp\ 4200}#)
- (let ((#{tmp\ 4206}#
+ (cons #{e1\ 4207}# #{e2\ 4208}#)))
+ #{tmp\ 4204}#)
+ (let ((#{tmp\ 4210}#
($sc-dispatch
- #{tmp\ 4199}#
+ #{tmp\ 4203}#
'(_ ((any any)) any . each-any))))
- (if #{tmp\ 4206}#
+ (if #{tmp\ 4210}#
(@apply
- (lambda (#{out\ 4211}#
- #{in\ 4212}#
- #{e1\ 4213}#
- #{e2\ 4214}#)
+ (lambda (#{out\ 4215}#
+ #{in\ 4216}#
+ #{e1\ 4217}#
+ #{e2\ 4218}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4207" "i4208" "i4209" "i4210"))
+ #("i4211" "i4212" "i4213" "i4214"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4202")))
(hygiene guile))
- #{in\ 4212}#
+ #{in\ 4216}#
'()
- (list #{out\ 4211}#
+ (list #{out\ 4215}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4207" "i4208" "i4209" "i4210"))
+ #("i4211" "i4212" "i4213" "i4214"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4202")))
(hygiene guile))
- (cons #{e1\ 4213}# #{e2\ 4214}#)))))
- #{tmp\ 4206}#)
- (let ((#{tmp\ 4216}#
+ (cons #{e1\ 4217}# #{e2\ 4218}#)))))
+ #{tmp\ 4210}#)
+ (let ((#{tmp\ 4220}#
($sc-dispatch
- #{tmp\ 4199}#
+ #{tmp\ 4203}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 4216}#
+ (if #{tmp\ 4220}#
(@apply
- (lambda (#{out\ 4221}#
- #{in\ 4222}#
- #{e1\ 4223}#
- #{e2\ 4224}#)
+ (lambda (#{out\ 4225}#
+ #{in\ 4226}#
+ #{e1\ 4227}#
+ #{e2\ 4228}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4217" "i4218" "i4219" "i4220"))
+ #("i4221" "i4222" "i4223" "i4224"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4202")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -14665,61 +14568,61 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4217" "i4218" "i4219" "i4220"))
+ #("i4221" "i4222" "i4223" "i4224"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4202")))
(hygiene guile))
- #{in\ 4222}#)
+ #{in\ 4226}#)
'()
- (list #{out\ 4221}#
+ (list #{out\ 4225}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4217"
- "i4218"
- "i4219"
- "i4220"))
+ #("i4221"
+ "i4222"
+ "i4223"
+ "i4224"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4198")))
+ #("i4202")))
(hygiene guile))
- (cons #{e1\ 4223}# #{e2\ 4224}#)))))
- #{tmp\ 4216}#)
+ (cons #{e1\ 4227}# #{e2\ 4228}#)))))
+ #{tmp\ 4220}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4199}#)))))))))))
+ #{tmp\ 4203}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4228}#)
- (let ((#{tmp\ 4230}# #{x\ 4228}#))
- (let ((#{tmp\ 4231}#
+ (lambda (#{x\ 4232}#)
+ (let ((#{tmp\ 4234}# #{x\ 4232}#))
+ (let ((#{tmp\ 4235}#
($sc-dispatch
- #{tmp\ 4230}#
+ #{tmp\ 4234}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4231}#
+ (if #{tmp\ 4235}#
(@apply
- (lambda (#{k\ 4236}#
- #{keyword\ 4237}#
- #{pattern\ 4238}#
- #{template\ 4239}#)
+ (lambda (#{k\ 4240}#
+ #{keyword\ 4241}#
+ #{pattern\ 4242}#
+ #{template\ 4243}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4236" "i4237" "i4238" "i4239"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
'(#(syntax-object
x
@@ -14727,9 +14630,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4236" "i4237" "i4238" "i4239"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -14738,9 +14641,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4236" "i4237" "i4238" "i4239"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
.
#(syntax-object
@@ -14749,9 +14652,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4236" "i4237" "i4238" "i4239"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14759,20 +14662,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4236" "i4237" "i4238" "i4239"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
- #{pattern\ 4238}#))
+ #{pattern\ 4242}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4236" "i4237" "i4238" "i4239"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14780,13 +14683,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4236" "i4237" "i4238" "i4239"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
- (cons #{k\ 4236}#
- (map (lambda (#{tmp\ 4243}#
- #{tmp\ 4242}#)
+ (cons #{k\ 4240}#
+ (map (lambda (#{tmp\ 4247}#
+ #{tmp\ 4246}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14799,10 +14702,10 @@
(top)
(top)
(top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235"))
+ #("i4236"
+ "i4237"
+ "i4238"
+ "i4239"))
#(ribcage
()
()
@@ -14810,9 +14713,9 @@
#(ribcage
#(x)
#((top))
- #("i4229")))
+ #("i4233")))
(hygiene guile))
- #{tmp\ 4242}#)
+ #{tmp\ 4246}#)
(list '#(syntax-object
syntax
((top)
@@ -14825,10 +14728,10 @@
(top)
(top)
(top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235"))
+ #("i4236"
+ "i4237"
+ "i4238"
+ "i4239"))
#(ribcage
()
()
@@ -14836,41 +14739,41 @@
#(ribcage
#(x)
#((top))
- #("i4229")))
+ #("i4233")))
(hygiene guile))
- #{tmp\ 4243}#)))
- #{template\ 4239}#
- #{pattern\ 4238}#))))))
- #{tmp\ 4231}#)
- (let ((#{tmp\ 4244}#
+ #{tmp\ 4247}#)))
+ #{template\ 4243}#
+ #{pattern\ 4242}#))))))
+ #{tmp\ 4235}#)
+ (let ((#{tmp\ 4248}#
($sc-dispatch
- #{tmp\ 4230}#
+ #{tmp\ 4234}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp\ 4244}#
+ (if (if #{tmp\ 4248}#
(@apply
- (lambda (#{k\ 4250}#
- #{docstring\ 4251}#
- #{keyword\ 4252}#
- #{pattern\ 4253}#
- #{template\ 4254}#)
- (string? (syntax->datum #{docstring\ 4251}#)))
- #{tmp\ 4244}#)
+ (lambda (#{k\ 4254}#
+ #{docstring\ 4255}#
+ #{keyword\ 4256}#
+ #{pattern\ 4257}#
+ #{template\ 4258}#)
+ (string? (syntax->datum #{docstring\ 4255}#)))
+ #{tmp\ 4248}#)
#f)
(@apply
- (lambda (#{k\ 4260}#
- #{docstring\ 4261}#
- #{keyword\ 4262}#
- #{pattern\ 4263}#
- #{template\ 4264}#)
+ (lambda (#{k\ 4264}#
+ #{docstring\ 4265}#
+ #{keyword\ 4266}#
+ #{pattern\ 4267}#
+ #{template\ 4268}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4259" "i4260" "i4261" "i4262" "i4263"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
'(#(syntax-object
x
@@ -14878,11 +14781,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4259" "i4260" "i4261" "i4262" "i4263"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile)))
- #{docstring\ 4261}#
+ #{docstring\ 4265}#
(vector
'(#(syntax-object
macro-type
@@ -14890,9 +14793,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4259" "i4260" "i4261" "i4262" "i4263"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
.
#(syntax-object
@@ -14901,9 +14804,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4259" "i4260" "i4261" "i4262" "i4263"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14911,28 +14814,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4259"
+ "i4260"
+ "i4261"
+ "i4262"
+ "i4263"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
- #{pattern\ 4263}#))
+ #{pattern\ 4267}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4259"
+ "i4260"
+ "i4261"
+ "i4262"
+ "i4263"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14944,17 +14847,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4259"
+ "i4260"
+ "i4261"
+ "i4262"
+ "i4263"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4233")))
(hygiene guile))
- (cons #{k\ 4260}#
- (map (lambda (#{tmp\ 4268}#
- #{tmp\ 4267}#)
+ (cons #{k\ 4264}#
+ (map (lambda (#{tmp\ 4272}#
+ #{tmp\ 4271}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14969,11 +14872,11 @@
(top)
(top)
(top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
-
"i4259"))
+ #("i4259"
+ "i4260"
+ "i4261"
+ "i4262"
+
"i4263"))
#(ribcage
()
()
@@ -14981,10 +14884,10 @@
#(ribcage
#(x)
#((top))
-
#("i4229")))
+
#("i4233")))
(hygiene
guile))
- #{tmp\ 4267}#)
+ #{tmp\ 4271}#)
(list '#(syntax-object
syntax
((top)
@@ -14999,11 +14902,11 @@
(top)
(top)
(top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
-
"i4259"))
+ #("i4259"
+ "i4260"
+ "i4261"
+ "i4262"
+
"i4263"))
#(ribcage
()
()
@@ -15011,48 +14914,48 @@
#(ribcage
#(x)
#((top))
-
#("i4229")))
+
#("i4233")))
(hygiene
guile))
- #{tmp\ 4268}#)))
- #{template\ 4264}#
- #{pattern\ 4263}#))))))
- #{tmp\ 4244}#)
+ #{tmp\ 4272}#)))
+ #{template\ 4268}#
+ #{pattern\ 4267}#))))))
+ #{tmp\ 4248}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4230}#)))))))))
+ #{tmp\ 4234}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4269}#)
- (let ((#{tmp\ 4271}# #{x\ 4269}#))
- (let ((#{tmp\ 4272}#
+ (lambda (#{x\ 4273}#)
+ (let ((#{tmp\ 4275}# #{x\ 4273}#))
+ (let ((#{tmp\ 4276}#
($sc-dispatch
- #{tmp\ 4271}#
+ #{tmp\ 4275}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4272}#
+ (if (if #{tmp\ 4276}#
(@apply
- (lambda (#{let*\ 4278}#
- #{x\ 4279}#
- #{v\ 4280}#
- #{e1\ 4281}#
- #{e2\ 4282}#)
- (and-map identifier? #{x\ 4279}#))
- #{tmp\ 4272}#)
+ (lambda (#{let*\ 4282}#
+ #{x\ 4283}#
+ #{v\ 4284}#
+ #{e1\ 4285}#
+ #{e2\ 4286}#)
+ (and-map identifier? #{x\ 4283}#))
+ #{tmp\ 4276}#)
#f)
(@apply
- (lambda (#{let*\ 4289}#
- #{x\ 4290}#
- #{v\ 4291}#
- #{e1\ 4292}#
- #{e2\ 4293}#)
+ (lambda (#{let*\ 4293}#
+ #{x\ 4294}#
+ #{v\ 4295}#
+ #{e1\ 4296}#
+ #{e2\ 4297}#)
(letrec*
- ((#{f\ 4296}#
- (lambda (#{bindings\ 4297}#)
- (if (null? #{bindings\ 4297}#)
+ ((#{f\ 4300}#
+ (lambda (#{bindings\ 4301}#)
+ (if (null? #{bindings\ 4301}#)
(cons '#(syntax-object
let
((top)
@@ -15060,128 +14963,123 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4294" "i4295"))
+ #("i4298" "i4299"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"))
+ #("i4288"
+ "i4289"
+ "i4290"
+ "i4291"
+ "i4292"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4270")))
+ #(ribcage #(x) #((top)) #("i4274")))
(hygiene guile))
- (cons '()
- (cons #{e1\ 4292}# #{e2\ 4293}#)))
- (let ((#{tmp\ 4302}#
- (list (#{f\ 4296}# (cdr #{bindings\ 4297}#))
- (car #{bindings\ 4297}#))))
- (let ((#{tmp\ 4303}#
- ($sc-dispatch
- #{tmp\ 4302}#
- '(any any))))
- (if #{tmp\ 4303}#
+ (cons '() (cons #{e1\ 4296}# #{e2\ 4297}#)))
+ (let ((#{tmp\ 4306}#
+ (list (#{f\ 4300}# (cdr #{bindings\ 4301}#))
+ (car #{bindings\ 4301}#))))
+ (let ((#{tmp\ 4307}#
+ ($sc-dispatch #{tmp\ 4306}# '(any any))))
+ (if #{tmp\ 4307}#
(@apply
- (lambda (#{body\ 4306}# #{binding\ 4307}#)
+ (lambda (#{body\ 4310}# #{binding\ 4311}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4304" "i4305"))
+ #("i4308" "i4309"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4294" "i4295"))
+ #("i4298" "i4299"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"))
+ #("i4288"
+ "i4289"
+ "i4290"
+ "i4291"
+ "i4292"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4270")))
+ #("i4274")))
(hygiene guile))
- (list #{binding\ 4307}#)
- #{body\ 4306}#))
- #{tmp\ 4303}#)
+ (list #{binding\ 4311}#)
+ #{body\ 4310}#))
+ #{tmp\ 4307}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4302}#))))))))
+ #{tmp\ 4306}#))))))))
(begin
- (#{f\ 4296}# (map list #{x\ 4290}# #{v\ 4291}#)))))
- #{tmp\ 4272}#)
+ (#{f\ 4300}# (map list #{x\ 4294}# #{v\ 4295}#)))))
+ #{tmp\ 4276}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4271}#)))))))
+ #{tmp\ 4275}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4308}#)
- (let ((#{tmp\ 4310}# #{orig-x\ 4308}#))
- (let ((#{tmp\ 4311}#
+ (lambda (#{orig-x\ 4312}#)
+ (let ((#{tmp\ 4314}# #{orig-x\ 4312}#))
+ (let ((#{tmp\ 4315}#
($sc-dispatch
- #{tmp\ 4310}#
+ #{tmp\ 4314}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 4311}#
+ (if #{tmp\ 4315}#
(@apply
- (lambda (#{var\ 4318}#
- #{init\ 4319}#
- #{step\ 4320}#
- #{e0\ 4321}#
- #{e1\ 4322}#
- #{c\ 4323}#)
- (let ((#{tmp\ 4325}#
- (map (lambda (#{v\ 4346}# #{s\ 4347}#)
- (let ((#{tmp\ 4350}# #{s\ 4347}#))
- (let ((#{tmp\ 4351}#
- ($sc-dispatch
- #{tmp\ 4350}#
- '())))
- (if #{tmp\ 4351}#
+ (lambda (#{var\ 4322}#
+ #{init\ 4323}#
+ #{step\ 4324}#
+ #{e0\ 4325}#
+ #{e1\ 4326}#
+ #{c\ 4327}#)
+ (let ((#{tmp\ 4329}#
+ (map (lambda (#{v\ 4350}# #{s\ 4351}#)
+ (let ((#{tmp\ 4354}# #{s\ 4351}#))
+ (let ((#{tmp\ 4355}#
+ ($sc-dispatch #{tmp\ 4354}# '())))
+ (if #{tmp\ 4355}#
(@apply
- (lambda () #{v\ 4346}#)
- #{tmp\ 4351}#)
- (let ((#{tmp\ 4352}#
+ (lambda () #{v\ 4350}#)
+ #{tmp\ 4355}#)
+ (let ((#{tmp\ 4356}#
($sc-dispatch
- #{tmp\ 4350}#
+ #{tmp\ 4354}#
'(any))))
- (if #{tmp\ 4352}#
+ (if #{tmp\ 4356}#
(@apply
- (lambda (#{e\ 4354}#) #{e\ 4354}#)
- #{tmp\ 4352}#)
- (let ((#{_\ 4356}# #{tmp\ 4350}#))
+ (lambda (#{e\ 4358}#) #{e\ 4358}#)
+ #{tmp\ 4356}#)
+ (let ((#{_\ 4360}# #{tmp\ 4354}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4308}#
- #{s\ 4347}#))))))))
- #{var\ 4318}#
- #{step\ 4320}#)))
- (let ((#{tmp\ 4326}#
- ($sc-dispatch #{tmp\ 4325}# (quote each-any))))
- (if #{tmp\ 4326}#
+ #{orig-x\ 4312}#
+ #{s\ 4351}#))))))))
+ #{var\ 4322}#
+ #{step\ 4324}#)))
+ (let ((#{tmp\ 4330}#
+ ($sc-dispatch #{tmp\ 4329}# 'each-any)))
+ (if #{tmp\ 4330}#
(@apply
- (lambda (#{step\ 4328}#)
- (let ((#{tmp\ 4329}# #{e1\ 4322}#))
- (let ((#{tmp\ 4330}#
- ($sc-dispatch #{tmp\ 4329}# (quote ()))))
- (if #{tmp\ 4330}#
+ (lambda (#{step\ 4332}#)
+ (let ((#{tmp\ 4333}# #{e1\ 4326}#))
+ (let ((#{tmp\ 4334}#
+ ($sc-dispatch #{tmp\ 4333}# '())))
+ (if #{tmp\ 4334}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -15190,7 +15088,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15199,17 +15097,17 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15217,7 +15115,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15226,28 +15124,28 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
(map list
- #{var\ 4318}#
- #{init\ 4319}#)
+ #{var\ 4322}#
+ #{init\ 4323}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15256,17 +15154,17 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
(list '#(syntax-object
not
@@ -15274,7 +15172,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var
init
@@ -15288,26 +15186,26 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
- #{e0\ 4321}#)
+ #{e0\ 4325}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var
init
@@ -15321,27 +15219,27 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
(append
- #{c\ 4323}#
+ #{c\ 4327}#
(list (cons
'#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i4327"))
+
#("i4331"))
#(ribcage
#(var
init
@@ -15355,12 +15253,12 @@
(top)
(top)
(top))
-
#("i4312"
-
"i4313"
-
"i4314"
-
"i4315"
-
"i4316"
-
"i4317"))
+
#("i4316"
+
"i4317"
+
"i4318"
+
"i4319"
+
"i4320"
+
"i4321"))
#(ribcage
()
()
@@ -15368,29 +15266,29 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4309")))
+
#("i4313")))
(hygiene
guile))
- #{step\
4328}#)))))))
- #{tmp\ 4330}#)
- (let ((#{tmp\ 4335}#
+ #{step\
4332}#)))))))
+ #{tmp\ 4334}#)
+ (let ((#{tmp\ 4339}#
($sc-dispatch
- #{tmp\ 4329}#
+ #{tmp\ 4333}#
'(any . each-any))))
- (if #{tmp\ 4335}#
+ (if #{tmp\ 4339}#
(@apply
- (lambda (#{e1\ 4338}# #{e2\ 4339}#)
+ (lambda (#{e1\ 4342}# #{e2\ 4343}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336" "i4337"))
+ #("i4340" "i4341"))
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15399,17 +15297,17 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15417,11 +15315,11 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336" "i4337"))
+ #("i4340" "i4341"))
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15430,32 +15328,32 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
(map list
- #{var\ 4318}#
- #{init\ 4319}#)
+ #{var\ 4322}#
+ #{init\ 4323}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336" "i4337"))
+ #("i4340" "i4341"))
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var
init
@@ -15469,31 +15367,31 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
- #{e0\ 4321}#
+ #{e0\ 4325}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336"
- "i4337"))
+ #("i4340"
+ "i4341"))
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var
init
@@ -15507,12 +15405,12 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage
()
()
@@ -15520,22 +15418,22 @@
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
- (cons #{e1\ 4338}#
- #{e2\ 4339}#))
+ (cons #{e1\ 4342}#
+ #{e2\ 4343}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336"
- "i4337"))
+ #("i4340"
+ "i4341"))
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4331"))
#(ribcage
#(var
init
@@ -15549,12 +15447,12 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4316"
+ "i4317"
+ "i4318"
+ "i4319"
+ "i4320"
+ "i4321"))
#(ribcage
()
()
@@ -15562,10 +15460,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4313")))
(hygiene guile))
(append
- #{c\ 4323}#
+ #{c\ 4327}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -15574,12 +15472,12 @@
e2)
#((top)
(top))
-
#("i4336"
-
"i4337"))
+
#("i4340"
+
"i4341"))
#(ribcage
#(step)
#((top))
-
#("i4327"))
+
#("i4331"))
#(ribcage
#(var
init
@@ -15593,12 +15491,12 @@
(top)
(top)
(top))
-
#("i4312"
-
"i4313"
-
"i4314"
-
"i4315"
-
"i4316"
-
"i4317"))
+
#("i4316"
+
"i4317"
+
"i4318"
+
"i4319"
+
"i4320"
+
"i4321"))
#(ribcage
()
()
@@ -15606,43 +15504,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("i4309")))
+
#("i4313")))
(hygiene
guile))
-
#{step\ 4328}#)))))))
- #{tmp\ 4335}#)
+
#{step\ 4332}#)))))))
+ #{tmp\ 4339}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4329}#)))))))
- #{tmp\ 4326}#)
+ #{tmp\ 4333}#)))))))
+ #{tmp\ 4330}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4325}#)))))
- #{tmp\ 4311}#)
+ #{tmp\ 4329}#)))))
+ #{tmp\ 4315}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4310}#)))))))
+ #{tmp\ 4314}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasicons\ 4363}#
- (lambda (#{x\ 4367}# #{y\ 4368}#)
- (let ((#{tmp\ 4372}# (list #{x\ 4367}# #{y\ 4368}#)))
- (let ((#{tmp\ 4373}#
- ($sc-dispatch #{tmp\ 4372}# (quote (any any)))))
- (if #{tmp\ 4373}#
+ ((#{quasicons\ 4367}#
+ (lambda (#{x\ 4371}# #{y\ 4372}#)
+ (let ((#{tmp\ 4376}# (list #{x\ 4371}# #{y\ 4372}#)))
+ (let ((#{tmp\ 4377}#
+ ($sc-dispatch #{tmp\ 4376}# '(any any))))
+ (if #{tmp\ 4377}#
(@apply
- (lambda (#{x\ 4376}# #{y\ 4377}#)
- (let ((#{tmp\ 4378}# #{y\ 4377}#))
- (let ((#{tmp\ 4379}#
+ (lambda (#{x\ 4380}# #{y\ 4381}#)
+ (let ((#{tmp\ 4382}# #{y\ 4381}#))
+ (let ((#{tmp\ 4383}#
($sc-dispatch
- #{tmp\ 4378}#
+ #{tmp\ 4382}#
'(#(free-id
#(syntax-object
quote
@@ -15650,29 +15548,29 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
any))))
- (if #{tmp\ 4379}#
+ (if #{tmp\ 4383}#
(@apply
- (lambda (#{dy\ 4381}#)
- (let ((#{tmp\ 4382}# #{x\ 4376}#))
- (let ((#{tmp\ 4383}#
+ (lambda (#{dy\ 4385}#)
+ (let ((#{tmp\ 4386}# #{x\ 4380}#))
+ (let ((#{tmp\ 4387}#
($sc-dispatch
- #{tmp\ 4382}#
+ #{tmp\ 4386}#
'(#(free-id
#(syntax-object
quote
@@ -15680,140 +15578,140 @@
#(ribcage
#(dy)
#((top))
- #("i4380"))
+ #("i4384"))
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile)))
any))))
- (if #{tmp\ 4383}#
+ (if #{tmp\ 4387}#
(@apply
- (lambda (#{dx\ 4385}#)
+ (lambda (#{dx\ 4389}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4384"))
+ #("i4388"))
#(ribcage
#(dy)
#((top))
- #("i4380"))
+ #("i4384"))
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
- (cons #{dx\ 4385}#
- #{dy\ 4381}#)))
- #{tmp\ 4383}#)
- (let ((#{_\ 4387}# #{tmp\ 4382}#))
- (if (null? #{dy\ 4381}#)
+ (cons #{dx\ 4389}#
+ #{dy\ 4385}#)))
+ #{tmp\ 4387}#)
+ (let ((#{_\ 4391}# #{tmp\ 4386}#))
+ (if (null? #{dy\ 4385}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4386"))
+ #("i4390"))
#(ribcage
#(dy)
#((top))
- #("i4380"))
+ #("i4384"))
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
- #{x\ 4376}#)
+ #{x\ 4380}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4386"))
+ #("i4390"))
#(ribcage
#(dy)
#((top))
- #("i4380"))
+ #("i4384"))
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
- #{x\ 4376}#
- #{y\ 4377}#)))))))
- #{tmp\ 4379}#)
- (let ((#{tmp\ 4388}#
+ #{x\ 4380}#
+ #{y\ 4381}#)))))))
+ #{tmp\ 4383}#)
+ (let ((#{tmp\ 4392}#
($sc-dispatch
- #{tmp\ 4378}#
+ #{tmp\ 4382}#
'(#(free-id
#(syntax-object
list
@@ -15821,107 +15719,107 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 4388}#
+ (if #{tmp\ 4392}#
(@apply
- (lambda (#{stuff\ 4390}#)
+ (lambda (#{stuff\ 4394}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4389"))
+ #("i4393"))
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
- (cons #{x\ 4376}# #{stuff\ 4390}#)))
- #{tmp\ 4388}#)
- (let ((#{else\ 4392}# #{tmp\ 4378}#))
+ (cons #{x\ 4380}# #{stuff\ 4394}#)))
+ #{tmp\ 4392}#)
+ (let ((#{else\ 4396}# #{tmp\ 4382}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4391"))
+ #("i4395"))
#(ribcage
#(x y)
#((top) (top))
- #("i4374" "i4375"))
+ #("i4378" "i4379"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4369" "i4370"))
+ #("i4373" "i4374"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
- #{x\ 4376}#
- #{y\ 4377}#))))))))
- #{tmp\ 4373}#)
+ #{x\ 4380}#
+ #{y\ 4381}#))))))))
+ #{tmp\ 4377}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4372}#))))))
- (#{quasiappend\ 4364}#
- (lambda (#{x\ 4393}# #{y\ 4394}#)
- (let ((#{tmp\ 4398}# (list #{x\ 4393}# #{y\ 4394}#)))
- (let ((#{tmp\ 4399}#
- ($sc-dispatch #{tmp\ 4398}# (quote (any any)))))
- (if #{tmp\ 4399}#
+ #{tmp\ 4376}#))))))
+ (#{quasiappend\ 4368}#
+ (lambda (#{x\ 4397}# #{y\ 4398}#)
+ (let ((#{tmp\ 4402}# (list #{x\ 4397}# #{y\ 4398}#)))
+ (let ((#{tmp\ 4403}#
+ ($sc-dispatch #{tmp\ 4402}# '(any any))))
+ (if #{tmp\ 4403}#
(@apply
- (lambda (#{x\ 4402}# #{y\ 4403}#)
- (let ((#{tmp\ 4404}# #{y\ 4403}#))
- (let ((#{tmp\ 4405}#
+ (lambda (#{x\ 4406}# #{y\ 4407}#)
+ (let ((#{tmp\ 4408}# #{y\ 4407}#))
+ (let ((#{tmp\ 4409}#
($sc-dispatch
- #{tmp\ 4404}#
+ #{tmp\ 4408}#
'(#(free-id
#(syntax-object
quote
@@ -15929,160 +15827,160 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4404" "i4405"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4395" "i4396"))
+ #("i4399" "i4400"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
()))))
- (if #{tmp\ 4405}#
- (@apply (lambda () #{x\ 4402}#) #{tmp\ 4405}#)
- (let ((#{_\ 4407}# #{tmp\ 4404}#))
+ (if #{tmp\ 4409}#
+ (@apply (lambda () #{x\ 4406}#) #{tmp\ 4409}#)
+ (let ((#{_\ 4411}# #{tmp\ 4408}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i4406"))
+ #(ribcage #(_) #((top)) #("i4410"))
#(ribcage
#(x y)
#((top) (top))
- #("i4400" "i4401"))
+ #("i4404" "i4405"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4395" "i4396"))
+ #("i4399" "i4400"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile))
- #{x\ 4402}#
- #{y\ 4403}#))))))
- #{tmp\ 4399}#)
+ #{x\ 4406}#
+ #{y\ 4407}#))))))
+ #{tmp\ 4403}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4398}#))))))
- (#{quasivector\ 4365}#
- (lambda (#{x\ 4408}#)
- (let ((#{tmp\ 4411}# #{x\ 4408}#))
- (let ((#{x\ 4413}# #{tmp\ 4411}#))
- (let ((#{tmp\ 4414}# #{x\ 4413}#))
- (let ((#{tmp\ 4415}#
+ #{tmp\ 4402}#))))))
+ (#{quasivector\ 4369}#
+ (lambda (#{x\ 4412}#)
+ (let ((#{tmp\ 4415}# #{x\ 4412}#))
+ (let ((#{x\ 4417}# #{tmp\ 4415}#))
+ (let ((#{tmp\ 4418}# #{x\ 4417}#))
+ (let ((#{tmp\ 4419}#
($sc-dispatch
- #{tmp\ 4414}#
+ #{tmp\ 4418}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4412"))
+ #(ribcage #(x) #((top)) #("i4416"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4409"))
+ #(ribcage #(x) #((top)) #("i4413"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 4415}#
+ (if #{tmp\ 4419}#
(@apply
- (lambda (#{x\ 4417}#)
+ (lambda (#{x\ 4421}#)
(list '#(syntax-object
quote
((top)
+ #(ribcage #(x) #((top)) #("i4420"))
#(ribcage #(x) #((top)) #("i4416"))
- #(ribcage #(x) #((top)) #("i4412"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4409"))
+ #(ribcage #(x) #((top)) #("i4413"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile))
- (list->vector #{x\ 4417}#)))
- #{tmp\ 4415}#)
- (let ((#{tmp\ 4419}#
+ (list->vector #{x\ 4421}#)))
+ #{tmp\ 4419}#)
+ (let ((#{tmp\ 4423}#
($sc-dispatch
- #{tmp\ 4414}#
+ #{tmp\ 4418}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i4412"))
+ #(ribcage #(x) #((top)) #("i4416"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4409"))
+ #(ribcage #(x) #((top)) #("i4413"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4419}#
+ (if #{tmp\ 4423}#
(@apply
- (lambda (#{x\ 4421}#)
+ (lambda (#{x\ 4425}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i4420"))
- #(ribcage #(x) #((top)) #("i4412"))
+ #(ribcage #(x) #((top)) #("i4424"))
+ #(ribcage #(x) #((top)) #("i4416"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4409"))
+ #(ribcage #(x) #((top)) #("i4413"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile))
- #{x\ 4421}#))
- #{tmp\ 4419}#)
- (let ((#{_\ 4424}# #{tmp\ 4414}#))
+ #{x\ 4425}#))
+ #{tmp\ 4423}#)
+ (let ((#{_\ 4428}# #{tmp\ 4418}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i4423"))
- #(ribcage #(x) #((top)) #("i4412"))
+ #(ribcage #(_) #((top)) #("i4427"))
+ #(ribcage #(x) #((top)) #("i4416"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4409"))
+ #(ribcage #(x) #((top)) #("i4413"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile))
- #{x\ 4413}#)))))))))))
- (#{quasi\ 4366}#
- (lambda (#{p\ 4425}# #{lev\ 4426}#)
- (let ((#{tmp\ 4429}# #{p\ 4425}#))
- (let ((#{tmp\ 4430}#
+ #{x\ 4417}#)))))))))))
+ (#{quasi\ 4370}#
+ (lambda (#{p\ 4429}# #{lev\ 4430}#)
+ (let ((#{tmp\ 4433}# #{p\ 4429}#))
+ (let ((#{tmp\ 4434}#
($sc-dispatch
- #{tmp\ 4429}#
+ #{tmp\ 4433}#
'(#(free-id
#(syntax-object
unquote
@@ -16091,54 +15989,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
any))))
- (if #{tmp\ 4430}#
+ (if #{tmp\ 4434}#
(@apply
- (lambda (#{p\ 4432}#)
- (if (= #{lev\ 4426}# 0)
- #{p\ 4432}#
- (#{quasicons\ 4363}#
+ (lambda (#{p\ 4436}#)
+ (if (= #{lev\ 4430}# 0)
+ #{p\ 4436}#
+ (#{quasicons\ 4367}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4431"))
+ #(ribcage #(p) #((top)) #("i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4431"))
+ #(ribcage #(p) #((top)) #("i4435"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
- (#{quasi\ 4366}#
- (list #{p\ 4432}#)
- (1- #{lev\ 4426}#)))))
- #{tmp\ 4430}#)
- (let ((#{tmp\ 4433}#
+ (#{quasi\ 4370}#
+ (list #{p\ 4436}#)
+ (1- #{lev\ 4430}#)))))
+ #{tmp\ 4434}#)
+ (let ((#{tmp\ 4437}#
($sc-dispatch
- #{tmp\ 4429}#
+ #{tmp\ 4433}#
'(#(free-id
#(syntax-object
unquote
@@ -16147,47 +16045,47 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 4433}#
+ (if (if #{tmp\ 4437}#
(@apply
- (lambda (#{args\ 4435}#) (= #{lev\ 4426}# 0))
- #{tmp\ 4433}#)
+ (lambda (#{args\ 4439}#) (= #{lev\ 4430}# 0))
+ #{tmp\ 4437}#)
#f)
(@apply
- (lambda (#{args\ 4437}#)
+ (lambda (#{args\ 4441}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4425}#
+ #{p\ 4429}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i4436"))
+ #(ribcage #(args) #((top)) #("i4440"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile))
- #{args\ 4437}#)))
- #{tmp\ 4433}#)
- (let ((#{tmp\ 4438}#
+ #{args\ 4441}#)))
+ #{tmp\ 4437}#)
+ (let ((#{tmp\ 4442}#
($sc-dispatch
- #{tmp\ 4429}#
+ #{tmp\ 4433}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -16196,46 +16094,46 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 4438}#
+ (if #{tmp\ 4442}#
(@apply
- (lambda (#{p\ 4441}# #{q\ 4442}#)
- (if (= #{lev\ 4426}# 0)
- (#{quasiappend\ 4364}#
- #{p\ 4441}#
- (#{quasi\ 4366}# #{q\ 4442}# #{lev\ 4426}#))
- (#{quasicons\ 4363}#
- (#{quasicons\ 4363}#
+ (lambda (#{p\ 4445}# #{q\ 4446}#)
+ (if (= #{lev\ 4430}# 0)
+ (#{quasiappend\ 4368}#
+ #{p\ 4445}#
+ (#{quasi\ 4370}# #{q\ 4446}# #{lev\ 4430}#))
+ (#{quasicons\ 4367}#
+ (#{quasicons\ 4367}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4443" "i4444"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -16243,28 +16141,28 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4443" "i4444"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359" "i4360" "i4361" "i4362")))
+ #("i4363" "i4364" "i4365" "i4366")))
(hygiene guile)))
- (#{quasi\ 4366}#
- (list #{p\ 4441}#)
- (1- #{lev\ 4426}#)))
- (#{quasi\ 4366}# #{q\ 4442}# #{lev\ 4426}#))))
- #{tmp\ 4438}#)
- (let ((#{tmp\ 4443}#
+ (#{quasi\ 4370}#
+ (list #{p\ 4445}#)
+ (1- #{lev\ 4430}#)))
+ (#{quasi\ 4370}# #{q\ 4446}# #{lev\ 4430}#))))
+ #{tmp\ 4442}#)
+ (let ((#{tmp\ 4447}#
($sc-dispatch
- #{tmp\ 4429}#
+ #{tmp\ 4433}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -16273,62 +16171,62 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 4443}#
+ (if (if #{tmp\ 4447}#
(@apply
- (lambda (#{args\ 4446}# #{q\ 4447}#)
- (= #{lev\ 4426}# 0))
- #{tmp\ 4443}#)
+ (lambda (#{args\ 4450}# #{q\ 4451}#)
+ (= #{lev\ 4430}# 0))
+ #{tmp\ 4447}#)
#f)
(@apply
- (lambda (#{args\ 4450}# #{q\ 4451}#)
+ (lambda (#{args\ 4454}# #{q\ 4455}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one
argument"
- #{p\ 4425}#
+ #{p\ 4429}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i4448" "i4449"))
+ #("i4452" "i4453"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
- #{args\ 4450}#)))
- #{tmp\ 4443}#)
- (let ((#{tmp\ 4452}#
+ #{args\ 4454}#)))
+ #{tmp\ 4447}#)
+ (let ((#{tmp\ 4456}#
($sc-dispatch
- #{tmp\ 4429}#
+ #{tmp\ 4433}#
'(#(free-id
#(syntax-object
quasiquote
@@ -16337,107 +16235,107 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile)))
any))))
- (if #{tmp\ 4452}#
+ (if #{tmp\ 4456}#
(@apply
- (lambda (#{p\ 4454}#)
- (#{quasicons\ 4363}#
+ (lambda (#{p\ 4458}#)
+ (#{quasicons\ 4367}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4453"))
+ #(ribcage #(p) #((top)) #("i4457"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4453"))
+ #(ribcage #(p) #((top)) #("i4457"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile)))
- (#{quasi\ 4366}#
- (list #{p\ 4454}#)
- (1+ #{lev\ 4426}#))))
- #{tmp\ 4452}#)
- (let ((#{tmp\ 4455}#
+ (#{quasi\ 4370}#
+ (list #{p\ 4458}#)
+ (1+ #{lev\ 4430}#))))
+ #{tmp\ 4456}#)
+ (let ((#{tmp\ 4459}#
($sc-dispatch
- #{tmp\ 4429}#
+ #{tmp\ 4433}#
'(any . any))))
- (if #{tmp\ 4455}#
+ (if #{tmp\ 4459}#
(@apply
- (lambda (#{p\ 4458}# #{q\ 4459}#)
- (#{quasicons\ 4363}#
- (#{quasi\ 4366}#
- #{p\ 4458}#
- #{lev\ 4426}#)
- (#{quasi\ 4366}#
- #{q\ 4459}#
- #{lev\ 4426}#)))
- #{tmp\ 4455}#)
- (let ((#{tmp\ 4460}#
+ (lambda (#{p\ 4462}# #{q\ 4463}#)
+ (#{quasicons\ 4367}#
+ (#{quasi\ 4370}#
+ #{p\ 4462}#
+ #{lev\ 4430}#)
+ (#{quasi\ 4370}#
+ #{q\ 4463}#
+ #{lev\ 4430}#)))
+ #{tmp\ 4459}#)
+ (let ((#{tmp\ 4464}#
($sc-dispatch
- #{tmp\ 4429}#
+ #{tmp\ 4433}#
'#(vector each-any))))
- (if #{tmp\ 4460}#
+ (if #{tmp\ 4464}#
(@apply
- (lambda (#{x\ 4462}#)
- (#{quasivector\ 4365}#
- (#{quasi\ 4366}#
- #{x\ 4462}#
- #{lev\ 4426}#)))
- #{tmp\ 4460}#)
- (let ((#{p\ 4465}# #{tmp\ 4429}#))
+ (lambda (#{x\ 4466}#)
+ (#{quasivector\ 4369}#
+ (#{quasi\ 4370}#
+ #{x\ 4466}#
+ #{lev\ 4430}#)))
+ #{tmp\ 4464}#)
+ (let ((#{p\ 4469}# #{tmp\ 4433}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4464"))
+ #("i4468"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4427" "i4428"))
+ #("i4431" "i4432"))
#(ribcage
#(quasicons
quasiappend
@@ -16447,220 +16345,217 @@
(top)
(top)
(top))
- #("i4359"
- "i4360"
- "i4361"
- "i4362")))
+ #("i4363"
+ "i4364"
+ "i4365"
+ "i4366")))
(hygiene guile))
- #{p\
4465}#))))))))))))))))))))
+ #{p\
4469}#))))))))))))))))))))
(begin
- (lambda (#{x\ 4466}#)
- (let ((#{tmp\ 4468}# #{x\ 4466}#))
- (let ((#{tmp\ 4469}#
- ($sc-dispatch #{tmp\ 4468}# (quote (_ any)))))
- (if #{tmp\ 4469}#
+ (lambda (#{x\ 4470}#)
+ (let ((#{tmp\ 4472}# #{x\ 4470}#))
+ (let ((#{tmp\ 4473}#
+ ($sc-dispatch #{tmp\ 4472}# '(_ any))))
+ (if #{tmp\ 4473}#
(@apply
- (lambda (#{e\ 4471}#)
- (#{quasi\ 4366}# #{e\ 4471}# 0))
- #{tmp\ 4469}#)
+ (lambda (#{e\ 4475}#)
+ (#{quasi\ 4370}# #{e\ 4475}# 0))
+ #{tmp\ 4473}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4468}#)))))))))
+ #{tmp\ 4472}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4472}#)
+ (lambda (#{x\ 4476}#)
(letrec*
- ((#{read-file\ 4475}#
- (lambda (#{fn\ 4476}# #{k\ 4477}#)
+ ((#{read-file\ 4479}#
+ (lambda (#{fn\ 4480}# #{k\ 4481}#)
(begin
- (let ((#{p\ 4481}# (open-input-file #{fn\ 4476}#)))
+ (let ((#{p\ 4485}# (open-input-file #{fn\ 4480}#)))
(letrec*
- ((#{f\ 4485}#
- (lambda (#{x\ 4486}# #{result\ 4487}#)
- (if (eof-object? #{x\ 4486}#)
+ ((#{f\ 4489}#
+ (lambda (#{x\ 4490}# #{result\ 4491}#)
+ (if (eof-object? #{x\ 4490}#)
(begin
- (close-input-port #{p\ 4481}#)
- (reverse #{result\ 4487}#))
- (#{f\ 4485}#
- (read #{p\ 4481}#)
- (cons (datum->syntax #{k\ 4477}# #{x\ 4486}#)
- #{result\ 4487}#))))))
- (begin
- (#{f\ 4485}# (read #{p\ 4481}#) (quote ())))))))))
+ (close-input-port #{p\ 4485}#)
+ (reverse #{result\ 4491}#))
+ (#{f\ 4489}#
+ (read #{p\ 4485}#)
+ (cons (datum->syntax #{k\ 4481}# #{x\ 4490}#)
+ #{result\ 4491}#))))))
+ (begin (#{f\ 4489}# (read #{p\ 4485}#) '()))))))))
(begin
- (let ((#{tmp\ 4488}# #{x\ 4472}#))
- (let ((#{tmp\ 4489}#
- ($sc-dispatch #{tmp\ 4488}# (quote (any any)))))
- (if #{tmp\ 4489}#
+ (let ((#{tmp\ 4492}# #{x\ 4476}#))
+ (let ((#{tmp\ 4493}#
+ ($sc-dispatch #{tmp\ 4492}# '(any any))))
+ (if #{tmp\ 4493}#
(@apply
- (lambda (#{k\ 4492}# #{filename\ 4493}#)
+ (lambda (#{k\ 4496}# #{filename\ 4497}#)
(begin
- (let ((#{fn\ 4495}# (syntax->datum #{filename\ 4493}#)))
- (let ((#{tmp\ 4497}#
- (#{read-file\ 4475}#
- #{fn\ 4495}#
- #{filename\ 4493}#)))
- (let ((#{tmp\ 4498}#
- ($sc-dispatch
- #{tmp\ 4497}#
- 'each-any)))
- (if #{tmp\ 4498}#
+ (let ((#{fn\ 4499}# (syntax->datum #{filename\ 4497}#)))
+ (let ((#{tmp\ 4501}#
+ (#{read-file\ 4479}#
+ #{fn\ 4499}#
+ #{filename\ 4497}#)))
+ (let ((#{tmp\ 4502}#
+ ($sc-dispatch #{tmp\ 4501}# 'each-any)))
+ (if #{tmp\ 4502}#
(@apply
- (lambda (#{exp\ 4500}#)
+ (lambda (#{exp\ 4504}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4499"))
+ #("i4503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4494"))
+ #("i4498"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4490" "i4491"))
+ #("i4494" "i4495"))
#(ribcage
(read-file)
((top))
- ("i4474"))
+ ("i4478"))
#(ribcage
#(x)
#((top))
- #("i4473")))
+ #("i4477")))
(hygiene guile))
- #{exp\ 4500}#))
- #{tmp\ 4498}#)
+ #{exp\ 4504}#))
+ #{tmp\ 4502}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4497}#)))))))
- #{tmp\ 4489}#)
+ #{tmp\ 4501}#)))))))
+ #{tmp\ 4493}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4488}#)))))))))
+ #{tmp\ 4492}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4502}#)
- (let ((#{tmp\ 4504}# #{x\ 4502}#))
- (let ((#{tmp\ 4505}#
- ($sc-dispatch #{tmp\ 4504}# (quote (any any)))))
- (if #{tmp\ 4505}#
+ (lambda (#{x\ 4506}#)
+ (let ((#{tmp\ 4508}# #{x\ 4506}#))
+ (let ((#{tmp\ 4509}#
+ ($sc-dispatch #{tmp\ 4508}# '(any any))))
+ (if #{tmp\ 4509}#
(@apply
- (lambda (#{k\ 4508}# #{filename\ 4509}#)
+ (lambda (#{k\ 4512}# #{filename\ 4513}#)
(begin
- (let ((#{fn\ 4511}# (syntax->datum #{filename\ 4509}#)))
- (let ((#{tmp\ 4513}#
+ (let ((#{fn\ 4515}# (syntax->datum #{filename\ 4513}#)))
+ (let ((#{tmp\ 4517}#
(datum->syntax
- #{filename\ 4509}#
+ #{filename\ 4513}#
(begin
- (let ((#{t\ 4518}#
- (%search-load-path #{fn\ 4511}#)))
- (if #{t\ 4518}#
- #{t\ 4518}#
+ (let ((#{t\ 4522}#
+ (%search-load-path #{fn\ 4515}#)))
+ (if #{t\ 4522}#
+ #{t\ 4522}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4502}#
- #{filename\ 4509}#)))))))
- (let ((#{fn\ 4515}# #{tmp\ 4513}#))
+ #{x\ 4506}#
+ #{filename\ 4513}#)))))))
+ (let ((#{fn\ 4519}# #{tmp\ 4517}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4514"))
+ #(ribcage #(fn) #((top)) #("i4518"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4510"))
+ #(ribcage #(fn) #((top)) #("i4514"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4506" "i4507"))
+ #("i4510" "i4511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4503")))
+ #(ribcage #(x) #((top)) #("i4507")))
(hygiene guile))
- #{fn\ 4515}#))))))
- #{tmp\ 4505}#)
+ #{fn\ 4519}#))))))
+ #{tmp\ 4509}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4504}#)))))))
+ #{tmp\ 4508}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4520}#)
- (let ((#{tmp\ 4522}# #{x\ 4520}#))
- (let ((#{tmp\ 4523}#
- ($sc-dispatch #{tmp\ 4522}# (quote (_ any)))))
- (if #{tmp\ 4523}#
+ (lambda (#{x\ 4524}#)
+ (let ((#{tmp\ 4526}# #{x\ 4524}#))
+ (let ((#{tmp\ 4527}#
+ ($sc-dispatch #{tmp\ 4526}# '(_ any))))
+ (if #{tmp\ 4527}#
(@apply
- (lambda (#{e\ 4525}#)
+ (lambda (#{e\ 4529}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4520}#))
- #{tmp\ 4523}#)
+ #{x\ 4524}#))
+ #{tmp\ 4527}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4522}#)))))))
+ #{tmp\ 4526}#)))))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4526}#)
- (let ((#{tmp\ 4528}# #{x\ 4526}#))
- (let ((#{tmp\ 4529}#
- ($sc-dispatch #{tmp\ 4528}# (quote (_ any)))))
- (if #{tmp\ 4529}#
+ (lambda (#{x\ 4530}#)
+ (let ((#{tmp\ 4532}# #{x\ 4530}#))
+ (let ((#{tmp\ 4533}#
+ ($sc-dispatch #{tmp\ 4532}# '(_ any))))
+ (if #{tmp\ 4533}#
(@apply
- (lambda (#{e\ 4531}#)
+ (lambda (#{e\ 4535}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4526}#))
- #{tmp\ 4529}#)
+ #{x\ 4530}#))
+ #{tmp\ 4533}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4528}#)))))))
+ #{tmp\ 4532}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4532}#)
- (let ((#{tmp\ 4534}# #{x\ 4532}#))
- (let ((#{tmp\ 4535}#
+ (lambda (#{x\ 4536}#)
+ (let ((#{tmp\ 4538}# #{x\ 4536}#))
+ (let ((#{tmp\ 4539}#
($sc-dispatch
- #{tmp\ 4534}#
+ #{tmp\ 4538}#
'(_ any any . each-any))))
- (if #{tmp\ 4535}#
+ (if #{tmp\ 4539}#
(@apply
- (lambda (#{e\ 4539}# #{m1\ 4540}# #{m2\ 4541}#)
- (let ((#{tmp\ 4543}#
+ (lambda (#{e\ 4543}# #{m1\ 4544}# #{m2\ 4545}#)
+ (let ((#{tmp\ 4547}#
(letrec*
- ((#{f\ 4549}#
- (lambda (#{clause\ 4550}# #{clauses\ 4551}#)
- (if (null? #{clauses\ 4551}#)
- (let ((#{tmp\ 4553}# #{clause\ 4550}#))
- (let ((#{tmp\ 4554}#
+ ((#{f\ 4553}#
+ (lambda (#{clause\ 4554}# #{clauses\ 4555}#)
+ (if (null? #{clauses\ 4555}#)
+ (let ((#{tmp\ 4557}# #{clause\ 4554}#))
+ (let ((#{tmp\ 4558}#
($sc-dispatch
- #{tmp\ 4553}#
+ #{tmp\ 4557}#
'(#(free-id
#(syntax-object
else
@@ -16669,92 +16564,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4554}#
+ (if #{tmp\ 4558}#
(@apply
- (lambda (#{e1\ 4557}# #{e2\ 4558}#)
+ (lambda (#{e1\ 4561}# #{e2\ 4562}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4555" "i4556"))
+ #("i4559" "i4560"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
- (cons #{e1\ 4557}#
- #{e2\ 4558}#)))
- #{tmp\ 4554}#)
- (let ((#{tmp\ 4560}#
+ (cons #{e1\ 4561}#
+ #{e2\ 4562}#)))
+ #{tmp\ 4558}#)
+ (let ((#{tmp\ 4564}#
($sc-dispatch
- #{tmp\ 4553}#
+ #{tmp\ 4557}#
'(each-any any . each-any))))
- (if #{tmp\ 4560}#
+ (if #{tmp\ 4564}#
(@apply
- (lambda (#{k\ 4564}#
- #{e1\ 4565}#
- #{e2\ 4566}#)
+ (lambda (#{k\ 4568}#
+ #{e1\ 4569}#
+ #{e2\ 4570}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4561"
- "i4562"
- "i4563"))
+ #("i4565"
+ "i4566"
+ "i4567"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -16764,9 +16659,9 @@
#((top)
(top)
(top))
- #("i4561"
- "i4562"
- "i4563"))
+ #("i4565"
+ "i4566"
+ "i4567"))
#(ribcage
()
()
@@ -16778,17 +16673,17 @@
#((top)
(top)
(top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage
()
()
@@ -16796,7 +16691,7 @@
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
'#(syntax-object
t
@@ -16806,9 +16701,9 @@
#((top)
(top)
(top))
- #("i4561"
- "i4562"
- "i4563"))
+ #("i4565"
+ "i4566"
+ "i4567"))
#(ribcage
()
()
@@ -16820,17 +16715,17 @@
#((top)
(top)
(top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage
()
()
@@ -16838,7 +16733,7 @@
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -16850,9 +16745,9 @@
#((top)
(top)
(top))
-
#("i4561"
-
"i4562"
-
"i4563"))
+
#("i4565"
+
"i4566"
+
"i4567"))
#(ribcage
()
()
@@ -16864,9 +16759,9 @@
#((top)
(top)
(top))
-
#("i4546"
-
"i4547"
-
"i4548"))
+
#("i4550"
+
"i4551"
+
"i4552"))
#(ribcage
#(e
m1
@@ -16874,9 +16769,9 @@
#((top)
(top)
(top))
-
#("i4536"
-
"i4537"
-
"i4538"))
+
#("i4540"
+
"i4541"
+
"i4542"))
#(ribcage
()
()
@@ -16884,10 +16779,10 @@
#(ribcage
#(x)
#((top))
-
#("i4533")))
+
#("i4537")))
(hygiene
guile))
- #{k\ 4564}#))
+ #{k\ 4568}#))
(cons '#(syntax-object
begin
((top)
@@ -16896,9 +16791,9 @@
#((top)
(top)
(top))
- #("i4561"
- "i4562"
- "i4563"))
+ #("i4565"
+ "i4566"
+ "i4567"))
#(ribcage
()
()
@@ -16910,17 +16805,17 @@
#((top)
(top)
(top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage
()
()
@@ -16928,63 +16823,63 @@
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
- (cons #{e1\ 4565}#
- #{e2\
4566}#))))
- #{tmp\ 4560}#)
- (let ((#{_\ 4570}# #{tmp\ 4553}#))
+ (cons #{e1\ 4569}#
+ #{e2\
4570}#))))
+ #{tmp\ 4564}#)
+ (let ((#{_\ 4574}# #{tmp\ 4557}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4532}#
- #{clause\ 4550}#)))))))
- (let ((#{tmp\ 4572}#
- (#{f\ 4549}#
- (car #{clauses\ 4551}#)
- (cdr #{clauses\ 4551}#))))
- (let ((#{rest\ 4574}# #{tmp\ 4572}#))
- (let ((#{tmp\ 4575}# #{clause\ 4550}#))
- (let ((#{tmp\ 4576}#
+ #{x\ 4536}#
+ #{clause\ 4554}#)))))))
+ (let ((#{tmp\ 4576}#
+ (#{f\ 4553}#
+ (car #{clauses\ 4555}#)
+ (cdr #{clauses\ 4555}#))))
+ (let ((#{rest\ 4578}# #{tmp\ 4576}#))
+ (let ((#{tmp\ 4579}# #{clause\ 4554}#))
+ (let ((#{tmp\ 4580}#
($sc-dispatch
- #{tmp\ 4575}#
+ #{tmp\ 4579}#
'(each-any any . each-any))))
- (if #{tmp\ 4576}#
+ (if #{tmp\ 4580}#
(@apply
- (lambda (#{k\ 4580}#
- #{e1\ 4581}#
- #{e2\ 4582}#)
+ (lambda (#{k\ 4584}#
+ #{e1\ 4585}#
+ #{e2\ 4586}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4577"
- "i4578"
- "i4579"))
+ #("i4581"
+ "i4582"
+ "i4583"))
#(ribcage
#(rest)
#((top))
- #("i4573"))
+ #("i4577"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -16994,13 +16889,13 @@
#((top)
(top)
(top))
- #("i4577"
- "i4578"
- "i4579"))
+ #("i4581"
+ "i4582"
+ "i4583"))
#(ribcage
#(rest)
#((top))
- #("i4573"))
+ #("i4577"))
#(ribcage
()
()
@@ -17012,17 +16907,17 @@
#((top)
(top)
(top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage
()
()
@@ -17030,7 +16925,7 @@
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
'#(syntax-object
t
@@ -17040,13 +16935,13 @@
#((top)
(top)
(top))
- #("i4577"
- "i4578"
- "i4579"))
+ #("i4581"
+ "i4582"
+ "i4583"))
#(ribcage
#(rest)
#((top))
- #("i4573"))
+ #("i4577"))
#(ribcage
()
()
@@ -17058,17 +16953,17 @@
#((top)
(top)
(top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage
()
()
@@ -17076,7 +16971,7 @@
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -17088,13 +16983,13 @@
#((top)
(top)
(top))
-
#("i4577"
-
"i4578"
-
"i4579"))
+
#("i4581"
+
"i4582"
+
"i4583"))
#(ribcage
#(rest)
#((top))
-
#("i4573"))
+
#("i4577"))
#(ribcage
()
()
@@ -17106,9 +17001,9 @@
#((top)
(top)
(top))
-
#("i4546"
-
"i4547"
-
"i4548"))
+
#("i4550"
+
"i4551"
+
"i4552"))
#(ribcage
#(e
m1
@@ -17116,9 +17011,9 @@
#((top)
(top)
(top))
-
#("i4536"
-
"i4537"
-
"i4538"))
+
#("i4540"
+
"i4541"
+
"i4542"))
#(ribcage
()
()
@@ -17126,10 +17021,10 @@
#(ribcage
#(x)
#((top))
-
#("i4533")))
+
#("i4537")))
(hygiene
guile))
- #{k\ 4580}#))
+ #{k\ 4584}#))
(cons '#(syntax-object
begin
((top)
@@ -17138,13 +17033,13 @@
#((top)
(top)
(top))
- #("i4577"
- "i4578"
- "i4579"))
+ #("i4581"
+ "i4582"
+ "i4583"))
#(ribcage
#(rest)
#((top))
- #("i4573"))
+ #("i4577"))
#(ribcage
()
()
@@ -17156,17 +17051,17 @@
#((top)
(top)
(top))
- #("i4546"
- "i4547"
- "i4548"))
+ #("i4550"
+ "i4551"
+ "i4552"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4536"
- "i4537"
- "i4538"))
+ #("i4540"
+ "i4541"
+ "i4542"))
#(ribcage
()
()
@@ -17174,30 +17069,30 @@
#(ribcage
#(x)
#((top))
- #("i4533")))
+ #("i4537")))
(hygiene guile))
- (cons #{e1\ 4581}#
- #{e2\ 4582}#))
- #{rest\ 4574}#))
- #{tmp\ 4576}#)
- (let ((#{_\ 4586}# #{tmp\ 4575}#))
+ (cons #{e1\ 4585}#
+ #{e2\ 4586}#))
+ #{rest\ 4578}#))
+ #{tmp\ 4580}#)
+ (let ((#{_\ 4590}# #{tmp\ 4579}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4532}#
- #{clause\ 4550}#)))))))))))
- (begin (#{f\ 4549}# #{m1\ 4540}# #{m2\ 4541}#)))))
- (let ((#{body\ 4545}# #{tmp\ 4543}#))
+ #{x\ 4536}#
+ #{clause\ 4554}#)))))))))))
+ (begin (#{f\ 4553}# #{m1\ 4544}# #{m2\ 4545}#)))))
+ (let ((#{body\ 4549}# #{tmp\ 4547}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4544"))
+ #(ribcage #(body) #((top)) #("i4548"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4536" "i4537" "i4538"))
+ #("i4540" "i4541" "i4542"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4533")))
+ #(ribcage #(x) #((top)) #("i4537")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -17205,177 +17100,177 @@
#(ribcage
#(body)
#((top))
- #("i4544"))
+ #("i4548"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4536" "i4537" "i4538"))
+ #("i4540" "i4541" "i4542"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4533")))
+ #(ribcage #(x) #((top)) #("i4537")))
(hygiene guile))
- #{e\ 4539}#))
- #{body\ 4545}#))))
- #{tmp\ 4535}#)
+ #{e\ 4543}#))
+ #{body\ 4549}#))))
+ #{tmp\ 4539}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4534}#)))))))
+ #{tmp\ 4538}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 4587}#)
- (if (procedure? #{proc\ 4587}#)
+ (lambda (#{proc\ 4591}#)
+ (if (procedure? #{proc\ 4591}#)
(begin
(letrec*
- ((#{trans\ 4590}#
- (lambda (#{x\ 4591}#)
- (#{proc\ 4587}# #{x\ 4591}#))))
+ ((#{trans\ 4594}#
+ (lambda (#{x\ 4595}#)
+ (#{proc\ 4591}# #{x\ 4595}#))))
(begin
(set-procedure-property!
- #{trans\ 4590}#
+ #{trans\ 4594}#
'variable-transformer
#t)
- #{trans\ 4590}#)))
+ #{trans\ 4594}#)))
(error "variable transformer not a procedure"
- #{proc\ 4587}#))))
+ #{proc\ 4591}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4593}#)
- (let ((#{tmp\ 4595}# #{x\ 4593}#))
- (let ((#{tmp\ 4596}#
- ($sc-dispatch #{tmp\ 4595}# (quote (_ any)))))
- (if #{tmp\ 4596}#
+ (lambda (#{x\ 4597}#)
+ (let ((#{tmp\ 4599}# #{x\ 4597}#))
+ (let ((#{tmp\ 4600}#
+ ($sc-dispatch #{tmp\ 4599}# '(_ any))))
+ (if #{tmp\ 4600}#
(@apply
- (lambda (#{e\ 4598}#)
+ (lambda (#{e\ 4602}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
- #{e\ 4598}#))
+ #{e\ 4602}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4597"))
+ #(ribcage #(e) #((top)) #("i4601"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
- (cons #{e\ 4598}#
+ (cons #{e\ 4602}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4597"))
+ #("i4601"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
#(syntax-object
...
@@ -17383,55 +17278,55 @@
#(ribcage
#(e)
#((top))
- #("i4597"))
+ #("i4601"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile)))))))))
- #{tmp\ 4596}#)
- (let ((#{tmp\ 4599}#
+ #{tmp\ 4600}#)
+ (let ((#{tmp\ 4603}#
($sc-dispatch
- #{tmp\ 4595}#
+ #{tmp\ 4599}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp\ 4599}#
+ (if (if #{tmp\ 4603}#
(@apply
- (lambda (#{id\ 4605}#
- #{exp1\ 4606}#
- #{var\ 4607}#
- #{val\ 4608}#
- #{exp2\ 4609}#)
- (if (identifier? #{id\ 4605}#)
- (identifier? #{var\ 4607}#)
+ (lambda (#{id\ 4609}#
+ #{exp1\ 4610}#
+ #{var\ 4611}#
+ #{val\ 4612}#
+ #{exp2\ 4613}#)
+ (if (identifier? #{id\ 4609}#)
+ (identifier? #{var\ 4611}#)
#f))
- #{tmp\ 4599}#)
+ #{tmp\ 4603}#)
#f)
(@apply
- (lambda (#{id\ 4617}#
- #{exp1\ 4618}#
- #{var\ 4619}#
- #{val\ 4620}#
- #{exp2\ 4621}#)
+ (lambda (#{id\ 4621}#
+ #{exp1\ 4622}#
+ #{var\ 4623}#
+ #{val\ 4624}#
+ #{exp2\ 4625}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612" "i4613" "i4614" "i4615" "i4616"))
+ #("i4616" "i4617" "i4618" "i4619" "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -17439,13 +17334,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
'(#(syntax-object
x
@@ -17453,13 +17348,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -17467,13 +17362,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
.
#(syntax-object
@@ -17482,13 +17377,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -17496,13 +17391,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
'#(syntax-object
x
@@ -17510,13 +17405,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile))
'(#(syntax-object
set!
@@ -17524,13 +17419,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4594")))
+ #(ribcage #(x) #((top)) #("i4598")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -17542,19 +17437,19 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
- #{var\ 4619}#
- #{val\ 4620}#)
+ #{var\ 4623}#
+ #{val\ 4624}#)
(list '#(syntax-object
syntax
((top)
@@ -17565,19 +17460,19 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
- #{exp2\ 4621}#))
- (list (cons #{id\ 4617}#
+ #{exp2\ 4625}#))
+ (list (cons #{id\ 4621}#
'(#(syntax-object
x
((top)
@@ -17592,16 +17487,16 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
#(syntax-object
...
@@ -17617,16 +17512,16 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -17638,18 +17533,18 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
- (cons #{exp1\ 4618}#
+ (cons #{exp1\ 4622}#
'(#(syntax-object
x
((top)
@@ -17664,11 +17559,11 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage
()
()
@@ -17676,7 +17571,7 @@
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
#(syntax-object
...
@@ -17692,11 +17587,11 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage
()
()
@@ -17704,10 +17599,10 @@
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene
guile))))))
- (list #{id\ 4617}#
+ (list #{id\ 4621}#
(list '#(syntax-object
identifier?
((top)
@@ -17718,16 +17613,16 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -17743,18 +17638,18 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
- #{id\ 4617}#))
+ #{id\ 4621}#))
(list '#(syntax-object
syntax
((top)
@@ -17765,69 +17660,69 @@
(top)
(top)
(top))
- #("i4612"
- "i4613"
- "i4614"
- "i4615"
- "i4616"))
+ #("i4616"
+ "i4617"
+ "i4618"
+ "i4619"
+ "i4620"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4594")))
+ #("i4598")))
(hygiene guile))
- #{exp1\ 4618}#))))))
- #{tmp\ 4599}#)
+ #{exp1\ 4622}#))))))
+ #{tmp\ 4603}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4595}#)))))))))
+ #{tmp\ 4599}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4622}#)
- (let ((#{tmp\ 4624}# #{x\ 4622}#))
- (let ((#{tmp\ 4625}#
+ (lambda (#{x\ 4626}#)
+ (let ((#{tmp\ 4628}# #{x\ 4626}#))
+ (let ((#{tmp\ 4629}#
($sc-dispatch
- #{tmp\ 4624}#
+ #{tmp\ 4628}#
'(_ (any . any) any . each-any))))
- (if #{tmp\ 4625}#
+ (if #{tmp\ 4629}#
(@apply
- (lambda (#{id\ 4630}#
- #{args\ 4631}#
- #{b0\ 4632}#
- #{b1\ 4633}#)
+ (lambda (#{id\ 4634}#
+ #{args\ 4635}#
+ #{b0\ 4636}#
+ #{b1\ 4637}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4626" "i4627" "i4628" "i4629"))
+ #("i4630" "i4631" "i4632" "i4633"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4623")))
+ #(ribcage #(x) #((top)) #("i4627")))
(hygiene guile))
- #{id\ 4630}#
+ #{id\ 4634}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4626" "i4627" "i4628" "i4629"))
+ #("i4630" "i4631" "i4632" "i4633"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4623")))
+ #(ribcage #(x) #((top)) #("i4627")))
(hygiene guile))
- (cons #{args\ 4631}#
- (cons #{b0\ 4632}# #{b1\ 4633}#)))))
- #{tmp\ 4625}#)
- (let ((#{tmp\ 4635}#
- ($sc-dispatch #{tmp\ 4624}# (quote (_ any any)))))
- (if (if #{tmp\ 4635}#
+ (cons #{args\ 4635}#
+ (cons #{b0\ 4636}# #{b1\ 4637}#)))))
+ #{tmp\ 4629}#)
+ (let ((#{tmp\ 4639}#
+ ($sc-dispatch #{tmp\ 4628}# '(_ any any))))
+ (if (if #{tmp\ 4639}#
(@apply
- (lambda (#{id\ 4638}# #{val\ 4639}#)
+ (lambda (#{id\ 4642}# #{val\ 4643}#)
(identifier?
'#(syntax-object
x
@@ -17835,29 +17730,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i4636" "i4637"))
+ #("i4640" "i4641"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4623")))
+ #(ribcage #(x) #((top)) #("i4627")))
(hygiene guile))))
- #{tmp\ 4635}#)
+ #{tmp\ 4639}#)
#f)
(@apply
- (lambda (#{id\ 4642}# #{val\ 4643}#)
+ (lambda (#{id\ 4646}# #{val\ 4647}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4640" "i4641"))
+ #("i4644" "i4645"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4623")))
+ #(ribcage #(x) #((top)) #("i4627")))
(hygiene guile))
- #{id\ 4642}#
- #{val\ 4643}#))
- #{tmp\ 4635}#)
+ #{id\ 4646}#
+ #{val\ 4647}#))
+ #{tmp\ 4639}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4624}#)))))))))
+ #{tmp\ 4628}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index dd7677c..c82dfbd 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2415,20 +2415,14 @@
(bound-id=? x y)))
(set! syntax-violation
- (lambda (who message form . subform)
+ (lambda* (who message form #:optional subform)
(arg-check (lambda (x) (or (not x) (string? x) (symbol? x)))
who 'syntax-violation)
(arg-check string? message 'syntax-violation)
- (scm-error 'syntax-error 'macroexpand
- (string-append
- (if who "~a: " "")
- "~a "
- (if (null? subform) "in ~a" "in subform `~s' of `~s'"))
- (let ((tail (cons message
- (map (lambda (x) (strip x empty-wrap))
- (append subform (list form))))))
- (if who (cons who tail) tail))
- #f)))
+ (throw 'syntax-error who message
+ (source-annotation (or form subform))
+ (strip form empty-wrap)
+ (and subform (strip subform empty-wrap)))))
;; $sc-dispatch expects an expression and a pattern. If the expression
;; matches the pattern a list of the matching expressions for each
diff --git a/module/language/ecmascript/parse.scm
b/module/language/ecmascript/parse.scm
index e9d6673..4c23117 100644
--- a/module/language/ecmascript/parse.scm
+++ b/module/language/ecmascript/parse.scm
@@ -24,7 +24,7 @@
#:export (read-ecmascript read-ecmascript/1 make-parser))
(define (syntax-error message . args)
- (apply throw 'SyntaxError message args))
+ (throw 'syntax-error 'tokenize #f message #f #f args))
(define (read-ecmascript port)
(let ((parse (make-parser)))
diff --git a/module/language/ecmascript/tokenize.scm
b/module/language/ecmascript/tokenize.scm
index 65a8b1e..270a472 100644
--- a/module/language/ecmascript/tokenize.scm
+++ b/module/language/ecmascript/tokenize.scm
@@ -25,7 +25,7 @@
#:export (next-token make-tokenizer make-tokenizer/1 tokenize tokenize/1))
(define (syntax-error message . args)
- (apply throw 'SyntaxError message args))
+ (throw 'syntax-error 'tokenize #f message #f #f args))
;; taken from SSAX, sorta
(define (read-until delims port)
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 29c8d52..7c83fd7 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -26,36 +26,14 @@
#:use-module (ice-9 regex)
#:use-module (ice-9 optargs)
#:use-module (ice-9 receive)
- #:export (syntax-error
- compiled-file-name
+ #:export (compiled-file-name
compile-file
compile-and-load
read-and-compile
compile
- decompile)
- #:export-syntax (call-with-compile-error-catch))
+ decompile))
-;;;
-;;; Compiler environment
-;;;
-
-(define (syntax-error loc msg exp)
- (throw 'syntax-error-compile-time loc msg exp))
-(define-macro (call-with-compile-error-catch thunk)
- `(catch 'syntax-error-compile-time
- ,thunk
- (lambda (key loc msg exp)
- (if (pair? loc)
- (let ((file (or (assq-ref loc 'filename) "unknown file"))
- (line (assq-ref loc 'line))
- (col (assq-ref loc 'column)))
- (format (current-error-port)
- "~A:~A:~A: ~A: ~A~%" file line col msg exp))
- (format (current-error-port)
- "unknown location: ~A: ~S~%" msg exp)))))
-
-
;;;
;;; Compiler
;;;
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index fbe7b12..237919e 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -90,6 +90,23 @@
(define* (start-repl #:optional (lang (current-language)) #:key debug)
(run-repl (make-repl lang debug)))
+(define (display-syntax-error port who what where form subform extra)
+ (format port "Syntax error:~%")
+ (if where
+ (let ((file (or (assq-ref where 'filename) "unknown file"))
+ (line (assq-ref where 'line))
+ (col (assq-ref where 'column)))
+ (format port "~a:~a:~a: " file line col))
+ (format port "unknown location: "))
+ (if who
+ (format port "~a: " who))
+ (format port "~a" what)
+ (if subform
+ (format port " in subform ~s of ~s" subform form)
+ (if form
+ (format port " in form ~s" form)))
+ (newline port))
+
;; (put 'abort-on-error 'scheme-indent-function 1)
(define-syntax abort-on-error
(syntax-rules ()
@@ -98,8 +115,11 @@
(lambda () exp)
(lambda (key . args)
(format #t "While ~A:~%" string)
- (pmatch args
- ((,subr ,msg ,args . ,rest)
+ (pmatch (cons key args)
+ ((syntax-error ,who ,message ,where ,form ,subform . ,rest)
+ (display-syntax-error (current-output-port)
+ who message where form subform rest))
+ ((_ ,subr ,msg ,args . ,rest)
(display-error #f (current-output-port) subr msg args rest))
(else
(format #t "ERROR: Throw to key `~a' with args `~s'.\n" key args)))
@@ -131,6 +151,9 @@
(begin
(format #t "While executing meta-command:~%")
(pmatch args
+ ((syntax-error ,who ,message ,where ,form ,subform .
,rest)
+ (display-syntax-error (current-output-port)
+ who message where form subform
rest))
((,subr ,msg ,args . ,rest)
(display-error #f (current-output-port) subr msg
args rest))
(else
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |