(if #f #f)
(letrec*
- ((#{and-map*\ 37}#
- (lambda (#{f\ 201}# #{first\ 202}# . #{rest\ 203}#)
+ ((#{and-map*\ 38}#
+ (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#)
(begin
- (let ((#{t\ 209}# (null? #{first\ 202}#)))
- (if #{t\ 209}#
- #{t\ 209}#
- (if (null? #{rest\ 203}#)
+ (let ((#{t\ 210}# (null? #{first\ 203}#)))
+ (if #{t\ 210}#
+ #{t\ 210}#
+ (if (null? #{rest\ 204}#)
(letrec*
- ((#{andmap\ 213}#
- (lambda (#{first\ 214}#)
+ ((#{andmap\ 214}#
+ (lambda (#{first\ 215}#)
(begin
- (let ((#{x\ 217}# (car #{first\ 214}#))
- (#{first\ 218}# (cdr #{first\ 214}#)))
- (if (null? #{first\ 218}#)
- (#{f\ 201}# #{x\ 217}#)
- (if (#{f\ 201}# #{x\ 217}#)
- (#{andmap\ 213}# #{first\ 218}#)
+ (let ((#{x\ 218}# (car #{first\ 215}#))
+ (#{first\ 219}# (cdr #{first\ 215}#)))
+ (if (null? #{first\ 219}#)
+ (#{f\ 202}# #{x\ 218}#)
+ (if (#{f\ 202}# #{x\ 218}#)
+ (#{andmap\ 214}# #{first\ 219}#)
#f)))))))
- (begin (#{andmap\ 213}# #{first\ 202}#)))
+ (begin (#{andmap\ 214}# #{first\ 203}#)))
(letrec*
- ((#{andmap\ 224}#
- (lambda (#{first\ 225}# #{rest\ 226}#)
+ ((#{andmap\ 225}#
+ (lambda (#{first\ 226}# #{rest\ 227}#)
(begin
- (let ((#{x\ 231}# (car #{first\ 225}#))
- (#{xr\ 232}# (map car #{rest\ 226}#))
- (#{first\ 233}# (cdr #{first\ 225}#))
- (#{rest\ 234}# (map cdr #{rest\ 226}#)))
- (if (null? #{first\ 233}#)
- (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#)
- (if (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#)
- (#{andmap\ 224}# #{first\ 233}# #{rest\ 234}#)
+ (let ((#{x\ 232}# (car #{first\ 226}#))
+ (#{xr\ 233}# (map car #{rest\ 227}#))
+ (#{first\ 234}# (cdr #{first\ 226}#))
+ (#{rest\ 235}# (map cdr #{rest\ 227}#)))
+ (if (null? #{first\ 234}#)
+ (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#)
+ (if (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#)
+ (#{andmap\ 225}# #{first\ 234}# #{rest\ 235}#)
#f)))))))
(begin
- (#{andmap\ 224}# #{first\ 202}# #{rest\ 203}#))))))))))
+ (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#))))))))))
(begin
- (let ((#{make-primitive-ref\ 243}# (if #f #f))
- (#{fx+\ 282}# (if #f #f))
- (#{fx-\ 284}# (if #f #f))
- (#{fx=\ 286}# (if #f #f))
- (#{fx<\ 288}# (if #f #f))
- (#{set-syntax-object-expression!\ 353}#
+ (let ((#{make-primitive-ref\ 244}# (if #f #f))
+ (#{fx+\ 283}# (if #f #f))
+ (#{fx-\ 285}# (if #f #f))
+ (#{fx=\ 287}# (if #f #f))
+ (#{fx<\ 289}# (if #f #f))
+ (#{set-syntax-object-expression!\ 354}#
(if #f #f))
- (#{set-syntax-object-wrap!\ 355}# (if #f #f))
- (#{set-syntax-object-module!\ 357}# (if #f #f))
- (#{ribcage?\ 399}# (if #f #f)))
+ (#{set-syntax-object-wrap!\ 356}# (if #f #f))
+ (#{set-syntax-object-module!\ 358}# (if #f #f))
+ (#{ribcage?\ 400}# (if #f #f)))
(letrec*
- ((#{make-void\ 239}#
- (lambda (#{src\ 751}#)
+ ((#{make-void\ 240}#
+ (lambda (#{src\ 750}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src\ 751}#)))
- (#{make-const\ 241}#
- (lambda (#{src\ 753}# #{exp\ 754}#)
+ #{src\ 750}#)))
+ (#{make-const\ 242}#
+ (lambda (#{src\ 752}# #{exp\ 753}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src\ 753}#
- #{exp\ 754}#)))
- (#{make-lexical-ref\ 245}#
- (lambda (#{src\ 761}# #{name\ 762}# #{gensym\ 763}#)
+ #{src\ 752}#
+ #{exp\ 753}#)))
+ (#{make-lexical-ref\ 246}#
+ (lambda (#{src\ 760}# #{name\ 761}# #{gensym\ 762}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src\ 761}#
- #{name\ 762}#
- #{gensym\ 763}#)))
- (#{make-lexical-set\ 247}#
- (lambda (#{src\ 767}#
- #{name\ 768}#
- #{gensym\ 769}#
- #{exp\ 770}#)
+ #{src\ 760}#
+ #{name\ 761}#
+ #{gensym\ 762}#)))
+ (#{make-lexical-set\ 248}#
+ (lambda (#{src\ 766}#
+ #{name\ 767}#
+ #{gensym\ 768}#
+ #{exp\ 769}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src\ 767}#
- #{name\ 768}#
- #{gensym\ 769}#
- #{exp\ 770}#)))
- (#{make-module-ref\ 249}#
- (lambda (#{src\ 775}#
- #{mod\ 776}#
- #{name\ 777}#
- #{public?\ 778}#)
+ #{src\ 766}#
+ #{name\ 767}#
+ #{gensym\ 768}#
+ #{exp\ 769}#)))
+ (#{make-module-ref\ 250}#
+ (lambda (#{src\ 774}#
+ #{mod\ 775}#
+ #{name\ 776}#
+ #{public?\ 777}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src\ 775}#
- #{mod\ 776}#
- #{name\ 777}#
- #{public?\ 778}#)))
- (#{make-module-set\ 251}#
- (lambda (#{src\ 783}#
- #{mod\ 784}#
- #{name\ 785}#
- #{public?\ 786}#
- #{exp\ 787}#)
+ #{src\ 774}#
+ #{mod\ 775}#
+ #{name\ 776}#
+ #{public?\ 777}#)))
+ (#{make-module-set\ 252}#
+ (lambda (#{src\ 782}#
+ #{mod\ 783}#
+ #{name\ 784}#
+ #{public?\ 785}#
+ #{exp\ 786}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src\ 783}#
- #{mod\ 784}#
- #{name\ 785}#
- #{public?\ 786}#
- #{exp\ 787}#)))
- (#{make-toplevel-ref\ 253}#
- (lambda (#{src\ 793}# #{name\ 794}#)
+ #{src\ 782}#
+ #{mod\ 783}#
+ #{name\ 784}#
+ #{public?\ 785}#
+ #{exp\ 786}#)))
+ (#{make-toplevel-ref\ 254}#
+ (lambda (#{src\ 792}# #{name\ 793}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src\ 793}#
- #{name\ 794}#)))
- (#{make-toplevel-set\ 255}#
- (lambda (#{src\ 797}# #{name\ 798}# #{exp\ 799}#)
+ #{src\ 792}#
+ #{name\ 793}#)))
+ (#{make-toplevel-set\ 256}#
+ (lambda (#{src\ 796}# #{name\ 797}# #{exp\ 798}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src\ 797}#
- #{name\ 798}#
- #{exp\ 799}#)))
- (#{make-toplevel-define\ 257}#
- (lambda (#{src\ 803}# #{name\ 804}# #{exp\ 805}#)
+ #{src\ 796}#
+ #{name\ 797}#
+ #{exp\ 798}#)))
+ (#{make-toplevel-define\ 258}#
+ (lambda (#{src\ 802}# #{name\ 803}# #{exp\ 804}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src\ 803}#
- #{name\ 804}#
- #{exp\ 805}#)))
- (#{make-conditional\ 259}#
- (lambda (#{src\ 809}#
- #{test\ 810}#
- #{consequent\ 811}#
- #{alternate\ 812}#)
+ #{src\ 802}#
+ #{name\ 803}#
+ #{exp\ 804}#)))
+ (#{make-conditional\ 260}#
+ (lambda (#{src\ 808}#
+ #{test\ 809}#
+ #{consequent\ 810}#
+ #{alternate\ 811}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src\ 809}#
- #{test\ 810}#
- #{consequent\ 811}#
- #{alternate\ 812}#)))
- (#{make-application\ 261}#
- (lambda (#{src\ 817}# #{proc\ 818}# #{args\ 819}#)
+ #{src\ 808}#
+ #{test\ 809}#
+ #{consequent\ 810}#
+ #{alternate\ 811}#)))
+ (#{make-application\ 262}#
+ (lambda (#{src\ 816}# #{proc\ 817}# #{args\ 818}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src\ 817}#
- #{proc\ 818}#
- #{args\ 819}#)))
- (#{make-sequence\ 263}#
- (lambda (#{src\ 823}# #{exps\ 824}#)
+ #{src\ 816}#
+ #{proc\ 817}#
+ #{args\ 818}#)))
+ (#{make-sequence\ 264}#
+ (lambda (#{src\ 822}# #{exps\ 823}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src\ 823}#
- #{exps\ 824}#)))
- (#{make-lambda\ 265}#
- (lambda (#{src\ 827}# #{meta\ 828}# #{body\ 829}#)
+ #{src\ 822}#
+ #{exps\ 823}#)))
+ (#{make-lambda\ 266}#
+ (lambda (#{src\ 826}# #{meta\ 827}# #{body\ 828}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src\ 827}#
- #{meta\ 828}#
- #{body\ 829}#)))
- (#{make-lambda-case\ 267}#
- (lambda (#{src\ 833}#
- #{req\ 834}#
- #{opt\ 835}#
- #{rest\ 836}#
- #{kw\ 837}#
- #{inits\ 838}#
- #{gensyms\ 839}#
- #{body\ 840}#
- #{alternate\ 841}#)
+ #{src\ 826}#
+ #{meta\ 827}#
+ #{body\ 828}#)))
+ (#{make-lambda-case\ 268}#
+ (lambda (#{src\ 832}#
+ #{req\ 833}#
+ #{opt\ 834}#
+ #{rest\ 835}#
+ #{kw\ 836}#
+ #{inits\ 837}#
+ #{gensyms\ 838}#
+ #{body\ 839}#
+ #{alternate\ 840}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src\ 833}#
- #{req\ 834}#
- #{opt\ 835}#
- #{rest\ 836}#
- #{kw\ 837}#
- #{inits\ 838}#
- #{gensyms\ 839}#
- #{body\ 840}#
- #{alternate\ 841}#)))
- (#{make-let\ 269}#
- (lambda (#{src\ 851}#
- #{names\ 852}#
- #{gensyms\ 853}#
- #{vals\ 854}#
- #{body\ 855}#)
+ #{src\ 832}#
+ #{req\ 833}#
+ #{opt\ 834}#
+ #{rest\ 835}#
+ #{kw\ 836}#
+ #{inits\ 837}#
+ #{gensyms\ 838}#
+ #{body\ 839}#
+ #{alternate\ 840}#)))
+ (#{make-let\ 270}#
+ (lambda (#{src\ 850}#
+ #{names\ 851}#
+ #{gensyms\ 852}#
+ #{vals\ 853}#
+ #{body\ 854}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src\ 851}#
- #{names\ 852}#
- #{gensyms\ 853}#
- #{vals\ 854}#
- #{body\ 855}#)))
- (#{make-letrec\ 271}#
- (lambda (#{src\ 861}#
- #{in-order?\ 862}#
- #{names\ 863}#
- #{gensyms\ 864}#
- #{vals\ 865}#
- #{body\ 866}#)
+ #{src\ 850}#
+ #{names\ 851}#
+ #{gensyms\ 852}#
+ #{vals\ 853}#
+ #{body\ 854}#)))
+ (#{make-letrec\ 272}#
+ (lambda (#{src\ 860}#
+ #{in-order?\ 861}#
+ #{names\ 862}#
+ #{gensyms\ 863}#
+ #{vals\ 864}#
+ #{body\ 865}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src\ 861}#
- #{in-order?\ 862}#
- #{names\ 863}#
- #{gensyms\ 864}#
- #{vals\ 865}#
- #{body\ 866}#)))
- (#{make-dynlet\ 273}#
- (lambda (#{src\ 873}#
- #{fluids\ 874}#
- #{vals\ 875}#
- #{body\ 876}#)
+ #{src\ 860}#
+ #{in-order?\ 861}#
+ #{names\ 862}#
+ #{gensyms\ 863}#
+ #{vals\ 864}#
+ #{body\ 865}#)))
+ (#{make-dynlet\ 274}#
+ (lambda (#{src\ 872}#
+ #{fluids\ 873}#
+ #{vals\ 874}#
+ #{body\ 875}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src\ 873}#
- #{fluids\ 874}#
- #{vals\ 875}#
- #{body\ 876}#)))
- (#{lambda?\ 276}#
- (lambda (#{x\ 881}#)
- (if (struct? #{x\ 881}#)
- (eq? (struct-vtable #{x\ 881}#)
+ #{src\ 872}#
+ #{fluids\ 873}#
+ #{vals\ 874}#
+ #{body\ 875}#)))
+ (#{lambda?\ 277}#
+ (lambda (#{x\ 880}#)
+ (if (struct? #{x\ 880}#)
+ (eq? (struct-vtable #{x\ 880}#)
(vector-ref %expanded-vtables 13))
#f)))
- (#{lambda-meta\ 278}#
- (lambda (#{x\ 885}#) (struct-ref #{x\ 885}# 1)))
- (#{set-lambda-meta!\ 280}#
- (lambda (#{x\ 887}# #{v\ 888}#)
- (struct-set! #{x\ 887}# 1 #{v\ 888}#)))
- (#{top-level-eval-hook\ 290}#
- (lambda (#{x\ 891}# #{mod\ 892}#)
- (primitive-eval #{x\ 891}#)))
- (#{local-eval-hook\ 292}#
- (lambda (#{x\ 895}# #{mod\ 896}#)
- (primitive-eval #{x\ 895}#)))
- (#{put-global-definition-hook\ 295}#
- (lambda (#{symbol\ 899}# #{type\ 900}# #{val\ 901}#)
+ (#{lambda-meta\ 279}#
+ (lambda (#{x\ 884}#) (struct-ref #{x\ 884}# 1)))
+ (#{set-lambda-meta!\ 281}#
+ (lambda (#{x\ 886}# #{v\ 887}#)
+ (struct-set! #{x\ 886}# 1 #{v\ 887}#)))
+ (#{top-level-eval-hook\ 291}#
+ (lambda (#{x\ 890}# #{mod\ 891}#)
+ (primitive-eval #{x\ 890}#)))
+ (#{local-eval-hook\ 293}#
+ (lambda (#{x\ 894}# #{mod\ 895}#)
+ (primitive-eval #{x\ 894}#)))
+ (#{put-global-definition-hook\ 296}#
+ (lambda (#{symbol\ 898}# #{type\ 899}# #{val\ 900}#)
(module-define!
(current-module)
- #{symbol\ 899}#
+ #{symbol\ 898}#
(make-syntax-transformer
- #{symbol\ 899}#
- #{type\ 900}#
- #{val\ 901}#))))
- (#{get-global-definition-hook\ 297}#
- (lambda (#{symbol\ 905}# #{module\ 906}#)
+ #{symbol\ 898}#
+ #{type\ 899}#
+ #{val\ 900}#))))
+ (#{get-global-definition-hook\ 298}#
+ (lambda (#{symbol\ 904}# #{module\ 905}#)
(begin
- (if (if (not #{module\ 906}#) (current-module) #f)
+ (if (if (not #{module\ 905}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 905}#))
+ #{symbol\ 904}#))
(begin
- (let ((#{v\ 912}# (module-variable
- (if #{module\ 906}#
- (resolve-module (cdr #{module\ 906}#))
+ (let ((#{v\ 911}# (module-variable
+ (if #{module\ 905}#
+ (resolve-module (cdr #{module\ 905}#))
(current-module))
- #{symbol\ 905}#)))
- (if #{v\ 912}#
- (if (variable-bound? #{v\ 912}#)
+ #{symbol\ 904}#)))
+ (if #{v\ 911}#
+ (if (variable-bound? #{v\ 911}#)
(begin
- (let ((#{val\ 917}# (variable-ref #{v\ 912}#)))
- (if (macro? #{val\ 917}#)
- (if (macro-type #{val\ 917}#)
- (cons (macro-type #{val\ 917}#)
- (macro-binding #{val\ 917}#))
+ (let ((#{val\ 916}# (variable-ref #{v\ 911}#)))
+ (if (macro? #{val\ 916}#)
+ (if (macro-type #{val\ 916}#)
+ (cons (macro-type #{val\ 916}#)
+ (macro-binding #{val\ 916}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source\ 299}#
- (lambda (#{e\ 921}# #{s\ 922}#)
+ (#{decorate-source\ 300}#
+ (lambda (#{e\ 920}# #{s\ 921}#)
(begin
- (if (if (pair? #{e\ 921}#) #{s\ 922}# #f)
- (set-source-properties! #{e\ 921}# #{s\ 922}#))
- #{e\ 921}#)))
- (#{maybe-name-value!\ 301}#
- (lambda (#{name\ 927}# #{val\ 928}#)
- (if (#{lambda?\ 276}# #{val\ 928}#)
+ (if (if (pair? #{e\ 920}#) #{s\ 921}# #f)
+ (set-source-properties! #{e\ 920}# #{s\ 921}#))
+ #{e\ 920}#)))
+ (#{maybe-name-value!\ 302}#
+ (lambda (#{name\ 926}# #{val\ 927}#)
+ (if (#{lambda?\ 277}# #{val\ 927}#)
(begin
- (let ((#{meta\ 932}#
- (#{lambda-meta\ 278}# #{val\ 928}#)))
- (if (not (assq 'name #{meta\ 932}#))
- (#{set-lambda-meta!\ 280}#
- #{val\ 928}#
- (cons (cons 'name #{name\ 927}#) #{meta\ 932}#))))))))
- (#{build-void\ 303}#
- (lambda (#{source\ 933}#)
- (#{make-void\ 239}# #{source\ 933}#)))
- (#{build-application\ 305}#
- (lambda (#{source\ 935}#
- #{fun-exp\ 936}#
- #{arg-exps\ 937}#)
- (#{make-application\ 261}#
- #{source\ 935}#
- #{fun-exp\ 936}#
- #{arg-exps\ 937}#)))
- (#{build-conditional\ 307}#
- (lambda (#{source\ 941}#
- #{test-exp\ 942}#
- #{then-exp\ 943}#
- #{else-exp\ 944}#)
- (#{make-conditional\ 259}#
- #{source\ 941}#
- #{test-exp\ 942}#
- #{then-exp\ 943}#
- #{else-exp\ 944}#)))
- (#{build-dynlet\ 309}#
- (lambda (#{source\ 949}#
- #{fluids\ 950}#
- #{vals\ 951}#
- #{body\ 952}#)
- (#{make-dynlet\ 273}#
- #{source\ 949}#
- #{fluids\ 950}#
- #{vals\ 951}#
- #{body\ 952}#)))
- (#{build-lexical-reference\ 311}#
- (lambda (#{type\ 957}#
- #{source\ 958}#
- #{name\ 959}#
- #{var\ 960}#)
- (#{make-lexical-ref\ 245}#
- #{source\ 958}#
- #{name\ 959}#
- #{var\ 960}#)))
- (#{build-lexical-assignment\ 313}#
- (lambda (#{source\ 965}#
- #{name\ 966}#
- #{var\ 967}#
- #{exp\ 968}#)
+ (let ((#{meta\ 931}#
+ (#{lambda-meta\ 279}# #{val\ 927}#)))
+ (if (not (assq 'name #{meta\ 931}#))
+ (#{set-lambda-meta!\ 281}#
+ #{val\ 927}#
+ (cons (cons 'name #{name\ 926}#) #{meta\ 931}#))))))))
+ (#{build-void\ 304}#
+ (lambda (#{source\ 932}#)
+ (#{make-void\ 240}# #{source\ 932}#)))
+ (#{build-application\ 306}#
+ (lambda (#{source\ 934}#
+ #{fun-exp\ 935}#
+ #{arg-exps\ 936}#)
+ (#{make-application\ 262}#
+ #{source\ 934}#
+ #{fun-exp\ 935}#
+ #{arg-exps\ 936}#)))
+ (#{build-conditional\ 308}#
+ (lambda (#{source\ 940}#
+ #{test-exp\ 941}#
+ #{then-exp\ 942}#
+ #{else-exp\ 943}#)
+ (#{make-conditional\ 260}#
+ #{source\ 940}#
+ #{test-exp\ 941}#
+ #{then-exp\ 942}#
+ #{else-exp\ 943}#)))
+ (#{build-dynlet\ 310}#
+ (lambda (#{source\ 948}#
+ #{fluids\ 949}#
+ #{vals\ 950}#
+ #{body\ 951}#)
+ (#{make-dynlet\ 274}#
+ #{source\ 948}#
+ #{fluids\ 949}#
+ #{vals\ 950}#
+ #{body\ 951}#)))
+ (#{build-lexical-reference\ 312}#
+ (lambda (#{type\ 956}#
+ #{source\ 957}#
+ #{name\ 958}#
+ #{var\ 959}#)
+ (#{make-lexical-ref\ 246}#
+ #{source\ 957}#
+ #{name\ 958}#
+ #{var\ 959}#)))
+ (#{build-lexical-assignment\ 314}#
+ (lambda (#{source\ 964}#
+ #{name\ 965}#
+ #{var\ 966}#
+ #{exp\ 967}#)
(begin
- (#{maybe-name-value!\ 301}#
- #{name\ 966}#
- #{exp\ 968}#)
- (#{make-lexical-set\ 247}#
- #{source\ 965}#
- #{name\ 966}#
- #{var\ 967}#
- #{exp\ 968}#))))
- (#{analyze-variable\ 315}#
- (lambda (#{mod\ 973}#
- #{var\ 974}#
- #{modref-cont\ 975}#
- #{bare-cont\ 976}#)
- (if (not #{mod\ 973}#)
- (#{bare-cont\ 976}# #{var\ 974}#)
+ (#{maybe-name-value!\ 302}#
+ #{name\ 965}#
+ #{exp\ 967}#)
+ (#{make-lexical-set\ 248}#
+ #{source\ 964}#
+ #{name\ 965}#
+ #{var\ 966}#
+ #{exp\ 967}#))))
+ (#{analyze-variable\ 316}#
+ (lambda (#{mod\ 972}#
+ #{var\ 973}#
+ #{modref-cont\ 974}#
+ #{bare-cont\ 975}#)
+ (if (not #{mod\ 972}#)
+ (#{bare-cont\ 975}# #{var\ 973}#)
(begin
- (let ((#{kind\ 983}# (car #{mod\ 973}#))
- (#{mod\ 984}# (cdr #{mod\ 973}#)))
- (if (eqv? #{kind\ 983}# 'public)
- (#{modref-cont\ 975}#
- #{mod\ 984}#
- #{var\ 974}#
+ (let ((#{kind\ 982}# (car #{mod\ 972}#))
+ (#{mod\ 983}# (cdr #{mod\ 972}#)))
+ (if (eqv? #{kind\ 982}# 'public)
+ (#{modref-cont\ 974}#
+ #{mod\ 983}#
+ #{var\ 973}#
#t)
- (if (eqv? #{kind\ 983}# 'private)
+ (if (eqv? #{kind\ 982}# 'private)
(if (not (equal?
- #{mod\ 984}#
+ #{mod\ 983}#
(module-name (current-module))))
- (#{modref-cont\ 975}#
- #{mod\ 984}#
- #{var\ 974}#
+ (#{modref-cont\ 974}#
+ #{mod\ 983}#
+ #{var\ 973}#
#f)
- (#{bare-cont\ 976}# #{var\ 974}#))
- (if (eqv? #{kind\ 983}# 'bare)
- (#{bare-cont\ 976}# #{var\ 974}#)
- (if (eqv? #{kind\ 983}# 'hygiene)
+ (#{bare-cont\ 975}# #{var\ 973}#))
+ (if (eqv? #{kind\ 982}# 'bare)
+ (#{bare-cont\ 975}# #{var\ 973}#)
+ (if (eqv? #{kind\ 982}# 'hygiene)
(if (if (not (equal?
- #{mod\ 984}#
+ #{mod\ 983}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 984}#)
- #{var\ 974}#)
+ (resolve-module #{mod\ 983}#)
+ #{var\ 973}#)
#f)
- (#{modref-cont\ 975}#
- #{mod\ 984}#
- #{var\ 974}#
+ (#{modref-cont\ 974}#
+ #{mod\ 983}#
+ #{var\ 973}#
#f)
- (#{bare-cont\ 976}# #{var\ 974}#))
+ (#{bare-cont\ 975}# #{var\ 973}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 974}#
- #{mod\ 984}#))))))))))
- (#{build-global-reference\ 317}#
- (lambda (#{source\ 992}# #{var\ 993}# #{mod\ 994}#)
- (#{analyze-variable\ 315}#
- #{mod\ 994}#
- #{var\ 993}#
- (lambda (#{mod\ 998}# #{var\ 999}# #{public?\ 1000}#)
- (#{make-module-ref\ 249}#
- #{source\ 992}#
- #{mod\ 998}#
- #{var\ 999}#
- #{public?\ 1000}#))
- (lambda (#{var\ 1004}#)
- (#{make-toplevel-ref\ 253}#
- #{source\ 992}#
- #{var\ 1004}#)))))
- (#{build-global-assignment\ 319}#
- (lambda (#{source\ 1006}#
- #{var\ 1007}#
- #{exp\ 1008}#
- #{mod\ 1009}#)
+ #{var\ 973}#
+ #{mod\ 983}#))))))))))
+ (#{build-global-reference\ 318}#
+ (lambda (#{source\ 991}# #{var\ 992}# #{mod\ 993}#)
+ (#{analyze-variable\ 316}#
+ #{mod\ 993}#
+ #{var\ 992}#
+ (lambda (#{mod\ 997}# #{var\ 998}# #{public?\ 999}#)
+ (#{make-module-ref\ 250}#
+ #{source\ 991}#
+ #{mod\ 997}#
+ #{var\ 998}#
+ #{public?\ 999}#))
+ (lambda (#{var\ 1003}#)
+ (#{make-toplevel-ref\ 254}#
+ #{source\ 991}#
+ #{var\ 1003}#)))))
+ (#{build-global-assignment\ 320}#
+ (lambda (#{source\ 1005}#
+ #{var\ 1006}#
+ #{exp\ 1007}#
+ #{mod\ 1008}#)
(begin
- (#{maybe-name-value!\ 301}#
- #{var\ 1007}#
- #{exp\ 1008}#)
- (#{analyze-variable\ 315}#
- #{mod\ 1009}#
- #{var\ 1007}#
- (lambda (#{mod\ 1014}# #{var\ 1015}# #{public?\ 1016}#)
- (#{make-module-set\ 251}#
- #{source\ 1006}#
- #{mod\ 1014}#
- #{var\ 1015}#
- #{public?\ 1016}#
- #{exp\ 1008}#))
- (lambda (#{var\ 1020}#)
- (#{make-toplevel-set\ 255}#
- #{source\ 1006}#
- #{var\ 1020}#
- #{exp\ 1008}#))))))
- (#{build-global-definition\ 321}#
- (lambda (#{source\ 1022}# #{var\ 1023}# #{exp\ 1024}#)
+ (#{maybe-name-value!\ 302}#
+ #{var\ 1006}#
+ #{exp\ 1007}#)
+ (#{analyze-variable\ 316}#
+ #{mod\ 1008}#
+ #{var\ 1006}#
+ (lambda (#{mod\ 1013}# #{var\ 1014}# #{public?\ 1015}#)
+ (#{make-module-set\ 252}#
+ #{source\ 1005}#
+ #{mod\ 1013}#
+ #{var\ 1014}#
+ #{public?\ 1015}#
+ #{exp\ 1007}#))
+ (lambda (#{var\ 1019}#)
+ (#{make-toplevel-set\ 256}#
+ #{source\ 1005}#
+ #{var\ 1019}#
+ #{exp\ 1007}#))))))
+ (#{build-global-definition\ 322}#
+ (lambda (#{source\ 1021}# #{var\ 1022}# #{exp\ 1023}#)
(begin
- (#{maybe-name-value!\ 301}#
- #{var\ 1023}#
- #{exp\ 1024}#)
- (#{make-toplevel-define\ 257}#
- #{source\ 1022}#
- #{var\ 1023}#
- #{exp\ 1024}#))))
- (#{build-simple-lambda\ 323}#
- (lambda (#{src\ 1028}#
- #{req\ 1029}#
- #{rest\ 1030}#
- #{vars\ 1031}#
- #{meta\ 1032}#
- #{exp\ 1033}#)
- (#{make-lambda\ 265}#
- #{src\ 1028}#
- #{meta\ 1032}#
- (#{make-lambda-case\ 267}#
- #{src\ 1028}#
- #{req\ 1029}#
+ (#{maybe-name-value!\ 302}#
+ #{var\ 1022}#
+ #{exp\ 1023}#)
+ (#{make-toplevel-define\ 258}#
+ #{source\ 1021}#
+ #{var\ 1022}#
+ #{exp\ 1023}#))))
+ (#{build-simple-lambda\ 324}#
+ (lambda (#{src\ 1027}#
+ #{req\ 1028}#
+ #{rest\ 1029}#
+ #{vars\ 1030}#
+ #{meta\ 1031}#
+ #{exp\ 1032}#)
+ (#{make-lambda\ 266}#
+ #{src\ 1027}#
+ #{meta\ 1031}#
+ (#{make-lambda-case\ 268}#
+ #{src\ 1027}#
+ #{req\ 1028}#
#f
- #{rest\ 1030}#
+ #{rest\ 1029}#
#f
'()
- #{vars\ 1031}#
- #{exp\ 1033}#
+ #{vars\ 1030}#
+ #{exp\ 1032}#
#f))))
- (#{build-case-lambda\ 325}#
- (lambda (#{src\ 1040}# #{meta\ 1041}# #{body\ 1042}#)
- (#{make-lambda\ 265}#
- #{src\ 1040}#
- #{meta\ 1041}#
- #{body\ 1042}#)))
- (#{build-lambda-case\ 327}#
- (lambda (#{src\ 1046}#
- #{req\ 1047}#
- #{opt\ 1048}#
- #{rest\ 1049}#
- #{kw\ 1050}#
- #{inits\ 1051}#
- #{vars\ 1052}#
- #{body\ 1053}#
- #{else-case\ 1054}#)
- (#{make-lambda-case\ 267}#
- #{src\ 1046}#
- #{req\ 1047}#
- #{opt\ 1048}#
- #{rest\ 1049}#
- #{kw\ 1050}#
- #{inits\ 1051}#
- #{vars\ 1052}#
- #{body\ 1053}#
- #{else-case\ 1054}#)))
- (#{build-primref\ 329}#
- (lambda (#{src\ 1064}# #{name\ 1065}#)
+ (#{build-case-lambda\ 326}#
+ (lambda (#{src\ 1039}# #{meta\ 1040}# #{body\ 1041}#)
+ (#{make-lambda\ 266}#
+ #{src\ 1039}#
+ #{meta\ 1040}#
+ #{body\ 1041}#)))
+ (#{build-lambda-case\ 328}#
+ (lambda (#{src\ 1045}#
+ #{req\ 1046}#
+ #{opt\ 1047}#
+ #{rest\ 1048}#
+ #{kw\ 1049}#
+ #{inits\ 1050}#
+ #{vars\ 1051}#
+ #{body\ 1052}#
+ #{else-case\ 1053}#)
+ (#{make-lambda-case\ 268}#
+ #{src\ 1045}#
+ #{req\ 1046}#
+ #{opt\ 1047}#
+ #{rest\ 1048}#
+ #{kw\ 1049}#
+ #{inits\ 1050}#
+ #{vars\ 1051}#
+ #{body\ 1052}#
+ #{else-case\ 1053}#)))
+ (#{build-primref\ 330}#
+ (lambda (#{src\ 1063}# #{name\ 1064}#)
(if (equal? (module-name (current-module)) '(guile))
- (#{make-toplevel-ref\ 253}#
- #{src\ 1064}#
- #{name\ 1065}#)
- (#{make-module-ref\ 249}#
- #{src\ 1064}#
+ (#{make-toplevel-ref\ 254}#
+ #{src\ 1063}#
+ #{name\ 1064}#)
+ (#{make-module-ref\ 250}#
+ #{src\ 1063}#
'(guile)
- #{name\ 1065}#
+ #{name\ 1064}#
#f))))
- (#{build-data\ 331}#
- (lambda (#{src\ 1068}# #{exp\ 1069}#)
- (#{make-const\ 241}# #{src\ 1068}# #{exp\ 1069}#)))
- (#{build-sequence\ 333}#
- (lambda (#{src\ 1072}# #{exps\ 1073}#)
- (if (null? (cdr #{exps\ 1073}#))
- (car #{exps\ 1073}#)
- (#{make-sequence\ 263}#
- #{src\ 1072}#
- #{exps\ 1073}#))))
- (#{build-let\ 335}#
- (lambda (#{src\ 1076}#
- #{ids\ 1077}#
- #{vars\ 1078}#
- #{val-exps\ 1079}#
- #{body-exp\ 1080}#)
+ (#{build-data\ 332}#
+ (lambda (#{src\ 1067}# #{exp\ 1068}#)
+ (#{make-const\ 242}# #{src\ 1067}# #{exp\ 1068}#)))
+ (#{build-sequence\ 334}#
+ (lambda (#{src\ 1071}# #{exps\ 1072}#)
+ (if (null? (cdr #{exps\ 1072}#))
+ (car #{exps\ 1072}#)
+ (#{make-sequence\ 264}#
+ #{src\ 1071}#
+ #{exps\ 1072}#))))
+ (#{build-let\ 336}#
+ (lambda (#{src\ 1075}#
+ #{ids\ 1076}#
+ #{vars\ 1077}#
+ #{val-exps\ 1078}#
+ #{body-exp\ 1079}#)
(begin
(for-each
- #{maybe-name-value!\ 301}#
- #{ids\ 1077}#
- #{val-exps\ 1079}#)
- (if (null? #{vars\ 1078}#)
- #{body-exp\ 1080}#
- (#{make-let\ 269}#
- #{src\ 1076}#
- #{ids\ 1077}#
- #{vars\ 1078}#
- #{val-exps\ 1079}#
- #{body-exp\ 1080}#)))))
- (#{build-named-let\ 337}#
- (lambda (#{src\ 1086}#
- #{ids\ 1087}#
- #{vars\ 1088}#
- #{val-exps\ 1089}#
- #{body-exp\ 1090}#)
+ #{maybe-name-value!\ 302}#
+ #{ids\ 1076}#
+ #{val-exps\ 1078}#)
+ (if (null? #{vars\ 1077}#)
+ #{body-exp\ 1079}#
+ (#{make-let\ 270}#
+ #{src\ 1075}#
+ #{ids\ 1076}#
+ #{vars\ 1077}#
+ #{val-exps\ 1078}#
+ #{body-exp\ 1079}#)))))
+ (#{build-named-let\ 338}#
+ (lambda (#{src\ 1085}#
+ #{ids\ 1086}#
+ #{vars\ 1087}#
+ #{val-exps\ 1088}#
+ #{body-exp\ 1089}#)
(begin
- (let ((#{f\ 1100}# (car #{vars\ 1088}#))
- (#{f-name\ 1101}# (car #{ids\ 1087}#))
- (#{vars\ 1102}# (cdr #{vars\ 1088}#))
- (#{ids\ 1103}# (cdr #{ids\ 1087}#)))
+ (let ((#{f\ 1099}# (car #{vars\ 1087}#))
+ (#{f-name\ 1100}# (car #{ids\ 1086}#))
+ (#{vars\ 1101}# (cdr #{vars\ 1087}#))
+ (#{ids\ 1102}# (cdr #{ids\ 1086}#)))
(begin
- (let ((#{proc\ 1105}#
- (#{build-simple-lambda\ 323}#
- #{src\ 1086}#
- #{ids\ 1103}#
+ (let ((#{proc\ 1104}#
+ (#{build-simple-lambda\ 324}#
+ #{src\ 1085}#
+ #{ids\ 1102}#
#f
- #{vars\ 1102}#
+ #{vars\ 1101}#
'()
- #{body-exp\ 1090}#)))
+ #{body-exp\ 1089}#)))
(begin
- (#{maybe-name-value!\ 301}#
- #{f-name\ 1101}#
- #{proc\ 1105}#)
+ (#{maybe-name-value!\ 302}#
+ #{f-name\ 1100}#
+ #{proc\ 1104}#)
(for-each
- #{maybe-name-value!\ 301}#
- #{ids\ 1103}#
- #{val-exps\ 1089}#)
- (#{make-letrec\ 271}#
- #{src\ 1086}#
+ #{maybe-name-value!\ 302}#
+ #{ids\ 1102}#
+ #{val-exps\ 1088}#)
+ (#{make-letrec\ 272}#
+ #{src\ 1085}#
#f
- (list #{f-name\ 1101}#)
- (list #{f\ 1100}#)
- (list #{proc\ 1105}#)
- (#{build-application\ 305}#
- #{src\ 1086}#
- (#{build-lexical-reference\ 311}#
+ (list #{f-name\ 1100}#)
+ (list #{f\ 1099}#)
+ (list #{proc\ 1104}#)
+ (#{build-application\ 306}#
+ #{src\ 1085}#
+ (#{build-lexical-reference\ 312}#
'fun
- #{src\ 1086}#
- #{f-name\ 1101}#
- #{f\ 1100}#)
- #{val-exps\ 1089}#)))))))))
- (#{build-letrec\ 339}#
- (lambda (#{src\ 1106}#
- #{in-order?\ 1107}#
- #{ids\ 1108}#
- #{vars\ 1109}#
- #{val-exps\ 1110}#
- #{body-exp\ 1111}#)
- (if (null? #{vars\ 1109}#)
- #{body-exp\ 1111}#
+ #{src\ 1085}#
+ #{f-name\ 1100}#
+ #{f\ 1099}#)
+ #{val-exps\ 1088}#)))))))))
+ (#{build-letrec\ 340}#
+ (lambda (#{src\ 1105}#
+ #{in-order?\ 1106}#
+ #{ids\ 1107}#
+ #{vars\ 1108}#
+ #{val-exps\ 1109}#
+ #{body-exp\ 1110}#)
+ (if (null? #{vars\ 1108}#)
+ #{body-exp\ 1110}#
(begin
(for-each
- #{maybe-name-value!\ 301}#
- #{ids\ 1108}#
- #{val-exps\ 1110}#)
- (#{make-letrec\ 271}#
- #{src\ 1106}#
- #{in-order?\ 1107}#
- #{ids\ 1108}#
- #{vars\ 1109}#
- #{val-exps\ 1110}#
- #{body-exp\ 1111}#)))))
- (#{make-syntax-object\ 343}#
- (lambda (#{expression\ 1118}#
- #{wrap\ 1119}#
- #{module\ 1120}#)
+ #{maybe-name-value!\ 302}#
+ #{ids\ 1107}#
+ #{val-exps\ 1109}#)
+ (#{make-letrec\ 272}#
+ #{src\ 1105}#
+ #{in-order?\ 1106}#
+ #{ids\ 1107}#
+ #{vars\ 1108}#
+ #{val-exps\ 1109}#
+ #{body-exp\ 1110}#)))))
+ (#{make-syntax-object\ 344}#
+ (lambda (#{expression\ 1117}#
+ #{wrap\ 1118}#
+ #{module\ 1119}#)
(vector
'syntax-object
- #{expression\ 1118}#
- #{wrap\ 1119}#
- #{module\ 1120}#)))
- (#{syntax-object?\ 345}#
- (lambda (#{x\ 1124}#)
- (if (vector? #{x\ 1124}#)
- (if (= (vector-length #{x\ 1124}#) 4)
- (eq? (vector-ref #{x\ 1124}# 0) 'syntax-object)
+ #{expression\ 1117}#
+ #{wrap\ 1118}#
+ #{module\ 1119}#)))
+ (#{syntax-object?\ 346}#
+ (lambda (#{x\ 1123}#)
+ (if (vector? #{x\ 1123}#)
+ (if (= (vector-length #{x\ 1123}#) 4)
+ (eq? (vector-ref #{x\ 1123}# 0) 'syntax-object)
#f)
#f)))
- (#{syntax-object-expression\ 347}#
- (lambda (#{x\ 1129}#) (vector-ref #{x\ 1129}# 1)))
- (#{syntax-object-wrap\ 349}#
- (lambda (#{x\ 1131}#) (vector-ref #{x\ 1131}# 2)))
- (#{syntax-object-module\ 351}#
- (lambda (#{x\ 1133}#) (vector-ref #{x\ 1133}# 3)))
- (#{source-annotation\ 360}#
- (lambda (#{x\ 1147}#)
- (if (#{syntax-object?\ 345}# #{x\ 1147}#)
- (#{source-annotation\ 360}#
- (#{syntax-object-expression\ 347}# #{x\ 1147}#))
- (if (pair? #{x\ 1147}#)
+ (#{syntax-object-expression\ 348}#
+ (lambda (#{x\ 1128}#) (vector-ref #{x\ 1128}# 1)))
+ (#{syntax-object-wrap\ 350}#
+ (lambda (#{x\ 1130}#) (vector-ref #{x\ 1130}# 2)))
+ (#{syntax-object-module\ 352}#
+ (lambda (#{x\ 1132}#) (vector-ref #{x\ 1132}# 3)))
+ (#{source-annotation\ 361}#
+ (lambda (#{x\ 1146}#)
+ (if (#{syntax-object?\ 346}# #{x\ 1146}#)
+ (#{source-annotation\ 361}#
+ (#{syntax-object-expression\ 348}# #{x\ 1146}#))
+ (if (pair? #{x\ 1146}#)
(begin
- (let ((#{props\ 1154}# (source-properties #{x\ 1147}#)))
- (if (pair? #{props\ 1154}#) #{props\ 1154}# #f)))
+ (let ((#{props\ 1153}# (source-properties #{x\ 1146}#)))
+ (if (pair? #{props\ 1153}#) #{props\ 1153}# #f)))
#f))))
- (#{extend-env\ 367}#
- (lambda (#{labels\ 1156}# #{bindings\ 1157}# #{r\ 1158}#)
- (if (null? #{labels\ 1156}#)
- #{r\ 1158}#
- (#{extend-env\ 367}#
- (cdr #{labels\ 1156}#)
- (cdr #{bindings\ 1157}#)
- (cons (cons (car #{labels\ 1156}#)
- (car #{bindings\ 1157}#))
- #{r\ 1158}#)))))
- (#{extend-var-env\ 369}#
- (lambda (#{labels\ 1162}# #{vars\ 1163}# #{r\ 1164}#)
- (if (null? #{labels\ 1162}#)
- #{r\ 1164}#
- (#{extend-var-env\ 369}#
- (cdr #{labels\ 1162}#)
- (cdr #{vars\ 1163}#)
- (cons (cons (car #{labels\ 1162}#)
- (cons 'lexical (car #{vars\ 1163}#)))
- #{r\ 1164}#)))))
- (#{macros-only-env\ 371}#
- (lambda (#{r\ 1169}#)
- (if (null? #{r\ 1169}#)
+ (#{extend-env\ 368}#
+ (lambda (#{labels\ 1155}# #{bindings\ 1156}# #{r\ 1157}#)
+ (if (null? #{labels\ 1155}#)
+ #{r\ 1157}#
+ (#{extend-env\ 368}#
+ (cdr #{labels\ 1155}#)
+ (cdr #{bindings\ 1156}#)
+ (cons (cons (car #{labels\ 1155}#)
+ (car #{bindings\ 1156}#))
+ #{r\ 1157}#)))))
+ (#{extend-var-env\ 370}#
+ (lambda (#{labels\ 1161}# #{vars\ 1162}# #{r\ 1163}#)
+ (if (null? #{labels\ 1161}#)
+ #{r\ 1163}#
+ (#{extend-var-env\ 370}#
+ (cdr #{labels\ 1161}#)
+ (cdr #{vars\ 1162}#)
+ (cons (cons (car #{labels\ 1161}#)
+ (cons 'lexical (car #{vars\ 1162}#)))
+ #{r\ 1163}#)))))
+ (#{macros-only-env\ 372}#
+ (lambda (#{r\ 1168}#)
+ (if (null? #{r\ 1168}#)
'()
(begin
- (let ((#{a\ 1172}# (car #{r\ 1169}#)))
- (if (eq? (car (cdr #{a\ 1172}#)) 'macro)
- (cons #{a\ 1172}#
- (#{macros-only-env\ 371}# (cdr #{r\ 1169}#)))
- (#{macros-only-env\ 371}# (cdr #{r\ 1169}#))))))))
- (#{lookup\ 373}#
- (lambda (#{x\ 1173}# #{r\ 1174}# #{mod\ 1175}#)
+ (let ((#{a\ 1171}# (car #{r\ 1168}#)))
+ (if (eq? (car (cdr #{a\ 1171}#)) 'macro)
+ (cons #{a\ 1171}#
+ (#{macros-only-env\ 372}# (cdr #{r\ 1168}#)))
+ (#{macros-only-env\ 372}# (cdr #{r\ 1168}#))))))))
+ (#{lookup\ 374}#
+ (lambda (#{x\ 1172}# #{r\ 1173}# #{mod\ 1174}#)
(begin
- (let ((#{t\ 1181}# (assq #{x\ 1173}# #{r\ 1174}#)))
- (if #{t\ 1181}#
- (cdr #{t\ 1181}#)
- (if (symbol? #{x\ 1173}#)
+ (let ((#{t\ 1180}# (assq #{x\ 1172}# #{r\ 1173}#)))
+ (if #{t\ 1180}#
+ (cdr #{t\ 1180}#)
+ (if (symbol? #{x\ 1172}#)
(begin
- (let ((#{t\ 1187}#
- (#{get-global-definition-hook\ 297}#
- #{x\ 1173}#
- #{mod\ 1175}#)))
- (if #{t\ 1187}# #{t\ 1187}# '(global))))
+ (let ((#{t\ 1186}#
+ (#{get-global-definition-hook\ 298}#
+ #{x\ 1172}#
+ #{mod\ 1174}#)))
+ (if #{t\ 1186}# #{t\ 1186}# '(global))))
'(displaced-lexical)))))))
- (#{global-extend\ 375}#
- (lambda (#{type\ 1192}# #{sym\ 1193}# #{val\ 1194}#)
- (#{put-global-definition-hook\ 295}#
- #{sym\ 1193}#
- #{type\ 1192}#
- #{val\ 1194}#)))
- (#{nonsymbol-id?\ 377}#
- (lambda (#{x\ 1198}#)
- (if (#{syntax-object?\ 345}# #{x\ 1198}#)
+ (#{global-extend\ 376}#
+ (lambda (#{type\ 1191}# #{sym\ 1192}# #{val\ 1193}#)
+ (#{put-global-definition-hook\ 296}#
+ #{sym\ 1192}#
+ #{type\ 1191}#
+ #{val\ 1193}#)))
+ (#{nonsymbol-id?\ 378}#
+ (lambda (#{x\ 1197}#)
+ (if (#{syntax-object?\ 346}# #{x\ 1197}#)
(symbol?
- (#{syntax-object-expression\ 347}# #{x\ 1198}#))
+ (#{syntax-object-expression\ 348}# #{x\ 1197}#))
#f)))
- (#{id?\ 379}#
- (lambda (#{x\ 1202}#)
- (if (symbol? #{x\ 1202}#)
+ (#{id?\ 380}#
+ (lambda (#{x\ 1201}#)
+ (if (symbol? #{x\ 1201}#)
#t
- (if (#{syntax-object?\ 345}# #{x\ 1202}#)
+ (if (#{syntax-object?\ 346}# #{x\ 1201}#)
(symbol?
- (#{syntax-object-expression\ 347}# #{x\ 1202}#))
+ (#{syntax-object-expression\ 348}# #{x\ 1201}#))
#f))))
- (#{id-sym-name&marks\ 382}#
- (lambda (#{x\ 1209}# #{w\ 1210}#)
- (if (#{syntax-object?\ 345}# #{x\ 1209}#)
+ (#{id-sym-name&marks\ 383}#
+ (lambda (#{x\ 1208}# #{w\ 1209}#)
+ (if (#{syntax-object?\ 346}# #{x\ 1208}#)
(values
- (#{syntax-object-expression\ 347}# #{x\ 1209}#)
- (#{join-marks\ 429}#
- (car #{w\ 1210}#)
- (car (#{syntax-object-wrap\ 349}# #{x\ 1209}#))))
- (values #{x\ 1209}# (car #{w\ 1210}#)))))
- (#{gen-label\ 392}#
+ (#{syntax-object-expression\ 348}# #{x\ 1208}#)
+ (#{join-marks\ 430}#
+ (car #{w\ 1209}#)
+ (car (#{syntax-object-wrap\ 350}# #{x\ 1208}#))))
+ (values #{x\ 1208}# (car #{w\ 1209}#)))))
+ (#{gen-label\ 393}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels\ 394}#
- (lambda (#{ls\ 1216}#)
- (if (null? #{ls\ 1216}#)
+ (#{gen-labels\ 395}#
+ (lambda (#{ls\ 1215}#)
+ (if (null? #{ls\ 1215}#)
'()
- (cons (#{gen-label\ 392}#)
- (#{gen-labels\ 394}# (cdr #{ls\ 1216}#))))))
- (#{make-ribcage\ 397}#
- (lambda (#{symnames\ 1218}#
- #{marks\ 1219}#
- #{labels\ 1220}#)
+ (cons (#{gen-label\ 393}#)
+ (#{gen-labels\ 395}# (cdr #{ls\ 1215}#))))))
+ (#{make-ribcage\ 398}#
+ (lambda (#{symnames\ 1217}#
+ #{marks\ 1218}#
+ #{labels\ 1219}#)
(vector
'ribcage
- #{symnames\ 1218}#
- #{marks\ 1219}#
- #{labels\ 1220}#)))
- (#{ribcage-symnames\ 401}#
- (lambda (#{x\ 1229}#) (vector-ref #{x\ 1229}# 1)))
- (#{ribcage-marks\ 403}#
- (lambda (#{x\ 1231}#) (vector-ref #{x\ 1231}# 2)))
- (#{ribcage-labels\ 405}#
- (lambda (#{x\ 1233}#) (vector-ref #{x\ 1233}# 3)))
- (#{set-ribcage-symnames!\ 407}#
- (lambda (#{x\ 1235}# #{update\ 1236}#)
- (vector-set! #{x\ 1235}# 1 #{update\ 1236}#)))
- (#{set-ribcage-marks!\ 409}#
- (lambda (#{x\ 1239}# #{update\ 1240}#)
- (vector-set! #{x\ 1239}# 2 #{update\ 1240}#)))
- (#{set-ribcage-labels!\ 411}#
- (lambda (#{x\ 1243}# #{update\ 1244}#)
- (vector-set! #{x\ 1243}# 3 #{update\ 1244}#)))
- (#{anti-mark\ 417}#
- (lambda (#{w\ 1247}#)
- (cons (cons #f (car #{w\ 1247}#))
- (cons 'shift (cdr #{w\ 1247}#)))))
- (#{extend-ribcage!\ 421}#
- (lambda (#{ribcage\ 1253}# #{id\ 1254}# #{label\ 1255}#)
+ #{symnames\ 1217}#
+ #{marks\ 1218}#
+ #{labels\ 1219}#)))
+ (#{ribcage-symnames\ 402}#
+ (lambda (#{x\ 1228}#) (vector-ref #{x\ 1228}# 1)))
+ (#{ribcage-marks\ 404}#
+ (lambda (#{x\ 1230}#) (vector-ref #{x\ 1230}# 2)))
+ (#{ribcage-labels\ 406}#
+ (lambda (#{x\ 1232}#) (vector-ref #{x\ 1232}# 3)))
+ (#{set-ribcage-symnames!\ 408}#
+ (lambda (#{x\ 1234}# #{update\ 1235}#)
+ (vector-set! #{x\ 1234}# 1 #{update\ 1235}#)))
+ (#{set-ribcage-marks!\ 410}#
+ (lambda (#{x\ 1238}# #{update\ 1239}#)
+ (vector-set! #{x\ 1238}# 2 #{update\ 1239}#)))
+ (#{set-ribcage-labels!\ 412}#
+ (lambda (#{x\ 1242}# #{update\ 1243}#)
+ (vector-set! #{x\ 1242}# 3 #{update\ 1243}#)))
+ (#{anti-mark\ 418}#
+ (lambda (#{w\ 1246}#)
+ (cons (cons #f (car #{w\ 1246}#))
+ (cons 'shift (cdr #{w\ 1246}#)))))
+ (#{extend-ribcage!\ 422}#
+ (lambda (#{ribcage\ 1252}# #{id\ 1253}# #{label\ 1254}#)
(begin
- (#{set-ribcage-symnames!\ 407}#
- #{ribcage\ 1253}#
- (cons (#{syntax-object-expression\ 347}# #{id\ 1254}#)
- (#{ribcage-symnames\ 401}# #{ribcage\ 1253}#)))
- (#{set-ribcage-marks!\ 409}#
- #{ribcage\ 1253}#
- (cons (car (#{syntax-object-wrap\ 349}# #{id\ 1254}#))
- (#{ribcage-marks\ 403}# #{ribcage\ 1253}#)))
- (#{set-ribcage-labels!\ 411}#
- #{ribcage\ 1253}#
- (cons #{label\ 1255}#
- (#{ribcage-labels\ 405}# #{ribcage\ 1253}#))))))
- (#{make-binding-wrap\ 423}#
- (lambda (#{ids\ 1260}# #{labels\ 1261}# #{w\ 1262}#)
- (if (null? #{ids\ 1260}#)
- #{w\ 1262}#
- (cons (car #{w\ 1262}#)
+ (#{set-ribcage-symnames!\ 408}#
+ #{ribcage\ 1252}#
+ (cons (#{syntax-object-expression\ 348}# #{id\ 1253}#)
+ (#{ribcage-symnames\ 402}# #{ribcage\ 1252}#)))
+ (#{set-ribcage-marks!\ 410}#
+ #{ribcage\ 1252}#
+ (cons (car (#{syntax-object-wrap\ 350}# #{id\ 1253}#))
+ (#{ribcage-marks\ 404}# #{ribcage\ 1252}#)))
+ (#{set-ribcage-labels!\ 412}#
+ #{ribcage\ 1252}#
+ (cons #{label\ 1254}#
+ (#{ribcage-labels\ 406}# #{ribcage\ 1252}#))))))
+ (#{make-binding-wrap\ 424}#
+ (lambda (#{ids\ 1259}# #{labels\ 1260}# #{w\ 1261}#)
+ (if (null? #{ids\ 1259}#)
+ #{w\ 1261}#
+ (cons (car #{w\ 1261}#)
(cons (begin
- (let ((#{labelvec\ 1269}#
- (list->vector #{labels\ 1261}#)))
+ (let ((#{labelvec\ 1268}#
+ (list->vector #{labels\ 1260}#)))
(begin
- (let ((#{n\ 1271}#
- (vector-length #{labelvec\ 1269}#)))
+ (let ((#{n\ 1270}#
+ (vector-length #{labelvec\ 1268}#)))
(begin
- (let ((#{symnamevec\ 1274}#
- (make-vector #{n\ 1271}#))
- (#{marksvec\ 1275}#
- (make-vector #{n\ 1271}#)))
+ (let ((#{symnamevec\ 1273}#
+ (make-vector #{n\ 1270}#))
+ (#{marksvec\ 1274}#
+ (make-vector #{n\ 1270}#)))
(begin
(letrec*
- ((#{f\ 1279}#
- (lambda (#{ids\ 1280}#
- #{i\ 1281}#)
- (if (not (null? #{ids\ 1280}#))
+ ((#{f\ 1278}#
+ (lambda (#{ids\ 1279}#
+ #{i\ 1280}#)
+ (if (not (null? #{ids\ 1279}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 382}#
- (car #{ids\ 1280}#)
- #{w\ 1262}#))
- (lambda (#{symname\ 1282}#
- #{marks\ 1283}#)
+ (#{id-sym-name&marks\ 383}#
+ (car #{ids\ 1279}#)
+ #{w\ 1261}#))
+ (lambda (#{symname\ 1281}#
+ #{marks\ 1282}#)
(begin
(vector-set!
- #{symnamevec\ 1274}#
- #{i\ 1281}#
- #{symname\ 1282}#)
+ #{symnamevec\ 1273}#
+ #{i\ 1280}#
+ #{symname\ 1281}#)
(vector-set!
- #{marksvec\ 1275}#
- #{i\ 1281}#
- #{marks\ 1283}#)
- (#{f\ 1279}#
- (cdr #{ids\ 1280}#)
- (#{fx+\ 282}#
- #{i\ 1281}#
+ #{marksvec\ 1274}#
+ #{i\ 1280}#
+ #{marks\ 1282}#)
+ (#{f\ 1278}#
+ (cdr #{ids\ 1279}#)
+ (#{fx+\ 283}#
+ #{i\ 1280}#
1)))))))))
(begin
- (#{f\ 1279}# #{ids\ 1260}# 0)))
- (#{make-ribcage\ 397}#
- #{symnamevec\ 1274}#
- #{marksvec\ 1275}#
- #{labelvec\ 1269}#))))))))
- (cdr #{w\ 1262}#))))))
- (#{smart-append\ 425}#
- (lambda (#{m1\ 1287}# #{m2\ 1288}#)
- (if (null? #{m2\ 1288}#)
- #{m1\ 1287}#
- (append #{m1\ 1287}# #{m2\ 1288}#))))
- (#{join-wraps\ 427}#
- (lambda (#{w1\ 1291}# #{w2\ 1292}#)
+ (#{f\ 1278}# #{ids\ 1259}# 0)))
+ (#{make-ribcage\ 398}#
+ #{symnamevec\ 1273}#
+ #{marksvec\ 1274}#
+ #{labelvec\ 1268}#))))))))
+ (cdr #{w\ 1261}#))))))
+ (#{smart-append\ 426}#
+ (lambda (#{m1\ 1286}# #{m2\ 1287}#)
+ (if (null? #{m2\ 1287}#)
+ #{m1\ 1286}#
+ (append #{m1\ 1286}# #{m2\ 1287}#))))
+ (#{join-wraps\ 428}#
+ (lambda (#{w1\ 1290}# #{w2\ 1291}#)
(begin
- (let ((#{m1\ 1297}# (car #{w1\ 1291}#))
- (#{s1\ 1298}# (cdr #{w1\ 1291}#)))
- (if (null? #{m1\ 1297}#)
- (if (null? #{s1\ 1298}#)
- #{w2\ 1292}#
- (cons (car #{w2\ 1292}#)
- (#{smart-append\ 425}#
- #{s1\ 1298}#
- (cdr #{w2\ 1292}#))))
- (cons (#{smart-append\ 425}#
- #{m1\ 1297}#
- (car #{w2\ 1292}#))
- (#{smart-append\ 425}#
- #{s1\ 1298}#
- (cdr #{w2\ 1292}#))))))))
- (#{join-marks\ 429}#
- (lambda (#{m1\ 1307}# #{m2\ 1308}#)
- (#{smart-append\ 425}# #{m1\ 1307}# #{m2\ 1308}#)))
- (#{same-marks?\ 431}#
- (lambda (#{x\ 1311}# #{y\ 1312}#)
+ (let ((#{m1\ 1296}# (car #{w1\ 1290}#))
+ (#{s1\ 1297}# (cdr #{w1\ 1290}#)))
+ (if (null? #{m1\ 1296}#)
+ (if (null? #{s1\ 1297}#)
+ #{w2\ 1291}#
+ (cons (car #{w2\ 1291}#)
+ (#{smart-append\ 426}#
+ #{s1\ 1297}#
+ (cdr #{w2\ 1291}#))))
+ (cons (#{smart-append\ 426}#
+ #{m1\ 1296}#
+ (car #{w2\ 1291}#))
+ (#{smart-append\ 426}#
+ #{s1\ 1297}#
+ (cdr #{w2\ 1291}#))))))))
+ (#{join-marks\ 430}#
+ (lambda (#{m1\ 1306}# #{m2\ 1307}#)
+ (#{smart-append\ 426}# #{m1\ 1306}# #{m2\ 1307}#)))
+ (#{same-marks?\ 432}#
+ (lambda (#{x\ 1310}# #{y\ 1311}#)
(begin
- (let ((#{t\ 1317}# (eq? #{x\ 1311}# #{y\ 1312}#)))
- (if #{t\ 1317}#
- #{t\ 1317}#
- (if (not (null? #{x\ 1311}#))
- (if (not (null? #{y\ 1312}#))
- (if (eq? (car #{x\ 1311}#) (car #{y\ 1312}#))
- (#{same-marks?\ 431}#
- (cdr #{x\ 1311}#)
- (cdr #{y\ 1312}#))
+ (let ((#{t\ 1316}# (eq? #{x\ 1310}# #{y\ 1311}#)))
+ (if #{t\ 1316}#
+ #{t\ 1316}#
+ (if (not (null? #{x\ 1310}#))
+ (if (not (null? #{y\ 1311}#))
+ (if (eq? (car #{x\ 1310}#) (car #{y\ 1311}#))
+ (#{same-marks?\ 432}#
+ (cdr #{x\ 1310}#)
+ (cdr #{y\ 1311}#))
#f)
#f)
#f))))))
- (#{id-var-name\ 433}#
- (lambda (#{id\ 1323}# #{w\ 1324}#)
+ (#{id-var-name\ 434}#
+ (lambda (#{id\ 1322}# #{w\ 1323}#)
(letrec*
- ((#{search\ 1329}#
- (lambda (#{sym\ 1345}# #{subst\ 1346}# #{marks\ 1347}#)
- (if (null? #{subst\ 1346}#)
- (values #f #{marks\ 1347}#)
+ ((#{search\ 1328}#
+ (lambda (#{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}#)
+ (if (null? #{subst\ 1345}#)
+ (values #f #{marks\ 1346}#)
(begin
- (let ((#{fst\ 1352}# (car #{subst\ 1346}#)))
- (if (eq? #{fst\ 1352}# 'shift)
- (#{search\ 1329}#
- #{sym\ 1345}#
- (cdr #{subst\ 1346}#)
- (cdr #{marks\ 1347}#))
+ (let ((#{fst\ 1351}# (car #{subst\ 1345}#)))
+ (if (eq? #{fst\ 1351}# 'shift)
+ (#{search\ 1328}#
+ #{sym\ 1344}#
+ (cdr #{subst\ 1345}#)
+ (cdr #{marks\ 1346}#))
(begin
- (let ((#{symnames\ 1354}#
- (#{ribcage-symnames\ 401}#
- #{fst\ 1352}#)))
- (if (vector? #{symnames\ 1354}#)
- (#{search-vector-rib\ 1333}#
- #{sym\ 1345}#
- #{subst\ 1346}#
- #{marks\ 1347}#
- #{symnames\ 1354}#
- #{fst\ 1352}#)
- (#{search-list-rib\ 1331}#
- #{sym\ 1345}#
- #{subst\ 1346}#
- #{marks\ 1347}#
- #{symnames\ 1354}#
- #{fst\ 1352}#))))))))))
- (#{search-list-rib\ 1331}#
- (lambda (#{sym\ 1355}#
- #{subst\ 1356}#
- #{marks\ 1357}#
- #{symnames\ 1358}#
- #{ribcage\ 1359}#)
+ (let ((#{symnames\ 1353}#
+ (#{ribcage-symnames\ 402}#
+ #{fst\ 1351}#)))
+ (if (vector? #{symnames\ 1353}#)
+ (#{search-vector-rib\ 1332}#
+ #{sym\ 1344}#
+ #{subst\ 1345}#
+ #{marks\ 1346}#
+ #{symnames\ 1353}#
+ #{fst\ 1351}#)
+ (#{search-list-rib\ 1330}#
+ #{sym\ 1344}#
+ #{subst\ 1345}#
+ #{marks\ 1346}#
+ #{symnames\ 1353}#
+ #{fst\ 1351}#))))))))))
+ (#{search-list-rib\ 1330}#
+ (lambda (#{sym\ 1354}#
+ #{subst\ 1355}#
+ #{marks\ 1356}#
+ #{symnames\ 1357}#
+ #{ribcage\ 1358}#)
(letrec*
- ((#{f\ 1368}#
- (lambda (#{symnames\ 1369}# #{i\ 1370}#)
- (if (null? #{symnames\ 1369}#)
- (#{search\ 1329}#
- #{sym\ 1355}#
- (cdr #{subst\ 1356}#)
- #{marks\ 1357}#)
- (if (if (eq? (car #{symnames\ 1369}#)
- #{sym\ 1355}#)
- (#{same-marks?\ 431}#
- #{marks\ 1357}#
+ ((#{f\ 1367}#
+ (lambda (#{symnames\ 1368}# #{i\ 1369}#)
+ (if (null? #{symnames\ 1368}#)
+ (#{search\ 1328}#
+ #{sym\ 1354}#
+ (cdr #{subst\ 1355}#)
+ #{marks\ 1356}#)
+ (if (if (eq? (car #{symnames\ 1368}#)
+ #{sym\ 1354}#)
+ (#{same-marks?\ 432}#
+ #{marks\ 1356}#
(list-ref
- (#{ribcage-marks\ 403}#
- #{ribcage\ 1359}#)
- #{i\ 1370}#))
+ (#{ribcage-marks\ 404}#
+ #{ribcage\ 1358}#)
+ #{i\ 1369}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 405}# #{ribcage\ 1359}#)
- #{i\ 1370}#)
- #{marks\ 1357}#)
- (#{f\ 1368}#
- (cdr #{symnames\ 1369}#)
- (#{fx+\ 282}# #{i\ 1370}# 1)))))))
- (begin (#{f\ 1368}# #{symnames\ 1358}# 0)))))
- (#{search-vector-rib\ 1333}#
- (lambda (#{sym\ 1378}#
- #{subst\ 1379}#
- #{marks\ 1380}#
- #{symnames\ 1381}#
- #{ribcage\ 1382}#)
+ (#{ribcage-labels\ 406}# #{ribcage\ 1358}#)
+ #{i\ 1369}#)
+ #{marks\ 1356}#)
+ (#{f\ 1367}#
+ (cdr #{symnames\ 1368}#)
+ (#{fx+\ 283}# #{i\ 1369}# 1)))))))
+ (begin (#{f\ 1367}# #{symnames\ 1357}# 0)))))
+ (#{search-vector-rib\ 1332}#
+ (lambda (#{sym\ 1377}#
+ #{subst\ 1378}#
+ #{marks\ 1379}#
+ #{symnames\ 1380}#
+ #{ribcage\ 1381}#)
(begin
- (let ((#{n\ 1389}# (vector-length #{symnames\ 1381}#)))
+ (let ((#{n\ 1388}# (vector-length #{symnames\ 1380}#)))
(letrec*
- ((#{f\ 1392}#
- (lambda (#{i\ 1393}#)
- (if (#{fx=\ 286}# #{i\ 1393}# #{n\ 1389}#)
- (#{search\ 1329}#
- #{sym\ 1378}#
- (cdr #{subst\ 1379}#)
- #{marks\ 1380}#)
+ ((#{f\ 1391}#
+ (lambda (#{i\ 1392}#)
+ (if (#{fx=\ 287}# #{i\ 1392}# #{n\ 1388}#)
+ (#{search\ 1328}#
+ #{sym\ 1377}#
+ (cdr #{subst\ 1378}#)
+ #{marks\ 1379}#)
(if (if (eq? (vector-ref
- #{symnames\ 1381}#
- #{i\ 1393}#)
- #{sym\ 1378}#)
- (#{same-marks?\ 431}#
- #{marks\ 1380}#
+ #{symnames\ 1380}#
+ #{i\ 1392}#)
+ #{sym\ 1377}#)
+ (#{same-marks?\ 432}#
+ #{marks\ 1379}#
(vector-ref
- (#{ribcage-marks\ 403}#
- #{ribcage\ 1382}#)
- #{i\ 1393}#))
+ (#{ribcage-marks\ 404}#
+ #{ribcage\ 1381}#)
+ #{i\ 1392}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 405}#
- #{ribcage\ 1382}#)
- #{i\ 1393}#)
- #{marks\ 1380}#)
- (#{f\ 1392}#
- (#{fx+\ 282}# #{i\ 1393}# 1)))))))
- (begin (#{f\ 1392}# 0))))))))
+ (#{ribcage-labels\ 406}#
+ #{ribcage\ 1381}#)
+ #{i\ 1392}#)
+ #{marks\ 1379}#)
+ (#{f\ 1391}#
+ (#{fx+\ 283}# #{i\ 1392}# 1)))))))
+ (begin (#{f\ 1391}# 0))))))))
(begin
- (if (symbol? #{id\ 1323}#)
+ (if (symbol? #{id\ 1322}#)
(begin
- (let ((#{t\ 1403}#
+ (let ((#{t\ 1402}#
(call-with-values
(lambda ()
- (#{search\ 1329}#
- #{id\ 1323}#
- (cdr #{w\ 1324}#)
- (car #{w\ 1324}#)))
- (lambda (#{x\ 1407}# . #{ignore\ 1408}#)
- #{x\ 1407}#))))
- (if #{t\ 1403}# #{t\ 1403}# #{id\ 1323}#)))
- (if (#{syntax-object?\ 345}# #{id\ 1323}#)
+ (#{search\ 1328}#
+ #{id\ 1322}#
+ (cdr #{w\ 1323}#)
+ (car #{w\ 1323}#)))
+ (lambda (#{x\ 1406}# . #{ignore\ 1407}#)
+ #{x\ 1406}#))))
+ (if #{t\ 1402}# #{t\ 1402}# #{id\ 1322}#)))
+ (if (#{syntax-object?\ 346}# #{id\ 1322}#)
(begin
- (let ((#{id\ 1416}#
- (#{syntax-object-expression\ 347}#
- #{id\ 1323}#))
- (#{w1\ 1417}#
- (#{syntax-object-wrap\ 349}# #{id\ 1323}#)))
+ (let ((#{id\ 1415}#
+ (#{syntax-object-expression\ 348}#
+ #{id\ 1322}#))
+ (#{w1\ 1416}#
+ (#{syntax-object-wrap\ 350}# #{id\ 1322}#)))
(begin
- (let ((#{marks\ 1419}#
- (#{join-marks\ 429}#
- (car #{w\ 1324}#)
- (car #{w1\ 1417}#))))
+ (let ((#{marks\ 1418}#
+ (#{join-marks\ 430}#
+ (car #{w\ 1323}#)
+ (car #{w1\ 1416}#))))
(call-with-values
(lambda ()
- (#{search\ 1329}#
- #{id\ 1416}#
- (cdr #{w\ 1324}#)
- #{marks\ 1419}#))
- (lambda (#{new-id\ 1423}# #{marks\ 1424}#)
+ (#{search\ 1328}#
+ #{id\ 1415}#
+ (cdr #{w\ 1323}#)
+ #{marks\ 1418}#))
+ (lambda (#{new-id\ 1422}# #{marks\ 1423}#)
(begin
- (let ((#{t\ 1429}# #{new-id\ 1423}#))
- (if #{t\ 1429}#
- #{t\ 1429}#
+ (let ((#{t\ 1428}# #{new-id\ 1422}#))
+ (if #{t\ 1428}#
+ #{t\ 1428}#
(begin
- (let ((#{t\ 1432}#
+ (let ((#{t\ 1431}#
(call-with-values
(lambda ()
- (#{search\ 1329}#
- #{id\ 1416}#
- (cdr #{w1\ 1417}#)
- #{marks\ 1424}#))
- (lambda (#{x\ 1435}#
+ (#{search\ 1328}#
+ #{id\ 1415}#
+ (cdr #{w1\ 1416}#)
+ #{marks\ 1423}#))
+ (lambda (#{x\ 1434}#
.
- #{ignore\ 1436}#)
- #{x\ 1435}#))))
- (if #{t\ 1432}#
- #{t\ 1432}#
- #{id\ 1416}#))))))))))))
+ #{ignore\ 1435}#)
+ #{x\ 1434}#))))
+ (if #{t\ 1431}#
+ #{t\ 1431}#
+ #{id\ 1415}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1323}#)))))))
- (#{free-id=?\ 435}#
- (lambda (#{i\ 1441}# #{j\ 1442}#)
+ #{id\ 1322}#)))))))
+ (#{free-id=?\ 436}#
+ (lambda (#{i\ 1440}# #{j\ 1441}#)
(if (eq? (begin
- (let ((#{x\ 1448}# #{i\ 1441}#))
- (if (#{syntax-object?\ 345}# #{x\ 1448}#)
- (#{syntax-object-expression\ 347}# #{x\ 1448}#)
- #{x\ 1448}#)))
+ (let ((#{x\ 1447}# #{i\ 1440}#))
+ (if (#{syntax-object?\ 346}# #{x\ 1447}#)
+ (#{syntax-object-expression\ 348}# #{x\ 1447}#)
+ #{x\ 1447}#)))
(begin
- (let ((#{x\ 1451}# #{j\ 1442}#))
- (if (#{syntax-object?\ 345}# #{x\ 1451}#)
- (#{syntax-object-expression\ 347}# #{x\ 1451}#)
- #{x\ 1451}#))))
- (eq? (#{id-var-name\ 433}# #{i\ 1441}# '(()))
- (#{id-var-name\ 433}# #{j\ 1442}# '(())))
+ (let ((#{x\ 1450}# #{j\ 1441}#))
+ (if (#{syntax-object?\ 346}# #{x\ 1450}#)
+ (#{syntax-object-expression\ 348}# #{x\ 1450}#)
+ #{x\ 1450}#))))
+ (eq? (#{id-var-name\ 434}# #{i\ 1440}# '(()))
+ (#{id-var-name\ 434}# #{j\ 1441}# '(())))
#f)))
- (#{bound-id=?\ 437}#
- (lambda (#{i\ 1455}# #{j\ 1456}#)
- (if (if (#{syntax-object?\ 345}# #{i\ 1455}#)
- (#{syntax-object?\ 345}# #{j\ 1456}#)
+ (#{bound-id=?\ 438}#
+ (lambda (#{i\ 1454}# #{j\ 1455}#)
+ (if (if (#{syntax-object?\ 346}# #{i\ 1454}#)
+ (#{syntax-object?\ 346}# #{j\ 1455}#)
#f)
- (if (eq? (#{syntax-object-expression\ 347}# #{i\ 1455}#)
- (#{syntax-object-expression\ 347}# #{j\ 1456}#))
- (#{same-marks?\ 431}#
- (car (#{syntax-object-wrap\ 349}# #{i\ 1455}#))
- (car (#{syntax-object-wrap\ 349}# #{j\ 1456}#)))
+ (if (eq? (#{syntax-object-expression\ 348}# #{i\ 1454}#)
+ (#{syntax-object-expression\ 348}# #{j\ 1455}#))
+ (#{same-marks?\ 432}#
+ (car (#{syntax-object-wrap\ 350}# #{i\ 1454}#))
+ (car (#{syntax-object-wrap\ 350}# #{j\ 1455}#)))
#f)
- (eq? #{i\ 1455}# #{j\ 1456}#))))
- (#{valid-bound-ids?\ 439}#
- (lambda (#{ids\ 1465}#)
+ (eq? #{i\ 1454}# #{j\ 1455}#))))
+ (#{valid-bound-ids?\ 440}#
+ (lambda (#{ids\ 1464}#)
(if (letrec*
- ((#{all-ids?\ 1470}#
- (lambda (#{ids\ 1471}#)
+ ((#{all-ids?\ 1469}#
+ (lambda (#{ids\ 1470}#)
(begin
- (let ((#{t\ 1474}# (null? #{ids\ 1471}#)))
- (if #{t\ 1474}#
- #{t\ 1474}#
- (if (#{id?\ 379}# (car #{ids\ 1471}#))
- (#{all-ids?\ 1470}# (cdr #{ids\ 1471}#))
+ (let ((#{t\ 1473}# (null? #{ids\ 1470}#)))
+ (if #{t\ 1473}#
+ #{t\ 1473}#
+ (if (#{id?\ 380}# (car #{ids\ 1470}#))
+ (#{all-ids?\ 1469}# (cdr #{ids\ 1470}#))
#f)))))))
- (begin (#{all-ids?\ 1470}# #{ids\ 1465}#)))
- (#{distinct-bound-ids?\ 441}# #{ids\ 1465}#)
+ (begin (#{all-ids?\ 1469}# #{ids\ 1464}#)))
+ (#{distinct-bound-ids?\ 442}# #{ids\ 1464}#)
#f)))
- (#{distinct-bound-ids?\ 441}#
- (lambda (#{ids\ 1479}#)
+ (#{distinct-bound-ids?\ 442}#
+ (lambda (#{ids\ 1478}#)
(letrec*
- ((#{distinct?\ 1483}#
- (lambda (#{ids\ 1484}#)
+ ((#{distinct?\ 1482}#
+ (lambda (#{ids\ 1483}#)
(begin
- (let ((#{t\ 1487}# (null? #{ids\ 1484}#)))
- (if #{t\ 1487}#
- #{t\ 1487}#
- (if (not (#{bound-id-member?\ 443}#
- (car #{ids\ 1484}#)
- (cdr #{ids\ 1484}#)))
- (#{distinct?\ 1483}# (cdr #{ids\ 1484}#))
+ (let ((#{t\ 1486}# (null? #{ids\ 1483}#)))
+ (if #{t\ 1486}#
+ #{t\ 1486}#
+ (if (not (#{bound-id-member?\ 444}#
+ (car #{ids\ 1483}#)
+ (cdr #{ids\ 1483}#)))
+ (#{distinct?\ 1482}# (cdr #{ids\ 1483}#))
#f)))))))
- (begin (#{distinct?\ 1483}# #{ids\ 1479}#)))))
- (#{bound-id-member?\ 443}#
- (lambda (#{x\ 1491}# #{list\ 1492}#)
- (if (not (null? #{list\ 1492}#))
+ (begin (#{distinct?\ 1482}# #{ids\ 1478}#)))))
+ (#{bound-id-member?\ 444}#
+ (lambda (#{x\ 1490}# #{list\ 1491}#)
+ (if (not (null? #{list\ 1491}#))
(begin
- (let ((#{t\ 1499}#
- (#{bound-id=?\ 437}#
- #{x\ 1491}#
- (car #{list\ 1492}#))))
- (if #{t\ 1499}#
- #{t\ 1499}#
- (#{bound-id-member?\ 443}#
- #{x\ 1491}#
- (cdr #{list\ 1492}#)))))
+ (let ((#{t\ 1498}#
+ (#{bound-id=?\ 438}#
+ #{x\ 1490}#
+ (car #{list\ 1491}#))))
+ (if #{t\ 1498}#
+ #{t\ 1498}#
+ (#{bound-id-member?\ 444}#
+ #{x\ 1490}#
+ (cdr #{list\ 1491}#)))))
#f)))
- (#{wrap\ 445}#
- (lambda (#{x\ 1501}# #{w\ 1502}# #{defmod\ 1503}#)
- (if (if (null? (car #{w\ 1502}#))
- (null? (cdr #{w\ 1502}#))
+ (#{wrap\ 446}#
+ (lambda (#{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#)
+ (if (if (null? (car #{w\ 1501}#))
+ (null? (cdr #{w\ 1501}#))
#f)
- #{x\ 1501}#
- (if (#{syntax-object?\ 345}# #{x\ 1501}#)
- (#{make-syntax-object\ 343}#
- (#{syntax-object-expression\ 347}# #{x\ 1501}#)
- (#{join-wraps\ 427}#
- #{w\ 1502}#
- (#{syntax-object-wrap\ 349}# #{x\ 1501}#))
- (#{syntax-object-module\ 351}# #{x\ 1501}#))
- (if (null? #{x\ 1501}#)
- #{x\ 1501}#
- (#{make-syntax-object\ 343}#
- #{x\ 1501}#
- #{w\ 1502}#
- #{defmod\ 1503}#))))))
- (#{source-wrap\ 447}#
- (lambda (#{x\ 1518}#
- #{w\ 1519}#
- #{s\ 1520}#
- #{defmod\ 1521}#)
- (#{wrap\ 445}#
- (#{decorate-source\ 299}#
- #{x\ 1518}#
- #{s\ 1520}#)
- #{w\ 1519}#
- #{defmod\ 1521}#)))
- (#{chi-sequence\ 449}#
- (lambda (#{body\ 1526}#
- #{r\ 1527}#
- #{w\ 1528}#
- #{s\ 1529}#
- #{mod\ 1530}#)
- (#{build-sequence\ 333}#
- #{s\ 1529}#
+ #{x\ 1500}#
+ (if (#{syntax-object?\ 346}# #{x\ 1500}#)
+ (#{make-syntax-object\ 344}#
+ (#{syntax-object-expression\ 348}# #{x\ 1500}#)
+ (#{join-wraps\ 428}#
+ #{w\ 1501}#
+ (#{syntax-object-wrap\ 350}# #{x\ 1500}#))
+ (#{syntax-object-module\ 352}# #{x\ 1500}#))
+ (if (null? #{x\ 1500}#)
+ #{x\ 1500}#
+ (#{make-syntax-object\ 344}#
+ #{x\ 1500}#
+ #{w\ 1501}#
+ #{defmod\ 1502}#))))))
+ (#{source-wrap\ 448}#
+ (lambda (#{x\ 1517}#
+ #{w\ 1518}#
+ #{s\ 1519}#
+ #{defmod\ 1520}#)
+ (#{wrap\ 446}#
+ (#{decorate-source\ 300}#
+ #{x\ 1517}#
+ #{s\ 1519}#)
+ #{w\ 1518}#
+ #{defmod\ 1520}#)))
+ (#{chi-sequence\ 450}#
+ (lambda (#{body\ 1525}#
+ #{r\ 1526}#
+ #{w\ 1527}#
+ #{s\ 1528}#
+ #{mod\ 1529}#)
+ (#{build-sequence\ 334}#
+ #{s\ 1528}#
(letrec*
- ((#{dobody\ 1541}#
- (lambda (#{body\ 1542}#
- #{r\ 1543}#
- #{w\ 1544}#
- #{mod\ 1545}#)
- (if (null? #{body\ 1542}#)
+ ((#{dobody\ 1540}#
+ (lambda (#{body\ 1541}#
+ #{r\ 1542}#
+ #{w\ 1543}#
+ #{mod\ 1544}#)
+ (if (null? #{body\ 1541}#)
'()
(begin
- (let ((#{first\ 1547}#
- (#{chi\ 461}#
- (car #{body\ 1542}#)
- #{r\ 1543}#
- #{w\ 1544}#
- #{mod\ 1545}#)))
- (cons #{first\ 1547}#
- (#{dobody\ 1541}#
- (cdr #{body\ 1542}#)
- #{r\ 1543}#
- #{w\ 1544}#
- #{mod\ 1545}#))))))))
+ (let ((#{first\ 1546}#
+ (#{chi\ 460}#
+ (car #{body\ 1541}#)
+ #{r\ 1542}#
+ #{w\ 1543}#
+ #{mod\ 1544}#)))
+ (cons #{first\ 1546}#
+ (#{dobody\ 1540}#
+ (cdr #{body\ 1541}#)
+ #{r\ 1542}#
+ #{w\ 1543}#
+ #{mod\ 1544}#))))))))
(begin
- (#{dobody\ 1541}#
- #{body\ 1526}#
- #{r\ 1527}#
- #{w\ 1528}#
- #{mod\ 1530}#))))))
- (#{chi-top-sequence\ 451}#
- (lambda (#{body\ 1548}#
- #{r\ 1549}#
- #{w\ 1550}#
- #{s\ 1551}#
- #{m\ 1552}#
- #{esew\ 1553}#
- #{mod\ 1554}#)
- (#{build-sequence\ 333}#
- #{s\ 1551}#
- (letrec*
- ((#{dobody\ 1570}#
- (lambda (#{body\ 1571}#
- #{r\ 1572}#
- #{w\ 1573}#
- #{m\ 1574}#
- #{esew\ 1575}#
- #{mod\ 1576}#
- #{out\ 1577}#)
- (if (null? #{body\ 1571}#)
- (reverse #{out\ 1577}#)
- (#{dobody\ 1570}#
- (cdr #{body\ 1571}#)
- #{r\ 1572}#
- #{w\ 1573}#
- #{m\ 1574}#
- #{esew\ 1575}#
- #{mod\ 1576}#
- (cons (#{chi-top\ 459}#
- (car #{body\ 1571}#)
- #{r\ 1572}#
- #{w\ 1573}#
- #{m\ 1574}#
- #{esew\ 1575}#
- #{mod\ 1576}#)
- #{out\ 1577}#))))))
- (begin
- (#{dobody\ 1570}#
- #{body\ 1548}#
- #{r\ 1549}#
- #{w\ 1550}#
- #{m\ 1552}#
- #{esew\ 1553}#
- #{mod\ 1554}#
- '()))))))
- (#{chi-install-global\ 453}#
- (lambda (#{name\ 1578}# #{e\ 1579}#)
- (#{build-global-definition\ 321}#
+ (#{dobody\ 1540}#
+ #{body\ 1525}#
+ #{r\ 1526}#
+ #{w\ 1527}#
+ #{mod\ 1529}#))))))
+ (#{chi-top-sequence\ 452}#
+ (lambda (#{body\ 1547}#
+ #{r\ 1548}#
+ #{w\ 1549}#
+ #{s\ 1550}#
+ #{m\ 1551}#
+ #{esew\ 1552}#
+ #{mod\ 1553}#)
+ (letrec*
+ ((#{scan\ 1562}#
+ (lambda (#{body\ 1563}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{m\ 1567}#
+ #{esew\ 1568}#
+ #{mod\ 1569}#
+ #{exps\ 1570}#)
+ (if (null? #{body\ 1563}#)
+ #{exps\ 1570}#
+ (call-with-values
+ (lambda ()
+ (call-with-values
+ (lambda ()
+ (begin
+ (let ((#{e\ 1583}# (car #{body\ 1563}#)))
+ (#{syntax-type\ 458}#
+ #{e\ 1583}#
+ #{r\ 1564}#
+ #{w\ 1565}#
+ (begin
+ (let ((#{t\ 1586}#
+ (#{source-annotation\ 361}#
+ #{e\ 1583}#)))
+ (if #{t\ 1586}#
+ #{t\ 1586}#
+ #{s\ 1566}#)))
+ #f
+ #{mod\ 1569}#
+ #f))))
+ (lambda (#{type\ 1588}#
+ #{value\ 1589}#
+ #{e\ 1590}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ #{mod\ 1593}#)
+ (if (eqv? #{type\ 1588}# 'begin-form)
+ (let ((#{tmp\ 1601}# #{e\ 1590}#))
+ (let ((#{tmp\ 1602}#
+ ($sc-dispatch #{tmp\ 1601}# '(_))))
+ (if #{tmp\ 1602}#
+ (@apply
+ (lambda () #{exps\ 1570}#)
+ #{tmp\ 1602}#)
+ (let ((#{tmp\ 1603}#
+ ($sc-dispatch
+ #{tmp\ 1601}#
+ '(_ any . each-any))))
+ (if #{tmp\ 1603}#
+ (@apply
+ (lambda (#{e1\ 1606}# #{e2\ 1607}#)
+ (#{scan\ 1562}#
+ (cons #{e1\ 1606}#
+ #{e2\ 1607}#)
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ #{m\ 1567}#
+ #{esew\ 1568}#
+ #{mod\ 1593}#
+ #{exps\ 1570}#))
+ #{tmp\ 1603}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1601}#))))))
+ (if (eqv? #{type\ 1588}# 'local-syntax-form)
+ (#{chi-local-syntax\ 470}#
+ #{value\ 1589}#
+ #{e\ 1590}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ #{mod\ 1593}#
+ (lambda (#{body\ 1610}#
+ #{r\ 1611}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{mod\ 1614}#)
+ (#{scan\ 1562}#
+ #{body\ 1610}#
+ #{r\ 1611}#
+ #{w\ 1612}#
+ #{s\ 1613}#
+ #{m\ 1567}#
+ #{esew\ 1568}#
+ #{mod\ 1614}#
+ #{exps\ 1570}#)))
+ (if (eqv? #{type\ 1588}# 'eval-when-form)
+ (let ((#{tmp\ 1621}# #{e\ 1590}#))
+ (let ((#{tmp\ 1622}#
+ ($sc-dispatch
+ #{tmp\ 1621}#
+ '(_ each-any any . each-any))))
+ (if #{tmp\ 1622}#
+ (@apply
+ (lambda (#{x\ 1626}#
+ #{e1\ 1627}#
+ #{e2\ 1628}#)
+ (begin
+ (let ((#{when-list\ 1631}#
+ (#{chi-when-list\ 456}#
+ #{e\ 1590}#
+ #{x\ 1626}#
+ #{w\ 1591}#))
+ (#{body\ 1632}#
+ (cons #{e1\ 1627}#
+ #{e2\ 1628}#)))
+ (if (eq? #{m\ 1567}# 'e)
+ (if (memq 'eval
+ #{when-list\ 1631}#)
+ (#{scan\ 1562}#
+ #{body\ 1632}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ (if (memq 'expand
+ #{when-list\ 1631}#)
+ 'c&e
+ 'e)
+ '(eval)
+ #{mod\ 1593}#
+ #{exps\ 1570}#)
+ (begin
+ (if (memq 'expand
+ #{when-list\ 1631}#)
+ (#{top-level-eval-hook\ 291}#
+ (#{chi-top-sequence\ 452}#
+ #{body\ 1632}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ 'e
+ '(eval)
+ #{mod\ 1593}#)
+ #{mod\ 1593}#))
+ #{exps\ 1570}#))
+ (if (memq 'load
+ #{when-list\ 1631}#)
+ (if (begin
+ (let ((#{t\ 1641}#
+ (memq 'compile
+ #{when-list\ 1631}#)))
+ (if #{t\ 1641}#
+ #{t\ 1641}#
+ (begin
+ (let ((#{t\ 1644}#
+ (memq 'expand
+ #{when-list\ 1631}#)))
+ (if #{t\ 1644}#
+ #{t\ 1644}#
+ (if (eq? #{m\ 1567}#
+ 'c&e)
+ (memq 'eval
+ #{when-list\ 1631}#)
+ #f)))))))
+ (#{scan\ 1562}#
+ #{body\ 1632}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ 'c&e
+ '(compile load)
+ #{mod\ 1593}#
+ #{exps\ 1570}#)
+ (if (if (eq? #{m\ 1567}#
+ 'c)
+ #t
+ (eq? #{m\ 1567}#
+ 'c&e))
+ (#{scan\ 1562}#
+ #{body\ 1632}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ 'c
+ '(load)
+ #{mod\ 1593}#
+ #{exps\ 1570}#)
+ #{exps\ 1570}#))
+ (if (begin
+ (let ((#{t\ 1652}#
+ (memq 'compile
+ #{when-list\ 1631}#)))
+ (if #{t\ 1652}#
+ #{t\ 1652}#
+ (begin
+ (let ((#{t\ 1655}#
+ (memq 'expand
+ #{when-list\ 1631}#)))
+ (if #{t\ 1655}#
+ #{t\ 1655}#
+ (if (eq? #{m\ 1567}#
+ 'c&e)
+ (memq 'eval
+ #{when-list\ 1631}#)
+ #f)))))))
+ (begin
+ (#{top-level-eval-hook\ 291}#
+ (#{chi-top-sequence\ 452}#
+ #{body\ 1632}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ 'e
+ '(eval)
+ #{mod\ 1593}#)
+ #{mod\ 1593}#)
+ #{exps\ 1570}#)
+ #{exps\ 1570}#))))))
+ #{tmp\ 1622}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1621}#))))
+ (if (eqv? #{type\ 1588}#
+ 'define-syntax-form)
+ (begin
+ (let ((#{n\ 1663}#
+ (#{id-var-name\ 434}#
+ #{value\ 1589}#
+ #{w\ 1591}#))
+ (#{r\ 1664}#
+ (#{macros-only-env\ 372}#
+ #{r\ 1564}#)))
+ (if (eqv? #{m\ 1567}# 'c)
+ (if (memq 'compile #{esew\ 1568}#)
+ (begin
+ (let ((#{e\ 1667}#
+ (#{chi-install-global\ 454}#
+ #{n\ 1663}#
+ (#{chi\ 460}#
+ #{e\ 1590}#
+ #{r\ 1664}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))))
+ (begin
+ (#{top-level-eval-hook\ 291}#
+ #{e\ 1667}#
+ #{mod\ 1593}#)
+ (if (memq 'load
+ #{esew\ 1568}#)
+ (cons #{e\ 1667}#
+ #{exps\ 1570}#)
+ #{exps\ 1570}#))))
+ (if (memq 'load #{esew\ 1568}#)
+ (cons (#{chi-install-global\ 454}#
+ #{n\ 1663}#
+ (#{chi\ 460}#
+ #{e\ 1590}#
+ #{r\ 1664}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))
+ #{exps\ 1570}#)
+ #{exps\ 1570}#))
+ (if (eqv? #{m\ 1567}# 'c&e)
+ (begin
+ (let ((#{e\ 1670}#
+ (#{chi-install-global\ 454}#
+ #{n\ 1663}#
+ (#{chi\ 460}#
+ #{e\ 1590}#
+ #{r\ 1664}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))))
+ (begin
+ (#{top-level-eval-hook\ 291}#
+ #{e\ 1670}#
+ #{mod\ 1593}#)
+ (cons #{e\ 1670}#
+ #{exps\ 1570}#))))
+ (begin
+ (if (memq 'eval #{esew\ 1568}#)
+ (#{top-level-eval-hook\ 291}#
+ (#{chi-install-global\ 454}#
+ #{n\ 1663}#
+ (#{chi\ 460}#
+ #{e\ 1590}#
+ #{r\ 1664}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))
+ #{mod\ 1593}#))
+ #{exps\ 1570}#)))))
+ (if (eqv? #{type\ 1588}# 'define-form)
+ (begin
+ (let ((#{n\ 1675}#
+ (#{id-var-name\ 434}#
+ #{value\ 1589}#
+ #{w\ 1591}#)))
+ (begin
+ (let ((#{type\ 1677}#
+ (car (#{lookup\ 374}#
+ #{n\ 1675}#
+ #{r\ 1564}#
+ #{mod\ 1593}#))))
+ (if (if (eqv? #{type\ 1677}#
+ 'global)
+ #t
+ (if (eqv? #{type\ 1677}#
+ 'core)
+ #t
+ (if (eqv? #{type\ 1677}#
+ 'macro)
+ #t
+ (eqv? #{type\ 1677}#
+ 'module-ref))))
+ (begin
+ (if (if (if (eq? #{m\ 1567}#
+ 'c)
+ #t
+ (eq? #{m\ 1567}#
+ 'c&e))
+ (if (not (module-local-variable
+ (current-module)
+ #{n\ 1675}#))
+ (current-module)
+ #f)
+ #f)
+ (begin
+ (let ((#{old\ 1684}#
+ (module-variable
+ (current-module)
+ #{n\ 1675}#)))
+ (if (if (variable?
+ #{old\ 1684}#)
+ (variable-bound?
+ #{old\ 1684}#)
+ #f)
+ (module-define!
+ (current-module)
+ #{n\ 1675}#
+ (variable-ref
+ #{old\ 1684}#))
+ (module-add!
+ (current-module)
+ #{n\ 1675}#
+ (make-undefined-variable))))))
+ (cons (if (eq? #{m\ 1567}#
+ 'c&e)
+ (begin
+ (let ((#{x\ 1688}#
+ (#{build-global-definition\ 322}#
+ #{s\ 1592}#
+ #{n\ 1675}#
+ (#{chi\ 460}#
+ #{e\ 1590}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))))
+ (begin
+ (#{top-level-eval-hook\ 291}#
+ #{x\ 1688}#
+ #{mod\ 1593}#)
+ #{x\ 1688}#)))
+ (lambda ()
+ (#{build-global-definition\ 322}#
+ #{s\ 1592}#
+ #{n\ 1675}#
+ (#{chi\ 460}#
+ #{e\ 1590}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))))
+ #{exps\ 1570}#))
+ (if (eqv? #{type\ 1677}#
+ 'displaced-lexical)
+ (syntax-violation
+ #f
+ "identifier out of context"
+ #{e\ 1590}#
+ (#{wrap\ 446}#
+ #{value\ 1589}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))
+ (syntax-violation
+ #f
+ "cannot define keyword at top level"
+ #{e\ 1590}#
+ (#{wrap\ 446}#
+ #{value\ 1589}#
+ #{w\ 1591}#
+ #{mod\ 1593}#))))))))
+ (cons (if (eq? #{m\ 1567}# 'c&e)
+ (begin
+ (let ((#{x\ 1693}#
+ (#{chi-expr\ 462}#
+ #{type\ 1588}#
+ #{value\ 1589}#
+ #{e\ 1590}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ #{mod\ 1593}#)))
+ (begin
+ (#{top-level-eval-hook\ 291}#
+ #{x\ 1693}#
+ #{mod\ 1593}#)
+ #{x\ 1693}#)))
+ (lambda ()
+ (#{chi-expr\ 462}#
+ #{type\ 1588}#
+ #{value\ 1589}#
+ #{e\ 1590}#
+ #{r\ 1564}#
+ #{w\ 1591}#
+ #{s\ 1592}#
+ #{mod\ 1593}#)))
+ #{exps\ 1570}#)))))))))
+ (lambda (#{exps\ 1694}#)
+ (#{scan\ 1562}#
+ (cdr #{body\ 1563}#)
+ #{r\ 1564}#
+ #{w\ 1565}#
+ #{s\ 1566}#
+ #{m\ 1567}#
+ #{esew\ 1568}#
+ #{mod\ 1569}#
+ #{exps\ 1694}#)))))))
+ (begin
+ (call-with-values
+ (lambda ()
+ (#{scan\ 1562}#
+ #{body\ 1547}#
+ #{r\ 1548}#
+ #{w\ 1549}#
+ #{s\ 1550}#
+ #{m\ 1551}#
+ #{esew\ 1552}#
+ #{mod\ 1553}#
+ '()))
+ (lambda (#{exps\ 1696}#)
+ (if (null? #{exps\ 1696}#)
+ (#{build-void\ 304}# #{s\ 1550}#)
+ (#{build-sequence\ 334}#
+ #{s\ 1550}#
+ (letrec*
+ ((#{lp\ 1701}#
+ (lambda (#{in\ 1702}# #{out\ 1703}#)
+ (if (null? #{in\ 1702}#)
+ #{out\ 1703}#
+ (begin
+ (let ((#{e\ 1705}# (car #{in\ 1702}#)))
+ (#{lp\ 1701}#
+ (cdr #{in\ 1702}#)
+ (cons (if (procedure? #{e\ 1705}#)
+ (#{e\ 1705}#)
+ #{e\ 1705}#)
+ #{out\ 1703}#))))))))
+ (begin (#{lp\ 1701}# #{exps\ 1696}# '())))))))))))
+ (#{chi-install-global\ 454}#
+ (lambda (#{name\ 1706}# #{e\ 1707}#)
+ (#{build-global-definition\ 322}#
#f
- #{name\ 1578}#
- (#{build-application\ 305}#
+ #{name\ 1706}#
+ (#{build-application\ 306}#
#f
- (#{build-primref\ 329}#
+ (#{build-primref\ 330}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 331}# #f #{name\ 1578}#)
- (#{build-data\ 331}# #f 'macro)
- #{e\ 1579}#)))))
- (#{chi-when-list\ 455}#
- (lambda (#{e\ 1587}# #{when-list\ 1588}# #{w\ 1589}#)
+ (list (#{build-data\ 332}# #f #{name\ 1706}#)
+ (#{build-data\ 332}# #f 'macro)
+ #{e\ 1707}#)))))
+ (#{chi-when-list\ 456}#
+ (lambda (#{e\ 1715}# #{when-list\ 1716}# #{w\ 1717}#)
(letrec*
- ((#{f\ 1596}#
- (lambda (#{when-list\ 1597}# #{situations\ 1598}#)
- (if (null? #{when-list\ 1597}#)
- #{situations\ 1598}#
- (#{f\ 1596}#
- (cdr #{when-list\ 1597}#)
+ ((#{f\ 1724}#
+ (lambda (#{when-list\ 1725}# #{situations\ 1726}#)
+ (if (null? #{when-list\ 1725}#)
+ #{situations\ 1726}#
+ (#{f\ 1724}#
+ (cdr #{when-list\ 1725}#)
(cons (begin
- (let ((#{x\ 1600}# (car #{when-list\ 1597}#)))
- (if (#{free-id=?\ 435}#
- #{x\ 1600}#
+ (let ((#{x\ 1728}# (car #{when-list\ 1725}#)))
+ (if (#{free-id=?\ 436}#
+ #{x\ 1728}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1599"))
+ #(ribcage #(x) #((top)) #("i1727"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1593" "i1594" "i1595"))
+ #("i1721" "i1722" "i1723"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1590" "i1591" "i1592"))
+ #("i1718" "i1719" "i1720"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 435}#
- #{x\ 1600}#
+ (if (#{free-id=?\ 436}#
+ #{x\ 1728}#
'#(syntax-object
load
((top)
#(ribcage
#(x)
#((top))
- #("i1599"))
+ #("i1727"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1593" "i1594" "i1595"))
+ #("i1721" "i1722" "i1723"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1590" "i1591" "i1592"))
+ #("i1718" "i1719" "i1720"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 435}#
- #{x\ 1600}#
+ (if (#{free-id=?\ 436}#
+ #{x\ 1728}#
'#(syntax-object
eval
((top)
#(ribcage
#(x)
#((top))
- #("i1599"))
+ #("i1727"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1593" "i1594" "i1595"))
+ #("i1721" "i1722" "i1723"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1590" "i1591" "i1592"))
+ #("i1718" "i1719" "i1720"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 435}#
- #{x\ 1600}#
+ (if (#{free-id=?\ 436}#
+ #{x\ 1728}#
'#(syntax-object
expand
((top)
#(ribcage
#(x)
#((top))
- #("i1599"))
+ #("i1727"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1593" "i1594" "i1595"))
+ #("i1721" "i1722" "i1723"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1590" "i1591" "i1592"))
+ #("i1718" "i1719" "i1720"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1587}#
- (#{wrap\ 445}#
- #{x\ 1600}#
- #{w\ 1589}#
+ #{e\ 1715}#
+ (#{wrap\ 446}#
+ #{x\ 1728}#
+ #{w\ 1717}#
#f))))))))
- #{situations\ 1598}#))))))
- (begin (#{f\ 1596}# #{when-list\ 1588}# '())))))
- (#{syntax-type\ 457}#
- (lambda (#{e\ 1610}#
- #{r\ 1611}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{rib\ 1614}#
- #{mod\ 1615}#
- #{for-car?\ 1616}#)
- (if (symbol? #{e\ 1610}#)
+ #{situations\ 1726}#))))))
+ (begin (#{f\ 1724}# #{when-list\ 1716}# '())))))
+ (#{syntax-type\ 458}#
+ (lambda (#{e\ 1738}#
+ #{r\ 1739}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{rib\ 1742}#
+ #{mod\ 1743}#
+ #{for-car?\ 1744}#)
+ (if (symbol? #{e\ 1738}#)
(begin
- (let ((#{n\ 1628}#
- (#{id-var-name\ 433}# #{e\ 1610}# #{w\ 1612}#)))
+ (let ((#{n\ 1756}#
+ (#{id-var-name\ 434}# #{e\ 1738}# #{w\ 1740}#)))
(begin
- (let ((#{b\ 1630}#
- (#{lookup\ 373}#
- #{n\ 1628}#
- #{r\ 1611}#
- #{mod\ 1615}#)))
+ (let ((#{b\ 1758}#
+ (#{lookup\ 374}#
+ #{n\ 1756}#
+ #{r\ 1739}#
+ #{mod\ 1743}#)))
(begin
- (let ((#{type\ 1632}# (car #{b\ 1630}#)))
- (if (eqv? #{type\ 1632}# 'lexical)
+ (let ((#{type\ 1760}# (car #{b\ 1758}#)))
+ (if (eqv? #{type\ 1760}# 'lexical)
(values
- #{type\ 1632}#
- (cdr #{b\ 1630}#)
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{type\ 1632}# 'global)
+ #{type\ 1760}#
+ (cdr #{b\ 1758}#)
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{type\ 1760}# 'global)
(values
- #{type\ 1632}#
- #{n\ 1628}#
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{type\ 1632}# 'macro)
- (if #{for-car?\ 1616}#
+ #{type\ 1760}#
+ #{n\ 1756}#
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{type\ 1760}# 'macro)
+ (if #{for-car?\ 1744}#
(values
- #{type\ 1632}#
- (cdr #{b\ 1630}#)
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (#{syntax-type\ 457}#
- (#{chi-macro\ 467}#
- (cdr #{b\ 1630}#)
- #{e\ 1610}#
- #{r\ 1611}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{rib\ 1614}#
- #{mod\ 1615}#)
- #{r\ 1611}#
+ #{type\ 1760}#
+ (cdr #{b\ 1758}#)
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (#{syntax-type\ 458}#
+ (#{chi-macro\ 466}#
+ (cdr #{b\ 1758}#)
+ #{e\ 1738}#
+ #{r\ 1739}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{rib\ 1742}#
+ #{mod\ 1743}#)
+ #{r\ 1739}#
'(())
- #{s\ 1613}#
- #{rib\ 1614}#
- #{mod\ 1615}#
+ #{s\ 1741}#
+ #{rib\ 1742}#
+ #{mod\ 1743}#
#f))
(values
- #{type\ 1632}#
- (cdr #{b\ 1630}#)
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#))))))))))
- (if (pair? #{e\ 1610}#)
+ #{type\ 1760}#
+ (cdr #{b\ 1758}#)
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#))))))))))
+ (if (pair? #{e\ 1738}#)
(begin
- (let ((#{first\ 1646}# (car #{e\ 1610}#)))
+ (let ((#{first\ 1774}# (car #{e\ 1738}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 457}#
- #{first\ 1646}#
- #{r\ 1611}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{rib\ 1614}#
- #{mod\ 1615}#
+ (#{syntax-type\ 458}#
+ #{first\ 1774}#
+ #{r\ 1739}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{rib\ 1742}#
+ #{mod\ 1743}#
#t))
- (lambda (#{ftype\ 1647}#
- #{fval\ 1648}#
- #{fe\ 1649}#
- #{fw\ 1650}#
- #{fs\ 1651}#
- #{fmod\ 1652}#)
- (if (eqv? #{ftype\ 1647}# 'lexical)
+ (lambda (#{ftype\ 1775}#
+ #{fval\ 1776}#
+ #{fe\ 1777}#
+ #{fw\ 1778}#
+ #{fs\ 1779}#
+ #{fmod\ 1780}#)
+ (if (eqv? #{ftype\ 1775}# 'lexical)
(values
'lexical-call
- #{fval\ 1648}#
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{ftype\ 1647}# 'global)
+ #{fval\ 1776}#
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{ftype\ 1775}# 'global)
(values
'global-call
- (#{make-syntax-object\ 343}#
- #{fval\ 1648}#
- #{w\ 1612}#
- #{fmod\ 1652}#)
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{ftype\ 1647}# 'macro)
- (#{syntax-type\ 457}#
- (#{chi-macro\ 467}#
- #{fval\ 1648}#
- #{e\ 1610}#
- #{r\ 1611}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{rib\ 1614}#
- #{mod\ 1615}#)
- #{r\ 1611}#
+ (#{make-syntax-object\ 344}#
+ #{fval\ 1776}#
+ #{w\ 1740}#
+ #{fmod\ 1780}#)
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{ftype\ 1775}# 'macro)
+ (#{syntax-type\ 458}#
+ (#{chi-macro\ 466}#
+ #{fval\ 1776}#
+ #{e\ 1738}#
+ #{r\ 1739}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{rib\ 1742}#
+ #{mod\ 1743}#)
+ #{r\ 1739}#
'(())
- #{s\ 1613}#
- #{rib\ 1614}#
- #{mod\ 1615}#
- #{for-car?\ 1616}#)
- (if (eqv? #{ftype\ 1647}# 'module-ref)
+ #{s\ 1741}#
+ #{rib\ 1742}#
+ #{mod\ 1743}#
+ #{for-car?\ 1744}#)
+ (if (eqv? #{ftype\ 1775}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval\ 1648}#
- #{e\ 1610}#
- #{r\ 1611}#
- #{w\ 1612}#))
- (lambda (#{e\ 1664}#
- #{r\ 1665}#
- #{w\ 1666}#
- #{s\ 1667}#
- #{mod\ 1668}#)
- (#{syntax-type\ 457}#
- #{e\ 1664}#
- #{r\ 1665}#
- #{w\ 1666}#
- #{s\ 1667}#
- #{rib\ 1614}#
- #{mod\ 1668}#
- #{for-car?\ 1616}#)))
- (if (eqv? #{ftype\ 1647}# 'core)
+ (#{fval\ 1776}#
+ #{e\ 1738}#
+ #{r\ 1739}#
+ #{w\ 1740}#))
+ (lambda (#{e\ 1792}#
+ #{r\ 1793}#
+ #{w\ 1794}#
+ #{s\ 1795}#
+ #{mod\ 1796}#)
+ (#{syntax-type\ 458}#
+ #{e\ 1792}#
+ #{r\ 1793}#
+ #{w\ 1794}#
+ #{s\ 1795}#
+ #{rib\ 1742}#
+ #{mod\ 1796}#
+ #{for-car?\ 1744}#)))
+ (if (eqv? #{ftype\ 1775}# 'core)
(values
'core-form
- #{fval\ 1648}#
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{ftype\ 1647}# 'local-syntax)
+ #{fval\ 1776}#
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{ftype\ 1775}# 'local-syntax)
(values
'local-syntax-form
- #{fval\ 1648}#
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{ftype\ 1647}# 'begin)
+ #{fval\ 1776}#
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{ftype\ 1775}# 'begin)
(values
'begin-form
#f
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{ftype\ 1647}# 'eval-when)
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{ftype\ 1775}# 'eval-when)
(values
'eval-when-form
#f
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
- (if (eqv? #{ftype\ 1647}# 'define)
- (let ((#{tmp\ 1679}# #{e\ 1610}#))
- (let ((#{tmp\ 1680}#
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
+ (if (eqv? #{ftype\ 1775}# 'define)
+ (let ((#{tmp\ 1807}# #{e\ 1738}#))
+ (let ((#{tmp\ 1808}#
($sc-dispatch
- #{tmp\ 1679}#
+ #{tmp\ 1807}#
'(_ any any))))
- (if (if #{tmp\ 1680}#
+ (if (if #{tmp\ 1808}#
(@apply
- (lambda (#{name\ 1683}#
- #{val\ 1684}#)
- (#{id?\ 379}#
- #{name\ 1683}#))
- #{tmp\ 1680}#)
+ (lambda (#{name\ 1811}#
+ #{val\ 1812}#)
+ (#{id?\ 380}#
+ #{name\ 1811}#))
+ #{tmp\ 1808}#)
#f)
(@apply
- (lambda (#{name\ 1687}#
- #{val\ 1688}#)
+ (lambda (#{name\ 1815}#
+ #{val\ 1816}#)
(values
'define-form
- #{name\ 1687}#
- #{val\ 1688}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#))
- #{tmp\ 1680}#)
- (let ((#{tmp\ 1689}#
+ #{name\ 1815}#
+ #{val\ 1816}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#))
+ #{tmp\ 1808}#)
+ (let ((#{tmp\ 1817}#
($sc-dispatch
- #{tmp\ 1679}#
+ #{tmp\ 1807}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp\ 1689}#
+ (if (if #{tmp\ 1817}#
(@apply
- (lambda (#{name\ 1694}#
- #{args\ 1695}#
- #{e1\ 1696}#
- #{e2\ 1697}#)
- (if (#{id?\ 379}#
- #{name\ 1694}#)
- (#{valid-bound-ids?\ 439}#
- (#{lambda-var-list\ 491}#
- #{args\ 1695}#))
+ (lambda (#{name\ 1822}#
+ #{args\ 1823}#
+ #{e1\ 1824}#
+ #{e2\ 1825}#)
+ (if (#{id?\ 380}#
+ #{name\ 1822}#)
+ (#{valid-bound-ids?\ 440}#
+ (#{lambda-var-list\ 490}#
+ #{args\ 1823}#))
#f))
- #{tmp\ 1689}#)
+ #{tmp\ 1817}#)
#f)
(@apply
- (lambda (#{name\ 1704}#
- #{args\ 1705}#
- #{e1\ 1706}#
- #{e2\ 1707}#)
+ (lambda (#{name\ 1832}#
+ #{args\ 1833}#
+ #{e1\ 1834}#
+ #{e2\ 1835}#)
(values
'define-form
- (#{wrap\ 445}#
- #{name\ 1704}#
- #{w\ 1612}#
- #{mod\ 1615}#)
- (#{decorate-source\ 299}#
+ (#{wrap\ 446}#
+ #{name\ 1832}#
+ #{w\ 1740}#
+ #{mod\ 1743}#)
+ (#{decorate-source\ 300}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("i1700"
- "i1701"
- "i1702"
- "i1703"))
+ #("i1828"
+ "i1829"
+ "i1830"
+ "i1831"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1653"
- "i1654"
- "i1655"
- "i1656"
- "i1657"
- "i1658"))
+ #("i1781"
+ "i1782"
+ "i1783"
+ "i1784"
+ "i1785"
+ "i1786"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1645"))
+ #("i1773"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1617"
- "i1618"
- "i1619"
- "i1620"
- "i1621"
- "i1622"
- "i1623"))
+ #("i1745"
+ "i1746"
+ "i1747"
+ "i1748"
+ "i1749"
+ "i1750"
+ "i1751"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene
guile))
- (#{wrap\ 445}#
- (cons #{args\ 1705}#
- (cons #{e1\ 1706}#
- #{e2\ 1707}#))
- #{w\ 1612}#
- #{mod\ 1615}#))
- #{s\ 1613}#)
+ (#{wrap\ 446}#
+ (cons #{args\ 1833}#
+ (cons #{e1\ 1834}#
+ #{e2\ 1835}#))
+ #{w\ 1740}#
+ #{mod\ 1743}#))
+ #{s\ 1741}#)
'(())
- #{s\ 1613}#
- #{mod\ 1615}#))
- #{tmp\ 1689}#)
- (let ((#{tmp\ 1710}#
+ #{s\ 1741}#
+ #{mod\ 1743}#))
+ #{tmp\ 1817}#)
+ (let ((#{tmp\ 1838}#
($sc-dispatch
- #{tmp\ 1679}#
+ #{tmp\ 1807}#
'(_ any))))
- (if (if #{tmp\ 1710}#
+ (if (if #{tmp\ 1838}#
(@apply
- (lambda (#{name\ 1712}#)
- (#{id?\ 379}#
- #{name\ 1712}#))
- #{tmp\ 1710}#)
+ (lambda (#{name\ 1840}#)
+ (#{id?\ 380}#
+ #{name\ 1840}#))
+ #{tmp\ 1838}#)
#f)
(@apply
- (lambda (#{name\ 1714}#)
+ (lambda (#{name\ 1842}#)
(values
'define-form
- (#{wrap\ 445}#
- #{name\ 1714}#
- #{w\ 1612}#
- #{mod\ 1615}#)
+ (#{wrap\ 446}#
+ #{name\ 1842}#
+ #{w\ 1740}#
+ #{mod\ 1743}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1713"))
+ #("i1841"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1653"
- "i1654"
- "i1655"
- "i1656"
- "i1657"
- "i1658"))
+ #("i1781"
+ "i1782"
+ "i1783"
+ "i1784"
+ "i1785"
+ "i1786"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1645"))
+ #("i1773"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1617"
- "i1618"
- "i1619"
- "i1620"
- "i1621"
- "i1622"
- "i1623"))
+ #("i1745"
+ "i1746"
+ "i1747"
+ "i1748"
+ "i1749"
+ "i1750"
+ "i1751"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene
guile))
#(syntax-object
#(ribcage
#(name)
#((top))
- #("i1713"))
+ #("i1841"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1653"
- "i1654"
- "i1655"
- "i1656"
- "i1657"
- "i1658"))
+ #("i1781"
+ "i1782"
+ "i1783"
+ "i1784"
+ "i1785"
+ "i1786"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1645"))
+ #("i1773"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1617"
- "i1618"
- "i1619"
- "i1620"
- "i1621"
- "i1622"
- "i1623"))
+ #("i1745"
+ "i1746"
+ "i1747"
+ "i1748"
+ "i1749"
+ "i1750"
+ "i1751"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene
guile))
#(syntax-object
#(ribcage
#(name)
#((top))
- #("i1713"))
+ #("i1841"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1653"
- "i1654"
- "i1655"
- "i1656"
- "i1657"
- "i1658"))
+ #("i1781"
+ "i1782"
+ "i1783"
+ "i1784"
+ "i1785"
+ "i1786"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1645"))
+ #("i1773"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1617"
- "i1618"
- "i1619"
- "i1620"
- "i1621"
- "i1622"
- "i1623"))
+ #("i1745"
+ "i1746"
+ "i1747"
+ "i1748"
+ "i1749"
+ "i1750"
+ "i1751"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene
guile)))
'(())
- #{s\ 1613}#
- #{mod\ 1615}#))
- #{tmp\ 1710}#)
+ #{s\ 1741}#
+ #{mod\ 1743}#))
+ #{tmp\ 1838}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1679}#))))))))
- (if (eqv? #{ftype\ 1647}#
+ #{tmp\ 1807}#))))))))
+ (if (eqv? #{ftype\ 1775}#
'define-syntax)
- (let ((#{tmp\ 1717}# #{e\ 1610}#))
- (let ((#{tmp\ 1718}#
+ (let ((#{tmp\ 1845}# #{e\ 1738}#))
+ (let ((#{tmp\ 1846}#
($sc-dispatch
- #{tmp\ 1717}#
+ #{tmp\ 1845}#
'(_ any any))))
- (if (if #{tmp\ 1718}#
+ (if (if #{tmp\ 1846}#
(@apply
- (lambda (#{name\ 1721}#
- #{val\ 1722}#)
- (#{id?\ 379}#
- #{name\ 1721}#))
- #{tmp\ 1718}#)
+ (lambda (#{name\ 1849}#
+ #{val\ 1850}#)
+ (#{id?\ 380}#
+ #{name\ 1849}#))
+ #{tmp\ 1846}#)
#f)
(@apply
- (lambda (#{name\ 1725}#
- #{val\ 1726}#)
+ (lambda (#{name\ 1853}#
+ #{val\ 1854}#)
(values
'define-syntax-form
- #{name\ 1725}#
- #{val\ 1726}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#))
- #{tmp\ 1718}#)
+ #{name\ 1853}#
+ #{val\ 1854}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#))
+ #{tmp\ 1846}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1717}#))))
+ #{tmp\ 1845}#))))
(values
'call
#f
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)))))))))))))))
- (if (#{syntax-object?\ 345}# #{e\ 1610}#)
- (#{syntax-type\ 457}#
- (#{syntax-object-expression\ 347}# #{e\ 1610}#)
- #{r\ 1611}#
- (#{join-wraps\ 427}#
- #{w\ 1612}#
- (#{syntax-object-wrap\ 349}# #{e\ 1610}#))
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)))))))))))))))
+ (if (#{syntax-object?\ 346}# #{e\ 1738}#)
+ (#{syntax-type\ 458}#
+ (#{syntax-object-expression\ 348}# #{e\ 1738}#)
+ #{r\ 1739}#
+ (#{join-wraps\ 428}#
+ #{w\ 1740}#
+ (#{syntax-object-wrap\ 350}# #{e\ 1738}#))
(begin
- (let ((#{t\ 1732}#
- (#{source-annotation\ 360}# #{e\ 1610}#)))
- (if #{t\ 1732}# #{t\ 1732}# #{s\ 1613}#)))
- #{rib\ 1614}#
+ (let ((#{t\ 1860}#
+ (#{source-annotation\ 361}# #{e\ 1738}#)))
+ (if #{t\ 1860}# #{t\ 1860}# #{s\ 1741}#)))
+ #{rib\ 1742}#
(begin
- (let ((#{t\ 1736}#
- (#{syntax-object-module\ 351}# #{e\ 1610}#)))
- (if #{t\ 1736}# #{t\ 1736}# #{mod\ 1615}#)))
- #{for-car?\ 1616}#)
- (if (self-evaluating? #{e\ 1610}#)
+ (let ((#{t\ 1864}#
+ (#{syntax-object-module\ 352}# #{e\ 1738}#)))
+ (if #{t\ 1864}# #{t\ 1864}# #{mod\ 1743}#)))
+ #{for-car?\ 1744}#)
+ (if (self-evaluating? #{e\ 1738}#)
(values
'constant
#f
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)
(values
'other
#f
- #{e\ 1610}#
- #{w\ 1612}#
- #{s\ 1613}#
- #{mod\ 1615}#)))))))
- (#{chi-top\ 459}#
- (lambda (#{e\ 1741}#
- #{r\ 1742}#
- #{w\ 1743}#
- #{m\ 1744}#
- #{esew\ 1745}#
- #{mod\ 1746}#)
+ #{e\ 1738}#
+ #{w\ 1740}#
+ #{s\ 1741}#
+ #{mod\ 1743}#)))))))
+ (#{chi\ 460}#
+ (lambda (#{e\ 1869}#
+ #{r\ 1870}#
+ #{w\ 1871}#
+ #{mod\ 1872}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 457}#
- #{e\ 1741}#
- #{r\ 1742}#
- #{w\ 1743}#
- (#{source-annotation\ 360}# #{e\ 1741}#)
+ (#{syntax-type\ 458}#
+ #{e\ 1869}#
+ #{r\ 1870}#
+ #{w\ 1871}#
+ (#{source-annotation\ 361}# #{e\ 1869}#)
#f
- #{mod\ 1746}#
+ #{mod\ 1872}#
#f))
- (lambda (#{type\ 1767}#
- #{value\ 1768}#
- #{e\ 1769}#
- #{w\ 1770}#
- #{s\ 1771}#
- #{mod\ 1772}#)
- (if (eqv? #{type\ 1767}# 'begin-form)
- (let ((#{tmp\ 1780}# #{e\ 1769}#))
- (let ((#{tmp\ 1781}# ($sc-dispatch #{tmp\ 1780}# '(_))))
- (if #{tmp\ 1781}#
- (@apply
- (lambda () (#{chi-void\ 475}#))
- #{tmp\ 1781}#)
- (let ((#{tmp\ 1782}#
- ($sc-dispatch
- #{tmp\ 1780}#
- '(_ any . each-any))))
- (if #{tmp\ 1782}#
- (@apply
- (lambda (#{e1\ 1785}# #{e2\ 1786}#)
- (#{chi-top-sequence\ 451}#
- (cons #{e1\ 1785}# #{e2\ 1786}#)
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- #{m\ 1744}#
- #{esew\ 1745}#
- #{mod\ 1772}#))
- #{tmp\ 1782}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1780}#))))))
- (if (eqv? #{type\ 1767}# 'local-syntax-form)
- (#{chi-local-syntax\ 471}#
- #{value\ 1768}#
- #{e\ 1769}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- #{mod\ 1772}#
- (lambda (#{body\ 1789}#
- #{r\ 1790}#
- #{w\ 1791}#
- #{s\ 1792}#
- #{mod\ 1793}#)
- (#{chi-top-sequence\ 451}#
- #{body\ 1789}#
- #{r\ 1790}#
- #{w\ 1791}#
- #{s\ 1792}#
- #{m\ 1744}#
- #{esew\ 1745}#
- #{mod\ 1793}#)))
- (if (eqv? #{type\ 1767}# 'eval-when-form)
- (let ((#{tmp\ 1800}# #{e\ 1769}#))
- (let ((#{tmp\ 1801}#
- ($sc-dispatch
- #{tmp\ 1800}#
- '(_ each-any any . each-any))))
- (if #{tmp\ 1801}#
- (@apply
- (lambda (#{x\ 1805}# #{e1\ 1806}# #{e2\ 1807}#)
- (begin
- (let ((#{when-list\ 1810}#
- (#{chi-when-list\ 455}#
- #{e\ 1769}#
- #{x\ 1805}#
- #{w\ 1770}#))
- (#{body\ 1811}#
- (cons #{e1\ 1806}# #{e2\ 1807}#)))
- (if (eq? #{m\ 1744}# 'e)
- (if (memq 'eval #{when-list\ 1810}#)
- (#{chi-top-sequence\ 451}#
- #{body\ 1811}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- (if (memq 'expand
- #{when-list\ 1810}#)
- 'c&e
- 'e)
- '(eval)
- #{mod\ 1772}#)
- (begin
- (if (memq 'expand
- #{when-list\ 1810}#)
- (#{top-level-eval-hook\ 290}#
- (#{chi-top-sequence\ 451}#
- #{body\ 1811}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- 'e
- '(eval)
- #{mod\ 1772}#)
- #{mod\ 1772}#))
- (#{chi-void\ 475}#)))
- (if (memq 'load #{when-list\ 1810}#)
- (if (begin
- (let ((#{t\ 1820}#
- (memq 'compile
- #{when-list\ 1810}#)))
- (if #{t\ 1820}#
- #{t\ 1820}#
- (begin
- (let ((#{t\ 1823}#
- (memq 'expand
- #{when-list\ 1810}#)))
- (if #{t\ 1823}#
- #{t\ 1823}#
- (if (eq? #{m\ 1744}#
- 'c&e)
- (memq 'eval
- #{when-list\ 1810}#)
- #f)))))))
- (#{chi-top-sequence\ 451}#
- #{body\ 1811}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- 'c&e
- '(compile load)
- #{mod\ 1772}#)
- (if (if (eq? #{m\ 1744}# 'c)
- #t
- (eq? #{m\ 1744}# 'c&e))
- (#{chi-top-sequence\ 451}#
- #{body\ 1811}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- 'c
- '(load)
- #{mod\ 1772}#)
- (#{chi-void\ 475}#)))
- (if (begin
- (let ((#{t\ 1831}#
- (memq 'compile
- #{when-list\ 1810}#)))
- (if #{t\ 1831}#
- #{t\ 1831}#
- (begin
- (let ((#{t\ 1834}#
- (memq 'expand
- #{when-list\ 1810}#)))
- (if #{t\ 1834}#
- #{t\ 1834}#
- (if (eq? #{m\ 1744}#
- 'c&e)
- (memq 'eval
- #{when-list\ 1810}#)
- #f)))))))
- (begin
- (#{top-level-eval-hook\ 290}#
- (#{chi-top-sequence\ 451}#
- #{body\ 1811}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- 'e
- '(eval)
- #{mod\ 1772}#)
- #{mod\ 1772}#)
- (#{chi-void\ 475}#))
- (#{chi-void\ 475}#)))))))
- #{tmp\ 1801}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1800}#))))
- (if (eqv? #{type\ 1767}# 'define-syntax-form)
- (begin
- (let ((#{n\ 1842}#
- (#{id-var-name\ 433}#
- #{value\ 1768}#
- #{w\ 1770}#))
- (#{r\ 1843}#
- (#{macros-only-env\ 371}# #{r\ 1742}#)))
- (if (eqv? #{m\ 1744}# 'c)
- (if (memq 'compile #{esew\ 1745}#)
- (begin
- (let ((#{e\ 1846}#
- (#{chi-install-global\ 453}#
- #{n\ 1842}#
- (#{chi\ 461}#
- #{e\ 1769}#
- #{r\ 1843}#
- #{w\ 1770}#
- #{mod\ 1772}#))))
- (begin
- (#{top-level-eval-hook\ 290}#
- #{e\ 1846}#
- #{mod\ 1772}#)
- (if (memq 'load #{esew\ 1745}#)
- #{e\ 1846}#
- (#{chi-void\ 475}#)))))
- (if (memq 'load #{esew\ 1745}#)
- (#{chi-install-global\ 453}#
- #{n\ 1842}#
- (#{chi\ 461}#
- #{e\ 1769}#
- #{r\ 1843}#
- #{w\ 1770}#
- #{mod\ 1772}#))
- (#{chi-void\ 475}#)))
- (if (eqv? #{m\ 1744}# 'c&e)
- (begin
- (let ((#{e\ 1849}#
- (#{chi-install-global\ 453}#
- #{n\ 1842}#
- (#{chi\ 461}#
- #{e\ 1769}#
- #{r\ 1843}#
- #{w\ 1770}#
- #{mod\ 1772}#))))
- (begin
- (#{top-level-eval-hook\ 290}#
- #{e\ 1849}#
- #{mod\ 1772}#)
- #{e\ 1849}#)))
- (begin
- (if (memq 'eval #{esew\ 1745}#)
- (#{top-level-eval-hook\ 290}#
- (#{chi-install-global\ 453}#
- #{n\ 1842}#
- (#{chi\ 461}#
- #{e\ 1769}#
- #{r\ 1843}#
- #{w\ 1770}#
- #{mod\ 1772}#))
- #{mod\ 1772}#))
- (#{chi-void\ 475}#))))))
- (if (eqv? #{type\ 1767}# 'define-form)
- (begin
- (let ((#{n\ 1854}#
- (#{id-var-name\ 433}#
- #{value\ 1768}#
- #{w\ 1770}#)))
- (begin
- (let ((#{type\ 1856}#
- (car (#{lookup\ 373}#
- #{n\ 1854}#
- #{r\ 1742}#
- #{mod\ 1772}#))))
- (if (if (eqv? #{type\ 1856}# 'global)
- #t
- (if (eqv? #{type\ 1856}# 'core)
- #t
- (if (eqv? #{type\ 1856}# 'macro)
- #t
- (eqv? #{type\ 1856}#
- 'module-ref))))
- (begin
- (if (if (if (eq? #{m\ 1744}# 'c)
- #t
- (eq? #{m\ 1744}# 'c&e))
- (if (not (module-local-variable
- (current-module)
- #{n\ 1854}#))
- (current-module)
- #f)
- #f)
- (begin
- (let ((#{old\ 1863}#
- (module-variable
- (current-module)
- #{n\ 1854}#)))
- (if (if (variable? #{old\ 1863}#)
- (variable-bound?
- #{old\ 1863}#)
- #f)
- (module-define!
- (current-module)
- #{n\ 1854}#
- (variable-ref #{old\ 1863}#))
- (module-add!
- (current-module)
- #{n\ 1854}#
- (make-undefined-variable))))))
- (begin
- (let ((#{x\ 1868}#
- (#{build-global-definition\ 321}#
- #{s\ 1771}#
- #{n\ 1854}#
- (#{chi\ 461}#
- #{e\ 1769}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{mod\ 1772}#))))
- (begin
- (if (eq? #{m\ 1744}# 'c&e)
- (#{top-level-eval-hook\ 290}#
- #{x\ 1868}#
- #{mod\ 1772}#))
- #{x\ 1868}#))))
- (if (eqv? #{type\ 1856}#
- 'displaced-lexical)
- (syntax-violation
- #f
- "identifier out of context"
- #{e\ 1769}#
- (#{wrap\ 445}#
- #{value\ 1768}#
- #{w\ 1770}#
- #{mod\ 1772}#))
- (syntax-violation
- #f
- "cannot define keyword at top level"
- #{e\ 1769}#
- (#{wrap\ 445}#
- #{value\ 1768}#
- #{w\ 1770}#
- #{mod\ 1772}#))))))))
- (begin
- (let ((#{x\ 1874}#
- (#{chi-expr\ 463}#
- #{type\ 1767}#
- #{value\ 1768}#
- #{e\ 1769}#
- #{r\ 1742}#
- #{w\ 1770}#
- #{s\ 1771}#
- #{mod\ 1772}#)))
- (begin
- (if (eq? #{m\ 1744}# 'c&e)
- (#{top-level-eval-hook\ 290}#
- #{x\ 1874}#
- #{mod\ 1772}#))
- #{x\ 1874}#))))))))))))
- (#{chi\ 461}#
- (lambda (#{e\ 1875}#
- #{r\ 1876}#
- #{w\ 1877}#
- #{mod\ 1878}#)
- (call-with-values
- (lambda ()
- (#{syntax-type\ 457}#
- #{e\ 1875}#
- #{r\ 1876}#
- #{w\ 1877}#
- (#{source-annotation\ 360}# #{e\ 1875}#)
- #f
- #{mod\ 1878}#
- #f))
- (lambda (#{type\ 1883}#
- #{value\ 1884}#
- #{e\ 1885}#
- #{w\ 1886}#
- #{s\ 1887}#
- #{mod\ 1888}#)
- (#{chi-expr\ 463}#
- #{type\ 1883}#
- #{value\ 1884}#
- #{e\ 1885}#
- #{r\ 1876}#
- #{w\ 1886}#
- #{s\ 1887}#
- #{mod\ 1888}#)))))
- (#{chi-expr\ 463}#
- (lambda (#{type\ 1895}#
- #{value\ 1896}#
- #{e\ 1897}#
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#)
- (if (eqv? #{type\ 1895}# 'lexical)
- (#{build-lexical-reference\ 311}#
+ (lambda (#{type\ 1877}#
+ #{value\ 1878}#
+ #{e\ 1879}#
+ #{w\ 1880}#
+ #{s\ 1881}#
+ #{mod\ 1882}#)
+ (#{chi-expr\ 462}#
+ #{type\ 1877}#
+ #{value\ 1878}#
+ #{e\ 1879}#
+ #{r\ 1870}#
+ #{w\ 1880}#
+ #{s\ 1881}#
+ #{mod\ 1882}#)))))
+ (#{chi-expr\ 462}#
+ (lambda (#{type\ 1889}#
+ #{value\ 1890}#
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#)
+ (if (eqv? #{type\ 1889}# 'lexical)
+ (#{build-lexical-reference\ 312}#
'value
- #{s\ 1900}#
- #{e\ 1897}#
- #{value\ 1896}#)
- (if (if (eqv? #{type\ 1895}# 'core)
+ #{s\ 1894}#
+ #{e\ 1891}#
+ #{value\ 1890}#)
+ (if (if (eqv? #{type\ 1889}# 'core)
#t
- (eqv? #{type\ 1895}# 'core-form))
- (#{value\ 1896}#
- #{e\ 1897}#
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#)
- (if (eqv? #{type\ 1895}# 'module-ref)
+ (eqv? #{type\ 1889}# 'core-form))
+ (#{value\ 1890}#
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#)
+ (if (eqv? #{type\ 1889}# 'module-ref)
(call-with-values
(lambda ()
- (#{value\ 1896}#
- #{e\ 1897}#
- #{r\ 1898}#
- #{w\ 1899}#))
- (lambda (#{e\ 1912}#
- #{r\ 1913}#
- #{w\ 1914}#
- #{s\ 1915}#
- #{mod\ 1916}#)
- (#{chi\ 461}#
- #{e\ 1912}#
- #{r\ 1913}#
- #{w\ 1914}#
- #{mod\ 1916}#)))
- (if (eqv? #{type\ 1895}# 'lexical-call)
- (#{chi-application\ 465}#
+ (#{value\ 1890}#
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#))
+ (lambda (#{e\ 1906}#
+ #{r\ 1907}#
+ #{w\ 1908}#
+ #{s\ 1909}#
+ #{mod\ 1910}#)
+ (#{chi\ 460}#
+ #{e\ 1906}#
+ #{r\ 1907}#
+ #{w\ 1908}#
+ #{mod\ 1910}#)))
+ (if (eqv? #{type\ 1889}# 'lexical-call)
+ (#{chi-application\ 464}#
(begin
- (let ((#{id\ 1924}# (car #{e\ 1897}#)))
- (#{build-lexical-reference\ 311}#
+ (let ((#{id\ 1918}# (car #{e\ 1891}#)))
+ (#{build-lexical-reference\ 312}#
'fun
- (#{source-annotation\ 360}# #{id\ 1924}#)
- (if (#{syntax-object?\ 345}# #{id\ 1924}#)
- (syntax->datum #{id\ 1924}#)
- #{id\ 1924}#)
- #{value\ 1896}#)))
- #{e\ 1897}#
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#)
- (if (eqv? #{type\ 1895}# 'global-call)
- (#{chi-application\ 465}#
- (#{build-global-reference\ 317}#
- (#{source-annotation\ 360}# (car #{e\ 1897}#))
- (if (#{syntax-object?\ 345}# #{value\ 1896}#)
- (#{syntax-object-expression\ 347}#
- #{value\ 1896}#)
- #{value\ 1896}#)
- (if (#{syntax-object?\ 345}# #{value\ 1896}#)
- (#{syntax-object-module\ 351}# #{value\ 1896}#)
- #{mod\ 1901}#))
- #{e\ 1897}#
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#)
- (if (eqv? #{type\ 1895}# 'constant)
- (#{build-data\ 331}#
- #{s\ 1900}#
- (#{strip\ 487}#
- (#{source-wrap\ 447}#
- #{e\ 1897}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#)
+ (#{source-annotation\ 361}# #{id\ 1918}#)
+ (if (#{syntax-object?\ 346}# #{id\ 1918}#)
+ (syntax->datum #{id\ 1918}#)
+ #{id\ 1918}#)
+ #{value\ 1890}#)))
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#)
+ (if (eqv? #{type\ 1889}# 'global-call)
+ (#{chi-application\ 464}#
+ (#{build-global-reference\ 318}#
+ (#{source-annotation\ 361}# (car #{e\ 1891}#))
+ (if (#{syntax-object?\ 346}# #{value\ 1890}#)
+ (#{syntax-object-expression\ 348}#
+ #{value\ 1890}#)
+ #{value\ 1890}#)
+ (if (#{syntax-object?\ 346}# #{value\ 1890}#)
+ (#{syntax-object-module\ 352}# #{value\ 1890}#)
+ #{mod\ 1895}#))
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#)
+ (if (eqv? #{type\ 1889}# 'constant)
+ (#{build-data\ 332}#
+ #{s\ 1894}#
+ (#{strip\ 486}#
+ (#{source-wrap\ 448}#
+ #{e\ 1891}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#)
'(())))
- (if (eqv? #{type\ 1895}# 'global)
- (#{build-global-reference\ 317}#
- #{s\ 1900}#
- #{value\ 1896}#
- #{mod\ 1901}#)
- (if (eqv? #{type\ 1895}# 'call)
- (#{chi-application\ 465}#
- (#{chi\ 461}#
- (car #{e\ 1897}#)
- #{r\ 1898}#
- #{w\ 1899}#
- #{mod\ 1901}#)
- #{e\ 1897}#
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#)
- (if (eqv? #{type\ 1895}# 'begin-form)
- (let ((#{tmp\ 1931}# #{e\ 1897}#))
- (let ((#{tmp\ 1932}#
+ (if (eqv? #{type\ 1889}# 'global)
+ (#{build-global-reference\ 318}#
+ #{s\ 1894}#
+ #{value\ 1890}#
+ #{mod\ 1895}#)
+ (if (eqv? #{type\ 1889}# 'call)
+ (#{chi-application\ 464}#
+ (#{chi\ 460}#
+ (car #{e\ 1891}#)
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{mod\ 1895}#)
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#)
+ (if (eqv? #{type\ 1889}# 'begin-form)
+ (let ((#{tmp\ 1925}# #{e\ 1891}#))
+ (let ((#{tmp\ 1926}#
($sc-dispatch
- #{tmp\ 1931}#
+ #{tmp\ 1925}#
'(_ any . each-any))))
- (if #{tmp\ 1932}#
+ (if #{tmp\ 1926}#
(@apply
- (lambda (#{e1\ 1935}# #{e2\ 1936}#)
- (#{chi-sequence\ 449}#
- (cons #{e1\ 1935}# #{e2\ 1936}#)
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#))
- #{tmp\ 1932}#)
+ (lambda (#{e1\ 1929}# #{e2\ 1930}#)
+ (#{chi-sequence\ 450}#
+ (cons #{e1\ 1929}# #{e2\ 1930}#)
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#))
+ #{tmp\ 1926}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1931}#))))
- (if (eqv? #{type\ 1895}# 'local-syntax-form)
- (#{chi-local-syntax\ 471}#
- #{value\ 1896}#
- #{e\ 1897}#
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#
- #{chi-sequence\ 449}#)
- (if (eqv? #{type\ 1895}# 'eval-when-form)
- (let ((#{tmp\ 1940}# #{e\ 1897}#))
- (let ((#{tmp\ 1941}#
+ #{tmp\ 1925}#))))
+ (if (eqv? #{type\ 1889}# 'local-syntax-form)
+ (#{chi-local-syntax\ 470}#
+ #{value\ 1890}#
+ #{e\ 1891}#
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#
+ #{chi-sequence\ 450}#)
+ (if (eqv? #{type\ 1889}# 'eval-when-form)
+ (let ((#{tmp\ 1934}# #{e\ 1891}#))
+ (let ((#{tmp\ 1935}#
($sc-dispatch
- #{tmp\ 1940}#
+ #{tmp\ 1934}#
'(_ each-any any . each-any))))
- (if #{tmp\ 1941}#
+ (if #{tmp\ 1935}#
(@apply
- (lambda (#{x\ 1945}#
- #{e1\ 1946}#
- #{e2\ 1947}#)
+ (lambda (#{x\ 1939}#
+ #{e1\ 1940}#
+ #{e2\ 1941}#)
(begin
- (let ((#{when-list\ 1949}#
- (#{chi-when-list\ 455}#
- #{e\ 1897}#
- #{x\ 1945}#
- #{w\ 1899}#)))
+ (let ((#{when-list\ 1943}#
+ (#{chi-when-list\ 456}#
+ #{e\ 1891}#
+ #{x\ 1939}#
+ #{w\ 1893}#)))
(if (memq 'eval
- #{when-list\ 1949}#)
- (#{chi-sequence\ 449}#
- (cons #{e1\ 1946}#
- #{e2\ 1947}#)
- #{r\ 1898}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#)
- (#{chi-void\ 475}#)))))
- #{tmp\ 1941}#)
+ #{when-list\ 1943}#)
+ (#{chi-sequence\ 450}#
+ (cons #{e1\ 1940}#
+ #{e2\ 1941}#)
+ #{r\ 1892}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#)
+ (#{chi-void\ 474}#)))))
+ #{tmp\ 1935}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1940}#))))
- (if (if (eqv? #{type\ 1895}# 'define-form)
+ #{tmp\ 1934}#))))
+ (if (if (eqv? #{type\ 1889}# 'define-form)
#t
- (eqv? #{type\ 1895}#
+ (eqv? #{type\ 1889}#
'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1897}#
- (#{wrap\ 445}#
- #{value\ 1896}#
- #{w\ 1899}#
- #{mod\ 1901}#))
- (if (eqv? #{type\ 1895}# 'syntax)
+ #{e\ 1891}#
+ (#{wrap\ 446}#
+ #{value\ 1890}#
+ #{w\ 1893}#
+ #{mod\ 1895}#))
+ (if (eqv? #{type\ 1889}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 447}#
- #{e\ 1897}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#))
- (if (eqv? #{type\ 1895}#
+ (#{source-wrap\ 448}#
+ #{e\ 1891}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#))
+ (if (eqv? #{type\ 1889}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 447}#
- #{e\ 1897}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#))
+ (#{source-wrap\ 448}#
+ #{e\ 1891}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 447}#
- #{e\ 1897}#
- #{w\ 1899}#
- #{s\ 1900}#
- #{mod\ 1901}#))))))))))))))))))
- (#{chi-application\ 465}#
- (lambda (#{x\ 1956}#
- #{e\ 1957}#
- #{r\ 1958}#
- #{w\ 1959}#
- #{s\ 1960}#
- #{mod\ 1961}#)
- (let ((#{tmp\ 1968}# #{e\ 1957}#))
- (let ((#{tmp\ 1969}#
- ($sc-dispatch #{tmp\ 1968}# '(any . each-any))))
- (if #{tmp\ 1969}#
+ (#{source-wrap\ 448}#
+ #{e\ 1891}#
+ #{w\ 1893}#
+ #{s\ 1894}#
+ #{mod\ 1895}#))))))))))))))))))
+ (#{chi-application\ 464}#
+ (lambda (#{x\ 1950}#
+ #{e\ 1951}#
+ #{r\ 1952}#
+ #{w\ 1953}#
+ #{s\ 1954}#
+ #{mod\ 1955}#)
+ (let ((#{tmp\ 1962}# #{e\ 1951}#))
+ (let ((#{tmp\ 1963}#
+ ($sc-dispatch #{tmp\ 1962}# '(any . each-any))))
+ (if #{tmp\ 1963}#
(@apply
- (lambda (#{e0\ 1972}# #{e1\ 1973}#)
- (#{build-application\ 305}#
- #{s\ 1960}#
- #{x\ 1956}#
- (map (lambda (#{e\ 1974}#)
- (#{chi\ 461}#
- #{e\ 1974}#
- #{r\ 1958}#
- #{w\ 1959}#
- #{mod\ 1961}#))
- #{e1\ 1973}#)))
- #{tmp\ 1969}#)
+ (lambda (#{e0\ 1966}# #{e1\ 1967}#)
+ (#{build-application\ 306}#
+ #{s\ 1954}#
+ #{x\ 1950}#
+ (map (lambda (#{e\ 1968}#)
+ (#{chi\ 460}#
+ #{e\ 1968}#
+ #{r\ 1952}#
+ #{w\ 1953}#
+ #{mod\ 1955}#))
+ #{e1\ 1967}#)))
+ #{tmp\ 1963}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1968}#))))))
- (#{chi-macro\ 467}#
- (lambda (#{p\ 1977}#
- #{e\ 1978}#
- #{r\ 1979}#
- #{w\ 1980}#
- #{s\ 1981}#
- #{rib\ 1982}#
- #{mod\ 1983}#)
+ #{tmp\ 1962}#))))))
+ (#{chi-macro\ 466}#
+ (lambda (#{p\ 1971}#
+ #{e\ 1972}#
+ #{r\ 1973}#
+ #{w\ 1974}#
+ #{s\ 1975}#
+ #{rib\ 1976}#
+ #{mod\ 1977}#)
(letrec*
- ((#{rebuild-macro-output\ 1992}#
- (lambda (#{x\ 1993}# #{m\ 1994}#)
- (if (pair? #{x\ 1993}#)
- (#{decorate-source\ 299}#
- (cons (#{rebuild-macro-output\ 1992}#
- (car #{x\ 1993}#)
- #{m\ 1994}#)
- (#{rebuild-macro-output\ 1992}#
- (cdr #{x\ 1993}#)
- #{m\ 1994}#))
- #{s\ 1981}#)
- (if (#{syntax-object?\ 345}# #{x\ 1993}#)
+ ((#{rebuild-macro-output\ 1986}#
+ (lambda (#{x\ 1987}# #{m\ 1988}#)
+ (if (pair? #{x\ 1987}#)
+ (#{decorate-source\ 300}#
+ (cons (#{rebuild-macro-output\ 1986}#
+ (car #{x\ 1987}#)
+ #{m\ 1988}#)
+ (#{rebuild-macro-output\ 1986}#
+ (cdr #{x\ 1987}#)
+ #{m\ 1988}#))
+ #{s\ 1975}#)
+ (if (#{syntax-object?\ 346}# #{x\ 1987}#)
(begin
- (let ((#{w\ 2002}#
- (#{syntax-object-wrap\ 349}# #{x\ 1993}#)))
+ (let ((#{w\ 1996}#
+ (#{syntax-object-wrap\ 350}# #{x\ 1987}#)))
(begin
- (let ((#{ms\ 2005}# (car #{w\ 2002}#))
- (#{s\ 2006}# (cdr #{w\ 2002}#)))
- (if (if (pair? #{ms\ 2005}#)
- (eq? (car #{ms\ 2005}#) #f)
+ (let ((#{ms\ 1999}# (car #{w\ 1996}#))
+ (#{s\ 2000}# (cdr #{w\ 1996}#)))
+ (if (if (pair? #{ms\ 1999}#)
+ (eq? (car #{ms\ 1999}#) #f)
#f)
- (#{make-syntax-object\ 343}#
- (#{syntax-object-expression\ 347}#
- #{x\ 1993}#)
- (cons (cdr #{ms\ 2005}#)
- (if #{rib\ 1982}#
- (cons #{rib\ 1982}#
- (cdr #{s\ 2006}#))
- (cdr #{s\ 2006}#)))
- (#{syntax-object-module\ 351}#
- #{x\ 1993}#))
- (#{make-syntax-object\ 343}#
- (#{decorate-source\ 299}#
- (#{syntax-object-expression\ 347}#
- #{x\ 1993}#)
- #{s\ 2006}#)
- (cons (cons #{m\ 1994}# #{ms\ 2005}#)
- (if #{rib\ 1982}#
- (cons #{rib\ 1982}#
- (cons 'shift #{s\ 2006}#))
- (cons 'shift #{s\ 2006}#)))
- (#{syntax-object-module\ 351}#
- #{x\ 1993}#)))))))
- (if (vector? #{x\ 1993}#)
+ (#{make-syntax-object\ 344}#
+ (#{syntax-object-expression\ 348}#
+ #{x\ 1987}#)
+ (cons (cdr #{ms\ 1999}#)
+ (if #{rib\ 1976}#
+ (cons #{rib\ 1976}#
+ (cdr #{s\ 2000}#))
+ (cdr #{s\ 2000}#)))
+ (#{syntax-object-module\ 352}#
+ #{x\ 1987}#))
+ (#{make-syntax-object\ 344}#
+ (#{decorate-source\ 300}#
+ (#{syntax-object-expression\ 348}#
+ #{x\ 1987}#)
+ #{s\ 2000}#)
+ (cons (cons #{m\ 1988}# #{ms\ 1999}#)
+ (if #{rib\ 1976}#
+ (cons #{rib\ 1976}#
+ (cons 'shift #{s\ 2000}#))
+ (cons 'shift #{s\ 2000}#)))
+ (#{syntax-object-module\ 352}#
+ #{x\ 1987}#)))))))
+ (if (vector? #{x\ 1987}#)
(begin
- (let ((#{n\ 2018}# (vector-length #{x\ 1993}#)))
+ (let ((#{n\ 2012}# (vector-length #{x\ 1987}#)))
(begin
- (let ((#{v\ 2020}#
- (#{decorate-source\ 299}#
- (make-vector #{n\ 2018}#)
- #{x\ 1993}#)))
+ (let ((#{v\ 2014}#
+ (#{decorate-source\ 300}#
+ (make-vector #{n\ 2012}#)
+ #{x\ 1987}#)))
(letrec*
- ((#{loop\ 2023}#
- (lambda (#{i\ 2024}#)
- (if (#{fx=\ 286}#
- #{i\ 2024}#
- #{n\ 2018}#)
- (begin (if #f #f) #{v\ 2020}#)
+ ((#{loop\ 2017}#
+ (lambda (#{i\ 2018}#)
+ (if (#{fx=\ 287}#
+ #{i\ 2018}#
+ #{n\ 2012}#)
+ (begin (if #f #f) #{v\ 2014}#)
(begin
(vector-set!
- #{v\ 2020}#
- #{i\ 2024}#
- (#{rebuild-macro-output\ 1992}#
+ #{v\ 2014}#
+ #{i\ 2018}#
+ (#{rebuild-macro-output\ 1986}#
(vector-ref
- #{x\ 1993}#
- #{i\ 2024}#)
- #{m\ 1994}#))
- (#{loop\ 2023}#
- (#{fx+\ 282}#
- #{i\ 2024}#
+ #{x\ 1987}#
+ #{i\ 2018}#)
+ #{m\ 1988}#))
+ (#{loop\ 2017}#
+ (#{fx+\ 283}#
+ #{i\ 2018}#
1)))))))
- (begin (#{loop\ 2023}# 0)))))))
- (if (symbol? #{x\ 1993}#)
+ (begin (#{loop\ 2017}# 0)))))))
+ (if (symbol? #{x\ 1987}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 447}#
- #{e\ 1978}#
- #{w\ 1980}#
- (cdr #{w\ 1980}#)
- #{mod\ 1983}#)
- #{x\ 1993}#)
- (#{decorate-source\ 299}#
- #{x\ 1993}#
- #{s\ 1981}#))))))))
+ (#{source-wrap\ 448}#
+ #{e\ 1972}#
+ #{w\ 1974}#
+ (cdr #{w\ 1974}#)
+ #{mod\ 1977}#)
+ #{x\ 1987}#)
+ (#{decorate-source\ 300}#
+ #{x\ 1987}#
+ #{s\ 1975}#))))))))
(begin
- (#{rebuild-macro-output\ 1992}#
- (#{p\ 1977}#
- (#{source-wrap\ 447}#
- #{e\ 1978}#
- (#{anti-mark\ 417}# #{w\ 1980}#)
- #{s\ 1981}#
- #{mod\ 1983}#))
+ (#{rebuild-macro-output\ 1986}#
+ (#{p\ 1971}#
+ (#{source-wrap\ 448}#
+ #{e\ 1972}#
+ (#{anti-mark\ 418}# #{w\ 1974}#)
+ #{s\ 1975}#
+ #{mod\ 1977}#))
(gensym "m"))))))
- (#{chi-body\ 469}#
- (lambda (#{body\ 2032}#
- #{outer-form\ 2033}#
- #{r\ 2034}#
- #{w\ 2035}#
- #{mod\ 2036}#)
+ (#{chi-body\ 468}#
+ (lambda (#{body\ 2026}#
+ #{outer-form\ 2027}#
+ #{r\ 2028}#
+ #{w\ 2029}#
+ #{mod\ 2030}#)
(begin
- (let ((#{r\ 2044}#
- (cons '("placeholder" placeholder) #{r\ 2034}#)))
+ (let ((#{r\ 2038}#
+ (cons '("placeholder" placeholder) #{r\ 2028}#)))
(begin
- (let ((#{ribcage\ 2046}#
- (#{make-ribcage\ 397}# '() '() '())))
+ (let ((#{ribcage\ 2040}#
+ (#{make-ribcage\ 398}# '() '() '())))
(begin
- (let ((#{w\ 2049}#
- (cons (car #{w\ 2035}#)
- (cons #{ribcage\ 2046}#
- (cdr #{w\ 2035}#)))))
+ (let ((#{w\ 2043}#
+ (cons (car #{w\ 2029}#)
+ (cons #{ribcage\ 2040}#
+ (cdr #{w\ 2029}#)))))
(letrec*
- ((#{parse\ 2061}#
- (lambda (#{body\ 2062}#
- #{ids\ 2063}#
- #{labels\ 2064}#
- #{var-ids\ 2065}#
- #{vars\ 2066}#
- #{vals\ 2067}#
- #{bindings\ 2068}#)
- (if (null? #{body\ 2062}#)
+ ((#{parse\ 2055}#
+ (lambda (#{body\ 2056}#
+ #{ids\ 2057}#
+ #{labels\ 2058}#
+ #{var-ids\ 2059}#
+ #{vars\ 2060}#
+ #{vals\ 2061}#
+ #{bindings\ 2062}#)
+ (if (null? #{body\ 2056}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 2033}#)
+ #{outer-form\ 2027}#)
(begin
- (let ((#{e\ 2073}#
- (cdr (car #{body\ 2062}#)))
- (#{er\ 2074}#
- (car (car #{body\ 2062}#))))
+ (let ((#{e\ 2067}#
+ (cdr (car #{body\ 2056}#)))
+ (#{er\ 2068}#
+ (car (car #{body\ 2056}#))))
(call-with-values
(lambda ()
- (#{syntax-type\ 457}#
- #{e\ 2073}#
- #{er\ 2074}#
+ (#{syntax-type\ 458}#
+ #{e\ 2067}#
+ #{er\ 2068}#
'(())
- (#{source-annotation\ 360}#
- #{er\ 2074}#)
- #{ribcage\ 2046}#
- #{mod\ 2036}#
+ (#{source-annotation\ 361}#
+ #{er\ 2068}#)
+ #{ribcage\ 2040}#
+ #{mod\ 2030}#
#f))
- (lambda (#{type\ 2076}#
- #{value\ 2077}#
- #{e\ 2078}#
- #{w\ 2079}#
- #{s\ 2080}#
- #{mod\ 2081}#)
- (if (eqv? #{type\ 2076}#
+ (lambda (#{type\ 2070}#
+ #{value\ 2071}#
+ #{e\ 2072}#
+ #{w\ 2073}#
+ #{s\ 2074}#
+ #{mod\ 2075}#)
+ (if (eqv? #{type\ 2070}#
'define-form)
(begin
- (let ((#{id\ 2091}#
- (#{wrap\ 445}#
- #{value\ 2077}#
- #{w\ 2079}#
- #{mod\ 2081}#))
- (#{label\ 2092}#
- (#{gen-label\ 392}#)))
+ (let ((#{id\ 2085}#
+ (#{wrap\ 446}#
+ #{value\ 2071}#
+ #{w\ 2073}#
+ #{mod\ 2075}#))
+ (#{label\ 2086}#
+ (#{gen-label\ 393}#)))
(begin
- (let ((#{var\ 2094}#
- (#{gen-var\ 489}#
- #{id\ 2091}#)))
+ (let ((#{var\ 2088}#
+ (#{gen-var\ 488}#
+ #{id\ 2085}#)))
(begin
- (#{extend-ribcage!\ 421}#
- #{ribcage\ 2046}#
- #{id\ 2091}#
- #{label\ 2092}#)
- (#{parse\ 2061}#
- (cdr #{body\ 2062}#)
- (cons #{id\ 2091}#
- #{ids\ 2063}#)
- (cons #{label\ 2092}#
- #{labels\ 2064}#)
- (cons #{id\ 2091}#
- #{var-ids\ 2065}#)
- (cons #{var\ 2094}#
- #{vars\ 2066}#)
- (cons (cons #{er\ 2074}#
- (#{wrap\ 445}#
- #{e\ 2078}#
- #{w\ 2079}#
- #{mod\ 2081}#))
- #{vals\ 2067}#)
+ (#{extend-ribcage!\ 422}#
+ #{ribcage\ 2040}#
+ #{id\ 2085}#
+ #{label\ 2086}#)
+ (#{parse\ 2055}#
+ (cdr #{body\ 2056}#)
+ (cons #{id\ 2085}#
+ #{ids\ 2057}#)
+ (cons #{label\ 2086}#
+ #{labels\ 2058}#)
+ (cons #{id\ 2085}#
+ #{var-ids\ 2059}#)
+ (cons #{var\ 2088}#
+ #{vars\ 2060}#)
+ (cons (cons #{er\ 2068}#
+ (#{wrap\ 446}#
+ #{e\ 2072}#
+ #{w\ 2073}#
+ #{mod\ 2075}#))
+ #{vals\ 2061}#)
(cons (cons 'lexical
- #{var\ 2094}#)
- #{bindings\ 2068}#)))))))
- (if (eqv? #{type\ 2076}#
+ #{var\ 2088}#)
+ #{bindings\ 2062}#)))))))
+ (if (eqv? #{type\ 2070}#
'define-syntax-form)
(begin
- (let ((#{id\ 2099}#
- (#{wrap\ 445}#
- #{value\ 2077}#
- #{w\ 2079}#
- #{mod\ 2081}#))
- (#{label\ 2100}#
- (#{gen-label\ 392}#)))
+ (let ((#{id\ 2093}#
+ (#{wrap\ 446}#
+ #{value\ 2071}#
+ #{w\ 2073}#
+ #{mod\ 2075}#))
+ (#{label\ 2094}#
+ (#{gen-label\ 393}#)))
(begin
- (#{extend-ribcage!\ 421}#
- #{ribcage\ 2046}#
- #{id\ 2099}#
- #{label\ 2100}#)
- (#{parse\ 2061}#
- (cdr #{body\ 2062}#)
- (cons #{id\ 2099}#
- #{ids\ 2063}#)
- (cons #{label\ 2100}#
- #{labels\ 2064}#)
- #{var-ids\ 2065}#
- #{vars\ 2066}#
- #{vals\ 2067}#
+ (#{extend-ribcage!\ 422}#
+ #{ribcage\ 2040}#
+ #{id\ 2093}#
+ #{label\ 2094}#)
+ (#{parse\ 2055}#
+ (cdr #{body\ 2056}#)
+ (cons #{id\ 2093}#
+ #{ids\ 2057}#)
+ (cons #{label\ 2094}#
+ #{labels\ 2058}#)
+ #{var-ids\ 2059}#
+ #{vars\ 2060}#
+ #{vals\ 2061}#
(cons (cons 'macro
- (cons #{er\ 2074}#
- (#{wrap\ 445}#
- #{e\ 2078}#
- #{w\ 2079}#
- #{mod\ 2081}#)))
- #{bindings\ 2068}#)))))
- (if (eqv? #{type\ 2076}#
+ (cons #{er\ 2068}#
+ (#{wrap\ 446}#
+ #{e\ 2072}#
+ #{w\ 2073}#
+ #{mod\ 2075}#)))
+ #{bindings\ 2062}#)))))
+ (if (eqv? #{type\ 2070}#
'begin-form)
- (let ((#{tmp\ 2103}#
- #{e\ 2078}#))
- (let ((#{tmp\ 2104}#
+ (let ((#{tmp\ 2097}#
+ #{e\ 2072}#))
+ (let ((#{tmp\ 2098}#
($sc-dispatch
- #{tmp\ 2103}#
+ #{tmp\ 2097}#
'(_ . each-any))))
- (if #{tmp\ 2104}#
+ (if #{tmp\ 2098}#
(@apply
- (lambda (#{e1\ 2106}#)
- (#{parse\ 2061}#
+ (lambda (#{e1\ 2100}#)
+ (#{parse\ 2055}#
(letrec*
- ((#{f\ 2109}#
- (lambda (#{forms\ 2110}#)
- (if (null? #{forms\ 2110}#)
- (cdr #{body\ 2062}#)
- (cons (cons #{er\ 2074}#
- (#{wrap\ 445}#
- (car #{forms\ 2110}#)
- #{w\ 2079}#
- #{mod\ 2081}#))
- (#{f\ 2109}#
- (cdr #{forms\ 2110}#)))))))
+ ((#{f\ 2103}#
+ (lambda (#{forms\ 2104}#)
+ (if (null? #{forms\ 2104}#)
+ (cdr #{body\ 2056}#)
+ (cons (cons #{er\ 2068}#
+ (#{wrap\ 446}#
+ (car #{forms\ 2104}#)
+ #{w\ 2073}#
+ #{mod\ 2075}#))
+ (#{f\ 2103}#
+ (cdr #{forms\ 2104}#)))))))
(begin
- (#{f\ 2109}#
- #{e1\ 2106}#)))
- #{ids\ 2063}#
- #{labels\ 2064}#
- #{var-ids\ 2065}#
- #{vars\ 2066}#
- #{vals\ 2067}#
- #{bindings\ 2068}#))
- #{tmp\ 2104}#)
+ (#{f\ 2103}#
+ #{e1\ 2100}#)))
+ #{ids\ 2057}#
+ #{labels\ 2058}#
+ #{var-ids\ 2059}#
+ #{vars\ 2060}#
+ #{vals\ 2061}#
+ #{bindings\ 2062}#))
+ #{tmp\ 2098}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2103}#))))
- (if (eqv? #{type\ 2076}#
+ #{tmp\ 2097}#))))
+ (if (eqv? #{type\ 2070}#
'local-syntax-form)
- (#{chi-local-syntax\ 471}#
- #{value\ 2077}#
- #{e\ 2078}#
- #{er\ 2074}#
- #{w\ 2079}#
- #{s\ 2080}#
- #{mod\ 2081}#
- (lambda (#{forms\ 2113}#
- #{er\ 2114}#
- #{w\ 2115}#
- #{s\ 2116}#
- #{mod\ 2117}#)
- (#{parse\ 2061}#
+ (#{chi-local-syntax\ 470}#
+ #{value\ 2071}#
+ #{e\ 2072}#
+ #{er\ 2068}#
+ #{w\ 2073}#
+ #{s\ 2074}#
+ #{mod\ 2075}#
+ (lambda (#{forms\ 2107}#
+ #{er\ 2108}#
+ #{w\ 2109}#
+ #{s\ 2110}#
+ #{mod\ 2111}#)
+ (#{parse\ 2055}#
(letrec*
- ((#{f\ 2125}#
- (lambda (#{forms\ 2126}#)
- (if (null? #{forms\ 2126}#)
- (cdr #{body\ 2062}#)
- (cons (cons #{er\ 2114}#
- (#{wrap\ 445}#
- (car #{forms\ 2126}#)
- #{w\ 2115}#
- #{mod\ 2117}#))
- (#{f\ 2125}#
- (cdr #{forms\ 2126}#)))))))
+ ((#{f\ 2119}#
+ (lambda (#{forms\ 2120}#)
+ (if (null? #{forms\ 2120}#)
+ (cdr #{body\ 2056}#)
+ (cons (cons #{er\ 2108}#
+ (#{wrap\ 446}#
+ (car #{forms\ 2120}#)
+ #{w\ 2109}#
+ #{mod\ 2111}#))
+ (#{f\ 2119}#
+ (cdr #{forms\ 2120}#)))))))
(begin
- (#{f\ 2125}#
- #{forms\ 2113}#)))
- #{ids\ 2063}#
- #{labels\ 2064}#
- #{var-ids\ 2065}#
- #{vars\ 2066}#
- #{vals\ 2067}#
- #{bindings\ 2068}#)))
- (if (null? #{ids\ 2063}#)
- (#{build-sequence\ 333}#
+ (#{f\ 2119}#
+ #{forms\ 2107}#)))
+ #{ids\ 2057}#
+ #{labels\ 2058}#
+ #{var-ids\ 2059}#
+ #{vars\ 2060}#
+ #{vals\ 2061}#
+ #{bindings\ 2062}#)))
+ (if (null? #{ids\ 2057}#)
+ (#{build-sequence\ 334}#
#f
- (map (lambda (#{x\ 2129}#)
- (#{chi\ 461}#
- (cdr #{x\ 2129}#)
- (car #{x\ 2129}#)
+ (map (lambda (#{x\ 2123}#)
+ (#{chi\ 460}#
+ (cdr #{x\ 2123}#)
+ (car #{x\ 2123}#)
'(())
- #{mod\ 2081}#))
- (cons (cons #{er\ 2074}#
- (#{source-wrap\ 447}#
- #{e\ 2078}#
- #{w\ 2079}#
- #{s\ 2080}#
- #{mod\ 2081}#))
- (cdr #{body\ 2062}#))))
+ #{mod\ 2075}#))
+ (cons (cons #{er\ 2068}#
+ (#{source-wrap\ 448}#
+ #{e\ 2072}#
+ #{w\ 2073}#
+ #{s\ 2074}#
+ #{mod\ 2075}#))
+ (cdr #{body\ 2056}#))))
(begin
- (if (not (#{valid-bound-ids?\ 439}#
- #{ids\ 2063}#))
+ (if (not (#{valid-bound-ids?\ 440}#
+ #{ids\ 2057}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 2033}#))
+ #{outer-form\ 2027}#))
(letrec*
- ((#{loop\ 2136}#
- (lambda (#{bs\ 2137}#
- #{er-cache\ 2138}#
- #{r-cache\ 2139}#)
- (if (not (null? #{bs\ 2137}#))
+ ((#{loop\ 2130}#
+ (lambda (#{bs\ 2131}#
+ #{er-cache\ 2132}#
+ #{r-cache\ 2133}#)
+ (if (not (null? #{bs\ 2131}#))
(begin
- (let ((#{b\ 2142}#
- (car #{bs\ 2137}#)))
- (if (eq? (car #{b\ 2142}#)
+ (let ((#{b\ 2136}#
+ (car #{bs\ 2131}#)))
+ (if (eq? (car #{b\ 2136}#)
'macro)
(begin
- (let ((#{er\ 2145}#
- (car (cdr #{b\ 2142}#))))
+ (let ((#{er\ 2139}#
+ (car (cdr #{b\ 2136}#))))
(begin
- (let ((#{r-cache\ 2147}#
- (if (eq? #{er\ 2145}#
- #{er-cache\ 2138}#)
- #{r-cache\ 2139}#
- (#{macros-only-env\ 371}#
- #{er\ 2145}#))))
+ (let ((#{r-cache\ 2141}#
+ (if (eq? #{er\ 2139}#
+ #{er-cache\ 2132}#)
+ #{r-cache\ 2133}#
+ (#{macros-only-env\ 372}#
+ #{er\ 2139}#))))
(begin
(set-cdr!
- #{b\ 2142}#
- (#{eval-local-transformer\ 473}#
- (#{chi\ 461}#
- (cdr (cdr #{b\ 2142}#))
- #{r-cache\ 2147}#
+ #{b\ 2136}#
+ (#{eval-local-transformer\ 472}#
+ (#{chi\ 460}#
+ (cdr (cdr #{b\ 2136}#))
+ #{r-cache\ 2141}#
'(())
- #{mod\ 2081}#)
- #{mod\ 2081}#))
- (#{loop\ 2136}#
- (cdr #{bs\ 2137}#)
- #{er\ 2145}#
- #{r-cache\ 2147}#))))))
- (#{loop\ 2136}#
- (cdr #{bs\ 2137}#)
- #{er-cache\ 2138}#
- #{r-cache\ 2139}#))))))))
+ #{mod\ 2075}#)
+ #{mod\ 2075}#))
+ (#{loop\ 2130}#
+ (cdr #{bs\ 2131}#)
+ #{er\ 2139}#
+ #{r-cache\ 2141}#))))))
+ (#{loop\ 2130}#
+ (cdr #{bs\ 2131}#)
+ #{er-cache\ 2132}#
+ #{r-cache\ 2133}#))))))))
(begin
- (#{loop\ 2136}#
- #{bindings\ 2068}#
+ (#{loop\ 2130}#
+ #{bindings\ 2062}#
#f
#f)))
(set-cdr!
- #{r\ 2044}#
- (#{extend-env\ 367}#
- #{labels\ 2064}#
- #{bindings\ 2068}#
- (cdr #{r\ 2044}#)))
- (#{build-letrec\ 339}#
+ #{r\ 2038}#
+ (#{extend-env\ 368}#
+ #{labels\ 2058}#
+ #{bindings\ 2062}#
+ (cdr #{r\ 2038}#)))
+ (#{build-letrec\ 340}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids\ 2065}#))
+ #{var-ids\ 2059}#))
(reverse
- #{vars\ 2066}#)
- (map (lambda (#{x\ 2150}#)
- (#{chi\ 461}#
- (cdr #{x\ 2150}#)
- (car #{x\ 2150}#)
+ #{vars\ 2060}#)
+ (map (lambda (#{x\ 2144}#)
+ (#{chi\ 460}#
+ (cdr #{x\ 2144}#)
+ (car #{x\ 2144}#)
'(())
- #{mod\ 2081}#))
+ #{mod\ 2075}#))
(reverse
- #{vals\ 2067}#))
- (#{build-sequence\ 333}#
+ #{vals\ 2061}#))
+ (#{build-sequence\ 334}#
#f
- (map (lambda (#{x\ 2154}#)
- (#{chi\ 461}#
- (cdr #{x\ 2154}#)
- (car #{x\ 2154}#)
+ (map (lambda (#{x\ 2148}#)
+ (#{chi\ 460}#
+ (cdr #{x\ 2148}#)
+ (car #{x\ 2148}#)
'(())
- #{mod\ 2081}#))
- (cons (cons #{er\ 2074}#
- (#{source-wrap\ 447}#
- #{e\ 2078}#
- #{w\ 2079}#
- #{s\ 2080}#
- #{mod\ 2081}#))
- (cdr #{body\ 2062}#)))))))))))))))))))
+ #{mod\ 2075}#))
+ (cons (cons #{er\ 2068}#
+ (#{source-wrap\ 448}#
+ #{e\ 2072}#
+ #{w\ 2073}#
+ #{s\ 2074}#
+ #{mod\ 2075}#))
+ (cdr #{body\ 2056}#)))))))))))))))))))
(begin
- (#{parse\ 2061}#
- (map (lambda (#{x\ 2069}#)
- (cons #{r\ 2044}#
- (#{wrap\ 445}#
- #{x\ 2069}#
- #{w\ 2049}#
- #{mod\ 2036}#)))
- #{body\ 2032}#)
+ (#{parse\ 2055}#
+ (map (lambda (#{x\ 2063}#)
+ (cons #{r\ 2038}#
+ (#{wrap\ 446}#
+ #{x\ 2063}#
+ #{w\ 2043}#
+ #{mod\ 2030}#)))
+ #{body\ 2026}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax\ 471}#
- (lambda (#{rec?\ 2157}#
- #{e\ 2158}#
- #{r\ 2159}#
- #{w\ 2160}#
- #{s\ 2161}#
- #{mod\ 2162}#
- #{k\ 2163}#)
- (let ((#{tmp\ 2171}# #{e\ 2158}#))
- (let ((#{tmp\ 2172}#
+ (#{chi-local-syntax\ 470}#
+ (lambda (#{rec?\ 2151}#
+ #{e\ 2152}#
+ #{r\ 2153}#
+ #{w\ 2154}#
+ #{s\ 2155}#
+ #{mod\ 2156}#
+ #{k\ 2157}#)
+ (let ((#{tmp\ 2165}# #{e\ 2152}#))
+ (let ((#{tmp\ 2166}#
($sc-dispatch
- #{tmp\ 2171}#
+ #{tmp\ 2165}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 2172}#
+ (if #{tmp\ 2166}#
(@apply
- (lambda (#{id\ 2177}#
- #{val\ 2178}#
- #{e1\ 2179}#
- #{e2\ 2180}#)
+ (lambda (#{id\ 2171}#
+ #{val\ 2172}#
+ #{e1\ 2173}#
+ #{e2\ 2174}#)
(begin
- (let ((#{ids\ 2182}# #{id\ 2177}#))
- (if (not (#{valid-bound-ids?\ 439}# #{ids\ 2182}#))
+ (let ((#{ids\ 2176}# #{id\ 2171}#))
+ (if (not (#{valid-bound-ids?\ 440}# #{ids\ 2176}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 2158}#)
+ #{e\ 2152}#)
(begin
- (let ((#{labels\ 2185}#
- (#{gen-labels\ 394}# #{ids\ 2182}#)))
+ (let ((#{labels\ 2179}#
+ (#{gen-labels\ 395}# #{ids\ 2176}#)))
(begin
- (let ((#{new-w\ 2187}#
- (#{make-binding-wrap\ 423}#
- #{ids\ 2182}#
- #{labels\ 2185}#
- #{w\ 2160}#)))
- (#{k\ 2163}#
- (cons #{e1\ 2179}# #{e2\ 2180}#)
- (#{extend-env\ 367}#
- #{labels\ 2185}#
+ (let ((#{new-w\ 2181}#
+ (#{make-binding-wrap\ 424}#
+ #{ids\ 2176}#
+ #{labels\ 2179}#
+ #{w\ 2154}#)))
+ (#{k\ 2157}#
+ (cons #{e1\ 2173}# #{e2\ 2174}#)
+ (#{extend-env\ 368}#
+ #{labels\ 2179}#
(begin
- (let ((#{w\ 2191}#
- (if #{rec?\ 2157}#
- #{new-w\ 2187}#
- #{w\ 2160}#))
- (#{trans-r\ 2192}#
- (#{macros-only-env\ 371}#
- #{r\ 2159}#)))
- (map (lambda (#{x\ 2193}#)
+ (let ((#{w\ 2185}#
+ (if #{rec?\ 2151}#
+ #{new-w\ 2181}#
+ #{w\ 2154}#))
+ (#{trans-r\ 2186}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2153}#)))
+ (map (lambda (#{x\ 2187}#)
(cons 'macro
- (#{eval-local-transformer\ 473}#
- (#{chi\ 461}#
- #{x\ 2193}#
- #{trans-r\ 2192}#
- #{w\ 2191}#
- #{mod\ 2162}#)
- #{mod\ 2162}#)))
- #{val\ 2178}#)))
- #{r\ 2159}#)
- #{new-w\ 2187}#
- #{s\ 2161}#
- #{mod\ 2162}#)))))))))
- #{tmp\ 2172}#)
- (let ((#{_\ 2198}# #{tmp\ 2171}#))
+ (#{eval-local-transformer\ 472}#
+ (#{chi\ 460}#
+ #{x\ 2187}#
+ #{trans-r\ 2186}#
+ #{w\ 2185}#
+ #{mod\ 2156}#)
+ #{mod\ 2156}#)))
+ #{val\ 2172}#)))
+ #{r\ 2153}#)
+ #{new-w\ 2181}#
+ #{s\ 2155}#
+ #{mod\ 2156}#)))))))))
+ #{tmp\ 2166}#)
+ (let ((#{_\ 2192}# #{tmp\ 2165}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 447}#
- #{e\ 2158}#
- #{w\ 2160}#
- #{s\ 2161}#
- #{mod\ 2162}#))))))))
- (#{eval-local-transformer\ 473}#
- (lambda (#{expanded\ 2199}# #{mod\ 2200}#)
+ (#{source-wrap\ 448}#
+ #{e\ 2152}#
+ #{w\ 2154}#
+ #{s\ 2155}#
+ #{mod\ 2156}#))))))))
+ (#{eval-local-transformer\ 472}#
+ (lambda (#{expanded\ 2193}# #{mod\ 2194}#)
(begin
- (let ((#{p\ 2204}#
- (#{local-eval-hook\ 292}#
- #{expanded\ 2199}#
- #{mod\ 2200}#)))
- (if (procedure? #{p\ 2204}#)
- #{p\ 2204}#
+ (let ((#{p\ 2198}#
+ (#{local-eval-hook\ 293}#
+ #{expanded\ 2193}#
+ #{mod\ 2194}#)))
+ (if (procedure? #{p\ 2198}#)
+ #{p\ 2198}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 2204}#))))))
- (#{chi-void\ 475}#
- (lambda () (#{build-void\ 303}# #f)))
- (#{ellipsis?\ 477}#
- (lambda (#{x\ 2206}#)
- (if (#{nonsymbol-id?\ 377}# #{x\ 2206}#)
- (#{free-id=?\ 435}#
- #{x\ 2206}#
+ #{p\ 2198}#))))))
+ (#{chi-void\ 474}#
+ (lambda () (#{build-void\ 304}# #f)))
+ (#{ellipsis?\ 476}#
+ (lambda (#{x\ 2200}#)
+ (if (#{nonsymbol-id?\ 378}# #{x\ 2200}#)
+ (#{free-id=?\ 436}#
+ #{x\ 2200}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2207"))
+ #(ribcage #(x) #((top)) #("i2201"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile)))
#f)))
- (#{lambda-formals\ 479}#
- (lambda (#{orig-args\ 2210}#)
+ (#{lambda-formals\ 478}#
+ (lambda (#{orig-args\ 2204}#)
(letrec*
- ((#{req\ 2213}#
- (lambda (#{args\ 2216}# #{rreq\ 2217}#)
- (let ((#{tmp\ 2220}# #{args\ 2216}#))
- (let ((#{tmp\ 2221}# ($sc-dispatch #{tmp\ 2220}# '())))
- (if #{tmp\ 2221}#
+ ((#{req\ 2207}#
+ (lambda (#{args\ 2210}# #{rreq\ 2211}#)
+ (let ((#{tmp\ 2214}# #{args\ 2210}#))
+ (let ((#{tmp\ 2215}# ($sc-dispatch #{tmp\ 2214}# '())))
+ (if #{tmp\ 2215}#
(@apply
(lambda ()
- (#{check\ 2215}# (reverse #{rreq\ 2217}#) #f))
- #{tmp\ 2221}#)
- (let ((#{tmp\ 2222}#
- ($sc-dispatch #{tmp\ 2220}# '(any . any))))
- (if (if #{tmp\ 2222}#
+ (#{check\ 2209}# (reverse #{rreq\ 2211}#) #f))
+ #{tmp\ 2215}#)
+ (let ((#{tmp\ 2216}#
+ ($sc-dispatch #{tmp\ 2214}# '(any . any))))
+ (if (if #{tmp\ 2216}#
(@apply
- (lambda (#{a\ 2225}# #{b\ 2226}#)
- (#{id?\ 379}# #{a\ 2225}#))
- #{tmp\ 2222}#)
+ (lambda (#{a\ 2219}# #{b\ 2220}#)
+ (#{id?\ 380}# #{a\ 2219}#))
+ #{tmp\ 2216}#)
#f)
(@apply
- (lambda (#{a\ 2229}# #{b\ 2230}#)
- (#{req\ 2213}#
- #{b\ 2230}#
- (cons #{a\ 2229}# #{rreq\ 2217}#)))
- #{tmp\ 2222}#)
- (let ((#{tmp\ 2231}# (list #{tmp\ 2220}#)))
- (if (if #{tmp\ 2231}#
+ (lambda (#{a\ 2223}# #{b\ 2224}#)
+ (#{req\ 2207}#
+ #{b\ 2224}#
+ (cons #{a\ 2223}# #{rreq\ 2211}#)))
+ #{tmp\ 2216}#)
+ (let ((#{tmp\ 2225}# (list #{tmp\ 2214}#)))
+ (if (if #{tmp\ 2225}#
(@apply
- (lambda (#{r\ 2233}#)
- (#{id?\ 379}# #{r\ 2233}#))
- #{tmp\ 2231}#)
+ (lambda (#{r\ 2227}#)
+ (#{id?\ 380}# #{r\ 2227}#))
+ #{tmp\ 2225}#)
#f)
(@apply
- (lambda (#{r\ 2235}#)
- (#{check\ 2215}#
- (reverse #{rreq\ 2217}#)
- #{r\ 2235}#))
- #{tmp\ 2231}#)
- (let ((#{else\ 2237}# #{tmp\ 2220}#))
+ (lambda (#{r\ 2229}#)
+ (#{check\ 2209}#
+ (reverse #{rreq\ 2211}#)
+ #{r\ 2229}#))
+ #{tmp\ 2225}#)
+ (let ((#{else\ 2231}# #{tmp\ 2214}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 2210}#
- #{args\ 2216}#)))))))))))
- (#{check\ 2215}#
- (lambda (#{req\ 2238}# #{rest\ 2239}#)
- (if (#{distinct-bound-ids?\ 441}#
- (if #{rest\ 2239}#
- (cons #{rest\ 2239}# #{req\ 2238}#)
- #{req\ 2238}#))
- (values #{req\ 2238}# #f #{rest\ 2239}# #f)
+ #{orig-args\ 2204}#
+ #{args\ 2210}#)))))))))))
+ (#{check\ 2209}#
+ (lambda (#{req\ 2232}# #{rest\ 2233}#)
+ (if (#{distinct-bound-ids?\ 442}#
+ (if #{rest\ 2233}#
+ (cons #{rest\ 2233}# #{req\ 2232}#)
+ #{req\ 2232}#))
+ (values #{req\ 2232}# #f #{rest\ 2233}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 2210}#)))))
- (begin (#{req\ 2213}# #{orig-args\ 2210}# '())))))
- (#{chi-simple-lambda\ 481}#
- (lambda (#{e\ 2245}#
- #{r\ 2246}#
- #{w\ 2247}#
- #{s\ 2248}#
- #{mod\ 2249}#
- #{req\ 2250}#
- #{rest\ 2251}#
- #{meta\ 2252}#
- #{body\ 2253}#)
+ #{orig-args\ 2204}#)))))
+ (begin (#{req\ 2207}# #{orig-args\ 2204}# '())))))
+ (#{chi-simple-lambda\ 480}#
+ (lambda (#{e\ 2239}#
+ #{r\ 2240}#
+ #{w\ 2241}#
+ #{s\ 2242}#
+ #{mod\ 2243}#
+ #{req\ 2244}#
+ #{rest\ 2245}#
+ #{meta\ 2246}#
+ #{body\ 2247}#)
(begin
- (let ((#{ids\ 2265}#
- (if #{rest\ 2251}#
- (append #{req\ 2250}# (list #{rest\ 2251}#))
- #{req\ 2250}#)))
+ (let ((#{ids\ 2259}#
+ (if #{rest\ 2245}#
+ (append #{req\ 2244}# (list #{rest\ 2245}#))
+ #{req\ 2244}#)))
(begin
- (let ((#{vars\ 2267}#
- (map #{gen-var\ 489}# #{ids\ 2265}#)))
+ (let ((#{vars\ 2261}#
+ (map #{gen-var\ 488}# #{ids\ 2259}#)))
(begin
- (let ((#{labels\ 2269}#
- (#{gen-labels\ 394}# #{ids\ 2265}#)))
- (#{build-simple-lambda\ 323}#
- #{s\ 2248}#
- (map syntax->datum #{req\ 2250}#)
- (if #{rest\ 2251}#
- (syntax->datum #{rest\ 2251}#)
+ (let ((#{labels\ 2263}#
+ (#{gen-labels\ 395}# #{ids\ 2259}#)))
+ (#{build-simple-lambda\ 324}#
+ #{s\ 2242}#
+ (map syntax->datum #{req\ 2244}#)
+ (if #{rest\ 2245}#
+ (syntax->datum #{rest\ 2245}#)
#f)
- #{vars\ 2267}#
- #{meta\ 2252}#
- (#{chi-body\ 469}#
- #{body\ 2253}#
- (#{source-wrap\ 447}#
- #{e\ 2245}#
- #{w\ 2247}#
- #{s\ 2248}#
- #{mod\ 2249}#)
- (#{extend-var-env\ 369}#
- #{labels\ 2269}#
- #{vars\ 2267}#
- #{r\ 2246}#)
- (#{make-binding-wrap\ 423}#
- #{ids\ 2265}#
- #{labels\ 2269}#
- #{w\ 2247}#)
- #{mod\ 2249}#))))))))))
- (#{lambda*-formals\ 483}#
- (lambda (#{orig-args\ 2272}#)
+ #{vars\ 2261}#
+ #{meta\ 2246}#
+ (#{chi-body\ 468}#
+ #{body\ 2247}#
+ (#{source-wrap\ 448}#
+ #{e\ 2239}#
+ #{w\ 2241}#
+ #{s\ 2242}#
+ #{mod\ 2243}#)
+ (#{extend-var-env\ 370}#
+ #{labels\ 2263}#
+ #{vars\ 2261}#
+ #{r\ 2240}#)
+ (#{make-binding-wrap\ 424}#
+ #{ids\ 2259}#
+ #{labels\ 2263}#
+ #{w\ 2241}#)
+ #{mod\ 2243}#))))))))))
+ (#{lambda*-formals\ 482}#
+ (lambda (#{orig-args\ 2266}#)
(letrec*
- ((#{req\ 2275}#
- (lambda (#{args\ 2284}# #{rreq\ 2285}#)
- (let ((#{tmp\ 2288}# #{args\ 2284}#))
- (let ((#{tmp\ 2289}# ($sc-dispatch #{tmp\ 2288}# '())))
- (if #{tmp\ 2289}#
+ ((#{req\ 2269}#
+ (lambda (#{args\ 2278}# #{rreq\ 2279}#)
+ (let ((#{tmp\ 2282}# #{args\ 2278}#))
+ (let ((#{tmp\ 2283}# ($sc-dispatch #{tmp\ 2282}# '())))
+ (if #{tmp\ 2283}#
(@apply
(lambda ()
- (#{check\ 2283}#
- (reverse #{rreq\ 2285}#)
+ (#{check\ 2277}#
+ (reverse #{rreq\ 2279}#)
'()
#f
'()))
- #{tmp\ 2289}#)
- (let ((#{tmp\ 2290}#
- ($sc-dispatch #{tmp\ 2288}# '(any . any))))
- (if (if #{tmp\ 2290}#
+ #{tmp\ 2283}#)
+ (let ((#{tmp\ 2284}#
+ ($sc-dispatch #{tmp\ 2282}# '(any . any))))
+ (if (if #{tmp\ 2284}#
(@apply
- (lambda (#{a\ 2293}# #{b\ 2294}#)
- (#{id?\ 379}# #{a\ 2293}#))
- #{tmp\ 2290}#)
+ (lambda (#{a\ 2287}# #{b\ 2288}#)
+ (#{id?\ 380}# #{a\ 2287}#))
+ #{tmp\ 2284}#)
#f)
(@apply
- (lambda (#{a\ 2297}# #{b\ 2298}#)
- (#{req\ 2275}#
- #{b\ 2298}#
- (cons #{a\ 2297}# #{rreq\ 2285}#)))
- #{tmp\ 2290}#)
- (let ((#{tmp\ 2299}#
+ (lambda (#{a\ 2291}# #{b\ 2292}#)
+ (#{req\ 2269}#
+ #{b\ 2292}#
+ (cons #{a\ 2291}# #{rreq\ 2279}#)))
+ #{tmp\ 2284}#)
+ (let ((#{tmp\ 2293}#
($sc-dispatch
- #{tmp\ 2288}#
+ #{tmp\ 2282}#
'(any . any))))
- (if (if #{tmp\ 2299}#
+ (if (if #{tmp\ 2293}#
(@apply
- (lambda (#{a\ 2302}# #{b\ 2303}#)
- (eq? (syntax->datum #{a\ 2302}#)
+ (lambda (#{a\ 2296}# #{b\ 2297}#)
+ (eq? (syntax->datum #{a\ 2296}#)
#:optional))
- #{tmp\ 2299}#)
+ #{tmp\ 2293}#)
#f)
(@apply
- (lambda (#{a\ 2306}# #{b\ 2307}#)
- (#{opt\ 2277}#
- #{b\ 2307}#
- (reverse #{rreq\ 2285}#)
+ (lambda (#{a\ 2300}# #{b\ 2301}#)
+ (#{opt\ 2271}#
+ #{b\ 2301}#
+ (reverse #{rreq\ 2279}#)
'()))
- #{tmp\ 2299}#)
- (let ((#{tmp\ 2308}#
+ #{tmp\ 2293}#)
+ (let ((#{tmp\ 2302}#
($sc-dispatch
- #{tmp\ 2288}#
+ #{tmp\ 2282}#
'(any . any))))
- (if (if #{tmp\ 2308}#
+ (if (if #{tmp\ 2302}#
(@apply
- (lambda (#{a\ 2311}# #{b\ 2312}#)
- (eq? (syntax->datum #{a\ 2311}#)
+ (lambda (#{a\ 2305}# #{b\ 2306}#)
+ (eq? (syntax->datum #{a\ 2305}#)
#:key))
- #{tmp\ 2308}#)
+ #{tmp\ 2302}#)
#f)
(@apply
- (lambda (#{a\ 2315}# #{b\ 2316}#)
- (#{key\ 2279}#
- #{b\ 2316}#
- (reverse #{rreq\ 2285}#)
+ (lambda (#{a\ 2309}# #{b\ 2310}#)
+ (#{key\ 2273}#
+ #{b\ 2310}#
+ (reverse #{rreq\ 2279}#)
'()
'()))
- #{tmp\ 2308}#)
- (let ((#{tmp\ 2317}#
+ #{tmp\ 2302}#)
+ (let ((#{tmp\ 2311}#
($sc-dispatch
- #{tmp\ 2288}#
+ #{tmp\ 2282}#
'(any any))))
- (if (if #{tmp\ 2317}#
+ (if (if #{tmp\ 2311}#
(@apply
- (lambda (#{a\ 2320}#
- #{b\ 2321}#)
+ (lambda (#{a\ 2314}#
+ #{b\ 2315}#)
(eq? (syntax->datum
- #{a\ 2320}#)
+ #{a\ 2314}#)
#:rest))
- #{tmp\ 2317}#)
+ #{tmp\ 2311}#)
#f)
(@apply
- (lambda (#{a\ 2324}# #{b\ 2325}#)
- (#{rest\ 2281}#
- #{b\ 2325}#
- (reverse #{rreq\ 2285}#)
+ (lambda (#{a\ 2318}# #{b\ 2319}#)
+ (#{rest\ 2275}#
+ #{b\ 2319}#
+ (reverse #{rreq\ 2279}#)
'()
'()))
- #{tmp\ 2317}#)
- (let ((#{tmp\ 2326}#
- (list #{tmp\ 2288}#)))
- (if (if #{tmp\ 2326}#
+ #{tmp\ 2311}#)
+ (let ((#{tmp\ 2320}#
+ (list #{tmp\ 2282}#)))
+ (if (if #{tmp\ 2320}#
(@apply
- (lambda (#{r\ 2328}#)
- (#{id?\ 379}#
- #{r\ 2328}#))
- #{tmp\ 2326}#)
+ (lambda (#{r\ 2322}#)
+ (#{id?\ 380}#
+ #{r\ 2322}#))
+ #{tmp\ 2320}#)
#f)
(@apply
- (lambda (#{r\ 2330}#)
- (#{rest\ 2281}#
- #{r\ 2330}#
- (reverse #{rreq\ 2285}#)
+ (lambda (#{r\ 2324}#)
+ (#{rest\ 2275}#
+ #{r\ 2324}#
+ (reverse #{rreq\ 2279}#)
'()
'()))
- #{tmp\ 2326}#)
- (let ((#{else\ 2332}#
- #{tmp\ 2288}#))
+ #{tmp\ 2320}#)
+ (let ((#{else\ 2326}#
+ #{tmp\ 2282}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 2272}#
- #{args\ 2284}#)))))))))))))))))
- (#{opt\ 2277}#
- (lambda (#{args\ 2333}# #{req\ 2334}# #{ropt\ 2335}#)
- (let ((#{tmp\ 2339}# #{args\ 2333}#))
- (let ((#{tmp\ 2340}# ($sc-dispatch #{tmp\ 2339}# '())))
- (if #{tmp\ 2340}#
+ #{orig-args\ 2266}#
+ #{args\ 2278}#)))))))))))))))))
+ (#{opt\ 2271}#
+ (lambda (#{args\ 2327}# #{req\ 2328}# #{ropt\ 2329}#)
+ (let ((#{tmp\ 2333}# #{args\ 2327}#))
+ (let ((#{tmp\ 2334}# ($sc-dispatch #{tmp\ 2333}# '())))
+ (if #{tmp\ 2334}#
(@apply
(lambda ()
- (#{check\ 2283}#
- #{req\ 2334}#
- (reverse #{ropt\ 2335}#)
+ (#{check\ 2277}#
+ #{req\ 2328}#
+ (reverse #{ropt\ 2329}#)
#f
'()))
- #{tmp\ 2340}#)
- (let ((#{tmp\ 2341}#
- ($sc-dispatch #{tmp\ 2339}# '(any . any))))
- (if (if #{tmp\ 2341}#
+ #{tmp\ 2334}#)
+ (let ((#{tmp\ 2335}#
+ ($sc-dispatch #{tmp\ 2333}# '(any . any))))
+ (if (if #{tmp\ 2335}#
(@apply
- (lambda (#{a\ 2344}# #{b\ 2345}#)
- (#{id?\ 379}# #{a\ 2344}#))
- #{tmp\ 2341}#)
+ (lambda (#{a\ 2338}# #{b\ 2339}#)
+ (#{id?\ 380}# #{a\ 2338}#))
+ #{tmp\ 2335}#)
#f)
(@apply
- (lambda (#{a\ 2348}# #{b\ 2349}#)
- (#{opt\ 2277}#
- #{b\ 2349}#
- #{req\ 2334}#
- (cons (cons #{a\ 2348}#
+ (lambda (#{a\ 2342}# #{b\ 2343}#)
+ (#{opt\ 2271}#
+ #{b\ 2343}#
+ #{req\ 2328}#
+ (cons (cons #{a\ 2342}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2346" "i2347"))
+ #("i2340" "i2341"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2336"
- "i2337"
- "i2338"))
+ #("i2330"
+ "i2331"
+ "i2332"))
#(ribcage
(check rest key opt req)
((top)
(top)
(top)
(top))
- ("i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"))
+ ("i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"))
#(ribcage
#(orig-args)
#((top))
- #("i2273"))
+ #("i2267"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene guile))))
- #{ropt\ 2335}#)))
- #{tmp\ 2341}#)
- (let ((#{tmp\ 2350}#
+ #{ropt\ 2329}#)))
+ #{tmp\ 2335}#)
+ (let ((#{tmp\ 2344}#
($sc-dispatch
- #{tmp\ 2339}#
+ #{tmp\ 2333}#
'((any any) . any))))
- (if (if #{tmp\ 2350}#
+ (if (if #{tmp\ 2344}#
(@apply
- (lambda (#{a\ 2354}#
- #{init\ 2355}#
- #{b\ 2356}#)
- (#{id?\ 379}# #{a\ 2354}#))
- #{tmp\ 2350}#)
+ (lambda (#{a\ 2348}#
+ #{init\ 2349}#
+ #{b\ 2350}#)
+ (#{id?\ 380}# #{a\ 2348}#))
+ #{tmp\ 2344}#)
#f)
(@apply
- (lambda (#{a\ 2360}#
- #{init\ 2361}#
- #{b\ 2362}#)
- (#{opt\ 2277}#
- #{b\ 2362}#
- #{req\ 2334}#
- (cons (list #{a\ 2360}# #{init\ 2361}#)
- #{ropt\ 2335}#)))
- #{tmp\ 2350}#)
- (let ((#{tmp\ 2363}#
+ (lambda (#{a\ 2354}#
+ #{init\ 2355}#
+ #{b\ 2356}#)
+ (#{opt\ 2271}#
+ #{b\ 2356}#
+ #{req\ 2328}#
+ (cons (list #{a\ 2354}# #{init\ 2355}#)
+ #{ropt\ 2329}#)))
+ #{tmp\ 2344}#)
+ (let ((#{tmp\ 2357}#
($sc-dispatch
- #{tmp\ 2339}#
+ #{tmp\ 2333}#
'(any . any))))
- (if (if #{tmp\ 2363}#
+ (if (if #{tmp\ 2357}#
(@apply
- (lambda (#{a\ 2366}# #{b\ 2367}#)
- (eq? (syntax->datum #{a\ 2366}#)
+ (lambda (#{a\ 2360}# #{b\ 2361}#)
+ (eq? (syntax->datum #{a\ 2360}#)
#:key))
- #{tmp\ 2363}#)
+ #{tmp\ 2357}#)
#f)
(@apply
- (lambda (#{a\ 2370}# #{b\ 2371}#)
- (#{key\ 2279}#
- #{b\ 2371}#
- #{req\ 2334}#
- (reverse #{ropt\ 2335}#)
+ (lambda (#{a\ 2364}# #{b\ 2365}#)
+ (#{key\ 2273}#
+ #{b\ 2365}#
+ #{req\ 2328}#
+ (reverse #{ropt\ 2329}#)
'()))
- #{tmp\ 2363}#)
- (let ((#{tmp\ 2372}#
+ #{tmp\ 2357}#)
+ (let ((#{tmp\ 2366}#
($sc-dispatch
- #{tmp\ 2339}#
+ #{tmp\ 2333}#
'(any any))))
- (if (if #{tmp\ 2372}#
+ (if (if #{tmp\ 2366}#
(@apply
- (lambda (#{a\ 2375}#
- #{b\ 2376}#)
+ (lambda (#{a\ 2369}#
+ #{b\ 2370}#)
(eq? (syntax->datum
- #{a\ 2375}#)
+ #{a\ 2369}#)
#:rest))
- #{tmp\ 2372}#)
+ #{tmp\ 2366}#)
#f)
(@apply
- (lambda (#{a\ 2379}# #{b\ 2380}#)
- (#{rest\ 2281}#
- #{b\ 2380}#
- #{req\ 2334}#
- (reverse #{ropt\ 2335}#)
+ (lambda (#{a\ 2373}# #{b\ 2374}#)
+ (#{rest\ 2275}#
+ #{b\ 2374}#
+ #{req\ 2328}#
+ (reverse #{ropt\ 2329}#)
'()))
- #{tmp\ 2372}#)
- (let ((#{tmp\ 2381}#
- (list #{tmp\ 2339}#)))
- (if (if #{tmp\ 2381}#
+ #{tmp\ 2366}#)
+ (let ((#{tmp\ 2375}#
+ (list #{tmp\ 2333}#)))
+ (if (if #{tmp\ 2375}#
(@apply
- (lambda (#{r\ 2383}#)
- (#{id?\ 379}#
- #{r\ 2383}#))
- #{tmp\ 2381}#)
+ (lambda (#{r\ 2377}#)
+ (#{id?\ 380}#
+ #{r\ 2377}#))
+ #{tmp\ 2375}#)
#f)
(@apply
- (lambda (#{r\ 2385}#)
- (#{rest\ 2281}#
- #{r\ 2385}#
- #{req\ 2334}#
- (reverse #{ropt\ 2335}#)
+ (lambda (#{r\ 2379}#)
+ (#{rest\ 2275}#
+ #{r\ 2379}#
+ #{req\ 2328}#
+ (reverse #{ropt\ 2329}#)
'()))
- #{tmp\ 2381}#)
- (let ((#{else\ 2387}#
- #{tmp\ 2339}#))
+ #{tmp\ 2375}#)
+ (let ((#{else\ 2381}#
+ #{tmp\ 2333}#))
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 2272}#
- #{args\ 2333}#)))))))))))))))))
- (#{key\ 2279}#
- (lambda (#{args\ 2388}#
- #{req\ 2389}#
- #{opt\ 2390}#
- #{rkey\ 2391}#)
- (let ((#{tmp\ 2396}# #{args\ 2388}#))
- (let ((#{tmp\ 2397}# ($sc-dispatch #{tmp\ 2396}# '())))
- (if #{tmp\ 2397}#
+ #{orig-args\ 2266}#
+ #{args\ 2327}#)))))))))))))))))
+ (#{key\ 2273}#
+ (lambda (#{args\ 2382}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
+ #{rkey\ 2385}#)
+ (let ((#{tmp\ 2390}# #{args\ 2382}#))
+ (let ((#{tmp\ 2391}# ($sc-dispatch #{tmp\ 2390}# '())))
+ (if #{tmp\ 2391}#
(@apply
(lambda ()
- (#{check\ 2283}#
- #{req\ 2389}#
- #{opt\ 2390}#
+ (#{check\ 2277}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
#f
- (cons #f (reverse #{rkey\ 2391}#))))
- #{tmp\ 2397}#)
- (let ((#{tmp\ 2398}#
- ($sc-dispatch #{tmp\ 2396}# '(any . any))))
- (if (if #{tmp\ 2398}#
+ (cons #f (reverse #{rkey\ 2385}#))))
+ #{tmp\ 2391}#)
+ (let ((#{tmp\ 2392}#
+ ($sc-dispatch #{tmp\ 2390}# '(any . any))))
+ (if (if #{tmp\ 2392}#
(@apply
- (lambda (#{a\ 2401}# #{b\ 2402}#)
- (#{id?\ 379}# #{a\ 2401}#))
- #{tmp\ 2398}#)
+ (lambda (#{a\ 2395}# #{b\ 2396}#)
+ (#{id?\ 380}# #{a\ 2395}#))
+ #{tmp\ 2392}#)
#f)
(@apply
- (lambda (#{a\ 2405}# #{b\ 2406}#)
- (let ((#{tmp\ 2408}#
+ (lambda (#{a\ 2399}# #{b\ 2400}#)
+ (let ((#{tmp\ 2402}#
(symbol->keyword
- (syntax->datum #{a\ 2405}#))))
- (let ((#{k\ 2410}# #{tmp\ 2408}#))
- (#{key\ 2279}#
- #{b\ 2406}#
- #{req\ 2389}#
- #{opt\ 2390}#
- (cons (cons #{k\ 2410}#
- (cons #{a\ 2405}#
+ (syntax->datum #{a\ 2399}#))))
+ (let ((#{k\ 2404}# #{tmp\ 2402}#))
+ (#{key\ 2273}#
+ #{b\ 2400}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
+ (cons (cons #{k\ 2404}#
+ (cons #{a\ 2399}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2409"))
+ #("i2403"))
#(ribcage
#(a b)
#((top) (top))
- #("i2403"
- "i2404"))
+ #("i2397"
+ "i2398"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i2392"
- "i2393"
- "i2394"
- "i2395"))
+ #("i2386"
+ "i2387"
+ "i2388"
+ "i2389"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i2282"
- "i2280"
- "i2278"
- "i2276"
- "i2274"))
+ ("i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"))
#(ribcage
#(orig-args)
#((top))
- #("i2273"))
+ #("i2267"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
(top)
(top)
(top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene
guile)))))
- #{rkey\ 2391}#)))))
- #{tmp\ 2398}#)
- (let ((#{tmp\ 2411}#
+ #{rkey\ 2385}#)))))
+ #{tmp\ 2392}#)
+ (let ((#{tmp\ 2405}#
($sc-dispatch
- #{tmp\ 2396}#
+ #{tmp\ 2390}#
'((any any) . any))))
- (if (if #{tmp\ 2411}#
+ (if (if #{tmp\ 2405}#
(@apply
- (lambda (#{a\ 2415}#
- #{init\ 2416}#
- #{b\ 2417}#)
- (#{id?\ 379}# #{a\ 2415}#))
- #{tmp\ 2411}#)
+ (lambda (#{a\ 2409}#
+ #{init\ 2410}#
+ #{b\ 2411}#)
+ (#{id?\ 380}# #{a\ 2409}#))
+ #{tmp\ 2405}#)
#f)
(@apply
- (lambda (#{a\ 2421}#
- #{init\ 2422}#
- #{b\ 2423}#)
- (let ((#{tmp\ 2425}#
+ (lambda (#{a\ 2415}#
+ #{init\ 2416}#
+ #{b\ 2417}#)
+ (let ((#{tmp\ 2419}#
(symbol->keyword
- (syntax->datum #{a\ 2421}#))))
- (let ((#{k\ 2427}# #{tmp\ 2425}#))
- (#{key\ 2279}#
- #{b\ 2423}#
- #{req\ 2389}#
- #{opt\ 2390}#
- (cons (list #{k\ 2427}#
- #{a\ 2421}#
- #{init\ 2422}#)
- #{rkey\ 2391}#)))))
- #{tmp\ 2411}#)
- (let ((#{tmp\ 2428}#
+ (syntax->datum #{a\ 2415}#))))
+ (let ((#{k\ 2421}# #{tmp\ 2419}#))
+ (#{key\ 2273}#
+ #{b\ 2417}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
+ (cons (list #{k\ 2421}#
+ #{a\ 2415}#
+ #{init\ 2416}#)
+ #{rkey\ 2385}#)))))
+ #{tmp\ 2405}#)
+ (let ((#{tmp\ 2422}#
($sc-dispatch
- #{tmp\ 2396}#
+ #{tmp\ 2390}#
'((any any any) . any))))
- (if (if #{tmp\ 2428}#
+ (if (if #{tmp\ 2422}#
(@apply
- (lambda (#{a\ 2433}#
- #{init\ 2434}#
- #{k\ 2435}#
- #{b\ 2436}#)
- (if (#{id?\ 379}# #{a\ 2433}#)
+ (lambda (#{a\ 2427}#
+ #{init\ 2428}#
+ #{k\ 2429}#
+ #{b\ 2430}#)
+ (if (#{id?\ 380}# #{a\ 2427}#)
(keyword?
- (syntax->datum #{k\ 2435}#))
+ (syntax->datum #{k\ 2429}#))
#f))
- #{tmp\ 2428}#)
+ #{tmp\ 2422}#)
#f)
(@apply
- (lambda (#{a\ 2443}#
- #{init\ 2444}#
- #{k\ 2445}#
- #{b\ 2446}#)
- (#{key\ 2279}#
- #{b\ 2446}#
- #{req\ 2389}#
- #{opt\ 2390}#
- (cons (list #{k\ 2445}#
- #{a\ 2443}#
- #{init\ 2444}#)
- #{rkey\ 2391}#)))
- #{tmp\ 2428}#)
- (let ((#{tmp\ 2447}#
+ (lambda (#{a\ 2437}#
+ #{init\ 2438}#
+ #{k\ 2439}#
+ #{b\ 2440}#)
+ (#{key\ 2273}#
+ #{b\ 2440}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
+ (cons (list #{k\ 2439}#
+ #{a\ 2437}#
+ #{init\ 2438}#)
+ #{rkey\ 2385}#)))
+ #{tmp\ 2422}#)
+ (let ((#{tmp\ 2441}#
($sc-dispatch
- #{tmp\ 2396}#
+ #{tmp\ 2390}#
'(any))))
- (if (if #{tmp\ 2447}#
+ (if (if #{tmp\ 2441}#
(@apply
- (lambda (#{aok\ 2449}#)
+ (lambda (#{aok\ 2443}#)
(eq? (syntax->datum
- #{aok\ 2449}#)
+ #{aok\ 2443}#)
#:allow-other-keys))
- #{tmp\ 2447}#)
+ #{tmp\ 2441}#)
#f)
(@apply
- (lambda (#{aok\ 2451}#)
- (#{check\ 2283}#
- #{req\ 2389}#
- #{opt\ 2390}#
+ (lambda (#{aok\ 2445}#)
+ (#{check\ 2277}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
#f
(cons #t
(reverse
- #{rkey\ 2391}#))))
- #{tmp\ 2447}#)
- (let ((#{tmp\ 2452}#
+ #{rkey\ 2385}#))))
+ #{tmp\ 2441}#)
+ (let ((#{tmp\ 2446}#
($sc-dispatch
- #{tmp\ 2396}#
+ #{tmp\ 2390}#
'(any any any))))
- (if (if #{tmp\ 2452}#
+ (if (if #{tmp\ 2446}#
(@apply
- (lambda (#{aok\ 2456}#
- #{a\ 2457}#
- #{b\ 2458}#)
+ (lambda (#{aok\ 2450}#
+ #{a\ 2451}#
+ #{b\ 2452}#)
(if (eq? (syntax->datum
- #{aok\ 2456}#)
+ #{aok\ 2450}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 2457}#)
+ #{a\ 2451}#)
#:rest)
#f))
- #{tmp\ 2452}#)
+ #{tmp\ 2446}#)
#f)
(@apply
- (lambda (#{aok\ 2464}#
- #{a\ 2465}#
- #{b\ 2466}#)
- (#{rest\ 2281}#
- #{b\ 2466}#
- #{req\ 2389}#
- #{opt\ 2390}#
+ (lambda (#{aok\ 2458}#
+ #{a\ 2459}#
+ #{b\ 2460}#)
+ (#{rest\ 2275}#
+ #{b\ 2460}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
(cons #t
(reverse
- #{rkey\ 2391}#))))
- #{tmp\ 2452}#)
- (let ((#{tmp\ 2467}#
+ #{rkey\ 2385}#))))
+ #{tmp\ 2446}#)
+ (let ((#{tmp\ 2461}#
($sc-dispatch
- #{tmp\ 2396}#
+ #{tmp\ 2390}#
'(any . any))))
- (if (if #{tmp\ 2467}#
+ (if (if #{tmp\ 2461}#
(@apply
- (lambda (#{aok\ 2470}#
- #{r\ 2471}#)
+ (lambda (#{aok\ 2464}#
+ #{r\ 2465}#)
(if (eq? (syntax->datum
- #{aok\ 2470}#)
+ #{aok\ 2464}#)
#:allow-other-keys)
- (#{id?\ 379}#
- #{r\ 2471}#)
+ (#{id?\ 380}#
+ #{r\ 2465}#)
#f))
- #{tmp\ 2467}#)
+ #{tmp\ 2461}#)
#f)
(@apply
- (lambda (#{aok\ 2476}#
- #{r\ 2477}#)
- (#{rest\ 2281}#
- #{r\ 2477}#
- #{req\ 2389}#
- #{opt\ 2390}#
+ (lambda (#{aok\ 2470}#
+ #{r\ 2471}#)
+ (#{rest\ 2275}#
+ #{r\ 2471}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
(cons #t
(reverse
- #{rkey\ 2391}#))))
- #{tmp\ 2467}#)
- (let ((#{tmp\ 2478}#
+ #{rkey\ 2385}#))))
+ #{tmp\ 2461}#)
+ (let ((#{tmp\ 2472}#
($sc-dispatch
- #{tmp\ 2396}#
+ #{tmp\ 2390}#
'(any any))))
- (if (if #{tmp\ 2478}#
+ (if (if #{tmp\ 2472}#
(@apply
- (lambda (#{a\ 2481}#
- #{b\ 2482}#)
+ (lambda (#{a\ 2475}#
+ #{b\ 2476}#)
(eq? (syntax->datum
- #{a\ 2481}#)
+ #{a\ 2475}#)
#:rest))
- #{tmp\ 2478}#)
+ #{tmp\ 2472}#)
#f)
(@apply
- (lambda (#{a\ 2485}#
- #{b\ 2486}#)
- (#{rest\ 2281}#
- #{b\ 2486}#
- #{req\ 2389}#
- #{opt\ 2390}#
+ (lambda (#{a\ 2479}#
+ #{b\ 2480}#)
+ (#{rest\ 2275}#
+ #{b\ 2480}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
(cons #f
(reverse
- #{rkey\ 2391}#))))
- #{tmp\ 2478}#)
- (let ((#{tmp\ 2487}#
- (list #{tmp\ 2396}#)))
- (if (if #{tmp\ 2487}#
+ #{rkey\ 2385}#))))
+ #{tmp\ 2472}#)
+ (let ((#{tmp\ 2481}#
+ (list #{tmp\ 2390}#)))
+ (if (if #{tmp\ 2481}#
(@apply
- (lambda (#{r\ 2489}#)
- (#{id?\ 379}#
- #{r\ 2489}#))
- #{tmp\ 2487}#)
+ (lambda (#{r\ 2483}#)
+ (#{id?\ 380}#
+ #{r\ 2483}#))
+ #{tmp\ 2481}#)
#f)
(@apply
- (lambda (#{r\ 2491}#)
- (#{rest\ 2281}#
- #{r\ 2491}#
- #{req\ 2389}#
- #{opt\ 2390}#
+ (lambda (#{r\ 2485}#)
+ (#{rest\ 2275}#
+ #{r\ 2485}#
+ #{req\ 2383}#
+ #{opt\ 2384}#
(cons #f
(reverse
- #{rkey\ 2391}#))))
- #{tmp\ 2487}#)
- (let ((#{else\ 2493}#
- #{tmp\ 2396}#))
+ #{rkey\ 2385}#))))
+ #{tmp\ 2481}#)
+ (let ((#{else\ 2487}#
+ #{tmp\ 2390}#))
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 2272}#
- #{args\ 2388}#)))))))))))))))))))))))
- (#{rest\ 2281}#
- (lambda (#{args\ 2494}#
- #{req\ 2495}#
- #{opt\ 2496}#
- #{kw\ 2497}#)
- (let ((#{tmp\ 2502}# #{args\ 2494}#))
- (let ((#{tmp\ 2503}# (list #{tmp\ 2502}#)))
- (if (if #{tmp\ 2503}#
+ #{orig-args\ 2266}#
+ #{args\ 2382}#)))))))))))))))))))))))
+ (#{rest\ 2275}#
+ (lambda (#{args\ 2488}#
+ #{req\ 2489}#
+ #{opt\ 2490}#
+ #{kw\ 2491}#)
+ (let ((#{tmp\ 2496}# #{args\ 2488}#))
+ (let ((#{tmp\ 2497}# (list #{tmp\ 2496}#)))
+ (if (if #{tmp\ 2497}#
(@apply
- (lambda (#{r\ 2505}#)
- (#{id?\ 379}# #{r\ 2505}#))
- #{tmp\ 2503}#)
+ (lambda (#{r\ 2499}#)
+ (#{id?\ 380}# #{r\ 2499}#))
+ #{tmp\ 2497}#)
#f)
(@apply
- (lambda (#{r\ 2507}#)
- (#{check\ 2283}#
- #{req\ 2495}#
- #{opt\ 2496}#
- #{r\ 2507}#
- #{kw\ 2497}#))
- #{tmp\ 2503}#)
- (let ((#{else\ 2509}# #{tmp\ 2502}#))
+ (lambda (#{r\ 2501}#)
+ (#{check\ 2277}#
+ #{req\ 2489}#
+ #{opt\ 2490}#
+ #{r\ 2501}#
+ #{kw\ 2491}#))
+ #{tmp\ 2497}#)
+ (let ((#{else\ 2503}# #{tmp\ 2496}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 2272}#
- #{args\ 2494}#)))))))
- (#{check\ 2283}#
- (lambda (#{req\ 2510}#
- #{opt\ 2511}#
- #{rest\ 2512}#
- #{kw\ 2513}#)
- (if (#{distinct-bound-ids?\ 441}#
+ #{orig-args\ 2266}#
+ #{args\ 2488}#)))))))
+ (#{check\ 2277}#
+ (lambda (#{req\ 2504}#
+ #{opt\ 2505}#
+ #{rest\ 2506}#
+ #{kw\ 2507}#)
+ (if (#{distinct-bound-ids?\ 442}#
(append
- #{req\ 2510}#
- (map car #{opt\ 2511}#)
- (if #{rest\ 2512}# (list #{rest\ 2512}#) '())
- (if (pair? #{kw\ 2513}#)
- (map cadr (cdr #{kw\ 2513}#))
+ #{req\ 2504}#
+ (map car #{opt\ 2505}#)
+ (if #{rest\ 2506}# (list #{rest\ 2506}#) '())
+ (if (pair? #{kw\ 2507}#)
+ (map cadr (cdr #{kw\ 2507}#))
'())))
(values
- #{req\ 2510}#
- #{opt\ 2511}#
- #{rest\ 2512}#
- #{kw\ 2513}#)
+ #{req\ 2504}#
+ #{opt\ 2505}#
+ #{rest\ 2506}#
+ #{kw\ 2507}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 2272}#)))))
- (begin (#{req\ 2275}# #{orig-args\ 2272}# '())))))
- (#{chi-lambda-case\ 485}#
- (lambda (#{e\ 2521}#
- #{r\ 2522}#
- #{w\ 2523}#
- #{s\ 2524}#
- #{mod\ 2525}#
- #{get-formals\ 2526}#
- #{clauses\ 2527}#)
+ #{orig-args\ 2266}#)))))
+ (begin (#{req\ 2269}# #{orig-args\ 2266}# '())))))
+ (#{chi-lambda-case\ 484}#
+ (lambda (#{e\ 2515}#
+ #{r\ 2516}#
+ #{w\ 2517}#
+ #{s\ 2518}#
+ #{mod\ 2519}#
+ #{get-formals\ 2520}#
+ #{clauses\ 2521}#)
(letrec*
- ((#{expand-req\ 2536}#
- (lambda (#{req\ 2543}#
- #{opt\ 2544}#
- #{rest\ 2545}#
- #{kw\ 2546}#
- #{body\ 2547}#)
+ ((#{expand-req\ 2530}#
+ (lambda (#{req\ 2537}#
+ #{opt\ 2538}#
+ #{rest\ 2539}#
+ #{kw\ 2540}#
+ #{body\ 2541}#)
(begin
- (let ((#{vars\ 2555}#
- (map #{gen-var\ 489}# #{req\ 2543}#))
- (#{labels\ 2556}#
- (#{gen-labels\ 394}# #{req\ 2543}#)))
+ (let ((#{vars\ 2549}#
+ (map #{gen-var\ 488}# #{req\ 2537}#))
+ (#{labels\ 2550}#
+ (#{gen-labels\ 395}# #{req\ 2537}#)))
(begin
- (let ((#{r*\ 2559}#
- (#{extend-var-env\ 369}#
- #{labels\ 2556}#
- #{vars\ 2555}#
- #{r\ 2522}#))
- (#{w*\ 2560}#
- (#{make-binding-wrap\ 423}#
- #{req\ 2543}#
- #{labels\ 2556}#
- #{w\ 2523}#)))
- (#{expand-opt\ 2538}#
- (map syntax->datum #{req\ 2543}#)
- #{opt\ 2544}#
- #{rest\ 2545}#
- #{kw\ 2546}#
- #{body\ 2547}#
- (reverse #{vars\ 2555}#)
- #{r*\ 2559}#
- #{w*\ 2560}#
+ (let ((#{r*\ 2553}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 2550}#
+ #{vars\ 2549}#
+ #{r\ 2516}#))
+ (#{w*\ 2554}#
+ (#{make-binding-wrap\ 424}#
+ #{req\ 2537}#
+ #{labels\ 2550}#
+ #{w\ 2517}#)))
+ (#{expand-opt\ 2532}#
+ (map syntax->datum #{req\ 2537}#)
+ #{opt\ 2538}#
+ #{rest\ 2539}#
+ #{kw\ 2540}#
+ #{body\ 2541}#
+ (reverse #{vars\ 2549}#)
+ #{r*\ 2553}#
+ #{w*\ 2554}#
'()
'())))))))
- (#{expand-opt\ 2538}#
- (lambda (#{req\ 2561}#
- #{opt\ 2562}#
- #{rest\ 2563}#
- #{kw\ 2564}#
- #{body\ 2565}#
- #{vars\ 2566}#
- #{r*\ 2567}#
- #{w*\ 2568}#
- #{out\ 2569}#
- #{inits\ 2570}#)
- (if (pair? #{opt\ 2562}#)
- (let ((#{tmp\ 2583}# (car #{opt\ 2562}#)))
- (let ((#{tmp\ 2584}#
- ($sc-dispatch #{tmp\ 2583}# '(any any))))
- (if #{tmp\ 2584}#
+ (#{expand-opt\ 2532}#
+ (lambda (#{req\ 2555}#
+ #{opt\ 2556}#
+ #{rest\ 2557}#
+ #{kw\ 2558}#
+ #{body\ 2559}#
+ #{vars\ 2560}#
+ #{r*\ 2561}#
+ #{w*\ 2562}#
+ #{out\ 2563}#
+ #{inits\ 2564}#)
+ (if (pair? #{opt\ 2556}#)
+ (let ((#{tmp\ 2577}# (car #{opt\ 2556}#)))
+ (let ((#{tmp\ 2578}#
+ ($sc-dispatch #{tmp\ 2577}# '(any any))))
+ (if #{tmp\ 2578}#
(@apply
- (lambda (#{id\ 2587}# #{i\ 2588}#)
+ (lambda (#{id\ 2581}# #{i\ 2582}#)
(begin
- (let ((#{v\ 2591}#
- (#{gen-var\ 489}# #{id\ 2587}#)))
+ (let ((#{v\ 2585}#
+ (#{gen-var\ 488}# #{id\ 2581}#)))
(begin
- (let ((#{l\ 2593}#
- (#{gen-labels\ 394}#
- (list #{v\ 2591}#))))
+ (let ((#{l\ 2587}#
+ (#{gen-labels\ 395}#
+ (list #{v\ 2585}#))))
(begin
- (let ((#{r**\ 2595}#
- (#{extend-var-env\ 369}#
- #{l\ 2593}#
- (list #{v\ 2591}#)
- #{r*\ 2567}#)))
+ (let ((#{r**\ 2589}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2587}#
+ (list #{v\ 2585}#)
+ #{r*\ 2561}#)))
(begin
- (let ((#{w**\ 2597}#
- (#{make-binding-wrap\ 423}#
- (list #{id\ 2587}#)
- #{l\ 2593}#
- #{w*\ 2568}#)))
- (#{expand-opt\ 2538}#
- #{req\ 2561}#
- (cdr #{opt\ 2562}#)
- #{rest\ 2563}#
- #{kw\ 2564}#
- #{body\ 2565}#
- (cons #{v\ 2591}#
- #{vars\ 2566}#)
- #{r**\ 2595}#
- #{w**\ 2597}#
+ (let ((#{w**\ 2591}#
+ (#{make-binding-wrap\ 424}#
+ (list #{id\ 2581}#)
+ #{l\ 2587}#
+ #{w*\ 2562}#)))
+ (#{expand-opt\ 2532}#
+ #{req\ 2555}#
+ (cdr #{opt\ 2556}#)
+ #{rest\ 2557}#
+ #{kw\ 2558}#
+ #{body\ 2559}#
+ (cons #{v\ 2585}#
+ #{vars\ 2560}#)
+ #{r**\ 2589}#
+ #{w**\ 2591}#
(cons (syntax->datum
- #{id\ 2587}#)
- #{out\ 2569}#)
- (cons (#{chi\ 461}#
- #{i\ 2588}#
- #{r*\ 2567}#
- #{w*\ 2568}#
- #{mod\ 2525}#)
- #{inits\ 2570}#)))))))))))
- #{tmp\ 2584}#)
+ #{id\ 2581}#)
+ #{out\ 2563}#)
+ (cons (#{chi\ 460}#
+ #{i\ 2582}#
+ #{r*\ 2561}#
+ #{w*\ 2562}#
+ #{mod\ 2519}#)
+ #{inits\ 2564}#)))))))))))
+ #{tmp\ 2578}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2583}#))))
- (if #{rest\ 2563}#
+ #{tmp\ 2577}#))))
+ (if #{rest\ 2557}#
(begin
- (let ((#{v\ 2602}#
- (#{gen-var\ 489}# #{rest\ 2563}#)))
+ (let ((#{v\ 2596}#
+ (#{gen-var\ 488}# #{rest\ 2557}#)))
(begin
- (let ((#{l\ 2604}#
- (#{gen-labels\ 394}#
- (list #{v\ 2602}#))))
+ (let ((#{l\ 2598}#
+ (#{gen-labels\ 395}#
+ (list #{v\ 2596}#))))
(begin
- (let ((#{r*\ 2606}#
- (#{extend-var-env\ 369}#
- #{l\ 2604}#
- (list #{v\ 2602}#)
- #{r*\ 2567}#)))
+ (let ((#{r*\ 2600}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2598}#
+ (list #{v\ 2596}#)
+ #{r*\ 2561}#)))
(begin
- (let ((#{w*\ 2608}#
- (#{make-binding-wrap\ 423}#
- (list #{rest\ 2563}#)
- #{l\ 2604}#
- #{w*\ 2568}#)))
- (#{expand-kw\ 2540}#
- #{req\ 2561}#
- (if (pair? #{out\ 2569}#)
- (reverse #{out\ 2569}#)
+ (let ((#{w*\ 2602}#
+ (#{make-binding-wrap\ 424}#
+ (list #{rest\ 2557}#)
+ #{l\ 2598}#
+ #{w*\ 2562}#)))
+ (#{expand-kw\ 2534}#
+ #{req\ 2555}#
+ (if (pair? #{out\ 2563}#)
+ (reverse #{out\ 2563}#)
#f)
- (syntax->datum #{rest\ 2563}#)
- (if (pair? #{kw\ 2564}#)
- (cdr #{kw\ 2564}#)
- #{kw\ 2564}#)
- #{body\ 2565}#
- (cons #{v\ 2602}# #{vars\ 2566}#)
- #{r*\ 2606}#
- #{w*\ 2608}#
- (if (pair? #{kw\ 2564}#)
- (car #{kw\ 2564}#)
+ (syntax->datum #{rest\ 2557}#)
+ (if (pair? #{kw\ 2558}#)
+ (cdr #{kw\ 2558}#)
+ #{kw\ 2558}#)
+ #{body\ 2559}#
+ (cons #{v\ 2596}# #{vars\ 2560}#)
+ #{r*\ 2600}#
+ #{w*\ 2602}#
+ (if (pair? #{kw\ 2558}#)
+ (car #{kw\ 2558}#)
#f)
'()
- #{inits\ 2570}#)))))))))
- (#{expand-kw\ 2540}#
- #{req\ 2561}#
- (if (pair? #{out\ 2569}#)
- (reverse #{out\ 2569}#)
+ #{inits\ 2564}#)))))))))
+ (#{expand-kw\ 2534}#
+ #{req\ 2555}#
+ (if (pair? #{out\ 2563}#)
+ (reverse #{out\ 2563}#)
#f)
#f
- (if (pair? #{kw\ 2564}#)
- (cdr #{kw\ 2564}#)
- #{kw\ 2564}#)
- #{body\ 2565}#
- #{vars\ 2566}#
- #{r*\ 2567}#
- #{w*\ 2568}#
- (if (pair? #{kw\ 2564}#) (car #{kw\ 2564}#) #f)
+ (if (pair? #{kw\ 2558}#)
+ (cdr #{kw\ 2558}#)
+ #{kw\ 2558}#)
+ #{body\ 2559}#
+ #{vars\ 2560}#
+ #{r*\ 2561}#
+ #{w*\ 2562}#
+ (if (pair? #{kw\ 2558}#) (car #{kw\ 2558}#) #f)
'()
- #{inits\ 2570}#)))))
- (#{expand-kw\ 2540}#
- (lambda (#{req\ 2610}#
- #{opt\ 2611}#
- #{rest\ 2612}#
- #{kw\ 2613}#
- #{body\ 2614}#
- #{vars\ 2615}#
- #{r*\ 2616}#
- #{w*\ 2617}#
- #{aok\ 2618}#
- #{out\ 2619}#
- #{inits\ 2620}#)
- (if (pair? #{kw\ 2613}#)
- (let ((#{tmp\ 2634}# (car #{kw\ 2613}#)))
- (let ((#{tmp\ 2635}#
- ($sc-dispatch #{tmp\ 2634}# '(any any any))))
- (if #{tmp\ 2635}#
+ #{inits\ 2564}#)))))
+ (#{expand-kw\ 2534}#
+ (lambda (#{req\ 2604}#
+ #{opt\ 2605}#
+ #{rest\ 2606}#
+ #{kw\ 2607}#
+ #{body\ 2608}#
+ #{vars\ 2609}#
+ #{r*\ 2610}#
+ #{w*\ 2611}#
+ #{aok\ 2612}#
+ #{out\ 2613}#
+ #{inits\ 2614}#)
+ (if (pair? #{kw\ 2607}#)
+ (let ((#{tmp\ 2628}# (car #{kw\ 2607}#)))
+ (let ((#{tmp\ 2629}#
+ ($sc-dispatch #{tmp\ 2628}# '(any any any))))
+ (if #{tmp\ 2629}#
(@apply
- (lambda (#{k\ 2639}# #{id\ 2640}# #{i\ 2641}#)
+ (lambda (#{k\ 2633}# #{id\ 2634}# #{i\ 2635}#)
(begin
- (let ((#{v\ 2644}#
- (#{gen-var\ 489}# #{id\ 2640}#)))
+ (let ((#{v\ 2638}#
+ (#{gen-var\ 488}# #{id\ 2634}#)))
(begin
- (let ((#{l\ 2646}#
- (#{gen-labels\ 394}#
- (list #{v\ 2644}#))))
+ (let ((#{l\ 2640}#
+ (#{gen-labels\ 395}#
+ (list #{v\ 2638}#))))
(begin
- (let ((#{r**\ 2648}#
- (#{extend-var-env\ 369}#
- #{l\ 2646}#
- (list #{v\ 2644}#)
- #{r*\ 2616}#)))
+ (let ((#{r**\ 2642}#
+ (#{extend-var-env\ 370}#
+ #{l\ 2640}#
+ (list #{v\ 2638}#)
+ #{r*\ 2610}#)))
(begin
- (let ((#{w**\ 2650}#
- (#{make-binding-wrap\ 423}#
- (list #{id\ 2640}#)
- #{l\ 2646}#
- #{w*\ 2617}#)))
- (#{expand-kw\ 2540}#
- #{req\ 2610}#
- #{opt\ 2611}#
- #{rest\ 2612}#
- (cdr #{kw\ 2613}#)
- #{body\ 2614}#
- (cons #{v\ 2644}#
- #{vars\ 2615}#)
- #{r**\ 2648}#
- #{w**\ 2650}#
- #{aok\ 2618}#
+ (let ((#{w**\ 2644}#
+ (#{make-binding-wrap\ 424}#
+ (list #{id\ 2634}#)
+ #{l\ 2640}#
+ #{w*\ 2611}#)))
+ (#{expand-kw\ 2534}#
+ #{req\ 2604}#
+ #{opt\ 2605}#
+ #{rest\ 2606}#
+ (cdr #{kw\ 2607}#)
+ #{body\ 2608}#
+ (cons #{v\ 2638}#
+ #{vars\ 2609}#)
+ #{r**\ 2642}#
+ #{w**\ 2644}#
+ #{aok\ 2612}#
(cons (list (syntax->datum
- #{k\ 2639}#)
+ #{k\ 2633}#)
(syntax->datum
- #{id\ 2640}#)
- #{v\ 2644}#)
- #{out\ 2619}#)
- (cons (#{chi\ 461}#
- #{i\ 2641}#
- #{r*\ 2616}#
- #{w*\ 2617}#
- #{mod\ 2525}#)
- #{inits\ 2620}#)))))))))))
- #{tmp\ 2635}#)
+ #{id\ 2634}#)
+ #{v\ 2638}#)
+ #{out\ 2613}#)
+ (cons (#{chi\ 460}#
+ #{i\ 2635}#
+ #{r*\ 2610}#
+ #{w*\ 2611}#
+ #{mod\ 2519}#)
+ #{inits\ 2614}#)))))))))))
+ #{tmp\ 2629}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2634}#))))
- (#{expand-body\ 2542}#
- #{req\ 2610}#
- #{opt\ 2611}#
- #{rest\ 2612}#
+ #{tmp\ 2628}#))))
+ (#{expand-body\ 2536}#
+ #{req\ 2604}#
+ #{opt\ 2605}#
+ #{rest\ 2606}#
(if (begin
- (let ((#{t\ 2654}# #{aok\ 2618}#))
- (if #{t\ 2654}#
- #{t\ 2654}#
- (pair? #{out\ 2619}#))))
- (cons #{aok\ 2618}# (reverse #{out\ 2619}#))
+ (let ((#{t\ 2648}# #{aok\ 2612}#))
+ (if #{t\ 2648}#
+ #{t\ 2648}#
+ (pair? #{out\ 2613}#))))
+ (cons #{aok\ 2612}# (reverse #{out\ 2613}#))
#f)
- #{body\ 2614}#
- (reverse #{vars\ 2615}#)
- #{r*\ 2616}#
- #{w*\ 2617}#
- (reverse #{inits\ 2620}#)
+ #{body\ 2608}#
+ (reverse #{vars\ 2609}#)
+ #{r*\ 2610}#
+ #{w*\ 2611}#
+ (reverse #{inits\ 2614}#)
'()))))
- (#{expand-body\ 2542}#
- (lambda (#{req\ 2656}#
- #{opt\ 2657}#
- #{rest\ 2658}#
- #{kw\ 2659}#
- #{body\ 2660}#
- #{vars\ 2661}#
- #{r*\ 2662}#
- #{w*\ 2663}#
- #{inits\ 2664}#
- #{meta\ 2665}#)
- (let ((#{tmp\ 2676}# #{body\ 2660}#))
- (let ((#{tmp\ 2677}#
+ (#{expand-body\ 2536}#
+ (lambda (#{req\ 2650}#
+ #{opt\ 2651}#
+ #{rest\ 2652}#
+ #{kw\ 2653}#
+ #{body\ 2654}#
+ #{vars\ 2655}#
+ #{r*\ 2656}#
+ #{w*\ 2657}#
+ #{inits\ 2658}#
+ #{meta\ 2659}#)
+ (let ((#{tmp\ 2670}# #{body\ 2654}#))
+ (let ((#{tmp\ 2671}#
($sc-dispatch
- #{tmp\ 2676}#
+ #{tmp\ 2670}#
'(any any . each-any))))
- (if (if #{tmp\ 2677}#
+ (if (if #{tmp\ 2671}#
(@apply
- (lambda (#{docstring\ 2681}#
- #{e1\ 2682}#
- #{e2\ 2683}#)
+ (lambda (#{docstring\ 2675}#
+ #{e1\ 2676}#
+ #{e2\ 2677}#)
(string?
- (syntax->datum #{docstring\ 2681}#)))
- #{tmp\ 2677}#)
+ (syntax->datum #{docstring\ 2675}#)))
+ #{tmp\ 2671}#)
#f)
(@apply
- (lambda (#{docstring\ 2687}#
- #{e1\ 2688}#
- #{e2\ 2689}#)
- (#{expand-body\ 2542}#
- #{req\ 2656}#
- #{opt\ 2657}#
- #{rest\ 2658}#
- #{kw\ 2659}#
- (cons #{e1\ 2688}# #{e2\ 2689}#)
- #{vars\ 2661}#
- #{r*\ 2662}#
- #{w*\ 2663}#
- #{inits\ 2664}#
+ (lambda (#{docstring\ 2681}#
+ #{e1\ 2682}#
+ #{e2\ 2683}#)
+ (#{expand-body\ 2536}#
+ #{req\ 2650}#
+ #{opt\ 2651}#
+ #{rest\ 2652}#
+ #{kw\ 2653}#
+ (cons #{e1\ 2682}# #{e2\ 2683}#)
+ #{vars\ 2655}#
+ #{r*\ 2656}#
+ #{w*\ 2657}#
+ #{inits\ 2658}#
(append
- #{meta\ 2665}#
+ #{meta\ 2659}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 2687}#))))))
- #{tmp\ 2677}#)
- (let ((#{tmp\ 2692}#
+ #{docstring\ 2681}#))))))
+ #{tmp\ 2671}#)
+ (let ((#{tmp\ 2686}#
($sc-dispatch
- #{tmp\ 2676}#
+ #{tmp\ 2670}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 2692}#
+ (if #{tmp\ 2686}#
(@apply
- (lambda (#{k\ 2697}#
- #{v\ 2698}#
- #{e1\ 2699}#
- #{e2\ 2700}#)
- (#{expand-body\ 2542}#
- #{req\ 2656}#
- #{opt\ 2657}#
- #{rest\ 2658}#
- #{kw\ 2659}#
- (cons #{e1\ 2699}# #{e2\ 2700}#)
- #{vars\ 2661}#
- #{r*\ 2662}#
- #{w*\ 2663}#
- #{inits\ 2664}#
+ (lambda (#{k\ 2691}#
+ #{v\ 2692}#
+ #{e1\ 2693}#
+ #{e2\ 2694}#)
+ (#{expand-body\ 2536}#
+ #{req\ 2650}#
+ #{opt\ 2651}#
+ #{rest\ 2652}#
+ #{kw\ 2653}#
+ (cons #{e1\ 2693}# #{e2\ 2694}#)
+ #{vars\ 2655}#
+ #{r*\ 2656}#
+ #{w*\ 2657}#
+ #{inits\ 2658}#
(append
- #{meta\ 2665}#
+ #{meta\ 2659}#
(syntax->datum
- (map cons #{k\ 2697}# #{v\ 2698}#)))))
- #{tmp\ 2692}#)
- (let ((#{tmp\ 2704}#
+ (map cons #{k\ 2691}# #{v\ 2692}#)))))
+ #{tmp\ 2686}#)
+ (let ((#{tmp\ 2698}#
($sc-dispatch
- #{tmp\ 2676}#
+ #{tmp\ 2670}#
'(any . each-any))))
- (if #{tmp\ 2704}#
+ (if #{tmp\ 2698}#
(@apply
- (lambda (#{e1\ 2707}# #{e2\ 2708}#)
+ (lambda (#{e1\ 2701}# #{e2\ 2702}#)
(values
- #{meta\ 2665}#
- #{req\ 2656}#
- #{opt\ 2657}#
- #{rest\ 2658}#
- #{kw\ 2659}#
- #{inits\ 2664}#
- #{vars\ 2661}#
- (#{chi-body\ 469}#
- (cons #{e1\ 2707}# #{e2\ 2708}#)
- (#{source-wrap\ 447}#
- #{e\ 2521}#
- #{w\ 2523}#
- #{s\ 2524}#
- #{mod\ 2525}#)
- #{r*\ 2662}#
- #{w*\ 2663}#
- #{mod\ 2525}#)))
- #{tmp\ 2704}#)
+ #{meta\ 2659}#
+ #{req\ 2650}#
+ #{opt\ 2651}#
+ #{rest\ 2652}#
+ #{kw\ 2653}#
+ #{inits\ 2658}#
+ #{vars\ 2655}#
+ (#{chi-body\ 468}#
+ (cons #{e1\ 2701}# #{e2\ 2702}#)
+ (#{source-wrap\ 448}#
+ #{e\ 2515}#
+ #{w\ 2517}#
+ #{s\ 2518}#
+ #{mod\ 2519}#)
+ #{r*\ 2656}#
+ #{w*\ 2657}#
+ #{mod\ 2519}#)))
+ #{tmp\ 2698}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2676}#)))))))))))
+ #{tmp\ 2670}#)))))))))))
(begin
- (let ((#{tmp\ 2710}# #{clauses\ 2527}#))
- (let ((#{tmp\ 2711}# ($sc-dispatch #{tmp\ 2710}# '())))
- (if #{tmp\ 2711}#
+ (let ((#{tmp\ 2704}# #{clauses\ 2521}#))
+ (let ((#{tmp\ 2705}# ($sc-dispatch #{tmp\ 2704}# '())))
+ (if #{tmp\ 2705}#
(@apply
(lambda () (values '() #f))
- #{tmp\ 2711}#)
- (let ((#{tmp\ 2712}#
+ #{tmp\ 2705}#)
+ (let ((#{tmp\ 2706}#
($sc-dispatch
- #{tmp\ 2710}#
+ #{tmp\ 2704}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 2712}#
+ (if #{tmp\ 2706}#
(@apply
- (lambda (#{args\ 2719}#
- #{e1\ 2720}#
- #{e2\ 2721}#
- #{args*\ 2722}#
- #{e1*\ 2723}#
- #{e2*\ 2724}#)
+ (lambda (#{args\ 2713}#
+ #{e1\ 2714}#
+ #{e2\ 2715}#
+ #{args*\ 2716}#
+ #{e1*\ 2717}#
+ #{e2*\ 2718}#)
(call-with-values
(lambda ()
- (#{get-formals\ 2526}# #{args\ 2719}#))
- (lambda (#{req\ 2725}#
- #{opt\ 2726}#
- #{rest\ 2727}#
- #{kw\ 2728}#)
+ (#{get-formals\ 2520}# #{args\ 2713}#))
+ (lambda (#{req\ 2719}#
+ #{opt\ 2720}#
+ #{rest\ 2721}#
+ #{kw\ 2722}#)
(call-with-values
(lambda ()
- (#{expand-req\ 2536}#
- #{req\ 2725}#
- #{opt\ 2726}#
- #{rest\ 2727}#
- #{kw\ 2728}#
- (cons #{e1\ 2720}# #{e2\ 2721}#)))
- (lambda (#{meta\ 2734}#
- #{req\ 2735}#
- #{opt\ 2736}#
- #{rest\ 2737}#
- #{kw\ 2738}#
- #{inits\ 2739}#
- #{vars\ 2740}#
- #{body\ 2741}#)
+ (#{expand-req\ 2530}#
+ #{req\ 2719}#
+ #{opt\ 2720}#
+ #{rest\ 2721}#
+ #{kw\ 2722}#
+ (cons #{e1\ 2714}# #{e2\ 2715}#)))
+ (lambda (#{meta\ 2728}#
+ #{req\ 2729}#
+ #{opt\ 2730}#
+ #{rest\ 2731}#
+ #{kw\ 2732}#
+ #{inits\ 2733}#
+ #{vars\ 2734}#
+ #{body\ 2735}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 485}#
- #{e\ 2521}#
- #{r\ 2522}#
- #{w\ 2523}#
- #{s\ 2524}#
- #{mod\ 2525}#
- #{get-formals\ 2526}#
- (map (lambda (#{tmp\ 2752}#
- #{tmp\ 2751}#
- #{tmp\ 2750}#)
- (cons #{tmp\ 2750}#
- (cons #{tmp\ 2751}#
- #{tmp\ 2752}#)))
- #{e2*\ 2724}#
- #{e1*\ 2723}#
- #{args*\ 2722}#)))
- (lambda (#{meta*\ 2754}#
- #{else*\ 2755}#)
+ (#{chi-lambda-case\ 484}#
+ #{e\ 2515}#
+ #{r\ 2516}#
+ #{w\ 2517}#
+ #{s\ 2518}#
+ #{mod\ 2519}#
+ #{get-formals\ 2520}#
+ (map (lambda (#{tmp\ 2746}#
+ #{tmp\ 2745}#
+ #{tmp\ 2744}#)
+ (cons #{tmp\ 2744}#
+ (cons #{tmp\ 2745}#
+ #{tmp\ 2746}#)))
+ #{e2*\ 2718}#
+ #{e1*\ 2717}#
+ #{args*\ 2716}#)))
+ (lambda (#{meta*\ 2748}#
+ #{else*\ 2749}#)
(values
(append
- #{meta\ 2734}#
- #{meta*\ 2754}#)
- (#{build-lambda-case\ 327}#
- #{s\ 2524}#
- #{req\ 2735}#
- #{opt\ 2736}#
- #{rest\ 2737}#
- #{kw\ 2738}#
- #{inits\ 2739}#
- #{vars\ 2740}#
- #{body\ 2741}#
- #{else*\ 2755}#)))))))))
- #{tmp\ 2712}#)
+ #{meta\ 2728}#
+ #{meta*\ 2748}#)
+ (#{build-lambda-case\ 328}#
+ #{s\ 2518}#
+ #{req\ 2729}#
+ #{opt\ 2730}#
+ #{rest\ 2731}#
+ #{kw\ 2732}#
+ #{inits\ 2733}#
+ #{vars\ 2734}#
+ #{body\ 2735}#
+ #{else*\ 2749}#)))))))))
+ #{tmp\ 2706}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2710}#))))))))))
- (#{strip\ 487}#
- (lambda (#{x\ 2758}# #{w\ 2759}#)
- (if (memq 'top (car #{w\ 2759}#))
- #{x\ 2758}#
+ #{tmp\ 2704}#))))))))))
+ (#{strip\ 486}#
+ (lambda (#{x\ 2752}# #{w\ 2753}#)
+ (if (memq 'top (car #{w\ 2753}#))
+ #{x\ 2752}#
(letrec*
- ((#{f\ 2766}#
- (lambda (#{x\ 2767}#)
- (if (#{syntax-object?\ 345}# #{x\ 2767}#)
- (#{strip\ 487}#
- (#{syntax-object-expression\ 347}# #{x\ 2767}#)
- (#{syntax-object-wrap\ 349}# #{x\ 2767}#))
- (if (pair? #{x\ 2767}#)
+ ((#{f\ 2760}#
+ (lambda (#{x\ 2761}#)
+ (if (#{syntax-object?\ 346}# #{x\ 2761}#)
+ (#{strip\ 486}#
+ (#{syntax-object-expression\ 348}# #{x\ 2761}#)
+ (#{syntax-object-wrap\ 350}# #{x\ 2761}#))
+ (if (pair? #{x\ 2761}#)
(begin
- (let ((#{a\ 2774}# (#{f\ 2766}# (car #{x\ 2767}#)))
- (#{d\ 2775}#
- (#{f\ 2766}# (cdr #{x\ 2767}#))))
- (if (if (eq? #{a\ 2774}# (car #{x\ 2767}#))
- (eq? #{d\ 2775}# (cdr #{x\ 2767}#))
+ (let ((#{a\ 2768}# (#{f\ 2760}# (car #{x\ 2761}#)))
+ (#{d\ 2769}#
+ (#{f\ 2760}# (cdr #{x\ 2761}#))))
+ (if (if (eq? #{a\ 2768}# (car #{x\ 2761}#))
+ (eq? #{d\ 2769}# (cdr #{x\ 2761}#))
#f)
- #{x\ 2767}#
- (cons #{a\ 2774}# #{d\ 2775}#))))
- (if (vector? #{x\ 2767}#)
+ #{x\ 2761}#
+ (cons #{a\ 2768}# #{d\ 2769}#))))
+ (if (vector? #{x\ 2761}#)
(begin
- (let ((#{old\ 2781}# (vector->list #{x\ 2767}#)))
+ (let ((#{old\ 2775}# (vector->list #{x\ 2761}#)))
(begin
- (let ((#{new\ 2783}#
- (map #{f\ 2766}# #{old\ 2781}#)))
- (if (#{and-map*\ 37}#
+ (let ((#{new\ 2777}#
+ (map #{f\ 2760}# #{old\ 2775}#)))
+ (if (#{and-map*\ 38}#
eq?
- #{old\ 2781}#
- #{new\ 2783}#)
- #{x\ 2767}#
- (list->vector #{new\ 2783}#))))))
- #{x\ 2767}#))))))
- (begin (#{f\ 2766}# #{x\ 2758}#))))))
- (#{gen-var\ 489}#
- (lambda (#{id\ 2785}#)
+ #{old\ 2775}#
+ #{new\ 2777}#)
+ #{x\ 2761}#
+ (list->vector #{new\ 2777}#))))))
+ #{x\ 2761}#))))))
+ (begin (#{f\ 2760}# #{x\ 2752}#))))))
+ (#{gen-var\ 488}#
+ (lambda (#{id\ 2779}#)
(begin
- (let ((#{id\ 2788}#
- (if (#{syntax-object?\ 345}# #{id\ 2785}#)
- (#{syntax-object-expression\ 347}# #{id\ 2785}#)
- #{id\ 2785}#)))
+ (let ((#{id\ 2782}#
+ (if (#{syntax-object?\ 346}# #{id\ 2779}#)
+ (#{syntax-object-expression\ 348}# #{id\ 2779}#)
+ #{id\ 2779}#)))
(gensym
- (string-append (symbol->string #{id\ 2788}#) " "))))))
- (#{lambda-var-list\ 491}#
- (lambda (#{vars\ 2790}#)
+ (string-append (symbol->string #{id\ 2782}#) " "))))))
+ (#{lambda-var-list\ 490}#
+ (lambda (#{vars\ 2784}#)
(letrec*
- ((#{lvl\ 2796}#
- (lambda (#{vars\ 2797}# #{ls\ 2798}# #{w\ 2799}#)
- (if (pair? #{vars\ 2797}#)
- (#{lvl\ 2796}#
- (cdr #{vars\ 2797}#)
- (cons (#{wrap\ 445}#
- (car #{vars\ 2797}#)
- #{w\ 2799}#
+ ((#{lvl\ 2790}#
+ (lambda (#{vars\ 2791}# #{ls\ 2792}# #{w\ 2793}#)
+ (if (pair? #{vars\ 2791}#)
+ (#{lvl\ 2790}#
+ (cdr #{vars\ 2791}#)
+ (cons (#{wrap\ 446}#
+ (car #{vars\ 2791}#)
+ #{w\ 2793}#
#f)
- #{ls\ 2798}#)
- #{w\ 2799}#)
- (if (#{id?\ 379}# #{vars\ 2797}#)
- (cons (#{wrap\ 445}# #{vars\ 2797}# #{w\ 2799}# #f)
- #{ls\ 2798}#)
- (if (null? #{vars\ 2797}#)
- #{ls\ 2798}#
- (if (#{syntax-object?\ 345}# #{vars\ 2797}#)
- (#{lvl\ 2796}#
- (#{syntax-object-expression\ 347}#
- #{vars\ 2797}#)
- #{ls\ 2798}#
- (#{join-wraps\ 427}#
- #{w\ 2799}#
- (#{syntax-object-wrap\ 349}# #{vars\ 2797}#)))
- (cons #{vars\ 2797}# #{ls\ 2798}#))))))))
- (begin (#{lvl\ 2796}# #{vars\ 2790}# '() '(())))))))
+ #{ls\ 2792}#)
+ #{w\ 2793}#)
+ (if (#{id?\ 380}# #{vars\ 2791}#)
+ (cons (#{wrap\ 446}# #{vars\ 2791}# #{w\ 2793}# #f)
+ #{ls\ 2792}#)
+ (if (null? #{vars\ 2791}#)
+ #{ls\ 2792}#
+ (if (#{syntax-object?\ 346}# #{vars\ 2791}#)
+ (#{lvl\ 2790}#
+ (#{syntax-object-expression\ 348}#
+ #{vars\ 2791}#)
+ #{ls\ 2792}#
+ (#{join-wraps\ 428}#
+ #{w\ 2793}#
+ (#{syntax-object-wrap\ 350}# #{vars\ 2791}#)))
+ (cons #{vars\ 2791}# #{ls\ 2792}#))))))))
+ (begin (#{lvl\ 2790}# #{vars\ 2784}# '() '(())))))))
(begin
- (set! #{make-primitive-ref\ 243}#
- (lambda (#{src\ 757}# #{name\ 758}#)
+ (set! #{make-primitive-ref\ 244}#
+ (lambda (#{src\ 756}# #{name\ 757}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src\ 757}#
- #{name\ 758}#)))
- (set! #{fx+\ 282}# +)
- (set! #{fx-\ 284}# -)
- (set! #{fx=\ 286}# =)
- (set! #{fx<\ 288}# <)
- (set! #{set-syntax-object-expression!\ 353}#
- (lambda (#{x\ 1135}# #{update\ 1136}#)
- (vector-set! #{x\ 1135}# 1 #{update\ 1136}#)))
- (set! #{set-syntax-object-wrap!\ 355}#
- (lambda (#{x\ 1139}# #{update\ 1140}#)
- (vector-set! #{x\ 1139}# 2 #{update\ 1140}#)))
- (set! #{set-syntax-object-module!\ 357}#
- (lambda (#{x\ 1143}# #{update\ 1144}#)
- (vector-set! #{x\ 1143}# 3 #{update\ 1144}#)))
- (set! #{ribcage?\ 399}#
- (lambda (#{x\ 1224}#)
- (if (vector? #{x\ 1224}#)
- (if (= (vector-length #{x\ 1224}#) 4)
- (eq? (vector-ref #{x\ 1224}# 0) 'ribcage)
+ #{src\ 756}#
+ #{name\ 757}#)))
+ (set! #{fx+\ 283}# +)
+ (set! #{fx-\ 285}# -)
+ (set! #{fx=\ 287}# =)
+ (set! #{fx<\ 289}# <)
+ (set! #{set-syntax-object-expression!\ 354}#
+ (lambda (#{x\ 1134}# #{update\ 1135}#)
+ (vector-set! #{x\ 1134}# 1 #{update\ 1135}#)))
+ (set! #{set-syntax-object-wrap!\ 356}#
+ (lambda (#{x\ 1138}# #{update\ 1139}#)
+ (vector-set! #{x\ 1138}# 2 #{update\ 1139}#)))
+ (set! #{set-syntax-object-module!\ 358}#
+ (lambda (#{x\ 1142}# #{update\ 1143}#)
+ (vector-set! #{x\ 1142}# 3 #{update\ 1143}#)))
+ (set! #{ribcage?\ 400}#
+ (lambda (#{x\ 1223}#)
+ (if (vector? #{x\ 1223}#)
+ (if (= (vector-length #{x\ 1223}#) 4)
+ (eq? (vector-ref #{x\ 1223}# 0) 'ribcage)
#f)
#f)))
(begin
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2810}#
- #{r\ 2811}#
- #{w\ 2812}#
- #{s\ 2813}#
- #{mod\ 2814}#)
- (let ((#{tmp\ 2820}# #{e\ 2810}#))
- (let ((#{tmp\ 2821}#
+ (lambda (#{e\ 2804}#
+ #{r\ 2805}#
+ #{w\ 2806}#
+ #{s\ 2807}#
+ #{mod\ 2808}#)
+ (let ((#{tmp\ 2814}# #{e\ 2804}#))
+ (let ((#{tmp\ 2815}#
($sc-dispatch
- #{tmp\ 2820}#
+ #{tmp\ 2814}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2821}#
+ (if (if #{tmp\ 2815}#
(@apply
- (lambda (#{var\ 2826}#
- #{val\ 2827}#
- #{e1\ 2828}#
- #{e2\ 2829}#)
- (#{valid-bound-ids?\ 439}# #{var\ 2826}#))
- #{tmp\ 2821}#)
+ (lambda (#{var\ 2820}#
+ #{val\ 2821}#
+ #{e1\ 2822}#
+ #{e2\ 2823}#)
+ (#{valid-bound-ids?\ 440}# #{var\ 2820}#))
+ #{tmp\ 2815}#)
#f)
(@apply
- (lambda (#{var\ 2835}#
- #{val\ 2836}#
- #{e1\ 2837}#
- #{e2\ 2838}#)
+ (lambda (#{var\ 2829}#
+ #{val\ 2830}#
+ #{e1\ 2831}#
+ #{e2\ 2832}#)
(begin
- (let ((#{names\ 2840}#
- (map (lambda (#{x\ 2841}#)
- (#{id-var-name\ 433}#
- #{x\ 2841}#
- #{w\ 2812}#))
- #{var\ 2835}#)))
+ (let ((#{names\ 2834}#
+ (map (lambda (#{x\ 2835}#)
+ (#{id-var-name\ 434}#
+ #{x\ 2835}#
+ #{w\ 2806}#))
+ #{var\ 2829}#)))
(begin
(for-each
- (lambda (#{id\ 2844}# #{n\ 2845}#)
+ (lambda (#{id\ 2838}# #{n\ 2839}#)
(begin
- (let ((#{atom-key\ 2850}#
- (car (#{lookup\ 373}#
- #{n\ 2845}#
- #{r\ 2811}#
- #{mod\ 2814}#))))
- (if (eqv? #{atom-key\ 2850}#
+ (let ((#{atom-key\ 2844}#
+ (car (#{lookup\ 374}#
+ #{n\ 2839}#
+ #{r\ 2805}#
+ #{mod\ 2808}#))))
+ (if (eqv? #{atom-key\ 2844}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2810}#
- (#{source-wrap\ 447}#
- #{id\ 2844}#
- #{w\ 2812}#
- #{s\ 2813}#
- #{mod\ 2814}#))))))
- #{var\ 2835}#
- #{names\ 2840}#)
- (#{chi-body\ 469}#
- (cons #{e1\ 2837}# #{e2\ 2838}#)
- (#{source-wrap\ 447}#
- #{e\ 2810}#
- #{w\ 2812}#
- #{s\ 2813}#
- #{mod\ 2814}#)
- (#{extend-env\ 367}#
- #{names\ 2840}#
+ #{e\ 2804}#
+ (#{source-wrap\ 448}#
+ #{id\ 2838}#
+ #{w\ 2806}#
+ #{s\ 2807}#
+ #{mod\ 2808}#))))))
+ #{var\ 2829}#
+ #{names\ 2834}#)
+ (#{chi-body\ 468}#
+ (cons #{e1\ 2831}# #{e2\ 2832}#)
+ (#{source-wrap\ 448}#
+ #{e\ 2804}#
+ #{w\ 2806}#
+ #{s\ 2807}#
+ #{mod\ 2808}#)
+ (#{extend-env\ 368}#
+ #{names\ 2834}#
(begin
- (let ((#{trans-r\ 2856}#
- (#{macros-only-env\ 371}#
- #{r\ 2811}#)))
- (map (lambda (#{x\ 2857}#)
+ (let ((#{trans-r\ 2850}#
+ (#{macros-only-env\ 372}#
+ #{r\ 2805}#)))
+ (map (lambda (#{x\ 2851}#)
(cons 'macro
- (#{eval-local-transformer\ 473}#
- (#{chi\ 461}#
- #{x\ 2857}#
- #{trans-r\ 2856}#
- #{w\ 2812}#
- #{mod\ 2814}#)
- #{mod\ 2814}#)))
- #{val\ 2836}#)))
- #{r\ 2811}#)
- #{w\ 2812}#
- #{mod\ 2814}#)))))
- #{tmp\ 2821}#)
- (let ((#{_\ 2862}# #{tmp\ 2820}#))
+ (#{eval-local-transformer\ 472}#
+ (#{chi\ 460}#
+ #{x\ 2851}#
+ #{trans-r\ 2850}#
+ #{w\ 2806}#
+ #{mod\ 2808}#)
+ #{mod\ 2808}#)))
+ #{val\ 2830}#)))
+ #{r\ 2805}#)
+ #{w\ 2806}#
+ #{mod\ 2808}#)))))
+ #{tmp\ 2815}#)
+ (let ((#{_\ 2856}# #{tmp\ 2814}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 447}#
- #{e\ 2810}#
- #{w\ 2812}#
- #{s\ 2813}#
- #{mod\ 2814}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 448}#
+ #{e\ 2804}#
+ #{w\ 2806}#
+ #{s\ 2807}#
+ #{mod\ 2808}#))))))))
+ (#{global-extend\ 376}#
'core
'quote
- (lambda (#{e\ 2863}#
- #{r\ 2864}#
- #{w\ 2865}#
- #{s\ 2866}#
- #{mod\ 2867}#)
- (let ((#{tmp\ 2873}# #{e\ 2863}#))
- (let ((#{tmp\ 2874}#
- ($sc-dispatch #{tmp\ 2873}# '(_ any))))
- (if #{tmp\ 2874}#
+ (lambda (#{e\ 2857}#
+ #{r\ 2858}#
+ #{w\ 2859}#
+ #{s\ 2860}#
+ #{mod\ 2861}#)
+ (let ((#{tmp\ 2867}# #{e\ 2857}#))
+ (let ((#{tmp\ 2868}#
+ ($sc-dispatch #{tmp\ 2867}# '(_ any))))
+ (if #{tmp\ 2868}#
(@apply
- (lambda (#{e\ 2876}#)
- (#{build-data\ 331}#
- #{s\ 2866}#
- (#{strip\ 487}# #{e\ 2876}# #{w\ 2865}#)))
- #{tmp\ 2874}#)
- (let ((#{_\ 2878}# #{tmp\ 2873}#))
+ (lambda (#{e\ 2870}#)
+ (#{build-data\ 332}#
+ #{s\ 2860}#
+ (#{strip\ 486}# #{e\ 2870}# #{w\ 2859}#)))
+ #{tmp\ 2868}#)
+ (let ((#{_\ 2872}# #{tmp\ 2867}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 447}#
- #{e\ 2863}#
- #{w\ 2865}#
- #{s\ 2866}#
- #{mod\ 2867}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 448}#
+ #{e\ 2857}#
+ #{w\ 2859}#
+ #{s\ 2860}#
+ #{mod\ 2861}#))))))))
+ (#{global-extend\ 376}#
'core
'syntax
(letrec*
- ((#{gen-syntax\ 2880}#
- (lambda (#{src\ 2895}#
- #{e\ 2896}#
- #{r\ 2897}#
- #{maps\ 2898}#
- #{ellipsis?\ 2899}#
- #{mod\ 2900}#)
- (if (#{id?\ 379}# #{e\ 2896}#)
+ ((#{gen-syntax\ 2874}#
+ (lambda (#{src\ 2889}#
+ #{e\ 2890}#
+ #{r\ 2891}#
+ #{maps\ 2892}#
+ #{ellipsis?\ 2893}#
+ #{mod\ 2894}#)
+ (if (#{id?\ 380}# #{e\ 2890}#)
(begin
- (let ((#{label\ 2908}#
- (#{id-var-name\ 433}# #{e\ 2896}# '(()))))
+ (let ((#{label\ 2902}#
+ (#{id-var-name\ 434}# #{e\ 2890}# '(()))))
(begin
- (let ((#{b\ 2911}#
- (#{lookup\ 373}#
- #{label\ 2908}#
- #{r\ 2897}#
- #{mod\ 2900}#)))
- (if (eq? (car #{b\ 2911}#) 'syntax)
+ (let ((#{b\ 2905}#
+ (#{lookup\ 374}#
+ #{label\ 2902}#
+ #{r\ 2891}#
+ #{mod\ 2894}#)))
+ (if (eq? (car #{b\ 2905}#) 'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev\ 2914}#
- (cdr #{b\ 2911}#)))
- (#{gen-ref\ 2882}#
- #{src\ 2895}#
- (car #{var.lev\ 2914}#)
- (cdr #{var.lev\ 2914}#)
- #{maps\ 2898}#))))
- (lambda (#{var\ 2916}# #{maps\ 2917}#)
+ (let ((#{var.lev\ 2908}#
+ (cdr #{b\ 2905}#)))
+ (#{gen-ref\ 2876}#
+ #{src\ 2889}#
+ (car #{var.lev\ 2908}#)
+ (cdr #{var.lev\ 2908}#)
+ #{maps\ 2892}#))))
+ (lambda (#{var\ 2910}# #{maps\ 2911}#)
(values
- (list 'ref #{var\ 2916}#)
- #{maps\ 2917}#)))
- (if (#{ellipsis?\ 2899}# #{e\ 2896}#)
+ (list 'ref #{var\ 2910}#)
+ #{maps\ 2911}#)))
+ (if (#{ellipsis?\ 2893}# #{e\ 2890}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2895}#)
+ #{src\ 2889}#)
(values
- (list 'quote #{e\ 2896}#)
- #{maps\ 2898}#)))))))
- (let ((#{tmp\ 2922}# #{e\ 2896}#))
- (let ((#{tmp\ 2923}#
- ($sc-dispatch #{tmp\ 2922}# '(any any))))
- (if (if #{tmp\ 2923}#
+ (list 'quote #{e\ 2890}#)
+ #{maps\ 2892}#)))))))
+ (let ((#{tmp\ 2916}# #{e\ 2890}#))
+ (let ((#{tmp\ 2917}#
+ ($sc-dispatch #{tmp\ 2916}# '(any any))))
+ (if (if #{tmp\ 2917}#
(@apply
- (lambda (#{dots\ 2926}# #{e\ 2927}#)
- (#{ellipsis?\ 2899}# #{dots\ 2926}#))
- #{tmp\ 2923}#)
+ (lambda (#{dots\ 2920}# #{e\ 2921}#)
+ (#{ellipsis?\ 2893}# #{dots\ 2920}#))
+ #{tmp\ 2917}#)
#f)
(@apply
- (lambda (#{dots\ 2930}# #{e\ 2931}#)
- (#{gen-syntax\ 2880}#
- #{src\ 2895}#
- #{e\ 2931}#
- #{r\ 2897}#
- #{maps\ 2898}#
- (lambda (#{x\ 2932}#) #f)
- #{mod\ 2900}#))
- #{tmp\ 2923}#)
- (let ((#{tmp\ 2934}#
+ (lambda (#{dots\ 2924}# #{e\ 2925}#)
+ (#{gen-syntax\ 2874}#
+ #{src\ 2889}#
+ #{e\ 2925}#
+ #{r\ 2891}#
+ #{maps\ 2892}#
+ (lambda (#{x\ 2926}#) #f)
+ #{mod\ 2894}#))
+ #{tmp\ 2917}#)
+ (let ((#{tmp\ 2928}#
($sc-dispatch
- #{tmp\ 2922}#
+ #{tmp\ 2916}#
'(any any . any))))
- (if (if #{tmp\ 2934}#
+ (if (if #{tmp\ 2928}#
(@apply
- (lambda (#{x\ 2938}#
- #{dots\ 2939}#
- #{y\ 2940}#)
- (#{ellipsis?\ 2899}# #{dots\ 2939}#))
- #{tmp\ 2934}#)
+ (lambda (#{x\ 2932}#
+ #{dots\ 2933}#
+ #{y\ 2934}#)
+ (#{ellipsis?\ 2893}# #{dots\ 2933}#))
+ #{tmp\ 2928}#)
#f)
(@apply
- (lambda (#{x\ 2944}#
- #{dots\ 2945}#
- #{y\ 2946}#)
+ (lambda (#{x\ 2938}#
+ #{dots\ 2939}#
+ #{y\ 2940}#)
(letrec*
- ((#{f\ 2950}#
- (lambda (#{y\ 2951}# #{k\ 2952}#)
- (let ((#{tmp\ 2959}# #{y\ 2951}#))
- (let ((#{tmp\ 2960}#
+ ((#{f\ 2944}#
+ (lambda (#{y\ 2945}# #{k\ 2946}#)
+ (let ((#{tmp\ 2953}# #{y\ 2945}#))
+ (let ((#{tmp\ 2954}#
($sc-dispatch
- #{tmp\ 2959}#
+ #{tmp\ 2953}#
'(any . any))))
- (if (if #{tmp\ 2960}#
+ (if (if #{tmp\ 2954}#
(@apply
- (lambda (#{dots\ 2963}#
- #{y\ 2964}#)
- (#{ellipsis?\ 2899}#
- #{dots\ 2963}#))
- #{tmp\ 2960}#)
+ (lambda (#{dots\ 2957}#
+ #{y\ 2958}#)
+ (#{ellipsis?\ 2893}#
+ #{dots\ 2957}#))
+ #{tmp\ 2954}#)
#f)
(@apply
- (lambda (#{dots\ 2967}#
- #{y\ 2968}#)
- (#{f\ 2950}#
- #{y\ 2968}#
- (lambda (#{maps\ 2969}#)
+ (lambda (#{dots\ 2961}#
+ #{y\ 2962}#)
+ (#{f\ 2944}#
+ #{y\ 2962}#
+ (lambda (#{maps\ 2963}#)
(call-with-values
(lambda ()
- (#{k\ 2952}#
+ (#{k\ 2946}#
(cons '()
- #{maps\ 2969}#)))
- (lambda (#{x\ 2971}#
- #{maps\ 2972}#)
- (if (null? (car #{maps\ 2972}#))
+ #{maps\ 2963}#)))
+ (lambda (#{x\ 2965}#
+ #{maps\ 2966}#)
+ (if (null? (car #{maps\ 2966}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2895}#)
+ #{src\ 2889}#)
(values
- (#{gen-mappend\ 2884}#
- #{x\ 2971}#
- (car #{maps\ 2972}#))
- (cdr #{maps\ 2972}#))))))))
- #{tmp\ 2960}#)
- (let ((#{_\ 2976}#
- #{tmp\ 2959}#))
+ (#{gen-mappend\ 2878}#
+ #{x\ 2965}#
+ (car #{maps\ 2966}#))
+ (cdr #{maps\ 2966}#))))))))
+ #{tmp\ 2954}#)
+ (let ((#{_\ 2970}#
+ #{tmp\ 2953}#))
(call-with-values
(lambda ()
- (#{gen-syntax\ 2880}#
- #{src\ 2895}#
- #{y\ 2951}#
- #{r\ 2897}#
- #{maps\ 2898}#
- #{ellipsis?\ 2899}#
- #{mod\ 2900}#))
- (lambda (#{y\ 2977}#
- #{maps\ 2978}#)
+ (#{gen-syntax\ 2874}#
+ #{src\ 2889}#
+ #{y\ 2945}#
+ #{r\ 2891}#
+ #{maps\ 2892}#
+ #{ellipsis?\ 2893}#
+ #{mod\ 2894}#))
+ (lambda (#{y\ 2971}#
+ #{maps\ 2972}#)
(call-with-values
(lambda ()
- (#{k\ 2952}#
- #{maps\ 2978}#))
- (lambda (#{x\ 2981}#
- #{maps\ 2982}#)
+ (#{k\ 2946}#
+ #{maps\ 2972}#))
+ (lambda (#{x\ 2975}#
+ #{maps\ 2976}#)
(values
- (#{gen-append\ 2890}#
- #{x\ 2981}#
- #{y\ 2977}#)
- #{maps\ 2982}#))))))))))))
+ (#{gen-append\ 2884}#
+ #{x\ 2975}#
+ #{y\ 2971}#)
+ #{maps\ 2976}#))))))))))))
(begin
- (#{f\ 2950}#
- #{y\ 2946}#
- (lambda (#{maps\ 2953}#)
+ (#{f\ 2944}#
+ #{y\ 2940}#
+ (lambda (#{maps\ 2947}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2880}#
- #{src\ 2895}#
- #{x\ 2944}#
- #{r\ 2897}#
- (cons '() #{maps\ 2953}#)
- #{ellipsis?\ 2899}#
- #{mod\ 2900}#))
- (lambda (#{x\ 2955}#
- #{maps\ 2956}#)
- (if (null? (car #{maps\ 2956}#))
+ (#{gen-syntax\ 2874}#
+ #{src\ 2889}#
+ #{x\ 2938}#
+ #{r\ 2891}#
+ (cons '() #{maps\ 2947}#)
+ #{ellipsis?\ 2893}#
+ #{mod\ 2894}#))
+ (lambda (#{x\ 2949}#
+ #{maps\ 2950}#)
+ (if (null? (car #{maps\ 2950}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2895}#)
+ #{src\ 2889}#)
(values
- (#{gen-map\ 2886}#
- #{x\ 2955}#
- (car #{maps\ 2956}#))
- (cdr #{maps\ 2956}#))))))))))
- #{tmp\ 2934}#)
- (let ((#{tmp\ 2985}#
+ (#{gen-map\ 2880}#
+ #{x\ 2949}#
+ (car #{maps\ 2950}#))
+ (cdr #{maps\ 2950}#))))))))))
+ #{tmp\ 2928}#)
+ (let ((#{tmp\ 2979}#
($sc-dispatch
- #{tmp\ 2922}#
+ #{tmp\ 2916}#
'(any . any))))
- (if #{tmp\ 2985}#
+ (if #{tmp\ 2979}#
(@apply
- (lambda (#{x\ 2988}# #{y\ 2989}#)
+ (lambda (#{x\ 2982}# #{y\ 2983}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2880}#
- #{src\ 2895}#
- #{x\ 2988}#
- #{r\ 2897}#
- #{maps\ 2898}#
- #{ellipsis?\ 2899}#
- #{mod\ 2900}#))
- (lambda (#{x\ 2990}# #{maps\ 2991}#)
+ (#{gen-syntax\ 2874}#
+ #{src\ 2889}#
+ #{x\ 2982}#
+ #{r\ 2891}#
+ #{maps\ 2892}#
+ #{ellipsis?\ 2893}#
+ #{mod\ 2894}#))
+ (lambda (#{x\ 2984}# #{maps\ 2985}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2880}#
- #{src\ 2895}#
- #{y\ 2989}#
- #{r\ 2897}#
- #{maps\ 2991}#
- #{ellipsis?\ 2899}#
- #{mod\ 2900}#))
- (lambda (#{y\ 2994}#
- #{maps\ 2995}#)
+ (#{gen-syntax\ 2874}#
+ #{src\ 2889}#
+ #{y\ 2983}#
+ #{r\ 2891}#
+ #{maps\ 2985}#
+ #{ellipsis?\ 2893}#
+ #{mod\ 2894}#))
+ (lambda (#{y\ 2988}#
+ #{maps\ 2989}#)
(values
- (#{gen-cons\ 2888}#
- #{x\ 2990}#
- #{y\ 2994}#)
- #{maps\ 2995}#))))))
- #{tmp\ 2985}#)
- (let ((#{tmp\ 2998}#
+ (#{gen-cons\ 2882}#
+ #{x\ 2984}#
+ #{y\ 2988}#)
+ #{maps\ 2989}#))))))
+ #{tmp\ 2979}#)
+ (let ((#{tmp\ 2992}#
($sc-dispatch
- #{tmp\ 2922}#
+ #{tmp\ 2916}#
'#(vector (any . each-any)))))
- (if #{tmp\ 2998}#
+ (if #{tmp\ 2992}#
(@apply
- (lambda (#{e1\ 3001}# #{e2\ 3002}#)
+ (lambda (#{e1\ 2995}# #{e2\ 2996}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2880}#
- #{src\ 2895}#
- (cons #{e1\ 3001}#
- #{e2\ 3002}#)
- #{r\ 2897}#
- #{maps\ 2898}#
- #{ellipsis?\ 2899}#
- #{mod\ 2900}#))
- (lambda (#{e\ 3004}#
- #{maps\ 3005}#)
+ (#{gen-syntax\ 2874}#
+ #{src\ 2889}#
+ (cons #{e1\ 2995}#
+ #{e2\ 2996}#)
+ #{r\ 2891}#
+ #{maps\ 2892}#
+ #{ellipsis?\ 2893}#
+ #{mod\ 2894}#))
+ (lambda (#{e\ 2998}#
+ #{maps\ 2999}#)
(values
- (#{gen-vector\ 2892}#
- #{e\ 3004}#)
- #{maps\ 3005}#))))
- #{tmp\ 2998}#)
- (let ((#{_\ 3009}# #{tmp\ 2922}#))
+ (#{gen-vector\ 2886}#
+ #{e\ 2998}#)
+ #{maps\ 2999}#))))
+ #{tmp\ 2992}#)
+ (let ((#{_\ 3003}# #{tmp\ 2916}#))
(values
- (list 'quote #{e\ 2896}#)
- #{maps\ 2898}#))))))))))))))
- (#{gen-ref\ 2882}#
- (lambda (#{src\ 3011}#
- #{var\ 3012}#
- #{level\ 3013}#
- #{maps\ 3014}#)
- (if (#{fx=\ 286}# #{level\ 3013}# 0)
- (values #{var\ 3012}# #{maps\ 3014}#)
- (if (null? #{maps\ 3014}#)
+ (list 'quote #{e\ 2890}#)
+ #{maps\ 2892}#))))))))))))))
+ (#{gen-ref\ 2876}#
+ (lambda (#{src\ 3005}#
+ #{var\ 3006}#
+ #{level\ 3007}#
+ #{maps\ 3008}#)
+ (if (#{fx=\ 287}# #{level\ 3007}# 0)
+ (values #{var\ 3006}# #{maps\ 3008}#)
+ (if (null? #{maps\ 3008}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 3011}#)
+ #{src\ 3005}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2882}#
- #{src\ 3011}#
- #{var\ 3012}#
- (#{fx-\ 284}# #{level\ 3013}# 1)
- (cdr #{maps\ 3014}#)))
- (lambda (#{outer-var\ 3019}# #{outer-maps\ 3020}#)
+ (#{gen-ref\ 2876}#
+ #{src\ 3005}#
+ #{var\ 3006}#
+ (#{fx-\ 285}# #{level\ 3007}# 1)
+ (cdr #{maps\ 3008}#)))
+ (lambda (#{outer-var\ 3013}# #{outer-maps\ 3014}#)
(begin
- (let ((#{b\ 3024}#
- (assq #{outer-var\ 3019}#
- (car #{maps\ 3014}#))))
- (if #{b\ 3024}#
- (values (cdr #{b\ 3024}#) #{maps\ 3014}#)
+ (let ((#{b\ 3018}#
+ (assq #{outer-var\ 3013}#
+ (car #{maps\ 3008}#))))
+ (if #{b\ 3018}#
+ (values (cdr #{b\ 3018}#) #{maps\ 3008}#)
(begin
- (let ((#{inner-var\ 3026}#
- (#{gen-var\ 489}# 'tmp)))
+ (let ((#{inner-var\ 3020}#
+ (#{gen-var\ 488}# 'tmp)))
(values
- #{inner-var\ 3026}#
- (cons (cons (cons #{outer-var\ 3019}#
- #{inner-var\ 3026}#)
- (car #{maps\ 3014}#))
- #{outer-maps\ 3020}#)))))))))))))
- (#{gen-mappend\ 2884}#
- (lambda (#{e\ 3027}# #{map-env\ 3028}#)
+ #{inner-var\ 3020}#
+ (cons (cons (cons #{outer-var\ 3013}#
+ #{inner-var\ 3020}#)
+ (car #{maps\ 3008}#))
+ #{outer-maps\ 3014}#)))))))))))))
+ (#{gen-mappend\ 2878}#
+ (lambda (#{e\ 3021}# #{map-env\ 3022}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2886}# #{e\ 3027}# #{map-env\ 3028}#))))
- (#{gen-map\ 2886}#
- (lambda (#{e\ 3032}# #{map-env\ 3033}#)
+ (#{gen-map\ 2880}# #{e\ 3021}# #{map-env\ 3022}#))))
+ (#{gen-map\ 2880}#
+ (lambda (#{e\ 3026}# #{map-env\ 3027}#)
(begin
- (let ((#{formals\ 3038}# (map cdr #{map-env\ 3033}#))
- (#{actuals\ 3039}#
- (map (lambda (#{x\ 3040}#)
- (list 'ref (car #{x\ 3040}#)))
- #{map-env\ 3033}#)))
- (if (eq? (car #{e\ 3032}#) 'ref)
- (car #{actuals\ 3039}#)
+ (let ((#{formals\ 3032}# (map cdr #{map-env\ 3027}#))
+ (#{actuals\ 3033}#
+ (map (lambda (#{x\ 3034}#)
+ (list 'ref (car #{x\ 3034}#)))
+ #{map-env\ 3027}#)))
+ (if (eq? (car #{e\ 3026}#) 'ref)
+ (car #{actuals\ 3033}#)
(if (and-map
- (lambda (#{x\ 3047}#)
- (if (eq? (car #{x\ 3047}#) 'ref)
- (memq (car (cdr #{x\ 3047}#))
- #{formals\ 3038}#)
+ (lambda (#{x\ 3041}#)
+ (if (eq? (car #{x\ 3041}#) 'ref)
+ (memq (car (cdr #{x\ 3041}#))
+ #{formals\ 3032}#)
#f))
- (cdr #{e\ 3032}#))
+ (cdr #{e\ 3026}#))
(cons 'map
- (cons (list 'primitive (car #{e\ 3032}#))
+ (cons (list 'primitive (car #{e\ 3026}#))
(map (begin
- (let ((#{r\ 3053}#
+ (let ((#{r\ 3047}#
(map cons
- #{formals\ 3038}#
- #{actuals\ 3039}#)))
- (lambda (#{x\ 3054}#)
- (cdr (assq (car (cdr #{x\ 3054}#))
- #{r\ 3053}#)))))
- (cdr #{e\ 3032}#))))
+ #{formals\ 3032}#
+ #{actuals\ 3033}#)))
+ (lambda (#{x\ 3048}#)
+ (cdr (assq (car (cdr #{x\ 3048}#))
+ #{r\ 3047}#)))))
+ (cdr #{e\ 3026}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 3038}#
- #{e\ 3032}#)
- #{actuals\ 3039}#))))))))
- (#{gen-cons\ 2888}#
- (lambda (#{x\ 3058}# #{y\ 3059}#)
+ #{formals\ 3032}#
+ #{e\ 3026}#)
+ #{actuals\ 3033}#))))))))
+ (#{gen-cons\ 2882}#
+ (lambda (#{x\ 3052}# #{y\ 3053}#)
(begin
- (let ((#{atom-key\ 3064}# (car #{y\ 3059}#)))
- (if (eqv? #{atom-key\ 3064}# 'quote)
- (if (eq? (car #{x\ 3058}#) 'quote)
+ (let ((#{atom-key\ 3058}# (car #{y\ 3053}#)))
+ (if (eqv? #{atom-key\ 3058}# 'quote)
+ (if (eq? (car #{x\ 3052}#) 'quote)
(list 'quote
- (cons (car (cdr #{x\ 3058}#))
- (car (cdr #{y\ 3059}#))))
- (if (eq? (car (cdr #{y\ 3059}#)) '())
- (list 'list #{x\ 3058}#)
- (list 'cons #{x\ 3058}# #{y\ 3059}#)))
- (if (eqv? #{atom-key\ 3064}# 'list)
- (cons 'list (cons #{x\ 3058}# (cdr #{y\ 3059}#)))
- (list 'cons #{x\ 3058}# #{y\ 3059}#)))))))
- (#{gen-append\ 2890}#
- (lambda (#{x\ 3073}# #{y\ 3074}#)
- (if (equal? #{y\ 3074}# ''())
- #{x\ 3073}#
- (list 'append #{x\ 3073}# #{y\ 3074}#))))
- (#{gen-vector\ 2892}#
- (lambda (#{x\ 3078}#)
- (if (eq? (car #{x\ 3078}#) 'list)
- (cons 'vector (cdr #{x\ 3078}#))
- (if (eq? (car #{x\ 3078}#) 'quote)
+ (cons (car (cdr #{x\ 3052}#))
+ (car (cdr #{y\ 3053}#))))
+ (if (eq? (car (cdr #{y\ 3053}#)) '())
+ (list 'list #{x\ 3052}#)
+ (list 'cons #{x\ 3052}# #{y\ 3053}#)))
+ (if (eqv? #{atom-key\ 3058}# 'list)
+ (cons 'list (cons #{x\ 3052}# (cdr #{y\ 3053}#)))
+ (list 'cons #{x\ 3052}# #{y\ 3053}#)))))))
+ (#{gen-append\ 2884}#
+ (lambda (#{x\ 3067}# #{y\ 3068}#)
+ (if (equal? #{y\ 3068}# ''())
+ #{x\ 3067}#
+ (list 'append #{x\ 3067}# #{y\ 3068}#))))
+ (#{gen-vector\ 2886}#
+ (lambda (#{x\ 3072}#)
+ (if (eq? (car #{x\ 3072}#) 'list)
+ (cons 'vector (cdr #{x\ 3072}#))
+ (if (eq? (car #{x\ 3072}#) 'quote)
(list 'quote
- (list->vector (car (cdr #{x\ 3078}#))))
- (list 'list->vector #{x\ 3078}#)))))
- (#{regen\ 2894}#
- (lambda (#{x\ 3088}#)
+ (list->vector (car (cdr #{x\ 3072}#))))
+ (list 'list->vector #{x\ 3072}#)))))
+ (#{regen\ 2888}#
+ (lambda (#{x\ 3082}#)
(begin
- (let ((#{atom-key\ 3092}# (car #{x\ 3088}#)))
- (if (eqv? #{atom-key\ 3092}# 'ref)
- (#{build-lexical-reference\ 311}#
+ (let ((#{atom-key\ 3086}# (car #{x\ 3082}#)))
+ (if (eqv? #{atom-key\ 3086}# 'ref)
+ (#{build-lexical-reference\ 312}#
'value
#f
- (car (cdr #{x\ 3088}#))
- (car (cdr #{x\ 3088}#)))
- (if (eqv? #{atom-key\ 3092}# 'primitive)
- (#{build-primref\ 329}#
+ (car (cdr #{x\ 3082}#))
+ (car (cdr #{x\ 3082}#)))
+ (if (eqv? #{atom-key\ 3086}# 'primitive)
+ (#{build-primref\ 330}#
#f
- (car (cdr #{x\ 3088}#)))
- (if (eqv? #{atom-key\ 3092}# 'quote)
- (#{build-data\ 331}# #f (car (cdr #{x\ 3088}#)))
- (if (eqv? #{atom-key\ 3092}# 'lambda)
- (if (list? (car (cdr #{x\ 3088}#)))
- (#{build-simple-lambda\ 323}#
+ (car (cdr #{x\ 3082}#)))
+ (if (eqv? #{atom-key\ 3086}# 'quote)
+ (#{build-data\ 332}# #f (car (cdr #{x\ 3082}#)))
+ (if (eqv? #{atom-key\ 3086}# 'lambda)
+ (if (list? (car (cdr #{x\ 3082}#)))
+ (#{build-simple-lambda\ 324}#
#f
- (car (cdr #{x\ 3088}#))
+ (car (cdr #{x\ 3082}#))
#f
- (car (cdr #{x\ 3088}#))
+ (car (cdr #{x\ 3082}#))
'()
- (#{regen\ 2894}#
- (car (cdr (cdr #{x\ 3088}#)))))
- (error "how did we get here" #{x\ 3088}#))
- (#{build-application\ 305}#
+ (#{regen\ 2888}#
+ (car (cdr (cdr #{x\ 3082}#)))))
+ (error "how did we get here" #{x\ 3082}#))
+ (#{build-application\ 306}#
#f
- (#{build-primref\ 329}#
+ (#{build-primref\ 330}#
#f
- (car #{x\ 3088}#))
- (map #{regen\ 2894}#
- (cdr #{x\ 3088}#))))))))))))
+ (car #{x\ 3082}#))
+ (map #{regen\ 2888}#
+ (cdr #{x\ 3082}#))))))))))))
(begin
- (lambda (#{e\ 3104}#
- #{r\ 3105}#
- #{w\ 3106}#
- #{s\ 3107}#
- #{mod\ 3108}#)
+ (lambda (#{e\ 3098}#
+ #{r\ 3099}#
+ #{w\ 3100}#
+ #{s\ 3101}#
+ #{mod\ 3102}#)
(begin
- (let ((#{e\ 3115}#
- (#{source-wrap\ 447}#
- #{e\ 3104}#
- #{w\ 3106}#
- #{s\ 3107}#
- #{mod\ 3108}#)))
- (let ((#{tmp\ 3116}# #{e\ 3115}#))
- (let ((#{tmp\ 3117}#
- ($sc-dispatch #{tmp\ 3116}# '(_ any))))
- (if #{tmp\ 3117}#
+ (let ((#{e\ 3109}#
+ (#{source-wrap\ 448}#
+ #{e\ 3098}#
+ #{w\ 3100}#
+ #{s\ 3101}#
+ #{mod\ 3102}#)))
+ (let ((#{tmp\ 3110}# #{e\ 3109}#))
+ (let ((#{tmp\ 3111}#
+ ($sc-dispatch #{tmp\ 3110}# '(_ any))))
+ (if #{tmp\ 3111}#
(@apply
- (lambda (#{x\ 3119}#)
+ (lambda (#{x\ 3113}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2880}#
- #{e\ 3115}#
- #{x\ 3119}#
- #{r\ 3105}#
+ (#{gen-syntax\ 2874}#
+ #{e\ 3109}#
+ #{x\ 3113}#
+ #{r\ 3099}#
'()
- #{ellipsis?\ 477}#
- #{mod\ 3108}#))
- (lambda (#{e\ 3120}# #{maps\ 3121}#)
- (#{regen\ 2894}# #{e\ 3120}#))))
- #{tmp\ 3117}#)
- (let ((#{_\ 3125}# #{tmp\ 3116}#))
+ #{ellipsis?\ 476}#
+ #{mod\ 3102}#))
+ (lambda (#{e\ 3114}# #{maps\ 3115}#)
+ (#{regen\ 2888}# #{e\ 3114}#))))
+ #{tmp\ 3111}#)
+ (let ((#{_\ 3119}# #{tmp\ 3110}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 3115}#)))))))))))
- (#{global-extend\ 375}#
+ #{e\ 3109}#)))))))))))
+ (#{global-extend\ 376}#
'core
'lambda
- (lambda (#{e\ 3126}#
- #{r\ 3127}#
- #{w\ 3128}#
- #{s\ 3129}#
- #{mod\ 3130}#)
- (let ((#{tmp\ 3136}# #{e\ 3126}#))
- (let ((#{tmp\ 3137}#
+ (lambda (#{e\ 3120}#
+ #{r\ 3121}#
+ #{w\ 3122}#
+ #{s\ 3123}#
+ #{mod\ 3124}#)
+ (let ((#{tmp\ 3130}# #{e\ 3120}#))
+ (let ((#{tmp\ 3131}#
($sc-dispatch
- #{tmp\ 3136}#
+ #{tmp\ 3130}#
'(_ any any . each-any))))
- (if #{tmp\ 3137}#
+ (if #{tmp\ 3131}#
(@apply
- (lambda (#{args\ 3141}# #{e1\ 3142}# #{e2\ 3143}#)
+ (lambda (#{args\ 3135}# #{e1\ 3136}# #{e2\ 3137}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 479}# #{args\ 3141}#))
- (lambda (#{req\ 3144}#
- #{opt\ 3145}#
- #{rest\ 3146}#
- #{kw\ 3147}#)
+ (#{lambda-formals\ 478}# #{args\ 3135}#))
+ (lambda (#{req\ 3138}#
+ #{opt\ 3139}#
+ #{rest\ 3140}#
+ #{kw\ 3141}#)
(letrec*
- ((#{lp\ 3155}#
- (lambda (#{body\ 3156}# #{meta\ 3157}#)
- (let ((#{tmp\ 3159}# #{body\ 3156}#))
- (let ((#{tmp\ 3160}#
+ ((#{lp\ 3149}#
+ (lambda (#{body\ 3150}# #{meta\ 3151}#)
+ (let ((#{tmp\ 3153}# #{body\ 3150}#))
+ (let ((#{tmp\ 3154}#
($sc-dispatch
- #{tmp\ 3159}#
+ #{tmp\ 3153}#
'(any any . each-any))))
- (if (if #{tmp\ 3160}#
+ (if (if #{tmp\ 3154}#
(@apply
- (lambda (#{docstring\ 3164}#
- #{e1\ 3165}#
- #{e2\ 3166}#)
+ (lambda (#{docstring\ 3158}#
+ #{e1\ 3159}#
+ #{e2\ 3160}#)
(string?
(syntax->datum
- #{docstring\ 3164}#)))
- #{tmp\ 3160}#)
+ #{docstring\ 3158}#)))
+ #{tmp\ 3154}#)
#f)
(@apply
- (lambda (#{docstring\ 3170}#
- #{e1\ 3171}#
- #{e2\ 3172}#)
- (#{lp\ 3155}#
- (cons #{e1\ 3171}#
- #{e2\ 3172}#)
+ (lambda (#{docstring\ 3164}#
+ #{e1\ 3165}#
+ #{e2\ 3166}#)
+ (#{lp\ 3149}#
+ (cons #{e1\ 3165}#
+ #{e2\ 3166}#)
(append
- #{meta\ 3157}#
+ #{meta\ 3151}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 3170}#))))))
- #{tmp\ 3160}#)
- (let ((#{tmp\ 3175}#
+ #{docstring\ 3164}#))))))
+ #{tmp\ 3154}#)
+ (let ((#{tmp\ 3169}#
($sc-dispatch
- #{tmp\ 3159}#
+ #{tmp\ 3153}#
'(#(vector
#(each (any . any)))
any
.
each-any))))
- (if #{tmp\ 3175}#
+ (if #{tmp\ 3169}#
(@apply
- (lambda (#{k\ 3180}#
- #{v\ 3181}#
- #{e1\ 3182}#
- #{e2\ 3183}#)
- (#{lp\ 3155}#
- (cons #{e1\ 3182}#
- #{e2\ 3183}#)
+ (lambda (#{k\ 3174}#
+ #{v\ 3175}#
+ #{e1\ 3176}#
+ #{e2\ 3177}#)
+ (#{lp\ 3149}#
+ (cons #{e1\ 3176}#
+ #{e2\ 3177}#)
(append
- #{meta\ 3157}#
+ #{meta\ 3151}#
(syntax->datum
(map cons
- #{k\ 3180}#
- #{v\ 3181}#)))))
- #{tmp\ 3175}#)
- (let ((#{_\ 3188}#
- #{tmp\ 3159}#))
- (#{chi-simple-lambda\ 481}#
- #{e\ 3126}#
- #{r\ 3127}#
- #{w\ 3128}#
- #{s\ 3129}#
- #{mod\ 3130}#
- #{req\ 3144}#
- #{rest\ 3146}#
- #{meta\ 3157}#
- #{body\ 3156}#))))))))))
+ #{k\ 3174}#
+ #{v\ 3175}#)))))
+ #{tmp\ 3169}#)
+ (let ((#{_\ 3182}#
+ #{tmp\ 3153}#))
+ (#{chi-simple-lambda\ 480}#
+ #{e\ 3120}#
+ #{r\ 3121}#
+ #{w\ 3122}#
+ #{s\ 3123}#
+ #{mod\ 3124}#
+ #{req\ 3138}#
+ #{rest\ 3140}#
+ #{meta\ 3151}#
+ #{body\ 3150}#))))))))))
(begin
- (#{lp\ 3155}#
- (cons #{e1\ 3142}# #{e2\ 3143}#)
+ (#{lp\ 3149}#
+ (cons #{e1\ 3136}# #{e2\ 3137}#)
'()))))))
- #{tmp\ 3137}#)
- (let ((#{_\ 3190}# #{tmp\ 3136}#))
+ #{tmp\ 3131}#)
+ (let ((#{_\ 3184}# #{tmp\ 3130}#))
(syntax-violation
'lambda
"bad lambda"
- #{e\ 3126}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3120}#)))))))
+ (#{global-extend\ 376}#
'core
'lambda*
- (lambda (#{e\ 3191}#
- #{r\ 3192}#
- #{w\ 3193}#
- #{s\ 3194}#
- #{mod\ 3195}#)
- (let ((#{tmp\ 3201}# #{e\ 3191}#))
- (let ((#{tmp\ 3202}#
+ (lambda (#{e\ 3185}#
+ #{r\ 3186}#
+ #{w\ 3187}#
+ #{s\ 3188}#
+ #{mod\ 3189}#)
+ (let ((#{tmp\ 3195}# #{e\ 3185}#))
+ (let ((#{tmp\ 3196}#
($sc-dispatch
- #{tmp\ 3201}#
+ #{tmp\ 3195}#
'(_ any any . each-any))))
- (if #{tmp\ 3202}#
+ (if #{tmp\ 3196}#
(@apply
- (lambda (#{args\ 3206}# #{e1\ 3207}# #{e2\ 3208}#)
+ (lambda (#{args\ 3200}# #{e1\ 3201}# #{e2\ 3202}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 485}#
- #{e\ 3191}#
- #{r\ 3192}#
- #{w\ 3193}#
- #{s\ 3194}#
- #{mod\ 3195}#
- #{lambda*-formals\ 483}#
- (list (cons #{args\ 3206}#
- (cons #{e1\ 3207}#
- #{e2\ 3208}#)))))
- (lambda (#{meta\ 3210}# #{lcase\ 3211}#)
- (#{build-case-lambda\ 325}#
- #{s\ 3194}#
- #{meta\ 3210}#
- #{lcase\ 3211}#))))
- #{tmp\ 3202}#)
- (let ((#{_\ 3215}# #{tmp\ 3201}#))
+ (#{chi-lambda-case\ 484}#
+ #{e\ 3185}#
+ #{r\ 3186}#
+ #{w\ 3187}#
+ #{s\ 3188}#
+ #{mod\ 3189}#
+ #{lambda*-formals\ 482}#
+ (list (cons #{args\ 3200}#
+ (cons #{e1\ 3201}#
+ #{e2\ 3202}#)))))
+ (lambda (#{meta\ 3204}# #{lcase\ 3205}#)
+ (#{build-case-lambda\ 326}#
+ #{s\ 3188}#
+ #{meta\ 3204}#
+ #{lcase\ 3205}#))))
+ #{tmp\ 3196}#)
+ (let ((#{_\ 3209}# #{tmp\ 3195}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 3191}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3185}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda
- (lambda (#{e\ 3216}#
- #{r\ 3217}#
- #{w\ 3218}#
- #{s\ 3219}#
- #{mod\ 3220}#)
- (let ((#{tmp\ 3226}# #{e\ 3216}#))
- (let ((#{tmp\ 3227}#
+ (lambda (#{e\ 3210}#
+ #{r\ 3211}#
+ #{w\ 3212}#
+ #{s\ 3213}#
+ #{mod\ 3214}#)
+ (let ((#{tmp\ 3220}# #{e\ 3210}#))
+ (let ((#{tmp\ 3221}#
($sc-dispatch
- #{tmp\ 3226}#
+ #{tmp\ 3220}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3227}#
+ (if #{tmp\ 3221}#
(@apply
- (lambda (#{args\ 3234}#
- #{e1\ 3235}#
- #{e2\ 3236}#
- #{args*\ 3237}#
- #{e1*\ 3238}#
- #{e2*\ 3239}#)
+ (lambda (#{args\ 3228}#
+ #{e1\ 3229}#
+ #{e2\ 3230}#
+ #{args*\ 3231}#
+ #{e1*\ 3232}#
+ #{e2*\ 3233}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 485}#
- #{e\ 3216}#
- #{r\ 3217}#
- #{w\ 3218}#
- #{s\ 3219}#
- #{mod\ 3220}#
- #{lambda-formals\ 479}#
- (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\ 325}#
- #{s\ 3219}#
- #{meta\ 3245}#
- #{lcase\ 3246}#))))
- #{tmp\ 3227}#)
- (let ((#{_\ 3250}# #{tmp\ 3226}#))
+ (#{chi-lambda-case\ 484}#
+ #{e\ 3210}#
+ #{r\ 3211}#
+ #{w\ 3212}#
+ #{s\ 3213}#
+ #{mod\ 3214}#
+ #{lambda-formals\ 478}#
+ (cons (cons #{args\ 3228}#
+ (cons #{e1\ 3229}# #{e2\ 3230}#))
+ (map (lambda (#{tmp\ 3237}#
+ #{tmp\ 3236}#
+ #{tmp\ 3235}#)
+ (cons #{tmp\ 3235}#
+ (cons #{tmp\ 3236}#
+ #{tmp\ 3237}#)))
+ #{e2*\ 3233}#
+ #{e1*\ 3232}#
+ #{args*\ 3231}#))))
+ (lambda (#{meta\ 3239}# #{lcase\ 3240}#)
+ (#{build-case-lambda\ 326}#
+ #{s\ 3213}#
+ #{meta\ 3239}#
+ #{lcase\ 3240}#))))
+ #{tmp\ 3221}#)
+ (let ((#{_\ 3244}# #{tmp\ 3220}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3216}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3210}#)))))))
+ (#{global-extend\ 376}#
'core
'case-lambda*
- (lambda (#{e\ 3251}#
- #{r\ 3252}#
- #{w\ 3253}#
- #{s\ 3254}#
- #{mod\ 3255}#)
- (let ((#{tmp\ 3261}# #{e\ 3251}#))
- (let ((#{tmp\ 3262}#
+ (lambda (#{e\ 3245}#
+ #{r\ 3246}#
+ #{w\ 3247}#
+ #{s\ 3248}#
+ #{mod\ 3249}#)
+ (let ((#{tmp\ 3255}# #{e\ 3245}#))
+ (let ((#{tmp\ 3256}#
($sc-dispatch
- #{tmp\ 3261}#
+ #{tmp\ 3255}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp\ 3262}#
+ (if #{tmp\ 3256}#
(@apply
- (lambda (#{args\ 3269}#
- #{e1\ 3270}#
- #{e2\ 3271}#
- #{args*\ 3272}#
- #{e1*\ 3273}#
- #{e2*\ 3274}#)
+ (lambda (#{args\ 3263}#
+ #{e1\ 3264}#
+ #{e2\ 3265}#
+ #{args*\ 3266}#
+ #{e1*\ 3267}#
+ #{e2*\ 3268}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 485}#
- #{e\ 3251}#
- #{r\ 3252}#
- #{w\ 3253}#
- #{s\ 3254}#
- #{mod\ 3255}#
- #{lambda*-formals\ 483}#
- (cons (cons #{args\ 3269}#
- (cons #{e1\ 3270}# #{e2\ 3271}#))
- (map (lambda (#{tmp\ 3278}#
- #{tmp\ 3277}#
- #{tmp\ 3276}#)
- (cons #{tmp\ 3276}#
- (cons #{tmp\ 3277}#
- #{tmp\ 3278}#)))
- #{e2*\ 3274}#
- #{e1*\ 3273}#
- #{args*\ 3272}#))))
- (lambda (#{meta\ 3280}# #{lcase\ 3281}#)
- (#{build-case-lambda\ 325}#
- #{s\ 3254}#
- #{meta\ 3280}#
- #{lcase\ 3281}#))))
- #{tmp\ 3262}#)
- (let ((#{_\ 3285}# #{tmp\ 3261}#))
+ (#{chi-lambda-case\ 484}#
+ #{e\ 3245}#
+ #{r\ 3246}#
+ #{w\ 3247}#
+ #{s\ 3248}#
+ #{mod\ 3249}#
+ #{lambda*-formals\ 482}#
+ (cons (cons #{args\ 3263}#
+ (cons #{e1\ 3264}# #{e2\ 3265}#))
+ (map (lambda (#{tmp\ 3272}#
+ #{tmp\ 3271}#
+ #{tmp\ 3270}#)
+ (cons #{tmp\ 3270}#
+ (cons #{tmp\ 3271}#
+ #{tmp\ 3272}#)))
+ #{e2*\ 3268}#
+ #{e1*\ 3267}#
+ #{args*\ 3266}#))))
+ (lambda (#{meta\ 3274}# #{lcase\ 3275}#)
+ (#{build-case-lambda\ 326}#
+ #{s\ 3248}#
+ #{meta\ 3274}#
+ #{lcase\ 3275}#))))
+ #{tmp\ 3256}#)
+ (let ((#{_\ 3279}# #{tmp\ 3255}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3251}#)))))))
- (#{global-extend\ 375}#
+ #{e\ 3245}#)))))))
+ (#{global-extend\ 376}#
'core
'let
(letrec*
- ((#{chi-let\ 3287}#
- (lambda (#{e\ 3288}#
- #{r\ 3289}#
- #{w\ 3290}#
- #{s\ 3291}#
- #{mod\ 3292}#
- #{constructor\ 3293}#
- #{ids\ 3294}#
- #{vals\ 3295}#
- #{exps\ 3296}#)
- (if (not (#{valid-bound-ids?\ 439}# #{ids\ 3294}#))
+ ((#{chi-let\ 3281}#
+ (lambda (#{e\ 3282}#
+ #{r\ 3283}#
+ #{w\ 3284}#
+ #{s\ 3285}#
+ #{mod\ 3286}#
+ #{constructor\ 3287}#
+ #{ids\ 3288}#
+ #{vals\ 3289}#
+ #{exps\ 3290}#)
+ (if (not (#{valid-bound-ids?\ 440}# #{ids\ 3288}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3288}#)
+ #{e\ 3282}#)
(begin
- (let ((#{labels\ 3308}#
- (#{gen-labels\ 394}# #{ids\ 3294}#))
- (#{new-vars\ 3309}#
- (map #{gen-var\ 489}# #{ids\ 3294}#)))
+ (let ((#{labels\ 3302}#
+ (#{gen-labels\ 395}# #{ids\ 3288}#))
+ (#{new-vars\ 3303}#
+ (map #{gen-var\ 488}# #{ids\ 3288}#)))
(begin
- (let ((#{nw\ 3312}#
- (#{make-binding-wrap\ 423}#
- #{ids\ 3294}#
- #{labels\ 3308}#
- #{w\ 3290}#))
- (#{nr\ 3313}#
- (#{extend-var-env\ 369}#
- #{labels\ 3308}#
- #{new-vars\ 3309}#
- #{r\ 3289}#)))
- (#{constructor\ 3293}#
- #{s\ 3291}#
- (map syntax->datum #{ids\ 3294}#)
- #{new-vars\ 3309}#
- (map (lambda (#{x\ 3314}#)
- (#{chi\ 461}#
- #{x\ 3314}#
- #{r\ 3289}#
- #{w\ 3290}#
- #{mod\ 3292}#))
- #{vals\ 3295}#)
- (#{chi-body\ 469}#
- #{exps\ 3296}#
- (#{source-wrap\ 447}#
- #{e\ 3288}#
- #{nw\ 3312}#
- #{s\ 3291}#
- #{mod\ 3292}#)
- #{nr\ 3313}#
- #{nw\ 3312}#
- #{mod\ 3292}#))))))))))
+ (let ((#{nw\ 3306}#
+ (#{make-binding-wrap\ 424}#
+ #{ids\ 3288}#
+ #{labels\ 3302}#
+ #{w\ 3284}#))
+ (#{nr\ 3307}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3302}#
+ #{new-vars\ 3303}#
+ #{r\ 3283}#)))
+ (#{constructor\ 3287}#
+ #{s\ 3285}#
+ (map syntax->datum #{ids\ 3288}#)
+ #{new-vars\ 3303}#
+ (map (lambda (#{x\ 3308}#)
+ (#{chi\ 460}#
+ #{x\ 3308}#
+ #{r\ 3283}#
+ #{w\ 3284}#
+ #{mod\ 3286}#))
+ #{vals\ 3289}#)
+ (#{chi-body\ 468}#
+ #{exps\ 3290}#
+ (#{source-wrap\ 448}#
+ #{e\ 3282}#
+ #{nw\ 3306}#
+ #{s\ 3285}#
+ #{mod\ 3286}#)
+ #{nr\ 3307}#
+ #{nw\ 3306}#
+ #{mod\ 3286}#))))))))))
(begin
- (lambda (#{e\ 3316}#
- #{r\ 3317}#
- #{w\ 3318}#
- #{s\ 3319}#
- #{mod\ 3320}#)
- (let ((#{tmp\ 3326}# #{e\ 3316}#))
- (let ((#{tmp\ 3327}#
+ (lambda (#{e\ 3310}#
+ #{r\ 3311}#
+ #{w\ 3312}#
+ #{s\ 3313}#
+ #{mod\ 3314}#)
+ (let ((#{tmp\ 3320}# #{e\ 3310}#))
+ (let ((#{tmp\ 3321}#
($sc-dispatch
- #{tmp\ 3326}#
+ #{tmp\ 3320}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3327}#
+ (if (if #{tmp\ 3321}#
(@apply
- (lambda (#{id\ 3332}#
- #{val\ 3333}#
- #{e1\ 3334}#
- #{e2\ 3335}#)
- (and-map #{id?\ 379}# #{id\ 3332}#))
- #{tmp\ 3327}#)
+ (lambda (#{id\ 3326}#
+ #{val\ 3327}#
+ #{e1\ 3328}#
+ #{e2\ 3329}#)
+ (and-map #{id?\ 380}# #{id\ 3326}#))
+ #{tmp\ 3321}#)
#f)
(@apply
- (lambda (#{id\ 3341}#
- #{val\ 3342}#
- #{e1\ 3343}#
- #{e2\ 3344}#)
- (#{chi-let\ 3287}#
- #{e\ 3316}#
- #{r\ 3317}#
- #{w\ 3318}#
- #{s\ 3319}#
- #{mod\ 3320}#
- #{build-let\ 335}#
- #{id\ 3341}#
- #{val\ 3342}#
- (cons #{e1\ 3343}# #{e2\ 3344}#)))
- #{tmp\ 3327}#)
- (let ((#{tmp\ 3348}#
+ (lambda (#{id\ 3335}#
+ #{val\ 3336}#
+ #{e1\ 3337}#
+ #{e2\ 3338}#)
+ (#{chi-let\ 3281}#
+ #{e\ 3310}#
+ #{r\ 3311}#
+ #{w\ 3312}#
+ #{s\ 3313}#
+ #{mod\ 3314}#
+ #{build-let\ 336}#
+ #{id\ 3335}#
+ #{val\ 3336}#
+ (cons #{e1\ 3337}# #{e2\ 3338}#)))
+ #{tmp\ 3321}#)
+ (let ((#{tmp\ 3342}#
($sc-dispatch
- #{tmp\ 3326}#
+ #{tmp\ 3320}#
'(_ any
#(each (any any))
any
.
each-any))))
- (if (if #{tmp\ 3348}#
+ (if (if #{tmp\ 3342}#
(@apply
- (lambda (#{f\ 3354}#
- #{id\ 3355}#
- #{val\ 3356}#
- #{e1\ 3357}#
- #{e2\ 3358}#)
- (if (#{id?\ 379}# #{f\ 3354}#)
- (and-map #{id?\ 379}# #{id\ 3355}#)
+ (lambda (#{f\ 3348}#
+ #{id\ 3349}#
+ #{val\ 3350}#
+ #{e1\ 3351}#
+ #{e2\ 3352}#)
+ (if (#{id?\ 380}# #{f\ 3348}#)
+ (and-map #{id?\ 380}# #{id\ 3349}#)
#f))
- #{tmp\ 3348}#)
+ #{tmp\ 3342}#)
#f)
(@apply
- (lambda (#{f\ 3367}#
- #{id\ 3368}#
- #{val\ 3369}#
- #{e1\ 3370}#
- #{e2\ 3371}#)
- (#{chi-let\ 3287}#
- #{e\ 3316}#
- #{r\ 3317}#
- #{w\ 3318}#
- #{s\ 3319}#
- #{mod\ 3320}#
- #{build-named-let\ 337}#
- (cons #{f\ 3367}# #{id\ 3368}#)
- #{val\ 3369}#
- (cons #{e1\ 3370}# #{e2\ 3371}#)))
- #{tmp\ 3348}#)
- (let ((#{_\ 3376}# #{tmp\ 3326}#))
+ (lambda (#{f\ 3361}#
+ #{id\ 3362}#
+ #{val\ 3363}#
+ #{e1\ 3364}#
+ #{e2\ 3365}#)
+ (#{chi-let\ 3281}#
+ #{e\ 3310}#
+ #{r\ 3311}#
+ #{w\ 3312}#
+ #{s\ 3313}#
+ #{mod\ 3314}#
+ #{build-named-let\ 338}#
+ (cons #{f\ 3361}# #{id\ 3362}#)
+ #{val\ 3363}#
+ (cons #{e1\ 3364}# #{e2\ 3365}#)))
+ #{tmp\ 3342}#)
+ (let ((#{_\ 3370}# #{tmp\ 3320}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 447}#
- #{e\ 3316}#
- #{w\ 3318}#
- #{s\ 3319}#
- #{mod\ 3320}#))))))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 448}#
+ #{e\ 3310}#
+ #{w\ 3312}#
+ #{s\ 3313}#
+ #{mod\ 3314}#))))))))))))
+ (#{global-extend\ 376}#
'core
'letrec
- (lambda (#{e\ 3377}#
- #{r\ 3378}#
- #{w\ 3379}#
- #{s\ 3380}#
- #{mod\ 3381}#)
- (let ((#{tmp\ 3387}# #{e\ 3377}#))
- (let ((#{tmp\ 3388}#
+ (lambda (#{e\ 3371}#
+ #{r\ 3372}#
+ #{w\ 3373}#
+ #{s\ 3374}#
+ #{mod\ 3375}#)
+ (let ((#{tmp\ 3381}# #{e\ 3371}#))
+ (let ((#{tmp\ 3382}#
($sc-dispatch
- #{tmp\ 3387}#
+ #{tmp\ 3381}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3388}#
+ (if (if #{tmp\ 3382}#
(@apply
- (lambda (#{id\ 3393}#
- #{val\ 3394}#
- #{e1\ 3395}#
- #{e2\ 3396}#)
- (and-map #{id?\ 379}# #{id\ 3393}#))
- #{tmp\ 3388}#)
+ (lambda (#{id\ 3387}#
+ #{val\ 3388}#
+ #{e1\ 3389}#
+ #{e2\ 3390}#)
+ (and-map #{id?\ 380}# #{id\ 3387}#))
+ #{tmp\ 3382}#)
#f)
(@apply
- (lambda (#{id\ 3402}#
- #{val\ 3403}#
- #{e1\ 3404}#
- #{e2\ 3405}#)
+ (lambda (#{id\ 3396}#
+ #{val\ 3397}#
+ #{e1\ 3398}#
+ #{e2\ 3399}#)
(begin
- (let ((#{ids\ 3407}# #{id\ 3402}#))
- (if (not (#{valid-bound-ids?\ 439}#
- #{ids\ 3407}#))
+ (let ((#{ids\ 3401}# #{id\ 3396}#))
+ (if (not (#{valid-bound-ids?\ 440}#
+ #{ids\ 3401}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3377}#)
+ #{e\ 3371}#)
(begin
- (let ((#{labels\ 3411}#
- (#{gen-labels\ 394}# #{ids\ 3407}#))
- (#{new-vars\ 3412}#
- (map #{gen-var\ 489}#
- #{ids\ 3407}#)))
+ (let ((#{labels\ 3405}#
+ (#{gen-labels\ 395}# #{ids\ 3401}#))
+ (#{new-vars\ 3406}#
+ (map #{gen-var\ 488}#
+ #{ids\ 3401}#)))
(begin
- (let ((#{w\ 3415}#
- (#{make-binding-wrap\ 423}#
- #{ids\ 3407}#
- #{labels\ 3411}#
- #{w\ 3379}#))
- (#{r\ 3416}#
- (#{extend-var-env\ 369}#
- #{labels\ 3411}#
- #{new-vars\ 3412}#
- #{r\ 3378}#)))
- (#{build-letrec\ 339}#
- #{s\ 3380}#
+ (let ((#{w\ 3409}#
+ (#{make-binding-wrap\ 424}#
+ #{ids\ 3401}#
+ #{labels\ 3405}#
+ #{w\ 3373}#))
+ (#{r\ 3410}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3405}#
+ #{new-vars\ 3406}#
+ #{r\ 3372}#)))
+ (#{build-letrec\ 340}#
+ #{s\ 3374}#
#f
- (map syntax->datum #{ids\ 3407}#)
- #{new-vars\ 3412}#
- (map (lambda (#{x\ 3417}#)
- (#{chi\ 461}#
- #{x\ 3417}#
- #{r\ 3416}#
- #{w\ 3415}#
- #{mod\ 3381}#))
- #{val\ 3403}#)
- (#{chi-body\ 469}#
- (cons #{e1\ 3404}# #{e2\ 3405}#)
- (#{source-wrap\ 447}#
- #{e\ 3377}#
- #{w\ 3415}#
- #{s\ 3380}#
- #{mod\ 3381}#)
- #{r\ 3416}#
- #{w\ 3415}#
- #{mod\ 3381}#))))))))))
- #{tmp\ 3388}#)
- (let ((#{_\ 3422}# #{tmp\ 3387}#))
+ (map syntax->datum #{ids\ 3401}#)
+ #{new-vars\ 3406}#
+ (map (lambda (#{x\ 3411}#)
+ (#{chi\ 460}#
+ #{x\ 3411}#
+ #{r\ 3410}#
+ #{w\ 3409}#
+ #{mod\ 3375}#))
+ #{val\ 3397}#)
+ (#{chi-body\ 468}#
+ (cons #{e1\ 3398}# #{e2\ 3399}#)
+ (#{source-wrap\ 448}#
+ #{e\ 3371}#
+ #{w\ 3409}#
+ #{s\ 3374}#
+ #{mod\ 3375}#)
+ #{r\ 3410}#
+ #{w\ 3409}#
+ #{mod\ 3375}#))))))))))
+ #{tmp\ 3382}#)
+ (let ((#{_\ 3416}# #{tmp\ 3381}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 447}#
- #{e\ 3377}#
- #{w\ 3379}#
- #{s\ 3380}#
- #{mod\ 3381}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 448}#
+ #{e\ 3371}#
+ #{w\ 3373}#
+ #{s\ 3374}#
+ #{mod\ 3375}#))))))))
+ (#{global-extend\ 376}#
'core
'letrec*
- (lambda (#{e\ 3423}#
- #{r\ 3424}#
- #{w\ 3425}#
- #{s\ 3426}#
- #{mod\ 3427}#)
- (let ((#{tmp\ 3433}# #{e\ 3423}#))
- (let ((#{tmp\ 3434}#
+ (lambda (#{e\ 3417}#
+ #{r\ 3418}#
+ #{w\ 3419}#
+ #{s\ 3420}#
+ #{mod\ 3421}#)
+ (let ((#{tmp\ 3427}# #{e\ 3417}#))
+ (let ((#{tmp\ 3428}#
($sc-dispatch
- #{tmp\ 3433}#
+ #{tmp\ 3427}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3434}#
+ (if (if #{tmp\ 3428}#
(@apply
- (lambda (#{id\ 3439}#
- #{val\ 3440}#
- #{e1\ 3441}#
- #{e2\ 3442}#)
- (and-map #{id?\ 379}# #{id\ 3439}#))
- #{tmp\ 3434}#)
+ (lambda (#{id\ 3433}#
+ #{val\ 3434}#
+ #{e1\ 3435}#
+ #{e2\ 3436}#)
+ (and-map #{id?\ 380}# #{id\ 3433}#))
+ #{tmp\ 3428}#)
#f)
(@apply
- (lambda (#{id\ 3448}#
- #{val\ 3449}#
- #{e1\ 3450}#
- #{e2\ 3451}#)
+ (lambda (#{id\ 3442}#
+ #{val\ 3443}#
+ #{e1\ 3444}#
+ #{e2\ 3445}#)
(begin
- (let ((#{ids\ 3453}# #{id\ 3448}#))
- (if (not (#{valid-bound-ids?\ 439}#
- #{ids\ 3453}#))
+ (let ((#{ids\ 3447}# #{id\ 3442}#))
+ (if (not (#{valid-bound-ids?\ 440}#
+ #{ids\ 3447}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e\ 3423}#)
+ #{e\ 3417}#)
(begin
- (let ((#{labels\ 3457}#
- (#{gen-labels\ 394}# #{ids\ 3453}#))
- (#{new-vars\ 3458}#
- (map #{gen-var\ 489}#
- #{ids\ 3453}#)))
+ (let ((#{labels\ 3451}#
+ (#{gen-labels\ 395}# #{ids\ 3447}#))
+ (#{new-vars\ 3452}#
+ (map #{gen-var\ 488}#
+ #{ids\ 3447}#)))
(begin
- (let ((#{w\ 3461}#
- (#{make-binding-wrap\ 423}#
- #{ids\ 3453}#
- #{labels\ 3457}#
- #{w\ 3425}#))
- (#{r\ 3462}#
- (#{extend-var-env\ 369}#
- #{labels\ 3457}#
- #{new-vars\ 3458}#
- #{r\ 3424}#)))
- (#{build-letrec\ 339}#
- #{s\ 3426}#
+ (let ((#{w\ 3455}#
+ (#{make-binding-wrap\ 424}#
+ #{ids\ 3447}#
+ #{labels\ 3451}#
+ #{w\ 3419}#))
+ (#{r\ 3456}#
+ (#{extend-var-env\ 370}#
+ #{labels\ 3451}#
+ #{new-vars\ 3452}#
+ #{r\ 3418}#)))
+ (#{build-letrec\ 340}#
+ #{s\ 3420}#
#t
- (map syntax->datum #{ids\ 3453}#)
- #{new-vars\ 3458}#
- (map (lambda (#{x\ 3463}#)
- (#{chi\ 461}#
- #{x\ 3463}#
- #{r\ 3462}#
- #{w\ 3461}#
- #{mod\ 3427}#))
- #{val\ 3449}#)
- (#{chi-body\ 469}#
- (cons #{e1\ 3450}# #{e2\ 3451}#)
- (#{source-wrap\ 447}#
- #{e\ 3423}#
- #{w\ 3461}#
- #{s\ 3426}#
- #{mod\ 3427}#)
- #{r\ 3462}#
- #{w\ 3461}#
- #{mod\ 3427}#))))))))))
- #{tmp\ 3434}#)
- (let ((#{_\ 3468}# #{tmp\ 3433}#))
+ (map syntax->datum #{ids\ 3447}#)
+ #{new-vars\ 3452}#
+ (map (lambda (#{x\ 3457}#)
+ (#{chi\ 460}#
+ #{x\ 3457}#
+ #{r\ 3456}#
+ #{w\ 3455}#
+ #{mod\ 3421}#))
+ #{val\ 3443}#)
+ (#{chi-body\ 468}#
+ (cons #{e1\ 3444}# #{e2\ 3445}#)
+ (#{source-wrap\ 448}#
+ #{e\ 3417}#
+ #{w\ 3455}#
+ #{s\ 3420}#
+ #{mod\ 3421}#)
+ #{r\ 3456}#
+ #{w\ 3455}#
+ #{mod\ 3421}#))))))))))
+ #{tmp\ 3428}#)
+ (let ((#{_\ 3462}# #{tmp\ 3427}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap\ 447}#
- #{e\ 3423}#
- #{w\ 3425}#
- #{s\ 3426}#
- #{mod\ 3427}#))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 448}#
+ #{e\ 3417}#
+ #{w\ 3419}#
+ #{s\ 3420}#
+ #{mod\ 3421}#))))))))
+ (#{global-extend\ 376}#
'core
'set!
- (lambda (#{e\ 3469}#
- #{r\ 3470}#
- #{w\ 3471}#
- #{s\ 3472}#
- #{mod\ 3473}#)
- (let ((#{tmp\ 3479}# #{e\ 3469}#))
- (let ((#{tmp\ 3480}#
- ($sc-dispatch #{tmp\ 3479}# '(_ any any))))
- (if (if #{tmp\ 3480}#
+ (lambda (#{e\ 3463}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{s\ 3466}#
+ #{mod\ 3467}#)
+ (let ((#{tmp\ 3473}# #{e\ 3463}#))
+ (let ((#{tmp\ 3474}#
+ ($sc-dispatch #{tmp\ 3473}# '(_ any any))))
+ (if (if #{tmp\ 3474}#
(@apply
- (lambda (#{id\ 3483}# #{val\ 3484}#)
- (#{id?\ 379}# #{id\ 3483}#))
- #{tmp\ 3480}#)
+ (lambda (#{id\ 3477}# #{val\ 3478}#)
+ (#{id?\ 380}# #{id\ 3477}#))
+ #{tmp\ 3474}#)
#f)
(@apply
- (lambda (#{id\ 3487}# #{val\ 3488}#)
+ (lambda (#{id\ 3481}# #{val\ 3482}#)
(begin
- (let ((#{n\ 3491}#
- (#{id-var-name\ 433}#
- #{id\ 3487}#
- #{w\ 3471}#))
- (#{id-mod\ 3492}#
- (if (#{syntax-object?\ 345}# #{id\ 3487}#)
- (#{syntax-object-module\ 351}#
- #{id\ 3487}#)
- #{mod\ 3473}#)))
+ (let ((#{n\ 3485}#
+ (#{id-var-name\ 434}#
+ #{id\ 3481}#
+ #{w\ 3465}#))
+ (#{id-mod\ 3486}#
+ (if (#{syntax-object?\ 346}# #{id\ 3481}#)
+ (#{syntax-object-module\ 352}#
+ #{id\ 3481}#)
+ #{mod\ 3467}#)))
(begin
- (let ((#{b\ 3494}#
- (#{lookup\ 373}#
- #{n\ 3491}#
- #{r\ 3470}#
- #{id-mod\ 3492}#)))
+ (let ((#{b\ 3488}#
+ (#{lookup\ 374}#
+ #{n\ 3485}#
+ #{r\ 3464}#
+ #{id-mod\ 3486}#)))
(begin
- (let ((#{atom-key\ 3497}#
- (car #{b\ 3494}#)))
- (if (eqv? #{atom-key\ 3497}# 'lexical)
- (#{build-lexical-assignment\ 313}#
- #{s\ 3472}#
- (syntax->datum #{id\ 3487}#)
- (cdr #{b\ 3494}#)
- (#{chi\ 461}#
- #{val\ 3488}#
- #{r\ 3470}#
- #{w\ 3471}#
- #{mod\ 3473}#))
- (if (eqv? #{atom-key\ 3497}# 'global)
- (#{build-global-assignment\ 319}#
- #{s\ 3472}#
- #{n\ 3491}#
- (#{chi\ 461}#
- #{val\ 3488}#
- #{r\ 3470}#
- #{w\ 3471}#
- #{mod\ 3473}#)
- #{id-mod\ 3492}#)
- (if (eqv? #{atom-key\ 3497}# 'macro)
+ (let ((#{atom-key\ 3491}#
+ (car #{b\ 3488}#)))
+ (if (eqv? #{atom-key\ 3491}# 'lexical)
+ (#{build-lexical-assignment\ 314}#
+ #{s\ 3466}#
+ (syntax->datum #{id\ 3481}#)
+ (cdr #{b\ 3488}#)
+ (#{chi\ 460}#
+ #{val\ 3482}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#))
+ (if (eqv? #{atom-key\ 3491}# 'global)
+ (#{build-global-assignment\ 320}#
+ #{s\ 3466}#
+ #{n\ 3485}#
+ (#{chi\ 460}#
+ #{val\ 3482}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ #{id-mod\ 3486}#)
+ (if (eqv? #{atom-key\ 3491}# 'macro)
(begin
- (let ((#{p\ 3504}#
- (cdr #{b\ 3494}#)))
+ (let ((#{p\ 3498}#
+ (cdr #{b\ 3488}#)))
(if (procedure-property
- #{p\ 3504}#
+ #{p\ 3498}#
'variable-transformer)
- (#{chi\ 461}#
- (#{chi-macro\ 467}#
- #{p\ 3504}#
- #{e\ 3469}#
- #{r\ 3470}#
- #{w\ 3471}#
- #{s\ 3472}#
+ (#{chi\ 460}#
+ (#{chi-macro\ 466}#
+ #{p\ 3498}#
+ #{e\ 3463}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{s\ 3466}#
#f
- #{mod\ 3473}#)
- #{r\ 3470}#
+ #{mod\ 3467}#)
+ #{r\ 3464}#
'(())
- #{mod\ 3473}#)
+ #{mod\ 3467}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap\ 445}#
- #{e\ 3469}#
- #{w\ 3471}#
- #{mod\ 3473}#)
- (#{wrap\ 445}#
- #{id\ 3487}#
- #{w\ 3471}#
- #{id-mod\ 3492}#)))))
- (if (eqv? #{atom-key\ 3497}#
+ (#{wrap\ 446}#
+ #{e\ 3463}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (#{wrap\ 446}#
+ #{id\ 3481}#
+ #{w\ 3465}#
+ #{id-mod\ 3486}#)))))
+ (if (eqv? #{atom-key\ 3491}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 445}#
- #{id\ 3487}#
- #{w\ 3471}#
- #{mod\ 3473}#))
+ (#{wrap\ 446}#
+ #{id\ 3481}#
+ #{w\ 3465}#
+ #{mod\ 3467}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 447}#
- #{e\ 3469}#
- #{w\ 3471}#
- #{s\ 3472}#
- #{mod\ 3473}#)))))))))))))
- #{tmp\ 3480}#)
- (let ((#{tmp\ 3509}#
+ (#{source-wrap\ 448}#
+ #{e\ 3463}#
+ #{w\ 3465}#
+ #{s\ 3466}#
+ #{mod\ 3467}#)))))))))))))
+ #{tmp\ 3474}#)
+ (let ((#{tmp\ 3503}#
($sc-dispatch
- #{tmp\ 3479}#
+ #{tmp\ 3473}#
'(_ (any . each-any) any))))
- (if #{tmp\ 3509}#
+ (if #{tmp\ 3503}#
(@apply
- (lambda (#{head\ 3513}#
- #{tail\ 3514}#
- #{val\ 3515}#)
+ (lambda (#{head\ 3507}#
+ #{tail\ 3508}#
+ #{val\ 3509}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 457}#
- #{head\ 3513}#
- #{r\ 3470}#
+ (#{syntax-type\ 458}#
+ #{head\ 3507}#
+ #{r\ 3464}#
'(())
#f
#f
- #{mod\ 3473}#
+ #{mod\ 3467}#
#t))
- (lambda (#{type\ 3518}#
- #{value\ 3519}#
- #{ee\ 3520}#
- #{ww\ 3521}#
- #{ss\ 3522}#
- #{modmod\ 3523}#)
- (if (eqv? #{type\ 3518}# 'module-ref)
+ (lambda (#{type\ 3512}#
+ #{value\ 3513}#
+ #{ee\ 3514}#
+ #{ww\ 3515}#
+ #{ss\ 3516}#
+ #{modmod\ 3517}#)
+ (if (eqv? #{type\ 3512}# 'module-ref)
(begin
- (let ((#{val\ 3532}#
- (#{chi\ 461}#
- #{val\ 3515}#
- #{r\ 3470}#
- #{w\ 3471}#
- #{mod\ 3473}#)))
+ (let ((#{val\ 3526}#
+ (#{chi\ 460}#
+ #{val\ 3509}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)))
(call-with-values
(lambda ()
- (#{value\ 3519}#
- (cons #{head\ 3513}#
- #{tail\ 3514}#)
- #{r\ 3470}#
- #{w\ 3471}#))
- (lambda (#{e\ 3534}#
- #{r\ 3535}#
- #{w\ 3536}#
- #{s*\ 3537}#
- #{mod\ 3538}#)
- (let ((#{tmp\ 3544}# #{e\ 3534}#))
- (let ((#{tmp\ 3545}#
- (list #{tmp\ 3544}#)))
- (if (if #{tmp\ 3545}#
+ (#{value\ 3513}#
+ (cons #{head\ 3507}#
+ #{tail\ 3508}#)
+ #{r\ 3464}#
+ #{w\ 3465}#))
+ (lambda (#{e\ 3528}#
+ #{r\ 3529}#
+ #{w\ 3530}#
+ #{s*\ 3531}#
+ #{mod\ 3532}#)
+ (let ((#{tmp\ 3538}# #{e\ 3528}#))
+ (let ((#{tmp\ 3539}#
+ (list #{tmp\ 3538}#)))
+ (if (if #{tmp\ 3539}#
(@apply
- (lambda (#{e\ 3547}#)
- (#{id?\ 379}#
- #{e\ 3547}#))
- #{tmp\ 3545}#)
+ (lambda (#{e\ 3541}#)
+ (#{id?\ 380}#
+ #{e\ 3541}#))
+ #{tmp\ 3539}#)
#f)
(@apply
- (lambda (#{e\ 3549}#)
- (#{build-global-assignment\ 319}#
- #{s\ 3472}#
+ (lambda (#{e\ 3543}#)
+ (#{build-global-assignment\ 320}#
+ #{s\ 3466}#
(syntax->datum
- #{e\ 3549}#)
- #{val\ 3532}#
- #{mod\ 3538}#))
- #{tmp\ 3545}#)
+ #{e\ 3543}#)
+ #{val\ 3526}#
+ #{mod\ 3532}#))
+ #{tmp\ 3539}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3544}#))))))))
- (#{build-application\ 305}#
- #{s\ 3472}#
- (#{chi\ 461}#
+ #{tmp\ 3538}#))))))))
+ (#{build-application\ 306}#
+ #{s\ 3466}#
+ (#{chi\ 460}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("i3524"
- "i3525"
- "i3526"
- "i3527"
- "i3528"
- "i3529"))
+ #("i3518"
+ "i3519"
+ "i3520"
+ "i3521"
+ "i3522"
+ "i3523"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3510" "i3511" "i3512"))
+ #("i3504" "i3505" "i3506"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
(top)
(top)
(top))
- #("i3474"
- "i3475"
- "i3476"
- "i3477"
- "i3478"))
+ #("i3468"
+ "i3469"
+ "i3470"
+ "i3471"
+ "i3472"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile))
- #{head\ 3513}#)
- #{r\ 3470}#
- #{w\ 3471}#
- #{mod\ 3473}#)
- (map (lambda (#{e\ 3551}#)
- (#{chi\ 461}#
- #{e\ 3551}#
- #{r\ 3470}#
- #{w\ 3471}#
- #{mod\ 3473}#))
+ #{head\ 3507}#)
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#)
+ (map (lambda (#{e\ 3545}#)
+ (#{chi\ 460}#
+ #{e\ 3545}#
+ #{r\ 3464}#
+ #{w\ 3465}#
+ #{mod\ 3467}#))
(append
- #{tail\ 3514}#
- (list #{val\ 3515}#))))))))
- #{tmp\ 3509}#)
- (let ((#{_\ 3555}# #{tmp\ 3479}#))
+ #{tail\ 3508}#
+ (list #{val\ 3509}#))))))))
+ #{tmp\ 3503}#)
+ (let ((#{_\ 3549}# #{tmp\ 3473}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 447}#
- #{e\ 3469}#
- #{w\ 3471}#
- #{s\ 3472}#
- #{mod\ 3473}#))))))))))
- (#{global-extend\ 375}#
+ (#{source-wrap\ 448}#
+ #{e\ 3463}#
+ #{w\ 3465}#
+ #{s\ 3466}#
+ #{mod\ 3467}#))))))))))
+ (#{global-extend\ 376}#
'module-ref
'@
- (lambda (#{e\ 3556}# #{r\ 3557}# #{w\ 3558}#)
- (let ((#{tmp\ 3562}# #{e\ 3556}#))
- (let ((#{tmp\ 3563}#
- ($sc-dispatch #{tmp\ 3562}# '(_ each-any any))))
- (if (if #{tmp\ 3563}#
+ (lambda (#{e\ 3550}# #{r\ 3551}# #{w\ 3552}#)
+ (let ((#{tmp\ 3556}# #{e\ 3550}#))
+ (let ((#{tmp\ 3557}#
+ ($sc-dispatch #{tmp\ 3556}# '(_ each-any any))))
+ (if (if #{tmp\ 3557}#
(@apply
- (lambda (#{mod\ 3566}# #{id\ 3567}#)
- (if (and-map #{id?\ 379}# #{mod\ 3566}#)
- (#{id?\ 379}# #{id\ 3567}#)
+ (lambda (#{mod\ 3560}# #{id\ 3561}#)
+ (if (and-map #{id?\ 380}# #{mod\ 3560}#)
+ (#{id?\ 380}# #{id\ 3561}#)
#f))
- #{tmp\ 3563}#)
+ #{tmp\ 3557}#)
#f)
(@apply
- (lambda (#{mod\ 3573}# #{id\ 3574}#)
+ (lambda (#{mod\ 3567}# #{id\ 3568}#)
(values
- (syntax->datum #{id\ 3574}#)
- #{r\ 3557}#
- #{w\ 3558}#
+ (syntax->datum #{id\ 3568}#)
+ #{r\ 3551}#
+ #{w\ 3552}#
#f
(syntax->datum
(cons '#(syntax-object
#(ribcage
#(mod id)
#((top) (top))
- #("i3571" "i3572"))
+ #("i3565" "i3566"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3559" "i3560" "i3561"))
+ #("i3553" "i3554" "i3555"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile))
- #{mod\ 3573}#))))
- #{tmp\ 3563}#)
+ #{mod\ 3567}#))))
+ #{tmp\ 3557}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3562}#))))))
- (#{global-extend\ 375}#
+ #{tmp\ 3556}#))))))
+ (#{global-extend\ 376}#
'module-ref
'@@
- (lambda (#{e\ 3576}# #{r\ 3577}# #{w\ 3578}#)
+ (lambda (#{e\ 3570}# #{r\ 3571}# #{w\ 3572}#)
(letrec*
- ((#{remodulate\ 3583}#
- (lambda (#{x\ 3584}# #{mod\ 3585}#)
- (if (pair? #{x\ 3584}#)
- (cons (#{remodulate\ 3583}#
- (car #{x\ 3584}#)
- #{mod\ 3585}#)
- (#{remodulate\ 3583}#
- (cdr #{x\ 3584}#)
- #{mod\ 3585}#))
- (if (#{syntax-object?\ 345}# #{x\ 3584}#)
- (#{make-syntax-object\ 343}#
- (#{remodulate\ 3583}#
- (#{syntax-object-expression\ 347}# #{x\ 3584}#)
- #{mod\ 3585}#)
- (#{syntax-object-wrap\ 349}# #{x\ 3584}#)
- #{mod\ 3585}#)
- (if (vector? #{x\ 3584}#)
+ ((#{remodulate\ 3577}#
+ (lambda (#{x\ 3578}# #{mod\ 3579}#)
+ (if (pair? #{x\ 3578}#)
+ (cons (#{remodulate\ 3577}#
+ (car #{x\ 3578}#)
+ #{mod\ 3579}#)
+ (#{remodulate\ 3577}#
+ (cdr #{x\ 3578}#)
+ #{mod\ 3579}#))
+ (if (#{syntax-object?\ 346}# #{x\ 3578}#)
+ (#{make-syntax-object\ 344}#
+ (#{remodulate\ 3577}#
+ (#{syntax-object-expression\ 348}# #{x\ 3578}#)
+ #{mod\ 3579}#)
+ (#{syntax-object-wrap\ 350}# #{x\ 3578}#)
+ #{mod\ 3579}#)
+ (if (vector? #{x\ 3578}#)
(begin
- (let ((#{n\ 3596}# (vector-length #{x\ 3584}#)))
+ (let ((#{n\ 3590}# (vector-length #{x\ 3578}#)))
(begin
- (let ((#{v\ 3598}#
- (make-vector #{n\ 3596}#)))
+ (let ((#{v\ 3592}#
+ (make-vector #{n\ 3590}#)))
(letrec*
- ((#{loop\ 3601}#
- (lambda (#{i\ 3602}#)
- (if (#{fx=\ 286}#
- #{i\ 3602}#
- #{n\ 3596}#)
- (begin (if #f #f) #{v\ 3598}#)
+ ((#{loop\ 3595}#
+ (lambda (#{i\ 3596}#)
+ (if (#{fx=\ 287}#
+ #{i\ 3596}#
+ #{n\ 3590}#)
+ (begin (if #f #f) #{v\ 3592}#)
(begin
(vector-set!
- #{v\ 3598}#
- #{i\ 3602}#
- (#{remodulate\ 3583}#
+ #{v\ 3592}#
+ #{i\ 3596}#
+ (#{remodulate\ 3577}#
(vector-ref
- #{x\ 3584}#
- #{i\ 3602}#)
- #{mod\ 3585}#))
- (#{loop\ 3601}#
- (#{fx+\ 282}#
- #{i\ 3602}#
+ #{x\ 3578}#
+ #{i\ 3596}#)
+ #{mod\ 3579}#))
+ (#{loop\ 3595}#
+ (#{fx+\ 283}#
+ #{i\ 3596}#
1)))))))
- (begin (#{loop\ 3601}# 0)))))))
- #{x\ 3584}#))))))
+ (begin (#{loop\ 3595}# 0)))))))
+ #{x\ 3578}#))))))
(begin
- (let ((#{tmp\ 3606}# #{e\ 3576}#))
- (let ((#{tmp\ 3607}#
- ($sc-dispatch #{tmp\ 3606}# '(_ each-any any))))
- (if (if #{tmp\ 3607}#
+ (let ((#{tmp\ 3600}# #{e\ 3570}#))
+ (let ((#{tmp\ 3601}#
+ ($sc-dispatch #{tmp\ 3600}# '(_ each-any any))))
+ (if (if #{tmp\ 3601}#
(@apply
- (lambda (#{mod\ 3610}# #{exp\ 3611}#)
- (and-map #{id?\ 379}# #{mod\ 3610}#))
- #{tmp\ 3607}#)
+ (lambda (#{mod\ 3604}# #{exp\ 3605}#)
+ (and-map #{id?\ 380}# #{mod\ 3604}#))
+ #{tmp\ 3601}#)
#f)
(@apply
- (lambda (#{mod\ 3615}# #{exp\ 3616}#)
+ (lambda (#{mod\ 3609}# #{exp\ 3610}#)
(begin
- (let ((#{mod\ 3618}#
+ (let ((#{mod\ 3612}#
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(mod exp)
#((top) (top))
- #("i3613" "i3614"))
+ #("i3607" "i3608"))
#(ribcage
(remodulate)
((top))
- ("i3582"))
+ ("i3576"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3579"
- "i3580"
- "i3581"))
+ #("i3573"
+ "i3574"
+ "i3575"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene guile))
- #{mod\ 3615}#))))
+ #{mod\ 3609}#))))
(values
- (#{remodulate\ 3583}#
- #{exp\ 3616}#
- #{mod\ 3618}#)
- #{r\ 3577}#
- #{w\ 3578}#
- (#{source-annotation\ 360}# #{exp\ 3616}#)
- #{mod\ 3618}#))))
- #{tmp\ 3607}#)
+ (#{remodulate\ 3577}#
+ #{exp\ 3610}#
+ #{mod\ 3612}#)
+ #{r\ 3571}#
+ #{w\ 3572}#
+ (#{source-annotation\ 361}# #{exp\ 3610}#)
+ #{mod\ 3612}#))))
+ #{tmp\ 3601}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3606}#))))))))
- (#{global-extend\ 375}#
+ #{tmp\ 3600}#))))))))
+ (#{global-extend\ 376}#
'core
'if
- (lambda (#{e\ 3620}#
- #{r\ 3621}#
- #{w\ 3622}#
- #{s\ 3623}#
- #{mod\ 3624}#)
- (let ((#{tmp\ 3630}# #{e\ 3620}#))
- (let ((#{tmp\ 3631}#
- ($sc-dispatch #{tmp\ 3630}# '(_ any any))))
- (if #{tmp\ 3631}#
+ (lambda (#{e\ 3614}#
+ #{r\ 3615}#
+ #{w\ 3616}#
+ #{s\ 3617}#
+ #{mod\ 3618}#)
+ (let ((#{tmp\ 3624}# #{e\ 3614}#))
+ (let ((#{tmp\ 3625}#
+ ($sc-dispatch #{tmp\ 3624}# '(_ any any))))
+ (if #{tmp\ 3625}#
(@apply
- (lambda (#{test\ 3634}# #{then\ 3635}#)
- (#{build-conditional\ 307}#
- #{s\ 3623}#
- (#{chi\ 461}#
- #{test\ 3634}#
- #{r\ 3621}#
- #{w\ 3622}#
- #{mod\ 3624}#)
- (#{chi\ 461}#
- #{then\ 3635}#
- #{r\ 3621}#
- #{w\ 3622}#
- #{mod\ 3624}#)
- (#{build-void\ 303}# #f)))
- #{tmp\ 3631}#)
- (let ((#{tmp\ 3637}#
- ($sc-dispatch #{tmp\ 3630}# '(_ any any any))))
- (if #{tmp\ 3637}#
+ (lambda (#{test\ 3628}# #{then\ 3629}#)
+ (#{build-conditional\ 308}#
+ #{s\ 3617}#
+ (#{chi\ 460}#
+ #{test\ 3628}#
+ #{r\ 3615}#
+ #{w\ 3616}#
+ #{mod\ 3618}#)
+ (#{chi\ 460}#
+ #{then\ 3629}#
+ #{r\ 3615}#
+ #{w\ 3616}#
+ #{mod\ 3618}#)
+ (#{build-void\ 304}# #f)))
+ #{tmp\ 3625}#)
+ (let ((#{tmp\ 3631}#
+ ($sc-dispatch #{tmp\ 3624}# '(_ any any any))))
+ (if #{tmp\ 3631}#
(@apply
- (lambda (#{test\ 3641}#
- #{then\ 3642}#
- #{else\ 3643}#)
- (#{build-conditional\ 307}#
- #{s\ 3623}#
- (#{chi\ 461}#
- #{test\ 3641}#
- #{r\ 3621}#
- #{w\ 3622}#
- #{mod\ 3624}#)
- (#{chi\ 461}#
- #{then\ 3642}#
- #{r\ 3621}#
- #{w\ 3622}#
- #{mod\ 3624}#)
- (#{chi\ 461}#
- #{else\ 3643}#
- #{r\ 3621}#
- #{w\ 3622}#
- #{mod\ 3624}#)))
- #{tmp\ 3637}#)
+ (lambda (#{test\ 3635}#
+ #{then\ 3636}#
+ #{else\ 3637}#)
+ (#{build-conditional\ 308}#
+ #{s\ 3617}#
+ (#{chi\ 460}#
+ #{test\ 3635}#
+ #{r\ 3615}#
+ #{w\ 3616}#
+ #{mod\ 3618}#)
+ (#{chi\ 460}#
+ #{then\ 3636}#
+ #{r\ 3615}#
+ #{w\ 3616}#
+ #{mod\ 3618}#)
+ (#{chi\ 460}#
+ #{else\ 3637}#
+ #{r\ 3615}#
+ #{w\ 3616}#
+ #{mod\ 3618}#)))
+ #{tmp\ 3631}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3630}#))))))))
- (#{global-extend\ 375}#
+ #{tmp\ 3624}#))))))))
+ (#{global-extend\ 376}#
'core
'with-fluids
- (lambda (#{e\ 3644}#
- #{r\ 3645}#
- #{w\ 3646}#
- #{s\ 3647}#
- #{mod\ 3648}#)
- (let ((#{tmp\ 3654}# #{e\ 3644}#))
- (let ((#{tmp\ 3655}#
+ (lambda (#{e\ 3638}#
+ #{r\ 3639}#
+ #{w\ 3640}#
+ #{s\ 3641}#
+ #{mod\ 3642}#)
+ (let ((#{tmp\ 3648}# #{e\ 3638}#))
+ (let ((#{tmp\ 3649}#
($sc-dispatch
- #{tmp\ 3654}#
+ #{tmp\ 3648}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 3655}#
+ (if #{tmp\ 3649}#
(@apply
- (lambda (#{fluid\ 3660}#
- #{val\ 3661}#
- #{b\ 3662}#
- #{b*\ 3663}#)
- (#{build-dynlet\ 309}#
- #{s\ 3647}#
- (map (lambda (#{x\ 3664}#)
- (#{chi\ 461}#
- #{x\ 3664}#
- #{r\ 3645}#
- #{w\ 3646}#
- #{mod\ 3648}#))
- #{fluid\ 3660}#)
- (map (lambda (#{x\ 3667}#)
- (#{chi\ 461}#
- #{x\ 3667}#
- #{r\ 3645}#
- #{w\ 3646}#
- #{mod\ 3648}#))
- #{val\ 3661}#)
- (#{chi-body\ 469}#
- (cons #{b\ 3662}# #{b*\ 3663}#)
- (#{source-wrap\ 447}#
- #{e\ 3644}#
- #{w\ 3646}#
- #{s\ 3647}#
- #{mod\ 3648}#)
- #{r\ 3645}#
- #{w\ 3646}#
- #{mod\ 3648}#)))
- #{tmp\ 3655}#)
+ (lambda (#{fluid\ 3654}#
+ #{val\ 3655}#
+ #{b\ 3656}#
+ #{b*\ 3657}#)
+ (#{build-dynlet\ 310}#
+ #{s\ 3641}#
+ (map (lambda (#{x\ 3658}#)
+ (#{chi\ 460}#
+ #{x\ 3658}#
+ #{r\ 3639}#
+ #{w\ 3640}#
+ #{mod\ 3642}#))
+ #{fluid\ 3654}#)
+ (map (lambda (#{x\ 3661}#)
+ (#{chi\ 460}#
+ #{x\ 3661}#
+ #{r\ 3639}#
+ #{w\ 3640}#
+ #{mod\ 3642}#))
+ #{val\ 3655}#)
+ (#{chi-body\ 468}#
+ (cons #{b\ 3656}# #{b*\ 3657}#)
+ (#{source-wrap\ 448}#
+ #{e\ 3638}#
+ #{w\ 3640}#
+ #{s\ 3641}#
+ #{mod\ 3642}#)
+ #{r\ 3639}#
+ #{w\ 3640}#
+ #{mod\ 3642}#)))
+ #{tmp\ 3649}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3654}#))))))
- (#{global-extend\ 375}# 'begin 'begin '())
- (#{global-extend\ 375}# 'define 'define '())
- (#{global-extend\ 375}#
+ #{tmp\ 3648}#))))))
+ (#{global-extend\ 376}# 'begin 'begin '())
+ (#{global-extend\ 376}# 'define 'define '())
+ (#{global-extend\ 376}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'eval-when
'eval-when
'())
- (#{global-extend\ 375}#
+ (#{global-extend\ 376}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern\ 3672}#
- (lambda (#{pattern\ 3679}# #{keys\ 3680}#)
+ ((#{convert-pattern\ 3666}#
+ (lambda (#{pattern\ 3673}# #{keys\ 3674}#)
(letrec*
- ((#{cvt*\ 3684}#
- (lambda (#{p*\ 3687}# #{n\ 3688}# #{ids\ 3689}#)
- (if (null? #{p*\ 3687}#)
- (values '() #{ids\ 3689}#)
+ ((#{cvt*\ 3678}#
+ (lambda (#{p*\ 3681}# #{n\ 3682}# #{ids\ 3683}#)
+ (if (null? #{p*\ 3681}#)
+ (values '() #{ids\ 3683}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3684}#
- (cdr #{p*\ 3687}#)
- #{n\ 3688}#
- #{ids\ 3689}#))
- (lambda (#{y\ 3693}# #{ids\ 3694}#)
+ (#{cvt*\ 3678}#
+ (cdr #{p*\ 3681}#)
+ #{n\ 3682}#
+ #{ids\ 3683}#))
+ (lambda (#{y\ 3687}# #{ids\ 3688}#)
(call-with-values
(lambda ()
- (#{cvt\ 3686}#
- (car #{p*\ 3687}#)
- #{n\ 3688}#
- #{ids\ 3694}#))
- (lambda (#{x\ 3697}# #{ids\ 3698}#)
+ (#{cvt\ 3680}#
+ (car #{p*\ 3681}#)
+ #{n\ 3682}#
+ #{ids\ 3688}#))
+ (lambda (#{x\ 3691}# #{ids\ 3692}#)
(values
- (cons #{x\ 3697}# #{y\ 3693}#)
- #{ids\ 3698}#))))))))
- (#{cvt\ 3686}#
- (lambda (#{p\ 3701}# #{n\ 3702}# #{ids\ 3703}#)
- (if (#{id?\ 379}# #{p\ 3701}#)
- (if (#{bound-id-member?\ 443}#
- #{p\ 3701}#
- #{keys\ 3680}#)
+ (cons #{x\ 3691}# #{y\ 3687}#)
+ #{ids\ 3692}#))))))))
+ (#{cvt\ 3680}#
+ (lambda (#{p\ 3695}# #{n\ 3696}# #{ids\ 3697}#)
+ (if (#{id?\ 380}# #{p\ 3695}#)
+ (if (#{bound-id-member?\ 444}#
+ #{p\ 3695}#
+ #{keys\ 3674}#)
(values
- (vector 'free-id #{p\ 3701}#)
- #{ids\ 3703}#)
- (if (#{free-id=?\ 435}#
- #{p\ 3701}#
+ (vector 'free-id #{p\ 3695}#)
+ #{ids\ 3697}#)
+ (if (#{free-id=?\ 436}#
+ #{p\ 3695}#
'#(syntax-object
_
((top)
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3704" "i3705" "i3706"))
+ #("i3698" "i3699" "i3700"))
#(ribcage
(cvt cvt*)
((top) (top))
- ("i3685" "i3683"))
+ ("i3679" "i3677"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3681" "i3682"))
+ #("i3675" "i3676"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3677" "i3675" "i3673" "i3671"))
+ ("i3671" "i3669" "i3667" "i3665"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile)))
- (values '_ #{ids\ 3703}#)
+ (values '_ #{ids\ 3697}#)
(values
'any
- (cons (cons #{p\ 3701}# #{n\ 3702}#)
- #{ids\ 3703}#))))
- (let ((#{tmp\ 3712}# #{p\ 3701}#))
- (let ((#{tmp\ 3713}#
+ (cons (cons #{p\ 3695}# #{n\ 3696}#)
+ #{ids\ 3697}#))))
+ (let ((#{tmp\ 3706}# #{p\ 3695}#))
+ (let ((#{tmp\ 3707}#
($sc-dispatch
- #{tmp\ 3712}#
+ #{tmp\ 3706}#
'(any any))))
- (if (if #{tmp\ 3713}#
+ (if (if #{tmp\ 3707}#
(@apply
- (lambda (#{x\ 3716}# #{dots\ 3717}#)
- (#{ellipsis?\ 477}#
- #{dots\ 3717}#))
- #{tmp\ 3713}#)
+ (lambda (#{x\ 3710}# #{dots\ 3711}#)
+ (#{ellipsis?\ 476}#
+ #{dots\ 3711}#))
+ #{tmp\ 3707}#)
#f)
(@apply
- (lambda (#{x\ 3720}# #{dots\ 3721}#)
+ (lambda (#{x\ 3714}# #{dots\ 3715}#)
(call-with-values
(lambda ()
- (#{cvt\ 3686}#
- #{x\ 3720}#
- (#{fx+\ 282}# #{n\ 3702}# 1)
- #{ids\ 3703}#))
- (lambda (#{p\ 3722}# #{ids\ 3723}#)
+ (#{cvt\ 3680}#
+ #{x\ 3714}#
+ (#{fx+\ 283}# #{n\ 3696}# 1)
+ #{ids\ 3697}#))
+ (lambda (#{p\ 3716}# #{ids\ 3717}#)
(values
- (if (eq? #{p\ 3722}# 'any)
+ (if (eq? #{p\ 3716}# 'any)
'each-any
- (vector 'each #{p\ 3722}#))
- #{ids\ 3723}#))))
- #{tmp\ 3713}#)
- (let ((#{tmp\ 3726}#
+ (vector 'each #{p\ 3716}#))
+ #{ids\ 3717}#))))
+ #{tmp\ 3707}#)
+ (let ((#{tmp\ 3720}#
($sc-dispatch
- #{tmp\ 3712}#
+ #{tmp\ 3706}#
'(any any . each-any))))
- (if (if #{tmp\ 3726}#
+ (if (if #{tmp\ 3720}#
(@apply
- (lambda (#{x\ 3730}#
- #{dots\ 3731}#
- #{ys\ 3732}#)
- (#{ellipsis?\ 477}#
- #{dots\ 3731}#))
- #{tmp\ 3726}#)
+ (lambda (#{x\ 3724}#
+ #{dots\ 3725}#
+ #{ys\ 3726}#)
+ (#{ellipsis?\ 476}#
+ #{dots\ 3725}#))
+ #{tmp\ 3720}#)
#f)
(@apply
- (lambda (#{x\ 3736}#
- #{dots\ 3737}#
- #{ys\ 3738}#)
+ (lambda (#{x\ 3730}#
+ #{dots\ 3731}#
+ #{ys\ 3732}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3684}#
- #{ys\ 3738}#
- #{n\ 3702}#
- #{ids\ 3703}#))
- (lambda (#{ys\ 3740}#
- #{ids\ 3741}#)
+ (#{cvt*\ 3678}#
+ #{ys\ 3732}#
+ #{n\ 3696}#
+ #{ids\ 3697}#))
+ (lambda (#{ys\ 3734}#
+ #{ids\ 3735}#)
(call-with-values
(lambda ()
- (#{cvt\ 3686}#
- #{x\ 3736}#
- (1+ #{n\ 3702}#)
- #{ids\ 3741}#))
- (lambda (#{x\ 3744}#
- #{ids\ 3745}#)
+ (#{cvt\ 3680}#
+ #{x\ 3730}#
+ (1+ #{n\ 3696}#)
+ #{ids\ 3735}#))
+ (lambda (#{x\ 3738}#
+ #{ids\ 3739}#)
(values
(vector
'each+
- #{x\ 3744}#
- (reverse #{ys\ 3740}#)
+ #{x\ 3738}#
+ (reverse #{ys\ 3734}#)
'())
- #{ids\ 3745}#))))))
- #{tmp\ 3726}#)
- (let ((#{tmp\ 3749}#
+ #{ids\ 3739}#))))))
+ #{tmp\ 3720}#)
+ (let ((#{tmp\ 3743}#
($sc-dispatch
- #{tmp\ 3712}#
+ #{tmp\ 3706}#
'(any . any))))
- (if #{tmp\ 3749}#
+ (if #{tmp\ 3743}#
(@apply
- (lambda (#{x\ 3752}# #{y\ 3753}#)
+ (lambda (#{x\ 3746}# #{y\ 3747}#)
(call-with-values
(lambda ()
- (#{cvt\ 3686}#
- #{y\ 3753}#
- #{n\ 3702}#
- #{ids\ 3703}#))
- (lambda (#{y\ 3754}#
- #{ids\ 3755}#)
+ (#{cvt\ 3680}#
+ #{y\ 3747}#
+ #{n\ 3696}#
+ #{ids\ 3697}#))
+ (lambda (#{y\ 3748}#
+ #{ids\ 3749}#)
(call-with-values
(lambda ()
- (#{cvt\ 3686}#
- #{x\ 3752}#
- #{n\ 3702}#
- #{ids\ 3755}#))
- (lambda (#{x\ 3758}#
- #{ids\ 3759}#)
+ (#{cvt\ 3680}#
+ #{x\ 3746}#
+ #{n\ 3696}#
+ #{ids\ 3749}#))
+ (lambda (#{x\ 3752}#
+ #{ids\ 3753}#)
(values
- (cons #{x\ 3758}#
- #{y\ 3754}#)
- #{ids\ 3759}#))))))
- #{tmp\ 3749}#)
- (let ((#{tmp\ 3762}#
+ (cons #{x\ 3752}#
+ #{y\ 3748}#)
+ #{ids\ 3753}#))))))
+ #{tmp\ 3743}#)
+ (let ((#{tmp\ 3756}#
($sc-dispatch
- #{tmp\ 3712}#
+ #{tmp\ 3706}#
'())))
- (if #{tmp\ 3762}#
+ (if #{tmp\ 3756}#
(@apply
(lambda ()
- (values '() #{ids\ 3703}#))
- #{tmp\ 3762}#)
- (let ((#{tmp\ 3763}#
+ (values '() #{ids\ 3697}#))
+ #{tmp\ 3756}#)
+ (let ((#{tmp\ 3757}#
($sc-dispatch
- #{tmp\ 3712}#
+ #{tmp\ 3706}#
'#(vector
each-any))))
- (if #{tmp\ 3763}#
+ (if #{tmp\ 3757}#
(@apply
- (lambda (#{x\ 3765}#)
+ (lambda (#{x\ 3759}#)
(call-with-values
(lambda ()
- (#{cvt\ 3686}#
- #{x\ 3765}#
- #{n\ 3702}#
- #{ids\ 3703}#))
- (lambda (#{p\ 3767}#
- #{ids\ 3768}#)
+ (#{cvt\ 3680}#
+ #{x\ 3759}#
+ #{n\ 3696}#
+ #{ids\ 3697}#))
+ (lambda (#{p\ 3761}#
+ #{ids\ 3762}#)
(values
(vector
'vector
- #{p\ 3767}#)
- #{ids\ 3768}#))))
- #{tmp\ 3763}#)
- (let ((#{x\ 3772}#
- #{tmp\ 3712}#))
+ #{p\ 3761}#)
+ #{ids\ 3762}#))))
+ #{tmp\ 3757}#)
+ (let ((#{x\ 3766}#
+ #{tmp\ 3706}#))
(values
(vector
'atom
- (#{strip\ 487}#
- #{p\ 3701}#
+ (#{strip\ 486}#
+ #{p\ 3695}#
'(())))
- #{ids\ 3703}#)))))))))))))))))
- (begin (#{cvt\ 3686}# #{pattern\ 3679}# 0 '())))))
- (#{build-dispatch-call\ 3674}#
- (lambda (#{pvars\ 3774}#
- #{exp\ 3775}#
- #{y\ 3776}#
- #{r\ 3777}#
- #{mod\ 3778}#)
+ #{ids\ 3697}#)))))))))))))))))
+ (begin (#{cvt\ 3680}# #{pattern\ 3673}# 0 '())))))
+ (#{build-dispatch-call\ 3668}#
+ (lambda (#{pvars\ 3768}#
+ #{exp\ 3769}#
+ #{y\ 3770}#
+ #{r\ 3771}#
+ #{mod\ 3772}#)
(begin
- (map cdr #{pvars\ 3774}#)
- (let ((#{ids\ 3786}# (map car #{pvars\ 3774}#)))
+ (map cdr #{pvars\ 3768}#)
+ (let ((#{ids\ 3780}# (map car #{pvars\ 3768}#)))
(begin
- (let ((#{labels\ 3790}#
- (#{gen-labels\ 394}# #{ids\ 3786}#))
- (#{new-vars\ 3791}#
- (map #{gen-var\ 489}# #{ids\ 3786}#)))
- (#{build-application\ 305}#
+ (let ((#{labels\ 3784}#
+ (#{gen-labels\ 395}# #{ids\ 3780}#))
+ (#{new-vars\ 3785}#
+ (map #{gen-var\ 488}# #{ids\ 3780}#)))
+ (#{build-application\ 306}#
#f
- (#{build-primref\ 329}# #f 'apply)
- (list (#{build-simple-lambda\ 323}#
+ (#{build-primref\ 330}# #f 'apply)
+ (list (#{build-simple-lambda\ 324}#
#f
- (map syntax->datum #{ids\ 3786}#)
+ (map syntax->datum #{ids\ 3780}#)
#f
- #{new-vars\ 3791}#
+ #{new-vars\ 3785}#
'()
- (#{chi\ 461}#
- #{exp\ 3775}#
- (#{extend-env\ 367}#
- #{labels\ 3790}#
- (map (lambda (#{var\ 3795}#
- #{level\ 3796}#)
+ (#{chi\ 460}#
+ #{exp\ 3769}#
+ (#{extend-env\ 368}#
+ #{labels\ 3784}#
+ (map (lambda (#{var\ 3789}#
+ #{level\ 3790}#)
(cons 'syntax
- (cons #{var\ 3795}#
- #{level\ 3796}#)))
- #{new-vars\ 3791}#
- (map cdr #{pvars\ 3774}#))
- #{r\ 3777}#)
- (#{make-binding-wrap\ 423}#
- #{ids\ 3786}#
- #{labels\ 3790}#
+ (cons #{var\ 3789}#
+ #{level\ 3790}#)))
+ #{new-vars\ 3785}#
+ (map cdr #{pvars\ 3768}#))
+ #{r\ 3771}#)
+ (#{make-binding-wrap\ 424}#
+ #{ids\ 3780}#
+ #{labels\ 3784}#
'(()))
- #{mod\ 3778}#))
- #{y\ 3776}#))))))))
- (#{gen-clause\ 3676}#
- (lambda (#{x\ 3802}#
- #{keys\ 3803}#
- #{clauses\ 3804}#
- #{r\ 3805}#
- #{pat\ 3806}#
- #{fender\ 3807}#
- #{exp\ 3808}#
- #{mod\ 3809}#)
+ #{mod\ 3772}#))
+ #{y\ 3770}#))))))))
+ (#{gen-clause\ 3670}#
+ (lambda (#{x\ 3796}#
+ #{keys\ 3797}#
+ #{clauses\ 3798}#
+ #{r\ 3799}#
+ #{pat\ 3800}#
+ #{fender\ 3801}#
+ #{exp\ 3802}#
+ #{mod\ 3803}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3672}#
- #{pat\ 3806}#
- #{keys\ 3803}#))
- (lambda (#{p\ 3818}# #{pvars\ 3819}#)
- (if (not (#{distinct-bound-ids?\ 441}#
- (map car #{pvars\ 3819}#)))
+ (#{convert-pattern\ 3666}#
+ #{pat\ 3800}#
+ #{keys\ 3797}#))
+ (lambda (#{p\ 3812}# #{pvars\ 3813}#)
+ (if (not (#{distinct-bound-ids?\ 442}#
+ (map car #{pvars\ 3813}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3806}#)
+ #{pat\ 3800}#)
(if (not (and-map
- (lambda (#{x\ 3826}#)
- (not (#{ellipsis?\ 477}#
- (car #{x\ 3826}#))))
- #{pvars\ 3819}#))
+ (lambda (#{x\ 3820}#)
+ (not (#{ellipsis?\ 476}#
+ (car #{x\ 3820}#))))
+ #{pvars\ 3813}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3806}#)
+ #{pat\ 3800}#)
(begin
- (let ((#{y\ 3830}# (#{gen-var\ 489}# 'tmp)))
- (#{build-application\ 305}#
+ (let ((#{y\ 3824}# (#{gen-var\ 488}# 'tmp)))
+ (#{build-application\ 306}#
#f
- (#{build-simple-lambda\ 323}#
+ (#{build-simple-lambda\ 324}#
#f
(list 'tmp)
#f
- (list #{y\ 3830}#)
+ (list #{y\ 3824}#)
'()
(begin
- (let ((#{y\ 3834}#
- (#{build-lexical-reference\ 311}#
+ (let ((#{y\ 3828}#
+ (#{build-lexical-reference\ 312}#
'value
#f
'tmp
- #{y\ 3830}#)))
- (#{build-conditional\ 307}#
+ #{y\ 3824}#)))
+ (#{build-conditional\ 308}#
#f
- (let ((#{tmp\ 3837}#
- #{fender\ 3807}#))
- (let ((#{tmp\ 3838}#
+ (let ((#{tmp\ 3831}#
+ #{fender\ 3801}#))
+ (let ((#{tmp\ 3832}#
($sc-dispatch
- #{tmp\ 3837}#
+ #{tmp\ 3831}#
'#(atom #t))))
- (if #{tmp\ 3838}#
+ (if #{tmp\ 3832}#
(@apply
- (lambda () #{y\ 3834}#)
- #{tmp\ 3838}#)
- (let ((#{_\ 3840}#
- #{tmp\ 3837}#))
- (#{build-conditional\ 307}#
+ (lambda () #{y\ 3828}#)
+ #{tmp\ 3832}#)
+ (let ((#{_\ 3834}#
+ #{tmp\ 3831}#))
+ (#{build-conditional\ 308}#
#f
- #{y\ 3834}#
- (#{build-dispatch-call\ 3674}#
- #{pvars\ 3819}#
- #{fender\ 3807}#
- #{y\ 3834}#
- #{r\ 3805}#
- #{mod\ 3809}#)
- (#{build-data\ 331}#
+ #{y\ 3828}#
+ (#{build-dispatch-call\ 3668}#
+ #{pvars\ 3813}#
+ #{fender\ 3801}#
+ #{y\ 3828}#
+ #{r\ 3799}#
+ #{mod\ 3803}#)
+ (#{build-data\ 332}#
#f
#f))))))
- (#{build-dispatch-call\ 3674}#
- #{pvars\ 3819}#
- #{exp\ 3808}#
- #{y\ 3834}#
- #{r\ 3805}#
- #{mod\ 3809}#)
- (#{gen-syntax-case\ 3678}#
- #{x\ 3802}#
- #{keys\ 3803}#
- #{clauses\ 3804}#
- #{r\ 3805}#
- #{mod\ 3809}#)))))
- (list (if (eq? #{p\ 3818}# 'any)
- (#{build-application\ 305}#
+ (#{build-dispatch-call\ 3668}#
+ #{pvars\ 3813}#
+ #{exp\ 3802}#
+ #{y\ 3828}#
+ #{r\ 3799}#
+ #{mod\ 3803}#)
+ (#{gen-syntax-case\ 3672}#
+ #{x\ 3796}#
+ #{keys\ 3797}#
+ #{clauses\ 3798}#
+ #{r\ 3799}#
+ #{mod\ 3803}#)))))
+ (list (if (eq? #{p\ 3812}# 'any)
+ (#{build-application\ 306}#
#f
- (#{build-primref\ 329}# #f 'list)
- (list #{x\ 3802}#))
- (#{build-application\ 305}#
+ (#{build-primref\ 330}# #f 'list)
+ (list #{x\ 3796}#))
+ (#{build-application\ 306}#
#f
- (#{build-primref\ 329}#
+ (#{build-primref\ 330}#
#f
'$sc-dispatch)
- (list #{x\ 3802}#
- (#{build-data\ 331}#
+ (list #{x\ 3796}#
+ (#{build-data\ 332}#
#f
- #{p\ 3818}#))))))))))))))
- (#{gen-syntax-case\ 3678}#
- (lambda (#{x\ 3848}#
- #{keys\ 3849}#
- #{clauses\ 3850}#
- #{r\ 3851}#
- #{mod\ 3852}#)
- (if (null? #{clauses\ 3850}#)
- (#{build-application\ 305}#
+ #{p\ 3812}#))))))))))))))
+ (#{gen-syntax-case\ 3672}#
+ (lambda (#{x\ 3842}#
+ #{keys\ 3843}#
+ #{clauses\ 3844}#
+ #{r\ 3845}#
+ #{mod\ 3846}#)
+ (if (null? #{clauses\ 3844}#)
+ (#{build-application\ 306}#
#f
- (#{build-primref\ 329}# #f 'syntax-violation)
- (list (#{build-data\ 331}# #f #f)
- (#{build-data\ 331}#
+ (#{build-primref\ 330}# #f 'syntax-violation)
+ (list (#{build-data\ 332}# #f #f)
+ (#{build-data\ 332}#
#f
"source expression failed to match any pattern")
- #{x\ 3848}#))
- (let ((#{tmp\ 3862}# (car #{clauses\ 3850}#)))
- (let ((#{tmp\ 3863}#
- ($sc-dispatch #{tmp\ 3862}# '(any any))))
- (if #{tmp\ 3863}#
+ #{x\ 3842}#))
+ (let ((#{tmp\ 3856}# (car #{clauses\ 3844}#)))
+ (let ((#{tmp\ 3857}#
+ ($sc-dispatch #{tmp\ 3856}# '(any any))))
+ (if #{tmp\ 3857}#
(@apply
- (lambda (#{pat\ 3866}# #{exp\ 3867}#)
- (if (if (#{id?\ 379}# #{pat\ 3866}#)
+ (lambda (#{pat\ 3860}# #{exp\ 3861}#)
+ (if (if (#{id?\ 380}# #{pat\ 3860}#)
(and-map
- (lambda (#{x\ 3870}#)
- (not (#{free-id=?\ 435}#
- #{pat\ 3866}#
- #{x\ 3870}#)))
+ (lambda (#{x\ 3864}#)
+ (not (#{free-id=?\ 436}#
+ #{pat\ 3860}#
+ #{x\ 3864}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3864" "i3865"))
+ #("i3858" "i3859"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("i3853"
- "i3854"
- "i3855"
- "i3856"
- "i3857"))
+ #("i3847"
+ "i3848"
+ "i3849"
+ "i3850"
+ "i3851"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3677"
- "i3675"
- "i3673"
- "i3671"))
+ ("i3671"
+ "i3669"
+ "i3667"
+ "i3665"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40"
+ ("i41"
+ "i40"
"i39"
- "i38"
- "i36")))
+ "i37")))
(hygiene guile))
- #{keys\ 3849}#))
+ #{keys\ 3843}#))
#f)
- (if (#{free-id=?\ 435}#
+ (if (#{free-id=?\ 436}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3864" "i3865"))
+ #("i3858" "i3859"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3853"
- "i3854"
- "i3855"
- "i3856"
- "i3857"))
+ #("i3847"
+ "i3848"
+ "i3849"
+ "i3850"
+ "i3851"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3677"
- "i3675"
- "i3673"
- "i3671"))
+ ("i3671"
+ "i3669"
+ "i3667"
+ "i3665"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile))
'#(syntax-object
_
#(ribcage
#(pat exp)
#((top) (top))
- #("i3864" "i3865"))
+ #("i3858" "i3859"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3853"
- "i3854"
- "i3855"
- "i3856"
- "i3857"))
+ #("i3847"
+ "i3848"
+ "i3849"
+ "i3850"
+ "i3851"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3677"
- "i3675"
- "i3673"
- "i3671"))
+ ("i3671"
+ "i3669"
+ "i3667"
+ "i3665"))
#(ribcage
(lambda-var-list
gen-var
chi-application
chi-expr
chi
- chi-top
syntax-type
chi-when-list
chi-install-global
(top)
(top)
(top)
- (top)
(top))
- ("i490"
- "i488"
- "i486"
- "i484"
- "i482"
- "i480"
- "i478"
- "i476"
- "i474"
- "i472"
- "i470"
- "i468"
- "i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
+ ("i489"
+ "i487"
+ "i485"
+ "i483"
+ "i481"
+ "i479"
+ "i477"
+ "i475"
+ "i473"
+ "i471"
+ "i469"
+ "i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
"i420"
"i419"
- "i418"
+ "i417"
"i416"
"i415"
"i414"
"i413"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i393"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i394"
+ "i392"
"i391"
"i390"
"i389"
"i386"
"i385"
"i384"
- "i383"
+ "i382"
"i381"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i370"
- "i368"
+ "i379"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
"i366"
"i365"
"i364"
"i363"
"i362"
- "i361"
+ "i360"
"i359"
- "i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
+ "i357"
+ "i355"
+ "i353"
+ "i351"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
+ "i329"
+ "i327"
+ "i325"
+ "i323"
+ "i321"
+ "i319"
+ "i317"
+ "i315"
+ "i313"
+ "i311"
+ "i309"
+ "i307"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
"i294"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i244"
- "i242"
- "i240"
- "i238"))
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
+ "i253"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i239"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors
and-map*)
((top) (top) (top) (top))
- ("i40" "i39" "i38" "i36")))
+ ("i41" "i40" "i39" "i37")))
(hygiene guile)))
- (#{chi\ 461}#
- #{exp\ 3867}#
- #{r\ 3851}#
+ (#{chi\ 460}#
+ #{exp\ 3861}#
+ #{r\ 3845}#
'(())
- #{mod\ 3852}#)
+ #{mod\ 3846}#)
(begin
- (let ((#{labels\ 3875}#
- (list (#{gen-label\ 392}#)))
- (#{var\ 3876}#
- (#{gen-var\ 489}#
- #{pat\ 3866}#)))
- (#{build-application\ 305}#
+ (let ((#{labels\ 3869}#
+ (list (#{gen-label\ 393}#)))
+ (#{var\ 3870}#
+ (#{gen-var\ 488}#
+ #{pat\ 3860}#)))
+ (#{build-application\ 306}#
#f
- (#{build-simple-lambda\ 323}#
+ (#{build-simple-lambda\ 324}#
#f
(list (syntax->datum
- #{pat\ 3866}#))
+ #{pat\ 3860}#))
#f
- (list #{var\ 3876}#)
+ (list #{var\ 3870}#)
'()
- (#{chi\ 461}#
- #{exp\ 3867}#
- (#{extend-env\ 367}#
- #{labels\ 3875}#
+ (#{chi\ 460}#
+ #{exp\ 3861}#
+ (#{extend-env\ 368}#
+ #{labels\ 3869}#
(list (cons 'syntax
- (cons #{var\ 3876}#
+ (cons #{var\ 3870}#
0)))
- #{r\ 3851}#)
- (#{make-binding-wrap\ 423}#
- (list #{pat\ 3866}#)
- #{labels\ 3875}#
+ #{r\ 3845}#)
+ (#{make-binding-wrap\ 424}#
+ (list #{pat\ 3860}#)
+ #{labels\ 3869}#
'(()))
- #{mod\ 3852}#))
- (list #{x\ 3848}#)))))
- (#{gen-clause\ 3676}#
- #{x\ 3848}#
- #{keys\ 3849}#
- (cdr #{clauses\ 3850}#)
- #{r\ 3851}#
- #{pat\ 3866}#
+ #{mod\ 3846}#))
+ (list #{x\ 3842}#)))))
+ (#{gen-clause\ 3670}#
+ #{x\ 3842}#
+ #{keys\ 3843}#
+ (cdr #{clauses\ 3844}#)
+ #{r\ 3845}#
+ #{pat\ 3860}#
#t
- #{exp\ 3867}#
- #{mod\ 3852}#)))
- #{tmp\ 3863}#)
- (let ((#{tmp\ 3882}#
+ #{exp\ 3861}#
+ #{mod\ 3846}#)))
+ #{tmp\ 3857}#)
+ (let ((#{tmp\ 3876}#
($sc-dispatch
- #{tmp\ 3862}#
+ #{tmp\ 3856}#
'(any any any))))
- (if #{tmp\ 3882}#
+ (if #{tmp\ 3876}#
(@apply
- (lambda (#{pat\ 3886}#
- #{fender\ 3887}#
- #{exp\ 3888}#)
- (#{gen-clause\ 3676}#
- #{x\ 3848}#
- #{keys\ 3849}#
- (cdr #{clauses\ 3850}#)
- #{r\ 3851}#
- #{pat\ 3886}#
- #{fender\ 3887}#
- #{exp\ 3888}#
- #{mod\ 3852}#))
- #{tmp\ 3882}#)
- (let ((#{_\ 3890}# #{tmp\ 3862}#))
+ (lambda (#{pat\ 3880}#
+ #{fender\ 3881}#
+ #{exp\ 3882}#)
+ (#{gen-clause\ 3670}#
+ #{x\ 3842}#
+ #{keys\ 3843}#
+ (cdr #{clauses\ 3844}#)
+ #{r\ 3845}#
+ #{pat\ 3880}#
+ #{fender\ 3881}#
+ #{exp\ 3882}#
+ #{mod\ 3846}#))
+ #{tmp\ 3876}#)
+ (let ((#{_\ 3884}# #{tmp\ 3856}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3850}#))))))))))))
+ (car #{clauses\ 3844}#))))))))))))
(begin
- (lambda (#{e\ 3891}#
- #{r\ 3892}#
- #{w\ 3893}#
- #{s\ 3894}#
- #{mod\ 3895}#)
+ (lambda (#{e\ 3885}#
+ #{r\ 3886}#
+ #{w\ 3887}#
+ #{s\ 3888}#
+ #{mod\ 3889}#)
(begin
- (let ((#{e\ 3902}#
- (#{source-wrap\ 447}#
- #{e\ 3891}#
- #{w\ 3893}#
- #{s\ 3894}#
- #{mod\ 3895}#)))
- (let ((#{tmp\ 3903}# #{e\ 3902}#))
- (let ((#{tmp\ 3904}#
+ (let ((#{e\ 3896}#
+ (#{source-wrap\ 448}#
+ #{e\ 3885}#
+ #{w\ 3887}#
+ #{s\ 3888}#
+ #{mod\ 3889}#)))
+ (let ((#{tmp\ 3897}# #{e\ 3896}#))
+ (let ((#{tmp\ 3898}#
($sc-dispatch
- #{tmp\ 3903}#
+ #{tmp\ 3897}#
'(_ any each-any . each-any))))
- (if #{tmp\ 3904}#
+ (if #{tmp\ 3898}#
(@apply
- (lambda (#{val\ 3908}#
- #{key\ 3909}#
- #{m\ 3910}#)
+ (lambda (#{val\ 3902}#
+ #{key\ 3903}#
+ #{m\ 3904}#)
(if (and-map
- (lambda (#{x\ 3911}#)
- (if (#{id?\ 379}# #{x\ 3911}#)
- (not (#{ellipsis?\ 477}#
- #{x\ 3911}#))
+ (lambda (#{x\ 3905}#)
+ (if (#{id?\ 380}# #{x\ 3905}#)
+ (not (#{ellipsis?\ 476}#
+ #{x\ 3905}#))
#f))
- #{key\ 3909}#)
+ #{key\ 3903}#)
(begin
- (let ((#{x\ 3917}#
- (#{gen-var\ 489}# 'tmp)))
- (#{build-application\ 305}#
- #{s\ 3894}#
- (#{build-simple-lambda\ 323}#
+ (let ((#{x\ 3911}#
+ (#{gen-var\ 488}# 'tmp)))
+ (#{build-application\ 306}#
+ #{s\ 3888}#
+ (#{build-simple-lambda\ 324}#
#f
(list 'tmp)
#f
- (list #{x\ 3917}#)
+ (list #{x\ 3911}#)
'()
- (#{gen-syntax-case\ 3678}#
- (#{build-lexical-reference\ 311}#
+ (#{gen-syntax-case\ 3672}#
+ (#{build-lexical-reference\ 312}#
'value
#f
'tmp
- #{x\ 3917}#)
- #{key\ 3909}#
- #{m\ 3910}#
- #{r\ 3892}#
- #{mod\ 3895}#))
- (list (#{chi\ 461}#
- #{val\ 3908}#
- #{r\ 3892}#
+ #{x\ 3911}#)
+ #{key\ 3903}#
+ #{m\ 3904}#
+ #{r\ 3886}#
+ #{mod\ 3889}#))
+ (list (#{chi\ 460}#
+ #{val\ 3902}#
+ #{r\ 3886}#
'(())
- #{mod\ 3895}#)))))
+ #{mod\ 3889}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3902}#)))
- #{tmp\ 3904}#)
+ #{e\ 3896}#)))
+ #{tmp\ 3898}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3903}#))))))))))
+ #{tmp\ 3897}#))))))))))
(set! macroexpand
(lambda*
- (#{x\ 3923}#
+ (#{x\ 3917}#
#:optional
- (#{m\ 3925}# 'e)
- (#{esew\ 3927}# '(eval)))
- (#{chi-top\ 459}#
- #{x\ 3923}#
+ (#{m\ 3919}# 'e)
+ (#{esew\ 3921}# '(eval)))
+ (#{chi-top-sequence\ 452}#
+ (list #{x\ 3917}#)
'()
'((top))
- #{m\ 3925}#
- #{esew\ 3927}#
+ #f
+ #{m\ 3919}#
+ #{esew\ 3921}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x\ 3931}#)
- (#{nonsymbol-id?\ 377}# #{x\ 3931}#)))
+ (lambda (#{x\ 3925}#)
+ (#{nonsymbol-id?\ 378}# #{x\ 3925}#)))
(set! datum->syntax
- (lambda (#{id\ 3933}# #{datum\ 3934}#)
- (#{make-syntax-object\ 343}#
- #{datum\ 3934}#
- (#{syntax-object-wrap\ 349}# #{id\ 3933}#)
- (#{syntax-object-module\ 351}# #{id\ 3933}#))))
+ (lambda (#{id\ 3927}# #{datum\ 3928}#)
+ (#{make-syntax-object\ 344}#
+ #{datum\ 3928}#
+ (#{syntax-object-wrap\ 350}# #{id\ 3927}#)
+ (#{syntax-object-module\ 352}# #{id\ 3927}#))))
(set! syntax->datum
- (lambda (#{x\ 3937}#)
- (#{strip\ 487}# #{x\ 3937}# '(()))))
+ (lambda (#{x\ 3931}#)
+ (#{strip\ 486}# #{x\ 3931}# '(()))))
(set! syntax-source
- (lambda (#{x\ 3940}#)
- (#{source-annotation\ 360}# #{x\ 3940}#)))
+ (lambda (#{x\ 3934}#)
+ (#{source-annotation\ 361}# #{x\ 3934}#)))
(set! generate-temporaries
- (lambda (#{ls\ 3942}#)
+ (lambda (#{ls\ 3936}#)
(begin
(begin
- (let ((#{x\ 3946}# #{ls\ 3942}#))
- (if (not (list? #{x\ 3946}#))
+ (let ((#{x\ 3940}# #{ls\ 3936}#))
+ (if (not (list? #{x\ 3940}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3946}#))))
- (map (lambda (#{x\ 3947}#)
- (#{wrap\ 445}# (gensym) '((top)) #f))
- #{ls\ 3942}#))))
+ #{x\ 3940}#))))
+ (map (lambda (#{x\ 3941}#)
+ (#{wrap\ 446}# (gensym) '((top)) #f))
+ #{ls\ 3936}#))))
(set! free-identifier=?
- (lambda (#{x\ 3951}# #{y\ 3952}#)
+ (lambda (#{x\ 3945}# #{y\ 3946}#)
(begin
(begin
- (let ((#{x\ 3957}# #{x\ 3951}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3957}#))
+ (let ((#{x\ 3951}# #{x\ 3945}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3951}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3957}#))))
+ #{x\ 3951}#))))
(begin
- (let ((#{x\ 3960}# #{y\ 3952}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3960}#))
+ (let ((#{x\ 3954}# #{y\ 3946}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3954}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3960}#))))
- (#{free-id=?\ 435}# #{x\ 3951}# #{y\ 3952}#))))
+ #{x\ 3954}#))))
+ (#{free-id=?\ 436}# #{x\ 3945}# #{y\ 3946}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3961}# #{y\ 3962}#)
+ (lambda (#{x\ 3955}# #{y\ 3956}#)
(begin
(begin
- (let ((#{x\ 3967}# #{x\ 3961}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3967}#))
+ (let ((#{x\ 3961}# #{x\ 3955}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3961}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3967}#))))
+ #{x\ 3961}#))))
(begin
- (let ((#{x\ 3970}# #{y\ 3962}#))
- (if (not (#{nonsymbol-id?\ 377}# #{x\ 3970}#))
+ (let ((#{x\ 3964}# #{y\ 3956}#))
+ (if (not (#{nonsymbol-id?\ 378}# #{x\ 3964}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3970}#))))
- (#{bound-id=?\ 437}# #{x\ 3961}# #{y\ 3962}#))))
+ #{x\ 3964}#))))
+ (#{bound-id=?\ 438}# #{x\ 3955}# #{y\ 3956}#))))
(set! syntax-violation
(lambda*
- (#{who\ 3971}#
- #{message\ 3972}#
- #{form\ 3973}#
+ (#{who\ 3965}#
+ #{message\ 3966}#
+ #{form\ 3967}#
#:optional
- (#{subform\ 3977}# #f))
+ (#{subform\ 3971}# #f))
(begin
(begin
- (let ((#{x\ 3981}# #{who\ 3971}#))
- (if (not (let ((#{x\ 3982}# #{x\ 3981}#))
+ (let ((#{x\ 3975}# #{who\ 3965}#))
+ (if (not (let ((#{x\ 3976}# #{x\ 3975}#))
(begin
- (let ((#{t\ 3986}# (not #{x\ 3982}#)))
- (if #{t\ 3986}#
- #{t\ 3986}#
+ (let ((#{t\ 3980}# (not #{x\ 3976}#)))
+ (if #{t\ 3980}#
+ #{t\ 3980}#
(begin
- (let ((#{t\ 3989}#
- (string? #{x\ 3982}#)))
- (if #{t\ 3989}#
- #{t\ 3989}#
- (symbol? #{x\ 3982}#)))))))))
+ (let ((#{t\ 3983}#
+ (string? #{x\ 3976}#)))
+ (if #{t\ 3983}#
+ #{t\ 3983}#
+ (symbol? #{x\ 3976}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3981}#))))
+ #{x\ 3975}#))))
(begin
- (let ((#{x\ 3993}# #{message\ 3972}#))
- (if (not (string? #{x\ 3993}#))
+ (let ((#{x\ 3987}# #{message\ 3966}#))
+ (if (not (string? #{x\ 3987}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3993}#))))
+ #{x\ 3987}#))))
(throw 'syntax-error
- #{who\ 3971}#
- #{message\ 3972}#
- (#{source-annotation\ 360}#
+ #{who\ 3965}#
+ #{message\ 3966}#
+ (#{source-annotation\ 361}#
(begin
- (let ((#{t\ 3996}# #{form\ 3973}#))
- (if #{t\ 3996}#
- #{t\ 3996}#
- #{subform\ 3977}#))))
- (#{strip\ 487}# #{form\ 3973}# '(()))
- (if #{subform\ 3977}#
- (#{strip\ 487}# #{subform\ 3977}# '(()))
+ (let ((#{t\ 3990}# #{form\ 3967}#))
+ (if #{t\ 3990}#
+ #{t\ 3990}#
+ #{subform\ 3971}#))))
+ (#{strip\ 486}# #{form\ 3967}# '(()))
+ (if #{subform\ 3971}#
+ (#{strip\ 486}# #{subform\ 3971}# '(()))
#f)))))
(letrec*
- ((#{match-each\ 4003}#
- (lambda (#{e\ 4016}#
- #{p\ 4017}#
- #{w\ 4018}#
- #{mod\ 4019}#)
- (if (pair? #{e\ 4016}#)
+ ((#{match-each\ 3997}#
+ (lambda (#{e\ 4010}#
+ #{p\ 4011}#
+ #{w\ 4012}#
+ #{mod\ 4013}#)
+ (if (pair? #{e\ 4010}#)
(begin
- (let ((#{first\ 4027}#
- (#{match\ 4015}#
- (car #{e\ 4016}#)
- #{p\ 4017}#
- #{w\ 4018}#
+ (let ((#{first\ 4021}#
+ (#{match\ 4009}#
+ (car #{e\ 4010}#)
+ #{p\ 4011}#
+ #{w\ 4012}#
'()
- #{mod\ 4019}#)))
- (if #{first\ 4027}#
+ #{mod\ 4013}#)))
+ (if #{first\ 4021}#
(begin
- (let ((#{rest\ 4031}#
- (#{match-each\ 4003}#
- (cdr #{e\ 4016}#)
- #{p\ 4017}#
- #{w\ 4018}#
- #{mod\ 4019}#)))
- (if #{rest\ 4031}#
- (cons #{first\ 4027}# #{rest\ 4031}#)
+ (let ((#{rest\ 4025}#
+ (#{match-each\ 3997}#
+ (cdr #{e\ 4010}#)
+ #{p\ 4011}#
+ #{w\ 4012}#
+ #{mod\ 4013}#)))
+ (if #{rest\ 4025}#
+ (cons #{first\ 4021}# #{rest\ 4025}#)
#f)))
#f)))
- (if (null? #{e\ 4016}#)
+ (if (null? #{e\ 4010}#)
'()
- (if (#{syntax-object?\ 345}# #{e\ 4016}#)
- (#{match-each\ 4003}#
- (#{syntax-object-expression\ 347}# #{e\ 4016}#)
- #{p\ 4017}#
- (#{join-wraps\ 427}#
- #{w\ 4018}#
- (#{syntax-object-wrap\ 349}# #{e\ 4016}#))
- (#{syntax-object-module\ 351}# #{e\ 4016}#))
+ (if (#{syntax-object?\ 346}# #{e\ 4010}#)
+ (#{match-each\ 3997}#
+ (#{syntax-object-expression\ 348}# #{e\ 4010}#)
+ #{p\ 4011}#
+ (#{join-wraps\ 428}#
+ #{w\ 4012}#
+ (#{syntax-object-wrap\ 350}# #{e\ 4010}#))
+ (#{syntax-object-module\ 352}# #{e\ 4010}#))
#f)))))
- (#{match-each+\ 4005}#
- (lambda (#{e\ 4039}#
- #{x-pat\ 4040}#
- #{y-pat\ 4041}#
- #{z-pat\ 4042}#
- #{w\ 4043}#
- #{r\ 4044}#
- #{mod\ 4045}#)
+ (#{match-each+\ 3999}#
+ (lambda (#{e\ 4033}#
+ #{x-pat\ 4034}#
+ #{y-pat\ 4035}#
+ #{z-pat\ 4036}#
+ #{w\ 4037}#
+ #{r\ 4038}#
+ #{mod\ 4039}#)
(letrec*
- ((#{f\ 4056}#
- (lambda (#{e\ 4057}# #{w\ 4058}#)
- (if (pair? #{e\ 4057}#)
+ ((#{f\ 4050}#
+ (lambda (#{e\ 4051}# #{w\ 4052}#)
+ (if (pair? #{e\ 4051}#)
(call-with-values
(lambda ()
- (#{f\ 4056}# (cdr #{e\ 4057}#) #{w\ 4058}#))
- (lambda (#{xr*\ 4061}#
- #{y-pat\ 4062}#
- #{r\ 4063}#)
- (if #{r\ 4063}#
- (if (null? #{y-pat\ 4062}#)
+ (#{f\ 4050}# (cdr #{e\ 4051}#) #{w\ 4052}#))
+ (lambda (#{xr*\ 4055}#
+ #{y-pat\ 4056}#
+ #{r\ 4057}#)
+ (if #{r\ 4057}#
+ (if (null? #{y-pat\ 4056}#)
(begin
- (let ((#{xr\ 4068}#
- (#{match\ 4015}#
- (car #{e\ 4057}#)
- #{x-pat\ 4040}#
- #{w\ 4058}#
+ (let ((#{xr\ 4062}#
+ (#{match\ 4009}#
+ (car #{e\ 4051}#)
+ #{x-pat\ 4034}#
+ #{w\ 4052}#
'()
- #{mod\ 4045}#)))
- (if #{xr\ 4068}#
+ #{mod\ 4039}#)))
+ (if #{xr\ 4062}#
(values
- (cons #{xr\ 4068}# #{xr*\ 4061}#)
- #{y-pat\ 4062}#
- #{r\ 4063}#)
+ (cons #{xr\ 4062}# #{xr*\ 4055}#)
+ #{y-pat\ 4056}#
+ #{r\ 4057}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat\ 4062}#)
- (#{match\ 4015}#
- (car #{e\ 4057}#)
- (car #{y-pat\ 4062}#)
- #{w\ 4058}#
- #{r\ 4063}#
- #{mod\ 4045}#)))
+ (cdr #{y-pat\ 4056}#)
+ (#{match\ 4009}#
+ (car #{e\ 4051}#)
+ (car #{y-pat\ 4056}#)
+ #{w\ 4052}#
+ #{r\ 4057}#
+ #{mod\ 4039}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 345}# #{e\ 4057}#)
- (#{f\ 4056}#
- (#{syntax-object-expression\ 347}# #{e\ 4057}#)
- (#{join-wraps\ 427}# #{w\ 4058}# #{e\ 4057}#))
+ (if (#{syntax-object?\ 346}# #{e\ 4051}#)
+ (#{f\ 4050}#
+ (#{syntax-object-expression\ 348}# #{e\ 4051}#)
+ (#{join-wraps\ 428}# #{w\ 4052}# #{e\ 4051}#))
(values
'()
- #{y-pat\ 4041}#
- (#{match\ 4015}#
- #{e\ 4057}#
- #{z-pat\ 4042}#
- #{w\ 4058}#
- #{r\ 4044}#
- #{mod\ 4045}#)))))))
- (begin (#{f\ 4056}# #{e\ 4039}# #{w\ 4043}#)))))
- (#{match-each-any\ 4007}#
- (lambda (#{e\ 4072}# #{w\ 4073}# #{mod\ 4074}#)
- (if (pair? #{e\ 4072}#)
+ #{y-pat\ 4035}#
+ (#{match\ 4009}#
+ #{e\ 4051}#
+ #{z-pat\ 4036}#
+ #{w\ 4052}#
+ #{r\ 4038}#
+ #{mod\ 4039}#)))))))
+ (begin (#{f\ 4050}# #{e\ 4033}# #{w\ 4037}#)))))
+ (#{match-each-any\ 4001}#
+ (lambda (#{e\ 4066}# #{w\ 4067}# #{mod\ 4068}#)
+ (if (pair? #{e\ 4066}#)
(begin
- (let ((#{l\ 4081}#
- (#{match-each-any\ 4007}#
- (cdr #{e\ 4072}#)
- #{w\ 4073}#
- #{mod\ 4074}#)))
- (if #{l\ 4081}#
- (cons (#{wrap\ 445}#
- (car #{e\ 4072}#)
- #{w\ 4073}#
- #{mod\ 4074}#)
- #{l\ 4081}#)
+ (let ((#{l\ 4075}#
+ (#{match-each-any\ 4001}#
+ (cdr #{e\ 4066}#)
+ #{w\ 4067}#
+ #{mod\ 4068}#)))
+ (if #{l\ 4075}#
+ (cons (#{wrap\ 446}#
+ (car #{e\ 4066}#)
+ #{w\ 4067}#
+ #{mod\ 4068}#)
+ #{l\ 4075}#)
#f)))
- (if (null? #{e\ 4072}#)
+ (if (null? #{e\ 4066}#)
'()
- (if (#{syntax-object?\ 345}# #{e\ 4072}#)
- (#{match-each-any\ 4007}#
- (#{syntax-object-expression\ 347}# #{e\ 4072}#)
- (#{join-wraps\ 427}#
- #{w\ 4073}#
- (#{syntax-object-wrap\ 349}# #{e\ 4072}#))
- #{mod\ 4074}#)
+ (if (#{syntax-object?\ 346}# #{e\ 4066}#)
+ (#{match-each-any\ 4001}#
+ (#{syntax-object-expression\ 348}# #{e\ 4066}#)
+ (#{join-wraps\ 428}#
+ #{w\ 4067}#
+ (#{syntax-object-wrap\ 350}# #{e\ 4066}#))
+ #{mod\ 4068}#)
#f)))))
- (#{match-empty\ 4009}#
- (lambda (#{p\ 4089}# #{r\ 4090}#)
- (if (null? #{p\ 4089}#)
- #{r\ 4090}#
- (if (eq? #{p\ 4089}# '_)
- #{r\ 4090}#
- (if (eq? #{p\ 4089}# 'any)
- (cons '() #{r\ 4090}#)
- (if (pair? #{p\ 4089}#)
- (#{match-empty\ 4009}#
- (car #{p\ 4089}#)
- (#{match-empty\ 4009}#
- (cdr #{p\ 4089}#)
- #{r\ 4090}#))
- (if (eq? #{p\ 4089}# 'each-any)
- (cons '() #{r\ 4090}#)
+ (#{match-empty\ 4003}#
+ (lambda (#{p\ 4083}# #{r\ 4084}#)
+ (if (null? #{p\ 4083}#)
+ #{r\ 4084}#
+ (if (eq? #{p\ 4083}# '_)
+ #{r\ 4084}#
+ (if (eq? #{p\ 4083}# 'any)
+ (cons '() #{r\ 4084}#)
+ (if (pair? #{p\ 4083}#)
+ (#{match-empty\ 4003}#
+ (car #{p\ 4083}#)
+ (#{match-empty\ 4003}#
+ (cdr #{p\ 4083}#)
+ #{r\ 4084}#))
+ (if (eq? #{p\ 4083}# 'each-any)
+ (cons '() #{r\ 4084}#)
(begin
- (let ((#{atom-key\ 4106}#
- (vector-ref #{p\ 4089}# 0)))
- (if (eqv? #{atom-key\ 4106}# 'each)
- (#{match-empty\ 4009}#
- (vector-ref #{p\ 4089}# 1)
- #{r\ 4090}#)
- (if (eqv? #{atom-key\ 4106}# 'each+)
- (#{match-empty\ 4009}#
- (vector-ref #{p\ 4089}# 1)
- (#{match-empty\ 4009}#
- (reverse (vector-ref #{p\ 4089}# 2))
- (#{match-empty\ 4009}#
- (vector-ref #{p\ 4089}# 3)
- #{r\ 4090}#)))
- (if (if (eqv? #{atom-key\ 4106}# 'free-id)
+ (let ((#{atom-key\ 4100}#
+ (vector-ref #{p\ 4083}# 0)))
+ (if (eqv? #{atom-key\ 4100}# 'each)
+ (#{match-empty\ 4003}#
+ (vector-ref #{p\ 4083}# 1)
+ #{r\ 4084}#)
+ (if (eqv? #{atom-key\ 4100}# 'each+)
+ (#{match-empty\ 4003}#
+ (vector-ref #{p\ 4083}# 1)
+ (#{match-empty\ 4003}#
+ (reverse (vector-ref #{p\ 4083}# 2))
+ (#{match-empty\ 4003}#
+ (vector-ref #{p\ 4083}# 3)
+ #{r\ 4084}#)))
+ (if (if (eqv? #{atom-key\ 4100}# 'free-id)
#t
- (eqv? #{atom-key\ 4106}# 'atom))
- #{r\ 4090}#
- (if (eqv? #{atom-key\ 4106}# 'vector)
- (#{match-empty\ 4009}#
- (vector-ref #{p\ 4089}# 1)
- #{r\ 4090}#))))))))))))))
- (#{combine\ 4011}#
- (lambda (#{r*\ 4111}# #{r\ 4112}#)
- (if (null? (car #{r*\ 4111}#))
- #{r\ 4112}#
- (cons (map car #{r*\ 4111}#)
- (#{combine\ 4011}#
- (map cdr #{r*\ 4111}#)
- #{r\ 4112}#)))))
- (#{match*\ 4013}#
- (lambda (#{e\ 4115}#
- #{p\ 4116}#
- #{w\ 4117}#
- #{r\ 4118}#
- #{mod\ 4119}#)
- (if (null? #{p\ 4116}#)
- (if (null? #{e\ 4115}#) #{r\ 4118}# #f)
- (if (pair? #{p\ 4116}#)
- (if (pair? #{e\ 4115}#)
- (#{match\ 4015}#
- (car #{e\ 4115}#)
- (car #{p\ 4116}#)
- #{w\ 4117}#
- (#{match\ 4015}#
- (cdr #{e\ 4115}#)
- (cdr #{p\ 4116}#)
- #{w\ 4117}#
- #{r\ 4118}#
- #{mod\ 4119}#)
- #{mod\ 4119}#)
+ (eqv? #{atom-key\ 4100}# 'atom))
+ #{r\ 4084}#
+ (if (eqv? #{atom-key\ 4100}# 'vector)
+ (#{match-empty\ 4003}#
+ (vector-ref #{p\ 4083}# 1)
+ #{r\ 4084}#))))))))))))))
+ (#{combine\ 4005}#
+ (lambda (#{r*\ 4105}# #{r\ 4106}#)
+ (if (null? (car #{r*\ 4105}#))
+ #{r\ 4106}#
+ (cons (map car #{r*\ 4105}#)
+ (#{combine\ 4005}#
+ (map cdr #{r*\ 4105}#)
+ #{r\ 4106}#)))))
+ (#{match*\ 4007}#
+ (lambda (#{e\ 4109}#
+ #{p\ 4110}#
+ #{w\ 4111}#
+ #{r\ 4112}#
+ #{mod\ 4113}#)
+ (if (null? #{p\ 4110}#)
+ (if (null? #{e\ 4109}#) #{r\ 4112}# #f)
+ (if (pair? #{p\ 4110}#)
+ (if (pair? #{e\ 4109}#)
+ (#{match\ 4009}#
+ (car #{e\ 4109}#)
+ (car #{p\ 4110}#)
+ #{w\ 4111}#
+ (#{match\ 4009}#
+ (cdr #{e\ 4109}#)
+ (cdr #{p\ 4110}#)
+ #{w\ 4111}#
+ #{r\ 4112}#
+ #{mod\ 4113}#)
+ #{mod\ 4113}#)
#f)
- (if (eq? #{p\ 4116}# 'each-any)
+ (if (eq? #{p\ 4110}# 'each-any)
(begin
- (let ((#{l\ 4136}#
- (#{match-each-any\ 4007}#
- #{e\ 4115}#
- #{w\ 4117}#
- #{mod\ 4119}#)))
- (if #{l\ 4136}#
- (cons #{l\ 4136}# #{r\ 4118}#)
+ (let ((#{l\ 4130}#
+ (#{match-each-any\ 4001}#
+ #{e\ 4109}#
+ #{w\ 4111}#
+ #{mod\ 4113}#)))
+ (if #{l\ 4130}#
+ (cons #{l\ 4130}# #{r\ 4112}#)
#f)))
(begin
- (let ((#{atom-key\ 4142}#
- (vector-ref #{p\ 4116}# 0)))
- (if (eqv? #{atom-key\ 4142}# 'each)
- (if (null? #{e\ 4115}#)
- (#{match-empty\ 4009}#
- (vector-ref #{p\ 4116}# 1)
- #{r\ 4118}#)
+ (let ((#{atom-key\ 4136}#
+ (vector-ref #{p\ 4110}# 0)))
+ (if (eqv? #{atom-key\ 4136}# 'each)
+ (if (null? #{e\ 4109}#)
+ (#{match-empty\ 4003}#
+ (vector-ref #{p\ 4110}# 1)
+ #{r\ 4112}#)
(begin
- (let ((#{l\ 4145}#
- (#{match-each\ 4003}#
- #{e\ 4115}#
- (vector-ref #{p\ 4116}# 1)
- #{w\ 4117}#
- #{mod\ 4119}#)))
- (if #{l\ 4145}#
+ (let ((#{l\ 4139}#
+ (#{match-each\ 3997}#
+ #{e\ 4109}#
+ (vector-ref #{p\ 4110}# 1)
+ #{w\ 4111}#
+ #{mod\ 4113}#)))
+ (if #{l\ 4139}#
(letrec*
- ((#{collect\ 4150}#
- (lambda (#{l\ 4151}#)
- (if (null? (car #{l\ 4151}#))
- #{r\ 4118}#
- (cons (map car #{l\ 4151}#)
- (#{collect\ 4150}#
+ ((#{collect\ 4144}#
+ (lambda (#{l\ 4145}#)
+ (if (null? (car #{l\ 4145}#))
+ #{r\ 4112}#
+ (cons (map car #{l\ 4145}#)
+ (#{collect\ 4144}#
(map cdr
- #{l\ 4151}#)))))))
+ #{l\ 4145}#)))))))
(begin
- (#{collect\ 4150}# #{l\ 4145}#)))
+ (#{collect\ 4144}# #{l\ 4139}#)))
#f))))
- (if (eqv? #{atom-key\ 4142}# 'each+)
+ (if (eqv? #{atom-key\ 4136}# 'each+)
(call-with-values
(lambda ()
- (#{match-each+\ 4005}#
- #{e\ 4115}#
- (vector-ref #{p\ 4116}# 1)
- (vector-ref #{p\ 4116}# 2)
- (vector-ref #{p\ 4116}# 3)
- #{w\ 4117}#
- #{r\ 4118}#
- #{mod\ 4119}#))
- (lambda (#{xr*\ 4153}#
- #{y-pat\ 4154}#
- #{r\ 4155}#)
- (if #{r\ 4155}#
- (if (null? #{y-pat\ 4154}#)
- (if (null? #{xr*\ 4153}#)
- (#{match-empty\ 4009}#
- (vector-ref #{p\ 4116}# 1)
- #{r\ 4155}#)
- (#{combine\ 4011}#
- #{xr*\ 4153}#
- #{r\ 4155}#))
+ (#{match-each+\ 3999}#
+ #{e\ 4109}#
+ (vector-ref #{p\ 4110}# 1)
+ (vector-ref #{p\ 4110}# 2)
+ (vector-ref #{p\ 4110}# 3)
+ #{w\ 4111}#
+ #{r\ 4112}#
+ #{mod\ 4113}#))
+ (lambda (#{xr*\ 4147}#
+ #{y-pat\ 4148}#
+ #{r\ 4149}#)
+ (if #{r\ 4149}#
+ (if (null? #{y-pat\ 4148}#)
+ (if (null? #{xr*\ 4147}#)
+ (#{match-empty\ 4003}#
+ (vector-ref #{p\ 4110}# 1)
+ #{r\ 4149}#)
+ (#{combine\ 4005}#
+ #{xr*\ 4147}#
+ #{r\ 4149}#))
#f)
#f)))
- (if (eqv? #{atom-key\ 4142}# 'free-id)
- (if (#{id?\ 379}# #{e\ 4115}#)
- (if (#{free-id=?\ 435}#
- (#{wrap\ 445}#
- #{e\ 4115}#
- #{w\ 4117}#
- #{mod\ 4119}#)
- (vector-ref #{p\ 4116}# 1))
- #{r\ 4118}#
+ (if (eqv? #{atom-key\ 4136}# 'free-id)
+ (if (#{id?\ 380}# #{e\ 4109}#)
+ (if (#{free-id=?\ 436}#
+ (#{wrap\ 446}#
+ #{e\ 4109}#
+ #{w\ 4111}#
+ #{mod\ 4113}#)
+ (vector-ref #{p\ 4110}# 1))
+ #{r\ 4112}#
#f)
#f)
- (if (eqv? #{atom-key\ 4142}# 'atom)
+ (if (eqv? #{atom-key\ 4136}# 'atom)
(if (equal?
- (vector-ref #{p\ 4116}# 1)
- (#{strip\ 487}#
- #{e\ 4115}#
- #{w\ 4117}#))
- #{r\ 4118}#
+ (vector-ref #{p\ 4110}# 1)
+ (#{strip\ 486}#
+ #{e\ 4109}#
+ #{w\ 4111}#))
+ #{r\ 4112}#
#f)
- (if (eqv? #{atom-key\ 4142}# 'vector)
- (if (vector? #{e\ 4115}#)
- (#{match\ 4015}#
- (vector->list #{e\ 4115}#)
- (vector-ref #{p\ 4116}# 1)
- #{w\ 4117}#
- #{r\ 4118}#
- #{mod\ 4119}#)
+ (if (eqv? #{atom-key\ 4136}# 'vector)
+ (if (vector? #{e\ 4109}#)
+ (#{match\ 4009}#
+ (vector->list #{e\ 4109}#)
+ (vector-ref #{p\ 4110}# 1)
+ #{w\ 4111}#
+ #{r\ 4112}#
+ #{mod\ 4113}#)
#f)))))))))))))
- (#{match\ 4015}#
- (lambda (#{e\ 4172}#
- #{p\ 4173}#
- #{w\ 4174}#
- #{r\ 4175}#
- #{mod\ 4176}#)
- (if (not #{r\ 4175}#)
+ (#{match\ 4009}#
+ (lambda (#{e\ 4166}#
+ #{p\ 4167}#
+ #{w\ 4168}#
+ #{r\ 4169}#
+ #{mod\ 4170}#)
+ (if (not #{r\ 4169}#)
#f
- (if (eq? #{p\ 4173}# '_)
- #{r\ 4175}#
- (if (eq? #{p\ 4173}# 'any)
- (cons (#{wrap\ 445}#
- #{e\ 4172}#
- #{w\ 4174}#
- #{mod\ 4176}#)
- #{r\ 4175}#)
- (if (#{syntax-object?\ 345}# #{e\ 4172}#)
- (#{match*\ 4013}#
- (#{syntax-object-expression\ 347}# #{e\ 4172}#)
- #{p\ 4173}#
- (#{join-wraps\ 427}#
- #{w\ 4174}#
- (#{syntax-object-wrap\ 349}# #{e\ 4172}#))
- #{r\ 4175}#
- (#{syntax-object-module\ 351}# #{e\ 4172}#))
- (#{match*\ 4013}#
- #{e\ 4172}#
- #{p\ 4173}#
- #{w\ 4174}#
- #{r\ 4175}#
- #{mod\ 4176}#))))))))
+ (if (eq? #{p\ 4167}# '_)
+ #{r\ 4169}#
+ (if (eq? #{p\ 4167}# 'any)
+ (cons (#{wrap\ 446}#
+ #{e\ 4166}#
+ #{w\ 4168}#
+ #{mod\ 4170}#)
+ #{r\ 4169}#)
+ (if (#{syntax-object?\ 346}# #{e\ 4166}#)
+ (#{match*\ 4007}#
+ (#{syntax-object-expression\ 348}# #{e\ 4166}#)
+ #{p\ 4167}#
+ (#{join-wraps\ 428}#
+ #{w\ 4168}#
+ (#{syntax-object-wrap\ 350}# #{e\ 4166}#))
+ #{r\ 4169}#
+ (#{syntax-object-module\ 352}# #{e\ 4166}#))
+ (#{match*\ 4007}#
+ #{e\ 4166}#
+ #{p\ 4167}#
+ #{w\ 4168}#
+ #{r\ 4169}#
+ #{mod\ 4170}#))))))))
(begin
(set! $sc-dispatch
- (lambda (#{e\ 4191}# #{p\ 4192}#)
- (if (eq? #{p\ 4192}# 'any)
- (list #{e\ 4191}#)
- (if (eq? #{p\ 4192}# '_)
+ (lambda (#{e\ 4185}# #{p\ 4186}#)
+ (if (eq? #{p\ 4186}# 'any)
+ (list #{e\ 4185}#)
+ (if (eq? #{p\ 4186}# '_)
'()
- (if (#{syntax-object?\ 345}# #{e\ 4191}#)
- (#{match*\ 4013}#
- (#{syntax-object-expression\ 347}# #{e\ 4191}#)
- #{p\ 4192}#
- (#{syntax-object-wrap\ 349}# #{e\ 4191}#)
+ (if (#{syntax-object?\ 346}# #{e\ 4185}#)
+ (#{match*\ 4007}#
+ (#{syntax-object-expression\ 348}# #{e\ 4185}#)
+ #{p\ 4186}#
+ (#{syntax-object-wrap\ 350}# #{e\ 4185}#)
'()
- (#{syntax-object-module\ 351}# #{e\ 4191}#))
- (#{match*\ 4013}#
- #{e\ 4191}#
- #{p\ 4192}#
+ (#{syntax-object-module\ 352}# #{e\ 4185}#))
+ (#{match*\ 4007}#
+ #{e\ 4185}#
+ #{p\ 4186}#
'(())
'()
#f))))))))))))))
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4203}#)
- (let ((#{tmp\ 4205}# #{x\ 4203}#))
- (let ((#{tmp\ 4206}#
+ (lambda (#{x\ 4197}#)
+ (let ((#{tmp\ 4199}# #{x\ 4197}#))
+ (let ((#{tmp\ 4200}#
($sc-dispatch
- #{tmp\ 4205}#
+ #{tmp\ 4199}#
'(_ () any . each-any))))
- (if #{tmp\ 4206}#
+ (if #{tmp\ 4200}#
(@apply
- (lambda (#{e1\ 4209}# #{e2\ 4210}#)
+ (lambda (#{e1\ 4203}# #{e2\ 4204}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4207" "i4208"))
+ #("i4201" "i4202"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4204")))
+ #(ribcage #(x) #((top)) #("i4198")))
(hygiene guile))
- (cons #{e1\ 4209}# #{e2\ 4210}#)))
- #{tmp\ 4206}#)
- (let ((#{tmp\ 4212}#
+ (cons #{e1\ 4203}# #{e2\ 4204}#)))
+ #{tmp\ 4200}#)
+ (let ((#{tmp\ 4206}#
($sc-dispatch
- #{tmp\ 4205}#
+ #{tmp\ 4199}#
'(_ ((any any)) any . each-any))))
- (if #{tmp\ 4212}#
+ (if #{tmp\ 4206}#
(@apply
- (lambda (#{out\ 4217}#
- #{in\ 4218}#
- #{e1\ 4219}#
- #{e2\ 4220}#)
+ (lambda (#{out\ 4211}#
+ #{in\ 4212}#
+ #{e1\ 4213}#
+ #{e2\ 4214}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4213" "i4214" "i4215" "i4216"))
+ #("i4207" "i4208" "i4209" "i4210"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4204")))
+ #(ribcage #(x) #((top)) #("i4198")))
(hygiene guile))
- #{in\ 4218}#
+ #{in\ 4212}#
'()
- (list #{out\ 4217}#
+ (list #{out\ 4211}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4213" "i4214" "i4215" "i4216"))
+ #("i4207" "i4208" "i4209" "i4210"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4204")))
+ #(ribcage #(x) #((top)) #("i4198")))
(hygiene guile))
- (cons #{e1\ 4219}# #{e2\ 4220}#)))))
- #{tmp\ 4212}#)
- (let ((#{tmp\ 4222}#
+ (cons #{e1\ 4213}# #{e2\ 4214}#)))))
+ #{tmp\ 4206}#)
+ (let ((#{tmp\ 4216}#
($sc-dispatch
- #{tmp\ 4205}#
+ #{tmp\ 4199}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 4222}#
+ (if #{tmp\ 4216}#
(@apply
- (lambda (#{out\ 4227}#
- #{in\ 4228}#
- #{e1\ 4229}#
- #{e2\ 4230}#)
+ (lambda (#{out\ 4221}#
+ #{in\ 4222}#
+ #{e1\ 4223}#
+ #{e2\ 4224}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4223" "i4224" "i4225" "i4226"))
+ #("i4217" "i4218" "i4219" "i4220"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4204")))
+ #(ribcage #(x) #((top)) #("i4198")))
(hygiene guile))
(cons '#(syntax-object
list
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4223" "i4224" "i4225" "i4226"))
+ #("i4217" "i4218" "i4219" "i4220"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4204")))
+ #(ribcage #(x) #((top)) #("i4198")))
(hygiene guile))
- #{in\ 4228}#)
+ #{in\ 4222}#)
'()
- (list #{out\ 4227}#
+ (list #{out\ 4221}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4223"
- "i4224"
- "i4225"
- "i4226"))
+ #("i4217"
+ "i4218"
+ "i4219"
+ "i4220"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4204")))
+ #("i4198")))
(hygiene guile))
- (cons #{e1\ 4229}# #{e2\ 4230}#)))))
- #{tmp\ 4222}#)
+ (cons #{e1\ 4223}# #{e2\ 4224}#)))))
+ #{tmp\ 4216}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4205}#)))))))))))
+ #{tmp\ 4199}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4234}#)
- (let ((#{tmp\ 4236}# #{x\ 4234}#))
- (let ((#{tmp\ 4237}#
+ (lambda (#{x\ 4228}#)
+ (let ((#{tmp\ 4230}# #{x\ 4228}#))
+ (let ((#{tmp\ 4231}#
($sc-dispatch
- #{tmp\ 4236}#
+ #{tmp\ 4230}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4237}#
+ (if #{tmp\ 4231}#
(@apply
- (lambda (#{k\ 4242}#
- #{keyword\ 4243}#
- #{pattern\ 4244}#
- #{template\ 4245}#)
+ (lambda (#{k\ 4236}#
+ #{keyword\ 4237}#
+ #{pattern\ 4238}#
+ #{template\ 4239}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4238" "i4239" "i4240" "i4241"))
+ #("i4232" "i4233" "i4234" "i4235"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4238" "i4239" "i4240" "i4241"))
+ #("i4232" "i4233" "i4234" "i4235"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4238" "i4239" "i4240" "i4241"))
+ #("i4232" "i4233" "i4234" "i4235"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4238" "i4239" "i4240" "i4241"))
+ #("i4232" "i4233" "i4234" "i4235"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4238" "i4239" "i4240" "i4241"))
+ #("i4232" "i4233" "i4234" "i4235"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
- #{pattern\ 4244}#))
+ #{pattern\ 4238}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4238" "i4239" "i4240" "i4241"))
+ #("i4232" "i4233" "i4234" "i4235"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4238" "i4239" "i4240" "i4241"))
+ #("i4232" "i4233" "i4234" "i4235"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
- (cons #{k\ 4242}#
- (map (lambda (#{tmp\ 4249}#
- #{tmp\ 4248}#)
+ (cons #{k\ 4236}#
+ (map (lambda (#{tmp\ 4243}#
+ #{tmp\ 4242}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4238"
- "i4239"
- "i4240"
- "i4241"))
+ #("i4232"
+ "i4233"
+ "i4234"
+ "i4235"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4235")))
+ #("i4229")))
(hygiene guile))
- #{tmp\ 4248}#)
+ #{tmp\ 4242}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4238"
- "i4239"
- "i4240"
- "i4241"))
+ #("i4232"
+ "i4233"
+ "i4234"
+ "i4235"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4235")))
+ #("i4229")))
(hygiene guile))
- #{tmp\ 4249}#)))
- #{template\ 4245}#
- #{pattern\ 4244}#))))))
- #{tmp\ 4237}#)
- (let ((#{tmp\ 4250}#
+ #{tmp\ 4243}#)))
+ #{template\ 4239}#
+ #{pattern\ 4238}#))))))
+ #{tmp\ 4231}#)
+ (let ((#{tmp\ 4244}#
($sc-dispatch
- #{tmp\ 4236}#
+ #{tmp\ 4230}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp\ 4250}#
+ (if (if #{tmp\ 4244}#
(@apply
- (lambda (#{k\ 4256}#
- #{docstring\ 4257}#
- #{keyword\ 4258}#
- #{pattern\ 4259}#
- #{template\ 4260}#)
- (string? (syntax->datum #{docstring\ 4257}#)))
- #{tmp\ 4250}#)
+ (lambda (#{k\ 4250}#
+ #{docstring\ 4251}#
+ #{keyword\ 4252}#
+ #{pattern\ 4253}#
+ #{template\ 4254}#)
+ (string? (syntax->datum #{docstring\ 4251}#)))
+ #{tmp\ 4244}#)
#f)
(@apply
- (lambda (#{k\ 4266}#
- #{docstring\ 4267}#
- #{keyword\ 4268}#
- #{pattern\ 4269}#
- #{template\ 4270}#)
+ (lambda (#{k\ 4260}#
+ #{docstring\ 4261}#
+ #{keyword\ 4262}#
+ #{pattern\ 4263}#
+ #{template\ 4264}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264" "i4265"))
+ #("i4255" "i4256" "i4257" "i4258" "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264" "i4265"))
+ #("i4255" "i4256" "i4257" "i4258" "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile)))
- #{docstring\ 4267}#
+ #{docstring\ 4261}#
(vector
'(#(syntax-object
macro-type
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264" "i4265"))
+ #("i4255" "i4256" "i4257" "i4258" "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4261" "i4262" "i4263" "i4264" "i4265"))
+ #("i4255" "i4256" "i4257" "i4258" "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264"
- "i4265"))
+ #("i4255"
+ "i4256"
+ "i4257"
+ "i4258"
+ "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
- #{pattern\ 4269}#))
+ #{pattern\ 4263}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264"
- "i4265"))
+ #("i4255"
+ "i4256"
+ "i4257"
+ "i4258"
+ "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
(cons '#(syntax-object
x
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264"
- "i4265"))
+ #("i4255"
+ "i4256"
+ "i4257"
+ "i4258"
+ "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4235")))
+ #(ribcage #(x) #((top)) #("i4229")))
(hygiene guile))
- (cons #{k\ 4266}#
- (map (lambda (#{tmp\ 4274}#
- #{tmp\ 4273}#)
+ (cons #{k\ 4260}#
+ (map (lambda (#{tmp\ 4268}#
+ #{tmp\ 4267}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264"
- "i4265"))
+ #("i4255"
+ "i4256"
+ "i4257"
+ "i4258"
+ "i4259"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4235")))
+ #("i4229")))
(hygiene
guile))
- #{tmp\ 4273}#)
+ #{tmp\ 4267}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4261"
- "i4262"
- "i4263"
- "i4264"
- "i4265"))
+ #("i4255"
+ "i4256"
+ "i4257"
+ "i4258"
+ "i4259"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4235")))
+ #("i4229")))
(hygiene
guile))
- #{tmp\ 4274}#)))
- #{template\ 4270}#
- #{pattern\ 4269}#))))))
- #{tmp\ 4250}#)
+ #{tmp\ 4268}#)))
+ #{template\ 4264}#
+ #{pattern\ 4263}#))))))
+ #{tmp\ 4244}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4236}#)))))))))
+ #{tmp\ 4230}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4275}#)
- (let ((#{tmp\ 4277}# #{x\ 4275}#))
- (let ((#{tmp\ 4278}#
+ (lambda (#{x\ 4269}#)
+ (let ((#{tmp\ 4271}# #{x\ 4269}#))
+ (let ((#{tmp\ 4272}#
($sc-dispatch
- #{tmp\ 4277}#
+ #{tmp\ 4271}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4278}#
+ (if (if #{tmp\ 4272}#
(@apply
- (lambda (#{let*\ 4284}#
- #{x\ 4285}#
- #{v\ 4286}#
- #{e1\ 4287}#
- #{e2\ 4288}#)
- (and-map identifier? #{x\ 4285}#))
- #{tmp\ 4278}#)
+ (lambda (#{let*\ 4278}#
+ #{x\ 4279}#
+ #{v\ 4280}#
+ #{e1\ 4281}#
+ #{e2\ 4282}#)
+ (and-map identifier? #{x\ 4279}#))
+ #{tmp\ 4272}#)
#f)
(@apply
- (lambda (#{let*\ 4295}#
- #{x\ 4296}#
- #{v\ 4297}#
- #{e1\ 4298}#
- #{e2\ 4299}#)
+ (lambda (#{let*\ 4289}#
+ #{x\ 4290}#
+ #{v\ 4291}#
+ #{e1\ 4292}#
+ #{e2\ 4293}#)
(letrec*
- ((#{f\ 4302}#
- (lambda (#{bindings\ 4303}#)
- (if (null? #{bindings\ 4303}#)
+ ((#{f\ 4296}#
+ (lambda (#{bindings\ 4297}#)
+ (if (null? #{bindings\ 4297}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4294" "i4295"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4290"
- "i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4276")))
+ #(ribcage #(x) #((top)) #("i4270")))
(hygiene guile))
- (cons '() (cons #{e1\ 4298}# #{e2\ 4299}#)))
- (let ((#{tmp\ 4308}#
- (list (#{f\ 4302}# (cdr #{bindings\ 4303}#))
- (car #{bindings\ 4303}#))))
- (let ((#{tmp\ 4309}#
- ($sc-dispatch #{tmp\ 4308}# '(any any))))
- (if #{tmp\ 4309}#
+ (cons '() (cons #{e1\ 4292}# #{e2\ 4293}#)))
+ (let ((#{tmp\ 4302}#
+ (list (#{f\ 4296}# (cdr #{bindings\ 4297}#))
+ (car #{bindings\ 4297}#))))
+ (let ((#{tmp\ 4303}#
+ ($sc-dispatch #{tmp\ 4302}# '(any any))))
+ (if #{tmp\ 4303}#
(@apply
- (lambda (#{body\ 4312}# #{binding\ 4313}#)
+ (lambda (#{body\ 4306}# #{binding\ 4307}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4310" "i4311"))
+ #("i4304" "i4305"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4300" "i4301"))
+ #("i4294" "i4295"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4290"
- "i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4284"
+ "i4285"
+ "i4286"
+ "i4287"
+ "i4288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4276")))
+ #("i4270")))
(hygiene guile))
- (list #{binding\ 4313}#)
- #{body\ 4312}#))
- #{tmp\ 4309}#)
+ (list #{binding\ 4307}#)
+ #{body\ 4306}#))
+ #{tmp\ 4303}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4308}#))))))))
+ #{tmp\ 4302}#))))))))
(begin
- (#{f\ 4302}# (map list #{x\ 4296}# #{v\ 4297}#)))))
- #{tmp\ 4278}#)
+ (#{f\ 4296}# (map list #{x\ 4290}# #{v\ 4291}#)))))
+ #{tmp\ 4272}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4277}#)))))))
+ #{tmp\ 4271}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4314}#)
- (let ((#{tmp\ 4316}# #{orig-x\ 4314}#))
- (let ((#{tmp\ 4317}#
+ (lambda (#{orig-x\ 4308}#)
+ (let ((#{tmp\ 4310}# #{orig-x\ 4308}#))
+ (let ((#{tmp\ 4311}#
($sc-dispatch
- #{tmp\ 4316}#
+ #{tmp\ 4310}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 4317}#
+ (if #{tmp\ 4311}#
(@apply
- (lambda (#{var\ 4324}#
- #{init\ 4325}#
- #{step\ 4326}#
- #{e0\ 4327}#
- #{e1\ 4328}#
- #{c\ 4329}#)
- (let ((#{tmp\ 4331}#
- (map (lambda (#{v\ 4352}# #{s\ 4353}#)
- (let ((#{tmp\ 4356}# #{s\ 4353}#))
- (let ((#{tmp\ 4357}#
- ($sc-dispatch #{tmp\ 4356}# '())))
- (if #{tmp\ 4357}#
+ (lambda (#{var\ 4318}#
+ #{init\ 4319}#
+ #{step\ 4320}#
+ #{e0\ 4321}#
+ #{e1\ 4322}#
+ #{c\ 4323}#)
+ (let ((#{tmp\ 4325}#
+ (map (lambda (#{v\ 4346}# #{s\ 4347}#)
+ (let ((#{tmp\ 4350}# #{s\ 4347}#))
+ (let ((#{tmp\ 4351}#
+ ($sc-dispatch #{tmp\ 4350}# '())))
+ (if #{tmp\ 4351}#
(@apply
- (lambda () #{v\ 4352}#)
- #{tmp\ 4357}#)
- (let ((#{tmp\ 4358}#
+ (lambda () #{v\ 4346}#)
+ #{tmp\ 4351}#)
+ (let ((#{tmp\ 4352}#
($sc-dispatch
- #{tmp\ 4356}#
+ #{tmp\ 4350}#
'(any))))
- (if #{tmp\ 4358}#
+ (if #{tmp\ 4352}#
(@apply
- (lambda (#{e\ 4360}#) #{e\ 4360}#)
- #{tmp\ 4358}#)
- (let ((#{_\ 4362}# #{tmp\ 4356}#))
+ (lambda (#{e\ 4354}#) #{e\ 4354}#)
+ #{tmp\ 4352}#)
+ (let ((#{_\ 4356}# #{tmp\ 4350}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4314}#
- #{s\ 4353}#))))))))
- #{var\ 4324}#
- #{step\ 4326}#)))
- (let ((#{tmp\ 4332}#
- ($sc-dispatch #{tmp\ 4331}# 'each-any)))
- (if #{tmp\ 4332}#
+ #{orig-x\ 4308}#
+ #{s\ 4347}#))))))))
+ #{var\ 4318}#
+ #{step\ 4320}#)))
+ (let ((#{tmp\ 4326}#
+ ($sc-dispatch #{tmp\ 4325}# 'each-any)))
+ (if #{tmp\ 4326}#
(@apply
- (lambda (#{step\ 4334}#)
- (let ((#{tmp\ 4335}# #{e1\ 4328}#))
- (let ((#{tmp\ 4336}#
- ($sc-dispatch #{tmp\ 4335}# '())))
- (if #{tmp\ 4336}#
+ (lambda (#{step\ 4328}#)
+ (let ((#{tmp\ 4329}# #{e1\ 4322}#))
+ (let ((#{tmp\ 4330}#
+ ($sc-dispatch #{tmp\ 4329}# '())))
+ (if #{tmp\ 4330}#
(@apply
(lambda ()
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
(map list
- #{var\ 4324}#
- #{init\ 4325}#)
+ #{var\ 4318}#
+ #{init\ 4319}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
(list '#(syntax-object
not
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
- #{e0\ 4327}#)
+ #{e0\ 4321}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
(append
- #{c\ 4329}#
+ #{c\ 4323}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene
guile))
- #{step\ 4334}#)))))))
- #{tmp\ 4336}#)
- (let ((#{tmp\ 4341}#
+ #{step\ 4328}#)))))))
+ #{tmp\ 4330}#)
+ (let ((#{tmp\ 4335}#
($sc-dispatch
- #{tmp\ 4335}#
+ #{tmp\ 4329}#
'(any . each-any))))
- (if #{tmp\ 4341}#
+ (if #{tmp\ 4335}#
(@apply
- (lambda (#{e1\ 4344}# #{e2\ 4345}#)
+ (lambda (#{e1\ 4338}# #{e2\ 4339}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4336" "i4337"))
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4336" "i4337"))
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
(map list
- #{var\ 4324}#
- #{init\ 4325}#)
+ #{var\ 4318}#
+ #{init\ 4319}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4342" "i4343"))
+ #("i4336" "i4337"))
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
- #{e0\ 4327}#
+ #{e0\ 4321}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4342"
- "i4343"))
+ #("i4336"
+ "i4337"))
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
- (cons #{e1\ 4344}#
- #{e2\ 4345}#))
+ (cons #{e1\ 4338}#
+ #{e2\ 4339}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4342"
- "i4343"))
+ #("i4336"
+ "i4337"))
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene guile))
(append
- #{c\ 4329}#
+ #{c\ 4323}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i4342"
- "i4343"))
+ #("i4336"
+ "i4337"))
#(ribcage
#(step)
#((top))
- #("i4333"))
+ #("i4327"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4318"
- "i4319"
- "i4320"
- "i4321"
- "i4322"
- "i4323"))
+ #("i4312"
+ "i4313"
+ "i4314"
+ "i4315"
+ "i4316"
+ "i4317"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4315")))
+ #("i4309")))
(hygiene
guile))
- #{step\ 4334}#)))))))
- #{tmp\ 4341}#)
+ #{step\ 4328}#)))))))
+ #{tmp\ 4335}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4335}#)))))))
- #{tmp\ 4332}#)
+ #{tmp\ 4329}#)))))))
+ #{tmp\ 4326}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4331}#)))))
- #{tmp\ 4317}#)
+ #{tmp\ 4325}#)))))
+ #{tmp\ 4311}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4316}#)))))))
+ #{tmp\ 4310}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi\ 4366}#
- (lambda (#{p\ 4379}# #{lev\ 4380}#)
- (let ((#{tmp\ 4383}# #{p\ 4379}#))
- (let ((#{tmp\ 4384}#
+ ((#{quasi\ 4360}#
+ (lambda (#{p\ 4373}# #{lev\ 4374}#)
+ (let ((#{tmp\ 4377}# #{p\ 4373}#))
+ (let ((#{tmp\ 4378}#
($sc-dispatch
- #{tmp\ 4383}#
+ #{tmp\ 4377}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
any))))
- (if #{tmp\ 4384}#
+ (if #{tmp\ 4378}#
(@apply
- (lambda (#{p\ 4386}#)
- (if (= #{lev\ 4380}# 0)
+ (lambda (#{p\ 4380}#)
+ (if (= #{lev\ 4374}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i4385"))
+ #(ribcage #(p) #((top)) #("i4379"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{p\ 4386}#)
- (#{quasicons\ 4370}#
+ #{p\ 4380}#)
+ (#{quasicons\ 4364}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4385"))
+ #(ribcage #(p) #((top)) #("i4379"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4385"))
+ #(ribcage #(p) #((top)) #("i4379"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
- (#{quasi\ 4366}#
- (list #{p\ 4386}#)
- (1- #{lev\ 4380}#)))))
- #{tmp\ 4384}#)
- (let ((#{tmp\ 4387}#
+ (#{quasi\ 4360}#
+ (list #{p\ 4380}#)
+ (1- #{lev\ 4374}#)))))
+ #{tmp\ 4378}#)
+ (let ((#{tmp\ 4381}#
($sc-dispatch
- #{tmp\ 4383}#
+ #{tmp\ 4377}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
any))))
- (if #{tmp\ 4387}#
+ (if #{tmp\ 4381}#
(@apply
- (lambda (#{p\ 4389}#)
- (#{quasicons\ 4370}#
+ (lambda (#{p\ 4383}#)
+ (#{quasicons\ 4364}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4388"))
+ #(ribcage #(p) #((top)) #("i4382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4388"))
+ #(ribcage #(p) #((top)) #("i4382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
- (#{quasi\ 4366}#
- (list #{p\ 4389}#)
- (1+ #{lev\ 4380}#))))
- #{tmp\ 4387}#)
- (let ((#{tmp\ 4390}#
- ($sc-dispatch #{tmp\ 4383}# '(any . any))))
- (if #{tmp\ 4390}#
+ (#{quasi\ 4360}#
+ (list #{p\ 4383}#)
+ (1+ #{lev\ 4374}#))))
+ #{tmp\ 4381}#)
+ (let ((#{tmp\ 4384}#
+ ($sc-dispatch #{tmp\ 4377}# '(any . any))))
+ (if #{tmp\ 4384}#
(@apply
- (lambda (#{p\ 4393}# #{q\ 4394}#)
- (let ((#{tmp\ 4395}# #{p\ 4393}#))
- (let ((#{tmp\ 4396}#
+ (lambda (#{p\ 4387}# #{q\ 4388}#)
+ (let ((#{tmp\ 4389}# #{p\ 4387}#))
+ (let ((#{tmp\ 4390}#
($sc-dispatch
- #{tmp\ 4395}#
+ #{tmp\ 4389}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i4391" "i4392"))
+ #("i4385" "i4386"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4396}#
+ (if #{tmp\ 4390}#
(@apply
- (lambda (#{p\ 4398}#)
- (if (= #{lev\ 4380}# 0)
- (#{quasilist*\ 4374}#
- (map (lambda (#{tmp\ 4399}#)
+ (lambda (#{p\ 4392}#)
+ (if (= #{lev\ 4374}# 0)
+ (#{quasilist*\ 4368}#
+ (map (lambda (#{tmp\ 4393}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4397"))
+ #("i4391"))
#(ribcage
#(p q)
#((top) (top))
- #("i4391"
- "i4392"))
+ #("i4385"
+ "i4386"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381"
- "i4382"))
+ #("i4375"
+ "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{tmp\ 4399}#))
- #{p\ 4398}#)
- (#{quasi\ 4366}#
- #{q\ 4394}#
- #{lev\ 4380}#))
- (#{quasicons\ 4370}#
- (#{quasicons\ 4370}#
+ #{tmp\ 4393}#))
+ #{p\ 4392}#)
+ (#{quasi\ 4360}#
+ #{q\ 4388}#
+ #{lev\ 4374}#))
+ (#{quasicons\ 4364}#
+ (#{quasicons\ 4364}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4397"))
+ #("i4391"))
#(ribcage
#(p q)
#((top) (top))
- #("i4391" "i4392"))
+ #("i4385" "i4386"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
#(syntax-object
unquote
#(ribcage
#(p)
#((top))
- #("i4397"))
+ #("i4391"))
#(ribcage
#(p q)
#((top) (top))
- #("i4391" "i4392"))
+ #("i4385" "i4386"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
- (#{quasi\ 4366}#
- #{p\ 4398}#
- (1- #{lev\ 4380}#)))
- (#{quasi\ 4366}#
- #{q\ 4394}#
- #{lev\ 4380}#))))
- #{tmp\ 4396}#)
- (let ((#{tmp\ 4401}#
+ (#{quasi\ 4360}#
+ #{p\ 4392}#
+ (1- #{lev\ 4374}#)))
+ (#{quasi\ 4360}#
+ #{q\ 4388}#
+ #{lev\ 4374}#))))
+ #{tmp\ 4390}#)
+ (let ((#{tmp\ 4395}#
($sc-dispatch
- #{tmp\ 4395}#
+ #{tmp\ 4389}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4391" "i4392"))
+ #("i4385" "i4386"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4401}#
+ (if #{tmp\ 4395}#
(@apply
- (lambda (#{p\ 4403}#)
- (if (= #{lev\ 4380}# 0)
- (#{quasiappend\ 4372}#
- (map (lambda (#{tmp\ 4404}#)
+ (lambda (#{p\ 4397}#)
+ (if (= #{lev\ 4374}# 0)
+ (#{quasiappend\ 4366}#
+ (map (lambda (#{tmp\ 4398}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4402"))
+ #("i4396"))
#(ribcage
#(p q)
#((top)
(top))
- #("i4391"
- "i4392"))
+ #("i4385"
+ "i4386"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4381"
- "i4382"))
+ #("i4375"
+ "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{tmp\ 4404}#))
- #{p\ 4403}#)
- (#{quasi\ 4366}#
- #{q\ 4394}#
- #{lev\ 4380}#))
- (#{quasicons\ 4370}#
- (#{quasicons\ 4370}#
+ #{tmp\ 4398}#))
+ #{p\ 4397}#)
+ (#{quasi\ 4360}#
+ #{q\ 4388}#
+ #{lev\ 4374}#))
+ (#{quasicons\ 4364}#
+ (#{quasicons\ 4364}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4402"))
+ #("i4396"))
#(ribcage
#(p q)
#((top) (top))
- #("i4391" "i4392"))
+ #("i4385" "i4386"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("i4402"))
+ #("i4396"))
#(ribcage
#(p q)
#((top) (top))
- #("i4391" "i4392"))
+ #("i4385" "i4386"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
- (#{quasi\ 4366}#
- #{p\ 4403}#
- (1- #{lev\ 4380}#)))
- (#{quasi\ 4366}#
- #{q\ 4394}#
- #{lev\ 4380}#))))
- #{tmp\ 4401}#)
- (let ((#{_\ 4407}# #{tmp\ 4395}#))
- (#{quasicons\ 4370}#
- (#{quasi\ 4366}#
- #{p\ 4393}#
- #{lev\ 4380}#)
- (#{quasi\ 4366}#
- #{q\ 4394}#
- #{lev\ 4380}#)))))))))
- #{tmp\ 4390}#)
- (let ((#{tmp\ 4408}#
+ (#{quasi\ 4360}#
+ #{p\ 4397}#
+ (1- #{lev\ 4374}#)))
+ (#{quasi\ 4360}#
+ #{q\ 4388}#
+ #{lev\ 4374}#))))
+ #{tmp\ 4395}#)
+ (let ((#{_\ 4401}# #{tmp\ 4389}#))
+ (#{quasicons\ 4364}#
+ (#{quasi\ 4360}#
+ #{p\ 4387}#
+ #{lev\ 4374}#)
+ (#{quasi\ 4360}#
+ #{q\ 4388}#
+ #{lev\ 4374}#)))))))))
+ #{tmp\ 4384}#)
+ (let ((#{tmp\ 4402}#
($sc-dispatch
- #{tmp\ 4383}#
+ #{tmp\ 4377}#
'#(vector each-any))))
- (if #{tmp\ 4408}#
+ (if #{tmp\ 4402}#
(@apply
- (lambda (#{x\ 4410}#)
- (#{quasivector\ 4376}#
- (#{vquasi\ 4368}#
- #{x\ 4410}#
- #{lev\ 4380}#)))
- #{tmp\ 4408}#)
- (let ((#{p\ 4413}# #{tmp\ 4383}#))
+ (lambda (#{x\ 4404}#)
+ (#{quasivector\ 4370}#
+ (#{vquasi\ 4362}#
+ #{x\ 4404}#
+ #{lev\ 4374}#)))
+ #{tmp\ 4402}#)
+ (let ((#{p\ 4407}# #{tmp\ 4377}#))
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4412"))
+ #(ribcage #(p) #((top)) #("i4406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4381" "i4382"))
+ #("i4375" "i4376"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{p\ 4413}#)))))))))))))
- (#{vquasi\ 4368}#
- (lambda (#{p\ 4414}# #{lev\ 4415}#)
- (let ((#{tmp\ 4418}# #{p\ 4414}#))
- (let ((#{tmp\ 4419}#
- ($sc-dispatch #{tmp\ 4418}# '(any . any))))
- (if #{tmp\ 4419}#
+ #{p\ 4407}#)))))))))))))
+ (#{vquasi\ 4362}#
+ (lambda (#{p\ 4408}# #{lev\ 4409}#)
+ (let ((#{tmp\ 4412}# #{p\ 4408}#))
+ (let ((#{tmp\ 4413}#
+ ($sc-dispatch #{tmp\ 4412}# '(any . any))))
+ (if #{tmp\ 4413}#
(@apply
- (lambda (#{p\ 4422}# #{q\ 4423}#)
- (let ((#{tmp\ 4424}# #{p\ 4422}#))
- (let ((#{tmp\ 4425}#
+ (lambda (#{p\ 4416}# #{q\ 4417}#)
+ (let ((#{tmp\ 4418}# #{p\ 4416}#))
+ (let ((#{tmp\ 4419}#
($sc-dispatch
- #{tmp\ 4424}#
+ #{tmp\ 4418}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4425}#
+ (if #{tmp\ 4419}#
(@apply
- (lambda (#{p\ 4427}#)
- (if (= #{lev\ 4415}# 0)
- (#{quasilist*\ 4374}#
- (map (lambda (#{tmp\ 4428}#)
+ (lambda (#{p\ 4421}#)
+ (if (= #{lev\ 4409}# 0)
+ (#{quasilist*\ 4368}#
+ (map (lambda (#{tmp\ 4422}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4426"))
+ #("i4420"))
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{tmp\ 4428}#))
- #{p\ 4427}#)
- (#{vquasi\ 4368}#
- #{q\ 4423}#
- #{lev\ 4415}#))
- (#{quasicons\ 4370}#
- (#{quasicons\ 4370}#
+ #{tmp\ 4422}#))
+ #{p\ 4421}#)
+ (#{vquasi\ 4362}#
+ #{q\ 4417}#
+ #{lev\ 4409}#))
+ (#{quasicons\ 4364}#
+ (#{quasicons\ 4364}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i4420"))
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4426"))
+ #(ribcage #(p) #((top)) #("i4420"))
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
- (#{quasi\ 4366}#
- #{p\ 4427}#
- (1- #{lev\ 4415}#)))
- (#{vquasi\ 4368}#
- #{q\ 4423}#
- #{lev\ 4415}#))))
- #{tmp\ 4425}#)
- (let ((#{tmp\ 4430}#
+ (#{quasi\ 4360}#
+ #{p\ 4421}#
+ (1- #{lev\ 4409}#)))
+ (#{vquasi\ 4362}#
+ #{q\ 4417}#
+ #{lev\ 4409}#))))
+ #{tmp\ 4419}#)
+ (let ((#{tmp\ 4424}#
($sc-dispatch
- #{tmp\ 4424}#
+ #{tmp\ 4418}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4430}#
+ (if #{tmp\ 4424}#
(@apply
- (lambda (#{p\ 4432}#)
- (if (= #{lev\ 4415}# 0)
- (#{quasiappend\ 4372}#
- (map (lambda (#{tmp\ 4433}#)
+ (lambda (#{p\ 4426}#)
+ (if (= #{lev\ 4409}# 0)
+ (#{quasiappend\ 4366}#
+ (map (lambda (#{tmp\ 4427}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4431"))
+ #("i4425"))
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{tmp\ 4433}#))
- #{p\ 4432}#)
- (#{vquasi\ 4368}#
- #{q\ 4423}#
- #{lev\ 4415}#))
- (#{quasicons\ 4370}#
- (#{quasicons\ 4370}#
+ #{tmp\ 4427}#))
+ #{p\ 4426}#)
+ (#{vquasi\ 4362}#
+ #{q\ 4417}#
+ #{lev\ 4409}#))
+ (#{quasicons\ 4364}#
+ (#{quasicons\ 4364}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4431"))
+ #("i4425"))
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("i4431"))
+ #("i4425"))
#(ribcage
#(p q)
#((top) (top))
- #("i4420" "i4421"))
+ #("i4414" "i4415"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile)))
- (#{quasi\ 4366}#
- #{p\ 4432}#
- (1- #{lev\ 4415}#)))
- (#{vquasi\ 4368}#
- #{q\ 4423}#
- #{lev\ 4415}#))))
- #{tmp\ 4430}#)
- (let ((#{_\ 4436}# #{tmp\ 4424}#))
- (#{quasicons\ 4370}#
- (#{quasi\ 4366}# #{p\ 4422}# #{lev\ 4415}#)
- (#{vquasi\ 4368}#
- #{q\ 4423}#
- #{lev\ 4415}#)))))))))
- #{tmp\ 4419}#)
- (let ((#{tmp\ 4437}# ($sc-dispatch #{tmp\ 4418}# '())))
- (if #{tmp\ 4437}#
+ (#{quasi\ 4360}#
+ #{p\ 4426}#
+ (1- #{lev\ 4409}#)))
+ (#{vquasi\ 4362}#
+ #{q\ 4417}#
+ #{lev\ 4409}#))))
+ #{tmp\ 4424}#)
+ (let ((#{_\ 4430}# #{tmp\ 4418}#))
+ (#{quasicons\ 4364}#
+ (#{quasi\ 4360}# #{p\ 4416}# #{lev\ 4409}#)
+ (#{vquasi\ 4362}#
+ #{q\ 4417}#
+ #{lev\ 4409}#)))))))))
+ #{tmp\ 4413}#)
+ (let ((#{tmp\ 4431}# ($sc-dispatch #{tmp\ 4412}# '())))
+ (if #{tmp\ 4431}#
(@apply
(lambda ()
'(#(syntax-object
#(ribcage
#(p lev)
#((top) (top))
- #("i4416" "i4417"))
+ #("i4410" "i4411"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
()))
- #{tmp\ 4437}#)
+ #{tmp\ 4431}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4418}#))))))))
- (#{quasicons\ 4370}#
- (lambda (#{x\ 4438}# #{y\ 4439}#)
- (let ((#{tmp\ 4443}# (list #{x\ 4438}# #{y\ 4439}#)))
- (let ((#{tmp\ 4444}#
- ($sc-dispatch #{tmp\ 4443}# '(any any))))
- (if #{tmp\ 4444}#
+ #{tmp\ 4412}#))))))))
+ (#{quasicons\ 4364}#
+ (lambda (#{x\ 4432}# #{y\ 4433}#)
+ (let ((#{tmp\ 4437}# (list #{x\ 4432}# #{y\ 4433}#)))
+ (let ((#{tmp\ 4438}#
+ ($sc-dispatch #{tmp\ 4437}# '(any any))))
+ (if #{tmp\ 4438}#
(@apply
- (lambda (#{x\ 4447}# #{y\ 4448}#)
- (let ((#{tmp\ 4449}# #{y\ 4448}#))
- (let ((#{tmp\ 4450}#
+ (lambda (#{x\ 4441}# #{y\ 4442}#)
+ (let ((#{tmp\ 4443}# #{y\ 4442}#))
+ (let ((#{tmp\ 4444}#
($sc-dispatch
- #{tmp\ 4449}#
+ #{tmp\ 4443}#
'(#(atom "quote") any))))
- (if #{tmp\ 4450}#
+ (if #{tmp\ 4444}#
(@apply
- (lambda (#{dy\ 4452}#)
- (let ((#{tmp\ 4453}# #{x\ 4447}#))
- (let ((#{tmp\ 4454}#
+ (lambda (#{dy\ 4446}#)
+ (let ((#{tmp\ 4447}# #{x\ 4441}#))
+ (let ((#{tmp\ 4448}#
($sc-dispatch
- #{tmp\ 4453}#
+ #{tmp\ 4447}#
'(#(atom "quote") any))))
- (if #{tmp\ 4454}#
+ (if #{tmp\ 4448}#
(@apply
- (lambda (#{dx\ 4456}#)
+ (lambda (#{dx\ 4450}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i4455"))
+ #("i4449"))
#(ribcage
#(dy)
#((top))
- #("i4451"))
+ #("i4445"))
#(ribcage
#(x y)
#((top) (top))
- #("i4445" "i4446"))
+ #("i4439" "i4440"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4440" "i4441"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- (cons #{dx\ 4456}#
- #{dy\ 4452}#)))
- #{tmp\ 4454}#)
- (let ((#{_\ 4458}# #{tmp\ 4453}#))
- (if (null? #{dy\ 4452}#)
+ (cons #{dx\ 4450}#
+ #{dy\ 4446}#)))
+ #{tmp\ 4448}#)
+ (let ((#{_\ 4452}# #{tmp\ 4447}#))
+ (if (null? #{dy\ 4446}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i4457"))
+ #("i4451"))
#(ribcage
#(dy)
#((top))
- #("i4451"))
+ #("i4445"))
#(ribcage
#(x y)
#((top) (top))
- #("i4445" "i4446"))
+ #("i4439" "i4440"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4440" "i4441"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{x\ 4447}#)
+ #{x\ 4441}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4457"))
+ #("i4451"))
#(ribcage
#(dy)
#((top))
- #("i4451"))
+ #("i4445"))
#(ribcage
#(x y)
#((top) (top))
- #("i4445" "i4446"))
+ #("i4439" "i4440"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4440" "i4441"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{x\ 4447}#
- #{y\ 4448}#)))))))
- #{tmp\ 4450}#)
- (let ((#{tmp\ 4459}#
+ #{x\ 4441}#
+ #{y\ 4442}#)))))))
+ #{tmp\ 4444}#)
+ (let ((#{tmp\ 4453}#
($sc-dispatch
- #{tmp\ 4449}#
+ #{tmp\ 4443}#
'(#(atom "list") . any))))
- (if #{tmp\ 4459}#
+ (if #{tmp\ 4453}#
(@apply
- (lambda (#{stuff\ 4461}#)
+ (lambda (#{stuff\ 4455}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4460"))
+ #("i4454"))
#(ribcage
#(x y)
#((top) (top))
- #("i4445" "i4446"))
+ #("i4439" "i4440"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4440" "i4441"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- (cons #{x\ 4447}# #{stuff\ 4461}#)))
- #{tmp\ 4459}#)
- (let ((#{tmp\ 4462}#
+ (cons #{x\ 4441}# #{stuff\ 4455}#)))
+ #{tmp\ 4453}#)
+ (let ((#{tmp\ 4456}#
($sc-dispatch
- #{tmp\ 4449}#
+ #{tmp\ 4443}#
'(#(atom "list*") . any))))
- (if #{tmp\ 4462}#
+ (if #{tmp\ 4456}#
(@apply
- (lambda (#{stuff\ 4464}#)
+ (lambda (#{stuff\ 4458}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4463"))
+ #("i4457"))
#(ribcage
#(x y)
#((top) (top))
- #("i4445" "i4446"))
+ #("i4439" "i4440"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4440" "i4441"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- (cons #{x\ 4447}#
- #{stuff\ 4464}#)))
- #{tmp\ 4462}#)
- (let ((#{_\ 4466}# #{tmp\ 4449}#))
+ (cons #{x\ 4441}#
+ #{stuff\ 4458}#)))
+ #{tmp\ 4456}#)
+ (let ((#{_\ 4460}# #{tmp\ 4443}#))
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4465"))
+ #("i4459"))
#(ribcage
#(x y)
#((top) (top))
- #("i4445" "i4446"))
+ #("i4439" "i4440"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4440" "i4441"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{x\ 4447}#
- #{y\ 4448}#))))))))))
- #{tmp\ 4444}#)
+ #{x\ 4441}#
+ #{y\ 4442}#))))))))))
+ #{tmp\ 4438}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4443}#))))))
- (#{quasiappend\ 4372}#
- (lambda (#{x\ 4467}# #{y\ 4468}#)
- (let ((#{tmp\ 4471}# #{y\ 4468}#))
- (let ((#{tmp\ 4472}#
+ #{tmp\ 4437}#))))))
+ (#{quasiappend\ 4366}#
+ (lambda (#{x\ 4461}# #{y\ 4462}#)
+ (let ((#{tmp\ 4465}# #{y\ 4462}#))
+ (let ((#{tmp\ 4466}#
($sc-dispatch
- #{tmp\ 4471}#
+ #{tmp\ 4465}#
'(#(atom "quote") ()))))
- (if #{tmp\ 4472}#
+ (if #{tmp\ 4466}#
(@apply
(lambda ()
- (if (null? #{x\ 4467}#)
+ (if (null? #{x\ 4461}#)
'(#(syntax-object
"quote"
((top)
#(ribcage
#(x y)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4463" "i4464"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
())
- (if (null? (cdr #{x\ 4467}#))
- (car #{x\ 4467}#)
- (let ((#{tmp\ 4479}# #{x\ 4467}#))
- (let ((#{tmp\ 4480}#
- ($sc-dispatch #{tmp\ 4479}# 'each-any)))
- (if #{tmp\ 4480}#
+ (if (null? (cdr #{x\ 4461}#))
+ (car #{x\ 4461}#)
+ (let ((#{tmp\ 4473}# #{x\ 4461}#))
+ (let ((#{tmp\ 4474}#
+ ($sc-dispatch #{tmp\ 4473}# 'each-any)))
+ (if #{tmp\ 4474}#
(@apply
- (lambda (#{p\ 4482}#)
+ (lambda (#{p\ 4476}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p)
#((top))
- #("i4481"))
+ #("i4475"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4463" "i4464"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{p\ 4482}#))
- #{tmp\ 4480}#)
+ #{p\ 4476}#))
+ #{tmp\ 4474}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4479}#)))))))
- #{tmp\ 4472}#)
- (let ((#{_\ 4485}# #{tmp\ 4471}#))
- (if (null? #{x\ 4467}#)
- #{y\ 4468}#
- (let ((#{tmp\ 4490}# (list #{x\ 4467}# #{y\ 4468}#)))
- (let ((#{tmp\ 4491}#
- ($sc-dispatch #{tmp\ 4490}# '(each-any any))))
- (if #{tmp\ 4491}#
+ #{tmp\ 4473}#)))))))
+ #{tmp\ 4466}#)
+ (let ((#{_\ 4479}# #{tmp\ 4465}#))
+ (if (null? #{x\ 4461}#)
+ #{y\ 4462}#
+ (let ((#{tmp\ 4484}# (list #{x\ 4461}# #{y\ 4462}#)))
+ (let ((#{tmp\ 4485}#
+ ($sc-dispatch #{tmp\ 4484}# '(each-any any))))
+ (if #{tmp\ 4485}#
(@apply
- (lambda (#{p\ 4494}# #{y\ 4495}#)
+ (lambda (#{p\ 4488}# #{y\ 4489}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p y)
#((top) (top))
- #("i4492" "i4493"))
- #(ribcage #(_) #((top)) #("i4484"))
+ #("i4486" "i4487"))
+ #(ribcage #(_) #((top)) #("i4478"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4469" "i4470"))
+ #("i4463" "i4464"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- (append #{p\ 4494}# (list #{y\ 4495}#))))
- #{tmp\ 4491}#)
+ (append #{p\ 4488}# (list #{y\ 4489}#))))
+ #{tmp\ 4485}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4490}#)))))))))))
- (#{quasilist*\ 4374}#
- (lambda (#{x\ 4497}# #{y\ 4498}#)
+ #{tmp\ 4484}#)))))))))))
+ (#{quasilist*\ 4368}#
+ (lambda (#{x\ 4491}# #{y\ 4492}#)
(letrec*
- ((#{f\ 4503}#
- (lambda (#{x\ 4504}#)
- (if (null? #{x\ 4504}#)
- #{y\ 4498}#
- (#{quasicons\ 4370}#
- (car #{x\ 4504}#)
- (#{f\ 4503}# (cdr #{x\ 4504}#)))))))
- (begin (#{f\ 4503}# #{x\ 4497}#)))))
- (#{quasivector\ 4376}#
- (lambda (#{x\ 4505}#)
- (let ((#{tmp\ 4507}# #{x\ 4505}#))
- (let ((#{tmp\ 4508}#
+ ((#{f\ 4497}#
+ (lambda (#{x\ 4498}#)
+ (if (null? #{x\ 4498}#)
+ #{y\ 4492}#
+ (#{quasicons\ 4364}#
+ (car #{x\ 4498}#)
+ (#{f\ 4497}# (cdr #{x\ 4498}#)))))))
+ (begin (#{f\ 4497}# #{x\ 4491}#)))))
+ (#{quasivector\ 4370}#
+ (lambda (#{x\ 4499}#)
+ (let ((#{tmp\ 4501}# #{x\ 4499}#))
+ (let ((#{tmp\ 4502}#
($sc-dispatch
- #{tmp\ 4507}#
+ #{tmp\ 4501}#
'(#(atom "quote") each-any))))
- (if #{tmp\ 4508}#
+ (if #{tmp\ 4502}#
(@apply
- (lambda (#{x\ 4510}#)
+ (lambda (#{x\ 4504}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(x) #((top)) #("i4509"))
+ #(ribcage #(x) #((top)) #("i4503"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4506"))
+ #(ribcage #(x) #((top)) #("i4500"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- (list->vector #{x\ 4510}#)))
- #{tmp\ 4508}#)
- (let ((#{_\ 4513}# #{tmp\ 4507}#))
+ (list->vector #{x\ 4504}#)))
+ #{tmp\ 4502}#)
+ (let ((#{_\ 4507}# #{tmp\ 4501}#))
(letrec*
- ((#{f\ 4517}#
- (lambda (#{y\ 4518}# #{k\ 4519}#)
- (let ((#{tmp\ 4530}# #{y\ 4518}#))
- (let ((#{tmp\ 4531}#
+ ((#{f\ 4511}#
+ (lambda (#{y\ 4512}# #{k\ 4513}#)
+ (let ((#{tmp\ 4524}# #{y\ 4512}#))
+ (let ((#{tmp\ 4525}#
($sc-dispatch
- #{tmp\ 4530}#
+ #{tmp\ 4524}#
'(#(atom "quote") each-any))))
- (if #{tmp\ 4531}#
+ (if #{tmp\ 4525}#
(@apply
- (lambda (#{y\ 4533}#)
- (#{k\ 4519}#
- (map (lambda (#{tmp\ 4534}#)
+ (lambda (#{y\ 4527}#)
+ (#{k\ 4513}#
+ (map (lambda (#{tmp\ 4528}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i4532"))
+ #("i4526"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4514"
- "i4515"
- "i4516"))
+ #("i4508"
+ "i4509"
+ "i4510"))
#(ribcage
#(_)
#((top))
- #("i4512"))
+ #("i4506"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4506"))
+ #("i4500"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{tmp\ 4534}#))
- #{y\ 4533}#)))
- #{tmp\ 4531}#)
- (let ((#{tmp\ 4535}#
+ #{tmp\ 4528}#))
+ #{y\ 4527}#)))
+ #{tmp\ 4525}#)
+ (let ((#{tmp\ 4529}#
($sc-dispatch
- #{tmp\ 4530}#
+ #{tmp\ 4524}#
'(#(atom "list") . each-any))))
- (if #{tmp\ 4535}#
+ (if #{tmp\ 4529}#
(@apply
- (lambda (#{y\ 4537}#)
- (#{k\ 4519}# #{y\ 4537}#))
- #{tmp\ 4535}#)
- (let ((#{tmp\ 4539}#
+ (lambda (#{y\ 4531}#)
+ (#{k\ 4513}# #{y\ 4531}#))
+ #{tmp\ 4529}#)
+ (let ((#{tmp\ 4533}#
($sc-dispatch
- #{tmp\ 4530}#
+ #{tmp\ 4524}#
'(#(atom "list*")
.
#(each+ any (any) ())))))
- (if #{tmp\ 4539}#
+ (if #{tmp\ 4533}#
(@apply
- (lambda (#{y\ 4542}# #{z\ 4543}#)
- (#{f\ 4517}#
- #{z\ 4543}#
- (lambda (#{ls\ 4544}#)
- (#{k\ 4519}#
+ (lambda (#{y\ 4536}# #{z\ 4537}#)
+ (#{f\ 4511}#
+ #{z\ 4537}#
+ (lambda (#{ls\ 4538}#)
+ (#{k\ 4513}#
(append
- #{y\ 4542}#
- #{ls\ 4544}#)))))
- #{tmp\ 4539}#)
- (let ((#{else\ 4548}# #{tmp\ 4530}#))
- (let ((#{tmp\ 4552}# #{x\ 4505}#))
- (let ((#{\ g4549\ 4554}#
- #{tmp\ 4552}#))
+ #{y\ 4536}#
+ #{ls\ 4538}#)))))
+ #{tmp\ 4533}#)
+ (let ((#{else\ 4542}# #{tmp\ 4524}#))
+ (let ((#{tmp\ 4546}# #{x\ 4499}#))
+ (let ((#{\ g4543\ 4548}#
+ #{tmp\ 4546}#))
(list '#(syntax-object
"list->vector"
((top)
#(ribcage
- #(#{\ g4549}#)
- #((m4550 top))
- #("i4553"))
+ #(#{\ g4543}#)
+ #((m4544 top))
+ #("i4547"))
#(ribcage
#(else)
#((top))
- #("i4547"))
+ #("i4541"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4514"
- "i4515"
- "i4516"))
+ #("i4508"
+ "i4509"
+ "i4510"))
#(ribcage
#(_)
#((top))
- #("i4512"))
+ #("i4506"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4506"))
+ #("i4500"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{\ g4549\ 4554}#))))))))))))))
+ #{\ g4543\ 4548}#))))))))))))))
(begin
- (#{f\ 4517}#
- #{x\ 4505}#
- (lambda (#{ls\ 4520}#)
- (let ((#{tmp\ 4525}# #{ls\ 4520}#))
- (let ((#{tmp\ 4526}#
- ($sc-dispatch #{tmp\ 4525}# 'each-any)))
- (if #{tmp\ 4526}#
+ (#{f\ 4511}#
+ #{x\ 4499}#
+ (lambda (#{ls\ 4514}#)
+ (let ((#{tmp\ 4519}# #{ls\ 4514}#))
+ (let ((#{tmp\ 4520}#
+ ($sc-dispatch #{tmp\ 4519}# 'each-any)))
+ (if #{tmp\ 4520}#
(@apply
- (lambda (#{\ g4522\ 4528}#)
+ (lambda (#{\ g4516\ 4522}#)
(cons '#(syntax-object
"vector"
((top)
#(ribcage
- #(#{\ g4522}#)
- #((m4523 top))
- #("i4527"))
+ #(#{\ g4516}#)
+ #((m4517 top))
+ #("i4521"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ls)
#((top))
- #("i4521"))
+ #("i4515"))
#(ribcage
#(_)
#((top))
- #("i4512"))
+ #("i4506"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4506"))
+ #("i4500"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{\ g4522\ 4528}#))
- #{tmp\ 4526}#)
+ #{\ g4516\ 4522}#))
+ #{tmp\ 4520}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4525}#))))))))))))))
- (#{emit\ 4378}#
- (lambda (#{x\ 4555}#)
- (let ((#{tmp\ 4557}# #{x\ 4555}#))
- (let ((#{tmp\ 4558}#
+ #{tmp\ 4519}#))))))))))))))
+ (#{emit\ 4372}#
+ (lambda (#{x\ 4549}#)
+ (let ((#{tmp\ 4551}# #{x\ 4549}#))
+ (let ((#{tmp\ 4552}#
($sc-dispatch
- #{tmp\ 4557}#
+ #{tmp\ 4551}#
'(#(atom "quote") any))))
- (if #{tmp\ 4558}#
+ (if #{tmp\ 4552}#
(@apply
- (lambda (#{x\ 4560}#)
+ (lambda (#{x\ 4554}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4559"))
+ #(ribcage #(x) #((top)) #("i4553"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4556"))
+ #(ribcage #(x) #((top)) #("i4550"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{x\ 4560}#))
- #{tmp\ 4558}#)
- (let ((#{tmp\ 4561}#
+ #{x\ 4554}#))
+ #{tmp\ 4552}#)
+ (let ((#{tmp\ 4555}#
($sc-dispatch
- #{tmp\ 4557}#
+ #{tmp\ 4551}#
'(#(atom "list") . each-any))))
- (if #{tmp\ 4561}#
+ (if #{tmp\ 4555}#
(@apply
- (lambda (#{x\ 4563}#)
- (let ((#{tmp\ 4567}#
- (map #{emit\ 4378}# #{x\ 4563}#)))
- (let ((#{tmp\ 4568}#
- ($sc-dispatch #{tmp\ 4567}# 'each-any)))
- (if #{tmp\ 4568}#
+ (lambda (#{x\ 4557}#)
+ (let ((#{tmp\ 4561}#
+ (map #{emit\ 4372}# #{x\ 4557}#)))
+ (let ((#{tmp\ 4562}#
+ ($sc-dispatch #{tmp\ 4561}# 'each-any)))
+ (if #{tmp\ 4562}#
(@apply
- (lambda (#{\ g4564\ 4570}#)
+ (lambda (#{\ g4558\ 4564}#)
(cons '#(syntax-object
list
((top)
#(ribcage
- #(#{\ g4564}#)
- #((m4565 top))
- #("i4569"))
+ #(#{\ g4558}#)
+ #((m4559 top))
+ #("i4563"))
#(ribcage
#(x)
#((top))
- #("i4562"))
+ #("i4556"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4556"))
+ #("i4550"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{\ g4564\ 4570}#))
- #{tmp\ 4568}#)
+ #{\ g4558\ 4564}#))
+ #{tmp\ 4562}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4567}#)))))
- #{tmp\ 4561}#)
- (let ((#{tmp\ 4573}#
+ #{tmp\ 4561}#)))))
+ #{tmp\ 4555}#)
+ (let ((#{tmp\ 4567}#
($sc-dispatch
- #{tmp\ 4557}#
+ #{tmp\ 4551}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp\ 4573}#
+ (if #{tmp\ 4567}#
(@apply
- (lambda (#{x\ 4576}# #{y\ 4577}#)
+ (lambda (#{x\ 4570}# #{y\ 4571}#)
(letrec*
- ((#{f\ 4580}#
- (lambda (#{x*\ 4581}#)
- (if (null? #{x*\ 4581}#)
- (#{emit\ 4378}# #{y\ 4577}#)
- (let ((#{tmp\ 4587}#
- (list (#{emit\ 4378}#
- (car #{x*\ 4581}#))
- (#{f\ 4580}#
- (cdr #{x*\ 4581}#)))))
- (let ((#{tmp\ 4588}#
+ ((#{f\ 4574}#
+ (lambda (#{x*\ 4575}#)
+ (if (null? #{x*\ 4575}#)
+ (#{emit\ 4372}# #{y\ 4571}#)
+ (let ((#{tmp\ 4581}#
+ (list (#{emit\ 4372}#
+ (car #{x*\ 4575}#))
+ (#{f\ 4574}#
+ (cdr #{x*\ 4575}#)))))
+ (let ((#{tmp\ 4582}#
($sc-dispatch
- #{tmp\ 4587}#
+ #{tmp\ 4581}#
'(any any))))
- (if #{tmp\ 4588}#
+ (if #{tmp\ 4582}#
(@apply
- (lambda (#{\ g4584\ 4591}#
- #{\ g4583\ 4592}#)
+ (lambda (#{\ g4578\ 4585}#
+ #{\ g4577\ 4586}#)
(list '#(syntax-object
cons
((top)
#(ribcage
- #(#{\ g4584}#
- #{\ g4583}#)
- #((m4585 top)
- (m4585 top))
- #("i4589" "i4590"))
+ #(#{\ g4578}#
+ #{\ g4577}#)
+ #((m4579 top)
+ (m4579 top))
+ #("i4583" "i4584"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i4578" "i4579"))
+ #("i4572" "i4573"))
#(ribcage
#(x y)
#((top) (top))
- #("i4574" "i4575"))
+ #("i4568" "i4569"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4556"))
+ #("i4550"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{\ g4584\ 4591}#
- #{\ g4583\ 4592}#))
- #{tmp\ 4588}#)
+ #{\ g4578\ 4585}#
+ #{\ g4577\ 4586}#))
+ #{tmp\ 4582}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4587}#))))))))
- (begin (#{f\ 4580}# #{x\ 4576}#))))
- #{tmp\ 4573}#)
- (let ((#{tmp\ 4593}#
+ #{tmp\ 4581}#))))))))
+ (begin (#{f\ 4574}# #{x\ 4570}#))))
+ #{tmp\ 4567}#)
+ (let ((#{tmp\ 4587}#
($sc-dispatch
- #{tmp\ 4557}#
+ #{tmp\ 4551}#
'(#(atom "append") . each-any))))
- (if #{tmp\ 4593}#
+ (if #{tmp\ 4587}#
(@apply
- (lambda (#{x\ 4595}#)
- (let ((#{tmp\ 4599}#
- (map #{emit\ 4378}# #{x\ 4595}#)))
- (let ((#{tmp\ 4600}#
+ (lambda (#{x\ 4589}#)
+ (let ((#{tmp\ 4593}#
+ (map #{emit\ 4372}# #{x\ 4589}#)))
+ (let ((#{tmp\ 4594}#
($sc-dispatch
- #{tmp\ 4599}#
+ #{tmp\ 4593}#
'each-any)))
- (if #{tmp\ 4600}#
+ (if #{tmp\ 4594}#
(@apply
- (lambda (#{\ g4596\ 4602}#)
+ (lambda (#{\ g4590\ 4596}#)
(cons '#(syntax-object
append
((top)
#(ribcage
- #(#{\ g4596}#)
- #((m4597 top))
- #("i4601"))
+ #(#{\ g4590}#)
+ #((m4591 top))
+ #("i4595"))
#(ribcage
#(x)
#((top))
- #("i4594"))
+ #("i4588"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4556"))
+ #("i4550"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{\ g4596\ 4602}#))
- #{tmp\ 4600}#)
+ #{\ g4590\ 4596}#))
+ #{tmp\ 4594}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4599}#)))))
- #{tmp\ 4593}#)
- (let ((#{tmp\ 4605}#
+ #{tmp\ 4593}#)))))
+ #{tmp\ 4587}#)
+ (let ((#{tmp\ 4599}#
($sc-dispatch
- #{tmp\ 4557}#
+ #{tmp\ 4551}#
'(#(atom "vector") . each-any))))
- (if #{tmp\ 4605}#
+ (if #{tmp\ 4599}#
(@apply
- (lambda (#{x\ 4607}#)
- (let ((#{tmp\ 4611}#
- (map #{emit\ 4378}# #{x\ 4607}#)))
- (let ((#{tmp\ 4612}#
+ (lambda (#{x\ 4601}#)
+ (let ((#{tmp\ 4605}#
+ (map #{emit\ 4372}# #{x\ 4601}#)))
+ (let ((#{tmp\ 4606}#
($sc-dispatch
- #{tmp\ 4611}#
+ #{tmp\ 4605}#
'each-any)))
- (if #{tmp\ 4612}#
+ (if #{tmp\ 4606}#
(@apply
- (lambda (#{\ g4608\ 4614}#)
+ (lambda (#{\ g4602\ 4608}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
- #(#{\ g4608}#)
- #((m4609 top))
- #("i4613"))
+ #(#{\ g4602}#)
+ #((m4603 top))
+ #("i4607"))
#(ribcage
#(x)
#((top))
- #("i4606"))
+ #("i4600"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4556"))
+ #("i4550"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{\ g4608\ 4614}#))
- #{tmp\ 4612}#)
+ #{\ g4602\ 4608}#))
+ #{tmp\ 4606}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4611}#)))))
- #{tmp\ 4605}#)
- (let ((#{tmp\ 4617}#
+ #{tmp\ 4605}#)))))
+ #{tmp\ 4599}#)
+ (let ((#{tmp\ 4611}#
($sc-dispatch
- #{tmp\ 4557}#
+ #{tmp\ 4551}#
'(#(atom "list->vector") any))))
- (if #{tmp\ 4617}#
+ (if #{tmp\ 4611}#
(@apply
- (lambda (#{x\ 4619}#)
- (let ((#{tmp\ 4623}#
- (#{emit\ 4378}# #{x\ 4619}#)))
- (let ((#{\ g4620\ 4625}#
- #{tmp\ 4623}#))
+ (lambda (#{x\ 4613}#)
+ (let ((#{tmp\ 4617}#
+ (#{emit\ 4372}# #{x\ 4613}#)))
+ (let ((#{\ g4614\ 4619}#
+ #{tmp\ 4617}#))
(list '#(syntax-object
list->vector
((top)
#(ribcage
- #(#{\ g4620}#)
- #((m4621 top))
- #("i4624"))
+ #(#{\ g4614}#)
+ #((m4615 top))
+ #("i4618"))
#(ribcage
#(x)
#((top))
- #("i4618"))
+ #("i4612"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4556"))
+ #("i4550"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4377"
- "i4375"
- "i4373"
- "i4371"
+ ("i4371"
"i4369"
"i4367"
- "i4365")))
+ "i4365"
+ "i4363"
+ "i4361"
+ "i4359")))
(hygiene guile))
- #{\ g4620\ 4625}#))))
- #{tmp\ 4617}#)
- (let ((#{tmp\ 4626}#
+ #{\ g4614\ 4619}#))))
+ #{tmp\ 4611}#)
+ (let ((#{tmp\ 4620}#
($sc-dispatch
- #{tmp\ 4557}#
+ #{tmp\ 4551}#
'(#(atom "value") any))))
- (if #{tmp\ 4626}#
+ (if #{tmp\ 4620}#
(@apply
- (lambda (#{x\ 4628}#) #{x\ 4628}#)
- #{tmp\ 4626}#)
+ (lambda (#{x\ 4622}#) #{x\ 4622}#)
+ #{tmp\ 4620}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4557}#)))))))))))))))))))
+ #{tmp\ 4551}#)))))))))))))))))))
(begin
- (lambda (#{x\ 4629}#)
- (let ((#{tmp\ 4631}# #{x\ 4629}#))
- (let ((#{tmp\ 4632}#
- ($sc-dispatch #{tmp\ 4631}# '(_ any))))
- (if #{tmp\ 4632}#
+ (lambda (#{x\ 4623}#)
+ (let ((#{tmp\ 4625}# #{x\ 4623}#))
+ (let ((#{tmp\ 4626}#
+ ($sc-dispatch #{tmp\ 4625}# '(_ any))))
+ (if #{tmp\ 4626}#
(@apply
- (lambda (#{e\ 4634}#)
- (#{emit\ 4378}# (#{quasi\ 4366}# #{e\ 4634}# 0)))
- #{tmp\ 4632}#)
+ (lambda (#{e\ 4628}#)
+ (#{emit\ 4372}# (#{quasi\ 4360}# #{e\ 4628}# 0)))
+ #{tmp\ 4626}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4631}#)))))))))
+ #{tmp\ 4625}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4635}#)
+ (lambda (#{x\ 4629}#)
(letrec*
- ((#{read-file\ 4638}#
- (lambda (#{fn\ 4639}# #{k\ 4640}#)
+ ((#{read-file\ 4632}#
+ (lambda (#{fn\ 4633}# #{k\ 4634}#)
(begin
- (let ((#{p\ 4644}# (open-input-file #{fn\ 4639}#)))
+ (let ((#{p\ 4638}# (open-input-file #{fn\ 4633}#)))
(letrec*
- ((#{f\ 4648}#
- (lambda (#{x\ 4649}# #{result\ 4650}#)
- (if (eof-object? #{x\ 4649}#)
+ ((#{f\ 4642}#
+ (lambda (#{x\ 4643}# #{result\ 4644}#)
+ (if (eof-object? #{x\ 4643}#)
(begin
- (close-input-port #{p\ 4644}#)
- (reverse #{result\ 4650}#))
- (#{f\ 4648}#
- (read #{p\ 4644}#)
- (cons (datum->syntax #{k\ 4640}# #{x\ 4649}#)
- #{result\ 4650}#))))))
- (begin (#{f\ 4648}# (read #{p\ 4644}#) '()))))))))
+ (close-input-port #{p\ 4638}#)
+ (reverse #{result\ 4644}#))
+ (#{f\ 4642}#
+ (read #{p\ 4638}#)
+ (cons (datum->syntax #{k\ 4634}# #{x\ 4643}#)
+ #{result\ 4644}#))))))
+ (begin (#{f\ 4642}# (read #{p\ 4638}#) '()))))))))
(begin
- (let ((#{tmp\ 4651}# #{x\ 4635}#))
- (let ((#{tmp\ 4652}#
- ($sc-dispatch #{tmp\ 4651}# '(any any))))
- (if #{tmp\ 4652}#
+ (let ((#{tmp\ 4645}# #{x\ 4629}#))
+ (let ((#{tmp\ 4646}#
+ ($sc-dispatch #{tmp\ 4645}# '(any any))))
+ (if #{tmp\ 4646}#
(@apply
- (lambda (#{k\ 4655}# #{filename\ 4656}#)
+ (lambda (#{k\ 4649}# #{filename\ 4650}#)
(begin
- (let ((#{fn\ 4658}# (syntax->datum #{filename\ 4656}#)))
- (let ((#{tmp\ 4660}#
- (#{read-file\ 4638}#
- #{fn\ 4658}#
- #{filename\ 4656}#)))
- (let ((#{tmp\ 4661}#
- ($sc-dispatch #{tmp\ 4660}# 'each-any)))
- (if #{tmp\ 4661}#
+ (let ((#{fn\ 4652}# (syntax->datum #{filename\ 4650}#)))
+ (let ((#{tmp\ 4654}#
+ (#{read-file\ 4632}#
+ #{fn\ 4652}#
+ #{filename\ 4650}#)))
+ (let ((#{tmp\ 4655}#
+ ($sc-dispatch #{tmp\ 4654}# 'each-any)))
+ (if #{tmp\ 4655}#
(@apply
- (lambda (#{exp\ 4663}#)
+ (lambda (#{exp\ 4657}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4662"))
+ #("i4656"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4657"))
+ #("i4651"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4653" "i4654"))
+ #("i4647" "i4648"))
#(ribcage
(read-file)
((top))
- ("i4637"))
+ ("i4631"))
#(ribcage
#(x)
#((top))
- #("i4636")))
+ #("i4630")))
(hygiene guile))
- #{exp\ 4663}#))
- #{tmp\ 4661}#)
+ #{exp\ 4657}#))
+ #{tmp\ 4655}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4660}#)))))))
- #{tmp\ 4652}#)
+ #{tmp\ 4654}#)))))))
+ #{tmp\ 4646}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4651}#)))))))))
+ #{tmp\ 4645}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4665}#)
- (let ((#{tmp\ 4667}# #{x\ 4665}#))
- (let ((#{tmp\ 4668}#
- ($sc-dispatch #{tmp\ 4667}# '(any any))))
- (if #{tmp\ 4668}#
+ (lambda (#{x\ 4659}#)
+ (let ((#{tmp\ 4661}# #{x\ 4659}#))
+ (let ((#{tmp\ 4662}#
+ ($sc-dispatch #{tmp\ 4661}# '(any any))))
+ (if #{tmp\ 4662}#
(@apply
- (lambda (#{k\ 4671}# #{filename\ 4672}#)
+ (lambda (#{k\ 4665}# #{filename\ 4666}#)
(begin
- (let ((#{fn\ 4674}# (syntax->datum #{filename\ 4672}#)))
- (let ((#{tmp\ 4676}#
+ (let ((#{fn\ 4668}# (syntax->datum #{filename\ 4666}#)))
+ (let ((#{tmp\ 4670}#
(datum->syntax
- #{filename\ 4672}#
+ #{filename\ 4666}#
(begin
- (let ((#{t\ 4681}#
- (%search-load-path #{fn\ 4674}#)))
- (if #{t\ 4681}#
- #{t\ 4681}#
+ (let ((#{t\ 4675}#
+ (%search-load-path #{fn\ 4668}#)))
+ (if #{t\ 4675}#
+ #{t\ 4675}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4665}#
- #{filename\ 4672}#)))))))
- (let ((#{fn\ 4678}# #{tmp\ 4676}#))
+ #{x\ 4659}#
+ #{filename\ 4666}#)))))))
+ (let ((#{fn\ 4672}# #{tmp\ 4670}#))
(list '#(syntax-object
include
((top)
- #(ribcage #(fn) #((top)) #("i4677"))
+ #(ribcage #(fn) #((top)) #("i4671"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4673"))
+ #(ribcage #(fn) #((top)) #("i4667"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4669" "i4670"))
+ #("i4663" "i4664"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4666")))
+ #(ribcage #(x) #((top)) #("i4660")))
(hygiene guile))
- #{fn\ 4678}#))))))
- #{tmp\ 4668}#)
+ #{fn\ 4672}#))))))
+ #{tmp\ 4662}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4667}#)))))))
+ #{tmp\ 4661}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4683}#)
+ (lambda (#{x\ 4677}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4683}#))))
+ #{x\ 4677}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4685}#)
+ (lambda (#{x\ 4679}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4685}#))))
+ #{x\ 4679}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4687}#)
- (let ((#{tmp\ 4689}# #{x\ 4687}#))
- (let ((#{tmp\ 4690}#
+ (lambda (#{x\ 4681}#)
+ (let ((#{tmp\ 4683}# #{x\ 4681}#))
+ (let ((#{tmp\ 4684}#
($sc-dispatch
- #{tmp\ 4689}#
+ #{tmp\ 4683}#
'(_ any any . each-any))))
- (if #{tmp\ 4690}#
+ (if #{tmp\ 4684}#
(@apply
- (lambda (#{e\ 4694}# #{m1\ 4695}# #{m2\ 4696}#)
- (let ((#{tmp\ 4698}#
+ (lambda (#{e\ 4688}# #{m1\ 4689}# #{m2\ 4690}#)
+ (let ((#{tmp\ 4692}#
(letrec*
- ((#{f\ 4704}#
- (lambda (#{clause\ 4705}# #{clauses\ 4706}#)
- (if (null? #{clauses\ 4706}#)
- (let ((#{tmp\ 4708}# #{clause\ 4705}#))
- (let ((#{tmp\ 4709}#
+ ((#{f\ 4698}#
+ (lambda (#{clause\ 4699}# #{clauses\ 4700}#)
+ (if (null? #{clauses\ 4700}#)
+ (let ((#{tmp\ 4702}# #{clause\ 4699}#))
+ (let ((#{tmp\ 4703}#
($sc-dispatch
- #{tmp\ 4708}#
+ #{tmp\ 4702}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4709}#
+ (if #{tmp\ 4703}#
(@apply
- (lambda (#{e1\ 4712}# #{e2\ 4713}#)
+ (lambda (#{e1\ 4706}# #{e2\ 4707}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4710" "i4711"))
+ #("i4704" "i4705"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
- (cons #{e1\ 4712}#
- #{e2\ 4713}#)))
- #{tmp\ 4709}#)
- (let ((#{tmp\ 4715}#
+ (cons #{e1\ 4706}#
+ #{e2\ 4707}#)))
+ #{tmp\ 4703}#)
+ (let ((#{tmp\ 4709}#
($sc-dispatch
- #{tmp\ 4708}#
+ #{tmp\ 4702}#
'(each-any any . each-any))))
- (if #{tmp\ 4715}#
+ (if #{tmp\ 4709}#
(@apply
- (lambda (#{k\ 4719}#
- #{e1\ 4720}#
- #{e2\ 4721}#)
+ (lambda (#{k\ 4713}#
+ #{e1\ 4714}#
+ #{e2\ 4715}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4716"
- "i4717"
- "i4718"))
+ #("i4710"
+ "i4711"
+ "i4712"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4716"
- "i4717"
- "i4718"))
+ #("i4710"
+ "i4711"
+ "i4712"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4716"
- "i4717"
- "i4718"))
+ #("i4710"
+ "i4711"
+ "i4712"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4716"
- "i4717"
- "i4718"))
+ #("i4710"
+ "i4711"
+ "i4712"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e
m1
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene
guile))
- #{k\ 4719}#))
+ #{k\ 4713}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4716"
- "i4717"
- "i4718"))
+ #("i4710"
+ "i4711"
+ "i4712"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
- (cons #{e1\ 4720}#
- #{e2\ 4721}#))))
- #{tmp\ 4715}#)
- (let ((#{_\ 4725}# #{tmp\ 4708}#))
+ (cons #{e1\ 4714}#
+ #{e2\ 4715}#))))
+ #{tmp\ 4709}#)
+ (let ((#{_\ 4719}# #{tmp\ 4702}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4687}#
- #{clause\ 4705}#)))))))
- (let ((#{tmp\ 4727}#
- (#{f\ 4704}#
- (car #{clauses\ 4706}#)
- (cdr #{clauses\ 4706}#))))
- (let ((#{rest\ 4729}# #{tmp\ 4727}#))
- (let ((#{tmp\ 4730}# #{clause\ 4705}#))
- (let ((#{tmp\ 4731}#
+ #{x\ 4681}#
+ #{clause\ 4699}#)))))))
+ (let ((#{tmp\ 4721}#
+ (#{f\ 4698}#
+ (car #{clauses\ 4700}#)
+ (cdr #{clauses\ 4700}#))))
+ (let ((#{rest\ 4723}# #{tmp\ 4721}#))
+ (let ((#{tmp\ 4724}# #{clause\ 4699}#))
+ (let ((#{tmp\ 4725}#
($sc-dispatch
- #{tmp\ 4730}#
+ #{tmp\ 4724}#
'(each-any any . each-any))))
- (if #{tmp\ 4731}#
+ (if #{tmp\ 4725}#
(@apply
- (lambda (#{k\ 4735}#
- #{e1\ 4736}#
- #{e2\ 4737}#)
+ (lambda (#{k\ 4729}#
+ #{e1\ 4730}#
+ #{e2\ 4731}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4726"
+ "i4727"
+ "i4728"))
#(ribcage
#(rest)
#((top))
- #("i4728"))
+ #("i4722"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4726"
+ "i4727"
+ "i4728"))
#(ribcage
#(rest)
#((top))
- #("i4728"))
+ #("i4722"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4726"
+ "i4727"
+ "i4728"))
#(ribcage
#(rest)
#((top))
- #("i4728"))
+ #("i4722"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4726"
+ "i4727"
+ "i4728"))
#(ribcage
#(rest)
#((top))
- #("i4728"))
+ #("i4722"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e
m1
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene
guile))
- #{k\ 4735}#))
+ #{k\ 4729}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4732"
- "i4733"
- "i4734"))
+ #("i4726"
+ "i4727"
+ "i4728"))
#(ribcage
#(rest)
#((top))
- #("i4728"))
+ #("i4722"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4701"
- "i4702"
- "i4703"))
+ #("i4695"
+ "i4696"
+ "i4697"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4691"
- "i4692"
- "i4693"))
+ #("i4685"
+ "i4686"
+ "i4687"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4688")))
+ #("i4682")))
(hygiene guile))
- (cons #{e1\ 4736}#
- #{e2\ 4737}#))
- #{rest\ 4729}#))
- #{tmp\ 4731}#)
- (let ((#{_\ 4741}# #{tmp\ 4730}#))
+ (cons #{e1\ 4730}#
+ #{e2\ 4731}#))
+ #{rest\ 4723}#))
+ #{tmp\ 4725}#)
+ (let ((#{_\ 4735}# #{tmp\ 4724}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4687}#
- #{clause\ 4705}#)))))))))))
- (begin (#{f\ 4704}# #{m1\ 4695}# #{m2\ 4696}#)))))
- (let ((#{body\ 4700}# #{tmp\ 4698}#))
+ #{x\ 4681}#
+ #{clause\ 4699}#)))))))))))
+ (begin (#{f\ 4698}# #{m1\ 4689}# #{m2\ 4690}#)))))
+ (let ((#{body\ 4694}# #{tmp\ 4692}#))
(list '#(syntax-object
let
((top)
- #(ribcage #(body) #((top)) #("i4699"))
+ #(ribcage #(body) #((top)) #("i4693"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4691" "i4692" "i4693"))
+ #("i4685" "i4686" "i4687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4688")))
+ #(ribcage #(x) #((top)) #("i4682")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i4699"))
+ #("i4693"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4691" "i4692" "i4693"))
+ #("i4685" "i4686" "i4687"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4688")))
+ #(ribcage #(x) #((top)) #("i4682")))
(hygiene guile))
- #{e\ 4694}#))
- #{body\ 4700}#))))
- #{tmp\ 4690}#)
+ #{e\ 4688}#))
+ #{body\ 4694}#))))
+ #{tmp\ 4684}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4689}#)))))))
+ #{tmp\ 4683}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 4742}#)
- (if (procedure? #{proc\ 4742}#)
+ (lambda (#{proc\ 4736}#)
+ (if (procedure? #{proc\ 4736}#)
(begin
(letrec*
- ((#{trans\ 4745}#
- (lambda (#{x\ 4746}#)
- (#{proc\ 4742}# #{x\ 4746}#))))
+ ((#{trans\ 4739}#
+ (lambda (#{x\ 4740}#)
+ (#{proc\ 4736}# #{x\ 4740}#))))
(begin
(set-procedure-property!
- #{trans\ 4745}#
+ #{trans\ 4739}#
'variable-transformer
#t)
- #{trans\ 4745}#)))
+ #{trans\ 4739}#)))
(error "variable transformer not a procedure"
- #{proc\ 4742}#))))
+ #{proc\ 4736}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4748}#)
- (let ((#{tmp\ 4750}# #{x\ 4748}#))
- (let ((#{tmp\ 4751}#
- ($sc-dispatch #{tmp\ 4750}# '(_ any))))
- (if #{tmp\ 4751}#
+ (lambda (#{x\ 4742}#)
+ (let ((#{tmp\ 4744}# #{x\ 4742}#))
+ (let ((#{tmp\ 4745}#
+ ($sc-dispatch #{tmp\ 4744}# '(_ any))))
+ (if #{tmp\ 4745}#
(@apply
- (lambda (#{e\ 4753}#)
+ (lambda (#{e\ 4747}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
- #{e\ 4753}#))
+ #{e\ 4747}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4752"))
+ #(ribcage #(e) #((top)) #("i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
- (cons #{e\ 4753}#
+ (cons #{e\ 4747}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4752"))
+ #("i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(e)
#((top))
- #("i4752"))
+ #("i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile)))))))))
- #{tmp\ 4751}#)
- (let ((#{tmp\ 4754}#
+ #{tmp\ 4745}#)
+ (let ((#{tmp\ 4748}#
($sc-dispatch
- #{tmp\ 4750}#
+ #{tmp\ 4744}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp\ 4754}#
+ (if (if #{tmp\ 4748}#
(@apply
- (lambda (#{id\ 4760}#
- #{exp1\ 4761}#
- #{var\ 4762}#
- #{val\ 4763}#
- #{exp2\ 4764}#)
- (if (identifier? #{id\ 4760}#)
- (identifier? #{var\ 4762}#)
+ (lambda (#{id\ 4754}#
+ #{exp1\ 4755}#
+ #{var\ 4756}#
+ #{val\ 4757}#
+ #{exp2\ 4758}#)
+ (if (identifier? #{id\ 4754}#)
+ (identifier? #{var\ 4756}#)
#f))
- #{tmp\ 4754}#)
+ #{tmp\ 4748}#)
#f)
(@apply
- (lambda (#{id\ 4772}#
- #{exp1\ 4773}#
- #{var\ 4774}#
- #{val\ 4775}#
- #{exp2\ 4776}#)
+ (lambda (#{id\ 4766}#
+ #{exp1\ 4767}#
+ #{var\ 4768}#
+ #{val\ 4769}#
+ #{exp2\ 4770}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767" "i4768" "i4769" "i4770" "i4771"))
+ #("i4761" "i4762" "i4763" "i4764" "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
(list '#(syntax-object
lambda
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile))
'(#(syntax-object
set!
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4749")))
+ #(ribcage #(x) #((top)) #("i4743")))
(hygiene guile)))
(list (list '#(syntax-object
set!
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
- #{var\ 4774}#
- #{val\ 4775}#)
+ #{var\ 4768}#
+ #{val\ 4769}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
- #{exp2\ 4776}#))
- (list (cons #{id\ 4772}#
+ #{exp2\ 4770}#))
+ (list (cons #{id\ 4766}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
- (cons #{exp1\ 4773}#
+ (cons #{exp1\ 4767}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene
guile))))))
- (list #{id\ 4772}#
+ (list #{id\ 4766}#
(list '#(syntax-object
identifier?
((top)
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
- #{id\ 4772}#))
+ #{id\ 4766}#))
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4767"
- "i4768"
- "i4769"
- "i4770"
- "i4771"))
+ #("i4761"
+ "i4762"
+ "i4763"
+ "i4764"
+ "i4765"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4749")))
+ #("i4743")))
(hygiene guile))
- #{exp1\ 4773}#))))))
- #{tmp\ 4754}#)
+ #{exp1\ 4767}#))))))
+ #{tmp\ 4748}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4750}#)))))))))
+ #{tmp\ 4744}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4777}#)
- (let ((#{tmp\ 4779}# #{x\ 4777}#))
- (let ((#{tmp\ 4780}#
+ (lambda (#{x\ 4771}#)
+ (let ((#{tmp\ 4773}# #{x\ 4771}#))
+ (let ((#{tmp\ 4774}#
($sc-dispatch
- #{tmp\ 4779}#
+ #{tmp\ 4773}#
'(_ (any . any) any . each-any))))
- (if #{tmp\ 4780}#
+ (if #{tmp\ 4774}#
(@apply
- (lambda (#{id\ 4785}#
- #{args\ 4786}#
- #{b0\ 4787}#
- #{b1\ 4788}#)
+ (lambda (#{id\ 4779}#
+ #{args\ 4780}#
+ #{b0\ 4781}#
+ #{b1\ 4782}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4781" "i4782" "i4783" "i4784"))
+ #("i4775" "i4776" "i4777" "i4778"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4778")))
+ #(ribcage #(x) #((top)) #("i4772")))
(hygiene guile))
- #{id\ 4785}#
+ #{id\ 4779}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4781" "i4782" "i4783" "i4784"))
+ #("i4775" "i4776" "i4777" "i4778"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4778")))
+ #(ribcage #(x) #((top)) #("i4772")))
(hygiene guile))
- (cons #{args\ 4786}#
- (cons #{b0\ 4787}# #{b1\ 4788}#)))))
- #{tmp\ 4780}#)
- (let ((#{tmp\ 4790}#
- ($sc-dispatch #{tmp\ 4779}# '(_ any any))))
- (if (if #{tmp\ 4790}#
+ (cons #{args\ 4780}#
+ (cons #{b0\ 4781}# #{b1\ 4782}#)))))
+ #{tmp\ 4774}#)
+ (let ((#{tmp\ 4784}#
+ ($sc-dispatch #{tmp\ 4773}# '(_ any any))))
+ (if (if #{tmp\ 4784}#
(@apply
- (lambda (#{id\ 4793}# #{val\ 4794}#)
+ (lambda (#{id\ 4787}# #{val\ 4788}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(id val)
#((top) (top))
- #("i4791" "i4792"))
+ #("i4785" "i4786"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4778")))
+ #(ribcage #(x) #((top)) #("i4772")))
(hygiene guile))))
- #{tmp\ 4790}#)
+ #{tmp\ 4784}#)
#f)
(@apply
- (lambda (#{id\ 4797}# #{val\ 4798}#)
+ (lambda (#{id\ 4791}# #{val\ 4792}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4795" "i4796"))
+ #("i4789" "i4790"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4778")))
+ #(ribcage #(x) #((top)) #("i4772")))
(hygiene guile))
- #{id\ 4797}#
- #{val\ 4798}#))
- #{tmp\ 4790}#)
+ #{id\ 4791}#
+ #{val\ 4792}#))
+ #{tmp\ 4784}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4779}#)))))))))
+ #{tmp\ 4773}#)))))))))
HCoop / bpt / guile.git / commitdiff