summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/ice-9/psyntax-pp.scm27781
-rw-r--r--module/ice-9/psyntax.scm8
2 files changed, 13845 insertions, 13944 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 5c26e96c3..53d591295 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -37,1576 +37,1998 @@
(begin
(#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#))))))))))
(begin
- (let ((#{fx+\ 283}# (if #f #f))
- (#{fx-\ 285}# (if #f #f))
- (#{fx=\ 287}# (if #f #f))
- (#{fx<\ 289}# (if #f #f)))
- (letrec*
- ((#{make-void\ 240}#
- (lambda (#{src\ 750}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #{src\ 750}#)))
- (#{make-const\ 242}#
- (lambda (#{src\ 752}# #{exp\ 753}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{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\ 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\ 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\ 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\ 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\ 792}#
- #{name\ 793}#)))
- (#{make-toplevel-set\ 256}#
- (lambda (#{src\ 796}# #{name\ 797}# #{exp\ 798}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 8)
- #{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\ 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\ 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\ 816}#
- #{proc\ 817}#
- #{args\ 818}#)))
- (#{make-sequence\ 264}#
- (lambda (#{src\ 822}# #{exps\ 823}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 12)
- #{src\ 822}#
- #{exps\ 823}#)))
- (#{make-lambda\ 266}#
- (lambda (#{src\ 826}# #{meta\ 827}# #{body\ 828}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{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\ 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\ 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\ 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\ 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\ 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\ 898}#
- (make-syntax-transformer
- #{symbol\ 898}#
- #{type\ 899}#
- #{val\ 900}#))))
- (#{get-global-definition-hook\ 298}#
- (lambda (#{symbol\ 904}# #{module\ 905}#)
+ (letrec*
+ ((#{make-void\ 240}#
+ (lambda (#{src\ 798}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #{src\ 798}#)))
+ (#{make-const\ 242}#
+ (lambda (#{src\ 800}# #{exp\ 801}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{src\ 800}#
+ #{exp\ 801}#)))
+ (#{make-lexical-ref\ 246}#
+ (lambda (#{src\ 808}# #{name\ 809}# #{gensym\ 810}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{src\ 808}#
+ #{name\ 809}#
+ #{gensym\ 810}#)))
+ (#{make-lexical-set\ 248}#
+ (lambda (#{src\ 814}#
+ #{name\ 815}#
+ #{gensym\ 816}#
+ #{exp\ 817}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 4)
+ #{src\ 814}#
+ #{name\ 815}#
+ #{gensym\ 816}#
+ #{exp\ 817}#)))
+ (#{make-module-ref\ 250}#
+ (lambda (#{src\ 822}#
+ #{mod\ 823}#
+ #{name\ 824}#
+ #{public?\ 825}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{src\ 822}#
+ #{mod\ 823}#
+ #{name\ 824}#
+ #{public?\ 825}#)))
+ (#{make-module-set\ 252}#
+ (lambda (#{src\ 830}#
+ #{mod\ 831}#
+ #{name\ 832}#
+ #{public?\ 833}#
+ #{exp\ 834}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 6)
+ #{src\ 830}#
+ #{mod\ 831}#
+ #{name\ 832}#
+ #{public?\ 833}#
+ #{exp\ 834}#)))
+ (#{make-toplevel-ref\ 254}#
+ (lambda (#{src\ 840}# #{name\ 841}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{src\ 840}#
+ #{name\ 841}#)))
+ (#{make-toplevel-set\ 256}#
+ (lambda (#{src\ 844}# #{name\ 845}# #{exp\ 846}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 8)
+ #{src\ 844}#
+ #{name\ 845}#
+ #{exp\ 846}#)))
+ (#{make-toplevel-define\ 258}#
+ (lambda (#{src\ 850}# #{name\ 851}# #{exp\ 852}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
+ #{src\ 850}#
+ #{name\ 851}#
+ #{exp\ 852}#)))
+ (#{make-conditional\ 260}#
+ (lambda (#{src\ 856}#
+ #{test\ 857}#
+ #{consequent\ 858}#
+ #{alternate\ 859}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #{src\ 856}#
+ #{test\ 857}#
+ #{consequent\ 858}#
+ #{alternate\ 859}#)))
+ (#{make-application\ 262}#
+ (lambda (#{src\ 864}# #{proc\ 865}# #{args\ 866}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #{src\ 864}#
+ #{proc\ 865}#
+ #{args\ 866}#)))
+ (#{make-sequence\ 264}#
+ (lambda (#{src\ 870}# #{exps\ 871}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ #{src\ 870}#
+ #{exps\ 871}#)))
+ (#{make-lambda\ 266}#
+ (lambda (#{src\ 874}# #{meta\ 875}# #{body\ 876}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{src\ 874}#
+ #{meta\ 875}#
+ #{body\ 876}#)))
+ (#{make-lambda-case\ 268}#
+ (lambda (#{src\ 880}#
+ #{req\ 881}#
+ #{opt\ 882}#
+ #{rest\ 883}#
+ #{kw\ 884}#
+ #{inits\ 885}#
+ #{gensyms\ 886}#
+ #{body\ 887}#
+ #{alternate\ 888}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src\ 880}#
+ #{req\ 881}#
+ #{opt\ 882}#
+ #{rest\ 883}#
+ #{kw\ 884}#
+ #{inits\ 885}#
+ #{gensyms\ 886}#
+ #{body\ 887}#
+ #{alternate\ 888}#)))
+ (#{make-let\ 270}#
+ (lambda (#{src\ 898}#
+ #{names\ 899}#
+ #{gensyms\ 900}#
+ #{vals\ 901}#
+ #{body\ 902}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 15)
+ #{src\ 898}#
+ #{names\ 899}#
+ #{gensyms\ 900}#
+ #{vals\ 901}#
+ #{body\ 902}#)))
+ (#{make-letrec\ 272}#
+ (lambda (#{src\ 908}#
+ #{in-order?\ 909}#
+ #{names\ 910}#
+ #{gensyms\ 911}#
+ #{vals\ 912}#
+ #{body\ 913}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src\ 908}#
+ #{in-order?\ 909}#
+ #{names\ 910}#
+ #{gensyms\ 911}#
+ #{vals\ 912}#
+ #{body\ 913}#)))
+ (#{make-dynlet\ 274}#
+ (lambda (#{src\ 920}#
+ #{fluids\ 921}#
+ #{vals\ 922}#
+ #{body\ 923}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 17)
+ #{src\ 920}#
+ #{fluids\ 921}#
+ #{vals\ 922}#
+ #{body\ 923}#)))
+ (#{lambda?\ 277}#
+ (lambda (#{x\ 928}#)
+ (if (struct? #{x\ 928}#)
+ (eq? (struct-vtable #{x\ 928}#)
+ (vector-ref %expanded-vtables 13))
+ #f)))
+ (#{lambda-meta\ 279}#
+ (lambda (#{x\ 932}#) (struct-ref #{x\ 932}# 1)))
+ (#{set-lambda-meta!\ 281}#
+ (lambda (#{x\ 934}# #{v\ 935}#)
+ (struct-set! #{x\ 934}# 1 #{v\ 935}#)))
+ (#{top-level-eval-hook\ 287}#
+ (lambda (#{x\ 938}# #{mod\ 939}#)
+ (primitive-eval #{x\ 938}#)))
+ (#{local-eval-hook\ 289}#
+ (lambda (#{x\ 942}# #{mod\ 943}#)
+ (primitive-eval #{x\ 942}#)))
+ (#{put-global-definition-hook\ 292}#
+ (lambda (#{symbol\ 946}# #{type\ 947}# #{val\ 948}#)
+ (module-define!
+ (current-module)
+ #{symbol\ 946}#
+ (make-syntax-transformer
+ #{symbol\ 946}#
+ #{type\ 947}#
+ #{val\ 948}#))))
+ (#{get-global-definition-hook\ 294}#
+ (lambda (#{symbol\ 952}# #{module\ 953}#)
+ (begin
+ (if (if (not #{module\ 953}#) (current-module) #f)
+ (warn "module system is booted, we should have a module"
+ #{symbol\ 952}#))
(begin
- (if (if (not #{module\ 905}#) (current-module) #f)
- (warn "module system is booted, we should have a module"
- #{symbol\ 904}#))
- (begin
- (let ((#{v\ 911}# (module-variable
- (if #{module\ 905}#
- (resolve-module (cdr #{module\ 905}#))
- (current-module))
- #{symbol\ 904}#)))
- (if #{v\ 911}#
- (if (variable-bound? #{v\ 911}#)
- (begin
- (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\ 300}#
- (lambda (#{e\ 920}# #{s\ 921}#)
+ (let ((#{v\ 959}# (module-variable
+ (if #{module\ 953}#
+ (resolve-module (cdr #{module\ 953}#))
+ (current-module))
+ #{symbol\ 952}#)))
+ (if #{v\ 959}#
+ (if (variable-bound? #{v\ 959}#)
+ (begin
+ (let ((#{val\ 964}# (variable-ref #{v\ 959}#)))
+ (if (macro? #{val\ 964}#)
+ (if (macro-type #{val\ 964}#)
+ (cons (macro-type #{val\ 964}#)
+ (macro-binding #{val\ 964}#))
+ #f)
+ #f)))
+ #f)
+ #f))))))
+ (#{decorate-source\ 296}#
+ (lambda (#{e\ 968}# #{s\ 969}#)
+ (begin
+ (if (if (pair? #{e\ 968}#) #{s\ 969}# #f)
+ (set-source-properties! #{e\ 968}# #{s\ 969}#))
+ #{e\ 968}#)))
+ (#{maybe-name-value!\ 298}#
+ (lambda (#{name\ 974}# #{val\ 975}#)
+ (if (#{lambda?\ 277}# #{val\ 975}#)
(begin
- (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\ 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}#)
+ (let ((#{meta\ 979}#
+ (#{lambda-meta\ 279}# #{val\ 975}#)))
+ (if (not (assq 'name #{meta\ 979}#))
+ (#{set-lambda-meta!\ 281}#
+ #{val\ 975}#
+ (cons (cons 'name #{name\ 974}#) #{meta\ 979}#))))))))
+ (#{build-void\ 300}#
+ (lambda (#{source\ 980}#)
+ (#{make-void\ 240}# #{source\ 980}#)))
+ (#{build-application\ 302}#
+ (lambda (#{source\ 982}#
+ #{fun-exp\ 983}#
+ #{arg-exps\ 984}#)
+ (#{make-application\ 262}#
+ #{source\ 982}#
+ #{fun-exp\ 983}#
+ #{arg-exps\ 984}#)))
+ (#{build-conditional\ 304}#
+ (lambda (#{source\ 988}#
+ #{test-exp\ 989}#
+ #{then-exp\ 990}#
+ #{else-exp\ 991}#)
+ (#{make-conditional\ 260}#
+ #{source\ 988}#
+ #{test-exp\ 989}#
+ #{then-exp\ 990}#
+ #{else-exp\ 991}#)))
+ (#{build-dynlet\ 306}#
+ (lambda (#{source\ 996}#
+ #{fluids\ 997}#
+ #{vals\ 998}#
+ #{body\ 999}#)
+ (#{make-dynlet\ 274}#
+ #{source\ 996}#
+ #{fluids\ 997}#
+ #{vals\ 998}#
+ #{body\ 999}#)))
+ (#{build-lexical-reference\ 308}#
+ (lambda (#{type\ 1004}#
+ #{source\ 1005}#
+ #{name\ 1006}#
+ #{var\ 1007}#)
+ (#{make-lexical-ref\ 246}#
+ #{source\ 1005}#
+ #{name\ 1006}#
+ #{var\ 1007}#)))
+ (#{build-lexical-assignment\ 310}#
+ (lambda (#{source\ 1012}#
+ #{name\ 1013}#
+ #{var\ 1014}#
+ #{exp\ 1015}#)
+ (begin
+ (#{maybe-name-value!\ 298}#
+ #{name\ 1013}#
+ #{exp\ 1015}#)
+ (#{make-lexical-set\ 248}#
+ #{source\ 1012}#
+ #{name\ 1013}#
+ #{var\ 1014}#
+ #{exp\ 1015}#))))
+ (#{analyze-variable\ 312}#
+ (lambda (#{mod\ 1020}#
+ #{var\ 1021}#
+ #{modref-cont\ 1022}#
+ #{bare-cont\ 1023}#)
+ (if (not #{mod\ 1020}#)
+ (#{bare-cont\ 1023}# #{var\ 1021}#)
(begin
- (#{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\ 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\ 982}# 'private)
- (if (not (equal?
- #{mod\ 983}#
- (module-name (current-module))))
- (#{modref-cont\ 974}#
- #{mod\ 983}#
- #{var\ 973}#
- #f)
- (#{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\ 983}#
- (module-name (current-module))))
- (module-variable
- (resolve-module #{mod\ 983}#)
- #{var\ 973}#)
- #f)
- (#{modref-cont\ 974}#
- #{mod\ 983}#
- #{var\ 973}#
+ (let ((#{kind\ 1030}# (car #{mod\ 1020}#))
+ (#{mod\ 1031}# (cdr #{mod\ 1020}#)))
+ (if (eqv? #{kind\ 1030}# 'public)
+ (#{modref-cont\ 1022}#
+ #{mod\ 1031}#
+ #{var\ 1021}#
+ #t)
+ (if (eqv? #{kind\ 1030}# 'private)
+ (if (not (equal?
+ #{mod\ 1031}#
+ (module-name (current-module))))
+ (#{modref-cont\ 1022}#
+ #{mod\ 1031}#
+ #{var\ 1021}#
+ #f)
+ (#{bare-cont\ 1023}# #{var\ 1021}#))
+ (if (eqv? #{kind\ 1030}# 'bare)
+ (#{bare-cont\ 1023}# #{var\ 1021}#)
+ (if (eqv? #{kind\ 1030}# 'hygiene)
+ (if (if (not (equal?
+ #{mod\ 1031}#
+ (module-name (current-module))))
+ (module-variable
+ (resolve-module #{mod\ 1031}#)
+ #{var\ 1021}#)
#f)
- (#{bare-cont\ 975}# #{var\ 973}#))
- (syntax-violation
- #f
- "bad module kind"
- #{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!\ 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!\ 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\ 1029}#
- #f
- '()
- #{vars\ 1030}#
- #{exp\ 1032}#
- #f))))
- (#{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\ 254}#
- #{src\ 1063}#
- #{name\ 1064}#)
+ (#{modref-cont\ 1022}#
+ #{mod\ 1031}#
+ #{var\ 1021}#
+ #f)
+ (#{bare-cont\ 1023}# #{var\ 1021}#))
+ (syntax-violation
+ #f
+ "bad module kind"
+ #{var\ 1021}#
+ #{mod\ 1031}#))))))))))
+ (#{build-global-reference\ 314}#
+ (lambda (#{source\ 1039}# #{var\ 1040}# #{mod\ 1041}#)
+ (#{analyze-variable\ 312}#
+ #{mod\ 1041}#
+ #{var\ 1040}#
+ (lambda (#{mod\ 1045}# #{var\ 1046}# #{public?\ 1047}#)
(#{make-module-ref\ 250}#
- #{src\ 1063}#
- '(guile)
- #{name\ 1064}#
- #f))))
- (#{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}#)
+ #{source\ 1039}#
+ #{mod\ 1045}#
+ #{var\ 1046}#
+ #{public?\ 1047}#))
+ (lambda (#{var\ 1051}#)
+ (#{make-toplevel-ref\ 254}#
+ #{source\ 1039}#
+ #{var\ 1051}#)))))
+ (#{build-global-assignment\ 316}#
+ (lambda (#{source\ 1053}#
+ #{var\ 1054}#
+ #{exp\ 1055}#
+ #{mod\ 1056}#)
+ (begin
+ (#{maybe-name-value!\ 298}#
+ #{var\ 1054}#
+ #{exp\ 1055}#)
+ (#{analyze-variable\ 312}#
+ #{mod\ 1056}#
+ #{var\ 1054}#
+ (lambda (#{mod\ 1061}# #{var\ 1062}# #{public?\ 1063}#)
+ (#{make-module-set\ 252}#
+ #{source\ 1053}#
+ #{mod\ 1061}#
+ #{var\ 1062}#
+ #{public?\ 1063}#
+ #{exp\ 1055}#))
+ (lambda (#{var\ 1067}#)
+ (#{make-toplevel-set\ 256}#
+ #{source\ 1053}#
+ #{var\ 1067}#
+ #{exp\ 1055}#))))))
+ (#{build-global-definition\ 318}#
+ (lambda (#{source\ 1069}# #{var\ 1070}# #{exp\ 1071}#)
+ (begin
+ (#{maybe-name-value!\ 298}#
+ #{var\ 1070}#
+ #{exp\ 1071}#)
+ (#{make-toplevel-define\ 258}#
+ #{source\ 1069}#
+ #{var\ 1070}#
+ #{exp\ 1071}#))))
+ (#{build-simple-lambda\ 320}#
+ (lambda (#{src\ 1075}#
+ #{req\ 1076}#
+ #{rest\ 1077}#
+ #{vars\ 1078}#
+ #{meta\ 1079}#
+ #{exp\ 1080}#)
+ (#{make-lambda\ 266}#
+ #{src\ 1075}#
+ #{meta\ 1079}#
+ (#{make-lambda-case\ 268}#
+ #{src\ 1075}#
+ #{req\ 1076}#
+ #f
+ #{rest\ 1077}#
+ #f
+ '()
+ #{vars\ 1078}#
+ #{exp\ 1080}#
+ #f))))
+ (#{build-case-lambda\ 322}#
+ (lambda (#{src\ 1087}# #{meta\ 1088}# #{body\ 1089}#)
+ (#{make-lambda\ 266}#
+ #{src\ 1087}#
+ #{meta\ 1088}#
+ #{body\ 1089}#)))
+ (#{build-lambda-case\ 324}#
+ (lambda (#{src\ 1093}#
+ #{req\ 1094}#
+ #{opt\ 1095}#
+ #{rest\ 1096}#
+ #{kw\ 1097}#
+ #{inits\ 1098}#
+ #{vars\ 1099}#
+ #{body\ 1100}#
+ #{else-case\ 1101}#)
+ (#{make-lambda-case\ 268}#
+ #{src\ 1093}#
+ #{req\ 1094}#
+ #{opt\ 1095}#
+ #{rest\ 1096}#
+ #{kw\ 1097}#
+ #{inits\ 1098}#
+ #{vars\ 1099}#
+ #{body\ 1100}#
+ #{else-case\ 1101}#)))
+ (#{build-primref\ 326}#
+ (lambda (#{src\ 1111}# #{name\ 1112}#)
+ (if (equal? (module-name (current-module)) '(guile))
+ (#{make-toplevel-ref\ 254}#
+ #{src\ 1111}#
+ #{name\ 1112}#)
+ (#{make-module-ref\ 250}#
+ #{src\ 1111}#
+ '(guile)
+ #{name\ 1112}#
+ #f))))
+ (#{build-data\ 328}#
+ (lambda (#{src\ 1115}# #{exp\ 1116}#)
+ (#{make-const\ 242}# #{src\ 1115}# #{exp\ 1116}#)))
+ (#{build-sequence\ 330}#
+ (lambda (#{src\ 1119}# #{exps\ 1120}#)
+ (if (null? (cdr #{exps\ 1120}#))
+ (car #{exps\ 1120}#)
+ (#{make-sequence\ 264}#
+ #{src\ 1119}#
+ #{exps\ 1120}#))))
+ (#{build-let\ 332}#
+ (lambda (#{src\ 1123}#
+ #{ids\ 1124}#
+ #{vars\ 1125}#
+ #{val-exps\ 1126}#
+ #{body-exp\ 1127}#)
+ (begin
+ (for-each
+ #{maybe-name-value!\ 298}#
+ #{ids\ 1124}#
+ #{val-exps\ 1126}#)
+ (if (null? #{vars\ 1125}#)
+ #{body-exp\ 1127}#
+ (#{make-let\ 270}#
+ #{src\ 1123}#
+ #{ids\ 1124}#
+ #{vars\ 1125}#
+ #{val-exps\ 1126}#
+ #{body-exp\ 1127}#)))))
+ (#{build-named-let\ 334}#
+ (lambda (#{src\ 1133}#
+ #{ids\ 1134}#
+ #{vars\ 1135}#
+ #{val-exps\ 1136}#
+ #{body-exp\ 1137}#)
+ (begin
+ (let ((#{f\ 1147}# (car #{vars\ 1135}#))
+ (#{f-name\ 1148}# (car #{ids\ 1134}#))
+ (#{vars\ 1149}# (cdr #{vars\ 1135}#))
+ (#{ids\ 1150}# (cdr #{ids\ 1134}#)))
+ (begin
+ (let ((#{proc\ 1152}#
+ (#{build-simple-lambda\ 320}#
+ #{src\ 1133}#
+ #{ids\ 1150}#
+ #f
+ #{vars\ 1149}#
+ '()
+ #{body-exp\ 1137}#)))
+ (begin
+ (#{maybe-name-value!\ 298}#
+ #{f-name\ 1148}#
+ #{proc\ 1152}#)
+ (for-each
+ #{maybe-name-value!\ 298}#
+ #{ids\ 1150}#
+ #{val-exps\ 1136}#)
+ (#{make-letrec\ 272}#
+ #{src\ 1133}#
+ #f
+ (list #{f-name\ 1148}#)
+ (list #{f\ 1147}#)
+ (list #{proc\ 1152}#)
+ (#{build-application\ 302}#
+ #{src\ 1133}#
+ (#{build-lexical-reference\ 308}#
+ 'fun
+ #{src\ 1133}#
+ #{f-name\ 1148}#
+ #{f\ 1147}#)
+ #{val-exps\ 1136}#)))))))))
+ (#{build-letrec\ 336}#
+ (lambda (#{src\ 1153}#
+ #{in-order?\ 1154}#
+ #{ids\ 1155}#
+ #{vars\ 1156}#
+ #{val-exps\ 1157}#
+ #{body-exp\ 1158}#)
+ (if (null? #{vars\ 1156}#)
+ #{body-exp\ 1158}#
(begin
(for-each
- #{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\ 1099}# (car #{vars\ 1087}#))
- (#{f-name\ 1100}# (car #{ids\ 1086}#))
- (#{vars\ 1101}# (cdr #{vars\ 1087}#))
- (#{ids\ 1102}# (cdr #{ids\ 1086}#)))
- (begin
- (let ((#{proc\ 1104}#
- (#{build-simple-lambda\ 324}#
- #{src\ 1085}#
- #{ids\ 1102}#
- #f
- #{vars\ 1101}#
- '()
- #{body-exp\ 1089}#)))
- (begin
- (#{maybe-name-value!\ 302}#
- #{f-name\ 1100}#
- #{proc\ 1104}#)
- (for-each
- #{maybe-name-value!\ 302}#
- #{ids\ 1102}#
- #{val-exps\ 1088}#)
- (#{make-letrec\ 272}#
- #{src\ 1085}#
- #f
- (list #{f-name\ 1100}#)
- (list #{f\ 1099}#)
- (list #{proc\ 1104}#)
- (#{build-application\ 306}#
- #{src\ 1085}#
- (#{build-lexical-reference\ 312}#
- 'fun
- #{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!\ 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\ 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\ 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\ 1153}# (source-properties #{x\ 1146}#)))
- (if (pair? #{props\ 1153}#) #{props\ 1153}# #f)))
- #f))))
- (#{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}#)
- '()
+ #{maybe-name-value!\ 298}#
+ #{ids\ 1155}#
+ #{val-exps\ 1157}#)
+ (#{make-letrec\ 272}#
+ #{src\ 1153}#
+ #{in-order?\ 1154}#
+ #{ids\ 1155}#
+ #{vars\ 1156}#
+ #{val-exps\ 1157}#
+ #{body-exp\ 1158}#)))))
+ (#{make-syntax-object\ 340}#
+ (lambda (#{expression\ 1165}#
+ #{wrap\ 1166}#
+ #{module\ 1167}#)
+ (vector
+ 'syntax-object
+ #{expression\ 1165}#
+ #{wrap\ 1166}#
+ #{module\ 1167}#)))
+ (#{syntax-object?\ 342}#
+ (lambda (#{x\ 1171}#)
+ (if (vector? #{x\ 1171}#)
+ (if (= (vector-length #{x\ 1171}#) 4)
+ (eq? (vector-ref #{x\ 1171}# 0) 'syntax-object)
+ #f)
+ #f)))
+ (#{syntax-object-expression\ 344}#
+ (lambda (#{x\ 1176}#) (vector-ref #{x\ 1176}# 1)))
+ (#{syntax-object-wrap\ 346}#
+ (lambda (#{x\ 1178}#) (vector-ref #{x\ 1178}# 2)))
+ (#{syntax-object-module\ 348}#
+ (lambda (#{x\ 1180}#) (vector-ref #{x\ 1180}# 3)))
+ (#{source-annotation\ 357}#
+ (lambda (#{x\ 1194}#)
+ (if (#{syntax-object?\ 342}# #{x\ 1194}#)
+ (#{source-annotation\ 357}#
+ (#{syntax-object-expression\ 344}# #{x\ 1194}#))
+ (if (pair? #{x\ 1194}#)
(begin
- (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}#)
+ (let ((#{props\ 1201}# (source-properties #{x\ 1194}#)))
+ (if (pair? #{props\ 1201}#) #{props\ 1201}# #f)))
+ #f))))
+ (#{extend-env\ 364}#
+ (lambda (#{labels\ 1203}# #{bindings\ 1204}# #{r\ 1205}#)
+ (if (null? #{labels\ 1203}#)
+ #{r\ 1205}#
+ (#{extend-env\ 364}#
+ (cdr #{labels\ 1203}#)
+ (cdr #{bindings\ 1204}#)
+ (cons (cons (car #{labels\ 1203}#)
+ (car #{bindings\ 1204}#))
+ #{r\ 1205}#)))))
+ (#{extend-var-env\ 366}#
+ (lambda (#{labels\ 1209}# #{vars\ 1210}# #{r\ 1211}#)
+ (if (null? #{labels\ 1209}#)
+ #{r\ 1211}#
+ (#{extend-var-env\ 366}#
+ (cdr #{labels\ 1209}#)
+ (cdr #{vars\ 1210}#)
+ (cons (cons (car #{labels\ 1209}#)
+ (cons 'lexical (car #{vars\ 1210}#)))
+ #{r\ 1211}#)))))
+ (#{macros-only-env\ 368}#
+ (lambda (#{r\ 1216}#)
+ (if (null? #{r\ 1216}#)
+ '()
(begin
- (let ((#{t\ 1180}# (assq #{x\ 1172}# #{r\ 1173}#)))
- (if #{t\ 1180}#
- (cdr #{t\ 1180}#)
- (if (symbol? #{x\ 1172}#)
- (begin
- (let ((#{t\ 1186}#
- (#{get-global-definition-hook\ 298}#
- #{x\ 1172}#
- #{mod\ 1174}#)))
- (if #{t\ 1186}# #{t\ 1186}# '(global))))
- '(displaced-lexical)))))))
- (#{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}#)
+ (let ((#{a\ 1219}# (car #{r\ 1216}#)))
+ (if (eq? (car (cdr #{a\ 1219}#)) 'macro)
+ (cons #{a\ 1219}#
+ (#{macros-only-env\ 368}# (cdr #{r\ 1216}#)))
+ (#{macros-only-env\ 368}# (cdr #{r\ 1216}#))))))))
+ (#{lookup\ 370}#
+ (lambda (#{x\ 1220}# #{r\ 1221}# #{mod\ 1222}#)
+ (begin
+ (let ((#{t\ 1228}# (assq #{x\ 1220}# #{r\ 1221}#)))
+ (if #{t\ 1228}#
+ (cdr #{t\ 1228}#)
+ (if (symbol? #{x\ 1220}#)
+ (begin
+ (let ((#{t\ 1234}#
+ (#{get-global-definition-hook\ 294}#
+ #{x\ 1220}#
+ #{mod\ 1222}#)))
+ (if #{t\ 1234}# #{t\ 1234}# '(global))))
+ '(displaced-lexical)))))))
+ (#{global-extend\ 372}#
+ (lambda (#{type\ 1239}# #{sym\ 1240}# #{val\ 1241}#)
+ (#{put-global-definition-hook\ 292}#
+ #{sym\ 1240}#
+ #{type\ 1239}#
+ #{val\ 1241}#)))
+ (#{nonsymbol-id?\ 374}#
+ (lambda (#{x\ 1245}#)
+ (if (#{syntax-object?\ 342}# #{x\ 1245}#)
+ (symbol?
+ (#{syntax-object-expression\ 344}# #{x\ 1245}#))
+ #f)))
+ (#{id?\ 376}#
+ (lambda (#{x\ 1249}#)
+ (if (symbol? #{x\ 1249}#)
+ #t
+ (if (#{syntax-object?\ 342}# #{x\ 1249}#)
(symbol?
- (#{syntax-object-expression\ 348}# #{x\ 1197}#))
- #f)))
- (#{id?\ 380}#
- (lambda (#{x\ 1201}#)
- (if (symbol? #{x\ 1201}#)
- #t
- (if (#{syntax-object?\ 346}# #{x\ 1201}#)
- (symbol?
- (#{syntax-object-expression\ 348}# #{x\ 1201}#))
- #f))))
- (#{id-sym-name&marks\ 383}#
- (lambda (#{x\ 1208}# #{w\ 1209}#)
- (if (#{syntax-object?\ 346}# #{x\ 1208}#)
- (values
- (#{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\ 395}#
- (lambda (#{ls\ 1215}#)
- (if (null? #{ls\ 1215}#)
- '()
- (cons (#{gen-label\ 393}#)
- (#{gen-labels\ 395}# (cdr #{ls\ 1215}#))))))
- (#{make-ribcage\ 398}#
- (lambda (#{symnames\ 1217}#
- #{marks\ 1218}#
- #{labels\ 1219}#)
- (vector
- 'ribcage
- #{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!\ 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\ 1268}#
- (list->vector #{labels\ 1260}#)))
- (begin
- (let ((#{n\ 1270}#
- (vector-length #{labelvec\ 1268}#)))
- (begin
- (let ((#{symnamevec\ 1273}#
- (make-vector #{n\ 1270}#))
- (#{marksvec\ 1274}#
- (make-vector #{n\ 1270}#)))
- (begin
- (letrec*
- ((#{f\ 1278}#
- (lambda (#{ids\ 1279}#
- #{i\ 1280}#)
- (if (not (null? #{ids\ 1279}#))
- (call-with-values
- (lambda ()
- (#{id-sym-name&marks\ 383}#
- (car #{ids\ 1279}#)
- #{w\ 1261}#))
- (lambda (#{symname\ 1281}#
- #{marks\ 1282}#)
- (begin
- (vector-set!
- #{symnamevec\ 1273}#
- #{i\ 1280}#
- #{symname\ 1281}#)
- (vector-set!
- #{marksvec\ 1274}#
- #{i\ 1280}#
- #{marks\ 1282}#)
- (#{f\ 1278}#
- (cdr #{ids\ 1279}#)
- (#{fx+\ 283}#
- #{i\ 1280}#
- 1)))))))))
- (begin
- (#{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\ 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\ 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)
+ (#{syntax-object-expression\ 344}# #{x\ 1249}#))
+ #f))))
+ (#{id-sym-name&marks\ 379}#
+ (lambda (#{x\ 1256}# #{w\ 1257}#)
+ (if (#{syntax-object?\ 342}# #{x\ 1256}#)
+ (values
+ (#{syntax-object-expression\ 344}# #{x\ 1256}#)
+ (#{join-marks\ 426}#
+ (car #{w\ 1257}#)
+ (car (#{syntax-object-wrap\ 346}# #{x\ 1256}#))))
+ (values #{x\ 1256}# (car #{w\ 1257}#)))))
+ (#{gen-label\ 389}#
+ (lambda () (symbol->string (gensym "i"))))
+ (#{gen-labels\ 391}#
+ (lambda (#{ls\ 1263}#)
+ (if (null? #{ls\ 1263}#)
+ '()
+ (cons (#{gen-label\ 389}#)
+ (#{gen-labels\ 391}# (cdr #{ls\ 1263}#))))))
+ (#{make-ribcage\ 394}#
+ (lambda (#{symnames\ 1265}#
+ #{marks\ 1266}#
+ #{labels\ 1267}#)
+ (vector
+ 'ribcage
+ #{symnames\ 1265}#
+ #{marks\ 1266}#
+ #{labels\ 1267}#)))
+ (#{ribcage-symnames\ 398}#
+ (lambda (#{x\ 1276}#) (vector-ref #{x\ 1276}# 1)))
+ (#{ribcage-marks\ 400}#
+ (lambda (#{x\ 1278}#) (vector-ref #{x\ 1278}# 2)))
+ (#{ribcage-labels\ 402}#
+ (lambda (#{x\ 1280}#) (vector-ref #{x\ 1280}# 3)))
+ (#{set-ribcage-symnames!\ 404}#
+ (lambda (#{x\ 1282}# #{update\ 1283}#)
+ (vector-set! #{x\ 1282}# 1 #{update\ 1283}#)))
+ (#{set-ribcage-marks!\ 406}#
+ (lambda (#{x\ 1286}# #{update\ 1287}#)
+ (vector-set! #{x\ 1286}# 2 #{update\ 1287}#)))
+ (#{set-ribcage-labels!\ 408}#
+ (lambda (#{x\ 1290}# #{update\ 1291}#)
+ (vector-set! #{x\ 1290}# 3 #{update\ 1291}#)))
+ (#{anti-mark\ 414}#
+ (lambda (#{w\ 1294}#)
+ (cons (cons #f (car #{w\ 1294}#))
+ (cons 'shift (cdr #{w\ 1294}#)))))
+ (#{extend-ribcage!\ 418}#
+ (lambda (#{ribcage\ 1300}# #{id\ 1301}# #{label\ 1302}#)
+ (begin
+ (#{set-ribcage-symnames!\ 404}#
+ #{ribcage\ 1300}#
+ (cons (#{syntax-object-expression\ 344}# #{id\ 1301}#)
+ (#{ribcage-symnames\ 398}# #{ribcage\ 1300}#)))
+ (#{set-ribcage-marks!\ 406}#
+ #{ribcage\ 1300}#
+ (cons (car (#{syntax-object-wrap\ 346}# #{id\ 1301}#))
+ (#{ribcage-marks\ 400}# #{ribcage\ 1300}#)))
+ (#{set-ribcage-labels!\ 408}#
+ #{ribcage\ 1300}#
+ (cons #{label\ 1302}#
+ (#{ribcage-labels\ 402}# #{ribcage\ 1300}#))))))
+ (#{make-binding-wrap\ 420}#
+ (lambda (#{ids\ 1307}# #{labels\ 1308}# #{w\ 1309}#)
+ (if (null? #{ids\ 1307}#)
+ #{w\ 1309}#
+ (cons (car #{w\ 1309}#)
+ (cons (begin
+ (let ((#{labelvec\ 1316}#
+ (list->vector #{labels\ 1308}#)))
+ (begin
+ (let ((#{n\ 1318}#
+ (vector-length #{labelvec\ 1316}#)))
+ (begin
+ (let ((#{symnamevec\ 1321}#
+ (make-vector #{n\ 1318}#))
+ (#{marksvec\ 1322}#
+ (make-vector #{n\ 1318}#)))
+ (begin
+ (letrec*
+ ((#{f\ 1326}#
+ (lambda (#{ids\ 1327}# #{i\ 1328}#)
+ (if (not (null? #{ids\ 1327}#))
+ (call-with-values
+ (lambda ()
+ (#{id-sym-name&marks\ 379}#
+ (car #{ids\ 1327}#)
+ #{w\ 1309}#))
+ (lambda (#{symname\ 1329}#
+ #{marks\ 1330}#)
+ (begin
+ (vector-set!
+ #{symnamevec\ 1321}#
+ #{i\ 1328}#
+ #{symname\ 1329}#)
+ (vector-set!
+ #{marksvec\ 1322}#
+ #{i\ 1328}#
+ #{marks\ 1330}#)
+ (#{f\ 1326}#
+ (cdr #{ids\ 1327}#)
+ (1+ #{i\ 1328}#)))))))))
+ (begin (#{f\ 1326}# #{ids\ 1307}# 0)))
+ (#{make-ribcage\ 394}#
+ #{symnamevec\ 1321}#
+ #{marksvec\ 1322}#
+ #{labelvec\ 1316}#))))))))
+ (cdr #{w\ 1309}#))))))
+ (#{smart-append\ 422}#
+ (lambda (#{m1\ 1335}# #{m2\ 1336}#)
+ (if (null? #{m2\ 1336}#)
+ #{m1\ 1335}#
+ (append #{m1\ 1335}# #{m2\ 1336}#))))
+ (#{join-wraps\ 424}#
+ (lambda (#{w1\ 1339}# #{w2\ 1340}#)
+ (begin
+ (let ((#{m1\ 1345}# (car #{w1\ 1339}#))
+ (#{s1\ 1346}# (cdr #{w1\ 1339}#)))
+ (if (null? #{m1\ 1345}#)
+ (if (null? #{s1\ 1346}#)
+ #{w2\ 1340}#
+ (cons (car #{w2\ 1340}#)
+ (#{smart-append\ 422}#
+ #{s1\ 1346}#
+ (cdr #{w2\ 1340}#))))
+ (cons (#{smart-append\ 422}#
+ #{m1\ 1345}#
+ (car #{w2\ 1340}#))
+ (#{smart-append\ 422}#
+ #{s1\ 1346}#
+ (cdr #{w2\ 1340}#))))))))
+ (#{join-marks\ 426}#
+ (lambda (#{m1\ 1355}# #{m2\ 1356}#)
+ (#{smart-append\ 422}# #{m1\ 1355}# #{m2\ 1356}#)))
+ (#{same-marks?\ 428}#
+ (lambda (#{x\ 1359}# #{y\ 1360}#)
+ (begin
+ (let ((#{t\ 1365}# (eq? #{x\ 1359}# #{y\ 1360}#)))
+ (if #{t\ 1365}#
+ #{t\ 1365}#
+ (if (not (null? #{x\ 1359}#))
+ (if (not (null? #{y\ 1360}#))
+ (if (eq? (car #{x\ 1359}#) (car #{y\ 1360}#))
+ (#{same-marks?\ 428}#
+ (cdr #{x\ 1359}#)
+ (cdr #{y\ 1360}#))
#f)
- #f))))))
- (#{id-var-name\ 434}#
- (lambda (#{id\ 1322}# #{w\ 1323}#)
- (letrec*
- ((#{search\ 1328}#
- (lambda (#{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}#)
- (if (null? #{subst\ 1345}#)
- (values #f #{marks\ 1346}#)
- (begin
- (let ((#{fst\ 1351}# (car #{subst\ 1345}#)))
- (if (eq? #{fst\ 1351}# 'shift)
- (#{search\ 1328}#
- #{sym\ 1344}#
- (cdr #{subst\ 1345}#)
- (cdr #{marks\ 1346}#))
- (begin
- (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\ 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\ 404}#
- #{ribcage\ 1358}#)
- #{i\ 1369}#))
- #f)
- (values
- (list-ref
- (#{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}#)
+ #f)
+ #f))))))
+ (#{id-var-name\ 430}#
+ (lambda (#{id\ 1371}# #{w\ 1372}#)
+ (letrec*
+ ((#{search\ 1377}#
+ (lambda (#{sym\ 1393}# #{subst\ 1394}# #{marks\ 1395}#)
+ (if (null? #{subst\ 1394}#)
+ (values #f #{marks\ 1395}#)
(begin
- (let ((#{n\ 1388}# (vector-length #{symnames\ 1380}#)))
- (letrec*
- ((#{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\ 1380}#
- #{i\ 1392}#)
- #{sym\ 1377}#)
- (#{same-marks?\ 432}#
- #{marks\ 1379}#
- (vector-ref
- (#{ribcage-marks\ 404}#
- #{ribcage\ 1381}#)
- #{i\ 1392}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels\ 406}#
- #{ribcage\ 1381}#)
- #{i\ 1392}#)
- #{marks\ 1379}#)
- (#{f\ 1391}#
- (#{fx+\ 283}# #{i\ 1392}# 1)))))))
- (begin (#{f\ 1391}# 0))))))))
- (begin
- (if (symbol? #{id\ 1322}#)
+ (let ((#{fst\ 1400}# (car #{subst\ 1394}#)))
+ (if (eq? #{fst\ 1400}# 'shift)
+ (#{search\ 1377}#
+ #{sym\ 1393}#
+ (cdr #{subst\ 1394}#)
+ (cdr #{marks\ 1395}#))
+ (begin
+ (let ((#{symnames\ 1402}#
+ (#{ribcage-symnames\ 398}# #{fst\ 1400}#)))
+ (if (vector? #{symnames\ 1402}#)
+ (#{search-vector-rib\ 1381}#
+ #{sym\ 1393}#
+ #{subst\ 1394}#
+ #{marks\ 1395}#
+ #{symnames\ 1402}#
+ #{fst\ 1400}#)
+ (#{search-list-rib\ 1379}#
+ #{sym\ 1393}#
+ #{subst\ 1394}#
+ #{marks\ 1395}#
+ #{symnames\ 1402}#
+ #{fst\ 1400}#))))))))))
+ (#{search-list-rib\ 1379}#
+ (lambda (#{sym\ 1403}#
+ #{subst\ 1404}#
+ #{marks\ 1405}#
+ #{symnames\ 1406}#
+ #{ribcage\ 1407}#)
+ (letrec*
+ ((#{f\ 1416}#
+ (lambda (#{symnames\ 1417}# #{i\ 1418}#)
+ (if (null? #{symnames\ 1417}#)
+ (#{search\ 1377}#
+ #{sym\ 1403}#
+ (cdr #{subst\ 1404}#)
+ #{marks\ 1405}#)
+ (if (if (eq? (car #{symnames\ 1417}#) #{sym\ 1403}#)
+ (#{same-marks?\ 428}#
+ #{marks\ 1405}#
+ (list-ref
+ (#{ribcage-marks\ 400}# #{ribcage\ 1407}#)
+ #{i\ 1418}#))
+ #f)
+ (values
+ (list-ref
+ (#{ribcage-labels\ 402}# #{ribcage\ 1407}#)
+ #{i\ 1418}#)
+ #{marks\ 1405}#)
+ (#{f\ 1416}#
+ (cdr #{symnames\ 1417}#)
+ (1+ #{i\ 1418}#)))))))
+ (begin (#{f\ 1416}# #{symnames\ 1406}# 0)))))
+ (#{search-vector-rib\ 1381}#
+ (lambda (#{sym\ 1427}#
+ #{subst\ 1428}#
+ #{marks\ 1429}#
+ #{symnames\ 1430}#
+ #{ribcage\ 1431}#)
+ (begin
+ (let ((#{n\ 1438}# (vector-length #{symnames\ 1430}#)))
+ (letrec*
+ ((#{f\ 1441}#
+ (lambda (#{i\ 1442}#)
+ (if (= #{i\ 1442}# #{n\ 1438}#)
+ (#{search\ 1377}#
+ #{sym\ 1427}#
+ (cdr #{subst\ 1428}#)
+ #{marks\ 1429}#)
+ (if (if (eq? (vector-ref
+ #{symnames\ 1430}#
+ #{i\ 1442}#)
+ #{sym\ 1427}#)
+ (#{same-marks?\ 428}#
+ #{marks\ 1429}#
+ (vector-ref
+ (#{ribcage-marks\ 400}#
+ #{ribcage\ 1431}#)
+ #{i\ 1442}#))
+ #f)
+ (values
+ (vector-ref
+ (#{ribcage-labels\ 402}#
+ #{ribcage\ 1431}#)
+ #{i\ 1442}#)
+ #{marks\ 1429}#)
+ (#{f\ 1441}# (1+ #{i\ 1442}#)))))))
+ (begin (#{f\ 1441}# 0))))))))
+ (begin
+ (if (symbol? #{id\ 1371}#)
+ (begin
+ (let ((#{t\ 1454}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 1377}#
+ #{id\ 1371}#
+ (cdr #{w\ 1372}#)
+ (car #{w\ 1372}#)))
+ (lambda (#{x\ 1458}# . #{ignore\ 1459}#)
+ #{x\ 1458}#))))
+ (if #{t\ 1454}# #{t\ 1454}# #{id\ 1371}#)))
+ (if (#{syntax-object?\ 342}# #{id\ 1371}#)
(begin
- (let ((#{t\ 1402}#
- (call-with-values
- (lambda ()
- (#{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\ 1415}#
- (#{syntax-object-expression\ 348}#
- #{id\ 1322}#))
- (#{w1\ 1416}#
- (#{syntax-object-wrap\ 350}# #{id\ 1322}#)))
- (begin
- (let ((#{marks\ 1418}#
- (#{join-marks\ 430}#
- (car #{w\ 1323}#)
- (car #{w1\ 1416}#))))
- (call-with-values
- (lambda ()
- (#{search\ 1328}#
- #{id\ 1415}#
- (cdr #{w\ 1323}#)
- #{marks\ 1418}#))
- (lambda (#{new-id\ 1422}# #{marks\ 1423}#)
- (begin
- (let ((#{t\ 1428}# #{new-id\ 1422}#))
- (if #{t\ 1428}#
- #{t\ 1428}#
- (begin
- (let ((#{t\ 1431}#
- (call-with-values
- (lambda ()
- (#{search\ 1328}#
- #{id\ 1415}#
- (cdr #{w1\ 1416}#)
- #{marks\ 1423}#))
- (lambda (#{x\ 1434}#
- .
- #{ignore\ 1435}#)
- #{x\ 1434}#))))
- (if #{t\ 1431}#
- #{t\ 1431}#
- #{id\ 1415}#))))))))))))
- (syntax-violation
- 'id-var-name
- "invalid id"
- #{id\ 1322}#)))))))
- (#{free-id=?\ 436}#
- (lambda (#{i\ 1440}# #{j\ 1441}#)
- (if (eq? (begin
- (let ((#{x\ 1447}# #{i\ 1440}#))
- (if (#{syntax-object?\ 346}# #{x\ 1447}#)
- (#{syntax-object-expression\ 348}# #{x\ 1447}#)
- #{x\ 1447}#)))
+ (let ((#{id\ 1467}#
+ (#{syntax-object-expression\ 344}# #{id\ 1371}#))
+ (#{w1\ 1468}#
+ (#{syntax-object-wrap\ 346}# #{id\ 1371}#)))
+ (begin
+ (let ((#{marks\ 1470}#
+ (#{join-marks\ 426}#
+ (car #{w\ 1372}#)
+ (car #{w1\ 1468}#))))
+ (call-with-values
+ (lambda ()
+ (#{search\ 1377}#
+ #{id\ 1467}#
+ (cdr #{w\ 1372}#)
+ #{marks\ 1470}#))
+ (lambda (#{new-id\ 1474}# #{marks\ 1475}#)
+ (begin
+ (let ((#{t\ 1480}# #{new-id\ 1474}#))
+ (if #{t\ 1480}#
+ #{t\ 1480}#
+ (begin
+ (let ((#{t\ 1483}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 1377}#
+ #{id\ 1467}#
+ (cdr #{w1\ 1468}#)
+ #{marks\ 1475}#))
+ (lambda (#{x\ 1486}#
+ .
+ #{ignore\ 1487}#)
+ #{x\ 1486}#))))
+ (if #{t\ 1483}#
+ #{t\ 1483}#
+ #{id\ 1467}#))))))))))))
+ (syntax-violation
+ 'id-var-name
+ "invalid id"
+ #{id\ 1371}#)))))))
+ (#{free-id=?\ 432}#
+ (lambda (#{i\ 1492}# #{j\ 1493}#)
+ (if (eq? (begin
+ (let ((#{x\ 1499}# #{i\ 1492}#))
+ (if (#{syntax-object?\ 342}# #{x\ 1499}#)
+ (#{syntax-object-expression\ 344}# #{x\ 1499}#)
+ #{x\ 1499}#)))
+ (begin
+ (let ((#{x\ 1502}# #{j\ 1493}#))
+ (if (#{syntax-object?\ 342}# #{x\ 1502}#)
+ (#{syntax-object-expression\ 344}# #{x\ 1502}#)
+ #{x\ 1502}#))))
+ (eq? (#{id-var-name\ 430}# #{i\ 1492}# '(()))
+ (#{id-var-name\ 430}# #{j\ 1493}# '(())))
+ #f)))
+ (#{bound-id=?\ 434}#
+ (lambda (#{i\ 1506}# #{j\ 1507}#)
+ (if (if (#{syntax-object?\ 342}# #{i\ 1506}#)
+ (#{syntax-object?\ 342}# #{j\ 1507}#)
+ #f)
+ (if (eq? (#{syntax-object-expression\ 344}# #{i\ 1506}#)
+ (#{syntax-object-expression\ 344}# #{j\ 1507}#))
+ (#{same-marks?\ 428}#
+ (car (#{syntax-object-wrap\ 346}# #{i\ 1506}#))
+ (car (#{syntax-object-wrap\ 346}# #{j\ 1507}#)))
+ #f)
+ (eq? #{i\ 1506}# #{j\ 1507}#))))
+ (#{valid-bound-ids?\ 436}#
+ (lambda (#{ids\ 1516}#)
+ (if (letrec*
+ ((#{all-ids?\ 1521}#
+ (lambda (#{ids\ 1522}#)
(begin
- (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=?\ 438}#
- (lambda (#{i\ 1454}# #{j\ 1455}#)
- (if (if (#{syntax-object?\ 346}# #{i\ 1454}#)
- (#{syntax-object?\ 346}# #{j\ 1455}#)
- #f)
- (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}#)))
+ (let ((#{t\ 1525}# (null? #{ids\ 1522}#)))
+ (if #{t\ 1525}#
+ #{t\ 1525}#
+ (if (#{id?\ 376}# (car #{ids\ 1522}#))
+ (#{all-ids?\ 1521}# (cdr #{ids\ 1522}#))
+ #f)))))))
+ (begin (#{all-ids?\ 1521}# #{ids\ 1516}#)))
+ (#{distinct-bound-ids?\ 438}# #{ids\ 1516}#)
+ #f)))
+ (#{distinct-bound-ids?\ 438}#
+ (lambda (#{ids\ 1530}#)
+ (letrec*
+ ((#{distinct?\ 1534}#
+ (lambda (#{ids\ 1535}#)
+ (begin
+ (let ((#{t\ 1538}# (null? #{ids\ 1535}#)))
+ (if #{t\ 1538}#
+ #{t\ 1538}#
+ (if (not (#{bound-id-member?\ 440}#
+ (car #{ids\ 1535}#)
+ (cdr #{ids\ 1535}#)))
+ (#{distinct?\ 1534}# (cdr #{ids\ 1535}#))
+ #f)))))))
+ (begin (#{distinct?\ 1534}# #{ids\ 1530}#)))))
+ (#{bound-id-member?\ 440}#
+ (lambda (#{x\ 1542}# #{list\ 1543}#)
+ (if (not (null? #{list\ 1543}#))
+ (begin
+ (let ((#{t\ 1550}#
+ (#{bound-id=?\ 434}#
+ #{x\ 1542}#
+ (car #{list\ 1543}#))))
+ (if #{t\ 1550}#
+ #{t\ 1550}#
+ (#{bound-id-member?\ 440}#
+ #{x\ 1542}#
+ (cdr #{list\ 1543}#)))))
+ #f)))
+ (#{wrap\ 442}#
+ (lambda (#{x\ 1552}# #{w\ 1553}# #{defmod\ 1554}#)
+ (if (if (null? (car #{w\ 1553}#))
+ (null? (cdr #{w\ 1553}#))
#f)
- (eq? #{i\ 1454}# #{j\ 1455}#))))
- (#{valid-bound-ids?\ 440}#
- (lambda (#{ids\ 1464}#)
- (if (letrec*
- ((#{all-ids?\ 1469}#
- (lambda (#{ids\ 1470}#)
- (begin
- (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?\ 1469}# #{ids\ 1464}#)))
- (#{distinct-bound-ids?\ 442}# #{ids\ 1464}#)
- #f)))
- (#{distinct-bound-ids?\ 442}#
- (lambda (#{ids\ 1478}#)
+ #{x\ 1552}#
+ (if (#{syntax-object?\ 342}# #{x\ 1552}#)
+ (#{make-syntax-object\ 340}#
+ (#{syntax-object-expression\ 344}# #{x\ 1552}#)
+ (#{join-wraps\ 424}#
+ #{w\ 1553}#
+ (#{syntax-object-wrap\ 346}# #{x\ 1552}#))
+ (#{syntax-object-module\ 348}# #{x\ 1552}#))
+ (if (null? #{x\ 1552}#)
+ #{x\ 1552}#
+ (#{make-syntax-object\ 340}#
+ #{x\ 1552}#
+ #{w\ 1553}#
+ #{defmod\ 1554}#))))))
+ (#{source-wrap\ 444}#
+ (lambda (#{x\ 1569}#
+ #{w\ 1570}#
+ #{s\ 1571}#
+ #{defmod\ 1572}#)
+ (#{wrap\ 442}#
+ (#{decorate-source\ 296}#
+ #{x\ 1569}#
+ #{s\ 1571}#)
+ #{w\ 1570}#
+ #{defmod\ 1572}#)))
+ (#{chi-sequence\ 446}#
+ (lambda (#{body\ 1577}#
+ #{r\ 1578}#
+ #{w\ 1579}#
+ #{s\ 1580}#
+ #{mod\ 1581}#)
+ (#{build-sequence\ 330}#
+ #{s\ 1580}#
(letrec*
- ((#{distinct?\ 1482}#
- (lambda (#{ids\ 1483}#)
- (begin
- (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?\ 1482}# #{ids\ 1478}#)))))
- (#{bound-id-member?\ 444}#
- (lambda (#{x\ 1490}# #{list\ 1491}#)
- (if (not (null? #{list\ 1491}#))
+ ((#{dobody\ 1592}#
+ (lambda (#{body\ 1593}#
+ #{r\ 1594}#
+ #{w\ 1595}#
+ #{mod\ 1596}#)
+ (if (null? #{body\ 1593}#)
+ '()
+ (begin
+ (let ((#{first\ 1598}#
+ (#{chi\ 456}#
+ (car #{body\ 1593}#)
+ #{r\ 1594}#
+ #{w\ 1595}#
+ #{mod\ 1596}#)))
+ (cons #{first\ 1598}#
+ (#{dobody\ 1592}#
+ (cdr #{body\ 1593}#)
+ #{r\ 1594}#
+ #{w\ 1595}#
+ #{mod\ 1596}#))))))))
(begin
- (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\ 446}#
- (lambda (#{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#)
- (if (if (null? (car #{w\ 1501}#))
- (null? (cdr #{w\ 1501}#))
- #f)
- #{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\ 1540}#
- (lambda (#{body\ 1541}#
- #{r\ 1542}#
- #{w\ 1543}#
- #{mod\ 1544}#)
- (if (null? #{body\ 1541}#)
- '()
- (begin
- (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\ 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}#)
+ (#{dobody\ 1592}#
+ #{body\ 1577}#
+ #{r\ 1578}#
+ #{w\ 1579}#
+ #{mod\ 1581}#))))))
+ (#{chi-top-sequence\ 448}#
+ (lambda (#{body\ 1599}#
+ #{r\ 1600}#
+ #{w\ 1601}#
+ #{s\ 1602}#
+ #{m\ 1603}#
+ #{esew\ 1604}#
+ #{mod\ 1605}#)
+ (letrec*
+ ((#{scan\ 1614}#
+ (lambda (#{body\ 1615}#
+ #{r\ 1616}#
+ #{w\ 1617}#
+ #{s\ 1618}#
+ #{m\ 1619}#
+ #{esew\ 1620}#
+ #{mod\ 1621}#
+ #{exps\ 1622}#)
+ (if (null? #{body\ 1615}#)
+ #{exps\ 1622}#
+ (call-with-values
+ (lambda ()
+ (call-with-values
+ (lambda ()
+ (begin
+ (let ((#{e\ 1635}# (car #{body\ 1615}#)))
+ (#{syntax-type\ 454}#
+ #{e\ 1635}#
+ #{r\ 1616}#
+ #{w\ 1617}#
+ (begin
+ (let ((#{t\ 1638}#
+ (#{source-annotation\ 357}#
+ #{e\ 1635}#)))
+ (if #{t\ 1638}#
+ #{t\ 1638}#
+ #{s\ 1618}#)))
+ #f
+ #{mod\ 1621}#
+ #f))))
+ (lambda (#{type\ 1640}#
+ #{value\ 1641}#
+ #{e\ 1642}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ #{mod\ 1645}#)
+ (if (eqv? #{type\ 1640}# 'begin-form)
+ (let ((#{tmp\ 1653}# #{e\ 1642}#))
+ (let ((#{tmp\ 1654}#
+ ($sc-dispatch #{tmp\ 1653}# '(_))))
+ (if #{tmp\ 1654}#
+ (@apply
+ (lambda () #{exps\ 1622}#)
+ #{tmp\ 1654}#)
+ (let ((#{tmp\ 1655}#
+ ($sc-dispatch
+ #{tmp\ 1653}#
+ '(_ any . each-any))))
+ (if #{tmp\ 1655}#
+ (@apply
+ (lambda (#{e1\ 1658}# #{e2\ 1659}#)
+ (#{scan\ 1614}#
+ (cons #{e1\ 1658}# #{e2\ 1659}#)
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ #{m\ 1619}#
+ #{esew\ 1620}#
+ #{mod\ 1645}#
+ #{exps\ 1622}#))
+ #{tmp\ 1655}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1653}#))))))
+ (if (eqv? #{type\ 1640}# 'local-syntax-form)
+ (#{chi-local-syntax\ 466}#
+ #{value\ 1641}#
+ #{e\ 1642}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ #{mod\ 1645}#
+ (lambda (#{body\ 1662}#
+ #{r\ 1663}#
+ #{w\ 1664}#
+ #{s\ 1665}#
+ #{mod\ 1666}#)
+ (#{scan\ 1614}#
+ #{body\ 1662}#
+ #{r\ 1663}#
+ #{w\ 1664}#
+ #{s\ 1665}#
+ #{m\ 1619}#
+ #{esew\ 1620}#
+ #{mod\ 1666}#
+ #{exps\ 1622}#)))
+ (if (eqv? #{type\ 1640}# 'eval-when-form)
+ (let ((#{tmp\ 1673}# #{e\ 1642}#))
+ (let ((#{tmp\ 1674}#
+ ($sc-dispatch
+ #{tmp\ 1673}#
+ '(_ each-any any . each-any))))
+ (if #{tmp\ 1674}#
+ (@apply
+ (lambda (#{x\ 1678}#
+ #{e1\ 1679}#
+ #{e2\ 1680}#)
+ (begin
+ (let ((#{when-list\ 1683}#
+ (#{chi-when-list\ 452}#
+ #{e\ 1642}#
+ #{x\ 1678}#
+ #{w\ 1643}#))
+ (#{body\ 1684}#
+ (cons #{e1\ 1679}#
+ #{e2\ 1680}#)))
+ (if (eq? #{m\ 1619}# 'e)
+ (if (memq 'eval
+ #{when-list\ 1683}#)
+ (#{scan\ 1614}#
+ #{body\ 1684}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ (if (memq 'expand
+ #{when-list\ 1683}#)
+ 'c&e
+ 'e)
+ '(eval)
+ #{mod\ 1645}#
+ #{exps\ 1622}#)
+ (begin
+ (if (memq 'expand
+ #{when-list\ 1683}#)
+ (#{top-level-eval-hook\ 287}#
+ (#{chi-top-sequence\ 448}#
+ #{body\ 1684}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ 'e
+ '(eval)
+ #{mod\ 1645}#)
+ #{mod\ 1645}#))
+ #{exps\ 1622}#))
+ (if (memq 'load
+ #{when-list\ 1683}#)
+ (if (begin
+ (let ((#{t\ 1693}#
+ (memq 'compile
+ #{when-list\ 1683}#)))
+ (if #{t\ 1693}#
+ #{t\ 1693}#
+ (begin
+ (let ((#{t\ 1696}#
+ (memq 'expand
+ #{when-list\ 1683}#)))
+ (if #{t\ 1696}#
+ #{t\ 1696}#
+ (if (eq? #{m\ 1619}#
+ 'c&e)
+ (memq 'eval
+ #{when-list\ 1683}#)
+ #f)))))))
+ (#{scan\ 1614}#
+ #{body\ 1684}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ 'c&e
+ '(compile load)
+ #{mod\ 1645}#
+ #{exps\ 1622}#)
+ (if (if (eq? #{m\ 1619}#
+ 'c)
+ #t
+ (eq? #{m\ 1619}#
+ 'c&e))
+ (#{scan\ 1614}#
+ #{body\ 1684}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ 'c
+ '(load)
+ #{mod\ 1645}#
+ #{exps\ 1622}#)
+ #{exps\ 1622}#))
+ (if (begin
+ (let ((#{t\ 1704}#
+ (memq 'compile
+ #{when-list\ 1683}#)))
+ (if #{t\ 1704}#
+ #{t\ 1704}#
+ (begin
+ (let ((#{t\ 1707}#
+ (memq 'expand
+ #{when-list\ 1683}#)))
+ (if #{t\ 1707}#
+ #{t\ 1707}#
+ (if (eq? #{m\ 1619}#
+ 'c&e)
+ (memq 'eval
+ #{when-list\ 1683}#)
+ #f)))))))
(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}#)))
+ (#{top-level-eval-hook\ 287}#
+ (#{chi-top-sequence\ 448}#
+ #{body\ 1684}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ 'e
+ '(eval)
+ #{mod\ 1645}#)
+ #{mod\ 1645}#)
+ #{exps\ 1622}#)
+ #{exps\ 1622}#))))))
+ #{tmp\ 1674}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1673}#))))
+ (if (eqv? #{type\ 1640}# 'define-syntax-form)
+ (begin
+ (let ((#{n\ 1715}#
+ (#{id-var-name\ 430}#
+ #{value\ 1641}#
+ #{w\ 1643}#))
+ (#{r\ 1716}#
+ (#{macros-only-env\ 368}#
+ #{r\ 1616}#)))
+ (if (eqv? #{m\ 1619}# 'c)
+ (if (memq 'compile #{esew\ 1620}#)
+ (begin
+ (let ((#{e\ 1719}#
+ (#{chi-install-global\ 450}#
+ #{n\ 1715}#
+ (#{chi\ 456}#
+ #{e\ 1642}#
+ #{r\ 1716}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))))
+ (begin
+ (#{top-level-eval-hook\ 287}#
+ #{e\ 1719}#
+ #{mod\ 1645}#)
+ (if (memq 'load
+ #{esew\ 1620}#)
+ (cons #{e\ 1719}#
+ #{exps\ 1622}#)
+ #{exps\ 1622}#))))
+ (if (memq 'load #{esew\ 1620}#)
+ (cons (#{chi-install-global\ 450}#
+ #{n\ 1715}#
+ (#{chi\ 456}#
+ #{e\ 1642}#
+ #{r\ 1716}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))
+ #{exps\ 1622}#)
+ #{exps\ 1622}#))
+ (if (eqv? #{m\ 1619}# 'c&e)
(begin
- (let ((#{type\ 1677}#
- (car (#{lookup\ 374}#
- #{n\ 1675}#
- #{r\ 1564}#
- #{mod\ 1593}#))))
- (if (if (eqv? #{type\ 1677}#
- 'global)
+ (let ((#{e\ 1722}#
+ (#{chi-install-global\ 450}#
+ #{n\ 1715}#
+ (#{chi\ 456}#
+ #{e\ 1642}#
+ #{r\ 1716}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))))
+ (begin
+ (#{top-level-eval-hook\ 287}#
+ #{e\ 1722}#
+ #{mod\ 1645}#)
+ (cons #{e\ 1722}#
+ #{exps\ 1622}#))))
+ (begin
+ (if (memq 'eval #{esew\ 1620}#)
+ (#{top-level-eval-hook\ 287}#
+ (#{chi-install-global\ 450}#
+ #{n\ 1715}#
+ (#{chi\ 456}#
+ #{e\ 1642}#
+ #{r\ 1716}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))
+ #{mod\ 1645}#))
+ #{exps\ 1622}#)))))
+ (if (eqv? #{type\ 1640}# 'define-form)
+ (begin
+ (let ((#{n\ 1727}#
+ (#{id-var-name\ 430}#
+ #{value\ 1641}#
+ #{w\ 1643}#)))
+ (begin
+ (let ((#{type\ 1729}#
+ (car (#{lookup\ 370}#
+ #{n\ 1727}#
+ #{r\ 1616}#
+ #{mod\ 1645}#))))
+ (if (if (eqv? #{type\ 1729}#
+ 'global)
+ #t
+ (if (eqv? #{type\ 1729}#
+ 'core)
#t
- (if (eqv? #{type\ 1677}#
- 'core)
+ (if (eqv? #{type\ 1729}#
+ 'macro)
#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)
+ (eqv? #{type\ 1729}#
+ 'module-ref))))
(begin
- (let ((#{x\ 1693}#
- (#{chi-expr\ 462}#
- #{type\ 1588}#
- #{value\ 1589}#
- #{e\ 1590}#
- #{r\ 1564}#
- #{w\ 1591}#
- #{s\ 1592}#
- #{mod\ 1593}#)))
+ (if (if (if (eq? #{m\ 1619}#
+ 'c)
+ #t
+ (eq? #{m\ 1619}#
+ 'c&e))
+ (if (not (module-local-variable
+ (current-module)
+ #{n\ 1727}#))
+ (current-module)
+ #f)
+ #f)
(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}#
+ (let ((#{old\ 1736}#
+ (module-variable
+ (current-module)
+ #{n\ 1727}#)))
+ (if (if (variable?
+ #{old\ 1736}#)
+ (variable-bound?
+ #{old\ 1736}#)
+ #f)
+ (module-define!
+ (current-module)
+ #{n\ 1727}#
+ (variable-ref
+ #{old\ 1736}#))
+ (module-add!
+ (current-module)
+ #{n\ 1727}#
+ (make-undefined-variable))))))
+ (cons (if (eq? #{m\ 1619}#
+ 'c&e)
+ (begin
+ (let ((#{x\ 1740}#
+ (#{build-global-definition\ 318}#
+ #{s\ 1644}#
+ #{n\ 1727}#
+ (#{chi\ 456}#
+ #{e\ 1642}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))))
+ (begin
+ (#{top-level-eval-hook\ 287}#
+ #{x\ 1740}#
+ #{mod\ 1645}#)
+ #{x\ 1740}#)))
+ (lambda ()
+ (#{build-global-definition\ 318}#
+ #{s\ 1644}#
+ #{n\ 1727}#
+ (#{chi\ 456}#
+ #{e\ 1642}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))))
+ #{exps\ 1622}#))
+ (if (eqv? #{type\ 1729}#
+ 'displaced-lexical)
+ (syntax-violation
+ #f
+ "identifier out of context"
+ #{e\ 1642}#
+ (#{wrap\ 442}#
+ #{value\ 1641}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))
+ (syntax-violation
+ #f
+ "cannot define keyword at top level"
+ #{e\ 1642}#
+ (#{wrap\ 442}#
+ #{value\ 1641}#
+ #{w\ 1643}#
+ #{mod\ 1645}#))))))))
+ (cons (if (eq? #{m\ 1619}# 'c&e)
+ (begin
+ (let ((#{x\ 1745}#
+ (#{chi-expr\ 458}#
+ #{type\ 1640}#
+ #{value\ 1641}#
+ #{e\ 1642}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ #{mod\ 1645}#)))
+ (begin
+ (#{top-level-eval-hook\ 287}#
+ #{x\ 1745}#
+ #{mod\ 1645}#)
+ #{x\ 1745}#)))
+ (lambda ()
+ (#{chi-expr\ 458}#
+ #{type\ 1640}#
+ #{value\ 1641}#
+ #{e\ 1642}#
+ #{r\ 1616}#
+ #{w\ 1643}#
+ #{s\ 1644}#
+ #{mod\ 1645}#)))
+ #{exps\ 1622}#)))))))))
+ (lambda (#{exps\ 1746}#)
+ (#{scan\ 1614}#
+ (cdr #{body\ 1615}#)
+ #{r\ 1616}#
+ #{w\ 1617}#
+ #{s\ 1618}#
+ #{m\ 1619}#
+ #{esew\ 1620}#
+ #{mod\ 1621}#
+ #{exps\ 1746}#)))))))
+ (begin
+ (call-with-values
+ (lambda ()
+ (#{scan\ 1614}#
+ #{body\ 1599}#
+ #{r\ 1600}#
+ #{w\ 1601}#
+ #{s\ 1602}#
+ #{m\ 1603}#
+ #{esew\ 1604}#
+ #{mod\ 1605}#
+ '()))
+ (lambda (#{exps\ 1748}#)
+ (if (null? #{exps\ 1748}#)
+ (#{build-void\ 300}# #{s\ 1602}#)
+ (#{build-sequence\ 330}#
+ #{s\ 1602}#
+ (letrec*
+ ((#{lp\ 1753}#
+ (lambda (#{in\ 1754}# #{out\ 1755}#)
+ (if (null? #{in\ 1754}#)
+ #{out\ 1755}#
+ (begin
+ (let ((#{e\ 1757}# (car #{in\ 1754}#)))
+ (#{lp\ 1753}#
+ (cdr #{in\ 1754}#)
+ (cons (if (procedure? #{e\ 1757}#)
+ (#{e\ 1757}#)
+ #{e\ 1757}#)
+ #{out\ 1755}#))))))))
+ (begin (#{lp\ 1753}# #{exps\ 1748}# '())))))))))))
+ (#{chi-install-global\ 450}#
+ (lambda (#{name\ 1758}# #{e\ 1759}#)
+ (#{build-global-definition\ 318}#
+ #f
+ #{name\ 1758}#
+ (#{build-application\ 302}#
#f
- #{name\ 1706}#
- (#{build-application\ 306}#
+ (#{build-primref\ 326}#
#f
- (#{build-primref\ 330}#
- #f
- 'make-syntax-transformer)
- (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\ 1724}#
- (lambda (#{when-list\ 1725}# #{situations\ 1726}#)
- (if (null? #{when-list\ 1725}#)
- #{situations\ 1726}#
- (#{f\ 1724}#
- (cdr #{when-list\ 1725}#)
- (cons (begin
- (let ((#{x\ 1728}# (car #{when-list\ 1725}#)))
- (if (#{free-id=?\ 436}#
- #{x\ 1728}#
+ 'make-syntax-transformer)
+ (list (#{build-data\ 328}# #f #{name\ 1758}#)
+ (#{build-data\ 328}# #f 'macro)
+ #{e\ 1759}#)))))
+ (#{chi-when-list\ 452}#
+ (lambda (#{e\ 1767}# #{when-list\ 1768}# #{w\ 1769}#)
+ (letrec*
+ ((#{f\ 1776}#
+ (lambda (#{when-list\ 1777}# #{situations\ 1778}#)
+ (if (null? #{when-list\ 1777}#)
+ #{situations\ 1778}#
+ (#{f\ 1776}#
+ (cdr #{when-list\ 1777}#)
+ (cons (begin
+ (let ((#{x\ 1780}# (car #{when-list\ 1777}#)))
+ (if (#{free-id=?\ 432}#
+ #{x\ 1780}#
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1779"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1773" "i1774" "i1775"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1770" "i1771" "i1772"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41" "i40" "i39" "i37")))
+ (hygiene guile)))
+ 'compile
+ (if (#{free-id=?\ 432}#
+ #{x\ 1780}#
'#(syntax-object
- compile
+ load
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1727"))
+ #(ribcage #(x) #((top)) #("i1779"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1721" "i1722" "i1723"))
+ #("i1773" "i1774" "i1775"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1718" "i1719" "i1720"))
+ #("i1770" "i1771" "i1772"))
#(ribcage
(lambda-var-list
gen-var
@@ -1880,9 +2302,7 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
+ ("i485"
"i483"
"i481"
"i479"
@@ -1915,14 +2335,14 @@
"i425"
"i423"
"i421"
- "i420"
"i419"
"i417"
"i416"
"i415"
- "i414"
"i413"
+ "i412"
"i411"
+ "i410"
"i409"
"i407"
"i405"
@@ -1930,33 +2350,33 @@
"i401"
"i399"
"i397"
- "i394"
- "i392"
- "i391"
+ "i395"
+ "i393"
"i390"
- "i389"
"i388"
"i387"
"i386"
"i385"
"i384"
+ "i383"
"i382"
"i381"
- "i379"
+ "i380"
+ "i378"
"i377"
"i375"
"i373"
"i371"
"i369"
"i367"
- "i366"
"i365"
- "i364"
"i363"
"i362"
+ "i361"
"i360"
"i359"
- "i357"
+ "i358"
+ "i356"
"i355"
"i353"
"i351"
@@ -1988,12 +2408,14 @@
"i299"
"i297"
"i295"
- "i294"
- "i292"
+ "i293"
+ "i291"
"i290"
"i288"
"i286"
+ "i285"
"i284"
+ "i283"
"i282"
"i280"
"i278"
@@ -2024,11 +2446,11 @@
((top) (top) (top) (top))
("i41" "i40" "i39" "i37")))
(hygiene guile)))
- 'compile
- (if (#{free-id=?\ 436}#
- #{x\ 1728}#
+ 'load
+ (if (#{free-id=?\ 432}#
+ #{x\ 1780}#
'#(syntax-object
- load
+ eval
((top)
#(ribcage () () ())
#(ribcage () () ())
@@ -2036,17 +2458,17 @@
#(ribcage
#(x)
#((top))
- #("i1727"))
+ #("i1779"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1721" "i1722" "i1723"))
+ #("i1773" "i1774" "i1775"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1718" "i1719" "i1720"))
+ #("i1770" "i1771" "i1772"))
#(ribcage
(lambda-var-list
gen-var
@@ -2320,9 +2742,7 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
+ ("i485"
"i483"
"i481"
"i479"
@@ -2355,14 +2775,14 @@
"i425"
"i423"
"i421"
- "i420"
"i419"
"i417"
"i416"
"i415"
- "i414"
"i413"
+ "i412"
"i411"
+ "i410"
"i409"
"i407"
"i405"
@@ -2370,33 +2790,33 @@
"i401"
"i399"
"i397"
- "i394"
- "i392"
- "i391"
+ "i395"
+ "i393"
"i390"
- "i389"
"i388"
"i387"
"i386"
"i385"
"i384"
+ "i383"
"i382"
"i381"
- "i379"
+ "i380"
+ "i378"
"i377"
"i375"
"i373"
"i371"
"i369"
"i367"
- "i366"
"i365"
- "i364"
"i363"
"i362"
+ "i361"
"i360"
"i359"
- "i357"
+ "i358"
+ "i356"
"i355"
"i353"
"i351"
@@ -2428,12 +2848,14 @@
"i299"
"i297"
"i295"
- "i294"
- "i292"
+ "i293"
+ "i291"
"i290"
"i288"
"i286"
+ "i285"
"i284"
+ "i283"
"i282"
"i280"
"i278"
@@ -2464,11 +2886,11 @@
((top) (top) (top) (top))
("i41" "i40" "i39" "i37")))
(hygiene guile)))
- 'load
- (if (#{free-id=?\ 436}#
- #{x\ 1728}#
+ 'eval
+ (if (#{free-id=?\ 432}#
+ #{x\ 1780}#
'#(syntax-object
- eval
+ expand
((top)
#(ribcage () () ())
#(ribcage () () ())
@@ -2476,17 +2898,17 @@
#(ribcage
#(x)
#((top))
- #("i1727"))
+ #("i1779"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1721" "i1722" "i1723"))
+ #("i1773" "i1774" "i1775"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1718" "i1719" "i1720"))
+ #("i1770" "i1771" "i1772"))
#(ribcage
(lambda-var-list
gen-var
@@ -2760,9 +3182,7 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
+ ("i485"
"i483"
"i481"
"i479"
@@ -2795,14 +3215,14 @@
"i425"
"i423"
"i421"
- "i420"
"i419"
"i417"
"i416"
"i415"
- "i414"
"i413"
+ "i412"
"i411"
+ "i410"
"i409"
"i407"
"i405"
@@ -2810,33 +3230,33 @@
"i401"
"i399"
"i397"
- "i394"
- "i392"
- "i391"
+ "i395"
+ "i393"
"i390"
- "i389"
"i388"
"i387"
"i386"
"i385"
"i384"
+ "i383"
"i382"
"i381"
- "i379"
+ "i380"
+ "i378"
"i377"
"i375"
"i373"
"i371"
"i369"
"i367"
- "i366"
"i365"
- "i364"
"i363"
"i362"
+ "i361"
"i360"
"i359"
- "i357"
+ "i358"
+ "i356"
"i355"
"i353"
"i351"
@@ -2868,12 +3288,14 @@
"i299"
"i297"
"i295"
- "i294"
- "i292"
+ "i293"
+ "i291"
"i290"
"i288"
"i286"
+ "i285"
"i284"
+ "i283"
"i282"
"i280"
"i278"
@@ -2904,7349 +3326,7833 @@
((top) (top) (top) (top))
("i41" "i40" "i39" "i37")))
(hygiene guile)))
- 'eval
- (if (#{free-id=?\ 436}#
- #{x\ 1728}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1727"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1721" "i1722" "i1723"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1718" "i1719" "i1720"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e\ 1715}#
- (#{wrap\ 446}#
- #{x\ 1728}#
- #{w\ 1717}#
- #f))))))))
- #{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\ 1756}#
- (#{id-var-name\ 434}# #{e\ 1738}# #{w\ 1740}#)))
- (begin
- (let ((#{b\ 1758}#
- (#{lookup\ 374}#
- #{n\ 1756}#
- #{r\ 1739}#
- #{mod\ 1743}#)))
- (begin
- (let ((#{type\ 1760}# (car #{b\ 1758}#)))
- (if (eqv? #{type\ 1760}# 'lexical)
- (values
- #{type\ 1760}#
- (cdr #{b\ 1758}#)
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (if (eqv? #{type\ 1760}# 'global)
- (values
- #{type\ 1760}#
- #{n\ 1756}#
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (if (eqv? #{type\ 1760}# 'macro)
- (if #{for-car?\ 1744}#
- (values
- #{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\ 1741}#
- #{rib\ 1742}#
- #{mod\ 1743}#
- #f))
- (values
- #{type\ 1760}#
- (cdr #{b\ 1758}#)
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#))))))))))
- (if (pair? #{e\ 1738}#)
+ 'expand
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e\ 1767}#
+ (#{wrap\ 442}#
+ #{x\ 1780}#
+ #{w\ 1769}#
+ #f))))))))
+ #{situations\ 1778}#))))))
+ (begin (#{f\ 1776}# #{when-list\ 1768}# '())))))
+ (#{syntax-type\ 454}#
+ (lambda (#{e\ 1790}#
+ #{r\ 1791}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{rib\ 1794}#
+ #{mod\ 1795}#
+ #{for-car?\ 1796}#)
+ (if (symbol? #{e\ 1790}#)
+ (begin
+ (let ((#{n\ 1808}#
+ (#{id-var-name\ 430}# #{e\ 1790}# #{w\ 1792}#)))
(begin
- (let ((#{first\ 1774}# (car #{e\ 1738}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type\ 458}#
- #{first\ 1774}#
- #{r\ 1739}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{rib\ 1742}#
- #{mod\ 1743}#
- #t))
- (lambda (#{ftype\ 1775}#
- #{fval\ 1776}#
- #{fe\ 1777}#
- #{fw\ 1778}#
- #{fs\ 1779}#
- #{fmod\ 1780}#)
- (if (eqv? #{ftype\ 1775}# 'lexical)
+ (let ((#{b\ 1810}#
+ (#{lookup\ 370}#
+ #{n\ 1808}#
+ #{r\ 1791}#
+ #{mod\ 1795}#)))
+ (begin
+ (let ((#{type\ 1812}# (car #{b\ 1810}#)))
+ (if (eqv? #{type\ 1812}# 'lexical)
(values
- 'lexical-call
- #{fval\ 1776}#
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (if (eqv? #{ftype\ 1775}# 'global)
+ #{type\ 1812}#
+ (cdr #{b\ 1810}#)
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{type\ 1812}# 'global)
(values
- 'global-call
- (#{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\ 1741}#
- #{rib\ 1742}#
- #{mod\ 1743}#
- #{for-car?\ 1744}#)
- (if (eqv? #{ftype\ 1775}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{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)
+ #{type\ 1812}#
+ #{n\ 1808}#
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{type\ 1812}# 'macro)
+ (if #{for-car?\ 1796}#
+ (values
+ #{type\ 1812}#
+ (cdr #{b\ 1810}#)
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (#{syntax-type\ 454}#
+ (#{chi-macro\ 462}#
+ (cdr #{b\ 1810}#)
+ #{e\ 1790}#
+ #{r\ 1791}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{rib\ 1794}#
+ #{mod\ 1795}#)
+ #{r\ 1791}#
+ '(())
+ #{s\ 1793}#
+ #{rib\ 1794}#
+ #{mod\ 1795}#
+ #f))
+ (values
+ #{type\ 1812}#
+ (cdr #{b\ 1810}#)
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#))))))))))
+ (if (pair? #{e\ 1790}#)
+ (begin
+ (let ((#{first\ 1826}# (car #{e\ 1790}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type\ 454}#
+ #{first\ 1826}#
+ #{r\ 1791}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{rib\ 1794}#
+ #{mod\ 1795}#
+ #t))
+ (lambda (#{ftype\ 1827}#
+ #{fval\ 1828}#
+ #{fe\ 1829}#
+ #{fw\ 1830}#
+ #{fs\ 1831}#
+ #{fmod\ 1832}#)
+ (if (eqv? #{ftype\ 1827}# 'lexical)
+ (values
+ 'lexical-call
+ #{fval\ 1828}#
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{ftype\ 1827}# 'global)
+ (values
+ 'global-call
+ (#{make-syntax-object\ 340}#
+ #{fval\ 1828}#
+ #{w\ 1792}#
+ #{fmod\ 1832}#)
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{ftype\ 1827}# 'macro)
+ (#{syntax-type\ 454}#
+ (#{chi-macro\ 462}#
+ #{fval\ 1828}#
+ #{e\ 1790}#
+ #{r\ 1791}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{rib\ 1794}#
+ #{mod\ 1795}#)
+ #{r\ 1791}#
+ '(())
+ #{s\ 1793}#
+ #{rib\ 1794}#
+ #{mod\ 1795}#
+ #{for-car?\ 1796}#)
+ (if (eqv? #{ftype\ 1827}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{fval\ 1828}#
+ #{e\ 1790}#
+ #{r\ 1791}#
+ #{w\ 1792}#))
+ (lambda (#{e\ 1844}#
+ #{r\ 1845}#
+ #{w\ 1846}#
+ #{s\ 1847}#
+ #{mod\ 1848}#)
+ (#{syntax-type\ 454}#
+ #{e\ 1844}#
+ #{r\ 1845}#
+ #{w\ 1846}#
+ #{s\ 1847}#
+ #{rib\ 1794}#
+ #{mod\ 1848}#
+ #{for-car?\ 1796}#)))
+ (if (eqv? #{ftype\ 1827}# 'core)
+ (values
+ 'core-form
+ #{fval\ 1828}#
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{ftype\ 1827}# 'local-syntax)
(values
- 'core-form
- #{fval\ 1776}#
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (if (eqv? #{ftype\ 1775}# 'local-syntax)
+ 'local-syntax-form
+ #{fval\ 1828}#
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{ftype\ 1827}# 'begin)
(values
- 'local-syntax-form
- #{fval\ 1776}#
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (if (eqv? #{ftype\ 1775}# 'begin)
+ 'begin-form
+ #f
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{ftype\ 1827}# 'eval-when)
(values
- 'begin-form
+ 'eval-when-form
#f
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (if (eqv? #{ftype\ 1775}# 'eval-when)
- (values
- 'eval-when-form
- #f
- #{e\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (if (eqv? #{ftype\ 1775}# 'define)
- (let ((#{tmp\ 1807}# #{e\ 1738}#))
- (let ((#{tmp\ 1808}#
- ($sc-dispatch
- #{tmp\ 1807}#
- '(_ any any))))
- (if (if #{tmp\ 1808}#
- (@apply
- (lambda (#{name\ 1811}#
- #{val\ 1812}#)
- (#{id?\ 380}#
- #{name\ 1811}#))
- #{tmp\ 1808}#)
- #f)
- (@apply
- (lambda (#{name\ 1815}#
- #{val\ 1816}#)
- (values
- 'define-form
- #{name\ 1815}#
- #{val\ 1816}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#))
- #{tmp\ 1808}#)
- (let ((#{tmp\ 1817}#
- ($sc-dispatch
- #{tmp\ 1807}#
- '(_ (any . any)
- any
- .
- each-any))))
- (if (if #{tmp\ 1817}#
- (@apply
- (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\ 1817}#)
- #f)
- (@apply
- (lambda (#{name\ 1832}#
- #{args\ 1833}#
- #{e1\ 1834}#
- #{e2\ 1835}#)
- (values
- 'define-form
- (#{wrap\ 446}#
- #{name\ 1832}#
- #{w\ 1740}#
- #{mod\ 1743}#)
- (#{decorate-source\ 300}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(name
- args
- e1
- e2)
- #((top)
- (top)
- (top)
- (top))
- #("i1828"
- "i1829"
- "i1830"
- "i1831"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1773"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1745"
- "i1746"
- "i1747"
- "i1748"
- "i1749"
- "i1750"
- "i1751"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile))
- (#{wrap\ 446}#
- (cons #{args\ 1833}#
- (cons #{e1\ 1834}#
- #{e2\ 1835}#))
- #{w\ 1740}#
- #{mod\ 1743}#))
- #{s\ 1741}#)
- '(())
- #{s\ 1741}#
- #{mod\ 1743}#))
- #{tmp\ 1817}#)
- (let ((#{tmp\ 1838}#
- ($sc-dispatch
- #{tmp\ 1807}#
- '(_ any))))
- (if (if #{tmp\ 1838}#
- (@apply
- (lambda (#{name\ 1840}#)
- (#{id?\ 380}#
- #{name\ 1840}#))
- #{tmp\ 1838}#)
- #f)
- (@apply
- (lambda (#{name\ 1842}#)
- (values
- 'define-form
- (#{wrap\ 446}#
- #{name\ 1842}#
- #{w\ 1740}#
- #{mod\ 1743}#)
- '(#(syntax-object
- if
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1841"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (if (eqv? #{ftype\ 1827}# 'define)
+ (let ((#{tmp\ 1859}# #{e\ 1790}#))
+ (let ((#{tmp\ 1860}#
+ ($sc-dispatch
+ #{tmp\ 1859}#
+ '(_ any any))))
+ (if (if #{tmp\ 1860}#
+ (@apply
+ (lambda (#{name\ 1863}#
+ #{val\ 1864}#)
+ (#{id?\ 376}#
+ #{name\ 1863}#))
+ #{tmp\ 1860}#)
+ #f)
+ (@apply
+ (lambda (#{name\ 1867}#
+ #{val\ 1868}#)
+ (values
+ 'define-form
+ #{name\ 1867}#
+ #{val\ 1868}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#))
+ #{tmp\ 1860}#)
+ (let ((#{tmp\ 1869}#
+ ($sc-dispatch
+ #{tmp\ 1859}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp\ 1869}#
+ (@apply
+ (lambda (#{name\ 1874}#
+ #{args\ 1875}#
+ #{e1\ 1876}#
+ #{e2\ 1877}#)
+ (if (#{id?\ 376}#
+ #{name\ 1874}#)
+ (#{valid-bound-ids?\ 436}#
+ (#{lambda-var-list\ 486}#
+ #{args\ 1875}#))
+ #f))
+ #{tmp\ 1869}#)
+ #f)
+ (@apply
+ (lambda (#{name\ 1884}#
+ #{args\ 1885}#
+ #{e1\ 1886}#
+ #{e2\ 1887}#)
+ (values
+ 'define-form
+ (#{wrap\ 442}#
+ #{name\ 1884}#
+ #{w\ 1792}#
+ #{mod\ 1795}#)
+ (#{decorate-source\ 296}#
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i1880"
+ "i1881"
+ "i1882"
+ "i1883"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1833"
+ "i1834"
+ "i1835"
+ "i1836"
+ "i1837"
+ "i1838"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1825"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"
+ "i1802"
+ "i1803"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
(top)
(top)
(top)
(top)
- (top))
- #("i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1773"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
- (top))
- #("i1745"
- "i1746"
- "i1747"
- "i1748"
- "i1749"
- "i1750"
- "i1751"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1841"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
(top)
(top)
(top)
(top)
- (top))
- #("i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1773"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
- (top))
- #("i1745"
- "i1746"
- "i1747"
- "i1748"
- "i1749"
- "i1750"
- "i1751"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1841"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
(top)
(top)
(top)
(top)
- (top))
- #("i1781"
- "i1782"
- "i1783"
- "i1784"
- "i1785"
- "i1786"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1773"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
(top)
(top)
(top)
(top)
(top)
(top))
- #("i1745"
- "i1746"
- "i1747"
- "i1748"
- "i1749"
- "i1750"
- "i1751"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile)))
- '(())
- #{s\ 1741}#
- #{mod\ 1743}#))
- #{tmp\ 1838}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1807}#))))))))
- (if (eqv? #{ftype\ 1775}#
- 'define-syntax)
- (let ((#{tmp\ 1845}# #{e\ 1738}#))
- (let ((#{tmp\ 1846}#
- ($sc-dispatch
- #{tmp\ 1845}#
- '(_ any any))))
- (if (if #{tmp\ 1846}#
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41"
+ "i40"
+ "i39"
+ "i37")))
+ (hygiene
+ guile))
+ (#{wrap\ 442}#
+ (cons #{args\ 1885}#
+ (cons #{e1\ 1886}#
+ #{e2\ 1887}#))
+ #{w\ 1792}#
+ #{mod\ 1795}#))
+ #{s\ 1793}#)
+ '(())
+ #{s\ 1793}#
+ #{mod\ 1795}#))
+ #{tmp\ 1869}#)
+ (let ((#{tmp\ 1890}#
+ ($sc-dispatch
+ #{tmp\ 1859}#
+ '(_ any))))
+ (if (if #{tmp\ 1890}#
+ (@apply
+ (lambda (#{name\ 1892}#)
+ (#{id?\ 376}#
+ #{name\ 1892}#))
+ #{tmp\ 1890}#)
+ #f)
(@apply
- (lambda (#{name\ 1849}#
- #{val\ 1850}#)
- (#{id?\ 380}#
- #{name\ 1849}#))
- #{tmp\ 1846}#)
- #f)
- (@apply
- (lambda (#{name\ 1853}#
- #{val\ 1854}#)
- (values
- 'define-syntax-form
- #{name\ 1853}#
- #{val\ 1854}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#))
- #{tmp\ 1846}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 1845}#))))
- (values
- 'call
- #f
- #{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\ 1860}#
- (#{source-annotation\ 361}# #{e\ 1738}#)))
- (if #{t\ 1860}# #{t\ 1860}# #{s\ 1741}#)))
- #{rib\ 1742}#
+ (lambda (#{name\ 1894}#)
+ (values
+ 'define-form
+ (#{wrap\ 442}#
+ #{name\ 1894}#
+ #{w\ 1792}#
+ #{mod\ 1795}#)
+ '(#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1893"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1833"
+ "i1834"
+ "i1835"
+ "i1836"
+ "i1837"
+ "i1838"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1825"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"
+ "i1802"
+ "i1803"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41"
+ "i40"
+ "i39"
+ "i37")))
+ (hygiene
+ guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1893"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1833"
+ "i1834"
+ "i1835"
+ "i1836"
+ "i1837"
+ "i1838"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1825"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"
+ "i1802"
+ "i1803"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41"
+ "i40"
+ "i39"
+ "i37")))
+ (hygiene
+ guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1893"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1833"
+ "i1834"
+ "i1835"
+ "i1836"
+ "i1837"
+ "i1838"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1825"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"
+ "i1802"
+ "i1803"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41"
+ "i40"
+ "i39"
+ "i37")))
+ (hygiene
+ guile)))
+ '(())
+ #{s\ 1793}#
+ #{mod\ 1795}#))
+ #{tmp\ 1890}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1859}#))))))))
+ (if (eqv? #{ftype\ 1827}#
+ 'define-syntax)
+ (let ((#{tmp\ 1897}# #{e\ 1790}#))
+ (let ((#{tmp\ 1898}#
+ ($sc-dispatch
+ #{tmp\ 1897}#
+ '(_ any any))))
+ (if (if #{tmp\ 1898}#
+ (@apply
+ (lambda (#{name\ 1901}#
+ #{val\ 1902}#)
+ (#{id?\ 376}#
+ #{name\ 1901}#))
+ #{tmp\ 1898}#)
+ #f)
+ (@apply
+ (lambda (#{name\ 1905}#
+ #{val\ 1906}#)
+ (values
+ 'define-syntax-form
+ #{name\ 1905}#
+ #{val\ 1906}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#))
+ #{tmp\ 1898}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1897}#))))
+ (values
+ 'call
+ #f
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)))))))))))))))
+ (if (#{syntax-object?\ 342}# #{e\ 1790}#)
+ (#{syntax-type\ 454}#
+ (#{syntax-object-expression\ 344}# #{e\ 1790}#)
+ #{r\ 1791}#
+ (#{join-wraps\ 424}#
+ #{w\ 1792}#
+ (#{syntax-object-wrap\ 346}# #{e\ 1790}#))
+ (begin
+ (let ((#{t\ 1912}#
+ (#{source-annotation\ 357}# #{e\ 1790}#)))
+ (if #{t\ 1912}# #{t\ 1912}# #{s\ 1793}#)))
+ #{rib\ 1794}#
+ (begin
+ (let ((#{t\ 1916}#
+ (#{syntax-object-module\ 348}# #{e\ 1790}#)))
+ (if #{t\ 1916}# #{t\ 1916}# #{mod\ 1795}#)))
+ #{for-car?\ 1796}#)
+ (if (self-evaluating? #{e\ 1790}#)
+ (values
+ 'constant
+ #f
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)
+ (values
+ 'other
+ #f
+ #{e\ 1790}#
+ #{w\ 1792}#
+ #{s\ 1793}#
+ #{mod\ 1795}#)))))))
+ (#{chi\ 456}#
+ (lambda (#{e\ 1921}#
+ #{r\ 1922}#
+ #{w\ 1923}#
+ #{mod\ 1924}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type\ 454}#
+ #{e\ 1921}#
+ #{r\ 1922}#
+ #{w\ 1923}#
+ (#{source-annotation\ 357}# #{e\ 1921}#)
+ #f
+ #{mod\ 1924}#
+ #f))
+ (lambda (#{type\ 1929}#
+ #{value\ 1930}#
+ #{e\ 1931}#
+ #{w\ 1932}#
+ #{s\ 1933}#
+ #{mod\ 1934}#)
+ (#{chi-expr\ 458}#
+ #{type\ 1929}#
+ #{value\ 1930}#
+ #{e\ 1931}#
+ #{r\ 1922}#
+ #{w\ 1932}#
+ #{s\ 1933}#
+ #{mod\ 1934}#)))))
+ (#{chi-expr\ 458}#
+ (lambda (#{type\ 1941}#
+ #{value\ 1942}#
+ #{e\ 1943}#
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#)
+ (if (eqv? #{type\ 1941}# 'lexical)
+ (#{build-lexical-reference\ 308}#
+ 'value
+ #{s\ 1946}#
+ #{e\ 1943}#
+ #{value\ 1942}#)
+ (if (if (eqv? #{type\ 1941}# 'core)
+ #t
+ (eqv? #{type\ 1941}# 'core-form))
+ (#{value\ 1942}#
+ #{e\ 1943}#
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#)
+ (if (eqv? #{type\ 1941}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{value\ 1942}#
+ #{e\ 1943}#
+ #{r\ 1944}#
+ #{w\ 1945}#))
+ (lambda (#{e\ 1958}#
+ #{r\ 1959}#
+ #{w\ 1960}#
+ #{s\ 1961}#
+ #{mod\ 1962}#)
+ (#{chi\ 456}#
+ #{e\ 1958}#
+ #{r\ 1959}#
+ #{w\ 1960}#
+ #{mod\ 1962}#)))
+ (if (eqv? #{type\ 1941}# 'lexical-call)
+ (#{chi-application\ 460}#
(begin
- (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\ 1738}#
- #{w\ 1740}#
- #{s\ 1741}#
- #{mod\ 1743}#)
- (values
- 'other
- #f
- #{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\ 458}#
- #{e\ 1869}#
- #{r\ 1870}#
- #{w\ 1871}#
- (#{source-annotation\ 361}# #{e\ 1869}#)
- #f
- #{mod\ 1872}#
- #f))
- (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\ 1894}#
- #{e\ 1891}#
- #{value\ 1890}#)
- (if (if (eqv? #{type\ 1889}# 'core)
- #t
- (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\ 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\ 1918}# (car #{e\ 1891}#)))
- (#{build-lexical-reference\ 312}#
- 'fun
- (#{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\ 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\ 1925}#
- '(_ any . each-any))))
- (if #{tmp\ 1926}#
- (@apply
- (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\ 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\ 1934}#
- '(_ each-any any . each-any))))
- (if #{tmp\ 1935}#
- (@apply
- (lambda (#{x\ 1939}#
- #{e1\ 1940}#
- #{e2\ 1941}#)
- (begin
- (let ((#{when-list\ 1943}#
- (#{chi-when-list\ 456}#
- #{e\ 1891}#
- #{x\ 1939}#
- #{w\ 1893}#)))
- (if (memq 'eval
- #{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\ 1934}#))))
- (if (if (eqv? #{type\ 1889}# 'define-form)
- #t
- (eqv? #{type\ 1889}#
- 'define-syntax-form))
+ (let ((#{id\ 1970}# (car #{e\ 1943}#)))
+ (#{build-lexical-reference\ 308}#
+ 'fun
+ (#{source-annotation\ 357}# #{id\ 1970}#)
+ (if (#{syntax-object?\ 342}# #{id\ 1970}#)
+ (syntax->datum #{id\ 1970}#)
+ #{id\ 1970}#)
+ #{value\ 1942}#)))
+ #{e\ 1943}#
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#)
+ (if (eqv? #{type\ 1941}# 'global-call)
+ (#{chi-application\ 460}#
+ (#{build-global-reference\ 314}#
+ (#{source-annotation\ 357}# (car #{e\ 1943}#))
+ (if (#{syntax-object?\ 342}# #{value\ 1942}#)
+ (#{syntax-object-expression\ 344}#
+ #{value\ 1942}#)
+ #{value\ 1942}#)
+ (if (#{syntax-object?\ 342}# #{value\ 1942}#)
+ (#{syntax-object-module\ 348}# #{value\ 1942}#)
+ #{mod\ 1947}#))
+ #{e\ 1943}#
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#)
+ (if (eqv? #{type\ 1941}# 'constant)
+ (#{build-data\ 328}#
+ #{s\ 1946}#
+ (#{strip\ 482}#
+ (#{source-wrap\ 444}#
+ #{e\ 1943}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#)
+ '(())))
+ (if (eqv? #{type\ 1941}# 'global)
+ (#{build-global-reference\ 314}#
+ #{s\ 1946}#
+ #{value\ 1942}#
+ #{mod\ 1947}#)
+ (if (eqv? #{type\ 1941}# 'call)
+ (#{chi-application\ 460}#
+ (#{chi\ 456}#
+ (car #{e\ 1943}#)
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{mod\ 1947}#)
+ #{e\ 1943}#
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#)
+ (if (eqv? #{type\ 1941}# 'begin-form)
+ (let ((#{tmp\ 1977}# #{e\ 1943}#))
+ (let ((#{tmp\ 1978}#
+ ($sc-dispatch
+ #{tmp\ 1977}#
+ '(_ any . each-any))))
+ (if #{tmp\ 1978}#
+ (@apply
+ (lambda (#{e1\ 1981}# #{e2\ 1982}#)
+ (#{chi-sequence\ 446}#
+ (cons #{e1\ 1981}# #{e2\ 1982}#)
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#))
+ #{tmp\ 1978}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1977}#))))
+ (if (eqv? #{type\ 1941}# 'local-syntax-form)
+ (#{chi-local-syntax\ 466}#
+ #{value\ 1942}#
+ #{e\ 1943}#
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#
+ #{chi-sequence\ 446}#)
+ (if (eqv? #{type\ 1941}# 'eval-when-form)
+ (let ((#{tmp\ 1986}# #{e\ 1943}#))
+ (let ((#{tmp\ 1987}#
+ ($sc-dispatch
+ #{tmp\ 1986}#
+ '(_ each-any any . each-any))))
+ (if #{tmp\ 1987}#
+ (@apply
+ (lambda (#{x\ 1991}#
+ #{e1\ 1992}#
+ #{e2\ 1993}#)
+ (begin
+ (let ((#{when-list\ 1995}#
+ (#{chi-when-list\ 452}#
+ #{e\ 1943}#
+ #{x\ 1991}#
+ #{w\ 1945}#)))
+ (if (memq 'eval
+ #{when-list\ 1995}#)
+ (#{chi-sequence\ 446}#
+ (cons #{e1\ 1992}#
+ #{e2\ 1993}#)
+ #{r\ 1944}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#)
+ (#{chi-void\ 470}#)))))
+ #{tmp\ 1987}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 1986}#))))
+ (if (if (eqv? #{type\ 1941}# 'define-form)
+ #t
+ (eqv? #{type\ 1941}#
+ 'define-syntax-form))
+ (syntax-violation
+ #f
+ "definition in expression context"
+ #{e\ 1943}#
+ (#{wrap\ 442}#
+ #{value\ 1942}#
+ #{w\ 1945}#
+ #{mod\ 1947}#))
+ (if (eqv? #{type\ 1941}# 'syntax)
(syntax-violation
#f
- "definition in expression context"
- #{e\ 1891}#
- (#{wrap\ 446}#
- #{value\ 1890}#
- #{w\ 1893}#
- #{mod\ 1895}#))
- (if (eqv? #{type\ 1889}# 'syntax)
+ "reference to pattern variable outside syntax form"
+ (#{source-wrap\ 444}#
+ #{e\ 1943}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#))
+ (if (eqv? #{type\ 1941}#
+ 'displaced-lexical)
(syntax-violation
#f
- "reference to pattern variable outside syntax form"
- (#{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\ 448}#
- #{e\ 1891}#
- #{w\ 1893}#
- #{s\ 1894}#
- #{mod\ 1895}#))
- (syntax-violation
- #f
- "unexpected syntax"
- (#{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\ 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\ 1962}#))))))
- (#{chi-macro\ 466}#
- (lambda (#{p\ 1971}#
- #{e\ 1972}#
- #{r\ 1973}#
- #{w\ 1974}#
- #{s\ 1975}#
- #{rib\ 1976}#
- #{mod\ 1977}#)
- (letrec*
- ((#{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}#)
+ "reference to identifier outside its scope"
+ (#{source-wrap\ 444}#
+ #{e\ 1943}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#))
+ (syntax-violation
+ #f
+ "unexpected syntax"
+ (#{source-wrap\ 444}#
+ #{e\ 1943}#
+ #{w\ 1945}#
+ #{s\ 1946}#
+ #{mod\ 1947}#))))))))))))))))))
+ (#{chi-application\ 460}#
+ (lambda (#{x\ 2002}#
+ #{e\ 2003}#
+ #{r\ 2004}#
+ #{w\ 2005}#
+ #{s\ 2006}#
+ #{mod\ 2007}#)
+ (let ((#{tmp\ 2014}# #{e\ 2003}#))
+ (let ((#{tmp\ 2015}#
+ ($sc-dispatch #{tmp\ 2014}# '(any . each-any))))
+ (if #{tmp\ 2015}#
+ (@apply
+ (lambda (#{e0\ 2018}# #{e1\ 2019}#)
+ (#{build-application\ 302}#
+ #{s\ 2006}#
+ #{x\ 2002}#
+ (map (lambda (#{e\ 2020}#)
+ (#{chi\ 456}#
+ #{e\ 2020}#
+ #{r\ 2004}#
+ #{w\ 2005}#
+ #{mod\ 2007}#))
+ #{e1\ 2019}#)))
+ #{tmp\ 2015}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 2014}#))))))
+ (#{chi-macro\ 462}#
+ (lambda (#{p\ 2023}#
+ #{e\ 2024}#
+ #{r\ 2025}#
+ #{w\ 2026}#
+ #{s\ 2027}#
+ #{rib\ 2028}#
+ #{mod\ 2029}#)
+ (letrec*
+ ((#{rebuild-macro-output\ 2038}#
+ (lambda (#{x\ 2039}# #{m\ 2040}#)
+ (if (pair? #{x\ 2039}#)
+ (#{decorate-source\ 296}#
+ (cons (#{rebuild-macro-output\ 2038}#
+ (car #{x\ 2039}#)
+ #{m\ 2040}#)
+ (#{rebuild-macro-output\ 2038}#
+ (cdr #{x\ 2039}#)
+ #{m\ 2040}#))
+ #{s\ 2027}#)
+ (if (#{syntax-object?\ 342}# #{x\ 2039}#)
+ (begin
+ (let ((#{w\ 2048}#
+ (#{syntax-object-wrap\ 346}# #{x\ 2039}#)))
+ (begin
+ (let ((#{ms\ 2051}# (car #{w\ 2048}#))
+ (#{s\ 2052}# (cdr #{w\ 2048}#)))
+ (if (if (pair? #{ms\ 2051}#)
+ (eq? (car #{ms\ 2051}#) #f)
+ #f)
+ (#{make-syntax-object\ 340}#
+ (#{syntax-object-expression\ 344}#
+ #{x\ 2039}#)
+ (cons (cdr #{ms\ 2051}#)
+ (if #{rib\ 2028}#
+ (cons #{rib\ 2028}#
+ (cdr #{s\ 2052}#))
+ (cdr #{s\ 2052}#)))
+ (#{syntax-object-module\ 348}# #{x\ 2039}#))
+ (#{make-syntax-object\ 340}#
+ (#{decorate-source\ 296}#
+ (#{syntax-object-expression\ 344}#
+ #{x\ 2039}#)
+ #{s\ 2052}#)
+ (cons (cons #{m\ 2040}# #{ms\ 2051}#)
+ (if #{rib\ 2028}#
+ (cons #{rib\ 2028}#
+ (cons 'shift #{s\ 2052}#))
+ (cons 'shift #{s\ 2052}#)))
+ (#{syntax-object-module\ 348}#
+ #{x\ 2039}#)))))))
+ (if (vector? #{x\ 2039}#)
(begin
- (let ((#{w\ 1996}#
- (#{syntax-object-wrap\ 350}# #{x\ 1987}#)))
+ (let ((#{n\ 2064}# (vector-length #{x\ 2039}#)))
(begin
- (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\ 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\ 2012}# (vector-length #{x\ 1987}#)))
- (begin
- (let ((#{v\ 2014}#
- (#{decorate-source\ 300}#
- (make-vector #{n\ 2012}#)
- #{x\ 1987}#)))
- (letrec*
- ((#{loop\ 2017}#
- (lambda (#{i\ 2018}#)
- (if (#{fx=\ 287}#
- #{i\ 2018}#
- #{n\ 2012}#)
- (begin (if #f #f) #{v\ 2014}#)
- (begin
- (vector-set!
- #{v\ 2014}#
- #{i\ 2018}#
- (#{rebuild-macro-output\ 1986}#
- (vector-ref
- #{x\ 1987}#
- #{i\ 2018}#)
- #{m\ 1988}#))
- (#{loop\ 2017}#
- (#{fx+\ 283}#
- #{i\ 2018}#
- 1)))))))
- (begin (#{loop\ 2017}# 0)))))))
- (if (symbol? #{x\ 1987}#)
- (syntax-violation
- #f
- "encountered raw symbol in macro output"
- (#{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\ 1986}#
- (#{p\ 1971}#
- (#{source-wrap\ 448}#
- #{e\ 1972}#
- (#{anti-mark\ 418}# #{w\ 1974}#)
- #{s\ 1975}#
- #{mod\ 1977}#))
- (gensym "m"))))))
- (#{chi-body\ 468}#
- (lambda (#{body\ 2026}#
- #{outer-form\ 2027}#
- #{r\ 2028}#
- #{w\ 2029}#
- #{mod\ 2030}#)
+ (let ((#{v\ 2066}#
+ (#{decorate-source\ 296}#
+ (make-vector #{n\ 2064}#)
+ #{x\ 2039}#)))
+ (letrec*
+ ((#{loop\ 2069}#
+ (lambda (#{i\ 2070}#)
+ (if (= #{i\ 2070}# #{n\ 2064}#)
+ (begin (if #f #f) #{v\ 2066}#)
+ (begin
+ (vector-set!
+ #{v\ 2066}#
+ #{i\ 2070}#
+ (#{rebuild-macro-output\ 2038}#
+ (vector-ref
+ #{x\ 2039}#
+ #{i\ 2070}#)
+ #{m\ 2040}#))
+ (#{loop\ 2069}#
+ (1+ #{i\ 2070}#)))))))
+ (begin (#{loop\ 2069}# 0)))))))
+ (if (symbol? #{x\ 2039}#)
+ (syntax-violation
+ #f
+ "encountered raw symbol in macro output"
+ (#{source-wrap\ 444}#
+ #{e\ 2024}#
+ #{w\ 2026}#
+ (cdr #{w\ 2026}#)
+ #{mod\ 2029}#)
+ #{x\ 2039}#)
+ (#{decorate-source\ 296}#
+ #{x\ 2039}#
+ #{s\ 2027}#))))))))
(begin
- (let ((#{r\ 2038}#
- (cons '("placeholder" placeholder) #{r\ 2028}#)))
- (begin
- (let ((#{ribcage\ 2040}#
- (#{make-ribcage\ 398}# '() '() '())))
- (begin
- (let ((#{w\ 2043}#
- (cons (car #{w\ 2029}#)
- (cons #{ribcage\ 2040}#
- (cdr #{w\ 2029}#)))))
- (letrec*
- ((#{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\ 2027}#)
- (begin
- (let ((#{e\ 2067}#
- (cdr (car #{body\ 2056}#)))
- (#{er\ 2068}#
- (car (car #{body\ 2056}#))))
- (call-with-values
- (lambda ()
- (#{syntax-type\ 458}#
- #{e\ 2067}#
- #{er\ 2068}#
- '(())
- (#{source-annotation\ 361}#
- #{er\ 2068}#)
- #{ribcage\ 2040}#
- #{mod\ 2030}#
- #f))
- (lambda (#{type\ 2070}#
- #{value\ 2071}#
- #{e\ 2072}#
- #{w\ 2073}#
- #{s\ 2074}#
- #{mod\ 2075}#)
- (if (eqv? #{type\ 2070}#
- 'define-form)
+ (#{rebuild-macro-output\ 2038}#
+ (#{p\ 2023}#
+ (#{source-wrap\ 444}#
+ #{e\ 2024}#
+ (#{anti-mark\ 414}# #{w\ 2026}#)
+ #{s\ 2027}#
+ #{mod\ 2029}#))
+ (gensym "m"))))))
+ (#{chi-body\ 464}#
+ (lambda (#{body\ 2080}#
+ #{outer-form\ 2081}#
+ #{r\ 2082}#
+ #{w\ 2083}#
+ #{mod\ 2084}#)
+ (begin
+ (let ((#{r\ 2092}#
+ (cons '("placeholder" placeholder) #{r\ 2082}#)))
+ (begin
+ (let ((#{ribcage\ 2094}#
+ (#{make-ribcage\ 394}# '() '() '())))
+ (begin
+ (let ((#{w\ 2097}#
+ (cons (car #{w\ 2083}#)
+ (cons #{ribcage\ 2094}#
+ (cdr #{w\ 2083}#)))))
+ (letrec*
+ ((#{parse\ 2109}#
+ (lambda (#{body\ 2110}#
+ #{ids\ 2111}#
+ #{labels\ 2112}#
+ #{var-ids\ 2113}#
+ #{vars\ 2114}#
+ #{vals\ 2115}#
+ #{bindings\ 2116}#)
+ (if (null? #{body\ 2110}#)
+ (syntax-violation
+ #f
+ "no expressions in body"
+ #{outer-form\ 2081}#)
+ (begin
+ (let ((#{e\ 2121}#
+ (cdr (car #{body\ 2110}#)))
+ (#{er\ 2122}#
+ (car (car #{body\ 2110}#))))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type\ 454}#
+ #{e\ 2121}#
+ #{er\ 2122}#
+ '(())
+ (#{source-annotation\ 357}#
+ #{er\ 2122}#)
+ #{ribcage\ 2094}#
+ #{mod\ 2084}#
+ #f))
+ (lambda (#{type\ 2124}#
+ #{value\ 2125}#
+ #{e\ 2126}#
+ #{w\ 2127}#
+ #{s\ 2128}#
+ #{mod\ 2129}#)
+ (if (eqv? #{type\ 2124}# 'define-form)
+ (begin
+ (let ((#{id\ 2139}#
+ (#{wrap\ 442}#
+ #{value\ 2125}#
+ #{w\ 2127}#
+ #{mod\ 2129}#))
+ (#{label\ 2140}#
+ (#{gen-label\ 389}#)))
+ (begin
+ (let ((#{var\ 2142}#
+ (#{gen-var\ 484}#
+ #{id\ 2139}#)))
+ (begin
+ (#{extend-ribcage!\ 418}#
+ #{ribcage\ 2094}#
+ #{id\ 2139}#
+ #{label\ 2140}#)
+ (#{parse\ 2109}#
+ (cdr #{body\ 2110}#)
+ (cons #{id\ 2139}#
+ #{ids\ 2111}#)
+ (cons #{label\ 2140}#
+ #{labels\ 2112}#)
+ (cons #{id\ 2139}#
+ #{var-ids\ 2113}#)
+ (cons #{var\ 2142}#
+ #{vars\ 2114}#)
+ (cons (cons #{er\ 2122}#
+ (#{wrap\ 442}#
+ #{e\ 2126}#
+ #{w\ 2127}#
+ #{mod\ 2129}#))
+ #{vals\ 2115}#)
+ (cons (cons 'lexical
+ #{var\ 2142}#)
+ #{bindings\ 2116}#)))))))
+ (if (eqv? #{type\ 2124}#
+ 'define-syntax-form)
(begin
- (let ((#{id\ 2085}#
- (#{wrap\ 446}#
- #{value\ 2071}#
- #{w\ 2073}#
- #{mod\ 2075}#))
- (#{label\ 2086}#
- (#{gen-label\ 393}#)))
+ (let ((#{id\ 2147}#
+ (#{wrap\ 442}#
+ #{value\ 2125}#
+ #{w\ 2127}#
+ #{mod\ 2129}#))
+ (#{label\ 2148}#
+ (#{gen-label\ 389}#)))
(begin
- (let ((#{var\ 2088}#
- (#{gen-var\ 488}#
- #{id\ 2085}#)))
- (begin
- (#{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\ 2088}#)
- #{bindings\ 2062}#)))))))
- (if (eqv? #{type\ 2070}#
- 'define-syntax-form)
- (begin
- (let ((#{id\ 2093}#
- (#{wrap\ 446}#
- #{value\ 2071}#
- #{w\ 2073}#
- #{mod\ 2075}#))
- (#{label\ 2094}#
- (#{gen-label\ 393}#)))
+ (#{extend-ribcage!\ 418}#
+ #{ribcage\ 2094}#
+ #{id\ 2147}#
+ #{label\ 2148}#)
+ (#{parse\ 2109}#
+ (cdr #{body\ 2110}#)
+ (cons #{id\ 2147}#
+ #{ids\ 2111}#)
+ (cons #{label\ 2148}#
+ #{labels\ 2112}#)
+ #{var-ids\ 2113}#
+ #{vars\ 2114}#
+ #{vals\ 2115}#
+ (cons (cons 'macro
+ (cons #{er\ 2122}#
+ (#{wrap\ 442}#
+ #{e\ 2126}#
+ #{w\ 2127}#
+ #{mod\ 2129}#)))
+ #{bindings\ 2116}#)))))
+ (if (eqv? #{type\ 2124}#
+ 'begin-form)
+ (let ((#{tmp\ 2151}#
+ #{e\ 2126}#))
+ (let ((#{tmp\ 2152}#
+ ($sc-dispatch
+ #{tmp\ 2151}#
+ '(_ . each-any))))
+ (if #{tmp\ 2152}#
+ (@apply
+ (lambda (#{e1\ 2154}#)
+ (#{parse\ 2109}#
+ (letrec*
+ ((#{f\ 2157}#
+ (lambda (#{forms\ 2158}#)
+ (if (null? #{forms\ 2158}#)
+ (cdr #{body\ 2110}#)
+ (cons (cons #{er\ 2122}#
+ (#{wrap\ 442}#
+ (car #{forms\ 2158}#)
+ #{w\ 2127}#
+ #{mod\ 2129}#))
+ (#{f\ 2157}#
+ (cdr #{forms\ 2158}#)))))))
+ (begin
+ (#{f\ 2157}#
+ #{e1\ 2154}#)))
+ #{ids\ 2111}#
+ #{labels\ 2112}#
+ #{var-ids\ 2113}#
+ #{vars\ 2114}#
+ #{vals\ 2115}#
+ #{bindings\ 2116}#))
+ #{tmp\ 2152}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 2151}#))))
+ (if (eqv? #{type\ 2124}#
+ 'local-syntax-form)
+ (#{chi-local-syntax\ 466}#
+ #{value\ 2125}#
+ #{e\ 2126}#
+ #{er\ 2122}#
+ #{w\ 2127}#
+ #{s\ 2128}#
+ #{mod\ 2129}#
+ (lambda (#{forms\ 2161}#
+ #{er\ 2162}#
+ #{w\ 2163}#
+ #{s\ 2164}#
+ #{mod\ 2165}#)
+ (#{parse\ 2109}#
+ (letrec*
+ ((#{f\ 2173}#
+ (lambda (#{forms\ 2174}#)
+ (if (null? #{forms\ 2174}#)
+ (cdr #{body\ 2110}#)
+ (cons (cons #{er\ 2162}#
+ (#{wrap\ 442}#
+ (car #{forms\ 2174}#)
+ #{w\ 2163}#
+ #{mod\ 2165}#))
+ (#{f\ 2173}#
+ (cdr #{forms\ 2174}#)))))))
+ (begin
+ (#{f\ 2173}#
+ #{forms\ 2161}#)))
+ #{ids\ 2111}#
+ #{labels\ 2112}#
+ #{var-ids\ 2113}#
+ #{vars\ 2114}#
+ #{vals\ 2115}#
+ #{bindings\ 2116}#)))
+ (if (null? #{ids\ 2111}#)
+ (#{build-sequence\ 330}#
+ #f
+ (map (lambda (#{x\ 2177}#)
+ (#{chi\ 456}#
+ (cdr #{x\ 2177}#)
+ (car #{x\ 2177}#)
+ '(())
+ #{mod\ 2129}#))
+ (cons (cons #{er\ 2122}#
+ (#{source-wrap\ 444}#
+ #{e\ 2126}#
+ #{w\ 2127}#
+ #{s\ 2128}#
+ #{mod\ 2129}#))
+ (cdr #{body\ 2110}#))))
(begin
- (#{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\ 2068}#
- (#{wrap\ 446}#
- #{e\ 2072}#
- #{w\ 2073}#
- #{mod\ 2075}#)))
- #{bindings\ 2062}#)))))
- (if (eqv? #{type\ 2070}#
- 'begin-form)
- (let ((#{tmp\ 2097}#
- #{e\ 2072}#))
- (let ((#{tmp\ 2098}#
- ($sc-dispatch
- #{tmp\ 2097}#
- '(_ . each-any))))
- (if #{tmp\ 2098}#
- (@apply
- (lambda (#{e1\ 2100}#)
- (#{parse\ 2055}#
- (letrec*
- ((#{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\ 2103}#
- #{e1\ 2100}#)))
- #{ids\ 2057}#
- #{labels\ 2058}#
- #{var-ids\ 2059}#
- #{vars\ 2060}#
- #{vals\ 2061}#
- #{bindings\ 2062}#))
- #{tmp\ 2098}#)
+ (if (not (#{valid-bound-ids?\ 436}#
+ #{ids\ 2111}#))
(syntax-violation
#f
- "source expression failed to match any pattern"
- #{tmp\ 2097}#))))
- (if (eqv? #{type\ 2070}#
- 'local-syntax-form)
- (#{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\ 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\ 2119}#
- #{forms\ 2107}#)))
- #{ids\ 2057}#
- #{labels\ 2058}#
- #{var-ids\ 2059}#
- #{vars\ 2060}#
- #{vals\ 2061}#
- #{bindings\ 2062}#)))
- (if (null? #{ids\ 2057}#)
- (#{build-sequence\ 334}#
+ "invalid or duplicate identifier in definition"
+ #{outer-form\ 2081}#))
+ (letrec*
+ ((#{loop\ 2184}#
+ (lambda (#{bs\ 2185}#
+ #{er-cache\ 2186}#
+ #{r-cache\ 2187}#)
+ (if (not (null? #{bs\ 2185}#))
+ (begin
+ (let ((#{b\ 2190}#
+ (car #{bs\ 2185}#)))
+ (if (eq? (car #{b\ 2190}#)
+ 'macro)
+ (begin
+ (let ((#{er\ 2193}#
+ (car (cdr #{b\ 2190}#))))
+ (begin
+ (let ((#{r-cache\ 2195}#
+ (if (eq? #{er\ 2193}#
+ #{er-cache\ 2186}#)
+ #{r-cache\ 2187}#
+ (#{macros-only-env\ 368}#
+ #{er\ 2193}#))))
+ (begin
+ (set-cdr!
+ #{b\ 2190}#
+ (#{eval-local-transformer\ 468}#
+ (#{chi\ 456}#
+ (cdr (cdr #{b\ 2190}#))
+ #{r-cache\ 2195}#
+ '(())
+ #{mod\ 2129}#)
+ #{mod\ 2129}#))
+ (#{loop\ 2184}#
+ (cdr #{bs\ 2185}#)
+ #{er\ 2193}#
+ #{r-cache\ 2195}#))))))
+ (#{loop\ 2184}#
+ (cdr #{bs\ 2185}#)
+ #{er-cache\ 2186}#
+ #{r-cache\ 2187}#))))))))
+ (begin
+ (#{loop\ 2184}#
+ #{bindings\ 2116}#
+ #f
+ #f)))
+ (set-cdr!
+ #{r\ 2092}#
+ (#{extend-env\ 364}#
+ #{labels\ 2112}#
+ #{bindings\ 2116}#
+ (cdr #{r\ 2092}#)))
+ (#{build-letrec\ 336}#
#f
- (map (lambda (#{x\ 2123}#)
- (#{chi\ 460}#
- (cdr #{x\ 2123}#)
- (car #{x\ 2123}#)
+ #t
+ (reverse
+ (map syntax->datum
+ #{var-ids\ 2113}#))
+ (reverse #{vars\ 2114}#)
+ (map (lambda (#{x\ 2198}#)
+ (#{chi\ 456}#
+ (cdr #{x\ 2198}#)
+ (car #{x\ 2198}#)
'(())
- #{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?\ 440}#
- #{ids\ 2057}#))
- (syntax-violation
- #f
- "invalid or duplicate identifier in definition"
- #{outer-form\ 2027}#))
- (letrec*
- ((#{loop\ 2130}#
- (lambda (#{bs\ 2131}#
- #{er-cache\ 2132}#
- #{r-cache\ 2133}#)
- (if (not (null? #{bs\ 2131}#))
- (begin
- (let ((#{b\ 2136}#
- (car #{bs\ 2131}#)))
- (if (eq? (car #{b\ 2136}#)
- 'macro)
- (begin
- (let ((#{er\ 2139}#
- (car (cdr #{b\ 2136}#))))
- (begin
- (let ((#{r-cache\ 2141}#
- (if (eq? #{er\ 2139}#
- #{er-cache\ 2132}#)
- #{r-cache\ 2133}#
- (#{macros-only-env\ 372}#
- #{er\ 2139}#))))
- (begin
- (set-cdr!
- #{b\ 2136}#
- (#{eval-local-transformer\ 472}#
- (#{chi\ 460}#
- (cdr (cdr #{b\ 2136}#))
- #{r-cache\ 2141}#
- '(())
- #{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\ 2130}#
- #{bindings\ 2062}#
- #f
- #f)))
- (set-cdr!
- #{r\ 2038}#
- (#{extend-env\ 368}#
- #{labels\ 2058}#
- #{bindings\ 2062}#
- (cdr #{r\ 2038}#)))
- (#{build-letrec\ 340}#
+ #{mod\ 2129}#))
+ (reverse
+ #{vals\ 2115}#))
+ (#{build-sequence\ 330}#
#f
- #t
- (reverse
- (map syntax->datum
- #{var-ids\ 2059}#))
- (reverse
- #{vars\ 2060}#)
- (map (lambda (#{x\ 2144}#)
- (#{chi\ 460}#
- (cdr #{x\ 2144}#)
- (car #{x\ 2144}#)
+ (map (lambda (#{x\ 2202}#)
+ (#{chi\ 456}#
+ (cdr #{x\ 2202}#)
+ (car #{x\ 2202}#)
'(())
- #{mod\ 2075}#))
- (reverse
- #{vals\ 2061}#))
- (#{build-sequence\ 334}#
- #f
- (map (lambda (#{x\ 2148}#)
- (#{chi\ 460}#
- (cdr #{x\ 2148}#)
- (car #{x\ 2148}#)
- '(())
- #{mod\ 2075}#))
- (cons (cons #{er\ 2068}#
- (#{source-wrap\ 448}#
- #{e\ 2072}#
- #{w\ 2073}#
- #{s\ 2074}#
- #{mod\ 2075}#))
- (cdr #{body\ 2056}#)))))))))))))))))))
+ #{mod\ 2129}#))
+ (cons (cons #{er\ 2122}#
+ (#{source-wrap\ 444}#
+ #{e\ 2126}#
+ #{w\ 2127}#
+ #{s\ 2128}#
+ #{mod\ 2129}#))
+ (cdr #{body\ 2110}#)))))))))))))))))))
+ (begin
+ (#{parse\ 2109}#
+ (map (lambda (#{x\ 2117}#)
+ (cons #{r\ 2092}#
+ (#{wrap\ 442}#
+ #{x\ 2117}#
+ #{w\ 2097}#
+ #{mod\ 2084}#)))
+ #{body\ 2080}#)
+ '()
+ '()
+ '()
+ '()
+ '()
+ '())))))))))))
+ (#{chi-local-syntax\ 466}#
+ (lambda (#{rec?\ 2205}#
+ #{e\ 2206}#
+ #{r\ 2207}#
+ #{w\ 2208}#
+ #{s\ 2209}#
+ #{mod\ 2210}#
+ #{k\ 2211}#)
+ (let ((#{tmp\ 2219}# #{e\ 2206}#))
+ (let ((#{tmp\ 2220}#
+ ($sc-dispatch
+ #{tmp\ 2219}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 2220}#
+ (@apply
+ (lambda (#{id\ 2225}#
+ #{val\ 2226}#
+ #{e1\ 2227}#
+ #{e2\ 2228}#)
+ (begin
+ (let ((#{ids\ 2230}# #{id\ 2225}#))
+ (if (not (#{valid-bound-ids?\ 436}# #{ids\ 2230}#))
+ (syntax-violation
+ #f
+ "duplicate bound keyword"
+ #{e\ 2206}#)
(begin
- (#{parse\ 2055}#
- (map (lambda (#{x\ 2063}#)
- (cons #{r\ 2038}#
- (#{wrap\ 446}#
- #{x\ 2063}#
- #{w\ 2043}#
- #{mod\ 2030}#)))
- #{body\ 2026}#)
- '()
- '()
- '()
- '()
- '()
- '())))))))))))
- (#{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\ 2165}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 2166}#
- (@apply
- (lambda (#{id\ 2171}#
- #{val\ 2172}#
- #{e1\ 2173}#
- #{e2\ 2174}#)
- (begin
- (let ((#{ids\ 2176}# #{id\ 2171}#))
- (if (not (#{valid-bound-ids?\ 440}# #{ids\ 2176}#))
- (syntax-violation
- #f
- "duplicate bound keyword"
- #{e\ 2152}#)
- (begin
- (let ((#{labels\ 2179}#
- (#{gen-labels\ 395}# #{ids\ 2176}#)))
- (begin
- (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\ 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\ 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\ 448}#
- #{e\ 2152}#
- #{w\ 2154}#
- #{s\ 2155}#
- #{mod\ 2156}#))))))))
- (#{eval-local-transformer\ 472}#
- (lambda (#{expanded\ 2193}# #{mod\ 2194}#)
- (begin
- (let ((#{p\ 2198}#
- (#{local-eval-hook\ 293}#
- #{expanded\ 2193}#
- #{mod\ 2194}#)))
- (if (procedure? #{p\ 2198}#)
- #{p\ 2198}#
+ (let ((#{labels\ 2233}#
+ (#{gen-labels\ 391}# #{ids\ 2230}#)))
+ (begin
+ (let ((#{new-w\ 2235}#
+ (#{make-binding-wrap\ 420}#
+ #{ids\ 2230}#
+ #{labels\ 2233}#
+ #{w\ 2208}#)))
+ (#{k\ 2211}#
+ (cons #{e1\ 2227}# #{e2\ 2228}#)
+ (#{extend-env\ 364}#
+ #{labels\ 2233}#
+ (begin
+ (let ((#{w\ 2239}#
+ (if #{rec?\ 2205}#
+ #{new-w\ 2235}#
+ #{w\ 2208}#))
+ (#{trans-r\ 2240}#
+ (#{macros-only-env\ 368}#
+ #{r\ 2207}#)))
+ (map (lambda (#{x\ 2241}#)
+ (cons 'macro
+ (#{eval-local-transformer\ 468}#
+ (#{chi\ 456}#
+ #{x\ 2241}#
+ #{trans-r\ 2240}#
+ #{w\ 2239}#
+ #{mod\ 2210}#)
+ #{mod\ 2210}#)))
+ #{val\ 2226}#)))
+ #{r\ 2207}#)
+ #{new-w\ 2235}#
+ #{s\ 2209}#
+ #{mod\ 2210}#)))))))))
+ #{tmp\ 2220}#)
+ (let ((#{_\ 2246}# #{tmp\ 2219}#))
(syntax-violation
#f
- "nonprocedure transformer"
- #{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)) #("i2201"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- #f)))
- (#{lambda-formals\ 478}#
- (lambda (#{orig-args\ 2204}#)
- (letrec*
- ((#{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\ 2209}# (reverse #{rreq\ 2211}#) #f))
- #{tmp\ 2215}#)
- (let ((#{tmp\ 2216}#
- ($sc-dispatch #{tmp\ 2214}# '(any . any))))
- (if (if #{tmp\ 2216}#
- (@apply
- (lambda (#{a\ 2219}# #{b\ 2220}#)
- (#{id?\ 380}# #{a\ 2219}#))
- #{tmp\ 2216}#)
- #f)
- (@apply
- (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\ 2227}#)
- (#{id?\ 380}# #{r\ 2227}#))
- #{tmp\ 2225}#)
- #f)
- (@apply
- (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\ 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\ 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\ 2259}#
- (if #{rest\ 2245}#
- (append #{req\ 2244}# (list #{rest\ 2245}#))
- #{req\ 2244}#)))
- (begin
- (let ((#{vars\ 2261}#
- (map #{gen-var\ 488}# #{ids\ 2259}#)))
- (begin
- (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\ 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\ 2269}#
- (lambda (#{args\ 2278}# #{rreq\ 2279}#)
- (let ((#{tmp\ 2282}# #{args\ 2278}#))
- (let ((#{tmp\ 2283}# ($sc-dispatch #{tmp\ 2282}# '())))
- (if #{tmp\ 2283}#
- (@apply
- (lambda ()
- (#{check\ 2277}#
- (reverse #{rreq\ 2279}#)
- '()
- #f
- '()))
- #{tmp\ 2283}#)
- (let ((#{tmp\ 2284}#
- ($sc-dispatch #{tmp\ 2282}# '(any . any))))
- (if (if #{tmp\ 2284}#
- (@apply
- (lambda (#{a\ 2287}# #{b\ 2288}#)
- (#{id?\ 380}# #{a\ 2287}#))
- #{tmp\ 2284}#)
- #f)
- (@apply
- (lambda (#{a\ 2291}# #{b\ 2292}#)
- (#{req\ 2269}#
- #{b\ 2292}#
- (cons #{a\ 2291}# #{rreq\ 2279}#)))
- #{tmp\ 2284}#)
- (let ((#{tmp\ 2293}#
- ($sc-dispatch
- #{tmp\ 2282}#
- '(any . any))))
- (if (if #{tmp\ 2293}#
- (@apply
- (lambda (#{a\ 2296}# #{b\ 2297}#)
- (eq? (syntax->datum #{a\ 2296}#)
- #:optional))
- #{tmp\ 2293}#)
- #f)
- (@apply
- (lambda (#{a\ 2300}# #{b\ 2301}#)
- (#{opt\ 2271}#
- #{b\ 2301}#
- (reverse #{rreq\ 2279}#)
- '()))
- #{tmp\ 2293}#)
- (let ((#{tmp\ 2302}#
- ($sc-dispatch
- #{tmp\ 2282}#
- '(any . any))))
- (if (if #{tmp\ 2302}#
- (@apply
- (lambda (#{a\ 2305}# #{b\ 2306}#)
- (eq? (syntax->datum #{a\ 2305}#)
- #:key))
- #{tmp\ 2302}#)
- #f)
- (@apply
- (lambda (#{a\ 2309}# #{b\ 2310}#)
- (#{key\ 2273}#
- #{b\ 2310}#
- (reverse #{rreq\ 2279}#)
- '()
- '()))
- #{tmp\ 2302}#)
- (let ((#{tmp\ 2311}#
- ($sc-dispatch
- #{tmp\ 2282}#
- '(any any))))
- (if (if #{tmp\ 2311}#
- (@apply
- (lambda (#{a\ 2314}#
- #{b\ 2315}#)
- (eq? (syntax->datum
- #{a\ 2314}#)
- #:rest))
- #{tmp\ 2311}#)
- #f)
- (@apply
- (lambda (#{a\ 2318}# #{b\ 2319}#)
- (#{rest\ 2275}#
- #{b\ 2319}#
- (reverse #{rreq\ 2279}#)
- '()
- '()))
- #{tmp\ 2311}#)
- (let ((#{tmp\ 2320}#
- (list #{tmp\ 2282}#)))
- (if (if #{tmp\ 2320}#
- (@apply
- (lambda (#{r\ 2322}#)
- (#{id?\ 380}#
- #{r\ 2322}#))
- #{tmp\ 2320}#)
- #f)
- (@apply
- (lambda (#{r\ 2324}#)
- (#{rest\ 2275}#
- #{r\ 2324}#
- (reverse #{rreq\ 2279}#)
- '()
- '()))
- #{tmp\ 2320}#)
- (let ((#{else\ 2326}#
- #{tmp\ 2282}#))
- (syntax-violation
- 'lambda*
- "invalid argument list"
- #{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\ 2277}#
- #{req\ 2328}#
- (reverse #{ropt\ 2329}#)
- #f
- '()))
- #{tmp\ 2334}#)
- (let ((#{tmp\ 2335}#
- ($sc-dispatch #{tmp\ 2333}# '(any . any))))
- (if (if #{tmp\ 2335}#
- (@apply
- (lambda (#{a\ 2338}# #{b\ 2339}#)
- (#{id?\ 380}# #{a\ 2338}#))
- #{tmp\ 2335}#)
- #f)
- (@apply
- (lambda (#{a\ 2342}# #{b\ 2343}#)
- (#{opt\ 2271}#
- #{b\ 2343}#
- #{req\ 2328}#
- (cons (cons #{a\ 2342}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2340" "i2341"))
- #(ribcage () () ())
- #(ribcage
- #(args req ropt)
- #((top) (top) (top))
- #("i2330"
- "i2331"
- "i2332"))
- #(ribcage
- (check rest key opt req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2267"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene guile))))
- #{ropt\ 2329}#)))
- #{tmp\ 2335}#)
- (let ((#{tmp\ 2344}#
- ($sc-dispatch
- #{tmp\ 2333}#
- '((any any) . any))))
- (if (if #{tmp\ 2344}#
- (@apply
- (lambda (#{a\ 2348}#
- #{init\ 2349}#
- #{b\ 2350}#)
- (#{id?\ 380}# #{a\ 2348}#))
- #{tmp\ 2344}#)
- #f)
- (@apply
- (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\ 2333}#
- '(any . any))))
- (if (if #{tmp\ 2357}#
- (@apply
- (lambda (#{a\ 2360}# #{b\ 2361}#)
- (eq? (syntax->datum #{a\ 2360}#)
- #:key))
- #{tmp\ 2357}#)
- #f)
- (@apply
- (lambda (#{a\ 2364}# #{b\ 2365}#)
- (#{key\ 2273}#
- #{b\ 2365}#
- #{req\ 2328}#
- (reverse #{ropt\ 2329}#)
- '()))
- #{tmp\ 2357}#)
- (let ((#{tmp\ 2366}#
- ($sc-dispatch
- #{tmp\ 2333}#
- '(any any))))
- (if (if #{tmp\ 2366}#
- (@apply
- (lambda (#{a\ 2369}#
- #{b\ 2370}#)
- (eq? (syntax->datum
- #{a\ 2369}#)
- #:rest))
- #{tmp\ 2366}#)
- #f)
- (@apply
- (lambda (#{a\ 2373}# #{b\ 2374}#)
- (#{rest\ 2275}#
- #{b\ 2374}#
- #{req\ 2328}#
- (reverse #{ropt\ 2329}#)
- '()))
- #{tmp\ 2366}#)
- (let ((#{tmp\ 2375}#
- (list #{tmp\ 2333}#)))
- (if (if #{tmp\ 2375}#
- (@apply
- (lambda (#{r\ 2377}#)
- (#{id?\ 380}#
- #{r\ 2377}#))
- #{tmp\ 2375}#)
- #f)
- (@apply
- (lambda (#{r\ 2379}#)
- (#{rest\ 2275}#
- #{r\ 2379}#
- #{req\ 2328}#
- (reverse #{ropt\ 2329}#)
- '()))
- #{tmp\ 2375}#)
- (let ((#{else\ 2381}#
- #{tmp\ 2333}#))
- (syntax-violation
- 'lambda*
- "invalid optional argument list"
- #{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\ 2277}#
- #{req\ 2383}#
- #{opt\ 2384}#
- #f
- (cons #f (reverse #{rkey\ 2385}#))))
- #{tmp\ 2391}#)
- (let ((#{tmp\ 2392}#
- ($sc-dispatch #{tmp\ 2390}# '(any . any))))
- (if (if #{tmp\ 2392}#
- (@apply
- (lambda (#{a\ 2395}# #{b\ 2396}#)
- (#{id?\ 380}# #{a\ 2395}#))
- #{tmp\ 2392}#)
- #f)
- (@apply
- (lambda (#{a\ 2399}# #{b\ 2400}#)
- (let ((#{tmp\ 2402}#
- (symbol->keyword
- (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
- ()
- ()
- ())
- #(ribcage
- #(k)
- #((top))
- #("i2403"))
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2397"
- "i2398"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(args
- req
- opt
- rkey)
- #((top)
- (top)
- (top)
- (top))
- #("i2386"
- "i2387"
- "i2388"
- "i2389"))
- #(ribcage
- (check rest
- key
- opt
- req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2276"
- "i2274"
- "i2272"
- "i2270"
- "i2268"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2267"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene
- guile)))))
- #{rkey\ 2385}#)))))
- #{tmp\ 2392}#)
- (let ((#{tmp\ 2405}#
- ($sc-dispatch
- #{tmp\ 2390}#
- '((any any) . any))))
- (if (if #{tmp\ 2405}#
- (@apply
- (lambda (#{a\ 2409}#
- #{init\ 2410}#
- #{b\ 2411}#)
- (#{id?\ 380}# #{a\ 2409}#))
- #{tmp\ 2405}#)
- #f)
- (@apply
- (lambda (#{a\ 2415}#
- #{init\ 2416}#
- #{b\ 2417}#)
- (let ((#{tmp\ 2419}#
- (symbol->keyword
- (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\ 2390}#
- '((any any any) . any))))
- (if (if #{tmp\ 2422}#
- (@apply
- (lambda (#{a\ 2427}#
- #{init\ 2428}#
- #{k\ 2429}#
- #{b\ 2430}#)
- (if (#{id?\ 380}# #{a\ 2427}#)
- (keyword?
- (syntax->datum #{k\ 2429}#))
- #f))
- #{tmp\ 2422}#)
- #f)
- (@apply
- (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\ 2390}#
- '(any))))
- (if (if #{tmp\ 2441}#
- (@apply
- (lambda (#{aok\ 2443}#)
- (eq? (syntax->datum
- #{aok\ 2443}#)
- #:allow-other-keys))
- #{tmp\ 2441}#)
- #f)
- (@apply
- (lambda (#{aok\ 2445}#)
- (#{check\ 2277}#
- #{req\ 2383}#
- #{opt\ 2384}#
- #f
- (cons #t
- (reverse
- #{rkey\ 2385}#))))
- #{tmp\ 2441}#)
- (let ((#{tmp\ 2446}#
- ($sc-dispatch
- #{tmp\ 2390}#
- '(any any any))))
- (if (if #{tmp\ 2446}#
- (@apply
- (lambda (#{aok\ 2450}#
- #{a\ 2451}#
- #{b\ 2452}#)
- (if (eq? (syntax->datum
- #{aok\ 2450}#)
- #:allow-other-keys)
- (eq? (syntax->datum
- #{a\ 2451}#)
- #:rest)
- #f))
- #{tmp\ 2446}#)
- #f)
- (@apply
- (lambda (#{aok\ 2458}#
- #{a\ 2459}#
- #{b\ 2460}#)
- (#{rest\ 2275}#
- #{b\ 2460}#
- #{req\ 2383}#
- #{opt\ 2384}#
- (cons #t
- (reverse
- #{rkey\ 2385}#))))
- #{tmp\ 2446}#)
- (let ((#{tmp\ 2461}#
- ($sc-dispatch
- #{tmp\ 2390}#
- '(any . any))))
- (if (if #{tmp\ 2461}#
- (@apply
- (lambda (#{aok\ 2464}#
- #{r\ 2465}#)
- (if (eq? (syntax->datum
- #{aok\ 2464}#)
- #:allow-other-keys)
- (#{id?\ 380}#
- #{r\ 2465}#)
- #f))
- #{tmp\ 2461}#)
- #f)
- (@apply
- (lambda (#{aok\ 2470}#
- #{r\ 2471}#)
- (#{rest\ 2275}#
- #{r\ 2471}#
- #{req\ 2383}#
- #{opt\ 2384}#
- (cons #t
- (reverse
- #{rkey\ 2385}#))))
- #{tmp\ 2461}#)
- (let ((#{tmp\ 2472}#
- ($sc-dispatch
- #{tmp\ 2390}#
- '(any any))))
- (if (if #{tmp\ 2472}#
- (@apply
- (lambda (#{a\ 2475}#
- #{b\ 2476}#)
- (eq? (syntax->datum
- #{a\ 2475}#)
- #:rest))
- #{tmp\ 2472}#)
- #f)
- (@apply
- (lambda (#{a\ 2479}#
- #{b\ 2480}#)
- (#{rest\ 2275}#
- #{b\ 2480}#
- #{req\ 2383}#
- #{opt\ 2384}#
- (cons #f
- (reverse
- #{rkey\ 2385}#))))
- #{tmp\ 2472}#)
- (let ((#{tmp\ 2481}#
- (list #{tmp\ 2390}#)))
- (if (if #{tmp\ 2481}#
- (@apply
- (lambda (#{r\ 2483}#)
- (#{id?\ 380}#
- #{r\ 2483}#))
- #{tmp\ 2481}#)
- #f)
- (@apply
- (lambda (#{r\ 2485}#)
- (#{rest\ 2275}#
- #{r\ 2485}#
- #{req\ 2383}#
- #{opt\ 2384}#
- (cons #f
- (reverse
- #{rkey\ 2385}#))))
- #{tmp\ 2481}#)
- (let ((#{else\ 2487}#
- #{tmp\ 2390}#))
- (syntax-violation
- 'lambda*
- "invalid keyword argument list"
- #{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\ 2499}#)
- (#{id?\ 380}# #{r\ 2499}#))
- #{tmp\ 2497}#)
- #f)
- (@apply
- (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\ 2266}#
- #{args\ 2488}#)))))))
- (#{check\ 2277}#
- (lambda (#{req\ 2504}#
- #{opt\ 2505}#
- #{rest\ 2506}#
- #{kw\ 2507}#)
- (if (#{distinct-bound-ids?\ 442}#
- (append
- #{req\ 2504}#
- (map car #{opt\ 2505}#)
- (if #{rest\ 2506}# (list #{rest\ 2506}#) '())
- (if (pair? #{kw\ 2507}#)
- (map cadr (cdr #{kw\ 2507}#))
- '())))
- (values
- #{req\ 2504}#
- #{opt\ 2505}#
- #{rest\ 2506}#
- #{kw\ 2507}#)
- (syntax-violation
- 'lambda*
- "duplicate identifier in argument list"
- #{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\ 2530}#
- (lambda (#{req\ 2537}#
- #{opt\ 2538}#
- #{rest\ 2539}#
- #{kw\ 2540}#
- #{body\ 2541}#)
- (begin
- (let ((#{vars\ 2549}#
- (map #{gen-var\ 488}# #{req\ 2537}#))
- (#{labels\ 2550}#
- (#{gen-labels\ 395}# #{req\ 2537}#)))
- (begin
- (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}#
+ "bad local syntax definition"
+ (#{source-wrap\ 444}#
+ #{e\ 2206}#
+ #{w\ 2208}#
+ #{s\ 2209}#
+ #{mod\ 2210}#))))))))
+ (#{eval-local-transformer\ 468}#
+ (lambda (#{expanded\ 2247}# #{mod\ 2248}#)
+ (begin
+ (let ((#{p\ 2252}#
+ (#{local-eval-hook\ 289}#
+ #{expanded\ 2247}#
+ #{mod\ 2248}#)))
+ (if (procedure? #{p\ 2252}#)
+ #{p\ 2252}#
+ (syntax-violation
+ #f
+ "nonprocedure transformer"
+ #{p\ 2252}#))))))
+ (#{chi-void\ 470}#
+ (lambda () (#{build-void\ 300}# #f)))
+ (#{ellipsis?\ 472}#
+ (lambda (#{x\ 2254}#)
+ (if (#{nonsymbol-id?\ 374}# #{x\ 2254}#)
+ (#{free-id=?\ 432}#
+ #{x\ 2254}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2255"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41" "i40" "i39" "i37")))
+ (hygiene guile)))
+ #f)))
+ (#{lambda-formals\ 474}#
+ (lambda (#{orig-args\ 2258}#)
+ (letrec*
+ ((#{req\ 2261}#
+ (lambda (#{args\ 2264}# #{rreq\ 2265}#)
+ (let ((#{tmp\ 2268}# #{args\ 2264}#))
+ (let ((#{tmp\ 2269}# ($sc-dispatch #{tmp\ 2268}# '())))
+ (if #{tmp\ 2269}#
+ (@apply
+ (lambda ()
+ (#{check\ 2263}# (reverse #{rreq\ 2265}#) #f))
+ #{tmp\ 2269}#)
+ (let ((#{tmp\ 2270}#
+ ($sc-dispatch #{tmp\ 2268}# '(any . any))))
+ (if (if #{tmp\ 2270}#
+ (@apply
+ (lambda (#{a\ 2273}# #{b\ 2274}#)
+ (#{id?\ 376}# #{a\ 2273}#))
+ #{tmp\ 2270}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2277}# #{b\ 2278}#)
+ (#{req\ 2261}#
+ #{b\ 2278}#
+ (cons #{a\ 2277}# #{rreq\ 2265}#)))
+ #{tmp\ 2270}#)
+ (let ((#{tmp\ 2279}# (list #{tmp\ 2268}#)))
+ (if (if #{tmp\ 2279}#
+ (@apply
+ (lambda (#{r\ 2281}#)
+ (#{id?\ 376}# #{r\ 2281}#))
+ #{tmp\ 2279}#)
+ #f)
+ (@apply
+ (lambda (#{r\ 2283}#)
+ (#{check\ 2263}#
+ (reverse #{rreq\ 2265}#)
+ #{r\ 2283}#))
+ #{tmp\ 2279}#)
+ (let ((#{else\ 2285}# #{tmp\ 2268}#))
+ (syntax-violation
+ 'lambda
+ "invalid argument list"
+ #{orig-args\ 2258}#
+ #{args\ 2264}#)))))))))))
+ (#{check\ 2263}#
+ (lambda (#{req\ 2286}# #{rest\ 2287}#)
+ (if (#{distinct-bound-ids?\ 438}#
+ (if #{rest\ 2287}#
+ (cons #{rest\ 2287}# #{req\ 2286}#)
+ #{req\ 2286}#))
+ (values #{req\ 2286}# #f #{rest\ 2287}# #f)
+ (syntax-violation
+ 'lambda
+ "duplicate identifier in argument list"
+ #{orig-args\ 2258}#)))))
+ (begin (#{req\ 2261}# #{orig-args\ 2258}# '())))))
+ (#{chi-simple-lambda\ 476}#
+ (lambda (#{e\ 2293}#
+ #{r\ 2294}#
+ #{w\ 2295}#
+ #{s\ 2296}#
+ #{mod\ 2297}#
+ #{req\ 2298}#
+ #{rest\ 2299}#
+ #{meta\ 2300}#
+ #{body\ 2301}#)
+ (begin
+ (let ((#{ids\ 2313}#
+ (if #{rest\ 2299}#
+ (append #{req\ 2298}# (list #{rest\ 2299}#))
+ #{req\ 2298}#)))
+ (begin
+ (let ((#{vars\ 2315}#
+ (map #{gen-var\ 484}# #{ids\ 2313}#)))
+ (begin
+ (let ((#{labels\ 2317}#
+ (#{gen-labels\ 391}# #{ids\ 2313}#)))
+ (#{build-simple-lambda\ 320}#
+ #{s\ 2296}#
+ (map syntax->datum #{req\ 2298}#)
+ (if #{rest\ 2299}#
+ (syntax->datum #{rest\ 2299}#)
+ #f)
+ #{vars\ 2315}#
+ #{meta\ 2300}#
+ (#{chi-body\ 464}#
+ #{body\ 2301}#
+ (#{source-wrap\ 444}#
+ #{e\ 2293}#
+ #{w\ 2295}#
+ #{s\ 2296}#
+ #{mod\ 2297}#)
+ (#{extend-var-env\ 366}#
+ #{labels\ 2317}#
+ #{vars\ 2315}#
+ #{r\ 2294}#)
+ (#{make-binding-wrap\ 420}#
+ #{ids\ 2313}#
+ #{labels\ 2317}#
+ #{w\ 2295}#)
+ #{mod\ 2297}#))))))))))
+ (#{lambda*-formals\ 478}#
+ (lambda (#{orig-args\ 2320}#)
+ (letrec*
+ ((#{req\ 2323}#
+ (lambda (#{args\ 2332}# #{rreq\ 2333}#)
+ (let ((#{tmp\ 2336}# #{args\ 2332}#))
+ (let ((#{tmp\ 2337}# ($sc-dispatch #{tmp\ 2336}# '())))
+ (if #{tmp\ 2337}#
+ (@apply
+ (lambda ()
+ (#{check\ 2331}#
+ (reverse #{rreq\ 2333}#)
'()
- '())))))))
- (#{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}#
+ #f
+ '()))
+ #{tmp\ 2337}#)
+ (let ((#{tmp\ 2338}#
+ ($sc-dispatch #{tmp\ 2336}# '(any . any))))
+ (if (if #{tmp\ 2338}#
+ (@apply
+ (lambda (#{a\ 2341}# #{b\ 2342}#)
+ (#{id?\ 376}# #{a\ 2341}#))
+ #{tmp\ 2338}#)
+ #f)
(@apply
- (lambda (#{id\ 2581}# #{i\ 2582}#)
- (begin
- (let ((#{v\ 2585}#
- (#{gen-var\ 488}# #{id\ 2581}#)))
- (begin
- (let ((#{l\ 2587}#
- (#{gen-labels\ 395}#
- (list #{v\ 2585}#))))
- (begin
- (let ((#{r**\ 2589}#
- (#{extend-var-env\ 370}#
- #{l\ 2587}#
- (list #{v\ 2585}#)
- #{r*\ 2561}#)))
- (begin
- (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\ 2581}#)
- #{out\ 2563}#)
- (cons (#{chi\ 460}#
- #{i\ 2582}#
- #{r*\ 2561}#
- #{w*\ 2562}#
- #{mod\ 2519}#)
- #{inits\ 2564}#)))))))))))
- #{tmp\ 2578}#)
- (syntax-violation
+ (lambda (#{a\ 2345}# #{b\ 2346}#)
+ (#{req\ 2323}#
+ #{b\ 2346}#
+ (cons #{a\ 2345}# #{rreq\ 2333}#)))
+ #{tmp\ 2338}#)
+ (let ((#{tmp\ 2347}#
+ ($sc-dispatch #{tmp\ 2336}# '(any . any))))
+ (if (if #{tmp\ 2347}#
+ (@apply
+ (lambda (#{a\ 2350}# #{b\ 2351}#)
+ (eq? (syntax->datum #{a\ 2350}#)
+ #:optional))
+ #{tmp\ 2347}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2354}# #{b\ 2355}#)
+ (#{opt\ 2325}#
+ #{b\ 2355}#
+ (reverse #{rreq\ 2333}#)
+ '()))
+ #{tmp\ 2347}#)
+ (let ((#{tmp\ 2356}#
+ ($sc-dispatch
+ #{tmp\ 2336}#
+ '(any . any))))
+ (if (if #{tmp\ 2356}#
+ (@apply
+ (lambda (#{a\ 2359}# #{b\ 2360}#)
+ (eq? (syntax->datum #{a\ 2359}#)
+ #:key))
+ #{tmp\ 2356}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2363}# #{b\ 2364}#)
+ (#{key\ 2327}#
+ #{b\ 2364}#
+ (reverse #{rreq\ 2333}#)
+ '()
+ '()))
+ #{tmp\ 2356}#)
+ (let ((#{tmp\ 2365}#
+ ($sc-dispatch
+ #{tmp\ 2336}#
+ '(any any))))
+ (if (if #{tmp\ 2365}#
+ (@apply
+ (lambda (#{a\ 2368}# #{b\ 2369}#)
+ (eq? (syntax->datum
+ #{a\ 2368}#)
+ #:rest))
+ #{tmp\ 2365}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2372}# #{b\ 2373}#)
+ (#{rest\ 2329}#
+ #{b\ 2373}#
+ (reverse #{rreq\ 2333}#)
+ '()
+ '()))
+ #{tmp\ 2365}#)
+ (let ((#{tmp\ 2374}#
+ (list #{tmp\ 2336}#)))
+ (if (if #{tmp\ 2374}#
+ (@apply
+ (lambda (#{r\ 2376}#)
+ (#{id?\ 376}# #{r\ 2376}#))
+ #{tmp\ 2374}#)
+ #f)
+ (@apply
+ (lambda (#{r\ 2378}#)
+ (#{rest\ 2329}#
+ #{r\ 2378}#
+ (reverse #{rreq\ 2333}#)
+ '()
+ '()))
+ #{tmp\ 2374}#)
+ (let ((#{else\ 2380}#
+ #{tmp\ 2336}#))
+ (syntax-violation
+ 'lambda*
+ "invalid argument list"
+ #{orig-args\ 2320}#
+ #{args\ 2332}#)))))))))))))))))
+ (#{opt\ 2325}#
+ (lambda (#{args\ 2381}# #{req\ 2382}# #{ropt\ 2383}#)
+ (let ((#{tmp\ 2387}# #{args\ 2381}#))
+ (let ((#{tmp\ 2388}# ($sc-dispatch #{tmp\ 2387}# '())))
+ (if #{tmp\ 2388}#
+ (@apply
+ (lambda ()
+ (#{check\ 2331}#
+ #{req\ 2382}#
+ (reverse #{ropt\ 2383}#)
#f
- "source expression failed to match any pattern"
- #{tmp\ 2577}#))))
- (if #{rest\ 2557}#
- (begin
- (let ((#{v\ 2596}#
- (#{gen-var\ 488}# #{rest\ 2557}#)))
- (begin
- (let ((#{l\ 2598}#
- (#{gen-labels\ 395}#
- (list #{v\ 2596}#))))
- (begin
- (let ((#{r*\ 2600}#
- (#{extend-var-env\ 370}#
- #{l\ 2598}#
- (list #{v\ 2596}#)
- #{r*\ 2561}#)))
- (begin
- (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}#)
+ '()))
+ #{tmp\ 2388}#)
+ (let ((#{tmp\ 2389}#
+ ($sc-dispatch #{tmp\ 2387}# '(any . any))))
+ (if (if #{tmp\ 2389}#
+ (@apply
+ (lambda (#{a\ 2392}# #{b\ 2393}#)
+ (#{id?\ 376}# #{a\ 2392}#))
+ #{tmp\ 2389}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2396}# #{b\ 2397}#)
+ (#{opt\ 2325}#
+ #{b\ 2397}#
+ #{req\ 2382}#
+ (cons (cons #{a\ 2396}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2394" "i2395"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req ropt)
+ #((top) (top) (top))
+ #("i2384"
+ "i2385"
+ "i2386"))
+ #(ribcage
+ (check rest key opt req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2321"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41"
+ "i40"
+ "i39"
+ "i37")))
+ (hygiene guile))))
+ #{ropt\ 2383}#)))
+ #{tmp\ 2389}#)
+ (let ((#{tmp\ 2398}#
+ ($sc-dispatch
+ #{tmp\ 2387}#
+ '((any any) . any))))
+ (if (if #{tmp\ 2398}#
+ (@apply
+ (lambda (#{a\ 2402}#
+ #{init\ 2403}#
+ #{b\ 2404}#)
+ (#{id?\ 376}# #{a\ 2402}#))
+ #{tmp\ 2398}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2408}#
+ #{init\ 2409}#
+ #{b\ 2410}#)
+ (#{opt\ 2325}#
+ #{b\ 2410}#
+ #{req\ 2382}#
+ (cons (list #{a\ 2408}# #{init\ 2409}#)
+ #{ropt\ 2383}#)))
+ #{tmp\ 2398}#)
+ (let ((#{tmp\ 2411}#
+ ($sc-dispatch
+ #{tmp\ 2387}#
+ '(any . any))))
+ (if (if #{tmp\ 2411}#
+ (@apply
+ (lambda (#{a\ 2414}# #{b\ 2415}#)
+ (eq? (syntax->datum #{a\ 2414}#)
+ #:key))
+ #{tmp\ 2411}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2418}# #{b\ 2419}#)
+ (#{key\ 2327}#
+ #{b\ 2419}#
+ #{req\ 2382}#
+ (reverse #{ropt\ 2383}#)
+ '()))
+ #{tmp\ 2411}#)
+ (let ((#{tmp\ 2420}#
+ ($sc-dispatch
+ #{tmp\ 2387}#
+ '(any any))))
+ (if (if #{tmp\ 2420}#
+ (@apply
+ (lambda (#{a\ 2423}# #{b\ 2424}#)
+ (eq? (syntax->datum
+ #{a\ 2423}#)
+ #:rest))
+ #{tmp\ 2420}#)
#f)
- (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}#)
+ (@apply
+ (lambda (#{a\ 2427}# #{b\ 2428}#)
+ (#{rest\ 2329}#
+ #{b\ 2428}#
+ #{req\ 2382}#
+ (reverse #{ropt\ 2383}#)
+ '()))
+ #{tmp\ 2420}#)
+ (let ((#{tmp\ 2429}#
+ (list #{tmp\ 2387}#)))
+ (if (if #{tmp\ 2429}#
+ (@apply
+ (lambda (#{r\ 2431}#)
+ (#{id?\ 376}# #{r\ 2431}#))
+ #{tmp\ 2429}#)
+ #f)
+ (@apply
+ (lambda (#{r\ 2433}#)
+ (#{rest\ 2329}#
+ #{r\ 2433}#
+ #{req\ 2382}#
+ (reverse #{ropt\ 2383}#)
+ '()))
+ #{tmp\ 2429}#)
+ (let ((#{else\ 2435}#
+ #{tmp\ 2387}#))
+ (syntax-violation
+ 'lambda*
+ "invalid optional argument list"
+ #{orig-args\ 2320}#
+ #{args\ 2381}#)))))))))))))))))
+ (#{key\ 2327}#
+ (lambda (#{args\ 2436}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ #{rkey\ 2439}#)
+ (let ((#{tmp\ 2444}# #{args\ 2436}#))
+ (let ((#{tmp\ 2445}# ($sc-dispatch #{tmp\ 2444}# '())))
+ (if #{tmp\ 2445}#
+ (@apply
+ (lambda ()
+ (#{check\ 2331}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ #f
+ (cons #f (reverse #{rkey\ 2439}#))))
+ #{tmp\ 2445}#)
+ (let ((#{tmp\ 2446}#
+ ($sc-dispatch #{tmp\ 2444}# '(any . any))))
+ (if (if #{tmp\ 2446}#
+ (@apply
+ (lambda (#{a\ 2449}# #{b\ 2450}#)
+ (#{id?\ 376}# #{a\ 2449}#))
+ #{tmp\ 2446}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2453}# #{b\ 2454}#)
+ (let ((#{tmp\ 2456}#
+ (symbol->keyword
+ (syntax->datum #{a\ 2453}#))))
+ (let ((#{k\ 2458}# #{tmp\ 2456}#))
+ (#{key\ 2327}#
+ #{b\ 2454}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ (cons (cons #{k\ 2458}#
+ (cons #{a\ 2453}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(k)
+ #((top))
+ #("i2457"))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2451"
+ "i2452"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(args
+ req
+ opt
+ rkey)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i2440"
+ "i2441"
+ "i2442"
+ "i2443"))
+ #(ribcage
+ (check rest
+ key
+ opt
+ req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2321"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41"
+ "i40"
+ "i39"
+ "i37")))
+ (hygiene guile)))))
+ #{rkey\ 2439}#)))))
+ #{tmp\ 2446}#)
+ (let ((#{tmp\ 2459}#
+ ($sc-dispatch
+ #{tmp\ 2444}#
+ '((any any) . any))))
+ (if (if #{tmp\ 2459}#
+ (@apply
+ (lambda (#{a\ 2463}#
+ #{init\ 2464}#
+ #{b\ 2465}#)
+ (#{id?\ 376}# #{a\ 2463}#))
+ #{tmp\ 2459}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2469}#
+ #{init\ 2470}#
+ #{b\ 2471}#)
+ (let ((#{tmp\ 2473}#
+ (symbol->keyword
+ (syntax->datum #{a\ 2469}#))))
+ (let ((#{k\ 2475}# #{tmp\ 2473}#))
+ (#{key\ 2327}#
+ #{b\ 2471}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ (cons (list #{k\ 2475}#
+ #{a\ 2469}#
+ #{init\ 2470}#)
+ #{rkey\ 2439}#)))))
+ #{tmp\ 2459}#)
+ (let ((#{tmp\ 2476}#
+ ($sc-dispatch
+ #{tmp\ 2444}#
+ '((any any any) . any))))
+ (if (if #{tmp\ 2476}#
+ (@apply
+ (lambda (#{a\ 2481}#
+ #{init\ 2482}#
+ #{k\ 2483}#
+ #{b\ 2484}#)
+ (if (#{id?\ 376}# #{a\ 2481}#)
+ (keyword?
+ (syntax->datum #{k\ 2483}#))
+ #f))
+ #{tmp\ 2476}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2491}#
+ #{init\ 2492}#
+ #{k\ 2493}#
+ #{b\ 2494}#)
+ (#{key\ 2327}#
+ #{b\ 2494}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ (cons (list #{k\ 2493}#
+ #{a\ 2491}#
+ #{init\ 2492}#)
+ #{rkey\ 2439}#)))
+ #{tmp\ 2476}#)
+ (let ((#{tmp\ 2495}#
+ ($sc-dispatch
+ #{tmp\ 2444}#
+ '(any))))
+ (if (if #{tmp\ 2495}#
+ (@apply
+ (lambda (#{aok\ 2497}#)
+ (eq? (syntax->datum
+ #{aok\ 2497}#)
+ #:allow-other-keys))
+ #{tmp\ 2495}#)
#f)
- '()
- #{inits\ 2564}#)))))))))
- (#{expand-kw\ 2534}#
- #{req\ 2555}#
- (if (pair? #{out\ 2563}#)
- (reverse #{out\ 2563}#)
- #f)
- #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\ 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 (#{aok\ 2499}#)
+ (#{check\ 2331}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ #f
+ (cons #t
+ (reverse #{rkey\ 2439}#))))
+ #{tmp\ 2495}#)
+ (let ((#{tmp\ 2500}#
+ ($sc-dispatch
+ #{tmp\ 2444}#
+ '(any any any))))
+ (if (if #{tmp\ 2500}#
+ (@apply
+ (lambda (#{aok\ 2504}#
+ #{a\ 2505}#
+ #{b\ 2506}#)
+ (if (eq? (syntax->datum
+ #{aok\ 2504}#)
+ #:allow-other-keys)
+ (eq? (syntax->datum
+ #{a\ 2505}#)
+ #:rest)
+ #f))
+ #{tmp\ 2500}#)
+ #f)
+ (@apply
+ (lambda (#{aok\ 2512}#
+ #{a\ 2513}#
+ #{b\ 2514}#)
+ (#{rest\ 2329}#
+ #{b\ 2514}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ (cons #t
+ (reverse
+ #{rkey\ 2439}#))))
+ #{tmp\ 2500}#)
+ (let ((#{tmp\ 2515}#
+ ($sc-dispatch
+ #{tmp\ 2444}#
+ '(any . any))))
+ (if (if #{tmp\ 2515}#
+ (@apply
+ (lambda (#{aok\ 2518}#
+ #{r\ 2519}#)
+ (if (eq? (syntax->datum
+ #{aok\ 2518}#)
+ #:allow-other-keys)
+ (#{id?\ 376}#
+ #{r\ 2519}#)
+ #f))
+ #{tmp\ 2515}#)
+ #f)
+ (@apply
+ (lambda (#{aok\ 2524}#
+ #{r\ 2525}#)
+ (#{rest\ 2329}#
+ #{r\ 2525}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ (cons #t
+ (reverse
+ #{rkey\ 2439}#))))
+ #{tmp\ 2515}#)
+ (let ((#{tmp\ 2526}#
+ ($sc-dispatch
+ #{tmp\ 2444}#
+ '(any any))))
+ (if (if #{tmp\ 2526}#
+ (@apply
+ (lambda (#{a\ 2529}#
+ #{b\ 2530}#)
+ (eq? (syntax->datum
+ #{a\ 2529}#)
+ #:rest))
+ #{tmp\ 2526}#)
+ #f)
+ (@apply
+ (lambda (#{a\ 2533}#
+ #{b\ 2534}#)
+ (#{rest\ 2329}#
+ #{b\ 2534}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ (cons #f
+ (reverse
+ #{rkey\ 2439}#))))
+ #{tmp\ 2526}#)
+ (let ((#{tmp\ 2535}#
+ (list #{tmp\ 2444}#)))
+ (if (if #{tmp\ 2535}#
+ (@apply
+ (lambda (#{r\ 2537}#)
+ (#{id?\ 376}#
+ #{r\ 2537}#))
+ #{tmp\ 2535}#)
+ #f)
+ (@apply
+ (lambda (#{r\ 2539}#)
+ (#{rest\ 2329}#
+ #{r\ 2539}#
+ #{req\ 2437}#
+ #{opt\ 2438}#
+ (cons #f
+ (reverse
+ #{rkey\ 2439}#))))
+ #{tmp\ 2535}#)
+ (let ((#{else\ 2541}#
+ #{tmp\ 2444}#))
+ (syntax-violation
+ 'lambda*
+ "invalid keyword argument list"
+ #{orig-args\ 2320}#
+ #{args\ 2436}#)))))))))))))))))))))))
+ (#{rest\ 2329}#
+ (lambda (#{args\ 2542}#
+ #{req\ 2543}#
+ #{opt\ 2544}#
+ #{kw\ 2545}#)
+ (let ((#{tmp\ 2550}# #{args\ 2542}#))
+ (let ((#{tmp\ 2551}# (list #{tmp\ 2550}#)))
+ (if (if #{tmp\ 2551}#
(@apply
- (lambda (#{k\ 2633}# #{id\ 2634}# #{i\ 2635}#)
- (begin
- (let ((#{v\ 2638}#
- (#{gen-var\ 488}# #{id\ 2634}#)))
- (begin
- (let ((#{l\ 2640}#
- (#{gen-labels\ 395}#
- (list #{v\ 2638}#))))
- (begin
- (let ((#{r**\ 2642}#
- (#{extend-var-env\ 370}#
- #{l\ 2640}#
- (list #{v\ 2638}#)
- #{r*\ 2610}#)))
- (begin
- (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\ 2633}#)
- (syntax->datum
- #{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\ 2628}#))))
- (#{expand-body\ 2536}#
- #{req\ 2604}#
- #{opt\ 2605}#
- #{rest\ 2606}#
- (if (begin
- (let ((#{t\ 2648}# #{aok\ 2612}#))
- (if #{t\ 2648}#
- #{t\ 2648}#
- (pair? #{out\ 2613}#))))
- (cons #{aok\ 2612}# (reverse #{out\ 2613}#))
- #f)
- #{body\ 2608}#
- (reverse #{vars\ 2609}#)
- #{r*\ 2610}#
- #{w*\ 2611}#
- (reverse #{inits\ 2614}#)
- '()))))
- (#{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\ 2670}#
- '(any any . each-any))))
- (if (if #{tmp\ 2671}#
- (@apply
- (lambda (#{docstring\ 2675}#
- #{e1\ 2676}#
- #{e2\ 2677}#)
- (string?
- (syntax->datum #{docstring\ 2675}#)))
- #{tmp\ 2671}#)
- #f)
+ (lambda (#{r\ 2553}#) (#{id?\ 376}# #{r\ 2553}#))
+ #{tmp\ 2551}#)
+ #f)
+ (@apply
+ (lambda (#{r\ 2555}#)
+ (#{check\ 2331}#
+ #{req\ 2543}#
+ #{opt\ 2544}#
+ #{r\ 2555}#
+ #{kw\ 2545}#))
+ #{tmp\ 2551}#)
+ (let ((#{else\ 2557}# #{tmp\ 2550}#))
+ (syntax-violation
+ 'lambda*
+ "invalid rest argument"
+ #{orig-args\ 2320}#
+ #{args\ 2542}#)))))))
+ (#{check\ 2331}#
+ (lambda (#{req\ 2558}#
+ #{opt\ 2559}#
+ #{rest\ 2560}#
+ #{kw\ 2561}#)
+ (if (#{distinct-bound-ids?\ 438}#
+ (append
+ #{req\ 2558}#
+ (map car #{opt\ 2559}#)
+ (if #{rest\ 2560}# (list #{rest\ 2560}#) '())
+ (if (pair? #{kw\ 2561}#)
+ (map cadr (cdr #{kw\ 2561}#))
+ '())))
+ (values
+ #{req\ 2558}#
+ #{opt\ 2559}#
+ #{rest\ 2560}#
+ #{kw\ 2561}#)
+ (syntax-violation
+ 'lambda*
+ "duplicate identifier in argument list"
+ #{orig-args\ 2320}#)))))
+ (begin (#{req\ 2323}# #{orig-args\ 2320}# '())))))
+ (#{chi-lambda-case\ 480}#
+ (lambda (#{e\ 2569}#
+ #{r\ 2570}#
+ #{w\ 2571}#
+ #{s\ 2572}#
+ #{mod\ 2573}#
+ #{get-formals\ 2574}#
+ #{clauses\ 2575}#)
+ (letrec*
+ ((#{expand-req\ 2584}#
+ (lambda (#{req\ 2591}#
+ #{opt\ 2592}#
+ #{rest\ 2593}#
+ #{kw\ 2594}#
+ #{body\ 2595}#)
+ (begin
+ (let ((#{vars\ 2603}#
+ (map #{gen-var\ 484}# #{req\ 2591}#))
+ (#{labels\ 2604}#
+ (#{gen-labels\ 391}# #{req\ 2591}#)))
+ (begin
+ (let ((#{r*\ 2607}#
+ (#{extend-var-env\ 366}#
+ #{labels\ 2604}#
+ #{vars\ 2603}#
+ #{r\ 2570}#))
+ (#{w*\ 2608}#
+ (#{make-binding-wrap\ 420}#
+ #{req\ 2591}#
+ #{labels\ 2604}#
+ #{w\ 2571}#)))
+ (#{expand-opt\ 2586}#
+ (map syntax->datum #{req\ 2591}#)
+ #{opt\ 2592}#
+ #{rest\ 2593}#
+ #{kw\ 2594}#
+ #{body\ 2595}#
+ (reverse #{vars\ 2603}#)
+ #{r*\ 2607}#
+ #{w*\ 2608}#
+ '()
+ '())))))))
+ (#{expand-opt\ 2586}#
+ (lambda (#{req\ 2609}#
+ #{opt\ 2610}#
+ #{rest\ 2611}#
+ #{kw\ 2612}#
+ #{body\ 2613}#
+ #{vars\ 2614}#
+ #{r*\ 2615}#
+ #{w*\ 2616}#
+ #{out\ 2617}#
+ #{inits\ 2618}#)
+ (if (pair? #{opt\ 2610}#)
+ (let ((#{tmp\ 2631}# (car #{opt\ 2610}#)))
+ (let ((#{tmp\ 2632}#
+ ($sc-dispatch #{tmp\ 2631}# '(any any))))
+ (if #{tmp\ 2632}#
(@apply
- (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\ 2659}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring\ 2681}#))))))
- #{tmp\ 2671}#)
- (let ((#{tmp\ 2686}#
- ($sc-dispatch
- #{tmp\ 2670}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp\ 2686}#
- (@apply
- (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\ 2659}#
- (syntax->datum
- (map cons #{k\ 2691}# #{v\ 2692}#)))))
- #{tmp\ 2686}#)
- (let ((#{tmp\ 2698}#
- ($sc-dispatch
- #{tmp\ 2670}#
- '(any . each-any))))
- (if #{tmp\ 2698}#
- (@apply
- (lambda (#{e1\ 2701}# #{e2\ 2702}#)
- (values
- #{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\ 2670}#)))))))))))
- (begin
- (let ((#{tmp\ 2704}# #{clauses\ 2521}#))
- (let ((#{tmp\ 2705}# ($sc-dispatch #{tmp\ 2704}# '())))
- (if #{tmp\ 2705}#
- (@apply
- (lambda () (values '() #f))
- #{tmp\ 2705}#)
- (let ((#{tmp\ 2706}#
- ($sc-dispatch
- #{tmp\ 2704}#
- '((any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 2706}#
- (@apply
- (lambda (#{args\ 2713}#
- #{e1\ 2714}#
- #{e2\ 2715}#
- #{args*\ 2716}#
- #{e1*\ 2717}#
- #{e2*\ 2718}#)
- (call-with-values
- (lambda ()
- (#{get-formals\ 2520}# #{args\ 2713}#))
- (lambda (#{req\ 2719}#
- #{opt\ 2720}#
- #{rest\ 2721}#
- #{kw\ 2722}#)
- (call-with-values
- (lambda ()
- (#{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\ 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\ 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\ 2704}#))))))))))
- (#{strip\ 486}#
- (lambda (#{x\ 2752}# #{w\ 2753}#)
- (if (memq 'top (car #{w\ 2753}#))
- #{x\ 2752}#
- (letrec*
- ((#{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}#)
+ (lambda (#{id\ 2635}# #{i\ 2636}#)
+ (begin
+ (let ((#{v\ 2639}#
+ (#{gen-var\ 484}# #{id\ 2635}#)))
+ (begin
+ (let ((#{l\ 2641}#
+ (#{gen-labels\ 391}#
+ (list #{v\ 2639}#))))
+ (begin
+ (let ((#{r**\ 2643}#
+ (#{extend-var-env\ 366}#
+ #{l\ 2641}#
+ (list #{v\ 2639}#)
+ #{r*\ 2615}#)))
+ (begin
+ (let ((#{w**\ 2645}#
+ (#{make-binding-wrap\ 420}#
+ (list #{id\ 2635}#)
+ #{l\ 2641}#
+ #{w*\ 2616}#)))
+ (#{expand-opt\ 2586}#
+ #{req\ 2609}#
+ (cdr #{opt\ 2610}#)
+ #{rest\ 2611}#
+ #{kw\ 2612}#
+ #{body\ 2613}#
+ (cons #{v\ 2639}#
+ #{vars\ 2614}#)
+ #{r**\ 2643}#
+ #{w**\ 2645}#
+ (cons (syntax->datum
+ #{id\ 2635}#)
+ #{out\ 2617}#)
+ (cons (#{chi\ 456}#
+ #{i\ 2636}#
+ #{r*\ 2615}#
+ #{w*\ 2616}#
+ #{mod\ 2573}#)
+ #{inits\ 2618}#)))))))))))
+ #{tmp\ 2632}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 2631}#))))
+ (if #{rest\ 2611}#
+ (begin
+ (let ((#{v\ 2650}# (#{gen-var\ 484}# #{rest\ 2611}#)))
(begin
- (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\ 2761}#
- (cons #{a\ 2768}# #{d\ 2769}#))))
- (if (vector? #{x\ 2761}#)
- (begin
- (let ((#{old\ 2775}# (vector->list #{x\ 2761}#)))
- (begin
- (let ((#{new\ 2777}#
- (map #{f\ 2760}# #{old\ 2775}#)))
- (if (#{and-map*\ 38}#
- eq?
- #{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\ 2782}#
- (if (#{syntax-object?\ 346}# #{id\ 2779}#)
- (#{syntax-object-expression\ 348}# #{id\ 2779}#)
- #{id\ 2779}#)))
- (gensym
- (string-append (symbol->string #{id\ 2782}#) " "))))))
- (#{lambda-var-list\ 490}#
- (lambda (#{vars\ 2784}#)
- (letrec*
- ((#{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\ 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
- (lambda (#{src\ 756}# #{name\ 757}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 2)
- #{src\ 756}#
- #{name\ 757}#))
- (lambda (#{x\ 1134}# #{update\ 1135}#)
- (vector-set! #{x\ 1134}# 1 #{update\ 1135}#))
- (lambda (#{x\ 1138}# #{update\ 1139}#)
- (vector-set! #{x\ 1138}# 2 #{update\ 1139}#))
- (lambda (#{x\ 1142}# #{update\ 1143}#)
- (vector-set! #{x\ 1142}# 3 #{update\ 1143}#))
- (lambda (#{x\ 1223}#)
- (if (vector? #{x\ 1223}#)
- (if (= (vector-length #{x\ 1223}#) 4)
- (eq? (vector-ref #{x\ 1223}# 0) 'ribcage)
- #f)
- #f))
- (set! #{fx+\ 283}# +)
- (set! #{fx-\ 285}# -)
- (set! #{fx=\ 287}# =)
- (set! #{fx<\ 289}# <)
- (begin
- (#{global-extend\ 376}#
- 'local-syntax
- 'letrec-syntax
- #t)
- (#{global-extend\ 376}#
- 'local-syntax
- 'let-syntax
- #f)
- (#{global-extend\ 376}#
- 'core
- 'fluid-let-syntax
- (lambda (#{e\ 2804}#
- #{r\ 2805}#
- #{w\ 2806}#
- #{s\ 2807}#
- #{mod\ 2808}#)
- (let ((#{tmp\ 2814}# #{e\ 2804}#))
- (let ((#{tmp\ 2815}#
- ($sc-dispatch
- #{tmp\ 2814}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 2815}#
- (@apply
- (lambda (#{var\ 2820}#
- #{val\ 2821}#
- #{e1\ 2822}#
- #{e2\ 2823}#)
- (#{valid-bound-ids?\ 440}# #{var\ 2820}#))
- #{tmp\ 2815}#)
+ (let ((#{l\ 2652}#
+ (#{gen-labels\ 391}# (list #{v\ 2650}#))))
+ (begin
+ (let ((#{r*\ 2654}#
+ (#{extend-var-env\ 366}#
+ #{l\ 2652}#
+ (list #{v\ 2650}#)
+ #{r*\ 2615}#)))
+ (begin
+ (let ((#{w*\ 2656}#
+ (#{make-binding-wrap\ 420}#
+ (list #{rest\ 2611}#)
+ #{l\ 2652}#
+ #{w*\ 2616}#)))
+ (#{expand-kw\ 2588}#
+ #{req\ 2609}#
+ (if (pair? #{out\ 2617}#)
+ (reverse #{out\ 2617}#)
+ #f)
+ (syntax->datum #{rest\ 2611}#)
+ (if (pair? #{kw\ 2612}#)
+ (cdr #{kw\ 2612}#)
+ #{kw\ 2612}#)
+ #{body\ 2613}#
+ (cons #{v\ 2650}# #{vars\ 2614}#)
+ #{r*\ 2654}#
+ #{w*\ 2656}#
+ (if (pair? #{kw\ 2612}#)
+ (car #{kw\ 2612}#)
+ #f)
+ '()
+ #{inits\ 2618}#)))))))))
+ (#{expand-kw\ 2588}#
+ #{req\ 2609}#
+ (if (pair? #{out\ 2617}#)
+ (reverse #{out\ 2617}#)
#f)
- (@apply
- (lambda (#{var\ 2829}#
- #{val\ 2830}#
- #{e1\ 2831}#
- #{e2\ 2832}#)
- (begin
- (let ((#{names\ 2834}#
- (map (lambda (#{x\ 2835}#)
- (#{id-var-name\ 434}#
- #{x\ 2835}#
- #{w\ 2806}#))
- #{var\ 2829}#)))
+ #f
+ (if (pair? #{kw\ 2612}#)
+ (cdr #{kw\ 2612}#)
+ #{kw\ 2612}#)
+ #{body\ 2613}#
+ #{vars\ 2614}#
+ #{r*\ 2615}#
+ #{w*\ 2616}#
+ (if (pair? #{kw\ 2612}#) (car #{kw\ 2612}#) #f)
+ '()
+ #{inits\ 2618}#)))))
+ (#{expand-kw\ 2588}#
+ (lambda (#{req\ 2658}#
+ #{opt\ 2659}#
+ #{rest\ 2660}#
+ #{kw\ 2661}#
+ #{body\ 2662}#
+ #{vars\ 2663}#
+ #{r*\ 2664}#
+ #{w*\ 2665}#
+ #{aok\ 2666}#
+ #{out\ 2667}#
+ #{inits\ 2668}#)
+ (if (pair? #{kw\ 2661}#)
+ (let ((#{tmp\ 2682}# (car #{kw\ 2661}#)))
+ (let ((#{tmp\ 2683}#
+ ($sc-dispatch #{tmp\ 2682}# '(any any any))))
+ (if #{tmp\ 2683}#
+ (@apply
+ (lambda (#{k\ 2687}# #{id\ 2688}# #{i\ 2689}#)
(begin
- (for-each
- (lambda (#{id\ 2838}# #{n\ 2839}#)
- (begin
- (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\ 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\ 2850}#
- (#{macros-only-env\ 372}#
- #{r\ 2805}#)))
- (map (lambda (#{x\ 2851}#)
- (cons 'macro
- (#{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\ 448}#
- #{e\ 2804}#
- #{w\ 2806}#
- #{s\ 2807}#
- #{mod\ 2808}#))))))))
- (#{global-extend\ 376}#
- 'core
- 'quote
- (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\ 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\ 448}#
- #{e\ 2857}#
- #{w\ 2859}#
- #{s\ 2860}#
- #{mod\ 2861}#))))))))
- (#{global-extend\ 376}#
- 'core
- 'syntax
- (letrec*
- ((#{gen-syntax\ 2874}#
- (lambda (#{src\ 2889}#
- #{e\ 2890}#
- #{r\ 2891}#
- #{maps\ 2892}#
- #{ellipsis?\ 2893}#
- #{mod\ 2894}#)
- (if (#{id?\ 380}# #{e\ 2890}#)
- (begin
- (let ((#{label\ 2902}#
- (#{id-var-name\ 434}# #{e\ 2890}# '(()))))
- (begin
- (let ((#{b\ 2905}#
- (#{lookup\ 374}#
- #{label\ 2902}#
- #{r\ 2891}#
- #{mod\ 2894}#)))
- (if (eq? (car #{b\ 2905}#) 'syntax)
+ (let ((#{v\ 2692}#
+ (#{gen-var\ 484}# #{id\ 2688}#)))
+ (begin
+ (let ((#{l\ 2694}#
+ (#{gen-labels\ 391}#
+ (list #{v\ 2692}#))))
+ (begin
+ (let ((#{r**\ 2696}#
+ (#{extend-var-env\ 366}#
+ #{l\ 2694}#
+ (list #{v\ 2692}#)
+ #{r*\ 2664}#)))
+ (begin
+ (let ((#{w**\ 2698}#
+ (#{make-binding-wrap\ 420}#
+ (list #{id\ 2688}#)
+ #{l\ 2694}#
+ #{w*\ 2665}#)))
+ (#{expand-kw\ 2588}#
+ #{req\ 2658}#
+ #{opt\ 2659}#
+ #{rest\ 2660}#
+ (cdr #{kw\ 2661}#)
+ #{body\ 2662}#
+ (cons #{v\ 2692}#
+ #{vars\ 2663}#)
+ #{r**\ 2696}#
+ #{w**\ 2698}#
+ #{aok\ 2666}#
+ (cons (list (syntax->datum
+ #{k\ 2687}#)
+ (syntax->datum
+ #{id\ 2688}#)
+ #{v\ 2692}#)
+ #{out\ 2667}#)
+ (cons (#{chi\ 456}#
+ #{i\ 2689}#
+ #{r*\ 2664}#
+ #{w*\ 2665}#
+ #{mod\ 2573}#)
+ #{inits\ 2668}#)))))))))))
+ #{tmp\ 2683}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 2682}#))))
+ (#{expand-body\ 2590}#
+ #{req\ 2658}#
+ #{opt\ 2659}#
+ #{rest\ 2660}#
+ (if (begin
+ (let ((#{t\ 2702}# #{aok\ 2666}#))
+ (if #{t\ 2702}#
+ #{t\ 2702}#
+ (pair? #{out\ 2667}#))))
+ (cons #{aok\ 2666}# (reverse #{out\ 2667}#))
+ #f)
+ #{body\ 2662}#
+ (reverse #{vars\ 2663}#)
+ #{r*\ 2664}#
+ #{w*\ 2665}#
+ (reverse #{inits\ 2668}#)
+ '()))))
+ (#{expand-body\ 2590}#
+ (lambda (#{req\ 2704}#
+ #{opt\ 2705}#
+ #{rest\ 2706}#
+ #{kw\ 2707}#
+ #{body\ 2708}#
+ #{vars\ 2709}#
+ #{r*\ 2710}#
+ #{w*\ 2711}#
+ #{inits\ 2712}#
+ #{meta\ 2713}#)
+ (let ((#{tmp\ 2724}# #{body\ 2708}#))
+ (let ((#{tmp\ 2725}#
+ ($sc-dispatch
+ #{tmp\ 2724}#
+ '(any any . each-any))))
+ (if (if #{tmp\ 2725}#
+ (@apply
+ (lambda (#{docstring\ 2729}#
+ #{e1\ 2730}#
+ #{e2\ 2731}#)
+ (string? (syntax->datum #{docstring\ 2729}#)))
+ #{tmp\ 2725}#)
+ #f)
+ (@apply
+ (lambda (#{docstring\ 2735}#
+ #{e1\ 2736}#
+ #{e2\ 2737}#)
+ (#{expand-body\ 2590}#
+ #{req\ 2704}#
+ #{opt\ 2705}#
+ #{rest\ 2706}#
+ #{kw\ 2707}#
+ (cons #{e1\ 2736}# #{e2\ 2737}#)
+ #{vars\ 2709}#
+ #{r*\ 2710}#
+ #{w*\ 2711}#
+ #{inits\ 2712}#
+ (append
+ #{meta\ 2713}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring\ 2735}#))))))
+ #{tmp\ 2725}#)
+ (let ((#{tmp\ 2740}#
+ ($sc-dispatch
+ #{tmp\ 2724}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp\ 2740}#
+ (@apply
+ (lambda (#{k\ 2745}#
+ #{v\ 2746}#
+ #{e1\ 2747}#
+ #{e2\ 2748}#)
+ (#{expand-body\ 2590}#
+ #{req\ 2704}#
+ #{opt\ 2705}#
+ #{rest\ 2706}#
+ #{kw\ 2707}#
+ (cons #{e1\ 2747}# #{e2\ 2748}#)
+ #{vars\ 2709}#
+ #{r*\ 2710}#
+ #{w*\ 2711}#
+ #{inits\ 2712}#
+ (append
+ #{meta\ 2713}#
+ (syntax->datum
+ (map cons #{k\ 2745}# #{v\ 2746}#)))))
+ #{tmp\ 2740}#)
+ (let ((#{tmp\ 2752}#
+ ($sc-dispatch
+ #{tmp\ 2724}#
+ '(any . each-any))))
+ (if #{tmp\ 2752}#
+ (@apply
+ (lambda (#{e1\ 2755}# #{e2\ 2756}#)
+ (values
+ #{meta\ 2713}#
+ #{req\ 2704}#
+ #{opt\ 2705}#
+ #{rest\ 2706}#
+ #{kw\ 2707}#
+ #{inits\ 2712}#
+ #{vars\ 2709}#
+ (#{chi-body\ 464}#
+ (cons #{e1\ 2755}# #{e2\ 2756}#)
+ (#{source-wrap\ 444}#
+ #{e\ 2569}#
+ #{w\ 2571}#
+ #{s\ 2572}#
+ #{mod\ 2573}#)
+ #{r*\ 2710}#
+ #{w*\ 2711}#
+ #{mod\ 2573}#)))
+ #{tmp\ 2752}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 2724}#)))))))))))
+ (begin
+ (let ((#{tmp\ 2758}# #{clauses\ 2575}#))
+ (let ((#{tmp\ 2759}# ($sc-dispatch #{tmp\ 2758}# '())))
+ (if #{tmp\ 2759}#
+ (@apply
+ (lambda () (values '() #f))
+ #{tmp\ 2759}#)
+ (let ((#{tmp\ 2760}#
+ ($sc-dispatch
+ #{tmp\ 2758}#
+ '((any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp\ 2760}#
+ (@apply
+ (lambda (#{args\ 2767}#
+ #{e1\ 2768}#
+ #{e2\ 2769}#
+ #{args*\ 2770}#
+ #{e1*\ 2771}#
+ #{e2*\ 2772}#)
+ (call-with-values
+ (lambda ()
+ (#{get-formals\ 2574}# #{args\ 2767}#))
+ (lambda (#{req\ 2773}#
+ #{opt\ 2774}#
+ #{rest\ 2775}#
+ #{kw\ 2776}#)
(call-with-values
(lambda ()
- (begin
- (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\ 2910}#)
- #{maps\ 2911}#)))
- (if (#{ellipsis?\ 2893}# #{e\ 2890}#)
- (syntax-violation
- 'syntax
- "misplaced ellipsis"
- #{src\ 2889}#)
+ (#{expand-req\ 2584}#
+ #{req\ 2773}#
+ #{opt\ 2774}#
+ #{rest\ 2775}#
+ #{kw\ 2776}#
+ (cons #{e1\ 2768}# #{e2\ 2769}#)))
+ (lambda (#{meta\ 2782}#
+ #{req\ 2783}#
+ #{opt\ 2784}#
+ #{rest\ 2785}#
+ #{kw\ 2786}#
+ #{inits\ 2787}#
+ #{vars\ 2788}#
+ #{body\ 2789}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case\ 480}#
+ #{e\ 2569}#
+ #{r\ 2570}#
+ #{w\ 2571}#
+ #{s\ 2572}#
+ #{mod\ 2573}#
+ #{get-formals\ 2574}#
+ (map (lambda (#{tmp\ 2800}#
+ #{tmp\ 2799}#
+ #{tmp\ 2798}#)
+ (cons #{tmp\ 2798}#
+ (cons #{tmp\ 2799}#
+ #{tmp\ 2800}#)))
+ #{e2*\ 2772}#
+ #{e1*\ 2771}#
+ #{args*\ 2770}#)))
+ (lambda (#{meta*\ 2802}#
+ #{else*\ 2803}#)
+ (values
+ (append
+ #{meta\ 2782}#
+ #{meta*\ 2802}#)
+ (#{build-lambda-case\ 324}#
+ #{s\ 2572}#
+ #{req\ 2783}#
+ #{opt\ 2784}#
+ #{rest\ 2785}#
+ #{kw\ 2786}#
+ #{inits\ 2787}#
+ #{vars\ 2788}#
+ #{body\ 2789}#
+ #{else*\ 2803}#)))))))))
+ #{tmp\ 2760}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 2758}#))))))))))
+ (#{strip\ 482}#
+ (lambda (#{x\ 2806}# #{w\ 2807}#)
+ (if (memq 'top (car #{w\ 2807}#))
+ #{x\ 2806}#
+ (letrec*
+ ((#{f\ 2814}#
+ (lambda (#{x\ 2815}#)
+ (if (#{syntax-object?\ 342}# #{x\ 2815}#)
+ (#{strip\ 482}#
+ (#{syntax-object-expression\ 344}# #{x\ 2815}#)
+ (#{syntax-object-wrap\ 346}# #{x\ 2815}#))
+ (if (pair? #{x\ 2815}#)
+ (begin
+ (let ((#{a\ 2822}# (#{f\ 2814}# (car #{x\ 2815}#)))
+ (#{d\ 2823}# (#{f\ 2814}# (cdr #{x\ 2815}#))))
+ (if (if (eq? #{a\ 2822}# (car #{x\ 2815}#))
+ (eq? #{d\ 2823}# (cdr #{x\ 2815}#))
+ #f)
+ #{x\ 2815}#
+ (cons #{a\ 2822}# #{d\ 2823}#))))
+ (if (vector? #{x\ 2815}#)
+ (begin
+ (let ((#{old\ 2829}# (vector->list #{x\ 2815}#)))
+ (begin
+ (let ((#{new\ 2831}#
+ (map #{f\ 2814}# #{old\ 2829}#)))
+ (if (#{and-map*\ 38}#
+ eq?
+ #{old\ 2829}#
+ #{new\ 2831}#)
+ #{x\ 2815}#
+ (list->vector #{new\ 2831}#))))))
+ #{x\ 2815}#))))))
+ (begin (#{f\ 2814}# #{x\ 2806}#))))))
+ (#{gen-var\ 484}#
+ (lambda (#{id\ 2833}#)
+ (begin
+ (let ((#{id\ 2836}#
+ (if (#{syntax-object?\ 342}# #{id\ 2833}#)
+ (#{syntax-object-expression\ 344}# #{id\ 2833}#)
+ #{id\ 2833}#)))
+ (gensym
+ (string-append (symbol->string #{id\ 2836}#) " "))))))
+ (#{lambda-var-list\ 486}#
+ (lambda (#{vars\ 2838}#)
+ (letrec*
+ ((#{lvl\ 2844}#
+ (lambda (#{vars\ 2845}# #{ls\ 2846}# #{w\ 2847}#)
+ (if (pair? #{vars\ 2845}#)
+ (#{lvl\ 2844}#
+ (cdr #{vars\ 2845}#)
+ (cons (#{wrap\ 442}#
+ (car #{vars\ 2845}#)
+ #{w\ 2847}#
+ #f)
+ #{ls\ 2846}#)
+ #{w\ 2847}#)
+ (if (#{id?\ 376}# #{vars\ 2845}#)
+ (cons (#{wrap\ 442}# #{vars\ 2845}# #{w\ 2847}# #f)
+ #{ls\ 2846}#)
+ (if (null? #{vars\ 2845}#)
+ #{ls\ 2846}#
+ (if (#{syntax-object?\ 342}# #{vars\ 2845}#)
+ (#{lvl\ 2844}#
+ (#{syntax-object-expression\ 344}#
+ #{vars\ 2845}#)
+ #{ls\ 2846}#
+ (#{join-wraps\ 424}#
+ #{w\ 2847}#
+ (#{syntax-object-wrap\ 346}# #{vars\ 2845}#)))
+ (cons #{vars\ 2845}# #{ls\ 2846}#))))))))
+ (begin (#{lvl\ 2844}# #{vars\ 2838}# '() '(())))))))
+ (begin
+ (lambda (#{src\ 804}# #{name\ 805}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 2)
+ #{src\ 804}#
+ #{name\ 805}#))
+ (lambda (#{x\ 1182}# #{update\ 1183}#)
+ (vector-set! #{x\ 1182}# 1 #{update\ 1183}#))
+ (lambda (#{x\ 1186}# #{update\ 1187}#)
+ (vector-set! #{x\ 1186}# 2 #{update\ 1187}#))
+ (lambda (#{x\ 1190}# #{update\ 1191}#)
+ (vector-set! #{x\ 1190}# 3 #{update\ 1191}#))
+ (lambda (#{x\ 1271}#)
+ (if (vector? #{x\ 1271}#)
+ (if (= (vector-length #{x\ 1271}#) 4)
+ (eq? (vector-ref #{x\ 1271}# 0) 'ribcage)
+ #f)
+ #f))
+ (begin
+ (#{global-extend\ 372}#
+ 'local-syntax
+ 'letrec-syntax
+ #t)
+ (#{global-extend\ 372}#
+ 'local-syntax
+ 'let-syntax
+ #f)
+ (#{global-extend\ 372}#
+ 'core
+ 'fluid-let-syntax
+ (lambda (#{e\ 2858}#
+ #{r\ 2859}#
+ #{w\ 2860}#
+ #{s\ 2861}#
+ #{mod\ 2862}#)
+ (let ((#{tmp\ 2868}# #{e\ 2858}#))
+ (let ((#{tmp\ 2869}#
+ ($sc-dispatch
+ #{tmp\ 2868}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 2869}#
+ (@apply
+ (lambda (#{var\ 2874}#
+ #{val\ 2875}#
+ #{e1\ 2876}#
+ #{e2\ 2877}#)
+ (#{valid-bound-ids?\ 436}# #{var\ 2874}#))
+ #{tmp\ 2869}#)
+ #f)
+ (@apply
+ (lambda (#{var\ 2883}#
+ #{val\ 2884}#
+ #{e1\ 2885}#
+ #{e2\ 2886}#)
+ (begin
+ (let ((#{names\ 2888}#
+ (map (lambda (#{x\ 2889}#)
+ (#{id-var-name\ 430}#
+ #{x\ 2889}#
+ #{w\ 2860}#))
+ #{var\ 2883}#)))
+ (begin
+ (for-each
+ (lambda (#{id\ 2892}# #{n\ 2893}#)
+ (begin
+ (let ((#{atom-key\ 2898}#
+ (car (#{lookup\ 370}#
+ #{n\ 2893}#
+ #{r\ 2859}#
+ #{mod\ 2862}#))))
+ (if (eqv? #{atom-key\ 2898}#
+ 'displaced-lexical)
+ (syntax-violation
+ 'fluid-let-syntax
+ "identifier out of context"
+ #{e\ 2858}#
+ (#{source-wrap\ 444}#
+ #{id\ 2892}#
+ #{w\ 2860}#
+ #{s\ 2861}#
+ #{mod\ 2862}#))))))
+ #{var\ 2883}#
+ #{names\ 2888}#)
+ (#{chi-body\ 464}#
+ (cons #{e1\ 2885}# #{e2\ 2886}#)
+ (#{source-wrap\ 444}#
+ #{e\ 2858}#
+ #{w\ 2860}#
+ #{s\ 2861}#
+ #{mod\ 2862}#)
+ (#{extend-env\ 364}#
+ #{names\ 2888}#
+ (begin
+ (let ((#{trans-r\ 2904}#
+ (#{macros-only-env\ 368}#
+ #{r\ 2859}#)))
+ (map (lambda (#{x\ 2905}#)
+ (cons 'macro
+ (#{eval-local-transformer\ 468}#
+ (#{chi\ 456}#
+ #{x\ 2905}#
+ #{trans-r\ 2904}#
+ #{w\ 2860}#
+ #{mod\ 2862}#)
+ #{mod\ 2862}#)))
+ #{val\ 2884}#)))
+ #{r\ 2859}#)
+ #{w\ 2860}#
+ #{mod\ 2862}#)))))
+ #{tmp\ 2869}#)
+ (let ((#{_\ 2910}# #{tmp\ 2868}#))
+ (syntax-violation
+ 'fluid-let-syntax
+ "bad syntax"
+ (#{source-wrap\ 444}#
+ #{e\ 2858}#
+ #{w\ 2860}#
+ #{s\ 2861}#
+ #{mod\ 2862}#))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'quote
+ (lambda (#{e\ 2911}#
+ #{r\ 2912}#
+ #{w\ 2913}#
+ #{s\ 2914}#
+ #{mod\ 2915}#)
+ (let ((#{tmp\ 2921}# #{e\ 2911}#))
+ (let ((#{tmp\ 2922}#
+ ($sc-dispatch #{tmp\ 2921}# '(_ any))))
+ (if #{tmp\ 2922}#
+ (@apply
+ (lambda (#{e\ 2924}#)
+ (#{build-data\ 328}#
+ #{s\ 2914}#
+ (#{strip\ 482}# #{e\ 2924}# #{w\ 2913}#)))
+ #{tmp\ 2922}#)
+ (let ((#{_\ 2926}# #{tmp\ 2921}#))
+ (syntax-violation
+ 'quote
+ "bad syntax"
+ (#{source-wrap\ 444}#
+ #{e\ 2911}#
+ #{w\ 2913}#
+ #{s\ 2914}#
+ #{mod\ 2915}#))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'syntax
+ (letrec*
+ ((#{gen-syntax\ 2928}#
+ (lambda (#{src\ 2943}#
+ #{e\ 2944}#
+ #{r\ 2945}#
+ #{maps\ 2946}#
+ #{ellipsis?\ 2947}#
+ #{mod\ 2948}#)
+ (if (#{id?\ 376}# #{e\ 2944}#)
+ (begin
+ (let ((#{label\ 2956}#
+ (#{id-var-name\ 430}# #{e\ 2944}# '(()))))
+ (begin
+ (let ((#{b\ 2959}#
+ (#{lookup\ 370}#
+ #{label\ 2956}#
+ #{r\ 2945}#
+ #{mod\ 2948}#)))
+ (if (eq? (car #{b\ 2959}#) 'syntax)
+ (call-with-values
+ (lambda ()
+ (begin
+ (let ((#{var.lev\ 2962}#
+ (cdr #{b\ 2959}#)))
+ (#{gen-ref\ 2930}#
+ #{src\ 2943}#
+ (car #{var.lev\ 2962}#)
+ (cdr #{var.lev\ 2962}#)
+ #{maps\ 2946}#))))
+ (lambda (#{var\ 2964}# #{maps\ 2965}#)
(values
- (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\ 2920}# #{e\ 2921}#)
- (#{ellipsis?\ 2893}# #{dots\ 2920}#))
- #{tmp\ 2917}#)
- #f)
- (@apply
- (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\ 2916}#
- '(any any . any))))
- (if (if #{tmp\ 2928}#
- (@apply
- (lambda (#{x\ 2932}#
- #{dots\ 2933}#
- #{y\ 2934}#)
- (#{ellipsis?\ 2893}# #{dots\ 2933}#))
- #{tmp\ 2928}#)
- #f)
- (@apply
- (lambda (#{x\ 2938}#
- #{dots\ 2939}#
- #{y\ 2940}#)
- (letrec*
- ((#{f\ 2944}#
- (lambda (#{y\ 2945}# #{k\ 2946}#)
- (let ((#{tmp\ 2953}# #{y\ 2945}#))
- (let ((#{tmp\ 2954}#
- ($sc-dispatch
- #{tmp\ 2953}#
- '(any . any))))
- (if (if #{tmp\ 2954}#
- (@apply
- (lambda (#{dots\ 2957}#
- #{y\ 2958}#)
- (#{ellipsis?\ 2893}#
- #{dots\ 2957}#))
- #{tmp\ 2954}#)
- #f)
- (@apply
- (lambda (#{dots\ 2961}#
- #{y\ 2962}#)
- (#{f\ 2944}#
- #{y\ 2962}#
- (lambda (#{maps\ 2963}#)
- (call-with-values
- (lambda ()
- (#{k\ 2946}#
- (cons '()
- #{maps\ 2963}#)))
- (lambda (#{x\ 2965}#
- #{maps\ 2966}#)
- (if (null? (car #{maps\ 2966}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src\ 2889}#)
- (values
- (#{gen-mappend\ 2878}#
- #{x\ 2965}#
- (car #{maps\ 2966}#))
- (cdr #{maps\ 2966}#))))))))
- #{tmp\ 2954}#)
- (let ((#{_\ 2970}#
- #{tmp\ 2953}#))
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2874}#
- #{src\ 2889}#
- #{y\ 2945}#
- #{r\ 2891}#
- #{maps\ 2892}#
- #{ellipsis?\ 2893}#
- #{mod\ 2894}#))
- (lambda (#{y\ 2971}#
- #{maps\ 2972}#)
+ (list 'ref #{var\ 2964}#)
+ #{maps\ 2965}#)))
+ (if (#{ellipsis?\ 2947}# #{e\ 2944}#)
+ (syntax-violation
+ 'syntax
+ "misplaced ellipsis"
+ #{src\ 2943}#)
+ (values
+ (list 'quote #{e\ 2944}#)
+ #{maps\ 2946}#)))))))
+ (let ((#{tmp\ 2970}# #{e\ 2944}#))
+ (let ((#{tmp\ 2971}#
+ ($sc-dispatch #{tmp\ 2970}# '(any any))))
+ (if (if #{tmp\ 2971}#
+ (@apply
+ (lambda (#{dots\ 2974}# #{e\ 2975}#)
+ (#{ellipsis?\ 2947}# #{dots\ 2974}#))
+ #{tmp\ 2971}#)
+ #f)
+ (@apply
+ (lambda (#{dots\ 2978}# #{e\ 2979}#)
+ (#{gen-syntax\ 2928}#
+ #{src\ 2943}#
+ #{e\ 2979}#
+ #{r\ 2945}#
+ #{maps\ 2946}#
+ (lambda (#{x\ 2980}#) #f)
+ #{mod\ 2948}#))
+ #{tmp\ 2971}#)
+ (let ((#{tmp\ 2982}#
+ ($sc-dispatch
+ #{tmp\ 2970}#
+ '(any any . any))))
+ (if (if #{tmp\ 2982}#
+ (@apply
+ (lambda (#{x\ 2986}#
+ #{dots\ 2987}#
+ #{y\ 2988}#)
+ (#{ellipsis?\ 2947}# #{dots\ 2987}#))
+ #{tmp\ 2982}#)
+ #f)
+ (@apply
+ (lambda (#{x\ 2992}#
+ #{dots\ 2993}#
+ #{y\ 2994}#)
+ (letrec*
+ ((#{f\ 2998}#
+ (lambda (#{y\ 2999}# #{k\ 3000}#)
+ (let ((#{tmp\ 3007}# #{y\ 2999}#))
+ (let ((#{tmp\ 3008}#
+ ($sc-dispatch
+ #{tmp\ 3007}#
+ '(any . any))))
+ (if (if #{tmp\ 3008}#
+ (@apply
+ (lambda (#{dots\ 3011}#
+ #{y\ 3012}#)
+ (#{ellipsis?\ 2947}#
+ #{dots\ 3011}#))
+ #{tmp\ 3008}#)
+ #f)
+ (@apply
+ (lambda (#{dots\ 3015}#
+ #{y\ 3016}#)
+ (#{f\ 2998}#
+ #{y\ 3016}#
+ (lambda (#{maps\ 3017}#)
(call-with-values
(lambda ()
- (#{k\ 2946}#
- #{maps\ 2972}#))
- (lambda (#{x\ 2975}#
- #{maps\ 2976}#)
- (values
- (#{gen-append\ 2884}#
- #{x\ 2975}#
- #{y\ 2971}#)
- #{maps\ 2976}#))))))))))))
- (begin
- (#{f\ 2944}#
- #{y\ 2940}#
- (lambda (#{maps\ 2947}#)
- (call-with-values
- (lambda ()
- (#{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\ 2889}#)
- (values
- (#{gen-map\ 2880}#
- #{x\ 2949}#
- (car #{maps\ 2950}#))
- (cdr #{maps\ 2950}#))))))))))
- #{tmp\ 2928}#)
- (let ((#{tmp\ 2979}#
- ($sc-dispatch
- #{tmp\ 2916}#
- '(any . any))))
- (if #{tmp\ 2979}#
- (@apply
- (lambda (#{x\ 2982}# #{y\ 2983}#)
- (call-with-values
- (lambda ()
- (#{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\ 2874}#
- #{src\ 2889}#
- #{y\ 2983}#
- #{r\ 2891}#
- #{maps\ 2985}#
- #{ellipsis?\ 2893}#
- #{mod\ 2894}#))
- (lambda (#{y\ 2988}#
- #{maps\ 2989}#)
- (values
- (#{gen-cons\ 2882}#
- #{x\ 2984}#
- #{y\ 2988}#)
- #{maps\ 2989}#))))))
- #{tmp\ 2979}#)
- (let ((#{tmp\ 2992}#
- ($sc-dispatch
- #{tmp\ 2916}#
- '#(vector (any . each-any)))))
- (if #{tmp\ 2992}#
- (@apply
- (lambda (#{e1\ 2995}# #{e2\ 2996}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2874}#
- #{src\ 2889}#
- (cons #{e1\ 2995}#
- #{e2\ 2996}#)
- #{r\ 2891}#
- #{maps\ 2892}#
- #{ellipsis?\ 2893}#
- #{mod\ 2894}#))
- (lambda (#{e\ 2998}#
- #{maps\ 2999}#)
+ (#{k\ 3000}#
+ (cons '()
+ #{maps\ 3017}#)))
+ (lambda (#{x\ 3019}#
+ #{maps\ 3020}#)
+ (if (null? (car #{maps\ 3020}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src\ 2943}#)
+ (values
+ (#{gen-mappend\ 2932}#
+ #{x\ 3019}#
+ (car #{maps\ 3020}#))
+ (cdr #{maps\ 3020}#))))))))
+ #{tmp\ 3008}#)
+ (let ((#{_\ 3024}#
+ #{tmp\ 3007}#))
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax\ 2928}#
+ #{src\ 2943}#
+ #{y\ 2999}#
+ #{r\ 2945}#
+ #{maps\ 2946}#
+ #{ellipsis?\ 2947}#
+ #{mod\ 2948}#))
+ (lambda (#{y\ 3025}#
+ #{maps\ 3026}#)
+ (call-with-values
+ (lambda ()
+ (#{k\ 3000}#
+ #{maps\ 3026}#))
+ (lambda (#{x\ 3029}#
+ #{maps\ 3030}#)
+ (values
+ (#{gen-append\ 2938}#
+ #{x\ 3029}#
+ #{y\ 3025}#)
+ #{maps\ 3030}#))))))))))))
+ (begin
+ (#{f\ 2998}#
+ #{y\ 2994}#
+ (lambda (#{maps\ 3001}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax\ 2928}#
+ #{src\ 2943}#
+ #{x\ 2992}#
+ #{r\ 2945}#
+ (cons '() #{maps\ 3001}#)
+ #{ellipsis?\ 2947}#
+ #{mod\ 2948}#))
+ (lambda (#{x\ 3003}#
+ #{maps\ 3004}#)
+ (if (null? (car #{maps\ 3004}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src\ 2943}#)
(values
- (#{gen-vector\ 2886}#
- #{e\ 2998}#)
- #{maps\ 2999}#))))
- #{tmp\ 2992}#)
- (let ((#{_\ 3003}# #{tmp\ 2916}#))
- (values
- (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\ 3005}#)
- (call-with-values
- (lambda ()
- (#{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\ 3018}#
- (assq #{outer-var\ 3013}#
- (car #{maps\ 3008}#))))
- (if #{b\ 3018}#
- (values (cdr #{b\ 3018}#) #{maps\ 3008}#)
- (begin
- (let ((#{inner-var\ 3020}#
- (#{gen-var\ 488}# 'tmp)))
- (values
- #{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\ 2880}# #{e\ 3021}# #{map-env\ 3022}#))))
- (#{gen-map\ 2880}#
- (lambda (#{e\ 3026}# #{map-env\ 3027}#)
- (begin
- (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\ 3041}#)
- (if (eq? (car #{x\ 3041}#) 'ref)
- (memq (car (cdr #{x\ 3041}#))
- #{formals\ 3032}#)
- #f))
- (cdr #{e\ 3026}#))
- (cons 'map
- (cons (list 'primitive (car #{e\ 3026}#))
- (map (begin
- (let ((#{r\ 3047}#
- (map cons
- #{formals\ 3032}#
- #{actuals\ 3033}#)))
- (lambda (#{x\ 3048}#)
- (cdr (assq (car (cdr #{x\ 3048}#))
- #{r\ 3047}#)))))
- (cdr #{e\ 3026}#))))
- (cons 'map
- (cons (list 'lambda
- #{formals\ 3032}#
- #{e\ 3026}#)
- #{actuals\ 3033}#))))))))
- (#{gen-cons\ 2882}#
- (lambda (#{x\ 3052}# #{y\ 3053}#)
- (begin
- (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\ 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\ 3072}#))))
- (list 'list->vector #{x\ 3072}#)))))
- (#{regen\ 2888}#
- (lambda (#{x\ 3082}#)
- (begin
- (let ((#{atom-key\ 3086}# (car #{x\ 3082}#)))
- (if (eqv? #{atom-key\ 3086}# 'ref)
- (#{build-lexical-reference\ 312}#
- 'value
+ (#{gen-map\ 2934}#
+ #{x\ 3003}#
+ (car #{maps\ 3004}#))
+ (cdr #{maps\ 3004}#))))))))))
+ #{tmp\ 2982}#)
+ (let ((#{tmp\ 3033}#
+ ($sc-dispatch
+ #{tmp\ 2970}#
+ '(any . any))))
+ (if #{tmp\ 3033}#
+ (@apply
+ (lambda (#{x\ 3036}# #{y\ 3037}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax\ 2928}#
+ #{src\ 2943}#
+ #{x\ 3036}#
+ #{r\ 2945}#
+ #{maps\ 2946}#
+ #{ellipsis?\ 2947}#
+ #{mod\ 2948}#))
+ (lambda (#{x\ 3038}# #{maps\ 3039}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax\ 2928}#
+ #{src\ 2943}#
+ #{y\ 3037}#
+ #{r\ 2945}#
+ #{maps\ 3039}#
+ #{ellipsis?\ 2947}#
+ #{mod\ 2948}#))
+ (lambda (#{y\ 3042}#
+ #{maps\ 3043}#)
+ (values
+ (#{gen-cons\ 2936}#
+ #{x\ 3038}#
+ #{y\ 3042}#)
+ #{maps\ 3043}#))))))
+ #{tmp\ 3033}#)
+ (let ((#{tmp\ 3046}#
+ ($sc-dispatch
+ #{tmp\ 2970}#
+ '#(vector (any . each-any)))))
+ (if #{tmp\ 3046}#
+ (@apply
+ (lambda (#{e1\ 3049}# #{e2\ 3050}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax\ 2928}#
+ #{src\ 2943}#
+ (cons #{e1\ 3049}#
+ #{e2\ 3050}#)
+ #{r\ 2945}#
+ #{maps\ 2946}#
+ #{ellipsis?\ 2947}#
+ #{mod\ 2948}#))
+ (lambda (#{e\ 3052}#
+ #{maps\ 3053}#)
+ (values
+ (#{gen-vector\ 2940}#
+ #{e\ 3052}#)
+ #{maps\ 3053}#))))
+ #{tmp\ 3046}#)
+ (let ((#{_\ 3057}# #{tmp\ 2970}#))
+ (values
+ (list 'quote #{e\ 2944}#)
+ #{maps\ 2946}#))))))))))))))
+ (#{gen-ref\ 2930}#
+ (lambda (#{src\ 3059}#
+ #{var\ 3060}#
+ #{level\ 3061}#
+ #{maps\ 3062}#)
+ (if (= #{level\ 3061}# 0)
+ (values #{var\ 3060}# #{maps\ 3062}#)
+ (if (null? #{maps\ 3062}#)
+ (syntax-violation
+ 'syntax
+ "missing ellipsis"
+ #{src\ 3059}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-ref\ 2930}#
+ #{src\ 3059}#
+ #{var\ 3060}#
+ (1- #{level\ 3061}#)
+ (cdr #{maps\ 3062}#)))
+ (lambda (#{outer-var\ 3069}# #{outer-maps\ 3070}#)
+ (begin
+ (let ((#{b\ 3074}#
+ (assq #{outer-var\ 3069}#
+ (car #{maps\ 3062}#))))
+ (if #{b\ 3074}#
+ (values (cdr #{b\ 3074}#) #{maps\ 3062}#)
+ (begin
+ (let ((#{inner-var\ 3076}#
+ (#{gen-var\ 484}# 'tmp)))
+ (values
+ #{inner-var\ 3076}#
+ (cons (cons (cons #{outer-var\ 3069}#
+ #{inner-var\ 3076}#)
+ (car #{maps\ 3062}#))
+ #{outer-maps\ 3070}#)))))))))))))
+ (#{gen-mappend\ 2932}#
+ (lambda (#{e\ 3077}# #{map-env\ 3078}#)
+ (list 'apply
+ '(primitive append)
+ (#{gen-map\ 2934}# #{e\ 3077}# #{map-env\ 3078}#))))
+ (#{gen-map\ 2934}#
+ (lambda (#{e\ 3082}# #{map-env\ 3083}#)
+ (begin
+ (let ((#{formals\ 3088}# (map cdr #{map-env\ 3083}#))
+ (#{actuals\ 3089}#
+ (map (lambda (#{x\ 3090}#)
+ (list 'ref (car #{x\ 3090}#)))
+ #{map-env\ 3083}#)))
+ (if (eq? (car #{e\ 3082}#) 'ref)
+ (car #{actuals\ 3089}#)
+ (if (and-map
+ (lambda (#{x\ 3097}#)
+ (if (eq? (car #{x\ 3097}#) 'ref)
+ (memq (car (cdr #{x\ 3097}#))
+ #{formals\ 3088}#)
+ #f))
+ (cdr #{e\ 3082}#))
+ (cons 'map
+ (cons (list 'primitive (car #{e\ 3082}#))
+ (map (begin
+ (let ((#{r\ 3103}#
+ (map cons
+ #{formals\ 3088}#
+ #{actuals\ 3089}#)))
+ (lambda (#{x\ 3104}#)
+ (cdr (assq (car (cdr #{x\ 3104}#))
+ #{r\ 3103}#)))))
+ (cdr #{e\ 3082}#))))
+ (cons 'map
+ (cons (list 'lambda
+ #{formals\ 3088}#
+ #{e\ 3082}#)
+ #{actuals\ 3089}#))))))))
+ (#{gen-cons\ 2936}#
+ (lambda (#{x\ 3108}# #{y\ 3109}#)
+ (begin
+ (let ((#{atom-key\ 3114}# (car #{y\ 3109}#)))
+ (if (eqv? #{atom-key\ 3114}# 'quote)
+ (if (eq? (car #{x\ 3108}#) 'quote)
+ (list 'quote
+ (cons (car (cdr #{x\ 3108}#))
+ (car (cdr #{y\ 3109}#))))
+ (if (eq? (car (cdr #{y\ 3109}#)) '())
+ (list 'list #{x\ 3108}#)
+ (list 'cons #{x\ 3108}# #{y\ 3109}#)))
+ (if (eqv? #{atom-key\ 3114}# 'list)
+ (cons 'list (cons #{x\ 3108}# (cdr #{y\ 3109}#)))
+ (list 'cons #{x\ 3108}# #{y\ 3109}#)))))))
+ (#{gen-append\ 2938}#
+ (lambda (#{x\ 3123}# #{y\ 3124}#)
+ (if (equal? #{y\ 3124}# ''())
+ #{x\ 3123}#
+ (list 'append #{x\ 3123}# #{y\ 3124}#))))
+ (#{gen-vector\ 2940}#
+ (lambda (#{x\ 3128}#)
+ (if (eq? (car #{x\ 3128}#) 'list)
+ (cons 'vector (cdr #{x\ 3128}#))
+ (if (eq? (car #{x\ 3128}#) 'quote)
+ (list 'quote
+ (list->vector (car (cdr #{x\ 3128}#))))
+ (list 'list->vector #{x\ 3128}#)))))
+ (#{regen\ 2942}#
+ (lambda (#{x\ 3138}#)
+ (begin
+ (let ((#{atom-key\ 3142}# (car #{x\ 3138}#)))
+ (if (eqv? #{atom-key\ 3142}# 'ref)
+ (#{build-lexical-reference\ 308}#
+ 'value
+ #f
+ (car (cdr #{x\ 3138}#))
+ (car (cdr #{x\ 3138}#)))
+ (if (eqv? #{atom-key\ 3142}# 'primitive)
+ (#{build-primref\ 326}#
#f
- (car (cdr #{x\ 3082}#))
- (car (cdr #{x\ 3082}#)))
- (if (eqv? #{atom-key\ 3086}# 'primitive)
- (#{build-primref\ 330}#
- #f
- (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\ 3082}#))
- #f
- (car (cdr #{x\ 3082}#))
- '()
- (#{regen\ 2888}#
- (car (cdr (cdr #{x\ 3082}#)))))
- (error "how did we get here" #{x\ 3082}#))
- (#{build-application\ 306}#
+ (car (cdr #{x\ 3138}#)))
+ (if (eqv? #{atom-key\ 3142}# 'quote)
+ (#{build-data\ 328}# #f (car (cdr #{x\ 3138}#)))
+ (if (eqv? #{atom-key\ 3142}# 'lambda)
+ (if (list? (car (cdr #{x\ 3138}#)))
+ (#{build-simple-lambda\ 320}#
#f
- (#{build-primref\ 330}#
- #f
- (car #{x\ 3082}#))
- (map #{regen\ 2888}#
- (cdr #{x\ 3082}#))))))))))))
- (begin
- (lambda (#{e\ 3098}#
- #{r\ 3099}#
- #{w\ 3100}#
- #{s\ 3101}#
- #{mod\ 3102}#)
- (begin
- (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\ 3113}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2874}#
- #{e\ 3109}#
- #{x\ 3113}#
- #{r\ 3099}#
- '()
- #{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\ 3109}#)))))))))))
- (#{global-extend\ 376}#
- 'core
- 'lambda
- (lambda (#{e\ 3120}#
- #{r\ 3121}#
- #{w\ 3122}#
- #{s\ 3123}#
- #{mod\ 3124}#)
- (let ((#{tmp\ 3130}# #{e\ 3120}#))
- (let ((#{tmp\ 3131}#
- ($sc-dispatch
- #{tmp\ 3130}#
- '(_ any any . each-any))))
- (if #{tmp\ 3131}#
- (@apply
- (lambda (#{args\ 3135}# #{e1\ 3136}# #{e2\ 3137}#)
- (call-with-values
- (lambda ()
- (#{lambda-formals\ 478}# #{args\ 3135}#))
- (lambda (#{req\ 3138}#
- #{opt\ 3139}#
- #{rest\ 3140}#
- #{kw\ 3141}#)
- (letrec*
- ((#{lp\ 3149}#
- (lambda (#{body\ 3150}# #{meta\ 3151}#)
- (let ((#{tmp\ 3153}# #{body\ 3150}#))
- (let ((#{tmp\ 3154}#
- ($sc-dispatch
- #{tmp\ 3153}#
- '(any any . each-any))))
- (if (if #{tmp\ 3154}#
- (@apply
- (lambda (#{docstring\ 3158}#
- #{e1\ 3159}#
- #{e2\ 3160}#)
- (string?
+ (car (cdr #{x\ 3138}#))
+ #f
+ (car (cdr #{x\ 3138}#))
+ '()
+ (#{regen\ 2942}#
+ (car (cdr (cdr #{x\ 3138}#)))))
+ (error "how did we get here" #{x\ 3138}#))
+ (#{build-application\ 302}#
+ #f
+ (#{build-primref\ 326}# #f (car #{x\ 3138}#))
+ (map #{regen\ 2942}#
+ (cdr #{x\ 3138}#))))))))))))
+ (begin
+ (lambda (#{e\ 3154}#
+ #{r\ 3155}#
+ #{w\ 3156}#
+ #{s\ 3157}#
+ #{mod\ 3158}#)
+ (begin
+ (let ((#{e\ 3165}#
+ (#{source-wrap\ 444}#
+ #{e\ 3154}#
+ #{w\ 3156}#
+ #{s\ 3157}#
+ #{mod\ 3158}#)))
+ (let ((#{tmp\ 3166}# #{e\ 3165}#))
+ (let ((#{tmp\ 3167}#
+ ($sc-dispatch #{tmp\ 3166}# '(_ any))))
+ (if #{tmp\ 3167}#
+ (@apply
+ (lambda (#{x\ 3169}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax\ 2928}#
+ #{e\ 3165}#
+ #{x\ 3169}#
+ #{r\ 3155}#
+ '()
+ #{ellipsis?\ 472}#
+ #{mod\ 3158}#))
+ (lambda (#{e\ 3170}# #{maps\ 3171}#)
+ (#{regen\ 2942}# #{e\ 3170}#))))
+ #{tmp\ 3167}#)
+ (let ((#{_\ 3175}# #{tmp\ 3166}#))
+ (syntax-violation
+ 'syntax
+ "bad `syntax' form"
+ #{e\ 3165}#)))))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'lambda
+ (lambda (#{e\ 3176}#
+ #{r\ 3177}#
+ #{w\ 3178}#
+ #{s\ 3179}#
+ #{mod\ 3180}#)
+ (let ((#{tmp\ 3186}# #{e\ 3176}#))
+ (let ((#{tmp\ 3187}#
+ ($sc-dispatch
+ #{tmp\ 3186}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 3187}#
+ (@apply
+ (lambda (#{args\ 3191}# #{e1\ 3192}# #{e2\ 3193}#)
+ (call-with-values
+ (lambda ()
+ (#{lambda-formals\ 474}# #{args\ 3191}#))
+ (lambda (#{req\ 3194}#
+ #{opt\ 3195}#
+ #{rest\ 3196}#
+ #{kw\ 3197}#)
+ (letrec*
+ ((#{lp\ 3205}#
+ (lambda (#{body\ 3206}# #{meta\ 3207}#)
+ (let ((#{tmp\ 3209}# #{body\ 3206}#))
+ (let ((#{tmp\ 3210}#
+ ($sc-dispatch
+ #{tmp\ 3209}#
+ '(any any . each-any))))
+ (if (if #{tmp\ 3210}#
+ (@apply
+ (lambda (#{docstring\ 3214}#
+ #{e1\ 3215}#
+ #{e2\ 3216}#)
+ (string?
+ (syntax->datum
+ #{docstring\ 3214}#)))
+ #{tmp\ 3210}#)
+ #f)
+ (@apply
+ (lambda (#{docstring\ 3220}#
+ #{e1\ 3221}#
+ #{e2\ 3222}#)
+ (#{lp\ 3205}#
+ (cons #{e1\ 3221}# #{e2\ 3222}#)
+ (append
+ #{meta\ 3207}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring\ 3220}#))))))
+ #{tmp\ 3210}#)
+ (let ((#{tmp\ 3225}#
+ ($sc-dispatch
+ #{tmp\ 3209}#
+ '(#(vector
+ #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp\ 3225}#
+ (@apply
+ (lambda (#{k\ 3230}#
+ #{v\ 3231}#
+ #{e1\ 3232}#
+ #{e2\ 3233}#)
+ (#{lp\ 3205}#
+ (cons #{e1\ 3232}#
+ #{e2\ 3233}#)
+ (append
+ #{meta\ 3207}#
(syntax->datum
- #{docstring\ 3158}#)))
- #{tmp\ 3154}#)
- #f)
- (@apply
- (lambda (#{docstring\ 3164}#
- #{e1\ 3165}#
- #{e2\ 3166}#)
- (#{lp\ 3149}#
- (cons #{e1\ 3165}#
- #{e2\ 3166}#)
- (append
- #{meta\ 3151}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring\ 3164}#))))))
- #{tmp\ 3154}#)
- (let ((#{tmp\ 3169}#
- ($sc-dispatch
- #{tmp\ 3153}#
- '(#(vector
- #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp\ 3169}#
- (@apply
- (lambda (#{k\ 3174}#
- #{v\ 3175}#
- #{e1\ 3176}#
- #{e2\ 3177}#)
- (#{lp\ 3149}#
- (cons #{e1\ 3176}#
- #{e2\ 3177}#)
- (append
- #{meta\ 3151}#
- (syntax->datum
- (map cons
- #{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\ 3149}#
- (cons #{e1\ 3136}# #{e2\ 3137}#)
- '()))))))
- #{tmp\ 3131}#)
- (let ((#{_\ 3184}# #{tmp\ 3130}#))
- (syntax-violation
- 'lambda
- "bad lambda"
- #{e\ 3120}#)))))))
- (#{global-extend\ 376}#
- 'core
- 'lambda*
- (lambda (#{e\ 3185}#
- #{r\ 3186}#
- #{w\ 3187}#
- #{s\ 3188}#
- #{mod\ 3189}#)
- (let ((#{tmp\ 3195}# #{e\ 3185}#))
- (let ((#{tmp\ 3196}#
- ($sc-dispatch
- #{tmp\ 3195}#
- '(_ any any . each-any))))
- (if #{tmp\ 3196}#
- (@apply
- (lambda (#{args\ 3200}# #{e1\ 3201}# #{e2\ 3202}#)
- (call-with-values
- (lambda ()
- (#{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\ 3185}#)))))))
- (#{global-extend\ 376}#
- 'core
- 'case-lambda
- (lambda (#{e\ 3210}#
- #{r\ 3211}#
- #{w\ 3212}#
- #{s\ 3213}#
- #{mod\ 3214}#)
- (let ((#{tmp\ 3220}# #{e\ 3210}#))
- (let ((#{tmp\ 3221}#
- ($sc-dispatch
- #{tmp\ 3220}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 3221}#
- (@apply
- (lambda (#{args\ 3228}#
- #{e1\ 3229}#
- #{e2\ 3230}#
- #{args*\ 3231}#
- #{e1*\ 3232}#
- #{e2*\ 3233}#)
- (call-with-values
- (lambda ()
- (#{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\ 3210}#)))))))
- (#{global-extend\ 376}#
- 'core
- 'case-lambda*
- (lambda (#{e\ 3245}#
- #{r\ 3246}#
- #{w\ 3247}#
- #{s\ 3248}#
- #{mod\ 3249}#)
- (let ((#{tmp\ 3255}# #{e\ 3245}#))
- (let ((#{tmp\ 3256}#
- ($sc-dispatch
- #{tmp\ 3255}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp\ 3256}#
- (@apply
- (lambda (#{args\ 3263}#
- #{e1\ 3264}#
- #{e2\ 3265}#
- #{args*\ 3266}#
- #{e1*\ 3267}#
- #{e2*\ 3268}#)
- (call-with-values
- (lambda ()
- (#{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\ 3245}#)))))))
- (#{global-extend\ 376}#
- 'core
- 'let
- (letrec*
- ((#{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\ 3282}#)
- (begin
- (let ((#{labels\ 3302}#
- (#{gen-labels\ 395}# #{ids\ 3288}#))
- (#{new-vars\ 3303}#
- (map #{gen-var\ 488}# #{ids\ 3288}#)))
- (begin
- (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\ 3310}#
- #{r\ 3311}#
- #{w\ 3312}#
- #{s\ 3313}#
- #{mod\ 3314}#)
- (let ((#{tmp\ 3320}# #{e\ 3310}#))
- (let ((#{tmp\ 3321}#
- ($sc-dispatch
- #{tmp\ 3320}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3321}#
- (@apply
- (lambda (#{id\ 3326}#
- #{val\ 3327}#
- #{e1\ 3328}#
- #{e2\ 3329}#)
- (and-map #{id?\ 380}# #{id\ 3326}#))
- #{tmp\ 3321}#)
- #f)
- (@apply
- (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\ 3320}#
- '(_ any
- #(each (any any))
- any
- .
- each-any))))
- (if (if #{tmp\ 3342}#
- (@apply
- (lambda (#{f\ 3348}#
- #{id\ 3349}#
- #{val\ 3350}#
- #{e1\ 3351}#
- #{e2\ 3352}#)
- (if (#{id?\ 380}# #{f\ 3348}#)
- (and-map #{id?\ 380}# #{id\ 3349}#)
- #f))
- #{tmp\ 3342}#)
- #f)
- (@apply
- (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\ 448}#
- #{e\ 3310}#
- #{w\ 3312}#
- #{s\ 3313}#
- #{mod\ 3314}#))))))))))))
- (#{global-extend\ 376}#
- 'core
- 'letrec
- (lambda (#{e\ 3371}#
- #{r\ 3372}#
- #{w\ 3373}#
- #{s\ 3374}#
- #{mod\ 3375}#)
- (let ((#{tmp\ 3381}# #{e\ 3371}#))
- (let ((#{tmp\ 3382}#
- ($sc-dispatch
- #{tmp\ 3381}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3382}#
- (@apply
- (lambda (#{id\ 3387}#
- #{val\ 3388}#
- #{e1\ 3389}#
- #{e2\ 3390}#)
- (and-map #{id?\ 380}# #{id\ 3387}#))
- #{tmp\ 3382}#)
- #f)
- (@apply
- (lambda (#{id\ 3396}#
- #{val\ 3397}#
- #{e1\ 3398}#
- #{e2\ 3399}#)
- (begin
- (let ((#{ids\ 3401}# #{id\ 3396}#))
- (if (not (#{valid-bound-ids?\ 440}#
- #{ids\ 3401}#))
- (syntax-violation
- 'letrec
- "duplicate bound variable"
- #{e\ 3371}#)
- (begin
- (let ((#{labels\ 3405}#
- (#{gen-labels\ 395}# #{ids\ 3401}#))
- (#{new-vars\ 3406}#
- (map #{gen-var\ 488}#
- #{ids\ 3401}#)))
- (begin
- (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\ 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\ 448}#
- #{e\ 3371}#
- #{w\ 3373}#
- #{s\ 3374}#
- #{mod\ 3375}#))))))))
- (#{global-extend\ 376}#
- 'core
- 'letrec*
- (lambda (#{e\ 3417}#
- #{r\ 3418}#
- #{w\ 3419}#
- #{s\ 3420}#
- #{mod\ 3421}#)
- (let ((#{tmp\ 3427}# #{e\ 3417}#))
- (let ((#{tmp\ 3428}#
- ($sc-dispatch
- #{tmp\ 3427}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp\ 3428}#
- (@apply
- (lambda (#{id\ 3433}#
- #{val\ 3434}#
- #{e1\ 3435}#
- #{e2\ 3436}#)
- (and-map #{id?\ 380}# #{id\ 3433}#))
- #{tmp\ 3428}#)
- #f)
- (@apply
- (lambda (#{id\ 3442}#
- #{val\ 3443}#
- #{e1\ 3444}#
- #{e2\ 3445}#)
- (begin
- (let ((#{ids\ 3447}# #{id\ 3442}#))
- (if (not (#{valid-bound-ids?\ 440}#
- #{ids\ 3447}#))
- (syntax-violation
- 'letrec*
- "duplicate bound variable"
- #{e\ 3417}#)
- (begin
- (let ((#{labels\ 3451}#
- (#{gen-labels\ 395}# #{ids\ 3447}#))
- (#{new-vars\ 3452}#
- (map #{gen-var\ 488}#
- #{ids\ 3447}#)))
- (begin
- (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\ 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\ 448}#
- #{e\ 3417}#
- #{w\ 3419}#
- #{s\ 3420}#
- #{mod\ 3421}#))))))))
- (#{global-extend\ 376}#
- 'core
- 'set!
- (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\ 3477}# #{val\ 3478}#)
- (#{id?\ 380}# #{id\ 3477}#))
- #{tmp\ 3474}#)
- #f)
- (@apply
- (lambda (#{id\ 3481}# #{val\ 3482}#)
- (begin
- (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}#)))
+ (map cons
+ #{k\ 3230}#
+ #{v\ 3231}#)))))
+ #{tmp\ 3225}#)
+ (let ((#{_\ 3238}# #{tmp\ 3209}#))
+ (#{chi-simple-lambda\ 476}#
+ #{e\ 3176}#
+ #{r\ 3177}#
+ #{w\ 3178}#
+ #{s\ 3179}#
+ #{mod\ 3180}#
+ #{req\ 3194}#
+ #{rest\ 3196}#
+ #{meta\ 3207}#
+ #{body\ 3206}#))))))))))
+ (begin
+ (#{lp\ 3205}#
+ (cons #{e1\ 3192}# #{e2\ 3193}#)
+ '()))))))
+ #{tmp\ 3187}#)
+ (let ((#{_\ 3240}# #{tmp\ 3186}#))
+ (syntax-violation
+ 'lambda
+ "bad lambda"
+ #{e\ 3176}#)))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'lambda*
+ (lambda (#{e\ 3241}#
+ #{r\ 3242}#
+ #{w\ 3243}#
+ #{s\ 3244}#
+ #{mod\ 3245}#)
+ (let ((#{tmp\ 3251}# #{e\ 3241}#))
+ (let ((#{tmp\ 3252}#
+ ($sc-dispatch
+ #{tmp\ 3251}#
+ '(_ any any . each-any))))
+ (if #{tmp\ 3252}#
+ (@apply
+ (lambda (#{args\ 3256}# #{e1\ 3257}# #{e2\ 3258}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case\ 480}#
+ #{e\ 3241}#
+ #{r\ 3242}#
+ #{w\ 3243}#
+ #{s\ 3244}#
+ #{mod\ 3245}#
+ #{lambda*-formals\ 478}#
+ (list (cons #{args\ 3256}#
+ (cons #{e1\ 3257}# #{e2\ 3258}#)))))
+ (lambda (#{meta\ 3260}# #{lcase\ 3261}#)
+ (#{build-case-lambda\ 322}#
+ #{s\ 3244}#
+ #{meta\ 3260}#
+ #{lcase\ 3261}#))))
+ #{tmp\ 3252}#)
+ (let ((#{_\ 3265}# #{tmp\ 3251}#))
+ (syntax-violation
+ 'lambda
+ "bad lambda*"
+ #{e\ 3241}#)))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'case-lambda
+ (lambda (#{e\ 3266}#
+ #{r\ 3267}#
+ #{w\ 3268}#
+ #{s\ 3269}#
+ #{mod\ 3270}#)
+ (let ((#{tmp\ 3276}# #{e\ 3266}#))
+ (let ((#{tmp\ 3277}#
+ ($sc-dispatch
+ #{tmp\ 3276}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp\ 3277}#
+ (@apply
+ (lambda (#{args\ 3284}#
+ #{e1\ 3285}#
+ #{e2\ 3286}#
+ #{args*\ 3287}#
+ #{e1*\ 3288}#
+ #{e2*\ 3289}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case\ 480}#
+ #{e\ 3266}#
+ #{r\ 3267}#
+ #{w\ 3268}#
+ #{s\ 3269}#
+ #{mod\ 3270}#
+ #{lambda-formals\ 474}#
+ (cons (cons #{args\ 3284}#
+ (cons #{e1\ 3285}# #{e2\ 3286}#))
+ (map (lambda (#{tmp\ 3293}#
+ #{tmp\ 3292}#
+ #{tmp\ 3291}#)
+ (cons #{tmp\ 3291}#
+ (cons #{tmp\ 3292}#
+ #{tmp\ 3293}#)))
+ #{e2*\ 3289}#
+ #{e1*\ 3288}#
+ #{args*\ 3287}#))))
+ (lambda (#{meta\ 3295}# #{lcase\ 3296}#)
+ (#{build-case-lambda\ 322}#
+ #{s\ 3269}#
+ #{meta\ 3295}#
+ #{lcase\ 3296}#))))
+ #{tmp\ 3277}#)
+ (let ((#{_\ 3300}# #{tmp\ 3276}#))
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ #{e\ 3266}#)))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'case-lambda*
+ (lambda (#{e\ 3301}#
+ #{r\ 3302}#
+ #{w\ 3303}#
+ #{s\ 3304}#
+ #{mod\ 3305}#)
+ (let ((#{tmp\ 3311}# #{e\ 3301}#))
+ (let ((#{tmp\ 3312}#
+ ($sc-dispatch
+ #{tmp\ 3311}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp\ 3312}#
+ (@apply
+ (lambda (#{args\ 3319}#
+ #{e1\ 3320}#
+ #{e2\ 3321}#
+ #{args*\ 3322}#
+ #{e1*\ 3323}#
+ #{e2*\ 3324}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case\ 480}#
+ #{e\ 3301}#
+ #{r\ 3302}#
+ #{w\ 3303}#
+ #{s\ 3304}#
+ #{mod\ 3305}#
+ #{lambda*-formals\ 478}#
+ (cons (cons #{args\ 3319}#
+ (cons #{e1\ 3320}# #{e2\ 3321}#))
+ (map (lambda (#{tmp\ 3328}#
+ #{tmp\ 3327}#
+ #{tmp\ 3326}#)
+ (cons #{tmp\ 3326}#
+ (cons #{tmp\ 3327}#
+ #{tmp\ 3328}#)))
+ #{e2*\ 3324}#
+ #{e1*\ 3323}#
+ #{args*\ 3322}#))))
+ (lambda (#{meta\ 3330}# #{lcase\ 3331}#)
+ (#{build-case-lambda\ 322}#
+ #{s\ 3304}#
+ #{meta\ 3330}#
+ #{lcase\ 3331}#))))
+ #{tmp\ 3312}#)
+ (let ((#{_\ 3335}# #{tmp\ 3311}#))
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e\ 3301}#)))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'let
+ (letrec*
+ ((#{chi-let\ 3337}#
+ (lambda (#{e\ 3338}#
+ #{r\ 3339}#
+ #{w\ 3340}#
+ #{s\ 3341}#
+ #{mod\ 3342}#
+ #{constructor\ 3343}#
+ #{ids\ 3344}#
+ #{vals\ 3345}#
+ #{exps\ 3346}#)
+ (if (not (#{valid-bound-ids?\ 436}# #{ids\ 3344}#))
+ (syntax-violation
+ 'let
+ "duplicate bound variable"
+ #{e\ 3338}#)
+ (begin
+ (let ((#{labels\ 3358}#
+ (#{gen-labels\ 391}# #{ids\ 3344}#))
+ (#{new-vars\ 3359}#
+ (map #{gen-var\ 484}# #{ids\ 3344}#)))
+ (begin
+ (let ((#{nw\ 3362}#
+ (#{make-binding-wrap\ 420}#
+ #{ids\ 3344}#
+ #{labels\ 3358}#
+ #{w\ 3340}#))
+ (#{nr\ 3363}#
+ (#{extend-var-env\ 366}#
+ #{labels\ 3358}#
+ #{new-vars\ 3359}#
+ #{r\ 3339}#)))
+ (#{constructor\ 3343}#
+ #{s\ 3341}#
+ (map syntax->datum #{ids\ 3344}#)
+ #{new-vars\ 3359}#
+ (map (lambda (#{x\ 3364}#)
+ (#{chi\ 456}#
+ #{x\ 3364}#
+ #{r\ 3339}#
+ #{w\ 3340}#
+ #{mod\ 3342}#))
+ #{vals\ 3345}#)
+ (#{chi-body\ 464}#
+ #{exps\ 3346}#
+ (#{source-wrap\ 444}#
+ #{e\ 3338}#
+ #{nw\ 3362}#
+ #{s\ 3341}#
+ #{mod\ 3342}#)
+ #{nr\ 3363}#
+ #{nw\ 3362}#
+ #{mod\ 3342}#))))))))))
+ (begin
+ (lambda (#{e\ 3366}#
+ #{r\ 3367}#
+ #{w\ 3368}#
+ #{s\ 3369}#
+ #{mod\ 3370}#)
+ (let ((#{tmp\ 3376}# #{e\ 3366}#))
+ (let ((#{tmp\ 3377}#
+ ($sc-dispatch
+ #{tmp\ 3376}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3377}#
+ (@apply
+ (lambda (#{id\ 3382}#
+ #{val\ 3383}#
+ #{e1\ 3384}#
+ #{e2\ 3385}#)
+ (and-map #{id?\ 376}# #{id\ 3382}#))
+ #{tmp\ 3377}#)
+ #f)
+ (@apply
+ (lambda (#{id\ 3391}#
+ #{val\ 3392}#
+ #{e1\ 3393}#
+ #{e2\ 3394}#)
+ (#{chi-let\ 3337}#
+ #{e\ 3366}#
+ #{r\ 3367}#
+ #{w\ 3368}#
+ #{s\ 3369}#
+ #{mod\ 3370}#
+ #{build-let\ 332}#
+ #{id\ 3391}#
+ #{val\ 3392}#
+ (cons #{e1\ 3393}# #{e2\ 3394}#)))
+ #{tmp\ 3377}#)
+ (let ((#{tmp\ 3398}#
+ ($sc-dispatch
+ #{tmp\ 3376}#
+ '(_ any #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3398}#
+ (@apply
+ (lambda (#{f\ 3404}#
+ #{id\ 3405}#
+ #{val\ 3406}#
+ #{e1\ 3407}#
+ #{e2\ 3408}#)
+ (if (#{id?\ 376}# #{f\ 3404}#)
+ (and-map #{id?\ 376}# #{id\ 3405}#)
+ #f))
+ #{tmp\ 3398}#)
+ #f)
+ (@apply
+ (lambda (#{f\ 3417}#
+ #{id\ 3418}#
+ #{val\ 3419}#
+ #{e1\ 3420}#
+ #{e2\ 3421}#)
+ (#{chi-let\ 3337}#
+ #{e\ 3366}#
+ #{r\ 3367}#
+ #{w\ 3368}#
+ #{s\ 3369}#
+ #{mod\ 3370}#
+ #{build-named-let\ 334}#
+ (cons #{f\ 3417}# #{id\ 3418}#)
+ #{val\ 3419}#
+ (cons #{e1\ 3420}# #{e2\ 3421}#)))
+ #{tmp\ 3398}#)
+ (let ((#{_\ 3426}# #{tmp\ 3376}#))
+ (syntax-violation
+ 'let
+ "bad let"
+ (#{source-wrap\ 444}#
+ #{e\ 3366}#
+ #{w\ 3368}#
+ #{s\ 3369}#
+ #{mod\ 3370}#))))))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'letrec
+ (lambda (#{e\ 3427}#
+ #{r\ 3428}#
+ #{w\ 3429}#
+ #{s\ 3430}#
+ #{mod\ 3431}#)
+ (let ((#{tmp\ 3437}# #{e\ 3427}#))
+ (let ((#{tmp\ 3438}#
+ ($sc-dispatch
+ #{tmp\ 3437}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3438}#
+ (@apply
+ (lambda (#{id\ 3443}#
+ #{val\ 3444}#
+ #{e1\ 3445}#
+ #{e2\ 3446}#)
+ (and-map #{id?\ 376}# #{id\ 3443}#))
+ #{tmp\ 3438}#)
+ #f)
+ (@apply
+ (lambda (#{id\ 3452}#
+ #{val\ 3453}#
+ #{e1\ 3454}#
+ #{e2\ 3455}#)
+ (begin
+ (let ((#{ids\ 3457}# #{id\ 3452}#))
+ (if (not (#{valid-bound-ids?\ 436}# #{ids\ 3457}#))
+ (syntax-violation
+ 'letrec
+ "duplicate bound variable"
+ #{e\ 3427}#)
(begin
- (let ((#{b\ 3488}#
- (#{lookup\ 374}#
- #{n\ 3485}#
- #{r\ 3464}#
- #{id-mod\ 3486}#)))
+ (let ((#{labels\ 3461}#
+ (#{gen-labels\ 391}# #{ids\ 3457}#))
+ (#{new-vars\ 3462}#
+ (map #{gen-var\ 484}# #{ids\ 3457}#)))
(begin
- (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}#
+ (let ((#{w\ 3465}#
+ (#{make-binding-wrap\ 420}#
+ #{ids\ 3457}#
+ #{labels\ 3461}#
+ #{w\ 3429}#))
+ (#{r\ 3466}#
+ (#{extend-var-env\ 366}#
+ #{labels\ 3461}#
+ #{new-vars\ 3462}#
+ #{r\ 3428}#)))
+ (#{build-letrec\ 336}#
+ #{s\ 3430}#
+ #f
+ (map syntax->datum #{ids\ 3457}#)
+ #{new-vars\ 3462}#
+ (map (lambda (#{x\ 3467}#)
+ (#{chi\ 456}#
+ #{x\ 3467}#
+ #{r\ 3466}#
+ #{w\ 3465}#
+ #{mod\ 3431}#))
+ #{val\ 3453}#)
+ (#{chi-body\ 464}#
+ (cons #{e1\ 3454}# #{e2\ 3455}#)
+ (#{source-wrap\ 444}#
+ #{e\ 3427}#
#{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\ 3498}#
- (cdr #{b\ 3488}#)))
- (if (procedure-property
- #{p\ 3498}#
- 'variable-transformer)
- (#{chi\ 460}#
- (#{chi-macro\ 466}#
- #{p\ 3498}#
- #{e\ 3463}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{s\ 3466}#
- #f
- #{mod\ 3467}#)
- #{r\ 3464}#
- '(())
- #{mod\ 3467}#)
- (syntax-violation
- 'set!
- "not a variable transformer"
- (#{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\ 446}#
- #{id\ 3481}#
- #{w\ 3465}#
- #{mod\ 3467}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap\ 448}#
- #{e\ 3463}#
- #{w\ 3465}#
- #{s\ 3466}#
- #{mod\ 3467}#)))))))))))))
- #{tmp\ 3474}#)
- (let ((#{tmp\ 3503}#
- ($sc-dispatch
- #{tmp\ 3473}#
- '(_ (any . each-any) any))))
- (if #{tmp\ 3503}#
- (@apply
- (lambda (#{head\ 3507}#
- #{tail\ 3508}#
- #{val\ 3509}#)
- (call-with-values
- (lambda ()
- (#{syntax-type\ 458}#
- #{head\ 3507}#
- #{r\ 3464}#
- '(())
- #f
- #f
- #{mod\ 3467}#
- #t))
- (lambda (#{type\ 3512}#
- #{value\ 3513}#
- #{ee\ 3514}#
- #{ww\ 3515}#
- #{ss\ 3516}#
- #{modmod\ 3517}#)
- (if (eqv? #{type\ 3512}# 'module-ref)
- (begin
- (let ((#{val\ 3526}#
- (#{chi\ 460}#
- #{val\ 3509}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#)))
- (call-with-values
- (lambda ()
- (#{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\ 3541}#)
- (#{id?\ 380}#
- #{e\ 3541}#))
- #{tmp\ 3539}#)
- #f)
- (@apply
- (lambda (#{e\ 3543}#)
- (#{build-global-assignment\ 320}#
- #{s\ 3466}#
- (syntax->datum
- #{e\ 3543}#)
- #{val\ 3526}#
- #{mod\ 3532}#))
- #{tmp\ 3539}#)
- (syntax-violation
+ #{s\ 3430}#
+ #{mod\ 3431}#)
+ #{r\ 3466}#
+ #{w\ 3465}#
+ #{mod\ 3431}#))))))))))
+ #{tmp\ 3438}#)
+ (let ((#{_\ 3472}# #{tmp\ 3437}#))
+ (syntax-violation
+ 'letrec
+ "bad letrec"
+ (#{source-wrap\ 444}#
+ #{e\ 3427}#
+ #{w\ 3429}#
+ #{s\ 3430}#
+ #{mod\ 3431}#))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'letrec*
+ (lambda (#{e\ 3473}#
+ #{r\ 3474}#
+ #{w\ 3475}#
+ #{s\ 3476}#
+ #{mod\ 3477}#)
+ (let ((#{tmp\ 3483}# #{e\ 3473}#))
+ (let ((#{tmp\ 3484}#
+ ($sc-dispatch
+ #{tmp\ 3483}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp\ 3484}#
+ (@apply
+ (lambda (#{id\ 3489}#
+ #{val\ 3490}#
+ #{e1\ 3491}#
+ #{e2\ 3492}#)
+ (and-map #{id?\ 376}# #{id\ 3489}#))
+ #{tmp\ 3484}#)
+ #f)
+ (@apply
+ (lambda (#{id\ 3498}#
+ #{val\ 3499}#
+ #{e1\ 3500}#
+ #{e2\ 3501}#)
+ (begin
+ (let ((#{ids\ 3503}# #{id\ 3498}#))
+ (if (not (#{valid-bound-ids?\ 436}# #{ids\ 3503}#))
+ (syntax-violation
+ 'letrec*
+ "duplicate bound variable"
+ #{e\ 3473}#)
+ (begin
+ (let ((#{labels\ 3507}#
+ (#{gen-labels\ 391}# #{ids\ 3503}#))
+ (#{new-vars\ 3508}#
+ (map #{gen-var\ 484}# #{ids\ 3503}#)))
+ (begin
+ (let ((#{w\ 3511}#
+ (#{make-binding-wrap\ 420}#
+ #{ids\ 3503}#
+ #{labels\ 3507}#
+ #{w\ 3475}#))
+ (#{r\ 3512}#
+ (#{extend-var-env\ 366}#
+ #{labels\ 3507}#
+ #{new-vars\ 3508}#
+ #{r\ 3474}#)))
+ (#{build-letrec\ 336}#
+ #{s\ 3476}#
+ #t
+ (map syntax->datum #{ids\ 3503}#)
+ #{new-vars\ 3508}#
+ (map (lambda (#{x\ 3513}#)
+ (#{chi\ 456}#
+ #{x\ 3513}#
+ #{r\ 3512}#
+ #{w\ 3511}#
+ #{mod\ 3477}#))
+ #{val\ 3499}#)
+ (#{chi-body\ 464}#
+ (cons #{e1\ 3500}# #{e2\ 3501}#)
+ (#{source-wrap\ 444}#
+ #{e\ 3473}#
+ #{w\ 3511}#
+ #{s\ 3476}#
+ #{mod\ 3477}#)
+ #{r\ 3512}#
+ #{w\ 3511}#
+ #{mod\ 3477}#))))))))))
+ #{tmp\ 3484}#)
+ (let ((#{_\ 3518}# #{tmp\ 3483}#))
+ (syntax-violation
+ 'letrec*
+ "bad letrec*"
+ (#{source-wrap\ 444}#
+ #{e\ 3473}#
+ #{w\ 3475}#
+ #{s\ 3476}#
+ #{mod\ 3477}#))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'set!
+ (lambda (#{e\ 3519}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{s\ 3522}#
+ #{mod\ 3523}#)
+ (let ((#{tmp\ 3529}# #{e\ 3519}#))
+ (let ((#{tmp\ 3530}#
+ ($sc-dispatch #{tmp\ 3529}# '(_ any any))))
+ (if (if #{tmp\ 3530}#
+ (@apply
+ (lambda (#{id\ 3533}# #{val\ 3534}#)
+ (#{id?\ 376}# #{id\ 3533}#))
+ #{tmp\ 3530}#)
+ #f)
+ (@apply
+ (lambda (#{id\ 3537}# #{val\ 3538}#)
+ (begin
+ (let ((#{n\ 3541}#
+ (#{id-var-name\ 430}#
+ #{id\ 3537}#
+ #{w\ 3521}#))
+ (#{id-mod\ 3542}#
+ (if (#{syntax-object?\ 342}# #{id\ 3537}#)
+ (#{syntax-object-module\ 348}#
+ #{id\ 3537}#)
+ #{mod\ 3523}#)))
+ (begin
+ (let ((#{b\ 3544}#
+ (#{lookup\ 370}#
+ #{n\ 3541}#
+ #{r\ 3520}#
+ #{id-mod\ 3542}#)))
+ (begin
+ (let ((#{atom-key\ 3547}# (car #{b\ 3544}#)))
+ (if (eqv? #{atom-key\ 3547}# 'lexical)
+ (#{build-lexical-assignment\ 310}#
+ #{s\ 3522}#
+ (syntax->datum #{id\ 3537}#)
+ (cdr #{b\ 3544}#)
+ (#{chi\ 456}#
+ #{val\ 3538}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#))
+ (if (eqv? #{atom-key\ 3547}# 'global)
+ (#{build-global-assignment\ 316}#
+ #{s\ 3522}#
+ #{n\ 3541}#
+ (#{chi\ 456}#
+ #{val\ 3538}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)
+ #{id-mod\ 3542}#)
+ (if (eqv? #{atom-key\ 3547}# 'macro)
+ (begin
+ (let ((#{p\ 3554}#
+ (cdr #{b\ 3544}#)))
+ (if (procedure-property
+ #{p\ 3554}#
+ 'variable-transformer)
+ (#{chi\ 456}#
+ (#{chi-macro\ 462}#
+ #{p\ 3554}#
+ #{e\ 3519}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{s\ 3522}#
#f
- "source expression failed to match any pattern"
- #{tmp\ 3538}#))))))))
- (#{build-application\ 306}#
- #{s\ 3466}#
- (#{chi\ 460}#
- (list '#(syntax-object
- setter
+ #{mod\ 3523}#)
+ #{r\ 3520}#
+ '(())
+ #{mod\ 3523}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (#{wrap\ 442}#
+ #{e\ 3519}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)
+ (#{wrap\ 442}#
+ #{id\ 3537}#
+ #{w\ 3521}#
+ #{id-mod\ 3542}#)))))
+ (if (eqv? #{atom-key\ 3547}#
+ 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap\ 442}#
+ #{id\ 3537}#
+ #{w\ 3521}#
+ #{mod\ 3523}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{source-wrap\ 444}#
+ #{e\ 3519}#
+ #{w\ 3521}#
+ #{s\ 3522}#
+ #{mod\ 3523}#)))))))))))))
+ #{tmp\ 3530}#)
+ (let ((#{tmp\ 3559}#
+ ($sc-dispatch
+ #{tmp\ 3529}#
+ '(_ (any . each-any) any))))
+ (if #{tmp\ 3559}#
+ (@apply
+ (lambda (#{head\ 3563}# #{tail\ 3564}# #{val\ 3565}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type\ 454}#
+ #{head\ 3563}#
+ #{r\ 3520}#
+ '(())
+ #f
+ #f
+ #{mod\ 3523}#
+ #t))
+ (lambda (#{type\ 3568}#
+ #{value\ 3569}#
+ #{ee\ 3570}#
+ #{ww\ 3571}#
+ #{ss\ 3572}#
+ #{modmod\ 3573}#)
+ (if (eqv? #{type\ 3568}# 'module-ref)
+ (begin
+ (let ((#{val\ 3582}#
+ (#{chi\ 456}#
+ #{val\ 3565}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)))
+ (call-with-values
+ (lambda ()
+ (#{value\ 3569}#
+ (cons #{head\ 3563}#
+ #{tail\ 3564}#)
+ #{r\ 3520}#
+ #{w\ 3521}#))
+ (lambda (#{e\ 3584}#
+ #{r\ 3585}#
+ #{w\ 3586}#
+ #{s*\ 3587}#
+ #{mod\ 3588}#)
+ (let ((#{tmp\ 3594}# #{e\ 3584}#))
+ (let ((#{tmp\ 3595}#
+ (list #{tmp\ 3594}#)))
+ (if (if #{tmp\ 3595}#
+ (@apply
+ (lambda (#{e\ 3597}#)
+ (#{id?\ 376}#
+ #{e\ 3597}#))
+ #{tmp\ 3595}#)
+ #f)
+ (@apply
+ (lambda (#{e\ 3599}#)
+ (#{build-global-assignment\ 316}#
+ #{s\ 3522}#
+ (syntax->datum
+ #{e\ 3599}#)
+ #{val\ 3582}#
+ #{mod\ 3588}#))
+ #{tmp\ 3595}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 3594}#))))))))
+ (#{build-application\ 302}#
+ #{s\ 3522}#
+ (#{chi\ 456}#
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type value ee ww ss modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3574"
+ "i3575"
+ "i3576"
+ "i3577"
+ "i3578"
+ "i3579"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3560" "i3561" "i3562"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3524"
+ "i3525"
+ "i3526"
+ "i3527"
+ "i3528"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41" "i40" "i39" "i37")))
+ (hygiene guile))
+ #{head\ 3563}#)
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#)
+ (map (lambda (#{e\ 3601}#)
+ (#{chi\ 456}#
+ #{e\ 3601}#
+ #{r\ 3520}#
+ #{w\ 3521}#
+ #{mod\ 3523}#))
+ (append
+ #{tail\ 3564}#
+ (list #{val\ 3565}#))))))))
+ #{tmp\ 3559}#)
+ (let ((#{_\ 3605}# #{tmp\ 3529}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{source-wrap\ 444}#
+ #{e\ 3519}#
+ #{w\ 3521}#
+ #{s\ 3522}#
+ #{mod\ 3523}#))))))))))
+ (#{global-extend\ 372}#
+ 'module-ref
+ '@
+ (lambda (#{e\ 3606}# #{r\ 3607}# #{w\ 3608}#)
+ (let ((#{tmp\ 3612}# #{e\ 3606}#))
+ (let ((#{tmp\ 3613}#
+ ($sc-dispatch #{tmp\ 3612}# '(_ each-any any))))
+ (if (if #{tmp\ 3613}#
+ (@apply
+ (lambda (#{mod\ 3616}# #{id\ 3617}#)
+ (if (and-map #{id?\ 376}# #{mod\ 3616}#)
+ (#{id?\ 376}# #{id\ 3617}#)
+ #f))
+ #{tmp\ 3613}#)
+ #f)
+ (@apply
+ (lambda (#{mod\ 3623}# #{id\ 3624}#)
+ (values
+ (syntax->datum #{id\ 3624}#)
+ #{r\ 3607}#
+ #{w\ 3608}#
+ #f
+ (syntax->datum
+ (cons '#(syntax-object
+ public
+ ((top)
+ #(ribcage
+ #(mod id)
+ #((top) (top))
+ #("i3621" "i3622"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3609" "i3610" "i3611"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41" "i40" "i39" "i37")))
+ (hygiene guile))
+ #{mod\ 3623}#))))
+ #{tmp\ 3613}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 3612}#))))))
+ (#{global-extend\ 372}#
+ 'module-ref
+ '@@
+ (lambda (#{e\ 3626}# #{r\ 3627}# #{w\ 3628}#)
+ (letrec*
+ ((#{remodulate\ 3633}#
+ (lambda (#{x\ 3634}# #{mod\ 3635}#)
+ (if (pair? #{x\ 3634}#)
+ (cons (#{remodulate\ 3633}#
+ (car #{x\ 3634}#)
+ #{mod\ 3635}#)
+ (#{remodulate\ 3633}#
+ (cdr #{x\ 3634}#)
+ #{mod\ 3635}#))
+ (if (#{syntax-object?\ 342}# #{x\ 3634}#)
+ (#{make-syntax-object\ 340}#
+ (#{remodulate\ 3633}#
+ (#{syntax-object-expression\ 344}# #{x\ 3634}#)
+ #{mod\ 3635}#)
+ (#{syntax-object-wrap\ 346}# #{x\ 3634}#)
+ #{mod\ 3635}#)
+ (if (vector? #{x\ 3634}#)
+ (begin
+ (let ((#{n\ 3646}# (vector-length #{x\ 3634}#)))
+ (begin
+ (let ((#{v\ 3648}# (make-vector #{n\ 3646}#)))
+ (letrec*
+ ((#{loop\ 3651}#
+ (lambda (#{i\ 3652}#)
+ (if (= #{i\ 3652}# #{n\ 3646}#)
+ (begin (if #f #f) #{v\ 3648}#)
+ (begin
+ (vector-set!
+ #{v\ 3648}#
+ #{i\ 3652}#
+ (#{remodulate\ 3633}#
+ (vector-ref
+ #{x\ 3634}#
+ #{i\ 3652}#)
+ #{mod\ 3635}#))
+ (#{loop\ 3651}#
+ (1+ #{i\ 3652}#)))))))
+ (begin (#{loop\ 3651}# 0)))))))
+ #{x\ 3634}#))))))
+ (begin
+ (let ((#{tmp\ 3658}# #{e\ 3626}#))
+ (let ((#{tmp\ 3659}#
+ ($sc-dispatch #{tmp\ 3658}# '(_ each-any any))))
+ (if (if #{tmp\ 3659}#
+ (@apply
+ (lambda (#{mod\ 3662}# #{exp\ 3663}#)
+ (and-map #{id?\ 376}# #{mod\ 3662}#))
+ #{tmp\ 3659}#)
+ #f)
+ (@apply
+ (lambda (#{mod\ 3667}# #{exp\ 3668}#)
+ (begin
+ (let ((#{mod\ 3670}#
+ (syntax->datum
+ (cons '#(syntax-object
+ private
((top)
- #(ribcage () () ())
- #(ribcage () () ())
#(ribcage
- #(type
- value
- ee
- ww
- ss
- modmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i3518"
- "i3519"
- "i3520"
- "i3521"
- "i3522"
- "i3523"))
+ #(mod exp)
+ #((top) (top))
+ #("i3665" "i3666"))
#(ribcage
- #(head tail val)
- #((top) (top) (top))
- #("i3504" "i3505" "i3506"))
- #(ribcage () () ())
+ (remodulate)
+ ((top))
+ ("i3632"))
#(ribcage
- #(e r w s mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3468"
- "i3469"
- "i3470"
- "i3471"
- "i3472"))
+ #(e r w)
+ #((top) (top) (top))
+ #("i3629" "i3630" "i3631"))
#(ribcage
(lambda-var-list
gen-var
@@ -10520,9 +11426,7 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
+ ("i485"
"i483"
"i481"
"i479"
@@ -10555,14 +11459,14 @@
"i425"
"i423"
"i421"
- "i420"
"i419"
"i417"
"i416"
"i415"
- "i414"
"i413"
+ "i412"
"i411"
+ "i410"
"i409"
"i407"
"i405"
@@ -10570,33 +11474,33 @@
"i401"
"i399"
"i397"
- "i394"
- "i392"
- "i391"
+ "i395"
+ "i393"
"i390"
- "i389"
"i388"
"i387"
"i386"
"i385"
"i384"
+ "i383"
"i382"
"i381"
- "i379"
+ "i380"
+ "i378"
"i377"
"i375"
"i373"
"i371"
"i369"
"i367"
- "i366"
"i365"
- "i364"
"i363"
"i362"
+ "i361"
"i360"
"i359"
- "i357"
+ "i358"
+ "i356"
"i355"
"i353"
"i351"
@@ -10628,12 +11532,14 @@
"i299"
"i297"
"i295"
- "i294"
- "i292"
+ "i293"
+ "i291"
"i290"
"i288"
"i286"
+ "i285"
"i284"
+ "i283"
"i282"
"i280"
"i278"
@@ -10664,64 +11570,199 @@
((top) (top) (top) (top))
("i41" "i40" "i39" "i37")))
(hygiene guile))
- #{head\ 3507}#)
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#)
- (map (lambda (#{e\ 3545}#)
- (#{chi\ 460}#
- #{e\ 3545}#
- #{r\ 3464}#
- #{w\ 3465}#
- #{mod\ 3467}#))
- (append
- #{tail\ 3508}#
- (list #{val\ 3509}#))))))))
- #{tmp\ 3503}#)
- (let ((#{_\ 3549}# #{tmp\ 3473}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap\ 448}#
- #{e\ 3463}#
- #{w\ 3465}#
- #{s\ 3466}#
- #{mod\ 3467}#))))))))))
- (#{global-extend\ 376}#
- 'module-ref
- '@
- (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\ 3560}# #{id\ 3561}#)
- (if (and-map #{id?\ 380}# #{mod\ 3560}#)
- (#{id?\ 380}# #{id\ 3561}#)
- #f))
- #{tmp\ 3557}#)
- #f)
- (@apply
- (lambda (#{mod\ 3567}# #{id\ 3568}#)
- (values
- (syntax->datum #{id\ 3568}#)
- #{r\ 3551}#
- #{w\ 3552}#
- #f
- (syntax->datum
- (cons '#(syntax-object
- public
+ #{mod\ 3667}#))))
+ (values
+ (#{remodulate\ 3633}#
+ #{exp\ 3668}#
+ #{mod\ 3670}#)
+ #{r\ 3627}#
+ #{w\ 3628}#
+ (#{source-annotation\ 357}# #{exp\ 3668}#)
+ #{mod\ 3670}#))))
+ #{tmp\ 3659}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 3658}#))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'if
+ (lambda (#{e\ 3672}#
+ #{r\ 3673}#
+ #{w\ 3674}#
+ #{s\ 3675}#
+ #{mod\ 3676}#)
+ (let ((#{tmp\ 3682}# #{e\ 3672}#))
+ (let ((#{tmp\ 3683}#
+ ($sc-dispatch #{tmp\ 3682}# '(_ any any))))
+ (if #{tmp\ 3683}#
+ (@apply
+ (lambda (#{test\ 3686}# #{then\ 3687}#)
+ (#{build-conditional\ 304}#
+ #{s\ 3675}#
+ (#{chi\ 456}#
+ #{test\ 3686}#
+ #{r\ 3673}#
+ #{w\ 3674}#
+ #{mod\ 3676}#)
+ (#{chi\ 456}#
+ #{then\ 3687}#
+ #{r\ 3673}#
+ #{w\ 3674}#
+ #{mod\ 3676}#)
+ (#{build-void\ 300}# #f)))
+ #{tmp\ 3683}#)
+ (let ((#{tmp\ 3689}#
+ ($sc-dispatch #{tmp\ 3682}# '(_ any any any))))
+ (if #{tmp\ 3689}#
+ (@apply
+ (lambda (#{test\ 3693}#
+ #{then\ 3694}#
+ #{else\ 3695}#)
+ (#{build-conditional\ 304}#
+ #{s\ 3675}#
+ (#{chi\ 456}#
+ #{test\ 3693}#
+ #{r\ 3673}#
+ #{w\ 3674}#
+ #{mod\ 3676}#)
+ (#{chi\ 456}#
+ #{then\ 3694}#
+ #{r\ 3673}#
+ #{w\ 3674}#
+ #{mod\ 3676}#)
+ (#{chi\ 456}#
+ #{else\ 3695}#
+ #{r\ 3673}#
+ #{w\ 3674}#
+ #{mod\ 3676}#)))
+ #{tmp\ 3689}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 3682}#))))))))
+ (#{global-extend\ 372}#
+ 'core
+ 'with-fluids
+ (lambda (#{e\ 3696}#
+ #{r\ 3697}#
+ #{w\ 3698}#
+ #{s\ 3699}#
+ #{mod\ 3700}#)
+ (let ((#{tmp\ 3706}# #{e\ 3696}#))
+ (let ((#{tmp\ 3707}#
+ ($sc-dispatch
+ #{tmp\ 3706}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp\ 3707}#
+ (@apply
+ (lambda (#{fluid\ 3712}#
+ #{val\ 3713}#
+ #{b\ 3714}#
+ #{b*\ 3715}#)
+ (#{build-dynlet\ 306}#
+ #{s\ 3699}#
+ (map (lambda (#{x\ 3716}#)
+ (#{chi\ 456}#
+ #{x\ 3716}#
+ #{r\ 3697}#
+ #{w\ 3698}#
+ #{mod\ 3700}#))
+ #{fluid\ 3712}#)
+ (map (lambda (#{x\ 3719}#)
+ (#{chi\ 456}#
+ #{x\ 3719}#
+ #{r\ 3697}#
+ #{w\ 3698}#
+ #{mod\ 3700}#))
+ #{val\ 3713}#)
+ (#{chi-body\ 464}#
+ (cons #{b\ 3714}# #{b*\ 3715}#)
+ (#{source-wrap\ 444}#
+ #{e\ 3696}#
+ #{w\ 3698}#
+ #{s\ 3699}#
+ #{mod\ 3700}#)
+ #{r\ 3697}#
+ #{w\ 3698}#
+ #{mod\ 3700}#)))
+ #{tmp\ 3707}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 3706}#))))))
+ (#{global-extend\ 372}# 'begin 'begin '())
+ (#{global-extend\ 372}# 'define 'define '())
+ (#{global-extend\ 372}#
+ 'define-syntax
+ 'define-syntax
+ '())
+ (#{global-extend\ 372}#
+ 'eval-when
+ 'eval-when
+ '())
+ (#{global-extend\ 372}#
+ 'core
+ 'syntax-case
+ (letrec*
+ ((#{convert-pattern\ 3724}#
+ (lambda (#{pattern\ 3731}# #{keys\ 3732}#)
+ (letrec*
+ ((#{cvt*\ 3736}#
+ (lambda (#{p*\ 3739}# #{n\ 3740}# #{ids\ 3741}#)
+ (if (null? #{p*\ 3739}#)
+ (values '() #{ids\ 3741}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt*\ 3736}#
+ (cdr #{p*\ 3739}#)
+ #{n\ 3740}#
+ #{ids\ 3741}#))
+ (lambda (#{y\ 3745}# #{ids\ 3746}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 3738}#
+ (car #{p*\ 3739}#)
+ #{n\ 3740}#
+ #{ids\ 3746}#))
+ (lambda (#{x\ 3749}# #{ids\ 3750}#)
+ (values
+ (cons #{x\ 3749}# #{y\ 3745}#)
+ #{ids\ 3750}#))))))))
+ (#{cvt\ 3738}#
+ (lambda (#{p\ 3753}# #{n\ 3754}# #{ids\ 3755}#)
+ (if (#{id?\ 376}# #{p\ 3753}#)
+ (if (#{bound-id-member?\ 440}#
+ #{p\ 3753}#
+ #{keys\ 3732}#)
+ (values
+ (vector 'free-id #{p\ 3753}#)
+ #{ids\ 3755}#)
+ (if (#{free-id=?\ 432}#
+ #{p\ 3753}#
+ '#(syntax-object
+ _
((top)
- #(ribcage
- #(mod id)
- #((top) (top))
- #("i3565" "i3566"))
#(ribcage () () ())
#(ribcage
- #(e r w)
+ #(p n ids)
#((top) (top) (top))
- #("i3553" "i3554" "i3555"))
+ #("i3756" "i3757" "i3758"))
+ #(ribcage
+ (cvt cvt*)
+ ((top) (top))
+ ("i3737" "i3735"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3733" "i3734"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3729" "i3727" "i3725" "i3723"))
#(ribcage
(lambda-var-list
gen-var
@@ -10995,9 +12036,7 @@
(top)
(top)
(top))
- ("i489"
- "i487"
- "i485"
+ ("i485"
"i483"
"i481"
"i479"
@@ -11030,14 +12069,14 @@
"i425"
"i423"
"i421"
- "i420"
"i419"
"i417"
"i416"
"i415"
- "i414"
"i413"
+ "i412"
"i411"
+ "i410"
"i409"
"i407"
"i405"
@@ -11045,33 +12084,33 @@
"i401"
"i399"
"i397"
- "i394"
- "i392"
- "i391"
+ "i395"
+ "i393"
"i390"
- "i389"
"i388"
"i387"
"i386"
"i385"
"i384"
+ "i383"
"i382"
"i381"
- "i379"
+ "i380"
+ "i378"
"i377"
"i375"
"i373"
"i371"
"i369"
"i367"
- "i366"
"i365"
- "i364"
"i363"
"i362"
+ "i361"
"i360"
"i359"
- "i357"
+ "i358"
+ "i356"
"i355"
"i353"
"i351"
@@ -11103,12 +12142,14 @@
"i299"
"i297"
"i295"
- "i294"
- "i292"
+ "i293"
+ "i291"
"i290"
"i288"
"i286"
+ "i285"
"i284"
+ "i283"
"i282"
"i280"
"i278"
@@ -11138,3443 +12179,2303 @@
and-map*)
((top) (top) (top) (top))
("i41" "i40" "i39" "i37")))
- (hygiene guile))
- #{mod\ 3567}#))))
- #{tmp\ 3557}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3556}#))))))
- (#{global-extend\ 376}#
- 'module-ref
- '@@
- (lambda (#{e\ 3570}# #{r\ 3571}# #{w\ 3572}#)
- (letrec*
- ((#{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\ 3590}# (vector-length #{x\ 3578}#)))
- (begin
- (let ((#{v\ 3592}#
- (make-vector #{n\ 3590}#)))
- (letrec*
- ((#{loop\ 3595}#
- (lambda (#{i\ 3596}#)
- (if (#{fx=\ 287}#
- #{i\ 3596}#
- #{n\ 3590}#)
- (begin (if #f #f) #{v\ 3592}#)
- (begin
- (vector-set!
- #{v\ 3592}#
- #{i\ 3596}#
- (#{remodulate\ 3577}#
- (vector-ref
- #{x\ 3578}#
- #{i\ 3596}#)
- #{mod\ 3579}#))
- (#{loop\ 3595}#
- (#{fx+\ 283}#
- #{i\ 3596}#
- 1)))))))
- (begin (#{loop\ 3595}# 0)))))))
- #{x\ 3578}#))))))
- (begin
- (let ((#{tmp\ 3600}# #{e\ 3570}#))
- (let ((#{tmp\ 3601}#
- ($sc-dispatch #{tmp\ 3600}# '(_ each-any any))))
- (if (if #{tmp\ 3601}#
- (@apply
- (lambda (#{mod\ 3604}# #{exp\ 3605}#)
- (and-map #{id?\ 380}# #{mod\ 3604}#))
- #{tmp\ 3601}#)
- #f)
- (@apply
- (lambda (#{mod\ 3609}# #{exp\ 3610}#)
- (begin
- (let ((#{mod\ 3612}#
- (syntax->datum
- (cons '#(syntax-object
- private
- ((top)
- #(ribcage
- #(mod exp)
- #((top) (top))
- #("i3607" "i3608"))
- #(ribcage
- (remodulate)
- ((top))
- ("i3576"))
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3573"
- "i3574"
- "i3575"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene guile))
- #{mod\ 3609}#))))
- (values
- (#{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\ 3600}#))))))))
- (#{global-extend\ 376}#
- 'core
- 'if
- (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\ 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\ 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\ 3624}#))))))))
- (#{global-extend\ 376}#
- 'core
- 'with-fluids
- (lambda (#{e\ 3638}#
- #{r\ 3639}#
- #{w\ 3640}#
- #{s\ 3641}#
- #{mod\ 3642}#)
- (let ((#{tmp\ 3648}# #{e\ 3638}#))
- (let ((#{tmp\ 3649}#
- ($sc-dispatch
- #{tmp\ 3648}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 3649}#
- (@apply
- (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\ 3648}#))))))
- (#{global-extend\ 376}# 'begin 'begin '())
- (#{global-extend\ 376}# 'define 'define '())
- (#{global-extend\ 376}#
- 'define-syntax
- 'define-syntax
- '())
- (#{global-extend\ 376}#
- 'eval-when
- 'eval-when
- '())
- (#{global-extend\ 376}#
- 'core
- 'syntax-case
- (letrec*
- ((#{convert-pattern\ 3666}#
- (lambda (#{pattern\ 3673}# #{keys\ 3674}#)
- (letrec*
- ((#{cvt*\ 3678}#
- (lambda (#{p*\ 3681}# #{n\ 3682}# #{ids\ 3683}#)
- (if (null? #{p*\ 3681}#)
- (values '() #{ids\ 3683}#)
- (call-with-values
- (lambda ()
- (#{cvt*\ 3678}#
- (cdr #{p*\ 3681}#)
- #{n\ 3682}#
- #{ids\ 3683}#))
- (lambda (#{y\ 3687}# #{ids\ 3688}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3680}#
- (car #{p*\ 3681}#)
- #{n\ 3682}#
- #{ids\ 3688}#))
- (lambda (#{x\ 3691}# #{ids\ 3692}#)
- (values
- (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}#)
+ (hygiene guile)))
+ (values '_ #{ids\ 3755}#)
(values
- (vector 'free-id #{p\ 3695}#)
- #{ids\ 3697}#)
- (if (#{free-id=?\ 436}#
- #{p\ 3695}#
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3698" "i3699" "i3700"))
- #(ribcage
- (cvt cvt*)
- ((top) (top))
- ("i3679" "i3677"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3675" "i3676"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3671" "i3669" "i3667" "i3665"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- (values '_ #{ids\ 3697}#)
- (values
- 'any
- (cons (cons #{p\ 3695}# #{n\ 3696}#)
- #{ids\ 3697}#))))
- (let ((#{tmp\ 3706}# #{p\ 3695}#))
- (let ((#{tmp\ 3707}#
- ($sc-dispatch
- #{tmp\ 3706}#
- '(any any))))
- (if (if #{tmp\ 3707}#
- (@apply
- (lambda (#{x\ 3710}# #{dots\ 3711}#)
- (#{ellipsis?\ 476}#
- #{dots\ 3711}#))
- #{tmp\ 3707}#)
- #f)
- (@apply
- (lambda (#{x\ 3714}# #{dots\ 3715}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3680}#
- #{x\ 3714}#
- (#{fx+\ 283}# #{n\ 3696}# 1)
- #{ids\ 3697}#))
- (lambda (#{p\ 3716}# #{ids\ 3717}#)
- (values
- (if (eq? #{p\ 3716}# 'any)
- 'each-any
- (vector 'each #{p\ 3716}#))
- #{ids\ 3717}#))))
- #{tmp\ 3707}#)
- (let ((#{tmp\ 3720}#
- ($sc-dispatch
- #{tmp\ 3706}#
- '(any any . each-any))))
- (if (if #{tmp\ 3720}#
- (@apply
- (lambda (#{x\ 3724}#
- #{dots\ 3725}#
- #{ys\ 3726}#)
- (#{ellipsis?\ 476}#
- #{dots\ 3725}#))
- #{tmp\ 3720}#)
- #f)
- (@apply
- (lambda (#{x\ 3730}#
- #{dots\ 3731}#
- #{ys\ 3732}#)
- (call-with-values
- (lambda ()
- (#{cvt*\ 3678}#
- #{ys\ 3732}#
- #{n\ 3696}#
- #{ids\ 3697}#))
- (lambda (#{ys\ 3734}#
- #{ids\ 3735}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3680}#
- #{x\ 3730}#
- (1+ #{n\ 3696}#)
- #{ids\ 3735}#))
- (lambda (#{x\ 3738}#
- #{ids\ 3739}#)
+ 'any
+ (cons (cons #{p\ 3753}# #{n\ 3754}#)
+ #{ids\ 3755}#))))
+ (let ((#{tmp\ 3764}# #{p\ 3753}#))
+ (let ((#{tmp\ 3765}#
+ ($sc-dispatch #{tmp\ 3764}# '(any any))))
+ (if (if #{tmp\ 3765}#
+ (@apply
+ (lambda (#{x\ 3768}# #{dots\ 3769}#)
+ (#{ellipsis?\ 472}# #{dots\ 3769}#))
+ #{tmp\ 3765}#)
+ #f)
+ (@apply
+ (lambda (#{x\ 3772}# #{dots\ 3773}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 3738}#
+ #{x\ 3772}#
+ (1+ #{n\ 3754}#)
+ #{ids\ 3755}#))
+ (lambda (#{p\ 3775}# #{ids\ 3776}#)
+ (values
+ (if (eq? #{p\ 3775}# 'any)
+ 'each-any
+ (vector 'each #{p\ 3775}#))
+ #{ids\ 3776}#))))
+ #{tmp\ 3765}#)
+ (let ((#{tmp\ 3779}#
+ ($sc-dispatch
+ #{tmp\ 3764}#
+ '(any any . each-any))))
+ (if (if #{tmp\ 3779}#
+ (@apply
+ (lambda (#{x\ 3783}#
+ #{dots\ 3784}#
+ #{ys\ 3785}#)
+ (#{ellipsis?\ 472}#
+ #{dots\ 3784}#))
+ #{tmp\ 3779}#)
+ #f)
+ (@apply
+ (lambda (#{x\ 3789}#
+ #{dots\ 3790}#
+ #{ys\ 3791}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt*\ 3736}#
+ #{ys\ 3791}#
+ #{n\ 3754}#
+ #{ids\ 3755}#))
+ (lambda (#{ys\ 3793}#
+ #{ids\ 3794}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 3738}#
+ #{x\ 3789}#
+ (1+ #{n\ 3754}#)
+ #{ids\ 3794}#))
+ (lambda (#{x\ 3797}#
+ #{ids\ 3798}#)
+ (values
+ (vector
+ 'each+
+ #{x\ 3797}#
+ (reverse #{ys\ 3793}#)
+ '())
+ #{ids\ 3798}#))))))
+ #{tmp\ 3779}#)
+ (let ((#{tmp\ 3802}#
+ ($sc-dispatch
+ #{tmp\ 3764}#
+ '(any . any))))
+ (if #{tmp\ 3802}#
+ (@apply
+ (lambda (#{x\ 3805}# #{y\ 3806}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 3738}#
+ #{y\ 3806}#
+ #{n\ 3754}#
+ #{ids\ 3755}#))
+ (lambda (#{y\ 3807}#
+ #{ids\ 3808}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 3738}#
+ #{x\ 3805}#
+ #{n\ 3754}#
+ #{ids\ 3808}#))
+ (lambda (#{x\ 3811}#
+ #{ids\ 3812}#)
+ (values
+ (cons #{x\ 3811}#
+ #{y\ 3807}#)
+ #{ids\ 3812}#))))))
+ #{tmp\ 3802}#)
+ (let ((#{tmp\ 3815}#
+ ($sc-dispatch
+ #{tmp\ 3764}#
+ '())))
+ (if #{tmp\ 3815}#
+ (@apply
+ (lambda ()
+ (values '() #{ids\ 3755}#))
+ #{tmp\ 3815}#)
+ (let ((#{tmp\ 3816}#
+ ($sc-dispatch
+ #{tmp\ 3764}#
+ '#(vector each-any))))
+ (if #{tmp\ 3816}#
+ (@apply
+ (lambda (#{x\ 3818}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt\ 3738}#
+ #{x\ 3818}#
+ #{n\ 3754}#
+ #{ids\ 3755}#))
+ (lambda (#{p\ 3820}#
+ #{ids\ 3821}#)
+ (values
+ (vector
+ 'vector
+ #{p\ 3820}#)
+ #{ids\ 3821}#))))
+ #{tmp\ 3816}#)
+ (let ((#{x\ 3825}#
+ #{tmp\ 3764}#))
(values
(vector
- 'each+
- #{x\ 3738}#
- (reverse #{ys\ 3734}#)
- '())
- #{ids\ 3739}#))))))
- #{tmp\ 3720}#)
- (let ((#{tmp\ 3743}#
- ($sc-dispatch
- #{tmp\ 3706}#
- '(any . any))))
- (if #{tmp\ 3743}#
- (@apply
- (lambda (#{x\ 3746}# #{y\ 3747}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3680}#
- #{y\ 3747}#
- #{n\ 3696}#
- #{ids\ 3697}#))
- (lambda (#{y\ 3748}#
- #{ids\ 3749}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3680}#
- #{x\ 3746}#
- #{n\ 3696}#
- #{ids\ 3749}#))
- (lambda (#{x\ 3752}#
- #{ids\ 3753}#)
- (values
- (cons #{x\ 3752}#
- #{y\ 3748}#)
- #{ids\ 3753}#))))))
- #{tmp\ 3743}#)
- (let ((#{tmp\ 3756}#
- ($sc-dispatch
- #{tmp\ 3706}#
- '())))
- (if #{tmp\ 3756}#
- (@apply
- (lambda ()
- (values '() #{ids\ 3697}#))
- #{tmp\ 3756}#)
- (let ((#{tmp\ 3757}#
- ($sc-dispatch
- #{tmp\ 3706}#
- '#(vector
- each-any))))
- (if #{tmp\ 3757}#
- (@apply
- (lambda (#{x\ 3759}#)
- (call-with-values
- (lambda ()
- (#{cvt\ 3680}#
- #{x\ 3759}#
- #{n\ 3696}#
- #{ids\ 3697}#))
- (lambda (#{p\ 3761}#
- #{ids\ 3762}#)
- (values
- (vector
- 'vector
- #{p\ 3761}#)
- #{ids\ 3762}#))))
- #{tmp\ 3757}#)
- (let ((#{x\ 3766}#
- #{tmp\ 3706}#))
- (values
- (vector
- 'atom
- (#{strip\ 486}#
- #{p\ 3695}#
- '(())))
- #{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\ 3768}#)
- (let ((#{ids\ 3780}# (map car #{pvars\ 3768}#)))
- (begin
- (let ((#{labels\ 3784}#
- (#{gen-labels\ 395}# #{ids\ 3780}#))
- (#{new-vars\ 3785}#
- (map #{gen-var\ 488}# #{ids\ 3780}#)))
- (#{build-application\ 306}#
- #f
- (#{build-primref\ 330}# #f 'apply)
- (list (#{build-simple-lambda\ 324}#
- #f
- (map syntax->datum #{ids\ 3780}#)
- #f
- #{new-vars\ 3785}#
- '()
- (#{chi\ 460}#
- #{exp\ 3769}#
- (#{extend-env\ 368}#
- #{labels\ 3784}#
- (map (lambda (#{var\ 3789}#
- #{level\ 3790}#)
- (cons 'syntax
- (cons #{var\ 3789}#
- #{level\ 3790}#)))
- #{new-vars\ 3785}#
- (map cdr #{pvars\ 3768}#))
- #{r\ 3771}#)
- (#{make-binding-wrap\ 424}#
- #{ids\ 3780}#
- #{labels\ 3784}#
- '(()))
- #{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\ 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\ 3800}#)
- (if (not (and-map
- (lambda (#{x\ 3820}#)
- (not (#{ellipsis?\ 476}#
- (car #{x\ 3820}#))))
- #{pvars\ 3813}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat\ 3800}#)
- (begin
- (let ((#{y\ 3824}# (#{gen-var\ 488}# 'tmp)))
- (#{build-application\ 306}#
- #f
- (#{build-simple-lambda\ 324}#
+ 'atom
+ (#{strip\ 482}#
+ #{p\ 3753}#
+ '(())))
+ #{ids\ 3755}#)))))))))))))))))
+ (begin (#{cvt\ 3738}# #{pattern\ 3731}# 0 '())))))
+ (#{build-dispatch-call\ 3726}#
+ (lambda (#{pvars\ 3827}#
+ #{exp\ 3828}#
+ #{y\ 3829}#
+ #{r\ 3830}#
+ #{mod\ 3831}#)
+ (begin
+ (map cdr #{pvars\ 3827}#)
+ (let ((#{ids\ 3839}# (map car #{pvars\ 3827}#)))
+ (begin
+ (let ((#{labels\ 3843}#
+ (#{gen-labels\ 391}# #{ids\ 3839}#))
+ (#{new-vars\ 3844}#
+ (map #{gen-var\ 484}# #{ids\ 3839}#)))
+ (#{build-application\ 302}#
+ #f
+ (#{build-primref\ 326}# #f 'apply)
+ (list (#{build-simple-lambda\ 320}#
#f
- (list 'tmp)
+ (map syntax->datum #{ids\ 3839}#)
#f
- (list #{y\ 3824}#)
+ #{new-vars\ 3844}#
'()
- (begin
- (let ((#{y\ 3828}#
- (#{build-lexical-reference\ 312}#
- 'value
- #f
- 'tmp
- #{y\ 3824}#)))
- (#{build-conditional\ 308}#
- #f
- (let ((#{tmp\ 3831}#
- #{fender\ 3801}#))
- (let ((#{tmp\ 3832}#
- ($sc-dispatch
- #{tmp\ 3831}#
- '#(atom #t))))
- (if #{tmp\ 3832}#
- (@apply
- (lambda () #{y\ 3828}#)
- #{tmp\ 3832}#)
- (let ((#{_\ 3834}#
- #{tmp\ 3831}#))
- (#{build-conditional\ 308}#
- #f
- #{y\ 3828}#
- (#{build-dispatch-call\ 3668}#
- #{pvars\ 3813}#
- #{fender\ 3801}#
- #{y\ 3828}#
- #{r\ 3799}#
- #{mod\ 3803}#)
- (#{build-data\ 332}#
- #f
- #f))))))
- (#{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\ 330}# #f 'list)
- (list #{x\ 3796}#))
- (#{build-application\ 306}#
- #f
- (#{build-primref\ 330}#
+ (#{chi\ 456}#
+ #{exp\ 3828}#
+ (#{extend-env\ 364}#
+ #{labels\ 3843}#
+ (map (lambda (#{var\ 3848}#
+ #{level\ 3849}#)
+ (cons 'syntax
+ (cons #{var\ 3848}#
+ #{level\ 3849}#)))
+ #{new-vars\ 3844}#
+ (map cdr #{pvars\ 3827}#))
+ #{r\ 3830}#)
+ (#{make-binding-wrap\ 420}#
+ #{ids\ 3839}#
+ #{labels\ 3843}#
+ '(()))
+ #{mod\ 3831}#))
+ #{y\ 3829}#))))))))
+ (#{gen-clause\ 3728}#
+ (lambda (#{x\ 3855}#
+ #{keys\ 3856}#
+ #{clauses\ 3857}#
+ #{r\ 3858}#
+ #{pat\ 3859}#
+ #{fender\ 3860}#
+ #{exp\ 3861}#
+ #{mod\ 3862}#)
+ (call-with-values
+ (lambda ()
+ (#{convert-pattern\ 3724}#
+ #{pat\ 3859}#
+ #{keys\ 3856}#))
+ (lambda (#{p\ 3871}# #{pvars\ 3872}#)
+ (if (not (#{distinct-bound-ids?\ 438}#
+ (map car #{pvars\ 3872}#)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
+ #{pat\ 3859}#)
+ (if (not (and-map
+ (lambda (#{x\ 3879}#)
+ (not (#{ellipsis?\ 472}#
+ (car #{x\ 3879}#))))
+ #{pvars\ 3872}#))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
+ #{pat\ 3859}#)
+ (begin
+ (let ((#{y\ 3883}# (#{gen-var\ 484}# 'tmp)))
+ (#{build-application\ 302}#
+ #f
+ (#{build-simple-lambda\ 320}#
+ #f
+ (list 'tmp)
+ #f
+ (list #{y\ 3883}#)
+ '()
+ (begin
+ (let ((#{y\ 3887}#
+ (#{build-lexical-reference\ 308}#
+ 'value
#f
- '$sc-dispatch)
- (list #{x\ 3796}#
- (#{build-data\ 332}#
+ 'tmp
+ #{y\ 3883}#)))
+ (#{build-conditional\ 304}#
+ #f
+ (let ((#{tmp\ 3890}#
+ #{fender\ 3860}#))
+ (let ((#{tmp\ 3891}#
+ ($sc-dispatch
+ #{tmp\ 3890}#
+ '#(atom #t))))
+ (if #{tmp\ 3891}#
+ (@apply
+ (lambda () #{y\ 3887}#)
+ #{tmp\ 3891}#)
+ (let ((#{_\ 3893}#
+ #{tmp\ 3890}#))
+ (#{build-conditional\ 304}#
+ #f
+ #{y\ 3887}#
+ (#{build-dispatch-call\ 3726}#
+ #{pvars\ 3872}#
+ #{fender\ 3860}#
+ #{y\ 3887}#
+ #{r\ 3858}#
+ #{mod\ 3862}#)
+ (#{build-data\ 328}#
#f
- #{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\ 330}# #f 'syntax-violation)
- (list (#{build-data\ 332}# #f #f)
- (#{build-data\ 332}#
- #f
- "source expression failed to match any pattern")
- #{x\ 3842}#))
- (let ((#{tmp\ 3856}# (car #{clauses\ 3844}#)))
- (let ((#{tmp\ 3857}#
- ($sc-dispatch #{tmp\ 3856}# '(any any))))
- (if #{tmp\ 3857}#
- (@apply
- (lambda (#{pat\ 3860}# #{exp\ 3861}#)
- (if (if (#{id?\ 380}# #{pat\ 3860}#)
- (and-map
- (lambda (#{x\ 3864}#)
- (not (#{free-id=?\ 436}#
- #{pat\ 3860}#
- #{x\ 3864}#)))
- (cons '#(syntax-object
- ...
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3858" "i3859"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3847"
- "i3848"
- "i3849"
- "i3850"
- "i3851"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3671"
- "i3669"
- "i3667"
- "i3665"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41"
- "i40"
- "i39"
- "i37")))
- (hygiene guile))
- #{keys\ 3843}#))
- #f)
- (if (#{free-id=?\ 436}#
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3858" "i3859"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3847"
- "i3848"
- "i3849"
- "i3850"
- "i3851"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3671"
- "i3669"
- "i3667"
- "i3665"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile))
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3858" "i3859"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3847"
- "i3848"
- "i3849"
- "i3850"
- "i3851"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3671"
- "i3669"
- "i3667"
- "i3665"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("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"
- "i417"
- "i416"
- "i415"
- "i414"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i397"
- "i394"
- "i392"
- "i391"
- "i390"
- "i389"
- "i388"
- "i387"
- "i386"
- "i385"
- "i384"
- "i382"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i369"
- "i367"
- "i366"
- "i365"
- "i364"
- "i363"
- "i362"
- "i360"
- "i359"
- "i357"
- "i355"
- "i353"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i335"
- "i333"
- "i331"
- "i329"
- "i327"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i294"
- "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))
- ("i41" "i40" "i39" "i37")))
- (hygiene guile)))
- (#{chi\ 460}#
- #{exp\ 3861}#
- #{r\ 3845}#
- '(())
- #{mod\ 3846}#)
- (begin
- (let ((#{labels\ 3869}#
- (list (#{gen-label\ 393}#)))
- (#{var\ 3870}#
- (#{gen-var\ 488}#
- #{pat\ 3860}#)))
- (#{build-application\ 306}#
+ #f))))))
+ (#{build-dispatch-call\ 3726}#
+ #{pvars\ 3872}#
+ #{exp\ 3861}#
+ #{y\ 3887}#
+ #{r\ 3858}#
+ #{mod\ 3862}#)
+ (#{gen-syntax-case\ 3730}#
+ #{x\ 3855}#
+ #{keys\ 3856}#
+ #{clauses\ 3857}#
+ #{r\ 3858}#
+ #{mod\ 3862}#)))))
+ (list (if (eq? #{p\ 3871}# 'any)
+ (#{build-application\ 302}#
#f
- (#{build-simple-lambda\ 324}#
- #f
- (list (syntax->datum
- #{pat\ 3860}#))
+ (#{build-primref\ 326}# #f 'list)
+ (list #{x\ 3855}#))
+ (#{build-application\ 302}#
+ #f
+ (#{build-primref\ 326}#
#f
- (list #{var\ 3870}#)
- '()
- (#{chi\ 460}#
- #{exp\ 3861}#
- (#{extend-env\ 368}#
- #{labels\ 3869}#
- (list (cons 'syntax
- (cons #{var\ 3870}#
- 0)))
- #{r\ 3845}#)
- (#{make-binding-wrap\ 424}#
- (list #{pat\ 3860}#)
- #{labels\ 3869}#
- '(()))
- #{mod\ 3846}#))
- (list #{x\ 3842}#)))))
- (#{gen-clause\ 3670}#
- #{x\ 3842}#
- #{keys\ 3843}#
- (cdr #{clauses\ 3844}#)
- #{r\ 3845}#
- #{pat\ 3860}#
- #t
- #{exp\ 3861}#
- #{mod\ 3846}#)))
- #{tmp\ 3857}#)
- (let ((#{tmp\ 3876}#
- ($sc-dispatch
- #{tmp\ 3856}#
- '(any any any))))
- (if #{tmp\ 3876}#
- (@apply
- (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\ 3844}#))))))))))))
+ '$sc-dispatch)
+ (list #{x\ 3855}#
+ (#{build-data\ 328}#
+ #f
+ #{p\ 3871}#))))))))))))))
+ (#{gen-syntax-case\ 3730}#
+ (lambda (#{x\ 3901}#
+ #{keys\ 3902}#
+ #{clauses\ 3903}#
+ #{r\ 3904}#
+ #{mod\ 3905}#)
+ (if (null? #{clauses\ 3903}#)
+ (#{build-application\ 302}#
+ #f
+ (#{build-primref\ 326}# #f 'syntax-violation)
+ (list (#{build-data\ 328}# #f #f)
+ (#{build-data\ 328}#
+ #f
+ "source expression failed to match any pattern")
+ #{x\ 3901}#))
+ (let ((#{tmp\ 3915}# (car #{clauses\ 3903}#)))
+ (let ((#{tmp\ 3916}#
+ ($sc-dispatch #{tmp\ 3915}# '(any any))))
+ (if #{tmp\ 3916}#
+ (@apply
+ (lambda (#{pat\ 3919}# #{exp\ 3920}#)
+ (if (if (#{id?\ 376}# #{pat\ 3919}#)
+ (and-map
+ (lambda (#{x\ 3923}#)
+ (not (#{free-id=?\ 432}#
+ #{pat\ 3919}#
+ #{x\ 3923}#)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3917" "i3918"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3906"
+ "i3907"
+ "i3908"
+ "i3909"
+ "i3910"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3729"
+ "i3727"
+ "i3725"
+ "i3723"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41" "i40" "i39" "i37")))
+ (hygiene guile))
+ #{keys\ 3902}#))
+ #f)
+ (if (#{free-id=?\ 432}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3917" "i3918"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3906"
+ "i3907"
+ "i3908"
+ "i3909"
+ "i3910"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3729" "i3727" "i3725" "i3723"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41" "i40" "i39" "i37")))
+ (hygiene guile))
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3917" "i3918"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3906"
+ "i3907"
+ "i3908"
+ "i3909"
+ "i3910"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3729" "i3727" "i3725" "i3723"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("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"
+ "i419"
+ "i417"
+ "i416"
+ "i415"
+ "i413"
+ "i412"
+ "i411"
+ "i410"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
+ "i390"
+ "i388"
+ "i387"
+ "i386"
+ "i385"
+ "i384"
+ "i383"
+ "i382"
+ "i381"
+ "i380"
+ "i378"
+ "i377"
+ "i375"
+ "i373"
+ "i371"
+ "i369"
+ "i367"
+ "i365"
+ "i363"
+ "i362"
+ "i361"
+ "i360"
+ "i359"
+ "i358"
+ "i356"
+ "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"
+ "i293"
+ "i291"
+ "i290"
+ "i288"
+ "i286"
+ "i285"
+ "i284"
+ "i283"
+ "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))
+ ("i41" "i40" "i39" "i37")))
+ (hygiene guile)))
+ (#{chi\ 456}#
+ #{exp\ 3920}#
+ #{r\ 3904}#
+ '(())
+ #{mod\ 3905}#)
+ (begin
+ (let ((#{labels\ 3928}#
+ (list (#{gen-label\ 389}#)))
+ (#{var\ 3929}#
+ (#{gen-var\ 484}# #{pat\ 3919}#)))
+ (#{build-application\ 302}#
+ #f
+ (#{build-simple-lambda\ 320}#
+ #f
+ (list (syntax->datum #{pat\ 3919}#))
+ #f
+ (list #{var\ 3929}#)
+ '()
+ (#{chi\ 456}#
+ #{exp\ 3920}#
+ (#{extend-env\ 364}#
+ #{labels\ 3928}#
+ (list (cons 'syntax
+ (cons #{var\ 3929}#
+ 0)))
+ #{r\ 3904}#)
+ (#{make-binding-wrap\ 420}#
+ (list #{pat\ 3919}#)
+ #{labels\ 3928}#
+ '(()))
+ #{mod\ 3905}#))
+ (list #{x\ 3901}#)))))
+ (#{gen-clause\ 3728}#
+ #{x\ 3901}#
+ #{keys\ 3902}#
+ (cdr #{clauses\ 3903}#)
+ #{r\ 3904}#
+ #{pat\ 3919}#
+ #t
+ #{exp\ 3920}#
+ #{mod\ 3905}#)))
+ #{tmp\ 3916}#)
+ (let ((#{tmp\ 3935}#
+ ($sc-dispatch
+ #{tmp\ 3915}#
+ '(any any any))))
+ (if #{tmp\ 3935}#
+ (@apply
+ (lambda (#{pat\ 3939}#
+ #{fender\ 3940}#
+ #{exp\ 3941}#)
+ (#{gen-clause\ 3728}#
+ #{x\ 3901}#
+ #{keys\ 3902}#
+ (cdr #{clauses\ 3903}#)
+ #{r\ 3904}#
+ #{pat\ 3939}#
+ #{fender\ 3940}#
+ #{exp\ 3941}#
+ #{mod\ 3905}#))
+ #{tmp\ 3935}#)
+ (let ((#{_\ 3943}# #{tmp\ 3915}#))
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
+ (car #{clauses\ 3903}#))))))))))))
+ (begin
+ (lambda (#{e\ 3944}#
+ #{r\ 3945}#
+ #{w\ 3946}#
+ #{s\ 3947}#
+ #{mod\ 3948}#)
+ (begin
+ (let ((#{e\ 3955}#
+ (#{source-wrap\ 444}#
+ #{e\ 3944}#
+ #{w\ 3946}#
+ #{s\ 3947}#
+ #{mod\ 3948}#)))
+ (let ((#{tmp\ 3956}# #{e\ 3955}#))
+ (let ((#{tmp\ 3957}#
+ ($sc-dispatch
+ #{tmp\ 3956}#
+ '(_ any each-any . each-any))))
+ (if #{tmp\ 3957}#
+ (@apply
+ (lambda (#{val\ 3961}# #{key\ 3962}# #{m\ 3963}#)
+ (if (and-map
+ (lambda (#{x\ 3964}#)
+ (if (#{id?\ 376}# #{x\ 3964}#)
+ (not (#{ellipsis?\ 472}#
+ #{x\ 3964}#))
+ #f))
+ #{key\ 3962}#)
+ (begin
+ (let ((#{x\ 3970}#
+ (#{gen-var\ 484}# 'tmp)))
+ (#{build-application\ 302}#
+ #{s\ 3947}#
+ (#{build-simple-lambda\ 320}#
+ #f
+ (list 'tmp)
+ #f
+ (list #{x\ 3970}#)
+ '()
+ (#{gen-syntax-case\ 3730}#
+ (#{build-lexical-reference\ 308}#
+ 'value
+ #f
+ 'tmp
+ #{x\ 3970}#)
+ #{key\ 3962}#
+ #{m\ 3963}#
+ #{r\ 3945}#
+ #{mod\ 3948}#))
+ (list (#{chi\ 456}#
+ #{val\ 3961}#
+ #{r\ 3945}#
+ '(())
+ #{mod\ 3948}#)))))
+ (syntax-violation
+ 'syntax-case
+ "invalid literals list"
+ #{e\ 3955}#)))
+ #{tmp\ 3957}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp\ 3956}#))))))))))
+ (set! macroexpand
+ (lambda*
+ (#{x\ 3976}#
+ #:optional
+ (#{m\ 3978}# 'e)
+ (#{esew\ 3980}# '(eval)))
+ (#{chi-top-sequence\ 448}#
+ (list #{x\ 3976}#)
+ '()
+ '((top))
+ #f
+ #{m\ 3978}#
+ #{esew\ 3980}#
+ (cons 'hygiene (module-name (current-module))))))
+ (set! identifier?
+ (lambda (#{x\ 3984}#)
+ (#{nonsymbol-id?\ 374}# #{x\ 3984}#)))
+ (set! datum->syntax
+ (lambda (#{id\ 3986}# #{datum\ 3987}#)
+ (#{make-syntax-object\ 340}#
+ #{datum\ 3987}#
+ (#{syntax-object-wrap\ 346}# #{id\ 3986}#)
+ (#{syntax-object-module\ 348}# #{id\ 3986}#))))
+ (set! syntax->datum
+ (lambda (#{x\ 3990}#)
+ (#{strip\ 482}# #{x\ 3990}# '(()))))
+ (set! syntax-source
+ (lambda (#{x\ 3993}#)
+ (#{source-annotation\ 357}# #{x\ 3993}#)))
+ (set! generate-temporaries
+ (lambda (#{ls\ 3995}#)
+ (begin
(begin
- (lambda (#{e\ 3885}#
- #{r\ 3886}#
- #{w\ 3887}#
- #{s\ 3888}#
- #{mod\ 3889}#)
- (begin
- (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\ 3897}#
- '(_ any each-any . each-any))))
- (if #{tmp\ 3898}#
- (@apply
- (lambda (#{val\ 3902}#
- #{key\ 3903}#
- #{m\ 3904}#)
- (if (and-map
- (lambda (#{x\ 3905}#)
- (if (#{id?\ 380}# #{x\ 3905}#)
- (not (#{ellipsis?\ 476}#
- #{x\ 3905}#))
- #f))
- #{key\ 3903}#)
- (begin
- (let ((#{x\ 3911}#
- (#{gen-var\ 488}# 'tmp)))
- (#{build-application\ 306}#
- #{s\ 3888}#
- (#{build-simple-lambda\ 324}#
- #f
- (list 'tmp)
- #f
- (list #{x\ 3911}#)
- '()
- (#{gen-syntax-case\ 3672}#
- (#{build-lexical-reference\ 312}#
- 'value
- #f
- 'tmp
- #{x\ 3911}#)
- #{key\ 3903}#
- #{m\ 3904}#
- #{r\ 3886}#
- #{mod\ 3889}#))
- (list (#{chi\ 460}#
- #{val\ 3902}#
- #{r\ 3886}#
- '(())
- #{mod\ 3889}#)))))
- (syntax-violation
- 'syntax-case
- "invalid literals list"
- #{e\ 3896}#)))
- #{tmp\ 3898}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp\ 3897}#))))))))))
- (set! macroexpand
- (lambda*
- (#{x\ 3917}#
- #:optional
- (#{m\ 3919}# 'e)
- (#{esew\ 3921}# '(eval)))
- (#{chi-top-sequence\ 452}#
- (list #{x\ 3917}#)
- '()
- '((top))
- #f
- #{m\ 3919}#
- #{esew\ 3921}#
- (cons 'hygiene (module-name (current-module))))))
- (set! identifier?
- (lambda (#{x\ 3925}#)
- (#{nonsymbol-id?\ 378}# #{x\ 3925}#)))
- (set! datum->syntax
- (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\ 3931}#)
- (#{strip\ 486}# #{x\ 3931}# '(()))))
- (set! syntax-source
- (lambda (#{x\ 3934}#)
- (#{source-annotation\ 361}# #{x\ 3934}#)))
- (set! generate-temporaries
- (lambda (#{ls\ 3936}#)
+ (let ((#{x\ 3999}# #{ls\ 3995}#))
+ (if (not (list? #{x\ 3999}#))
+ (syntax-violation
+ 'generate-temporaries
+ "invalid argument"
+ #{x\ 3999}#))))
+ (map (lambda (#{x\ 4000}#)
+ (#{wrap\ 442}# (gensym) '((top)) #f))
+ #{ls\ 3995}#))))
+ (set! free-identifier=?
+ (lambda (#{x\ 4004}# #{y\ 4005}#)
+ (begin
(begin
- (begin
- (let ((#{x\ 3940}# #{ls\ 3936}#))
- (if (not (list? #{x\ 3940}#))
- (syntax-violation
- 'generate-temporaries
- "invalid argument"
- #{x\ 3940}#))))
- (map (lambda (#{x\ 3941}#)
- (#{wrap\ 446}# (gensym) '((top)) #f))
- #{ls\ 3936}#))))
- (set! free-identifier=?
- (lambda (#{x\ 3945}# #{y\ 3946}#)
+ (let ((#{x\ 4010}# #{x\ 4004}#))
+ (if (not (#{nonsymbol-id?\ 374}# #{x\ 4010}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{x\ 4010}#))))
(begin
- (begin
- (let ((#{x\ 3951}# #{x\ 3945}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3951}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x\ 3951}#))))
- (begin
- (let ((#{x\ 3954}# #{y\ 3946}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3954}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x\ 3954}#))))
- (#{free-id=?\ 436}# #{x\ 3945}# #{y\ 3946}#))))
- (set! bound-identifier=?
- (lambda (#{x\ 3955}# #{y\ 3956}#)
+ (let ((#{x\ 4013}# #{y\ 4005}#))
+ (if (not (#{nonsymbol-id?\ 374}# #{x\ 4013}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
+ #{x\ 4013}#))))
+ (#{free-id=?\ 432}# #{x\ 4004}# #{y\ 4005}#))))
+ (set! bound-identifier=?
+ (lambda (#{x\ 4014}# #{y\ 4015}#)
+ (begin
(begin
- (begin
- (let ((#{x\ 3961}# #{x\ 3955}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3961}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x\ 3961}#))))
- (begin
- (let ((#{x\ 3964}# #{y\ 3956}#))
- (if (not (#{nonsymbol-id?\ 378}# #{x\ 3964}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x\ 3964}#))))
- (#{bound-id=?\ 438}# #{x\ 3955}# #{y\ 3956}#))))
- (set! syntax-violation
- (lambda*
- (#{who\ 3965}#
- #{message\ 3966}#
- #{form\ 3967}#
- #:optional
- (#{subform\ 3971}# #f))
+ (let ((#{x\ 4020}# #{x\ 4014}#))
+ (if (not (#{nonsymbol-id?\ 374}# #{x\ 4020}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{x\ 4020}#))))
(begin
- (begin
- (let ((#{x\ 3975}# #{who\ 3965}#))
- (if (not (let ((#{x\ 3976}# #{x\ 3975}#))
- (begin
- (let ((#{t\ 3980}# (not #{x\ 3976}#)))
- (if #{t\ 3980}#
- #{t\ 3980}#
- (begin
- (let ((#{t\ 3983}#
- (string? #{x\ 3976}#)))
- (if #{t\ 3983}#
- #{t\ 3983}#
- (symbol? #{x\ 3976}#)))))))))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x\ 3975}#))))
- (begin
- (let ((#{x\ 3987}# #{message\ 3966}#))
- (if (not (string? #{x\ 3987}#))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x\ 3987}#))))
- (throw 'syntax-error
- #{who\ 3965}#
- #{message\ 3966}#
- (#{source-annotation\ 361}#
- (begin
- (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\ 3997}#
- (lambda (#{e\ 4010}#
- #{p\ 4011}#
- #{w\ 4012}#
- #{mod\ 4013}#)
- (if (pair? #{e\ 4010}#)
- (begin
- (let ((#{first\ 4021}#
- (#{match\ 4009}#
- (car #{e\ 4010}#)
- #{p\ 4011}#
- #{w\ 4012}#
- '()
- #{mod\ 4013}#)))
- (if #{first\ 4021}#
- (begin
- (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\ 4010}#)
- '()
- (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+\ 3999}#
- (lambda (#{e\ 4033}#
- #{x-pat\ 4034}#
- #{y-pat\ 4035}#
- #{z-pat\ 4036}#
- #{w\ 4037}#
- #{r\ 4038}#
- #{mod\ 4039}#)
- (letrec*
- ((#{f\ 4050}#
- (lambda (#{e\ 4051}# #{w\ 4052}#)
- (if (pair? #{e\ 4051}#)
- (call-with-values
- (lambda ()
- (#{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\ 4062}#
- (#{match\ 4009}#
- (car #{e\ 4051}#)
- #{x-pat\ 4034}#
- #{w\ 4052}#
- '()
- #{mod\ 4039}#)))
- (if #{xr\ 4062}#
- (values
- (cons #{xr\ 4062}# #{xr*\ 4055}#)
- #{y-pat\ 4056}#
- #{r\ 4057}#)
- (values #f #f #f))))
- (values
- '()
- (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?\ 346}# #{e\ 4051}#)
- (#{f\ 4050}#
- (#{syntax-object-expression\ 348}# #{e\ 4051}#)
- (#{join-wraps\ 428}# #{w\ 4052}# #{e\ 4051}#))
- (values
- '()
- #{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\ 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\ 4066}#)
- '()
- (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}#)
+ (let ((#{x\ 4023}# #{y\ 4015}#))
+ (if (not (#{nonsymbol-id?\ 374}# #{x\ 4023}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
+ #{x\ 4023}#))))
+ (#{bound-id=?\ 434}# #{x\ 4014}# #{y\ 4015}#))))
+ (set! syntax-violation
+ (lambda*
+ (#{who\ 4024}#
+ #{message\ 4025}#
+ #{form\ 4026}#
+ #:optional
+ (#{subform\ 4030}# #f))
+ (begin
+ (begin
+ (let ((#{x\ 4034}# #{who\ 4024}#))
+ (if (not (let ((#{x\ 4035}# #{x\ 4034}#))
+ (begin
+ (let ((#{t\ 4039}# (not #{x\ 4035}#)))
+ (if #{t\ 4039}#
+ #{t\ 4039}#
+ (begin
+ (let ((#{t\ 4042}#
+ (string? #{x\ 4035}#)))
+ (if #{t\ 4042}#
+ #{t\ 4042}#
+ (symbol? #{x\ 4035}#)))))))))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{x\ 4034}#))))
+ (begin
+ (let ((#{x\ 4046}# #{message\ 4025}#))
+ (if (not (string? #{x\ 4046}#))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
+ #{x\ 4046}#))))
+ (throw 'syntax-error
+ #{who\ 4024}#
+ #{message\ 4025}#
+ (#{source-annotation\ 357}#
+ (begin
+ (let ((#{t\ 4049}# #{form\ 4026}#))
+ (if #{t\ 4049}# #{t\ 4049}# #{subform\ 4030}#))))
+ (#{strip\ 482}# #{form\ 4026}# '(()))
+ (if #{subform\ 4030}#
+ (#{strip\ 482}# #{subform\ 4030}# '(()))
#f)))))
- (#{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\ 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\ 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\ 4110}# 'each-any)
+ (letrec*
+ ((#{match-each\ 4056}#
+ (lambda (#{e\ 4069}#
+ #{p\ 4070}#
+ #{w\ 4071}#
+ #{mod\ 4072}#)
+ (if (pair? #{e\ 4069}#)
+ (begin
+ (let ((#{first\ 4080}#
+ (#{match\ 4068}#
+ (car #{e\ 4069}#)
+ #{p\ 4070}#
+ #{w\ 4071}#
+ '()
+ #{mod\ 4072}#)))
+ (if #{first\ 4080}#
(begin
- (let ((#{l\ 4130}#
- (#{match-each-any\ 4001}#
- #{e\ 4109}#
- #{w\ 4111}#
- #{mod\ 4113}#)))
- (if #{l\ 4130}#
- (cons #{l\ 4130}# #{r\ 4112}#)
+ (let ((#{rest\ 4084}#
+ (#{match-each\ 4056}#
+ (cdr #{e\ 4069}#)
+ #{p\ 4070}#
+ #{w\ 4071}#
+ #{mod\ 4072}#)))
+ (if #{rest\ 4084}#
+ (cons #{first\ 4080}# #{rest\ 4084}#)
#f)))
- (begin
- (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\ 4139}#
- (#{match-each\ 3997}#
- #{e\ 4109}#
- (vector-ref #{p\ 4110}# 1)
- #{w\ 4111}#
- #{mod\ 4113}#)))
- (if #{l\ 4139}#
- (letrec*
- ((#{collect\ 4144}#
- (lambda (#{l\ 4145}#)
- (if (null? (car #{l\ 4145}#))
- #{r\ 4112}#
- (cons (map car #{l\ 4145}#)
- (#{collect\ 4144}#
- (map cdr
- #{l\ 4145}#)))))))
- (begin
- (#{collect\ 4144}# #{l\ 4139}#)))
- #f))))
- (if (eqv? #{atom-key\ 4136}# 'each+)
- (call-with-values
- (lambda ()
- (#{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\ 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)))
+ (if (null? #{e\ 4069}#)
+ '()
+ (if (#{syntax-object?\ 342}# #{e\ 4069}#)
+ (#{match-each\ 4056}#
+ (#{syntax-object-expression\ 344}# #{e\ 4069}#)
+ #{p\ 4070}#
+ (#{join-wraps\ 424}#
+ #{w\ 4071}#
+ (#{syntax-object-wrap\ 346}# #{e\ 4069}#))
+ (#{syntax-object-module\ 348}# #{e\ 4069}#))
+ #f)))))
+ (#{match-each+\ 4058}#
+ (lambda (#{e\ 4092}#
+ #{x-pat\ 4093}#
+ #{y-pat\ 4094}#
+ #{z-pat\ 4095}#
+ #{w\ 4096}#
+ #{r\ 4097}#
+ #{mod\ 4098}#)
+ (letrec*
+ ((#{f\ 4109}#
+ (lambda (#{e\ 4110}# #{w\ 4111}#)
+ (if (pair? #{e\ 4110}#)
+ (call-with-values
+ (lambda ()
+ (#{f\ 4109}# (cdr #{e\ 4110}#) #{w\ 4111}#))
+ (lambda (#{xr*\ 4114}# #{y-pat\ 4115}# #{r\ 4116}#)
+ (if #{r\ 4116}#
+ (if (null? #{y-pat\ 4115}#)
+ (begin
+ (let ((#{xr\ 4121}#
+ (#{match\ 4068}#
+ (car #{e\ 4110}#)
+ #{x-pat\ 4093}#
+ #{w\ 4111}#
+ '()
+ #{mod\ 4098}#)))
+ (if #{xr\ 4121}#
+ (values
+ (cons #{xr\ 4121}# #{xr*\ 4114}#)
+ #{y-pat\ 4115}#
+ #{r\ 4116}#)
+ (values #f #f #f))))
+ (values
+ '()
+ (cdr #{y-pat\ 4115}#)
+ (#{match\ 4068}#
+ (car #{e\ 4110}#)
+ (car #{y-pat\ 4115}#)
+ #{w\ 4111}#
+ #{r\ 4116}#
+ #{mod\ 4098}#)))
+ (values #f #f #f))))
+ (if (#{syntax-object?\ 342}# #{e\ 4110}#)
+ (#{f\ 4109}#
+ (#{syntax-object-expression\ 344}# #{e\ 4110}#)
+ (#{join-wraps\ 424}# #{w\ 4111}# #{e\ 4110}#))
+ (values
+ '()
+ #{y-pat\ 4094}#
+ (#{match\ 4068}#
+ #{e\ 4110}#
+ #{z-pat\ 4095}#
+ #{w\ 4111}#
+ #{r\ 4097}#
+ #{mod\ 4098}#)))))))
+ (begin (#{f\ 4109}# #{e\ 4092}# #{w\ 4096}#)))))
+ (#{match-each-any\ 4060}#
+ (lambda (#{e\ 4125}# #{w\ 4126}# #{mod\ 4127}#)
+ (if (pair? #{e\ 4125}#)
+ (begin
+ (let ((#{l\ 4134}#
+ (#{match-each-any\ 4060}#
+ (cdr #{e\ 4125}#)
+ #{w\ 4126}#
+ #{mod\ 4127}#)))
+ (if #{l\ 4134}#
+ (cons (#{wrap\ 442}#
+ (car #{e\ 4125}#)
+ #{w\ 4126}#
+ #{mod\ 4127}#)
+ #{l\ 4134}#)
+ #f)))
+ (if (null? #{e\ 4125}#)
+ '()
+ (if (#{syntax-object?\ 342}# #{e\ 4125}#)
+ (#{match-each-any\ 4060}#
+ (#{syntax-object-expression\ 344}# #{e\ 4125}#)
+ (#{join-wraps\ 424}#
+ #{w\ 4126}#
+ (#{syntax-object-wrap\ 346}# #{e\ 4125}#))
+ #{mod\ 4127}#)
+ #f)))))
+ (#{match-empty\ 4062}#
+ (lambda (#{p\ 4142}# #{r\ 4143}#)
+ (if (null? #{p\ 4142}#)
+ #{r\ 4143}#
+ (if (eq? #{p\ 4142}# '_)
+ #{r\ 4143}#
+ (if (eq? #{p\ 4142}# 'any)
+ (cons '() #{r\ 4143}#)
+ (if (pair? #{p\ 4142}#)
+ (#{match-empty\ 4062}#
+ (car #{p\ 4142}#)
+ (#{match-empty\ 4062}#
+ (cdr #{p\ 4142}#)
+ #{r\ 4143}#))
+ (if (eq? #{p\ 4142}# 'each-any)
+ (cons '() #{r\ 4143}#)
+ (begin
+ (let ((#{atom-key\ 4159}#
+ (vector-ref #{p\ 4142}# 0)))
+ (if (eqv? #{atom-key\ 4159}# 'each)
+ (#{match-empty\ 4062}#
+ (vector-ref #{p\ 4142}# 1)
+ #{r\ 4143}#)
+ (if (eqv? #{atom-key\ 4159}# 'each+)
+ (#{match-empty\ 4062}#
+ (vector-ref #{p\ 4142}# 1)
+ (#{match-empty\ 4062}#
+ (reverse (vector-ref #{p\ 4142}# 2))
+ (#{match-empty\ 4062}#
+ (vector-ref #{p\ 4142}# 3)
+ #{r\ 4143}#)))
+ (if (if (eqv? #{atom-key\ 4159}# 'free-id)
+ #t
+ (eqv? #{atom-key\ 4159}# 'atom))
+ #{r\ 4143}#
+ (if (eqv? #{atom-key\ 4159}# 'vector)
+ (#{match-empty\ 4062}#
+ (vector-ref #{p\ 4142}# 1)
+ #{r\ 4143}#))))))))))))))
+ (#{combine\ 4064}#
+ (lambda (#{r*\ 4164}# #{r\ 4165}#)
+ (if (null? (car #{r*\ 4164}#))
+ #{r\ 4165}#
+ (cons (map car #{r*\ 4164}#)
+ (#{combine\ 4064}#
+ (map cdr #{r*\ 4164}#)
+ #{r\ 4165}#)))))
+ (#{match*\ 4066}#
+ (lambda (#{e\ 4168}#
+ #{p\ 4169}#
+ #{w\ 4170}#
+ #{r\ 4171}#
+ #{mod\ 4172}#)
+ (if (null? #{p\ 4169}#)
+ (if (null? #{e\ 4168}#) #{r\ 4171}# #f)
+ (if (pair? #{p\ 4169}#)
+ (if (pair? #{e\ 4168}#)
+ (#{match\ 4068}#
+ (car #{e\ 4168}#)
+ (car #{p\ 4169}#)
+ #{w\ 4170}#
+ (#{match\ 4068}#
+ (cdr #{e\ 4168}#)
+ (cdr #{p\ 4169}#)
+ #{w\ 4170}#
+ #{r\ 4171}#
+ #{mod\ 4172}#)
+ #{mod\ 4172}#)
+ #f)
+ (if (eq? #{p\ 4169}# 'each-any)
+ (begin
+ (let ((#{l\ 4189}#
+ (#{match-each-any\ 4060}#
+ #{e\ 4168}#
+ #{w\ 4170}#
+ #{mod\ 4172}#)))
+ (if #{l\ 4189}#
+ (cons #{l\ 4189}# #{r\ 4171}#)
+ #f)))
+ (begin
+ (let ((#{atom-key\ 4195}# (vector-ref #{p\ 4169}# 0)))
+ (if (eqv? #{atom-key\ 4195}# 'each)
+ (if (null? #{e\ 4168}#)
+ (#{match-empty\ 4062}#
+ (vector-ref #{p\ 4169}# 1)
+ #{r\ 4171}#)
+ (begin
+ (let ((#{l\ 4198}#
+ (#{match-each\ 4056}#
+ #{e\ 4168}#
+ (vector-ref #{p\ 4169}# 1)
+ #{w\ 4170}#
+ #{mod\ 4172}#)))
+ (if #{l\ 4198}#
+ (letrec*
+ ((#{collect\ 4203}#
+ (lambda (#{l\ 4204}#)
+ (if (null? (car #{l\ 4204}#))
+ #{r\ 4171}#
+ (cons (map car #{l\ 4204}#)
+ (#{collect\ 4203}#
+ (map cdr
+ #{l\ 4204}#)))))))
+ (begin (#{collect\ 4203}# #{l\ 4198}#)))
+ #f))))
+ (if (eqv? #{atom-key\ 4195}# 'each+)
+ (call-with-values
+ (lambda ()
+ (#{match-each+\ 4058}#
+ #{e\ 4168}#
+ (vector-ref #{p\ 4169}# 1)
+ (vector-ref #{p\ 4169}# 2)
+ (vector-ref #{p\ 4169}# 3)
+ #{w\ 4170}#
+ #{r\ 4171}#
+ #{mod\ 4172}#))
+ (lambda (#{xr*\ 4206}#
+ #{y-pat\ 4207}#
+ #{r\ 4208}#)
+ (if #{r\ 4208}#
+ (if (null? #{y-pat\ 4207}#)
+ (if (null? #{xr*\ 4206}#)
+ (#{match-empty\ 4062}#
+ (vector-ref #{p\ 4169}# 1)
+ #{r\ 4208}#)
+ (#{combine\ 4064}#
+ #{xr*\ 4206}#
+ #{r\ 4208}#))
#f)
+ #f)))
+ (if (eqv? #{atom-key\ 4195}# 'free-id)
+ (if (#{id?\ 376}# #{e\ 4168}#)
+ (if (#{free-id=?\ 432}#
+ (#{wrap\ 442}#
+ #{e\ 4168}#
+ #{w\ 4170}#
+ #{mod\ 4172}#)
+ (vector-ref #{p\ 4169}# 1))
+ #{r\ 4171}#
#f)
- (if (eqv? #{atom-key\ 4136}# 'atom)
- (if (equal?
- (vector-ref #{p\ 4110}# 1)
- (#{strip\ 486}#
- #{e\ 4109}#
- #{w\ 4111}#))
- #{r\ 4112}#
- #f)
- (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\ 4009}#
- (lambda (#{e\ 4166}#
- #{p\ 4167}#
- #{w\ 4168}#
- #{r\ 4169}#
- #{mod\ 4170}#)
- (if (not #{r\ 4169}#)
- #f
- (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\ 4185}# #{p\ 4186}#)
- (if (eq? #{p\ 4186}# 'any)
- (list #{e\ 4185}#)
- (if (eq? #{p\ 4186}# '_)
- '()
- (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\ 352}# #{e\ 4185}#))
- (#{match*\ 4007}#
- #{e\ 4185}#
- #{p\ 4186}#
- '(())
- '()
- #f))))))))))))))
+ #f)
+ (if (eqv? #{atom-key\ 4195}# 'atom)
+ (if (equal?
+ (vector-ref #{p\ 4169}# 1)
+ (#{strip\ 482}#
+ #{e\ 4168}#
+ #{w\ 4170}#))
+ #{r\ 4171}#
+ #f)
+ (if (eqv? #{atom-key\ 4195}# 'vector)
+ (if (vector? #{e\ 4168}#)
+ (#{match\ 4068}#
+ (vector->list #{e\ 4168}#)
+ (vector-ref #{p\ 4169}# 1)
+ #{w\ 4170}#
+ #{r\ 4171}#
+ #{mod\ 4172}#)
+ #f)))))))))))))
+ (#{match\ 4068}#
+ (lambda (#{e\ 4225}#
+ #{p\ 4226}#
+ #{w\ 4227}#
+ #{r\ 4228}#
+ #{mod\ 4229}#)
+ (if (not #{r\ 4228}#)
+ #f
+ (if (eq? #{p\ 4226}# '_)
+ #{r\ 4228}#
+ (if (eq? #{p\ 4226}# 'any)
+ (cons (#{wrap\ 442}#
+ #{e\ 4225}#
+ #{w\ 4227}#
+ #{mod\ 4229}#)
+ #{r\ 4228}#)
+ (if (#{syntax-object?\ 342}# #{e\ 4225}#)
+ (#{match*\ 4066}#
+ (#{syntax-object-expression\ 344}# #{e\ 4225}#)
+ #{p\ 4226}#
+ (#{join-wraps\ 424}#
+ #{w\ 4227}#
+ (#{syntax-object-wrap\ 346}# #{e\ 4225}#))
+ #{r\ 4228}#
+ (#{syntax-object-module\ 348}# #{e\ 4225}#))
+ (#{match*\ 4066}#
+ #{e\ 4225}#
+ #{p\ 4226}#
+ #{w\ 4227}#
+ #{r\ 4228}#
+ #{mod\ 4229}#))))))))
+ (begin
+ (set! $sc-dispatch
+ (lambda (#{e\ 4244}# #{p\ 4245}#)
+ (if (eq? #{p\ 4245}# 'any)
+ (list #{e\ 4244}#)
+ (if (eq? #{p\ 4245}# '_)
+ '()
+ (if (#{syntax-object?\ 342}# #{e\ 4244}#)
+ (#{match*\ 4066}#
+ (#{syntax-object-expression\ 344}# #{e\ 4244}#)
+ #{p\ 4245}#
+ (#{syntax-object-wrap\ 346}# #{e\ 4244}#)
+ '()
+ (#{syntax-object-module\ 348}# #{e\ 4244}#))
+ (#{match*\ 4066}#
+ #{e\ 4244}#
+ #{p\ 4245}#
+ '(())
+ '()
+ #f)))))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x\ 4197}#)
- (let ((#{tmp\ 4199}# #{x\ 4197}#))
- (let ((#{tmp\ 4200}#
+ (lambda (#{x\ 4256}#)
+ (let ((#{tmp\ 4258}# #{x\ 4256}#))
+ (let ((#{tmp\ 4259}#
($sc-dispatch
- #{tmp\ 4199}#
+ #{tmp\ 4258}#
'(_ () any . each-any))))
- (if #{tmp\ 4200}#
+ (if #{tmp\ 4259}#
(@apply
- (lambda (#{e1\ 4203}# #{e2\ 4204}#)
+ (lambda (#{e1\ 4262}# #{e2\ 4263}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4201" "i4202"))
+ #("i4260" "i4261"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4257")))
(hygiene guile))
- (cons '() (cons #{e1\ 4203}# #{e2\ 4204}#))))
- #{tmp\ 4200}#)
- (let ((#{tmp\ 4206}#
+ (cons '() (cons #{e1\ 4262}# #{e2\ 4263}#))))
+ #{tmp\ 4259}#)
+ (let ((#{tmp\ 4265}#
($sc-dispatch
- #{tmp\ 4199}#
+ #{tmp\ 4258}#
'(_ ((any any)) any . each-any))))
- (if #{tmp\ 4206}#
+ (if #{tmp\ 4265}#
(@apply
- (lambda (#{out\ 4211}#
- #{in\ 4212}#
- #{e1\ 4213}#
- #{e2\ 4214}#)
+ (lambda (#{out\ 4270}#
+ #{in\ 4271}#
+ #{e1\ 4272}#
+ #{e2\ 4273}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4207" "i4208" "i4209" "i4210"))
+ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4257")))
(hygiene guile))
- #{in\ 4212}#
+ #{in\ 4271}#
'()
- (list #{out\ 4211}#
+ (list #{out\ 4270}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4207" "i4208" "i4209" "i4210"))
+ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4257")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4213}#
- #{e2\ 4214}#))))))
- #{tmp\ 4206}#)
- (let ((#{tmp\ 4216}#
+ (cons #{e1\ 4272}#
+ #{e2\ 4273}#))))))
+ #{tmp\ 4265}#)
+ (let ((#{tmp\ 4275}#
($sc-dispatch
- #{tmp\ 4199}#
+ #{tmp\ 4258}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp\ 4216}#
+ (if #{tmp\ 4275}#
(@apply
- (lambda (#{out\ 4221}#
- #{in\ 4222}#
- #{e1\ 4223}#
- #{e2\ 4224}#)
+ (lambda (#{out\ 4280}#
+ #{in\ 4281}#
+ #{e1\ 4282}#
+ #{e2\ 4283}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4217" "i4218" "i4219" "i4220"))
+ #("i4276" "i4277" "i4278" "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4257")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -14582,63 +14483,63 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4217" "i4218" "i4219" "i4220"))
+ #("i4276" "i4277" "i4278" "i4279"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4198")))
+ #(ribcage #(x) #((top)) #("i4257")))
(hygiene guile))
- #{in\ 4222}#)
+ #{in\ 4281}#)
'()
- (list #{out\ 4221}#
+ (list #{out\ 4280}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4217"
- "i4218"
- "i4219"
- "i4220"))
+ #("i4276"
+ "i4277"
+ "i4278"
+ "i4279"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4198")))
+ #("i4257")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4223}#
- #{e2\ 4224}#))))))
- #{tmp\ 4216}#)
+ (cons #{e1\ 4282}#
+ #{e2\ 4283}#))))))
+ #{tmp\ 4275}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4199}#)))))))))))
+ #{tmp\ 4258}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x\ 4228}#)
- (let ((#{tmp\ 4230}# #{x\ 4228}#))
- (let ((#{tmp\ 4231}#
+ (lambda (#{x\ 4287}#)
+ (let ((#{tmp\ 4289}# #{x\ 4287}#))
+ (let ((#{tmp\ 4290}#
($sc-dispatch
- #{tmp\ 4230}#
+ #{tmp\ 4289}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp\ 4231}#
+ (if #{tmp\ 4290}#
(@apply
- (lambda (#{k\ 4236}#
- #{keyword\ 4237}#
- #{pattern\ 4238}#
- #{template\ 4239}#)
+ (lambda (#{k\ 4295}#
+ #{keyword\ 4296}#
+ #{pattern\ 4297}#
+ #{template\ 4298}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4291" "i4292" "i4293" "i4294"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
'(#(syntax-object
x
@@ -14646,9 +14547,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4291" "i4292" "i4293" "i4294"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -14657,9 +14558,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4291" "i4292" "i4293" "i4294"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
.
#(syntax-object
@@ -14668,9 +14569,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4291" "i4292" "i4293" "i4294"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14678,20 +14579,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4291" "i4292" "i4293" "i4294"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
- #{pattern\ 4238}#))
+ #{pattern\ 4297}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4291" "i4292" "i4293" "i4294"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14699,13 +14600,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4232" "i4233" "i4234" "i4235"))
+ #("i4291" "i4292" "i4293" "i4294"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
- (cons #{k\ 4236}#
- (map (lambda (#{tmp\ 4243}#
- #{tmp\ 4242}#)
+ (cons #{k\ 4295}#
+ (map (lambda (#{tmp\ 4302}#
+ #{tmp\ 4301}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14718,10 +14619,10 @@
(top)
(top)
(top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235"))
+ #("i4291"
+ "i4292"
+ "i4293"
+ "i4294"))
#(ribcage
()
()
@@ -14729,9 +14630,9 @@
#(ribcage
#(x)
#((top))
- #("i4229")))
+ #("i4288")))
(hygiene guile))
- #{tmp\ 4242}#)
+ #{tmp\ 4301}#)
(list '#(syntax-object
syntax
((top)
@@ -14744,10 +14645,10 @@
(top)
(top)
(top))
- #("i4232"
- "i4233"
- "i4234"
- "i4235"))
+ #("i4291"
+ "i4292"
+ "i4293"
+ "i4294"))
#(ribcage
()
()
@@ -14755,41 +14656,41 @@
#(ribcage
#(x)
#((top))
- #("i4229")))
+ #("i4288")))
(hygiene guile))
- #{tmp\ 4243}#)))
- #{template\ 4239}#
- #{pattern\ 4238}#))))))
- #{tmp\ 4231}#)
- (let ((#{tmp\ 4244}#
+ #{tmp\ 4302}#)))
+ #{template\ 4298}#
+ #{pattern\ 4297}#))))))
+ #{tmp\ 4290}#)
+ (let ((#{tmp\ 4303}#
($sc-dispatch
- #{tmp\ 4230}#
+ #{tmp\ 4289}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp\ 4244}#
+ (if (if #{tmp\ 4303}#
(@apply
- (lambda (#{k\ 4250}#
- #{docstring\ 4251}#
- #{keyword\ 4252}#
- #{pattern\ 4253}#
- #{template\ 4254}#)
- (string? (syntax->datum #{docstring\ 4251}#)))
- #{tmp\ 4244}#)
+ (lambda (#{k\ 4309}#
+ #{docstring\ 4310}#
+ #{keyword\ 4311}#
+ #{pattern\ 4312}#
+ #{template\ 4313}#)
+ (string? (syntax->datum #{docstring\ 4310}#)))
+ #{tmp\ 4303}#)
#f)
(@apply
- (lambda (#{k\ 4260}#
- #{docstring\ 4261}#
- #{keyword\ 4262}#
- #{pattern\ 4263}#
- #{template\ 4264}#)
+ (lambda (#{k\ 4319}#
+ #{docstring\ 4320}#
+ #{keyword\ 4321}#
+ #{pattern\ 4322}#
+ #{template\ 4323}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4314" "i4315" "i4316" "i4317" "i4318"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
'(#(syntax-object
x
@@ -14797,11 +14698,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4314" "i4315" "i4316" "i4317" "i4318"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile)))
- #{docstring\ 4261}#
+ #{docstring\ 4320}#
(vector
'(#(syntax-object
macro-type
@@ -14809,9 +14710,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4314" "i4315" "i4316" "i4317" "i4318"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
.
#(syntax-object
@@ -14820,9 +14721,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255" "i4256" "i4257" "i4258" "i4259"))
+ #("i4314" "i4315" "i4316" "i4317" "i4318"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14830,28 +14731,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4314"
+ "i4315"
+ "i4316"
+ "i4317"
+ "i4318"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
- #{pattern\ 4263}#))
+ #{pattern\ 4322}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4314"
+ "i4315"
+ "i4316"
+ "i4317"
+ "i4318"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14863,17 +14764,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4314"
+ "i4315"
+ "i4316"
+ "i4317"
+ "i4318"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4229")))
+ #(ribcage #(x) #((top)) #("i4288")))
(hygiene guile))
- (cons #{k\ 4260}#
- (map (lambda (#{tmp\ 4268}#
- #{tmp\ 4267}#)
+ (cons #{k\ 4319}#
+ (map (lambda (#{tmp\ 4327}#
+ #{tmp\ 4326}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14888,11 +14789,11 @@
(top)
(top)
(top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4314"
+ "i4315"
+ "i4316"
+ "i4317"
+ "i4318"))
#(ribcage
()
()
@@ -14900,10 +14801,10 @@
#(ribcage
#(x)
#((top))
- #("i4229")))
+ #("i4288")))
(hygiene
guile))
- #{tmp\ 4267}#)
+ #{tmp\ 4326}#)
(list '#(syntax-object
syntax
((top)
@@ -14918,11 +14819,11 @@
(top)
(top)
(top))
- #("i4255"
- "i4256"
- "i4257"
- "i4258"
- "i4259"))
+ #("i4314"
+ "i4315"
+ "i4316"
+ "i4317"
+ "i4318"))
#(ribcage
()
()
@@ -14930,48 +14831,48 @@
#(ribcage
#(x)
#((top))
- #("i4229")))
+ #("i4288")))
(hygiene
guile))
- #{tmp\ 4268}#)))
- #{template\ 4264}#
- #{pattern\ 4263}#))))))
- #{tmp\ 4244}#)
+ #{tmp\ 4327}#)))
+ #{template\ 4323}#
+ #{pattern\ 4322}#))))))
+ #{tmp\ 4303}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4230}#)))))))))
+ #{tmp\ 4289}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x\ 4269}#)
- (let ((#{tmp\ 4271}# #{x\ 4269}#))
- (let ((#{tmp\ 4272}#
+ (lambda (#{x\ 4328}#)
+ (let ((#{tmp\ 4330}# #{x\ 4328}#))
+ (let ((#{tmp\ 4331}#
($sc-dispatch
- #{tmp\ 4271}#
+ #{tmp\ 4330}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp\ 4272}#
+ (if (if #{tmp\ 4331}#
(@apply
- (lambda (#{let*\ 4278}#
- #{x\ 4279}#
- #{v\ 4280}#
- #{e1\ 4281}#
- #{e2\ 4282}#)
- (and-map identifier? #{x\ 4279}#))
- #{tmp\ 4272}#)
+ (lambda (#{let*\ 4337}#
+ #{x\ 4338}#
+ #{v\ 4339}#
+ #{e1\ 4340}#
+ #{e2\ 4341}#)
+ (and-map identifier? #{x\ 4338}#))
+ #{tmp\ 4331}#)
#f)
(@apply
- (lambda (#{let*\ 4289}#
- #{x\ 4290}#
- #{v\ 4291}#
- #{e1\ 4292}#
- #{e2\ 4293}#)
+ (lambda (#{let*\ 4348}#
+ #{x\ 4349}#
+ #{v\ 4350}#
+ #{e1\ 4351}#
+ #{e2\ 4352}#)
(letrec*
- ((#{f\ 4296}#
- (lambda (#{bindings\ 4297}#)
- (if (null? #{bindings\ 4297}#)
+ ((#{f\ 4355}#
+ (lambda (#{bindings\ 4356}#)
+ (if (null? #{bindings\ 4356}#)
(cons '#(syntax-object
let
((top)
@@ -14979,27 +14880,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4294" "i4295"))
+ #("i4353" "i4354"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"))
+ #("i4343"
+ "i4344"
+ "i4345"
+ "i4346"
+ "i4347"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4270")))
+ #(ribcage #(x) #((top)) #("i4329")))
(hygiene guile))
- (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}#
+ (cons '() (cons #{e1\ 4351}# #{e2\ 4352}#)))
+ (let ((#{tmp\ 4361}#
+ (list (#{f\ 4355}# (cdr #{bindings\ 4356}#))
+ (car #{bindings\ 4356}#))))
+ (let ((#{tmp\ 4362}#
+ ($sc-dispatch #{tmp\ 4361}# '(any any))))
+ (if #{tmp\ 4362}#
(@apply
- (lambda (#{body\ 4306}# #{binding\ 4307}#)
+ (lambda (#{body\ 4365}# #{binding\ 4366}#)
(list '#(syntax-object
let
((top)
@@ -15007,96 +14908,96 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i4304" "i4305"))
+ #("i4363" "i4364"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4294" "i4295"))
+ #("i4353" "i4354"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4284"
- "i4285"
- "i4286"
- "i4287"
- "i4288"))
+ #("i4343"
+ "i4344"
+ "i4345"
+ "i4346"
+ "i4347"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4270")))
+ #("i4329")))
(hygiene guile))
- (list #{binding\ 4307}#)
- #{body\ 4306}#))
- #{tmp\ 4303}#)
+ (list #{binding\ 4366}#)
+ #{body\ 4365}#))
+ #{tmp\ 4362}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4302}#))))))))
+ #{tmp\ 4361}#))))))))
(begin
- (#{f\ 4296}# (map list #{x\ 4290}# #{v\ 4291}#)))))
- #{tmp\ 4272}#)
+ (#{f\ 4355}# (map list #{x\ 4349}# #{v\ 4350}#)))))
+ #{tmp\ 4331}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4271}#)))))))
+ #{tmp\ 4330}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x\ 4308}#)
- (let ((#{tmp\ 4310}# #{orig-x\ 4308}#))
- (let ((#{tmp\ 4311}#
+ (lambda (#{orig-x\ 4367}#)
+ (let ((#{tmp\ 4369}# #{orig-x\ 4367}#))
+ (let ((#{tmp\ 4370}#
($sc-dispatch
- #{tmp\ 4310}#
+ #{tmp\ 4369}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp\ 4311}#
+ (if #{tmp\ 4370}#
(@apply
- (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}#
+ (lambda (#{var\ 4377}#
+ #{init\ 4378}#
+ #{step\ 4379}#
+ #{e0\ 4380}#
+ #{e1\ 4381}#
+ #{c\ 4382}#)
+ (let ((#{tmp\ 4384}#
+ (map (lambda (#{v\ 4405}# #{s\ 4406}#)
+ (let ((#{tmp\ 4409}# #{s\ 4406}#))
+ (let ((#{tmp\ 4410}#
+ ($sc-dispatch #{tmp\ 4409}# '())))
+ (if #{tmp\ 4410}#
(@apply
- (lambda () #{v\ 4346}#)
- #{tmp\ 4351}#)
- (let ((#{tmp\ 4352}#
+ (lambda () #{v\ 4405}#)
+ #{tmp\ 4410}#)
+ (let ((#{tmp\ 4411}#
($sc-dispatch
- #{tmp\ 4350}#
+ #{tmp\ 4409}#
'(any))))
- (if #{tmp\ 4352}#
+ (if #{tmp\ 4411}#
(@apply
- (lambda (#{e\ 4354}#) #{e\ 4354}#)
- #{tmp\ 4352}#)
- (let ((#{_\ 4356}# #{tmp\ 4350}#))
+ (lambda (#{e\ 4413}#) #{e\ 4413}#)
+ #{tmp\ 4411}#)
+ (let ((#{_\ 4415}# #{tmp\ 4409}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4308}#
- #{s\ 4347}#))))))))
- #{var\ 4318}#
- #{step\ 4320}#)))
- (let ((#{tmp\ 4326}#
- ($sc-dispatch #{tmp\ 4325}# 'each-any)))
- (if #{tmp\ 4326}#
+ #{orig-x\ 4367}#
+ #{s\ 4406}#))))))))
+ #{var\ 4377}#
+ #{step\ 4379}#)))
+ (let ((#{tmp\ 4385}#
+ ($sc-dispatch #{tmp\ 4384}# 'each-any)))
+ (if #{tmp\ 4385}#
(@apply
- (lambda (#{step\ 4328}#)
- (let ((#{tmp\ 4329}# #{e1\ 4322}#))
- (let ((#{tmp\ 4330}#
- ($sc-dispatch #{tmp\ 4329}# '())))
- (if #{tmp\ 4330}#
+ (lambda (#{step\ 4387}#)
+ (let ((#{tmp\ 4388}# #{e1\ 4381}#))
+ (let ((#{tmp\ 4389}#
+ ($sc-dispatch #{tmp\ 4388}# '())))
+ (if #{tmp\ 4389}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -15106,7 +15007,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15115,17 +15016,17 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15134,7 +15035,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15143,21 +15044,21 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
(map list
- #{var\ 4318}#
- #{init\ 4319}#)
+ #{var\ 4377}#
+ #{init\ 4378}#)
(list '#(syntax-object
if
((top)
@@ -15165,7 +15066,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15174,17 +15075,17 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
(list '#(syntax-object
not
@@ -15193,7 +15094,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var
init
@@ -15207,19 +15108,19 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
- #{e0\ 4321}#)
+ #{e0\ 4380}#)
(cons '#(syntax-object
begin
((top)
@@ -15227,7 +15128,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var
init
@@ -15241,20 +15142,20 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
(append
- #{c\ 4323}#
+ #{c\ 4382}#
(list (cons '#(syntax-object
doloop
((top)
@@ -15265,7 +15166,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var
init
@@ -15279,12 +15180,12 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage
()
()
@@ -15292,30 +15193,30 @@
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene
guile))
- #{step\ 4328}#)))))))
- #{tmp\ 4330}#)
- (let ((#{tmp\ 4335}#
+ #{step\ 4387}#)))))))
+ #{tmp\ 4389}#)
+ (let ((#{tmp\ 4394}#
($sc-dispatch
- #{tmp\ 4329}#
+ #{tmp\ 4388}#
'(any . each-any))))
- (if #{tmp\ 4335}#
+ (if #{tmp\ 4394}#
(@apply
- (lambda (#{e1\ 4338}# #{e2\ 4339}#)
+ (lambda (#{e1\ 4397}# #{e2\ 4398}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336" "i4337"))
+ #("i4395" "i4396"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15324,17 +15225,17 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15342,12 +15243,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336" "i4337"))
+ #("i4395" "i4396"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15356,33 +15257,33 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
(map list
- #{var\ 4318}#
- #{init\ 4319}#)
+ #{var\ 4377}#
+ #{init\ 4378}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336" "i4337"))
+ #("i4395" "i4396"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var
init
@@ -15396,27 +15297,27 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
- #{e0\ 4321}#
+ #{e0\ 4380}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336"
- "i4337"))
+ #("i4395"
+ "i4396"))
#(ribcage
()
()
@@ -15424,7 +15325,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var
init
@@ -15438,12 +15339,12 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage
()
()
@@ -15451,18 +15352,18 @@
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
- (cons #{e1\ 4338}#
- #{e2\ 4339}#))
+ (cons #{e1\ 4397}#
+ #{e2\ 4398}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4336"
- "i4337"))
+ #("i4395"
+ "i4396"))
#(ribcage
()
()
@@ -15470,7 +15371,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var
init
@@ -15484,12 +15385,12 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage
()
()
@@ -15497,10 +15398,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene guile))
(append
- #{c\ 4323}#
+ #{c\ 4382}#
(list (cons '#(syntax-object
doloop
((top)
@@ -15509,8 +15410,8 @@
e2)
#((top)
(top))
- #("i4336"
- "i4337"))
+ #("i4395"
+ "i4396"))
#(ribcage
()
()
@@ -15518,7 +15419,7 @@
#(ribcage
#(step)
#((top))
- #("i4327"))
+ #("i4386"))
#(ribcage
#(var
init
@@ -15532,12 +15433,12 @@
(top)
(top)
(top))
- #("i4312"
- "i4313"
- "i4314"
- "i4315"
- "i4316"
- "i4317"))
+ #("i4371"
+ "i4372"
+ "i4373"
+ "i4374"
+ "i4375"
+ "i4376"))
#(ribcage
()
()
@@ -15545,37 +15446,37 @@
#(ribcage
#(orig-x)
#((top))
- #("i4309")))
+ #("i4368")))
(hygiene
guile))
- #{step\ 4328}#)))))))
- #{tmp\ 4335}#)
+ #{step\ 4387}#)))))))
+ #{tmp\ 4394}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4329}#)))))))
- #{tmp\ 4326}#)
+ #{tmp\ 4388}#)))))))
+ #{tmp\ 4385}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4325}#)))))
- #{tmp\ 4311}#)
+ #{tmp\ 4384}#)))))
+ #{tmp\ 4370}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4310}#)))))))
+ #{tmp\ 4369}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi\ 4360}#
- (lambda (#{p\ 4373}# #{lev\ 4374}#)
- (let ((#{tmp\ 4377}# #{p\ 4373}#))
- (let ((#{tmp\ 4378}#
+ ((#{quasi\ 4419}#
+ (lambda (#{p\ 4432}# #{lev\ 4433}#)
+ (let ((#{tmp\ 4436}# #{p\ 4432}#))
+ (let ((#{tmp\ 4437}#
($sc-dispatch
- #{tmp\ 4377}#
+ #{tmp\ 4436}#
'(#(free-id
#(syntax-object
unquote
@@ -15584,7 +15485,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15593,28 +15494,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
any))))
- (if #{tmp\ 4378}#
+ (if #{tmp\ 4437}#
(@apply
- (lambda (#{p\ 4380}#)
- (if (= #{lev\ 4374}# 0)
+ (lambda (#{p\ 4439}#)
+ (if (= #{lev\ 4433}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i4379"))
+ #(ribcage #(p) #((top)) #("i4438"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15623,25 +15524,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{p\ 4380}#)
- (#{quasicons\ 4364}#
+ #{p\ 4439}#)
+ (#{quasicons\ 4423}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4379"))
+ #(ribcage #(p) #((top)) #("i4438"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15650,23 +15551,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4379"))
+ #(ribcage #(p) #((top)) #("i4438"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15675,21 +15576,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
- (#{quasi\ 4360}#
- (list #{p\ 4380}#)
- (1- #{lev\ 4374}#)))))
- #{tmp\ 4378}#)
- (let ((#{tmp\ 4381}#
+ (#{quasi\ 4419}#
+ (list #{p\ 4439}#)
+ (1- #{lev\ 4433}#)))))
+ #{tmp\ 4437}#)
+ (let ((#{tmp\ 4440}#
($sc-dispatch
- #{tmp\ 4377}#
+ #{tmp\ 4436}#
'(#(free-id
#(syntax-object
quasiquote
@@ -15698,7 +15599,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15707,28 +15608,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
any))))
- (if #{tmp\ 4381}#
+ (if #{tmp\ 4440}#
(@apply
- (lambda (#{p\ 4383}#)
- (#{quasicons\ 4364}#
+ (lambda (#{p\ 4442}#)
+ (#{quasicons\ 4423}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4382"))
+ #(ribcage #(p) #((top)) #("i4441"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15737,23 +15638,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4382"))
+ #(ribcage #(p) #((top)) #("i4441"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15762,27 +15663,27 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
- (#{quasi\ 4360}#
- (list #{p\ 4383}#)
- (1+ #{lev\ 4374}#))))
- #{tmp\ 4381}#)
- (let ((#{tmp\ 4384}#
- ($sc-dispatch #{tmp\ 4377}# '(any . any))))
- (if #{tmp\ 4384}#
+ (#{quasi\ 4419}#
+ (list #{p\ 4442}#)
+ (1+ #{lev\ 4433}#))))
+ #{tmp\ 4440}#)
+ (let ((#{tmp\ 4443}#
+ ($sc-dispatch #{tmp\ 4436}# '(any . any))))
+ (if #{tmp\ 4443}#
(@apply
- (lambda (#{p\ 4387}# #{q\ 4388}#)
- (let ((#{tmp\ 4389}# #{p\ 4387}#))
- (let ((#{tmp\ 4390}#
+ (lambda (#{p\ 4446}# #{q\ 4447}#)
+ (let ((#{tmp\ 4448}# #{p\ 4446}#))
+ (let ((#{tmp\ 4449}#
($sc-dispatch
- #{tmp\ 4389}#
+ #{tmp\ 4448}#
'(#(free-id
#(syntax-object
unquote
@@ -15790,12 +15691,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4385" "i4386"))
+ #("i4444" "i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15810,40 +15711,40 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4390}#
+ (if #{tmp\ 4449}#
(@apply
- (lambda (#{p\ 4392}#)
- (if (= #{lev\ 4374}# 0)
- (#{quasilist*\ 4368}#
- (map (lambda (#{tmp\ 4393}#)
+ (lambda (#{p\ 4451}#)
+ (if (= #{lev\ 4433}# 0)
+ (#{quasilist*\ 4427}#
+ (map (lambda (#{tmp\ 4452}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4391"))
+ #("i4450"))
#(ribcage
#(p q)
#((top) (top))
- #("i4385"
- "i4386"))
+ #("i4444"
+ "i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375"
- "i4376"))
+ #("i4434"
+ "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15858,37 +15759,37 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{tmp\ 4393}#))
- #{p\ 4392}#)
- (#{quasi\ 4360}#
- #{q\ 4388}#
- #{lev\ 4374}#))
- (#{quasicons\ 4364}#
- (#{quasicons\ 4364}#
+ #{tmp\ 4452}#))
+ #{p\ 4451}#)
+ (#{quasi\ 4419}#
+ #{q\ 4447}#
+ #{lev\ 4433}#))
+ (#{quasicons\ 4423}#
+ (#{quasicons\ 4423}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4391"))
+ #("i4450"))
#(ribcage
#(p q)
#((top) (top))
- #("i4385" "i4386"))
+ #("i4444" "i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15903,13 +15804,13 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
#(syntax-object
unquote
@@ -15917,16 +15818,16 @@
#(ribcage
#(p)
#((top))
- #("i4391"))
+ #("i4450"))
#(ribcage
#(p q)
#((top) (top))
- #("i4385" "i4386"))
+ #("i4444" "i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15941,24 +15842,24 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
- (#{quasi\ 4360}#
- #{p\ 4392}#
- (1- #{lev\ 4374}#)))
- (#{quasi\ 4360}#
- #{q\ 4388}#
- #{lev\ 4374}#))))
- #{tmp\ 4390}#)
- (let ((#{tmp\ 4395}#
+ (#{quasi\ 4419}#
+ #{p\ 4451}#
+ (1- #{lev\ 4433}#)))
+ (#{quasi\ 4419}#
+ #{q\ 4447}#
+ #{lev\ 4433}#))))
+ #{tmp\ 4449}#)
+ (let ((#{tmp\ 4454}#
($sc-dispatch
- #{tmp\ 4389}#
+ #{tmp\ 4448}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -15966,12 +15867,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4385" "i4386"))
+ #("i4444" "i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -15986,35 +15887,35 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4395}#
+ (if #{tmp\ 4454}#
(@apply
- (lambda (#{p\ 4397}#)
- (if (= #{lev\ 4374}# 0)
- (#{quasiappend\ 4366}#
- (map (lambda (#{tmp\ 4398}#)
+ (lambda (#{p\ 4456}#)
+ (if (= #{lev\ 4433}# 0)
+ (#{quasiappend\ 4425}#
+ (map (lambda (#{tmp\ 4457}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4396"))
+ #("i4455"))
#(ribcage
#(p q)
#((top)
(top))
- #("i4385"
- "i4386"))
+ #("i4444"
+ "i4445"))
#(ribcage
()
()
@@ -16023,8 +15924,8 @@
#(p lev)
#((top)
(top))
- #("i4375"
- "i4376"))
+ #("i4434"
+ "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -16039,37 +15940,37 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{tmp\ 4398}#))
- #{p\ 4397}#)
- (#{quasi\ 4360}#
- #{q\ 4388}#
- #{lev\ 4374}#))
- (#{quasicons\ 4364}#
- (#{quasicons\ 4364}#
+ #{tmp\ 4457}#))
+ #{p\ 4456}#)
+ (#{quasi\ 4419}#
+ #{q\ 4447}#
+ #{lev\ 4433}#))
+ (#{quasicons\ 4423}#
+ (#{quasicons\ 4423}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4396"))
+ #("i4455"))
#(ribcage
#(p q)
#((top) (top))
- #("i4385" "i4386"))
+ #("i4444" "i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -16084,13 +15985,13 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -16098,16 +15999,16 @@
#(ribcage
#(p)
#((top))
- #("i4396"))
+ #("i4455"))
#(ribcage
#(p q)
#((top) (top))
- #("i4385" "i4386"))
+ #("i4444" "i4445"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -16122,52 +16023,52 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
- (#{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}#
+ (#{quasi\ 4419}#
+ #{p\ 4456}#
+ (1- #{lev\ 4433}#)))
+ (#{quasi\ 4419}#
+ #{q\ 4447}#
+ #{lev\ 4433}#))))
+ #{tmp\ 4454}#)
+ (let ((#{_\ 4460}# #{tmp\ 4448}#))
+ (#{quasicons\ 4423}#
+ (#{quasi\ 4419}#
+ #{p\ 4446}#
+ #{lev\ 4433}#)
+ (#{quasi\ 4419}#
+ #{q\ 4447}#
+ #{lev\ 4433}#)))))))))
+ #{tmp\ 4443}#)
+ (let ((#{tmp\ 4461}#
($sc-dispatch
- #{tmp\ 4377}#
+ #{tmp\ 4436}#
'#(vector each-any))))
- (if #{tmp\ 4402}#
+ (if #{tmp\ 4461}#
(@apply
- (lambda (#{x\ 4404}#)
- (#{quasivector\ 4370}#
- (#{vquasi\ 4362}#
- #{x\ 4404}#
- #{lev\ 4374}#)))
- #{tmp\ 4402}#)
- (let ((#{p\ 4407}# #{tmp\ 4377}#))
+ (lambda (#{x\ 4463}#)
+ (#{quasivector\ 4429}#
+ (#{vquasi\ 4421}#
+ #{x\ 4463}#
+ #{lev\ 4433}#)))
+ #{tmp\ 4461}#)
+ (let ((#{p\ 4466}# #{tmp\ 4436}#))
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4406"))
+ #(ribcage #(p) #((top)) #("i4465"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4375" "i4376"))
+ #("i4434" "i4435"))
#(ribcage
(emit quasivector
quasilist*
@@ -16182,27 +16083,27 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{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}#
+ #{p\ 4466}#)))))))))))))
+ (#{vquasi\ 4421}#
+ (lambda (#{p\ 4467}# #{lev\ 4468}#)
+ (let ((#{tmp\ 4471}# #{p\ 4467}#))
+ (let ((#{tmp\ 4472}#
+ ($sc-dispatch #{tmp\ 4471}# '(any . any))))
+ (if #{tmp\ 4472}#
(@apply
- (lambda (#{p\ 4416}# #{q\ 4417}#)
- (let ((#{tmp\ 4418}# #{p\ 4416}#))
- (let ((#{tmp\ 4419}#
+ (lambda (#{p\ 4475}# #{q\ 4476}#)
+ (let ((#{tmp\ 4477}# #{p\ 4475}#))
+ (let ((#{tmp\ 4478}#
($sc-dispatch
- #{tmp\ 4418}#
+ #{tmp\ 4477}#
'(#(free-id
#(syntax-object
unquote
@@ -16210,12 +16111,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16230,38 +16131,38 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4419}#
+ (if #{tmp\ 4478}#
(@apply
- (lambda (#{p\ 4421}#)
- (if (= #{lev\ 4409}# 0)
- (#{quasilist*\ 4368}#
- (map (lambda (#{tmp\ 4422}#)
+ (lambda (#{p\ 4480}#)
+ (if (= #{lev\ 4468}# 0)
+ (#{quasilist*\ 4427}#
+ (map (lambda (#{tmp\ 4481}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4420"))
+ #("i4479"))
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16276,34 +16177,34 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{tmp\ 4422}#))
- #{p\ 4421}#)
- (#{vquasi\ 4362}#
- #{q\ 4417}#
- #{lev\ 4409}#))
- (#{quasicons\ 4364}#
- (#{quasicons\ 4364}#
+ #{tmp\ 4481}#))
+ #{p\ 4480}#)
+ (#{vquasi\ 4421}#
+ #{q\ 4476}#
+ #{lev\ 4468}#))
+ (#{quasicons\ 4423}#
+ (#{quasicons\ 4423}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4420"))
+ #(ribcage #(p) #((top)) #("i4479"))
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16318,27 +16219,27 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4420"))
+ #(ribcage #(p) #((top)) #("i4479"))
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16353,24 +16254,24 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
- (#{quasi\ 4360}#
- #{p\ 4421}#
- (1- #{lev\ 4409}#)))
- (#{vquasi\ 4362}#
- #{q\ 4417}#
- #{lev\ 4409}#))))
- #{tmp\ 4419}#)
- (let ((#{tmp\ 4424}#
+ (#{quasi\ 4419}#
+ #{p\ 4480}#
+ (1- #{lev\ 4468}#)))
+ (#{vquasi\ 4421}#
+ #{q\ 4476}#
+ #{lev\ 4468}#))))
+ #{tmp\ 4478}#)
+ (let ((#{tmp\ 4483}#
($sc-dispatch
- #{tmp\ 4418}#
+ #{tmp\ 4477}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -16378,12 +16279,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16398,38 +16299,38 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
.
each-any))))
- (if #{tmp\ 4424}#
+ (if #{tmp\ 4483}#
(@apply
- (lambda (#{p\ 4426}#)
- (if (= #{lev\ 4409}# 0)
- (#{quasiappend\ 4366}#
- (map (lambda (#{tmp\ 4427}#)
+ (lambda (#{p\ 4485}#)
+ (if (= #{lev\ 4468}# 0)
+ (#{quasiappend\ 4425}#
+ (map (lambda (#{tmp\ 4486}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4425"))
+ #("i4484"))
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16444,37 +16345,37 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{tmp\ 4427}#))
- #{p\ 4426}#)
- (#{vquasi\ 4362}#
- #{q\ 4417}#
- #{lev\ 4409}#))
- (#{quasicons\ 4364}#
- (#{quasicons\ 4364}#
+ #{tmp\ 4486}#))
+ #{p\ 4485}#)
+ (#{vquasi\ 4421}#
+ #{q\ 4476}#
+ #{lev\ 4468}#))
+ (#{quasicons\ 4423}#
+ (#{quasicons\ 4423}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4425"))
+ #("i4484"))
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16489,13 +16390,13 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -16503,16 +16404,16 @@
#(ribcage
#(p)
#((top))
- #("i4425"))
+ #("i4484"))
#(ribcage
#(p q)
#((top) (top))
- #("i4414" "i4415"))
+ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16527,30 +16428,30 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile)))
- (#{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}#
+ (#{quasi\ 4419}#
+ #{p\ 4485}#
+ (1- #{lev\ 4468}#)))
+ (#{vquasi\ 4421}#
+ #{q\ 4476}#
+ #{lev\ 4468}#))))
+ #{tmp\ 4483}#)
+ (let ((#{_\ 4489}# #{tmp\ 4477}#))
+ (#{quasicons\ 4423}#
+ (#{quasi\ 4419}# #{p\ 4475}# #{lev\ 4468}#)
+ (#{vquasi\ 4421}#
+ #{q\ 4476}#
+ #{lev\ 4468}#)))))))))
+ #{tmp\ 4472}#)
+ (let ((#{tmp\ 4490}# ($sc-dispatch #{tmp\ 4471}# '())))
+ (if #{tmp\ 4490}#
(@apply
(lambda ()
'(#(syntax-object
@@ -16560,7 +16461,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4410" "i4411"))
+ #("i4469" "i4470"))
#(ribcage
(emit quasivector
quasilist*
@@ -16569,66 +16470,66 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
()))
- #{tmp\ 4431}#)
+ #{tmp\ 4490}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{tmp\ 4471}#))))))))
+ (#{quasicons\ 4423}#
+ (lambda (#{x\ 4491}# #{y\ 4492}#)
+ (let ((#{tmp\ 4496}# (list #{x\ 4491}# #{y\ 4492}#)))
+ (let ((#{tmp\ 4497}#
+ ($sc-dispatch #{tmp\ 4496}# '(any any))))
+ (if #{tmp\ 4497}#
(@apply
- (lambda (#{x\ 4441}# #{y\ 4442}#)
- (let ((#{tmp\ 4443}# #{y\ 4442}#))
- (let ((#{tmp\ 4444}#
+ (lambda (#{x\ 4500}# #{y\ 4501}#)
+ (let ((#{tmp\ 4502}# #{y\ 4501}#))
+ (let ((#{tmp\ 4503}#
($sc-dispatch
- #{tmp\ 4443}#
+ #{tmp\ 4502}#
'(#(atom "quote") any))))
- (if #{tmp\ 4444}#
+ (if #{tmp\ 4503}#
(@apply
- (lambda (#{dy\ 4446}#)
- (let ((#{tmp\ 4447}# #{x\ 4441}#))
- (let ((#{tmp\ 4448}#
+ (lambda (#{dy\ 4505}#)
+ (let ((#{tmp\ 4506}# #{x\ 4500}#))
+ (let ((#{tmp\ 4507}#
($sc-dispatch
- #{tmp\ 4447}#
+ #{tmp\ 4506}#
'(#(atom "quote") any))))
- (if #{tmp\ 4448}#
+ (if #{tmp\ 4507}#
(@apply
- (lambda (#{dx\ 4450}#)
+ (lambda (#{dx\ 4509}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i4449"))
+ #("i4508"))
#(ribcage
#(dy)
#((top))
- #("i4445"))
+ #("i4504"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4498" "i4499"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4493" "i4494"))
#(ribcage
(emit quasivector
quasilist*
@@ -16643,41 +16544,41 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- (cons #{dx\ 4450}#
- #{dy\ 4446}#)))
- #{tmp\ 4448}#)
- (let ((#{_\ 4452}# #{tmp\ 4447}#))
- (if (null? #{dy\ 4446}#)
+ (cons #{dx\ 4509}#
+ #{dy\ 4505}#)))
+ #{tmp\ 4507}#)
+ (let ((#{_\ 4511}# #{tmp\ 4506}#))
+ (if (null? #{dy\ 4505}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i4451"))
+ #("i4510"))
#(ribcage
#(dy)
#((top))
- #("i4445"))
+ #("i4504"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4498" "i4499"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4493" "i4494"))
#(ribcage
(emit quasivector
quasilist*
@@ -16692,37 +16593,37 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{x\ 4441}#)
+ #{x\ 4500}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4451"))
+ #("i4510"))
#(ribcage
#(dy)
#((top))
- #("i4445"))
+ #("i4504"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4498" "i4499"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4493" "i4494"))
#(ribcage
(emit quasivector
quasilist*
@@ -16737,42 +16638,42 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{x\ 4441}#
- #{y\ 4442}#)))))))
- #{tmp\ 4444}#)
- (let ((#{tmp\ 4453}#
+ #{x\ 4500}#
+ #{y\ 4501}#)))))))
+ #{tmp\ 4503}#)
+ (let ((#{tmp\ 4512}#
($sc-dispatch
- #{tmp\ 4443}#
+ #{tmp\ 4502}#
'(#(atom "list") . any))))
- (if #{tmp\ 4453}#
+ (if #{tmp\ 4512}#
(@apply
- (lambda (#{stuff\ 4455}#)
+ (lambda (#{stuff\ 4514}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4454"))
+ #("i4513"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4498" "i4499"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4493" "i4494"))
#(ribcage
(emit quasivector
quasilist*
@@ -16787,41 +16688,41 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- (cons #{x\ 4441}# #{stuff\ 4455}#)))
- #{tmp\ 4453}#)
- (let ((#{tmp\ 4456}#
+ (cons #{x\ 4500}# #{stuff\ 4514}#)))
+ #{tmp\ 4512}#)
+ (let ((#{tmp\ 4515}#
($sc-dispatch
- #{tmp\ 4443}#
+ #{tmp\ 4502}#
'(#(atom "list*") . any))))
- (if #{tmp\ 4456}#
+ (if #{tmp\ 4515}#
(@apply
- (lambda (#{stuff\ 4458}#)
+ (lambda (#{stuff\ 4517}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4457"))
+ #("i4516"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4498" "i4499"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4493" "i4494"))
#(ribcage
(emit quasivector
quasilist*
@@ -16836,36 +16737,36 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- (cons #{x\ 4441}#
- #{stuff\ 4458}#)))
- #{tmp\ 4456}#)
- (let ((#{_\ 4460}# #{tmp\ 4443}#))
+ (cons #{x\ 4500}#
+ #{stuff\ 4517}#)))
+ #{tmp\ 4515}#)
+ (let ((#{_\ 4519}# #{tmp\ 4502}#))
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4459"))
+ #("i4518"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4439" "i4440"))
+ #("i4498" "i4499"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4434" "i4435"))
+ #("i4493" "i4494"))
#(ribcage
(emit quasivector
quasilist*
@@ -16880,32 +16781,32 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{x\ 4441}#
- #{y\ 4442}#))))))))))
- #{tmp\ 4438}#)
+ #{x\ 4500}#
+ #{y\ 4501}#))))))))))
+ #{tmp\ 4497}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4437}#))))))
- (#{quasiappend\ 4366}#
- (lambda (#{x\ 4461}# #{y\ 4462}#)
- (let ((#{tmp\ 4465}# #{y\ 4462}#))
- (let ((#{tmp\ 4466}#
+ #{tmp\ 4496}#))))))
+ (#{quasiappend\ 4425}#
+ (lambda (#{x\ 4520}# #{y\ 4521}#)
+ (let ((#{tmp\ 4524}# #{y\ 4521}#))
+ (let ((#{tmp\ 4525}#
($sc-dispatch
- #{tmp\ 4465}#
+ #{tmp\ 4524}#
'(#(atom "quote") ()))))
- (if #{tmp\ 4466}#
+ (if #{tmp\ 4525}#
(@apply
(lambda ()
- (if (null? #{x\ 4461}#)
+ (if (null? #{x\ 4520}#)
'(#(syntax-object
"quote"
((top)
@@ -16913,7 +16814,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4463" "i4464"))
+ #("i4522" "i4523"))
#(ribcage
(emit quasivector
quasilist*
@@ -16922,23 +16823,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
())
- (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}#
+ (if (null? (cdr #{x\ 4520}#))
+ (car #{x\ 4520}#)
+ (let ((#{tmp\ 4532}# #{x\ 4520}#))
+ (let ((#{tmp\ 4533}#
+ ($sc-dispatch #{tmp\ 4532}# 'each-any)))
+ (if #{tmp\ 4533}#
(@apply
- (lambda (#{p\ 4476}#)
+ (lambda (#{p\ 4535}#)
(cons '#(syntax-object
"append"
((top)
@@ -16946,12 +16847,12 @@
#(ribcage
#(p)
#((top))
- #("i4475"))
+ #("i4534"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4463" "i4464"))
+ #("i4522" "i4523"))
#(ribcage
(emit quasivector
quasilist*
@@ -16966,30 +16867,30 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{p\ 4476}#))
- #{tmp\ 4474}#)
+ #{p\ 4535}#))
+ #{tmp\ 4533}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{tmp\ 4532}#)))))))
+ #{tmp\ 4525}#)
+ (let ((#{_\ 4538}# #{tmp\ 4524}#))
+ (if (null? #{x\ 4520}#)
+ #{y\ 4521}#
+ (let ((#{tmp\ 4543}# (list #{x\ 4520}# #{y\ 4521}#)))
+ (let ((#{tmp\ 4544}#
+ ($sc-dispatch #{tmp\ 4543}# '(each-any any))))
+ (if #{tmp\ 4544}#
(@apply
- (lambda (#{p\ 4488}# #{y\ 4489}#)
+ (lambda (#{p\ 4547}# #{y\ 4548}#)
(cons '#(syntax-object
"append"
((top)
@@ -16997,13 +16898,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i4486" "i4487"))
- #(ribcage #(_) #((top)) #("i4478"))
+ #("i4545" "i4546"))
+ #(ribcage #(_) #((top)) #("i4537"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4463" "i4464"))
+ #("i4522" "i4523"))
#(ribcage
(emit quasivector
quasilist*
@@ -17018,47 +16919,47 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- (append #{p\ 4488}# (list #{y\ 4489}#))))
- #{tmp\ 4485}#)
+ (append #{p\ 4547}# (list #{y\ 4548}#))))
+ #{tmp\ 4544}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4484}#)))))))))))
- (#{quasilist*\ 4368}#
- (lambda (#{x\ 4491}# #{y\ 4492}#)
+ #{tmp\ 4543}#)))))))))))
+ (#{quasilist*\ 4427}#
+ (lambda (#{x\ 4550}# #{y\ 4551}#)
(letrec*
- ((#{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}#
+ ((#{f\ 4556}#
+ (lambda (#{x\ 4557}#)
+ (if (null? #{x\ 4557}#)
+ #{y\ 4551}#
+ (#{quasicons\ 4423}#
+ (car #{x\ 4557}#)
+ (#{f\ 4556}# (cdr #{x\ 4557}#)))))))
+ (begin (#{f\ 4556}# #{x\ 4550}#)))))
+ (#{quasivector\ 4429}#
+ (lambda (#{x\ 4558}#)
+ (let ((#{tmp\ 4560}# #{x\ 4558}#))
+ (let ((#{tmp\ 4561}#
($sc-dispatch
- #{tmp\ 4501}#
+ #{tmp\ 4560}#
'(#(atom "quote") each-any))))
- (if #{tmp\ 4502}#
+ (if #{tmp\ 4561}#
(@apply
- (lambda (#{x\ 4504}#)
+ (lambda (#{x\ 4563}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(x) #((top)) #("i4503"))
+ #(ribcage #(x) #((top)) #("i4562"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4500"))
+ #(ribcage #(x) #((top)) #("i4559"))
#(ribcage
(emit quasivector
quasilist*
@@ -17067,53 +16968,53 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- (list->vector #{x\ 4504}#)))
- #{tmp\ 4502}#)
- (let ((#{_\ 4507}# #{tmp\ 4501}#))
+ (list->vector #{x\ 4563}#)))
+ #{tmp\ 4561}#)
+ (let ((#{_\ 4566}# #{tmp\ 4560}#))
(letrec*
- ((#{f\ 4511}#
- (lambda (#{y\ 4512}# #{k\ 4513}#)
- (let ((#{tmp\ 4524}# #{y\ 4512}#))
- (let ((#{tmp\ 4525}#
+ ((#{f\ 4570}#
+ (lambda (#{y\ 4571}# #{k\ 4572}#)
+ (let ((#{tmp\ 4583}# #{y\ 4571}#))
+ (let ((#{tmp\ 4584}#
($sc-dispatch
- #{tmp\ 4524}#
+ #{tmp\ 4583}#
'(#(atom "quote") each-any))))
- (if #{tmp\ 4525}#
+ (if #{tmp\ 4584}#
(@apply
- (lambda (#{y\ 4527}#)
- (#{k\ 4513}#
- (map (lambda (#{tmp\ 4528}#)
+ (lambda (#{y\ 4586}#)
+ (#{k\ 4572}#
+ (map (lambda (#{tmp\ 4587}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i4526"))
+ #("i4585"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4508"
- "i4509"
- "i4510"))
+ #("i4567"
+ "i4568"
+ "i4569"))
#(ribcage
#(_)
#((top))
- #("i4506"))
+ #("i4565"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4500"))
+ #("i4559"))
#(ribcage
(emit quasivector
quasilist*
@@ -17128,75 +17029,75 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{tmp\ 4528}#))
- #{y\ 4527}#)))
- #{tmp\ 4525}#)
- (let ((#{tmp\ 4529}#
+ #{tmp\ 4587}#))
+ #{y\ 4586}#)))
+ #{tmp\ 4584}#)
+ (let ((#{tmp\ 4588}#
($sc-dispatch
- #{tmp\ 4524}#
+ #{tmp\ 4583}#
'(#(atom "list") . each-any))))
- (if #{tmp\ 4529}#
+ (if #{tmp\ 4588}#
(@apply
- (lambda (#{y\ 4531}#)
- (#{k\ 4513}# #{y\ 4531}#))
- #{tmp\ 4529}#)
- (let ((#{tmp\ 4533}#
+ (lambda (#{y\ 4590}#)
+ (#{k\ 4572}# #{y\ 4590}#))
+ #{tmp\ 4588}#)
+ (let ((#{tmp\ 4592}#
($sc-dispatch
- #{tmp\ 4524}#
+ #{tmp\ 4583}#
'(#(atom "list*")
.
#(each+ any (any) ())))))
- (if #{tmp\ 4533}#
+ (if #{tmp\ 4592}#
(@apply
- (lambda (#{y\ 4536}# #{z\ 4537}#)
- (#{f\ 4511}#
- #{z\ 4537}#
- (lambda (#{ls\ 4538}#)
- (#{k\ 4513}#
+ (lambda (#{y\ 4595}# #{z\ 4596}#)
+ (#{f\ 4570}#
+ #{z\ 4596}#
+ (lambda (#{ls\ 4597}#)
+ (#{k\ 4572}#
(append
- #{y\ 4536}#
- #{ls\ 4538}#)))))
- #{tmp\ 4533}#)
- (let ((#{else\ 4542}# #{tmp\ 4524}#))
- (let ((#{tmp\ 4546}# #{x\ 4499}#))
- (let ((#{\ g4543\ 4548}#
- #{tmp\ 4546}#))
+ #{y\ 4595}#
+ #{ls\ 4597}#)))))
+ #{tmp\ 4592}#)
+ (let ((#{else\ 4601}# #{tmp\ 4583}#))
+ (let ((#{tmp\ 4605}# #{x\ 4558}#))
+ (let ((#{\ g4602\ 4607}#
+ #{tmp\ 4605}#))
(list '#(syntax-object
"list->vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{\ g4543}#)
- #((m4544 top))
- #("i4547"))
+ #(#{\ g4602}#)
+ #((m4603 top))
+ #("i4606"))
#(ribcage
#(else)
#((top))
- #("i4541"))
+ #("i4600"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4508"
- "i4509"
- "i4510"))
+ #("i4567"
+ "i4568"
+ "i4569"))
#(ribcage
#(_)
#((top))
- #("i4506"))
+ #("i4565"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4500"))
+ #("i4559"))
#(ribcage
(emit quasivector
quasilist*
@@ -17211,49 +17112,49 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{\ g4543\ 4548}#))))))))))))))
+ #{\ g4602\ 4607}#))))))))))))))
(begin
- (#{f\ 4511}#
- #{x\ 4499}#
- (lambda (#{ls\ 4514}#)
- (let ((#{tmp\ 4519}# #{ls\ 4514}#))
- (let ((#{tmp\ 4520}#
- ($sc-dispatch #{tmp\ 4519}# 'each-any)))
- (if #{tmp\ 4520}#
+ (#{f\ 4570}#
+ #{x\ 4558}#
+ (lambda (#{ls\ 4573}#)
+ (let ((#{tmp\ 4578}# #{ls\ 4573}#))
+ (let ((#{tmp\ 4579}#
+ ($sc-dispatch #{tmp\ 4578}# 'each-any)))
+ (if #{tmp\ 4579}#
(@apply
- (lambda (#{\ g4516\ 4522}#)
+ (lambda (#{\ g4575\ 4581}#)
(cons '#(syntax-object
"vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{\ g4516}#)
- #((m4517 top))
- #("i4521"))
+ #(#{\ g4575}#)
+ #((m4576 top))
+ #("i4580"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ls)
#((top))
- #("i4515"))
+ #("i4574"))
#(ribcage
#(_)
#((top))
- #("i4506"))
+ #("i4565"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4500"))
+ #("i4559"))
#(ribcage
(emit quasivector
quasilist*
@@ -17268,36 +17169,36 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{\ g4516\ 4522}#))
- #{tmp\ 4520}#)
+ #{\ g4575\ 4581}#))
+ #{tmp\ 4579}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4519}#))))))))))))))
- (#{emit\ 4372}#
- (lambda (#{x\ 4549}#)
- (let ((#{tmp\ 4551}# #{x\ 4549}#))
- (let ((#{tmp\ 4552}#
+ #{tmp\ 4578}#))))))))))))))
+ (#{emit\ 4431}#
+ (lambda (#{x\ 4608}#)
+ (let ((#{tmp\ 4610}# #{x\ 4608}#))
+ (let ((#{tmp\ 4611}#
($sc-dispatch
- #{tmp\ 4551}#
+ #{tmp\ 4610}#
'(#(atom "quote") any))))
- (if #{tmp\ 4552}#
+ (if #{tmp\ 4611}#
(@apply
- (lambda (#{x\ 4554}#)
+ (lambda (#{x\ 4613}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4553"))
+ #(ribcage #(x) #((top)) #("i4612"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4550"))
+ #(ribcage #(x) #((top)) #("i4609"))
#(ribcage
(emit quasivector
quasilist*
@@ -17306,47 +17207,47 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{x\ 4554}#))
- #{tmp\ 4552}#)
- (let ((#{tmp\ 4555}#
+ #{x\ 4613}#))
+ #{tmp\ 4611}#)
+ (let ((#{tmp\ 4614}#
($sc-dispatch
- #{tmp\ 4551}#
+ #{tmp\ 4610}#
'(#(atom "list") . each-any))))
- (if #{tmp\ 4555}#
+ (if #{tmp\ 4614}#
(@apply
- (lambda (#{x\ 4557}#)
- (let ((#{tmp\ 4561}#
- (map #{emit\ 4372}# #{x\ 4557}#)))
- (let ((#{tmp\ 4562}#
- ($sc-dispatch #{tmp\ 4561}# 'each-any)))
- (if #{tmp\ 4562}#
+ (lambda (#{x\ 4616}#)
+ (let ((#{tmp\ 4620}#
+ (map #{emit\ 4431}# #{x\ 4616}#)))
+ (let ((#{tmp\ 4621}#
+ ($sc-dispatch #{tmp\ 4620}# 'each-any)))
+ (if #{tmp\ 4621}#
(@apply
- (lambda (#{\ g4558\ 4564}#)
+ (lambda (#{\ g4617\ 4623}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{\ g4558}#)
- #((m4559 top))
- #("i4563"))
+ #(#{\ g4617}#)
+ #((m4618 top))
+ #("i4622"))
#(ribcage
#(x)
#((top))
- #("i4556"))
+ #("i4615"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4550"))
+ #("i4609"))
#(ribcage
(emit quasivector
quasilist*
@@ -17361,70 +17262,70 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{\ g4558\ 4564}#))
- #{tmp\ 4562}#)
+ #{\ g4617\ 4623}#))
+ #{tmp\ 4621}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4561}#)))))
- #{tmp\ 4555}#)
- (let ((#{tmp\ 4567}#
+ #{tmp\ 4620}#)))))
+ #{tmp\ 4614}#)
+ (let ((#{tmp\ 4626}#
($sc-dispatch
- #{tmp\ 4551}#
+ #{tmp\ 4610}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp\ 4567}#
+ (if #{tmp\ 4626}#
(@apply
- (lambda (#{x\ 4570}# #{y\ 4571}#)
+ (lambda (#{x\ 4629}# #{y\ 4630}#)
(letrec*
- ((#{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}#
+ ((#{f\ 4633}#
+ (lambda (#{x*\ 4634}#)
+ (if (null? #{x*\ 4634}#)
+ (#{emit\ 4431}# #{y\ 4630}#)
+ (let ((#{tmp\ 4640}#
+ (list (#{emit\ 4431}#
+ (car #{x*\ 4634}#))
+ (#{f\ 4633}#
+ (cdr #{x*\ 4634}#)))))
+ (let ((#{tmp\ 4641}#
($sc-dispatch
- #{tmp\ 4581}#
+ #{tmp\ 4640}#
'(any any))))
- (if #{tmp\ 4582}#
+ (if #{tmp\ 4641}#
(@apply
- (lambda (#{\ g4578\ 4585}#
- #{\ g4577\ 4586}#)
+ (lambda (#{\ g4637\ 4644}#
+ #{\ g4636\ 4645}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{\ g4578}#
- #{\ g4577}#)
- #((m4579 top)
- (m4579 top))
- #("i4583" "i4584"))
+ #(#{\ g4637}#
+ #{\ g4636}#)
+ #((m4638 top)
+ (m4638 top))
+ #("i4642" "i4643"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i4572" "i4573"))
+ #("i4631" "i4632"))
#(ribcage
#(x y)
#((top) (top))
- #("i4568" "i4569"))
+ #("i4627" "i4628"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4550"))
+ #("i4609"))
#(ribcage
(emit quasivector
quasilist*
@@ -17439,56 +17340,56 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{\ g4578\ 4585}#
- #{\ g4577\ 4586}#))
- #{tmp\ 4582}#)
+ #{\ g4637\ 4644}#
+ #{\ g4636\ 4645}#))
+ #{tmp\ 4641}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4581}#))))))))
- (begin (#{f\ 4574}# #{x\ 4570}#))))
- #{tmp\ 4567}#)
- (let ((#{tmp\ 4587}#
+ #{tmp\ 4640}#))))))))
+ (begin (#{f\ 4633}# #{x\ 4629}#))))
+ #{tmp\ 4626}#)
+ (let ((#{tmp\ 4646}#
($sc-dispatch
- #{tmp\ 4551}#
+ #{tmp\ 4610}#
'(#(atom "append") . each-any))))
- (if #{tmp\ 4587}#
+ (if #{tmp\ 4646}#
(@apply
- (lambda (#{x\ 4589}#)
- (let ((#{tmp\ 4593}#
- (map #{emit\ 4372}# #{x\ 4589}#)))
- (let ((#{tmp\ 4594}#
+ (lambda (#{x\ 4648}#)
+ (let ((#{tmp\ 4652}#
+ (map #{emit\ 4431}# #{x\ 4648}#)))
+ (let ((#{tmp\ 4653}#
($sc-dispatch
- #{tmp\ 4593}#
+ #{tmp\ 4652}#
'each-any)))
- (if #{tmp\ 4594}#
+ (if #{tmp\ 4653}#
(@apply
- (lambda (#{\ g4590\ 4596}#)
+ (lambda (#{\ g4649\ 4655}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{\ g4590}#)
- #((m4591 top))
- #("i4595"))
+ #(#{\ g4649}#)
+ #((m4650 top))
+ #("i4654"))
#(ribcage
#(x)
#((top))
- #("i4588"))
+ #("i4647"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4550"))
+ #("i4609"))
#(ribcage
(emit quasivector
quasilist*
@@ -17503,54 +17404,54 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{\ g4590\ 4596}#))
- #{tmp\ 4594}#)
+ #{\ g4649\ 4655}#))
+ #{tmp\ 4653}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4593}#)))))
- #{tmp\ 4587}#)
- (let ((#{tmp\ 4599}#
+ #{tmp\ 4652}#)))))
+ #{tmp\ 4646}#)
+ (let ((#{tmp\ 4658}#
($sc-dispatch
- #{tmp\ 4551}#
+ #{tmp\ 4610}#
'(#(atom "vector") . each-any))))
- (if #{tmp\ 4599}#
+ (if #{tmp\ 4658}#
(@apply
- (lambda (#{x\ 4601}#)
- (let ((#{tmp\ 4605}#
- (map #{emit\ 4372}# #{x\ 4601}#)))
- (let ((#{tmp\ 4606}#
+ (lambda (#{x\ 4660}#)
+ (let ((#{tmp\ 4664}#
+ (map #{emit\ 4431}# #{x\ 4660}#)))
+ (let ((#{tmp\ 4665}#
($sc-dispatch
- #{tmp\ 4605}#
+ #{tmp\ 4664}#
'each-any)))
- (if #{tmp\ 4606}#
+ (if #{tmp\ 4665}#
(@apply
- (lambda (#{\ g4602\ 4608}#)
+ (lambda (#{\ g4661\ 4667}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{\ g4602}#)
- #((m4603 top))
- #("i4607"))
+ #(#{\ g4661}#)
+ #((m4662 top))
+ #("i4666"))
#(ribcage
#(x)
#((top))
- #("i4600"))
+ #("i4659"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4550"))
+ #("i4609"))
#(ribcage
(emit quasivector
quasilist*
@@ -17565,49 +17466,49 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{\ g4602\ 4608}#))
- #{tmp\ 4606}#)
+ #{\ g4661\ 4667}#))
+ #{tmp\ 4665}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4605}#)))))
- #{tmp\ 4599}#)
- (let ((#{tmp\ 4611}#
+ #{tmp\ 4664}#)))))
+ #{tmp\ 4658}#)
+ (let ((#{tmp\ 4670}#
($sc-dispatch
- #{tmp\ 4551}#
+ #{tmp\ 4610}#
'(#(atom "list->vector") any))))
- (if #{tmp\ 4611}#
+ (if #{tmp\ 4670}#
(@apply
- (lambda (#{x\ 4613}#)
- (let ((#{tmp\ 4617}#
- (#{emit\ 4372}# #{x\ 4613}#)))
- (let ((#{\ g4614\ 4619}#
- #{tmp\ 4617}#))
+ (lambda (#{x\ 4672}#)
+ (let ((#{tmp\ 4676}#
+ (#{emit\ 4431}# #{x\ 4672}#)))
+ (let ((#{\ g4673\ 4678}#
+ #{tmp\ 4676}#))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{\ g4614}#)
- #((m4615 top))
- #("i4618"))
+ #(#{\ g4673}#)
+ #((m4674 top))
+ #("i4677"))
#(ribcage
#(x)
#((top))
- #("i4612"))
+ #("i4671"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4550"))
+ #("i4609"))
#(ribcage
(emit quasivector
quasilist*
@@ -17622,83 +17523,83 @@
(top)
(top)
(top))
- ("i4371"
- "i4369"
- "i4367"
- "i4365"
- "i4363"
- "i4361"
- "i4359")))
+ ("i4430"
+ "i4428"
+ "i4426"
+ "i4424"
+ "i4422"
+ "i4420"
+ "i4418")))
(hygiene guile))
- #{\ g4614\ 4619}#))))
- #{tmp\ 4611}#)
- (let ((#{tmp\ 4620}#
+ #{\ g4673\ 4678}#))))
+ #{tmp\ 4670}#)
+ (let ((#{tmp\ 4679}#
($sc-dispatch
- #{tmp\ 4551}#
+ #{tmp\ 4610}#
'(#(atom "value") any))))
- (if #{tmp\ 4620}#
+ (if #{tmp\ 4679}#
(@apply
- (lambda (#{x\ 4622}#) #{x\ 4622}#)
- #{tmp\ 4620}#)
+ (lambda (#{x\ 4681}#) #{x\ 4681}#)
+ #{tmp\ 4679}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4551}#)))))))))))))))))))
+ #{tmp\ 4610}#)))))))))))))))))))
(begin
- (lambda (#{x\ 4623}#)
- (let ((#{tmp\ 4625}# #{x\ 4623}#))
- (let ((#{tmp\ 4626}#
- ($sc-dispatch #{tmp\ 4625}# '(_ any))))
- (if #{tmp\ 4626}#
+ (lambda (#{x\ 4682}#)
+ (let ((#{tmp\ 4684}# #{x\ 4682}#))
+ (let ((#{tmp\ 4685}#
+ ($sc-dispatch #{tmp\ 4684}# '(_ any))))
+ (if #{tmp\ 4685}#
(@apply
- (lambda (#{e\ 4628}#)
- (#{emit\ 4372}# (#{quasi\ 4360}# #{e\ 4628}# 0)))
- #{tmp\ 4626}#)
+ (lambda (#{e\ 4687}#)
+ (#{emit\ 4431}# (#{quasi\ 4419}# #{e\ 4687}# 0)))
+ #{tmp\ 4685}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4625}#)))))))))
+ #{tmp\ 4684}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x\ 4629}#)
+ (lambda (#{x\ 4688}#)
(letrec*
- ((#{read-file\ 4632}#
- (lambda (#{fn\ 4633}# #{k\ 4634}#)
+ ((#{read-file\ 4691}#
+ (lambda (#{fn\ 4692}# #{k\ 4693}#)
(begin
- (let ((#{p\ 4638}# (open-input-file #{fn\ 4633}#)))
+ (let ((#{p\ 4697}# (open-input-file #{fn\ 4692}#)))
(letrec*
- ((#{f\ 4642}#
- (lambda (#{x\ 4643}# #{result\ 4644}#)
- (if (eof-object? #{x\ 4643}#)
+ ((#{f\ 4701}#
+ (lambda (#{x\ 4702}# #{result\ 4703}#)
+ (if (eof-object? #{x\ 4702}#)
(begin
- (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}#) '()))))))))
+ (close-input-port #{p\ 4697}#)
+ (reverse #{result\ 4703}#))
+ (#{f\ 4701}#
+ (read #{p\ 4697}#)
+ (cons (datum->syntax #{k\ 4693}# #{x\ 4702}#)
+ #{result\ 4703}#))))))
+ (begin (#{f\ 4701}# (read #{p\ 4697}#) '()))))))))
(begin
- (let ((#{tmp\ 4645}# #{x\ 4629}#))
- (let ((#{tmp\ 4646}#
- ($sc-dispatch #{tmp\ 4645}# '(any any))))
- (if #{tmp\ 4646}#
+ (let ((#{tmp\ 4704}# #{x\ 4688}#))
+ (let ((#{tmp\ 4705}#
+ ($sc-dispatch #{tmp\ 4704}# '(any any))))
+ (if #{tmp\ 4705}#
(@apply
- (lambda (#{k\ 4649}# #{filename\ 4650}#)
+ (lambda (#{k\ 4708}# #{filename\ 4709}#)
(begin
- (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}#
+ (let ((#{fn\ 4711}# (syntax->datum #{filename\ 4709}#)))
+ (let ((#{tmp\ 4713}#
+ (#{read-file\ 4691}#
+ #{fn\ 4711}#
+ #{filename\ 4709}#)))
+ (let ((#{tmp\ 4714}#
+ ($sc-dispatch #{tmp\ 4713}# 'each-any)))
+ (if #{tmp\ 4714}#
(@apply
- (lambda (#{exp\ 4657}#)
+ (lambda (#{exp\ 4716}#)
(cons '#(syntax-object
begin
((top)
@@ -17706,129 +17607,129 @@
#(ribcage
#(exp)
#((top))
- #("i4656"))
+ #("i4715"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4651"))
+ #("i4710"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4647" "i4648"))
+ #("i4706" "i4707"))
#(ribcage
(read-file)
((top))
- ("i4631"))
+ ("i4690"))
#(ribcage
#(x)
#((top))
- #("i4630")))
+ #("i4689")))
(hygiene guile))
- #{exp\ 4657}#))
- #{tmp\ 4655}#)
+ #{exp\ 4716}#))
+ #{tmp\ 4714}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4654}#)))))))
- #{tmp\ 4646}#)
+ #{tmp\ 4713}#)))))))
+ #{tmp\ 4705}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4645}#)))))))))
+ #{tmp\ 4704}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x\ 4659}#)
- (let ((#{tmp\ 4661}# #{x\ 4659}#))
- (let ((#{tmp\ 4662}#
- ($sc-dispatch #{tmp\ 4661}# '(any any))))
- (if #{tmp\ 4662}#
+ (lambda (#{x\ 4718}#)
+ (let ((#{tmp\ 4720}# #{x\ 4718}#))
+ (let ((#{tmp\ 4721}#
+ ($sc-dispatch #{tmp\ 4720}# '(any any))))
+ (if #{tmp\ 4721}#
(@apply
- (lambda (#{k\ 4665}# #{filename\ 4666}#)
+ (lambda (#{k\ 4724}# #{filename\ 4725}#)
(begin
- (let ((#{fn\ 4668}# (syntax->datum #{filename\ 4666}#)))
- (let ((#{tmp\ 4670}#
+ (let ((#{fn\ 4727}# (syntax->datum #{filename\ 4725}#)))
+ (let ((#{tmp\ 4729}#
(datum->syntax
- #{filename\ 4666}#
+ #{filename\ 4725}#
(begin
- (let ((#{t\ 4675}#
- (%search-load-path #{fn\ 4668}#)))
- (if #{t\ 4675}#
- #{t\ 4675}#
+ (let ((#{t\ 4734}#
+ (%search-load-path #{fn\ 4727}#)))
+ (if #{t\ 4734}#
+ #{t\ 4734}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4659}#
- #{filename\ 4666}#)))))))
- (let ((#{fn\ 4672}# #{tmp\ 4670}#))
+ #{x\ 4718}#
+ #{filename\ 4725}#)))))))
+ (let ((#{fn\ 4731}# #{tmp\ 4729}#))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4671"))
+ #(ribcage #(fn) #((top)) #("i4730"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4667"))
+ #(ribcage #(fn) #((top)) #("i4726"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4663" "i4664"))
+ #("i4722" "i4723"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4660")))
+ #(ribcage #(x) #((top)) #("i4719")))
(hygiene guile))
- #{fn\ 4672}#))))))
- #{tmp\ 4662}#)
+ #{fn\ 4731}#))))))
+ #{tmp\ 4721}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4661}#)))))))
+ #{tmp\ 4720}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x\ 4677}#)
+ (lambda (#{x\ 4736}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4677}#))))
+ #{x\ 4736}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x\ 4679}#)
+ (lambda (#{x\ 4738}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4679}#))))
+ #{x\ 4738}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x\ 4681}#)
- (let ((#{tmp\ 4683}# #{x\ 4681}#))
- (let ((#{tmp\ 4684}#
+ (lambda (#{x\ 4740}#)
+ (let ((#{tmp\ 4742}# #{x\ 4740}#))
+ (let ((#{tmp\ 4743}#
($sc-dispatch
- #{tmp\ 4683}#
+ #{tmp\ 4742}#
'(_ any any . each-any))))
- (if #{tmp\ 4684}#
+ (if #{tmp\ 4743}#
(@apply
- (lambda (#{e\ 4688}# #{m1\ 4689}# #{m2\ 4690}#)
- (let ((#{tmp\ 4692}#
+ (lambda (#{e\ 4747}# #{m1\ 4748}# #{m2\ 4749}#)
+ (let ((#{tmp\ 4751}#
(letrec*
- ((#{f\ 4698}#
- (lambda (#{clause\ 4699}# #{clauses\ 4700}#)
- (if (null? #{clauses\ 4700}#)
- (let ((#{tmp\ 4702}# #{clause\ 4699}#))
- (let ((#{tmp\ 4703}#
+ ((#{f\ 4757}#
+ (lambda (#{clause\ 4758}# #{clauses\ 4759}#)
+ (if (null? #{clauses\ 4759}#)
+ (let ((#{tmp\ 4761}# #{clause\ 4758}#))
+ (let ((#{tmp\ 4762}#
($sc-dispatch
- #{tmp\ 4702}#
+ #{tmp\ 4761}#
'(#(free-id
#(syntax-object
else
@@ -17837,92 +17738,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp\ 4703}#
+ (if #{tmp\ 4762}#
(@apply
- (lambda (#{e1\ 4706}# #{e2\ 4707}#)
+ (lambda (#{e1\ 4765}# #{e2\ 4766}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4704" "i4705"))
+ #("i4763" "i4764"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
- (cons #{e1\ 4706}#
- #{e2\ 4707}#)))
- #{tmp\ 4703}#)
- (let ((#{tmp\ 4709}#
+ (cons #{e1\ 4765}#
+ #{e2\ 4766}#)))
+ #{tmp\ 4762}#)
+ (let ((#{tmp\ 4768}#
($sc-dispatch
- #{tmp\ 4702}#
+ #{tmp\ 4761}#
'(each-any any . each-any))))
- (if #{tmp\ 4709}#
+ (if #{tmp\ 4768}#
(@apply
- (lambda (#{k\ 4713}#
- #{e1\ 4714}#
- #{e2\ 4715}#)
+ (lambda (#{k\ 4772}#
+ #{e1\ 4773}#
+ #{e2\ 4774}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4710"
- "i4711"
- "i4712"))
+ #("i4769"
+ "i4770"
+ "i4771"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -17932,9 +17833,9 @@
#((top)
(top)
(top))
- #("i4710"
- "i4711"
- "i4712"))
+ #("i4769"
+ "i4770"
+ "i4771"))
#(ribcage
()
()
@@ -17946,17 +17847,17 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -17964,7 +17865,7 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
'#(syntax-object
t
@@ -17974,9 +17875,9 @@
#((top)
(top)
(top))
- #("i4710"
- "i4711"
- "i4712"))
+ #("i4769"
+ "i4770"
+ "i4771"))
#(ribcage
()
()
@@ -17988,17 +17889,17 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -18006,7 +17907,7 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -18018,9 +17919,9 @@
#((top)
(top)
(top))
- #("i4710"
- "i4711"
- "i4712"))
+ #("i4769"
+ "i4770"
+ "i4771"))
#(ribcage
()
()
@@ -18032,9 +17933,9 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e
m1
@@ -18042,9 +17943,9 @@
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -18052,10 +17953,10 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene
guile))
- #{k\ 4713}#))
+ #{k\ 4772}#))
(cons '#(syntax-object
begin
((top)
@@ -18064,9 +17965,9 @@
#((top)
(top)
(top))
- #("i4710"
- "i4711"
- "i4712"))
+ #("i4769"
+ "i4770"
+ "i4771"))
#(ribcage
()
()
@@ -18078,17 +17979,17 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -18096,64 +17997,64 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
- (cons #{e1\ 4714}#
- #{e2\ 4715}#))))
- #{tmp\ 4709}#)
- (let ((#{_\ 4719}# #{tmp\ 4702}#))
+ (cons #{e1\ 4773}#
+ #{e2\ 4774}#))))
+ #{tmp\ 4768}#)
+ (let ((#{_\ 4778}# #{tmp\ 4761}#))
(syntax-violation
'case
"bad clause"
- #{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}#
+ #{x\ 4740}#
+ #{clause\ 4758}#)))))))
+ (let ((#{tmp\ 4780}#
+ (#{f\ 4757}#
+ (car #{clauses\ 4759}#)
+ (cdr #{clauses\ 4759}#))))
+ (let ((#{rest\ 4782}# #{tmp\ 4780}#))
+ (let ((#{tmp\ 4783}# #{clause\ 4758}#))
+ (let ((#{tmp\ 4784}#
($sc-dispatch
- #{tmp\ 4724}#
+ #{tmp\ 4783}#
'(each-any any . each-any))))
- (if #{tmp\ 4725}#
+ (if #{tmp\ 4784}#
(@apply
- (lambda (#{k\ 4729}#
- #{e1\ 4730}#
- #{e2\ 4731}#)
+ (lambda (#{k\ 4788}#
+ #{e1\ 4789}#
+ #{e2\ 4790}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4726"
- "i4727"
- "i4728"))
+ #("i4785"
+ "i4786"
+ "i4787"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i4722"))
+ #("i4781"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -18163,9 +18064,9 @@
#((top)
(top)
(top))
- #("i4726"
- "i4727"
- "i4728"))
+ #("i4785"
+ "i4786"
+ "i4787"))
#(ribcage
()
()
@@ -18173,7 +18074,7 @@
#(ribcage
#(rest)
#((top))
- #("i4722"))
+ #("i4781"))
#(ribcage
()
()
@@ -18185,17 +18086,17 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -18203,7 +18104,7 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
'#(syntax-object
t
@@ -18213,9 +18114,9 @@
#((top)
(top)
(top))
- #("i4726"
- "i4727"
- "i4728"))
+ #("i4785"
+ "i4786"
+ "i4787"))
#(ribcage
()
()
@@ -18223,7 +18124,7 @@
#(ribcage
#(rest)
#((top))
- #("i4722"))
+ #("i4781"))
#(ribcage
()
()
@@ -18235,17 +18136,17 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -18253,7 +18154,7 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -18265,9 +18166,9 @@
#((top)
(top)
(top))
- #("i4726"
- "i4727"
- "i4728"))
+ #("i4785"
+ "i4786"
+ "i4787"))
#(ribcage
()
()
@@ -18275,7 +18176,7 @@
#(ribcage
#(rest)
#((top))
- #("i4722"))
+ #("i4781"))
#(ribcage
()
()
@@ -18287,9 +18188,9 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e
m1
@@ -18297,9 +18198,9 @@
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -18307,10 +18208,10 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene
guile))
- #{k\ 4729}#))
+ #{k\ 4788}#))
(cons '#(syntax-object
begin
((top)
@@ -18319,9 +18220,9 @@
#((top)
(top)
(top))
- #("i4726"
- "i4727"
- "i4728"))
+ #("i4785"
+ "i4786"
+ "i4787"))
#(ribcage
()
()
@@ -18329,7 +18230,7 @@
#(ribcage
#(rest)
#((top))
- #("i4722"))
+ #("i4781"))
#(ribcage
()
()
@@ -18341,17 +18242,17 @@
#((top)
(top)
(top))
- #("i4695"
- "i4696"
- "i4697"))
+ #("i4754"
+ "i4755"
+ "i4756"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4685"
- "i4686"
- "i4687"))
+ #("i4744"
+ "i4745"
+ "i4746"))
#(ribcage
()
()
@@ -18359,31 +18260,31 @@
#(ribcage
#(x)
#((top))
- #("i4682")))
+ #("i4741")))
(hygiene guile))
- (cons #{e1\ 4730}#
- #{e2\ 4731}#))
- #{rest\ 4723}#))
- #{tmp\ 4725}#)
- (let ((#{_\ 4735}# #{tmp\ 4724}#))
+ (cons #{e1\ 4789}#
+ #{e2\ 4790}#))
+ #{rest\ 4782}#))
+ #{tmp\ 4784}#)
+ (let ((#{_\ 4794}# #{tmp\ 4783}#))
(syntax-violation
'case
"bad clause"
- #{x\ 4681}#
- #{clause\ 4699}#)))))))))))
- (begin (#{f\ 4698}# #{m1\ 4689}# #{m2\ 4690}#)))))
- (let ((#{body\ 4694}# #{tmp\ 4692}#))
+ #{x\ 4740}#
+ #{clause\ 4758}#)))))))))))
+ (begin (#{f\ 4757}# #{m1\ 4748}# #{m2\ 4749}#)))))
+ (let ((#{body\ 4753}# #{tmp\ 4751}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i4693"))
+ #(ribcage #(body) #((top)) #("i4752"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4685" "i4686" "i4687"))
+ #("i4744" "i4745" "i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4682")))
+ #(ribcage #(x) #((top)) #("i4741")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -18392,177 +18293,177 @@
#(ribcage
#(body)
#((top))
- #("i4693"))
+ #("i4752"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4685" "i4686" "i4687"))
+ #("i4744" "i4745" "i4746"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4682")))
+ #(ribcage #(x) #((top)) #("i4741")))
(hygiene guile))
- #{e\ 4688}#))
- #{body\ 4694}#))))
- #{tmp\ 4684}#)
+ #{e\ 4747}#))
+ #{body\ 4753}#))))
+ #{tmp\ 4743}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4683}#)))))))
+ #{tmp\ 4742}#)))))))
(define make-variable-transformer
- (lambda (#{proc\ 4736}#)
- (if (procedure? #{proc\ 4736}#)
+ (lambda (#{proc\ 4795}#)
+ (if (procedure? #{proc\ 4795}#)
(begin
(letrec*
- ((#{trans\ 4739}#
- (lambda (#{x\ 4740}#)
- (#{proc\ 4736}# #{x\ 4740}#))))
+ ((#{trans\ 4798}#
+ (lambda (#{x\ 4799}#)
+ (#{proc\ 4795}# #{x\ 4799}#))))
(begin
(set-procedure-property!
- #{trans\ 4739}#
+ #{trans\ 4798}#
'variable-transformer
#t)
- #{trans\ 4739}#)))
+ #{trans\ 4798}#)))
(error "variable transformer not a procedure"
- #{proc\ 4736}#))))
+ #{proc\ 4795}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x\ 4742}#)
- (let ((#{tmp\ 4744}# #{x\ 4742}#))
- (let ((#{tmp\ 4745}#
- ($sc-dispatch #{tmp\ 4744}# '(_ any))))
- (if #{tmp\ 4745}#
+ (lambda (#{x\ 4801}#)
+ (let ((#{tmp\ 4803}# #{x\ 4801}#))
+ (let ((#{tmp\ 4804}#
+ ($sc-dispatch #{tmp\ 4803}# '(_ any))))
+ (if #{tmp\ 4804}#
(@apply
- (lambda (#{e\ 4747}#)
+ (lambda (#{e\ 4806}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
- #{e\ 4747}#))
+ #{e\ 4806}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4746"))
+ #(ribcage #(e) #((top)) #("i4805"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
- (cons #{e\ 4747}#
+ (cons #{e\ 4806}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4746"))
+ #("i4805"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
#(syntax-object
...
@@ -18570,55 +18471,55 @@
#(ribcage
#(e)
#((top))
- #("i4746"))
+ #("i4805"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile)))))))))
- #{tmp\ 4745}#)
- (let ((#{tmp\ 4748}#
+ #{tmp\ 4804}#)
+ (let ((#{tmp\ 4807}#
($sc-dispatch
- #{tmp\ 4744}#
+ #{tmp\ 4803}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp\ 4748}#
+ (if (if #{tmp\ 4807}#
(@apply
- (lambda (#{id\ 4754}#
- #{exp1\ 4755}#
- #{var\ 4756}#
- #{val\ 4757}#
- #{exp2\ 4758}#)
- (if (identifier? #{id\ 4754}#)
- (identifier? #{var\ 4756}#)
+ (lambda (#{id\ 4813}#
+ #{exp1\ 4814}#
+ #{var\ 4815}#
+ #{val\ 4816}#
+ #{exp2\ 4817}#)
+ (if (identifier? #{id\ 4813}#)
+ (identifier? #{var\ 4815}#)
#f))
- #{tmp\ 4748}#)
+ #{tmp\ 4807}#)
#f)
(@apply
- (lambda (#{id\ 4766}#
- #{exp1\ 4767}#
- #{var\ 4768}#
- #{val\ 4769}#
- #{exp2\ 4770}#)
+ (lambda (#{id\ 4825}#
+ #{exp1\ 4826}#
+ #{var\ 4827}#
+ #{val\ 4828}#
+ #{exp2\ 4829}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761" "i4762" "i4763" "i4764" "i4765"))
+ #("i4820" "i4821" "i4822" "i4823" "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -18626,13 +18527,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
'(#(syntax-object
x
@@ -18640,13 +18541,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -18654,13 +18555,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
.
#(syntax-object
@@ -18669,13 +18570,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -18683,13 +18584,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
'#(syntax-object
x
@@ -18697,13 +18598,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile))
'(#(syntax-object
set!
@@ -18711,13 +18612,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4743")))
+ #(ribcage #(x) #((top)) #("i4802")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -18729,19 +18630,19 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
- #{var\ 4768}#
- #{val\ 4769}#)
+ #{var\ 4827}#
+ #{val\ 4828}#)
(list '#(syntax-object
syntax
((top)
@@ -18752,19 +18653,19 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
- #{exp2\ 4770}#))
- (list (cons #{id\ 4766}#
+ #{exp2\ 4829}#))
+ (list (cons #{id\ 4825}#
'(#(syntax-object
x
((top)
@@ -18779,16 +18680,16 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
#(syntax-object
...
@@ -18804,16 +18705,16 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -18825,18 +18726,18 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
- (cons #{exp1\ 4767}#
+ (cons #{exp1\ 4826}#
'(#(syntax-object
x
((top)
@@ -18851,11 +18752,11 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage
()
()
@@ -18863,7 +18764,7 @@
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
#(syntax-object
...
@@ -18879,11 +18780,11 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage
()
()
@@ -18891,10 +18792,10 @@
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene
guile))))))
- (list #{id\ 4766}#
+ (list #{id\ 4825}#
(list '#(syntax-object
identifier?
((top)
@@ -18905,16 +18806,16 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -18930,18 +18831,18 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
- #{id\ 4766}#))
+ #{id\ 4825}#))
(list '#(syntax-object
syntax
((top)
@@ -18952,69 +18853,69 @@
(top)
(top)
(top))
- #("i4761"
- "i4762"
- "i4763"
- "i4764"
- "i4765"))
+ #("i4820"
+ "i4821"
+ "i4822"
+ "i4823"
+ "i4824"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4743")))
+ #("i4802")))
(hygiene guile))
- #{exp1\ 4767}#))))))
- #{tmp\ 4748}#)
+ #{exp1\ 4826}#))))))
+ #{tmp\ 4807}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4744}#)))))))))
+ #{tmp\ 4803}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x\ 4771}#)
- (let ((#{tmp\ 4773}# #{x\ 4771}#))
- (let ((#{tmp\ 4774}#
+ (lambda (#{x\ 4830}#)
+ (let ((#{tmp\ 4832}# #{x\ 4830}#))
+ (let ((#{tmp\ 4833}#
($sc-dispatch
- #{tmp\ 4773}#
+ #{tmp\ 4832}#
'(_ (any . any) any . each-any))))
- (if #{tmp\ 4774}#
+ (if #{tmp\ 4833}#
(@apply
- (lambda (#{id\ 4779}#
- #{args\ 4780}#
- #{b0\ 4781}#
- #{b1\ 4782}#)
+ (lambda (#{id\ 4838}#
+ #{args\ 4839}#
+ #{b0\ 4840}#
+ #{b1\ 4841}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4775" "i4776" "i4777" "i4778"))
+ #("i4834" "i4835" "i4836" "i4837"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4772")))
+ #(ribcage #(x) #((top)) #("i4831")))
(hygiene guile))
- #{id\ 4779}#
+ #{id\ 4838}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4775" "i4776" "i4777" "i4778"))
+ #("i4834" "i4835" "i4836" "i4837"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4772")))
+ #(ribcage #(x) #((top)) #("i4831")))
(hygiene guile))
- (cons #{args\ 4780}#
- (cons #{b0\ 4781}# #{b1\ 4782}#)))))
- #{tmp\ 4774}#)
- (let ((#{tmp\ 4784}#
- ($sc-dispatch #{tmp\ 4773}# '(_ any any))))
- (if (if #{tmp\ 4784}#
+ (cons #{args\ 4839}#
+ (cons #{b0\ 4840}# #{b1\ 4841}#)))))
+ #{tmp\ 4833}#)
+ (let ((#{tmp\ 4843}#
+ ($sc-dispatch #{tmp\ 4832}# '(_ any any))))
+ (if (if #{tmp\ 4843}#
(@apply
- (lambda (#{id\ 4787}# #{val\ 4788}#)
+ (lambda (#{id\ 4846}# #{val\ 4847}#)
(identifier?
'#(syntax-object
x
@@ -19022,29 +18923,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i4785" "i4786"))
+ #("i4844" "i4845"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4772")))
+ #(ribcage #(x) #((top)) #("i4831")))
(hygiene guile))))
- #{tmp\ 4784}#)
+ #{tmp\ 4843}#)
#f)
(@apply
- (lambda (#{id\ 4791}# #{val\ 4792}#)
+ (lambda (#{id\ 4850}# #{val\ 4851}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4789" "i4790"))
+ #("i4848" "i4849"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4772")))
+ #(ribcage #(x) #((top)) #("i4831")))
(hygiene guile))
- #{id\ 4791}#
- #{val\ 4792}#))
- #{tmp\ 4784}#)
+ #{id\ 4850}#
+ #{val\ 4851}#))
+ #{tmp\ 4843}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4773}#)))))))))
+ #{tmp\ 4832}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 426640095..17acf3ff9 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -278,10 +278,10 @@
;; hooks to nonportable run-time helpers
(begin
- (define fx+ +)
- (define fx- -)
- (define fx= =)
- (define fx< <)
+ (define-syntax fx+ (identifier-syntax +))
+ (define-syntax fx- (identifier-syntax -))
+ (define-syntax fx= (identifier-syntax =))
+ (define-syntax fx< (identifier-syntax <))
(define top-level-eval-hook
(lambda (x mod)