summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-08-21 00:37:39 +0200
committerAndy Wingo <wingo@pobox.com>2009-12-01 21:00:23 +0100
commit81b30a35f706105767a0ac1391609147cb7c9383 (patch)
treea6370933ce70fcecd09a828eece32b406782cbd6
parent8a30946f7fd717f3e8c52e99c8d24c4fb4e5f1af (diff)
downloadguile-81b30a35f706105767a0ac1391609147cb7c9383.tar.gz
expand out named let to letrec in the eval case
* module/ice-9/psyntax.scm: In the eval case, expand out named let to letrec. * module/ice-9/psyntax-pp.scm: Regenerated.
-rw-r--r--module/ice-9/psyntax-pp.scm12695
-rw-r--r--module/ice-9/psyntax.scm4
2 files changed, 6334 insertions, 6365 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index ec655ac2c..7ebc3821e 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,596 +1,604 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 31}#
- (lambda (#{f\ 69}# #{first\ 70}# . #{rest\ 71}#)
- (let ((#{t\ 72}# (null? #{first\ 70}#)))
- (if #{t\ 72}#
- #{t\ 72}#
- (if (null? #{rest\ 71}#)
- (letrec ((#{andmap\ 73}#
- (lambda (#{first\ 74}#)
- (let ((#{x\ 75}# (car #{first\ 74}#))
- (#{first\ 76}# (cdr #{first\ 74}#)))
- (if (null? #{first\ 76}#)
- (#{f\ 69}# #{x\ 75}#)
- (if (#{f\ 69}# #{x\ 75}#)
- (#{andmap\ 73}# #{first\ 76}#)
+(letrec ((#{and-map*\ 2581}#
+ (lambda (#{f\ 2619}# #{first\ 2620}# . #{rest\ 2621}#)
+ (let ((#{t\ 2622}# (null? #{first\ 2620}#)))
+ (if #{t\ 2622}#
+ #{t\ 2622}#
+ (if (null? #{rest\ 2621}#)
+ (letrec ((#{andmap\ 2623}#
+ (lambda (#{first\ 2624}#)
+ (let ((#{x\ 2625}# (car #{first\ 2624}#))
+ (#{first\ 2626}# (cdr #{first\ 2624}#)))
+ (if (null? #{first\ 2626}#)
+ (#{f\ 2619}# #{x\ 2625}#)
+ (if (#{f\ 2619}# #{x\ 2625}#)
+ (#{andmap\ 2623}# #{first\ 2626}#)
#f))))))
- (#{andmap\ 73}# #{first\ 70}#))
- (letrec ((#{andmap\ 77}#
- (lambda (#{first\ 78}# #{rest\ 79}#)
- (let ((#{x\ 80}# (car #{first\ 78}#))
- (#{xr\ 81}# (map car #{rest\ 79}#))
- (#{first\ 82}# (cdr #{first\ 78}#))
- (#{rest\ 83}# (map cdr #{rest\ 79}#)))
- (if (null? #{first\ 82}#)
- (apply #{f\ 69}#
- (cons #{x\ 80}# #{xr\ 81}#))
- (if (apply #{f\ 69}#
- (cons #{x\ 80}# #{xr\ 81}#))
- (#{andmap\ 77}#
- #{first\ 82}#
- #{rest\ 83}#)
+ (#{andmap\ 2623}# #{first\ 2620}#))
+ (letrec ((#{andmap\ 2627}#
+ (lambda (#{first\ 2628}# #{rest\ 2629}#)
+ (let ((#{x\ 2630}# (car #{first\ 2628}#))
+ (#{xr\ 2631}# (map car #{rest\ 2629}#))
+ (#{first\ 2632}# (cdr #{first\ 2628}#))
+ (#{rest\ 2633}#
+ (map cdr #{rest\ 2629}#)))
+ (if (null? #{first\ 2632}#)
+ (apply #{f\ 2619}#
+ (cons #{x\ 2630}# #{xr\ 2631}#))
+ (if (apply #{f\ 2619}#
+ (cons #{x\ 2630}# #{xr\ 2631}#))
+ (#{andmap\ 2627}#
+ #{first\ 2632}#
+ #{rest\ 2633}#)
#f))))))
- (#{andmap\ 77}# #{first\ 70}# #{rest\ 71}#))))))))
- (letrec ((#{lambda-var-list\ 182}#
- (lambda (#{vars\ 306}#)
- (letrec ((#{lvl\ 307}#
- (lambda (#{vars\ 308}# #{ls\ 309}# #{w\ 310}#)
- (if (pair? #{vars\ 308}#)
- (#{lvl\ 307}#
- (cdr #{vars\ 308}#)
- (cons (#{wrap\ 159}#
- (car #{vars\ 308}#)
- #{w\ 310}#
+ (#{andmap\ 2627}# #{first\ 2620}# #{rest\ 2621}#))))))))
+ (letrec ((#{lambda-var-list\ 2732}#
+ (lambda (#{vars\ 2856}#)
+ (letrec ((#{lvl\ 2857}#
+ (lambda (#{vars\ 2858}# #{ls\ 2859}# #{w\ 2860}#)
+ (if (pair? #{vars\ 2858}#)
+ (#{lvl\ 2857}#
+ (cdr #{vars\ 2858}#)
+ (cons (#{wrap\ 2709}#
+ (car #{vars\ 2858}#)
+ #{w\ 2860}#
#f)
- #{ls\ 309}#)
- #{w\ 310}#)
- (if (#{id?\ 131}# #{vars\ 308}#)
- (cons (#{wrap\ 159}#
- #{vars\ 308}#
- #{w\ 310}#
+ #{ls\ 2859}#)
+ #{w\ 2860}#)
+ (if (#{id?\ 2681}# #{vars\ 2858}#)
+ (cons (#{wrap\ 2709}#
+ #{vars\ 2858}#
+ #{w\ 2860}#
#f)
- #{ls\ 309}#)
- (if (null? #{vars\ 308}#)
- #{ls\ 309}#
- (if (#{syntax-object?\ 115}# #{vars\ 308}#)
- (#{lvl\ 307}#
- (#{syntax-object-expression\ 116}#
- #{vars\ 308}#)
- #{ls\ 309}#
- (#{join-wraps\ 150}#
- #{w\ 310}#
- (#{syntax-object-wrap\ 117}#
- #{vars\ 308}#)))
- (cons #{vars\ 308}# #{ls\ 309}#))))))))
- (#{lvl\ 307}#
- #{vars\ 306}#
+ #{ls\ 2859}#)
+ (if (null? #{vars\ 2858}#)
+ #{ls\ 2859}#
+ (if (#{syntax-object?\ 2665}# #{vars\ 2858}#)
+ (#{lvl\ 2857}#
+ (#{syntax-object-expression\ 2666}#
+ #{vars\ 2858}#)
+ #{ls\ 2859}#
+ (#{join-wraps\ 2700}#
+ #{w\ 2860}#
+ (#{syntax-object-wrap\ 2667}#
+ #{vars\ 2858}#)))
+ (cons #{vars\ 2858}# #{ls\ 2859}#))))))))
+ (#{lvl\ 2857}#
+ #{vars\ 2856}#
'()
'(())))))
- (#{gen-var\ 181}#
- (lambda (#{id\ 311}#)
- (let ((#{id\ 312}#
- (if (#{syntax-object?\ 115}# #{id\ 311}#)
- (#{syntax-object-expression\ 116}# #{id\ 311}#)
- #{id\ 311}#)))
+ (#{gen-var\ 2731}#
+ (lambda (#{id\ 2861}#)
+ (let ((#{id\ 2862}#
+ (if (#{syntax-object?\ 2665}# #{id\ 2861}#)
+ (#{syntax-object-expression\ 2666}# #{id\ 2861}#)
+ #{id\ 2861}#)))
(gensym
- (string-append (symbol->string #{id\ 312}#) " ")))))
- (#{strip\ 180}#
- (lambda (#{x\ 313}# #{w\ 314}#)
+ (string-append (symbol->string #{id\ 2862}#) " ")))))
+ (#{strip\ 2730}#
+ (lambda (#{x\ 2863}# #{w\ 2864}#)
(if (memq 'top
- (#{wrap-marks\ 134}# #{w\ 314}#))
- #{x\ 313}#
- (letrec ((#{f\ 315}# (lambda (#{x\ 316}#)
- (if (#{syntax-object?\ 115}#
- #{x\ 316}#)
- (#{strip\ 180}#
- (#{syntax-object-expression\ 116}#
- #{x\ 316}#)
- (#{syntax-object-wrap\ 117}#
- #{x\ 316}#))
- (if (pair? #{x\ 316}#)
- (let ((#{a\ 317}# (#{f\ 315}# (car #{x\ 316}#)))
- (#{d\ 318}# (#{f\ 315}# (cdr #{x\ 316}#))))
- (if (if (eq? #{a\ 317}#
- (car #{x\ 316}#))
- (eq? #{d\ 318}#
- (cdr #{x\ 316}#))
- #f)
- #{x\ 316}#
- (cons #{a\ 317}# #{d\ 318}#)))
- (if (vector? #{x\ 316}#)
- (let ((#{old\ 319}#
- (vector->list
- #{x\ 316}#)))
- (let ((#{new\ 320}#
- (map #{f\ 315}#
- #{old\ 319}#)))
- (if (#{and-map*\ 31}#
- eq?
- #{old\ 319}#
- #{new\ 320}#)
- #{x\ 316}#
- (list->vector
- #{new\ 320}#))))
- #{x\ 316}#))))))
- (#{f\ 315}# #{x\ 313}#)))))
- (#{chi-lambda-case\ 179}#
- (lambda (#{e\ 321}#
- #{r\ 322}#
- #{w\ 323}#
- #{s\ 324}#
- #{mod\ 325}#
- #{get-formals\ 326}#
- #{clauses\ 327}#)
- (letrec ((#{expand-body\ 331}#
- (lambda (#{req\ 332}#
- #{opt\ 333}#
- #{rest\ 334}#
- #{kw\ 335}#
- #{body\ 336}#
- #{vars\ 337}#
- #{r*\ 338}#
- #{w*\ 339}#
- #{inits\ 340}#)
- ((lambda (#{tmp\ 341}#)
- ((lambda (#{tmp\ 342}#)
- (if (if #{tmp\ 342}#
- (apply (lambda (#{docstring\ 343}#
- #{e1\ 344}#
- #{e2\ 345}#)
+ (#{wrap-marks\ 2684}# #{w\ 2864}#))
+ #{x\ 2863}#
+ (letrec ((#{f\ 2865}#
+ (lambda (#{x\ 2866}#)
+ (if (#{syntax-object?\ 2665}# #{x\ 2866}#)
+ (#{strip\ 2730}#
+ (#{syntax-object-expression\ 2666}#
+ #{x\ 2866}#)
+ (#{syntax-object-wrap\ 2667}# #{x\ 2866}#))
+ (if (pair? #{x\ 2866}#)
+ (let ((#{a\ 2867}#
+ (#{f\ 2865}# (car #{x\ 2866}#)))
+ (#{d\ 2868}#
+ (#{f\ 2865}# (cdr #{x\ 2866}#))))
+ (if (if (eq? #{a\ 2867}# (car #{x\ 2866}#))
+ (eq? #{d\ 2868}# (cdr #{x\ 2866}#))
+ #f)
+ #{x\ 2866}#
+ (cons #{a\ 2867}# #{d\ 2868}#)))
+ (if (vector? #{x\ 2866}#)
+ (let ((#{old\ 2869}#
+ (vector->list #{x\ 2866}#)))
+ (let ((#{new\ 2870}#
+ (map #{f\ 2865}# #{old\ 2869}#)))
+ (if (#{and-map*\ 2581}#
+ eq?
+ #{old\ 2869}#
+ #{new\ 2870}#)
+ #{x\ 2866}#
+ (list->vector #{new\ 2870}#))))
+ #{x\ 2866}#))))))
+ (#{f\ 2865}# #{x\ 2863}#)))))
+ (#{chi-lambda-case\ 2729}#
+ (lambda (#{e\ 2871}#
+ #{r\ 2872}#
+ #{w\ 2873}#
+ #{s\ 2874}#
+ #{mod\ 2875}#
+ #{get-formals\ 2876}#
+ #{clauses\ 2877}#)
+ (letrec ((#{expand-body\ 2881}#
+ (lambda (#{req\ 2882}#
+ #{opt\ 2883}#
+ #{rest\ 2884}#
+ #{kw\ 2885}#
+ #{body\ 2886}#
+ #{vars\ 2887}#
+ #{r*\ 2888}#
+ #{w*\ 2889}#
+ #{inits\ 2890}#)
+ ((lambda (#{tmp\ 2891}#)
+ ((lambda (#{tmp\ 2892}#)
+ (if (if #{tmp\ 2892}#
+ (apply (lambda (#{docstring\ 2893}#
+ #{e1\ 2894}#
+ #{e2\ 2895}#)
(string?
(syntax->datum
- #{docstring\ 343}#)))
- #{tmp\ 342}#)
+ #{docstring\ 2893}#)))
+ #{tmp\ 2892}#)
#f)
- (apply (lambda (#{docstring\ 346}#
- #{e1\ 347}#
- #{e2\ 348}#)
+ (apply (lambda (#{docstring\ 2896}#
+ #{e1\ 2897}#
+ #{e2\ 2898}#)
(values
(syntax->datum
- #{docstring\ 346}#)
- #{req\ 332}#
- #{opt\ 333}#
- #{rest\ 334}#
- #{kw\ 335}#
- #{inits\ 340}#
- #{vars\ 337}#
- (#{chi-body\ 171}#
- (cons #{e1\ 347}# #{e2\ 348}#)
- (#{source-wrap\ 160}#
- #{e\ 321}#
- #{w\ 323}#
- #{s\ 324}#
- #{mod\ 325}#)
- #{r*\ 338}#
- #{w*\ 339}#
- #{mod\ 325}#)))
- #{tmp\ 342}#)
- ((lambda (#{tmp\ 350}#)
- (if #{tmp\ 350}#
- (apply (lambda (#{e1\ 351}#
- #{e2\ 352}#)
+ #{docstring\ 2896}#)
+ #{req\ 2882}#
+ #{opt\ 2883}#
+ #{rest\ 2884}#
+ #{kw\ 2885}#
+ #{inits\ 2890}#
+ #{vars\ 2887}#
+ (#{chi-body\ 2721}#
+ (cons #{e1\ 2897}#
+ #{e2\ 2898}#)
+ (#{source-wrap\ 2710}#
+ #{e\ 2871}#
+ #{w\ 2873}#
+ #{s\ 2874}#
+ #{mod\ 2875}#)
+ #{r*\ 2888}#
+ #{w*\ 2889}#
+ #{mod\ 2875}#)))
+ #{tmp\ 2892}#)
+ ((lambda (#{tmp\ 2900}#)
+ (if #{tmp\ 2900}#
+ (apply (lambda (#{e1\ 2901}#
+ #{e2\ 2902}#)
(values
#f
- #{req\ 332}#
- #{opt\ 333}#
- #{rest\ 334}#
- #{kw\ 335}#
- #{inits\ 340}#
- #{vars\ 337}#
- (#{chi-body\ 171}#
- (cons #{e1\ 351}#
- #{e2\ 352}#)
- (#{source-wrap\ 160}#
- #{e\ 321}#
- #{w\ 323}#
- #{s\ 324}#
- #{mod\ 325}#)
- #{r*\ 338}#
- #{w*\ 339}#
- #{mod\ 325}#)))
- #{tmp\ 350}#)
+ #{req\ 2882}#
+ #{opt\ 2883}#
+ #{rest\ 2884}#
+ #{kw\ 2885}#
+ #{inits\ 2890}#
+ #{vars\ 2887}#
+ (#{chi-body\ 2721}#
+ (cons #{e1\ 2901}#
+ #{e2\ 2902}#)
+ (#{source-wrap\ 2710}#
+ #{e\ 2871}#
+ #{w\ 2873}#
+ #{s\ 2874}#
+ #{mod\ 2875}#)
+ #{r*\ 2888}#
+ #{w*\ 2889}#
+ #{mod\ 2875}#)))
+ #{tmp\ 2900}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 341}#)))
+ #{tmp\ 2891}#)))
($sc-dispatch
- #{tmp\ 341}#
+ #{tmp\ 2891}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 341}#
+ #{tmp\ 2891}#
'(any any . each-any))))
- #{body\ 336}#)))
- (#{expand-kw\ 330}#
- (lambda (#{req\ 354}#
- #{opt\ 355}#
- #{rest\ 356}#
- #{kw\ 357}#
- #{body\ 358}#
- #{vars\ 359}#
- #{r*\ 360}#
- #{w*\ 361}#
- #{aok\ 362}#
- #{out\ 363}#
- #{inits\ 364}#)
- (if (pair? #{kw\ 357}#)
- ((lambda (#{tmp\ 365}#)
- ((lambda (#{tmp\ 366}#)
- (if #{tmp\ 366}#
- (apply (lambda (#{k\ 367}#
- #{id\ 368}#
- #{i\ 369}#)
- (let ((#{v\ 370}# (#{gen-var\ 181}#
- #{id\ 368}#)))
- (let ((#{l\ 371}# (#{gen-labels\ 137}#
- (list #{v\ 370}#))))
- (let ((#{r**\ 372}#
- (#{extend-var-env\ 126}#
- #{l\ 371}#
- (list #{v\ 370}#)
- #{r*\ 360}#)))
- (let ((#{w**\ 373}#
- (#{make-binding-wrap\ 148}#
- (list #{id\ 368}#)
- #{l\ 371}#
- #{w*\ 361}#)))
- (#{expand-kw\ 330}#
- #{req\ 354}#
- #{opt\ 355}#
- #{rest\ 356}#
- (cdr #{kw\ 357}#)
- #{body\ 358}#
- (cons #{v\ 370}#
- #{vars\ 359}#)
- #{r**\ 372}#
- #{w**\ 373}#
- #{aok\ 362}#
+ #{body\ 2886}#)))
+ (#{expand-kw\ 2880}#
+ (lambda (#{req\ 2904}#
+ #{opt\ 2905}#
+ #{rest\ 2906}#
+ #{kw\ 2907}#
+ #{body\ 2908}#
+ #{vars\ 2909}#
+ #{r*\ 2910}#
+ #{w*\ 2911}#
+ #{aok\ 2912}#
+ #{out\ 2913}#
+ #{inits\ 2914}#)
+ (if (pair? #{kw\ 2907}#)
+ ((lambda (#{tmp\ 2915}#)
+ ((lambda (#{tmp\ 2916}#)
+ (if #{tmp\ 2916}#
+ (apply (lambda (#{k\ 2917}#
+ #{id\ 2918}#
+ #{i\ 2919}#)
+ (let ((#{v\ 2920}#
+ (#{gen-var\ 2731}#
+ #{id\ 2918}#)))
+ (let ((#{l\ 2921}#
+ (#{gen-labels\ 2687}#
+ (list #{v\ 2920}#))))
+ (let ((#{r**\ 2922}#
+ (#{extend-var-env\ 2676}#
+ #{l\ 2921}#
+ (list #{v\ 2920}#)
+ #{r*\ 2910}#)))
+ (let ((#{w**\ 2923}#
+ (#{make-binding-wrap\ 2698}#
+ (list #{id\ 2918}#)
+ #{l\ 2921}#
+ #{w*\ 2911}#)))
+ (#{expand-kw\ 2880}#
+ #{req\ 2904}#
+ #{opt\ 2905}#
+ #{rest\ 2906}#
+ (cdr #{kw\ 2907}#)
+ #{body\ 2908}#
+ (cons #{v\ 2920}#
+ #{vars\ 2909}#)
+ #{r**\ 2922}#
+ #{w**\ 2923}#
+ #{aok\ 2912}#
(cons (list (syntax->datum
- #{k\ 367}#)
+ #{k\ 2917}#)
(syntax->datum
- #{id\ 368}#)
- #{v\ 370}#)
- #{out\ 363}#)
- (cons (#{chi\ 167}#
- #{i\ 369}#
- #{r*\ 360}#
- #{w*\ 361}#
- #{mod\ 325}#)
- #{inits\ 364}#)))))))
- #{tmp\ 366}#)
+ #{id\ 2918}#)
+ #{v\ 2920}#)
+ #{out\ 2913}#)
+ (cons (#{chi\ 2717}#
+ #{i\ 2919}#
+ #{r*\ 2910}#
+ #{w*\ 2911}#
+ #{mod\ 2875}#)
+ #{inits\ 2914}#)))))))
+ #{tmp\ 2916}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 365}#)))
+ #{tmp\ 2915}#)))
($sc-dispatch
- #{tmp\ 365}#
+ #{tmp\ 2915}#
'(any any any))))
- (car #{kw\ 357}#))
- (#{expand-body\ 331}#
- #{req\ 354}#
- #{opt\ 355}#
- #{rest\ 356}#
- (if (let ((#{t\ 374}# #{aok\ 362}#))
- (if #{t\ 374}#
- #{t\ 374}#
- (pair? #{out\ 363}#)))
- (cons #{aok\ 362}# (reverse #{out\ 363}#))
+ (car #{kw\ 2907}#))
+ (#{expand-body\ 2881}#
+ #{req\ 2904}#
+ #{opt\ 2905}#
+ #{rest\ 2906}#
+ (if (let ((#{t\ 2924}# #{aok\ 2912}#))
+ (if #{t\ 2924}#
+ #{t\ 2924}#
+ (pair? #{out\ 2913}#)))
+ (cons #{aok\ 2912}# (reverse #{out\ 2913}#))
#f)
- #{body\ 358}#
- (reverse #{vars\ 359}#)
- #{r*\ 360}#
- #{w*\ 361}#
- (reverse #{inits\ 364}#)))))
- (#{expand-opt\ 329}#
- (lambda (#{req\ 375}#
- #{opt\ 376}#
- #{rest\ 377}#
- #{kw\ 378}#
- #{body\ 379}#
- #{vars\ 380}#
- #{r*\ 381}#
- #{w*\ 382}#
- #{out\ 383}#
- #{inits\ 384}#)
- (if (pair? #{opt\ 376}#)
- ((lambda (#{tmp\ 385}#)
- ((lambda (#{tmp\ 386}#)
- (if #{tmp\ 386}#
- (apply (lambda (#{id\ 387}# #{i\ 388}#)
- (let ((#{v\ 389}# (#{gen-var\ 181}#
- #{id\ 387}#)))
- (let ((#{l\ 390}# (#{gen-labels\ 137}#
- (list #{v\ 389}#))))
- (let ((#{r**\ 391}#
- (#{extend-var-env\ 126}#
- #{l\ 390}#
- (list #{v\ 389}#)
- #{r*\ 381}#)))
- (let ((#{w**\ 392}#
- (#{make-binding-wrap\ 148}#
- (list #{id\ 387}#)
- #{l\ 390}#
- #{w*\ 382}#)))
- (#{expand-opt\ 329}#
- #{req\ 375}#
- (cdr #{opt\ 376}#)
- #{rest\ 377}#
- #{kw\ 378}#
- #{body\ 379}#
- (cons #{v\ 389}#
- #{vars\ 380}#)
- #{r**\ 391}#
- #{w**\ 392}#
+ #{body\ 2908}#
+ (reverse #{vars\ 2909}#)
+ #{r*\ 2910}#
+ #{w*\ 2911}#
+ (reverse #{inits\ 2914}#)))))
+ (#{expand-opt\ 2879}#
+ (lambda (#{req\ 2925}#
+ #{opt\ 2926}#
+ #{rest\ 2927}#
+ #{kw\ 2928}#
+ #{body\ 2929}#
+ #{vars\ 2930}#
+ #{r*\ 2931}#
+ #{w*\ 2932}#
+ #{out\ 2933}#
+ #{inits\ 2934}#)
+ (if (pair? #{opt\ 2926}#)
+ ((lambda (#{tmp\ 2935}#)
+ ((lambda (#{tmp\ 2936}#)
+ (if #{tmp\ 2936}#
+ (apply (lambda (#{id\ 2937}# #{i\ 2938}#)
+ (let ((#{v\ 2939}#
+ (#{gen-var\ 2731}#
+ #{id\ 2937}#)))
+ (let ((#{l\ 2940}#
+ (#{gen-labels\ 2687}#
+ (list #{v\ 2939}#))))
+ (let ((#{r**\ 2941}#
+ (#{extend-var-env\ 2676}#
+ #{l\ 2940}#
+ (list #{v\ 2939}#)
+ #{r*\ 2931}#)))
+ (let ((#{w**\ 2942}#
+ (#{make-binding-wrap\ 2698}#
+ (list #{id\ 2937}#)
+ #{l\ 2940}#
+ #{w*\ 2932}#)))
+ (#{expand-opt\ 2879}#
+ #{req\ 2925}#
+ (cdr #{opt\ 2926}#)
+ #{rest\ 2927}#
+ #{kw\ 2928}#
+ #{body\ 2929}#
+ (cons #{v\ 2939}#
+ #{vars\ 2930}#)
+ #{r**\ 2941}#
+ #{w**\ 2942}#
(cons (syntax->datum
- #{id\ 387}#)
- #{out\ 383}#)
- (cons (#{chi\ 167}#
- #{i\ 388}#
- #{r*\ 381}#
- #{w*\ 382}#
- #{mod\ 325}#)
- #{inits\ 384}#)))))))
- #{tmp\ 386}#)
+ #{id\ 2937}#)
+ #{out\ 2933}#)
+ (cons (#{chi\ 2717}#
+ #{i\ 2938}#
+ #{r*\ 2931}#
+ #{w*\ 2932}#
+ #{mod\ 2875}#)
+ #{inits\ 2934}#)))))))
+ #{tmp\ 2936}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 385}#)))
+ #{tmp\ 2935}#)))
($sc-dispatch
- #{tmp\ 385}#
+ #{tmp\ 2935}#
'(any any))))
- (car #{opt\ 376}#))
- (if #{rest\ 377}#
- (let ((#{v\ 393}# (#{gen-var\ 181}#
- #{rest\ 377}#)))
- (let ((#{l\ 394}# (#{gen-labels\ 137}#
- (list #{v\ 393}#))))
- (let ((#{r*\ 395}#
- (#{extend-var-env\ 126}#
- #{l\ 394}#
- (list #{v\ 393}#)
- #{r*\ 381}#)))
- (let ((#{w*\ 396}#
- (#{make-binding-wrap\ 148}#
- (list #{rest\ 377}#)
- #{l\ 394}#
- #{w*\ 382}#)))
- (#{expand-kw\ 330}#
- #{req\ 375}#
- (if (pair? #{out\ 383}#)
- (reverse #{out\ 383}#)
+ (car #{opt\ 2926}#))
+ (if #{rest\ 2927}#
+ (let ((#{v\ 2943}#
+ (#{gen-var\ 2731}# #{rest\ 2927}#)))
+ (let ((#{l\ 2944}#
+ (#{gen-labels\ 2687}#
+ (list #{v\ 2943}#))))
+ (let ((#{r*\ 2945}#
+ (#{extend-var-env\ 2676}#
+ #{l\ 2944}#
+ (list #{v\ 2943}#)
+ #{r*\ 2931}#)))
+ (let ((#{w*\ 2946}#
+ (#{make-binding-wrap\ 2698}#
+ (list #{rest\ 2927}#)
+ #{l\ 2944}#
+ #{w*\ 2932}#)))
+ (#{expand-kw\ 2880}#
+ #{req\ 2925}#
+ (if (pair? #{out\ 2933}#)
+ (reverse #{out\ 2933}#)
#f)
- (syntax->datum #{rest\ 377}#)
- (if (pair? #{kw\ 378}#)
- (cdr #{kw\ 378}#)
- #{kw\ 378}#)
- #{body\ 379}#
- (cons #{v\ 393}# #{vars\ 380}#)
- #{r*\ 395}#
- #{w*\ 396}#
- (if (pair? #{kw\ 378}#)
- (car #{kw\ 378}#)
+ (syntax->datum #{rest\ 2927}#)
+ (if (pair? #{kw\ 2928}#)
+ (cdr #{kw\ 2928}#)
+ #{kw\ 2928}#)
+ #{body\ 2929}#
+ (cons #{v\ 2943}# #{vars\ 2930}#)
+ #{r*\ 2945}#
+ #{w*\ 2946}#
+ (if (pair? #{kw\ 2928}#)
+ (car #{kw\ 2928}#)
#f)
'()
- #{inits\ 384}#)))))
- (#{expand-kw\ 330}#
- #{req\ 375}#
- (if (pair? #{out\ 383}#)
- (reverse #{out\ 383}#)
+ #{inits\ 2934}#)))))
+ (#{expand-kw\ 2880}#
+ #{req\ 2925}#
+ (if (pair? #{out\ 2933}#)
+ (reverse #{out\ 2933}#)
#f)
#f
- (if (pair? #{kw\ 378}#)
- (cdr #{kw\ 378}#)
- #{kw\ 378}#)
- #{body\ 379}#
- #{vars\ 380}#
- #{r*\ 381}#
- #{w*\ 382}#
- (if (pair? #{kw\ 378}#) (car #{kw\ 378}#) #f)
+ (if (pair? #{kw\ 2928}#)
+ (cdr #{kw\ 2928}#)
+ #{kw\ 2928}#)
+ #{body\ 2929}#
+ #{vars\ 2930}#
+ #{r*\ 2931}#
+ #{w*\ 2932}#
+ (if (pair? #{kw\ 2928}#)
+ (car #{kw\ 2928}#)
+ #f)
'()
- #{inits\ 384}#)))))
- (#{expand-req\ 328}#
- (lambda (#{req\ 397}#
- #{opt\ 398}#
- #{rest\ 399}#
- #{kw\ 400}#
- #{body\ 401}#)
- (let ((#{vars\ 402}#
- (map #{gen-var\ 181}# #{req\ 397}#))
- (#{labels\ 403}#
- (#{gen-labels\ 137}# #{req\ 397}#)))
- (let ((#{r*\ 404}#
- (#{extend-var-env\ 126}#
- #{labels\ 403}#
- #{vars\ 402}#
- #{r\ 322}#))
- (#{w*\ 405}#
- (#{make-binding-wrap\ 148}#
- #{req\ 397}#
- #{labels\ 403}#
- #{w\ 323}#)))
- (#{expand-opt\ 329}#
- (map syntax->datum #{req\ 397}#)
- #{opt\ 398}#
- #{rest\ 399}#
- #{kw\ 400}#
- #{body\ 401}#
- (reverse #{vars\ 402}#)
- #{r*\ 404}#
- #{w*\ 405}#
+ #{inits\ 2934}#)))))
+ (#{expand-req\ 2878}#
+ (lambda (#{req\ 2947}#
+ #{opt\ 2948}#
+ #{rest\ 2949}#
+ #{kw\ 2950}#
+ #{body\ 2951}#)
+ (let ((#{vars\ 2952}#
+ (map #{gen-var\ 2731}# #{req\ 2947}#))
+ (#{labels\ 2953}#
+ (#{gen-labels\ 2687}# #{req\ 2947}#)))
+ (let ((#{r*\ 2954}#
+ (#{extend-var-env\ 2676}#
+ #{labels\ 2953}#
+ #{vars\ 2952}#
+ #{r\ 2872}#))
+ (#{w*\ 2955}#
+ (#{make-binding-wrap\ 2698}#
+ #{req\ 2947}#
+ #{labels\ 2953}#
+ #{w\ 2873}#)))
+ (#{expand-opt\ 2879}#
+ (map syntax->datum #{req\ 2947}#)
+ #{opt\ 2948}#
+ #{rest\ 2949}#
+ #{kw\ 2950}#
+ #{body\ 2951}#
+ (reverse #{vars\ 2952}#)
+ #{r*\ 2954}#
+ #{w*\ 2955}#
'()
'()))))))
- ((lambda (#{tmp\ 406}#)
- ((lambda (#{tmp\ 407}#)
- (if #{tmp\ 407}#
- (apply (lambda () (values #f #f)) #{tmp\ 407}#)
- ((lambda (#{tmp\ 408}#)
- (if #{tmp\ 408}#
- (apply (lambda (#{args\ 409}#
- #{e1\ 410}#
- #{e2\ 411}#
- #{args*\ 412}#
- #{e1*\ 413}#
- #{e2*\ 414}#)
+ ((lambda (#{tmp\ 2956}#)
+ ((lambda (#{tmp\ 2957}#)
+ (if #{tmp\ 2957}#
+ (apply (lambda () (values #f #f)) #{tmp\ 2957}#)
+ ((lambda (#{tmp\ 2958}#)
+ (if #{tmp\ 2958}#
+ (apply (lambda (#{args\ 2959}#
+ #{e1\ 2960}#
+ #{e2\ 2961}#
+ #{args*\ 2962}#
+ #{e1*\ 2963}#
+ #{e2*\ 2964}#)
(call-with-values
(lambda ()
- (#{get-formals\ 326}#
- #{args\ 409}#))
- (lambda (#{req\ 415}#
- #{opt\ 416}#
- #{rest\ 417}#
- #{kw\ 418}#)
+ (#{get-formals\ 2876}#
+ #{args\ 2959}#))
+ (lambda (#{req\ 2965}#
+ #{opt\ 2966}#
+ #{rest\ 2967}#
+ #{kw\ 2968}#)
(call-with-values
(lambda ()
- (#{expand-req\ 328}#
- #{req\ 415}#
- #{opt\ 416}#
- #{rest\ 417}#
- #{kw\ 418}#
- (cons #{e1\ 410}#
- #{e2\ 411}#)))
- (lambda (#{docstring\ 420}#
- #{req\ 421}#
- #{opt\ 422}#
- #{rest\ 423}#
- #{kw\ 424}#
- #{inits\ 425}#
- #{vars\ 426}#
- #{body\ 427}#)
+ (#{expand-req\ 2878}#
+ #{req\ 2965}#
+ #{opt\ 2966}#
+ #{rest\ 2967}#
+ #{kw\ 2968}#
+ (cons #{e1\ 2960}#
+ #{e2\ 2961}#)))
+ (lambda (#{docstring\ 2970}#
+ #{req\ 2971}#
+ #{opt\ 2972}#
+ #{rest\ 2973}#
+ #{kw\ 2974}#
+ #{inits\ 2975}#
+ #{vars\ 2976}#
+ #{body\ 2977}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 179}#
- #{e\ 321}#
- #{r\ 322}#
- #{w\ 323}#
- #{s\ 324}#
- #{mod\ 325}#
- #{get-formals\ 326}#
- (map (lambda (#{tmp\ 430}#
- #{tmp\ 429}#
- #{tmp\ 428}#)
- (cons #{tmp\ 428}#
- (cons #{tmp\ 429}#
- #{tmp\ 430}#)))
- #{e2*\ 414}#
- #{e1*\ 413}#
- #{args*\ 412}#)))
- (lambda (#{docstring*\ 432}#
- #{else*\ 433}#)
+ (#{chi-lambda-case\ 2729}#
+ #{e\ 2871}#
+ #{r\ 2872}#
+ #{w\ 2873}#
+ #{s\ 2874}#
+ #{mod\ 2875}#
+ #{get-formals\ 2876}#
+ (map (lambda (#{tmp\ 2980}#
+ #{tmp\ 2979}#
+ #{tmp\ 2978}#)
+ (cons #{tmp\ 2978}#
+ (cons #{tmp\ 2979}#
+ #{tmp\ 2980}#)))
+ #{e2*\ 2964}#
+ #{e1*\ 2963}#
+ #{args*\ 2962}#)))
+ (lambda (#{docstring*\ 2982}#
+ #{else*\ 2983}#)
(values
- (let ((#{t\ 434}# #{docstring\ 420}#))
- (if #{t\ 434}#
- #{t\ 434}#
- #{docstring*\ 432}#))
- (#{build-lambda-case\ 107}#
- #{s\ 324}#
- #{req\ 421}#
- #{opt\ 422}#
- #{rest\ 423}#
- #{kw\ 424}#
- #{inits\ 425}#
- #{vars\ 426}#
- #{body\ 427}#
- #{else*\ 433}#)))))))))
- #{tmp\ 408}#)
+ (let ((#{t\ 2984}#
+ #{docstring\ 2970}#))
+ (if #{t\ 2984}#
+ #{t\ 2984}#
+ #{docstring*\ 2982}#))
+ (#{build-lambda-case\ 2657}#
+ #{s\ 2874}#
+ #{req\ 2971}#
+ #{opt\ 2972}#
+ #{rest\ 2973}#
+ #{kw\ 2974}#
+ #{inits\ 2975}#
+ #{vars\ 2976}#
+ #{body\ 2977}#
+ #{else*\ 2983}#)))))))))
+ #{tmp\ 2958}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 406}#)))
+ #{tmp\ 2956}#)))
($sc-dispatch
- #{tmp\ 406}#
+ #{tmp\ 2956}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 406}# (quote ()))))
- #{clauses\ 327}#))))
- (#{lambda*-formals\ 178}#
- (lambda (#{orig-args\ 435}#)
- (letrec ((#{check\ 440}#
- (lambda (#{req\ 441}#
- #{opt\ 442}#
- #{rest\ 443}#
- #{kw\ 444}#)
- (if (#{distinct-bound-ids?\ 157}#
+ ($sc-dispatch #{tmp\ 2956}# (quote ()))))
+ #{clauses\ 2877}#))))
+ (#{lambda*-formals\ 2728}#
+ (lambda (#{orig-args\ 2985}#)
+ (letrec ((#{check\ 2990}#
+ (lambda (#{req\ 2991}#
+ #{opt\ 2992}#
+ #{rest\ 2993}#
+ #{kw\ 2994}#)
+ (if (#{distinct-bound-ids?\ 2707}#
(append
- #{req\ 441}#
- (map car #{opt\ 442}#)
- (if #{rest\ 443}#
- (list #{rest\ 443}#)
+ #{req\ 2991}#
+ (map car #{opt\ 2992}#)
+ (if #{rest\ 2993}#
+ (list #{rest\ 2993}#)
'())
- (if (pair? #{kw\ 444}#)
- (map cadr (cdr #{kw\ 444}#))
+ (if (pair? #{kw\ 2994}#)
+ (map cadr (cdr #{kw\ 2994}#))
'())))
(values
- #{req\ 441}#
- #{opt\ 442}#
- #{rest\ 443}#
- #{kw\ 444}#)
+ #{req\ 2991}#
+ #{opt\ 2992}#
+ #{rest\ 2993}#
+ #{kw\ 2994}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 435}#))))
- (#{rest\ 439}#
- (lambda (#{args\ 445}#
- #{req\ 446}#
- #{opt\ 447}#
- #{kw\ 448}#)
- ((lambda (#{tmp\ 449}#)
- ((lambda (#{tmp\ 450}#)
- (if (if #{tmp\ 450}#
- (apply (lambda (#{r\ 451}#)
- (#{id?\ 131}# #{r\ 451}#))
- #{tmp\ 450}#)
+ #{orig-args\ 2985}#))))
+ (#{rest\ 2989}#
+ (lambda (#{args\ 2995}#
+ #{req\ 2996}#
+ #{opt\ 2997}#
+ #{kw\ 2998}#)
+ ((lambda (#{tmp\ 2999}#)
+ ((lambda (#{tmp\ 3000}#)
+ (if (if #{tmp\ 3000}#
+ (apply (lambda (#{r\ 3001}#)
+ (#{id?\ 2681}# #{r\ 3001}#))
+ #{tmp\ 3000}#)
#f)
- (apply (lambda (#{r\ 452}#)
- (#{check\ 440}#
- #{req\ 446}#
- #{opt\ 447}#
- #{r\ 452}#
- #{kw\ 448}#))
- #{tmp\ 450}#)
- ((lambda (#{else\ 453}#)
+ (apply (lambda (#{r\ 3002}#)
+ (#{check\ 2990}#
+ #{req\ 2996}#
+ #{opt\ 2997}#
+ #{r\ 3002}#
+ #{kw\ 2998}#))
+ #{tmp\ 3000}#)
+ ((lambda (#{else\ 3003}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 435}#
- #{args\ 445}#))
- #{tmp\ 449}#)))
- (list #{tmp\ 449}#)))
- #{args\ 445}#)))
- (#{key\ 438}#
- (lambda (#{args\ 454}#
- #{req\ 455}#
- #{opt\ 456}#
- #{rkey\ 457}#)
- ((lambda (#{tmp\ 458}#)
- ((lambda (#{tmp\ 459}#)
- (if #{tmp\ 459}#
+ #{orig-args\ 2985}#
+ #{args\ 2995}#))
+ #{tmp\ 2999}#)))
+ (list #{tmp\ 2999}#)))
+ #{args\ 2995}#)))
+ (#{key\ 2988}#
+ (lambda (#{args\ 3004}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
+ #{rkey\ 3007}#)
+ ((lambda (#{tmp\ 3008}#)
+ ((lambda (#{tmp\ 3009}#)
+ (if #{tmp\ 3009}#
(apply (lambda ()
- (#{check\ 440}#
- #{req\ 455}#
- #{opt\ 456}#
+ (#{check\ 2990}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
#f
(cons #f
- (reverse #{rkey\ 457}#))))
- #{tmp\ 459}#)
- ((lambda (#{tmp\ 460}#)
- (if (if #{tmp\ 460}#
- (apply (lambda (#{a\ 461}#
- #{b\ 462}#)
- (#{id?\ 131}#
- #{a\ 461}#))
- #{tmp\ 460}#)
+ (reverse
+ #{rkey\ 3007}#))))
+ #{tmp\ 3009}#)
+ ((lambda (#{tmp\ 3010}#)
+ (if (if #{tmp\ 3010}#
+ (apply (lambda (#{a\ 3011}#
+ #{b\ 3012}#)
+ (#{id?\ 2681}#
+ #{a\ 3011}#))
+ #{tmp\ 3010}#)
#f)
- (apply (lambda (#{a\ 463}# #{b\ 464}#)
- ((lambda (#{tmp\ 465}#)
- ((lambda (#{k\ 466}#)
- (#{key\ 438}#
- #{b\ 464}#
- #{req\ 455}#
- #{opt\ 456}#
- (cons (cons #{k\ 466}#
- (cons #{a\ 463}#
+ (apply (lambda (#{a\ 3013}#
+ #{b\ 3014}#)
+ ((lambda (#{tmp\ 3015}#)
+ ((lambda (#{k\ 3016}#)
+ (#{key\ 2988}#
+ #{b\ 3014}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
+ (cons (cons #{k\ 3016}#
+ (cons #{a\ 3013}#
'(#(syntax-object
#f
((top)
@@ -1002,222 +1010,223 @@
"i")))
(hygiene
guile)))))
- #{rkey\ 457}#)))
- #{tmp\ 465}#))
+ #{rkey\ 3007}#)))
+ #{tmp\ 3015}#))
(symbol->keyword
(syntax->datum
- #{a\ 463}#))))
- #{tmp\ 460}#)
- ((lambda (#{tmp\ 467}#)
- (if (if #{tmp\ 467}#
- (apply (lambda (#{a\ 468}#
- #{init\ 469}#
- #{b\ 470}#)
- (#{id?\ 131}#
- #{a\ 468}#))
- #{tmp\ 467}#)
+ #{a\ 3013}#))))
+ #{tmp\ 3010}#)
+ ((lambda (#{tmp\ 3017}#)
+ (if (if #{tmp\ 3017}#
+ (apply (lambda (#{a\ 3018}#
+ #{init\ 3019}#
+ #{b\ 3020}#)
+ (#{id?\ 2681}#
+ #{a\ 3018}#))
+ #{tmp\ 3017}#)
#f)
- (apply (lambda (#{a\ 471}#
- #{init\ 472}#
- #{b\ 473}#)
- ((lambda (#{tmp\ 474}#)
- ((lambda (#{k\ 475}#)
- (#{key\ 438}#
- #{b\ 473}#
- #{req\ 455}#
- #{opt\ 456}#
- (cons (list #{k\ 475}#
- #{a\ 471}#
- #{init\ 472}#)
- #{rkey\ 457}#)))
- #{tmp\ 474}#))
+ (apply (lambda (#{a\ 3021}#
+ #{init\ 3022}#
+ #{b\ 3023}#)
+ ((lambda (#{tmp\ 3024}#)
+ ((lambda (#{k\ 3025}#)
+ (#{key\ 2988}#
+ #{b\ 3023}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
+ (cons (list #{k\ 3025}#
+ #{a\ 3021}#
+ #{init\ 3022}#)
+ #{rkey\ 3007}#)))
+ #{tmp\ 3024}#))
(symbol->keyword
(syntax->datum
- #{a\ 471}#))))
- #{tmp\ 467}#)
- ((lambda (#{tmp\ 476}#)
- (if (if #{tmp\ 476}#
- (apply (lambda (#{a\ 477}#
- #{init\ 478}#
- #{k\ 479}#
- #{b\ 480}#)
- (if (#{id?\ 131}#
- #{a\ 477}#)
+ #{a\ 3021}#))))
+ #{tmp\ 3017}#)
+ ((lambda (#{tmp\ 3026}#)
+ (if (if #{tmp\ 3026}#
+ (apply (lambda (#{a\ 3027}#
+ #{init\ 3028}#
+ #{k\ 3029}#
+ #{b\ 3030}#)
+ (if (#{id?\ 2681}#
+ #{a\ 3027}#)
(keyword?
(syntax->datum
- #{k\ 479}#))
+ #{k\ 3029}#))
#f))
- #{tmp\ 476}#)
+ #{tmp\ 3026}#)
#f)
- (apply (lambda (#{a\ 481}#
- #{init\ 482}#
- #{k\ 483}#
- #{b\ 484}#)
- (#{key\ 438}#
- #{b\ 484}#
- #{req\ 455}#
- #{opt\ 456}#
- (cons (list #{k\ 483}#
- #{a\ 481}#
- #{init\ 482}#)
- #{rkey\ 457}#)))
- #{tmp\ 476}#)
- ((lambda (#{tmp\ 485}#)
- (if (if #{tmp\ 485}#
- (apply (lambda (#{aok\ 486}#)
+ (apply (lambda (#{a\ 3031}#
+ #{init\ 3032}#
+ #{k\ 3033}#
+ #{b\ 3034}#)
+ (#{key\ 2988}#
+ #{b\ 3034}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
+ (cons (list #{k\ 3033}#
+ #{a\ 3031}#
+ #{init\ 3032}#)
+ #{rkey\ 3007}#)))
+ #{tmp\ 3026}#)
+ ((lambda (#{tmp\ 3035}#)
+ (if (if #{tmp\ 3035}#
+ (apply (lambda (#{aok\ 3036}#)
(eq? (syntax->datum
- #{aok\ 486}#)
+ #{aok\ 3036}#)
#:allow-other-keys))
- #{tmp\ 485}#)
+ #{tmp\ 3035}#)
#f)
- (apply (lambda (#{aok\ 487}#)
- (#{check\ 440}#
- #{req\ 455}#
- #{opt\ 456}#
+ (apply (lambda (#{aok\ 3037}#)
+ (#{check\ 2990}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
#f
(cons #t
(reverse
- #{rkey\ 457}#))))
- #{tmp\ 485}#)
- ((lambda (#{tmp\ 488}#)
- (if (if #{tmp\ 488}#
- (apply (lambda (#{aok\ 489}#
- #{a\ 490}#
- #{b\ 491}#)
+ #{rkey\ 3007}#))))
+ #{tmp\ 3035}#)
+ ((lambda (#{tmp\ 3038}#)
+ (if (if #{tmp\ 3038}#
+ (apply (lambda (#{aok\ 3039}#
+ #{a\ 3040}#
+ #{b\ 3041}#)
(if (eq? (syntax->datum
- #{aok\ 489}#)
+ #{aok\ 3039}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 490}#)
+ #{a\ 3040}#)
#:rest)
#f))
- #{tmp\ 488}#)
+ #{tmp\ 3038}#)
#f)
- (apply (lambda (#{aok\ 492}#
- #{a\ 493}#
- #{b\ 494}#)
- (#{rest\ 439}#
- #{b\ 494}#
- #{req\ 455}#
- #{opt\ 456}#
+ (apply (lambda (#{aok\ 3042}#
+ #{a\ 3043}#
+ #{b\ 3044}#)
+ (#{rest\ 2989}#
+ #{b\ 3044}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
(cons #t
(reverse
- #{rkey\ 457}#))))
- #{tmp\ 488}#)
- ((lambda (#{tmp\ 495}#)
- (if (if #{tmp\ 495}#
- (apply (lambda (#{aok\ 496}#
- #{r\ 497}#)
+ #{rkey\ 3007}#))))
+ #{tmp\ 3038}#)
+ ((lambda (#{tmp\ 3045}#)
+ (if (if #{tmp\ 3045}#
+ (apply (lambda (#{aok\ 3046}#
+ #{r\ 3047}#)
(if (eq? (syntax->datum
- #{aok\ 496}#)
+ #{aok\ 3046}#)
#:allow-other-keys)
- (#{id?\ 131}#
- #{r\ 497}#)
+ (#{id?\ 2681}#
+ #{r\ 3047}#)
#f))
- #{tmp\ 495}#)
+ #{tmp\ 3045}#)
#f)
- (apply (lambda (#{aok\ 498}#
- #{r\ 499}#)
- (#{rest\ 439}#
- #{r\ 499}#
- #{req\ 455}#
- #{opt\ 456}#
+ (apply (lambda (#{aok\ 3048}#
+ #{r\ 3049}#)
+ (#{rest\ 2989}#
+ #{r\ 3049}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
(cons #t
(reverse
- #{rkey\ 457}#))))
- #{tmp\ 495}#)
- ((lambda (#{tmp\ 500}#)
- (if (if #{tmp\ 500}#
- (apply (lambda (#{a\ 501}#
- #{b\ 502}#)
+ #{rkey\ 3007}#))))
+ #{tmp\ 3045}#)
+ ((lambda (#{tmp\ 3050}#)
+ (if (if #{tmp\ 3050}#
+ (apply (lambda (#{a\ 3051}#
+ #{b\ 3052}#)
(eq? (syntax->datum
- #{a\ 501}#)
+ #{a\ 3051}#)
#:rest))
- #{tmp\ 500}#)
+ #{tmp\ 3050}#)
#f)
- (apply (lambda (#{a\ 503}#
- #{b\ 504}#)
- (#{rest\ 439}#
- #{b\ 504}#
- #{req\ 455}#
- #{opt\ 456}#
+ (apply (lambda (#{a\ 3053}#
+ #{b\ 3054}#)
+ (#{rest\ 2989}#
+ #{b\ 3054}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
(cons #f
(reverse
- #{rkey\ 457}#))))
- #{tmp\ 500}#)
- ((lambda (#{tmp\ 505}#)
- (if (if #{tmp\ 505}#
- (apply (lambda (#{r\ 506}#)
- (#{id?\ 131}#
- #{r\ 506}#))
- #{tmp\ 505}#)
+ #{rkey\ 3007}#))))
+ #{tmp\ 3050}#)
+ ((lambda (#{tmp\ 3055}#)
+ (if (if #{tmp\ 3055}#
+ (apply (lambda (#{r\ 3056}#)
+ (#{id?\ 2681}#
+ #{r\ 3056}#))
+ #{tmp\ 3055}#)
#f)
- (apply (lambda (#{r\ 507}#)
- (#{rest\ 439}#
- #{r\ 507}#
- #{req\ 455}#
- #{opt\ 456}#
+ (apply (lambda (#{r\ 3057}#)
+ (#{rest\ 2989}#
+ #{r\ 3057}#
+ #{req\ 3005}#
+ #{opt\ 3006}#
(cons #f
(reverse
- #{rkey\ 457}#))))
- #{tmp\ 505}#)
- ((lambda (#{else\ 508}#)
+ #{rkey\ 3007}#))))
+ #{tmp\ 3055}#)
+ ((lambda (#{else\ 3058}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 435}#
- #{args\ 454}#))
- #{tmp\ 458}#)))
- (list #{tmp\ 458}#))))
+ #{orig-args\ 2985}#
+ #{args\ 3004}#))
+ #{tmp\ 3008}#)))
+ (list #{tmp\ 3008}#))))
($sc-dispatch
- #{tmp\ 458}#
+ #{tmp\ 3008}#
'(any any)))))
($sc-dispatch
- #{tmp\ 458}#
+ #{tmp\ 3008}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 458}#
+ #{tmp\ 3008}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 458}#
+ #{tmp\ 3008}#
'(any)))))
($sc-dispatch
- #{tmp\ 458}#
+ #{tmp\ 3008}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 458}#
+ #{tmp\ 3008}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 458}#
+ #{tmp\ 3008}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 458}# (quote ()))))
- #{args\ 454}#)))
- (#{opt\ 437}#
- (lambda (#{args\ 509}# #{req\ 510}# #{ropt\ 511}#)
- ((lambda (#{tmp\ 512}#)
- ((lambda (#{tmp\ 513}#)
- (if #{tmp\ 513}#
+ ($sc-dispatch #{tmp\ 3008}# (quote ()))))
+ #{args\ 3004}#)))
+ (#{opt\ 2987}#
+ (lambda (#{args\ 3059}# #{req\ 3060}# #{ropt\ 3061}#)
+ ((lambda (#{tmp\ 3062}#)
+ ((lambda (#{tmp\ 3063}#)
+ (if #{tmp\ 3063}#
(apply (lambda ()
- (#{check\ 440}#
- #{req\ 510}#
- (reverse #{ropt\ 511}#)
+ (#{check\ 2990}#
+ #{req\ 3060}#
+ (reverse #{ropt\ 3061}#)
#f
'()))
- #{tmp\ 513}#)
- ((lambda (#{tmp\ 514}#)
- (if (if #{tmp\ 514}#
- (apply (lambda (#{a\ 515}#
- #{b\ 516}#)
- (#{id?\ 131}#
- #{a\ 515}#))
- #{tmp\ 514}#)
+ #{tmp\ 3063}#)
+ ((lambda (#{tmp\ 3064}#)
+ (if (if #{tmp\ 3064}#
+ (apply (lambda (#{a\ 3065}#
+ #{b\ 3066}#)
+ (#{id?\ 2681}#
+ #{a\ 3065}#))
+ #{tmp\ 3064}#)
#f)
- (apply (lambda (#{a\ 517}# #{b\ 518}#)
- (#{opt\ 437}#
- #{b\ 518}#
- #{req\ 510}#
- (cons (cons #{a\ 517}#
+ (apply (lambda (#{a\ 3067}#
+ #{b\ 3068}#)
+ (#{opt\ 2987}#
+ #{b\ 3068}#
+ #{req\ 3060}#
+ (cons (cons #{a\ 3067}#
'(#(syntax-object
#f
((top)
@@ -1621,328 +1630,330 @@
"i")))
(hygiene
guile))))
- #{ropt\ 511}#)))
- #{tmp\ 514}#)
- ((lambda (#{tmp\ 519}#)
- (if (if #{tmp\ 519}#
- (apply (lambda (#{a\ 520}#
- #{init\ 521}#
- #{b\ 522}#)
- (#{id?\ 131}#
- #{a\ 520}#))
- #{tmp\ 519}#)
+ #{ropt\ 3061}#)))
+ #{tmp\ 3064}#)
+ ((lambda (#{tmp\ 3069}#)
+ (if (if #{tmp\ 3069}#
+ (apply (lambda (#{a\ 3070}#
+ #{init\ 3071}#
+ #{b\ 3072}#)
+ (#{id?\ 2681}#
+ #{a\ 3070}#))
+ #{tmp\ 3069}#)
#f)
- (apply (lambda (#{a\ 523}#
- #{init\ 524}#
- #{b\ 525}#)
- (#{opt\ 437}#
- #{b\ 525}#
- #{req\ 510}#
- (cons (list #{a\ 523}#
- #{init\ 524}#)
- #{ropt\ 511}#)))
- #{tmp\ 519}#)
- ((lambda (#{tmp\ 526}#)
- (if (if #{tmp\ 526}#
- (apply (lambda (#{a\ 527}#
- #{b\ 528}#)
+ (apply (lambda (#{a\ 3073}#
+ #{init\ 3074}#
+ #{b\ 3075}#)
+ (#{opt\ 2987}#
+ #{b\ 3075}#
+ #{req\ 3060}#
+ (cons (list #{a\ 3073}#
+ #{init\ 3074}#)
+ #{ropt\ 3061}#)))
+ #{tmp\ 3069}#)
+ ((lambda (#{tmp\ 3076}#)
+ (if (if #{tmp\ 3076}#
+ (apply (lambda (#{a\ 3077}#
+ #{b\ 3078}#)
(eq? (syntax->datum
- #{a\ 527}#)
+ #{a\ 3077}#)
#:key))
- #{tmp\ 526}#)
+ #{tmp\ 3076}#)
#f)
- (apply (lambda (#{a\ 529}#
- #{b\ 530}#)
- (#{key\ 438}#
- #{b\ 530}#
- #{req\ 510}#
+ (apply (lambda (#{a\ 3079}#
+ #{b\ 3080}#)
+ (#{key\ 2988}#
+ #{b\ 3080}#
+ #{req\ 3060}#
(reverse
- #{ropt\ 511}#)
+ #{ropt\ 3061}#)
'()))
- #{tmp\ 526}#)
- ((lambda (#{tmp\ 531}#)
- (if (if #{tmp\ 531}#
- (apply (lambda (#{a\ 532}#
- #{b\ 533}#)
+ #{tmp\ 3076}#)
+ ((lambda (#{tmp\ 3081}#)
+ (if (if #{tmp\ 3081}#
+ (apply (lambda (#{a\ 3082}#
+ #{b\ 3083}#)
(eq? (syntax->datum
- #{a\ 532}#)
+ #{a\ 3082}#)
#:rest))
- #{tmp\ 531}#)
+ #{tmp\ 3081}#)
#f)
- (apply (lambda (#{a\ 534}#
- #{b\ 535}#)
- (#{rest\ 439}#
- #{b\ 535}#
- #{req\ 510}#
+ (apply (lambda (#{a\ 3084}#
+ #{b\ 3085}#)
+ (#{rest\ 2989}#
+ #{b\ 3085}#
+ #{req\ 3060}#
(reverse
- #{ropt\ 511}#)
+ #{ropt\ 3061}#)
'()))
- #{tmp\ 531}#)
- ((lambda (#{tmp\ 536}#)
- (if (if #{tmp\ 536}#
- (apply (lambda (#{r\ 537}#)
- (#{id?\ 131}#
- #{r\ 537}#))
- #{tmp\ 536}#)
+ #{tmp\ 3081}#)
+ ((lambda (#{tmp\ 3086}#)
+ (if (if #{tmp\ 3086}#
+ (apply (lambda (#{r\ 3087}#)
+ (#{id?\ 2681}#
+ #{r\ 3087}#))
+ #{tmp\ 3086}#)
#f)
- (apply (lambda (#{r\ 538}#)
- (#{rest\ 439}#
- #{r\ 538}#
- #{req\ 510}#
+ (apply (lambda (#{r\ 3088}#)
+ (#{rest\ 2989}#
+ #{r\ 3088}#
+ #{req\ 3060}#
(reverse
- #{ropt\ 511}#)
+ #{ropt\ 3061}#)
'()))
- #{tmp\ 536}#)
- ((lambda (#{else\ 539}#)
+ #{tmp\ 3086}#)
+ ((lambda (#{else\ 3089}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 435}#
- #{args\ 509}#))
- #{tmp\ 512}#)))
- (list #{tmp\ 512}#))))
+ #{orig-args\ 2985}#
+ #{args\ 3059}#))
+ #{tmp\ 3062}#)))
+ (list #{tmp\ 3062}#))))
($sc-dispatch
- #{tmp\ 512}#
+ #{tmp\ 3062}#
'(any any)))))
($sc-dispatch
- #{tmp\ 512}#
+ #{tmp\ 3062}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 512}#
+ #{tmp\ 3062}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 512}#
+ #{tmp\ 3062}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 512}# (quote ()))))
- #{args\ 509}#)))
- (#{req\ 436}#
- (lambda (#{args\ 540}# #{rreq\ 541}#)
- ((lambda (#{tmp\ 542}#)
- ((lambda (#{tmp\ 543}#)
- (if #{tmp\ 543}#
+ ($sc-dispatch #{tmp\ 3062}# (quote ()))))
+ #{args\ 3059}#)))
+ (#{req\ 2986}#
+ (lambda (#{args\ 3090}# #{rreq\ 3091}#)
+ ((lambda (#{tmp\ 3092}#)
+ ((lambda (#{tmp\ 3093}#)
+ (if #{tmp\ 3093}#
(apply (lambda ()
- (#{check\ 440}#
- (reverse #{rreq\ 541}#)
+ (#{check\ 2990}#
+ (reverse #{rreq\ 3091}#)
'()
#f
'()))
- #{tmp\ 543}#)
- ((lambda (#{tmp\ 544}#)
- (if (if #{tmp\ 544}#
- (apply (lambda (#{a\ 545}#
- #{b\ 546}#)
- (#{id?\ 131}#
- #{a\ 545}#))
- #{tmp\ 544}#)
+ #{tmp\ 3093}#)
+ ((lambda (#{tmp\ 3094}#)
+ (if (if #{tmp\ 3094}#
+ (apply (lambda (#{a\ 3095}#
+ #{b\ 3096}#)
+ (#{id?\ 2681}#
+ #{a\ 3095}#))
+ #{tmp\ 3094}#)
#f)
- (apply (lambda (#{a\ 547}# #{b\ 548}#)
- (#{req\ 436}#
- #{b\ 548}#
- (cons #{a\ 547}#
- #{rreq\ 541}#)))
- #{tmp\ 544}#)
- ((lambda (#{tmp\ 549}#)
- (if (if #{tmp\ 549}#
- (apply (lambda (#{a\ 550}#
- #{b\ 551}#)
+ (apply (lambda (#{a\ 3097}#
+ #{b\ 3098}#)
+ (#{req\ 2986}#
+ #{b\ 3098}#
+ (cons #{a\ 3097}#
+ #{rreq\ 3091}#)))
+ #{tmp\ 3094}#)
+ ((lambda (#{tmp\ 3099}#)
+ (if (if #{tmp\ 3099}#
+ (apply (lambda (#{a\ 3100}#
+ #{b\ 3101}#)
(eq? (syntax->datum
- #{a\ 550}#)
+ #{a\ 3100}#)
#:optional))
- #{tmp\ 549}#)
+ #{tmp\ 3099}#)
#f)
- (apply (lambda (#{a\ 552}#
- #{b\ 553}#)
- (#{opt\ 437}#
- #{b\ 553}#
+ (apply (lambda (#{a\ 3102}#
+ #{b\ 3103}#)
+ (#{opt\ 2987}#
+ #{b\ 3103}#
(reverse
- #{rreq\ 541}#)
+ #{rreq\ 3091}#)
'()))
- #{tmp\ 549}#)
- ((lambda (#{tmp\ 554}#)
- (if (if #{tmp\ 554}#
- (apply (lambda (#{a\ 555}#
- #{b\ 556}#)
+ #{tmp\ 3099}#)
+ ((lambda (#{tmp\ 3104}#)
+ (if (if #{tmp\ 3104}#
+ (apply (lambda (#{a\ 3105}#
+ #{b\ 3106}#)
(eq? (syntax->datum
- #{a\ 555}#)
+ #{a\ 3105}#)
#:key))
- #{tmp\ 554}#)
+ #{tmp\ 3104}#)
#f)
- (apply (lambda (#{a\ 557}#
- #{b\ 558}#)
- (#{key\ 438}#
- #{b\ 558}#
+ (apply (lambda (#{a\ 3107}#
+ #{b\ 3108}#)
+ (#{key\ 2988}#
+ #{b\ 3108}#
(reverse
- #{rreq\ 541}#)
+ #{rreq\ 3091}#)
'()
'()))
- #{tmp\ 554}#)
- ((lambda (#{tmp\ 559}#)
- (if (if #{tmp\ 559}#
- (apply (lambda (#{a\ 560}#
- #{b\ 561}#)
+ #{tmp\ 3104}#)
+ ((lambda (#{tmp\ 3109}#)
+ (if (if #{tmp\ 3109}#
+ (apply (lambda (#{a\ 3110}#
+ #{b\ 3111}#)
(eq? (syntax->datum
- #{a\ 560}#)
+ #{a\ 3110}#)
#:rest))
- #{tmp\ 559}#)
+ #{tmp\ 3109}#)
#f)
- (apply (lambda (#{a\ 562}#
- #{b\ 563}#)
- (#{rest\ 439}#
- #{b\ 563}#
+ (apply (lambda (#{a\ 3112}#
+ #{b\ 3113}#)
+ (#{rest\ 2989}#
+ #{b\ 3113}#
(reverse
- #{rreq\ 541}#)
+ #{rreq\ 3091}#)
'()
'()))
- #{tmp\ 559}#)
- ((lambda (#{tmp\ 564}#)
- (if (if #{tmp\ 564}#
- (apply (lambda (#{r\ 565}#)
- (#{id?\ 131}#
- #{r\ 565}#))
- #{tmp\ 564}#)
+ #{tmp\ 3109}#)
+ ((lambda (#{tmp\ 3114}#)
+ (if (if #{tmp\ 3114}#
+ (apply (lambda (#{r\ 3115}#)
+ (#{id?\ 2681}#
+ #{r\ 3115}#))
+ #{tmp\ 3114}#)
#f)
- (apply (lambda (#{r\ 566}#)
- (#{rest\ 439}#
- #{r\ 566}#
+ (apply (lambda (#{r\ 3116}#)
+ (#{rest\ 2989}#
+ #{r\ 3116}#
(reverse
- #{rreq\ 541}#)
+ #{rreq\ 3091}#)
'()
'()))
- #{tmp\ 564}#)
- ((lambda (#{else\ 567}#)
+ #{tmp\ 3114}#)
+ ((lambda (#{else\ 3117}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 435}#
- #{args\ 540}#))
- #{tmp\ 542}#)))
- (list #{tmp\ 542}#))))
+ #{orig-args\ 2985}#
+ #{args\ 3090}#))
+ #{tmp\ 3092}#)))
+ (list #{tmp\ 3092}#))))
($sc-dispatch
- #{tmp\ 542}#
+ #{tmp\ 3092}#
'(any any)))))
($sc-dispatch
- #{tmp\ 542}#
+ #{tmp\ 3092}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 542}#
+ #{tmp\ 3092}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 542}#
+ #{tmp\ 3092}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 542}# (quote ()))))
- #{args\ 540}#))))
- (#{req\ 436}# #{orig-args\ 435}# (quote ())))))
- (#{chi-simple-lambda\ 177}#
- (lambda (#{e\ 568}#
- #{r\ 569}#
- #{w\ 570}#
- #{s\ 571}#
- #{mod\ 572}#
- #{req\ 573}#
- #{rest\ 574}#
- #{docstring\ 575}#
- #{body\ 576}#)
- (let ((#{ids\ 577}#
- (if #{rest\ 574}#
- (append #{req\ 573}# (list #{rest\ 574}#))
- #{req\ 573}#)))
- (let ((#{vars\ 578}#
- (map #{gen-var\ 181}# #{ids\ 577}#)))
- (let ((#{labels\ 579}#
- (#{gen-labels\ 137}# #{ids\ 577}#)))
- (#{build-simple-lambda\ 105}#
- #{s\ 571}#
- (map syntax->datum #{req\ 573}#)
- (if #{rest\ 574}#
- (syntax->datum #{rest\ 574}#)
+ ($sc-dispatch #{tmp\ 3092}# (quote ()))))
+ #{args\ 3090}#))))
+ (#{req\ 2986}# #{orig-args\ 2985}# (quote ())))))
+ (#{chi-simple-lambda\ 2727}#
+ (lambda (#{e\ 3118}#
+ #{r\ 3119}#
+ #{w\ 3120}#
+ #{s\ 3121}#
+ #{mod\ 3122}#
+ #{req\ 3123}#
+ #{rest\ 3124}#
+ #{docstring\ 3125}#
+ #{body\ 3126}#)
+ (let ((#{ids\ 3127}#
+ (if #{rest\ 3124}#
+ (append #{req\ 3123}# (list #{rest\ 3124}#))
+ #{req\ 3123}#)))
+ (let ((#{vars\ 3128}#
+ (map #{gen-var\ 2731}# #{ids\ 3127}#)))
+ (let ((#{labels\ 3129}#
+ (#{gen-labels\ 2687}# #{ids\ 3127}#)))
+ (#{build-simple-lambda\ 2655}#
+ #{s\ 3121}#
+ (map syntax->datum #{req\ 3123}#)
+ (if #{rest\ 3124}#
+ (syntax->datum #{rest\ 3124}#)
#f)
- #{vars\ 578}#
- #{docstring\ 575}#
- (#{chi-body\ 171}#
- #{body\ 576}#
- (#{source-wrap\ 160}#
- #{e\ 568}#
- #{w\ 570}#
- #{s\ 571}#
- #{mod\ 572}#)
- (#{extend-var-env\ 126}#
- #{labels\ 579}#
- #{vars\ 578}#
- #{r\ 569}#)
- (#{make-binding-wrap\ 148}#
- #{ids\ 577}#
- #{labels\ 579}#
- #{w\ 570}#)
- #{mod\ 572}#)))))))
- (#{lambda-formals\ 176}#
- (lambda (#{orig-args\ 580}#)
- (letrec ((#{check\ 582}#
- (lambda (#{req\ 583}# #{rest\ 584}#)
- (if (#{distinct-bound-ids?\ 157}#
- (if #{rest\ 584}#
- (cons #{rest\ 584}# #{req\ 583}#)
- #{req\ 583}#))
- (values #{req\ 583}# #f #{rest\ 584}# #f)
+ #{vars\ 3128}#
+ #{docstring\ 3125}#
+ (#{chi-body\ 2721}#
+ #{body\ 3126}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3118}#
+ #{w\ 3120}#
+ #{s\ 3121}#
+ #{mod\ 3122}#)
+ (#{extend-var-env\ 2676}#
+ #{labels\ 3129}#
+ #{vars\ 3128}#
+ #{r\ 3119}#)
+ (#{make-binding-wrap\ 2698}#
+ #{ids\ 3127}#
+ #{labels\ 3129}#
+ #{w\ 3120}#)
+ #{mod\ 3122}#)))))))
+ (#{lambda-formals\ 2726}#
+ (lambda (#{orig-args\ 3130}#)
+ (letrec ((#{check\ 3132}#
+ (lambda (#{req\ 3133}# #{rest\ 3134}#)
+ (if (#{distinct-bound-ids?\ 2707}#
+ (if #{rest\ 3134}#
+ (cons #{rest\ 3134}# #{req\ 3133}#)
+ #{req\ 3133}#))
+ (values #{req\ 3133}# #f #{rest\ 3134}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 580}#))))
- (#{req\ 581}#
- (lambda (#{args\ 585}# #{rreq\ 586}#)
- ((lambda (#{tmp\ 587}#)
- ((lambda (#{tmp\ 588}#)
- (if #{tmp\ 588}#
+ #{orig-args\ 3130}#))))
+ (#{req\ 3131}#
+ (lambda (#{args\ 3135}# #{rreq\ 3136}#)
+ ((lambda (#{tmp\ 3137}#)
+ ((lambda (#{tmp\ 3138}#)
+ (if #{tmp\ 3138}#
(apply (lambda ()
- (#{check\ 582}#
- (reverse #{rreq\ 586}#)
+ (#{check\ 3132}#
+ (reverse #{rreq\ 3136}#)
#f))
- #{tmp\ 588}#)
- ((lambda (#{tmp\ 589}#)
- (if (if #{tmp\ 589}#
- (apply (lambda (#{a\ 590}#
- #{b\ 591}#)
- (#{id?\ 131}#
- #{a\ 590}#))
- #{tmp\ 589}#)
+ #{tmp\ 3138}#)
+ ((lambda (#{tmp\ 3139}#)
+ (if (if #{tmp\ 3139}#
+ (apply (lambda (#{a\ 3140}#
+ #{b\ 3141}#)
+ (#{id?\ 2681}#
+ #{a\ 3140}#))
+ #{tmp\ 3139}#)
#f)
- (apply (lambda (#{a\ 592}# #{b\ 593}#)
- (#{req\ 581}#
- #{b\ 593}#
- (cons #{a\ 592}#
- #{rreq\ 586}#)))
- #{tmp\ 589}#)
- ((lambda (#{tmp\ 594}#)
- (if (if #{tmp\ 594}#
- (apply (lambda (#{r\ 595}#)
- (#{id?\ 131}#
- #{r\ 595}#))
- #{tmp\ 594}#)
+ (apply (lambda (#{a\ 3142}#
+ #{b\ 3143}#)
+ (#{req\ 3131}#
+ #{b\ 3143}#
+ (cons #{a\ 3142}#
+ #{rreq\ 3136}#)))
+ #{tmp\ 3139}#)
+ ((lambda (#{tmp\ 3144}#)
+ (if (if #{tmp\ 3144}#
+ (apply (lambda (#{r\ 3145}#)
+ (#{id?\ 2681}#
+ #{r\ 3145}#))
+ #{tmp\ 3144}#)
#f)
- (apply (lambda (#{r\ 596}#)
- (#{check\ 582}#
+ (apply (lambda (#{r\ 3146}#)
+ (#{check\ 3132}#
(reverse
- #{rreq\ 586}#)
- #{r\ 596}#))
- #{tmp\ 594}#)
- ((lambda (#{else\ 597}#)
+ #{rreq\ 3136}#)
+ #{r\ 3146}#))
+ #{tmp\ 3144}#)
+ ((lambda (#{else\ 3147}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 580}#
- #{args\ 585}#))
- #{tmp\ 587}#)))
- (list #{tmp\ 587}#))))
+ #{orig-args\ 3130}#
+ #{args\ 3135}#))
+ #{tmp\ 3137}#)))
+ (list #{tmp\ 3137}#))))
($sc-dispatch
- #{tmp\ 587}#
+ #{tmp\ 3137}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 587}# (quote ()))))
- #{args\ 585}#))))
- (#{req\ 581}# #{orig-args\ 580}# (quote ())))))
- (#{ellipsis?\ 175}#
- (lambda (#{x\ 598}#)
- (if (#{nonsymbol-id?\ 130}# #{x\ 598}#)
- (#{free-id=?\ 154}#
- #{x\ 598}#
+ ($sc-dispatch #{tmp\ 3137}# (quote ()))))
+ #{args\ 3135}#))))
+ (#{req\ 3131}# #{orig-args\ 3130}# (quote ())))))
+ (#{ellipsis?\ 2725}#
+ (lambda (#{x\ 3148}#)
+ (if (#{nonsymbol-id?\ 2680}# #{x\ 3148}#)
+ (#{free-id=?\ 2704}#
+ #{x\ 3148}#
'#(syntax-object
...
((top)
@@ -2307,1223 +2318,1248 @@
("i" "i")))
(hygiene guile)))
#f)))
- (#{chi-void\ 174}#
- (lambda () (#{build-void\ 95}# #f)))
- (#{eval-local-transformer\ 173}#
- (lambda (#{expanded\ 599}# #{mod\ 600}#)
- (let ((#{p\ 601}# (#{local-eval-hook\ 91}#
- #{expanded\ 599}#
- #{mod\ 600}#)))
- (if (procedure? #{p\ 601}#)
- #{p\ 601}#
+ (#{chi-void\ 2724}#
+ (lambda () (#{build-void\ 2645}# #f)))
+ (#{eval-local-transformer\ 2723}#
+ (lambda (#{expanded\ 3149}# #{mod\ 3150}#)
+ (let ((#{p\ 3151}#
+ (#{local-eval-hook\ 2641}#
+ #{expanded\ 3149}#
+ #{mod\ 3150}#)))
+ (if (procedure? #{p\ 3151}#)
+ #{p\ 3151}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 601}#)))))
- (#{chi-local-syntax\ 172}#
- (lambda (#{rec?\ 602}#
- #{e\ 603}#
- #{r\ 604}#
- #{w\ 605}#
- #{s\ 606}#
- #{mod\ 607}#
- #{k\ 608}#)
- ((lambda (#{tmp\ 609}#)
- ((lambda (#{tmp\ 610}#)
- (if #{tmp\ 610}#
- (apply (lambda (#{_\ 611}#
- #{id\ 612}#
- #{val\ 613}#
- #{e1\ 614}#
- #{e2\ 615}#)
- (let ((#{ids\ 616}# #{id\ 612}#))
- (if (not (#{valid-bound-ids?\ 156}#
- #{ids\ 616}#))
+ #{p\ 3151}#)))))
+ (#{chi-local-syntax\ 2722}#
+ (lambda (#{rec?\ 3152}#
+ #{e\ 3153}#
+ #{r\ 3154}#
+ #{w\ 3155}#
+ #{s\ 3156}#
+ #{mod\ 3157}#
+ #{k\ 3158}#)
+ ((lambda (#{tmp\ 3159}#)
+ ((lambda (#{tmp\ 3160}#)
+ (if #{tmp\ 3160}#
+ (apply (lambda (#{_\ 3161}#
+ #{id\ 3162}#
+ #{val\ 3163}#
+ #{e1\ 3164}#
+ #{e2\ 3165}#)
+ (let ((#{ids\ 3166}# #{id\ 3162}#))
+ (if (not (#{valid-bound-ids?\ 2706}#
+ #{ids\ 3166}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 603}#)
- (let ((#{labels\ 618}#
- (#{gen-labels\ 137}#
- #{ids\ 616}#)))
- (let ((#{new-w\ 619}#
- (#{make-binding-wrap\ 148}#
- #{ids\ 616}#
- #{labels\ 618}#
- #{w\ 605}#)))
- (#{k\ 608}# (cons #{e1\ 614}#
- #{e2\ 615}#)
- (#{extend-env\ 125}#
- #{labels\ 618}#
- (let ((#{w\ 621}# (if #{rec?\ 602}#
- #{new-w\ 619}#
- #{w\ 605}#))
- (#{trans-r\ 622}#
- (#{macros-only-env\ 127}#
- #{r\ 604}#)))
- (map (lambda (#{x\ 623}#)
- (cons 'macro
- (#{eval-local-transformer\ 173}#
- (#{chi\ 167}#
- #{x\ 623}#
- #{trans-r\ 622}#
- #{w\ 621}#
- #{mod\ 607}#)
- #{mod\ 607}#)))
- #{val\ 613}#))
- #{r\ 604}#)
- #{new-w\ 619}#
- #{s\ 606}#
- #{mod\ 607}#))))))
- #{tmp\ 610}#)
- ((lambda (#{_\ 625}#)
+ #{e\ 3153}#)
+ (let ((#{labels\ 3168}#
+ (#{gen-labels\ 2687}#
+ #{ids\ 3166}#)))
+ (let ((#{new-w\ 3169}#
+ (#{make-binding-wrap\ 2698}#
+ #{ids\ 3166}#
+ #{labels\ 3168}#
+ #{w\ 3155}#)))
+ (#{k\ 3158}#
+ (cons #{e1\ 3164}# #{e2\ 3165}#)
+ (#{extend-env\ 2675}#
+ #{labels\ 3168}#
+ (let ((#{w\ 3171}#
+ (if #{rec?\ 3152}#
+ #{new-w\ 3169}#
+ #{w\ 3155}#))
+ (#{trans-r\ 3172}#
+ (#{macros-only-env\ 2677}#
+ #{r\ 3154}#)))
+ (map (lambda (#{x\ 3173}#)
+ (cons 'macro
+ (#{eval-local-transformer\ 2723}#
+ (#{chi\ 2717}#
+ #{x\ 3173}#
+ #{trans-r\ 3172}#
+ #{w\ 3171}#
+ #{mod\ 3157}#)
+ #{mod\ 3157}#)))
+ #{val\ 3163}#))
+ #{r\ 3154}#)
+ #{new-w\ 3169}#
+ #{s\ 3156}#
+ #{mod\ 3157}#))))))
+ #{tmp\ 3160}#)
+ ((lambda (#{_\ 3175}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 160}#
- #{e\ 603}#
- #{w\ 605}#
- #{s\ 606}#
- #{mod\ 607}#)))
- #{tmp\ 609}#)))
+ (#{source-wrap\ 2710}#
+ #{e\ 3153}#
+ #{w\ 3155}#
+ #{s\ 3156}#
+ #{mod\ 3157}#)))
+ #{tmp\ 3159}#)))
($sc-dispatch
- #{tmp\ 609}#
+ #{tmp\ 3159}#
'(any #(each (any any)) any . each-any))))
- #{e\ 603}#)))
- (#{chi-body\ 171}#
- (lambda (#{body\ 626}#
- #{outer-form\ 627}#
- #{r\ 628}#
- #{w\ 629}#
- #{mod\ 630}#)
- (let ((#{r\ 631}# (cons '("placeholder" placeholder)
- #{r\ 628}#)))
- (let ((#{ribcage\ 632}#
- (#{make-ribcage\ 138}#
+ #{e\ 3153}#)))
+ (#{chi-body\ 2721}#
+ (lambda (#{body\ 3176}#
+ #{outer-form\ 3177}#
+ #{r\ 3178}#
+ #{w\ 3179}#
+ #{mod\ 3180}#)
+ (let ((#{r\ 3181}#
+ (cons '("placeholder" placeholder)
+ #{r\ 3178}#)))
+ (let ((#{ribcage\ 3182}#
+ (#{make-ribcage\ 2688}#
'()
'()
'())))
- (let ((#{w\ 633}# (#{make-wrap\ 133}#
- (#{wrap-marks\ 134}# #{w\ 629}#)
- (cons #{ribcage\ 632}#
- (#{wrap-subst\ 135}#
- #{w\ 629}#)))))
- (letrec ((#{parse\ 634}#
- (lambda (#{body\ 635}#
- #{ids\ 636}#
- #{labels\ 637}#
- #{var-ids\ 638}#
- #{vars\ 639}#
- #{vals\ 640}#
- #{bindings\ 641}#)
- (if (null? #{body\ 635}#)
+ (let ((#{w\ 3183}#
+ (#{make-wrap\ 2683}#
+ (#{wrap-marks\ 2684}# #{w\ 3179}#)
+ (cons #{ribcage\ 3182}#
+ (#{wrap-subst\ 2685}# #{w\ 3179}#)))))
+ (letrec ((#{parse\ 3184}#
+ (lambda (#{body\ 3185}#
+ #{ids\ 3186}#
+ #{labels\ 3187}#
+ #{var-ids\ 3188}#
+ #{vars\ 3189}#
+ #{vals\ 3190}#
+ #{bindings\ 3191}#)
+ (if (null? #{body\ 3185}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 627}#)
- (let ((#{e\ 643}# (cdar #{body\ 635}#))
- (#{er\ 644}# (caar #{body\ 635}#)))
+ #{outer-form\ 3177}#)
+ (let ((#{e\ 3193}# (cdar #{body\ 3185}#))
+ (#{er\ 3194}# (caar #{body\ 3185}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 165}#
- #{e\ 643}#
- #{er\ 644}#
+ (#{syntax-type\ 2715}#
+ #{e\ 3193}#
+ #{er\ 3194}#
'(())
- (#{source-annotation\ 122}#
- #{er\ 644}#)
- #{ribcage\ 632}#
- #{mod\ 630}#
+ (#{source-annotation\ 2672}#
+ #{er\ 3194}#)
+ #{ribcage\ 3182}#
+ #{mod\ 3180}#
#f))
- (lambda (#{type\ 645}#
- #{value\ 646}#
- #{e\ 647}#
- #{w\ 648}#
- #{s\ 649}#
- #{mod\ 650}#)
- (if (memv #{type\ 645}#
+ (lambda (#{type\ 3195}#
+ #{value\ 3196}#
+ #{e\ 3197}#
+ #{w\ 3198}#
+ #{s\ 3199}#
+ #{mod\ 3200}#)
+ (if (memv #{type\ 3195}#
'(define-form))
- (let ((#{id\ 651}#
- (#{wrap\ 159}#
- #{value\ 646}#
- #{w\ 648}#
- #{mod\ 650}#))
- (#{label\ 652}#
- (#{gen-label\ 136}#)))
- (let ((#{var\ 653}#
- (#{gen-var\ 181}#
- #{id\ 651}#)))
+ (let ((#{id\ 3201}#
+ (#{wrap\ 2709}#
+ #{value\ 3196}#
+ #{w\ 3198}#
+ #{mod\ 3200}#))
+ (#{label\ 3202}#
+ (#{gen-label\ 2686}#)))
+ (let ((#{var\ 3203}#
+ (#{gen-var\ 2731}#
+ #{id\ 3201}#)))
(begin
- (#{extend-ribcage!\ 147}#
- #{ribcage\ 632}#
- #{id\ 651}#
- #{label\ 652}#)
- (#{parse\ 634}#
- (cdr #{body\ 635}#)
- (cons #{id\ 651}#
- #{ids\ 636}#)
- (cons #{label\ 652}#
- #{labels\ 637}#)
- (cons #{id\ 651}#
- #{var-ids\ 638}#)
- (cons #{var\ 653}#
- #{vars\ 639}#)
- (cons (cons #{er\ 644}#
- (#{wrap\ 159}#
- #{e\ 647}#
- #{w\ 648}#
- #{mod\ 650}#))
- #{vals\ 640}#)
+ (#{extend-ribcage!\ 2697}#
+ #{ribcage\ 3182}#
+ #{id\ 3201}#
+ #{label\ 3202}#)
+ (#{parse\ 3184}#
+ (cdr #{body\ 3185}#)
+ (cons #{id\ 3201}#
+ #{ids\ 3186}#)
+ (cons #{label\ 3202}#
+ #{labels\ 3187}#)
+ (cons #{id\ 3201}#
+ #{var-ids\ 3188}#)
+ (cons #{var\ 3203}#
+ #{vars\ 3189}#)
+ (cons (cons #{er\ 3194}#
+ (#{wrap\ 2709}#
+ #{e\ 3197}#
+ #{w\ 3198}#
+ #{mod\ 3200}#))
+ #{vals\ 3190}#)
(cons (cons 'lexical
- #{var\ 653}#)
- #{bindings\ 641}#)))))
- (if (memv #{type\ 645}#
+ #{var\ 3203}#)
+ #{bindings\ 3191}#)))))
+ (if (memv #{type\ 3195}#
'(define-syntax-form))
- (let ((#{id\ 654}#
- (#{wrap\ 159}#
- #{value\ 646}#
- #{w\ 648}#
- #{mod\ 650}#))
- (#{label\ 655}#
- (#{gen-label\ 136}#)))
+ (let ((#{id\ 3204}#
+ (#{wrap\ 2709}#
+ #{value\ 3196}#
+ #{w\ 3198}#
+ #{mod\ 3200}#))
+ (#{label\ 3205}#
+ (#{gen-label\ 2686}#)))
(begin
- (#{extend-ribcage!\ 147}#
- #{ribcage\ 632}#
- #{id\ 654}#
- #{label\ 655}#)
- (#{parse\ 634}#
- (cdr #{body\ 635}#)
- (cons #{id\ 654}#
- #{ids\ 636}#)
- (cons #{label\ 655}#
- #{labels\ 637}#)
- #{var-ids\ 638}#
- #{vars\ 639}#
- #{vals\ 640}#
+ (#{extend-ribcage!\ 2697}#
+ #{ribcage\ 3182}#
+ #{id\ 3204}#
+ #{label\ 3205}#)
+ (#{parse\ 3184}#
+ (cdr #{body\ 3185}#)
+ (cons #{id\ 3204}#
+ #{ids\ 3186}#)
+ (cons #{label\ 3205}#
+ #{labels\ 3187}#)
+ #{var-ids\ 3188}#
+ #{vars\ 3189}#
+ #{vals\ 3190}#
(cons (cons 'macro
- (cons #{er\ 644}#
- (#{wrap\ 159}#
- #{e\ 647}#
- #{w\ 648}#
- #{mod\ 650}#)))
- #{bindings\ 641}#))))
- (if (memv #{type\ 645}#
+ (cons #{er\ 3194}#
+ (#{wrap\ 2709}#
+ #{e\ 3197}#
+ #{w\ 3198}#
+ #{mod\ 3200}#)))
+ #{bindings\ 3191}#))))
+ (if (memv #{type\ 3195}#
'(begin-form))
- ((lambda (#{tmp\ 656}#)
- ((lambda (#{tmp\ 657}#)
- (if #{tmp\ 657}#
- (apply (lambda (#{_\ 658}#
- #{e1\ 659}#)
- (#{parse\ 634}#
- (letrec ((#{f\ 660}# (lambda (#{forms\ 661}#)
- (if (null? #{forms\ 661}#)
- (cdr #{body\ 635}#)
- (cons (cons #{er\ 644}#
- (#{wrap\ 159}#
- (car #{forms\ 661}#)
- #{w\ 648}#
- #{mod\ 650}#))
- (#{f\ 660}# (cdr #{forms\ 661}#)))))))
- (#{f\ 660}# #{e1\ 659}#))
- #{ids\ 636}#
- #{labels\ 637}#
- #{var-ids\ 638}#
- #{vars\ 639}#
- #{vals\ 640}#
- #{bindings\ 641}#))
- #{tmp\ 657}#)
+ ((lambda (#{tmp\ 3206}#)
+ ((lambda (#{tmp\ 3207}#)
+ (if #{tmp\ 3207}#
+ (apply (lambda (#{_\ 3208}#
+ #{e1\ 3209}#)
+ (#{parse\ 3184}#
+ (letrec ((#{f\ 3210}#
+ (lambda (#{forms\ 3211}#)
+ (if (null? #{forms\ 3211}#)
+ (cdr #{body\ 3185}#)
+ (cons (cons #{er\ 3194}#
+ (#{wrap\ 2709}#
+ (car #{forms\ 3211}#)
+ #{w\ 3198}#
+ #{mod\ 3200}#))
+ (#{f\ 3210}#
+ (cdr #{forms\ 3211}#)))))))
+ (#{f\ 3210}#
+ #{e1\ 3209}#))
+ #{ids\ 3186}#
+ #{labels\ 3187}#
+ #{var-ids\ 3188}#
+ #{vars\ 3189}#
+ #{vals\ 3190}#
+ #{bindings\ 3191}#))
+ #{tmp\ 3207}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 656}#)))
+ #{tmp\ 3206}#)))
($sc-dispatch
- #{tmp\ 656}#
+ #{tmp\ 3206}#
'(any . each-any))))
- #{e\ 647}#)
- (if (memv #{type\ 645}#
+ #{e\ 3197}#)
+ (if (memv #{type\ 3195}#
'(local-syntax-form))
- (#{chi-local-syntax\ 172}#
- #{value\ 646}#
- #{e\ 647}#
- #{er\ 644}#
- #{w\ 648}#
- #{s\ 649}#
- #{mod\ 650}#
- (lambda (#{forms\ 663}#
- #{er\ 664}#
- #{w\ 665}#
- #{s\ 666}#
- #{mod\ 667}#)
- (#{parse\ 634}#
- (letrec ((#{f\ 668}# (lambda (#{forms\ 669}#)
- (if (null? #{forms\ 669}#)
- (cdr #{body\ 635}#)
- (cons (cons #{er\ 664}#
- (#{wrap\ 159}#
- (car #{forms\ 669}#)
- #{w\ 665}#
- #{mod\ 667}#))
- (#{f\ 668}# (cdr #{forms\ 669}#)))))))
- (#{f\ 668}# #{forms\ 663}#))
- #{ids\ 636}#
- #{labels\ 637}#
- #{var-ids\ 638}#
- #{vars\ 639}#
- #{vals\ 640}#
- #{bindings\ 641}#)))
- (if (null? #{ids\ 636}#)
- (#{build-sequence\ 110}#
+ (#{chi-local-syntax\ 2722}#
+ #{value\ 3196}#
+ #{e\ 3197}#
+ #{er\ 3194}#
+ #{w\ 3198}#
+ #{s\ 3199}#
+ #{mod\ 3200}#
+ (lambda (#{forms\ 3213}#
+ #{er\ 3214}#
+ #{w\ 3215}#
+ #{s\ 3216}#
+ #{mod\ 3217}#)
+ (#{parse\ 3184}#
+ (letrec ((#{f\ 3218}#
+ (lambda (#{forms\ 3219}#)
+ (if (null? #{forms\ 3219}#)
+ (cdr #{body\ 3185}#)
+ (cons (cons #{er\ 3214}#
+ (#{wrap\ 2709}#
+ (car #{forms\ 3219}#)
+ #{w\ 3215}#
+ #{mod\ 3217}#))
+ (#{f\ 3218}#
+ (cdr #{forms\ 3219}#)))))))
+ (#{f\ 3218}#
+ #{forms\ 3213}#))
+ #{ids\ 3186}#
+ #{labels\ 3187}#
+ #{var-ids\ 3188}#
+ #{vars\ 3189}#
+ #{vals\ 3190}#
+ #{bindings\ 3191}#)))
+ (if (null? #{ids\ 3186}#)
+ (#{build-sequence\ 2660}#
#f
- (map (lambda (#{x\ 670}#)
- (#{chi\ 167}#
- (cdr #{x\ 670}#)
- (car #{x\ 670}#)
+ (map (lambda (#{x\ 3220}#)
+ (#{chi\ 2717}#
+ (cdr #{x\ 3220}#)
+ (car #{x\ 3220}#)
'(())
- #{mod\ 650}#))
- (cons (cons #{er\ 644}#
- (#{source-wrap\ 160}#
- #{e\ 647}#
- #{w\ 648}#
- #{s\ 649}#
- #{mod\ 650}#))
- (cdr #{body\ 635}#))))
+ #{mod\ 3200}#))
+ (cons (cons #{er\ 3194}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3197}#
+ #{w\ 3198}#
+ #{s\ 3199}#
+ #{mod\ 3200}#))
+ (cdr #{body\ 3185}#))))
(begin
- (if (not (#{valid-bound-ids?\ 156}#
- #{ids\ 636}#))
+ (if (not (#{valid-bound-ids?\ 2706}#
+ #{ids\ 3186}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 627}#))
- (letrec ((#{loop\ 671}#
- (lambda (#{bs\ 672}#
- #{er-cache\ 673}#
- #{r-cache\ 674}#)
- (if (not (null? #{bs\ 672}#))
- (let ((#{b\ 675}# (car #{bs\ 672}#)))
- (if (eq? (car #{b\ 675}#)
+ #{outer-form\ 3177}#))
+ (letrec ((#{loop\ 3221}#
+ (lambda (#{bs\ 3222}#
+ #{er-cache\ 3223}#
+ #{r-cache\ 3224}#)
+ (if (not (null? #{bs\ 3222}#))
+ (let ((#{b\ 3225}#
+ (car #{bs\ 3222}#)))
+ (if (eq? (car #{b\ 3225}#)
'macro)
- (let ((#{er\ 676}#
- (cadr #{b\ 675}#)))
- (let ((#{r-cache\ 677}#
- (if (eq? #{er\ 676}#
- #{er-cache\ 673}#)
- #{r-cache\ 674}#
- (#{macros-only-env\ 127}#
- #{er\ 676}#))))
+ (let ((#{er\ 3226}#
+ (cadr #{b\ 3225}#)))
+ (let ((#{r-cache\ 3227}#
+ (if (eq? #{er\ 3226}#
+ #{er-cache\ 3223}#)
+ #{r-cache\ 3224}#
+ (#{macros-only-env\ 2677}#
+ #{er\ 3226}#))))
(begin
(set-cdr!
- #{b\ 675}#
- (#{eval-local-transformer\ 173}#
- (#{chi\ 167}#
- (cddr #{b\ 675}#)
- #{r-cache\ 677}#
+ #{b\ 3225}#
+ (#{eval-local-transformer\ 2723}#
+ (#{chi\ 2717}#
+ (cddr #{b\ 3225}#)
+ #{r-cache\ 3227}#
'(())
- #{mod\ 650}#)
- #{mod\ 650}#))
- (#{loop\ 671}#
- (cdr #{bs\ 672}#)
- #{er\ 676}#
- #{r-cache\ 677}#))))
- (#{loop\ 671}#
- (cdr #{bs\ 672}#)
- #{er-cache\ 673}#
- #{r-cache\ 674}#)))))))
- (#{loop\ 671}#
- #{bindings\ 641}#
+ #{mod\ 3200}#)
+ #{mod\ 3200}#))
+ (#{loop\ 3221}#
+ (cdr #{bs\ 3222}#)
+ #{er\ 3226}#
+ #{r-cache\ 3227}#))))
+ (#{loop\ 3221}#
+ (cdr #{bs\ 3222}#)
+ #{er-cache\ 3223}#
+ #{r-cache\ 3224}#)))))))
+ (#{loop\ 3221}#
+ #{bindings\ 3191}#
#f
#f))
(set-cdr!
- #{r\ 631}#
- (#{extend-env\ 125}#
- #{labels\ 637}#
- #{bindings\ 641}#
- (cdr #{r\ 631}#)))
- (#{build-letrec\ 113}#
+ #{r\ 3181}#
+ (#{extend-env\ 2675}#
+ #{labels\ 3187}#
+ #{bindings\ 3191}#
+ (cdr #{r\ 3181}#)))
+ (#{build-letrec\ 2663}#
#f
(map syntax->datum
- #{var-ids\ 638}#)
- #{vars\ 639}#
- (map (lambda (#{x\ 678}#)
- (#{chi\ 167}#
- (cdr #{x\ 678}#)
- (car #{x\ 678}#)
+ #{var-ids\ 3188}#)
+ #{vars\ 3189}#
+ (map (lambda (#{x\ 3228}#)
+ (#{chi\ 2717}#
+ (cdr #{x\ 3228}#)
+ (car #{x\ 3228}#)
'(())
- #{mod\ 650}#))
- #{vals\ 640}#)
- (#{build-sequence\ 110}#
+ #{mod\ 3200}#))
+ #{vals\ 3190}#)
+ (#{build-sequence\ 2660}#
#f
- (map (lambda (#{x\ 679}#)
- (#{chi\ 167}#
- (cdr #{x\ 679}#)
- (car #{x\ 679}#)
+ (map (lambda (#{x\ 3229}#)
+ (#{chi\ 2717}#
+ (cdr #{x\ 3229}#)
+ (car #{x\ 3229}#)
'(())
- #{mod\ 650}#))
- (cons (cons #{er\ 644}#
- (#{source-wrap\ 160}#
- #{e\ 647}#
- #{w\ 648}#
- #{s\ 649}#
- #{mod\ 650}#))
- (cdr #{body\ 635}#))))))))))))))))))
- (#{parse\ 634}#
- (map (lambda (#{x\ 642}#)
- (cons #{r\ 631}#
- (#{wrap\ 159}#
- #{x\ 642}#
- #{w\ 633}#
- #{mod\ 630}#)))
- #{body\ 626}#)
+ #{mod\ 3200}#))
+ (cons (cons #{er\ 3194}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3197}#
+ #{w\ 3198}#
+ #{s\ 3199}#
+ #{mod\ 3200}#))
+ (cdr #{body\ 3185}#))))))))))))))))))
+ (#{parse\ 3184}#
+ (map (lambda (#{x\ 3192}#)
+ (cons #{r\ 3181}#
+ (#{wrap\ 2709}#
+ #{x\ 3192}#
+ #{w\ 3183}#
+ #{mod\ 3180}#)))
+ #{body\ 3176}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 170}#
- (lambda (#{p\ 680}#
- #{e\ 681}#
- #{r\ 682}#
- #{w\ 683}#
- #{rib\ 684}#
- #{mod\ 685}#)
- (letrec ((#{rebuild-macro-output\ 686}#
- (lambda (#{x\ 687}# #{m\ 688}#)
- (if (pair? #{x\ 687}#)
- (cons (#{rebuild-macro-output\ 686}#
- (car #{x\ 687}#)
- #{m\ 688}#)
- (#{rebuild-macro-output\ 686}#
- (cdr #{x\ 687}#)
- #{m\ 688}#))
- (if (#{syntax-object?\ 115}# #{x\ 687}#)
- (let ((#{w\ 689}# (#{syntax-object-wrap\ 117}#
- #{x\ 687}#)))
- (let ((#{ms\ 690}#
- (#{wrap-marks\ 134}# #{w\ 689}#))
- (#{s\ 691}# (#{wrap-subst\ 135}#
- #{w\ 689}#)))
- (if (if (pair? #{ms\ 690}#)
- (eq? (car #{ms\ 690}#) #f)
+ (#{chi-macro\ 2720}#
+ (lambda (#{p\ 3230}#
+ #{e\ 3231}#
+ #{r\ 3232}#
+ #{w\ 3233}#
+ #{rib\ 3234}#
+ #{mod\ 3235}#)
+ (letrec ((#{rebuild-macro-output\ 3236}#
+ (lambda (#{x\ 3237}# #{m\ 3238}#)
+ (if (pair? #{x\ 3237}#)
+ (cons (#{rebuild-macro-output\ 3236}#
+ (car #{x\ 3237}#)
+ #{m\ 3238}#)
+ (#{rebuild-macro-output\ 3236}#
+ (cdr #{x\ 3237}#)
+ #{m\ 3238}#))
+ (if (#{syntax-object?\ 2665}# #{x\ 3237}#)
+ (let ((#{w\ 3239}#
+ (#{syntax-object-wrap\ 2667}#
+ #{x\ 3237}#)))
+ (let ((#{ms\ 3240}#
+ (#{wrap-marks\ 2684}# #{w\ 3239}#))
+ (#{s\ 3241}#
+ (#{wrap-subst\ 2685}# #{w\ 3239}#)))
+ (if (if (pair? #{ms\ 3240}#)
+ (eq? (car #{ms\ 3240}#) #f)
#f)
- (#{make-syntax-object\ 114}#
- (#{syntax-object-expression\ 116}#
- #{x\ 687}#)
- (#{make-wrap\ 133}#
- (cdr #{ms\ 690}#)
- (if #{rib\ 684}#
- (cons #{rib\ 684}#
- (cdr #{s\ 691}#))
- (cdr #{s\ 691}#)))
- (#{syntax-object-module\ 118}#
- #{x\ 687}#))
- (#{make-syntax-object\ 114}#
- (#{syntax-object-expression\ 116}#
- #{x\ 687}#)
- (#{make-wrap\ 133}#
- (cons #{m\ 688}# #{ms\ 690}#)
- (if #{rib\ 684}#
- (cons #{rib\ 684}#
+ (#{make-syntax-object\ 2664}#
+ (#{syntax-object-expression\ 2666}#
+ #{x\ 3237}#)
+ (#{make-wrap\ 2683}#
+ (cdr #{ms\ 3240}#)
+ (if #{rib\ 3234}#
+ (cons #{rib\ 3234}#
+ (cdr #{s\ 3241}#))
+ (cdr #{s\ 3241}#)))
+ (#{syntax-object-module\ 2668}#
+ #{x\ 3237}#))
+ (#{make-syntax-object\ 2664}#
+ (#{syntax-object-expression\ 2666}#
+ #{x\ 3237}#)
+ (#{make-wrap\ 2683}#
+ (cons #{m\ 3238}# #{ms\ 3240}#)
+ (if #{rib\ 3234}#
+ (cons #{rib\ 3234}#
(cons 'shift
- #{s\ 691}#))
- (cons (quote shift) #{s\ 691}#)))
- (let ((#{pmod\ 692}#
- (procedure-module #{p\ 680}#)))
- (if #{pmod\ 692}#
+ #{s\ 3241}#))
+ (cons (quote shift) #{s\ 3241}#)))
+ (let ((#{pmod\ 3242}#
+ (procedure-module
+ #{p\ 3230}#)))
+ (if #{pmod\ 3242}#
(cons 'hygiene
- (module-name #{pmod\ 692}#))
+ (module-name #{pmod\ 3242}#))
'(hygiene guile)))))))
- (if (vector? #{x\ 687}#)
- (let ((#{n\ 693}# (vector-length
- #{x\ 687}#)))
- (let ((#{v\ 694}# (make-vector
- #{n\ 693}#)))
- (letrec ((#{loop\ 695}#
- (lambda (#{i\ 696}#)
- (if (#{fx=\ 88}#
- #{i\ 696}#
- #{n\ 693}#)
+ (if (vector? #{x\ 3237}#)
+ (let ((#{n\ 3243}#
+ (vector-length #{x\ 3237}#)))
+ (let ((#{v\ 3244}#
+ (make-vector #{n\ 3243}#)))
+ (letrec ((#{loop\ 3245}#
+ (lambda (#{i\ 3246}#)
+ (if (#{fx=\ 2638}#
+ #{i\ 3246}#
+ #{n\ 3243}#)
(begin
(if #f #f)
- #{v\ 694}#)
+ #{v\ 3244}#)
(begin
(vector-set!
- #{v\ 694}#
- #{i\ 696}#
- (#{rebuild-macro-output\ 686}#
+ #{v\ 3244}#
+ #{i\ 3246}#
+ (#{rebuild-macro-output\ 3236}#
(vector-ref
- #{x\ 687}#
- #{i\ 696}#)
- #{m\ 688}#))
- (#{loop\ 695}#
- (#{fx+\ 86}#
- #{i\ 696}#
+ #{x\ 3237}#
+ #{i\ 3246}#)
+ #{m\ 3238}#))
+ (#{loop\ 3245}#
+ (#{fx+\ 2636}#
+ #{i\ 3246}#
1)))))))
- (#{loop\ 695}# 0))))
- (if (symbol? #{x\ 687}#)
+ (#{loop\ 3245}# 0))))
+ (if (symbol? #{x\ 3237}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 160}#
- #{e\ 681}#
- #{w\ 683}#
- (#{wrap-subst\ 135}# #{w\ 683}#)
- #{mod\ 685}#)
- #{x\ 687}#)
- #{x\ 687}#)))))))
- (#{rebuild-macro-output\ 686}#
- (#{p\ 680}# (#{wrap\ 159}#
- #{e\ 681}#
- (#{anti-mark\ 146}# #{w\ 683}#)
- #{mod\ 685}#))
+ (#{source-wrap\ 2710}#
+ #{e\ 3231}#
+ #{w\ 3233}#
+ (#{wrap-subst\ 2685}# #{w\ 3233}#)
+ #{mod\ 3235}#)
+ #{x\ 3237}#)
+ #{x\ 3237}#)))))))
+ (#{rebuild-macro-output\ 3236}#
+ (#{p\ 3230}#
+ (#{wrap\ 2709}#
+ #{e\ 3231}#
+ (#{anti-mark\ 2696}# #{w\ 3233}#)
+ #{mod\ 3235}#))
(string #\m)))))
- (#{chi-application\ 169}#
- (lambda (#{x\ 697}#
- #{e\ 698}#
- #{r\ 699}#
- #{w\ 700}#
- #{s\ 701}#
- #{mod\ 702}#)
- ((lambda (#{tmp\ 703}#)
- ((lambda (#{tmp\ 704}#)
- (if #{tmp\ 704}#
- (apply (lambda (#{e0\ 705}# #{e1\ 706}#)
- (#{build-application\ 96}#
- #{s\ 701}#
- #{x\ 697}#
- (map (lambda (#{e\ 707}#)
- (#{chi\ 167}#
- #{e\ 707}#
- #{r\ 699}#
- #{w\ 700}#
- #{mod\ 702}#))
- #{e1\ 706}#)))
- #{tmp\ 704}#)
+ (#{chi-application\ 2719}#
+ (lambda (#{x\ 3247}#
+ #{e\ 3248}#
+ #{r\ 3249}#
+ #{w\ 3250}#
+ #{s\ 3251}#
+ #{mod\ 3252}#)
+ ((lambda (#{tmp\ 3253}#)
+ ((lambda (#{tmp\ 3254}#)
+ (if #{tmp\ 3254}#
+ (apply (lambda (#{e0\ 3255}# #{e1\ 3256}#)
+ (#{build-application\ 2646}#
+ #{s\ 3251}#
+ #{x\ 3247}#
+ (map (lambda (#{e\ 3257}#)
+ (#{chi\ 2717}#
+ #{e\ 3257}#
+ #{r\ 3249}#
+ #{w\ 3250}#
+ #{mod\ 3252}#))
+ #{e1\ 3256}#)))
+ #{tmp\ 3254}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 703}#)))
+ #{tmp\ 3253}#)))
($sc-dispatch
- #{tmp\ 703}#
+ #{tmp\ 3253}#
'(any . each-any))))
- #{e\ 698}#)))
- (#{chi-expr\ 168}#
- (lambda (#{type\ 709}#
- #{value\ 710}#
- #{e\ 711}#
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#)
- (if (memv #{type\ 709}# (quote (lexical)))
- (#{build-lexical-reference\ 98}#
+ #{e\ 3248}#)))
+ (#{chi-expr\ 2718}#
+ (lambda (#{type\ 3259}#
+ #{value\ 3260}#
+ #{e\ 3261}#
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#)
+ (if (memv #{type\ 3259}# (quote (lexical)))
+ (#{build-lexical-reference\ 2648}#
'value
- #{s\ 714}#
- #{e\ 711}#
- #{value\ 710}#)
- (if (memv #{type\ 709}# (quote (core core-form)))
- (#{value\ 710}#
- #{e\ 711}#
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#)
- (if (memv #{type\ 709}# (quote (module-ref)))
+ #{s\ 3264}#
+ #{e\ 3261}#
+ #{value\ 3260}#)
+ (if (memv #{type\ 3259}# (quote (core core-form)))
+ (#{value\ 3260}#
+ #{e\ 3261}#
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#)
+ (if (memv #{type\ 3259}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 710}# #{e\ 711}#))
- (lambda (#{id\ 716}# #{mod\ 717}#)
- (#{build-global-reference\ 101}#
- #{s\ 714}#
- #{id\ 716}#
- #{mod\ 717}#)))
- (if (memv #{type\ 709}# (quote (lexical-call)))
- (#{chi-application\ 169}#
- (#{build-lexical-reference\ 98}#
+ (lambda () (#{value\ 3260}# #{e\ 3261}#))
+ (lambda (#{id\ 3266}# #{mod\ 3267}#)
+ (#{build-global-reference\ 2651}#
+ #{s\ 3264}#
+ #{id\ 3266}#
+ #{mod\ 3267}#)))
+ (if (memv #{type\ 3259}# (quote (lexical-call)))
+ (#{chi-application\ 2719}#
+ (#{build-lexical-reference\ 2648}#
'fun
- (#{source-annotation\ 122}# (car #{e\ 711}#))
- (car #{e\ 711}#)
- #{value\ 710}#)
- #{e\ 711}#
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#)
- (if (memv #{type\ 709}# (quote (global-call)))
- (#{chi-application\ 169}#
- (#{build-global-reference\ 101}#
- (#{source-annotation\ 122}# (car #{e\ 711}#))
- (if (#{syntax-object?\ 115}# #{value\ 710}#)
- (#{syntax-object-expression\ 116}#
- #{value\ 710}#)
- #{value\ 710}#)
- (if (#{syntax-object?\ 115}# #{value\ 710}#)
- (#{syntax-object-module\ 118}# #{value\ 710}#)
- #{mod\ 715}#))
- #{e\ 711}#
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#)
- (if (memv #{type\ 709}# (quote (constant)))
- (#{build-data\ 109}#
- #{s\ 714}#
- (#{strip\ 180}#
- (#{source-wrap\ 160}#
- #{e\ 711}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#)
+ (#{source-annotation\ 2672}# (car #{e\ 3261}#))
+ (car #{e\ 3261}#)
+ #{value\ 3260}#)
+ #{e\ 3261}#
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#)
+ (if (memv #{type\ 3259}# (quote (global-call)))
+ (#{chi-application\ 2719}#
+ (#{build-global-reference\ 2651}#
+ (#{source-annotation\ 2672}# (car #{e\ 3261}#))
+ (if (#{syntax-object?\ 2665}# #{value\ 3260}#)
+ (#{syntax-object-expression\ 2666}#
+ #{value\ 3260}#)
+ #{value\ 3260}#)
+ (if (#{syntax-object?\ 2665}# #{value\ 3260}#)
+ (#{syntax-object-module\ 2668}# #{value\ 3260}#)
+ #{mod\ 3265}#))
+ #{e\ 3261}#
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#)
+ (if (memv #{type\ 3259}# (quote (constant)))
+ (#{build-data\ 2659}#
+ #{s\ 3264}#
+ (#{strip\ 2730}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3261}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#)
'(())))
- (if (memv #{type\ 709}# (quote (global)))
- (#{build-global-reference\ 101}#
- #{s\ 714}#
- #{value\ 710}#
- #{mod\ 715}#)
- (if (memv #{type\ 709}# (quote (call)))
- (#{chi-application\ 169}#
- (#{chi\ 167}#
- (car #{e\ 711}#)
- #{r\ 712}#
- #{w\ 713}#
- #{mod\ 715}#)
- #{e\ 711}#
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#)
- (if (memv #{type\ 709}# (quote (begin-form)))
- ((lambda (#{tmp\ 718}#)
- ((lambda (#{tmp\ 719}#)
- (if #{tmp\ 719}#
- (apply (lambda (#{_\ 720}#
- #{e1\ 721}#
- #{e2\ 722}#)
- (#{chi-sequence\ 161}#
- (cons #{e1\ 721}#
- #{e2\ 722}#)
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#))
- #{tmp\ 719}#)
+ (if (memv #{type\ 3259}# (quote (global)))
+ (#{build-global-reference\ 2651}#
+ #{s\ 3264}#
+ #{value\ 3260}#
+ #{mod\ 3265}#)
+ (if (memv #{type\ 3259}# (quote (call)))
+ (#{chi-application\ 2719}#
+ (#{chi\ 2717}#
+ (car #{e\ 3261}#)
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{mod\ 3265}#)
+ #{e\ 3261}#
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#)
+ (if (memv #{type\ 3259}# (quote (begin-form)))
+ ((lambda (#{tmp\ 3268}#)
+ ((lambda (#{tmp\ 3269}#)
+ (if #{tmp\ 3269}#
+ (apply (lambda (#{_\ 3270}#
+ #{e1\ 3271}#
+ #{e2\ 3272}#)
+ (#{chi-sequence\ 2711}#
+ (cons #{e1\ 3271}#
+ #{e2\ 3272}#)
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#))
+ #{tmp\ 3269}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 718}#)))
+ #{tmp\ 3268}#)))
($sc-dispatch
- #{tmp\ 718}#
+ #{tmp\ 3268}#
'(any any . each-any))))
- #{e\ 711}#)
- (if (memv #{type\ 709}#
+ #{e\ 3261}#)
+ (if (memv #{type\ 3259}#
'(local-syntax-form))
- (#{chi-local-syntax\ 172}#
- #{value\ 710}#
- #{e\ 711}#
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#
- #{chi-sequence\ 161}#)
- (if (memv #{type\ 709}#
+ (#{chi-local-syntax\ 2722}#
+ #{value\ 3260}#
+ #{e\ 3261}#
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#
+ #{chi-sequence\ 2711}#)
+ (if (memv #{type\ 3259}#
'(eval-when-form))
- ((lambda (#{tmp\ 724}#)
- ((lambda (#{tmp\ 725}#)
- (if #{tmp\ 725}#
- (apply (lambda (#{_\ 726}#
- #{x\ 727}#
- #{e1\ 728}#
- #{e2\ 729}#)
- (let ((#{when-list\ 730}#
- (#{chi-when-list\ 164}#
- #{e\ 711}#
- #{x\ 727}#
- #{w\ 713}#)))
+ ((lambda (#{tmp\ 3274}#)
+ ((lambda (#{tmp\ 3275}#)
+ (if #{tmp\ 3275}#
+ (apply (lambda (#{_\ 3276}#
+ #{x\ 3277}#
+ #{e1\ 3278}#
+ #{e2\ 3279}#)
+ (let ((#{when-list\ 3280}#
+ (#{chi-when-list\ 2714}#
+ #{e\ 3261}#
+ #{x\ 3277}#
+ #{w\ 3263}#)))
(if (memq 'eval
- #{when-list\ 730}#)
- (#{chi-sequence\ 161}#
- (cons #{e1\ 728}#
- #{e2\ 729}#)
- #{r\ 712}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#)
- (#{chi-void\ 174}#))))
- #{tmp\ 725}#)
+ #{when-list\ 3280}#)
+ (#{chi-sequence\ 2711}#
+ (cons #{e1\ 3278}#
+ #{e2\ 3279}#)
+ #{r\ 3262}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#)
+ (#{chi-void\ 2724}#))))
+ #{tmp\ 3275}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 724}#)))
+ #{tmp\ 3274}#)))
($sc-dispatch
- #{tmp\ 724}#
+ #{tmp\ 3274}#
'(any each-any any . each-any))))
- #{e\ 711}#)
- (if (memv #{type\ 709}#
+ #{e\ 3261}#)
+ (if (memv #{type\ 3259}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 711}#
- (#{wrap\ 159}#
- #{value\ 710}#
- #{w\ 713}#
- #{mod\ 715}#))
- (if (memv #{type\ 709}#
+ #{e\ 3261}#
+ (#{wrap\ 2709}#
+ #{value\ 3260}#
+ #{w\ 3263}#
+ #{mod\ 3265}#))
+ (if (memv #{type\ 3259}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 160}#
- #{e\ 711}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#))
- (if (memv #{type\ 709}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3261}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#))
+ (if (memv #{type\ 3259}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 160}#
- #{e\ 711}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#))
+ (#{source-wrap\ 2710}#
+ #{e\ 3261}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 160}#
- #{e\ 711}#
- #{w\ 713}#
- #{s\ 714}#
- #{mod\ 715}#))))))))))))))))))
- (#{chi\ 167}#
- (lambda (#{e\ 733}# #{r\ 734}# #{w\ 735}# #{mod\ 736}#)
+ (#{source-wrap\ 2710}#
+ #{e\ 3261}#
+ #{w\ 3263}#
+ #{s\ 3264}#
+ #{mod\ 3265}#))))))))))))))))))
+ (#{chi\ 2717}#
+ (lambda (#{e\ 3283}#
+ #{r\ 3284}#
+ #{w\ 3285}#
+ #{mod\ 3286}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 165}#
- #{e\ 733}#
- #{r\ 734}#
- #{w\ 735}#
- (#{source-annotation\ 122}# #{e\ 733}#)
+ (#{syntax-type\ 2715}#
+ #{e\ 3283}#
+ #{r\ 3284}#
+ #{w\ 3285}#
+ (#{source-annotation\ 2672}# #{e\ 3283}#)
#f
- #{mod\ 736}#
+ #{mod\ 3286}#
#f))
- (lambda (#{type\ 737}#
- #{value\ 738}#
- #{e\ 739}#
- #{w\ 740}#
- #{s\ 741}#
- #{mod\ 742}#)
- (#{chi-expr\ 168}#
- #{type\ 737}#
- #{value\ 738}#
- #{e\ 739}#
- #{r\ 734}#
- #{w\ 740}#
- #{s\ 741}#
- #{mod\ 742}#)))))
- (#{chi-top\ 166}#
- (lambda (#{e\ 743}#
- #{r\ 744}#
- #{w\ 745}#
- #{m\ 746}#
- #{esew\ 747}#
- #{mod\ 748}#)
+ (lambda (#{type\ 3287}#
+ #{value\ 3288}#
+ #{e\ 3289}#
+ #{w\ 3290}#
+ #{s\ 3291}#
+ #{mod\ 3292}#)
+ (#{chi-expr\ 2718}#
+ #{type\ 3287}#
+ #{value\ 3288}#
+ #{e\ 3289}#
+ #{r\ 3284}#
+ #{w\ 3290}#
+ #{s\ 3291}#
+ #{mod\ 3292}#)))))
+ (#{chi-top\ 2716}#
+ (lambda (#{e\ 3293}#
+ #{r\ 3294}#
+ #{w\ 3295}#
+ #{m\ 3296}#
+ #{esew\ 3297}#
+ #{mod\ 3298}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 165}#
- #{e\ 743}#
- #{r\ 744}#
- #{w\ 745}#
- (#{source-annotation\ 122}# #{e\ 743}#)
+ (#{syntax-type\ 2715}#
+ #{e\ 3293}#
+ #{r\ 3294}#
+ #{w\ 3295}#
+ (#{source-annotation\ 2672}# #{e\ 3293}#)
#f
- #{mod\ 748}#
+ #{mod\ 3298}#
#f))
- (lambda (#{type\ 756}#
- #{value\ 757}#
- #{e\ 758}#
- #{w\ 759}#
- #{s\ 760}#
- #{mod\ 761}#)
- (if (memv #{type\ 756}# (quote (begin-form)))
- ((lambda (#{tmp\ 762}#)
- ((lambda (#{tmp\ 763}#)
- (if #{tmp\ 763}#
- (apply (lambda (#{_\ 764}#) (#{chi-void\ 174}#))
- #{tmp\ 763}#)
- ((lambda (#{tmp\ 765}#)
- (if #{tmp\ 765}#
- (apply (lambda (#{_\ 766}#
- #{e1\ 767}#
- #{e2\ 768}#)
- (#{chi-top-sequence\ 162}#
- (cons #{e1\ 767}# #{e2\ 768}#)
- #{r\ 744}#
- #{w\ 759}#
- #{s\ 760}#
- #{m\ 746}#
- #{esew\ 747}#
- #{mod\ 761}#))
- #{tmp\ 765}#)
+ (lambda (#{type\ 3306}#
+ #{value\ 3307}#
+ #{e\ 3308}#
+ #{w\ 3309}#
+ #{s\ 3310}#
+ #{mod\ 3311}#)
+ (if (memv #{type\ 3306}# (quote (begin-form)))
+ ((lambda (#{tmp\ 3312}#)
+ ((lambda (#{tmp\ 3313}#)
+ (if #{tmp\ 3313}#
+ (apply (lambda (#{_\ 3314}#) (#{chi-void\ 2724}#))
+ #{tmp\ 3313}#)
+ ((lambda (#{tmp\ 3315}#)
+ (if #{tmp\ 3315}#
+ (apply (lambda (#{_\ 3316}#
+ #{e1\ 3317}#
+ #{e2\ 3318}#)
+ (#{chi-top-sequence\ 2712}#
+ (cons #{e1\ 3317}# #{e2\ 3318}#)
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{s\ 3310}#
+ #{m\ 3296}#
+ #{esew\ 3297}#
+ #{mod\ 3311}#))
+ #{tmp\ 3315}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 762}#)))
+ #{tmp\ 3312}#)))
($sc-dispatch
- #{tmp\ 762}#
+ #{tmp\ 3312}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 762}# (quote (any)))))
- #{e\ 758}#)
- (if (memv #{type\ 756}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 172}#
- #{value\ 757}#
- #{e\ 758}#
- #{r\ 744}#
- #{w\ 759}#
- #{s\ 760}#
- #{mod\ 761}#
- (lambda (#{body\ 770}#
- #{r\ 771}#
- #{w\ 772}#
- #{s\ 773}#
- #{mod\ 774}#)
- (#{chi-top-sequence\ 162}#
- #{body\ 770}#
- #{r\ 771}#
- #{w\ 772}#
- #{s\ 773}#
- #{m\ 746}#
- #{esew\ 747}#
- #{mod\ 774}#)))
- (if (memv #{type\ 756}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 775}#)
- ((lambda (#{tmp\ 776}#)
- (if #{tmp\ 776}#
- (apply (lambda (#{_\ 777}#
- #{x\ 778}#
- #{e1\ 779}#
- #{e2\ 780}#)
- (let ((#{when-list\ 781}#
- (#{chi-when-list\ 164}#
- #{e\ 758}#
- #{x\ 778}#
- #{w\ 759}#))
- (#{body\ 782}#
- (cons #{e1\ 779}#
- #{e2\ 780}#)))
- (if (eq? #{m\ 746}# (quote e))
+ ($sc-dispatch #{tmp\ 3312}# (quote (any)))))
+ #{e\ 3308}#)
+ (if (memv #{type\ 3306}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 2722}#
+ #{value\ 3307}#
+ #{e\ 3308}#
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{s\ 3310}#
+ #{mod\ 3311}#
+ (lambda (#{body\ 3320}#
+ #{r\ 3321}#
+ #{w\ 3322}#
+ #{s\ 3323}#
+ #{mod\ 3324}#)
+ (#{chi-top-sequence\ 2712}#
+ #{body\ 3320}#
+ #{r\ 3321}#
+ #{w\ 3322}#
+ #{s\ 3323}#
+ #{m\ 3296}#
+ #{esew\ 3297}#
+ #{mod\ 3324}#)))
+ (if (memv #{type\ 3306}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 3325}#)
+ ((lambda (#{tmp\ 3326}#)
+ (if #{tmp\ 3326}#
+ (apply (lambda (#{_\ 3327}#
+ #{x\ 3328}#
+ #{e1\ 3329}#
+ #{e2\ 3330}#)
+ (let ((#{when-list\ 3331}#
+ (#{chi-when-list\ 2714}#
+ #{e\ 3308}#
+ #{x\ 3328}#
+ #{w\ 3309}#))
+ (#{body\ 3332}#
+ (cons #{e1\ 3329}#
+ #{e2\ 3330}#)))
+ (if (eq? #{m\ 3296}# (quote e))
(if (memq 'eval
- #{when-list\ 781}#)
- (#{chi-top-sequence\ 162}#
- #{body\ 782}#
- #{r\ 744}#
- #{w\ 759}#
- #{s\ 760}#
+ #{when-list\ 3331}#)
+ (#{chi-top-sequence\ 2712}#
+ #{body\ 3332}#
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{s\ 3310}#
'e
'(eval)
- #{mod\ 761}#)
- (#{chi-void\ 174}#))
+ #{mod\ 3311}#)
+ (#{chi-void\ 2724}#))
(if (memq 'load
- #{when-list\ 781}#)
- (if (let ((#{t\ 785}# (memq 'compile
- #{when-list\ 781}#)))
- (if #{t\ 785}#
- #{t\ 785}#
- (if (eq? #{m\ 746}#
+ #{when-list\ 3331}#)
+ (if (let ((#{t\ 3335}#
+ (memq 'compile
+ #{when-list\ 3331}#)))
+ (if #{t\ 3335}#
+ #{t\ 3335}#
+ (if (eq? #{m\ 3296}#
'c&e)
(memq 'eval
- #{when-list\ 781}#)
+ #{when-list\ 3331}#)
#f)))
- (#{chi-top-sequence\ 162}#
- #{body\ 782}#
- #{r\ 744}#
- #{w\ 759}#
- #{s\ 760}#
+ (#{chi-top-sequence\ 2712}#
+ #{body\ 3332}#
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{s\ 3310}#
'c&e
'(compile load)
- #{mod\ 761}#)
- (if (memq #{m\ 746}#
+ #{mod\ 3311}#)
+ (if (memq #{m\ 3296}#
'(c c&e))
- (#{chi-top-sequence\ 162}#
- #{body\ 782}#
- #{r\ 744}#
- #{w\ 759}#
- #{s\ 760}#
+ (#{chi-top-sequence\ 2712}#
+ #{body\ 3332}#
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{s\ 3310}#
'c
'(load)
- #{mod\ 761}#)
- (#{chi-void\ 174}#)))
- (if (let ((#{t\ 786}# (memq 'compile
- #{when-list\ 781}#)))
- (if #{t\ 786}#
- #{t\ 786}#
- (if (eq? #{m\ 746}#
+ #{mod\ 3311}#)
+ (#{chi-void\ 2724}#)))
+ (if (let ((#{t\ 3336}#
+ (memq 'compile
+ #{when-list\ 3331}#)))
+ (if #{t\ 3336}#
+ #{t\ 3336}#
+ (if (eq? #{m\ 3296}#
'c&e)
(memq 'eval
- #{when-list\ 781}#)
+ #{when-list\ 3331}#)
#f)))
(begin
- (#{top-level-eval-hook\ 90}#
- (#{chi-top-sequence\ 162}#
- #{body\ 782}#
- #{r\ 744}#
- #{w\ 759}#
- #{s\ 760}#
+ (#{top-level-eval-hook\ 2640}#
+ (#{chi-top-sequence\ 2712}#
+ #{body\ 3332}#
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{s\ 3310}#
'e
'(eval)
- #{mod\ 761}#)
- #{mod\ 761}#)
- (#{chi-void\ 174}#))
- (#{chi-void\ 174}#))))))
- #{tmp\ 776}#)
+ #{mod\ 3311}#)
+ #{mod\ 3311}#)
+ (#{chi-void\ 2724}#))
+ (#{chi-void\ 2724}#))))))
+ #{tmp\ 3326}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 775}#)))
+ #{tmp\ 3325}#)))
($sc-dispatch
- #{tmp\ 775}#
+ #{tmp\ 3325}#
'(any each-any any . each-any))))
- #{e\ 758}#)
- (if (memv #{type\ 756}# (quote (define-syntax-form)))
- (let ((#{n\ 787}# (#{id-var-name\ 153}#
- #{value\ 757}#
- #{w\ 759}#))
- (#{r\ 788}# (#{macros-only-env\ 127}#
- #{r\ 744}#)))
- (if (memv #{m\ 746}# (quote (c)))
- (if (memq (quote compile) #{esew\ 747}#)
- (let ((#{e\ 789}# (#{chi-install-global\ 163}#
- #{n\ 787}#
- (#{chi\ 167}#
- #{e\ 758}#
- #{r\ 788}#
- #{w\ 759}#
- #{mod\ 761}#))))
+ #{e\ 3308}#)
+ (if (memv #{type\ 3306}#
+ '(define-syntax-form))
+ (let ((#{n\ 3337}#
+ (#{id-var-name\ 2703}#
+ #{value\ 3307}#
+ #{w\ 3309}#))
+ (#{r\ 3338}#
+ (#{macros-only-env\ 2677}# #{r\ 3294}#)))
+ (if (memv #{m\ 3296}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 3297}#)
+ (let ((#{e\ 3339}#
+ (#{chi-install-global\ 2713}#
+ #{n\ 3337}#
+ (#{chi\ 2717}#
+ #{e\ 3308}#
+ #{r\ 3338}#
+ #{w\ 3309}#
+ #{mod\ 3311}#))))
(begin
- (#{top-level-eval-hook\ 90}#
- #{e\ 789}#
- #{mod\ 761}#)
- (if (memq (quote load) #{esew\ 747}#)
- #{e\ 789}#
- (#{chi-void\ 174}#))))
- (if (memq (quote load) #{esew\ 747}#)
- (#{chi-install-global\ 163}#
- #{n\ 787}#
- (#{chi\ 167}#
- #{e\ 758}#
- #{r\ 788}#
- #{w\ 759}#
- #{mod\ 761}#))
- (#{chi-void\ 174}#)))
- (if (memv #{m\ 746}# (quote (c&e)))
- (let ((#{e\ 790}# (#{chi-install-global\ 163}#
- #{n\ 787}#
- (#{chi\ 167}#
- #{e\ 758}#
- #{r\ 788}#
- #{w\ 759}#
- #{mod\ 761}#))))
+ (#{top-level-eval-hook\ 2640}#
+ #{e\ 3339}#
+ #{mod\ 3311}#)
+ (if (memq (quote load) #{esew\ 3297}#)
+ #{e\ 3339}#
+ (#{chi-void\ 2724}#))))
+ (if (memq (quote load) #{esew\ 3297}#)
+ (#{chi-install-global\ 2713}#
+ #{n\ 3337}#
+ (#{chi\ 2717}#
+ #{e\ 3308}#
+ #{r\ 3338}#
+ #{w\ 3309}#
+ #{mod\ 3311}#))
+ (#{chi-void\ 2724}#)))
+ (if (memv #{m\ 3296}# (quote (c&e)))
+ (let ((#{e\ 3340}#
+ (#{chi-install-global\ 2713}#
+ #{n\ 3337}#
+ (#{chi\ 2717}#
+ #{e\ 3308}#
+ #{r\ 3338}#
+ #{w\ 3309}#
+ #{mod\ 3311}#))))
(begin
- (#{top-level-eval-hook\ 90}#
- #{e\ 790}#
- #{mod\ 761}#)
- #{e\ 790}#))
+ (#{top-level-eval-hook\ 2640}#
+ #{e\ 3340}#
+ #{mod\ 3311}#)
+ #{e\ 3340}#))
(begin
- (if (memq (quote eval) #{esew\ 747}#)
- (#{top-level-eval-hook\ 90}#
- (#{chi-install-global\ 163}#
- #{n\ 787}#
- (#{chi\ 167}#
- #{e\ 758}#
- #{r\ 788}#
- #{w\ 759}#
- #{mod\ 761}#))
- #{mod\ 761}#))
- (#{chi-void\ 174}#)))))
- (if (memv #{type\ 756}# (quote (define-form)))
- (let ((#{n\ 791}# (#{id-var-name\ 153}#
- #{value\ 757}#
- #{w\ 759}#)))
- (let ((#{type\ 792}#
- (#{binding-type\ 123}#
- (#{lookup\ 128}#
- #{n\ 791}#
- #{r\ 744}#
- #{mod\ 761}#))))
- (if (memv #{type\ 792}#
+ (if (memq (quote eval) #{esew\ 3297}#)
+ (#{top-level-eval-hook\ 2640}#
+ (#{chi-install-global\ 2713}#
+ #{n\ 3337}#
+ (#{chi\ 2717}#
+ #{e\ 3308}#
+ #{r\ 3338}#
+ #{w\ 3309}#
+ #{mod\ 3311}#))
+ #{mod\ 3311}#))
+ (#{chi-void\ 2724}#)))))
+ (if (memv #{type\ 3306}# (quote (define-form)))
+ (let ((#{n\ 3341}#
+ (#{id-var-name\ 2703}#
+ #{value\ 3307}#
+ #{w\ 3309}#)))
+ (let ((#{type\ 3342}#
+ (#{binding-type\ 2673}#
+ (#{lookup\ 2678}#
+ #{n\ 3341}#
+ #{r\ 3294}#
+ #{mod\ 3311}#))))
+ (if (memv #{type\ 3342}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 791}#))
+ #{n\ 3341}#))
(current-module)
#f)
- (let ((#{old\ 793}#
+ (let ((#{old\ 3343}#
(module-variable
(current-module)
- #{n\ 791}#)))
+ #{n\ 3341}#)))
(module-define!
(current-module)
- #{n\ 791}#
- (if (variable? #{old\ 793}#)
- (variable-ref #{old\ 793}#)
+ #{n\ 3341}#
+ (if (variable? #{old\ 3343}#)
+ (variable-ref #{old\ 3343}#)
#f))))
- (let ((#{x\ 794}# (#{build-global-definition\ 104}#
- #{s\ 760}#
- #{n\ 791}#
- (#{chi\ 167}#
- #{e\ 758}#
- #{r\ 744}#
- #{w\ 759}#
- #{mod\ 761}#))))
+ (let ((#{x\ 3344}#
+ (#{build-global-definition\ 2654}#
+ #{s\ 3310}#
+ #{n\ 3341}#
+ (#{chi\ 2717}#
+ #{e\ 3308}#
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{mod\ 3311}#))))
(begin
- (if (eq? #{m\ 746}# (quote c&e))
- (#{top-level-eval-hook\ 90}#
- #{x\ 794}#
- #{mod\ 761}#))
- #{x\ 794}#)))
- (if (memv #{type\ 792}#
+ (if (eq? #{m\ 3296}# (quote c&e))
+ (#{top-level-eval-hook\ 2640}#
+ #{x\ 3344}#
+ #{mod\ 3311}#))
+ #{x\ 3344}#)))
+ (if (memv #{type\ 3342}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 758}#
- (#{wrap\ 159}#
- #{value\ 757}#
- #{w\ 759}#
- #{mod\ 761}#))
+ #{e\ 3308}#
+ (#{wrap\ 2709}#
+ #{value\ 3307}#
+ #{w\ 3309}#
+ #{mod\ 3311}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 758}#
- (#{wrap\ 159}#
- #{value\ 757}#
- #{w\ 759}#
- #{mod\ 761}#))))))
- (let ((#{x\ 795}# (#{chi-expr\ 168}#
- #{type\ 756}#
- #{value\ 757}#
- #{e\ 758}#
- #{r\ 744}#
- #{w\ 759}#
- #{s\ 760}#
- #{mod\ 761}#)))
+ #{e\ 3308}#
+ (#{wrap\ 2709}#
+ #{value\ 3307}#
+ #{w\ 3309}#
+ #{mod\ 3311}#))))))
+ (let ((#{x\ 3345}#
+ (#{chi-expr\ 2718}#
+ #{type\ 3306}#
+ #{value\ 3307}#
+ #{e\ 3308}#
+ #{r\ 3294}#
+ #{w\ 3309}#
+ #{s\ 3310}#
+ #{mod\ 3311}#)))
(begin
- (if (eq? #{m\ 746}# (quote c&e))
- (#{top-level-eval-hook\ 90}#
- #{x\ 795}#
- #{mod\ 761}#))
- #{x\ 795}#)))))))))))
- (#{syntax-type\ 165}#
- (lambda (#{e\ 796}#
- #{r\ 797}#
- #{w\ 798}#
- #{s\ 799}#
- #{rib\ 800}#
- #{mod\ 801}#
- #{for-car?\ 802}#)
- (if (symbol? #{e\ 796}#)
- (let ((#{n\ 803}# (#{id-var-name\ 153}#
- #{e\ 796}#
- #{w\ 798}#)))
- (let ((#{b\ 804}# (#{lookup\ 128}#
- #{n\ 803}#
- #{r\ 797}#
- #{mod\ 801}#)))
- (let ((#{type\ 805}#
- (#{binding-type\ 123}# #{b\ 804}#)))
- (if (memv #{type\ 805}# (quote (lexical)))
+ (if (eq? #{m\ 3296}# (quote c&e))
+ (#{top-level-eval-hook\ 2640}#
+ #{x\ 3345}#
+ #{mod\ 3311}#))
+ #{x\ 3345}#)))))))))))
+ (#{syntax-type\ 2715}#
+ (lambda (#{e\ 3346}#
+ #{r\ 3347}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{rib\ 3350}#
+ #{mod\ 3351}#
+ #{for-car?\ 3352}#)
+ (if (symbol? #{e\ 3346}#)
+ (let ((#{n\ 3353}#
+ (#{id-var-name\ 2703}# #{e\ 3346}# #{w\ 3348}#)))
+ (let ((#{b\ 3354}#
+ (#{lookup\ 2678}#
+ #{n\ 3353}#
+ #{r\ 3347}#
+ #{mod\ 3351}#)))
+ (let ((#{type\ 3355}#
+ (#{binding-type\ 2673}# #{b\ 3354}#)))
+ (if (memv #{type\ 3355}# (quote (lexical)))
(values
- #{type\ 805}#
- (#{binding-value\ 124}# #{b\ 804}#)
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{type\ 805}# (quote (global)))
+ #{type\ 3355}#
+ (#{binding-value\ 2674}# #{b\ 3354}#)
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{type\ 3355}# (quote (global)))
(values
- #{type\ 805}#
- #{n\ 803}#
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{type\ 805}# (quote (macro)))
- (if #{for-car?\ 802}#
+ #{type\ 3355}#
+ #{n\ 3353}#
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{type\ 3355}# (quote (macro)))
+ (if #{for-car?\ 3352}#
(values
- #{type\ 805}#
- (#{binding-value\ 124}# #{b\ 804}#)
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (#{syntax-type\ 165}#
- (#{chi-macro\ 170}#
- (#{binding-value\ 124}# #{b\ 804}#)
- #{e\ 796}#
- #{r\ 797}#
- #{w\ 798}#
- #{rib\ 800}#
- #{mod\ 801}#)
- #{r\ 797}#
+ #{type\ 3355}#
+ (#{binding-value\ 2674}# #{b\ 3354}#)
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (#{syntax-type\ 2715}#
+ (#{chi-macro\ 2720}#
+ (#{binding-value\ 2674}# #{b\ 3354}#)
+ #{e\ 3346}#
+ #{r\ 3347}#
+ #{w\ 3348}#
+ #{rib\ 3350}#
+ #{mod\ 3351}#)
+ #{r\ 3347}#
'(())
- #{s\ 799}#
- #{rib\ 800}#
- #{mod\ 801}#
+ #{s\ 3349}#
+ #{rib\ 3350}#
+ #{mod\ 3351}#
#f))
(values
- #{type\ 805}#
- (#{binding-value\ 124}# #{b\ 804}#)
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)))))))
- (if (pair? #{e\ 796}#)
- (let ((#{first\ 806}# (car #{e\ 796}#)))
+ #{type\ 3355}#
+ (#{binding-value\ 2674}# #{b\ 3354}#)
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)))))))
+ (if (pair? #{e\ 3346}#)
+ (let ((#{first\ 3356}# (car #{e\ 3346}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 165}#
- #{first\ 806}#
- #{r\ 797}#
- #{w\ 798}#
- #{s\ 799}#
- #{rib\ 800}#
- #{mod\ 801}#
+ (#{syntax-type\ 2715}#
+ #{first\ 3356}#
+ #{r\ 3347}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{rib\ 3350}#
+ #{mod\ 3351}#
#t))
- (lambda (#{ftype\ 807}#
- #{fval\ 808}#
- #{fe\ 809}#
- #{fw\ 810}#
- #{fs\ 811}#
- #{fmod\ 812}#)
- (if (memv #{ftype\ 807}# (quote (lexical)))
+ (lambda (#{ftype\ 3357}#
+ #{fval\ 3358}#
+ #{fe\ 3359}#
+ #{fw\ 3360}#
+ #{fs\ 3361}#
+ #{fmod\ 3362}#)
+ (if (memv #{ftype\ 3357}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 808}#
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{ftype\ 807}# (quote (global)))
+ #{fval\ 3358}#
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{ftype\ 3357}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 114}#
- #{fval\ 808}#
- #{w\ 798}#
- #{fmod\ 812}#)
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{ftype\ 807}# (quote (macro)))
- (#{syntax-type\ 165}#
- (#{chi-macro\ 170}#
- #{fval\ 808}#
- #{e\ 796}#
- #{r\ 797}#
- #{w\ 798}#
- #{rib\ 800}#
- #{mod\ 801}#)
- #{r\ 797}#
+ (#{make-syntax-object\ 2664}#
+ #{fval\ 3358}#
+ #{w\ 3348}#
+ #{fmod\ 3362}#)
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{ftype\ 3357}# (quote (macro)))
+ (#{syntax-type\ 2715}#
+ (#{chi-macro\ 2720}#
+ #{fval\ 3358}#
+ #{e\ 3346}#
+ #{r\ 3347}#
+ #{w\ 3348}#
+ #{rib\ 3350}#
+ #{mod\ 3351}#)
+ #{r\ 3347}#
'(())
- #{s\ 799}#
- #{rib\ 800}#
- #{mod\ 801}#
- #{for-car?\ 802}#)
- (if (memv #{ftype\ 807}# (quote (module-ref)))
+ #{s\ 3349}#
+ #{rib\ 3350}#
+ #{mod\ 3351}#
+ #{for-car?\ 3352}#)
+ (if (memv #{ftype\ 3357}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 808}# #{e\ 796}#))
- (lambda (#{sym\ 813}# #{mod\ 814}#)
- (#{syntax-type\ 165}#
- #{sym\ 813}#
- #{r\ 797}#
- #{w\ 798}#
- #{s\ 799}#
- #{rib\ 800}#
- #{mod\ 814}#
- #{for-car?\ 802}#)))
- (if (memv #{ftype\ 807}# (quote (core)))
+ (lambda () (#{fval\ 3358}# #{e\ 3346}#))
+ (lambda (#{sym\ 3363}# #{mod\ 3364}#)
+ (#{syntax-type\ 2715}#
+ #{sym\ 3363}#
+ #{r\ 3347}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{rib\ 3350}#
+ #{mod\ 3364}#
+ #{for-car?\ 3352}#)))
+ (if (memv #{ftype\ 3357}# (quote (core)))
(values
'core-form
- #{fval\ 808}#
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{ftype\ 807}#
+ #{fval\ 3358}#
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{ftype\ 3357}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 808}#
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{ftype\ 807}# (quote (begin)))
+ #{fval\ 3358}#
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{ftype\ 3357}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{ftype\ 807}#
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{ftype\ 3357}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
- (if (memv #{ftype\ 807}#
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
+ (if (memv #{ftype\ 3357}#
'(define))
- ((lambda (#{tmp\ 815}#)
- ((lambda (#{tmp\ 816}#)
- (if (if #{tmp\ 816}#
- (apply (lambda (#{_\ 817}#
- #{name\ 818}#
- #{val\ 819}#)
- (#{id?\ 131}#
- #{name\ 818}#))
- #{tmp\ 816}#)
+ ((lambda (#{tmp\ 3365}#)
+ ((lambda (#{tmp\ 3366}#)
+ (if (if #{tmp\ 3366}#
+ (apply (lambda (#{_\ 3367}#
+ #{name\ 3368}#
+ #{val\ 3369}#)
+ (#{id?\ 2681}#
+ #{name\ 3368}#))
+ #{tmp\ 3366}#)
#f)
- (apply (lambda (#{_\ 820}#
- #{name\ 821}#
- #{val\ 822}#)
+ (apply (lambda (#{_\ 3370}#
+ #{name\ 3371}#
+ #{val\ 3372}#)
(values
'define-form
- #{name\ 821}#
- #{val\ 822}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#))
- #{tmp\ 816}#)
- ((lambda (#{tmp\ 823}#)
- (if (if #{tmp\ 823}#
- (apply (lambda (#{_\ 824}#
- #{name\ 825}#
- #{args\ 826}#
- #{e1\ 827}#
- #{e2\ 828}#)
- (if (#{id?\ 131}#
- #{name\ 825}#)
- (#{valid-bound-ids?\ 156}#
- (#{lambda-var-list\ 182}#
- #{args\ 826}#))
+ #{name\ 3371}#
+ #{val\ 3372}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#))
+ #{tmp\ 3366}#)
+ ((lambda (#{tmp\ 3373}#)
+ (if (if #{tmp\ 3373}#
+ (apply (lambda (#{_\ 3374}#
+ #{name\ 3375}#
+ #{args\ 3376}#
+ #{e1\ 3377}#
+ #{e2\ 3378}#)
+ (if (#{id?\ 2681}#
+ #{name\ 3375}#)
+ (#{valid-bound-ids?\ 2706}#
+ (#{lambda-var-list\ 2732}#
+ #{args\ 3376}#))
#f))
- #{tmp\ 823}#)
+ #{tmp\ 3373}#)
#f)
- (apply (lambda (#{_\ 829}#
- #{name\ 830}#
- #{args\ 831}#
- #{e1\ 832}#
- #{e2\ 833}#)
+ (apply (lambda (#{_\ 3379}#
+ #{name\ 3380}#
+ #{args\ 3381}#
+ #{e1\ 3382}#
+ #{e2\ 3383}#)
(values
'define-form
- (#{wrap\ 159}#
- #{name\ 830}#
- #{w\ 798}#
- #{mod\ 801}#)
- (#{decorate-source\ 94}#
+ (#{wrap\ 2709}#
+ #{name\ 3380}#
+ #{w\ 3348}#
+ #{mod\ 3351}#)
+ (#{decorate-source\ 2644}#
(cons '#(syntax-object
lambda
((top)
@@ -3973,33 +4009,33 @@
"i")))
(hygiene
guile))
- (#{wrap\ 159}#
- (cons #{args\ 831}#
- (cons #{e1\ 832}#
- #{e2\ 833}#))
- #{w\ 798}#
- #{mod\ 801}#))
- #{s\ 799}#)
+ (#{wrap\ 2709}#
+ (cons #{args\ 3381}#
+ (cons #{e1\ 3382}#
+ #{e2\ 3383}#))
+ #{w\ 3348}#
+ #{mod\ 3351}#))
+ #{s\ 3349}#)
'(())
- #{s\ 799}#
- #{mod\ 801}#))
- #{tmp\ 823}#)
- ((lambda (#{tmp\ 835}#)
- (if (if #{tmp\ 835}#
- (apply (lambda (#{_\ 836}#
- #{name\ 837}#)
- (#{id?\ 131}#
- #{name\ 837}#))
- #{tmp\ 835}#)
+ #{s\ 3349}#
+ #{mod\ 3351}#))
+ #{tmp\ 3373}#)
+ ((lambda (#{tmp\ 3385}#)
+ (if (if #{tmp\ 3385}#
+ (apply (lambda (#{_\ 3386}#
+ #{name\ 3387}#)
+ (#{id?\ 2681}#
+ #{name\ 3387}#))
+ #{tmp\ 3385}#)
#f)
- (apply (lambda (#{_\ 838}#
- #{name\ 839}#)
+ (apply (lambda (#{_\ 3388}#
+ #{name\ 3389}#)
(values
'define-form
- (#{wrap\ 159}#
- #{name\ 839}#
- #{w\ 798}#
- #{mod\ 801}#)
+ (#{wrap\ 2709}#
+ #{name\ 3389}#
+ #{w\ 3348}#
+ #{mod\ 3351}#)
'(#(syntax-object
if
((top)
@@ -5321,3624 +5357,3556 @@
(hygiene
guile)))
'(())
- #{s\ 799}#
- #{mod\ 801}#))
- #{tmp\ 835}#)
+ #{s\ 3349}#
+ #{mod\ 3351}#))
+ #{tmp\ 3385}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 815}#)))
+ #{tmp\ 3365}#)))
($sc-dispatch
- #{tmp\ 815}#
+ #{tmp\ 3365}#
'(any any)))))
($sc-dispatch
- #{tmp\ 815}#
+ #{tmp\ 3365}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 815}#
+ #{tmp\ 3365}#
'(any any any))))
- #{e\ 796}#)
- (if (memv #{ftype\ 807}#
+ #{e\ 3346}#)
+ (if (memv #{ftype\ 3357}#
'(define-syntax))
- ((lambda (#{tmp\ 840}#)
- ((lambda (#{tmp\ 841}#)
- (if (if #{tmp\ 841}#
- (apply (lambda (#{_\ 842}#
- #{name\ 843}#
- #{val\ 844}#)
- (#{id?\ 131}#
- #{name\ 843}#))
- #{tmp\ 841}#)
+ ((lambda (#{tmp\ 3390}#)
+ ((lambda (#{tmp\ 3391}#)
+ (if (if #{tmp\ 3391}#
+ (apply (lambda (#{_\ 3392}#
+ #{name\ 3393}#
+ #{val\ 3394}#)
+ (#{id?\ 2681}#
+ #{name\ 3393}#))
+ #{tmp\ 3391}#)
#f)
- (apply (lambda (#{_\ 845}#
- #{name\ 846}#
- #{val\ 847}#)
+ (apply (lambda (#{_\ 3395}#
+ #{name\ 3396}#
+ #{val\ 3397}#)
(values
'define-syntax-form
- #{name\ 846}#
- #{val\ 847}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#))
- #{tmp\ 841}#)
+ #{name\ 3396}#
+ #{val\ 3397}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#))
+ #{tmp\ 3391}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 840}#)))
+ #{tmp\ 3390}#)))
($sc-dispatch
- #{tmp\ 840}#
+ #{tmp\ 3390}#
'(any any any))))
- #{e\ 796}#)
+ #{e\ 3346}#)
(values
'call
#f
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#))))))))))))))
- (if (#{syntax-object?\ 115}# #{e\ 796}#)
- (#{syntax-type\ 165}#
- (#{syntax-object-expression\ 116}# #{e\ 796}#)
- #{r\ 797}#
- (#{join-wraps\ 150}#
- #{w\ 798}#
- (#{syntax-object-wrap\ 117}# #{e\ 796}#))
- #{s\ 799}#
- #{rib\ 800}#
- (let ((#{t\ 848}# (#{syntax-object-module\ 118}#
- #{e\ 796}#)))
- (if #{t\ 848}# #{t\ 848}# #{mod\ 801}#))
- #{for-car?\ 802}#)
- (if (self-evaluating? #{e\ 796}#)
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#))))))))))))))
+ (if (#{syntax-object?\ 2665}# #{e\ 3346}#)
+ (#{syntax-type\ 2715}#
+ (#{syntax-object-expression\ 2666}# #{e\ 3346}#)
+ #{r\ 3347}#
+ (#{join-wraps\ 2700}#
+ #{w\ 3348}#
+ (#{syntax-object-wrap\ 2667}# #{e\ 3346}#))
+ #{s\ 3349}#
+ #{rib\ 3350}#
+ (let ((#{t\ 3398}#
+ (#{syntax-object-module\ 2668}# #{e\ 3346}#)))
+ (if #{t\ 3398}# #{t\ 3398}# #{mod\ 3351}#))
+ #{for-car?\ 3352}#)
+ (if (self-evaluating? #{e\ 3346}#)
(values
'constant
#f
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)
(values
'other
#f
- #{e\ 796}#
- #{w\ 798}#
- #{s\ 799}#
- #{mod\ 801}#)))))))
- (#{chi-when-list\ 164}#
- (lambda (#{e\ 849}# #{when-list\ 850}# #{w\ 851}#)
- (letrec ((#{f\ 852}# (lambda (#{when-list\ 853}#
- #{situations\ 854}#)
- (if (null? #{when-list\ 853}#)
- #{situations\ 854}#
- (#{f\ 852}# (cdr #{when-list\ 853}#)
- (cons (let ((#{x\ 855}# (car #{when-list\ 853}#)))
- (if (#{free-id=?\ 154}#
- #{x\ 855}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i"
- "i"
- "i"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- when-list
- w)
- #((top)
- (top)
- (top))
- #("i"
- "i"
- "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure
- and-map*)
- ((top)
- (top))
- ("i"
- "i")))
- (hygiene
- guile)))
- 'compile
- (if (#{free-id=?\ 154}#
- #{x\ 855}#
- '#(syntax-object
- load
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i"
- "i"
- "i"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- when-list
- w)
- #((top)
- (top)
- (top))
- #("i"
- "i"
- "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure
- and-map*)
- ((top)
- (top))
- ("i"
- "i")))
- (hygiene
- guile)))
- 'load
- (if (#{free-id=?\ 154}#
- #{x\ 855}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i"
- "i"
- "i"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- when-list
- w)
- #((top)
- (top)
- (top))
- #("i"
- "i"
- "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure
- and-map*)
- ((top)
- (top))
- ("i"
- "i")))
- (hygiene
- guile)))
- 'eval
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e\ 849}#
- (#{wrap\ 159}#
- #{x\ 855}#
- #{w\ 851}#
- #f))))))
- #{situations\ 854}#))))))
- (#{f\ 852}# #{when-list\ 850}# (quote ())))))
- (#{chi-install-global\ 163}#
- (lambda (#{name\ 856}# #{e\ 857}#)
- (#{build-global-definition\ 104}#
+ #{e\ 3346}#
+ #{w\ 3348}#
+ #{s\ 3349}#
+ #{mod\ 3351}#)))))))
+ (#{chi-when-list\ 2714}#
+ (lambda (#{e\ 3399}# #{when-list\ 3400}# #{w\ 3401}#)
+ (letrec ((#{f\ 3402}#
+ (lambda (#{when-list\ 3403}# #{situations\ 3404}#)
+ (if (null? #{when-list\ 3403}#)
+ #{situations\ 3404}#
+ (#{f\ 3402}#
+ (cdr #{when-list\ 3403}#)
+ (cons (let ((#{x\ 3405}#
+ (car #{when-list\ 3403}#)))
+ (if (#{free-id=?\ 2704}#
+ #{x\ 3405}#
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i" "i" "i"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i" "i" "i"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ noexpand)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"))
+ #(ribcage
+ (define-structure and-map*)
+ ((top) (top))
+ ("i" "i")))
+ (hygiene guile)))
+ 'compile
+ (if (#{free-id=?\ 2704}#
+ #{x\ 3405}#
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i" "i" "i"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i" "i" "i"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ noexpand)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top) (top))
+ ("i" "i")))
+ (hygiene guile)))
+ 'load
+ (if (#{free-id=?\ 2704}#
+ #{x\ 3405}#
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i" "i" "i"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i" "i" "i"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ chi-top
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ maybe-name-value!
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-conditional
+ build-application
+ build-void
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ *mode*
+ noexpand)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top) (top))
+ ("i" "i")))
+ (hygiene guile)))
+ 'eval
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e\ 3399}#
+ (#{wrap\ 2709}#
+ #{x\ 3405}#
+ #{w\ 3401}#
+ #f))))))
+ #{situations\ 3404}#))))))
+ (#{f\ 3402}# #{when-list\ 3400}# (quote ())))))
+ (#{chi-install-global\ 2713}#
+ (lambda (#{name\ 3406}# #{e\ 3407}#)
+ (#{build-global-definition\ 2654}#
#f
- #{name\ 856}#
- (if (let ((#{v\ 858}# (module-variable
- (current-module)
- #{name\ 856}#)))
- (if #{v\ 858}#
- (if (variable-bound? #{v\ 858}#)
- (if (macro? (variable-ref #{v\ 858}#))
- (not (eq? (macro-type (variable-ref #{v\ 858}#))
+ #{name\ 3406}#
+ (if (let ((#{v\ 3408}#
+ (module-variable
+ (current-module)
+ #{name\ 3406}#)))
+ (if #{v\ 3408}#
+ (if (variable-bound? #{v\ 3408}#)
+ (if (macro? (variable-ref #{v\ 3408}#))
+ (not (eq? (macro-type (variable-ref #{v\ 3408}#))
'syncase-macro))
#f)
#f)
#f))
- (#{build-application\ 96}#
+ (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}#
+ (#{build-primref\ 2658}#
#f
'make-extended-syncase-macro)
- (list (#{build-application\ 96}#
+ (list (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}# #f (quote module-ref))
- (list (#{build-application\ 96}#
+ (#{build-primref\ 2658}# #f (quote module-ref))
+ (list (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}#
+ (#{build-primref\ 2658}#
#f
'current-module)
'())
- (#{build-data\ 109}# #f #{name\ 856}#)))
- (#{build-data\ 109}# #f (quote macro))
- #{e\ 857}#))
- (#{build-application\ 96}#
+ (#{build-data\ 2659}# #f #{name\ 3406}#)))
+ (#{build-data\ 2659}# #f (quote macro))
+ #{e\ 3407}#))
+ (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}#
+ (#{build-primref\ 2658}#
#f
'make-syncase-macro)
- (list (#{build-data\ 109}# #f (quote macro))
- #{e\ 857}#))))))
- (#{chi-top-sequence\ 162}#
- (lambda (#{body\ 859}#
- #{r\ 860}#
- #{w\ 861}#
- #{s\ 862}#
- #{m\ 863}#
- #{esew\ 864}#
- #{mod\ 865}#)
- (#{build-sequence\ 110}#
- #{s\ 862}#
- (letrec ((#{dobody\ 866}#
- (lambda (#{body\ 867}#
- #{r\ 868}#
- #{w\ 869}#
- #{m\ 870}#
- #{esew\ 871}#
- #{mod\ 872}#)
- (if (null? #{body\ 867}#)
+ (list (#{build-data\ 2659}# #f (quote macro))
+ #{e\ 3407}#))))))
+ (#{chi-top-sequence\ 2712}#
+ (lambda (#{body\ 3409}#
+ #{r\ 3410}#
+ #{w\ 3411}#
+ #{s\ 3412}#
+ #{m\ 3413}#
+ #{esew\ 3414}#
+ #{mod\ 3415}#)
+ (#{build-sequence\ 2660}#
+ #{s\ 3412}#
+ (letrec ((#{dobody\ 3416}#
+ (lambda (#{body\ 3417}#
+ #{r\ 3418}#
+ #{w\ 3419}#
+ #{m\ 3420}#
+ #{esew\ 3421}#
+ #{mod\ 3422}#)
+ (if (null? #{body\ 3417}#)
'()
- (let ((#{first\ 873}#
- (#{chi-top\ 166}#
- (car #{body\ 867}#)
- #{r\ 868}#
- #{w\ 869}#
- #{m\ 870}#
- #{esew\ 871}#
- #{mod\ 872}#)))
- (cons #{first\ 873}#
- (#{dobody\ 866}#
- (cdr #{body\ 867}#)
- #{r\ 868}#
- #{w\ 869}#
- #{m\ 870}#
- #{esew\ 871}#
- #{mod\ 872}#)))))))
- (#{dobody\ 866}#
- #{body\ 859}#
- #{r\ 860}#
- #{w\ 861}#
- #{m\ 863}#
- #{esew\ 864}#
- #{mod\ 865}#)))))
- (#{chi-sequence\ 161}#
- (lambda (#{body\ 874}#
- #{r\ 875}#
- #{w\ 876}#
- #{s\ 877}#
- #{mod\ 878}#)
- (#{build-sequence\ 110}#
- #{s\ 877}#
- (letrec ((#{dobody\ 879}#
- (lambda (#{body\ 880}#
- #{r\ 881}#
- #{w\ 882}#
- #{mod\ 883}#)
- (if (null? #{body\ 880}#)
+ (let ((#{first\ 3423}#
+ (#{chi-top\ 2716}#
+ (car #{body\ 3417}#)
+ #{r\ 3418}#
+ #{w\ 3419}#
+ #{m\ 3420}#
+ #{esew\ 3421}#
+ #{mod\ 3422}#)))
+ (cons #{first\ 3423}#
+ (#{dobody\ 3416}#
+ (cdr #{body\ 3417}#)
+ #{r\ 3418}#
+ #{w\ 3419}#
+ #{m\ 3420}#
+ #{esew\ 3421}#
+ #{mod\ 3422}#)))))))
+ (#{dobody\ 3416}#
+ #{body\ 3409}#
+ #{r\ 3410}#
+ #{w\ 3411}#
+ #{m\ 3413}#
+ #{esew\ 3414}#
+ #{mod\ 3415}#)))))
+ (#{chi-sequence\ 2711}#
+ (lambda (#{body\ 3424}#
+ #{r\ 3425}#
+ #{w\ 3426}#
+ #{s\ 3427}#
+ #{mod\ 3428}#)
+ (#{build-sequence\ 2660}#
+ #{s\ 3427}#
+ (letrec ((#{dobody\ 3429}#
+ (lambda (#{body\ 3430}#
+ #{r\ 3431}#
+ #{w\ 3432}#
+ #{mod\ 3433}#)
+ (if (null? #{body\ 3430}#)
'()
- (let ((#{first\ 884}#
- (#{chi\ 167}#
- (car #{body\ 880}#)
- #{r\ 881}#
- #{w\ 882}#
- #{mod\ 883}#)))
- (cons #{first\ 884}#
- (#{dobody\ 879}#
- (cdr #{body\ 880}#)
- #{r\ 881}#
- #{w\ 882}#
- #{mod\ 883}#)))))))
- (#{dobody\ 879}#
- #{body\ 874}#
- #{r\ 875}#
- #{w\ 876}#
- #{mod\ 878}#)))))
- (#{source-wrap\ 160}#
- (lambda (#{x\ 885}#
- #{w\ 886}#
- #{s\ 887}#
- #{defmod\ 888}#)
- (#{wrap\ 159}#
- (#{decorate-source\ 94}# #{x\ 885}# #{s\ 887}#)
- #{w\ 886}#
- #{defmod\ 888}#)))
- (#{wrap\ 159}#
- (lambda (#{x\ 889}# #{w\ 890}# #{defmod\ 891}#)
- (if (if (null? (#{wrap-marks\ 134}# #{w\ 890}#))
- (null? (#{wrap-subst\ 135}# #{w\ 890}#))
+ (let ((#{first\ 3434}#
+ (#{chi\ 2717}#
+ (car #{body\ 3430}#)
+ #{r\ 3431}#
+ #{w\ 3432}#
+ #{mod\ 3433}#)))
+ (cons #{first\ 3434}#
+ (#{dobody\ 3429}#
+ (cdr #{body\ 3430}#)
+ #{r\ 3431}#
+ #{w\ 3432}#
+ #{mod\ 3433}#)))))))
+ (#{dobody\ 3429}#
+ #{body\ 3424}#
+ #{r\ 3425}#
+ #{w\ 3426}#
+ #{mod\ 3428}#)))))
+ (#{source-wrap\ 2710}#
+ (lambda (#{x\ 3435}#
+ #{w\ 3436}#
+ #{s\ 3437}#
+ #{defmod\ 3438}#)
+ (#{wrap\ 2709}#
+ (#{decorate-source\ 2644}#
+ #{x\ 3435}#
+ #{s\ 3437}#)
+ #{w\ 3436}#
+ #{defmod\ 3438}#)))
+ (#{wrap\ 2709}#
+ (lambda (#{x\ 3439}# #{w\ 3440}# #{defmod\ 3441}#)
+ (if (if (null? (#{wrap-marks\ 2684}# #{w\ 3440}#))
+ (null? (#{wrap-subst\ 2685}# #{w\ 3440}#))
#f)
- #{x\ 889}#
- (if (#{syntax-object?\ 115}# #{x\ 889}#)
- (#{make-syntax-object\ 114}#
- (#{syntax-object-expression\ 116}# #{x\ 889}#)
- (#{join-wraps\ 150}#
- #{w\ 890}#
- (#{syntax-object-wrap\ 117}# #{x\ 889}#))
- (#{syntax-object-module\ 118}# #{x\ 889}#))
- (if (null? #{x\ 889}#)
- #{x\ 889}#
- (#{make-syntax-object\ 114}#
- #{x\ 889}#
- #{w\ 890}#
- #{defmod\ 891}#))))))
- (#{bound-id-member?\ 158}#
- (lambda (#{x\ 892}# #{list\ 893}#)
- (if (not (null? #{list\ 893}#))
- (let ((#{t\ 894}# (#{bound-id=?\ 155}#
- #{x\ 892}#
- (car #{list\ 893}#))))
- (if #{t\ 894}#
- #{t\ 894}#
- (#{bound-id-member?\ 158}#
- #{x\ 892}#
- (cdr #{list\ 893}#))))
+ #{x\ 3439}#
+ (if (#{syntax-object?\ 2665}# #{x\ 3439}#)
+ (#{make-syntax-object\ 2664}#
+ (#{syntax-object-expression\ 2666}# #{x\ 3439}#)
+ (#{join-wraps\ 2700}#
+ #{w\ 3440}#
+ (#{syntax-object-wrap\ 2667}# #{x\ 3439}#))
+ (#{syntax-object-module\ 2668}# #{x\ 3439}#))
+ (if (null? #{x\ 3439}#)
+ #{x\ 3439}#
+ (#{make-syntax-object\ 2664}#
+ #{x\ 3439}#
+ #{w\ 3440}#
+ #{defmod\ 3441}#))))))
+ (#{bound-id-member?\ 2708}#
+ (lambda (#{x\ 3442}# #{list\ 3443}#)
+ (if (not (null? #{list\ 3443}#))
+ (let ((#{t\ 3444}#
+ (#{bound-id=?\ 2705}#
+ #{x\ 3442}#
+ (car #{list\ 3443}#))))
+ (if #{t\ 3444}#
+ #{t\ 3444}#
+ (#{bound-id-member?\ 2708}#
+ #{x\ 3442}#
+ (cdr #{list\ 3443}#))))
#f)))
- (#{distinct-bound-ids?\ 157}#
- (lambda (#{ids\ 895}#)
- (letrec ((#{distinct?\ 896}#
- (lambda (#{ids\ 897}#)
- (let ((#{t\ 898}# (null? #{ids\ 897}#)))
- (if #{t\ 898}#
- #{t\ 898}#
- (if (not (#{bound-id-member?\ 158}#
- (car #{ids\ 897}#)
- (cdr #{ids\ 897}#)))
- (#{distinct?\ 896}# (cdr #{ids\ 897}#))
+ (#{distinct-bound-ids?\ 2707}#
+ (lambda (#{ids\ 3445}#)
+ (letrec ((#{distinct?\ 3446}#
+ (lambda (#{ids\ 3447}#)
+ (let ((#{t\ 3448}# (null? #{ids\ 3447}#)))
+ (if #{t\ 3448}#
+ #{t\ 3448}#
+ (if (not (#{bound-id-member?\ 2708}#
+ (car #{ids\ 3447}#)
+ (cdr #{ids\ 3447}#)))
+ (#{distinct?\ 3446}# (cdr #{ids\ 3447}#))
#f))))))
- (#{distinct?\ 896}# #{ids\ 895}#))))
- (#{valid-bound-ids?\ 156}#
- (lambda (#{ids\ 899}#)
- (if (letrec ((#{all-ids?\ 900}#
- (lambda (#{ids\ 901}#)
- (let ((#{t\ 902}# (null? #{ids\ 901}#)))
- (if #{t\ 902}#
- #{t\ 902}#
- (if (#{id?\ 131}# (car #{ids\ 901}#))
- (#{all-ids?\ 900}# (cdr #{ids\ 901}#))
+ (#{distinct?\ 3446}# #{ids\ 3445}#))))
+ (#{valid-bound-ids?\ 2706}#
+ (lambda (#{ids\ 3449}#)
+ (if (letrec ((#{all-ids?\ 3450}#
+ (lambda (#{ids\ 3451}#)
+ (let ((#{t\ 3452}# (null? #{ids\ 3451}#)))
+ (if #{t\ 3452}#
+ #{t\ 3452}#
+ (if (#{id?\ 2681}# (car #{ids\ 3451}#))
+ (#{all-ids?\ 3450}# (cdr #{ids\ 3451}#))
#f))))))
- (#{all-ids?\ 900}# #{ids\ 899}#))
- (#{distinct-bound-ids?\ 157}# #{ids\ 899}#)
+ (#{all-ids?\ 3450}# #{ids\ 3449}#))
+ (#{distinct-bound-ids?\ 2707}# #{ids\ 3449}#)
#f)))
- (#{bound-id=?\ 155}#
- (lambda (#{i\ 903}# #{j\ 904}#)
- (if (if (#{syntax-object?\ 115}# #{i\ 903}#)
- (#{syntax-object?\ 115}# #{j\ 904}#)
+ (#{bound-id=?\ 2705}#
+ (lambda (#{i\ 3453}# #{j\ 3454}#)
+ (if (if (#{syntax-object?\ 2665}# #{i\ 3453}#)
+ (#{syntax-object?\ 2665}# #{j\ 3454}#)
#f)
- (if (eq? (#{syntax-object-expression\ 116}# #{i\ 903}#)
- (#{syntax-object-expression\ 116}# #{j\ 904}#))
- (#{same-marks?\ 152}#
- (#{wrap-marks\ 134}#
- (#{syntax-object-wrap\ 117}# #{i\ 903}#))
- (#{wrap-marks\ 134}#
- (#{syntax-object-wrap\ 117}# #{j\ 904}#)))
+ (if (eq? (#{syntax-object-expression\ 2666}# #{i\ 3453}#)
+ (#{syntax-object-expression\ 2666}# #{j\ 3454}#))
+ (#{same-marks?\ 2702}#
+ (#{wrap-marks\ 2684}#
+ (#{syntax-object-wrap\ 2667}# #{i\ 3453}#))
+ (#{wrap-marks\ 2684}#
+ (#{syntax-object-wrap\ 2667}# #{j\ 3454}#)))
#f)
- (eq? #{i\ 903}# #{j\ 904}#))))
- (#{free-id=?\ 154}#
- (lambda (#{i\ 905}# #{j\ 906}#)
- (if (eq? (let ((#{x\ 907}# #{i\ 905}#))
- (if (#{syntax-object?\ 115}# #{x\ 907}#)
- (#{syntax-object-expression\ 116}# #{x\ 907}#)
- #{x\ 907}#))
- (let ((#{x\ 908}# #{j\ 906}#))
- (if (#{syntax-object?\ 115}# #{x\ 908}#)
- (#{syntax-object-expression\ 116}# #{x\ 908}#)
- #{x\ 908}#)))
- (eq? (#{id-var-name\ 153}# #{i\ 905}# (quote (())))
- (#{id-var-name\ 153}# #{j\ 906}# (quote (()))))
+ (eq? #{i\ 3453}# #{j\ 3454}#))))
+ (#{free-id=?\ 2704}#
+ (lambda (#{i\ 3455}# #{j\ 3456}#)
+ (if (eq? (let ((#{x\ 3457}# #{i\ 3455}#))
+ (if (#{syntax-object?\ 2665}# #{x\ 3457}#)
+ (#{syntax-object-expression\ 2666}# #{x\ 3457}#)
+ #{x\ 3457}#))
+ (let ((#{x\ 3458}# #{j\ 3456}#))
+ (if (#{syntax-object?\ 2665}# #{x\ 3458}#)
+ (#{syntax-object-expression\ 2666}# #{x\ 3458}#)
+ #{x\ 3458}#)))
+ (eq? (#{id-var-name\ 2703}# #{i\ 3455}# (quote (())))
+ (#{id-var-name\ 2703}# #{j\ 3456}# (quote (()))))
#f)))
- (#{id-var-name\ 153}#
- (lambda (#{id\ 909}# #{w\ 910}#)
- (letrec ((#{search-vector-rib\ 913}#
- (lambda (#{sym\ 919}#
- #{subst\ 920}#
- #{marks\ 921}#
- #{symnames\ 922}#
- #{ribcage\ 923}#)
- (let ((#{n\ 924}# (vector-length
- #{symnames\ 922}#)))
- (letrec ((#{f\ 925}# (lambda (#{i\ 926}#)
- (if (#{fx=\ 88}#
- #{i\ 926}#
- #{n\ 924}#)
- (#{search\ 911}#
- #{sym\ 919}#
- (cdr #{subst\ 920}#)
- #{marks\ 921}#)
- (if (if (eq? (vector-ref
- #{symnames\ 922}#
- #{i\ 926}#)
- #{sym\ 919}#)
- (#{same-marks?\ 152}#
- #{marks\ 921}#
- (vector-ref
- (#{ribcage-marks\ 141}#
- #{ribcage\ 923}#)
- #{i\ 926}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels\ 142}#
- #{ribcage\ 923}#)
- #{i\ 926}#)
- #{marks\ 921}#)
- (#{f\ 925}# (#{fx+\ 86}#
- #{i\ 926}#
- 1)))))))
- (#{f\ 925}# 0)))))
- (#{search-list-rib\ 912}#
- (lambda (#{sym\ 927}#
- #{subst\ 928}#
- #{marks\ 929}#
- #{symnames\ 930}#
- #{ribcage\ 931}#)
- (letrec ((#{f\ 932}# (lambda (#{symnames\ 933}#
- #{i\ 934}#)
- (if (null? #{symnames\ 933}#)
- (#{search\ 911}#
- #{sym\ 927}#
- (cdr #{subst\ 928}#)
- #{marks\ 929}#)
- (if (if (eq? (car #{symnames\ 933}#)
- #{sym\ 927}#)
- (#{same-marks?\ 152}#
- #{marks\ 929}#
- (list-ref
- (#{ribcage-marks\ 141}#
- #{ribcage\ 931}#)
- #{i\ 934}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels\ 142}#
- #{ribcage\ 931}#)
- #{i\ 934}#)
- #{marks\ 929}#)
- (#{f\ 932}# (cdr #{symnames\ 933}#)
- (#{fx+\ 86}#
- #{i\ 934}#
- 1)))))))
- (#{f\ 932}# #{symnames\ 930}# 0))))
- (#{search\ 911}#
- (lambda (#{sym\ 935}# #{subst\ 936}# #{marks\ 937}#)
- (if (null? #{subst\ 936}#)
- (values #f #{marks\ 937}#)
- (let ((#{fst\ 938}# (car #{subst\ 936}#)))
- (if (eq? #{fst\ 938}# (quote shift))
- (#{search\ 911}#
- #{sym\ 935}#
- (cdr #{subst\ 936}#)
- (cdr #{marks\ 937}#))
- (let ((#{symnames\ 939}#
- (#{ribcage-symnames\ 140}#
- #{fst\ 938}#)))
- (if (vector? #{symnames\ 939}#)
- (#{search-vector-rib\ 913}#
- #{sym\ 935}#
- #{subst\ 936}#
- #{marks\ 937}#
- #{symnames\ 939}#
- #{fst\ 938}#)
- (#{search-list-rib\ 912}#
- #{sym\ 935}#
- #{subst\ 936}#
- #{marks\ 937}#
- #{symnames\ 939}#
- #{fst\ 938}#)))))))))
- (if (symbol? #{id\ 909}#)
- (let ((#{t\ 940}# (call-with-values
- (lambda ()
- (#{search\ 911}#
- #{id\ 909}#
- (#{wrap-subst\ 135}# #{w\ 910}#)
- (#{wrap-marks\ 134}# #{w\ 910}#)))
- (lambda (#{x\ 941}# . #{ignore\ 942}#)
- #{x\ 941}#))))
- (if #{t\ 940}# #{t\ 940}# #{id\ 909}#))
- (if (#{syntax-object?\ 115}# #{id\ 909}#)
- (let ((#{id\ 943}#
- (#{syntax-object-expression\ 116}# #{id\ 909}#))
- (#{w1\ 944}#
- (#{syntax-object-wrap\ 117}# #{id\ 909}#)))
- (let ((#{marks\ 945}#
- (#{join-marks\ 151}#
- (#{wrap-marks\ 134}# #{w\ 910}#)
- (#{wrap-marks\ 134}# #{w1\ 944}#))))
+ (#{id-var-name\ 2703}#
+ (lambda (#{id\ 3459}# #{w\ 3460}#)
+ (letrec ((#{search-vector-rib\ 3463}#
+ (lambda (#{sym\ 3469}#
+ #{subst\ 3470}#
+ #{marks\ 3471}#
+ #{symnames\ 3472}#
+ #{ribcage\ 3473}#)
+ (let ((#{n\ 3474}#
+ (vector-length #{symnames\ 3472}#)))
+ (letrec ((#{f\ 3475}#
+ (lambda (#{i\ 3476}#)
+ (if (#{fx=\ 2638}#
+ #{i\ 3476}#
+ #{n\ 3474}#)
+ (#{search\ 3461}#
+ #{sym\ 3469}#
+ (cdr #{subst\ 3470}#)
+ #{marks\ 3471}#)
+ (if (if (eq? (vector-ref
+ #{symnames\ 3472}#
+ #{i\ 3476}#)
+ #{sym\ 3469}#)
+ (#{same-marks?\ 2702}#
+ #{marks\ 3471}#
+ (vector-ref
+ (#{ribcage-marks\ 2691}#
+ #{ribcage\ 3473}#)
+ #{i\ 3476}#))
+ #f)
+ (values
+ (vector-ref
+ (#{ribcage-labels\ 2692}#
+ #{ribcage\ 3473}#)
+ #{i\ 3476}#)
+ #{marks\ 3471}#)
+ (#{f\ 3475}#
+ (#{fx+\ 2636}#
+ #{i\ 3476}#
+ 1)))))))
+ (#{f\ 3475}# 0)))))
+ (#{search-list-rib\ 3462}#
+ (lambda (#{sym\ 3477}#
+ #{subst\ 3478}#
+ #{marks\ 3479}#
+ #{symnames\ 3480}#
+ #{ribcage\ 3481}#)
+ (letrec ((#{f\ 3482}#
+ (lambda (#{symnames\ 3483}# #{i\ 3484}#)
+ (if (null? #{symnames\ 3483}#)
+ (#{search\ 3461}#
+ #{sym\ 3477}#
+ (cdr #{subst\ 3478}#)
+ #{marks\ 3479}#)
+ (if (if (eq? (car #{symnames\ 3483}#)
+ #{sym\ 3477}#)
+ (#{same-marks?\ 2702}#
+ #{marks\ 3479}#
+ (list-ref
+ (#{ribcage-marks\ 2691}#
+ #{ribcage\ 3481}#)
+ #{i\ 3484}#))
+ #f)
+ (values
+ (list-ref
+ (#{ribcage-labels\ 2692}#
+ #{ribcage\ 3481}#)
+ #{i\ 3484}#)
+ #{marks\ 3479}#)
+ (#{f\ 3482}#
+ (cdr #{symnames\ 3483}#)
+ (#{fx+\ 2636}#
+ #{i\ 3484}#
+ 1)))))))
+ (#{f\ 3482}# #{symnames\ 3480}# 0))))
+ (#{search\ 3461}#
+ (lambda (#{sym\ 3485}#
+ #{subst\ 3486}#
+ #{marks\ 3487}#)
+ (if (null? #{subst\ 3486}#)
+ (values #f #{marks\ 3487}#)
+ (let ((#{fst\ 3488}# (car #{subst\ 3486}#)))
+ (if (eq? #{fst\ 3488}# (quote shift))
+ (#{search\ 3461}#
+ #{sym\ 3485}#
+ (cdr #{subst\ 3486}#)
+ (cdr #{marks\ 3487}#))
+ (let ((#{symnames\ 3489}#
+ (#{ribcage-symnames\ 2690}#
+ #{fst\ 3488}#)))
+ (if (vector? #{symnames\ 3489}#)
+ (#{search-vector-rib\ 3463}#
+ #{sym\ 3485}#
+ #{subst\ 3486}#
+ #{marks\ 3487}#
+ #{symnames\ 3489}#
+ #{fst\ 3488}#)
+ (#{search-list-rib\ 3462}#
+ #{sym\ 3485}#
+ #{subst\ 3486}#
+ #{marks\ 3487}#
+ #{symnames\ 3489}#
+ #{fst\ 3488}#)))))))))
+ (if (symbol? #{id\ 3459}#)
+ (let ((#{t\ 3490}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 3461}#
+ #{id\ 3459}#
+ (#{wrap-subst\ 2685}# #{w\ 3460}#)
+ (#{wrap-marks\ 2684}# #{w\ 3460}#)))
+ (lambda (#{x\ 3491}# . #{ignore\ 3492}#)
+ #{x\ 3491}#))))
+ (if #{t\ 3490}# #{t\ 3490}# #{id\ 3459}#))
+ (if (#{syntax-object?\ 2665}# #{id\ 3459}#)
+ (let ((#{id\ 3493}#
+ (#{syntax-object-expression\ 2666}# #{id\ 3459}#))
+ (#{w1\ 3494}#
+ (#{syntax-object-wrap\ 2667}# #{id\ 3459}#)))
+ (let ((#{marks\ 3495}#
+ (#{join-marks\ 2701}#
+ (#{wrap-marks\ 2684}# #{w\ 3460}#)
+ (#{wrap-marks\ 2684}# #{w1\ 3494}#))))
(call-with-values
(lambda ()
- (#{search\ 911}#
- #{id\ 943}#
- (#{wrap-subst\ 135}# #{w\ 910}#)
- #{marks\ 945}#))
- (lambda (#{new-id\ 946}# #{marks\ 947}#)
- (let ((#{t\ 948}# #{new-id\ 946}#))
- (if #{t\ 948}#
- #{t\ 948}#
- (let ((#{t\ 949}# (call-with-values
- (lambda ()
- (#{search\ 911}#
- #{id\ 943}#
- (#{wrap-subst\ 135}#
- #{w1\ 944}#)
- #{marks\ 947}#))
- (lambda (#{x\ 950}#
- .
- #{ignore\ 951}#)
- #{x\ 950}#))))
- (if #{t\ 949}#
- #{t\ 949}#
- #{id\ 943}#))))))))
+ (#{search\ 3461}#
+ #{id\ 3493}#
+ (#{wrap-subst\ 2685}# #{w\ 3460}#)
+ #{marks\ 3495}#))
+ (lambda (#{new-id\ 3496}# #{marks\ 3497}#)
+ (let ((#{t\ 3498}# #{new-id\ 3496}#))
+ (if #{t\ 3498}#
+ #{t\ 3498}#
+ (let ((#{t\ 3499}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 3461}#
+ #{id\ 3493}#
+ (#{wrap-subst\ 2685}#
+ #{w1\ 3494}#)
+ #{marks\ 3497}#))
+ (lambda (#{x\ 3500}#
+ .
+ #{ignore\ 3501}#)
+ #{x\ 3500}#))))
+ (if #{t\ 3499}#
+ #{t\ 3499}#
+ #{id\ 3493}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 909}#))))))
- (#{same-marks?\ 152}#
- (lambda (#{x\ 952}# #{y\ 953}#)
- (let ((#{t\ 954}# (eq? #{x\ 952}# #{y\ 953}#)))
- (if #{t\ 954}#
- #{t\ 954}#
- (if (not (null? #{x\ 952}#))
- (if (not (null? #{y\ 953}#))
- (if (eq? (car #{x\ 952}#) (car #{y\ 953}#))
- (#{same-marks?\ 152}#
- (cdr #{x\ 952}#)
- (cdr #{y\ 953}#))
+ #{id\ 3459}#))))))
+ (#{same-marks?\ 2702}#
+ (lambda (#{x\ 3502}# #{y\ 3503}#)
+ (let ((#{t\ 3504}# (eq? #{x\ 3502}# #{y\ 3503}#)))
+ (if #{t\ 3504}#
+ #{t\ 3504}#
+ (if (not (null? #{x\ 3502}#))
+ (if (not (null? #{y\ 3503}#))
+ (if (eq? (car #{x\ 3502}#) (car #{y\ 3503}#))
+ (#{same-marks?\ 2702}#
+ (cdr #{x\ 3502}#)
+ (cdr #{y\ 3503}#))
#f)
#f)
#f)))))
- (#{join-marks\ 151}#
- (lambda (#{m1\ 955}# #{m2\ 956}#)
- (#{smart-append\ 149}# #{m1\ 955}# #{m2\ 956}#)))
- (#{join-wraps\ 150}#
- (lambda (#{w1\ 957}# #{w2\ 958}#)
- (let ((#{m1\ 959}# (#{wrap-marks\ 134}# #{w1\ 957}#))
- (#{s1\ 960}# (#{wrap-subst\ 135}# #{w1\ 957}#)))
- (if (null? #{m1\ 959}#)
- (if (null? #{s1\ 960}#)
- #{w2\ 958}#
- (#{make-wrap\ 133}#
- (#{wrap-marks\ 134}# #{w2\ 958}#)
- (#{smart-append\ 149}#
- #{s1\ 960}#
- (#{wrap-subst\ 135}# #{w2\ 958}#))))
- (#{make-wrap\ 133}#
- (#{smart-append\ 149}#
- #{m1\ 959}#
- (#{wrap-marks\ 134}# #{w2\ 958}#))
- (#{smart-append\ 149}#
- #{s1\ 960}#
- (#{wrap-subst\ 135}# #{w2\ 958}#)))))))
- (#{smart-append\ 149}#
- (lambda (#{m1\ 961}# #{m2\ 962}#)
- (if (null? #{m2\ 962}#)
- #{m1\ 961}#
- (append #{m1\ 961}# #{m2\ 962}#))))
- (#{make-binding-wrap\ 148}#
- (lambda (#{ids\ 963}# #{labels\ 964}# #{w\ 965}#)
- (if (null? #{ids\ 963}#)
- #{w\ 965}#
- (#{make-wrap\ 133}#
- (#{wrap-marks\ 134}# #{w\ 965}#)
- (cons (let ((#{labelvec\ 966}#
- (list->vector #{labels\ 964}#)))
- (let ((#{n\ 967}# (vector-length
- #{labelvec\ 966}#)))
- (let ((#{symnamevec\ 968}#
- (make-vector #{n\ 967}#))
- (#{marksvec\ 969}#
- (make-vector #{n\ 967}#)))
+ (#{join-marks\ 2701}#
+ (lambda (#{m1\ 3505}# #{m2\ 3506}#)
+ (#{smart-append\ 2699}#
+ #{m1\ 3505}#
+ #{m2\ 3506}#)))
+ (#{join-wraps\ 2700}#
+ (lambda (#{w1\ 3507}# #{w2\ 3508}#)
+ (let ((#{m1\ 3509}#
+ (#{wrap-marks\ 2684}# #{w1\ 3507}#))
+ (#{s1\ 3510}#
+ (#{wrap-subst\ 2685}# #{w1\ 3507}#)))
+ (if (null? #{m1\ 3509}#)
+ (if (null? #{s1\ 3510}#)
+ #{w2\ 3508}#
+ (#{make-wrap\ 2683}#
+ (#{wrap-marks\ 2684}# #{w2\ 3508}#)
+ (#{smart-append\ 2699}#
+ #{s1\ 3510}#
+ (#{wrap-subst\ 2685}# #{w2\ 3508}#))))
+ (#{make-wrap\ 2683}#
+ (#{smart-append\ 2699}#
+ #{m1\ 3509}#
+ (#{wrap-marks\ 2684}# #{w2\ 3508}#))
+ (#{smart-append\ 2699}#
+ #{s1\ 3510}#
+ (#{wrap-subst\ 2685}# #{w2\ 3508}#)))))))
+ (#{smart-append\ 2699}#
+ (lambda (#{m1\ 3511}# #{m2\ 3512}#)
+ (if (null? #{m2\ 3512}#)
+ #{m1\ 3511}#
+ (append #{m1\ 3511}# #{m2\ 3512}#))))
+ (#{make-binding-wrap\ 2698}#
+ (lambda (#{ids\ 3513}# #{labels\ 3514}# #{w\ 3515}#)
+ (if (null? #{ids\ 3513}#)
+ #{w\ 3515}#
+ (#{make-wrap\ 2683}#
+ (#{wrap-marks\ 2684}# #{w\ 3515}#)
+ (cons (let ((#{labelvec\ 3516}#
+ (list->vector #{labels\ 3514}#)))
+ (let ((#{n\ 3517}#
+ (vector-length #{labelvec\ 3516}#)))
+ (let ((#{symnamevec\ 3518}#
+ (make-vector #{n\ 3517}#))
+ (#{marksvec\ 3519}#
+ (make-vector #{n\ 3517}#)))
(begin
- (letrec ((#{f\ 970}# (lambda (#{ids\ 971}#
- #{i\ 972}#)
- (if (not (null? #{ids\ 971}#))
- (call-with-values
- (lambda ()
- (#{id-sym-name&marks\ 132}#
- (car #{ids\ 971}#)
- #{w\ 965}#))
- (lambda (#{symname\ 973}#
- #{marks\ 974}#)
- (begin
- (vector-set!
- #{symnamevec\ 968}#
- #{i\ 972}#
- #{symname\ 973}#)
- (vector-set!
- #{marksvec\ 969}#
- #{i\ 972}#
- #{marks\ 974}#)
- (#{f\ 970}# (cdr #{ids\ 971}#)
- (#{fx+\ 86}#
- #{i\ 972}#
- 1)))))))))
- (#{f\ 970}# #{ids\ 963}# 0))
- (#{make-ribcage\ 138}#
- #{symnamevec\ 968}#
- #{marksvec\ 969}#
- #{labelvec\ 966}#)))))
- (#{wrap-subst\ 135}# #{w\ 965}#))))))
- (#{extend-ribcage!\ 147}#
- (lambda (#{ribcage\ 975}# #{id\ 976}# #{label\ 977}#)
+ (letrec ((#{f\ 3520}#
+ (lambda (#{ids\ 3521}# #{i\ 3522}#)
+ (if (not (null? #{ids\ 3521}#))
+ (call-with-values
+ (lambda ()
+ (#{id-sym-name&marks\ 2682}#
+ (car #{ids\ 3521}#)
+ #{w\ 3515}#))
+ (lambda (#{symname\ 3523}#
+ #{marks\ 3524}#)
+ (begin
+ (vector-set!
+ #{symnamevec\ 3518}#
+ #{i\ 3522}#
+ #{symname\ 3523}#)
+ (vector-set!
+ #{marksvec\ 3519}#
+ #{i\ 3522}#
+ #{marks\ 3524}#)
+ (#{f\ 3520}#
+ (cdr #{ids\ 3521}#)
+ (#{fx+\ 2636}#
+ #{i\ 3522}#
+ 1)))))))))
+ (#{f\ 3520}# #{ids\ 3513}# 0))
+ (#{make-ribcage\ 2688}#
+ #{symnamevec\ 3518}#
+ #{marksvec\ 3519}#
+ #{labelvec\ 3516}#)))))
+ (#{wrap-subst\ 2685}# #{w\ 3515}#))))))
+ (#{extend-ribcage!\ 2697}#
+ (lambda (#{ribcage\ 3525}# #{id\ 3526}# #{label\ 3527}#)
(begin
- (#{set-ribcage-symnames!\ 143}#
- #{ribcage\ 975}#
- (cons (#{syntax-object-expression\ 116}# #{id\ 976}#)
- (#{ribcage-symnames\ 140}# #{ribcage\ 975}#)))
- (#{set-ribcage-marks!\ 144}#
- #{ribcage\ 975}#
- (cons (#{wrap-marks\ 134}#
- (#{syntax-object-wrap\ 117}# #{id\ 976}#))
- (#{ribcage-marks\ 141}# #{ribcage\ 975}#)))
- (#{set-ribcage-labels!\ 145}#
- #{ribcage\ 975}#
- (cons #{label\ 977}#
- (#{ribcage-labels\ 142}# #{ribcage\ 975}#))))))
- (#{anti-mark\ 146}#
- (lambda (#{w\ 978}#)
- (#{make-wrap\ 133}#
- (cons #f (#{wrap-marks\ 134}# #{w\ 978}#))
+ (#{set-ribcage-symnames!\ 2693}#
+ #{ribcage\ 3525}#
+ (cons (#{syntax-object-expression\ 2666}# #{id\ 3526}#)
+ (#{ribcage-symnames\ 2690}# #{ribcage\ 3525}#)))
+ (#{set-ribcage-marks!\ 2694}#
+ #{ribcage\ 3525}#
+ (cons (#{wrap-marks\ 2684}#
+ (#{syntax-object-wrap\ 2667}# #{id\ 3526}#))
+ (#{ribcage-marks\ 2691}# #{ribcage\ 3525}#)))
+ (#{set-ribcage-labels!\ 2695}#
+ #{ribcage\ 3525}#
+ (cons #{label\ 3527}#
+ (#{ribcage-labels\ 2692}# #{ribcage\ 3525}#))))))
+ (#{anti-mark\ 2696}#
+ (lambda (#{w\ 3528}#)
+ (#{make-wrap\ 2683}#
+ (cons #f (#{wrap-marks\ 2684}# #{w\ 3528}#))
(cons 'shift
- (#{wrap-subst\ 135}# #{w\ 978}#)))))
- (#{set-ribcage-labels!\ 145}#
- (lambda (#{x\ 979}# #{update\ 980}#)
- (vector-set! #{x\ 979}# 3 #{update\ 980}#)))
- (#{set-ribcage-marks!\ 144}#
- (lambda (#{x\ 981}# #{update\ 982}#)
- (vector-set! #{x\ 981}# 2 #{update\ 982}#)))
- (#{set-ribcage-symnames!\ 143}#
- (lambda (#{x\ 983}# #{update\ 984}#)
- (vector-set! #{x\ 983}# 1 #{update\ 984}#)))
- (#{ribcage-labels\ 142}#
- (lambda (#{x\ 985}#) (vector-ref #{x\ 985}# 3)))
- (#{ribcage-marks\ 141}#
- (lambda (#{x\ 986}#) (vector-ref #{x\ 986}# 2)))
- (#{ribcage-symnames\ 140}#
- (lambda (#{x\ 987}#) (vector-ref #{x\ 987}# 1)))
- (#{ribcage?\ 139}#
- (lambda (#{x\ 988}#)
- (if (vector? #{x\ 988}#)
- (if (= (vector-length #{x\ 988}#) 4)
- (eq? (vector-ref #{x\ 988}# 0) (quote ribcage))
+ (#{wrap-subst\ 2685}# #{w\ 3528}#)))))
+ (#{set-ribcage-labels!\ 2695}#
+ (lambda (#{x\ 3529}# #{update\ 3530}#)
+ (vector-set! #{x\ 3529}# 3 #{update\ 3530}#)))
+ (#{set-ribcage-marks!\ 2694}#
+ (lambda (#{x\ 3531}# #{update\ 3532}#)
+ (vector-set! #{x\ 3531}# 2 #{update\ 3532}#)))
+ (#{set-ribcage-symnames!\ 2693}#
+ (lambda (#{x\ 3533}# #{update\ 3534}#)
+ (vector-set! #{x\ 3533}# 1 #{update\ 3534}#)))
+ (#{ribcage-labels\ 2692}#
+ (lambda (#{x\ 3535}#) (vector-ref #{x\ 3535}# 3)))
+ (#{ribcage-marks\ 2691}#
+ (lambda (#{x\ 3536}#) (vector-ref #{x\ 3536}# 2)))
+ (#{ribcage-symnames\ 2690}#
+ (lambda (#{x\ 3537}#) (vector-ref #{x\ 3537}# 1)))
+ (#{ribcage?\ 2689}#
+ (lambda (#{x\ 3538}#)
+ (if (vector? #{x\ 3538}#)
+ (if (= (vector-length #{x\ 3538}#) 4)
+ (eq? (vector-ref #{x\ 3538}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 138}#
- (lambda (#{symnames\ 989}#
- #{marks\ 990}#
- #{labels\ 991}#)
+ (#{make-ribcage\ 2688}#
+ (lambda (#{symnames\ 3539}#
+ #{marks\ 3540}#
+ #{labels\ 3541}#)
(vector
'ribcage
- #{symnames\ 989}#
- #{marks\ 990}#
- #{labels\ 991}#)))
- (#{gen-labels\ 137}#
- (lambda (#{ls\ 992}#)
- (if (null? #{ls\ 992}#)
+ #{symnames\ 3539}#
+ #{marks\ 3540}#
+ #{labels\ 3541}#)))
+ (#{gen-labels\ 2687}#
+ (lambda (#{ls\ 3542}#)
+ (if (null? #{ls\ 3542}#)
'()
- (cons (#{gen-label\ 136}#)
- (#{gen-labels\ 137}# (cdr #{ls\ 992}#))))))
- (#{gen-label\ 136}# (lambda () (string #\i)))
- (#{wrap-subst\ 135}# cdr)
- (#{wrap-marks\ 134}# car)
- (#{make-wrap\ 133}# cons)
- (#{id-sym-name&marks\ 132}#
- (lambda (#{x\ 993}# #{w\ 994}#)
- (if (#{syntax-object?\ 115}# #{x\ 993}#)
+ (cons (#{gen-label\ 2686}#)
+ (#{gen-labels\ 2687}# (cdr #{ls\ 3542}#))))))
+ (#{gen-label\ 2686}# (lambda () (string #\i)))
+ (#{wrap-subst\ 2685}# cdr)
+ (#{wrap-marks\ 2684}# car)
+ (#{make-wrap\ 2683}# cons)
+ (#{id-sym-name&marks\ 2682}#
+ (lambda (#{x\ 3543}# #{w\ 3544}#)
+ (if (#{syntax-object?\ 2665}# #{x\ 3543}#)
(values
- (#{syntax-object-expression\ 116}# #{x\ 993}#)
- (#{join-marks\ 151}#
- (#{wrap-marks\ 134}# #{w\ 994}#)
- (#{wrap-marks\ 134}#
- (#{syntax-object-wrap\ 117}# #{x\ 993}#))))
+ (#{syntax-object-expression\ 2666}# #{x\ 3543}#)
+ (#{join-marks\ 2701}#
+ (#{wrap-marks\ 2684}# #{w\ 3544}#)
+ (#{wrap-marks\ 2684}#
+ (#{syntax-object-wrap\ 2667}# #{x\ 3543}#))))
(values
- #{x\ 993}#
- (#{wrap-marks\ 134}# #{w\ 994}#)))))
- (#{id?\ 131}#
- (lambda (#{x\ 995}#)
- (if (symbol? #{x\ 995}#)
+ #{x\ 3543}#
+ (#{wrap-marks\ 2684}# #{w\ 3544}#)))))
+ (#{id?\ 2681}#
+ (lambda (#{x\ 3545}#)
+ (if (symbol? #{x\ 3545}#)
#t
- (if (#{syntax-object?\ 115}# #{x\ 995}#)
+ (if (#{syntax-object?\ 2665}# #{x\ 3545}#)
(symbol?
- (#{syntax-object-expression\ 116}# #{x\ 995}#))
+ (#{syntax-object-expression\ 2666}# #{x\ 3545}#))
#f))))
- (#{nonsymbol-id?\ 130}#
- (lambda (#{x\ 996}#)
- (if (#{syntax-object?\ 115}# #{x\ 996}#)
+ (#{nonsymbol-id?\ 2680}#
+ (lambda (#{x\ 3546}#)
+ (if (#{syntax-object?\ 2665}# #{x\ 3546}#)
(symbol?
- (#{syntax-object-expression\ 116}# #{x\ 996}#))
+ (#{syntax-object-expression\ 2666}# #{x\ 3546}#))
#f)))
- (#{global-extend\ 129}#
- (lambda (#{type\ 997}# #{sym\ 998}# #{val\ 999}#)
- (#{put-global-definition-hook\ 92}#
- #{sym\ 998}#
- #{type\ 997}#
- #{val\ 999}#)))
- (#{lookup\ 128}#
- (lambda (#{x\ 1000}# #{r\ 1001}# #{mod\ 1002}#)
- (let ((#{t\ 1003}# (assq #{x\ 1000}# #{r\ 1001}#)))
- (if #{t\ 1003}#
- (cdr #{t\ 1003}#)
- (if (symbol? #{x\ 1000}#)
- (let ((#{t\ 1004}#
- (#{get-global-definition-hook\ 93}#
- #{x\ 1000}#
- #{mod\ 1002}#)))
- (if #{t\ 1004}# #{t\ 1004}# (quote (global))))
+ (#{global-extend\ 2679}#
+ (lambda (#{type\ 3547}# #{sym\ 3548}# #{val\ 3549}#)
+ (#{put-global-definition-hook\ 2642}#
+ #{sym\ 3548}#
+ #{type\ 3547}#
+ #{val\ 3549}#)))
+ (#{lookup\ 2678}#
+ (lambda (#{x\ 3550}# #{r\ 3551}# #{mod\ 3552}#)
+ (let ((#{t\ 3553}# (assq #{x\ 3550}# #{r\ 3551}#)))
+ (if #{t\ 3553}#
+ (cdr #{t\ 3553}#)
+ (if (symbol? #{x\ 3550}#)
+ (let ((#{t\ 3554}#
+ (#{get-global-definition-hook\ 2643}#
+ #{x\ 3550}#
+ #{mod\ 3552}#)))
+ (if #{t\ 3554}# #{t\ 3554}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 127}#
- (lambda (#{r\ 1005}#)
- (if (null? #{r\ 1005}#)
+ (#{macros-only-env\ 2677}#
+ (lambda (#{r\ 3555}#)
+ (if (null? #{r\ 3555}#)
'()
- (let ((#{a\ 1006}# (car #{r\ 1005}#)))
- (if (eq? (cadr #{a\ 1006}#) (quote macro))
- (cons #{a\ 1006}#
- (#{macros-only-env\ 127}# (cdr #{r\ 1005}#)))
- (#{macros-only-env\ 127}# (cdr #{r\ 1005}#)))))))
- (#{extend-var-env\ 126}#
- (lambda (#{labels\ 1007}# #{vars\ 1008}# #{r\ 1009}#)
- (if (null? #{labels\ 1007}#)
- #{r\ 1009}#
- (#{extend-var-env\ 126}#
- (cdr #{labels\ 1007}#)
- (cdr #{vars\ 1008}#)
- (cons (cons (car #{labels\ 1007}#)
- (cons (quote lexical) (car #{vars\ 1008}#)))
- #{r\ 1009}#)))))
- (#{extend-env\ 125}#
- (lambda (#{labels\ 1010}# #{bindings\ 1011}# #{r\ 1012}#)
- (if (null? #{labels\ 1010}#)
- #{r\ 1012}#
- (#{extend-env\ 125}#
- (cdr #{labels\ 1010}#)
- (cdr #{bindings\ 1011}#)
- (cons (cons (car #{labels\ 1010}#)
- (car #{bindings\ 1011}#))
- #{r\ 1012}#)))))
- (#{binding-value\ 124}# cdr)
- (#{binding-type\ 123}# car)
- (#{source-annotation\ 122}#
- (lambda (#{x\ 1013}#)
- (if (#{syntax-object?\ 115}# #{x\ 1013}#)
- (#{source-annotation\ 122}#
- (#{syntax-object-expression\ 116}# #{x\ 1013}#))
- (if (pair? #{x\ 1013}#)
- (let ((#{props\ 1014}# (source-properties #{x\ 1013}#)))
- (if (pair? #{props\ 1014}#) #{props\ 1014}# #f))
+ (let ((#{a\ 3556}# (car #{r\ 3555}#)))
+ (if (eq? (cadr #{a\ 3556}#) (quote macro))
+ (cons #{a\ 3556}#
+ (#{macros-only-env\ 2677}# (cdr #{r\ 3555}#)))
+ (#{macros-only-env\ 2677}# (cdr #{r\ 3555}#)))))))
+ (#{extend-var-env\ 2676}#
+ (lambda (#{labels\ 3557}# #{vars\ 3558}# #{r\ 3559}#)
+ (if (null? #{labels\ 3557}#)
+ #{r\ 3559}#
+ (#{extend-var-env\ 2676}#
+ (cdr #{labels\ 3557}#)
+ (cdr #{vars\ 3558}#)
+ (cons (cons (car #{labels\ 3557}#)
+ (cons (quote lexical) (car #{vars\ 3558}#)))
+ #{r\ 3559}#)))))
+ (#{extend-env\ 2675}#
+ (lambda (#{labels\ 3560}# #{bindings\ 3561}# #{r\ 3562}#)
+ (if (null? #{labels\ 3560}#)
+ #{r\ 3562}#
+ (#{extend-env\ 2675}#
+ (cdr #{labels\ 3560}#)
+ (cdr #{bindings\ 3561}#)
+ (cons (cons (car #{labels\ 3560}#)
+ (car #{bindings\ 3561}#))
+ #{r\ 3562}#)))))
+ (#{binding-value\ 2674}# cdr)
+ (#{binding-type\ 2673}# car)
+ (#{source-annotation\ 2672}#
+ (lambda (#{x\ 3563}#)
+ (if (#{syntax-object?\ 2665}# #{x\ 3563}#)
+ (#{source-annotation\ 2672}#
+ (#{syntax-object-expression\ 2666}# #{x\ 3563}#))
+ (if (pair? #{x\ 3563}#)
+ (let ((#{props\ 3564}# (source-properties #{x\ 3563}#)))
+ (if (pair? #{props\ 3564}#) #{props\ 3564}# #f))
#f))))
- (#{set-syntax-object-module!\ 121}#
- (lambda (#{x\ 1015}# #{update\ 1016}#)
- (vector-set! #{x\ 1015}# 3 #{update\ 1016}#)))
- (#{set-syntax-object-wrap!\ 120}#
- (lambda (#{x\ 1017}# #{update\ 1018}#)
- (vector-set! #{x\ 1017}# 2 #{update\ 1018}#)))
- (#{set-syntax-object-expression!\ 119}#
- (lambda (#{x\ 1019}# #{update\ 1020}#)
- (vector-set! #{x\ 1019}# 1 #{update\ 1020}#)))
- (#{syntax-object-module\ 118}#
- (lambda (#{x\ 1021}#) (vector-ref #{x\ 1021}# 3)))
- (#{syntax-object-wrap\ 117}#
- (lambda (#{x\ 1022}#) (vector-ref #{x\ 1022}# 2)))
- (#{syntax-object-expression\ 116}#
- (lambda (#{x\ 1023}#) (vector-ref #{x\ 1023}# 1)))
- (#{syntax-object?\ 115}#
- (lambda (#{x\ 1024}#)
- (if (vector? #{x\ 1024}#)
- (if (= (vector-length #{x\ 1024}#) 4)
- (eq? (vector-ref #{x\ 1024}# 0)
+ (#{set-syntax-object-module!\ 2671}#
+ (lambda (#{x\ 3565}# #{update\ 3566}#)
+ (vector-set! #{x\ 3565}# 3 #{update\ 3566}#)))
+ (#{set-syntax-object-wrap!\ 2670}#
+ (lambda (#{x\ 3567}# #{update\ 3568}#)
+ (vector-set! #{x\ 3567}# 2 #{update\ 3568}#)))
+ (#{set-syntax-object-expression!\ 2669}#
+ (lambda (#{x\ 3569}# #{update\ 3570}#)
+ (vector-set! #{x\ 3569}# 1 #{update\ 3570}#)))
+ (#{syntax-object-module\ 2668}#
+ (lambda (#{x\ 3571}#) (vector-ref #{x\ 3571}# 3)))
+ (#{syntax-object-wrap\ 2667}#
+ (lambda (#{x\ 3572}#) (vector-ref #{x\ 3572}# 2)))
+ (#{syntax-object-expression\ 2666}#
+ (lambda (#{x\ 3573}#) (vector-ref #{x\ 3573}# 1)))
+ (#{syntax-object?\ 2665}#
+ (lambda (#{x\ 3574}#)
+ (if (vector? #{x\ 3574}#)
+ (if (= (vector-length #{x\ 3574}#) 4)
+ (eq? (vector-ref #{x\ 3574}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 114}#
- (lambda (#{expression\ 1025}#
- #{wrap\ 1026}#
- #{module\ 1027}#)
+ (#{make-syntax-object\ 2664}#
+ (lambda (#{expression\ 3575}#
+ #{wrap\ 3576}#
+ #{module\ 3577}#)
(vector
'syntax-object
- #{expression\ 1025}#
- #{wrap\ 1026}#
- #{module\ 1027}#)))
- (#{build-letrec\ 113}#
- (lambda (#{src\ 1028}#
- #{ids\ 1029}#
- #{vars\ 1030}#
- #{val-exps\ 1031}#
- #{body-exp\ 1032}#)
- (if (null? #{vars\ 1030}#)
- #{body-exp\ 1032}#
- (let ((#{atom-key\ 1033}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1033}# (quote (c)))
+ #{expression\ 3575}#
+ #{wrap\ 3576}#
+ #{module\ 3577}#)))
+ (#{build-letrec\ 2663}#
+ (lambda (#{src\ 3578}#
+ #{ids\ 3579}#
+ #{vars\ 3580}#
+ #{val-exps\ 3581}#
+ #{body-exp\ 3582}#)
+ (if (null? #{vars\ 3580}#)
+ #{body-exp\ 3582}#
+ (let ((#{atom-key\ 3583}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3583}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 103}#
- #{ids\ 1029}#
- #{val-exps\ 1031}#)
+ #{maybe-name-value!\ 2653}#
+ #{ids\ 3579}#
+ #{val-exps\ 3581}#)
((@ (language tree-il) make-letrec)
- #{src\ 1028}#
- #{ids\ 1029}#
- #{vars\ 1030}#
- #{val-exps\ 1031}#
- #{body-exp\ 1032}#))
- (#{decorate-source\ 94}#
+ #{src\ 3578}#
+ #{ids\ 3579}#
+ #{vars\ 3580}#
+ #{val-exps\ 3581}#
+ #{body-exp\ 3582}#))
+ (#{decorate-source\ 2644}#
(list 'letrec
- (map list #{vars\ 1030}# #{val-exps\ 1031}#)
- #{body-exp\ 1032}#)
- #{src\ 1028}#))))))
- (#{build-named-let\ 112}#
- (lambda (#{src\ 1034}#
- #{ids\ 1035}#
- #{vars\ 1036}#
- #{val-exps\ 1037}#
- #{body-exp\ 1038}#)
- (let ((#{f\ 1039}# (car #{vars\ 1036}#))
- (#{f-name\ 1040}# (car #{ids\ 1035}#))
- (#{vars\ 1041}# (cdr #{vars\ 1036}#))
- (#{ids\ 1042}# (cdr #{ids\ 1035}#)))
- (let ((#{atom-key\ 1043}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1043}# (quote (c)))
- (let ((#{proc\ 1044}#
- (#{build-simple-lambda\ 105}#
- #{src\ 1034}#
- #{ids\ 1042}#
+ (map list #{vars\ 3580}# #{val-exps\ 3581}#)
+ #{body-exp\ 3582}#)
+ #{src\ 3578}#))))))
+ (#{build-named-let\ 2662}#
+ (lambda (#{src\ 3584}#
+ #{ids\ 3585}#
+ #{vars\ 3586}#
+ #{val-exps\ 3587}#
+ #{body-exp\ 3588}#)
+ (let ((#{f\ 3589}# (car #{vars\ 3586}#))
+ (#{f-name\ 3590}# (car #{ids\ 3585}#))
+ (#{vars\ 3591}# (cdr #{vars\ 3586}#))
+ (#{ids\ 3592}# (cdr #{ids\ 3585}#)))
+ (let ((#{atom-key\ 3593}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3593}# (quote (c)))
+ (let ((#{proc\ 3594}#
+ (#{build-simple-lambda\ 2655}#
+ #{src\ 3584}#
+ #{ids\ 3592}#
#f
- #{vars\ 1041}#
+ #{vars\ 3591}#
#f
- #{body-exp\ 1038}#)))
+ #{body-exp\ 3588}#)))
(begin
- (#{maybe-name-value!\ 103}#
- #{f-name\ 1040}#
- #{proc\ 1044}#)
+ (#{maybe-name-value!\ 2653}#
+ #{f-name\ 3590}#
+ #{proc\ 3594}#)
(for-each
- #{maybe-name-value!\ 103}#
- #{ids\ 1042}#
- #{val-exps\ 1037}#)
+ #{maybe-name-value!\ 2653}#
+ #{ids\ 3592}#
+ #{val-exps\ 3587}#)
((@ (language tree-il) make-letrec)
- #{src\ 1034}#
- (list #{f-name\ 1040}#)
- (list #{f\ 1039}#)
- (list #{proc\ 1044}#)
- (#{build-application\ 96}#
- #{src\ 1034}#
- (#{build-lexical-reference\ 98}#
+ #{src\ 3584}#
+ (list #{f-name\ 3590}#)
+ (list #{f\ 3589}#)
+ (list #{proc\ 3594}#)
+ (#{build-application\ 2646}#
+ #{src\ 3584}#
+ (#{build-lexical-reference\ 2648}#
'fun
- #{src\ 1034}#
- #{f-name\ 1040}#
- #{f\ 1039}#)
- #{val-exps\ 1037}#))))
- (#{decorate-source\ 94}#
- (list 'let
- #{f\ 1039}#
- (map list #{vars\ 1041}# #{val-exps\ 1037}#)
- #{body-exp\ 1038}#)
- #{src\ 1034}#))))))
- (#{build-let\ 111}#
- (lambda (#{src\ 1045}#
- #{ids\ 1046}#
- #{vars\ 1047}#
- #{val-exps\ 1048}#
- #{body-exp\ 1049}#)
- (if (null? #{vars\ 1047}#)
- #{body-exp\ 1049}#
- (let ((#{atom-key\ 1050}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1050}# (quote (c)))
+ #{src\ 3584}#
+ #{f-name\ 3590}#
+ #{f\ 3589}#)
+ #{val-exps\ 3587}#))))
+ (#{decorate-source\ 2644}#
+ (list 'letrec
+ (list (list #{f\ 3589}#
+ (list 'lambda
+ #{vars\ 3591}#
+ #{body-exp\ 3588}#)))
+ (cons #{f\ 3589}# #{val-exps\ 3587}#))
+ #{src\ 3584}#))))))
+ (#{build-let\ 2661}#
+ (lambda (#{src\ 3595}#
+ #{ids\ 3596}#
+ #{vars\ 3597}#
+ #{val-exps\ 3598}#
+ #{body-exp\ 3599}#)
+ (if (null? #{vars\ 3597}#)
+ #{body-exp\ 3599}#
+ (let ((#{atom-key\ 3600}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3600}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 103}#
- #{ids\ 1046}#
- #{val-exps\ 1048}#)
+ #{maybe-name-value!\ 2653}#
+ #{ids\ 3596}#
+ #{val-exps\ 3598}#)
((@ (language tree-il) make-let)
- #{src\ 1045}#
- #{ids\ 1046}#
- #{vars\ 1047}#
- #{val-exps\ 1048}#
- #{body-exp\ 1049}#))
- (#{decorate-source\ 94}#
+ #{src\ 3595}#
+ #{ids\ 3596}#
+ #{vars\ 3597}#
+ #{val-exps\ 3598}#
+ #{body-exp\ 3599}#))
+ (#{decorate-source\ 2644}#
(list 'let
- (map list #{vars\ 1047}# #{val-exps\ 1048}#)
- #{body-exp\ 1049}#)
- #{src\ 1045}#))))))
- (#{build-sequence\ 110}#
- (lambda (#{src\ 1051}# #{exps\ 1052}#)
- (if (null? (cdr #{exps\ 1052}#))
- (car #{exps\ 1052}#)
- (let ((#{atom-key\ 1053}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1053}# (quote (c)))
+ (map list #{vars\ 3597}# #{val-exps\ 3598}#)
+ #{body-exp\ 3599}#)
+ #{src\ 3595}#))))))
+ (#{build-sequence\ 2660}#
+ (lambda (#{src\ 3601}# #{exps\ 3602}#)
+ (if (null? (cdr #{exps\ 3602}#))
+ (car #{exps\ 3602}#)
+ (let ((#{atom-key\ 3603}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3603}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 1051}#
- #{exps\ 1052}#)
- (#{decorate-source\ 94}#
- (cons (quote begin) #{exps\ 1052}#)
- #{src\ 1051}#))))))
- (#{build-data\ 109}#
- (lambda (#{src\ 1054}# #{exp\ 1055}#)
- (let ((#{atom-key\ 1056}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1056}# (quote (c)))
+ #{src\ 3601}#
+ #{exps\ 3602}#)
+ (#{decorate-source\ 2644}#
+ (cons (quote begin) #{exps\ 3602}#)
+ #{src\ 3601}#))))))
+ (#{build-data\ 2659}#
+ (lambda (#{src\ 3604}# #{exp\ 3605}#)
+ (let ((#{atom-key\ 3606}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3606}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 1054}#
- #{exp\ 1055}#)
- (#{decorate-source\ 94}#
- (if (if (self-evaluating? #{exp\ 1055}#)
- (not (vector? #{exp\ 1055}#))
+ #{src\ 3604}#
+ #{exp\ 3605}#)
+ (#{decorate-source\ 2644}#
+ (if (if (self-evaluating? #{exp\ 3605}#)
+ (not (vector? #{exp\ 3605}#))
#f)
- #{exp\ 1055}#
- (list (quote quote) #{exp\ 1055}#))
- #{src\ 1054}#)))))
- (#{build-primref\ 108}#
- (lambda (#{src\ 1057}# #{name\ 1058}#)
+ #{exp\ 3605}#
+ (list (quote quote) #{exp\ 3605}#))
+ #{src\ 3604}#)))))
+ (#{build-primref\ 2658}#
+ (lambda (#{src\ 3607}# #{name\ 3608}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 1059}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1059}# (quote (c)))
+ (let ((#{atom-key\ 3609}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3609}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 1057}#
- #{name\ 1058}#)
- (#{decorate-source\ 94}#
- #{name\ 1058}#
- #{src\ 1057}#)))
- (let ((#{atom-key\ 1060}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1060}# (quote (c)))
+ #{src\ 3607}#
+ #{name\ 3608}#)
+ (#{decorate-source\ 2644}#
+ #{name\ 3608}#
+ #{src\ 3607}#)))
+ (let ((#{atom-key\ 3610}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3610}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 1057}#
+ #{src\ 3607}#
'(guile)
- #{name\ 1058}#
+ #{name\ 3608}#
#f)
- (#{decorate-source\ 94}#
- (list (quote @@) (quote (guile)) #{name\ 1058}#)
- #{src\ 1057}#))))))
- (#{build-lambda-case\ 107}#
- (lambda (#{src\ 1061}#
- #{req\ 1062}#
- #{opt\ 1063}#
- #{rest\ 1064}#
- #{kw\ 1065}#
- #{inits\ 1066}#
- #{vars\ 1067}#
- #{body\ 1068}#
- #{else-case\ 1069}#)
- (let ((#{atom-key\ 1070}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1070}# (quote (c)))
+ (#{decorate-source\ 2644}#
+ (list (quote @@) (quote (guile)) #{name\ 3608}#)
+ #{src\ 3607}#))))))
+ (#{build-lambda-case\ 2657}#
+ (lambda (#{src\ 3611}#
+ #{req\ 3612}#
+ #{opt\ 3613}#
+ #{rest\ 3614}#
+ #{kw\ 3615}#
+ #{inits\ 3616}#
+ #{vars\ 3617}#
+ #{body\ 3618}#
+ #{else-case\ 3619}#)
+ (let ((#{atom-key\ 3620}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3620}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 1061}#
- #{req\ 1062}#
- #{opt\ 1063}#
- #{rest\ 1064}#
- #{kw\ 1065}#
- #{inits\ 1066}#
- #{vars\ 1067}#
- #{body\ 1068}#
- #{else-case\ 1069}#)
- (let ((#{nreq\ 1071}# (length #{req\ 1062}#)))
- (let ((#{nopt\ 1072}#
- (if #{opt\ 1063}# (length #{opt\ 1063}#) 0)))
- (let ((#{rest-idx\ 1073}#
- (if #{rest\ 1064}#
- (+ #{nreq\ 1071}# #{nopt\ 1072}#)
+ #{src\ 3611}#
+ #{req\ 3612}#
+ #{opt\ 3613}#
+ #{rest\ 3614}#
+ #{kw\ 3615}#
+ #{inits\ 3616}#
+ #{vars\ 3617}#
+ #{body\ 3618}#
+ #{else-case\ 3619}#)
+ (let ((#{nreq\ 3621}# (length #{req\ 3612}#)))
+ (let ((#{nopt\ 3622}#
+ (if #{opt\ 3613}# (length #{opt\ 3613}#) 0)))
+ (let ((#{rest-idx\ 3623}#
+ (if #{rest\ 3614}#
+ (+ #{nreq\ 3621}# #{nopt\ 3622}#)
#f)))
- (let ((#{allow-other-keys?\ 1074}#
- (if #{kw\ 1065}# (car #{kw\ 1065}#) #f)))
- (let ((#{kw-indices\ 1075}#
- (map (lambda (#{x\ 1076}#)
- (cons (car #{x\ 1076}#)
+ (let ((#{allow-other-keys?\ 3624}#
+ (if #{kw\ 3615}# (car #{kw\ 3615}#) #f)))
+ (let ((#{kw-indices\ 3625}#
+ (map (lambda (#{x\ 3626}#)
+ (cons (car #{x\ 3626}#)
(list-index
- #{vars\ 1067}#
- (caddr #{x\ 1076}#))))
- (if #{kw\ 1065}#
- (cdr #{kw\ 1065}#)
+ #{vars\ 3617}#
+ (caddr #{x\ 3626}#))))
+ (if #{kw\ 3615}#
+ (cdr #{kw\ 3615}#)
'()))))
- (let ((#{nargs\ 1077}#
+ (let ((#{nargs\ 3627}#
(apply max
- (+ #{nreq\ 1071}#
- #{nopt\ 1072}#
- (if #{rest\ 1064}# 1 0))
+ (+ #{nreq\ 3621}#
+ #{nopt\ 3622}#
+ (if #{rest\ 3614}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 1075}#)))))
+ #{kw-indices\ 3625}#)))))
(begin
- (let ((#{t\ 1078}#
- (= #{nargs\ 1077}#
- (length #{vars\ 1067}#)
- (+ #{nreq\ 1071}#
- (length #{inits\ 1066}#)
- (if #{rest\ 1064}# 1 0)))))
- (if #{t\ 1078}#
- #{t\ 1078}#
+ (let ((#{t\ 3628}#
+ (= #{nargs\ 3627}#
+ (length #{vars\ 3617}#)
+ (+ #{nreq\ 3621}#
+ (length #{inits\ 3616}#)
+ (if #{rest\ 3614}# 1 0)))))
+ (if #{t\ 3628}#
+ #{t\ 3628}#
(error "something went wrong"
- #{req\ 1062}#
- #{opt\ 1063}#
- #{rest\ 1064}#
- #{kw\ 1065}#
- #{inits\ 1066}#
- #{vars\ 1067}#
- #{nreq\ 1071}#
- #{nopt\ 1072}#
- #{kw-indices\ 1075}#
- #{nargs\ 1077}#)))
- (#{decorate-source\ 94}#
+ #{req\ 3612}#
+ #{opt\ 3613}#
+ #{rest\ 3614}#
+ #{kw\ 3615}#
+ #{inits\ 3616}#
+ #{vars\ 3617}#
+ #{nreq\ 3621}#
+ #{nopt\ 3622}#
+ #{kw-indices\ 3625}#
+ #{nargs\ 3627}#)))
+ (#{decorate-source\ 2644}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\ 1071}#
- #{nopt\ 1072}#
- #{rest-idx\ 1073}#
- #{nargs\ 1077}#
- #{allow-other-keys?\ 1074}#
- #{kw-indices\ 1075}#))
+ (list #{nreq\ 3621}#
+ #{nopt\ 3622}#
+ #{rest-idx\ 3623}#
+ #{nargs\ 3627}#
+ #{allow-other-keys?\ 3624}#
+ #{kw-indices\ 3625}#))
(cons (cons 'list
- (map (lambda (#{i\ 1079}#)
+ (map (lambda (#{i\ 3629}#)
(list 'lambda
- #{vars\ 1067}#
- #{i\ 1079}#))
- #{inits\ 1066}#))
+ #{vars\ 3617}#
+ #{i\ 3629}#))
+ #{inits\ 3616}#))
'(%%args))))
'=>
(list 'lambda
'(%%%args . _)
(cons 'apply
(cons (list 'lambda
- #{vars\ 1067}#
- #{body\ 1068}#)
+ #{vars\ 3617}#
+ #{body\ 3618}#)
'(%%%args)))))
- (let ((#{t\ 1080}#
- #{else-case\ 1069}#))
- (if #{t\ 1080}#
- #{t\ 1080}#
+ (let ((#{t\ 3630}#
+ #{else-case\ 3619}#))
+ (if #{t\ 3630}#
+ #{t\ 3630}#
'((%%args
(error "wrong number of arguments"
%%args))))))
- #{src\ 1061}#))))))))))))
- (#{build-case-lambda\ 106}#
- (lambda (#{src\ 1081}#
- #{docstring\ 1082}#
- #{body\ 1083}#)
- (let ((#{atom-key\ 1084}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1084}# (quote (c)))
+ #{src\ 3611}#))))))))))))
+ (#{build-case-lambda\ 2656}#
+ (lambda (#{src\ 3631}#
+ #{docstring\ 3632}#
+ #{body\ 3633}#)
+ (let ((#{atom-key\ 3634}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3634}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 1081}#
- (if #{docstring\ 1082}#
- (list (cons (quote documentation) #{docstring\ 1082}#))
+ #{src\ 3631}#
+ (if #{docstring\ 3632}#
+ (list (cons (quote documentation) #{docstring\ 3632}#))
'())
- #{body\ 1083}#)
- (#{decorate-source\ 94}#
+ #{body\ 3633}#)
+ (#{decorate-source\ 2644}#
(cons 'lambda
(cons '%%args
(append
- (if #{docstring\ 1082}#
- (list #{docstring\ 1082}#)
+ (if #{docstring\ 3632}#
+ (list #{docstring\ 3632}#)
'())
- (list (cons (quote cond) #{body\ 1083}#)))))
- #{src\ 1081}#)))))
- (#{build-simple-lambda\ 105}#
- (lambda (#{src\ 1085}#
- #{req\ 1086}#
- #{rest\ 1087}#
- #{vars\ 1088}#
- #{docstring\ 1089}#
- #{exp\ 1090}#)
- (let ((#{atom-key\ 1091}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1091}# (quote (c)))
+ (list (cons (quote cond) #{body\ 3633}#)))))
+ #{src\ 3631}#)))))
+ (#{build-simple-lambda\ 2655}#
+ (lambda (#{src\ 3635}#
+ #{req\ 3636}#
+ #{rest\ 3637}#
+ #{vars\ 3638}#
+ #{docstring\ 3639}#
+ #{exp\ 3640}#)
+ (let ((#{atom-key\ 3641}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3641}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 1085}#
- (if #{docstring\ 1089}#
- (list (cons (quote documentation) #{docstring\ 1089}#))
+ #{src\ 3635}#
+ (if #{docstring\ 3639}#
+ (list (cons (quote documentation) #{docstring\ 3639}#))
'())
((@ (language tree-il) make-lambda-case)
- #{src\ 1085}#
- #{req\ 1086}#
+ #{src\ 3635}#
+ #{req\ 3636}#
#f
- #{rest\ 1087}#
+ #{rest\ 3637}#
#f
'()
- #{vars\ 1088}#
- #{exp\ 1090}#
+ #{vars\ 3638}#
+ #{exp\ 3640}#
#f))
- (#{decorate-source\ 94}#
+ (#{decorate-source\ 2644}#
(cons 'lambda
- (cons (if #{rest\ 1087}#
- (apply cons* #{vars\ 1088}#)
- #{vars\ 1088}#)
+ (cons (if #{rest\ 3637}#
+ (apply cons* #{vars\ 3638}#)
+ #{vars\ 3638}#)
(append
- (if #{docstring\ 1089}#
- (list #{docstring\ 1089}#)
+ (if #{docstring\ 3639}#
+ (list #{docstring\ 3639}#)
'())
- (list #{exp\ 1090}#))))
- #{src\ 1085}#)))))
- (#{build-global-definition\ 104}#
- (lambda (#{source\ 1092}# #{var\ 1093}# #{exp\ 1094}#)
- (let ((#{atom-key\ 1095}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1095}# (quote (c)))
+ (list #{exp\ 3640}#))))
+ #{src\ 3635}#)))))
+ (#{build-global-definition\ 2654}#
+ (lambda (#{source\ 3642}# #{var\ 3643}# #{exp\ 3644}#)
+ (let ((#{atom-key\ 3645}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3645}# (quote (c)))
(begin
- (#{maybe-name-value!\ 103}#
- #{var\ 1093}#
- #{exp\ 1094}#)
+ (#{maybe-name-value!\ 2653}#
+ #{var\ 3643}#
+ #{exp\ 3644}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 1092}#
- #{var\ 1093}#
- #{exp\ 1094}#))
- (#{decorate-source\ 94}#
- (list (quote define) #{var\ 1093}# #{exp\ 1094}#)
- #{source\ 1092}#)))))
- (#{maybe-name-value!\ 103}#
- (lambda (#{name\ 1096}# #{val\ 1097}#)
- (if ((@ (language tree-il) lambda?) #{val\ 1097}#)
- (let ((#{meta\ 1098}#
+ #{source\ 3642}#
+ #{var\ 3643}#
+ #{exp\ 3644}#))
+ (#{decorate-source\ 2644}#
+ (list (quote define) #{var\ 3643}# #{exp\ 3644}#)
+ #{source\ 3642}#)))))
+ (#{maybe-name-value!\ 2653}#
+ (lambda (#{name\ 3646}# #{val\ 3647}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 3647}#)
+ (let ((#{meta\ 3648}#
((@ (language tree-il) lambda-meta)
- #{val\ 1097}#)))
- (if (not (assq (quote name) #{meta\ 1098}#))
+ #{val\ 3647}#)))
+ (if (not (assq (quote name) #{meta\ 3648}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 1097}#
+ #{val\ 3647}#
(acons 'name
- #{name\ 1096}#
- #{meta\ 1098}#)))))))
- (#{build-global-assignment\ 102}#
- (lambda (#{source\ 1099}#
- #{var\ 1100}#
- #{exp\ 1101}#
- #{mod\ 1102}#)
- (#{analyze-variable\ 100}#
- #{mod\ 1102}#
- #{var\ 1100}#
- (lambda (#{mod\ 1103}# #{var\ 1104}# #{public?\ 1105}#)
- (let ((#{atom-key\ 1106}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1106}# (quote (c)))
+ #{name\ 3646}#
+ #{meta\ 3648}#)))))))
+ (#{build-global-assignment\ 2652}#
+ (lambda (#{source\ 3649}#
+ #{var\ 3650}#
+ #{exp\ 3651}#
+ #{mod\ 3652}#)
+ (#{analyze-variable\ 2650}#
+ #{mod\ 3652}#
+ #{var\ 3650}#
+ (lambda (#{mod\ 3653}# #{var\ 3654}# #{public?\ 3655}#)
+ (let ((#{atom-key\ 3656}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3656}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 1099}#
- #{mod\ 1103}#
- #{var\ 1104}#
- #{public?\ 1105}#
- #{exp\ 1101}#)
- (#{decorate-source\ 94}#
+ #{source\ 3649}#
+ #{mod\ 3653}#
+ #{var\ 3654}#
+ #{public?\ 3655}#
+ #{exp\ 3651}#)
+ (#{decorate-source\ 2644}#
(list 'set!
- (list (if #{public?\ 1105}#
+ (list (if #{public?\ 3655}#
'@
'@@)
- #{mod\ 1103}#
- #{var\ 1104}#)
- #{exp\ 1101}#)
- #{source\ 1099}#))))
- (lambda (#{var\ 1107}#)
- (let ((#{atom-key\ 1108}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1108}# (quote (c)))
+ #{mod\ 3653}#
+ #{var\ 3654}#)
+ #{exp\ 3651}#)
+ #{source\ 3649}#))))
+ (lambda (#{var\ 3657}#)
+ (let ((#{atom-key\ 3658}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3658}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 1099}#
- #{var\ 1107}#
- #{exp\ 1101}#)
- (#{decorate-source\ 94}#
- (list (quote set!) #{var\ 1107}# #{exp\ 1101}#)
- #{source\ 1099}#)))))))
- (#{build-global-reference\ 101}#
- (lambda (#{source\ 1109}# #{var\ 1110}# #{mod\ 1111}#)
- (#{analyze-variable\ 100}#
- #{mod\ 1111}#
- #{var\ 1110}#
- (lambda (#{mod\ 1112}# #{var\ 1113}# #{public?\ 1114}#)
- (let ((#{atom-key\ 1115}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1115}# (quote (c)))
+ #{source\ 3649}#
+ #{var\ 3657}#
+ #{exp\ 3651}#)
+ (#{decorate-source\ 2644}#
+ (list (quote set!) #{var\ 3657}# #{exp\ 3651}#)
+ #{source\ 3649}#)))))))
+ (#{build-global-reference\ 2651}#
+ (lambda (#{source\ 3659}# #{var\ 3660}# #{mod\ 3661}#)
+ (#{analyze-variable\ 2650}#
+ #{mod\ 3661}#
+ #{var\ 3660}#
+ (lambda (#{mod\ 3662}# #{var\ 3663}# #{public?\ 3664}#)
+ (let ((#{atom-key\ 3665}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3665}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 1109}#
- #{mod\ 1112}#
- #{var\ 1113}#
- #{public?\ 1114}#)
- (#{decorate-source\ 94}#
- (list (if #{public?\ 1114}# (quote @) (quote @@))
- #{mod\ 1112}#
- #{var\ 1113}#)
- #{source\ 1109}#))))
- (lambda (#{var\ 1116}#)
- (let ((#{atom-key\ 1117}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1117}# (quote (c)))
+ #{source\ 3659}#
+ #{mod\ 3662}#
+ #{var\ 3663}#
+ #{public?\ 3664}#)
+ (#{decorate-source\ 2644}#
+ (list (if #{public?\ 3664}# (quote @) (quote @@))
+ #{mod\ 3662}#
+ #{var\ 3663}#)
+ #{source\ 3659}#))))
+ (lambda (#{var\ 3666}#)
+ (let ((#{atom-key\ 3667}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3667}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 1109}#
- #{var\ 1116}#)
- (#{decorate-source\ 94}#
- #{var\ 1116}#
- #{source\ 1109}#)))))))
- (#{analyze-variable\ 100}#
- (lambda (#{mod\ 1118}#
- #{var\ 1119}#
- #{modref-cont\ 1120}#
- #{bare-cont\ 1121}#)
- (if (not #{mod\ 1118}#)
- (#{bare-cont\ 1121}# #{var\ 1119}#)
- (let ((#{kind\ 1122}# (car #{mod\ 1118}#))
- (#{mod\ 1123}# (cdr #{mod\ 1118}#)))
- (if (memv #{kind\ 1122}# (quote (public)))
- (#{modref-cont\ 1120}#
- #{mod\ 1123}#
- #{var\ 1119}#
+ #{source\ 3659}#
+ #{var\ 3666}#)
+ (#{decorate-source\ 2644}#
+ #{var\ 3666}#
+ #{source\ 3659}#)))))))
+ (#{analyze-variable\ 2650}#
+ (lambda (#{mod\ 3668}#
+ #{var\ 3669}#
+ #{modref-cont\ 3670}#
+ #{bare-cont\ 3671}#)
+ (if (not #{mod\ 3668}#)
+ (#{bare-cont\ 3671}# #{var\ 3669}#)
+ (let ((#{kind\ 3672}# (car #{mod\ 3668}#))
+ (#{mod\ 3673}# (cdr #{mod\ 3668}#)))
+ (if (memv #{kind\ 3672}# (quote (public)))
+ (#{modref-cont\ 3670}#
+ #{mod\ 3673}#
+ #{var\ 3669}#
#t)
- (if (memv #{kind\ 1122}# (quote (private)))
+ (if (memv #{kind\ 3672}# (quote (private)))
(if (not (equal?
- #{mod\ 1123}#
+ #{mod\ 3673}#
(module-name (current-module))))
- (#{modref-cont\ 1120}#
- #{mod\ 1123}#
- #{var\ 1119}#
+ (#{modref-cont\ 3670}#
+ #{mod\ 3673}#
+ #{var\ 3669}#
#f)
- (#{bare-cont\ 1121}# #{var\ 1119}#))
- (if (memv #{kind\ 1122}# (quote (bare)))
- (#{bare-cont\ 1121}# #{var\ 1119}#)
- (if (memv #{kind\ 1122}# (quote (hygiene)))
+ (#{bare-cont\ 3671}# #{var\ 3669}#))
+ (if (memv #{kind\ 3672}# (quote (bare)))
+ (#{bare-cont\ 3671}# #{var\ 3669}#)
+ (if (memv #{kind\ 3672}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 1123}#
+ #{mod\ 3673}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 1123}#)
- #{var\ 1119}#)
+ (resolve-module #{mod\ 3673}#)
+ #{var\ 3669}#)
#f)
- (#{modref-cont\ 1120}#
- #{mod\ 1123}#
- #{var\ 1119}#
+ (#{modref-cont\ 3670}#
+ #{mod\ 3673}#
+ #{var\ 3669}#
#f)
- (#{bare-cont\ 1121}# #{var\ 1119}#))
+ (#{bare-cont\ 3671}# #{var\ 3669}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 1119}#
- #{mod\ 1123}#)))))))))
- (#{build-lexical-assignment\ 99}#
- (lambda (#{source\ 1124}#
- #{name\ 1125}#
- #{var\ 1126}#
- #{exp\ 1127}#)
- (let ((#{atom-key\ 1128}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1128}# (quote (c)))
+ #{var\ 3669}#
+ #{mod\ 3673}#)))))))))
+ (#{build-lexical-assignment\ 2649}#
+ (lambda (#{source\ 3674}#
+ #{name\ 3675}#
+ #{var\ 3676}#
+ #{exp\ 3677}#)
+ (let ((#{atom-key\ 3678}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3678}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 1124}#
- #{name\ 1125}#
- #{var\ 1126}#
- #{exp\ 1127}#)
- (#{decorate-source\ 94}#
- (list (quote set!) #{var\ 1126}# #{exp\ 1127}#)
- #{source\ 1124}#)))))
- (#{build-lexical-reference\ 98}#
- (lambda (#{type\ 1129}#
- #{source\ 1130}#
- #{name\ 1131}#
- #{var\ 1132}#)
- (let ((#{atom-key\ 1133}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1133}# (quote (c)))
+ #{source\ 3674}#
+ #{name\ 3675}#
+ #{var\ 3676}#
+ #{exp\ 3677}#)
+ (#{decorate-source\ 2644}#
+ (list (quote set!) #{var\ 3676}# #{exp\ 3677}#)
+ #{source\ 3674}#)))))
+ (#{build-lexical-reference\ 2648}#
+ (lambda (#{type\ 3679}#
+ #{source\ 3680}#
+ #{name\ 3681}#
+ #{var\ 3682}#)
+ (let ((#{atom-key\ 3683}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3683}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 1130}#
- #{name\ 1131}#
- #{var\ 1132}#)
- (#{decorate-source\ 94}#
- #{var\ 1132}#
- #{source\ 1130}#)))))
- (#{build-conditional\ 97}#
- (lambda (#{source\ 1134}#
- #{test-exp\ 1135}#
- #{then-exp\ 1136}#
- #{else-exp\ 1137}#)
- (let ((#{atom-key\ 1138}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1138}# (quote (c)))
+ #{source\ 3680}#
+ #{name\ 3681}#
+ #{var\ 3682}#)
+ (#{decorate-source\ 2644}#
+ #{var\ 3682}#
+ #{source\ 3680}#)))))
+ (#{build-conditional\ 2647}#
+ (lambda (#{source\ 3684}#
+ #{test-exp\ 3685}#
+ #{then-exp\ 3686}#
+ #{else-exp\ 3687}#)
+ (let ((#{atom-key\ 3688}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3688}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 1134}#
- #{test-exp\ 1135}#
- #{then-exp\ 1136}#
- #{else-exp\ 1137}#)
- (#{decorate-source\ 94}#
- (if (equal? #{else-exp\ 1137}# (quote (if #f #f)))
+ #{source\ 3684}#
+ #{test-exp\ 3685}#
+ #{then-exp\ 3686}#
+ #{else-exp\ 3687}#)
+ (#{decorate-source\ 2644}#
+ (if (equal? #{else-exp\ 3687}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 1135}#
- #{then-exp\ 1136}#)
+ #{test-exp\ 3685}#
+ #{then-exp\ 3686}#)
(list 'if
- #{test-exp\ 1135}#
- #{then-exp\ 1136}#
- #{else-exp\ 1137}#))
- #{source\ 1134}#)))))
- (#{build-application\ 96}#
- (lambda (#{source\ 1139}#
- #{fun-exp\ 1140}#
- #{arg-exps\ 1141}#)
- (let ((#{atom-key\ 1142}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1142}# (quote (c)))
+ #{test-exp\ 3685}#
+ #{then-exp\ 3686}#
+ #{else-exp\ 3687}#))
+ #{source\ 3684}#)))))
+ (#{build-application\ 2646}#
+ (lambda (#{source\ 3689}#
+ #{fun-exp\ 3690}#
+ #{arg-exps\ 3691}#)
+ (let ((#{atom-key\ 3692}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3692}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 1139}#
- #{fun-exp\ 1140}#
- #{arg-exps\ 1141}#)
- (#{decorate-source\ 94}#
- (cons #{fun-exp\ 1140}# #{arg-exps\ 1141}#)
- #{source\ 1139}#)))))
- (#{build-void\ 95}#
- (lambda (#{source\ 1143}#)
- (let ((#{atom-key\ 1144}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1144}# (quote (c)))
+ #{source\ 3689}#
+ #{fun-exp\ 3690}#
+ #{arg-exps\ 3691}#)
+ (#{decorate-source\ 2644}#
+ (cons #{fun-exp\ 3690}# #{arg-exps\ 3691}#)
+ #{source\ 3689}#)))))
+ (#{build-void\ 2645}#
+ (lambda (#{source\ 3693}#)
+ (let ((#{atom-key\ 3694}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3694}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 1143}#)
- (#{decorate-source\ 94}#
+ #{source\ 3693}#)
+ (#{decorate-source\ 2644}#
'(if #f #f)
- #{source\ 1143}#)))))
- (#{decorate-source\ 94}#
- (lambda (#{e\ 1145}# #{s\ 1146}#)
+ #{source\ 3693}#)))))
+ (#{decorate-source\ 2644}#
+ (lambda (#{e\ 3695}# #{s\ 3696}#)
(begin
- (if (if (pair? #{e\ 1145}#) #{s\ 1146}# #f)
- (set-source-properties! #{e\ 1145}# #{s\ 1146}#))
- #{e\ 1145}#)))
- (#{get-global-definition-hook\ 93}#
- (lambda (#{symbol\ 1147}# #{module\ 1148}#)
+ (if (if (pair? #{e\ 3695}#) #{s\ 3696}# #f)
+ (set-source-properties! #{e\ 3695}# #{s\ 3696}#))
+ #{e\ 3695}#)))
+ (#{get-global-definition-hook\ 2643}#
+ (lambda (#{symbol\ 3697}# #{module\ 3698}#)
(begin
- (if (if (not #{module\ 1148}#) (current-module) #f)
+ (if (if (not #{module\ 3698}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 1147}#))
- (let ((#{v\ 1149}#
+ #{symbol\ 3697}#))
+ (let ((#{v\ 3699}#
(module-variable
- (if #{module\ 1148}#
- (resolve-module (cdr #{module\ 1148}#))
+ (if #{module\ 3698}#
+ (resolve-module (cdr #{module\ 3698}#))
(current-module))
- #{symbol\ 1147}#)))
- (if #{v\ 1149}#
- (if (variable-bound? #{v\ 1149}#)
- (let ((#{val\ 1150}# (variable-ref #{v\ 1149}#)))
- (if (macro? #{val\ 1150}#)
- (if (syncase-macro-type #{val\ 1150}#)
- (cons (syncase-macro-type #{val\ 1150}#)
- (syncase-macro-binding #{val\ 1150}#))
+ #{symbol\ 3697}#)))
+ (if #{v\ 3699}#
+ (if (variable-bound? #{v\ 3699}#)
+ (let ((#{val\ 3700}# (variable-ref #{v\ 3699}#)))
+ (if (macro? #{val\ 3700}#)
+ (if (syncase-macro-type #{val\ 3700}#)
+ (cons (syncase-macro-type #{val\ 3700}#)
+ (syncase-macro-binding #{val\ 3700}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 92}#
- (lambda (#{symbol\ 1151}# #{type\ 1152}# #{val\ 1153}#)
- (let ((#{existing\ 1154}#
- (let ((#{v\ 1155}#
+ (#{put-global-definition-hook\ 2642}#
+ (lambda (#{symbol\ 3701}# #{type\ 3702}# #{val\ 3703}#)
+ (let ((#{existing\ 3704}#
+ (let ((#{v\ 3705}#
(module-variable
(current-module)
- #{symbol\ 1151}#)))
- (if #{v\ 1155}#
- (if (variable-bound? #{v\ 1155}#)
- (let ((#{val\ 1156}# (variable-ref #{v\ 1155}#)))
- (if (macro? #{val\ 1156}#)
- (if (not (syncase-macro-type #{val\ 1156}#))
- #{val\ 1156}#
+ #{symbol\ 3701}#)))
+ (if #{v\ 3705}#
+ (if (variable-bound? #{v\ 3705}#)
+ (let ((#{val\ 3706}# (variable-ref #{v\ 3705}#)))
+ (if (macro? #{val\ 3706}#)
+ (if (not (syncase-macro-type #{val\ 3706}#))
+ #{val\ 3706}#
#f)
#f))
#f)
#f))))
(module-define!
(current-module)
- #{symbol\ 1151}#
- (if #{existing\ 1154}#
+ #{symbol\ 3701}#
+ (if #{existing\ 3704}#
(make-extended-syncase-macro
- #{existing\ 1154}#
- #{type\ 1152}#
- #{val\ 1153}#)
- (make-syncase-macro #{type\ 1152}# #{val\ 1153}#))))))
- (#{local-eval-hook\ 91}#
- (lambda (#{x\ 1157}# #{mod\ 1158}#)
+ #{existing\ 3704}#
+ #{type\ 3702}#
+ #{val\ 3703}#)
+ (make-syncase-macro #{type\ 3702}# #{val\ 3703}#))))))
+ (#{local-eval-hook\ 2641}#
+ (lambda (#{x\ 3707}# #{mod\ 3708}#)
(primitive-eval
- (list #{noexpand\ 84}#
- (let ((#{atom-key\ 1159}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1159}# (quote (c)))
+ (list #{noexpand\ 2634}#
+ (let ((#{atom-key\ 3709}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3709}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 1157}#)
- #{x\ 1157}#))))))
- (#{top-level-eval-hook\ 90}#
- (lambda (#{x\ 1160}# #{mod\ 1161}#)
+ #{x\ 3707}#)
+ #{x\ 3707}#))))))
+ (#{top-level-eval-hook\ 2640}#
+ (lambda (#{x\ 3710}# #{mod\ 3711}#)
(primitive-eval
- (list #{noexpand\ 84}#
- (let ((#{atom-key\ 1162}# (fluid-ref #{*mode*\ 85}#)))
- (if (memv #{atom-key\ 1162}# (quote (c)))
+ (list #{noexpand\ 2634}#
+ (let ((#{atom-key\ 3712}# (fluid-ref #{*mode*\ 2635}#)))
+ (if (memv #{atom-key\ 3712}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 1160}#)
- #{x\ 1160}#))))))
- (#{fx<\ 89}# <)
- (#{fx=\ 88}# =)
- (#{fx-\ 87}# -)
- (#{fx+\ 86}# +)
- (#{*mode*\ 85}# (make-fluid))
- (#{noexpand\ 84}# "noexpand"))
+ #{x\ 3710}#)
+ #{x\ 3710}#))))))
+ (#{fx<\ 2639}# <)
+ (#{fx=\ 2638}# =)
+ (#{fx-\ 2637}# -)
+ (#{fx+\ 2636}# +)
+ (#{*mode*\ 2635}# (make-fluid))
+ (#{noexpand\ 2634}# "noexpand"))
(begin
- (#{global-extend\ 129}#
+ (#{global-extend\ 2679}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 129}#
+ (#{global-extend\ 2679}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 129}#
+ (#{global-extend\ 2679}#
'core
'fluid-let-syntax
- (lambda (#{e\ 1163}#
- #{r\ 1164}#
- #{w\ 1165}#
- #{s\ 1166}#
- #{mod\ 1167}#)
- ((lambda (#{tmp\ 1168}#)
- ((lambda (#{tmp\ 1169}#)
- (if (if #{tmp\ 1169}#
- (apply (lambda (#{_\ 1170}#
- #{var\ 1171}#
- #{val\ 1172}#
- #{e1\ 1173}#
- #{e2\ 1174}#)
- (#{valid-bound-ids?\ 156}# #{var\ 1171}#))
- #{tmp\ 1169}#)
+ (lambda (#{e\ 3713}#
+ #{r\ 3714}#
+ #{w\ 3715}#
+ #{s\ 3716}#
+ #{mod\ 3717}#)
+ ((lambda (#{tmp\ 3718}#)
+ ((lambda (#{tmp\ 3719}#)
+ (if (if #{tmp\ 3719}#
+ (apply (lambda (#{_\ 3720}#
+ #{var\ 3721}#
+ #{val\ 3722}#
+ #{e1\ 3723}#
+ #{e2\ 3724}#)
+ (#{valid-bound-ids?\ 2706}# #{var\ 3721}#))
+ #{tmp\ 3719}#)
#f)
- (apply (lambda (#{_\ 1176}#
- #{var\ 1177}#
- #{val\ 1178}#
- #{e1\ 1179}#
- #{e2\ 1180}#)
- (let ((#{names\ 1181}#
- (map (lambda (#{x\ 1182}#)
- (#{id-var-name\ 153}#
- #{x\ 1182}#
- #{w\ 1165}#))
- #{var\ 1177}#)))
+ (apply (lambda (#{_\ 3726}#
+ #{var\ 3727}#
+ #{val\ 3728}#
+ #{e1\ 3729}#
+ #{e2\ 3730}#)
+ (let ((#{names\ 3731}#
+ (map (lambda (#{x\ 3732}#)
+ (#{id-var-name\ 2703}#
+ #{x\ 3732}#
+ #{w\ 3715}#))
+ #{var\ 3727}#)))
(begin
(for-each
- (lambda (#{id\ 1184}# #{n\ 1185}#)
- (let ((#{atom-key\ 1186}#
- (#{binding-type\ 123}#
- (#{lookup\ 128}#
- #{n\ 1185}#
- #{r\ 1164}#
- #{mod\ 1167}#))))
- (if (memv #{atom-key\ 1186}#
+ (lambda (#{id\ 3734}# #{n\ 3735}#)
+ (let ((#{atom-key\ 3736}#
+ (#{binding-type\ 2673}#
+ (#{lookup\ 2678}#
+ #{n\ 3735}#
+ #{r\ 3714}#
+ #{mod\ 3717}#))))
+ (if (memv #{atom-key\ 3736}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 1163}#
- (#{source-wrap\ 160}#
- #{id\ 1184}#
- #{w\ 1165}#
- #{s\ 1166}#
- #{mod\ 1167}#)))))
- #{var\ 1177}#
- #{names\ 1181}#)
- (#{chi-body\ 171}#
- (cons #{e1\ 1179}# #{e2\ 1180}#)
- (#{source-wrap\ 160}#
- #{e\ 1163}#
- #{w\ 1165}#
- #{s\ 1166}#
- #{mod\ 1167}#)
- (#{extend-env\ 125}#
- #{names\ 1181}#
- (let ((#{trans-r\ 1189}#
- (#{macros-only-env\ 127}#
- #{r\ 1164}#)))
- (map (lambda (#{x\ 1190}#)
+ #{e\ 3713}#
+ (#{source-wrap\ 2710}#
+ #{id\ 3734}#
+ #{w\ 3715}#
+ #{s\ 3716}#
+ #{mod\ 3717}#)))))
+ #{var\ 3727}#
+ #{names\ 3731}#)
+ (#{chi-body\ 2721}#
+ (cons #{e1\ 3729}# #{e2\ 3730}#)
+ (#{source-wrap\ 2710}#
+ #{e\ 3713}#
+ #{w\ 3715}#
+ #{s\ 3716}#
+ #{mod\ 3717}#)
+ (#{extend-env\ 2675}#
+ #{names\ 3731}#
+ (let ((#{trans-r\ 3739}#
+ (#{macros-only-env\ 2677}#
+ #{r\ 3714}#)))
+ (map (lambda (#{x\ 3740}#)
(cons 'macro
- (#{eval-local-transformer\ 173}#
- (#{chi\ 167}#
- #{x\ 1190}#
- #{trans-r\ 1189}#
- #{w\ 1165}#
- #{mod\ 1167}#)
- #{mod\ 1167}#)))
- #{val\ 1178}#))
- #{r\ 1164}#)
- #{w\ 1165}#
- #{mod\ 1167}#))))
- #{tmp\ 1169}#)
- ((lambda (#{_\ 1192}#)
+ (#{eval-local-transformer\ 2723}#
+ (#{chi\ 2717}#
+ #{x\ 3740}#
+ #{trans-r\ 3739}#
+ #{w\ 3715}#
+ #{mod\ 3717}#)
+ #{mod\ 3717}#)))
+ #{val\ 3728}#))
+ #{r\ 3714}#)
+ #{w\ 3715}#
+ #{mod\ 3717}#))))
+ #{tmp\ 3719}#)
+ ((lambda (#{_\ 3742}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 160}#
- #{e\ 1163}#
- #{w\ 1165}#
- #{s\ 1166}#
- #{mod\ 1167}#)))
- #{tmp\ 1168}#)))
+ (#{source-wrap\ 2710}#
+ #{e\ 3713}#
+ #{w\ 3715}#
+ #{s\ 3716}#
+ #{mod\ 3717}#)))
+ #{tmp\ 3718}#)))
($sc-dispatch
- #{tmp\ 1168}#
+ #{tmp\ 3718}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1163}#)))
- (#{global-extend\ 129}#
+ #{e\ 3713}#)))
+ (#{global-extend\ 2679}#
'core
'quote
- (lambda (#{e\ 1193}#
- #{r\ 1194}#
- #{w\ 1195}#
- #{s\ 1196}#
- #{mod\ 1197}#)
- ((lambda (#{tmp\ 1198}#)
- ((lambda (#{tmp\ 1199}#)
- (if #{tmp\ 1199}#
- (apply (lambda (#{_\ 1200}# #{e\ 1201}#)
- (#{build-data\ 109}#
- #{s\ 1196}#
- (#{strip\ 180}# #{e\ 1201}# #{w\ 1195}#)))
- #{tmp\ 1199}#)
- ((lambda (#{_\ 1202}#)
+ (lambda (#{e\ 3743}#
+ #{r\ 3744}#
+ #{w\ 3745}#
+ #{s\ 3746}#
+ #{mod\ 3747}#)
+ ((lambda (#{tmp\ 3748}#)
+ ((lambda (#{tmp\ 3749}#)
+ (if #{tmp\ 3749}#
+ (apply (lambda (#{_\ 3750}# #{e\ 3751}#)
+ (#{build-data\ 2659}#
+ #{s\ 3746}#
+ (#{strip\ 2730}# #{e\ 3751}# #{w\ 3745}#)))
+ #{tmp\ 3749}#)
+ ((lambda (#{_\ 3752}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 160}#
- #{e\ 1193}#
- #{w\ 1195}#
- #{s\ 1196}#
- #{mod\ 1197}#)))
- #{tmp\ 1198}#)))
- ($sc-dispatch #{tmp\ 1198}# (quote (any any)))))
- #{e\ 1193}#)))
- (#{global-extend\ 129}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3743}#
+ #{w\ 3745}#
+ #{s\ 3746}#
+ #{mod\ 3747}#)))
+ #{tmp\ 3748}#)))
+ ($sc-dispatch #{tmp\ 3748}# (quote (any any)))))
+ #{e\ 3743}#)))
+ (#{global-extend\ 2679}#
'core
'syntax
- (letrec ((#{regen\ 1210}#
- (lambda (#{x\ 1211}#)
- (let ((#{atom-key\ 1212}# (car #{x\ 1211}#)))
- (if (memv #{atom-key\ 1212}# (quote (ref)))
- (#{build-lexical-reference\ 98}#
+ (letrec ((#{regen\ 3760}#
+ (lambda (#{x\ 3761}#)
+ (let ((#{atom-key\ 3762}# (car #{x\ 3761}#)))
+ (if (memv #{atom-key\ 3762}# (quote (ref)))
+ (#{build-lexical-reference\ 2648}#
'value
#f
- (cadr #{x\ 1211}#)
- (cadr #{x\ 1211}#))
- (if (memv #{atom-key\ 1212}# (quote (primitive)))
- (#{build-primref\ 108}# #f (cadr #{x\ 1211}#))
- (if (memv #{atom-key\ 1212}# (quote (quote)))
- (#{build-data\ 109}# #f (cadr #{x\ 1211}#))
- (if (memv #{atom-key\ 1212}# (quote (lambda)))
- (if (list? (cadr #{x\ 1211}#))
- (#{build-simple-lambda\ 105}#
+ (cadr #{x\ 3761}#)
+ (cadr #{x\ 3761}#))
+ (if (memv #{atom-key\ 3762}# (quote (primitive)))
+ (#{build-primref\ 2658}# #f (cadr #{x\ 3761}#))
+ (if (memv #{atom-key\ 3762}# (quote (quote)))
+ (#{build-data\ 2659}# #f (cadr #{x\ 3761}#))
+ (if (memv #{atom-key\ 3762}# (quote (lambda)))
+ (if (list? (cadr #{x\ 3761}#))
+ (#{build-simple-lambda\ 2655}#
#f
- (cadr #{x\ 1211}#)
+ (cadr #{x\ 3761}#)
#f
- (cadr #{x\ 1211}#)
+ (cadr #{x\ 3761}#)
#f
- (#{regen\ 1210}# (caddr #{x\ 1211}#)))
- (error "how did we get here" #{x\ 1211}#))
- (#{build-application\ 96}#
+ (#{regen\ 3760}# (caddr #{x\ 3761}#)))
+ (error "how did we get here" #{x\ 3761}#))
+ (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}# #f (car #{x\ 1211}#))
- (map #{regen\ 1210}#
- (cdr #{x\ 1211}#))))))))))
- (#{gen-vector\ 1209}#
- (lambda (#{x\ 1213}#)
- (if (eq? (car #{x\ 1213}#) (quote list))
- (cons (quote vector) (cdr #{x\ 1213}#))
- (if (eq? (car #{x\ 1213}#) (quote quote))
+ (#{build-primref\ 2658}# #f (car #{x\ 3761}#))
+ (map #{regen\ 3760}#
+ (cdr #{x\ 3761}#))))))))))
+ (#{gen-vector\ 3759}#
+ (lambda (#{x\ 3763}#)
+ (if (eq? (car #{x\ 3763}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 3763}#))
+ (if (eq? (car #{x\ 3763}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 1213}#)))
- (list (quote list->vector) #{x\ 1213}#)))))
- (#{gen-append\ 1208}#
- (lambda (#{x\ 1214}# #{y\ 1215}#)
- (if (equal? #{y\ 1215}# (quote (quote ())))
- #{x\ 1214}#
- (list (quote append) #{x\ 1214}# #{y\ 1215}#))))
- (#{gen-cons\ 1207}#
- (lambda (#{x\ 1216}# #{y\ 1217}#)
- (let ((#{atom-key\ 1218}# (car #{y\ 1217}#)))
- (if (memv #{atom-key\ 1218}# (quote (quote)))
- (if (eq? (car #{x\ 1216}#) (quote quote))
+ (list->vector (cadr #{x\ 3763}#)))
+ (list (quote list->vector) #{x\ 3763}#)))))
+ (#{gen-append\ 3758}#
+ (lambda (#{x\ 3764}# #{y\ 3765}#)
+ (if (equal? #{y\ 3765}# (quote (quote ())))
+ #{x\ 3764}#
+ (list (quote append) #{x\ 3764}# #{y\ 3765}#))))
+ (#{gen-cons\ 3757}#
+ (lambda (#{x\ 3766}# #{y\ 3767}#)
+ (let ((#{atom-key\ 3768}# (car #{y\ 3767}#)))
+ (if (memv #{atom-key\ 3768}# (quote (quote)))
+ (if (eq? (car #{x\ 3766}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 1216}#) (cadr #{y\ 1217}#)))
- (if (eq? (cadr #{y\ 1217}#) (quote ()))
- (list (quote list) #{x\ 1216}#)
- (list (quote cons) #{x\ 1216}# #{y\ 1217}#)))
- (if (memv #{atom-key\ 1218}# (quote (list)))
+ (cons (cadr #{x\ 3766}#) (cadr #{y\ 3767}#)))
+ (if (eq? (cadr #{y\ 3767}#) (quote ()))
+ (list (quote list) #{x\ 3766}#)
+ (list (quote cons) #{x\ 3766}# #{y\ 3767}#)))
+ (if (memv #{atom-key\ 3768}# (quote (list)))
(cons 'list
- (cons #{x\ 1216}# (cdr #{y\ 1217}#)))
- (list (quote cons) #{x\ 1216}# #{y\ 1217}#))))))
- (#{gen-map\ 1206}#
- (lambda (#{e\ 1219}# #{map-env\ 1220}#)
- (let ((#{formals\ 1221}# (map cdr #{map-env\ 1220}#))
- (#{actuals\ 1222}#
- (map (lambda (#{x\ 1223}#)
- (list (quote ref) (car #{x\ 1223}#)))
- #{map-env\ 1220}#)))
- (if (eq? (car #{e\ 1219}#) (quote ref))
- (car #{actuals\ 1222}#)
+ (cons #{x\ 3766}# (cdr #{y\ 3767}#)))
+ (list (quote cons) #{x\ 3766}# #{y\ 3767}#))))))
+ (#{gen-map\ 3756}#
+ (lambda (#{e\ 3769}# #{map-env\ 3770}#)
+ (let ((#{formals\ 3771}# (map cdr #{map-env\ 3770}#))
+ (#{actuals\ 3772}#
+ (map (lambda (#{x\ 3773}#)
+ (list (quote ref) (car #{x\ 3773}#)))
+ #{map-env\ 3770}#)))
+ (if (eq? (car #{e\ 3769}#) (quote ref))
+ (car #{actuals\ 3772}#)
(if (and-map
- (lambda (#{x\ 1224}#)
- (if (eq? (car #{x\ 1224}#) (quote ref))
- (memq (cadr #{x\ 1224}#) #{formals\ 1221}#)
+ (lambda (#{x\ 3774}#)
+ (if (eq? (car #{x\ 3774}#) (quote ref))
+ (memq (cadr #{x\ 3774}#) #{formals\ 3771}#)
#f))
- (cdr #{e\ 1219}#))
+ (cdr #{e\ 3769}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 1219}#))
- (map (let ((#{r\ 1225}#
+ (car #{e\ 3769}#))
+ (map (let ((#{r\ 3775}#
(map cons
- #{formals\ 1221}#
- #{actuals\ 1222}#)))
- (lambda (#{x\ 1226}#)
- (cdr (assq (cadr #{x\ 1226}#)
- #{r\ 1225}#))))
- (cdr #{e\ 1219}#))))
+ #{formals\ 3771}#
+ #{actuals\ 3772}#)))
+ (lambda (#{x\ 3776}#)
+ (cdr (assq (cadr #{x\ 3776}#)
+ #{r\ 3775}#))))
+ (cdr #{e\ 3769}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 1221}#
- #{e\ 1219}#)
- #{actuals\ 1222}#)))))))
- (#{gen-mappend\ 1205}#
- (lambda (#{e\ 1227}# #{map-env\ 1228}#)
+ #{formals\ 3771}#
+ #{e\ 3769}#)
+ #{actuals\ 3772}#)))))))
+ (#{gen-mappend\ 3755}#
+ (lambda (#{e\ 3777}# #{map-env\ 3778}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 1206}# #{e\ 1227}# #{map-env\ 1228}#))))
- (#{gen-ref\ 1204}#
- (lambda (#{src\ 1229}#
- #{var\ 1230}#
- #{level\ 1231}#
- #{maps\ 1232}#)
- (if (#{fx=\ 88}# #{level\ 1231}# 0)
- (values #{var\ 1230}# #{maps\ 1232}#)
- (if (null? #{maps\ 1232}#)
+ (#{gen-map\ 3756}# #{e\ 3777}# #{map-env\ 3778}#))))
+ (#{gen-ref\ 3754}#
+ (lambda (#{src\ 3779}#
+ #{var\ 3780}#
+ #{level\ 3781}#
+ #{maps\ 3782}#)
+ (if (#{fx=\ 2638}# #{level\ 3781}# 0)
+ (values #{var\ 3780}# #{maps\ 3782}#)
+ (if (null? #{maps\ 3782}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 1229}#)
+ #{src\ 3779}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 1204}#
- #{src\ 1229}#
- #{var\ 1230}#
- (#{fx-\ 87}# #{level\ 1231}# 1)
- (cdr #{maps\ 1232}#)))
- (lambda (#{outer-var\ 1233}# #{outer-maps\ 1234}#)
- (let ((#{b\ 1235}#
- (assq #{outer-var\ 1233}#
- (car #{maps\ 1232}#))))
- (if #{b\ 1235}#
- (values (cdr #{b\ 1235}#) #{maps\ 1232}#)
- (let ((#{inner-var\ 1236}#
- (#{gen-var\ 181}# (quote tmp))))
+ (#{gen-ref\ 3754}#
+ #{src\ 3779}#
+ #{var\ 3780}#
+ (#{fx-\ 2637}# #{level\ 3781}# 1)
+ (cdr #{maps\ 3782}#)))
+ (lambda (#{outer-var\ 3783}# #{outer-maps\ 3784}#)
+ (let ((#{b\ 3785}#
+ (assq #{outer-var\ 3783}#
+ (car #{maps\ 3782}#))))
+ (if #{b\ 3785}#
+ (values (cdr #{b\ 3785}#) #{maps\ 3782}#)
+ (let ((#{inner-var\ 3786}#
+ (#{gen-var\ 2731}# (quote tmp))))
(values
- #{inner-var\ 1236}#
- (cons (cons (cons #{outer-var\ 1233}#
- #{inner-var\ 1236}#)
- (car #{maps\ 1232}#))
- #{outer-maps\ 1234}#)))))))))))
- (#{gen-syntax\ 1203}#
- (lambda (#{src\ 1237}#
- #{e\ 1238}#
- #{r\ 1239}#
- #{maps\ 1240}#
- #{ellipsis?\ 1241}#
- #{mod\ 1242}#)
- (if (#{id?\ 131}# #{e\ 1238}#)
- (let ((#{label\ 1243}#
- (#{id-var-name\ 153}#
- #{e\ 1238}#
+ #{inner-var\ 3786}#
+ (cons (cons (cons #{outer-var\ 3783}#
+ #{inner-var\ 3786}#)
+ (car #{maps\ 3782}#))
+ #{outer-maps\ 3784}#)))))))))))
+ (#{gen-syntax\ 3753}#
+ (lambda (#{src\ 3787}#
+ #{e\ 3788}#
+ #{r\ 3789}#
+ #{maps\ 3790}#
+ #{ellipsis?\ 3791}#
+ #{mod\ 3792}#)
+ (if (#{id?\ 2681}# #{e\ 3788}#)
+ (let ((#{label\ 3793}#
+ (#{id-var-name\ 2703}#
+ #{e\ 3788}#
'(()))))
- (let ((#{b\ 1244}#
- (#{lookup\ 128}#
- #{label\ 1243}#
- #{r\ 1239}#
- #{mod\ 1242}#)))
- (if (eq? (#{binding-type\ 123}# #{b\ 1244}#)
+ (let ((#{b\ 3794}#
+ (#{lookup\ 2678}#
+ #{label\ 3793}#
+ #{r\ 3789}#
+ #{mod\ 3792}#)))
+ (if (eq? (#{binding-type\ 2673}# #{b\ 3794}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 1245}#
- (#{binding-value\ 124}# #{b\ 1244}#)))
- (#{gen-ref\ 1204}#
- #{src\ 1237}#
- (car #{var.lev\ 1245}#)
- (cdr #{var.lev\ 1245}#)
- #{maps\ 1240}#)))
- (lambda (#{var\ 1246}# #{maps\ 1247}#)
+ (let ((#{var.lev\ 3795}#
+ (#{binding-value\ 2674}#
+ #{b\ 3794}#)))
+ (#{gen-ref\ 3754}#
+ #{src\ 3787}#
+ (car #{var.lev\ 3795}#)
+ (cdr #{var.lev\ 3795}#)
+ #{maps\ 3790}#)))
+ (lambda (#{var\ 3796}# #{maps\ 3797}#)
(values
- (list (quote ref) #{var\ 1246}#)
- #{maps\ 1247}#)))
- (if (#{ellipsis?\ 1241}# #{e\ 1238}#)
+ (list (quote ref) #{var\ 3796}#)
+ #{maps\ 3797}#)))
+ (if (#{ellipsis?\ 3791}# #{e\ 3788}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 1237}#)
+ #{src\ 3787}#)
(values
- (list (quote quote) #{e\ 1238}#)
- #{maps\ 1240}#)))))
- ((lambda (#{tmp\ 1248}#)
- ((lambda (#{tmp\ 1249}#)
- (if (if #{tmp\ 1249}#
- (apply (lambda (#{dots\ 1250}# #{e\ 1251}#)
- (#{ellipsis?\ 1241}#
- #{dots\ 1250}#))
- #{tmp\ 1249}#)
+ (list (quote quote) #{e\ 3788}#)
+ #{maps\ 3790}#)))))
+ ((lambda (#{tmp\ 3798}#)
+ ((lambda (#{tmp\ 3799}#)
+ (if (if #{tmp\ 3799}#
+ (apply (lambda (#{dots\ 3800}# #{e\ 3801}#)
+ (#{ellipsis?\ 3791}#
+ #{dots\ 3800}#))
+ #{tmp\ 3799}#)
#f)
- (apply (lambda (#{dots\ 1252}# #{e\ 1253}#)
- (#{gen-syntax\ 1203}#
- #{src\ 1237}#
- #{e\ 1253}#
- #{r\ 1239}#
- #{maps\ 1240}#
- (lambda (#{x\ 1254}#) #f)
- #{mod\ 1242}#))
- #{tmp\ 1249}#)
- ((lambda (#{tmp\ 1255}#)
- (if (if #{tmp\ 1255}#
- (apply (lambda (#{x\ 1256}#
- #{dots\ 1257}#
- #{y\ 1258}#)
- (#{ellipsis?\ 1241}#
- #{dots\ 1257}#))
- #{tmp\ 1255}#)
+ (apply (lambda (#{dots\ 3802}# #{e\ 3803}#)
+ (#{gen-syntax\ 3753}#
+ #{src\ 3787}#
+ #{e\ 3803}#
+ #{r\ 3789}#
+ #{maps\ 3790}#
+ (lambda (#{x\ 3804}#) #f)
+ #{mod\ 3792}#))
+ #{tmp\ 3799}#)
+ ((lambda (#{tmp\ 3805}#)
+ (if (if #{tmp\ 3805}#
+ (apply (lambda (#{x\ 3806}#
+ #{dots\ 3807}#
+ #{y\ 3808}#)
+ (#{ellipsis?\ 3791}#
+ #{dots\ 3807}#))
+ #{tmp\ 3805}#)
#f)
- (apply (lambda (#{x\ 1259}#
- #{dots\ 1260}#
- #{y\ 1261}#)
- (letrec ((#{f\ 1262}#
- (lambda (#{y\ 1263}#
- #{k\ 1264}#)
- ((lambda (#{tmp\ 1268}#)
- ((lambda (#{tmp\ 1269}#)
- (if (if #{tmp\ 1269}#
- (apply (lambda (#{dots\ 1270}#
- #{y\ 1271}#)
- (#{ellipsis?\ 1241}#
- #{dots\ 1270}#))
- #{tmp\ 1269}#)
+ (apply (lambda (#{x\ 3809}#
+ #{dots\ 3810}#
+ #{y\ 3811}#)
+ (letrec ((#{f\ 3812}#
+ (lambda (#{y\ 3813}#
+ #{k\ 3814}#)
+ ((lambda (#{tmp\ 3818}#)
+ ((lambda (#{tmp\ 3819}#)
+ (if (if #{tmp\ 3819}#
+ (apply (lambda (#{dots\ 3820}#
+ #{y\ 3821}#)
+ (#{ellipsis?\ 3791}#
+ #{dots\ 3820}#))
+ #{tmp\ 3819}#)
#f)
- (apply (lambda (#{dots\ 1272}#
- #{y\ 1273}#)
- (#{f\ 1262}#
- #{y\ 1273}#
- (lambda (#{maps\ 1274}#)
+ (apply (lambda (#{dots\ 3822}#
+ #{y\ 3823}#)
+ (#{f\ 3812}#
+ #{y\ 3823}#
+ (lambda (#{maps\ 3824}#)
(call-with-values
(lambda ()
- (#{k\ 1264}#
+ (#{k\ 3814}#
(cons '()
- #{maps\ 1274}#)))
- (lambda (#{x\ 1275}#
- #{maps\ 1276}#)
- (if (null? (car #{maps\ 1276}#))
+ #{maps\ 3824}#)))
+ (lambda (#{x\ 3825}#
+ #{maps\ 3826}#)
+ (if (null? (car #{maps\ 3826}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 1237}#)
+ #{src\ 3787}#)
(values
- (#{gen-mappend\ 1205}#
- #{x\ 1275}#
- (car #{maps\ 1276}#))
- (cdr #{maps\ 1276}#))))))))
- #{tmp\ 1269}#)
- ((lambda (#{_\ 1277}#)
+ (#{gen-mappend\ 3755}#
+ #{x\ 3825}#
+ (car #{maps\ 3826}#))
+ (cdr #{maps\ 3826}#))))))))
+ #{tmp\ 3819}#)
+ ((lambda (#{_\ 3827}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1203}#
- #{src\ 1237}#
- #{y\ 1263}#
- #{r\ 1239}#
- #{maps\ 1240}#
- #{ellipsis?\ 1241}#
- #{mod\ 1242}#))
- (lambda (#{y\ 1278}#
- #{maps\ 1279}#)
+ (#{gen-syntax\ 3753}#
+ #{src\ 3787}#
+ #{y\ 3813}#
+ #{r\ 3789}#
+ #{maps\ 3790}#
+ #{ellipsis?\ 3791}#
+ #{mod\ 3792}#))
+ (lambda (#{y\ 3828}#
+ #{maps\ 3829}#)
(call-with-values
(lambda ()
- (#{k\ 1264}#
- #{maps\ 1279}#))
- (lambda (#{x\ 1280}#
- #{maps\ 1281}#)
+ (#{k\ 3814}#
+ #{maps\ 3829}#))
+ (lambda (#{x\ 3830}#
+ #{maps\ 3831}#)
(values
- (#{gen-append\ 1208}#
- #{x\ 1280}#
- #{y\ 1278}#)
- #{maps\ 1281}#))))))
- #{tmp\ 1268}#)))
+ (#{gen-append\ 3758}#
+ #{x\ 3830}#
+ #{y\ 3828}#)
+ #{maps\ 3831}#))))))
+ #{tmp\ 3818}#)))
($sc-dispatch
- #{tmp\ 1268}#
+ #{tmp\ 3818}#
'(any . any))))
- #{y\ 1263}#))))
- (#{f\ 1262}#
- #{y\ 1261}#
- (lambda (#{maps\ 1265}#)
+ #{y\ 3813}#))))
+ (#{f\ 3812}#
+ #{y\ 3811}#
+ (lambda (#{maps\ 3815}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1203}#
- #{src\ 1237}#
- #{x\ 1259}#
- #{r\ 1239}#
+ (#{gen-syntax\ 3753}#
+ #{src\ 3787}#
+ #{x\ 3809}#
+ #{r\ 3789}#
(cons '()
- #{maps\ 1265}#)
- #{ellipsis?\ 1241}#
- #{mod\ 1242}#))
- (lambda (#{x\ 1266}#
- #{maps\ 1267}#)
- (if (null? (car #{maps\ 1267}#))
+ #{maps\ 3815}#)
+ #{ellipsis?\ 3791}#
+ #{mod\ 3792}#))
+ (lambda (#{x\ 3816}#
+ #{maps\ 3817}#)
+ (if (null? (car #{maps\ 3817}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 1237}#)
+ #{src\ 3787}#)
(values
- (#{gen-map\ 1206}#
- #{x\ 1266}#
- (car #{maps\ 1267}#))
- (cdr #{maps\ 1267}#)))))))))
- #{tmp\ 1255}#)
- ((lambda (#{tmp\ 1282}#)
- (if #{tmp\ 1282}#
- (apply (lambda (#{x\ 1283}#
- #{y\ 1284}#)
+ (#{gen-map\ 3756}#
+ #{x\ 3816}#
+ (car #{maps\ 3817}#))
+ (cdr #{maps\ 3817}#)))))))))
+ #{tmp\ 3805}#)
+ ((lambda (#{tmp\ 3832}#)
+ (if #{tmp\ 3832}#
+ (apply (lambda (#{x\ 3833}#
+ #{y\ 3834}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1203}#
- #{src\ 1237}#
- #{x\ 1283}#
- #{r\ 1239}#
- #{maps\ 1240}#
- #{ellipsis?\ 1241}#
- #{mod\ 1242}#))
- (lambda (#{x\ 1285}#
- #{maps\ 1286}#)
+ (#{gen-syntax\ 3753}#
+ #{src\ 3787}#
+ #{x\ 3833}#
+ #{r\ 3789}#
+ #{maps\ 3790}#
+ #{ellipsis?\ 3791}#
+ #{mod\ 3792}#))
+ (lambda (#{x\ 3835}#
+ #{maps\ 3836}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1203}#
- #{src\ 1237}#
- #{y\ 1284}#
- #{r\ 1239}#
- #{maps\ 1286}#
- #{ellipsis?\ 1241}#
- #{mod\ 1242}#))
- (lambda (#{y\ 1287}#
- #{maps\ 1288}#)
+ (#{gen-syntax\ 3753}#
+ #{src\ 3787}#
+ #{y\ 3834}#
+ #{r\ 3789}#
+ #{maps\ 3836}#
+ #{ellipsis?\ 3791}#
+ #{mod\ 3792}#))
+ (lambda (#{y\ 3837}#
+ #{maps\ 3838}#)
(values
- (#{gen-cons\ 1207}#
- #{x\ 1285}#
- #{y\ 1287}#)
- #{maps\ 1288}#))))))
- #{tmp\ 1282}#)
- ((lambda (#{tmp\ 1289}#)
- (if #{tmp\ 1289}#
- (apply (lambda (#{e1\ 1290}#
- #{e2\ 1291}#)
+ (#{gen-cons\ 3757}#
+ #{x\ 3835}#
+ #{y\ 3837}#)
+ #{maps\ 3838}#))))))
+ #{tmp\ 3832}#)
+ ((lambda (#{tmp\ 3839}#)
+ (if #{tmp\ 3839}#
+ (apply (lambda (#{e1\ 3840}#
+ #{e2\ 3841}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1203}#
- #{src\ 1237}#
- (cons #{e1\ 1290}#
- #{e2\ 1291}#)
- #{r\ 1239}#
- #{maps\ 1240}#
- #{ellipsis?\ 1241}#
- #{mod\ 1242}#))
- (lambda (#{e\ 1293}#
- #{maps\ 1294}#)
+ (#{gen-syntax\ 3753}#
+ #{src\ 3787}#
+ (cons #{e1\ 3840}#
+ #{e2\ 3841}#)
+ #{r\ 3789}#
+ #{maps\ 3790}#
+ #{ellipsis?\ 3791}#
+ #{mod\ 3792}#))
+ (lambda (#{e\ 3843}#
+ #{maps\ 3844}#)
(values
- (#{gen-vector\ 1209}#
- #{e\ 1293}#)
- #{maps\ 1294}#))))
- #{tmp\ 1289}#)
- ((lambda (#{_\ 1295}#)
+ (#{gen-vector\ 3759}#
+ #{e\ 3843}#)
+ #{maps\ 3844}#))))
+ #{tmp\ 3839}#)
+ ((lambda (#{_\ 3845}#)
(values
(list 'quote
- #{e\ 1238}#)
- #{maps\ 1240}#))
- #{tmp\ 1248}#)))
+ #{e\ 3788}#)
+ #{maps\ 3790}#))
+ #{tmp\ 3798}#)))
($sc-dispatch
- #{tmp\ 1248}#
+ #{tmp\ 3798}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 1248}#
+ #{tmp\ 3798}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1248}#
+ #{tmp\ 3798}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 1248}# (quote (any any)))))
- #{e\ 1238}#)))))
- (lambda (#{e\ 1296}#
- #{r\ 1297}#
- #{w\ 1298}#
- #{s\ 1299}#
- #{mod\ 1300}#)
- (let ((#{e\ 1301}#
- (#{source-wrap\ 160}#
- #{e\ 1296}#
- #{w\ 1298}#
- #{s\ 1299}#
- #{mod\ 1300}#)))
- ((lambda (#{tmp\ 1302}#)
- ((lambda (#{tmp\ 1303}#)
- (if #{tmp\ 1303}#
- (apply (lambda (#{_\ 1304}# #{x\ 1305}#)
+ ($sc-dispatch #{tmp\ 3798}# (quote (any any)))))
+ #{e\ 3788}#)))))
+ (lambda (#{e\ 3846}#
+ #{r\ 3847}#
+ #{w\ 3848}#
+ #{s\ 3849}#
+ #{mod\ 3850}#)
+ (let ((#{e\ 3851}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3846}#
+ #{w\ 3848}#
+ #{s\ 3849}#
+ #{mod\ 3850}#)))
+ ((lambda (#{tmp\ 3852}#)
+ ((lambda (#{tmp\ 3853}#)
+ (if #{tmp\ 3853}#
+ (apply (lambda (#{_\ 3854}# #{x\ 3855}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 1203}#
- #{e\ 1301}#
- #{x\ 1305}#
- #{r\ 1297}#
+ (#{gen-syntax\ 3753}#
+ #{e\ 3851}#
+ #{x\ 3855}#
+ #{r\ 3847}#
'()
- #{ellipsis?\ 175}#
- #{mod\ 1300}#))
- (lambda (#{e\ 1306}# #{maps\ 1307}#)
- (#{regen\ 1210}# #{e\ 1306}#))))
- #{tmp\ 1303}#)
- ((lambda (#{_\ 1308}#)
+ #{ellipsis?\ 2725}#
+ #{mod\ 3850}#))
+ (lambda (#{e\ 3856}# #{maps\ 3857}#)
+ (#{regen\ 3760}# #{e\ 3856}#))))
+ #{tmp\ 3853}#)
+ ((lambda (#{_\ 3858}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 1301}#))
- #{tmp\ 1302}#)))
- ($sc-dispatch #{tmp\ 1302}# (quote (any any)))))
- #{e\ 1301}#)))))
- (#{global-extend\ 129}#
+ #{e\ 3851}#))
+ #{tmp\ 3852}#)))
+ ($sc-dispatch #{tmp\ 3852}# (quote (any any)))))
+ #{e\ 3851}#)))))
+ (#{global-extend\ 2679}#
'core
'lambda
- (lambda (#{e\ 1309}#
- #{r\ 1310}#
- #{w\ 1311}#
- #{s\ 1312}#
- #{mod\ 1313}#)
- ((lambda (#{tmp\ 1314}#)
- ((lambda (#{tmp\ 1315}#)
- (if (if #{tmp\ 1315}#
- (apply (lambda (#{_\ 1316}#
- #{args\ 1317}#
- #{docstring\ 1318}#
- #{e1\ 1319}#
- #{e2\ 1320}#)
- (string? (syntax->datum #{docstring\ 1318}#)))
- #{tmp\ 1315}#)
+ (lambda (#{e\ 3859}#
+ #{r\ 3860}#
+ #{w\ 3861}#
+ #{s\ 3862}#
+ #{mod\ 3863}#)
+ ((lambda (#{tmp\ 3864}#)
+ ((lambda (#{tmp\ 3865}#)
+ (if (if #{tmp\ 3865}#
+ (apply (lambda (#{_\ 3866}#
+ #{args\ 3867}#
+ #{docstring\ 3868}#
+ #{e1\ 3869}#
+ #{e2\ 3870}#)
+ (string? (syntax->datum #{docstring\ 3868}#)))
+ #{tmp\ 3865}#)
#f)
- (apply (lambda (#{_\ 1321}#
- #{args\ 1322}#
- #{docstring\ 1323}#
- #{e1\ 1324}#
- #{e2\ 1325}#)
+ (apply (lambda (#{_\ 3871}#
+ #{args\ 3872}#
+ #{docstring\ 3873}#
+ #{e1\ 3874}#
+ #{e2\ 3875}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 176}# #{args\ 1322}#))
- (lambda (#{req\ 1326}#
- #{opt\ 1327}#
- #{rest\ 1328}#
- #{kw\ 1329}#)
- (#{chi-simple-lambda\ 177}#
- #{e\ 1309}#
- #{r\ 1310}#
- #{w\ 1311}#
- #{s\ 1312}#
- #{mod\ 1313}#
- #{req\ 1326}#
- #{rest\ 1328}#
- (syntax->datum #{docstring\ 1323}#)
- (cons #{e1\ 1324}# #{e2\ 1325}#)))))
- #{tmp\ 1315}#)
- ((lambda (#{tmp\ 1331}#)
- (if #{tmp\ 1331}#
- (apply (lambda (#{_\ 1332}#
- #{args\ 1333}#
- #{e1\ 1334}#
- #{e2\ 1335}#)
+ (#{lambda-formals\ 2726}# #{args\ 3872}#))
+ (lambda (#{req\ 3876}#
+ #{opt\ 3877}#
+ #{rest\ 3878}#
+ #{kw\ 3879}#)
+ (#{chi-simple-lambda\ 2727}#
+ #{e\ 3859}#
+ #{r\ 3860}#
+ #{w\ 3861}#
+ #{s\ 3862}#
+ #{mod\ 3863}#
+ #{req\ 3876}#
+ #{rest\ 3878}#
+ (syntax->datum #{docstring\ 3873}#)
+ (cons #{e1\ 3874}# #{e2\ 3875}#)))))
+ #{tmp\ 3865}#)
+ ((lambda (#{tmp\ 3881}#)
+ (if #{tmp\ 3881}#
+ (apply (lambda (#{_\ 3882}#
+ #{args\ 3883}#
+ #{e1\ 3884}#
+ #{e2\ 3885}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 176}# #{args\ 1333}#))
- (lambda (#{req\ 1336}#
- #{opt\ 1337}#
- #{rest\ 1338}#
- #{kw\ 1339}#)
- (#{chi-simple-lambda\ 177}#
- #{e\ 1309}#
- #{r\ 1310}#
- #{w\ 1311}#
- #{s\ 1312}#
- #{mod\ 1313}#
- #{req\ 1336}#
- #{rest\ 1338}#
+ (#{lambda-formals\ 2726}# #{args\ 3883}#))
+ (lambda (#{req\ 3886}#
+ #{opt\ 3887}#
+ #{rest\ 3888}#
+ #{kw\ 3889}#)
+ (#{chi-simple-lambda\ 2727}#
+ #{e\ 3859}#
+ #{r\ 3860}#
+ #{w\ 3861}#
+ #{s\ 3862}#
+ #{mod\ 3863}#
+ #{req\ 3886}#
+ #{rest\ 3888}#
#f
- (cons #{e1\ 1334}# #{e2\ 1335}#)))))
- #{tmp\ 1331}#)
- ((lambda (#{_\ 1341}#)
+ (cons #{e1\ 3884}# #{e2\ 3885}#)))))
+ #{tmp\ 3881}#)
+ ((lambda (#{_\ 3891}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 1309}#))
- #{tmp\ 1314}#)))
+ #{e\ 3859}#))
+ #{tmp\ 3864}#)))
($sc-dispatch
- #{tmp\ 1314}#
+ #{tmp\ 3864}#
'(any any any . each-any)))))
($sc-dispatch
- #{tmp\ 1314}#
+ #{tmp\ 3864}#
'(any any any any . each-any))))
- #{e\ 1309}#)))
- (#{global-extend\ 129}#
+ #{e\ 3859}#)))
+ (#{global-extend\ 2679}#
'core
'lambda*
- (lambda (#{e\ 1342}#
- #{r\ 1343}#
- #{w\ 1344}#
- #{s\ 1345}#
- #{mod\ 1346}#)
- ((lambda (#{tmp\ 1347}#)
- ((lambda (#{tmp\ 1348}#)
- (if #{tmp\ 1348}#
- (apply (lambda (#{_\ 1349}#
- #{args\ 1350}#
- #{e1\ 1351}#
- #{e2\ 1352}#)
+ (lambda (#{e\ 3892}#
+ #{r\ 3893}#
+ #{w\ 3894}#
+ #{s\ 3895}#
+ #{mod\ 3896}#)
+ ((lambda (#{tmp\ 3897}#)
+ ((lambda (#{tmp\ 3898}#)
+ (if #{tmp\ 3898}#
+ (apply (lambda (#{_\ 3899}#
+ #{args\ 3900}#
+ #{e1\ 3901}#
+ #{e2\ 3902}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 179}#
- #{e\ 1342}#
- #{r\ 1343}#
- #{w\ 1344}#
- #{s\ 1345}#
- #{mod\ 1346}#
- #{lambda*-formals\ 178}#
- (list (cons #{args\ 1350}#
- (cons #{e1\ 1351}#
- #{e2\ 1352}#)))))
- (lambda (#{docstring\ 1354}# #{lcase\ 1355}#)
- (#{build-case-lambda\ 106}#
- #{s\ 1345}#
- #{docstring\ 1354}#
- #{lcase\ 1355}#))))
- #{tmp\ 1348}#)
- ((lambda (#{_\ 1356}#)
+ (#{chi-lambda-case\ 2729}#
+ #{e\ 3892}#
+ #{r\ 3893}#
+ #{w\ 3894}#
+ #{s\ 3895}#
+ #{mod\ 3896}#
+ #{lambda*-formals\ 2728}#
+ (list (cons #{args\ 3900}#
+ (cons #{e1\ 3901}#
+ #{e2\ 3902}#)))))
+ (lambda (#{docstring\ 3904}# #{lcase\ 3905}#)
+ (#{build-case-lambda\ 2656}#
+ #{s\ 3895}#
+ #{docstring\ 3904}#
+ #{lcase\ 3905}#))))
+ #{tmp\ 3898}#)
+ ((lambda (#{_\ 3906}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 1342}#))
- #{tmp\ 1347}#)))
+ #{e\ 3892}#))
+ #{tmp\ 3897}#)))
($sc-dispatch
- #{tmp\ 1347}#
+ #{tmp\ 3897}#
'(any any any . each-any))))
- #{e\ 1342}#)))
- (#{global-extend\ 129}#
+ #{e\ 3892}#)))
+ (#{global-extend\ 2679}#
'core
'case-lambda
- (lambda (#{e\ 1357}#
- #{r\ 1358}#
- #{w\ 1359}#
- #{s\ 1360}#
- #{mod\ 1361}#)
- ((lambda (#{tmp\ 1362}#)
- ((lambda (#{tmp\ 1363}#)
- (if #{tmp\ 1363}#
- (apply (lambda (#{_\ 1364}#
- #{args\ 1365}#
- #{e1\ 1366}#
- #{e2\ 1367}#
- #{args*\ 1368}#
- #{e1*\ 1369}#
- #{e2*\ 1370}#)
+ (lambda (#{e\ 3907}#
+ #{r\ 3908}#
+ #{w\ 3909}#
+ #{s\ 3910}#
+ #{mod\ 3911}#)
+ ((lambda (#{tmp\ 3912}#)
+ ((lambda (#{tmp\ 3913}#)
+ (if #{tmp\ 3913}#
+ (apply (lambda (#{_\ 3914}#
+ #{args\ 3915}#
+ #{e1\ 3916}#
+ #{e2\ 3917}#
+ #{args*\ 3918}#
+ #{e1*\ 3919}#
+ #{e2*\ 3920}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 179}#
- #{e\ 1357}#
- #{r\ 1358}#
- #{w\ 1359}#
- #{s\ 1360}#
- #{mod\ 1361}#
- #{lambda-formals\ 176}#
- (cons (cons #{args\ 1365}#
- (cons #{e1\ 1366}# #{e2\ 1367}#))
- (map (lambda (#{tmp\ 1374}#
- #{tmp\ 1373}#
- #{tmp\ 1372}#)
- (cons #{tmp\ 1372}#
- (cons #{tmp\ 1373}#
- #{tmp\ 1374}#)))
- #{e2*\ 1370}#
- #{e1*\ 1369}#
- #{args*\ 1368}#))))
- (lambda (#{docstring\ 1376}# #{lcase\ 1377}#)
- (#{build-case-lambda\ 106}#
- #{s\ 1360}#
- #{docstring\ 1376}#
- #{lcase\ 1377}#))))
- #{tmp\ 1363}#)
- ((lambda (#{_\ 1378}#)
+ (#{chi-lambda-case\ 2729}#
+ #{e\ 3907}#
+ #{r\ 3908}#
+ #{w\ 3909}#
+ #{s\ 3910}#
+ #{mod\ 3911}#
+ #{lambda-formals\ 2726}#
+ (cons (cons #{args\ 3915}#
+ (cons #{e1\ 3916}# #{e2\ 3917}#))
+ (map (lambda (#{tmp\ 3924}#
+ #{tmp\ 3923}#
+ #{tmp\ 3922}#)
+ (cons #{tmp\ 3922}#
+ (cons #{tmp\ 3923}#
+ #{tmp\ 3924}#)))
+ #{e2*\ 3920}#
+ #{e1*\ 3919}#
+ #{args*\ 3918}#))))
+ (lambda (#{docstring\ 3926}# #{lcase\ 3927}#)
+ (#{build-case-lambda\ 2656}#
+ #{s\ 3910}#
+ #{docstring\ 3926}#
+ #{lcase\ 3927}#))))
+ #{tmp\ 3913}#)
+ ((lambda (#{_\ 3928}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 1357}#))
- #{tmp\ 1362}#)))
+ #{e\ 3907}#))
+ #{tmp\ 3912}#)))
($sc-dispatch
- #{tmp\ 1362}#
+ #{tmp\ 3912}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 1357}#)))
- (#{global-extend\ 129}#
+ #{e\ 3907}#)))
+ (#{global-extend\ 2679}#
'core
'case-lambda*
- (lambda (#{e\ 1379}#
- #{r\ 1380}#
- #{w\ 1381}#
- #{s\ 1382}#
- #{mod\ 1383}#)
- ((lambda (#{tmp\ 1384}#)
- ((lambda (#{tmp\ 1385}#)
- (if #{tmp\ 1385}#
- (apply (lambda (#{_\ 1386}#
- #{args\ 1387}#
- #{e1\ 1388}#
- #{e2\ 1389}#
- #{args*\ 1390}#
- #{e1*\ 1391}#
- #{e2*\ 1392}#)
+ (lambda (#{e\ 3929}#
+ #{r\ 3930}#
+ #{w\ 3931}#
+ #{s\ 3932}#
+ #{mod\ 3933}#)
+ ((lambda (#{tmp\ 3934}#)
+ ((lambda (#{tmp\ 3935}#)
+ (if #{tmp\ 3935}#
+ (apply (lambda (#{_\ 3936}#
+ #{args\ 3937}#
+ #{e1\ 3938}#
+ #{e2\ 3939}#
+ #{args*\ 3940}#
+ #{e1*\ 3941}#
+ #{e2*\ 3942}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 179}#
- #{e\ 1379}#
- #{r\ 1380}#
- #{w\ 1381}#
- #{s\ 1382}#
- #{mod\ 1383}#
- #{lambda*-formals\ 178}#
- (cons (cons #{args\ 1387}#
- (cons #{e1\ 1388}# #{e2\ 1389}#))
- (map (lambda (#{tmp\ 1396}#
- #{tmp\ 1395}#
- #{tmp\ 1394}#)
- (cons #{tmp\ 1394}#
- (cons #{tmp\ 1395}#
- #{tmp\ 1396}#)))
- #{e2*\ 1392}#
- #{e1*\ 1391}#
- #{args*\ 1390}#))))
- (lambda (#{docstring\ 1398}# #{lcase\ 1399}#)
- (#{build-case-lambda\ 106}#
- #{s\ 1382}#
- #{docstring\ 1398}#
- #{lcase\ 1399}#))))
- #{tmp\ 1385}#)
- ((lambda (#{_\ 1400}#)
+ (#{chi-lambda-case\ 2729}#
+ #{e\ 3929}#
+ #{r\ 3930}#
+ #{w\ 3931}#
+ #{s\ 3932}#
+ #{mod\ 3933}#
+ #{lambda*-formals\ 2728}#
+ (cons (cons #{args\ 3937}#
+ (cons #{e1\ 3938}# #{e2\ 3939}#))
+ (map (lambda (#{tmp\ 3946}#
+ #{tmp\ 3945}#
+ #{tmp\ 3944}#)
+ (cons #{tmp\ 3944}#
+ (cons #{tmp\ 3945}#
+ #{tmp\ 3946}#)))
+ #{e2*\ 3942}#
+ #{e1*\ 3941}#
+ #{args*\ 3940}#))))
+ (lambda (#{docstring\ 3948}# #{lcase\ 3949}#)
+ (#{build-case-lambda\ 2656}#
+ #{s\ 3932}#
+ #{docstring\ 3948}#
+ #{lcase\ 3949}#))))
+ #{tmp\ 3935}#)
+ ((lambda (#{_\ 3950}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 1379}#))
- #{tmp\ 1384}#)))
+ #{e\ 3929}#))
+ #{tmp\ 3934}#)))
($sc-dispatch
- #{tmp\ 1384}#
+ #{tmp\ 3934}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 1379}#)))
- (#{global-extend\ 129}#
+ #{e\ 3929}#)))
+ (#{global-extend\ 2679}#
'core
'let
- (letrec ((#{chi-let\ 1401}#
- (lambda (#{e\ 1402}#
- #{r\ 1403}#
- #{w\ 1404}#
- #{s\ 1405}#
- #{mod\ 1406}#
- #{constructor\ 1407}#
- #{ids\ 1408}#
- #{vals\ 1409}#
- #{exps\ 1410}#)
- (if (not (#{valid-bound-ids?\ 156}# #{ids\ 1408}#))
+ (letrec ((#{chi-let\ 3951}#
+ (lambda (#{e\ 3952}#
+ #{r\ 3953}#
+ #{w\ 3954}#
+ #{s\ 3955}#
+ #{mod\ 3956}#
+ #{constructor\ 3957}#
+ #{ids\ 3958}#
+ #{vals\ 3959}#
+ #{exps\ 3960}#)
+ (if (not (#{valid-bound-ids?\ 2706}# #{ids\ 3958}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 1402}#)
- (let ((#{labels\ 1411}#
- (#{gen-labels\ 137}# #{ids\ 1408}#))
- (#{new-vars\ 1412}#
- (map #{gen-var\ 181}# #{ids\ 1408}#)))
- (let ((#{nw\ 1413}#
- (#{make-binding-wrap\ 148}#
- #{ids\ 1408}#
- #{labels\ 1411}#
- #{w\ 1404}#))
- (#{nr\ 1414}#
- (#{extend-var-env\ 126}#
- #{labels\ 1411}#
- #{new-vars\ 1412}#
- #{r\ 1403}#)))
- (#{constructor\ 1407}#
- #{s\ 1405}#
- (map syntax->datum #{ids\ 1408}#)
- #{new-vars\ 1412}#
- (map (lambda (#{x\ 1415}#)
- (#{chi\ 167}#
- #{x\ 1415}#
- #{r\ 1403}#
- #{w\ 1404}#
- #{mod\ 1406}#))
- #{vals\ 1409}#)
- (#{chi-body\ 171}#
- #{exps\ 1410}#
- (#{source-wrap\ 160}#
- #{e\ 1402}#
- #{nw\ 1413}#
- #{s\ 1405}#
- #{mod\ 1406}#)
- #{nr\ 1414}#
- #{nw\ 1413}#
- #{mod\ 1406}#))))))))
- (lambda (#{e\ 1416}#
- #{r\ 1417}#
- #{w\ 1418}#
- #{s\ 1419}#
- #{mod\ 1420}#)
- ((lambda (#{tmp\ 1421}#)
- ((lambda (#{tmp\ 1422}#)
- (if (if #{tmp\ 1422}#
- (apply (lambda (#{_\ 1423}#
- #{id\ 1424}#
- #{val\ 1425}#
- #{e1\ 1426}#
- #{e2\ 1427}#)
- (and-map #{id?\ 131}# #{id\ 1424}#))
- #{tmp\ 1422}#)
+ #{e\ 3952}#)
+ (let ((#{labels\ 3961}#
+ (#{gen-labels\ 2687}# #{ids\ 3958}#))
+ (#{new-vars\ 3962}#
+ (map #{gen-var\ 2731}# #{ids\ 3958}#)))
+ (let ((#{nw\ 3963}#
+ (#{make-binding-wrap\ 2698}#
+ #{ids\ 3958}#
+ #{labels\ 3961}#
+ #{w\ 3954}#))
+ (#{nr\ 3964}#
+ (#{extend-var-env\ 2676}#
+ #{labels\ 3961}#
+ #{new-vars\ 3962}#
+ #{r\ 3953}#)))
+ (#{constructor\ 3957}#
+ #{s\ 3955}#
+ (map syntax->datum #{ids\ 3958}#)
+ #{new-vars\ 3962}#
+ (map (lambda (#{x\ 3965}#)
+ (#{chi\ 2717}#
+ #{x\ 3965}#
+ #{r\ 3953}#
+ #{w\ 3954}#
+ #{mod\ 3956}#))
+ #{vals\ 3959}#)
+ (#{chi-body\ 2721}#
+ #{exps\ 3960}#
+ (#{source-wrap\ 2710}#
+ #{e\ 3952}#
+ #{nw\ 3963}#
+ #{s\ 3955}#
+ #{mod\ 3956}#)
+ #{nr\ 3964}#
+ #{nw\ 3963}#
+ #{mod\ 3956}#))))))))
+ (lambda (#{e\ 3966}#
+ #{r\ 3967}#
+ #{w\ 3968}#
+ #{s\ 3969}#
+ #{mod\ 3970}#)
+ ((lambda (#{tmp\ 3971}#)
+ ((lambda (#{tmp\ 3972}#)
+ (if (if #{tmp\ 3972}#
+ (apply (lambda (#{_\ 3973}#
+ #{id\ 3974}#
+ #{val\ 3975}#
+ #{e1\ 3976}#
+ #{e2\ 3977}#)
+ (and-map #{id?\ 2681}# #{id\ 3974}#))
+ #{tmp\ 3972}#)
#f)
- (apply (lambda (#{_\ 1429}#
- #{id\ 1430}#
- #{val\ 1431}#
- #{e1\ 1432}#
- #{e2\ 1433}#)
- (#{chi-let\ 1401}#
- #{e\ 1416}#
- #{r\ 1417}#
- #{w\ 1418}#
- #{s\ 1419}#
- #{mod\ 1420}#
- #{build-let\ 111}#
- #{id\ 1430}#
- #{val\ 1431}#
- (cons #{e1\ 1432}# #{e2\ 1433}#)))
- #{tmp\ 1422}#)
- ((lambda (#{tmp\ 1437}#)
- (if (if #{tmp\ 1437}#
- (apply (lambda (#{_\ 1438}#
- #{f\ 1439}#
- #{id\ 1440}#
- #{val\ 1441}#
- #{e1\ 1442}#
- #{e2\ 1443}#)
- (if (#{id?\ 131}# #{f\ 1439}#)
- (and-map #{id?\ 131}# #{id\ 1440}#)
+ (apply (lambda (#{_\ 3979}#
+ #{id\ 3980}#
+ #{val\ 3981}#
+ #{e1\ 3982}#
+ #{e2\ 3983}#)
+ (#{chi-let\ 3951}#
+ #{e\ 3966}#
+ #{r\ 3967}#
+ #{w\ 3968}#
+ #{s\ 3969}#
+ #{mod\ 3970}#
+ #{build-let\ 2661}#
+ #{id\ 3980}#
+ #{val\ 3981}#
+ (cons #{e1\ 3982}# #{e2\ 3983}#)))
+ #{tmp\ 3972}#)
+ ((lambda (#{tmp\ 3987}#)
+ (if (if #{tmp\ 3987}#
+ (apply (lambda (#{_\ 3988}#
+ #{f\ 3989}#
+ #{id\ 3990}#
+ #{val\ 3991}#
+ #{e1\ 3992}#
+ #{e2\ 3993}#)
+ (if (#{id?\ 2681}# #{f\ 3989}#)
+ (and-map #{id?\ 2681}# #{id\ 3990}#)
#f))
- #{tmp\ 1437}#)
+ #{tmp\ 3987}#)
#f)
- (apply (lambda (#{_\ 1445}#
- #{f\ 1446}#
- #{id\ 1447}#
- #{val\ 1448}#
- #{e1\ 1449}#
- #{e2\ 1450}#)
- (#{chi-let\ 1401}#
- #{e\ 1416}#
- #{r\ 1417}#
- #{w\ 1418}#
- #{s\ 1419}#
- #{mod\ 1420}#
- #{build-named-let\ 112}#
- (cons #{f\ 1446}# #{id\ 1447}#)
- #{val\ 1448}#
- (cons #{e1\ 1449}# #{e2\ 1450}#)))
- #{tmp\ 1437}#)
- ((lambda (#{_\ 1454}#)
+ (apply (lambda (#{_\ 3995}#
+ #{f\ 3996}#
+ #{id\ 3997}#
+ #{val\ 3998}#
+ #{e1\ 3999}#
+ #{e2\ 4000}#)
+ (#{chi-let\ 3951}#
+ #{e\ 3966}#
+ #{r\ 3967}#
+ #{w\ 3968}#
+ #{s\ 3969}#
+ #{mod\ 3970}#
+ #{build-named-let\ 2662}#
+ (cons #{f\ 3996}# #{id\ 3997}#)
+ #{val\ 3998}#
+ (cons #{e1\ 3999}# #{e2\ 4000}#)))
+ #{tmp\ 3987}#)
+ ((lambda (#{_\ 4004}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 160}#
- #{e\ 1416}#
- #{w\ 1418}#
- #{s\ 1419}#
- #{mod\ 1420}#)))
- #{tmp\ 1421}#)))
+ (#{source-wrap\ 2710}#
+ #{e\ 3966}#
+ #{w\ 3968}#
+ #{s\ 3969}#
+ #{mod\ 3970}#)))
+ #{tmp\ 3971}#)))
($sc-dispatch
- #{tmp\ 1421}#
+ #{tmp\ 3971}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1421}#
+ #{tmp\ 3971}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1416}#))))
- (#{global-extend\ 129}#
+ #{e\ 3966}#))))
+ (#{global-extend\ 2679}#
'core
'letrec
- (lambda (#{e\ 1455}#
- #{r\ 1456}#
- #{w\ 1457}#
- #{s\ 1458}#
- #{mod\ 1459}#)
- ((lambda (#{tmp\ 1460}#)
- ((lambda (#{tmp\ 1461}#)
- (if (if #{tmp\ 1461}#
- (apply (lambda (#{_\ 1462}#
- #{id\ 1463}#
- #{val\ 1464}#
- #{e1\ 1465}#
- #{e2\ 1466}#)
- (and-map #{id?\ 131}# #{id\ 1463}#))
- #{tmp\ 1461}#)
+ (lambda (#{e\ 4005}#
+ #{r\ 4006}#
+ #{w\ 4007}#
+ #{s\ 4008}#
+ #{mod\ 4009}#)
+ ((lambda (#{tmp\ 4010}#)
+ ((lambda (#{tmp\ 4011}#)
+ (if (if #{tmp\ 4011}#
+ (apply (lambda (#{_\ 4012}#
+ #{id\ 4013}#
+ #{val\ 4014}#
+ #{e1\ 4015}#
+ #{e2\ 4016}#)
+ (and-map #{id?\ 2681}# #{id\ 4013}#))
+ #{tmp\ 4011}#)
#f)
- (apply (lambda (#{_\ 1468}#
- #{id\ 1469}#
- #{val\ 1470}#
- #{e1\ 1471}#
- #{e2\ 1472}#)
- (let ((#{ids\ 1473}# #{id\ 1469}#))
- (if (not (#{valid-bound-ids?\ 156}#
- #{ids\ 1473}#))
+ (apply (lambda (#{_\ 4018}#
+ #{id\ 4019}#
+ #{val\ 4020}#
+ #{e1\ 4021}#
+ #{e2\ 4022}#)
+ (let ((#{ids\ 4023}# #{id\ 4019}#))
+ (if (not (#{valid-bound-ids?\ 2706}#
+ #{ids\ 4023}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 1455}#)
- (let ((#{labels\ 1475}#
- (#{gen-labels\ 137}# #{ids\ 1473}#))
- (#{new-vars\ 1476}#
- (map #{gen-var\ 181}# #{ids\ 1473}#)))
- (let ((#{w\ 1477}#
- (#{make-binding-wrap\ 148}#
- #{ids\ 1473}#
- #{labels\ 1475}#
- #{w\ 1457}#))
- (#{r\ 1478}#
- (#{extend-var-env\ 126}#
- #{labels\ 1475}#
- #{new-vars\ 1476}#
- #{r\ 1456}#)))
- (#{build-letrec\ 113}#
- #{s\ 1458}#
- (map syntax->datum #{ids\ 1473}#)
- #{new-vars\ 1476}#
- (map (lambda (#{x\ 1479}#)
- (#{chi\ 167}#
- #{x\ 1479}#
- #{r\ 1478}#
- #{w\ 1477}#
- #{mod\ 1459}#))
- #{val\ 1470}#)
- (#{chi-body\ 171}#
- (cons #{e1\ 1471}# #{e2\ 1472}#)
- (#{source-wrap\ 160}#
- #{e\ 1455}#
- #{w\ 1477}#
- #{s\ 1458}#
- #{mod\ 1459}#)
- #{r\ 1478}#
- #{w\ 1477}#
- #{mod\ 1459}#)))))))
- #{tmp\ 1461}#)
- ((lambda (#{_\ 1482}#)
+ #{e\ 4005}#)
+ (let ((#{labels\ 4025}#
+ (#{gen-labels\ 2687}# #{ids\ 4023}#))
+ (#{new-vars\ 4026}#
+ (map #{gen-var\ 2731}# #{ids\ 4023}#)))
+ (let ((#{w\ 4027}#
+ (#{make-binding-wrap\ 2698}#
+ #{ids\ 4023}#
+ #{labels\ 4025}#
+ #{w\ 4007}#))
+ (#{r\ 4028}#
+ (#{extend-var-env\ 2676}#
+ #{labels\ 4025}#
+ #{new-vars\ 4026}#
+ #{r\ 4006}#)))
+ (#{build-letrec\ 2663}#
+ #{s\ 4008}#
+ (map syntax->datum #{ids\ 4023}#)
+ #{new-vars\ 4026}#
+ (map (lambda (#{x\ 4029}#)
+ (#{chi\ 2717}#
+ #{x\ 4029}#
+ #{r\ 4028}#
+ #{w\ 4027}#
+ #{mod\ 4009}#))
+ #{val\ 4020}#)
+ (#{chi-body\ 2721}#
+ (cons #{e1\ 4021}# #{e2\ 4022}#)
+ (#{source-wrap\ 2710}#
+ #{e\ 4005}#
+ #{w\ 4027}#
+ #{s\ 4008}#
+ #{mod\ 4009}#)
+ #{r\ 4028}#
+ #{w\ 4027}#
+ #{mod\ 4009}#)))))))
+ #{tmp\ 4011}#)
+ ((lambda (#{_\ 4032}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 160}#
- #{e\ 1455}#
- #{w\ 1457}#
- #{s\ 1458}#
- #{mod\ 1459}#)))
- #{tmp\ 1460}#)))
+ (#{source-wrap\ 2710}#
+ #{e\ 4005}#
+ #{w\ 4007}#
+ #{s\ 4008}#
+ #{mod\ 4009}#)))
+ #{tmp\ 4010}#)))
($sc-dispatch
- #{tmp\ 1460}#
+ #{tmp\ 4010}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1455}#)))
- (#{global-extend\ 129}#
+ #{e\ 4005}#)))
+ (#{global-extend\ 2679}#
'core
'set!
- (lambda (#{e\ 1483}#
- #{r\ 1484}#
- #{w\ 1485}#
- #{s\ 1486}#
- #{mod\ 1487}#)
- ((lambda (#{tmp\ 1488}#)
- ((lambda (#{tmp\ 1489}#)
- (if (if #{tmp\ 1489}#
- (apply (lambda (#{_\ 1490}# #{id\ 1491}# #{val\ 1492}#)
- (#{id?\ 131}# #{id\ 1491}#))
- #{tmp\ 1489}#)
+ (lambda (#{e\ 4033}#
+ #{r\ 4034}#
+ #{w\ 4035}#
+ #{s\ 4036}#
+ #{mod\ 4037}#)
+ ((lambda (#{tmp\ 4038}#)
+ ((lambda (#{tmp\ 4039}#)
+ (if (if #{tmp\ 4039}#
+ (apply (lambda (#{_\ 4040}# #{id\ 4041}# #{val\ 4042}#)
+ (#{id?\ 2681}# #{id\ 4041}#))
+ #{tmp\ 4039}#)
#f)
- (apply (lambda (#{_\ 1493}# #{id\ 1494}# #{val\ 1495}#)
- (let ((#{val\ 1496}#
- (#{chi\ 167}#
- #{val\ 1495}#
- #{r\ 1484}#
- #{w\ 1485}#
- #{mod\ 1487}#))
- (#{n\ 1497}#
- (#{id-var-name\ 153}#
- #{id\ 1494}#
- #{w\ 1485}#)))
- (let ((#{b\ 1498}#
- (#{lookup\ 128}#
- #{n\ 1497}#
- #{r\ 1484}#
- #{mod\ 1487}#)))
- (let ((#{atom-key\ 1499}#
- (#{binding-type\ 123}# #{b\ 1498}#)))
- (if (memv #{atom-key\ 1499}#
+ (apply (lambda (#{_\ 4043}# #{id\ 4044}# #{val\ 4045}#)
+ (let ((#{val\ 4046}#
+ (#{chi\ 2717}#
+ #{val\ 4045}#
+ #{r\ 4034}#
+ #{w\ 4035}#
+ #{mod\ 4037}#))
+ (#{n\ 4047}#
+ (#{id-var-name\ 2703}#
+ #{id\ 4044}#
+ #{w\ 4035}#)))
+ (let ((#{b\ 4048}#
+ (#{lookup\ 2678}#
+ #{n\ 4047}#
+ #{r\ 4034}#
+ #{mod\ 4037}#)))
+ (let ((#{atom-key\ 4049}#
+ (#{binding-type\ 2673}# #{b\ 4048}#)))
+ (if (memv #{atom-key\ 4049}#
'(lexical))
- (#{build-lexical-assignment\ 99}#
- #{s\ 1486}#
- (syntax->datum #{id\ 1494}#)
- (#{binding-value\ 124}# #{b\ 1498}#)
- #{val\ 1496}#)
- (if (memv #{atom-key\ 1499}#
+ (#{build-lexical-assignment\ 2649}#
+ #{s\ 4036}#
+ (syntax->datum #{id\ 4044}#)
+ (#{binding-value\ 2674}# #{b\ 4048}#)
+ #{val\ 4046}#)
+ (if (memv #{atom-key\ 4049}#
'(global))
- (#{build-global-assignment\ 102}#
- #{s\ 1486}#
- #{n\ 1497}#
- #{val\ 1496}#
- #{mod\ 1487}#)
- (if (memv #{atom-key\ 1499}#
+ (#{build-global-assignment\ 2652}#
+ #{s\ 4036}#
+ #{n\ 4047}#
+ #{val\ 4046}#
+ #{mod\ 4037}#)
+ (if (memv #{atom-key\ 4049}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 159}#
- #{id\ 1494}#
- #{w\ 1485}#
- #{mod\ 1487}#))
+ (#{wrap\ 2709}#
+ #{id\ 4044}#
+ #{w\ 4035}#
+ #{mod\ 4037}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 160}#
- #{e\ 1483}#
- #{w\ 1485}#
- #{s\ 1486}#
- #{mod\ 1487}#)))))))))
- #{tmp\ 1489}#)
- ((lambda (#{tmp\ 1500}#)
- (if #{tmp\ 1500}#
- (apply (lambda (#{_\ 1501}#
- #{head\ 1502}#
- #{tail\ 1503}#
- #{val\ 1504}#)
+ (#{source-wrap\ 2710}#
+ #{e\ 4033}#
+ #{w\ 4035}#
+ #{s\ 4036}#
+ #{mod\ 4037}#)))))))))
+ #{tmp\ 4039}#)
+ ((lambda (#{tmp\ 4050}#)
+ (if #{tmp\ 4050}#
+ (apply (lambda (#{_\ 4051}#
+ #{head\ 4052}#
+ #{tail\ 4053}#
+ #{val\ 4054}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 165}#
- #{head\ 1502}#
- #{r\ 1484}#
+ (#{syntax-type\ 2715}#
+ #{head\ 4052}#
+ #{r\ 4034}#
'(())
#f
#f
- #{mod\ 1487}#
+ #{mod\ 4037}#
#t))
- (lambda (#{type\ 1505}#
- #{value\ 1506}#
- #{ee\ 1507}#
- #{ww\ 1508}#
- #{ss\ 1509}#
- #{modmod\ 1510}#)
- (if (memv #{type\ 1505}#
+ (lambda (#{type\ 4055}#
+ #{value\ 4056}#
+ #{ee\ 4057}#
+ #{ww\ 4058}#
+ #{ss\ 4059}#
+ #{modmod\ 4060}#)
+ (if (memv #{type\ 4055}#
'(module-ref))
- (let ((#{val\ 1511}#
- (#{chi\ 167}#
- #{val\ 1504}#
- #{r\ 1484}#
- #{w\ 1485}#
- #{mod\ 1487}#)))
+ (let ((#{val\ 4061}#
+ (#{chi\ 2717}#
+ #{val\ 4054}#
+ #{r\ 4034}#
+ #{w\ 4035}#
+ #{mod\ 4037}#)))
(call-with-values
(lambda ()
- (#{value\ 1506}#
- (cons #{head\ 1502}#
- #{tail\ 1503}#)))
- (lambda (#{id\ 1513}# #{mod\ 1514}#)
- (#{build-global-assignment\ 102}#
- #{s\ 1486}#
- #{id\ 1513}#
- #{val\ 1511}#
- #{mod\ 1514}#))))
- (#{build-application\ 96}#
- #{s\ 1486}#
- (#{chi\ 167}#
+ (#{value\ 4056}#
+ (cons #{head\ 4052}#
+ #{tail\ 4053}#)))
+ (lambda (#{id\ 4063}# #{mod\ 4064}#)
+ (#{build-global-assignment\ 2652}#
+ #{s\ 4036}#
+ #{id\ 4063}#
+ #{val\ 4061}#
+ #{mod\ 4064}#))))
+ (#{build-application\ 2646}#
+ #{s\ 4036}#
+ (#{chi\ 2717}#
(list '#(syntax-object
setter
((top)
@@ -9337,53 +9305,53 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{head\ 1502}#)
- #{r\ 1484}#
- #{w\ 1485}#
- #{mod\ 1487}#)
- (map (lambda (#{e\ 1515}#)
- (#{chi\ 167}#
- #{e\ 1515}#
- #{r\ 1484}#
- #{w\ 1485}#
- #{mod\ 1487}#))
+ #{head\ 4052}#)
+ #{r\ 4034}#
+ #{w\ 4035}#
+ #{mod\ 4037}#)
+ (map (lambda (#{e\ 4065}#)
+ (#{chi\ 2717}#
+ #{e\ 4065}#
+ #{r\ 4034}#
+ #{w\ 4035}#
+ #{mod\ 4037}#))
(append
- #{tail\ 1503}#
- (list #{val\ 1504}#))))))))
- #{tmp\ 1500}#)
- ((lambda (#{_\ 1517}#)
+ #{tail\ 4053}#
+ (list #{val\ 4054}#))))))))
+ #{tmp\ 4050}#)
+ ((lambda (#{_\ 4067}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 160}#
- #{e\ 1483}#
- #{w\ 1485}#
- #{s\ 1486}#
- #{mod\ 1487}#)))
- #{tmp\ 1488}#)))
+ (#{source-wrap\ 2710}#
+ #{e\ 4033}#
+ #{w\ 4035}#
+ #{s\ 4036}#
+ #{mod\ 4037}#)))
+ #{tmp\ 4038}#)))
($sc-dispatch
- #{tmp\ 1488}#
+ #{tmp\ 4038}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 1488}#
+ #{tmp\ 4038}#
'(any any any))))
- #{e\ 1483}#)))
- (#{global-extend\ 129}#
+ #{e\ 4033}#)))
+ (#{global-extend\ 2679}#
'module-ref
'@
- (lambda (#{e\ 1518}#)
- ((lambda (#{tmp\ 1519}#)
- ((lambda (#{tmp\ 1520}#)
- (if (if #{tmp\ 1520}#
- (apply (lambda (#{_\ 1521}# #{mod\ 1522}# #{id\ 1523}#)
- (if (and-map #{id?\ 131}# #{mod\ 1522}#)
- (#{id?\ 131}# #{id\ 1523}#)
+ (lambda (#{e\ 4068}#)
+ ((lambda (#{tmp\ 4069}#)
+ ((lambda (#{tmp\ 4070}#)
+ (if (if #{tmp\ 4070}#
+ (apply (lambda (#{_\ 4071}# #{mod\ 4072}# #{id\ 4073}#)
+ (if (and-map #{id?\ 2681}# #{mod\ 4072}#)
+ (#{id?\ 2681}# #{id\ 4073}#)
#f))
- #{tmp\ 1520}#)
+ #{tmp\ 4070}#)
#f)
- (apply (lambda (#{_\ 1525}# #{mod\ 1526}# #{id\ 1527}#)
+ (apply (lambda (#{_\ 4075}# #{mod\ 4076}# #{id\ 4077}#)
(values
- (syntax->datum #{id\ 1527}#)
+ (syntax->datum #{id\ 4077}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -9751,32 +9719,32 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 1526}#))))
- #{tmp\ 1520}#)
+ #{mod\ 4076}#))))
+ #{tmp\ 4070}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1519}#)))
+ #{tmp\ 4069}#)))
($sc-dispatch
- #{tmp\ 1519}#
+ #{tmp\ 4069}#
'(any each-any any))))
- #{e\ 1518}#)))
- (#{global-extend\ 129}#
+ #{e\ 4068}#)))
+ (#{global-extend\ 2679}#
'module-ref
'@@
- (lambda (#{e\ 1529}#)
- ((lambda (#{tmp\ 1530}#)
- ((lambda (#{tmp\ 1531}#)
- (if (if #{tmp\ 1531}#
- (apply (lambda (#{_\ 1532}# #{mod\ 1533}# #{id\ 1534}#)
- (if (and-map #{id?\ 131}# #{mod\ 1533}#)
- (#{id?\ 131}# #{id\ 1534}#)
+ (lambda (#{e\ 4079}#)
+ ((lambda (#{tmp\ 4080}#)
+ ((lambda (#{tmp\ 4081}#)
+ (if (if #{tmp\ 4081}#
+ (apply (lambda (#{_\ 4082}# #{mod\ 4083}# #{id\ 4084}#)
+ (if (and-map #{id?\ 2681}# #{mod\ 4083}#)
+ (#{id?\ 2681}# #{id\ 4084}#)
#f))
- #{tmp\ 1531}#)
+ #{tmp\ 4081}#)
#f)
- (apply (lambda (#{_\ 1536}# #{mod\ 1537}# #{id\ 1538}#)
+ (apply (lambda (#{_\ 4086}# #{mod\ 4087}# #{id\ 4088}#)
(values
- (syntax->datum #{id\ 1538}#)
+ (syntax->datum #{id\ 4088}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -10144,123 +10112,123 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 1537}#))))
- #{tmp\ 1531}#)
+ #{mod\ 4087}#))))
+ #{tmp\ 4081}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1530}#)))
+ #{tmp\ 4080}#)))
($sc-dispatch
- #{tmp\ 1530}#
+ #{tmp\ 4080}#
'(any each-any any))))
- #{e\ 1529}#)))
- (#{global-extend\ 129}#
+ #{e\ 4079}#)))
+ (#{global-extend\ 2679}#
'core
'if
- (lambda (#{e\ 1540}#
- #{r\ 1541}#
- #{w\ 1542}#
- #{s\ 1543}#
- #{mod\ 1544}#)
- ((lambda (#{tmp\ 1545}#)
- ((lambda (#{tmp\ 1546}#)
- (if #{tmp\ 1546}#
- (apply (lambda (#{_\ 1547}# #{test\ 1548}# #{then\ 1549}#)
- (#{build-conditional\ 97}#
- #{s\ 1543}#
- (#{chi\ 167}#
- #{test\ 1548}#
- #{r\ 1541}#
- #{w\ 1542}#
- #{mod\ 1544}#)
- (#{chi\ 167}#
- #{then\ 1549}#
- #{r\ 1541}#
- #{w\ 1542}#
- #{mod\ 1544}#)
- (#{build-void\ 95}# #f)))
- #{tmp\ 1546}#)
- ((lambda (#{tmp\ 1550}#)
- (if #{tmp\ 1550}#
- (apply (lambda (#{_\ 1551}#
- #{test\ 1552}#
- #{then\ 1553}#
- #{else\ 1554}#)
- (#{build-conditional\ 97}#
- #{s\ 1543}#
- (#{chi\ 167}#
- #{test\ 1552}#
- #{r\ 1541}#
- #{w\ 1542}#
- #{mod\ 1544}#)
- (#{chi\ 167}#
- #{then\ 1553}#
- #{r\ 1541}#
- #{w\ 1542}#
- #{mod\ 1544}#)
- (#{chi\ 167}#
- #{else\ 1554}#
- #{r\ 1541}#
- #{w\ 1542}#
- #{mod\ 1544}#)))
- #{tmp\ 1550}#)
+ (lambda (#{e\ 4090}#
+ #{r\ 4091}#
+ #{w\ 4092}#
+ #{s\ 4093}#
+ #{mod\ 4094}#)
+ ((lambda (#{tmp\ 4095}#)
+ ((lambda (#{tmp\ 4096}#)
+ (if #{tmp\ 4096}#
+ (apply (lambda (#{_\ 4097}# #{test\ 4098}# #{then\ 4099}#)
+ (#{build-conditional\ 2647}#
+ #{s\ 4093}#
+ (#{chi\ 2717}#
+ #{test\ 4098}#
+ #{r\ 4091}#
+ #{w\ 4092}#
+ #{mod\ 4094}#)
+ (#{chi\ 2717}#
+ #{then\ 4099}#
+ #{r\ 4091}#
+ #{w\ 4092}#
+ #{mod\ 4094}#)
+ (#{build-void\ 2645}# #f)))
+ #{tmp\ 4096}#)
+ ((lambda (#{tmp\ 4100}#)
+ (if #{tmp\ 4100}#
+ (apply (lambda (#{_\ 4101}#
+ #{test\ 4102}#
+ #{then\ 4103}#
+ #{else\ 4104}#)
+ (#{build-conditional\ 2647}#
+ #{s\ 4093}#
+ (#{chi\ 2717}#
+ #{test\ 4102}#
+ #{r\ 4091}#
+ #{w\ 4092}#
+ #{mod\ 4094}#)
+ (#{chi\ 2717}#
+ #{then\ 4103}#
+ #{r\ 4091}#
+ #{w\ 4092}#
+ #{mod\ 4094}#)
+ (#{chi\ 2717}#
+ #{else\ 4104}#
+ #{r\ 4091}#
+ #{w\ 4092}#
+ #{mod\ 4094}#)))
+ #{tmp\ 4100}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1545}#)))
+ #{tmp\ 4095}#)))
($sc-dispatch
- #{tmp\ 1545}#
+ #{tmp\ 4095}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 1545}#
+ #{tmp\ 4095}#
'(any any any))))
- #{e\ 1540}#)))
- (#{global-extend\ 129}#
+ #{e\ 4090}#)))
+ (#{global-extend\ 2679}#
'begin
'begin
'())
- (#{global-extend\ 129}#
+ (#{global-extend\ 2679}#
'define
'define
'())
- (#{global-extend\ 129}#
+ (#{global-extend\ 2679}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 129}#
+ (#{global-extend\ 2679}#
'eval-when
'eval-when
'())
- (#{global-extend\ 129}#
+ (#{global-extend\ 2679}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 1558}#
- (lambda (#{x\ 1559}#
- #{keys\ 1560}#
- #{clauses\ 1561}#
- #{r\ 1562}#
- #{mod\ 1563}#)
- (if (null? #{clauses\ 1561}#)
- (#{build-application\ 96}#
+ (letrec ((#{gen-syntax-case\ 4108}#
+ (lambda (#{x\ 4109}#
+ #{keys\ 4110}#
+ #{clauses\ 4111}#
+ #{r\ 4112}#
+ #{mod\ 4113}#)
+ (if (null? #{clauses\ 4111}#)
+ (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}#
+ (#{build-primref\ 2658}#
#f
'syntax-violation)
- (list (#{build-data\ 109}# #f #f)
- (#{build-data\ 109}#
+ (list (#{build-data\ 2659}# #f #f)
+ (#{build-data\ 2659}#
#f
"source expression failed to match any pattern")
- #{x\ 1559}#))
- ((lambda (#{tmp\ 1564}#)
- ((lambda (#{tmp\ 1565}#)
- (if #{tmp\ 1565}#
- (apply (lambda (#{pat\ 1566}# #{exp\ 1567}#)
- (if (if (#{id?\ 131}# #{pat\ 1566}#)
+ #{x\ 4109}#))
+ ((lambda (#{tmp\ 4114}#)
+ ((lambda (#{tmp\ 4115}#)
+ (if #{tmp\ 4115}#
+ (apply (lambda (#{pat\ 4116}# #{exp\ 4117}#)
+ (if (if (#{id?\ 2681}# #{pat\ 4116}#)
(and-map
- (lambda (#{x\ 1568}#)
- (not (#{free-id=?\ 154}#
- #{pat\ 1566}#
- #{x\ 1568}#)))
+ (lambda (#{x\ 4118}#)
+ (not (#{free-id=?\ 2704}#
+ #{pat\ 4116}#
+ #{x\ 4118}#)))
(cons '#(syntax-object
...
((top)
@@ -10653,734 +10621,735 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{keys\ 1560}#))
+ #{keys\ 4110}#))
#f)
- (let ((#{labels\ 1569}#
- (list (#{gen-label\ 136}#)))
- (#{var\ 1570}#
- (#{gen-var\ 181}#
- #{pat\ 1566}#)))
- (#{build-application\ 96}#
+ (let ((#{labels\ 4119}#
+ (list (#{gen-label\ 2686}#)))
+ (#{var\ 4120}#
+ (#{gen-var\ 2731}#
+ #{pat\ 4116}#)))
+ (#{build-application\ 2646}#
#f
- (#{build-simple-lambda\ 105}#
+ (#{build-simple-lambda\ 2655}#
#f
(list (syntax->datum
- #{pat\ 1566}#))
+ #{pat\ 4116}#))
#f
- (list #{var\ 1570}#)
+ (list #{var\ 4120}#)
#f
- (#{chi\ 167}#
- #{exp\ 1567}#
- (#{extend-env\ 125}#
- #{labels\ 1569}#
+ (#{chi\ 2717}#
+ #{exp\ 4117}#
+ (#{extend-env\ 2675}#
+ #{labels\ 4119}#
(list (cons 'syntax
- (cons #{var\ 1570}#
+ (cons #{var\ 4120}#
0)))
- #{r\ 1562}#)
- (#{make-binding-wrap\ 148}#
- (list #{pat\ 1566}#)
- #{labels\ 1569}#
+ #{r\ 4112}#)
+ (#{make-binding-wrap\ 2698}#
+ (list #{pat\ 4116}#)
+ #{labels\ 4119}#
'(()))
- #{mod\ 1563}#))
- (list #{x\ 1559}#)))
- (#{gen-clause\ 1557}#
- #{x\ 1559}#
- #{keys\ 1560}#
- (cdr #{clauses\ 1561}#)
- #{r\ 1562}#
- #{pat\ 1566}#
+ #{mod\ 4113}#))
+ (list #{x\ 4109}#)))
+ (#{gen-clause\ 4107}#
+ #{x\ 4109}#
+ #{keys\ 4110}#
+ (cdr #{clauses\ 4111}#)
+ #{r\ 4112}#
+ #{pat\ 4116}#
#t
- #{exp\ 1567}#
- #{mod\ 1563}#)))
- #{tmp\ 1565}#)
- ((lambda (#{tmp\ 1571}#)
- (if #{tmp\ 1571}#
- (apply (lambda (#{pat\ 1572}#
- #{fender\ 1573}#
- #{exp\ 1574}#)
- (#{gen-clause\ 1557}#
- #{x\ 1559}#
- #{keys\ 1560}#
- (cdr #{clauses\ 1561}#)
- #{r\ 1562}#
- #{pat\ 1572}#
- #{fender\ 1573}#
- #{exp\ 1574}#
- #{mod\ 1563}#))
- #{tmp\ 1571}#)
- ((lambda (#{_\ 1575}#)
+ #{exp\ 4117}#
+ #{mod\ 4113}#)))
+ #{tmp\ 4115}#)
+ ((lambda (#{tmp\ 4121}#)
+ (if #{tmp\ 4121}#
+ (apply (lambda (#{pat\ 4122}#
+ #{fender\ 4123}#
+ #{exp\ 4124}#)
+ (#{gen-clause\ 4107}#
+ #{x\ 4109}#
+ #{keys\ 4110}#
+ (cdr #{clauses\ 4111}#)
+ #{r\ 4112}#
+ #{pat\ 4122}#
+ #{fender\ 4123}#
+ #{exp\ 4124}#
+ #{mod\ 4113}#))
+ #{tmp\ 4121}#)
+ ((lambda (#{_\ 4125}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 1561}#)))
- #{tmp\ 1564}#)))
+ (car #{clauses\ 4111}#)))
+ #{tmp\ 4114}#)))
($sc-dispatch
- #{tmp\ 1564}#
+ #{tmp\ 4114}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 1564}# (quote (any any)))))
- (car #{clauses\ 1561}#)))))
- (#{gen-clause\ 1557}#
- (lambda (#{x\ 1576}#
- #{keys\ 1577}#
- #{clauses\ 1578}#
- #{r\ 1579}#
- #{pat\ 1580}#
- #{fender\ 1581}#
- #{exp\ 1582}#
- #{mod\ 1583}#)
+ ($sc-dispatch #{tmp\ 4114}# (quote (any any)))))
+ (car #{clauses\ 4111}#)))))
+ (#{gen-clause\ 4107}#
+ (lambda (#{x\ 4126}#
+ #{keys\ 4127}#
+ #{clauses\ 4128}#
+ #{r\ 4129}#
+ #{pat\ 4130}#
+ #{fender\ 4131}#
+ #{exp\ 4132}#
+ #{mod\ 4133}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 1555}#
- #{pat\ 1580}#
- #{keys\ 1577}#))
- (lambda (#{p\ 1584}# #{pvars\ 1585}#)
- (if (not (#{distinct-bound-ids?\ 157}#
- (map car #{pvars\ 1585}#)))
+ (#{convert-pattern\ 4105}#
+ #{pat\ 4130}#
+ #{keys\ 4127}#))
+ (lambda (#{p\ 4134}# #{pvars\ 4135}#)
+ (if (not (#{distinct-bound-ids?\ 2707}#
+ (map car #{pvars\ 4135}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 1580}#)
+ #{pat\ 4130}#)
(if (not (and-map
- (lambda (#{x\ 1586}#)
- (not (#{ellipsis?\ 175}#
- (car #{x\ 1586}#))))
- #{pvars\ 1585}#))
+ (lambda (#{x\ 4136}#)
+ (not (#{ellipsis?\ 2725}#
+ (car #{x\ 4136}#))))
+ #{pvars\ 4135}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 1580}#)
- (let ((#{y\ 1587}#
- (#{gen-var\ 181}# (quote tmp))))
- (#{build-application\ 96}#
+ #{pat\ 4130}#)
+ (let ((#{y\ 4137}#
+ (#{gen-var\ 2731}# (quote tmp))))
+ (#{build-application\ 2646}#
#f
- (#{build-simple-lambda\ 105}#
+ (#{build-simple-lambda\ 2655}#
#f
(list (quote tmp))
#f
- (list #{y\ 1587}#)
+ (list #{y\ 4137}#)
#f
- (let ((#{y\ 1588}#
- (#{build-lexical-reference\ 98}#
+ (let ((#{y\ 4138}#
+ (#{build-lexical-reference\ 2648}#
'value
#f
'tmp
- #{y\ 1587}#)))
- (#{build-conditional\ 97}#
+ #{y\ 4137}#)))
+ (#{build-conditional\ 2647}#
#f
- ((lambda (#{tmp\ 1589}#)
- ((lambda (#{tmp\ 1590}#)
- (if #{tmp\ 1590}#
- (apply (lambda () #{y\ 1588}#)
- #{tmp\ 1590}#)
- ((lambda (#{_\ 1591}#)
- (#{build-conditional\ 97}#
+ ((lambda (#{tmp\ 4139}#)
+ ((lambda (#{tmp\ 4140}#)
+ (if #{tmp\ 4140}#
+ (apply (lambda () #{y\ 4138}#)
+ #{tmp\ 4140}#)
+ ((lambda (#{_\ 4141}#)
+ (#{build-conditional\ 2647}#
#f
- #{y\ 1588}#
- (#{build-dispatch-call\ 1556}#
- #{pvars\ 1585}#
- #{fender\ 1581}#
- #{y\ 1588}#
- #{r\ 1579}#
- #{mod\ 1583}#)
- (#{build-data\ 109}#
+ #{y\ 4138}#
+ (#{build-dispatch-call\ 4106}#
+ #{pvars\ 4135}#
+ #{fender\ 4131}#
+ #{y\ 4138}#
+ #{r\ 4129}#
+ #{mod\ 4133}#)
+ (#{build-data\ 2659}#
#f
#f)))
- #{tmp\ 1589}#)))
+ #{tmp\ 4139}#)))
($sc-dispatch
- #{tmp\ 1589}#
+ #{tmp\ 4139}#
'#(atom #t))))
- #{fender\ 1581}#)
- (#{build-dispatch-call\ 1556}#
- #{pvars\ 1585}#
- #{exp\ 1582}#
- #{y\ 1588}#
- #{r\ 1579}#
- #{mod\ 1583}#)
- (#{gen-syntax-case\ 1558}#
- #{x\ 1576}#
- #{keys\ 1577}#
- #{clauses\ 1578}#
- #{r\ 1579}#
- #{mod\ 1583}#))))
- (list (if (eq? #{p\ 1584}# (quote any))
- (#{build-application\ 96}#
+ #{fender\ 4131}#)
+ (#{build-dispatch-call\ 4106}#
+ #{pvars\ 4135}#
+ #{exp\ 4132}#
+ #{y\ 4138}#
+ #{r\ 4129}#
+ #{mod\ 4133}#)
+ (#{gen-syntax-case\ 4108}#
+ #{x\ 4126}#
+ #{keys\ 4127}#
+ #{clauses\ 4128}#
+ #{r\ 4129}#
+ #{mod\ 4133}#))))
+ (list (if (eq? #{p\ 4134}# (quote any))
+ (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}#
+ (#{build-primref\ 2658}#
#f
'list)
- (list #{x\ 1576}#))
- (#{build-application\ 96}#
+ (list #{x\ 4126}#))
+ (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}#
+ (#{build-primref\ 2658}#
#f
'$sc-dispatch)
- (list #{x\ 1576}#
- (#{build-data\ 109}#
+ (list #{x\ 4126}#
+ (#{build-data\ 2659}#
#f
- #{p\ 1584}#)))))))))))))
- (#{build-dispatch-call\ 1556}#
- (lambda (#{pvars\ 1592}#
- #{exp\ 1593}#
- #{y\ 1594}#
- #{r\ 1595}#
- #{mod\ 1596}#)
- (let ((#{ids\ 1597}# (map car #{pvars\ 1592}#))
- (#{levels\ 1598}# (map cdr #{pvars\ 1592}#)))
- (let ((#{labels\ 1599}#
- (#{gen-labels\ 137}# #{ids\ 1597}#))
- (#{new-vars\ 1600}#
- (map #{gen-var\ 181}# #{ids\ 1597}#)))
- (#{build-application\ 96}#
+ #{p\ 4134}#)))))))))))))
+ (#{build-dispatch-call\ 4106}#
+ (lambda (#{pvars\ 4142}#
+ #{exp\ 4143}#
+ #{y\ 4144}#
+ #{r\ 4145}#
+ #{mod\ 4146}#)
+ (let ((#{ids\ 4147}# (map car #{pvars\ 4142}#))
+ (#{levels\ 4148}# (map cdr #{pvars\ 4142}#)))
+ (let ((#{labels\ 4149}#
+ (#{gen-labels\ 2687}# #{ids\ 4147}#))
+ (#{new-vars\ 4150}#
+ (map #{gen-var\ 2731}# #{ids\ 4147}#)))
+ (#{build-application\ 2646}#
#f
- (#{build-primref\ 108}# #f (quote apply))
- (list (#{build-simple-lambda\ 105}#
+ (#{build-primref\ 2658}# #f (quote apply))
+ (list (#{build-simple-lambda\ 2655}#
#f
- (map syntax->datum #{ids\ 1597}#)
+ (map syntax->datum #{ids\ 4147}#)
#f
- #{new-vars\ 1600}#
+ #{new-vars\ 4150}#
#f
- (#{chi\ 167}#
- #{exp\ 1593}#
- (#{extend-env\ 125}#
- #{labels\ 1599}#
- (map (lambda (#{var\ 1601}#
- #{level\ 1602}#)
+ (#{chi\ 2717}#
+ #{exp\ 4143}#
+ (#{extend-env\ 2675}#
+ #{labels\ 4149}#
+ (map (lambda (#{var\ 4151}#
+ #{level\ 4152}#)
(cons 'syntax
- (cons #{var\ 1601}#
- #{level\ 1602}#)))
- #{new-vars\ 1600}#
- (map cdr #{pvars\ 1592}#))
- #{r\ 1595}#)
- (#{make-binding-wrap\ 148}#
- #{ids\ 1597}#
- #{labels\ 1599}#
+ (cons #{var\ 4151}#
+ #{level\ 4152}#)))
+ #{new-vars\ 4150}#
+ (map cdr #{pvars\ 4142}#))
+ #{r\ 4145}#)
+ (#{make-binding-wrap\ 2698}#
+ #{ids\ 4147}#
+ #{labels\ 4149}#
'(()))
- #{mod\ 1596}#))
- #{y\ 1594}#))))))
- (#{convert-pattern\ 1555}#
- (lambda (#{pattern\ 1603}# #{keys\ 1604}#)
- (letrec ((#{cvt\ 1605}#
- (lambda (#{p\ 1606}# #{n\ 1607}# #{ids\ 1608}#)
- (if (#{id?\ 131}# #{p\ 1606}#)
- (if (#{bound-id-member?\ 158}#
- #{p\ 1606}#
- #{keys\ 1604}#)
+ #{mod\ 4146}#))
+ #{y\ 4144}#))))))
+ (#{convert-pattern\ 4105}#
+ (lambda (#{pattern\ 4153}# #{keys\ 4154}#)
+ (letrec ((#{cvt\ 4155}#
+ (lambda (#{p\ 4156}# #{n\ 4157}# #{ids\ 4158}#)
+ (if (#{id?\ 2681}# #{p\ 4156}#)
+ (if (#{bound-id-member?\ 2708}#
+ #{p\ 4156}#
+ #{keys\ 4154}#)
(values
- (vector (quote free-id) #{p\ 1606}#)
- #{ids\ 1608}#)
+ (vector (quote free-id) #{p\ 4156}#)
+ #{ids\ 4158}#)
(values
'any
- (cons (cons #{p\ 1606}# #{n\ 1607}#)
- #{ids\ 1608}#)))
- ((lambda (#{tmp\ 1609}#)
- ((lambda (#{tmp\ 1610}#)
- (if (if #{tmp\ 1610}#
- (apply (lambda (#{x\ 1611}#
- #{dots\ 1612}#)
- (#{ellipsis?\ 175}#
- #{dots\ 1612}#))
- #{tmp\ 1610}#)
+ (cons (cons #{p\ 4156}# #{n\ 4157}#)
+ #{ids\ 4158}#)))
+ ((lambda (#{tmp\ 4159}#)
+ ((lambda (#{tmp\ 4160}#)
+ (if (if #{tmp\ 4160}#
+ (apply (lambda (#{x\ 4161}#
+ #{dots\ 4162}#)
+ (#{ellipsis?\ 2725}#
+ #{dots\ 4162}#))
+ #{tmp\ 4160}#)
#f)
- (apply (lambda (#{x\ 1613}#
- #{dots\ 1614}#)
+ (apply (lambda (#{x\ 4163}#
+ #{dots\ 4164}#)
(call-with-values
(lambda ()
- (#{cvt\ 1605}#
- #{x\ 1613}#
- (#{fx+\ 86}#
- #{n\ 1607}#
+ (#{cvt\ 4155}#
+ #{x\ 4163}#
+ (#{fx+\ 2636}#
+ #{n\ 4157}#
1)
- #{ids\ 1608}#))
- (lambda (#{p\ 1615}#
- #{ids\ 1616}#)
+ #{ids\ 4158}#))
+ (lambda (#{p\ 4165}#
+ #{ids\ 4166}#)
(values
- (if (eq? #{p\ 1615}#
+ (if (eq? #{p\ 4165}#
'any)
'each-any
(vector
'each
- #{p\ 1615}#))
- #{ids\ 1616}#))))
- #{tmp\ 1610}#)
- ((lambda (#{tmp\ 1617}#)
- (if #{tmp\ 1617}#
- (apply (lambda (#{x\ 1618}#
- #{y\ 1619}#)
+ #{p\ 4165}#))
+ #{ids\ 4166}#))))
+ #{tmp\ 4160}#)
+ ((lambda (#{tmp\ 4167}#)
+ (if #{tmp\ 4167}#
+ (apply (lambda (#{x\ 4168}#
+ #{y\ 4169}#)
(call-with-values
(lambda ()
- (#{cvt\ 1605}#
- #{y\ 1619}#
- #{n\ 1607}#
- #{ids\ 1608}#))
- (lambda (#{y\ 1620}#
- #{ids\ 1621}#)
+ (#{cvt\ 4155}#
+ #{y\ 4169}#
+ #{n\ 4157}#
+ #{ids\ 4158}#))
+ (lambda (#{y\ 4170}#
+ #{ids\ 4171}#)
(call-with-values
(lambda ()
- (#{cvt\ 1605}#
- #{x\ 1618}#
- #{n\ 1607}#
- #{ids\ 1621}#))
- (lambda (#{x\ 1622}#
- #{ids\ 1623}#)
+ (#{cvt\ 4155}#
+ #{x\ 4168}#
+ #{n\ 4157}#
+ #{ids\ 4171}#))
+ (lambda (#{x\ 4172}#
+ #{ids\ 4173}#)
(values
- (cons #{x\ 1622}#
- #{y\ 1620}#)
- #{ids\ 1623}#))))))
- #{tmp\ 1617}#)
- ((lambda (#{tmp\ 1624}#)
- (if #{tmp\ 1624}#
+ (cons #{x\ 4172}#
+ #{y\ 4170}#)
+ #{ids\ 4173}#))))))
+ #{tmp\ 4167}#)
+ ((lambda (#{tmp\ 4174}#)
+ (if #{tmp\ 4174}#
(apply (lambda ()
(values
'()
- #{ids\ 1608}#))
- #{tmp\ 1624}#)
- ((lambda (#{tmp\ 1625}#)
- (if #{tmp\ 1625}#
- (apply (lambda (#{x\ 1626}#)
+ #{ids\ 4158}#))
+ #{tmp\ 4174}#)
+ ((lambda (#{tmp\ 4175}#)
+ (if #{tmp\ 4175}#
+ (apply (lambda (#{x\ 4176}#)
(call-with-values
(lambda ()
- (#{cvt\ 1605}#
- #{x\ 1626}#
- #{n\ 1607}#
- #{ids\ 1608}#))
- (lambda (#{p\ 1628}#
- #{ids\ 1629}#)
+ (#{cvt\ 4155}#
+ #{x\ 4176}#
+ #{n\ 4157}#
+ #{ids\ 4158}#))
+ (lambda (#{p\ 4178}#
+ #{ids\ 4179}#)
(values
(vector
'vector
- #{p\ 1628}#)
- #{ids\ 1629}#))))
- #{tmp\ 1625}#)
- ((lambda (#{x\ 1630}#)
+ #{p\ 4178}#)
+ #{ids\ 4179}#))))
+ #{tmp\ 4175}#)
+ ((lambda (#{x\ 4180}#)
(values
(vector
'atom
- (#{strip\ 180}#
- #{p\ 1606}#
+ (#{strip\ 2730}#
+ #{p\ 4156}#
'(())))
- #{ids\ 1608}#))
- #{tmp\ 1609}#)))
+ #{ids\ 4158}#))
+ #{tmp\ 4159}#)))
($sc-dispatch
- #{tmp\ 1609}#
+ #{tmp\ 4159}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 1609}#
+ #{tmp\ 4159}#
'()))))
($sc-dispatch
- #{tmp\ 1609}#
+ #{tmp\ 4159}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1609}#
+ #{tmp\ 4159}#
'(any any))))
- #{p\ 1606}#)))))
- (#{cvt\ 1605}# #{pattern\ 1603}# 0 (quote ()))))))
- (lambda (#{e\ 1631}#
- #{r\ 1632}#
- #{w\ 1633}#
- #{s\ 1634}#
- #{mod\ 1635}#)
- (let ((#{e\ 1636}#
- (#{source-wrap\ 160}#
- #{e\ 1631}#
- #{w\ 1633}#
- #{s\ 1634}#
- #{mod\ 1635}#)))
- ((lambda (#{tmp\ 1637}#)
- ((lambda (#{tmp\ 1638}#)
- (if #{tmp\ 1638}#
- (apply (lambda (#{_\ 1639}#
- #{val\ 1640}#
- #{key\ 1641}#
- #{m\ 1642}#)
+ #{p\ 4156}#)))))
+ (#{cvt\ 4155}# #{pattern\ 4153}# 0 (quote ()))))))
+ (lambda (#{e\ 4181}#
+ #{r\ 4182}#
+ #{w\ 4183}#
+ #{s\ 4184}#
+ #{mod\ 4185}#)
+ (let ((#{e\ 4186}#
+ (#{source-wrap\ 2710}#
+ #{e\ 4181}#
+ #{w\ 4183}#
+ #{s\ 4184}#
+ #{mod\ 4185}#)))
+ ((lambda (#{tmp\ 4187}#)
+ ((lambda (#{tmp\ 4188}#)
+ (if #{tmp\ 4188}#
+ (apply (lambda (#{_\ 4189}#
+ #{val\ 4190}#
+ #{key\ 4191}#
+ #{m\ 4192}#)
(if (and-map
- (lambda (#{x\ 1643}#)
- (if (#{id?\ 131}# #{x\ 1643}#)
- (not (#{ellipsis?\ 175}# #{x\ 1643}#))
+ (lambda (#{x\ 4193}#)
+ (if (#{id?\ 2681}# #{x\ 4193}#)
+ (not (#{ellipsis?\ 2725}#
+ #{x\ 4193}#))
#f))
- #{key\ 1641}#)
- (let ((#{x\ 1645}#
- (#{gen-var\ 181}# (quote tmp))))
- (#{build-application\ 96}#
- #{s\ 1634}#
- (#{build-simple-lambda\ 105}#
+ #{key\ 4191}#)
+ (let ((#{x\ 4195}#
+ (#{gen-var\ 2731}# (quote tmp))))
+ (#{build-application\ 2646}#
+ #{s\ 4184}#
+ (#{build-simple-lambda\ 2655}#
#f
(list (quote tmp))
#f
- (list #{x\ 1645}#)
+ (list #{x\ 4195}#)
#f
- (#{gen-syntax-case\ 1558}#
- (#{build-lexical-reference\ 98}#
+ (#{gen-syntax-case\ 4108}#
+ (#{build-lexical-reference\ 2648}#
'value
#f
'tmp
- #{x\ 1645}#)
- #{key\ 1641}#
- #{m\ 1642}#
- #{r\ 1632}#
- #{mod\ 1635}#))
- (list (#{chi\ 167}#
- #{val\ 1640}#
- #{r\ 1632}#
+ #{x\ 4195}#)
+ #{key\ 4191}#
+ #{m\ 4192}#
+ #{r\ 4182}#
+ #{mod\ 4185}#))
+ (list (#{chi\ 2717}#
+ #{val\ 4190}#
+ #{r\ 4182}#
'(())
- #{mod\ 1635}#))))
+ #{mod\ 4185}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 1636}#)))
- #{tmp\ 1638}#)
+ #{e\ 4186}#)))
+ #{tmp\ 4188}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1637}#)))
+ #{tmp\ 4187}#)))
($sc-dispatch
- #{tmp\ 1637}#
+ #{tmp\ 4187}#
'(any any each-any . each-any))))
- #{e\ 1636}#)))))
+ #{e\ 4186}#)))))
(set! sc-expand
- (lambda (#{x\ 1648}# . #{rest\ 1649}#)
- (if (if (pair? #{x\ 1648}#)
- (equal? (car #{x\ 1648}#) #{noexpand\ 84}#)
+ (lambda (#{x\ 4198}# . #{rest\ 4199}#)
+ (if (if (pair? #{x\ 4198}#)
+ (equal? (car #{x\ 4198}#) #{noexpand\ 2634}#)
#f)
- (cadr #{x\ 1648}#)
- (let ((#{m\ 1650}#
- (if (null? #{rest\ 1649}#)
+ (cadr #{x\ 4198}#)
+ (let ((#{m\ 4200}#
+ (if (null? #{rest\ 4199}#)
'e
- (car #{rest\ 1649}#)))
- (#{esew\ 1651}#
- (if (let ((#{t\ 1652}# (null? #{rest\ 1649}#)))
- (if #{t\ 1652}#
- #{t\ 1652}#
- (null? (cdr #{rest\ 1649}#))))
+ (car #{rest\ 4199}#)))
+ (#{esew\ 4201}#
+ (if (let ((#{t\ 4202}# (null? #{rest\ 4199}#)))
+ (if #{t\ 4202}#
+ #{t\ 4202}#
+ (null? (cdr #{rest\ 4199}#))))
'(eval)
- (cadr #{rest\ 1649}#))))
+ (cadr #{rest\ 4199}#))))
(with-fluid*
- #{*mode*\ 85}#
- #{m\ 1650}#
+ #{*mode*\ 2635}#
+ #{m\ 4200}#
(lambda ()
- (#{chi-top\ 166}#
- #{x\ 1648}#
+ (#{chi-top\ 2716}#
+ #{x\ 4198}#
'()
'((top))
- #{m\ 1650}#
- #{esew\ 1651}#
+ #{m\ 4200}#
+ #{esew\ 4201}#
(cons 'hygiene
(module-name (current-module))))))))))
(set! identifier?
- (lambda (#{x\ 1653}#)
- (#{nonsymbol-id?\ 130}# #{x\ 1653}#)))
+ (lambda (#{x\ 4203}#)
+ (#{nonsymbol-id?\ 2680}# #{x\ 4203}#)))
(set! datum->syntax
- (lambda (#{id\ 1654}# #{datum\ 1655}#)
- (#{make-syntax-object\ 114}#
- #{datum\ 1655}#
- (#{syntax-object-wrap\ 117}# #{id\ 1654}#)
+ (lambda (#{id\ 4204}# #{datum\ 4205}#)
+ (#{make-syntax-object\ 2664}#
+ #{datum\ 4205}#
+ (#{syntax-object-wrap\ 2667}# #{id\ 4204}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 1656}#)
- (#{strip\ 180}# #{x\ 1656}# (quote (())))))
+ (lambda (#{x\ 4206}#)
+ (#{strip\ 2730}# #{x\ 4206}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 1657}#)
+ (lambda (#{ls\ 4207}#)
(begin
- (let ((#{x\ 1658}# #{ls\ 1657}#))
- (if (not (list? #{x\ 1658}#))
+ (let ((#{x\ 4208}# #{ls\ 4207}#))
+ (if (not (list? #{x\ 4208}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 1658}#)))
- (map (lambda (#{x\ 1659}#)
- (#{wrap\ 159}# (gensym) (quote ((top))) #f))
- #{ls\ 1657}#))))
+ #{x\ 4208}#)))
+ (map (lambda (#{x\ 4209}#)
+ (#{wrap\ 2709}# (gensym) (quote ((top))) #f))
+ #{ls\ 4207}#))))
(set! free-identifier=?
- (lambda (#{x\ 1660}# #{y\ 1661}#)
+ (lambda (#{x\ 4210}# #{y\ 4211}#)
(begin
- (let ((#{x\ 1662}# #{x\ 1660}#))
- (if (not (#{nonsymbol-id?\ 130}# #{x\ 1662}#))
+ (let ((#{x\ 4212}# #{x\ 4210}#))
+ (if (not (#{nonsymbol-id?\ 2680}# #{x\ 4212}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 1662}#)))
- (let ((#{x\ 1663}# #{y\ 1661}#))
- (if (not (#{nonsymbol-id?\ 130}# #{x\ 1663}#))
+ #{x\ 4212}#)))
+ (let ((#{x\ 4213}# #{y\ 4211}#))
+ (if (not (#{nonsymbol-id?\ 2680}# #{x\ 4213}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 1663}#)))
- (#{free-id=?\ 154}# #{x\ 1660}# #{y\ 1661}#))))
+ #{x\ 4213}#)))
+ (#{free-id=?\ 2704}# #{x\ 4210}# #{y\ 4211}#))))
(set! bound-identifier=?
- (lambda (#{x\ 1664}# #{y\ 1665}#)
+ (lambda (#{x\ 4214}# #{y\ 4215}#)
(begin
- (let ((#{x\ 1666}# #{x\ 1664}#))
- (if (not (#{nonsymbol-id?\ 130}# #{x\ 1666}#))
+ (let ((#{x\ 4216}# #{x\ 4214}#))
+ (if (not (#{nonsymbol-id?\ 2680}# #{x\ 4216}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 1666}#)))
- (let ((#{x\ 1667}# #{y\ 1665}#))
- (if (not (#{nonsymbol-id?\ 130}# #{x\ 1667}#))
+ #{x\ 4216}#)))
+ (let ((#{x\ 4217}# #{y\ 4215}#))
+ (if (not (#{nonsymbol-id?\ 2680}# #{x\ 4217}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 1667}#)))
- (#{bound-id=?\ 155}# #{x\ 1664}# #{y\ 1665}#))))
+ #{x\ 4217}#)))
+ (#{bound-id=?\ 2705}# #{x\ 4214}# #{y\ 4215}#))))
(set! syntax-violation
- (lambda (#{who\ 1668}#
- #{message\ 1669}#
- #{form\ 1670}#
+ (lambda (#{who\ 4218}#
+ #{message\ 4219}#
+ #{form\ 4220}#
.
- #{subform\ 1671}#)
+ #{subform\ 4221}#)
(begin
- (let ((#{x\ 1672}# #{who\ 1668}#))
- (if (not ((lambda (#{x\ 1673}#)
- (let ((#{t\ 1674}# (not #{x\ 1673}#)))
- (if #{t\ 1674}#
- #{t\ 1674}#
- (let ((#{t\ 1675}# (string? #{x\ 1673}#)))
- (if #{t\ 1675}#
- #{t\ 1675}#
- (symbol? #{x\ 1673}#))))))
- #{x\ 1672}#))
+ (let ((#{x\ 4222}# #{who\ 4218}#))
+ (if (not ((lambda (#{x\ 4223}#)
+ (let ((#{t\ 4224}# (not #{x\ 4223}#)))
+ (if #{t\ 4224}#
+ #{t\ 4224}#
+ (let ((#{t\ 4225}# (string? #{x\ 4223}#)))
+ (if #{t\ 4225}#
+ #{t\ 4225}#
+ (symbol? #{x\ 4223}#))))))
+ #{x\ 4222}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 1672}#)))
- (let ((#{x\ 1676}# #{message\ 1669}#))
- (if (not (string? #{x\ 1676}#))
+ #{x\ 4222}#)))
+ (let ((#{x\ 4226}# #{message\ 4219}#))
+ (if (not (string? #{x\ 4226}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 1676}#)))
+ #{x\ 4226}#)))
(scm-error
'syntax-error
'sc-expand
(string-append
- (if #{who\ 1668}# "~a: " "")
+ (if #{who\ 4218}# "~a: " "")
"~a "
- (if (null? #{subform\ 1671}#)
+ (if (null? #{subform\ 4221}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 1677}#
- (cons #{message\ 1669}#
- (map (lambda (#{x\ 1678}#)
- (#{strip\ 180}# #{x\ 1678}# (quote (()))))
+ (let ((#{tail\ 4227}#
+ (cons #{message\ 4219}#
+ (map (lambda (#{x\ 4228}#)
+ (#{strip\ 2730}# #{x\ 4228}# (quote (()))))
(append
- #{subform\ 1671}#
- (list #{form\ 1670}#))))))
- (if #{who\ 1668}#
- (cons #{who\ 1668}# #{tail\ 1677}#)
- #{tail\ 1677}#))
+ #{subform\ 4221}#
+ (list #{form\ 4220}#))))))
+ (if #{who\ 4218}#
+ (cons #{who\ 4218}# #{tail\ 4227}#)
+ #{tail\ 4227}#))
#f))))
- (letrec ((#{match\ 1683}#
- (lambda (#{e\ 1684}#
- #{p\ 1685}#
- #{w\ 1686}#
- #{r\ 1687}#
- #{mod\ 1688}#)
- (if (not #{r\ 1687}#)
+ (letrec ((#{match\ 4233}#
+ (lambda (#{e\ 4234}#
+ #{p\ 4235}#
+ #{w\ 4236}#
+ #{r\ 4237}#
+ #{mod\ 4238}#)
+ (if (not #{r\ 4237}#)
#f
- (if (eq? #{p\ 1685}# (quote any))
- (cons (#{wrap\ 159}#
- #{e\ 1684}#
- #{w\ 1686}#
- #{mod\ 1688}#)
- #{r\ 1687}#)
- (if (#{syntax-object?\ 115}# #{e\ 1684}#)
- (#{match*\ 1682}#
- (#{syntax-object-expression\ 116}# #{e\ 1684}#)
- #{p\ 1685}#
- (#{join-wraps\ 150}#
- #{w\ 1686}#
- (#{syntax-object-wrap\ 117}# #{e\ 1684}#))
- #{r\ 1687}#
- (#{syntax-object-module\ 118}# #{e\ 1684}#))
- (#{match*\ 1682}#
- #{e\ 1684}#
- #{p\ 1685}#
- #{w\ 1686}#
- #{r\ 1687}#
- #{mod\ 1688}#))))))
- (#{match*\ 1682}#
- (lambda (#{e\ 1689}#
- #{p\ 1690}#
- #{w\ 1691}#
- #{r\ 1692}#
- #{mod\ 1693}#)
- (if (null? #{p\ 1690}#)
- (if (null? #{e\ 1689}#) #{r\ 1692}# #f)
- (if (pair? #{p\ 1690}#)
- (if (pair? #{e\ 1689}#)
- (#{match\ 1683}#
- (car #{e\ 1689}#)
- (car #{p\ 1690}#)
- #{w\ 1691}#
- (#{match\ 1683}#
- (cdr #{e\ 1689}#)
- (cdr #{p\ 1690}#)
- #{w\ 1691}#
- #{r\ 1692}#
- #{mod\ 1693}#)
- #{mod\ 1693}#)
+ (if (eq? #{p\ 4235}# (quote any))
+ (cons (#{wrap\ 2709}#
+ #{e\ 4234}#
+ #{w\ 4236}#
+ #{mod\ 4238}#)
+ #{r\ 4237}#)
+ (if (#{syntax-object?\ 2665}# #{e\ 4234}#)
+ (#{match*\ 4232}#
+ (#{syntax-object-expression\ 2666}# #{e\ 4234}#)
+ #{p\ 4235}#
+ (#{join-wraps\ 2700}#
+ #{w\ 4236}#
+ (#{syntax-object-wrap\ 2667}# #{e\ 4234}#))
+ #{r\ 4237}#
+ (#{syntax-object-module\ 2668}# #{e\ 4234}#))
+ (#{match*\ 4232}#
+ #{e\ 4234}#
+ #{p\ 4235}#
+ #{w\ 4236}#
+ #{r\ 4237}#
+ #{mod\ 4238}#))))))
+ (#{match*\ 4232}#
+ (lambda (#{e\ 4239}#
+ #{p\ 4240}#
+ #{w\ 4241}#
+ #{r\ 4242}#
+ #{mod\ 4243}#)
+ (if (null? #{p\ 4240}#)
+ (if (null? #{e\ 4239}#) #{r\ 4242}# #f)
+ (if (pair? #{p\ 4240}#)
+ (if (pair? #{e\ 4239}#)
+ (#{match\ 4233}#
+ (car #{e\ 4239}#)
+ (car #{p\ 4240}#)
+ #{w\ 4241}#
+ (#{match\ 4233}#
+ (cdr #{e\ 4239}#)
+ (cdr #{p\ 4240}#)
+ #{w\ 4241}#
+ #{r\ 4242}#
+ #{mod\ 4243}#)
+ #{mod\ 4243}#)
#f)
- (if (eq? #{p\ 1690}# (quote each-any))
- (let ((#{l\ 1694}#
- (#{match-each-any\ 1680}#
- #{e\ 1689}#
- #{w\ 1691}#
- #{mod\ 1693}#)))
- (if #{l\ 1694}#
- (cons #{l\ 1694}# #{r\ 1692}#)
+ (if (eq? #{p\ 4240}# (quote each-any))
+ (let ((#{l\ 4244}#
+ (#{match-each-any\ 4230}#
+ #{e\ 4239}#
+ #{w\ 4241}#
+ #{mod\ 4243}#)))
+ (if #{l\ 4244}#
+ (cons #{l\ 4244}# #{r\ 4242}#)
#f))
- (let ((#{atom-key\ 1695}# (vector-ref #{p\ 1690}# 0)))
- (if (memv #{atom-key\ 1695}# (quote (each)))
- (if (null? #{e\ 1689}#)
- (#{match-empty\ 1681}#
- (vector-ref #{p\ 1690}# 1)
- #{r\ 1692}#)
- (let ((#{l\ 1696}#
- (#{match-each\ 1679}#
- #{e\ 1689}#
- (vector-ref #{p\ 1690}# 1)
- #{w\ 1691}#
- #{mod\ 1693}#)))
- (if #{l\ 1696}#
- (letrec ((#{collect\ 1697}#
- (lambda (#{l\ 1698}#)
- (if (null? (car #{l\ 1698}#))
- #{r\ 1692}#
- (cons (map car #{l\ 1698}#)
- (#{collect\ 1697}#
+ (let ((#{atom-key\ 4245}# (vector-ref #{p\ 4240}# 0)))
+ (if (memv #{atom-key\ 4245}# (quote (each)))
+ (if (null? #{e\ 4239}#)
+ (#{match-empty\ 4231}#
+ (vector-ref #{p\ 4240}# 1)
+ #{r\ 4242}#)
+ (let ((#{l\ 4246}#
+ (#{match-each\ 4229}#
+ #{e\ 4239}#
+ (vector-ref #{p\ 4240}# 1)
+ #{w\ 4241}#
+ #{mod\ 4243}#)))
+ (if #{l\ 4246}#
+ (letrec ((#{collect\ 4247}#
+ (lambda (#{l\ 4248}#)
+ (if (null? (car #{l\ 4248}#))
+ #{r\ 4242}#
+ (cons (map car #{l\ 4248}#)
+ (#{collect\ 4247}#
(map cdr
- #{l\ 1698}#)))))))
- (#{collect\ 1697}# #{l\ 1696}#))
+ #{l\ 4248}#)))))))
+ (#{collect\ 4247}# #{l\ 4246}#))
#f)))
- (if (memv #{atom-key\ 1695}# (quote (free-id)))
- (if (#{id?\ 131}# #{e\ 1689}#)
- (if (#{free-id=?\ 154}#
- (#{wrap\ 159}#
- #{e\ 1689}#
- #{w\ 1691}#
- #{mod\ 1693}#)
- (vector-ref #{p\ 1690}# 1))
- #{r\ 1692}#
+ (if (memv #{atom-key\ 4245}# (quote (free-id)))
+ (if (#{id?\ 2681}# #{e\ 4239}#)
+ (if (#{free-id=?\ 2704}#
+ (#{wrap\ 2709}#
+ #{e\ 4239}#
+ #{w\ 4241}#
+ #{mod\ 4243}#)
+ (vector-ref #{p\ 4240}# 1))
+ #{r\ 4242}#
#f)
#f)
- (if (memv #{atom-key\ 1695}# (quote (atom)))
+ (if (memv #{atom-key\ 4245}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 1690}# 1)
- (#{strip\ 180}#
- #{e\ 1689}#
- #{w\ 1691}#))
- #{r\ 1692}#
+ (vector-ref #{p\ 4240}# 1)
+ (#{strip\ 2730}#
+ #{e\ 4239}#
+ #{w\ 4241}#))
+ #{r\ 4242}#
#f)
- (if (memv #{atom-key\ 1695}# (quote (vector)))
- (if (vector? #{e\ 1689}#)
- (#{match\ 1683}#
- (vector->list #{e\ 1689}#)
- (vector-ref #{p\ 1690}# 1)
- #{w\ 1691}#
- #{r\ 1692}#
- #{mod\ 1693}#)
+ (if (memv #{atom-key\ 4245}# (quote (vector)))
+ (if (vector? #{e\ 4239}#)
+ (#{match\ 4233}#
+ (vector->list #{e\ 4239}#)
+ (vector-ref #{p\ 4240}# 1)
+ #{w\ 4241}#
+ #{r\ 4242}#
+ #{mod\ 4243}#)
#f)))))))))))
- (#{match-empty\ 1681}#
- (lambda (#{p\ 1699}# #{r\ 1700}#)
- (if (null? #{p\ 1699}#)
- #{r\ 1700}#
- (if (eq? #{p\ 1699}# (quote any))
- (cons (quote ()) #{r\ 1700}#)
- (if (pair? #{p\ 1699}#)
- (#{match-empty\ 1681}#
- (car #{p\ 1699}#)
- (#{match-empty\ 1681}#
- (cdr #{p\ 1699}#)
- #{r\ 1700}#))
- (if (eq? #{p\ 1699}# (quote each-any))
- (cons (quote ()) #{r\ 1700}#)
- (let ((#{atom-key\ 1701}#
- (vector-ref #{p\ 1699}# 0)))
- (if (memv #{atom-key\ 1701}# (quote (each)))
- (#{match-empty\ 1681}#
- (vector-ref #{p\ 1699}# 1)
- #{r\ 1700}#)
- (if (memv #{atom-key\ 1701}#
+ (#{match-empty\ 4231}#
+ (lambda (#{p\ 4249}# #{r\ 4250}#)
+ (if (null? #{p\ 4249}#)
+ #{r\ 4250}#
+ (if (eq? #{p\ 4249}# (quote any))
+ (cons (quote ()) #{r\ 4250}#)
+ (if (pair? #{p\ 4249}#)
+ (#{match-empty\ 4231}#
+ (car #{p\ 4249}#)
+ (#{match-empty\ 4231}#
+ (cdr #{p\ 4249}#)
+ #{r\ 4250}#))
+ (if (eq? #{p\ 4249}# (quote each-any))
+ (cons (quote ()) #{r\ 4250}#)
+ (let ((#{atom-key\ 4251}#
+ (vector-ref #{p\ 4249}# 0)))
+ (if (memv #{atom-key\ 4251}# (quote (each)))
+ (#{match-empty\ 4231}#
+ (vector-ref #{p\ 4249}# 1)
+ #{r\ 4250}#)
+ (if (memv #{atom-key\ 4251}#
'(free-id atom))
- #{r\ 1700}#
- (if (memv #{atom-key\ 1701}# (quote (vector)))
- (#{match-empty\ 1681}#
- (vector-ref #{p\ 1699}# 1)
- #{r\ 1700}#)))))))))))
- (#{match-each-any\ 1680}#
- (lambda (#{e\ 1702}# #{w\ 1703}# #{mod\ 1704}#)
- (if (pair? #{e\ 1702}#)
- (let ((#{l\ 1705}#
- (#{match-each-any\ 1680}#
- (cdr #{e\ 1702}#)
- #{w\ 1703}#
- #{mod\ 1704}#)))
- (if #{l\ 1705}#
- (cons (#{wrap\ 159}#
- (car #{e\ 1702}#)
- #{w\ 1703}#
- #{mod\ 1704}#)
- #{l\ 1705}#)
+ #{r\ 4250}#
+ (if (memv #{atom-key\ 4251}# (quote (vector)))
+ (#{match-empty\ 4231}#
+ (vector-ref #{p\ 4249}# 1)
+ #{r\ 4250}#)))))))))))
+ (#{match-each-any\ 4230}#
+ (lambda (#{e\ 4252}# #{w\ 4253}# #{mod\ 4254}#)
+ (if (pair? #{e\ 4252}#)
+ (let ((#{l\ 4255}#
+ (#{match-each-any\ 4230}#
+ (cdr #{e\ 4252}#)
+ #{w\ 4253}#
+ #{mod\ 4254}#)))
+ (if #{l\ 4255}#
+ (cons (#{wrap\ 2709}#
+ (car #{e\ 4252}#)
+ #{w\ 4253}#
+ #{mod\ 4254}#)
+ #{l\ 4255}#)
#f))
- (if (null? #{e\ 1702}#)
+ (if (null? #{e\ 4252}#)
'()
- (if (#{syntax-object?\ 115}# #{e\ 1702}#)
- (#{match-each-any\ 1680}#
- (#{syntax-object-expression\ 116}# #{e\ 1702}#)
- (#{join-wraps\ 150}#
- #{w\ 1703}#
- (#{syntax-object-wrap\ 117}# #{e\ 1702}#))
- #{mod\ 1704}#)
+ (if (#{syntax-object?\ 2665}# #{e\ 4252}#)
+ (#{match-each-any\ 4230}#
+ (#{syntax-object-expression\ 2666}# #{e\ 4252}#)
+ (#{join-wraps\ 2700}#
+ #{w\ 4253}#
+ (#{syntax-object-wrap\ 2667}# #{e\ 4252}#))
+ #{mod\ 4254}#)
#f)))))
- (#{match-each\ 1679}#
- (lambda (#{e\ 1706}#
- #{p\ 1707}#
- #{w\ 1708}#
- #{mod\ 1709}#)
- (if (pair? #{e\ 1706}#)
- (let ((#{first\ 1710}#
- (#{match\ 1683}#
- (car #{e\ 1706}#)
- #{p\ 1707}#
- #{w\ 1708}#
+ (#{match-each\ 4229}#
+ (lambda (#{e\ 4256}#
+ #{p\ 4257}#
+ #{w\ 4258}#
+ #{mod\ 4259}#)
+ (if (pair? #{e\ 4256}#)
+ (let ((#{first\ 4260}#
+ (#{match\ 4233}#
+ (car #{e\ 4256}#)
+ #{p\ 4257}#
+ #{w\ 4258}#
'()
- #{mod\ 1709}#)))
- (if #{first\ 1710}#
- (let ((#{rest\ 1711}#
- (#{match-each\ 1679}#
- (cdr #{e\ 1706}#)
- #{p\ 1707}#
- #{w\ 1708}#
- #{mod\ 1709}#)))
- (if #{rest\ 1711}#
- (cons #{first\ 1710}# #{rest\ 1711}#)
+ #{mod\ 4259}#)))
+ (if #{first\ 4260}#
+ (let ((#{rest\ 4261}#
+ (#{match-each\ 4229}#
+ (cdr #{e\ 4256}#)
+ #{p\ 4257}#
+ #{w\ 4258}#
+ #{mod\ 4259}#)))
+ (if #{rest\ 4261}#
+ (cons #{first\ 4260}# #{rest\ 4261}#)
#f))
#f))
- (if (null? #{e\ 1706}#)
+ (if (null? #{e\ 4256}#)
'()
- (if (#{syntax-object?\ 115}# #{e\ 1706}#)
- (#{match-each\ 1679}#
- (#{syntax-object-expression\ 116}# #{e\ 1706}#)
- #{p\ 1707}#
- (#{join-wraps\ 150}#
- #{w\ 1708}#
- (#{syntax-object-wrap\ 117}# #{e\ 1706}#))
- (#{syntax-object-module\ 118}# #{e\ 1706}#))
+ (if (#{syntax-object?\ 2665}# #{e\ 4256}#)
+ (#{match-each\ 4229}#
+ (#{syntax-object-expression\ 2666}# #{e\ 4256}#)
+ #{p\ 4257}#
+ (#{join-wraps\ 2700}#
+ #{w\ 4258}#
+ (#{syntax-object-wrap\ 2667}# #{e\ 4256}#))
+ (#{syntax-object-module\ 2668}# #{e\ 4256}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 1712}# #{p\ 1713}#)
- (if (eq? #{p\ 1713}# (quote any))
- (list #{e\ 1712}#)
- (if (#{syntax-object?\ 115}# #{e\ 1712}#)
- (#{match*\ 1682}#
- (#{syntax-object-expression\ 116}# #{e\ 1712}#)
- #{p\ 1713}#
- (#{syntax-object-wrap\ 117}# #{e\ 1712}#)
+ (lambda (#{e\ 4262}# #{p\ 4263}#)
+ (if (eq? #{p\ 4263}# (quote any))
+ (list #{e\ 4262}#)
+ (if (#{syntax-object?\ 2665}# #{e\ 4262}#)
+ (#{match*\ 4232}#
+ (#{syntax-object-expression\ 2666}# #{e\ 4262}#)
+ #{p\ 4263}#
+ (#{syntax-object-wrap\ 2667}# #{e\ 4262}#)
'()
- (#{syntax-object-module\ 118}# #{e\ 1712}#))
- (#{match*\ 1682}#
- #{e\ 1712}#
- #{p\ 1713}#
+ (#{syntax-object-module\ 2668}# #{e\ 4262}#))
+ (#{match*\ 4232}#
+ #{e\ 4262}#
+ #{p\ 4263}#
'(())
'()
#f)))))))))
@@ -11388,11 +11357,11 @@
(define with-syntax
(make-syncase-macro
'macro
- (lambda (#{x\ 1714}#)
- ((lambda (#{tmp\ 1715}#)
- ((lambda (#{tmp\ 1716}#)
- (if #{tmp\ 1716}#
- (apply (lambda (#{_\ 1717}# #{e1\ 1718}# #{e2\ 1719}#)
+ (lambda (#{x\ 4264}#)
+ ((lambda (#{tmp\ 4265}#)
+ ((lambda (#{tmp\ 4266}#)
+ (if #{tmp\ 4266}#
+ (apply (lambda (#{_\ 4267}# #{e1\ 4268}# #{e2\ 4269}#)
(cons '#(syntax-object
begin
((top)
@@ -11403,15 +11372,15 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- (cons #{e1\ 1718}# #{e2\ 1719}#)))
- #{tmp\ 1716}#)
- ((lambda (#{tmp\ 1721}#)
- (if #{tmp\ 1721}#
- (apply (lambda (#{_\ 1722}#
- #{out\ 1723}#
- #{in\ 1724}#
- #{e1\ 1725}#
- #{e2\ 1726}#)
+ (cons #{e1\ 4268}# #{e2\ 4269}#)))
+ #{tmp\ 4266}#)
+ ((lambda (#{tmp\ 4271}#)
+ (if #{tmp\ 4271}#
+ (apply (lambda (#{_\ 4272}#
+ #{out\ 4273}#
+ #{in\ 4274}#
+ #{e1\ 4275}#
+ #{e2\ 4276}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11422,9 +11391,9 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- #{in\ 1724}#
+ #{in\ 4274}#
'()
- (list #{out\ 1723}#
+ (list #{out\ 4273}#
(cons '#(syntax-object
begin
((top)
@@ -11442,16 +11411,16 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 1725}#
- #{e2\ 1726}#)))))
- #{tmp\ 1721}#)
- ((lambda (#{tmp\ 1728}#)
- (if #{tmp\ 1728}#
- (apply (lambda (#{_\ 1729}#
- #{out\ 1730}#
- #{in\ 1731}#
- #{e1\ 1732}#
- #{e2\ 1733}#)
+ (cons #{e1\ 4275}#
+ #{e2\ 4276}#)))))
+ #{tmp\ 4271}#)
+ ((lambda (#{tmp\ 4278}#)
+ (if #{tmp\ 4278}#
+ (apply (lambda (#{_\ 4279}#
+ #{out\ 4280}#
+ #{in\ 4281}#
+ #{e1\ 4282}#
+ #{e2\ 4283}#)
(list '#(syntax-object
syntax-case
((top)
@@ -11479,9 +11448,9 @@
#((top))
#("i")))
(hygiene guile))
- #{in\ 1731}#)
+ #{in\ 4281}#)
'()
- (list #{out\ 1730}#
+ (list #{out\ 4280}#
(cons '#(syntax-object
begin
((top)
@@ -11503,36 +11472,36 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 1732}#
- #{e2\ 1733}#)))))
- #{tmp\ 1728}#)
+ (cons #{e1\ 4282}#
+ #{e2\ 4283}#)))))
+ #{tmp\ 4278}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1715}#)))
+ #{tmp\ 4265}#)))
($sc-dispatch
- #{tmp\ 1715}#
+ #{tmp\ 4265}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1715}#
+ #{tmp\ 4265}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1715}#
+ #{tmp\ 4265}#
'(any () any . each-any))))
- #{x\ 1714}#))))
+ #{x\ 4264}#))))
(define syntax-rules
(make-syncase-macro
'macro
- (lambda (#{x\ 1737}#)
- ((lambda (#{tmp\ 1738}#)
- ((lambda (#{tmp\ 1739}#)
- (if #{tmp\ 1739}#
- (apply (lambda (#{_\ 1740}#
- #{k\ 1741}#
- #{keyword\ 1742}#
- #{pattern\ 1743}#
- #{template\ 1744}#)
+ (lambda (#{x\ 4287}#)
+ ((lambda (#{tmp\ 4288}#)
+ ((lambda (#{tmp\ 4289}#)
+ (if #{tmp\ 4289}#
+ (apply (lambda (#{_\ 4290}#
+ #{k\ 4291}#
+ #{keyword\ 4292}#
+ #{pattern\ 4293}#
+ #{template\ 4294}#)
(list '#(syntax-object
lambda
((top)
@@ -11573,9 +11542,9 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- (cons #{k\ 1741}#
- (map (lambda (#{tmp\ 1747}#
- #{tmp\ 1746}#)
+ (cons #{k\ 4291}#
+ (map (lambda (#{tmp\ 4297}#
+ #{tmp\ 4296}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -11605,7 +11574,7 @@
#("i")))
(hygiene
guile))
- #{tmp\ 1746}#)
+ #{tmp\ 4296}#)
(list '#(syntax-object
syntax
((top)
@@ -11635,43 +11604,43 @@
#("i")))
(hygiene
guile))
- #{tmp\ 1747}#)))
- #{template\ 1744}#
- #{pattern\ 1743}#))))))
- #{tmp\ 1739}#)
+ #{tmp\ 4297}#)))
+ #{template\ 4294}#
+ #{pattern\ 4293}#))))))
+ #{tmp\ 4289}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1738}#)))
+ #{tmp\ 4288}#)))
($sc-dispatch
- #{tmp\ 1738}#
+ #{tmp\ 4288}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 1737}#))))
+ #{x\ 4287}#))))
(define let*
(make-extended-syncase-macro
(module-ref (current-module) (quote let*))
'macro
- (lambda (#{x\ 1748}#)
- ((lambda (#{tmp\ 1749}#)
- ((lambda (#{tmp\ 1750}#)
- (if (if #{tmp\ 1750}#
- (apply (lambda (#{let*\ 1751}#
- #{x\ 1752}#
- #{v\ 1753}#
- #{e1\ 1754}#
- #{e2\ 1755}#)
- (and-map identifier? #{x\ 1752}#))
- #{tmp\ 1750}#)
+ (lambda (#{x\ 4298}#)
+ ((lambda (#{tmp\ 4299}#)
+ ((lambda (#{tmp\ 4300}#)
+ (if (if #{tmp\ 4300}#
+ (apply (lambda (#{let*\ 4301}#
+ #{x\ 4302}#
+ #{v\ 4303}#
+ #{e1\ 4304}#
+ #{e2\ 4305}#)
+ (and-map identifier? #{x\ 4302}#))
+ #{tmp\ 4300}#)
#f)
- (apply (lambda (#{let*\ 1757}#
- #{x\ 1758}#
- #{v\ 1759}#
- #{e1\ 1760}#
- #{e2\ 1761}#)
- (letrec ((#{f\ 1762}#
- (lambda (#{bindings\ 1763}#)
- (if (null? #{bindings\ 1763}#)
+ (apply (lambda (#{let*\ 4307}#
+ #{x\ 4308}#
+ #{v\ 4309}#
+ #{e1\ 4310}#
+ #{e2\ 4311}#)
+ (letrec ((#{f\ 4312}#
+ (lambda (#{bindings\ 4313}#)
+ (if (null? #{bindings\ 4313}#)
(cons '#(syntax-object
let
((top)
@@ -11695,13 +11664,13 @@
#("i")))
(hygiene guile))
(cons '()
- (cons #{e1\ 1760}#
- #{e2\ 1761}#)))
- ((lambda (#{tmp\ 1767}#)
- ((lambda (#{tmp\ 1768}#)
- (if #{tmp\ 1768}#
- (apply (lambda (#{body\ 1769}#
- #{binding\ 1770}#)
+ (cons #{e1\ 4310}#
+ #{e2\ 4311}#)))
+ ((lambda (#{tmp\ 4317}#)
+ ((lambda (#{tmp\ 4318}#)
+ (if #{tmp\ 4318}#
+ (apply (lambda (#{body\ 4319}#
+ #{binding\ 4320}#)
(list '#(syntax-object
let
((top)
@@ -11747,52 +11716,52 @@
#("i")))
(hygiene
guile))
- (list #{binding\ 1770}#)
- #{body\ 1769}#))
- #{tmp\ 1768}#)
+ (list #{binding\ 4320}#)
+ #{body\ 4319}#))
+ #{tmp\ 4318}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1767}#)))
+ #{tmp\ 4317}#)))
($sc-dispatch
- #{tmp\ 1767}#
+ #{tmp\ 4317}#
'(any any))))
- (list (#{f\ 1762}#
- (cdr #{bindings\ 1763}#))
- (car #{bindings\ 1763}#)))))))
- (#{f\ 1762}# (map list #{x\ 1758}# #{v\ 1759}#))))
- #{tmp\ 1750}#)
+ (list (#{f\ 4312}#
+ (cdr #{bindings\ 4313}#))
+ (car #{bindings\ 4313}#)))))))
+ (#{f\ 4312}# (map list #{x\ 4308}# #{v\ 4309}#))))
+ #{tmp\ 4300}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1749}#)))
+ #{tmp\ 4299}#)))
($sc-dispatch
- #{tmp\ 1749}#
+ #{tmp\ 4299}#
'(any #(each (any any)) any . each-any))))
- #{x\ 1748}#))))
+ #{x\ 4298}#))))
(define do
(make-extended-syncase-macro
(module-ref (current-module) (quote do))
'macro
- (lambda (#{orig-x\ 1771}#)
- ((lambda (#{tmp\ 1772}#)
- ((lambda (#{tmp\ 1773}#)
- (if #{tmp\ 1773}#
- (apply (lambda (#{_\ 1774}#
- #{var\ 1775}#
- #{init\ 1776}#
- #{step\ 1777}#
- #{e0\ 1778}#
- #{e1\ 1779}#
- #{c\ 1780}#)
- ((lambda (#{tmp\ 1781}#)
- ((lambda (#{tmp\ 1782}#)
- (if #{tmp\ 1782}#
- (apply (lambda (#{step\ 1783}#)
- ((lambda (#{tmp\ 1784}#)
- ((lambda (#{tmp\ 1785}#)
- (if #{tmp\ 1785}#
+ (lambda (#{orig-x\ 4321}#)
+ ((lambda (#{tmp\ 4322}#)
+ ((lambda (#{tmp\ 4323}#)
+ (if #{tmp\ 4323}#
+ (apply (lambda (#{_\ 4324}#
+ #{var\ 4325}#
+ #{init\ 4326}#
+ #{step\ 4327}#
+ #{e0\ 4328}#
+ #{e1\ 4329}#
+ #{c\ 4330}#)
+ ((lambda (#{tmp\ 4331}#)
+ ((lambda (#{tmp\ 4332}#)
+ (if #{tmp\ 4332}#
+ (apply (lambda (#{step\ 4333}#)
+ ((lambda (#{tmp\ 4334}#)
+ ((lambda (#{tmp\ 4335}#)
+ (if #{tmp\ 4335}#
(apply (lambda ()
(list '#(syntax-object
let
@@ -11873,8 +11842,8 @@
(hygiene
guile))
(map list
- #{var\ 1775}#
- #{init\ 1776}#)
+ #{var\ 4325}#
+ #{init\ 4326}#)
(list '#(syntax-object
if
((top)
@@ -11953,7 +11922,7 @@
#("i")))
(hygiene
guile))
- #{e0\ 1778}#)
+ #{e0\ 4328}#)
(cons '#(syntax-object
begin
((top)
@@ -11994,7 +11963,7 @@
(hygiene
guile))
(append
- #{c\ 1780}#
+ #{c\ 4330}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12034,12 +12003,12 @@
#("i")))
(hygiene
guile))
- #{step\ 1783}#)))))))
- #{tmp\ 1785}#)
- ((lambda (#{tmp\ 1790}#)
- (if #{tmp\ 1790}#
- (apply (lambda (#{e1\ 1791}#
- #{e2\ 1792}#)
+ #{step\ 4333}#)))))))
+ #{tmp\ 4335}#)
+ ((lambda (#{tmp\ 4340}#)
+ (if #{tmp\ 4340}#
+ (apply (lambda (#{e1\ 4341}#
+ #{e2\ 4342}#)
(list '#(syntax-object
let
((top)
@@ -12133,8 +12102,8 @@
(hygiene
guile))
(map list
- #{var\ 1775}#
- #{init\ 1776}#)
+ #{var\ 4325}#
+ #{init\ 4326}#)
(list '#(syntax-object
if
((top)
@@ -12181,7 +12150,7 @@
#("i")))
(hygiene
guile))
- #{e0\ 1778}#
+ #{e0\ 4328}#
(cons '#(syntax-object
begin
((top)
@@ -12228,8 +12197,8 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 1791}#
- #{e2\ 1792}#))
+ (cons #{e1\ 4341}#
+ #{e2\ 4342}#))
(cons '#(syntax-object
begin
((top)
@@ -12277,7 +12246,7 @@
(hygiene
guile))
(append
- #{c\ 1780}#
+ #{c\ 4330}#
(list (cons '#(syntax-object
doloop
((top)
@@ -12324,81 +12293,81 @@
#("i")))
(hygiene
guile))
- #{step\ 1783}#)))))))
- #{tmp\ 1790}#)
+ #{step\ 4333}#)))))))
+ #{tmp\ 4340}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1784}#)))
+ #{tmp\ 4334}#)))
($sc-dispatch
- #{tmp\ 1784}#
+ #{tmp\ 4334}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 1784}#
+ #{tmp\ 4334}#
'())))
- #{e1\ 1779}#))
- #{tmp\ 1782}#)
+ #{e1\ 4329}#))
+ #{tmp\ 4332}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1781}#)))
- ($sc-dispatch #{tmp\ 1781}# (quote each-any))))
- (map (lambda (#{v\ 1799}# #{s\ 1800}#)
- ((lambda (#{tmp\ 1801}#)
- ((lambda (#{tmp\ 1802}#)
- (if #{tmp\ 1802}#
- (apply (lambda () #{v\ 1799}#)
- #{tmp\ 1802}#)
- ((lambda (#{tmp\ 1803}#)
- (if #{tmp\ 1803}#
- (apply (lambda (#{e\ 1804}#)
- #{e\ 1804}#)
- #{tmp\ 1803}#)
- ((lambda (#{_\ 1805}#)
+ #{tmp\ 4331}#)))
+ ($sc-dispatch #{tmp\ 4331}# (quote each-any))))
+ (map (lambda (#{v\ 4349}# #{s\ 4350}#)
+ ((lambda (#{tmp\ 4351}#)
+ ((lambda (#{tmp\ 4352}#)
+ (if #{tmp\ 4352}#
+ (apply (lambda () #{v\ 4349}#)
+ #{tmp\ 4352}#)
+ ((lambda (#{tmp\ 4353}#)
+ (if #{tmp\ 4353}#
+ (apply (lambda (#{e\ 4354}#)
+ #{e\ 4354}#)
+ #{tmp\ 4353}#)
+ ((lambda (#{_\ 4355}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 1771}#
- #{s\ 1800}#))
- #{tmp\ 1801}#)))
+ #{orig-x\ 4321}#
+ #{s\ 4350}#))
+ #{tmp\ 4351}#)))
($sc-dispatch
- #{tmp\ 1801}#
+ #{tmp\ 4351}#
'(any)))))
- ($sc-dispatch #{tmp\ 1801}# (quote ()))))
- #{s\ 1800}#))
- #{var\ 1775}#
- #{step\ 1777}#)))
- #{tmp\ 1773}#)
+ ($sc-dispatch #{tmp\ 4351}# (quote ()))))
+ #{s\ 4350}#))
+ #{var\ 4325}#
+ #{step\ 4327}#)))
+ #{tmp\ 4323}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1772}#)))
+ #{tmp\ 4322}#)))
($sc-dispatch
- #{tmp\ 1772}#
+ #{tmp\ 4322}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 1771}#))))
+ #{orig-x\ 4321}#))))
(define quasiquote
(make-extended-syncase-macro
(module-ref (current-module) (quote quasiquote))
'macro
- (letrec ((#{quasicons\ 1808}#
- (lambda (#{x\ 1812}# #{y\ 1813}#)
- ((lambda (#{tmp\ 1814}#)
- ((lambda (#{tmp\ 1815}#)
- (if #{tmp\ 1815}#
- (apply (lambda (#{x\ 1816}# #{y\ 1817}#)
- ((lambda (#{tmp\ 1818}#)
- ((lambda (#{tmp\ 1819}#)
- (if #{tmp\ 1819}#
- (apply (lambda (#{dy\ 1820}#)
- ((lambda (#{tmp\ 1821}#)
- ((lambda (#{tmp\ 1822}#)
- (if #{tmp\ 1822}#
- (apply (lambda (#{dx\ 1823}#)
+ (letrec ((#{quasicons\ 4358}#
+ (lambda (#{x\ 4362}# #{y\ 4363}#)
+ ((lambda (#{tmp\ 4364}#)
+ ((lambda (#{tmp\ 4365}#)
+ (if #{tmp\ 4365}#
+ (apply (lambda (#{x\ 4366}# #{y\ 4367}#)
+ ((lambda (#{tmp\ 4368}#)
+ ((lambda (#{tmp\ 4369}#)
+ (if #{tmp\ 4369}#
+ (apply (lambda (#{dy\ 4370}#)
+ ((lambda (#{tmp\ 4371}#)
+ ((lambda (#{tmp\ 4372}#)
+ (if #{tmp\ 4372}#
+ (apply (lambda (#{dx\ 4373}#)
(list '#(syntax-object
quote
((top)
@@ -12447,11 +12416,11 @@
"i")))
(hygiene
guile))
- (cons #{dx\ 1823}#
- #{dy\ 1820}#)))
- #{tmp\ 1822}#)
- ((lambda (#{_\ 1824}#)
- (if (null? #{dy\ 1820}#)
+ (cons #{dx\ 4373}#
+ #{dy\ 4370}#)))
+ #{tmp\ 4372}#)
+ ((lambda (#{_\ 4374}#)
+ (if (null? #{dy\ 4370}#)
(list '#(syntax-object
list
((top)
@@ -12500,7 +12469,7 @@
"i")))
(hygiene
guile))
- #{x\ 1816}#)
+ #{x\ 4366}#)
(list '#(syntax-object
cons
((top)
@@ -12549,11 +12518,11 @@
"i")))
(hygiene
guile))
- #{x\ 1816}#
- #{y\ 1817}#)))
- #{tmp\ 1821}#)))
+ #{x\ 4366}#
+ #{y\ 4367}#)))
+ #{tmp\ 4371}#)))
($sc-dispatch
- #{tmp\ 1821}#
+ #{tmp\ 4371}#
'(#(free-id
#(syntax-object
quote
@@ -12596,11 +12565,11 @@
(hygiene
guile)))
any))))
- #{x\ 1816}#))
- #{tmp\ 1819}#)
- ((lambda (#{tmp\ 1825}#)
- (if #{tmp\ 1825}#
- (apply (lambda (#{stuff\ 1826}#)
+ #{x\ 4366}#))
+ #{tmp\ 4369}#)
+ ((lambda (#{tmp\ 4375}#)
+ (if #{tmp\ 4375}#
+ (apply (lambda (#{stuff\ 4376}#)
(cons '#(syntax-object
list
((top)
@@ -12641,10 +12610,10 @@
"i")))
(hygiene
guile))
- (cons #{x\ 1816}#
- #{stuff\ 1826}#)))
- #{tmp\ 1825}#)
- ((lambda (#{else\ 1827}#)
+ (cons #{x\ 4366}#
+ #{stuff\ 4376}#)))
+ #{tmp\ 4375}#)
+ ((lambda (#{else\ 4377}#)
(list '#(syntax-object
cons
((top)
@@ -12676,11 +12645,11 @@
"i"
"i")))
(hygiene guile))
- #{x\ 1816}#
- #{y\ 1817}#))
- #{tmp\ 1818}#)))
+ #{x\ 4366}#
+ #{y\ 4367}#))
+ #{tmp\ 4368}#)))
($sc-dispatch
- #{tmp\ 1818}#
+ #{tmp\ 4368}#
'(#(free-id
#(syntax-object
list
@@ -12709,7 +12678,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1818}#
+ #{tmp\ 4368}#
'(#(free-id
#(syntax-object
quote
@@ -12733,26 +12702,26 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{y\ 1817}#))
- #{tmp\ 1815}#)
+ #{y\ 4367}#))
+ #{tmp\ 4365}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1814}#)))
- ($sc-dispatch #{tmp\ 1814}# (quote (any any)))))
- (list #{x\ 1812}# #{y\ 1813}#))))
- (#{quasiappend\ 1809}#
- (lambda (#{x\ 1828}# #{y\ 1829}#)
- ((lambda (#{tmp\ 1830}#)
- ((lambda (#{tmp\ 1831}#)
- (if #{tmp\ 1831}#
- (apply (lambda (#{x\ 1832}# #{y\ 1833}#)
- ((lambda (#{tmp\ 1834}#)
- ((lambda (#{tmp\ 1835}#)
- (if #{tmp\ 1835}#
- (apply (lambda () #{x\ 1832}#)
- #{tmp\ 1835}#)
- ((lambda (#{_\ 1836}#)
+ #{tmp\ 4364}#)))
+ ($sc-dispatch #{tmp\ 4364}# (quote (any any)))))
+ (list #{x\ 4362}# #{y\ 4363}#))))
+ (#{quasiappend\ 4359}#
+ (lambda (#{x\ 4378}# #{y\ 4379}#)
+ ((lambda (#{tmp\ 4380}#)
+ ((lambda (#{tmp\ 4381}#)
+ (if #{tmp\ 4381}#
+ (apply (lambda (#{x\ 4382}# #{y\ 4383}#)
+ ((lambda (#{tmp\ 4384}#)
+ ((lambda (#{tmp\ 4385}#)
+ (if #{tmp\ 4385}#
+ (apply (lambda () #{x\ 4382}#)
+ #{tmp\ 4385}#)
+ ((lambda (#{_\ 4386}#)
(list '#(syntax-object
append
((top)
@@ -12781,11 +12750,11 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 1832}#
- #{y\ 1833}#))
- #{tmp\ 1834}#)))
+ #{x\ 4382}#
+ #{y\ 4383}#))
+ #{tmp\ 4384}#)))
($sc-dispatch
- #{tmp\ 1834}#
+ #{tmp\ 4384}#
'(#(free-id
#(syntax-object
quote
@@ -12809,22 +12778,22 @@
#("i" "i" "i" "i")))
(hygiene guile)))
()))))
- #{y\ 1833}#))
- #{tmp\ 1831}#)
+ #{y\ 4383}#))
+ #{tmp\ 4381}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1830}#)))
- ($sc-dispatch #{tmp\ 1830}# (quote (any any)))))
- (list #{x\ 1828}# #{y\ 1829}#))))
- (#{quasivector\ 1810}#
- (lambda (#{x\ 1837}#)
- ((lambda (#{tmp\ 1838}#)
- ((lambda (#{x\ 1839}#)
- ((lambda (#{tmp\ 1840}#)
- ((lambda (#{tmp\ 1841}#)
- (if #{tmp\ 1841}#
- (apply (lambda (#{x\ 1842}#)
+ #{tmp\ 4380}#)))
+ ($sc-dispatch #{tmp\ 4380}# (quote (any any)))))
+ (list #{x\ 4378}# #{y\ 4379}#))))
+ (#{quasivector\ 4360}#
+ (lambda (#{x\ 4387}#)
+ ((lambda (#{tmp\ 4388}#)
+ ((lambda (#{x\ 4389}#)
+ ((lambda (#{tmp\ 4390}#)
+ ((lambda (#{tmp\ 4391}#)
+ (if #{tmp\ 4391}#
+ (apply (lambda (#{x\ 4392}#)
(list '#(syntax-object
quote
((top)
@@ -12850,11 +12819,11 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- (list->vector #{x\ 1842}#)))
- #{tmp\ 1841}#)
- ((lambda (#{tmp\ 1844}#)
- (if #{tmp\ 1844}#
- (apply (lambda (#{x\ 1845}#)
+ (list->vector #{x\ 4392}#)))
+ #{tmp\ 4391}#)
+ ((lambda (#{tmp\ 4394}#)
+ (if #{tmp\ 4394}#
+ (apply (lambda (#{x\ 4395}#)
(cons '#(syntax-object
vector
((top)
@@ -12883,9 +12852,9 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 1845}#))
- #{tmp\ 1844}#)
- ((lambda (#{_\ 1847}#)
+ #{x\ 4395}#))
+ #{tmp\ 4394}#)
+ ((lambda (#{_\ 4397}#)
(list '#(syntax-object
list->vector
((top)
@@ -12911,10 +12880,10 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 1839}#))
- #{tmp\ 1840}#)))
+ #{x\ 4389}#))
+ #{tmp\ 4390}#)))
($sc-dispatch
- #{tmp\ 1840}#
+ #{tmp\ 4390}#
'(#(free-id
#(syntax-object
list
@@ -12934,7 +12903,7 @@
.
each-any)))))
($sc-dispatch
- #{tmp\ 1840}#
+ #{tmp\ 4390}#
'(#(free-id
#(syntax-object
quote
@@ -12952,18 +12921,18 @@
#("i" "i" "i" "i")))
(hygiene guile)))
each-any))))
- #{x\ 1839}#))
- #{tmp\ 1838}#))
- #{x\ 1837}#)))
- (#{quasi\ 1811}#
- (lambda (#{p\ 1848}# #{lev\ 1849}#)
- ((lambda (#{tmp\ 1850}#)
- ((lambda (#{tmp\ 1851}#)
- (if #{tmp\ 1851}#
- (apply (lambda (#{p\ 1852}#)
- (if (= #{lev\ 1849}# 0)
- #{p\ 1852}#
- (#{quasicons\ 1808}#
+ #{x\ 4389}#))
+ #{tmp\ 4388}#))
+ #{x\ 4387}#)))
+ (#{quasi\ 4361}#
+ (lambda (#{p\ 4398}# #{lev\ 4399}#)
+ ((lambda (#{tmp\ 4400}#)
+ ((lambda (#{tmp\ 4401}#)
+ (if #{tmp\ 4401}#
+ (apply (lambda (#{p\ 4402}#)
+ (if (= #{lev\ 4399}# 0)
+ #{p\ 4402}#
+ (#{quasicons\ 4358}#
'(#(syntax-object
quote
((top)
@@ -12998,21 +12967,21 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile)))
- (#{quasi\ 1811}#
- (list #{p\ 1852}#)
- (- #{lev\ 1849}# 1)))))
- #{tmp\ 1851}#)
- ((lambda (#{tmp\ 1853}#)
- (if (if #{tmp\ 1853}#
- (apply (lambda (#{args\ 1854}#)
- (= #{lev\ 1849}# 0))
- #{tmp\ 1853}#)
+ (#{quasi\ 4361}#
+ (list #{p\ 4402}#)
+ (- #{lev\ 4399}# 1)))))
+ #{tmp\ 4401}#)
+ ((lambda (#{tmp\ 4403}#)
+ (if (if #{tmp\ 4403}#
+ (apply (lambda (#{args\ 4404}#)
+ (= #{lev\ 4399}# 0))
+ #{tmp\ 4403}#)
#f)
- (apply (lambda (#{args\ 1855}#)
+ (apply (lambda (#{args\ 4405}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 1848}#
+ #{p\ 4398}#
(cons '#(syntax-object
unquote
((top)
@@ -13033,19 +13002,19 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{args\ 1855}#)))
- #{tmp\ 1853}#)
- ((lambda (#{tmp\ 1856}#)
- (if #{tmp\ 1856}#
- (apply (lambda (#{p\ 1857}# #{q\ 1858}#)
- (if (= #{lev\ 1849}# 0)
- (#{quasiappend\ 1809}#
- #{p\ 1857}#
- (#{quasi\ 1811}#
- #{q\ 1858}#
- #{lev\ 1849}#))
- (#{quasicons\ 1808}#
- (#{quasicons\ 1808}#
+ #{args\ 4405}#)))
+ #{tmp\ 4403}#)
+ ((lambda (#{tmp\ 4406}#)
+ (if #{tmp\ 4406}#
+ (apply (lambda (#{p\ 4407}# #{q\ 4408}#)
+ (if (= #{lev\ 4399}# 0)
+ (#{quasiappend\ 4359}#
+ #{p\ 4407}#
+ (#{quasi\ 4361}#
+ #{q\ 4408}#
+ #{lev\ 4399}#))
+ (#{quasicons\ 4358}#
+ (#{quasicons\ 4358}#
'(#(syntax-object
quote
((top)
@@ -13092,26 +13061,26 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile)))
- (#{quasi\ 1811}#
- (list #{p\ 1857}#)
- (- #{lev\ 1849}# 1)))
- (#{quasi\ 1811}#
- #{q\ 1858}#
- #{lev\ 1849}#))))
- #{tmp\ 1856}#)
- ((lambda (#{tmp\ 1859}#)
- (if (if #{tmp\ 1859}#
- (apply (lambda (#{args\ 1860}#
- #{q\ 1861}#)
- (= #{lev\ 1849}# 0))
- #{tmp\ 1859}#)
+ (#{quasi\ 4361}#
+ (list #{p\ 4407}#)
+ (- #{lev\ 4399}# 1)))
+ (#{quasi\ 4361}#
+ #{q\ 4408}#
+ #{lev\ 4399}#))))
+ #{tmp\ 4406}#)
+ ((lambda (#{tmp\ 4409}#)
+ (if (if #{tmp\ 4409}#
+ (apply (lambda (#{args\ 4410}#
+ #{q\ 4411}#)
+ (= #{lev\ 4399}# 0))
+ #{tmp\ 4409}#)
#f)
- (apply (lambda (#{args\ 1862}#
- #{q\ 1863}#)
+ (apply (lambda (#{args\ 4412}#
+ #{q\ 4413}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 1848}#
+ #{p\ 4398}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -13141,12 +13110,12 @@
"i"
"i")))
(hygiene guile))
- #{args\ 1862}#)))
- #{tmp\ 1859}#)
- ((lambda (#{tmp\ 1864}#)
- (if #{tmp\ 1864}#
- (apply (lambda (#{p\ 1865}#)
- (#{quasicons\ 1808}#
+ #{args\ 4412}#)))
+ #{tmp\ 4409}#)
+ ((lambda (#{tmp\ 4414}#)
+ (if #{tmp\ 4414}#
+ (apply (lambda (#{p\ 4415}#)
+ (#{quasicons\ 4358}#
'(#(syntax-object
quote
((top)
@@ -13205,32 +13174,32 @@
"i"
"i")))
(hygiene guile)))
- (#{quasi\ 1811}#
- (list #{p\ 1865}#)
- (+ #{lev\ 1849}#
+ (#{quasi\ 4361}#
+ (list #{p\ 4415}#)
+ (+ #{lev\ 4399}#
1))))
- #{tmp\ 1864}#)
- ((lambda (#{tmp\ 1866}#)
- (if #{tmp\ 1866}#
- (apply (lambda (#{p\ 1867}#
- #{q\ 1868}#)
- (#{quasicons\ 1808}#
- (#{quasi\ 1811}#
- #{p\ 1867}#
- #{lev\ 1849}#)
- (#{quasi\ 1811}#
- #{q\ 1868}#
- #{lev\ 1849}#)))
- #{tmp\ 1866}#)
- ((lambda (#{tmp\ 1869}#)
- (if #{tmp\ 1869}#
- (apply (lambda (#{x\ 1870}#)
- (#{quasivector\ 1810}#
- (#{quasi\ 1811}#
- #{x\ 1870}#
- #{lev\ 1849}#)))
- #{tmp\ 1869}#)
- ((lambda (#{p\ 1872}#)
+ #{tmp\ 4414}#)
+ ((lambda (#{tmp\ 4416}#)
+ (if #{tmp\ 4416}#
+ (apply (lambda (#{p\ 4417}#
+ #{q\ 4418}#)
+ (#{quasicons\ 4358}#
+ (#{quasi\ 4361}#
+ #{p\ 4417}#
+ #{lev\ 4399}#)
+ (#{quasi\ 4361}#
+ #{q\ 4418}#
+ #{lev\ 4399}#)))
+ #{tmp\ 4416}#)
+ ((lambda (#{tmp\ 4419}#)
+ (if #{tmp\ 4419}#
+ (apply (lambda (#{x\ 4420}#)
+ (#{quasivector\ 4360}#
+ (#{quasi\ 4361}#
+ #{x\ 4420}#
+ #{lev\ 4399}#)))
+ #{tmp\ 4419}#)
+ ((lambda (#{p\ 4422}#)
(list '#(syntax-object
quote
((top)
@@ -13263,16 +13232,16 @@
"i")))
(hygiene
guile))
- #{p\ 1872}#))
- #{tmp\ 1850}#)))
+ #{p\ 4422}#))
+ #{tmp\ 4400}#)))
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 4400}#
'#(vector each-any)))))
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 4400}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 4400}#
'(#(free-id
#(syntax-object
quasiquote
@@ -13292,7 +13261,7 @@
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 4400}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13315,7 +13284,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 4400}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -13337,7 +13306,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 4400}#
'(#(free-id
#(syntax-object
unquote
@@ -13355,7 +13324,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1850}#
+ #{tmp\ 4400}#
'(#(free-id
#(syntax-object
unquote
@@ -13368,49 +13337,49 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{p\ 1848}#))))
- (lambda (#{x\ 1873}#)
- ((lambda (#{tmp\ 1874}#)
- ((lambda (#{tmp\ 1875}#)
- (if #{tmp\ 1875}#
- (apply (lambda (#{_\ 1876}# #{e\ 1877}#)
- (#{quasi\ 1811}# #{e\ 1877}# 0))
- #{tmp\ 1875}#)
+ #{p\ 4398}#))))
+ (lambda (#{x\ 4423}#)
+ ((lambda (#{tmp\ 4424}#)
+ ((lambda (#{tmp\ 4425}#)
+ (if #{tmp\ 4425}#
+ (apply (lambda (#{_\ 4426}# #{e\ 4427}#)
+ (#{quasi\ 4361}# #{e\ 4427}# 0))
+ #{tmp\ 4425}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1874}#)))
- ($sc-dispatch #{tmp\ 1874}# (quote (any any)))))
- #{x\ 1873}#)))))
+ #{tmp\ 4424}#)))
+ ($sc-dispatch #{tmp\ 4424}# (quote (any any)))))
+ #{x\ 4423}#)))))
(define include
(make-syncase-macro
'macro
- (lambda (#{x\ 1878}#)
- (letrec ((#{read-file\ 1879}#
- (lambda (#{fn\ 1880}# #{k\ 1881}#)
- (let ((#{p\ 1882}# (open-input-file #{fn\ 1880}#)))
- (letrec ((#{f\ 1883}#
- (lambda (#{x\ 1884}#)
- (if (eof-object? #{x\ 1884}#)
+ (lambda (#{x\ 4428}#)
+ (letrec ((#{read-file\ 4429}#
+ (lambda (#{fn\ 4430}# #{k\ 4431}#)
+ (let ((#{p\ 4432}# (open-input-file #{fn\ 4430}#)))
+ (letrec ((#{f\ 4433}#
+ (lambda (#{x\ 4434}#)
+ (if (eof-object? #{x\ 4434}#)
(begin
- (close-input-port #{p\ 1882}#)
+ (close-input-port #{p\ 4432}#)
'())
(cons (datum->syntax
- #{k\ 1881}#
- #{x\ 1884}#)
- (#{f\ 1883}# (read #{p\ 1882}#)))))))
- (#{f\ 1883}# (read #{p\ 1882}#)))))))
- ((lambda (#{tmp\ 1885}#)
- ((lambda (#{tmp\ 1886}#)
- (if #{tmp\ 1886}#
- (apply (lambda (#{k\ 1887}# #{filename\ 1888}#)
- (let ((#{fn\ 1889}#
- (syntax->datum #{filename\ 1888}#)))
- ((lambda (#{tmp\ 1890}#)
- ((lambda (#{tmp\ 1891}#)
- (if #{tmp\ 1891}#
- (apply (lambda (#{exp\ 1892}#)
+ #{k\ 4431}#
+ #{x\ 4434}#)
+ (#{f\ 4433}# (read #{p\ 4432}#)))))))
+ (#{f\ 4433}# (read #{p\ 4432}#)))))))
+ ((lambda (#{tmp\ 4435}#)
+ ((lambda (#{tmp\ 4436}#)
+ (if #{tmp\ 4436}#
+ (apply (lambda (#{k\ 4437}# #{filename\ 4438}#)
+ (let ((#{fn\ 4439}#
+ (syntax->datum #{filename\ 4438}#)))
+ ((lambda (#{tmp\ 4440}#)
+ ((lambda (#{tmp\ 4441}#)
+ (if #{tmp\ 4441}#
+ (apply (lambda (#{exp\ 4442}#)
(cons '#(syntax-object
begin
((top)
@@ -13437,33 +13406,33 @@
#((top))
#("i")))
(hygiene guile))
- #{exp\ 1892}#))
- #{tmp\ 1891}#)
+ #{exp\ 4442}#))
+ #{tmp\ 4441}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1890}#)))
- ($sc-dispatch #{tmp\ 1890}# (quote each-any))))
- (#{read-file\ 1879}# #{fn\ 1889}# #{k\ 1887}#))))
- #{tmp\ 1886}#)
+ #{tmp\ 4440}#)))
+ ($sc-dispatch #{tmp\ 4440}# (quote each-any))))
+ (#{read-file\ 4429}# #{fn\ 4439}# #{k\ 4437}#))))
+ #{tmp\ 4436}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1885}#)))
- ($sc-dispatch #{tmp\ 1885}# (quote (any any)))))
- #{x\ 1878}#)))))
+ #{tmp\ 4435}#)))
+ ($sc-dispatch #{tmp\ 4435}# (quote (any any)))))
+ #{x\ 4428}#)))))
(define include-from-path
(make-syncase-macro
'macro
- (lambda (#{x\ 1894}#)
- ((lambda (#{tmp\ 1895}#)
- ((lambda (#{tmp\ 1896}#)
- (if #{tmp\ 1896}#
- (apply (lambda (#{k\ 1897}# #{filename\ 1898}#)
- (let ((#{fn\ 1899}# (syntax->datum #{filename\ 1898}#)))
- ((lambda (#{tmp\ 1900}#)
- ((lambda (#{fn\ 1901}#)
+ (lambda (#{x\ 4444}#)
+ ((lambda (#{tmp\ 4445}#)
+ ((lambda (#{tmp\ 4446}#)
+ (if #{tmp\ 4446}#
+ (apply (lambda (#{k\ 4447}# #{filename\ 4448}#)
+ (let ((#{fn\ 4449}# (syntax->datum #{filename\ 4448}#)))
+ ((lambda (#{tmp\ 4450}#)
+ ((lambda (#{fn\ 4451}#)
(list '#(syntax-object
include
((top)
@@ -13478,78 +13447,78 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- #{fn\ 1901}#))
- #{tmp\ 1900}#))
- (let ((#{t\ 1902}# (%search-load-path #{fn\ 1899}#)))
- (if #{t\ 1902}#
- #{t\ 1902}#
+ #{fn\ 4451}#))
+ #{tmp\ 4450}#))
+ (let ((#{t\ 4452}# (%search-load-path #{fn\ 4449}#)))
+ (if #{t\ 4452}#
+ #{t\ 4452}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 1894}#
- #{filename\ 1898}#))))))
- #{tmp\ 1896}#)
+ #{x\ 4444}#
+ #{filename\ 4448}#))))))
+ #{tmp\ 4446}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1895}#)))
- ($sc-dispatch #{tmp\ 1895}# (quote (any any)))))
- #{x\ 1894}#))))
+ #{tmp\ 4445}#)))
+ ($sc-dispatch #{tmp\ 4445}# (quote (any any)))))
+ #{x\ 4444}#))))
(define unquote
(make-syncase-macro
'macro
- (lambda (#{x\ 1903}#)
- ((lambda (#{tmp\ 1904}#)
- ((lambda (#{tmp\ 1905}#)
- (if #{tmp\ 1905}#
- (apply (lambda (#{_\ 1906}# #{e\ 1907}#)
+ (lambda (#{x\ 4453}#)
+ ((lambda (#{tmp\ 4454}#)
+ ((lambda (#{tmp\ 4455}#)
+ (if #{tmp\ 4455}#
+ (apply (lambda (#{_\ 4456}# #{e\ 4457}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 1903}#))
- #{tmp\ 1905}#)
+ #{x\ 4453}#))
+ #{tmp\ 4455}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1904}#)))
- ($sc-dispatch #{tmp\ 1904}# (quote (any any)))))
- #{x\ 1903}#))))
+ #{tmp\ 4454}#)))
+ ($sc-dispatch #{tmp\ 4454}# (quote (any any)))))
+ #{x\ 4453}#))))
(define unquote-splicing
(make-syncase-macro
'macro
- (lambda (#{x\ 1908}#)
- ((lambda (#{tmp\ 1909}#)
- ((lambda (#{tmp\ 1910}#)
- (if #{tmp\ 1910}#
- (apply (lambda (#{_\ 1911}# #{e\ 1912}#)
+ (lambda (#{x\ 4458}#)
+ ((lambda (#{tmp\ 4459}#)
+ ((lambda (#{tmp\ 4460}#)
+ (if #{tmp\ 4460}#
+ (apply (lambda (#{_\ 4461}# #{e\ 4462}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 1908}#))
- #{tmp\ 1910}#)
+ #{x\ 4458}#))
+ #{tmp\ 4460}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1909}#)))
- ($sc-dispatch #{tmp\ 1909}# (quote (any any)))))
- #{x\ 1908}#))))
+ #{tmp\ 4459}#)))
+ ($sc-dispatch #{tmp\ 4459}# (quote (any any)))))
+ #{x\ 4458}#))))
(define case
(make-extended-syncase-macro
(module-ref (current-module) (quote case))
'macro
- (lambda (#{x\ 1913}#)
- ((lambda (#{tmp\ 1914}#)
- ((lambda (#{tmp\ 1915}#)
- (if #{tmp\ 1915}#
- (apply (lambda (#{_\ 1916}#
- #{e\ 1917}#
- #{m1\ 1918}#
- #{m2\ 1919}#)
- ((lambda (#{tmp\ 1920}#)
- ((lambda (#{body\ 1921}#)
+ (lambda (#{x\ 4463}#)
+ ((lambda (#{tmp\ 4464}#)
+ ((lambda (#{tmp\ 4465}#)
+ (if #{tmp\ 4465}#
+ (apply (lambda (#{_\ 4466}#
+ #{e\ 4467}#
+ #{m1\ 4468}#
+ #{m2\ 4469}#)
+ ((lambda (#{tmp\ 4470}#)
+ ((lambda (#{body\ 4471}#)
(list '#(syntax-object
let
((top)
@@ -13578,17 +13547,17 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 1917}#))
- #{body\ 1921}#))
- #{tmp\ 1920}#))
- (letrec ((#{f\ 1922}#
- (lambda (#{clause\ 1923}# #{clauses\ 1924}#)
- (if (null? #{clauses\ 1924}#)
- ((lambda (#{tmp\ 1926}#)
- ((lambda (#{tmp\ 1927}#)
- (if #{tmp\ 1927}#
- (apply (lambda (#{e1\ 1928}#
- #{e2\ 1929}#)
+ #{e\ 4467}#))
+ #{body\ 4471}#))
+ #{tmp\ 4470}#))
+ (letrec ((#{f\ 4472}#
+ (lambda (#{clause\ 4473}# #{clauses\ 4474}#)
+ (if (null? #{clauses\ 4474}#)
+ ((lambda (#{tmp\ 4476}#)
+ ((lambda (#{tmp\ 4477}#)
+ (if #{tmp\ 4477}#
+ (apply (lambda (#{e1\ 4478}#
+ #{e2\ 4479}#)
(cons '#(syntax-object
begin
((top)
@@ -13634,14 +13603,14 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 1928}#
- #{e2\ 1929}#)))
- #{tmp\ 1927}#)
- ((lambda (#{tmp\ 1931}#)
- (if #{tmp\ 1931}#
- (apply (lambda (#{k\ 1932}#
- #{e1\ 1933}#
- #{e2\ 1934}#)
+ (cons #{e1\ 4478}#
+ #{e2\ 4479}#)))
+ #{tmp\ 4477}#)
+ ((lambda (#{tmp\ 4481}#)
+ (if #{tmp\ 4481}#
+ (apply (lambda (#{k\ 4482}#
+ #{e1\ 4483}#
+ #{e2\ 4484}#)
(list '#(syntax-object
if
((top)
@@ -13842,7 +13811,7 @@
#("i")))
(hygiene
guile))
- #{k\ 1932}#))
+ #{k\ 4482}#))
(cons '#(syntax-object
begin
((top)
@@ -13893,24 +13862,24 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 1933}#
- #{e2\ 1934}#))))
- #{tmp\ 1931}#)
- ((lambda (#{_\ 1937}#)
+ (cons #{e1\ 4483}#
+ #{e2\ 4484}#))))
+ #{tmp\ 4481}#)
+ ((lambda (#{_\ 4487}#)
(syntax-violation
'case
"bad clause"
- #{x\ 1913}#
- #{clause\ 1923}#))
- #{tmp\ 1926}#)))
+ #{x\ 4463}#
+ #{clause\ 4473}#))
+ #{tmp\ 4476}#)))
($sc-dispatch
- #{tmp\ 1926}#
+ #{tmp\ 4476}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1926}#
+ #{tmp\ 4476}#
'(#(free-id
#(syntax-object
else
@@ -13936,15 +13905,15 @@
any
.
each-any))))
- #{clause\ 1923}#)
- ((lambda (#{tmp\ 1938}#)
- ((lambda (#{rest\ 1939}#)
- ((lambda (#{tmp\ 1940}#)
- ((lambda (#{tmp\ 1941}#)
- (if #{tmp\ 1941}#
- (apply (lambda (#{k\ 1942}#
- #{e1\ 1943}#
- #{e2\ 1944}#)
+ #{clause\ 4473}#)
+ ((lambda (#{tmp\ 4488}#)
+ ((lambda (#{rest\ 4489}#)
+ ((lambda (#{tmp\ 4490}#)
+ ((lambda (#{tmp\ 4491}#)
+ (if #{tmp\ 4491}#
+ (apply (lambda (#{k\ 4492}#
+ #{e1\ 4493}#
+ #{e2\ 4494}#)
(list '#(syntax-object
if
((top)
@@ -14161,7 +14130,7 @@
#("i")))
(hygiene
guile))
- #{k\ 1942}#))
+ #{k\ 4492}#))
(cons '#(syntax-object
begin
((top)
@@ -14216,47 +14185,47 @@
#("i")))
(hygiene
guile))
- (cons #{e1\ 1943}#
- #{e2\ 1944}#))
- #{rest\ 1939}#))
- #{tmp\ 1941}#)
- ((lambda (#{_\ 1947}#)
+ (cons #{e1\ 4493}#
+ #{e2\ 4494}#))
+ #{rest\ 4489}#))
+ #{tmp\ 4491}#)
+ ((lambda (#{_\ 4497}#)
(syntax-violation
'case
"bad clause"
- #{x\ 1913}#
- #{clause\ 1923}#))
- #{tmp\ 1940}#)))
+ #{x\ 4463}#
+ #{clause\ 4473}#))
+ #{tmp\ 4490}#)))
($sc-dispatch
- #{tmp\ 1940}#
+ #{tmp\ 4490}#
'(each-any
any
.
each-any))))
- #{clause\ 1923}#))
- #{tmp\ 1938}#))
- (#{f\ 1922}#
- (car #{clauses\ 1924}#)
- (cdr #{clauses\ 1924}#)))))))
- (#{f\ 1922}# #{m1\ 1918}# #{m2\ 1919}#))))
- #{tmp\ 1915}#)
+ #{clause\ 4473}#))
+ #{tmp\ 4488}#))
+ (#{f\ 4472}#
+ (car #{clauses\ 4474}#)
+ (cdr #{clauses\ 4474}#)))))))
+ (#{f\ 4472}# #{m1\ 4468}# #{m2\ 4469}#))))
+ #{tmp\ 4465}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1914}#)))
+ #{tmp\ 4464}#)))
($sc-dispatch
- #{tmp\ 1914}#
+ #{tmp\ 4464}#
'(any any any . each-any))))
- #{x\ 1913}#))))
+ #{x\ 4463}#))))
(define identifier-syntax
(make-syncase-macro
'macro
- (lambda (#{x\ 1948}#)
- ((lambda (#{tmp\ 1949}#)
- ((lambda (#{tmp\ 1950}#)
- (if #{tmp\ 1950}#
- (apply (lambda (#{_\ 1951}# #{e\ 1952}#)
+ (lambda (#{x\ 4498}#)
+ ((lambda (#{tmp\ 4499}#)
+ ((lambda (#{tmp\ 4500}#)
+ (if #{tmp\ 4500}#
+ (apply (lambda (#{_\ 4501}# #{e\ 4502}#)
(list '#(syntax-object
lambda
((top)
@@ -14345,8 +14314,8 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 1952}#))
- (list (cons #{_\ 1951}#
+ #{e\ 4502}#))
+ (list (cons #{_\ 4501}#
'(#(syntax-object
x
((top)
@@ -14386,7 +14355,7 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e\ 1952}#
+ (cons #{e\ 4502}#
'(#(syntax-object
x
((top)
@@ -14414,26 +14383,26 @@
#("i")))
(hygiene
guile)))))))))
- #{tmp\ 1950}#)
+ #{tmp\ 4500}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1949}#)))
- ($sc-dispatch #{tmp\ 1949}# (quote (any any)))))
- #{x\ 1948}#))))
+ #{tmp\ 4499}#)))
+ ($sc-dispatch #{tmp\ 4499}# (quote (any any)))))
+ #{x\ 4498}#))))
(define define*
(make-syncase-macro
'macro
- (lambda (#{x\ 1953}#)
- ((lambda (#{tmp\ 1954}#)
- ((lambda (#{tmp\ 1955}#)
- (if #{tmp\ 1955}#
- (apply (lambda (#{dummy\ 1956}#
- #{id\ 1957}#
- #{args\ 1958}#
- #{b0\ 1959}#
- #{b1\ 1960}#)
+ (lambda (#{x\ 4503}#)
+ ((lambda (#{tmp\ 4504}#)
+ ((lambda (#{tmp\ 4505}#)
+ (if #{tmp\ 4505}#
+ (apply (lambda (#{dummy\ 4506}#
+ #{id\ 4507}#
+ #{args\ 4508}#
+ #{b0\ 4509}#
+ #{b1\ 4510}#)
(list '#(syntax-object
define
((top)
@@ -14444,7 +14413,7 @@
#(ribcage () () ())
#(ribcage #(x) #(("m" top)) #("i")))
(hygiene guile))
- #{id\ 1957}#
+ #{id\ 4507}#
(cons '#(syntax-object
lambda*
((top)
@@ -14455,15 +14424,15 @@
#(ribcage () () ())
#(ribcage #(x) #(("m" top)) #("i")))
(hygiene guile))
- (cons #{args\ 1958}#
- (cons #{b0\ 1959}# #{b1\ 1960}#)))))
- #{tmp\ 1955}#)
+ (cons #{args\ 4508}#
+ (cons #{b0\ 4509}# #{b1\ 4510}#)))))
+ #{tmp\ 4505}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1954}#)))
+ #{tmp\ 4504}#)))
($sc-dispatch
- #{tmp\ 1954}#
+ #{tmp\ 4504}#
'(any (any . any) any . each-any))))
- #{x\ 1953}#))))
+ #{x\ 4503}#))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index ae75bc6ad..e9383eeaf 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -467,7 +467,6 @@
,@(if docstring (list docstring) '())
,exp)
src)))))
-
(define build-case-lambda
(lambda (src docstring body)
(case (fluid-ref *mode*)
@@ -584,7 +583,8 @@
(build-application src (build-lexical-reference 'fun src f-name f)
val-exps))))
(else (decorate-source
- `(let ,f ,(map list vars val-exps) ,body-exp)
+ `(letrec ((,f (lambda ,vars ,body-exp)))
+ (,f ,@val-exps))
src))))))
(define build-letrec