[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-128-g2
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-128-g233b5d8 |
Date: |
Mon, 21 Jun 2010 09:06:18 +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=233b5d892cf56892f4e0e6ad9bc5e79a817fe023
The branch, master has been updated
via 233b5d892cf56892f4e0e6ad9bc5e79a817fe023 (commit)
via 77b79cce0cc75053cbc289ad3d42d183611392e2 (commit)
from 8d10ccae79ff46f0ebea92ba36acfaebafba8d86 (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 233b5d892cf56892f4e0e6ad9bc5e79a817fe023
Author: Andy Wingo <address@hidden>
Date: Mon Jun 21 11:02:31 2010 +0200
fix compilation with automake < 1.11
* configure.ac: On automake < 1.11, define AM_DEFAULT_VERBOSITY so that
our custom silent rules work.
commit 77b79cce0cc75053cbc289ad3d42d183611392e2
Author: Andy Wingo <address@hidden>
Date: Mon Jun 21 11:02:00 2010 +0200
freshly regenerate psyntax-pp
* module/ice-9/psyntax-pp.scm: A fresh regen to get the lowest gensyms
we can. Needs a better solution in the end.
-----------------------------------------------------------------------
Summary of changes:
configure.ac | 2 +-
module/ice-9/psyntax-pp.scm |16572 +++++++++++++++++++++----------------------
2 files changed, 8273 insertions(+), 8301 deletions(-)
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..761ad56 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\ 208}# #{first\ 209}# . #{rest\ 210}#)
(begin
- (let ((#{t\ 2324}# (null? #{first\ 2317}#)))
- (if #{t\ 2324}#
- #{t\ 2324}#
- (if (null? #{rest\ 2318}#)
+ (let ((#{t\ 216}# (null? #{first\ 209}#)))
+ (if #{t\ 216}#
+ #{t\ 216}#
+ (if (null? #{rest\ 210}#)
(letrec*
- ((#{andmap\ 2328}#
- (lambda (#{first\ 2329}#)
+ ((#{andmap\ 220}#
+ (lambda (#{first\ 221}#)
(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\ 224}# (car #{first\ 221}#))
+ (#{first\ 225}# (cdr #{first\ 221}#)))
+ (if (null? #{first\ 225}#)
+ (#{f\ 208}# #{x\ 224}#)
+ (if (#{f\ 208}# #{x\ 224}#)
+ (#{andmap\ 220}# #{first\ 225}#)
#f)))))))
- (begin (#{andmap\ 2328}# #{first\ 2317}#)))
+ (begin (#{andmap\ 220}# #{first\ 209}#)))
(letrec*
- ((#{andmap\ 2339}#
- (lambda (#{first\ 2340}# #{rest\ 2341}#)
+ ((#{andmap\ 231}#
+ (lambda (#{first\ 232}# #{rest\ 233}#)
(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\ 238}# (car #{first\ 232}#))
+ (#{xr\ 239}# (map car #{rest\ 233}#))
+ (#{first\ 240}# (cdr #{first\ 232}#))
+ (#{rest\ 241}# (map cdr #{rest\ 233}#)))
+ (if (null? #{first\ 240}#)
+ (@apply #{f\ 208}# (cons #{x\ 238}# #{xr\ 239}#))
(if (@apply
- #{f\ 2316}#
- (cons #{x\ 2346}# #{xr\ 2347}#))
- (#{andmap\ 2339}# #{first\ 2348}# #{rest\ 2349}#)
+ #{f\ 208}#
+ (cons #{x\ 238}# #{xr\ 239}#))
+ (#{andmap\ 231}# #{first\ 240}# #{rest\ 241}#)
#f)))))))
(begin
- (#{andmap\ 2339}# #{first\ 2317}# #{rest\ 2318}#))))))))))
+ (#{andmap\ 231}# #{first\ 209}# #{rest\ 210}#))))))))))
(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\ 250}# (if #f #f))
+ (#{fx+\ 289}# (if #f #f))
+ (#{fx-\ 291}# (if #f #f))
+ (#{fx=\ 293}# (if #f #f))
+ (#{fx<\ 295}# (if #f #f))
+ (#{set-syntax-object-expression!\ 360}#
(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!\ 362}# (if #f #f))
+ (#{set-syntax-object-module!\ 364}# (if #f #f))
+ (#{binding-type\ 371}# (if #f #f))
+ (#{binding-value\ 373}# (if #f #f))
+ (#{make-wrap\ 393}# (if #f #f))
+ (#{wrap-marks\ 395}# (if #f #f))
+ (#{wrap-subst\ 397}# (if #f #f))
+ (#{ribcage?\ 411}# (if #f #f)))
(letrec*
- ((#{make-void\ 2354}#
- (lambda (#{src\ 2826}#)
+ ((#{make-void\ 246}#
+ (lambda (#{src\ 718}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 2826}#)))
- (#{make-const\ 2356}#
- (lambda (#{src\ 2828}# #{exp\ 2829}#)
+ #{src\ 718}#)))
+ (#{make-const\ 248}#
+ (lambda (#{src\ 720}# #{exp\ 721}#)
(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\ 720}#
+ #{exp\ 721}#)))
+ (#{make-lexical-ref\ 252}#
+ (lambda (#{src\ 728}# #{name\ 729}# #{gensym\ 730}#)
(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\ 728}#
+ #{name\ 729}#
+ #{gensym\ 730}#)))
+ (#{make-lexical-set\ 254}#
+ (lambda (#{src\ 734}#
+ #{name\ 735}#
+ #{gensym\ 736}#
+ #{exp\ 737}#)
(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\ 734}#
+ #{name\ 735}#
+ #{gensym\ 736}#
+ #{exp\ 737}#)))
+ (#{make-module-ref\ 256}#
+ (lambda (#{src\ 742}#
+ #{mod\ 743}#
+ #{name\ 744}#
+ #{public?\ 745}#)
(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\ 742}#
+ #{mod\ 743}#
+ #{name\ 744}#
+ #{public?\ 745}#)))
+ (#{make-module-set\ 258}#
+ (lambda (#{src\ 750}#
+ #{mod\ 751}#
+ #{name\ 752}#
+ #{public?\ 753}#
+ #{exp\ 754}#)
(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\ 750}#
+ #{mod\ 751}#
+ #{name\ 752}#
+ #{public?\ 753}#
+ #{exp\ 754}#)))
+ (#{make-toplevel-ref\ 260}#
+ (lambda (#{src\ 760}# #{name\ 761}#)
(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\ 760}#
+ #{name\ 761}#)))
+ (#{make-toplevel-set\ 262}#
+ (lambda (#{src\ 764}# #{name\ 765}# #{exp\ 766}#)
(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\ 764}#
+ #{name\ 765}#
+ #{exp\ 766}#)))
+ (#{make-toplevel-define\ 264}#
+ (lambda (#{src\ 770}# #{name\ 771}# #{exp\ 772}#)
(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\ 770}#
+ #{name\ 771}#
+ #{exp\ 772}#)))
+ (#{make-conditional\ 266}#
+ (lambda (#{src\ 776}#
+ #{test\ 777}#
+ #{consequent\ 778}#
+ #{alternate\ 779}#)
(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\ 776}#
+ #{test\ 777}#
+ #{consequent\ 778}#
+ #{alternate\ 779}#)))
+ (#{make-application\ 268}#
+ (lambda (#{src\ 784}# #{proc\ 785}# #{args\ 786}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 2892}#
- #{proc\ 2893}#
- #{args\ 2894}#)))
- (#{make-sequence\ 2378}#
- (lambda (#{src\ 2898}# #{exps\ 2899}#)
+ #{src\ 784}#
+ #{proc\ 785}#
+ #{args\ 786}#)))
+ (#{make-sequence\ 270}#
+ (lambda (#{src\ 790}# #{exps\ 791}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 2898}#
- #{exps\ 2899}#)))
- (#{make-lambda\ 2380}#
- (lambda (#{src\ 2902}# #{meta\ 2903}# #{body\ 2904}#)
+ #{src\ 790}#
+ #{exps\ 791}#)))
+ (#{make-lambda\ 272}#
+ (lambda (#{src\ 794}# #{meta\ 795}# #{body\ 796}#)
(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\ 794}#
+ #{meta\ 795}#
+ #{body\ 796}#)))
+ (#{make-lambda-case\ 274}#
+ (lambda (#{src\ 800}#
+ #{req\ 801}#
+ #{opt\ 802}#
+ #{rest\ 803}#
+ #{kw\ 804}#
+ #{inits\ 805}#
+ #{gensyms\ 806}#
+ #{body\ 807}#
+ #{alternate\ 808}#)
(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\ 800}#
+ #{req\ 801}#
+ #{opt\ 802}#
+ #{rest\ 803}#
+ #{kw\ 804}#
+ #{inits\ 805}#
+ #{gensyms\ 806}#
+ #{body\ 807}#
+ #{alternate\ 808}#)))
+ (#{make-let\ 276}#
+ (lambda (#{src\ 818}#
+ #{names\ 819}#
+ #{gensyms\ 820}#
+ #{vals\ 821}#
+ #{body\ 822}#)
(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\ 818}#
+ #{names\ 819}#
+ #{gensyms\ 820}#
+ #{vals\ 821}#
+ #{body\ 822}#)))
+ (#{make-letrec\ 278}#
+ (lambda (#{src\ 828}#
+ #{in-order?\ 829}#
+ #{names\ 830}#
+ #{gensyms\ 831}#
+ #{vals\ 832}#
+ #{body\ 833}#)
(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\ 828}#
+ #{in-order?\ 829}#
+ #{names\ 830}#
+ #{gensyms\ 831}#
+ #{vals\ 832}#
+ #{body\ 833}#)))
+ (#{make-dynlet\ 280}#
+ (lambda (#{src\ 840}#
+ #{fluids\ 841}#
+ #{vals\ 842}#
+ #{body\ 843}#)
(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\ 840}#
+ #{fluids\ 841}#
+ #{vals\ 842}#
+ #{body\ 843}#)))
+ (#{lambda?\ 283}#
+ (lambda (#{x\ 848}#)
+ (if (struct? #{x\ 848}#)
+ (eq? (struct-vtable #{x\ 848}#)
(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\ 285}#
+ (lambda (#{x\ 852}#) (struct-ref #{x\ 852}# 1)))
+ (#{set-lambda-meta!\ 287}#
+ (lambda (#{x\ 854}# #{v\ 855}#)
+ (struct-set! #{x\ 854}# 1 #{v\ 855}#)))
+ (#{top-level-eval-hook\ 297}#
+ (lambda (#{x\ 858}# #{mod\ 859}#)
+ (primitive-eval #{x\ 858}#)))
+ (#{local-eval-hook\ 299}#
+ (lambda (#{x\ 862}# #{mod\ 863}#)
+ (primitive-eval #{x\ 862}#)))
+ (#{put-global-definition-hook\ 302}#
+ (lambda (#{symbol\ 866}# #{type\ 867}# #{val\ 868}#)
(module-define!
(current-module)
- #{symbol\ 2974}#
+ #{symbol\ 866}#
(make-syntax-transformer
- #{symbol\ 2974}#
- #{type\ 2975}#
- #{val\ 2976}#))))
- (#{get-global-definition-hook\ 2412}#
- (lambda (#{symbol\ 2980}# #{module\ 2981}#)
+ #{symbol\ 866}#
+ #{type\ 867}#
+ #{val\ 868}#))))
+ (#{get-global-definition-hook\ 304}#
+ (lambda (#{symbol\ 872}# #{module\ 873}#)
(begin
- (if (if (not #{module\ 2981}#) (current-module) #f)
+ (if (if (not #{module\ 873}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2980}#))
+ #{symbol\ 872}#))
(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\ 879}# (module-variable
+ (if #{module\ 873}#
+ (resolve-module (cdr #{module\ 873}#))
+ (current-module))
+ #{symbol\ 872}#)))
+ (if #{v\ 879}#
+ (if (variable-bound? #{v\ 879}#)
(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\ 884}# (variable-ref #{v\ 879}#)))
+ (if (macro? #{val\ 884}#)
+ (if (macro-type #{val\ 884}#)
+ (cons (macro-type #{val\ 884}#)
+ (macro-binding #{val\ 884}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 2414}#
- (lambda (#{e\ 2996}# #{s\ 2997}#)
+ (#{decorate-source\ 306}#
+ (lambda (#{e\ 888}# #{s\ 889}#)
(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\ 888}#) #{s\ 889}# #f)
+ (set-source-properties! #{e\ 888}# #{s\ 889}#))
+ #{e\ 888}#)))
+ (#{maybe-name-value!\ 308}#
+ (lambda (#{name\ 894}# #{val\ 895}#)
+ (if (#{lambda?\ 283}# #{val\ 895}#)
(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\ 899}#
+ (#{lambda-meta\ 285}# #{val\ 895}#)))
+ (if (not (assq (quote name) #{meta\ 899}#))
+ (#{set-lambda-meta!\ 287}#
+ #{val\ 895}#
+ (cons (cons (quote name) #{name\ 894}#)
+ #{meta\ 899}#))))))))
+ (#{build-void\ 310}#
+ (lambda (#{source\ 900}#)
+ (#{make-void\ 246}# #{source\ 900}#)))
+ (#{build-application\ 312}#
+ (lambda (#{source\ 902}#
+ #{fun-exp\ 903}#
+ #{arg-exps\ 904}#)
+ (#{make-application\ 268}#
+ #{source\ 902}#
+ #{fun-exp\ 903}#
+ #{arg-exps\ 904}#)))
+ (#{build-conditional\ 314}#
+ (lambda (#{source\ 908}#
+ #{test-exp\ 909}#
+ #{then-exp\ 910}#
+ #{else-exp\ 911}#)
+ (#{make-conditional\ 266}#
+ #{source\ 908}#
+ #{test-exp\ 909}#
+ #{then-exp\ 910}#
+ #{else-exp\ 911}#)))
+ (#{build-dynlet\ 316}#
+ (lambda (#{source\ 916}#
+ #{fluids\ 917}#
+ #{vals\ 918}#
+ #{body\ 919}#)
+ (#{make-dynlet\ 280}#
+ #{source\ 916}#
+ #{fluids\ 917}#
+ #{vals\ 918}#
+ #{body\ 919}#)))
+ (#{build-lexical-reference\ 318}#
+ (lambda (#{type\ 924}#
+ #{source\ 925}#
+ #{name\ 926}#
+ #{var\ 927}#)
+ (#{make-lexical-ref\ 252}#
+ #{source\ 925}#
+ #{name\ 926}#
+ #{var\ 927}#)))
+ (#{build-lexical-assignment\ 320}#
+ (lambda (#{source\ 932}#
+ #{name\ 933}#
+ #{var\ 934}#
+ #{exp\ 935}#)
(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!\ 308}#
+ #{name\ 933}#
+ #{exp\ 935}#)
+ (#{make-lexical-set\ 254}#
+ #{source\ 932}#
+ #{name\ 933}#
+ #{var\ 934}#
+ #{exp\ 935}#))))
+ (#{analyze-variable\ 322}#
+ (lambda (#{mod\ 940}#
+ #{var\ 941}#
+ #{modref-cont\ 942}#
+ #{bare-cont\ 943}#)
+ (if (not #{mod\ 940}#)
+ (#{bare-cont\ 943}# #{var\ 941}#)
(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\ 950}# (car #{mod\ 940}#))
+ (#{mod\ 951}# (cdr #{mod\ 940}#)))
+ (if (eqv? #{kind\ 950}# (quote public))
+ (#{modref-cont\ 942}#
+ #{mod\ 951}#
+ #{var\ 941}#
#t)
- (if (eqv? #{kind\ 3058}# (quote private))
+ (if (eqv? #{kind\ 950}# (quote private))
(if (not (equal?
- #{mod\ 3059}#
+ #{mod\ 951}#
(module-name (current-module))))
- (#{modref-cont\ 3050}#
- #{mod\ 3059}#
- #{var\ 3049}#
+ (#{modref-cont\ 942}#
+ #{mod\ 951}#
+ #{var\ 941}#
#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\ 943}# #{var\ 941}#))
+ (if (eqv? #{kind\ 950}# (quote bare))
+ (#{bare-cont\ 943}# #{var\ 941}#)
+ (if (eqv? #{kind\ 950}# (quote hygiene))
(if (if (not (equal?
- #{mod\ 3059}#
+ #{mod\ 951}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 3059}#)
- #{var\ 3049}#)
+ (resolve-module #{mod\ 951}#)
+ #{var\ 941}#)
#f)
- (#{modref-cont\ 3050}#
- #{mod\ 3059}#
- #{var\ 3049}#
+ (#{modref-cont\ 942}#
+ #{mod\ 951}#
+ #{var\ 941}#
#f)
- (#{bare-cont\ 3051}# #{var\ 3049}#))
+ (#{bare-cont\ 943}# #{var\ 941}#))
(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\ 941}#
+ #{mod\ 951}#))))))))))
+ (#{build-global-reference\ 324}#
+ (lambda (#{source\ 959}# #{var\ 960}# #{mod\ 961}#)
+ (#{analyze-variable\ 322}#
+ #{mod\ 961}#
+ #{var\ 960}#
+ (lambda (#{mod\ 965}# #{var\ 966}# #{public?\ 967}#)
+ (#{make-module-ref\ 256}#
+ #{source\ 959}#
+ #{mod\ 965}#
+ #{var\ 966}#
+ #{public?\ 967}#))
+ (lambda (#{var\ 971}#)
+ (#{make-toplevel-ref\ 260}#
+ #{source\ 959}#
+ #{var\ 971}#)))))
+ (#{build-global-assignment\ 326}#
+ (lambda (#{source\ 973}#
+ #{var\ 974}#
+ #{exp\ 975}#
+ #{mod\ 976}#)
(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!\ 308}#
+ #{var\ 974}#
+ #{exp\ 975}#)
+ (#{analyze-variable\ 322}#
+ #{mod\ 976}#
+ #{var\ 974}#
+ (lambda (#{mod\ 981}# #{var\ 982}# #{public?\ 983}#)
+ (#{make-module-set\ 258}#
+ #{source\ 973}#
+ #{mod\ 981}#
+ #{var\ 982}#
+ #{public?\ 983}#
+ #{exp\ 975}#))
+ (lambda (#{var\ 987}#)
+ (#{make-toplevel-set\ 262}#
+ #{source\ 973}#
+ #{var\ 987}#
+ #{exp\ 975}#))))))
+ (#{build-global-definition\ 328}#
+ (lambda (#{source\ 989}# #{var\ 990}# #{exp\ 991}#)
(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!\ 308}#
+ #{var\ 990}#
+ #{exp\ 991}#)
+ (#{make-toplevel-define\ 264}#
+ #{source\ 989}#
+ #{var\ 990}#
+ #{exp\ 991}#))))
+ (#{build-simple-lambda\ 330}#
+ (lambda (#{src\ 995}#
+ #{req\ 996}#
+ #{rest\ 997}#
+ #{vars\ 998}#
+ #{meta\ 999}#
+ #{exp\ 1000}#)
+ (#{make-lambda\ 272}#
+ #{src\ 995}#
+ #{meta\ 999}#
+ (#{make-lambda-case\ 274}#
+ #{src\ 995}#
+ #{req\ 996}#
#f
- #{rest\ 3105}#
+ #{rest\ 997}#
#f
'()
- #{vars\ 3106}#
- #{exp\ 3108}#
+ #{vars\ 998}#
+ #{exp\ 1000}#
#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\ 332}#
+ (lambda (#{src\ 1007}# #{meta\ 1008}# #{body\ 1009}#)
+ (#{make-lambda\ 272}#
+ #{src\ 1007}#
+ #{meta\ 1008}#
+ #{body\ 1009}#)))
+ (#{build-lambda-case\ 334}#
+ (lambda (#{src\ 1013}#
+ #{req\ 1014}#
+ #{opt\ 1015}#
+ #{rest\ 1016}#
+ #{kw\ 1017}#
+ #{inits\ 1018}#
+ #{vars\ 1019}#
+ #{body\ 1020}#
+ #{else-case\ 1021}#)
+ (#{make-lambda-case\ 274}#
+ #{src\ 1013}#
+ #{req\ 1014}#
+ #{opt\ 1015}#
+ #{rest\ 1016}#
+ #{kw\ 1017}#
+ #{inits\ 1018}#
+ #{vars\ 1019}#
+ #{body\ 1020}#
+ #{else-case\ 1021}#)))
+ (#{build-primref\ 336}#
+ (lambda (#{src\ 1031}# #{name\ 1032}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 2368}#
- #{src\ 3139}#
- #{name\ 3140}#)
- (#{make-module-ref\ 2364}#
- #{src\ 3139}#
+ (#{make-toplevel-ref\ 260}#
+ #{src\ 1031}#
+ #{name\ 1032}#)
+ (#{make-module-ref\ 256}#
+ #{src\ 1031}#
'(guile)
- #{name\ 3140}#
+ #{name\ 1032}#
#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\ 338}#
+ (lambda (#{src\ 1035}# #{exp\ 1036}#)
+ (#{make-const\ 248}# #{src\ 1035}# #{exp\ 1036}#)))
+ (#{build-sequence\ 340}#
+ (lambda (#{src\ 1039}# #{exps\ 1040}#)
+ (if (null? (cdr #{exps\ 1040}#))
+ (car #{exps\ 1040}#)
+ (#{make-sequence\ 270}#
+ #{src\ 1039}#
+ #{exps\ 1040}#))))
+ (#{build-let\ 342}#
+ (lambda (#{src\ 1043}#
+ #{ids\ 1044}#
+ #{vars\ 1045}#
+ #{val-exps\ 1046}#
+ #{body-exp\ 1047}#)
(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!\ 308}#
+ #{ids\ 1044}#
+ #{val-exps\ 1046}#)
+ (if (null? #{vars\ 1045}#)
+ #{body-exp\ 1047}#
+ (#{make-let\ 276}#
+ #{src\ 1043}#
+ #{ids\ 1044}#
+ #{vars\ 1045}#
+ #{val-exps\ 1046}#
+ #{body-exp\ 1047}#)))))
+ (#{build-named-let\ 344}#
+ (lambda (#{src\ 1053}#
+ #{ids\ 1054}#
+ #{vars\ 1055}#
+ #{val-exps\ 1056}#
+ #{body-exp\ 1057}#)
(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\ 1067}# (car #{vars\ 1055}#))
+ (#{f-name\ 1068}# (car #{ids\ 1054}#))
+ (#{vars\ 1069}# (cdr #{vars\ 1055}#))
+ (#{ids\ 1070}# (cdr #{ids\ 1054}#)))
(begin
- (let ((#{proc\ 3180}#
- (#{build-simple-lambda\ 2438}#
- #{src\ 3161}#
- #{ids\ 3178}#
+ (let ((#{proc\ 1072}#
+ (#{build-simple-lambda\ 330}#
+ #{src\ 1053}#
+ #{ids\ 1070}#
#f
- #{vars\ 3177}#
+ #{vars\ 1069}#
'()
- #{body-exp\ 3165}#)))
+ #{body-exp\ 1057}#)))
(begin
- (#{maybe-name-value!\ 2416}#
- #{f-name\ 3176}#
- #{proc\ 3180}#)
+ (#{maybe-name-value!\ 308}#
+ #{f-name\ 1068}#
+ #{proc\ 1072}#)
(for-each
- #{maybe-name-value!\ 2416}#
- #{ids\ 3178}#
- #{val-exps\ 3164}#)
- (#{make-letrec\ 2386}#
- #{src\ 3161}#
+ #{maybe-name-value!\ 308}#
+ #{ids\ 1070}#
+ #{val-exps\ 1056}#)
+ (#{make-letrec\ 278}#
+ #{src\ 1053}#
#f
- (list #{f-name\ 3176}#)
- (list #{f\ 3175}#)
- (list #{proc\ 3180}#)
- (#{build-application\ 2420}#
- #{src\ 3161}#
- (#{build-lexical-reference\ 2426}#
+ (list #{f-name\ 1068}#)
+ (list #{f\ 1067}#)
+ (list #{proc\ 1072}#)
+ (#{build-application\ 312}#
+ #{src\ 1053}#
+ (#{build-lexical-reference\ 318}#
'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\ 1053}#
+ #{f-name\ 1068}#
+ #{f\ 1067}#)
+ #{val-exps\ 1056}#)))))))))
+ (#{build-letrec\ 346}#
+ (lambda (#{src\ 1073}#
+ #{in-order?\ 1074}#
+ #{ids\ 1075}#
+ #{vars\ 1076}#
+ #{val-exps\ 1077}#
+ #{body-exp\ 1078}#)
+ (if (null? #{vars\ 1076}#)
+ #{body-exp\ 1078}#
(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!\ 308}#
+ #{ids\ 1075}#
+ #{val-exps\ 1077}#)
+ (#{make-letrec\ 278}#
+ #{src\ 1073}#
+ #{in-order?\ 1074}#
+ #{ids\ 1075}#
+ #{vars\ 1076}#
+ #{val-exps\ 1077}#
+ #{body-exp\ 1078}#)))))
+ (#{make-syntax-object\ 350}#
+ (lambda (#{expression\ 1085}#
+ #{wrap\ 1086}#
+ #{module\ 1087}#)
(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\ 1085}#
+ #{wrap\ 1086}#
+ #{module\ 1087}#)))
+ (#{syntax-object?\ 352}#
+ (lambda (#{x\ 1091}#)
+ (if (vector? #{x\ 1091}#)
+ (if (= (vector-length #{x\ 1091}#) 4)
+ (eq? (vector-ref #{x\ 1091}# 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\ 354}#
+ (lambda (#{x\ 1096}#) (vector-ref #{x\ 1096}# 1)))
+ (#{syntax-object-wrap\ 356}#
+ (lambda (#{x\ 1098}#) (vector-ref #{x\ 1098}# 2)))
+ (#{syntax-object-module\ 358}#
+ (lambda (#{x\ 1100}#) (vector-ref #{x\ 1100}# 3)))
+ (#{source-annotation\ 367}#
+ (lambda (#{x\ 1114}#)
+ (if (#{syntax-object?\ 352}# #{x\ 1114}#)
+ (#{source-annotation\ 367}#
+ (#{syntax-object-expression\ 354}# #{x\ 1114}#))
+ (if (pair? #{x\ 1114}#)
(begin
- (let ((#{props\ 3229}# (source-properties #{x\ 3222}#)))
- (if (pair? #{props\ 3229}#) #{props\ 3229}# #f)))
+ (let ((#{props\ 1121}# (source-properties #{x\ 1114}#)))
+ (if (pair? #{props\ 1121}#) #{props\ 1121}# #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\ 376}#
+ (lambda (#{labels\ 1123}# #{bindings\ 1124}# #{r\ 1125}#)
+ (if (null? #{labels\ 1123}#)
+ #{r\ 1125}#
+ (#{extend-env\ 376}#
+ (cdr #{labels\ 1123}#)
+ (cdr #{bindings\ 1124}#)
+ (cons (cons (car #{labels\ 1123}#)
+ (car #{bindings\ 1124}#))
+ #{r\ 1125}#)))))
+ (#{extend-var-env\ 378}#
+ (lambda (#{labels\ 1129}# #{vars\ 1130}# #{r\ 1131}#)
+ (if (null? #{labels\ 1129}#)
+ #{r\ 1131}#
+ (#{extend-var-env\ 378}#
+ (cdr #{labels\ 1129}#)
+ (cdr #{vars\ 1130}#)
+ (cons (cons (car #{labels\ 1129}#)
+ (cons (quote lexical) (car #{vars\ 1130}#)))
+ #{r\ 1131}#)))))
+ (#{macros-only-env\ 380}#
+ (lambda (#{r\ 1136}#)
+ (if (null? #{r\ 1136}#)
'()
(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\ 1139}# (car #{r\ 1136}#)))
+ (if (eq? (car (cdr #{a\ 1139}#)) (quote macro))
+ (cons #{a\ 1139}#
+ (#{macros-only-env\ 380}# (cdr #{r\ 1136}#)))
+ (#{macros-only-env\ 380}# (cdr #{r\ 1136}#))))))))
+ (#{lookup\ 382}#
+ (lambda (#{x\ 1140}# #{r\ 1141}# #{mod\ 1142}#)
(begin
- (let ((#{t\ 3256}# (assq #{x\ 3248}# #{r\ 3249}#)))
- (if #{t\ 3256}#
- (cdr #{t\ 3256}#)
- (if (symbol? #{x\ 3248}#)
+ (let ((#{t\ 1148}# (assq #{x\ 1140}# #{r\ 1141}#)))
+ (if #{t\ 1148}#
+ (cdr #{t\ 1148}#)
+ (if (symbol? #{x\ 1140}#)
(begin
- (let ((#{t\ 3262}#
- (#{get-global-definition-hook\ 2412}#
- #{x\ 3248}#
- #{mod\ 3250}#)))
- (if #{t\ 3262}# #{t\ 3262}# (quote (global)))))
+ (let ((#{t\ 1154}#
+ (#{get-global-definition-hook\ 304}#
+ #{x\ 1140}#
+ #{mod\ 1142}#)))
+ (if #{t\ 1154}# #{t\ 1154}# (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\ 384}#
+ (lambda (#{type\ 1159}# #{sym\ 1160}# #{val\ 1161}#)
+ (#{put-global-definition-hook\ 302}#
+ #{sym\ 1160}#
+ #{type\ 1159}#
+ #{val\ 1161}#)))
+ (#{nonsymbol-id?\ 386}#
+ (lambda (#{x\ 1165}#)
+ (if (#{syntax-object?\ 352}# #{x\ 1165}#)
(symbol?
- (#{syntax-object-expression\ 2462}# #{x\ 3273}#))
+ (#{syntax-object-expression\ 354}# #{x\ 1165}#))
#f)))
- (#{id?\ 2496}#
- (lambda (#{x\ 3277}#)
- (if (symbol? #{x\ 3277}#)
+ (#{id?\ 388}#
+ (lambda (#{x\ 1169}#)
+ (if (symbol? #{x\ 1169}#)
#t
- (if (#{syntax-object?\ 2460}# #{x\ 3277}#)
+ (if (#{syntax-object?\ 352}# #{x\ 1169}#)
(symbol?
- (#{syntax-object-expression\ 2462}# #{x\ 3277}#))
+ (#{syntax-object-expression\ 354}# #{x\ 1169}#))
#f))))
- (#{id-sym-name&marks\ 2499}#
- (lambda (#{x\ 3284}# #{w\ 3285}#)
- (if (#{syntax-object?\ 2460}# #{x\ 3284}#)
+ (#{id-sym-name&marks\ 391}#
+ (lambda (#{x\ 1176}# #{w\ 1177}#)
+ (if (#{syntax-object?\ 352}# #{x\ 1176}#)
(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\ 354}# #{x\ 1176}#)
+ (#{join-marks\ 441}#
+ (#{wrap-marks\ 395}# #{w\ 1177}#)
+ (#{wrap-marks\ 395}#
+ (#{syntax-object-wrap\ 356}# #{x\ 1176}#))))
(values
- #{x\ 3284}#
- (#{wrap-marks\ 2503}# #{w\ 3285}#)))))
- (#{gen-label\ 2512}#
+ #{x\ 1176}#
+ (#{wrap-marks\ 395}# #{w\ 1177}#)))))
+ (#{gen-label\ 404}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 2514}#
- (lambda (#{ls\ 3288}#)
- (if (null? #{ls\ 3288}#)
+ (#{gen-labels\ 406}#
+ (lambda (#{ls\ 1180}#)
+ (if (null? #{ls\ 1180}#)
'()
- (cons (#{gen-label\ 2512}#)
- (#{gen-labels\ 2514}# (cdr #{ls\ 3288}#))))))
- (#{make-ribcage\ 2517}#
- (lambda (#{symnames\ 3290}#
- #{marks\ 3291}#
- #{labels\ 3292}#)
+ (cons (#{gen-label\ 404}#)
+ (#{gen-labels\ 406}# (cdr #{ls\ 1180}#))))))
+ (#{make-ribcage\ 409}#
+ (lambda (#{symnames\ 1182}#
+ #{marks\ 1183}#
+ #{labels\ 1184}#)
(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\ 1182}#
+ #{marks\ 1183}#
+ #{labels\ 1184}#)))
+ (#{ribcage-symnames\ 413}#
+ (lambda (#{x\ 1193}#) (vector-ref #{x\ 1193}# 1)))
+ (#{ribcage-marks\ 415}#
+ (lambda (#{x\ 1195}#) (vector-ref #{x\ 1195}# 2)))
+ (#{ribcage-labels\ 417}#
+ (lambda (#{x\ 1197}#) (vector-ref #{x\ 1197}# 3)))
+ (#{set-ribcage-symnames!\ 419}#
+ (lambda (#{x\ 1199}# #{update\ 1200}#)
+ (vector-set! #{x\ 1199}# 1 #{update\ 1200}#)))
+ (#{set-ribcage-marks!\ 421}#
+ (lambda (#{x\ 1203}# #{update\ 1204}#)
+ (vector-set! #{x\ 1203}# 2 #{update\ 1204}#)))
+ (#{set-ribcage-labels!\ 423}#
+ (lambda (#{x\ 1207}# #{update\ 1208}#)
+ (vector-set! #{x\ 1207}# 3 #{update\ 1208}#)))
+ (#{anti-mark\ 429}#
+ (lambda (#{w\ 1211}#)
+ (#{make-wrap\ 393}#
+ (cons #f (#{wrap-marks\ 395}# #{w\ 1211}#))
(cons 'shift
- (#{wrap-subst\ 2505}# #{w\ 3319}#)))))
- (#{extend-ribcage!\ 2541}#
- (lambda (#{ribcage\ 3322}# #{id\ 3323}# #{label\ 3324}#)
+ (#{wrap-subst\ 397}# #{w\ 1211}#)))))
+ (#{extend-ribcage!\ 433}#
+ (lambda (#{ribcage\ 1214}# #{id\ 1215}# #{label\ 1216}#)
(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!\ 419}#
+ #{ribcage\ 1214}#
+ (cons (#{syntax-object-expression\ 354}# #{id\ 1215}#)
+ (#{ribcage-symnames\ 413}# #{ribcage\ 1214}#)))
+ (#{set-ribcage-marks!\ 421}#
+ #{ribcage\ 1214}#
+ (cons (#{wrap-marks\ 395}#
+ (#{syntax-object-wrap\ 356}# #{id\ 1215}#))
+ (#{ribcage-marks\ 415}# #{ribcage\ 1214}#)))
+ (#{set-ribcage-labels!\ 423}#
+ #{ribcage\ 1214}#
+ (cons #{label\ 1216}#
+ (#{ribcage-labels\ 417}# #{ribcage\ 1214}#))))))
+ (#{make-binding-wrap\ 435}#
+ (lambda (#{ids\ 1220}# #{labels\ 1221}# #{w\ 1222}#)
+ (if (null? #{ids\ 1220}#)
+ #{w\ 1222}#
+ (#{make-wrap\ 393}#
+ (#{wrap-marks\ 395}# #{w\ 1222}#)
(cons (begin
- (let ((#{labelvec\ 3335}#
- (list->vector #{labels\ 3329}#)))
+ (let ((#{labelvec\ 1227}#
+ (list->vector #{labels\ 1221}#)))
(begin
- (let ((#{n\ 3337}#
- (vector-length #{labelvec\ 3335}#)))
+ (let ((#{n\ 1229}#
+ (vector-length #{labelvec\ 1227}#)))
(begin
- (let ((#{symnamevec\ 3340}#
- (make-vector #{n\ 3337}#))
- (#{marksvec\ 3341}#
- (make-vector #{n\ 3337}#)))
+ (let ((#{symnamevec\ 1232}#
+ (make-vector #{n\ 1229}#))
+ (#{marksvec\ 1233}#
+ (make-vector #{n\ 1229}#)))
(begin
(letrec*
- ((#{f\ 3345}#
- (lambda (#{ids\ 3346}# #{i\ 3347}#)
- (if (not (null? #{ids\ 3346}#))
+ ((#{f\ 1237}#
+ (lambda (#{ids\ 1238}# #{i\ 1239}#)
+ (if (not (null? #{ids\ 1238}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 2499}#
- (car #{ids\ 3346}#)
- #{w\ 3330}#))
- (lambda (#{symname\ 3348}#
- #{marks\ 3349}#)
+ (#{id-sym-name&marks\ 391}#
+ (car #{ids\ 1238}#)
+ #{w\ 1222}#))
+ (lambda (#{symname\ 1240}#
+ #{marks\ 1241}#)
(begin
(vector-set!
- #{symnamevec\ 3340}#
- #{i\ 3347}#
- #{symname\ 3348}#)
+ #{symnamevec\ 1232}#
+ #{i\ 1239}#
+ #{symname\ 1240}#)
(vector-set!
- #{marksvec\ 3341}#
- #{i\ 3347}#
- #{marks\ 3349}#)
- (#{f\ 3345}#
- (cdr #{ids\ 3346}#)
- (#{fx+\ 2397}#
- #{i\ 3347}#
+ #{marksvec\ 1233}#
+ #{i\ 1239}#
+ #{marks\ 1241}#)
+ (#{f\ 1237}#
+ (cdr #{ids\ 1238}#)
+ (#{fx+\ 289}#
+ #{i\ 1239}#
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\ 1237}# #{ids\ 1220}# 0)))
+ (#{make-ribcage\ 409}#
+ #{symnamevec\ 1232}#
+ #{marksvec\ 1233}#
+ #{labelvec\ 1227}#))))))))
+ (#{wrap-subst\ 397}# #{w\ 1222}#))))))
+ (#{smart-append\ 437}#
+ (lambda (#{m1\ 1244}# #{m2\ 1245}#)
+ (if (null? #{m2\ 1245}#)
+ #{m1\ 1244}#
+ (append #{m1\ 1244}# #{m2\ 1245}#))))
+ (#{join-wraps\ 439}#
+ (lambda (#{w1\ 1248}# #{w2\ 1249}#)
(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\ 1254}# (#{wrap-marks\ 395}# #{w1\ 1248}#))
+ (#{s1\ 1255}# (#{wrap-subst\ 397}# #{w1\ 1248}#)))
+ (if (null? #{m1\ 1254}#)
+ (if (null? #{s1\ 1255}#)
+ #{w2\ 1249}#
+ (#{make-wrap\ 393}#
+ (#{wrap-marks\ 395}# #{w2\ 1249}#)
+ (#{smart-append\ 437}#
+ #{s1\ 1255}#
+ (#{wrap-subst\ 397}# #{w2\ 1249}#))))
+ (#{make-wrap\ 393}#
+ (#{smart-append\ 437}#
+ #{m1\ 1254}#
+ (#{wrap-marks\ 395}# #{w2\ 1249}#))
+ (#{smart-append\ 437}#
+ #{s1\ 1255}#
+ (#{wrap-subst\ 397}# #{w2\ 1249}#))))))))
+ (#{join-marks\ 441}#
+ (lambda (#{m1\ 1256}# #{m2\ 1257}#)
+ (#{smart-append\ 437}# #{m1\ 1256}# #{m2\ 1257}#)))
+ (#{same-marks?\ 443}#
+ (lambda (#{x\ 1260}# #{y\ 1261}#)
(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\ 1266}# (eq? #{x\ 1260}# #{y\ 1261}#)))
+ (if #{t\ 1266}#
+ #{t\ 1266}#
+ (if (not (null? #{x\ 1260}#))
+ (if (not (null? #{y\ 1261}#))
+ (if (eq? (car #{x\ 1260}#) (car #{y\ 1261}#))
+ (#{same-marks?\ 443}#
+ (cdr #{x\ 1260}#)
+ (cdr #{y\ 1261}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 2553}#
- (lambda (#{id\ 3380}# #{w\ 3381}#)
+ (#{id-var-name\ 445}#
+ (lambda (#{id\ 1272}# #{w\ 1273}#)
(letrec*
- ((#{search\ 3386}#
- (lambda (#{sym\ 3402}# #{subst\ 3403}# #{marks\ 3404}#)
- (if (null? #{subst\ 3403}#)
- (values #f #{marks\ 3404}#)
+ ((#{search\ 1278}#
+ (lambda (#{sym\ 1294}# #{subst\ 1295}# #{marks\ 1296}#)
+ (if (null? #{subst\ 1295}#)
+ (values #f #{marks\ 1296}#)
(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\ 1301}# (car #{subst\ 1295}#)))
+ (if (eq? #{fst\ 1301}# (quote shift))
+ (#{search\ 1278}#
+ #{sym\ 1294}#
+ (cdr #{subst\ 1295}#)
+ (cdr #{marks\ 1296}#))
(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\ 1303}#
+ (#{ribcage-symnames\ 413}#
+ #{fst\ 1301}#)))
+ (if (vector? #{symnames\ 1303}#)
+ (#{search-vector-rib\ 1282}#
+ #{sym\ 1294}#
+ #{subst\ 1295}#
+ #{marks\ 1296}#
+ #{symnames\ 1303}#
+ #{fst\ 1301}#)
+ (#{search-list-rib\ 1280}#
+ #{sym\ 1294}#
+ #{subst\ 1295}#
+ #{marks\ 1296}#
+ #{symnames\ 1303}#
+ #{fst\ 1301}#))))))))))
+ (#{search-list-rib\ 1280}#
+ (lambda (#{sym\ 1304}#
+ #{subst\ 1305}#
+ #{marks\ 1306}#
+ #{symnames\ 1307}#
+ #{ribcage\ 1308}#)
(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\ 1317}#
+ (lambda (#{symnames\ 1318}# #{i\ 1319}#)
+ (if (null? #{symnames\ 1318}#)
+ (#{search\ 1278}#
+ #{sym\ 1304}#
+ (cdr #{subst\ 1305}#)
+ #{marks\ 1306}#)
+ (if (if (eq? (car #{symnames\ 1318}#)
+ #{sym\ 1304}#)
+ (#{same-marks?\ 443}#
+ #{marks\ 1306}#
(list-ref
- (#{ribcage-marks\ 2523}#
- #{ribcage\ 3416}#)
- #{i\ 3427}#))
+ (#{ribcage-marks\ 415}#
+ #{ribcage\ 1308}#)
+ #{i\ 1319}#))
#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\ 417}# #{ribcage\ 1308}#)
+ #{i\ 1319}#)
+ #{marks\ 1306}#)
+ (#{f\ 1317}#
+ (cdr #{symnames\ 1318}#)
+ (#{fx+\ 289}# #{i\ 1319}# 1)))))))
+ (begin (#{f\ 1317}# #{symnames\ 1307}# 0)))))
+ (#{search-vector-rib\ 1282}#
+ (lambda (#{sym\ 1327}#
+ #{subst\ 1328}#
+ #{marks\ 1329}#
+ #{symnames\ 1330}#
+ #{ribcage\ 1331}#)
(begin
- (let ((#{n\ 3446}# (vector-length #{symnames\ 3438}#)))
+ (let ((#{n\ 1338}# (vector-length #{symnames\ 1330}#)))
(letrec*
- ((#{f\ 3449}#
- (lambda (#{i\ 3450}#)
- (if (#{fx=\ 2401}# #{i\ 3450}# #{n\ 3446}#)
- (#{search\ 3386}#
- #{sym\ 3435}#
- (cdr #{subst\ 3436}#)
- #{marks\ 3437}#)
+ ((#{f\ 1341}#
+ (lambda (#{i\ 1342}#)
+ (if (#{fx=\ 293}# #{i\ 1342}# #{n\ 1338}#)
+ (#{search\ 1278}#
+ #{sym\ 1327}#
+ (cdr #{subst\ 1328}#)
+ #{marks\ 1329}#)
(if (if (eq? (vector-ref
- #{symnames\ 3438}#
- #{i\ 3450}#)
- #{sym\ 3435}#)
- (#{same-marks?\ 2551}#
- #{marks\ 3437}#
+ #{symnames\ 1330}#
+ #{i\ 1342}#)
+ #{sym\ 1327}#)
+ (#{same-marks?\ 443}#
+ #{marks\ 1329}#
(vector-ref
- (#{ribcage-marks\ 2523}#
- #{ribcage\ 3439}#)
- #{i\ 3450}#))
+ (#{ribcage-marks\ 415}#
+ #{ribcage\ 1331}#)
+ #{i\ 1342}#))
#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\ 417}#
+ #{ribcage\ 1331}#)
+ #{i\ 1342}#)
+ #{marks\ 1329}#)
+ (#{f\ 1341}#
+ (#{fx+\ 289}# #{i\ 1342}# 1)))))))
+ (begin (#{f\ 1341}# 0))))))))
(begin
- (if (symbol? #{id\ 3380}#)
+ (if (symbol? #{id\ 1272}#)
(begin
- (let ((#{t\ 3460}#
+ (let ((#{t\ 1352}#
(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\ 1278}#
+ #{id\ 1272}#
+ (#{wrap-subst\ 397}# #{w\ 1273}#)
+ (#{wrap-marks\ 395}# #{w\ 1273}#)))
+ (lambda (#{x\ 1354}# . #{ignore\ 1355}#)
+ #{x\ 1354}#))))
+ (if #{t\ 1352}# #{t\ 1352}# #{id\ 1272}#)))
+ (if (#{syntax-object?\ 352}# #{id\ 1272}#)
(begin
- (let ((#{id\ 3471}#
- (#{syntax-object-expression\ 2462}#
- #{id\ 3380}#))
- (#{w1\ 3472}#
- (#{syntax-object-wrap\ 2464}# #{id\ 3380}#)))
+ (let ((#{id\ 1363}#
+ (#{syntax-object-expression\ 354}#
+ #{id\ 1272}#))
+ (#{w1\ 1364}#
+ (#{syntax-object-wrap\ 356}# #{id\ 1272}#)))
(begin
- (let ((#{marks\ 3474}#
- (#{join-marks\ 2549}#
- (#{wrap-marks\ 2503}# #{w\ 3381}#)
- (#{wrap-marks\ 2503}# #{w1\ 3472}#))))
+ (let ((#{marks\ 1366}#
+ (#{join-marks\ 441}#
+ (#{wrap-marks\ 395}# #{w\ 1273}#)
+ (#{wrap-marks\ 395}# #{w1\ 1364}#))))
(call-with-values
(lambda ()
- (#{search\ 3386}#
- #{id\ 3471}#
- (#{wrap-subst\ 2505}# #{w\ 3381}#)
- #{marks\ 3474}#))
- (lambda (#{new-id\ 3475}# #{marks\ 3476}#)
+ (#{search\ 1278}#
+ #{id\ 1363}#
+ (#{wrap-subst\ 397}# #{w\ 1273}#)
+ #{marks\ 1366}#))
+ (lambda (#{new-id\ 1367}# #{marks\ 1368}#)
(begin
- (let ((#{t\ 3481}# #{new-id\ 3475}#))
- (if #{t\ 3481}#
- #{t\ 3481}#
+ (let ((#{t\ 1373}# #{new-id\ 1367}#))
+ (if #{t\ 1373}#
+ #{t\ 1373}#
(begin
- (let ((#{t\ 3484}#
+ (let ((#{t\ 1376}#
(call-with-values
(lambda ()
- (#{search\ 3386}#
- #{id\ 3471}#
- (#{wrap-subst\ 2505}#
- #{w1\ 3472}#)
- #{marks\ 3476}#))
- (lambda (#{x\ 3486}#
+ (#{search\ 1278}#
+ #{id\ 1363}#
+ (#{wrap-subst\ 397}#
+ #{w1\ 1364}#)
+ #{marks\ 1368}#))
+ (lambda (#{x\ 1378}#
.
- #{ignore\ 3487}#)
- #{x\ 3486}#))))
- (if #{t\ 3484}#
- #{t\ 3484}#
- #{id\ 3471}#))))))))))))
+ #{ignore\ 1379}#)
+ #{x\ 1378}#))))
+ (if #{t\ 1376}#
+ #{t\ 1376}#
+ #{id\ 1363}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 3380}#)))))))
- (#{free-id=?\ 2555}#
- (lambda (#{i\ 3492}# #{j\ 3493}#)
+ #{id\ 1272}#)))))))
+ (#{free-id=?\ 447}#
+ (lambda (#{i\ 1384}# #{j\ 1385}#)
(if (eq? (begin
- (let ((#{x\ 3499}# #{i\ 3492}#))
- (if (#{syntax-object?\ 2460}# #{x\ 3499}#)
- (#{syntax-object-expression\ 2462}# #{x\ 3499}#)
- #{x\ 3499}#)))
+ (let ((#{x\ 1391}# #{i\ 1384}#))
+ (if (#{syntax-object?\ 352}# #{x\ 1391}#)
+ (#{syntax-object-expression\ 354}# #{x\ 1391}#)
+ #{x\ 1391}#)))
(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\ 1394}# #{j\ 1385}#))
+ (if (#{syntax-object?\ 352}# #{x\ 1394}#)
+ (#{syntax-object-expression\ 354}# #{x\ 1394}#)
+ #{x\ 1394}#))))
+ (eq? (#{id-var-name\ 445}# #{i\ 1384}# (quote (())))
+ (#{id-var-name\ 445}# #{j\ 1385}# (quote (()))))
#f)))
- (#{bound-id=?\ 2557}#
- (lambda (#{i\ 3506}# #{j\ 3507}#)
- (if (if (#{syntax-object?\ 2460}# #{i\ 3506}#)
- (#{syntax-object?\ 2460}# #{j\ 3507}#)
+ (#{bound-id=?\ 449}#
+ (lambda (#{i\ 1398}# #{j\ 1399}#)
+ (if (if (#{syntax-object?\ 352}# #{i\ 1398}#)
+ (#{syntax-object?\ 352}# #{j\ 1399}#)
#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\ 354}# #{i\ 1398}#)
+ (#{syntax-object-expression\ 354}# #{j\ 1399}#))
+ (#{same-marks?\ 443}#
+ (#{wrap-marks\ 395}#
+ (#{syntax-object-wrap\ 356}# #{i\ 1398}#))
+ (#{wrap-marks\ 395}#
+ (#{syntax-object-wrap\ 356}# #{j\ 1399}#)))
#f)
- (eq? #{i\ 3506}# #{j\ 3507}#))))
- (#{valid-bound-ids?\ 2559}#
- (lambda (#{ids\ 3514}#)
+ (eq? #{i\ 1398}# #{j\ 1399}#))))
+ (#{valid-bound-ids?\ 451}#
+ (lambda (#{ids\ 1406}#)
(if (letrec*
- ((#{all-ids?\ 3519}#
- (lambda (#{ids\ 3520}#)
+ ((#{all-ids?\ 1411}#
+ (lambda (#{ids\ 1412}#)
(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\ 1415}# (null? #{ids\ 1412}#)))
+ (if #{t\ 1415}#
+ #{t\ 1415}#
+ (if (#{id?\ 388}# (car #{ids\ 1412}#))
+ (#{all-ids?\ 1411}# (cdr #{ids\ 1412}#))
#f)))))))
- (begin (#{all-ids?\ 3519}# #{ids\ 3514}#)))
- (#{distinct-bound-ids?\ 2561}# #{ids\ 3514}#)
+ (begin (#{all-ids?\ 1411}# #{ids\ 1406}#)))
+ (#{distinct-bound-ids?\ 453}# #{ids\ 1406}#)
#f)))
- (#{distinct-bound-ids?\ 2561}#
- (lambda (#{ids\ 3528}#)
+ (#{distinct-bound-ids?\ 453}#
+ (lambda (#{ids\ 1420}#)
(letrec*
- ((#{distinct?\ 3532}#
- (lambda (#{ids\ 3533}#)
+ ((#{distinct?\ 1424}#
+ (lambda (#{ids\ 1425}#)
(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\ 1428}# (null? #{ids\ 1425}#)))
+ (if #{t\ 1428}#
+ #{t\ 1428}#
+ (if (not (#{bound-id-member?\ 455}#
+ (car #{ids\ 1425}#)
+ (cdr #{ids\ 1425}#)))
+ (#{distinct?\ 1424}# (cdr #{ids\ 1425}#))
#f)))))))
- (begin (#{distinct?\ 3532}# #{ids\ 3528}#)))))
- (#{bound-id-member?\ 2563}#
- (lambda (#{x\ 3540}# #{list\ 3541}#)
- (if (not (null? #{list\ 3541}#))
+ (begin (#{distinct?\ 1424}# #{ids\ 1420}#)))))
+ (#{bound-id-member?\ 455}#
+ (lambda (#{x\ 1432}# #{list\ 1433}#)
+ (if (not (null? #{list\ 1433}#))
(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\ 1440}#
+ (#{bound-id=?\ 449}#
+ #{x\ 1432}#
+ (car #{list\ 1433}#))))
+ (if #{t\ 1440}#
+ #{t\ 1440}#
+ (#{bound-id-member?\ 455}#
+ #{x\ 1432}#
+ (cdr #{list\ 1433}#)))))
#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\ 457}#
+ (lambda (#{x\ 1442}# #{w\ 1443}# #{defmod\ 1444}#)
+ (if (if (null? (#{wrap-marks\ 395}# #{w\ 1443}#))
+ (null? (#{wrap-subst\ 397}# #{w\ 1443}#))
#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\ 1442}#
+ (if (#{syntax-object?\ 352}# #{x\ 1442}#)
+ (#{make-syntax-object\ 350}#
+ (#{syntax-object-expression\ 354}# #{x\ 1442}#)
+ (#{join-wraps\ 439}#
+ #{w\ 1443}#
+ (#{syntax-object-wrap\ 356}# #{x\ 1442}#))
+ (#{syntax-object-module\ 358}# #{x\ 1442}#))
+ (if (null? #{x\ 1442}#)
+ #{x\ 1442}#
+ (#{make-syntax-object\ 350}#
+ #{x\ 1442}#
+ #{w\ 1443}#
+ #{defmod\ 1444}#))))))
+ (#{source-wrap\ 459}#
+ (lambda (#{x\ 1457}#
+ #{w\ 1458}#
+ #{s\ 1459}#
+ #{defmod\ 1460}#)
+ (#{wrap\ 457}#
+ (#{decorate-source\ 306}#
+ #{x\ 1457}#
+ #{s\ 1459}#)
+ #{w\ 1458}#
+ #{defmod\ 1460}#)))
+ (#{chi-sequence\ 461}#
+ (lambda (#{body\ 1465}#
+ #{r\ 1466}#
+ #{w\ 1467}#
+ #{s\ 1468}#
+ #{mod\ 1469}#)
+ (#{build-sequence\ 340}#
+ #{s\ 1468}#
(letrec*
- ((#{dobody\ 3588}#
- (lambda (#{body\ 3589}#
- #{r\ 3590}#
- #{w\ 3591}#
- #{mod\ 3592}#)
- (if (null? #{body\ 3589}#)
+ ((#{dobody\ 1480}#
+ (lambda (#{body\ 1481}#
+ #{r\ 1482}#
+ #{w\ 1483}#
+ #{mod\ 1484}#)
+ (if (null? #{body\ 1481}#)
'()
(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\ 1486}#
+ (#{chi\ 473}#
+ (car #{body\ 1481}#)
+ #{r\ 1482}#
+ #{w\ 1483}#
+ #{mod\ 1484}#)))
+ (cons #{first\ 1486}#
+ (#{dobody\ 1480}#
+ (cdr #{body\ 1481}#)
+ #{r\ 1482}#
+ #{w\ 1483}#
+ #{mod\ 1484}#))))))))
(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\ 1480}#
+ #{body\ 1465}#
+ #{r\ 1466}#
+ #{w\ 1467}#
+ #{mod\ 1469}#))))))
+ (#{chi-top-sequence\ 463}#
+ (lambda (#{body\ 1487}#
+ #{r\ 1488}#
+ #{w\ 1489}#
+ #{s\ 1490}#
+ #{m\ 1491}#
+ #{esew\ 1492}#
+ #{mod\ 1493}#)
+ (#{build-sequence\ 340}#
+ #{s\ 1490}#
(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\ 1509}#
+ (lambda (#{body\ 1510}#
+ #{r\ 1511}#
+ #{w\ 1512}#
+ #{m\ 1513}#
+ #{esew\ 1514}#
+ #{mod\ 1515}#
+ #{out\ 1516}#)
+ (if (null? #{body\ 1510}#)
+ (reverse #{out\ 1516}#)
+ (#{dobody\ 1509}#
+ (cdr #{body\ 1510}#)
+ #{r\ 1511}#
+ #{w\ 1512}#
+ #{m\ 1513}#
+ #{esew\ 1514}#
+ #{mod\ 1515}#
+ (cons (#{chi-top\ 471}#
+ (car #{body\ 1510}#)
+ #{r\ 1511}#
+ #{w\ 1512}#
+ #{m\ 1513}#
+ #{esew\ 1514}#
+ #{mod\ 1515}#)
+ #{out\ 1516}#))))))
(begin
- (#{dobody\ 3617}#
- #{body\ 3595}#
- #{r\ 3596}#
- #{w\ 3597}#
- #{m\ 3599}#
- #{esew\ 3600}#
- #{mod\ 3601}#
+ (#{dobody\ 1509}#
+ #{body\ 1487}#
+ #{r\ 1488}#
+ #{w\ 1489}#
+ #{m\ 1491}#
+ #{esew\ 1492}#
+ #{mod\ 1493}#
'()))))))
- (#{chi-install-global\ 2573}#
- (lambda (#{name\ 3625}# #{e\ 3626}#)
- (#{build-global-definition\ 2436}#
+ (#{chi-install-global\ 465}#
+ (lambda (#{name\ 1517}# #{e\ 1518}#)
+ (#{build-global-definition\ 328}#
#f
- #{name\ 3625}#
- (#{build-application\ 2420}#
+ #{name\ 1517}#
+ (#{build-application\ 312}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 336}#
#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\ 338}# #f #{name\ 1517}#)
+ (#{build-data\ 338}# #f (quote macro))
+ #{e\ 1518}#)))))
+ (#{chi-when-list\ 467}#
+ (lambda (#{e\ 1526}# #{when-list\ 1527}# #{w\ 1528}#)
(letrec*
- ((#{f\ 3643}#
- (lambda (#{when-list\ 3644}# #{situations\ 3645}#)
- (if (null? #{when-list\ 3644}#)
- #{situations\ 3645}#
- (#{f\ 3643}#
- (cdr #{when-list\ 3644}#)
+ ((#{f\ 1535}#
+ (lambda (#{when-list\ 1536}# #{situations\ 1537}#)
+ (if (null? #{when-list\ 1536}#)
+ #{situations\ 1537}#
+ (#{f\ 1535}#
+ (cdr #{when-list\ 1536}#)
(cons (begin
- (let ((#{x\ 3647}# (car #{when-list\ 3644}#)))
- (if (#{free-id=?\ 2555}#
- #{x\ 3647}#
+ (let ((#{x\ 1539}# (car #{when-list\ 1536}#)))
+ (if (#{free-id=?\ 447}#
+ #{x\ 1539}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3646"))
+ #(ribcage #(x) #((top)) #("i1538"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1532" "i1533" "i1534"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1529" "i1530" "i1531"))
#(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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=?\ 447}#
+ #{x\ 1539}#
'#(syntax-object
load
((top)
@@ -1664,17 +1652,17 @@
#(ribcage
#(x)
#((top))
- #("i3646"))
+ #("i1538"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1532" "i1533" "i1534"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1529" "i1530" "i1531"))
#(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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=?\ 447}#
+ #{x\ 1539}#
'#(syntax-object
eval
((top)
@@ -2110,17 +2095,17 @@
#(ribcage
#(x)
#((top))
- #("i3646"))
+ #("i1538"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1532" "i1533" "i1534"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1529" "i1530" "i1531"))
#(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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=?\ 447}#
+ #{x\ 1539}#
'#(syntax-object
expand
((top)
@@ -2556,17 +2538,17 @@
#(ribcage
#(x)
#((top))
- #("i3646"))
+ #("i1538"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i3640" "i3641" "i3642"))
+ #("i1532" "i1533" "i1534"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i3637" "i3638" "i3639"))
+ #("i1529" "i1530" "i1531"))
#(ribcage
(lambda-var-list
gen-var
@@ -2842,405 +2824,402 @@
(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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\ 1526}#
+ (#{wrap\ 457}#
+ #{x\ 1539}#
+ #{w\ 1528}#
#f))))))))
- #{situations\ 3645}#))))))
+ #{situations\ 1537}#))))))
(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\ 1535}# #{when-list\ 1527}# (quote ()))))))
+ (#{syntax-type\ 469}#
+ (lambda (#{e\ 1549}#
+ #{r\ 1550}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{rib\ 1553}#
+ #{mod\ 1554}#
+ #{for-car?\ 1555}#)
+ (if (symbol? #{e\ 1549}#)
(begin
- (let ((#{n\ 3675}#
- (#{id-var-name\ 2553}# #{e\ 3657}# #{w\ 3659}#)))
+ (let ((#{n\ 1567}#
+ (#{id-var-name\ 445}# #{e\ 1549}# #{w\ 1551}#)))
(begin
- (let ((#{b\ 3677}#
- (#{lookup\ 2490}#
- #{n\ 3675}#
- #{r\ 3658}#
- #{mod\ 3662}#)))
+ (let ((#{b\ 1569}#
+ (#{lookup\ 382}#
+ #{n\ 1567}#
+ #{r\ 1550}#
+ #{mod\ 1554}#)))
(begin
- (let ((#{type\ 3679}#
- (#{binding-type\ 2479}# #{b\ 3677}#)))
- (if (eqv? #{type\ 3679}# (quote lexical))
+ (let ((#{type\ 1571}#
+ (#{binding-type\ 371}# #{b\ 1569}#)))
+ (if (eqv? #{type\ 1571}# (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\ 1571}#
+ (#{binding-value\ 373}# #{b\ 1569}#)
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{type\ 1571}# (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\ 1571}#
+ #{n\ 1567}#
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{type\ 1571}# (quote macro))
+ (if #{for-car?\ 1555}#
(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\ 1571}#
+ (#{binding-value\ 373}# #{b\ 1569}#)
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (#{syntax-type\ 469}#
+ (#{chi-macro\ 479}#
+ (#{binding-value\ 373}# #{b\ 1569}#)
+ #{e\ 1549}#
+ #{r\ 1550}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{rib\ 1553}#
+ #{mod\ 1554}#)
+ #{r\ 1550}#
'(())
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#
+ #{s\ 1552}#
+ #{rib\ 1553}#
+ #{mod\ 1554}#
#f))
(values
- #{type\ 3679}#
- (#{binding-value\ 2481}# #{b\ 3677}#)
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#))))))))))
- (if (pair? #{e\ 3657}#)
+ #{type\ 1571}#
+ (#{binding-value\ 373}# #{b\ 1569}#)
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#))))))))))
+ (if (pair? #{e\ 1549}#)
(begin
- (let ((#{first\ 3688}# (car #{e\ 3657}#)))
+ (let ((#{first\ 1580}# (car #{e\ 1549}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{first\ 3688}#
- #{r\ 3658}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#
+ (#{syntax-type\ 469}#
+ #{first\ 1580}#
+ #{r\ 1550}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{rib\ 1553}#
+ #{mod\ 1554}#
#t))
- (lambda (#{ftype\ 3689}#
- #{fval\ 3690}#
- #{fe\ 3691}#
- #{fw\ 3692}#
- #{fs\ 3693}#
- #{fmod\ 3694}#)
- (if (eqv? #{ftype\ 3689}# (quote lexical))
+ (lambda (#{ftype\ 1581}#
+ #{fval\ 1582}#
+ #{fe\ 1583}#
+ #{fw\ 1584}#
+ #{fs\ 1585}#
+ #{fmod\ 1586}#)
+ (if (eqv? #{ftype\ 1581}# (quote lexical))
(values
'lexical-call
- #{fval\ 3690}#
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}# (quote global))
+ #{fval\ 1582}#
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{ftype\ 1581}# (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\ 350}#
+ #{fval\ 1582}#
+ #{w\ 1551}#
+ #{fmod\ 1586}#)
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{ftype\ 1581}# (quote macro))
+ (#{syntax-type\ 469}#
+ (#{chi-macro\ 479}#
+ #{fval\ 1582}#
+ #{e\ 1549}#
+ #{r\ 1550}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{rib\ 1553}#
+ #{mod\ 1554}#)
+ #{r\ 1550}#
'(())
- #{s\ 3660}#
- #{rib\ 3661}#
- #{mod\ 3662}#
- #{for-car?\ 3663}#)
- (if (eqv? #{ftype\ 3689}# (quote module-ref))
+ #{s\ 1552}#
+ #{rib\ 1553}#
+ #{mod\ 1554}#
+ #{for-car?\ 1555}#)
+ (if (eqv? #{ftype\ 1581}# (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\ 1582}#
+ #{e\ 1549}#
+ #{r\ 1550}#
+ #{w\ 1551}#))
+ (lambda (#{e\ 1598}#
+ #{r\ 1599}#
+ #{w\ 1600}#
+ #{s\ 1601}#
+ #{mod\ 1602}#)
+ (#{syntax-type\ 469}#
+ #{e\ 1598}#
+ #{r\ 1599}#
+ #{w\ 1600}#
+ #{s\ 1601}#
+ #{rib\ 1553}#
+ #{mod\ 1602}#
+ #{for-car?\ 1555}#)))
+ (if (eqv? #{ftype\ 1581}# (quote core))
(values
'core-form
- #{fval\ 3690}#
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}#
+ #{fval\ 1582}#
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{ftype\ 1581}#
'local-syntax)
(values
'local-syntax-form
- #{fval\ 3690}#
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}# (quote begin))
+ #{fval\ 1582}#
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{ftype\ 1581}# (quote begin))
(values
'begin-form
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}#
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{ftype\ 1581}#
'eval-when)
(values
'eval-when-form
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
- (if (eqv? #{ftype\ 3689}#
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
+ (if (eqv? #{ftype\ 1581}#
'define)
- (let ((#{tmp\ 3721}# #{e\ 3657}#))
- (let ((#{tmp\ 3722}#
+ (let ((#{tmp\ 1613}# #{e\ 1549}#))
+ (let ((#{tmp\ 1614}#
($sc-dispatch
- #{tmp\ 3721}#
+ #{tmp\ 1613}#
'(any any any))))
- (if (if #{tmp\ 3722}#
+ (if (if #{tmp\ 1614}#
(@apply
- (lambda (#{_\ 3726}#
- #{name\ 3727}#
- #{val\ 3728}#)
- (#{id?\ 2496}#
- #{name\ 3727}#))
- #{tmp\ 3722}#)
+ (lambda (#{_\ 1618}#
+ #{name\ 1619}#
+ #{val\ 1620}#)
+ (#{id?\ 388}#
+ #{name\ 1619}#))
+ #{tmp\ 1614}#)
#f)
(@apply
- (lambda (#{_\ 3732}#
- #{name\ 3733}#
- #{val\ 3734}#)
+ (lambda (#{_\ 1624}#
+ #{name\ 1625}#
+ #{val\ 1626}#)
(values
'define-form
- #{name\ 3733}#
- #{val\ 3734}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3722}#)
- (let ((#{tmp\ 3735}#
+ #{name\ 1625}#
+ #{val\ 1626}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#))
+ #{tmp\ 1614}#)
+ (let ((#{tmp\ 1627}#
($sc-dispatch
- #{tmp\ 3721}#
+ #{tmp\ 1613}#
'(any (any . any)
any
.
each-any))))
- (if (if #{tmp\ 3735}#
+ (if (if #{tmp\ 1627}#
(@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 (#{_\ 1633}#
+ #{name\
1634}#
+ #{args\
1635}#
+ #{e1\
1636}#
+ #{e2\
1637}#)
+ (if (#{id?\ 388}#
+ #{name\
1634}#)
+
(#{valid-bound-ids?\ 451}#
+
(#{lambda-var-list\ 503}#
+ #{args\
1635}#))
#f))
- #{tmp\ 3735}#)
+ #{tmp\ 1627}#)
#f)
(@apply
- (lambda (#{_\ 3753}#
- #{name\ 3754}#
- #{args\ 3755}#
- #{e1\ 3756}#
- #{e2\ 3757}#)
+ (lambda (#{_\ 1645}#
+ #{name\ 1646}#
+ #{args\ 1647}#
+ #{e1\ 1648}#
+ #{e2\ 1649}#)
(values
'define-form
- (#{wrap\ 2565}#
- #{name\ 3754}#
- #{w\ 3659}#
- #{mod\ 3662}#)
- (#{decorate-source\
2414}#
+ (#{wrap\ 457}#
+ #{name\ 1646}#
+ #{w\ 1551}#
+ #{mod\ 1554}#)
+ (#{decorate-source\
306}#
(cons
'#(syntax-object
lambda
((top)
@@ -3255,11 +3234,11 @@
(top)
(top)
(top))
-
#("i3748"
-
"i3749"
-
"i3750"
-
"i3751"
-
"i3752"))
+
#("i1640"
+
"i1641"
+
"i1642"
+
"i1643"
+
"i1644"))
#(ribcage
()
()
@@ -3281,12 +3260,12 @@
(top)
(top)
(top))
-
#("i3695"
-
"i3696"
-
"i3697"
-
"i3698"
-
"i3699"
-
"i3700"))
+
#("i1587"
+
"i1588"
+
"i1589"
+
"i1590"
+
"i1591"
+
"i1592"))
#(ribcage
()
()
@@ -3294,7 +3273,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1579"))
#(ribcage
()
()
@@ -3322,13 +3301,13 @@
(top)
(top)
(top))
-
#("i3664"
-
"i3665"
-
"i3666"
-
"i3667"
-
"i3668"
-
"i3669"
-
"i3670"))
+
#("i1556"
+
"i1557"
+
"i1558"
+
"i1559"
+
"i1560"
+
"i1561"
+
"i1562"))
#(ribcage
(lambda-var-list
gen-var
@@ -3604,143 +3583,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"))
+
("i502"
+
"i500"
+
"i498"
+
"i496"
+
"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"
+
"i431"
+
"i430"
+
"i428"
+
"i427"
+
"i426"
+
"i425"
+
"i424"
+
"i422"
+
"i420"
+
"i418"
+
"i416"
+
"i414"
+
"i412"
+
"i410"
+
"i408"
+
"i405"
+
"i403"
+
"i402"
+
"i401"
+
"i400"
+
"i399"
+
"i398"
+
"i396"
+
"i394"
+
"i392"
+
"i390"
+
"i389"
+
"i387"
+
"i385"
+
"i383"
+
"i381"
+
"i379"
+
"i377"
+
"i375"
+
"i374"
+
"i372"
+
"i370"
+
"i369"
+
"i368"
+
"i366"
+
"i365"
+
"i363"
+
"i361"
+
"i359"
+
"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"
+
"i300"
+
"i298"
+
"i296"
+
"i294"
+
"i292"
+
"i290"
+
"i288"
+
"i286"
+
"i284"
+
"i282"
+
"i279"
+
"i277"
+
"i275"
+
"i273"
+
"i271"
+
"i269"
+
"i267"
+
"i265"
+
"i263"
+
"i261"
+
"i259"
+
"i257"
+
"i255"
+
"i253"
+
"i251"
+
"i249"
+
"i247"
+
"i245"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3750,44 +3729,44 @@
(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\
457}#
+ (cons
#{args\ 1647}#
+
(cons #{e1\ 1648}#
+
#{e2\ 1649}#))
+ #{w\
1551}#
+ #{mod\
1554}#))
+ #{s\ 1552}#)
'(())
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3735}#)
- (let ((#{tmp\ 3760}#
+ #{s\ 1552}#
+ #{mod\ 1554}#))
+ #{tmp\ 1627}#)
+ (let ((#{tmp\ 1652}#
($sc-dispatch
- #{tmp\ 3721}#
+ #{tmp\ 1613}#
'(any any))))
- (if (if #{tmp\ 3760}#
+ (if (if #{tmp\ 1652}#
(@apply
- (lambda (#{_\
3763}#
-
#{name\ 3764}#)
- (#{id?\ 2496}#
- #{name\
3764}#))
- #{tmp\ 3760}#)
+ (lambda (#{_\
1655}#
+
#{name\ 1656}#)
+ (#{id?\ 388}#
+ #{name\
1656}#))
+ #{tmp\ 1652}#)
#f)
(@apply
- (lambda (#{_\ 3767}#
- #{name\
3768}#)
+ (lambda (#{_\ 1659}#
+ #{name\
1660}#)
(values
'define-form
- (#{wrap\ 2565}#
- #{name\ 3768}#
- #{w\ 3659}#
- #{mod\ 3662}#)
+ (#{wrap\ 457}#
+ #{name\ 1660}#
+ #{w\ 1551}#
+ #{mod\ 1554}#)
'(#(syntax-object
if
((top)
@@ -3795,8 +3774,8 @@
#(_ name)
#((top)
(top))
- #("i3765"
-
"i3766"))
+ #("i1657"
+
"i1658"))
#(ribcage
()
()
@@ -3818,12 +3797,12 @@
(top)
(top)
(top))
- #("i3695"
- "i3696"
- "i3697"
- "i3698"
- "i3699"
-
"i3700"))
+ #("i1587"
+ "i1588"
+ "i1589"
+ "i1590"
+ "i1591"
+
"i1592"))
#(ribcage
()
()
@@ -3831,7 +3810,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1579"))
#(ribcage
()
()
@@ -3859,13 +3838,13 @@
(top)
(top)
(top))
- #("i3664"
- "i3665"
- "i3666"
- "i3667"
- "i3668"
- "i3669"
-
"i3670"))
+ #("i1556"
+ "i1557"
+ "i1558"
+ "i1559"
+ "i1560"
+ "i1561"
+
"i1562"))
#(ribcage
(lambda-var-list
gen-var
@@ -4141,143 +4120,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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4287,10 +4266,10 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
-
"i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile))
#(syntax-object
@@ -4300,8 +4279,8 @@
#(_ name)
#((top)
(top))
- #("i3765"
-
"i3766"))
+ #("i1657"
+
"i1658"))
#(ribcage
()
()
@@ -4323,12 +4302,12 @@
(top)
(top)
(top))
- #("i3695"
- "i3696"
- "i3697"
- "i3698"
- "i3699"
-
"i3700"))
+ #("i1587"
+ "i1588"
+ "i1589"
+ "i1590"
+ "i1591"
+
"i1592"))
#(ribcage
()
()
@@ -4336,7 +4315,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1579"))
#(ribcage
()
()
@@ -4364,13 +4343,13 @@
(top)
(top)
(top))
- #("i3664"
- "i3665"
- "i3666"
- "i3667"
- "i3668"
- "i3669"
-
"i3670"))
+ #("i1556"
+ "i1557"
+ "i1558"
+ "i1559"
+ "i1560"
+ "i1561"
+
"i1562"))
#(ribcage
(lambda-var-list
gen-var
@@ -4646,143 +4625,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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4792,10 +4771,10 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
-
"i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile))
#(syntax-object
@@ -4805,8 +4784,8 @@
#(_ name)
#((top)
(top))
- #("i3765"
-
"i3766"))
+ #("i1657"
+
"i1658"))
#(ribcage
()
()
@@ -4828,12 +4807,12 @@
(top)
(top)
(top))
- #("i3695"
- "i3696"
- "i3697"
- "i3698"
- "i3699"
-
"i3700"))
+ #("i1587"
+ "i1588"
+ "i1589"
+ "i1590"
+ "i1591"
+
"i1592"))
#(ribcage
()
()
@@ -4841,7 +4820,7 @@
#(ribcage
#(first)
#((top))
-
#("i3687"))
+
#("i1579"))
#(ribcage
()
()
@@ -4869,13 +4848,13 @@
(top)
(top)
(top))
- #("i3664"
- "i3665"
- "i3666"
- "i3667"
- "i3668"
- "i3669"
-
"i3670"))
+ #("i1556"
+ "i1557"
+ "i1558"
+ "i1559"
+ "i1560"
+ "i1561"
+
"i1562"))
#(ribcage
(lambda-var-list
gen-var
@@ -5151,143 +5130,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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -5297,1233 +5276,1233 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
-
"i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile)))
'(())
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3760}#)
+ #{s\ 1552}#
+ #{mod\ 1554}#))
+ #{tmp\ 1652}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\
3721}#))))))))
- (if (eqv? #{ftype\ 3689}#
+ #{tmp\
1613}#))))))))
+ (if (eqv? #{ftype\ 1581}#
'define-syntax)
- (let ((#{tmp\ 3771}# #{e\ 3657}#))
- (let ((#{tmp\ 3772}#
+ (let ((#{tmp\ 1663}# #{e\ 1549}#))
+ (let ((#{tmp\ 1664}#
($sc-dispatch
- #{tmp\ 3771}#
+ #{tmp\ 1663}#
'(any any any))))
- (if (if #{tmp\ 3772}#
+ (if (if #{tmp\ 1664}#
(@apply
- (lambda (#{_\ 3776}#
- #{name\
3777}#
- #{val\
3778}#)
- (#{id?\ 2496}#
- #{name\ 3777}#))
- #{tmp\ 3772}#)
+ (lambda (#{_\ 1668}#
+ #{name\
1669}#
+ #{val\
1670}#)
+ (#{id?\ 388}#
+ #{name\ 1669}#))
+ #{tmp\ 1664}#)
#f)
(@apply
- (lambda (#{_\ 3782}#
- #{name\ 3783}#
- #{val\ 3784}#)
+ (lambda (#{_\ 1674}#
+ #{name\ 1675}#
+ #{val\ 1676}#)
(values
'define-syntax-form
- #{name\ 3783}#
- #{val\ 3784}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#))
- #{tmp\ 3772}#)
+ #{name\ 1675}#
+ #{val\ 1676}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#))
+ #{tmp\ 1664}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 3771}#))))
+ #{tmp\ 1663}#))))
(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\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)))))))))))))))
+ (if (#{syntax-object?\ 352}# #{e\ 1549}#)
+ (#{syntax-type\ 469}#
+ (#{syntax-object-expression\ 354}# #{e\ 1549}#)
+ #{r\ 1550}#
+ (#{join-wraps\ 439}#
+ #{w\ 1551}#
+ (#{syntax-object-wrap\ 356}# #{e\ 1549}#))
(begin
- (let ((#{t\ 3790}#
- (#{source-annotation\ 2475}# #{e\ 3657}#)))
- (if #{t\ 3790}# #{t\ 3790}# #{s\ 3660}#)))
- #{rib\ 3661}#
+ (let ((#{t\ 1682}#
+ (#{source-annotation\ 367}# #{e\ 1549}#)))
+ (if #{t\ 1682}# #{t\ 1682}# #{s\ 1552}#)))
+ #{rib\ 1553}#
(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\ 1686}#
+ (#{syntax-object-module\ 358}# #{e\ 1549}#)))
+ (if #{t\ 1686}# #{t\ 1686}# #{mod\ 1554}#)))
+ #{for-car?\ 1555}#)
+ (if (self-evaluating? #{e\ 1549}#)
(values
'constant
#f
- #{e\ 3657}#
- #{w\ 3659}#
- #{s\ 3660}#
- #{mod\ 3662}#)
+ #{e\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)
(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\ 1549}#
+ #{w\ 1551}#
+ #{s\ 1552}#
+ #{mod\ 1554}#)))))))
+ (#{chi-top\ 471}#
+ (lambda (#{e\ 1691}#
+ #{r\ 1692}#
+ #{w\ 1693}#
+ #{m\ 1694}#
+ #{esew\ 1695}#
+ #{mod\ 1696}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{e\ 3799}#
- #{r\ 3800}#
- #{w\ 3801}#
- (#{source-annotation\ 2475}# #{e\ 3799}#)
+ (#{syntax-type\ 469}#
+ #{e\ 1691}#
+ #{r\ 1692}#
+ #{w\ 1693}#
+ (#{source-annotation\ 367}# #{e\ 1691}#)
#f
- #{mod\ 3804}#
+ #{mod\ 1696}#
#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\ 1717}#
+ #{value\ 1718}#
+ #{e\ 1719}#
+ #{w\ 1720}#
+ #{s\ 1721}#
+ #{mod\ 1722}#)
+ (if (eqv? #{type\ 1717}# (quote begin-form))
+ (let ((#{tmp\ 1730}# #{e\ 1719}#))
+ (let ((#{tmp\ 1731}#
+ ($sc-dispatch #{tmp\ 1730}# (quote (any)))))
+ (if #{tmp\ 1731}#
(@apply
- (lambda (#{_\ 3841}#) (#{chi-void\ 2595}#))
- #{tmp\ 3839}#)
- (let ((#{tmp\ 3842}#
+ (lambda (#{_\ 1733}#) (#{chi-void\ 487}#))
+ #{tmp\ 1731}#)
+ (let ((#{tmp\ 1734}#
($sc-dispatch
- #{tmp\ 3838}#
+ #{tmp\ 1730}#
'(any any . each-any))))
- (if #{tmp\ 3842}#
+ (if #{tmp\ 1734}#
(@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 (#{_\ 1738}# #{e1\ 1739}# #{e2\ 1740}#)
+ (#{chi-top-sequence\ 463}#
+ (cons #{e1\ 1739}# #{e2\ 1740}#)
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
+ #{m\ 1694}#
+ #{esew\ 1695}#
+ #{mod\ 1722}#))
+ #{tmp\ 1734}#)
(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\ 1730}#))))))
+ (if (eqv? #{type\ 1717}# (quote local-syntax-form))
+ (#{chi-local-syntax\ 483}#
+ #{value\ 1718}#
+ #{e\ 1719}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
+ #{mod\ 1722}#
+ (lambda (#{body\ 1743}#
+ #{r\ 1744}#
+ #{w\ 1745}#
+ #{s\ 1746}#
+ #{mod\ 1747}#)
+ (#{chi-top-sequence\ 463}#
+ #{body\ 1743}#
+ #{r\ 1744}#
+ #{w\ 1745}#
+ #{s\ 1746}#
+ #{m\ 1694}#
+ #{esew\ 1695}#
+ #{mod\ 1747}#)))
+ (if (eqv? #{type\ 1717}# (quote eval-when-form))
+ (let ((#{tmp\ 1754}# #{e\ 1719}#))
+ (let ((#{tmp\ 1755}#
($sc-dispatch
- #{tmp\ 3862}#
+ #{tmp\ 1754}#
'(any each-any any . each-any))))
- (if #{tmp\ 3863}#
+ (if #{tmp\ 1755}#
(@apply
- (lambda (#{_\ 3868}#
- #{x\ 3869}#
- #{e1\ 3870}#
- #{e2\ 3871}#)
+ (lambda (#{_\ 1760}#
+ #{x\ 1761}#
+ #{e1\ 1762}#
+ #{e2\ 1763}#)
(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\ 1766}#
+ (#{chi-when-list\ 467}#
+ #{e\ 1719}#
+ #{x\ 1761}#
+ #{w\ 1720}#))
+ (#{body\ 1767}#
+ (cons #{e1\ 1762}# #{e2\ 1763}#)))
+ (if (eq? #{m\ 1694}# (quote e))
(if (memq 'eval
- #{when-list\ 3874}#)
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ #{when-list\ 1766}#)
+ (#{chi-top-sequence\ 463}#
+ #{body\ 1767}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
(if (memq 'expand
- #{when-list\ 3874}#)
+ #{when-list\ 1766}#)
'c&e
'e)
'(eval)
- #{mod\ 3830}#)
+ #{mod\ 1722}#)
(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\ 1766}#)
+ (#{top-level-eval-hook\ 297}#
+ (#{chi-top-sequence\ 463}#
+ #{body\ 1767}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
'e
'(eval)
- #{mod\ 3830}#)
- #{mod\ 3830}#))
- (#{chi-void\ 2595}#)))
+ #{mod\ 1722}#)
+ #{mod\ 1722}#))
+ (#{chi-void\ 487}#)))
(if (memq 'load
- #{when-list\ 3874}#)
+ #{when-list\ 1766}#)
(if (begin
- (let ((#{t\ 3884}#
+ (let ((#{t\ 1776}#
(memq 'compile
- #{when-list\
3874}#)))
- (if #{t\ 3884}#
- #{t\ 3884}#
+ #{when-list\
1766}#)))
+ (if #{t\ 1776}#
+ #{t\ 1776}#
(begin
- (let ((#{t\ 3887}#
+ (let ((#{t\ 1779}#
(memq 'expand
-
#{when-list\ 3874}#)))
- (if #{t\ 3887}#
- #{t\ 3887}#
- (if (eq? #{m\ 3802}#
+
#{when-list\ 1766}#)))
+ (if #{t\ 1779}#
+ #{t\ 1779}#
+ (if (eq? #{m\ 1694}#
'c&e)
(memq 'eval
- #{when-list\
3874}#)
+ #{when-list\
1766}#)
#f)))))))
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ (#{chi-top-sequence\ 463}#
+ #{body\ 1767}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
'c&e
'(compile load)
- #{mod\ 3830}#)
- (if (if (eq? #{m\ 3802}# (quote c))
+ #{mod\ 1722}#)
+ (if (if (eq? #{m\ 1694}# (quote c))
#t
- (eq? #{m\ 3802}# (quote c&e)))
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ (eq? #{m\ 1694}# (quote c&e)))
+ (#{chi-top-sequence\ 463}#
+ #{body\ 1767}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
'c
'(load)
- #{mod\ 3830}#)
- (#{chi-void\ 2595}#)))
+ #{mod\ 1722}#)
+ (#{chi-void\ 487}#)))
(if (begin
- (let ((#{t\ 3895}#
+ (let ((#{t\ 1787}#
(memq 'compile
- #{when-list\
3874}#)))
- (if #{t\ 3895}#
- #{t\ 3895}#
+ #{when-list\
1766}#)))
+ (if #{t\ 1787}#
+ #{t\ 1787}#
(begin
- (let ((#{t\ 3898}#
+ (let ((#{t\ 1790}#
(memq 'expand
-
#{when-list\ 3874}#)))
- (if #{t\ 3898}#
- #{t\ 3898}#
- (if (eq? #{m\ 3802}#
+
#{when-list\ 1766}#)))
+ (if #{t\ 1790}#
+ #{t\ 1790}#
+ (if (eq? #{m\ 1694}#
'c&e)
(memq 'eval
- #{when-list\
3874}#)
+ #{when-list\
1766}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 2405}#
- (#{chi-top-sequence\ 2571}#
- #{body\ 3875}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
+ (#{top-level-eval-hook\ 297}#
+ (#{chi-top-sequence\ 463}#
+ #{body\ 1767}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
'e
'(eval)
- #{mod\ 3830}#)
- #{mod\ 3830}#)
- (#{chi-void\ 2595}#))
- (#{chi-void\ 2595}#)))))))
- #{tmp\ 3863}#)
+ #{mod\ 1722}#)
+ #{mod\ 1722}#)
+ (#{chi-void\ 487}#))
+ (#{chi-void\ 487}#)))))))
+ #{tmp\ 1755}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3862}#))))
- (if (eqv? #{type\ 3825}# (quote define-syntax-form))
+ #{tmp\ 1754}#))))
+ (if (eqv? #{type\ 1717}# (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\ 1798}#
+ (#{id-var-name\ 445}#
+ #{value\ 1718}#
+ #{w\ 1720}#))
+ (#{r\ 1799}#
+ (#{macros-only-env\ 380}# #{r\ 1692}#)))
+ (if (eqv? #{m\ 1694}# (quote c))
+ (if (memq (quote compile) #{esew\ 1695}#)
(begin
- (let ((#{e\ 3910}#
- (#{chi-install-global\ 2573}#
- #{n\ 3906}#
- (#{chi\ 2581}#
- #{e\ 3827}#
- #{r\ 3907}#
- #{w\ 3828}#
- #{mod\ 3830}#))))
+ (let ((#{e\ 1802}#
+ (#{chi-install-global\ 465}#
+ #{n\ 1798}#
+ (#{chi\ 473}#
+ #{e\ 1719}#
+ #{r\ 1799}#
+ #{w\ 1720}#
+ #{mod\ 1722}#))))
(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\ 297}#
+ #{e\ 1802}#
+ #{mod\ 1722}#)
+ (if (memq (quote load) #{esew\ 1695}#)
+ #{e\ 1802}#
+ (#{chi-void\ 487}#)))))
+ (if (memq (quote load) #{esew\ 1695}#)
+ (#{chi-install-global\ 465}#
+ #{n\ 1798}#
+ (#{chi\ 473}#
+ #{e\ 1719}#
+ #{r\ 1799}#
+ #{w\ 1720}#
+ #{mod\ 1722}#))
+ (#{chi-void\ 487}#)))
+ (if (eqv? #{m\ 1694}# (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\ 1805}#
+ (#{chi-install-global\ 465}#
+ #{n\ 1798}#
+ (#{chi\ 473}#
+ #{e\ 1719}#
+ #{r\ 1799}#
+ #{w\ 1720}#
+ #{mod\ 1722}#))))
(begin
- (#{top-level-eval-hook\ 2405}#
- #{e\ 3913}#
- #{mod\ 3830}#)
- #{e\ 3913}#)))
+ (#{top-level-eval-hook\ 297}#
+ #{e\ 1805}#
+ #{mod\ 1722}#)
+ #{e\ 1805}#)))
(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\ 1695}#)
+ (#{top-level-eval-hook\ 297}#
+ (#{chi-install-global\ 465}#
+ #{n\ 1798}#
+ (#{chi\ 473}#
+ #{e\ 1719}#
+ #{r\ 1799}#
+ #{w\ 1720}#
+ #{mod\ 1722}#))
+ #{mod\ 1722}#))
+ (#{chi-void\ 487}#))))))
+ (if (eqv? #{type\ 1717}# (quote define-form))
(begin
- (let ((#{n\ 3918}#
- (#{id-var-name\ 2553}#
- #{value\ 3826}#
- #{w\ 3828}#)))
+ (let ((#{n\ 1810}#
+ (#{id-var-name\ 445}#
+ #{value\ 1718}#
+ #{w\ 1720}#)))
(begin
- (let ((#{type\ 3920}#
- (#{binding-type\ 2479}#
- (#{lookup\ 2490}#
- #{n\ 3918}#
- #{r\ 3800}#
- #{mod\ 3830}#))))
- (if (if (eqv? #{type\ 3920}# (quote global))
+ (let ((#{type\ 1812}#
+ (#{binding-type\ 371}#
+ (#{lookup\ 382}#
+ #{n\ 1810}#
+ #{r\ 1692}#
+ #{mod\ 1722}#))))
+ (if (if (eqv? #{type\ 1812}# (quote global))
#t
- (if (eqv? #{type\ 3920}# (quote core))
+ (if (eqv? #{type\ 1812}# (quote core))
#t
- (if (eqv? #{type\ 3920}#
+ (if (eqv? #{type\ 1812}#
'macro)
#t
- (eqv? #{type\ 3920}#
+ (eqv? #{type\ 1812}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 3802}# (quote c))
+ (if (if (if (eq? #{m\ 1694}# (quote c))
#t
- (eq? #{m\ 3802}# (quote c&e)))
+ (eq? #{m\ 1694}# (quote c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 3918}#))
+ #{n\ 1810}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 3926}#
+ (let ((#{old\ 1818}#
(module-variable
(current-module)
- #{n\ 3918}#)))
+ #{n\ 1810}#)))
(module-define!
(current-module)
- #{n\ 3918}#
- (if (variable? #{old\ 3926}#)
- (variable-ref #{old\ 3926}#)
+ #{n\ 1810}#
+ (if (variable? #{old\ 1818}#)
+ (variable-ref #{old\ 1818}#)
#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\ 1821}#
+ (#{build-global-definition\
328}#
+ #{s\ 1721}#
+ #{n\ 1810}#
+ (#{chi\ 473}#
+ #{e\ 1719}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{mod\ 1722}#))))
(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\ 1694}# (quote c&e))
+ (#{top-level-eval-hook\ 297}#
+ #{x\ 1821}#
+ #{mod\ 1722}#))
+ #{x\ 1821}#))))
+ (if (eqv? #{type\ 1812}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 3827}#
- (#{wrap\ 2565}#
- #{value\ 3826}#
- #{w\ 3828}#
- #{mod\ 3830}#))
+ #{e\ 1719}#
+ (#{wrap\ 457}#
+ #{value\ 1718}#
+ #{w\ 1720}#
+ #{mod\ 1722}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 3827}#
- (#{wrap\ 2565}#
- #{value\ 3826}#
- #{w\ 3828}#
- #{mod\ 3830}#))))))))
+ #{e\ 1719}#
+ (#{wrap\ 457}#
+ #{value\ 1718}#
+ #{w\ 1720}#
+ #{mod\ 1722}#))))))))
(begin
- (let ((#{x\ 3935}#
- (#{chi-expr\ 2583}#
- #{type\ 3825}#
- #{value\ 3826}#
- #{e\ 3827}#
- #{r\ 3800}#
- #{w\ 3828}#
- #{s\ 3829}#
- #{mod\ 3830}#)))
+ (let ((#{x\ 1827}#
+ (#{chi-expr\ 475}#
+ #{type\ 1717}#
+ #{value\ 1718}#
+ #{e\ 1719}#
+ #{r\ 1692}#
+ #{w\ 1720}#
+ #{s\ 1721}#
+ #{mod\ 1722}#)))
(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\ 1694}# (quote c&e))
+ (#{top-level-eval-hook\ 297}#
+ #{x\ 1827}#
+ #{mod\ 1722}#))
+ #{x\ 1827}#))))))))))))
+ (#{chi\ 473}#
+ (lambda (#{e\ 1828}#
+ #{r\ 1829}#
+ #{w\ 1830}#
+ #{mod\ 1831}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{e\ 3936}#
- #{r\ 3937}#
- #{w\ 3938}#
- (#{source-annotation\ 2475}# #{e\ 3936}#)
+ (#{syntax-type\ 469}#
+ #{e\ 1828}#
+ #{r\ 1829}#
+ #{w\ 1830}#
+ (#{source-annotation\ 367}# #{e\ 1828}#)
#f
- #{mod\ 3939}#
+ #{mod\ 1831}#
#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\ 1836}#
+ #{value\ 1837}#
+ #{e\ 1838}#
+ #{w\ 1839}#
+ #{s\ 1840}#
+ #{mod\ 1841}#)
+ (#{chi-expr\ 475}#
+ #{type\ 1836}#
+ #{value\ 1837}#
+ #{e\ 1838}#
+ #{r\ 1829}#
+ #{w\ 1839}#
+ #{s\ 1840}#
+ #{mod\ 1841}#)))))
+ (#{chi-expr\ 475}#
+ (lambda (#{type\ 1848}#
+ #{value\ 1849}#
+ #{e\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
+ (if (eqv? #{type\ 1848}# (quote lexical))
+ (#{build-lexical-reference\ 318}#
'value
- #{s\ 3961}#
- #{e\ 3958}#
- #{value\ 3957}#)
- (if (if (eqv? #{type\ 3956}# (quote core))
+ #{s\ 1853}#
+ #{e\ 1850}#
+ #{value\ 1849}#)
+ (if (if (eqv? #{type\ 1848}# (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\ 1848}# (quote core-form)))
+ (#{value\ 1849}#
+ #{e\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
+ (if (eqv? #{type\ 1848}# (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\ 1849}#
+ #{e\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#))
+ (lambda (#{e\ 1865}#
+ #{r\ 1866}#
+ #{w\ 1867}#
+ #{s\ 1868}#
+ #{mod\ 1869}#)
+ (#{chi\ 473}#
+ #{e\ 1865}#
+ #{r\ 1866}#
+ #{w\ 1867}#
+ #{mod\ 1869}#)))
+ (if (eqv? #{type\ 1848}# (quote lexical-call))
+ (#{chi-application\ 477}#
(begin
- (let ((#{id\ 3985}# (car #{e\ 3958}#)))
- (#{build-lexical-reference\ 2426}#
+ (let ((#{id\ 1877}# (car #{e\ 1850}#)))
+ (#{build-lexical-reference\ 318}#
'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\ 367}# #{id\ 1877}#)
+ (if (#{syntax-object?\ 352}# #{id\ 1877}#)
+ (syntax->datum #{id\ 1877}#)
+ #{id\ 1877}#)
+ #{value\ 1849}#)))
+ #{e\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
+ (if (eqv? #{type\ 1848}# (quote global-call))
+ (#{chi-application\ 477}#
+ (#{build-global-reference\ 324}#
+ (#{source-annotation\ 367}# (car #{e\ 1850}#))
+ (if (#{syntax-object?\ 352}# #{value\ 1849}#)
+ (#{syntax-object-expression\ 354}#
+ #{value\ 1849}#)
+ #{value\ 1849}#)
+ (if (#{syntax-object?\ 352}# #{value\ 1849}#)
+ (#{syntax-object-module\ 358}# #{value\ 1849}#)
+ #{mod\ 1854}#))
+ #{e\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
+ (if (eqv? #{type\ 1848}# (quote constant))
+ (#{build-data\ 338}#
+ #{s\ 1853}#
+ (#{strip\ 499}#
+ (#{source-wrap\ 459}#
+ #{e\ 1850}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
'(())))
- (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\ 1848}# (quote global))
+ (#{build-global-reference\ 324}#
+ #{s\ 1853}#
+ #{value\ 1849}#
+ #{mod\ 1854}#)
+ (if (eqv? #{type\ 1848}# (quote call))
+ (#{chi-application\ 477}#
+ (#{chi\ 473}#
+ (car #{e\ 1850}#)
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{mod\ 1854}#)
+ #{e\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
+ (if (eqv? #{type\ 1848}# (quote begin-form))
+ (let ((#{tmp\ 1884}# #{e\ 1850}#))
+ (let ((#{tmp\ 1885}#
($sc-dispatch
- #{tmp\ 3992}#
+ #{tmp\ 1884}#
'(any any . each-any))))
- (if #{tmp\ 3993}#
+ (if #{tmp\ 1885}#
(@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 (#{_\ 1889}#
+ #{e1\ 1890}#
+ #{e2\ 1891}#)
+ (#{chi-sequence\ 461}#
+ (cons #{e1\ 1890}# #{e2\ 1891}#)
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#))
+ #{tmp\ 1885}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 3992}#))))
- (if (eqv? #{type\ 3956}#
+ #{tmp\ 1884}#))))
+ (if (eqv? #{type\ 1848}#
'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\ 483}#
+ #{value\ 1849}#
+ #{e\ 1850}#
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#
+ #{chi-sequence\ 461}#)
+ (if (eqv? #{type\ 1848}#
'eval-when-form)
- (let ((#{tmp\ 4003}# #{e\ 3958}#))
- (let ((#{tmp\ 4004}#
+ (let ((#{tmp\ 1895}# #{e\ 1850}#))
+ (let ((#{tmp\ 1896}#
($sc-dispatch
- #{tmp\ 4003}#
+ #{tmp\ 1895}#
'(any each-any
any
.
each-any))))
- (if #{tmp\ 4004}#
+ (if #{tmp\ 1896}#
(@apply
- (lambda (#{_\ 4009}#
- #{x\ 4010}#
- #{e1\ 4011}#
- #{e2\ 4012}#)
+ (lambda (#{_\ 1901}#
+ #{x\ 1902}#
+ #{e1\ 1903}#
+ #{e2\ 1904}#)
(begin
- (let ((#{when-list\ 4014}#
- (#{chi-when-list\ 2575}#
- #{e\ 3958}#
- #{x\ 4010}#
- #{w\ 3960}#)))
+ (let ((#{when-list\ 1906}#
+ (#{chi-when-list\ 467}#
+ #{e\ 1850}#
+ #{x\ 1902}#
+ #{w\ 1852}#)))
(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\ 1906}#)
+ (#{chi-sequence\ 461}#
+ (cons #{e1\ 1903}#
+ #{e2\ 1904}#)
+ #{r\ 1851}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#)
+ (#{chi-void\ 487}#)))))
+ #{tmp\ 1896}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 4003}#))))
- (if (if (eqv? #{type\ 3956}#
+ #{tmp\ 1895}#))))
+ (if (if (eqv? #{type\ 1848}#
'define-form)
#t
- (eqv? #{type\ 3956}#
+ (eqv? #{type\ 1848}#
'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\ 1850}#
+ (#{wrap\ 457}#
+ #{value\ 1849}#
+ #{w\ 1852}#
+ #{mod\ 1854}#))
+ (if (eqv? #{type\ 1848}# (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\ 459}#
+ #{e\ 1850}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#))
+ (if (eqv? #{type\ 1848}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 2567}#
- #{e\ 3958}#
- #{w\ 3960}#
- #{s\ 3961}#
- #{mod\ 3962}#))
+ (#{source-wrap\ 459}#
+ #{e\ 1850}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#))
(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\ 459}#
+ #{e\ 1850}#
+ #{w\ 1852}#
+ #{s\ 1853}#
+ #{mod\ 1854}#))))))))))))))))))
+ (#{chi-application\ 477}#
+ (lambda (#{x\ 1913}#
+ #{e\ 1914}#
+ #{r\ 1915}#
+ #{w\ 1916}#
+ #{s\ 1917}#
+ #{mod\ 1918}#)
+ (let ((#{tmp\ 1925}# #{e\ 1914}#))
+ (let ((#{tmp\ 1926}#
($sc-dispatch
- #{tmp\ 4033}#
+ #{tmp\ 1925}#
'(any . each-any))))
- (if #{tmp\ 4034}#
+ (if #{tmp\ 1926}#
(@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\ 1929}# #{e1\ 1930}#)
+ (#{build-application\ 312}#
+ #{s\ 1917}#
+ #{x\ 1913}#
+ (map (lambda (#{e\ 1931}#)
+ (#{chi\ 473}#
+ #{e\ 1931}#
+ #{r\ 1915}#
+ #{w\ 1916}#
+ #{mod\ 1918}#))
+ #{e1\ 1930}#)))
+ #{tmp\ 1926}#)
(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\ 1925}#))))))
+ (#{chi-macro\ 479}#
+ (lambda (#{p\ 1934}#
+ #{e\ 1935}#
+ #{r\ 1936}#
+ #{w\ 1937}#
+ #{s\ 1938}#
+ #{rib\ 1939}#
+ #{mod\ 1940}#)
(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\ 1949}#
+ (lambda (#{x\ 1950}# #{m\ 1951}#)
+ (if (pair? #{x\ 1950}#)
+ (#{decorate-source\ 306}#
+ (cons (#{rebuild-macro-output\ 1949}#
+ (car #{x\ 1950}#)
+ #{m\ 1951}#)
+ (#{rebuild-macro-output\ 1949}#
+ (cdr #{x\ 1950}#)
+ #{m\ 1951}#))
+ #{s\ 1938}#)
+ (if (#{syntax-object?\ 352}# #{x\ 1950}#)
(begin
- (let ((#{w\ 4067}#
- (#{syntax-object-wrap\ 2464}# #{x\ 4058}#)))
+ (let ((#{w\ 1959}#
+ (#{syntax-object-wrap\ 356}# #{x\ 1950}#)))
(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\ 1962}#
+ (#{wrap-marks\ 395}# #{w\ 1959}#))
+ (#{s\ 1963}#
+ (#{wrap-subst\ 397}# #{w\ 1959}#)))
+ (if (if (pair? #{ms\ 1962}#)
+ (eq? (car #{ms\ 1962}#) #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\ 350}#
+ (#{syntax-object-expression\ 354}#
+ #{x\ 1950}#)
+ (#{make-wrap\ 393}#
+ (cdr #{ms\ 1962}#)
+ (if #{rib\ 1939}#
+ (cons #{rib\ 1939}# (cdr #{s\ 1963}#))
+ (cdr #{s\ 1963}#)))
+ (#{syntax-object-module\ 358}#
+ #{x\ 1950}#))
+ (#{make-syntax-object\ 350}#
+ (#{decorate-source\ 306}#
+ (#{syntax-object-expression\ 354}#
+ #{x\ 1950}#)
+ #{s\ 1963}#)
+ (#{make-wrap\ 393}#
+ (cons #{m\ 1951}# #{ms\ 1962}#)
+ (if #{rib\ 1939}#
+ (cons #{rib\ 1939}#
+ (cons (quote shift) #{s\ 1963}#))
+ (cons (quote shift) #{s\ 1963}#)))
+ (#{syntax-object-module\ 358}#
+ #{x\ 1950}#)))))))
+ (if (vector? #{x\ 1950}#)
(begin
- (let ((#{n\ 4079}# (vector-length #{x\ 4058}#)))
+ (let ((#{n\ 1971}# (vector-length #{x\ 1950}#)))
(begin
- (let ((#{v\ 4081}#
- (#{decorate-source\ 2414}#
- (make-vector #{n\ 4079}#)
- #{x\ 4058}#)))
+ (let ((#{v\ 1973}#
+ (#{decorate-source\ 306}#
+ (make-vector #{n\ 1971}#)
+ #{x\ 1950}#)))
(letrec*
- ((#{loop\ 4084}#
- (lambda (#{i\ 4085}#)
- (if (#{fx=\ 2401}#
- #{i\ 4085}#
- #{n\ 4079}#)
- (begin (if #f #f) #{v\ 4081}#)
+ ((#{loop\ 1976}#
+ (lambda (#{i\ 1977}#)
+ (if (#{fx=\ 293}#
+ #{i\ 1977}#
+ #{n\ 1971}#)
+ (begin (if #f #f) #{v\ 1973}#)
(begin
(vector-set!
- #{v\ 4081}#
- #{i\ 4085}#
- (#{rebuild-macro-output\ 4057}#
+ #{v\ 1973}#
+ #{i\ 1977}#
+ (#{rebuild-macro-output\ 1949}#
(vector-ref
- #{x\ 4058}#
- #{i\ 4085}#)
- #{m\ 4059}#))
- (#{loop\ 4084}#
- (#{fx+\ 2397}#
- #{i\ 4085}#
+ #{x\ 1950}#
+ #{i\ 1977}#)
+ #{m\ 1951}#))
+ (#{loop\ 1976}#
+ (#{fx+\ 289}#
+ #{i\ 1977}#
1)))))))
- (begin (#{loop\ 4084}# 0)))))))
- (if (symbol? #{x\ 4058}#)
+ (begin (#{loop\ 1976}# 0)))))))
+ (if (symbol? #{x\ 1950}#)
(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\ 459}#
+ #{e\ 1935}#
+ #{w\ 1937}#
+ (#{wrap-subst\ 397}# #{w\ 1937}#)
+ #{mod\ 1940}#)
+ #{x\ 1950}#)
+ (#{decorate-source\ 306}#
+ #{x\ 1950}#
+ #{s\ 1938}#))))))))
(begin
- (#{rebuild-macro-output\ 4057}#
- (#{p\ 4042}#
- (#{source-wrap\ 2567}#
- #{e\ 4043}#
- (#{anti-mark\ 2537}# #{w\ 4045}#)
- #{s\ 4046}#
- #{mod\ 4048}#))
+ (#{rebuild-macro-output\ 1949}#
+ (#{p\ 1934}#
+ (#{source-wrap\ 459}#
+ #{e\ 1935}#
+ (#{anti-mark\ 429}# #{w\ 1937}#)
+ #{s\ 1938}#
+ #{mod\ 1940}#))
(gensym "m"))))))
- (#{chi-body\ 2589}#
- (lambda (#{body\ 4092}#
- #{outer-form\ 4093}#
- #{r\ 4094}#
- #{w\ 4095}#
- #{mod\ 4096}#)
+ (#{chi-body\ 481}#
+ (lambda (#{body\ 1984}#
+ #{outer-form\ 1985}#
+ #{r\ 1986}#
+ #{w\ 1987}#
+ #{mod\ 1988}#)
(begin
- (let ((#{r\ 4104}#
+ (let ((#{r\ 1996}#
(cons '("placeholder" placeholder)
- #{r\ 4094}#)))
+ #{r\ 1986}#)))
(begin
- (let ((#{ribcage\ 4106}#
- (#{make-ribcage\ 2517}#
+ (let ((#{ribcage\ 1998}#
+ (#{make-ribcage\ 409}#
'()
'()
'())))
(begin
- (let ((#{w\ 4109}#
- (#{make-wrap\ 2501}#
- (#{wrap-marks\ 2503}# #{w\ 4095}#)
- (cons #{ribcage\ 4106}#
- (#{wrap-subst\ 2505}# #{w\ 4095}#)))))
+ (let ((#{w\ 2001}#
+ (#{make-wrap\ 393}#
+ (#{wrap-marks\ 395}# #{w\ 1987}#)
+ (cons #{ribcage\ 1998}#
+ (#{wrap-subst\ 397}# #{w\ 1987}#)))))
(letrec*
- ((#{parse\ 4118}#
- (lambda (#{body\ 4119}#
- #{ids\ 4120}#
- #{labels\ 4121}#
- #{var-ids\ 4122}#
- #{vars\ 4123}#
- #{vals\ 4124}#
- #{bindings\ 4125}#)
- (if (null? #{body\ 4119}#)
+ ((#{parse\ 2010}#
+ (lambda (#{body\ 2011}#
+ #{ids\ 2012}#
+ #{labels\ 2013}#
+ #{var-ids\ 2014}#
+ #{vars\ 2015}#
+ #{vals\ 2016}#
+ #{bindings\ 2017}#)
+ (if (null? #{body\ 2011}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 4093}#)
+ #{outer-form\ 1985}#)
(begin
- (let ((#{e\ 4130}#
- (cdr (car #{body\ 4119}#)))
- (#{er\ 4131}#
- (car (car #{body\ 4119}#))))
+ (let ((#{e\ 2022}#
+ (cdr (car #{body\ 2011}#)))
+ (#{er\ 2023}#
+ (car (car #{body\ 2011}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{e\ 4130}#
- #{er\ 4131}#
+ (#{syntax-type\ 469}#
+ #{e\ 2022}#
+ #{er\ 2023}#
'(())
- (#{source-annotation\ 2475}#
- #{er\ 4131}#)
- #{ribcage\ 4106}#
- #{mod\ 4096}#
+ (#{source-annotation\ 367}#
+ #{er\ 2023}#)
+ #{ribcage\ 1998}#
+ #{mod\ 1988}#
#f))
- (lambda (#{type\ 4133}#
- #{value\ 4134}#
- #{e\ 4135}#
- #{w\ 4136}#
- #{s\ 4137}#
- #{mod\ 4138}#)
- (if (eqv? #{type\ 4133}#
+ (lambda (#{type\ 2025}#
+ #{value\ 2026}#
+ #{e\ 2027}#
+ #{w\ 2028}#
+ #{s\ 2029}#
+ #{mod\ 2030}#)
+ (if (eqv? #{type\ 2025}#
'define-form)
(begin
- (let ((#{id\ 4148}#
- (#{wrap\ 2565}#
- #{value\ 4134}#
- #{w\ 4136}#
- #{mod\ 4138}#))
- (#{label\ 4149}#
- (#{gen-label\ 2512}#)))
+ (let ((#{id\ 2040}#
+ (#{wrap\ 457}#
+ #{value\ 2026}#
+ #{w\ 2028}#
+ #{mod\ 2030}#))
+ (#{label\ 2041}#
+ (#{gen-label\ 404}#)))
(begin
- (let ((#{var\ 4151}#
- (#{gen-var\ 2609}#
- #{id\ 4148}#)))
+ (let ((#{var\ 2043}#
+ (#{gen-var\ 501}#
+ #{id\ 2040}#)))
(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!\ 433}#
+ #{ribcage\ 1998}#
+ #{id\ 2040}#
+ #{label\ 2041}#)
+ (#{parse\ 2010}#
+ (cdr #{body\ 2011}#)
+ (cons #{id\ 2040}#
+ #{ids\ 2012}#)
+ (cons #{label\ 2041}#
+ #{labels\ 2013}#)
+ (cons #{id\ 2040}#
+ #{var-ids\
2014}#)
+ (cons #{var\ 2043}#
+ #{vars\ 2015}#)
+ (cons (cons #{er\
2023}#
+ (#{wrap\
457}#
+ #{e\
2027}#
+ #{w\
2028}#
+ #{mod\
2030}#))
+ #{vals\ 2016}#)
(cons (cons 'lexical
- #{var\
4151}#)
- #{bindings\
4125}#)))))))
- (if (eqv? #{type\ 4133}#
+ #{var\
2043}#)
+ #{bindings\
2017}#)))))))
+ (if (eqv? #{type\ 2025}#
'define-syntax-form)
(begin
- (let ((#{id\ 4156}#
- (#{wrap\ 2565}#
- #{value\ 4134}#
- #{w\ 4136}#
- #{mod\ 4138}#))
- (#{label\ 4157}#
- (#{gen-label\ 2512}#)))
+ (let ((#{id\ 2048}#
+ (#{wrap\ 457}#
+ #{value\ 2026}#
+ #{w\ 2028}#
+ #{mod\ 2030}#))
+ (#{label\ 2049}#
+ (#{gen-label\ 404}#)))
(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!\ 433}#
+ #{ribcage\ 1998}#
+ #{id\ 2048}#
+ #{label\ 2049}#)
+ (#{parse\ 2010}#
+ (cdr #{body\ 2011}#)
+ (cons #{id\ 2048}#
+ #{ids\ 2012}#)
+ (cons #{label\ 2049}#
+ #{labels\ 2013}#)
+ #{var-ids\ 2014}#
+ #{vars\ 2015}#
+ #{vals\ 2016}#
(cons (cons 'macro
- (cons #{er\
4131}#
-
(#{wrap\ 2565}#
- #{e\
4135}#
- #{w\
4136}#
-
#{mod\ 4138}#)))
- #{bindings\
4125}#)))))
- (if (eqv? #{type\ 4133}#
+ (cons #{er\
2023}#
+
(#{wrap\ 457}#
+ #{e\
2027}#
+ #{w\
2028}#
+
#{mod\ 2030}#)))
+ #{bindings\
2017}#)))))
+ (if (eqv? #{type\ 2025}#
'begin-form)
- (let ((#{tmp\ 4160}#
- #{e\ 4135}#))
- (let ((#{tmp\ 4161}#
+ (let ((#{tmp\ 2052}#
+ #{e\ 2027}#))
+ (let ((#{tmp\ 2053}#
($sc-dispatch
- #{tmp\ 4160}#
+ #{tmp\ 2052}#
'(any .
each-any))))
- (if #{tmp\ 4161}#
+ (if #{tmp\ 2053}#
(@apply
- (lambda (#{_\ 4164}#
- #{e1\ 4165}#)
- (#{parse\ 4118}#
+ (lambda (#{_\ 2056}#
+ #{e1\ 2057}#)
+ (#{parse\ 2010}#
(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\ 2060}#
+ (lambda
(#{forms\ 2061}#)
+ (if (null?
#{forms\ 2061}#)
+ (cdr
#{body\ 2011}#)
+ (cons
(cons #{er\ 2023}#
+
(#{wrap\ 457}#
+
(car #{forms\ 2061}#)
+
#{w\ 2028}#
+
#{mod\ 2030}#))
+
(#{f\ 2060}#
+
(cdr #{forms\ 2061}#)))))))
(begin
- (#{f\ 4168}#
- #{e1\
4165}#)))
- #{ids\ 4120}#
- #{labels\ 4121}#
- #{var-ids\ 4122}#
- #{vars\ 4123}#
- #{vals\ 4124}#
- #{bindings\
4125}#))
- #{tmp\ 4161}#)
+ (#{f\ 2060}#
+ #{e1\
2057}#)))
+ #{ids\ 2012}#
+ #{labels\ 2013}#
+ #{var-ids\ 2014}#
+ #{vars\ 2015}#
+ #{vals\ 2016}#
+ #{bindings\
2017}#))
+ #{tmp\ 2053}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 4160}#))))
- (if (eqv? #{type\ 4133}#
+ #{tmp\ 2052}#))))
+ (if (eqv? #{type\ 2025}#
'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\ 483}#
+ #{value\ 2026}#
+ #{e\ 2027}#
+ #{er\ 2023}#
+ #{w\ 2028}#
+ #{s\ 2029}#
+ #{mod\ 2030}#
+ (lambda (#{forms\ 2064}#
+ #{er\ 2065}#
+ #{w\ 2066}#
+ #{s\ 2067}#
+ #{mod\ 2068}#)
+ (#{parse\ 2010}#
(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\ 2076}#
+ (lambda (#{forms\
2077}#)
+ (if (null?
#{forms\ 2077}#)
+ (cdr #{body\
2011}#)
+ (cons (cons
#{er\ 2065}#
+
(#{wrap\ 457}#
+
(car #{forms\ 2077}#)
+
#{w\ 2066}#
+
#{mod\ 2068}#))
+ (#{f\
2076}#
+ (cdr
#{forms\ 2077}#)))))))
(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\ 2076}#
+ #{forms\
2064}#)))
+ #{ids\ 2012}#
+ #{labels\ 2013}#
+ #{var-ids\ 2014}#
+ #{vars\ 2015}#
+ #{vals\ 2016}#
+ #{bindings\ 2017}#)))
+ (if (null? #{ids\ 2012}#)
+ (#{build-sequence\ 340}#
#f
- (map (lambda (#{x\
4188}#)
- (#{chi\ 2581}#
- (cdr #{x\
4188}#)
- (car #{x\
4188}#)
+ (map (lambda (#{x\
2080}#)
+ (#{chi\ 473}#
+ (cdr #{x\
2080}#)
+ (car #{x\
2080}#)
'(())
- #{mod\ 4138}#))
- (cons (cons #{er\
4131}#
-
(#{source-wrap\ 2567}#
- #{e\
4135}#
- #{w\
4136}#
- #{s\
4137}#
-
#{mod\ 4138}#))
- (cdr #{body\
4119}#))))
+ #{mod\ 2030}#))
+ (cons (cons #{er\
2023}#
+
(#{source-wrap\ 459}#
+ #{e\
2027}#
+ #{w\
2028}#
+ #{s\
2029}#
+
#{mod\ 2030}#))
+ (cdr #{body\
2011}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 2559}#
- #{ids\
4120}#))
+ (if (not
(#{valid-bound-ids?\ 451}#
+ #{ids\
2012}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
4093}#))
+ #{outer-form\
1985}#))
(letrec*
- ((#{loop\ 4195}#
- (lambda (#{bs\
4196}#
-
#{er-cache\ 4197}#
- #{r-cache\
4198}#)
- (if (not (null?
#{bs\ 4196}#))
+ ((#{loop\ 2087}#
+ (lambda (#{bs\
2088}#
+
#{er-cache\ 2089}#
+ #{r-cache\
2090}#)
+ (if (not (null?
#{bs\ 2088}#))
(begin
- (let ((#{b\
4201}#
- (car
#{bs\ 4196}#)))
- (if (eq?
(car #{b\ 4201}#)
+ (let ((#{b\
2093}#
+ (car
#{bs\ 2088}#)))
+ (if (eq?
(car #{b\ 2093}#)
'macro)
(begin
- (let
((#{er\ 4204}#
-
(car (cdr #{b\ 4201}#))))
+ (let
((#{er\ 2096}#
+
(car (cdr #{b\ 2093}#))))
(begin
-
(let ((#{r-cache\ 4206}#
-
(if (eq? #{er\ 4204}#
-
#{er-cache\ 4197}#)
-
#{r-cache\ 4198}#
-
(#{macros-only-env\ 2488}#
-
#{er\ 4204}#))))
+
(let ((#{r-cache\ 2098}#
+
(if (eq? #{er\ 2096}#
+
#{er-cache\ 2089}#)
+
#{r-cache\ 2090}#
+
(#{macros-only-env\ 380}#
+
#{er\ 2096}#))))
(begin
(set-cdr!
-
#{b\ 4201}#
-
(#{eval-local-transformer\ 2593}#
-
(#{chi\ 2581}#
-
(cdr (cdr #{b\ 4201}#))
-
#{r-cache\ 4206}#
+
#{b\ 2093}#
+
(#{eval-local-transformer\ 485}#
+
(#{chi\ 473}#
+
(cdr (cdr #{b\ 2093}#))
+
#{r-cache\ 2098}#
'(())
-
#{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\ 2030}#)
+
#{mod\ 2030}#))
+
(#{loop\ 2087}#
+
(cdr #{bs\ 2088}#)
+
#{er\ 2096}#
+
#{r-cache\ 2098}#))))))
+ (#{loop\
2087}#
+ (cdr
#{bs\ 2088}#)
+
#{er-cache\ 2089}#
+
#{r-cache\ 2090}#))))))))
(begin
- (#{loop\ 4195}#
- #{bindings\ 4125}#
+ (#{loop\ 2087}#
+ #{bindings\ 2017}#
#f
#f)))
(set-cdr!
- #{r\ 4104}#
- (#{extend-env\ 2484}#
- #{labels\ 4121}#
- #{bindings\ 4125}#
- (cdr #{r\ 4104}#)))
- (#{build-letrec\ 2454}#
+ #{r\ 1996}#
+ (#{extend-env\ 376}#
+ #{labels\ 2013}#
+ #{bindings\ 2017}#
+ (cdr #{r\ 1996}#)))
+ (#{build-letrec\ 346}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\
4122}#))
+ #{var-ids\
2014}#))
(reverse
- #{vars\ 4123}#)
- (map (lambda (#{x\
4209}#)
- (#{chi\ 2581}#
- (cdr #{x\
4209}#)
- (car #{x\
4209}#)
+ #{vars\ 2015}#)
+ (map (lambda (#{x\
2101}#)
+ (#{chi\ 473}#
+ (cdr #{x\
2101}#)
+ (car #{x\
2101}#)
'(())
- #{mod\
4138}#))
+ #{mod\
2030}#))
(reverse
- #{vals\ 4124}#))
- (#{build-sequence\
2448}#
+ #{vals\ 2016}#))
+ (#{build-sequence\
340}#
#f
- (map (lambda (#{x\
4213}#)
- (#{chi\ 2581}#
- (cdr #{x\
4213}#)
- (car #{x\
4213}#)
+ (map (lambda (#{x\
2105}#)
+ (#{chi\ 473}#
+ (cdr #{x\
2105}#)
+ (car #{x\
2105}#)
'(())
- #{mod\
4138}#))
- (cons (cons
#{er\ 4131}#
-
(#{source-wrap\ 2567}#
-
#{e\ 4135}#
-
#{w\ 4136}#
-
#{s\ 4137}#
-
#{mod\ 4138}#))
- (cdr
#{body\ 4119}#)))))))))))))))))))
+ #{mod\
2030}#))
+ (cons (cons
#{er\ 2023}#
+
(#{source-wrap\ 459}#
+
#{e\ 2027}#
+
#{w\ 2028}#
+
#{s\ 2029}#
+
#{mod\ 2030}#))
+ (cdr
#{body\ 2011}#)))))))))))))))))))
(begin
- (#{parse\ 4118}#
- (map (lambda (#{x\ 4126}#)
- (cons #{r\ 4104}#
- (#{wrap\ 2565}#
- #{x\ 4126}#
- #{w\ 4109}#
- #{mod\ 4096}#)))
- #{body\ 4092}#)
+ (#{parse\ 2010}#
+ (map (lambda (#{x\ 2018}#)
+ (cons #{r\ 1996}#
+ (#{wrap\ 457}#
+ #{x\ 2018}#
+ #{w\ 2001}#
+ #{mod\ 1988}#)))
+ #{body\ 1984}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{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\ 483}#
+ (lambda (#{rec?\ 2108}#
+ #{e\ 2109}#
+ #{r\ 2110}#
+ #{w\ 2111}#
+ #{s\ 2112}#
+ #{mod\ 2113}#
+ #{k\ 2114}#)
+ (let ((#{tmp\ 2122}# #{e\ 2109}#))
+ (let ((#{tmp\ 2123}#
($sc-dispatch
- #{tmp\ 4230}#
+ #{tmp\ 2122}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 4231}#
+ (if #{tmp\ 2123}#
(@apply
- (lambda (#{_\ 4237}#
- #{id\ 4238}#
- #{val\ 4239}#
- #{e1\ 4240}#
- #{e2\ 4241}#)
+ (lambda (#{_\ 2129}#
+ #{id\ 2130}#
+ #{val\ 2131}#
+ #{e1\ 2132}#
+ #{e2\ 2133}#)
(begin
- (let ((#{ids\ 4243}# #{id\ 4238}#))
- (if (not (#{valid-bound-ids?\ 2559}# #{ids\ 4243}#))
+ (let ((#{ids\ 2135}# #{id\ 2130}#))
+ (if (not (#{valid-bound-ids?\ 451}# #{ids\ 2135}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 4217}#)
+ #{e\ 2109}#)
(begin
- (let ((#{labels\ 4246}#
- (#{gen-labels\ 2514}# #{ids\ 4243}#)))
+ (let ((#{labels\ 2138}#
+ (#{gen-labels\ 406}# #{ids\ 2135}#)))
(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\ 2140}#
+ (#{make-binding-wrap\ 435}#
+ #{ids\ 2135}#
+ #{labels\ 2138}#
+ #{w\ 2111}#)))
+ (#{k\ 2114}#
+ (cons #{e1\ 2132}# #{e2\ 2133}#)
+ (#{extend-env\ 376}#
+ #{labels\ 2138}#
(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\ 2144}#
+ (if #{rec?\ 2108}#
+ #{new-w\ 2140}#
+ #{w\ 2111}#))
+ (#{trans-r\ 2145}#
+ (#{macros-only-env\ 380}#
+ #{r\ 2110}#)))
+ (map (lambda (#{x\ 2146}#)
(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\ 485}#
+ (#{chi\ 473}#
+ #{x\ 2146}#
+ #{trans-r\ 2145}#
+ #{w\ 2144}#
+ #{mod\ 2113}#)
+ #{mod\ 2113}#)))
+ #{val\ 2131}#)))
+ #{r\ 2110}#)
+ #{new-w\ 2140}#
+ #{s\ 2112}#
+ #{mod\ 2113}#)))))))))
+ #{tmp\ 2123}#)
+ (let ((#{_\ 2151}# #{tmp\ 2122}#))
(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\ 459}#
+ #{e\ 2109}#
+ #{w\ 2111}#
+ #{s\ 2112}#
+ #{mod\ 2113}#))))))))
+ (#{eval-local-transformer\ 485}#
+ (lambda (#{expanded\ 2152}# #{mod\ 2153}#)
(begin
- (let ((#{p\ 4265}#
- (#{local-eval-hook\ 2407}#
- #{expanded\ 4260}#
- #{mod\ 4261}#)))
- (if (procedure? #{p\ 4265}#)
- #{p\ 4265}#
+ (let ((#{p\ 2157}#
+ (#{local-eval-hook\ 299}#
+ #{expanded\ 2152}#
+ #{mod\ 2153}#)))
+ (if (procedure? #{p\ 2157}#)
+ #{p\ 2157}#
(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\ 2157}#))))))
+ (#{chi-void\ 487}#
+ (lambda () (#{build-void\ 310}# #f)))
+ (#{ellipsis?\ 489}#
+ (lambda (#{x\ 2159}#)
+ (if (#{nonsymbol-id?\ 386}# #{x\ 2159}#)
+ (#{free-id=?\ 447}#
+ #{x\ 2159}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4268"))
+ #(ribcage #(x) #((top)) #("i2160"))
#(ribcage
(lambda-var-list
gen-var
@@ -6799,417 +6778,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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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\ 491}#
+ (lambda (#{orig-args\ 2163}#)
(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\ 2166}#
+ (lambda (#{args\ 2169}# #{rreq\ 2170}#)
+ (let ((#{tmp\ 2173}# #{args\ 2169}#))
+ (let ((#{tmp\ 2174}#
+ ($sc-dispatch #{tmp\ 2173}# (quote ()))))
+ (if #{tmp\ 2174}#
(@apply
(lambda ()
- (#{check\ 4276}# (reverse #{rreq\ 4278}#) #f))
- #{tmp\ 4282}#)
- (let ((#{tmp\ 4283}#
+ (#{check\ 2168}# (reverse #{rreq\ 2170}#) #f))
+ #{tmp\ 2174}#)
+ (let ((#{tmp\ 2175}#
($sc-dispatch
- #{tmp\ 4281}#
+ #{tmp\ 2173}#
'(any . any))))
- (if (if #{tmp\ 4283}#
+ (if (if #{tmp\ 2175}#
(@apply
- (lambda (#{a\ 4286}# #{b\ 4287}#)
- (#{id?\ 2496}# #{a\ 4286}#))
- #{tmp\ 4283}#)
+ (lambda (#{a\ 2178}# #{b\ 2179}#)
+ (#{id?\ 388}# #{a\ 2178}#))
+ #{tmp\ 2175}#)
#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\ 2182}# #{b\ 2183}#)
+ (#{req\ 2166}#
+ #{b\ 2183}#
+ (cons #{a\ 2182}# #{rreq\ 2170}#)))
+ #{tmp\ 2175}#)
+ (let ((#{tmp\ 2184}# (list #{tmp\ 2173}#)))
+ (if (if #{tmp\ 2184}#
(@apply
- (lambda (#{r\ 4294}#)
- (#{id?\ 2496}# #{r\ 4294}#))
- #{tmp\ 4292}#)
+ (lambda (#{r\ 2186}#)
+ (#{id?\ 388}# #{r\ 2186}#))
+ #{tmp\ 2184}#)
#f)
(@apply
- (lambda (#{r\ 4296}#)
- (#{check\ 4276}#
- (reverse #{rreq\ 4278}#)
- #{r\ 4296}#))
- #{tmp\ 4292}#)
- (let ((#{else\ 4298}# #{tmp\ 4281}#))
+ (lambda (#{r\ 2188}#)
+ (#{check\ 2168}#
+ (reverse #{rreq\ 2170}#)
+ #{r\ 2188}#))
+ #{tmp\ 2184}#)
+ (let ((#{else\ 2190}# #{tmp\ 2173}#))
(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\ 2163}#
+ #{args\ 2169}#)))))))))))
+ (#{check\ 2168}#
+ (lambda (#{req\ 2191}# #{rest\ 2192}#)
+ (if (#{distinct-bound-ids?\ 453}#
+ (if #{rest\ 2192}#
+ (cons #{rest\ 2192}# #{req\ 2191}#)
+ #{req\ 2191}#))
+ (values #{req\ 2191}# #f #{rest\ 2192}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 4271}#)))))
+ #{orig-args\ 2163}#)))))
(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\ 2166}# #{orig-args\ 2163}# (quote ()))))))
+ (#{chi-simple-lambda\ 493}#
+ (lambda (#{e\ 2198}#
+ #{r\ 2199}#
+ #{w\ 2200}#
+ #{s\ 2201}#
+ #{mod\ 2202}#
+ #{req\ 2203}#
+ #{rest\ 2204}#
+ #{meta\ 2205}#
+ #{body\ 2206}#)
(begin
- (let ((#{ids\ 4326}#
- (if #{rest\ 4312}#
- (append #{req\ 4311}# (list #{rest\ 4312}#))
- #{req\ 4311}#)))
+ (let ((#{ids\ 2218}#
+ (if #{rest\ 2204}#
+ (append #{req\ 2203}# (list #{rest\ 2204}#))
+ #{req\ 2203}#)))
(begin
- (let ((#{vars\ 4328}#
- (map #{gen-var\ 2609}# #{ids\ 4326}#)))
+ (let ((#{vars\ 2220}#
+ (map #{gen-var\ 501}# #{ids\ 2218}#)))
(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\ 2222}#
+ (#{gen-labels\ 406}# #{ids\ 2218}#)))
+ (#{build-simple-lambda\ 330}#
+ #{s\ 2201}#
+ (map syntax->datum #{req\ 2203}#)
+ (if #{rest\ 2204}#
+ (syntax->datum #{rest\ 2204}#)
#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\ 2220}#
+ #{meta\ 2205}#
+ (#{chi-body\ 481}#
+ #{body\ 2206}#
+ (#{source-wrap\ 459}#
+ #{e\ 2198}#
+ #{w\ 2200}#
+ #{s\ 2201}#
+ #{mod\ 2202}#)
+ (#{extend-var-env\ 378}#
+ #{labels\ 2222}#
+ #{vars\ 2220}#
+ #{r\ 2199}#)
+ (#{make-binding-wrap\ 435}#
+ #{ids\ 2218}#
+ #{labels\ 2222}#
+ #{w\ 2200}#)
+ #{mod\ 2202}#))))))))))
+ (#{lambda*-formals\ 495}#
+ (lambda (#{orig-args\ 2225}#)
(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\ 2228}#
+ (lambda (#{args\ 2237}# #{rreq\ 2238}#)
+ (let ((#{tmp\ 2241}# #{args\ 2237}#))
+ (let ((#{tmp\ 2242}#
+ ($sc-dispatch #{tmp\ 2241}# (quote ()))))
+ (if #{tmp\ 2242}#
(@apply
(lambda ()
- (#{check\ 4344}#
- (reverse #{rreq\ 4346}#)
+ (#{check\ 2236}#
+ (reverse #{rreq\ 2238}#)
'()
#f
'()))
- #{tmp\ 4350}#)
- (let ((#{tmp\ 4351}#
+ #{tmp\ 2242}#)
+ (let ((#{tmp\ 2243}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2241}#
'(any . any))))
- (if (if #{tmp\ 4351}#
+ (if (if #{tmp\ 2243}#
(@apply
- (lambda (#{a\ 4354}# #{b\ 4355}#)
- (#{id?\ 2496}# #{a\ 4354}#))
- #{tmp\ 4351}#)
+ (lambda (#{a\ 2246}# #{b\ 2247}#)
+ (#{id?\ 388}# #{a\ 2246}#))
+ #{tmp\ 2243}#)
#f)
(@apply
- (lambda (#{a\ 4358}# #{b\ 4359}#)
- (#{req\ 4336}#
- #{b\ 4359}#
- (cons #{a\ 4358}# #{rreq\ 4346}#)))
- #{tmp\ 4351}#)
- (let ((#{tmp\ 4360}#
+ (lambda (#{a\ 2250}# #{b\ 2251}#)
+ (#{req\ 2228}#
+ #{b\ 2251}#
+ (cons #{a\ 2250}# #{rreq\ 2238}#)))
+ #{tmp\ 2243}#)
+ (let ((#{tmp\ 2252}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2241}#
'(any . any))))
- (if (if #{tmp\ 4360}#
+ (if (if #{tmp\ 2252}#
(@apply
- (lambda (#{a\ 4363}# #{b\ 4364}#)
- (eq? (syntax->datum #{a\ 4363}#)
+ (lambda (#{a\ 2255}# #{b\ 2256}#)
+ (eq? (syntax->datum #{a\ 2255}#)
#:optional))
- #{tmp\ 4360}#)
+ #{tmp\ 2252}#)
#f)
(@apply
- (lambda (#{a\ 4367}# #{b\ 4368}#)
- (#{opt\ 4338}#
- #{b\ 4368}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{a\ 2259}# #{b\ 2260}#)
+ (#{opt\ 2230}#
+ #{b\ 2260}#
+ (reverse #{rreq\ 2238}#)
'()))
- #{tmp\ 4360}#)
- (let ((#{tmp\ 4369}#
+ #{tmp\ 2252}#)
+ (let ((#{tmp\ 2261}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2241}#
'(any . any))))
- (if (if #{tmp\ 4369}#
+ (if (if #{tmp\ 2261}#
(@apply
- (lambda (#{a\ 4372}# #{b\ 4373}#)
- (eq? (syntax->datum #{a\ 4372}#)
+ (lambda (#{a\ 2264}# #{b\ 2265}#)
+ (eq? (syntax->datum #{a\ 2264}#)
#:key))
- #{tmp\ 4369}#)
+ #{tmp\ 2261}#)
#f)
(@apply
- (lambda (#{a\ 4376}# #{b\ 4377}#)
- (#{key\ 4340}#
- #{b\ 4377}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{a\ 2268}# #{b\ 2269}#)
+ (#{key\ 2232}#
+ #{b\ 2269}#
+ (reverse #{rreq\ 2238}#)
'()
'()))
- #{tmp\ 4369}#)
- (let ((#{tmp\ 4378}#
+ #{tmp\ 2261}#)
+ (let ((#{tmp\ 2270}#
($sc-dispatch
- #{tmp\ 4349}#
+ #{tmp\ 2241}#
'(any any))))
- (if (if #{tmp\ 4378}#
+ (if (if #{tmp\ 2270}#
(@apply
- (lambda (#{a\ 4381}#
- #{b\ 4382}#)
+ (lambda (#{a\ 2273}#
+ #{b\ 2274}#)
(eq? (syntax->datum
- #{a\ 4381}#)
+ #{a\ 2273}#)
#:rest))
- #{tmp\ 4378}#)
+ #{tmp\ 2270}#)
#f)
(@apply
- (lambda (#{a\ 4385}# #{b\ 4386}#)
- (#{rest\ 4342}#
- #{b\ 4386}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{a\ 2277}# #{b\ 2278}#)
+ (#{rest\ 2234}#
+ #{b\ 2278}#
+ (reverse #{rreq\ 2238}#)
'()
'()))
- #{tmp\ 4378}#)
- (let ((#{tmp\ 4387}#
- (list #{tmp\ 4349}#)))
- (if (if #{tmp\ 4387}#
+ #{tmp\ 2270}#)
+ (let ((#{tmp\ 2279}#
+ (list #{tmp\ 2241}#)))
+ (if (if #{tmp\ 2279}#
(@apply
- (lambda (#{r\ 4389}#)
- (#{id?\ 2496}#
- #{r\ 4389}#))
- #{tmp\ 4387}#)
+ (lambda (#{r\ 2281}#)
+ (#{id?\ 388}#
+ #{r\ 2281}#))
+ #{tmp\ 2279}#)
#f)
(@apply
- (lambda (#{r\ 4391}#)
- (#{rest\ 4342}#
- #{r\ 4391}#
- (reverse #{rreq\ 4346}#)
+ (lambda (#{r\ 2283}#)
+ (#{rest\ 2234}#
+ #{r\ 2283}#
+ (reverse #{rreq\ 2238}#)
'()
'()))
- #{tmp\ 4387}#)
- (let ((#{else\ 4393}#
- #{tmp\ 4349}#))
+ #{tmp\ 2279}#)
+ (let ((#{else\ 2285}#
+ #{tmp\ 2241}#))
(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\ 2225}#
+ #{args\
2237}#)))))))))))))))))
+ (#{opt\ 2230}#
+ (lambda (#{args\ 2286}# #{req\ 2287}# #{ropt\ 2288}#)
+ (let ((#{tmp\ 2292}# #{args\ 2286}#))
+ (let ((#{tmp\ 2293}#
+ ($sc-dispatch #{tmp\ 2292}# (quote ()))))
+ (if #{tmp\ 2293}#
(@apply
(lambda ()
- (#{check\ 4344}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (#{check\ 2236}#
+ #{req\ 2287}#
+ (reverse #{ropt\ 2288}#)
#f
'()))
- #{tmp\ 4401}#)
- (let ((#{tmp\ 4402}#
+ #{tmp\ 2293}#)
+ (let ((#{tmp\ 2294}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2292}#
'(any . any))))
- (if (if #{tmp\ 4402}#
+ (if (if #{tmp\ 2294}#
(@apply
- (lambda (#{a\ 4405}# #{b\ 4406}#)
- (#{id?\ 2496}# #{a\ 4405}#))
- #{tmp\ 4402}#)
+ (lambda (#{a\ 2297}# #{b\ 2298}#)
+ (#{id?\ 388}# #{a\ 2297}#))
+ #{tmp\ 2294}#)
#f)
(@apply
- (lambda (#{a\ 4409}# #{b\ 4410}#)
- (#{opt\ 4338}#
- #{b\ 4410}#
- #{req\ 4395}#
- (cons (cons #{a\ 4409}#
+ (lambda (#{a\ 2301}# #{b\ 2302}#)
+ (#{opt\ 2230}#
+ #{b\ 2302}#
+ #{req\ 2287}#
+ (cons (cons #{a\ 2301}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i4407" "i4408"))
+ #("i2299" "i2300"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i4397"
- "i4398"
- "i4399"))
+ #("i2289"
+ "i2290"
+ "i2291"))
#(ribcage
(check rest key opt req)
((top)
@@ -7217,15 +7196,15 @@
(top)
(top)
(top))
- ("i4343"
- "i4341"
- "i4339"
- "i4337"
- "i4335"))
+ ("i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"))
#(ribcage
#(orig-args)
#((top))
- #("i4334"))
+ #("i2226"))
#(ribcage
(lambda-var-list
gen-var
@@ -7501,143 +7480,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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -7647,150 +7626,150 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene guile))))
- #{ropt\ 4396}#)))
- #{tmp\ 4402}#)
- (let ((#{tmp\ 4411}#
+ #{ropt\ 2288}#)))
+ #{tmp\ 2294}#)
+ (let ((#{tmp\ 2303}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2292}#
'((any any) . any))))
- (if (if #{tmp\ 4411}#
+ (if (if #{tmp\ 2303}#
(@apply
- (lambda (#{a\ 4415}#
- #{init\ 4416}#
- #{b\ 4417}#)
- (#{id?\ 2496}# #{a\ 4415}#))
- #{tmp\ 4411}#)
+ (lambda (#{a\ 2307}#
+ #{init\ 2308}#
+ #{b\ 2309}#)
+ (#{id?\ 388}# #{a\ 2307}#))
+ #{tmp\ 2303}#)
#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\ 2313}#
+ #{init\ 2314}#
+ #{b\ 2315}#)
+ (#{opt\ 2230}#
+ #{b\ 2315}#
+ #{req\ 2287}#
+ (cons (list #{a\ 2313}# #{init\ 2314}#)
+ #{ropt\ 2288}#)))
+ #{tmp\ 2303}#)
+ (let ((#{tmp\ 2316}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2292}#
'(any . any))))
- (if (if #{tmp\ 4424}#
+ (if (if #{tmp\ 2316}#
(@apply
- (lambda (#{a\ 4427}# #{b\ 4428}#)
- (eq? (syntax->datum #{a\ 4427}#)
+ (lambda (#{a\ 2319}# #{b\ 2320}#)
+ (eq? (syntax->datum #{a\ 2319}#)
#:key))
- #{tmp\ 4424}#)
+ #{tmp\ 2316}#)
#f)
(@apply
- (lambda (#{a\ 4431}# #{b\ 4432}#)
- (#{key\ 4340}#
- #{b\ 4432}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (lambda (#{a\ 2323}# #{b\ 2324}#)
+ (#{key\ 2232}#
+ #{b\ 2324}#
+ #{req\ 2287}#
+ (reverse #{ropt\ 2288}#)
'()))
- #{tmp\ 4424}#)
- (let ((#{tmp\ 4433}#
+ #{tmp\ 2316}#)
+ (let ((#{tmp\ 2325}#
($sc-dispatch
- #{tmp\ 4400}#
+ #{tmp\ 2292}#
'(any any))))
- (if (if #{tmp\ 4433}#
+ (if (if #{tmp\ 2325}#
(@apply
- (lambda (#{a\ 4436}#
- #{b\ 4437}#)
+ (lambda (#{a\ 2328}#
+ #{b\ 2329}#)
(eq? (syntax->datum
- #{a\ 4436}#)
+ #{a\ 2328}#)
#:rest))
- #{tmp\ 4433}#)
+ #{tmp\ 2325}#)
#f)
(@apply
- (lambda (#{a\ 4440}# #{b\ 4441}#)
- (#{rest\ 4342}#
- #{b\ 4441}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (lambda (#{a\ 2332}# #{b\ 2333}#)
+ (#{rest\ 2234}#
+ #{b\ 2333}#
+ #{req\ 2287}#
+ (reverse #{ropt\ 2288}#)
'()))
- #{tmp\ 4433}#)
- (let ((#{tmp\ 4442}#
- (list #{tmp\ 4400}#)))
- (if (if #{tmp\ 4442}#
+ #{tmp\ 2325}#)
+ (let ((#{tmp\ 2334}#
+ (list #{tmp\ 2292}#)))
+ (if (if #{tmp\ 2334}#
(@apply
- (lambda (#{r\ 4444}#)
- (#{id?\ 2496}#
- #{r\ 4444}#))
- #{tmp\ 4442}#)
+ (lambda (#{r\ 2336}#)
+ (#{id?\ 388}#
+ #{r\ 2336}#))
+ #{tmp\ 2334}#)
#f)
(@apply
- (lambda (#{r\ 4446}#)
- (#{rest\ 4342}#
- #{r\ 4446}#
- #{req\ 4395}#
- (reverse #{ropt\ 4396}#)
+ (lambda (#{r\ 2338}#)
+ (#{rest\ 2234}#
+ #{r\ 2338}#
+ #{req\ 2287}#
+ (reverse #{ropt\ 2288}#)
'()))
- #{tmp\ 4442}#)
- (let ((#{else\ 4448}#
- #{tmp\ 4400}#))
+ #{tmp\ 2334}#)
+ (let ((#{else\ 2340}#
+ #{tmp\ 2292}#))
(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\ 2225}#
+ #{args\
2286}#)))))))))))))))))
+ (#{key\ 2232}#
+ (lambda (#{args\ 2341}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
+ #{rkey\ 2344}#)
+ (let ((#{tmp\ 2349}# #{args\ 2341}#))
+ (let ((#{tmp\ 2350}#
+ ($sc-dispatch #{tmp\ 2349}# (quote ()))))
+ (if #{tmp\ 2350}#
(@apply
(lambda ()
- (#{check\ 4344}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (#{check\ 2236}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
#f
- (cons #f (reverse #{rkey\ 4452}#))))
- #{tmp\ 4458}#)
- (let ((#{tmp\ 4459}#
+ (cons #f (reverse #{rkey\ 2344}#))))
+ #{tmp\ 2350}#)
+ (let ((#{tmp\ 2351}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2349}#
'(any . any))))
- (if (if #{tmp\ 4459}#
+ (if (if #{tmp\ 2351}#
(@apply
- (lambda (#{a\ 4462}# #{b\ 4463}#)
- (#{id?\ 2496}# #{a\ 4462}#))
- #{tmp\ 4459}#)
+ (lambda (#{a\ 2354}# #{b\ 2355}#)
+ (#{id?\ 388}# #{a\ 2354}#))
+ #{tmp\ 2351}#)
#f)
(@apply
- (lambda (#{a\ 4466}# #{b\ 4467}#)
- (let ((#{tmp\ 4469}#
+ (lambda (#{a\ 2358}# #{b\ 2359}#)
+ (let ((#{tmp\ 2361}#
(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\ 2358}#))))
+ (let ((#{k\ 2363}# #{tmp\ 2361}#))
+ (#{key\ 2232}#
+ #{b\ 2359}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
+ (cons (cons #{k\ 2363}#
+ (cons #{a\ 2358}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i4470"))
+ #("i2362"))
#(ribcage
#(a b)
#((top) (top))
- #("i4464"
- "i4465"))
+ #("i2356"
+ "i2357"))
#(ribcage
()
()
@@ -7804,10 +7783,10 @@
(top)
(top)
(top))
- #("i4453"
- "i4454"
- "i4455"
- "i4456"))
+ #("i2345"
+ "i2346"
+ "i2347"
+ "i2348"))
#(ribcage
(check rest
key
@@ -7818,15 +7797,15 @@
(top)
(top)
(top))
- ("i4343"
- "i4341"
- "i4339"
- "i4337"
- "i4335"))
+ ("i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"))
#(ribcage
#(orig-args)
#((top))
- #("i4334"))
+ #("i2226"))
#(ribcage
(lambda-var-list
gen-var
@@ -8102,143 +8081,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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -8248,2091 +8227,2089 @@
(top)
(top)
(top))
- ("i2147"
- "i2146"
- "i2145"
- "i2143")))
+ ("i39"
+ "i38"
+ "i37"
+ "i35")))
(hygiene
guile)))))
- #{rkey\ 4452}#)))))
- #{tmp\ 4459}#)
- (let ((#{tmp\ 4472}#
+ #{rkey\ 2344}#)))))
+ #{tmp\ 2351}#)
+ (let ((#{tmp\ 2364}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2349}#
'((any any) . any))))
- (if (if #{tmp\ 4472}#
+ (if (if #{tmp\ 2364}#
(@apply
- (lambda (#{a\ 4476}#
- #{init\ 4477}#
- #{b\ 4478}#)
- (#{id?\ 2496}# #{a\ 4476}#))
- #{tmp\ 4472}#)
+ (lambda (#{a\ 2368}#
+ #{init\ 2369}#
+ #{b\ 2370}#)
+ (#{id?\ 388}# #{a\ 2368}#))
+ #{tmp\ 2364}#)
#f)
(@apply
- (lambda (#{a\ 4482}#
- #{init\ 4483}#
- #{b\ 4484}#)
- (let ((#{tmp\ 4486}#
+ (lambda (#{a\ 2374}#
+ #{init\ 2375}#
+ #{b\ 2376}#)
+ (let ((#{tmp\ 2378}#
(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\ 2374}#))))
+ (let ((#{k\ 2380}# #{tmp\ 2378}#))
+ (#{key\ 2232}#
+ #{b\ 2376}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
+ (cons (list #{k\ 2380}#
+ #{a\ 2374}#
+ #{init\ 2375}#)
+ #{rkey\ 2344}#)))))
+ #{tmp\ 2364}#)
+ (let ((#{tmp\ 2381}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2349}#
'((any any any) . any))))
- (if (if #{tmp\ 4489}#
+ (if (if #{tmp\ 2381}#
(@apply
- (lambda (#{a\ 4494}#
- #{init\ 4495}#
- #{k\ 4496}#
- #{b\ 4497}#)
- (if (#{id?\ 2496}# #{a\ 4494}#)
+ (lambda (#{a\ 2386}#
+ #{init\ 2387}#
+ #{k\ 2388}#
+ #{b\ 2389}#)
+ (if (#{id?\ 388}# #{a\ 2386}#)
(keyword?
- (syntax->datum #{k\ 4496}#))
+ (syntax->datum #{k\ 2388}#))
#f))
- #{tmp\ 4489}#)
+ #{tmp\ 2381}#)
#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\ 2396}#
+ #{init\ 2397}#
+ #{k\ 2398}#
+ #{b\ 2399}#)
+ (#{key\ 2232}#
+ #{b\ 2399}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
+ (cons (list #{k\ 2398}#
+ #{a\ 2396}#
+ #{init\ 2397}#)
+ #{rkey\ 2344}#)))
+ #{tmp\ 2381}#)
+ (let ((#{tmp\ 2400}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2349}#
'(any))))
- (if (if #{tmp\ 4508}#
+ (if (if #{tmp\ 2400}#
(@apply
- (lambda (#{aok\ 4510}#)
+ (lambda (#{aok\ 2402}#)
(eq? (syntax->datum
- #{aok\ 4510}#)
+ #{aok\ 2402}#)
#:allow-other-keys))
- #{tmp\ 4508}#)
+ #{tmp\ 2400}#)
#f)
(@apply
- (lambda (#{aok\ 4512}#)
- (#{check\ 4344}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{aok\ 2404}#)
+ (#{check\ 2236}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
#f
(cons #t
(reverse
- #{rkey\ 4452}#))))
- #{tmp\ 4508}#)
- (let ((#{tmp\ 4513}#
+ #{rkey\ 2344}#))))
+ #{tmp\ 2400}#)
+ (let ((#{tmp\ 2405}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2349}#
'(any any any))))
- (if (if #{tmp\ 4513}#
+ (if (if #{tmp\ 2405}#
(@apply
- (lambda (#{aok\ 4517}#
- #{a\ 4518}#
- #{b\ 4519}#)
+ (lambda (#{aok\ 2409}#
+ #{a\ 2410}#
+ #{b\ 2411}#)
(if (eq? (syntax->datum
- #{aok\ 4517}#)
+ #{aok\ 2409}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 4518}#)
+ #{a\ 2410}#)
#:rest)
#f))
- #{tmp\ 4513}#)
+ #{tmp\ 2405}#)
#f)
(@apply
- (lambda (#{aok\ 4525}#
- #{a\ 4526}#
- #{b\ 4527}#)
- (#{rest\ 4342}#
- #{b\ 4527}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{aok\ 2417}#
+ #{a\ 2418}#
+ #{b\ 2419}#)
+ (#{rest\ 2234}#
+ #{b\ 2419}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
(cons #t
(reverse
- #{rkey\ 4452}#))))
- #{tmp\ 4513}#)
- (let ((#{tmp\ 4528}#
+ #{rkey\ 2344}#))))
+ #{tmp\ 2405}#)
+ (let ((#{tmp\ 2420}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2349}#
'(any . any))))
- (if (if #{tmp\ 4528}#
+ (if (if #{tmp\ 2420}#
(@apply
- (lambda (#{aok\ 4531}#
- #{r\ 4532}#)
+ (lambda (#{aok\ 2423}#
+ #{r\ 2424}#)
(if (eq?
(syntax->datum
- #{aok\
4531}#)
+ #{aok\
2423}#)
#:allow-other-keys)
- (#{id?\ 2496}#
- #{r\ 4532}#)
+ (#{id?\ 388}#
+ #{r\ 2424}#)
#f))
- #{tmp\ 4528}#)
+ #{tmp\ 2420}#)
#f)
(@apply
- (lambda (#{aok\ 4537}#
- #{r\ 4538}#)
- (#{rest\ 4342}#
- #{r\ 4538}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{aok\ 2429}#
+ #{r\ 2430}#)
+ (#{rest\ 2234}#
+ #{r\ 2430}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
(cons #t
(reverse
- #{rkey\
4452}#))))
- #{tmp\ 4528}#)
- (let ((#{tmp\ 4539}#
+ #{rkey\
2344}#))))
+ #{tmp\ 2420}#)
+ (let ((#{tmp\ 2431}#
($sc-dispatch
- #{tmp\ 4457}#
+ #{tmp\ 2349}#
'(any any))))
- (if (if #{tmp\ 4539}#
+ (if (if #{tmp\ 2431}#
(@apply
- (lambda (#{a\
4542}#
- #{b\
4543}#)
+ (lambda (#{a\
2434}#
+ #{b\
2435}#)
(eq?
(syntax->datum
- #{a\
4542}#)
+ #{a\
2434}#)
#:rest))
- #{tmp\ 4539}#)
+ #{tmp\ 2431}#)
#f)
(@apply
- (lambda (#{a\ 4546}#
- #{b\ 4547}#)
- (#{rest\ 4342}#
- #{b\ 4547}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{a\ 2438}#
+ #{b\ 2439}#)
+ (#{rest\ 2234}#
+ #{b\ 2439}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
(cons #f
(reverse
- #{rkey\
4452}#))))
- #{tmp\ 4539}#)
- (let ((#{tmp\ 4548}#
- (list #{tmp\
4457}#)))
- (if (if #{tmp\ 4548}#
+ #{rkey\
2344}#))))
+ #{tmp\ 2431}#)
+ (let ((#{tmp\ 2440}#
+ (list #{tmp\
2349}#)))
+ (if (if #{tmp\ 2440}#
(@apply
- (lambda (#{r\
4550}#)
- (#{id?\
2496}#
- #{r\
4550}#))
- #{tmp\ 4548}#)
+ (lambda (#{r\
2442}#)
+ (#{id?\ 388}#
+ #{r\
2442}#))
+ #{tmp\ 2440}#)
#f)
(@apply
- (lambda (#{r\
4552}#)
- (#{rest\ 4342}#
- #{r\ 4552}#
- #{req\ 4450}#
- #{opt\ 4451}#
+ (lambda (#{r\
2444}#)
+ (#{rest\ 2234}#
+ #{r\ 2444}#
+ #{req\ 2342}#
+ #{opt\ 2343}#
(cons #f
(reverse
-
#{rkey\ 4452}#))))
- #{tmp\ 4548}#)
- (let ((#{else\ 4554}#
- #{tmp\
4457}#))
+
#{rkey\ 2344}#))))
+ #{tmp\ 2440}#)
+ (let ((#{else\ 2446}#
+ #{tmp\
2349}#))
(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\
2225}#
+ #{args\
2341}#)))))))))))))))))))))))
+ (#{rest\ 2234}#
+ (lambda (#{args\ 2447}#
+ #{req\ 2448}#
+ #{opt\ 2449}#
+ #{kw\ 2450}#)
+ (let ((#{tmp\ 2455}# #{args\ 2447}#))
+ (let ((#{tmp\ 2456}# (list #{tmp\ 2455}#)))
+ (if (if #{tmp\ 2456}#
(@apply
- (lambda (#{r\ 4566}#)
- (#{id?\ 2496}# #{r\ 4566}#))
- #{tmp\ 4564}#)
+ (lambda (#{r\ 2458}#)
+ (#{id?\ 388}# #{r\ 2458}#))
+ #{tmp\ 2456}#)
#f)
(@apply
- (lambda (#{r\ 4568}#)
- (#{check\ 4344}#
- #{req\ 4556}#
- #{opt\ 4557}#
- #{r\ 4568}#
- #{kw\ 4558}#))
- #{tmp\ 4564}#)
- (let ((#{else\ 4570}# #{tmp\ 4563}#))
+ (lambda (#{r\ 2460}#)
+ (#{check\ 2236}#
+ #{req\ 2448}#
+ #{opt\ 2449}#
+ #{r\ 2460}#
+ #{kw\ 2450}#))
+ #{tmp\ 2456}#)
+ (let ((#{else\ 2462}# #{tmp\ 2455}#))
(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\ 2225}#
+ #{args\ 2447}#)))))))
+ (#{check\ 2236}#
+ (lambda (#{req\ 2463}#
+ #{opt\ 2464}#
+ #{rest\ 2465}#
+ #{kw\ 2466}#)
+ (if (#{distinct-bound-ids?\ 453}#
(append
- #{req\ 4571}#
- (map car #{opt\ 4572}#)
- (if #{rest\ 4573}#
- (list #{rest\ 4573}#)
+ #{req\ 2463}#
+ (map car #{opt\ 2464}#)
+ (if #{rest\ 2465}#
+ (list #{rest\ 2465}#)
'())
- (if (pair? #{kw\ 4574}#)
- (map cadr (cdr #{kw\ 4574}#))
+ (if (pair? #{kw\ 2466}#)
+ (map cadr (cdr #{kw\ 2466}#))
'())))
(values
- #{req\ 4571}#
- #{opt\ 4572}#
- #{rest\ 4573}#
- #{kw\ 4574}#)
+ #{req\ 2463}#
+ #{opt\ 2464}#
+ #{rest\ 2465}#
+ #{kw\ 2466}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 4333}#)))))
+ #{orig-args\ 2225}#)))))
(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\ 2228}# #{orig-args\ 2225}# (quote ()))))))
+ (#{chi-lambda-case\ 497}#
+ (lambda (#{e\ 2474}#
+ #{r\ 2475}#
+ #{w\ 2476}#
+ #{s\ 2477}#
+ #{mod\ 2478}#
+ #{get-formals\ 2479}#
+ #{clauses\ 2480}#)
(letrec*
- ((#{expand-req\ 4597}#
- (lambda (#{req\ 4604}#
- #{opt\ 4605}#
- #{rest\ 4606}#
- #{kw\ 4607}#
- #{body\ 4608}#)
+ ((#{expand-req\ 2489}#
+ (lambda (#{req\ 2496}#
+ #{opt\ 2497}#
+ #{rest\ 2498}#
+ #{kw\ 2499}#
+ #{body\ 2500}#)
(begin
- (let ((#{vars\ 4616}#
- (map #{gen-var\ 2609}# #{req\ 4604}#))
- (#{labels\ 4617}#
- (#{gen-labels\ 2514}# #{req\ 4604}#)))
+ (let ((#{vars\ 2508}#
+ (map #{gen-var\ 501}# #{req\ 2496}#))
+ (#{labels\ 2509}#
+ (#{gen-labels\ 406}# #{req\ 2496}#)))
(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*\ 2512}#
+ (#{extend-var-env\ 378}#
+ #{labels\ 2509}#
+ #{vars\ 2508}#
+ #{r\ 2475}#))
+ (#{w*\ 2513}#
+ (#{make-binding-wrap\ 435}#
+ #{req\ 2496}#
+ #{labels\ 2509}#
+ #{w\ 2476}#)))
+ (#{expand-opt\ 2491}#
+ (map syntax->datum #{req\ 2496}#)
+ #{opt\ 2497}#
+ #{rest\ 2498}#
+ #{kw\ 2499}#
+ #{body\ 2500}#
+ (reverse #{vars\ 2508}#)
+ #{r*\ 2512}#
+ #{w*\ 2513}#
'()
'())))))))
- (#{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\ 2491}#
+ (lambda (#{req\ 2514}#
+ #{opt\ 2515}#
+ #{rest\ 2516}#
+ #{kw\ 2517}#
+ #{body\ 2518}#
+ #{vars\ 2519}#
+ #{r*\ 2520}#
+ #{w*\ 2521}#
+ #{out\ 2522}#
+ #{inits\ 2523}#)
+ (if (pair? #{opt\ 2515}#)
+ (let ((#{tmp\ 2536}# (car #{opt\ 2515}#)))
+ (let ((#{tmp\ 2537}#
($sc-dispatch
- #{tmp\ 4644}#
+ #{tmp\ 2536}#
'(any any))))
- (if #{tmp\ 4645}#
+ (if #{tmp\ 2537}#
(@apply
- (lambda (#{id\ 4648}# #{i\ 4649}#)
+ (lambda (#{id\ 2540}# #{i\ 2541}#)
(begin
- (let ((#{v\ 4652}#
- (#{gen-var\ 2609}# #{id\ 4648}#)))
+ (let ((#{v\ 2544}#
+ (#{gen-var\ 501}# #{id\ 2540}#)))
(begin
- (let ((#{l\ 4654}#
- (#{gen-labels\ 2514}#
- (list #{v\ 4652}#))))
+ (let ((#{l\ 2546}#
+ (#{gen-labels\ 406}#
+ (list #{v\ 2544}#))))
(begin
- (let ((#{r**\ 4656}#
- (#{extend-var-env\ 2486}#
- #{l\ 4654}#
- (list #{v\ 4652}#)
- #{r*\ 4628}#)))
+ (let ((#{r**\ 2548}#
+ (#{extend-var-env\ 378}#
+ #{l\ 2546}#
+ (list #{v\ 2544}#)
+ #{r*\ 2520}#)))
(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**\ 2550}#
+ (#{make-binding-wrap\
435}#
+ (list #{id\ 2540}#)
+ #{l\ 2546}#
+ #{w*\ 2521}#)))
+ (#{expand-opt\ 2491}#
+ #{req\ 2514}#
+ (cdr #{opt\ 2515}#)
+ #{rest\ 2516}#
+ #{kw\ 2517}#
+ #{body\ 2518}#
+ (cons #{v\ 2544}#
+ #{vars\ 2519}#)
+ #{r**\ 2548}#
+ #{w**\ 2550}#
(cons (syntax->datum
- #{id\ 4648}#)
- #{out\ 4630}#)
- (cons (#{chi\ 2581}#
- #{i\ 4649}#
- #{r*\ 4628}#
- #{w*\ 4629}#
- #{mod\ 4586}#)
- #{inits\
4631}#)))))))))))
- #{tmp\ 4645}#)
+ #{id\ 2540}#)
+ #{out\ 2522}#)
+ (cons (#{chi\ 473}#
+ #{i\ 2541}#
+ #{r*\ 2520}#
+ #{w*\ 2521}#
+ #{mod\ 2478}#)
+ #{inits\
2523}#)))))))))))
+ #{tmp\ 2537}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4644}#))))
- (if #{rest\ 4624}#
+ #{tmp\ 2536}#))))
+ (if #{rest\ 2516}#
(begin
- (let ((#{v\ 4663}#
- (#{gen-var\ 2609}# #{rest\ 4624}#)))
+ (let ((#{v\ 2555}#
+ (#{gen-var\ 501}# #{rest\ 2516}#)))
(begin
- (let ((#{l\ 4665}#
- (#{gen-labels\ 2514}#
- (list #{v\ 4663}#))))
+ (let ((#{l\ 2557}#
+ (#{gen-labels\ 406}#
+ (list #{v\ 2555}#))))
(begin
- (let ((#{r*\ 4667}#
- (#{extend-var-env\ 2486}#
- #{l\ 4665}#
- (list #{v\ 4663}#)
- #{r*\ 4628}#)))
+ (let ((#{r*\ 2559}#
+ (#{extend-var-env\ 378}#
+ #{l\ 2557}#
+ (list #{v\ 2555}#)
+ #{r*\ 2520}#)))
(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*\ 2561}#
+ (#{make-binding-wrap\ 435}#
+ (list #{rest\ 2516}#)
+ #{l\ 2557}#
+ #{w*\ 2521}#)))
+ (#{expand-kw\ 2493}#
+ #{req\ 2514}#
+ (if (pair? #{out\ 2522}#)
+ (reverse #{out\ 2522}#)
#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\ 2516}#)
+ (if (pair? #{kw\ 2517}#)
+ (cdr #{kw\ 2517}#)
+ #{kw\ 2517}#)
+ #{body\ 2518}#
+ (cons #{v\ 2555}# #{vars\ 2519}#)
+ #{r*\ 2559}#
+ #{w*\ 2561}#
+ (if (pair? #{kw\ 2517}#)
+ (car #{kw\ 2517}#)
#f)
'()
- #{inits\ 4631}#)))))))))
- (#{expand-kw\ 4601}#
- #{req\ 4622}#
- (if (pair? #{out\ 4630}#)
- (reverse #{out\ 4630}#)
+ #{inits\ 2523}#)))))))))
+ (#{expand-kw\ 2493}#
+ #{req\ 2514}#
+ (if (pair? #{out\ 2522}#)
+ (reverse #{out\ 2522}#)
#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\ 2517}#)
+ (cdr #{kw\ 2517}#)
+ #{kw\ 2517}#)
+ #{body\ 2518}#
+ #{vars\ 2519}#
+ #{r*\ 2520}#
+ #{w*\ 2521}#
+ (if (pair? #{kw\ 2517}#) (car #{kw\ 2517}#) #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\ 2523}#)))))
+ (#{expand-kw\ 2493}#
+ (lambda (#{req\ 2563}#
+ #{opt\ 2564}#
+ #{rest\ 2565}#
+ #{kw\ 2566}#
+ #{body\ 2567}#
+ #{vars\ 2568}#
+ #{r*\ 2569}#
+ #{w*\ 2570}#
+ #{aok\ 2571}#
+ #{out\ 2572}#
+ #{inits\ 2573}#)
+ (if (pair? #{kw\ 2566}#)
+ (let ((#{tmp\ 2587}# (car #{kw\ 2566}#)))
+ (let ((#{tmp\ 2588}#
($sc-dispatch
- #{tmp\ 4695}#
+ #{tmp\ 2587}#
'(any any any))))
- (if #{tmp\ 4696}#
+ (if #{tmp\ 2588}#
(@apply
- (lambda (#{k\ 4700}# #{id\ 4701}# #{i\ 4702}#)
+ (lambda (#{k\ 2592}# #{id\ 2593}# #{i\ 2594}#)
(begin
- (let ((#{v\ 4705}#
- (#{gen-var\ 2609}# #{id\ 4701}#)))
+ (let ((#{v\ 2597}#
+ (#{gen-var\ 501}# #{id\ 2593}#)))
(begin
- (let ((#{l\ 4707}#
- (#{gen-labels\ 2514}#
- (list #{v\ 4705}#))))
+ (let ((#{l\ 2599}#
+ (#{gen-labels\ 406}#
+ (list #{v\ 2597}#))))
(begin
- (let ((#{r**\ 4709}#
- (#{extend-var-env\ 2486}#
- #{l\ 4707}#
- (list #{v\ 4705}#)
- #{r*\ 4677}#)))
+ (let ((#{r**\ 2601}#
+ (#{extend-var-env\ 378}#
+ #{l\ 2599}#
+ (list #{v\ 2597}#)
+ #{r*\ 2569}#)))
(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**\ 2603}#
+ (#{make-binding-wrap\
435}#
+ (list #{id\ 2593}#)
+ #{l\ 2599}#
+ #{w*\ 2570}#)))
+ (#{expand-kw\ 2493}#
+ #{req\ 2563}#
+ #{opt\ 2564}#
+ #{rest\ 2565}#
+ (cdr #{kw\ 2566}#)
+ #{body\ 2567}#
+ (cons #{v\ 2597}#
+ #{vars\ 2568}#)
+ #{r**\ 2601}#
+ #{w**\ 2603}#
+ #{aok\ 2571}#
(cons (list (syntax->datum
- #{k\ 4700}#)
+ #{k\ 2592}#)
(syntax->datum
- #{id\ 4701}#)
- #{v\ 4705}#)
- #{out\ 4680}#)
- (cons (#{chi\ 2581}#
- #{i\ 4702}#
- #{r*\ 4677}#
- #{w*\ 4678}#
- #{mod\ 4586}#)
- #{inits\
4681}#)))))))))))
- #{tmp\ 4696}#)
+ #{id\ 2593}#)
+ #{v\ 2597}#)
+ #{out\ 2572}#)
+ (cons (#{chi\ 473}#
+ #{i\ 2594}#
+ #{r*\ 2569}#
+ #{w*\ 2570}#
+ #{mod\ 2478}#)
+ #{inits\
2573}#)))))))))))
+ #{tmp\ 2588}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4695}#))))
- (#{expand-body\ 4603}#
- #{req\ 4671}#
- #{opt\ 4672}#
- #{rest\ 4673}#
+ #{tmp\ 2587}#))))
+ (#{expand-body\ 2495}#
+ #{req\ 2563}#
+ #{opt\ 2564}#
+ #{rest\ 2565}#
(if (begin
- (let ((#{t\ 4715}# #{aok\ 4679}#))
- (if #{t\ 4715}#
- #{t\ 4715}#
- (pair? #{out\ 4680}#))))
- (cons #{aok\ 4679}# (reverse #{out\ 4680}#))
+ (let ((#{t\ 2607}# #{aok\ 2571}#))
+ (if #{t\ 2607}#
+ #{t\ 2607}#
+ (pair? #{out\ 2572}#))))
+ (cons #{aok\ 2571}# (reverse #{out\ 2572}#))
#f)
- #{body\ 4675}#
- (reverse #{vars\ 4676}#)
- #{r*\ 4677}#
- #{w*\ 4678}#
- (reverse #{inits\ 4681}#)
+ #{body\ 2567}#
+ (reverse #{vars\ 2568}#)
+ #{r*\ 2569}#
+ #{w*\ 2570}#
+ (reverse #{inits\ 2573}#)
'()))))
- (#{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\ 2495}#
+ (lambda (#{req\ 2609}#
+ #{opt\ 2610}#
+ #{rest\ 2611}#
+ #{kw\ 2612}#
+ #{body\ 2613}#
+ #{vars\ 2614}#
+ #{r*\ 2615}#
+ #{w*\ 2616}#
+ #{inits\ 2617}#
+ #{meta\ 2618}#)
+ (let ((#{tmp\ 2629}# #{body\ 2613}#))
+ (let ((#{tmp\ 2630}#
($sc-dispatch
- #{tmp\ 4737}#
+ #{tmp\ 2629}#
'(any any . each-any))))
- (if (if #{tmp\ 4738}#
+ (if (if #{tmp\ 2630}#
(@apply
- (lambda (#{docstring\ 4742}#
- #{e1\ 4743}#
- #{e2\ 4744}#)
+ (lambda (#{docstring\ 2634}#
+ #{e1\ 2635}#
+ #{e2\ 2636}#)
(string?
- (syntax->datum #{docstring\ 4742}#)))
- #{tmp\ 4738}#)
+ (syntax->datum #{docstring\ 2634}#)))
+ #{tmp\ 2630}#)
#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\ 2640}#
+ #{e1\ 2641}#
+ #{e2\ 2642}#)
+ (#{expand-body\ 2495}#
+ #{req\ 2609}#
+ #{opt\ 2610}#
+ #{rest\ 2611}#
+ #{kw\ 2612}#
+ (cons #{e1\ 2641}# #{e2\ 2642}#)
+ #{vars\ 2614}#
+ #{r*\ 2615}#
+ #{w*\ 2616}#
+ #{inits\ 2617}#
(append
- #{meta\ 4726}#
+ #{meta\ 2618}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 4748}#))))))
- #{tmp\ 4738}#)
- (let ((#{tmp\ 4753}#
+ #{docstring\ 2640}#))))))
+ #{tmp\ 2630}#)
+ (let ((#{tmp\ 2645}#
($sc-dispatch
- #{tmp\ 4737}#
+ #{tmp\ 2629}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 4753}#
+ (if #{tmp\ 2645}#
(@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\ 2650}#
+ #{v\ 2651}#
+ #{e1\ 2652}#
+ #{e2\ 2653}#)
+ (#{expand-body\ 2495}#
+ #{req\ 2609}#
+ #{opt\ 2610}#
+ #{rest\ 2611}#
+ #{kw\ 2612}#
+ (cons #{e1\ 2652}# #{e2\ 2653}#)
+ #{vars\ 2614}#
+ #{r*\ 2615}#
+ #{w*\ 2616}#
+ #{inits\ 2617}#
(append
- #{meta\ 4726}#
+ #{meta\ 2618}#
(syntax->datum
- (map cons #{k\ 4758}# #{v\ 4759}#)))))
- #{tmp\ 4753}#)
- (let ((#{tmp\ 4765}#
+ (map cons #{k\ 2650}# #{v\ 2651}#)))))
+ #{tmp\ 2645}#)
+ (let ((#{tmp\ 2657}#
($sc-dispatch
- #{tmp\ 4737}#
+ #{tmp\ 2629}#
'(any . each-any))))
- (if #{tmp\ 4765}#
+ (if #{tmp\ 2657}#
(@apply
- (lambda (#{e1\ 4768}# #{e2\ 4769}#)
+ (lambda (#{e1\ 2660}# #{e2\ 2661}#)
(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\ 2618}#
+ #{req\ 2609}#
+ #{opt\ 2610}#
+ #{rest\ 2611}#
+ #{kw\ 2612}#
+ #{inits\ 2617}#
+ #{vars\ 2614}#
+ (#{chi-body\ 481}#
+ (cons #{e1\ 2660}# #{e2\ 2661}#)
+ (#{source-wrap\ 459}#
+ #{e\ 2474}#
+ #{w\ 2476}#
+ #{s\ 2477}#
+ #{mod\ 2478}#)
+ #{r*\ 2615}#
+ #{w*\ 2616}#
+ #{mod\ 2478}#)))
+ #{tmp\ 2657}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 4737}#)))))))))))
+ #{tmp\ 2629}#)))))))))))
(begin
- (let ((#{tmp\ 4771}# #{clauses\ 4588}#))
- (let ((#{tmp\ 4772}#
- ($sc-dispatch #{tmp\ 4771}# (quote ()))))
- (if #{tmp\ 4772}#
+ (let ((#{tmp\ 2663}# #{clauses\ 2480}#))
+ (let ((#{tmp\ 2664}#
+ ($sc-dispatch #{tmp\ 2663}# (quote ()))))
+ (if #{tmp\ 2664}#
(@apply
(lambda () (values (quote ()) #f))
- #{tmp\ 4772}#)
- (let ((#{tmp\ 4773}#
+ #{tmp\ 2664}#)
+ (let ((#{tmp\ 2665}#
($sc-dispatch
- #{tmp\ 4771}#
+ #{tmp\ 2663}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 4773}#
+ (if #{tmp\ 2665}#
(@apply
- (lambda (#{args\ 4780}#
- #{e1\ 4781}#
- #{e2\ 4782}#
- #{args*\ 4783}#
- #{e1*\ 4784}#
- #{e2*\ 4785}#)
+ (lambda (#{args\ 2672}#
+ #{e1\ 2673}#
+ #{e2\ 2674}#
+ #{args*\ 2675}#
+ #{e1*\ 2676}#
+ #{e2*\ 2677}#)
(call-with-values
(lambda ()
- (#{get-formals\ 4587}# #{args\ 4780}#))
- (lambda (#{req\ 4786}#
- #{opt\ 4787}#
- #{rest\ 4788}#
- #{kw\ 4789}#)
+ (#{get-formals\ 2479}# #{args\ 2672}#))
+ (lambda (#{req\ 2678}#
+ #{opt\ 2679}#
+ #{rest\ 2680}#
+ #{kw\ 2681}#)
(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\ 2489}#
+ #{req\ 2678}#
+ #{opt\ 2679}#
+ #{rest\ 2680}#
+ #{kw\ 2681}#
+ (cons #{e1\ 2673}# #{e2\ 2674}#)))
+ (lambda (#{meta\ 2687}#
+ #{req\ 2688}#
+ #{opt\ 2689}#
+ #{rest\ 2690}#
+ #{kw\ 2691}#
+ #{inits\ 2692}#
+ #{vars\ 2693}#
+ #{body\ 2694}#)
(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\ 497}#
+ #{e\ 2474}#
+ #{r\ 2475}#
+ #{w\ 2476}#
+ #{s\ 2477}#
+ #{mod\ 2478}#
+ #{get-formals\ 2479}#
+ (map (lambda (#{tmp\ 2705}#
+ #{tmp\ 2704}#
+ #{tmp\ 2703}#)
+ (cons #{tmp\ 2703}#
+ (cons #{tmp\ 2704}#
+ #{tmp\
2705}#)))
+ #{e2*\ 2677}#
+ #{e1*\ 2676}#
+ #{args*\ 2675}#)))
+ (lambda (#{meta*\ 2707}#
+ #{else*\ 2708}#)
(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\ 2687}#
+ #{meta*\ 2707}#)
+ (#{build-lambda-case\ 334}#
+ #{s\ 2477}#
+ #{req\ 2688}#
+ #{opt\ 2689}#
+ #{rest\ 2690}#
+ #{kw\ 2691}#
+ #{inits\ 2692}#
+ #{vars\ 2693}#
+ #{body\ 2694}#
+ #{else*\ 2708}#)))))))))
+ #{tmp\ 2665}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4771}#))))))))))
- (#{strip\ 2607}#
- (lambda (#{x\ 4819}# #{w\ 4820}#)
+ #{tmp\ 2663}#))))))))))
+ (#{strip\ 499}#
+ (lambda (#{x\ 2711}# #{w\ 2712}#)
(if (memq 'top
- (#{wrap-marks\ 2503}# #{w\ 4820}#))
- #{x\ 4819}#
+ (#{wrap-marks\ 395}# #{w\ 2712}#))
+ #{x\ 2711}#
(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\ 2718}#
+ (lambda (#{x\ 2719}#)
+ (if (#{syntax-object?\ 352}# #{x\ 2719}#)
+ (#{strip\ 499}#
+ (#{syntax-object-expression\ 354}# #{x\ 2719}#)
+ (#{syntax-object-wrap\ 356}# #{x\ 2719}#))
+ (if (pair? #{x\ 2719}#)
(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\ 2726}# (#{f\ 2718}# (car #{x\ 2719}#)))
+ (#{d\ 2727}#
+ (#{f\ 2718}# (cdr #{x\ 2719}#))))
+ (if (if (eq? #{a\ 2726}# (car #{x\ 2719}#))
+ (eq? #{d\ 2727}# (cdr #{x\ 2719}#))
#f)
- #{x\ 4827}#
- (cons #{a\ 4834}# #{d\ 4835}#))))
- (if (vector? #{x\ 4827}#)
+ #{x\ 2719}#
+ (cons #{a\ 2726}# #{d\ 2727}#))))
+ (if (vector? #{x\ 2719}#)
(begin
- (let ((#{old\ 4841}# (vector->list #{x\ 4827}#)))
+ (let ((#{old\ 2733}# (vector->list #{x\ 2719}#)))
(begin
- (let ((#{new\ 4843}#
- (map #{f\ 4826}# #{old\ 4841}#)))
- (if (#{and-map*\ 2144}#
+ (let ((#{new\ 2735}#
+ (map #{f\ 2718}# #{old\ 2733}#)))
+ (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\ 2733}#
+ #{new\ 2735}#)
+ #{x\ 2719}#
+ (list->vector #{new\ 2735}#))))))
+ #{x\ 2719}#))))))
+ (begin (#{f\ 2718}# #{x\ 2711}#))))))
+ (#{gen-var\ 501}#
+ (lambda (#{id\ 2737}#)
(begin
- (let ((#{id\ 4848}#
- (if (#{syntax-object?\ 2460}# #{id\ 4845}#)
- (#{syntax-object-expression\ 2462}# #{id\ 4845}#)
- #{id\ 4845}#)))
+ (let ((#{id\ 2740}#
+ (if (#{syntax-object?\ 352}# #{id\ 2737}#)
+ (#{syntax-object-expression\ 354}# #{id\ 2737}#)
+ #{id\ 2737}#)))
(gensym
- (string-append (symbol->string #{id\ 4848}#) " "))))))
- (#{lambda-var-list\ 2611}#
- (lambda (#{vars\ 4850}#)
+ (string-append (symbol->string #{id\ 2740}#) " "))))))
+ (#{lambda-var-list\ 503}#
+ (lambda (#{vars\ 2742}#)
(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\ 2748}#
+ (lambda (#{vars\ 2749}# #{ls\ 2750}# #{w\ 2751}#)
+ (if (pair? #{vars\ 2749}#)
+ (#{lvl\ 2748}#
+ (cdr #{vars\ 2749}#)
+ (cons (#{wrap\ 457}#
+ (car #{vars\ 2749}#)
+ #{w\ 2751}#
#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\ 2750}#)
+ #{w\ 2751}#)
+ (if (#{id?\ 388}# #{vars\ 2749}#)
+ (cons (#{wrap\ 457}# #{vars\ 2749}# #{w\ 2751}# #f)
+ #{ls\ 2750}#)
+ (if (null? #{vars\ 2749}#)
+ #{ls\ 2750}#
+ (if (#{syntax-object?\ 352}# #{vars\ 2749}#)
+ (#{lvl\ 2748}#
+ (#{syntax-object-expression\ 354}#
+ #{vars\ 2749}#)
+ #{ls\ 2750}#
+ (#{join-wraps\ 439}#
+ #{w\ 2751}#
+ (#{syntax-object-wrap\ 356}# #{vars\ 2749}#)))
+ (cons #{vars\ 2749}# #{ls\ 2750}#))))))))
(begin
- (#{lvl\ 4856}#
- #{vars\ 4850}#
+ (#{lvl\ 2748}#
+ #{vars\ 2742}#
'()
'(())))))))
(begin
- (set! #{make-primitive-ref\ 2358}#
- (lambda (#{src\ 2832}# #{name\ 2833}#)
+ (set! #{make-primitive-ref\ 250}#
+ (lambda (#{src\ 724}# #{name\ 725}#)
(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\ 724}#
+ #{name\ 725}#)))
+ (set! #{fx+\ 289}# +)
+ (set! #{fx-\ 291}# -)
+ (set! #{fx=\ 293}# =)
+ (set! #{fx<\ 295}# <)
+ (set! #{set-syntax-object-expression!\ 360}#
+ (lambda (#{x\ 1102}# #{update\ 1103}#)
+ (vector-set! #{x\ 1102}# 1 #{update\ 1103}#)))
+ (set! #{set-syntax-object-wrap!\ 362}#
+ (lambda (#{x\ 1106}# #{update\ 1107}#)
+ (vector-set! #{x\ 1106}# 2 #{update\ 1107}#)))
+ (set! #{set-syntax-object-module!\ 364}#
+ (lambda (#{x\ 1110}# #{update\ 1111}#)
+ (vector-set! #{x\ 1110}# 3 #{update\ 1111}#)))
+ (set! #{binding-type\ 371}# car)
+ (set! #{binding-value\ 373}# cdr)
+ (set! #{make-wrap\ 393}# cons)
+ (set! #{wrap-marks\ 395}# car)
+ (set! #{wrap-subst\ 397}# cdr)
+ (set! #{ribcage?\ 411}#
+ (lambda (#{x\ 1188}#)
+ (if (vector? #{x\ 1188}#)
+ (if (= (vector-length #{x\ 1188}#) 4)
+ (eq? (vector-ref #{x\ 1188}# 0) (quote ribcage))
#f)
#f)))
(begin
- (#{global-extend\ 2492}#
+ (#{global-extend\ 384}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 2492}#
+ (#{global-extend\ 384}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 2492}#
+ (#{global-extend\ 384}#
'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\ 2762}#
+ #{r\ 2763}#
+ #{w\ 2764}#
+ #{s\ 2765}#
+ #{mod\ 2766}#)
+ (let ((#{tmp\ 2772}# #{e\ 2762}#))
+ (let ((#{tmp\ 2773}#
($sc-dispatch
- #{tmp\ 4880}#
+ #{tmp\ 2772}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4881}#
+ (if (if #{tmp\ 2773}#
(@apply
- (lambda (#{_\ 4887}#
- #{var\ 4888}#
- #{val\ 4889}#
- #{e1\ 4890}#
- #{e2\ 4891}#)
- (#{valid-bound-ids?\ 2559}# #{var\ 4888}#))
- #{tmp\ 4881}#)
+ (lambda (#{_\ 2779}#
+ #{var\ 2780}#
+ #{val\ 2781}#
+ #{e1\ 2782}#
+ #{e2\ 2783}#)
+ (#{valid-bound-ids?\ 451}# #{var\ 2780}#))
+ #{tmp\ 2773}#)
#f)
(@apply
- (lambda (#{_\ 4898}#
- #{var\ 4899}#
- #{val\ 4900}#
- #{e1\ 4901}#
- #{e2\ 4902}#)
+ (lambda (#{_\ 2790}#
+ #{var\ 2791}#
+ #{val\ 2792}#
+ #{e1\ 2793}#
+ #{e2\ 2794}#)
(begin
- (let ((#{names\ 4904}#
- (map (lambda (#{x\ 4905}#)
- (#{id-var-name\ 2553}#
- #{x\ 4905}#
- #{w\ 4872}#))
- #{var\ 4899}#)))
+ (let ((#{names\ 2796}#
+ (map (lambda (#{x\ 2797}#)
+ (#{id-var-name\ 445}#
+ #{x\ 2797}#
+ #{w\ 2764}#))
+ #{var\ 2791}#)))
(begin
(for-each
- (lambda (#{id\ 4908}# #{n\ 4909}#)
+ (lambda (#{id\ 2800}# #{n\ 2801}#)
(begin
- (let ((#{atom-key\ 4914}#
- (#{binding-type\ 2479}#
- (#{lookup\ 2490}#
- #{n\ 4909}#
- #{r\ 4871}#
- #{mod\ 4874}#))))
- (if (eqv? #{atom-key\ 4914}#
+ (let ((#{atom-key\ 2806}#
+ (#{binding-type\ 371}#
+ (#{lookup\ 382}#
+ #{n\ 2801}#
+ #{r\ 2763}#
+ #{mod\ 2766}#))))
+ (if (eqv? #{atom-key\ 2806}#
'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\ 2762}#
+ (#{source-wrap\ 459}#
+ #{id\ 2800}#
+ #{w\ 2764}#
+ #{s\ 2765}#
+ #{mod\ 2766}#))))))
+ #{var\ 2791}#
+ #{names\ 2796}#)
+ (#{chi-body\ 481}#
+ (cons #{e1\ 2793}# #{e2\ 2794}#)
+ (#{source-wrap\ 459}#
+ #{e\ 2762}#
+ #{w\ 2764}#
+ #{s\ 2765}#
+ #{mod\ 2766}#)
+ (#{extend-env\ 376}#
+ #{names\ 2796}#
(begin
- (let ((#{trans-r\ 4919}#
- (#{macros-only-env\ 2488}#
- #{r\ 4871}#)))
- (map (lambda (#{x\ 4920}#)
+ (let ((#{trans-r\ 2811}#
+ (#{macros-only-env\ 380}#
+ #{r\ 2763}#)))
+ (map (lambda (#{x\ 2812}#)
(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\ 485}#
+ (#{chi\ 473}#
+ #{x\ 2812}#
+ #{trans-r\ 2811}#
+ #{w\ 2764}#
+ #{mod\ 2766}#)
+ #{mod\ 2766}#)))
+ #{val\ 2792}#)))
+ #{r\ 2763}#)
+ #{w\ 2764}#
+ #{mod\ 2766}#)))))
+ #{tmp\ 2773}#)
+ (let ((#{_\ 2817}# #{tmp\ 2772}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 2567}#
- #{e\ 4870}#
- #{w\ 4872}#
- #{s\ 4873}#
- #{mod\ 4874}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 459}#
+ #{e\ 2762}#
+ #{w\ 2764}#
+ #{s\ 2765}#
+ #{mod\ 2766}#))))))))
+ (#{global-extend\ 384}#
'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\ 2818}#
+ #{r\ 2819}#
+ #{w\ 2820}#
+ #{s\ 2821}#
+ #{mod\ 2822}#)
+ (let ((#{tmp\ 2828}# #{e\ 2818}#))
+ (let ((#{tmp\ 2829}#
+ ($sc-dispatch #{tmp\ 2828}# (quote (any any)))))
+ (if #{tmp\ 2829}#
(@apply
- (lambda (#{_\ 4940}# #{e\ 4941}#)
- (#{build-data\ 2446}#
- #{s\ 4929}#
- (#{strip\ 2607}# #{e\ 4941}# #{w\ 4928}#)))
- #{tmp\ 4937}#)
- (let ((#{_\ 4943}# #{tmp\ 4936}#))
+ (lambda (#{_\ 2832}# #{e\ 2833}#)
+ (#{build-data\ 338}#
+ #{s\ 2821}#
+ (#{strip\ 499}# #{e\ 2833}# #{w\ 2820}#)))
+ #{tmp\ 2829}#)
+ (let ((#{_\ 2835}# #{tmp\ 2828}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 2567}#
- #{e\ 4926}#
- #{w\ 4928}#
- #{s\ 4929}#
- #{mod\ 4930}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 459}#
+ #{e\ 2818}#
+ #{w\ 2820}#
+ #{s\ 2821}#
+ #{mod\ 2822}#))))))))
+ (#{global-extend\ 384}#
'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\ 2837}#
+ (lambda (#{src\ 2852}#
+ #{e\ 2853}#
+ #{r\ 2854}#
+ #{maps\ 2855}#
+ #{ellipsis?\ 2856}#
+ #{mod\ 2857}#)
+ (if (#{id?\ 388}# #{e\ 2853}#)
(begin
- (let ((#{label\ 4973}#
- (#{id-var-name\ 2553}#
- #{e\ 4961}#
+ (let ((#{label\ 2865}#
+ (#{id-var-name\ 445}#
+ #{e\ 2853}#
'(()))))
(begin
- (let ((#{b\ 4976}#
- (#{lookup\ 2490}#
- #{label\ 4973}#
- #{r\ 4962}#
- #{mod\ 4965}#)))
- (if (eq? (#{binding-type\ 2479}# #{b\ 4976}#)
+ (let ((#{b\ 2868}#
+ (#{lookup\ 382}#
+ #{label\ 2865}#
+ #{r\ 2854}#
+ #{mod\ 2857}#)))
+ (if (eq? (#{binding-type\ 371}# #{b\ 2868}#)
'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\ 2870}#
+ (#{binding-value\ 373}#
+ #{b\ 2868}#)))
+ (#{gen-ref\ 2839}#
+ #{src\ 2852}#
+ (car #{var.lev\ 2870}#)
+ (cdr #{var.lev\ 2870}#)
+ #{maps\ 2855}#))))
+ (lambda (#{var\ 2871}# #{maps\ 2872}#)
(values
- (list (quote ref) #{var\ 4979}#)
- #{maps\ 4980}#)))
- (if (#{ellipsis?\ 4964}# #{e\ 4961}#)
+ (list (quote ref) #{var\ 2871}#)
+ #{maps\ 2872}#)))
+ (if (#{ellipsis?\ 2856}# #{e\ 2853}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 4960}#)
+ #{src\ 2852}#)
(values
- (list (quote quote) #{e\ 4961}#)
- #{maps\ 4963}#)))))))
- (let ((#{tmp\ 4985}# #{e\ 4961}#))
- (let ((#{tmp\ 4986}#
+ (list (quote quote) #{e\ 2853}#)
+ #{maps\ 2855}#)))))))
+ (let ((#{tmp\ 2877}# #{e\ 2853}#))
+ (let ((#{tmp\ 2878}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2877}#
'(any any))))
- (if (if #{tmp\ 4986}#
+ (if (if #{tmp\ 2878}#
(@apply
- (lambda (#{dots\ 4989}# #{e\ 4990}#)
- (#{ellipsis?\ 4964}# #{dots\ 4989}#))
- #{tmp\ 4986}#)
+ (lambda (#{dots\ 2881}# #{e\ 2882}#)
+ (#{ellipsis?\ 2856}# #{dots\ 2881}#))
+ #{tmp\ 2878}#)
#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\ 2885}# #{e\ 2886}#)
+ (#{gen-syntax\ 2837}#
+ #{src\ 2852}#
+ #{e\ 2886}#
+ #{r\ 2854}#
+ #{maps\ 2855}#
+ (lambda (#{x\ 2887}#) #f)
+ #{mod\ 2857}#))
+ #{tmp\ 2878}#)
+ (let ((#{tmp\ 2889}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2877}#
'(any any . any))))
- (if (if #{tmp\ 4997}#
+ (if (if #{tmp\ 2889}#
(@apply
- (lambda (#{x\ 5001}#
- #{dots\ 5002}#
- #{y\ 5003}#)
- (#{ellipsis?\ 4964}# #{dots\ 5002}#))
- #{tmp\ 4997}#)
+ (lambda (#{x\ 2893}#
+ #{dots\ 2894}#
+ #{y\ 2895}#)
+ (#{ellipsis?\ 2856}# #{dots\ 2894}#))
+ #{tmp\ 2889}#)
#f)
(@apply
- (lambda (#{x\ 5007}#
- #{dots\ 5008}#
- #{y\ 5009}#)
+ (lambda (#{x\ 2899}#
+ #{dots\ 2900}#
+ #{y\ 2901}#)
(letrec*
- ((#{f\ 5013}#
- (lambda (#{y\ 5014}# #{k\ 5015}#)
- (let ((#{tmp\ 5022}# #{y\ 5014}#))
- (let ((#{tmp\ 5023}#
+ ((#{f\ 2905}#
+ (lambda (#{y\ 2906}# #{k\ 2907}#)
+ (let ((#{tmp\ 2914}# #{y\ 2906}#))
+ (let ((#{tmp\ 2915}#
($sc-dispatch
- #{tmp\ 5022}#
+ #{tmp\ 2914}#
'(any . any))))
- (if (if #{tmp\ 5023}#
+ (if (if #{tmp\ 2915}#
(@apply
- (lambda (#{dots\ 5026}#
- #{y\ 5027}#)
- (#{ellipsis?\ 4964}#
- #{dots\ 5026}#))
- #{tmp\ 5023}#)
+ (lambda (#{dots\ 2918}#
+ #{y\ 2919}#)
+ (#{ellipsis?\ 2856}#
+ #{dots\ 2918}#))
+ #{tmp\ 2915}#)
#f)
(@apply
- (lambda (#{dots\ 5030}#
- #{y\ 5031}#)
- (#{f\ 5013}#
- #{y\ 5031}#
- (lambda (#{maps\
5032}#)
+ (lambda (#{dots\ 2922}#
+ #{y\ 2923}#)
+ (#{f\ 2905}#
+ #{y\ 2923}#
+ (lambda (#{maps\
2924}#)
(call-with-values
(lambda ()
- (#{k\ 5015}#
+ (#{k\ 2907}#
(cons '()
- #{maps\
5032}#)))
- (lambda (#{x\
5034}#
- #{maps\
5035}#)
- (if (null? (car
#{maps\ 5035}#))
+ #{maps\
2924}#)))
+ (lambda (#{x\
2926}#
+ #{maps\
2927}#)
+ (if (null? (car
#{maps\ 2927}#))
(syntax-violation
'syntax
"extra
ellipsis"
- #{src\
4960}#)
+ #{src\
2852}#)
(values
-
(#{gen-mappend\ 4949}#
- #{x\ 5034}#
- (car
#{maps\ 5035}#))
- (cdr #{maps\
5035}#))))))))
- #{tmp\ 5023}#)
- (let ((#{_\ 5039}#
- #{tmp\ 5022}#))
+
(#{gen-mappend\ 2841}#
+ #{x\ 2926}#
+ (car
#{maps\ 2927}#))
+ (cdr #{maps\
2927}#))))))))
+ #{tmp\ 2915}#)
+ (let ((#{_\ 2931}#
+ #{tmp\ 2914}#))
(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\ 2837}#
+ #{src\ 2852}#
+ #{y\ 2906}#
+ #{r\ 2854}#
+ #{maps\ 2855}#
+ #{ellipsis?\ 2856}#
+ #{mod\ 2857}#))
+ (lambda (#{y\ 2932}#
+ #{maps\ 2933}#)
(call-with-values
(lambda ()
- (#{k\ 5015}#
- #{maps\ 5041}#))
- (lambda (#{x\ 5044}#
- #{maps\
5045}#)
+ (#{k\ 2907}#
+ #{maps\ 2933}#))
+ (lambda (#{x\ 2936}#
+ #{maps\
2937}#)
(values
- (#{gen-append\
4955}#
- #{x\ 5044}#
- #{y\ 5040}#)
- #{maps\
5045}#))))))))))))
+ (#{gen-append\
2847}#
+ #{x\ 2936}#
+ #{y\ 2932}#)
+ #{maps\
2937}#))))))))))))
(begin
- (#{f\ 5013}#
- #{y\ 5009}#
- (lambda (#{maps\ 5016}#)
+ (#{f\ 2905}#
+ #{y\ 2901}#
+ (lambda (#{maps\ 2908}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{src\ 4960}#
- #{x\ 5007}#
- #{r\ 4962}#
+ (#{gen-syntax\ 2837}#
+ #{src\ 2852}#
+ #{x\ 2899}#
+ #{r\ 2854}#
(cons '()
- #{maps\ 5016}#)
- #{ellipsis?\ 4964}#
- #{mod\ 4965}#))
- (lambda (#{x\ 5018}#
- #{maps\ 5019}#)
- (if (null? (car #{maps\
5019}#))
+ #{maps\ 2908}#)
+ #{ellipsis?\ 2856}#
+ #{mod\ 2857}#))
+ (lambda (#{x\ 2910}#
+ #{maps\ 2911}#)
+ (if (null? (car #{maps\
2911}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 4960}#)
+ #{src\ 2852}#)
(values
- (#{gen-map\ 4951}#
- #{x\ 5018}#
- (car #{maps\ 5019}#))
- (cdr #{maps\
5019}#))))))))))
- #{tmp\ 4997}#)
- (let ((#{tmp\ 5048}#
+ (#{gen-map\ 2843}#
+ #{x\ 2910}#
+ (car #{maps\ 2911}#))
+ (cdr #{maps\
2911}#))))))))))
+ #{tmp\ 2889}#)
+ (let ((#{tmp\ 2940}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2877}#
'(any . any))))
- (if #{tmp\ 5048}#
+ (if #{tmp\ 2940}#
(@apply
- (lambda (#{x\ 5051}# #{y\ 5052}#)
+ (lambda (#{x\ 2943}# #{y\ 2944}#)
(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\ 2837}#
+ #{src\ 2852}#
+ #{x\ 2943}#
+ #{r\ 2854}#
+ #{maps\ 2855}#
+ #{ellipsis?\ 2856}#
+ #{mod\ 2857}#))
+ (lambda (#{x\ 2945}# #{maps\ 2946}#)
(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\ 2837}#
+ #{src\ 2852}#
+ #{y\ 2944}#
+ #{r\ 2854}#
+ #{maps\ 2946}#
+ #{ellipsis?\ 2856}#
+ #{mod\ 2857}#))
+ (lambda (#{y\ 2949}#
+ #{maps\ 2950}#)
(values
- (#{gen-cons\ 4953}#
- #{x\ 5053}#
- #{y\ 5057}#)
- #{maps\ 5058}#))))))
- #{tmp\ 5048}#)
- (let ((#{tmp\ 5061}#
+ (#{gen-cons\ 2845}#
+ #{x\ 2945}#
+ #{y\ 2949}#)
+ #{maps\ 2950}#))))))
+ #{tmp\ 2940}#)
+ (let ((#{tmp\ 2953}#
($sc-dispatch
- #{tmp\ 4985}#
+ #{tmp\ 2877}#
'#(vector (any . each-any)))))
- (if #{tmp\ 5061}#
+ (if #{tmp\ 2953}#
(@apply
- (lambda (#{e1\ 5064}# #{e2\ 5065}#)
+ (lambda (#{e1\ 2956}# #{e2\ 2957}#)
(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\ 2837}#
+ #{src\ 2852}#
+ (cons #{e1\ 2956}#
+ #{e2\ 2957}#)
+ #{r\ 2854}#
+ #{maps\ 2855}#
+ #{ellipsis?\ 2856}#
+ #{mod\ 2857}#))
+ (lambda (#{e\ 2959}#
+ #{maps\ 2960}#)
(values
- (#{gen-vector\ 4957}#
- #{e\ 5067}#)
- #{maps\ 5068}#))))
- #{tmp\ 5061}#)
- (let ((#{_\ 5072}# #{tmp\ 4985}#))
+ (#{gen-vector\ 2849}#
+ #{e\ 2959}#)
+ #{maps\ 2960}#))))
+ #{tmp\ 2953}#)
+ (let ((#{_\ 2964}# #{tmp\ 2877}#))
(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\ 2853}#)
+ #{maps\ 2855}#))))))))))))))
+ (#{gen-ref\ 2839}#
+ (lambda (#{src\ 2966}#
+ #{var\ 2967}#
+ #{level\ 2968}#
+ #{maps\ 2969}#)
+ (if (#{fx=\ 293}# #{level\ 2968}# 0)
+ (values #{var\ 2967}# #{maps\ 2969}#)
+ (if (null? #{maps\ 2969}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 5074}#)
+ #{src\ 2966}#)
(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\ 2839}#
+ #{src\ 2966}#
+ #{var\ 2967}#
+ (#{fx-\ 291}# #{level\ 2968}# 1)
+ (cdr #{maps\ 2969}#)))
+ (lambda (#{outer-var\ 2974}# #{outer-maps\ 2975}#)
(begin
- (let ((#{b\ 5087}#
- (assq #{outer-var\ 5082}#
- (car #{maps\ 5077}#))))
- (if #{b\ 5087}#
- (values (cdr #{b\ 5087}#) #{maps\ 5077}#)
+ (let ((#{b\ 2979}#
+ (assq #{outer-var\ 2974}#
+ (car #{maps\ 2969}#))))
+ (if #{b\ 2979}#
+ (values (cdr #{b\ 2979}#) #{maps\ 2969}#)
(begin
- (let ((#{inner-var\ 5089}#
- (#{gen-var\ 2609}# (quote tmp))))
+ (let ((#{inner-var\ 2981}#
+ (#{gen-var\ 501}# (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\ 2981}#
+ (cons (cons (cons #{outer-var\ 2974}#
+ #{inner-var\ 2981}#)
+ (car #{maps\ 2969}#))
+ #{outer-maps\
2975}#)))))))))))))
+ (#{gen-mappend\ 2841}#
+ (lambda (#{e\ 2982}# #{map-env\ 2983}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 4951}# #{e\ 5090}# #{map-env\ 5091}#))))
- (#{gen-map\ 4951}#
- (lambda (#{e\ 5095}# #{map-env\ 5096}#)
+ (#{gen-map\ 2843}# #{e\ 2982}# #{map-env\ 2983}#))))
+ (#{gen-map\ 2843}#
+ (lambda (#{e\ 2987}# #{map-env\ 2988}#)
(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\ 2993}# (map cdr #{map-env\ 2988}#))
+ (#{actuals\ 2994}#
+ (map (lambda (#{x\ 2995}#)
+ (list (quote ref) (car #{x\ 2995}#)))
+ #{map-env\ 2988}#)))
+ (if (eq? (car #{e\ 2987}#) (quote ref))
+ (car #{actuals\ 2994}#)
(if (and-map
- (lambda (#{x\ 5110}#)
- (if (eq? (car #{x\ 5110}#) (quote ref))
- (memq (car (cdr #{x\ 5110}#))
- #{formals\ 5101}#)
+ (lambda (#{x\ 3002}#)
+ (if (eq? (car #{x\ 3002}#) (quote ref))
+ (memq (car (cdr #{x\ 3002}#))
+ #{formals\ 2993}#)
#f))
- (cdr #{e\ 5095}#))
+ (cdr #{e\ 2987}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 5095}#))
+ (car #{e\ 2987}#))
(map (begin
- (let ((#{r\ 5116}#
+ (let ((#{r\ 3008}#
(map cons
- #{formals\ 5101}#
- #{actuals\
5102}#)))
- (lambda (#{x\ 5117}#)
- (cdr (assq (car (cdr #{x\
5117}#))
- #{r\ 5116}#)))))
- (cdr #{e\ 5095}#))))
+ #{formals\ 2993}#
+ #{actuals\
2994}#)))
+ (lambda (#{x\ 3009}#)
+ (cdr (assq (car (cdr #{x\
3009}#))
+ #{r\ 3008}#)))))
+ (cdr #{e\ 2987}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 5101}#
- #{e\ 5095}#)
- #{actuals\ 5102}#))))))))
- (#{gen-cons\ 4953}#
- (lambda (#{x\ 5121}# #{y\ 5122}#)
+ #{formals\ 2993}#
+ #{e\ 2987}#)
+ #{actuals\ 2994}#))))))))
+ (#{gen-cons\ 2845}#
+ (lambda (#{x\ 3013}# #{y\ 3014}#)
(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\ 3019}# (car #{y\ 3014}#)))
+ (if (eqv? #{atom-key\ 3019}# (quote quote))
+ (if (eq? (car #{x\ 3013}#) (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\ 3013}#))
+ (car (cdr #{y\ 3014}#))))
+ (if (eq? (car (cdr #{y\ 3014}#)) (quote ()))
+ (list (quote list) #{x\ 3013}#)
+ (list (quote cons) #{x\ 3013}# #{y\ 3014}#)))
+ (if (eqv? #{atom-key\ 3019}# (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\ 3013}# (cdr #{y\ 3014}#)))
+ (list (quote cons) #{x\ 3013}# #{y\ 3014}#)))))))
+ (#{gen-append\ 2847}#
+ (lambda (#{x\ 3028}# #{y\ 3029}#)
+ (if (equal? #{y\ 3029}# (quote (quote ())))
+ #{x\ 3028}#
+ (list (quote append) #{x\ 3028}# #{y\ 3029}#))))
+ (#{gen-vector\ 2849}#
+ (lambda (#{x\ 3033}#)
+ (if (eq? (car #{x\ 3033}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 3033}#))
+ (if (eq? (car #{x\ 3033}#) (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\ 3033}#))))
+ (list (quote list->vector) #{x\ 3033}#)))))
+ (#{regen\ 2851}#
+ (lambda (#{x\ 3043}#)
(begin
- (let ((#{atom-key\ 5155}# (car #{x\ 5151}#)))
- (if (eqv? #{atom-key\ 5155}# (quote ref))
- (#{build-lexical-reference\ 2426}#
+ (let ((#{atom-key\ 3047}# (car #{x\ 3043}#)))
+ (if (eqv? #{atom-key\ 3047}# (quote ref))
+ (#{build-lexical-reference\ 318}#
'value
#f
- (car (cdr #{x\ 5151}#))
- (car (cdr #{x\ 5151}#)))
- (if (eqv? #{atom-key\ 5155}# (quote primitive))
- (#{build-primref\ 2444}#
+ (car (cdr #{x\ 3043}#))
+ (car (cdr #{x\ 3043}#)))
+ (if (eqv? #{atom-key\ 3047}# (quote primitive))
+ (#{build-primref\ 336}#
#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\ 3043}#)))
+ (if (eqv? #{atom-key\ 3047}# (quote quote))
+ (#{build-data\ 338}# #f (car (cdr #{x\ 3043}#)))
+ (if (eqv? #{atom-key\ 3047}# (quote lambda))
+ (if (list? (car (cdr #{x\ 3043}#)))
+ (#{build-simple-lambda\ 330}#
#f
- (car (cdr #{x\ 5151}#))
+ (car (cdr #{x\ 3043}#))
#f
- (car (cdr #{x\ 5151}#))
+ (car (cdr #{x\ 3043}#))
'()
- (#{regen\ 4959}#
- (car (cdr (cdr #{x\ 5151}#)))))
- (error "how did we get here" #{x\ 5151}#))
- (#{build-application\ 2420}#
+ (#{regen\ 2851}#
+ (car (cdr (cdr #{x\ 3043}#)))))
+ (error "how did we get here" #{x\ 3043}#))
+ (#{build-application\ 312}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 336}#
#f
- (car #{x\ 5151}#))
- (map #{regen\ 4959}#
- (cdr #{x\ 5151}#))))))))))))
+ (car #{x\ 3043}#))
+ (map #{regen\ 2851}#
+ (cdr #{x\ 3043}#))))))))))))
(begin
- (lambda (#{e\ 5167}#
- #{r\ 5168}#
- #{w\ 5169}#
- #{s\ 5170}#
- #{mod\ 5171}#)
+ (lambda (#{e\ 3059}#
+ #{r\ 3060}#
+ #{w\ 3061}#
+ #{s\ 3062}#
+ #{mod\ 3063}#)
(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\ 3070}#
+ (#{source-wrap\ 459}#
+ #{e\ 3059}#
+ #{w\ 3061}#
+ #{s\ 3062}#
+ #{mod\ 3063}#)))
+ (let ((#{tmp\ 3071}# #{e\ 3070}#))
+ (let ((#{tmp\ 3072}#
($sc-dispatch
- #{tmp\ 5179}#
+ #{tmp\ 3071}#
'(any any))))
- (if #{tmp\ 5180}#
+ (if #{tmp\ 3072}#
(@apply
- (lambda (#{_\ 5183}# #{x\ 5184}#)
+ (lambda (#{_\ 3075}# #{x\ 3076}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 4945}#
- #{e\ 5178}#
- #{x\ 5184}#
- #{r\ 5168}#
+ (#{gen-syntax\ 2837}#
+ #{e\ 3070}#
+ #{x\ 3076}#
+ #{r\ 3060}#
'()
- #{ellipsis?\ 2597}#
- #{mod\ 5171}#))
- (lambda (#{e\ 5185}# #{maps\ 5186}#)
- (#{regen\ 4959}# #{e\ 5185}#))))
- #{tmp\ 5180}#)
- (let ((#{_\ 5190}# #{tmp\ 5179}#))
+ #{ellipsis?\ 489}#
+ #{mod\ 3063}#))
+ (lambda (#{e\ 3077}# #{maps\ 3078}#)
+ (#{regen\ 2851}# #{e\ 3077}#))))
+ #{tmp\ 3072}#)
+ (let ((#{_\ 3082}# #{tmp\ 3071}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 5178}#)))))))))))
- (#{global-extend\ 2492}#
+ #{e\ 3070}#)))))))))))
+ (#{global-extend\ 384}#
'core
'lambda
- (lambda (#{e\ 5191}#
- #{r\ 5192}#
- #{w\ 5193}#
- #{s\ 5194}#
- #{mod\ 5195}#)
- (let ((#{tmp\ 5201}# #{e\ 5191}#))
- (let ((#{tmp\ 5202}#
+ (lambda (#{e\ 3083}#
+ #{r\ 3084}#
+ #{w\ 3085}#
+ #{s\ 3086}#
+ #{mod\ 3087}#)
+ (let ((#{tmp\ 3093}# #{e\ 3083}#))
+ (let ((#{tmp\ 3094}#
($sc-dispatch
- #{tmp\ 5201}#
+ #{tmp\ 3093}#
'(any any any . each-any))))
- (if #{tmp\ 5202}#
+ (if #{tmp\ 3094}#
(@apply
- (lambda (#{_\ 5207}#
- #{args\ 5208}#
- #{e1\ 5209}#
- #{e2\ 5210}#)
+ (lambda (#{_\ 3099}#
+ #{args\ 3100}#
+ #{e1\ 3101}#
+ #{e2\ 3102}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 2599}# #{args\ 5208}#))
- (lambda (#{req\ 5211}#
- #{opt\ 5212}#
- #{rest\ 5213}#
- #{kw\ 5214}#)
+ (#{lambda-formals\ 491}# #{args\ 3100}#))
+ (lambda (#{req\ 3103}#
+ #{opt\ 3104}#
+ #{rest\ 3105}#
+ #{kw\ 3106}#)
(letrec*
- ((#{lp\ 5222}#
- (lambda (#{body\ 5223}# #{meta\ 5224}#)
- (let ((#{tmp\ 5226}# #{body\ 5223}#))
- (let ((#{tmp\ 5227}#
+ ((#{lp\ 3114}#
+ (lambda (#{body\ 3115}# #{meta\ 3116}#)
+ (let ((#{tmp\ 3118}# #{body\ 3115}#))
+ (let ((#{tmp\ 3119}#
($sc-dispatch
- #{tmp\ 5226}#
+ #{tmp\ 3118}#
'(any any . each-any))))
- (if (if #{tmp\ 5227}#
+ (if (if #{tmp\ 3119}#
(@apply
- (lambda (#{docstring\ 5231}#
- #{e1\ 5232}#
- #{e2\ 5233}#)
+ (lambda (#{docstring\ 3123}#
+ #{e1\ 3124}#
+ #{e2\ 3125}#)
(string?
(syntax->datum
- #{docstring\ 5231}#)))
- #{tmp\ 5227}#)
+ #{docstring\ 3123}#)))
+ #{tmp\ 3119}#)
#f)
(@apply
- (lambda (#{docstring\ 5237}#
- #{e1\ 5238}#
- #{e2\ 5239}#)
- (#{lp\ 5222}#
- (cons #{e1\ 5238}#
- #{e2\ 5239}#)
+ (lambda (#{docstring\ 3129}#
+ #{e1\ 3130}#
+ #{e2\ 3131}#)
+ (#{lp\ 3114}#
+ (cons #{e1\ 3130}#
+ #{e2\ 3131}#)
(append
- #{meta\ 5224}#
+ #{meta\ 3116}#
(list (cons 'documentation
(syntax->datum
- #{docstring\
5237}#))))))
- #{tmp\ 5227}#)
- (let ((#{tmp\ 5242}#
+ #{docstring\
3129}#))))))
+ #{tmp\ 3119}#)
+ (let ((#{tmp\ 3134}#
($sc-dispatch
- #{tmp\ 5226}#
+ #{tmp\ 3118}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 5242}#
+ (if #{tmp\ 3134}#
(@apply
- (lambda (#{k\ 5247}#
- #{v\ 5248}#
- #{e1\ 5249}#
- #{e2\ 5250}#)
- (#{lp\ 5222}#
- (cons #{e1\ 5249}#
- #{e2\ 5250}#)
+ (lambda (#{k\ 3139}#
+ #{v\ 3140}#
+ #{e1\ 3141}#
+ #{e2\ 3142}#)
+ (#{lp\ 3114}#
+ (cons #{e1\ 3141}#
+ #{e2\ 3142}#)
(append
- #{meta\ 5224}#
+ #{meta\ 3116}#
(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\ 3139}#
+ #{v\ 3140}#)))))
+ #{tmp\ 3134}#)
+ (let ((#{_\ 3147}#
+ #{tmp\ 3118}#))
+ (#{chi-simple-lambda\ 493}#
+ #{e\ 3083}#
+ #{r\ 3084}#
+ #{w\ 3085}#
+ #{s\ 3086}#
+ #{mod\ 3087}#
+ #{req\ 3103}#
+ #{rest\ 3105}#
+ #{meta\ 3116}#
+ #{body\ 3115}#))))))))))
(begin
- (#{lp\ 5222}#
- (cons #{e1\ 5209}# #{e2\ 5210}#)
+ (#{lp\ 3114}#
+ (cons #{e1\ 3101}# #{e2\ 3102}#)
'()))))))
- #{tmp\ 5202}#)
- (let ((#{_\ 5257}# #{tmp\ 5201}#))
+ #{tmp\ 3094}#)
+ (let ((#{_\ 3149}# #{tmp\ 3093}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 5191}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3083}#)))))))
+ (#{global-extend\ 384}#
'core
'lambda*
- (lambda (#{e\ 5258}#
- #{r\ 5259}#
- #{w\ 5260}#
- #{s\ 5261}#
- #{mod\ 5262}#)
- (let ((#{tmp\ 5268}# #{e\ 5258}#))
- (let ((#{tmp\ 5269}#
+ (lambda (#{e\ 3150}#
+ #{r\ 3151}#
+ #{w\ 3152}#
+ #{s\ 3153}#
+ #{mod\ 3154}#)
+ (let ((#{tmp\ 3160}# #{e\ 3150}#))
+ (let ((#{tmp\ 3161}#
($sc-dispatch
- #{tmp\ 5268}#
+ #{tmp\ 3160}#
'(any any any . each-any))))
- (if #{tmp\ 5269}#
+ (if #{tmp\ 3161}#
(@apply
- (lambda (#{_\ 5274}#
- #{args\ 5275}#
- #{e1\ 5276}#
- #{e2\ 5277}#)
+ (lambda (#{_\ 3166}#
+ #{args\ 3167}#
+ #{e1\ 3168}#
+ #{e2\ 3169}#)
(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\ 497}#
+ #{e\ 3150}#
+ #{r\ 3151}#
+ #{w\ 3152}#
+ #{s\ 3153}#
+ #{mod\ 3154}#
+ #{lambda*-formals\ 495}#
+ (list (cons #{args\ 3167}#
+ (cons #{e1\ 3168}#
+ #{e2\ 3169}#)))))
+ (lambda (#{meta\ 3171}# #{lcase\ 3172}#)
+ (#{build-case-lambda\ 332}#
+ #{s\ 3153}#
+ #{meta\ 3171}#
+ #{lcase\ 3172}#))))
+ #{tmp\ 3161}#)
+ (let ((#{_\ 3176}# #{tmp\ 3160}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 5258}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3150}#)))))))
+ (#{global-extend\ 384}#
'core
'case-lambda
- (lambda (#{e\ 5285}#
- #{r\ 5286}#
- #{w\ 5287}#
- #{s\ 5288}#
- #{mod\ 5289}#)
- (let ((#{tmp\ 5295}# #{e\ 5285}#))
- (let ((#{tmp\ 5296}#
+ (lambda (#{e\ 3177}#
+ #{r\ 3178}#
+ #{w\ 3179}#
+ #{s\ 3180}#
+ #{mod\ 3181}#)
+ (let ((#{tmp\ 3187}# #{e\ 3177}#))
+ (let ((#{tmp\ 3188}#
($sc-dispatch
- #{tmp\ 5295}#
+ #{tmp\ 3187}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 5296}#
+ (if #{tmp\ 3188}#
(@apply
- (lambda (#{_\ 5304}#
- #{args\ 5305}#
- #{e1\ 5306}#
- #{e2\ 5307}#
- #{args*\ 5308}#
- #{e1*\ 5309}#
- #{e2*\ 5310}#)
+ (lambda (#{_\ 3196}#
+ #{args\ 3197}#
+ #{e1\ 3198}#
+ #{e2\ 3199}#
+ #{args*\ 3200}#
+ #{e1*\ 3201}#
+ #{e2*\ 3202}#)
(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\ 497}#
+ #{e\ 3177}#
+ #{r\ 3178}#
+ #{w\ 3179}#
+ #{s\ 3180}#
+ #{mod\ 3181}#
+ #{lambda-formals\ 491}#
+ (cons (cons #{args\ 3197}#
+ (cons #{e1\ 3198}# #{e2\ 3199}#))
+ (map (lambda (#{tmp\ 3206}#
+ #{tmp\ 3205}#
+ #{tmp\ 3204}#)
+ (cons #{tmp\ 3204}#
+ (cons #{tmp\ 3205}#
+ #{tmp\ 3206}#)))
+ #{e2*\ 3202}#
+ #{e1*\ 3201}#
+ #{args*\ 3200}#))))
+ (lambda (#{meta\ 3208}# #{lcase\ 3209}#)
+ (#{build-case-lambda\ 332}#
+ #{s\ 3180}#
+ #{meta\ 3208}#
+ #{lcase\ 3209}#))))
+ #{tmp\ 3188}#)
+ (let ((#{_\ 3213}# #{tmp\ 3187}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 5285}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3177}#)))))))
+ (#{global-extend\ 384}#
'core
'case-lambda*
- (lambda (#{e\ 5322}#
- #{r\ 5323}#
- #{w\ 5324}#
- #{s\ 5325}#
- #{mod\ 5326}#)
- (let ((#{tmp\ 5332}# #{e\ 5322}#))
- (let ((#{tmp\ 5333}#
+ (lambda (#{e\ 3214}#
+ #{r\ 3215}#
+ #{w\ 3216}#
+ #{s\ 3217}#
+ #{mod\ 3218}#)
+ (let ((#{tmp\ 3224}# #{e\ 3214}#))
+ (let ((#{tmp\ 3225}#
($sc-dispatch
- #{tmp\ 5332}#
+ #{tmp\ 3224}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 5333}#
+ (if #{tmp\ 3225}#
(@apply
- (lambda (#{_\ 5341}#
- #{args\ 5342}#
- #{e1\ 5343}#
- #{e2\ 5344}#
- #{args*\ 5345}#
- #{e1*\ 5346}#
- #{e2*\ 5347}#)
+ (lambda (#{_\ 3233}#
+ #{args\ 3234}#
+ #{e1\ 3235}#
+ #{e2\ 3236}#
+ #{args*\ 3237}#
+ #{e1*\ 3238}#
+ #{e2*\ 3239}#)
(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\ 497}#
+ #{e\ 3214}#
+ #{r\ 3215}#
+ #{w\ 3216}#
+ #{s\ 3217}#
+ #{mod\ 3218}#
+ #{lambda*-formals\ 495}#
+ (cons (cons #{args\ 3234}#
+ (cons #{e1\ 3235}# #{e2\ 3236}#))
+ (map (lambda (#{tmp\ 3243}#
+ #{tmp\ 3242}#
+ #{tmp\ 3241}#)
+ (cons #{tmp\ 3241}#
+ (cons #{tmp\ 3242}#
+ #{tmp\ 3243}#)))
+ #{e2*\ 3239}#
+ #{e1*\ 3238}#
+ #{args*\ 3237}#))))
+ (lambda (#{meta\ 3245}# #{lcase\ 3246}#)
+ (#{build-case-lambda\ 332}#
+ #{s\ 3217}#
+ #{meta\ 3245}#
+ #{lcase\ 3246}#))))
+ #{tmp\ 3225}#)
+ (let ((#{_\ 3250}# #{tmp\ 3224}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 5322}#)))))))
- (#{global-extend\ 2492}#
+ #{e\ 3214}#)))))))
+ (#{global-extend\ 384}#
'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\ 3252}#
+ (lambda (#{e\ 3253}#
+ #{r\ 3254}#
+ #{w\ 3255}#
+ #{s\ 3256}#
+ #{mod\ 3257}#
+ #{constructor\ 3258}#
+ #{ids\ 3259}#
+ #{vals\ 3260}#
+ #{exps\ 3261}#)
+ (if (not (#{valid-bound-ids?\ 451}# #{ids\ 3259}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 5361}#)
+ #{e\ 3253}#)
(begin
- (let ((#{labels\ 5381}#
- (#{gen-labels\ 2514}# #{ids\ 5367}#))
- (#{new-vars\ 5382}#
- (map #{gen-var\ 2609}# #{ids\ 5367}#)))
+ (let ((#{labels\ 3273}#
+ (#{gen-labels\ 406}# #{ids\ 3259}#))
+ (#{new-vars\ 3274}#
+ (map #{gen-var\ 501}# #{ids\ 3259}#)))
(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\ 3277}#
+ (#{make-binding-wrap\ 435}#
+ #{ids\ 3259}#
+ #{labels\ 3273}#
+ #{w\ 3255}#))
+ (#{nr\ 3278}#
+ (#{extend-var-env\ 378}#
+ #{labels\ 3273}#
+ #{new-vars\ 3274}#
+ #{r\ 3254}#)))
+ (#{constructor\ 3258}#
+ #{s\ 3256}#
+ (map syntax->datum #{ids\ 3259}#)
+ #{new-vars\ 3274}#
+ (map (lambda (#{x\ 3279}#)
+ (#{chi\ 473}#
+ #{x\ 3279}#
+ #{r\ 3254}#
+ #{w\ 3255}#
+ #{mod\ 3257}#))
+ #{vals\ 3260}#)
+ (#{chi-body\ 481}#
+ #{exps\ 3261}#
+ (#{source-wrap\ 459}#
+ #{e\ 3253}#
+ #{nw\ 3277}#
+ #{s\ 3256}#
+ #{mod\ 3257}#)
+ #{nr\ 3278}#
+ #{nw\ 3277}#
+ #{mod\ 3257}#))))))))))
(begin
- (lambda (#{e\ 5389}#
- #{r\ 5390}#
- #{w\ 5391}#
- #{s\ 5392}#
- #{mod\ 5393}#)
- (let ((#{tmp\ 5399}# #{e\ 5389}#))
- (let ((#{tmp\ 5400}#
+ (lambda (#{e\ 3281}#
+ #{r\ 3282}#
+ #{w\ 3283}#
+ #{s\ 3284}#
+ #{mod\ 3285}#)
+ (let ((#{tmp\ 3291}# #{e\ 3281}#))
+ (let ((#{tmp\ 3292}#
($sc-dispatch
- #{tmp\ 5399}#
+ #{tmp\ 3291}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 5400}#
+ (if (if #{tmp\ 3292}#
(@apply
- (lambda (#{_\ 5406}#
- #{id\ 5407}#
- #{val\ 5408}#
- #{e1\ 5409}#
- #{e2\ 5410}#)
- (and-map #{id?\ 2496}# #{id\ 5407}#))
- #{tmp\ 5400}#)
+ (lambda (#{_\ 3298}#
+ #{id\ 3299}#
+ #{val\ 3300}#
+ #{e1\ 3301}#
+ #{e2\ 3302}#)
+ (and-map #{id?\ 388}# #{id\ 3299}#))
+ #{tmp\ 3292}#)
#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 (#{_\ 3309}#
+ #{id\ 3310}#
+ #{val\ 3311}#
+ #{e1\ 3312}#
+ #{e2\ 3313}#)
+ (#{chi-let\ 3252}#
+ #{e\ 3281}#
+ #{r\ 3282}#
+ #{w\ 3283}#
+ #{s\ 3284}#
+ #{mod\ 3285}#
+ #{build-let\ 342}#
+ #{id\ 3310}#
+ #{val\ 3311}#
+ (cons #{e1\ 3312}# #{e2\ 3313}#)))
+ #{tmp\ 3292}#)
+ (let ((#{tmp\ 3317}#
($sc-dispatch
- #{tmp\ 5399}#
+ #{tmp\ 3291}#
'(any any
#(each (any any))
any
.
each-any))))
- (if (if #{tmp\ 5425}#
+ (if (if #{tmp\ 3317}#
(@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 (#{_\ 3324}#
+ #{f\ 3325}#
+ #{id\ 3326}#
+ #{val\ 3327}#
+ #{e1\ 3328}#
+ #{e2\ 3329}#)
+ (if (#{id?\ 388}# #{f\ 3325}#)
+ (and-map #{id?\ 388}# #{id\ 3326}#)
#f))
- #{tmp\ 5425}#)
+ #{tmp\ 3317}#)
#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 (#{_\ 3339}#
+ #{f\ 3340}#
+ #{id\ 3341}#
+ #{val\ 3342}#
+ #{e1\ 3343}#
+ #{e2\ 3344}#)
+ (#{chi-let\ 3252}#
+ #{e\ 3281}#
+ #{r\ 3282}#
+ #{w\ 3283}#
+ #{s\ 3284}#
+ #{mod\ 3285}#
+ #{build-named-let\ 344}#
+ (cons #{f\ 3340}# #{id\ 3341}#)
+ #{val\ 3342}#
+ (cons #{e1\ 3343}# #{e2\ 3344}#)))
+ #{tmp\ 3317}#)
+ (let ((#{_\ 3349}# #{tmp\ 3291}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 2567}#
- #{e\ 5389}#
- #{w\ 5391}#
- #{s\ 5392}#
- #{mod\ 5393}#))))))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 459}#
+ #{e\ 3281}#
+ #{w\ 3283}#
+ #{s\ 3284}#
+ #{mod\ 3285}#))))))))))))
+ (#{global-extend\ 384}#
'core
'letrec
- (lambda (#{e\ 5458}#
- #{r\ 5459}#
- #{w\ 5460}#
- #{s\ 5461}#
- #{mod\ 5462}#)
- (let ((#{tmp\ 5468}# #{e\ 5458}#))
- (let ((#{tmp\ 5469}#
+ (lambda (#{e\ 3350}#
+ #{r\ 3351}#
+ #{w\ 3352}#
+ #{s\ 3353}#
+ #{mod\ 3354}#)
+ (let ((#{tmp\ 3360}# #{e\ 3350}#))
+ (let ((#{tmp\ 3361}#
($sc-dispatch
- #{tmp\ 5468}#
+ #{tmp\ 3360}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 5469}#
+ (if (if #{tmp\ 3361}#
(@apply
- (lambda (#{_\ 5475}#
- #{id\ 5476}#
- #{val\ 5477}#
- #{e1\ 5478}#
- #{e2\ 5479}#)
- (and-map #{id?\ 2496}# #{id\ 5476}#))
- #{tmp\ 5469}#)
+ (lambda (#{_\ 3367}#
+ #{id\ 3368}#
+ #{val\ 3369}#
+ #{e1\ 3370}#
+ #{e2\ 3371}#)
+ (and-map #{id?\ 388}# #{id\ 3368}#))
+ #{tmp\ 3361}#)
#f)
(@apply
- (lambda (#{_\ 5486}#
- #{id\ 5487}#
- #{val\ 5488}#
- #{e1\ 5489}#
- #{e2\ 5490}#)
+ (lambda (#{_\ 3378}#
+ #{id\ 3379}#
+ #{val\ 3380}#
+ #{e1\ 3381}#
+ #{e2\ 3382}#)
(begin
- (let ((#{ids\ 5492}# #{id\ 5487}#))
- (if (not (#{valid-bound-ids?\ 2559}#
- #{ids\ 5492}#))
+ (let ((#{ids\ 3384}# #{id\ 3379}#))
+ (if (not (#{valid-bound-ids?\ 451}#
+ #{ids\ 3384}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 5458}#)
+ #{e\ 3350}#)
(begin
- (let ((#{labels\ 5496}#
- (#{gen-labels\ 2514}# #{ids\ 5492}#))
- (#{new-vars\ 5497}#
- (map #{gen-var\ 2609}#
- #{ids\ 5492}#)))
+ (let ((#{labels\ 3388}#
+ (#{gen-labels\ 406}# #{ids\ 3384}#))
+ (#{new-vars\ 3389}#
+ (map #{gen-var\ 501}#
+ #{ids\ 3384}#)))
(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\ 3392}#
+ (#{make-binding-wrap\ 435}#
+ #{ids\ 3384}#
+ #{labels\ 3388}#
+ #{w\ 3352}#))
+ (#{r\ 3393}#
+ (#{extend-var-env\ 378}#
+ #{labels\ 3388}#
+ #{new-vars\ 3389}#
+ #{r\ 3351}#)))
+ (#{build-letrec\ 346}#
+ #{s\ 3353}#
#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\ 3384}#)
+ #{new-vars\ 3389}#
+ (map (lambda (#{x\ 3394}#)
+ (#{chi\ 473}#
+ #{x\ 3394}#
+ #{r\ 3393}#
+ #{w\ 3392}#
+ #{mod\ 3354}#))
+ #{val\ 3380}#)
+ (#{chi-body\ 481}#
+ (cons #{e1\ 3381}# #{e2\ 3382}#)
+ (#{source-wrap\ 459}#
+ #{e\ 3350}#
+ #{w\ 3392}#
+ #{s\ 3353}#
+ #{mod\ 3354}#)
+ #{r\ 3393}#
+ #{w\ 3392}#
+ #{mod\ 3354}#))))))))))
+ #{tmp\ 3361}#)
+ (let ((#{_\ 3399}# #{tmp\ 3360}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 2567}#
- #{e\ 5458}#
- #{w\ 5460}#
- #{s\ 5461}#
- #{mod\ 5462}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 459}#
+ #{e\ 3350}#
+ #{w\ 3352}#
+ #{s\ 3353}#
+ #{mod\ 3354}#))))))))
+ (#{global-extend\ 384}#
'core
'letrec*
- (lambda (#{e\ 5508}#
- #{r\ 5509}#
- #{w\ 5510}#
- #{s\ 5511}#
- #{mod\ 5512}#)
- (let ((#{tmp\ 5518}# #{e\ 5508}#))
- (let ((#{tmp\ 5519}#
+ (lambda (#{e\ 3400}#
+ #{r\ 3401}#
+ #{w\ 3402}#
+ #{s\ 3403}#
+ #{mod\ 3404}#)
+ (let ((#{tmp\ 3410}# #{e\ 3400}#))
+ (let ((#{tmp\ 3411}#
($sc-dispatch
- #{tmp\ 5518}#
+ #{tmp\ 3410}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 5519}#
+ (if (if #{tmp\ 3411}#
(@apply
- (lambda (#{_\ 5525}#
- #{id\ 5526}#
- #{val\ 5527}#
- #{e1\ 5528}#
- #{e2\ 5529}#)
- (and-map #{id?\ 2496}# #{id\ 5526}#))
- #{tmp\ 5519}#)
+ (lambda (#{_\ 3417}#
+ #{id\ 3418}#
+ #{val\ 3419}#
+ #{e1\ 3420}#
+ #{e2\ 3421}#)
+ (and-map #{id?\ 388}# #{id\ 3418}#))
+ #{tmp\ 3411}#)
#f)
(@apply
- (lambda (#{_\ 5536}#
- #{id\ 5537}#
- #{val\ 5538}#
- #{e1\ 5539}#
- #{e2\ 5540}#)
+ (lambda (#{_\ 3428}#
+ #{id\ 3429}#
+ #{val\ 3430}#
+ #{e1\ 3431}#
+ #{e2\ 3432}#)
(begin
- (let ((#{ids\ 5542}# #{id\ 5537}#))
- (if (not (#{valid-bound-ids?\ 2559}#
- #{ids\ 5542}#))
+ (let ((#{ids\ 3434}# #{id\ 3429}#))
+ (if (not (#{valid-bound-ids?\ 451}#
+ #{ids\ 3434}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 5508}#)
+ #{e\ 3400}#)
(begin
- (let ((#{labels\ 5546}#
- (#{gen-labels\ 2514}# #{ids\ 5542}#))
- (#{new-vars\ 5547}#
- (map #{gen-var\ 2609}#
- #{ids\ 5542}#)))
+ (let ((#{labels\ 3438}#
+ (#{gen-labels\ 406}# #{ids\ 3434}#))
+ (#{new-vars\ 3439}#
+ (map #{gen-var\ 501}#
+ #{ids\ 3434}#)))
(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\ 3442}#
+ (#{make-binding-wrap\ 435}#
+ #{ids\ 3434}#
+ #{labels\ 3438}#
+ #{w\ 3402}#))
+ (#{r\ 3443}#
+ (#{extend-var-env\ 378}#
+ #{labels\ 3438}#
+ #{new-vars\ 3439}#
+ #{r\ 3401}#)))
+ (#{build-letrec\ 346}#
+ #{s\ 3403}#
#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\ 3434}#)
+ #{new-vars\ 3439}#
+ (map (lambda (#{x\ 3444}#)
+ (#{chi\ 473}#
+ #{x\ 3444}#
+ #{r\ 3443}#
+ #{w\ 3442}#
+ #{mod\ 3404}#))
+ #{val\ 3430}#)
+ (#{chi-body\ 481}#
+ (cons #{e1\ 3431}# #{e2\ 3432}#)
+ (#{source-wrap\ 459}#
+ #{e\ 3400}#
+ #{w\ 3442}#
+ #{s\ 3403}#
+ #{mod\ 3404}#)
+ #{r\ 3443}#
+ #{w\ 3442}#
+ #{mod\ 3404}#))))))))))
+ #{tmp\ 3411}#)
+ (let ((#{_\ 3449}# #{tmp\ 3410}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 2567}#
- #{e\ 5508}#
- #{w\ 5510}#
- #{s\ 5511}#
- #{mod\ 5512}#))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 459}#
+ #{e\ 3400}#
+ #{w\ 3402}#
+ #{s\ 3403}#
+ #{mod\ 3404}#))))))))
+ (#{global-extend\ 384}#
'core
'set!
- (lambda (#{e\ 5558}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{s\ 5561}#
- #{mod\ 5562}#)
- (let ((#{tmp\ 5568}# #{e\ 5558}#))
- (let ((#{tmp\ 5569}#
+ (lambda (#{e\ 3450}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{s\ 3453}#
+ #{mod\ 3454}#)
+ (let ((#{tmp\ 3460}# #{e\ 3450}#))
+ (let ((#{tmp\ 3461}#
($sc-dispatch
- #{tmp\ 5568}#
+ #{tmp\ 3460}#
'(any any any))))
- (if (if #{tmp\ 5569}#
+ (if (if #{tmp\ 3461}#
(@apply
- (lambda (#{_\ 5573}# #{id\ 5574}# #{val\ 5575}#)
- (#{id?\ 2496}# #{id\ 5574}#))
- #{tmp\ 5569}#)
+ (lambda (#{_\ 3465}# #{id\ 3466}# #{val\ 3467}#)
+ (#{id?\ 388}# #{id\ 3466}#))
+ #{tmp\ 3461}#)
#f)
(@apply
- (lambda (#{_\ 5579}# #{id\ 5580}# #{val\ 5581}#)
+ (lambda (#{_\ 3471}# #{id\ 3472}# #{val\ 3473}#)
(begin
- (let ((#{n\ 5583}#
- (#{id-var-name\ 2553}#
- #{id\ 5580}#
- #{w\ 5560}#)))
+ (let ((#{n\ 3475}#
+ (#{id-var-name\ 445}#
+ #{id\ 3472}#
+ #{w\ 3452}#)))
(begin
- (let ((#{b\ 5585}#
- (#{lookup\ 2490}#
- #{n\ 5583}#
- #{r\ 5559}#
- #{mod\ 5562}#)))
+ (let ((#{b\ 3477}#
+ (#{lookup\ 382}#
+ #{n\ 3475}#
+ #{r\ 3451}#
+ #{mod\ 3454}#)))
(begin
- (let ((#{atom-key\ 5588}#
- (#{binding-type\ 2479}#
- #{b\ 5585}#)))
- (if (eqv? #{atom-key\ 5588}#
+ (let ((#{atom-key\ 3480}#
+ (#{binding-type\ 371}#
+ #{b\ 3477}#)))
+ (if (eqv? #{atom-key\ 3480}#
'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\ 320}#
+ #{s\ 3453}#
+ (syntax->datum #{id\ 3472}#)
+ (#{binding-value\ 373}# #{b\ 3477}#)
+ (#{chi\ 473}#
+ #{val\ 3473}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{mod\ 3454}#))
+ (if (eqv? #{atom-key\ 3480}#
'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\ 326}#
+ #{s\ 3453}#
+ #{n\ 3475}#
+ (#{chi\ 473}#
+ #{val\ 3473}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{mod\ 3454}#)
+ #{mod\ 3454}#)
+ (if (eqv? #{atom-key\ 3480}#
'macro)
(begin
- (let ((#{p\ 5593}#
- (#{binding-value\ 2481}#
- #{b\ 5585}#)))
+ (let ((#{p\ 3485}#
+ (#{binding-value\ 373}#
+ #{b\ 3477}#)))
(if (procedure-property
- #{p\ 5593}#
+ #{p\ 3485}#
'variable-transformer)
- (#{chi\ 2581}#
- (#{chi-macro\ 2587}#
- #{p\ 5593}#
- #{e\ 5558}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{s\ 5561}#
+ (#{chi\ 473}#
+ (#{chi-macro\ 479}#
+ #{p\ 3485}#
+ #{e\ 3450}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{s\ 3453}#
#f
- #{mod\ 5562}#)
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#)
+ #{mod\ 3454}#)
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{mod\ 3454}#)
(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\ 457}#
+ #{e\ 3450}#
+ #{w\ 3452}#
+ #{mod\ 3454}#)
+ (#{wrap\ 457}#
+ #{id\ 3472}#
+ #{w\ 3452}#
+ #{mod\ 3454}#)))))
+ (if (eqv? #{atom-key\ 3480}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 2565}#
- #{id\ 5580}#
- #{w\ 5560}#
- #{mod\ 5562}#))
+ (#{wrap\ 457}#
+ #{id\ 3472}#
+ #{w\ 3452}#
+ #{mod\ 3454}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 2567}#
- #{e\ 5558}#
- #{w\ 5560}#
- #{s\ 5561}#
- #{mod\ 5562}#)))))))))))))
- #{tmp\ 5569}#)
- (let ((#{tmp\ 5596}#
+ (#{source-wrap\ 459}#
+ #{e\ 3450}#
+ #{w\ 3452}#
+ #{s\ 3453}#
+ #{mod\ 3454}#)))))))))))))
+ #{tmp\ 3461}#)
+ (let ((#{tmp\ 3488}#
($sc-dispatch
- #{tmp\ 5568}#
+ #{tmp\ 3460}#
'(any (any . each-any) any))))
- (if #{tmp\ 5596}#
+ (if #{tmp\ 3488}#
(@apply
- (lambda (#{_\ 5601}#
- #{head\ 5602}#
- #{tail\ 5603}#
- #{val\ 5604}#)
+ (lambda (#{_\ 3493}#
+ #{head\ 3494}#
+ #{tail\ 3495}#
+ #{val\ 3496}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 2577}#
- #{head\ 5602}#
- #{r\ 5559}#
+ (#{syntax-type\ 469}#
+ #{head\ 3494}#
+ #{r\ 3451}#
'(())
#f
#f
- #{mod\ 5562}#
+ #{mod\ 3454}#
#t))
- (lambda (#{type\ 5607}#
- #{value\ 5608}#
- #{ee\ 5609}#
- #{ww\ 5610}#
- #{ss\ 5611}#
- #{modmod\ 5612}#)
- (if (eqv? #{type\ 5607}# (quote module-ref))
+ (lambda (#{type\ 3499}#
+ #{value\ 3500}#
+ #{ee\ 3501}#
+ #{ww\ 3502}#
+ #{ss\ 3503}#
+ #{modmod\ 3504}#)
+ (if (eqv? #{type\ 3499}# (quote module-ref))
(begin
- (let ((#{val\ 5621}#
- (#{chi\ 2581}#
- #{val\ 5604}#
- #{r\ 5559}#
- #{w\ 5560}#
- #{mod\ 5562}#)))
+ (let ((#{val\ 3513}#
+ (#{chi\ 473}#
+ #{val\ 3496}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{mod\ 3454}#)))
(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\ 3500}#
+ (cons #{head\ 3494}#
+ #{tail\ 3495}#)
+ #{r\ 3451}#
+ #{w\ 3452}#))
+ (lambda (#{e\ 3515}#
+ #{r\ 3516}#
+ #{w\ 3517}#
+ #{s*\ 3518}#
+ #{mod\ 3519}#)
+ (let ((#{tmp\ 3525}# #{e\ 3515}#))
+ (let ((#{tmp\ 3526}#
+ (list #{tmp\ 3525}#)))
+ (if (if #{tmp\ 3526}#
(@apply
- (lambda (#{e\ 5636}#)
- (#{id?\ 2496}#
- #{e\ 5636}#))
- #{tmp\ 5634}#)
+ (lambda (#{e\ 3528}#)
+ (#{id?\ 388}#
+ #{e\ 3528}#))
+ #{tmp\ 3526}#)
#f)
(@apply
- (lambda (#{e\ 5638}#)
-
(#{build-global-assignment\ 2434}#
- #{s\ 5561}#
+ (lambda (#{e\ 3530}#)
+
(#{build-global-assignment\ 326}#
+ #{s\ 3453}#
(syntax->datum
- #{e\ 5638}#)
- #{val\ 5621}#
- #{mod\ 5627}#))
- #{tmp\ 5634}#)
+ #{e\ 3530}#)
+ #{val\ 3513}#
+ #{mod\ 3519}#))
+ #{tmp\ 3526}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{tmp\ 5633}#))))))))
- (#{build-application\ 2420}#
- #{s\ 5561}#
- (#{chi\ 2581}#
+ #{tmp\ 3525}#))))))))
+ (#{build-application\ 312}#
+ #{s\ 3453}#
+ (#{chi\ 473}#
(list '#(syntax-object
setter
((top)
@@ -10351,19 +10328,19 @@
(top)
(top)
(top))
- #("i5613"
- "i5614"
- "i5615"
- "i5616"
- "i5617"
- "i5618"))
+ #("i3505"
+ "i3506"
+ "i3507"
+ "i3508"
+ "i3509"
+ "i3510"))
#(ribcage
#(_ head tail val)
#((top) (top) (top) (top))
- #("i5597"
- "i5598"
- "i5599"
- "i5600"))
+ #("i3489"
+ "i3490"
+ "i3491"
+ "i3492"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10372,11 +10349,11 @@
(top)
(top)
(top))
- #("i5563"
- "i5564"
- "i5565"
- "i5566"
- "i5567"))
+ #("i3455"
+ "i3456"
+ "i3457"
+ "i3458"
+ "i3459"))
#(ribcage
(lambda-var-list
gen-var
@@ -10652,200 +10629,197 @@
(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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\ 3494}#)
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{mod\ 3454}#)
+ (map (lambda (#{e\ 3532}#)
+ (#{chi\ 473}#
+ #{e\ 3532}#
+ #{r\ 3451}#
+ #{w\ 3452}#
+ #{mod\ 3454}#))
(append
- #{tail\ 5603}#
- (list #{val\ 5604}#))))))))
- #{tmp\ 5596}#)
- (let ((#{_\ 5644}# #{tmp\ 5568}#))
+ #{tail\ 3495}#
+ (list #{val\ 3496}#))))))))
+ #{tmp\ 3488}#)
+ (let ((#{_\ 3536}# #{tmp\ 3460}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 2567}#
- #{e\ 5558}#
- #{w\ 5560}#
- #{s\ 5561}#
- #{mod\ 5562}#))))))))))
- (#{global-extend\ 2492}#
+ (#{source-wrap\ 459}#
+ #{e\ 3450}#
+ #{w\ 3452}#
+ #{s\ 3453}#
+ #{mod\ 3454}#))))))))))
+ (#{global-extend\ 384}#
'module-ref
'@
- (lambda (#{e\ 5645}# #{r\ 5646}# #{w\ 5647}#)
- (let ((#{tmp\ 5651}# #{e\ 5645}#))
- (let ((#{tmp\ 5652}#
+ (lambda (#{e\ 3537}# #{r\ 3538}# #{w\ 3539}#)
+ (let ((#{tmp\ 3543}# #{e\ 3537}#))
+ (let ((#{tmp\ 3544}#
($sc-dispatch
- #{tmp\ 5651}#
+ #{tmp\ 3543}#
'(any each-any any))))
- (if (if #{tmp\ 5652}#
+ (if (if #{tmp\ 3544}#
(@apply
- (lambda (#{_\ 5656}# #{mod\ 5657}# #{id\ 5658}#)
- (if (and-map #{id?\ 2496}# #{mod\ 5657}#)
- (#{id?\ 2496}# #{id\ 5658}#)
+ (lambda (#{_\ 3548}# #{mod\ 3549}# #{id\ 3550}#)
+ (if (and-map #{id?\ 388}# #{mod\ 3549}#)
+ (#{id?\ 388}# #{id\ 3550}#)
#f))
- #{tmp\ 5652}#)
+ #{tmp\ 3544}#)
#f)
(@apply
- (lambda (#{_\ 5665}# #{mod\ 5666}# #{id\ 5667}#)
+ (lambda (#{_\ 3557}# #{mod\ 3558}# #{id\ 3559}#)
(values
- (syntax->datum #{id\ 5667}#)
- #{r\ 5646}#
- #{w\ 5647}#
+ (syntax->datum #{id\ 3559}#)
+ #{r\ 3538}#
+ #{w\ 3539}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10854,12 +10828,12 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i5662" "i5663" "i5664"))
+ #("i3554" "i3555" "i3556"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i5648" "i5649" "i5650"))
+ #("i3540" "i3541" "i3542"))
#(ribcage
(lambda-var-list
gen-var
@@ -11135,224 +11109,224 @@
(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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\ 3558}#))))
+ #{tmp\ 3544}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5651}#))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3543}#))))))
+ (#{global-extend\ 384}#
'module-ref
'@@
- (lambda (#{e\ 5669}# #{r\ 5670}# #{w\ 5671}#)
+ (lambda (#{e\ 3561}# #{r\ 3562}# #{w\ 3563}#)
(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\ 3568}#
+ (lambda (#{x\ 3569}# #{mod\ 3570}#)
+ (if (pair? #{x\ 3569}#)
+ (cons (#{remodulate\ 3568}#
+ (car #{x\ 3569}#)
+ #{mod\ 3570}#)
+ (#{remodulate\ 3568}#
+ (cdr #{x\ 3569}#)
+ #{mod\ 3570}#))
+ (if (#{syntax-object?\ 352}# #{x\ 3569}#)
+ (#{make-syntax-object\ 350}#
+ (#{remodulate\ 3568}#
+ (#{syntax-object-expression\ 354}# #{x\ 3569}#)
+ #{mod\ 3570}#)
+ (#{syntax-object-wrap\ 356}# #{x\ 3569}#)
+ #{mod\ 3570}#)
+ (if (vector? #{x\ 3569}#)
(begin
- (let ((#{n\ 5689}# (vector-length #{x\ 5677}#)))
+ (let ((#{n\ 3581}# (vector-length #{x\ 3569}#)))
(begin
- (let ((#{v\ 5691}#
- (make-vector #{n\ 5689}#)))
+ (let ((#{v\ 3583}#
+ (make-vector #{n\ 3581}#)))
(letrec*
- ((#{loop\ 5694}#
- (lambda (#{i\ 5695}#)
- (if (#{fx=\ 2401}#
- #{i\ 5695}#
- #{n\ 5689}#)
- (begin (if #f #f) #{v\ 5691}#)
+ ((#{loop\ 3586}#
+ (lambda (#{i\ 3587}#)
+ (if (#{fx=\ 293}#
+ #{i\ 3587}#
+ #{n\ 3581}#)
+ (begin (if #f #f) #{v\ 3583}#)
(begin
(vector-set!
- #{v\ 5691}#
- #{i\ 5695}#
- (#{remodulate\ 5676}#
+ #{v\ 3583}#
+ #{i\ 3587}#
+ (#{remodulate\ 3568}#
(vector-ref
- #{x\ 5677}#
- #{i\ 5695}#)
- #{mod\ 5678}#))
- (#{loop\ 5694}#
- (#{fx+\ 2397}#
- #{i\ 5695}#
+ #{x\ 3569}#
+ #{i\ 3587}#)
+ #{mod\ 3570}#))
+ (#{loop\ 3586}#
+ (#{fx+\ 289}#
+ #{i\ 3587}#
1)))))))
- (begin (#{loop\ 5694}# 0)))))))
- #{x\ 5677}#))))))
+ (begin (#{loop\ 3586}# 0)))))))
+ #{x\ 3569}#))))))
(begin
- (let ((#{tmp\ 5699}# #{e\ 5669}#))
- (let ((#{tmp\ 5700}#
+ (let ((#{tmp\ 3591}# #{e\ 3561}#))
+ (let ((#{tmp\ 3592}#
($sc-dispatch
- #{tmp\ 5699}#
+ #{tmp\ 3591}#
'(any each-any any))))
- (if (if #{tmp\ 5700}#
+ (if (if #{tmp\ 3592}#
(@apply
- (lambda (#{_\ 5704}#
- #{mod\ 5705}#
- #{exp\ 5706}#)
- (and-map #{id?\ 2496}# #{mod\ 5705}#))
- #{tmp\ 5700}#)
+ (lambda (#{_\ 3596}#
+ #{mod\ 3597}#
+ #{exp\ 3598}#)
+ (and-map #{id?\ 388}# #{mod\ 3597}#))
+ #{tmp\ 3592}#)
#f)
(@apply
- (lambda (#{_\ 5711}# #{mod\ 5712}# #{exp\ 5713}#)
+ (lambda (#{_\ 3603}# #{mod\ 3604}# #{exp\ 3605}#)
(begin
- (let ((#{mod\ 5715}#
+ (let ((#{mod\ 3607}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11360,19 +11334,19 @@
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i5708"
- "i5709"
- "i5710"))
+ #("i3600"
+ "i3601"
+ "i3602"))
#(ribcage
(remodulate)
((top))
- ("i5675"))
+ ("i3567"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i5672"
- "i5673"
- "i5674"))
+ #("i3564"
+ "i3565"
+ "i3566"))
#(ribcage
(lambda-var-list
gen-var
@@ -11648,662 +11622,662 @@
(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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\ 3604}#))))
(values
- (#{remodulate\ 5676}#
- #{exp\ 5713}#
- #{mod\ 5715}#)
- #{r\ 5670}#
- #{w\ 5671}#
- (#{source-annotation\ 2475}# #{exp\ 5713}#)
- #{mod\ 5715}#))))
- #{tmp\ 5700}#)
+ (#{remodulate\ 3568}#
+ #{exp\ 3605}#
+ #{mod\ 3607}#)
+ #{r\ 3562}#
+ #{w\ 3563}#
+ (#{source-annotation\ 367}# #{exp\ 3605}#)
+ #{mod\ 3607}#))))
+ #{tmp\ 3592}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5699}#))))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3591}#))))))))
+ (#{global-extend\ 384}#
'core
'if
- (lambda (#{e\ 5717}#
- #{r\ 5718}#
- #{w\ 5719}#
- #{s\ 5720}#
- #{mod\ 5721}#)
- (let ((#{tmp\ 5727}# #{e\ 5717}#))
- (let ((#{tmp\ 5728}#
+ (lambda (#{e\ 3609}#
+ #{r\ 3610}#
+ #{w\ 3611}#
+ #{s\ 3612}#
+ #{mod\ 3613}#)
+ (let ((#{tmp\ 3619}# #{e\ 3609}#))
+ (let ((#{tmp\ 3620}#
($sc-dispatch
- #{tmp\ 5727}#
+ #{tmp\ 3619}#
'(any any any))))
- (if #{tmp\ 5728}#
+ (if #{tmp\ 3620}#
(@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 (#{_\ 3624}# #{test\ 3625}# #{then\ 3626}#)
+ (#{build-conditional\ 314}#
+ #{s\ 3612}#
+ (#{chi\ 473}#
+ #{test\ 3625}#
+ #{r\ 3610}#
+ #{w\ 3611}#
+ #{mod\ 3613}#)
+ (#{chi\ 473}#
+ #{then\ 3626}#
+ #{r\ 3610}#
+ #{w\ 3611}#
+ #{mod\ 3613}#)
+ (#{build-void\ 310}# #f)))
+ #{tmp\ 3620}#)
+ (let ((#{tmp\ 3628}#
($sc-dispatch
- #{tmp\ 5727}#
+ #{tmp\ 3619}#
'(any any any any))))
- (if #{tmp\ 5736}#
+ (if #{tmp\ 3628}#
(@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 (#{_\ 3633}#
+ #{test\ 3634}#
+ #{then\ 3635}#
+ #{else\ 3636}#)
+ (#{build-conditional\ 314}#
+ #{s\ 3612}#
+ (#{chi\ 473}#
+ #{test\ 3634}#
+ #{r\ 3610}#
+ #{w\ 3611}#
+ #{mod\ 3613}#)
+ (#{chi\ 473}#
+ #{then\ 3635}#
+ #{r\ 3610}#
+ #{w\ 3611}#
+ #{mod\ 3613}#)
+ (#{chi\ 473}#
+ #{else\ 3636}#
+ #{r\ 3610}#
+ #{w\ 3611}#
+ #{mod\ 3613}#)))
+ #{tmp\ 3628}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5727}#))))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3619}#))))))))
+ (#{global-extend\ 384}#
'core
'with-fluids
- (lambda (#{e\ 5745}#
- #{r\ 5746}#
- #{w\ 5747}#
- #{s\ 5748}#
- #{mod\ 5749}#)
- (let ((#{tmp\ 5755}# #{e\ 5745}#))
- (let ((#{tmp\ 5756}#
+ (lambda (#{e\ 3637}#
+ #{r\ 3638}#
+ #{w\ 3639}#
+ #{s\ 3640}#
+ #{mod\ 3641}#)
+ (let ((#{tmp\ 3647}# #{e\ 3637}#))
+ (let ((#{tmp\ 3648}#
($sc-dispatch
- #{tmp\ 5755}#
+ #{tmp\ 3647}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 5756}#
+ (if #{tmp\ 3648}#
(@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 (#{_\ 3654}#
+ #{fluid\ 3655}#
+ #{val\ 3656}#
+ #{b\ 3657}#
+ #{b*\ 3658}#)
+ (#{build-dynlet\ 316}#
+ #{s\ 3640}#
+ (map (lambda (#{x\ 3659}#)
+ (#{chi\ 473}#
+ #{x\ 3659}#
+ #{r\ 3638}#
+ #{w\ 3639}#
+ #{mod\ 3641}#))
+ #{fluid\ 3655}#)
+ (map (lambda (#{x\ 3662}#)
+ (#{chi\ 473}#
+ #{x\ 3662}#
+ #{r\ 3638}#
+ #{w\ 3639}#
+ #{mod\ 3641}#))
+ #{val\ 3656}#)
+ (#{chi-body\ 481}#
+ (cons #{b\ 3657}# #{b*\ 3658}#)
+ (#{source-wrap\ 459}#
+ #{e\ 3637}#
+ #{w\ 3639}#
+ #{s\ 3640}#
+ #{mod\ 3641}#)
+ #{r\ 3638}#
+ #{w\ 3639}#
+ #{mod\ 3641}#)))
+ #{tmp\ 3648}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 5755}#))))))
- (#{global-extend\ 2492}#
+ #{tmp\ 3647}#))))))
+ (#{global-extend\ 384}#
'begin
'begin
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 384}#
'define
'define
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 384}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 384}#
'eval-when
'eval-when
'())
- (#{global-extend\ 2492}#
+ (#{global-extend\ 384}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 5775}#
- (lambda (#{pattern\ 5782}# #{keys\ 5783}#)
+ ((#{convert-pattern\ 3667}#
+ (lambda (#{pattern\ 3674}# #{keys\ 3675}#)
(letrec*
- ((#{cvt*\ 5787}#
- (lambda (#{p*\ 5790}# #{n\ 5791}# #{ids\ 5792}#)
- (if (null? #{p*\ 5790}#)
- (values (quote ()) #{ids\ 5792}#)
+ ((#{cvt*\ 3679}#
+ (lambda (#{p*\ 3682}# #{n\ 3683}# #{ids\ 3684}#)
+ (if (null? #{p*\ 3682}#)
+ (values (quote ()) #{ids\ 3684}#)
(call-with-values
(lambda ()
- (#{cvt*\ 5787}#
- (cdr #{p*\ 5790}#)
- #{n\ 5791}#
- #{ids\ 5792}#))
- (lambda (#{y\ 5796}# #{ids\ 5797}#)
+ (#{cvt*\ 3679}#
+ (cdr #{p*\ 3682}#)
+ #{n\ 3683}#
+ #{ids\ 3684}#))
+ (lambda (#{y\ 3688}# #{ids\ 3689}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- (car #{p*\ 5790}#)
- #{n\ 5791}#
- #{ids\ 5797}#))
- (lambda (#{x\ 5800}# #{ids\ 5801}#)
+ (#{cvt\ 3681}#
+ (car #{p*\ 3682}#)
+ #{n\ 3683}#
+ #{ids\ 3689}#))
+ (lambda (#{x\ 3692}# #{ids\ 3693}#)
(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\ 3692}# #{y\ 3688}#)
+ #{ids\ 3693}#))))))))
+ (#{cvt\ 3681}#
+ (lambda (#{p\ 3696}# #{n\ 3697}# #{ids\ 3698}#)
+ (if (#{id?\ 388}# #{p\ 3696}#)
+ (if (#{bound-id-member?\ 455}#
+ #{p\ 3696}#
+ #{keys\ 3675}#)
(values
- (vector (quote free-id) #{p\ 5804}#)
- #{ids\ 5806}#)
+ (vector (quote free-id) #{p\ 3696}#)
+ #{ids\ 3698}#)
(values
'any
- (cons (cons #{p\ 5804}# #{n\ 5805}#)
- #{ids\ 5806}#)))
- (let ((#{tmp\ 5810}# #{p\ 5804}#))
- (let ((#{tmp\ 5811}#
+ (cons (cons #{p\ 3696}# #{n\ 3697}#)
+ #{ids\ 3698}#)))
+ (let ((#{tmp\ 3702}# #{p\ 3696}#))
+ (let ((#{tmp\ 3703}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3702}#
'(any any))))
- (if (if #{tmp\ 5811}#
+ (if (if #{tmp\ 3703}#
(@apply
- (lambda (#{x\ 5814}# #{dots\ 5815}#)
- (#{ellipsis?\ 2597}#
- #{dots\ 5815}#))
- #{tmp\ 5811}#)
+ (lambda (#{x\ 3706}# #{dots\ 3707}#)
+ (#{ellipsis?\ 489}#
+ #{dots\ 3707}#))
+ #{tmp\ 3703}#)
#f)
(@apply
- (lambda (#{x\ 5818}# #{dots\ 5819}#)
+ (lambda (#{x\ 3710}# #{dots\ 3711}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5818}#
- (#{fx+\ 2397}# #{n\ 5805}# 1)
- #{ids\ 5806}#))
- (lambda (#{p\ 5820}# #{ids\ 5821}#)
+ (#{cvt\ 3681}#
+ #{x\ 3710}#
+ (#{fx+\ 289}# #{n\ 3697}# 1)
+ #{ids\ 3698}#))
+ (lambda (#{p\ 3712}# #{ids\ 3713}#)
(values
- (if (eq? #{p\ 5820}# (quote any))
+ (if (eq? #{p\ 3712}# (quote any))
'each-any
(vector
'each
- #{p\ 5820}#))
- #{ids\ 5821}#))))
- #{tmp\ 5811}#)
- (let ((#{tmp\ 5824}#
+ #{p\ 3712}#))
+ #{ids\ 3713}#))))
+ #{tmp\ 3703}#)
+ (let ((#{tmp\ 3716}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3702}#
'(any any . each-any))))
- (if (if #{tmp\ 5824}#
+ (if (if #{tmp\ 3716}#
(@apply
- (lambda (#{x\ 5828}#
- #{dots\ 5829}#
- #{ys\ 5830}#)
- (#{ellipsis?\ 2597}#
- #{dots\ 5829}#))
- #{tmp\ 5824}#)
+ (lambda (#{x\ 3720}#
+ #{dots\ 3721}#
+ #{ys\ 3722}#)
+ (#{ellipsis?\ 489}#
+ #{dots\ 3721}#))
+ #{tmp\ 3716}#)
#f)
(@apply
- (lambda (#{x\ 5834}#
- #{dots\ 5835}#
- #{ys\ 5836}#)
+ (lambda (#{x\ 3726}#
+ #{dots\ 3727}#
+ #{ys\ 3728}#)
(call-with-values
(lambda ()
- (#{cvt*\ 5787}#
- #{ys\ 5836}#
- #{n\ 5805}#
- #{ids\ 5806}#))
- (lambda (#{ys\ 5838}#
- #{ids\ 5839}#)
+ (#{cvt*\ 3679}#
+ #{ys\ 3728}#
+ #{n\ 3697}#
+ #{ids\ 3698}#))
+ (lambda (#{ys\ 3730}#
+ #{ids\ 3731}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5834}#
- (1+ #{n\ 5805}#)
- #{ids\ 5839}#))
- (lambda (#{x\ 5842}#
- #{ids\ 5843}#)
+ (#{cvt\ 3681}#
+ #{x\ 3726}#
+ (1+ #{n\ 3697}#)
+ #{ids\ 3731}#))
+ (lambda (#{x\ 3734}#
+ #{ids\ 3735}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 5842}#
+ (cons #{x\ 3734}#
(cons
(reverse
-
#{ys\ 5838}#)
+
#{ys\ 3730}#)
'(())))))
- #{ids\ 5843}#))))))
- #{tmp\ 5824}#)
- (let ((#{tmp\ 5847}#
+ #{ids\ 3735}#))))))
+ #{tmp\ 3716}#)
+ (let ((#{tmp\ 3739}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3702}#
'(any . any))))
- (if #{tmp\ 5847}#
+ (if #{tmp\ 3739}#
(@apply
- (lambda (#{x\ 5850}# #{y\ 5851}#)
+ (lambda (#{x\ 3742}# #{y\ 3743}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{y\ 5851}#
- #{n\ 5805}#
- #{ids\ 5806}#))
- (lambda (#{y\ 5852}#
- #{ids\ 5853}#)
+ (#{cvt\ 3681}#
+ #{y\ 3743}#
+ #{n\ 3697}#
+ #{ids\ 3698}#))
+ (lambda (#{y\ 3744}#
+ #{ids\ 3745}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5850}#
- #{n\ 5805}#
- #{ids\ 5853}#))
- (lambda (#{x\ 5856}#
- #{ids\ 5857}#)
+ (#{cvt\ 3681}#
+ #{x\ 3742}#
+ #{n\ 3697}#
+ #{ids\ 3745}#))
+ (lambda (#{x\ 3748}#
+ #{ids\ 3749}#)
(values
- (cons #{x\ 5856}#
- #{y\ 5852}#)
- #{ids\ 5857}#))))))
- #{tmp\ 5847}#)
- (let ((#{tmp\ 5860}#
+ (cons #{x\ 3748}#
+ #{y\ 3744}#)
+ #{ids\ 3749}#))))))
+ #{tmp\ 3739}#)
+ (let ((#{tmp\ 3752}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3702}#
'())))
- (if #{tmp\ 5860}#
+ (if #{tmp\ 3752}#
(@apply
(lambda ()
(values
'()
- #{ids\ 5806}#))
- #{tmp\ 5860}#)
- (let ((#{tmp\ 5861}#
+ #{ids\ 3698}#))
+ #{tmp\ 3752}#)
+ (let ((#{tmp\ 3753}#
($sc-dispatch
- #{tmp\ 5810}#
+ #{tmp\ 3702}#
'#(vector
each-any))))
- (if #{tmp\ 5861}#
+ (if #{tmp\ 3753}#
(@apply
- (lambda (#{x\ 5863}#)
+ (lambda (#{x\ 3755}#)
(call-with-values
(lambda ()
- (#{cvt\ 5789}#
- #{x\ 5863}#
- #{n\ 5805}#
- #{ids\ 5806}#))
- (lambda (#{p\ 5865}#
- #{ids\
5866}#)
+ (#{cvt\ 3681}#
+ #{x\ 3755}#
+ #{n\ 3697}#
+ #{ids\ 3698}#))
+ (lambda (#{p\ 3757}#
+ #{ids\
3758}#)
(values
(vector
'vector
- #{p\ 5865}#)
- #{ids\ 5866}#))))
- #{tmp\ 5861}#)
- (let ((#{x\ 5870}#
- #{tmp\ 5810}#))
+ #{p\ 3757}#)
+ #{ids\ 3758}#))))
+ #{tmp\ 3753}#)
+ (let ((#{x\ 3762}#
+ #{tmp\ 3702}#))
(values
(vector
'atom
- (#{strip\ 2607}#
- #{p\ 5804}#
+ (#{strip\ 499}#
+ #{p\ 3696}#
'(())))
- #{ids\
5806}#)))))))))))))))))
+ #{ids\
3698}#)))))))))))))))))
(begin
- (#{cvt\ 5789}# #{pattern\ 5782}# 0 (quote ()))))))
- (#{build-dispatch-call\ 5777}#
- (lambda (#{pvars\ 5872}#
- #{exp\ 5873}#
- #{y\ 5874}#
- #{r\ 5875}#
- #{mod\ 5876}#)
+ (#{cvt\ 3681}# #{pattern\ 3674}# 0 (quote ()))))))
+ (#{build-dispatch-call\ 3669}#
+ (lambda (#{pvars\ 3764}#
+ #{exp\ 3765}#
+ #{y\ 3766}#
+ #{r\ 3767}#
+ #{mod\ 3768}#)
(begin
- (map cdr #{pvars\ 5872}#)
- (let ((#{ids\ 5884}# (map car #{pvars\ 5872}#)))
+ (map cdr #{pvars\ 3764}#)
+ (let ((#{ids\ 3776}# (map car #{pvars\ 3764}#)))
(begin
- (let ((#{labels\ 5888}#
- (#{gen-labels\ 2514}# #{ids\ 5884}#))
- (#{new-vars\ 5889}#
- (map #{gen-var\ 2609}# #{ids\ 5884}#)))
- (#{build-application\ 2420}#
+ (let ((#{labels\ 3780}#
+ (#{gen-labels\ 406}# #{ids\ 3776}#))
+ (#{new-vars\ 3781}#
+ (map #{gen-var\ 501}# #{ids\ 3776}#)))
+ (#{build-application\ 312}#
#f
- (#{build-primref\ 2444}# #f (quote apply))
- (list (#{build-simple-lambda\ 2438}#
+ (#{build-primref\ 336}# #f (quote apply))
+ (list (#{build-simple-lambda\ 330}#
#f
- (map syntax->datum #{ids\ 5884}#)
+ (map syntax->datum #{ids\ 3776}#)
#f
- #{new-vars\ 5889}#
+ #{new-vars\ 3781}#
'()
- (#{chi\ 2581}#
- #{exp\ 5873}#
- (#{extend-env\ 2484}#
- #{labels\ 5888}#
- (map (lambda (#{var\ 5893}#
- #{level\ 5894}#)
+ (#{chi\ 473}#
+ #{exp\ 3765}#
+ (#{extend-env\ 376}#
+ #{labels\ 3780}#
+ (map (lambda (#{var\ 3785}#
+ #{level\ 3786}#)
(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\ 3785}#
+ #{level\
3786}#)))
+ #{new-vars\ 3781}#
+ (map cdr #{pvars\ 3764}#))
+ #{r\ 3767}#)
+ (#{make-binding-wrap\ 435}#
+ #{ids\ 3776}#
+ #{labels\ 3780}#
'(()))
- #{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\ 3768}#))
+ #{y\ 3766}#))))))))
+ (#{gen-clause\ 3671}#
+ (lambda (#{x\ 3792}#
+ #{keys\ 3793}#
+ #{clauses\ 3794}#
+ #{r\ 3795}#
+ #{pat\ 3796}#
+ #{fender\ 3797}#
+ #{exp\ 3798}#
+ #{mod\ 3799}#)
(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\ 3667}#
+ #{pat\ 3796}#
+ #{keys\ 3793}#))
+ (lambda (#{p\ 3808}# #{pvars\ 3809}#)
+ (if (not (#{distinct-bound-ids?\ 453}#
+ (map car #{pvars\ 3809}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 5904}#)
+ #{pat\ 3796}#)
(if (not (and-map
- (lambda (#{x\ 5924}#)
- (not (#{ellipsis?\ 2597}#
- (car #{x\ 5924}#))))
- #{pvars\ 5917}#))
+ (lambda (#{x\ 3816}#)
+ (not (#{ellipsis?\ 489}#
+ (car #{x\ 3816}#))))
+ #{pvars\ 3809}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 5904}#)
+ #{pat\ 3796}#)
(begin
- (let ((#{y\ 5928}#
- (#{gen-var\ 2609}# (quote tmp))))
- (#{build-application\ 2420}#
+ (let ((#{y\ 3820}#
+ (#{gen-var\ 501}# (quote tmp))))
+ (#{build-application\ 312}#
#f
- (#{build-simple-lambda\ 2438}#
+ (#{build-simple-lambda\ 330}#
#f
(list (quote tmp))
#f
- (list #{y\ 5928}#)
+ (list #{y\ 3820}#)
'()
(begin
- (let ((#{y\ 5932}#
- (#{build-lexical-reference\
2426}#
+ (let ((#{y\ 3824}#
+ (#{build-lexical-reference\
318}#
'value
#f
'tmp
- #{y\ 5928}#)))
- (#{build-conditional\ 2422}#
+ #{y\ 3820}#)))
+ (#{build-conditional\ 314}#
#f
- (let ((#{tmp\ 5935}#
- #{fender\ 5905}#))
- (let ((#{tmp\ 5936}#
+ (let ((#{tmp\ 3827}#
+ #{fender\ 3797}#))
+ (let ((#{tmp\ 3828}#
($sc-dispatch
- #{tmp\ 5935}#
+ #{tmp\ 3827}#
'#(atom #t))))
- (if #{tmp\ 5936}#
+ (if #{tmp\ 3828}#
(@apply
- (lambda () #{y\ 5932}#)
- #{tmp\ 5936}#)
- (let ((#{_\ 5938}#
- #{tmp\ 5935}#))
- (#{build-conditional\ 2422}#
+ (lambda () #{y\ 3824}#)
+ #{tmp\ 3828}#)
+ (let ((#{_\ 3830}#
+ #{tmp\ 3827}#))
+ (#{build-conditional\ 314}#
#f
- #{y\ 5932}#
- (#{build-dispatch-call\
5777}#
- #{pvars\ 5917}#
- #{fender\ 5905}#
- #{y\ 5932}#
- #{r\ 5903}#
- #{mod\ 5907}#)
- (#{build-data\ 2446}#
+ #{y\ 3824}#
+ (#{build-dispatch-call\
3669}#
+ #{pvars\ 3809}#
+ #{fender\ 3797}#
+ #{y\ 3824}#
+ #{r\ 3795}#
+ #{mod\ 3799}#)
+ (#{build-data\ 338}#
#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\ 3669}#
+ #{pvars\ 3809}#
+ #{exp\ 3798}#
+ #{y\ 3824}#
+ #{r\ 3795}#
+ #{mod\ 3799}#)
+ (#{gen-syntax-case\ 3673}#
+ #{x\ 3792}#
+ #{keys\ 3793}#
+ #{clauses\ 3794}#
+ #{r\ 3795}#
+ #{mod\ 3799}#)))))
+ (list (if (eq? #{p\ 3808}# (quote any))
+ (#{build-application\ 312}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 336}#
#f
'list)
- (list #{x\ 5900}#))
- (#{build-application\ 2420}#
+ (list #{x\ 3792}#))
+ (#{build-application\ 312}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 336}#
#f
'$sc-dispatch)
- (list #{x\ 5900}#
- (#{build-data\ 2446}#
+ (list #{x\ 3792}#
+ (#{build-data\ 338}#
#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\ 3808}#))))))))))))))
+ (#{gen-syntax-case\ 3673}#
+ (lambda (#{x\ 3838}#
+ #{keys\ 3839}#
+ #{clauses\ 3840}#
+ #{r\ 3841}#
+ #{mod\ 3842}#)
+ (if (null? #{clauses\ 3840}#)
+ (#{build-application\ 312}#
#f
- (#{build-primref\ 2444}#
+ (#{build-primref\ 336}#
#f
'syntax-violation)
- (list (#{build-data\ 2446}# #f #f)
- (#{build-data\ 2446}#
+ (list (#{build-data\ 338}# #f #f)
+ (#{build-data\ 338}#
#f
"source expression failed to match any
pattern")
- #{x\ 5946}#))
- (let ((#{tmp\ 5960}# (car #{clauses\ 5948}#)))
- (let ((#{tmp\ 5961}#
+ #{x\ 3838}#))
+ (let ((#{tmp\ 3852}# (car #{clauses\ 3840}#)))
+ (let ((#{tmp\ 3853}#
($sc-dispatch
- #{tmp\ 5960}#
+ #{tmp\ 3852}#
'(any any))))
- (if #{tmp\ 5961}#
+ (if #{tmp\ 3853}#
(@apply
- (lambda (#{pat\ 5964}# #{exp\ 5965}#)
- (if (if (#{id?\ 2496}# #{pat\ 5964}#)
+ (lambda (#{pat\ 3856}# #{exp\ 3857}#)
+ (if (if (#{id?\ 388}# #{pat\ 3856}#)
(and-map
- (lambda (#{x\ 5968}#)
- (not (#{free-id=?\ 2555}#
- #{pat\ 5964}#
- #{x\ 5968}#)))
+ (lambda (#{x\ 3860}#)
+ (not (#{free-id=?\ 447}#
+ #{pat\ 3856}#
+ #{x\ 3860}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i5962" "i5963"))
+ #("i3854" "i3855"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -12312,21 +12286,21 @@
(top)
(top)
(top))
- #("i5951"
- "i5952"
- "i5953"
- "i5954"
- "i5955"))
+ #("i3843"
+ "i3844"
+ "i3845"
+ "i3846"
+ "i3847"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i5780"
- "i5778"
- "i5776"
- "i5774"))
+ ("i3672"
+ "i3670"
+ "i3668"
+ "i3666"))
#(ribcage
(lambda-var-list
gen-var
@@ -12602,745 +12576,743 @@
(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"))
+ ("i502"
+ "i500"
+ "i498"
+ "i496"
+ "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"
+ "i431"
+ "i430"
+ "i428"
+ "i427"
+ "i426"
+ "i425"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i405"
+ "i403"
+ "i402"
+ "i401"
+ "i400"
+ "i399"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i389"
+ "i387"
+ "i385"
+ "i383"
+ "i381"
+ "i379"
+ "i377"
+ "i375"
+ "i374"
+ "i372"
+ "i370"
+ "i369"
+ "i368"
+ "i366"
+ "i365"
+ "i363"
+ "i361"
+ "i359"
+ "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"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"))
#(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\ 3839}#))
#f)
(begin
- (let ((#{labels\ 5972}#
- (list (#{gen-label\ 2512}#)))
- (#{var\ 5973}#
- (#{gen-var\ 2609}#
- #{pat\ 5964}#)))
- (#{build-application\ 2420}#
+ (let ((#{labels\ 3864}#
+ (list (#{gen-label\ 404}#)))
+ (#{var\ 3865}#
+ (#{gen-var\ 501}# #{pat\ 3856}#)))
+ (#{build-application\ 312}#
#f
- (#{build-simple-lambda\ 2438}#
+ (#{build-simple-lambda\ 330}#
#f
- (list (syntax->datum #{pat\ 5964}#))
+ (list (syntax->datum #{pat\ 3856}#))
#f
- (list #{var\ 5973}#)
+ (list #{var\ 3865}#)
'()
- (#{chi\ 2581}#
- #{exp\ 5965}#
- (#{extend-env\ 2484}#
- #{labels\ 5972}#
+ (#{chi\ 473}#
+ #{exp\ 3857}#
+ (#{extend-env\ 376}#
+ #{labels\ 3864}#
(list (cons 'syntax
- (cons #{var\ 5973}#
+ (cons #{var\ 3865}#
0)))
- #{r\ 5949}#)
- (#{make-binding-wrap\ 2543}#
- (list #{pat\ 5964}#)
- #{labels\ 5972}#
+ #{r\ 3841}#)
+ (#{make-binding-wrap\ 435}#
+ (list #{pat\ 3856}#)
+ #{labels\ 3864}#
'(()))
- #{mod\ 5950}#))
- (list #{x\ 5946}#))))
- (#{gen-clause\ 5779}#
- #{x\ 5946}#
- #{keys\ 5947}#
- (cdr #{clauses\ 5948}#)
- #{r\ 5949}#
- #{pat\ 5964}#
+ #{mod\ 3842}#))
+ (list #{x\ 3838}#))))
+ (#{gen-clause\ 3671}#
+ #{x\ 3838}#
+ #{keys\ 3839}#
+ (cdr #{clauses\ 3840}#)
+ #{r\ 3841}#
+ #{pat\ 3856}#
#t
- #{exp\ 5965}#
- #{mod\ 5950}#)))
- #{tmp\ 5961}#)
- (let ((#{tmp\ 5979}#
+ #{exp\ 3857}#
+ #{mod\ 3842}#)))
+ #{tmp\ 3853}#)
+ (let ((#{tmp\ 3871}#
($sc-dispatch
- #{tmp\ 5960}#
+ #{tmp\ 3852}#
'(any any any))))
- (if #{tmp\ 5979}#
+ (if #{tmp\ 3871}#
(@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\ 3875}#
+ #{fender\ 3876}#
+ #{exp\ 3877}#)
+ (#{gen-clause\ 3671}#
+ #{x\ 3838}#
+ #{keys\ 3839}#
+ (cdr #{clauses\ 3840}#)
+ #{r\ 3841}#
+ #{pat\ 3875}#
+ #{fender\ 3876}#
+ #{exp\ 3877}#
+ #{mod\ 3842}#))
+ #{tmp\ 3871}#)
+ (let ((#{_\ 3879}# #{tmp\ 3852}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 5948}#))))))))))))
+ (car #{clauses\ 3840}#))))))))))))
(begin
- (lambda (#{e\ 5988}#
- #{r\ 5989}#
- #{w\ 5990}#
- #{s\ 5991}#
- #{mod\ 5992}#)
+ (lambda (#{e\ 3880}#
+ #{r\ 3881}#
+ #{w\ 3882}#
+ #{s\ 3883}#
+ #{mod\ 3884}#)
(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\ 3891}#
+ (#{source-wrap\ 459}#
+ #{e\ 3880}#
+ #{w\ 3882}#
+ #{s\ 3883}#
+ #{mod\ 3884}#)))
+ (let ((#{tmp\ 3892}# #{e\ 3891}#))
+ (let ((#{tmp\ 3893}#
($sc-dispatch
- #{tmp\ 6000}#
+ #{tmp\ 3892}#
'(any any each-any . each-any))))
- (if #{tmp\ 6001}#
+ (if #{tmp\ 3893}#
(@apply
- (lambda (#{_\ 6006}#
- #{val\ 6007}#
- #{key\ 6008}#
- #{m\ 6009}#)
+ (lambda (#{_\ 3898}#
+ #{val\ 3899}#
+ #{key\ 3900}#
+ #{m\ 3901}#)
(if (and-map
- (lambda (#{x\ 6010}#)
- (if (#{id?\ 2496}# #{x\ 6010}#)
- (not (#{ellipsis?\ 2597}#
- #{x\ 6010}#))
+ (lambda (#{x\ 3902}#)
+ (if (#{id?\ 388}# #{x\ 3902}#)
+ (not (#{ellipsis?\ 489}#
+ #{x\ 3902}#))
#f))
- #{key\ 6008}#)
+ #{key\ 3900}#)
(begin
- (let ((#{x\ 6016}#
- (#{gen-var\ 2609}# (quote tmp))))
- (#{build-application\ 2420}#
- #{s\ 5991}#
- (#{build-simple-lambda\ 2438}#
+ (let ((#{x\ 3908}#
+ (#{gen-var\ 501}# (quote tmp))))
+ (#{build-application\ 312}#
+ #{s\ 3883}#
+ (#{build-simple-lambda\ 330}#
#f
(list (quote tmp))
#f
- (list #{x\ 6016}#)
+ (list #{x\ 3908}#)
'()
- (#{gen-syntax-case\ 5781}#
- (#{build-lexical-reference\
2426}#
+ (#{gen-syntax-case\ 3673}#
+ (#{build-lexical-reference\ 318}#
'value
#f
'tmp
- #{x\ 6016}#)
- #{key\ 6008}#
- #{m\ 6009}#
- #{r\ 5989}#
- #{mod\ 5992}#))
- (list (#{chi\ 2581}#
- #{val\ 6007}#
- #{r\ 5989}#
+ #{x\ 3908}#)
+ #{key\ 3900}#
+ #{m\ 3901}#
+ #{r\ 3881}#
+ #{mod\ 3884}#))
+ (list (#{chi\ 473}#
+ #{val\ 3899}#
+ #{r\ 3881}#
'(())
- #{mod\ 5992}#)))))
+ #{mod\ 3884}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 5999}#)))
- #{tmp\ 6001}#)
+ #{e\ 3891}#)))
+ #{tmp\ 3893}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6000}#))))))))))
+ #{tmp\ 3892}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 6022}#
+ (#{x\ 3914}#
#:optional
- (#{m\ 6024}# (quote e))
- (#{esew\ 6026}# (quote (eval))))
- (#{chi-top\ 2579}#
- #{x\ 6022}#
+ (#{m\ 3916}# (quote e))
+ (#{esew\ 3918}# (quote (eval))))
+ (#{chi-top\ 471}#
+ #{x\ 3914}#
'()
'((top))
- #{m\ 6024}#
- #{esew\ 6026}#
+ #{m\ 3916}#
+ #{esew\ 3918}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 6030}#)
- (#{nonsymbol-id?\ 2494}# #{x\ 6030}#)))
+ (lambda (#{x\ 3922}#)
+ (#{nonsymbol-id?\ 386}# #{x\ 3922}#)))
(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\ 3924}# #{datum\ 3925}#)
+ (#{make-syntax-object\ 350}#
+ #{datum\ 3925}#
+ (#{syntax-object-wrap\ 356}# #{id\ 3924}#)
+ (#{syntax-object-module\ 358}# #{id\ 3924}#))))
(set! syntax->datum
- (lambda (#{x\ 6036}#)
- (#{strip\ 2607}# #{x\ 6036}# (quote (())))))
+ (lambda (#{x\ 3928}#)
+ (#{strip\ 499}# #{x\ 3928}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 6039}#)
- (#{source-annotation\ 2475}# #{x\ 6039}#)))
+ (lambda (#{x\ 3931}#)
+ (#{source-annotation\ 367}# #{x\ 3931}#)))
(set! generate-temporaries
- (lambda (#{ls\ 6041}#)
+ (lambda (#{ls\ 3933}#)
(begin
(begin
- (let ((#{x\ 6045}# #{ls\ 6041}#))
- (if (not (list? #{x\ 6045}#))
+ (let ((#{x\ 3937}# #{ls\ 3933}#))
+ (if (not (list? #{x\ 3937}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 6045}#))))
- (map (lambda (#{x\ 6046}#)
- (#{wrap\ 2565}# (gensym) (quote ((top))) #f))
- #{ls\ 6041}#))))
+ #{x\ 3937}#))))
+ (map (lambda (#{x\ 3938}#)
+ (#{wrap\ 457}# (gensym) (quote ((top))) #f))
+ #{ls\ 3933}#))))
(set! free-identifier=?
- (lambda (#{x\ 6050}# #{y\ 6051}#)
+ (lambda (#{x\ 3942}# #{y\ 3943}#)
(begin
(begin
- (let ((#{x\ 6056}# #{x\ 6050}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6056}#))
+ (let ((#{x\ 3948}# #{x\ 3942}#))
+ (if (not (#{nonsymbol-id?\ 386}# #{x\ 3948}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 6056}#))))
+ #{x\ 3948}#))))
(begin
- (let ((#{x\ 6059}# #{y\ 6051}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6059}#))
+ (let ((#{x\ 3951}# #{y\ 3943}#))
+ (if (not (#{nonsymbol-id?\ 386}# #{x\ 3951}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 6059}#))))
- (#{free-id=?\ 2555}# #{x\ 6050}# #{y\ 6051}#))))
+ #{x\ 3951}#))))
+ (#{free-id=?\ 447}# #{x\ 3942}# #{y\ 3943}#))))
(set! bound-identifier=?
- (lambda (#{x\ 6060}# #{y\ 6061}#)
+ (lambda (#{x\ 3952}# #{y\ 3953}#)
(begin
(begin
- (let ((#{x\ 6066}# #{x\ 6060}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6066}#))
+ (let ((#{x\ 3958}# #{x\ 3952}#))
+ (if (not (#{nonsymbol-id?\ 386}# #{x\ 3958}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 6066}#))))
+ #{x\ 3958}#))))
(begin
- (let ((#{x\ 6069}# #{y\ 6061}#))
- (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6069}#))
+ (let ((#{x\ 3961}# #{y\ 3953}#))
+ (if (not (#{nonsymbol-id?\ 386}# #{x\ 3961}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 6069}#))))
- (#{bound-id=?\ 2557}# #{x\ 6060}# #{y\ 6061}#))))
+ #{x\ 3961}#))))
+ (#{bound-id=?\ 449}# #{x\ 3952}# #{y\ 3953}#))))
(set! syntax-violation
- (lambda (#{who\ 6070}#
- #{message\ 6071}#
- #{form\ 6072}#
+ (lambda (#{who\ 3962}#
+ #{message\ 3963}#
+ #{form\ 3964}#
.
- #{subform\ 6073}#)
+ #{subform\ 3965}#)
(begin
(begin
- (let ((#{x\ 6080}# #{who\ 6070}#))
- (if (not (let ((#{x\ 6081}# #{x\ 6080}#))
+ (let ((#{x\ 3972}# #{who\ 3962}#))
+ (if (not (let ((#{x\ 3973}# #{x\ 3972}#))
(begin
- (let ((#{t\ 6085}# (not #{x\ 6081}#)))
- (if #{t\ 6085}#
- #{t\ 6085}#
+ (let ((#{t\ 3977}# (not #{x\ 3973}#)))
+ (if #{t\ 3977}#
+ #{t\ 3977}#
(begin
- (let ((#{t\ 6088}#
- (string? #{x\ 6081}#)))
- (if #{t\ 6088}#
- #{t\ 6088}#
- (symbol? #{x\ 6081}#)))))))))
+ (let ((#{t\ 3980}#
+ (string? #{x\ 3973}#)))
+ (if #{t\ 3980}#
+ #{t\ 3980}#
+ (symbol? #{x\ 3973}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 6080}#))))
+ #{x\ 3972}#))))
(begin
- (let ((#{x\ 6092}# #{message\ 6071}#))
- (if (not (string? #{x\ 6092}#))
+ (let ((#{x\ 3984}# #{message\ 3963}#))
+ (if (not (string? #{x\ 3984}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 6092}#))))
+ #{x\ 3984}#))))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 6070}# "~a: " "")
+ (if #{who\ 3962}# "~a: " "")
"~a "
- (if (null? #{subform\ 6073}#)
+ (if (null? #{subform\ 3965}#)
"in ~a"
"in subform `~s' of `~s'"))
(begin
- (let ((#{tail\ 6094}#
- (cons #{message\ 6071}#
- (map (lambda (#{x\ 6095}#)
- (#{strip\ 2607}#
- #{x\ 6095}#
+ (let ((#{tail\ 3986}#
+ (cons #{message\ 3963}#
+ (map (lambda (#{x\ 3987}#)
+ (#{strip\ 499}#
+ #{x\ 3987}#
'(())))
(append
- #{subform\ 6073}#
- (list #{form\ 6072}#))))))
- (if #{who\ 6070}#
- (cons #{who\ 6070}# #{tail\ 6094}#)
- #{tail\ 6094}#)))
+ #{subform\ 3965}#
+ (list #{form\ 3964}#))))))
+ (if #{who\ 3962}#
+ (cons #{who\ 3962}# #{tail\ 3986}#)
+ #{tail\ 3986}#)))
#f))))
(letrec*
- ((#{match-each\ 6099}#
- (lambda (#{e\ 6112}#
- #{p\ 6113}#
- #{w\ 6114}#
- #{mod\ 6115}#)
- (if (pair? #{e\ 6112}#)
+ ((#{match-each\ 3991}#
+ (lambda (#{e\ 4004}#
+ #{p\ 4005}#
+ #{w\ 4006}#
+ #{mod\ 4007}#)
+ (if (pair? #{e\ 4004}#)
(begin
- (let ((#{first\ 6123}#
- (#{match\ 6111}#
- (car #{e\ 6112}#)
- #{p\ 6113}#
- #{w\ 6114}#
+ (let ((#{first\ 4015}#
+ (#{match\ 4003}#
+ (car #{e\ 4004}#)
+ #{p\ 4005}#
+ #{w\ 4006}#
'()
- #{mod\ 6115}#)))
- (if #{first\ 6123}#
+ #{mod\ 4007}#)))
+ (if #{first\ 4015}#
(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\ 4019}#
+ (#{match-each\ 3991}#
+ (cdr #{e\ 4004}#)
+ #{p\ 4005}#
+ #{w\ 4006}#
+ #{mod\ 4007}#)))
+ (if #{rest\ 4019}#
+ (cons #{first\ 4015}# #{rest\ 4019}#)
#f)))
#f)))
- (if (null? #{e\ 6112}#)
+ (if (null? #{e\ 4004}#)
'()
- (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?\ 352}# #{e\ 4004}#)
+ (#{match-each\ 3991}#
+ (#{syntax-object-expression\ 354}# #{e\ 4004}#)
+ #{p\ 4005}#
+ (#{join-wraps\ 439}#
+ #{w\ 4006}#
+ (#{syntax-object-wrap\ 356}# #{e\ 4004}#))
+ (#{syntax-object-module\ 358}# #{e\ 4004}#))
#f)))))
- (#{match-each+\ 6101}#
- (lambda (#{e\ 6135}#
- #{x-pat\ 6136}#
- #{y-pat\ 6137}#
- #{z-pat\ 6138}#
- #{w\ 6139}#
- #{r\ 6140}#
- #{mod\ 6141}#)
+ (#{match-each+\ 3993}#
+ (lambda (#{e\ 4027}#
+ #{x-pat\ 4028}#
+ #{y-pat\ 4029}#
+ #{z-pat\ 4030}#
+ #{w\ 4031}#
+ #{r\ 4032}#
+ #{mod\ 4033}#)
(letrec*
- ((#{f\ 6152}#
- (lambda (#{e\ 6153}# #{w\ 6154}#)
- (if (pair? #{e\ 6153}#)
+ ((#{f\ 4044}#
+ (lambda (#{e\ 4045}# #{w\ 4046}#)
+ (if (pair? #{e\ 4045}#)
(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\ 4044}# (cdr #{e\ 4045}#) #{w\ 4046}#))
+ (lambda (#{xr*\ 4049}#
+ #{y-pat\ 4050}#
+ #{r\ 4051}#)
+ (if #{r\ 4051}#
+ (if (null? #{y-pat\ 4050}#)
(begin
- (let ((#{xr\ 6164}#
- (#{match\ 6111}#
- (car #{e\ 6153}#)
- #{x-pat\ 6136}#
- #{w\ 6154}#
+ (let ((#{xr\ 4056}#
+ (#{match\ 4003}#
+ (car #{e\ 4045}#)
+ #{x-pat\ 4028}#
+ #{w\ 4046}#
'()
- #{mod\ 6141}#)))
- (if #{xr\ 6164}#
+ #{mod\ 4033}#)))
+ (if #{xr\ 4056}#
(values
- (cons #{xr\ 6164}# #{xr*\ 6157}#)
- #{y-pat\ 6158}#
- #{r\ 6159}#)
+ (cons #{xr\ 4056}# #{xr*\ 4049}#)
+ #{y-pat\ 4050}#
+ #{r\ 4051}#)
(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\ 4050}#)
+ (#{match\ 4003}#
+ (car #{e\ 4045}#)
+ (car #{y-pat\ 4050}#)
+ #{w\ 4046}#
+ #{r\ 4051}#
+ #{mod\ 4033}#)))
(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?\ 352}# #{e\ 4045}#)
+ (#{f\ 4044}#
+ (#{syntax-object-expression\ 354}# #{e\ 4045}#)
+ (#{join-wraps\ 439}# #{w\ 4046}# #{e\ 4045}#))
(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\ 4029}#
+ (#{match\ 4003}#
+ #{e\ 4045}#
+ #{z-pat\ 4030}#
+ #{w\ 4046}#
+ #{r\ 4032}#
+ #{mod\ 4033}#)))))))
+ (begin (#{f\ 4044}# #{e\ 4027}# #{w\ 4031}#)))))
+ (#{match-each-any\ 3995}#
+ (lambda (#{e\ 4060}# #{w\ 4061}# #{mod\ 4062}#)
+ (if (pair? #{e\ 4060}#)
(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\ 4069}#
+ (#{match-each-any\ 3995}#
+ (cdr #{e\ 4060}#)
+ #{w\ 4061}#
+ #{mod\ 4062}#)))
+ (if #{l\ 4069}#
+ (cons (#{wrap\ 457}#
+ (car #{e\ 4060}#)
+ #{w\ 4061}#
+ #{mod\ 4062}#)
+ #{l\ 4069}#)
#f)))
- (if (null? #{e\ 6168}#)
+ (if (null? #{e\ 4060}#)
'()
- (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?\ 352}# #{e\ 4060}#)
+ (#{match-each-any\ 3995}#
+ (#{syntax-object-expression\ 354}# #{e\ 4060}#)
+ (#{join-wraps\ 439}#
+ #{w\ 4061}#
+ (#{syntax-object-wrap\ 356}# #{e\ 4060}#))
+ #{mod\ 4062}#)
#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}#)
+ (#{match-empty\ 3997}#
+ (lambda (#{p\ 4077}# #{r\ 4078}#)
+ (if (null? #{p\ 4077}#)
+ #{r\ 4078}#
+ (if (eq? #{p\ 4077}# (quote any))
+ (cons (quote ()) #{r\ 4078}#)
+ (if (pair? #{p\ 4077}#)
+ (#{match-empty\ 3997}#
+ (car #{p\ 4077}#)
+ (#{match-empty\ 3997}#
+ (cdr #{p\ 4077}#)
+ #{r\ 4078}#))
+ (if (eq? #{p\ 4077}# (quote each-any))
+ (cons (quote ()) #{r\ 4078}#)
(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}#
+ (let ((#{atom-key\ 4092}#
+ (vector-ref #{p\ 4077}# 0)))
+ (if (eqv? #{atom-key\ 4092}# (quote each))
+ (#{match-empty\ 3997}#
+ (vector-ref #{p\ 4077}# 1)
+ #{r\ 4078}#)
+ (if (eqv? #{atom-key\ 4092}# (quote each+))
+ (#{match-empty\ 3997}#
+ (vector-ref #{p\ 4077}# 1)
+ (#{match-empty\ 3997}#
+ (reverse (vector-ref #{p\ 4077}# 2))
+ (#{match-empty\ 3997}#
+ (vector-ref #{p\ 4077}# 3)
+ #{r\ 4078}#)))
+ (if (if (eqv? #{atom-key\ 4092}#
'free-id)
#t
- (eqv? #{atom-key\ 6200}#
+ (eqv? #{atom-key\ 4092}#
'atom))
- #{r\ 6186}#
- (if (eqv? #{atom-key\ 6200}#
+ #{r\ 4078}#
+ (if (eqv? #{atom-key\ 4092}#
'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\ 3997}#
+ (vector-ref #{p\ 4077}# 1)
+ #{r\ 4078}#)))))))))))))
+ (#{combine\ 3999}#
+ (lambda (#{r*\ 4097}# #{r\ 4098}#)
+ (if (null? (car #{r*\ 4097}#))
+ #{r\ 4098}#
+ (cons (map car #{r*\ 4097}#)
+ (#{combine\ 3999}#
+ (map cdr #{r*\ 4097}#)
+ #{r\ 4098}#)))))
+ (#{match*\ 4001}#
+ (lambda (#{e\ 4101}#
+ #{p\ 4102}#
+ #{w\ 4103}#
+ #{r\ 4104}#
+ #{mod\ 4105}#)
+ (if (null? #{p\ 4102}#)
+ (if (null? #{e\ 4101}#) #{r\ 4104}# #f)
+ (if (pair? #{p\ 4102}#)
+ (if (pair? #{e\ 4101}#)
+ (#{match\ 4003}#
+ (car #{e\ 4101}#)
+ (car #{p\ 4102}#)
+ #{w\ 4103}#
+ (#{match\ 4003}#
+ (cdr #{e\ 4101}#)
+ (cdr #{p\ 4102}#)
+ #{w\ 4103}#
+ #{r\ 4104}#
+ #{mod\ 4105}#)
+ #{mod\ 4105}#)
#f)
- (if (eq? #{p\ 6210}# (quote each-any))
+ (if (eq? #{p\ 4102}# (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\ 4122}#
+ (#{match-each-any\ 3995}#
+ #{e\ 4101}#
+ #{w\ 4103}#
+ #{mod\ 4105}#)))
+ (if #{l\ 4122}#
+ (cons #{l\ 4122}# #{r\ 4104}#)
#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\ 4128}#
+ (vector-ref #{p\ 4102}# 0)))
+ (if (eqv? #{atom-key\ 4128}# (quote each))
+ (if (null? #{e\ 4101}#)
+ (#{match-empty\ 3997}#
+ (vector-ref #{p\ 4102}# 1)
+ #{r\ 4104}#)
(begin
- (let ((#{l\ 6239}#
- (#{match-each\ 6099}#
- #{e\ 6209}#
- (vector-ref #{p\ 6210}# 1)
- #{w\ 6211}#
- #{mod\ 6213}#)))
- (if #{l\ 6239}#
+ (let ((#{l\ 4131}#
+ (#{match-each\ 3991}#
+ #{e\ 4101}#
+ (vector-ref #{p\ 4102}# 1)
+ #{w\ 4103}#
+ #{mod\ 4105}#)))
+ (if #{l\ 4131}#
(letrec*
- ((#{collect\ 6244}#
- (lambda (#{l\ 6245}#)
- (if (null? (car #{l\ 6245}#))
- #{r\ 6212}#
- (cons (map car #{l\ 6245}#)
- (#{collect\ 6244}#
+ ((#{collect\ 4136}#
+ (lambda (#{l\ 4137}#)
+ (if (null? (car #{l\ 4137}#))
+ #{r\ 4104}#
+ (cons (map car #{l\ 4137}#)
+ (#{collect\ 4136}#
(map cdr
- #{l\ 6245}#)))))))
+ #{l\ 4137}#)))))))
(begin
- (#{collect\ 6244}# #{l\ 6239}#)))
+ (#{collect\ 4136}# #{l\ 4131}#)))
#f))))
- (if (eqv? #{atom-key\ 6236}# (quote each+))
+ (if (eqv? #{atom-key\ 4128}# (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+\ 3993}#
+ #{e\ 4101}#
+ (vector-ref #{p\ 4102}# 1)
+ (vector-ref #{p\ 4102}# 2)
+ (vector-ref #{p\ 4102}# 3)
+ #{w\ 4103}#
+ #{r\ 4104}#
+ #{mod\ 4105}#))
+ (lambda (#{xr*\ 4139}#
+ #{y-pat\ 4140}#
+ #{r\ 4141}#)
+ (if #{r\ 4141}#
+ (if (null? #{y-pat\ 4140}#)
+ (if (null? #{xr*\ 4139}#)
+ (#{match-empty\ 3997}#
+ (vector-ref #{p\ 4102}# 1)
+ #{r\ 4141}#)
+ (#{combine\ 3999}#
+ #{xr*\ 4139}#
+ #{r\ 4141}#))
#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\ 4128}# (quote free-id))
+ (if (#{id?\ 388}# #{e\ 4101}#)
+ (if (#{free-id=?\ 447}#
+ (#{wrap\ 457}#
+ #{e\ 4101}#
+ #{w\ 4103}#
+ #{mod\ 4105}#)
+ (vector-ref #{p\ 4102}# 1))
+ #{r\ 4104}#
#f)
#f)
- (if (eqv? #{atom-key\ 6236}# (quote atom))
+ (if (eqv? #{atom-key\ 4128}# (quote atom))
(if (equal?
- (vector-ref #{p\ 6210}# 1)
- (#{strip\ 2607}#
- #{e\ 6209}#
- #{w\ 6211}#))
- #{r\ 6212}#
+ (vector-ref #{p\ 4102}# 1)
+ (#{strip\ 499}#
+ #{e\ 4101}#
+ #{w\ 4103}#))
+ #{r\ 4104}#
#f)
- (if (eqv? #{atom-key\ 6236}#
+ (if (eqv? #{atom-key\ 4128}#
'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\ 4101}#)
+ (#{match\ 4003}#
+ (vector->list #{e\ 4101}#)
+ (vector-ref #{p\ 4102}# 1)
+ #{w\ 4103}#
+ #{r\ 4104}#
+ #{mod\ 4105}#)
#f)))))))))))))
- (#{match\ 6111}#
- (lambda (#{e\ 6266}#
- #{p\ 6267}#
- #{w\ 6268}#
- #{r\ 6269}#
- #{mod\ 6270}#)
- (if (not #{r\ 6269}#)
+ (#{match\ 4003}#
+ (lambda (#{e\ 4158}#
+ #{p\ 4159}#
+ #{w\ 4160}#
+ #{r\ 4161}#
+ #{mod\ 4162}#)
+ (if (not #{r\ 4161}#)
#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\ 4159}# (quote any))
+ (cons (#{wrap\ 457}#
+ #{e\ 4158}#
+ #{w\ 4160}#
+ #{mod\ 4162}#)
+ #{r\ 4161}#)
+ (if (#{syntax-object?\ 352}# #{e\ 4158}#)
+ (#{match*\ 4001}#
+ (#{syntax-object-expression\ 354}# #{e\ 4158}#)
+ #{p\ 4159}#
+ (#{join-wraps\ 439}#
+ #{w\ 4160}#
+ (#{syntax-object-wrap\ 356}# #{e\ 4158}#))
+ #{r\ 4161}#
+ (#{syntax-object-module\ 358}# #{e\ 4158}#))
+ (#{match*\ 4001}#
+ #{e\ 4158}#
+ #{p\ 4159}#
+ #{w\ 4160}#
+ #{r\ 4161}#
+ #{mod\ 4162}#)))))))
(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}#)
+ (lambda (#{e\ 4175}# #{p\ 4176}#)
+ (if (eq? #{p\ 4176}# (quote any))
+ (list #{e\ 4175}#)
+ (if (#{syntax-object?\ 352}# #{e\ 4175}#)
+ (#{match*\ 4001}#
+ (#{syntax-object-expression\ 354}# #{e\ 4175}#)
+ #{p\ 4176}#
+ (#{syntax-object-wrap\ 356}# #{e\ 4175}#)
'()
- (#{syntax-object-module\ 2466}# #{e\ 6283}#))
- (#{match*\ 6109}#
- #{e\ 6283}#
- #{p\ 6284}#
+ (#{syntax-object-module\ 358}# #{e\ 4175}#))
+ (#{match*\ 4001}#
+ #{e\ 4175}#
+ #{p\ 4176}#
'(())
'()
#f)))))))))))))
@@ -13349,87 +13321,87 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 6293}#)
- (let ((#{tmp\ 6295}# #{x\ 6293}#))
- (let ((#{tmp\ 6296}#
+ (lambda (#{x\ 4185}#)
+ (let ((#{tmp\ 4187}# #{x\ 4185}#))
+ (let ((#{tmp\ 4188}#
($sc-dispatch
- #{tmp\ 6295}#
+ #{tmp\ 4187}#
'(any () any . each-any))))
- (if #{tmp\ 6296}#
+ (if #{tmp\ 4188}#
(@apply
- (lambda (#{_\ 6300}# #{e1\ 6301}# #{e2\ 6302}#)
+ (lambda (#{_\ 4192}# #{e1\ 4193}# #{e2\ 4194}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i6297" "i6298" "i6299"))
+ #("i4189" "i4190" "i4191"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4186")))
(hygiene guile))
- (cons #{e1\ 6301}# #{e2\ 6302}#)))
- #{tmp\ 6296}#)
- (let ((#{tmp\ 6304}#
+ (cons #{e1\ 4193}# #{e2\ 4194}#)))
+ #{tmp\ 4188}#)
+ (let ((#{tmp\ 4196}#
($sc-dispatch
- #{tmp\ 6295}#
+ #{tmp\ 4187}#
'(any ((any any)) any . each-any))))
- (if #{tmp\ 6304}#
+ (if #{tmp\ 4196}#
(@apply
- (lambda (#{_\ 6310}#
- #{out\ 6311}#
- #{in\ 6312}#
- #{e1\ 6313}#
- #{e2\ 6314}#)
+ (lambda (#{_\ 4202}#
+ #{out\ 4203}#
+ #{in\ 4204}#
+ #{e1\ 4205}#
+ #{e2\ 4206}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i6305" "i6306" "i6307" "i6308" "i6309"))
+ #("i4197" "i4198" "i4199" "i4200" "i4201"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4186")))
(hygiene guile))
- #{in\ 6312}#
+ #{in\ 4204}#
'()
- (list #{out\ 6311}#
+ (list #{out\ 4203}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i6305"
- "i6306"
- "i6307"
- "i6308"
- "i6309"))
+ #("i4197"
+ "i4198"
+ "i4199"
+ "i4200"
+ "i4201"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4186")))
(hygiene guile))
- (cons #{e1\ 6313}# #{e2\ 6314}#)))))
- #{tmp\ 6304}#)
- (let ((#{tmp\ 6316}#
+ (cons #{e1\ 4205}# #{e2\ 4206}#)))))
+ #{tmp\ 4196}#)
+ (let ((#{tmp\ 4208}#
($sc-dispatch
- #{tmp\ 6295}#
+ #{tmp\ 4187}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 6316}#
+ (if #{tmp\ 4208}#
(@apply
- (lambda (#{_\ 6322}#
- #{out\ 6323}#
- #{in\ 6324}#
- #{e1\ 6325}#
- #{e2\ 6326}#)
+ (lambda (#{_\ 4214}#
+ #{out\ 4215}#
+ #{in\ 4216}#
+ #{e1\ 4217}#
+ #{e2\ 4218}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i6317" "i6318" "i6319" "i6320" "i6321"))
+ #("i4209" "i4210" "i4211" "i4212" "i4213"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4186")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -13437,17 +13409,17 @@
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i6317"
- "i6318"
- "i6319"
- "i6320"
- "i6321"))
+ #("i4209"
+ "i4210"
+ "i4211"
+ "i4212"
+ "i4213"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6294")))
+ #(ribcage #(x) #((top)) #("i4186")))
(hygiene guile))
- #{in\ 6324}#)
+ #{in\ 4216}#)
'()
- (list #{out\ 6323}#
+ (list #{out\ 4215}#
(cons '#(syntax-object
begin
((top)
@@ -13458,50 +13430,50 @@
(top)
(top)
(top))
- #("i6317"
- "i6318"
- "i6319"
- "i6320"
- "i6321"))
+ #("i4209"
+ "i4210"
+ "i4211"
+ "i4212"
+ "i4213"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6294")))
+ #("i4186")))
(hygiene guile))
- (cons #{e1\ 6325}# #{e2\ 6326}#)))))
- #{tmp\ 6316}#)
+ (cons #{e1\ 4217}# #{e2\ 4218}#)))))
+ #{tmp\ 4208}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6295}#)))))))))))
+ #{tmp\ 4187}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 6330}#)
- (let ((#{tmp\ 6332}# #{x\ 6330}#))
- (let ((#{tmp\ 6333}#
+ (lambda (#{x\ 4222}#)
+ (let ((#{tmp\ 4224}# #{x\ 4222}#))
+ (let ((#{tmp\ 4225}#
($sc-dispatch
- #{tmp\ 6332}#
+ #{tmp\ 4224}#
'(any each-any . #(each ((any . any) any))))))
- (if #{tmp\ 6333}#
+ (if #{tmp\ 4225}#
(@apply
- (lambda (#{_\ 6339}#
- #{k\ 6340}#
- #{keyword\ 6341}#
- #{pattern\ 6342}#
- #{template\ 6343}#)
+ (lambda (#{_\ 4231}#
+ #{k\ 4232}#
+ #{keyword\ 4233}#
+ #{pattern\ 4234}#
+ #{template\ 4235}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #("i4226" "i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4223")))
(hygiene guile))
'(#(syntax-object
x
@@ -13509,9 +13481,9 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #("i4226" "i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4223")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -13520,9 +13492,9 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #("i4226" "i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4223")))
(hygiene guile))
.
#(syntax-object
@@ -13531,9 +13503,9 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #("i4226" "i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4223")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -13541,20 +13513,20 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #("i4226" "i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4223")))
(hygiene guile))
- #{pattern\ 6342}#))
+ #{pattern\ 4234}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6334" "i6335" "i6336" "i6337" "i6338"))
+ #("i4226" "i4227" "i4228" "i4229" "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4223")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -13562,17 +13534,17 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i6334"
- "i6335"
- "i6336"
- "i6337"
- "i6338"))
+ #("i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6331")))
+ #(ribcage #(x) #((top)) #("i4223")))
(hygiene guile))
- (cons #{k\ 6340}#
- (map (lambda (#{tmp\ 6347}#
- #{tmp\ 6346}#)
+ (cons #{k\ 4232}#
+ (map (lambda (#{tmp\ 4239}#
+ #{tmp\ 4238}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -13587,11 +13559,11 @@
(top)
(top)
(top))
- #("i6334"
- "i6335"
- "i6336"
- "i6337"
- "i6338"))
+ #("i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
@@ -13599,9 +13571,9 @@
#(ribcage
#(x)
#((top))
- #("i6331")))
+ #("i4223")))
(hygiene guile))
- #{tmp\ 6346}#)
+ #{tmp\ 4238}#)
(list '#(syntax-object
syntax
((top)
@@ -13616,11 +13588,11 @@
(top)
(top)
(top))
- #("i6334"
- "i6335"
- "i6336"
- "i6337"
- "i6338"))
+ #("i4226"
+ "i4227"
+ "i4228"
+ "i4229"
+ "i4230"))
#(ribcage
()
()
@@ -13628,47 +13600,47 @@
#(ribcage
#(x)
#((top))
- #("i6331")))
+ #("i4223")))
(hygiene guile))
- #{tmp\ 6347}#)))
- #{template\ 6343}#
- #{pattern\ 6342}#))))))
- #{tmp\ 6333}#)
+ #{tmp\ 4239}#)))
+ #{template\ 4235}#
+ #{pattern\ 4234}#))))))
+ #{tmp\ 4225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6332}#)))))))
+ #{tmp\ 4224}#)))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 6348}#)
- (let ((#{tmp\ 6350}# #{x\ 6348}#))
- (let ((#{tmp\ 6351}#
+ (lambda (#{x\ 4240}#)
+ (let ((#{tmp\ 4242}# #{x\ 4240}#))
+ (let ((#{tmp\ 4243}#
($sc-dispatch
- #{tmp\ 6350}#
+ #{tmp\ 4242}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 6351}#
+ (if (if #{tmp\ 4243}#
(@apply
- (lambda (#{let*\ 6357}#
- #{x\ 6358}#
- #{v\ 6359}#
- #{e1\ 6360}#
- #{e2\ 6361}#)
- (and-map identifier? #{x\ 6358}#))
- #{tmp\ 6351}#)
+ (lambda (#{let*\ 4249}#
+ #{x\ 4250}#
+ #{v\ 4251}#
+ #{e1\ 4252}#
+ #{e2\ 4253}#)
+ (and-map identifier? #{x\ 4250}#))
+ #{tmp\ 4243}#)
#f)
(@apply
- (lambda (#{let*\ 6368}#
- #{x\ 6369}#
- #{v\ 6370}#
- #{e1\ 6371}#
- #{e2\ 6372}#)
+ (lambda (#{let*\ 4260}#
+ #{x\ 4261}#
+ #{v\ 4262}#
+ #{e1\ 4263}#
+ #{e2\ 4264}#)
(letrec*
- ((#{f\ 6375}#
- (lambda (#{bindings\ 6376}#)
- (if (null? #{bindings\ 6376}#)
+ ((#{f\ 4267}#
+ (lambda (#{bindings\ 4268}#)
+ (if (null? #{bindings\ 4268}#)
(cons '#(syntax-object
let
((top)
@@ -13676,129 +13648,129 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i6373" "i6374"))
+ #("i4265" "i4266"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i6363"
- "i6364"
- "i6365"
- "i6366"
- "i6367"))
+ #("i4255"
+ "i4256"
+ "i4257"
+ "i4258"
+ "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6349")))
+ #(ribcage #(x) #((top)) #("i4241")))
(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\ 4263}# #{e2\ 4264}#)))
+ (let ((#{tmp\ 4273}#
+ (list (#{f\ 4267}# (cdr #{bindings\ 4268}#))
+ (car #{bindings\ 4268}#))))
+ (let ((#{tmp\ 4274}#
($sc-dispatch
- #{tmp\ 6381}#
+ #{tmp\ 4273}#
'(any any))))
- (if #{tmp\ 6382}#
+ (if #{tmp\ 4274}#
(@apply
- (lambda (#{body\ 6385}# #{binding\ 6386}#)
+ (lambda (#{body\ 4277}# #{binding\ 4278}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i6383" "i6384"))
+ #("i4275" "i4276"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i6373" "i6374"))
+ #("i4265" "i4266"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i6363"
- "i6364"
- "i6365"
- "i6366"
- "i6367"))
+ #("i4255"
+ "i4256"
+ "i4257"
+ "i4258"
+ "i4259"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6349")))
+ #("i4241")))
(hygiene guile))
- (list #{binding\ 6386}#)
- #{body\ 6385}#))
- #{tmp\ 6382}#)
+ (list #{binding\ 4278}#)
+ #{body\ 4277}#))
+ #{tmp\ 4274}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 6381}#))))))))
+ #{tmp\ 4273}#))))))))
(begin
- (#{f\ 6375}# (map list #{x\ 6369}# #{v\ 6370}#)))))
- #{tmp\ 6351}#)
+ (#{f\ 4267}# (map list #{x\ 4261}# #{v\ 4262}#)))))
+ #{tmp\ 4243}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6350}#)))))))
+ #{tmp\ 4242}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 6387}#)
- (let ((#{tmp\ 6389}# #{orig-x\ 6387}#))
- (let ((#{tmp\ 6390}#
+ (lambda (#{orig-x\ 4279}#)
+ (let ((#{tmp\ 4281}# #{orig-x\ 4279}#))
+ (let ((#{tmp\ 4282}#
($sc-dispatch
- #{tmp\ 6389}#
+ #{tmp\ 4281}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 6390}#
+ (if #{tmp\ 4282}#
(@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 (#{_\ 4290}#
+ #{var\ 4291}#
+ #{init\ 4292}#
+ #{step\ 4293}#
+ #{e0\ 4294}#
+ #{e1\ 4295}#
+ #{c\ 4296}#)
+ (let ((#{tmp\ 4298}#
+ (map (lambda (#{v\ 4319}# #{s\ 4320}#)
+ (let ((#{tmp\ 4323}# #{s\ 4320}#))
+ (let ((#{tmp\ 4324}#
($sc-dispatch
- #{tmp\ 6431}#
+ #{tmp\ 4323}#
'())))
- (if #{tmp\ 6432}#
+ (if #{tmp\ 4324}#
(@apply
- (lambda () #{v\ 6427}#)
- #{tmp\ 6432}#)
- (let ((#{tmp\ 6433}#
+ (lambda () #{v\ 4319}#)
+ #{tmp\ 4324}#)
+ (let ((#{tmp\ 4325}#
($sc-dispatch
- #{tmp\ 6431}#
+ #{tmp\ 4323}#
'(any))))
- (if #{tmp\ 6433}#
+ (if #{tmp\ 4325}#
(@apply
- (lambda (#{e\ 6435}#) #{e\ 6435}#)
- #{tmp\ 6433}#)
- (let ((#{_\ 6437}# #{tmp\ 6431}#))
+ (lambda (#{e\ 4327}#) #{e\ 4327}#)
+ #{tmp\ 4325}#)
+ (let ((#{_\ 4329}# #{tmp\ 4323}#))
(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\ 4279}#
+ #{s\ 4320}#))))))))
+ #{var\ 4291}#
+ #{step\ 4293}#)))
+ (let ((#{tmp\ 4299}#
+ ($sc-dispatch #{tmp\ 4298}# (quote each-any))))
+ (if #{tmp\ 4299}#
(@apply
- (lambda (#{step\ 6409}#)
- (let ((#{tmp\ 6410}# #{e1\ 6403}#))
- (let ((#{tmp\ 6411}#
- ($sc-dispatch #{tmp\ 6410}# (quote ()))))
- (if #{tmp\ 6411}#
+ (lambda (#{step\ 4301}#)
+ (let ((#{tmp\ 4302}# #{e1\ 4295}#))
+ (let ((#{tmp\ 4303}#
+ ($sc-dispatch #{tmp\ 4302}# (quote ()))))
+ (if #{tmp\ 4303}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -13807,7 +13779,7 @@
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -13817,18 +13789,18 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
'#(syntax-object
doloop
@@ -13836,7 +13808,7 @@
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -13846,29 +13818,29 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
(map list
- #{var\ 6399}#
- #{init\ 6400}#)
+ #{var\ 4291}#
+ #{init\ 4292}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_
var
@@ -13884,18 +13856,18 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
(list '#(syntax-object
not
@@ -13903,7 +13875,7 @@
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_
var
@@ -13919,27 +13891,27 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
- #{e0\ 6402}#)
+ #{e0\ 4294}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_
var
@@ -13955,28 +13927,28 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
(append
- #{c\ 6404}#
+ #{c\ 4296}#
(list (cons
'#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
-
#("i6408"))
+
#("i4300"))
#(ribcage
#(_
var
@@ -13992,13 +13964,13 @@
(top)
(top)
(top))
-
#("i6391"
-
"i6392"
-
"i6393"
-
"i6394"
-
"i6395"
-
"i6396"
-
"i6397"))
+
#("i4283"
+
"i4284"
+
"i4285"
+
"i4286"
+
"i4287"
+
"i4288"
+
"i4289"))
#(ribcage
()
()
@@ -14006,29 +13978,29 @@
#(ribcage
#(orig-x)
#((top))
-
#("i6388")))
+
#("i4280")))
(hygiene
guile))
- #{step\
6409}#)))))))
- #{tmp\ 6411}#)
- (let ((#{tmp\ 6416}#
+ #{step\
4301}#)))))))
+ #{tmp\ 4303}#)
+ (let ((#{tmp\ 4308}#
($sc-dispatch
- #{tmp\ 6410}#
+ #{tmp\ 4302}#
'(any . each-any))))
- (if #{tmp\ 6416}#
+ (if #{tmp\ 4308}#
(@apply
- (lambda (#{e1\ 6419}# #{e2\ 6420}#)
+ (lambda (#{e1\ 4311}# #{e2\ 4312}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417" "i6418"))
+ #("i4309" "i4310"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -14038,18 +14010,18 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
'#(syntax-object
doloop
@@ -14057,11 +14029,11 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417" "i6418"))
+ #("i4309" "i4310"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
@@ -14071,33 +14043,33 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
(map list
- #{var\ 6399}#
- #{init\ 6400}#)
+ #{var\ 4291}#
+ #{init\ 4292}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417" "i6418"))
+ #("i4309" "i4310"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_
var
@@ -14113,32 +14085,32 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
- #{e0\ 6402}#
+ #{e0\ 4294}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417"
- "i6418"))
+ #("i4309"
+ "i4310"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_
var
@@ -14154,13 +14126,13 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage
()
()
@@ -14168,22 +14140,22 @@
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
- (cons #{e1\ 6419}#
- #{e2\ 6420}#))
+ (cons #{e1\ 4311}#
+ #{e2\ 4312}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6417"
- "i6418"))
+ #("i4309"
+ "i4310"))
#(ribcage
#(step)
#((top))
- #("i6408"))
+ #("i4300"))
#(ribcage
#(_
var
@@ -14199,13 +14171,13 @@
(top)
(top)
(top))
- #("i6391"
- "i6392"
- "i6393"
- "i6394"
- "i6395"
- "i6396"
- "i6397"))
+ #("i4283"
+ "i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"
+ "i4289"))
#(ribcage
()
()
@@ -14213,10 +14185,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i6388")))
+ #("i4280")))
(hygiene guile))
(append
- #{c\ 6404}#
+ #{c\ 4296}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -14225,12 +14197,12 @@
e2)
#((top)
(top))
-
#("i6417"
-
"i6418"))
+
#("i4309"
+
"i4310"))
#(ribcage
#(step)
#((top))
-
#("i6408"))
+
#("i4300"))
#(ribcage
#(_
var
@@ -14246,13 +14218,13 @@
(top)
(top)
(top))
-
#("i6391"
-
"i6392"
-
"i6393"
-
"i6394"
-
"i6395"
-
"i6396"
-
"i6397"))
+
#("i4283"
+
"i4284"
+
"i4285"
+
"i4286"
+
"i4287"
+
"i4288"
+
"i4289"))
#(ribcage
()
()
@@ -14260,43 +14232,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("i6388")))
+
#("i4280")))
(hygiene
guile))
-
#{step\ 6409}#)))))))
- #{tmp\ 6416}#)
+
#{step\ 4301}#)))))))
+ #{tmp\ 4308}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 6410}#)))))))
- #{tmp\ 6407}#)
+ #{tmp\ 4302}#)))))))
+ #{tmp\ 4299}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6406}#)))))
- #{tmp\ 6390}#)
+ #{tmp\ 4298}#)))))
+ #{tmp\ 4282}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6389}#)))))))
+ #{tmp\ 4281}#)))))))
(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\ 4336}#
+ (lambda (#{x\ 4340}# #{y\ 4341}#)
+ (let ((#{tmp\ 4345}# (list #{x\ 4340}# #{y\ 4341}#)))
+ (let ((#{tmp\ 4346}#
+ ($sc-dispatch #{tmp\ 4345}# (quote (any any)))))
+ (if #{tmp\ 4346}#
(@apply
- (lambda (#{x\ 6457}# #{y\ 6458}#)
- (let ((#{tmp\ 6459}# #{y\ 6458}#))
- (let ((#{tmp\ 6460}#
+ (lambda (#{x\ 4349}# #{y\ 4350}#)
+ (let ((#{tmp\ 4351}# #{y\ 4350}#))
+ (let ((#{tmp\ 4352}#
($sc-dispatch
- #{tmp\ 6459}#
+ #{tmp\ 4351}#
'(#(free-id
#(syntax-object
quote
@@ -14304,29 +14276,29 @@
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
any))))
- (if #{tmp\ 6460}#
+ (if #{tmp\ 4352}#
(@apply
- (lambda (#{dy\ 6462}#)
- (let ((#{tmp\ 6463}# #{x\ 6457}#))
- (let ((#{tmp\ 6464}#
+ (lambda (#{dy\ 4354}#)
+ (let ((#{tmp\ 4355}# #{x\ 4349}#))
+ (let ((#{tmp\ 4356}#
($sc-dispatch
- #{tmp\ 6463}#
+ #{tmp\ 4355}#
'(#(free-id
#(syntax-object
quote
@@ -14334,140 +14306,140 @@
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4353"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile)))
any))))
- (if #{tmp\ 6464}#
+ (if #{tmp\ 4356}#
(@apply
- (lambda (#{dx\ 6466}#)
+ (lambda (#{dx\ 4358}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i6465"))
+ #("i4357"))
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4353"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
- (cons #{dx\ 6466}#
- #{dy\ 6462}#)))
- #{tmp\ 6464}#)
- (let ((#{_\ 6468}# #{tmp\ 6463}#))
- (if (null? #{dy\ 6462}#)
+ (cons #{dx\ 4358}#
+ #{dy\ 4354}#)))
+ #{tmp\ 4356}#)
+ (let ((#{_\ 4360}# #{tmp\ 4355}#))
+ (if (null? #{dy\ 4354}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i6467"))
+ #("i4359"))
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4353"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
- #{x\ 6457}#)
+ #{x\ 4349}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i6467"))
+ #("i4359"))
#(ribcage
#(dy)
#((top))
- #("i6461"))
+ #("i4353"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
- #{x\ 6457}#
- #{y\ 6458}#)))))))
- #{tmp\ 6460}#)
- (let ((#{tmp\ 6469}#
+ #{x\ 4349}#
+ #{y\ 4350}#)))))))
+ #{tmp\ 4352}#)
+ (let ((#{tmp\ 4361}#
($sc-dispatch
- #{tmp\ 6459}#
+ #{tmp\ 4351}#
'(#(free-id
#(syntax-object
list
@@ -14475,107 +14447,107 @@
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 6469}#
+ (if #{tmp\ 4361}#
(@apply
- (lambda (#{stuff\ 6471}#)
+ (lambda (#{stuff\ 4363}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i6470"))
+ #("i4362"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
- (cons #{x\ 6457}# #{stuff\ 6471}#)))
- #{tmp\ 6469}#)
- (let ((#{else\ 6473}# #{tmp\ 6459}#))
+ (cons #{x\ 4349}# #{stuff\ 4363}#)))
+ #{tmp\ 4361}#)
+ (let ((#{else\ 4365}# #{tmp\ 4351}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i6472"))
+ #("i4364"))
#(ribcage
#(x y)
#((top) (top))
- #("i6455" "i6456"))
+ #("i4347" "i4348"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6450" "i6451"))
+ #("i4342" "i4343"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
- #{x\ 6457}#
- #{y\ 6458}#))))))))
- #{tmp\ 6454}#)
+ #{x\ 4349}#
+ #{y\ 4350}#))))))))
+ #{tmp\ 4346}#)
(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\ 4345}#))))))
+ (#{quasiappend\ 4337}#
+ (lambda (#{x\ 4366}# #{y\ 4367}#)
+ (let ((#{tmp\ 4371}# (list #{x\ 4366}# #{y\ 4367}#)))
+ (let ((#{tmp\ 4372}#
+ ($sc-dispatch #{tmp\ 4371}# (quote (any any)))))
+ (if #{tmp\ 4372}#
(@apply
- (lambda (#{x\ 6483}# #{y\ 6484}#)
- (let ((#{tmp\ 6485}# #{y\ 6484}#))
- (let ((#{tmp\ 6486}#
+ (lambda (#{x\ 4375}# #{y\ 4376}#)
+ (let ((#{tmp\ 4377}# #{y\ 4376}#))
+ (let ((#{tmp\ 4378}#
($sc-dispatch
- #{tmp\ 6485}#
+ #{tmp\ 4377}#
'(#(free-id
#(syntax-object
quote
@@ -14583,160 +14555,160 @@
#(ribcage
#(x y)
#((top) (top))
- #("i6481" "i6482"))
+ #("i4373" "i4374"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6476" "i6477"))
+ #("i4368" "i4369"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
()))))
- (if #{tmp\ 6486}#
- (@apply (lambda () #{x\ 6483}#) #{tmp\ 6486}#)
- (let ((#{_\ 6488}# #{tmp\ 6485}#))
+ (if #{tmp\ 4378}#
+ (@apply (lambda () #{x\ 4375}#) #{tmp\ 4378}#)
+ (let ((#{_\ 4380}# #{tmp\ 4377}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i6487"))
+ #(ribcage #(_) #((top)) #("i4379"))
#(ribcage
#(x y)
#((top) (top))
- #("i6481" "i6482"))
+ #("i4373" "i4374"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i6476" "i6477"))
+ #("i4368" "i4369"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile))
- #{x\ 6483}#
- #{y\ 6484}#))))))
- #{tmp\ 6480}#)
+ #{x\ 4375}#
+ #{y\ 4376}#))))))
+ #{tmp\ 4372}#)
(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\ 4371}#))))))
+ (#{quasivector\ 4338}#
+ (lambda (#{x\ 4381}#)
+ (let ((#{tmp\ 4384}# #{x\ 4381}#))
+ (let ((#{x\ 4386}# #{tmp\ 4384}#))
+ (let ((#{tmp\ 4387}# #{x\ 4386}#))
+ (let ((#{tmp\ 4388}#
($sc-dispatch
- #{tmp\ 6495}#
+ #{tmp\ 4387}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4385"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4382"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 6496}#
+ (if #{tmp\ 4388}#
(@apply
- (lambda (#{x\ 6498}#)
+ (lambda (#{x\ 4390}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i6497"))
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4389"))
+ #(ribcage #(x) #((top)) #("i4385"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4382"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile))
- (list->vector #{x\ 6498}#)))
- #{tmp\ 6496}#)
- (let ((#{tmp\ 6500}#
+ (list->vector #{x\ 4390}#)))
+ #{tmp\ 4388}#)
+ (let ((#{tmp\ 4392}#
($sc-dispatch
- #{tmp\ 6495}#
+ #{tmp\ 4387}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4385"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4382"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 6500}#
+ (if #{tmp\ 4392}#
(@apply
- (lambda (#{x\ 6502}#)
+ (lambda (#{x\ 4394}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i6501"))
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(x) #((top)) #("i4393"))
+ #(ribcage #(x) #((top)) #("i4385"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4382"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile))
- #{x\ 6502}#))
- #{tmp\ 6500}#)
- (let ((#{_\ 6505}# #{tmp\ 6495}#))
+ #{x\ 4394}#))
+ #{tmp\ 4392}#)
+ (let ((#{_\ 4397}# #{tmp\ 4387}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i6504"))
- #(ribcage #(x) #((top)) #("i6493"))
+ #(ribcage #(_) #((top)) #("i4396"))
+ #(ribcage #(x) #((top)) #("i4385"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6490"))
+ #(ribcage #(x) #((top)) #("i4382"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile))
- #{x\ 6494}#)))))))))))
- (#{quasi\ 6447}#
- (lambda (#{p\ 6506}# #{lev\ 6507}#)
- (let ((#{tmp\ 6510}# #{p\ 6506}#))
- (let ((#{tmp\ 6511}#
+ #{x\ 4386}#)))))))))))
+ (#{quasi\ 4339}#
+ (lambda (#{p\ 4398}# #{lev\ 4399}#)
+ (let ((#{tmp\ 4402}# #{p\ 4398}#))
+ (let ((#{tmp\ 4403}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4402}#
'(#(free-id
#(syntax-object
unquote
@@ -14745,54 +14717,54 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
any))))
- (if #{tmp\ 6511}#
+ (if #{tmp\ 4403}#
(@apply
- (lambda (#{p\ 6513}#)
- (if (= #{lev\ 6507}# 0)
- #{p\ 6513}#
- (#{quasicons\ 6444}#
+ (lambda (#{p\ 4405}#)
+ (if (= #{lev\ 4399}# 0)
+ #{p\ 4405}#
+ (#{quasicons\ 4336}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i6512"))
+ #(ribcage #(p) #((top)) #("i4404"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i6512"))
+ #(ribcage #(p) #((top)) #("i4404"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
- (#{quasi\ 6447}#
- (list #{p\ 6513}#)
- (1- #{lev\ 6507}#)))))
- #{tmp\ 6511}#)
- (let ((#{tmp\ 6514}#
+ (#{quasi\ 4339}#
+ (list #{p\ 4405}#)
+ (1- #{lev\ 4399}#)))))
+ #{tmp\ 4403}#)
+ (let ((#{tmp\ 4406}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4402}#
'(#(free-id
#(syntax-object
unquote
@@ -14801,47 +14773,47 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 6514}#
+ (if (if #{tmp\ 4406}#
(@apply
- (lambda (#{args\ 6516}#) (= #{lev\ 6507}# 0))
- #{tmp\ 6514}#)
+ (lambda (#{args\ 4408}#) (= #{lev\ 4399}# 0))
+ #{tmp\ 4406}#)
#f)
(@apply
- (lambda (#{args\ 6518}#)
+ (lambda (#{args\ 4410}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 6506}#
+ #{p\ 4398}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i6517"))
+ #(ribcage #(args) #((top)) #("i4409"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile))
- #{args\ 6518}#)))
- #{tmp\ 6514}#)
- (let ((#{tmp\ 6519}#
+ #{args\ 4410}#)))
+ #{tmp\ 4406}#)
+ (let ((#{tmp\ 4411}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4402}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14850,46 +14822,46 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 6519}#
+ (if #{tmp\ 4411}#
(@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\ 4414}# #{q\ 4415}#)
+ (if (= #{lev\ 4399}# 0)
+ (#{quasiappend\ 4337}#
+ #{p\ 4414}#
+ (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#))
+ (#{quasicons\ 4336}#
+ (#{quasicons\ 4336}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i6520" "i6521"))
+ #("i4412" "i4413"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -14897,28 +14869,28 @@
#(ribcage
#(p q)
#((top) (top))
- #("i6520" "i6521"))
+ #("i4412" "i4413"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440" "i6441" "i6442" "i6443")))
+ #("i4332" "i4333" "i4334" "i4335")))
(hygiene guile)))
- (#{quasi\ 6447}#
- (list #{p\ 6522}#)
- (1- #{lev\ 6507}#)))
- (#{quasi\ 6447}# #{q\ 6523}# #{lev\ 6507}#))))
- #{tmp\ 6519}#)
- (let ((#{tmp\ 6524}#
+ (#{quasi\ 4339}#
+ (list #{p\ 4414}#)
+ (1- #{lev\ 4399}#)))
+ (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#))))
+ #{tmp\ 4411}#)
+ (let ((#{tmp\ 4416}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4402}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -14927,62 +14899,62 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 6524}#
+ (if (if #{tmp\ 4416}#
(@apply
- (lambda (#{args\ 6527}# #{q\ 6528}#)
- (= #{lev\ 6507}# 0))
- #{tmp\ 6524}#)
+ (lambda (#{args\ 4419}# #{q\ 4420}#)
+ (= #{lev\ 4399}# 0))
+ #{tmp\ 4416}#)
#f)
(@apply
- (lambda (#{args\ 6531}# #{q\ 6532}#)
+ (lambda (#{args\ 4423}# #{q\ 4424}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one
argument"
- #{p\ 6506}#
+ #{p\ 4398}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i6529" "i6530"))
+ #("i4421" "i4422"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
- #{args\ 6531}#)))
- #{tmp\ 6524}#)
- (let ((#{tmp\ 6533}#
+ #{args\ 4423}#)))
+ #{tmp\ 4416}#)
+ (let ((#{tmp\ 4425}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4402}#
'(#(free-id
#(syntax-object
quasiquote
@@ -14991,107 +14963,107 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile)))
any))))
- (if #{tmp\ 6533}#
+ (if #{tmp\ 4425}#
(@apply
- (lambda (#{p\ 6535}#)
- (#{quasicons\ 6444}#
+ (lambda (#{p\ 4427}#)
+ (#{quasicons\ 4336}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i6534"))
+ #(ribcage #(p) #((top)) #("i4426"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i6534"))
+ #(ribcage #(p) #((top)) #("i4426"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile)))
- (#{quasi\ 6447}#
- (list #{p\ 6535}#)
- (1+ #{lev\ 6507}#))))
- #{tmp\ 6533}#)
- (let ((#{tmp\ 6536}#
+ (#{quasi\ 4339}#
+ (list #{p\ 4427}#)
+ (1+ #{lev\ 4399}#))))
+ #{tmp\ 4425}#)
+ (let ((#{tmp\ 4428}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4402}#
'(any . any))))
- (if #{tmp\ 6536}#
+ (if #{tmp\ 4428}#
(@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\ 4431}# #{q\ 4432}#)
+ (#{quasicons\ 4336}#
+ (#{quasi\ 4339}#
+ #{p\ 4431}#
+ #{lev\ 4399}#)
+ (#{quasi\ 4339}#
+ #{q\ 4432}#
+ #{lev\ 4399}#)))
+ #{tmp\ 4428}#)
+ (let ((#{tmp\ 4433}#
($sc-dispatch
- #{tmp\ 6510}#
+ #{tmp\ 4402}#
'#(vector each-any))))
- (if #{tmp\ 6541}#
+ (if #{tmp\ 4433}#
(@apply
- (lambda (#{x\ 6543}#)
- (#{quasivector\ 6446}#
- (#{quasi\ 6447}#
- #{x\ 6543}#
- #{lev\ 6507}#)))
- #{tmp\ 6541}#)
- (let ((#{p\ 6546}# #{tmp\ 6510}#))
+ (lambda (#{x\ 4435}#)
+ (#{quasivector\ 4338}#
+ (#{quasi\ 4339}#
+ #{x\ 4435}#
+ #{lev\ 4399}#)))
+ #{tmp\ 4433}#)
+ (let ((#{p\ 4438}# #{tmp\ 4402}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i6545"))
+ #("i4437"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i6508" "i6509"))
+ #("i4400" "i4401"))
#(ribcage
#(quasicons
quasiappend
@@ -15101,223 +15073,223 @@
(top)
(top)
(top))
- #("i6440"
- "i6441"
- "i6442"
- "i6443")))
+ #("i4332"
+ "i4333"
+ "i4334"
+ "i4335")))
(hygiene guile))
- #{p\
6546}#))))))))))))))))))))
+ #{p\
4438}#))))))))))))))))))))
(begin
- (lambda (#{x\ 6547}#)
- (let ((#{tmp\ 6549}# #{x\ 6547}#))
- (let ((#{tmp\ 6550}#
- ($sc-dispatch #{tmp\ 6549}# (quote (any any)))))
- (if #{tmp\ 6550}#
+ (lambda (#{x\ 4439}#)
+ (let ((#{tmp\ 4441}# #{x\ 4439}#))
+ (let ((#{tmp\ 4442}#
+ ($sc-dispatch #{tmp\ 4441}# (quote (any any)))))
+ (if #{tmp\ 4442}#
(@apply
- (lambda (#{_\ 6553}# #{e\ 6554}#)
- (#{quasi\ 6447}# #{e\ 6554}# 0))
- #{tmp\ 6550}#)
+ (lambda (#{_\ 4445}# #{e\ 4446}#)
+ (#{quasi\ 4339}# #{e\ 4446}# 0))
+ #{tmp\ 4442}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6549}#)))))))))
+ #{tmp\ 4441}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 6555}#)
+ (lambda (#{x\ 4447}#)
(letrec*
- ((#{read-file\ 6558}#
- (lambda (#{fn\ 6559}# #{k\ 6560}#)
+ ((#{read-file\ 4450}#
+ (lambda (#{fn\ 4451}# #{k\ 4452}#)
(begin
- (let ((#{p\ 6564}# (open-input-file #{fn\ 6559}#)))
+ (let ((#{p\ 4456}# (open-input-file #{fn\ 4451}#)))
(letrec*
- ((#{f\ 6568}#
- (lambda (#{x\ 6569}# #{result\ 6570}#)
- (if (eof-object? #{x\ 6569}#)
+ ((#{f\ 4460}#
+ (lambda (#{x\ 4461}# #{result\ 4462}#)
+ (if (eof-object? #{x\ 4461}#)
(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\ 4456}#)
+ (reverse #{result\ 4462}#))
+ (#{f\ 4460}#
+ (read #{p\ 4456}#)
+ (cons (datum->syntax #{k\ 4452}# #{x\ 4461}#)
+ #{result\ 4462}#))))))
(begin
- (#{f\ 6568}# (read #{p\ 6564}#) (quote ())))))))))
+ (#{f\ 4460}# (read #{p\ 4456}#) (quote ())))))))))
(begin
- (let ((#{tmp\ 6571}# #{x\ 6555}#))
- (let ((#{tmp\ 6572}#
- ($sc-dispatch #{tmp\ 6571}# (quote (any any)))))
- (if #{tmp\ 6572}#
+ (let ((#{tmp\ 4463}# #{x\ 4447}#))
+ (let ((#{tmp\ 4464}#
+ ($sc-dispatch #{tmp\ 4463}# (quote (any any)))))
+ (if #{tmp\ 4464}#
(@apply
- (lambda (#{k\ 6575}# #{filename\ 6576}#)
+ (lambda (#{k\ 4467}# #{filename\ 4468}#)
(begin
- (let ((#{fn\ 6578}# (syntax->datum #{filename\ 6576}#)))
- (let ((#{tmp\ 6580}#
- (#{read-file\ 6558}#
- #{fn\ 6578}#
- #{filename\ 6576}#)))
- (let ((#{tmp\ 6581}#
+ (let ((#{fn\ 4470}# (syntax->datum #{filename\ 4468}#)))
+ (let ((#{tmp\ 4472}#
+ (#{read-file\ 4450}#
+ #{fn\ 4470}#
+ #{filename\ 4468}#)))
+ (let ((#{tmp\ 4473}#
($sc-dispatch
- #{tmp\ 6580}#
+ #{tmp\ 4472}#
'each-any)))
- (if #{tmp\ 6581}#
+ (if #{tmp\ 4473}#
(@apply
- (lambda (#{exp\ 6583}#)
+ (lambda (#{exp\ 4475}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i6582"))
+ #("i4474"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i6577"))
+ #("i4469"))
#(ribcage
#(k filename)
#((top) (top))
- #("i6573" "i6574"))
+ #("i4465" "i4466"))
#(ribcage
(read-file)
((top))
- ("i6557"))
+ ("i4449"))
#(ribcage
#(x)
#((top))
- #("i6556")))
+ #("i4448")))
(hygiene guile))
- #{exp\ 6583}#))
- #{tmp\ 6581}#)
+ #{exp\ 4475}#))
+ #{tmp\ 4473}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6580}#)))))))
- #{tmp\ 6572}#)
+ #{tmp\ 4472}#)))))))
+ #{tmp\ 4464}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6571}#)))))))))
+ #{tmp\ 4463}#)))))))))
(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\ 4477}#)
+ (let ((#{tmp\ 4479}# #{x\ 4477}#))
+ (let ((#{tmp\ 4480}#
+ ($sc-dispatch #{tmp\ 4479}# (quote (any any)))))
+ (if #{tmp\ 4480}#
(@apply
- (lambda (#{k\ 6591}# #{filename\ 6592}#)
+ (lambda (#{k\ 4483}# #{filename\ 4484}#)
(begin
- (let ((#{fn\ 6594}# (syntax->datum #{filename\ 6592}#)))
- (let ((#{tmp\ 6596}#
+ (let ((#{fn\ 4486}# (syntax->datum #{filename\ 4484}#)))
+ (let ((#{tmp\ 4488}#
(datum->syntax
- #{filename\ 6592}#
+ #{filename\ 4484}#
(begin
- (let ((#{t\ 6601}#
- (%search-load-path #{fn\ 6594}#)))
- (if #{t\ 6601}#
- #{t\ 6601}#
+ (let ((#{t\ 4493}#
+ (%search-load-path #{fn\ 4486}#)))
+ (if #{t\ 4493}#
+ #{t\ 4493}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 6585}#
- #{filename\ 6592}#)))))))
- (let ((#{fn\ 6598}# #{tmp\ 6596}#))
+ #{x\ 4477}#
+ #{filename\ 4484}#)))))))
+ (let ((#{fn\ 4490}# #{tmp\ 4488}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i6597"))
+ #(ribcage #(fn) #((top)) #("i4489"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i6593"))
+ #(ribcage #(fn) #((top)) #("i4485"))
#(ribcage
#(k filename)
#((top) (top))
- #("i6589" "i6590"))
+ #("i4481" "i4482"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6586")))
+ #(ribcage #(x) #((top)) #("i4478")))
(hygiene guile))
- #{fn\ 6598}#))))))
- #{tmp\ 6588}#)
+ #{fn\ 4490}#))))))
+ #{tmp\ 4480}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6587}#)))))))
+ #{tmp\ 4479}#)))))))
(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\ 4495}#)
+ (let ((#{tmp\ 4497}# #{x\ 4495}#))
+ (let ((#{tmp\ 4498}#
+ ($sc-dispatch #{tmp\ 4497}# (quote (any any)))))
+ (if #{tmp\ 4498}#
(@apply
- (lambda (#{_\ 6609}# #{e\ 6610}#)
+ (lambda (#{_\ 4501}# #{e\ 4502}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 6603}#))
- #{tmp\ 6606}#)
+ #{x\ 4495}#))
+ #{tmp\ 4498}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6605}#)))))))
+ #{tmp\ 4497}#)))))))
(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\ 4503}#)
+ (let ((#{tmp\ 4505}# #{x\ 4503}#))
+ (let ((#{tmp\ 4506}#
+ ($sc-dispatch #{tmp\ 4505}# (quote (any any)))))
+ (if #{tmp\ 4506}#
(@apply
- (lambda (#{_\ 6617}# #{e\ 6618}#)
+ (lambda (#{_\ 4509}# #{e\ 4510}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 6611}#))
- #{tmp\ 6614}#)
+ #{x\ 4503}#))
+ #{tmp\ 4506}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6613}#)))))))
+ #{tmp\ 4505}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 6619}#)
- (let ((#{tmp\ 6621}# #{x\ 6619}#))
- (let ((#{tmp\ 6622}#
+ (lambda (#{x\ 4511}#)
+ (let ((#{tmp\ 4513}# #{x\ 4511}#))
+ (let ((#{tmp\ 4514}#
($sc-dispatch
- #{tmp\ 6621}#
+ #{tmp\ 4513}#
'(any any any . each-any))))
- (if #{tmp\ 6622}#
+ (if #{tmp\ 4514}#
(@apply
- (lambda (#{_\ 6627}#
- #{e\ 6628}#
- #{m1\ 6629}#
- #{m2\ 6630}#)
- (let ((#{tmp\ 6632}#
+ (lambda (#{_\ 4519}#
+ #{e\ 4520}#
+ #{m1\ 4521}#
+ #{m2\ 4522}#)
+ (let ((#{tmp\ 4524}#
(letrec*
- ((#{f\ 6638}#
- (lambda (#{clause\ 6639}# #{clauses\ 6640}#)
- (if (null? #{clauses\ 6640}#)
- (let ((#{tmp\ 6642}# #{clause\ 6639}#))
- (let ((#{tmp\ 6643}#
+ ((#{f\ 4530}#
+ (lambda (#{clause\ 4531}# #{clauses\ 4532}#)
+ (if (null? #{clauses\ 4532}#)
+ (let ((#{tmp\ 4534}# #{clause\ 4531}#))
+ (let ((#{tmp\ 4535}#
($sc-dispatch
- #{tmp\ 6642}#
+ #{tmp\ 4534}#
'(#(free-id
#(syntax-object
else
@@ -15326,104 +15298,104 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 6643}#
+ (if #{tmp\ 4535}#
(@apply
- (lambda (#{e1\ 6646}# #{e2\ 6647}#)
+ (lambda (#{e1\ 4538}# #{e2\ 4539}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i6644" "i6645"))
+ #("i4536" "i4537"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
- (cons #{e1\ 6646}#
- #{e2\ 6647}#)))
- #{tmp\ 6643}#)
- (let ((#{tmp\ 6649}#
+ (cons #{e1\ 4538}#
+ #{e2\ 4539}#)))
+ #{tmp\ 4535}#)
+ (let ((#{tmp\ 4541}#
($sc-dispatch
- #{tmp\ 6642}#
+ #{tmp\ 4534}#
'(each-any any . each-any))))
- (if #{tmp\ 6649}#
+ (if #{tmp\ 4541}#
(@apply
- (lambda (#{k\ 6653}#
- #{e1\ 6654}#
- #{e2\ 6655}#)
+ (lambda (#{k\ 4545}#
+ #{e1\ 4546}#
+ #{e2\ 4547}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4542"
+ "i4543"
+ "i4544"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15433,9 +15405,9 @@
#((top)
(top)
(top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4542"
+ "i4543"
+ "i4544"))
#(ribcage
()
()
@@ -15447,19 +15419,19 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage
()
()
@@ -15467,7 +15439,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
'#(syntax-object
t
@@ -15477,9 +15449,9 @@
#((top)
(top)
(top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4542"
+ "i4543"
+ "i4544"))
#(ribcage
()
()
@@ -15491,19 +15463,19 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage
()
()
@@ -15511,7 +15483,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15523,9 +15495,9 @@
#((top)
(top)
(top))
-
#("i6650"
-
"i6651"
-
"i6652"))
+
#("i4542"
+
"i4543"
+
"i4544"))
#(ribcage
()
()
@@ -15537,9 +15509,9 @@
#((top)
(top)
(top))
-
#("i6635"
-
"i6636"
-
"i6637"))
+
#("i4527"
+
"i4528"
+
"i4529"))
#(ribcage
#(_
e
@@ -15549,10 +15521,10 @@
(top)
(top)
(top))
-
#("i6623"
-
"i6624"
-
"i6625"
-
"i6626"))
+
#("i4515"
+
"i4516"
+
"i4517"
+
"i4518"))
#(ribcage
()
()
@@ -15560,10 +15532,10 @@
#(ribcage
#(x)
#((top))
-
#("i6620")))
+
#("i4512")))
(hygiene
guile))
- #{k\ 6653}#))
+ #{k\ 4545}#))
(cons '#(syntax-object
begin
((top)
@@ -15572,9 +15544,9 @@
#((top)
(top)
(top))
- #("i6650"
- "i6651"
- "i6652"))
+ #("i4542"
+ "i4543"
+ "i4544"))
#(ribcage
()
()
@@ -15586,19 +15558,19 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage
()
()
@@ -15606,67 +15578,67 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
- (cons #{e1\ 6654}#
- #{e2\
6655}#))))
- #{tmp\ 6649}#)
- (let ((#{_\ 6659}# #{tmp\ 6642}#))
+ (cons #{e1\ 4546}#
+ #{e2\
4547}#))))
+ #{tmp\ 4541}#)
+ (let ((#{_\ 4551}# #{tmp\ 4534}#))
(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\ 4511}#
+ #{clause\ 4531}#)))))))
+ (let ((#{tmp\ 4553}#
+ (#{f\ 4530}#
+ (car #{clauses\ 4532}#)
+ (cdr #{clauses\ 4532}#))))
+ (let ((#{rest\ 4555}# #{tmp\ 4553}#))
+ (let ((#{tmp\ 4556}# #{clause\ 4531}#))
+ (let ((#{tmp\ 4557}#
($sc-dispatch
- #{tmp\ 6664}#
+ #{tmp\ 4556}#
'(each-any any . each-any))))
- (if #{tmp\ 6665}#
+ (if #{tmp\ 4557}#
(@apply
- (lambda (#{k\ 6669}#
- #{e1\ 6670}#
- #{e2\ 6671}#)
+ (lambda (#{k\ 4561}#
+ #{e1\ 4562}#
+ #{e2\ 4563}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4558"
+ "i4559"
+ "i4560"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4554"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -15676,13 +15648,13 @@
#((top)
(top)
(top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4558"
+ "i4559"
+ "i4560"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4554"))
#(ribcage
()
()
@@ -15694,19 +15666,19 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage
()
()
@@ -15714,7 +15686,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
'#(syntax-object
t
@@ -15724,13 +15696,13 @@
#((top)
(top)
(top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4558"
+ "i4559"
+ "i4560"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4554"))
#(ribcage
()
()
@@ -15742,19 +15714,19 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage
()
()
@@ -15762,7 +15734,7 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
(list
'#(syntax-object
quote
@@ -15774,13 +15746,13 @@
#((top)
(top)
(top))
-
#("i6666"
-
"i6667"
-
"i6668"))
+
#("i4558"
+
"i4559"
+
"i4560"))
#(ribcage
#(rest)
#((top))
-
#("i6662"))
+
#("i4554"))
#(ribcage
()
()
@@ -15792,9 +15764,9 @@
#((top)
(top)
(top))
-
#("i6635"
-
"i6636"
-
"i6637"))
+
#("i4527"
+
"i4528"
+
"i4529"))
#(ribcage
#(_
e
@@ -15804,10 +15776,10 @@
(top)
(top)
(top))
-
#("i6623"
-
"i6624"
-
"i6625"
-
"i6626"))
+
#("i4515"
+
"i4516"
+
"i4517"
+
"i4518"))
#(ribcage
()
()
@@ -15815,10 +15787,10 @@
#(ribcage
#(x)
#((top))
-
#("i6620")))
+
#("i4512")))
(hygiene
guile))
- #{k\ 6669}#))
+ #{k\ 4561}#))
(cons '#(syntax-object
begin
((top)
@@ -15827,13 +15799,13 @@
#((top)
(top)
(top))
- #("i6666"
- "i6667"
- "i6668"))
+ #("i4558"
+ "i4559"
+ "i4560"))
#(ribcage
#(rest)
#((top))
- #("i6662"))
+ #("i4554"))
#(ribcage
()
()
@@ -15845,19 +15817,19 @@
#((top)
(top)
(top))
- #("i6635"
- "i6636"
- "i6637"))
+ #("i4527"
+ "i4528"
+ "i4529"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i6623"
- "i6624"
- "i6625"
- "i6626"))
+ #("i4515"
+ "i4516"
+ "i4517"
+ "i4518"))
#(ribcage
()
()
@@ -15865,30 +15837,30 @@
#(ribcage
#(x)
#((top))
- #("i6620")))
+ #("i4512")))
(hygiene guile))
- (cons #{e1\ 6670}#
- #{e2\ 6671}#))
- #{rest\ 6663}#))
- #{tmp\ 6665}#)
- (let ((#{_\ 6675}# #{tmp\ 6664}#))
+ (cons #{e1\ 4562}#
+ #{e2\ 4563}#))
+ #{rest\ 4555}#))
+ #{tmp\ 4557}#)
+ (let ((#{_\ 4567}# #{tmp\ 4556}#))
(syntax-violation
'case
"bad clause"
- #{x\ 6619}#
- #{clause\ 6639}#)))))))))))
- (begin (#{f\ 6638}# #{m1\ 6629}# #{m2\ 6630}#)))))
- (let ((#{body\ 6634}# #{tmp\ 6632}#))
+ #{x\ 4511}#
+ #{clause\ 4531}#)))))))))))
+ (begin (#{f\ 4530}# #{m1\ 4521}# #{m2\ 4522}#)))))
+ (let ((#{body\ 4526}# #{tmp\ 4524}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i6633"))
+ #(ribcage #(body) #((top)) #("i4525"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i6623" "i6624" "i6625" "i6626"))
+ #("i4515" "i4516" "i4517" "i4518"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6620")))
+ #(ribcage #(x) #((top)) #("i4512")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -15896,59 +15868,59 @@
#(ribcage
#(body)
#((top))
- #("i6633"))
+ #("i4525"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i6623" "i6624" "i6625" "i6626"))
+ #("i4515" "i4516" "i4517" "i4518"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6620")))
+ #(ribcage #(x) #((top)) #("i4512")))
(hygiene guile))
- #{e\ 6628}#))
- #{body\ 6634}#))))
- #{tmp\ 6622}#)
+ #{e\ 4520}#))
+ #{body\ 4526}#))))
+ #{tmp\ 4514}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6621}#)))))))
+ #{tmp\ 4513}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 6676}#)
- (if (procedure? #{proc\ 6676}#)
+ (lambda (#{proc\ 4568}#)
+ (if (procedure? #{proc\ 4568}#)
(begin
(letrec*
- ((#{trans\ 6679}#
- (lambda (#{x\ 6680}#)
- (#{proc\ 6676}# #{x\ 6680}#))))
+ ((#{trans\ 4571}#
+ (lambda (#{x\ 4572}#)
+ (#{proc\ 4568}# #{x\ 4572}#))))
(begin
(set-procedure-property!
- #{trans\ 6679}#
+ #{trans\ 4571}#
'variable-transformer
#t)
- #{trans\ 6679}#)))
+ #{trans\ 4571}#)))
(error "variable transformer not a procedure"
- #{proc\ 6676}#))))
+ #{proc\ 4568}#))))
(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\ 4574}#)
+ (let ((#{tmp\ 4576}# #{x\ 4574}#))
+ (let ((#{tmp\ 4577}#
+ ($sc-dispatch #{tmp\ 4576}# (quote (any any)))))
+ (if #{tmp\ 4577}#
(@apply
- (lambda (#{_\ 6688}# #{e\ 6689}#)
+ (lambda (#{_\ 4580}# #{e\ 4581}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
'(#(syntax-object
x
@@ -15956,9 +15928,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -15966,9 +15938,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
.
#(syntax-object
@@ -15977,9 +15949,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -15987,9 +15959,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
'#(syntax-object
x
@@ -15997,9 +15969,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -16008,9 +15980,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -16018,9 +15990,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
(#(syntax-object
syntax
@@ -16028,9 +16000,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
#(syntax-object
id
@@ -16038,9 +16010,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16048,27 +16020,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
- #{e\ 6689}#))
- (list (cons #{_\ 6688}#
+ #{e\ 4581}#))
+ (list (cons #{_\ 4580}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
#(syntax-object
...
@@ -16076,12 +16048,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16089,26 +16061,26 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
- (cons #{e\ 6689}#
+ (cons #{e\ 4581}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
#(syntax-object
...
@@ -16116,62 +16088,62 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i6686" "i6687"))
+ #("i4578" "i4579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile)))))))))
- #{tmp\ 6685}#)
- (let ((#{tmp\ 6690}#
+ #{tmp\ 4577}#)
+ (let ((#{tmp\ 4582}#
($sc-dispatch
- #{tmp\ 6684}#
+ #{tmp\ 4576}#
'(any (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp\ 6690}#
+ (if (if #{tmp\ 4582}#
(@apply
- (lambda (#{_\ 6697}#
- #{id\ 6698}#
- #{exp1\ 6699}#
- #{var\ 6700}#
- #{val\ 6701}#
- #{exp2\ 6702}#)
- (if (identifier? #{id\ 6698}#)
- (identifier? #{var\ 6700}#)
+ (lambda (#{_\ 4589}#
+ #{id\ 4590}#
+ #{exp1\ 4591}#
+ #{var\ 4592}#
+ #{val\ 4593}#
+ #{exp2\ 4594}#)
+ (if (identifier? #{id\ 4590}#)
+ (identifier? #{var\ 4592}#)
#f))
- #{tmp\ 6690}#)
+ #{tmp\ 4582}#)
#f)
(@apply
- (lambda (#{_\ 6711}#
- #{id\ 6712}#
- #{exp1\ 6713}#
- #{var\ 6714}#
- #{val\ 6715}#
- #{exp2\ 6716}#)
+ (lambda (#{_\ 4603}#
+ #{id\ 4604}#
+ #{exp1\ 4605}#
+ #{var\ 4606}#
+ #{val\ 4607}#
+ #{exp2\ 4608}#)
(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"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -16179,14 +16151,14 @@
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
'(#(syntax-object
x
@@ -16194,14 +16166,14 @@
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -16209,14 +16181,14 @@
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
.
#(syntax-object
@@ -16225,14 +16197,14 @@
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -16245,14 +16217,14 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
'#(syntax-object
x
@@ -16265,14 +16237,14 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile))
'(#(syntax-object
set!
@@ -16285,14 +16257,14 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6683")))
+ #(ribcage #(x) #((top)) #("i4575")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -16310,20 +16282,20 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
- #{var\ 6714}#
- #{val\ 6715}#)
+ #{var\ 4606}#
+ #{val\ 4607}#)
(list '#(syntax-object
syntax
((top)
@@ -16340,20 +16312,20 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
- #{exp2\ 6716}#))
- (list (cons #{id\ 6712}#
+ #{exp2\ 4608}#))
+ (list (cons #{id\ 4604}#
'(#(syntax-object
x
((top)
@@ -16370,17 +16342,17 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
#(syntax-object
...
@@ -16398,17 +16370,17 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16426,19 +16398,19 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
- (cons #{exp1\ 6713}#
+ (cons #{exp1\ 4605}#
'(#(syntax-object
x
((top)
@@ -16455,12 +16427,12 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage
()
()
@@ -16468,7 +16440,7 @@
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
#(syntax-object
...
@@ -16486,12 +16458,12 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage
()
()
@@ -16499,10 +16471,10 @@
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene
guile))))))
- (list #{id\ 6712}#
+ (list #{id\ 4604}#
(list '#(syntax-object
identifier?
((top)
@@ -16519,17 +16491,17 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -16547,19 +16519,19 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
- #{id\ 6712}#))
+ #{id\ 4604}#))
(list '#(syntax-object
syntax
((top)
@@ -16576,73 +16548,73 @@
(top)
(top)
(top))
- #("i6705"
- "i6706"
- "i6707"
- "i6708"
- "i6709"
- "i6710"))
+ #("i4597"
+ "i4598"
+ "i4599"
+ "i4600"
+ "i4601"
+ "i4602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i6683")))
+ #("i4575")))
(hygiene guile))
- #{exp1\ 6713}#))))))
- #{tmp\ 6690}#)
+ #{exp1\ 4605}#))))))
+ #{tmp\ 4582}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6684}#)))))))))
+ #{tmp\ 4576}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 6717}#)
- (let ((#{tmp\ 6719}# #{x\ 6717}#))
- (let ((#{tmp\ 6720}#
+ (lambda (#{x\ 4609}#)
+ (let ((#{tmp\ 4611}# #{x\ 4609}#))
+ (let ((#{tmp\ 4612}#
($sc-dispatch
- #{tmp\ 6719}#
+ #{tmp\ 4611}#
'(any (any . any) any . each-any))))
- (if #{tmp\ 6720}#
+ (if #{tmp\ 4612}#
(@apply
- (lambda (#{_\ 6726}#
- #{id\ 6727}#
- #{args\ 6728}#
- #{b0\ 6729}#
- #{b1\ 6730}#)
+ (lambda (#{_\ 4618}#
+ #{id\ 4619}#
+ #{args\ 4620}#
+ #{b0\ 4621}#
+ #{b1\ 4622}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i6721" "i6722" "i6723" "i6724" "i6725"))
+ #("i4613" "i4614" "i4615" "i4616" "i4617"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4610")))
(hygiene guile))
- #{id\ 6727}#
+ #{id\ 4619}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i6721" "i6722" "i6723" "i6724" "i6725"))
+ #("i4613" "i4614" "i4615" "i4616" "i4617"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4610")))
(hygiene guile))
- (cons #{args\ 6728}#
- (cons #{b0\ 6729}# #{b1\ 6730}#)))))
- #{tmp\ 6720}#)
- (let ((#{tmp\ 6732}#
+ (cons #{args\ 4620}#
+ (cons #{b0\ 4621}# #{b1\ 4622}#)))))
+ #{tmp\ 4612}#)
+ (let ((#{tmp\ 4624}#
($sc-dispatch
- #{tmp\ 6719}#
+ #{tmp\ 4611}#
'(any any any))))
- (if (if #{tmp\ 6732}#
+ (if (if #{tmp\ 4624}#
(@apply
- (lambda (#{_\ 6736}# #{id\ 6737}# #{val\ 6738}#)
+ (lambda (#{_\ 4628}# #{id\ 4629}# #{val\ 4630}#)
(identifier?
'#(syntax-object
x
@@ -16650,29 +16622,29 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i6733" "i6734" "i6735"))
+ #("i4625" "i4626" "i4627"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4610")))
(hygiene guile))))
- #{tmp\ 6732}#)
+ #{tmp\ 4624}#)
#f)
(@apply
- (lambda (#{_\ 6742}# #{id\ 6743}# #{val\ 6744}#)
+ (lambda (#{_\ 4634}# #{id\ 4635}# #{val\ 4636}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i6739" "i6740" "i6741"))
+ #("i4631" "i4632" "i4633"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i6718")))
+ #(ribcage #(x) #((top)) #("i4610")))
(hygiene guile))
- #{id\ 6743}#
- #{val\ 6744}#))
- #{tmp\ 6732}#)
+ #{id\ 4635}#
+ #{val\ 4636}#))
+ #{tmp\ 4624}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 6719}#)))))))))
+ #{tmp\ 4611}#)))))))))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-11-128-g233b5d8,
Andy Wingo <=