|
| From: | No Itisnt |
| Subject: | [Guile-commits] GNU Guile branch, lua, updated. release_1-9-11-158-gd2b6d62 |
| Date: | Tue, 22 Jun 2010 03:57:25 +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=d2b6d6245ae15a81a310895e2514636c17780ad6
The branch, lua has been updated
via d2b6d6245ae15a81a310895e2514636c17780ad6 (commit)
via 95feb110c15d9136d12441b62cecdd1f00c557ac (commit)
via 7cdd1615e055376e001e600a7dad0487b5aceab1 (commit)
via 31fe12021603701d3cf5dfe058d897e8fe558e1c (commit)
via b78d91d517d900ee9825393be97d1f9079381367 (commit)
via 233b5d892cf56892f4e0e6ad9bc5e79a817fe023 (commit)
via 77b79cce0cc75053cbc289ad3d42d183611392e2 (commit)
from 990d8ff7b50532eb2c0d036dd3b41f6bbce4dcf3 (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 d2b6d6245ae15a81a310895e2514636c17780ad6
Author: No Itisnt <address@hidden>
Date: Mon Jun 21 22:56:39 2010 -0500
lua: Add long strings and comments, full number syntax, and split up the
tests.
commit 95feb110c15d9136d12441b62cecdd1f00c557ac
Merge: 990d8ff7b50532eb2c0d036dd3b41f6bbce4dcf3
7cdd1615e055376e001e600a7dad0487b5aceab1
Author: No Itisnt <address@hidden>
Date: Mon Jun 21 16:06:46 2010 -0500
Merge branch 'master' into lua
-----------------------------------------------------------------------
Summary of changes:
configure.ac | 2 +-
module/ice-9/psyntax-pp.scm |18375 +++++++++++++++-------------
module/ice-9/psyntax.scm | 43 +-
module/language/lua/common.scm | 11 +-
module/language/lua/global-environment.scm | 16 +-
module/language/lua/lexer.scm | 141 +-
module/language/lua/runtime.scm | 17 +-
test-suite/tests/lua-eval.test | 170 +
test-suite/tests/lua-lexer.test | 53 +
test-suite/tests/lua-parser.test | 57 +
test-suite/tests/lua.test | 253 -
test-suite/tests/syncase.test | 11 +
test-suite/tests/syntax.test | 4 +-
13 files changed, 10177 insertions(+), 8976 deletions(-)
create mode 100644 test-suite/tests/lua-eval.test
create mode 100644 test-suite/tests/lua-lexer.test
create mode 100644 test-suite/tests/lua-parser.test
delete mode 100644 test-suite/tests/lua.test
diff --git a/configure.ac b/configure.ac
index 9601016..ed69a9f 100644
--- a/configure.ac
+++ b/configure.ac
@@ -37,7 +37,7 @@ AC_CONFIG_MACRO_DIR([m4])
AC_CONFIG_SRCDIR(GUILE-VERSION)
AM_INIT_AUTOMAKE([gnu no-define -Wall -Wno-override])
-m4_ifdef([AM_SILENT_RULES], [AM_SILENT_RULES([yes])])
+m4_ifdef([AM_SILENT_RULES], [AM_SILENT_RULES([yes])],
[AC_SUBST([AM_DEFAULT_VERBOSITY],1)])
AC_COPYRIGHT(GUILE_CONFIGURE_COPYRIGHT)
AC_CONFIG_SRCDIR([GUILE-VERSION])
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index a186682..9a00c80 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1233 +2,1224 @@
(if #f #f)
(letrec*
- ((#{and-map*\ 2144}#
- (lambda (#{f\ 2316}# #{first\ 2317}# . #{rest\ 2318}#)
+ ((#{and-map*\ 36}#
+ (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#)
(begin
- (let ((#{t\ 2324}# (null? #{first\ 2317}#)))
- (if #{t\ 2324}#
- #{t\ 2324}#
- (if (null? #{rest\ 2318}#)
+ (let ((#{t\ 208}# (null? #{first\ 201}#)))
+ (if #{t\ 208}#
+ #{t\ 208}#
+ (if (null? #{rest\ 202}#)
(letrec*
- ((#{andmap\ 2328}#
- (lambda (#{first\ 2329}#)
+ ((#{andmap\ 212}#
+ (lambda (#{first\ 213}#)
(begin
- (let ((#{x\ 2332}# (car #{first\ 2329}#))
- (#{first\ 2333}# (cdr #{first\ 2329}#)))
- (if (null? #{first\ 2333}#)
- (#{f\ 2316}# #{x\ 2332}#)
- (if (#{f\ 2316}# #{x\ 2332}#)
- (#{andmap\ 2328}# #{first\ 2333}#)
+ (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}#)
#f)))))))
- (begin (#{andmap\ 2328}# #{first\ 2317}#)))
+ (begin (#{andmap\ 212}# #{first\ 201}#)))
(letrec*
- ((#{andmap\ 2339}#
- (lambda (#{first\ 2340}# #{rest\ 2341}#)
+ ((#{andmap\ 223}#
+ (lambda (#{first\ 224}# #{rest\ 225}#)
(begin
- (let ((#{x\ 2346}# (car #{first\ 2340}#))
- (#{xr\ 2347}# (map car #{rest\ 2341}#))
- (#{first\ 2348}# (cdr #{first\ 2340}#))
- (#{rest\ 2349}# (map cdr #{rest\ 2341}#)))
- (if (null? #{first\ 2348}#)
- (@apply
- #{f\ 2316}#
- (cons #{x\ 2346}# #{xr\ 2347}#))
+ (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}# (cons #{x\ 230}# #{xr\ 231}#))
(if (@apply
- #{f\ 2316}#
- (cons #{x\ 2346}# #{xr\ 2347}#))
- (#{andmap\ 2339}# #{first\ 2348}# #{rest\ 2349}#)
+ #{f\ 200}#
+ (cons #{x\ 230}# #{xr\ 231}#))
+ (#{andmap\ 223}# #{first\ 232}# #{rest\ 233}#)
#f)))))))
(begin
- (#{andmap\ 2339}# #{first\ 2317}# #{rest\ 2318}#))))))))))
+ (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 2358}# (if #f #f))
- (#{fx+\ 2397}# (if #f #f))
- (#{fx-\ 2399}# (if #f #f))
- (#{fx=\ 2401}# (if #f #f))
- (#{fx<\ 2403}# (if #f #f))
- (#{set-syntax-object-expression!\ 2468}#
+ (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}#
(if #f #f))
- (#{set-syntax-object-wrap!\ 2470}# (if #f #f))
- (#{set-syntax-object-module!\ 2472}# (if #f #f))
- (#{binding-type\ 2479}# (if #f #f))
- (#{binding-value\ 2481}# (if #f #f))
- (#{make-wrap\ 2501}# (if #f #f))
- (#{wrap-marks\ 2503}# (if #f #f))
- (#{wrap-subst\ 2505}# (if #f #f))
- (#{ribcage?\ 2519}# (if #f #f)))
+ (#{set-syntax-object-wrap!\ 354}# (if #f #f))
+ (#{set-syntax-object-module!\ 356}# (if #f #f))
+ (#{binding-type\ 363}# (if #f #f))
+ (#{binding-value\ 365}# (if #f #f))
+ (#{make-wrap\ 385}# (if #f #f))
+ (#{wrap-marks\ 387}# (if #f #f))
+ (#{wrap-subst\ 389}# (if #f #f))
+ (#{ribcage?\ 403}# (if #f #f)))
(letrec*
- ((#{make-void\ 2354}#
- (lambda (#{src\ 2826}#)
+ ((#{make-void\ 238}#
+ (lambda (#{src\ 698}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 2826}#)))
- (#{make-const\ 2356}#
- (lambda (#{src\ 2828}# #{exp\ 2829}#)
+ #{src\ 698}#)))
+ (#{make-const\ 240}#
+ (lambda (#{src\ 700}# #{exp\ 701}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 2828}#
- #{exp\ 2829}#)))
- (#{make-lexical-ref\ 2360}#
- (lambda (#{src\ 2836}# #{name\ 2837}# #{gensym\ 2838}#)
+ #{src\ 700}#
+ #{exp\ 701}#)))
+ (#{make-lexical-ref\ 244}#
+ (lambda (#{src\ 708}# #{name\ 709}# #{gensym\ 710}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 2836}#
- #{name\ 2837}#
- #{gensym\ 2838}#)))
- (#{make-lexical-set\ 2362}#
- (lambda (#{src\ 2842}#
- #{name\ 2843}#
- #{gensym\ 2844}#
- #{exp\ 2845}#)
+ #{src\ 708}#
+ #{name\ 709}#
+ #{gensym\ 710}#)))
+ (#{make-lexical-set\ 246}#
+ (lambda (#{src\ 714}#
+ #{name\ 715}#
+ #{gensym\ 716}#
+ #{exp\ 717}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 2842}#
- #{name\ 2843}#
- #{gensym\ 2844}#
- #{exp\ 2845}#)))
- (#{make-module-ref\ 2364}#
- (lambda (#{src\ 2850}#
- #{mod\ 2851}#
- #{name\ 2852}#
- #{public?\ 2853}#)
+ #{src\ 714}#
+ #{name\ 715}#
+ #{gensym\ 716}#
+ #{exp\ 717}#)))
+ (#{make-module-ref\ 248}#
+ (lambda (#{src\ 722}#
+ #{mod\ 723}#
+ #{name\ 724}#
+ #{public?\ 725}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 2850}#
- #{mod\ 2851}#
- #{name\ 2852}#
- #{public?\ 2853}#)))
- (#{make-module-set\ 2366}#
- (lambda (#{src\ 2858}#
- #{mod\ 2859}#
- #{name\ 2860}#
- #{public?\ 2861}#
- #{exp\ 2862}#)
+ #{src\ 722}#
+ #{mod\ 723}#
+ #{name\ 724}#
+ #{public?\ 725}#)))
+ (#{make-module-set\ 250}#
+ (lambda (#{src\ 730}#
+ #{mod\ 731}#
+ #{name\ 732}#
+ #{public?\ 733}#
+ #{exp\ 734}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 2858}#
- #{mod\ 2859}#
- #{name\ 2860}#
- #{public?\ 2861}#
- #{exp\ 2862}#)))
- (#{make-toplevel-ref\ 2368}#
- (lambda (#{src\ 2868}# #{name\ 2869}#)
+ #{src\ 730}#
+ #{mod\ 731}#
+ #{name\ 732}#
+ #{public?\ 733}#
+ #{exp\ 734}#)))
+ (#{make-toplevel-ref\ 252}#
+ (lambda (#{src\ 740}# #{name\ 741}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 2868}#
- #{name\ 2869}#)))
- (#{make-toplevel-set\ 2370}#
- (lambda (#{src\ 2872}# #{name\ 2873}# #{exp\ 2874}#)
+ #{src\ 740}#
+ #{name\ 741}#)))
+ (#{make-toplevel-set\ 254}#
+ (lambda (#{src\ 744}# #{name\ 745}# #{exp\ 746}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 2872}#
- #{name\ 2873}#
- #{exp\ 2874}#)))
- (#{make-toplevel-define\ 2372}#
- (lambda (#{src\ 2878}# #{name\ 2879}# #{exp\ 2880}#)
+ #{src\ 744}#
+ #{name\ 745}#
+ #{exp\ 746}#)))
+ (#{make-toplevel-define\ 256}#
+ (lambda (#{src\ 750}# #{name\ 751}# #{exp\ 752}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 2878}#
- #{name\ 2879}#
- #{exp\ 2880}#)))
- (#{make-conditional\ 2374}#
- (lambda (#{src\ 2884}#
- #{test\ 2885}#
- #{consequent\ 2886}#
- #{alternate\ 2887}#)
+ #{src\ 750}#
+ #{name\ 751}#
+ #{exp\ 752}#)))
+ (#{make-conditional\ 258}#
+ (lambda (#{src\ 756}#
+ #{test\ 757}#
+ #{consequent\ 758}#
+ #{alternate\ 759}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 2884}#
- #{test\ 2885}#
- #{consequent\ 2886}#
- #{alternate\ 2887}#)))
- (#{make-application\ 2376}#
- (lambda (#{src\ 2892}# #{proc\ 2893}# #{args\ 2894}#)
+ #{src\ 756}#
+ #{test\ 757}#
+ #{consequent\ 758}#
+ #{alternate\ 759}#)))
+ (#{make-application\ 260}#
+ (lambda (#{src\ 764}# #{proc\ 765}# #{args\ 766}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 2892}#
- #{proc\ 2893}#
- #{args\ 2894}#)))
- (#{make-sequence\ 2378}#
- (lambda (#{src\ 2898}# #{exps\ 2899}#)
+ #{src\ 764}#
+ #{proc\ 765}#
+ #{args\ 766}#)))
+ (#{make-sequence\ 262}#
+ (lambda (#{src\ 770}# #{exps\ 771}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 2898}#
- #{exps\ 2899}#)))
- (#{make-lambda\ 2380}#
- (lambda (#{src\ 2902}# #{meta\ 2903}# #{body\ 2904}#)
+ #{src\ 770}#
+ #{exps\ 771}#)))
+ (#{make-lambda\ 264}#
+ (lambda (#{src\ 774}# #{meta\ 775}# #{body\ 776}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 2902}#
- #{meta\ 2903}#
- #{body\ 2904}#)))
- (#{make-lambda-case\ 2382}#
- (lambda (#{src\ 2908}#
- #{req\ 2909}#
- #{opt\ 2910}#
- #{rest\ 2911}#
- #{kw\ 2912}#
- #{inits\ 2913}#
- #{gensyms\ 2914}#
- #{body\ 2915}#
- #{alternate\ 2916}#)
+ #{src\ 774}#
+ #{meta\ 775}#
+ #{body\ 776}#)))
+ (#{make-lambda-case\ 266}#
+ (lambda (#{src\ 780}#
+ #{req\ 781}#
+ #{opt\ 782}#
+ #{rest\ 783}#
+ #{kw\ 784}#
+ #{inits\ 785}#
+ #{gensyms\ 786}#
+ #{body\ 787}#
+ #{alternate\ 788}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 2908}#
- #{req\ 2909}#
- #{opt\ 2910}#
- #{rest\ 2911}#
- #{kw\ 2912}#
- #{inits\ 2913}#
- #{gensyms\ 2914}#
- #{body\ 2915}#
- #{alternate\ 2916}#)))
- (#{make-let\ 2384}#
- (lambda (#{src\ 2926}#
- #{names\ 2927}#
- #{gensyms\ 2928}#
- #{vals\ 2929}#
- #{body\ 2930}#)
+ #{src\ 780}#
+ #{req\ 781}#
+ #{opt\ 782}#
+ #{rest\ 783}#
+ #{kw\ 784}#
+ #{inits\ 785}#
+ #{gensyms\ 786}#
+ #{body\ 787}#
+ #{alternate\ 788}#)))
+ (#{make-let\ 268}#
+ (lambda (#{src\ 798}#
+ #{names\ 799}#
+ #{gensyms\ 800}#
+ #{vals\ 801}#
+ #{body\ 802}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 2926}#
- #{names\ 2927}#
- #{gensyms\ 2928}#
- #{vals\ 2929}#
- #{body\ 2930}#)))
- (#{make-letrec\ 2386}#
- (lambda (#{src\ 2936}#
- #{in-order?\ 2937}#
- #{names\ 2938}#
- #{gensyms\ 2939}#
- #{vals\ 2940}#
- #{body\ 2941}#)
+ #{src\ 798}#
+ #{names\ 799}#
+ #{gensyms\ 800}#
+ #{vals\ 801}#
+ #{body\ 802}#)))
+ (#{make-letrec\ 270}#
+ (lambda (#{src\ 808}#
+ #{in-order?\ 809}#
+ #{names\ 810}#
+ #{gensyms\ 811}#
+ #{vals\ 812}#
+ #{body\ 813}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 2936}#
- #{in-order?\ 2937}#
- #{names\ 2938}#
- #{gensyms\ 2939}#
- #{vals\ 2940}#
- #{body\ 2941}#)))
- (#{make-dynlet\ 2388}#
- (lambda (#{src\ 2948}#
- #{fluids\ 2949}#
- #{vals\ 2950}#
- #{body\ 2951}#)
+ #{src\ 808}#
+ #{in-order?\ 809}#
+ #{names\ 810}#
+ #{gensyms\ 811}#
+ #{vals\ 812}#
+ #{body\ 813}#)))
+ (#{make-dynlet\ 272}#
+ (lambda (#{src\ 820}#
+ #{fluids\ 821}#
+ #{vals\ 822}#
+ #{body\ 823}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 2948}#
- #{fluids\ 2949}#
- #{vals\ 2950}#
- #{body\ 2951}#)))
- (#{lambda?\ 2391}#
- (lambda (#{x\ 2956}#)
- (if (struct? #{x\ 2956}#)
- (eq? (struct-vtable #{x\ 2956}#)
+ #{src\ 820}#
+ #{fluids\ 821}#
+ #{vals\ 822}#
+ #{body\ 823}#)))
+ (#{lambda?\ 275}#
+ (lambda (#{x\ 828}#)
+ (if (struct? #{x\ 828}#)
+ (eq? (struct-vtable #{x\ 828}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 2393}#
- (lambda (#{x\ 2960}#) (struct-ref #{x\ 2960}# 1)))
- (#{set-lambda-meta!\ 2395}#
- (lambda (#{x\ 2962}# #{v\ 2963}#)
- (struct-set! #{x\ 2962}# 1 #{v\ 2963}#)))
- (#{top-level-eval-hook\ 2405}#
- (lambda (#{x\ 2966}# #{mod\ 2967}#)
- (primitive-eval #{x\ 2966}#)))
- (#{local-eval-hook\ 2407}#
- (lambda (#{x\ 2970}# #{mod\ 2971}#)
- (primitive-eval #{x\ 2970}#)))
- (#{put-global-definition-hook\ 2410}#
- (lambda (#{symbol\ 2974}# #{type\ 2975}# #{val\ 2976}#)
+ (#{lambda-meta\ 277}#
+ (lambda (#{x\ 832}#) (struct-ref #{x\ 832}# 1)))
+ (#{set-lambda-meta!\ 279}#
+ (lambda (#{x\ 834}# #{v\ 835}#)
+ (struct-set! #{x\ 834}# 1 #{v\ 835}#)))
+ (#{top-level-eval-hook\ 289}#
+ (lambda (#{x\ 838}# #{mod\ 839}#)
+ (primitive-eval #{x\ 838}#)))
+ (#{local-eval-hook\ 291}#
+ (lambda (#{x\ 842}# #{mod\ 843}#)
+ (primitive-eval #{x\ 842}#)))
+ (#{put-global-definition-hook\ 294}#
+ (lambda (#{symbol\ 846}# #{type\ 847}# #{val\ 848}#)
(module-define!
(current-module)
- #{symbol\ 2974}#
+ #{symbol\ 846}#
(make-syntax-transformer
- #{symbol\ 2974}#
- #{type\ 2975}#
- #{val\ 2976}#))))
- (#{get-global-definition-hook\ 2412}#
- (lambda (#{symbol\ 2980}# #{module\ 2981}#)
+ #{symbol\ 846}#
+ #{type\ 847}#
+ #{val\ 848}#))))
+ (#{get-global-definition-hook\ 296}#
+ (lambda (#{symbol\ 852}# #{module\ 853}#)
(begin
- (if (if (not #{module\ 2981}#) (current-module) #f)
+ (if (if (not #{module\ 853}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2980}#))
+ #{symbol\ 852}#))
(begin
- (let ((#{v\ 2987}#
- (module-variable
- (if #{module\ 2981}#
- (resolve-module (cdr #{module\ 2981}#))
- (current-module))
- #{symbol\ 2980}#)))
- (if #{v\ 2987}#
- (if (variable-bound? #{v\ 2987}#)
+ (let ((#{v\ 859}# (module-variable
+ (if #{module\ 853}#
+ (resolve-module (cdr #{module\ 853}#))
+ (current-module))
+ #{symbol\ 852}#)))
+ (if #{v\ 859}#
+ (if (variable-bound? #{v\ 859}#)
(begin
- (let ((#{val\ 2992}# (variable-ref #{v\ 2987}#)))
- (if (macro? #{val\ 2992}#)
- (if (macro-type #{val\ 2992}#)
- (cons (macro-type #{val\ 2992}#)
- (macro-binding #{val\ 2992}#))
+ (let ((#{val\ 864}# (variable-ref #{v\ 859}#)))
+ (if (macro? #{val\ 864}#)
+ (if (macro-type #{val\ 864}#)
+ (cons (macro-type #{val\ 864}#)
+ (macro-binding #{val\ 864}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 2414}#
- (lambda (#{e\ 2996}# #{s\ 2997}#)
+ (#{decorate-source\ 298}#
+ (lambda (#{e\ 868}# #{s\ 869}#)
(begin
- (if (if (pair? #{e\ 2996}#) #{s\ 2997}# #f)
- (set-source-properties! #{e\ 2996}# #{s\ 2997}#))
- #{e\ 2996}#)))
- (#{maybe-name-value!\ 2416}#
- (lambda (#{name\ 3002}# #{val\ 3003}#)
- (if (#{lambda?\ 2391}# #{val\ 3003}#)
+ (if (if (pair? #{e\ 868}#) #{s\ 869}# #f)
+ (set-source-properties! #{e\ 868}# #{s\ 869}#))
+ #{e\ 868}#)))
+ (#{maybe-name-value!\ 300}#
+ (lambda (#{name\ 874}# #{val\ 875}#)
+ (if (#{lambda?\ 275}# #{val\ 875}#)
(begin
- (let ((#{meta\ 3007}#
- (#{lambda-meta\ 2393}# #{val\ 3003}#)))
- (if (not (assq (quote name) #{meta\ 3007}#))
- (#{set-lambda-meta!\ 2395}#
- #{val\ 3003}#
- (cons (cons (quote name) #{name\ 3002}#)
- #{meta\ 3007}#))))))))
- (#{build-void\ 2418}#
- (lambda (#{source\ 3008}#)
- (#{make-void\ 2354}# #{source\ 3008}#)))
- (#{build-application\ 2420}#
- (lambda (#{source\ 3010}#
- #{fun-exp\ 3011}#
- #{arg-exps\ 3012}#)
- (#{make-application\ 2376}#
- #{source\ 3010}#
- #{fun-exp\ 3011}#
- #{arg-exps\ 3012}#)))
- (#{build-conditional\ 2422}#
- (lambda (#{source\ 3016}#
- #{test-exp\ 3017}#
- #{then-exp\ 3018}#
- #{else-exp\ 3019}#)
- (#{make-conditional\ 2374}#
- #{source\ 3016}#
- #{test-exp\ 3017}#
- #{then-exp\ 3018}#
- #{else-exp\ 3019}#)))
- (#{build-dynlet\ 2424}#
- (lambda (#{source\ 3024}#
- #{fluids\ 3025}#
- #{vals\ 3026}#
- #{body\ 3027}#)
- (#{make-dynlet\ 2388}#
- #{source\ 3024}#
- #{fluids\ 3025}#
- #{vals\ 3026}#
- #{body\ 3027}#)))
- (#{build-lexical-reference\ 2426}#
- (lambda (#{type\ 3032}#
- #{source\ 3033}#
- #{name\ 3034}#
- #{var\ 3035}#)
- (#{make-lexical-ref\ 2360}#
- #{source\ 3033}#
- #{name\ 3034}#
- #{var\ 3035}#)))
- (#{build-lexical-assignment\ 2428}#
- (lambda (#{source\ 3040}#
- #{name\ 3041}#
- #{var\ 3042}#
- #{exp\ 3043}#)
+ (let ((#{meta\ 879}#
+ (#{lambda-meta\ 277}# #{val\ 875}#)))
+ (if (not (assq (quote name) #{meta\ 879}#))
+ (#{set-lambda-meta!\ 279}#
+ #{val\ 875}#
+ (cons (cons (quote name) #{name\ 874}#)
+ #{meta\ 879}#))))))))
+ (#{build-void\ 302}#
+ (lambda (#{source\ 880}#)
+ (#{make-void\ 238}# #{source\ 880}#)))
+ (#{build-application\ 304}#
+ (lambda (#{source\ 882}#
+ #{fun-exp\ 883}#
+ #{arg-exps\ 884}#)
+ (#{make-application\ 260}#
+ #{source\ 882}#
+ #{fun-exp\ 883}#
+ #{arg-exps\ 884}#)))
+ (#{build-conditional\ 306}#
+ (lambda (#{source\ 888}#
+ #{test-exp\ 889}#
+ #{then-exp\ 890}#
+ #{else-exp\ 891}#)
+ (#{make-conditional\ 258}#
+ #{source\ 888}#
+ #{test-exp\ 889}#
+ #{then-exp\ 890}#
+ #{else-exp\ 891}#)))
+ (#{build-dynlet\ 308}#
+ (lambda (#{source\ 896}#
+ #{fluids\ 897}#
+ #{vals\ 898}#
+ #{body\ 899}#)
+ (#{make-dynlet\ 272}#
+ #{source\ 896}#
+ #{fluids\ 897}#
+ #{vals\ 898}#
+ #{body\ 899}#)))
+ (#{build-lexical-reference\ 310}#
+ (lambda (#{type\ 904}#
+ #{source\ 905}#
+ #{name\ 906}#
+ #{var\ 907}#)
+ (#{make-lexical-ref\ 244}#
+ #{source\ 905}#
+ #{name\ 906}#
+ #{var\ 907}#)))
+ (#{build-lexical-assignment\ 312}#
+ (lambda (#{source\ 912}#
+ #{name\ 913}#
+ #{var\ 914}#
+ #{exp\ 915}#)
(begin
- (#{maybe-name-value!\ 2416}#
- #{name\ 3041}#
- #{exp\ 3043}#)
- (#{make-lexical-set\ 2362}#
- #{source\ 3040}#
- #{name\ 3041}#
- #{var\ 3042}#
- #{exp\ 3043}#))))
- (#{analyze-variable\ 2430}#
- (lambda (#{mod\ 3048}#
- #{var\ 3049}#
- #{modref-cont\ 3050}#
- #{bare-cont\ 3051}#)
- (if (not #{mod\ 3048}#)
- (#{bare-cont\ 3051}# #{var\ 3049}#)
+ (#{maybe-name-value!\ 300}#
+ #{name\ 913}#
+ #{exp\ 915}#)
+ (#{make-lexical-set\ 246}#
+ #{source\ 912}#
+ #{name\ 913}#
+ #{var\ 914}#
+ #{exp\ 915}#))))
+ (#{analyze-variable\ 314}#
+ (lambda (#{mod\ 920}#
+ #{var\ 921}#
+ #{modref-cont\ 922}#
+ #{bare-cont\ 923}#)
+ (if (not #{mod\ 920}#)
+ (#{bare-cont\ 923}# #{var\ 921}#)
(begin
- (let ((#{kind\ 3058}# (car #{mod\ 3048}#))
- (#{mod\ 3059}# (cdr #{mod\ 3048}#)))
- (if (eqv? #{kind\ 3058}# (quote public))
- (#{modref-cont\ 3050}#
- #{mod\ 3059}#
- #{var\ 3049}#
+ (let ((#{kind\ 930}# (car #{mod\ 920}#))
+ (#{mod\ 931}# (cdr #{mod\ 920}#)))
+ (if (eqv? #{kind\ 930}# (quote public))
+ (#{modref-cont\ 922}#
+ #{mod\ 931}#
+ #{var\ 921}#
#t)
- (if (eqv? #{kind\ 3058}# (quote private))
+ (if (eqv? #{kind\ 930}# (quote private))
(if (not (equal?
- #{mod\ 3059}#
+ #{mod\ 931}#
(module-name (current-module))))
- (#{modref-cont\ 3050}#
- #{mod\ 3059}#
- #{var\ 3049}#
+ (#{modref-cont\ 922}#
+ #{mod\ 931}#
+ #{var\ 921}#
#f)
- (#{bare-cont\ 3051}# #{var\ 3049}#))
- (if (eqv? #{kind\ 3058}# (quote bare))
- (#{bare-cont\ 3051}# #{var\ 3049}#)
- (if (eqv? #{kind\ 3058}# (quote hygiene))
+ (#{bare-cont\ 923}# #{var\ 921}#))
+ (if (eqv? #{kind\ 930}# (quote bare))
+ (#{bare-cont\ 923}# #{var\ 921}#)
+ (if (eqv? #{kind\ 930}# (quote hygiene))
(if (if (not (equal?
- #{mod\ 3059}#
+ #{mod\ 931}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 3059}#)
- #{var\ 3049}#)
+ (resolve-module #{mod\ 931}#)
+ #{var\ 921}#)
#f)
- (#{modref-cont\ 3050}#
- #{mod\ 3059}#
- #{var\ 3049}#
+ (#{modref-cont\ 922}#
+ #{mod\ 931}#
+ #{var\ 921}#
#f)
- (#{bare-cont\ 3051}# #{var\ 3049}#))
+ (#{bare-cont\ 923}# #{var\ 921}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 3049}#
- #{mod\ 3059}#))))))))))
- (#{build-global-reference\ 2432}#
- (lambda (#{source\ 3067}# #{var\ 3068}# #{mod\ 3069}#)
- (#{analyze-variable\ 2430}#
- #{mod\ 3069}#
- #{var\ 3068}#
- (lambda (#{mod\ 3073}# #{var\ 3074}# #{public?\ 3075}#)
- (#{make-module-ref\ 2364}#
- #{source\ 3067}#
- #{mod\ 3073}#
- #{var\ 3074}#
- #{public?\ 3075}#))
- (lambda (#{var\ 3079}#)
- (#{make-toplevel-ref\ 2368}#
- #{source\ 3067}#
- #{var\ 3079}#)))))
- (#{build-global-assignment\ 2434}#
- (lambda (#{source\ 3081}#
- #{var\ 3082}#
- #{exp\ 3083}#
- #{mod\ 3084}#)
+ #{var\ 921}#
+ #{mod\ 931}#))))))))))
+ (#{build-global-reference\ 316}#
+ (lambda (#{source\ 939}# #{var\ 940}# #{mod\ 941}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 941}#
+ #{var\ 940}#
+ (lambda (#{mod\ 945}# #{var\ 946}# #{public?\ 947}#)
+ (#{make-module-ref\ 248}#
+ #{source\ 939}#
+ #{mod\ 945}#
+ #{var\ 946}#
+ #{public?\ 947}#))
+ (lambda (#{var\ 951}#)
+ (#{make-toplevel-ref\ 252}#
+ #{source\ 939}#
+ #{var\ 951}#)))))
+ (#{build-global-assignment\ 318}#
+ (lambda (#{source\ 953}#
+ #{var\ 954}#
+ #{exp\ 955}#
+ #{mod\ 956}#)
(begin
- (#{maybe-name-value!\ 2416}#
- #{var\ 3082}#
- #{exp\ 3083}#)
- (#{analyze-variable\ 2430}#
- #{mod\ 3084}#
- #{var\ 3082}#
- (lambda (#{mod\ 3089}# #{var\ 3090}# #{public?\ 3091}#)
- (#{make-module-set\ 2366}#
- #{source\ 3081}#
- #{mod\ 3089}#
- #{var\ 3090}#
- #{public?\ 3091}#
- #{exp\ 3083}#))
- (lambda (#{var\ 3095}#)
- (#{make-toplevel-set\ 2370}#
- #{source\ 3081}#
- #{var\ 3095}#
- #{exp\ 3083}#))))))
- (#{build-global-definition\ 2436}#
- (lambda (#{source\ 3097}# #{var\ 3098}# #{exp\ 3099}#)
+ (#{maybe-name-value!\ 300}#
+ #{var\ 954}#
+ #{exp\ 955}#)
+ (#{analyze-variable\ 314}#
+ #{mod\ 956}#
+ #{var\ 954}#
+ (lambda (#{mod\ 961}# #{var\ 962}# #{public?\ 963}#)
+ (#{make-module-set\ 250}#
+ #{source\ 953}#
+ #{mod\ 961}#
+ #{var\ 962}#
+ #{public?\ 963}#
+ #{exp\ 955}#))
+ (lambda (#{var\ 967}#)
+ (#{make-toplevel-set\ 254}#
+ #{source\ 953}#
+ #{var\ 967}#
+ #{exp\ 955}#))))))
+ (#{build-global-definition\ 320}#
+ (lambda (#{source\ 969}# #{var\ 970}# #{exp\ 971}#)
(begin
- (#{maybe-name-value!\ 2416}#
- #{var\ 3098}#
- #{exp\ 3099}#)
- (#{make-toplevel-define\ 2372}#
- #{source\ 3097}#
- #{var\ 3098}#
- #{exp\ 3099}#))))
- (#{build-simple-lambda\ 2438}#
- (lambda (#{src\ 3103}#
- #{req\ 3104}#
- #{rest\ 3105}#
- #{vars\ 3106}#
- #{meta\ 3107}#
- #{exp\ 3108}#)
- (#{make-lambda\ 2380}#
- #{src\ 3103}#
- #{meta\ 3107}#
- (#{make-lambda-case\ 2382}#
- #{src\ 3103}#
- #{req\ 3104}#
+ (#{maybe-name-value!\ 300}#
+ #{var\ 970}#
+ #{exp\ 971}#)
+ (#{make-toplevel-define\ 256}#
+ #{source\ 969}#
+ #{var\ 970}#
+ #{exp\ 971}#))))
+ (#{build-simple-lambda\ 322}#
+ (lambda (#{src\ 975}#
+ #{req\ 976}#
+ #{rest\ 977}#
+ #{vars\ 978}#
+ #{meta\ 979}#
+ #{exp\ 980}#)
+ (#{make-lambda\ 264}#
+ #{src\ 975}#
+ #{meta\ 979}#
+ (#{make-lambda-case\ 266}#
+ #{src\ 975}#
+ #{req\ 976}#
#f
- #{rest\ 3105}#
+ #{rest\ 977}#
#f
'()
- #{vars\ 3106}#
- #{exp\ 3108}#
+ #{vars\ 978}#
+ #{exp\ 980}#
#f))))
- (#{build-case-lambda\ 2440}#
- (lambda (#{src\ 3115}# #{meta\ 3116}# #{body\ 3117}#)
- (#{make-lambda\ 2380}#
- #{src\ 3115}#
- #{meta\ 3116}#
- #{body\ 3117}#)))
- (#{build-lambda-case\ 2442}#
- (lambda (#{src\ 3121}#
- #{req\ 3122}#
- #{opt\ 3123}#
- #{rest\ 3124}#
- #{kw\ 3125}#
- #{inits\ 3126}#
- #{vars\ 3127}#
- #{body\ 3128}#
- #{else-case\ 3129}#)
- (#{make-lambda-case\ 2382}#
- #{src\ 3121}#
- #{req\ 3122}#
- #{opt\ 3123}#
- #{rest\ 3124}#
- #{kw\ 3125}#
- #{inits\ 3126}#
- #{vars\ 3127}#
- #{body\ 3128}#
- #{else-case\ 3129}#)))
- (#{build-primref\ 2444}#
- (lambda (#{src\ 3139}# #{name\ 3140}#)
+ (#{build-case-lambda\ 324}#
+ (lambda (#{src\ 987}# #{meta\ 988}# #{body\ 989}#)
+ (#{make-lambda\ 264}#
+ #{src\ 987}#
+ #{meta\ 988}#
+ #{body\ 989}#)))
+ (#{build-lambda-case\ 326}#
+ (lambda (#{src\ 993}#
+ #{req\ 994}#
+ #{opt\ 995}#
+ #{rest\ 996}#
+ #{kw\ 997}#
+ #{inits\ 998}#
+ #{vars\ 999}#
+ #{body\ 1000}#
+ #{else-case\ 1001}#)
+ (#{make-lambda-case\ 266}#
+ #{src\ 993}#
+ #{req\ 994}#
+ #{opt\ 995}#
+ #{rest\ 996}#
+ #{kw\ 997}#
+ #{inits\ 998}#
+ #{vars\ 999}#
+ #{body\ 1000}#
+ #{else-case\ 1001}#)))
+ (#{build-primref\ 328}#
+ (lambda (#{src\ 1011}# #{name\ 1012}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 2368}#
- #{src\ 3139}#
- #{name\ 3140}#)
- (#{make-module-ref\ 2364}#
- #{src\ 3139}#
+ (#{make-toplevel-ref\ 252}#
+ #{src\ 1011}#
+ #{name\ 1012}#)
+ (#{make-module-ref\ 248}#
+ #{src\ 1011}#
'(guile)
- #{name\ 3140}#
+ #{name\ 1012}#
#f))))
- (#{build-data\ 2446}#
- (lambda (#{src\ 3143}# #{exp\ 3144}#)
- (#{make-const\ 2356}#
- #{src\ 3143}#
- #{exp\ 3144}#)))
- (#{build-sequence\ 2448}#
- (lambda (#{src\ 3147}# #{exps\ 3148}#)
- (if (null? (cdr #{exps\ 3148}#))
- (car #{exps\ 3148}#)
- (#{make-sequence\ 2378}#
- #{src\ 3147}#
- #{exps\ 3148}#))))
- (#{build-let\ 2450}#
- (lambda (#{src\ 3151}#
- #{ids\ 3152}#
- #{vars\ 3153}#
- #{val-exps\ 3154}#
- #{body-exp\ 3155}#)
+ (#{build-data\ 330}#
+ (lambda (#{src\ 1015}# #{exp\ 1016}#)
+ (#{make-const\ 240}# #{src\ 1015}# #{exp\ 1016}#)))
+ (#{build-sequence\ 332}#
+ (lambda (#{src\ 1019}# #{exps\ 1020}#)
+ (if (null? (cdr #{exps\ 1020}#))
+ (car #{exps\ 1020}#)
+ (#{make-sequence\ 262}#
+ #{src\ 1019}#
+ #{exps\ 1020}#))))
+ (#{build-let\ 334}#
+ (lambda (#{src\ 1023}#
+ #{ids\ 1024}#
+ #{vars\ 1025}#
+ #{val-exps\ 1026}#
+ #{body-exp\ 1027}#)
(begin
(for-each
- #{maybe-name-value!\ 2416}#
- #{ids\ 3152}#
- #{val-exps\ 3154}#)
- (if (null? #{vars\ 3153}#)
- #{body-exp\ 3155}#
- (#{make-let\ 2384}#
- #{src\ 3151}#
- #{ids\ 3152}#
- #{vars\ 3153}#
- #{val-exps\ 3154}#
- #{body-exp\ 3155}#)))))
- (#{build-named-let\ 2452}#
- (lambda (#{src\ 3161}#
- #{ids\ 3162}#
- #{vars\ 3163}#
- #{val-exps\ 3164}#
- #{body-exp\ 3165}#)
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1024}#
+ #{val-exps\ 1026}#)
+ (if (null? #{vars\ 1025}#)
+ #{body-exp\ 1027}#
+ (#{make-let\ 268}#
+ #{src\ 1023}#
+ #{ids\ 1024}#
+ #{vars\ 1025}#
+ #{val-exps\ 1026}#
+ #{body-exp\ 1027}#)))))
+ (#{build-named-let\ 336}#
+ (lambda (#{src\ 1033}#
+ #{ids\ 1034}#
+ #{vars\ 1035}#
+ #{val-exps\ 1036}#
+ #{body-exp\ 1037}#)
(begin
- (let ((#{f\ 3175}# (car #{vars\ 3163}#))
- (#{f-name\ 3176}# (car #{ids\ 3162}#))
- (#{vars\ 3177}# (cdr #{vars\ 3163}#))
- (#{ids\ 3178}# (cdr #{ids\ 3162}#)))
+ (let ((#{f\ 1047}# (car #{vars\ 1035}#))
+ (#{f-name\ 1048}# (car #{ids\ 1034}#))
+ (#{vars\ 1049}# (cdr #{vars\ 1035}#))
+ (#{ids\ 1050}# (cdr #{ids\ 1034}#)))
(begin
- (let ((#{proc\ 3180}#
- (#{build-simple-lambda\ 2438}#
- #{src\ 3161}#
- #{ids\ 3178}#
+ (let ((#{proc\ 1052}#
+ (#{build-simple-lambda\ 322}#
+ #{src\ 1033}#
+ #{ids\ 1050}#
#f
- #{vars\ 3177}#
+ #{vars\ 1049}#
'()
- #{body-exp\ 3165}#)))
+ #{body-exp\ 1037}#)))
(begin
- (#{maybe-name-value!\ 2416}#
- #{f-name\ 3176}#
- #{proc\ 3180}#)
+ (#{maybe-name-value!\ 300}#
+ #{f-name\ 1048}#
+ #{proc\ 1052}#)
(for-each
- #{maybe-name-value!\ 2416}#
- #{ids\ 3178}#
- #{val-exps\ 3164}#)
- (#{make-letrec\ 2386}#
- #{src\ 3161}#
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1050}#
+ #{val-exps\ 1036}#)
+ (#{make-letrec\ 270}#
+ #{src\ 1033}#
#f
- (list #{f-name\ 3176}#)
- (list #{f\ 3175}#)
- (list #{proc\ 3180}#)
- (#{build-application\ 2420}#
- #{src\ 3161}#
- (#{build-lexical-reference\ 2426}#
+ (list #{f-name\ 1048}#)
+ (list #{f\ 1047}#)
+ (list #{proc\ 1052}#)
+ (#{build-application\ 304}#
+ #{src\ 1033}#
+ (#{build-lexical-reference\ 310}#
'fun
- #{src\ 3161}#
- #{f-name\ 3176}#
- #{f\ 3175}#)
- #{val-exps\ 3164}#)))))))))
- (#{build-letrec\ 2454}#
- (lambda (#{src\ 3181}#
- #{in-order?\ 3182}#
- #{ids\ 3183}#
- #{vars\ 3184}#
- #{val-exps\ 3185}#
- #{body-exp\ 3186}#)
- (if (null? #{vars\ 3184}#)
- #{body-exp\ 3186}#
+ #{src\ 1033}#
+ #{f-name\ 1048}#
+ #{f\ 1047}#)
+ #{val-exps\ 1036}#)))))))))
+ (#{build-letrec\ 338}#
+ (lambda (#{src\ 1053}#
+ #{in-order?\ 1054}#
+ #{ids\ 1055}#
+ #{vars\ 1056}#
+ #{val-exps\ 1057}#
+ #{body-exp\ 1058}#)
+ (if (null? #{vars\ 1056}#)
+ #{body-exp\ 1058}#
(begin
(for-each
- #{maybe-name-value!\ 2416}#
- #{ids\ 3183}#
- #{val-exps\ 3185}#)
- (#{make-letrec\ 2386}#
- #{src\ 3181}#
- #{in-order?\ 3182}#
- #{ids\ 3183}#
- #{vars\ 3184}#
- #{val-exps\ 3185}#
- #{body-exp\ 3186}#)))))
- (#{make-syntax-object\ 2458}#
- (lambda (#{expression\ 3193}#
- #{wrap\ 3194}#
- #{module\ 3195}#)
+ #{maybe-name-value!\ 300}#
+ #{ids\ 1055}#
+ #{val-exps\ 1057}#)
+ (#{make-letrec\ 270}#
+ #{src\ 1053}#
+ #{in-order?\ 1054}#
+ #{ids\ 1055}#
+ #{vars\ 1056}#
+ #{val-exps\ 1057}#
+ #{body-exp\ 1058}#)))))
+ (#{make-syntax-object\ 342}#
+ (lambda (#{expression\ 1065}#
+ #{wrap\ 1066}#
+ #{module\ 1067}#)
(vector
'syntax-object
- #{expression\ 3193}#
- #{wrap\ 3194}#
- #{module\ 3195}#)))
- (#{syntax-object?\ 2460}#
- (lambda (#{x\ 3199}#)
- (if (vector? #{x\ 3199}#)
- (if (= (vector-length #{x\ 3199}#) 4)
- (eq? (vector-ref #{x\ 3199}# 0)
+ #{expression\ 1065}#
+ #{wrap\ 1066}#
+ #{module\ 1067}#)))
+ (#{syntax-object?\ 344}#
+ (lambda (#{x\ 1071}#)
+ (if (vector? #{x\ 1071}#)
+ (if (= (vector-length #{x\ 1071}#) 4)
+ (eq? (vector-ref #{x\ 1071}# 0)
'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 2462}#
- (lambda (#{x\ 3204}#) (vector-ref #{x\ 3204}# 1)))
- (#{syntax-object-wrap\ 2464}#
- (lambda (#{x\ 3206}#) (vector-ref #{x\ 3206}# 2)))
- (#{syntax-object-module\ 2466}#
- (lambda (#{x\ 3208}#) (vector-ref #{x\ 3208}# 3)))
- (#{source-annotation\ 2475}#
- (lambda (#{x\ 3222}#)
- (if (#{syntax-object?\ 2460}# #{x\ 3222}#)
- (#{source-annotation\ 2475}#
- (#{syntax-object-expression\ 2462}# #{x\ 3222}#))
- (if (pair? #{x\ 3222}#)
+ (#{syntax-object-expression\ 346}#
+ (lambda (#{x\ 1076}#) (vector-ref #{x\ 1076}# 1)))
+ (#{syntax-object-wrap\ 348}#
+ (lambda (#{x\ 1078}#) (vector-ref #{x\ 1078}# 2)))
+ (#{syntax-object-module\ 350}#
+ (lambda (#{x\ 1080}#) (vector-ref #{x\ 1080}# 3)))
+ (#{source-annotation\ 359}#
+ (lambda (#{x\ 1094}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1094}#)
+ (#{source-annotation\ 359}#
+ (#{syntax-object-expression\ 346}# #{x\ 1094}#))
+ (if (pair? #{x\ 1094}#)
(begin
- (let ((#{props\ 3229}# (source-properties #{x\ 3222}#)))
- (if (pair? #{props\ 3229}#) #{props\ 3229}# #f)))
+ (let ((#{props\ 1101}# (source-properties #{x\ 1094}#)))
+ (if (pair? #{props\ 1101}#) #{props\ 1101}# #f)))
#f))))
- (#{extend-env\ 2484}#
- (lambda (#{labels\ 3231}# #{bindings\ 3232}# #{r\ 3233}#)
- (if (null? #{labels\ 3231}#)
- #{r\ 3233}#
- (#{extend-env\ 2484}#
- (cdr #{labels\ 3231}#)
- (cdr #{bindings\ 3232}#)
- (cons (cons (car #{labels\ 3231}#)
- (car #{bindings\ 3232}#))
- #{r\ 3233}#)))))
- (#{extend-var-env\ 2486}#
- (lambda (#{labels\ 3237}# #{vars\ 3238}# #{r\ 3239}#)
- (if (null? #{labels\ 3237}#)
- #{r\ 3239}#
- (#{extend-var-env\ 2486}#
- (cdr #{labels\ 3237}#)
- (cdr #{vars\ 3238}#)
- (cons (cons (car #{labels\ 3237}#)
- (cons (quote lexical) (car #{vars\ 3238}#)))
- #{r\ 3239}#)))))
- (#{macros-only-env\ 2488}#
- (lambda (#{r\ 3244}#)
- (if (null? #{r\ 3244}#)
+ (#{extend-env\ 368}#
+ (lambda (#{labels\ 1103}# #{bindings\ 1104}# #{r\ 1105}#)
+ (if (null? #{labels\ 1103}#)
+ #{r\ 1105}#
+ (#{extend-env\ 368}#
+ (cdr #{labels\ 1103}#)
+ (cdr #{bindings\ 1104}#)
+ (cons (cons (car #{labels\ 1103}#)
+ (car #{bindings\ 1104}#))
+ #{r\ 1105}#)))))
+ (#{extend-var-env\ 370}#
+ (lambda (#{labels\ 1109}# #{vars\ 1110}# #{r\ 1111}#)
+ (if (null? #{labels\ 1109}#)
+ #{r\ 1111}#
+ (#{extend-var-env\ 370}#
+ (cdr #{labels\ 1109}#)
+ (cdr #{vars\ 1110}#)
+ (cons (cons (car #{labels\ 1109}#)
+ (cons (quote lexical) (car #{vars\ 1110}#)))
+ #{r\ 1111}#)))))
+ (#{macros-only-env\ 372}#
+ (lambda (#{r\ 1116}#)
+ (if (null? #{r\ 1116}#)
'()
(begin
- (let ((#{a\ 3247}# (car #{r\ 3244}#)))
- (if (eq? (car (cdr #{a\ 3247}#)) (quote macro))
- (cons #{a\ 3247}#
- (#{macros-only-env\ 2488}# (cdr #{r\ 3244}#)))
- (#{macros-only-env\ 2488}# (cdr #{r\ 3244}#))))))))
- (#{lookup\ 2490}#
- (lambda (#{x\ 3248}# #{r\ 3249}# #{mod\ 3250}#)
+ (let ((#{a\ 1119}# (car #{r\ 1116}#)))
+ (if (eq? (car (cdr #{a\ 1119}#)) (quote macro))
+ (cons #{a\ 1119}#
+ (#{macros-only-env\ 372}# (cdr #{r\ 1116}#)))
+ (#{macros-only-env\ 372}# (cdr #{r\ 1116}#))))))))
+ (#{lookup\ 374}#
+ (lambda (#{x\ 1120}# #{r\ 1121}# #{mod\ 1122}#)
(begin
- (let ((#{t\ 3256}# (assq #{x\ 3248}# #{r\ 3249}#)))
- (if #{t\ 3256}#
- (cdr #{t\ 3256}#)
- (if (symbol? #{x\ 3248}#)
+ (let ((#{t\ 1128}# (assq #{x\ 1120}# #{r\ 1121}#)))
+ (if #{t\ 1128}#
+ (cdr #{t\ 1128}#)
+ (if (symbol? #{x\ 1120}#)
(begin
- (let ((#{t\ 3262}#
- (#{get-global-definition-hook\ 2412}#
- #{x\ 3248}#
- #{mod\ 3250}#)))
- (if #{t\ 3262}# #{t\ 3262}# (quote (global)))))
+ (let ((#{t\ 1134}#
+ (#{get-global-definition-hook\ 296}#
+ #{x\ 1120}#
+ #{mod\ 1122}#)))
+ (if #{t\ 1134}# #{t\ 1134}# (quote (global)))))
'(displaced-lexical)))))))
- (#{global-extend\ 2492}#
- (lambda (#{type\ 3267}# #{sym\ 3268}# #{val\ 3269}#)
- (#{put-global-definition-hook\ 2410}#
- #{sym\ 3268}#
- #{type\ 3267}#
- #{val\ 3269}#)))
- (#{nonsymbol-id?\ 2494}#
- (lambda (#{x\ 3273}#)
- (if (#{syntax-object?\ 2460}# #{x\ 3273}#)
+ (#{global-extend\ 376}#
+ (lambda (#{type\ 1139}# #{sym\ 1140}# #{val\ 1141}#)
+ (#{put-global-definition-hook\ 294}#
+ #{sym\ 1140}#
+ #{type\ 1139}#
+ #{val\ 1141}#)))
+ (#{nonsymbol-id?\ 378}#
+ (lambda (#{x\ 1145}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1145}#)
(symbol?
- (#{syntax-object-expression\ 2462}# #{x\ 3273}#))
+ (#{syntax-object-expression\ 346}# #{x\ 1145}#))
#f)))
- (#{id?\ 2496}#
- (lambda (#{x\ 3277}#)
- (if (symbol? #{x\ 3277}#)
+ (#{id?\ 380}#
+ (lambda (#{x\ 1149}#)
+ (if (symbol? #{x\ 1149}#)
#t
- (if (#{syntax-object?\ 2460}# #{x\ 3277}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1149}#)
(symbol?
- (#{syntax-object-expression\ 2462}# #{x\ 3277}#))
+ (#{syntax-object-expression\ 346}# #{x\ 1149}#))
#f))))
- (#{id-sym-name&marks\ 2499}#
- (lambda (#{x\ 3284}# #{w\ 3285}#)
- (if (#{syntax-object?\ 2460}# #{x\ 3284}#)
+ (#{id-sym-name&marks\ 383}#
+ (lambda (#{x\ 1156}# #{w\ 1157}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1156}#)
(values
- (#{syntax-object-expression\ 2462}# #{x\ 3284}#)
- (#{join-marks\ 2549}#
- (#{wrap-marks\ 2503}# #{w\ 3285}#)
- (#{wrap-marks\ 2503}#
- (#{syntax-object-wrap\ 2464}# #{x\ 3284}#))))
+ (#{syntax-object-expression\ 346}# #{x\ 1156}#)
+ (#{join-marks\ 433}#
+ (#{wrap-marks\ 387}# #{w\ 1157}#)
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1156}#))))
(values
- #{x\ 3284}#
- (#{wrap-marks\ 2503}# #{w\ 3285}#)))))
- (#{gen-label\ 2512}#
+ #{x\ 1156}#
+ (#{wrap-marks\ 387}# #{w\ 1157}#)))))
+ (#{gen-label\ 396}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 2514}#
- (lambda (#{ls\ 3288}#)
- (if (null? #{ls\ 3288}#)
+ (#{gen-labels\ 398}#
+ (lambda (#{ls\ 1160}#)
+ (if (null? #{ls\ 1160}#)
'()
- (cons (#{gen-label\ 2512}#)
- (#{gen-labels\ 2514}# (cdr #{ls\ 3288}#))))))
- (#{make-ribcage\ 2517}#
- (lambda (#{symnames\ 3290}#
- #{marks\ 3291}#
- #{labels\ 3292}#)
+ (cons (#{gen-label\ 396}#)
+ (#{gen-labels\ 398}# (cdr #{ls\ 1160}#))))))
+ (#{make-ribcage\ 401}#
+ (lambda (#{symnames\ 1162}#
+ #{marks\ 1163}#
+ #{labels\ 1164}#)
(vector
'ribcage
- #{symnames\ 3290}#
- #{marks\ 3291}#
- #{labels\ 3292}#)))
- (#{ribcage-symnames\ 2521}#
- (lambda (#{x\ 3301}#) (vector-ref #{x\ 3301}# 1)))
- (#{ribcage-marks\ 2523}#
- (lambda (#{x\ 3303}#) (vector-ref #{x\ 3303}# 2)))
- (#{ribcage-labels\ 2525}#
- (lambda (#{x\ 3305}#) (vector-ref #{x\ 3305}# 3)))
- (#{set-ribcage-symnames!\ 2527}#
- (lambda (#{x\ 3307}# #{update\ 3308}#)
- (vector-set! #{x\ 3307}# 1 #{update\ 3308}#)))
- (#{set-ribcage-marks!\ 2529}#
- (lambda (#{x\ 3311}# #{update\ 3312}#)
- (vector-set! #{x\ 3311}# 2 #{update\ 3312}#)))
- (#{set-ribcage-labels!\ 2531}#
- (lambda (#{x\ 3315}# #{update\ 3316}#)
- (vector-set! #{x\ 3315}# 3 #{update\ 3316}#)))
- (#{anti-mark\ 2537}#
- (lambda (#{w\ 3319}#)
- (#{make-wrap\ 2501}#
- (cons #f (#{wrap-marks\ 2503}# #{w\ 3319}#))
+ #{symnames\ 1162}#
+ #{marks\ 1163}#
+ #{labels\ 1164}#)))
+ (#{ribcage-symnames\ 405}#
+ (lambda (#{x\ 1173}#) (vector-ref #{x\ 1173}# 1)))
+ (#{ribcage-marks\ 407}#
+ (lambda (#{x\ 1175}#) (vector-ref #{x\ 1175}# 2)))
+ (#{ribcage-labels\ 409}#
+ (lambda (#{x\ 1177}#) (vector-ref #{x\ 1177}# 3)))
+ (#{set-ribcage-symnames!\ 411}#
+ (lambda (#{x\ 1179}# #{update\ 1180}#)
+ (vector-set! #{x\ 1179}# 1 #{update\ 1180}#)))
+ (#{set-ribcage-marks!\ 413}#
+ (lambda (#{x\ 1183}# #{update\ 1184}#)
+ (vector-set! #{x\ 1183}# 2 #{update\ 1184}#)))
+ (#{set-ribcage-labels!\ 415}#
+ (lambda (#{x\ 1187}# #{update\ 1188}#)
+ (vector-set! #{x\ 1187}# 3 #{update\ 1188}#)))
+ (#{anti-mark\ 421}#
+ (lambda (#{w\ 1191}#)
+ (#{make-wrap\ 385}#
+ (cons #f (#{wrap-marks\ 387}# #{w\ 1191}#))
(cons 'shift
- (#{wrap-subst\ 2505}# #{w\ 3319}#)))))
- (#{extend-ribcage!\ 2541}#
- (lambda (#{ribcage\ 3322}# #{id\ 3323}# #{label\ 3324}#)
+ (#{wrap-subst\ 389}# #{w\ 1191}#)))))
+ (#{extend-ribcage!\ 425}#
+ (lambda (#{ribcage\ 1194}# #{id\ 1195}# #{label\ 1196}#)
(begin
- (#{set-ribcage-symnames!\ 2527}#
- #{ribcage\ 3322}#
- (cons (#{syntax-object-expression\ 2462}# #{id\ 3323}#)
- (#{ribcage-symnames\ 2521}# #{ribcage\ 3322}#)))
- (#{set-ribcage-marks!\ 2529}#
- #{ribcage\ 3322}#
- (cons (#{wrap-marks\ 2503}#
- (#{syntax-object-wrap\ 2464}# #{id\ 3323}#))
- (#{ribcage-marks\ 2523}# #{ribcage\ 3322}#)))
- (#{set-ribcage-labels!\ 2531}#
- #{ribcage\ 3322}#
- (cons #{label\ 3324}#
- (#{ribcage-labels\ 2525}# #{ribcage\ 3322}#))))))
- (#{make-binding-wrap\ 2543}#
- (lambda (#{ids\ 3328}# #{labels\ 3329}# #{w\ 3330}#)
- (if (null? #{ids\ 3328}#)
- #{w\ 3330}#
- (#{make-wrap\ 2501}#
- (#{wrap-marks\ 2503}# #{w\ 3330}#)
+ (#{set-ribcage-symnames!\ 411}#
+ #{ribcage\ 1194}#
+ (cons (#{syntax-object-expression\ 346}# #{id\ 1195}#)
+ (#{ribcage-symnames\ 405}# #{ribcage\ 1194}#)))
+ (#{set-ribcage-marks!\ 413}#
+ #{ribcage\ 1194}#
+ (cons (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{id\ 1195}#))
+ (#{ribcage-marks\ 407}# #{ribcage\ 1194}#)))
+ (#{set-ribcage-labels!\ 415}#
+ #{ribcage\ 1194}#
+ (cons #{label\ 1196}#
+ (#{ribcage-labels\ 409}# #{ribcage\ 1194}#))))))
+ (#{make-binding-wrap\ 427}#
+ (lambda (#{ids\ 1200}# #{labels\ 1201}# #{w\ 1202}#)
+ (if (null? #{ids\ 1200}#)
+ #{w\ 1202}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w\ 1202}#)
(cons (begin
- (let ((#{labelvec\ 3335}#
- (list->vector #{labels\ 3329}#)))
+ (let ((#{labelvec\ 1207}#
+ (list->vector #{labels\ 1201}#)))
(begin
- (let ((#{n\ 3337}#
- (vector-length #{labelvec\ 3335}#)))
+ (let ((#{n\ 1209}#
+ (vector-length #{labelvec\ 1207}#)))
(begin
- (let ((#{symnamevec\ 3340}#
- (make-vector #{n\ 3337}#))
- (#{marksvec\ 3341}#
- (make-vector #{n\ 3337}#)))
+ (let ((#{symnamevec\ 1212}#
+ (make-vector #{n\ 1209}#))
+ (#{marksvec\ 1213}#
+ (make-vector #{n\ 1209}#)))
(begin
(letrec*
- ((#{f\ 3345}#
- (lambda (#{ids\ 3346}# #{i\ 3347}#)
- (if (not (null? #{ids\ 3346}#))
+ ((#{f\ 1217}#
+ (lambda (#{ids\ 1218}# #{i\ 1219}#)
+ (if (not (null? #{ids\ 1218}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 2499}#
- (car #{ids\ 3346}#)
- #{w\ 3330}#))
- (lambda (#{symname\ 3348}#
- #{marks\ 3349}#)
+ (#{id-sym-name&marks\ 383}#
+ (car #{ids\ 1218}#)
+ #{w\ 1202}#))
+ (lambda (#{symname\ 1220}#
+ #{marks\ 1221}#)
(begin
(vector-set!
- #{symnamevec\ 3340}#
- #{i\ 3347}#
- #{symname\ 3348}#)
+ #{symnamevec\ 1212}#
+ #{i\ 1219}#
+ #{symname\ 1220}#)
(vector-set!
- #{marksvec\ 3341}#
- #{i\ 3347}#
- #{marks\ 3349}#)
- (#{f\ 3345}#
- (cdr #{ids\ 3346}#)
- (#{fx+\ 2397}#
- #{i\ 3347}#
+ #{marksvec\ 1213}#
+ #{i\ 1219}#
+ #{marks\ 1221}#)
+ (#{f\ 1217}#
+ (cdr #{ids\ 1218}#)
+ (#{fx+\ 281}#
+ #{i\ 1219}#
1)))))))))
- (begin (#{f\ 3345}# #{ids\ 3328}# 0)))
- (#{make-ribcage\ 2517}#
- #{symnamevec\ 3340}#
- #{marksvec\ 3341}#
- #{labelvec\ 3335}#))))))))
- (#{wrap-subst\ 2505}# #{w\ 3330}#))))))
- (#{smart-append\ 2545}#
- (lambda (#{m1\ 3352}# #{m2\ 3353}#)
- (if (null? #{m2\ 3353}#)
- #{m1\ 3352}#
- (append #{m1\ 3352}# #{m2\ 3353}#))))
- (#{join-wraps\ 2547}#
- (lambda (#{w1\ 3356}# #{w2\ 3357}#)
+ (begin (#{f\ 1217}# #{ids\ 1200}# 0)))
+ (#{make-ribcage\ 401}#
+ #{symnamevec\ 1212}#
+ #{marksvec\ 1213}#
+ #{labelvec\ 1207}#))))))))
+ (#{wrap-subst\ 389}# #{w\ 1202}#))))))
+ (#{smart-append\ 429}#
+ (lambda (#{m1\ 1224}# #{m2\ 1225}#)
+ (if (null? #{m2\ 1225}#)
+ #{m1\ 1224}#
+ (append #{m1\ 1224}# #{m2\ 1225}#))))
+ (#{join-wraps\ 431}#
+ (lambda (#{w1\ 1228}# #{w2\ 1229}#)
(begin
- (let ((#{m1\ 3362}#
- (#{wrap-marks\ 2503}# #{w1\ 3356}#))
- (#{s1\ 3363}#
- (#{wrap-subst\ 2505}# #{w1\ 3356}#)))
- (if (null? #{m1\ 3362}#)
- (if (null? #{s1\ 3363}#)
- #{w2\ 3357}#
- (#{make-wrap\ 2501}#
- (#{wrap-marks\ 2503}# #{w2\ 3357}#)
- (#{smart-append\ 2545}#
- #{s1\ 3363}#
- (#{wrap-subst\ 2505}# #{w2\ 3357}#))))
- (#{make-wrap\ 2501}#
- (#{smart-append\ 2545}#
- #{m1\ 3362}#
- (#{wrap-marks\ 2503}# #{w2\ 3357}#))
- (#{smart-append\ 2545}#
- #{s1\ 3363}#
- (#{wrap-subst\ 2505}# #{w2\ 3357}#))))))))
- (#{join-marks\ 2549}#
- (lambda (#{m1\ 3364}# #{m2\ 3365}#)
- (#{smart-append\ 2545}#
- #{m1\ 3364}#
- #{m2\ 3365}#)))
- (#{same-marks?\ 2551}#
- (lambda (#{x\ 3368}# #{y\ 3369}#)
+ (let ((#{m1\ 1234}# (#{wrap-marks\ 387}# #{w1\ 1228}#))
+ (#{s1\ 1235}# (#{wrap-subst\ 389}# #{w1\ 1228}#)))
+ (if (null? #{m1\ 1234}#)
+ (if (null? #{s1\ 1235}#)
+ #{w2\ 1229}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w2\ 1229}#)
+ (#{smart-append\ 429}#
+ #{s1\ 1235}#
+ (#{wrap-subst\ 389}# #{w2\ 1229}#))))
+ (#{make-wrap\ 385}#
+ (#{smart-append\ 429}#
+ #{m1\ 1234}#
+ (#{wrap-marks\ 387}# #{w2\ 1229}#))
+ (#{smart-append\ 429}#
+ #{s1\ 1235}#
+ (#{wrap-subst\ 389}# #{w2\ 1229}#))))))))
+ (#{join-marks\ 433}#
+ (lambda (#{m1\ 1236}# #{m2\ 1237}#)
+ (#{smart-append\ 429}# #{m1\ 1236}# #{m2\ 1237}#)))
+ (#{same-marks?\ 435}#
+ (lambda (#{x\ 1240}# #{y\ 1241}#)
(begin
- (let ((#{t\ 3374}# (eq? #{x\ 3368}# #{y\ 3369}#)))
- (if #{t\ 3374}#
- #{t\ 3374}#
- (if (not (null? #{x\ 3368}#))
- (if (not (null? #{y\ 3369}#))
- (if (eq? (car #{x\ 3368}#) (car #{y\ 3369}#))
- (#{same-marks?\ 2551}#
- (cdr #{x\ 3368}#)
- (cdr #{y\ 3369}#))
+ (let ((#{t\ 1246}# (eq? #{x\ 1240}# #{y\ 1241}#)))
+ (if #{t\ 1246}#
+ #{t\ 1246}#
+ (if (not (null? #{x\ 1240}#))
+ (if (not (null? #{y\ 1241}#))
+ (if (eq? (car #{x\ 1240}#) (car #{y\ 1241}#))
+ (#{same-marks?\ 435}#
+ (cdr #{x\ 1240}#)
+ (cdr #{y\ 1241}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 2553}#
- (lambda (#{id\ 3380}# #{w\ 3381}#)
+ (#{id-var-name\ 437}#
+ (lambda (#{id\ 1252}# #{w\ 1253}#)
(letrec*
- ((#{search\ 3386}#
- (lambda (#{sym\ 3402}# #{subst\ 3403}# #{marks\ 3404}#)
- (if (null? #{subst\ 3403}#)
- (values #f #{marks\ 3404}#)
+ ((#{search\ 1258}#
+ (lambda (#{sym\ 1274}# #{subst\ 1275}# #{marks\ 1276}#)
+ (if (null? #{subst\ 1275}#)
+ (values #f #{marks\ 1276}#)
(begin
- (let ((#{fst\ 3409}# (car #{subst\ 3403}#)))
- (if (eq? #{fst\ 3409}# (quote shift))
- (#{search\ 3386}#
- #{sym\ 3402}#
- (cdr #{subst\ 3403}#)
- (cdr #{marks\ 3404}#))
+ (let ((#{fst\ 1281}# (car #{subst\ 1275}#)))
+ (if (eq? #{fst\ 1281}# (quote shift))
+ (#{search\ 1258}#
+ #{sym\ 1274}#
+ (cdr #{subst\ 1275}#)
+ (cdr #{marks\ 1276}#))
(begin
- (let ((#{symnames\ 3411}#
- (#{ribcage-symnames\ 2521}#
- #{fst\ 3409}#)))
- (if (vector? #{symnames\ 3411}#)
- (#{search-vector-rib\ 3390}#
- #{sym\ 3402}#
- #{subst\ 3403}#
- #{marks\ 3404}#
- #{symnames\ 3411}#
- #{fst\ 3409}#)
- (#{search-list-rib\ 3388}#
- #{sym\ 3402}#
- #{subst\ 3403}#
- #{marks\ 3404}#
- #{symnames\ 3411}#
- #{fst\ 3409}#))))))))))
- (#{search-list-rib\ 3388}#
- (lambda (#{sym\ 3412}#
- #{subst\ 3413}#
- #{marks\ 3414}#
- #{symnames\ 3415}#
- #{ribcage\ 3416}#)
+ (let ((#{symnames\ 1283}#
+ (#{ribcage-symnames\ 405}#
+ #{fst\ 1281}#)))
+ (if (vector? #{symnames\ 1283}#)
+ (#{search-vector-rib\ 1262}#
+ #{sym\ 1274}#
+ #{subst\ 1275}#
+ #{marks\ 1276}#
+ #{symnames\ 1283}#
+ #{fst\ 1281}#)
+ (#{search-list-rib\ 1260}#
+ #{sym\ 1274}#
+ #{subst\ 1275}#
+ #{marks\ 1276}#
+ #{symnames\ 1283}#
+ #{fst\ 1281}#))))))))))
+ (#{search-list-rib\ 1260}#
+ (lambda (#{sym\ 1284}#
+ #{subst\ 1285}#
+ #{marks\ 1286}#
+ #{symnames\ 1287}#
+ #{ribcage\ 1288}#)
(letrec*
- ((#{f\ 3425}#
- (lambda (#{symnames\ 3426}# #{i\ 3427}#)
- (if (null? #{symnames\ 3426}#)
- (#{search\ 3386}#
- #{sym\ 3412}#
- (cdr #{subst\ 3413}#)
- #{marks\ 3414}#)
- (if (if (eq? (car #{symnames\ 3426}#)
- #{sym\ 3412}#)
- (#{same-marks?\ 2551}#
- #{marks\ 3414}#
+ ((#{f\ 1297}#
+ (lambda (#{symnames\ 1298}# #{i\ 1299}#)
+ (if (null? #{symnames\ 1298}#)
+ (#{search\ 1258}#
+ #{sym\ 1284}#
+ (cdr #{subst\ 1285}#)
+ #{marks\ 1286}#)
+ (if (if (eq? (car #{symnames\ 1298}#)
+ #{sym\ 1284}#)
+ (#{same-marks?\ 435}#
+ #{marks\ 1286}#
(list-ref
- (#{ribcage-marks\ 2523}#
- #{ribcage\ 3416}#)
- #{i\ 3427}#))
+ (#{ribcage-marks\ 407}#
+ #{ribcage\ 1288}#)
+ #{i\ 1299}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 2525}# #{ribcage\ 3416}#)
- #{i\ 3427}#)
- #{marks\ 3414}#)
- (#{f\ 3425}#
- (cdr #{symnames\ 3426}#)
- (#{fx+\ 2397}# #{i\ 3427}# 1)))))))
- (begin (#{f\ 3425}# #{symnames\ 3415}# 0)))))
- (#{search-vector-rib\ 3390}#
- (lambda (#{sym\ 3435}#
- #{subst\ 3436}#
- #{marks\ 3437}#
- #{symnames\ 3438}#
- #{ribcage\ 3439}#)
+ (#{ribcage-labels\ 409}# #{ribcage\ 1288}#)
+ #{i\ 1299}#)
+ #{marks\ 1286}#)
+ (#{f\ 1297}#
+ (cdr #{symnames\ 1298}#)
+ (#{fx+\ 281}# #{i\ 1299}# 1)))))))
+ (begin (#{f\ 1297}# #{symnames\ 1287}# 0)))))
+ (#{search-vector-rib\ 1262}#
+ (lambda (#{sym\ 1307}#
+ #{subst\ 1308}#
+ #{marks\ 1309}#
+ #{symnames\ 1310}#
+ #{ribcage\ 1311}#)
(begin
- (let ((#{n\ 3446}# (vector-length #{symnames\ 3438}#)))
+ (let ((#{n\ 1318}# (vector-length #{symnames\ 1310}#)))
(letrec*
- ((#{f\ 3449}#
- (lambda (#{i\ 3450}#)
- (if (#{fx=\ 2401}# #{i\ 3450}# #{n\ 3446}#)
- (#{search\ 3386}#
- #{sym\ 3435}#
- (cdr #{subst\ 3436}#)
- #{marks\ 3437}#)
+ ((#{f\ 1321}#
+ (lambda (#{i\ 1322}#)
+ (if (#{fx=\ 285}# #{i\ 1322}# #{n\ 1318}#)
+ (#{search\ 1258}#
+ #{sym\ 1307}#
+ (cdr #{subst\ 1308}#)
+ #{marks\ 1309}#)
(if (if (eq? (vector-ref
- #{symnames\ 3438}#
- #{i\ 3450}#)
- #{sym\ 3435}#)
- (#{same-marks?\ 2551}#
- #{marks\ 3437}#
+ #{symnames\ 1310}#
+ #{i\ 1322}#)
+ #{sym\ 1307}#)
+ (#{same-marks?\ 435}#
+ #{marks\ 1309}#
(vector-ref
- (#{ribcage-marks\ 2523}#
- #{ribcage\ 3439}#)
- #{i\ 3450}#))
+ (#{ribcage-marks\ 407}#
+ #{ribcage\ 1311}#)
+ #{i\ 1322}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 2525}#
- #{ribcage\ 3439}#)
- #{i\ 3450}#)
- #{marks\ 3437}#)
- (#{f\ 3449}#
- (#{fx+\ 2397}# #{i\ 3450}# 1)))))))
- (begin (#{f\ 3449}# 0))))))))
+ (#{ribcage-labels\ 409}#
+ #{ribcage\ 1311}#)
+ #{i\ 1322}#)
+ #{marks\ 1309}#)
+ (#{f\ 1321}#
+ (#{fx+\ 281}# #{i\ 1322}# 1)))))))
+ (begin (#{f\ 1321}# 0))))))))
(begin
- (if (symbol? #{id\ 3380}#)
+ (if (symbol? #{id\ 1252}#)
(begin
- (let ((#{t\ 3460}#
+ (let ((#{t\ 1332}#
(call-with-values
(lambda ()
- (#{search\ 3386}#
- #{id\ 3380}#
- (#{wrap-subst\ 2505}# #{w\ 3381}#)
- (#{wrap-marks\ 2503}# #{w\ 3381}#)))
- (lambda (#{x\ 3462}# . #{ignore\ 3463}#)
- #{x\ 3462}#))))
- (if #{t\ 3460}# #{t\ 3460}# #{id\ 3380}#)))
- (if (#{syntax-object?\ 2460}# #{id\ 3380}#)
+ (#{search\ 1258}#
+ #{id\ 1252}#
+ (#{wrap-subst\ 389}# #{w\ 1253}#)
+ (#{wrap-marks\ 387}# #{w\ 1253}#)))
+ (lambda (#{x\ 1334}# . #{ignore\ 1335}#)
+ #{x\ 1334}#))))
+ (if #{t\ 1332}# #{t\ 1332}# #{id\ 1252}#)))
+ (if (#{syntax-object?\ 344}# #{id\ 1252}#)
(begin
- (let ((#{id\ 3471}#
- (#{syntax-object-expression\ 2462}#
- #{id\ 3380}#))
- (#{w1\ 3472}#
- (#{syntax-object-wrap\ 2464}# #{id\ 3380}#)))
+ (let ((#{id\ 1343}#
+ (#{syntax-object-expression\ 346}#
+ #{id\ 1252}#))
+ (#{w1\ 1344}#
+ (#{syntax-object-wrap\ 348}# #{id\ 1252}#)))
(begin
- (let ((#{marks\ 3474}#
- (#{join-marks\ 2549}#
- (#{wrap-marks\ 2503}# #{w\ 3381}#)
- (#{wrap-marks\ 2503}# #{w1\ 3472}#))))
+ (let ((#{marks\ 1346}#
+ (#{join-marks\ 433}#
+ (#{wrap-marks\ 387}# #{w\ 1253}#)
+ (#{wrap-marks\ 387}# #{w1\ 1344}#))))
(call-with-values
(lambda ()
- (#{search\ 3386}#
- #{id\ 3471}#
- (#{wrap-subst\ 2505}# #{w\ 3381}#)
- #{marks\ 3474}#))
- (lambda (#{new-id\ 3475}# #{marks\ 3476}#)
+ (#{search\ 1258}#
+ #{id\ 1343}#
+ (#{wrap-subst\ 389}# #{w\ 1253}#)
+ #{marks\ 1346}#))
+ (lambda (#{new-id\ 1347}# #{marks\ 1348}#)
(begin
- (let ((#{t\ 3481}# #{new-id\ 3475}#))
- (if #{t\ 3481}#
- #{t\ 3481}#
+ (let ((#{t\ 1353}# #{new-id\ 1347}#))
+ (if #{t\ 1353}#
+ #{t\ 1353}#
(begin
- (let ((#{t\ 3484}#
+ (let ((#{t\ 1356}#
(call-with-values
(lambda ()
- (#{search\ 3386}#
- #{id\ 3471}#
- (#{wrap-subst\ 2505}#
- #{w1\ 3472}#)
- #{marks\ 3476}#))
- (lambda (#{x\ 3486}#
+ (#{search\ 1258}#
+ #{id\ 1343}#
+ (#{wrap-subst\ 389}#
+ #{w1\ 1344}#)
+ #{marks\ 1348}#))
+ (lambda (#{x\ 1358}#
.
- #{ignore\ 3487}#)
- #{x\ 3486}#))))
- (if #{t\ 3484}#
- #{t\ 3484}#
- #{id\ 3471}#))))))))))))
+ #{ignore\ 1359}#)
+ #{x\ 1358}#))))
+ (if #{t\ 1356}#
+ #{t\ 1356}#
+ #{id\ 1343}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 3380}#)))))))
- (#{free-id=?\ 2555}#
- (lambda (#{i\ 3492}# #{j\ 3493}#)
+ #{id\ 1252}#)))))))
+ (#{free-id=?\ 439}#
+ (lambda (#{i\ 1364}# #{j\ 1365}#)
(if (eq? (begin
- (let ((#{x\ 3499}# #{i\ 3492}#))
- (if (#{syntax-object?\ 2460}# #{x\ 3499}#)
- (#{syntax-object-expression\ 2462}# #{x\ 3499}#)
- #{x\ 3499}#)))
+ (let ((#{x\ 1371}# #{i\ 1364}#))
+ (if (#{syntax-object?\ 344}# #{x\ 1371}#)
+ (#{syntax-object-expression\ 346}# #{x\ 1371}#)
+ #{x\ 1371}#)))
(begin
- (let ((#{x\ 3502}# #{j\ 3493}#))
- (if (#{syntax-object?\ 2460}# #{x\ 3502}#)
- (#{syntax-object-expression\ 2462}# #{x\ 3502}#)
- #{x\ 3502}#))))
- (eq? (#{id-var-name\ 2553}# #{i\ 3492}# (quote (())))
- (#{id-var-name\ 2553}# #{j\ 3493}# (quote (()))))
+ (let ((#{x\ 1374}# #{j\ 1365}#))
+ (if (#{syntax-object?\ 344}# #{x\ 1374}#)
+ (#{syntax-object-expression\ 346}# #{x\ 1374}#)
+ #{x\ 1374}#))))
+ (eq? (#{id-var-name\ 437}# #{i\ 1364}# (quote (())))
+ (#{id-var-name\ 437}# #{j\ 1365}# (quote (()))))
#f)))
- (#{bound-id=?\ 2557}#
- (lambda (#{i\ 3506}# #{j\ 3507}#)
- (if (if (#{syntax-object?\ 2460}# #{i\ 3506}#)
- (#{syntax-object?\ 2460}# #{j\ 3507}#)
+ (#{bound-id=?\ 441}#
+ (lambda (#{i\ 1378}# #{j\ 1379}#)
+ (if (if (#{syntax-object?\ 344}# #{i\ 1378}#)
+ (#{syntax-object?\ 344}# #{j\ 1379}#)
#f)
- (if (eq? (#{syntax-object-expression\ 2462}# #{i\ 3506}#)
- (#{syntax-object-expression\ 2462}# #{j\ 3507}#))
- (#{same-marks?\ 2551}#
- (#{wrap-marks\ 2503}#
- (#{syntax-object-wrap\ 2464}# #{i\ 3506}#))
- (#{wrap-marks\ 2503}#
- (#{syntax-object-wrap\ 2464}# #{j\ 3507}#)))
+ (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1378}#)
+ (#{syntax-object-expression\ 346}# #{j\ 1379}#))
+ (#{same-marks?\ 435}#
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{i\ 1378}#))
+ (#{wrap-marks\ 387}#
+ (#{syntax-object-wrap\ 348}# #{j\ 1379}#)))
#f)
- (eq? #{i\ 3506}# #{j\ 3507}#))))
- (#{valid-bound-ids?\ 2559}#
- (lambda (#{ids\ 3514}#)
+ (eq? #{i\ 1378}# #{j\ 1379}#))))
+ (#{valid-bound-ids?\ 443}#
+ (lambda (#{ids\ 1386}#)
(if (letrec*
- ((#{all-ids?\ 3519}#
- (lambda (#{ids\ 3520}#)
+ ((#{all-ids?\ 1391}#
+ (lambda (#{ids\ 1392}#)
(begin
- (let ((#{t\ 3523}# (null? #{ids\ 3520}#)))
- (if #{t\ 3523}#
- #{t\ 3523}#
- (if (#{id?\ 2496}# (car #{ids\ 3520}#))
- (#{all-ids?\ 3519}# (cdr #{ids\ 3520}#))
+ (let ((#{t\ 1395}# (null? #{ids\ 1392}#)))
+ (if #{t\ 1395}#
+ #{t\ 1395}#
+ (if (#{id?\ 380}# (car #{ids\ 1392}#))
+ (#{all-ids?\ 1391}# (cdr #{ids\ 1392}#))
#f)))))))
- (begin (#{all-ids?\ 3519}# #{ids\ 3514}#)))
- (#{distinct-bound-ids?\ 2561}# #{ids\ 3514}#)
+ (begin (#{all-ids?\ 1391}# #{ids\ 1386}#)))
+ (#{distinct-bound-ids?\ 445}# #{ids\ 1386}#)
#f)))
- (#{distinct-bound-ids?\ 2561}#
- (lambda (#{ids\ 3528}#)
+ (#{distinct-bound-ids?\ 445}#
+ (lambda (#{ids\ 1400}#)
(letrec*
- ((#{distinct?\ 3532}#
- (lambda (#{ids\ 3533}#)
+ ((#{distinct?\ 1404}#
+ (lambda (#{ids\ 1405}#)
(begin
- (let ((#{t\ 3536}# (null? #{ids\ 3533}#)))
- (if #{t\ 3536}#
- #{t\ 3536}#
- (if (not (#{bound-id-member?\ 2563}#
- (car #{ids\ 3533}#)
- (cdr #{ids\ 3533}#)))
- (#{distinct?\ 3532}# (cdr #{ids\ 3533}#))
+ (let ((#{t\ 1408}# (null? #{ids\ 1405}#)))
+ (if #{t\ 1408}#
+ #{t\ 1408}#
+ (if (not (#{bound-id-member?\ 447}#
+ (car #{ids\ 1405}#)
+ (cdr #{ids\ 1405}#)))
+ (#{distinct?\ 1404}# (cdr #{ids\ 1405}#))
#f)))))))
- (begin (#{distinct?\ 3532}# #{ids\ 3528}#)))))
- (#{bound-id-member?\ 2563}#
- (lambda (#{x\ 3540}# #{list\ 3541}#)
- (if (not (null? #{list\ 3541}#))
+ (begin (#{distinct?\ 1404}# #{ids\ 1400}#)))))
+ (#{bound-id-member?\ 447}#
+ (lambda (#{x\ 1412}# #{list\ 1413}#)
+ (if (not (null? #{list\ 1413}#))
(begin
- (let ((#{t\ 3548}#
- (#{bound-id=?\ 2557}#
- #{x\ 3540}#
- (car #{list\ 3541}#))))
- (if #{t\ 3548}#
- #{t\ 3548}#
- (#{bound-id-member?\ 2563}#
- #{x\ 3540}#
- (cdr #{list\ 3541}#)))))
+ (let ((#{t\ 1420}#
+ (#{bound-id=?\ 441}#
+ #{x\ 1412}#
+ (car #{list\ 1413}#))))
+ (if #{t\ 1420}#
+ #{t\ 1420}#
+ (#{bound-id-member?\ 447}#
+ #{x\ 1412}#
+ (cdr #{list\ 1413}#)))))
#f)))
- (#{wrap\ 2565}#
- (lambda (#{x\ 3550}# #{w\ 3551}# #{defmod\ 3552}#)
- (if (if (null? (#{wrap-marks\ 2503}# #{w\ 3551}#))
- (null? (#{wrap-subst\ 2505}# #{w\ 3551}#))
+ (#{wrap\ 449}#
+ (lambda (#{x\ 1422}# #{w\ 1423}# #{defmod\ 1424}#)
+ (if (if (null? (#{wrap-marks\ 387}# #{w\ 1423}#))
+ (null? (#{wrap-subst\ 389}# #{w\ 1423}#))
#f)
- #{x\ 3550}#
- (if (#{syntax-object?\ 2460}# #{x\ 3550}#)
- (#{make-syntax-object\ 2458}#
- (#{syntax-object-expression\ 2462}# #{x\ 3550}#)
- (#{join-wraps\ 2547}#
- #{w\ 3551}#
- (#{syntax-object-wrap\ 2464}# #{x\ 3550}#))
- (#{syntax-object-module\ 2466}# #{x\ 3550}#))
- (if (null? #{x\ 3550}#)
- #{x\ 3550}#
- (#{make-syntax-object\ 2458}#
- #{x\ 3550}#
- #{w\ 3551}#
- #{defmod\ 3552}#))))))
- (#{source-wrap\ 2567}#
- (lambda (#{x\ 3565}#
- #{w\ 3566}#
- #{s\ 3567}#
- #{defmod\ 3568}#)
- (#{wrap\ 2565}#
- (#{decorate-source\ 2414}#
- #{x\ 3565}#
- #{s\ 3567}#)
- #{w\ 3566}#
- #{defmod\ 3568}#)))
- (#{chi-sequence\ 2569}#
- (lambda (#{body\ 3573}#
- #{r\ 3574}#
- #{w\ 3575}#
- #{s\ 3576}#
- #{mod\ 3577}#)
- (#{build-sequence\ 2448}#
- #{s\ 3576}#
+ #{x\ 1422}#
+ (if (#{syntax-object?\ 344}# #{x\ 1422}#)
+ (#{make-syntax-object\ 342}#
+ (#{syntax-object-expression\ 346}# #{x\ 1422}#)
+ (#{join-wraps\ 431}#
+ #{w\ 1423}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1422}#))
+ (#{syntax-object-module\ 350}# #{x\ 1422}#))
+ (if (null? #{x\ 1422}#)
+ #{x\ 1422}#
+ (#{make-syntax-object\ 342}#
+ #{x\ 1422}#
+ #{w\ 1423}#
+ #{defmod\ 1424}#))))))
+ (#{source-wrap\ 451}#
+ (lambda (#{x\ 1437}#
+ #{w\ 1438}#
+ #{s\ 1439}#
+ #{defmod\ 1440}#)
+ (#{wrap\ 449}#
+ (#{decorate-source\ 298}#
+ #{x\ 1437}#
+ #{s\ 1439}#)
+ #{w\ 1438}#
+ #{defmod\ 1440}#)))
+ (#{chi-sequence\ 453}#
+ (lambda (#{body\ 1445}#
+ #{r\ 1446}#
+ #{w\ 1447}#
+ #{s\ 1448}#
+ #{mod\ 1449}#)
+ (#{build-sequence\ 332}#
+ #{s\ 1448}#
(letrec*
- ((#{dobody\ 3588}#
- (lambda (#{body\ 3589}#
- #{r\ 3590}#
- #{w\ 3591}#
- #{mod\ 3592}#)
- (if (null? #{body\ 3589}#)
+ ((#{dobody\ 1460}#
+ (lambda (#{body\ 1461}#
+ #{r\ 1462}#
+ #{w\ 1463}#
+ #{mod\ 1464}#)
+ (if (null? #{body\ 1461}#)
'()
(begin
- (let ((#{first\ 3594}#
- (#{chi\ 2581}#
- (car #{body\ 3589}#)
- #{r\ 3590}#
- #{w\ 3591}#
- #{mod\ 3592}#)))
- (cons #{first\ 3594}#
- (#{dobody\ 3588}#
- (cdr #{body\ 3589}#)
- #{r\ 3590}#
- #{w\ 3591}#
- #{mod\ 3592}#))))))))
+ (let ((#{first\ 1466}#
+ (#{chi\ 465}#
+ (car #{body\ 1461}#)
+ #{r\ 1462}#
+ #{w\ 1463}#
+ #{mod\ 1464}#)))
+ (cons #{first\ 1466}#
+ (#{dobody\ 1460}#
+ (cdr #{body\ 1461}#)
+ #{r\ 1462}#
+ #{w\ 1463}#
+ #{mod\ 1464}#))))))))
(begin
- (#{dobody\ 3588}#
- #{body\ 3573}#
- #{r\ 3574}#
- #{w\ 3575}#
- #{mod\ 3577}#))))))
- (#{chi-top-sequence\ 2571}#
- (lambda (#{body\ 3595}#
- #{r\ 3596}#
- #{w\ 3597}#
- #{s\ 3598}#
- #{m\ 3599}#
- #{esew\ 3600}#
- #{mod\ 3601}#)
- (#{build-sequence\ 2448}#
- #{s\ 3598}#
+ (#{dobody\ 1460}#
+ #{body\ 1445}#
+ #{r\ 1446}#
+ #{w\ 1447}#
+ #{mod\ 1449}#))))))
+ (#{chi-top-sequence\ 455}#
+ (lambda (#{body\ 1467}#
+ #{r\ 1468}#
+ #{w\ 1469}#
+ #{s\ 1470}#
+ #{m\ 1471}#
+ #{esew\ 1472}#
+ #{mod\ 1473}#)
+ (#{build-sequence\ 332}#
+ #{s\ 1470}#
(letrec*
- ((#{dobody\ 3617}#
- (lambda (#{body\ 3618}#
- #{r\ 3619}#
- #{w\ 3620}#
- #{m\ 3621}#
- #{esew\ 3622}#
- #{mod\ 3623}#
- #{out\ 3624}#)
- (if (null? #{body\ 3618}#)
- (reverse #{out\ 3624}#)
- (#{dobody\ 3617}#
- (cdr #{body\ 3618}#)
- #{r\ 3619}#
- #{w\ 3620}#
- #{m\ 3621}#
- #{esew\ 3622}#
- #{mod\ 3623}#
- (cons (#{chi-top\ 2579}#
- (car #{body\ 3618}#)
- #{r\ 3619}#
- #{w\ 3620}#
- #{m\ 3621}#
- #{esew\ 3622}#
- #{mod\ 3623}#)
- #{out\ 3624}#))))))
+ ((#{dobody\ 1489}#
+ (lambda (#{body\ 1490}#
+ #{r\ 1491}#
+ #{w\ 1492}#
+ #{m\ 1493}#
+ #{esew\ 1494}#
+ #{mod\ 1495}#
+ #{out\ 1496}#)
+ (if (null? #{body\ 1490}#)
+ (reverse #{out\ 1496}#)
+ (#{dobody\ 1489}#
+ (cdr #{body\ 1490}#)
+ #{r\ 1491}#
+ #{w\ 1492}#
+ #{m\ 1493}#
+ #{esew\ 1494}#
+ #{mod\ 1495}#
+ (cons (#{chi-top\ 463}#
+ (car #{body\ 1490}#)
+ #{r\ 1491}#
+ #{w\ 1492}#
+ #{m\ 1493}#
+ #{esew\ 1494}#
+ #{mod\ 1495}#)
+ #{out\ 1496}#))))))
(begin
- (#{dobody\ 3617}#
- #{body\ 3595}#
- #{r\ 3596}#
- #{w\ 3597}#
- #{m\ 3599}#
- #{esew\ 3600}#
- #{mod\ 3601}#
+ (#{dobody\ 1489}#
+ #{body\ 1467}#
+ #{r\ 1468}#
+ #{w\ 1469}#
+ #{m\ 1471}#
+ #{esew\ 1472}#
+ #{mod\ 1473}#
'()))))))
- (#{chi-install-global\ 2573}#
- (lambda (#{name\ 3625}# #{e\ 3626}#)
- (#{build-global-definition\ 2436}#
+ (#{chi-install-global\ 457}#
+ (lambda (#{name\ 1497}# #{e\ 1498}#)
+ (#{build-global-definition\ 320}#
#f
- #{name\ 3625}#
- (#{build-application\ 2420}#
+ #{name\ 1497}#
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 328}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 2446}# #f #{name\ 3625}#)
- (#{build-data\ 2446}# #f (quote macro))
- #{e\ 3626}#)))))
- (#{chi-when-list\ 2575}#
- (lambda (#{e\ 3634}# #{when-list\ 3635}# #{w\ 3636}#)
+ (list (#{build-data\ 330}# #f #{name\ 1497}#)
+ (#{build-data\ 330}# #f (quote macro))
+ #{e\ 1498}#)))))
+ (#{chi-when-list\ 459}#
+ (lambda (#{e\ 1506}# #{when-list\ 1507}# #{w\ 1508}#)
(letrec*
- ((#{f\ 3643}#
- (lambda (#{when-list\ 3644}# #{situations\ 3645}#)
- (if (null? #{when-list\ 3644}#)
- #{situations\ 3645}#
- (#{f\ 3643}#
- (cdr #{when-list\ 3644}#)
+ ((#{f\ 1515}#
+ (lambda (#{when-list\ 1516}# #{situations\ 1517}#)
+ (if (null? #{when-list\ 1516}#)
+ #{situations\ 1517}#
+ (#{f\ 1515}#
+ (cdr #{when-list\ 1516}#)
(cons (begin
- (let ((#{x\ 3647}# (car #{when-list\ 3644}#)))
- (if (#{free-id=?\ 2555}#
- #{x\ 3647}#
+ (let ((#{x\ 1519}# (car #{when-list\ 1516}#)))
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3646"))
+ #(ribcage #(x) #((top)) #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -1504,157 +1495,154 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 2555}#
- #{x\ 3647}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
load
((top)
@@ -1664,17 +1652,17 @@
#(ribcage
#(x)
#((top))
- #("i3646"))
+ #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -1950,157 +1938,154 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 2555}#
- #{x\ 3647}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
eval
((top)
@@ -2110,17 +2095,17 @@
#(ribcage
#(x)
#((top))
- #("i3646"))
+ #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -2396,157 +2381,154 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 2555}#
- #{x\ 3647}#
+ (if (#{free-id=?\ 439}#
+ #{x\ 1519}#
'#(syntax-object
expand
((top)
@@ -2556,17 +2538,17 @@
#(ribcage
#(x)
#((top))
- #("i3646"))
+ #("i1518"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1512" "i1513" "i1514"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1509" "i1510" "i1511"))
#(ribcage
(lambda-var-list
gen-var
@@ -2842,424 +2824,414 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 3634}#
- (#{wrap\ 2565}#
- #{x\ 3647}#
- #{w\ 3636}#
+ #{e\ 1506}#
+ (#{wrap\ 449}#
+ #{x\ 1519}#
+ #{w\ 1508}#
#f))))))))
- #{situations\ 3645}#))))))
+ #{situations\ 1517}#))))))
(begin
- (#{f\ 3643}# #{when-list\ 3635}# (quote ()))))))
- (#{syntax-type\ 2577}#
- (lambda (#{e\ 3657}#
- #{r\ 3658}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#
- #{for-car?\ 3663}#)
- (if (symbol? #{e\ 3657}#)
+ (#{f\ 1515}# #{when-list\ 1507}# (quote ()))))))
+ (#{syntax-type\ 461}#
+ (lambda (#{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
+ #{for-car?\ 1535}#)
+ (if (symbol? #{e\ 1529}#)
(begin
- (let ((#{n\ 3675}#
- (#{id-var-name\ 2553}# #{e\ 3657}# #{w\ 3659}#)))
+ (let ((#{n\ 1547}#
+ (#{id-var-name\ 437}# #{e\ 1529}# #{w\ 1531}#)))
(begin
- (let ((#{b\ 3677}#
- (#{lookup\ 2490}#
- #{n\ 3675}#
- #{r\ 3658}#
- #{mod\ 3662}#)))
+ (let ((#{b\ 1549}#
+ (#{lookup\ 374}#
+ #{n\ 1547}#
+ #{r\ 1530}#
+ #{mod\ 1534}#)))
(begin
- (let ((#{type\ 3679}#
- (#{binding-type\ 2479}# #{b\ 3677}#)))
- (if (eqv? #{type\ 3679}# (quote lexical))
+ (let ((#{type\ 1551}#
+ (#{binding-type\ 363}# #{b\ 1549}#)))
+ (if (eqv? #{type\ 1551}# (quote lexical))
(values
- #{type\ 3679}#
- (#{binding-value\ 2481}# #{b\ 3677}#)
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{type\ 3679}# (quote global))
+ #{type\ 1551}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{type\ 1551}# (quote global))
(values
- #{type\ 3679}#
- #{n\ 3675}#
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{type\ 3679}# (quote macro))
- (if #{for-car?\ 3663}#
+ #{type\ 1551}#
+ #{n\ 1547}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{type\ 1551}# (quote macro))
+ (if #{for-car?\ 1535}#
(values
- #{type\ 3679}#
- (#{binding-value\ 2481}# #{b\ 3677}#)
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (#{syntax-type\ 2577}#
- (#{chi-macro\ 2587}#
- (#{binding-value\ 2481}# #{b\ 3677}#)
- #{e\ 3657}#
- #{r\ 3658}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#)
- #{r\ 3658}#
+ #{type\ 1551}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (#{syntax-type\ 461}#
+ (#{chi-macro\ 471}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#)
+ #{r\ 1530}#
'(())
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
#f))
(values
- #{type\ 3679}#
- (#{binding-value\ 2481}# #{b\ 3677}#)
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#))))))))))
- (if (pair? #{e\ 3657}#)
+ #{type\ 1551}#
+ (#{binding-value\ 365}# #{b\ 1549}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))))))))))
+ (if (pair? #{e\ 1529}#)
(begin
- (let ((#{first\ 3688}# (car #{e\ 3657}#)))
+ (let ((#{first\ 1560}# (car #{e\ 1529}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{first\ 3688}#
- #{r\ 3658}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#
+ (#{syntax-type\ 461}#
+ #{first\ 1560}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
#t))
- (lambda (#{ftype\ 3689}#
- #{fval\ 3690}#
- #{fe\ 3691}#
- #{fw\ 3692}#
- #{fs\ 3693}#
- #{fmod\ 3694}#)
- (if (eqv? #{ftype\ 3689}# (quote lexical))
+ (lambda (#{ftype\ 1561}#
+ #{fval\ 1562}#
+ #{fe\ 1563}#
+ #{fw\ 1564}#
+ #{fs\ 1565}#
+ #{fmod\ 1566}#)
+ (if (eqv? #{ftype\ 1561}# (quote lexical))
(values
'lexical-call
- #{fval\ 3690}#
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}# (quote global))
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}# (quote global))
(values
'global-call
- (#{make-syntax-object\ 2458}#
- #{fval\ 3690}#
- #{w\ 3659}#
- #{fmod\ 3694}#)
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}# (quote macro))
- (#{syntax-type\ 2577}#
- (#{chi-macro\ 2587}#
- #{fval\ 3690}#
- #{e\ 3657}#
- #{r\ 3658}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#)
- #{r\ 3658}#
+ (#{make-syntax-object\ 342}#
+ #{fval\ 1562}#
+ #{w\ 1531}#
+ #{fmod\ 1566}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}# (quote macro))
+ (#{syntax-type\ 461}#
+ (#{chi-macro\ 471}#
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#)
+ #{r\ 1530}#
'(())
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#
- #{for-car?\ 3663}#)
- (if (eqv? #{ftype\ 3689}# (quote module-ref))
+ #{s\ 1532}#
+ #{rib\ 1533}#
+ #{mod\ 1534}#
+ #{for-car?\ 1535}#)
+ (if (eqv? #{ftype\ 1561}# (quote module-ref))
(call-with-values
(lambda ()
- (#{fval\ 3690}#
- #{e\ 3657}#
- #{r\ 3658}#
- #{w\ 3659}#))
- (lambda (#{e\ 3706}#
- #{r\ 3707}#
- #{w\ 3708}#
- #{s\ 3709}#
- #{mod\ 3710}#)
- (#{syntax-type\ 2577}#
- #{e\ 3706}#
- #{r\ 3707}#
- #{w\ 3708}#
- #{s\ 3709}#
- #{rib\ 3661}#
- #{mod\ 3710}#
- #{for-car?\ 3663}#)))
- (if (eqv? #{ftype\ 3689}# (quote core))
+ (#{fval\ 1562}#
+ #{e\ 1529}#
+ #{r\ 1530}#
+ #{w\ 1531}#))
+ (lambda (#{e\ 1578}#
+ #{r\ 1579}#
+ #{w\ 1580}#
+ #{s\ 1581}#
+ #{mod\ 1582}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1578}#
+ #{r\ 1579}#
+ #{w\ 1580}#
+ #{s\ 1581}#
+ #{rib\ 1533}#
+ #{mod\ 1582}#
+ #{for-car?\ 1535}#)))
+ (if (eqv? #{ftype\ 1561}# (quote core))
(values
'core-form
- #{fval\ 3690}#
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}#
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}#
'local-syntax)
(values
'local-syntax-form
- #{fval\ 3690}#
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}# (quote begin))
+ #{fval\ 1562}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}# (quote begin))
(values
'begin-form
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}#
'eval-when)
(values
'eval-when-form
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}#
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
+ (if (eqv? #{ftype\ 1561}#
'define)
- (let ((#{tmp\ 3721}# #{e\ 3657}#))
- (let ((#{tmp\ 3722}#
+ (let ((#{tmp\ 1593}# #{e\ 1529}#))
+ (let ((#{tmp\ 1594}#
($sc-dispatch
- #{tmp\ 3721}#
- '(any any any))))
- (if (if #{tmp\ 3722}#
+ #{tmp\ 1593}#
+ '(_ any any))))
+ (if (if #{tmp\ 1594}#
(@apply
- (lambda (#{_\ 3726}#
- #{name\ 3727}#
- #{val\ 3728}#)
- (#{id?\ 2496}#
- #{name\ 3727}#))
- #{tmp\ 3722}#)
+ (lambda (#{name\ 1597}#
+ #{val\ 1598}#)
+ (#{id?\ 380}#
+ #{name\ 1597}#))
+ #{tmp\ 1594}#)
#f)
(@apply
- (lambda (#{_\ 3732}#
- #{name\ 3733}#
- #{val\ 3734}#)
+ (lambda (#{name\ 1601}#
+ #{val\ 1602}#)
(values
'define-form
- #{name\ 3733}#
- #{val\ 3734}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3722}#)
- (let ((#{tmp\ 3735}#
+ #{name\ 1601}#
+ #{val\ 1602}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1594}#)
+ (let ((#{tmp\ 1603}#
($sc-dispatch
- #{tmp\ 3721}#
- '(any (any . any)
- any
- .
- each-any))))
- (if (if #{tmp\ 3735}#
+ #{tmp\ 1593}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp\ 1603}#
(@apply
- (lambda (#{_\ 3741}#
- #{name\
3742}#
- #{args\
3743}#
- #{e1\
3744}#
- #{e2\
3745}#)
- (if (#{id?\ 2496}#
- #{name\
3742}#)
-
(#{valid-bound-ids?\ 2559}#
-
(#{lambda-var-list\ 2611}#
- #{args\
3743}#))
+ (lambda (#{name\
1608}#
+ #{args\
1609}#
+ #{e1\
1610}#
+ #{e2\
1611}#)
+ (if (#{id?\ 380}#
+ #{name\
1608}#)
+
(#{valid-bound-ids?\ 443}#
+
(#{lambda-var-list\ 495}#
+ #{args\
1609}#))
#f))
- #{tmp\ 3735}#)
+ #{tmp\ 1603}#)
#f)
(@apply
- (lambda (#{_\ 3753}#
- #{name\ 3754}#
- #{args\ 3755}#
- #{e1\ 3756}#
- #{e2\ 3757}#)
+ (lambda (#{name\ 1618}#
+ #{args\ 1619}#
+ #{e1\ 1620}#
+ #{e2\ 1621}#)
(values
'define-form
- (#{wrap\ 2565}#
- #{name\ 3754}#
- #{w\ 3659}#
- #{mod\ 3662}#)
- (#{decorate-source\
2414}#
+ (#{wrap\ 449}#
+ #{name\ 1618}#
+ #{w\ 1531}#
+ #{mod\ 1534}#)
+ (#{decorate-source\
298}#
(cons
'#(syntax-object
lambda
((top)
#(ribcage
- #(_
- name
+ #(name
args
e1
e2)
#((top)
(top)
(top)
-
(top)
(top))
-
#("i3748"
-
"i3749"
-
"i3750"
-
"i3751"
-
"i3752"))
+
#("i1614"
+
"i1615"
+
"i1616"
+
"i1617"))
#(ribcage
()
()
@@ -3281,12 +3253,12 @@
(top)
(top)
(top))
-
#("i3695"
-
"i3696"
-
"i3697"
-
"i3698"
-
"i3699"
-
"i3700"))
+
#("i1567"
+
"i1568"
+
"i1569"
+
"i1570"
+
"i1571"
+
"i1572"))
#(ribcage
()
()
@@ -3294,7 +3266,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1559"))
#(ribcage
()
()
@@ -3322,13 +3294,13 @@
(top)
(top)
(top))
-
#("i3664"
-
"i3665"
-
"i3666"
-
"i3667"
-
"i3668"
-
"i3669"
-
"i3670"))
+
#("i1536"
+
"i1537"
+
"i1538"
+
"i1539"
+
"i1540"
+
"i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -3604,143 +3576,143 @@
(top)
(top)
(top))
-
("i2610"
-
"i2608"
-
"i2606"
-
"i2604"
-
"i2602"
-
"i2600"
-
"i2598"
-
"i2596"
-
"i2594"
-
"i2592"
-
"i2590"
-
"i2588"
-
"i2586"
-
"i2584"
-
"i2582"
-
"i2580"
-
"i2578"
-
"i2576"
-
"i2574"
-
"i2572"
-
"i2570"
-
"i2568"
-
"i2566"
-
"i2564"
-
"i2562"
-
"i2560"
-
"i2558"
-
"i2556"
-
"i2554"
-
"i2552"
-
"i2550"
-
"i2548"
-
"i2546"
-
"i2544"
-
"i2542"
-
"i2540"
-
"i2539"
-
"i2538"
-
"i2536"
-
"i2535"
-
"i2534"
-
"i2533"
-
"i2532"
-
"i2530"
-
"i2528"
-
"i2526"
-
"i2524"
-
"i2522"
-
"i2520"
-
"i2518"
-
"i2516"
-
"i2513"
-
"i2511"
-
"i2510"
-
"i2509"
-
"i2508"
-
"i2507"
-
"i2506"
-
"i2504"
-
"i2502"
-
"i2500"
-
"i2498"
-
"i2497"
-
"i2495"
-
"i2493"
-
"i2491"
-
"i2489"
-
"i2487"
-
"i2485"
-
"i2483"
-
"i2482"
-
"i2480"
-
"i2478"
-
"i2477"
-
"i2476"
-
"i2474"
-
"i2473"
-
"i2471"
-
"i2469"
-
"i2467"
-
"i2465"
-
"i2463"
-
"i2461"
-
"i2459"
-
"i2457"
-
"i2455"
-
"i2453"
-
"i2451"
-
"i2449"
-
"i2447"
-
"i2445"
-
"i2443"
-
"i2441"
-
"i2439"
-
"i2437"
-
"i2435"
-
"i2433"
-
"i2431"
-
"i2429"
-
"i2427"
-
"i2425"
-
"i2423"
-
"i2421"
-
"i2419"
-
"i2417"
-
"i2415"
-
"i2413"
-
"i2411"
-
"i2409"
-
"i2408"
-
"i2406"
-
"i2404"
-
"i2402"
-
"i2400"
-
"i2398"
-
"i2396"
-
"i2394"
-
"i2392"
-
"i2390"
-
"i2387"
-
"i2385"
-
"i2383"
-
"i2381"
-
"i2379"
-
"i2377"
-
"i2375"
-
"i2373"
-
"i2371"
-
"i2369"
-
"i2367"
-
"i2365"
-
"i2363"
-
"i2361"
-
"i2359"
-
"i2357"
-
"i2355"
-
"i2353"))
+
("i494"
+
"i492"
+
"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"
+
"i423"
+
"i422"
+
"i420"
+
"i419"
+
"i418"
+
"i417"
+
"i416"
+
"i414"
+
"i412"
+
"i410"
+
"i408"
+
"i406"
+
"i404"
+
"i402"
+
"i400"
+
"i397"
+
"i395"
+
"i394"
+
"i393"
+
"i392"
+
"i391"
+
"i390"
+
"i388"
+
"i386"
+
"i384"
+
"i382"
+
"i381"
+
"i379"
+
"i377"
+
"i375"
+
"i373"
+
"i371"
+
"i369"
+
"i367"
+
"i366"
+
"i364"
+
"i362"
+
"i361"
+
"i360"
+
"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"
+
"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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3750,53 +3722,49 @@
(top)
(top)
(top))
-
("i2147"
-
"i2146"
-
"i2145"
-
"i2143")))
+ ("i39"
+ "i38"
+ "i37"
+
"i35")))
(hygiene
guile))
- (#{wrap\
2565}#
- (cons
#{args\ 3755}#
-
(cons #{e1\ 3756}#
-
#{e2\ 3757}#))
- #{w\
3659}#
- #{mod\
3662}#))
- #{s\ 3660}#)
+ (#{wrap\
449}#
+ (cons
#{args\ 1619}#
+
(cons #{e1\ 1620}#
+
#{e2\ 1621}#))
+ #{w\
1531}#
+ #{mod\
1534}#))
+ #{s\ 1532}#)
'(())
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3735}#)
- (let ((#{tmp\ 3760}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1603}#)
+ (let ((#{tmp\ 1624}#
($sc-dispatch
- #{tmp\ 3721}#
- '(any any))))
- (if (if #{tmp\ 3760}#
+ #{tmp\ 1593}#
+ '(_ any))))
+ (if (if #{tmp\ 1624}#
(@apply
- (lambda (#{_\
3763}#
-
#{name\ 3764}#)
- (#{id?\ 2496}#
- #{name\
3764}#))
- #{tmp\ 3760}#)
+ (lambda
(#{name\ 1626}#)
+ (#{id?\ 380}#
+ #{name\
1626}#))
+ #{tmp\ 1624}#)
#f)
(@apply
- (lambda (#{_\ 3767}#
- #{name\
3768}#)
+ (lambda (#{name\
1628}#)
(values
'define-form
- (#{wrap\ 2565}#
- #{name\ 3768}#
- #{w\ 3659}#
- #{mod\ 3662}#)
+ (#{wrap\ 449}#
+ #{name\ 1628}#
+ #{w\ 1531}#
+ #{mod\ 1534}#)
'(#(syntax-object
if
((top)
#(ribcage
- #(_ name)
- #((top)
- (top))
- #("i3765"
-
"i3766"))
+ #(name)
+ #((top))
+
#("i1627"))
#(ribcage
()
()
@@ -3818,12 +3786,12 @@
(top)
(top)
(top))
- #("i3695"
- "i3696"
- "i3697"
- "i3698"
- "i3699"
-
"i3700"))
+ #("i1567"
+ "i1568"
+ "i1569"
+ "i1570"
+ "i1571"
+
"i1572"))
#(ribcage
()
()
@@ -3831,7 +3799,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1559"))
#(ribcage
()
()
@@ -3859,13 +3827,13 @@
(top)
(top)
(top))
- #("i3664"
- "i3665"
- "i3666"
- "i3667"
- "i3668"
- "i3669"
-
"i3670"))
+ #("i1536"
+ "i1537"
+ "i1538"
+ "i1539"
+ "i1540"
+ "i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -4141,143 +4109,143 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
-
"i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4287,21 +4255,19 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
-
"i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile))
#(syntax-object
#f
((top)
#(ribcage
- #(_ name)
- #((top)
- (top))
- #("i3765"
-
"i3766"))
+ #(name)
+ #((top))
+
#("i1627"))
#(ribcage
()
()
@@ -4323,12 +4289,12 @@
(top)
(top)
(top))
- #("i3695"
- "i3696"
- "i3697"
- "i3698"
- "i3699"
-
"i3700"))
+ #("i1567"
+ "i1568"
+ "i1569"
+ "i1570"
+ "i1571"
+
"i1572"))
#(ribcage
()
()
@@ -4336,7 +4302,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1559"))
#(ribcage
()
()
@@ -4364,13 +4330,13 @@
(top)
(top)
(top))
- #("i3664"
- "i3665"
- "i3666"
- "i3667"
- "i3668"
- "i3669"
-
"i3670"))
+ #("i1536"
+ "i1537"
+ "i1538"
+ "i1539"
+ "i1540"
+ "i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -4646,143 +4612,143 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
-
"i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4792,21 +4758,19 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
-
"i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile))
#(syntax-object
#f
((top)
#(ribcage
- #(_ name)
- #((top)
- (top))
- #("i3765"
-
"i3766"))
+ #(name)
+ #((top))
+
#("i1627"))
#(ribcage
()
()
@@ -4828,12 +4792,12 @@
(top)
(top)
(top))
- #("i3695"
- "i3696"
- "i3697"
- "i3698"
- "i3699"
-
"i3700"))
+ #("i1567"
+ "i1568"
+ "i1569"
+ "i1570"
+ "i1571"
+
"i1572"))
#(ribcage
()
()
@@ -4841,7 +4805,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1559"))
#(ribcage
()
()
@@ -4869,13 +4833,13 @@
(top)
(top)
(top))
- #("i3664"
- "i3665"
- "i3666"
- "i3667"
- "i3668"
- "i3669"
-
"i3670"))
+ #("i1536"
+ "i1537"
+ "i1538"
+ "i1539"
+ "i1540"
+ "i1541"
+
"i1542"))
#(ribcage
(lambda-var-list
gen-var
@@ -5151,143 +5115,143 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
-
"i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -5297,1233 +5261,1219 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
-
"i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile)))
'(())
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3760}#)
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1624}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\
3721}#))))))))
- (if (eqv? #{ftype\ 3689}#
+ #{tmp\
1593}#))))))))
+ (if (eqv? #{ftype\ 1561}#
'define-syntax)
- (let ((#{tmp\ 3771}# #{e\ 3657}#))
- (let ((#{tmp\ 3772}#
+ (let ((#{tmp\ 1631}# #{e\ 1529}#))
+ (let ((#{tmp\ 1632}#
($sc-dispatch
- #{tmp\ 3771}#
- '(any any any))))
- (if (if #{tmp\ 3772}#
+ #{tmp\ 1631}#
+ '(_ any any))))
+ (if (if #{tmp\ 1632}#
(@apply
- (lambda (#{_\ 3776}#
- #{name\
3777}#
- #{val\
3778}#)
- (#{id?\ 2496}#
- #{name\ 3777}#))
- #{tmp\ 3772}#)
+ (lambda (#{name\
1635}#
+ #{val\
1636}#)
+ (#{id?\ 380}#
+ #{name\ 1635}#))
+ #{tmp\ 1632}#)
#f)
(@apply
- (lambda (#{_\ 3782}#
- #{name\ 3783}#
- #{val\ 3784}#)
+ (lambda (#{name\ 1639}#
+ #{val\ 1640}#)
(values
'define-syntax-form
- #{name\ 3783}#
- #{val\ 3784}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3772}#)
+ #{name\ 1639}#
+ #{val\ 1640}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#))
+ #{tmp\ 1632}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 3771}#))))
+ #{tmp\ 1631}#))))
(values
'call
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)))))))))))))))
- (if (#{syntax-object?\ 2460}# #{e\ 3657}#)
- (#{syntax-type\ 2577}#
- (#{syntax-object-expression\ 2462}# #{e\ 3657}#)
- #{r\ 3658}#
- (#{join-wraps\ 2547}#
- #{w\ 3659}#
- (#{syntax-object-wrap\ 2464}# #{e\ 3657}#))
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)))))))))))))))
+ (if (#{syntax-object?\ 344}# #{e\ 1529}#)
+ (#{syntax-type\ 461}#
+ (#{syntax-object-expression\ 346}# #{e\ 1529}#)
+ #{r\ 1530}#
+ (#{join-wraps\ 431}#
+ #{w\ 1531}#
+ (#{syntax-object-wrap\ 348}# #{e\ 1529}#))
(begin
- (let ((#{t\ 3790}#
- (#{source-annotation\ 2475}# #{e\ 3657}#)))
- (if #{t\ 3790}# #{t\ 3790}# #{s\ 3660}#)))
- #{rib\ 3661}#
+ (let ((#{t\ 1646}#
+ (#{source-annotation\ 359}# #{e\ 1529}#)))
+ (if #{t\ 1646}# #{t\ 1646}# #{s\ 1532}#)))
+ #{rib\ 1533}#
(begin
- (let ((#{t\ 3794}#
- (#{syntax-object-module\ 2466}# #{e\ 3657}#)))
- (if #{t\ 3794}# #{t\ 3794}# #{mod\ 3662}#)))
- #{for-car?\ 3663}#)
- (if (self-evaluating? #{e\ 3657}#)
+ (let ((#{t\ 1650}#
+ (#{syntax-object-module\ 350}# #{e\ 1529}#)))
+ (if #{t\ 1650}# #{t\ 1650}# #{mod\ 1534}#)))
+ #{for-car?\ 1535}#)
+ (if (self-evaluating? #{e\ 1529}#)
(values
'constant
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)
(values
'other
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)))))))
- (#{chi-top\ 2579}#
- (lambda (#{e\ 3799}#
- #{r\ 3800}#
- #{w\ 3801}#
- #{m\ 3802}#
- #{esew\ 3803}#
- #{mod\ 3804}#)
+ #{e\ 1529}#
+ #{w\ 1531}#
+ #{s\ 1532}#
+ #{mod\ 1534}#)))))))
+ (#{chi-top\ 463}#
+ (lambda (#{e\ 1655}#
+ #{r\ 1656}#
+ #{w\ 1657}#
+ #{m\ 1658}#
+ #{esew\ 1659}#
+ #{mod\ 1660}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{e\ 3799}#
- #{r\ 3800}#
- #{w\ 3801}#
- (#{source-annotation\ 2475}# #{e\ 3799}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1655}#
+ #{r\ 1656}#
+ #{w\ 1657}#
+ (#{source-annotation\ 359}# #{e\ 1655}#)
#f
- #{mod\ 3804}#
+ #{mod\ 1660}#
#f))
- (lambda (#{type\ 3825}#
- #{value\ 3826}#
- #{e\ 3827}#
- #{w\ 3828}#
- #{s\ 3829}#
- #{mod\ 3830}#)
- (if (eqv? #{type\ 3825}# (quote begin-form))
- (let ((#{tmp\ 3838}# #{e\ 3827}#))
- (let ((#{tmp\ 3839}#
- ($sc-dispatch #{tmp\ 3838}# (quote (any)))))
- (if #{tmp\ 3839}#
+ (lambda (#{type\ 1681}#
+ #{value\ 1682}#
+ #{e\ 1683}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{mod\ 1686}#)
+ (if (eqv? #{type\ 1681}# (quote begin-form))
+ (let ((#{tmp\ 1694}# #{e\ 1683}#))
+ (let ((#{tmp\ 1695}#
+ ($sc-dispatch #{tmp\ 1694}# (quote (_)))))
+ (if #{tmp\ 1695}#
(@apply
- (lambda (#{_\ 3841}#) (#{chi-void\ 2595}#))
- #{tmp\ 3839}#)
- (let ((#{tmp\ 3842}#
+ (lambda () (#{chi-void\ 479}#))
+ #{tmp\ 1695}#)
+ (let ((#{tmp\ 1696}#
($sc-dispatch
- #{tmp\ 3838}#
- '(any any . each-any))))
- (if #{tmp\ 3842}#
+ #{tmp\ 1694}#
+ '(_ any . each-any))))
+ (if #{tmp\ 1696}#
(@apply
- (lambda (#{_\ 3846}# #{e1\ 3847}# #{e2\ 3848}#)
- (#{chi-top-sequence\ 2571}#
- (cons #{e1\ 3847}# #{e2\ 3848}#)
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
- #{m\ 3802}#
- #{esew\ 3803}#
- #{mod\ 3830}#))
- #{tmp\ 3842}#)
+ (lambda (#{e1\ 1699}# #{e2\ 1700}#)
+ (#{chi-top-sequence\ 455}#
+ (cons #{e1\ 1699}# #{e2\ 1700}#)
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{m\ 1658}#
+ #{esew\ 1659}#
+ #{mod\ 1686}#))
+ #{tmp\ 1696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3838}#))))))
- (if (eqv? #{type\ 3825}# (quote local-syntax-form))
- (#{chi-local-syntax\ 2591}#
- #{value\ 3826}#
- #{e\ 3827}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
- #{mod\ 3830}#
- (lambda (#{body\ 3851}#
- #{r\ 3852}#
- #{w\ 3853}#
- #{s\ 3854}#
- #{mod\ 3855}#)
- (#{chi-top-sequence\ 2571}#
- #{body\ 3851}#
- #{r\ 3852}#
- #{w\ 3853}#
- #{s\ 3854}#
- #{m\ 3802}#
- #{esew\ 3803}#
- #{mod\ 3855}#)))
- (if (eqv? #{type\ 3825}# (quote eval-when-form))
- (let ((#{tmp\ 3862}# #{e\ 3827}#))
- (let ((#{tmp\ 3863}#
+ #{tmp\ 1694}#))))))
+ (if (eqv? #{type\ 1681}# (quote local-syntax-form))
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1682}#
+ #{e\ 1683}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{mod\ 1686}#
+ (lambda (#{body\ 1703}#
+ #{r\ 1704}#
+ #{w\ 1705}#
+ #{s\ 1706}#
+ #{mod\ 1707}#)
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1703}#
+ #{r\ 1704}#
+ #{w\ 1705}#
+ #{s\ 1706}#
+ #{m\ 1658}#
+ #{esew\ 1659}#
+ #{mod\ 1707}#)))
+ (if (eqv? #{type\ 1681}# (quote eval-when-form))
+ (let ((#{tmp\ 1714}# #{e\ 1683}#))
+ (let ((#{tmp\ 1715}#
($sc-dispatch
- #{tmp\ 3862}#
- '(any each-any any . each-any))))
- (if #{tmp\ 3863}#
+ #{tmp\ 1714}#
+ '(_ each-any any . each-any))))
+ (if #{tmp\ 1715}#
(@apply
- (lambda (#{_\ 3868}#
- #{x\ 3869}#
- #{e1\ 3870}#
- #{e2\ 3871}#)
+ (lambda (#{x\ 1719}# #{e1\ 1720}# #{e2\ 1721}#)
(begin
- (let ((#{when-list\ 3874}#
- (#{chi-when-list\ 2575}#
- #{e\ 3827}#
- #{x\ 3869}#
- #{w\ 3828}#))
- (#{body\ 3875}#
- (cons #{e1\ 3870}# #{e2\ 3871}#)))
- (if (eq? #{m\ 3802}# (quote e))
+ (let ((#{when-list\ 1724}#
+ (#{chi-when-list\ 459}#
+ #{e\ 1683}#
+ #{x\ 1719}#
+ #{w\ 1684}#))
+ (#{body\ 1725}#
+ (cons #{e1\ 1720}# #{e2\ 1721}#)))
+ (if (eq? #{m\ 1658}# (quote e))
(if (memq 'eval
- #{when-list\ 3874}#)
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ #{when-list\ 1724}#)
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
(if (memq 'expand
- #{when-list\ 3874}#)
+ #{when-list\ 1724}#)
'c&e
'e)
'(eval)
- #{mod\ 3830}#)
+ #{mod\ 1686}#)
(begin
(if (memq 'expand
- #{when-list\ 3874}#)
- (#{top-level-eval-hook\ 2405}#
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ #{when-list\ 1724}#)
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'e
'(eval)
- #{mod\ 3830}#)
- #{mod\ 3830}#))
- (#{chi-void\ 2595}#)))
+ #{mod\ 1686}#)
+ #{mod\ 1686}#))
+ (#{chi-void\ 479}#)))
(if (memq 'load
- #{when-list\ 3874}#)
+ #{when-list\ 1724}#)
(if (begin
- (let ((#{t\ 3884}#
+ (let ((#{t\ 1734}#
(memq 'compile
- #{when-list\
3874}#)))
- (if #{t\ 3884}#
- #{t\ 3884}#
+ #{when-list\
1724}#)))
+ (if #{t\ 1734}#
+ #{t\ 1734}#
(begin
- (let ((#{t\ 3887}#
+ (let ((#{t\ 1737}#
(memq 'expand
-
#{when-list\ 3874}#)))
- (if #{t\ 3887}#
- #{t\ 3887}#
- (if (eq? #{m\ 3802}#
+
#{when-list\ 1724}#)))
+ (if #{t\ 1737}#
+ #{t\ 1737}#
+ (if (eq? #{m\ 1658}#
'c&e)
(memq 'eval
- #{when-list\
3874}#)
+ #{when-list\
1724}#)
#f)))))))
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'c&e
'(compile load)
- #{mod\ 3830}#)
- (if (if (eq? #{m\ 3802}# (quote c))
+ #{mod\ 1686}#)
+ (if (if (eq? #{m\ 1658}# (quote c))
#t
- (eq? #{m\ 3802}# (quote c&e)))
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ (eq? #{m\ 1658}# (quote c&e)))
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'c
'(load)
- #{mod\ 3830}#)
- (#{chi-void\ 2595}#)))
+ #{mod\ 1686}#)
+ (#{chi-void\ 479}#)))
(if (begin
- (let ((#{t\ 3895}#
+ (let ((#{t\ 1745}#
(memq 'compile
- #{when-list\
3874}#)))
- (if #{t\ 3895}#
- #{t\ 3895}#
+ #{when-list\
1724}#)))
+ (if #{t\ 1745}#
+ #{t\ 1745}#
(begin
- (let ((#{t\ 3898}#
+ (let ((#{t\ 1748}#
(memq 'expand
-
#{when-list\ 3874}#)))
- (if #{t\ 3898}#
- #{t\ 3898}#
- (if (eq? #{m\ 3802}#
+
#{when-list\ 1724}#)))
+ (if #{t\ 1748}#
+ #{t\ 1748}#
+ (if (eq? #{m\ 1658}#
'c&e)
(memq 'eval
- #{when-list\
3874}#)
+ #{when-list\
1724}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 2405}#
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-top-sequence\ 455}#
+ #{body\ 1725}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
'e
'(eval)
- #{mod\ 3830}#)
- #{mod\ 3830}#)
- (#{chi-void\ 2595}#))
- (#{chi-void\ 2595}#)))))))
- #{tmp\ 3863}#)
+ #{mod\ 1686}#)
+ #{mod\ 1686}#)
+ (#{chi-void\ 479}#))
+ (#{chi-void\ 479}#)))))))
+ #{tmp\ 1715}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3862}#))))
- (if (eqv? #{type\ 3825}# (quote define-syntax-form))
+ #{tmp\ 1714}#))))
+ (if (eqv? #{type\ 1681}# (quote define-syntax-form))
(begin
- (let ((#{n\ 3906}#
- (#{id-var-name\ 2553}#
- #{value\ 3826}#
- #{w\ 3828}#))
- (#{r\ 3907}#
- (#{macros-only-env\ 2488}# #{r\ 3800}#)))
- (if (eqv? #{m\ 3802}# (quote c))
- (if (memq (quote compile) #{esew\ 3803}#)
+ (let ((#{n\ 1756}#
+ (#{id-var-name\ 437}#
+ #{value\ 1682}#
+ #{w\ 1684}#))
+ (#{r\ 1757}#
+ (#{macros-only-env\ 372}# #{r\ 1656}#)))
+ (if (eqv? #{m\ 1658}# (quote c))
+ (if (memq (quote compile) #{esew\ 1659}#)
(begin
- (let ((#{e\ 3910}#
- (#{chi-install-global\ 2573}#
- #{n\ 3906}#
- (#{chi\ 2581}#
- #{e\ 3827}#
- #{r\ 3907}#
- #{w\ 3828}#
- #{mod\ 3830}#))))
+ (let ((#{e\ 1760}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))
(begin
- (#{top-level-eval-hook\ 2405}#
- #{e\ 3910}#
- #{mod\ 3830}#)
- (if (memq (quote load) #{esew\ 3803}#)
- #{e\ 3910}#
- (#{chi-void\ 2595}#)))))
- (if (memq (quote load) #{esew\ 3803}#)
- (#{chi-install-global\ 2573}#
- #{n\ 3906}#
- (#{chi\ 2581}#
- #{e\ 3827}#
- #{r\ 3907}#
- #{w\ 3828}#
- #{mod\ 3830}#))
- (#{chi-void\ 2595}#)))
- (if (eqv? #{m\ 3802}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{e\ 1760}#
+ #{mod\ 1686}#)
+ (if (memq (quote load) #{esew\ 1659}#)
+ #{e\ 1760}#
+ (#{chi-void\ 479}#)))))
+ (if (memq (quote load) #{esew\ 1659}#)
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))
+ (#{chi-void\ 479}#)))
+ (if (eqv? #{m\ 1658}# (quote c&e))
(begin
- (let ((#{e\ 3913}#
- (#{chi-install-global\ 2573}#
- #{n\ 3906}#
- (#{chi\ 2581}#
- #{e\ 3827}#
- #{r\ 3907}#
- #{w\ 3828}#
- #{mod\ 3830}#))))
+ (let ((#{e\ 1763}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))
(begin
- (#{top-level-eval-hook\ 2405}#
- #{e\ 3913}#
- #{mod\ 3830}#)
- #{e\ 3913}#)))
+ (#{top-level-eval-hook\ 289}#
+ #{e\ 1763}#
+ #{mod\ 1686}#)
+ #{e\ 1763}#)))
(begin
- (if (memq (quote eval) #{esew\ 3803}#)
- (#{top-level-eval-hook\ 2405}#
- (#{chi-install-global\ 2573}#
- #{n\ 3906}#
- (#{chi\ 2581}#
- #{e\ 3827}#
- #{r\ 3907}#
- #{w\ 3828}#
- #{mod\ 3830}#))
- #{mod\ 3830}#))
- (#{chi-void\ 2595}#))))))
- (if (eqv? #{type\ 3825}# (quote define-form))
+ (if (memq (quote eval) #{esew\ 1659}#)
+ (#{top-level-eval-hook\ 289}#
+ (#{chi-install-global\ 457}#
+ #{n\ 1756}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1757}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))
+ #{mod\ 1686}#))
+ (#{chi-void\ 479}#))))))
+ (if (eqv? #{type\ 1681}# (quote define-form))
(begin
- (let ((#{n\ 3918}#
- (#{id-var-name\ 2553}#
- #{value\ 3826}#
- #{w\ 3828}#)))
+ (let ((#{n\ 1768}#
+ (#{id-var-name\ 437}#
+ #{value\ 1682}#
+ #{w\ 1684}#)))
(begin
- (let ((#{type\ 3920}#
- (#{binding-type\ 2479}#
- (#{lookup\ 2490}#
- #{n\ 3918}#
- #{r\ 3800}#
- #{mod\ 3830}#))))
- (if (if (eqv? #{type\ 3920}# (quote global))
+ (let ((#{type\ 1770}#
+ (#{binding-type\ 363}#
+ (#{lookup\ 374}#
+ #{n\ 1768}#
+ #{r\ 1656}#
+ #{mod\ 1686}#))))
+ (if (if (eqv? #{type\ 1770}# (quote global))
#t
- (if (eqv? #{type\ 3920}# (quote core))
+ (if (eqv? #{type\ 1770}# (quote core))
#t
- (if (eqv? #{type\ 3920}#
+ (if (eqv? #{type\ 1770}#
'macro)
#t
- (eqv? #{type\ 3920}#
+ (eqv? #{type\ 1770}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 3802}# (quote c))
+ (if (if (if (eq? #{m\ 1658}# (quote c))
#t
- (eq? #{m\ 3802}# (quote c&e)))
+ (eq? #{m\ 1658}# (quote c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 3918}#))
+ #{n\ 1768}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 3926}#
+ (let ((#{old\ 1776}#
(module-variable
(current-module)
- #{n\ 3918}#)))
+ #{n\ 1768}#)))
(module-define!
(current-module)
- #{n\ 3918}#
- (if (variable? #{old\ 3926}#)
- (variable-ref #{old\ 3926}#)
+ #{n\ 1768}#
+ (if (variable? #{old\ 1776}#)
+ (variable-ref #{old\ 1776}#)
#f)))))
(begin
- (let ((#{x\ 3929}#
- (#{build-global-definition\
2436}#
- #{s\ 3829}#
- #{n\ 3918}#
- (#{chi\ 2581}#
- #{e\ 3827}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{mod\ 3830}#))))
+ (let ((#{x\ 1779}#
+ (#{build-global-definition\
320}#
+ #{s\ 1685}#
+ #{n\ 1768}#
+ (#{chi\ 465}#
+ #{e\ 1683}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))
(begin
- (if (eq? #{m\ 3802}# (quote c&e))
- (#{top-level-eval-hook\ 2405}#
- #{x\ 3929}#
- #{mod\ 3830}#))
- #{x\ 3929}#))))
- (if (eqv? #{type\ 3920}#
+ (if (eq? #{m\ 1658}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{x\ 1779}#
+ #{mod\ 1686}#))
+ #{x\ 1779}#))))
+ (if (eqv? #{type\ 1770}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 3827}#
- (#{wrap\ 2565}#
- #{value\ 3826}#
- #{w\ 3828}#
- #{mod\ 3830}#))
+ #{e\ 1683}#
+ (#{wrap\ 449}#
+ #{value\ 1682}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 3827}#
- (#{wrap\ 2565}#
- #{value\ 3826}#
- #{w\ 3828}#
- #{mod\ 3830}#))))))))
+ #{e\ 1683}#
+ (#{wrap\ 449}#
+ #{value\ 1682}#
+ #{w\ 1684}#
+ #{mod\ 1686}#))))))))
(begin
- (let ((#{x\ 3935}#
- (#{chi-expr\ 2583}#
- #{type\ 3825}#
- #{value\ 3826}#
- #{e\ 3827}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
- #{mod\ 3830}#)))
+ (let ((#{x\ 1785}#
+ (#{chi-expr\ 467}#
+ #{type\ 1681}#
+ #{value\ 1682}#
+ #{e\ 1683}#
+ #{r\ 1656}#
+ #{w\ 1684}#
+ #{s\ 1685}#
+ #{mod\ 1686}#)))
(begin
- (if (eq? #{m\ 3802}# (quote c&e))
- (#{top-level-eval-hook\ 2405}#
- #{x\ 3935}#
- #{mod\ 3830}#))
- #{x\ 3935}#))))))))))))
- (#{chi\ 2581}#
- (lambda (#{e\ 3936}#
- #{r\ 3937}#
- #{w\ 3938}#
- #{mod\ 3939}#)
+ (if (eq? #{m\ 1658}# (quote c&e))
+ (#{top-level-eval-hook\ 289}#
+ #{x\ 1785}#
+ #{mod\ 1686}#))
+ #{x\ 1785}#))))))))))))
+ (#{chi\ 465}#
+ (lambda (#{e\ 1786}#
+ #{r\ 1787}#
+ #{w\ 1788}#
+ #{mod\ 1789}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{e\ 3936}#
- #{r\ 3937}#
- #{w\ 3938}#
- (#{source-annotation\ 2475}# #{e\ 3936}#)
+ (#{syntax-type\ 461}#
+ #{e\ 1786}#
+ #{r\ 1787}#
+ #{w\ 1788}#
+ (#{source-annotation\ 359}# #{e\ 1786}#)
#f
- #{mod\ 3939}#
+ #{mod\ 1789}#
#f))
- (lambda (#{type\ 3944}#
- #{value\ 3945}#
- #{e\ 3946}#
- #{w\ 3947}#
- #{s\ 3948}#
- #{mod\ 3949}#)
- (#{chi-expr\ 2583}#
- #{type\ 3944}#
- #{value\ 3945}#
- #{e\ 3946}#
- #{r\ 3937}#
- #{w\ 3947}#
- #{s\ 3948}#
- #{mod\ 3949}#)))))
- (#{chi-expr\ 2583}#
- (lambda (#{type\ 3956}#
- #{value\ 3957}#
- #{e\ 3958}#
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#)
- (if (eqv? #{type\ 3956}# (quote lexical))
- (#{build-lexical-reference\ 2426}#
+ (lambda (#{type\ 1794}#
+ #{value\ 1795}#
+ #{e\ 1796}#
+ #{w\ 1797}#
+ #{s\ 1798}#
+ #{mod\ 1799}#)
+ (#{chi-expr\ 467}#
+ #{type\ 1794}#
+ #{value\ 1795}#
+ #{e\ 1796}#
+ #{r\ 1787}#
+ #{w\ 1797}#
+ #{s\ 1798}#
+ #{mod\ 1799}#)))))
+ (#{chi-expr\ 467}#
+ (lambda (#{type\ 1806}#
+ #{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote lexical))
+ (#{build-lexical-reference\ 310}#
'value
- #{s\ 3961}#
- #{e\ 3958}#
- #{value\ 3957}#)
- (if (if (eqv? #{type\ 3956}# (quote core))
+ #{s\ 1811}#
+ #{e\ 1808}#
+ #{value\ 1807}#)
+ (if (if (eqv? #{type\ 1806}# (quote core))
#t
- (eqv? #{type\ 3956}# (quote core-form)))
- (#{value\ 3957}#
- #{e\ 3958}#
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#)
- (if (eqv? #{type\ 3956}# (quote module-ref))
+ (eqv? #{type\ 1806}# (quote core-form)))
+ (#{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote module-ref))
(call-with-values
(lambda ()
- (#{value\ 3957}#
- #{e\ 3958}#
- #{r\ 3959}#
- #{w\ 3960}#))
- (lambda (#{e\ 3973}#
- #{r\ 3974}#
- #{w\ 3975}#
- #{s\ 3976}#
- #{mod\ 3977}#)
- (#{chi\ 2581}#
- #{e\ 3973}#
- #{r\ 3974}#
- #{w\ 3975}#
- #{mod\ 3977}#)))
- (if (eqv? #{type\ 3956}# (quote lexical-call))
- (#{chi-application\ 2585}#
+ (#{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#))
+ (lambda (#{e\ 1823}#
+ #{r\ 1824}#
+ #{w\ 1825}#
+ #{s\ 1826}#
+ #{mod\ 1827}#)
+ (#{chi\ 465}#
+ #{e\ 1823}#
+ #{r\ 1824}#
+ #{w\ 1825}#
+ #{mod\ 1827}#)))
+ (if (eqv? #{type\ 1806}# (quote lexical-call))
+ (#{chi-application\ 469}#
(begin
- (let ((#{id\ 3985}# (car #{e\ 3958}#)))
- (#{build-lexical-reference\ 2426}#
+ (let ((#{id\ 1835}# (car #{e\ 1808}#)))
+ (#{build-lexical-reference\ 310}#
'fun
- (#{source-annotation\ 2475}# #{id\ 3985}#)
- (if (#{syntax-object?\ 2460}# #{id\ 3985}#)
- (syntax->datum #{id\ 3985}#)
- #{id\ 3985}#)
- #{value\ 3957}#)))
- #{e\ 3958}#
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#)
- (if (eqv? #{type\ 3956}# (quote global-call))
- (#{chi-application\ 2585}#
- (#{build-global-reference\ 2432}#
- (#{source-annotation\ 2475}# (car #{e\ 3958}#))
- (if (#{syntax-object?\ 2460}# #{value\ 3957}#)
- (#{syntax-object-expression\ 2462}#
- #{value\ 3957}#)
- #{value\ 3957}#)
- (if (#{syntax-object?\ 2460}# #{value\ 3957}#)
- (#{syntax-object-module\ 2466}# #{value\ 3957}#)
- #{mod\ 3962}#))
- #{e\ 3958}#
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#)
- (if (eqv? #{type\ 3956}# (quote constant))
- (#{build-data\ 2446}#
- #{s\ 3961}#
- (#{strip\ 2607}#
- (#{source-wrap\ 2567}#
- #{e\ 3958}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#)
+ (#{source-annotation\ 359}# #{id\ 1835}#)
+ (if (#{syntax-object?\ 344}# #{id\ 1835}#)
+ (syntax->datum #{id\ 1835}#)
+ #{id\ 1835}#)
+ #{value\ 1807}#)))
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote global-call))
+ (#{chi-application\ 469}#
+ (#{build-global-reference\ 316}#
+ (#{source-annotation\ 359}# (car #{e\ 1808}#))
+ (if (#{syntax-object?\ 344}# #{value\ 1807}#)
+ (#{syntax-object-expression\ 346}#
+ #{value\ 1807}#)
+ #{value\ 1807}#)
+ (if (#{syntax-object?\ 344}# #{value\ 1807}#)
+ (#{syntax-object-module\ 350}# #{value\ 1807}#)
+ #{mod\ 1812}#))
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote constant))
+ (#{build-data\ 330}#
+ #{s\ 1811}#
+ (#{strip\ 491}#
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
'(())))
- (if (eqv? #{type\ 3956}# (quote global))
- (#{build-global-reference\ 2432}#
- #{s\ 3961}#
- #{value\ 3957}#
- #{mod\ 3962}#)
- (if (eqv? #{type\ 3956}# (quote call))
- (#{chi-application\ 2585}#
- (#{chi\ 2581}#
- (car #{e\ 3958}#)
- #{r\ 3959}#
- #{w\ 3960}#
- #{mod\ 3962}#)
- #{e\ 3958}#
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#)
- (if (eqv? #{type\ 3956}# (quote begin-form))
- (let ((#{tmp\ 3992}# #{e\ 3958}#))
- (let ((#{tmp\ 3993}#
+ (if (eqv? #{type\ 1806}# (quote global))
+ (#{build-global-reference\ 316}#
+ #{s\ 1811}#
+ #{value\ 1807}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote call))
+ (#{chi-application\ 469}#
+ (#{chi\ 465}#
+ (car #{e\ 1808}#)
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{mod\ 1812}#)
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (if (eqv? #{type\ 1806}# (quote begin-form))
+ (let ((#{tmp\ 1842}# #{e\ 1808}#))
+ (let ((#{tmp\ 1843}#
($sc-dispatch
- #{tmp\ 3992}#
- '(any any . each-any))))
- (if #{tmp\ 3993}#
+ #{tmp\ 1842}#
+ '(_ any . each-any))))
+ (if #{tmp\ 1843}#
(@apply
- (lambda (#{_\ 3997}#
- #{e1\ 3998}#
- #{e2\ 3999}#)
- (#{chi-sequence\ 2569}#
- (cons #{e1\ 3998}# #{e2\ 3999}#)
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#))
- #{tmp\ 3993}#)
+ (lambda (#{e1\ 1846}# #{e2\ 1847}#)
+ (#{chi-sequence\ 453}#
+ (cons #{e1\ 1846}# #{e2\ 1847}#)
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))
+ #{tmp\ 1843}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 3992}#))))
- (if (eqv? #{type\ 3956}#
+ #{tmp\ 1842}#))))
+ (if (eqv? #{type\ 1806}#
'local-syntax-form)
- (#{chi-local-syntax\ 2591}#
- #{value\ 3957}#
- #{e\ 3958}#
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#
- #{chi-sequence\ 2569}#)
- (if (eqv? #{type\ 3956}#
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1807}#
+ #{e\ 1808}#
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#
+ #{chi-sequence\ 453}#)
+ (if (eqv? #{type\ 1806}#
'eval-when-form)
- (let ((#{tmp\ 4003}# #{e\ 3958}#))
- (let ((#{tmp\ 4004}#
+ (let ((#{tmp\ 1851}# #{e\ 1808}#))
+ (let ((#{tmp\ 1852}#
($sc-dispatch
- #{tmp\ 4003}#
- '(any each-any
- any
- .
- each-any))))
- (if #{tmp\ 4004}#
+ #{tmp\ 1851}#
+ '(_ each-any any . each-any))))
+ (if #{tmp\ 1852}#
(@apply
- (lambda (#{_\ 4009}#
- #{x\ 4010}#
- #{e1\ 4011}#
- #{e2\ 4012}#)
+ (lambda (#{x\ 1856}#
+ #{e1\ 1857}#
+ #{e2\ 1858}#)
(begin
- (let ((#{when-list\ 4014}#
- (#{chi-when-list\ 2575}#
- #{e\ 3958}#
- #{x\ 4010}#
- #{w\ 3960}#)))
+ (let ((#{when-list\ 1860}#
+ (#{chi-when-list\ 459}#
+ #{e\ 1808}#
+ #{x\ 1856}#
+ #{w\ 1810}#)))
(if (memq 'eval
- #{when-list\ 4014}#)
- (#{chi-sequence\ 2569}#
- (cons #{e1\ 4011}#
- #{e2\ 4012}#)
- #{r\ 3959}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#)
- (#{chi-void\ 2595}#)))))
- #{tmp\ 4004}#)
+ #{when-list\ 1860}#)
+ (#{chi-sequence\ 453}#
+ (cons #{e1\ 1857}#
+ #{e2\ 1858}#)
+ #{r\ 1809}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#)
+ (#{chi-void\ 479}#)))))
+ #{tmp\ 1852}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 4003}#))))
- (if (if (eqv? #{type\ 3956}#
+ #{tmp\ 1851}#))))
+ (if (if (eqv? #{type\ 1806}#
'define-form)
#t
- (eqv? #{type\ 3956}#
+ (eqv? #{type\ 1806}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 3958}#
- (#{wrap\ 2565}#
- #{value\ 3957}#
- #{w\ 3960}#
- #{mod\ 3962}#))
- (if (eqv? #{type\ 3956}# (quote syntax))
+ #{e\ 1808}#
+ (#{wrap\ 449}#
+ #{value\ 1807}#
+ #{w\ 1810}#
+ #{mod\ 1812}#))
+ (if (eqv? #{type\ 1806}# (quote syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 2567}#
- #{e\ 3958}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#))
- (if (eqv? #{type\ 3956}#
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))
+ (if (eqv? #{type\ 1806}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 2567}#
- #{e\ 3958}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#))
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 2567}#
- #{e\ 3958}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#))))))))))))))))))
- (#{chi-application\ 2585}#
- (lambda (#{x\ 4021}#
- #{e\ 4022}#
- #{r\ 4023}#
- #{w\ 4024}#
- #{s\ 4025}#
- #{mod\ 4026}#)
- (let ((#{tmp\ 4033}# #{e\ 4022}#))
- (let ((#{tmp\ 4034}#
+ (#{source-wrap\ 451}#
+ #{e\ 1808}#
+ #{w\ 1810}#
+ #{s\ 1811}#
+ #{mod\ 1812}#))))))))))))))))))
+ (#{chi-application\ 469}#
+ (lambda (#{x\ 1867}#
+ #{e\ 1868}#
+ #{r\ 1869}#
+ #{w\ 1870}#
+ #{s\ 1871}#
+ #{mod\ 1872}#)
+ (let ((#{tmp\ 1879}# #{e\ 1868}#))
+ (let ((#{tmp\ 1880}#
($sc-dispatch
- #{tmp\ 4033}#
+ #{tmp\ 1879}#
'(any . each-any))))
- (if #{tmp\ 4034}#
+ (if #{tmp\ 1880}#
(@apply
- (lambda (#{e0\ 4037}# #{e1\ 4038}#)
- (#{build-application\ 2420}#
- #{s\ 4025}#
- #{x\ 4021}#
- (map (lambda (#{e\ 4039}#)
- (#{chi\ 2581}#
- #{e\ 4039}#
- #{r\ 4023}#
- #{w\ 4024}#
- #{mod\ 4026}#))
- #{e1\ 4038}#)))
- #{tmp\ 4034}#)
+ (lambda (#{e0\ 1883}# #{e1\ 1884}#)
+ (#{build-application\ 304}#
+ #{s\ 1871}#
+ #{x\ 1867}#
+ (map (lambda (#{e\ 1885}#)
+ (#{chi\ 465}#
+ #{e\ 1885}#
+ #{r\ 1869}#
+ #{w\ 1870}#
+ #{mod\ 1872}#))
+ #{e1\ 1884}#)))
+ #{tmp\ 1880}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4033}#))))))
- (#{chi-macro\ 2587}#
- (lambda (#{p\ 4042}#
- #{e\ 4043}#
- #{r\ 4044}#
- #{w\ 4045}#
- #{s\ 4046}#
- #{rib\ 4047}#
- #{mod\ 4048}#)
+ #{tmp\ 1879}#))))))
+ (#{chi-macro\ 471}#
+ (lambda (#{p\ 1888}#
+ #{e\ 1889}#
+ #{r\ 1890}#
+ #{w\ 1891}#
+ #{s\ 1892}#
+ #{rib\ 1893}#
+ #{mod\ 1894}#)
(letrec*
- ((#{rebuild-macro-output\ 4057}#
- (lambda (#{x\ 4058}# #{m\ 4059}#)
- (if (pair? #{x\ 4058}#)
- (#{decorate-source\ 2414}#
- (cons (#{rebuild-macro-output\ 4057}#
- (car #{x\ 4058}#)
- #{m\ 4059}#)
- (#{rebuild-macro-output\ 4057}#
- (cdr #{x\ 4058}#)
- #{m\ 4059}#))
- #{s\ 4046}#)
- (if (#{syntax-object?\ 2460}# #{x\ 4058}#)
+ ((#{rebuild-macro-output\ 1903}#
+ (lambda (#{x\ 1904}# #{m\ 1905}#)
+ (if (pair? #{x\ 1904}#)
+ (#{decorate-source\ 298}#
+ (cons (#{rebuild-macro-output\ 1903}#
+ (car #{x\ 1904}#)
+ #{m\ 1905}#)
+ (#{rebuild-macro-output\ 1903}#
+ (cdr #{x\ 1904}#)
+ #{m\ 1905}#))
+ #{s\ 1892}#)
+ (if (#{syntax-object?\ 344}# #{x\ 1904}#)
(begin
- (let ((#{w\ 4067}#
- (#{syntax-object-wrap\ 2464}# #{x\ 4058}#)))
+ (let ((#{w\ 1913}#
+ (#{syntax-object-wrap\ 348}# #{x\ 1904}#)))
(begin
- (let ((#{ms\ 4070}#
- (#{wrap-marks\ 2503}# #{w\ 4067}#))
- (#{s\ 4071}#
- (#{wrap-subst\ 2505}# #{w\ 4067}#)))
- (if (if (pair? #{ms\ 4070}#)
- (eq? (car #{ms\ 4070}#) #f)
+ (let ((#{ms\ 1916}#
+ (#{wrap-marks\ 387}# #{w\ 1913}#))
+ (#{s\ 1917}#
+ (#{wrap-subst\ 389}# #{w\ 1913}#)))
+ (if (if (pair? #{ms\ 1916}#)
+ (eq? (car #{ms\ 1916}#) #f)
#f)
- (#{make-syntax-object\ 2458}#
- (#{syntax-object-expression\ 2462}#
- #{x\ 4058}#)
- (#{make-wrap\ 2501}#
- (cdr #{ms\ 4070}#)
- (if #{rib\ 4047}#
- (cons #{rib\ 4047}# (cdr #{s\ 4071}#))
- (cdr #{s\ 4071}#)))
- (#{syntax-object-module\ 2466}#
- #{x\ 4058}#))
- (#{make-syntax-object\ 2458}#
- (#{decorate-source\ 2414}#
- (#{syntax-object-expression\ 2462}#
- #{x\ 4058}#)
- #{s\ 4071}#)
- (#{make-wrap\ 2501}#
- (cons #{m\ 4059}# #{ms\ 4070}#)
- (if #{rib\ 4047}#
- (cons #{rib\ 4047}#
- (cons (quote shift) #{s\ 4071}#))
- (cons (quote shift) #{s\ 4071}#)))
- (#{syntax-object-module\ 2466}#
- #{x\ 4058}#)))))))
- (if (vector? #{x\ 4058}#)
+ (#{make-syntax-object\ 342}#
+ (#{syntax-object-expression\ 346}#
+ #{x\ 1904}#)
+ (#{make-wrap\ 385}#
+ (cdr #{ms\ 1916}#)
+ (if #{rib\ 1893}#
+ (cons #{rib\ 1893}# (cdr #{s\ 1917}#))
+ (cdr #{s\ 1917}#)))
+ (#{syntax-object-module\ 350}#
+ #{x\ 1904}#))
+ (#{make-syntax-object\ 342}#
+ (#{decorate-source\ 298}#
+ (#{syntax-object-expression\ 346}#
+ #{x\ 1904}#)
+ #{s\ 1917}#)
+ (#{make-wrap\ 385}#
+ (cons #{m\ 1905}# #{ms\ 1916}#)
+ (if #{rib\ 1893}#
+ (cons #{rib\ 1893}#
+ (cons (quote shift) #{s\ 1917}#))
+ (cons (quote shift) #{s\ 1917}#)))
+ (#{syntax-object-module\ 350}#
+ #{x\ 1904}#)))))))
+ (if (vector? #{x\ 1904}#)
(begin
- (let ((#{n\ 4079}# (vector-length #{x\ 4058}#)))
+ (let ((#{n\ 1925}# (vector-length #{x\ 1904}#)))
(begin
- (let ((#{v\ 4081}#
- (#{decorate-source\ 2414}#
- (make-vector #{n\ 4079}#)
- #{x\ 4058}#)))
+ (let ((#{v\ 1927}#
+ (#{decorate-source\ 298}#
+ (make-vector #{n\ 1925}#)
+ #{x\ 1904}#)))
(letrec*
- ((#{loop\ 4084}#
- (lambda (#{i\ 4085}#)
- (if (#{fx=\ 2401}#
- #{i\ 4085}#
- #{n\ 4079}#)
- (begin (if #f #f) #{v\ 4081}#)
+ ((#{loop\ 1930}#
+ (lambda (#{i\ 1931}#)
+ (if (#{fx=\ 285}#
+ #{i\ 1931}#
+ #{n\ 1925}#)
+ (begin (if #f #f) #{v\ 1927}#)
(begin
(vector-set!
- #{v\ 4081}#
- #{i\ 4085}#
- (#{rebuild-macro-output\ 4057}#
+ #{v\ 1927}#
+ #{i\ 1931}#
+ (#{rebuild-macro-output\ 1903}#
(vector-ref
- #{x\ 4058}#
- #{i\ 4085}#)
- #{m\ 4059}#))
- (#{loop\ 4084}#
- (#{fx+\ 2397}#
- #{i\ 4085}#
+ #{x\ 1904}#
+ #{i\ 1931}#)
+ #{m\ 1905}#))
+ (#{loop\ 1930}#
+ (#{fx+\ 281}#
+ #{i\ 1931}#
1)))))))
- (begin (#{loop\ 4084}# 0)))))))
- (if (symbol? #{x\ 4058}#)
+ (begin (#{loop\ 1930}# 0)))))))
+ (if (symbol? #{x\ 1904}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 2567}#
- #{e\ 4043}#
- #{w\ 4045}#
- (#{wrap-subst\ 2505}# #{w\ 4045}#)
- #{mod\ 4048}#)
- #{x\ 4058}#)
- (#{decorate-source\ 2414}#
- #{x\ 4058}#
- #{s\ 4046}#))))))))
+ (#{source-wrap\ 451}#
+ #{e\ 1889}#
+ #{w\ 1891}#
+ (#{wrap-subst\ 389}# #{w\ 1891}#)
+ #{mod\ 1894}#)
+ #{x\ 1904}#)
+ (#{decorate-source\ 298}#
+ #{x\ 1904}#
+ #{s\ 1892}#))))))))
(begin
- (#{rebuild-macro-output\ 4057}#
- (#{p\ 4042}#
- (#{source-wrap\ 2567}#
- #{e\ 4043}#
- (#{anti-mark\ 2537}# #{w\ 4045}#)
- #{s\ 4046}#
- #{mod\ 4048}#))
+ (#{rebuild-macro-output\ 1903}#
+ (#{p\ 1888}#
+ (#{source-wrap\ 451}#
+ #{e\ 1889}#
+ (#{anti-mark\ 421}# #{w\ 1891}#)
+ #{s\ 1892}#
+ #{mod\ 1894}#))
(gensym "m"))))))
- (#{chi-body\ 2589}#
- (lambda (#{body\ 4092}#
- #{outer-form\ 4093}#
- #{r\ 4094}#
- #{w\ 4095}#
- #{mod\ 4096}#)
+ (#{chi-body\ 473}#
+ (lambda (#{body\ 1938}#
+ #{outer-form\ 1939}#
+ #{r\ 1940}#
+ #{w\ 1941}#
+ #{mod\ 1942}#)
(begin
- (let ((#{r\ 4104}#
+ (let ((#{r\ 1950}#
(cons '("placeholder" placeholder)
- #{r\ 4094}#)))
+ #{r\ 1940}#)))
(begin
- (let ((#{ribcage\ 4106}#
- (#{make-ribcage\ 2517}#
+ (let ((#{ribcage\ 1952}#
+ (#{make-ribcage\ 401}#
'()
'()
'())))
(begin
- (let ((#{w\ 4109}#
- (#{make-wrap\ 2501}#
- (#{wrap-marks\ 2503}# #{w\ 4095}#)
- (cons #{ribcage\ 4106}#
- (#{wrap-subst\ 2505}# #{w\ 4095}#)))))
+ (let ((#{w\ 1955}#
+ (#{make-wrap\ 385}#
+ (#{wrap-marks\ 387}# #{w\ 1941}#)
+ (cons #{ribcage\ 1952}#
+ (#{wrap-subst\ 389}# #{w\ 1941}#)))))
(letrec*
- ((#{parse\ 4118}#
- (lambda (#{body\ 4119}#
- #{ids\ 4120}#
- #{labels\ 4121}#
- #{var-ids\ 4122}#
- #{vars\ 4123}#
- #{vals\ 4124}#
- #{bindings\ 4125}#)
- (if (null? #{body\ 4119}#)
+ ((#{parse\ 1964}#
+ (lambda (#{body\ 1965}#
+ #{ids\ 1966}#
+ #{labels\ 1967}#
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
+ #{bindings\ 1971}#)
+ (if (null? #{body\ 1965}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 4093}#)
+ #{outer-form\ 1939}#)
(begin
- (let ((#{e\ 4130}#
- (cdr (car #{body\ 4119}#)))
- (#{er\ 4131}#
- (car (car #{body\ 4119}#))))
+ (let ((#{e\ 1976}#
+ (cdr (car #{body\ 1965}#)))
+ (#{er\ 1977}#
+ (car (car #{body\ 1965}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{e\ 4130}#
- #{er\ 4131}#
+ (#{syntax-type\ 461}#
+ #{e\ 1976}#
+ #{er\ 1977}#
'(())
- (#{source-annotation\ 2475}#
- #{er\ 4131}#)
- #{ribcage\ 4106}#
- #{mod\ 4096}#
+ (#{source-annotation\ 359}#
+ #{er\ 1977}#)
+ #{ribcage\ 1952}#
+ #{mod\ 1942}#
#f))
- (lambda (#{type\ 4133}#
- #{value\ 4134}#
- #{e\ 4135}#
- #{w\ 4136}#
- #{s\ 4137}#
- #{mod\ 4138}#)
- (if (eqv? #{type\ 4133}#
+ (lambda (#{type\ 1979}#
+ #{value\ 1980}#
+ #{e\ 1981}#
+ #{w\ 1982}#
+ #{s\ 1983}#
+ #{mod\ 1984}#)
+ (if (eqv? #{type\ 1979}#
'define-form)
(begin
- (let ((#{id\ 4148}#
- (#{wrap\ 2565}#
- #{value\ 4134}#
- #{w\ 4136}#
- #{mod\ 4138}#))
- (#{label\ 4149}#
- (#{gen-label\ 2512}#)))
+ (let ((#{id\ 1994}#
+ (#{wrap\ 449}#
+ #{value\ 1980}#
+ #{w\ 1982}#
+ #{mod\ 1984}#))
+ (#{label\ 1995}#
+ (#{gen-label\ 396}#)))
(begin
- (let ((#{var\ 4151}#
- (#{gen-var\ 2609}#
- #{id\ 4148}#)))
+ (let ((#{var\ 1997}#
+ (#{gen-var\ 493}#
+ #{id\ 1994}#)))
(begin
- (#{extend-ribcage!\
2541}#
- #{ribcage\ 4106}#
- #{id\ 4148}#
- #{label\ 4149}#)
- (#{parse\ 4118}#
- (cdr #{body\ 4119}#)
- (cons #{id\ 4148}#
- #{ids\ 4120}#)
- (cons #{label\ 4149}#
- #{labels\ 4121}#)
- (cons #{id\ 4148}#
- #{var-ids\
4122}#)
- (cons #{var\ 4151}#
- #{vars\ 4123}#)
- (cons (cons #{er\
4131}#
- (#{wrap\
2565}#
- #{e\
4135}#
- #{w\
4136}#
- #{mod\
4138}#))
- #{vals\ 4124}#)
+ (#{extend-ribcage!\ 425}#
+ #{ribcage\ 1952}#
+ #{id\ 1994}#
+ #{label\ 1995}#)
+ (#{parse\ 1964}#
+ (cdr #{body\ 1965}#)
+ (cons #{id\ 1994}#
+ #{ids\ 1966}#)
+ (cons #{label\ 1995}#
+ #{labels\ 1967}#)
+ (cons #{id\ 1994}#
+ #{var-ids\
1968}#)
+ (cons #{var\ 1997}#
+ #{vars\ 1969}#)
+ (cons (cons #{er\
1977}#
+ (#{wrap\
449}#
+ #{e\
1981}#
+ #{w\
1982}#
+ #{mod\
1984}#))
+ #{vals\ 1970}#)
(cons (cons 'lexical
- #{var\
4151}#)
- #{bindings\
4125}#)))))))
- (if (eqv? #{type\ 4133}#
+ #{var\
1997}#)
+ #{bindings\
1971}#)))))))
+ (if (eqv? #{type\ 1979}#
'define-syntax-form)
(begin
- (let ((#{id\ 4156}#
- (#{wrap\ 2565}#
- #{value\ 4134}#
- #{w\ 4136}#
- #{mod\ 4138}#))
- (#{label\ 4157}#
- (#{gen-label\ 2512}#)))
+ (let ((#{id\ 2002}#
+ (#{wrap\ 449}#
+ #{value\ 1980}#
+ #{w\ 1982}#
+ #{mod\ 1984}#))
+ (#{label\ 2003}#
+ (#{gen-label\ 396}#)))
(begin
- (#{extend-ribcage!\ 2541}#
- #{ribcage\ 4106}#
- #{id\ 4156}#
- #{label\ 4157}#)
- (#{parse\ 4118}#
- (cdr #{body\ 4119}#)
- (cons #{id\ 4156}#
- #{ids\ 4120}#)
- (cons #{label\ 4157}#
- #{labels\ 4121}#)
- #{var-ids\ 4122}#
- #{vars\ 4123}#
- #{vals\ 4124}#
+ (#{extend-ribcage!\ 425}#
+ #{ribcage\ 1952}#
+ #{id\ 2002}#
+ #{label\ 2003}#)
+ (#{parse\ 1964}#
+ (cdr #{body\ 1965}#)
+ (cons #{id\ 2002}#
+ #{ids\ 1966}#)
+ (cons #{label\ 2003}#
+ #{labels\ 1967}#)
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
(cons (cons 'macro
- (cons #{er\
4131}#
-
(#{wrap\ 2565}#
- #{e\
4135}#
- #{w\
4136}#
-
#{mod\ 4138}#)))
- #{bindings\
4125}#)))))
- (if (eqv? #{type\ 4133}#
+ (cons #{er\
1977}#
+
(#{wrap\ 449}#
+ #{e\
1981}#
+ #{w\
1982}#
+
#{mod\ 1984}#)))
+ #{bindings\
1971}#)))))
+ (if (eqv? #{type\ 1979}#
'begin-form)
- (let ((#{tmp\ 4160}#
- #{e\ 4135}#))
- (let ((#{tmp\ 4161}#
+ (let ((#{tmp\ 2006}#
+ #{e\ 1981}#))
+ (let ((#{tmp\ 2007}#
($sc-dispatch
- #{tmp\ 4160}#
- '(any .
- each-any))))
- (if #{tmp\ 4161}#
+ #{tmp\ 2006}#
+ '(_ . each-any))))
+ (if #{tmp\ 2007}#
(@apply
- (lambda (#{_\ 4164}#
- #{e1\ 4165}#)
- (#{parse\ 4118}#
+ (lambda (#{e1\ 2009}#)
+ (#{parse\ 1964}#
(letrec*
- ((#{f\ 4168}#
- (lambda
(#{forms\ 4169}#)
- (if (null?
#{forms\ 4169}#)
- (cdr
#{body\ 4119}#)
- (cons
(cons #{er\ 4131}#
-
(#{wrap\ 2565}#
-
(car #{forms\ 4169}#)
-
#{w\ 4136}#
-
#{mod\ 4138}#))
-
(#{f\ 4168}#
-
(cdr #{forms\ 4169}#)))))))
+ ((#{f\ 2012}#
+ (lambda
(#{forms\ 2013}#)
+ (if (null?
#{forms\ 2013}#)
+ (cdr
#{body\ 1965}#)
+ (cons
(cons #{er\ 1977}#
+
(#{wrap\ 449}#
+
(car #{forms\ 2013}#)
+
#{w\ 1982}#
+
#{mod\ 1984}#))
+
(#{f\ 2012}#
+
(cdr #{forms\ 2013}#)))))))
(begin
- (#{f\ 4168}#
- #{e1\
4165}#)))
- #{ids\ 4120}#
- #{labels\ 4121}#
- #{var-ids\ 4122}#
- #{vars\ 4123}#
- #{vals\ 4124}#
- #{bindings\
4125}#))
- #{tmp\ 4161}#)
+ (#{f\ 2012}#
+ #{e1\
2009}#)))
+ #{ids\ 1966}#
+ #{labels\ 1967}#
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
+ #{bindings\
1971}#))
+ #{tmp\ 2007}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 4160}#))))
- (if (eqv? #{type\ 4133}#
+ #{tmp\ 2006}#))))
+ (if (eqv? #{type\ 1979}#
'local-syntax-form)
- (#{chi-local-syntax\ 2591}#
- #{value\ 4134}#
- #{e\ 4135}#
- #{er\ 4131}#
- #{w\ 4136}#
- #{s\ 4137}#
- #{mod\ 4138}#
- (lambda (#{forms\ 4172}#
- #{er\ 4173}#
- #{w\ 4174}#
- #{s\ 4175}#
- #{mod\ 4176}#)
- (#{parse\ 4118}#
+ (#{chi-local-syntax\ 475}#
+ #{value\ 1980}#
+ #{e\ 1981}#
+ #{er\ 1977}#
+ #{w\ 1982}#
+ #{s\ 1983}#
+ #{mod\ 1984}#
+ (lambda (#{forms\ 2016}#
+ #{er\ 2017}#
+ #{w\ 2018}#
+ #{s\ 2019}#
+ #{mod\ 2020}#)
+ (#{parse\ 1964}#
(letrec*
- ((#{f\ 4184}#
- (lambda (#{forms\
4185}#)
- (if (null?
#{forms\ 4185}#)
- (cdr #{body\
4119}#)
- (cons (cons
#{er\ 4173}#
-
(#{wrap\ 2565}#
-
(car #{forms\ 4185}#)
-
#{w\ 4174}#
-
#{mod\ 4176}#))
- (#{f\
4184}#
- (cdr
#{forms\ 4185}#)))))))
+ ((#{f\ 2028}#
+ (lambda (#{forms\
2029}#)
+ (if (null?
#{forms\ 2029}#)
+ (cdr #{body\
1965}#)
+ (cons (cons
#{er\ 2017}#
+
(#{wrap\ 449}#
+
(car #{forms\ 2029}#)
+
#{w\ 2018}#
+
#{mod\ 2020}#))
+ (#{f\
2028}#
+ (cdr
#{forms\ 2029}#)))))))
(begin
- (#{f\ 4184}#
- #{forms\
4172}#)))
- #{ids\ 4120}#
- #{labels\ 4121}#
- #{var-ids\ 4122}#
- #{vars\ 4123}#
- #{vals\ 4124}#
- #{bindings\ 4125}#)))
- (if (null? #{ids\ 4120}#)
- (#{build-sequence\ 2448}#
+ (#{f\ 2028}#
+ #{forms\
2016}#)))
+ #{ids\ 1966}#
+ #{labels\ 1967}#
+ #{var-ids\ 1968}#
+ #{vars\ 1969}#
+ #{vals\ 1970}#
+ #{bindings\ 1971}#)))
+ (if (null? #{ids\ 1966}#)
+ (#{build-sequence\ 332}#
#f
- (map (lambda (#{x\
4188}#)
- (#{chi\ 2581}#
- (cdr #{x\
4188}#)
- (car #{x\
4188}#)
+ (map (lambda (#{x\
2032}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2032}#)
+ (car #{x\
2032}#)
'(())
- #{mod\ 4138}#))
- (cons (cons #{er\
4131}#
-
(#{source-wrap\ 2567}#
- #{e\
4135}#
- #{w\
4136}#
- #{s\
4137}#
-
#{mod\ 4138}#))
- (cdr #{body\
4119}#))))
+ #{mod\ 1984}#))
+ (cons (cons #{er\
1977}#
+
(#{source-wrap\ 451}#
+ #{e\
1981}#
+ #{w\
1982}#
+ #{s\
1983}#
+
#{mod\ 1984}#))
+ (cdr #{body\
1965}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 2559}#
- #{ids\
4120}#))
+ (if (not
(#{valid-bound-ids?\ 443}#
+ #{ids\
1966}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
4093}#))
+ #{outer-form\
1939}#))
(letrec*
- ((#{loop\ 4195}#
- (lambda (#{bs\
4196}#
-
#{er-cache\ 4197}#
- #{r-cache\
4198}#)
- (if (not (null?
#{bs\ 4196}#))
+ ((#{loop\ 2039}#
+ (lambda (#{bs\
2040}#
+
#{er-cache\ 2041}#
+ #{r-cache\
2042}#)
+ (if (not (null?
#{bs\ 2040}#))
(begin
- (let ((#{b\
4201}#
- (car
#{bs\ 4196}#)))
- (if (eq?
(car #{b\ 4201}#)
+ (let ((#{b\
2045}#
+ (car
#{bs\ 2040}#)))
+ (if (eq?
(car #{b\ 2045}#)
'macro)
(begin
- (let
((#{er\ 4204}#
-
(car (cdr #{b\ 4201}#))))
+ (let
((#{er\ 2048}#
+
(car (cdr #{b\ 2045}#))))
(begin
-
(let ((#{r-cache\ 4206}#
-
(if (eq? #{er\ 4204}#
-
#{er-cache\ 4197}#)
-
#{r-cache\ 4198}#
-
(#{macros-only-env\ 2488}#
-
#{er\ 4204}#))))
+
(let ((#{r-cache\ 2050}#
+
(if (eq? #{er\ 2048}#
+
#{er-cache\ 2041}#)
+
#{r-cache\ 2042}#
+
(#{macros-only-env\ 372}#
+
#{er\ 2048}#))))
(begin
(set-cdr!
-
#{b\ 4201}#
-
(#{eval-local-transformer\ 2593}#
-
(#{chi\ 2581}#
-
(cdr (cdr #{b\ 4201}#))
-
#{r-cache\ 4206}#
+
#{b\ 2045}#
+
(#{eval-local-transformer\ 477}#
+
(#{chi\ 465}#
+
(cdr (cdr #{b\ 2045}#))
+
#{r-cache\ 2050}#
'(())
-
#{mod\ 4138}#)
-
#{mod\ 4138}#))
-
(#{loop\ 4195}#
-
(cdr #{bs\ 4196}#)
-
#{er\ 4204}#
-
#{r-cache\ 4206}#))))))
- (#{loop\
4195}#
- (cdr
#{bs\ 4196}#)
-
#{er-cache\ 4197}#
-
#{r-cache\ 4198}#))))))))
+
#{mod\ 1984}#)
+
#{mod\ 1984}#))
+
(#{loop\ 2039}#
+
(cdr #{bs\ 2040}#)
+
#{er\ 2048}#
+
#{r-cache\ 2050}#))))))
+ (#{loop\
2039}#
+ (cdr
#{bs\ 2040}#)
+
#{er-cache\ 2041}#
+
#{r-cache\ 2042}#))))))))
(begin
- (#{loop\ 4195}#
- #{bindings\ 4125}#
+ (#{loop\ 2039}#
+ #{bindings\ 1971}#
#f
#f)))
(set-cdr!
- #{r\ 4104}#
- (#{extend-env\ 2484}#
- #{labels\ 4121}#
- #{bindings\ 4125}#
- (cdr #{r\ 4104}#)))
- (#{build-letrec\ 2454}#
+ #{r\ 1950}#
+ (#{extend-env\ 368}#
+ #{labels\ 1967}#
+ #{bindings\ 1971}#
+ (cdr #{r\ 1950}#)))
+ (#{build-letrec\ 338}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\
4122}#))
+ #{var-ids\
1968}#))
(reverse
- #{vars\ 4123}#)
- (map (lambda (#{x\
4209}#)
- (#{chi\ 2581}#
- (cdr #{x\
4209}#)
- (car #{x\
4209}#)
+ #{vars\ 1969}#)
+ (map (lambda (#{x\
2053}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2053}#)
+ (car #{x\
2053}#)
'(())
- #{mod\
4138}#))
+ #{mod\
1984}#))
(reverse
- #{vals\ 4124}#))
- (#{build-sequence\
2448}#
+ #{vals\ 1970}#))
+ (#{build-sequence\
332}#
#f
- (map (lambda (#{x\
4213}#)
- (#{chi\ 2581}#
- (cdr #{x\
4213}#)
- (car #{x\
4213}#)
+ (map (lambda (#{x\
2057}#)
+ (#{chi\ 465}#
+ (cdr #{x\
2057}#)
+ (car #{x\
2057}#)
'(())
- #{mod\
4138}#))
- (cons (cons
#{er\ 4131}#
-
(#{source-wrap\ 2567}#
-
#{e\ 4135}#
-
#{w\ 4136}#
-
#{s\ 4137}#
-
#{mod\ 4138}#))
- (cdr
#{body\ 4119}#)))))))))))))))))))
+ #{mod\
1984}#))
+ (cons (cons
#{er\ 1977}#
+
(#{source-wrap\ 451}#
+
#{e\ 1981}#
+
#{w\ 1982}#
+
#{s\ 1983}#
+
#{mod\ 1984}#))
+ (cdr
#{body\ 1965}#)))))))))))))))))))
(begin
- (#{parse\ 4118}#
- (map (lambda (#{x\ 4126}#)
- (cons #{r\ 4104}#
- (#{wrap\ 2565}#
- #{x\ 4126}#
- #{w\ 4109}#
- #{mod\ 4096}#)))
- #{body\ 4092}#)
+ (#{parse\ 1964}#
+ (map (lambda (#{x\ 1972}#)
+ (cons #{r\ 1950}#
+ (#{wrap\ 449}#
+ #{x\ 1972}#
+ #{w\ 1955}#
+ #{mod\ 1942}#)))
+ #{body\ 1938}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 2591}#
- (lambda (#{rec?\ 4216}#
- #{e\ 4217}#
- #{r\ 4218}#
- #{w\ 4219}#
- #{s\ 4220}#
- #{mod\ 4221}#
- #{k\ 4222}#)
- (let ((#{tmp\ 4230}# #{e\ 4217}#))
- (let ((#{tmp\ 4231}#
+ (#{chi-local-syntax\ 475}#
+ (lambda (#{rec?\ 2060}#
+ #{e\ 2061}#
+ #{r\ 2062}#
+ #{w\ 2063}#
+ #{s\ 2064}#
+ #{mod\ 2065}#
+ #{k\ 2066}#)
+ (let ((#{tmp\ 2074}# #{e\ 2061}#))
+ (let ((#{tmp\ 2075}#
($sc-dispatch
- #{tmp\ 4230}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 4231}#
+ #{tmp\ 2074}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 2075}#
(@apply
- (lambda (#{_\ 4237}#
- #{id\ 4238}#
- #{val\ 4239}#
- #{e1\ 4240}#
- #{e2\ 4241}#)
+ (lambda (#{id\ 2080}#
+ #{val\ 2081}#
+ #{e1\ 2082}#
+ #{e2\ 2083}#)
(begin
- (let ((#{ids\ 4243}# #{id\ 4238}#))
- (if (not (#{valid-bound-ids?\ 2559}# #{ids\ 4243}#))
+ (let ((#{ids\ 2085}# #{id\ 2080}#))
+ (if (not (#{valid-bound-ids?\ 443}# #{ids\ 2085}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 4217}#)
+ #{e\ 2061}#)
(begin
- (let ((#{labels\ 4246}#
- (#{gen-labels\ 2514}# #{ids\ 4243}#)))
+ (let ((#{labels\ 2088}#
+ (#{gen-labels\ 398}# #{ids\ 2085}#)))
(begin
- (let ((#{new-w\ 4248}#
- (#{make-binding-wrap\ 2543}#
- #{ids\ 4243}#
- #{labels\ 4246}#
- #{w\ 4219}#)))
- (#{k\ 4222}#
- (cons #{e1\ 4240}# #{e2\ 4241}#)
- (#{extend-env\ 2484}#
- #{labels\ 4246}#
+ (let ((#{new-w\ 2090}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 2085}#
+ #{labels\ 2088}#
+ #{w\ 2063}#)))
+ (#{k\ 2066}#
+ (cons #{e1\ 2082}# #{e2\ 2083}#)
+ (#{extend-env\ 368}#
+ #{labels\ 2088}#
(begin
- (let ((#{w\ 4252}#
- (if #{rec?\ 4216}#
- #{new-w\ 4248}#
- #{w\ 4219}#))
- (#{trans-r\ 4253}#
- (#{macros-only-env\ 2488}#
- #{r\ 4218}#)))
- (map (lambda (#{x\ 4254}#)
+ (let ((#{w\ 2094}#
+ (if #{rec?\ 2060}#
+ #{new-w\ 2090}#
+ #{w\ 2063}#))
+ (#{trans-r\ 2095}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2062}#)))
+ (map (lambda (#{x\ 2096}#)
(cons 'macro
-
(#{eval-local-transformer\ 2593}#
- (#{chi\ 2581}#
- #{x\ 4254}#
- #{trans-r\ 4253}#
- #{w\ 4252}#
- #{mod\ 4221}#)
- #{mod\ 4221}#)))
- #{val\ 4239}#)))
- #{r\ 4218}#)
- #{new-w\ 4248}#
- #{s\ 4220}#
- #{mod\ 4221}#)))))))))
- #{tmp\ 4231}#)
- (let ((#{_\ 4259}# #{tmp\ 4230}#))
+
(#{eval-local-transformer\ 477}#
+ (#{chi\ 465}#
+ #{x\ 2096}#
+ #{trans-r\ 2095}#
+ #{w\ 2094}#
+ #{mod\ 2065}#)
+ #{mod\ 2065}#)))
+ #{val\ 2081}#)))
+ #{r\ 2062}#)
+ #{new-w\ 2090}#
+ #{s\ 2064}#
+ #{mod\ 2065}#)))))))))
+ #{tmp\ 2075}#)
+ (let ((#{_\ 2101}# #{tmp\ 2074}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 2567}#
- #{e\ 4217}#
- #{w\ 4219}#
- #{s\ 4220}#
- #{mod\ 4221}#))))))))
- (#{eval-local-transformer\ 2593}#
- (lambda (#{expanded\ 4260}# #{mod\ 4261}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2061}#
+ #{w\ 2063}#
+ #{s\ 2064}#
+ #{mod\ 2065}#))))))))
+ (#{eval-local-transformer\ 477}#
+ (lambda (#{expanded\ 2102}# #{mod\ 2103}#)
(begin
- (let ((#{p\ 4265}#
- (#{local-eval-hook\ 2407}#
- #{expanded\ 4260}#
- #{mod\ 4261}#)))
- (if (procedure? #{p\ 4265}#)
- #{p\ 4265}#
+ (let ((#{p\ 2107}#
+ (#{local-eval-hook\ 291}#
+ #{expanded\ 2102}#
+ #{mod\ 2103}#)))
+ (if (procedure? #{p\ 2107}#)
+ #{p\ 2107}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 4265}#))))))
- (#{chi-void\ 2595}#
- (lambda () (#{build-void\ 2418}# #f)))
- (#{ellipsis?\ 2597}#
- (lambda (#{x\ 4267}#)
- (if (#{nonsymbol-id?\ 2494}# #{x\ 4267}#)
- (#{free-id=?\ 2555}#
- #{x\ 4267}#
+ #{p\ 2107}#))))))
+ (#{chi-void\ 479}#
+ (lambda () (#{build-void\ 302}# #f)))
+ (#{ellipsis?\ 481}#
+ (lambda (#{x\ 2109}#)
+ (if (#{nonsymbol-id?\ 378}# #{x\ 2109}#)
+ (#{free-id=?\ 439}#
+ #{x\ 2109}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4268"))
+ #(ribcage #(x) #((top)) #("i2110"))
#(ribcage
(lambda-var-list
gen-var
@@ -6799,417 +6749,417 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147" "i2146" "i2145" "i2143")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 2599}#
- (lambda (#{orig-args\ 4271}#)
+ (#{lambda-formals\ 483}#
+ (lambda (#{orig-args\ 2113}#)
(letrec*
- ((#{req\ 4274}#
- (lambda (#{args\ 4277}# #{rreq\ 4278}#)
- (let ((#{tmp\ 4281}# #{args\ 4277}#))
- (let ((#{tmp\ 4282}#
- ($sc-dispatch #{tmp\ 4281}# (quote ()))))
- (if #{tmp\ 4282}#
+ ((#{req\ 2116}#
+ (lambda (#{args\ 2119}# #{rreq\ 2120}#)
+ (let ((#{tmp\ 2123}# #{args\ 2119}#))
+ (let ((#{tmp\ 2124}#
+ ($sc-dispatch #{tmp\ 2123}# (quote ()))))
+ (if #{tmp\ 2124}#
(@apply
(lambda ()
- (#{check\ 4276}# (reverse #{rreq\ 4278}#) #f))
- #{tmp\ 4282}#)
- (let ((#{tmp\ 4283}#
+ (#{check\ 2118}# (reverse #{rreq\ 2120}#) #f))
+ #{tmp\ 2124}#)
+ (let ((#{tmp\ 2125}#
($sc-dispatch
- #{tmp\ 4281}#
+ #{tmp\ 2123}#
'(any . any))))
- (if (if #{tmp\ 4283}#
+ (if (if #{tmp\ 2125}#
(@apply
- (lambda (#{a\ 4286}# #{b\ 4287}#)
- (#{id?\ 2496}# #{a\ 4286}#))
- #{tmp\ 4283}#)
+ (lambda (#{a\ 2128}# #{b\ 2129}#)
+ (#{id?\ 380}# #{a\ 2128}#))
+ #{tmp\ 2125}#)
#f)
(@apply
- (lambda (#{a\ 4290}# #{b\ 4291}#)
- (#{req\ 4274}#
- #{b\ 4291}#
- (cons #{a\ 4290}# #{rreq\ 4278}#)))
- #{tmp\ 4283}#)
- (let ((#{tmp\ 4292}# (list #{tmp\ 4281}#)))
- (if (if #{tmp\ 4292}#
+ (lambda (#{a\ 2132}# #{b\ 2133}#)
+ (#{req\ 2116}#
+ #{b\ 2133}#
+ (cons #{a\ 2132}# #{rreq\ 2120}#)))
+ #{tmp\ 2125}#)
+ (let ((#{tmp\ 2134}# (list #{tmp\ 2123}#)))
+ (if (if #{tmp\ 2134}#
(@apply
- (lambda (#{r\ 4294}#)
- (#{id?\ 2496}# #{r\ 4294}#))
- #{tmp\ 4292}#)
+ (lambda (#{r\ 2136}#)
+ (#{id?\ 380}# #{r\ 2136}#))
+ #{tmp\ 2134}#)
#f)
(@apply
- (lambda (#{r\ 4296}#)
- (#{check\ 4276}#
- (reverse #{rreq\ 4278}#)
- #{r\ 4296}#))
- #{tmp\ 4292}#)
- (let ((#{else\ 4298}# #{tmp\ 4281}#))
+ (lambda (#{r\ 2138}#)
+ (#{check\ 2118}#
+ (reverse #{rreq\ 2120}#)
+ #{r\ 2138}#))
+ #{tmp\ 2134}#)
+ (let ((#{else\ 2140}# #{tmp\ 2123}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 4271}#
- #{args\ 4277}#)))))))))))
- (#{check\ 4276}#
- (lambda (#{req\ 4299}# #{rest\ 4300}#)
- (if (#{distinct-bound-ids?\ 2561}#
- (if #{rest\ 4300}#
- (cons #{rest\ 4300}# #{req\ 4299}#)
- #{req\ 4299}#))
- (values #{req\ 4299}# #f #{rest\ 4300}# #f)
+ #{orig-args\ 2113}#
+ #{args\ 2119}#)))))))))))
+ (#{check\ 2118}#
+ (lambda (#{req\ 2141}# #{rest\ 2142}#)
+ (if (#{distinct-bound-ids?\ 445}#
+ (if #{rest\ 2142}#
+ (cons #{rest\ 2142}# #{req\ 2141}#)
+ #{req\ 2141}#))
+ (values #{req\ 2141}# #f #{rest\ 2142}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 4271}#)))))
+ #{orig-args\ 2113}#)))))
(begin
- (#{req\ 4274}# #{orig-args\ 4271}# (quote ()))))))
- (#{chi-simple-lambda\ 2601}#
- (lambda (#{e\ 4306}#
- #{r\ 4307}#
- #{w\ 4308}#
- #{s\ 4309}#
- #{mod\ 4310}#
- #{req\ 4311}#
- #{rest\ 4312}#
- #{meta\ 4313}#
- #{body\ 4314}#)
+ (#{req\ 2116}# #{orig-args\ 2113}# (quote ()))))))
+ (#{chi-simple-lambda\ 485}#
+ (lambda (#{e\ 2148}#
+ #{r\ 2149}#
+ #{w\ 2150}#
+ #{s\ 2151}#
+ #{mod\ 2152}#
+ #{req\ 2153}#
+ #{rest\ 2154}#
+ #{meta\ 2155}#
+ #{body\ 2156}#)
(begin
- (let ((#{ids\ 4326}#
- (if #{rest\ 4312}#
- (append #{req\ 4311}# (list #{rest\ 4312}#))
- #{req\ 4311}#)))
+ (let ((#{ids\ 2168}#
+ (if #{rest\ 2154}#
+ (append #{req\ 2153}# (list #{rest\ 2154}#))
+ #{req\ 2153}#)))
(begin
- (let ((#{vars\ 4328}#
- (map #{gen-var\ 2609}# #{ids\ 4326}#)))
+ (let ((#{vars\ 2170}#
+ (map #{gen-var\ 493}# #{ids\ 2168}#)))
(begin
- (let ((#{labels\ 4330}#
- (#{gen-labels\ 2514}# #{ids\ 4326}#)))
- (#{build-simple-lambda\ 2438}#
- #{s\ 4309}#
- (map syntax->datum #{req\ 4311}#)
- (if #{rest\ 4312}#
- (syntax->datum #{rest\ 4312}#)
+ (let ((#{labels\ 2172}#
+ (#{gen-labels\ 398}# #{ids\ 2168}#)))
+ (#{build-simple-lambda\ 322}#
+ #{s\ 2151}#
+ (map syntax->datum #{req\ 2153}#)
+ (if #{rest\ 2154}#
+ (syntax->datum #{rest\ 2154}#)
#f)
- #{vars\ 4328}#
- #{meta\ 4313}#
- (#{chi-body\ 2589}#
- #{body\ 4314}#
- (#{source-wrap\ 2567}#
- #{e\ 4306}#
- #{w\ 4308}#
- #{s\ 4309}#
- #{mod\ 4310}#)
- (#{extend-var-env\ 2486}#
- #{labels\ 4330}#
- #{vars\ 4328}#
- #{r\ 4307}#)
- (#{make-binding-wrap\ 2543}#
- #{ids\ 4326}#
- #{labels\ 4330}#
- #{w\ 4308}#)
- #{mod\ 4310}#))))))))))
- (#{lambda*-formals\ 2603}#
- (lambda (#{orig-args\ 4333}#)
+ #{vars\ 2170}#
+ #{meta\ 2155}#
+ (#{chi-body\ 473}#
+ #{body\ 2156}#
+ (#{source-wrap\ 451}#
+ #{e\ 2148}#
+ #{w\ 2150}#
+ #{s\ 2151}#
+ #{mod\ 2152}#)
+ (#{extend-var-env\ 370}#
+ #{labels\ 2172}#
+ #{vars\ 2170}#
+ #{r\ 2149}#)
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 2168}#
+ #{labels\ 2172}#
+ #{w\ 2150}#)
+ #{mod\ 2152}#))))))))))
+ (#{lambda*-formals\ 487}#
+ (lambda (#{orig-args\ 2175}#)
(letrec*
- ((#{req\ 4336}#
- (lambda (#{args\ 4345}# #{rreq\ 4346}#)
- (let ((#{tmp\ 4349}# #{args\ 4345}#))
- (let ((#{tmp\ 4350}#
- ($sc-dispatch #{tmp\ 4349}# (quote ()))))
- (if #{tmp\ 4350}#
+ ((#{req\ 2178}#
+ (lambda (#{args\ 2187}# #{rreq\ 2188}#)
+ (let ((#{tmp\ 2191}# #{args\ 2187}#))
+ (let ((#{tmp\ 2192}#
+ ($sc-dispatch #{tmp\ 2191}# (quote ()))))
+ (if #{tmp\ 2192}#
(@apply
(lambda ()
- (#{check\ 4344}#
- (reverse #{rreq\ 4346}#)
+ (#{check\ 2186}#
+ (reverse #{rreq\ 2188}#)
'()
#f
'()))
- #{tmp\ 4350}#)
- (let ((#{tmp\ 4351}#
+ #{tmp\ 2192}#)
+ (let ((#{tmp\ 2193}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2191}#
'(any . any))))
- (if (if #{tmp\ 4351}#
+ (if (if #{tmp\ 2193}#
(@apply
- (lambda (#{a\ 4354}# #{b\ 4355}#)
- (#{id?\ 2496}# #{a\ 4354}#))
- #{tmp\ 4351}#)
+ (lambda (#{a\ 2196}# #{b\ 2197}#)
+ (#{id?\ 380}# #{a\ 2196}#))
+ #{tmp\ 2193}#)
#f)
(@apply
- (lambda (#{a\ 4358}# #{b\ 4359}#)
- (#{req\ 4336}#
- #{b\ 4359}#
- (cons #{a\ 4358}# #{rreq\ 4346}#)))
- #{tmp\ 4351}#)
- (let ((#{tmp\ 4360}#
+ (lambda (#{a\ 2200}# #{b\ 2201}#)
+ (#{req\ 2178}#
+ #{b\ 2201}#
+ (cons #{a\ 2200}# #{rreq\ 2188}#)))
+ #{tmp\ 2193}#)
+ (let ((#{tmp\ 2202}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2191}#
'(any . any))))
- (if (if #{tmp\ 4360}#
+ (if (if #{tmp\ 2202}#
(@apply
- (lambda (#{a\ 4363}# #{b\ 4364}#)
- (eq? (syntax->datum #{a\ 4363}#)
+ (lambda (#{a\ 2205}# #{b\ 2206}#)
+ (eq? (syntax->datum #{a\ 2205}#)
#:optional))
- #{tmp\ 4360}#)
+ #{tmp\ 2202}#)
#f)
(@apply
- (lambda (#{a\ 4367}# #{b\ 4368}#)
- (#{opt\ 4338}#
- #{b\ 4368}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{a\ 2209}# #{b\ 2210}#)
+ (#{opt\ 2180}#
+ #{b\ 2210}#
+ (reverse #{rreq\ 2188}#)
'()))
- #{tmp\ 4360}#)
- (let ((#{tmp\ 4369}#
+ #{tmp\ 2202}#)
+ (let ((#{tmp\ 2211}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2191}#
'(any . any))))
- (if (if #{tmp\ 4369}#
+ (if (if #{tmp\ 2211}#
(@apply
- (lambda (#{a\ 4372}# #{b\ 4373}#)
- (eq? (syntax->datum #{a\ 4372}#)
+ (lambda (#{a\ 2214}# #{b\ 2215}#)
+ (eq? (syntax->datum #{a\ 2214}#)
#:key))
- #{tmp\ 4369}#)
+ #{tmp\ 2211}#)
#f)
(@apply
- (lambda (#{a\ 4376}# #{b\ 4377}#)
- (#{key\ 4340}#
- #{b\ 4377}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{a\ 2218}# #{b\ 2219}#)
+ (#{key\ 2182}#
+ #{b\ 2219}#
+ (reverse #{rreq\ 2188}#)
'()
'()))
- #{tmp\ 4369}#)
- (let ((#{tmp\ 4378}#
+ #{tmp\ 2211}#)
+ (let ((#{tmp\ 2220}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2191}#
'(any any))))
- (if (if #{tmp\ 4378}#
+ (if (if #{tmp\ 2220}#
(@apply
- (lambda (#{a\ 4381}#
- #{b\ 4382}#)
+ (lambda (#{a\ 2223}#
+ #{b\ 2224}#)
(eq? (syntax->datum
- #{a\ 4381}#)
+ #{a\ 2223}#)
#:rest))
- #{tmp\ 4378}#)
+ #{tmp\ 2220}#)
#f)
(@apply
- (lambda (#{a\ 4385}# #{b\ 4386}#)
- (#{rest\ 4342}#
- #{b\ 4386}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{a\ 2227}# #{b\ 2228}#)
+ (#{rest\ 2184}#
+ #{b\ 2228}#
+ (reverse #{rreq\ 2188}#)
'()
'()))
- #{tmp\ 4378}#)
- (let ((#{tmp\ 4387}#
- (list #{tmp\ 4349}#)))
- (if (if #{tmp\ 4387}#
+ #{tmp\ 2220}#)
+ (let ((#{tmp\ 2229}#
+ (list #{tmp\ 2191}#)))
+ (if (if #{tmp\ 2229}#
(@apply
- (lambda (#{r\ 4389}#)
- (#{id?\ 2496}#
- #{r\ 4389}#))
- #{tmp\ 4387}#)
+ (lambda (#{r\ 2231}#)
+ (#{id?\ 380}#
+ #{r\ 2231}#))
+ #{tmp\ 2229}#)
#f)
(@apply
- (lambda (#{r\ 4391}#)
- (#{rest\ 4342}#
- #{r\ 4391}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{r\ 2233}#)
+ (#{rest\ 2184}#
+ #{r\ 2233}#
+ (reverse #{rreq\ 2188}#)
'()
'()))
- #{tmp\ 4387}#)
- (let ((#{else\ 4393}#
- #{tmp\ 4349}#))
+ #{tmp\ 2229}#)
+ (let ((#{else\ 2235}#
+ #{tmp\ 2191}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 4333}#
- #{args\
4345}#)))))))))))))))))
- (#{opt\ 4338}#
- (lambda (#{args\ 4394}# #{req\ 4395}# #{ropt\ 4396}#)
- (let ((#{tmp\ 4400}# #{args\ 4394}#))
- (let ((#{tmp\ 4401}#
- ($sc-dispatch #{tmp\ 4400}# (quote ()))))
- (if #{tmp\ 4401}#
+ #{orig-args\ 2175}#
+ #{args\
2187}#)))))))))))))))))
+ (#{opt\ 2180}#
+ (lambda (#{args\ 2236}# #{req\ 2237}# #{ropt\ 2238}#)
+ (let ((#{tmp\ 2242}# #{args\ 2236}#))
+ (let ((#{tmp\ 2243}#
+ ($sc-dispatch #{tmp\ 2242}# (quote ()))))
+ (if #{tmp\ 2243}#
(@apply
(lambda ()
- (#{check\ 4344}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (#{check\ 2186}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
#f
'()))
- #{tmp\ 4401}#)
- (let ((#{tmp\ 4402}#
+ #{tmp\ 2243}#)
+ (let ((#{tmp\ 2244}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2242}#
'(any . any))))
- (if (if #{tmp\ 4402}#
+ (if (if #{tmp\ 2244}#
(@apply
- (lambda (#{a\ 4405}# #{b\ 4406}#)
- (#{id?\ 2496}# #{a\ 4405}#))
- #{tmp\ 4402}#)
+ (lambda (#{a\ 2247}# #{b\ 2248}#)
+ (#{id?\ 380}# #{a\ 2247}#))
+ #{tmp\ 2244}#)
#f)
(@apply
- (lambda (#{a\ 4409}# #{b\ 4410}#)
- (#{opt\ 4338}#
- #{b\ 4410}#
- #{req\ 4395}#
- (cons (cons #{a\ 4409}#
+ (lambda (#{a\ 2251}# #{b\ 2252}#)
+ (#{opt\ 2180}#
+ #{b\ 2252}#
+ #{req\ 2237}#
+ (cons (cons #{a\ 2251}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i4407" "i4408"))
+ #("i2249" "i2250"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i4397"
- "i4398"
- "i4399"))
+ #("i2239"
+ "i2240"
+ "i2241"))
#(ribcage
(check rest key opt req)
((top)
@@ -7217,15 +7167,15 @@
(top)
(top)
(top))
- ("i4343"
- "i4341"
- "i4339"
- "i4337"
- "i4335"))
+ ("i2185"
+ "i2183"
+ "i2181"
+ "i2179"
+ "i2177"))
#(ribcage
#(orig-args)
#((top))
- #("i4334"))
+ #("i2176"))
#(ribcage
(lambda-var-list
gen-var
@@ -7501,143 +7451,143 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -7647,150 +7597,150 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene guile))))
- #{ropt\ 4396}#)))
- #{tmp\ 4402}#)
- (let ((#{tmp\ 4411}#
+ #{ropt\ 2238}#)))
+ #{tmp\ 2244}#)
+ (let ((#{tmp\ 2253}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2242}#
'((any any) . any))))
- (if (if #{tmp\ 4411}#
+ (if (if #{tmp\ 2253}#
(@apply
- (lambda (#{a\ 4415}#
- #{init\ 4416}#
- #{b\ 4417}#)
- (#{id?\ 2496}# #{a\ 4415}#))
- #{tmp\ 4411}#)
+ (lambda (#{a\ 2257}#
+ #{init\ 2258}#
+ #{b\ 2259}#)
+ (#{id?\ 380}# #{a\ 2257}#))
+ #{tmp\ 2253}#)
#f)
(@apply
- (lambda (#{a\ 4421}#
- #{init\ 4422}#
- #{b\ 4423}#)
- (#{opt\ 4338}#
- #{b\ 4423}#
- #{req\ 4395}#
- (cons (list #{a\ 4421}# #{init\ 4422}#)
- #{ropt\ 4396}#)))
- #{tmp\ 4411}#)
- (let ((#{tmp\ 4424}#
+ (lambda (#{a\ 2263}#
+ #{init\ 2264}#
+ #{b\ 2265}#)
+ (#{opt\ 2180}#
+ #{b\ 2265}#
+ #{req\ 2237}#
+ (cons (list #{a\ 2263}# #{init\ 2264}#)
+ #{ropt\ 2238}#)))
+ #{tmp\ 2253}#)
+ (let ((#{tmp\ 2266}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2242}#
'(any . any))))
- (if (if #{tmp\ 4424}#
+ (if (if #{tmp\ 2266}#
(@apply
- (lambda (#{a\ 4427}# #{b\ 4428}#)
- (eq? (syntax->datum #{a\ 4427}#)
+ (lambda (#{a\ 2269}# #{b\ 2270}#)
+ (eq? (syntax->datum #{a\ 2269}#)
#:key))
- #{tmp\ 4424}#)
+ #{tmp\ 2266}#)
#f)
(@apply
- (lambda (#{a\ 4431}# #{b\ 4432}#)
- (#{key\ 4340}#
- #{b\ 4432}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (lambda (#{a\ 2273}# #{b\ 2274}#)
+ (#{key\ 2182}#
+ #{b\ 2274}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
'()))
- #{tmp\ 4424}#)
- (let ((#{tmp\ 4433}#
+ #{tmp\ 2266}#)
+ (let ((#{tmp\ 2275}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2242}#
'(any any))))
- (if (if #{tmp\ 4433}#
+ (if (if #{tmp\ 2275}#
(@apply
- (lambda (#{a\ 4436}#
- #{b\ 4437}#)
+ (lambda (#{a\ 2278}#
+ #{b\ 2279}#)
(eq? (syntax->datum
- #{a\ 4436}#)
+ #{a\ 2278}#)
#:rest))
- #{tmp\ 4433}#)
+ #{tmp\ 2275}#)
#f)
(@apply
- (lambda (#{a\ 4440}# #{b\ 4441}#)
- (#{rest\ 4342}#
- #{b\ 4441}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (lambda (#{a\ 2282}# #{b\ 2283}#)
+ (#{rest\ 2184}#
+ #{b\ 2283}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
'()))
- #{tmp\ 4433}#)
- (let ((#{tmp\ 4442}#
- (list #{tmp\ 4400}#)))
- (if (if #{tmp\ 4442}#
+ #{tmp\ 2275}#)
+ (let ((#{tmp\ 2284}#
+ (list #{tmp\ 2242}#)))
+ (if (if #{tmp\ 2284}#
(@apply
- (lambda (#{r\ 4444}#)
- (#{id?\ 2496}#
- #{r\ 4444}#))
- #{tmp\ 4442}#)
+ (lambda (#{r\ 2286}#)
+ (#{id?\ 380}#
+ #{r\ 2286}#))
+ #{tmp\ 2284}#)
#f)
(@apply
- (lambda (#{r\ 4446}#)
- (#{rest\ 4342}#
- #{r\ 4446}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (lambda (#{r\ 2288}#)
+ (#{rest\ 2184}#
+ #{r\ 2288}#
+ #{req\ 2237}#
+ (reverse #{ropt\ 2238}#)
'()))
- #{tmp\ 4442}#)
- (let ((#{else\ 4448}#
- #{tmp\ 4400}#))
+ #{tmp\ 2284}#)
+ (let ((#{else\ 2290}#
+ #{tmp\ 2242}#))
(syntax-violation
'lambda*
"invalid optional argument
list"
- #{orig-args\ 4333}#
- #{args\
4394}#)))))))))))))))))
- (#{key\ 4340}#
- (lambda (#{args\ 4449}#
- #{req\ 4450}#
- #{opt\ 4451}#
- #{rkey\ 4452}#)
- (let ((#{tmp\ 4457}# #{args\ 4449}#))
- (let ((#{tmp\ 4458}#
- ($sc-dispatch #{tmp\ 4457}# (quote ()))))
- (if #{tmp\ 4458}#
+ #{orig-args\ 2175}#
+ #{args\
2236}#)))))))))))))))))
+ (#{key\ 2182}#
+ (lambda (#{args\ 2291}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ #{rkey\ 2294}#)
+ (let ((#{tmp\ 2299}# #{args\ 2291}#))
+ (let ((#{tmp\ 2300}#
+ ($sc-dispatch #{tmp\ 2299}# (quote ()))))
+ (if #{tmp\ 2300}#
(@apply
(lambda ()
- (#{check\ 4344}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (#{check\ 2186}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
#f
- (cons #f (reverse #{rkey\ 4452}#))))
- #{tmp\ 4458}#)
- (let ((#{tmp\ 4459}#
+ (cons #f (reverse #{rkey\ 2294}#))))
+ #{tmp\ 2300}#)
+ (let ((#{tmp\ 2301}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2299}#
'(any . any))))
- (if (if #{tmp\ 4459}#
+ (if (if #{tmp\ 2301}#
(@apply
- (lambda (#{a\ 4462}# #{b\ 4463}#)
- (#{id?\ 2496}# #{a\ 4462}#))
- #{tmp\ 4459}#)
+ (lambda (#{a\ 2304}# #{b\ 2305}#)
+ (#{id?\ 380}# #{a\ 2304}#))
+ #{tmp\ 2301}#)
#f)
(@apply
- (lambda (#{a\ 4466}# #{b\ 4467}#)
- (let ((#{tmp\ 4469}#
+ (lambda (#{a\ 2308}# #{b\ 2309}#)
+ (let ((#{tmp\ 2311}#
(symbol->keyword
- (syntax->datum #{a\ 4466}#))))
- (let ((#{k\ 4471}# #{tmp\ 4469}#))
- (#{key\ 4340}#
- #{b\ 4467}#
- #{req\ 4450}#
- #{opt\ 4451}#
- (cons (cons #{k\ 4471}#
- (cons #{a\ 4466}#
+ (syntax->datum #{a\ 2308}#))))
+ (let ((#{k\ 2313}# #{tmp\ 2311}#))
+ (#{key\ 2182}#
+ #{b\ 2309}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ (cons (cons #{k\ 2313}#
+ (cons #{a\ 2308}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i4470"))
+ #("i2312"))
#(ribcage
#(a b)
#((top) (top))
- #("i4464"
- "i4465"))
+ #("i2306"
+ "i2307"))
#(ribcage
()
()
@@ -7804,10 +7754,10 @@
(top)
(top)
(top))
- #("i4453"
- "i4454"
- "i4455"
- "i4456"))
+ #("i2295"
+ "i2296"
+ "i2297"
+ "i2298"))
#(ribcage
(check rest
key
@@ -7818,15 +7768,15 @@
(top)
(top)
(top))
- ("i4343"
- "i4341"
- "i4339"
- "i4337"
- "i4335"))
+ ("i2185"
+ "i2183"
+ "i2181"
+ "i2179"
+ "i2177"))
#(ribcage
#(orig-args)
#((top))
- #("i4334"))
+ #("i2176"))
#(ribcage
(lambda-var-list
gen-var
@@ -8102,143 +8052,143 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -8248,2091 +8198,2068 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile)))))
- #{rkey\ 4452}#)))))
- #{tmp\ 4459}#)
- (let ((#{tmp\ 4472}#
+ #{rkey\ 2294}#)))))
+ #{tmp\ 2301}#)
+ (let ((#{tmp\ 2314}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2299}#
'((any any) . any))))
- (if (if #{tmp\ 4472}#
+ (if (if #{tmp\ 2314}#
(@apply
- (lambda (#{a\ 4476}#
- #{init\ 4477}#
- #{b\ 4478}#)
- (#{id?\ 2496}# #{a\ 4476}#))
- #{tmp\ 4472}#)
+ (lambda (#{a\ 2318}#
+ #{init\ 2319}#
+ #{b\ 2320}#)
+ (#{id?\ 380}# #{a\ 2318}#))
+ #{tmp\ 2314}#)
#f)
(@apply
- (lambda (#{a\ 4482}#
- #{init\ 4483}#
- #{b\ 4484}#)
- (let ((#{tmp\ 4486}#
+ (lambda (#{a\ 2324}#
+ #{init\ 2325}#
+ #{b\ 2326}#)
+ (let ((#{tmp\ 2328}#
(symbol->keyword
- (syntax->datum #{a\ 4482}#))))
- (let ((#{k\ 4488}# #{tmp\ 4486}#))
- (#{key\ 4340}#
- #{b\ 4484}#
- #{req\ 4450}#
- #{opt\ 4451}#
- (cons (list #{k\ 4488}#
- #{a\ 4482}#
- #{init\ 4483}#)
- #{rkey\ 4452}#)))))
- #{tmp\ 4472}#)
- (let ((#{tmp\ 4489}#
+ (syntax->datum #{a\ 2324}#))))
+ (let ((#{k\ 2330}# #{tmp\ 2328}#))
+ (#{key\ 2182}#
+ #{b\ 2326}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ (cons (list #{k\ 2330}#
+ #{a\ 2324}#
+ #{init\ 2325}#)
+ #{rkey\ 2294}#)))))
+ #{tmp\ 2314}#)
+ (let ((#{tmp\ 2331}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2299}#
'((any any any) . any))))
- (if (if #{tmp\ 4489}#
+ (if (if #{tmp\ 2331}#
(@apply
- (lambda (#{a\ 4494}#
- #{init\ 4495}#
- #{k\ 4496}#
- #{b\ 4497}#)
- (if (#{id?\ 2496}# #{a\ 4494}#)
+ (lambda (#{a\ 2336}#
+ #{init\ 2337}#
+ #{k\ 2338}#
+ #{b\ 2339}#)
+ (if (#{id?\ 380}# #{a\ 2336}#)
(keyword?
- (syntax->datum #{k\ 4496}#))
+ (syntax->datum #{k\ 2338}#))
#f))
- #{tmp\ 4489}#)
+ #{tmp\ 2331}#)
#f)
(@apply
- (lambda (#{a\ 4504}#
- #{init\ 4505}#
- #{k\ 4506}#
- #{b\ 4507}#)
- (#{key\ 4340}#
- #{b\ 4507}#
- #{req\ 4450}#
- #{opt\ 4451}#
- (cons (list #{k\ 4506}#
- #{a\ 4504}#
- #{init\ 4505}#)
- #{rkey\ 4452}#)))
- #{tmp\ 4489}#)
- (let ((#{tmp\ 4508}#
+ (lambda (#{a\ 2346}#
+ #{init\ 2347}#
+ #{k\ 2348}#
+ #{b\ 2349}#)
+ (#{key\ 2182}#
+ #{b\ 2349}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
+ (cons (list #{k\ 2348}#
+ #{a\ 2346}#
+ #{init\ 2347}#)
+ #{rkey\ 2294}#)))
+ #{tmp\ 2331}#)
+ (let ((#{tmp\ 2350}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2299}#
'(any))))
- (if (if #{tmp\ 4508}#
+ (if (if #{tmp\ 2350}#
(@apply
- (lambda (#{aok\ 4510}#)
+ (lambda (#{aok\ 2352}#)
(eq? (syntax->datum
- #{aok\ 4510}#)
+ #{aok\ 2352}#)
#:allow-other-keys))
- #{tmp\ 4508}#)
+ #{tmp\ 2350}#)
#f)
(@apply
- (lambda (#{aok\ 4512}#)
- (#{check\ 4344}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{aok\ 2354}#)
+ (#{check\ 2186}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
#f
(cons #t
(reverse
- #{rkey\ 4452}#))))
- #{tmp\ 4508}#)
- (let ((#{tmp\ 4513}#
+ #{rkey\ 2294}#))))
+ #{tmp\ 2350}#)
+ (let ((#{tmp\ 2355}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2299}#
'(any any any))))
- (if (if #{tmp\ 4513}#
+ (if (if #{tmp\ 2355}#
(@apply
- (lambda (#{aok\ 4517}#
- #{a\ 4518}#
- #{b\ 4519}#)
+ (lambda (#{aok\ 2359}#
+ #{a\ 2360}#
+ #{b\ 2361}#)
(if (eq? (syntax->datum
- #{aok\ 4517}#)
+ #{aok\ 2359}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 4518}#)
+ #{a\ 2360}#)
#:rest)
#f))
- #{tmp\ 4513}#)
+ #{tmp\ 2355}#)
#f)
(@apply
- (lambda (#{aok\ 4525}#
- #{a\ 4526}#
- #{b\ 4527}#)
- (#{rest\ 4342}#
- #{b\ 4527}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{aok\ 2367}#
+ #{a\ 2368}#
+ #{b\ 2369}#)
+ (#{rest\ 2184}#
+ #{b\ 2369}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #t
(reverse
- #{rkey\ 4452}#))))
- #{tmp\ 4513}#)
- (let ((#{tmp\ 4528}#
+ #{rkey\ 2294}#))))
+ #{tmp\ 2355}#)
+ (let ((#{tmp\ 2370}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2299}#
'(any . any))))
- (if (if #{tmp\ 4528}#
+ (if (if #{tmp\ 2370}#
(@apply
- (lambda (#{aok\ 4531}#
- #{r\ 4532}#)
+ (lambda (#{aok\ 2373}#
+ #{r\ 2374}#)
(if (eq?
(syntax->datum
- #{aok\
4531}#)
+ #{aok\
2373}#)
#:allow-other-keys)
- (#{id?\ 2496}#
- #{r\ 4532}#)
+ (#{id?\ 380}#
+ #{r\ 2374}#)
#f))
- #{tmp\ 4528}#)
+ #{tmp\ 2370}#)
#f)
(@apply
- (lambda (#{aok\ 4537}#
- #{r\ 4538}#)
- (#{rest\ 4342}#
- #{r\ 4538}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{aok\ 2379}#
+ #{r\ 2380}#)
+ (#{rest\ 2184}#
+ #{r\ 2380}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #t
(reverse
- #{rkey\
4452}#))))
- #{tmp\ 4528}#)
- (let ((#{tmp\ 4539}#
+ #{rkey\
2294}#))))
+ #{tmp\ 2370}#)
+ (let ((#{tmp\ 2381}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2299}#
'(any any))))
- (if (if #{tmp\ 4539}#
+ (if (if #{tmp\ 2381}#
(@apply
- (lambda (#{a\
4542}#
- #{b\
4543}#)
+ (lambda (#{a\
2384}#
+ #{b\
2385}#)
(eq?
(syntax->datum
- #{a\
4542}#)
+ #{a\
2384}#)
#:rest))
- #{tmp\ 4539}#)
+ #{tmp\ 2381}#)
#f)
(@apply
- (lambda (#{a\ 4546}#
- #{b\ 4547}#)
- (#{rest\ 4342}#
- #{b\ 4547}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{a\ 2388}#
+ #{b\ 2389}#)
+ (#{rest\ 2184}#
+ #{b\ 2389}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #f
(reverse
- #{rkey\
4452}#))))
- #{tmp\ 4539}#)
- (let ((#{tmp\ 4548}#
- (list #{tmp\
4457}#)))
- (if (if #{tmp\ 4548}#
+ #{rkey\
2294}#))))
+ #{tmp\ 2381}#)
+ (let ((#{tmp\ 2390}#
+ (list #{tmp\
2299}#)))
+ (if (if #{tmp\ 2390}#
(@apply
- (lambda (#{r\
4550}#)
- (#{id?\
2496}#
- #{r\
4550}#))
- #{tmp\ 4548}#)
+ (lambda (#{r\
2392}#)
+ (#{id?\ 380}#
+ #{r\
2392}#))
+ #{tmp\ 2390}#)
#f)
(@apply
- (lambda (#{r\
4552}#)
- (#{rest\ 4342}#
- #{r\ 4552}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{r\
2394}#)
+ (#{rest\ 2184}#
+ #{r\ 2394}#
+ #{req\ 2292}#
+ #{opt\ 2293}#
(cons #f
(reverse
-
#{rkey\ 4452}#))))
- #{tmp\ 4548}#)
- (let ((#{else\ 4554}#
- #{tmp\
4457}#))
+
#{rkey\ 2294}#))))
+ #{tmp\ 2390}#)
+ (let ((#{else\ 2396}#
+ #{tmp\
2299}#))
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args\
4333}#
- #{args\
4449}#)))))))))))))))))))))))
- (#{rest\ 4342}#
- (lambda (#{args\ 4555}#
- #{req\ 4556}#
- #{opt\ 4557}#
- #{kw\ 4558}#)
- (let ((#{tmp\ 4563}# #{args\ 4555}#))
- (let ((#{tmp\ 4564}# (list #{tmp\ 4563}#)))
- (if (if #{tmp\ 4564}#
+ #{orig-args\
2175}#
+ #{args\
2291}#)))))))))))))))))))))))
+ (#{rest\ 2184}#
+ (lambda (#{args\ 2397}#
+ #{req\ 2398}#
+ #{opt\ 2399}#
+ #{kw\ 2400}#)
+ (let ((#{tmp\ 2405}# #{args\ 2397}#))
+ (let ((#{tmp\ 2406}# (list #{tmp\ 2405}#)))
+ (if (if #{tmp\ 2406}#
(@apply
- (lambda (#{r\ 4566}#)
- (#{id?\ 2496}# #{r\ 4566}#))
- #{tmp\ 4564}#)
+ (lambda (#{r\ 2408}#)
+ (#{id?\ 380}# #{r\ 2408}#))
+ #{tmp\ 2406}#)
#f)
(@apply
- (lambda (#{r\ 4568}#)
- (#{check\ 4344}#
- #{req\ 4556}#
- #{opt\ 4557}#
- #{r\ 4568}#
- #{kw\ 4558}#))
- #{tmp\ 4564}#)
- (let ((#{else\ 4570}# #{tmp\ 4563}#))
+ (lambda (#{r\ 2410}#)
+ (#{check\ 2186}#
+ #{req\ 2398}#
+ #{opt\ 2399}#
+ #{r\ 2410}#
+ #{kw\ 2400}#))
+ #{tmp\ 2406}#)
+ (let ((#{else\ 2412}# #{tmp\ 2405}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 4333}#
- #{args\ 4555}#)))))))
- (#{check\ 4344}#
- (lambda (#{req\ 4571}#
- #{opt\ 4572}#
- #{rest\ 4573}#
- #{kw\ 4574}#)
- (if (#{distinct-bound-ids?\ 2561}#
+ #{orig-args\ 2175}#
+ #{args\ 2397}#)))))))
+ (#{check\ 2186}#
+ (lambda (#{req\ 2413}#
+ #{opt\ 2414}#
+ #{rest\ 2415}#
+ #{kw\ 2416}#)
+ (if (#{distinct-bound-ids?\ 445}#
(append
- #{req\ 4571}#
- (map car #{opt\ 4572}#)
- (if #{rest\ 4573}#
- (list #{rest\ 4573}#)
+ #{req\ 2413}#
+ (map car #{opt\ 2414}#)
+ (if #{rest\ 2415}#
+ (list #{rest\ 2415}#)
'())
- (if (pair? #{kw\ 4574}#)
- (map cadr (cdr #{kw\ 4574}#))
+ (if (pair? #{kw\ 2416}#)
+ (map cadr (cdr #{kw\ 2416}#))
'())))
(values
- #{req\ 4571}#
- #{opt\ 4572}#
- #{rest\ 4573}#
- #{kw\ 4574}#)
+ #{req\ 2413}#
+ #{opt\ 2414}#
+ #{rest\ 2415}#
+ #{kw\ 2416}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 4333}#)))))
+ #{orig-args\ 2175}#)))))
(begin
- (#{req\ 4336}# #{orig-args\ 4333}# (quote ()))))))
- (#{chi-lambda-case\ 2605}#
- (lambda (#{e\ 4582}#
- #{r\ 4583}#
- #{w\ 4584}#
- #{s\ 4585}#
- #{mod\ 4586}#
- #{get-formals\ 4587}#
- #{clauses\ 4588}#)
+ (#{req\ 2178}# #{orig-args\ 2175}# (quote ()))))))
+ (#{chi-lambda-case\ 489}#
+ (lambda (#{e\ 2424}#
+ #{r\ 2425}#
+ #{w\ 2426}#
+ #{s\ 2427}#
+ #{mod\ 2428}#
+ #{get-formals\ 2429}#
+ #{clauses\ 2430}#)
(letrec*
- ((#{expand-req\ 4597}#
- (lambda (#{req\ 4604}#
- #{opt\ 4605}#
- #{rest\ 4606}#
- #{kw\ 4607}#
- #{body\ 4608}#)
+ ((#{expand-req\ 2439}#
+ (lambda (#{req\ 2446}#
+ #{opt\ 2447}#
+ #{rest\ 2448}#
+ #{kw\ 2449}#
+ #{body\ 2450}#)
(begin
- (let ((#{vars\ 4616}#
- (map #{gen-var\ 2609}# #{req\ 4604}#))
- (#{labels\ 4617}#
- (#{gen-labels\ 2514}# #{req\ 4604}#)))
+ (let ((#{vars\ 2458}#
+ (map #{gen-var\ 493}# #{req\ 2446}#))
+ (#{labels\ 2459}#
+ (#{gen-labels\ 398}# #{req\ 2446}#)))
(begin
- (let ((#{r*\ 4620}#
- (#{extend-var-env\ 2486}#
- #{labels\ 4617}#
- #{vars\ 4616}#
- #{r\ 4583}#))
- (#{w*\ 4621}#
- (#{make-binding-wrap\ 2543}#
- #{req\ 4604}#
- #{labels\ 4617}#
- #{w\ 4584}#)))
- (#{expand-opt\ 4599}#
- (map syntax->datum #{req\ 4604}#)
- #{opt\ 4605}#
- #{rest\ 4606}#
- #{kw\ 4607}#
- #{body\ 4608}#
- (reverse #{vars\ 4616}#)
- #{r*\ 4620}#
- #{w*\ 4621}#
+ (let ((#{r*\ 2462}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 2459}#
+ #{vars\ 2458}#
+ #{r\ 2425}#))
+ (#{w*\ 2463}#
+ (#{make-binding-wrap\ 427}#
+ #{req\ 2446}#
+ #{labels\ 2459}#
+ #{w\ 2426}#)))
+ (#{expand-opt\ 2441}#
+ (map syntax->datum #{req\ 2446}#)
+ #{opt\ 2447}#
+ #{rest\ 2448}#
+ #{kw\ 2449}#
+ #{body\ 2450}#
+ (reverse #{vars\ 2458}#)
+ #{r*\ 2462}#
+ #{w*\ 2463}#
'()
'())))))))
- (#{expand-opt\ 4599}#
- (lambda (#{req\ 4622}#
- #{opt\ 4623}#
- #{rest\ 4624}#
- #{kw\ 4625}#
- #{body\ 4626}#
- #{vars\ 4627}#
- #{r*\ 4628}#
- #{w*\ 4629}#
- #{out\ 4630}#
- #{inits\ 4631}#)
- (if (pair? #{opt\ 4623}#)
- (let ((#{tmp\ 4644}# (car #{opt\ 4623}#)))
- (let ((#{tmp\ 4645}#
+ (#{expand-opt\ 2441}#
+ (lambda (#{req\ 2464}#
+ #{opt\ 2465}#
+ #{rest\ 2466}#
+ #{kw\ 2467}#
+ #{body\ 2468}#
+ #{vars\ 2469}#
+ #{r*\ 2470}#
+ #{w*\ 2471}#
+ #{out\ 2472}#
+ #{inits\ 2473}#)
+ (if (pair? #{opt\ 2465}#)
+ (let ((#{tmp\ 2486}# (car #{opt\ 2465}#)))
+ (let ((#{tmp\ 2487}#
($sc-dispatch
- #{tmp\ 4644}#
+ #{tmp\ 2486}#
'(any any))))
- (if #{tmp\ 4645}#
+ (if #{tmp\ 2487}#
(@apply
- (lambda (#{id\ 4648}# #{i\ 4649}#)
+ (lambda (#{id\ 2490}# #{i\ 2491}#)
(begin
- (let ((#{v\ 4652}#
- (#{gen-var\ 2609}# #{id\ 4648}#)))
+ (let ((#{v\ 2494}#
+ (#{gen-var\ 493}# #{id\ 2490}#)))
(begin
- (let ((#{l\ 4654}#
- (#{gen-labels\ 2514}#
- (list #{v\ 4652}#))))
+ (let ((#{l\ 2496}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2494}#))))
(begin
- (let ((#{r**\ 4656}#
- (#{extend-var-env\ 2486}#
- #{l\ 4654}#
- (list #{v\ 4652}#)
- #{r*\ 4628}#)))
+ (let ((#{r**\ 2498}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2496}#
+ (list #{v\ 2494}#)
+ #{r*\ 2470}#)))
(begin
- (let ((#{w**\ 4658}#
- (#{make-binding-wrap\
2543}#
- (list #{id\ 4648}#)
- #{l\ 4654}#
- #{w*\ 4629}#)))
- (#{expand-opt\ 4599}#
- #{req\ 4622}#
- (cdr #{opt\ 4623}#)
- #{rest\ 4624}#
- #{kw\ 4625}#
- #{body\ 4626}#
- (cons #{v\ 4652}#
- #{vars\ 4627}#)
- #{r**\ 4656}#
- #{w**\ 4658}#
+ (let ((#{w**\ 2500}#
+ (#{make-binding-wrap\
427}#
+ (list #{id\ 2490}#)
+ #{l\ 2496}#
+ #{w*\ 2471}#)))
+ (#{expand-opt\ 2441}#
+ #{req\ 2464}#
+ (cdr #{opt\ 2465}#)
+ #{rest\ 2466}#
+ #{kw\ 2467}#
+ #{body\ 2468}#
+ (cons #{v\ 2494}#
+ #{vars\ 2469}#)
+ #{r**\ 2498}#
+ #{w**\ 2500}#
(cons (syntax->datum
- #{id\ 4648}#)
- #{out\ 4630}#)
- (cons (#{chi\ 2581}#
- #{i\ 4649}#
- #{r*\ 4628}#
- #{w*\ 4629}#
- #{mod\ 4586}#)
- #{inits\
4631}#)))))))))))
- #{tmp\ 4645}#)
+ #{id\ 2490}#)
+ #{out\ 2472}#)
+ (cons (#{chi\ 465}#
+ #{i\ 2491}#
+ #{r*\ 2470}#
+ #{w*\ 2471}#
+ #{mod\ 2428}#)
+ #{inits\
2473}#)))))))))))
+ #{tmp\ 2487}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4644}#))))
- (if #{rest\ 4624}#
+ #{tmp\ 2486}#))))
+ (if #{rest\ 2466}#
(begin
- (let ((#{v\ 4663}#
- (#{gen-var\ 2609}# #{rest\ 4624}#)))
+ (let ((#{v\ 2505}#
+ (#{gen-var\ 493}# #{rest\ 2466}#)))
(begin
- (let ((#{l\ 4665}#
- (#{gen-labels\ 2514}#
- (list #{v\ 4663}#))))
+ (let ((#{l\ 2507}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2505}#))))
(begin
- (let ((#{r*\ 4667}#
- (#{extend-var-env\ 2486}#
- #{l\ 4665}#
- (list #{v\ 4663}#)
- #{r*\ 4628}#)))
+ (let ((#{r*\ 2509}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2507}#
+ (list #{v\ 2505}#)
+ #{r*\ 2470}#)))
(begin
- (let ((#{w*\ 4669}#
- (#{make-binding-wrap\ 2543}#
- (list #{rest\ 4624}#)
- #{l\ 4665}#
- #{w*\ 4629}#)))
- (#{expand-kw\ 4601}#
- #{req\ 4622}#
- (if (pair? #{out\ 4630}#)
- (reverse #{out\ 4630}#)
+ (let ((#{w*\ 2511}#
+ (#{make-binding-wrap\ 427}#
+ (list #{rest\ 2466}#)
+ #{l\ 2507}#
+ #{w*\ 2471}#)))
+ (#{expand-kw\ 2443}#
+ #{req\ 2464}#
+ (if (pair? #{out\ 2472}#)
+ (reverse #{out\ 2472}#)
#f)
- (syntax->datum #{rest\ 4624}#)
- (if (pair? #{kw\ 4625}#)
- (cdr #{kw\ 4625}#)
- #{kw\ 4625}#)
- #{body\ 4626}#
- (cons #{v\ 4663}# #{vars\ 4627}#)
- #{r*\ 4667}#
- #{w*\ 4669}#
- (if (pair? #{kw\ 4625}#)
- (car #{kw\ 4625}#)
+ (syntax->datum #{rest\ 2466}#)
+ (if (pair? #{kw\ 2467}#)
+ (cdr #{kw\ 2467}#)
+ #{kw\ 2467}#)
+ #{body\ 2468}#
+ (cons #{v\ 2505}# #{vars\ 2469}#)
+ #{r*\ 2509}#
+ #{w*\ 2511}#
+ (if (pair? #{kw\ 2467}#)
+ (car #{kw\ 2467}#)
#f)
'()
- #{inits\ 4631}#)))))))))
- (#{expand-kw\ 4601}#
- #{req\ 4622}#
- (if (pair? #{out\ 4630}#)
- (reverse #{out\ 4630}#)
+ #{inits\ 2473}#)))))))))
+ (#{expand-kw\ 2443}#
+ #{req\ 2464}#
+ (if (pair? #{out\ 2472}#)
+ (reverse #{out\ 2472}#)
#f)
#f
- (if (pair? #{kw\ 4625}#)
- (cdr #{kw\ 4625}#)
- #{kw\ 4625}#)
- #{body\ 4626}#
- #{vars\ 4627}#
- #{r*\ 4628}#
- #{w*\ 4629}#
- (if (pair? #{kw\ 4625}#) (car #{kw\ 4625}#) #f)
+ (if (pair? #{kw\ 2467}#)
+ (cdr #{kw\ 2467}#)
+ #{kw\ 2467}#)
+ #{body\ 2468}#
+ #{vars\ 2469}#
+ #{r*\ 2470}#
+ #{w*\ 2471}#
+ (if (pair? #{kw\ 2467}#) (car #{kw\ 2467}#) #f)
'()
- #{inits\ 4631}#)))))
- (#{expand-kw\ 4601}#
- (lambda (#{req\ 4671}#
- #{opt\ 4672}#
- #{rest\ 4673}#
- #{kw\ 4674}#
- #{body\ 4675}#
- #{vars\ 4676}#
- #{r*\ 4677}#
- #{w*\ 4678}#
- #{aok\ 4679}#
- #{out\ 4680}#
- #{inits\ 4681}#)
- (if (pair? #{kw\ 4674}#)
- (let ((#{tmp\ 4695}# (car #{kw\ 4674}#)))
- (let ((#{tmp\ 4696}#
+ #{inits\ 2473}#)))))
+ (#{expand-kw\ 2443}#
+ (lambda (#{req\ 2513}#
+ #{opt\ 2514}#
+ #{rest\ 2515}#
+ #{kw\ 2516}#
+ #{body\ 2517}#
+ #{vars\ 2518}#
+ #{r*\ 2519}#
+ #{w*\ 2520}#
+ #{aok\ 2521}#
+ #{out\ 2522}#
+ #{inits\ 2523}#)
+ (if (pair? #{kw\ 2516}#)
+ (let ((#{tmp\ 2537}# (car #{kw\ 2516}#)))
+ (let ((#{tmp\ 2538}#
($sc-dispatch
- #{tmp\ 4695}#
+ #{tmp\ 2537}#
'(any any any))))
- (if #{tmp\ 4696}#
+ (if #{tmp\ 2538}#
(@apply
- (lambda (#{k\ 4700}# #{id\ 4701}# #{i\ 4702}#)
+ (lambda (#{k\ 2542}# #{id\ 2543}# #{i\ 2544}#)
(begin
- (let ((#{v\ 4705}#
- (#{gen-var\ 2609}# #{id\ 4701}#)))
+ (let ((#{v\ 2547}#
+ (#{gen-var\ 493}# #{id\ 2543}#)))
(begin
- (let ((#{l\ 4707}#
- (#{gen-labels\ 2514}#
- (list #{v\ 4705}#))))
+ (let ((#{l\ 2549}#
+ (#{gen-labels\ 398}#
+ (list #{v\ 2547}#))))
(begin
- (let ((#{r**\ 4709}#
- (#{extend-var-env\ 2486}#
- #{l\ 4707}#
- (list #{v\ 4705}#)
- #{r*\ 4677}#)))
+ (let ((#{r**\ 2551}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2549}#
+ (list #{v\ 2547}#)
+ #{r*\ 2519}#)))
(begin
- (let ((#{w**\ 4711}#
- (#{make-binding-wrap\
2543}#
- (list #{id\ 4701}#)
- #{l\ 4707}#
- #{w*\ 4678}#)))
- (#{expand-kw\ 4601}#
- #{req\ 4671}#
- #{opt\ 4672}#
- #{rest\ 4673}#
- (cdr #{kw\ 4674}#)
- #{body\ 4675}#
- (cons #{v\ 4705}#
- #{vars\ 4676}#)
- #{r**\ 4709}#
- #{w**\ 4711}#
- #{aok\ 4679}#
+ (let ((#{w**\ 2553}#
+ (#{make-binding-wrap\
427}#
+ (list #{id\ 2543}#)
+ #{l\ 2549}#
+ #{w*\ 2520}#)))
+ (#{expand-kw\ 2443}#
+ #{req\ 2513}#
+ #{opt\ 2514}#
+ #{rest\ 2515}#
+ (cdr #{kw\ 2516}#)
+ #{body\ 2517}#
+ (cons #{v\ 2547}#
+ #{vars\ 2518}#)
+ #{r**\ 2551}#
+ #{w**\ 2553}#
+ #{aok\ 2521}#
(cons (list (syntax->datum
- #{k\ 4700}#)
+ #{k\ 2542}#)
(syntax->datum
- #{id\ 4701}#)
- #{v\ 4705}#)
- #{out\ 4680}#)
- (cons (#{chi\ 2581}#
- #{i\ 4702}#
- #{r*\ 4677}#
- #{w*\ 4678}#
- #{mod\ 4586}#)
- #{inits\
4681}#)))))))))))
- #{tmp\ 4696}#)
+ #{id\ 2543}#)
+ #{v\ 2547}#)
+ #{out\ 2522}#)
+ (cons (#{chi\ 465}#
+ #{i\ 2544}#
+ #{r*\ 2519}#
+ #{w*\ 2520}#
+ #{mod\ 2428}#)
+ #{inits\
2523}#)))))))))))
+ #{tmp\ 2538}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4695}#))))
- (#{expand-body\ 4603}#
- #{req\ 4671}#
- #{opt\ 4672}#
- #{rest\ 4673}#
+ #{tmp\ 2537}#))))
+ (#{expand-body\ 2445}#
+ #{req\ 2513}#
+ #{opt\ 2514}#
+ #{rest\ 2515}#
(if (begin
- (let ((#{t\ 4715}# #{aok\ 4679}#))
- (if #{t\ 4715}#
- #{t\ 4715}#
- (pair? #{out\ 4680}#))))
- (cons #{aok\ 4679}# (reverse #{out\ 4680}#))
+ (let ((#{t\ 2557}# #{aok\ 2521}#))
+ (if #{t\ 2557}#
+ #{t\ 2557}#
+ (pair? #{out\ 2522}#))))
+ (cons #{aok\ 2521}# (reverse #{out\ 2522}#))
#f)
- #{body\ 4675}#
- (reverse #{vars\ 4676}#)
- #{r*\ 4677}#
- #{w*\ 4678}#
- (reverse #{inits\ 4681}#)
+ #{body\ 2517}#
+ (reverse #{vars\ 2518}#)
+ #{r*\ 2519}#
+ #{w*\ 2520}#
+ (reverse #{inits\ 2523}#)
'()))))
- (#{expand-body\ 4603}#
- (lambda (#{req\ 4717}#
- #{opt\ 4718}#
- #{rest\ 4719}#
- #{kw\ 4720}#
- #{body\ 4721}#
- #{vars\ 4722}#
- #{r*\ 4723}#
- #{w*\ 4724}#
- #{inits\ 4725}#
- #{meta\ 4726}#)
- (let ((#{tmp\ 4737}# #{body\ 4721}#))
- (let ((#{tmp\ 4738}#
+ (#{expand-body\ 2445}#
+ (lambda (#{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ #{body\ 2563}#
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{inits\ 2567}#
+ #{meta\ 2568}#)
+ (let ((#{tmp\ 2579}# #{body\ 2563}#))
+ (let ((#{tmp\ 2580}#
($sc-dispatch
- #{tmp\ 4737}#
+ #{tmp\ 2579}#
'(any any . each-any))))
- (if (if #{tmp\ 4738}#
+ (if (if #{tmp\ 2580}#
(@apply
- (lambda (#{docstring\ 4742}#
- #{e1\ 4743}#
- #{e2\ 4744}#)
+ (lambda (#{docstring\ 2584}#
+ #{e1\ 2585}#
+ #{e2\ 2586}#)
(string?
- (syntax->datum #{docstring\ 4742}#)))
- #{tmp\ 4738}#)
+ (syntax->datum #{docstring\ 2584}#)))
+ #{tmp\ 2580}#)
#f)
(@apply
- (lambda (#{docstring\ 4748}#
- #{e1\ 4749}#
- #{e2\ 4750}#)
- (#{expand-body\ 4603}#
- #{req\ 4717}#
- #{opt\ 4718}#
- #{rest\ 4719}#
- #{kw\ 4720}#
- (cons #{e1\ 4749}# #{e2\ 4750}#)
- #{vars\ 4722}#
- #{r*\ 4723}#
- #{w*\ 4724}#
- #{inits\ 4725}#
+ (lambda (#{docstring\ 2590}#
+ #{e1\ 2591}#
+ #{e2\ 2592}#)
+ (#{expand-body\ 2445}#
+ #{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ (cons #{e1\ 2591}# #{e2\ 2592}#)
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{inits\ 2567}#
(append
- #{meta\ 4726}#
+ #{meta\ 2568}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 4748}#))))))
- #{tmp\ 4738}#)
- (let ((#{tmp\ 4753}#
+ #{docstring\ 2590}#))))))
+ #{tmp\ 2580}#)
+ (let ((#{tmp\ 2595}#
($sc-dispatch
- #{tmp\ 4737}#
+ #{tmp\ 2579}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 4753}#
+ (if #{tmp\ 2595}#
(@apply
- (lambda (#{k\ 4758}#
- #{v\ 4759}#
- #{e1\ 4760}#
- #{e2\ 4761}#)
- (#{expand-body\ 4603}#
- #{req\ 4717}#
- #{opt\ 4718}#
- #{rest\ 4719}#
- #{kw\ 4720}#
- (cons #{e1\ 4760}# #{e2\ 4761}#)
- #{vars\ 4722}#
- #{r*\ 4723}#
- #{w*\ 4724}#
- #{inits\ 4725}#
+ (lambda (#{k\ 2600}#
+ #{v\ 2601}#
+ #{e1\ 2602}#
+ #{e2\ 2603}#)
+ (#{expand-body\ 2445}#
+ #{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ (cons #{e1\ 2602}# #{e2\ 2603}#)
+ #{vars\ 2564}#
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{inits\ 2567}#
(append
- #{meta\ 4726}#
+ #{meta\ 2568}#
(syntax->datum
- (map cons #{k\ 4758}# #{v\ 4759}#)))))
- #{tmp\ 4753}#)
- (let ((#{tmp\ 4765}#
+ (map cons #{k\ 2600}# #{v\ 2601}#)))))
+ #{tmp\ 2595}#)
+ (let ((#{tmp\ 2607}#
($sc-dispatch
- #{tmp\ 4737}#
+ #{tmp\ 2579}#
'(any . each-any))))
- (if #{tmp\ 4765}#
+ (if #{tmp\ 2607}#
(@apply
- (lambda (#{e1\ 4768}# #{e2\ 4769}#)
+ (lambda (#{e1\ 2610}# #{e2\ 2611}#)
(values
- #{meta\ 4726}#
- #{req\ 4717}#
- #{opt\ 4718}#
- #{rest\ 4719}#
- #{kw\ 4720}#
- #{inits\ 4725}#
- #{vars\ 4722}#
- (#{chi-body\ 2589}#
- (cons #{e1\ 4768}# #{e2\ 4769}#)
- (#{source-wrap\ 2567}#
- #{e\ 4582}#
- #{w\ 4584}#
- #{s\ 4585}#
- #{mod\ 4586}#)
- #{r*\ 4723}#
- #{w*\ 4724}#
- #{mod\ 4586}#)))
- #{tmp\ 4765}#)
+ #{meta\ 2568}#
+ #{req\ 2559}#
+ #{opt\ 2560}#
+ #{rest\ 2561}#
+ #{kw\ 2562}#
+ #{inits\ 2567}#
+ #{vars\ 2564}#
+ (#{chi-body\ 473}#
+ (cons #{e1\ 2610}# #{e2\ 2611}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2424}#
+ #{w\ 2426}#
+ #{s\ 2427}#
+ #{mod\ 2428}#)
+ #{r*\ 2565}#
+ #{w*\ 2566}#
+ #{mod\ 2428}#)))
+ #{tmp\ 2607}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4737}#)))))))))))
+ #{tmp\ 2579}#)))))))))))
(begin
- (let ((#{tmp\ 4771}# #{clauses\ 4588}#))
- (let ((#{tmp\ 4772}#
- ($sc-dispatch #{tmp\ 4771}# (quote ()))))
- (if #{tmp\ 4772}#
+ (let ((#{tmp\ 2613}# #{clauses\ 2430}#))
+ (let ((#{tmp\ 2614}#
+ ($sc-dispatch #{tmp\ 2613}# (quote ()))))
+ (if #{tmp\ 2614}#
(@apply
(lambda () (values (quote ()) #f))
- #{tmp\ 4772}#)
- (let ((#{tmp\ 4773}#
+ #{tmp\ 2614}#)
+ (let ((#{tmp\ 2615}#
($sc-dispatch
- #{tmp\ 4771}#
+ #{tmp\ 2613}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 4773}#
+ (if #{tmp\ 2615}#
(@apply
- (lambda (#{args\ 4780}#
- #{e1\ 4781}#
- #{e2\ 4782}#
- #{args*\ 4783}#
- #{e1*\ 4784}#
- #{e2*\ 4785}#)
+ (lambda (#{args\ 2622}#
+ #{e1\ 2623}#
+ #{e2\ 2624}#
+ #{args*\ 2625}#
+ #{e1*\ 2626}#
+ #{e2*\ 2627}#)
(call-with-values
(lambda ()
- (#{get-formals\ 4587}# #{args\ 4780}#))
- (lambda (#{req\ 4786}#
- #{opt\ 4787}#
- #{rest\ 4788}#
- #{kw\ 4789}#)
+ (#{get-formals\ 2429}# #{args\ 2622}#))
+ (lambda (#{req\ 2628}#
+ #{opt\ 2629}#
+ #{rest\ 2630}#
+ #{kw\ 2631}#)
(call-with-values
(lambda ()
- (#{expand-req\ 4597}#
- #{req\ 4786}#
- #{opt\ 4787}#
- #{rest\ 4788}#
- #{kw\ 4789}#
- (cons #{e1\ 4781}# #{e2\ 4782}#)))
- (lambda (#{meta\ 4795}#
- #{req\ 4796}#
- #{opt\ 4797}#
- #{rest\ 4798}#
- #{kw\ 4799}#
- #{inits\ 4800}#
- #{vars\ 4801}#
- #{body\ 4802}#)
+ (#{expand-req\ 2439}#
+ #{req\ 2628}#
+ #{opt\ 2629}#
+ #{rest\ 2630}#
+ #{kw\ 2631}#
+ (cons #{e1\ 2623}# #{e2\ 2624}#)))
+ (lambda (#{meta\ 2637}#
+ #{req\ 2638}#
+ #{opt\ 2639}#
+ #{rest\ 2640}#
+ #{kw\ 2641}#
+ #{inits\ 2642}#
+ #{vars\ 2643}#
+ #{body\ 2644}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2605}#
- #{e\ 4582}#
- #{r\ 4583}#
- #{w\ 4584}#
- #{s\ 4585}#
- #{mod\ 4586}#
- #{get-formals\ 4587}#
- (map (lambda (#{tmp\ 4813}#
- #{tmp\ 4812}#
- #{tmp\ 4811}#)
- (cons #{tmp\ 4811}#
- (cons #{tmp\ 4812}#
- #{tmp\
4813}#)))
- #{e2*\ 4785}#
- #{e1*\ 4784}#
- #{args*\ 4783}#)))
- (lambda (#{meta*\ 4815}#
- #{else*\ 4816}#)
+ (#{chi-lambda-case\ 489}#
+ #{e\ 2424}#
+ #{r\ 2425}#
+ #{w\ 2426}#
+ #{s\ 2427}#
+ #{mod\ 2428}#
+ #{get-formals\ 2429}#
+ (map (lambda (#{tmp\ 2655}#
+ #{tmp\ 2654}#
+ #{tmp\ 2653}#)
+ (cons #{tmp\ 2653}#
+ (cons #{tmp\ 2654}#
+ #{tmp\
2655}#)))
+ #{e2*\ 2627}#
+ #{e1*\ 2626}#
+ #{args*\ 2625}#)))
+ (lambda (#{meta*\ 2657}#
+ #{else*\ 2658}#)
(values
(append
- #{meta\ 4795}#
- #{meta*\ 4815}#)
- (#{build-lambda-case\ 2442}#
- #{s\ 4585}#
- #{req\ 4796}#
- #{opt\ 4797}#
- #{rest\ 4798}#
- #{kw\ 4799}#
- #{inits\ 4800}#
- #{vars\ 4801}#
- #{body\ 4802}#
- #{else*\ 4816}#)))))))))
- #{tmp\ 4773}#)
+ #{meta\ 2637}#
+ #{meta*\ 2657}#)
+ (#{build-lambda-case\ 326}#
+ #{s\ 2427}#
+ #{req\ 2638}#
+ #{opt\ 2639}#
+ #{rest\ 2640}#
+ #{kw\ 2641}#
+ #{inits\ 2642}#
+ #{vars\ 2643}#
+ #{body\ 2644}#
+ #{else*\ 2658}#)))))))))
+ #{tmp\ 2615}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4771}#))))))))))
- (#{strip\ 2607}#
- (lambda (#{x\ 4819}# #{w\ 4820}#)
+ #{tmp\ 2613}#))))))))))
+ (#{strip\ 491}#
+ (lambda (#{x\ 2661}# #{w\ 2662}#)
(if (memq 'top
- (#{wrap-marks\ 2503}# #{w\ 4820}#))
- #{x\ 4819}#
+ (#{wrap-marks\ 387}# #{w\ 2662}#))
+ #{x\ 2661}#
(letrec*
- ((#{f\ 4826}#
- (lambda (#{x\ 4827}#)
- (if (#{syntax-object?\ 2460}# #{x\ 4827}#)
- (#{strip\ 2607}#
- (#{syntax-object-expression\ 2462}# #{x\ 4827}#)
- (#{syntax-object-wrap\ 2464}# #{x\ 4827}#))
- (if (pair? #{x\ 4827}#)
+ ((#{f\ 2668}#
+ (lambda (#{x\ 2669}#)
+ (if (#{syntax-object?\ 344}# #{x\ 2669}#)
+ (#{strip\ 491}#
+ (#{syntax-object-expression\ 346}# #{x\ 2669}#)
+ (#{syntax-object-wrap\ 348}# #{x\ 2669}#))
+ (if (pair? #{x\ 2669}#)
(begin
- (let ((#{a\ 4834}# (#{f\ 4826}# (car #{x\ 4827}#)))
- (#{d\ 4835}#
- (#{f\ 4826}# (cdr #{x\ 4827}#))))
- (if (if (eq? #{a\ 4834}# (car #{x\ 4827}#))
- (eq? #{d\ 4835}# (cdr #{x\ 4827}#))
+ (let ((#{a\ 2676}# (#{f\ 2668}# (car #{x\ 2669}#)))
+ (#{d\ 2677}#
+ (#{f\ 2668}# (cdr #{x\ 2669}#))))
+ (if (if (eq? #{a\ 2676}# (car #{x\ 2669}#))
+ (eq? #{d\ 2677}# (cdr #{x\ 2669}#))
#f)
- #{x\ 4827}#
- (cons #{a\ 4834}# #{d\ 4835}#))))
- (if (vector? #{x\ 4827}#)
+ #{x\ 2669}#
+ (cons #{a\ 2676}# #{d\ 2677}#))))
+ (if (vector? #{x\ 2669}#)
(begin
- (let ((#{old\ 4841}# (vector->list #{x\ 4827}#)))
+ (let ((#{old\ 2683}# (vector->list #{x\ 2669}#)))
(begin
- (let ((#{new\ 4843}#
- (map #{f\ 4826}# #{old\ 4841}#)))
- (if (#{and-map*\ 2144}#
+ (let ((#{new\ 2685}#
+ (map #{f\ 2668}# #{old\ 2683}#)))
+ (if (#{and-map*\ 36}#
eq?
- #{old\ 4841}#
- #{new\ 4843}#)
- #{x\ 4827}#
- (list->vector #{new\ 4843}#))))))
- #{x\ 4827}#))))))
- (begin (#{f\ 4826}# #{x\ 4819}#))))))
- (#{gen-var\ 2609}#
- (lambda (#{id\ 4845}#)
+ #{old\ 2683}#
+ #{new\ 2685}#)
+ #{x\ 2669}#
+ (list->vector #{new\ 2685}#))))))
+ #{x\ 2669}#))))))
+ (begin (#{f\ 2668}# #{x\ 2661}#))))))
+ (#{gen-var\ 493}#
+ (lambda (#{id\ 2687}#)
(begin
- (let ((#{id\ 4848}#
- (if (#{syntax-object?\ 2460}# #{id\ 4845}#)
- (#{syntax-object-expression\ 2462}# #{id\ 4845}#)
- #{id\ 4845}#)))
+ (let ((#{id\ 2690}#
+ (if (#{syntax-object?\ 344}# #{id\ 2687}#)
+ (#{syntax-object-expression\ 346}# #{id\ 2687}#)
+ #{id\ 2687}#)))
(gensym
- (string-append (symbol->string #{id\ 4848}#) " "))))))
- (#{lambda-var-list\ 2611}#
- (lambda (#{vars\ 4850}#)
+ (string-append (symbol->string #{id\ 2690}#) " "))))))
+ (#{lambda-var-list\ 495}#
+ (lambda (#{vars\ 2692}#)
(letrec*
- ((#{lvl\ 4856}#
- (lambda (#{vars\ 4857}# #{ls\ 4858}# #{w\ 4859}#)
- (if (pair? #{vars\ 4857}#)
- (#{lvl\ 4856}#
- (cdr #{vars\ 4857}#)
- (cons (#{wrap\ 2565}#
- (car #{vars\ 4857}#)
- #{w\ 4859}#
+ ((#{lvl\ 2698}#
+ (lambda (#{vars\ 2699}# #{ls\ 2700}# #{w\ 2701}#)
+ (if (pair? #{vars\ 2699}#)
+ (#{lvl\ 2698}#
+ (cdr #{vars\ 2699}#)
+ (cons (#{wrap\ 449}#
+ (car #{vars\ 2699}#)
+ #{w\ 2701}#
#f)
- #{ls\ 4858}#)
- #{w\ 4859}#)
- (if (#{id?\ 2496}# #{vars\ 4857}#)
- (cons (#{wrap\ 2565}# #{vars\ 4857}# #{w\ 4859}# #f)
- #{ls\ 4858}#)
- (if (null? #{vars\ 4857}#)
- #{ls\ 4858}#
- (if (#{syntax-object?\ 2460}# #{vars\ 4857}#)
- (#{lvl\ 4856}#
- (#{syntax-object-expression\ 2462}#
- #{vars\ 4857}#)
- #{ls\ 4858}#
- (#{join-wraps\ 2547}#
- #{w\ 4859}#
- (#{syntax-object-wrap\ 2464}# #{vars\ 4857}#)))
- (cons #{vars\ 4857}# #{ls\ 4858}#))))))))
+ #{ls\ 2700}#)
+ #{w\ 2701}#)
+ (if (#{id?\ 380}# #{vars\ 2699}#)
+ (cons (#{wrap\ 449}# #{vars\ 2699}# #{w\ 2701}# #f)
+ #{ls\ 2700}#)
+ (if (null? #{vars\ 2699}#)
+ #{ls\ 2700}#
+ (if (#{syntax-object?\ 344}# #{vars\ 2699}#)
+ (#{lvl\ 2698}#
+ (#{syntax-object-expression\ 346}#
+ #{vars\ 2699}#)
+ #{ls\ 2700}#
+ (#{join-wraps\ 431}#
+ #{w\ 2701}#
+ (#{syntax-object-wrap\ 348}# #{vars\ 2699}#)))
+ (cons #{vars\ 2699}# #{ls\ 2700}#))))))))
(begin
- (#{lvl\ 4856}#
- #{vars\ 4850}#
+ (#{lvl\ 2698}#
+ #{vars\ 2692}#
'()
'(())))))))
(begin
- (set! #{make-primitive-ref\ 2358}#
- (lambda (#{src\ 2832}# #{name\ 2833}#)
+ (set! #{make-primitive-ref\ 242}#
+ (lambda (#{src\ 704}# #{name\ 705}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 2832}#
- #{name\ 2833}#)))
- (set! #{fx+\ 2397}# +)
- (set! #{fx-\ 2399}# -)
- (set! #{fx=\ 2401}# =)
- (set! #{fx<\ 2403}# <)
- (set! #{set-syntax-object-expression!\ 2468}#
- (lambda (#{x\ 3210}# #{update\ 3211}#)
- (vector-set! #{x\ 3210}# 1 #{update\ 3211}#)))
- (set! #{set-syntax-object-wrap!\ 2470}#
- (lambda (#{x\ 3214}# #{update\ 3215}#)
- (vector-set! #{x\ 3214}# 2 #{update\ 3215}#)))
- (set! #{set-syntax-object-module!\ 2472}#
- (lambda (#{x\ 3218}# #{update\ 3219}#)
- (vector-set! #{x\ 3218}# 3 #{update\ 3219}#)))
- (set! #{binding-type\ 2479}# car)
- (set! #{binding-value\ 2481}# cdr)
- (set! #{make-wrap\ 2501}# cons)
- (set! #{wrap-marks\ 2503}# car)
- (set! #{wrap-subst\ 2505}# cdr)
- (set! #{ribcage?\ 2519}#
- (lambda (#{x\ 3296}#)
- (if (vector? #{x\ 3296}#)
- (if (= (vector-length #{x\ 3296}#) 4)
- (eq? (vector-ref #{x\ 3296}# 0) (quote ribcage))
+ #{src\ 704}#
+ #{name\ 705}#)))
+ (set! #{fx+\ 281}# +)
+ (set! #{fx-\ 283}# -)
+ (set! #{fx=\ 285}# =)
+ (set! #{fx<\ 287}# <)
+ (set! #{set-syntax-object-expression!\ 352}#
+ (lambda (#{x\ 1082}# #{update\ 1083}#)
+ (vector-set! #{x\ 1082}# 1 #{update\ 1083}#)))
+ (set! #{set-syntax-object-wrap!\ 354}#
+ (lambda (#{x\ 1086}# #{update\ 1087}#)
+ (vector-set! #{x\ 1086}# 2 #{update\ 1087}#)))
+ (set! #{set-syntax-object-module!\ 356}#
+ (lambda (#{x\ 1090}# #{update\ 1091}#)
+ (vector-set! #{x\ 1090}# 3 #{update\ 1091}#)))
+ (set! #{binding-type\ 363}# car)
+ (set! #{binding-value\ 365}# cdr)
+ (set! #{make-wrap\ 385}# cons)
+ (set! #{wrap-marks\ 387}# car)
+ (set! #{wrap-subst\ 389}# cdr)
+ (set! #{ribcage?\ 403}#
+ (lambda (#{x\ 1168}#)
+ (if (vector? #{x\ 1168}#)
+ (if (= (vector-length #{x\ 1168}#) 4)
+ (eq? (vector-ref #{x\ 1168}# 0) (quote ribcage))
#f)
#f)))
(begin
- (#{global-extend\ 2492}#
+ (#{global-extend\ 376}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 2492}#
+ (#{global-extend\ 376}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 2492}#
+ (#{global-extend\ 376}#
'core
'fluid-let-syntax
- (lambda (#{e\ 4870}#
- #{r\ 4871}#
- #{w\ 4872}#
- #{s\ 4873}#
- #{mod\ 4874}#)
- (let ((#{tmp\ 4880}# #{e\ 4870}#))
- (let ((#{tmp\ 4881}#
+ (lambda (#{e\ 2712}#
+ #{r\ 2713}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#)
+ (let ((#{tmp\ 2722}# #{e\ 2712}#))
+ (let ((#{tmp\ 2723}#
($sc-dispatch
- #{tmp\ 4880}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4881}#
+ #{tmp\ 2722}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 2723}#
(@apply
- (lambda (#{_\ 4887}#
- #{var\ 4888}#
- #{val\ 4889}#
- #{e1\ 4890}#
- #{e2\ 4891}#)
- (#{valid-bound-ids?\ 2559}# #{var\ 4888}#))
- #{tmp\ 4881}#)
+ (lambda (#{var\ 2728}#
+ #{val\ 2729}#
+ #{e1\ 2730}#
+ #{e2\ 2731}#)
+ (#{valid-bound-ids?\ 443}# #{var\ 2728}#))
+ #{tmp\ 2723}#)
#f)
(@apply
- (lambda (#{_\ 4898}#
- #{var\ 4899}#
- #{val\ 4900}#
- #{e1\ 4901}#
- #{e2\ 4902}#)
+ (lambda (#{var\ 2737}#
+ #{val\ 2738}#
+ #{e1\ 2739}#
+ #{e2\ 2740}#)
(begin
- (let ((#{names\ 4904}#
- (map (lambda (#{x\ 4905}#)
- (#{id-var-name\ 2553}#
- #{x\ 4905}#
- #{w\ 4872}#))
- #{var\ 4899}#)))
+ (let ((#{names\ 2742}#
+ (map (lambda (#{x\ 2743}#)
+ (#{id-var-name\ 437}#
+ #{x\ 2743}#
+ #{w\ 2714}#))
+ #{var\ 2737}#)))
(begin
(for-each
- (lambda (#{id\ 4908}# #{n\ 4909}#)
+ (lambda (#{id\ 2746}# #{n\ 2747}#)
(begin
- (let ((#{atom-key\ 4914}#
- (#{binding-type\ 2479}#
- (#{lookup\ 2490}#
- #{n\ 4909}#
- #{r\ 4871}#
- #{mod\ 4874}#))))
- (if (eqv? #{atom-key\ 4914}#
+ (let ((#{atom-key\ 2752}#
+ (#{binding-type\ 363}#
+ (#{lookup\ 374}#
+ #{n\ 2747}#
+ #{r\ 2713}#
+ #{mod\ 2716}#))))
+ (if (eqv? #{atom-key\ 2752}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 4870}#
- (#{source-wrap\ 2567}#
- #{id\ 4908}#
- #{w\ 4872}#
- #{s\ 4873}#
- #{mod\ 4874}#))))))
- #{var\ 4899}#
- #{names\ 4904}#)
- (#{chi-body\ 2589}#
- (cons #{e1\ 4901}# #{e2\ 4902}#)
- (#{source-wrap\ 2567}#
- #{e\ 4870}#
- #{w\ 4872}#
- #{s\ 4873}#
- #{mod\ 4874}#)
- (#{extend-env\ 2484}#
- #{names\ 4904}#
+ #{e\ 2712}#
+ (#{source-wrap\ 451}#
+ #{id\ 2746}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#))))))
+ #{var\ 2737}#
+ #{names\ 2742}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 2739}# #{e2\ 2740}#)
+ (#{source-wrap\ 451}#
+ #{e\ 2712}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#)
+ (#{extend-env\ 368}#
+ #{names\ 2742}#
(begin
- (let ((#{trans-r\ 4919}#
- (#{macros-only-env\ 2488}#
- #{r\ 4871}#)))
- (map (lambda (#{x\ 4920}#)
+ (let ((#{trans-r\ 2757}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2713}#)))
+ (map (lambda (#{x\ 2758}#)
(cons 'macro
-
(#{eval-local-transformer\ 2593}#
- (#{chi\ 2581}#
- #{x\ 4920}#
- #{trans-r\ 4919}#
- #{w\ 4872}#
- #{mod\ 4874}#)
- #{mod\ 4874}#)))
- #{val\ 4900}#)))
- #{r\ 4871}#)
- #{w\ 4872}#
- #{mod\ 4874}#)))))
- #{tmp\ 4881}#)
- (let ((#{_\ 4925}# #{tmp\ 4880}#))
+
(#{eval-local-transformer\ 477}#
+ (#{chi\ 465}#
+ #{x\ 2758}#
+ #{trans-r\ 2757}#
+ #{w\ 2714}#
+ #{mod\ 2716}#)
+ #{mod\ 2716}#)))
+ #{val\ 2738}#)))
+ #{r\ 2713}#)
+ #{w\ 2714}#
+ #{mod\ 2716}#)))))
+ #{tmp\ 2723}#)
+ (let ((#{_\ 2763}# #{tmp\ 2722}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 2567}#
- #{e\ 4870}#
- #{w\ 4872}#
- #{s\ 4873}#
- #{mod\ 4874}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 451}#
+ #{e\ 2712}#
+ #{w\ 2714}#
+ #{s\ 2715}#
+ #{mod\ 2716}#))))))))
+ (#{global-extend\ 376}#
'core
'quote
- (lambda (#{e\ 4926}#
- #{r\ 4927}#
- #{w\ 4928}#
- #{s\ 4929}#
- #{mod\ 4930}#)
- (let ((#{tmp\ 4936}# #{e\ 4926}#))
- (let ((#{tmp\ 4937}#
- ($sc-dispatch #{tmp\ 4936}# (quote (any any)))))
- (if #{tmp\ 4937}#
+ (lambda (#{e\ 2764}#
+ #{r\ 2765}#
+ #{w\ 2766}#
+ #{s\ 2767}#
+ #{mod\ 2768}#)
+ (let ((#{tmp\ 2774}# #{e\ 2764}#))
+ (let ((#{tmp\ 2775}#
+ ($sc-dispatch #{tmp\ 2774}# (quote (_ any)))))
+ (if #{tmp\ 2775}#
(@apply
- (lambda (#{_\ 4940}# #{e\ 4941}#)
- (#{build-data\ 2446}#
- #{s\ 4929}#
- (#{strip\ 2607}# #{e\ 4941}# #{w\ 4928}#)))
- #{tmp\ 4937}#)
- (let ((#{_\ 4943}# #{tmp\ 4936}#))
+ (lambda (#{e\ 2777}#)
+ (#{build-data\ 330}#
+ #{s\ 2767}#
+ (#{strip\ 491}# #{e\ 2777}# #{w\ 2766}#)))
+ #{tmp\ 2775}#)
+ (let ((#{_\ 2779}# #{tmp\ 2774}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 2567}#
- #{e\ 4926}#
- #{w\ 4928}#
- #{s\ 4929}#
- #{mod\ 4930}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 451}#
+ #{e\ 2764}#
+ #{w\ 2766}#
+ #{s\ 2767}#
+ #{mod\ 2768}#))))))))
+ (#{global-extend\ 376}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 4945}#
- (lambda (#{src\ 4960}#
- #{e\ 4961}#
- #{r\ 4962}#
- #{maps\ 4963}#
- #{ellipsis?\ 4964}#
- #{mod\ 4965}#)
- (if (#{id?\ 2496}# #{e\ 4961}#)
+ ((#{gen-syntax\ 2781}#
+ (lambda (#{src\ 2796}#
+ #{e\ 2797}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#)
+ (if (#{id?\ 380}# #{e\ 2797}#)
(begin
- (let ((#{label\ 4973}#
- (#{id-var-name\ 2553}#
- #{e\ 4961}#
+ (let ((#{label\ 2809}#
+ (#{id-var-name\ 437}#
+ #{e\ 2797}#
'(()))))
(begin
- (let ((#{b\ 4976}#
- (#{lookup\ 2490}#
- #{label\ 4973}#
- #{r\ 4962}#
- #{mod\ 4965}#)))
- (if (eq? (#{binding-type\ 2479}# #{b\ 4976}#)
+ (let ((#{b\ 2812}#
+ (#{lookup\ 374}#
+ #{label\ 2809}#
+ #{r\ 2798}#
+ #{mod\ 2801}#)))
+ (if (eq? (#{binding-type\ 363}# #{b\ 2812}#)
'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 4978}#
- (#{binding-value\ 2481}#
- #{b\ 4976}#)))
- (#{gen-ref\ 4947}#
- #{src\ 4960}#
- (car #{var.lev\ 4978}#)
- (cdr #{var.lev\ 4978}#)
- #{maps\ 4963}#))))
- (lambda (#{var\ 4979}# #{maps\ 4980}#)
+ (let ((#{var.lev\ 2814}#
+ (#{binding-value\ 365}#
+ #{b\ 2812}#)))
+ (#{gen-ref\ 2783}#
+ #{src\ 2796}#
+ (car #{var.lev\ 2814}#)
+ (cdr #{var.lev\ 2814}#)
+ #{maps\ 2799}#))))
+ (lambda (#{var\ 2815}# #{maps\ 2816}#)
(values
- (list (quote ref) #{var\ 4979}#)
- #{maps\ 4980}#)))
- (if (#{ellipsis?\ 4964}# #{e\ 4961}#)
+ (list (quote ref) #{var\ 2815}#)
+ #{maps\ 2816}#)))
+ (if (#{ellipsis?\ 2800}# #{e\ 2797}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 4960}#)
+ #{src\ 2796}#)
(values
- (list (quote quote) #{e\ 4961}#)
- #{maps\ 4963}#)))))))
- (let ((#{tmp\ 4985}# #{e\ 4961}#))
- (let ((#{tmp\ 4986}#
+ (list (quote quote) #{e\ 2797}#)
+ #{maps\ 2799}#)))))))
+ (let ((#{tmp\ 2821}# #{e\ 2797}#))
+ (let ((#{tmp\ 2822}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2821}#
'(any any))))
- (if (if #{tmp\ 4986}#
+ (if (if #{tmp\ 2822}#
(@apply
- (lambda (#{dots\ 4989}# #{e\ 4990}#)
- (#{ellipsis?\ 4964}# #{dots\ 4989}#))
- #{tmp\ 4986}#)
+ (lambda (#{dots\ 2825}# #{e\ 2826}#)
+ (#{ellipsis?\ 2800}# #{dots\ 2825}#))
+ #{tmp\ 2822}#)
#f)
(@apply
- (lambda (#{dots\ 4993}# #{e\ 4994}#)
- (#{gen-syntax\ 4945}#
- #{src\ 4960}#
- #{e\ 4994}#
- #{r\ 4962}#
- #{maps\ 4963}#
- (lambda (#{x\ 4995}#) #f)
- #{mod\ 4965}#))
- #{tmp\ 4986}#)
- (let ((#{tmp\ 4997}#
+ (lambda (#{dots\ 2829}# #{e\ 2830}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{e\ 2830}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ (lambda (#{x\ 2831}#) #f)
+ #{mod\ 2801}#))
+ #{tmp\ 2822}#)
+ (let ((#{tmp\ 2833}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2821}#
'(any any . any))))
- (if (if #{tmp\ 4997}#
+ (if (if #{tmp\ 2833}#
(@apply
- (lambda (#{x\ 5001}#
- #{dots\ 5002}#
- #{y\ 5003}#)
- (#{ellipsis?\ 4964}# #{dots\ 5002}#))
- #{tmp\ 4997}#)
+ (lambda (#{x\ 2837}#
+ #{dots\ 2838}#
+ #{y\ 2839}#)
+ (#{ellipsis?\ 2800}# #{dots\ 2838}#))
+ #{tmp\ 2833}#)
#f)
(@apply
- (lambda (#{x\ 5007}#
- #{dots\ 5008}#
- #{y\ 5009}#)
+ (lambda (#{x\ 2843}#
+ #{dots\ 2844}#
+ #{y\ 2845}#)
(letrec*
- ((#{f\ 5013}#
- (lambda (#{y\ 5014}# #{k\ 5015}#)
- (let ((#{tmp\ 5022}# #{y\ 5014}#))
- (let ((#{tmp\ 5023}#
+ ((#{f\ 2849}#
+ (lambda (#{y\ 2850}# #{k\ 2851}#)
+ (let ((#{tmp\ 2858}# #{y\ 2850}#))
+ (let ((#{tmp\ 2859}#
($sc-dispatch
- #{tmp\ 5022}#
+ #{tmp\ 2858}#
'(any . any))))
- (if (if #{tmp\ 5023}#
+ (if (if #{tmp\ 2859}#
(@apply
- (lambda (#{dots\ 5026}#
- #{y\ 5027}#)
- (#{ellipsis?\ 4964}#
- #{dots\ 5026}#))
- #{tmp\ 5023}#)
+ (lambda (#{dots\ 2862}#
+ #{y\ 2863}#)
+ (#{ellipsis?\ 2800}#
+ #{dots\ 2862}#))
+ #{tmp\ 2859}#)
#f)
(@apply
- (lambda (#{dots\ 5030}#
- #{y\ 5031}#)
- (#{f\ 5013}#
- #{y\ 5031}#
- (lambda (#{maps\
5032}#)
+ (lambda (#{dots\ 2866}#
+ #{y\ 2867}#)
+ (#{f\ 2849}#
+ #{y\ 2867}#
+ (lambda (#{maps\
2868}#)
(call-with-values
(lambda ()
- (#{k\ 5015}#
+ (#{k\ 2851}#
(cons '()
- #{maps\
5032}#)))
- (lambda (#{x\
5034}#
- #{maps\
5035}#)
- (if (null? (car
#{maps\ 5035}#))
+ #{maps\
2868}#)))
+ (lambda (#{x\
2870}#
+ #{maps\
2871}#)
+ (if (null? (car
#{maps\ 2871}#))
(syntax-violation
'syntax
"extra
ellipsis"
- #{src\
4960}#)
+ #{src\
2796}#)
(values
-
(#{gen-mappend\ 4949}#
- #{x\ 5034}#
- (car
#{maps\ 5035}#))
- (cdr #{maps\
5035}#))))))))
- #{tmp\ 5023}#)
- (let ((#{_\ 5039}#
- #{tmp\ 5022}#))
+
(#{gen-mappend\ 2785}#
+ #{x\ 2870}#
+ (car
#{maps\ 2871}#))
+ (cdr #{maps\
2871}#))))))))
+ #{tmp\ 2859}#)
+ (let ((#{_\ 2875}#
+ #{tmp\ 2858}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{src\ 4960}#
- #{y\ 5014}#
- #{r\ 4962}#
- #{maps\ 4963}#
- #{ellipsis?\ 4964}#
- #{mod\ 4965}#))
- (lambda (#{y\ 5040}#
- #{maps\ 5041}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{y\ 2850}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{y\ 2876}#
+ #{maps\ 2877}#)
(call-with-values
(lambda ()
- (#{k\ 5015}#
- #{maps\ 5041}#))
- (lambda (#{x\ 5044}#
- #{maps\
5045}#)
+ (#{k\ 2851}#
+ #{maps\ 2877}#))
+ (lambda (#{x\ 2880}#
+ #{maps\
2881}#)
(values
- (#{gen-append\
4955}#
- #{x\ 5044}#
- #{y\ 5040}#)
- #{maps\
5045}#))))))))))))
+ (#{gen-append\
2791}#
+ #{x\ 2880}#
+ #{y\ 2876}#)
+ #{maps\
2881}#))))))))))))
(begin
- (#{f\ 5013}#
- #{y\ 5009}#
- (lambda (#{maps\ 5016}#)
+ (#{f\ 2849}#
+ #{y\ 2845}#
+ (lambda (#{maps\ 2852}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{src\ 4960}#
- #{x\ 5007}#
- #{r\ 4962}#
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{x\ 2843}#
+ #{r\ 2798}#
(cons '()
- #{maps\ 5016}#)
- #{ellipsis?\ 4964}#
- #{mod\ 4965}#))
- (lambda (#{x\ 5018}#
- #{maps\ 5019}#)
- (if (null? (car #{maps\
5019}#))
+ #{maps\ 2852}#)
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{x\ 2854}#
+ #{maps\ 2855}#)
+ (if (null? (car #{maps\
2855}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 4960}#)
+ #{src\ 2796}#)
(values
- (#{gen-map\ 4951}#
- #{x\ 5018}#
- (car #{maps\ 5019}#))
- (cdr #{maps\
5019}#))))))))))
- #{tmp\ 4997}#)
- (let ((#{tmp\ 5048}#
+ (#{gen-map\ 2787}#
+ #{x\ 2854}#
+ (car #{maps\ 2855}#))
+ (cdr #{maps\
2855}#))))))))))
+ #{tmp\ 2833}#)
+ (let ((#{tmp\ 2884}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2821}#
'(any . any))))
- (if #{tmp\ 5048}#
+ (if #{tmp\ 2884}#
(@apply
- (lambda (#{x\ 5051}# #{y\ 5052}#)
+ (lambda (#{x\ 2887}# #{y\ 2888}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{src\ 4960}#
- #{x\ 5051}#
- #{r\ 4962}#
- #{maps\ 4963}#
- #{ellipsis?\ 4964}#
- #{mod\ 4965}#))
- (lambda (#{x\ 5053}# #{maps\ 5054}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{x\ 2887}#
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{x\ 2889}# #{maps\ 2890}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{src\ 4960}#
- #{y\ 5052}#
- #{r\ 4962}#
- #{maps\ 5054}#
- #{ellipsis?\ 4964}#
- #{mod\ 4965}#))
- (lambda (#{y\ 5057}#
- #{maps\ 5058}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ #{y\ 2888}#
+ #{r\ 2798}#
+ #{maps\ 2890}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{y\ 2893}#
+ #{maps\ 2894}#)
(values
- (#{gen-cons\ 4953}#
- #{x\ 5053}#
- #{y\ 5057}#)
- #{maps\ 5058}#))))))
- #{tmp\ 5048}#)
- (let ((#{tmp\ 5061}#
+ (#{gen-cons\ 2789}#
+ #{x\ 2889}#
+ #{y\ 2893}#)
+ #{maps\ 2894}#))))))
+ #{tmp\ 2884}#)
+ (let ((#{tmp\ 2897}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2821}#
'#(vector (any . each-any)))))
- (if #{tmp\ 5061}#
+ (if #{tmp\ 2897}#
(@apply
- (lambda (#{e1\ 5064}# #{e2\ 5065}#)
+ (lambda (#{e1\ 2900}# #{e2\ 2901}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{src\ 4960}#
- (cons #{e1\ 5064}#
- #{e2\ 5065}#)
- #{r\ 4962}#
- #{maps\ 4963}#
- #{ellipsis?\ 4964}#
- #{mod\ 4965}#))
- (lambda (#{e\ 5067}#
- #{maps\ 5068}#)
+ (#{gen-syntax\ 2781}#
+ #{src\ 2796}#
+ (cons #{e1\ 2900}#
+ #{e2\ 2901}#)
+ #{r\ 2798}#
+ #{maps\ 2799}#
+ #{ellipsis?\ 2800}#
+ #{mod\ 2801}#))
+ (lambda (#{e\ 2903}#
+ #{maps\ 2904}#)
(values
- (#{gen-vector\ 4957}#
- #{e\ 5067}#)
- #{maps\ 5068}#))))
- #{tmp\ 5061}#)
- (let ((#{_\ 5072}# #{tmp\ 4985}#))
+ (#{gen-vector\ 2793}#
+ #{e\ 2903}#)
+ #{maps\ 2904}#))))
+ #{tmp\ 2897}#)
+ (let ((#{_\ 2908}# #{tmp\ 2821}#))
(values
- (list (quote quote) #{e\ 4961}#)
- #{maps\ 4963}#))))))))))))))
- (#{gen-ref\ 4947}#
- (lambda (#{src\ 5074}#
- #{var\ 5075}#
- #{level\ 5076}#
- #{maps\ 5077}#)
- (if (#{fx=\ 2401}# #{level\ 5076}# 0)
- (values #{var\ 5075}# #{maps\ 5077}#)
- (if (null? #{maps\ 5077}#)
+ (list (quote quote) #{e\ 2797}#)
+ #{maps\ 2799}#))))))))))))))
+ (#{gen-ref\ 2783}#
+ (lambda (#{src\ 2910}#
+ #{var\ 2911}#
+ #{level\ 2912}#
+ #{maps\ 2913}#)
+ (if (#{fx=\ 285}# #{level\ 2912}# 0)
+ (values #{var\ 2911}# #{maps\ 2913}#)
+ (if (null? #{maps\ 2913}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 5074}#)
+ #{src\ 2910}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 4947}#
- #{src\ 5074}#
- #{var\ 5075}#
- (#{fx-\ 2399}# #{level\ 5076}# 1)
- (cdr #{maps\ 5077}#)))
- (lambda (#{outer-var\ 5082}# #{outer-maps\ 5083}#)
+ (#{gen-ref\ 2783}#
+ #{src\ 2910}#
+ #{var\ 2911}#
+ (#{fx-\ 283}# #{level\ 2912}# 1)
+ (cdr #{maps\ 2913}#)))
+ (lambda (#{outer-var\ 2918}# #{outer-maps\ 2919}#)
(begin
- (let ((#{b\ 5087}#
- (assq #{outer-var\ 5082}#
- (car #{maps\ 5077}#))))
- (if #{b\ 5087}#
- (values (cdr #{b\ 5087}#) #{maps\ 5077}#)
+ (let ((#{b\ 2923}#
+ (assq #{outer-var\ 2918}#
+ (car #{maps\ 2913}#))))
+ (if #{b\ 2923}#
+ (values (cdr #{b\ 2923}#) #{maps\ 2913}#)
(begin
- (let ((#{inner-var\ 5089}#
- (#{gen-var\ 2609}# (quote tmp))))
+ (let ((#{inner-var\ 2925}#
+ (#{gen-var\ 493}# (quote tmp))))
(values
- #{inner-var\ 5089}#
- (cons (cons (cons #{outer-var\ 5082}#
- #{inner-var\ 5089}#)
- (car #{maps\ 5077}#))
- #{outer-maps\
5083}#)))))))))))))
- (#{gen-mappend\ 4949}#
- (lambda (#{e\ 5090}# #{map-env\ 5091}#)
+ #{inner-var\ 2925}#
+ (cons (cons (cons #{outer-var\ 2918}#
+ #{inner-var\ 2925}#)
+ (car #{maps\ 2913}#))
+ #{outer-maps\
2919}#)))))))))))))
+ (#{gen-mappend\ 2785}#
+ (lambda (#{e\ 2926}# #{map-env\ 2927}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 4951}# #{e\ 5090}# #{map-env\ 5091}#))))
- (#{gen-map\ 4951}#
- (lambda (#{e\ 5095}# #{map-env\ 5096}#)
+ (#{gen-map\ 2787}# #{e\ 2926}# #{map-env\ 2927}#))))
+ (#{gen-map\ 2787}#
+ (lambda (#{e\ 2931}# #{map-env\ 2932}#)
(begin
- (let ((#{formals\ 5101}# (map cdr #{map-env\ 5096}#))
- (#{actuals\ 5102}#
- (map (lambda (#{x\ 5103}#)
- (list (quote ref) (car #{x\ 5103}#)))
- #{map-env\ 5096}#)))
- (if (eq? (car #{e\ 5095}#) (quote ref))
- (car #{actuals\ 5102}#)
+ (let ((#{formals\ 2937}# (map cdr #{map-env\ 2932}#))
+ (#{actuals\ 2938}#
+ (map (lambda (#{x\ 2939}#)
+ (list (quote ref) (car #{x\ 2939}#)))
+ #{map-env\ 2932}#)))
+ (if (eq? (car #{e\ 2931}#) (quote ref))
+ (car #{actuals\ 2938}#)
(if (and-map
- (lambda (#{x\ 5110}#)
- (if (eq? (car #{x\ 5110}#) (quote ref))
- (memq (car (cdr #{x\ 5110}#))
- #{formals\ 5101}#)
+ (lambda (#{x\ 2946}#)
+ (if (eq? (car #{x\ 2946}#) (quote ref))
+ (memq (car (cdr #{x\ 2946}#))
+ #{formals\ 2937}#)
#f))
- (cdr #{e\ 5095}#))
+ (cdr #{e\ 2931}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 5095}#))
+ (car #{e\ 2931}#))
(map (begin
- (let ((#{r\ 5116}#
+ (let ((#{r\ 2952}#
(map cons
- #{formals\ 5101}#
- #{actuals\
5102}#)))
- (lambda (#{x\ 5117}#)
- (cdr (assq (car (cdr #{x\
5117}#))
- #{r\ 5116}#)))))
- (cdr #{e\ 5095}#))))
+ #{formals\ 2937}#
+ #{actuals\
2938}#)))
+ (lambda (#{x\ 2953}#)
+ (cdr (assq (car (cdr #{x\
2953}#))
+ #{r\ 2952}#)))))
+ (cdr #{e\ 2931}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 5101}#
- #{e\ 5095}#)
- #{actuals\ 5102}#))))))))
- (#{gen-cons\ 4953}#
- (lambda (#{x\ 5121}# #{y\ 5122}#)
+ #{formals\ 2937}#
+ #{e\ 2931}#)
+ #{actuals\ 2938}#))))))))
+ (#{gen-cons\ 2789}#
+ (lambda (#{x\ 2957}# #{y\ 2958}#)
(begin
- (let ((#{atom-key\ 5127}# (car #{y\ 5122}#)))
- (if (eqv? #{atom-key\ 5127}# (quote quote))
- (if (eq? (car #{x\ 5121}#) (quote quote))
+ (let ((#{atom-key\ 2963}# (car #{y\ 2958}#)))
+ (if (eqv? #{atom-key\ 2963}# (quote quote))
+ (if (eq? (car #{x\ 2957}#) (quote quote))
(list 'quote
- (cons (car (cdr #{x\ 5121}#))
- (car (cdr #{y\ 5122}#))))
- (if (eq? (car (cdr #{y\ 5122}#)) (quote ()))
- (list (quote list) #{x\ 5121}#)
- (list (quote cons) #{x\ 5121}# #{y\ 5122}#)))
- (if (eqv? #{atom-key\ 5127}# (quote list))
+ (cons (car (cdr #{x\ 2957}#))
+ (car (cdr #{y\ 2958}#))))
+ (if (eq? (car (cdr #{y\ 2958}#)) (quote ()))
+ (list (quote list) #{x\ 2957}#)
+ (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))
+ (if (eqv? #{atom-key\ 2963}# (quote list))
(cons 'list
- (cons #{x\ 5121}# (cdr #{y\ 5122}#)))
- (list (quote cons) #{x\ 5121}# #{y\ 5122}#)))))))
- (#{gen-append\ 4955}#
- (lambda (#{x\ 5136}# #{y\ 5137}#)
- (if (equal? #{y\ 5137}# (quote (quote ())))
- #{x\ 5136}#
- (list (quote append) #{x\ 5136}# #{y\ 5137}#))))
- (#{gen-vector\ 4957}#
- (lambda (#{x\ 5141}#)
- (if (eq? (car #{x\ 5141}#) (quote list))
- (cons (quote vector) (cdr #{x\ 5141}#))
- (if (eq? (car #{x\ 5141}#) (quote quote))
+ (cons #{x\ 2957}# (cdr #{y\ 2958}#)))
+ (list (quote cons) #{x\ 2957}# #{y\ 2958}#)))))))
+ (#{gen-append\ 2791}#
+ (lambda (#{x\ 2972}# #{y\ 2973}#)
+ (if (equal? #{y\ 2973}# (quote (quote ())))
+ #{x\ 2972}#
+ (list (quote append) #{x\ 2972}# #{y\ 2973}#))))
+ (#{gen-vector\ 2793}#
+ (lambda (#{x\ 2977}#)
+ (if (eq? (car #{x\ 2977}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 2977}#))
+ (if (eq? (car #{x\ 2977}#) (quote quote))
(list 'quote
- (list->vector (car (cdr #{x\ 5141}#))))
- (list (quote list->vector) #{x\ 5141}#)))))
- (#{regen\ 4959}#
- (lambda (#{x\ 5151}#)
+ (list->vector (car (cdr #{x\ 2977}#))))
+ (list (quote list->vector) #{x\ 2977}#)))))
+ (#{regen\ 2795}#
+ (lambda (#{x\ 2987}#)
(begin
- (let ((#{atom-key\ 5155}# (car #{x\ 5151}#)))
- (if (eqv? #{atom-key\ 5155}# (quote ref))
- (#{build-lexical-reference\ 2426}#
+ (let ((#{atom-key\ 2991}# (car #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote ref))
+ (#{build-lexical-reference\ 310}#
'value
#f
- (car (cdr #{x\ 5151}#))
- (car (cdr #{x\ 5151}#)))
- (if (eqv? #{atom-key\ 5155}# (quote primitive))
- (#{build-primref\ 2444}#
+ (car (cdr #{x\ 2987}#))
+ (car (cdr #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote primitive))
+ (#{build-primref\ 328}#
#f
- (car (cdr #{x\ 5151}#)))
- (if (eqv? #{atom-key\ 5155}# (quote quote))
- (#{build-data\ 2446}#
- #f
- (car (cdr #{x\ 5151}#)))
- (if (eqv? #{atom-key\ 5155}# (quote lambda))
- (if (list? (car (cdr #{x\ 5151}#)))
- (#{build-simple-lambda\ 2438}#
+ (car (cdr #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote quote))
+ (#{build-data\ 330}# #f (car (cdr #{x\ 2987}#)))
+ (if (eqv? #{atom-key\ 2991}# (quote lambda))
+ (if (list? (car (cdr #{x\ 2987}#)))
+ (#{build-simple-lambda\ 322}#
#f
- (car (cdr #{x\ 5151}#))
+ (car (cdr #{x\ 2987}#))
#f
- (car (cdr #{x\ 5151}#))
+ (car (cdr #{x\ 2987}#))
'()
- (#{regen\ 4959}#
- (car (cdr (cdr #{x\ 5151}#)))))
- (error "how did we get here" #{x\ 5151}#))
- (#{build-application\ 2420}#
+ (#{regen\ 2795}#
+ (car (cdr (cdr #{x\ 2987}#)))))
+ (error "how did we get here" #{x\ 2987}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 328}#
#f
- (car #{x\ 5151}#))
- (map #{regen\ 4959}#
- (cdr #{x\ 5151}#))))))))))))
+ (car #{x\ 2987}#))
+ (map #{regen\ 2795}#
+ (cdr #{x\ 2987}#))))))))))))
(begin
- (lambda (#{e\ 5167}#
- #{r\ 5168}#
- #{w\ 5169}#
- #{s\ 5170}#
- #{mod\ 5171}#)
+ (lambda (#{e\ 3003}#
+ #{r\ 3004}#
+ #{w\ 3005}#
+ #{s\ 3006}#
+ #{mod\ 3007}#)
(begin
- (let ((#{e\ 5178}#
- (#{source-wrap\ 2567}#
- #{e\ 5167}#
- #{w\ 5169}#
- #{s\ 5170}#
- #{mod\ 5171}#)))
- (let ((#{tmp\ 5179}# #{e\ 5178}#))
- (let ((#{tmp\ 5180}#
+ (let ((#{e\ 3014}#
+ (#{source-wrap\ 451}#
+ #{e\ 3003}#
+ #{w\ 3005}#
+ #{s\ 3006}#
+ #{mod\ 3007}#)))
+ (let ((#{tmp\ 3015}# #{e\ 3014}#))
+ (let ((#{tmp\ 3016}#
($sc-dispatch
- #{tmp\ 5179}#
- '(any any))))
- (if #{tmp\ 5180}#
+ #{tmp\ 3015}#
+ '(_ any))))
+ (if #{tmp\ 3016}#
(@apply
- (lambda (#{_\ 5183}# #{x\ 5184}#)
+ (lambda (#{x\ 3018}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{e\ 5178}#
- #{x\ 5184}#
- #{r\ 5168}#
+ (#{gen-syntax\ 2781}#
+ #{e\ 3014}#
+ #{x\ 3018}#
+ #{r\ 3004}#
'()
- #{ellipsis?\ 2597}#
- #{mod\ 5171}#))
- (lambda (#{e\ 5185}# #{maps\ 5186}#)
- (#{regen\ 4959}# #{e\ 5185}#))))
- #{tmp\ 5180}#)
- (let ((#{_\ 5190}# #{tmp\ 5179}#))
+ #{ellipsis?\ 481}#
+ #{mod\ 3007}#))
+ (lambda (#{e\ 3019}# #{maps\ 3020}#)
+ (#{regen\ 2795}# #{e\ 3019}#))))
+ #{tmp\ 3016}#)
+ (let ((#{_\ 3024}# #{tmp\ 3015}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 5178}#)))))))))))
- (#{global-extend\ 2492}#
+ #{e\ 3014}#)))))))))))
+ (#{global-extend\ 376}#
'core
'lambda
- (lambda (#{e\ 5191}#
- #{r\ 5192}#
- #{w\ 5193}#
- #{s\ 5194}#
- #{mod\ 5195}#)
- (let ((#{tmp\ 5201}# #{e\ 5191}#))
- (let ((#{tmp\ 5202}#
+ (lambda (#{e\ 3025}#
+ #{r\ 3026}#
+ #{w\ 3027}#
+ #{s\ 3028}#
+ #{mod\ 3029}#)
+ (let ((#{tmp\ 3035}# #{e\ 3025}#))
+ (let ((#{tmp\ 3036}#
($sc-dispatch
- #{tmp\ 5201}#
- '(any any any . each-any))))
- (if #{tmp\ 5202}#
+ #{tmp\ 3035}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 3036}#
(@apply
- (lambda (#{_\ 5207}#
- #{args\ 5208}#
- #{e1\ 5209}#
- #{e2\ 5210}#)
+ (lambda (#{args\ 3040}# #{e1\ 3041}# #{e2\ 3042}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 2599}# #{args\ 5208}#))
- (lambda (#{req\ 5211}#
- #{opt\ 5212}#
- #{rest\ 5213}#
- #{kw\ 5214}#)
+ (#{lambda-formals\ 483}# #{args\ 3040}#))
+ (lambda (#{req\ 3043}#
+ #{opt\ 3044}#
+ #{rest\ 3045}#
+ #{kw\ 3046}#)
(letrec*
- ((#{lp\ 5222}#
- (lambda (#{body\ 5223}# #{meta\ 5224}#)
- (let ((#{tmp\ 5226}# #{body\ 5223}#))
- (let ((#{tmp\ 5227}#
+ ((#{lp\ 3054}#
+ (lambda (#{body\ 3055}# #{meta\ 3056}#)
+ (let ((#{tmp\ 3058}# #{body\ 3055}#))
+ (let ((#{tmp\ 3059}#
($sc-dispatch
- #{tmp\ 5226}#
+ #{tmp\ 3058}#
'(any any . each-any))))
- (if (if #{tmp\ 5227}#
+ (if (if #{tmp\ 3059}#
(@apply
- (lambda (#{docstring\ 5231}#
- #{e1\ 5232}#
- #{e2\ 5233}#)
+ (lambda (#{docstring\ 3063}#
+ #{e1\ 3064}#
+ #{e2\ 3065}#)
(string?
(syntax->datum
- #{docstring\ 5231}#)))
- #{tmp\ 5227}#)
+ #{docstring\ 3063}#)))
+ #{tmp\ 3059}#)
#f)
(@apply
- (lambda (#{docstring\ 5237}#
- #{e1\ 5238}#
- #{e2\ 5239}#)
- (#{lp\ 5222}#
- (cons #{e1\ 5238}#
- #{e2\ 5239}#)
+ (lambda (#{docstring\ 3069}#
+ #{e1\ 3070}#
+ #{e2\ 3071}#)
+ (#{lp\ 3054}#
+ (cons #{e1\ 3070}#
+ #{e2\ 3071}#)
(append
- #{meta\ 5224}#
+ #{meta\ 3056}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
5237}#))))))
- #{tmp\ 5227}#)
- (let ((#{tmp\ 5242}#
+ #{docstring\
3069}#))))))
+ #{tmp\ 3059}#)
+ (let ((#{tmp\ 3074}#
($sc-dispatch
- #{tmp\ 5226}#
+ #{tmp\ 3058}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 5242}#
+ (if #{tmp\ 3074}#
(@apply
- (lambda (#{k\ 5247}#
- #{v\ 5248}#
- #{e1\ 5249}#
- #{e2\ 5250}#)
- (#{lp\ 5222}#
- (cons #{e1\ 5249}#
- #{e2\ 5250}#)
+ (lambda (#{k\ 3079}#
+ #{v\ 3080}#
+ #{e1\ 3081}#
+ #{e2\ 3082}#)
+ (#{lp\ 3054}#
+ (cons #{e1\ 3081}#
+ #{e2\ 3082}#)
(append
- #{meta\ 5224}#
+ #{meta\ 3056}#
(syntax->datum
(map cons
- #{k\ 5247}#
- #{v\ 5248}#)))))
- #{tmp\ 5242}#)
- (let ((#{_\ 5255}#
- #{tmp\ 5226}#))
- (#{chi-simple-lambda\ 2601}#
- #{e\ 5191}#
- #{r\ 5192}#
- #{w\ 5193}#
- #{s\ 5194}#
- #{mod\ 5195}#
- #{req\ 5211}#
- #{rest\ 5213}#
- #{meta\ 5224}#
- #{body\ 5223}#))))))))))
+ #{k\ 3079}#
+ #{v\ 3080}#)))))
+ #{tmp\ 3074}#)
+ (let ((#{_\ 3087}#
+ #{tmp\ 3058}#))
+ (#{chi-simple-lambda\ 485}#
+ #{e\ 3025}#
+ #{r\ 3026}#
+ #{w\ 3027}#
+ #{s\ 3028}#
+ #{mod\ 3029}#
+ #{req\ 3043}#
+ #{rest\ 3045}#
+ #{meta\ 3056}#
+ #{body\ 3055}#))))))))))
(begin
- (#{lp\ 5222}#
- (cons #{e1\ 5209}# #{e2\ 5210}#)
+ (#{lp\ 3054}#
+ (cons #{e1\ 3041}# #{e2\ 3042}#)
'()))))))
- #{tmp\ 5202}#)
- (let ((#{_\ 5257}# #{tmp\ 5201}#))
+ #{tmp\ 3036}#)
+ (let ((#{_\ 3089}# #{tmp\ 3035}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 5191}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3025}#)))))))
+ (#{global-extend\ 376}#
'core
'lambda*
- (lambda (#{e\ 5258}#
- #{r\ 5259}#
- #{w\ 5260}#
- #{s\ 5261}#
- #{mod\ 5262}#)
- (let ((#{tmp\ 5268}# #{e\ 5258}#))
- (let ((#{tmp\ 5269}#
+ (lambda (#{e\ 3090}#
+ #{r\ 3091}#
+ #{w\ 3092}#
+ #{s\ 3093}#
+ #{mod\ 3094}#)
+ (let ((#{tmp\ 3100}# #{e\ 3090}#))
+ (let ((#{tmp\ 3101}#
($sc-dispatch
- #{tmp\ 5268}#
- '(any any any . each-any))))
- (if #{tmp\ 5269}#
+ #{tmp\ 3100}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 3101}#
(@apply
- (lambda (#{_\ 5274}#
- #{args\ 5275}#
- #{e1\ 5276}#
- #{e2\ 5277}#)
+ (lambda (#{args\ 3105}# #{e1\ 3106}# #{e2\ 3107}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2605}#
- #{e\ 5258}#
- #{r\ 5259}#
- #{w\ 5260}#
- #{s\ 5261}#
- #{mod\ 5262}#
- #{lambda*-formals\ 2603}#
- (list (cons #{args\ 5275}#
- (cons #{e1\ 5276}#
- #{e2\ 5277}#)))))
- (lambda (#{meta\ 5279}# #{lcase\ 5280}#)
- (#{build-case-lambda\ 2440}#
- #{s\ 5261}#
- #{meta\ 5279}#
- #{lcase\ 5280}#))))
- #{tmp\ 5269}#)
- (let ((#{_\ 5284}# #{tmp\ 5268}#))
+ (#{chi-lambda-case\ 489}#
+ #{e\ 3090}#
+ #{r\ 3091}#
+ #{w\ 3092}#
+ #{s\ 3093}#
+ #{mod\ 3094}#
+ #{lambda*-formals\ 487}#
+ (list (cons #{args\ 3105}#
+ (cons #{e1\ 3106}#
+ #{e2\ 3107}#)))))
+ (lambda (#{meta\ 3109}# #{lcase\ 3110}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3093}#
+ #{meta\ 3109}#
+ #{lcase\ 3110}#))))
+ #{tmp\ 3101}#)
+ (let ((#{_\ 3114}# #{tmp\ 3100}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 5258}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3090}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda
- (lambda (#{e\ 5285}#
- #{r\ 5286}#
- #{w\ 5287}#
- #{s\ 5288}#
- #{mod\ 5289}#)
- (let ((#{tmp\ 5295}# #{e\ 5285}#))
- (let ((#{tmp\ 5296}#
+ (lambda (#{e\ 3115}#
+ #{r\ 3116}#
+ #{w\ 3117}#
+ #{s\ 3118}#
+ #{mod\ 3119}#)
+ (let ((#{tmp\ 3125}# #{e\ 3115}#))
+ (let ((#{tmp\ 3126}#
($sc-dispatch
- #{tmp\ 5295}#
- '(any (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 5296}#
+ #{tmp\ 3125}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp\ 3126}#
(@apply
- (lambda (#{_\ 5304}#
- #{args\ 5305}#
- #{e1\ 5306}#
- #{e2\ 5307}#
- #{args*\ 5308}#
- #{e1*\ 5309}#
- #{e2*\ 5310}#)
+ (lambda (#{args\ 3133}#
+ #{e1\ 3134}#
+ #{e2\ 3135}#
+ #{args*\ 3136}#
+ #{e1*\ 3137}#
+ #{e2*\ 3138}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2605}#
- #{e\ 5285}#
- #{r\ 5286}#
- #{w\ 5287}#
- #{s\ 5288}#
- #{mod\ 5289}#
- #{lambda-formals\ 2599}#
- (cons (cons #{args\ 5305}#
- (cons #{e1\ 5306}# #{e2\ 5307}#))
- (map (lambda (#{tmp\ 5314}#
- #{tmp\ 5313}#
- #{tmp\ 5312}#)
- (cons #{tmp\ 5312}#
- (cons #{tmp\ 5313}#
- #{tmp\ 5314}#)))
- #{e2*\ 5310}#
- #{e1*\ 5309}#
- #{args*\ 5308}#))))
- (lambda (#{meta\ 5316}# #{lcase\ 5317}#)
- (#{build-case-lambda\ 2440}#
- #{s\ 5288}#
- #{meta\ 5316}#
- #{lcase\ 5317}#))))
- #{tmp\ 5296}#)
- (let ((#{_\ 5321}# #{tmp\ 5295}#))
+ (#{chi-lambda-case\ 489}#
+ #{e\ 3115}#
+ #{r\ 3116}#
+ #{w\ 3117}#
+ #{s\ 3118}#
+ #{mod\ 3119}#
+ #{lambda-formals\ 483}#
+ (cons (cons #{args\ 3133}#
+ (cons #{e1\ 3134}# #{e2\ 3135}#))
+ (map (lambda (#{tmp\ 3142}#
+ #{tmp\ 3141}#
+ #{tmp\ 3140}#)
+ (cons #{tmp\ 3140}#
+ (cons #{tmp\ 3141}#
+ #{tmp\ 3142}#)))
+ #{e2*\ 3138}#
+ #{e1*\ 3137}#
+ #{args*\ 3136}#))))
+ (lambda (#{meta\ 3144}# #{lcase\ 3145}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3118}#
+ #{meta\ 3144}#
+ #{lcase\ 3145}#))))
+ #{tmp\ 3126}#)
+ (let ((#{_\ 3149}# #{tmp\ 3125}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 5285}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3115}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda*
- (lambda (#{e\ 5322}#
- #{r\ 5323}#
- #{w\ 5324}#
- #{s\ 5325}#
- #{mod\ 5326}#)
- (let ((#{tmp\ 5332}# #{e\ 5322}#))
- (let ((#{tmp\ 5333}#
+ (lambda (#{e\ 3150}#
+ #{r\ 3151}#
+ #{w\ 3152}#
+ #{s\ 3153}#
+ #{mod\ 3154}#)
+ (let ((#{tmp\ 3160}# #{e\ 3150}#))
+ (let ((#{tmp\ 3161}#
($sc-dispatch
- #{tmp\ 5332}#
- '(any (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 5333}#
+ #{tmp\ 3160}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp\ 3161}#
(@apply
- (lambda (#{_\ 5341}#
- #{args\ 5342}#
- #{e1\ 5343}#
- #{e2\ 5344}#
- #{args*\ 5345}#
- #{e1*\ 5346}#
- #{e2*\ 5347}#)
+ (lambda (#{args\ 3168}#
+ #{e1\ 3169}#
+ #{e2\ 3170}#
+ #{args*\ 3171}#
+ #{e1*\ 3172}#
+ #{e2*\ 3173}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 2605}#
- #{e\ 5322}#
- #{r\ 5323}#
- #{w\ 5324}#
- #{s\ 5325}#
- #{mod\ 5326}#
- #{lambda*-formals\ 2603}#
- (cons (cons #{args\ 5342}#
- (cons #{e1\ 5343}# #{e2\ 5344}#))
- (map (lambda (#{tmp\ 5351}#
- #{tmp\ 5350}#
- #{tmp\ 5349}#)
- (cons #{tmp\ 5349}#
- (cons #{tmp\ 5350}#
- #{tmp\ 5351}#)))
- #{e2*\ 5347}#
- #{e1*\ 5346}#
- #{args*\ 5345}#))))
- (lambda (#{meta\ 5353}# #{lcase\ 5354}#)
- (#{build-case-lambda\ 2440}#
- #{s\ 5325}#
- #{meta\ 5353}#
- #{lcase\ 5354}#))))
- #{tmp\ 5333}#)
- (let ((#{_\ 5358}# #{tmp\ 5332}#))
+ (#{chi-lambda-case\ 489}#
+ #{e\ 3150}#
+ #{r\ 3151}#
+ #{w\ 3152}#
+ #{s\ 3153}#
+ #{mod\ 3154}#
+ #{lambda*-formals\ 487}#
+ (cons (cons #{args\ 3168}#
+ (cons #{e1\ 3169}# #{e2\ 3170}#))
+ (map (lambda (#{tmp\ 3177}#
+ #{tmp\ 3176}#
+ #{tmp\ 3175}#)
+ (cons #{tmp\ 3175}#
+ (cons #{tmp\ 3176}#
+ #{tmp\ 3177}#)))
+ #{e2*\ 3173}#
+ #{e1*\ 3172}#
+ #{args*\ 3171}#))))
+ (lambda (#{meta\ 3179}# #{lcase\ 3180}#)
+ (#{build-case-lambda\ 324}#
+ #{s\ 3153}#
+ #{meta\ 3179}#
+ #{lcase\ 3180}#))))
+ #{tmp\ 3161}#)
+ (let ((#{_\ 3184}# #{tmp\ 3160}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 5322}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3150}#)))))))
+ (#{global-extend\ 376}#
'core
'let
(letrec*
- ((#{chi-let\ 5360}#
- (lambda (#{e\ 5361}#
- #{r\ 5362}#
- #{w\ 5363}#
- #{s\ 5364}#
- #{mod\ 5365}#
- #{constructor\ 5366}#
- #{ids\ 5367}#
- #{vals\ 5368}#
- #{exps\ 5369}#)
- (if (not (#{valid-bound-ids?\ 2559}# #{ids\ 5367}#))
+ ((#{chi-let\ 3186}#
+ (lambda (#{e\ 3187}#
+ #{r\ 3188}#
+ #{w\ 3189}#
+ #{s\ 3190}#
+ #{mod\ 3191}#
+ #{constructor\ 3192}#
+ #{ids\ 3193}#
+ #{vals\ 3194}#
+ #{exps\ 3195}#)
+ (if (not (#{valid-bound-ids?\ 443}# #{ids\ 3193}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 5361}#)
+ #{e\ 3187}#)
(begin
- (let ((#{labels\ 5381}#
- (#{gen-labels\ 2514}# #{ids\ 5367}#))
- (#{new-vars\ 5382}#
- (map #{gen-var\ 2609}# #{ids\ 5367}#)))
+ (let ((#{labels\ 3207}#
+ (#{gen-labels\ 398}# #{ids\ 3193}#))
+ (#{new-vars\ 3208}#
+ (map #{gen-var\ 493}# #{ids\ 3193}#)))
(begin
- (let ((#{nw\ 5385}#
- (#{make-binding-wrap\ 2543}#
- #{ids\ 5367}#
- #{labels\ 5381}#
- #{w\ 5363}#))
- (#{nr\ 5386}#
- (#{extend-var-env\ 2486}#
- #{labels\ 5381}#
- #{new-vars\ 5382}#
- #{r\ 5362}#)))
- (#{constructor\ 5366}#
- #{s\ 5364}#
- (map syntax->datum #{ids\ 5367}#)
- #{new-vars\ 5382}#
- (map (lambda (#{x\ 5387}#)
- (#{chi\ 2581}#
- #{x\ 5387}#
- #{r\ 5362}#
- #{w\ 5363}#
- #{mod\ 5365}#))
- #{vals\ 5368}#)
- (#{chi-body\ 2589}#
- #{exps\ 5369}#
- (#{source-wrap\ 2567}#
- #{e\ 5361}#
- #{nw\ 5385}#
- #{s\ 5364}#
- #{mod\ 5365}#)
- #{nr\ 5386}#
- #{nw\ 5385}#
- #{mod\ 5365}#))))))))))
+ (let ((#{nw\ 3211}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3193}#
+ #{labels\ 3207}#
+ #{w\ 3189}#))
+ (#{nr\ 3212}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3207}#
+ #{new-vars\ 3208}#
+ #{r\ 3188}#)))
+ (#{constructor\ 3192}#
+ #{s\ 3190}#
+ (map syntax->datum #{ids\ 3193}#)
+ #{new-vars\ 3208}#
+ (map (lambda (#{x\ 3213}#)
+ (#{chi\ 465}#
+ #{x\ 3213}#
+ #{r\ 3188}#
+ #{w\ 3189}#
+ #{mod\ 3191}#))
+ #{vals\ 3194}#)
+ (#{chi-body\ 473}#
+ #{exps\ 3195}#
+ (#{source-wrap\ 451}#
+ #{e\ 3187}#
+ #{nw\ 3211}#
+ #{s\ 3190}#
+ #{mod\ 3191}#)
+ #{nr\ 3212}#
+ #{nw\ 3211}#
+ #{mod\ 3191}#))))))))))
(begin
- (lambda (#{e\ 5389}#
- #{r\ 5390}#
- #{w\ 5391}#
- #{s\ 5392}#
- #{mod\ 5393}#)
- (let ((#{tmp\ 5399}# #{e\ 5389}#))
- (let ((#{tmp\ 5400}#
+ (lambda (#{e\ 3215}#
+ #{r\ 3216}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#)
+ (let ((#{tmp\ 3225}# #{e\ 3215}#))
+ (let ((#{tmp\ 3226}#
($sc-dispatch
- #{tmp\ 5399}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 5400}#
+ #{tmp\ 3225}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3226}#
(@apply
- (lambda (#{_\ 5406}#
- #{id\ 5407}#
- #{val\ 5408}#
- #{e1\ 5409}#
- #{e2\ 5410}#)
- (and-map #{id?\ 2496}# #{id\ 5407}#))
- #{tmp\ 5400}#)
+ (lambda (#{id\ 3231}#
+ #{val\ 3232}#
+ #{e1\ 3233}#
+ #{e2\ 3234}#)
+ (and-map #{id?\ 380}# #{id\ 3231}#))
+ #{tmp\ 3226}#)
#f)
(@apply
- (lambda (#{_\ 5417}#
- #{id\ 5418}#
- #{val\ 5419}#
- #{e1\ 5420}#
- #{e2\ 5421}#)
- (#{chi-let\ 5360}#
- #{e\ 5389}#
- #{r\ 5390}#
- #{w\ 5391}#
- #{s\ 5392}#
- #{mod\ 5393}#
- #{build-let\ 2450}#
- #{id\ 5418}#
- #{val\ 5419}#
- (cons #{e1\ 5420}# #{e2\ 5421}#)))
- #{tmp\ 5400}#)
- (let ((#{tmp\ 5425}#
+ (lambda (#{id\ 3240}#
+ #{val\ 3241}#
+ #{e1\ 3242}#
+ #{e2\ 3243}#)
+ (#{chi-let\ 3186}#
+ #{e\ 3215}#
+ #{r\ 3216}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#
+ #{build-let\ 334}#
+ #{id\ 3240}#
+ #{val\ 3241}#
+ (cons #{e1\ 3242}# #{e2\ 3243}#)))
+ #{tmp\ 3226}#)
+ (let ((#{tmp\ 3247}#
($sc-dispatch
- #{tmp\ 5399}#
- '(any any
- #(each (any any))
- any
- .
- each-any))))
- (if (if #{tmp\ 5425}#
+ #{tmp\ 3225}#
+ '(_ any
+ #(each (any any))
+ any
+ .
+ each-any))))
+ (if (if #{tmp\ 3247}#
(@apply
- (lambda (#{_\ 5432}#
- #{f\ 5433}#
- #{id\ 5434}#
- #{val\ 5435}#
- #{e1\ 5436}#
- #{e2\ 5437}#)
- (if (#{id?\ 2496}# #{f\ 5433}#)
- (and-map #{id?\ 2496}# #{id\ 5434}#)
+ (lambda (#{f\ 3253}#
+ #{id\ 3254}#
+ #{val\ 3255}#
+ #{e1\ 3256}#
+ #{e2\ 3257}#)
+ (if (#{id?\ 380}# #{f\ 3253}#)
+ (and-map #{id?\ 380}# #{id\ 3254}#)
#f))
- #{tmp\ 5425}#)
+ #{tmp\ 3247}#)
#f)
(@apply
- (lambda (#{_\ 5447}#
- #{f\ 5448}#
- #{id\ 5449}#
- #{val\ 5450}#
- #{e1\ 5451}#
- #{e2\ 5452}#)
- (#{chi-let\ 5360}#
- #{e\ 5389}#
- #{r\ 5390}#
- #{w\ 5391}#
- #{s\ 5392}#
- #{mod\ 5393}#
- #{build-named-let\ 2452}#
- (cons #{f\ 5448}# #{id\ 5449}#)
- #{val\ 5450}#
- (cons #{e1\ 5451}# #{e2\ 5452}#)))
- #{tmp\ 5425}#)
- (let ((#{_\ 5457}# #{tmp\ 5399}#))
+ (lambda (#{f\ 3266}#
+ #{id\ 3267}#
+ #{val\ 3268}#
+ #{e1\ 3269}#
+ #{e2\ 3270}#)
+ (#{chi-let\ 3186}#
+ #{e\ 3215}#
+ #{r\ 3216}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#
+ #{build-named-let\ 336}#
+ (cons #{f\ 3266}# #{id\ 3267}#)
+ #{val\ 3268}#
+ (cons #{e1\ 3269}# #{e2\ 3270}#)))
+ #{tmp\ 3247}#)
+ (let ((#{_\ 3275}# #{tmp\ 3225}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 2567}#
- #{e\ 5389}#
- #{w\ 5391}#
- #{s\ 5392}#
- #{mod\ 5393}#))))))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 451}#
+ #{e\ 3215}#
+ #{w\ 3217}#
+ #{s\ 3218}#
+ #{mod\ 3219}#))))))))))))
+ (#{global-extend\ 376}#
'core
'letrec
- (lambda (#{e\ 5458}#
- #{r\ 5459}#
- #{w\ 5460}#
- #{s\ 5461}#
- #{mod\ 5462}#)
- (let ((#{tmp\ 5468}# #{e\ 5458}#))
- (let ((#{tmp\ 5469}#
+ (lambda (#{e\ 3276}#
+ #{r\ 3277}#
+ #{w\ 3278}#
+ #{s\ 3279}#
+ #{mod\ 3280}#)
+ (let ((#{tmp\ 3286}# #{e\ 3276}#))
+ (let ((#{tmp\ 3287}#
($sc-dispatch
- #{tmp\ 5468}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 5469}#
+ #{tmp\ 3286}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3287}#
(@apply
- (lambda (#{_\ 5475}#
- #{id\ 5476}#
- #{val\ 5477}#
- #{e1\ 5478}#
- #{e2\ 5479}#)
- (and-map #{id?\ 2496}# #{id\ 5476}#))
- #{tmp\ 5469}#)
+ (lambda (#{id\ 3292}#
+ #{val\ 3293}#
+ #{e1\ 3294}#
+ #{e2\ 3295}#)
+ (and-map #{id?\ 380}# #{id\ 3292}#))
+ #{tmp\ 3287}#)
#f)
(@apply
- (lambda (#{_\ 5486}#
- #{id\ 5487}#
- #{val\ 5488}#
- #{e1\ 5489}#
- #{e2\ 5490}#)
+ (lambda (#{id\ 3301}#
+ #{val\ 3302}#
+ #{e1\ 3303}#
+ #{e2\ 3304}#)
(begin
- (let ((#{ids\ 5492}# #{id\ 5487}#))
- (if (not (#{valid-bound-ids?\ 2559}#
- #{ids\ 5492}#))
+ (let ((#{ids\ 3306}# #{id\ 3301}#))
+ (if (not (#{valid-bound-ids?\ 443}#
+ #{ids\ 3306}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 5458}#)
+ #{e\ 3276}#)
(begin
- (let ((#{labels\ 5496}#
- (#{gen-labels\ 2514}# #{ids\ 5492}#))
- (#{new-vars\ 5497}#
- (map #{gen-var\ 2609}#
- #{ids\ 5492}#)))
+ (let ((#{labels\ 3310}#
+ (#{gen-labels\ 398}# #{ids\ 3306}#))
+ (#{new-vars\ 3311}#
+ (map #{gen-var\ 493}#
+ #{ids\ 3306}#)))
(begin
- (let ((#{w\ 5500}#
- (#{make-binding-wrap\ 2543}#
- #{ids\ 5492}#
- #{labels\ 5496}#
- #{w\ 5460}#))
- (#{r\ 5501}#
- (#{extend-var-env\ 2486}#
- #{labels\ 5496}#
- #{new-vars\ 5497}#
- #{r\ 5459}#)))
- (#{build-letrec\ 2454}#
- #{s\ 5461}#
+ (let ((#{w\ 3314}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3306}#
+ #{labels\ 3310}#
+ #{w\ 3278}#))
+ (#{r\ 3315}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3310}#
+ #{new-vars\ 3311}#
+ #{r\ 3277}#)))
+ (#{build-letrec\ 338}#
+ #{s\ 3279}#
#f
- (map syntax->datum #{ids\ 5492}#)
- #{new-vars\ 5497}#
- (map (lambda (#{x\ 5502}#)
- (#{chi\ 2581}#
- #{x\ 5502}#
- #{r\ 5501}#
- #{w\ 5500}#
- #{mod\ 5462}#))
- #{val\ 5488}#)
- (#{chi-body\ 2589}#
- (cons #{e1\ 5489}# #{e2\ 5490}#)
- (#{source-wrap\ 2567}#
- #{e\ 5458}#
- #{w\ 5500}#
- #{s\ 5461}#
- #{mod\ 5462}#)
- #{r\ 5501}#
- #{w\ 5500}#
- #{mod\ 5462}#))))))))))
- #{tmp\ 5469}#)
- (let ((#{_\ 5507}# #{tmp\ 5468}#))
+ (map syntax->datum #{ids\ 3306}#)
+ #{new-vars\ 3311}#
+ (map (lambda (#{x\ 3316}#)
+ (#{chi\ 465}#
+ #{x\ 3316}#
+ #{r\ 3315}#
+ #{w\ 3314}#
+ #{mod\ 3280}#))
+ #{val\ 3302}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 3303}# #{e2\ 3304}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3276}#
+ #{w\ 3314}#
+ #{s\ 3279}#
+ #{mod\ 3280}#)
+ #{r\ 3315}#
+ #{w\ 3314}#
+ #{mod\ 3280}#))))))))))
+ #{tmp\ 3287}#)
+ (let ((#{_\ 3321}# #{tmp\ 3286}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 2567}#
- #{e\ 5458}#
- #{w\ 5460}#
- #{s\ 5461}#
- #{mod\ 5462}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 451}#
+ #{e\ 3276}#
+ #{w\ 3278}#
+ #{s\ 3279}#
+ #{mod\ 3280}#))))))))
+ (#{global-extend\ 376}#
'core
'letrec*
- (lambda (#{e\ 5508}#
- #{r\ 5509}#
- #{w\ 5510}#
- #{s\ 5511}#
- #{mod\ 5512}#)
- (let ((#{tmp\ 5518}# #{e\ 5508}#))
- (let ((#{tmp\ 5519}#
+ (lambda (#{e\ 3322}#
+ #{r\ 3323}#
+ #{w\ 3324}#
+ #{s\ 3325}#
+ #{mod\ 3326}#)
+ (let ((#{tmp\ 3332}# #{e\ 3322}#))
+ (let ((#{tmp\ 3333}#
($sc-dispatch
- #{tmp\ 5518}#
- '(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 5519}#
+ #{tmp\ 3332}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3333}#
(@apply
- (lambda (#{_\ 5525}#
- #{id\ 5526}#
- #{val\ 5527}#
- #{e1\ 5528}#
- #{e2\ 5529}#)
- (and-map #{id?\ 2496}# #{id\ 5526}#))
- #{tmp\ 5519}#)
+ (lambda (#{id\ 3338}#
+ #{val\ 3339}#
+ #{e1\ 3340}#
+ #{e2\ 3341}#)
+ (and-map #{id?\ 380}# #{id\ 3338}#))
+ #{tmp\ 3333}#)
#f)
(@apply
- (lambda (#{_\ 5536}#
- #{id\ 5537}#
- #{val\ 5538}#
- #{e1\ 5539}#
- #{e2\ 5540}#)
+ (lambda (#{id\ 3347}#
+ #{val\ 3348}#
+ #{e1\ 3349}#
+ #{e2\ 3350}#)
(begin
- (let ((#{ids\ 5542}# #{id\ 5537}#))
- (if (not (#{valid-bound-ids?\ 2559}#
- #{ids\ 5542}#))
+ (let ((#{ids\ 3352}# #{id\ 3347}#))
+ (if (not (#{valid-bound-ids?\ 443}#
+ #{ids\ 3352}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 5508}#)
+ #{e\ 3322}#)
(begin
- (let ((#{labels\ 5546}#
- (#{gen-labels\ 2514}# #{ids\ 5542}#))
- (#{new-vars\ 5547}#
- (map #{gen-var\ 2609}#
- #{ids\ 5542}#)))
+ (let ((#{labels\ 3356}#
+ (#{gen-labels\ 398}# #{ids\ 3352}#))
+ (#{new-vars\ 3357}#
+ (map #{gen-var\ 493}#
+ #{ids\ 3352}#)))
(begin
- (let ((#{w\ 5550}#
- (#{make-binding-wrap\ 2543}#
- #{ids\ 5542}#
- #{labels\ 5546}#
- #{w\ 5510}#))
- (#{r\ 5551}#
- (#{extend-var-env\ 2486}#
- #{labels\ 5546}#
- #{new-vars\ 5547}#
- #{r\ 5509}#)))
- (#{build-letrec\ 2454}#
- #{s\ 5511}#
+ (let ((#{w\ 3360}#
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3352}#
+ #{labels\ 3356}#
+ #{w\ 3324}#))
+ (#{r\ 3361}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3356}#
+ #{new-vars\ 3357}#
+ #{r\ 3323}#)))
+ (#{build-letrec\ 338}#
+ #{s\ 3325}#
#t
- (map syntax->datum #{ids\ 5542}#)
- #{new-vars\ 5547}#
- (map (lambda (#{x\ 5552}#)
- (#{chi\ 2581}#
- #{x\ 5552}#
- #{r\ 5551}#
- #{w\ 5550}#
- #{mod\ 5512}#))
- #{val\ 5538}#)
- (#{chi-body\ 2589}#
- (cons #{e1\ 5539}# #{e2\ 5540}#)
- (#{source-wrap\ 2567}#
- #{e\ 5508}#
- #{w\ 5550}#
- #{s\ 5511}#
- #{mod\ 5512}#)
- #{r\ 5551}#
- #{w\ 5550}#
- #{mod\ 5512}#))))))))))
- #{tmp\ 5519}#)
- (let ((#{_\ 5557}# #{tmp\ 5518}#))
+ (map syntax->datum #{ids\ 3352}#)
+ #{new-vars\ 3357}#
+ (map (lambda (#{x\ 3362}#)
+ (#{chi\ 465}#
+ #{x\ 3362}#
+ #{r\ 3361}#
+ #{w\ 3360}#
+ #{mod\ 3326}#))
+ #{val\ 3348}#)
+ (#{chi-body\ 473}#
+ (cons #{e1\ 3349}# #{e2\ 3350}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3322}#
+ #{w\ 3360}#
+ #{s\ 3325}#
+ #{mod\ 3326}#)
+ #{r\ 3361}#
+ #{w\ 3360}#
+ #{mod\ 3326}#))))))))))
+ #{tmp\ 3333}#)
+ (let ((#{_\ 3367}# #{tmp\ 3332}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 2567}#
- #{e\ 5508}#
- #{w\ 5510}#
- #{s\ 5511}#
- #{mod\ 5512}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 451}#
+ #{e\ 3322}#
+ #{w\ 3324}#
+ #{s\ 3325}#
+ #{mod\ 3326}#))))))))
+ (#{global-extend\ 376}#
'core
'set!
- (lambda (#{e\ 5558}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{s\ 5561}#
- #{mod\ 5562}#)
- (let ((#{tmp\ 5568}# #{e\ 5558}#))
- (let ((#{tmp\ 5569}#
- ($sc-dispatch
- #{tmp\ 5568}#
- '(any any any))))
- (if (if #{tmp\ 5569}#
+ (lambda (#{e\ 3368}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{s\ 3371}#
+ #{mod\ 3372}#)
+ (let ((#{tmp\ 3378}# #{e\ 3368}#))
+ (let ((#{tmp\ 3379}#
+ ($sc-dispatch #{tmp\ 3378}# (quote (_ any any)))))
+ (if (if #{tmp\ 3379}#
(@apply
- (lambda (#{_\ 5573}# #{id\ 5574}# #{val\ 5575}#)
- (#{id?\ 2496}# #{id\ 5574}#))
- #{tmp\ 5569}#)
+ (lambda (#{id\ 3382}# #{val\ 3383}#)
+ (#{id?\ 380}# #{id\ 3382}#))
+ #{tmp\ 3379}#)
#f)
(@apply
- (lambda (#{_\ 5579}# #{id\ 5580}# #{val\ 5581}#)
+ (lambda (#{id\ 3386}# #{val\ 3387}#)
(begin
- (let ((#{n\ 5583}#
- (#{id-var-name\ 2553}#
- #{id\ 5580}#
- #{w\ 5560}#)))
+ (let ((#{n\ 3389}#
+ (#{id-var-name\ 437}#
+ #{id\ 3386}#
+ #{w\ 3370}#)))
(begin
- (let ((#{b\ 5585}#
- (#{lookup\ 2490}#
- #{n\ 5583}#
- #{r\ 5559}#
- #{mod\ 5562}#)))
+ (let ((#{b\ 3391}#
+ (#{lookup\ 374}#
+ #{n\ 3389}#
+ #{r\ 3369}#
+ #{mod\ 3372}#)))
(begin
- (let ((#{atom-key\ 5588}#
- (#{binding-type\ 2479}#
- #{b\ 5585}#)))
- (if (eqv? #{atom-key\ 5588}#
+ (let ((#{atom-key\ 3394}#
+ (#{binding-type\ 363}#
+ #{b\ 3391}#)))
+ (if (eqv? #{atom-key\ 3394}#
'lexical)
- (#{build-lexical-assignment\ 2428}#
- #{s\ 5561}#
- (syntax->datum #{id\ 5580}#)
- (#{binding-value\ 2481}# #{b\ 5585}#)
- (#{chi\ 2581}#
- #{val\ 5581}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#))
- (if (eqv? #{atom-key\ 5588}#
+ (#{build-lexical-assignment\ 312}#
+ #{s\ 3371}#
+ (syntax->datum #{id\ 3386}#)
+ (#{binding-value\ 365}# #{b\ 3391}#)
+ (#{chi\ 465}#
+ #{val\ 3387}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#))
+ (if (eqv? #{atom-key\ 3394}#
'global)
- (#{build-global-assignment\ 2434}#
- #{s\ 5561}#
- #{n\ 5583}#
- (#{chi\ 2581}#
- #{val\ 5581}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#)
- #{mod\ 5562}#)
- (if (eqv? #{atom-key\ 5588}#
+ (#{build-global-assignment\ 318}#
+ #{s\ 3371}#
+ #{n\ 3389}#
+ (#{chi\ 465}#
+ #{val\ 3387}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)
+ #{mod\ 3372}#)
+ (if (eqv? #{atom-key\ 3394}#
'macro)
(begin
- (let ((#{p\ 5593}#
- (#{binding-value\ 2481}#
- #{b\ 5585}#)))
+ (let ((#{p\ 3399}#
+ (#{binding-value\ 365}#
+ #{b\ 3391}#)))
(if (procedure-property
- #{p\ 5593}#
+ #{p\ 3399}#
'variable-transformer)
- (#{chi\ 2581}#
- (#{chi-macro\ 2587}#
- #{p\ 5593}#
- #{e\ 5558}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{s\ 5561}#
+ (#{chi\ 465}#
+ (#{chi-macro\ 471}#
+ #{p\ 3399}#
+ #{e\ 3368}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{s\ 3371}#
#f
- #{mod\ 5562}#)
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#)
+ #{mod\ 3372}#)
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)
(syntax-violation
'set!
"not a variable
transformer"
- (#{wrap\ 2565}#
- #{e\ 5558}#
- #{w\ 5560}#
- #{mod\ 5562}#)
- (#{wrap\ 2565}#
- #{id\ 5580}#
- #{w\ 5560}#
- #{mod\ 5562}#)))))
- (if (eqv? #{atom-key\ 5588}#
+ (#{wrap\ 449}#
+ #{e\ 3368}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)
+ (#{wrap\ 449}#
+ #{id\ 3386}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)))))
+ (if (eqv? #{atom-key\ 3394}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 2565}#
- #{id\ 5580}#
- #{w\ 5560}#
- #{mod\ 5562}#))
+ (#{wrap\ 449}#
+ #{id\ 3386}#
+ #{w\ 3370}#
+ #{mod\ 3372}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 2567}#
- #{e\ 5558}#
- #{w\ 5560}#
- #{s\ 5561}#
- #{mod\ 5562}#)))))))))))))
- #{tmp\ 5569}#)
- (let ((#{tmp\ 5596}#
+ (#{source-wrap\ 451}#
+ #{e\ 3368}#
+ #{w\ 3370}#
+ #{s\ 3371}#
+ #{mod\ 3372}#)))))))))))))
+ #{tmp\ 3379}#)
+ (let ((#{tmp\ 3402}#
($sc-dispatch
- #{tmp\ 5568}#
- '(any (any . each-any) any))))
- (if #{tmp\ 5596}#
+ #{tmp\ 3378}#
+ '(_ (any . each-any) any))))
+ (if #{tmp\ 3402}#
(@apply
- (lambda (#{_\ 5601}#
- #{head\ 5602}#
- #{tail\ 5603}#
- #{val\ 5604}#)
+ (lambda (#{head\ 3406}#
+ #{tail\ 3407}#
+ #{val\ 3408}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{head\ 5602}#
- #{r\ 5559}#
+ (#{syntax-type\ 461}#
+ #{head\ 3406}#
+ #{r\ 3369}#
'(())
#f
#f
- #{mod\ 5562}#
+ #{mod\ 3372}#
#t))
- (lambda (#{type\ 5607}#
- #{value\ 5608}#
- #{ee\ 5609}#
- #{ww\ 5610}#
- #{ss\ 5611}#
- #{modmod\ 5612}#)
- (if (eqv? #{type\ 5607}# (quote module-ref))
+ (lambda (#{type\ 3411}#
+ #{value\ 3412}#
+ #{ee\ 3413}#
+ #{ww\ 3414}#
+ #{ss\ 3415}#
+ #{modmod\ 3416}#)
+ (if (eqv? #{type\ 3411}# (quote module-ref))
(begin
- (let ((#{val\ 5621}#
- (#{chi\ 2581}#
- #{val\ 5604}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#)))
+ (let ((#{val\ 3425}#
+ (#{chi\ 465}#
+ #{val\ 3408}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)))
(call-with-values
(lambda ()
- (#{value\ 5608}#
- (cons #{head\ 5602}#
- #{tail\ 5603}#)
- #{r\ 5559}#
- #{w\ 5560}#))
- (lambda (#{e\ 5623}#
- #{r\ 5624}#
- #{w\ 5625}#
- #{s*\ 5626}#
- #{mod\ 5627}#)
- (let ((#{tmp\ 5633}# #{e\ 5623}#))
- (let ((#{tmp\ 5634}#
- (list #{tmp\ 5633}#)))
- (if (if #{tmp\ 5634}#
+ (#{value\ 3412}#
+ (cons #{head\ 3406}#
+ #{tail\ 3407}#)
+ #{r\ 3369}#
+ #{w\ 3370}#))
+ (lambda (#{e\ 3427}#
+ #{r\ 3428}#
+ #{w\ 3429}#
+ #{s*\ 3430}#
+ #{mod\ 3431}#)
+ (let ((#{tmp\ 3437}# #{e\ 3427}#))
+ (let ((#{tmp\ 3438}#
+ (list #{tmp\ 3437}#)))
+ (if (if #{tmp\ 3438}#
(@apply
- (lambda (#{e\ 5636}#)
- (#{id?\ 2496}#
- #{e\ 5636}#))
- #{tmp\ 5634}#)
+ (lambda (#{e\ 3440}#)
+ (#{id?\ 380}#
+ #{e\ 3440}#))
+ #{tmp\ 3438}#)
#f)
(@apply
- (lambda (#{e\ 5638}#)
-
(#{build-global-assignment\ 2434}#
- #{s\ 5561}#
+ (lambda (#{e\ 3442}#)
+
(#{build-global-assignment\ 318}#
+ #{s\ 3371}#
(syntax->datum
- #{e\ 5638}#)
- #{val\ 5621}#
- #{mod\ 5627}#))
- #{tmp\ 5634}#)
+ #{e\ 3442}#)
+ #{val\ 3425}#
+ #{mod\ 3431}#))
+ #{tmp\ 3438}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 5633}#))))))))
- (#{build-application\ 2420}#
- #{s\ 5561}#
- (#{chi\ 2581}#
+ #{tmp\ 3437}#))))))))
+ (#{build-application\ 304}#
+ #{s\ 3371}#
+ (#{chi\ 465}#
(list '#(syntax-object
setter
((top)
@@ -10351,19 +10278,16 @@
(top)
(top)
(top))
- #("i5613"
- "i5614"
- "i5615"
- "i5616"
- "i5617"
- "i5618"))
+ #("i3417"
+ "i3418"
+ "i3419"
+ "i3420"
+ "i3421"
+ "i3422"))
#(ribcage
- #(_ head tail val)
- #((top) (top) (top) (top))
- #("i5597"
- "i5598"
- "i5599"
- "i5600"))
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3403" "i3404" "i3405"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10372,11 +10296,11 @@
(top)
(top)
(top))
- #("i5563"
- "i5564"
- "i5565"
- "i5566"
- "i5567"))
+ #("i3373"
+ "i3374"
+ "i3375"
+ "i3376"
+ "i3377"))
#(ribcage
(lambda-var-list
gen-var
@@ -10652,214 +10576,211 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile))
- #{head\ 5602}#)
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#)
- (map (lambda (#{e\ 5640}#)
- (#{chi\ 2581}#
- #{e\ 5640}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#))
+ #{head\ 3406}#)
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#)
+ (map (lambda (#{e\ 3444}#)
+ (#{chi\ 465}#
+ #{e\ 3444}#
+ #{r\ 3369}#
+ #{w\ 3370}#
+ #{mod\ 3372}#))
(append
- #{tail\ 5603}#
- (list #{val\ 5604}#))))))))
- #{tmp\ 5596}#)
- (let ((#{_\ 5644}# #{tmp\ 5568}#))
+ #{tail\ 3407}#
+ (list #{val\ 3408}#))))))))
+ #{tmp\ 3402}#)
+ (let ((#{_\ 3448}# #{tmp\ 3378}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 2567}#
- #{e\ 5558}#
- #{w\ 5560}#
- #{s\ 5561}#
- #{mod\ 5562}#))))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 451}#
+ #{e\ 3368}#
+ #{w\ 3370}#
+ #{s\ 3371}#
+ #{mod\ 3372}#))))))))))
+ (#{global-extend\ 376}#
'module-ref
'@
- (lambda (#{e\ 5645}# #{r\ 5646}# #{w\ 5647}#)
- (let ((#{tmp\ 5651}# #{e\ 5645}#))
- (let ((#{tmp\ 5652}#
+ (lambda (#{e\ 3449}# #{r\ 3450}# #{w\ 3451}#)
+ (let ((#{tmp\ 3455}# #{e\ 3449}#))
+ (let ((#{tmp\ 3456}#
($sc-dispatch
- #{tmp\ 5651}#
- '(any each-any any))))
- (if (if #{tmp\ 5652}#
+ #{tmp\ 3455}#
+ '(_ each-any any))))
+ (if (if #{tmp\ 3456}#
(@apply
- (lambda (#{_\ 5656}# #{mod\ 5657}# #{id\ 5658}#)
- (if (and-map #{id?\ 2496}# #{mod\ 5657}#)
- (#{id?\ 2496}# #{id\ 5658}#)
+ (lambda (#{mod\ 3459}# #{id\ 3460}#)
+ (if (and-map #{id?\ 380}# #{mod\ 3459}#)
+ (#{id?\ 380}# #{id\ 3460}#)
#f))
- #{tmp\ 5652}#)
+ #{tmp\ 3456}#)
#f)
(@apply
- (lambda (#{_\ 5665}# #{mod\ 5666}# #{id\ 5667}#)
+ (lambda (#{mod\ 3466}# #{id\ 3467}#)
(values
- (syntax->datum #{id\ 5667}#)
- #{r\ 5646}#
- #{w\ 5647}#
+ (syntax->datum #{id\ 3467}#)
+ #{r\ 3450}#
+ #{w\ 3451}#
#f
(syntax->datum
(cons '#(syntax-object
public
((top)
#(ribcage
- #(_ mod id)
- #((top) (top) (top))
- #("i5662" "i5663" "i5664"))
+ #(mod id)
+ #((top) (top))
+ #("i3464" "i3465"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i5648" "i5649" "i5650"))
+ #("i3452" "i3453" "i3454"))
#(ribcage
(lambda-var-list
gen-var
@@ -11135,244 +11056,240 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147" "i2146" "i2145" "i2143")))
+ ("i39" "i38" "i37" "i35")))
(hygiene guile))
- #{mod\ 5666}#))))
- #{tmp\ 5652}#)
+ #{mod\ 3466}#))))
+ #{tmp\ 3456}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5651}#))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3455}#))))))
+ (#{global-extend\ 376}#
'module-ref
'@@
- (lambda (#{e\ 5669}# #{r\ 5670}# #{w\ 5671}#)
+ (lambda (#{e\ 3469}# #{r\ 3470}# #{w\ 3471}#)
(letrec*
- ((#{remodulate\ 5676}#
- (lambda (#{x\ 5677}# #{mod\ 5678}#)
- (if (pair? #{x\ 5677}#)
- (cons (#{remodulate\ 5676}#
- (car #{x\ 5677}#)
- #{mod\ 5678}#)
- (#{remodulate\ 5676}#
- (cdr #{x\ 5677}#)
- #{mod\ 5678}#))
- (if (#{syntax-object?\ 2460}# #{x\ 5677}#)
- (#{make-syntax-object\ 2458}#
- (#{remodulate\ 5676}#
- (#{syntax-object-expression\ 2462}# #{x\ 5677}#)
- #{mod\ 5678}#)
- (#{syntax-object-wrap\ 2464}# #{x\ 5677}#)
- #{mod\ 5678}#)
- (if (vector? #{x\ 5677}#)
+ ((#{remodulate\ 3476}#
+ (lambda (#{x\ 3477}# #{mod\ 3478}#)
+ (if (pair? #{x\ 3477}#)
+ (cons (#{remodulate\ 3476}#
+ (car #{x\ 3477}#)
+ #{mod\ 3478}#)
+ (#{remodulate\ 3476}#
+ (cdr #{x\ 3477}#)
+ #{mod\ 3478}#))
+ (if (#{syntax-object?\ 344}# #{x\ 3477}#)
+ (#{make-syntax-object\ 342}#
+ (#{remodulate\ 3476}#
+ (#{syntax-object-expression\ 346}# #{x\ 3477}#)
+ #{mod\ 3478}#)
+ (#{syntax-object-wrap\ 348}# #{x\ 3477}#)
+ #{mod\ 3478}#)
+ (if (vector? #{x\ 3477}#)
(begin
- (let ((#{n\ 5689}# (vector-length #{x\ 5677}#)))
+ (let ((#{n\ 3489}# (vector-length #{x\ 3477}#)))
(begin
- (let ((#{v\ 5691}#
- (make-vector #{n\ 5689}#)))
+ (let ((#{v\ 3491}#
+ (make-vector #{n\ 3489}#)))
(letrec*
- ((#{loop\ 5694}#
- (lambda (#{i\ 5695}#)
- (if (#{fx=\ 2401}#
- #{i\ 5695}#
- #{n\ 5689}#)
- (begin (if #f #f) #{v\ 5691}#)
+ ((#{loop\ 3494}#
+ (lambda (#{i\ 3495}#)
+ (if (#{fx=\ 285}#
+ #{i\ 3495}#
+ #{n\ 3489}#)
+ (begin (if #f #f) #{v\ 3491}#)
(begin
(vector-set!
- #{v\ 5691}#
- #{i\ 5695}#
- (#{remodulate\ 5676}#
+ #{v\ 3491}#
+ #{i\ 3495}#
+ (#{remodulate\ 3476}#
(vector-ref
- #{x\ 5677}#
- #{i\ 5695}#)
- #{mod\ 5678}#))
- (#{loop\ 5694}#
- (#{fx+\ 2397}#
- #{i\ 5695}#
+ #{x\ 3477}#
+ #{i\ 3495}#)
+ #{mod\ 3478}#))
+ (#{loop\ 3494}#
+ (#{fx+\ 281}#
+ #{i\ 3495}#
1)))))))
- (begin (#{loop\ 5694}# 0)))))))
- #{x\ 5677}#))))))
+ (begin (#{loop\ 3494}# 0)))))))
+ #{x\ 3477}#))))))
(begin
- (let ((#{tmp\ 5699}# #{e\ 5669}#))
- (let ((#{tmp\ 5700}#
+ (let ((#{tmp\ 3499}# #{e\ 3469}#))
+ (let ((#{tmp\ 3500}#
($sc-dispatch
- #{tmp\ 5699}#
- '(any each-any any))))
- (if (if #{tmp\ 5700}#
+ #{tmp\ 3499}#
+ '(_ each-any any))))
+ (if (if #{tmp\ 3500}#
(@apply
- (lambda (#{_\ 5704}#
- #{mod\ 5705}#
- #{exp\ 5706}#)
- (and-map #{id?\ 2496}# #{mod\ 5705}#))
- #{tmp\ 5700}#)
+ (lambda (#{mod\ 3503}# #{exp\ 3504}#)
+ (and-map #{id?\ 380}# #{mod\ 3503}#))
+ #{tmp\ 3500}#)
#f)
(@apply
- (lambda (#{_\ 5711}# #{mod\ 5712}# #{exp\ 5713}#)
+ (lambda (#{mod\ 3508}# #{exp\ 3509}#)
(begin
- (let ((#{mod\ 5715}#
+ (let ((#{mod\ 3511}#
(syntax->datum
(cons '#(syntax-object
private
((top)
#(ribcage
- #(_ mod exp)
- #((top) (top) (top))
- #("i5708"
- "i5709"
- "i5710"))
+ #(mod exp)
+ #((top) (top))
+ #("i3506" "i3507"))
#(ribcage
(remodulate)
((top))
- ("i5675"))
+ ("i3475"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i5672"
- "i5673"
- "i5674"))
+ #("i3472"
+ "i3473"
+ "i3474"))
#(ribcage
(lambda-var-list
gen-var
@@ -11648,662 +11565,1104 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene guile))
- #{mod\ 5712}#))))
+ #{mod\ 3508}#))))
(values
- (#{remodulate\ 5676}#
- #{exp\ 5713}#
- #{mod\ 5715}#)
- #{r\ 5670}#
- #{w\ 5671}#
- (#{source-annotation\ 2475}# #{exp\ 5713}#)
- #{mod\ 5715}#))))
- #{tmp\ 5700}#)
+ (#{remodulate\ 3476}#
+ #{exp\ 3509}#
+ #{mod\ 3511}#)
+ #{r\ 3470}#
+ #{w\ 3471}#
+ (#{source-annotation\ 359}# #{exp\ 3509}#)
+ #{mod\ 3511}#))))
+ #{tmp\ 3500}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5699}#))))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3499}#))))))))
+ (#{global-extend\ 376}#
'core
'if
- (lambda (#{e\ 5717}#
- #{r\ 5718}#
- #{w\ 5719}#
- #{s\ 5720}#
- #{mod\ 5721}#)
- (let ((#{tmp\ 5727}# #{e\ 5717}#))
- (let ((#{tmp\ 5728}#
- ($sc-dispatch
- #{tmp\ 5727}#
- '(any any any))))
- (if #{tmp\ 5728}#
+ (lambda (#{e\ 3513}#
+ #{r\ 3514}#
+ #{w\ 3515}#
+ #{s\ 3516}#
+ #{mod\ 3517}#)
+ (let ((#{tmp\ 3523}# #{e\ 3513}#))
+ (let ((#{tmp\ 3524}#
+ ($sc-dispatch #{tmp\ 3523}# (quote (_ any any)))))
+ (if #{tmp\ 3524}#
(@apply
- (lambda (#{_\ 5732}# #{test\ 5733}# #{then\ 5734}#)
- (#{build-conditional\ 2422}#
- #{s\ 5720}#
- (#{chi\ 2581}#
- #{test\ 5733}#
- #{r\ 5718}#
- #{w\ 5719}#
- #{mod\ 5721}#)
- (#{chi\ 2581}#
- #{then\ 5734}#
- #{r\ 5718}#
- #{w\ 5719}#
- #{mod\ 5721}#)
- (#{build-void\ 2418}# #f)))
- #{tmp\ 5728}#)
- (let ((#{tmp\ 5736}#
+ (lambda (#{test\ 3527}# #{then\ 3528}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3516}#
+ (#{chi\ 465}#
+ #{test\ 3527}#
+ #{r\ 3514}#
+ #{w\ 3515}#
+ #{mod\ 3517}#)
+ (#{chi\ 465}#
+ #{then\ 3528}#
+ #{r\ 3514}#
+ #{w\ 3515}#
+ #{mod\ 3517}#)
+ (#{build-void\ 302}# #f)))
+ #{tmp\ 3524}#)
+ (let ((#{tmp\ 3530}#
($sc-dispatch
- #{tmp\ 5727}#
- '(any any any any))))
- (if #{tmp\ 5736}#
+ #{tmp\ 3523}#
+ '(_ any any any))))
+ (if #{tmp\ 3530}#
(@apply
- (lambda (#{_\ 5741}#
- #{test\ 5742}#
- #{then\ 5743}#
- #{else\ 5744}#)
- (#{build-conditional\ 2422}#
- #{s\ 5720}#
- (#{chi\ 2581}#
- #{test\ 5742}#
- #{r\ 5718}#
- #{w\ 5719}#
- #{mod\ 5721}#)
- (#{chi\ 2581}#
- #{then\ 5743}#
- #{r\ 5718}#
- #{w\ 5719}#
- #{mod\ 5721}#)
- (#{chi\ 2581}#
- #{else\ 5744}#
- #{r\ 5718}#
- #{w\ 5719}#
- #{mod\ 5721}#)))
- #{tmp\ 5736}#)
+ (lambda (#{test\ 3534}#
+ #{then\ 3535}#
+ #{else\ 3536}#)
+ (#{build-conditional\ 306}#
+ #{s\ 3516}#
+ (#{chi\ 465}#
+ #{test\ 3534}#
+ #{r\ 3514}#
+ #{w\ 3515}#
+ #{mod\ 3517}#)
+ (#{chi\ 465}#
+ #{then\ 3535}#
+ #{r\ 3514}#
+ #{w\ 3515}#
+ #{mod\ 3517}#)
+ (#{chi\ 465}#
+ #{else\ 3536}#
+ #{r\ 3514}#
+ #{w\ 3515}#
+ #{mod\ 3517}#)))
+ #{tmp\ 3530}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5727}#))))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3523}#))))))))
+ (#{global-extend\ 376}#
'core
'with-fluids
- (lambda (#{e\ 5745}#
- #{r\ 5746}#
- #{w\ 5747}#
- #{s\ 5748}#
- #{mod\ 5749}#)
- (let ((#{tmp\ 5755}# #{e\ 5745}#))
- (let ((#{tmp\ 5756}#
+ (lambda (#{e\ 3537}#
+ #{r\ 3538}#
+ #{w\ 3539}#
+ #{s\ 3540}#
+ #{mod\ 3541}#)
+ (let ((#{tmp\ 3547}# #{e\ 3537}#))
+ (let ((#{tmp\ 3548}#
($sc-dispatch
- #{tmp\ 5755}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 5756}#
+ #{tmp\ 3547}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 3548}#
(@apply
- (lambda (#{_\ 5762}#
- #{fluid\ 5763}#
- #{val\ 5764}#
- #{b\ 5765}#
- #{b*\ 5766}#)
- (#{build-dynlet\ 2424}#
- #{s\ 5748}#
- (map (lambda (#{x\ 5767}#)
- (#{chi\ 2581}#
- #{x\ 5767}#
- #{r\ 5746}#
- #{w\ 5747}#
- #{mod\ 5749}#))
- #{fluid\ 5763}#)
- (map (lambda (#{x\ 5770}#)
- (#{chi\ 2581}#
- #{x\ 5770}#
- #{r\ 5746}#
- #{w\ 5747}#
- #{mod\ 5749}#))
- #{val\ 5764}#)
- (#{chi-body\ 2589}#
- (cons #{b\ 5765}# #{b*\ 5766}#)
- (#{source-wrap\ 2567}#
- #{e\ 5745}#
- #{w\ 5747}#
- #{s\ 5748}#
- #{mod\ 5749}#)
- #{r\ 5746}#
- #{w\ 5747}#
- #{mod\ 5749}#)))
- #{tmp\ 5756}#)
+ (lambda (#{fluid\ 3553}#
+ #{val\ 3554}#
+ #{b\ 3555}#
+ #{b*\ 3556}#)
+ (#{build-dynlet\ 308}#
+ #{s\ 3540}#
+ (map (lambda (#{x\ 3557}#)
+ (#{chi\ 465}#
+ #{x\ 3557}#
+ #{r\ 3538}#
+ #{w\ 3539}#
+ #{mod\ 3541}#))
+ #{fluid\ 3553}#)
+ (map (lambda (#{x\ 3560}#)
+ (#{chi\ 465}#
+ #{x\ 3560}#
+ #{r\ 3538}#
+ #{w\ 3539}#
+ #{mod\ 3541}#))
+ #{val\ 3554}#)
+ (#{chi-body\ 473}#
+ (cons #{b\ 3555}# #{b*\ 3556}#)
+ (#{source-wrap\ 451}#
+ #{e\ 3537}#
+ #{w\ 3539}#
+ #{s\ 3540}#
+ #{mod\ 3541}#)
+ #{r\ 3538}#
+ #{w\ 3539}#
+ #{mod\ 3541}#)))
+ #{tmp\ 3548}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5755}#))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3547}#))))))
+ (#{global-extend\ 376}#
'begin
'begin
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 376}#
'define
'define
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 376}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 376}#
'eval-when
'eval-when
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 376}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 5775}#
- (lambda (#{pattern\ 5782}# #{keys\ 5783}#)
+ ((#{convert-pattern\ 3565}#
+ (lambda (#{pattern\ 3572}# #{keys\ 3573}#)
(letrec*
- ((#{cvt*\ 5787}#
- (lambda (#{p*\ 5790}# #{n\ 5791}# #{ids\ 5792}#)
- (if (null? #{p*\ 5790}#)
- (values (quote ()) #{ids\ 5792}#)
+ ((#{cvt*\ 3577}#
+ (lambda (#{p*\ 3580}# #{n\ 3581}# #{ids\ 3582}#)
+ (if (null? #{p*\ 3580}#)
+ (values (quote ()) #{ids\ 3582}#)
(call-with-values
(lambda ()
- (#{cvt*\ 5787}#
- (cdr #{p*\ 5790}#)
- #{n\ 5791}#
- #{ids\ 5792}#))
- (lambda (#{y\ 5796}# #{ids\ 5797}#)
+ (#{cvt*\ 3577}#
+ (cdr #{p*\ 3580}#)
+ #{n\ 3581}#
+ #{ids\ 3582}#))
+ (lambda (#{y\ 3586}# #{ids\ 3587}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- (car #{p*\ 5790}#)
- #{n\ 5791}#
- #{ids\ 5797}#))
- (lambda (#{x\ 5800}# #{ids\ 5801}#)
+ (#{cvt\ 3579}#
+ (car #{p*\ 3580}#)
+ #{n\ 3581}#
+ #{ids\ 3587}#))
+ (lambda (#{x\ 3590}# #{ids\ 3591}#)
(values
- (cons #{x\ 5800}# #{y\ 5796}#)
- #{ids\ 5801}#))))))))
- (#{cvt\ 5789}#
- (lambda (#{p\ 5804}# #{n\ 5805}# #{ids\ 5806}#)
- (if (#{id?\ 2496}# #{p\ 5804}#)
- (if (#{bound-id-member?\ 2563}#
- #{p\ 5804}#
- #{keys\ 5783}#)
+ (cons #{x\ 3590}# #{y\ 3586}#)
+ #{ids\ 3591}#))))))))
+ (#{cvt\ 3579}#
+ (lambda (#{p\ 3594}# #{n\ 3595}# #{ids\ 3596}#)
+ (if (#{id?\ 380}# #{p\ 3594}#)
+ (if (#{bound-id-member?\ 447}#
+ #{p\ 3594}#
+ #{keys\ 3573}#)
(values
- (vector (quote free-id) #{p\ 5804}#)
- #{ids\ 5806}#)
- (values
- 'any
- (cons (cons #{p\ 5804}# #{n\ 5805}#)
- #{ids\ 5806}#)))
- (let ((#{tmp\ 5810}# #{p\ 5804}#))
- (let ((#{tmp\ 5811}#
+ (vector (quote free-id) #{p\ 3594}#)
+ #{ids\ 3596}#)
+ (if (#{free-id=?\ 439}#
+ #{p\ 3594}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3597" "i3598" "i3599"))
+ #(ribcage
+ (cvt cvt*)
+ ((top) (top))
+ ("i3578" "i3576"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3574" "i3575"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3570" "i3568" "i3566" "i3564"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors
+ and-map*)
+ ((top) (top) (top) (top))
+ ("i39" "i38" "i37" "i35")))
+ (hygiene guile)))
+ (values (quote _) #{ids\ 3596}#)
+ (values
+ 'any
+ (cons (cons #{p\ 3594}# #{n\ 3595}#)
+ #{ids\ 3596}#))))
+ (let ((#{tmp\ 3605}# #{p\ 3594}#))
+ (let ((#{tmp\ 3606}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3605}#
'(any any))))
- (if (if #{tmp\ 5811}#
+ (if (if #{tmp\ 3606}#
(@apply
- (lambda (#{x\ 5814}# #{dots\ 5815}#)
- (#{ellipsis?\ 2597}#
- #{dots\ 5815}#))
- #{tmp\ 5811}#)
+ (lambda (#{x\ 3609}# #{dots\ 3610}#)
+ (#{ellipsis?\ 481}#
+ #{dots\ 3610}#))
+ #{tmp\ 3606}#)
#f)
(@apply
- (lambda (#{x\ 5818}# #{dots\ 5819}#)
+ (lambda (#{x\ 3613}# #{dots\ 3614}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5818}#
- (#{fx+\ 2397}# #{n\ 5805}# 1)
- #{ids\ 5806}#))
- (lambda (#{p\ 5820}# #{ids\ 5821}#)
+ (#{cvt\ 3579}#
+ #{x\ 3613}#
+ (#{fx+\ 281}# #{n\ 3595}# 1)
+ #{ids\ 3596}#))
+ (lambda (#{p\ 3615}# #{ids\ 3616}#)
(values
- (if (eq? #{p\ 5820}# (quote any))
+ (if (eq? #{p\ 3615}# (quote any))
'each-any
(vector
'each
- #{p\ 5820}#))
- #{ids\ 5821}#))))
- #{tmp\ 5811}#)
- (let ((#{tmp\ 5824}#
+ #{p\ 3615}#))
+ #{ids\ 3616}#))))
+ #{tmp\ 3606}#)
+ (let ((#{tmp\ 3619}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3605}#
'(any any . each-any))))
- (if (if #{tmp\ 5824}#
+ (if (if #{tmp\ 3619}#
(@apply
- (lambda (#{x\ 5828}#
- #{dots\ 5829}#
- #{ys\ 5830}#)
- (#{ellipsis?\ 2597}#
- #{dots\ 5829}#))
- #{tmp\ 5824}#)
+ (lambda (#{x\ 3623}#
+ #{dots\ 3624}#
+ #{ys\ 3625}#)
+ (#{ellipsis?\ 481}#
+ #{dots\ 3624}#))
+ #{tmp\ 3619}#)
#f)
(@apply
- (lambda (#{x\ 5834}#
- #{dots\ 5835}#
- #{ys\ 5836}#)
+ (lambda (#{x\ 3629}#
+ #{dots\ 3630}#
+ #{ys\ 3631}#)
(call-with-values
(lambda ()
- (#{cvt*\ 5787}#
- #{ys\ 5836}#
- #{n\ 5805}#
- #{ids\ 5806}#))
- (lambda (#{ys\ 5838}#
- #{ids\ 5839}#)
+ (#{cvt*\ 3577}#
+ #{ys\ 3631}#
+ #{n\ 3595}#
+ #{ids\ 3596}#))
+ (lambda (#{ys\ 3633}#
+ #{ids\ 3634}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5834}#
- (1+ #{n\ 5805}#)
- #{ids\ 5839}#))
- (lambda (#{x\ 5842}#
- #{ids\ 5843}#)
+ (#{cvt\ 3579}#
+ #{x\ 3629}#
+ (1+ #{n\ 3595}#)
+ #{ids\ 3634}#))
+ (lambda (#{x\ 3637}#
+ #{ids\ 3638}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 5842}#
+ (cons #{x\ 3637}#
(cons
(reverse
-
#{ys\ 5838}#)
+
#{ys\ 3633}#)
'(())))))
- #{ids\ 5843}#))))))
- #{tmp\ 5824}#)
- (let ((#{tmp\ 5847}#
+ #{ids\ 3638}#))))))
+ #{tmp\ 3619}#)
+ (let ((#{tmp\ 3642}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3605}#
'(any . any))))
- (if #{tmp\ 5847}#
+ (if #{tmp\ 3642}#
(@apply
- (lambda (#{x\ 5850}# #{y\ 5851}#)
+ (lambda (#{x\ 3645}# #{y\ 3646}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{y\ 5851}#
- #{n\ 5805}#
- #{ids\ 5806}#))
- (lambda (#{y\ 5852}#
- #{ids\ 5853}#)
+ (#{cvt\ 3579}#
+ #{y\ 3646}#
+ #{n\ 3595}#
+ #{ids\ 3596}#))
+ (lambda (#{y\ 3647}#
+ #{ids\ 3648}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5850}#
- #{n\ 5805}#
- #{ids\ 5853}#))
- (lambda (#{x\ 5856}#
- #{ids\ 5857}#)
+ (#{cvt\ 3579}#
+ #{x\ 3645}#
+ #{n\ 3595}#
+ #{ids\ 3648}#))
+ (lambda (#{x\ 3651}#
+ #{ids\ 3652}#)
(values
- (cons #{x\ 5856}#
- #{y\ 5852}#)
- #{ids\ 5857}#))))))
- #{tmp\ 5847}#)
- (let ((#{tmp\ 5860}#
+ (cons #{x\ 3651}#
+ #{y\ 3647}#)
+ #{ids\ 3652}#))))))
+ #{tmp\ 3642}#)
+ (let ((#{tmp\ 3655}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3605}#
'())))
- (if #{tmp\ 5860}#
+ (if #{tmp\ 3655}#
(@apply
(lambda ()
(values
'()
- #{ids\ 5806}#))
- #{tmp\ 5860}#)
- (let ((#{tmp\ 5861}#
+ #{ids\ 3596}#))
+ #{tmp\ 3655}#)
+ (let ((#{tmp\ 3656}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3605}#
'#(vector
each-any))))
- (if #{tmp\ 5861}#
+ (if #{tmp\ 3656}#
(@apply
- (lambda (#{x\ 5863}#)
+ (lambda (#{x\ 3658}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5863}#
- #{n\ 5805}#
- #{ids\ 5806}#))
- (lambda (#{p\ 5865}#
- #{ids\
5866}#)
+ (#{cvt\ 3579}#
+ #{x\ 3658}#
+ #{n\ 3595}#
+ #{ids\ 3596}#))
+ (lambda (#{p\ 3660}#
+ #{ids\
3661}#)
(values
(vector
'vector
- #{p\ 5865}#)
- #{ids\ 5866}#))))
- #{tmp\ 5861}#)
- (let ((#{x\ 5870}#
- #{tmp\ 5810}#))
+ #{p\ 3660}#)
+ #{ids\ 3661}#))))
+ #{tmp\ 3656}#)
+ (let ((#{x\ 3665}#
+ #{tmp\ 3605}#))
(values
(vector
'atom
- (#{strip\ 2607}#
- #{p\ 5804}#
+ (#{strip\ 491}#
+ #{p\ 3594}#
'(())))
- #{ids\
5806}#)))))))))))))))))
+ #{ids\
3596}#)))))))))))))))))
(begin
- (#{cvt\ 5789}# #{pattern\ 5782}# 0 (quote ()))))))
- (#{build-dispatch-call\ 5777}#
- (lambda (#{pvars\ 5872}#
- #{exp\ 5873}#
- #{y\ 5874}#
- #{r\ 5875}#
- #{mod\ 5876}#)
+ (#{cvt\ 3579}# #{pattern\ 3572}# 0 (quote ()))))))
+ (#{build-dispatch-call\ 3567}#
+ (lambda (#{pvars\ 3667}#
+ #{exp\ 3668}#
+ #{y\ 3669}#
+ #{r\ 3670}#
+ #{mod\ 3671}#)
(begin
- (map cdr #{pvars\ 5872}#)
- (let ((#{ids\ 5884}# (map car #{pvars\ 5872}#)))
+ (map cdr #{pvars\ 3667}#)
+ (let ((#{ids\ 3679}# (map car #{pvars\ 3667}#)))
(begin
- (let ((#{labels\ 5888}#
- (#{gen-labels\ 2514}# #{ids\ 5884}#))
- (#{new-vars\ 5889}#
- (map #{gen-var\ 2609}# #{ids\ 5884}#)))
- (#{build-application\ 2420}#
+ (let ((#{labels\ 3683}#
+ (#{gen-labels\ 398}# #{ids\ 3679}#))
+ (#{new-vars\ 3684}#
+ (map #{gen-var\ 493}# #{ids\ 3679}#)))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 2444}# #f (quote apply))
- (list (#{build-simple-lambda\ 2438}#
+ (#{build-primref\ 328}# #f (quote apply))
+ (list (#{build-simple-lambda\ 322}#
#f
- (map syntax->datum #{ids\ 5884}#)
+ (map syntax->datum #{ids\ 3679}#)
#f
- #{new-vars\ 5889}#
+ #{new-vars\ 3684}#
'()
- (#{chi\ 2581}#
- #{exp\ 5873}#
- (#{extend-env\ 2484}#
- #{labels\ 5888}#
- (map (lambda (#{var\ 5893}#
- #{level\ 5894}#)
+ (#{chi\ 465}#
+ #{exp\ 3668}#
+ (#{extend-env\ 368}#
+ #{labels\ 3683}#
+ (map (lambda (#{var\ 3688}#
+ #{level\ 3689}#)
(cons 'syntax
- (cons #{var\ 5893}#
- #{level\
5894}#)))
- #{new-vars\ 5889}#
- (map cdr #{pvars\ 5872}#))
- #{r\ 5875}#)
- (#{make-binding-wrap\ 2543}#
- #{ids\ 5884}#
- #{labels\ 5888}#
+ (cons #{var\ 3688}#
+ #{level\
3689}#)))
+ #{new-vars\ 3684}#
+ (map cdr #{pvars\ 3667}#))
+ #{r\ 3670}#)
+ (#{make-binding-wrap\ 427}#
+ #{ids\ 3679}#
+ #{labels\ 3683}#
'(()))
- #{mod\ 5876}#))
- #{y\ 5874}#))))))))
- (#{gen-clause\ 5779}#
- (lambda (#{x\ 5900}#
- #{keys\ 5901}#
- #{clauses\ 5902}#
- #{r\ 5903}#
- #{pat\ 5904}#
- #{fender\ 5905}#
- #{exp\ 5906}#
- #{mod\ 5907}#)
+ #{mod\ 3671}#))
+ #{y\ 3669}#))))))))
+ (#{gen-clause\ 3569}#
+ (lambda (#{x\ 3695}#
+ #{keys\ 3696}#
+ #{clauses\ 3697}#
+ #{r\ 3698}#
+ #{pat\ 3699}#
+ #{fender\ 3700}#
+ #{exp\ 3701}#
+ #{mod\ 3702}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 5775}#
- #{pat\ 5904}#
- #{keys\ 5901}#))
- (lambda (#{p\ 5916}# #{pvars\ 5917}#)
- (if (not (#{distinct-bound-ids?\ 2561}#
- (map car #{pvars\ 5917}#)))
+ (#{convert-pattern\ 3565}#
+ #{pat\ 3699}#
+ #{keys\ 3696}#))
+ (lambda (#{p\ 3711}# #{pvars\ 3712}#)
+ (if (not (#{distinct-bound-ids?\ 445}#
+ (map car #{pvars\ 3712}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 5904}#)
+ #{pat\ 3699}#)
(if (not (and-map
- (lambda (#{x\ 5924}#)
- (not (#{ellipsis?\ 2597}#
- (car #{x\ 5924}#))))
- #{pvars\ 5917}#))
+ (lambda (#{x\ 3719}#)
+ (not (#{ellipsis?\ 481}#
+ (car #{x\ 3719}#))))
+ #{pvars\ 3712}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 5904}#)
+ #{pat\ 3699}#)
(begin
- (let ((#{y\ 5928}#
- (#{gen-var\ 2609}# (quote tmp))))
- (#{build-application\ 2420}#
+ (let ((#{y\ 3723}#
+ (#{gen-var\ 493}# (quote tmp))))
+ (#{build-application\ 304}#
#f
- (#{build-simple-lambda\ 2438}#
+ (#{build-simple-lambda\ 322}#
#f
(list (quote tmp))
#f
- (list #{y\ 5928}#)
+ (list #{y\ 3723}#)
'()
(begin
- (let ((#{y\ 5932}#
- (#{build-lexical-reference\
2426}#
+ (let ((#{y\ 3727}#
+ (#{build-lexical-reference\
310}#
'value
#f
'tmp
- #{y\ 5928}#)))
- (#{build-conditional\ 2422}#
+ #{y\ 3723}#)))
+ (#{build-conditional\ 306}#
#f
- (let ((#{tmp\ 5935}#
- #{fender\ 5905}#))
- (let ((#{tmp\ 5936}#
+ (let ((#{tmp\ 3730}#
+ #{fender\ 3700}#))
+ (let ((#{tmp\ 3731}#
($sc-dispatch
- #{tmp\ 5935}#
+ #{tmp\ 3730}#
'#(atom #t))))
- (if #{tmp\ 5936}#
+ (if #{tmp\ 3731}#
(@apply
- (lambda () #{y\ 5932}#)
- #{tmp\ 5936}#)
- (let ((#{_\ 5938}#
- #{tmp\ 5935}#))
- (#{build-conditional\ 2422}#
+ (lambda () #{y\ 3727}#)
+ #{tmp\ 3731}#)
+ (let ((#{_\ 3733}#
+ #{tmp\ 3730}#))
+ (#{build-conditional\ 306}#
#f
- #{y\ 5932}#
- (#{build-dispatch-call\
5777}#
- #{pvars\ 5917}#
- #{fender\ 5905}#
- #{y\ 5932}#
- #{r\ 5903}#
- #{mod\ 5907}#)
- (#{build-data\ 2446}#
+ #{y\ 3727}#
+ (#{build-dispatch-call\
3567}#
+ #{pvars\ 3712}#
+ #{fender\ 3700}#
+ #{y\ 3727}#
+ #{r\ 3698}#
+ #{mod\ 3702}#)
+ (#{build-data\ 330}#
#f
#f))))))
- (#{build-dispatch-call\ 5777}#
- #{pvars\ 5917}#
- #{exp\ 5906}#
- #{y\ 5932}#
- #{r\ 5903}#
- #{mod\ 5907}#)
- (#{gen-syntax-case\ 5781}#
- #{x\ 5900}#
- #{keys\ 5901}#
- #{clauses\ 5902}#
- #{r\ 5903}#
- #{mod\ 5907}#)))))
- (list (if (eq? #{p\ 5916}# (quote any))
- (#{build-application\ 2420}#
+ (#{build-dispatch-call\ 3567}#
+ #{pvars\ 3712}#
+ #{exp\ 3701}#
+ #{y\ 3727}#
+ #{r\ 3698}#
+ #{mod\ 3702}#)
+ (#{gen-syntax-case\ 3571}#
+ #{x\ 3695}#
+ #{keys\ 3696}#
+ #{clauses\ 3697}#
+ #{r\ 3698}#
+ #{mod\ 3702}#)))))
+ (list (if (eq? #{p\ 3711}# (quote any))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 328}#
#f
'list)
- (list #{x\ 5900}#))
- (#{build-application\ 2420}#
+ (list #{x\ 3695}#))
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 328}#
#f
'$sc-dispatch)
- (list #{x\ 5900}#
- (#{build-data\ 2446}#
+ (list #{x\ 3695}#
+ (#{build-data\ 330}#
#f
- #{p\ 5916}#))))))))))))))
- (#{gen-syntax-case\ 5781}#
- (lambda (#{x\ 5946}#
- #{keys\ 5947}#
- #{clauses\ 5948}#
- #{r\ 5949}#
- #{mod\ 5950}#)
- (if (null? #{clauses\ 5948}#)
- (#{build-application\ 2420}#
+ #{p\ 3711}#))))))))))))))
+ (#{gen-syntax-case\ 3571}#
+ (lambda (#{x\ 3741}#
+ #{keys\ 3742}#
+ #{clauses\ 3743}#
+ #{r\ 3744}#
+ #{mod\ 3745}#)
+ (if (null? #{clauses\ 3743}#)
+ (#{build-application\ 304}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 328}#
#f
'syntax-violation)
- (list (#{build-data\ 2446}# #f #f)
- (#{build-data\ 2446}#
+ (list (#{build-data\ 330}# #f #f)
+ (#{build-data\ 330}#
#f
"source expression failed to match any
pattern")
- #{x\ 5946}#))
- (let ((#{tmp\ 5960}# (car #{clauses\ 5948}#)))
- (let ((#{tmp\ 5961}#
+ #{x\ 3741}#))
+ (let ((#{tmp\ 3755}# (car #{clauses\ 3743}#)))
+ (let ((#{tmp\ 3756}#
($sc-dispatch
- #{tmp\ 5960}#
+ #{tmp\ 3755}#
'(any any))))
- (if #{tmp\ 5961}#
+ (if #{tmp\ 3756}#
(@apply
- (lambda (#{pat\ 5964}# #{exp\ 5965}#)
- (if (if (#{id?\ 2496}# #{pat\ 5964}#)
+ (lambda (#{pat\ 3759}# #{exp\ 3760}#)
+ (if (if (#{id?\ 380}# #{pat\ 3759}#)
(and-map
- (lambda (#{x\ 5968}#)
- (not (#{free-id=?\ 2555}#
- #{pat\ 5964}#
- #{x\ 5968}#)))
+ (lambda (#{x\ 3763}#)
+ (not (#{free-id=?\ 439}#
+ #{pat\ 3759}#
+ #{x\ 3763}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i5962" "i5963"))
+ #("i3757" "i3758"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -12312,21 +12671,21 @@
(top)
(top)
(top))
- #("i5951"
- "i5952"
- "i5953"
- "i5954"
- "i5955"))
+ #("i3746"
+ "i3747"
+ "i3748"
+ "i3749"
+ "i3750"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i5780"
- "i5778"
- "i5776"
- "i5774"))
+ ("i3570"
+ "i3568"
+ "i3566"
+ "i3564"))
#(ribcage
(lambda-var-list
gen-var
@@ -12602,996 +12961,1876 @@
(top)
(top)
(top))
- ("i2610"
- "i2608"
- "i2606"
- "i2604"
- "i2602"
- "i2600"
- "i2598"
- "i2596"
- "i2594"
- "i2592"
- "i2590"
- "i2588"
- "i2586"
- "i2584"
- "i2582"
- "i2580"
- "i2578"
- "i2576"
- "i2574"
- "i2572"
- "i2570"
- "i2568"
- "i2566"
- "i2564"
- "i2562"
- "i2560"
- "i2558"
- "i2556"
- "i2554"
- "i2552"
- "i2550"
- "i2548"
- "i2546"
- "i2544"
- "i2542"
- "i2540"
- "i2539"
- "i2538"
- "i2536"
- "i2535"
- "i2534"
- "i2533"
- "i2532"
- "i2530"
- "i2528"
- "i2526"
- "i2524"
- "i2522"
- "i2520"
- "i2518"
- "i2516"
- "i2513"
- "i2511"
- "i2510"
- "i2509"
- "i2508"
- "i2507"
- "i2506"
- "i2504"
- "i2502"
- "i2500"
- "i2498"
- "i2497"
- "i2495"
- "i2493"
- "i2491"
- "i2489"
- "i2487"
- "i2485"
- "i2483"
- "i2482"
- "i2480"
- "i2478"
- "i2477"
- "i2476"
- "i2474"
- "i2473"
- "i2471"
- "i2469"
- "i2467"
- "i2465"
- "i2463"
- "i2461"
- "i2459"
- "i2457"
- "i2455"
- "i2453"
- "i2451"
- "i2449"
- "i2447"
- "i2445"
- "i2443"
- "i2441"
- "i2439"
- "i2437"
- "i2435"
- "i2433"
- "i2431"
- "i2429"
- "i2427"
- "i2425"
- "i2423"
- "i2421"
- "i2419"
- "i2417"
- "i2415"
- "i2413"
- "i2411"
- "i2409"
- "i2408"
- "i2406"
- "i2404"
- "i2402"
- "i2400"
- "i2398"
- "i2396"
- "i2394"
- "i2392"
- "i2390"
- "i2387"
- "i2385"
- "i2383"
- "i2381"
- "i2379"
- "i2377"
- "i2375"
- "i2373"
- "i2371"
- "i2369"
- "i2367"
- "i2365"
- "i2363"
- "i2361"
- "i2359"
- "i2357"
- "i2355"
- "i2353"))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene guile))
- #{keys\ 5947}#))
+ #{keys\ 3742}#))
#f)
- (begin
- (let ((#{labels\ 5972}#
- (list (#{gen-label\ 2512}#)))
- (#{var\ 5973}#
- (#{gen-var\ 2609}#
- #{pat\ 5964}#)))
- (#{build-application\ 2420}#
- #f
- (#{build-simple-lambda\ 2438}#
- #f
- (list (syntax->datum #{pat\ 5964}#))
+ (if (#{free-id=?\ 439}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3757" "i3758"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3746"
+ "i3747"
+ "i3748"
+ "i3749"
+ "i3750"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3570"
+ "i3568"
+ "i3566"
+ "i3564"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors
+ and-map*)
+ ((top) (top) (top) (top))
+ ("i39" "i38" "i37" "i35")))
+ (hygiene guile))
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3757" "i3758"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3746"
+ "i3747"
+ "i3748"
+ "i3749"
+ "i3750"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3570"
+ "i3568"
+ "i3566"
+ "i3564"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i494"
+ "i492"
+ "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"
+ "i423"
+ "i422"
+ "i420"
+ "i419"
+ "i418"
+ "i417"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i397"
+ "i395"
+ "i394"
+ "i393"
+ "i392"
+ "i391"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i361"
+ "i360"
+ "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"
+ "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"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors
+ and-map*)
+ ((top) (top) (top) (top))
+ ("i39" "i38" "i37" "i35")))
+ (hygiene guile)))
+ (#{chi\ 465}#
+ #{exp\ 3760}#
+ #{r\ 3744}#
+ '(())
+ #{mod\ 3745}#)
+ (begin
+ (let ((#{labels\ 3768}#
+ (list (#{gen-label\ 396}#)))
+ (#{var\ 3769}#
+ (#{gen-var\ 493}#
+ #{pat\ 3759}#)))
+ (#{build-application\ 304}#
#f
- (list #{var\ 5973}#)
- '()
- (#{chi\ 2581}#
- #{exp\ 5965}#
- (#{extend-env\ 2484}#
- #{labels\ 5972}#
- (list (cons 'syntax
- (cons #{var\ 5973}#
- 0)))
- #{r\ 5949}#)
- (#{make-binding-wrap\ 2543}#
- (list #{pat\ 5964}#)
- #{labels\ 5972}#
- '(()))
- #{mod\ 5950}#))
- (list #{x\ 5946}#))))
- (#{gen-clause\ 5779}#
- #{x\ 5946}#
- #{keys\ 5947}#
- (cdr #{clauses\ 5948}#)
- #{r\ 5949}#
- #{pat\ 5964}#
+ (#{build-simple-lambda\ 322}#
+ #f
+ (list (syntax->datum
+ #{pat\ 3759}#))
+ #f
+ (list #{var\ 3769}#)
+ '()
+ (#{chi\ 465}#
+ #{exp\ 3760}#
+ (#{extend-env\ 368}#
+ #{labels\ 3768}#
+ (list (cons 'syntax
+ (cons #{var\
3769}#
+ 0)))
+ #{r\ 3744}#)
+ (#{make-binding-wrap\ 427}#
+ (list #{pat\ 3759}#)
+ #{labels\ 3768}#
+ '(()))
+ #{mod\ 3745}#))
+ (list #{x\ 3741}#)))))
+ (#{gen-clause\ 3569}#
+ #{x\ 3741}#
+ #{keys\ 3742}#
+ (cdr #{clauses\ 3743}#)
+ #{r\ 3744}#
+ #{pat\ 3759}#
#t
- #{exp\ 5965}#
- #{mod\ 5950}#)))
- #{tmp\ 5961}#)
- (let ((#{tmp\ 5979}#
+ #{exp\ 3760}#
+ #{mod\ 3745}#)))
+ #{tmp\ 3756}#)
+ (let ((#{tmp\ 3775}#
($sc-dispatch
- #{tmp\ 5960}#
+ #{tmp\ 3755}#
'(any any any))))
- (if #{tmp\ 5979}#
+ (if #{tmp\ 3775}#
(@apply
- (lambda (#{pat\ 5983}#
- #{fender\ 5984}#
- #{exp\ 5985}#)
- (#{gen-clause\ 5779}#
- #{x\ 5946}#
- #{keys\ 5947}#
- (cdr #{clauses\ 5948}#)
- #{r\ 5949}#
- #{pat\ 5983}#
- #{fender\ 5984}#
- #{exp\ 5985}#
- #{mod\ 5950}#))
- #{tmp\ 5979}#)
- (let ((#{_\ 5987}# #{tmp\ 5960}#))
+ (lambda (#{pat\ 3779}#
+ #{fender\ 3780}#
+ #{exp\ 3781}#)
+ (#{gen-clause\ 3569}#
+ #{x\ 3741}#
+ #{keys\ 3742}#
+ (cdr #{clauses\ 3743}#)
+ #{r\ 3744}#
+ #{pat\ 3779}#
+ #{fender\ 3780}#
+ #{exp\ 3781}#
+ #{mod\ 3745}#))
+ #{tmp\ 3775}#)
+ (let ((#{_\ 3783}# #{tmp\ 3755}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 5948}#))))))))))))
+ (car #{clauses\ 3743}#))))))))))))
(begin
- (lambda (#{e\ 5988}#
- #{r\ 5989}#
- #{w\ 5990}#
- #{s\ 5991}#
- #{mod\ 5992}#)
+ (lambda (#{e\ 3784}#
+ #{r\ 3785}#
+ #{w\ 3786}#
+ #{s\ 3787}#
+ #{mod\ 3788}#)
(begin
- (let ((#{e\ 5999}#
- (#{source-wrap\ 2567}#
- #{e\ 5988}#
- #{w\ 5990}#
- #{s\ 5991}#
- #{mod\ 5992}#)))
- (let ((#{tmp\ 6000}# #{e\ 5999}#))
- (let ((#{tmp\ 6001}#
+ (let ((#{e\ 3795}#
+ (#{source-wrap\ 451}#
+ #{e\ 3784}#
+ #{w\ 3786}#
+ #{s\ 3787}#
+ #{mod\ 3788}#)))
+ (let ((#{tmp\ 3796}# #{e\ 3795}#))
+ (let ((#{tmp\ 3797}#
($sc-dispatch
- #{tmp\ 6000}#
- '(any any each-any . each-any))))
- (if #{tmp\ 6001}#
+ #{tmp\ 3796}#
+ '(_ any each-any . each-any))))
+ (if #{tmp\ 3797}#
(@apply
- (lambda (#{_\ 6006}#
- #{val\ 6007}#
- #{key\ 6008}#
- #{m\ 6009}#)
+ (lambda (#{val\ 3801}#
+ #{key\ 3802}#
+ #{m\ 3803}#)
(if (and-map
- (lambda (#{x\ 6010}#)
- (if (#{id?\ 2496}# #{x\ 6010}#)
- (not (#{ellipsis?\ 2597}#
- #{x\ 6010}#))
+ (lambda (#{x\ 3804}#)
+ (if (#{id?\ 380}# #{x\ 3804}#)
+ (not (#{ellipsis?\ 481}#
+ #{x\ 3804}#))
#f))
- #{key\ 6008}#)
+ #{key\ 3802}#)
(begin
- (let ((#{x\ 6016}#
- (#{gen-var\ 2609}# (quote tmp))))
- (#{build-application\ 2420}#
- #{s\ 5991}#
- (#{build-simple-lambda\ 2438}#
+ (let ((#{x\ 3810}#
+ (#{gen-var\ 493}# (quote tmp))))
+ (#{build-application\ 304}#
+ #{s\ 3787}#
+ (#{build-simple-lambda\ 322}#
#f
(list (quote tmp))
#f
- (list #{x\ 6016}#)
+ (list #{x\ 3810}#)
'()
- (#{gen-syntax-case\ 5781}#
- (#{build-lexical-reference\
2426}#
+ (#{gen-syntax-case\ 3571}#
+ (#{build-lexical-reference\ 310}#
'value
#f
'tmp
- #{x\ 6016}#)
- #{key\ 6008}#
- #{m\ 6009}#
- #{r\ 5989}#
- #{mod\ 5992}#))
- (list (#{chi\ 2581}#
- #{val\ 6007}#
- #{r\ 5989}#
+ #{x\ 3810}#)
+ #{key\ 3802}#
+ #{m\ 3803}#
+ #{r\ 3785}#
+ #{mod\ 3788}#))
+ (list (#{chi\ 465}#
+ #{val\ 3801}#
+ #{r\ 3785}#
'(())
- #{mod\ 5992}#)))))
+ #{mod\ 3788}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 5999}#)))
- #{tmp\ 6001}#)
+ #{e\ 3795}#)))
+ #{tmp\ 3797}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6000}#))))))))))
+ #{tmp\ 3796}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 6022}#
+ (#{x\ 3816}#
#:optional
- (#{m\ 6024}# (quote e))
- (#{esew\ 6026}# (quote (eval))))
- (#{chi-top\ 2579}#
- #{x\ 6022}#
+ (#{m\ 3818}# (quote e))
+ (#{esew\ 3820}# (quote (eval))))
+ (#{chi-top\ 463}#
+ #{x\ 3816}#
'()
'((top))
- #{m\ 6024}#
- #{esew\ 6026}#
+ #{m\ 3818}#
+ #{esew\ 3820}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 6030}#)
- (#{nonsymbol-id?\ 2494}# #{x\ 6030}#)))
+ (lambda (#{x\ 3824}#)
+ (#{nonsymbol-id?\ 378}# #{x\ 3824}#)))
(set! datum->syntax
- (lambda (#{id\ 6032}# #{datum\ 6033}#)
- (#{make-syntax-object\ 2458}#
- #{datum\ 6033}#
- (#{syntax-object-wrap\ 2464}# #{id\ 6032}#)
- (#{syntax-object-module\ 2466}# #{id\ 6032}#))))
+ (lambda (#{id\ 3826}# #{datum\ 3827}#)
+ (#{make-syntax-object\ 342}#
+ #{datum\ 3827}#
+ (#{syntax-object-wrap\ 348}# #{id\ 3826}#)
+ (#{syntax-object-module\ 350}# #{id\ 3826}#))))
(set! syntax->datum
- (lambda (#{x\ 6036}#)
- (#{strip\ 2607}# #{x\ 6036}# (quote (())))))
+ (lambda (#{x\ 3830}#)
+ (#{strip\ 491}# #{x\ 3830}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 6039}#)
- (#{source-annotation\ 2475}# #{x\ 6039}#)))
+ (lambda (#{x\ 3833}#)
+ (#{source-annotation\ 359}# #{x\ 3833}#)))
(set! generate-temporaries
- (lambda (#{ls\ 6041}#)
+ (lambda (#{ls\ 3835}#)
(begin
(begin
- (let ((#{x\ 6045}# #{ls\ 6041}#))
- (if (not (list? #{x\ 6045}#))
+ (let ((#{x\ 3839}# #{ls\ 3835}#))
+ (if (not (list? #{x\ 3839}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 6045}#))))
- (map (lambda (#{x\ 6046}#)
- (#{wrap\ 2565}# (gensym) (quote ((top))) #f))
- #{ls\ 6041}#))))
+ #{x\ 3839}#))))
+ (map (lambda (#{x\ 3840}#)
+ (#{wrap\ 449}# (gensym) (quote ((top))) #f))
+ #{ls\ 3835}#))))
(set! free-identifier=?
- (lambda (#{x\ 6050}# #{y\ 6051}#)
+ (lambda (#{x\ 3844}# #{y\ 3845}#)
(begin
(begin
- (let ((#{x\ 6056}# #{x\ 6050}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6056}#))
+ (let ((#{x\ 3850}# #{x\ 3844}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3850}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 6056}#))))
+ #{x\ 3850}#))))
(begin
- (let ((#{x\ 6059}# #{y\ 6051}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6059}#))
+ (let ((#{x\ 3853}# #{y\ 3845}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3853}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 6059}#))))
- (#{free-id=?\ 2555}# #{x\ 6050}# #{y\ 6051}#))))
+ #{x\ 3853}#))))
+ (#{free-id=?\ 439}# #{x\ 3844}# #{y\ 3845}#))))
(set! bound-identifier=?
- (lambda (#{x\ 6060}# #{y\ 6061}#)
+ (lambda (#{x\ 3854}# #{y\ 3855}#)
(begin
(begin
- (let ((#{x\ 6066}# #{x\ 6060}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6066}#))
+ (let ((#{x\ 3860}# #{x\ 3854}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3860}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 6066}#))))
+ #{x\ 3860}#))))
(begin
- (let ((#{x\ 6069}# #{y\ 6061}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6069}#))
+ (let ((#{x\ 3863}# #{y\ 3855}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3863}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 6069}#))))
- (#{bound-id=?\ 2557}# #{x\ 6060}# #{y\ 6061}#))))
+ #{x\ 3863}#))))
+ (#{bound-id=?\ 441}# #{x\ 3854}# #{y\ 3855}#))))
(set! syntax-violation
- (lambda (#{who\ 6070}#
- #{message\ 6071}#
- #{form\ 6072}#
+ (lambda (#{who\ 3864}#
+ #{message\ 3865}#
+ #{form\ 3866}#
.
- #{subform\ 6073}#)
+ #{subform\ 3867}#)
(begin
(begin
- (let ((#{x\ 6080}# #{who\ 6070}#))
- (if (not (let ((#{x\ 6081}# #{x\ 6080}#))
+ (let ((#{x\ 3874}# #{who\ 3864}#))
+ (if (not (let ((#{x\ 3875}# #{x\ 3874}#))
(begin
- (let ((#{t\ 6085}# (not #{x\ 6081}#)))
- (if #{t\ 6085}#
- #{t\ 6085}#
+ (let ((#{t\ 3879}# (not #{x\ 3875}#)))
+ (if #{t\ 3879}#
+ #{t\ 3879}#
(begin
- (let ((#{t\ 6088}#
- (string? #{x\ 6081}#)))
- (if #{t\ 6088}#
- #{t\ 6088}#
- (symbol? #{x\ 6081}#)))))))))
+ (let ((#{t\ 3882}#
+ (string? #{x\ 3875}#)))
+ (if #{t\ 3882}#
+ #{t\ 3882}#
+ (symbol? #{x\ 3875}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 6080}#))))
+ #{x\ 3874}#))))
(begin
- (let ((#{x\ 6092}# #{message\ 6071}#))
- (if (not (string? #{x\ 6092}#))
+ (let ((#{x\ 3886}# #{message\ 3865}#))
+ (if (not (string? #{x\ 3886}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 6092}#))))
+ #{x\ 3886}#))))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 6070}# "~a: " "")
+ (if #{who\ 3864}# "~a: " "")
"~a "
- (if (null? #{subform\ 6073}#)
+ (if (null? #{subform\ 3867}#)
"in ~a"
"in subform `~s' of `~s'"))
(begin
- (let ((#{tail\ 6094}#
- (cons #{message\ 6071}#
- (map (lambda (#{x\ 6095}#)
- (#{strip\ 2607}#
- #{x\ 6095}#
+ (let ((#{tail\ 3888}#
+ (cons #{message\ 3865}#
+ (map (lambda (#{x\ 3889}#)
+ (#{strip\ 491}#
+ #{x\ 3889}#
'(())))
(append
- #{subform\ 6073}#
- (list #{form\ 6072}#))))))
- (if #{who\ 6070}#
- (cons #{who\ 6070}# #{tail\ 6094}#)
- #{tail\ 6094}#)))
+ #{subform\ 3867}#
+ (list #{form\ 3866}#))))))
+ (if #{who\ 3864}#
+ (cons #{who\ 3864}# #{tail\ 3888}#)
+ #{tail\ 3888}#)))
#f))))
(letrec*
- ((#{match-each\ 6099}#
- (lambda (#{e\ 6112}#
- #{p\ 6113}#
- #{w\ 6114}#
- #{mod\ 6115}#)
- (if (pair? #{e\ 6112}#)
+ ((#{match-each\ 3893}#
+ (lambda (#{e\ 3906}#
+ #{p\ 3907}#
+ #{w\ 3908}#
+ #{mod\ 3909}#)
+ (if (pair? #{e\ 3906}#)
(begin
- (let ((#{first\ 6123}#
- (#{match\ 6111}#
- (car #{e\ 6112}#)
- #{p\ 6113}#
- #{w\ 6114}#
+ (let ((#{first\ 3917}#
+ (#{match\ 3905}#
+ (car #{e\ 3906}#)
+ #{p\ 3907}#
+ #{w\ 3908}#
'()
- #{mod\ 6115}#)))
- (if #{first\ 6123}#
+ #{mod\ 3909}#)))
+ (if #{first\ 3917}#
(begin
- (let ((#{rest\ 6127}#
- (#{match-each\ 6099}#
- (cdr #{e\ 6112}#)
- #{p\ 6113}#
- #{w\ 6114}#
- #{mod\ 6115}#)))
- (if #{rest\ 6127}#
- (cons #{first\ 6123}# #{rest\ 6127}#)
+ (let ((#{rest\ 3921}#
+ (#{match-each\ 3893}#
+ (cdr #{e\ 3906}#)
+ #{p\ 3907}#
+ #{w\ 3908}#
+ #{mod\ 3909}#)))
+ (if #{rest\ 3921}#
+ (cons #{first\ 3917}# #{rest\ 3921}#)
#f)))
#f)))
- (if (null? #{e\ 6112}#)
+ (if (null? #{e\ 3906}#)
'()
- (if (#{syntax-object?\ 2460}# #{e\ 6112}#)
- (#{match-each\ 6099}#
- (#{syntax-object-expression\ 2462}# #{e\ 6112}#)
- #{p\ 6113}#
- (#{join-wraps\ 2547}#
- #{w\ 6114}#
- (#{syntax-object-wrap\ 2464}# #{e\ 6112}#))
- (#{syntax-object-module\ 2466}# #{e\ 6112}#))
+ (if (#{syntax-object?\ 344}# #{e\ 3906}#)
+ (#{match-each\ 3893}#
+ (#{syntax-object-expression\ 346}# #{e\ 3906}#)
+ #{p\ 3907}#
+ (#{join-wraps\ 431}#
+ #{w\ 3908}#
+ (#{syntax-object-wrap\ 348}# #{e\ 3906}#))
+ (#{syntax-object-module\ 350}# #{e\ 3906}#))
#f)))))
- (#{match-each+\ 6101}#
- (lambda (#{e\ 6135}#
- #{x-pat\ 6136}#
- #{y-pat\ 6137}#
- #{z-pat\ 6138}#
- #{w\ 6139}#
- #{r\ 6140}#
- #{mod\ 6141}#)
+ (#{match-each+\ 3895}#
+ (lambda (#{e\ 3929}#
+ #{x-pat\ 3930}#
+ #{y-pat\ 3931}#
+ #{z-pat\ 3932}#
+ #{w\ 3933}#
+ #{r\ 3934}#
+ #{mod\ 3935}#)
(letrec*
- ((#{f\ 6152}#
- (lambda (#{e\ 6153}# #{w\ 6154}#)
- (if (pair? #{e\ 6153}#)
+ ((#{f\ 3946}#
+ (lambda (#{e\ 3947}# #{w\ 3948}#)
+ (if (pair? #{e\ 3947}#)
(call-with-values
(lambda ()
- (#{f\ 6152}# (cdr #{e\ 6153}#) #{w\ 6154}#))
- (lambda (#{xr*\ 6157}#
- #{y-pat\ 6158}#
- #{r\ 6159}#)
- (if #{r\ 6159}#
- (if (null? #{y-pat\ 6158}#)
+ (#{f\ 3946}# (cdr #{e\ 3947}#) #{w\ 3948}#))
+ (lambda (#{xr*\ 3951}#
+ #{y-pat\ 3952}#
+ #{r\ 3953}#)
+ (if #{r\ 3953}#
+ (if (null? #{y-pat\ 3952}#)
(begin
- (let ((#{xr\ 6164}#
- (#{match\ 6111}#
- (car #{e\ 6153}#)
- #{x-pat\ 6136}#
- #{w\ 6154}#
+ (let ((#{xr\ 3958}#
+ (#{match\ 3905}#
+ (car #{e\ 3947}#)
+ #{x-pat\ 3930}#
+ #{w\ 3948}#
'()
- #{mod\ 6141}#)))
- (if #{xr\ 6164}#
+ #{mod\ 3935}#)))
+ (if #{xr\ 3958}#
(values
- (cons #{xr\ 6164}# #{xr*\ 6157}#)
- #{y-pat\ 6158}#
- #{r\ 6159}#)
+ (cons #{xr\ 3958}# #{xr*\ 3951}#)
+ #{y-pat\ 3952}#
+ #{r\ 3953}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 6158}#)
- (#{match\ 6111}#
- (car #{e\ 6153}#)
- (car #{y-pat\ 6158}#)
- #{w\ 6154}#
- #{r\ 6159}#
- #{mod\ 6141}#)))
+ (cdr #{y-pat\ 3952}#)
+ (#{match\ 3905}#
+ (car #{e\ 3947}#)
+ (car #{y-pat\ 3952}#)
+ #{w\ 3948}#
+ #{r\ 3953}#
+ #{mod\ 3935}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 2460}# #{e\ 6153}#)
- (#{f\ 6152}#
- (#{syntax-object-expression\ 2462}#
- #{e\ 6153}#)
- (#{join-wraps\ 2547}# #{w\ 6154}# #{e\ 6153}#))
+ (if (#{syntax-object?\ 344}# #{e\ 3947}#)
+ (#{f\ 3946}#
+ (#{syntax-object-expression\ 346}# #{e\ 3947}#)
+ (#{join-wraps\ 431}# #{w\ 3948}# #{e\ 3947}#))
(values
'()
- #{y-pat\ 6137}#
- (#{match\ 6111}#
- #{e\ 6153}#
- #{z-pat\ 6138}#
- #{w\ 6154}#
- #{r\ 6140}#
- #{mod\ 6141}#)))))))
- (begin (#{f\ 6152}# #{e\ 6135}# #{w\ 6139}#)))))
- (#{match-each-any\ 6103}#
- (lambda (#{e\ 6168}# #{w\ 6169}# #{mod\ 6170}#)
- (if (pair? #{e\ 6168}#)
+ #{y-pat\ 3931}#
+ (#{match\ 3905}#
+ #{e\ 3947}#
+ #{z-pat\ 3932}#
+ #{w\ 3948}#
+ #{r\ 3934}#
+ #{mod\ 3935}#)))))))
+ (begin (#{f\ 3946}# #{e\ 3929}# #{w\ 3933}#)))))
+ (#{match-each-any\ 3897}#
+ (lambda (#{e\ 3962}# #{w\ 3963}# #{mod\ 3964}#)
+ (if (pair? #{e\ 3962}#)
(begin
- (let ((#{l\ 6177}#
- (#{match-each-any\ 6103}#
- (cdr #{e\ 6168}#)
- #{w\ 6169}#
- #{mod\ 6170}#)))
- (if #{l\ 6177}#
- (cons (#{wrap\ 2565}#
- (car #{e\ 6168}#)
- #{w\ 6169}#
- #{mod\ 6170}#)
- #{l\ 6177}#)
+ (let ((#{l\ 3971}#
+ (#{match-each-any\ 3897}#
+ (cdr #{e\ 3962}#)
+ #{w\ 3963}#
+ #{mod\ 3964}#)))
+ (if #{l\ 3971}#
+ (cons (#{wrap\ 449}#
+ (car #{e\ 3962}#)
+ #{w\ 3963}#
+ #{mod\ 3964}#)
+ #{l\ 3971}#)
#f)))
- (if (null? #{e\ 6168}#)
+ (if (null? #{e\ 3962}#)
'()
- (if (#{syntax-object?\ 2460}# #{e\ 6168}#)
- (#{match-each-any\ 6103}#
- (#{syntax-object-expression\ 2462}# #{e\ 6168}#)
- (#{join-wraps\ 2547}#
- #{w\ 6169}#
- (#{syntax-object-wrap\ 2464}# #{e\ 6168}#))
- #{mod\ 6170}#)
+ (if (#{syntax-object?\ 344}# #{e\ 3962}#)
+ (#{match-each-any\ 3897}#
+ (#{syntax-object-expression\ 346}# #{e\ 3962}#)
+ (#{join-wraps\ 431}#
+ #{w\ 3963}#
+ (#{syntax-object-wrap\ 348}# #{e\ 3962}#))
+ #{mod\ 3964}#)
#f)))))
- (#{match-empty\ 6105}#
- (lambda (#{p\ 6185}# #{r\ 6186}#)
- (if (null? #{p\ 6185}#)
- #{r\ 6186}#
- (if (eq? #{p\ 6185}# (quote any))
- (cons (quote ()) #{r\ 6186}#)
- (if (pair? #{p\ 6185}#)
- (#{match-empty\ 6105}#
- (car #{p\ 6185}#)
- (#{match-empty\ 6105}#
- (cdr #{p\ 6185}#)
- #{r\ 6186}#))
- (if (eq? #{p\ 6185}# (quote each-any))
- (cons (quote ()) #{r\ 6186}#)
- (begin
- (let ((#{atom-key\ 6200}#
- (vector-ref #{p\ 6185}# 0)))
- (if (eqv? #{atom-key\ 6200}# (quote each))
- (#{match-empty\ 6105}#
- (vector-ref #{p\ 6185}# 1)
- #{r\ 6186}#)
- (if (eqv? #{atom-key\ 6200}# (quote each+))
- (#{match-empty\ 6105}#
- (vector-ref #{p\ 6185}# 1)
- (#{match-empty\ 6105}#
- (reverse (vector-ref #{p\ 6185}# 2))
- (#{match-empty\ 6105}#
- (vector-ref #{p\ 6185}# 3)
- #{r\ 6186}#)))
- (if (if (eqv? #{atom-key\ 6200}#
- 'free-id)
- #t
- (eqv? #{atom-key\ 6200}#
- 'atom))
- #{r\ 6186}#
- (if (eqv? #{atom-key\ 6200}#
- 'vector)
- (#{match-empty\ 6105}#
- (vector-ref #{p\ 6185}# 1)
- #{r\ 6186}#)))))))))))))
- (#{combine\ 6107}#
- (lambda (#{r*\ 6205}# #{r\ 6206}#)
- (if (null? (car #{r*\ 6205}#))
- #{r\ 6206}#
- (cons (map car #{r*\ 6205}#)
- (#{combine\ 6107}#
- (map cdr #{r*\ 6205}#)
- #{r\ 6206}#)))))
- (#{match*\ 6109}#
- (lambda (#{e\ 6209}#
- #{p\ 6210}#
- #{w\ 6211}#
- #{r\ 6212}#
- #{mod\ 6213}#)
- (if (null? #{p\ 6210}#)
- (if (null? #{e\ 6209}#) #{r\ 6212}# #f)
- (if (pair? #{p\ 6210}#)
- (if (pair? #{e\ 6209}#)
- (#{match\ 6111}#
- (car #{e\ 6209}#)
- (car #{p\ 6210}#)
- #{w\ 6211}#
- (#{match\ 6111}#
- (cdr #{e\ 6209}#)
- (cdr #{p\ 6210}#)
- #{w\ 6211}#
- #{r\ 6212}#
- #{mod\ 6213}#)
- #{mod\ 6213}#)
+ (#{match-empty\ 3899}#
+ (lambda (#{p\ 3979}# #{r\ 3980}#)
+ (if (null? #{p\ 3979}#)
+ #{r\ 3980}#
+ (if (eq? #{p\ 3979}# (quote _))
+ #{r\ 3980}#
+ (if (eq? #{p\ 3979}# (quote any))
+ (cons (quote ()) #{r\ 3980}#)
+ (if (pair? #{p\ 3979}#)
+ (#{match-empty\ 3899}#
+ (car #{p\ 3979}#)
+ (#{match-empty\ 3899}#
+ (cdr #{p\ 3979}#)
+ #{r\ 3980}#))
+ (if (eq? #{p\ 3979}# (quote each-any))
+ (cons (quote ()) #{r\ 3980}#)
+ (begin
+ (let ((#{atom-key\ 3996}#
+ (vector-ref #{p\ 3979}# 0)))
+ (if (eqv? #{atom-key\ 3996}# (quote each))
+ (#{match-empty\ 3899}#
+ (vector-ref #{p\ 3979}# 1)
+ #{r\ 3980}#)
+ (if (eqv? #{atom-key\ 3996}# (quote each+))
+ (#{match-empty\ 3899}#
+ (vector-ref #{p\ 3979}# 1)
+ (#{match-empty\ 3899}#
+ (reverse (vector-ref #{p\ 3979}# 2))
+ (#{match-empty\ 3899}#
+ (vector-ref #{p\ 3979}# 3)
+ #{r\ 3980}#)))
+ (if (if (eqv? #{atom-key\ 3996}#
+ 'free-id)
+ #t
+ (eqv? #{atom-key\ 3996}#
+ 'atom))
+ #{r\ 3980}#
+ (if (eqv? #{atom-key\ 3996}#
+ 'vector)
+ (#{match-empty\ 3899}#
+ (vector-ref #{p\ 3979}# 1)
+ #{r\ 3980}#))))))))))))))
+ (#{combine\ 3901}#
+ (lambda (#{r*\ 4001}# #{r\ 4002}#)
+ (if (null? (car #{r*\ 4001}#))
+ #{r\ 4002}#
+ (cons (map car #{r*\ 4001}#)
+ (#{combine\ 3901}#
+ (map cdr #{r*\ 4001}#)
+ #{r\ 4002}#)))))
+ (#{match*\ 3903}#
+ (lambda (#{e\ 4005}#
+ #{p\ 4006}#
+ #{w\ 4007}#
+ #{r\ 4008}#
+ #{mod\ 4009}#)
+ (if (null? #{p\ 4006}#)
+ (if (null? #{e\ 4005}#) #{r\ 4008}# #f)
+ (if (pair? #{p\ 4006}#)
+ (if (pair? #{e\ 4005}#)
+ (#{match\ 3905}#
+ (car #{e\ 4005}#)
+ (car #{p\ 4006}#)
+ #{w\ 4007}#
+ (#{match\ 3905}#
+ (cdr #{e\ 4005}#)
+ (cdr #{p\ 4006}#)
+ #{w\ 4007}#
+ #{r\ 4008}#
+ #{mod\ 4009}#)
+ #{mod\ 4009}#)
#f)
- (if (eq? #{p\ 6210}# (quote each-any))
+ (if (eq? #{p\ 4006}# (quote each-any))
(begin
- (let ((#{l\ 6230}#
- (#{match-each-any\ 6103}#
- #{e\ 6209}#
- #{w\ 6211}#
- #{mod\ 6213}#)))
- (if #{l\ 6230}#
- (cons #{l\ 6230}# #{r\ 6212}#)
+ (let ((#{l\ 4026}#
+ (#{match-each-any\ 3897}#
+ #{e\ 4005}#
+ #{w\ 4007}#
+ #{mod\ 4009}#)))
+ (if #{l\ 4026}#
+ (cons #{l\ 4026}# #{r\ 4008}#)
#f)))
(begin
- (let ((#{atom-key\ 6236}#
- (vector-ref #{p\ 6210}# 0)))
- (if (eqv? #{atom-key\ 6236}# (quote each))
- (if (null? #{e\ 6209}#)
- (#{match-empty\ 6105}#
- (vector-ref #{p\ 6210}# 1)
- #{r\ 6212}#)
+ (let ((#{atom-key\ 4032}#
+ (vector-ref #{p\ 4006}# 0)))
+ (if (eqv? #{atom-key\ 4032}# (quote each))
+ (if (null? #{e\ 4005}#)
+ (#{match-empty\ 3899}#
+ (vector-ref #{p\ 4006}# 1)
+ #{r\ 4008}#)
(begin
- (let ((#{l\ 6239}#
- (#{match-each\ 6099}#
- #{e\ 6209}#
- (vector-ref #{p\ 6210}# 1)
- #{w\ 6211}#
- #{mod\ 6213}#)))
- (if #{l\ 6239}#
+ (let ((#{l\ 4035}#
+ (#{match-each\ 3893}#
+ #{e\ 4005}#
+ (vector-ref #{p\ 4006}# 1)
+ #{w\ 4007}#
+ #{mod\ 4009}#)))
+ (if #{l\ 4035}#
(letrec*
- ((#{collect\ 6244}#
- (lambda (#{l\ 6245}#)
- (if (null? (car #{l\ 6245}#))
- #{r\ 6212}#
- (cons (map car #{l\ 6245}#)
- (#{collect\ 6244}#
+ ((#{collect\ 4040}#
+ (lambda (#{l\ 4041}#)
+ (if (null? (car #{l\ 4041}#))
+ #{r\ 4008}#
+ (cons (map car #{l\ 4041}#)
+ (#{collect\ 4040}#
(map cdr
- #{l\ 6245}#)))))))
+ #{l\ 4041}#)))))))
(begin
- (#{collect\ 6244}# #{l\ 6239}#)))
+ (#{collect\ 4040}# #{l\ 4035}#)))
#f))))
- (if (eqv? #{atom-key\ 6236}# (quote each+))
+ (if (eqv? #{atom-key\ 4032}# (quote each+))
(call-with-values
(lambda ()
- (#{match-each+\ 6101}#
- #{e\ 6209}#
- (vector-ref #{p\ 6210}# 1)
- (vector-ref #{p\ 6210}# 2)
- (vector-ref #{p\ 6210}# 3)
- #{w\ 6211}#
- #{r\ 6212}#
- #{mod\ 6213}#))
- (lambda (#{xr*\ 6247}#
- #{y-pat\ 6248}#
- #{r\ 6249}#)
- (if #{r\ 6249}#
- (if (null? #{y-pat\ 6248}#)
- (if (null? #{xr*\ 6247}#)
- (#{match-empty\ 6105}#
- (vector-ref #{p\ 6210}# 1)
- #{r\ 6249}#)
- (#{combine\ 6107}#
- #{xr*\ 6247}#
- #{r\ 6249}#))
+ (#{match-each+\ 3895}#
+ #{e\ 4005}#
+ (vector-ref #{p\ 4006}# 1)
+ (vector-ref #{p\ 4006}# 2)
+ (vector-ref #{p\ 4006}# 3)
+ #{w\ 4007}#
+ #{r\ 4008}#
+ #{mod\ 4009}#))
+ (lambda (#{xr*\ 4043}#
+ #{y-pat\ 4044}#
+ #{r\ 4045}#)
+ (if #{r\ 4045}#
+ (if (null? #{y-pat\ 4044}#)
+ (if (null? #{xr*\ 4043}#)
+ (#{match-empty\ 3899}#
+ (vector-ref #{p\ 4006}# 1)
+ #{r\ 4045}#)
+ (#{combine\ 3901}#
+ #{xr*\ 4043}#
+ #{r\ 4045}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 6236}# (quote free-id))
- (if (#{id?\ 2496}# #{e\ 6209}#)
- (if (#{free-id=?\ 2555}#
- (#{wrap\ 2565}#
- #{e\ 6209}#
- #{w\ 6211}#
- #{mod\ 6213}#)
- (vector-ref #{p\ 6210}# 1))
- #{r\ 6212}#
+ (if (eqv? #{atom-key\ 4032}# (quote free-id))
+ (if (#{id?\ 380}# #{e\ 4005}#)
+ (if (#{free-id=?\ 439}#
+ (#{wrap\ 449}#
+ #{e\ 4005}#
+ #{w\ 4007}#
+ #{mod\ 4009}#)
+ (vector-ref #{p\ 4006}# 1))
+ #{r\ 4008}#
#f)
#f)
- (if (eqv? #{atom-key\ 6236}# (quote atom))
+ (if (eqv? #{atom-key\ 4032}# (quote atom))
(if (equal?
- (vector-ref #{p\ 6210}# 1)
- (#{strip\ 2607}#
- #{e\ 6209}#
- #{w\ 6211}#))
- #{r\ 6212}#
+ (vector-ref #{p\ 4006}# 1)
+ (#{strip\ 491}#
+ #{e\ 4005}#
+ #{w\ 4007}#))
+ #{r\ 4008}#
#f)
- (if (eqv? #{atom-key\ 6236}#
+ (if (eqv? #{atom-key\ 4032}#
'vector)
- (if (vector? #{e\ 6209}#)
- (#{match\ 6111}#
- (vector->list #{e\ 6209}#)
- (vector-ref #{p\ 6210}# 1)
- #{w\ 6211}#
- #{r\ 6212}#
- #{mod\ 6213}#)
+ (if (vector? #{e\ 4005}#)
+ (#{match\ 3905}#
+ (vector->list #{e\ 4005}#)
+ (vector-ref #{p\ 4006}# 1)
+ #{w\ 4007}#
+ #{r\ 4008}#
+ #{mod\ 4009}#)
#f)))))))))))))
- (#{match\ 6111}#
- (lambda (#{e\ 6266}#
- #{p\ 6267}#
- #{w\ 6268}#
- #{r\ 6269}#
- #{mod\ 6270}#)
- (if (not #{r\ 6269}#)
+ (#{match\ 3905}#
+ (lambda (#{e\ 4062}#
+ #{p\ 4063}#
+ #{w\ 4064}#
+ #{r\ 4065}#
+ #{mod\ 4066}#)
+ (if (not #{r\ 4065}#)
#f
- (if (eq? #{p\ 6267}# (quote any))
- (cons (#{wrap\ 2565}#
- #{e\ 6266}#
- #{w\ 6268}#
- #{mod\ 6270}#)
- #{r\ 6269}#)
- (if (#{syntax-object?\ 2460}# #{e\ 6266}#)
- (#{match*\ 6109}#
- (#{syntax-object-expression\ 2462}# #{e\ 6266}#)
- #{p\ 6267}#
- (#{join-wraps\ 2547}#
- #{w\ 6268}#
- (#{syntax-object-wrap\ 2464}# #{e\ 6266}#))
- #{r\ 6269}#
- (#{syntax-object-module\ 2466}# #{e\ 6266}#))
- (#{match*\ 6109}#
- #{e\ 6266}#
- #{p\ 6267}#
- #{w\ 6268}#
- #{r\ 6269}#
- #{mod\ 6270}#)))))))
+ (if (eq? #{p\ 4063}# (quote _))
+ #{r\ 4065}#
+ (if (eq? #{p\ 4063}# (quote any))
+ (cons (#{wrap\ 449}#
+ #{e\ 4062}#
+ #{w\ 4064}#
+ #{mod\ 4066}#)
+ #{r\ 4065}#)
+ (if (#{syntax-object?\ 344}# #{e\ 4062}#)
+ (#{match*\ 3903}#
+ (#{syntax-object-expression\ 346}# #{e\ 4062}#)
+ #{p\ 4063}#
+ (#{join-wraps\ 431}#
+ #{w\ 4064}#
+ (#{syntax-object-wrap\ 348}# #{e\ 4062}#))
+ #{r\ 4065}#
+ (#{syntax-object-module\ 350}# #{e\ 4062}#))
+ (#{match*\ 3903}#
+ #{e\ 4062}#
+ #{p\ 4063}#
+ #{w\ 4064}#
+ #{r\ 4065}#
+ #{mod\ 4066}#))))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 6283}# #{p\ 6284}#)
- (if (eq? #{p\ 6284}# (quote any))
- (list #{e\ 6283}#)
- (if (#{syntax-object?\ 2460}# #{e\ 6283}#)
- (#{match*\ 6109}#
- (#{syntax-object-expression\ 2462}# #{e\ 6283}#)
- #{p\ 6284}#
- (#{syntax-object-wrap\ 2464}# #{e\ 6283}#)
- '()
- (#{syntax-object-module\ 2466}# #{e\ 6283}#))
- (#{match*\ 6109}#
- #{e\ 6283}#
- #{p\ 6284}#
- '(())
- '()
- #f)))))))))))))
+ (lambda (#{e\ 4081}# #{p\ 4082}#)
+ (if (eq? #{p\ 4082}# (quote any))
+ (list #{e\ 4081}#)
+ (if (eq? #{p\ 4082}# (quote _))
+ '()
+ (if (#{syntax-object?\ 344}# #{e\ 4081}#)
+ (#{match*\ 3903}#
+ (#{syntax-object-expression\ 346}# #{e\ 4081}#)
+ #{p\ 4082}#
+ (#{syntax-object-wrap\ 348}# #{e\ 4081}#)
+ '()
+ (#{syntax-object-module\ 350}# #{e\ 4081}#))
+ (#{match*\ 3903}#
+ #{e\ 4081}#
+ #{p\ 4082}#
+ '(())
+ '()
+ #f))))))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 6293}#)
- (let ((#{tmp\ 6295}# #{x\ 6293}#))
- (let ((#{tmp\ 6296}#
+ (lambda (#{x\ 4093}#)
+ (let ((#{tmp\ 4095}# #{x\ 4093}#))
+ (let ((#{tmp\ 4096}#
($sc-dispatch
- #{tmp\ 6295}#
- '(any () any . each-any))))
- (if #{tmp\ 6296}#
+ #{tmp\ 4095}#
+ '(_ () any . each-any))))
+ (if #{tmp\ 4096}#
(@apply
- (lambda (#{_\ 6300}# #{e1\ 6301}# #{e2\ 6302}#)
+ (lambda (#{e1\ 4099}# #{e2\ 4100}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
- #(_ e1 e2)
- #((top) (top) (top))
- #("i6297" "i6298" "i6299"))
+ #(e1 e2)
+ #((top) (top))
+ #("i4097" "i4098"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4094")))
(hygiene guile))
- (cons #{e1\ 6301}# #{e2\ 6302}#)))
- #{tmp\ 6296}#)
- (let ((#{tmp\ 6304}#
+ (cons #{e1\ 4099}# #{e2\ 4100}#)))
+ #{tmp\ 4096}#)
+ (let ((#{tmp\ 4102}#
($sc-dispatch
- #{tmp\ 6295}#
- '(any ((any any)) any . each-any))))
- (if #{tmp\ 6304}#
+ #{tmp\ 4095}#
+ '(_ ((any any)) any . each-any))))
+ (if #{tmp\ 4102}#
(@apply
- (lambda (#{_\ 6310}#
- #{out\ 6311}#
- #{in\ 6312}#
- #{e1\ 6313}#
- #{e2\ 6314}#)
+ (lambda (#{out\ 4107}#
+ #{in\ 4108}#
+ #{e1\ 4109}#
+ #{e2\ 4110}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i6305" "i6306" "i6307" "i6308" "i6309"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4103" "i4104" "i4105" "i4106"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4094")))
(hygiene guile))
- #{in\ 6312}#
+ #{in\ 4108}#
'()
- (list #{out\ 6311}#
+ (list #{out\ 4107}#
(cons '#(syntax-object
begin
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i6305"
- "i6306"
- "i6307"
- "i6308"
- "i6309"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4103" "i4104" "i4105" "i4106"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4094")))
(hygiene guile))
- (cons #{e1\ 6313}# #{e2\ 6314}#)))))
- #{tmp\ 6304}#)
- (let ((#{tmp\ 6316}#
+ (cons #{e1\ 4109}# #{e2\ 4110}#)))))
+ #{tmp\ 4102}#)
+ (let ((#{tmp\ 4112}#
($sc-dispatch
- #{tmp\ 6295}#
- '(any #(each (any any)) any . each-any))))
- (if #{tmp\ 6316}#
+ #{tmp\ 4095}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 4112}#
(@apply
- (lambda (#{_\ 6322}#
- #{out\ 6323}#
- #{in\ 6324}#
- #{e1\ 6325}#
- #{e2\ 6326}#)
+ (lambda (#{out\ 4117}#
+ #{in\ 4118}#
+ #{e1\ 4119}#
+ #{e2\ 4120}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i6317" "i6318" "i6319" "i6320" "i6321"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4113" "i4114" "i4115" "i4116"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4094")))
(hygiene guile))
(cons '#(syntax-object
list
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top) (top) (top) (top) (top))
- #("i6317"
- "i6318"
- "i6319"
- "i6320"
- "i6321"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4113" "i4114" "i4115" "i4116"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4094")))
(hygiene guile))
- #{in\ 6324}#)
+ #{in\ 4118}#)
'()
- (list #{out\ 6323}#
+ (list #{out\ 4117}#
(cons '#(syntax-object
begin
((top)
#(ribcage
- #(_ out in e1 e2)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i6317"
- "i6318"
- "i6319"
- "i6320"
- "i6321"))
+ #(out in e1 e2)
+ #((top) (top) (top) (top))
+ #("i4113"
+ "i4114"
+ "i4115"
+ "i4116"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6294")))
+ #("i4094")))
(hygiene guile))
- (cons #{e1\ 6325}# #{e2\ 6326}#)))))
- #{tmp\ 6316}#)
+ (cons #{e1\ 4119}# #{e2\ 4120}#)))))
+ #{tmp\ 4112}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6295}#)))))))))))
+ #{tmp\ 4095}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 6330}#)
- (let ((#{tmp\ 6332}# #{x\ 6330}#))
- (let ((#{tmp\ 6333}#
+ (lambda (#{x\ 4124}#)
+ (let ((#{tmp\ 4126}# #{x\ 4124}#))
+ (let ((#{tmp\ 4127}#
($sc-dispatch
- #{tmp\ 6332}#
- '(any each-any . #(each ((any . any) any))))))
- (if #{tmp\ 6333}#
+ #{tmp\ 4126}#
+ '(_ each-any . #(each ((any . any) any))))))
+ (if #{tmp\ 4127}#
(@apply
- (lambda (#{_\ 6339}#
- #{k\ 6340}#
- #{keyword\ 6341}#
- #{pattern\ 6342}#
- #{template\ 6343}#)
+ (lambda (#{k\ 4132}#
+ #{keyword\ 4133}#
+ #{pattern\ 4134}#
+ #{template\ 4135}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4128" "i4129" "i4130" "i4131"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4125")))
(hygiene guile))
'(#(syntax-object
x
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4128" "i4129" "i4130" "i4131"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4125")))
(hygiene guile)))
(vector
'(#(syntax-object
macro-type
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4128" "i4129" "i4130" "i4131"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4125")))
(hygiene guile))
.
#(syntax-object
syntax-rules
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4128" "i4129" "i4130" "i4131"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4125")))
(hygiene guile)))
(cons '#(syntax-object
patterns
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4128" "i4129" "i4130" "i4131"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4125")))
(hygiene guile))
- #{pattern\ 6342}#))
+ #{pattern\ 4134}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4128" "i4129" "i4130" "i4131"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4125")))
(hygiene guile))
(cons '#(syntax-object
x
((top)
#(ribcage
- #(_ k keyword pattern template)
- #((top) (top) (top) (top) (top))
- #("i6334"
- "i6335"
- "i6336"
- "i6337"
- "i6338"))
+ #(k keyword pattern template)
+ #((top) (top) (top) (top))
+ #("i4128" "i4129" "i4130" "i4131"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4125")))
(hygiene guile))
- (cons #{k\ 6340}#
- (map (lambda (#{tmp\ 6347}#
- #{tmp\ 6346}#)
+ (cons #{k\ 4132}#
+ (map (lambda (#{tmp\ 4139}#
+ #{tmp\ 4138}#)
(list (cons '#(syntax-object
dummy
((top)
#(ribcage
- #(_
- k
+ #(k
keyword
pattern
template)
#((top)
(top)
(top)
- (top)
(top))
- #("i6334"
- "i6335"
- "i6336"
- "i6337"
- "i6338"))
+ #("i4128"
+ "i4129"
+ "i4130"
+ "i4131"))
#(ribcage
()
()
@@ -13599,28 +14838,25 @@
#(ribcage
#(x)
#((top))
- #("i6331")))
+ #("i4125")))
(hygiene guile))
- #{tmp\ 6346}#)
+ #{tmp\ 4138}#)
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- k
+ #(k
keyword
pattern
template)
#((top)
(top)
(top)
- (top)
(top))
- #("i6334"
- "i6335"
- "i6336"
- "i6337"
- "i6338"))
+ #("i4128"
+ "i4129"
+ "i4130"
+ "i4131"))
#(ribcage
()
()
@@ -13628,47 +14864,47 @@
#(ribcage
#(x)
#((top))
- #("i6331")))
+ #("i4125")))
(hygiene guile))
- #{tmp\ 6347}#)))
- #{template\ 6343}#
- #{pattern\ 6342}#))))))
- #{tmp\ 6333}#)
+ #{tmp\ 4139}#)))
+ #{template\ 4135}#
+ #{pattern\ 4134}#))))))
+ #{tmp\ 4127}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6332}#)))))))
+ #{tmp\ 4126}#)))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 6348}#)
- (let ((#{tmp\ 6350}# #{x\ 6348}#))
- (let ((#{tmp\ 6351}#
+ (lambda (#{x\ 4140}#)
+ (let ((#{tmp\ 4142}# #{x\ 4140}#))
+ (let ((#{tmp\ 4143}#
($sc-dispatch
- #{tmp\ 6350}#
+ #{tmp\ 4142}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 6351}#
+ (if (if #{tmp\ 4143}#
(@apply
- (lambda (#{let*\ 6357}#
- #{x\ 6358}#
- #{v\ 6359}#
- #{e1\ 6360}#
- #{e2\ 6361}#)
- (and-map identifier? #{x\ 6358}#))
- #{tmp\ 6351}#)
+ (lambda (#{let*\ 4149}#
+ #{x\ 4150}#
+ #{v\ 4151}#
+ #{e1\ 4152}#
+ #{e2\ 4153}#)
+ (and-map identifier? #{x\ 4150}#))
+ #{tmp\ 4143}#)
#f)
(@apply
- (lambda (#{let*\ 6368}#
- #{x\ 6369}#
- #{v\ 6370}#
- #{e1\ 6371}#
- #{e2\ 6372}#)
+ (lambda (#{let*\ 4160}#
+ #{x\ 4161}#
+ #{v\ 4162}#
+ #{e1\ 4163}#
+ #{e2\ 4164}#)
(letrec*
- ((#{f\ 6375}#
- (lambda (#{bindings\ 6376}#)
- (if (null? #{bindings\ 6376}#)
+ ((#{f\ 4167}#
+ (lambda (#{bindings\ 4168}#)
+ (if (null? #{bindings\ 4168}#)
(cons '#(syntax-object
let
((top)
@@ -13676,129 +14912,128 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i6373" "i6374"))
+ #("i4165" "i4166"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i6363"
- "i6364"
- "i6365"
- "i6366"
- "i6367"))
+ #("i4155"
+ "i4156"
+ "i4157"
+ "i4158"
+ "i4159"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6349")))
+ #(ribcage #(x) #((top)) #("i4141")))
(hygiene guile))
(cons '()
- (cons #{e1\ 6371}# #{e2\ 6372}#)))
- (let ((#{tmp\ 6381}#
- (list (#{f\ 6375}# (cdr #{bindings\ 6376}#))
- (car #{bindings\ 6376}#))))
- (let ((#{tmp\ 6382}#
+ (cons #{e1\ 4163}# #{e2\ 4164}#)))
+ (let ((#{tmp\ 4173}#
+ (list (#{f\ 4167}# (cdr #{bindings\ 4168}#))
+ (car #{bindings\ 4168}#))))
+ (let ((#{tmp\ 4174}#
($sc-dispatch
- #{tmp\ 6381}#
+ #{tmp\ 4173}#
'(any any))))
- (if #{tmp\ 6382}#
+ (if #{tmp\ 4174}#
(@apply
- (lambda (#{body\ 6385}# #{binding\ 6386}#)
+ (lambda (#{body\ 4177}# #{binding\ 4178}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i6383" "i6384"))
+ #("i4175" "i4176"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i6373" "i6374"))
+ #("i4165" "i4166"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i6363"
- "i6364"
- "i6365"
- "i6366"
- "i6367"))
+ #("i4155"
+ "i4156"
+ "i4157"
+ "i4158"
+ "i4159"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6349")))
+ #("i4141")))
(hygiene guile))
- (list #{binding\ 6386}#)
- #{body\ 6385}#))
- #{tmp\ 6382}#)
+ (list #{binding\ 4178}#)
+ #{body\ 4177}#))
+ #{tmp\ 4174}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 6381}#))))))))
+ #{tmp\ 4173}#))))))))
(begin
- (#{f\ 6375}# (map list #{x\ 6369}# #{v\ 6370}#)))))
- #{tmp\ 6351}#)
+ (#{f\ 4167}# (map list #{x\ 4161}# #{v\ 4162}#)))))
+ #{tmp\ 4143}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6350}#)))))))
+ #{tmp\ 4142}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 6387}#)
- (let ((#{tmp\ 6389}# #{orig-x\ 6387}#))
- (let ((#{tmp\ 6390}#
+ (lambda (#{orig-x\ 4179}#)
+ (let ((#{tmp\ 4181}# #{orig-x\ 4179}#))
+ (let ((#{tmp\ 4182}#
($sc-dispatch
- #{tmp\ 6389}#
- '(any #(each (any any . any))
- (any . each-any)
- .
- each-any))))
- (if #{tmp\ 6390}#
+ #{tmp\ 4181}#
+ '(_ #(each (any any . any))
+ (any . each-any)
+ .
+ each-any))))
+ (if #{tmp\ 4182}#
(@apply
- (lambda (#{_\ 6398}#
- #{var\ 6399}#
- #{init\ 6400}#
- #{step\ 6401}#
- #{e0\ 6402}#
- #{e1\ 6403}#
- #{c\ 6404}#)
- (let ((#{tmp\ 6406}#
- (map (lambda (#{v\ 6427}# #{s\ 6428}#)
- (let ((#{tmp\ 6431}# #{s\ 6428}#))
- (let ((#{tmp\ 6432}#
+ (lambda (#{var\ 4189}#
+ #{init\ 4190}#
+ #{step\ 4191}#
+ #{e0\ 4192}#
+ #{e1\ 4193}#
+ #{c\ 4194}#)
+ (let ((#{tmp\ 4196}#
+ (map (lambda (#{v\ 4217}# #{s\ 4218}#)
+ (let ((#{tmp\ 4221}# #{s\ 4218}#))
+ (let ((#{tmp\ 4222}#
($sc-dispatch
- #{tmp\ 6431}#
+ #{tmp\ 4221}#
'())))
- (if #{tmp\ 6432}#
+ (if #{tmp\ 4222}#
(@apply
- (lambda () #{v\ 6427}#)
- #{tmp\ 6432}#)
- (let ((#{tmp\ 6433}#
+ (lambda () #{v\ 4217}#)
+ #{tmp\ 4222}#)
+ (let ((#{tmp\ 4223}#
($sc-dispatch
- #{tmp\ 6431}#
+ #{tmp\ 4221}#
'(any))))
- (if #{tmp\ 6433}#
+ (if #{tmp\ 4223}#
(@apply
- (lambda (#{e\ 6435}#) #{e\ 6435}#)
- #{tmp\ 6433}#)
- (let ((#{_\ 6437}# #{tmp\ 6431}#))
+ (lambda (#{e\ 4225}#) #{e\ 4225}#)
+ #{tmp\ 4223}#)
+ (let ((#{_\ 4227}# #{tmp\ 4221}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 6387}#
- #{s\ 6428}#))))))))
- #{var\ 6399}#
- #{step\ 6401}#)))
- (let ((#{tmp\ 6407}#
- ($sc-dispatch #{tmp\ 6406}# (quote each-any))))
- (if #{tmp\ 6407}#
+ #{orig-x\ 4179}#
+ #{s\ 4218}#))))))))
+ #{var\ 4189}#
+ #{step\ 4191}#)))
+ (let ((#{tmp\ 4197}#
+ ($sc-dispatch #{tmp\ 4196}# (quote each-any))))
+ (if #{tmp\ 4197}#
(@apply
- (lambda (#{step\ 6409}#)
- (let ((#{tmp\ 6410}# #{e1\ 6403}#))
- (let ((#{tmp\ 6411}#
- ($sc-dispatch #{tmp\ 6410}# (quote ()))))
- (if #{tmp\ 6411}#
+ (lambda (#{step\ 4199}#)
+ (let ((#{tmp\ 4200}# #{e1\ 4193}#))
+ (let ((#{tmp\ 4201}#
+ ($sc-dispatch #{tmp\ 4200}# (quote ()))))
+ (if #{tmp\ 4201}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -13807,28 +15042,26 @@
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
'#(syntax-object
doloop
@@ -13836,66 +15069,56 @@
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
(map list
- #{var\ 6399}#
- #{init\ 6400}#)
+ #{var\ 4189}#
+ #{init\ 4190}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_
- var
- init
- step
- e0
- e1
- c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
(list '#(syntax-object
not
@@ -13903,10 +15126,9 @@
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -13917,32 +15139,29 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
- #{e0\ 6402}#)
+ #{e0\ 4192}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -13953,33 +15172,30 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
(append
- #{c\ 6404}#
+ #{c\ 4194}#
(list (cons
'#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i6408"))
+
#("i4198"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -13990,15 +15206,13 @@
(top)
(top)
(top)
-
(top)
(top))
-
#("i6391"
-
"i6392"
-
"i6393"
-
"i6394"
-
"i6395"
-
"i6396"
-
"i6397"))
+
#("i4183"
+
"i4184"
+
"i4185"
+
"i4186"
+
"i4187"
+
"i4188"))
#(ribcage
()
()
@@ -14006,50 +15220,48 @@
#(ribcage
#(orig-x)
#((top))
-
#("i6388")))
+
#("i4180")))
(hygiene
guile))
- #{step\
6409}#)))))))
- #{tmp\ 6411}#)
- (let ((#{tmp\ 6416}#
+ #{step\
4199}#)))))))
+ #{tmp\ 4201}#)
+ (let ((#{tmp\ 4206}#
($sc-dispatch
- #{tmp\ 6410}#
+ #{tmp\ 4200}#
'(any . each-any))))
- (if #{tmp\ 6416}#
+ (if #{tmp\ 4206}#
(@apply
- (lambda (#{e1\ 6419}# #{e2\ 6420}#)
+ (lambda (#{e1\ 4209}# #{e2\ 4210}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417" "i6418"))
+ #("i4207" "i4208"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
'#(syntax-object
doloop
@@ -14057,50 +15269,47 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417" "i6418"))
+ #("i4207" "i4208"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_ var init step e0 e1 c)
+ #(var init step e0 e1 c)
#((top)
(top)
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
(map list
- #{var\ 6399}#
- #{init\ 6400}#)
+ #{var\ 4189}#
+ #{init\ 4190}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417" "i6418"))
+ #("i4207" "i4208"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -14111,37 +15320,34 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
- #{e0\ 6402}#
+ #{e0\ 4192}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417"
- "i6418"))
+ #("i4207"
+ "i4208"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -14152,15 +15358,13 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage
()
()
@@ -14168,25 +15372,24 @@
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
- (cons #{e1\ 6419}#
- #{e2\ 6420}#))
+ (cons #{e1\ 4209}#
+ #{e2\ 4210}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417"
- "i6418"))
+ #("i4207"
+ "i4208"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4198"))
#(ribcage
- #(_
- var
+ #(var
init
step
e0
@@ -14197,15 +15400,13 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4183"
+ "i4184"
+ "i4185"
+ "i4186"
+ "i4187"
+ "i4188"))
#(ribcage
()
()
@@ -14213,10 +15414,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4180")))
(hygiene guile))
(append
- #{c\ 6404}#
+ #{c\ 4194}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -14225,15 +15426,14 @@
e2)
#((top)
(top))
-
#("i6417"
-
"i6418"))
+
#("i4207"
+
"i4208"))
#(ribcage
#(step)
#((top))
-
#("i6408"))
+
#("i4198"))
#(ribcage
-
#(_
-
var
+
#(var
init
step
e0
@@ -14244,15 +15444,13 @@
(top)
(top)
(top)
-
(top)
(top))
-
#("i6391"
-
"i6392"
-
"i6393"
-
"i6394"
-
"i6395"
-
"i6396"
-
"i6397"))
+
#("i4183"
+
"i4184"
+
"i4185"
+
"i4186"
+
"i4187"
+
"i4188"))
#(ribcage
()
()
@@ -14260,43 +15458,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("i6388")))
+
#("i4180")))
(hygiene
guile))
-
#{step\ 6409}#)))))))
- #{tmp\ 6416}#)
+
#{step\ 4199}#)))))))
+ #{tmp\ 4206}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 6410}#)))))))
- #{tmp\ 6407}#)
+ #{tmp\ 4200}#)))))))
+ #{tmp\ 4197}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6406}#)))))
- #{tmp\ 6390}#)
+ #{tmp\ 4196}#)))))
+ #{tmp\ 4182}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6389}#)))))))
+ #{tmp\ 4181}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasicons\ 6444}#
- (lambda (#{x\ 6448}# #{y\ 6449}#)
- (let ((#{tmp\ 6453}# (list #{x\ 6448}# #{y\ 6449}#)))
- (let ((#{tmp\ 6454}#
- ($sc-dispatch #{tmp\ 6453}# (quote (any any)))))
- (if #{tmp\ 6454}#
+ ((#{quasicons\ 4234}#
+ (lambda (#{x\ 4238}# #{y\ 4239}#)
+ (let ((#{tmp\ 4243}# (list #{x\ 4238}# #{y\ 4239}#)))
+ (let ((#{tmp\ 4244}#
+ ($sc-dispatch #{tmp\ 4243}# (quote (any any)))))
+ (if #{tmp\ 4244}#
(@apply
- (lambda (#{x\ 6457}# #{y\ 6458}#)
- (let ((#{tmp\ 6459}# #{y\ 6458}#))
- (let ((#{tmp\ 6460}#
+ (lambda (#{x\ 4247}# #{y\ 4248}#)
+ (let ((#{tmp\ 4249}# #{y\ 4248}#))
+ (let ((#{tmp\ 4250}#
($sc-dispatch
- #{tmp\ 6459}#
+ #{tmp\ 4249}#
'(#(free-id
#(syntax-object
quote
@@ -14304,29 +15502,29 @@
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
any))))
- (if #{tmp\ 6460}#
+ (if #{tmp\ 4250}#
(@apply
- (lambda (#{dy\ 6462}#)
- (let ((#{tmp\ 6463}# #{x\ 6457}#))
- (let ((#{tmp\ 6464}#
+ (lambda (#{dy\ 4252}#)
+ (let ((#{tmp\ 4253}# #{x\ 4247}#))
+ (let ((#{tmp\ 4254}#
($sc-dispatch
- #{tmp\ 6463}#
+ #{tmp\ 4253}#
'(#(free-id
#(syntax-object
quote
@@ -14334,140 +15532,140 @@
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4251"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile)))
any))))
- (if #{tmp\ 6464}#
+ (if #{tmp\ 4254}#
(@apply
- (lambda (#{dx\ 6466}#)
+ (lambda (#{dx\ 4256}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i6465"))
+ #("i4255"))
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4251"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
- (cons #{dx\ 6466}#
- #{dy\ 6462}#)))
- #{tmp\ 6464}#)
- (let ((#{_\ 6468}# #{tmp\ 6463}#))
- (if (null? #{dy\ 6462}#)
+ (cons #{dx\ 4256}#
+ #{dy\ 4252}#)))
+ #{tmp\ 4254}#)
+ (let ((#{_\ 4258}# #{tmp\ 4253}#))
+ (if (null? #{dy\ 4252}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i6467"))
+ #("i4257"))
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4251"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
- #{x\ 6457}#)
+ #{x\ 4247}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i6467"))
+ #("i4257"))
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4251"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
- #{x\ 6457}#
- #{y\ 6458}#)))))))
- #{tmp\ 6460}#)
- (let ((#{tmp\ 6469}#
+ #{x\ 4247}#
+ #{y\ 4248}#)))))))
+ #{tmp\ 4250}#)
+ (let ((#{tmp\ 4259}#
($sc-dispatch
- #{tmp\ 6459}#
+ #{tmp\ 4249}#
'(#(free-id
#(syntax-object
list
@@ -14475,107 +15673,107 @@
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 6469}#
+ (if #{tmp\ 4259}#
(@apply
- (lambda (#{stuff\ 6471}#)
+ (lambda (#{stuff\ 4261}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i6470"))
+ #("i4260"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
- (cons #{x\ 6457}# #{stuff\ 6471}#)))
- #{tmp\ 6469}#)
- (let ((#{else\ 6473}# #{tmp\ 6459}#))
+ (cons #{x\ 4247}# #{stuff\ 4261}#)))
+ #{tmp\ 4259}#)
+ (let ((#{else\ 4263}# #{tmp\ 4249}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i6472"))
+ #("i4262"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4245" "i4246"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4240" "i4241"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
- #{x\ 6457}#
- #{y\ 6458}#))))))))
- #{tmp\ 6454}#)
+ #{x\ 4247}#
+ #{y\ 4248}#))))))))
+ #{tmp\ 4244}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6453}#))))))
- (#{quasiappend\ 6445}#
- (lambda (#{x\ 6474}# #{y\ 6475}#)
- (let ((#{tmp\ 6479}# (list #{x\ 6474}# #{y\ 6475}#)))
- (let ((#{tmp\ 6480}#
- ($sc-dispatch #{tmp\ 6479}# (quote (any any)))))
- (if #{tmp\ 6480}#
+ #{tmp\ 4243}#))))))
+ (#{quasiappend\ 4235}#
+ (lambda (#{x\ 4264}# #{y\ 4265}#)
+ (let ((#{tmp\ 4269}# (list #{x\ 4264}# #{y\ 4265}#)))
+ (let ((#{tmp\ 4270}#
+ ($sc-dispatch #{tmp\ 4269}# (quote (any any)))))
+ (if #{tmp\ 4270}#
(@apply
- (lambda (#{x\ 6483}# #{y\ 6484}#)
- (let ((#{tmp\ 6485}# #{y\ 6484}#))
- (let ((#{tmp\ 6486}#
+ (lambda (#{x\ 4273}# #{y\ 4274}#)
+ (let ((#{tmp\ 4275}# #{y\ 4274}#))
+ (let ((#{tmp\ 4276}#
($sc-dispatch
- #{tmp\ 6485}#
+ #{tmp\ 4275}#
'(#(free-id
#(syntax-object
quote
@@ -14583,160 +15781,160 @@
#(ribcage
#(x y)
#((top) (top))
- #("i6481" "i6482"))
+ #("i4271" "i4272"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6476" "i6477"))
+ #("i4266" "i4267"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
()))))
- (if #{tmp\ 6486}#
- (@apply (lambda () #{x\ 6483}#) #{tmp\ 6486}#)
- (let ((#{_\ 6488}# #{tmp\ 6485}#))
+ (if #{tmp\ 4276}#
+ (@apply (lambda () #{x\ 4273}#) #{tmp\ 4276}#)
+ (let ((#{_\ 4278}# #{tmp\ 4275}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i6487"))
+ #(ribcage #(_) #((top)) #("i4277"))
#(ribcage
#(x y)
#((top) (top))
- #("i6481" "i6482"))
+ #("i4271" "i4272"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6476" "i6477"))
+ #("i4266" "i4267"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile))
- #{x\ 6483}#
- #{y\ 6484}#))))))
- #{tmp\ 6480}#)
+ #{x\ 4273}#
+ #{y\ 4274}#))))))
+ #{tmp\ 4270}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6479}#))))))
- (#{quasivector\ 6446}#
- (lambda (#{x\ 6489}#)
- (let ((#{tmp\ 6492}# #{x\ 6489}#))
- (let ((#{x\ 6494}# #{tmp\ 6492}#))
- (let ((#{tmp\ 6495}# #{x\ 6494}#))
- (let ((#{tmp\ 6496}#
+ #{tmp\ 4269}#))))))
+ (#{quasivector\ 4236}#
+ (lambda (#{x\ 4279}#)
+ (let ((#{tmp\ 4282}# #{x\ 4279}#))
+ (let ((#{x\ 4284}# #{tmp\ 4282}#))
+ (let ((#{tmp\ 4285}# #{x\ 4284}#))
+ (let ((#{tmp\ 4286}#
($sc-dispatch
- #{tmp\ 6495}#
+ #{tmp\ 4285}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4283"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4280"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 6496}#
+ (if #{tmp\ 4286}#
(@apply
- (lambda (#{x\ 6498}#)
+ (lambda (#{x\ 4288}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i6497"))
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4287"))
+ #(ribcage #(x) #((top)) #("i4283"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4280"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile))
- (list->vector #{x\ 6498}#)))
- #{tmp\ 6496}#)
- (let ((#{tmp\ 6500}#
+ (list->vector #{x\ 4288}#)))
+ #{tmp\ 4286}#)
+ (let ((#{tmp\ 4290}#
($sc-dispatch
- #{tmp\ 6495}#
+ #{tmp\ 4285}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4283"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 6500}#
+ (if #{tmp\ 4290}#
(@apply
- (lambda (#{x\ 6502}#)
+ (lambda (#{x\ 4292}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i6501"))
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4291"))
+ #(ribcage #(x) #((top)) #("i4283"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile))
- #{x\ 6502}#))
- #{tmp\ 6500}#)
- (let ((#{_\ 6505}# #{tmp\ 6495}#))
+ #{x\ 4292}#))
+ #{tmp\ 4290}#)
+ (let ((#{_\ 4295}# #{tmp\ 4285}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i6504"))
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(_) #((top)) #("i4294"))
+ #(ribcage #(x) #((top)) #("i4283"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4280"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile))
- #{x\ 6494}#)))))))))))
- (#{quasi\ 6447}#
- (lambda (#{p\ 6506}# #{lev\ 6507}#)
- (let ((#{tmp\ 6510}# #{p\ 6506}#))
- (let ((#{tmp\ 6511}#
+ #{x\ 4284}#)))))))))))
+ (#{quasi\ 4237}#
+ (lambda (#{p\ 4296}# #{lev\ 4297}#)
+ (let ((#{tmp\ 4300}# #{p\ 4296}#))
+ (let ((#{tmp\ 4301}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4300}#
'(#(free-id
#(syntax-object
unquote
@@ -14745,54 +15943,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
any))))
- (if #{tmp\ 6511}#
+ (if #{tmp\ 4301}#
(@apply
- (lambda (#{p\ 6513}#)
- (if (= #{lev\ 6507}# 0)
- #{p\ 6513}#
- (#{quasicons\ 6444}#
+ (lambda (#{p\ 4303}#)
+ (if (= #{lev\ 4297}# 0)
+ #{p\ 4303}#
+ (#{quasicons\ 4234}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i6512"))
+ #(ribcage #(p) #((top)) #("i4302"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i6512"))
+ #(ribcage #(p) #((top)) #("i4302"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
- (#{quasi\ 6447}#
- (list #{p\ 6513}#)
- (1- #{lev\ 6507}#)))))
- #{tmp\ 6511}#)
- (let ((#{tmp\ 6514}#
+ (#{quasi\ 4237}#
+ (list #{p\ 4303}#)
+ (1- #{lev\ 4297}#)))))
+ #{tmp\ 4301}#)
+ (let ((#{tmp\ 4304}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4300}#
'(#(free-id
#(syntax-object
unquote
@@ -14801,47 +15999,47 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 6514}#
+ (if (if #{tmp\ 4304}#
(@apply
- (lambda (#{args\ 6516}#) (= #{lev\ 6507}# 0))
- #{tmp\ 6514}#)
+ (lambda (#{args\ 4306}#) (= #{lev\ 4297}# 0))
+ #{tmp\ 4304}#)
#f)
(@apply
- (lambda (#{args\ 6518}#)
+ (lambda (#{args\ 4308}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 6506}#
+ #{p\ 4296}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i6517"))
+ #(ribcage #(args) #((top)) #("i4307"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile))
- #{args\ 6518}#)))
- #{tmp\ 6514}#)
- (let ((#{tmp\ 6519}#
+ #{args\ 4308}#)))
+ #{tmp\ 4304}#)
+ (let ((#{tmp\ 4309}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4300}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14850,46 +16048,46 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 6519}#
+ (if #{tmp\ 4309}#
(@apply
- (lambda (#{p\ 6522}# #{q\ 6523}#)
- (if (= #{lev\ 6507}# 0)
- (#{quasiappend\ 6445}#
- #{p\ 6522}#
- (#{quasi\ 6447}# #{q\ 6523}# #{lev\ 6507}#))
- (#{quasicons\ 6444}#
- (#{quasicons\ 6444}#
+ (lambda (#{p\ 4312}# #{q\ 4313}#)
+ (if (= #{lev\ 4297}# 0)
+ (#{quasiappend\ 4235}#
+ #{p\ 4312}#
+ (#{quasi\ 4237}# #{q\ 4313}# #{lev\ 4297}#))
+ (#{quasicons\ 4234}#
+ (#{quasicons\ 4234}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i6520" "i6521"))
+ #("i4310" "i4311"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -14897,28 +16095,28 @@
#(ribcage
#(p q)
#((top) (top))
- #("i6520" "i6521"))
+ #("i4310" "i4311"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4230" "i4231" "i4232" "i4233")))
(hygiene guile)))
- (#{quasi\ 6447}#
- (list #{p\ 6522}#)
- (1- #{lev\ 6507}#)))
- (#{quasi\ 6447}# #{q\ 6523}# #{lev\ 6507}#))))
- #{tmp\ 6519}#)
- (let ((#{tmp\ 6524}#
+ (#{quasi\ 4237}#
+ (list #{p\ 4312}#)
+ (1- #{lev\ 4297}#)))
+ (#{quasi\ 4237}# #{q\ 4313}# #{lev\ 4297}#))))
+ #{tmp\ 4309}#)
+ (let ((#{tmp\ 4314}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4300}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14927,62 +16125,62 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 6524}#
+ (if (if #{tmp\ 4314}#
(@apply
- (lambda (#{args\ 6527}# #{q\ 6528}#)
- (= #{lev\ 6507}# 0))
- #{tmp\ 6524}#)
+ (lambda (#{args\ 4317}# #{q\ 4318}#)
+ (= #{lev\ 4297}# 0))
+ #{tmp\ 4314}#)
#f)
(@apply
- (lambda (#{args\ 6531}# #{q\ 6532}#)
+ (lambda (#{args\ 4321}# #{q\ 4322}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one
argument"
- #{p\ 6506}#
+ #{p\ 4296}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i6529" "i6530"))
+ #("i4319" "i4320"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
- #{args\ 6531}#)))
- #{tmp\ 6524}#)
- (let ((#{tmp\ 6533}#
+ #{args\ 4321}#)))
+ #{tmp\ 4314}#)
+ (let ((#{tmp\ 4323}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4300}#
'(#(free-id
#(syntax-object
quasiquote
@@ -14991,107 +16189,107 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile)))
any))))
- (if #{tmp\ 6533}#
+ (if #{tmp\ 4323}#
(@apply
- (lambda (#{p\ 6535}#)
- (#{quasicons\ 6444}#
+ (lambda (#{p\ 4325}#)
+ (#{quasicons\ 4234}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i6534"))
+ #(ribcage #(p) #((top)) #("i4324"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i6534"))
+ #(ribcage #(p) #((top)) #("i4324"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile)))
- (#{quasi\ 6447}#
- (list #{p\ 6535}#)
- (1+ #{lev\ 6507}#))))
- #{tmp\ 6533}#)
- (let ((#{tmp\ 6536}#
+ (#{quasi\ 4237}#
+ (list #{p\ 4325}#)
+ (1+ #{lev\ 4297}#))))
+ #{tmp\ 4323}#)
+ (let ((#{tmp\ 4326}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4300}#
'(any . any))))
- (if #{tmp\ 6536}#
+ (if #{tmp\ 4326}#
(@apply
- (lambda (#{p\ 6539}# #{q\ 6540}#)
- (#{quasicons\ 6444}#
- (#{quasi\ 6447}#
- #{p\ 6539}#
- #{lev\ 6507}#)
- (#{quasi\ 6447}#
- #{q\ 6540}#
- #{lev\ 6507}#)))
- #{tmp\ 6536}#)
- (let ((#{tmp\ 6541}#
+ (lambda (#{p\ 4329}# #{q\ 4330}#)
+ (#{quasicons\ 4234}#
+ (#{quasi\ 4237}#
+ #{p\ 4329}#
+ #{lev\ 4297}#)
+ (#{quasi\ 4237}#
+ #{q\ 4330}#
+ #{lev\ 4297}#)))
+ #{tmp\ 4326}#)
+ (let ((#{tmp\ 4331}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4300}#
'#(vector each-any))))
- (if #{tmp\ 6541}#
+ (if #{tmp\ 4331}#
(@apply
- (lambda (#{x\ 6543}#)
- (#{quasivector\ 6446}#
- (#{quasi\ 6447}#
- #{x\ 6543}#
- #{lev\ 6507}#)))
- #{tmp\ 6541}#)
- (let ((#{p\ 6546}# #{tmp\ 6510}#))
+ (lambda (#{x\ 4333}#)
+ (#{quasivector\ 4236}#
+ (#{quasi\ 4237}#
+ #{x\ 4333}#
+ #{lev\ 4297}#)))
+ #{tmp\ 4331}#)
+ (let ((#{p\ 4336}# #{tmp\ 4300}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i6545"))
+ #("i4335"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4298" "i4299"))
#(ribcage
#(quasicons
quasiappend
@@ -15101,223 +16299,220 @@
(top)
(top)
(top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4230"
+ "i4231"
+ "i4232"
+ "i4233")))
(hygiene guile))
- #{p\
6546}#))))))))))))))))))))
+ #{p\
4336}#))))))))))))))))))))
(begin
- (lambda (#{x\ 6547}#)
- (let ((#{tmp\ 6549}# #{x\ 6547}#))
- (let ((#{tmp\ 6550}#
- ($sc-dispatch #{tmp\ 6549}# (quote (any any)))))
- (if #{tmp\ 6550}#
+ (lambda (#{x\ 4337}#)
+ (let ((#{tmp\ 4339}# #{x\ 4337}#))
+ (let ((#{tmp\ 4340}#
+ ($sc-dispatch #{tmp\ 4339}# (quote (_ any)))))
+ (if #{tmp\ 4340}#
(@apply
- (lambda (#{_\ 6553}# #{e\ 6554}#)
- (#{quasi\ 6447}# #{e\ 6554}# 0))
- #{tmp\ 6550}#)
+ (lambda (#{e\ 4342}#)
+ (#{quasi\ 4237}# #{e\ 4342}# 0))
+ #{tmp\ 4340}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6549}#)))))))))
+ #{tmp\ 4339}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 6555}#)
+ (lambda (#{x\ 4343}#)
(letrec*
- ((#{read-file\ 6558}#
- (lambda (#{fn\ 6559}# #{k\ 6560}#)
+ ((#{read-file\ 4346}#
+ (lambda (#{fn\ 4347}# #{k\ 4348}#)
(begin
- (let ((#{p\ 6564}# (open-input-file #{fn\ 6559}#)))
+ (let ((#{p\ 4352}# (open-input-file #{fn\ 4347}#)))
(letrec*
- ((#{f\ 6568}#
- (lambda (#{x\ 6569}# #{result\ 6570}#)
- (if (eof-object? #{x\ 6569}#)
+ ((#{f\ 4356}#
+ (lambda (#{x\ 4357}# #{result\ 4358}#)
+ (if (eof-object? #{x\ 4357}#)
(begin
- (close-input-port #{p\ 6564}#)
- (reverse #{result\ 6570}#))
- (#{f\ 6568}#
- (read #{p\ 6564}#)
- (cons (datum->syntax #{k\ 6560}# #{x\ 6569}#)
- #{result\ 6570}#))))))
+ (close-input-port #{p\ 4352}#)
+ (reverse #{result\ 4358}#))
+ (#{f\ 4356}#
+ (read #{p\ 4352}#)
+ (cons (datum->syntax #{k\ 4348}# #{x\ 4357}#)
+ #{result\ 4358}#))))))
(begin
- (#{f\ 6568}# (read #{p\ 6564}#) (quote ())))))))))
+ (#{f\ 4356}# (read #{p\ 4352}#) (quote ())))))))))
(begin
- (let ((#{tmp\ 6571}# #{x\ 6555}#))
- (let ((#{tmp\ 6572}#
- ($sc-dispatch #{tmp\ 6571}# (quote (any any)))))
- (if #{tmp\ 6572}#
+ (let ((#{tmp\ 4359}# #{x\ 4343}#))
+ (let ((#{tmp\ 4360}#
+ ($sc-dispatch #{tmp\ 4359}# (quote (any any)))))
+ (if #{tmp\ 4360}#
(@apply
- (lambda (#{k\ 6575}# #{filename\ 6576}#)
+ (lambda (#{k\ 4363}# #{filename\ 4364}#)
(begin
- (let ((#{fn\ 6578}# (syntax->datum #{filename\ 6576}#)))
- (let ((#{tmp\ 6580}#
- (#{read-file\ 6558}#
- #{fn\ 6578}#
- #{filename\ 6576}#)))
- (let ((#{tmp\ 6581}#
+ (let ((#{fn\ 4366}# (syntax->datum #{filename\ 4364}#)))
+ (let ((#{tmp\ 4368}#
+ (#{read-file\ 4346}#
+ #{fn\ 4366}#
+ #{filename\ 4364}#)))
+ (let ((#{tmp\ 4369}#
($sc-dispatch
- #{tmp\ 6580}#
+ #{tmp\ 4368}#
'each-any)))
- (if #{tmp\ 6581}#
+ (if #{tmp\ 4369}#
(@apply
- (lambda (#{exp\ 6583}#)
+ (lambda (#{exp\ 4371}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i6582"))
+ #("i4370"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i6577"))
+ #("i4365"))
#(ribcage
#(k filename)
#((top) (top))
- #("i6573" "i6574"))
+ #("i4361" "i4362"))
#(ribcage
(read-file)
((top))
- ("i6557"))
+ ("i4345"))
#(ribcage
#(x)
#((top))
- #("i6556")))
+ #("i4344")))
(hygiene guile))
- #{exp\ 6583}#))
- #{tmp\ 6581}#)
+ #{exp\ 4371}#))
+ #{tmp\ 4369}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6580}#)))))))
- #{tmp\ 6572}#)
+ #{tmp\ 4368}#)))))))
+ #{tmp\ 4360}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6571}#)))))))))
+ #{tmp\ 4359}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 6585}#)
- (let ((#{tmp\ 6587}# #{x\ 6585}#))
- (let ((#{tmp\ 6588}#
- ($sc-dispatch #{tmp\ 6587}# (quote (any any)))))
- (if #{tmp\ 6588}#
+ (lambda (#{x\ 4373}#)
+ (let ((#{tmp\ 4375}# #{x\ 4373}#))
+ (let ((#{tmp\ 4376}#
+ ($sc-dispatch #{tmp\ 4375}# (quote (any any)))))
+ (if #{tmp\ 4376}#
(@apply
- (lambda (#{k\ 6591}# #{filename\ 6592}#)
+ (lambda (#{k\ 4379}# #{filename\ 4380}#)
(begin
- (let ((#{fn\ 6594}# (syntax->datum #{filename\ 6592}#)))
- (let ((#{tmp\ 6596}#
+ (let ((#{fn\ 4382}# (syntax->datum #{filename\ 4380}#)))
+ (let ((#{tmp\ 4384}#
(datum->syntax
- #{filename\ 6592}#
+ #{filename\ 4380}#
(begin
- (let ((#{t\ 6601}#
- (%search-load-path #{fn\ 6594}#)))
- (if #{t\ 6601}#
- #{t\ 6601}#
+ (let ((#{t\ 4389}#
+ (%search-load-path #{fn\ 4382}#)))
+ (if #{t\ 4389}#
+ #{t\ 4389}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 6585}#
- #{filename\ 6592}#)))))))
- (let ((#{fn\ 6598}# #{tmp\ 6596}#))
+ #{x\ 4373}#
+ #{filename\ 4380}#)))))))
+ (let ((#{fn\ 4386}# #{tmp\ 4384}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i6597"))
+ #(ribcage #(fn) #((top)) #("i4385"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i6593"))
+ #(ribcage #(fn) #((top)) #("i4381"))
#(ribcage
#(k filename)
#((top) (top))
- #("i6589" "i6590"))
+ #("i4377" "i4378"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6586")))
+ #(ribcage #(x) #((top)) #("i4374")))
(hygiene guile))
- #{fn\ 6598}#))))))
- #{tmp\ 6588}#)
+ #{fn\ 4386}#))))))
+ #{tmp\ 4376}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6587}#)))))))
+ #{tmp\ 4375}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 6603}#)
- (let ((#{tmp\ 6605}# #{x\ 6603}#))
- (let ((#{tmp\ 6606}#
- ($sc-dispatch #{tmp\ 6605}# (quote (any any)))))
- (if #{tmp\ 6606}#
+ (lambda (#{x\ 4391}#)
+ (let ((#{tmp\ 4393}# #{x\ 4391}#))
+ (let ((#{tmp\ 4394}#
+ ($sc-dispatch #{tmp\ 4393}# (quote (_ any)))))
+ (if #{tmp\ 4394}#
(@apply
- (lambda (#{_\ 6609}# #{e\ 6610}#)
+ (lambda (#{e\ 4396}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 6603}#))
- #{tmp\ 6606}#)
+ #{x\ 4391}#))
+ #{tmp\ 4394}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6605}#)))))))
+ #{tmp\ 4393}#)))))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 6611}#)
- (let ((#{tmp\ 6613}# #{x\ 6611}#))
- (let ((#{tmp\ 6614}#
- ($sc-dispatch #{tmp\ 6613}# (quote (any any)))))
- (if #{tmp\ 6614}#
+ (lambda (#{x\ 4397}#)
+ (let ((#{tmp\ 4399}# #{x\ 4397}#))
+ (let ((#{tmp\ 4400}#
+ ($sc-dispatch #{tmp\ 4399}# (quote (_ any)))))
+ (if #{tmp\ 4400}#
(@apply
- (lambda (#{_\ 6617}# #{e\ 6618}#)
+ (lambda (#{e\ 4402}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 6611}#))
- #{tmp\ 6614}#)
+ #{x\ 4397}#))
+ #{tmp\ 4400}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6613}#)))))))
+ #{tmp\ 4399}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 6619}#)
- (let ((#{tmp\ 6621}# #{x\ 6619}#))
- (let ((#{tmp\ 6622}#
+ (lambda (#{x\ 4403}#)
+ (let ((#{tmp\ 4405}# #{x\ 4403}#))
+ (let ((#{tmp\ 4406}#
($sc-dispatch
- #{tmp\ 6621}#
- '(any any any . each-any))))
- (if #{tmp\ 6622}#
+ #{tmp\ 4405}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 4406}#
(@apply
- (lambda (#{_\ 6627}#
- #{e\ 6628}#
- #{m1\ 6629}#
- #{m2\ 6630}#)
- (let ((#{tmp\ 6632}#
+ (lambda (#{e\ 4410}# #{m1\ 4411}# #{m2\ 4412}#)
+ (let ((#{tmp\ 4414}#
(letrec*
- ((#{f\ 6638}#
- (lambda (#{clause\ 6639}# #{clauses\ 6640}#)
- (if (null? #{clauses\ 6640}#)
- (let ((#{tmp\ 6642}# #{clause\ 6639}#))
- (let ((#{tmp\ 6643}#
+ ((#{f\ 4420}#
+ (lambda (#{clause\ 4421}# #{clauses\ 4422}#)
+ (if (null? #{clauses\ 4422}#)
+ (let ((#{tmp\ 4424}# #{clause\ 4421}#))
+ (let ((#{tmp\ 4425}#
($sc-dispatch
- #{tmp\ 6642}#
+ #{tmp\ 4424}#
'(#(free-id
#(syntax-object
else
@@ -15326,104 +16521,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 6643}#
+ (if #{tmp\ 4425}#
(@apply
- (lambda (#{e1\ 6646}# #{e2\ 6647}#)
+ (lambda (#{e1\ 4428}# #{e2\ 4429}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6644" "i6645"))
+ #("i4426" "i4427"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
- (cons #{e1\ 6646}#
- #{e2\ 6647}#)))
- #{tmp\ 6643}#)
- (let ((#{tmp\ 6649}#
+ (cons #{e1\ 4428}#
+ #{e2\ 4429}#)))
+ #{tmp\ 4425}#)
+ (let ((#{tmp\ 4431}#
($sc-dispatch
- #{tmp\ 6642}#
+ #{tmp\ 4424}#
'(each-any any . each-any))))
- (if #{tmp\ 6649}#
+ (if #{tmp\ 4431}#
(@apply
- (lambda (#{k\ 6653}#
- #{e1\ 6654}#
- #{e2\ 6655}#)
+ (lambda (#{k\ 4435}#
+ #{e1\ 4436}#
+ #{e2\ 4437}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4432"
+ "i4433"
+ "i4434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15433,9 +16616,9 @@
#((top)
(top)
(top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4432"
+ "i4433"
+ "i4434"))
#(ribcage
()
()
@@ -15447,19 +16630,17 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage
()
()
@@ -15467,7 +16648,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
'#(syntax-object
t
@@ -15477,9 +16658,9 @@
#((top)
(top)
(top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4432"
+ "i4433"
+ "i4434"))
#(ribcage
()
()
@@ -15491,19 +16672,17 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage
()
()
@@ -15511,7 +16690,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15523,9 +16702,9 @@
#((top)
(top)
(top))
-
#("i6650"
-
"i6651"
-
"i6652"))
+
#("i4432"
+
"i4433"
+
"i4434"))
#(ribcage
()
()
@@ -15537,22 +16716,19 @@
#((top)
(top)
(top))
-
#("i6635"
-
"i6636"
-
"i6637"))
+
#("i4417"
+
"i4418"
+
"i4419"))
#(ribcage
- #(_
- e
+ #(e
m1
m2)
#((top)
(top)
- (top)
(top))
-
#("i6623"
-
"i6624"
-
"i6625"
-
"i6626"))
+
#("i4407"
+
"i4408"
+
"i4409"))
#(ribcage
()
()
@@ -15560,10 +16736,10 @@
#(ribcage
#(x)
#((top))
-
#("i6620")))
+
#("i4404")))
(hygiene
guile))
- #{k\ 6653}#))
+ #{k\ 4435}#))
(cons '#(syntax-object
begin
((top)
@@ -15572,9 +16748,9 @@
#((top)
(top)
(top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4432"
+ "i4433"
+ "i4434"))
#(ribcage
()
()
@@ -15586,19 +16762,17 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage
()
()
@@ -15606,67 +16780,63 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
- (cons #{e1\ 6654}#
- #{e2\
6655}#))))
- #{tmp\ 6649}#)
- (let ((#{_\ 6659}# #{tmp\ 6642}#))
+ (cons #{e1\ 4436}#
+ #{e2\
4437}#))))
+ #{tmp\ 4431}#)
+ (let ((#{_\ 4441}# #{tmp\ 4424}#))
(syntax-violation
'case
"bad clause"
- #{x\ 6619}#
- #{clause\ 6639}#)))))))
- (let ((#{tmp\ 6661}#
- (#{f\ 6638}#
- (car #{clauses\ 6640}#)
- (cdr #{clauses\ 6640}#))))
- (let ((#{rest\ 6663}# #{tmp\ 6661}#))
- (let ((#{tmp\ 6664}# #{clause\ 6639}#))
- (let ((#{tmp\ 6665}#
+ #{x\ 4403}#
+ #{clause\ 4421}#)))))))
+ (let ((#{tmp\ 4443}#
+ (#{f\ 4420}#
+ (car #{clauses\ 4422}#)
+ (cdr #{clauses\ 4422}#))))
+ (let ((#{rest\ 4445}# #{tmp\ 4443}#))
+ (let ((#{tmp\ 4446}# #{clause\ 4421}#))
+ (let ((#{tmp\ 4447}#
($sc-dispatch
- #{tmp\ 6664}#
+ #{tmp\ 4446}#
'(each-any any . each-any))))
- (if #{tmp\ 6665}#
+ (if #{tmp\ 4447}#
(@apply
- (lambda (#{k\ 6669}#
- #{e1\ 6670}#
- #{e2\ 6671}#)
+ (lambda (#{k\ 4451}#
+ #{e1\ 4452}#
+ #{e2\ 4453}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4448"
+ "i4449"
+ "i4450"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4444"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
- #((top)
- (top)
- (top)
- (top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15676,13 +16846,13 @@
#((top)
(top)
(top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4448"
+ "i4449"
+ "i4450"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4444"))
#(ribcage
()
()
@@ -15694,19 +16864,17 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage
()
()
@@ -15714,7 +16882,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
'#(syntax-object
t
@@ -15724,13 +16892,13 @@
#((top)
(top)
(top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4448"
+ "i4449"
+ "i4450"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4444"))
#(ribcage
()
()
@@ -15742,19 +16910,17 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage
()
()
@@ -15762,7 +16928,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15774,13 +16940,13 @@
#((top)
(top)
(top))
-
#("i6666"
-
"i6667"
-
"i6668"))
+
#("i4448"
+
"i4449"
+
"i4450"))
#(ribcage
#(rest)
#((top))
-
#("i6662"))
+
#("i4444"))
#(ribcage
()
()
@@ -15792,22 +16958,19 @@
#((top)
(top)
(top))
-
#("i6635"
-
"i6636"
-
"i6637"))
+
#("i4417"
+
"i4418"
+
"i4419"))
#(ribcage
- #(_
- e
+ #(e
m1
m2)
#((top)
(top)
- (top)
(top))
-
#("i6623"
-
"i6624"
-
"i6625"
-
"i6626"))
+
#("i4407"
+
"i4408"
+
"i4409"))
#(ribcage
()
()
@@ -15815,10 +16978,10 @@
#(ribcage
#(x)
#((top))
-
#("i6620")))
+
#("i4404")))
(hygiene
guile))
- #{k\ 6669}#))
+ #{k\ 4451}#))
(cons '#(syntax-object
begin
((top)
@@ -15827,13 +16990,13 @@
#((top)
(top)
(top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4448"
+ "i4449"
+ "i4450"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4444"))
#(ribcage
()
()
@@ -15845,19 +17008,17 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4417"
+ "i4418"
+ "i4419"))
#(ribcage
- #(_ e m1 m2)
+ #(e m1 m2)
#((top)
(top)
- (top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4407"
+ "i4408"
+ "i4409"))
#(ribcage
()
()
@@ -15865,30 +17026,30 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4404")))
(hygiene guile))
- (cons #{e1\ 6670}#
- #{e2\ 6671}#))
- #{rest\ 6663}#))
- #{tmp\ 6665}#)
- (let ((#{_\ 6675}# #{tmp\ 6664}#))
+ (cons #{e1\ 4452}#
+ #{e2\ 4453}#))
+ #{rest\ 4445}#))
+ #{tmp\ 4447}#)
+ (let ((#{_\ 4457}# #{tmp\ 4446}#))
(syntax-violation
'case
"bad clause"
- #{x\ 6619}#
- #{clause\ 6639}#)))))))))))
- (begin (#{f\ 6638}# #{m1\ 6629}# #{m2\ 6630}#)))))
- (let ((#{body\ 6634}# #{tmp\ 6632}#))
+ #{x\ 4403}#
+ #{clause\ 4421}#)))))))))))
+ (begin (#{f\ 4420}# #{m1\ 4411}# #{m2\ 4412}#)))))
+ (let ((#{body\ 4416}# #{tmp\ 4414}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i6633"))
+ #(ribcage #(body) #((top)) #("i4415"))
#(ribcage
- #(_ e m1 m2)
- #((top) (top) (top) (top))
- #("i6623" "i6624" "i6625" "i6626"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4407" "i4408" "i4409"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6620")))
+ #(ribcage #(x) #((top)) #("i4404")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -15896,470 +17057,384 @@
#(ribcage
#(body)
#((top))
- #("i6633"))
+ #("i4415"))
#(ribcage
- #(_ e m1 m2)
- #((top) (top) (top) (top))
- #("i6623" "i6624" "i6625" "i6626"))
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i4407" "i4408" "i4409"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6620")))
+ #(ribcage #(x) #((top)) #("i4404")))
(hygiene guile))
- #{e\ 6628}#))
- #{body\ 6634}#))))
- #{tmp\ 6622}#)
+ #{e\ 4410}#))
+ #{body\ 4416}#))))
+ #{tmp\ 4406}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6621}#)))))))
+ #{tmp\ 4405}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 6676}#)
- (if (procedure? #{proc\ 6676}#)
+ (lambda (#{proc\ 4458}#)
+ (if (procedure? #{proc\ 4458}#)
(begin
(letrec*
- ((#{trans\ 6679}#
- (lambda (#{x\ 6680}#)
- (#{proc\ 6676}# #{x\ 6680}#))))
+ ((#{trans\ 4461}#
+ (lambda (#{x\ 4462}#)
+ (#{proc\ 4458}# #{x\ 4462}#))))
(begin
(set-procedure-property!
- #{trans\ 6679}#
+ #{trans\ 4461}#
'variable-transformer
#t)
- #{trans\ 6679}#)))
+ #{trans\ 4461}#)))
(error "variable transformer not a procedure"
- #{proc\ 6676}#))))
+ #{proc\ 4458}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 6682}#)
- (let ((#{tmp\ 6684}# #{x\ 6682}#))
- (let ((#{tmp\ 6685}#
- ($sc-dispatch #{tmp\ 6684}# (quote (any any)))))
- (if #{tmp\ 6685}#
+ (lambda (#{x\ 4464}#)
+ (let ((#{tmp\ 4466}# #{x\ 4464}#))
+ (let ((#{tmp\ 4467}#
+ ($sc-dispatch #{tmp\ 4466}# (quote (_ any)))))
+ (if #{tmp\ 4467}#
(@apply
- (lambda (#{_\ 6688}# #{e\ 6689}#)
+ (lambda (#{e\ 4469}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
- #{e\ 6689}#))
- (list (cons #{_\ 6688}#
- '(#(syntax-object
- x
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i6683")))
- (hygiene guile))
- #(syntax-object
- ...
- ((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i6683")))
- (hygiene guile))))
+ #{e\ 4469}#))
+ (list '(#(syntax-object
+ _
+ ((top)
+ #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4465")))
+ (hygiene guile))
+ #(syntax-object
+ x
+ ((top)
+ #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4465")))
+ (hygiene guile))
+ #(syntax-object
+ ...
+ ((top)
+ #(ribcage #(e) #((top)) #("i4468"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4465")))
+ (hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(ribcage #(e) #((top)) #("i4468"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
- (cons #{e\ 6689}#
+ (cons #{e\ 4469}#
'(#(syntax-object
x
((top)
#(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(e)
+ #((top))
+ #("i4468"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
#(syntax-object
...
((top)
#(ribcage
- #(_ e)
- #((top) (top))
- #("i6686" "i6687"))
+ #(e)
+ #((top))
+ #("i4468"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile)))))))))
- #{tmp\ 6685}#)
- (let ((#{tmp\ 6690}#
+ #{tmp\ 4467}#)
+ (let ((#{tmp\ 4470}#
($sc-dispatch
- #{tmp\ 6684}#
- '(any (any any)
- ((#(free-id
- #(syntax-object
- set!
- ((top)
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
- (hygiene guile)))
- any
- any)
- any)))))
- (if (if #{tmp\ 6690}#
+ #{tmp\ 4466}#
+ '(_ (any any)
+ ((#(free-id
+ #(syntax-object
+ set!
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i4465")))
+ (hygiene guile)))
+ any
+ any)
+ any)))))
+ (if (if #{tmp\ 4470}#
(@apply
- (lambda (#{_\ 6697}#
- #{id\ 6698}#
- #{exp1\ 6699}#
- #{var\ 6700}#
- #{val\ 6701}#
- #{exp2\ 6702}#)
- (if (identifier? #{id\ 6698}#)
- (identifier? #{var\ 6700}#)
+ (lambda (#{id\ 4476}#
+ #{exp1\ 4477}#
+ #{var\ 4478}#
+ #{val\ 4479}#
+ #{exp2\ 4480}#)
+ (if (identifier? #{id\ 4476}#)
+ (identifier? #{var\ 4478}#)
#f))
- #{tmp\ 6690}#)
+ #{tmp\ 4470}#)
#f)
(@apply
- (lambda (#{_\ 6711}#
- #{id\ 6712}#
- #{exp1\ 6713}#
- #{var\ 6714}#
- #{val\ 6715}#
- #{exp2\ 6716}#)
+ (lambda (#{id\ 4488}#
+ #{exp1\ 4489}#
+ #{var\ 4490}#
+ #{val\ 4491}#
+ #{exp2\ 4492}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483" "i4484" "i4485" "i4486" "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
(list '#(syntax-object
lambda
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
'(#(syntax-object
x
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
.
#(syntax-object
variable-transformer
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
'#(syntax-object
x
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile))
'(#(syntax-object
set!
((top)
#(ribcage
- #(_ id exp1 var val exp2)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #(id exp1 var val exp2)
+ #((top) (top) (top) (top) (top))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4465")))
(hygiene guile)))
(list (list '#(syntax-object
set!
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
- #{var\ 6714}#
- #{val\ 6715}#)
+ #{var\ 4490}#
+ #{val\ 4491}#)
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
- #{exp2\ 6716}#))
- (list (cons #{id\ 6712}#
+ #{exp2\ 4492}#))
+ (list (cons #{id\ 4488}#
'(#(syntax-object
x
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16368,26 +17443,23 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
#(syntax-object
...
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16396,55 +17468,45 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
- (cons #{exp1\ 6713}#
+ (cons #{exp1\ 4489}#
'(#(syntax-object
x
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16453,14 +17515,12 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage
()
()
@@ -16468,14 +17528,13 @@
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
#(syntax-object
...
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16484,14 +17543,12 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage
()
()
@@ -16499,44 +17556,36 @@
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene
guile))))))
- (list #{id\ 6712}#
+ (list #{id\ 4488}#
(list '#(syntax-object
identifier?
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
+ #(id
exp1
var
val
@@ -16545,134 +17594,122 @@
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
- #{id\ 6712}#))
+ #{id\ 4488}#))
(list '#(syntax-object
syntax
((top)
#(ribcage
- #(_
- id
- exp1
- var
- val
- exp2)
+ #(id exp1 var val exp2)
#((top)
(top)
(top)
(top)
- (top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4483"
+ "i4484"
+ "i4485"
+ "i4486"
+ "i4487"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4465")))
(hygiene guile))
- #{exp1\ 6713}#))))))
- #{tmp\ 6690}#)
+ #{exp1\ 4489}#))))))
+ #{tmp\ 4470}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6684}#)))))))))
+ #{tmp\ 4466}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 6717}#)
- (let ((#{tmp\ 6719}# #{x\ 6717}#))
- (let ((#{tmp\ 6720}#
+ (lambda (#{x\ 4493}#)
+ (let ((#{tmp\ 4495}# #{x\ 4493}#))
+ (let ((#{tmp\ 4496}#
($sc-dispatch
- #{tmp\ 6719}#
- '(any (any . any) any . each-any))))
- (if #{tmp\ 6720}#
+ #{tmp\ 4495}#
+ '(_ (any . any) any . each-any))))
+ (if #{tmp\ 4496}#
(@apply
- (lambda (#{_\ 6726}#
- #{id\ 6727}#
- #{args\ 6728}#
- #{b0\ 6729}#
- #{b1\ 6730}#)
+ (lambda (#{id\ 4501}#
+ #{args\ 4502}#
+ #{b0\ 4503}#
+ #{b1\ 4504}#)
(list '#(syntax-object
define
((top)
#(ribcage
- #(_ id args b0 b1)
- #((top) (top) (top) (top) (top))
- #("i6721" "i6722" "i6723" "i6724" "i6725"))
+ #(id args b0 b1)
+ #((top) (top) (top) (top))
+ #("i4497" "i4498" "i4499" "i4500"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile))
- #{id\ 6727}#
+ #{id\ 4501}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
- #(_ id args b0 b1)
- #((top) (top) (top) (top) (top))
- #("i6721" "i6722" "i6723" "i6724" "i6725"))
+ #(id args b0 b1)
+ #((top) (top) (top) (top))
+ #("i4497" "i4498" "i4499" "i4500"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile))
- (cons #{args\ 6728}#
- (cons #{b0\ 6729}# #{b1\ 6730}#)))))
- #{tmp\ 6720}#)
- (let ((#{tmp\ 6732}#
- ($sc-dispatch
- #{tmp\ 6719}#
- '(any any any))))
- (if (if #{tmp\ 6732}#
+ (cons #{args\ 4502}#
+ (cons #{b0\ 4503}# #{b1\ 4504}#)))))
+ #{tmp\ 4496}#)
+ (let ((#{tmp\ 4506}#
+ ($sc-dispatch #{tmp\ 4495}# (quote (_ any any)))))
+ (if (if #{tmp\ 4506}#
(@apply
- (lambda (#{_\ 6736}# #{id\ 6737}# #{val\ 6738}#)
+ (lambda (#{id\ 4509}# #{val\ 4510}#)
(identifier?
'#(syntax-object
x
((top)
#(ribcage
- #(_ id val)
- #((top) (top) (top))
- #("i6733" "i6734" "i6735"))
+ #(id val)
+ #((top) (top))
+ #("i4507" "i4508"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile))))
- #{tmp\ 6732}#)
+ #{tmp\ 4506}#)
#f)
(@apply
- (lambda (#{_\ 6742}# #{id\ 6743}# #{val\ 6744}#)
+ (lambda (#{id\ 4513}# #{val\ 4514}#)
(list '#(syntax-object
define
((top)
#(ribcage
- #(_ id val)
- #((top) (top) (top))
- #("i6739" "i6740" "i6741"))
+ #(id val)
+ #((top) (top))
+ #("i4511" "i4512"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4494")))
(hygiene guile))
- #{id\ 6743}#
- #{val\ 6744}#))
- #{tmp\ 6732}#)
+ #{id\ 4513}#
+ #{val\ 4514}#))
+ #{tmp\ 4506}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6719}#)))))))))
+ #{tmp\ 4495}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 21aa2ac..b48287d 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2272,9 +2272,13 @@
(define cvt
(lambda (p n ids)
(if (id? p)
- (if (bound-id-member? p keys)
- (values (vector 'free-id p) ids)
- (values 'any (cons (cons p n) ids)))
+ (cond
+ ((bound-id-member? p keys)
+ (values (vector 'free-id p) ids))
+ ((free-id=? p #'_)
+ (values '_ ids))
+ (else
+ (values 'any (cons (cons p n) ids))))
(syntax-case p ()
((x dots)
(ellipsis? (syntax dots))
@@ -2375,20 +2379,22 @@
(if (and (id? #'pat)
(and-map (lambda (x) (not (free-id=?
#'pat x)))
(cons #'(... ...) keys)))
- (let ((labels (list (gen-label)))
- (var (gen-var #'pat)))
- (build-application no-source
- (build-simple-lambda
- no-source (list
(syntax->datum #'pat)) #f (list var)
- '()
- (chi #'exp
- (extend-env labels
- (list
(make-binding 'syntax `(,var . 0)))
- r)
-
(make-binding-wrap #'(pat)
-
labels empty-wrap)
- mod))
- (list x)))
+ (if (free-id=? #'pad #'_)
+ (chi #'exp r empty-wrap mod)
+ (let ((labels (list (gen-label)))
+ (var (gen-var #'pat)))
+ (build-application no-source
+ (build-simple-lambda
+ no-source (list
(syntax->datum #'pat)) #f (list var)
+ '()
+ (chi #'exp
+ (extend-env
labels
+
(list (make-binding 'syntax `(,var . 0)))
+ r)
+
(make-binding-wrap #'(pat)
+
labels empty-wrap)
+ mod))
+ (list x))))
(gen-clause x keys (cdr clauses) r
#'pat #t #'exp mod)))
((pat fender exp)
@@ -2561,6 +2567,7 @@
(lambda (p r)
(cond
((null? p) r)
+ ((eq? p '_) r)
((eq? p 'any) (cons '() r))
((pair? p) (match-empty (car p) (match-empty (cdr p) r)))
((eq? p 'each-any) (cons '() r))
@@ -2621,6 +2628,7 @@
(lambda (e p w r mod)
(cond
((not r) #f)
+ ((eq? p '_) r)
((eq? p 'any) (cons (wrap e w mod) r))
((syntax-object? e)
(match*
@@ -2635,6 +2643,7 @@
(lambda (e p)
(cond
((eq? p 'any) (list e))
+ ((eq? p '_) '())
((syntax-object? e)
(match* (syntax-object-expression e)
p (syntax-object-wrap e) '() (syntax-object-module e)))
diff --git a/module/language/lua/common.scm b/module/language/lua/common.scm
index 5fe8cc2..fcc0467 100644
--- a/module/language/lua/common.scm
+++ b/module/language/lua/common.scm
@@ -9,11 +9,12 @@
(throw
'lua-syntax
(apply format (string-append "~A: " string)
- (cons (format "address@hidden"
- (cdr (assq 'filename src))
- (cdr (assq 'line src))
- (cdr (or (assq 'column src) '(#f . #f))))
- arguments))))
+ (cons
+ (and src (format "address@hidden"
+ (cdr (assq 'filename src))
+ (cdr (assq 'line src))
+ (cdr (or (assq 'column src) '(#f . #f)))))
+ arguments))))
(define (runtime-error message)
(throw 'lua-runtime message))
diff --git a/module/language/lua/global-environment.scm
b/module/language/lua/global-environment.scm
index 69b0a9b..c3e2307 100644
--- a/module/language/lua/global-environment.scm
+++ b/module/language/lua/global-environment.scm
@@ -78,8 +78,8 @@
;; package.seeall
($ (lua) new-index! package "seeall"
- (lambda (module)
- (runtime-error "seeall not implemented")))
+ (lambda (module . _)
+ ($ (lua) runtime-error "seeall not implemented")))
(define (%standard-module-exists? name)
(if (module-public-interface (resolve-module `(language lua standard
,(string->symbol name))))
@@ -88,11 +88,13 @@
;; require
(define (%register-loaded-module name module)
- #f)
+ ($ (lua) new-index! %loaders name module))
(define (require module-name . _)
- (if (not ($ (srfi-69) hash-table-exists? %loaded module-name))
+ ;; try to load module, if it's not already loaded
+ (if (not ($ (srfi-69) hash-table-exists? ($ (lua) table/slots %loaded)
module-name))
+ ;; first check (language lua standard)
(if (%standard-module-exists? module-name)
- (runtime-error "cannot load standard modules atm")))
- ($ (srfi-69) index %loaded module-name))
-
\ No newline at end of file
+ ($ (lua) runtime-error "cannot load standard module atm")
+ ($ (lua) runtime-error "cannot load standard modules atm")))
+ ($ (lua) index %loaded module-name))
\ No newline at end of file
diff --git a/module/language/lua/lexer.scm b/module/language/lua/lexer.scm
index 867eaed..9b9f936 100644
--- a/module/language/lua/lexer.scm
+++ b/module/language/lua/lexer.scm
@@ -19,6 +19,7 @@
(define is-digit? (char-predicate "0123456789"))
(define is-name-first? (char-predicate
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_"))
(define (is-name? c) (or (is-name-first? c) (is-digit? c)))
+(define (is-newline? c) (and (char? c) (or (char=? c #\newline) (char=? c
#\cr))))
(define (possible-keyword k)
"Convert a symbol to a keyword if it is a reserved word in Lua"
@@ -28,11 +29,14 @@
(define (make-lexer port)
(define buffer (open-output-string))
+
+ (define (drop-buffer)
+ (truncate-file buffer 0))
(define (clear-buffer)
"Reset the buffer and return a string of the contents"
(define string (get-output-string buffer))
- (truncate-file buffer 0)
+ (drop-buffer)
string)
(define saved-source-info #f)
@@ -47,6 +51,57 @@ of an identifier"
saved-source-info
(source-info port)))
+ (define (eat-comment)
+ (let consume ((c (read-char)))
+ (cond ((eof-object? c) #f)
+ ((eq? c #\newline) #f)
+ (else (consume (read-char))))))
+
+ ;; read a long form string enclosed by brackets
+ (define (get-long-string-nesting-level)
+ (define delimiter (read-char))
+ (let* ((count
+ (let loop ((count 0))
+ (if (eq? (peek-char) #\=)
+ (begin
+ (read-char)
+ (loop (+ count 1)))
+ count))))
+ (if (eq? (peek-char) delimiter) count -1)))
+
+ ;; read a long string or comment
+ (define (read-long-string string? nest)
+ ;; skip second '['
+ (read-char)
+ ;; discard initial newlines
+ (while (is-newline? (peek-char))
+ (read-char))
+ (let loop ((c (peek-char)))
+ (cond ((eof-object? c)
+ (syntax-error (get-source-info) (string-append "unfinished long "
(if string? "string" "comment"))))
+ ((char=? c #\])
+ (let* ((nest2 (get-long-string-nesting-level)))
+ (if (= nest nest2)
+ (begin
+ (read-char) ;; drop ]
+ (if string?
+ (clear-buffer)
+ (drop-buffer)))
+ ;; compensate for eating up the nesting levels
+ (begin
+ (write-char (read-char))
+ (let lp ((n nest2))
+ (if (= n 0)
+ #f
+ (begin
+ (write-char #\=)
+ (lp (- n 1)))))
+ (write-char #\])
+ (loop (peek-char))))))
+ (else (write-char (read-char))
+ (loop (peek-char))))))
+
+ ;; read a single or double quoted string, with escapes
(define (read-string delimiter)
(read-char) ;; consume delimiter
(let loop ((c (peek-char)))
@@ -78,7 +133,32 @@ of an identifier"
(write-char (read-char))
(loop (peek-char)))))))
(clear-buffer))
-
+
+ (define (read-number string)
+ (save-source-info)
+ (let* ((main (string-append (or string "") (begin
+ (while (or (is-digit?
(peek-char)) (eq? (peek-char) #\.))
+ (write-char
(read-char)))
+ (clear-buffer))))
+ (exponent
+ (if (or (eq? (peek-char) #\e) (eq? (peek-char) #\E))
+ (begin
+ (read-char)
+ (if (eq? (peek-char) #\+)
+ (read-char)
+ (if (eq? (peek-char) #\-)
+ (write-char (read-char))))
+ (if (not (is-digit? (peek-char)))
+ (syntax-error (get-source-info) "expecting number after
exponent sign"))
+ (while (is-digit? (peek-char))
+ (write-char (read-char)))
+ (clear-buffer))
+ #f))
+ (final (string->number main)))
+ (if exponent
+ (* final (expt 10 (string->number exponent)))
+ final)))
+
(define (lex)
(parameterize ((current-input-port port)
(current-output-port buffer))
@@ -93,10 +173,20 @@ of an identifier"
(read-char)
(if (eq? (peek-char) #\-)
;; it is a comment
- (let consume ((c (read-char)))
- (cond ((eof-object? c) (loop))
- ((eq? c #\newline) (loop))
- (else (consume (read-char)))))
+ (begin
+ (read-char)
+ ;; long comment
+ (if (eq? (peek-char) #\[)
+ (let* ((nest (get-long-string-nesting-level)))
+ (drop-buffer)
+ (if (> nest -1)
+ (begin
+ (read-long-string #f nest)
+ (drop-buffer)
+ (loop))
+ ;; not actually a long comment, drop it
+ (begin (drop-buffer) (eat-comment) (loop))))
+ (begin (eat-comment) (loop))))
;; it is a -
#\-))
@@ -112,22 +202,41 @@ of an identifier"
(if (eq? (peek-char) #\=)
(begin (read-char) #:==)
#:=))
- ;; TODO: ...
- ;; floating point number or table indice
- ((#\.) (read-char))
+ ;; . can mean one of: floating point number (.12345), table field
access (plain .),
+ ;; concatenation operator (..) or the variable argument indicator
(...)
+ ((#\.)
+ (read-char)
+ (if (is-digit? (peek-char))
+ (read-number ".")
+ (if (eq? (peek-char) #\.)
+ (begin
+ (read-char)
+ (if (eq? (peek-char) #\.)
+ (begin (read-char) #:dots)
+ #:concat))
+ #\.)))
+
+ ;; strings
+ ;; double-quoted
+ ((#\") (read-string #\"))
+ ;; single-quoted
+ ((#\') (read-string #\'))
+ ;; long-form with nestable brackets
+ ((#\[)
+ (save-source-info)
+ (let* ((nest (get-long-string-nesting-level)))
+ (if (eq? nest -1)
+ #\[
+ (read-long-string #t nest))))
;; characters that are allowed directly through
((#\; #\( #\) #\,
#\+ #\/ #\*
- #\< #\^ #\{ #\} #\[ #\] #\: #\#) (read-char))
+ #\< #\^ #\{ #\} #\] #\: #\#) (read-char))
;; numbers
((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
- (write-char (read-char))
(save-source-info)
- (while (is-digit? (peek-char))
- (write-char (read-char)))
- (string->number (clear-buffer)))
- ((#\") (read-string #\"))
- ((#\') (read-string #\'))
+ (write-char (read-char))
+ (read-number #f))
;; strings
(else
diff --git a/module/language/lua/runtime.scm b/module/language/lua/runtime.scm
index 948f794..0119dc2 100644
--- a/module/language/lua/runtime.scm
+++ b/module/language/lua/runtime.scm
@@ -4,10 +4,10 @@
#:use-module (language lua common)
#:use-module (srfi srfi-9)
- #:use-module (srfi srfi-69)
-
- #:export-syntax (table/slots table? table/metatable table/metatable!)
+ #:use-module ((srfi srfi-69) #:renamer (lambda (s) (if (eq? s
'make-hash-table) 'srfi-69-make-hash-table s)))
+ #:re-export (runtime-error)
+
#:export (
;; semantics
false? true?
@@ -33,7 +33,12 @@
;; operators
len unm eq lt le gt ge add sub mul div pow
neq
- ))
+ )
+
+
+ #:export-syntax (table/slots table? table/metatable table/metatable!)
+
+) ; define-module
;;;;; SEMANTICS
@@ -70,9 +75,9 @@
(slots table/slots))
(define (make-table)
- (%make-table #nil (make-hash-table)))
+ (%make-table #nil (srfi-69-make-hash-table)))
-;; table accessors for export
+;; re-define table bits for export to global-environment -- some weird phasing
issue i don't understand
(define (table? x) (table? x))
(define (table/metatable x) (table/metatable x))
(define (table/metatable! x y) (table/metatable! x y))
diff --git a/test-suite/tests/lua-eval.test b/test-suite/tests/lua-eval.test
new file mode 100644
index 0000000..caf9386
--- /dev/null
+++ b/test-suite/tests/lua-eval.test
@@ -0,0 +1,170 @@
+;; lua-eval.test --- lua language test suite -*- mode: scheme -*-
+(define-module (test-lua)
+ #:use-module (ice-9 format)
+ #:use-module (language tree-il)
+ #:use-module (srfi srfi-1)
+ #:use-module (srfi srfi-8)
+ #:use-module (system base compile)
+ #:use-module (test-suite lib)
+
+ #:use-module (language lua lexer)
+ #:use-module (language lua parser))
+
+(with-test-prefix "lua-eval"
+ (define (from-string string)
+ (compile ((make-parser (open-input-string string)))
+ #:from 'lua
+ #:to 'value))
+ (letrec-syntax
+ ((test
+ (syntax-rules ()
+ ((_ string expect)
+ (pass-if (format "~S => ~S" string expect) (equal? (from-string
string) expect)))
+ ((_ string)
+ (test string #t)))))
+
+ (test "return true")
+ (test "return false" #f)
+ (test "return nil" #nil)
+ (test "return 12345" 12345)
+ #;(test "return 12345.6789" 12345.6789)
+ (test "return \"string\"" "string")
+ (test "return (true)")
+ (test "return (false == false)")
+
+ ;; exercise the operator precedence parser
+ (test "return 2" 2)
+ (test "return 2 + 2" 4)
+ (test "return 1 + 2 * 3" 7)
+ (test "return 1 * 2 + 3" 5)
+ (test "return 1 + 2 ^ 3 * 4 - 5" 28)
+ (test "return 1 ^ 2 - 3 * 4 + 5" -6)
+ (test "return;" *unspecified*)
+ (test "return 1 + -6" -5)
+
+ ;; logical operators
+ (test "return false or true")
+ (test "return true or false")
+ (test "return false or false or true")
+ (test "return false or nil and true" #nil)
+ (test "return true and true")
+ (test "return true and nil" #nil)
+ (test "return true and false and nil" #f)
+
+ ;; conditionals
+ (test "if true then return true end")
+ (test "if false then return false else return true end")
+ (test "if true then return true else return false end")
+ (test "if false then return false elseif true then return true elseif
false then return false else return false end")
+ (test "if false then return false elseif false then return false elseif
true then return true else return false end")
+ (test "if false then return false elseif false then return false elseif
false then return false else return true end")
+
+ ;; function expressions
+ (test "(function(x) return x end)(true)")
+
+ ;; function statements
+ (test "function identity(x) return x end return identity(21)" 21)
+ (test "function fib(n) if n < 2 then return n else return fib(n-1) +
fib(n-2) end end return fib(20)" 6765)
+ (test "-- fibonacci numbers\nfunction fib(n)\n if n < 2 then\n return
n\n else\n return fib(n-1) + fib(n-2)\n end\nend\nreturn fib(20)" 6765)
+
+ ;; do
+ (test "do return true end")
+ (test "do if false then return false elseif false then return false elseif
false then return false else return true end end")
+
+ ;; undefined variables are implicitly defined to nil
+ (test "return undefined == nil")
+ (test "return undefined ~= nil" #f)
+
+ ;; assignments
+ (test "variable = true; return variable")
+ (test "a,b = 1,2; return a" 1)
+ (test "a,b=1,2;return b" 2)
+ (test "a,b,c=false,true,false; return b")
+ (test "a,b=1;return b" #nil)
+
+ ;; parenthetical expressions
+ (test "return (true);")
+ (test "return (2 + (2))" 4)
+
+ ;; while
+ (test "while true do return true end")
+ (test "i=0; while i<5 do i=i+1 end return i" 5)
+
+ ;; tables
+ (test "a={}; return a[0]" #nil)
+ (test "a={true}; return a[1]" #t)
+ (test "a = { false , true } ; return a[2];" #t)
+ (test "a = { false ; true ; } ; return a[2];" #t)
+ (test "a = { b = true }; return a.b" #t)
+ (test "a = { a = false , false ; b = true , true ; }; return a.b" #t)
+ (test "a = { a = false , false ; b = true , true ; }; return a[2]" #t)
+
+ ;; locals
+ (test "local a; a = true; return a")
+ (test "local a = true; return a")
+ (test "local a,b=false,true; return b")
+ (test "local a,b,c=false,true,false; return b")
+ (test "local a,b,c=false,false,true; return c")
+
+ ;; local function statements
+ (test "local function identity(x) return x end; return identity(true)")
+
+ ;; built-in functions
+ (test "assert(true)")
+ (test "print(T)" #nil)
+ (test "print(false or true)" #nil)
+ (test "table = {}; rawset(table, 0, true); return table[0]")
+ (test "table = {}; rawset(table, 0, true); return rawget(table, 0)")
+
+ ;; metatable events
+ (test "table = {}
+setmetatable(table, { __add = function(a,b) return b end })
+return table + 5" 5)
+ (test "table = {}
+setmetatable(table, { __add = function(a,b) return a end })
+return 5 + table" 5)
+ (test "return true")
+
+ ;; field functions
+ (test "table = {}
+function table.identity(x) return x end
+return table.identity(true)")
+
+ ;; repeat
+ (test "i=0; repeat i = i+1 until i == 5; return i" 5)
+ (test "i=5; repeat i = i-1 until i == 0; return i" 0)
+
+ ;; length operator
+ (test "return #\"asdf\"" 4)
+
+ ;; modules
+ #;(test "require(\"table\")")
+
+ ;; - lexer
+ ;; multi-line strings [[ string ]]
+
+ ;; - compiler
+ ;; applications with no parenthesis (it is considered an application if an
expression is followed by a freestanding string or table)
+ ;; concatenation
+ ;; method invocations
+ ;; for loops
+ ;; variable arguments
+ ;; multiple returns
+
+ ;; - runtime
+ ;; __pairs, __ipairs, __len
+
+ ;; - language
+ ;; require, _G
+ ;; os, table, io, math
+
+ ;; - after project
+ ;; bitlib, coroutine, debug, string
+))
+
+#;(begin
+ (define var
+ "return .34e5"
+ ) (display (compile ((make-parser (open-input-string var)))
+ #:from 'lua #:to 'tree-il))
+ (newline))
\ No newline at end of file
diff --git a/test-suite/tests/lua-lexer.test b/test-suite/tests/lua-lexer.test
new file mode 100644
index 0000000..a899d93
--- /dev/null
+++ b/test-suite/tests/lua-lexer.test
@@ -0,0 +1,53 @@
+;; lua-lexer.test --- lua lexer test suite -*- mode: scheme -*-
+(define-module (test-lua-lexer)
+ #:use-module (ice-9 format)
+ #:use-module (srfi srfi-8)
+ #:use-module (test-suite lib)
+
+ #:use-module (language lua lexer))
+
+(with-test-prefix "lua-lexer"
+ (define (from-string string)
+ (receive (_ lex)
+ (make-lexer (open-input-string string))
+ (lex)))
+ (let-syntax
+ ((test
+ (syntax-rules (eof)
+ ((_ string expect)
+ (pass-if (format "~S => ~S" string expect) (equal? (from-string
string) expect)))
+ ((_ (eof string))
+ (pass-if (format "~a => #<eof>" string) (eof-object? (from-string
string)))))))
+
+ (test (eof " "))
+ (test (eof "-- comment"))
+ (test (eof "--[[long
+comment]]"))
+
+ (test "[[long string]]" "long string")
+ (test "[=[[==[longer string]==]]=]" "[==[longer string]==]")
+
+ ;; numbers
+ (test "12345" 12345)
+ (test "12345.6789" 12345.6789)
+ (test "12.34e5" 1234000.0)
+ (test ".34e5" 34000.0)
+
+ ;; string escapes
+ (test "'\\a\\b\\f\\n\\r\\t\\v'"
+ "\a\b\f\n\r\t\v")
+ (test "'\\''"
+ "'")
+
+ ;; operators, keywords, identifiers
+ (test "name" 'name)
+ (test "return" #:return)
+ (test ".." #:concat)
+ (test "..." #:dots)
+ (test ";" #\;)
+ (test "-" #\-)
+ (test "+" #\+)
+ (test "/" #\/)
+ (test "*" #\*)
+
+))
diff --git a/test-suite/tests/lua-parser.test b/test-suite/tests/lua-parser.test
new file mode 100644
index 0000000..3483a9a
--- /dev/null
+++ b/test-suite/tests/lua-parser.test
@@ -0,0 +1,57 @@
+;; lua-parser.test --- lua parser test suite -*- mode: scheme -*-
+(define-module (test-lua)
+ #:use-module (ice-9 format)
+ #:use-module (language tree-il)
+ #:use-module (srfi srfi-1)
+ #:use-module (test-suite lib)
+
+ #:use-module (language lua parser))
+
+(define (tree-il? x) (or (application? x) (module-ref? x) (primitive-ref? x)
+ (lexical-ref? x) (sequence? x) (void? x) (const? x)
(lambda? x) (module-set? x)
+ (toplevel-ref? x) (toplevel-set? x) (toplevel-define?
x) (conditional? x)
+ (lambda-case? x) (letrec? x) (let? x) (lexical-set?
x)))
+
+(define (strip-tree-il! x)
+ (cond ((list? x) (map! strip-tree-il! x))
+ ((tree-il? x) (unparse-tree-il x))
+ (else x)))
+
+(with-test-prefix "lua-parser"
+ (let-syntax
+ ;; Note on parser tests:
+ ;; Lua does not allow standalone expressions, only statements.
+ ;; It does allow returns from the toplevel. This is how expressions are
evaluated at the Lua REPL.
+ ;; So, the inputs and outputs of these tests are automatically prefixed
with a return
+ ((test-return
+ (syntax-rules ()
+ ((_ string . expect)
+ (let* ((real-string (string-append "return " string))
+ (real-expect `(begin (apply (primitive return) ,@`expect)))
+ (result (from-string real-string)))
+ (pass-if (format "~S => ~S" real-string real-expect) (equal? result
real-expect)))))))
+
+ ;; shortcuts
+ (define (from-string string) (strip-tree-il! ((make-parser
(open-input-string string)))))
+ (define (op x) `(@ (language lua runtime) ,x))
+ (define (global x) `(@@ (language lua global-environment) ,x))
+
+ (test-return "" (void))
+ (test-return ";" (void))
+
+ (test-return "2" (const 2))
+ (test-return "1 + 2" (apply ,(op 'add) (const 1) (const 2)))
+ (test-return "1 + 2 * 3" (apply ,(op 'add) (const 1) (apply ,(op 'mul)
(const 2) (const 3)) ))
+ (test-return "1 * 2 + 3" (apply ,(op 'add) (apply ,(op 'mul) (const 1)
(const 2)) (const 3)))
+ (test-return "1 * 2 + 3 - 4" (apply ,(op 'sub) (apply ,(op 'add) (apply
,(op 'mul) (const 1) (const 2)) (const 3)) (const 4)))
+ (test-return "-1" (apply ,(op 'unm) (const 1)))
+ (test-return "- 2" (apply ,(op 'unm) (const 2)))
+
+ (test-return "var" ,(global 'var))
+ (test-return "print()" (apply ,(global 'print)))
+ (test-return "print(1)" (apply ,(global 'print) (const 1)))
+ (test-return "print(1,2)" (apply ,(global 'print) (const 1) (const 2)))
+ (test-return "print(1+2,3*4)" (apply ,(global 'print) (apply ,(op 'add)
(const 1) (const 2)) (apply ,(op 'mul) (const 3) (const 4))))
+
+ ) ;let-syntax
+) ;with-test-prefix
diff --git a/test-suite/tests/lua.test b/test-suite/tests/lua.test
deleted file mode 100644
index 2afa65e..0000000
--- a/test-suite/tests/lua.test
+++ /dev/null
@@ -1,253 +0,0 @@
-; lua.test --- lua test suite -*- mode: scheme -*-
-(define-module (test-lua)
- #:use-module (ice-9 format)
- #:use-module (language tree-il)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-8)
- #:use-module (system base compile)
- #:use-module (test-suite lib)
-
- #:use-module (language lua lexer)
- #:use-module (language lua parser))
-
-(with-test-prefix "lua-lexer"
- (define (from-string string)
- (receive (_ lex)
- (make-lexer (open-input-string string))
- (lex)))
- (let-syntax
- ((test
- (syntax-rules (eof)
- ((_ string expect)
- (pass-if (format "~S => ~S" string expect) (equal? (from-string
string) expect)))
- ((_ (eof string))
- (pass-if (format "~a => #<eof>" string) (eof-object? (from-string
string)))))))
-
- (test (eof " "))
- (test (eof "-- comment"))
-
- (test "12345" 12345)
- (test "name" 'name)
- (test "return" #:return)
- (test ";" #\;)
- (test "-" #\-)
- (test "+" #\+)
- (test "/" #\/)
- (test "*" #\*)
-
- ;; string escapes
- (test "'\\a\\b\\f\\n\\r\\t\\v'"
- "\a\b\f\n\r\t\v")
-
- (test "'\\''"
- "'")
-
-))
-
-(define (tree-il? x) (or (application? x) (module-ref? x) (primitive-ref? x)
- (lexical-ref? x) (sequence? x) (void? x) (const? x)
(lambda? x) (module-set? x)
- (toplevel-ref? x) (toplevel-set? x) (toplevel-define?
x) (conditional? x)
- (lambda-case? x) (letrec? x) (let? x) (lexical-set?
x)))
-
-(define (strip-tree-il! x)
- (cond ((list? x) (map! strip-tree-il! x))
- ((tree-il? x) (unparse-tree-il x))
- (else x)))
-
-(with-test-prefix "lua-parser"
- (let-syntax
- ;; Note on parser tests:
- ;; Lua does not allow standalone expressions, only statements.
- ;; It does allow returns from the toplevel. This is how expressions are
evaluated at the Lua REPL.
- ;; So, the inputs and outputs of these tests are automatically prefixed
with a return
- ((test-return
- (syntax-rules ()
- ((_ string . expect)
- (let* ((real-string (string-append "return " string))
- (real-expect `(begin (apply (primitive return) ,@`expect)))
- (result (from-string real-string)))
- (pass-if (format "~S => ~S" real-string real-expect) (equal? result
real-expect)))))))
-
- ;; shortcuts
- (define (from-string string) (strip-tree-il! ((make-parser
(open-input-string string)))))
- (define (op x) `(@ (language lua runtime) ,x))
- (define (global x) `(@@ (language lua global-environment) ,x))
-
- (test-return "" (void))
- (test-return ";" (void))
-
- (test-return "2" (const 2))
- (test-return "1 + 2" (apply ,(op 'add) (const 1) (const 2)))
- (test-return "1 + 2 * 3" (apply ,(op 'add) (const 1) (apply ,(op 'mul)
(const 2) (const 3)) ))
- (test-return "1 * 2 + 3" (apply ,(op 'add) (apply ,(op 'mul) (const 1)
(const 2)) (const 3)))
- (test-return "1 * 2 + 3 - 4" (apply ,(op 'sub) (apply ,(op 'add) (apply
,(op 'mul) (const 1) (const 2)) (const 3)) (const 4)))
- (test-return "-1" (apply ,(op 'unm) (const 1)))
- (test-return "- 2" (apply ,(op 'unm) (const 2)))
-
- (test-return "var" ,(global 'var))
- (test-return "print()" (apply ,(global 'print)))
- (test-return "print(1)" (apply ,(global 'print) (const 1)))
- (test-return "print(1,2)" (apply ,(global 'print) (const 1) (const 2)))
- (test-return "print(1+2,3*4)" (apply ,(global 'print) (apply ,(op 'add)
(const 1) (const 2)) (apply ,(op 'mul) (const 3) (const 4))))
-
-))
-
-(with-test-prefix "lua-eval"
- (define (from-string string)
- (compile ((make-parser (open-input-string string)))
- #:from 'lua
- #:to 'value))
- (letrec-syntax
- ((test
- (syntax-rules ()
- ((_ string expect)
- (pass-if (format "~S => ~S" string expect) (equal? (from-string
string) expect)))
- ((_ string)
- (test string #t)))))
-
- (test "return true")
- (test "return false" #f)
- (test "return nil" #nil)
- (test "return 12345" 12345)
- #;(test "return 12345.6789" 12345.6789)
- (test "return \"string\"" "string")
- (test "return (true)")
- (test "return (false == false)")
-
- ;; exercise the operator precedence parser
- (test "return 2" 2)
- (test "return 2 + 2" 4)
- (test "return 1 + 2 * 3" 7)
- (test "return 1 * 2 + 3" 5)
- (test "return 1 + 2 ^ 3 * 4 - 5" 28)
- (test "return 1 ^ 2 - 3 * 4 + 5" -6)
- (test "return;" *unspecified*)
- (test "return 1 + -6" -5)
-
- ;; logical operators
- (test "return false or true")
- (test "return true or false")
- (test "return false or false or true")
- (test "return false or nil and true" #nil)
- (test "return true and true")
- (test "return true and nil" #nil)
- (test "return true and false and nil" #f)
-
- ;; conditionals
- (test "if true then return true end")
- (test "if false then return false else return true end")
- (test "if true then return true else return false end")
- (test "if false then return false elseif true then return true elseif
false then return false else return false end")
- (test "if false then return false elseif false then return false elseif
true then return true else return false end")
- (test "if false then return false elseif false then return false elseif
false then return false else return true end")
-
- ;; function expressions
- (test "(function(x) return x end)(true)")
-
- ;; function statements
- (test "function identity(x) return x end return identity(21)" 21)
- (test "function fib(n) if n < 2 then return n else return fib(n-1) +
fib(n-2) end end return fib(20)" 6765)
- (test "-- fibonacci numbers\nfunction fib(n)\n if n < 2 then\n return
n\n else\n return fib(n-1) + fib(n-2)\n end\nend\nreturn fib(20)" 6765)
-
- ;; do
- (test "do return true end")
- (test "do if false then return false elseif false then return false elseif
false then return false else return true end end")
-
- ;; undefined variables are implicitly defined to nil
- (test "return undefined == nil")
- (test "return undefined ~= nil" #f)
-
- ;; assignments
- (test "variable = true; return variable")
- (test "a,b = 1,2; return a" 1)
- (test "a,b=1,2;return b" 2)
- (test "a,b,c=false,true,false; return b")
- (test "a,b=1;return b" #nil)
-
- ;; parenthetical expressions
- (test "return (true);")
- (test "return (2 + (2))" 4)
-
- ;; while
- (test "while true do return true end")
- (test "i=0; while i<5 do i=i+1 end return i" 5)
-
- ;; tables
- (test "a={}; return a[0]" #nil)
- (test "a={true}; return a[1]" #t)
- (test "a = { false , true } ; return a[2];" #t)
- (test "a = { false ; true ; } ; return a[2];" #t)
- (test "a = { b = true }; return a.b" #t)
- (test "a = { a = false , false ; b = true , true ; }; return a.b" #t)
- (test "a = { a = false , false ; b = true , true ; }; return a[2]" #t)
-
- ;; locals
- (test "local a; a = true; return a")
- (test "local a = true; return a")
- (test "local a,b=false,true; return b")
- (test "local a,b,c=false,true,false; return b")
- (test "local a,b,c=false,false,true; return c")
-
- ;; local function statements
- (test "local function identity(x) return x end; return identity(true)")
-
- ;; built-in functions
- (test "assert(true)")
- (test "print(T)" #nil)
- (test "print(false or true)" #nil)
- (test "table = {}; rawset(table, 0, true); return table[0]")
- (test "table = {}; rawset(table, 0, true); return rawget(table, 0)")
-
- ;; metatable events
- (test "table = {}
-setmetatable(table, { __add = function(a,b) return b end })
-return table + 5" 5)
- (test "table = {}
-setmetatable(table, { __add = function(a,b) return a end })
-return 5 + table" 5)
- (test "return true")
-
- ;; field functions
- (test "table = {}
-function table.identity(x) return x end
-return table.identity(true)")
-
- ;; repeat
- (test "i=0; repeat i = i+1 until i == 5; return i" 5)
- (test "i=5; repeat i = i-1 until i == 0; return i" 0)
-
- ;; length operator
- (test "return #\"asdf\"" 4)
-
- ;; modules
- #;(test "require(\"table\")")
-
- ;; - lexer
- ;; floating point numbers
- ;; multi-line strings [[ string ]]
-
- ;; - compiler
- ;; applications with no parenthesis (it is considered an application if an
expression is followed by a freestanding string or table)
- ;; concatenation
- ;; method invocations
- ;; for loops
- ;; variable arguments
- ;; multiple returns
-
- ;; - runtime
- ;; __pairs, __ipairs, __len
-
- ;; - language
- ;; require, _G
- ;; os, table, io, math
-
- ;; - after project
- ;; bitlib, coroutine, debug, string
-))
-
-#;(begin
- (define var
- "i=0; repeat i = i+1 until i == 5; return i"
- ) (display (compile ((make-parser (open-input-string var)))
- #:from 'lua #:to 'tree-il))
- (newline))
diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test
index 8cc366e..87d7890 100644
--- a/test-suite/tests/syncase.test
+++ b/test-suite/tests/syncase.test
@@ -141,3 +141,14 @@
(with-test-prefix "macro-generating macro"
(pass-if "module hygiene"
(eq? (foo) 'hello)))
+
+(pass-if "_ is a placeholder"
+ (equal? (eval '(begin
+ (define-syntax ciao
+ (lambda (stx)
+ (syntax-case stx ()
+ ((_ _)
+ "ciao"))))
+ (ciao 1))
+ (current-module))
+ "ciao"))
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 035ebf8..5813e4d 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -139,14 +139,14 @@
(eval '(begin (if #t (begin)) #t) (interaction-environment))))
(define-syntax matches?
- (syntax-rules (_)
+ (syntax-rules (<>)
((_ (op arg ...) pat) (let ((x (op arg ...)))
(matches? x pat)))
((_ x ()) (null? x))
((_ x (a . b)) (and (pair? x)
(matches? (car x) a)
(matches? (cdr x) b)))
- ((_ x _) #t)
+ ((_ x <>) #t)
((_ x pat) (equal? x 'pat))))
(with-test-prefix "lambda"
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |