diff options
author | Andy Wingo <wingo@pobox.com> | 2009-08-21 00:37:39 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-01 21:00:23 +0100 |
commit | 81b30a35f706105767a0ac1391609147cb7c9383 (patch) | |
tree | a6370933ce70fcecd09a828eece32b406782cbd6 | |
parent | 8a30946f7fd717f3e8c52e99c8d24c4fb4e5f1af (diff) | |
download | guile-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.scm | 12695 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 4 |
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 |