(if #f #f)
(letrec*
- ((#{and-map*\ 36}#
- (lambda (#{f\ 208}# #{first\ 209}# . #{rest\ 210}#)
+ ((#{and-map*\ 2144}#
+ (lambda (#{f\ 2316}# #{first\ 2317}# . #{rest\ 2318}#)
(begin
- (let ((#{t\ 216}# (null? #{first\ 209}#)))
- (if #{t\ 216}#
- #{t\ 216}#
- (if (null? #{rest\ 210}#)
+ (let ((#{t\ 2324}# (null? #{first\ 2317}#)))
+ (if #{t\ 2324}#
+ #{t\ 2324}#
+ (if (null? #{rest\ 2318}#)
(letrec*
- ((#{andmap\ 220}#
- (lambda (#{first\ 221}#)
+ ((#{andmap\ 2328}#
+ (lambda (#{first\ 2329}#)
(begin
- (let ((#{x\ 224}# (car #{first\ 221}#))
- (#{first\ 225}# (cdr #{first\ 221}#)))
- (if (null? #{first\ 225}#)
- (#{f\ 208}# #{x\ 224}#)
- (if (#{f\ 208}# #{x\ 224}#)
- (#{andmap\ 220}# #{first\ 225}#)
+ (let ((#{x\ 2332}# (car #{first\ 2329}#))
+ (#{first\ 2333}# (cdr #{first\ 2329}#)))
+ (if (null? #{first\ 2333}#)
+ (#{f\ 2316}# #{x\ 2332}#)
+ (if (#{f\ 2316}# #{x\ 2332}#)
+ (#{andmap\ 2328}# #{first\ 2333}#)
#f)))))))
- (begin (#{andmap\ 220}# #{first\ 209}#)))
+ (begin (#{andmap\ 2328}# #{first\ 2317}#)))
(letrec*
- ((#{andmap\ 231}#
- (lambda (#{first\ 232}# #{rest\ 233}#)
+ ((#{andmap\ 2339}#
+ (lambda (#{first\ 2340}# #{rest\ 2341}#)
(begin
- (let ((#{x\ 238}# (car #{first\ 232}#))
- (#{xr\ 239}# (map car #{rest\ 233}#))
- (#{first\ 240}# (cdr #{first\ 232}#))
- (#{rest\ 241}# (map cdr #{rest\ 233}#)))
- (if (null? #{first\ 240}#)
- (@apply #{f\ 208}# (cons #{x\ 238}# #{xr\ 239}#))
+ (let ((#{x\ 2346}# (car #{first\ 2340}#))
+ (#{xr\ 2347}# (map car #{rest\ 2341}#))
+ (#{first\ 2348}# (cdr #{first\ 2340}#))
+ (#{rest\ 2349}# (map cdr #{rest\ 2341}#)))
+ (if (null? #{first\ 2348}#)
+ (@apply
+ #{f\ 2316}#
+ (cons #{x\ 2346}# #{xr\ 2347}#))
(if (@apply
- #{f\ 208}#
- (cons #{x\ 238}# #{xr\ 239}#))
- (#{andmap\ 231}# #{first\ 240}# #{rest\ 241}#)
+ #{f\ 2316}#
+ (cons #{x\ 2346}# #{xr\ 2347}#))
+ (#{andmap\ 2339}# #{first\ 2348}# #{rest\ 2349}#)
#f)))))))
(begin
- (#{andmap\ 231}# #{first\ 209}# #{rest\ 210}#))))))))))
+ (#{andmap\ 2339}# #{first\ 2317}# #{rest\ 2318}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 250}# (if #f #f))
- (#{fx+\ 289}# (if #f #f))
- (#{fx-\ 291}# (if #f #f))
- (#{fx=\ 293}# (if #f #f))
- (#{fx<\ 295}# (if #f #f))
- (#{set-syntax-object-expression!\ 360}#
+ (let ((#{make-primitive-ref\ 2358}# (if #f #f))
+ (#{fx+\ 2397}# (if #f #f))
+ (#{fx-\ 2399}# (if #f #f))
+ (#{fx=\ 2401}# (if #f #f))
+ (#{fx<\ 2403}# (if #f #f))
+ (#{set-syntax-object-expression!\ 2468}#
(if #f #f))
- (#{set-syntax-object-wrap!\ 362}# (if #f #f))
- (#{set-syntax-object-module!\ 364}# (if #f #f))
- (#{binding-type\ 371}# (if #f #f))
- (#{binding-value\ 373}# (if #f #f))
- (#{make-wrap\ 393}# (if #f #f))
- (#{wrap-marks\ 395}# (if #f #f))
- (#{wrap-subst\ 397}# (if #f #f))
- (#{ribcage?\ 411}# (if #f #f)))
+ (#{set-syntax-object-wrap!\ 2470}# (if #f #f))
+ (#{set-syntax-object-module!\ 2472}# (if #f #f))
+ (#{binding-type\ 2479}# (if #f #f))
+ (#{binding-value\ 2481}# (if #f #f))
+ (#{make-wrap\ 2501}# (if #f #f))
+ (#{wrap-marks\ 2503}# (if #f #f))
+ (#{wrap-subst\ 2505}# (if #f #f))
+ (#{ribcage?\ 2519}# (if #f #f)))
(letrec*
- ((#{make-void\ 246}#
- (lambda (#{src\ 718}#)
+ ((#{make-void\ 2354}#
+ (lambda (#{src\ 2826}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 718}#)))
- (#{make-const\ 248}#
- (lambda (#{src\ 720}# #{exp\ 721}#)
+ #{src\ 2826}#)))
+ (#{make-const\ 2356}#
+ (lambda (#{src\ 2828}# #{exp\ 2829}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 720}#
- #{exp\ 721}#)))
- (#{make-lexical-ref\ 252}#
- (lambda (#{src\ 728}# #{name\ 729}# #{gensym\ 730}#)
+ #{src\ 2828}#
+ #{exp\ 2829}#)))
+ (#{make-lexical-ref\ 2360}#
+ (lambda (#{src\ 2836}# #{name\ 2837}# #{gensym\ 2838}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 728}#
- #{name\ 729}#
- #{gensym\ 730}#)))
- (#{make-lexical-set\ 254}#
- (lambda (#{src\ 734}#
- #{name\ 735}#
- #{gensym\ 736}#
- #{exp\ 737}#)
+ #{src\ 2836}#
+ #{name\ 2837}#
+ #{gensym\ 2838}#)))
+ (#{make-lexical-set\ 2362}#
+ (lambda (#{src\ 2842}#
+ #{name\ 2843}#
+ #{gensym\ 2844}#
+ #{exp\ 2845}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 734}#
- #{name\ 735}#
- #{gensym\ 736}#
- #{exp\ 737}#)))
- (#{make-module-ref\ 256}#
- (lambda (#{src\ 742}#
- #{mod\ 743}#
- #{name\ 744}#
- #{public?\ 745}#)
+ #{src\ 2842}#
+ #{name\ 2843}#
+ #{gensym\ 2844}#
+ #{exp\ 2845}#)))
+ (#{make-module-ref\ 2364}#
+ (lambda (#{src\ 2850}#
+ #{mod\ 2851}#
+ #{name\ 2852}#
+ #{public?\ 2853}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 742}#
- #{mod\ 743}#
- #{name\ 744}#
- #{public?\ 745}#)))
- (#{make-module-set\ 258}#
- (lambda (#{src\ 750}#
- #{mod\ 751}#
- #{name\ 752}#
- #{public?\ 753}#
- #{exp\ 754}#)
+ #{src\ 2850}#
+ #{mod\ 2851}#
+ #{name\ 2852}#
+ #{public?\ 2853}#)))
+ (#{make-module-set\ 2366}#
+ (lambda (#{src\ 2858}#
+ #{mod\ 2859}#
+ #{name\ 2860}#
+ #{public?\ 2861}#
+ #{exp\ 2862}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 750}#
- #{mod\ 751}#
- #{name\ 752}#
- #{public?\ 753}#
- #{exp\ 754}#)))
- (#{make-toplevel-ref\ 260}#
- (lambda (#{src\ 760}# #{name\ 761}#)
+ #{src\ 2858}#
+ #{mod\ 2859}#
+ #{name\ 2860}#
+ #{public?\ 2861}#
+ #{exp\ 2862}#)))
+ (#{make-toplevel-ref\ 2368}#
+ (lambda (#{src\ 2868}# #{name\ 2869}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 760}#
- #{name\ 761}#)))
- (#{make-toplevel-set\ 262}#
- (lambda (#{src\ 764}# #{name\ 765}# #{exp\ 766}#)
+ #{src\ 2868}#
+ #{name\ 2869}#)))
+ (#{make-toplevel-set\ 2370}#
+ (lambda (#{src\ 2872}# #{name\ 2873}# #{exp\ 2874}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 764}#
- #{name\ 765}#
- #{exp\ 766}#)))
- (#{make-toplevel-define\ 264}#
- (lambda (#{src\ 770}# #{name\ 771}# #{exp\ 772}#)
+ #{src\ 2872}#
+ #{name\ 2873}#
+ #{exp\ 2874}#)))
+ (#{make-toplevel-define\ 2372}#
+ (lambda (#{src\ 2878}# #{name\ 2879}# #{exp\ 2880}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 770}#
- #{name\ 771}#
- #{exp\ 772}#)))
- (#{make-conditional\ 266}#
- (lambda (#{src\ 776}#
- #{test\ 777}#
- #{consequent\ 778}#
- #{alternate\ 779}#)
+ #{src\ 2878}#
+ #{name\ 2879}#
+ #{exp\ 2880}#)))
+ (#{make-conditional\ 2374}#
+ (lambda (#{src\ 2884}#
+ #{test\ 2885}#
+ #{consequent\ 2886}#
+ #{alternate\ 2887}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 776}#
- #{test\ 777}#
- #{consequent\ 778}#
- #{alternate\ 779}#)))
- (#{make-application\ 268}#
- (lambda (#{src\ 784}# #{proc\ 785}# #{args\ 786}#)
+ #{src\ 2884}#
+ #{test\ 2885}#
+ #{consequent\ 2886}#
+ #{alternate\ 2887}#)))
+ (#{make-application\ 2376}#
+ (lambda (#{src\ 2892}# #{proc\ 2893}# #{args\ 2894}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 784}#
- #{proc\ 785}#
- #{args\ 786}#)))
- (#{make-sequence\ 270}#
- (lambda (#{src\ 790}# #{exps\ 791}#)
+ #{src\ 2892}#
+ #{proc\ 2893}#
+ #{args\ 2894}#)))
+ (#{make-sequence\ 2378}#
+ (lambda (#{src\ 2898}# #{exps\ 2899}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 790}#
- #{exps\ 791}#)))
- (#{make-lambda\ 272}#
- (lambda (#{src\ 794}# #{meta\ 795}# #{body\ 796}#)
+ #{src\ 2898}#
+ #{exps\ 2899}#)))
+ (#{make-lambda\ 2380}#
+ (lambda (#{src\ 2902}# #{meta\ 2903}# #{body\ 2904}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 794}#
- #{meta\ 795}#
- #{body\ 796}#)))
- (#{make-lambda-case\ 274}#
- (lambda (#{src\ 800}#
- #{req\ 801}#
- #{opt\ 802}#
- #{rest\ 803}#
- #{kw\ 804}#
- #{inits\ 805}#
- #{gensyms\ 806}#
- #{body\ 807}#
- #{alternate\ 808}#)
+ #{src\ 2902}#
+ #{meta\ 2903}#
+ #{body\ 2904}#)))
+ (#{make-lambda-case\ 2382}#
+ (lambda (#{src\ 2908}#
+ #{req\ 2909}#
+ #{opt\ 2910}#
+ #{rest\ 2911}#
+ #{kw\ 2912}#
+ #{inits\ 2913}#
+ #{gensyms\ 2914}#
+ #{body\ 2915}#
+ #{alternate\ 2916}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 800}#
- #{req\ 801}#
- #{opt\ 802}#
- #{rest\ 803}#
- #{kw\ 804}#
- #{inits\ 805}#
- #{gensyms\ 806}#
- #{body\ 807}#
- #{alternate\ 808}#)))
- (#{make-let\ 276}#
- (lambda (#{src\ 818}#
- #{names\ 819}#
- #{gensyms\ 820}#
- #{vals\ 821}#
- #{body\ 822}#)
+ #{src\ 2908}#
+ #{req\ 2909}#
+ #{opt\ 2910}#
+ #{rest\ 2911}#
+ #{kw\ 2912}#
+ #{inits\ 2913}#
+ #{gensyms\ 2914}#
+ #{body\ 2915}#
+ #{alternate\ 2916}#)))
+ (#{make-let\ 2384}#
+ (lambda (#{src\ 2926}#
+ #{names\ 2927}#
+ #{gensyms\ 2928}#
+ #{vals\ 2929}#
+ #{body\ 2930}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 818}#
- #{names\ 819}#
- #{gensyms\ 820}#
- #{vals\ 821}#
- #{body\ 822}#)))
- (#{make-letrec\ 278}#
- (lambda (#{src\ 828}#
- #{in-order?\ 829}#
- #{names\ 830}#
- #{gensyms\ 831}#
- #{vals\ 832}#
- #{body\ 833}#)
+ #{src\ 2926}#
+ #{names\ 2927}#
+ #{gensyms\ 2928}#
+ #{vals\ 2929}#
+ #{body\ 2930}#)))
+ (#{make-letrec\ 2386}#
+ (lambda (#{src\ 2936}#
+ #{in-order?\ 2937}#
+ #{names\ 2938}#
+ #{gensyms\ 2939}#
+ #{vals\ 2940}#
+ #{body\ 2941}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 828}#
- #{in-order?\ 829}#
- #{names\ 830}#
- #{gensyms\ 831}#
- #{vals\ 832}#
- #{body\ 833}#)))
- (#{make-dynlet\ 280}#
- (lambda (#{src\ 840}#
- #{fluids\ 841}#
- #{vals\ 842}#
- #{body\ 843}#)
+ #{src\ 2936}#
+ #{in-order?\ 2937}#
+ #{names\ 2938}#
+ #{gensyms\ 2939}#
+ #{vals\ 2940}#
+ #{body\ 2941}#)))
+ (#{make-dynlet\ 2388}#
+ (lambda (#{src\ 2948}#
+ #{fluids\ 2949}#
+ #{vals\ 2950}#
+ #{body\ 2951}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 840}#
- #{fluids\ 841}#
- #{vals\ 842}#
- #{body\ 843}#)))
- (#{lambda?\ 283}#
- (lambda (#{x\ 848}#)
- (if (struct? #{x\ 848}#)
- (eq? (struct-vtable #{x\ 848}#)
+ #{src\ 2948}#
+ #{fluids\ 2949}#
+ #{vals\ 2950}#
+ #{body\ 2951}#)))
+ (#{lambda?\ 2391}#
+ (lambda (#{x\ 2956}#)
+ (if (struct? #{x\ 2956}#)
+ (eq? (struct-vtable #{x\ 2956}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 285}#
- (lambda (#{x\ 852}#) (struct-ref #{x\ 852}# 1)))
- (#{set-lambda-meta!\ 287}#
- (lambda (#{x\ 854}# #{v\ 855}#)
- (struct-set! #{x\ 854}# 1 #{v\ 855}#)))
- (#{top-level-eval-hook\ 297}#
- (lambda (#{x\ 858}# #{mod\ 859}#)
- (primitive-eval #{x\ 858}#)))
- (#{local-eval-hook\ 299}#
- (lambda (#{x\ 862}# #{mod\ 863}#)
- (primitive-eval #{x\ 862}#)))
- (#{put-global-definition-hook\ 302}#
- (lambda (#{symbol\ 866}# #{type\ 867}# #{val\ 868}#)
+ (#{lambda-meta\ 2393}#
+ (lambda (#{x\ 2960}#) (struct-ref #{x\ 2960}# 1)))
+ (#{set-lambda-meta!\ 2395}#
+ (lambda (#{x\ 2962}# #{v\ 2963}#)
+ (struct-set! #{x\ 2962}# 1 #{v\ 2963}#)))
+ (#{top-level-eval-hook\ 2405}#
+ (lambda (#{x\ 2966}# #{mod\ 2967}#)
+ (primitive-eval #{x\ 2966}#)))
+ (#{local-eval-hook\ 2407}#
+ (lambda (#{x\ 2970}# #{mod\ 2971}#)
+ (primitive-eval #{x\ 2970}#)))
+ (#{put-global-definition-hook\ 2410}#
+ (lambda (#{symbol\ 2974}# #{type\ 2975}# #{val\ 2976}#)
(module-define!
(current-module)
- #{symbol\ 866}#
+ #{symbol\ 2974}#
(make-syntax-transformer
- #{symbol\ 866}#
- #{type\ 867}#
- #{val\ 868}#))))
- (#{get-global-definition-hook\ 304}#
- (lambda (#{symbol\ 872}# #{module\ 873}#)
+ #{symbol\ 2974}#
+ #{type\ 2975}#
+ #{val\ 2976}#))))
+ (#{get-global-definition-hook\ 2412}#
+ (lambda (#{symbol\ 2980}# #{module\ 2981}#)
(begin
- (if (if (not #{module\ 873}#) (current-module) #f)
+ (if (if (not #{module\ 2981}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 872}#))
+ #{symbol\ 2980}#))
(begin
- (let ((#{v\ 879}# (module-variable
- (if #{module\ 873}#
- (resolve-module (cdr #{module\ 873}#))
- (current-module))
- #{symbol\ 872}#)))
- (if #{v\ 879}#
- (if (variable-bound? #{v\ 879}#)
+ (let ((#{v\ 2987}#
+ (module-variable
+ (if #{module\ 2981}#
+ (resolve-module (cdr #{module\ 2981}#))
+ (current-module))
+ #{symbol\ 2980}#)))
+ (if #{v\ 2987}#
+ (if (variable-bound? #{v\ 2987}#)
(begin
- (let ((#{val\ 884}# (variable-ref #{v\ 879}#)))
- (if (macro? #{val\ 884}#)
- (if (macro-type #{val\ 884}#)
- (cons (macro-type #{val\ 884}#)
- (macro-binding #{val\ 884}#))
+ (let ((#{val\ 2992}# (variable-ref #{v\ 2987}#)))
+ (if (macro? #{val\ 2992}#)
+ (if (macro-type #{val\ 2992}#)
+ (cons (macro-type #{val\ 2992}#)
+ (macro-binding #{val\ 2992}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 306}#
- (lambda (#{e\ 888}# #{s\ 889}#)
+ (#{decorate-source\ 2414}#
+ (lambda (#{e\ 2996}# #{s\ 2997}#)
+ (begin
+ (if (if (pair? #{e\ 2996}#) #{s\ 2997}# #f)
+ (set-source-properties! #{e\ 2996}# #{s\ 2997}#))
+ #{e\ 2996}#)))
+ (#{maybe-name-value!\ 2416}#
+ (lambda (#{name\ 3002}# #{val\ 3003}#)
+ (if (#{lambda?\ 2391}# #{val\ 3003}#)
+ (begin
+ (let ((#{meta\ 3007}#
+ (#{lambda-meta\ 2393}# #{val\ 3003}#)))
+ (if (not (assq (quote name) #{meta\ 3007}#))
+ (#{set-lambda-meta!\ 2395}#
+ #{val\ 3003}#
+ (cons (cons (quote name) #{name\ 3002}#)
+ #{meta\ 3007}#))))))))
+ (#{build-void\ 2418}#
+ (lambda (#{source\ 3008}#)
+ (#{make-void\ 2354}# #{source\ 3008}#)))
+ (#{build-application\ 2420}#
+ (lambda (#{source\ 3010}#
+ #{fun-exp\ 3011}#
+ #{arg-exps\ 3012}#)
+ (#{make-application\ 2376}#
+ #{source\ 3010}#
+ #{fun-exp\ 3011}#
+ #{arg-exps\ 3012}#)))
+ (#{build-conditional\ 2422}#
+ (lambda (#{source\ 3016}#
+ #{test-exp\ 3017}#
+ #{then-exp\ 3018}#
+ #{else-exp\ 3019}#)
+ (#{make-conditional\ 2374}#
+ #{source\ 3016}#
+ #{test-exp\ 3017}#
+ #{then-exp\ 3018}#
+ #{else-exp\ 3019}#)))
+ (#{build-dynlet\ 2424}#
+ (lambda (#{source\ 3024}#
+ #{fluids\ 3025}#
+ #{vals\ 3026}#
+ #{body\ 3027}#)
+ (#{make-dynlet\ 2388}#
+ #{source\ 3024}#
+ #{fluids\ 3025}#
+ #{vals\ 3026}#
+ #{body\ 3027}#)))
+ (#{build-lexical-reference\ 2426}#
+ (lambda (#{type\ 3032}#
+ #{source\ 3033}#
+ #{name\ 3034}#
+ #{var\ 3035}#)
+ (#{make-lexical-ref\ 2360}#
+ #{source\ 3033}#
+ #{name\ 3034}#
+ #{var\ 3035}#)))
+ (#{build-lexical-assignment\ 2428}#
+ (lambda (#{source\ 3040}#
+ #{name\ 3041}#
+ #{var\ 3042}#
+ #{exp\ 3043}#)
(begin
- (if (if (pair? #{e\ 888}#) #{s\ 889}# #f)
- (set-source-properties! #{e\ 888}# #{s\ 889}#))
- #{e\ 888}#)))
- (#{build-void\ 308}#
- (lambda (#{source\ 894}#)
- (#{make-void\ 246}# #{source\ 894}#)))
- (#{build-application\ 310}#
- (lambda (#{source\ 896}#
- #{fun-exp\ 897}#
- #{arg-exps\ 898}#)
- (#{make-application\ 268}#
- #{source\ 896}#
- #{fun-exp\ 897}#
- #{arg-exps\ 898}#)))
- (#{build-conditional\ 312}#
- (lambda (#{source\ 902}#
- #{test-exp\ 903}#
- #{then-exp\ 904}#
- #{else-exp\ 905}#)
- (#{make-conditional\ 266}#
- #{source\ 902}#
- #{test-exp\ 903}#
- #{then-exp\ 904}#
- #{else-exp\ 905}#)))
- (#{build-dynlet\ 314}#
- (lambda (#{source\ 910}#
- #{fluids\ 911}#
- #{vals\ 912}#
- #{body\ 913}#)
- (#{make-dynlet\ 280}#
- #{source\ 910}#
- #{fluids\ 911}#
- #{vals\ 912}#
- #{body\ 913}#)))
- (#{build-lexical-reference\ 316}#
- (lambda (#{type\ 918}#
- #{source\ 919}#
- #{name\ 920}#
- #{var\ 921}#)
- (#{make-lexical-ref\ 252}#
- #{source\ 919}#
- #{name\ 920}#
- #{var\ 921}#)))
- (#{build-lexical-assignment\ 318}#
- (lambda (#{source\ 926}#
- #{name\ 927}#
- #{var\ 928}#
- #{exp\ 929}#)
- (#{make-lexical-set\ 254}#
- #{source\ 926}#
- #{name\ 927}#
- #{var\ 928}#
- #{exp\ 929}#)))
- (#{analyze-variable\ 320}#
- (lambda (#{mod\ 934}#
- #{var\ 935}#
- #{modref-cont\ 936}#
- #{bare-cont\ 937}#)
- (if (not #{mod\ 934}#)
- (#{bare-cont\ 937}# #{var\ 935}#)
+ (#{maybe-name-value!\ 2416}#
+ #{name\ 3041}#
+ #{exp\ 3043}#)
+ (#{make-lexical-set\ 2362}#
+ #{source\ 3040}#
+ #{name\ 3041}#
+ #{var\ 3042}#
+ #{exp\ 3043}#))))
+ (#{analyze-variable\ 2430}#
+ (lambda (#{mod\ 3048}#
+ #{var\ 3049}#
+ #{modref-cont\ 3050}#
+ #{bare-cont\ 3051}#)
+ (if (not #{mod\ 3048}#)
+ (#{bare-cont\ 3051}# #{var\ 3049}#)
(begin
- (let ((#{kind\ 944}# (car #{mod\ 934}#))
- (#{mod\ 945}# (cdr #{mod\ 934}#)))
- (if (eqv? #{kind\ 944}# (quote public))
- (#{modref-cont\ 936}#
- #{mod\ 945}#
- #{var\ 935}#
+ (let ((#{kind\ 3058}# (car #{mod\ 3048}#))
+ (#{mod\ 3059}# (cdr #{mod\ 3048}#)))
+ (if (eqv? #{kind\ 3058}# (quote public))
+ (#{modref-cont\ 3050}#
+ #{mod\ 3059}#
+ #{var\ 3049}#
#t)
- (if (eqv? #{kind\ 944}# (quote private))
+ (if (eqv? #{kind\ 3058}# (quote private))
(if (not (equal?
- #{mod\ 945}#
+ #{mod\ 3059}#
(module-name (current-module))))
- (#{modref-cont\ 936}#
- #{mod\ 945}#
- #{var\ 935}#
+ (#{modref-cont\ 3050}#
+ #{mod\ 3059}#
+ #{var\ 3049}#
#f)
- (#{bare-cont\ 937}# #{var\ 935}#))
- (if (eqv? #{kind\ 944}# (quote bare))
- (#{bare-cont\ 937}# #{var\ 935}#)
- (if (eqv? #{kind\ 944}# (quote hygiene))
+ (#{bare-cont\ 3051}# #{var\ 3049}#))
+ (if (eqv? #{kind\ 3058}# (quote bare))
+ (#{bare-cont\ 3051}# #{var\ 3049}#)
+ (if (eqv? #{kind\ 3058}# (quote hygiene))
(if (if (not (equal?
- #{mod\ 945}#
+ #{mod\ 3059}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 945}#)
- #{var\ 935}#)
+ (resolve-module #{mod\ 3059}#)
+ #{var\ 3049}#)
#f)
- (#{modref-cont\ 936}#
- #{mod\ 945}#
- #{var\ 935}#
+ (#{modref-cont\ 3050}#
+ #{mod\ 3059}#
+ #{var\ 3049}#
#f)
- (#{bare-cont\ 937}# #{var\ 935}#))
+ (#{bare-cont\ 3051}# #{var\ 3049}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 935}#
- #{mod\ 945}#))))))))))
- (#{build-global-reference\ 322}#
- (lambda (#{source\ 953}# #{var\ 954}# #{mod\ 955}#)
- (#{analyze-variable\ 320}#
- #{mod\ 955}#
- #{var\ 954}#
- (lambda (#{mod\ 959}# #{var\ 960}# #{public?\ 961}#)
- (#{make-module-ref\ 256}#
- #{source\ 953}#
- #{mod\ 959}#
- #{var\ 960}#
- #{public?\ 961}#))
- (lambda (#{var\ 965}#)
- (#{make-toplevel-ref\ 260}#
- #{source\ 953}#
- #{var\ 965}#)))))
- (#{build-global-assignment\ 324}#
- (lambda (#{source\ 967}#
- #{var\ 968}#
- #{exp\ 969}#
- #{mod\ 970}#)
- (#{analyze-variable\ 320}#
- #{mod\ 970}#
- #{var\ 968}#
- (lambda (#{mod\ 975}# #{var\ 976}# #{public?\ 977}#)
- (#{make-module-set\ 258}#
- #{source\ 967}#
- #{mod\ 975}#
- #{var\ 976}#
- #{public?\ 977}#
- #{exp\ 969}#))
- (lambda (#{var\ 981}#)
- (#{make-toplevel-set\ 262}#
- #{source\ 967}#
- #{var\ 981}#
- #{exp\ 969}#)))))
- (#{maybe-name-value!\ 326}#
- (lambda (#{name\ 983}# #{val\ 984}#)
- (if (#{lambda?\ 283}# #{val\ 984}#)
- (begin
- (let ((#{meta\ 988}#
- (#{lambda-meta\ 285}# #{val\ 984}#)))
- (if (not (assq (quote name) #{meta\ 988}#))
- (#{set-lambda-meta!\ 287}#
- #{val\ 984}#
- (cons (cons (quote name) #{name\ 983}#)
- #{meta\ 988}#))))))))
- (#{build-global-definition\ 328}#
- (lambda (#{source\ 989}# #{var\ 990}# #{exp\ 991}#)
+ #{var\ 3049}#
+ #{mod\ 3059}#))))))))))
+ (#{build-global-reference\ 2432}#
+ (lambda (#{source\ 3067}# #{var\ 3068}# #{mod\ 3069}#)
+ (#{analyze-variable\ 2430}#
+ #{mod\ 3069}#
+ #{var\ 3068}#
+ (lambda (#{mod\ 3073}# #{var\ 3074}# #{public?\ 3075}#)
+ (#{make-module-ref\ 2364}#
+ #{source\ 3067}#
+ #{mod\ 3073}#
+ #{var\ 3074}#
+ #{public?\ 3075}#))
+ (lambda (#{var\ 3079}#)
+ (#{make-toplevel-ref\ 2368}#
+ #{source\ 3067}#
+ #{var\ 3079}#)))))
+ (#{build-global-assignment\ 2434}#
+ (lambda (#{source\ 3081}#
+ #{var\ 3082}#
+ #{exp\ 3083}#
+ #{mod\ 3084}#)
+ (begin
+ (#{maybe-name-value!\ 2416}#
+ #{var\ 3082}#
+ #{exp\ 3083}#)
+ (#{analyze-variable\ 2430}#
+ #{mod\ 3084}#
+ #{var\ 3082}#
+ (lambda (#{mod\ 3089}# #{var\ 3090}# #{public?\ 3091}#)
+ (#{make-module-set\ 2366}#
+ #{source\ 3081}#
+ #{mod\ 3089}#
+ #{var\ 3090}#
+ #{public?\ 3091}#
+ #{exp\ 3083}#))
+ (lambda (#{var\ 3095}#)
+ (#{make-toplevel-set\ 2370}#
+ #{source\ 3081}#
+ #{var\ 3095}#
+ #{exp\ 3083}#))))))
+ (#{build-global-definition\ 2436}#
+ (lambda (#{source\ 3097}# #{var\ 3098}# #{exp\ 3099}#)
(begin
- (#{maybe-name-value!\ 326}#
- #{var\ 990}#
- #{exp\ 991}#)
- (#{make-toplevel-define\ 264}#
- #{source\ 989}#
- #{var\ 990}#
- #{exp\ 991}#))))
- (#{build-simple-lambda\ 330}#
- (lambda (#{src\ 995}#
- #{req\ 996}#
- #{rest\ 997}#
- #{vars\ 998}#
- #{meta\ 999}#
- #{exp\ 1000}#)
- (#{make-lambda\ 272}#
- #{src\ 995}#
- #{meta\ 999}#
- (#{make-lambda-case\ 274}#
- #{src\ 995}#
- #{req\ 996}#
+ (#{maybe-name-value!\ 2416}#
+ #{var\ 3098}#
+ #{exp\ 3099}#)
+ (#{make-toplevel-define\ 2372}#
+ #{source\ 3097}#
+ #{var\ 3098}#
+ #{exp\ 3099}#))))
+ (#{build-simple-lambda\ 2438}#
+ (lambda (#{src\ 3103}#
+ #{req\ 3104}#
+ #{rest\ 3105}#
+ #{vars\ 3106}#
+ #{meta\ 3107}#
+ #{exp\ 3108}#)
+ (#{make-lambda\ 2380}#
+ #{src\ 3103}#
+ #{meta\ 3107}#
+ (#{make-lambda-case\ 2382}#
+ #{src\ 3103}#
+ #{req\ 3104}#
#f
- #{rest\ 997}#
+ #{rest\ 3105}#
#f
'()
- #{vars\ 998}#
- #{exp\ 1000}#
+ #{vars\ 3106}#
+ #{exp\ 3108}#
#f))))
- (#{build-case-lambda\ 332}#
- (lambda (#{src\ 1007}# #{meta\ 1008}# #{body\ 1009}#)
- (#{make-lambda\ 272}#
- #{src\ 1007}#
- #{meta\ 1008}#
- #{body\ 1009}#)))
- (#{build-lambda-case\ 334}#
- (lambda (#{src\ 1013}#
- #{req\ 1014}#
- #{opt\ 1015}#
- #{rest\ 1016}#
- #{kw\ 1017}#
- #{inits\ 1018}#
- #{vars\ 1019}#
- #{body\ 1020}#
- #{else-case\ 1021}#)
- (#{make-lambda-case\ 274}#
- #{src\ 1013}#
- #{req\ 1014}#
- #{opt\ 1015}#
- #{rest\ 1016}#
- #{kw\ 1017}#
- #{inits\ 1018}#
- #{vars\ 1019}#
- #{body\ 1020}#
- #{else-case\ 1021}#)))
- (#{build-primref\ 336}#
- (lambda (#{src\ 1031}# #{name\ 1032}#)
+ (#{build-case-lambda\ 2440}#
+ (lambda (#{src\ 3115}# #{meta\ 3116}# #{body\ 3117}#)
+ (#{make-lambda\ 2380}#
+ #{src\ 3115}#
+ #{meta\ 3116}#
+ #{body\ 3117}#)))
+ (#{build-lambda-case\ 2442}#
+ (lambda (#{src\ 3121}#
+ #{req\ 3122}#
+ #{opt\ 3123}#
+ #{rest\ 3124}#
+ #{kw\ 3125}#
+ #{inits\ 3126}#
+ #{vars\ 3127}#
+ #{body\ 3128}#
+ #{else-case\ 3129}#)
+ (#{make-lambda-case\ 2382}#
+ #{src\ 3121}#
+ #{req\ 3122}#
+ #{opt\ 3123}#
+ #{rest\ 3124}#
+ #{kw\ 3125}#
+ #{inits\ 3126}#
+ #{vars\ 3127}#
+ #{body\ 3128}#
+ #{else-case\ 3129}#)))
+ (#{build-primref\ 2444}#
+ (lambda (#{src\ 3139}# #{name\ 3140}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 260}#
- #{src\ 1031}#
- #{name\ 1032}#)
- (#{make-module-ref\ 256}#
- #{src\ 1031}#
+ (#{make-toplevel-ref\ 2368}#
+ #{src\ 3139}#
+ #{name\ 3140}#)
+ (#{make-module-ref\ 2364}#
+ #{src\ 3139}#
'(guile)
- #{name\ 1032}#
+ #{name\ 3140}#
#f))))
- (#{build-data\ 338}#
- (lambda (#{src\ 1035}# #{exp\ 1036}#)
- (#{make-const\ 248}# #{src\ 1035}# #{exp\ 1036}#)))
- (#{build-sequence\ 340}#
- (lambda (#{src\ 1039}# #{exps\ 1040}#)
- (if (null? (cdr #{exps\ 1040}#))
- (car #{exps\ 1040}#)
- (#{make-sequence\ 270}#
- #{src\ 1039}#
- #{exps\ 1040}#))))
- (#{build-let\ 342}#
- (lambda (#{src\ 1043}#
- #{ids\ 1044}#
- #{vars\ 1045}#
- #{val-exps\ 1046}#
- #{body-exp\ 1047}#)
+ (#{build-data\ 2446}#
+ (lambda (#{src\ 3143}# #{exp\ 3144}#)
+ (#{make-const\ 2356}#
+ #{src\ 3143}#
+ #{exp\ 3144}#)))
+ (#{build-sequence\ 2448}#
+ (lambda (#{src\ 3147}# #{exps\ 3148}#)
+ (if (null? (cdr #{exps\ 3148}#))
+ (car #{exps\ 3148}#)
+ (#{make-sequence\ 2378}#
+ #{src\ 3147}#
+ #{exps\ 3148}#))))
+ (#{build-let\ 2450}#
+ (lambda (#{src\ 3151}#
+ #{ids\ 3152}#
+ #{vars\ 3153}#
+ #{val-exps\ 3154}#
+ #{body-exp\ 3155}#)
(begin
(for-each
- #{maybe-name-value!\ 326}#
- #{ids\ 1044}#
- #{val-exps\ 1046}#)
- (if (null? #{vars\ 1045}#)
- #{body-exp\ 1047}#
- (#{make-let\ 276}#
- #{src\ 1043}#
- #{ids\ 1044}#
- #{vars\ 1045}#
- #{val-exps\ 1046}#
- #{body-exp\ 1047}#)))))
- (#{build-named-let\ 344}#
- (lambda (#{src\ 1053}#
- #{ids\ 1054}#
- #{vars\ 1055}#
- #{val-exps\ 1056}#
- #{body-exp\ 1057}#)
+ #{maybe-name-value!\ 2416}#
+ #{ids\ 3152}#
+ #{val-exps\ 3154}#)
+ (if (null? #{vars\ 3153}#)
+ #{body-exp\ 3155}#
+ (#{make-let\ 2384}#
+ #{src\ 3151}#
+ #{ids\ 3152}#
+ #{vars\ 3153}#
+ #{val-exps\ 3154}#
+ #{body-exp\ 3155}#)))))
+ (#{build-named-let\ 2452}#
+ (lambda (#{src\ 3161}#
+ #{ids\ 3162}#
+ #{vars\ 3163}#
+ #{val-exps\ 3164}#
+ #{body-exp\ 3165}#)
(begin
- (let ((#{f\ 1067}# (car #{vars\ 1055}#))
- (#{f-name\ 1068}# (car #{ids\ 1054}#))
- (#{vars\ 1069}# (cdr #{vars\ 1055}#))
- (#{ids\ 1070}# (cdr #{ids\ 1054}#)))
+ (let ((#{f\ 3175}# (car #{vars\ 3163}#))
+ (#{f-name\ 3176}# (car #{ids\ 3162}#))
+ (#{vars\ 3177}# (cdr #{vars\ 3163}#))
+ (#{ids\ 3178}# (cdr #{ids\ 3162}#)))
(begin
- (let ((#{proc\ 1072}#
- (#{build-simple-lambda\ 330}#
- #{src\ 1053}#
- #{ids\ 1070}#
+ (let ((#{proc\ 3180}#
+ (#{build-simple-lambda\ 2438}#
+ #{src\ 3161}#
+ #{ids\ 3178}#
#f
- #{vars\ 1069}#
+ #{vars\ 3177}#
'()
- #{body-exp\ 1057}#)))
+ #{body-exp\ 3165}#)))
(begin
- (#{maybe-name-value!\ 326}#
- #{f-name\ 1068}#
- #{proc\ 1072}#)
+ (#{maybe-name-value!\ 2416}#
+ #{f-name\ 3176}#
+ #{proc\ 3180}#)
(for-each
- #{maybe-name-value!\ 326}#
- #{ids\ 1070}#
- #{val-exps\ 1056}#)
- (#{make-letrec\ 278}#
- #{src\ 1053}#
+ #{maybe-name-value!\ 2416}#
+ #{ids\ 3178}#
+ #{val-exps\ 3164}#)
+ (#{make-letrec\ 2386}#
+ #{src\ 3161}#
#f
- (list #{f-name\ 1068}#)
- (list #{f\ 1067}#)
- (list #{proc\ 1072}#)
- (#{build-application\ 310}#
- #{src\ 1053}#
- (#{build-lexical-reference\ 316}#
+ (list #{f-name\ 3176}#)
+ (list #{f\ 3175}#)
+ (list #{proc\ 3180}#)
+ (#{build-application\ 2420}#
+ #{src\ 3161}#
+ (#{build-lexical-reference\ 2426}#
'fun
- #{src\ 1053}#
- #{f-name\ 1068}#
- #{f\ 1067}#)
- #{val-exps\ 1056}#)))))))))
- (#{build-letrec\ 346}#
- (lambda (#{src\ 1073}#
- #{in-order?\ 1074}#
- #{ids\ 1075}#
- #{vars\ 1076}#
- #{val-exps\ 1077}#
- #{body-exp\ 1078}#)
- (if (null? #{vars\ 1076}#)
- #{body-exp\ 1078}#
+ #{src\ 3161}#
+ #{f-name\ 3176}#
+ #{f\ 3175}#)
+ #{val-exps\ 3164}#)))))))))
+ (#{build-letrec\ 2454}#
+ (lambda (#{src\ 3181}#
+ #{in-order?\ 3182}#
+ #{ids\ 3183}#
+ #{vars\ 3184}#
+ #{val-exps\ 3185}#
+ #{body-exp\ 3186}#)
+ (if (null? #{vars\ 3184}#)
+ #{body-exp\ 3186}#
(begin
(for-each
- #{maybe-name-value!\ 326}#
- #{ids\ 1075}#
- #{val-exps\ 1077}#)
- (#{make-letrec\ 278}#
- #{src\ 1073}#
- #{in-order?\ 1074}#
- #{ids\ 1075}#
- #{vars\ 1076}#
- #{val-exps\ 1077}#
- #{body-exp\ 1078}#)))))
- (#{make-syntax-object\ 350}#
- (lambda (#{expression\ 1085}#
- #{wrap\ 1086}#
- #{module\ 1087}#)
+ #{maybe-name-value!\ 2416}#
+ #{ids\ 3183}#
+ #{val-exps\ 3185}#)
+ (#{make-letrec\ 2386}#
+ #{src\ 3181}#
+ #{in-order?\ 3182}#
+ #{ids\ 3183}#
+ #{vars\ 3184}#
+ #{val-exps\ 3185}#
+ #{body-exp\ 3186}#)))))
+ (#{make-syntax-object\ 2458}#
+ (lambda (#{expression\ 3193}#
+ #{wrap\ 3194}#
+ #{module\ 3195}#)
(vector
'syntax-object
- #{expression\ 1085}#
- #{wrap\ 1086}#
- #{module\ 1087}#)))
- (#{syntax-object?\ 352}#
- (lambda (#{x\ 1091}#)
- (if (vector? #{x\ 1091}#)
- (if (= (vector-length #{x\ 1091}#) 4)
- (eq? (vector-ref #{x\ 1091}# 0)
+ #{expression\ 3193}#
+ #{wrap\ 3194}#
+ #{module\ 3195}#)))
+ (#{syntax-object?\ 2460}#
+ (lambda (#{x\ 3199}#)
+ (if (vector? #{x\ 3199}#)
+ (if (= (vector-length #{x\ 3199}#) 4)
+ (eq? (vector-ref #{x\ 3199}# 0)
'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 354}#
- (lambda (#{x\ 1096}#) (vector-ref #{x\ 1096}# 1)))
- (#{syntax-object-wrap\ 356}#
- (lambda (#{x\ 1098}#) (vector-ref #{x\ 1098}# 2)))
- (#{syntax-object-module\ 358}#
- (lambda (#{x\ 1100}#) (vector-ref #{x\ 1100}# 3)))
- (#{source-annotation\ 367}#
- (lambda (#{x\ 1114}#)
- (if (#{syntax-object?\ 352}# #{x\ 1114}#)
- (#{source-annotation\ 367}#
- (#{syntax-object-expression\ 354}# #{x\ 1114}#))
- (if (pair? #{x\ 1114}#)
+ (#{syntax-object-expression\ 2462}#
+ (lambda (#{x\ 3204}#) (vector-ref #{x\ 3204}# 1)))
+ (#{syntax-object-wrap\ 2464}#
+ (lambda (#{x\ 3206}#) (vector-ref #{x\ 3206}# 2)))
+ (#{syntax-object-module\ 2466}#
+ (lambda (#{x\ 3208}#) (vector-ref #{x\ 3208}# 3)))
+ (#{source-annotation\ 2475}#
+ (lambda (#{x\ 3222}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3222}#)
+ (#{source-annotation\ 2475}#
+ (#{syntax-object-expression\ 2462}# #{x\ 3222}#))
+ (if (pair? #{x\ 3222}#)
(begin
- (let ((#{props\ 1121}# (source-properties #{x\ 1114}#)))
- (if (pair? #{props\ 1121}#) #{props\ 1121}# #f)))
+ (let ((#{props\ 3229}# (source-properties #{x\ 3222}#)))
+ (if (pair? #{props\ 3229}#) #{props\ 3229}# #f)))
#f))))
- (#{extend-env\ 376}#
- (lambda (#{labels\ 1123}# #{bindings\ 1124}# #{r\ 1125}#)
- (if (null? #{labels\ 1123}#)
- #{r\ 1125}#
- (#{extend-env\ 376}#
- (cdr #{labels\ 1123}#)
- (cdr #{bindings\ 1124}#)
- (cons (cons (car #{labels\ 1123}#)
- (car #{bindings\ 1124}#))
- #{r\ 1125}#)))))
- (#{extend-var-env\ 378}#
- (lambda (#{labels\ 1129}# #{vars\ 1130}# #{r\ 1131}#)
- (if (null? #{labels\ 1129}#)
- #{r\ 1131}#
- (#{extend-var-env\ 378}#
- (cdr #{labels\ 1129}#)
- (cdr #{vars\ 1130}#)
- (cons (cons (car #{labels\ 1129}#)
- (cons (quote lexical) (car #{vars\ 1130}#)))
- #{r\ 1131}#)))))
- (#{macros-only-env\ 380}#
- (lambda (#{r\ 1136}#)
- (if (null? #{r\ 1136}#)
+ (#{extend-env\ 2484}#
+ (lambda (#{labels\ 3231}# #{bindings\ 3232}# #{r\ 3233}#)
+ (if (null? #{labels\ 3231}#)
+ #{r\ 3233}#
+ (#{extend-env\ 2484}#
+ (cdr #{labels\ 3231}#)
+ (cdr #{bindings\ 3232}#)
+ (cons (cons (car #{labels\ 3231}#)
+ (car #{bindings\ 3232}#))
+ #{r\ 3233}#)))))
+ (#{extend-var-env\ 2486}#
+ (lambda (#{labels\ 3237}# #{vars\ 3238}# #{r\ 3239}#)
+ (if (null? #{labels\ 3237}#)
+ #{r\ 3239}#
+ (#{extend-var-env\ 2486}#
+ (cdr #{labels\ 3237}#)
+ (cdr #{vars\ 3238}#)
+ (cons (cons (car #{labels\ 3237}#)
+ (cons (quote lexical) (car #{vars\ 3238}#)))
+ #{r\ 3239}#)))))
+ (#{macros-only-env\ 2488}#
+ (lambda (#{r\ 3244}#)
+ (if (null? #{r\ 3244}#)
'()
(begin
- (let ((#{a\ 1139}# (car #{r\ 1136}#)))
- (if (eq? (car (cdr #{a\ 1139}#)) (quote macro))
- (cons #{a\ 1139}#
- (#{macros-only-env\ 380}# (cdr #{r\ 1136}#)))
- (#{macros-only-env\ 380}# (cdr #{r\ 1136}#))))))))
- (#{lookup\ 382}#
- (lambda (#{x\ 1140}# #{r\ 1141}# #{mod\ 1142}#)
+ (let ((#{a\ 3247}# (car #{r\ 3244}#)))
+ (if (eq? (car (cdr #{a\ 3247}#)) (quote macro))
+ (cons #{a\ 3247}#
+ (#{macros-only-env\ 2488}# (cdr #{r\ 3244}#)))
+ (#{macros-only-env\ 2488}# (cdr #{r\ 3244}#))))))))
+ (#{lookup\ 2490}#
+ (lambda (#{x\ 3248}# #{r\ 3249}# #{mod\ 3250}#)
(begin
- (let ((#{t\ 1148}# (assq #{x\ 1140}# #{r\ 1141}#)))
- (if #{t\ 1148}#
- (cdr #{t\ 1148}#)
- (if (symbol? #{x\ 1140}#)
+ (let ((#{t\ 3256}# (assq #{x\ 3248}# #{r\ 3249}#)))
+ (if #{t\ 3256}#
+ (cdr #{t\ 3256}#)
+ (if (symbol? #{x\ 3248}#)
(begin
- (let ((#{t\ 1154}#
- (#{get-global-definition-hook\ 304}#
- #{x\ 1140}#
- #{mod\ 1142}#)))
- (if #{t\ 1154}# #{t\ 1154}# (quote (global)))))
+ (let ((#{t\ 3262}#
+ (#{get-global-definition-hook\ 2412}#
+ #{x\ 3248}#
+ #{mod\ 3250}#)))
+ (if #{t\ 3262}# #{t\ 3262}# (quote (global)))))
'(displaced-lexical)))))))
- (#{global-extend\ 384}#
- (lambda (#{type\ 1159}# #{sym\ 1160}# #{val\ 1161}#)
- (#{put-global-definition-hook\ 302}#
- #{sym\ 1160}#
- #{type\ 1159}#
- #{val\ 1161}#)))
- (#{nonsymbol-id?\ 386}#
- (lambda (#{x\ 1165}#)
- (if (#{syntax-object?\ 352}# #{x\ 1165}#)
+ (#{global-extend\ 2492}#
+ (lambda (#{type\ 3267}# #{sym\ 3268}# #{val\ 3269}#)
+ (#{put-global-definition-hook\ 2410}#
+ #{sym\ 3268}#
+ #{type\ 3267}#
+ #{val\ 3269}#)))
+ (#{nonsymbol-id?\ 2494}#
+ (lambda (#{x\ 3273}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3273}#)
(symbol?
- (#{syntax-object-expression\ 354}# #{x\ 1165}#))
+ (#{syntax-object-expression\ 2462}# #{x\ 3273}#))
#f)))
- (#{id?\ 388}#
- (lambda (#{x\ 1169}#)
- (if (symbol? #{x\ 1169}#)
+ (#{id?\ 2496}#
+ (lambda (#{x\ 3277}#)
+ (if (symbol? #{x\ 3277}#)
#t
- (if (#{syntax-object?\ 352}# #{x\ 1169}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3277}#)
(symbol?
- (#{syntax-object-expression\ 354}# #{x\ 1169}#))
+ (#{syntax-object-expression\ 2462}# #{x\ 3277}#))
#f))))
- (#{id-sym-name&marks\ 391}#
- (lambda (#{x\ 1176}# #{w\ 1177}#)
- (if (#{syntax-object?\ 352}# #{x\ 1176}#)
+ (#{id-sym-name&marks\ 2499}#
+ (lambda (#{x\ 3284}# #{w\ 3285}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 3284}#)
(values
- (#{syntax-object-expression\ 354}# #{x\ 1176}#)
- (#{join-marks\ 441}#
- (#{wrap-marks\ 395}# #{w\ 1177}#)
- (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{x\ 1176}#))))
+ (#{syntax-object-expression\ 2462}# #{x\ 3284}#)
+ (#{join-marks\ 2549}#
+ (#{wrap-marks\ 2503}# #{w\ 3285}#)
+ (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{x\ 3284}#))))
(values
- #{x\ 1176}#
- (#{wrap-marks\ 395}# #{w\ 1177}#)))))
- (#{gen-label\ 404}#
+ #{x\ 3284}#
+ (#{wrap-marks\ 2503}# #{w\ 3285}#)))))
+ (#{gen-label\ 2512}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 406}#
- (lambda (#{ls\ 1180}#)
- (if (null? #{ls\ 1180}#)
+ (#{gen-labels\ 2514}#
+ (lambda (#{ls\ 3288}#)
+ (if (null? #{ls\ 3288}#)
'()
- (cons (#{gen-label\ 404}#)
- (#{gen-labels\ 406}# (cdr #{ls\ 1180}#))))))
- (#{make-ribcage\ 409}#
- (lambda (#{symnames\ 1182}#
- #{marks\ 1183}#
- #{labels\ 1184}#)
+ (cons (#{gen-label\ 2512}#)
+ (#{gen-labels\ 2514}# (cdr #{ls\ 3288}#))))))
+ (#{make-ribcage\ 2517}#
+ (lambda (#{symnames\ 3290}#
+ #{marks\ 3291}#
+ #{labels\ 3292}#)
(vector
'ribcage
- #{symnames\ 1182}#
- #{marks\ 1183}#
- #{labels\ 1184}#)))
- (#{ribcage-symnames\ 413}#
- (lambda (#{x\ 1193}#) (vector-ref #{x\ 1193}# 1)))
- (#{ribcage-marks\ 415}#
- (lambda (#{x\ 1195}#) (vector-ref #{x\ 1195}# 2)))
- (#{ribcage-labels\ 417}#
- (lambda (#{x\ 1197}#) (vector-ref #{x\ 1197}# 3)))
- (#{set-ribcage-symnames!\ 419}#
- (lambda (#{x\ 1199}# #{update\ 1200}#)
- (vector-set! #{x\ 1199}# 1 #{update\ 1200}#)))
- (#{set-ribcage-marks!\ 421}#
- (lambda (#{x\ 1203}# #{update\ 1204}#)
- (vector-set! #{x\ 1203}# 2 #{update\ 1204}#)))
- (#{set-ribcage-labels!\ 423}#
- (lambda (#{x\ 1207}# #{update\ 1208}#)
- (vector-set! #{x\ 1207}# 3 #{update\ 1208}#)))
- (#{anti-mark\ 429}#
- (lambda (#{w\ 1211}#)
- (#{make-wrap\ 393}#
- (cons #f (#{wrap-marks\ 395}# #{w\ 1211}#))
+ #{symnames\ 3290}#
+ #{marks\ 3291}#
+ #{labels\ 3292}#)))
+ (#{ribcage-symnames\ 2521}#
+ (lambda (#{x\ 3301}#) (vector-ref #{x\ 3301}# 1)))
+ (#{ribcage-marks\ 2523}#
+ (lambda (#{x\ 3303}#) (vector-ref #{x\ 3303}# 2)))
+ (#{ribcage-labels\ 2525}#
+ (lambda (#{x\ 3305}#) (vector-ref #{x\ 3305}# 3)))
+ (#{set-ribcage-symnames!\ 2527}#
+ (lambda (#{x\ 3307}# #{update\ 3308}#)
+ (vector-set! #{x\ 3307}# 1 #{update\ 3308}#)))
+ (#{set-ribcage-marks!\ 2529}#
+ (lambda (#{x\ 3311}# #{update\ 3312}#)
+ (vector-set! #{x\ 3311}# 2 #{update\ 3312}#)))
+ (#{set-ribcage-labels!\ 2531}#
+ (lambda (#{x\ 3315}# #{update\ 3316}#)
+ (vector-set! #{x\ 3315}# 3 #{update\ 3316}#)))
+ (#{anti-mark\ 2537}#
+ (lambda (#{w\ 3319}#)
+ (#{make-wrap\ 2501}#
+ (cons #f (#{wrap-marks\ 2503}# #{w\ 3319}#))
(cons 'shift
- (#{wrap-subst\ 397}# #{w\ 1211}#)))))
- (#{extend-ribcage!\ 433}#
- (lambda (#{ribcage\ 1214}# #{id\ 1215}# #{label\ 1216}#)
+ (#{wrap-subst\ 2505}# #{w\ 3319}#)))))
+ (#{extend-ribcage!\ 2541}#
+ (lambda (#{ribcage\ 3322}# #{id\ 3323}# #{label\ 3324}#)
(begin
- (#{set-ribcage-symnames!\ 419}#
- #{ribcage\ 1214}#
- (cons (#{syntax-object-expression\ 354}# #{id\ 1215}#)
- (#{ribcage-symnames\ 413}# #{ribcage\ 1214}#)))
- (#{set-ribcage-marks!\ 421}#
- #{ribcage\ 1214}#
- (cons (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{id\ 1215}#))
- (#{ribcage-marks\ 415}# #{ribcage\ 1214}#)))
- (#{set-ribcage-labels!\ 423}#
- #{ribcage\ 1214}#
- (cons #{label\ 1216}#
- (#{ribcage-labels\ 417}# #{ribcage\ 1214}#))))))
- (#{make-binding-wrap\ 435}#
- (lambda (#{ids\ 1220}# #{labels\ 1221}# #{w\ 1222}#)
- (if (null? #{ids\ 1220}#)
- #{w\ 1222}#
- (#{make-wrap\ 393}#
- (#{wrap-marks\ 395}# #{w\ 1222}#)
+ (#{set-ribcage-symnames!\ 2527}#
+ #{ribcage\ 3322}#
+ (cons (#{syntax-object-expression\ 2462}# #{id\ 3323}#)
+ (#{ribcage-symnames\ 2521}# #{ribcage\ 3322}#)))
+ (#{set-ribcage-marks!\ 2529}#
+ #{ribcage\ 3322}#
+ (cons (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{id\ 3323}#))
+ (#{ribcage-marks\ 2523}# #{ribcage\ 3322}#)))
+ (#{set-ribcage-labels!\ 2531}#
+ #{ribcage\ 3322}#
+ (cons #{label\ 3324}#
+ (#{ribcage-labels\ 2525}# #{ribcage\ 3322}#))))))
+ (#{make-binding-wrap\ 2543}#
+ (lambda (#{ids\ 3328}# #{labels\ 3329}# #{w\ 3330}#)
+ (if (null? #{ids\ 3328}#)
+ #{w\ 3330}#
+ (#{make-wrap\ 2501}#
+ (#{wrap-marks\ 2503}# #{w\ 3330}#)
(cons (begin
- (let ((#{labelvec\ 1227}#
- (list->vector #{labels\ 1221}#)))
+ (let ((#{labelvec\ 3335}#
+ (list->vector #{labels\ 3329}#)))
(begin
- (let ((#{n\ 1229}#
- (vector-length #{labelvec\ 1227}#)))
+ (let ((#{n\ 3337}#
+ (vector-length #{labelvec\ 3335}#)))
(begin
- (let ((#{symnamevec\ 1232}#
- (make-vector #{n\ 1229}#))
- (#{marksvec\ 1233}#
- (make-vector #{n\ 1229}#)))
+ (let ((#{symnamevec\ 3340}#
+ (make-vector #{n\ 3337}#))
+ (#{marksvec\ 3341}#
+ (make-vector #{n\ 3337}#)))
(begin
(letrec*
- ((#{f\ 1237}#
- (lambda (#{ids\ 1238}# #{i\ 1239}#)
- (if (not (null? #{ids\ 1238}#))
+ ((#{f\ 3345}#
+ (lambda (#{ids\ 3346}# #{i\ 3347}#)
+ (if (not (null? #{ids\ 3346}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 391}#
- (car #{ids\ 1238}#)
- #{w\ 1222}#))
- (lambda (#{symname\ 1240}#
- #{marks\ 1241}#)
+ (#{id-sym-name&marks\ 2499}#
+ (car #{ids\ 3346}#)
+ #{w\ 3330}#))
+ (lambda (#{symname\ 3348}#
+ #{marks\ 3349}#)
(begin
(vector-set!
- #{symnamevec\ 1232}#
- #{i\ 1239}#
- #{symname\ 1240}#)
+ #{symnamevec\ 3340}#
+ #{i\ 3347}#
+ #{symname\ 3348}#)
(vector-set!
- #{marksvec\ 1233}#
- #{i\ 1239}#
- #{marks\ 1241}#)
- (#{f\ 1237}#
- (cdr #{ids\ 1238}#)
- (#{fx+\ 289}#
- #{i\ 1239}#
+ #{marksvec\ 3341}#
+ #{i\ 3347}#
+ #{marks\ 3349}#)
+ (#{f\ 3345}#
+ (cdr #{ids\ 3346}#)
+ (#{fx+\ 2397}#
+ #{i\ 3347}#
1)))))))))
- (begin (#{f\ 1237}# #{ids\ 1220}# 0)))
- (#{make-ribcage\ 409}#
- #{symnamevec\ 1232}#
- #{marksvec\ 1233}#
- #{labelvec\ 1227}#))))))))
- (#{wrap-subst\ 397}# #{w\ 1222}#))))))
- (#{smart-append\ 437}#
- (lambda (#{m1\ 1244}# #{m2\ 1245}#)
- (if (null? #{m2\ 1245}#)
- #{m1\ 1244}#
- (append #{m1\ 1244}# #{m2\ 1245}#))))
- (#{join-wraps\ 439}#
- (lambda (#{w1\ 1248}# #{w2\ 1249}#)
+ (begin (#{f\ 3345}# #{ids\ 3328}# 0)))
+ (#{make-ribcage\ 2517}#
+ #{symnamevec\ 3340}#
+ #{marksvec\ 3341}#
+ #{labelvec\ 3335}#))))))))
+ (#{wrap-subst\ 2505}# #{w\ 3330}#))))))
+ (#{smart-append\ 2545}#
+ (lambda (#{m1\ 3352}# #{m2\ 3353}#)
+ (if (null? #{m2\ 3353}#)
+ #{m1\ 3352}#
+ (append #{m1\ 3352}# #{m2\ 3353}#))))
+ (#{join-wraps\ 2547}#
+ (lambda (#{w1\ 3356}# #{w2\ 3357}#)
(begin
- (let ((#{m1\ 1254}# (#{wrap-marks\ 395}# #{w1\ 1248}#))
- (#{s1\ 1255}# (#{wrap-subst\ 397}# #{w1\ 1248}#)))
- (if (null? #{m1\ 1254}#)
- (if (null? #{s1\ 1255}#)
- #{w2\ 1249}#
- (#{make-wrap\ 393}#
- (#{wrap-marks\ 395}# #{w2\ 1249}#)
- (#{smart-append\ 437}#
- #{s1\ 1255}#
- (#{wrap-subst\ 397}# #{w2\ 1249}#))))
- (#{make-wrap\ 393}#
- (#{smart-append\ 437}#
- #{m1\ 1254}#
- (#{wrap-marks\ 395}# #{w2\ 1249}#))
- (#{smart-append\ 437}#
- #{s1\ 1255}#
- (#{wrap-subst\ 397}# #{w2\ 1249}#))))))))
- (#{join-marks\ 441}#
- (lambda (#{m1\ 1256}# #{m2\ 1257}#)
- (#{smart-append\ 437}# #{m1\ 1256}# #{m2\ 1257}#)))
- (#{same-marks?\ 443}#
- (lambda (#{x\ 1260}# #{y\ 1261}#)
+ (let ((#{m1\ 3362}#
+ (#{wrap-marks\ 2503}# #{w1\ 3356}#))
+ (#{s1\ 3363}#
+ (#{wrap-subst\ 2505}# #{w1\ 3356}#)))
+ (if (null? #{m1\ 3362}#)
+ (if (null? #{s1\ 3363}#)
+ #{w2\ 3357}#
+ (#{make-wrap\ 2501}#
+ (#{wrap-marks\ 2503}# #{w2\ 3357}#)
+ (#{smart-append\ 2545}#
+ #{s1\ 3363}#
+ (#{wrap-subst\ 2505}# #{w2\ 3357}#))))
+ (#{make-wrap\ 2501}#
+ (#{smart-append\ 2545}#
+ #{m1\ 3362}#
+ (#{wrap-marks\ 2503}# #{w2\ 3357}#))
+ (#{smart-append\ 2545}#
+ #{s1\ 3363}#
+ (#{wrap-subst\ 2505}# #{w2\ 3357}#))))))))
+ (#{join-marks\ 2549}#
+ (lambda (#{m1\ 3364}# #{m2\ 3365}#)
+ (#{smart-append\ 2545}#
+ #{m1\ 3364}#
+ #{m2\ 3365}#)))
+ (#{same-marks?\ 2551}#
+ (lambda (#{x\ 3368}# #{y\ 3369}#)
(begin
- (let ((#{t\ 1266}# (eq? #{x\ 1260}# #{y\ 1261}#)))
- (if #{t\ 1266}#
- #{t\ 1266}#
- (if (not (null? #{x\ 1260}#))
- (if (not (null? #{y\ 1261}#))
- (if (eq? (car #{x\ 1260}#) (car #{y\ 1261}#))
- (#{same-marks?\ 443}#
- (cdr #{x\ 1260}#)
- (cdr #{y\ 1261}#))
+ (let ((#{t\ 3374}# (eq? #{x\ 3368}# #{y\ 3369}#)))
+ (if #{t\ 3374}#
+ #{t\ 3374}#
+ (if (not (null? #{x\ 3368}#))
+ (if (not (null? #{y\ 3369}#))
+ (if (eq? (car #{x\ 3368}#) (car #{y\ 3369}#))
+ (#{same-marks?\ 2551}#
+ (cdr #{x\ 3368}#)
+ (cdr #{y\ 3369}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 445}#
- (lambda (#{id\ 1272}# #{w\ 1273}#)
+ (#{id-var-name\ 2553}#
+ (lambda (#{id\ 3380}# #{w\ 3381}#)
(letrec*
- ((#{search\ 1278}#
- (lambda (#{sym\ 1294}# #{subst\ 1295}# #{marks\ 1296}#)
- (if (null? #{subst\ 1295}#)
- (values #f #{marks\ 1296}#)
+ ((#{search\ 3386}#
+ (lambda (#{sym\ 3402}# #{subst\ 3403}# #{marks\ 3404}#)
+ (if (null? #{subst\ 3403}#)
+ (values #f #{marks\ 3404}#)
(begin
- (let ((#{fst\ 1301}# (car #{subst\ 1295}#)))
- (if (eq? #{fst\ 1301}# (quote shift))
- (#{search\ 1278}#
- #{sym\ 1294}#
- (cdr #{subst\ 1295}#)
- (cdr #{marks\ 1296}#))
+ (let ((#{fst\ 3409}# (car #{subst\ 3403}#)))
+ (if (eq? #{fst\ 3409}# (quote shift))
+ (#{search\ 3386}#
+ #{sym\ 3402}#
+ (cdr #{subst\ 3403}#)
+ (cdr #{marks\ 3404}#))
(begin
- (let ((#{symnames\ 1303}#
- (#{ribcage-symnames\ 413}#
- #{fst\ 1301}#)))
- (if (vector? #{symnames\ 1303}#)
- (#{search-vector-rib\ 1282}#
- #{sym\ 1294}#
- #{subst\ 1295}#
- #{marks\ 1296}#
- #{symnames\ 1303}#
- #{fst\ 1301}#)
- (#{search-list-rib\ 1280}#
- #{sym\ 1294}#
- #{subst\ 1295}#
- #{marks\ 1296}#
- #{symnames\ 1303}#
- #{fst\ 1301}#))))))))))
- (#{search-list-rib\ 1280}#
- (lambda (#{sym\ 1304}#
- #{subst\ 1305}#
- #{marks\ 1306}#
- #{symnames\ 1307}#
- #{ribcage\ 1308}#)
+ (let ((#{symnames\ 3411}#
+ (#{ribcage-symnames\ 2521}#
+ #{fst\ 3409}#)))
+ (if (vector? #{symnames\ 3411}#)
+ (#{search-vector-rib\ 3390}#
+ #{sym\ 3402}#
+ #{subst\ 3403}#
+ #{marks\ 3404}#
+ #{symnames\ 3411}#
+ #{fst\ 3409}#)
+ (#{search-list-rib\ 3388}#
+ #{sym\ 3402}#
+ #{subst\ 3403}#
+ #{marks\ 3404}#
+ #{symnames\ 3411}#
+ #{fst\ 3409}#))))))))))
+ (#{search-list-rib\ 3388}#
+ (lambda (#{sym\ 3412}#
+ #{subst\ 3413}#
+ #{marks\ 3414}#
+ #{symnames\ 3415}#
+ #{ribcage\ 3416}#)
(letrec*
- ((#{f\ 1317}#
- (lambda (#{symnames\ 1318}# #{i\ 1319}#)
- (if (null? #{symnames\ 1318}#)
- (#{search\ 1278}#
- #{sym\ 1304}#
- (cdr #{subst\ 1305}#)
- #{marks\ 1306}#)
- (if (if (eq? (car #{symnames\ 1318}#)
- #{sym\ 1304}#)
- (#{same-marks?\ 443}#
- #{marks\ 1306}#
+ ((#{f\ 3425}#
+ (lambda (#{symnames\ 3426}# #{i\ 3427}#)
+ (if (null? #{symnames\ 3426}#)
+ (#{search\ 3386}#
+ #{sym\ 3412}#
+ (cdr #{subst\ 3413}#)
+ #{marks\ 3414}#)
+ (if (if (eq? (car #{symnames\ 3426}#)
+ #{sym\ 3412}#)
+ (#{same-marks?\ 2551}#
+ #{marks\ 3414}#
(list-ref
- (#{ribcage-marks\ 415}#
- #{ribcage\ 1308}#)
- #{i\ 1319}#))
+ (#{ribcage-marks\ 2523}#
+ #{ribcage\ 3416}#)
+ #{i\ 3427}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 417}# #{ribcage\ 1308}#)
- #{i\ 1319}#)
- #{marks\ 1306}#)
- (#{f\ 1317}#
- (cdr #{symnames\ 1318}#)
- (#{fx+\ 289}# #{i\ 1319}# 1)))))))
- (begin (#{f\ 1317}# #{symnames\ 1307}# 0)))))
- (#{search-vector-rib\ 1282}#
- (lambda (#{sym\ 1327}#
- #{subst\ 1328}#
- #{marks\ 1329}#
- #{symnames\ 1330}#
- #{ribcage\ 1331}#)
+ (#{ribcage-labels\ 2525}# #{ribcage\ 3416}#)
+ #{i\ 3427}#)
+ #{marks\ 3414}#)
+ (#{f\ 3425}#
+ (cdr #{symnames\ 3426}#)
+ (#{fx+\ 2397}# #{i\ 3427}# 1)))))))
+ (begin (#{f\ 3425}# #{symnames\ 3415}# 0)))))
+ (#{search-vector-rib\ 3390}#
+ (lambda (#{sym\ 3435}#
+ #{subst\ 3436}#
+ #{marks\ 3437}#
+ #{symnames\ 3438}#
+ #{ribcage\ 3439}#)
(begin
- (let ((#{n\ 1338}# (vector-length #{symnames\ 1330}#)))
+ (let ((#{n\ 3446}# (vector-length #{symnames\ 3438}#)))
(letrec*
- ((#{f\ 1341}#
- (lambda (#{i\ 1342}#)
- (if (#{fx=\ 293}# #{i\ 1342}# #{n\ 1338}#)
- (#{search\ 1278}#
- #{sym\ 1327}#
- (cdr #{subst\ 1328}#)
- #{marks\ 1329}#)
+ ((#{f\ 3449}#
+ (lambda (#{i\ 3450}#)
+ (if (#{fx=\ 2401}# #{i\ 3450}# #{n\ 3446}#)
+ (#{search\ 3386}#
+ #{sym\ 3435}#
+ (cdr #{subst\ 3436}#)
+ #{marks\ 3437}#)
(if (if (eq? (vector-ref
- #{symnames\ 1330}#
- #{i\ 1342}#)
- #{sym\ 1327}#)
- (#{same-marks?\ 443}#
- #{marks\ 1329}#
+ #{symnames\ 3438}#
+ #{i\ 3450}#)
+ #{sym\ 3435}#)
+ (#{same-marks?\ 2551}#
+ #{marks\ 3437}#
(vector-ref
- (#{ribcage-marks\ 415}#
- #{ribcage\ 1331}#)
- #{i\ 1342}#))
+ (#{ribcage-marks\ 2523}#
+ #{ribcage\ 3439}#)
+ #{i\ 3450}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 417}#
- #{ribcage\ 1331}#)
- #{i\ 1342}#)
- #{marks\ 1329}#)
- (#{f\ 1341}#
- (#{fx+\ 289}# #{i\ 1342}# 1)))))))
- (begin (#{f\ 1341}# 0))))))))
+ (#{ribcage-labels\ 2525}#
+ #{ribcage\ 3439}#)
+ #{i\ 3450}#)
+ #{marks\ 3437}#)
+ (#{f\ 3449}#
+ (#{fx+\ 2397}# #{i\ 3450}# 1)))))))
+ (begin (#{f\ 3449}# 0))))))))
(begin
- (if (symbol? #{id\ 1272}#)
+ (if (symbol? #{id\ 3380}#)
(begin
- (let ((#{t\ 1352}#
+ (let ((#{t\ 3460}#
(call-with-values
(lambda ()
- (#{search\ 1278}#
- #{id\ 1272}#
- (#{wrap-subst\ 397}# #{w\ 1273}#)
- (#{wrap-marks\ 395}# #{w\ 1273}#)))
- (lambda (#{x\ 1354}# . #{ignore\ 1355}#)
- #{x\ 1354}#))))
- (if #{t\ 1352}# #{t\ 1352}# #{id\ 1272}#)))
- (if (#{syntax-object?\ 352}# #{id\ 1272}#)
+ (#{search\ 3386}#
+ #{id\ 3380}#
+ (#{wrap-subst\ 2505}# #{w\ 3381}#)
+ (#{wrap-marks\ 2503}# #{w\ 3381}#)))
+ (lambda (#{x\ 3462}# . #{ignore\ 3463}#)
+ #{x\ 3462}#))))
+ (if #{t\ 3460}# #{t\ 3460}# #{id\ 3380}#)))
+ (if (#{syntax-object?\ 2460}# #{id\ 3380}#)
(begin
- (let ((#{id\ 1363}#
- (#{syntax-object-expression\ 354}#
- #{id\ 1272}#))
- (#{w1\ 1364}#
- (#{syntax-object-wrap\ 356}# #{id\ 1272}#)))
+ (let ((#{id\ 3471}#
+ (#{syntax-object-expression\ 2462}#
+ #{id\ 3380}#))
+ (#{w1\ 3472}#
+ (#{syntax-object-wrap\ 2464}# #{id\ 3380}#)))
(begin
- (let ((#{marks\ 1366}#
- (#{join-marks\ 441}#
- (#{wrap-marks\ 395}# #{w\ 1273}#)
- (#{wrap-marks\ 395}# #{w1\ 1364}#))))
+ (let ((#{marks\ 3474}#
+ (#{join-marks\ 2549}#
+ (#{wrap-marks\ 2503}# #{w\ 3381}#)
+ (#{wrap-marks\ 2503}# #{w1\ 3472}#))))
(call-with-values
(lambda ()
- (#{search\ 1278}#
- #{id\ 1363}#
- (#{wrap-subst\ 397}# #{w\ 1273}#)
- #{marks\ 1366}#))
- (lambda (#{new-id\ 1367}# #{marks\ 1368}#)
+ (#{search\ 3386}#
+ #{id\ 3471}#
+ (#{wrap-subst\ 2505}# #{w\ 3381}#)
+ #{marks\ 3474}#))
+ (lambda (#{new-id\ 3475}# #{marks\ 3476}#)
(begin
- (let ((#{t\ 1373}# #{new-id\ 1367}#))
- (if #{t\ 1373}#
- #{t\ 1373}#
+ (let ((#{t\ 3481}# #{new-id\ 3475}#))
+ (if #{t\ 3481}#
+ #{t\ 3481}#
(begin
- (let ((#{t\ 1376}#
+ (let ((#{t\ 3484}#
(call-with-values
(lambda ()
- (#{search\ 1278}#
- #{id\ 1363}#
- (#{wrap-subst\ 397}#
- #{w1\ 1364}#)
- #{marks\ 1368}#))
- (lambda (#{x\ 1378}#
+ (#{search\ 3386}#
+ #{id\ 3471}#
+ (#{wrap-subst\ 2505}#
+ #{w1\ 3472}#)
+ #{marks\ 3476}#))
+ (lambda (#{x\ 3486}#
.
- #{ignore\ 1379}#)
- #{x\ 1378}#))))
- (if #{t\ 1376}#
- #{t\ 1376}#
- #{id\ 1363}#))))))))))))
+ #{ignore\ 3487}#)
+ #{x\ 3486}#))))
+ (if #{t\ 3484}#
+ #{t\ 3484}#
+ #{id\ 3471}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1272}#)))))))
- (#{free-id=?\ 447}#
- (lambda (#{i\ 1384}# #{j\ 1385}#)
+ #{id\ 3380}#)))))))
+ (#{free-id=?\ 2555}#
+ (lambda (#{i\ 3492}# #{j\ 3493}#)
(if (eq? (begin
- (let ((#{x\ 1391}# #{i\ 1384}#))
- (if (#{syntax-object?\ 352}# #{x\ 1391}#)
- (#{syntax-object-expression\ 354}# #{x\ 1391}#)
- #{x\ 1391}#)))
+ (let ((#{x\ 3499}# #{i\ 3492}#))
+ (if (#{syntax-object?\ 2460}# #{x\ 3499}#)
+ (#{syntax-object-expression\ 2462}# #{x\ 3499}#)
+ #{x\ 3499}#)))
(begin
- (let ((#{x\ 1394}# #{j\ 1385}#))
- (if (#{syntax-object?\ 352}# #{x\ 1394}#)
- (#{syntax-object-expression\ 354}# #{x\ 1394}#)
- #{x\ 1394}#))))
- (eq? (#{id-var-name\ 445}# #{i\ 1384}# (quote (())))
- (#{id-var-name\ 445}# #{j\ 1385}# (quote (()))))
+ (let ((#{x\ 3502}# #{j\ 3493}#))
+ (if (#{syntax-object?\ 2460}# #{x\ 3502}#)
+ (#{syntax-object-expression\ 2462}# #{x\ 3502}#)
+ #{x\ 3502}#))))
+ (eq? (#{id-var-name\ 2553}# #{i\ 3492}# (quote (())))
+ (#{id-var-name\ 2553}# #{j\ 3493}# (quote (()))))
#f)))
- (#{bound-id=?\ 449}#
- (lambda (#{i\ 1398}# #{j\ 1399}#)
- (if (if (#{syntax-object?\ 352}# #{i\ 1398}#)
- (#{syntax-object?\ 352}# #{j\ 1399}#)
+ (#{bound-id=?\ 2557}#
+ (lambda (#{i\ 3506}# #{j\ 3507}#)
+ (if (if (#{syntax-object?\ 2460}# #{i\ 3506}#)
+ (#{syntax-object?\ 2460}# #{j\ 3507}#)
#f)
- (if (eq? (#{syntax-object-expression\ 354}# #{i\ 1398}#)
- (#{syntax-object-expression\ 354}# #{j\ 1399}#))
- (#{same-marks?\ 443}#
- (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{i\ 1398}#))
- (#{wrap-marks\ 395}#
- (#{syntax-object-wrap\ 356}# #{j\ 1399}#)))
+ (if (eq? (#{syntax-object-expression\ 2462}# #{i\ 3506}#)
+ (#{syntax-object-expression\ 2462}# #{j\ 3507}#))
+ (#{same-marks?\ 2551}#
+ (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{i\ 3506}#))
+ (#{wrap-marks\ 2503}#
+ (#{syntax-object-wrap\ 2464}# #{j\ 3507}#)))
#f)
- (eq? #{i\ 1398}# #{j\ 1399}#))))
- (#{valid-bound-ids?\ 451}#
- (lambda (#{ids\ 1406}#)
+ (eq? #{i\ 3506}# #{j\ 3507}#))))
+ (#{valid-bound-ids?\ 2559}#
+ (lambda (#{ids\ 3514}#)
(if (letrec*
- ((#{all-ids?\ 1411}#
- (lambda (#{ids\ 1412}#)
+ ((#{all-ids?\ 3519}#
+ (lambda (#{ids\ 3520}#)
(begin
- (let ((#{t\ 1415}# (null? #{ids\ 1412}#)))
- (if #{t\ 1415}#
- #{t\ 1415}#
- (if (#{id?\ 388}# (car #{ids\ 1412}#))
- (#{all-ids?\ 1411}# (cdr #{ids\ 1412}#))
+ (let ((#{t\ 3523}# (null? #{ids\ 3520}#)))
+ (if #{t\ 3523}#
+ #{t\ 3523}#
+ (if (#{id?\ 2496}# (car #{ids\ 3520}#))
+ (#{all-ids?\ 3519}# (cdr #{ids\ 3520}#))
#f)))))))
- (begin (#{all-ids?\ 1411}# #{ids\ 1406}#)))
- (#{distinct-bound-ids?\ 453}# #{ids\ 1406}#)
+ (begin (#{all-ids?\ 3519}# #{ids\ 3514}#)))
+ (#{distinct-bound-ids?\ 2561}# #{ids\ 3514}#)
#f)))
- (#{distinct-bound-ids?\ 453}#
- (lambda (#{ids\ 1420}#)
+ (#{distinct-bound-ids?\ 2561}#
+ (lambda (#{ids\ 3528}#)
(letrec*
- ((#{distinct?\ 1424}#
- (lambda (#{ids\ 1425}#)
+ ((#{distinct?\ 3532}#
+ (lambda (#{ids\ 3533}#)
(begin
- (let ((#{t\ 1428}# (null? #{ids\ 1425}#)))
- (if #{t\ 1428}#
- #{t\ 1428}#
- (if (not (#{bound-id-member?\ 455}#
- (car #{ids\ 1425}#)
- (cdr #{ids\ 1425}#)))
- (#{distinct?\ 1424}# (cdr #{ids\ 1425}#))
+ (let ((#{t\ 3536}# (null? #{ids\ 3533}#)))
+ (if #{t\ 3536}#
+ #{t\ 3536}#
+ (if (not (#{bound-id-member?\ 2563}#
+ (car #{ids\ 3533}#)
+ (cdr #{ids\ 3533}#)))
+ (#{distinct?\ 3532}# (cdr #{ids\ 3533}#))
#f)))))))
- (begin (#{distinct?\ 1424}# #{ids\ 1420}#)))))
- (#{bound-id-member?\ 455}#
- (lambda (#{x\ 1432}# #{list\ 1433}#)
- (if (not (null? #{list\ 1433}#))
+ (begin (#{distinct?\ 3532}# #{ids\ 3528}#)))))
+ (#{bound-id-member?\ 2563}#
+ (lambda (#{x\ 3540}# #{list\ 3541}#)
+ (if (not (null? #{list\ 3541}#))
(begin
- (let ((#{t\ 1440}#
- (#{bound-id=?\ 449}#
- #{x\ 1432}#
- (car #{list\ 1433}#))))
- (if #{t\ 1440}#
- #{t\ 1440}#
- (#{bound-id-member?\ 455}#
- #{x\ 1432}#
- (cdr #{list\ 1433}#)))))
+ (let ((#{t\ 3548}#
+ (#{bound-id=?\ 2557}#
+ #{x\ 3540}#
+ (car #{list\ 3541}#))))
+ (if #{t\ 3548}#
+ #{t\ 3548}#
+ (#{bound-id-member?\ 2563}#
+ #{x\ 3540}#
+ (cdr #{list\ 3541}#)))))
#f)))
- (#{wrap\ 457}#
- (lambda (#{x\ 1442}# #{w\ 1443}# #{defmod\ 1444}#)
- (if (if (null? (#{wrap-marks\ 395}# #{w\ 1443}#))
- (null? (#{wrap-subst\ 397}# #{w\ 1443}#))
+ (#{wrap\ 2565}#
+ (lambda (#{x\ 3550}# #{w\ 3551}# #{defmod\ 3552}#)
+ (if (if (null? (#{wrap-marks\ 2503}# #{w\ 3551}#))
+ (null? (#{wrap-subst\ 2505}# #{w\ 3551}#))
#f)
- #{x\ 1442}#
- (if (#{syntax-object?\ 352}# #{x\ 1442}#)
- (#{make-syntax-object\ 350}#
- (#{syntax-object-expression\ 354}# #{x\ 1442}#)
- (#{join-wraps\ 439}#
- #{w\ 1443}#
- (#{syntax-object-wrap\ 356}# #{x\ 1442}#))
- (#{syntax-object-module\ 358}# #{x\ 1442}#))
- (if (null? #{x\ 1442}#)
- #{x\ 1442}#
- (#{make-syntax-object\ 350}#
- #{x\ 1442}#
- #{w\ 1443}#
- #{defmod\ 1444}#))))))
- (#{source-wrap\ 459}#
- (lambda (#{x\ 1457}#
- #{w\ 1458}#
- #{s\ 1459}#
- #{defmod\ 1460}#)
- (#{wrap\ 457}#
- (#{decorate-source\ 306}#
- #{x\ 1457}#
- #{s\ 1459}#)
- #{w\ 1458}#
- #{defmod\ 1460}#)))
- (#{chi-sequence\ 461}#
- (lambda (#{body\ 1465}#
- #{r\ 1466}#
- #{w\ 1467}#
- #{s\ 1468}#
- #{mod\ 1469}#)
- (#{build-sequence\ 340}#
- #{s\ 1468}#
+ #{x\ 3550}#
+ (if (#{syntax-object?\ 2460}# #{x\ 3550}#)
+ (#{make-syntax-object\ 2458}#
+ (#{syntax-object-expression\ 2462}# #{x\ 3550}#)
+ (#{join-wraps\ 2547}#
+ #{w\ 3551}#
+ (#{syntax-object-wrap\ 2464}# #{x\ 3550}#))
+ (#{syntax-object-module\ 2466}# #{x\ 3550}#))
+ (if (null? #{x\ 3550}#)
+ #{x\ 3550}#
+ (#{make-syntax-object\ 2458}#
+ #{x\ 3550}#
+ #{w\ 3551}#
+ #{defmod\ 3552}#))))))
+ (#{source-wrap\ 2567}#
+ (lambda (#{x\ 3565}#
+ #{w\ 3566}#
+ #{s\ 3567}#
+ #{defmod\ 3568}#)
+ (#{wrap\ 2565}#
+ (#{decorate-source\ 2414}#
+ #{x\ 3565}#
+ #{s\ 3567}#)
+ #{w\ 3566}#
+ #{defmod\ 3568}#)))
+ (#{chi-sequence\ 2569}#
+ (lambda (#{body\ 3573}#
+ #{r\ 3574}#
+ #{w\ 3575}#
+ #{s\ 3576}#
+ #{mod\ 3577}#)
+ (#{build-sequence\ 2448}#
+ #{s\ 3576}#
(letrec*
- ((#{dobody\ 1480}#
- (lambda (#{body\ 1481}#
- #{r\ 1482}#
- #{w\ 1483}#
- #{mod\ 1484}#)
- (if (null? #{body\ 1481}#)
+ ((#{dobody\ 3588}#
+ (lambda (#{body\ 3589}#
+ #{r\ 3590}#
+ #{w\ 3591}#
+ #{mod\ 3592}#)
+ (if (null? #{body\ 3589}#)
'()
(begin
- (let ((#{first\ 1486}#
- (#{chi\ 473}#
- (car #{body\ 1481}#)
- #{r\ 1482}#
- #{w\ 1483}#
- #{mod\ 1484}#)))
- (cons #{first\ 1486}#
- (#{dobody\ 1480}#
- (cdr #{body\ 1481}#)
- #{r\ 1482}#
- #{w\ 1483}#
- #{mod\ 1484}#))))))))
+ (let ((#{first\ 3594}#
+ (#{chi\ 2581}#
+ (car #{body\ 3589}#)
+ #{r\ 3590}#
+ #{w\ 3591}#
+ #{mod\ 3592}#)))
+ (cons #{first\ 3594}#
+ (#{dobody\ 3588}#
+ (cdr #{body\ 3589}#)
+ #{r\ 3590}#
+ #{w\ 3591}#
+ #{mod\ 3592}#))))))))
(begin
- (#{dobody\ 1480}#
- #{body\ 1465}#
- #{r\ 1466}#
- #{w\ 1467}#
- #{mod\ 1469}#))))))
- (#{chi-top-sequence\ 463}#
- (lambda (#{body\ 1487}#
- #{r\ 1488}#
- #{w\ 1489}#
- #{s\ 1490}#
- #{m\ 1491}#
- #{esew\ 1492}#
- #{mod\ 1493}#)
- (#{build-sequence\ 340}#
- #{s\ 1490}#
+ (#{dobody\ 3588}#
+ #{body\ 3573}#
+ #{r\ 3574}#
+ #{w\ 3575}#
+ #{mod\ 3577}#))))))
+ (#{chi-top-sequence\ 2571}#
+ (lambda (#{body\ 3595}#
+ #{r\ 3596}#
+ #{w\ 3597}#
+ #{s\ 3598}#
+ #{m\ 3599}#
+ #{esew\ 3600}#
+ #{mod\ 3601}#)
+ (#{build-sequence\ 2448}#
+ #{s\ 3598}#
(letrec*
- ((#{dobody\ 1509}#
- (lambda (#{body\ 1510}#
- #{r\ 1511}#
- #{w\ 1512}#
- #{m\ 1513}#
- #{esew\ 1514}#
- #{mod\ 1515}#
- #{out\ 1516}#)
- (if (null? #{body\ 1510}#)
- (reverse #{out\ 1516}#)
- (#{dobody\ 1509}#
- (cdr #{body\ 1510}#)
- #{r\ 1511}#
- #{w\ 1512}#
- #{m\ 1513}#
- #{esew\ 1514}#
- #{mod\ 1515}#
- (cons (#{chi-top\ 471}#
- (car #{body\ 1510}#)
- #{r\ 1511}#
- #{w\ 1512}#
- #{m\ 1513}#
- #{esew\ 1514}#
- #{mod\ 1515}#)
- #{out\ 1516}#))))))
+ ((#{dobody\ 3617}#
+ (lambda (#{body\ 3618}#
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{m\ 3621}#
+ #{esew\ 3622}#
+ #{mod\ 3623}#
+ #{out\ 3624}#)
+ (if (null? #{body\ 3618}#)
+ (reverse #{out\ 3624}#)
+ (#{dobody\ 3617}#
+ (cdr #{body\ 3618}#)
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{m\ 3621}#
+ #{esew\ 3622}#
+ #{mod\ 3623}#
+ (cons (#{chi-top\ 2579}#
+ (car #{body\ 3618}#)
+ #{r\ 3619}#
+ #{w\ 3620}#
+ #{m\ 3621}#
+ #{esew\ 3622}#
+ #{mod\ 3623}#)
+ #{out\ 3624}#))))))
(begin
- (#{dobody\ 1509}#
- #{body\ 1487}#
- #{r\ 1488}#
- #{w\ 1489}#
- #{m\ 1491}#
- #{esew\ 1492}#
- #{mod\ 1493}#
+ (#{dobody\ 3617}#
+ #{body\ 3595}#
+ #{r\ 3596}#
+ #{w\ 3597}#
+ #{m\ 3599}#
+ #{esew\ 3600}#
+ #{mod\ 3601}#
'()))))))
- (#{chi-install-global\ 465}#
- (lambda (#{name\ 1517}# #{e\ 1518}#)
- (#{build-global-definition\ 328}#
+ (#{chi-install-global\ 2573}#
+ (lambda (#{name\ 3625}# #{e\ 3626}#)
+ (#{build-global-definition\ 2436}#
#f
- #{name\ 1517}#
- (#{build-application\ 310}#
+ #{name\ 3625}#
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 2444}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 338}# #f #{name\ 1517}#)
- (#{build-data\ 338}# #f (quote macro))
- #{e\ 1518}#)))))
- (#{chi-when-list\ 467}#
- (lambda (#{e\ 1526}# #{when-list\ 1527}# #{w\ 1528}#)
+ (list (#{build-data\ 2446}# #f #{name\ 3625}#)
+ (#{build-data\ 2446}# #f (quote macro))
+ #{e\ 3626}#)))))
+ (#{chi-when-list\ 2575}#
+ (lambda (#{e\ 3634}# #{when-list\ 3635}# #{w\ 3636}#)
(letrec*
- ((#{f\ 1535}#
- (lambda (#{when-list\ 1536}# #{situations\ 1537}#)
- (if (null? #{when-list\ 1536}#)
- #{situations\ 1537}#
- (#{f\ 1535}#
- (cdr #{when-list\ 1536}#)
+ ((#{f\ 3643}#
+ (lambda (#{when-list\ 3644}# #{situations\ 3645}#)
+ (if (null? #{when-list\ 3644}#)
+ #{situations\ 3645}#
+ (#{f\ 3643}#
+ (cdr #{when-list\ 3644}#)
(cons (begin
- (let ((#{x\ 1539}# (car #{when-list\ 1536}#)))
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (let ((#{x\ 3647}# (car #{when-list\ 3644}#)))
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1538"))
+ #(ribcage #(x) #((top)) #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
load
((top)
#(ribcage
#(x)
#((top))
- #("i1538"))
+ #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
eval
((top)
#(ribcage
#(x)
#((top))
- #("i1538"))
+ #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 447}#
- #{x\ 1539}#
+ (if (#{free-id=?\ 2555}#
+ #{x\ 3647}#
'#(syntax-object
expand
((top)
#(ribcage
#(x)
#((top))
- #("i1538"))
+ #("i3646"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1532" "i1533" "i1534"))
+ #("i3640" "i3641" "i3642"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1529" "i1530" "i1531"))
+ #("i3637" "i3638" "i3639"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1526}#
- (#{wrap\ 457}#
- #{x\ 1539}#
- #{w\ 1528}#
+ #{e\ 3634}#
+ (#{wrap\ 2565}#
+ #{x\ 3647}#
+ #{w\ 3636}#
#f))))))))
- #{situations\ 1537}#))))))
+ #{situations\ 3645}#))))))
(begin
- (#{f\ 1535}# #{when-list\ 1527}# (quote ()))))))
- (#{syntax-type\ 469}#
- (lambda (#{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
- #{for-car?\ 1555}#)
- (if (symbol? #{e\ 1549}#)
+ (#{f\ 3643}# #{when-list\ 3635}# (quote ()))))))
+ (#{syntax-type\ 2577}#
+ (lambda (#{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
+ #{for-car?\ 3663}#)
+ (if (symbol? #{e\ 3657}#)
(begin
- (let ((#{n\ 1567}#
- (#{id-var-name\ 445}# #{e\ 1549}# #{w\ 1551}#)))
+ (let ((#{n\ 3675}#
+ (#{id-var-name\ 2553}# #{e\ 3657}# #{w\ 3659}#)))
(begin
- (let ((#{b\ 1569}#
- (#{lookup\ 382}#
- #{n\ 1567}#
- #{r\ 1550}#
- #{mod\ 1554}#)))
+ (let ((#{b\ 3677}#
+ (#{lookup\ 2490}#
+ #{n\ 3675}#
+ #{r\ 3658}#
+ #{mod\ 3662}#)))
(begin
- (let ((#{type\ 1571}#
- (#{binding-type\ 371}# #{b\ 1569}#)))
- (if (eqv? #{type\ 1571}# (quote lexical))
+ (let ((#{type\ 3679}#
+ (#{binding-type\ 2479}# #{b\ 3677}#)))
+ (if (eqv? #{type\ 3679}# (quote lexical))
(values
- #{type\ 1571}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{type\ 1571}# (quote global))
+ #{type\ 3679}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{type\ 3679}# (quote global))
(values
- #{type\ 1571}#
- #{n\ 1567}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{type\ 1571}# (quote macro))
- (if #{for-car?\ 1555}#
+ #{type\ 3679}#
+ #{n\ 3675}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{type\ 3679}# (quote macro))
+ (if #{for-car?\ 3663}#
(values
- #{type\ 1571}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (#{syntax-type\ 469}#
- (#{chi-macro\ 479}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#)
- #{r\ 1550}#
+ #{type\ 3679}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (#{syntax-type\ 2577}#
+ (#{chi-macro\ 2587}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#)
+ #{r\ 3658}#
'(())
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
#f))
(values
- #{type\ 1571}#
- (#{binding-value\ 373}# #{b\ 1569}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#))))))))))
- (if (pair? #{e\ 1549}#)
+ #{type\ 3679}#
+ (#{binding-value\ 2481}# #{b\ 3677}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))))))))))
+ (if (pair? #{e\ 3657}#)
(begin
- (let ((#{first\ 1580}# (car #{e\ 1549}#)))
+ (let ((#{first\ 3688}# (car #{e\ 3657}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{first\ 1580}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
+ (#{syntax-type\ 2577}#
+ #{first\ 3688}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
#t))
- (lambda (#{ftype\ 1581}#
- #{fval\ 1582}#
- #{fe\ 1583}#
- #{fw\ 1584}#
- #{fs\ 1585}#
- #{fmod\ 1586}#)
- (if (eqv? #{ftype\ 1581}# (quote lexical))
+ (lambda (#{ftype\ 3689}#
+ #{fval\ 3690}#
+ #{fe\ 3691}#
+ #{fw\ 3692}#
+ #{fs\ 3693}#
+ #{fmod\ 3694}#)
+ (if (eqv? #{ftype\ 3689}# (quote lexical))
(values
'lexical-call
- #{fval\ 1582}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}# (quote global))
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}# (quote global))
(values
'global-call
- (#{make-syntax-object\ 350}#
- #{fval\ 1582}#
- #{w\ 1551}#
- #{fmod\ 1586}#)
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}# (quote macro))
- (#{syntax-type\ 469}#
- (#{chi-macro\ 479}#
- #{fval\ 1582}#
- #{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#)
- #{r\ 1550}#
+ (#{make-syntax-object\ 2458}#
+ #{fval\ 3690}#
+ #{w\ 3659}#
+ #{fmod\ 3694}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}# (quote macro))
+ (#{syntax-type\ 2577}#
+ (#{chi-macro\ 2587}#
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#)
+ #{r\ 3658}#
'(())
- #{s\ 1552}#
- #{rib\ 1553}#
- #{mod\ 1554}#
- #{for-car?\ 1555}#)
- (if (eqv? #{ftype\ 1581}# (quote module-ref))
+ #{s\ 3660}#
+ #{rib\ 3661}#
+ #{mod\ 3662}#
+ #{for-car?\ 3663}#)
+ (if (eqv? #{ftype\ 3689}# (quote module-ref))
(call-with-values
(lambda ()
- (#{fval\ 1582}#
- #{e\ 1549}#
- #{r\ 1550}#
- #{w\ 1551}#))
- (lambda (#{e\ 1598}#
- #{r\ 1599}#
- #{w\ 1600}#
- #{s\ 1601}#
- #{mod\ 1602}#)
- (#{syntax-type\ 469}#
- #{e\ 1598}#
- #{r\ 1599}#
- #{w\ 1600}#
- #{s\ 1601}#
- #{rib\ 1553}#
- #{mod\ 1602}#
- #{for-car?\ 1555}#)))
- (if (eqv? #{ftype\ 1581}# (quote core))
+ (#{fval\ 3690}#
+ #{e\ 3657}#
+ #{r\ 3658}#
+ #{w\ 3659}#))
+ (lambda (#{e\ 3706}#
+ #{r\ 3707}#
+ #{w\ 3708}#
+ #{s\ 3709}#
+ #{mod\ 3710}#)
+ (#{syntax-type\ 2577}#
+ #{e\ 3706}#
+ #{r\ 3707}#
+ #{w\ 3708}#
+ #{s\ 3709}#
+ #{rib\ 3661}#
+ #{mod\ 3710}#
+ #{for-car?\ 3663}#)))
+ (if (eqv? #{ftype\ 3689}# (quote core))
(values
'core-form
- #{fval\ 1582}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}#
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}#
'local-syntax)
(values
'local-syntax-form
- #{fval\ 1582}#
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}# (quote begin))
+ #{fval\ 3690}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}# (quote begin))
(values
'begin-form
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}#
'eval-when)
(values
'eval-when-form
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
- (if (eqv? #{ftype\ 1581}#
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
+ (if (eqv? #{ftype\ 3689}#
'define)
- (let ((#{tmp\ 1613}# #{e\ 1549}#))
- (let ((#{tmp\ 1614}#
+ (let ((#{tmp\ 3721}# #{e\ 3657}#))
+ (let ((#{tmp\ 3722}#
($sc-dispatch
- #{tmp\ 1613}#
+ #{tmp\ 3721}#
'(any any any))))
- (if (if #{tmp\ 1614}#
+ (if (if #{tmp\ 3722}#
(@apply
- (lambda (#{_\ 1618}#
- #{name\ 1619}#
- #{val\ 1620}#)
- (#{id?\ 388}#
- #{name\ 1619}#))
- #{tmp\ 1614}#)
+ (lambda (#{_\ 3726}#
+ #{name\ 3727}#
+ #{val\ 3728}#)
+ (#{id?\ 2496}#
+ #{name\ 3727}#))
+ #{tmp\ 3722}#)
#f)
(@apply
- (lambda (#{_\ 1624}#
- #{name\ 1625}#
- #{val\ 1626}#)
+ (lambda (#{_\ 3732}#
+ #{name\ 3733}#
+ #{val\ 3734}#)
(values
'define-form
- #{name\ 1625}#
- #{val\ 1626}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1614}#)
- (let ((#{tmp\ 1627}#
+ #{name\ 3733}#
+ #{val\ 3734}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3722}#)
+ (let ((#{tmp\ 3735}#
($sc-dispatch
- #{tmp\ 1613}#
+ #{tmp\ 3721}#
'(any (any . any)
any
.
each-any))))
- (if (if #{tmp\ 1627}#
+ (if (if #{tmp\ 3735}#
(@apply
- (lambda (#{_\ 1633}#
- #{name\ 1634}#
- #{args\ 1635}#
- #{e1\ 1636}#
- #{e2\ 1637}#)
- (if (#{id?\ 388}#
- #{name\ 1634}#)
- (#{valid-bound-ids?\ 451}#
- (#{lambda-var-list\ 503}#
- #{args\ 1635}#))
+ (lambda (#{_\ 3741}#
+ #{name\ 3742}#
+ #{args\ 3743}#
+ #{e1\ 3744}#
+ #{e2\ 3745}#)
+ (if (#{id?\ 2496}#
+ #{name\ 3742}#)
+ (#{valid-bound-ids?\ 2559}#
+ (#{lambda-var-list\ 2611}#
+ #{args\ 3743}#))
#f))
- #{tmp\ 1627}#)
+ #{tmp\ 3735}#)
#f)
(@apply
- (lambda (#{_\ 1645}#
- #{name\ 1646}#
- #{args\ 1647}#
- #{e1\ 1648}#
- #{e2\ 1649}#)
+ (lambda (#{_\ 3753}#
+ #{name\ 3754}#
+ #{args\ 3755}#
+ #{e1\ 3756}#
+ #{e2\ 3757}#)
(values
'define-form
- (#{wrap\ 457}#
- #{name\ 1646}#
- #{w\ 1551}#
- #{mod\ 1554}#)
- (#{decorate-source\ 306}#
+ (#{wrap\ 2565}#
+ #{name\ 3754}#
+ #{w\ 3659}#
+ #{mod\ 3662}#)
+ (#{decorate-source\ 2414}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("i1640"
- "i1641"
- "i1642"
- "i1643"
- "i1644"))
+ #("i3748"
+ "i3749"
+ "i3750"
+ "i3751"
+ "i3752"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1587"
- "i1588"
- "i1589"
- "i1590"
- "i1591"
- "i1592"))
+ #("i3695"
+ "i3696"
+ "i3697"
+ "i3698"
+ "i3699"
+ "i3700"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1579"))
+ #("i3687"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
- "i1561"
- "i1562"))
+ #("i3664"
+ "i3665"
+ "i3666"
+ "i3667"
+ "i3668"
+ "i3669"
+ "i3670"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene
guile))
- (#{wrap\ 457}#
- (cons #{args\ 1647}#
- (cons #{e1\ 1648}#
- #{e2\ 1649}#))
- #{w\ 1551}#
- #{mod\ 1554}#))
- #{s\ 1552}#)
+ (#{wrap\ 2565}#
+ (cons #{args\ 3755}#
+ (cons #{e1\ 3756}#
+ #{e2\ 3757}#))
+ #{w\ 3659}#
+ #{mod\ 3662}#))
+ #{s\ 3660}#)
'(())
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1627}#)
- (let ((#{tmp\ 1652}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3735}#)
+ (let ((#{tmp\ 3760}#
($sc-dispatch
- #{tmp\ 1613}#
+ #{tmp\ 3721}#
'(any any))))
- (if (if #{tmp\ 1652}#
+ (if (if #{tmp\ 3760}#
(@apply
- (lambda (#{_\ 1655}#
- #{name\ 1656}#)
- (#{id?\ 388}#
- #{name\ 1656}#))
- #{tmp\ 1652}#)
+ (lambda (#{_\ 3763}#
+ #{name\ 3764}#)
+ (#{id?\ 2496}#
+ #{name\ 3764}#))
+ #{tmp\ 3760}#)
#f)
(@apply
- (lambda (#{_\ 1659}#
- #{name\ 1660}#)
+ (lambda (#{_\ 3767}#
+ #{name\ 3768}#)
(values
'define-form
- (#{wrap\ 457}#
- #{name\ 1660}#
- #{w\ 1551}#
- #{mod\ 1554}#)
+ (#{wrap\ 2565}#
+ #{name\ 3768}#
+ #{w\ 3659}#
+ #{mod\ 3662}#)
'(#(syntax-object
if
((top)
#(_ name)
#((top)
(top))
- #("i1657"
- "i1658"))
+ #("i3765"
+ "i3766"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1587"
- "i1588"
- "i1589"
- "i1590"
- "i1591"
- "i1592"))
+ #("i3695"
+ "i3696"
+ "i3697"
+ "i3698"
+ "i3699"
+ "i3700"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1579"))
+ #("i3687"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
- "i1561"
- "i1562"))
+ #("i3664"
+ "i3665"
+ "i3666"
+ "i3667"
+ "i3668"
+ "i3669"
+ "i3670"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene
guile))
#(syntax-object
#(_ name)
#((top)
(top))
- #("i1657"
- "i1658"))
+ #("i3765"
+ "i3766"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1587"
- "i1588"
- "i1589"
- "i1590"
- "i1591"
- "i1592"))
+ #("i3695"
+ "i3696"
+ "i3697"
+ "i3698"
+ "i3699"
+ "i3700"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1579"))
+ #("i3687"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
- "i1561"
- "i1562"))
+ #("i3664"
+ "i3665"
+ "i3666"
+ "i3667"
+ "i3668"
+ "i3669"
+ "i3670"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene
guile))
#(syntax-object
#(_ name)
#((top)
(top))
- #("i1657"
- "i1658"))
+ #("i3765"
+ "i3766"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1587"
- "i1588"
- "i1589"
- "i1590"
- "i1591"
- "i1592"))
+ #("i3695"
+ "i3696"
+ "i3697"
+ "i3698"
+ "i3699"
+ "i3700"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1579"))
+ #("i3687"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1556"
- "i1557"
- "i1558"
- "i1559"
- "i1560"
- "i1561"
- "i1562"))
+ #("i3664"
+ "i3665"
+ "i3666"
+ "i3667"
+ "i3668"
+ "i3669"
+ "i3670"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene
guile)))
'(())
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1652}#)
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3760}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1613}#))))))))
- (if (eqv? #{ftype\ 1581}#
+ #{tmp\ 3721}#))))))))
+ (if (eqv? #{ftype\ 3689}#
'define-syntax)
- (let ((#{tmp\ 1663}# #{e\ 1549}#))
- (let ((#{tmp\ 1664}#
+ (let ((#{tmp\ 3771}# #{e\ 3657}#))
+ (let ((#{tmp\ 3772}#
($sc-dispatch
- #{tmp\ 1663}#
+ #{tmp\ 3771}#
'(any any any))))
- (if (if #{tmp\ 1664}#
+ (if (if #{tmp\ 3772}#
(@apply
- (lambda (#{_\ 1668}#
- #{name\ 1669}#
- #{val\ 1670}#)
- (#{id?\ 388}#
- #{name\ 1669}#))
- #{tmp\ 1664}#)
+ (lambda (#{_\ 3776}#
+ #{name\ 3777}#
+ #{val\ 3778}#)
+ (#{id?\ 2496}#
+ #{name\ 3777}#))
+ #{tmp\ 3772}#)
#f)
(@apply
- (lambda (#{_\ 1674}#
- #{name\ 1675}#
- #{val\ 1676}#)
+ (lambda (#{_\ 3782}#
+ #{name\ 3783}#
+ #{val\ 3784}#)
(values
'define-syntax-form
- #{name\ 1675}#
- #{val\ 1676}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#))
- #{tmp\ 1664}#)
+ #{name\ 3783}#
+ #{val\ 3784}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#))
+ #{tmp\ 3772}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1663}#))))
+ #{tmp\ 3771}#))))
(values
'call
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)))))))))))))))
- (if (#{syntax-object?\ 352}# #{e\ 1549}#)
- (#{syntax-type\ 469}#
- (#{syntax-object-expression\ 354}# #{e\ 1549}#)
- #{r\ 1550}#
- (#{join-wraps\ 439}#
- #{w\ 1551}#
- (#{syntax-object-wrap\ 356}# #{e\ 1549}#))
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)))))))))))))))
+ (if (#{syntax-object?\ 2460}# #{e\ 3657}#)
+ (#{syntax-type\ 2577}#
+ (#{syntax-object-expression\ 2462}# #{e\ 3657}#)
+ #{r\ 3658}#
+ (#{join-wraps\ 2547}#
+ #{w\ 3659}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 3657}#))
(begin
- (let ((#{t\ 1682}#
- (#{source-annotation\ 367}# #{e\ 1549}#)))
- (if #{t\ 1682}# #{t\ 1682}# #{s\ 1552}#)))
- #{rib\ 1553}#
+ (let ((#{t\ 3790}#
+ (#{source-annotation\ 2475}# #{e\ 3657}#)))
+ (if #{t\ 3790}# #{t\ 3790}# #{s\ 3660}#)))
+ #{rib\ 3661}#
(begin
- (let ((#{t\ 1686}#
- (#{syntax-object-module\ 358}# #{e\ 1549}#)))
- (if #{t\ 1686}# #{t\ 1686}# #{mod\ 1554}#)))
- #{for-car?\ 1555}#)
- (if (self-evaluating? #{e\ 1549}#)
+ (let ((#{t\ 3794}#
+ (#{syntax-object-module\ 2466}# #{e\ 3657}#)))
+ (if #{t\ 3794}# #{t\ 3794}# #{mod\ 3662}#)))
+ #{for-car?\ 3663}#)
+ (if (self-evaluating? #{e\ 3657}#)
(values
'constant
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)
(values
'other
#f
- #{e\ 1549}#
- #{w\ 1551}#
- #{s\ 1552}#
- #{mod\ 1554}#)))))))
- (#{chi-top\ 471}#
- (lambda (#{e\ 1691}#
- #{r\ 1692}#
- #{w\ 1693}#
- #{m\ 1694}#
- #{esew\ 1695}#
- #{mod\ 1696}#)
+ #{e\ 3657}#
+ #{w\ 3659}#
+ #{s\ 3660}#
+ #{mod\ 3662}#)))))))
+ (#{chi-top\ 2579}#
+ (lambda (#{e\ 3799}#
+ #{r\ 3800}#
+ #{w\ 3801}#
+ #{m\ 3802}#
+ #{esew\ 3803}#
+ #{mod\ 3804}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{e\ 1691}#
- #{r\ 1692}#
- #{w\ 1693}#
- (#{source-annotation\ 367}# #{e\ 1691}#)
+ (#{syntax-type\ 2577}#
+ #{e\ 3799}#
+ #{r\ 3800}#
+ #{w\ 3801}#
+ (#{source-annotation\ 2475}# #{e\ 3799}#)
#f
- #{mod\ 1696}#
+ #{mod\ 3804}#
#f))
- (lambda (#{type\ 1717}#
- #{value\ 1718}#
- #{e\ 1719}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{mod\ 1722}#)
- (if (eqv? #{type\ 1717}# (quote begin-form))
- (let ((#{tmp\ 1730}# #{e\ 1719}#))
- (let ((#{tmp\ 1731}#
- ($sc-dispatch #{tmp\ 1730}# (quote (any)))))
- (if #{tmp\ 1731}#
+ (lambda (#{type\ 3825}#
+ #{value\ 3826}#
+ #{e\ 3827}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{mod\ 3830}#)
+ (if (eqv? #{type\ 3825}# (quote begin-form))
+ (let ((#{tmp\ 3838}# #{e\ 3827}#))
+ (let ((#{tmp\ 3839}#
+ ($sc-dispatch #{tmp\ 3838}# (quote (any)))))
+ (if #{tmp\ 3839}#
(@apply
- (lambda (#{_\ 1733}#) (#{chi-void\ 487}#))
- #{tmp\ 1731}#)
- (let ((#{tmp\ 1734}#
+ (lambda (#{_\ 3841}#) (#{chi-void\ 2595}#))
+ #{tmp\ 3839}#)
+ (let ((#{tmp\ 3842}#
($sc-dispatch
- #{tmp\ 1730}#
+ #{tmp\ 3838}#
'(any any . each-any))))
- (if #{tmp\ 1734}#
+ (if #{tmp\ 3842}#
(@apply
- (lambda (#{_\ 1738}# #{e1\ 1739}# #{e2\ 1740}#)
- (#{chi-top-sequence\ 463}#
- (cons #{e1\ 1739}# #{e2\ 1740}#)
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{m\ 1694}#
- #{esew\ 1695}#
- #{mod\ 1722}#))
- #{tmp\ 1734}#)
+ (lambda (#{_\ 3846}# #{e1\ 3847}# #{e2\ 3848}#)
+ (#{chi-top-sequence\ 2571}#
+ (cons #{e1\ 3847}# #{e2\ 3848}#)
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{m\ 3802}#
+ #{esew\ 3803}#
+ #{mod\ 3830}#))
+ #{tmp\ 3842}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1730}#))))))
- (if (eqv? #{type\ 1717}# (quote local-syntax-form))
- (#{chi-local-syntax\ 483}#
- #{value\ 1718}#
- #{e\ 1719}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{mod\ 1722}#
- (lambda (#{body\ 1743}#
- #{r\ 1744}#
- #{w\ 1745}#
- #{s\ 1746}#
- #{mod\ 1747}#)
- (#{chi-top-sequence\ 463}#
- #{body\ 1743}#
- #{r\ 1744}#
- #{w\ 1745}#
- #{s\ 1746}#
- #{m\ 1694}#
- #{esew\ 1695}#
- #{mod\ 1747}#)))
- (if (eqv? #{type\ 1717}# (quote eval-when-form))
- (let ((#{tmp\ 1754}# #{e\ 1719}#))
- (let ((#{tmp\ 1755}#
+ #{tmp\ 3838}#))))))
+ (if (eqv? #{type\ 3825}# (quote local-syntax-form))
+ (#{chi-local-syntax\ 2591}#
+ #{value\ 3826}#
+ #{e\ 3827}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{mod\ 3830}#
+ (lambda (#{body\ 3851}#
+ #{r\ 3852}#
+ #{w\ 3853}#
+ #{s\ 3854}#
+ #{mod\ 3855}#)
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3851}#
+ #{r\ 3852}#
+ #{w\ 3853}#
+ #{s\ 3854}#
+ #{m\ 3802}#
+ #{esew\ 3803}#
+ #{mod\ 3855}#)))
+ (if (eqv? #{type\ 3825}# (quote eval-when-form))
+ (let ((#{tmp\ 3862}# #{e\ 3827}#))
+ (let ((#{tmp\ 3863}#
($sc-dispatch
- #{tmp\ 1754}#
+ #{tmp\ 3862}#
'(any each-any any . each-any))))
- (if #{tmp\ 1755}#
+ (if #{tmp\ 3863}#
(@apply
- (lambda (#{_\ 1760}#
- #{x\ 1761}#
- #{e1\ 1762}#
- #{e2\ 1763}#)
+ (lambda (#{_\ 3868}#
+ #{x\ 3869}#
+ #{e1\ 3870}#
+ #{e2\ 3871}#)
(begin
- (let ((#{when-list\ 1766}#
- (#{chi-when-list\ 467}#
- #{e\ 1719}#
- #{x\ 1761}#
- #{w\ 1720}#))
- (#{body\ 1767}#
- (cons #{e1\ 1762}# #{e2\ 1763}#)))
- (if (eq? #{m\ 1694}# (quote e))
+ (let ((#{when-list\ 3874}#
+ (#{chi-when-list\ 2575}#
+ #{e\ 3827}#
+ #{x\ 3869}#
+ #{w\ 3828}#))
+ (#{body\ 3875}#
+ (cons #{e1\ 3870}# #{e2\ 3871}#)))
+ (if (eq? #{m\ 3802}# (quote e))
(if (memq 'eval
- #{when-list\ 1766}#)
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ #{when-list\ 3874}#)
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
(if (memq 'expand
- #{when-list\ 1766}#)
+ #{when-list\ 3874}#)
'c&e
'e)
'(eval)
- #{mod\ 1722}#)
+ #{mod\ 3830}#)
(begin
(if (memq 'expand
- #{when-list\ 1766}#)
- (#{top-level-eval-hook\ 297}#
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ #{when-list\ 3874}#)
+ (#{top-level-eval-hook\ 2405}#
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'e
'(eval)
- #{mod\ 1722}#)
- #{mod\ 1722}#))
- (#{chi-void\ 487}#)))
+ #{mod\ 3830}#)
+ #{mod\ 3830}#))
+ (#{chi-void\ 2595}#)))
(if (memq 'load
- #{when-list\ 1766}#)
+ #{when-list\ 3874}#)
(if (begin
- (let ((#{t\ 1776}#
+ (let ((#{t\ 3884}#
(memq 'compile
- #{when-list\ 1766}#)))
- (if #{t\ 1776}#
- #{t\ 1776}#
+ #{when-list\ 3874}#)))
+ (if #{t\ 3884}#
+ #{t\ 3884}#
(begin
- (let ((#{t\ 1779}#
+ (let ((#{t\ 3887}#
(memq 'expand
- #{when-list\ 1766}#)))
- (if #{t\ 1779}#
- #{t\ 1779}#
- (if (eq? #{m\ 1694}#
+ #{when-list\ 3874}#)))
+ (if #{t\ 3887}#
+ #{t\ 3887}#
+ (if (eq? #{m\ 3802}#
'c&e)
(memq 'eval
- #{when-list\ 1766}#)
+ #{when-list\ 3874}#)
#f)))))))
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'c&e
'(compile load)
- #{mod\ 1722}#)
- (if (if (eq? #{m\ 1694}# (quote c))
+ #{mod\ 3830}#)
+ (if (if (eq? #{m\ 3802}# (quote c))
#t
- (eq? #{m\ 1694}# (quote c&e)))
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ (eq? #{m\ 3802}# (quote c&e)))
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'c
'(load)
- #{mod\ 1722}#)
- (#{chi-void\ 487}#)))
+ #{mod\ 3830}#)
+ (#{chi-void\ 2595}#)))
(if (begin
- (let ((#{t\ 1787}#
+ (let ((#{t\ 3895}#
(memq 'compile
- #{when-list\ 1766}#)))
- (if #{t\ 1787}#
- #{t\ 1787}#
+ #{when-list\ 3874}#)))
+ (if #{t\ 3895}#
+ #{t\ 3895}#
(begin
- (let ((#{t\ 1790}#
+ (let ((#{t\ 3898}#
(memq 'expand
- #{when-list\ 1766}#)))
- (if #{t\ 1790}#
- #{t\ 1790}#
- (if (eq? #{m\ 1694}#
+ #{when-list\ 3874}#)))
+ (if #{t\ 3898}#
+ #{t\ 3898}#
+ (if (eq? #{m\ 3802}#
'c&e)
(memq 'eval
- #{when-list\ 1766}#)
+ #{when-list\ 3874}#)
#f)))))))
(begin
- (#{top-level-eval-hook\ 297}#
- (#{chi-top-sequence\ 463}#
- #{body\ 1767}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
+ (#{top-level-eval-hook\ 2405}#
+ (#{chi-top-sequence\ 2571}#
+ #{body\ 3875}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
'e
'(eval)
- #{mod\ 1722}#)
- #{mod\ 1722}#)
- (#{chi-void\ 487}#))
- (#{chi-void\ 487}#)))))))
- #{tmp\ 1755}#)
+ #{mod\ 3830}#)
+ #{mod\ 3830}#)
+ (#{chi-void\ 2595}#))
+ (#{chi-void\ 2595}#)))))))
+ #{tmp\ 3863}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1754}#))))
- (if (eqv? #{type\ 1717}# (quote define-syntax-form))
+ #{tmp\ 3862}#))))
+ (if (eqv? #{type\ 3825}# (quote define-syntax-form))
(begin
- (let ((#{n\ 1798}#
- (#{id-var-name\ 445}#
- #{value\ 1718}#
- #{w\ 1720}#))
- (#{r\ 1799}#
- (#{macros-only-env\ 380}# #{r\ 1692}#)))
- (if (eqv? #{m\ 1694}# (quote c))
- (if (memq (quote compile) #{esew\ 1695}#)
+ (let ((#{n\ 3906}#
+ (#{id-var-name\ 2553}#
+ #{value\ 3826}#
+ #{w\ 3828}#))
+ (#{r\ 3907}#
+ (#{macros-only-env\ 2488}# #{r\ 3800}#)))
+ (if (eqv? #{m\ 3802}# (quote c))
+ (if (memq (quote compile) #{esew\ 3803}#)
(begin
- (let ((#{e\ 1802}#
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))))
+ (let ((#{e\ 3910}#
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))
(begin
- (#{top-level-eval-hook\ 297}#
- #{e\ 1802}#
- #{mod\ 1722}#)
- (if (memq (quote load) #{esew\ 1695}#)
- #{e\ 1802}#
- (#{chi-void\ 487}#)))))
- (if (memq (quote load) #{esew\ 1695}#)
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))
- (#{chi-void\ 487}#)))
- (if (eqv? #{m\ 1694}# (quote c&e))
+ (#{top-level-eval-hook\ 2405}#
+ #{e\ 3910}#
+ #{mod\ 3830}#)
+ (if (memq (quote load) #{esew\ 3803}#)
+ #{e\ 3910}#
+ (#{chi-void\ 2595}#)))))
+ (if (memq (quote load) #{esew\ 3803}#)
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))
+ (#{chi-void\ 2595}#)))
+ (if (eqv? #{m\ 3802}# (quote c&e))
(begin
- (let ((#{e\ 1805}#
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))))
+ (let ((#{e\ 3913}#
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))
(begin
- (#{top-level-eval-hook\ 297}#
- #{e\ 1805}#
- #{mod\ 1722}#)
- #{e\ 1805}#)))
+ (#{top-level-eval-hook\ 2405}#
+ #{e\ 3913}#
+ #{mod\ 3830}#)
+ #{e\ 3913}#)))
(begin
- (if (memq (quote eval) #{esew\ 1695}#)
- (#{top-level-eval-hook\ 297}#
- (#{chi-install-global\ 465}#
- #{n\ 1798}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1799}#
- #{w\ 1720}#
- #{mod\ 1722}#))
- #{mod\ 1722}#))
- (#{chi-void\ 487}#))))))
- (if (eqv? #{type\ 1717}# (quote define-form))
+ (if (memq (quote eval) #{esew\ 3803}#)
+ (#{top-level-eval-hook\ 2405}#
+ (#{chi-install-global\ 2573}#
+ #{n\ 3906}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3907}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))
+ #{mod\ 3830}#))
+ (#{chi-void\ 2595}#))))))
+ (if (eqv? #{type\ 3825}# (quote define-form))
(begin
- (let ((#{n\ 1810}#
- (#{id-var-name\ 445}#
- #{value\ 1718}#
- #{w\ 1720}#)))
+ (let ((#{n\ 3918}#
+ (#{id-var-name\ 2553}#
+ #{value\ 3826}#
+ #{w\ 3828}#)))
(begin
- (let ((#{type\ 1812}#
- (#{binding-type\ 371}#
- (#{lookup\ 382}#
- #{n\ 1810}#
- #{r\ 1692}#
- #{mod\ 1722}#))))
- (if (if (eqv? #{type\ 1812}# (quote global))
+ (let ((#{type\ 3920}#
+ (#{binding-type\ 2479}#
+ (#{lookup\ 2490}#
+ #{n\ 3918}#
+ #{r\ 3800}#
+ #{mod\ 3830}#))))
+ (if (if (eqv? #{type\ 3920}# (quote global))
#t
- (if (eqv? #{type\ 1812}# (quote core))
+ (if (eqv? #{type\ 3920}# (quote core))
#t
- (if (eqv? #{type\ 1812}#
+ (if (eqv? #{type\ 3920}#
'macro)
#t
- (eqv? #{type\ 1812}#
+ (eqv? #{type\ 3920}#
'module-ref))))
(begin
- (if (if (if (eq? #{m\ 1694}# (quote c))
+ (if (if (if (eq? #{m\ 3802}# (quote c))
#t
- (eq? #{m\ 1694}# (quote c&e)))
+ (eq? #{m\ 3802}# (quote c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 1810}#))
+ #{n\ 3918}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old\ 1818}#
+ (let ((#{old\ 3926}#
(module-variable
(current-module)
- #{n\ 1810}#)))
+ #{n\ 3918}#)))
(module-define!
(current-module)
- #{n\ 1810}#
- (if (variable? #{old\ 1818}#)
- (variable-ref #{old\ 1818}#)
+ #{n\ 3918}#
+ (if (variable? #{old\ 3926}#)
+ (variable-ref #{old\ 3926}#)
#f)))))
(begin
- (let ((#{x\ 1821}#
- (#{build-global-definition\ 328}#
- #{s\ 1721}#
- #{n\ 1810}#
- (#{chi\ 473}#
- #{e\ 1719}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{mod\ 1722}#))))
+ (let ((#{x\ 3929}#
+ (#{build-global-definition\ 2436}#
+ #{s\ 3829}#
+ #{n\ 3918}#
+ (#{chi\ 2581}#
+ #{e\ 3827}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))
(begin
- (if (eq? #{m\ 1694}# (quote c&e))
- (#{top-level-eval-hook\ 297}#
- #{x\ 1821}#
- #{mod\ 1722}#))
- #{x\ 1821}#))))
- (if (eqv? #{type\ 1812}#
+ (if (eq? #{m\ 3802}# (quote c&e))
+ (#{top-level-eval-hook\ 2405}#
+ #{x\ 3929}#
+ #{mod\ 3830}#))
+ #{x\ 3929}#))))
+ (if (eqv? #{type\ 3920}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e\ 1719}#
- (#{wrap\ 457}#
- #{value\ 1718}#
- #{w\ 1720}#
- #{mod\ 1722}#))
+ #{e\ 3827}#
+ (#{wrap\ 2565}#
+ #{value\ 3826}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1719}#
- (#{wrap\ 457}#
- #{value\ 1718}#
- #{w\ 1720}#
- #{mod\ 1722}#))))))))
+ #{e\ 3827}#
+ (#{wrap\ 2565}#
+ #{value\ 3826}#
+ #{w\ 3828}#
+ #{mod\ 3830}#))))))))
(begin
- (let ((#{x\ 1827}#
- (#{chi-expr\ 475}#
- #{type\ 1717}#
- #{value\ 1718}#
- #{e\ 1719}#
- #{r\ 1692}#
- #{w\ 1720}#
- #{s\ 1721}#
- #{mod\ 1722}#)))
+ (let ((#{x\ 3935}#
+ (#{chi-expr\ 2583}#
+ #{type\ 3825}#
+ #{value\ 3826}#
+ #{e\ 3827}#
+ #{r\ 3800}#
+ #{w\ 3828}#
+ #{s\ 3829}#
+ #{mod\ 3830}#)))
(begin
- (if (eq? #{m\ 1694}# (quote c&e))
- (#{top-level-eval-hook\ 297}#
- #{x\ 1827}#
- #{mod\ 1722}#))
- #{x\ 1827}#))))))))))))
- (#{chi\ 473}#
- (lambda (#{e\ 1828}#
- #{r\ 1829}#
- #{w\ 1830}#
- #{mod\ 1831}#)
+ (if (eq? #{m\ 3802}# (quote c&e))
+ (#{top-level-eval-hook\ 2405}#
+ #{x\ 3935}#
+ #{mod\ 3830}#))
+ #{x\ 3935}#))))))))))))
+ (#{chi\ 2581}#
+ (lambda (#{e\ 3936}#
+ #{r\ 3937}#
+ #{w\ 3938}#
+ #{mod\ 3939}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{e\ 1828}#
- #{r\ 1829}#
- #{w\ 1830}#
- (#{source-annotation\ 367}# #{e\ 1828}#)
+ (#{syntax-type\ 2577}#
+ #{e\ 3936}#
+ #{r\ 3937}#
+ #{w\ 3938}#
+ (#{source-annotation\ 2475}# #{e\ 3936}#)
#f
- #{mod\ 1831}#
+ #{mod\ 3939}#
#f))
- (lambda (#{type\ 1836}#
- #{value\ 1837}#
- #{e\ 1838}#
- #{w\ 1839}#
- #{s\ 1840}#
- #{mod\ 1841}#)
- (#{chi-expr\ 475}#
- #{type\ 1836}#
- #{value\ 1837}#
- #{e\ 1838}#
- #{r\ 1829}#
- #{w\ 1839}#
- #{s\ 1840}#
- #{mod\ 1841}#)))))
- (#{chi-expr\ 475}#
- (lambda (#{type\ 1848}#
- #{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote lexical))
- (#{build-lexical-reference\ 316}#
+ (lambda (#{type\ 3944}#
+ #{value\ 3945}#
+ #{e\ 3946}#
+ #{w\ 3947}#
+ #{s\ 3948}#
+ #{mod\ 3949}#)
+ (#{chi-expr\ 2583}#
+ #{type\ 3944}#
+ #{value\ 3945}#
+ #{e\ 3946}#
+ #{r\ 3937}#
+ #{w\ 3947}#
+ #{s\ 3948}#
+ #{mod\ 3949}#)))))
+ (#{chi-expr\ 2583}#
+ (lambda (#{type\ 3956}#
+ #{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote lexical))
+ (#{build-lexical-reference\ 2426}#
'value
- #{s\ 1853}#
- #{e\ 1850}#
- #{value\ 1849}#)
- (if (if (eqv? #{type\ 1848}# (quote core))
+ #{s\ 3961}#
+ #{e\ 3958}#
+ #{value\ 3957}#)
+ (if (if (eqv? #{type\ 3956}# (quote core))
#t
- (eqv? #{type\ 1848}# (quote core-form)))
- (#{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote module-ref))
+ (eqv? #{type\ 3956}# (quote core-form)))
+ (#{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote module-ref))
(call-with-values
(lambda ()
- (#{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#))
- (lambda (#{e\ 1865}#
- #{r\ 1866}#
- #{w\ 1867}#
- #{s\ 1868}#
- #{mod\ 1869}#)
- (#{chi\ 473}#
- #{e\ 1865}#
- #{r\ 1866}#
- #{w\ 1867}#
- #{mod\ 1869}#)))
- (if (eqv? #{type\ 1848}# (quote lexical-call))
- (#{chi-application\ 477}#
+ (#{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#))
+ (lambda (#{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (#{chi\ 2581}#
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{mod\ 3977}#)))
+ (if (eqv? #{type\ 3956}# (quote lexical-call))
+ (#{chi-application\ 2585}#
(begin
- (let ((#{id\ 1877}# (car #{e\ 1850}#)))
- (#{build-lexical-reference\ 316}#
+ (let ((#{id\ 3985}# (car #{e\ 3958}#)))
+ (#{build-lexical-reference\ 2426}#
'fun
- (#{source-annotation\ 367}# #{id\ 1877}#)
- (if (#{syntax-object?\ 352}# #{id\ 1877}#)
- (syntax->datum #{id\ 1877}#)
- #{id\ 1877}#)
- #{value\ 1849}#)))
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote global-call))
- (#{chi-application\ 477}#
- (#{build-global-reference\ 322}#
- (#{source-annotation\ 367}# (car #{e\ 1850}#))
- (if (#{syntax-object?\ 352}# #{value\ 1849}#)
- (#{syntax-object-expression\ 354}#
- #{value\ 1849}#)
- #{value\ 1849}#)
- (if (#{syntax-object?\ 352}# #{value\ 1849}#)
- (#{syntax-object-module\ 358}# #{value\ 1849}#)
- #{mod\ 1854}#))
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote constant))
- (#{build-data\ 338}#
- #{s\ 1853}#
- (#{strip\ 499}#
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
+ (#{source-annotation\ 2475}# #{id\ 3985}#)
+ (if (#{syntax-object?\ 2460}# #{id\ 3985}#)
+ (syntax->datum #{id\ 3985}#)
+ #{id\ 3985}#)
+ #{value\ 3957}#)))
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote global-call))
+ (#{chi-application\ 2585}#
+ (#{build-global-reference\ 2432}#
+ (#{source-annotation\ 2475}# (car #{e\ 3958}#))
+ (if (#{syntax-object?\ 2460}# #{value\ 3957}#)
+ (#{syntax-object-expression\ 2462}#
+ #{value\ 3957}#)
+ #{value\ 3957}#)
+ (if (#{syntax-object?\ 2460}# #{value\ 3957}#)
+ (#{syntax-object-module\ 2466}# #{value\ 3957}#)
+ #{mod\ 3962}#))
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote constant))
+ (#{build-data\ 2446}#
+ #{s\ 3961}#
+ (#{strip\ 2607}#
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
'(())))
- (if (eqv? #{type\ 1848}# (quote global))
- (#{build-global-reference\ 322}#
- #{s\ 1853}#
- #{value\ 1849}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote call))
- (#{chi-application\ 477}#
- (#{chi\ 473}#
- (car #{e\ 1850}#)
- #{r\ 1851}#
- #{w\ 1852}#
- #{mod\ 1854}#)
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (if (eqv? #{type\ 1848}# (quote begin-form))
- (let ((#{tmp\ 1884}# #{e\ 1850}#))
- (let ((#{tmp\ 1885}#
+ (if (eqv? #{type\ 3956}# (quote global))
+ (#{build-global-reference\ 2432}#
+ #{s\ 3961}#
+ #{value\ 3957}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote call))
+ (#{chi-application\ 2585}#
+ (#{chi\ 2581}#
+ (car #{e\ 3958}#)
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{mod\ 3962}#)
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (if (eqv? #{type\ 3956}# (quote begin-form))
+ (let ((#{tmp\ 3992}# #{e\ 3958}#))
+ (let ((#{tmp\ 3993}#
($sc-dispatch
- #{tmp\ 1884}#
+ #{tmp\ 3992}#
'(any any . each-any))))
- (if #{tmp\ 1885}#
+ (if #{tmp\ 3993}#
(@apply
- (lambda (#{_\ 1889}#
- #{e1\ 1890}#
- #{e2\ 1891}#)
- (#{chi-sequence\ 461}#
- (cons #{e1\ 1890}# #{e2\ 1891}#)
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))
- #{tmp\ 1885}#)
+ (lambda (#{_\ 3997}#
+ #{e1\ 3998}#
+ #{e2\ 3999}#)
+ (#{chi-sequence\ 2569}#
+ (cons #{e1\ 3998}# #{e2\ 3999}#)
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))
+ #{tmp\ 3993}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1884}#))))
- (if (eqv? #{type\ 1848}#
+ #{tmp\ 3992}#))))
+ (if (eqv? #{type\ 3956}#
'local-syntax-form)
- (#{chi-local-syntax\ 483}#
- #{value\ 1849}#
- #{e\ 1850}#
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#
- #{chi-sequence\ 461}#)
- (if (eqv? #{type\ 1848}#
+ (#{chi-local-syntax\ 2591}#
+ #{value\ 3957}#
+ #{e\ 3958}#
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#
+ #{chi-sequence\ 2569}#)
+ (if (eqv? #{type\ 3956}#
'eval-when-form)
- (let ((#{tmp\ 1895}# #{e\ 1850}#))
- (let ((#{tmp\ 1896}#
+ (let ((#{tmp\ 4003}# #{e\ 3958}#))
+ (let ((#{tmp\ 4004}#
($sc-dispatch
- #{tmp\ 1895}#
+ #{tmp\ 4003}#
'(any each-any
any
.
each-any))))
- (if #{tmp\ 1896}#
+ (if #{tmp\ 4004}#
(@apply
- (lambda (#{_\ 1901}#
- #{x\ 1902}#
- #{e1\ 1903}#
- #{e2\ 1904}#)
+ (lambda (#{_\ 4009}#
+ #{x\ 4010}#
+ #{e1\ 4011}#
+ #{e2\ 4012}#)
(begin
- (let ((#{when-list\ 1906}#
- (#{chi-when-list\ 467}#
- #{e\ 1850}#
- #{x\ 1902}#
- #{w\ 1852}#)))
+ (let ((#{when-list\ 4014}#
+ (#{chi-when-list\ 2575}#
+ #{e\ 3958}#
+ #{x\ 4010}#
+ #{w\ 3960}#)))
(if (memq 'eval
- #{when-list\ 1906}#)
- (#{chi-sequence\ 461}#
- (cons #{e1\ 1903}#
- #{e2\ 1904}#)
- #{r\ 1851}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#)
- (#{chi-void\ 487}#)))))
- #{tmp\ 1896}#)
+ #{when-list\ 4014}#)
+ (#{chi-sequence\ 2569}#
+ (cons #{e1\ 4011}#
+ #{e2\ 4012}#)
+ #{r\ 3959}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#)
+ (#{chi-void\ 2595}#)))))
+ #{tmp\ 4004}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1895}#))))
- (if (if (eqv? #{type\ 1848}#
+ #{tmp\ 4003}#))))
+ (if (if (eqv? #{type\ 3956}#
'define-form)
#t
- (eqv? #{type\ 1848}#
+ (eqv? #{type\ 3956}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1850}#
- (#{wrap\ 457}#
- #{value\ 1849}#
- #{w\ 1852}#
- #{mod\ 1854}#))
- (if (eqv? #{type\ 1848}# (quote syntax))
+ #{e\ 3958}#
+ (#{wrap\ 2565}#
+ #{value\ 3957}#
+ #{w\ 3960}#
+ #{mod\ 3962}#))
+ (if (eqv? #{type\ 3956}# (quote syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))
- (if (eqv? #{type\ 1848}#
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))
+ (if (eqv? #{type\ 3956}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 459}#
- #{e\ 1850}#
- #{w\ 1852}#
- #{s\ 1853}#
- #{mod\ 1854}#))))))))))))))))))
- (#{chi-application\ 477}#
- (lambda (#{x\ 1913}#
- #{e\ 1914}#
- #{r\ 1915}#
- #{w\ 1916}#
- #{s\ 1917}#
- #{mod\ 1918}#)
- (let ((#{tmp\ 1925}# #{e\ 1914}#))
- (let ((#{tmp\ 1926}#
+ (#{source-wrap\ 2567}#
+ #{e\ 3958}#
+ #{w\ 3960}#
+ #{s\ 3961}#
+ #{mod\ 3962}#))))))))))))))))))
+ (#{chi-application\ 2585}#
+ (lambda (#{x\ 4021}#
+ #{e\ 4022}#
+ #{r\ 4023}#
+ #{w\ 4024}#
+ #{s\ 4025}#
+ #{mod\ 4026}#)
+ (let ((#{tmp\ 4033}# #{e\ 4022}#))
+ (let ((#{tmp\ 4034}#
($sc-dispatch
- #{tmp\ 1925}#
+ #{tmp\ 4033}#
'(any . each-any))))
- (if #{tmp\ 1926}#
+ (if #{tmp\ 4034}#
(@apply
- (lambda (#{e0\ 1929}# #{e1\ 1930}#)
- (#{build-application\ 310}#
- #{s\ 1917}#
- #{x\ 1913}#
- (map (lambda (#{e\ 1931}#)
- (#{chi\ 473}#
- #{e\ 1931}#
- #{r\ 1915}#
- #{w\ 1916}#
- #{mod\ 1918}#))
- #{e1\ 1930}#)))
- #{tmp\ 1926}#)
+ (lambda (#{e0\ 4037}# #{e1\ 4038}#)
+ (#{build-application\ 2420}#
+ #{s\ 4025}#
+ #{x\ 4021}#
+ (map (lambda (#{e\ 4039}#)
+ (#{chi\ 2581}#
+ #{e\ 4039}#
+ #{r\ 4023}#
+ #{w\ 4024}#
+ #{mod\ 4026}#))
+ #{e1\ 4038}#)))
+ #{tmp\ 4034}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1925}#))))))
- (#{chi-macro\ 479}#
- (lambda (#{p\ 1934}#
- #{e\ 1935}#
- #{r\ 1936}#
- #{w\ 1937}#
- #{s\ 1938}#
- #{rib\ 1939}#
- #{mod\ 1940}#)
+ #{tmp\ 4033}#))))))
+ (#{chi-macro\ 2587}#
+ (lambda (#{p\ 4042}#
+ #{e\ 4043}#
+ #{r\ 4044}#
+ #{w\ 4045}#
+ #{s\ 4046}#
+ #{rib\ 4047}#
+ #{mod\ 4048}#)
(letrec*
- ((#{rebuild-macro-output\ 1949}#
- (lambda (#{x\ 1950}# #{m\ 1951}#)
- (if (pair? #{x\ 1950}#)
- (#{decorate-source\ 306}#
- (cons (#{rebuild-macro-output\ 1949}#
- (car #{x\ 1950}#)
- #{m\ 1951}#)
- (#{rebuild-macro-output\ 1949}#
- (cdr #{x\ 1950}#)
- #{m\ 1951}#))
- #{s\ 1938}#)
- (if (#{syntax-object?\ 352}# #{x\ 1950}#)
+ ((#{rebuild-macro-output\ 4057}#
+ (lambda (#{x\ 4058}# #{m\ 4059}#)
+ (if (pair? #{x\ 4058}#)
+ (#{decorate-source\ 2414}#
+ (cons (#{rebuild-macro-output\ 4057}#
+ (car #{x\ 4058}#)
+ #{m\ 4059}#)
+ (#{rebuild-macro-output\ 4057}#
+ (cdr #{x\ 4058}#)
+ #{m\ 4059}#))
+ #{s\ 4046}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 4058}#)
(begin
- (let ((#{w\ 1959}#
- (#{syntax-object-wrap\ 356}# #{x\ 1950}#)))
+ (let ((#{w\ 4067}#
+ (#{syntax-object-wrap\ 2464}# #{x\ 4058}#)))
(begin
- (let ((#{ms\ 1962}#
- (#{wrap-marks\ 395}# #{w\ 1959}#))
- (#{s\ 1963}#
- (#{wrap-subst\ 397}# #{w\ 1959}#)))
- (if (if (pair? #{ms\ 1962}#)
- (eq? (car #{ms\ 1962}#) #f)
+ (let ((#{ms\ 4070}#
+ (#{wrap-marks\ 2503}# #{w\ 4067}#))
+ (#{s\ 4071}#
+ (#{wrap-subst\ 2505}# #{w\ 4067}#)))
+ (if (if (pair? #{ms\ 4070}#)
+ (eq? (car #{ms\ 4070}#) #f)
#f)
- (#{make-syntax-object\ 350}#
- (#{syntax-object-expression\ 354}#
- #{x\ 1950}#)
- (#{make-wrap\ 393}#
- (cdr #{ms\ 1962}#)
- (if #{rib\ 1939}#
- (cons #{rib\ 1939}# (cdr #{s\ 1963}#))
- (cdr #{s\ 1963}#)))
- (#{syntax-object-module\ 358}#
- #{x\ 1950}#))
- (#{make-syntax-object\ 350}#
- (#{decorate-source\ 306}#
- (#{syntax-object-expression\ 354}#
- #{x\ 1950}#)
- #{s\ 1963}#)
- (#{make-wrap\ 393}#
- (cons #{m\ 1951}# #{ms\ 1962}#)
- (if #{rib\ 1939}#
- (cons #{rib\ 1939}#
- (cons (quote shift) #{s\ 1963}#))
- (cons (quote shift) #{s\ 1963}#)))
- (#{syntax-object-module\ 358}#
- #{x\ 1950}#)))))))
- (if (vector? #{x\ 1950}#)
+ (#{make-syntax-object\ 2458}#
+ (#{syntax-object-expression\ 2462}#
+ #{x\ 4058}#)
+ (#{make-wrap\ 2501}#
+ (cdr #{ms\ 4070}#)
+ (if #{rib\ 4047}#
+ (cons #{rib\ 4047}# (cdr #{s\ 4071}#))
+ (cdr #{s\ 4071}#)))
+ (#{syntax-object-module\ 2466}#
+ #{x\ 4058}#))
+ (#{make-syntax-object\ 2458}#
+ (#{decorate-source\ 2414}#
+ (#{syntax-object-expression\ 2462}#
+ #{x\ 4058}#)
+ #{s\ 4071}#)
+ (#{make-wrap\ 2501}#
+ (cons #{m\ 4059}# #{ms\ 4070}#)
+ (if #{rib\ 4047}#
+ (cons #{rib\ 4047}#
+ (cons (quote shift) #{s\ 4071}#))
+ (cons (quote shift) #{s\ 4071}#)))
+ (#{syntax-object-module\ 2466}#
+ #{x\ 4058}#)))))))
+ (if (vector? #{x\ 4058}#)
(begin
- (let ((#{n\ 1971}# (vector-length #{x\ 1950}#)))
+ (let ((#{n\ 4079}# (vector-length #{x\ 4058}#)))
(begin
- (let ((#{v\ 1973}#
- (#{decorate-source\ 306}#
- (make-vector #{n\ 1971}#)
- #{x\ 1950}#)))
+ (let ((#{v\ 4081}#
+ (#{decorate-source\ 2414}#
+ (make-vector #{n\ 4079}#)
+ #{x\ 4058}#)))
(letrec*
- ((#{loop\ 1976}#
- (lambda (#{i\ 1977}#)
- (if (#{fx=\ 293}#
- #{i\ 1977}#
- #{n\ 1971}#)
- (begin (if #f #f) #{v\ 1973}#)
+ ((#{loop\ 4084}#
+ (lambda (#{i\ 4085}#)
+ (if (#{fx=\ 2401}#
+ #{i\ 4085}#
+ #{n\ 4079}#)
+ (begin (if #f #f) #{v\ 4081}#)
(begin
(vector-set!
- #{v\ 1973}#
- #{i\ 1977}#
- (#{rebuild-macro-output\ 1949}#
+ #{v\ 4081}#
+ #{i\ 4085}#
+ (#{rebuild-macro-output\ 4057}#
(vector-ref
- #{x\ 1950}#
- #{i\ 1977}#)
- #{m\ 1951}#))
- (#{loop\ 1976}#
- (#{fx+\ 289}#
- #{i\ 1977}#
+ #{x\ 4058}#
+ #{i\ 4085}#)
+ #{m\ 4059}#))
+ (#{loop\ 4084}#
+ (#{fx+\ 2397}#
+ #{i\ 4085}#
1)))))))
- (begin (#{loop\ 1976}# 0)))))))
- (if (symbol? #{x\ 1950}#)
+ (begin (#{loop\ 4084}# 0)))))))
+ (if (symbol? #{x\ 4058}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 459}#
- #{e\ 1935}#
- #{w\ 1937}#
- (#{wrap-subst\ 397}# #{w\ 1937}#)
- #{mod\ 1940}#)
- #{x\ 1950}#)
- (#{decorate-source\ 306}#
- #{x\ 1950}#
- #{s\ 1938}#))))))))
+ (#{source-wrap\ 2567}#
+ #{e\ 4043}#
+ #{w\ 4045}#
+ (#{wrap-subst\ 2505}# #{w\ 4045}#)
+ #{mod\ 4048}#)
+ #{x\ 4058}#)
+ (#{decorate-source\ 2414}#
+ #{x\ 4058}#
+ #{s\ 4046}#))))))))
(begin
- (#{rebuild-macro-output\ 1949}#
- (#{p\ 1934}#
- (#{source-wrap\ 459}#
- #{e\ 1935}#
- (#{anti-mark\ 429}# #{w\ 1937}#)
- #{s\ 1938}#
- #{mod\ 1940}#))
+ (#{rebuild-macro-output\ 4057}#
+ (#{p\ 4042}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4043}#
+ (#{anti-mark\ 2537}# #{w\ 4045}#)
+ #{s\ 4046}#
+ #{mod\ 4048}#))
(gensym "m"))))))
- (#{chi-body\ 481}#
- (lambda (#{body\ 1984}#
- #{outer-form\ 1985}#
- #{r\ 1986}#
- #{w\ 1987}#
- #{mod\ 1988}#)
+ (#{chi-body\ 2589}#
+ (lambda (#{body\ 4092}#
+ #{outer-form\ 4093}#
+ #{r\ 4094}#
+ #{w\ 4095}#
+ #{mod\ 4096}#)
(begin
- (let ((#{r\ 1996}#
+ (let ((#{r\ 4104}#
(cons '("placeholder" placeholder)
- #{r\ 1986}#)))
+ #{r\ 4094}#)))
(begin
- (let ((#{ribcage\ 1998}#
- (#{make-ribcage\ 409}#
+ (let ((#{ribcage\ 4106}#
+ (#{make-ribcage\ 2517}#
'()
'()
'())))
(begin
- (let ((#{w\ 2001}#
- (#{make-wrap\ 393}#
- (#{wrap-marks\ 395}# #{w\ 1987}#)
- (cons #{ribcage\ 1998}#
- (#{wrap-subst\ 397}# #{w\ 1987}#)))))
+ (let ((#{w\ 4109}#
+ (#{make-wrap\ 2501}#
+ (#{wrap-marks\ 2503}# #{w\ 4095}#)
+ (cons #{ribcage\ 4106}#
+ (#{wrap-subst\ 2505}# #{w\ 4095}#)))))
(letrec*
- ((#{parse\ 2010}#
- (lambda (#{body\ 2011}#
- #{ids\ 2012}#
- #{labels\ 2013}#
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
- #{bindings\ 2017}#)
- (if (null? #{body\ 2011}#)
+ ((#{parse\ 4118}#
+ (lambda (#{body\ 4119}#
+ #{ids\ 4120}#
+ #{labels\ 4121}#
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
+ #{bindings\ 4125}#)
+ (if (null? #{body\ 4119}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1985}#)
+ #{outer-form\ 4093}#)
(begin
- (let ((#{e\ 2022}#
- (cdr (car #{body\ 2011}#)))
- (#{er\ 2023}#
- (car (car #{body\ 2011}#))))
+ (let ((#{e\ 4130}#
+ (cdr (car #{body\ 4119}#)))
+ (#{er\ 4131}#
+ (car (car #{body\ 4119}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{e\ 2022}#
- #{er\ 2023}#
+ (#{syntax-type\ 2577}#
+ #{e\ 4130}#
+ #{er\ 4131}#
'(())
- (#{source-annotation\ 367}#
- #{er\ 2023}#)
- #{ribcage\ 1998}#
- #{mod\ 1988}#
+ (#{source-annotation\ 2475}#
+ #{er\ 4131}#)
+ #{ribcage\ 4106}#
+ #{mod\ 4096}#
#f))
- (lambda (#{type\ 2025}#
- #{value\ 2026}#
- #{e\ 2027}#
- #{w\ 2028}#
- #{s\ 2029}#
- #{mod\ 2030}#)
- (if (eqv? #{type\ 2025}#
+ (lambda (#{type\ 4133}#
+ #{value\ 4134}#
+ #{e\ 4135}#
+ #{w\ 4136}#
+ #{s\ 4137}#
+ #{mod\ 4138}#)
+ (if (eqv? #{type\ 4133}#
'define-form)
(begin
- (let ((#{id\ 2040}#
- (#{wrap\ 457}#
- #{value\ 2026}#
- #{w\ 2028}#
- #{mod\ 2030}#))
- (#{label\ 2041}#
- (#{gen-label\ 404}#)))
+ (let ((#{id\ 4148}#
+ (#{wrap\ 2565}#
+ #{value\ 4134}#
+ #{w\ 4136}#
+ #{mod\ 4138}#))
+ (#{label\ 4149}#
+ (#{gen-label\ 2512}#)))
(begin
- (let ((#{var\ 2043}#
- (#{gen-var\ 501}#
- #{id\ 2040}#)))
+ (let ((#{var\ 4151}#
+ (#{gen-var\ 2609}#
+ #{id\ 4148}#)))
(begin
- (#{extend-ribcage!\ 433}#
- #{ribcage\ 1998}#
- #{id\ 2040}#
- #{label\ 2041}#)
- (#{parse\ 2010}#
- (cdr #{body\ 2011}#)
- (cons #{id\ 2040}#
- #{ids\ 2012}#)
- (cons #{label\ 2041}#
- #{labels\ 2013}#)
- (cons #{id\ 2040}#
- #{var-ids\ 2014}#)
- (cons #{var\ 2043}#
- #{vars\ 2015}#)
- (cons (cons #{er\ 2023}#
- (#{wrap\ 457}#
- #{e\ 2027}#
- #{w\ 2028}#
- #{mod\ 2030}#))
- #{vals\ 2016}#)
+ (#{extend-ribcage!\ 2541}#
+ #{ribcage\ 4106}#
+ #{id\ 4148}#
+ #{label\ 4149}#)
+ (#{parse\ 4118}#
+ (cdr #{body\ 4119}#)
+ (cons #{id\ 4148}#
+ #{ids\ 4120}#)
+ (cons #{label\ 4149}#
+ #{labels\ 4121}#)
+ (cons #{id\ 4148}#
+ #{var-ids\ 4122}#)
+ (cons #{var\ 4151}#
+ #{vars\ 4123}#)
+ (cons (cons #{er\ 4131}#
+ (#{wrap\ 2565}#
+ #{e\ 4135}#
+ #{w\ 4136}#
+ #{mod\ 4138}#))
+ #{vals\ 4124}#)
(cons (cons 'lexical
- #{var\ 2043}#)
- #{bindings\ 2017}#)))))))
- (if (eqv? #{type\ 2025}#
+ #{var\ 4151}#)
+ #{bindings\ 4125}#)))))))
+ (if (eqv? #{type\ 4133}#
'define-syntax-form)
(begin
- (let ((#{id\ 2048}#
- (#{wrap\ 457}#
- #{value\ 2026}#
- #{w\ 2028}#
- #{mod\ 2030}#))
- (#{label\ 2049}#
- (#{gen-label\ 404}#)))
+ (let ((#{id\ 4156}#
+ (#{wrap\ 2565}#
+ #{value\ 4134}#
+ #{w\ 4136}#
+ #{mod\ 4138}#))
+ (#{label\ 4157}#
+ (#{gen-label\ 2512}#)))
(begin
- (#{extend-ribcage!\ 433}#
- #{ribcage\ 1998}#
- #{id\ 2048}#
- #{label\ 2049}#)
- (#{parse\ 2010}#
- (cdr #{body\ 2011}#)
- (cons #{id\ 2048}#
- #{ids\ 2012}#)
- (cons #{label\ 2049}#
- #{labels\ 2013}#)
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
+ (#{extend-ribcage!\ 2541}#
+ #{ribcage\ 4106}#
+ #{id\ 4156}#
+ #{label\ 4157}#)
+ (#{parse\ 4118}#
+ (cdr #{body\ 4119}#)
+ (cons #{id\ 4156}#
+ #{ids\ 4120}#)
+ (cons #{label\ 4157}#
+ #{labels\ 4121}#)
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
(cons (cons 'macro
- (cons #{er\ 2023}#
- (#{wrap\ 457}#
- #{e\ 2027}#
- #{w\ 2028}#
- #{mod\ 2030}#)))
- #{bindings\ 2017}#)))))
- (if (eqv? #{type\ 2025}#
+ (cons #{er\ 4131}#
+ (#{wrap\ 2565}#
+ #{e\ 4135}#
+ #{w\ 4136}#
+ #{mod\ 4138}#)))
+ #{bindings\ 4125}#)))))
+ (if (eqv? #{type\ 4133}#
'begin-form)
- (let ((#{tmp\ 2052}#
- #{e\ 2027}#))
- (let ((#{tmp\ 2053}#
+ (let ((#{tmp\ 4160}#
+ #{e\ 4135}#))
+ (let ((#{tmp\ 4161}#
($sc-dispatch
- #{tmp\ 2052}#
+ #{tmp\ 4160}#
'(any .
each-any))))
- (if #{tmp\ 2053}#
+ (if #{tmp\ 4161}#
(@apply
- (lambda (#{_\ 2056}#
- #{e1\ 2057}#)
- (#{parse\ 2010}#
+ (lambda (#{_\ 4164}#
+ #{e1\ 4165}#)
+ (#{parse\ 4118}#
(letrec*
- ((#{f\ 2060}#
- (lambda (#{forms\ 2061}#)
- (if (null? #{forms\ 2061}#)
- (cdr #{body\ 2011}#)
- (cons (cons #{er\ 2023}#
- (#{wrap\ 457}#
- (car #{forms\ 2061}#)
- #{w\ 2028}#
- #{mod\ 2030}#))
- (#{f\ 2060}#
- (cdr #{forms\ 2061}#)))))))
+ ((#{f\ 4168}#
+ (lambda (#{forms\ 4169}#)
+ (if (null? #{forms\ 4169}#)
+ (cdr #{body\ 4119}#)
+ (cons (cons #{er\ 4131}#
+ (#{wrap\ 2565}#
+ (car #{forms\ 4169}#)
+ #{w\ 4136}#
+ #{mod\ 4138}#))
+ (#{f\ 4168}#
+ (cdr #{forms\ 4169}#)))))))
(begin
- (#{f\ 2060}#
- #{e1\ 2057}#)))
- #{ids\ 2012}#
- #{labels\ 2013}#
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
- #{bindings\ 2017}#))
- #{tmp\ 2053}#)
+ (#{f\ 4168}#
+ #{e1\ 4165}#)))
+ #{ids\ 4120}#
+ #{labels\ 4121}#
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
+ #{bindings\ 4125}#))
+ #{tmp\ 4161}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2052}#))))
- (if (eqv? #{type\ 2025}#
+ #{tmp\ 4160}#))))
+ (if (eqv? #{type\ 4133}#
'local-syntax-form)
- (#{chi-local-syntax\ 483}#
- #{value\ 2026}#
- #{e\ 2027}#
- #{er\ 2023}#
- #{w\ 2028}#
- #{s\ 2029}#
- #{mod\ 2030}#
- (lambda (#{forms\ 2064}#
- #{er\ 2065}#
- #{w\ 2066}#
- #{s\ 2067}#
- #{mod\ 2068}#)
- (#{parse\ 2010}#
+ (#{chi-local-syntax\ 2591}#
+ #{value\ 4134}#
+ #{e\ 4135}#
+ #{er\ 4131}#
+ #{w\ 4136}#
+ #{s\ 4137}#
+ #{mod\ 4138}#
+ (lambda (#{forms\ 4172}#
+ #{er\ 4173}#
+ #{w\ 4174}#
+ #{s\ 4175}#
+ #{mod\ 4176}#)
+ (#{parse\ 4118}#
(letrec*
- ((#{f\ 2076}#
- (lambda (#{forms\ 2077}#)
- (if (null? #{forms\ 2077}#)
- (cdr #{body\ 2011}#)
- (cons (cons #{er\ 2065}#
- (#{wrap\ 457}#
- (car #{forms\ 2077}#)
- #{w\ 2066}#
- #{mod\ 2068}#))
- (#{f\ 2076}#
- (cdr #{forms\ 2077}#)))))))
+ ((#{f\ 4184}#
+ (lambda (#{forms\ 4185}#)
+ (if (null? #{forms\ 4185}#)
+ (cdr #{body\ 4119}#)
+ (cons (cons #{er\ 4173}#
+ (#{wrap\ 2565}#
+ (car #{forms\ 4185}#)
+ #{w\ 4174}#
+ #{mod\ 4176}#))
+ (#{f\ 4184}#
+ (cdr #{forms\ 4185}#)))))))
(begin
- (#{f\ 2076}#
- #{forms\ 2064}#)))
- #{ids\ 2012}#
- #{labels\ 2013}#
- #{var-ids\ 2014}#
- #{vars\ 2015}#
- #{vals\ 2016}#
- #{bindings\ 2017}#)))
- (if (null? #{ids\ 2012}#)
- (#{build-sequence\ 340}#
+ (#{f\ 4184}#
+ #{forms\ 4172}#)))
+ #{ids\ 4120}#
+ #{labels\ 4121}#
+ #{var-ids\ 4122}#
+ #{vars\ 4123}#
+ #{vals\ 4124}#
+ #{bindings\ 4125}#)))
+ (if (null? #{ids\ 4120}#)
+ (#{build-sequence\ 2448}#
#f
- (map (lambda (#{x\ 2080}#)
- (#{chi\ 473}#
- (cdr #{x\ 2080}#)
- (car #{x\ 2080}#)
+ (map (lambda (#{x\ 4188}#)
+ (#{chi\ 2581}#
+ (cdr #{x\ 4188}#)
+ (car #{x\ 4188}#)
'(())
- #{mod\ 2030}#))
- (cons (cons #{er\ 2023}#
- (#{source-wrap\ 459}#
- #{e\ 2027}#
- #{w\ 2028}#
- #{s\ 2029}#
- #{mod\ 2030}#))
- (cdr #{body\ 2011}#))))
+ #{mod\ 4138}#))
+ (cons (cons #{er\ 4131}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4135}#
+ #{w\ 4136}#
+ #{s\ 4137}#
+ #{mod\ 4138}#))
+ (cdr #{body\ 4119}#))))
(begin
- (if (not (#{valid-bound-ids?\ 451}#
- #{ids\ 2012}#))
+ (if (not (#{valid-bound-ids?\ 2559}#
+ #{ids\ 4120}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 1985}#))
+ #{outer-form\ 4093}#))
(letrec*
- ((#{loop\ 2087}#
- (lambda (#{bs\ 2088}#
- #{er-cache\ 2089}#
- #{r-cache\ 2090}#)
- (if (not (null? #{bs\ 2088}#))
+ ((#{loop\ 4195}#
+ (lambda (#{bs\ 4196}#
+ #{er-cache\ 4197}#
+ #{r-cache\ 4198}#)
+ (if (not (null? #{bs\ 4196}#))
(begin
- (let ((#{b\ 2093}#
- (car #{bs\ 2088}#)))
- (if (eq? (car #{b\ 2093}#)
+ (let ((#{b\ 4201}#
+ (car #{bs\ 4196}#)))
+ (if (eq? (car #{b\ 4201}#)
'macro)
(begin
- (let ((#{er\ 2096}#
- (car (cdr #{b\ 2093}#))))
+ (let ((#{er\ 4204}#
+ (car (cdr #{b\ 4201}#))))
(begin
- (let ((#{r-cache\ 2098}#
- (if (eq? #{er\ 2096}#
- #{er-cache\ 2089}#)
- #{r-cache\ 2090}#
- (#{macros-only-env\ 380}#
- #{er\ 2096}#))))
+ (let ((#{r-cache\ 4206}#
+ (if (eq? #{er\ 4204}#
+ #{er-cache\ 4197}#)
+ #{r-cache\ 4198}#
+ (#{macros-only-env\ 2488}#
+ #{er\ 4204}#))))
(begin
(set-cdr!
- #{b\ 2093}#
- (#{eval-local-transformer\ 485}#
- (#{chi\ 473}#
- (cdr (cdr #{b\ 2093}#))
- #{r-cache\ 2098}#
+ #{b\ 4201}#
+ (#{eval-local-transformer\ 2593}#
+ (#{chi\ 2581}#
+ (cdr (cdr #{b\ 4201}#))
+ #{r-cache\ 4206}#
'(())
- #{mod\ 2030}#)
- #{mod\ 2030}#))
- (#{loop\ 2087}#
- (cdr #{bs\ 2088}#)
- #{er\ 2096}#
- #{r-cache\ 2098}#))))))
- (#{loop\ 2087}#
- (cdr #{bs\ 2088}#)
- #{er-cache\ 2089}#
- #{r-cache\ 2090}#))))))))
+ #{mod\ 4138}#)
+ #{mod\ 4138}#))
+ (#{loop\ 4195}#
+ (cdr #{bs\ 4196}#)
+ #{er\ 4204}#
+ #{r-cache\ 4206}#))))))
+ (#{loop\ 4195}#
+ (cdr #{bs\ 4196}#)
+ #{er-cache\ 4197}#
+ #{r-cache\ 4198}#))))))))
(begin
- (#{loop\ 2087}#
- #{bindings\ 2017}#
+ (#{loop\ 4195}#
+ #{bindings\ 4125}#
#f
#f)))
(set-cdr!
- #{r\ 1996}#
- (#{extend-env\ 376}#
- #{labels\ 2013}#
- #{bindings\ 2017}#
- (cdr #{r\ 1996}#)))
- (#{build-letrec\ 346}#
+ #{r\ 4104}#
+ (#{extend-env\ 2484}#
+ #{labels\ 4121}#
+ #{bindings\ 4125}#
+ (cdr #{r\ 4104}#)))
+ (#{build-letrec\ 2454}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\ 2014}#))
+ #{var-ids\ 4122}#))
(reverse
- #{vars\ 2015}#)
- (map (lambda (#{x\ 2101}#)
- (#{chi\ 473}#
- (cdr #{x\ 2101}#)
- (car #{x\ 2101}#)
+ #{vars\ 4123}#)
+ (map (lambda (#{x\ 4209}#)
+ (#{chi\ 2581}#
+ (cdr #{x\ 4209}#)
+ (car #{x\ 4209}#)
'(())
- #{mod\ 2030}#))
+ #{mod\ 4138}#))
(reverse
- #{vals\ 2016}#))
- (#{build-sequence\ 340}#
+ #{vals\ 4124}#))
+ (#{build-sequence\ 2448}#
#f
- (map (lambda (#{x\ 2105}#)
- (#{chi\ 473}#
- (cdr #{x\ 2105}#)
- (car #{x\ 2105}#)
+ (map (lambda (#{x\ 4213}#)
+ (#{chi\ 2581}#
+ (cdr #{x\ 4213}#)
+ (car #{x\ 4213}#)
'(())
- #{mod\ 2030}#))
- (cons (cons #{er\ 2023}#
- (#{source-wrap\ 459}#
- #{e\ 2027}#
- #{w\ 2028}#
- #{s\ 2029}#
- #{mod\ 2030}#))
- (cdr #{body\ 2011}#)))))))))))))))))))
+ #{mod\ 4138}#))
+ (cons (cons #{er\ 4131}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4135}#
+ #{w\ 4136}#
+ #{s\ 4137}#
+ #{mod\ 4138}#))
+ (cdr #{body\ 4119}#)))))))))))))))))))
(begin
- (#{parse\ 2010}#
- (map (lambda (#{x\ 2018}#)
- (cons #{r\ 1996}#
- (#{wrap\ 457}#
- #{x\ 2018}#
- #{w\ 2001}#
- #{mod\ 1988}#)))
- #{body\ 1984}#)
+ (#{parse\ 4118}#
+ (map (lambda (#{x\ 4126}#)
+ (cons #{r\ 4104}#
+ (#{wrap\ 2565}#
+ #{x\ 4126}#
+ #{w\ 4109}#
+ #{mod\ 4096}#)))
+ #{body\ 4092}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 483}#
- (lambda (#{rec?\ 2108}#
- #{e\ 2109}#
- #{r\ 2110}#
- #{w\ 2111}#
- #{s\ 2112}#
- #{mod\ 2113}#
- #{k\ 2114}#)
- (let ((#{tmp\ 2122}# #{e\ 2109}#))
- (let ((#{tmp\ 2123}#
+ (#{chi-local-syntax\ 2591}#
+ (lambda (#{rec?\ 4216}#
+ #{e\ 4217}#
+ #{r\ 4218}#
+ #{w\ 4219}#
+ #{s\ 4220}#
+ #{mod\ 4221}#
+ #{k\ 4222}#)
+ (let ((#{tmp\ 4230}# #{e\ 4217}#))
+ (let ((#{tmp\ 4231}#
($sc-dispatch
- #{tmp\ 2122}#
+ #{tmp\ 4230}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 2123}#
+ (if #{tmp\ 4231}#
(@apply
- (lambda (#{_\ 2129}#
- #{id\ 2130}#
- #{val\ 2131}#
- #{e1\ 2132}#
- #{e2\ 2133}#)
+ (lambda (#{_\ 4237}#
+ #{id\ 4238}#
+ #{val\ 4239}#
+ #{e1\ 4240}#
+ #{e2\ 4241}#)
(begin
- (let ((#{ids\ 2135}# #{id\ 2130}#))
- (if (not (#{valid-bound-ids?\ 451}# #{ids\ 2135}#))
+ (let ((#{ids\ 4243}# #{id\ 4238}#))
+ (if (not (#{valid-bound-ids?\ 2559}# #{ids\ 4243}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 2109}#)
+ #{e\ 4217}#)
(begin
- (let ((#{labels\ 2138}#
- (#{gen-labels\ 406}# #{ids\ 2135}#)))
+ (let ((#{labels\ 4246}#
+ (#{gen-labels\ 2514}# #{ids\ 4243}#)))
(begin
- (let ((#{new-w\ 2140}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 2135}#
- #{labels\ 2138}#
- #{w\ 2111}#)))
- (#{k\ 2114}#
- (cons #{e1\ 2132}# #{e2\ 2133}#)
- (#{extend-env\ 376}#
- #{labels\ 2138}#
+ (let ((#{new-w\ 4248}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 4243}#
+ #{labels\ 4246}#
+ #{w\ 4219}#)))
+ (#{k\ 4222}#
+ (cons #{e1\ 4240}# #{e2\ 4241}#)
+ (#{extend-env\ 2484}#
+ #{labels\ 4246}#
(begin
- (let ((#{w\ 2144}#
- (if #{rec?\ 2108}#
- #{new-w\ 2140}#
- #{w\ 2111}#))
- (#{trans-r\ 2145}#
- (#{macros-only-env\ 380}#
- #{r\ 2110}#)))
- (map (lambda (#{x\ 2146}#)
+ (let ((#{w\ 4252}#
+ (if #{rec?\ 4216}#
+ #{new-w\ 4248}#
+ #{w\ 4219}#))
+ (#{trans-r\ 4253}#
+ (#{macros-only-env\ 2488}#
+ #{r\ 4218}#)))
+ (map (lambda (#{x\ 4254}#)
(cons 'macro
- (#{eval-local-transformer\ 485}#
- (#{chi\ 473}#
- #{x\ 2146}#
- #{trans-r\ 2145}#
- #{w\ 2144}#
- #{mod\ 2113}#)
- #{mod\ 2113}#)))
- #{val\ 2131}#)))
- #{r\ 2110}#)
- #{new-w\ 2140}#
- #{s\ 2112}#
- #{mod\ 2113}#)))))))))
- #{tmp\ 2123}#)
- (let ((#{_\ 2151}# #{tmp\ 2122}#))
+ (#{eval-local-transformer\ 2593}#
+ (#{chi\ 2581}#
+ #{x\ 4254}#
+ #{trans-r\ 4253}#
+ #{w\ 4252}#
+ #{mod\ 4221}#)
+ #{mod\ 4221}#)))
+ #{val\ 4239}#)))
+ #{r\ 4218}#)
+ #{new-w\ 4248}#
+ #{s\ 4220}#
+ #{mod\ 4221}#)))))))))
+ #{tmp\ 4231}#)
+ (let ((#{_\ 4259}# #{tmp\ 4230}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 459}#
- #{e\ 2109}#
- #{w\ 2111}#
- #{s\ 2112}#
- #{mod\ 2113}#))))))))
- (#{eval-local-transformer\ 485}#
- (lambda (#{expanded\ 2152}# #{mod\ 2153}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 4217}#
+ #{w\ 4219}#
+ #{s\ 4220}#
+ #{mod\ 4221}#))))))))
+ (#{eval-local-transformer\ 2593}#
+ (lambda (#{expanded\ 4260}# #{mod\ 4261}#)
(begin
- (let ((#{p\ 2157}#
- (#{local-eval-hook\ 299}#
- #{expanded\ 2152}#
- #{mod\ 2153}#)))
- (if (procedure? #{p\ 2157}#)
- #{p\ 2157}#
+ (let ((#{p\ 4265}#
+ (#{local-eval-hook\ 2407}#
+ #{expanded\ 4260}#
+ #{mod\ 4261}#)))
+ (if (procedure? #{p\ 4265}#)
+ #{p\ 4265}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 2157}#))))))
- (#{chi-void\ 487}#
- (lambda () (#{build-void\ 308}# #f)))
- (#{ellipsis?\ 489}#
- (lambda (#{x\ 2159}#)
- (if (#{nonsymbol-id?\ 386}# #{x\ 2159}#)
- (#{free-id=?\ 447}#
- #{x\ 2159}#
+ #{p\ 4265}#))))))
+ (#{chi-void\ 2595}#
+ (lambda () (#{build-void\ 2418}# #f)))
+ (#{ellipsis?\ 2597}#
+ (lambda (#{x\ 4267}#)
+ (if (#{nonsymbol-id?\ 2494}# #{x\ 4267}#)
+ (#{free-id=?\ 2555}#
+ #{x\ 4267}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2160"))
+ #(ribcage #(x) #((top)) #("i4268"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i2147" "i2146" "i2145" "i2143")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 491}#
- (lambda (#{orig-args\ 2163}#)
+ (#{lambda-formals\ 2599}#
+ (lambda (#{orig-args\ 4271}#)
(letrec*
- ((#{req\ 2166}#
- (lambda (#{args\ 2169}# #{rreq\ 2170}#)
- (let ((#{tmp\ 2173}# #{args\ 2169}#))
- (let ((#{tmp\ 2174}#
- ($sc-dispatch #{tmp\ 2173}# (quote ()))))
- (if #{tmp\ 2174}#
+ ((#{req\ 4274}#
+ (lambda (#{args\ 4277}# #{rreq\ 4278}#)
+ (let ((#{tmp\ 4281}# #{args\ 4277}#))
+ (let ((#{tmp\ 4282}#
+ ($sc-dispatch #{tmp\ 4281}# (quote ()))))
+ (if #{tmp\ 4282}#
(@apply
(lambda ()
- (#{check\ 2168}# (reverse #{rreq\ 2170}#) #f))
- #{tmp\ 2174}#)
- (let ((#{tmp\ 2175}#
+ (#{check\ 4276}# (reverse #{rreq\ 4278}#) #f))
+ #{tmp\ 4282}#)
+ (let ((#{tmp\ 4283}#
($sc-dispatch
- #{tmp\ 2173}#
+ #{tmp\ 4281}#
'(any . any))))
- (if (if #{tmp\ 2175}#
+ (if (if #{tmp\ 4283}#
(@apply
- (lambda (#{a\ 2178}# #{b\ 2179}#)
- (#{id?\ 388}# #{a\ 2178}#))
- #{tmp\ 2175}#)
+ (lambda (#{a\ 4286}# #{b\ 4287}#)
+ (#{id?\ 2496}# #{a\ 4286}#))
+ #{tmp\ 4283}#)
#f)
(@apply
- (lambda (#{a\ 2182}# #{b\ 2183}#)
- (#{req\ 2166}#
- #{b\ 2183}#
- (cons #{a\ 2182}# #{rreq\ 2170}#)))
- #{tmp\ 2175}#)
- (let ((#{tmp\ 2184}# (list #{tmp\ 2173}#)))
- (if (if #{tmp\ 2184}#
+ (lambda (#{a\ 4290}# #{b\ 4291}#)
+ (#{req\ 4274}#
+ #{b\ 4291}#
+ (cons #{a\ 4290}# #{rreq\ 4278}#)))
+ #{tmp\ 4283}#)
+ (let ((#{tmp\ 4292}# (list #{tmp\ 4281}#)))
+ (if (if #{tmp\ 4292}#
(@apply
- (lambda (#{r\ 2186}#)
- (#{id?\ 388}# #{r\ 2186}#))
- #{tmp\ 2184}#)
+ (lambda (#{r\ 4294}#)
+ (#{id?\ 2496}# #{r\ 4294}#))
+ #{tmp\ 4292}#)
#f)
(@apply
- (lambda (#{r\ 2188}#)
- (#{check\ 2168}#
- (reverse #{rreq\ 2170}#)
- #{r\ 2188}#))
- #{tmp\ 2184}#)
- (let ((#{else\ 2190}# #{tmp\ 2173}#))
+ (lambda (#{r\ 4296}#)
+ (#{check\ 4276}#
+ (reverse #{rreq\ 4278}#)
+ #{r\ 4296}#))
+ #{tmp\ 4292}#)
+ (let ((#{else\ 4298}# #{tmp\ 4281}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 2163}#
- #{args\ 2169}#)))))))))))
- (#{check\ 2168}#
- (lambda (#{req\ 2191}# #{rest\ 2192}#)
- (if (#{distinct-bound-ids?\ 453}#
- (if #{rest\ 2192}#
- (cons #{rest\ 2192}# #{req\ 2191}#)
- #{req\ 2191}#))
- (values #{req\ 2191}# #f #{rest\ 2192}# #f)
+ #{orig-args\ 4271}#
+ #{args\ 4277}#)))))))))))
+ (#{check\ 4276}#
+ (lambda (#{req\ 4299}# #{rest\ 4300}#)
+ (if (#{distinct-bound-ids?\ 2561}#
+ (if #{rest\ 4300}#
+ (cons #{rest\ 4300}# #{req\ 4299}#)
+ #{req\ 4299}#))
+ (values #{req\ 4299}# #f #{rest\ 4300}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 2163}#)))))
+ #{orig-args\ 4271}#)))))
(begin
- (#{req\ 2166}# #{orig-args\ 2163}# (quote ()))))))
- (#{chi-simple-lambda\ 493}#
- (lambda (#{e\ 2198}#
- #{r\ 2199}#
- #{w\ 2200}#
- #{s\ 2201}#
- #{mod\ 2202}#
- #{req\ 2203}#
- #{rest\ 2204}#
- #{meta\ 2205}#
- #{body\ 2206}#)
+ (#{req\ 4274}# #{orig-args\ 4271}# (quote ()))))))
+ (#{chi-simple-lambda\ 2601}#
+ (lambda (#{e\ 4306}#
+ #{r\ 4307}#
+ #{w\ 4308}#
+ #{s\ 4309}#
+ #{mod\ 4310}#
+ #{req\ 4311}#
+ #{rest\ 4312}#
+ #{meta\ 4313}#
+ #{body\ 4314}#)
(begin
- (let ((#{ids\ 2218}#
- (if #{rest\ 2204}#
- (append #{req\ 2203}# (list #{rest\ 2204}#))
- #{req\ 2203}#)))
+ (let ((#{ids\ 4326}#
+ (if #{rest\ 4312}#
+ (append #{req\ 4311}# (list #{rest\ 4312}#))
+ #{req\ 4311}#)))
(begin
- (let ((#{vars\ 2220}#
- (map #{gen-var\ 501}# #{ids\ 2218}#)))
+ (let ((#{vars\ 4328}#
+ (map #{gen-var\ 2609}# #{ids\ 4326}#)))
(begin
- (let ((#{labels\ 2222}#
- (#{gen-labels\ 406}# #{ids\ 2218}#)))
- (#{build-simple-lambda\ 330}#
- #{s\ 2201}#
- (map syntax->datum #{req\ 2203}#)
- (if #{rest\ 2204}#
- (syntax->datum #{rest\ 2204}#)
+ (let ((#{labels\ 4330}#
+ (#{gen-labels\ 2514}# #{ids\ 4326}#)))
+ (#{build-simple-lambda\ 2438}#
+ #{s\ 4309}#
+ (map syntax->datum #{req\ 4311}#)
+ (if #{rest\ 4312}#
+ (syntax->datum #{rest\ 4312}#)
#f)
- #{vars\ 2220}#
- #{meta\ 2205}#
- (#{chi-body\ 481}#
- #{body\ 2206}#
- (#{source-wrap\ 459}#
- #{e\ 2198}#
- #{w\ 2200}#
- #{s\ 2201}#
- #{mod\ 2202}#)
- (#{extend-var-env\ 378}#
- #{labels\ 2222}#
- #{vars\ 2220}#
- #{r\ 2199}#)
- (#{make-binding-wrap\ 435}#
- #{ids\ 2218}#
- #{labels\ 2222}#
- #{w\ 2200}#)
- #{mod\ 2202}#))))))))))
- (#{lambda*-formals\ 495}#
- (lambda (#{orig-args\ 2225}#)
+ #{vars\ 4328}#
+ #{meta\ 4313}#
+ (#{chi-body\ 2589}#
+ #{body\ 4314}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4306}#
+ #{w\ 4308}#
+ #{s\ 4309}#
+ #{mod\ 4310}#)
+ (#{extend-var-env\ 2486}#
+ #{labels\ 4330}#
+ #{vars\ 4328}#
+ #{r\ 4307}#)
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 4326}#
+ #{labels\ 4330}#
+ #{w\ 4308}#)
+ #{mod\ 4310}#))))))))))
+ (#{lambda*-formals\ 2603}#
+ (lambda (#{orig-args\ 4333}#)
(letrec*
- ((#{req\ 2228}#
- (lambda (#{args\ 2237}# #{rreq\ 2238}#)
- (let ((#{tmp\ 2241}# #{args\ 2237}#))
- (let ((#{tmp\ 2242}#
- ($sc-dispatch #{tmp\ 2241}# (quote ()))))
- (if #{tmp\ 2242}#
+ ((#{req\ 4336}#
+ (lambda (#{args\ 4345}# #{rreq\ 4346}#)
+ (let ((#{tmp\ 4349}# #{args\ 4345}#))
+ (let ((#{tmp\ 4350}#
+ ($sc-dispatch #{tmp\ 4349}# (quote ()))))
+ (if #{tmp\ 4350}#
(@apply
(lambda ()
- (#{check\ 2236}#
- (reverse #{rreq\ 2238}#)
+ (#{check\ 4344}#
+ (reverse #{rreq\ 4346}#)
'()
#f
'()))
- #{tmp\ 2242}#)
- (let ((#{tmp\ 2243}#
+ #{tmp\ 4350}#)
+ (let ((#{tmp\ 4351}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 4349}#
'(any . any))))
- (if (if #{tmp\ 2243}#
+ (if (if #{tmp\ 4351}#
(@apply
- (lambda (#{a\ 2246}# #{b\ 2247}#)
- (#{id?\ 388}# #{a\ 2246}#))
- #{tmp\ 2243}#)
+ (lambda (#{a\ 4354}# #{b\ 4355}#)
+ (#{id?\ 2496}# #{a\ 4354}#))
+ #{tmp\ 4351}#)
#f)
(@apply
- (lambda (#{a\ 2250}# #{b\ 2251}#)
- (#{req\ 2228}#
- #{b\ 2251}#
- (cons #{a\ 2250}# #{rreq\ 2238}#)))
- #{tmp\ 2243}#)
- (let ((#{tmp\ 2252}#
+ (lambda (#{a\ 4358}# #{b\ 4359}#)
+ (#{req\ 4336}#
+ #{b\ 4359}#
+ (cons #{a\ 4358}# #{rreq\ 4346}#)))
+ #{tmp\ 4351}#)
+ (let ((#{tmp\ 4360}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 4349}#
'(any . any))))
- (if (if #{tmp\ 2252}#
+ (if (if #{tmp\ 4360}#
(@apply
- (lambda (#{a\ 2255}# #{b\ 2256}#)
- (eq? (syntax->datum #{a\ 2255}#)
+ (lambda (#{a\ 4363}# #{b\ 4364}#)
+ (eq? (syntax->datum #{a\ 4363}#)
#:optional))
- #{tmp\ 2252}#)
+ #{tmp\ 4360}#)
#f)
(@apply
- (lambda (#{a\ 2259}# #{b\ 2260}#)
- (#{opt\ 2230}#
- #{b\ 2260}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{a\ 4367}# #{b\ 4368}#)
+ (#{opt\ 4338}#
+ #{b\ 4368}#
+ (reverse #{rreq\ 4346}#)
'()))
- #{tmp\ 2252}#)
- (let ((#{tmp\ 2261}#
+ #{tmp\ 4360}#)
+ (let ((#{tmp\ 4369}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 4349}#
'(any . any))))
- (if (if #{tmp\ 2261}#
+ (if (if #{tmp\ 4369}#
(@apply
- (lambda (#{a\ 2264}# #{b\ 2265}#)
- (eq? (syntax->datum #{a\ 2264}#)
+ (lambda (#{a\ 4372}# #{b\ 4373}#)
+ (eq? (syntax->datum #{a\ 4372}#)
#:key))
- #{tmp\ 2261}#)
+ #{tmp\ 4369}#)
#f)
(@apply
- (lambda (#{a\ 2268}# #{b\ 2269}#)
- (#{key\ 2232}#
- #{b\ 2269}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{a\ 4376}# #{b\ 4377}#)
+ (#{key\ 4340}#
+ #{b\ 4377}#
+ (reverse #{rreq\ 4346}#)
'()
'()))
- #{tmp\ 2261}#)
- (let ((#{tmp\ 2270}#
+ #{tmp\ 4369}#)
+ (let ((#{tmp\ 4378}#
($sc-dispatch
- #{tmp\ 2241}#
+ #{tmp\ 4349}#
'(any any))))
- (if (if #{tmp\ 2270}#
+ (if (if #{tmp\ 4378}#
(@apply
- (lambda (#{a\ 2273}#
- #{b\ 2274}#)
+ (lambda (#{a\ 4381}#
+ #{b\ 4382}#)
(eq? (syntax->datum
- #{a\ 2273}#)
+ #{a\ 4381}#)
#:rest))
- #{tmp\ 2270}#)
+ #{tmp\ 4378}#)
#f)
(@apply
- (lambda (#{a\ 2277}# #{b\ 2278}#)
- (#{rest\ 2234}#
- #{b\ 2278}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{a\ 4385}# #{b\ 4386}#)
+ (#{rest\ 4342}#
+ #{b\ 4386}#
+ (reverse #{rreq\ 4346}#)
'()
'()))
- #{tmp\ 2270}#)
- (let ((#{tmp\ 2279}#
- (list #{tmp\ 2241}#)))
- (if (if #{tmp\ 2279}#
+ #{tmp\ 4378}#)
+ (let ((#{tmp\ 4387}#
+ (list #{tmp\ 4349}#)))
+ (if (if #{tmp\ 4387}#
(@apply
- (lambda (#{r\ 2281}#)
- (#{id?\ 388}#
- #{r\ 2281}#))
- #{tmp\ 2279}#)
+ (lambda (#{r\ 4389}#)
+ (#{id?\ 2496}#
+ #{r\ 4389}#))
+ #{tmp\ 4387}#)
#f)
(@apply
- (lambda (#{r\ 2283}#)
- (#{rest\ 2234}#
- #{r\ 2283}#
- (reverse #{rreq\ 2238}#)
+ (lambda (#{r\ 4391}#)
+ (#{rest\ 4342}#
+ #{r\ 4391}#
+ (reverse #{rreq\ 4346}#)
'()
'()))
- #{tmp\ 2279}#)
- (let ((#{else\ 2285}#
- #{tmp\ 2241}#))
+ #{tmp\ 4387}#)
+ (let ((#{else\ 4393}#
+ #{tmp\ 4349}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2225}#
- #{args\ 2237}#)))))))))))))))))
- (#{opt\ 2230}#
- (lambda (#{args\ 2286}# #{req\ 2287}# #{ropt\ 2288}#)
- (let ((#{tmp\ 2292}# #{args\ 2286}#))
- (let ((#{tmp\ 2293}#
- ($sc-dispatch #{tmp\ 2292}# (quote ()))))
- (if #{tmp\ 2293}#
+ #{orig-args\ 4333}#
+ #{args\ 4345}#)))))))))))))))))
+ (#{opt\ 4338}#
+ (lambda (#{args\ 4394}# #{req\ 4395}# #{ropt\ 4396}#)
+ (let ((#{tmp\ 4400}# #{args\ 4394}#))
+ (let ((#{tmp\ 4401}#
+ ($sc-dispatch #{tmp\ 4400}# (quote ()))))
+ (if #{tmp\ 4401}#
(@apply
(lambda ()
- (#{check\ 2236}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (#{check\ 4344}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
#f
'()))
- #{tmp\ 2293}#)
- (let ((#{tmp\ 2294}#
+ #{tmp\ 4401}#)
+ (let ((#{tmp\ 4402}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 4400}#
'(any . any))))
- (if (if #{tmp\ 2294}#
+ (if (if #{tmp\ 4402}#
(@apply
- (lambda (#{a\ 2297}# #{b\ 2298}#)
- (#{id?\ 388}# #{a\ 2297}#))
- #{tmp\ 2294}#)
+ (lambda (#{a\ 4405}# #{b\ 4406}#)
+ (#{id?\ 2496}# #{a\ 4405}#))
+ #{tmp\ 4402}#)
#f)
(@apply
- (lambda (#{a\ 2301}# #{b\ 2302}#)
- (#{opt\ 2230}#
- #{b\ 2302}#
- #{req\ 2287}#
- (cons (cons #{a\ 2301}#
+ (lambda (#{a\ 4409}# #{b\ 4410}#)
+ (#{opt\ 4338}#
+ #{b\ 4410}#
+ #{req\ 4395}#
+ (cons (cons #{a\ 4409}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2299" "i2300"))
+ #("i4407" "i4408"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2289"
- "i2290"
- "i2291"))
+ #("i4397"
+ "i4398"
+ "i4399"))
#(ribcage
(check rest key opt req)
((top)
(top)
(top)
(top))
- ("i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"))
+ ("i4343"
+ "i4341"
+ "i4339"
+ "i4337"
+ "i4335"))
#(ribcage
#(orig-args)
#((top))
- #("i2226"))
+ #("i4334"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))))
- #{ropt\ 2288}#)))
- #{tmp\ 2294}#)
- (let ((#{tmp\ 2303}#
+ #{ropt\ 4396}#)))
+ #{tmp\ 4402}#)
+ (let ((#{tmp\ 4411}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 4400}#
'((any any) . any))))
- (if (if #{tmp\ 2303}#
+ (if (if #{tmp\ 4411}#
(@apply
- (lambda (#{a\ 2307}#
- #{init\ 2308}#
- #{b\ 2309}#)
- (#{id?\ 388}# #{a\ 2307}#))
- #{tmp\ 2303}#)
+ (lambda (#{a\ 4415}#
+ #{init\ 4416}#
+ #{b\ 4417}#)
+ (#{id?\ 2496}# #{a\ 4415}#))
+ #{tmp\ 4411}#)
#f)
(@apply
- (lambda (#{a\ 2313}#
- #{init\ 2314}#
- #{b\ 2315}#)
- (#{opt\ 2230}#
- #{b\ 2315}#
- #{req\ 2287}#
- (cons (list #{a\ 2313}# #{init\ 2314}#)
- #{ropt\ 2288}#)))
- #{tmp\ 2303}#)
- (let ((#{tmp\ 2316}#
+ (lambda (#{a\ 4421}#
+ #{init\ 4422}#
+ #{b\ 4423}#)
+ (#{opt\ 4338}#
+ #{b\ 4423}#
+ #{req\ 4395}#
+ (cons (list #{a\ 4421}# #{init\ 4422}#)
+ #{ropt\ 4396}#)))
+ #{tmp\ 4411}#)
+ (let ((#{tmp\ 4424}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 4400}#
'(any . any))))
- (if (if #{tmp\ 2316}#
+ (if (if #{tmp\ 4424}#
(@apply
- (lambda (#{a\ 2319}# #{b\ 2320}#)
- (eq? (syntax->datum #{a\ 2319}#)
+ (lambda (#{a\ 4427}# #{b\ 4428}#)
+ (eq? (syntax->datum #{a\ 4427}#)
#:key))
- #{tmp\ 2316}#)
+ #{tmp\ 4424}#)
#f)
(@apply
- (lambda (#{a\ 2323}# #{b\ 2324}#)
- (#{key\ 2232}#
- #{b\ 2324}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (lambda (#{a\ 4431}# #{b\ 4432}#)
+ (#{key\ 4340}#
+ #{b\ 4432}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
'()))
- #{tmp\ 2316}#)
- (let ((#{tmp\ 2325}#
+ #{tmp\ 4424}#)
+ (let ((#{tmp\ 4433}#
($sc-dispatch
- #{tmp\ 2292}#
+ #{tmp\ 4400}#
'(any any))))
- (if (if #{tmp\ 2325}#
+ (if (if #{tmp\ 4433}#
(@apply
- (lambda (#{a\ 2328}#
- #{b\ 2329}#)
+ (lambda (#{a\ 4436}#
+ #{b\ 4437}#)
(eq? (syntax->datum
- #{a\ 2328}#)
+ #{a\ 4436}#)
#:rest))
- #{tmp\ 2325}#)
+ #{tmp\ 4433}#)
#f)
(@apply
- (lambda (#{a\ 2332}# #{b\ 2333}#)
- (#{rest\ 2234}#
- #{b\ 2333}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (lambda (#{a\ 4440}# #{b\ 4441}#)
+ (#{rest\ 4342}#
+ #{b\ 4441}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
'()))
- #{tmp\ 2325}#)
- (let ((#{tmp\ 2334}#
- (list #{tmp\ 2292}#)))
- (if (if #{tmp\ 2334}#
+ #{tmp\ 4433}#)
+ (let ((#{tmp\ 4442}#
+ (list #{tmp\ 4400}#)))
+ (if (if #{tmp\ 4442}#
(@apply
- (lambda (#{r\ 2336}#)
- (#{id?\ 388}#
- #{r\ 2336}#))
- #{tmp\ 2334}#)
+ (lambda (#{r\ 4444}#)
+ (#{id?\ 2496}#
+ #{r\ 4444}#))
+ #{tmp\ 4442}#)
#f)
(@apply
- (lambda (#{r\ 2338}#)
- (#{rest\ 2234}#
- #{r\ 2338}#
- #{req\ 2287}#
- (reverse #{ropt\ 2288}#)
+ (lambda (#{r\ 4446}#)
+ (#{rest\ 4342}#
+ #{r\ 4446}#
+ #{req\ 4395}#
+ (reverse #{ropt\ 4396}#)
'()))
- #{tmp\ 2334}#)
- (let ((#{else\ 2340}#
- #{tmp\ 2292}#))
+ #{tmp\ 4442}#)
+ (let ((#{else\ 4448}#
+ #{tmp\ 4400}#))
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 2225}#
- #{args\ 2286}#)))))))))))))))))
- (#{key\ 2232}#
- (lambda (#{args\ 2341}#
- #{req\ 2342}#
- #{opt\ 2343}#
- #{rkey\ 2344}#)
- (let ((#{tmp\ 2349}# #{args\ 2341}#))
- (let ((#{tmp\ 2350}#
- ($sc-dispatch #{tmp\ 2349}# (quote ()))))
- (if #{tmp\ 2350}#
+ #{orig-args\ 4333}#
+ #{args\ 4394}#)))))))))))))))))
+ (#{key\ 4340}#
+ (lambda (#{args\ 4449}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ #{rkey\ 4452}#)
+ (let ((#{tmp\ 4457}# #{args\ 4449}#))
+ (let ((#{tmp\ 4458}#
+ ($sc-dispatch #{tmp\ 4457}# (quote ()))))
+ (if #{tmp\ 4458}#
(@apply
(lambda ()
- (#{check\ 2236}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (#{check\ 4344}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
#f
- (cons #f (reverse #{rkey\ 2344}#))))
- #{tmp\ 2350}#)
- (let ((#{tmp\ 2351}#
+ (cons #f (reverse #{rkey\ 4452}#))))
+ #{tmp\ 4458}#)
+ (let ((#{tmp\ 4459}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 4457}#
'(any . any))))
- (if (if #{tmp\ 2351}#
+ (if (if #{tmp\ 4459}#
(@apply
- (lambda (#{a\ 2354}# #{b\ 2355}#)
- (#{id?\ 388}# #{a\ 2354}#))
- #{tmp\ 2351}#)
+ (lambda (#{a\ 4462}# #{b\ 4463}#)
+ (#{id?\ 2496}# #{a\ 4462}#))
+ #{tmp\ 4459}#)
#f)
(@apply
- (lambda (#{a\ 2358}# #{b\ 2359}#)
- (let ((#{tmp\ 2361}#
+ (lambda (#{a\ 4466}# #{b\ 4467}#)
+ (let ((#{tmp\ 4469}#
(symbol->keyword
- (syntax->datum #{a\ 2358}#))))
- (let ((#{k\ 2363}# #{tmp\ 2361}#))
- (#{key\ 2232}#
- #{b\ 2359}#
- #{req\ 2342}#
- #{opt\ 2343}#
- (cons (cons #{k\ 2363}#
- (cons #{a\ 2358}#
+ (syntax->datum #{a\ 4466}#))))
+ (let ((#{k\ 4471}# #{tmp\ 4469}#))
+ (#{key\ 4340}#
+ #{b\ 4467}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ (cons (cons #{k\ 4471}#
+ (cons #{a\ 4466}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2362"))
+ #("i4470"))
#(ribcage
#(a b)
#((top) (top))
- #("i2356"
- "i2357"))
+ #("i4464"
+ "i4465"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i2345"
- "i2346"
- "i2347"
- "i2348"))
+ #("i4453"
+ "i4454"
+ "i4455"
+ "i4456"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i2235"
- "i2233"
- "i2231"
- "i2229"
- "i2227"))
+ ("i4343"
+ "i4341"
+ "i4339"
+ "i4337"
+ "i4335"))
#(ribcage
#(orig-args)
#((top))
- #("i2226"))
+ #("i4334"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene
guile)))))
- #{rkey\ 2344}#)))))
- #{tmp\ 2351}#)
- (let ((#{tmp\ 2364}#
+ #{rkey\ 4452}#)))))
+ #{tmp\ 4459}#)
+ (let ((#{tmp\ 4472}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 4457}#
'((any any) . any))))
- (if (if #{tmp\ 2364}#
+ (if (if #{tmp\ 4472}#
(@apply
- (lambda (#{a\ 2368}#
- #{init\ 2369}#
- #{b\ 2370}#)
- (#{id?\ 388}# #{a\ 2368}#))
- #{tmp\ 2364}#)
+ (lambda (#{a\ 4476}#
+ #{init\ 4477}#
+ #{b\ 4478}#)
+ (#{id?\ 2496}# #{a\ 4476}#))
+ #{tmp\ 4472}#)
#f)
(@apply
- (lambda (#{a\ 2374}#
- #{init\ 2375}#
- #{b\ 2376}#)
- (let ((#{tmp\ 2378}#
+ (lambda (#{a\ 4482}#
+ #{init\ 4483}#
+ #{b\ 4484}#)
+ (let ((#{tmp\ 4486}#
(symbol->keyword
- (syntax->datum #{a\ 2374}#))))
- (let ((#{k\ 2380}# #{tmp\ 2378}#))
- (#{key\ 2232}#
- #{b\ 2376}#
- #{req\ 2342}#
- #{opt\ 2343}#
- (cons (list #{k\ 2380}#
- #{a\ 2374}#
- #{init\ 2375}#)
- #{rkey\ 2344}#)))))
- #{tmp\ 2364}#)
- (let ((#{tmp\ 2381}#
+ (syntax->datum #{a\ 4482}#))))
+ (let ((#{k\ 4488}# #{tmp\ 4486}#))
+ (#{key\ 4340}#
+ #{b\ 4484}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ (cons (list #{k\ 4488}#
+ #{a\ 4482}#
+ #{init\ 4483}#)
+ #{rkey\ 4452}#)))))
+ #{tmp\ 4472}#)
+ (let ((#{tmp\ 4489}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 4457}#
'((any any any) . any))))
- (if (if #{tmp\ 2381}#
+ (if (if #{tmp\ 4489}#
(@apply
- (lambda (#{a\ 2386}#
- #{init\ 2387}#
- #{k\ 2388}#
- #{b\ 2389}#)
- (if (#{id?\ 388}# #{a\ 2386}#)
+ (lambda (#{a\ 4494}#
+ #{init\ 4495}#
+ #{k\ 4496}#
+ #{b\ 4497}#)
+ (if (#{id?\ 2496}# #{a\ 4494}#)
(keyword?
- (syntax->datum #{k\ 2388}#))
+ (syntax->datum #{k\ 4496}#))
#f))
- #{tmp\ 2381}#)
+ #{tmp\ 4489}#)
#f)
(@apply
- (lambda (#{a\ 2396}#
- #{init\ 2397}#
- #{k\ 2398}#
- #{b\ 2399}#)
- (#{key\ 2232}#
- #{b\ 2399}#
- #{req\ 2342}#
- #{opt\ 2343}#
- (cons (list #{k\ 2398}#
- #{a\ 2396}#
- #{init\ 2397}#)
- #{rkey\ 2344}#)))
- #{tmp\ 2381}#)
- (let ((#{tmp\ 2400}#
+ (lambda (#{a\ 4504}#
+ #{init\ 4505}#
+ #{k\ 4506}#
+ #{b\ 4507}#)
+ (#{key\ 4340}#
+ #{b\ 4507}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
+ (cons (list #{k\ 4506}#
+ #{a\ 4504}#
+ #{init\ 4505}#)
+ #{rkey\ 4452}#)))
+ #{tmp\ 4489}#)
+ (let ((#{tmp\ 4508}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 4457}#
'(any))))
- (if (if #{tmp\ 2400}#
+ (if (if #{tmp\ 4508}#
(@apply
- (lambda (#{aok\ 2402}#)
+ (lambda (#{aok\ 4510}#)
(eq? (syntax->datum
- #{aok\ 2402}#)
+ #{aok\ 4510}#)
#:allow-other-keys))
- #{tmp\ 2400}#)
+ #{tmp\ 4508}#)
#f)
(@apply
- (lambda (#{aok\ 2404}#)
- (#{check\ 2236}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{aok\ 4512}#)
+ (#{check\ 4344}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
#f
(cons #t
(reverse
- #{rkey\ 2344}#))))
- #{tmp\ 2400}#)
- (let ((#{tmp\ 2405}#
+ #{rkey\ 4452}#))))
+ #{tmp\ 4508}#)
+ (let ((#{tmp\ 4513}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 4457}#
'(any any any))))
- (if (if #{tmp\ 2405}#
+ (if (if #{tmp\ 4513}#
(@apply
- (lambda (#{aok\ 2409}#
- #{a\ 2410}#
- #{b\ 2411}#)
+ (lambda (#{aok\ 4517}#
+ #{a\ 4518}#
+ #{b\ 4519}#)
(if (eq? (syntax->datum
- #{aok\ 2409}#)
+ #{aok\ 4517}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 2410}#)
+ #{a\ 4518}#)
#:rest)
#f))
- #{tmp\ 2405}#)
+ #{tmp\ 4513}#)
#f)
(@apply
- (lambda (#{aok\ 2417}#
- #{a\ 2418}#
- #{b\ 2419}#)
- (#{rest\ 2234}#
- #{b\ 2419}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{aok\ 4525}#
+ #{a\ 4526}#
+ #{b\ 4527}#)
+ (#{rest\ 4342}#
+ #{b\ 4527}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #t
(reverse
- #{rkey\ 2344}#))))
- #{tmp\ 2405}#)
- (let ((#{tmp\ 2420}#
+ #{rkey\ 4452}#))))
+ #{tmp\ 4513}#)
+ (let ((#{tmp\ 4528}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 4457}#
'(any . any))))
- (if (if #{tmp\ 2420}#
+ (if (if #{tmp\ 4528}#
(@apply
- (lambda (#{aok\ 2423}#
- #{r\ 2424}#)
+ (lambda (#{aok\ 4531}#
+ #{r\ 4532}#)
(if (eq? (syntax->datum
- #{aok\ 2423}#)
+ #{aok\ 4531}#)
#:allow-other-keys)
- (#{id?\ 388}#
- #{r\ 2424}#)
+ (#{id?\ 2496}#
+ #{r\ 4532}#)
#f))
- #{tmp\ 2420}#)
+ #{tmp\ 4528}#)
#f)
(@apply
- (lambda (#{aok\ 2429}#
- #{r\ 2430}#)
- (#{rest\ 2234}#
- #{r\ 2430}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{aok\ 4537}#
+ #{r\ 4538}#)
+ (#{rest\ 4342}#
+ #{r\ 4538}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #t
(reverse
- #{rkey\ 2344}#))))
- #{tmp\ 2420}#)
- (let ((#{tmp\ 2431}#
+ #{rkey\ 4452}#))))
+ #{tmp\ 4528}#)
+ (let ((#{tmp\ 4539}#
($sc-dispatch
- #{tmp\ 2349}#
+ #{tmp\ 4457}#
'(any any))))
- (if (if #{tmp\ 2431}#
+ (if (if #{tmp\ 4539}#
(@apply
- (lambda (#{a\ 2434}#
- #{b\ 2435}#)
+ (lambda (#{a\ 4542}#
+ #{b\ 4543}#)
(eq? (syntax->datum
- #{a\ 2434}#)
+ #{a\ 4542}#)
#:rest))
- #{tmp\ 2431}#)
+ #{tmp\ 4539}#)
#f)
(@apply
- (lambda (#{a\ 2438}#
- #{b\ 2439}#)
- (#{rest\ 2234}#
- #{b\ 2439}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{a\ 4546}#
+ #{b\ 4547}#)
+ (#{rest\ 4342}#
+ #{b\ 4547}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #f
(reverse
- #{rkey\ 2344}#))))
- #{tmp\ 2431}#)
- (let ((#{tmp\ 2440}#
- (list #{tmp\ 2349}#)))
- (if (if #{tmp\ 2440}#
+ #{rkey\ 4452}#))))
+ #{tmp\ 4539}#)
+ (let ((#{tmp\ 4548}#
+ (list #{tmp\ 4457}#)))
+ (if (if #{tmp\ 4548}#
(@apply
- (lambda (#{r\ 2442}#)
- (#{id?\ 388}#
- #{r\ 2442}#))
- #{tmp\ 2440}#)
+ (lambda (#{r\ 4550}#)
+ (#{id?\ 2496}#
+ #{r\ 4550}#))
+ #{tmp\ 4548}#)
#f)
(@apply
- (lambda (#{r\ 2444}#)
- (#{rest\ 2234}#
- #{r\ 2444}#
- #{req\ 2342}#
- #{opt\ 2343}#
+ (lambda (#{r\ 4552}#)
+ (#{rest\ 4342}#
+ #{r\ 4552}#
+ #{req\ 4450}#
+ #{opt\ 4451}#
(cons #f
(reverse
- #{rkey\ 2344}#))))
- #{tmp\ 2440}#)
- (let ((#{else\ 2446}#
- #{tmp\ 2349}#))
+ #{rkey\ 4452}#))))
+ #{tmp\ 4548}#)
+ (let ((#{else\ 4554}#
+ #{tmp\ 4457}#))
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 2225}#
- #{args\ 2341}#)))))))))))))))))))))))
- (#{rest\ 2234}#
- (lambda (#{args\ 2447}#
- #{req\ 2448}#
- #{opt\ 2449}#
- #{kw\ 2450}#)
- (let ((#{tmp\ 2455}# #{args\ 2447}#))
- (let ((#{tmp\ 2456}# (list #{tmp\ 2455}#)))
- (if (if #{tmp\ 2456}#
+ #{orig-args\ 4333}#
+ #{args\ 4449}#)))))))))))))))))))))))
+ (#{rest\ 4342}#
+ (lambda (#{args\ 4555}#
+ #{req\ 4556}#
+ #{opt\ 4557}#
+ #{kw\ 4558}#)
+ (let ((#{tmp\ 4563}# #{args\ 4555}#))
+ (let ((#{tmp\ 4564}# (list #{tmp\ 4563}#)))
+ (if (if #{tmp\ 4564}#
(@apply
- (lambda (#{r\ 2458}#)
- (#{id?\ 388}# #{r\ 2458}#))
- #{tmp\ 2456}#)
+ (lambda (#{r\ 4566}#)
+ (#{id?\ 2496}# #{r\ 4566}#))
+ #{tmp\ 4564}#)
#f)
(@apply
- (lambda (#{r\ 2460}#)
- (#{check\ 2236}#
- #{req\ 2448}#
- #{opt\ 2449}#
- #{r\ 2460}#
- #{kw\ 2450}#))
- #{tmp\ 2456}#)
- (let ((#{else\ 2462}# #{tmp\ 2455}#))
+ (lambda (#{r\ 4568}#)
+ (#{check\ 4344}#
+ #{req\ 4556}#
+ #{opt\ 4557}#
+ #{r\ 4568}#
+ #{kw\ 4558}#))
+ #{tmp\ 4564}#)
+ (let ((#{else\ 4570}# #{tmp\ 4563}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2225}#
- #{args\ 2447}#)))))))
- (#{check\ 2236}#
- (lambda (#{req\ 2463}#
- #{opt\ 2464}#
- #{rest\ 2465}#
- #{kw\ 2466}#)
- (if (#{distinct-bound-ids?\ 453}#
+ #{orig-args\ 4333}#
+ #{args\ 4555}#)))))))
+ (#{check\ 4344}#
+ (lambda (#{req\ 4571}#
+ #{opt\ 4572}#
+ #{rest\ 4573}#
+ #{kw\ 4574}#)
+ (if (#{distinct-bound-ids?\ 2561}#
(append
- #{req\ 2463}#
- (map car #{opt\ 2464}#)
- (if #{rest\ 2465}#
- (list #{rest\ 2465}#)
+ #{req\ 4571}#
+ (map car #{opt\ 4572}#)
+ (if #{rest\ 4573}#
+ (list #{rest\ 4573}#)
'())
- (if (pair? #{kw\ 2466}#)
- (map cadr (cdr #{kw\ 2466}#))
+ (if (pair? #{kw\ 4574}#)
+ (map cadr (cdr #{kw\ 4574}#))
'())))
(values
- #{req\ 2463}#
- #{opt\ 2464}#
- #{rest\ 2465}#
- #{kw\ 2466}#)
+ #{req\ 4571}#
+ #{opt\ 4572}#
+ #{rest\ 4573}#
+ #{kw\ 4574}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2225}#)))))
+ #{orig-args\ 4333}#)))))
(begin
- (#{req\ 2228}# #{orig-args\ 2225}# (quote ()))))))
- (#{chi-lambda-case\ 497}#
- (lambda (#{e\ 2474}#
- #{r\ 2475}#
- #{w\ 2476}#
- #{s\ 2477}#
- #{mod\ 2478}#
- #{get-formals\ 2479}#
- #{clauses\ 2480}#)
+ (#{req\ 4336}# #{orig-args\ 4333}# (quote ()))))))
+ (#{chi-lambda-case\ 2605}#
+ (lambda (#{e\ 4582}#
+ #{r\ 4583}#
+ #{w\ 4584}#
+ #{s\ 4585}#
+ #{mod\ 4586}#
+ #{get-formals\ 4587}#
+ #{clauses\ 4588}#)
(letrec*
- ((#{expand-req\ 2489}#
- (lambda (#{req\ 2496}#
- #{opt\ 2497}#
- #{rest\ 2498}#
- #{kw\ 2499}#
- #{body\ 2500}#)
+ ((#{expand-req\ 4597}#
+ (lambda (#{req\ 4604}#
+ #{opt\ 4605}#
+ #{rest\ 4606}#
+ #{kw\ 4607}#
+ #{body\ 4608}#)
(begin
- (let ((#{vars\ 2508}#
- (map #{gen-var\ 501}# #{req\ 2496}#))
- (#{labels\ 2509}#
- (#{gen-labels\ 406}# #{req\ 2496}#)))
+ (let ((#{vars\ 4616}#
+ (map #{gen-var\ 2609}# #{req\ 4604}#))
+ (#{labels\ 4617}#
+ (#{gen-labels\ 2514}# #{req\ 4604}#)))
(begin
- (let ((#{r*\ 2512}#
- (#{extend-var-env\ 378}#
- #{labels\ 2509}#
- #{vars\ 2508}#
- #{r\ 2475}#))
- (#{w*\ 2513}#
- (#{make-binding-wrap\ 435}#
- #{req\ 2496}#
- #{labels\ 2509}#
- #{w\ 2476}#)))
- (#{expand-opt\ 2491}#
- (map syntax->datum #{req\ 2496}#)
- #{opt\ 2497}#
- #{rest\ 2498}#
- #{kw\ 2499}#
- #{body\ 2500}#
- (reverse #{vars\ 2508}#)
- #{r*\ 2512}#
- #{w*\ 2513}#
+ (let ((#{r*\ 4620}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 4617}#
+ #{vars\ 4616}#
+ #{r\ 4583}#))
+ (#{w*\ 4621}#
+ (#{make-binding-wrap\ 2543}#
+ #{req\ 4604}#
+ #{labels\ 4617}#
+ #{w\ 4584}#)))
+ (#{expand-opt\ 4599}#
+ (map syntax->datum #{req\ 4604}#)
+ #{opt\ 4605}#
+ #{rest\ 4606}#
+ #{kw\ 4607}#
+ #{body\ 4608}#
+ (reverse #{vars\ 4616}#)
+ #{r*\ 4620}#
+ #{w*\ 4621}#
'()
'())))))))
- (#{expand-opt\ 2491}#
- (lambda (#{req\ 2514}#
- #{opt\ 2515}#
- #{rest\ 2516}#
- #{kw\ 2517}#
- #{body\ 2518}#
- #{vars\ 2519}#
- #{r*\ 2520}#
- #{w*\ 2521}#
- #{out\ 2522}#
- #{inits\ 2523}#)
- (if (pair? #{opt\ 2515}#)
- (let ((#{tmp\ 2536}# (car #{opt\ 2515}#)))
- (let ((#{tmp\ 2537}#
+ (#{expand-opt\ 4599}#
+ (lambda (#{req\ 4622}#
+ #{opt\ 4623}#
+ #{rest\ 4624}#
+ #{kw\ 4625}#
+ #{body\ 4626}#
+ #{vars\ 4627}#
+ #{r*\ 4628}#
+ #{w*\ 4629}#
+ #{out\ 4630}#
+ #{inits\ 4631}#)
+ (if (pair? #{opt\ 4623}#)
+ (let ((#{tmp\ 4644}# (car #{opt\ 4623}#)))
+ (let ((#{tmp\ 4645}#
($sc-dispatch
- #{tmp\ 2536}#
+ #{tmp\ 4644}#
'(any any))))
- (if #{tmp\ 2537}#
+ (if #{tmp\ 4645}#
(@apply
- (lambda (#{id\ 2540}# #{i\ 2541}#)
+ (lambda (#{id\ 4648}# #{i\ 4649}#)
(begin
- (let ((#{v\ 2544}#
- (#{gen-var\ 501}# #{id\ 2540}#)))
+ (let ((#{v\ 4652}#
+ (#{gen-var\ 2609}# #{id\ 4648}#)))
(begin
- (let ((#{l\ 2546}#
- (#{gen-labels\ 406}#
- (list #{v\ 2544}#))))
+ (let ((#{l\ 4654}#
+ (#{gen-labels\ 2514}#
+ (list #{v\ 4652}#))))
(begin
- (let ((#{r**\ 2548}#
- (#{extend-var-env\ 378}#
- #{l\ 2546}#
- (list #{v\ 2544}#)
- #{r*\ 2520}#)))
+ (let ((#{r**\ 4656}#
+ (#{extend-var-env\ 2486}#
+ #{l\ 4654}#
+ (list #{v\ 4652}#)
+ #{r*\ 4628}#)))
(begin
- (let ((#{w**\ 2550}#
- (#{make-binding-wrap\ 435}#
- (list #{id\ 2540}#)
- #{l\ 2546}#
- #{w*\ 2521}#)))
- (#{expand-opt\ 2491}#
- #{req\ 2514}#
- (cdr #{opt\ 2515}#)
- #{rest\ 2516}#
- #{kw\ 2517}#
- #{body\ 2518}#
- (cons #{v\ 2544}#
- #{vars\ 2519}#)
- #{r**\ 2548}#
- #{w**\ 2550}#
+ (let ((#{w**\ 4658}#
+ (#{make-binding-wrap\ 2543}#
+ (list #{id\ 4648}#)
+ #{l\ 4654}#
+ #{w*\ 4629}#)))
+ (#{expand-opt\ 4599}#
+ #{req\ 4622}#
+ (cdr #{opt\ 4623}#)
+ #{rest\ 4624}#
+ #{kw\ 4625}#
+ #{body\ 4626}#
+ (cons #{v\ 4652}#
+ #{vars\ 4627}#)
+ #{r**\ 4656}#
+ #{w**\ 4658}#
(cons (syntax->datum
- #{id\ 2540}#)
- #{out\ 2522}#)
- (cons (#{chi\ 473}#
- #{i\ 2541}#
- #{r*\ 2520}#
- #{w*\ 2521}#
- #{mod\ 2478}#)
- #{inits\ 2523}#)))))))))))
- #{tmp\ 2537}#)
+ #{id\ 4648}#)
+ #{out\ 4630}#)
+ (cons (#{chi\ 2581}#
+ #{i\ 4649}#
+ #{r*\ 4628}#
+ #{w*\ 4629}#
+ #{mod\ 4586}#)
+ #{inits\ 4631}#)))))))))))
+ #{tmp\ 4645}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2536}#))))
- (if #{rest\ 2516}#
+ #{tmp\ 4644}#))))
+ (if #{rest\ 4624}#
(begin
- (let ((#{v\ 2555}#
- (#{gen-var\ 501}# #{rest\ 2516}#)))
+ (let ((#{v\ 4663}#
+ (#{gen-var\ 2609}# #{rest\ 4624}#)))
(begin
- (let ((#{l\ 2557}#
- (#{gen-labels\ 406}#
- (list #{v\ 2555}#))))
+ (let ((#{l\ 4665}#
+ (#{gen-labels\ 2514}#
+ (list #{v\ 4663}#))))
(begin
- (let ((#{r*\ 2559}#
- (#{extend-var-env\ 378}#
- #{l\ 2557}#
- (list #{v\ 2555}#)
- #{r*\ 2520}#)))
+ (let ((#{r*\ 4667}#
+ (#{extend-var-env\ 2486}#
+ #{l\ 4665}#
+ (list #{v\ 4663}#)
+ #{r*\ 4628}#)))
(begin
- (let ((#{w*\ 2561}#
- (#{make-binding-wrap\ 435}#
- (list #{rest\ 2516}#)
- #{l\ 2557}#
- #{w*\ 2521}#)))
- (#{expand-kw\ 2493}#
- #{req\ 2514}#
- (if (pair? #{out\ 2522}#)
- (reverse #{out\ 2522}#)
+ (let ((#{w*\ 4669}#
+ (#{make-binding-wrap\ 2543}#
+ (list #{rest\ 4624}#)
+ #{l\ 4665}#
+ #{w*\ 4629}#)))
+ (#{expand-kw\ 4601}#
+ #{req\ 4622}#
+ (if (pair? #{out\ 4630}#)
+ (reverse #{out\ 4630}#)
#f)
- (syntax->datum #{rest\ 2516}#)
- (if (pair? #{kw\ 2517}#)
- (cdr #{kw\ 2517}#)
- #{kw\ 2517}#)
- #{body\ 2518}#
- (cons #{v\ 2555}# #{vars\ 2519}#)
- #{r*\ 2559}#
- #{w*\ 2561}#
- (if (pair? #{kw\ 2517}#)
- (car #{kw\ 2517}#)
+ (syntax->datum #{rest\ 4624}#)
+ (if (pair? #{kw\ 4625}#)
+ (cdr #{kw\ 4625}#)
+ #{kw\ 4625}#)
+ #{body\ 4626}#
+ (cons #{v\ 4663}# #{vars\ 4627}#)
+ #{r*\ 4667}#
+ #{w*\ 4669}#
+ (if (pair? #{kw\ 4625}#)
+ (car #{kw\ 4625}#)
#f)
'()
- #{inits\ 2523}#)))))))))
- (#{expand-kw\ 2493}#
- #{req\ 2514}#
- (if (pair? #{out\ 2522}#)
- (reverse #{out\ 2522}#)
+ #{inits\ 4631}#)))))))))
+ (#{expand-kw\ 4601}#
+ #{req\ 4622}#
+ (if (pair? #{out\ 4630}#)
+ (reverse #{out\ 4630}#)
#f)
#f
- (if (pair? #{kw\ 2517}#)
- (cdr #{kw\ 2517}#)
- #{kw\ 2517}#)
- #{body\ 2518}#
- #{vars\ 2519}#
- #{r*\ 2520}#
- #{w*\ 2521}#
- (if (pair? #{kw\ 2517}#) (car #{kw\ 2517}#) #f)
+ (if (pair? #{kw\ 4625}#)
+ (cdr #{kw\ 4625}#)
+ #{kw\ 4625}#)
+ #{body\ 4626}#
+ #{vars\ 4627}#
+ #{r*\ 4628}#
+ #{w*\ 4629}#
+ (if (pair? #{kw\ 4625}#) (car #{kw\ 4625}#) #f)
'()
- #{inits\ 2523}#)))))
- (#{expand-kw\ 2493}#
- (lambda (#{req\ 2563}#
- #{opt\ 2564}#
- #{rest\ 2565}#
- #{kw\ 2566}#
- #{body\ 2567}#
- #{vars\ 2568}#
- #{r*\ 2569}#
- #{w*\ 2570}#
- #{aok\ 2571}#
- #{out\ 2572}#
- #{inits\ 2573}#)
- (if (pair? #{kw\ 2566}#)
- (let ((#{tmp\ 2587}# (car #{kw\ 2566}#)))
- (let ((#{tmp\ 2588}#
+ #{inits\ 4631}#)))))
+ (#{expand-kw\ 4601}#
+ (lambda (#{req\ 4671}#
+ #{opt\ 4672}#
+ #{rest\ 4673}#
+ #{kw\ 4674}#
+ #{body\ 4675}#
+ #{vars\ 4676}#
+ #{r*\ 4677}#
+ #{w*\ 4678}#
+ #{aok\ 4679}#
+ #{out\ 4680}#
+ #{inits\ 4681}#)
+ (if (pair? #{kw\ 4674}#)
+ (let ((#{tmp\ 4695}# (car #{kw\ 4674}#)))
+ (let ((#{tmp\ 4696}#
($sc-dispatch
- #{tmp\ 2587}#
+ #{tmp\ 4695}#
'(any any any))))
- (if #{tmp\ 2588}#
+ (if #{tmp\ 4696}#
(@apply
- (lambda (#{k\ 2592}# #{id\ 2593}# #{i\ 2594}#)
+ (lambda (#{k\ 4700}# #{id\ 4701}# #{i\ 4702}#)
(begin
- (let ((#{v\ 2597}#
- (#{gen-var\ 501}# #{id\ 2593}#)))
+ (let ((#{v\ 4705}#
+ (#{gen-var\ 2609}# #{id\ 4701}#)))
(begin
- (let ((#{l\ 2599}#
- (#{gen-labels\ 406}#
- (list #{v\ 2597}#))))
+ (let ((#{l\ 4707}#
+ (#{gen-labels\ 2514}#
+ (list #{v\ 4705}#))))
(begin
- (let ((#{r**\ 2601}#
- (#{extend-var-env\ 378}#
- #{l\ 2599}#
- (list #{v\ 2597}#)
- #{r*\ 2569}#)))
+ (let ((#{r**\ 4709}#
+ (#{extend-var-env\ 2486}#
+ #{l\ 4707}#
+ (list #{v\ 4705}#)
+ #{r*\ 4677}#)))
(begin
- (let ((#{w**\ 2603}#
- (#{make-binding-wrap\ 435}#
- (list #{id\ 2593}#)
- #{l\ 2599}#
- #{w*\ 2570}#)))
- (#{expand-kw\ 2493}#
- #{req\ 2563}#
- #{opt\ 2564}#
- #{rest\ 2565}#
- (cdr #{kw\ 2566}#)
- #{body\ 2567}#
- (cons #{v\ 2597}#
- #{vars\ 2568}#)
- #{r**\ 2601}#
- #{w**\ 2603}#
- #{aok\ 2571}#
+ (let ((#{w**\ 4711}#
+ (#{make-binding-wrap\ 2543}#
+ (list #{id\ 4701}#)
+ #{l\ 4707}#
+ #{w*\ 4678}#)))
+ (#{expand-kw\ 4601}#
+ #{req\ 4671}#
+ #{opt\ 4672}#
+ #{rest\ 4673}#
+ (cdr #{kw\ 4674}#)
+ #{body\ 4675}#
+ (cons #{v\ 4705}#
+ #{vars\ 4676}#)
+ #{r**\ 4709}#
+ #{w**\ 4711}#
+ #{aok\ 4679}#
(cons (list (syntax->datum
- #{k\ 2592}#)
+ #{k\ 4700}#)
(syntax->datum
- #{id\ 2593}#)
- #{v\ 2597}#)
- #{out\ 2572}#)
- (cons (#{chi\ 473}#
- #{i\ 2594}#
- #{r*\ 2569}#
- #{w*\ 2570}#
- #{mod\ 2478}#)
- #{inits\ 2573}#)))))))))))
- #{tmp\ 2588}#)
+ #{id\ 4701}#)
+ #{v\ 4705}#)
+ #{out\ 4680}#)
+ (cons (#{chi\ 2581}#
+ #{i\ 4702}#
+ #{r*\ 4677}#
+ #{w*\ 4678}#
+ #{mod\ 4586}#)
+ #{inits\ 4681}#)))))))))))
+ #{tmp\ 4696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2587}#))))
- (#{expand-body\ 2495}#
- #{req\ 2563}#
- #{opt\ 2564}#
- #{rest\ 2565}#
+ #{tmp\ 4695}#))))
+ (#{expand-body\ 4603}#
+ #{req\ 4671}#
+ #{opt\ 4672}#
+ #{rest\ 4673}#
(if (begin
- (let ((#{t\ 2607}# #{aok\ 2571}#))
- (if #{t\ 2607}#
- #{t\ 2607}#
- (pair? #{out\ 2572}#))))
- (cons #{aok\ 2571}# (reverse #{out\ 2572}#))
+ (let ((#{t\ 4715}# #{aok\ 4679}#))
+ (if #{t\ 4715}#
+ #{t\ 4715}#
+ (pair? #{out\ 4680}#))))
+ (cons #{aok\ 4679}# (reverse #{out\ 4680}#))
#f)
- #{body\ 2567}#
- (reverse #{vars\ 2568}#)
- #{r*\ 2569}#
- #{w*\ 2570}#
- (reverse #{inits\ 2573}#)
+ #{body\ 4675}#
+ (reverse #{vars\ 4676}#)
+ #{r*\ 4677}#
+ #{w*\ 4678}#
+ (reverse #{inits\ 4681}#)
'()))))
- (#{expand-body\ 2495}#
- (lambda (#{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- #{body\ 2613}#
- #{vars\ 2614}#
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{inits\ 2617}#
- #{meta\ 2618}#)
- (let ((#{tmp\ 2629}# #{body\ 2613}#))
- (let ((#{tmp\ 2630}#
+ (#{expand-body\ 4603}#
+ (lambda (#{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ #{body\ 4721}#
+ #{vars\ 4722}#
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{inits\ 4725}#
+ #{meta\ 4726}#)
+ (let ((#{tmp\ 4737}# #{body\ 4721}#))
+ (let ((#{tmp\ 4738}#
($sc-dispatch
- #{tmp\ 2629}#
+ #{tmp\ 4737}#
'(any any . each-any))))
- (if (if #{tmp\ 2630}#
+ (if (if #{tmp\ 4738}#
(@apply
- (lambda (#{docstring\ 2634}#
- #{e1\ 2635}#
- #{e2\ 2636}#)
+ (lambda (#{docstring\ 4742}#
+ #{e1\ 4743}#
+ #{e2\ 4744}#)
(string?
- (syntax->datum #{docstring\ 2634}#)))
- #{tmp\ 2630}#)
+ (syntax->datum #{docstring\ 4742}#)))
+ #{tmp\ 4738}#)
#f)
(@apply
- (lambda (#{docstring\ 2640}#
- #{e1\ 2641}#
- #{e2\ 2642}#)
- (#{expand-body\ 2495}#
- #{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- (cons #{e1\ 2641}# #{e2\ 2642}#)
- #{vars\ 2614}#
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{inits\ 2617}#
+ (lambda (#{docstring\ 4748}#
+ #{e1\ 4749}#
+ #{e2\ 4750}#)
+ (#{expand-body\ 4603}#
+ #{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ (cons #{e1\ 4749}# #{e2\ 4750}#)
+ #{vars\ 4722}#
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{inits\ 4725}#
(append
- #{meta\ 2618}#
+ #{meta\ 4726}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2640}#))))))
- #{tmp\ 2630}#)
- (let ((#{tmp\ 2645}#
+ #{docstring\ 4748}#))))))
+ #{tmp\ 4738}#)
+ (let ((#{tmp\ 4753}#
($sc-dispatch
- #{tmp\ 2629}#
+ #{tmp\ 4737}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 2645}#
+ (if #{tmp\ 4753}#
(@apply
- (lambda (#{k\ 2650}#
- #{v\ 2651}#
- #{e1\ 2652}#
- #{e2\ 2653}#)
- (#{expand-body\ 2495}#
- #{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- (cons #{e1\ 2652}# #{e2\ 2653}#)
- #{vars\ 2614}#
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{inits\ 2617}#
+ (lambda (#{k\ 4758}#
+ #{v\ 4759}#
+ #{e1\ 4760}#
+ #{e2\ 4761}#)
+ (#{expand-body\ 4603}#
+ #{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ (cons #{e1\ 4760}# #{e2\ 4761}#)
+ #{vars\ 4722}#
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{inits\ 4725}#
(append
- #{meta\ 2618}#
+ #{meta\ 4726}#
(syntax->datum
- (map cons #{k\ 2650}# #{v\ 2651}#)))))
- #{tmp\ 2645}#)
- (let ((#{tmp\ 2657}#
+ (map cons #{k\ 4758}# #{v\ 4759}#)))))
+ #{tmp\ 4753}#)
+ (let ((#{tmp\ 4765}#
($sc-dispatch
- #{tmp\ 2629}#
+ #{tmp\ 4737}#
'(any . each-any))))
- (if #{tmp\ 2657}#
+ (if #{tmp\ 4765}#
(@apply
- (lambda (#{e1\ 2660}# #{e2\ 2661}#)
+ (lambda (#{e1\ 4768}# #{e2\ 4769}#)
(values
- #{meta\ 2618}#
- #{req\ 2609}#
- #{opt\ 2610}#
- #{rest\ 2611}#
- #{kw\ 2612}#
- #{inits\ 2617}#
- #{vars\ 2614}#
- (#{chi-body\ 481}#
- (cons #{e1\ 2660}# #{e2\ 2661}#)
- (#{source-wrap\ 459}#
- #{e\ 2474}#
- #{w\ 2476}#
- #{s\ 2477}#
- #{mod\ 2478}#)
- #{r*\ 2615}#
- #{w*\ 2616}#
- #{mod\ 2478}#)))
- #{tmp\ 2657}#)
+ #{meta\ 4726}#
+ #{req\ 4717}#
+ #{opt\ 4718}#
+ #{rest\ 4719}#
+ #{kw\ 4720}#
+ #{inits\ 4725}#
+ #{vars\ 4722}#
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 4768}# #{e2\ 4769}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 4582}#
+ #{w\ 4584}#
+ #{s\ 4585}#
+ #{mod\ 4586}#)
+ #{r*\ 4723}#
+ #{w*\ 4724}#
+ #{mod\ 4586}#)))
+ #{tmp\ 4765}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2629}#)))))))))))
+ #{tmp\ 4737}#)))))))))))
(begin
- (let ((#{tmp\ 2663}# #{clauses\ 2480}#))
- (let ((#{tmp\ 2664}#
- ($sc-dispatch #{tmp\ 2663}# (quote ()))))
- (if #{tmp\ 2664}#
+ (let ((#{tmp\ 4771}# #{clauses\ 4588}#))
+ (let ((#{tmp\ 4772}#
+ ($sc-dispatch #{tmp\ 4771}# (quote ()))))
+ (if #{tmp\ 4772}#
(@apply
(lambda () (values (quote ()) #f))
- #{tmp\ 2664}#)
- (let ((#{tmp\ 2665}#
+ #{tmp\ 4772}#)
+ (let ((#{tmp\ 4773}#
($sc-dispatch
- #{tmp\ 2663}#
+ #{tmp\ 4771}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 2665}#
+ (if #{tmp\ 4773}#
(@apply
- (lambda (#{args\ 2672}#
- #{e1\ 2673}#
- #{e2\ 2674}#
- #{args*\ 2675}#
- #{e1*\ 2676}#
- #{e2*\ 2677}#)
+ (lambda (#{args\ 4780}#
+ #{e1\ 4781}#
+ #{e2\ 4782}#
+ #{args*\ 4783}#
+ #{e1*\ 4784}#
+ #{e2*\ 4785}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2479}# #{args\ 2672}#))
- (lambda (#{req\ 2678}#
- #{opt\ 2679}#
- #{rest\ 2680}#
- #{kw\ 2681}#)
+ (#{get-formals\ 4587}# #{args\ 4780}#))
+ (lambda (#{req\ 4786}#
+ #{opt\ 4787}#
+ #{rest\ 4788}#
+ #{kw\ 4789}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2489}#
- #{req\ 2678}#
- #{opt\ 2679}#
- #{rest\ 2680}#
- #{kw\ 2681}#
- (cons #{e1\ 2673}# #{e2\ 2674}#)))
- (lambda (#{meta\ 2687}#
- #{req\ 2688}#
- #{opt\ 2689}#
- #{rest\ 2690}#
- #{kw\ 2691}#
- #{inits\ 2692}#
- #{vars\ 2693}#
- #{body\ 2694}#)
+ (#{expand-req\ 4597}#
+ #{req\ 4786}#
+ #{opt\ 4787}#
+ #{rest\ 4788}#
+ #{kw\ 4789}#
+ (cons #{e1\ 4781}# #{e2\ 4782}#)))
+ (lambda (#{meta\ 4795}#
+ #{req\ 4796}#
+ #{opt\ 4797}#
+ #{rest\ 4798}#
+ #{kw\ 4799}#
+ #{inits\ 4800}#
+ #{vars\ 4801}#
+ #{body\ 4802}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 2474}#
- #{r\ 2475}#
- #{w\ 2476}#
- #{s\ 2477}#
- #{mod\ 2478}#
- #{get-formals\ 2479}#
- (map (lambda (#{tmp\ 2705}#
- #{tmp\ 2704}#
- #{tmp\ 2703}#)
- (cons #{tmp\ 2703}#
- (cons #{tmp\ 2704}#
- #{tmp\ 2705}#)))
- #{e2*\ 2677}#
- #{e1*\ 2676}#
- #{args*\ 2675}#)))
- (lambda (#{meta*\ 2707}#
- #{else*\ 2708}#)
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 4582}#
+ #{r\ 4583}#
+ #{w\ 4584}#
+ #{s\ 4585}#
+ #{mod\ 4586}#
+ #{get-formals\ 4587}#
+ (map (lambda (#{tmp\ 4813}#
+ #{tmp\ 4812}#
+ #{tmp\ 4811}#)
+ (cons #{tmp\ 4811}#
+ (cons #{tmp\ 4812}#
+ #{tmp\ 4813}#)))
+ #{e2*\ 4785}#
+ #{e1*\ 4784}#
+ #{args*\ 4783}#)))
+ (lambda (#{meta*\ 4815}#
+ #{else*\ 4816}#)
(values
(append
- #{meta\ 2687}#
- #{meta*\ 2707}#)
- (#{build-lambda-case\ 334}#
- #{s\ 2477}#
- #{req\ 2688}#
- #{opt\ 2689}#
- #{rest\ 2690}#
- #{kw\ 2691}#
- #{inits\ 2692}#
- #{vars\ 2693}#
- #{body\ 2694}#
- #{else*\ 2708}#)))))))))
- #{tmp\ 2665}#)
+ #{meta\ 4795}#
+ #{meta*\ 4815}#)
+ (#{build-lambda-case\ 2442}#
+ #{s\ 4585}#
+ #{req\ 4796}#
+ #{opt\ 4797}#
+ #{rest\ 4798}#
+ #{kw\ 4799}#
+ #{inits\ 4800}#
+ #{vars\ 4801}#
+ #{body\ 4802}#
+ #{else*\ 4816}#)))))))))
+ #{tmp\ 4773}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2663}#))))))))))
- (#{strip\ 499}#
- (lambda (#{x\ 2711}# #{w\ 2712}#)
+ #{tmp\ 4771}#))))))))))
+ (#{strip\ 2607}#
+ (lambda (#{x\ 4819}# #{w\ 4820}#)
(if (memq 'top
- (#{wrap-marks\ 395}# #{w\ 2712}#))
- #{x\ 2711}#
+ (#{wrap-marks\ 2503}# #{w\ 4820}#))
+ #{x\ 4819}#
(letrec*
- ((#{f\ 2718}#
- (lambda (#{x\ 2719}#)
- (if (#{syntax-object?\ 352}# #{x\ 2719}#)
- (#{strip\ 499}#
- (#{syntax-object-expression\ 354}# #{x\ 2719}#)
- (#{syntax-object-wrap\ 356}# #{x\ 2719}#))
- (if (pair? #{x\ 2719}#)
+ ((#{f\ 4826}#
+ (lambda (#{x\ 4827}#)
+ (if (#{syntax-object?\ 2460}# #{x\ 4827}#)
+ (#{strip\ 2607}#
+ (#{syntax-object-expression\ 2462}# #{x\ 4827}#)
+ (#{syntax-object-wrap\ 2464}# #{x\ 4827}#))
+ (if (pair? #{x\ 4827}#)
(begin
- (let ((#{a\ 2726}# (#{f\ 2718}# (car #{x\ 2719}#)))
- (#{d\ 2727}#
- (#{f\ 2718}# (cdr #{x\ 2719}#))))
- (if (if (eq? #{a\ 2726}# (car #{x\ 2719}#))
- (eq? #{d\ 2727}# (cdr #{x\ 2719}#))
+ (let ((#{a\ 4834}# (#{f\ 4826}# (car #{x\ 4827}#)))
+ (#{d\ 4835}#
+ (#{f\ 4826}# (cdr #{x\ 4827}#))))
+ (if (if (eq? #{a\ 4834}# (car #{x\ 4827}#))
+ (eq? #{d\ 4835}# (cdr #{x\ 4827}#))
#f)
- #{x\ 2719}#
- (cons #{a\ 2726}# #{d\ 2727}#))))
- (if (vector? #{x\ 2719}#)
+ #{x\ 4827}#
+ (cons #{a\ 4834}# #{d\ 4835}#))))
+ (if (vector? #{x\ 4827}#)
(begin
- (let ((#{old\ 2733}# (vector->list #{x\ 2719}#)))
+ (let ((#{old\ 4841}# (vector->list #{x\ 4827}#)))
(begin
- (let ((#{new\ 2735}#
- (map #{f\ 2718}# #{old\ 2733}#)))
- (if (#{and-map*\ 36}#
+ (let ((#{new\ 4843}#
+ (map #{f\ 4826}# #{old\ 4841}#)))
+ (if (#{and-map*\ 2144}#
eq?
- #{old\ 2733}#
- #{new\ 2735}#)
- #{x\ 2719}#
- (list->vector #{new\ 2735}#))))))
- #{x\ 2719}#))))))
- (begin (#{f\ 2718}# #{x\ 2711}#))))))
- (#{gen-var\ 501}#
- (lambda (#{id\ 2737}#)
+ #{old\ 4841}#
+ #{new\ 4843}#)
+ #{x\ 4827}#
+ (list->vector #{new\ 4843}#))))))
+ #{x\ 4827}#))))))
+ (begin (#{f\ 4826}# #{x\ 4819}#))))))
+ (#{gen-var\ 2609}#
+ (lambda (#{id\ 4845}#)
(begin
- (let ((#{id\ 2740}#
- (if (#{syntax-object?\ 352}# #{id\ 2737}#)
- (#{syntax-object-expression\ 354}# #{id\ 2737}#)
- #{id\ 2737}#)))
+ (let ((#{id\ 4848}#
+ (if (#{syntax-object?\ 2460}# #{id\ 4845}#)
+ (#{syntax-object-expression\ 2462}# #{id\ 4845}#)
+ #{id\ 4845}#)))
(gensym
- (string-append (symbol->string #{id\ 2740}#) " "))))))
- (#{lambda-var-list\ 503}#
- (lambda (#{vars\ 2742}#)
+ (string-append (symbol->string #{id\ 4848}#) " "))))))
+ (#{lambda-var-list\ 2611}#
+ (lambda (#{vars\ 4850}#)
(letrec*
- ((#{lvl\ 2748}#
- (lambda (#{vars\ 2749}# #{ls\ 2750}# #{w\ 2751}#)
- (if (pair? #{vars\ 2749}#)
- (#{lvl\ 2748}#
- (cdr #{vars\ 2749}#)
- (cons (#{wrap\ 457}#
- (car #{vars\ 2749}#)
- #{w\ 2751}#
+ ((#{lvl\ 4856}#
+ (lambda (#{vars\ 4857}# #{ls\ 4858}# #{w\ 4859}#)
+ (if (pair? #{vars\ 4857}#)
+ (#{lvl\ 4856}#
+ (cdr #{vars\ 4857}#)
+ (cons (#{wrap\ 2565}#
+ (car #{vars\ 4857}#)
+ #{w\ 4859}#
#f)
- #{ls\ 2750}#)
- #{w\ 2751}#)
- (if (#{id?\ 388}# #{vars\ 2749}#)
- (cons (#{wrap\ 457}# #{vars\ 2749}# #{w\ 2751}# #f)
- #{ls\ 2750}#)
- (if (null? #{vars\ 2749}#)
- #{ls\ 2750}#
- (if (#{syntax-object?\ 352}# #{vars\ 2749}#)
- (#{lvl\ 2748}#
- (#{syntax-object-expression\ 354}#
- #{vars\ 2749}#)
- #{ls\ 2750}#
- (#{join-wraps\ 439}#
- #{w\ 2751}#
- (#{syntax-object-wrap\ 356}# #{vars\ 2749}#)))
- (cons #{vars\ 2749}# #{ls\ 2750}#))))))))
+ #{ls\ 4858}#)
+ #{w\ 4859}#)
+ (if (#{id?\ 2496}# #{vars\ 4857}#)
+ (cons (#{wrap\ 2565}# #{vars\ 4857}# #{w\ 4859}# #f)
+ #{ls\ 4858}#)
+ (if (null? #{vars\ 4857}#)
+ #{ls\ 4858}#
+ (if (#{syntax-object?\ 2460}# #{vars\ 4857}#)
+ (#{lvl\ 4856}#
+ (#{syntax-object-expression\ 2462}#
+ #{vars\ 4857}#)
+ #{ls\ 4858}#
+ (#{join-wraps\ 2547}#
+ #{w\ 4859}#
+ (#{syntax-object-wrap\ 2464}# #{vars\ 4857}#)))
+ (cons #{vars\ 4857}# #{ls\ 4858}#))))))))
(begin
- (#{lvl\ 2748}#
- #{vars\ 2742}#
+ (#{lvl\ 4856}#
+ #{vars\ 4850}#
'()
'(())))))))
(begin
- (set! #{make-primitive-ref\ 250}#
- (lambda (#{src\ 724}# #{name\ 725}#)
+ (set! #{make-primitive-ref\ 2358}#
+ (lambda (#{src\ 2832}# #{name\ 2833}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 724}#
- #{name\ 725}#)))
- (set! #{fx+\ 289}# +)
- (set! #{fx-\ 291}# -)
- (set! #{fx=\ 293}# =)
- (set! #{fx<\ 295}# <)
- (set! #{set-syntax-object-expression!\ 360}#
- (lambda (#{x\ 1102}# #{update\ 1103}#)
- (vector-set! #{x\ 1102}# 1 #{update\ 1103}#)))
- (set! #{set-syntax-object-wrap!\ 362}#
- (lambda (#{x\ 1106}# #{update\ 1107}#)
- (vector-set! #{x\ 1106}# 2 #{update\ 1107}#)))
- (set! #{set-syntax-object-module!\ 364}#
- (lambda (#{x\ 1110}# #{update\ 1111}#)
- (vector-set! #{x\ 1110}# 3 #{update\ 1111}#)))
- (set! #{binding-type\ 371}# car)
- (set! #{binding-value\ 373}# cdr)
- (set! #{make-wrap\ 393}# cons)
- (set! #{wrap-marks\ 395}# car)
- (set! #{wrap-subst\ 397}# cdr)
- (set! #{ribcage?\ 411}#
- (lambda (#{x\ 1188}#)
- (if (vector? #{x\ 1188}#)
- (if (= (vector-length #{x\ 1188}#) 4)
- (eq? (vector-ref #{x\ 1188}# 0) (quote ribcage))
+ #{src\ 2832}#
+ #{name\ 2833}#)))
+ (set! #{fx+\ 2397}# +)
+ (set! #{fx-\ 2399}# -)
+ (set! #{fx=\ 2401}# =)
+ (set! #{fx<\ 2403}# <)
+ (set! #{set-syntax-object-expression!\ 2468}#
+ (lambda (#{x\ 3210}# #{update\ 3211}#)
+ (vector-set! #{x\ 3210}# 1 #{update\ 3211}#)))
+ (set! #{set-syntax-object-wrap!\ 2470}#
+ (lambda (#{x\ 3214}# #{update\ 3215}#)
+ (vector-set! #{x\ 3214}# 2 #{update\ 3215}#)))
+ (set! #{set-syntax-object-module!\ 2472}#
+ (lambda (#{x\ 3218}# #{update\ 3219}#)
+ (vector-set! #{x\ 3218}# 3 #{update\ 3219}#)))
+ (set! #{binding-type\ 2479}# car)
+ (set! #{binding-value\ 2481}# cdr)
+ (set! #{make-wrap\ 2501}# cons)
+ (set! #{wrap-marks\ 2503}# car)
+ (set! #{wrap-subst\ 2505}# cdr)
+ (set! #{ribcage?\ 2519}#
+ (lambda (#{x\ 3296}#)
+ (if (vector? #{x\ 3296}#)
+ (if (= (vector-length #{x\ 3296}#) 4)
+ (eq? (vector-ref #{x\ 3296}# 0) (quote ribcage))
#f)
#f)))
(begin
- (#{global-extend\ 384}#
+ (#{global-extend\ 2492}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 384}#
+ (#{global-extend\ 2492}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 384}#
+ (#{global-extend\ 2492}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2762}#
- #{r\ 2763}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#)
- (let ((#{tmp\ 2772}# #{e\ 2762}#))
- (let ((#{tmp\ 2773}#
+ (lambda (#{e\ 4870}#
+ #{r\ 4871}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#)
+ (let ((#{tmp\ 4880}# #{e\ 4870}#))
+ (let ((#{tmp\ 4881}#
($sc-dispatch
- #{tmp\ 2772}#
+ #{tmp\ 4880}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2773}#
+ (if (if #{tmp\ 4881}#
(@apply
- (lambda (#{_\ 2779}#
- #{var\ 2780}#
- #{val\ 2781}#
- #{e1\ 2782}#
- #{e2\ 2783}#)
- (#{valid-bound-ids?\ 451}# #{var\ 2780}#))
- #{tmp\ 2773}#)
+ (lambda (#{_\ 4887}#
+ #{var\ 4888}#
+ #{val\ 4889}#
+ #{e1\ 4890}#
+ #{e2\ 4891}#)
+ (#{valid-bound-ids?\ 2559}# #{var\ 4888}#))
+ #{tmp\ 4881}#)
#f)
(@apply
- (lambda (#{_\ 2790}#
- #{var\ 2791}#
- #{val\ 2792}#
- #{e1\ 2793}#
- #{e2\ 2794}#)
+ (lambda (#{_\ 4898}#
+ #{var\ 4899}#
+ #{val\ 4900}#
+ #{e1\ 4901}#
+ #{e2\ 4902}#)
(begin
- (let ((#{names\ 2796}#
- (map (lambda (#{x\ 2797}#)
- (#{id-var-name\ 445}#
- #{x\ 2797}#
- #{w\ 2764}#))
- #{var\ 2791}#)))
+ (let ((#{names\ 4904}#
+ (map (lambda (#{x\ 4905}#)
+ (#{id-var-name\ 2553}#
+ #{x\ 4905}#
+ #{w\ 4872}#))
+ #{var\ 4899}#)))
(begin
(for-each
- (lambda (#{id\ 2800}# #{n\ 2801}#)
+ (lambda (#{id\ 4908}# #{n\ 4909}#)
(begin
- (let ((#{atom-key\ 2806}#
- (#{binding-type\ 371}#
- (#{lookup\ 382}#
- #{n\ 2801}#
- #{r\ 2763}#
- #{mod\ 2766}#))))
- (if (eqv? #{atom-key\ 2806}#
+ (let ((#{atom-key\ 4914}#
+ (#{binding-type\ 2479}#
+ (#{lookup\ 2490}#
+ #{n\ 4909}#
+ #{r\ 4871}#
+ #{mod\ 4874}#))))
+ (if (eqv? #{atom-key\ 4914}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2762}#
- (#{source-wrap\ 459}#
- #{id\ 2800}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#))))))
- #{var\ 2791}#
- #{names\ 2796}#)
- (#{chi-body\ 481}#
- (cons #{e1\ 2793}# #{e2\ 2794}#)
- (#{source-wrap\ 459}#
- #{e\ 2762}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#)
- (#{extend-env\ 376}#
- #{names\ 2796}#
+ #{e\ 4870}#
+ (#{source-wrap\ 2567}#
+ #{id\ 4908}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#))))))
+ #{var\ 4899}#
+ #{names\ 4904}#)
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 4901}# #{e2\ 4902}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 4870}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#)
+ (#{extend-env\ 2484}#
+ #{names\ 4904}#
(begin
- (let ((#{trans-r\ 2811}#
- (#{macros-only-env\ 380}#
- #{r\ 2763}#)))
- (map (lambda (#{x\ 2812}#)
+ (let ((#{trans-r\ 4919}#
+ (#{macros-only-env\ 2488}#
+ #{r\ 4871}#)))
+ (map (lambda (#{x\ 4920}#)
(cons 'macro
- (#{eval-local-transformer\ 485}#
- (#{chi\ 473}#
- #{x\ 2812}#
- #{trans-r\ 2811}#
- #{w\ 2764}#
- #{mod\ 2766}#)
- #{mod\ 2766}#)))
- #{val\ 2792}#)))
- #{r\ 2763}#)
- #{w\ 2764}#
- #{mod\ 2766}#)))))
- #{tmp\ 2773}#)
- (let ((#{_\ 2817}# #{tmp\ 2772}#))
+ (#{eval-local-transformer\ 2593}#
+ (#{chi\ 2581}#
+ #{x\ 4920}#
+ #{trans-r\ 4919}#
+ #{w\ 4872}#
+ #{mod\ 4874}#)
+ #{mod\ 4874}#)))
+ #{val\ 4900}#)))
+ #{r\ 4871}#)
+ #{w\ 4872}#
+ #{mod\ 4874}#)))))
+ #{tmp\ 4881}#)
+ (let ((#{_\ 4925}# #{tmp\ 4880}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 459}#
- #{e\ 2762}#
- #{w\ 2764}#
- #{s\ 2765}#
- #{mod\ 2766}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4870}#
+ #{w\ 4872}#
+ #{s\ 4873}#
+ #{mod\ 4874}#))))))))
+ (#{global-extend\ 2492}#
'core
'quote
- (lambda (#{e\ 2818}#
- #{r\ 2819}#
- #{w\ 2820}#
- #{s\ 2821}#
- #{mod\ 2822}#)
- (let ((#{tmp\ 2828}# #{e\ 2818}#))
- (let ((#{tmp\ 2829}#
- ($sc-dispatch #{tmp\ 2828}# (quote (any any)))))
- (if #{tmp\ 2829}#
+ (lambda (#{e\ 4926}#
+ #{r\ 4927}#
+ #{w\ 4928}#
+ #{s\ 4929}#
+ #{mod\ 4930}#)
+ (let ((#{tmp\ 4936}# #{e\ 4926}#))
+ (let ((#{tmp\ 4937}#
+ ($sc-dispatch #{tmp\ 4936}# (quote (any any)))))
+ (if #{tmp\ 4937}#
(@apply
- (lambda (#{_\ 2832}# #{e\ 2833}#)
- (#{build-data\ 338}#
- #{s\ 2821}#
- (#{strip\ 499}# #{e\ 2833}# #{w\ 2820}#)))
- #{tmp\ 2829}#)
- (let ((#{_\ 2835}# #{tmp\ 2828}#))
+ (lambda (#{_\ 4940}# #{e\ 4941}#)
+ (#{build-data\ 2446}#
+ #{s\ 4929}#
+ (#{strip\ 2607}# #{e\ 4941}# #{w\ 4928}#)))
+ #{tmp\ 4937}#)
+ (let ((#{_\ 4943}# #{tmp\ 4936}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 459}#
- #{e\ 2818}#
- #{w\ 2820}#
- #{s\ 2821}#
- #{mod\ 2822}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 2567}#
+ #{e\ 4926}#
+ #{w\ 4928}#
+ #{s\ 4929}#
+ #{mod\ 4930}#))))))))
+ (#{global-extend\ 2492}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 2837}#
- (lambda (#{src\ 2852}#
- #{e\ 2853}#
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#)
- (if (#{id?\ 388}# #{e\ 2853}#)
+ ((#{gen-syntax\ 4945}#
+ (lambda (#{src\ 4960}#
+ #{e\ 4961}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#)
+ (if (#{id?\ 2496}# #{e\ 4961}#)
(begin
- (let ((#{label\ 2865}#
- (#{id-var-name\ 445}#
- #{e\ 2853}#
+ (let ((#{label\ 4973}#
+ (#{id-var-name\ 2553}#
+ #{e\ 4961}#
'(()))))
(begin
- (let ((#{b\ 2868}#
- (#{lookup\ 382}#
- #{label\ 2865}#
- #{r\ 2854}#
- #{mod\ 2857}#)))
- (if (eq? (#{binding-type\ 371}# #{b\ 2868}#)
+ (let ((#{b\ 4976}#
+ (#{lookup\ 2490}#
+ #{label\ 4973}#
+ #{r\ 4962}#
+ #{mod\ 4965}#)))
+ (if (eq? (#{binding-type\ 2479}# #{b\ 4976}#)
'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 2870}#
- (#{binding-value\ 373}#
- #{b\ 2868}#)))
- (#{gen-ref\ 2839}#
- #{src\ 2852}#
- (car #{var.lev\ 2870}#)
- (cdr #{var.lev\ 2870}#)
- #{maps\ 2855}#))))
- (lambda (#{var\ 2871}# #{maps\ 2872}#)
+ (let ((#{var.lev\ 4978}#
+ (#{binding-value\ 2481}#
+ #{b\ 4976}#)))
+ (#{gen-ref\ 4947}#
+ #{src\ 4960}#
+ (car #{var.lev\ 4978}#)
+ (cdr #{var.lev\ 4978}#)
+ #{maps\ 4963}#))))
+ (lambda (#{var\ 4979}# #{maps\ 4980}#)
(values
- (list (quote ref) #{var\ 2871}#)
- #{maps\ 2872}#)))
- (if (#{ellipsis?\ 2856}# #{e\ 2853}#)
+ (list (quote ref) #{var\ 4979}#)
+ #{maps\ 4980}#)))
+ (if (#{ellipsis?\ 4964}# #{e\ 4961}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2852}#)
+ #{src\ 4960}#)
(values
- (list (quote quote) #{e\ 2853}#)
- #{maps\ 2855}#)))))))
- (let ((#{tmp\ 2877}# #{e\ 2853}#))
- (let ((#{tmp\ 2878}#
+ (list (quote quote) #{e\ 4961}#)
+ #{maps\ 4963}#)))))))
+ (let ((#{tmp\ 4985}# #{e\ 4961}#))
+ (let ((#{tmp\ 4986}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 4985}#
'(any any))))
- (if (if #{tmp\ 2878}#
+ (if (if #{tmp\ 4986}#
(@apply
- (lambda (#{dots\ 2881}# #{e\ 2882}#)
- (#{ellipsis?\ 2856}# #{dots\ 2881}#))
- #{tmp\ 2878}#)
+ (lambda (#{dots\ 4989}# #{e\ 4990}#)
+ (#{ellipsis?\ 4964}# #{dots\ 4989}#))
+ #{tmp\ 4986}#)
#f)
(@apply
- (lambda (#{dots\ 2885}# #{e\ 2886}#)
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{e\ 2886}#
- #{r\ 2854}#
- #{maps\ 2855}#
- (lambda (#{x\ 2887}#) #f)
- #{mod\ 2857}#))
- #{tmp\ 2878}#)
- (let ((#{tmp\ 2889}#
+ (lambda (#{dots\ 4993}# #{e\ 4994}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{e\ 4994}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ (lambda (#{x\ 4995}#) #f)
+ #{mod\ 4965}#))
+ #{tmp\ 4986}#)
+ (let ((#{tmp\ 4997}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 4985}#
'(any any . any))))
- (if (if #{tmp\ 2889}#
+ (if (if #{tmp\ 4997}#
(@apply
- (lambda (#{x\ 2893}#
- #{dots\ 2894}#
- #{y\ 2895}#)
- (#{ellipsis?\ 2856}# #{dots\ 2894}#))
- #{tmp\ 2889}#)
+ (lambda (#{x\ 5001}#
+ #{dots\ 5002}#
+ #{y\ 5003}#)
+ (#{ellipsis?\ 4964}# #{dots\ 5002}#))
+ #{tmp\ 4997}#)
#f)
(@apply
- (lambda (#{x\ 2899}#
- #{dots\ 2900}#
- #{y\ 2901}#)
+ (lambda (#{x\ 5007}#
+ #{dots\ 5008}#
+ #{y\ 5009}#)
(letrec*
- ((#{f\ 2905}#
- (lambda (#{y\ 2906}# #{k\ 2907}#)
- (let ((#{tmp\ 2914}# #{y\ 2906}#))
- (let ((#{tmp\ 2915}#
+ ((#{f\ 5013}#
+ (lambda (#{y\ 5014}# #{k\ 5015}#)
+ (let ((#{tmp\ 5022}# #{y\ 5014}#))
+ (let ((#{tmp\ 5023}#
($sc-dispatch
- #{tmp\ 2914}#
+ #{tmp\ 5022}#
'(any . any))))
- (if (if #{tmp\ 2915}#
+ (if (if #{tmp\ 5023}#
(@apply
- (lambda (#{dots\ 2918}#
- #{y\ 2919}#)
- (#{ellipsis?\ 2856}#
- #{dots\ 2918}#))
- #{tmp\ 2915}#)
+ (lambda (#{dots\ 5026}#
+ #{y\ 5027}#)
+ (#{ellipsis?\ 4964}#
+ #{dots\ 5026}#))
+ #{tmp\ 5023}#)
#f)
(@apply
- (lambda (#{dots\ 2922}#
- #{y\ 2923}#)
- (#{f\ 2905}#
- #{y\ 2923}#
- (lambda (#{maps\ 2924}#)
+ (lambda (#{dots\ 5030}#
+ #{y\ 5031}#)
+ (#{f\ 5013}#
+ #{y\ 5031}#
+ (lambda (#{maps\ 5032}#)
(call-with-values
(lambda ()
- (#{k\ 2907}#
+ (#{k\ 5015}#
(cons '()
- #{maps\ 2924}#)))
- (lambda (#{x\ 2926}#
- #{maps\ 2927}#)
- (if (null? (car #{maps\ 2927}#))
+ #{maps\ 5032}#)))
+ (lambda (#{x\ 5034}#
+ #{maps\ 5035}#)
+ (if (null? (car #{maps\ 5035}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2852}#)
+ #{src\ 4960}#)
(values
- (#{gen-mappend\ 2841}#
- #{x\ 2926}#
- (car #{maps\ 2927}#))
- (cdr #{maps\ 2927}#))))))))
- #{tmp\ 2915}#)
- (let ((#{_\ 2931}#
- #{tmp\ 2914}#))
+ (#{gen-mappend\ 4949}#
+ #{x\ 5034}#
+ (car #{maps\ 5035}#))
+ (cdr #{maps\ 5035}#))))))))
+ #{tmp\ 5023}#)
+ (let ((#{_\ 5039}#
+ #{tmp\ 5022}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{y\ 2906}#
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{y\ 2932}#
- #{maps\ 2933}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{y\ 5014}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{y\ 5040}#
+ #{maps\ 5041}#)
(call-with-values
(lambda ()
- (#{k\ 2907}#
- #{maps\ 2933}#))
- (lambda (#{x\ 2936}#
- #{maps\ 2937}#)
+ (#{k\ 5015}#
+ #{maps\ 5041}#))
+ (lambda (#{x\ 5044}#
+ #{maps\ 5045}#)
(values
- (#{gen-append\ 2847}#
- #{x\ 2936}#
- #{y\ 2932}#)
- #{maps\ 2937}#))))))))))))
+ (#{gen-append\ 4955}#
+ #{x\ 5044}#
+ #{y\ 5040}#)
+ #{maps\ 5045}#))))))))))))
(begin
- (#{f\ 2905}#
- #{y\ 2901}#
- (lambda (#{maps\ 2908}#)
+ (#{f\ 5013}#
+ #{y\ 5009}#
+ (lambda (#{maps\ 5016}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{x\ 2899}#
- #{r\ 2854}#
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{x\ 5007}#
+ #{r\ 4962}#
(cons '()
- #{maps\ 2908}#)
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{x\ 2910}#
- #{maps\ 2911}#)
- (if (null? (car #{maps\ 2911}#))
+ #{maps\ 5016}#)
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{x\ 5018}#
+ #{maps\ 5019}#)
+ (if (null? (car #{maps\ 5019}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2852}#)
+ #{src\ 4960}#)
(values
- (#{gen-map\ 2843}#
- #{x\ 2910}#
- (car #{maps\ 2911}#))
- (cdr #{maps\ 2911}#))))))))))
- #{tmp\ 2889}#)
- (let ((#{tmp\ 2940}#
+ (#{gen-map\ 4951}#
+ #{x\ 5018}#
+ (car #{maps\ 5019}#))
+ (cdr #{maps\ 5019}#))))))))))
+ #{tmp\ 4997}#)
+ (let ((#{tmp\ 5048}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 4985}#
'(any . any))))
- (if #{tmp\ 2940}#
+ (if #{tmp\ 5048}#
(@apply
- (lambda (#{x\ 2943}# #{y\ 2944}#)
+ (lambda (#{x\ 5051}# #{y\ 5052}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{x\ 2943}#
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{x\ 2945}# #{maps\ 2946}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{x\ 5051}#
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{x\ 5053}# #{maps\ 5054}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- #{y\ 2944}#
- #{r\ 2854}#
- #{maps\ 2946}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{y\ 2949}#
- #{maps\ 2950}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ #{y\ 5052}#
+ #{r\ 4962}#
+ #{maps\ 5054}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{y\ 5057}#
+ #{maps\ 5058}#)
(values
- (#{gen-cons\ 2845}#
- #{x\ 2945}#
- #{y\ 2949}#)
- #{maps\ 2950}#))))))
- #{tmp\ 2940}#)
- (let ((#{tmp\ 2953}#
+ (#{gen-cons\ 4953}#
+ #{x\ 5053}#
+ #{y\ 5057}#)
+ #{maps\ 5058}#))))))
+ #{tmp\ 5048}#)
+ (let ((#{tmp\ 5061}#
($sc-dispatch
- #{tmp\ 2877}#
+ #{tmp\ 4985}#
'#(vector (any . each-any)))))
- (if #{tmp\ 2953}#
+ (if #{tmp\ 5061}#
(@apply
- (lambda (#{e1\ 2956}# #{e2\ 2957}#)
+ (lambda (#{e1\ 5064}# #{e2\ 5065}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{src\ 2852}#
- (cons #{e1\ 2956}#
- #{e2\ 2957}#)
- #{r\ 2854}#
- #{maps\ 2855}#
- #{ellipsis?\ 2856}#
- #{mod\ 2857}#))
- (lambda (#{e\ 2959}#
- #{maps\ 2960}#)
+ (#{gen-syntax\ 4945}#
+ #{src\ 4960}#
+ (cons #{e1\ 5064}#
+ #{e2\ 5065}#)
+ #{r\ 4962}#
+ #{maps\ 4963}#
+ #{ellipsis?\ 4964}#
+ #{mod\ 4965}#))
+ (lambda (#{e\ 5067}#
+ #{maps\ 5068}#)
(values
- (#{gen-vector\ 2849}#
- #{e\ 2959}#)
- #{maps\ 2960}#))))
- #{tmp\ 2953}#)
- (let ((#{_\ 2964}# #{tmp\ 2877}#))
+ (#{gen-vector\ 4957}#
+ #{e\ 5067}#)
+ #{maps\ 5068}#))))
+ #{tmp\ 5061}#)
+ (let ((#{_\ 5072}# #{tmp\ 4985}#))
(values
- (list (quote quote) #{e\ 2853}#)
- #{maps\ 2855}#))))))))))))))
- (#{gen-ref\ 2839}#
- (lambda (#{src\ 2966}#
- #{var\ 2967}#
- #{level\ 2968}#
- #{maps\ 2969}#)
- (if (#{fx=\ 293}# #{level\ 2968}# 0)
- (values #{var\ 2967}# #{maps\ 2969}#)
- (if (null? #{maps\ 2969}#)
+ (list (quote quote) #{e\ 4961}#)
+ #{maps\ 4963}#))))))))))))))
+ (#{gen-ref\ 4947}#
+ (lambda (#{src\ 5074}#
+ #{var\ 5075}#
+ #{level\ 5076}#
+ #{maps\ 5077}#)
+ (if (#{fx=\ 2401}# #{level\ 5076}# 0)
+ (values #{var\ 5075}# #{maps\ 5077}#)
+ (if (null? #{maps\ 5077}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2966}#)
+ #{src\ 5074}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2839}#
- #{src\ 2966}#
- #{var\ 2967}#
- (#{fx-\ 291}# #{level\ 2968}# 1)
- (cdr #{maps\ 2969}#)))
- (lambda (#{outer-var\ 2974}# #{outer-maps\ 2975}#)
+ (#{gen-ref\ 4947}#
+ #{src\ 5074}#
+ #{var\ 5075}#
+ (#{fx-\ 2399}# #{level\ 5076}# 1)
+ (cdr #{maps\ 5077}#)))
+ (lambda (#{outer-var\ 5082}# #{outer-maps\ 5083}#)
(begin
- (let ((#{b\ 2979}#
- (assq #{outer-var\ 2974}#
- (car #{maps\ 2969}#))))
- (if #{b\ 2979}#
- (values (cdr #{b\ 2979}#) #{maps\ 2969}#)
+ (let ((#{b\ 5087}#
+ (assq #{outer-var\ 5082}#
+ (car #{maps\ 5077}#))))
+ (if #{b\ 5087}#
+ (values (cdr #{b\ 5087}#) #{maps\ 5077}#)
(begin
- (let ((#{inner-var\ 2981}#
- (#{gen-var\ 501}# (quote tmp))))
+ (let ((#{inner-var\ 5089}#
+ (#{gen-var\ 2609}# (quote tmp))))
(values
- #{inner-var\ 2981}#
- (cons (cons (cons #{outer-var\ 2974}#
- #{inner-var\ 2981}#)
- (car #{maps\ 2969}#))
- #{outer-maps\ 2975}#)))))))))))))
- (#{gen-mappend\ 2841}#
- (lambda (#{e\ 2982}# #{map-env\ 2983}#)
+ #{inner-var\ 5089}#
+ (cons (cons (cons #{outer-var\ 5082}#
+ #{inner-var\ 5089}#)
+ (car #{maps\ 5077}#))
+ #{outer-maps\ 5083}#)))))))))))))
+ (#{gen-mappend\ 4949}#
+ (lambda (#{e\ 5090}# #{map-env\ 5091}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2843}# #{e\ 2982}# #{map-env\ 2983}#))))
- (#{gen-map\ 2843}#
- (lambda (#{e\ 2987}# #{map-env\ 2988}#)
+ (#{gen-map\ 4951}# #{e\ 5090}# #{map-env\ 5091}#))))
+ (#{gen-map\ 4951}#
+ (lambda (#{e\ 5095}# #{map-env\ 5096}#)
(begin
- (let ((#{formals\ 2993}# (map cdr #{map-env\ 2988}#))
- (#{actuals\ 2994}#
- (map (lambda (#{x\ 2995}#)
- (list (quote ref) (car #{x\ 2995}#)))
- #{map-env\ 2988}#)))
- (if (eq? (car #{e\ 2987}#) (quote ref))
- (car #{actuals\ 2994}#)
+ (let ((#{formals\ 5101}# (map cdr #{map-env\ 5096}#))
+ (#{actuals\ 5102}#
+ (map (lambda (#{x\ 5103}#)
+ (list (quote ref) (car #{x\ 5103}#)))
+ #{map-env\ 5096}#)))
+ (if (eq? (car #{e\ 5095}#) (quote ref))
+ (car #{actuals\ 5102}#)
(if (and-map
- (lambda (#{x\ 3002}#)
- (if (eq? (car #{x\ 3002}#) (quote ref))
- (memq (car (cdr #{x\ 3002}#))
- #{formals\ 2993}#)
+ (lambda (#{x\ 5110}#)
+ (if (eq? (car #{x\ 5110}#) (quote ref))
+ (memq (car (cdr #{x\ 5110}#))
+ #{formals\ 5101}#)
#f))
- (cdr #{e\ 2987}#))
+ (cdr #{e\ 5095}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2987}#))
+ (car #{e\ 5095}#))
(map (begin
- (let ((#{r\ 3008}#
+ (let ((#{r\ 5116}#
(map cons
- #{formals\ 2993}#
- #{actuals\ 2994}#)))
- (lambda (#{x\ 3009}#)
- (cdr (assq (car (cdr #{x\ 3009}#))
- #{r\ 3008}#)))))
- (cdr #{e\ 2987}#))))
+ #{formals\ 5101}#
+ #{actuals\ 5102}#)))
+ (lambda (#{x\ 5117}#)
+ (cdr (assq (car (cdr #{x\ 5117}#))
+ #{r\ 5116}#)))))
+ (cdr #{e\ 5095}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2993}#
- #{e\ 2987}#)
- #{actuals\ 2994}#))))))))
- (#{gen-cons\ 2845}#
- (lambda (#{x\ 3013}# #{y\ 3014}#)
+ #{formals\ 5101}#
+ #{e\ 5095}#)
+ #{actuals\ 5102}#))))))))
+ (#{gen-cons\ 4953}#
+ (lambda (#{x\ 5121}# #{y\ 5122}#)
(begin
- (let ((#{atom-key\ 3019}# (car #{y\ 3014}#)))
- (if (eqv? #{atom-key\ 3019}# (quote quote))
- (if (eq? (car #{x\ 3013}#) (quote quote))
+ (let ((#{atom-key\ 5127}# (car #{y\ 5122}#)))
+ (if (eqv? #{atom-key\ 5127}# (quote quote))
+ (if (eq? (car #{x\ 5121}#) (quote quote))
(list 'quote
- (cons (car (cdr #{x\ 3013}#))
- (car (cdr #{y\ 3014}#))))
- (if (eq? (car (cdr #{y\ 3014}#)) (quote ()))
- (list (quote list) #{x\ 3013}#)
- (list (quote cons) #{x\ 3013}# #{y\ 3014}#)))
- (if (eqv? #{atom-key\ 3019}# (quote list))
+ (cons (car (cdr #{x\ 5121}#))
+ (car (cdr #{y\ 5122}#))))
+ (if (eq? (car (cdr #{y\ 5122}#)) (quote ()))
+ (list (quote list) #{x\ 5121}#)
+ (list (quote cons) #{x\ 5121}# #{y\ 5122}#)))
+ (if (eqv? #{atom-key\ 5127}# (quote list))
(cons 'list
- (cons #{x\ 3013}# (cdr #{y\ 3014}#)))
- (list (quote cons) #{x\ 3013}# #{y\ 3014}#)))))))
- (#{gen-append\ 2847}#
- (lambda (#{x\ 3028}# #{y\ 3029}#)
- (if (equal? #{y\ 3029}# (quote (quote ())))
- #{x\ 3028}#
- (list (quote append) #{x\ 3028}# #{y\ 3029}#))))
- (#{gen-vector\ 2849}#
- (lambda (#{x\ 3033}#)
- (if (eq? (car #{x\ 3033}#) (quote list))
- (cons (quote vector) (cdr #{x\ 3033}#))
- (if (eq? (car #{x\ 3033}#) (quote quote))
+ (cons #{x\ 5121}# (cdr #{y\ 5122}#)))
+ (list (quote cons) #{x\ 5121}# #{y\ 5122}#)))))))
+ (#{gen-append\ 4955}#
+ (lambda (#{x\ 5136}# #{y\ 5137}#)
+ (if (equal? #{y\ 5137}# (quote (quote ())))
+ #{x\ 5136}#
+ (list (quote append) #{x\ 5136}# #{y\ 5137}#))))
+ (#{gen-vector\ 4957}#
+ (lambda (#{x\ 5141}#)
+ (if (eq? (car #{x\ 5141}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 5141}#))
+ (if (eq? (car #{x\ 5141}#) (quote quote))
(list 'quote
- (list->vector (car (cdr #{x\ 3033}#))))
- (list (quote list->vector) #{x\ 3033}#)))))
- (#{regen\ 2851}#
- (lambda (#{x\ 3043}#)
+ (list->vector (car (cdr #{x\ 5141}#))))
+ (list (quote list->vector) #{x\ 5141}#)))))
+ (#{regen\ 4959}#
+ (lambda (#{x\ 5151}#)
(begin
- (let ((#{atom-key\ 3047}# (car #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote ref))
- (#{build-lexical-reference\ 316}#
+ (let ((#{atom-key\ 5155}# (car #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote ref))
+ (#{build-lexical-reference\ 2426}#
'value
#f
- (car (cdr #{x\ 3043}#))
- (car (cdr #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote primitive))
- (#{build-primref\ 336}#
+ (car (cdr #{x\ 5151}#))
+ (car (cdr #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote primitive))
+ (#{build-primref\ 2444}#
#f
- (car (cdr #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote quote))
- (#{build-data\ 338}# #f (car (cdr #{x\ 3043}#)))
- (if (eqv? #{atom-key\ 3047}# (quote lambda))
- (if (list? (car (cdr #{x\ 3043}#)))
- (#{build-simple-lambda\ 330}#
+ (car (cdr #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote quote))
+ (#{build-data\ 2446}#
+ #f
+ (car (cdr #{x\ 5151}#)))
+ (if (eqv? #{atom-key\ 5155}# (quote lambda))
+ (if (list? (car (cdr #{x\ 5151}#)))
+ (#{build-simple-lambda\ 2438}#
#f
- (car (cdr #{x\ 3043}#))
+ (car (cdr #{x\ 5151}#))
#f
- (car (cdr #{x\ 3043}#))
+ (car (cdr #{x\ 5151}#))
'()
- (#{regen\ 2851}#
- (car (cdr (cdr #{x\ 3043}#)))))
- (error "how did we get here" #{x\ 3043}#))
- (#{build-application\ 310}#
+ (#{regen\ 4959}#
+ (car (cdr (cdr #{x\ 5151}#)))))
+ (error "how did we get here" #{x\ 5151}#))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 2444}#
#f
- (car #{x\ 3043}#))
- (map #{regen\ 2851}#
- (cdr #{x\ 3043}#))))))))))))
+ (car #{x\ 5151}#))
+ (map #{regen\ 4959}#
+ (cdr #{x\ 5151}#))))))))))))
(begin
- (lambda (#{e\ 3059}#
- #{r\ 3060}#
- #{w\ 3061}#
- #{s\ 3062}#
- #{mod\ 3063}#)
+ (lambda (#{e\ 5167}#
+ #{r\ 5168}#
+ #{w\ 5169}#
+ #{s\ 5170}#
+ #{mod\ 5171}#)
(begin
- (let ((#{e\ 3070}#
- (#{source-wrap\ 459}#
- #{e\ 3059}#
- #{w\ 3061}#
- #{s\ 3062}#
- #{mod\ 3063}#)))
- (let ((#{tmp\ 3071}# #{e\ 3070}#))
- (let ((#{tmp\ 3072}#
+ (let ((#{e\ 5178}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5167}#
+ #{w\ 5169}#
+ #{s\ 5170}#
+ #{mod\ 5171}#)))
+ (let ((#{tmp\ 5179}# #{e\ 5178}#))
+ (let ((#{tmp\ 5180}#
($sc-dispatch
- #{tmp\ 3071}#
+ #{tmp\ 5179}#
'(any any))))
- (if #{tmp\ 3072}#
+ (if #{tmp\ 5180}#
(@apply
- (lambda (#{_\ 3075}# #{x\ 3076}#)
+ (lambda (#{_\ 5183}# #{x\ 5184}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2837}#
- #{e\ 3070}#
- #{x\ 3076}#
- #{r\ 3060}#
+ (#{gen-syntax\ 4945}#
+ #{e\ 5178}#
+ #{x\ 5184}#
+ #{r\ 5168}#
'()
- #{ellipsis?\ 489}#
- #{mod\ 3063}#))
- (lambda (#{e\ 3077}# #{maps\ 3078}#)
- (#{regen\ 2851}# #{e\ 3077}#))))
- #{tmp\ 3072}#)
- (let ((#{_\ 3082}# #{tmp\ 3071}#))
+ #{ellipsis?\ 2597}#
+ #{mod\ 5171}#))
+ (lambda (#{e\ 5185}# #{maps\ 5186}#)
+ (#{regen\ 4959}# #{e\ 5185}#))))
+ #{tmp\ 5180}#)
+ (let ((#{_\ 5190}# #{tmp\ 5179}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3070}#)))))))))))
- (#{global-extend\ 384}#
+ #{e\ 5178}#)))))))))))
+ (#{global-extend\ 2492}#
'core
'lambda
- (lambda (#{e\ 3083}#
- #{r\ 3084}#
- #{w\ 3085}#
- #{s\ 3086}#
- #{mod\ 3087}#)
- (let ((#{tmp\ 3093}# #{e\ 3083}#))
- (let ((#{tmp\ 3094}#
+ (lambda (#{e\ 5191}#
+ #{r\ 5192}#
+ #{w\ 5193}#
+ #{s\ 5194}#
+ #{mod\ 5195}#)
+ (let ((#{tmp\ 5201}# #{e\ 5191}#))
+ (let ((#{tmp\ 5202}#
($sc-dispatch
- #{tmp\ 3093}#
+ #{tmp\ 5201}#
'(any any any . each-any))))
- (if #{tmp\ 3094}#
+ (if #{tmp\ 5202}#
(@apply
- (lambda (#{_\ 3099}#
- #{args\ 3100}#
- #{e1\ 3101}#
- #{e2\ 3102}#)
+ (lambda (#{_\ 5207}#
+ #{args\ 5208}#
+ #{e1\ 5209}#
+ #{e2\ 5210}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 491}# #{args\ 3100}#))
- (lambda (#{req\ 3103}#
- #{opt\ 3104}#
- #{rest\ 3105}#
- #{kw\ 3106}#)
+ (#{lambda-formals\ 2599}# #{args\ 5208}#))
+ (lambda (#{req\ 5211}#
+ #{opt\ 5212}#
+ #{rest\ 5213}#
+ #{kw\ 5214}#)
(letrec*
- ((#{lp\ 3114}#
- (lambda (#{body\ 3115}# #{meta\ 3116}#)
- (let ((#{tmp\ 3118}# #{body\ 3115}#))
- (let ((#{tmp\ 3119}#
+ ((#{lp\ 5222}#
+ (lambda (#{body\ 5223}# #{meta\ 5224}#)
+ (let ((#{tmp\ 5226}# #{body\ 5223}#))
+ (let ((#{tmp\ 5227}#
($sc-dispatch
- #{tmp\ 3118}#
+ #{tmp\ 5226}#
'(any any . each-any))))
- (if (if #{tmp\ 3119}#
+ (if (if #{tmp\ 5227}#
(@apply
- (lambda (#{docstring\ 3123}#
- #{e1\ 3124}#
- #{e2\ 3125}#)
+ (lambda (#{docstring\ 5231}#
+ #{e1\ 5232}#
+ #{e2\ 5233}#)
(string?
(syntax->datum
- #{docstring\ 3123}#)))
- #{tmp\ 3119}#)
+ #{docstring\ 5231}#)))
+ #{tmp\ 5227}#)
#f)
(@apply
- (lambda (#{docstring\ 3129}#
- #{e1\ 3130}#
- #{e2\ 3131}#)
- (#{lp\ 3114}#
- (cons #{e1\ 3130}#
- #{e2\ 3131}#)
+ (lambda (#{docstring\ 5237}#
+ #{e1\ 5238}#
+ #{e2\ 5239}#)
+ (#{lp\ 5222}#
+ (cons #{e1\ 5238}#
+ #{e2\ 5239}#)
(append
- #{meta\ 3116}#
+ #{meta\ 5224}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 3129}#))))))
- #{tmp\ 3119}#)
- (let ((#{tmp\ 3134}#
+ #{docstring\ 5237}#))))))
+ #{tmp\ 5227}#)
+ (let ((#{tmp\ 5242}#
($sc-dispatch
- #{tmp\ 3118}#
+ #{tmp\ 5226}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 3134}#
+ (if #{tmp\ 5242}#
(@apply
- (lambda (#{k\ 3139}#
- #{v\ 3140}#
- #{e1\ 3141}#
- #{e2\ 3142}#)
- (#{lp\ 3114}#
- (cons #{e1\ 3141}#
- #{e2\ 3142}#)
+ (lambda (#{k\ 5247}#
+ #{v\ 5248}#
+ #{e1\ 5249}#
+ #{e2\ 5250}#)
+ (#{lp\ 5222}#
+ (cons #{e1\ 5249}#
+ #{e2\ 5250}#)
(append
- #{meta\ 3116}#
+ #{meta\ 5224}#
(syntax->datum
(map cons
- #{k\ 3139}#
- #{v\ 3140}#)))))
- #{tmp\ 3134}#)
- (let ((#{_\ 3147}#
- #{tmp\ 3118}#))
- (#{chi-simple-lambda\ 493}#
- #{e\ 3083}#
- #{r\ 3084}#
- #{w\ 3085}#
- #{s\ 3086}#
- #{mod\ 3087}#
- #{req\ 3103}#
- #{rest\ 3105}#
- #{meta\ 3116}#
- #{body\ 3115}#))))))))))
+ #{k\ 5247}#
+ #{v\ 5248}#)))))
+ #{tmp\ 5242}#)
+ (let ((#{_\ 5255}#
+ #{tmp\ 5226}#))
+ (#{chi-simple-lambda\ 2601}#
+ #{e\ 5191}#
+ #{r\ 5192}#
+ #{w\ 5193}#
+ #{s\ 5194}#
+ #{mod\ 5195}#
+ #{req\ 5211}#
+ #{rest\ 5213}#
+ #{meta\ 5224}#
+ #{body\ 5223}#))))))))))
(begin
- (#{lp\ 3114}#
- (cons #{e1\ 3101}# #{e2\ 3102}#)
+ (#{lp\ 5222}#
+ (cons #{e1\ 5209}# #{e2\ 5210}#)
'()))))))
- #{tmp\ 3094}#)
- (let ((#{_\ 3149}# #{tmp\ 3093}#))
+ #{tmp\ 5202}#)
+ (let ((#{_\ 5257}# #{tmp\ 5201}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3083}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 5191}#)))))))
+ (#{global-extend\ 2492}#
'core
'lambda*
- (lambda (#{e\ 3150}#
- #{r\ 3151}#
- #{w\ 3152}#
- #{s\ 3153}#
- #{mod\ 3154}#)
- (let ((#{tmp\ 3160}# #{e\ 3150}#))
- (let ((#{tmp\ 3161}#
+ (lambda (#{e\ 5258}#
+ #{r\ 5259}#
+ #{w\ 5260}#
+ #{s\ 5261}#
+ #{mod\ 5262}#)
+ (let ((#{tmp\ 5268}# #{e\ 5258}#))
+ (let ((#{tmp\ 5269}#
($sc-dispatch
- #{tmp\ 3160}#
+ #{tmp\ 5268}#
'(any any any . each-any))))
- (if #{tmp\ 3161}#
+ (if #{tmp\ 5269}#
(@apply
- (lambda (#{_\ 3166}#
- #{args\ 3167}#
- #{e1\ 3168}#
- #{e2\ 3169}#)
+ (lambda (#{_\ 5274}#
+ #{args\ 5275}#
+ #{e1\ 5276}#
+ #{e2\ 5277}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 3150}#
- #{r\ 3151}#
- #{w\ 3152}#
- #{s\ 3153}#
- #{mod\ 3154}#
- #{lambda*-formals\ 495}#
- (list (cons #{args\ 3167}#
- (cons #{e1\ 3168}#
- #{e2\ 3169}#)))))
- (lambda (#{meta\ 3171}# #{lcase\ 3172}#)
- (#{build-case-lambda\ 332}#
- #{s\ 3153}#
- #{meta\ 3171}#
- #{lcase\ 3172}#))))
- #{tmp\ 3161}#)
- (let ((#{_\ 3176}# #{tmp\ 3160}#))
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 5258}#
+ #{r\ 5259}#
+ #{w\ 5260}#
+ #{s\ 5261}#
+ #{mod\ 5262}#
+ #{lambda*-formals\ 2603}#
+ (list (cons #{args\ 5275}#
+ (cons #{e1\ 5276}#
+ #{e2\ 5277}#)))))
+ (lambda (#{meta\ 5279}# #{lcase\ 5280}#)
+ (#{build-case-lambda\ 2440}#
+ #{s\ 5261}#
+ #{meta\ 5279}#
+ #{lcase\ 5280}#))))
+ #{tmp\ 5269}#)
+ (let ((#{_\ 5284}# #{tmp\ 5268}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3150}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 5258}#)))))))
+ (#{global-extend\ 2492}#
'core
'case-lambda
- (lambda (#{e\ 3177}#
- #{r\ 3178}#
- #{w\ 3179}#
- #{s\ 3180}#
- #{mod\ 3181}#)
- (let ((#{tmp\ 3187}# #{e\ 3177}#))
- (let ((#{tmp\ 3188}#
+ (lambda (#{e\ 5285}#
+ #{r\ 5286}#
+ #{w\ 5287}#
+ #{s\ 5288}#
+ #{mod\ 5289}#)
+ (let ((#{tmp\ 5295}# #{e\ 5285}#))
+ (let ((#{tmp\ 5296}#
($sc-dispatch
- #{tmp\ 3187}#
+ #{tmp\ 5295}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3188}#
+ (if #{tmp\ 5296}#
(@apply
- (lambda (#{_\ 3196}#
- #{args\ 3197}#
- #{e1\ 3198}#
- #{e2\ 3199}#
- #{args*\ 3200}#
- #{e1*\ 3201}#
- #{e2*\ 3202}#)
+ (lambda (#{_\ 5304}#
+ #{args\ 5305}#
+ #{e1\ 5306}#
+ #{e2\ 5307}#
+ #{args*\ 5308}#
+ #{e1*\ 5309}#
+ #{e2*\ 5310}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 3177}#
- #{r\ 3178}#
- #{w\ 3179}#
- #{s\ 3180}#
- #{mod\ 3181}#
- #{lambda-formals\ 491}#
- (cons (cons #{args\ 3197}#
- (cons #{e1\ 3198}# #{e2\ 3199}#))
- (map (lambda (#{tmp\ 3206}#
- #{tmp\ 3205}#
- #{tmp\ 3204}#)
- (cons #{tmp\ 3204}#
- (cons #{tmp\ 3205}#
- #{tmp\ 3206}#)))
- #{e2*\ 3202}#
- #{e1*\ 3201}#
- #{args*\ 3200}#))))
- (lambda (#{meta\ 3208}# #{lcase\ 3209}#)
- (#{build-case-lambda\ 332}#
- #{s\ 3180}#
- #{meta\ 3208}#
- #{lcase\ 3209}#))))
- #{tmp\ 3188}#)
- (let ((#{_\ 3213}# #{tmp\ 3187}#))
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 5285}#
+ #{r\ 5286}#
+ #{w\ 5287}#
+ #{s\ 5288}#
+ #{mod\ 5289}#
+ #{lambda-formals\ 2599}#
+ (cons (cons #{args\ 5305}#
+ (cons #{e1\ 5306}# #{e2\ 5307}#))
+ (map (lambda (#{tmp\ 5314}#
+ #{tmp\ 5313}#
+ #{tmp\ 5312}#)
+ (cons #{tmp\ 5312}#
+ (cons #{tmp\ 5313}#
+ #{tmp\ 5314}#)))
+ #{e2*\ 5310}#
+ #{e1*\ 5309}#
+ #{args*\ 5308}#))))
+ (lambda (#{meta\ 5316}# #{lcase\ 5317}#)
+ (#{build-case-lambda\ 2440}#
+ #{s\ 5288}#
+ #{meta\ 5316}#
+ #{lcase\ 5317}#))))
+ #{tmp\ 5296}#)
+ (let ((#{_\ 5321}# #{tmp\ 5295}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3177}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 5285}#)))))))
+ (#{global-extend\ 2492}#
'core
'case-lambda*
- (lambda (#{e\ 3214}#
- #{r\ 3215}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#)
- (let ((#{tmp\ 3224}# #{e\ 3214}#))
- (let ((#{tmp\ 3225}#
+ (lambda (#{e\ 5322}#
+ #{r\ 5323}#
+ #{w\ 5324}#
+ #{s\ 5325}#
+ #{mod\ 5326}#)
+ (let ((#{tmp\ 5332}# #{e\ 5322}#))
+ (let ((#{tmp\ 5333}#
($sc-dispatch
- #{tmp\ 3224}#
+ #{tmp\ 5332}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3225}#
+ (if #{tmp\ 5333}#
(@apply
- (lambda (#{_\ 3233}#
- #{args\ 3234}#
- #{e1\ 3235}#
- #{e2\ 3236}#
- #{args*\ 3237}#
- #{e1*\ 3238}#
- #{e2*\ 3239}#)
+ (lambda (#{_\ 5341}#
+ #{args\ 5342}#
+ #{e1\ 5343}#
+ #{e2\ 5344}#
+ #{args*\ 5345}#
+ #{e1*\ 5346}#
+ #{e2*\ 5347}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 497}#
- #{e\ 3214}#
- #{r\ 3215}#
- #{w\ 3216}#
- #{s\ 3217}#
- #{mod\ 3218}#
- #{lambda*-formals\ 495}#
- (cons (cons #{args\ 3234}#
- (cons #{e1\ 3235}# #{e2\ 3236}#))
- (map (lambda (#{tmp\ 3243}#
- #{tmp\ 3242}#
- #{tmp\ 3241}#)
- (cons #{tmp\ 3241}#
- (cons #{tmp\ 3242}#
- #{tmp\ 3243}#)))
- #{e2*\ 3239}#
- #{e1*\ 3238}#
- #{args*\ 3237}#))))
- (lambda (#{meta\ 3245}# #{lcase\ 3246}#)
- (#{build-case-lambda\ 332}#
- #{s\ 3217}#
- #{meta\ 3245}#
- #{lcase\ 3246}#))))
- #{tmp\ 3225}#)
- (let ((#{_\ 3250}# #{tmp\ 3224}#))
+ (#{chi-lambda-case\ 2605}#
+ #{e\ 5322}#
+ #{r\ 5323}#
+ #{w\ 5324}#
+ #{s\ 5325}#
+ #{mod\ 5326}#
+ #{lambda*-formals\ 2603}#
+ (cons (cons #{args\ 5342}#
+ (cons #{e1\ 5343}# #{e2\ 5344}#))
+ (map (lambda (#{tmp\ 5351}#
+ #{tmp\ 5350}#
+ #{tmp\ 5349}#)
+ (cons #{tmp\ 5349}#
+ (cons #{tmp\ 5350}#
+ #{tmp\ 5351}#)))
+ #{e2*\ 5347}#
+ #{e1*\ 5346}#
+ #{args*\ 5345}#))))
+ (lambda (#{meta\ 5353}# #{lcase\ 5354}#)
+ (#{build-case-lambda\ 2440}#
+ #{s\ 5325}#
+ #{meta\ 5353}#
+ #{lcase\ 5354}#))))
+ #{tmp\ 5333}#)
+ (let ((#{_\ 5358}# #{tmp\ 5332}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3214}#)))))))
- (#{global-extend\ 384}#
+ #{e\ 5322}#)))))))
+ (#{global-extend\ 2492}#
'core
'let
(letrec*
- ((#{chi-let\ 3252}#
- (lambda (#{e\ 3253}#
- #{r\ 3254}#
- #{w\ 3255}#
- #{s\ 3256}#
- #{mod\ 3257}#
- #{constructor\ 3258}#
- #{ids\ 3259}#
- #{vals\ 3260}#
- #{exps\ 3261}#)
- (if (not (#{valid-bound-ids?\ 451}# #{ids\ 3259}#))
+ ((#{chi-let\ 5360}#
+ (lambda (#{e\ 5361}#
+ #{r\ 5362}#
+ #{w\ 5363}#
+ #{s\ 5364}#
+ #{mod\ 5365}#
+ #{constructor\ 5366}#
+ #{ids\ 5367}#
+ #{vals\ 5368}#
+ #{exps\ 5369}#)
+ (if (not (#{valid-bound-ids?\ 2559}# #{ids\ 5367}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3253}#)
+ #{e\ 5361}#)
(begin
- (let ((#{labels\ 3273}#
- (#{gen-labels\ 406}# #{ids\ 3259}#))
- (#{new-vars\ 3274}#
- (map #{gen-var\ 501}# #{ids\ 3259}#)))
+ (let ((#{labels\ 5381}#
+ (#{gen-labels\ 2514}# #{ids\ 5367}#))
+ (#{new-vars\ 5382}#
+ (map #{gen-var\ 2609}# #{ids\ 5367}#)))
(begin
- (let ((#{nw\ 3277}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 3259}#
- #{labels\ 3273}#
- #{w\ 3255}#))
- (#{nr\ 3278}#
- (#{extend-var-env\ 378}#
- #{labels\ 3273}#
- #{new-vars\ 3274}#
- #{r\ 3254}#)))
- (#{constructor\ 3258}#
- #{s\ 3256}#
- (map syntax->datum #{ids\ 3259}#)
- #{new-vars\ 3274}#
- (map (lambda (#{x\ 3279}#)
- (#{chi\ 473}#
- #{x\ 3279}#
- #{r\ 3254}#
- #{w\ 3255}#
- #{mod\ 3257}#))
- #{vals\ 3260}#)
- (#{chi-body\ 481}#
- #{exps\ 3261}#
- (#{source-wrap\ 459}#
- #{e\ 3253}#
- #{nw\ 3277}#
- #{s\ 3256}#
- #{mod\ 3257}#)
- #{nr\ 3278}#
- #{nw\ 3277}#
- #{mod\ 3257}#))))))))))
+ (let ((#{nw\ 5385}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5367}#
+ #{labels\ 5381}#
+ #{w\ 5363}#))
+ (#{nr\ 5386}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 5381}#
+ #{new-vars\ 5382}#
+ #{r\ 5362}#)))
+ (#{constructor\ 5366}#
+ #{s\ 5364}#
+ (map syntax->datum #{ids\ 5367}#)
+ #{new-vars\ 5382}#
+ (map (lambda (#{x\ 5387}#)
+ (#{chi\ 2581}#
+ #{x\ 5387}#
+ #{r\ 5362}#
+ #{w\ 5363}#
+ #{mod\ 5365}#))
+ #{vals\ 5368}#)
+ (#{chi-body\ 2589}#
+ #{exps\ 5369}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5361}#
+ #{nw\ 5385}#
+ #{s\ 5364}#
+ #{mod\ 5365}#)
+ #{nr\ 5386}#
+ #{nw\ 5385}#
+ #{mod\ 5365}#))))))))))
(begin
- (lambda (#{e\ 3281}#
- #{r\ 3282}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#)
- (let ((#{tmp\ 3291}# #{e\ 3281}#))
- (let ((#{tmp\ 3292}#
+ (lambda (#{e\ 5389}#
+ #{r\ 5390}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#)
+ (let ((#{tmp\ 5399}# #{e\ 5389}#))
+ (let ((#{tmp\ 5400}#
($sc-dispatch
- #{tmp\ 3291}#
+ #{tmp\ 5399}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3292}#
+ (if (if #{tmp\ 5400}#
(@apply
- (lambda (#{_\ 3298}#
- #{id\ 3299}#
- #{val\ 3300}#
- #{e1\ 3301}#
- #{e2\ 3302}#)
- (and-map #{id?\ 388}# #{id\ 3299}#))
- #{tmp\ 3292}#)
+ (lambda (#{_\ 5406}#
+ #{id\ 5407}#
+ #{val\ 5408}#
+ #{e1\ 5409}#
+ #{e2\ 5410}#)
+ (and-map #{id?\ 2496}# #{id\ 5407}#))
+ #{tmp\ 5400}#)
#f)
(@apply
- (lambda (#{_\ 3309}#
- #{id\ 3310}#
- #{val\ 3311}#
- #{e1\ 3312}#
- #{e2\ 3313}#)
- (#{chi-let\ 3252}#
- #{e\ 3281}#
- #{r\ 3282}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#
- #{build-let\ 342}#
- #{id\ 3310}#
- #{val\ 3311}#
- (cons #{e1\ 3312}# #{e2\ 3313}#)))
- #{tmp\ 3292}#)
- (let ((#{tmp\ 3317}#
+ (lambda (#{_\ 5417}#
+ #{id\ 5418}#
+ #{val\ 5419}#
+ #{e1\ 5420}#
+ #{e2\ 5421}#)
+ (#{chi-let\ 5360}#
+ #{e\ 5389}#
+ #{r\ 5390}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#
+ #{build-let\ 2450}#
+ #{id\ 5418}#
+ #{val\ 5419}#
+ (cons #{e1\ 5420}# #{e2\ 5421}#)))
+ #{tmp\ 5400}#)
+ (let ((#{tmp\ 5425}#
($sc-dispatch
- #{tmp\ 3291}#
+ #{tmp\ 5399}#
'(any any
#(each (any any))
any
.
each-any))))
- (if (if #{tmp\ 3317}#
+ (if (if #{tmp\ 5425}#
(@apply
- (lambda (#{_\ 3324}#
- #{f\ 3325}#
- #{id\ 3326}#
- #{val\ 3327}#
- #{e1\ 3328}#
- #{e2\ 3329}#)
- (if (#{id?\ 388}# #{f\ 3325}#)
- (and-map #{id?\ 388}# #{id\ 3326}#)
+ (lambda (#{_\ 5432}#
+ #{f\ 5433}#
+ #{id\ 5434}#
+ #{val\ 5435}#
+ #{e1\ 5436}#
+ #{e2\ 5437}#)
+ (if (#{id?\ 2496}# #{f\ 5433}#)
+ (and-map #{id?\ 2496}# #{id\ 5434}#)
#f))
- #{tmp\ 3317}#)
+ #{tmp\ 5425}#)
#f)
(@apply
- (lambda (#{_\ 3339}#
- #{f\ 3340}#
- #{id\ 3341}#
- #{val\ 3342}#
- #{e1\ 3343}#
- #{e2\ 3344}#)
- (#{chi-let\ 3252}#
- #{e\ 3281}#
- #{r\ 3282}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#
- #{build-named-let\ 344}#
- (cons #{f\ 3340}# #{id\ 3341}#)
- #{val\ 3342}#
- (cons #{e1\ 3343}# #{e2\ 3344}#)))
- #{tmp\ 3317}#)
- (let ((#{_\ 3349}# #{tmp\ 3291}#))
+ (lambda (#{_\ 5447}#
+ #{f\ 5448}#
+ #{id\ 5449}#
+ #{val\ 5450}#
+ #{e1\ 5451}#
+ #{e2\ 5452}#)
+ (#{chi-let\ 5360}#
+ #{e\ 5389}#
+ #{r\ 5390}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#
+ #{build-named-let\ 2452}#
+ (cons #{f\ 5448}# #{id\ 5449}#)
+ #{val\ 5450}#
+ (cons #{e1\ 5451}# #{e2\ 5452}#)))
+ #{tmp\ 5425}#)
+ (let ((#{_\ 5457}# #{tmp\ 5399}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 459}#
- #{e\ 3281}#
- #{w\ 3283}#
- #{s\ 3284}#
- #{mod\ 3285}#))))))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5389}#
+ #{w\ 5391}#
+ #{s\ 5392}#
+ #{mod\ 5393}#))))))))))))
+ (#{global-extend\ 2492}#
'core
'letrec
- (lambda (#{e\ 3350}#
- #{r\ 3351}#
- #{w\ 3352}#
- #{s\ 3353}#
- #{mod\ 3354}#)
- (let ((#{tmp\ 3360}# #{e\ 3350}#))
- (let ((#{tmp\ 3361}#
+ (lambda (#{e\ 5458}#
+ #{r\ 5459}#
+ #{w\ 5460}#
+ #{s\ 5461}#
+ #{mod\ 5462}#)
+ (let ((#{tmp\ 5468}# #{e\ 5458}#))
+ (let ((#{tmp\ 5469}#
($sc-dispatch
- #{tmp\ 3360}#
+ #{tmp\ 5468}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3361}#
+ (if (if #{tmp\ 5469}#
(@apply
- (lambda (#{_\ 3367}#
- #{id\ 3368}#
- #{val\ 3369}#
- #{e1\ 3370}#
- #{e2\ 3371}#)
- (and-map #{id?\ 388}# #{id\ 3368}#))
- #{tmp\ 3361}#)
+ (lambda (#{_\ 5475}#
+ #{id\ 5476}#
+ #{val\ 5477}#
+ #{e1\ 5478}#
+ #{e2\ 5479}#)
+ (and-map #{id?\ 2496}# #{id\ 5476}#))
+ #{tmp\ 5469}#)
#f)
(@apply
- (lambda (#{_\ 3378}#
- #{id\ 3379}#
- #{val\ 3380}#
- #{e1\ 3381}#
- #{e2\ 3382}#)
+ (lambda (#{_\ 5486}#
+ #{id\ 5487}#
+ #{val\ 5488}#
+ #{e1\ 5489}#
+ #{e2\ 5490}#)
(begin
- (let ((#{ids\ 3384}# #{id\ 3379}#))
- (if (not (#{valid-bound-ids?\ 451}#
- #{ids\ 3384}#))
+ (let ((#{ids\ 5492}# #{id\ 5487}#))
+ (if (not (#{valid-bound-ids?\ 2559}#
+ #{ids\ 5492}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3350}#)
+ #{e\ 5458}#)
(begin
- (let ((#{labels\ 3388}#
- (#{gen-labels\ 406}# #{ids\ 3384}#))
- (#{new-vars\ 3389}#
- (map #{gen-var\ 501}#
- #{ids\ 3384}#)))
+ (let ((#{labels\ 5496}#
+ (#{gen-labels\ 2514}# #{ids\ 5492}#))
+ (#{new-vars\ 5497}#
+ (map #{gen-var\ 2609}#
+ #{ids\ 5492}#)))
(begin
- (let ((#{w\ 3392}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 3384}#
- #{labels\ 3388}#
- #{w\ 3352}#))
- (#{r\ 3393}#
- (#{extend-var-env\ 378}#
- #{labels\ 3388}#
- #{new-vars\ 3389}#
- #{r\ 3351}#)))
- (#{build-letrec\ 346}#
- #{s\ 3353}#
+ (let ((#{w\ 5500}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5492}#
+ #{labels\ 5496}#
+ #{w\ 5460}#))
+ (#{r\ 5501}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 5496}#
+ #{new-vars\ 5497}#
+ #{r\ 5459}#)))
+ (#{build-letrec\ 2454}#
+ #{s\ 5461}#
#f
- (map syntax->datum #{ids\ 3384}#)
- #{new-vars\ 3389}#
- (map (lambda (#{x\ 3394}#)
- (#{chi\ 473}#
- #{x\ 3394}#
- #{r\ 3393}#
- #{w\ 3392}#
- #{mod\ 3354}#))
- #{val\ 3380}#)
- (#{chi-body\ 481}#
- (cons #{e1\ 3381}# #{e2\ 3382}#)
- (#{source-wrap\ 459}#
- #{e\ 3350}#
- #{w\ 3392}#
- #{s\ 3353}#
- #{mod\ 3354}#)
- #{r\ 3393}#
- #{w\ 3392}#
- #{mod\ 3354}#))))))))))
- #{tmp\ 3361}#)
- (let ((#{_\ 3399}# #{tmp\ 3360}#))
+ (map syntax->datum #{ids\ 5492}#)
+ #{new-vars\ 5497}#
+ (map (lambda (#{x\ 5502}#)
+ (#{chi\ 2581}#
+ #{x\ 5502}#
+ #{r\ 5501}#
+ #{w\ 5500}#
+ #{mod\ 5462}#))
+ #{val\ 5488}#)
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 5489}# #{e2\ 5490}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 5458}#
+ #{w\ 5500}#
+ #{s\ 5461}#
+ #{mod\ 5462}#)
+ #{r\ 5501}#
+ #{w\ 5500}#
+ #{mod\ 5462}#))))))))))
+ #{tmp\ 5469}#)
+ (let ((#{_\ 5507}# #{tmp\ 5468}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 459}#
- #{e\ 3350}#
- #{w\ 3352}#
- #{s\ 3353}#
- #{mod\ 3354}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5458}#
+ #{w\ 5460}#
+ #{s\ 5461}#
+ #{mod\ 5462}#))))))))
+ (#{global-extend\ 2492}#
'core
'letrec*
- (lambda (#{e\ 3400}#
- #{r\ 3401}#
- #{w\ 3402}#
- #{s\ 3403}#
- #{mod\ 3404}#)
- (let ((#{tmp\ 3410}# #{e\ 3400}#))
- (let ((#{tmp\ 3411}#
+ (lambda (#{e\ 5508}#
+ #{r\ 5509}#
+ #{w\ 5510}#
+ #{s\ 5511}#
+ #{mod\ 5512}#)
+ (let ((#{tmp\ 5518}# #{e\ 5508}#))
+ (let ((#{tmp\ 5519}#
($sc-dispatch
- #{tmp\ 3410}#
+ #{tmp\ 5518}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3411}#
+ (if (if #{tmp\ 5519}#
(@apply
- (lambda (#{_\ 3417}#
- #{id\ 3418}#
- #{val\ 3419}#
- #{e1\ 3420}#
- #{e2\ 3421}#)
- (and-map #{id?\ 388}# #{id\ 3418}#))
- #{tmp\ 3411}#)
+ (lambda (#{_\ 5525}#
+ #{id\ 5526}#
+ #{val\ 5527}#
+ #{e1\ 5528}#
+ #{e2\ 5529}#)
+ (and-map #{id?\ 2496}# #{id\ 5526}#))
+ #{tmp\ 5519}#)
#f)
(@apply
- (lambda (#{_\ 3428}#
- #{id\ 3429}#
- #{val\ 3430}#
- #{e1\ 3431}#
- #{e2\ 3432}#)
+ (lambda (#{_\ 5536}#
+ #{id\ 5537}#
+ #{val\ 5538}#
+ #{e1\ 5539}#
+ #{e2\ 5540}#)
(begin
- (let ((#{ids\ 3434}# #{id\ 3429}#))
- (if (not (#{valid-bound-ids?\ 451}#
- #{ids\ 3434}#))
+ (let ((#{ids\ 5542}# #{id\ 5537}#))
+ (if (not (#{valid-bound-ids?\ 2559}#
+ #{ids\ 5542}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 3400}#)
+ #{e\ 5508}#)
(begin
- (let ((#{labels\ 3438}#
- (#{gen-labels\ 406}# #{ids\ 3434}#))
- (#{new-vars\ 3439}#
- (map #{gen-var\ 501}#
- #{ids\ 3434}#)))
+ (let ((#{labels\ 5546}#
+ (#{gen-labels\ 2514}# #{ids\ 5542}#))
+ (#{new-vars\ 5547}#
+ (map #{gen-var\ 2609}#
+ #{ids\ 5542}#)))
(begin
- (let ((#{w\ 3442}#
- (#{make-binding-wrap\ 435}#
- #{ids\ 3434}#
- #{labels\ 3438}#
- #{w\ 3402}#))
- (#{r\ 3443}#
- (#{extend-var-env\ 378}#
- #{labels\ 3438}#
- #{new-vars\ 3439}#
- #{r\ 3401}#)))
- (#{build-letrec\ 346}#
- #{s\ 3403}#
+ (let ((#{w\ 5550}#
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5542}#
+ #{labels\ 5546}#
+ #{w\ 5510}#))
+ (#{r\ 5551}#
+ (#{extend-var-env\ 2486}#
+ #{labels\ 5546}#
+ #{new-vars\ 5547}#
+ #{r\ 5509}#)))
+ (#{build-letrec\ 2454}#
+ #{s\ 5511}#
#t
- (map syntax->datum #{ids\ 3434}#)
- #{new-vars\ 3439}#
- (map (lambda (#{x\ 3444}#)
- (#{chi\ 473}#
- #{x\ 3444}#
- #{r\ 3443}#
- #{w\ 3442}#
- #{mod\ 3404}#))
- #{val\ 3430}#)
- (#{chi-body\ 481}#
- (cons #{e1\ 3431}# #{e2\ 3432}#)
- (#{source-wrap\ 459}#
- #{e\ 3400}#
- #{w\ 3442}#
- #{s\ 3403}#
- #{mod\ 3404}#)
- #{r\ 3443}#
- #{w\ 3442}#
- #{mod\ 3404}#))))))))))
- #{tmp\ 3411}#)
- (let ((#{_\ 3449}# #{tmp\ 3410}#))
+ (map syntax->datum #{ids\ 5542}#)
+ #{new-vars\ 5547}#
+ (map (lambda (#{x\ 5552}#)
+ (#{chi\ 2581}#
+ #{x\ 5552}#
+ #{r\ 5551}#
+ #{w\ 5550}#
+ #{mod\ 5512}#))
+ #{val\ 5538}#)
+ (#{chi-body\ 2589}#
+ (cons #{e1\ 5539}# #{e2\ 5540}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 5508}#
+ #{w\ 5550}#
+ #{s\ 5511}#
+ #{mod\ 5512}#)
+ #{r\ 5551}#
+ #{w\ 5550}#
+ #{mod\ 5512}#))))))))))
+ #{tmp\ 5519}#)
+ (let ((#{_\ 5557}# #{tmp\ 5518}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 459}#
- #{e\ 3400}#
- #{w\ 3402}#
- #{s\ 3403}#
- #{mod\ 3404}#))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5508}#
+ #{w\ 5510}#
+ #{s\ 5511}#
+ #{mod\ 5512}#))))))))
+ (#{global-extend\ 2492}#
'core
'set!
- (lambda (#{e\ 3450}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{s\ 3453}#
- #{mod\ 3454}#)
- (let ((#{tmp\ 3460}# #{e\ 3450}#))
- (let ((#{tmp\ 3461}#
+ (lambda (#{e\ 5558}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{s\ 5561}#
+ #{mod\ 5562}#)
+ (let ((#{tmp\ 5568}# #{e\ 5558}#))
+ (let ((#{tmp\ 5569}#
($sc-dispatch
- #{tmp\ 3460}#
+ #{tmp\ 5568}#
'(any any any))))
- (if (if #{tmp\ 3461}#
+ (if (if #{tmp\ 5569}#
(@apply
- (lambda (#{_\ 3465}# #{id\ 3466}# #{val\ 3467}#)
- (#{id?\ 388}# #{id\ 3466}#))
- #{tmp\ 3461}#)
+ (lambda (#{_\ 5573}# #{id\ 5574}# #{val\ 5575}#)
+ (#{id?\ 2496}# #{id\ 5574}#))
+ #{tmp\ 5569}#)
#f)
(@apply
- (lambda (#{_\ 3471}# #{id\ 3472}# #{val\ 3473}#)
+ (lambda (#{_\ 5579}# #{id\ 5580}# #{val\ 5581}#)
(begin
- (let ((#{n\ 3475}#
- (#{id-var-name\ 445}#
- #{id\ 3472}#
- #{w\ 3452}#)))
+ (let ((#{n\ 5583}#
+ (#{id-var-name\ 2553}#
+ #{id\ 5580}#
+ #{w\ 5560}#)))
(begin
- (let ((#{b\ 3477}#
- (#{lookup\ 382}#
- #{n\ 3475}#
- #{r\ 3451}#
- #{mod\ 3454}#)))
+ (let ((#{b\ 5585}#
+ (#{lookup\ 2490}#
+ #{n\ 5583}#
+ #{r\ 5559}#
+ #{mod\ 5562}#)))
(begin
- (let ((#{atom-key\ 3480}#
- (#{binding-type\ 371}#
- #{b\ 3477}#)))
- (if (eqv? #{atom-key\ 3480}#
+ (let ((#{atom-key\ 5588}#
+ (#{binding-type\ 2479}#
+ #{b\ 5585}#)))
+ (if (eqv? #{atom-key\ 5588}#
'lexical)
- (#{build-lexical-assignment\ 318}#
- #{s\ 3453}#
- (syntax->datum #{id\ 3472}#)
- (#{binding-value\ 373}# #{b\ 3477}#)
- (#{chi\ 473}#
- #{val\ 3473}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#))
- (if (eqv? #{atom-key\ 3480}#
+ (#{build-lexical-assignment\ 2428}#
+ #{s\ 5561}#
+ (syntax->datum #{id\ 5580}#)
+ (#{binding-value\ 2481}# #{b\ 5585}#)
+ (#{chi\ 2581}#
+ #{val\ 5581}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#))
+ (if (eqv? #{atom-key\ 5588}#
'global)
- (#{build-global-assignment\ 324}#
- #{s\ 3453}#
- #{n\ 3475}#
- (#{chi\ 473}#
- #{val\ 3473}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)
- #{mod\ 3454}#)
- (if (eqv? #{atom-key\ 3480}#
+ (#{build-global-assignment\ 2434}#
+ #{s\ 5561}#
+ #{n\ 5583}#
+ (#{chi\ 2581}#
+ #{val\ 5581}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
+ #{mod\ 5562}#)
+ (if (eqv? #{atom-key\ 5588}#
'macro)
(begin
- (let ((#{p\ 3485}#
- (#{binding-value\ 373}#
- #{b\ 3477}#)))
+ (let ((#{p\ 5593}#
+ (#{binding-value\ 2481}#
+ #{b\ 5585}#)))
(if (procedure-property
- #{p\ 3485}#
+ #{p\ 5593}#
'variable-transformer)
- (#{chi\ 473}#
- (#{chi-macro\ 479}#
- #{p\ 3485}#
- #{e\ 3450}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{s\ 3453}#
+ (#{chi\ 2581}#
+ (#{chi-macro\ 2587}#
+ #{p\ 5593}#
+ #{e\ 5558}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{s\ 5561}#
#f
- #{mod\ 3454}#)
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)
+ #{mod\ 5562}#)
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap\ 457}#
- #{e\ 3450}#
- #{w\ 3452}#
- #{mod\ 3454}#)
- (#{wrap\ 457}#
- #{id\ 3472}#
- #{w\ 3452}#
- #{mod\ 3454}#)))))
- (if (eqv? #{atom-key\ 3480}#
+ (#{wrap\ 2565}#
+ #{e\ 5558}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
+ (#{wrap\ 2565}#
+ #{id\ 5580}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)))))
+ (if (eqv? #{atom-key\ 5588}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 457}#
- #{id\ 3472}#
- #{w\ 3452}#
- #{mod\ 3454}#))
+ (#{wrap\ 2565}#
+ #{id\ 5580}#
+ #{w\ 5560}#
+ #{mod\ 5562}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 459}#
- #{e\ 3450}#
- #{w\ 3452}#
- #{s\ 3453}#
- #{mod\ 3454}#)))))))))))))
- #{tmp\ 3461}#)
- (let ((#{tmp\ 3488}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5558}#
+ #{w\ 5560}#
+ #{s\ 5561}#
+ #{mod\ 5562}#)))))))))))))
+ #{tmp\ 5569}#)
+ (let ((#{tmp\ 5596}#
($sc-dispatch
- #{tmp\ 3460}#
+ #{tmp\ 5568}#
'(any (any . each-any) any))))
- (if #{tmp\ 3488}#
+ (if #{tmp\ 5596}#
(@apply
- (lambda (#{_\ 3493}#
- #{head\ 3494}#
- #{tail\ 3495}#
- #{val\ 3496}#)
+ (lambda (#{_\ 5601}#
+ #{head\ 5602}#
+ #{tail\ 5603}#
+ #{val\ 5604}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 469}#
- #{head\ 3494}#
- #{r\ 3451}#
+ (#{syntax-type\ 2577}#
+ #{head\ 5602}#
+ #{r\ 5559}#
'(())
#f
#f
- #{mod\ 3454}#
+ #{mod\ 5562}#
#t))
- (lambda (#{type\ 3499}#
- #{value\ 3500}#
- #{ee\ 3501}#
- #{ww\ 3502}#
- #{ss\ 3503}#
- #{modmod\ 3504}#)
- (if (eqv? #{type\ 3499}# (quote module-ref))
+ (lambda (#{type\ 5607}#
+ #{value\ 5608}#
+ #{ee\ 5609}#
+ #{ww\ 5610}#
+ #{ss\ 5611}#
+ #{modmod\ 5612}#)
+ (if (eqv? #{type\ 5607}# (quote module-ref))
(begin
- (let ((#{val\ 3513}#
- (#{chi\ 473}#
- #{val\ 3496}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)))
+ (let ((#{val\ 5621}#
+ (#{chi\ 2581}#
+ #{val\ 5604}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)))
(call-with-values
(lambda ()
- (#{value\ 3500}#
- (cons #{head\ 3494}#
- #{tail\ 3495}#)
- #{r\ 3451}#
- #{w\ 3452}#))
- (lambda (#{e\ 3515}#
- #{r\ 3516}#
- #{w\ 3517}#
- #{s*\ 3518}#
- #{mod\ 3519}#)
- (let ((#{tmp\ 3525}# #{e\ 3515}#))
- (let ((#{tmp\ 3526}#
- (list #{tmp\ 3525}#)))
- (if (if #{tmp\ 3526}#
+ (#{value\ 5608}#
+ (cons #{head\ 5602}#
+ #{tail\ 5603}#)
+ #{r\ 5559}#
+ #{w\ 5560}#))
+ (lambda (#{e\ 5623}#
+ #{r\ 5624}#
+ #{w\ 5625}#
+ #{s*\ 5626}#
+ #{mod\ 5627}#)
+ (let ((#{tmp\ 5633}# #{e\ 5623}#))
+ (let ((#{tmp\ 5634}#
+ (list #{tmp\ 5633}#)))
+ (if (if #{tmp\ 5634}#
(@apply
- (lambda (#{e\ 3528}#)
- (#{id?\ 388}#
- #{e\ 3528}#))
- #{tmp\ 3526}#)
+ (lambda (#{e\ 5636}#)
+ (#{id?\ 2496}#
+ #{e\ 5636}#))
+ #{tmp\ 5634}#)
#f)
(@apply
- (lambda (#{e\ 3530}#)
- (#{build-global-assignment\ 324}#
- #{s\ 3453}#
+ (lambda (#{e\ 5638}#)
+ (#{build-global-assignment\ 2434}#
+ #{s\ 5561}#
(syntax->datum
- #{e\ 3530}#)
- #{val\ 3513}#
- #{mod\ 3519}#))
- #{tmp\ 3526}#)
+ #{e\ 5638}#)
+ #{val\ 5621}#
+ #{mod\ 5627}#))
+ #{tmp\ 5634}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3525}#))))))))
- (#{build-application\ 310}#
- #{s\ 3453}#
- (#{chi\ 473}#
+ #{tmp\ 5633}#))))))))
+ (#{build-application\ 2420}#
+ #{s\ 5561}#
+ (#{chi\ 2581}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("i3505"
- "i3506"
- "i3507"
- "i3508"
- "i3509"
- "i3510"))
+ #("i5613"
+ "i5614"
+ "i5615"
+ "i5616"
+ "i5617"
+ "i5618"))
#(ribcage
#(_ head tail val)
#((top) (top) (top) (top))
- #("i3489"
- "i3490"
- "i3491"
- "i3492"))
+ #("i5597"
+ "i5598"
+ "i5599"
+ "i5600"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
(top)
(top)
(top))
- #("i3455"
- "i3456"
- "i3457"
- "i3458"
- "i3459"))
+ #("i5563"
+ "i5564"
+ "i5565"
+ "i5566"
+ "i5567"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))
- #{head\ 3494}#)
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#)
- (map (lambda (#{e\ 3532}#)
- (#{chi\ 473}#
- #{e\ 3532}#
- #{r\ 3451}#
- #{w\ 3452}#
- #{mod\ 3454}#))
+ #{head\ 5602}#)
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#)
+ (map (lambda (#{e\ 5640}#)
+ (#{chi\ 2581}#
+ #{e\ 5640}#
+ #{r\ 5559}#
+ #{w\ 5560}#
+ #{mod\ 5562}#))
(append
- #{tail\ 3495}#
- (list #{val\ 3496}#))))))))
- #{tmp\ 3488}#)
- (let ((#{_\ 3536}# #{tmp\ 3460}#))
+ #{tail\ 5603}#
+ (list #{val\ 5604}#))))))))
+ #{tmp\ 5596}#)
+ (let ((#{_\ 5644}# #{tmp\ 5568}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 459}#
- #{e\ 3450}#
- #{w\ 3452}#
- #{s\ 3453}#
- #{mod\ 3454}#))))))))))
- (#{global-extend\ 384}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5558}#
+ #{w\ 5560}#
+ #{s\ 5561}#
+ #{mod\ 5562}#))))))))))
+ (#{global-extend\ 2492}#
'module-ref
'@
- (lambda (#{e\ 3537}# #{r\ 3538}# #{w\ 3539}#)
- (let ((#{tmp\ 3543}# #{e\ 3537}#))
- (let ((#{tmp\ 3544}#
+ (lambda (#{e\ 5645}# #{r\ 5646}# #{w\ 5647}#)
+ (let ((#{tmp\ 5651}# #{e\ 5645}#))
+ (let ((#{tmp\ 5652}#
($sc-dispatch
- #{tmp\ 3543}#
+ #{tmp\ 5651}#
'(any each-any any))))
- (if (if #{tmp\ 3544}#
+ (if (if #{tmp\ 5652}#
(@apply
- (lambda (#{_\ 3548}# #{mod\ 3549}# #{id\ 3550}#)
- (if (and-map #{id?\ 388}# #{mod\ 3549}#)
- (#{id?\ 388}# #{id\ 3550}#)
+ (lambda (#{_\ 5656}# #{mod\ 5657}# #{id\ 5658}#)
+ (if (and-map #{id?\ 2496}# #{mod\ 5657}#)
+ (#{id?\ 2496}# #{id\ 5658}#)
#f))
- #{tmp\ 3544}#)
+ #{tmp\ 5652}#)
#f)
(@apply
- (lambda (#{_\ 3557}# #{mod\ 3558}# #{id\ 3559}#)
+ (lambda (#{_\ 5665}# #{mod\ 5666}# #{id\ 5667}#)
(values
- (syntax->datum #{id\ 3559}#)
- #{r\ 3538}#
- #{w\ 3539}#
+ (syntax->datum #{id\ 5667}#)
+ #{r\ 5646}#
+ #{w\ 5647}#
#f
(syntax->datum
(cons '#(syntax-object
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3554" "i3555" "i3556"))
+ #("i5662" "i5663" "i5664"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3540" "i3541" "i3542"))
+ #("i5648" "i5649" "i5650"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39" "i38" "i37" "i35")))
+ ("i2147" "i2146" "i2145" "i2143")))
(hygiene guile))
- #{mod\ 3558}#))))
- #{tmp\ 3544}#)
+ #{mod\ 5666}#))))
+ #{tmp\ 5652}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3543}#))))))
- (#{global-extend\ 384}#
+ #{tmp\ 5651}#))))))
+ (#{global-extend\ 2492}#
'module-ref
'@@
- (lambda (#{e\ 3561}# #{r\ 3562}# #{w\ 3563}#)
+ (lambda (#{e\ 5669}# #{r\ 5670}# #{w\ 5671}#)
(letrec*
- ((#{remodulate\ 3568}#
- (lambda (#{x\ 3569}# #{mod\ 3570}#)
- (if (pair? #{x\ 3569}#)
- (cons (#{remodulate\ 3568}#
- (car #{x\ 3569}#)
- #{mod\ 3570}#)
- (#{remodulate\ 3568}#
- (cdr #{x\ 3569}#)
- #{mod\ 3570}#))
- (if (#{syntax-object?\ 352}# #{x\ 3569}#)
- (#{make-syntax-object\ 350}#
- (#{remodulate\ 3568}#
- (#{syntax-object-expression\ 354}# #{x\ 3569}#)
- #{mod\ 3570}#)
- (#{syntax-object-wrap\ 356}# #{x\ 3569}#)
- #{mod\ 3570}#)
- (if (vector? #{x\ 3569}#)
+ ((#{remodulate\ 5676}#
+ (lambda (#{x\ 5677}# #{mod\ 5678}#)
+ (if (pair? #{x\ 5677}#)
+ (cons (#{remodulate\ 5676}#
+ (car #{x\ 5677}#)
+ #{mod\ 5678}#)
+ (#{remodulate\ 5676}#
+ (cdr #{x\ 5677}#)
+ #{mod\ 5678}#))
+ (if (#{syntax-object?\ 2460}# #{x\ 5677}#)
+ (#{make-syntax-object\ 2458}#
+ (#{remodulate\ 5676}#
+ (#{syntax-object-expression\ 2462}# #{x\ 5677}#)
+ #{mod\ 5678}#)
+ (#{syntax-object-wrap\ 2464}# #{x\ 5677}#)
+ #{mod\ 5678}#)
+ (if (vector? #{x\ 5677}#)
(begin
- (let ((#{n\ 3581}# (vector-length #{x\ 3569}#)))
+ (let ((#{n\ 5689}# (vector-length #{x\ 5677}#)))
(begin
- (let ((#{v\ 3583}#
- (make-vector #{n\ 3581}#)))
+ (let ((#{v\ 5691}#
+ (make-vector #{n\ 5689}#)))
(letrec*
- ((#{loop\ 3586}#
- (lambda (#{i\ 3587}#)
- (if (#{fx=\ 293}#
- #{i\ 3587}#
- #{n\ 3581}#)
- (begin (if #f #f) #{v\ 3583}#)
+ ((#{loop\ 5694}#
+ (lambda (#{i\ 5695}#)
+ (if (#{fx=\ 2401}#
+ #{i\ 5695}#
+ #{n\ 5689}#)
+ (begin (if #f #f) #{v\ 5691}#)
(begin
(vector-set!
- #{v\ 3583}#
- #{i\ 3587}#
- (#{remodulate\ 3568}#
+ #{v\ 5691}#
+ #{i\ 5695}#
+ (#{remodulate\ 5676}#
(vector-ref
- #{x\ 3569}#
- #{i\ 3587}#)
- #{mod\ 3570}#))
- (#{loop\ 3586}#
- (#{fx+\ 289}#
- #{i\ 3587}#
+ #{x\ 5677}#
+ #{i\ 5695}#)
+ #{mod\ 5678}#))
+ (#{loop\ 5694}#
+ (#{fx+\ 2397}#
+ #{i\ 5695}#
1)))))))
- (begin (#{loop\ 3586}# 0)))))))
- #{x\ 3569}#))))))
+ (begin (#{loop\ 5694}# 0)))))))
+ #{x\ 5677}#))))))
(begin
- (let ((#{tmp\ 3591}# #{e\ 3561}#))
- (let ((#{tmp\ 3592}#
+ (let ((#{tmp\ 5699}# #{e\ 5669}#))
+ (let ((#{tmp\ 5700}#
($sc-dispatch
- #{tmp\ 3591}#
+ #{tmp\ 5699}#
'(any each-any any))))
- (if (if #{tmp\ 3592}#
+ (if (if #{tmp\ 5700}#
(@apply
- (lambda (#{_\ 3596}#
- #{mod\ 3597}#
- #{exp\ 3598}#)
- (and-map #{id?\ 388}# #{mod\ 3597}#))
- #{tmp\ 3592}#)
+ (lambda (#{_\ 5704}#
+ #{mod\ 5705}#
+ #{exp\ 5706}#)
+ (and-map #{id?\ 2496}# #{mod\ 5705}#))
+ #{tmp\ 5700}#)
#f)
(@apply
- (lambda (#{_\ 3603}# #{mod\ 3604}# #{exp\ 3605}#)
+ (lambda (#{_\ 5711}# #{mod\ 5712}# #{exp\ 5713}#)
(begin
- (let ((#{mod\ 3607}#
+ (let ((#{mod\ 5715}#
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i3600"
- "i3601"
- "i3602"))
+ #("i5708"
+ "i5709"
+ "i5710"))
#(ribcage
(remodulate)
((top))
- ("i3567"))
+ ("i5675"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3564"
- "i3565"
- "i3566"))
+ #("i5672"
+ "i5673"
+ "i5674"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))
- #{mod\ 3604}#))))
+ #{mod\ 5712}#))))
(values
- (#{remodulate\ 3568}#
- #{exp\ 3605}#
- #{mod\ 3607}#)
- #{r\ 3562}#
- #{w\ 3563}#
- (#{source-annotation\ 367}# #{exp\ 3605}#)
- #{mod\ 3607}#))))
- #{tmp\ 3592}#)
+ (#{remodulate\ 5676}#
+ #{exp\ 5713}#
+ #{mod\ 5715}#)
+ #{r\ 5670}#
+ #{w\ 5671}#
+ (#{source-annotation\ 2475}# #{exp\ 5713}#)
+ #{mod\ 5715}#))))
+ #{tmp\ 5700}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3591}#))))))))
- (#{global-extend\ 384}#
+ #{tmp\ 5699}#))))))))
+ (#{global-extend\ 2492}#
'core
'if
- (lambda (#{e\ 3609}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{s\ 3612}#
- #{mod\ 3613}#)
- (let ((#{tmp\ 3619}# #{e\ 3609}#))
- (let ((#{tmp\ 3620}#
+ (lambda (#{e\ 5717}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{s\ 5720}#
+ #{mod\ 5721}#)
+ (let ((#{tmp\ 5727}# #{e\ 5717}#))
+ (let ((#{tmp\ 5728}#
($sc-dispatch
- #{tmp\ 3619}#
+ #{tmp\ 5727}#
'(any any any))))
- (if #{tmp\ 3620}#
+ (if #{tmp\ 5728}#
(@apply
- (lambda (#{_\ 3624}# #{test\ 3625}# #{then\ 3626}#)
- (#{build-conditional\ 312}#
- #{s\ 3612}#
- (#{chi\ 473}#
- #{test\ 3625}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{chi\ 473}#
- #{then\ 3626}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{build-void\ 308}# #f)))
- #{tmp\ 3620}#)
- (let ((#{tmp\ 3628}#
+ (lambda (#{_\ 5732}# #{test\ 5733}# #{then\ 5734}#)
+ (#{build-conditional\ 2422}#
+ #{s\ 5720}#
+ (#{chi\ 2581}#
+ #{test\ 5733}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{chi\ 2581}#
+ #{then\ 5734}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{build-void\ 2418}# #f)))
+ #{tmp\ 5728}#)
+ (let ((#{tmp\ 5736}#
($sc-dispatch
- #{tmp\ 3619}#
+ #{tmp\ 5727}#
'(any any any any))))
- (if #{tmp\ 3628}#
+ (if #{tmp\ 5736}#
(@apply
- (lambda (#{_\ 3633}#
- #{test\ 3634}#
- #{then\ 3635}#
- #{else\ 3636}#)
- (#{build-conditional\ 312}#
- #{s\ 3612}#
- (#{chi\ 473}#
- #{test\ 3634}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{chi\ 473}#
- #{then\ 3635}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)
- (#{chi\ 473}#
- #{else\ 3636}#
- #{r\ 3610}#
- #{w\ 3611}#
- #{mod\ 3613}#)))
- #{tmp\ 3628}#)
+ (lambda (#{_\ 5741}#
+ #{test\ 5742}#
+ #{then\ 5743}#
+ #{else\ 5744}#)
+ (#{build-conditional\ 2422}#
+ #{s\ 5720}#
+ (#{chi\ 2581}#
+ #{test\ 5742}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{chi\ 2581}#
+ #{then\ 5743}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)
+ (#{chi\ 2581}#
+ #{else\ 5744}#
+ #{r\ 5718}#
+ #{w\ 5719}#
+ #{mod\ 5721}#)))
+ #{tmp\ 5736}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3619}#))))))))
- (#{global-extend\ 384}#
+ #{tmp\ 5727}#))))))))
+ (#{global-extend\ 2492}#
'core
'with-fluids
- (lambda (#{e\ 3637}#
- #{r\ 3638}#
- #{w\ 3639}#
- #{s\ 3640}#
- #{mod\ 3641}#)
- (let ((#{tmp\ 3647}# #{e\ 3637}#))
- (let ((#{tmp\ 3648}#
+ (lambda (#{e\ 5745}#
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{s\ 5748}#
+ #{mod\ 5749}#)
+ (let ((#{tmp\ 5755}# #{e\ 5745}#))
+ (let ((#{tmp\ 5756}#
($sc-dispatch
- #{tmp\ 3647}#
+ #{tmp\ 5755}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 3648}#
+ (if #{tmp\ 5756}#
(@apply
- (lambda (#{_\ 3654}#
- #{fluid\ 3655}#
- #{val\ 3656}#
- #{b\ 3657}#
- #{b*\ 3658}#)
- (#{build-dynlet\ 314}#
- #{s\ 3640}#
- (map (lambda (#{x\ 3659}#)
- (#{chi\ 473}#
- #{x\ 3659}#
- #{r\ 3638}#
- #{w\ 3639}#
- #{mod\ 3641}#))
- #{fluid\ 3655}#)
- (map (lambda (#{x\ 3662}#)
- (#{chi\ 473}#
- #{x\ 3662}#
- #{r\ 3638}#
- #{w\ 3639}#
- #{mod\ 3641}#))
- #{val\ 3656}#)
- (#{chi-body\ 481}#
- (cons #{b\ 3657}# #{b*\ 3658}#)
- (#{source-wrap\ 459}#
- #{e\ 3637}#
- #{w\ 3639}#
- #{s\ 3640}#
- #{mod\ 3641}#)
- #{r\ 3638}#
- #{w\ 3639}#
- #{mod\ 3641}#)))
- #{tmp\ 3648}#)
+ (lambda (#{_\ 5762}#
+ #{fluid\ 5763}#
+ #{val\ 5764}#
+ #{b\ 5765}#
+ #{b*\ 5766}#)
+ (#{build-dynlet\ 2424}#
+ #{s\ 5748}#
+ (map (lambda (#{x\ 5767}#)
+ (#{chi\ 2581}#
+ #{x\ 5767}#
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{mod\ 5749}#))
+ #{fluid\ 5763}#)
+ (map (lambda (#{x\ 5770}#)
+ (#{chi\ 2581}#
+ #{x\ 5770}#
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{mod\ 5749}#))
+ #{val\ 5764}#)
+ (#{chi-body\ 2589}#
+ (cons #{b\ 5765}# #{b*\ 5766}#)
+ (#{source-wrap\ 2567}#
+ #{e\ 5745}#
+ #{w\ 5747}#
+ #{s\ 5748}#
+ #{mod\ 5749}#)
+ #{r\ 5746}#
+ #{w\ 5747}#
+ #{mod\ 5749}#)))
+ #{tmp\ 5756}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3647}#))))))
- (#{global-extend\ 384}#
+ #{tmp\ 5755}#))))))
+ (#{global-extend\ 2492}#
'begin
'begin
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 2492}#
'define
'define
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 2492}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 2492}#
'eval-when
'eval-when
'())
- (#{global-extend\ 384}#
+ (#{global-extend\ 2492}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 3667}#
- (lambda (#{pattern\ 3674}# #{keys\ 3675}#)
+ ((#{convert-pattern\ 5775}#
+ (lambda (#{pattern\ 5782}# #{keys\ 5783}#)
(letrec*
- ((#{cvt*\ 3679}#
- (lambda (#{p*\ 3682}# #{n\ 3683}# #{ids\ 3684}#)
- (if (null? #{p*\ 3682}#)
- (values (quote ()) #{ids\ 3684}#)
+ ((#{cvt*\ 5787}#
+ (lambda (#{p*\ 5790}# #{n\ 5791}# #{ids\ 5792}#)
+ (if (null? #{p*\ 5790}#)
+ (values (quote ()) #{ids\ 5792}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3679}#
- (cdr #{p*\ 3682}#)
- #{n\ 3683}#
- #{ids\ 3684}#))
- (lambda (#{y\ 3688}# #{ids\ 3689}#)
+ (#{cvt*\ 5787}#
+ (cdr #{p*\ 5790}#)
+ #{n\ 5791}#
+ #{ids\ 5792}#))
+ (lambda (#{y\ 5796}# #{ids\ 5797}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- (car #{p*\ 3682}#)
- #{n\ 3683}#
- #{ids\ 3689}#))
- (lambda (#{x\ 3692}# #{ids\ 3693}#)
+ (#{cvt\ 5789}#
+ (car #{p*\ 5790}#)
+ #{n\ 5791}#
+ #{ids\ 5797}#))
+ (lambda (#{x\ 5800}# #{ids\ 5801}#)
(values
- (cons #{x\ 3692}# #{y\ 3688}#)
- #{ids\ 3693}#))))))))
- (#{cvt\ 3681}#
- (lambda (#{p\ 3696}# #{n\ 3697}# #{ids\ 3698}#)
- (if (#{id?\ 388}# #{p\ 3696}#)
- (if (#{bound-id-member?\ 455}#
- #{p\ 3696}#
- #{keys\ 3675}#)
+ (cons #{x\ 5800}# #{y\ 5796}#)
+ #{ids\ 5801}#))))))))
+ (#{cvt\ 5789}#
+ (lambda (#{p\ 5804}# #{n\ 5805}# #{ids\ 5806}#)
+ (if (#{id?\ 2496}# #{p\ 5804}#)
+ (if (#{bound-id-member?\ 2563}#
+ #{p\ 5804}#
+ #{keys\ 5783}#)
(values
- (vector (quote free-id) #{p\ 3696}#)
- #{ids\ 3698}#)
+ (vector (quote free-id) #{p\ 5804}#)
+ #{ids\ 5806}#)
(values
'any
- (cons (cons #{p\ 3696}# #{n\ 3697}#)
- #{ids\ 3698}#)))
- (let ((#{tmp\ 3702}# #{p\ 3696}#))
- (let ((#{tmp\ 3703}#
+ (cons (cons #{p\ 5804}# #{n\ 5805}#)
+ #{ids\ 5806}#)))
+ (let ((#{tmp\ 5810}# #{p\ 5804}#))
+ (let ((#{tmp\ 5811}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 5810}#
'(any any))))
- (if (if #{tmp\ 3703}#
+ (if (if #{tmp\ 5811}#
(@apply
- (lambda (#{x\ 3706}# #{dots\ 3707}#)
- (#{ellipsis?\ 489}#
- #{dots\ 3707}#))
- #{tmp\ 3703}#)
+ (lambda (#{x\ 5814}# #{dots\ 5815}#)
+ (#{ellipsis?\ 2597}#
+ #{dots\ 5815}#))
+ #{tmp\ 5811}#)
#f)
(@apply
- (lambda (#{x\ 3710}# #{dots\ 3711}#)
+ (lambda (#{x\ 5818}# #{dots\ 5819}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3710}#
- (#{fx+\ 289}# #{n\ 3697}# 1)
- #{ids\ 3698}#))
- (lambda (#{p\ 3712}# #{ids\ 3713}#)
+ (#{cvt\ 5789}#
+ #{x\ 5818}#
+ (#{fx+\ 2397}# #{n\ 5805}# 1)
+ #{ids\ 5806}#))
+ (lambda (#{p\ 5820}# #{ids\ 5821}#)
(values
- (if (eq? #{p\ 3712}# (quote any))
+ (if (eq? #{p\ 5820}# (quote any))
'each-any
(vector
'each
- #{p\ 3712}#))
- #{ids\ 3713}#))))
- #{tmp\ 3703}#)
- (let ((#{tmp\ 3716}#
+ #{p\ 5820}#))
+ #{ids\ 5821}#))))
+ #{tmp\ 5811}#)
+ (let ((#{tmp\ 5824}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 5810}#
'(any any . each-any))))
- (if (if #{tmp\ 3716}#
+ (if (if #{tmp\ 5824}#
(@apply
- (lambda (#{x\ 3720}#
- #{dots\ 3721}#
- #{ys\ 3722}#)
- (#{ellipsis?\ 489}#
- #{dots\ 3721}#))
- #{tmp\ 3716}#)
+ (lambda (#{x\ 5828}#
+ #{dots\ 5829}#
+ #{ys\ 5830}#)
+ (#{ellipsis?\ 2597}#
+ #{dots\ 5829}#))
+ #{tmp\ 5824}#)
#f)
(@apply
- (lambda (#{x\ 3726}#
- #{dots\ 3727}#
- #{ys\ 3728}#)
+ (lambda (#{x\ 5834}#
+ #{dots\ 5835}#
+ #{ys\ 5836}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3679}#
- #{ys\ 3728}#
- #{n\ 3697}#
- #{ids\ 3698}#))
- (lambda (#{ys\ 3730}#
- #{ids\ 3731}#)
+ (#{cvt*\ 5787}#
+ #{ys\ 5836}#
+ #{n\ 5805}#
+ #{ids\ 5806}#))
+ (lambda (#{ys\ 5838}#
+ #{ids\ 5839}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3726}#
- (1+ #{n\ 3697}#)
- #{ids\ 3731}#))
- (lambda (#{x\ 3734}#
- #{ids\ 3735}#)
+ (#{cvt\ 5789}#
+ #{x\ 5834}#
+ (1+ #{n\ 5805}#)
+ #{ids\ 5839}#))
+ (lambda (#{x\ 5842}#
+ #{ids\ 5843}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3734}#
+ (cons #{x\ 5842}#
(cons (reverse
- #{ys\ 3730}#)
+ #{ys\ 5838}#)
'(())))))
- #{ids\ 3735}#))))))
- #{tmp\ 3716}#)
- (let ((#{tmp\ 3739}#
+ #{ids\ 5843}#))))))
+ #{tmp\ 5824}#)
+ (let ((#{tmp\ 5847}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 5810}#
'(any . any))))
- (if #{tmp\ 3739}#
+ (if #{tmp\ 5847}#
(@apply
- (lambda (#{x\ 3742}# #{y\ 3743}#)
+ (lambda (#{x\ 5850}# #{y\ 5851}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{y\ 3743}#
- #{n\ 3697}#
- #{ids\ 3698}#))
- (lambda (#{y\ 3744}#
- #{ids\ 3745}#)
+ (#{cvt\ 5789}#
+ #{y\ 5851}#
+ #{n\ 5805}#
+ #{ids\ 5806}#))
+ (lambda (#{y\ 5852}#
+ #{ids\ 5853}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3742}#
- #{n\ 3697}#
- #{ids\ 3745}#))
- (lambda (#{x\ 3748}#
- #{ids\ 3749}#)
+ (#{cvt\ 5789}#
+ #{x\ 5850}#
+ #{n\ 5805}#
+ #{ids\ 5853}#))
+ (lambda (#{x\ 5856}#
+ #{ids\ 5857}#)
(values
- (cons #{x\ 3748}#
- #{y\ 3744}#)
- #{ids\ 3749}#))))))
- #{tmp\ 3739}#)
- (let ((#{tmp\ 3752}#
+ (cons #{x\ 5856}#
+ #{y\ 5852}#)
+ #{ids\ 5857}#))))))
+ #{tmp\ 5847}#)
+ (let ((#{tmp\ 5860}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 5810}#
'())))
- (if #{tmp\ 3752}#
+ (if #{tmp\ 5860}#
(@apply
(lambda ()
(values
'()
- #{ids\ 3698}#))
- #{tmp\ 3752}#)
- (let ((#{tmp\ 3753}#
+ #{ids\ 5806}#))
+ #{tmp\ 5860}#)
+ (let ((#{tmp\ 5861}#
($sc-dispatch
- #{tmp\ 3702}#
+ #{tmp\ 5810}#
'#(vector
each-any))))
- (if #{tmp\ 3753}#
+ (if #{tmp\ 5861}#
(@apply
- (lambda (#{x\ 3755}#)
+ (lambda (#{x\ 5863}#)
(call-with-values
(lambda ()
- (#{cvt\ 3681}#
- #{x\ 3755}#
- #{n\ 3697}#
- #{ids\ 3698}#))
- (lambda (#{p\ 3757}#
- #{ids\ 3758}#)
+ (#{cvt\ 5789}#
+ #{x\ 5863}#
+ #{n\ 5805}#
+ #{ids\ 5806}#))
+ (lambda (#{p\ 5865}#
+ #{ids\ 5866}#)
(values
(vector
'vector
- #{p\ 3757}#)
- #{ids\ 3758}#))))
- #{tmp\ 3753}#)
- (let ((#{x\ 3762}#
- #{tmp\ 3702}#))
+ #{p\ 5865}#)
+ #{ids\ 5866}#))))
+ #{tmp\ 5861}#)
+ (let ((#{x\ 5870}#
+ #{tmp\ 5810}#))
(values
(vector
'atom
- (#{strip\ 499}#
- #{p\ 3696}#
+ (#{strip\ 2607}#
+ #{p\ 5804}#
'(())))
- #{ids\ 3698}#)))))))))))))))))
+ #{ids\ 5806}#)))))))))))))))))
(begin
- (#{cvt\ 3681}# #{pattern\ 3674}# 0 (quote ()))))))
- (#{build-dispatch-call\ 3669}#
- (lambda (#{pvars\ 3764}#
- #{exp\ 3765}#
- #{y\ 3766}#
- #{r\ 3767}#
- #{mod\ 3768}#)
+ (#{cvt\ 5789}# #{pattern\ 5782}# 0 (quote ()))))))
+ (#{build-dispatch-call\ 5777}#
+ (lambda (#{pvars\ 5872}#
+ #{exp\ 5873}#
+ #{y\ 5874}#
+ #{r\ 5875}#
+ #{mod\ 5876}#)
(begin
- (map cdr #{pvars\ 3764}#)
- (let ((#{ids\ 3776}# (map car #{pvars\ 3764}#)))
+ (map cdr #{pvars\ 5872}#)
+ (let ((#{ids\ 5884}# (map car #{pvars\ 5872}#)))
(begin
- (let ((#{labels\ 3780}#
- (#{gen-labels\ 406}# #{ids\ 3776}#))
- (#{new-vars\ 3781}#
- (map #{gen-var\ 501}# #{ids\ 3776}#)))
- (#{build-application\ 310}#
+ (let ((#{labels\ 5888}#
+ (#{gen-labels\ 2514}# #{ids\ 5884}#))
+ (#{new-vars\ 5889}#
+ (map #{gen-var\ 2609}# #{ids\ 5884}#)))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 336}# #f (quote apply))
- (list (#{build-simple-lambda\ 330}#
+ (#{build-primref\ 2444}# #f (quote apply))
+ (list (#{build-simple-lambda\ 2438}#
#f
- (map syntax->datum #{ids\ 3776}#)
+ (map syntax->datum #{ids\ 5884}#)
#f
- #{new-vars\ 3781}#
+ #{new-vars\ 5889}#
'()
- (#{chi\ 473}#
- #{exp\ 3765}#
- (#{extend-env\ 376}#
- #{labels\ 3780}#
- (map (lambda (#{var\ 3785}#
- #{level\ 3786}#)
+ (#{chi\ 2581}#
+ #{exp\ 5873}#
+ (#{extend-env\ 2484}#
+ #{labels\ 5888}#
+ (map (lambda (#{var\ 5893}#
+ #{level\ 5894}#)
(cons 'syntax
- (cons #{var\ 3785}#
- #{level\ 3786}#)))
- #{new-vars\ 3781}#
- (map cdr #{pvars\ 3764}#))
- #{r\ 3767}#)
- (#{make-binding-wrap\ 435}#
- #{ids\ 3776}#
- #{labels\ 3780}#
+ (cons #{var\ 5893}#
+ #{level\ 5894}#)))
+ #{new-vars\ 5889}#
+ (map cdr #{pvars\ 5872}#))
+ #{r\ 5875}#)
+ (#{make-binding-wrap\ 2543}#
+ #{ids\ 5884}#
+ #{labels\ 5888}#
'(()))
- #{mod\ 3768}#))
- #{y\ 3766}#))))))))
- (#{gen-clause\ 3671}#
- (lambda (#{x\ 3792}#
- #{keys\ 3793}#
- #{clauses\ 3794}#
- #{r\ 3795}#
- #{pat\ 3796}#
- #{fender\ 3797}#
- #{exp\ 3798}#
- #{mod\ 3799}#)
+ #{mod\ 5876}#))
+ #{y\ 5874}#))))))))
+ (#{gen-clause\ 5779}#
+ (lambda (#{x\ 5900}#
+ #{keys\ 5901}#
+ #{clauses\ 5902}#
+ #{r\ 5903}#
+ #{pat\ 5904}#
+ #{fender\ 5905}#
+ #{exp\ 5906}#
+ #{mod\ 5907}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3667}#
- #{pat\ 3796}#
- #{keys\ 3793}#))
- (lambda (#{p\ 3808}# #{pvars\ 3809}#)
- (if (not (#{distinct-bound-ids?\ 453}#
- (map car #{pvars\ 3809}#)))
+ (#{convert-pattern\ 5775}#
+ #{pat\ 5904}#
+ #{keys\ 5901}#))
+ (lambda (#{p\ 5916}# #{pvars\ 5917}#)
+ (if (not (#{distinct-bound-ids?\ 2561}#
+ (map car #{pvars\ 5917}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3796}#)
+ #{pat\ 5904}#)
(if (not (and-map
- (lambda (#{x\ 3816}#)
- (not (#{ellipsis?\ 489}#
- (car #{x\ 3816}#))))
- #{pvars\ 3809}#))
+ (lambda (#{x\ 5924}#)
+ (not (#{ellipsis?\ 2597}#
+ (car #{x\ 5924}#))))
+ #{pvars\ 5917}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3796}#)
+ #{pat\ 5904}#)
(begin
- (let ((#{y\ 3820}#
- (#{gen-var\ 501}# (quote tmp))))
- (#{build-application\ 310}#
+ (let ((#{y\ 5928}#
+ (#{gen-var\ 2609}# (quote tmp))))
+ (#{build-application\ 2420}#
#f
- (#{build-simple-lambda\ 330}#
+ (#{build-simple-lambda\ 2438}#
#f
(list (quote tmp))
#f
- (list #{y\ 3820}#)
+ (list #{y\ 5928}#)
'()
(begin
- (let ((#{y\ 3824}#
- (#{build-lexical-reference\ 316}#
+ (let ((#{y\ 5932}#
+ (#{build-lexical-reference\ 2426}#
'value
#f
'tmp
- #{y\ 3820}#)))
- (#{build-conditional\ 312}#
+ #{y\ 5928}#)))
+ (#{build-conditional\ 2422}#
#f
- (let ((#{tmp\ 3827}#
- #{fender\ 3797}#))
- (let ((#{tmp\ 3828}#
+ (let ((#{tmp\ 5935}#
+ #{fender\ 5905}#))
+ (let ((#{tmp\ 5936}#
($sc-dispatch
- #{tmp\ 3827}#
+ #{tmp\ 5935}#
'#(atom #t))))
- (if #{tmp\ 3828}#
+ (if #{tmp\ 5936}#
(@apply
- (lambda () #{y\ 3824}#)
- #{tmp\ 3828}#)
- (let ((#{_\ 3830}#
- #{tmp\ 3827}#))
- (#{build-conditional\ 312}#
+ (lambda () #{y\ 5932}#)
+ #{tmp\ 5936}#)
+ (let ((#{_\ 5938}#
+ #{tmp\ 5935}#))
+ (#{build-conditional\ 2422}#
#f
- #{y\ 3824}#
- (#{build-dispatch-call\ 3669}#
- #{pvars\ 3809}#
- #{fender\ 3797}#
- #{y\ 3824}#
- #{r\ 3795}#
- #{mod\ 3799}#)
- (#{build-data\ 338}#
+ #{y\ 5932}#
+ (#{build-dispatch-call\ 5777}#
+ #{pvars\ 5917}#
+ #{fender\ 5905}#
+ #{y\ 5932}#
+ #{r\ 5903}#
+ #{mod\ 5907}#)
+ (#{build-data\ 2446}#
#f
#f))))))
- (#{build-dispatch-call\ 3669}#
- #{pvars\ 3809}#
- #{exp\ 3798}#
- #{y\ 3824}#
- #{r\ 3795}#
- #{mod\ 3799}#)
- (#{gen-syntax-case\ 3673}#
- #{x\ 3792}#
- #{keys\ 3793}#
- #{clauses\ 3794}#
- #{r\ 3795}#
- #{mod\ 3799}#)))))
- (list (if (eq? #{p\ 3808}# (quote any))
- (#{build-application\ 310}#
+ (#{build-dispatch-call\ 5777}#
+ #{pvars\ 5917}#
+ #{exp\ 5906}#
+ #{y\ 5932}#
+ #{r\ 5903}#
+ #{mod\ 5907}#)
+ (#{gen-syntax-case\ 5781}#
+ #{x\ 5900}#
+ #{keys\ 5901}#
+ #{clauses\ 5902}#
+ #{r\ 5903}#
+ #{mod\ 5907}#)))))
+ (list (if (eq? #{p\ 5916}# (quote any))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 2444}#
#f
'list)
- (list #{x\ 3792}#))
- (#{build-application\ 310}#
+ (list #{x\ 5900}#))
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 2444}#
#f
'$sc-dispatch)
- (list #{x\ 3792}#
- (#{build-data\ 338}#
+ (list #{x\ 5900}#
+ (#{build-data\ 2446}#
#f
- #{p\ 3808}#))))))))))))))
- (#{gen-syntax-case\ 3673}#
- (lambda (#{x\ 3838}#
- #{keys\ 3839}#
- #{clauses\ 3840}#
- #{r\ 3841}#
- #{mod\ 3842}#)
- (if (null? #{clauses\ 3840}#)
- (#{build-application\ 310}#
+ #{p\ 5916}#))))))))))))))
+ (#{gen-syntax-case\ 5781}#
+ (lambda (#{x\ 5946}#
+ #{keys\ 5947}#
+ #{clauses\ 5948}#
+ #{r\ 5949}#
+ #{mod\ 5950}#)
+ (if (null? #{clauses\ 5948}#)
+ (#{build-application\ 2420}#
#f
- (#{build-primref\ 336}#
+ (#{build-primref\ 2444}#
#f
'syntax-violation)
- (list (#{build-data\ 338}# #f #f)
- (#{build-data\ 338}#
+ (list (#{build-data\ 2446}# #f #f)
+ (#{build-data\ 2446}#
#f
"source expression failed to match any pattern")
- #{x\ 3838}#))
- (let ((#{tmp\ 3852}# (car #{clauses\ 3840}#)))
- (let ((#{tmp\ 3853}#
+ #{x\ 5946}#))
+ (let ((#{tmp\ 5960}# (car #{clauses\ 5948}#)))
+ (let ((#{tmp\ 5961}#
($sc-dispatch
- #{tmp\ 3852}#
+ #{tmp\ 5960}#
'(any any))))
- (if #{tmp\ 3853}#
+ (if #{tmp\ 5961}#
(@apply
- (lambda (#{pat\ 3856}# #{exp\ 3857}#)
- (if (if (#{id?\ 388}# #{pat\ 3856}#)
+ (lambda (#{pat\ 5964}# #{exp\ 5965}#)
+ (if (if (#{id?\ 2496}# #{pat\ 5964}#)
(and-map
- (lambda (#{x\ 3860}#)
- (not (#{free-id=?\ 447}#
- #{pat\ 3856}#
- #{x\ 3860}#)))
+ (lambda (#{x\ 5968}#)
+ (not (#{free-id=?\ 2555}#
+ #{pat\ 5964}#
+ #{x\ 5968}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3854" "i3855"))
+ #("i5962" "i5963"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("i3843"
- "i3844"
- "i3845"
- "i3846"
- "i3847"))
+ #("i5951"
+ "i5952"
+ "i5953"
+ "i5954"
+ "i5955"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3672"
- "i3670"
- "i3668"
- "i3666"))
+ ("i5780"
+ "i5778"
+ "i5776"
+ "i5774"))
#(ribcage
(lambda-var-list
gen-var
build-case-lambda
build-simple-lambda
build-global-definition
- maybe-name-value!
build-global-assignment
build-global-reference
analyze-variable
build-conditional
build-application
build-void
+ maybe-name-value!
decorate-source
get-global-definition-hook
put-global-definition-hook
(top)
(top)
(top))
- ("i502"
- "i500"
- "i498"
- "i496"
- "i494"
- "i492"
- "i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i431"
- "i430"
- "i428"
- "i427"
- "i426"
- "i425"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i405"
- "i403"
- "i402"
- "i401"
- "i400"
- "i399"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i389"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i374"
- "i372"
- "i370"
- "i369"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i259"
- "i257"
- "i255"
- "i253"
- "i251"
- "i249"
- "i247"
- "i245"))
+ ("i2610"
+ "i2608"
+ "i2606"
+ "i2604"
+ "i2602"
+ "i2600"
+ "i2598"
+ "i2596"
+ "i2594"
+ "i2592"
+ "i2590"
+ "i2588"
+ "i2586"
+ "i2584"
+ "i2582"
+ "i2580"
+ "i2578"
+ "i2576"
+ "i2574"
+ "i2572"
+ "i2570"
+ "i2568"
+ "i2566"
+ "i2564"
+ "i2562"
+ "i2560"
+ "i2558"
+ "i2556"
+ "i2554"
+ "i2552"
+ "i2550"
+ "i2548"
+ "i2546"
+ "i2544"
+ "i2542"
+ "i2540"
+ "i2539"
+ "i2538"
+ "i2536"
+ "i2535"
+ "i2534"
+ "i2533"
+ "i2532"
+ "i2530"
+ "i2528"
+ "i2526"
+ "i2524"
+ "i2522"
+ "i2520"
+ "i2518"
+ "i2516"
+ "i2513"
+ "i2511"
+ "i2510"
+ "i2509"
+ "i2508"
+ "i2507"
+ "i2506"
+ "i2504"
+ "i2502"
+ "i2500"
+ "i2498"
+ "i2497"
+ "i2495"
+ "i2493"
+ "i2491"
+ "i2489"
+ "i2487"
+ "i2485"
+ "i2483"
+ "i2482"
+ "i2480"
+ "i2478"
+ "i2477"
+ "i2476"
+ "i2474"
+ "i2473"
+ "i2471"
+ "i2469"
+ "i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2353"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i39"
- "i38"
- "i37"
- "i35")))
+ ("i2147"
+ "i2146"
+ "i2145"
+ "i2143")))
(hygiene guile))
- #{keys\ 3839}#))
+ #{keys\ 5947}#))
#f)
(begin
- (let ((#{labels\ 3864}#
- (list (#{gen-label\ 404}#)))
- (#{var\ 3865}#
- (#{gen-var\ 501}# #{pat\ 3856}#)))
- (#{build-application\ 310}#
+ (let ((#{labels\ 5972}#
+ (list (#{gen-label\ 2512}#)))
+ (#{var\ 5973}#
+ (#{gen-var\ 2609}#
+ #{pat\ 5964}#)))
+ (#{build-application\ 2420}#
#f
- (#{build-simple-lambda\ 330}#
+ (#{build-simple-lambda\ 2438}#
#f
- (list (syntax->datum #{pat\ 3856}#))
+ (list (syntax->datum #{pat\ 5964}#))
#f
- (list #{var\ 3865}#)
+ (list #{var\ 5973}#)
'()
- (#{chi\ 473}#
- #{exp\ 3857}#
- (#{extend-env\ 376}#
- #{labels\ 3864}#
+ (#{chi\ 2581}#
+ #{exp\ 5965}#
+ (#{extend-env\ 2484}#
+ #{labels\ 5972}#
(list (cons 'syntax
- (cons #{var\ 3865}#
+ (cons #{var\ 5973}#
0)))
- #{r\ 3841}#)
- (#{make-binding-wrap\ 435}#
- (list #{pat\ 3856}#)
- #{labels\ 3864}#
+ #{r\ 5949}#)
+ (#{make-binding-wrap\ 2543}#
+ (list #{pat\ 5964}#)
+ #{labels\ 5972}#
'(()))
- #{mod\ 3842}#))
- (list #{x\ 3838}#))))
- (#{gen-clause\ 3671}#
- #{x\ 3838}#
- #{keys\ 3839}#
- (cdr #{clauses\ 3840}#)
- #{r\ 3841}#
- #{pat\ 3856}#
+ #{mod\ 5950}#))
+ (list #{x\ 5946}#))))
+ (#{gen-clause\ 5779}#
+ #{x\ 5946}#
+ #{keys\ 5947}#
+ (cdr #{clauses\ 5948}#)
+ #{r\ 5949}#
+ #{pat\ 5964}#
#t
- #{exp\ 3857}#
- #{mod\ 3842}#)))
- #{tmp\ 3853}#)
- (let ((#{tmp\ 3871}#
+ #{exp\ 5965}#
+ #{mod\ 5950}#)))
+ #{tmp\ 5961}#)
+ (let ((#{tmp\ 5979}#
($sc-dispatch
- #{tmp\ 3852}#
+ #{tmp\ 5960}#
'(any any any))))
- (if #{tmp\ 3871}#
+ (if #{tmp\ 5979}#
(@apply
- (lambda (#{pat\ 3875}#
- #{fender\ 3876}#
- #{exp\ 3877}#)
- (#{gen-clause\ 3671}#
- #{x\ 3838}#
- #{keys\ 3839}#
- (cdr #{clauses\ 3840}#)
- #{r\ 3841}#
- #{pat\ 3875}#
- #{fender\ 3876}#
- #{exp\ 3877}#
- #{mod\ 3842}#))
- #{tmp\ 3871}#)
- (let ((#{_\ 3879}# #{tmp\ 3852}#))
+ (lambda (#{pat\ 5983}#
+ #{fender\ 5984}#
+ #{exp\ 5985}#)
+ (#{gen-clause\ 5779}#
+ #{x\ 5946}#
+ #{keys\ 5947}#
+ (cdr #{clauses\ 5948}#)
+ #{r\ 5949}#
+ #{pat\ 5983}#
+ #{fender\ 5984}#
+ #{exp\ 5985}#
+ #{mod\ 5950}#))
+ #{tmp\ 5979}#)
+ (let ((#{_\ 5987}# #{tmp\ 5960}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3840}#))))))))))))
+ (car #{clauses\ 5948}#))))))))))))
(begin
- (lambda (#{e\ 3880}#
- #{r\ 3881}#
- #{w\ 3882}#
- #{s\ 3883}#
- #{mod\ 3884}#)
+ (lambda (#{e\ 5988}#
+ #{r\ 5989}#
+ #{w\ 5990}#
+ #{s\ 5991}#
+ #{mod\ 5992}#)
(begin
- (let ((#{e\ 3891}#
- (#{source-wrap\ 459}#
- #{e\ 3880}#
- #{w\ 3882}#
- #{s\ 3883}#
- #{mod\ 3884}#)))
- (let ((#{tmp\ 3892}# #{e\ 3891}#))
- (let ((#{tmp\ 3893}#
+ (let ((#{e\ 5999}#
+ (#{source-wrap\ 2567}#
+ #{e\ 5988}#
+ #{w\ 5990}#
+ #{s\ 5991}#
+ #{mod\ 5992}#)))
+ (let ((#{tmp\ 6000}# #{e\ 5999}#))
+ (let ((#{tmp\ 6001}#
($sc-dispatch
- #{tmp\ 3892}#
+ #{tmp\ 6000}#
'(any any each-any . each-any))))
- (if #{tmp\ 3893}#
+ (if #{tmp\ 6001}#
(@apply
- (lambda (#{_\ 3898}#
- #{val\ 3899}#
- #{key\ 3900}#
- #{m\ 3901}#)
+ (lambda (#{_\ 6006}#
+ #{val\ 6007}#
+ #{key\ 6008}#
+ #{m\ 6009}#)
(if (and-map
- (lambda (#{x\ 3902}#)
- (if (#{id?\ 388}# #{x\ 3902}#)
- (not (#{ellipsis?\ 489}#
- #{x\ 3902}#))
+ (lambda (#{x\ 6010}#)
+ (if (#{id?\ 2496}# #{x\ 6010}#)
+ (not (#{ellipsis?\ 2597}#
+ #{x\ 6010}#))
#f))
- #{key\ 3900}#)
+ #{key\ 6008}#)
(begin
- (let ((#{x\ 3908}#
- (#{gen-var\ 501}# (quote tmp))))
- (#{build-application\ 310}#
- #{s\ 3883}#
- (#{build-simple-lambda\ 330}#
+ (let ((#{x\ 6016}#
+ (#{gen-var\ 2609}# (quote tmp))))
+ (#{build-application\ 2420}#
+ #{s\ 5991}#
+ (#{build-simple-lambda\ 2438}#
#f
(list (quote tmp))
#f
- (list #{x\ 3908}#)
+ (list #{x\ 6016}#)
'()
- (#{gen-syntax-case\ 3673}#
- (#{build-lexical-reference\ 316}#
+ (#{gen-syntax-case\ 5781}#
+ (#{build-lexical-reference\ 2426}#
'value
#f
'tmp
- #{x\ 3908}#)
- #{key\ 3900}#
- #{m\ 3901}#
- #{r\ 3881}#
- #{mod\ 3884}#))
- (list (#{chi\ 473}#
- #{val\ 3899}#
- #{r\ 3881}#
+ #{x\ 6016}#)
+ #{key\ 6008}#
+ #{m\ 6009}#
+ #{r\ 5989}#
+ #{mod\ 5992}#))
+ (list (#{chi\ 2581}#
+ #{val\ 6007}#
+ #{r\ 5989}#
'(())
- #{mod\ 3884}#)))))
+ #{mod\ 5992}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3891}#)))
- #{tmp\ 3893}#)
+ #{e\ 5999}#)))
+ #{tmp\ 6001}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3892}#))))))))))
+ #{tmp\ 6000}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 3914}#
+ (#{x\ 6022}#
#:optional
- (#{m\ 3916}# (quote e))
- (#{esew\ 3918}# (quote (eval))))
- (#{chi-top\ 471}#
- #{x\ 3914}#
+ (#{m\ 6024}# (quote e))
+ (#{esew\ 6026}# (quote (eval))))
+ (#{chi-top\ 2579}#
+ #{x\ 6022}#
'()
'((top))
- #{m\ 3916}#
- #{esew\ 3918}#
+ #{m\ 6024}#
+ #{esew\ 6026}#
(cons 'hygiene
(module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3922}#)
- (#{nonsymbol-id?\ 386}# #{x\ 3922}#)))
+ (lambda (#{x\ 6030}#)
+ (#{nonsymbol-id?\ 2494}# #{x\ 6030}#)))
(set! datum->syntax
- (lambda (#{id\ 3924}# #{datum\ 3925}#)
- (#{make-syntax-object\ 350}#
- #{datum\ 3925}#
- (#{syntax-object-wrap\ 356}# #{id\ 3924}#)
- (#{syntax-object-module\ 358}# #{id\ 3924}#))))
+ (lambda (#{id\ 6032}# #{datum\ 6033}#)
+ (#{make-syntax-object\ 2458}#
+ #{datum\ 6033}#
+ (#{syntax-object-wrap\ 2464}# #{id\ 6032}#)
+ (#{syntax-object-module\ 2466}# #{id\ 6032}#))))
(set! syntax->datum
- (lambda (#{x\ 3928}#)
- (#{strip\ 499}# #{x\ 3928}# (quote (())))))
+ (lambda (#{x\ 6036}#)
+ (#{strip\ 2607}# #{x\ 6036}# (quote (())))))
(set! syntax-source
- (lambda (#{x\ 3931}#)
- (#{source-annotation\ 367}# #{x\ 3931}#)))
+ (lambda (#{x\ 6039}#)
+ (#{source-annotation\ 2475}# #{x\ 6039}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3933}#)
+ (lambda (#{ls\ 6041}#)
(begin
(begin
- (let ((#{x\ 3937}# #{ls\ 3933}#))
- (if (not (list? #{x\ 3937}#))
+ (let ((#{x\ 6045}# #{ls\ 6041}#))
+ (if (not (list? #{x\ 6045}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3937}#))))
- (map (lambda (#{x\ 3938}#)
- (#{wrap\ 457}# (gensym) (quote ((top))) #f))
- #{ls\ 3933}#))))
+ #{x\ 6045}#))))
+ (map (lambda (#{x\ 6046}#)
+ (#{wrap\ 2565}# (gensym) (quote ((top))) #f))
+ #{ls\ 6041}#))))
(set! free-identifier=?
- (lambda (#{x\ 3942}# #{y\ 3943}#)
+ (lambda (#{x\ 6050}# #{y\ 6051}#)
(begin
(begin
- (let ((#{x\ 3948}# #{x\ 3942}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3948}#))
+ (let ((#{x\ 6056}# #{x\ 6050}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6056}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3948}#))))
+ #{x\ 6056}#))))
(begin
- (let ((#{x\ 3951}# #{y\ 3943}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3951}#))
+ (let ((#{x\ 6059}# #{y\ 6051}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6059}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3951}#))))
- (#{free-id=?\ 447}# #{x\ 3942}# #{y\ 3943}#))))
+ #{x\ 6059}#))))
+ (#{free-id=?\ 2555}# #{x\ 6050}# #{y\ 6051}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3952}# #{y\ 3953}#)
+ (lambda (#{x\ 6060}# #{y\ 6061}#)
(begin
(begin
- (let ((#{x\ 3958}# #{x\ 3952}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3958}#))
+ (let ((#{x\ 6066}# #{x\ 6060}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6066}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3958}#))))
+ #{x\ 6066}#))))
(begin
- (let ((#{x\ 3961}# #{y\ 3953}#))
- (if (not (#{nonsymbol-id?\ 386}# #{x\ 3961}#))
+ (let ((#{x\ 6069}# #{y\ 6061}#))
+ (if (not (#{nonsymbol-id?\ 2494}# #{x\ 6069}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3961}#))))
- (#{bound-id=?\ 449}# #{x\ 3952}# #{y\ 3953}#))))
+ #{x\ 6069}#))))
+ (#{bound-id=?\ 2557}# #{x\ 6060}# #{y\ 6061}#))))
(set! syntax-violation
- (lambda (#{who\ 3962}#
- #{message\ 3963}#
- #{form\ 3964}#
+ (lambda (#{who\ 6070}#
+ #{message\ 6071}#
+ #{form\ 6072}#
.
- #{subform\ 3965}#)
+ #{subform\ 6073}#)
(begin
(begin
- (let ((#{x\ 3972}# #{who\ 3962}#))
- (if (not (let ((#{x\ 3973}# #{x\ 3972}#))
+ (let ((#{x\ 6080}# #{who\ 6070}#))
+ (if (not (let ((#{x\ 6081}# #{x\ 6080}#))
(begin
- (let ((#{t\ 3977}# (not #{x\ 3973}#)))
- (if #{t\ 3977}#
- #{t\ 3977}#
+ (let ((#{t\ 6085}# (not #{x\ 6081}#)))
+ (if #{t\ 6085}#
+ #{t\ 6085}#
(begin
- (let ((#{t\ 3980}#
- (string? #{x\ 3973}#)))
- (if #{t\ 3980}#
- #{t\ 3980}#
- (symbol? #{x\ 3973}#)))))))))
+ (let ((#{t\ 6088}#
+ (string? #{x\ 6081}#)))
+ (if #{t\ 6088}#
+ #{t\ 6088}#
+ (symbol? #{x\ 6081}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3972}#))))
+ #{x\ 6080}#))))
(begin
- (let ((#{x\ 3984}# #{message\ 3963}#))
- (if (not (string? #{x\ 3984}#))
+ (let ((#{x\ 6092}# #{message\ 6071}#))
+ (if (not (string? #{x\ 6092}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3984}#))))
+ #{x\ 6092}#))))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 3962}# "~a: " "")
+ (if #{who\ 6070}# "~a: " "")
"~a "
- (if (null? #{subform\ 3965}#)
+ (if (null? #{subform\ 6073}#)
"in ~a"
"in subform `~s' of `~s'"))
(begin
- (let ((#{tail\ 3986}#
- (cons #{message\ 3963}#
- (map (lambda (#{x\ 3987}#)
- (#{strip\ 499}#
- #{x\ 3987}#
+ (let ((#{tail\ 6094}#
+ (cons #{message\ 6071}#
+ (map (lambda (#{x\ 6095}#)
+ (#{strip\ 2607}#
+ #{x\ 6095}#
'(())))
(append
- #{subform\ 3965}#
- (list #{form\ 3964}#))))))
- (if #{who\ 3962}#
- (cons #{who\ 3962}# #{tail\ 3986}#)
- #{tail\ 3986}#)))
+ #{subform\ 6073}#
+ (list #{form\ 6072}#))))))
+ (if #{who\ 6070}#
+ (cons #{who\ 6070}# #{tail\ 6094}#)
+ #{tail\ 6094}#)))
#f))))
(letrec*
- ((#{match-each\ 3991}#
- (lambda (#{e\ 4004}#
- #{p\ 4005}#
- #{w\ 4006}#
- #{mod\ 4007}#)
- (if (pair? #{e\ 4004}#)
+ ((#{match-each\ 6099}#
+ (lambda (#{e\ 6112}#
+ #{p\ 6113}#
+ #{w\ 6114}#
+ #{mod\ 6115}#)
+ (if (pair? #{e\ 6112}#)
(begin
- (let ((#{first\ 4015}#
- (#{match\ 4003}#
- (car #{e\ 4004}#)
- #{p\ 4005}#
- #{w\ 4006}#
+ (let ((#{first\ 6123}#
+ (#{match\ 6111}#
+ (car #{e\ 6112}#)
+ #{p\ 6113}#
+ #{w\ 6114}#
'()
- #{mod\ 4007}#)))
- (if #{first\ 4015}#
+ #{mod\ 6115}#)))
+ (if #{first\ 6123}#
(begin
- (let ((#{rest\ 4019}#
- (#{match-each\ 3991}#
- (cdr #{e\ 4004}#)
- #{p\ 4005}#
- #{w\ 4006}#
- #{mod\ 4007}#)))
- (if #{rest\ 4019}#
- (cons #{first\ 4015}# #{rest\ 4019}#)
+ (let ((#{rest\ 6127}#
+ (#{match-each\ 6099}#
+ (cdr #{e\ 6112}#)
+ #{p\ 6113}#
+ #{w\ 6114}#
+ #{mod\ 6115}#)))
+ (if #{rest\ 6127}#
+ (cons #{first\ 6123}# #{rest\ 6127}#)
#f)))
#f)))
- (if (null? #{e\ 4004}#)
+ (if (null? #{e\ 6112}#)
'()
- (if (#{syntax-object?\ 352}# #{e\ 4004}#)
- (#{match-each\ 3991}#
- (#{syntax-object-expression\ 354}# #{e\ 4004}#)
- #{p\ 4005}#
- (#{join-wraps\ 439}#
- #{w\ 4006}#
- (#{syntax-object-wrap\ 356}# #{e\ 4004}#))
- (#{syntax-object-module\ 358}# #{e\ 4004}#))
+ (if (#{syntax-object?\ 2460}# #{e\ 6112}#)
+ (#{match-each\ 6099}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6112}#)
+ #{p\ 6113}#
+ (#{join-wraps\ 2547}#
+ #{w\ 6114}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6112}#))
+ (#{syntax-object-module\ 2466}# #{e\ 6112}#))
#f)))))
- (#{match-each+\ 3993}#
- (lambda (#{e\ 4027}#
- #{x-pat\ 4028}#
- #{y-pat\ 4029}#
- #{z-pat\ 4030}#
- #{w\ 4031}#
- #{r\ 4032}#
- #{mod\ 4033}#)
+ (#{match-each+\ 6101}#
+ (lambda (#{e\ 6135}#
+ #{x-pat\ 6136}#
+ #{y-pat\ 6137}#
+ #{z-pat\ 6138}#
+ #{w\ 6139}#
+ #{r\ 6140}#
+ #{mod\ 6141}#)
(letrec*
- ((#{f\ 4044}#
- (lambda (#{e\ 4045}# #{w\ 4046}#)
- (if (pair? #{e\ 4045}#)
+ ((#{f\ 6152}#
+ (lambda (#{e\ 6153}# #{w\ 6154}#)
+ (if (pair? #{e\ 6153}#)
(call-with-values
(lambda ()
- (#{f\ 4044}# (cdr #{e\ 4045}#) #{w\ 4046}#))
- (lambda (#{xr*\ 4049}#
- #{y-pat\ 4050}#
- #{r\ 4051}#)
- (if #{r\ 4051}#
- (if (null? #{y-pat\ 4050}#)
+ (#{f\ 6152}# (cdr #{e\ 6153}#) #{w\ 6154}#))
+ (lambda (#{xr*\ 6157}#
+ #{y-pat\ 6158}#
+ #{r\ 6159}#)
+ (if #{r\ 6159}#
+ (if (null? #{y-pat\ 6158}#)
(begin
- (let ((#{xr\ 4056}#
- (#{match\ 4003}#
- (car #{e\ 4045}#)
- #{x-pat\ 4028}#
- #{w\ 4046}#
+ (let ((#{xr\ 6164}#
+ (#{match\ 6111}#
+ (car #{e\ 6153}#)
+ #{x-pat\ 6136}#
+ #{w\ 6154}#
'()
- #{mod\ 4033}#)))
- (if #{xr\ 4056}#
+ #{mod\ 6141}#)))
+ (if #{xr\ 6164}#
(values
- (cons #{xr\ 4056}# #{xr*\ 4049}#)
- #{y-pat\ 4050}#
- #{r\ 4051}#)
+ (cons #{xr\ 6164}# #{xr*\ 6157}#)
+ #{y-pat\ 6158}#
+ #{r\ 6159}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 4050}#)
- (#{match\ 4003}#
- (car #{e\ 4045}#)
- (car #{y-pat\ 4050}#)
- #{w\ 4046}#
- #{r\ 4051}#
- #{mod\ 4033}#)))
+ (cdr #{y-pat\ 6158}#)
+ (#{match\ 6111}#
+ (car #{e\ 6153}#)
+ (car #{y-pat\ 6158}#)
+ #{w\ 6154}#
+ #{r\ 6159}#
+ #{mod\ 6141}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 352}# #{e\ 4045}#)
- (#{f\ 4044}#
- (#{syntax-object-expression\ 354}# #{e\ 4045}#)
- (#{join-wraps\ 439}# #{w\ 4046}# #{e\ 4045}#))
+ (if (#{syntax-object?\ 2460}# #{e\ 6153}#)
+ (#{f\ 6152}#
+ (#{syntax-object-expression\ 2462}#
+ #{e\ 6153}#)
+ (#{join-wraps\ 2547}# #{w\ 6154}# #{e\ 6153}#))
(values
'()
- #{y-pat\ 4029}#
- (#{match\ 4003}#
- #{e\ 4045}#
- #{z-pat\ 4030}#
- #{w\ 4046}#
- #{r\ 4032}#
- #{mod\ 4033}#)))))))
- (begin (#{f\ 4044}# #{e\ 4027}# #{w\ 4031}#)))))
- (#{match-each-any\ 3995}#
- (lambda (#{e\ 4060}# #{w\ 4061}# #{mod\ 4062}#)
- (if (pair? #{e\ 4060}#)
+ #{y-pat\ 6137}#
+ (#{match\ 6111}#
+ #{e\ 6153}#
+ #{z-pat\ 6138}#
+ #{w\ 6154}#
+ #{r\ 6140}#
+ #{mod\ 6141}#)))))))
+ (begin (#{f\ 6152}# #{e\ 6135}# #{w\ 6139}#)))))
+ (#{match-each-any\ 6103}#
+ (lambda (#{e\ 6168}# #{w\ 6169}# #{mod\ 6170}#)
+ (if (pair? #{e\ 6168}#)
(begin
- (let ((#{l\ 4069}#
- (#{match-each-any\ 3995}#
- (cdr #{e\ 4060}#)
- #{w\ 4061}#
- #{mod\ 4062}#)))
- (if #{l\ 4069}#
- (cons (#{wrap\ 457}#
- (car #{e\ 4060}#)
- #{w\ 4061}#
- #{mod\ 4062}#)
- #{l\ 4069}#)
+ (let ((#{l\ 6177}#
+ (#{match-each-any\ 6103}#
+ (cdr #{e\ 6168}#)
+ #{w\ 6169}#
+ #{mod\ 6170}#)))
+ (if #{l\ 6177}#
+ (cons (#{wrap\ 2565}#
+ (car #{e\ 6168}#)
+ #{w\ 6169}#
+ #{mod\ 6170}#)
+ #{l\ 6177}#)
#f)))
- (if (null? #{e\ 4060}#)
+ (if (null? #{e\ 6168}#)
'()
- (if (#{syntax-object?\ 352}# #{e\ 4060}#)
- (#{match-each-any\ 3995}#
- (#{syntax-object-expression\ 354}# #{e\ 4060}#)
- (#{join-wraps\ 439}#
- #{w\ 4061}#
- (#{syntax-object-wrap\ 356}# #{e\ 4060}#))
- #{mod\ 4062}#)
+ (if (#{syntax-object?\ 2460}# #{e\ 6168}#)
+ (#{match-each-any\ 6103}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6168}#)
+ (#{join-wraps\ 2547}#
+ #{w\ 6169}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6168}#))
+ #{mod\ 6170}#)
#f)))))
- (#{match-empty\ 3997}#
- (lambda (#{p\ 4077}# #{r\ 4078}#)
- (if (null? #{p\ 4077}#)
- #{r\ 4078}#
- (if (eq? #{p\ 4077}# (quote any))
- (cons (quote ()) #{r\ 4078}#)
- (if (pair? #{p\ 4077}#)
- (#{match-empty\ 3997}#
- (car #{p\ 4077}#)
- (#{match-empty\ 3997}#
- (cdr #{p\ 4077}#)
- #{r\ 4078}#))
- (if (eq? #{p\ 4077}# (quote each-any))
- (cons (quote ()) #{r\ 4078}#)
+ (#{match-empty\ 6105}#
+ (lambda (#{p\ 6185}# #{r\ 6186}#)
+ (if (null? #{p\ 6185}#)
+ #{r\ 6186}#
+ (if (eq? #{p\ 6185}# (quote any))
+ (cons (quote ()) #{r\ 6186}#)
+ (if (pair? #{p\ 6185}#)
+ (#{match-empty\ 6105}#
+ (car #{p\ 6185}#)
+ (#{match-empty\ 6105}#
+ (cdr #{p\ 6185}#)
+ #{r\ 6186}#))
+ (if (eq? #{p\ 6185}# (quote each-any))
+ (cons (quote ()) #{r\ 6186}#)
(begin
- (let ((#{atom-key\ 4092}#
- (vector-ref #{p\ 4077}# 0)))
- (if (eqv? #{atom-key\ 4092}# (quote each))
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 1)
- #{r\ 4078}#)
- (if (eqv? #{atom-key\ 4092}# (quote each+))
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 1)
- (#{match-empty\ 3997}#
- (reverse (vector-ref #{p\ 4077}# 2))
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 3)
- #{r\ 4078}#)))
- (if (if (eqv? #{atom-key\ 4092}#
+ (let ((#{atom-key\ 6200}#
+ (vector-ref #{p\ 6185}# 0)))
+ (if (eqv? #{atom-key\ 6200}# (quote each))
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 1)
+ #{r\ 6186}#)
+ (if (eqv? #{atom-key\ 6200}# (quote each+))
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 1)
+ (#{match-empty\ 6105}#
+ (reverse (vector-ref #{p\ 6185}# 2))
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 3)
+ #{r\ 6186}#)))
+ (if (if (eqv? #{atom-key\ 6200}#
'free-id)
#t
- (eqv? #{atom-key\ 4092}#
+ (eqv? #{atom-key\ 6200}#
'atom))
- #{r\ 4078}#
- (if (eqv? #{atom-key\ 4092}#
+ #{r\ 6186}#
+ (if (eqv? #{atom-key\ 6200}#
'vector)
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4077}# 1)
- #{r\ 4078}#)))))))))))))
- (#{combine\ 3999}#
- (lambda (#{r*\ 4097}# #{r\ 4098}#)
- (if (null? (car #{r*\ 4097}#))
- #{r\ 4098}#
- (cons (map car #{r*\ 4097}#)
- (#{combine\ 3999}#
- (map cdr #{r*\ 4097}#)
- #{r\ 4098}#)))))
- (#{match*\ 4001}#
- (lambda (#{e\ 4101}#
- #{p\ 4102}#
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#)
- (if (null? #{p\ 4102}#)
- (if (null? #{e\ 4101}#) #{r\ 4104}# #f)
- (if (pair? #{p\ 4102}#)
- (if (pair? #{e\ 4101}#)
- (#{match\ 4003}#
- (car #{e\ 4101}#)
- (car #{p\ 4102}#)
- #{w\ 4103}#
- (#{match\ 4003}#
- (cdr #{e\ 4101}#)
- (cdr #{p\ 4102}#)
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#)
- #{mod\ 4105}#)
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6185}# 1)
+ #{r\ 6186}#)))))))))))))
+ (#{combine\ 6107}#
+ (lambda (#{r*\ 6205}# #{r\ 6206}#)
+ (if (null? (car #{r*\ 6205}#))
+ #{r\ 6206}#
+ (cons (map car #{r*\ 6205}#)
+ (#{combine\ 6107}#
+ (map cdr #{r*\ 6205}#)
+ #{r\ 6206}#)))))
+ (#{match*\ 6109}#
+ (lambda (#{e\ 6209}#
+ #{p\ 6210}#
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#)
+ (if (null? #{p\ 6210}#)
+ (if (null? #{e\ 6209}#) #{r\ 6212}# #f)
+ (if (pair? #{p\ 6210}#)
+ (if (pair? #{e\ 6209}#)
+ (#{match\ 6111}#
+ (car #{e\ 6209}#)
+ (car #{p\ 6210}#)
+ #{w\ 6211}#
+ (#{match\ 6111}#
+ (cdr #{e\ 6209}#)
+ (cdr #{p\ 6210}#)
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#)
+ #{mod\ 6213}#)
#f)
- (if (eq? #{p\ 4102}# (quote each-any))
+ (if (eq? #{p\ 6210}# (quote each-any))
(begin
- (let ((#{l\ 4122}#
- (#{match-each-any\ 3995}#
- #{e\ 4101}#
- #{w\ 4103}#
- #{mod\ 4105}#)))
- (if #{l\ 4122}#
- (cons #{l\ 4122}# #{r\ 4104}#)
+ (let ((#{l\ 6230}#
+ (#{match-each-any\ 6103}#
+ #{e\ 6209}#
+ #{w\ 6211}#
+ #{mod\ 6213}#)))
+ (if #{l\ 6230}#
+ (cons #{l\ 6230}# #{r\ 6212}#)
#f)))
(begin
- (let ((#{atom-key\ 4128}#
- (vector-ref #{p\ 4102}# 0)))
- (if (eqv? #{atom-key\ 4128}# (quote each))
- (if (null? #{e\ 4101}#)
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4102}# 1)
- #{r\ 4104}#)
+ (let ((#{atom-key\ 6236}#
+ (vector-ref #{p\ 6210}# 0)))
+ (if (eqv? #{atom-key\ 6236}# (quote each))
+ (if (null? #{e\ 6209}#)
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6210}# 1)
+ #{r\ 6212}#)
(begin
- (let ((#{l\ 4131}#
- (#{match-each\ 3991}#
- #{e\ 4101}#
- (vector-ref #{p\ 4102}# 1)
- #{w\ 4103}#
- #{mod\ 4105}#)))
- (if #{l\ 4131}#
+ (let ((#{l\ 6239}#
+ (#{match-each\ 6099}#
+ #{e\ 6209}#
+ (vector-ref #{p\ 6210}# 1)
+ #{w\ 6211}#
+ #{mod\ 6213}#)))
+ (if #{l\ 6239}#
(letrec*
- ((#{collect\ 4136}#
- (lambda (#{l\ 4137}#)
- (if (null? (car #{l\ 4137}#))
- #{r\ 4104}#
- (cons (map car #{l\ 4137}#)
- (#{collect\ 4136}#
+ ((#{collect\ 6244}#
+ (lambda (#{l\ 6245}#)
+ (if (null? (car #{l\ 6245}#))
+ #{r\ 6212}#
+ (cons (map car #{l\ 6245}#)
+ (#{collect\ 6244}#
(map cdr
- #{l\ 4137}#)))))))
+ #{l\ 6245}#)))))))
(begin
- (#{collect\ 4136}# #{l\ 4131}#)))
+ (#{collect\ 6244}# #{l\ 6239}#)))
#f))))
- (if (eqv? #{atom-key\ 4128}# (quote each+))
+ (if (eqv? #{atom-key\ 6236}# (quote each+))
(call-with-values
(lambda ()
- (#{match-each+\ 3993}#
- #{e\ 4101}#
- (vector-ref #{p\ 4102}# 1)
- (vector-ref #{p\ 4102}# 2)
- (vector-ref #{p\ 4102}# 3)
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#))
- (lambda (#{xr*\ 4139}#
- #{y-pat\ 4140}#
- #{r\ 4141}#)
- (if #{r\ 4141}#
- (if (null? #{y-pat\ 4140}#)
- (if (null? #{xr*\ 4139}#)
- (#{match-empty\ 3997}#
- (vector-ref #{p\ 4102}# 1)
- #{r\ 4141}#)
- (#{combine\ 3999}#
- #{xr*\ 4139}#
- #{r\ 4141}#))
+ (#{match-each+\ 6101}#
+ #{e\ 6209}#
+ (vector-ref #{p\ 6210}# 1)
+ (vector-ref #{p\ 6210}# 2)
+ (vector-ref #{p\ 6210}# 3)
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#))
+ (lambda (#{xr*\ 6247}#
+ #{y-pat\ 6248}#
+ #{r\ 6249}#)
+ (if #{r\ 6249}#
+ (if (null? #{y-pat\ 6248}#)
+ (if (null? #{xr*\ 6247}#)
+ (#{match-empty\ 6105}#
+ (vector-ref #{p\ 6210}# 1)
+ #{r\ 6249}#)
+ (#{combine\ 6107}#
+ #{xr*\ 6247}#
+ #{r\ 6249}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 4128}# (quote free-id))
- (if (#{id?\ 388}# #{e\ 4101}#)
- (if (#{free-id=?\ 447}#
- (#{wrap\ 457}#
- #{e\ 4101}#
- #{w\ 4103}#
- #{mod\ 4105}#)
- (vector-ref #{p\ 4102}# 1))
- #{r\ 4104}#
+ (if (eqv? #{atom-key\ 6236}# (quote free-id))
+ (if (#{id?\ 2496}# #{e\ 6209}#)
+ (if (#{free-id=?\ 2555}#
+ (#{wrap\ 2565}#
+ #{e\ 6209}#
+ #{w\ 6211}#
+ #{mod\ 6213}#)
+ (vector-ref #{p\ 6210}# 1))
+ #{r\ 6212}#
#f)
#f)
- (if (eqv? #{atom-key\ 4128}# (quote atom))
+ (if (eqv? #{atom-key\ 6236}# (quote atom))
(if (equal?
- (vector-ref #{p\ 4102}# 1)
- (#{strip\ 499}#
- #{e\ 4101}#
- #{w\ 4103}#))
- #{r\ 4104}#
+ (vector-ref #{p\ 6210}# 1)
+ (#{strip\ 2607}#
+ #{e\ 6209}#
+ #{w\ 6211}#))
+ #{r\ 6212}#
#f)
- (if (eqv? #{atom-key\ 4128}#
+ (if (eqv? #{atom-key\ 6236}#
'vector)
- (if (vector? #{e\ 4101}#)
- (#{match\ 4003}#
- (vector->list #{e\ 4101}#)
- (vector-ref #{p\ 4102}# 1)
- #{w\ 4103}#
- #{r\ 4104}#
- #{mod\ 4105}#)
+ (if (vector? #{e\ 6209}#)
+ (#{match\ 6111}#
+ (vector->list #{e\ 6209}#)
+ (vector-ref #{p\ 6210}# 1)
+ #{w\ 6211}#
+ #{r\ 6212}#
+ #{mod\ 6213}#)
#f)))))))))))))
- (#{match\ 4003}#
- (lambda (#{e\ 4158}#
- #{p\ 4159}#
- #{w\ 4160}#
- #{r\ 4161}#
- #{mod\ 4162}#)
- (if (not #{r\ 4161}#)
+ (#{match\ 6111}#
+ (lambda (#{e\ 6266}#
+ #{p\ 6267}#
+ #{w\ 6268}#
+ #{r\ 6269}#
+ #{mod\ 6270}#)
+ (if (not #{r\ 6269}#)
#f
- (if (eq? #{p\ 4159}# (quote any))
- (cons (#{wrap\ 457}#
- #{e\ 4158}#
- #{w\ 4160}#
- #{mod\ 4162}#)
- #{r\ 4161}#)
- (if (#{syntax-object?\ 352}# #{e\ 4158}#)
- (#{match*\ 4001}#
- (#{syntax-object-expression\ 354}# #{e\ 4158}#)
- #{p\ 4159}#
- (#{join-wraps\ 439}#
- #{w\ 4160}#
- (#{syntax-object-wrap\ 356}# #{e\ 4158}#))
- #{r\ 4161}#
- (#{syntax-object-module\ 358}# #{e\ 4158}#))
- (#{match*\ 4001}#
- #{e\ 4158}#
- #{p\ 4159}#
- #{w\ 4160}#
- #{r\ 4161}#
- #{mod\ 4162}#)))))))
+ (if (eq? #{p\ 6267}# (quote any))
+ (cons (#{wrap\ 2565}#
+ #{e\ 6266}#
+ #{w\ 6268}#
+ #{mod\ 6270}#)
+ #{r\ 6269}#)
+ (if (#{syntax-object?\ 2460}# #{e\ 6266}#)
+ (#{match*\ 6109}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6266}#)
+ #{p\ 6267}#
+ (#{join-wraps\ 2547}#
+ #{w\ 6268}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6266}#))
+ #{r\ 6269}#
+ (#{syntax-object-module\ 2466}# #{e\ 6266}#))
+ (#{match*\ 6109}#
+ #{e\ 6266}#
+ #{p\ 6267}#
+ #{w\ 6268}#
+ #{r\ 6269}#
+ #{mod\ 6270}#)))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 4175}# #{p\ 4176}#)
- (if (eq? #{p\ 4176}# (quote any))
- (list #{e\ 4175}#)
- (if (#{syntax-object?\ 352}# #{e\ 4175}#)
- (#{match*\ 4001}#
- (#{syntax-object-expression\ 354}# #{e\ 4175}#)
- #{p\ 4176}#
- (#{syntax-object-wrap\ 356}# #{e\ 4175}#)
+ (lambda (#{e\ 6283}# #{p\ 6284}#)
+ (if (eq? #{p\ 6284}# (quote any))
+ (list #{e\ 6283}#)
+ (if (#{syntax-object?\ 2460}# #{e\ 6283}#)
+ (#{match*\ 6109}#
+ (#{syntax-object-expression\ 2462}# #{e\ 6283}#)
+ #{p\ 6284}#
+ (#{syntax-object-wrap\ 2464}# #{e\ 6283}#)
'()
- (#{syntax-object-module\ 358}# #{e\ 4175}#))
- (#{match*\ 4001}#
- #{e\ 4175}#
- #{p\ 4176}#
+ (#{syntax-object-module\ 2466}# #{e\ 6283}#))
+ (#{match*\ 6109}#
+ #{e\ 6283}#
+ #{p\ 6284}#
'(())
'()
#f)))))))))))))
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4185}#)
- (let ((#{tmp\ 4187}# #{x\ 4185}#))
- (let ((#{tmp\ 4188}#
+ (lambda (#{x\ 6293}#)
+ (let ((#{tmp\ 6295}# #{x\ 6293}#))
+ (let ((#{tmp\ 6296}#
($sc-dispatch
- #{tmp\ 4187}#
+ #{tmp\ 6295}#
'(any () any . each-any))))
- (if #{tmp\ 4188}#
+ (if #{tmp\ 6296}#
(@apply
- (lambda (#{_\ 4192}# #{e1\ 4193}# #{e2\ 4194}#)
+ (lambda (#{_\ 6300}# #{e1\ 6301}# #{e2\ 6302}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i4189" "i4190" "i4191"))
+ #("i6297" "i6298" "i6299"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- (cons #{e1\ 4193}# #{e2\ 4194}#)))
- #{tmp\ 4188}#)
- (let ((#{tmp\ 4196}#
+ (cons #{e1\ 6301}# #{e2\ 6302}#)))
+ #{tmp\ 6296}#)
+ (let ((#{tmp\ 6304}#
($sc-dispatch
- #{tmp\ 4187}#
+ #{tmp\ 6295}#
'(any ((any any)) any . each-any))))
- (if #{tmp\ 4196}#
+ (if #{tmp\ 6304}#
(@apply
- (lambda (#{_\ 4202}#
- #{out\ 4203}#
- #{in\ 4204}#
- #{e1\ 4205}#
- #{e2\ 4206}#)
+ (lambda (#{_\ 6310}#
+ #{out\ 6311}#
+ #{in\ 6312}#
+ #{e1\ 6313}#
+ #{e2\ 6314}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4197" "i4198" "i4199" "i4200" "i4201"))
+ #("i6305" "i6306" "i6307" "i6308" "i6309"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- #{in\ 4204}#
+ #{in\ 6312}#
'()
- (list #{out\ 4203}#
+ (list #{out\ 6311}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4197"
- "i4198"
- "i4199"
- "i4200"
- "i4201"))
+ #("i6305"
+ "i6306"
+ "i6307"
+ "i6308"
+ "i6309"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- (cons #{e1\ 4205}# #{e2\ 4206}#)))))
- #{tmp\ 4196}#)
- (let ((#{tmp\ 4208}#
+ (cons #{e1\ 6313}# #{e2\ 6314}#)))))
+ #{tmp\ 6304}#)
+ (let ((#{tmp\ 6316}#
($sc-dispatch
- #{tmp\ 4187}#
+ #{tmp\ 6295}#
'(any #(each (any any)) any . each-any))))
- (if #{tmp\ 4208}#
+ (if #{tmp\ 6316}#
(@apply
- (lambda (#{_\ 4214}#
- #{out\ 4215}#
- #{in\ 4216}#
- #{e1\ 4217}#
- #{e2\ 4218}#)
+ (lambda (#{_\ 6322}#
+ #{out\ 6323}#
+ #{in\ 6324}#
+ #{e1\ 6325}#
+ #{e2\ 6326}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4209" "i4210" "i4211" "i4212" "i4213"))
+ #("i6317" "i6318" "i6319" "i6320" "i6321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
(cons '#(syntax-object
list
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i4209"
- "i4210"
- "i4211"
- "i4212"
- "i4213"))
+ #("i6317"
+ "i6318"
+ "i6319"
+ "i6320"
+ "i6321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4186")))
+ #(ribcage #(x) #((top)) #("i6294")))
(hygiene guile))
- #{in\ 4216}#)
+ #{in\ 6324}#)
'()
- (list #{out\ 4215}#
+ (list #{out\ 6323}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i4209"
- "i4210"
- "i4211"
- "i4212"
- "i4213"))
+ #("i6317"
+ "i6318"
+ "i6319"
+ "i6320"
+ "i6321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4186")))
+ #("i6294")))
(hygiene guile))
- (cons #{e1\ 4217}# #{e2\ 4218}#)))))
- #{tmp\ 4208}#)
+ (cons #{e1\ 6325}# #{e2\ 6326}#)))))
+ #{tmp\ 6316}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4187}#)))))))))))
+ #{tmp\ 6295}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4222}#)
- (let ((#{tmp\ 4224}# #{x\ 4222}#))
- (let ((#{tmp\ 4225}#
+ (lambda (#{x\ 6330}#)
+ (let ((#{tmp\ 6332}# #{x\ 6330}#))
+ (let ((#{tmp\ 6333}#
($sc-dispatch
- #{tmp\ 4224}#
+ #{tmp\ 6332}#
'(any each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4225}#
+ (if #{tmp\ 6333}#
(@apply
- (lambda (#{_\ 4231}#
- #{k\ 4232}#
- #{keyword\ 4233}#
- #{pattern\ 4234}#
- #{template\ 4235}#)
+ (lambda (#{_\ 6339}#
+ #{k\ 6340}#
+ #{keyword\ 6341}#
+ #{pattern\ 6342}#
+ #{template\ 6343}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
- #{pattern\ 4234}#))
+ #{pattern\ 6342}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4226" "i4227" "i4228" "i4229" "i4230"))
+ #("i6334" "i6335" "i6336" "i6337" "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4226"
- "i4227"
- "i4228"
- "i4229"
- "i4230"))
+ #("i6334"
+ "i6335"
+ "i6336"
+ "i6337"
+ "i6338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4223")))
+ #(ribcage #(x) #((top)) #("i6331")))
(hygiene guile))
- (cons #{k\ 4232}#
- (map (lambda (#{tmp\ 4239}#
- #{tmp\ 4238}#)
+ (cons #{k\ 6340}#
+ (map (lambda (#{tmp\ 6347}#
+ #{tmp\ 6346}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4226"
- "i4227"
- "i4228"
- "i4229"
- "i4230"))
+ #("i6334"
+ "i6335"
+ "i6336"
+ "i6337"
+ "i6338"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4223")))
+ #("i6331")))
(hygiene guile))
- #{tmp\ 4238}#)
+ #{tmp\ 6346}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4226"
- "i4227"
- "i4228"
- "i4229"
- "i4230"))
+ #("i6334"
+ "i6335"
+ "i6336"
+ "i6337"
+ "i6338"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4223")))
+ #("i6331")))
(hygiene guile))
- #{tmp\ 4239}#)))
- #{template\ 4235}#
- #{pattern\ 4234}#))))))
- #{tmp\ 4225}#)
+ #{tmp\ 6347}#)))
+ #{template\ 6343}#
+ #{pattern\ 6342}#))))))
+ #{tmp\ 6333}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4224}#)))))))
+ #{tmp\ 6332}#)))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4240}#)
- (let ((#{tmp\ 4242}# #{x\ 4240}#))
- (let ((#{tmp\ 4243}#
+ (lambda (#{x\ 6348}#)
+ (let ((#{tmp\ 6350}# #{x\ 6348}#))
+ (let ((#{tmp\ 6351}#
($sc-dispatch
- #{tmp\ 4242}#
+ #{tmp\ 6350}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4243}#
+ (if (if #{tmp\ 6351}#
(@apply
- (lambda (#{let*\ 4249}#
- #{x\ 4250}#
- #{v\ 4251}#
- #{e1\ 4252}#
- #{e2\ 4253}#)
- (and-map identifier? #{x\ 4250}#))
- #{tmp\ 4243}#)
+ (lambda (#{let*\ 6357}#
+ #{x\ 6358}#
+ #{v\ 6359}#
+ #{e1\ 6360}#
+ #{e2\ 6361}#)
+ (and-map identifier? #{x\ 6358}#))
+ #{tmp\ 6351}#)
#f)
(@apply
- (lambda (#{let*\ 4260}#
- #{x\ 4261}#
- #{v\ 4262}#
- #{e1\ 4263}#
- #{e2\ 4264}#)
+ (lambda (#{let*\ 6368}#
+ #{x\ 6369}#
+ #{v\ 6370}#
+ #{e1\ 6371}#
+ #{e2\ 6372}#)
(letrec*
- ((#{f\ 4267}#
- (lambda (#{bindings\ 4268}#)
- (if (null? #{bindings\ 4268}#)
+ ((#{f\ 6375}#
+ (lambda (#{bindings\ 6376}#)
+ (if (null? #{bindings\ 6376}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i4265" "i4266"))
+ #("i6373" "i6374"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i6363"
+ "i6364"
+ "i6365"
+ "i6366"
+ "i6367"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4241")))
+ #(ribcage #(x) #((top)) #("i6349")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4263}# #{e2\ 4264}#)))
- (let ((#{tmp\ 4273}#
- (list (#{f\ 4267}# (cdr #{bindings\ 4268}#))
- (car #{bindings\ 4268}#))))
- (let ((#{tmp\ 4274}#
+ (cons #{e1\ 6371}# #{e2\ 6372}#)))
+ (let ((#{tmp\ 6381}#
+ (list (#{f\ 6375}# (cdr #{bindings\ 6376}#))
+ (car #{bindings\ 6376}#))))
+ (let ((#{tmp\ 6382}#
($sc-dispatch
- #{tmp\ 4273}#
+ #{tmp\ 6381}#
'(any any))))
- (if #{tmp\ 4274}#
+ (if #{tmp\ 6382}#
(@apply
- (lambda (#{body\ 4277}# #{binding\ 4278}#)
+ (lambda (#{body\ 6385}# #{binding\ 6386}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4275" "i4276"))
+ #("i6383" "i6384"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4265" "i4266"))
+ #("i6373" "i6374"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i6363"
+ "i6364"
+ "i6365"
+ "i6366"
+ "i6367"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4241")))
+ #("i6349")))
(hygiene guile))
- (list #{binding\ 4278}#)
- #{body\ 4277}#))
- #{tmp\ 4274}#)
+ (list #{binding\ 6386}#)
+ #{body\ 6385}#))
+ #{tmp\ 6382}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4273}#))))))))
+ #{tmp\ 6381}#))))))))
(begin
- (#{f\ 4267}# (map list #{x\ 4261}# #{v\ 4262}#)))))
- #{tmp\ 4243}#)
+ (#{f\ 6375}# (map list #{x\ 6369}# #{v\ 6370}#)))))
+ #{tmp\ 6351}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4242}#)))))))
+ #{tmp\ 6350}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4279}#)
- (let ((#{tmp\ 4281}# #{orig-x\ 4279}#))
- (let ((#{tmp\ 4282}#
+ (lambda (#{orig-x\ 6387}#)
+ (let ((#{tmp\ 6389}# #{orig-x\ 6387}#))
+ (let ((#{tmp\ 6390}#
($sc-dispatch
- #{tmp\ 4281}#
+ #{tmp\ 6389}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 4282}#
+ (if #{tmp\ 6390}#
(@apply
- (lambda (#{_\ 4290}#
- #{var\ 4291}#
- #{init\ 4292}#
- #{step\ 4293}#
- #{e0\ 4294}#
- #{e1\ 4295}#
- #{c\ 4296}#)
- (let ((#{tmp\ 4298}#
- (map (lambda (#{v\ 4319}# #{s\ 4320}#)
- (let ((#{tmp\ 4323}# #{s\ 4320}#))
- (let ((#{tmp\ 4324}#
+ (lambda (#{_\ 6398}#
+ #{var\ 6399}#
+ #{init\ 6400}#
+ #{step\ 6401}#
+ #{e0\ 6402}#
+ #{e1\ 6403}#
+ #{c\ 6404}#)
+ (let ((#{tmp\ 6406}#
+ (map (lambda (#{v\ 6427}# #{s\ 6428}#)
+ (let ((#{tmp\ 6431}# #{s\ 6428}#))
+ (let ((#{tmp\ 6432}#
($sc-dispatch
- #{tmp\ 4323}#
+ #{tmp\ 6431}#
'())))
- (if #{tmp\ 4324}#
+ (if #{tmp\ 6432}#
(@apply
- (lambda () #{v\ 4319}#)
- #{tmp\ 4324}#)
- (let ((#{tmp\ 4325}#
+ (lambda () #{v\ 6427}#)
+ #{tmp\ 6432}#)
+ (let ((#{tmp\ 6433}#
($sc-dispatch
- #{tmp\ 4323}#
+ #{tmp\ 6431}#
'(any))))
- (if #{tmp\ 4325}#
+ (if #{tmp\ 6433}#
(@apply
- (lambda (#{e\ 4327}#) #{e\ 4327}#)
- #{tmp\ 4325}#)
- (let ((#{_\ 4329}# #{tmp\ 4323}#))
+ (lambda (#{e\ 6435}#) #{e\ 6435}#)
+ #{tmp\ 6433}#)
+ (let ((#{_\ 6437}# #{tmp\ 6431}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4279}#
- #{s\ 4320}#))))))))
- #{var\ 4291}#
- #{step\ 4293}#)))
- (let ((#{tmp\ 4299}#
- ($sc-dispatch #{tmp\ 4298}# (quote each-any))))
- (if #{tmp\ 4299}#
+ #{orig-x\ 6387}#
+ #{s\ 6428}#))))))))
+ #{var\ 6399}#
+ #{step\ 6401}#)))
+ (let ((#{tmp\ 6407}#
+ ($sc-dispatch #{tmp\ 6406}# (quote each-any))))
+ (if #{tmp\ 6407}#
(@apply
- (lambda (#{step\ 4301}#)
- (let ((#{tmp\ 4302}# #{e1\ 4295}#))
- (let ((#{tmp\ 4303}#
- ($sc-dispatch #{tmp\ 4302}# (quote ()))))
- (if #{tmp\ 4303}#
+ (lambda (#{step\ 6409}#)
+ (let ((#{tmp\ 6410}# #{e1\ 6403}#))
+ (let ((#{tmp\ 6411}#
+ ($sc-dispatch #{tmp\ 6410}# (quote ()))))
+ (if #{tmp\ 6411}#
(@apply
(lambda ()
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
(map list
- #{var\ 4291}#
- #{init\ 4292}#)
+ #{var\ 6399}#
+ #{init\ 6400}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
(list '#(syntax-object
not
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
- #{e0\ 4294}#)
+ #{e0\ 6402}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
(append
- #{c\ 4296}#
+ #{c\ 6404}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene
guile))
- #{step\ 4301}#)))))))
- #{tmp\ 4303}#)
- (let ((#{tmp\ 4308}#
+ #{step\ 6409}#)))))))
+ #{tmp\ 6411}#)
+ (let ((#{tmp\ 6416}#
($sc-dispatch
- #{tmp\ 4302}#
+ #{tmp\ 6410}#
'(any . each-any))))
- (if #{tmp\ 4308}#
+ (if #{tmp\ 6416}#
(@apply
- (lambda (#{e1\ 4311}# #{e2\ 4312}#)
+ (lambda (#{e1\ 6419}# #{e2\ 6420}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309" "i4310"))
+ #("i6417" "i6418"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309" "i4310"))
+ #("i6417" "i6418"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_ var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
(map list
- #{var\ 4291}#
- #{init\ 4292}#)
+ #{var\ 6399}#
+ #{init\ 6400}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309" "i4310"))
+ #("i6417" "i6418"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
- #{e0\ 4294}#
+ #{e0\ 6402}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309"
- "i4310"))
+ #("i6417"
+ "i6418"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
- (cons #{e1\ 4311}#
- #{e2\ 4312}#))
+ (cons #{e1\ 6419}#
+ #{e2\ 6420}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4309"
- "i4310"))
+ #("i6417"
+ "i6418"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene guile))
(append
- #{c\ 4296}#
+ #{c\ 6404}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i4309"
- "i4310"))
+ #("i6417"
+ "i6418"))
#(ribcage
#(step)
#((top))
- #("i4300"))
+ #("i6408"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4283"
- "i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"
- "i4289"))
+ #("i6391"
+ "i6392"
+ "i6393"
+ "i6394"
+ "i6395"
+ "i6396"
+ "i6397"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4280")))
+ #("i6388")))
(hygiene
guile))
- #{step\ 4301}#)))))))
- #{tmp\ 4308}#)
+ #{step\ 6409}#)))))))
+ #{tmp\ 6416}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4302}#)))))))
- #{tmp\ 4299}#)
+ #{tmp\ 6410}#)))))))
+ #{tmp\ 6407}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4298}#)))))
- #{tmp\ 4282}#)
+ #{tmp\ 6406}#)))))
+ #{tmp\ 6390}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4281}#)))))))
+ #{tmp\ 6389}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasicons\ 4336}#
- (lambda (#{x\ 4340}# #{y\ 4341}#)
- (let ((#{tmp\ 4345}# (list #{x\ 4340}# #{y\ 4341}#)))
- (let ((#{tmp\ 4346}#
- ($sc-dispatch #{tmp\ 4345}# (quote (any any)))))
- (if #{tmp\ 4346}#
+ ((#{quasicons\ 6444}#
+ (lambda (#{x\ 6448}# #{y\ 6449}#)
+ (let ((#{tmp\ 6453}# (list #{x\ 6448}# #{y\ 6449}#)))
+ (let ((#{tmp\ 6454}#
+ ($sc-dispatch #{tmp\ 6453}# (quote (any any)))))
+ (if #{tmp\ 6454}#
(@apply
- (lambda (#{x\ 4349}# #{y\ 4350}#)
- (let ((#{tmp\ 4351}# #{y\ 4350}#))
- (let ((#{tmp\ 4352}#
+ (lambda (#{x\ 6457}# #{y\ 6458}#)
+ (let ((#{tmp\ 6459}# #{y\ 6458}#))
+ (let ((#{tmp\ 6460}#
($sc-dispatch
- #{tmp\ 4351}#
+ #{tmp\ 6459}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4352}#
+ (if #{tmp\ 6460}#
(@apply
- (lambda (#{dy\ 4354}#)
- (let ((#{tmp\ 4355}# #{x\ 4349}#))
- (let ((#{tmp\ 4356}#
+ (lambda (#{dy\ 6462}#)
+ (let ((#{tmp\ 6463}# #{x\ 6457}#))
+ (let ((#{tmp\ 6464}#
($sc-dispatch
- #{tmp\ 4355}#
+ #{tmp\ 6463}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4356}#
+ (if #{tmp\ 6464}#
(@apply
- (lambda (#{dx\ 4358}#)
+ (lambda (#{dx\ 6466}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4357"))
+ #("i6465"))
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- (cons #{dx\ 4358}#
- #{dy\ 4354}#)))
- #{tmp\ 4356}#)
- (let ((#{_\ 4360}# #{tmp\ 4355}#))
- (if (null? #{dy\ 4354}#)
+ (cons #{dx\ 6466}#
+ #{dy\ 6462}#)))
+ #{tmp\ 6464}#)
+ (let ((#{_\ 6468}# #{tmp\ 6463}#))
+ (if (null? #{dy\ 6462}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4359"))
+ #("i6467"))
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{x\ 4349}#)
+ #{x\ 6457}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4359"))
+ #("i6467"))
#(ribcage
#(dy)
#((top))
- #("i4353"))
+ #("i6461"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{x\ 4349}#
- #{y\ 4350}#)))))))
- #{tmp\ 4352}#)
- (let ((#{tmp\ 4361}#
+ #{x\ 6457}#
+ #{y\ 6458}#)))))))
+ #{tmp\ 6460}#)
+ (let ((#{tmp\ 6469}#
($sc-dispatch
- #{tmp\ 4351}#
+ #{tmp\ 6459}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
.
any))))
- (if #{tmp\ 4361}#
+ (if #{tmp\ 6469}#
(@apply
- (lambda (#{stuff\ 4363}#)
+ (lambda (#{stuff\ 6471}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4362"))
+ #("i6470"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- (cons #{x\ 4349}# #{stuff\ 4363}#)))
- #{tmp\ 4361}#)
- (let ((#{else\ 4365}# #{tmp\ 4351}#))
+ (cons #{x\ 6457}# #{stuff\ 6471}#)))
+ #{tmp\ 6469}#)
+ (let ((#{else\ 6473}# #{tmp\ 6459}#))
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4364"))
+ #("i6472"))
#(ribcage
#(x y)
#((top) (top))
- #("i4347" "i4348"))
+ #("i6455" "i6456"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4342" "i4343"))
+ #("i6450" "i6451"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{x\ 4349}#
- #{y\ 4350}#))))))))
- #{tmp\ 4346}#)
+ #{x\ 6457}#
+ #{y\ 6458}#))))))))
+ #{tmp\ 6454}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4345}#))))))
- (#{quasiappend\ 4337}#
- (lambda (#{x\ 4366}# #{y\ 4367}#)
- (let ((#{tmp\ 4371}# (list #{x\ 4366}# #{y\ 4367}#)))
- (let ((#{tmp\ 4372}#
- ($sc-dispatch #{tmp\ 4371}# (quote (any any)))))
- (if #{tmp\ 4372}#
+ #{tmp\ 6453}#))))))
+ (#{quasiappend\ 6445}#
+ (lambda (#{x\ 6474}# #{y\ 6475}#)
+ (let ((#{tmp\ 6479}# (list #{x\ 6474}# #{y\ 6475}#)))
+ (let ((#{tmp\ 6480}#
+ ($sc-dispatch #{tmp\ 6479}# (quote (any any)))))
+ (if #{tmp\ 6480}#
(@apply
- (lambda (#{x\ 4375}# #{y\ 4376}#)
- (let ((#{tmp\ 4377}# #{y\ 4376}#))
- (let ((#{tmp\ 4378}#
+ (lambda (#{x\ 6483}# #{y\ 6484}#)
+ (let ((#{tmp\ 6485}# #{y\ 6484}#))
+ (let ((#{tmp\ 6486}#
($sc-dispatch
- #{tmp\ 4377}#
+ #{tmp\ 6485}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4373" "i4374"))
+ #("i6481" "i6482"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4368" "i4369"))
+ #("i6476" "i6477"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
()))))
- (if #{tmp\ 4378}#
- (@apply (lambda () #{x\ 4375}#) #{tmp\ 4378}#)
- (let ((#{_\ 4380}# #{tmp\ 4377}#))
+ (if #{tmp\ 6486}#
+ (@apply (lambda () #{x\ 6483}#) #{tmp\ 6486}#)
+ (let ((#{_\ 6488}# #{tmp\ 6485}#))
(list '#(syntax-object
append
((top)
- #(ribcage #(_) #((top)) #("i4379"))
+ #(ribcage #(_) #((top)) #("i6487"))
#(ribcage
#(x y)
#((top) (top))
- #("i4373" "i4374"))
+ #("i6481" "i6482"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4368" "i4369"))
+ #("i6476" "i6477"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{x\ 4375}#
- #{y\ 4376}#))))))
- #{tmp\ 4372}#)
+ #{x\ 6483}#
+ #{y\ 6484}#))))))
+ #{tmp\ 6480}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4371}#))))))
- (#{quasivector\ 4338}#
- (lambda (#{x\ 4381}#)
- (let ((#{tmp\ 4384}# #{x\ 4381}#))
- (let ((#{x\ 4386}# #{tmp\ 4384}#))
- (let ((#{tmp\ 4387}# #{x\ 4386}#))
- (let ((#{tmp\ 4388}#
+ #{tmp\ 6479}#))))))
+ (#{quasivector\ 6446}#
+ (lambda (#{x\ 6489}#)
+ (let ((#{tmp\ 6492}# #{x\ 6489}#))
+ (let ((#{x\ 6494}# #{tmp\ 6492}#))
+ (let ((#{tmp\ 6495}# #{x\ 6494}#))
+ (let ((#{tmp\ 6496}#
($sc-dispatch
- #{tmp\ 4387}#
+ #{tmp\ 6495}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
each-any))))
- (if #{tmp\ 4388}#
+ (if #{tmp\ 6496}#
(@apply
- (lambda (#{x\ 4390}#)
+ (lambda (#{x\ 6498}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4389"))
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i6497"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- (list->vector #{x\ 4390}#)))
- #{tmp\ 4388}#)
- (let ((#{tmp\ 4392}#
+ (list->vector #{x\ 6498}#)))
+ #{tmp\ 6496}#)
+ (let ((#{tmp\ 6500}#
($sc-dispatch
- #{tmp\ 4387}#
+ #{tmp\ 6495}#
'(#(free-id
#(syntax-object
list
((top)
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4392}#
+ (if #{tmp\ 6500}#
(@apply
- (lambda (#{x\ 4394}#)
+ (lambda (#{x\ 6502}#)
(cons '#(syntax-object
vector
((top)
- #(ribcage #(x) #((top)) #("i4393"))
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(x) #((top)) #("i6501"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{x\ 4394}#))
- #{tmp\ 4392}#)
- (let ((#{_\ 4397}# #{tmp\ 4387}#))
+ #{x\ 6502}#))
+ #{tmp\ 6500}#)
+ (let ((#{_\ 6505}# #{tmp\ 6495}#))
(list '#(syntax-object
list->vector
((top)
- #(ribcage #(_) #((top)) #("i4396"))
- #(ribcage #(x) #((top)) #("i4385"))
+ #(ribcage #(_) #((top)) #("i6504"))
+ #(ribcage #(x) #((top)) #("i6493"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4382"))
+ #(ribcage #(x) #((top)) #("i6490"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{x\ 4386}#)))))))))))
- (#{quasi\ 4339}#
- (lambda (#{p\ 4398}# #{lev\ 4399}#)
- (let ((#{tmp\ 4402}# #{p\ 4398}#))
- (let ((#{tmp\ 4403}#
+ #{x\ 6494}#)))))))))))
+ (#{quasi\ 6447}#
+ (lambda (#{p\ 6506}# #{lev\ 6507}#)
+ (let ((#{tmp\ 6510}# #{p\ 6506}#))
+ (let ((#{tmp\ 6511}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 6510}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4403}#
+ (if #{tmp\ 6511}#
(@apply
- (lambda (#{p\ 4405}#)
- (if (= #{lev\ 4399}# 0)
- #{p\ 4405}#
- (#{quasicons\ 4336}#
+ (lambda (#{p\ 6513}#)
+ (if (= #{lev\ 6507}# 0)
+ #{p\ 6513}#
+ (#{quasicons\ 6444}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4404"))
+ #(ribcage #(p) #((top)) #("i6512"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4404"))
+ #(ribcage #(p) #((top)) #("i6512"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
- (#{quasi\ 4339}#
- (list #{p\ 4405}#)
- (1- #{lev\ 4399}#)))))
- #{tmp\ 4403}#)
- (let ((#{tmp\ 4406}#
+ (#{quasi\ 6447}#
+ (list #{p\ 6513}#)
+ (1- #{lev\ 6507}#)))))
+ #{tmp\ 6511}#)
+ (let ((#{tmp\ 6514}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 6510}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
.
any))))
- (if (if #{tmp\ 4406}#
+ (if (if #{tmp\ 6514}#
(@apply
- (lambda (#{args\ 4408}#) (= #{lev\ 4399}# 0))
- #{tmp\ 4406}#)
+ (lambda (#{args\ 6516}#) (= #{lev\ 6507}# 0))
+ #{tmp\ 6514}#)
#f)
(@apply
- (lambda (#{args\ 4410}#)
+ (lambda (#{args\ 6518}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4398}#
+ #{p\ 6506}#
(cons '#(syntax-object
unquote
((top)
- #(ribcage #(args) #((top)) #("i4409"))
+ #(ribcage #(args) #((top)) #("i6517"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
- #{args\ 4410}#)))
- #{tmp\ 4406}#)
- (let ((#{tmp\ 4411}#
+ #{args\ 6518}#)))
+ #{tmp\ 6514}#)
+ (let ((#{tmp\ 6519}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 6510}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
any)
.
any))))
- (if #{tmp\ 4411}#
+ (if #{tmp\ 6519}#
(@apply
- (lambda (#{p\ 4414}# #{q\ 4415}#)
- (if (= #{lev\ 4399}# 0)
- (#{quasiappend\ 4337}#
- #{p\ 4414}#
- (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#))
- (#{quasicons\ 4336}#
- (#{quasicons\ 4336}#
+ (lambda (#{p\ 6522}# #{q\ 6523}#)
+ (if (= #{lev\ 6507}# 0)
+ (#{quasiappend\ 6445}#
+ #{p\ 6522}#
+ (#{quasi\ 6447}# #{q\ 6523}# #{lev\ 6507}#))
+ (#{quasicons\ 6444}#
+ (#{quasicons\ 6444}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4412" "i4413"))
+ #("i6520" "i6521"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4412" "i4413"))
+ #("i6520" "i6521"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332" "i4333" "i4334" "i4335")))
+ #("i6440" "i6441" "i6442" "i6443")))
(hygiene guile)))
- (#{quasi\ 4339}#
- (list #{p\ 4414}#)
- (1- #{lev\ 4399}#)))
- (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#))))
- #{tmp\ 4411}#)
- (let ((#{tmp\ 4416}#
+ (#{quasi\ 6447}#
+ (list #{p\ 6522}#)
+ (1- #{lev\ 6507}#)))
+ (#{quasi\ 6447}# #{q\ 6523}# #{lev\ 6507}#))))
+ #{tmp\ 6519}#)
+ (let ((#{tmp\ 6524}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 6510}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
.
any)
.
any))))
- (if (if #{tmp\ 4416}#
+ (if (if #{tmp\ 6524}#
(@apply
- (lambda (#{args\ 4419}# #{q\ 4420}#)
- (= #{lev\ 4399}# 0))
- #{tmp\ 4416}#)
+ (lambda (#{args\ 6527}# #{q\ 6528}#)
+ (= #{lev\ 6507}# 0))
+ #{tmp\ 6524}#)
#f)
(@apply
- (lambda (#{args\ 4423}# #{q\ 4424}#)
+ (lambda (#{args\ 6531}# #{q\ 6532}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 4398}#
+ #{p\ 6506}#
(cons '#(syntax-object
unquote-splicing
((top)
#(ribcage
#(args q)
#((top) (top))
- #("i4421" "i4422"))
+ #("i6529" "i6530"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{args\ 4423}#)))
- #{tmp\ 4416}#)
- (let ((#{tmp\ 4425}#
+ #{args\ 6531}#)))
+ #{tmp\ 6524}#)
+ (let ((#{tmp\ 6533}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 6510}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
any))))
- (if #{tmp\ 4425}#
+ (if #{tmp\ 6533}#
(@apply
- (lambda (#{p\ 4427}#)
- (#{quasicons\ 4336}#
+ (lambda (#{p\ 6535}#)
+ (#{quasicons\ 6444}#
'(#(syntax-object
quote
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i6534"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i6534"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile)))
- (#{quasi\ 4339}#
- (list #{p\ 4427}#)
- (1+ #{lev\ 4399}#))))
- #{tmp\ 4425}#)
- (let ((#{tmp\ 4428}#
+ (#{quasi\ 6447}#
+ (list #{p\ 6535}#)
+ (1+ #{lev\ 6507}#))))
+ #{tmp\ 6533}#)
+ (let ((#{tmp\ 6536}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 6510}#
'(any . any))))
- (if #{tmp\ 4428}#
+ (if #{tmp\ 6536}#
(@apply
- (lambda (#{p\ 4431}# #{q\ 4432}#)
- (#{quasicons\ 4336}#
- (#{quasi\ 4339}#
- #{p\ 4431}#
- #{lev\ 4399}#)
- (#{quasi\ 4339}#
- #{q\ 4432}#
- #{lev\ 4399}#)))
- #{tmp\ 4428}#)
- (let ((#{tmp\ 4433}#
+ (lambda (#{p\ 6539}# #{q\ 6540}#)
+ (#{quasicons\ 6444}#
+ (#{quasi\ 6447}#
+ #{p\ 6539}#
+ #{lev\ 6507}#)
+ (#{quasi\ 6447}#
+ #{q\ 6540}#
+ #{lev\ 6507}#)))
+ #{tmp\ 6536}#)
+ (let ((#{tmp\ 6541}#
($sc-dispatch
- #{tmp\ 4402}#
+ #{tmp\ 6510}#
'#(vector each-any))))
- (if #{tmp\ 4433}#
+ (if #{tmp\ 6541}#
(@apply
- (lambda (#{x\ 4435}#)
- (#{quasivector\ 4338}#
- (#{quasi\ 4339}#
- #{x\ 4435}#
- #{lev\ 4399}#)))
- #{tmp\ 4433}#)
- (let ((#{p\ 4438}# #{tmp\ 4402}#))
+ (lambda (#{x\ 6543}#)
+ (#{quasivector\ 6446}#
+ (#{quasi\ 6447}#
+ #{x\ 6543}#
+ #{lev\ 6507}#)))
+ #{tmp\ 6541}#)
+ (let ((#{p\ 6546}# #{tmp\ 6510}#))
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4437"))
+ #("i6545"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4400" "i4401"))
+ #("i6508" "i6509"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4332"
- "i4333"
- "i4334"
- "i4335")))
+ #("i6440"
+ "i6441"
+ "i6442"
+ "i6443")))
(hygiene guile))
- #{p\ 4438}#))))))))))))))))))))
+ #{p\ 6546}#))))))))))))))))))))
(begin
- (lambda (#{x\ 4439}#)
- (let ((#{tmp\ 4441}# #{x\ 4439}#))
- (let ((#{tmp\ 4442}#
- ($sc-dispatch #{tmp\ 4441}# (quote (any any)))))
- (if #{tmp\ 4442}#
+ (lambda (#{x\ 6547}#)
+ (let ((#{tmp\ 6549}# #{x\ 6547}#))
+ (let ((#{tmp\ 6550}#
+ ($sc-dispatch #{tmp\ 6549}# (quote (any any)))))
+ (if #{tmp\ 6550}#
(@apply
- (lambda (#{_\ 4445}# #{e\ 4446}#)
- (#{quasi\ 4339}# #{e\ 4446}# 0))
- #{tmp\ 4442}#)
+ (lambda (#{_\ 6553}# #{e\ 6554}#)
+ (#{quasi\ 6447}# #{e\ 6554}# 0))
+ #{tmp\ 6550}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4441}#)))))))))
+ #{tmp\ 6549}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4447}#)
+ (lambda (#{x\ 6555}#)
(letrec*
- ((#{read-file\ 4450}#
- (lambda (#{fn\ 4451}# #{k\ 4452}#)
+ ((#{read-file\ 6558}#
+ (lambda (#{fn\ 6559}# #{k\ 6560}#)
(begin
- (let ((#{p\ 4456}# (open-input-file #{fn\ 4451}#)))
+ (let ((#{p\ 6564}# (open-input-file #{fn\ 6559}#)))
(letrec*
- ((#{f\ 4460}#
- (lambda (#{x\ 4461}# #{result\ 4462}#)
- (if (eof-object? #{x\ 4461}#)
+ ((#{f\ 6568}#
+ (lambda (#{x\ 6569}# #{result\ 6570}#)
+ (if (eof-object? #{x\ 6569}#)
(begin
- (close-input-port #{p\ 4456}#)
- (reverse #{result\ 4462}#))
- (#{f\ 4460}#
- (read #{p\ 4456}#)
- (cons (datum->syntax #{k\ 4452}# #{x\ 4461}#)
- #{result\ 4462}#))))))
+ (close-input-port #{p\ 6564}#)
+ (reverse #{result\ 6570}#))
+ (#{f\ 6568}#
+ (read #{p\ 6564}#)
+ (cons (datum->syntax #{k\ 6560}# #{x\ 6569}#)
+ #{result\ 6570}#))))))
(begin
- (#{f\ 4460}# (read #{p\ 4456}#) (quote ())))))))))
+ (#{f\ 6568}# (read #{p\ 6564}#) (quote ())))))))))
(begin
- (let ((#{tmp\ 4463}# #{x\ 4447}#))
- (let ((#{tmp\ 4464}#
- ($sc-dispatch #{tmp\ 4463}# (quote (any any)))))
- (if #{tmp\ 4464}#
+ (let ((#{tmp\ 6571}# #{x\ 6555}#))
+ (let ((#{tmp\ 6572}#
+ ($sc-dispatch #{tmp\ 6571}# (quote (any any)))))
+ (if #{tmp\ 6572}#
(@apply
- (lambda (#{k\ 4467}# #{filename\ 4468}#)
+ (lambda (#{k\ 6575}# #{filename\ 6576}#)
(begin
- (let ((#{fn\ 4470}# (syntax->datum #{filename\ 4468}#)))
- (let ((#{tmp\ 4472}#
- (#{read-file\ 4450}#
- #{fn\ 4470}#
- #{filename\ 4468}#)))
- (let ((#{tmp\ 4473}#
+ (let ((#{fn\ 6578}# (syntax->datum #{filename\ 6576}#)))
+ (let ((#{tmp\ 6580}#
+ (#{read-file\ 6558}#
+ #{fn\ 6578}#
+ #{filename\ 6576}#)))
+ (let ((#{tmp\ 6581}#
($sc-dispatch
- #{tmp\ 4472}#
+ #{tmp\ 6580}#
'each-any)))
- (if #{tmp\ 4473}#
+ (if #{tmp\ 6581}#
(@apply
- (lambda (#{exp\ 4475}#)
+ (lambda (#{exp\ 6583}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4474"))
+ #("i6582"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4469"))
+ #("i6577"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4465" "i4466"))
+ #("i6573" "i6574"))
#(ribcage
(read-file)
((top))
- ("i4449"))
+ ("i6557"))
#(ribcage
#(x)
#((top))
- #("i4448")))
+ #("i6556")))
(hygiene guile))
- #{exp\ 4475}#))
- #{tmp\ 4473}#)
+ #{exp\ 6583}#))
+ #{tmp\ 6581}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4472}#)))))))
- #{tmp\ 4464}#)
+ #{tmp\ 6580}#)))))))
+ #{tmp\ 6572}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4463}#)))))))))
+ #{tmp\ 6571}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4477}#)
- (let ((#{tmp\ 4479}# #{x\ 4477}#))
- (let ((#{tmp\ 4480}#
- ($sc-dispatch #{tmp\ 4479}# (quote (any any)))))
- (if #{tmp\ 4480}#
+ (lambda (#{x\ 6585}#)
+ (let ((#{tmp\ 6587}# #{x\ 6585}#))
+ (let ((#{tmp\ 6588}#
+ ($sc-dispatch #{tmp\ 6587}# (quote (any any)))))
+ (if #{tmp\ 6588}#
(@apply
- (lambda (#{k\ 4483}# #{filename\ 4484}#)
+ (lambda (#{k\ 6591}# #{filename\ 6592}#)
(begin
- (let ((#{fn\ 4486}# (syntax->datum #{filename\ 4484}#)))
- (let ((#{tmp\ 4488}#
+ (let ((#{fn\ 6594}# (syntax->datum #{filename\ 6592}#)))
+ (let ((#{tmp\ 6596}#
(datum->syntax
- #{filename\ 4484}#
+ #{filename\ 6592}#
(begin
- (let ((#{t\ 4493}#
- (%search-load-path #{fn\ 4486}#)))
- (if #{t\ 4493}#
- #{t\ 4493}#
+ (let ((#{t\ 6601}#
+ (%search-load-path #{fn\ 6594}#)))
+ (if #{t\ 6601}#
+ #{t\ 6601}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4477}#
- #{filename\ 4484}#)))))))
- (let ((#{fn\ 4490}# #{tmp\ 4488}#))
+ #{x\ 6585}#
+ #{filename\ 6592}#)))))))
+ (let ((#{fn\ 6598}# #{tmp\ 6596}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4489"))
+ #(ribcage #(fn) #((top)) #("i6597"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4485"))
+ #(ribcage #(fn) #((top)) #("i6593"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4481" "i4482"))
+ #("i6589" "i6590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4478")))
+ #(ribcage #(x) #((top)) #("i6586")))
(hygiene guile))
- #{fn\ 4490}#))))))
- #{tmp\ 4480}#)
+ #{fn\ 6598}#))))))
+ #{tmp\ 6588}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4479}#)))))))
+ #{tmp\ 6587}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4495}#)
- (let ((#{tmp\ 4497}# #{x\ 4495}#))
- (let ((#{tmp\ 4498}#
- ($sc-dispatch #{tmp\ 4497}# (quote (any any)))))
- (if #{tmp\ 4498}#
+ (lambda (#{x\ 6603}#)
+ (let ((#{tmp\ 6605}# #{x\ 6603}#))
+ (let ((#{tmp\ 6606}#
+ ($sc-dispatch #{tmp\ 6605}# (quote (any any)))))
+ (if #{tmp\ 6606}#
(@apply
- (lambda (#{_\ 4501}# #{e\ 4502}#)
+ (lambda (#{_\ 6609}# #{e\ 6610}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4495}#))
- #{tmp\ 4498}#)
+ #{x\ 6603}#))
+ #{tmp\ 6606}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4497}#)))))))
+ #{tmp\ 6605}#)))))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4503}#)
- (let ((#{tmp\ 4505}# #{x\ 4503}#))
- (let ((#{tmp\ 4506}#
- ($sc-dispatch #{tmp\ 4505}# (quote (any any)))))
- (if #{tmp\ 4506}#
+ (lambda (#{x\ 6611}#)
+ (let ((#{tmp\ 6613}# #{x\ 6611}#))
+ (let ((#{tmp\ 6614}#
+ ($sc-dispatch #{tmp\ 6613}# (quote (any any)))))
+ (if #{tmp\ 6614}#
(@apply
- (lambda (#{_\ 4509}# #{e\ 4510}#)
+ (lambda (#{_\ 6617}# #{e\ 6618}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4503}#))
- #{tmp\ 4506}#)
+ #{x\ 6611}#))
+ #{tmp\ 6614}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4505}#)))))))
+ #{tmp\ 6613}#)))))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4511}#)
- (let ((#{tmp\ 4513}# #{x\ 4511}#))
- (let ((#{tmp\ 4514}#
+ (lambda (#{x\ 6619}#)
+ (let ((#{tmp\ 6621}# #{x\ 6619}#))
+ (let ((#{tmp\ 6622}#
($sc-dispatch
- #{tmp\ 4513}#
+ #{tmp\ 6621}#
'(any any any . each-any))))
- (if #{tmp\ 4514}#
+ (if #{tmp\ 6622}#
(@apply
- (lambda (#{_\ 4519}#
- #{e\ 4520}#
- #{m1\ 4521}#
- #{m2\ 4522}#)
- (let ((#{tmp\ 4524}#
+ (lambda (#{_\ 6627}#
+ #{e\ 6628}#
+ #{m1\ 6629}#
+ #{m2\ 6630}#)
+ (let ((#{tmp\ 6632}#
(letrec*
- ((#{f\ 4530}#
- (lambda (#{clause\ 4531}# #{clauses\ 4532}#)
- (if (null? #{clauses\ 4532}#)
- (let ((#{tmp\ 4534}# #{clause\ 4531}#))
- (let ((#{tmp\ 4535}#
+ ((#{f\ 6638}#
+ (lambda (#{clause\ 6639}# #{clauses\ 6640}#)
+ (if (null? #{clauses\ 6640}#)
+ (let ((#{tmp\ 6642}# #{clause\ 6639}#))
+ (let ((#{tmp\ 6643}#
($sc-dispatch
- #{tmp\ 4534}#
+ #{tmp\ 6642}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4535}#
+ (if #{tmp\ 6643}#
(@apply
- (lambda (#{e1\ 4538}# #{e2\ 4539}#)
+ (lambda (#{e1\ 6646}# #{e2\ 6647}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4536" "i4537"))
+ #("i6644" "i6645"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
- (cons #{e1\ 4538}#
- #{e2\ 4539}#)))
- #{tmp\ 4535}#)
- (let ((#{tmp\ 4541}#
+ (cons #{e1\ 6646}#
+ #{e2\ 6647}#)))
+ #{tmp\ 6643}#)
+ (let ((#{tmp\ 6649}#
($sc-dispatch
- #{tmp\ 4534}#
+ #{tmp\ 6642}#
'(each-any any . each-any))))
- (if #{tmp\ 4541}#
+ (if #{tmp\ 6649}#
(@apply
- (lambda (#{k\ 4545}#
- #{e1\ 4546}#
- #{e2\ 4547}#)
+ (lambda (#{k\ 6653}#
+ #{e1\ 6654}#
+ #{e2\ 6655}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene
guile))
- #{k\ 4545}#))
+ #{k\ 6653}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4542"
- "i4543"
- "i4544"))
+ #("i6650"
+ "i6651"
+ "i6652"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
- (cons #{e1\ 4546}#
- #{e2\ 4547}#))))
- #{tmp\ 4541}#)
- (let ((#{_\ 4551}# #{tmp\ 4534}#))
+ (cons #{e1\ 6654}#
+ #{e2\ 6655}#))))
+ #{tmp\ 6649}#)
+ (let ((#{_\ 6659}# #{tmp\ 6642}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4511}#
- #{clause\ 4531}#)))))))
- (let ((#{tmp\ 4553}#
- (#{f\ 4530}#
- (car #{clauses\ 4532}#)
- (cdr #{clauses\ 4532}#))))
- (let ((#{rest\ 4555}# #{tmp\ 4553}#))
- (let ((#{tmp\ 4556}# #{clause\ 4531}#))
- (let ((#{tmp\ 4557}#
+ #{x\ 6619}#
+ #{clause\ 6639}#)))))))
+ (let ((#{tmp\ 6661}#
+ (#{f\ 6638}#
+ (car #{clauses\ 6640}#)
+ (cdr #{clauses\ 6640}#))))
+ (let ((#{rest\ 6663}# #{tmp\ 6661}#))
+ (let ((#{tmp\ 6664}# #{clause\ 6639}#))
+ (let ((#{tmp\ 6665}#
($sc-dispatch
- #{tmp\ 4556}#
+ #{tmp\ 6664}#
'(each-any any . each-any))))
- (if #{tmp\ 4557}#
+ (if #{tmp\ 6665}#
(@apply
- (lambda (#{k\ 4561}#
- #{e1\ 4562}#
- #{e2\ 4563}#)
+ (lambda (#{k\ 6669}#
+ #{e1\ 6670}#
+ #{e2\ 6671}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i6662"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i6662"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i6662"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i6662"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene
guile))
- #{k\ 4561}#))
+ #{k\ 6669}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4558"
- "i4559"
- "i4560"))
+ #("i6666"
+ "i6667"
+ "i6668"))
#(ribcage
#(rest)
#((top))
- #("i4554"))
+ #("i6662"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4527"
- "i4528"
- "i4529"))
+ #("i6635"
+ "i6636"
+ "i6637"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4515"
- "i4516"
- "i4517"
- "i4518"))
+ #("i6623"
+ "i6624"
+ "i6625"
+ "i6626"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4512")))
+ #("i6620")))
(hygiene guile))
- (cons #{e1\ 4562}#
- #{e2\ 4563}#))
- #{rest\ 4555}#))
- #{tmp\ 4557}#)
- (let ((#{_\ 4567}# #{tmp\ 4556}#))
+ (cons #{e1\ 6670}#
+ #{e2\ 6671}#))
+ #{rest\ 6663}#))
+ #{tmp\ 6665}#)
+ (let ((#{_\ 6675}# #{tmp\ 6664}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4511}#
- #{clause\ 4531}#)))))))))))
- (begin (#{f\ 4530}# #{m1\ 4521}# #{m2\ 4522}#)))))
- (let ((#{body\ 4526}# #{tmp\ 4524}#))
+ #{x\ 6619}#
+ #{clause\ 6639}#)))))))))))
+ (begin (#{f\ 6638}# #{m1\ 6629}# #{m2\ 6630}#)))))
+ (let ((#{body\ 6634}# #{tmp\ 6632}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4525"))
+ #(ribcage #(body) #((top)) #("i6633"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4515" "i4516" "i4517" "i4518"))
+ #("i6623" "i6624" "i6625" "i6626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4512")))
+ #(ribcage #(x) #((top)) #("i6620")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i4525"))
+ #("i6633"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4515" "i4516" "i4517" "i4518"))
+ #("i6623" "i6624" "i6625" "i6626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4512")))
+ #(ribcage #(x) #((top)) #("i6620")))
(hygiene guile))
- #{e\ 4520}#))
- #{body\ 4526}#))))
- #{tmp\ 4514}#)
+ #{e\ 6628}#))
+ #{body\ 6634}#))))
+ #{tmp\ 6622}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4513}#)))))))
+ #{tmp\ 6621}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 4568}#)
- (if (procedure? #{proc\ 4568}#)
+ (lambda (#{proc\ 6676}#)
+ (if (procedure? #{proc\ 6676}#)
(begin
(letrec*
- ((#{trans\ 4571}#
- (lambda (#{x\ 4572}#)
- (#{proc\ 4568}# #{x\ 4572}#))))
+ ((#{trans\ 6679}#
+ (lambda (#{x\ 6680}#)
+ (#{proc\ 6676}# #{x\ 6680}#))))
(begin
(set-procedure-property!
- #{trans\ 4571}#
+ #{trans\ 6679}#
'variable-transformer
#t)
- #{trans\ 4571}#)))
+ #{trans\ 6679}#)))
(error "variable transformer not a procedure"
- #{proc\ 4568}#))))
+ #{proc\ 6676}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4574}#)
- (let ((#{tmp\ 4576}# #{x\ 4574}#))
- (let ((#{tmp\ 4577}#
- ($sc-dispatch #{tmp\ 4576}# (quote (any any)))))
- (if #{tmp\ 4577}#
+ (lambda (#{x\ 6682}#)
+ (let ((#{tmp\ 6684}# #{x\ 6682}#))
+ (let ((#{tmp\ 6685}#
+ ($sc-dispatch #{tmp\ 6684}# (quote (any any)))))
+ (if #{tmp\ 6685}#
(@apply
- (lambda (#{_\ 4580}# #{e\ 4581}#)
+ (lambda (#{_\ 6688}# #{e\ 6689}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'()
(list '#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'(#(syntax-object
identifier?
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
(#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
#(syntax-object
id
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
- #{e\ 4581}#))
- (list (cons #{_\ 4580}#
+ #{e\ 6689}#))
+ (list (cons #{_\ 6688}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
- (cons #{e\ 4581}#
+ (cons #{e\ 6689}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(_ e)
#((top) (top))
- #("i4578" "i4579"))
+ #("i6686" "i6687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile)))))))))
- #{tmp\ 4577}#)
- (let ((#{tmp\ 4582}#
+ #{tmp\ 6685}#)
+ (let ((#{tmp\ 6690}#
($sc-dispatch
- #{tmp\ 4576}#
+ #{tmp\ 6684}#
'(any (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp\ 4582}#
+ (if (if #{tmp\ 6690}#
(@apply
- (lambda (#{_\ 4589}#
- #{id\ 4590}#
- #{exp1\ 4591}#
- #{var\ 4592}#
- #{val\ 4593}#
- #{exp2\ 4594}#)
- (if (identifier? #{id\ 4590}#)
- (identifier? #{var\ 4592}#)
+ (lambda (#{_\ 6697}#
+ #{id\ 6698}#
+ #{exp1\ 6699}#
+ #{var\ 6700}#
+ #{val\ 6701}#
+ #{exp2\ 6702}#)
+ (if (identifier? #{id\ 6698}#)
+ (identifier? #{var\ 6700}#)
#f))
- #{tmp\ 4582}#)
+ #{tmp\ 6690}#)
#f)
(@apply
- (lambda (#{_\ 4603}#
- #{id\ 4604}#
- #{exp1\ 4605}#
- #{var\ 4606}#
- #{val\ 4607}#
- #{exp2\ 4608}#)
+ (lambda (#{_\ 6711}#
+ #{id\ 6712}#
+ #{exp1\ 6713}#
+ #{var\ 6714}#
+ #{val\ 6715}#
+ #{exp2\ 6716}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
(list '#(syntax-object
lambda
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(_ id exp1 var val exp2)
#((top) (top) (top) (top) (top) (top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'#(syntax-object
x
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile))
'(#(syntax-object
set!
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4575")))
+ #(ribcage #(x) #((top)) #("i6683")))
(hygiene guile)))
(list (list '#(syntax-object
set!
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
- #{var\ 4606}#
- #{val\ 4607}#)
+ #{var\ 6714}#
+ #{val\ 6715}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
- #{exp2\ 4608}#))
- (list (cons #{id\ 4604}#
+ #{exp2\ 6716}#))
+ (list (cons #{id\ 6712}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
- (cons #{exp1\ 4605}#
+ (cons #{exp1\ 6713}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene
guile))))))
- (list #{id\ 4604}#
+ (list #{id\ 6712}#
(list '#(syntax-object
identifier?
((top)
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
- #{id\ 4604}#))
+ #{id\ 6712}#))
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4597"
- "i4598"
- "i4599"
- "i4600"
- "i4601"
- "i4602"))
+ #("i6705"
+ "i6706"
+ "i6707"
+ "i6708"
+ "i6709"
+ "i6710"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4575")))
+ #("i6683")))
(hygiene guile))
- #{exp1\ 4605}#))))))
- #{tmp\ 4582}#)
+ #{exp1\ 6713}#))))))
+ #{tmp\ 6690}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4576}#)))))))))
+ #{tmp\ 6684}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4609}#)
- (let ((#{tmp\ 4611}# #{x\ 4609}#))
- (let ((#{tmp\ 4612}#
+ (lambda (#{x\ 6717}#)
+ (let ((#{tmp\ 6719}# #{x\ 6717}#))
+ (let ((#{tmp\ 6720}#
($sc-dispatch
- #{tmp\ 4611}#
+ #{tmp\ 6719}#
'(any (any . any) any . each-any))))
- (if #{tmp\ 4612}#
+ (if #{tmp\ 6720}#
(@apply
- (lambda (#{_\ 4618}#
- #{id\ 4619}#
- #{args\ 4620}#
- #{b0\ 4621}#
- #{b1\ 4622}#)
+ (lambda (#{_\ 6726}#
+ #{id\ 6727}#
+ #{args\ 6728}#
+ #{b0\ 6729}#
+ #{b1\ 6730}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4613" "i4614" "i4615" "i4616" "i4617"))
+ #("i6721" "i6722" "i6723" "i6724" "i6725"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))
- #{id\ 4619}#
+ #{id\ 6727}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4613" "i4614" "i4615" "i4616" "i4617"))
+ #("i6721" "i6722" "i6723" "i6724" "i6725"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))
- (cons #{args\ 4620}#
- (cons #{b0\ 4621}# #{b1\ 4622}#)))))
- #{tmp\ 4612}#)
- (let ((#{tmp\ 4624}#
+ (cons #{args\ 6728}#
+ (cons #{b0\ 6729}# #{b1\ 6730}#)))))
+ #{tmp\ 6720}#)
+ (let ((#{tmp\ 6732}#
($sc-dispatch
- #{tmp\ 4611}#
+ #{tmp\ 6719}#
'(any any any))))
- (if (if #{tmp\ 4624}#
+ (if (if #{tmp\ 6732}#
(@apply
- (lambda (#{_\ 4628}# #{id\ 4629}# #{val\ 4630}#)
+ (lambda (#{_\ 6736}# #{id\ 6737}# #{val\ 6738}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4625" "i4626" "i4627"))
+ #("i6733" "i6734" "i6735"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))))
- #{tmp\ 4624}#)
+ #{tmp\ 6732}#)
#f)
(@apply
- (lambda (#{_\ 4634}# #{id\ 4635}# #{val\ 4636}#)
+ (lambda (#{_\ 6742}# #{id\ 6743}# #{val\ 6744}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4631" "i4632" "i4633"))
+ #("i6739" "i6740" "i6741"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4610")))
+ #(ribcage #(x) #((top)) #("i6718")))
(hygiene guile))
- #{id\ 4635}#
- #{val\ 4636}#))
- #{tmp\ 4624}#)
+ #{id\ 6743}#
+ #{val\ 6744}#))
+ #{tmp\ 6732}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4611}#)))))))))
+ #{tmp\ 6719}#)))))))))
HCoop / bpt / guile.git / commitdiff