summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/ice-9/psyntax-pp.scm15584
-rw-r--r--module/ice-9/psyntax.scm73
2 files changed, 7822 insertions, 7835 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 4cef609e3..d499b738a 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -3,1526 +3,1526 @@
(letrec*
((#{make-void 203}#
- (lambda (#{src 761}#)
+ (lambda (#{src 774}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{src 761}#)))
+ #{src 774}#)))
(#{make-const 205}#
- (lambda (#{src 763}# #{exp 764}#)
+ (lambda (#{src 776}# #{exp 777}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{src 763}#
- #{exp 764}#)))
+ #{src 776}#
+ #{exp 777}#)))
(#{make-lexical-ref 209}#
- (lambda (#{src 771}# #{name 772}# #{gensym 773}#)
+ (lambda (#{src 784}# #{name 785}# #{gensym 786}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 771}#
- #{name 772}#
- #{gensym 773}#)))
+ #{src 784}#
+ #{name 785}#
+ #{gensym 786}#)))
(#{make-lexical-set 211}#
- (lambda (#{src 777}#
- #{name 778}#
- #{gensym 779}#
- #{exp 780}#)
+ (lambda (#{src 790}#
+ #{name 791}#
+ #{gensym 792}#
+ #{exp 793}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{src 777}#
- #{name 778}#
- #{gensym 779}#
- #{exp 780}#)))
+ #{src 790}#
+ #{name 791}#
+ #{gensym 792}#
+ #{exp 793}#)))
(#{make-module-ref 213}#
- (lambda (#{src 785}#
- #{mod 786}#
- #{name 787}#
- #{public? 788}#)
+ (lambda (#{src 798}#
+ #{mod 799}#
+ #{name 800}#
+ #{public? 801}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{src 785}#
- #{mod 786}#
- #{name 787}#
- #{public? 788}#)))
+ #{src 798}#
+ #{mod 799}#
+ #{name 800}#
+ #{public? 801}#)))
(#{make-module-set 215}#
- (lambda (#{src 793}#
- #{mod 794}#
- #{name 795}#
- #{public? 796}#
- #{exp 797}#)
+ (lambda (#{src 806}#
+ #{mod 807}#
+ #{name 808}#
+ #{public? 809}#
+ #{exp 810}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{src 793}#
- #{mod 794}#
- #{name 795}#
- #{public? 796}#
- #{exp 797}#)))
+ #{src 806}#
+ #{mod 807}#
+ #{name 808}#
+ #{public? 809}#
+ #{exp 810}#)))
(#{make-toplevel-ref 217}#
- (lambda (#{src 803}# #{name 804}#)
+ (lambda (#{src 816}# #{name 817}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{src 803}#
- #{name 804}#)))
+ #{src 816}#
+ #{name 817}#)))
(#{make-toplevel-set 219}#
- (lambda (#{src 807}# #{name 808}# #{exp 809}#)
+ (lambda (#{src 820}# #{name 821}# #{exp 822}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{src 807}#
- #{name 808}#
- #{exp 809}#)))
+ #{src 820}#
+ #{name 821}#
+ #{exp 822}#)))
(#{make-toplevel-define 221}#
- (lambda (#{src 813}# #{name 814}# #{exp 815}#)
+ (lambda (#{src 826}# #{name 827}# #{exp 828}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{src 813}#
- #{name 814}#
- #{exp 815}#)))
+ #{src 826}#
+ #{name 827}#
+ #{exp 828}#)))
(#{make-conditional 223}#
- (lambda (#{src 819}#
- #{test 820}#
- #{consequent 821}#
- #{alternate 822}#)
+ (lambda (#{src 832}#
+ #{test 833}#
+ #{consequent 834}#
+ #{alternate 835}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{src 819}#
- #{test 820}#
- #{consequent 821}#
- #{alternate 822}#)))
+ #{src 832}#
+ #{test 833}#
+ #{consequent 834}#
+ #{alternate 835}#)))
(#{make-application 225}#
- (lambda (#{src 827}# #{proc 828}# #{args 829}#)
+ (lambda (#{src 840}# #{proc 841}# #{args 842}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 827}#
- #{proc 828}#
- #{args 829}#)))
+ #{src 840}#
+ #{proc 841}#
+ #{args 842}#)))
(#{make-sequence 227}#
- (lambda (#{src 833}# #{exps 834}#)
+ (lambda (#{src 846}# #{exps 847}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 833}#
- #{exps 834}#)))
+ #{src 846}#
+ #{exps 847}#)))
(#{make-lambda 229}#
- (lambda (#{src 837}# #{meta 838}# #{body 839}#)
+ (lambda (#{src 850}# #{meta 851}# #{body 852}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 837}#
- #{meta 838}#
- #{body 839}#)))
+ #{src 850}#
+ #{meta 851}#
+ #{body 852}#)))
(#{make-lambda-case 231}#
- (lambda (#{src 843}#
- #{req 844}#
- #{opt 845}#
- #{rest 846}#
- #{kw 847}#
- #{inits 848}#
- #{gensyms 849}#
- #{body 850}#
- #{alternate 851}#)
+ (lambda (#{src 856}#
+ #{req 857}#
+ #{opt 858}#
+ #{rest 859}#
+ #{kw 860}#
+ #{inits 861}#
+ #{gensyms 862}#
+ #{body 863}#
+ #{alternate 864}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 843}#
- #{req 844}#
- #{opt 845}#
- #{rest 846}#
- #{kw 847}#
- #{inits 848}#
- #{gensyms 849}#
- #{body 850}#
- #{alternate 851}#)))
+ #{src 856}#
+ #{req 857}#
+ #{opt 858}#
+ #{rest 859}#
+ #{kw 860}#
+ #{inits 861}#
+ #{gensyms 862}#
+ #{body 863}#
+ #{alternate 864}#)))
(#{make-let 233}#
- (lambda (#{src 861}#
- #{names 862}#
- #{gensyms 863}#
- #{vals 864}#
- #{body 865}#)
+ (lambda (#{src 874}#
+ #{names 875}#
+ #{gensyms 876}#
+ #{vals 877}#
+ #{body 878}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 861}#
- #{names 862}#
- #{gensyms 863}#
- #{vals 864}#
- #{body 865}#)))
+ #{src 874}#
+ #{names 875}#
+ #{gensyms 876}#
+ #{vals 877}#
+ #{body 878}#)))
(#{make-letrec 235}#
- (lambda (#{src 871}#
- #{in-order? 872}#
- #{names 873}#
- #{gensyms 874}#
- #{vals 875}#
- #{body 876}#)
+ (lambda (#{src 884}#
+ #{in-order? 885}#
+ #{names 886}#
+ #{gensyms 887}#
+ #{vals 888}#
+ #{body 889}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 871}#
- #{in-order? 872}#
- #{names 873}#
- #{gensyms 874}#
- #{vals 875}#
- #{body 876}#)))
+ #{src 884}#
+ #{in-order? 885}#
+ #{names 886}#
+ #{gensyms 887}#
+ #{vals 888}#
+ #{body 889}#)))
(#{make-dynlet 237}#
- (lambda (#{src 883}#
- #{fluids 884}#
- #{vals 885}#
- #{body 886}#)
+ (lambda (#{src 896}#
+ #{fluids 897}#
+ #{vals 898}#
+ #{body 899}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 883}#
- #{fluids 884}#
- #{vals 885}#
- #{body 886}#)))
+ #{src 896}#
+ #{fluids 897}#
+ #{vals 898}#
+ #{body 899}#)))
(#{lambda? 240}#
- (lambda (#{x 891}#)
- (if (struct? #{x 891}#)
- (eq? (struct-vtable #{x 891}#)
+ (lambda (#{x 904}#)
+ (if (struct? #{x 904}#)
+ (eq? (struct-vtable #{x 904}#)
(vector-ref %expanded-vtables 13))
#f)))
(#{lambda-meta 242}#
- (lambda (#{x 895}#) (struct-ref #{x 895}# 1)))
+ (lambda (#{x 908}#) (struct-ref #{x 908}# 1)))
(#{set-lambda-meta! 244}#
- (lambda (#{x 897}# #{v 898}#)
- (struct-set! #{x 897}# 1 #{v 898}#)))
+ (lambda (#{x 910}# #{v 911}#)
+ (struct-set! #{x 910}# 1 #{v 911}#)))
(#{top-level-eval-hook 250}#
- (lambda (#{x 901}# #{mod 902}#)
- (primitive-eval #{x 901}#)))
+ (lambda (#{x 914}# #{mod 915}#)
+ (primitive-eval #{x 914}#)))
(#{local-eval-hook 252}#
- (lambda (#{x 905}# #{mod 906}#)
- (primitive-eval #{x 905}#)))
- (#{put-global-definition-hook 255}#
- (lambda (#{symbol 909}# #{type 910}# #{val 911}#)
+ (lambda (#{x 918}# #{mod 919}#)
+ (primitive-eval #{x 918}#)))
+ (#{put-global-definition-hook 256}#
+ (lambda (#{symbol 922}# #{type 923}# #{val 924}#)
(module-define!
(current-module)
- #{symbol 909}#
+ #{symbol 922}#
(make-syntax-transformer
- #{symbol 909}#
- #{type 910}#
- #{val 911}#))))
- (#{get-global-definition-hook 257}#
- (lambda (#{symbol 915}# #{module 916}#)
+ #{symbol 922}#
+ #{type 923}#
+ #{val 924}#))))
+ (#{get-global-definition-hook 258}#
+ (lambda (#{symbol 928}# #{module 929}#)
(begin
- (if (if (not #{module 916}#) (current-module) #f)
+ (if (if (not #{module 929}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol 915}#))
+ #{symbol 928}#))
(begin
- (let ((#{v 922}# (module-variable
- (if #{module 916}#
- (resolve-module (cdr #{module 916}#))
+ (let ((#{v 935}# (module-variable
+ (if #{module 929}#
+ (resolve-module (cdr #{module 929}#))
(current-module))
- #{symbol 915}#)))
- (if #{v 922}#
- (if (variable-bound? #{v 922}#)
+ #{symbol 928}#)))
+ (if #{v 935}#
+ (if (variable-bound? #{v 935}#)
(begin
- (let ((#{val 927}# (variable-ref #{v 922}#)))
- (if (macro? #{val 927}#)
- (if (macro-type #{val 927}#)
- (cons (macro-type #{val 927}#)
- (macro-binding #{val 927}#))
+ (let ((#{val 940}# (variable-ref #{v 935}#)))
+ (if (macro? #{val 940}#)
+ (if (macro-type #{val 940}#)
+ (cons (macro-type #{val 940}#)
+ (macro-binding #{val 940}#))
#f)
#f)))
#f)
#f))))))
- (#{decorate-source 259}#
- (lambda (#{e 931}# #{s 932}#)
+ (#{decorate-source 260}#
+ (lambda (#{e 944}# #{s 945}#)
(begin
- (if (if (pair? #{e 931}#) #{s 932}# #f)
- (set-source-properties! #{e 931}# #{s 932}#))
- #{e 931}#)))
- (#{maybe-name-value! 261}#
- (lambda (#{name 937}# #{val 938}#)
- (if (#{lambda? 240}# #{val 938}#)
+ (if (if (pair? #{e 944}#) #{s 945}# #f)
+ (set-source-properties! #{e 944}# #{s 945}#))
+ #{e 944}#)))
+ (#{maybe-name-value! 262}#
+ (lambda (#{name 950}# #{val 951}#)
+ (if (#{lambda? 240}# #{val 951}#)
(begin
- (let ((#{meta 942}# (#{lambda-meta 242}# #{val 938}#)))
- (if (not (assq 'name #{meta 942}#))
+ (let ((#{meta 955}# (#{lambda-meta 242}# #{val 951}#)))
+ (if (not (assq 'name #{meta 955}#))
(#{set-lambda-meta! 244}#
- #{val 938}#
- (cons (cons 'name #{name 937}#) #{meta 942}#))))))))
- (#{build-void 263}#
- (lambda (#{source 943}#)
- (#{make-void 203}# #{source 943}#)))
- (#{build-application 265}#
- (lambda (#{source 945}# #{fun-exp 946}# #{arg-exps 947}#)
+ #{val 951}#
+ (cons (cons 'name #{name 950}#) #{meta 955}#))))))))
+ (#{build-void 264}#
+ (lambda (#{source 956}#)
+ (#{make-void 203}# #{source 956}#)))
+ (#{build-application 266}#
+ (lambda (#{source 958}# #{fun-exp 959}# #{arg-exps 960}#)
(#{make-application 225}#
- #{source 945}#
- #{fun-exp 946}#
- #{arg-exps 947}#)))
- (#{build-conditional 267}#
- (lambda (#{source 951}#
- #{test-exp 952}#
- #{then-exp 953}#
- #{else-exp 954}#)
+ #{source 958}#
+ #{fun-exp 959}#
+ #{arg-exps 960}#)))
+ (#{build-conditional 268}#
+ (lambda (#{source 964}#
+ #{test-exp 965}#
+ #{then-exp 966}#
+ #{else-exp 967}#)
(#{make-conditional 223}#
- #{source 951}#
- #{test-exp 952}#
- #{then-exp 953}#
- #{else-exp 954}#)))
- (#{build-dynlet 269}#
- (lambda (#{source 959}#
- #{fluids 960}#
- #{vals 961}#
- #{body 962}#)
+ #{source 964}#
+ #{test-exp 965}#
+ #{then-exp 966}#
+ #{else-exp 967}#)))
+ (#{build-dynlet 270}#
+ (lambda (#{source 972}#
+ #{fluids 973}#
+ #{vals 974}#
+ #{body 975}#)
(#{make-dynlet 237}#
- #{source 959}#
- #{fluids 960}#
- #{vals 961}#
- #{body 962}#)))
- (#{build-lexical-reference 271}#
- (lambda (#{type 967}#
- #{source 968}#
- #{name 969}#
- #{var 970}#)
+ #{source 972}#
+ #{fluids 973}#
+ #{vals 974}#
+ #{body 975}#)))
+ (#{build-lexical-reference 272}#
+ (lambda (#{type 980}#
+ #{source 981}#
+ #{name 982}#
+ #{var 983}#)
(#{make-lexical-ref 209}#
- #{source 968}#
- #{name 969}#
- #{var 970}#)))
- (#{build-lexical-assignment 273}#
- (lambda (#{source 975}#
- #{name 976}#
- #{var 977}#
- #{exp 978}#)
+ #{source 981}#
+ #{name 982}#
+ #{var 983}#)))
+ (#{build-lexical-assignment 274}#
+ (lambda (#{source 988}#
+ #{name 989}#
+ #{var 990}#
+ #{exp 991}#)
(begin
- (#{maybe-name-value! 261}#
- #{name 976}#
- #{exp 978}#)
+ (#{maybe-name-value! 262}#
+ #{name 989}#
+ #{exp 991}#)
(#{make-lexical-set 211}#
- #{source 975}#
- #{name 976}#
- #{var 977}#
- #{exp 978}#))))
- (#{analyze-variable 275}#
- (lambda (#{mod 983}#
- #{var 984}#
- #{modref-cont 985}#
- #{bare-cont 986}#)
- (if (not #{mod 983}#)
- (#{bare-cont 986}# #{var 984}#)
+ #{source 988}#
+ #{name 989}#
+ #{var 990}#
+ #{exp 991}#))))
+ (#{analyze-variable 276}#
+ (lambda (#{mod 996}#
+ #{var 997}#
+ #{modref-cont 998}#
+ #{bare-cont 999}#)
+ (if (not #{mod 996}#)
+ (#{bare-cont 999}# #{var 997}#)
(begin
- (let ((#{kind 993}# (car #{mod 983}#))
- (#{mod 994}# (cdr #{mod 983}#)))
- (if (eqv? #{kind 993}# 'public)
- (#{modref-cont 985}# #{mod 994}# #{var 984}# #t)
- (if (eqv? #{kind 993}# 'private)
+ (let ((#{kind 1006}# (car #{mod 996}#))
+ (#{mod 1007}# (cdr #{mod 996}#)))
+ (if (eqv? #{kind 1006}# 'public)
+ (#{modref-cont 998}# #{mod 1007}# #{var 997}# #t)
+ (if (eqv? #{kind 1006}# 'private)
(if (not (equal?
- #{mod 994}#
+ #{mod 1007}#
(module-name (current-module))))
- (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
- (#{bare-cont 986}# #{var 984}#))
- (if (eqv? #{kind 993}# 'bare)
- (#{bare-cont 986}# #{var 984}#)
- (if (eqv? #{kind 993}# 'hygiene)
+ (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f)
+ (#{bare-cont 999}# #{var 997}#))
+ (if (eqv? #{kind 1006}# 'bare)
+ (#{bare-cont 999}# #{var 997}#)
+ (if (eqv? #{kind 1006}# 'hygiene)
(if (if (not (equal?
- #{mod 994}#
+ #{mod 1007}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 994}#)
- #{var 984}#)
+ (resolve-module #{mod 1007}#)
+ #{var 997}#)
#f)
- (#{modref-cont 985}# #{mod 994}# #{var 984}# #f)
- (#{bare-cont 986}# #{var 984}#))
+ (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f)
+ (#{bare-cont 999}# #{var 997}#))
(syntax-violation
#f
"bad module kind"
- #{var 984}#
- #{mod 994}#))))))))))
- (#{build-global-reference 277}#
- (lambda (#{source 1002}# #{var 1003}# #{mod 1004}#)
- (#{analyze-variable 275}#
- #{mod 1004}#
- #{var 1003}#
- (lambda (#{mod 1008}# #{var 1009}# #{public? 1010}#)
+ #{var 997}#
+ #{mod 1007}#))))))))))
+ (#{build-global-reference 278}#
+ (lambda (#{source 1015}# #{var 1016}# #{mod 1017}#)
+ (#{analyze-variable 276}#
+ #{mod 1017}#
+ #{var 1016}#
+ (lambda (#{mod 1021}# #{var 1022}# #{public? 1023}#)
(#{make-module-ref 213}#
- #{source 1002}#
- #{mod 1008}#
- #{var 1009}#
- #{public? 1010}#))
- (lambda (#{var 1014}#)
+ #{source 1015}#
+ #{mod 1021}#
+ #{var 1022}#
+ #{public? 1023}#))
+ (lambda (#{var 1027}#)
(#{make-toplevel-ref 217}#
- #{source 1002}#
- #{var 1014}#)))))
- (#{build-global-assignment 279}#
- (lambda (#{source 1016}#
- #{var 1017}#
- #{exp 1018}#
- #{mod 1019}#)
+ #{source 1015}#
+ #{var 1027}#)))))
+ (#{build-global-assignment 280}#
+ (lambda (#{source 1029}#
+ #{var 1030}#
+ #{exp 1031}#
+ #{mod 1032}#)
(begin
- (#{maybe-name-value! 261}#
- #{var 1017}#
- #{exp 1018}#)
- (#{analyze-variable 275}#
- #{mod 1019}#
- #{var 1017}#
- (lambda (#{mod 1024}# #{var 1025}# #{public? 1026}#)
+ (#{maybe-name-value! 262}#
+ #{var 1030}#
+ #{exp 1031}#)
+ (#{analyze-variable 276}#
+ #{mod 1032}#
+ #{var 1030}#
+ (lambda (#{mod 1037}# #{var 1038}# #{public? 1039}#)
(#{make-module-set 215}#
- #{source 1016}#
- #{mod 1024}#
- #{var 1025}#
- #{public? 1026}#
- #{exp 1018}#))
- (lambda (#{var 1030}#)
+ #{source 1029}#
+ #{mod 1037}#
+ #{var 1038}#
+ #{public? 1039}#
+ #{exp 1031}#))
+ (lambda (#{var 1043}#)
(#{make-toplevel-set 219}#
- #{source 1016}#
- #{var 1030}#
- #{exp 1018}#))))))
- (#{build-global-definition 281}#
- (lambda (#{source 1032}# #{var 1033}# #{exp 1034}#)
+ #{source 1029}#
+ #{var 1043}#
+ #{exp 1031}#))))))
+ (#{build-global-definition 282}#
+ (lambda (#{source 1045}# #{var 1046}# #{exp 1047}#)
(begin
- (#{maybe-name-value! 261}#
- #{var 1033}#
- #{exp 1034}#)
+ (#{maybe-name-value! 262}#
+ #{var 1046}#
+ #{exp 1047}#)
(#{make-toplevel-define 221}#
- #{source 1032}#
- #{var 1033}#
- #{exp 1034}#))))
- (#{build-simple-lambda 283}#
- (lambda (#{src 1038}#
- #{req 1039}#
- #{rest 1040}#
- #{vars 1041}#
- #{meta 1042}#
- #{exp 1043}#)
+ #{source 1045}#
+ #{var 1046}#
+ #{exp 1047}#))))
+ (#{build-simple-lambda 284}#
+ (lambda (#{src 1051}#
+ #{req 1052}#
+ #{rest 1053}#
+ #{vars 1054}#
+ #{meta 1055}#
+ #{exp 1056}#)
(#{make-lambda 229}#
- #{src 1038}#
- #{meta 1042}#
+ #{src 1051}#
+ #{meta 1055}#
(#{make-lambda-case 231}#
- #{src 1038}#
- #{req 1039}#
+ #{src 1051}#
+ #{req 1052}#
#f
- #{rest 1040}#
+ #{rest 1053}#
#f
'()
- #{vars 1041}#
- #{exp 1043}#
+ #{vars 1054}#
+ #{exp 1056}#
#f))))
- (#{build-case-lambda 285}#
- (lambda (#{src 1050}# #{meta 1051}# #{body 1052}#)
+ (#{build-case-lambda 286}#
+ (lambda (#{src 1063}# #{meta 1064}# #{body 1065}#)
(#{make-lambda 229}#
- #{src 1050}#
- #{meta 1051}#
- #{body 1052}#)))
- (#{build-lambda-case 287}#
- (lambda (#{src 1056}#
- #{req 1057}#
- #{opt 1058}#
- #{rest 1059}#
- #{kw 1060}#
- #{inits 1061}#
- #{vars 1062}#
- #{body 1063}#
- #{else-case 1064}#)
+ #{src 1063}#
+ #{meta 1064}#
+ #{body 1065}#)))
+ (#{build-lambda-case 288}#
+ (lambda (#{src 1069}#
+ #{req 1070}#
+ #{opt 1071}#
+ #{rest 1072}#
+ #{kw 1073}#
+ #{inits 1074}#
+ #{vars 1075}#
+ #{body 1076}#
+ #{else-case 1077}#)
(#{make-lambda-case 231}#
- #{src 1056}#
- #{req 1057}#
- #{opt 1058}#
- #{rest 1059}#
- #{kw 1060}#
- #{inits 1061}#
- #{vars 1062}#
- #{body 1063}#
- #{else-case 1064}#)))
- (#{build-primref 289}#
- (lambda (#{src 1074}# #{name 1075}#)
+ #{src 1069}#
+ #{req 1070}#
+ #{opt 1071}#
+ #{rest 1072}#
+ #{kw 1073}#
+ #{inits 1074}#
+ #{vars 1075}#
+ #{body 1076}#
+ #{else-case 1077}#)))
+ (#{build-primref 290}#
+ (lambda (#{src 1087}# #{name 1088}#)
(if (equal? (module-name (current-module)) '(guile))
(#{make-toplevel-ref 217}#
- #{src 1074}#
- #{name 1075}#)
+ #{src 1087}#
+ #{name 1088}#)
(#{make-module-ref 213}#
- #{src 1074}#
+ #{src 1087}#
'(guile)
- #{name 1075}#
+ #{name 1088}#
#f))))
- (#{build-data 291}#
- (lambda (#{src 1078}# #{exp 1079}#)
- (#{make-const 205}# #{src 1078}# #{exp 1079}#)))
- (#{build-sequence 293}#
- (lambda (#{src 1082}# #{exps 1083}#)
- (if (null? (cdr #{exps 1083}#))
- (car #{exps 1083}#)
+ (#{build-data 292}#
+ (lambda (#{src 1091}# #{exp 1092}#)
+ (#{make-const 205}# #{src 1091}# #{exp 1092}#)))
+ (#{build-sequence 294}#
+ (lambda (#{src 1095}# #{exps 1096}#)
+ (if (null? (cdr #{exps 1096}#))
+ (car #{exps 1096}#)
(#{make-sequence 227}#
- #{src 1082}#
- #{exps 1083}#))))
- (#{build-let 295}#
- (lambda (#{src 1086}#
- #{ids 1087}#
- #{vars 1088}#
- #{val-exps 1089}#
- #{body-exp 1090}#)
+ #{src 1095}#
+ #{exps 1096}#))))
+ (#{build-let 296}#
+ (lambda (#{src 1099}#
+ #{ids 1100}#
+ #{vars 1101}#
+ #{val-exps 1102}#
+ #{body-exp 1103}#)
(begin
(for-each
- #{maybe-name-value! 261}#
- #{ids 1087}#
- #{val-exps 1089}#)
- (if (null? #{vars 1088}#)
- #{body-exp 1090}#
+ #{maybe-name-value! 262}#
+ #{ids 1100}#
+ #{val-exps 1102}#)
+ (if (null? #{vars 1101}#)
+ #{body-exp 1103}#
(#{make-let 233}#
- #{src 1086}#
- #{ids 1087}#
- #{vars 1088}#
- #{val-exps 1089}#
- #{body-exp 1090}#)))))
- (#{build-named-let 297}#
- (lambda (#{src 1096}#
- #{ids 1097}#
- #{vars 1098}#
- #{val-exps 1099}#
- #{body-exp 1100}#)
+ #{src 1099}#
+ #{ids 1100}#
+ #{vars 1101}#
+ #{val-exps 1102}#
+ #{body-exp 1103}#)))))
+ (#{build-named-let 298}#
+ (lambda (#{src 1109}#
+ #{ids 1110}#
+ #{vars 1111}#
+ #{val-exps 1112}#
+ #{body-exp 1113}#)
(begin
- (let ((#{f 1110}# (car #{vars 1098}#))
- (#{f-name 1111}# (car #{ids 1097}#))
- (#{vars 1112}# (cdr #{vars 1098}#))
- (#{ids 1113}# (cdr #{ids 1097}#)))
+ (let ((#{f 1123}# (car #{vars 1111}#))
+ (#{f-name 1124}# (car #{ids 1110}#))
+ (#{vars 1125}# (cdr #{vars 1111}#))
+ (#{ids 1126}# (cdr #{ids 1110}#)))
(begin
- (let ((#{proc 1115}#
- (#{build-simple-lambda 283}#
- #{src 1096}#
- #{ids 1113}#
+ (let ((#{proc 1128}#
+ (#{build-simple-lambda 284}#
+ #{src 1109}#
+ #{ids 1126}#
#f
- #{vars 1112}#
+ #{vars 1125}#
'()
- #{body-exp 1100}#)))
+ #{body-exp 1113}#)))
(begin
- (#{maybe-name-value! 261}#
- #{f-name 1111}#
- #{proc 1115}#)
+ (#{maybe-name-value! 262}#
+ #{f-name 1124}#
+ #{proc 1128}#)
(for-each
- #{maybe-name-value! 261}#
- #{ids 1113}#
- #{val-exps 1099}#)
+ #{maybe-name-value! 262}#
+ #{ids 1126}#
+ #{val-exps 1112}#)
(#{make-letrec 235}#
- #{src 1096}#
+ #{src 1109}#
#f
- (list #{f-name 1111}#)
- (list #{f 1110}#)
- (list #{proc 1115}#)
- (#{build-application 265}#
- #{src 1096}#
- (#{build-lexical-reference 271}#
+ (list #{f-name 1124}#)
+ (list #{f 1123}#)
+ (list #{proc 1128}#)
+ (#{build-application 266}#
+ #{src 1109}#
+ (#{build-lexical-reference 272}#
'fun
- #{src 1096}#
- #{f-name 1111}#
- #{f 1110}#)
- #{val-exps 1099}#)))))))))
- (#{build-letrec 299}#
- (lambda (#{src 1116}#
- #{in-order? 1117}#
- #{ids 1118}#
- #{vars 1119}#
- #{val-exps 1120}#
- #{body-exp 1121}#)
- (if (null? #{vars 1119}#)
- #{body-exp 1121}#
+ #{src 1109}#
+ #{f-name 1124}#
+ #{f 1123}#)
+ #{val-exps 1112}#)))))))))
+ (#{build-letrec 300}#
+ (lambda (#{src 1129}#
+ #{in-order? 1130}#
+ #{ids 1131}#
+ #{vars 1132}#
+ #{val-exps 1133}#
+ #{body-exp 1134}#)
+ (if (null? #{vars 1132}#)
+ #{body-exp 1134}#
(begin
(for-each
- #{maybe-name-value! 261}#
- #{ids 1118}#
- #{val-exps 1120}#)
+ #{maybe-name-value! 262}#
+ #{ids 1131}#
+ #{val-exps 1133}#)
(#{make-letrec 235}#
- #{src 1116}#
- #{in-order? 1117}#
- #{ids 1118}#
- #{vars 1119}#
- #{val-exps 1120}#
- #{body-exp 1121}#)))))
- (#{make-syntax-object 303}#
- (lambda (#{expression 1128}#
- #{wrap 1129}#
- #{module 1130}#)
+ #{src 1129}#
+ #{in-order? 1130}#
+ #{ids 1131}#
+ #{vars 1132}#
+ #{val-exps 1133}#
+ #{body-exp 1134}#)))))
+ (#{make-syntax-object 305}#
+ (lambda (#{expression 1141}#
+ #{wrap 1142}#
+ #{module 1143}#)
(vector
'syntax-object
- #{expression 1128}#
- #{wrap 1129}#
- #{module 1130}#)))
- (#{syntax-object? 305}#
- (lambda (#{x 1134}#)
- (if (vector? #{x 1134}#)
- (if (= (vector-length #{x 1134}#) 4)
- (eq? (vector-ref #{x 1134}# 0) 'syntax-object)
+ #{expression 1141}#
+ #{wrap 1142}#
+ #{module 1143}#)))
+ (#{syntax-object? 307}#
+ (lambda (#{x 1147}#)
+ (if (vector? #{x 1147}#)
+ (if (= (vector-length #{x 1147}#) 4)
+ (eq? (vector-ref #{x 1147}# 0) 'syntax-object)
#f)
#f)))
- (#{syntax-object-expression 307}#
- (lambda (#{x 1139}#) (vector-ref #{x 1139}# 1)))
- (#{syntax-object-wrap 309}#
- (lambda (#{x 1141}#) (vector-ref #{x 1141}# 2)))
- (#{syntax-object-module 311}#
- (lambda (#{x 1143}#) (vector-ref #{x 1143}# 3)))
- (#{source-annotation 320}#
- (lambda (#{x 1157}#)
- (if (#{syntax-object? 305}# #{x 1157}#)
- (#{source-annotation 320}#
- (#{syntax-object-expression 307}# #{x 1157}#))
- (if (pair? #{x 1157}#)
+ (#{syntax-object-expression 309}#
+ (lambda (#{x 1152}#) (vector-ref #{x 1152}# 1)))
+ (#{syntax-object-wrap 311}#
+ (lambda (#{x 1154}#) (vector-ref #{x 1154}# 2)))
+ (#{syntax-object-module 313}#
+ (lambda (#{x 1156}#) (vector-ref #{x 1156}# 3)))
+ (#{source-annotation 322}#
+ (lambda (#{x 1170}#)
+ (if (#{syntax-object? 307}# #{x 1170}#)
+ (#{source-annotation 322}#
+ (#{syntax-object-expression 309}# #{x 1170}#))
+ (if (pair? #{x 1170}#)
(begin
- (let ((#{props 1164}# (source-properties #{x 1157}#)))
- (if (pair? #{props 1164}#) #{props 1164}# #f)))
+ (let ((#{props 1177}# (source-properties #{x 1170}#)))
+ (if (pair? #{props 1177}#) #{props 1177}# #f)))
#f))))
- (#{extend-env 327}#
- (lambda (#{labels 1166}# #{bindings 1167}# #{r 1168}#)
- (if (null? #{labels 1166}#)
- #{r 1168}#
- (#{extend-env 327}#
- (cdr #{labels 1166}#)
- (cdr #{bindings 1167}#)
- (cons (cons (car #{labels 1166}#)
- (car #{bindings 1167}#))
- #{r 1168}#)))))
- (#{extend-var-env 329}#
- (lambda (#{labels 1172}# #{vars 1173}# #{r 1174}#)
- (if (null? #{labels 1172}#)
- #{r 1174}#
- (#{extend-var-env 329}#
- (cdr #{labels 1172}#)
- (cdr #{vars 1173}#)
- (cons (cons (car #{labels 1172}#)
- (cons 'lexical (car #{vars 1173}#)))
- #{r 1174}#)))))
- (#{macros-only-env 331}#
- (lambda (#{r 1179}#)
- (if (null? #{r 1179}#)
+ (#{extend-env 332}#
+ (lambda (#{labels 1179}# #{bindings 1180}# #{r 1181}#)
+ (if (null? #{labels 1179}#)
+ #{r 1181}#
+ (#{extend-env 332}#
+ (cdr #{labels 1179}#)
+ (cdr #{bindings 1180}#)
+ (cons (cons (car #{labels 1179}#)
+ (car #{bindings 1180}#))
+ #{r 1181}#)))))
+ (#{extend-var-env 334}#
+ (lambda (#{labels 1185}# #{vars 1186}# #{r 1187}#)
+ (if (null? #{labels 1185}#)
+ #{r 1187}#
+ (#{extend-var-env 334}#
+ (cdr #{labels 1185}#)
+ (cdr #{vars 1186}#)
+ (cons (cons (car #{labels 1185}#)
+ (cons 'lexical (car #{vars 1186}#)))
+ #{r 1187}#)))))
+ (#{macros-only-env 336}#
+ (lambda (#{r 1192}#)
+ (if (null? #{r 1192}#)
'()
(begin
- (let ((#{a 1182}# (car #{r 1179}#)))
- (if (eq? (car (cdr #{a 1182}#)) 'macro)
- (cons #{a 1182}#
- (#{macros-only-env 331}# (cdr #{r 1179}#)))
- (#{macros-only-env 331}# (cdr #{r 1179}#))))))))
- (#{lookup 333}#
- (lambda (#{x 1183}# #{r 1184}# #{mod 1185}#)
+ (let ((#{a 1195}# (car #{r 1192}#)))
+ (if (eq? (car (cdr #{a 1195}#)) 'macro)
+ (cons #{a 1195}#
+ (#{macros-only-env 336}# (cdr #{r 1192}#)))
+ (#{macros-only-env 336}# (cdr #{r 1192}#))))))))
+ (#{lookup 338}#
+ (lambda (#{x 1196}# #{r 1197}# #{mod 1198}#)
(begin
- (let ((#{t 1191}# (assq #{x 1183}# #{r 1184}#)))
- (if #{t 1191}#
- (cdr #{t 1191}#)
- (if (symbol? #{x 1183}#)
+ (let ((#{t 1204}# (assq #{x 1196}# #{r 1197}#)))
+ (if #{t 1204}#
+ (cdr #{t 1204}#)
+ (if (symbol? #{x 1196}#)
(begin
- (let ((#{t 1197}#
- (#{get-global-definition-hook 257}#
- #{x 1183}#
- #{mod 1185}#)))
- (if #{t 1197}# #{t 1197}# '(global))))
+ (let ((#{t 1210}#
+ (#{get-global-definition-hook 258}#
+ #{x 1196}#
+ #{mod 1198}#)))
+ (if #{t 1210}# #{t 1210}# '(global))))
'(displaced-lexical)))))))
- (#{global-extend 335}#
- (lambda (#{type 1202}# #{sym 1203}# #{val 1204}#)
- (#{put-global-definition-hook 255}#
- #{sym 1203}#
- #{type 1202}#
- #{val 1204}#)))
- (#{nonsymbol-id? 337}#
- (lambda (#{x 1208}#)
- (if (#{syntax-object? 305}# #{x 1208}#)
+ (#{global-extend 340}#
+ (lambda (#{type 1215}# #{sym 1216}# #{val 1217}#)
+ (#{put-global-definition-hook 256}#
+ #{sym 1216}#
+ #{type 1215}#
+ #{val 1217}#)))
+ (#{nonsymbol-id? 342}#
+ (lambda (#{x 1221}#)
+ (if (#{syntax-object? 307}# #{x 1221}#)
(symbol?
- (#{syntax-object-expression 307}# #{x 1208}#))
+ (#{syntax-object-expression 309}# #{x 1221}#))
#f)))
- (#{id? 339}#
- (lambda (#{x 1212}#)
- (if (symbol? #{x 1212}#)
+ (#{id? 344}#
+ (lambda (#{x 1225}#)
+ (if (symbol? #{x 1225}#)
#t
- (if (#{syntax-object? 305}# #{x 1212}#)
+ (if (#{syntax-object? 307}# #{x 1225}#)
(symbol?
- (#{syntax-object-expression 307}# #{x 1212}#))
+ (#{syntax-object-expression 309}# #{x 1225}#))
#f))))
- (#{id-sym-name&marks 342}#
- (lambda (#{x 1219}# #{w 1220}#)
- (if (#{syntax-object? 305}# #{x 1219}#)
+ (#{id-sym-name&marks 348}#
+ (lambda (#{x 1232}# #{w 1233}#)
+ (if (#{syntax-object? 307}# #{x 1232}#)
(values
- (#{syntax-object-expression 307}# #{x 1219}#)
- (#{join-marks 389}#
- (car #{w 1220}#)
- (car (#{syntax-object-wrap 309}# #{x 1219}#))))
- (values #{x 1219}# (car #{w 1220}#)))))
- (#{gen-label 352}#
+ (#{syntax-object-expression 309}# #{x 1232}#)
+ (#{join-marks 402}#
+ (car #{w 1233}#)
+ (car (#{syntax-object-wrap 311}# #{x 1232}#))))
+ (values #{x 1232}# (car #{w 1233}#)))))
+ (#{gen-label 362}#
(lambda () (symbol->string (gensym "i"))))
- (#{gen-labels 354}#
- (lambda (#{ls 1226}#)
- (if (null? #{ls 1226}#)
+ (#{gen-labels 364}#
+ (lambda (#{ls 1239}#)
+ (if (null? #{ls 1239}#)
'()
- (cons (#{gen-label 352}#)
- (#{gen-labels 354}# (cdr #{ls 1226}#))))))
- (#{make-ribcage 357}#
- (lambda (#{symnames 1228}#
- #{marks 1229}#
- #{labels 1230}#)
+ (cons (#{gen-label 362}#)
+ (#{gen-labels 364}# (cdr #{ls 1239}#))))))
+ (#{make-ribcage 367}#
+ (lambda (#{symnames 1241}#
+ #{marks 1242}#
+ #{labels 1243}#)
(vector
'ribcage
- #{symnames 1228}#
- #{marks 1229}#
- #{labels 1230}#)))
- (#{ribcage-symnames 361}#
- (lambda (#{x 1239}#) (vector-ref #{x 1239}# 1)))
- (#{ribcage-marks 363}#
- (lambda (#{x 1241}#) (vector-ref #{x 1241}# 2)))
- (#{ribcage-labels 365}#
- (lambda (#{x 1243}#) (vector-ref #{x 1243}# 3)))
- (#{set-ribcage-symnames! 367}#
- (lambda (#{x 1245}# #{update 1246}#)
- (vector-set! #{x 1245}# 1 #{update 1246}#)))
- (#{set-ribcage-marks! 369}#
- (lambda (#{x 1249}# #{update 1250}#)
- (vector-set! #{x 1249}# 2 #{update 1250}#)))
- (#{set-ribcage-labels! 371}#
- (lambda (#{x 1253}# #{update 1254}#)
- (vector-set! #{x 1253}# 3 #{update 1254}#)))
- (#{anti-mark 377}#
- (lambda (#{w 1257}#)
- (cons (cons #f (car #{w 1257}#))
- (cons 'shift (cdr #{w 1257}#)))))
- (#{extend-ribcage! 381}#
- (lambda (#{ribcage 1263}# #{id 1264}# #{label 1265}#)
+ #{symnames 1241}#
+ #{marks 1242}#
+ #{labels 1243}#)))
+ (#{ribcage-symnames 371}#
+ (lambda (#{x 1252}#) (vector-ref #{x 1252}# 1)))
+ (#{ribcage-marks 373}#
+ (lambda (#{x 1254}#) (vector-ref #{x 1254}# 2)))
+ (#{ribcage-labels 375}#
+ (lambda (#{x 1256}#) (vector-ref #{x 1256}# 3)))
+ (#{set-ribcage-symnames! 377}#
+ (lambda (#{x 1258}# #{update 1259}#)
+ (vector-set! #{x 1258}# 1 #{update 1259}#)))
+ (#{set-ribcage-marks! 379}#
+ (lambda (#{x 1262}# #{update 1263}#)
+ (vector-set! #{x 1262}# 2 #{update 1263}#)))
+ (#{set-ribcage-labels! 381}#
+ (lambda (#{x 1266}# #{update 1267}#)
+ (vector-set! #{x 1266}# 3 #{update 1267}#)))
+ (#{anti-mark 388}#
+ (lambda (#{w 1270}#)
+ (cons (cons #f (car #{w 1270}#))
+ (cons 'shift (cdr #{w 1270}#)))))
+ (#{extend-ribcage! 394}#
+ (lambda (#{ribcage 1276}# #{id 1277}# #{label 1278}#)
(begin
- (#{set-ribcage-symnames! 367}#
- #{ribcage 1263}#
- (cons (#{syntax-object-expression 307}# #{id 1264}#)
- (#{ribcage-symnames 361}# #{ribcage 1263}#)))
- (#{set-ribcage-marks! 369}#
- #{ribcage 1263}#
- (cons (car (#{syntax-object-wrap 309}# #{id 1264}#))
- (#{ribcage-marks 363}# #{ribcage 1263}#)))
- (#{set-ribcage-labels! 371}#
- #{ribcage 1263}#
- (cons #{label 1265}#
- (#{ribcage-labels 365}# #{ribcage 1263}#))))))
- (#{make-binding-wrap 383}#
- (lambda (#{ids 1270}# #{labels 1271}# #{w 1272}#)
- (if (null? #{ids 1270}#)
- #{w 1272}#
- (cons (car #{w 1272}#)
+ (#{set-ribcage-symnames! 377}#
+ #{ribcage 1276}#
+ (cons (#{syntax-object-expression 309}# #{id 1277}#)
+ (#{ribcage-symnames 371}# #{ribcage 1276}#)))
+ (#{set-ribcage-marks! 379}#
+ #{ribcage 1276}#
+ (cons (car (#{syntax-object-wrap 311}# #{id 1277}#))
+ (#{ribcage-marks 373}# #{ribcage 1276}#)))
+ (#{set-ribcage-labels! 381}#
+ #{ribcage 1276}#
+ (cons #{label 1278}#
+ (#{ribcage-labels 375}# #{ribcage 1276}#))))))
+ (#{make-binding-wrap 396}#
+ (lambda (#{ids 1283}# #{labels 1284}# #{w 1285}#)
+ (if (null? #{ids 1283}#)
+ #{w 1285}#
+ (cons (car #{w 1285}#)
(cons (begin
- (let ((#{labelvec 1279}#
- (list->vector #{labels 1271}#)))
+ (let ((#{labelvec 1292}#
+ (list->vector #{labels 1284}#)))
(begin
- (let ((#{n 1281}#
- (vector-length #{labelvec 1279}#)))
+ (let ((#{n 1294}#
+ (vector-length #{labelvec 1292}#)))
(begin
- (let ((#{symnamevec 1284}#
- (make-vector #{n 1281}#))
- (#{marksvec 1285}#
- (make-vector #{n 1281}#)))
+ (let ((#{symnamevec 1297}#
+ (make-vector #{n 1294}#))
+ (#{marksvec 1298}#
+ (make-vector #{n 1294}#)))
(begin
(letrec*
- ((#{f 1289}#
- (lambda (#{ids 1290}# #{i 1291}#)
- (if (not (null? #{ids 1290}#))
+ ((#{f 1302}#
+ (lambda (#{ids 1303}# #{i 1304}#)
+ (if (not (null? #{ids 1303}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks 342}#
- (car #{ids 1290}#)
- #{w 1272}#))
- (lambda (#{symname 1292}#
- #{marks 1293}#)
+ (#{id-sym-name&marks 348}#
+ (car #{ids 1303}#)
+ #{w 1285}#))
+ (lambda (#{symname 1305}#
+ #{marks 1306}#)
(begin
(vector-set!
- #{symnamevec 1284}#
- #{i 1291}#
- #{symname 1292}#)
+ #{symnamevec 1297}#
+ #{i 1304}#
+ #{symname 1305}#)
(vector-set!
- #{marksvec 1285}#
- #{i 1291}#
- #{marks 1293}#)
- (#{f 1289}#
- (cdr #{ids 1290}#)
- (#{1+}# #{i 1291}#)))))))))
- (begin (#{f 1289}# #{ids 1270}# 0)))
- (#{make-ribcage 357}#
- #{symnamevec 1284}#
- #{marksvec 1285}#
- #{labelvec 1279}#))))))))
- (cdr #{w 1272}#))))))
- (#{smart-append 385}#
- (lambda (#{m1 1298}# #{m2 1299}#)
- (if (null? #{m2 1299}#)
- #{m1 1298}#
- (append #{m1 1298}# #{m2 1299}#))))
- (#{join-wraps 387}#
- (lambda (#{w1 1302}# #{w2 1303}#)
+ #{marksvec 1298}#
+ #{i 1304}#
+ #{marks 1306}#)
+ (#{f 1302}#
+ (cdr #{ids 1303}#)
+ (#{1+}# #{i 1304}#)))))))))
+ (begin (#{f 1302}# #{ids 1283}# 0)))
+ (#{make-ribcage 367}#
+ #{symnamevec 1297}#
+ #{marksvec 1298}#
+ #{labelvec 1292}#))))))))
+ (cdr #{w 1285}#))))))
+ (#{smart-append 398}#
+ (lambda (#{m1 1311}# #{m2 1312}#)
+ (if (null? #{m2 1312}#)
+ #{m1 1311}#
+ (append #{m1 1311}# #{m2 1312}#))))
+ (#{join-wraps 400}#
+ (lambda (#{w1 1315}# #{w2 1316}#)
(begin
- (let ((#{m1 1308}# (car #{w1 1302}#))
- (#{s1 1309}# (cdr #{w1 1302}#)))
- (if (null? #{m1 1308}#)
- (if (null? #{s1 1309}#)
- #{w2 1303}#
- (cons (car #{w2 1303}#)
- (#{smart-append 385}#
- #{s1 1309}#
- (cdr #{w2 1303}#))))
- (cons (#{smart-append 385}#
- #{m1 1308}#
- (car #{w2 1303}#))
- (#{smart-append 385}#
- #{s1 1309}#
- (cdr #{w2 1303}#))))))))
- (#{join-marks 389}#
- (lambda (#{m1 1318}# #{m2 1319}#)
- (#{smart-append 385}# #{m1 1318}# #{m2 1319}#)))
- (#{same-marks? 391}#
- (lambda (#{x 1322}# #{y 1323}#)
+ (let ((#{m1 1321}# (car #{w1 1315}#))
+ (#{s1 1322}# (cdr #{w1 1315}#)))
+ (if (null? #{m1 1321}#)
+ (if (null? #{s1 1322}#)
+ #{w2 1316}#
+ (cons (car #{w2 1316}#)
+ (#{smart-append 398}#
+ #{s1 1322}#
+ (cdr #{w2 1316}#))))
+ (cons (#{smart-append 398}#
+ #{m1 1321}#
+ (car #{w2 1316}#))
+ (#{smart-append 398}#
+ #{s1 1322}#
+ (cdr #{w2 1316}#))))))))
+ (#{join-marks 402}#
+ (lambda (#{m1 1331}# #{m2 1332}#)
+ (#{smart-append 398}# #{m1 1331}# #{m2 1332}#)))
+ (#{same-marks? 404}#
+ (lambda (#{x 1335}# #{y 1336}#)
(begin
- (let ((#{t 1328}# (eq? #{x 1322}# #{y 1323}#)))
- (if #{t 1328}#
- #{t 1328}#
- (if (not (null? #{x 1322}#))
- (if (not (null? #{y 1323}#))
- (if (eq? (car #{x 1322}#) (car #{y 1323}#))
- (#{same-marks? 391}#
- (cdr #{x 1322}#)
- (cdr #{y 1323}#))
+ (let ((#{t 1341}# (eq? #{x 1335}# #{y 1336}#)))
+ (if #{t 1341}#
+ #{t 1341}#
+ (if (not (null? #{x 1335}#))
+ (if (not (null? #{y 1336}#))
+ (if (eq? (car #{x 1335}#) (car #{y 1336}#))
+ (#{same-marks? 404}#
+ (cdr #{x 1335}#)
+ (cdr #{y 1336}#))
#f)
#f)
#f))))))
- (#{id-var-name 393}#
- (lambda (#{id 1334}# #{w 1335}#)
+ (#{id-var-name 406}#
+ (lambda (#{id 1347}# #{w 1348}#)
(letrec*
- ((#{search 1340}#
- (lambda (#{sym 1356}# #{subst 1357}# #{marks 1358}#)
- (if (null? #{subst 1357}#)
- (values #f #{marks 1358}#)
+ ((#{search 1354}#
+ (lambda (#{sym 1370}# #{subst 1371}# #{marks 1372}#)
+ (if (null? #{subst 1371}#)
+ (values #f #{marks 1372}#)
(begin
- (let ((#{fst 1363}# (car #{subst 1357}#)))
- (if (eq? #{fst 1363}# 'shift)
- (#{search 1340}#
- #{sym 1356}#
- (cdr #{subst 1357}#)
- (cdr #{marks 1358}#))
+ (let ((#{fst 1377}# (car #{subst 1371}#)))
+ (if (eq? #{fst 1377}# 'shift)
+ (#{search 1354}#
+ #{sym 1370}#
+ (cdr #{subst 1371}#)
+ (cdr #{marks 1372}#))
(begin
- (let ((#{symnames 1365}#
- (#{ribcage-symnames 361}# #{fst 1363}#)))
- (if (vector? #{symnames 1365}#)
- (#{search-vector-rib 1344}#
- #{sym 1356}#
- #{subst 1357}#
- #{marks 1358}#
- #{symnames 1365}#
- #{fst 1363}#)
- (#{search-list-rib 1342}#
- #{sym 1356}#
- #{subst 1357}#
- #{marks 1358}#
- #{symnames 1365}#
- #{fst 1363}#))))))))))
- (#{search-list-rib 1342}#
- (lambda (#{sym 1366}#
- #{subst 1367}#
- #{marks 1368}#
- #{symnames 1369}#
- #{ribcage 1370}#)
+ (let ((#{symnames 1379}#
+ (#{ribcage-symnames 371}# #{fst 1377}#)))
+ (if (vector? #{symnames 1379}#)
+ (#{search-vector-rib 1358}#
+ #{sym 1370}#
+ #{subst 1371}#
+ #{marks 1372}#
+ #{symnames 1379}#
+ #{fst 1377}#)
+ (#{search-list-rib 1356}#
+ #{sym 1370}#
+ #{subst 1371}#
+ #{marks 1372}#
+ #{symnames 1379}#
+ #{fst 1377}#))))))))))
+ (#{search-list-rib 1356}#
+ (lambda (#{sym 1380}#
+ #{subst 1381}#
+ #{marks 1382}#
+ #{symnames 1383}#
+ #{ribcage 1384}#)
(letrec*
- ((#{f 1379}#
- (lambda (#{symnames 1380}# #{i 1381}#)
- (if (null? #{symnames 1380}#)
- (#{search 1340}#
- #{sym 1366}#
- (cdr #{subst 1367}#)
- #{marks 1368}#)
- (if (if (eq? (car #{symnames 1380}#) #{sym 1366}#)
- (#{same-marks? 391}#
- #{marks 1368}#
+ ((#{f 1393}#
+ (lambda (#{symnames 1394}# #{i 1395}#)
+ (if (null? #{symnames 1394}#)
+ (#{search 1354}#
+ #{sym 1380}#
+ (cdr #{subst 1381}#)
+ #{marks 1382}#)
+ (if (if (eq? (car #{symnames 1394}#) #{sym 1380}#)
+ (#{same-marks? 404}#
+ #{marks 1382}#
(list-ref
- (#{ribcage-marks 363}# #{ribcage 1370}#)
- #{i 1381}#))
+ (#{ribcage-marks 373}# #{ribcage 1384}#)
+ #{i 1395}#))
#f)
(values
(list-ref
- (#{ribcage-labels 365}# #{ribcage 1370}#)
- #{i 1381}#)
- #{marks 1368}#)
- (#{f 1379}#
- (cdr #{symnames 1380}#)
- (#{1+}# #{i 1381}#)))))))
- (begin (#{f 1379}# #{symnames 1369}# 0)))))
- (#{search-vector-rib 1344}#
- (lambda (#{sym 1390}#
- #{subst 1391}#
- #{marks 1392}#
- #{symnames 1393}#
- #{ribcage 1394}#)
+ (#{ribcage-labels 375}# #{ribcage 1384}#)
+ #{i 1395}#)
+ #{marks 1382}#)
+ (#{f 1393}#
+ (cdr #{symnames 1394}#)
+ (#{1+}# #{i 1395}#)))))))
+ (begin (#{f 1393}# #{symnames 1383}# 0)))))
+ (#{search-vector-rib 1358}#
+ (lambda (#{sym 1404}#
+ #{subst 1405}#
+ #{marks 1406}#
+ #{symnames 1407}#
+ #{ribcage 1408}#)
(begin
- (let ((#{n 1401}# (vector-length #{symnames 1393}#)))
+ (let ((#{n 1415}# (vector-length #{symnames 1407}#)))
(letrec*
- ((#{f 1404}#
- (lambda (#{i 1405}#)
- (if (= #{i 1405}# #{n 1401}#)
- (#{search 1340}#
- #{sym 1390}#
- (cdr #{subst 1391}#)
- #{marks 1392}#)
+ ((#{f 1418}#
+ (lambda (#{i 1419}#)
+ (if (= #{i 1419}# #{n 1415}#)
+ (#{search 1354}#
+ #{sym 1404}#
+ (cdr #{subst 1405}#)
+ #{marks 1406}#)
(if (if (eq? (vector-ref
- #{symnames 1393}#
- #{i 1405}#)
- #{sym 1390}#)
- (#{same-marks? 391}#
- #{marks 1392}#
+ #{symnames 1407}#
+ #{i 1419}#)
+ #{sym 1404}#)
+ (#{same-marks? 404}#
+ #{marks 1406}#
(vector-ref
- (#{ribcage-marks 363}# #{ribcage 1394}#)
- #{i 1405}#))
+ (#{ribcage-marks 373}# #{ribcage 1408}#)
+ #{i 1419}#))
#f)
(values
(vector-ref
- (#{ribcage-labels 365}# #{ribcage 1394}#)
- #{i 1405}#)
- #{marks 1392}#)
- (#{f 1404}# (#{1+}# #{i 1405}#)))))))
- (begin (#{f 1404}# 0))))))))
+ (#{ribcage-labels 375}# #{ribcage 1408}#)
+ #{i 1419}#)
+ #{marks 1406}#)
+ (#{f 1418}# (#{1+}# #{i 1419}#)))))))
+ (begin (#{f 1418}# 0))))))))
(begin
- (if (symbol? #{id 1334}#)
+ (if (symbol? #{id 1347}#)
(begin
- (let ((#{t 1417}#
- (#{search 1340}#
- #{id 1334}#
- (cdr #{w 1335}#)
- (car #{w 1335}#))))
- (if #{t 1417}# #{t 1417}# #{id 1334}#)))
- (if (#{syntax-object? 305}# #{id 1334}#)
+ (let ((#{t 1431}#
+ (#{search 1354}#
+ #{id 1347}#
+ (cdr #{w 1348}#)
+ (car #{w 1348}#))))
+ (if #{t 1431}# #{t 1431}# #{id 1347}#)))
+ (if (#{syntax-object? 307}# #{id 1347}#)
(begin
- (let ((#{id 1426}#
- (#{syntax-object-expression 307}# #{id 1334}#))
- (#{w1 1427}#
- (#{syntax-object-wrap 309}# #{id 1334}#)))
+ (let ((#{id 1440}#
+ (#{syntax-object-expression 309}# #{id 1347}#))
+ (#{w1 1441}#
+ (#{syntax-object-wrap 311}# #{id 1347}#)))
(begin
- (let ((#{marks 1429}#
- (#{join-marks 389}#
- (car #{w 1335}#)
- (car #{w1 1427}#))))
+ (let ((#{marks 1443}#
+ (#{join-marks 402}#
+ (car #{w 1348}#)
+ (car #{w1 1441}#))))
(call-with-values
(lambda ()
- (#{search 1340}#
- #{id 1426}#
- (cdr #{w 1335}#)
- #{marks 1429}#))
- (lambda (#{new-id 1433}# #{marks 1434}#)
+ (#{search 1354}#
+ #{id 1440}#
+ (cdr #{w 1348}#)
+ #{marks 1443}#))
+ (lambda (#{new-id 1447}# #{marks 1448}#)
(begin
- (let ((#{t 1439}# #{new-id 1433}#))
- (if #{t 1439}#
- #{t 1439}#
+ (let ((#{t 1453}# #{new-id 1447}#))
+ (if #{t 1453}#
+ #{t 1453}#
(begin
- (let ((#{t 1442}#
- (#{search 1340}#
- #{id 1426}#
- (cdr #{w1 1427}#)
- #{marks 1434}#)))
- (if #{t 1442}#
- #{t 1442}#
- #{id 1426}#))))))))))))
+ (let ((#{t 1456}#
+ (#{search 1354}#
+ #{id 1440}#
+ (cdr #{w1 1441}#)
+ #{marks 1448}#)))
+ (if #{t 1456}#
+ #{t 1456}#
+ #{id 1440}#))))))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 1334}#)))))))
- (#{free-id=? 395}#
- (lambda (#{i 1447}# #{j 1448}#)
+ #{id 1347}#)))))))
+ (#{free-id=? 408}#
+ (lambda (#{i 1461}# #{j 1462}#)
(if (eq? (begin
- (let ((#{x 1454}# #{i 1447}#))
- (if (#{syntax-object? 305}# #{x 1454}#)
- (#{syntax-object-expression 307}# #{x 1454}#)
- #{x 1454}#)))
+ (let ((#{x 1468}# #{i 1461}#))
+ (if (#{syntax-object? 307}# #{x 1468}#)
+ (#{syntax-object-expression 309}# #{x 1468}#)
+ #{x 1468}#)))
(begin
- (let ((#{x 1457}# #{j 1448}#))
- (if (#{syntax-object? 305}# #{x 1457}#)
- (#{syntax-object-expression 307}# #{x 1457}#)
- #{x 1457}#))))
- (eq? (#{id-var-name 393}# #{i 1447}# '(()))
- (#{id-var-name 393}# #{j 1448}# '(())))
+ (let ((#{x 1471}# #{j 1462}#))
+ (if (#{syntax-object? 307}# #{x 1471}#)
+ (#{syntax-object-expression 309}# #{x 1471}#)
+ #{x 1471}#))))
+ (eq? (#{id-var-name 406}# #{i 1461}# '(()))
+ (#{id-var-name 406}# #{j 1462}# '(())))
#f)))
- (#{bound-id=? 397}#
- (lambda (#{i 1461}# #{j 1462}#)
- (if (if (#{syntax-object? 305}# #{i 1461}#)
- (#{syntax-object? 305}# #{j 1462}#)
+ (#{bound-id=? 410}#
+ (lambda (#{i 1475}# #{j 1476}#)
+ (if (if (#{syntax-object? 307}# #{i 1475}#)
+ (#{syntax-object? 307}# #{j 1476}#)
#f)
- (if (eq? (#{syntax-object-expression 307}# #{i 1461}#)
- (#{syntax-object-expression 307}# #{j 1462}#))
- (#{same-marks? 391}#
- (car (#{syntax-object-wrap 309}# #{i 1461}#))
- (car (#{syntax-object-wrap 309}# #{j 1462}#)))
+ (if (eq? (#{syntax-object-expression 309}# #{i 1475}#)
+ (#{syntax-object-expression 309}# #{j 1476}#))
+ (#{same-marks? 404}#
+ (car (#{syntax-object-wrap 311}# #{i 1475}#))
+ (car (#{syntax-object-wrap 311}# #{j 1476}#)))
#f)
- (eq? #{i 1461}# #{j 1462}#))))
- (#{valid-bound-ids? 399}#
- (lambda (#{ids 1471}#)
+ (eq? #{i 1475}# #{j 1476}#))))
+ (#{valid-bound-ids? 412}#
+ (lambda (#{ids 1485}#)
(if (letrec*
- ((#{all-ids? 1476}#
- (lambda (#{ids 1477}#)
+ ((#{all-ids? 1490}#
+ (lambda (#{ids 1491}#)
(begin
- (let ((#{t 1480}# (null? #{ids 1477}#)))
- (if #{t 1480}#
- #{t 1480}#
- (if (#{id? 339}# (car #{ids 1477}#))
- (#{all-ids? 1476}# (cdr #{ids 1477}#))
+ (let ((#{t 1494}# (null? #{ids 1491}#)))
+ (if #{t 1494}#
+ #{t 1494}#
+ (if (#{id? 344}# (car #{ids 1491}#))
+ (#{all-ids? 1490}# (cdr #{ids 1491}#))
#f)))))))
- (begin (#{all-ids? 1476}# #{ids 1471}#)))
- (#{distinct-bound-ids? 401}# #{ids 1471}#)
+ (begin (#{all-ids? 1490}# #{ids 1485}#)))
+ (#{distinct-bound-ids? 414}# #{ids 1485}#)
#f)))
- (#{distinct-bound-ids? 401}#
- (lambda (#{ids 1485}#)
+ (#{distinct-bound-ids? 414}#
+ (lambda (#{ids 1499}#)
(letrec*
- ((#{distinct? 1489}#
- (lambda (#{ids 1490}#)
+ ((#{distinct? 1503}#
+ (lambda (#{ids 1504}#)
(begin
- (let ((#{t 1493}# (null? #{ids 1490}#)))
- (if #{t 1493}#
- #{t 1493}#
- (if (not (#{bound-id-member? 403}#
- (car #{ids 1490}#)
- (cdr #{ids 1490}#)))
- (#{distinct? 1489}# (cdr #{ids 1490}#))
+ (let ((#{t 1507}# (null? #{ids 1504}#)))
+ (if #{t 1507}#
+ #{t 1507}#
+ (if (not (#{bound-id-member? 416}#
+ (car #{ids 1504}#)
+ (cdr #{ids 1504}#)))
+ (#{distinct? 1503}# (cdr #{ids 1504}#))
#f)))))))
- (begin (#{distinct? 1489}# #{ids 1485}#)))))
- (#{bound-id-member? 403}#
- (lambda (#{x 1497}# #{list 1498}#)
- (if (not (null? #{list 1498}#))
+ (begin (#{distinct? 1503}# #{ids 1499}#)))))
+ (#{bound-id-member? 416}#
+ (lambda (#{x 1511}# #{list 1512}#)
+ (if (not (null? #{list 1512}#))
(begin
- (let ((#{t 1505}#
- (#{bound-id=? 397}#
- #{x 1497}#
- (car #{list 1498}#))))
- (if #{t 1505}#
- #{t 1505}#
- (#{bound-id-member? 403}#
- #{x 1497}#
- (cdr #{list 1498}#)))))
+ (let ((#{t 1519}#
+ (#{bound-id=? 410}#
+ #{x 1511}#
+ (car #{list 1512}#))))
+ (if #{t 1519}#
+ #{t 1519}#
+ (#{bound-id-member? 416}#
+ #{x 1511}#
+ (cdr #{list 1512}#)))))
#f)))
- (#{wrap 405}#
- (lambda (#{x 1507}# #{w 1508}# #{defmod 1509}#)
- (if (if (null? (car #{w 1508}#))
- (null? (cdr #{w 1508}#))
+ (#{wrap 418}#
+ (lambda (#{x 1521}# #{w 1522}# #{defmod 1523}#)
+ (if (if (null? (car #{w 1522}#))
+ (null? (cdr #{w 1522}#))
#f)
- #{x 1507}#
- (if (#{syntax-object? 305}# #{x 1507}#)
- (#{make-syntax-object 303}#
- (#{syntax-object-expression 307}# #{x 1507}#)
- (#{join-wraps 387}#
- #{w 1508}#
- (#{syntax-object-wrap 309}# #{x 1507}#))
- (#{syntax-object-module 311}# #{x 1507}#))
- (if (null? #{x 1507}#)
- #{x 1507}#
- (#{make-syntax-object 303}#
- #{x 1507}#
- #{w 1508}#
- #{defmod 1509}#))))))
- (#{source-wrap 407}#
- (lambda (#{x 1524}#
- #{w 1525}#
- #{s 1526}#
- #{defmod 1527}#)
- (#{wrap 405}#
- (#{decorate-source 259}# #{x 1524}# #{s 1526}#)
- #{w 1525}#
- #{defmod 1527}#)))
- (#{chi-sequence 409}#
- (lambda (#{body 1532}#
- #{r 1533}#
- #{w 1534}#
- #{s 1535}#
- #{mod 1536}#)
- (#{build-sequence 293}#
- #{s 1535}#
+ #{x 1521}#
+ (if (#{syntax-object? 307}# #{x 1521}#)
+ (#{make-syntax-object 305}#
+ (#{syntax-object-expression 309}# #{x 1521}#)
+ (#{join-wraps 400}#
+ #{w 1522}#
+ (#{syntax-object-wrap 311}# #{x 1521}#))
+ (#{syntax-object-module 313}# #{x 1521}#))
+ (if (null? #{x 1521}#)
+ #{x 1521}#
+ (#{make-syntax-object 305}#
+ #{x 1521}#
+ #{w 1522}#
+ #{defmod 1523}#))))))
+ (#{source-wrap 420}#
+ (lambda (#{x 1538}#
+ #{w 1539}#
+ #{s 1540}#
+ #{defmod 1541}#)
+ (#{wrap 418}#
+ (#{decorate-source 260}# #{x 1538}# #{s 1540}#)
+ #{w 1539}#
+ #{defmod 1541}#)))
+ (#{chi-sequence 422}#
+ (lambda (#{body 1546}#
+ #{r 1547}#
+ #{w 1548}#
+ #{s 1549}#
+ #{mod 1550}#)
+ (#{build-sequence 294}#
+ #{s 1549}#
(letrec*
- ((#{dobody 1547}#
- (lambda (#{body 1548}#
- #{r 1549}#
- #{w 1550}#
- #{mod 1551}#)
- (if (null? #{body 1548}#)
+ ((#{dobody 1561}#
+ (lambda (#{body 1562}#
+ #{r 1563}#
+ #{w 1564}#
+ #{mod 1565}#)
+ (if (null? #{body 1562}#)
'()
(begin
- (let ((#{first 1553}#
- (#{chi 419}#
- (car #{body 1548}#)
- #{r 1549}#
- #{w 1550}#
- #{mod 1551}#)))
- (cons #{first 1553}#
- (#{dobody 1547}#
- (cdr #{body 1548}#)
- #{r 1549}#
- #{w 1550}#
- #{mod 1551}#))))))))
+ (let ((#{first 1567}#
+ (#{chi 432}#
+ (car #{body 1562}#)
+ #{r 1563}#
+ #{w 1564}#
+ #{mod 1565}#)))
+ (cons #{first 1567}#
+ (#{dobody 1561}#
+ (cdr #{body 1562}#)
+ #{r 1563}#
+ #{w 1564}#
+ #{mod 1565}#))))))))
(begin
- (#{dobody 1547}#
- #{body 1532}#
- #{r 1533}#
- #{w 1534}#
- #{mod 1536}#))))))
- (#{chi-top-sequence 411}#
- (lambda (#{body 1554}#
- #{r 1555}#
- #{w 1556}#
- #{s 1557}#
- #{m 1558}#
- #{esew 1559}#
- #{mod 1560}#)
+ (#{dobody 1561}#
+ #{body 1546}#
+ #{r 1547}#
+ #{w 1548}#
+ #{mod 1550}#))))))
+ (#{chi-top-sequence 424}#
+ (lambda (#{body 1568}#
+ #{r 1569}#
+ #{w 1570}#
+ #{s 1571}#
+ #{m 1572}#
+ #{esew 1573}#
+ #{mod 1574}#)
(letrec*
- ((#{scan 1569}#
- (lambda (#{body 1570}#
- #{r 1571}#
- #{w 1572}#
- #{s 1573}#
- #{m 1574}#
- #{esew 1575}#
- #{mod 1576}#
- #{exps 1577}#)
- (if (null? #{body 1570}#)
- #{exps 1577}#
+ ((#{scan 1583}#
+ (lambda (#{body 1584}#
+ #{r 1585}#
+ #{w 1586}#
+ #{s 1587}#
+ #{m 1588}#
+ #{esew 1589}#
+ #{mod 1590}#
+ #{exps 1591}#)
+ (if (null? #{body 1584}#)
+ #{exps 1591}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
(begin
- (let ((#{e 1590}# (car #{body 1570}#)))
- (#{syntax-type 417}#
- #{e 1590}#
- #{r 1571}#
- #{w 1572}#
+ (let ((#{e 1604}# (car #{body 1584}#)))
+ (#{syntax-type 430}#
+ #{e 1604}#
+ #{r 1585}#
+ #{w 1586}#
(begin
- (let ((#{t 1593}#
- (#{source-annotation 320}#
- #{e 1590}#)))
- (if #{t 1593}# #{t 1593}# #{s 1573}#)))
+ (let ((#{t 1607}#
+ (#{source-annotation 322}#
+ #{e 1604}#)))
+ (if #{t 1607}# #{t 1607}# #{s 1587}#)))
#f
- #{mod 1576}#
+ #{mod 1590}#
#f))))
- (lambda (#{type 1595}#
- #{value 1596}#
- #{e 1597}#
- #{w 1598}#
- #{s 1599}#
- #{mod 1600}#)
- (if (eqv? #{type 1595}# 'begin-form)
- (let ((#{tmp 1608}# #{e 1597}#))
- (let ((#{tmp 1609}#
- ($sc-dispatch #{tmp 1608}# '(_))))
- (if #{tmp 1609}#
- (@apply (lambda () #{exps 1577}#) #{tmp 1609}#)
- (let ((#{tmp 1610}#
+ (lambda (#{type 1609}#
+ #{value 1610}#
+ #{e 1611}#
+ #{w 1612}#
+ #{s 1613}#
+ #{mod 1614}#)
+ (if (eqv? #{type 1609}# 'begin-form)
+ (let ((#{tmp 1622}# #{e 1611}#))
+ (let ((#{tmp 1623}#
+ ($sc-dispatch #{tmp 1622}# '(_))))
+ (if #{tmp 1623}#
+ (@apply (lambda () #{exps 1591}#) #{tmp 1623}#)
+ (let ((#{tmp 1624}#
($sc-dispatch
- #{tmp 1608}#
+ #{tmp 1622}#
'(_ any . each-any))))
- (if #{tmp 1610}#
+ (if #{tmp 1624}#
(@apply
- (lambda (#{e1 1613}# #{e2 1614}#)
- (#{scan 1569}#
- (cons #{e1 1613}# #{e2 1614}#)
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- #{m 1574}#
- #{esew 1575}#
- #{mod 1600}#
- #{exps 1577}#))
- #{tmp 1610}#)
+ (lambda (#{e1 1627}# #{e2 1628}#)
+ (#{scan 1583}#
+ (cons #{e1 1627}# #{e2 1628}#)
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
+ #{m 1588}#
+ #{esew 1589}#
+ #{mod 1614}#
+ #{exps 1591}#))
+ #{tmp 1624}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1608}#))))))
- (if (eqv? #{type 1595}# 'local-syntax-form)
- (#{chi-local-syntax 429}#
- #{value 1596}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- #{mod 1600}#
- (lambda (#{body 1617}#
- #{r 1618}#
- #{w 1619}#
- #{s 1620}#
- #{mod 1621}#)
- (#{scan 1569}#
- #{body 1617}#
- #{r 1618}#
- #{w 1619}#
- #{s 1620}#
- #{m 1574}#
- #{esew 1575}#
- #{mod 1621}#
- #{exps 1577}#)))
- (if (eqv? #{type 1595}# 'eval-when-form)
- (let ((#{tmp 1628}# #{e 1597}#))
- (let ((#{tmp 1629}#
+ #{tmp 1622}#))))))
+ (if (eqv? #{type 1609}# 'local-syntax-form)
+ (#{chi-local-syntax 442}#
+ #{value 1610}#
+ #{e 1611}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
+ #{mod 1614}#
+ (lambda (#{body 1631}#
+ #{r 1632}#
+ #{w 1633}#
+ #{s 1634}#
+ #{mod 1635}#)
+ (#{scan 1583}#
+ #{body 1631}#
+ #{r 1632}#
+ #{w 1633}#
+ #{s 1634}#
+ #{m 1588}#
+ #{esew 1589}#
+ #{mod 1635}#
+ #{exps 1591}#)))
+ (if (eqv? #{type 1609}# 'eval-when-form)
+ (let ((#{tmp 1642}# #{e 1611}#))
+ (let ((#{tmp 1643}#
($sc-dispatch
- #{tmp 1628}#
+ #{tmp 1642}#
'(_ each-any any . each-any))))
- (if #{tmp 1629}#
+ (if #{tmp 1643}#
(@apply
- (lambda (#{x 1633}#
- #{e1 1634}#
- #{e2 1635}#)
+ (lambda (#{x 1647}#
+ #{e1 1648}#
+ #{e2 1649}#)
(begin
- (let ((#{when-list 1638}#
- (#{chi-when-list 415}#
- #{e 1597}#
- #{x 1633}#
- #{w 1598}#))
- (#{body 1639}#
- (cons #{e1 1634}#
- #{e2 1635}#)))
- (if (eq? #{m 1574}# 'e)
+ (let ((#{when-list 1652}#
+ (#{chi-when-list 428}#
+ #{e 1611}#
+ #{x 1647}#
+ #{w 1612}#))
+ (#{body 1653}#
+ (cons #{e1 1648}#
+ #{e2 1649}#)))
+ (if (eq? #{m 1588}# 'e)
(if (memq 'eval
- #{when-list 1638}#)
- (#{scan 1569}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
+ #{when-list 1652}#)
+ (#{scan 1583}#
+ #{body 1653}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
(if (memq 'expand
- #{when-list 1638}#)
+ #{when-list 1652}#)
'c&e
'e)
'(eval)
- #{mod 1600}#
- #{exps 1577}#)
+ #{mod 1614}#
+ #{exps 1591}#)
(begin
(if (memq 'expand
- #{when-list 1638}#)
+ #{when-list 1652}#)
(#{top-level-eval-hook 250}#
- (#{chi-top-sequence 411}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
+ (#{chi-top-sequence 424}#
+ #{body 1653}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
'e
'(eval)
- #{mod 1600}#)
- #{mod 1600}#))
- (values #{exps 1577}#)))
+ #{mod 1614}#)
+ #{mod 1614}#))
+ (values #{exps 1591}#)))
(if (memq 'load
- #{when-list 1638}#)
+ #{when-list 1652}#)
(if (begin
- (let ((#{t 1648}#
+ (let ((#{t 1662}#
(memq 'compile
- #{when-list 1638}#)))
- (if #{t 1648}#
- #{t 1648}#
+ #{when-list 1652}#)))
+ (if #{t 1662}#
+ #{t 1662}#
(begin
- (let ((#{t 1651}#
+ (let ((#{t 1665}#
(memq 'expand
- #{when-list 1638}#)))
- (if #{t 1651}#
- #{t 1651}#
- (if (eq? #{m 1574}#
+ #{when-list 1652}#)))
+ (if #{t 1665}#
+ #{t 1665}#
+ (if (eq? #{m 1588}#
'c&e)
(memq 'eval
- #{when-list 1638}#)
+ #{when-list 1652}#)
#f)))))))
- (#{scan 1569}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
+ (#{scan 1583}#
+ #{body 1653}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
'c&e
'(compile load)
- #{mod 1600}#
- #{exps 1577}#)
- (if (if (eq? #{m 1574}# 'c)
+ #{mod 1614}#
+ #{exps 1591}#)
+ (if (if (eq? #{m 1588}# 'c)
#t
- (eq? #{m 1574}# 'c&e))
- (#{scan 1569}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
+ (eq? #{m 1588}# 'c&e))
+ (#{scan 1583}#
+ #{body 1653}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
'c
'(load)
- #{mod 1600}#
- #{exps 1577}#)
- (values #{exps 1577}#)))
+ #{mod 1614}#
+ #{exps 1591}#)
+ (values #{exps 1591}#)))
(if (begin
- (let ((#{t 1659}#
+ (let ((#{t 1673}#
(memq 'compile
- #{when-list 1638}#)))
- (if #{t 1659}#
- #{t 1659}#
+ #{when-list 1652}#)))
+ (if #{t 1673}#
+ #{t 1673}#
(begin
- (let ((#{t 1662}#
+ (let ((#{t 1676}#
(memq 'expand
- #{when-list 1638}#)))
- (if #{t 1662}#
- #{t 1662}#
- (if (eq? #{m 1574}#
+ #{when-list 1652}#)))
+ (if #{t 1676}#
+ #{t 1676}#
+ (if (eq? #{m 1588}#
'c&e)
(memq 'eval
- #{when-list 1638}#)
+ #{when-list 1652}#)
#f)))))))
(begin
(#{top-level-eval-hook 250}#
- (#{chi-top-sequence 411}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
+ (#{chi-top-sequence 424}#
+ #{body 1653}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
'e
'(eval)
- #{mod 1600}#)
- #{mod 1600}#)
- (values #{exps 1577}#))
- (values #{exps 1577}#)))))))
- #{tmp 1629}#)
+ #{mod 1614}#)
+ #{mod 1614}#)
+ (values #{exps 1591}#))
+ (values #{exps 1591}#)))))))
+ #{tmp 1643}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1628}#))))
- (if (eqv? #{type 1595}# 'define-syntax-form)
+ #{tmp 1642}#))))
+ (if (eqv? #{type 1609}# 'define-syntax-form)
(begin
- (let ((#{n 1670}#
- (#{id-var-name 393}#
- #{value 1596}#
- #{w 1598}#))
- (#{r 1671}#
- (#{macros-only-env 331}#
- #{r 1571}#)))
- (if (eqv? #{m 1574}# 'c)
- (if (memq 'compile #{esew 1575}#)
+ (let ((#{n 1684}#
+ (#{id-var-name 406}#
+ #{value 1610}#
+ #{w 1612}#))
+ (#{r 1685}#
+ (#{macros-only-env 336}#
+ #{r 1585}#)))
+ (if (eqv? #{m 1588}# 'c)
+ (if (memq 'compile #{esew 1589}#)
(begin
- (let ((#{e 1674}#
- (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))))
+ (let ((#{e 1688}#
+ (#{chi-install-global 426}#
+ #{n 1684}#
+ (#{chi 432}#
+ #{e 1611}#
+ #{r 1685}#
+ #{w 1612}#
+ #{mod 1614}#))))
(begin
(#{top-level-eval-hook 250}#
- #{e 1674}#
- #{mod 1600}#)
- (if (memq 'load #{esew 1575}#)
+ #{e 1688}#
+ #{mod 1614}#)
+ (if (memq 'load #{esew 1589}#)
(values
- (cons #{e 1674}#
- #{exps 1577}#))
- (values #{exps 1577}#)))))
- (if (memq 'load #{esew 1575}#)
+ (cons #{e 1688}#
+ #{exps 1591}#))
+ (values #{exps 1591}#)))))
+ (if (memq 'load #{esew 1589}#)
(values
- (cons (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))
- #{exps 1577}#))
- (values #{exps 1577}#)))
- (if (eqv? #{m 1574}# 'c&e)
+ (cons (#{chi-install-global 426}#
+ #{n 1684}#
+ (#{chi 432}#
+ #{e 1611}#
+ #{r 1685}#
+ #{w 1612}#
+ #{mod 1614}#))
+ #{exps 1591}#))
+ (values #{exps 1591}#)))
+ (if (eqv? #{m 1588}# 'c&e)
(begin
- (let ((#{e 1677}#
- (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))))
+ (let ((#{e 1691}#
+ (#{chi-install-global 426}#
+ #{n 1684}#
+ (#{chi 432}#
+ #{e 1611}#
+ #{r 1685}#
+ #{w 1612}#
+ #{mod 1614}#))))
(begin
(#{top-level-eval-hook 250}#
- #{e 1677}#
- #{mod 1600}#)
+ #{e 1691}#
+ #{mod 1614}#)
(values
- (cons #{e 1677}#
- #{exps 1577}#)))))
+ (cons #{e 1691}#
+ #{exps 1591}#)))))
(begin
- (if (memq 'eval #{esew 1575}#)
+ (if (memq 'eval #{esew 1589}#)
(#{top-level-eval-hook 250}#
- (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))
- #{mod 1600}#))
- (values #{exps 1577}#))))))
- (if (eqv? #{type 1595}# 'define-form)
+ (#{chi-install-global 426}#
+ #{n 1684}#
+ (#{chi 432}#
+ #{e 1611}#
+ #{r 1685}#
+ #{w 1612}#
+ #{mod 1614}#))
+ #{mod 1614}#))
+ (values #{exps 1591}#))))))
+ (if (eqv? #{type 1609}# 'define-form)
(begin
- (let ((#{n 1682}#
- (#{id-var-name 393}#
- #{value 1596}#
- #{w 1598}#)))
+ (let ((#{n 1696}#
+ (#{id-var-name 406}#
+ #{value 1610}#
+ #{w 1612}#)))
(begin
- (let ((#{type 1684}#
- (car (#{lookup 333}#
- #{n 1682}#
- #{r 1571}#
- #{mod 1600}#))))
- (if (if (eqv? #{type 1684}# 'global)
+ (let ((#{type 1698}#
+ (car (#{lookup 338}#
+ #{n 1696}#
+ #{r 1585}#
+ #{mod 1614}#))))
+ (if (if (eqv? #{type 1698}# 'global)
#t
- (if (eqv? #{type 1684}# 'core)
+ (if (eqv? #{type 1698}# 'core)
#t
- (if (eqv? #{type 1684}#
+ (if (eqv? #{type 1698}#
'macro)
#t
- (eqv? #{type 1684}#
+ (eqv? #{type 1698}#
'module-ref))))
(begin
- (if (if (if (eq? #{m 1574}# 'c)
+ (if (if (if (eq? #{m 1588}# 'c)
#t
- (eq? #{m 1574}# 'c&e))
+ (eq? #{m 1588}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 1682}#))
+ #{n 1696}#))
(current-module)
#f)
#f)
(begin
- (let ((#{old 1691}#
+ (let ((#{old 1705}#
(module-variable
(current-module)
- #{n 1682}#)))
+ #{n 1696}#)))
(if (if (variable?
- #{old 1691}#)
+ #{old 1705}#)
(variable-bound?
- #{old 1691}#)
+ #{old 1705}#)
#f)
(module-define!
(current-module)
- #{n 1682}#
+ #{n 1696}#
(variable-ref
- #{old 1691}#))
+ #{old 1705}#))
(module-add!
(current-module)
- #{n 1682}#
+ #{n 1696}#
(make-undefined-variable))))))
(values
- (cons (if (eq? #{m 1574}# 'c&e)
+ (cons (if (eq? #{m 1588}# 'c&e)
(begin
- (let ((#{x 1695}#
- (#{build-global-definition 281}#
- #{s 1599}#
- #{n 1682}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{mod 1600}#))))
+ (let ((#{x 1709}#
+ (#{build-global-definition 282}#
+ #{s 1613}#
+ #{n 1696}#
+ (#{chi 432}#
+ #{e 1611}#
+ #{r 1585}#
+ #{w 1612}#
+ #{mod 1614}#))))
(begin
(#{top-level-eval-hook 250}#
- #{x 1695}#
- #{mod 1600}#)
- #{x 1695}#)))
+ #{x 1709}#
+ #{mod 1614}#)
+ #{x 1709}#)))
(lambda ()
- (#{build-global-definition 281}#
- #{s 1599}#
- #{n 1682}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{mod 1600}#))))
- #{exps 1577}#)))
- (if (eqv? #{type 1684}#
+ (#{build-global-definition 282}#
+ #{s 1613}#
+ #{n 1696}#
+ (#{chi 432}#
+ #{e 1611}#
+ #{r 1585}#
+ #{w 1612}#
+ #{mod 1614}#))))
+ #{exps 1591}#)))
+ (if (eqv? #{type 1698}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e 1597}#
- (#{wrap 405}#
- #{value 1596}#
- #{w 1598}#
- #{mod 1600}#))
+ #{e 1611}#
+ (#{wrap 418}#
+ #{value 1610}#
+ #{w 1612}#
+ #{mod 1614}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e 1597}#
- (#{wrap 405}#
- #{value 1596}#
- #{w 1598}#
- #{mod 1600}#))))))))
+ #{e 1611}#
+ (#{wrap 418}#
+ #{value 1610}#
+ #{w 1612}#
+ #{mod 1614}#))))))))
(values
- (cons (if (eq? #{m 1574}# 'c&e)
+ (cons (if (eq? #{m 1588}# 'c&e)
(begin
- (let ((#{x 1700}#
- (#{chi-expr 421}#
- #{type 1595}#
- #{value 1596}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- #{mod 1600}#)))
+ (let ((#{x 1714}#
+ (#{chi-expr 434}#
+ #{type 1609}#
+ #{value 1610}#
+ #{e 1611}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
+ #{mod 1614}#)))
(begin
(#{top-level-eval-hook 250}#
- #{x 1700}#
- #{mod 1600}#)
- #{x 1700}#)))
+ #{x 1714}#
+ #{mod 1614}#)
+ #{x 1714}#)))
(lambda ()
- (#{chi-expr 421}#
- #{type 1595}#
- #{value 1596}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- #{mod 1600}#)))
- #{exps 1577}#))))))))))
- (lambda (#{exps 1701}#)
- (#{scan 1569}#
- (cdr #{body 1570}#)
- #{r 1571}#
- #{w 1572}#
- #{s 1573}#
- #{m 1574}#
- #{esew 1575}#
- #{mod 1576}#
- #{exps 1701}#)))))))
+ (#{chi-expr 434}#
+ #{type 1609}#
+ #{value 1610}#
+ #{e 1611}#
+ #{r 1585}#
+ #{w 1612}#
+ #{s 1613}#
+ #{mod 1614}#)))
+ #{exps 1591}#))))))))))
+ (lambda (#{exps 1715}#)
+ (#{scan 1583}#
+ (cdr #{body 1584}#)
+ #{r 1585}#
+ #{w 1586}#
+ #{s 1587}#
+ #{m 1588}#
+ #{esew 1589}#
+ #{mod 1590}#
+ #{exps 1715}#)))))))
(begin
(call-with-values
(lambda ()
- (#{scan 1569}#
- #{body 1554}#
- #{r 1555}#
- #{w 1556}#
- #{s 1557}#
- #{m 1558}#
- #{esew 1559}#
- #{mod 1560}#
+ (#{scan 1583}#
+ #{body 1568}#
+ #{r 1569}#
+ #{w 1570}#
+ #{s 1571}#
+ #{m 1572}#
+ #{esew 1573}#
+ #{mod 1574}#
'()))
- (lambda (#{exps 1703}#)
- (if (null? #{exps 1703}#)
- (#{build-void 263}# #{s 1557}#)
- (#{build-sequence 293}#
- #{s 1557}#
+ (lambda (#{exps 1717}#)
+ (if (null? #{exps 1717}#)
+ (#{build-void 264}# #{s 1571}#)
+ (#{build-sequence 294}#
+ #{s 1571}#
(letrec*
- ((#{lp 1708}#
- (lambda (#{in 1709}# #{out 1710}#)
- (if (null? #{in 1709}#)
- #{out 1710}#
+ ((#{lp 1722}#
+ (lambda (#{in 1723}# #{out 1724}#)
+ (if (null? #{in 1723}#)
+ #{out 1724}#
(begin
- (let ((#{e 1712}# (car #{in 1709}#)))
- (#{lp 1708}#
- (cdr #{in 1709}#)
- (cons (if (procedure? #{e 1712}#)
- (#{e 1712}#)
- #{e 1712}#)
- #{out 1710}#))))))))
- (begin (#{lp 1708}# #{exps 1703}# '())))))))))))
- (#{chi-install-global 413}#
- (lambda (#{name 1713}# #{e 1714}#)
- (#{build-global-definition 281}#
+ (let ((#{e 1726}# (car #{in 1723}#)))
+ (#{lp 1722}#
+ (cdr #{in 1723}#)
+ (cons (if (procedure? #{e 1726}#)
+ (#{e 1726}#)
+ #{e 1726}#)
+ #{out 1724}#))))))))
+ (begin (#{lp 1722}# #{exps 1717}# '())))))))))))
+ (#{chi-install-global 426}#
+ (lambda (#{name 1727}# #{e 1728}#)
+ (#{build-global-definition 282}#
#f
- #{name 1713}#
- (#{build-application 265}#
+ #{name 1727}#
+ (#{build-application 266}#
#f
- (#{build-primref 289}#
+ (#{build-primref 290}#
#f
'make-syntax-transformer)
- (list (#{build-data 291}# #f #{name 1713}#)
- (#{build-data 291}# #f 'macro)
- #{e 1714}#)))))
- (#{chi-when-list 415}#
- (lambda (#{e 1722}# #{when-list 1723}# #{w 1724}#)
+ (list (#{build-data 292}# #f #{name 1727}#)
+ (#{build-data 292}# #f 'macro)
+ #{e 1728}#)))))
+ (#{chi-when-list 428}#
+ (lambda (#{e 1736}# #{when-list 1737}# #{w 1738}#)
(letrec*
- ((#{f 1731}#
- (lambda (#{when-list 1732}# #{situations 1733}#)
- (if (null? #{when-list 1732}#)
- #{situations 1733}#
- (#{f 1731}#
- (cdr #{when-list 1732}#)
+ ((#{f 1745}#
+ (lambda (#{when-list 1746}# #{situations 1747}#)
+ (if (null? #{when-list 1746}#)
+ #{situations 1747}#
+ (#{f 1745}#
+ (cdr #{when-list 1746}#)
(cons (begin
- (let ((#{x 1735}# (car #{when-list 1732}#)))
- (if (#{free-id=? 395}#
- #{x 1735}#
+ (let ((#{x 1749}# (car #{when-list 1746}#)))
+ (if (#{free-id=? 408}#
+ #{x 1749}#
'#(syntax-object
compile
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
+ #(ribcage #(x) #((top)) #("i1748"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1728" "i1729" "i1730"))
+ #("i1742" "i1743" "i1744"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1725" "i1726" "i1727"))
+ #("i1739" "i1740" "i1741"))
#(ribcage
(lambda-var-list
gen-var
@@ -1796,81 +1796,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -1880,31 +1881,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -1940,25 +1940,25 @@
("i40" "i39" "i38")))
(hygiene guile)))
'compile
- (if (#{free-id=? 395}#
- #{x 1735}#
+ (if (#{free-id=? 408}#
+ #{x 1749}#
'#(syntax-object
load
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
+ #(ribcage #(x) #((top)) #("i1748"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1728" "i1729" "i1730"))
+ #("i1742" "i1743" "i1744"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1725" "i1726" "i1727"))
+ #("i1739" "i1740" "i1741"))
#(ribcage
(lambda-var-list
gen-var
@@ -2232,81 +2232,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -2316,31 +2317,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -2376,25 +2376,25 @@
("i40" "i39" "i38")))
(hygiene guile)))
'load
- (if (#{free-id=? 395}#
- #{x 1735}#
+ (if (#{free-id=? 408}#
+ #{x 1749}#
'#(syntax-object
eval
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
+ #(ribcage #(x) #((top)) #("i1748"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1728" "i1729" "i1730"))
+ #("i1742" "i1743" "i1744"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1725" "i1726" "i1727"))
+ #("i1739" "i1740" "i1741"))
#(ribcage
(lambda-var-list
gen-var
@@ -2668,81 +2668,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -2752,31 +2753,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -2812,25 +2812,25 @@
("i40" "i39" "i38")))
(hygiene guile)))
'eval
- (if (#{free-id=? 395}#
- #{x 1735}#
+ (if (#{free-id=? 408}#
+ #{x 1749}#
'#(syntax-object
expand
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
+ #(ribcage #(x) #((top)) #("i1748"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1728" "i1729" "i1730"))
+ #("i1742" "i1743" "i1744"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1725" "i1726" "i1727"))
+ #("i1739" "i1740" "i1741"))
#(ribcage
(lambda-var-list
gen-var
@@ -3104,81 +3104,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -3188,31 +3189,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -3251,243 +3251,243 @@
(syntax-violation
'eval-when
"invalid situation"
- #{e 1722}#
- (#{wrap 405}#
- #{x 1735}#
- #{w 1724}#
+ #{e 1736}#
+ (#{wrap 418}#
+ #{x 1749}#
+ #{w 1738}#
#f))))))))
- #{situations 1733}#))))))
- (begin (#{f 1731}# #{when-list 1723}# '())))))
- (#{syntax-type 417}#
- (lambda (#{e 1745}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
- #{for-car? 1751}#)
- (if (symbol? #{e 1745}#)
+ #{situations 1747}#))))))
+ (begin (#{f 1745}# #{when-list 1737}# '())))))
+ (#{syntax-type 430}#
+ (lambda (#{e 1759}#
+ #{r 1760}#
+ #{w 1761}#
+ #{s 1762}#
+ #{rib 1763}#
+ #{mod 1764}#
+ #{for-car? 1765}#)
+ (if (symbol? #{e 1759}#)
(begin
- (let ((#{n 1763}#
- (#{id-var-name 393}# #{e 1745}# #{w 1747}#)))
+ (let ((#{n 1777}#
+ (#{id-var-name 406}# #{e 1759}# #{w 1761}#)))
(begin
- (let ((#{b 1765}#
- (#{lookup 333}#
- #{n 1763}#
- #{r 1746}#
- #{mod 1750}#)))
+ (let ((#{b 1779}#
+ (#{lookup 338}#
+ #{n 1777}#
+ #{r 1760}#
+ #{mod 1764}#)))
(begin
- (let ((#{type 1767}# (car #{b 1765}#)))
- (if (eqv? #{type 1767}# 'lexical)
+ (let ((#{type 1781}# (car #{b 1779}#)))
+ (if (eqv? #{type 1781}# 'lexical)
(values
- #{type 1767}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{type 1767}# 'global)
+ #{type 1781}#
+ (cdr #{b 1779}#)
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{type 1781}# 'global)
(values
- #{type 1767}#
- #{n 1763}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{type 1767}# 'macro)
- (if #{for-car? 1751}#
+ #{type 1781}#
+ #{n 1777}#
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{type 1781}# 'macro)
+ (if #{for-car? 1765}#
(values
- #{type 1767}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (#{syntax-type 417}#
- (#{chi-macro 425}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#)
- #{r 1746}#
+ #{type 1781}#
+ (cdr #{b 1779}#)
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (#{syntax-type 430}#
+ (#{chi-macro 438}#
+ (cdr #{b 1779}#)
+ #{e 1759}#
+ #{r 1760}#
+ #{w 1761}#
+ #{s 1762}#
+ #{rib 1763}#
+ #{mod 1764}#)
+ #{r 1760}#
'(())
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
+ #{s 1762}#
+ #{rib 1763}#
+ #{mod 1764}#
#f))
(values
- #{type 1767}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#))))))))))
- (if (pair? #{e 1745}#)
+ #{type 1781}#
+ (cdr #{b 1779}#)
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#))))))))))
+ (if (pair? #{e 1759}#)
(begin
- (let ((#{first 1781}# (car #{e 1745}#)))
+ (let ((#{first 1795}# (car #{e 1759}#)))
(call-with-values
(lambda ()
- (#{syntax-type 417}#
- #{first 1781}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
+ (#{syntax-type 430}#
+ #{first 1795}#
+ #{r 1760}#
+ #{w 1761}#
+ #{s 1762}#
+ #{rib 1763}#
+ #{mod 1764}#
#t))
- (lambda (#{ftype 1782}#
- #{fval 1783}#
- #{fe 1784}#
- #{fw 1785}#
- #{fs 1786}#
- #{fmod 1787}#)
- (if (eqv? #{ftype 1782}# 'lexical)
+ (lambda (#{ftype 1796}#
+ #{fval 1797}#
+ #{fe 1798}#
+ #{fw 1799}#
+ #{fs 1800}#
+ #{fmod 1801}#)
+ (if (eqv? #{ftype 1796}# 'lexical)
(values
'lexical-call
- #{fval 1783}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'global)
+ #{fval 1797}#
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{ftype 1796}# 'global)
(values
'global-call
- (#{make-syntax-object 303}#
- #{fval 1783}#
- #{w 1747}#
- #{fmod 1787}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'macro)
- (#{syntax-type 417}#
- (#{chi-macro 425}#
- #{fval 1783}#
- #{e 1745}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#)
- #{r 1746}#
+ (#{make-syntax-object 305}#
+ #{fval 1797}#
+ #{w 1761}#
+ #{fmod 1801}#)
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{ftype 1796}# 'macro)
+ (#{syntax-type 430}#
+ (#{chi-macro 438}#
+ #{fval 1797}#
+ #{e 1759}#
+ #{r 1760}#
+ #{w 1761}#
+ #{s 1762}#
+ #{rib 1763}#
+ #{mod 1764}#)
+ #{r 1760}#
'(())
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
- #{for-car? 1751}#)
- (if (eqv? #{ftype 1782}# 'module-ref)
+ #{s 1762}#
+ #{rib 1763}#
+ #{mod 1764}#
+ #{for-car? 1765}#)
+ (if (eqv? #{ftype 1796}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 1783}#
- #{e 1745}#
- #{r 1746}#
- #{w 1747}#))
- (lambda (#{e 1799}#
- #{r 1800}#
- #{w 1801}#
- #{s 1802}#
- #{mod 1803}#)
- (#{syntax-type 417}#
- #{e 1799}#
- #{r 1800}#
- #{w 1801}#
- #{s 1802}#
- #{rib 1749}#
- #{mod 1803}#
- #{for-car? 1751}#)))
- (if (eqv? #{ftype 1782}# 'core)
+ (#{fval 1797}#
+ #{e 1759}#
+ #{r 1760}#
+ #{w 1761}#))
+ (lambda (#{e 1813}#
+ #{r 1814}#
+ #{w 1815}#
+ #{s 1816}#
+ #{mod 1817}#)
+ (#{syntax-type 430}#
+ #{e 1813}#
+ #{r 1814}#
+ #{w 1815}#
+ #{s 1816}#
+ #{rib 1763}#
+ #{mod 1817}#
+ #{for-car? 1765}#)))
+ (if (eqv? #{ftype 1796}# 'core)
(values
'core-form
- #{fval 1783}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'local-syntax)
+ #{fval 1797}#
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{ftype 1796}# 'local-syntax)
(values
'local-syntax-form
- #{fval 1783}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'begin)
+ #{fval 1797}#
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{ftype 1796}# 'begin)
(values
'begin-form
#f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'eval-when)
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{ftype 1796}# 'eval-when)
(values
'eval-when-form
#f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'define)
- (let ((#{tmp 1814}# #{e 1745}#))
- (let ((#{tmp 1815}#
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
+ (if (eqv? #{ftype 1796}# 'define)
+ (let ((#{tmp 1828}# #{e 1759}#))
+ (let ((#{tmp 1829}#
($sc-dispatch
- #{tmp 1814}#
+ #{tmp 1828}#
'(_ any any))))
- (if (if #{tmp 1815}#
+ (if (if #{tmp 1829}#
(@apply
- (lambda (#{name 1818}#
- #{val 1819}#)
- (#{id? 339}# #{name 1818}#))
- #{tmp 1815}#)
+ (lambda (#{name 1832}#
+ #{val 1833}#)
+ (#{id? 344}# #{name 1832}#))
+ #{tmp 1829}#)
#f)
(@apply
- (lambda (#{name 1822}#
- #{val 1823}#)
+ (lambda (#{name 1836}#
+ #{val 1837}#)
(values
'define-form
- #{name 1822}#
- #{val 1823}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1815}#)
- (let ((#{tmp 1824}#
+ #{name 1836}#
+ #{val 1837}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#))
+ #{tmp 1829}#)
+ (let ((#{tmp 1838}#
($sc-dispatch
- #{tmp 1814}#
+ #{tmp 1828}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 1824}#
+ (if (if #{tmp 1838}#
(@apply
- (lambda (#{name 1829}#
- #{args 1830}#
- #{e1 1831}#
- #{e2 1832}#)
- (if (#{id? 339}#
- #{name 1829}#)
- (#{valid-bound-ids? 399}#
- (#{lambda-var-list 449}#
- #{args 1830}#))
+ (lambda (#{name 1843}#
+ #{args 1844}#
+ #{e1 1845}#
+ #{e2 1846}#)
+ (if (#{id? 344}#
+ #{name 1843}#)
+ (#{valid-bound-ids? 412}#
+ (#{lambda-var-list 462}#
+ #{args 1844}#))
#f))
- #{tmp 1824}#)
+ #{tmp 1838}#)
#f)
(@apply
- (lambda (#{name 1839}#
- #{args 1840}#
- #{e1 1841}#
- #{e2 1842}#)
+ (lambda (#{name 1853}#
+ #{args 1854}#
+ #{e1 1855}#
+ #{e2 1856}#)
(values
'define-form
- (#{wrap 405}#
- #{name 1839}#
- #{w 1747}#
- #{mod 1750}#)
- (#{decorate-source 259}#
+ (#{wrap 418}#
+ #{name 1853}#
+ #{w 1761}#
+ #{mod 1764}#)
+ (#{decorate-source 260}#
(cons '#(syntax-object
lambda
((top)
@@ -3500,10 +3500,10 @@
(top)
(top)
(top))
- #("i1835"
- "i1836"
- "i1837"
- "i1838"))
+ #("i1849"
+ "i1850"
+ "i1851"
+ "i1852"))
#(ribcage
()
()
@@ -3525,12 +3525,12 @@
(top)
(top)
(top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
+ #("i1802"
+ "i1803"
+ "i1804"
+ "i1805"
+ "i1806"
+ "i1807"))
#(ribcage
()
()
@@ -3538,7 +3538,7 @@
#(ribcage
#(first)
#((top))
- #("i1780"))
+ #("i1794"))
#(ribcage
()
()
@@ -3566,13 +3566,13 @@
(top)
(top)
(top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
+ #("i1766"
+ "i1767"
+ "i1768"
+ "i1769"
+ "i1770"
+ "i1771"
+ "i1772"))
#(ribcage
(lambda-var-list
gen-var
@@ -3846,81 +3846,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -3930,31 +3931,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -3994,43 +3994,43 @@
"i38")))
(hygiene
guile))
- (#{wrap 405}#
- (cons #{args 1840}#
- (cons #{e1 1841}#
- #{e2 1842}#))
- #{w 1747}#
- #{mod 1750}#))
- #{s 1748}#)
+ (#{wrap 418}#
+ (cons #{args 1854}#
+ (cons #{e1 1855}#
+ #{e2 1856}#))
+ #{w 1761}#
+ #{mod 1764}#))
+ #{s 1762}#)
'(())
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1824}#)
- (let ((#{tmp 1845}#
+ #{s 1762}#
+ #{mod 1764}#))
+ #{tmp 1838}#)
+ (let ((#{tmp 1859}#
($sc-dispatch
- #{tmp 1814}#
+ #{tmp 1828}#
'(_ any))))
- (if (if #{tmp 1845}#
+ (if (if #{tmp 1859}#
(@apply
- (lambda (#{name 1847}#)
- (#{id? 339}#
- #{name 1847}#))
- #{tmp 1845}#)
+ (lambda (#{name 1861}#)
+ (#{id? 344}#
+ #{name 1861}#))
+ #{tmp 1859}#)
#f)
(@apply
- (lambda (#{name 1849}#)
+ (lambda (#{name 1863}#)
(values
'define-form
- (#{wrap 405}#
- #{name 1849}#
- #{w 1747}#
- #{mod 1750}#)
+ (#{wrap 418}#
+ #{name 1863}#
+ #{w 1761}#
+ #{mod 1764}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1848"))
+ #("i1862"))
#(ribcage
()
()
@@ -4052,12 +4052,12 @@
(top)
(top)
(top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
+ #("i1802"
+ "i1803"
+ "i1804"
+ "i1805"
+ "i1806"
+ "i1807"))
#(ribcage
()
()
@@ -4065,7 +4065,7 @@
#(ribcage
#(first)
#((top))
- #("i1780"))
+ #("i1794"))
#(ribcage
()
()
@@ -4093,13 +4093,13 @@
(top)
(top)
(top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
+ #("i1766"
+ "i1767"
+ "i1768"
+ "i1769"
+ "i1770"
+ "i1771"
+ "i1772"))
#(ribcage
(lambda-var-list
gen-var
@@ -4373,81 +4373,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -4457,31 +4458,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -4526,7 +4526,7 @@
#(ribcage
#(name)
#((top))
- #("i1848"))
+ #("i1862"))
#(ribcage
()
()
@@ -4548,12 +4548,12 @@
(top)
(top)
(top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
+ #("i1802"
+ "i1803"
+ "i1804"
+ "i1805"
+ "i1806"
+ "i1807"))
#(ribcage
()
()
@@ -4561,7 +4561,7 @@
#(ribcage
#(first)
#((top))
- #("i1780"))
+ #("i1794"))
#(ribcage
()
()
@@ -4589,13 +4589,13 @@
(top)
(top)
(top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
+ #("i1766"
+ "i1767"
+ "i1768"
+ "i1769"
+ "i1770"
+ "i1771"
+ "i1772"))
#(ribcage
(lambda-var-list
gen-var
@@ -4869,81 +4869,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -4953,31 +4954,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -5022,7 +5022,7 @@
#(ribcage
#(name)
#((top))
- #("i1848"))
+ #("i1862"))
#(ribcage
()
()
@@ -5044,12 +5044,12 @@
(top)
(top)
(top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
+ #("i1802"
+ "i1803"
+ "i1804"
+ "i1805"
+ "i1806"
+ "i1807"))
#(ribcage
()
()
@@ -5057,7 +5057,7 @@
#(ribcage
#(first)
#((top))
- #("i1780"))
+ #("i1794"))
#(ribcage
()
()
@@ -5085,13 +5085,13 @@
(top)
(top)
(top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
+ #("i1766"
+ "i1767"
+ "i1768"
+ "i1769"
+ "i1770"
+ "i1771"
+ "i1772"))
#(ribcage
(lambda-var-list
gen-var
@@ -5365,81 +5365,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -5449,31 +5450,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -5513,817 +5513,817 @@
"i38")))
(hygiene guile)))
'(())
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1845}#)
+ #{s 1762}#
+ #{mod 1764}#))
+ #{tmp 1859}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1814}#))))))))
- (if (eqv? #{ftype 1782}# 'define-syntax)
- (let ((#{tmp 1852}# #{e 1745}#))
- (let ((#{tmp 1853}#
+ #{tmp 1828}#))))))))
+ (if (eqv? #{ftype 1796}# 'define-syntax)
+ (let ((#{tmp 1866}# #{e 1759}#))
+ (let ((#{tmp 1867}#
($sc-dispatch
- #{tmp 1852}#
+ #{tmp 1866}#
'(_ any any))))
- (if (if #{tmp 1853}#
+ (if (if #{tmp 1867}#
(@apply
- (lambda (#{name 1856}#
- #{val 1857}#)
- (#{id? 339}#
- #{name 1856}#))
- #{tmp 1853}#)
+ (lambda (#{name 1870}#
+ #{val 1871}#)
+ (#{id? 344}#
+ #{name 1870}#))
+ #{tmp 1867}#)
#f)
(@apply
- (lambda (#{name 1860}#
- #{val 1861}#)
+ (lambda (#{name 1874}#
+ #{val 1875}#)
(values
'define-syntax-form
- #{name 1860}#
- #{val 1861}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1853}#)
+ #{name 1874}#
+ #{val 1875}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#))
+ #{tmp 1867}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1852}#))))
+ #{tmp 1866}#))))
(values
'call
#f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)))))))))))))))
- (if (#{syntax-object? 305}# #{e 1745}#)
- (#{syntax-type 417}#
- (#{syntax-object-expression 307}# #{e 1745}#)
- #{r 1746}#
- (#{join-wraps 387}#
- #{w 1747}#
- (#{syntax-object-wrap 309}# #{e 1745}#))
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)))))))))))))))
+ (if (#{syntax-object? 307}# #{e 1759}#)
+ (#{syntax-type 430}#
+ (#{syntax-object-expression 309}# #{e 1759}#)
+ #{r 1760}#
+ (#{join-wraps 400}#
+ #{w 1761}#
+ (#{syntax-object-wrap 311}# #{e 1759}#))
(begin
- (let ((#{t 1867}#
- (#{source-annotation 320}# #{e 1745}#)))
- (if #{t 1867}# #{t 1867}# #{s 1748}#)))
- #{rib 1749}#
+ (let ((#{t 1881}#
+ (#{source-annotation 322}# #{e 1759}#)))
+ (if #{t 1881}# #{t 1881}# #{s 1762}#)))
+ #{rib 1763}#
(begin
- (let ((#{t 1871}#
- (#{syntax-object-module 311}# #{e 1745}#)))
- (if #{t 1871}# #{t 1871}# #{mod 1750}#)))
- #{for-car? 1751}#)
- (if (self-evaluating? #{e 1745}#)
+ (let ((#{t 1885}#
+ (#{syntax-object-module 313}# #{e 1759}#)))
+ (if #{t 1885}# #{t 1885}# #{mod 1764}#)))
+ #{for-car? 1765}#)
+ (if (self-evaluating? #{e 1759}#)
(values
'constant
#f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)
(values
'other
#f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)))))))
- (#{chi 419}#
- (lambda (#{e 1876}# #{r 1877}# #{w 1878}# #{mod 1879}#)
+ #{e 1759}#
+ #{w 1761}#
+ #{s 1762}#
+ #{mod 1764}#)))))))
+ (#{chi 432}#
+ (lambda (#{e 1890}# #{r 1891}# #{w 1892}# #{mod 1893}#)
(call-with-values
(lambda ()
- (#{syntax-type 417}#
- #{e 1876}#
- #{r 1877}#
- #{w 1878}#
- (#{source-annotation 320}# #{e 1876}#)
+ (#{syntax-type 430}#
+ #{e 1890}#
+ #{r 1891}#
+ #{w 1892}#
+ (#{source-annotation 322}# #{e 1890}#)
#f
- #{mod 1879}#
+ #{mod 1893}#
#f))
- (lambda (#{type 1884}#
- #{value 1885}#
- #{e 1886}#
- #{w 1887}#
- #{s 1888}#
- #{mod 1889}#)
- (#{chi-expr 421}#
- #{type 1884}#
- #{value 1885}#
- #{e 1886}#
- #{r 1877}#
- #{w 1887}#
- #{s 1888}#
- #{mod 1889}#)))))
- (#{chi-expr 421}#
- (lambda (#{type 1896}#
- #{value 1897}#
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'lexical)
- (#{build-lexical-reference 271}#
+ (lambda (#{type 1898}#
+ #{value 1899}#
+ #{e 1900}#
+ #{w 1901}#
+ #{s 1902}#
+ #{mod 1903}#)
+ (#{chi-expr 434}#
+ #{type 1898}#
+ #{value 1899}#
+ #{e 1900}#
+ #{r 1891}#
+ #{w 1901}#
+ #{s 1902}#
+ #{mod 1903}#)))))
+ (#{chi-expr 434}#
+ (lambda (#{type 1910}#
+ #{value 1911}#
+ #{e 1912}#
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#)
+ (if (eqv? #{type 1910}# 'lexical)
+ (#{build-lexical-reference 272}#
'value
- #{s 1901}#
- #{e 1898}#
- #{value 1897}#)
- (if (if (eqv? #{type 1896}# 'core)
+ #{s 1915}#
+ #{e 1912}#
+ #{value 1911}#)
+ (if (if (eqv? #{type 1910}# 'core)
#t
- (eqv? #{type 1896}# 'core-form))
- (#{value 1897}#
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'module-ref)
+ (eqv? #{type 1910}# 'core-form))
+ (#{value 1911}#
+ #{e 1912}#
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#)
+ (if (eqv? #{type 1910}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 1897}# #{e 1898}# #{r 1899}# #{w 1900}#))
- (lambda (#{e 1913}#
- #{r 1914}#
- #{w 1915}#
- #{s 1916}#
- #{mod 1917}#)
- (#{chi 419}#
- #{e 1913}#
- #{r 1914}#
- #{w 1915}#
- #{mod 1917}#)))
- (if (eqv? #{type 1896}# 'lexical-call)
- (#{chi-application 423}#
+ (#{value 1911}# #{e 1912}# #{r 1913}# #{w 1914}#))
+ (lambda (#{e 1927}#
+ #{r 1928}#
+ #{w 1929}#
+ #{s 1930}#
+ #{mod 1931}#)
+ (#{chi 432}#
+ #{e 1927}#
+ #{r 1928}#
+ #{w 1929}#
+ #{mod 1931}#)))
+ (if (eqv? #{type 1910}# 'lexical-call)
+ (#{chi-application 436}#
(begin
- (let ((#{id 1925}# (car #{e 1898}#)))
- (#{build-lexical-reference 271}#
+ (let ((#{id 1939}# (car #{e 1912}#)))
+ (#{build-lexical-reference 272}#
'fun
- (#{source-annotation 320}# #{id 1925}#)
- (if (#{syntax-object? 305}# #{id 1925}#)
- (syntax->datum #{id 1925}#)
- #{id 1925}#)
- #{value 1897}#)))
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'global-call)
- (#{chi-application 423}#
- (#{build-global-reference 277}#
- (#{source-annotation 320}# (car #{e 1898}#))
- (if (#{syntax-object? 305}# #{value 1897}#)
- (#{syntax-object-expression 307}# #{value 1897}#)
- #{value 1897}#)
- (if (#{syntax-object? 305}# #{value 1897}#)
- (#{syntax-object-module 311}# #{value 1897}#)
- #{mod 1902}#))
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'constant)
- (#{build-data 291}#
- #{s 1901}#
- (#{strip 445}#
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
+ (#{source-annotation 322}# #{id 1939}#)
+ (if (#{syntax-object? 307}# #{id 1939}#)
+ (syntax->datum #{id 1939}#)
+ #{id 1939}#)
+ #{value 1911}#)))
+ #{e 1912}#
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#)
+ (if (eqv? #{type 1910}# 'global-call)
+ (#{chi-application 436}#
+ (#{build-global-reference 278}#
+ (#{source-annotation 322}# (car #{e 1912}#))
+ (if (#{syntax-object? 307}# #{value 1911}#)
+ (#{syntax-object-expression 309}# #{value 1911}#)
+ #{value 1911}#)
+ (if (#{syntax-object? 307}# #{value 1911}#)
+ (#{syntax-object-module 313}# #{value 1911}#)
+ #{mod 1916}#))
+ #{e 1912}#
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#)
+ (if (eqv? #{type 1910}# 'constant)
+ (#{build-data 292}#
+ #{s 1915}#
+ (#{strip 458}#
+ (#{source-wrap 420}#
+ #{e 1912}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#)
'(())))
- (if (eqv? #{type 1896}# 'global)
- (#{build-global-reference 277}#
- #{s 1901}#
- #{value 1897}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'call)
- (#{chi-application 423}#
- (#{chi 419}#
- (car #{e 1898}#)
- #{r 1899}#
- #{w 1900}#
- #{mod 1902}#)
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'begin-form)
- (let ((#{tmp 1932}# #{e 1898}#))
- (let ((#{tmp 1933}#
+ (if (eqv? #{type 1910}# 'global)
+ (#{build-global-reference 278}#
+ #{s 1915}#
+ #{value 1911}#
+ #{mod 1916}#)
+ (if (eqv? #{type 1910}# 'call)
+ (#{chi-application 436}#
+ (#{chi 432}#
+ (car #{e 1912}#)
+ #{r 1913}#
+ #{w 1914}#
+ #{mod 1916}#)
+ #{e 1912}#
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#)
+ (if (eqv? #{type 1910}# 'begin-form)
+ (let ((#{tmp 1946}# #{e 1912}#))
+ (let ((#{tmp 1947}#
($sc-dispatch
- #{tmp 1932}#
+ #{tmp 1946}#
'(_ any . each-any))))
- (if #{tmp 1933}#
+ (if #{tmp 1947}#
(@apply
- (lambda (#{e1 1936}# #{e2 1937}#)
- (#{chi-sequence 409}#
- (cons #{e1 1936}# #{e2 1937}#)
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))
- #{tmp 1933}#)
+ (lambda (#{e1 1950}# #{e2 1951}#)
+ (#{chi-sequence 422}#
+ (cons #{e1 1950}# #{e2 1951}#)
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#))
+ #{tmp 1947}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1932}#))))
- (if (eqv? #{type 1896}# 'local-syntax-form)
- (#{chi-local-syntax 429}#
- #{value 1897}#
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#
- #{chi-sequence 409}#)
- (if (eqv? #{type 1896}# 'eval-when-form)
- (let ((#{tmp 1941}# #{e 1898}#))
- (let ((#{tmp 1942}#
+ #{tmp 1946}#))))
+ (if (eqv? #{type 1910}# 'local-syntax-form)
+ (#{chi-local-syntax 442}#
+ #{value 1911}#
+ #{e 1912}#
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#
+ #{chi-sequence 422}#)
+ (if (eqv? #{type 1910}# 'eval-when-form)
+ (let ((#{tmp 1955}# #{e 1912}#))
+ (let ((#{tmp 1956}#
($sc-dispatch
- #{tmp 1941}#
+ #{tmp 1955}#
'(_ each-any any . each-any))))
- (if #{tmp 1942}#
+ (if #{tmp 1956}#
(@apply
- (lambda (#{x 1946}#
- #{e1 1947}#
- #{e2 1948}#)
+ (lambda (#{x 1960}#
+ #{e1 1961}#
+ #{e2 1962}#)
(begin
- (let ((#{when-list 1950}#
- (#{chi-when-list 415}#
- #{e 1898}#
- #{x 1946}#
- #{w 1900}#)))
- (if (memq 'eval #{when-list 1950}#)
- (#{chi-sequence 409}#
- (cons #{e1 1947}# #{e2 1948}#)
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (#{chi-void 433}#)))))
- #{tmp 1942}#)
+ (let ((#{when-list 1964}#
+ (#{chi-when-list 428}#
+ #{e 1912}#
+ #{x 1960}#
+ #{w 1914}#)))
+ (if (memq 'eval #{when-list 1964}#)
+ (#{chi-sequence 422}#
+ (cons #{e1 1961}# #{e2 1962}#)
+ #{r 1913}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#)
+ (#{chi-void 446}#)))))
+ #{tmp 1956}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1941}#))))
- (if (if (eqv? #{type 1896}# 'define-form)
+ #{tmp 1955}#))))
+ (if (if (eqv? #{type 1910}# 'define-form)
#t
- (eqv? #{type 1896}# 'define-syntax-form))
+ (eqv? #{type 1910}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 1898}#
- (#{wrap 405}#
- #{value 1897}#
- #{w 1900}#
- #{mod 1902}#))
- (if (eqv? #{type 1896}# 'syntax)
+ #{e 1912}#
+ (#{wrap 418}#
+ #{value 1911}#
+ #{w 1914}#
+ #{mod 1916}#))
+ (if (eqv? #{type 1910}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))
- (if (eqv? #{type 1896}# 'displaced-lexical)
+ (#{source-wrap 420}#
+ #{e 1912}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#))
+ (if (eqv? #{type 1910}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))
+ (#{source-wrap 420}#
+ #{e 1912}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))))))))))))))))))
- (#{chi-application 423}#
- (lambda (#{x 1957}#
- #{e 1958}#
- #{r 1959}#
- #{w 1960}#
- #{s 1961}#
- #{mod 1962}#)
- (let ((#{tmp 1969}# #{e 1958}#))
- (let ((#{tmp 1970}#
- ($sc-dispatch #{tmp 1969}# '(any . each-any))))
- (if #{tmp 1970}#
+ (#{source-wrap 420}#
+ #{e 1912}#
+ #{w 1914}#
+ #{s 1915}#
+ #{mod 1916}#))))))))))))))))))
+ (#{chi-application 436}#
+ (lambda (#{x 1971}#
+ #{e 1972}#
+ #{r 1973}#
+ #{w 1974}#
+ #{s 1975}#
+ #{mod 1976}#)
+ (let ((#{tmp 1983}# #{e 1972}#))
+ (let ((#{tmp 1984}#
+ ($sc-dispatch #{tmp 1983}# '(any . each-any))))
+ (if #{tmp 1984}#
(@apply
- (lambda (#{e0 1973}# #{e1 1974}#)
- (#{build-application 265}#
- #{s 1961}#
- #{x 1957}#
- (map (lambda (#{e 1975}#)
- (#{chi 419}#
- #{e 1975}#
- #{r 1959}#
- #{w 1960}#
- #{mod 1962}#))
- #{e1 1974}#)))
- #{tmp 1970}#)
+ (lambda (#{e0 1987}# #{e1 1988}#)
+ (#{build-application 266}#
+ #{s 1975}#
+ #{x 1971}#
+ (map (lambda (#{e 1989}#)
+ (#{chi 432}#
+ #{e 1989}#
+ #{r 1973}#
+ #{w 1974}#
+ #{mod 1976}#))
+ #{e1 1988}#)))
+ #{tmp 1984}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1969}#))))))
- (#{chi-macro 425}#
- (lambda (#{p 1978}#
- #{e 1979}#
- #{r 1980}#
- #{w 1981}#
- #{s 1982}#
- #{rib 1983}#
- #{mod 1984}#)
+ #{tmp 1983}#))))))
+ (#{chi-macro 438}#
+ (lambda (#{p 1992}#
+ #{e 1993}#
+ #{r 1994}#
+ #{w 1995}#
+ #{s 1996}#
+ #{rib 1997}#
+ #{mod 1998}#)
(letrec*
- ((#{rebuild-macro-output 1993}#
- (lambda (#{x 1994}# #{m 1995}#)
- (if (pair? #{x 1994}#)
- (#{decorate-source 259}#
- (cons (#{rebuild-macro-output 1993}#
- (car #{x 1994}#)
- #{m 1995}#)
- (#{rebuild-macro-output 1993}#
- (cdr #{x 1994}#)
- #{m 1995}#))
- #{s 1982}#)
- (if (#{syntax-object? 305}# #{x 1994}#)
+ ((#{rebuild-macro-output 2007}#
+ (lambda (#{x 2008}# #{m 2009}#)
+ (if (pair? #{x 2008}#)
+ (#{decorate-source 260}#
+ (cons (#{rebuild-macro-output 2007}#
+ (car #{x 2008}#)
+ #{m 2009}#)
+ (#{rebuild-macro-output 2007}#
+ (cdr #{x 2008}#)
+ #{m 2009}#))
+ #{s 1996}#)
+ (if (#{syntax-object? 307}# #{x 2008}#)
(begin
- (let ((#{w 2003}#
- (#{syntax-object-wrap 309}# #{x 1994}#)))
+ (let ((#{w 2017}#
+ (#{syntax-object-wrap 311}# #{x 2008}#)))
(begin
- (let ((#{ms 2006}# (car #{w 2003}#))
- (#{s 2007}# (cdr #{w 2003}#)))
- (if (if (pair? #{ms 2006}#)
- (eq? (car #{ms 2006}#) #f)
+ (let ((#{ms 2020}# (car #{w 2017}#))
+ (#{s 2021}# (cdr #{w 2017}#)))
+ (if (if (pair? #{ms 2020}#)
+ (eq? (car #{ms 2020}#) #f)
#f)
- (#{make-syntax-object 303}#
- (#{syntax-object-expression 307}# #{x 1994}#)
- (cons (cdr #{ms 2006}#)
- (if #{rib 1983}#
- (cons #{rib 1983}# (cdr #{s 2007}#))
- (cdr #{s 2007}#)))
- (#{syntax-object-module 311}# #{x 1994}#))
- (#{make-syntax-object 303}#
- (#{decorate-source 259}#
- (#{syntax-object-expression 307}# #{x 1994}#)
- #{s 2007}#)
- (cons (cons #{m 1995}# #{ms 2006}#)
- (if #{rib 1983}#
- (cons #{rib 1983}#
- (cons 'shift #{s 2007}#))
- (cons 'shift #{s 2007}#)))
- (#{syntax-object-module 311}# #{x 1994}#)))))))
- (if (vector? #{x 1994}#)
+ (#{make-syntax-object 305}#
+ (#{syntax-object-expression 309}# #{x 2008}#)
+ (cons (cdr #{ms 2020}#)
+ (if #{rib 1997}#
+ (cons #{rib 1997}# (cdr #{s 2021}#))
+ (cdr #{s 2021}#)))
+ (#{syntax-object-module 313}# #{x 2008}#))
+ (#{make-syntax-object 305}#
+ (#{decorate-source 260}#
+ (#{syntax-object-expression 309}# #{x 2008}#)
+ #{s 2021}#)
+ (cons (cons #{m 2009}# #{ms 2020}#)
+ (if #{rib 1997}#
+ (cons #{rib 1997}#
+ (cons 'shift #{s 2021}#))
+ (cons 'shift #{s 2021}#)))
+ (#{syntax-object-module 313}# #{x 2008}#)))))))
+ (if (vector? #{x 2008}#)
(begin
- (let ((#{n 2019}# (vector-length #{x 1994}#)))
+ (let ((#{n 2033}# (vector-length #{x 2008}#)))
(begin
- (let ((#{v 2021}#
- (#{decorate-source 259}#
- (make-vector #{n 2019}#)
- #{x 1994}#)))
+ (let ((#{v 2035}#
+ (#{decorate-source 260}#
+ (make-vector #{n 2033}#)
+ #{x 2008}#)))
(letrec*
- ((#{loop 2024}#
- (lambda (#{i 2025}#)
- (if (= #{i 2025}# #{n 2019}#)
- (begin (if #f #f) #{v 2021}#)
+ ((#{loop 2038}#
+ (lambda (#{i 2039}#)
+ (if (= #{i 2039}# #{n 2033}#)
+ (begin (if #f #f) #{v 2035}#)
(begin
(vector-set!
- #{v 2021}#
- #{i 2025}#
- (#{rebuild-macro-output 1993}#
- (vector-ref #{x 1994}# #{i 2025}#)
- #{m 1995}#))
- (#{loop 2024}# (#{1+}# #{i 2025}#)))))))
- (begin (#{loop 2024}# 0)))))))
- (if (symbol? #{x 1994}#)
+ #{v 2035}#
+ #{i 2039}#
+ (#{rebuild-macro-output 2007}#
+ (vector-ref #{x 2008}# #{i 2039}#)
+ #{m 2009}#))
+ (#{loop 2038}# (#{1+}# #{i 2039}#)))))))
+ (begin (#{loop 2038}# 0)))))))
+ (if (symbol? #{x 2008}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap 407}#
- #{e 1979}#
- #{w 1981}#
- (cdr #{w 1981}#)
- #{mod 1984}#)
- #{x 1994}#)
- (#{decorate-source 259}# #{x 1994}# #{s 1982}#))))))))
+ (#{source-wrap 420}#
+ #{e 1993}#
+ #{w 1995}#
+ (cdr #{w 1995}#)
+ #{mod 1998}#)
+ #{x 2008}#)
+ (#{decorate-source 260}# #{x 2008}# #{s 1996}#))))))))
(begin
- (#{rebuild-macro-output 1993}#
- (#{p 1978}#
- (#{source-wrap 407}#
- #{e 1979}#
- (#{anti-mark 377}# #{w 1981}#)
- #{s 1982}#
- #{mod 1984}#))
+ (#{rebuild-macro-output 2007}#
+ (#{p 1992}#
+ (#{source-wrap 420}#
+ #{e 1993}#
+ (#{anti-mark 388}# #{w 1995}#)
+ #{s 1996}#
+ #{mod 1998}#))
(gensym "m"))))))
- (#{chi-body 427}#
- (lambda (#{body 2035}#
- #{outer-form 2036}#
- #{r 2037}#
- #{w 2038}#
- #{mod 2039}#)
+ (#{chi-body 440}#
+ (lambda (#{body 2049}#
+ #{outer-form 2050}#
+ #{r 2051}#
+ #{w 2052}#
+ #{mod 2053}#)
(begin
- (let ((#{r 2047}#
- (cons '("placeholder" placeholder) #{r 2037}#)))
+ (let ((#{r 2061}#
+ (cons '("placeholder" placeholder) #{r 2051}#)))
(begin
- (let ((#{ribcage 2049}#
- (#{make-ribcage 357}# '() '() '())))
+ (let ((#{ribcage 2063}#
+ (#{make-ribcage 367}# '() '() '())))
(begin
- (let ((#{w 2052}#
- (cons (car #{w 2038}#)
- (cons #{ribcage 2049}# (cdr #{w 2038}#)))))
+ (let ((#{w 2066}#
+ (cons (car #{w 2052}#)
+ (cons #{ribcage 2063}# (cdr #{w 2052}#)))))
(letrec*
- ((#{parse 2064}#
- (lambda (#{body 2065}#
- #{ids 2066}#
- #{labels 2067}#
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
- #{bindings 2071}#)
- (if (null? #{body 2065}#)
+ ((#{parse 2078}#
+ (lambda (#{body 2079}#
+ #{ids 2080}#
+ #{labels 2081}#
+ #{var-ids 2082}#
+ #{vars 2083}#
+ #{vals 2084}#
+ #{bindings 2085}#)
+ (if (null? #{body 2079}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 2036}#)
+ #{outer-form 2050}#)
(begin
- (let ((#{e 2076}# (cdr (car #{body 2065}#)))
- (#{er 2077}# (car (car #{body 2065}#))))
+ (let ((#{e 2090}# (cdr (car #{body 2079}#)))
+ (#{er 2091}# (car (car #{body 2079}#))))
(call-with-values
(lambda ()
- (#{syntax-type 417}#
- #{e 2076}#
- #{er 2077}#
+ (#{syntax-type 430}#
+ #{e 2090}#
+ #{er 2091}#
'(())
- (#{source-annotation 320}# #{er 2077}#)
- #{ribcage 2049}#
- #{mod 2039}#
+ (#{source-annotation 322}# #{er 2091}#)
+ #{ribcage 2063}#
+ #{mod 2053}#
#f))
- (lambda (#{type 2079}#
- #{value 2080}#
- #{e 2081}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#)
- (if (eqv? #{type 2079}# 'define-form)
+ (lambda (#{type 2093}#
+ #{value 2094}#
+ #{e 2095}#
+ #{w 2096}#
+ #{s 2097}#
+ #{mod 2098}#)
+ (if (eqv? #{type 2093}# 'define-form)
(begin
- (let ((#{id 2094}#
- (#{wrap 405}#
- #{value 2080}#
- #{w 2082}#
- #{mod 2084}#))
- (#{label 2095}#
- (#{gen-label 352}#)))
+ (let ((#{id 2108}#
+ (#{wrap 418}#
+ #{value 2094}#
+ #{w 2096}#
+ #{mod 2098}#))
+ (#{label 2109}#
+ (#{gen-label 362}#)))
(begin
- (let ((#{var 2097}#
- (#{gen-var 447}#
- #{id 2094}#)))
+ (let ((#{var 2111}#
+ (#{gen-var 460}#
+ #{id 2108}#)))
(begin
- (#{extend-ribcage! 381}#
- #{ribcage 2049}#
- #{id 2094}#
- #{label 2095}#)
- (#{parse 2064}#
- (cdr #{body 2065}#)
- (cons #{id 2094}#
- #{ids 2066}#)
- (cons #{label 2095}#
- #{labels 2067}#)
- (cons #{id 2094}#
- #{var-ids 2068}#)
- (cons #{var 2097}#
- #{vars 2069}#)
- (cons (cons #{er 2077}#
- (#{wrap 405}#
- #{e 2081}#
- #{w 2082}#
- #{mod 2084}#))
- #{vals 2070}#)
+ (#{extend-ribcage! 394}#
+ #{ribcage 2063}#
+ #{id 2108}#
+ #{label 2109}#)
+ (#{parse 2078}#
+ (cdr #{body 2079}#)
+ (cons #{id 2108}#
+ #{ids 2080}#)
+ (cons #{label 2109}#
+ #{labels 2081}#)
+ (cons #{id 2108}#
+ #{var-ids 2082}#)
+ (cons #{var 2111}#
+ #{vars 2083}#)
+ (cons (cons #{er 2091}#
+ (#{wrap 418}#
+ #{e 2095}#
+ #{w 2096}#
+ #{mod 2098}#))
+ #{vals 2084}#)
(cons (cons 'lexical
- #{var 2097}#)
- #{bindings 2071}#)))))))
- (if (eqv? #{type 2079}#
+ #{var 2111}#)
+ #{bindings 2085}#)))))))
+ (if (eqv? #{type 2093}#
'define-syntax-form)
(begin
- (let ((#{id 2102}#
- (#{wrap 405}#
- #{value 2080}#
- #{w 2082}#
- #{mod 2084}#))
- (#{label 2103}#
- (#{gen-label 352}#)))
+ (let ((#{id 2116}#
+ (#{wrap 418}#
+ #{value 2094}#
+ #{w 2096}#
+ #{mod 2098}#))
+ (#{label 2117}#
+ (#{gen-label 362}#)))
(begin
- (#{extend-ribcage! 381}#
- #{ribcage 2049}#
- #{id 2102}#
- #{label 2103}#)
- (#{parse 2064}#
- (cdr #{body 2065}#)
- (cons #{id 2102}# #{ids 2066}#)
- (cons #{label 2103}#
- #{labels 2067}#)
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
+ (#{extend-ribcage! 394}#
+ #{ribcage 2063}#
+ #{id 2116}#
+ #{label 2117}#)
+ (#{parse 2078}#
+ (cdr #{body 2079}#)
+ (cons #{id 2116}# #{ids 2080}#)
+ (cons #{label 2117}#
+ #{labels 2081}#)
+ #{var-ids 2082}#
+ #{vars 2083}#
+ #{vals 2084}#
(cons (cons 'macro
- (cons #{er 2077}#
- (#{wrap 405}#
- #{e 2081}#
- #{w 2082}#
- #{mod 2084}#)))
- #{bindings 2071}#)))))
- (if (eqv? #{type 2079}# 'begin-form)
- (let ((#{tmp 2106}# #{e 2081}#))
- (let ((#{tmp 2107}#
+ (cons #{er 2091}#
+ (#{wrap 418}#
+ #{e 2095}#
+ #{w 2096}#
+ #{mod 2098}#)))
+ #{bindings 2085}#)))))
+ (if (eqv? #{type 2093}# 'begin-form)
+ (let ((#{tmp 2120}# #{e 2095}#))
+ (let ((#{tmp 2121}#
($sc-dispatch
- #{tmp 2106}#
+ #{tmp 2120}#
'(_ . each-any))))
- (if #{tmp 2107}#
+ (if #{tmp 2121}#
(@apply
- (lambda (#{e1 2109}#)
- (#{parse 2064}#
+ (lambda (#{e1 2123}#)
+ (#{parse 2078}#
(letrec*
- ((#{f 2112}#
- (lambda (#{forms 2113}#)
- (if (null? #{forms 2113}#)
- (cdr #{body 2065}#)
- (cons (cons #{er 2077}#
- (#{wrap 405}#
- (car #{forms 2113}#)
- #{w 2082}#
- #{mod 2084}#))
- (#{f 2112}#
- (cdr #{forms 2113}#)))))))
+ ((#{f 2126}#
+ (lambda (#{forms 2127}#)
+ (if (null? #{forms 2127}#)
+ (cdr #{body 2079}#)
+ (cons (cons #{er 2091}#
+ (#{wrap 418}#
+ (car #{forms 2127}#)
+ #{w 2096}#
+ #{mod 2098}#))
+ (#{f 2126}#
+ (cdr #{forms 2127}#)))))))
(begin
- (#{f 2112}#
- #{e1 2109}#)))
- #{ids 2066}#
- #{labels 2067}#
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
- #{bindings 2071}#))
- #{tmp 2107}#)
+ (#{f 2126}#
+ #{e1 2123}#)))
+ #{ids 2080}#
+ #{labels 2081}#
+ #{var-ids 2082}#
+ #{vars 2083}#
+ #{vals 2084}#
+ #{bindings 2085}#))
+ #{tmp 2121}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2106}#))))
- (if (eqv? #{type 2079}#
+ #{tmp 2120}#))))
+ (if (eqv? #{type 2093}#
'local-syntax-form)
- (#{chi-local-syntax 429}#
- #{value 2080}#
- #{e 2081}#
- #{er 2077}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#
- (lambda (#{forms 2116}#
- #{er 2117}#
- #{w 2118}#
- #{s 2119}#
- #{mod 2120}#)
- (#{parse 2064}#
+ (#{chi-local-syntax 442}#
+ #{value 2094}#
+ #{e 2095}#
+ #{er 2091}#
+ #{w 2096}#
+ #{s 2097}#
+ #{mod 2098}#
+ (lambda (#{forms 2130}#
+ #{er 2131}#
+ #{w 2132}#
+ #{s 2133}#
+ #{mod 2134}#)
+ (#{parse 2078}#
(letrec*
- ((#{f 2128}#
- (lambda (#{forms 2129}#)
- (if (null? #{forms 2129}#)
- (cdr #{body 2065}#)
- (cons (cons #{er 2117}#
- (#{wrap 405}#
- (car #{forms 2129}#)
- #{w 2118}#
- #{mod 2120}#))
- (#{f 2128}#
- (cdr #{forms 2129}#)))))))
+ ((#{f 2142}#
+ (lambda (#{forms 2143}#)
+ (if (null? #{forms 2143}#)
+ (cdr #{body 2079}#)
+ (cons (cons #{er 2131}#
+ (#{wrap 418}#
+ (car #{forms 2143}#)
+ #{w 2132}#
+ #{mod 2134}#))
+ (#{f 2142}#
+ (cdr #{forms 2143}#)))))))
(begin
- (#{f 2128}#
- #{forms 2116}#)))
- #{ids 2066}#
- #{labels 2067}#
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
- #{bindings 2071}#)))
- (if (null? #{ids 2066}#)
- (#{build-sequence 293}#
+ (#{f 2142}#
+ #{forms 2130}#)))
+ #{ids 2080}#
+ #{labels 2081}#
+ #{var-ids 2082}#
+ #{vars 2083}#
+ #{vals 2084}#
+ #{bindings 2085}#)))
+ (if (null? #{ids 2080}#)
+ (#{build-sequence 294}#
#f
- (map (lambda (#{x 2132}#)
- (#{chi 419}#
- (cdr #{x 2132}#)
- (car #{x 2132}#)
+ (map (lambda (#{x 2146}#)
+ (#{chi 432}#
+ (cdr #{x 2146}#)
+ (car #{x 2146}#)
'(())
- #{mod 2084}#))
- (cons (cons #{er 2077}#
- (#{source-wrap 407}#
- #{e 2081}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#))
- (cdr #{body 2065}#))))
+ #{mod 2098}#))
+ (cons (cons #{er 2091}#
+ (#{source-wrap 420}#
+ #{e 2095}#
+ #{w 2096}#
+ #{s 2097}#
+ #{mod 2098}#))
+ (cdr #{body 2079}#))))
(begin
- (if (not (#{valid-bound-ids? 399}#
- #{ids 2066}#))
+ (if (not (#{valid-bound-ids? 412}#
+ #{ids 2080}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 2036}#))
+ #{outer-form 2050}#))
(letrec*
- ((#{loop 2139}#
- (lambda (#{bs 2140}#
- #{er-cache 2141}#
- #{r-cache 2142}#)
- (if (not (null? #{bs 2140}#))
+ ((#{loop 2153}#
+ (lambda (#{bs 2154}#
+ #{er-cache 2155}#
+ #{r-cache 2156}#)
+ (if (not (null? #{bs 2154}#))
(begin
- (let ((#{b 2145}#
- (car #{bs 2140}#)))
- (if (eq? (car #{b 2145}#)
+ (let ((#{b 2159}#
+ (car #{bs 2154}#)))
+ (if (eq? (car #{b 2159}#)
'macro)
(begin
- (let ((#{er 2148}#
- (car (cdr #{b 2145}#))))
+ (let ((#{er 2162}#
+ (car (cdr #{b 2159}#))))
(begin
- (let ((#{r-cache 2150}#
- (if (eq? #{er 2148}#
- #{er-cache 2141}#)
- #{r-cache 2142}#
- (#{macros-only-env 331}#
- #{er 2148}#))))
+ (let ((#{r-cache 2164}#
+ (if (eq? #{er 2162}#
+ #{er-cache 2155}#)
+ #{r-cache 2156}#
+ (#{macros-only-env 336}#
+ #{er 2162}#))))
(begin
(set-cdr!
- #{b 2145}#
- (#{eval-local-transformer 431}#
- (#{chi 419}#
- (cdr (cdr #{b 2145}#))
- #{r-cache 2150}#
+ #{b 2159}#
+ (#{eval-local-transformer 444}#
+ (#{chi 432}#
+ (cdr (cdr #{b 2159}#))
+ #{r-cache 2164}#
'(())
- #{mod 2084}#)
- #{mod 2084}#))
- (#{loop 2139}#
- (cdr #{bs 2140}#)
- #{er 2148}#
- #{r-cache 2150}#))))))
- (#{loop 2139}#
- (cdr #{bs 2140}#)
- #{er-cache 2141}#
- #{r-cache 2142}#))))))))
+ #{mod 2098}#)
+ #{mod 2098}#))
+ (#{loop 2153}#
+ (cdr #{bs 2154}#)
+ #{er 2162}#
+ #{r-cache 2164}#))))))
+ (#{loop 2153}#
+ (cdr #{bs 2154}#)
+ #{er-cache 2155}#
+ #{r-cache 2156}#))))))))
(begin
- (#{loop 2139}#
- #{bindings 2071}#
+ (#{loop 2153}#
+ #{bindings 2085}#
#f
#f)))
(set-cdr!
- #{r 2047}#
- (#{extend-env 327}#
- #{labels 2067}#
- #{bindings 2071}#
- (cdr #{r 2047}#)))
- (#{build-letrec 299}#
+ #{r 2061}#
+ (#{extend-env 332}#
+ #{labels 2081}#
+ #{bindings 2085}#
+ (cdr #{r 2061}#)))
+ (#{build-letrec 300}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 2068}#))
- (reverse #{vars 2069}#)
- (map (lambda (#{x 2153}#)
- (#{chi 419}#
- (cdr #{x 2153}#)
- (car #{x 2153}#)
+ #{var-ids 2082}#))
+ (reverse #{vars 2083}#)
+ (map (lambda (#{x 2167}#)
+ (#{chi 432}#
+ (cdr #{x 2167}#)
+ (car #{x 2167}#)
'(())
- #{mod 2084}#))
- (reverse #{vals 2070}#))
- (#{build-sequence 293}#
+ #{mod 2098}#))
+ (reverse #{vals 2084}#))
+ (#{build-sequence 294}#
#f
- (map (lambda (#{x 2157}#)
- (#{chi 419}#
- (cdr #{x 2157}#)
- (car #{x 2157}#)
+ (map (lambda (#{x 2171}#)
+ (#{chi 432}#
+ (cdr #{x 2171}#)
+ (car #{x 2171}#)
'(())
- #{mod 2084}#))
- (cons (cons #{er 2077}#
- (#{source-wrap 407}#
- #{e 2081}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#))
- (cdr #{body 2065}#)))))))))))))))))))
+ #{mod 2098}#))
+ (cons (cons #{er 2091}#
+ (#{source-wrap 420}#
+ #{e 2095}#
+ #{w 2096}#
+ #{s 2097}#
+ #{mod 2098}#))
+ (cdr #{body 2079}#)))))))))))))))))))
(begin
- (#{parse 2064}#
- (map (lambda (#{x 2072}#)
- (cons #{r 2047}#
- (#{wrap 405}#
- #{x 2072}#
- #{w 2052}#
- #{mod 2039}#)))
- #{body 2035}#)
+ (#{parse 2078}#
+ (map (lambda (#{x 2086}#)
+ (cons #{r 2061}#
+ (#{wrap 418}#
+ #{x 2086}#
+ #{w 2066}#
+ #{mod 2053}#)))
+ #{body 2049}#)
'()
'()
'()
'()
'()
'())))))))))))
- (#{chi-local-syntax 429}#
- (lambda (#{rec? 2160}#
- #{e 2161}#
- #{r 2162}#
- #{w 2163}#
- #{s 2164}#
- #{mod 2165}#
- #{k 2166}#)
- (let ((#{tmp 2174}# #{e 2161}#))
- (let ((#{tmp 2175}#
+ (#{chi-local-syntax 442}#
+ (lambda (#{rec? 2174}#
+ #{e 2175}#
+ #{r 2176}#
+ #{w 2177}#
+ #{s 2178}#
+ #{mod 2179}#
+ #{k 2180}#)
+ (let ((#{tmp 2188}# #{e 2175}#))
+ (let ((#{tmp 2189}#
($sc-dispatch
- #{tmp 2174}#
+ #{tmp 2188}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 2175}#
+ (if #{tmp 2189}#
(@apply
- (lambda (#{id 2180}#
- #{val 2181}#
- #{e1 2182}#
- #{e2 2183}#)
+ (lambda (#{id 2194}#
+ #{val 2195}#
+ #{e1 2196}#
+ #{e2 2197}#)
(begin
- (let ((#{ids 2185}# #{id 2180}#))
- (if (not (#{valid-bound-ids? 399}# #{ids 2185}#))
+ (let ((#{ids 2199}# #{id 2194}#))
+ (if (not (#{valid-bound-ids? 412}# #{ids 2199}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 2161}#)
+ #{e 2175}#)
(begin
- (let ((#{labels 2188}#
- (#{gen-labels 354}# #{ids 2185}#)))
+ (let ((#{labels 2202}#
+ (#{gen-labels 364}# #{ids 2199}#)))
(begin
- (let ((#{new-w 2190}#
- (#{make-binding-wrap 383}#
- #{ids 2185}#
- #{labels 2188}#
- #{w 2163}#)))
- (#{k 2166}#
- (cons #{e1 2182}# #{e2 2183}#)
- (#{extend-env 327}#
- #{labels 2188}#
+ (let ((#{new-w 2204}#
+ (#{make-binding-wrap 396}#
+ #{ids 2199}#
+ #{labels 2202}#
+ #{w 2177}#)))
+ (#{k 2180}#
+ (cons #{e1 2196}# #{e2 2197}#)
+ (#{extend-env 332}#
+ #{labels 2202}#
(begin
- (let ((#{w 2194}#
- (if #{rec? 2160}#
- #{new-w 2190}#
- #{w 2163}#))
- (#{trans-r 2195}#
- (#{macros-only-env 331}#
- #{r 2162}#)))
- (map (lambda (#{x 2196}#)
+ (let ((#{w 2208}#
+ (if #{rec? 2174}#
+ #{new-w 2204}#
+ #{w 2177}#))
+ (#{trans-r 2209}#
+ (#{macros-only-env 336}#
+ #{r 2176}#)))
+ (map (lambda (#{x 2210}#)
(cons 'macro
- (#{eval-local-transformer 431}#
- (#{chi 419}#
- #{x 2196}#
- #{trans-r 2195}#
- #{w 2194}#
- #{mod 2165}#)
- #{mod 2165}#)))
- #{val 2181}#)))
- #{r 2162}#)
- #{new-w 2190}#
- #{s 2164}#
- #{mod 2165}#)))))))))
- #{tmp 2175}#)
- (let ((#{_ 2201}# #{tmp 2174}#))
+ (#{eval-local-transformer 444}#
+ (#{chi 432}#
+ #{x 2210}#
+ #{trans-r 2209}#
+ #{w 2208}#
+ #{mod 2179}#)
+ #{mod 2179}#)))
+ #{val 2195}#)))
+ #{r 2176}#)
+ #{new-w 2204}#
+ #{s 2178}#
+ #{mod 2179}#)))))))))
+ #{tmp 2189}#)
+ (let ((#{_ 2215}# #{tmp 2188}#))
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap 407}#
- #{e 2161}#
- #{w 2163}#
- #{s 2164}#
- #{mod 2165}#))))))))
- (#{eval-local-transformer 431}#
- (lambda (#{expanded 2202}# #{mod 2203}#)
+ (#{source-wrap 420}#
+ #{e 2175}#
+ #{w 2177}#
+ #{s 2178}#
+ #{mod 2179}#))))))))
+ (#{eval-local-transformer 444}#
+ (lambda (#{expanded 2216}# #{mod 2217}#)
(begin
- (let ((#{p 2207}#
+ (let ((#{p 2221}#
(#{local-eval-hook 252}#
- #{expanded 2202}#
- #{mod 2203}#)))
- (if (procedure? #{p 2207}#)
- #{p 2207}#
+ #{expanded 2216}#
+ #{mod 2217}#)))
+ (if (procedure? #{p 2221}#)
+ #{p 2221}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 2207}#))))))
- (#{chi-void 433}#
- (lambda () (#{build-void 263}# #f)))
- (#{ellipsis? 435}#
- (lambda (#{x 2209}#)
- (if (#{nonsymbol-id? 337}# #{x 2209}#)
- (#{free-id=? 395}#
- #{x 2209}#
+ #{p 2221}#))))))
+ (#{chi-void 446}#
+ (lambda () (#{build-void 264}# #f)))
+ (#{ellipsis? 448}#
+ (lambda (#{x 2223}#)
+ (if (#{nonsymbol-id? 342}# #{x 2223}#)
+ (#{free-id=? 408}#
+ #{x 2223}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2210"))
+ #(ribcage #(x) #((top)) #("i2224"))
#(ribcage
(lambda-var-list
gen-var
@@ -6597,81 +6597,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -6681,31 +6682,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -6741,249 +6741,249 @@
("i40" "i39" "i38")))
(hygiene guile)))
#f)))
- (#{lambda-formals 437}#
- (lambda (#{orig-args 2213}#)
+ (#{lambda-formals 450}#
+ (lambda (#{orig-args 2227}#)
(letrec*
- ((#{req 2216}#
- (lambda (#{args 2219}# #{rreq 2220}#)
- (let ((#{tmp 2223}# #{args 2219}#))
- (let ((#{tmp 2224}# ($sc-dispatch #{tmp 2223}# '())))
- (if #{tmp 2224}#
+ ((#{req 2230}#
+ (lambda (#{args 2233}# #{rreq 2234}#)
+ (let ((#{tmp 2237}# #{args 2233}#))
+ (let ((#{tmp 2238}# ($sc-dispatch #{tmp 2237}# '())))
+ (if #{tmp 2238}#
(@apply
(lambda ()
- (#{check 2218}# (reverse #{rreq 2220}#) #f))
- #{tmp 2224}#)
- (let ((#{tmp 2225}#
- ($sc-dispatch #{tmp 2223}# '(any . any))))
- (if (if #{tmp 2225}#
+ (#{check 2232}# (reverse #{rreq 2234}#) #f))
+ #{tmp 2238}#)
+ (let ((#{tmp 2239}#
+ ($sc-dispatch #{tmp 2237}# '(any . any))))
+ (if (if #{tmp 2239}#
(@apply
- (lambda (#{a 2228}# #{b 2229}#)
- (#{id? 339}# #{a 2228}#))
- #{tmp 2225}#)
+ (lambda (#{a 2242}# #{b 2243}#)
+ (#{id? 344}# #{a 2242}#))
+ #{tmp 2239}#)
#f)
(@apply
- (lambda (#{a 2232}# #{b 2233}#)
- (#{req 2216}#
- #{b 2233}#
- (cons #{a 2232}# #{rreq 2220}#)))
- #{tmp 2225}#)
- (let ((#{tmp 2234}# (list #{tmp 2223}#)))
- (if (if #{tmp 2234}#
+ (lambda (#{a 2246}# #{b 2247}#)
+ (#{req 2230}#
+ #{b 2247}#
+ (cons #{a 2246}# #{rreq 2234}#)))
+ #{tmp 2239}#)
+ (let ((#{tmp 2248}# (list #{tmp 2237}#)))
+ (if (if #{tmp 2248}#
(@apply
- (lambda (#{r 2236}#)
- (#{id? 339}# #{r 2236}#))
- #{tmp 2234}#)
+ (lambda (#{r 2250}#)
+ (#{id? 344}# #{r 2250}#))
+ #{tmp 2248}#)
#f)
(@apply
- (lambda (#{r 2238}#)
- (#{check 2218}#
- (reverse #{rreq 2220}#)
- #{r 2238}#))
- #{tmp 2234}#)
- (let ((#{else 2240}# #{tmp 2223}#))
+ (lambda (#{r 2252}#)
+ (#{check 2232}#
+ (reverse #{rreq 2234}#)
+ #{r 2252}#))
+ #{tmp 2248}#)
+ (let ((#{else 2254}# #{tmp 2237}#))
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 2213}#
- #{args 2219}#)))))))))))
- (#{check 2218}#
- (lambda (#{req 2241}# #{rest 2242}#)
- (if (#{distinct-bound-ids? 401}#
- (if #{rest 2242}#
- (cons #{rest 2242}# #{req 2241}#)
- #{req 2241}#))
- (values #{req 2241}# #f #{rest 2242}# #f)
+ #{orig-args 2227}#
+ #{args 2233}#)))))))))))
+ (#{check 2232}#
+ (lambda (#{req 2255}# #{rest 2256}#)
+ (if (#{distinct-bound-ids? 414}#
+ (if #{rest 2256}#
+ (cons #{rest 2256}# #{req 2255}#)
+ #{req 2255}#))
+ (values #{req 2255}# #f #{rest 2256}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 2213}#)))))
- (begin (#{req 2216}# #{orig-args 2213}# '())))))
- (#{chi-simple-lambda 439}#
- (lambda (#{e 2248}#
- #{r 2249}#
- #{w 2250}#
- #{s 2251}#
- #{mod 2252}#
- #{req 2253}#
- #{rest 2254}#
- #{meta 2255}#
- #{body 2256}#)
+ #{orig-args 2227}#)))))
+ (begin (#{req 2230}# #{orig-args 2227}# '())))))
+ (#{chi-simple-lambda 452}#
+ (lambda (#{e 2262}#
+ #{r 2263}#
+ #{w 2264}#
+ #{s 2265}#
+ #{mod 2266}#
+ #{req 2267}#
+ #{rest 2268}#
+ #{meta 2269}#
+ #{body 2270}#)
(begin
- (let ((#{ids 2268}#
- (if #{rest 2254}#
- (append #{req 2253}# (list #{rest 2254}#))
- #{req 2253}#)))
+ (let ((#{ids 2282}#
+ (if #{rest 2268}#
+ (append #{req 2267}# (list #{rest 2268}#))
+ #{req 2267}#)))
(begin
- (let ((#{vars 2270}#
- (map #{gen-var 447}# #{ids 2268}#)))
+ (let ((#{vars 2284}#
+ (map #{gen-var 460}# #{ids 2282}#)))
(begin
- (let ((#{labels 2272}#
- (#{gen-labels 354}# #{ids 2268}#)))
- (#{build-simple-lambda 283}#
- #{s 2251}#
- (map syntax->datum #{req 2253}#)
- (if #{rest 2254}#
- (syntax->datum #{rest 2254}#)
+ (let ((#{labels 2286}#
+ (#{gen-labels 364}# #{ids 2282}#)))
+ (#{build-simple-lambda 284}#
+ #{s 2265}#
+ (map syntax->datum #{req 2267}#)
+ (if #{rest 2268}#
+ (syntax->datum #{rest 2268}#)
#f)
- #{vars 2270}#
- #{meta 2255}#
- (#{chi-body 427}#
- #{body 2256}#
- (#{source-wrap 407}#
- #{e 2248}#
- #{w 2250}#
- #{s 2251}#
- #{mod 2252}#)
- (#{extend-var-env 329}#
- #{labels 2272}#
- #{vars 2270}#
- #{r 2249}#)
- (#{make-binding-wrap 383}#
- #{ids 2268}#
- #{labels 2272}#
- #{w 2250}#)
- #{mod 2252}#))))))))))
- (#{lambda*-formals 441}#
- (lambda (#{orig-args 2275}#)
+ #{vars 2284}#
+ #{meta 2269}#
+ (#{chi-body 440}#
+ #{body 2270}#
+ (#{source-wrap 420}#
+ #{e 2262}#
+ #{w 2264}#
+ #{s 2265}#
+ #{mod 2266}#)
+ (#{extend-var-env 334}#
+ #{labels 2286}#
+ #{vars 2284}#
+ #{r 2263}#)
+ (#{make-binding-wrap 396}#
+ #{ids 2282}#
+ #{labels 2286}#
+ #{w 2264}#)
+ #{mod 2266}#))))))))))
+ (#{lambda*-formals 454}#
+ (lambda (#{orig-args 2289}#)
(letrec*
- ((#{req 2278}#
- (lambda (#{args 2287}# #{rreq 2288}#)
- (let ((#{tmp 2291}# #{args 2287}#))
- (let ((#{tmp 2292}# ($sc-dispatch #{tmp 2291}# '())))
- (if #{tmp 2292}#
+ ((#{req 2292}#
+ (lambda (#{args 2301}# #{rreq 2302}#)
+ (let ((#{tmp 2305}# #{args 2301}#))
+ (let ((#{tmp 2306}# ($sc-dispatch #{tmp 2305}# '())))
+ (if #{tmp 2306}#
(@apply
(lambda ()
- (#{check 2286}#
- (reverse #{rreq 2288}#)
+ (#{check 2300}#
+ (reverse #{rreq 2302}#)
'()
#f
'()))
- #{tmp 2292}#)
- (let ((#{tmp 2293}#
- ($sc-dispatch #{tmp 2291}# '(any . any))))
- (if (if #{tmp 2293}#
+ #{tmp 2306}#)
+ (let ((#{tmp 2307}#
+ ($sc-dispatch #{tmp 2305}# '(any . any))))
+ (if (if #{tmp 2307}#
(@apply
- (lambda (#{a 2296}# #{b 2297}#)
- (#{id? 339}# #{a 2296}#))
- #{tmp 2293}#)
+ (lambda (#{a 2310}# #{b 2311}#)
+ (#{id? 344}# #{a 2310}#))
+ #{tmp 2307}#)
#f)
(@apply
- (lambda (#{a 2300}# #{b 2301}#)
- (#{req 2278}#
- #{b 2301}#
- (cons #{a 2300}# #{rreq 2288}#)))
- #{tmp 2293}#)
- (let ((#{tmp 2302}#
- ($sc-dispatch #{tmp 2291}# '(any . any))))
- (if (if #{tmp 2302}#
+ (lambda (#{a 2314}# #{b 2315}#)
+ (#{req 2292}#
+ #{b 2315}#
+ (cons #{a 2314}# #{rreq 2302}#)))
+ #{tmp 2307}#)
+ (let ((#{tmp 2316}#
+ ($sc-dispatch #{tmp 2305}# '(any . any))))
+ (if (if #{tmp 2316}#
(@apply
- (lambda (#{a 2305}# #{b 2306}#)
- (eq? (syntax->datum #{a 2305}#)
+ (lambda (#{a 2319}# #{b 2320}#)
+ (eq? (syntax->datum #{a 2319}#)
#:optional))
- #{tmp 2302}#)
+ #{tmp 2316}#)
#f)
(@apply
- (lambda (#{a 2309}# #{b 2310}#)
- (#{opt 2280}#
- #{b 2310}#
- (reverse #{rreq 2288}#)
+ (lambda (#{a 2323}# #{b 2324}#)
+ (#{opt 2294}#
+ #{b 2324}#
+ (reverse #{rreq 2302}#)
'()))
- #{tmp 2302}#)
- (let ((#{tmp 2311}#
- ($sc-dispatch #{tmp 2291}# '(any . any))))
- (if (if #{tmp 2311}#
+ #{tmp 2316}#)
+ (let ((#{tmp 2325}#
+ ($sc-dispatch #{tmp 2305}# '(any . any))))
+ (if (if #{tmp 2325}#
(@apply
- (lambda (#{a 2314}# #{b 2315}#)
- (eq? (syntax->datum #{a 2314}#) #:key))
- #{tmp 2311}#)
+ (lambda (#{a 2328}# #{b 2329}#)
+ (eq? (syntax->datum #{a 2328}#) #:key))
+ #{tmp 2325}#)
#f)
(@apply
- (lambda (#{a 2318}# #{b 2319}#)
- (#{key 2282}#
- #{b 2319}#
- (reverse #{rreq 2288}#)
+ (lambda (#{a 2332}# #{b 2333}#)
+ (#{key 2296}#
+ #{b 2333}#
+ (reverse #{rreq 2302}#)
'()
'()))
- #{tmp 2311}#)
- (let ((#{tmp 2320}#
+ #{tmp 2325}#)
+ (let ((#{tmp 2334}#
($sc-dispatch
- #{tmp 2291}#
+ #{tmp 2305}#
'(any any))))
- (if (if #{tmp 2320}#
+ (if (if #{tmp 2334}#
(@apply
- (lambda (#{a 2323}# #{b 2324}#)
- (eq? (syntax->datum #{a 2323}#)
+ (lambda (#{a 2337}# #{b 2338}#)
+ (eq? (syntax->datum #{a 2337}#)
#:rest))
- #{tmp 2320}#)
+ #{tmp 2334}#)
#f)
(@apply
- (lambda (#{a 2327}# #{b 2328}#)
- (#{rest 2284}#
- #{b 2328}#
- (reverse #{rreq 2288}#)
+ (lambda (#{a 2341}# #{b 2342}#)
+ (#{rest 2298}#
+ #{b 2342}#
+ (reverse #{rreq 2302}#)
'()
'()))
- #{tmp 2320}#)
- (let ((#{tmp 2329}# (list #{tmp 2291}#)))
- (if (if #{tmp 2329}#
+ #{tmp 2334}#)
+ (let ((#{tmp 2343}# (list #{tmp 2305}#)))
+ (if (if #{tmp 2343}#
(@apply
- (lambda (#{r 2331}#)
- (#{id? 339}# #{r 2331}#))
- #{tmp 2329}#)
+ (lambda (#{r 2345}#)
+ (#{id? 344}# #{r 2345}#))
+ #{tmp 2343}#)
#f)
(@apply
- (lambda (#{r 2333}#)
- (#{rest 2284}#
- #{r 2333}#
- (reverse #{rreq 2288}#)
+ (lambda (#{r 2347}#)
+ (#{rest 2298}#
+ #{r 2347}#
+ (reverse #{rreq 2302}#)
'()
'()))
- #{tmp 2329}#)
- (let ((#{else 2335}# #{tmp 2291}#))
+ #{tmp 2343}#)
+ (let ((#{else 2349}# #{tmp 2305}#))
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 2275}#
- #{args 2287}#)))))))))))))))))
- (#{opt 2280}#
- (lambda (#{args 2336}# #{req 2337}# #{ropt 2338}#)
- (let ((#{tmp 2342}# #{args 2336}#))
- (let ((#{tmp 2343}# ($sc-dispatch #{tmp 2342}# '())))
- (if #{tmp 2343}#
+ #{orig-args 2289}#
+ #{args 2301}#)))))))))))))))))
+ (#{opt 2294}#
+ (lambda (#{args 2350}# #{req 2351}# #{ropt 2352}#)
+ (let ((#{tmp 2356}# #{args 2350}#))
+ (let ((#{tmp 2357}# ($sc-dispatch #{tmp 2356}# '())))
+ (if #{tmp 2357}#
(@apply
(lambda ()
- (#{check 2286}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
+ (#{check 2300}#
+ #{req 2351}#
+ (reverse #{ropt 2352}#)
#f
'()))
- #{tmp 2343}#)
- (let ((#{tmp 2344}#
- ($sc-dispatch #{tmp 2342}# '(any . any))))
- (if (if #{tmp 2344}#
+ #{tmp 2357}#)
+ (let ((#{tmp 2358}#
+ ($sc-dispatch #{tmp 2356}# '(any . any))))
+ (if (if #{tmp 2358}#
(@apply
- (lambda (#{a 2347}# #{b 2348}#)
- (#{id? 339}# #{a 2347}#))
- #{tmp 2344}#)
+ (lambda (#{a 2361}# #{b 2362}#)
+ (#{id? 344}# #{a 2361}#))
+ #{tmp 2358}#)
#f)
(@apply
- (lambda (#{a 2351}# #{b 2352}#)
- (#{opt 2280}#
- #{b 2352}#
- #{req 2337}#
- (cons (cons #{a 2351}#
+ (lambda (#{a 2365}# #{b 2366}#)
+ (#{opt 2294}#
+ #{b 2366}#
+ #{req 2351}#
+ (cons (cons #{a 2365}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2349" "i2350"))
+ #("i2363" "i2364"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2339" "i2340" "i2341"))
+ #("i2353" "i2354" "i2355"))
#(ribcage
(check rest key opt req)
((top)
@@ -6991,15 +6991,15 @@
(top)
(top)
(top))
- ("i2285"
- "i2283"
- "i2281"
- "i2279"
- "i2277"))
+ ("i2299"
+ "i2297"
+ "i2295"
+ "i2293"
+ "i2291"))
#(ribcage
#(orig-args)
#((top))
- #("i2276"))
+ #("i2290"))
#(ribcage
(lambda-var-list
gen-var
@@ -7273,81 +7273,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -7357,31 +7358,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -7416,118 +7416,118 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))))
- #{ropt 2338}#)))
- #{tmp 2344}#)
- (let ((#{tmp 2353}#
+ #{ropt 2352}#)))
+ #{tmp 2358}#)
+ (let ((#{tmp 2367}#
($sc-dispatch
- #{tmp 2342}#
+ #{tmp 2356}#
'((any any) . any))))
- (if (if #{tmp 2353}#
+ (if (if #{tmp 2367}#
(@apply
- (lambda (#{a 2357}# #{init 2358}# #{b 2359}#)
- (#{id? 339}# #{a 2357}#))
- #{tmp 2353}#)
+ (lambda (#{a 2371}# #{init 2372}# #{b 2373}#)
+ (#{id? 344}# #{a 2371}#))
+ #{tmp 2367}#)
#f)
(@apply
- (lambda (#{a 2363}# #{init 2364}# #{b 2365}#)
- (#{opt 2280}#
- #{b 2365}#
- #{req 2337}#
- (cons (list #{a 2363}# #{init 2364}#)
- #{ropt 2338}#)))
- #{tmp 2353}#)
- (let ((#{tmp 2366}#
- ($sc-dispatch #{tmp 2342}# '(any . any))))
- (if (if #{tmp 2366}#
+ (lambda (#{a 2377}# #{init 2378}# #{b 2379}#)
+ (#{opt 2294}#
+ #{b 2379}#
+ #{req 2351}#
+ (cons (list #{a 2377}# #{init 2378}#)
+ #{ropt 2352}#)))
+ #{tmp 2367}#)
+ (let ((#{tmp 2380}#
+ ($sc-dispatch #{tmp 2356}# '(any . any))))
+ (if (if #{tmp 2380}#
(@apply
- (lambda (#{a 2369}# #{b 2370}#)
- (eq? (syntax->datum #{a 2369}#) #:key))
- #{tmp 2366}#)
+ (lambda (#{a 2383}# #{b 2384}#)
+ (eq? (syntax->datum #{a 2383}#) #:key))
+ #{tmp 2380}#)
#f)
(@apply
- (lambda (#{a 2373}# #{b 2374}#)
- (#{key 2282}#
- #{b 2374}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
+ (lambda (#{a 2387}# #{b 2388}#)
+ (#{key 2296}#
+ #{b 2388}#
+ #{req 2351}#
+ (reverse #{ropt 2352}#)
'()))
- #{tmp 2366}#)
- (let ((#{tmp 2375}#
+ #{tmp 2380}#)
+ (let ((#{tmp 2389}#
($sc-dispatch
- #{tmp 2342}#
+ #{tmp 2356}#
'(any any))))
- (if (if #{tmp 2375}#
+ (if (if #{tmp 2389}#
(@apply
- (lambda (#{a 2378}# #{b 2379}#)
- (eq? (syntax->datum #{a 2378}#)
+ (lambda (#{a 2392}# #{b 2393}#)
+ (eq? (syntax->datum #{a 2392}#)
#:rest))
- #{tmp 2375}#)
+ #{tmp 2389}#)
#f)
(@apply
- (lambda (#{a 2382}# #{b 2383}#)
- (#{rest 2284}#
- #{b 2383}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
+ (lambda (#{a 2396}# #{b 2397}#)
+ (#{rest 2298}#
+ #{b 2397}#
+ #{req 2351}#
+ (reverse #{ropt 2352}#)
'()))
- #{tmp 2375}#)
- (let ((#{tmp 2384}# (list #{tmp 2342}#)))
- (if (if #{tmp 2384}#
+ #{tmp 2389}#)
+ (let ((#{tmp 2398}# (list #{tmp 2356}#)))
+ (if (if #{tmp 2398}#
(@apply
- (lambda (#{r 2386}#)
- (#{id? 339}# #{r 2386}#))
- #{tmp 2384}#)
+ (lambda (#{r 2400}#)
+ (#{id? 344}# #{r 2400}#))
+ #{tmp 2398}#)
#f)
(@apply
- (lambda (#{r 2388}#)
- (#{rest 2284}#
- #{r 2388}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
+ (lambda (#{r 2402}#)
+ (#{rest 2298}#
+ #{r 2402}#
+ #{req 2351}#
+ (reverse #{ropt 2352}#)
'()))
- #{tmp 2384}#)
- (let ((#{else 2390}# #{tmp 2342}#))
+ #{tmp 2398}#)
+ (let ((#{else 2404}# #{tmp 2356}#))
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 2275}#
- #{args 2336}#)))))))))))))))))
- (#{key 2282}#
- (lambda (#{args 2391}#
- #{req 2392}#
- #{opt 2393}#
- #{rkey 2394}#)
- (let ((#{tmp 2399}# #{args 2391}#))
- (let ((#{tmp 2400}# ($sc-dispatch #{tmp 2399}# '())))
- (if #{tmp 2400}#
+ #{orig-args 2289}#
+ #{args 2350}#)))))))))))))))))
+ (#{key 2296}#
+ (lambda (#{args 2405}#
+ #{req 2406}#
+ #{opt 2407}#
+ #{rkey 2408}#)
+ (let ((#{tmp 2413}# #{args 2405}#))
+ (let ((#{tmp 2414}# ($sc-dispatch #{tmp 2413}# '())))
+ (if #{tmp 2414}#
(@apply
(lambda ()
- (#{check 2286}#
- #{req 2392}#
- #{opt 2393}#
+ (#{check 2300}#
+ #{req 2406}#
+ #{opt 2407}#
#f
- (cons #f (reverse #{rkey 2394}#))))
- #{tmp 2400}#)
- (let ((#{tmp 2401}#
- ($sc-dispatch #{tmp 2399}# '(any . any))))
- (if (if #{tmp 2401}#
+ (cons #f (reverse #{rkey 2408}#))))
+ #{tmp 2414}#)
+ (let ((#{tmp 2415}#
+ ($sc-dispatch #{tmp 2413}# '(any . any))))
+ (if (if #{tmp 2415}#
(@apply
- (lambda (#{a 2404}# #{b 2405}#)
- (#{id? 339}# #{a 2404}#))
- #{tmp 2401}#)
+ (lambda (#{a 2418}# #{b 2419}#)
+ (#{id? 344}# #{a 2418}#))
+ #{tmp 2415}#)
#f)
(@apply
- (lambda (#{a 2408}# #{b 2409}#)
- (let ((#{tmp 2411}#
+ (lambda (#{a 2422}# #{b 2423}#)
+ (let ((#{tmp 2425}#
(symbol->keyword
- (syntax->datum #{a 2408}#))))
- (let ((#{k 2413}# #{tmp 2411}#))
- (#{key 2282}#
- #{b 2409}#
- #{req 2392}#
- #{opt 2393}#
- (cons (cons #{k 2413}#
- (cons #{a 2408}#
+ (syntax->datum #{a 2422}#))))
+ (let ((#{k 2427}# #{tmp 2425}#))
+ (#{key 2296}#
+ #{b 2423}#
+ #{req 2406}#
+ #{opt 2407}#
+ (cons (cons #{k 2427}#
+ (cons #{a 2422}#
'(#(syntax-object
#f
((top)
@@ -7535,11 +7535,11 @@
#(ribcage
#(k)
#((top))
- #("i2412"))
+ #("i2426"))
#(ribcage
#(a b)
#((top) (top))
- #("i2406" "i2407"))
+ #("i2420" "i2421"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7547,10 +7547,10 @@
(top)
(top)
(top))
- #("i2395"
- "i2396"
- "i2397"
- "i2398"))
+ #("i2409"
+ "i2410"
+ "i2411"
+ "i2412"))
#(ribcage
(check rest
key
@@ -7561,15 +7561,15 @@
(top)
(top)
(top))
- ("i2285"
- "i2283"
- "i2281"
- "i2279"
- "i2277"))
+ ("i2299"
+ "i2297"
+ "i2295"
+ "i2293"
+ "i2291"))
#(ribcage
#(orig-args)
#((top))
- #("i2276"))
+ #("i2290"))
#(ribcage
(lambda-var-list
gen-var
@@ -7843,81 +7843,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -7927,31 +7928,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -7988,1935 +7988,1935 @@
"i39"
"i38")))
(hygiene guile)))))
- #{rkey 2394}#)))))
- #{tmp 2401}#)
- (let ((#{tmp 2414}#
+ #{rkey 2408}#)))))
+ #{tmp 2415}#)
+ (let ((#{tmp 2428}#
($sc-dispatch
- #{tmp 2399}#
+ #{tmp 2413}#
'((any any) . any))))
- (if (if #{tmp 2414}#
+ (if (if #{tmp 2428}#
(@apply
- (lambda (#{a 2418}# #{init 2419}# #{b 2420}#)
- (#{id? 339}# #{a 2418}#))
- #{tmp 2414}#)
+ (lambda (#{a 2432}# #{init 2433}# #{b 2434}#)
+ (#{id? 344}# #{a 2432}#))
+ #{tmp 2428}#)
#f)
(@apply
- (lambda (#{a 2424}# #{init 2425}# #{b 2426}#)
- (let ((#{tmp 2428}#
+ (lambda (#{a 2438}# #{init 2439}# #{b 2440}#)
+ (let ((#{tmp 2442}#
(symbol->keyword
- (syntax->datum #{a 2424}#))))
- (let ((#{k 2430}# #{tmp 2428}#))
- (#{key 2282}#
- #{b 2426}#
- #{req 2392}#
- #{opt 2393}#
- (cons (list #{k 2430}#
- #{a 2424}#
- #{init 2425}#)
- #{rkey 2394}#)))))
- #{tmp 2414}#)
- (let ((#{tmp 2431}#
+ (syntax->datum #{a 2438}#))))
+ (let ((#{k 2444}# #{tmp 2442}#))
+ (#{key 2296}#
+ #{b 2440}#
+ #{req 2406}#
+ #{opt 2407}#
+ (cons (list #{k 2444}#
+ #{a 2438}#
+ #{init 2439}#)
+ #{rkey 2408}#)))))
+ #{tmp 2428}#)
+ (let ((#{tmp 2445}#
($sc-dispatch
- #{tmp 2399}#
+ #{tmp 2413}#
'((any any any) . any))))
- (if (if #{tmp 2431}#
+ (if (if #{tmp 2445}#
(@apply
- (lambda (#{a 2436}#
- #{init 2437}#
- #{k 2438}#
- #{b 2439}#)
- (if (#{id? 339}# #{a 2436}#)
- (keyword? (syntax->datum #{k 2438}#))
+ (lambda (#{a 2450}#
+ #{init 2451}#
+ #{k 2452}#
+ #{b 2453}#)
+ (if (#{id? 344}# #{a 2450}#)
+ (keyword? (syntax->datum #{k 2452}#))
#f))
- #{tmp 2431}#)
+ #{tmp 2445}#)
#f)
(@apply
- (lambda (#{a 2446}#
- #{init 2447}#
- #{k 2448}#
- #{b 2449}#)
- (#{key 2282}#
- #{b 2449}#
- #{req 2392}#
- #{opt 2393}#
- (cons (list #{k 2448}#
- #{a 2446}#
- #{init 2447}#)
- #{rkey 2394}#)))
- #{tmp 2431}#)
- (let ((#{tmp 2450}#
- ($sc-dispatch #{tmp 2399}# '(any))))
- (if (if #{tmp 2450}#
+ (lambda (#{a 2460}#
+ #{init 2461}#
+ #{k 2462}#
+ #{b 2463}#)
+ (#{key 2296}#
+ #{b 2463}#
+ #{req 2406}#
+ #{opt 2407}#
+ (cons (list #{k 2462}#
+ #{a 2460}#
+ #{init 2461}#)
+ #{rkey 2408}#)))
+ #{tmp 2445}#)
+ (let ((#{tmp 2464}#
+ ($sc-dispatch #{tmp 2413}# '(any))))
+ (if (if #{tmp 2464}#
(@apply
- (lambda (#{aok 2452}#)
- (eq? (syntax->datum #{aok 2452}#)
+ (lambda (#{aok 2466}#)
+ (eq? (syntax->datum #{aok 2466}#)
#:allow-other-keys))
- #{tmp 2450}#)
+ #{tmp 2464}#)
#f)
(@apply
- (lambda (#{aok 2454}#)
- (#{check 2286}#
- #{req 2392}#
- #{opt 2393}#
+ (lambda (#{aok 2468}#)
+ (#{check 2300}#
+ #{req 2406}#
+ #{opt 2407}#
#f
- (cons #t (reverse #{rkey 2394}#))))
- #{tmp 2450}#)
- (let ((#{tmp 2455}#
+ (cons #t (reverse #{rkey 2408}#))))
+ #{tmp 2464}#)
+ (let ((#{tmp 2469}#
($sc-dispatch
- #{tmp 2399}#
+ #{tmp 2413}#
'(any any any))))
- (if (if #{tmp 2455}#
+ (if (if #{tmp 2469}#
(@apply
- (lambda (#{aok 2459}#
- #{a 2460}#
- #{b 2461}#)
+ (lambda (#{aok 2473}#
+ #{a 2474}#
+ #{b 2475}#)
(if (eq? (syntax->datum
- #{aok 2459}#)
+ #{aok 2473}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 2460}#)
+ #{a 2474}#)
#:rest)
#f))
- #{tmp 2455}#)
+ #{tmp 2469}#)
#f)
(@apply
- (lambda (#{aok 2467}#
- #{a 2468}#
- #{b 2469}#)
- (#{rest 2284}#
- #{b 2469}#
- #{req 2392}#
- #{opt 2393}#
+ (lambda (#{aok 2481}#
+ #{a 2482}#
+ #{b 2483}#)
+ (#{rest 2298}#
+ #{b 2483}#
+ #{req 2406}#
+ #{opt 2407}#
(cons #t
- (reverse #{rkey 2394}#))))
- #{tmp 2455}#)
- (let ((#{tmp 2470}#
+ (reverse #{rkey 2408}#))))
+ #{tmp 2469}#)
+ (let ((#{tmp 2484}#
($sc-dispatch
- #{tmp 2399}#
+ #{tmp 2413}#
'(any . any))))
- (if (if #{tmp 2470}#
+ (if (if #{tmp 2484}#
(@apply
- (lambda (#{aok 2473}#
- #{r 2474}#)
+ (lambda (#{aok 2487}#
+ #{r 2488}#)
(if (eq? (syntax->datum
- #{aok 2473}#)
+ #{aok 2487}#)
#:allow-other-keys)
- (#{id? 339}# #{r 2474}#)
+ (#{id? 344}# #{r 2488}#)
#f))
- #{tmp 2470}#)
+ #{tmp 2484}#)
#f)
(@apply
- (lambda (#{aok 2479}# #{r 2480}#)
- (#{rest 2284}#
- #{r 2480}#
- #{req 2392}#
- #{opt 2393}#
+ (lambda (#{aok 2493}# #{r 2494}#)
+ (#{rest 2298}#
+ #{r 2494}#
+ #{req 2406}#
+ #{opt 2407}#
(cons #t
(reverse
- #{rkey 2394}#))))
- #{tmp 2470}#)
- (let ((#{tmp 2481}#
+ #{rkey 2408}#))))
+ #{tmp 2484}#)
+ (let ((#{tmp 2495}#
($sc-dispatch
- #{tmp 2399}#
+ #{tmp 2413}#
'(any any))))
- (if (if #{tmp 2481}#
+ (if (if #{tmp 2495}#
(@apply
- (lambda (#{a 2484}#
- #{b 2485}#)
+ (lambda (#{a 2498}#
+ #{b 2499}#)
(eq? (syntax->datum
- #{a 2484}#)
+ #{a 2498}#)
#:rest))
- #{tmp 2481}#)
+ #{tmp 2495}#)
#f)
(@apply
- (lambda (#{a 2488}#
- #{b 2489}#)
- (#{rest 2284}#
- #{b 2489}#
- #{req 2392}#
- #{opt 2393}#
+ (lambda (#{a 2502}#
+ #{b 2503}#)
+ (#{rest 2298}#
+ #{b 2503}#
+ #{req 2406}#
+ #{opt 2407}#
(cons #f
(reverse
- #{rkey 2394}#))))
- #{tmp 2481}#)
- (let ((#{tmp 2490}#
- (list #{tmp 2399}#)))
- (if (if #{tmp 2490}#
+ #{rkey 2408}#))))
+ #{tmp 2495}#)
+ (let ((#{tmp 2504}#
+ (list #{tmp 2413}#)))
+ (if (if #{tmp 2504}#
(@apply
- (lambda (#{r 2492}#)
- (#{id? 339}#
- #{r 2492}#))
- #{tmp 2490}#)
+ (lambda (#{r 2506}#)
+ (#{id? 344}#
+ #{r 2506}#))
+ #{tmp 2504}#)
#f)
(@apply
- (lambda (#{r 2494}#)
- (#{rest 2284}#
- #{r 2494}#
- #{req 2392}#
- #{opt 2393}#
+ (lambda (#{r 2508}#)
+ (#{rest 2298}#
+ #{r 2508}#
+ #{req 2406}#
+ #{opt 2407}#
(cons #f
(reverse
- #{rkey 2394}#))))
- #{tmp 2490}#)
- (let ((#{else 2496}#
- #{tmp 2399}#))
+ #{rkey 2408}#))))
+ #{tmp 2504}#)
+ (let ((#{else 2510}#
+ #{tmp 2413}#))
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 2275}#
- #{args 2391}#)))))))))))))))))))))))
- (#{rest 2284}#
- (lambda (#{args 2497}#
- #{req 2498}#
- #{opt 2499}#
- #{kw 2500}#)
- (let ((#{tmp 2505}# #{args 2497}#))
- (let ((#{tmp 2506}# (list #{tmp 2505}#)))
- (if (if #{tmp 2506}#
+ #{orig-args 2289}#
+ #{args 2405}#)))))))))))))))))))))))
+ (#{rest 2298}#
+ (lambda (#{args 2511}#
+ #{req 2512}#
+ #{opt 2513}#
+ #{kw 2514}#)
+ (let ((#{tmp 2519}# #{args 2511}#))
+ (let ((#{tmp 2520}# (list #{tmp 2519}#)))
+ (if (if #{tmp 2520}#
(@apply
- (lambda (#{r 2508}#) (#{id? 339}# #{r 2508}#))
- #{tmp 2506}#)
+ (lambda (#{r 2522}#) (#{id? 344}# #{r 2522}#))
+ #{tmp 2520}#)
#f)
(@apply
- (lambda (#{r 2510}#)
- (#{check 2286}#
- #{req 2498}#
- #{opt 2499}#
- #{r 2510}#
- #{kw 2500}#))
- #{tmp 2506}#)
- (let ((#{else 2512}# #{tmp 2505}#))
+ (lambda (#{r 2524}#)
+ (#{check 2300}#
+ #{req 2512}#
+ #{opt 2513}#
+ #{r 2524}#
+ #{kw 2514}#))
+ #{tmp 2520}#)
+ (let ((#{else 2526}# #{tmp 2519}#))
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 2275}#
- #{args 2497}#)))))))
- (#{check 2286}#
- (lambda (#{req 2513}#
- #{opt 2514}#
- #{rest 2515}#
- #{kw 2516}#)
- (if (#{distinct-bound-ids? 401}#
+ #{orig-args 2289}#
+ #{args 2511}#)))))))
+ (#{check 2300}#
+ (lambda (#{req 2527}#
+ #{opt 2528}#
+ #{rest 2529}#
+ #{kw 2530}#)
+ (if (#{distinct-bound-ids? 414}#
(append
- #{req 2513}#
- (map car #{opt 2514}#)
- (if #{rest 2515}# (list #{rest 2515}#) '())
- (if (pair? #{kw 2516}#)
- (map cadr (cdr #{kw 2516}#))
+ #{req 2527}#
+ (map car #{opt 2528}#)
+ (if #{rest 2529}# (list #{rest 2529}#) '())
+ (if (pair? #{kw 2530}#)
+ (map cadr (cdr #{kw 2530}#))
'())))
(values
- #{req 2513}#
- #{opt 2514}#
- #{rest 2515}#
- #{kw 2516}#)
+ #{req 2527}#
+ #{opt 2528}#
+ #{rest 2529}#
+ #{kw 2530}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 2275}#)))))
- (begin (#{req 2278}# #{orig-args 2275}# '())))))
- (#{chi-lambda-case 443}#
- (lambda (#{e 2524}#
- #{r 2525}#
- #{w 2526}#
- #{s 2527}#
- #{mod 2528}#
- #{get-formals 2529}#
- #{clauses 2530}#)
+ #{orig-args 2289}#)))))
+ (begin (#{req 2292}# #{orig-args 2289}# '())))))
+ (#{chi-lambda-case 456}#
+ (lambda (#{e 2538}#
+ #{r 2539}#
+ #{w 2540}#
+ #{s 2541}#
+ #{mod 2542}#
+ #{get-formals 2543}#
+ #{clauses 2544}#)
(letrec*
- ((#{expand-req 2539}#
- (lambda (#{req 2546}#
- #{opt 2547}#
- #{rest 2548}#
- #{kw 2549}#
- #{body 2550}#)
+ ((#{expand-req 2553}#
+ (lambda (#{req 2560}#
+ #{opt 2561}#
+ #{rest 2562}#
+ #{kw 2563}#
+ #{body 2564}#)
(begin
- (let ((#{vars 2558}#
- (map #{gen-var 447}# #{req 2546}#))
- (#{labels 2559}#
- (#{gen-labels 354}# #{req 2546}#)))
+ (let ((#{vars 2572}#
+ (map #{gen-var 460}# #{req 2560}#))
+ (#{labels 2573}#
+ (#{gen-labels 364}# #{req 2560}#)))
(begin
- (let ((#{r* 2562}#
- (#{extend-var-env 329}#
- #{labels 2559}#
- #{vars 2558}#
- #{r 2525}#))
- (#{w* 2563}#
- (#{make-binding-wrap 383}#
- #{req 2546}#
- #{labels 2559}#
- #{w 2526}#)))
- (#{expand-opt 2541}#
- (map syntax->datum #{req 2546}#)
- #{opt 2547}#
- #{rest 2548}#
- #{kw 2549}#
- #{body 2550}#
- (reverse #{vars 2558}#)
- #{r* 2562}#
- #{w* 2563}#
+ (let ((#{r* 2576}#
+ (#{extend-var-env 334}#
+ #{labels 2573}#
+ #{vars 2572}#
+ #{r 2539}#))
+ (#{w* 2577}#
+ (#{make-binding-wrap 396}#
+ #{req 2560}#
+ #{labels 2573}#
+ #{w 2540}#)))
+ (#{expand-opt 2555}#
+ (map syntax->datum #{req 2560}#)
+ #{opt 2561}#
+ #{rest 2562}#
+ #{kw 2563}#
+ #{body 2564}#
+ (reverse #{vars 2572}#)
+ #{r* 2576}#
+ #{w* 2577}#
'()
'())))))))
- (#{expand-opt 2541}#
- (lambda (#{req 2564}#
- #{opt 2565}#
- #{rest 2566}#
- #{kw 2567}#
- #{body 2568}#
- #{vars 2569}#
- #{r* 2570}#
- #{w* 2571}#
- #{out 2572}#
- #{inits 2573}#)
- (if (pair? #{opt 2565}#)
- (let ((#{tmp 2586}# (car #{opt 2565}#)))
- (let ((#{tmp 2587}#
- ($sc-dispatch #{tmp 2586}# '(any any))))
- (if #{tmp 2587}#
+ (#{expand-opt 2555}#
+ (lambda (#{req 2578}#
+ #{opt 2579}#
+ #{rest 2580}#
+ #{kw 2581}#
+ #{body 2582}#
+ #{vars 2583}#
+ #{r* 2584}#
+ #{w* 2585}#
+ #{out 2586}#
+ #{inits 2587}#)
+ (if (pair? #{opt 2579}#)
+ (let ((#{tmp 2600}# (car #{opt 2579}#)))
+ (let ((#{tmp 2601}#
+ ($sc-dispatch #{tmp 2600}# '(any any))))
+ (if #{tmp 2601}#
(@apply
- (lambda (#{id 2590}# #{i 2591}#)
+ (lambda (#{id 2604}# #{i 2605}#)
(begin
- (let ((#{v 2594}# (#{gen-var 447}# #{id 2590}#)))
+ (let ((#{v 2608}# (#{gen-var 460}# #{id 2604}#)))
(begin
- (let ((#{l 2596}#
- (#{gen-labels 354}#
- (list #{v 2594}#))))
+ (let ((#{l 2610}#
+ (#{gen-labels 364}#
+ (list #{v 2608}#))))
(begin
- (let ((#{r** 2598}#
- (#{extend-var-env 329}#
- #{l 2596}#
- (list #{v 2594}#)
- #{r* 2570}#)))
+ (let ((#{r** 2612}#
+ (#{extend-var-env 334}#
+ #{l 2610}#
+ (list #{v 2608}#)
+ #{r* 2584}#)))
(begin
- (let ((#{w** 2600}#
- (#{make-binding-wrap 383}#
- (list #{id 2590}#)
- #{l 2596}#
- #{w* 2571}#)))
- (#{expand-opt 2541}#
- #{req 2564}#
- (cdr #{opt 2565}#)
- #{rest 2566}#
- #{kw 2567}#
- #{body 2568}#
- (cons #{v 2594}# #{vars 2569}#)
- #{r** 2598}#
- #{w** 2600}#
- (cons (syntax->datum #{id 2590}#)
- #{out 2572}#)
- (cons (#{chi 419}#
- #{i 2591}#
- #{r* 2570}#
- #{w* 2571}#
- #{mod 2528}#)
- #{inits 2573}#)))))))))))
- #{tmp 2587}#)
+ (let ((#{w** 2614}#
+ (#{make-binding-wrap 396}#
+ (list #{id 2604}#)
+ #{l 2610}#
+ #{w* 2585}#)))
+ (#{expand-opt 2555}#
+ #{req 2578}#
+ (cdr #{opt 2579}#)
+ #{rest 2580}#
+ #{kw 2581}#
+ #{body 2582}#
+ (cons #{v 2608}# #{vars 2583}#)
+ #{r** 2612}#
+ #{w** 2614}#
+ (cons (syntax->datum #{id 2604}#)
+ #{out 2586}#)
+ (cons (#{chi 432}#
+ #{i 2605}#
+ #{r* 2584}#
+ #{w* 2585}#
+ #{mod 2542}#)
+ #{inits 2587}#)))))))))))
+ #{tmp 2601}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2586}#))))
- (if #{rest 2566}#
+ #{tmp 2600}#))))
+ (if #{rest 2580}#
(begin
- (let ((#{v 2605}# (#{gen-var 447}# #{rest 2566}#)))
+ (let ((#{v 2619}# (#{gen-var 460}# #{rest 2580}#)))
(begin
- (let ((#{l 2607}#
- (#{gen-labels 354}# (list #{v 2605}#))))
+ (let ((#{l 2621}#
+ (#{gen-labels 364}# (list #{v 2619}#))))
(begin
- (let ((#{r* 2609}#
- (#{extend-var-env 329}#
- #{l 2607}#
- (list #{v 2605}#)
- #{r* 2570}#)))
+ (let ((#{r* 2623}#
+ (#{extend-var-env 334}#
+ #{l 2621}#
+ (list #{v 2619}#)
+ #{r* 2584}#)))
(begin
- (let ((#{w* 2611}#
- (#{make-binding-wrap 383}#
- (list #{rest 2566}#)
- #{l 2607}#
- #{w* 2571}#)))
- (#{expand-kw 2543}#
- #{req 2564}#
- (if (pair? #{out 2572}#)
- (reverse #{out 2572}#)
+ (let ((#{w* 2625}#
+ (#{make-binding-wrap 396}#
+ (list #{rest 2580}#)
+ #{l 2621}#
+ #{w* 2585}#)))
+ (#{expand-kw 2557}#
+ #{req 2578}#
+ (if (pair? #{out 2586}#)
+ (reverse #{out 2586}#)
#f)
- (syntax->datum #{rest 2566}#)
- (if (pair? #{kw 2567}#)
- (cdr #{kw 2567}#)
- #{kw 2567}#)
- #{body 2568}#
- (cons #{v 2605}# #{vars 2569}#)
- #{r* 2609}#
- #{w* 2611}#
- (if (pair? #{kw 2567}#)
- (car #{kw 2567}#)
+ (syntax->datum #{rest 2580}#)
+ (if (pair? #{kw 2581}#)
+ (cdr #{kw 2581}#)
+ #{kw 2581}#)
+ #{body 2582}#
+ (cons #{v 2619}# #{vars 2583}#)
+ #{r* 2623}#
+ #{w* 2625}#
+ (if (pair? #{kw 2581}#)
+ (car #{kw 2581}#)
#f)
'()
- #{inits 2573}#)))))))))
- (#{expand-kw 2543}#
- #{req 2564}#
- (if (pair? #{out 2572}#)
- (reverse #{out 2572}#)
+ #{inits 2587}#)))))))))
+ (#{expand-kw 2557}#
+ #{req 2578}#
+ (if (pair? #{out 2586}#)
+ (reverse #{out 2586}#)
#f)
#f
- (if (pair? #{kw 2567}#)
- (cdr #{kw 2567}#)
- #{kw 2567}#)
- #{body 2568}#
- #{vars 2569}#
- #{r* 2570}#
- #{w* 2571}#
- (if (pair? #{kw 2567}#) (car #{kw 2567}#) #f)
+ (if (pair? #{kw 2581}#)
+ (cdr #{kw 2581}#)
+ #{kw 2581}#)
+ #{body 2582}#
+ #{vars 2583}#
+ #{r* 2584}#
+ #{w* 2585}#
+ (if (pair? #{kw 2581}#) (car #{kw 2581}#) #f)
'()
- #{inits 2573}#)))))
- (#{expand-kw 2543}#
- (lambda (#{req 2613}#
- #{opt 2614}#
- #{rest 2615}#
- #{kw 2616}#
- #{body 2617}#
- #{vars 2618}#
- #{r* 2619}#
- #{w* 2620}#
- #{aok 2621}#
- #{out 2622}#
- #{inits 2623}#)
- (if (pair? #{kw 2616}#)
- (let ((#{tmp 2637}# (car #{kw 2616}#)))
- (let ((#{tmp 2638}#
- ($sc-dispatch #{tmp 2637}# '(any any any))))
- (if #{tmp 2638}#
+ #{inits 2587}#)))))
+ (#{expand-kw 2557}#
+ (lambda (#{req 2627}#
+ #{opt 2628}#
+ #{rest 2629}#
+ #{kw 2630}#
+ #{body 2631}#
+ #{vars 2632}#
+ #{r* 2633}#
+ #{w* 2634}#
+ #{aok 2635}#
+ #{out 2636}#
+ #{inits 2637}#)
+ (if (pair? #{kw 2630}#)
+ (let ((#{tmp 2651}# (car #{kw 2630}#)))
+ (let ((#{tmp 2652}#
+ ($sc-dispatch #{tmp 2651}# '(any any any))))
+ (if #{tmp 2652}#
(@apply
- (lambda (#{k 2642}# #{id 2643}# #{i 2644}#)
+ (lambda (#{k 2656}# #{id 2657}# #{i 2658}#)
(begin
- (let ((#{v 2647}# (#{gen-var 447}# #{id 2643}#)))
+ (let ((#{v 2661}# (#{gen-var 460}# #{id 2657}#)))
(begin
- (let ((#{l 2649}#
- (#{gen-labels 354}#
- (list #{v 2647}#))))
+ (let ((#{l 2663}#
+ (#{gen-labels 364}#
+ (list #{v 2661}#))))
(begin
- (let ((#{r** 2651}#
- (#{extend-var-env 329}#
- #{l 2649}#
- (list #{v 2647}#)
- #{r* 2619}#)))
+ (let ((#{r** 2665}#
+ (#{extend-var-env 334}#
+ #{l 2663}#
+ (list #{v 2661}#)
+ #{r* 2633}#)))
(begin
- (let ((#{w** 2653}#
- (#{make-binding-wrap 383}#
- (list #{id 2643}#)
- #{l 2649}#
- #{w* 2620}#)))
- (#{expand-kw 2543}#
- #{req 2613}#
- #{opt 2614}#
- #{rest 2615}#
- (cdr #{kw 2616}#)
- #{body 2617}#
- (cons #{v 2647}# #{vars 2618}#)
- #{r** 2651}#
- #{w** 2653}#
- #{aok 2621}#
+ (let ((#{w** 2667}#
+ (#{make-binding-wrap 396}#
+ (list #{id 2657}#)
+ #{l 2663}#
+ #{w* 2634}#)))
+ (#{expand-kw 2557}#
+ #{req 2627}#
+ #{opt 2628}#
+ #{rest 2629}#
+ (cdr #{kw 2630}#)
+ #{body 2631}#
+ (cons #{v 2661}# #{vars 2632}#)
+ #{r** 2665}#
+ #{w** 2667}#
+ #{aok 2635}#
(cons (list (syntax->datum
- #{k 2642}#)
+ #{k 2656}#)
(syntax->datum
- #{id 2643}#)
- #{v 2647}#)
- #{out 2622}#)
- (cons (#{chi 419}#
- #{i 2644}#
- #{r* 2619}#
- #{w* 2620}#
- #{mod 2528}#)
- #{inits 2623}#)))))))))))
- #{tmp 2638}#)
+ #{id 2657}#)
+ #{v 2661}#)
+ #{out 2636}#)
+ (cons (#{chi 432}#
+ #{i 2658}#
+ #{r* 2633}#
+ #{w* 2634}#
+ #{mod 2542}#)
+ #{inits 2637}#)))))))))))
+ #{tmp 2652}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2637}#))))
- (#{expand-body 2545}#
- #{req 2613}#
- #{opt 2614}#
- #{rest 2615}#
+ #{tmp 2651}#))))
+ (#{expand-body 2559}#
+ #{req 2627}#
+ #{opt 2628}#
+ #{rest 2629}#
(if (begin
- (let ((#{t 2657}# #{aok 2621}#))
- (if #{t 2657}# #{t 2657}# (pair? #{out 2622}#))))
- (cons #{aok 2621}# (reverse #{out 2622}#))
+ (let ((#{t 2671}# #{aok 2635}#))
+ (if #{t 2671}# #{t 2671}# (pair? #{out 2636}#))))
+ (cons #{aok 2635}# (reverse #{out 2636}#))
#f)
- #{body 2617}#
- (reverse #{vars 2618}#)
- #{r* 2619}#
- #{w* 2620}#
- (reverse #{inits 2623}#)
+ #{body 2631}#
+ (reverse #{vars 2632}#)
+ #{r* 2633}#
+ #{w* 2634}#
+ (reverse #{inits 2637}#)
'()))))
- (#{expand-body 2545}#
- (lambda (#{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- #{body 2663}#
- #{vars 2664}#
- #{r* 2665}#
- #{w* 2666}#
- #{inits 2667}#
- #{meta 2668}#)
- (let ((#{tmp 2679}# #{body 2663}#))
- (let ((#{tmp 2680}#
- ($sc-dispatch #{tmp 2679}# '(any any . each-any))))
- (if (if #{tmp 2680}#
+ (#{expand-body 2559}#
+ (lambda (#{req 2673}#
+ #{opt 2674}#
+ #{rest 2675}#
+ #{kw 2676}#
+ #{body 2677}#
+ #{vars 2678}#
+ #{r* 2679}#
+ #{w* 2680}#
+ #{inits 2681}#
+ #{meta 2682}#)
+ (let ((#{tmp 2693}# #{body 2677}#))
+ (let ((#{tmp 2694}#
+ ($sc-dispatch #{tmp 2693}# '(any any . each-any))))
+ (if (if #{tmp 2694}#
(@apply
- (lambda (#{docstring 2684}# #{e1 2685}# #{e2 2686}#)
- (string? (syntax->datum #{docstring 2684}#)))
- #{tmp 2680}#)
+ (lambda (#{docstring 2698}# #{e1 2699}# #{e2 2700}#)
+ (string? (syntax->datum #{docstring 2698}#)))
+ #{tmp 2694}#)
#f)
(@apply
- (lambda (#{docstring 2690}# #{e1 2691}# #{e2 2692}#)
- (#{expand-body 2545}#
- #{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- (cons #{e1 2691}# #{e2 2692}#)
- #{vars 2664}#
- #{r* 2665}#
- #{w* 2666}#
- #{inits 2667}#
+ (lambda (#{docstring 2704}# #{e1 2705}# #{e2 2706}#)
+ (#{expand-body 2559}#
+ #{req 2673}#
+ #{opt 2674}#
+ #{rest 2675}#
+ #{kw 2676}#
+ (cons #{e1 2705}# #{e2 2706}#)
+ #{vars 2678}#
+ #{r* 2679}#
+ #{w* 2680}#
+ #{inits 2681}#
(append
- #{meta 2668}#
+ #{meta 2682}#
(list (cons 'documentation
- (syntax->datum #{docstring 2690}#))))))
- #{tmp 2680}#)
- (let ((#{tmp 2695}#
+ (syntax->datum #{docstring 2704}#))))))
+ #{tmp 2694}#)
+ (let ((#{tmp 2709}#
($sc-dispatch
- #{tmp 2679}#
+ #{tmp 2693}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 2695}#
+ (if #{tmp 2709}#
(@apply
- (lambda (#{k 2700}#
- #{v 2701}#
- #{e1 2702}#
- #{e2 2703}#)
- (#{expand-body 2545}#
- #{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- (cons #{e1 2702}# #{e2 2703}#)
- #{vars 2664}#
- #{r* 2665}#
- #{w* 2666}#
- #{inits 2667}#
+ (lambda (#{k 2714}#
+ #{v 2715}#
+ #{e1 2716}#
+ #{e2 2717}#)
+ (#{expand-body 2559}#
+ #{req 2673}#
+ #{opt 2674}#
+ #{rest 2675}#
+ #{kw 2676}#
+ (cons #{e1 2716}# #{e2 2717}#)
+ #{vars 2678}#
+ #{r* 2679}#
+ #{w* 2680}#
+ #{inits 2681}#
(append
- #{meta 2668}#
+ #{meta 2682}#
(syntax->datum
- (map cons #{k 2700}# #{v 2701}#)))))
- #{tmp 2695}#)
- (let ((#{tmp 2707}#
- ($sc-dispatch #{tmp 2679}# '(any . each-any))))
- (if #{tmp 2707}#
+ (map cons #{k 2714}# #{v 2715}#)))))
+ #{tmp 2709}#)
+ (let ((#{tmp 2721}#
+ ($sc-dispatch #{tmp 2693}# '(any . each-any))))
+ (if #{tmp 2721}#
(@apply
- (lambda (#{e1 2710}# #{e2 2711}#)
+ (lambda (#{e1 2724}# #{e2 2725}#)
(values
- #{meta 2668}#
- #{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- #{inits 2667}#
- #{vars 2664}#
- (#{chi-body 427}#
- (cons #{e1 2710}# #{e2 2711}#)
- (#{source-wrap 407}#
- #{e 2524}#
- #{w 2526}#
- #{s 2527}#
- #{mod 2528}#)
- #{r* 2665}#
- #{w* 2666}#
- #{mod 2528}#)))
- #{tmp 2707}#)
+ #{meta 2682}#
+ #{req 2673}#
+ #{opt 2674}#
+ #{rest 2675}#
+ #{kw 2676}#
+ #{inits 2681}#
+ #{vars 2678}#
+ (#{chi-body 440}#
+ (cons #{e1 2724}# #{e2 2725}#)
+ (#{source-wrap 420}#
+ #{e 2538}#
+ #{w 2540}#
+ #{s 2541}#
+ #{mod 2542}#)
+ #{r* 2679}#
+ #{w* 2680}#
+ #{mod 2542}#)))
+ #{tmp 2721}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2679}#)))))))))))
+ #{tmp 2693}#)))))))))))
(begin
- (let ((#{tmp 2713}# #{clauses 2530}#))
- (let ((#{tmp 2714}# ($sc-dispatch #{tmp 2713}# '())))
- (if #{tmp 2714}#
- (@apply (lambda () (values '() #f)) #{tmp 2714}#)
- (let ((#{tmp 2715}#
+ (let ((#{tmp 2727}# #{clauses 2544}#))
+ (let ((#{tmp 2728}# ($sc-dispatch #{tmp 2727}# '())))
+ (if #{tmp 2728}#
+ (@apply (lambda () (values '() #f)) #{tmp 2728}#)
+ (let ((#{tmp 2729}#
($sc-dispatch
- #{tmp 2713}#
+ #{tmp 2727}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 2715}#
+ (if #{tmp 2729}#
(@apply
- (lambda (#{args 2722}#
- #{e1 2723}#
- #{e2 2724}#
- #{args* 2725}#
- #{e1* 2726}#
- #{e2* 2727}#)
+ (lambda (#{args 2736}#
+ #{e1 2737}#
+ #{e2 2738}#
+ #{args* 2739}#
+ #{e1* 2740}#
+ #{e2* 2741}#)
(call-with-values
- (lambda () (#{get-formals 2529}# #{args 2722}#))
- (lambda (#{req 2728}#
- #{opt 2729}#
- #{rest 2730}#
- #{kw 2731}#)
+ (lambda () (#{get-formals 2543}# #{args 2736}#))
+ (lambda (#{req 2742}#
+ #{opt 2743}#
+ #{rest 2744}#
+ #{kw 2745}#)
(call-with-values
(lambda ()
- (#{expand-req 2539}#
- #{req 2728}#
- #{opt 2729}#
- #{rest 2730}#
- #{kw 2731}#
- (cons #{e1 2723}# #{e2 2724}#)))
- (lambda (#{meta 2737}#
- #{req 2738}#
- #{opt 2739}#
- #{rest 2740}#
- #{kw 2741}#
- #{inits 2742}#
- #{vars 2743}#
- #{body 2744}#)
+ (#{expand-req 2553}#
+ #{req 2742}#
+ #{opt 2743}#
+ #{rest 2744}#
+ #{kw 2745}#
+ (cons #{e1 2737}# #{e2 2738}#)))
+ (lambda (#{meta 2751}#
+ #{req 2752}#
+ #{opt 2753}#
+ #{rest 2754}#
+ #{kw 2755}#
+ #{inits 2756}#
+ #{vars 2757}#
+ #{body 2758}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 443}#
- #{e 2524}#
- #{r 2525}#
- #{w 2526}#
- #{s 2527}#
- #{mod 2528}#
- #{get-formals 2529}#
- (map (lambda (#{tmp 2755}#
- #{tmp 2754}#
- #{tmp 2753}#)
- (cons #{tmp 2753}#
- (cons #{tmp 2754}#
- #{tmp 2755}#)))
- #{e2* 2727}#
- #{e1* 2726}#
- #{args* 2725}#)))
- (lambda (#{meta* 2757}# #{else* 2758}#)
+ (#{chi-lambda-case 456}#
+ #{e 2538}#
+ #{r 2539}#
+ #{w 2540}#
+ #{s 2541}#
+ #{mod 2542}#
+ #{get-formals 2543}#
+ (map (lambda (#{tmp 2769}#
+ #{tmp 2768}#
+ #{tmp 2767}#)
+ (cons #{tmp 2767}#
+ (cons #{tmp 2768}#
+ #{tmp 2769}#)))
+ #{e2* 2741}#
+ #{e1* 2740}#
+ #{args* 2739}#)))
+ (lambda (#{meta* 2771}# #{else* 2772}#)
(values
- (append #{meta 2737}# #{meta* 2757}#)
- (#{build-lambda-case 287}#
- #{s 2527}#
- #{req 2738}#
- #{opt 2739}#
- #{rest 2740}#
- #{kw 2741}#
- #{inits 2742}#
- #{vars 2743}#
- #{body 2744}#
- #{else* 2758}#)))))))))
- #{tmp 2715}#)
+ (append #{meta 2751}# #{meta* 2771}#)
+ (#{build-lambda-case 288}#
+ #{s 2541}#
+ #{req 2752}#
+ #{opt 2753}#
+ #{rest 2754}#
+ #{kw 2755}#
+ #{inits 2756}#
+ #{vars 2757}#
+ #{body 2758}#
+ #{else* 2772}#)))))))))
+ #{tmp 2729}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2713}#))))))))))
- (#{strip 445}#
- (lambda (#{x 2761}# #{w 2762}#)
- (if (memq 'top (car #{w 2762}#))
- #{x 2761}#
+ #{tmp 2727}#))))))))))
+ (#{strip 458}#
+ (lambda (#{x 2775}# #{w 2776}#)
+ (if (memq 'top (car #{w 2776}#))
+ #{x 2775}#
(letrec*
- ((#{f 2769}#
- (lambda (#{x 2770}#)
- (if (#{syntax-object? 305}# #{x 2770}#)
- (#{strip 445}#
- (#{syntax-object-expression 307}# #{x 2770}#)
- (#{syntax-object-wrap 309}# #{x 2770}#))
- (if (pair? #{x 2770}#)
+ ((#{f 2783}#
+ (lambda (#{x 2784}#)
+ (if (#{syntax-object? 307}# #{x 2784}#)
+ (#{strip 458}#
+ (#{syntax-object-expression 309}# #{x 2784}#)
+ (#{syntax-object-wrap 311}# #{x 2784}#))
+ (if (pair? #{x 2784}#)
(begin
- (let ((#{a 2777}# (#{f 2769}# (car #{x 2770}#)))
- (#{d 2778}# (#{f 2769}# (cdr #{x 2770}#))))
- (if (if (eq? #{a 2777}# (car #{x 2770}#))
- (eq? #{d 2778}# (cdr #{x 2770}#))
+ (let ((#{a 2791}# (#{f 2783}# (car #{x 2784}#)))
+ (#{d 2792}# (#{f 2783}# (cdr #{x 2784}#))))
+ (if (if (eq? #{a 2791}# (car #{x 2784}#))
+ (eq? #{d 2792}# (cdr #{x 2784}#))
#f)
- #{x 2770}#
- (cons #{a 2777}# #{d 2778}#))))
- (if (vector? #{x 2770}#)
+ #{x 2784}#
+ (cons #{a 2791}# #{d 2792}#))))
+ (if (vector? #{x 2784}#)
(begin
- (let ((#{old 2784}# (vector->list #{x 2770}#)))
+ (let ((#{old 2798}# (vector->list #{x 2784}#)))
(begin
- (let ((#{new 2786}# (map #{f 2769}# #{old 2784}#)))
+ (let ((#{new 2800}# (map #{f 2783}# #{old 2798}#)))
(letrec*
- ((#{lp 2790}#
- (lambda (#{l1 2791}# #{l2 2792}#)
- (if (null? #{l1 2791}#)
- #{x 2770}#
- (if (eq? (car #{l1 2791}#)
- (car #{l2 2792}#))
- (#{lp 2790}#
- (cdr #{l1 2791}#)
- (cdr #{l2 2792}#))
- (list->vector #{new 2786}#))))))
+ ((#{lp 2804}#
+ (lambda (#{l1 2805}# #{l2 2806}#)
+ (if (null? #{l1 2805}#)
+ #{x 2784}#
+ (if (eq? (car #{l1 2805}#)
+ (car #{l2 2806}#))
+ (#{lp 2804}#
+ (cdr #{l1 2805}#)
+ (cdr #{l2 2806}#))
+ (list->vector #{new 2800}#))))))
(begin
- (#{lp 2790}# #{old 2784}# #{new 2786}#)))))))
- #{x 2770}#))))))
- (begin (#{f 2769}# #{x 2761}#))))))
- (#{gen-var 447}#
- (lambda (#{id 2794}#)
+ (#{lp 2804}# #{old 2798}# #{new 2800}#)))))))
+ #{x 2784}#))))))
+ (begin (#{f 2783}# #{x 2775}#))))))
+ (#{gen-var 460}#
+ (lambda (#{id 2808}#)
(begin
- (let ((#{id 2797}#
- (if (#{syntax-object? 305}# #{id 2794}#)
- (#{syntax-object-expression 307}# #{id 2794}#)
- #{id 2794}#)))
+ (let ((#{id 2811}#
+ (if (#{syntax-object? 307}# #{id 2808}#)
+ (#{syntax-object-expression 309}# #{id 2808}#)
+ #{id 2808}#)))
(gensym
- (string-append (symbol->string #{id 2797}#) " "))))))
- (#{lambda-var-list 449}#
- (lambda (#{vars 2799}#)
+ (string-append (symbol->string #{id 2811}#) " "))))))
+ (#{lambda-var-list 462}#
+ (lambda (#{vars 2813}#)
(letrec*
- ((#{lvl 2805}#
- (lambda (#{vars 2806}# #{ls 2807}# #{w 2808}#)
- (if (pair? #{vars 2806}#)
- (#{lvl 2805}#
- (cdr #{vars 2806}#)
- (cons (#{wrap 405}# (car #{vars 2806}#) #{w 2808}# #f)
- #{ls 2807}#)
- #{w 2808}#)
- (if (#{id? 339}# #{vars 2806}#)
- (cons (#{wrap 405}# #{vars 2806}# #{w 2808}# #f)
- #{ls 2807}#)
- (if (null? #{vars 2806}#)
- #{ls 2807}#
- (if (#{syntax-object? 305}# #{vars 2806}#)
- (#{lvl 2805}#
- (#{syntax-object-expression 307}# #{vars 2806}#)
- #{ls 2807}#
- (#{join-wraps 387}#
- #{w 2808}#
- (#{syntax-object-wrap 309}# #{vars 2806}#)))
- (cons #{vars 2806}# #{ls 2807}#))))))))
- (begin (#{lvl 2805}# #{vars 2799}# '() '(())))))))
+ ((#{lvl 2819}#
+ (lambda (#{vars 2820}# #{ls 2821}# #{w 2822}#)
+ (if (pair? #{vars 2820}#)
+ (#{lvl 2819}#
+ (cdr #{vars 2820}#)
+ (cons (#{wrap 418}# (car #{vars 2820}#) #{w 2822}# #f)
+ #{ls 2821}#)
+ #{w 2822}#)
+ (if (#{id? 344}# #{vars 2820}#)
+ (cons (#{wrap 418}# #{vars 2820}# #{w 2822}# #f)
+ #{ls 2821}#)
+ (if (null? #{vars 2820}#)
+ #{ls 2821}#
+ (if (#{syntax-object? 307}# #{vars 2820}#)
+ (#{lvl 2819}#
+ (#{syntax-object-expression 309}# #{vars 2820}#)
+ #{ls 2821}#
+ (#{join-wraps 400}#
+ #{w 2822}#
+ (#{syntax-object-wrap 311}# #{vars 2820}#)))
+ (cons #{vars 2820}# #{ls 2821}#))))))))
+ (begin (#{lvl 2819}# #{vars 2813}# '() '(())))))))
(begin
- (lambda (#{src 767}# #{name 768}#)
+ (lambda (#{src 780}# #{name 781}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
- #{src 767}#
- #{name 768}#))
- (lambda (#{x 1145}# #{update 1146}#)
- (vector-set! #{x 1145}# 1 #{update 1146}#))
- (lambda (#{x 1149}# #{update 1150}#)
- (vector-set! #{x 1149}# 2 #{update 1150}#))
- (lambda (#{x 1153}# #{update 1154}#)
- (vector-set! #{x 1153}# 3 #{update 1154}#))
- (lambda (#{x 1234}#)
- (if (vector? #{x 1234}#)
- (if (= (vector-length #{x 1234}#) 4)
- (eq? (vector-ref #{x 1234}# 0) 'ribcage)
+ #{src 780}#
+ #{name 781}#))
+ (lambda (#{x 1158}# #{update 1159}#)
+ (vector-set! #{x 1158}# 1 #{update 1159}#))
+ (lambda (#{x 1162}# #{update 1163}#)
+ (vector-set! #{x 1162}# 2 #{update 1163}#))
+ (lambda (#{x 1166}# #{update 1167}#)
+ (vector-set! #{x 1166}# 3 #{update 1167}#))
+ (lambda (#{x 1247}#)
+ (if (vector? #{x 1247}#)
+ (if (= (vector-length #{x 1247}#) 4)
+ (eq? (vector-ref #{x 1247}# 0) 'ribcage)
#f)
#f))
(begin
- (#{global-extend 335}#
+ (#{global-extend 340}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend 335}#
+ (#{global-extend 340}#
'local-syntax
'let-syntax
#f)
- (#{global-extend 335}#
+ (#{global-extend 340}#
'core
'fluid-let-syntax
- (lambda (#{e 2819}#
- #{r 2820}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#)
- (let ((#{tmp 2829}# #{e 2819}#))
- (let ((#{tmp 2830}#
+ (lambda (#{e 2833}#
+ #{r 2834}#
+ #{w 2835}#
+ #{s 2836}#
+ #{mod 2837}#)
+ (let ((#{tmp 2843}# #{e 2833}#))
+ (let ((#{tmp 2844}#
($sc-dispatch
- #{tmp 2829}#
+ #{tmp 2843}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2830}#
+ (if (if #{tmp 2844}#
(@apply
- (lambda (#{var 2835}#
- #{val 2836}#
- #{e1 2837}#
- #{e2 2838}#)
- (#{valid-bound-ids? 399}# #{var 2835}#))
- #{tmp 2830}#)
+ (lambda (#{var 2849}#
+ #{val 2850}#
+ #{e1 2851}#
+ #{e2 2852}#)
+ (#{valid-bound-ids? 412}# #{var 2849}#))
+ #{tmp 2844}#)
#f)
(@apply
- (lambda (#{var 2844}#
- #{val 2845}#
- #{e1 2846}#
- #{e2 2847}#)
+ (lambda (#{var 2858}#
+ #{val 2859}#
+ #{e1 2860}#
+ #{e2 2861}#)
(begin
- (let ((#{names 2849}#
- (map (lambda (#{x 2850}#)
- (#{id-var-name 393}#
- #{x 2850}#
- #{w 2821}#))
- #{var 2844}#)))
+ (let ((#{names 2863}#
+ (map (lambda (#{x 2864}#)
+ (#{id-var-name 406}#
+ #{x 2864}#
+ #{w 2835}#))
+ #{var 2858}#)))
(begin
(for-each
- (lambda (#{id 2853}# #{n 2854}#)
+ (lambda (#{id 2867}# #{n 2868}#)
(begin
- (let ((#{atom-key 2859}#
- (car (#{lookup 333}#
- #{n 2854}#
- #{r 2820}#
- #{mod 2823}#))))
- (if (eqv? #{atom-key 2859}#
+ (let ((#{atom-key 2873}#
+ (car (#{lookup 338}#
+ #{n 2868}#
+ #{r 2834}#
+ #{mod 2837}#))))
+ (if (eqv? #{atom-key 2873}#
'displaced-lexical)
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 2819}#
- (#{source-wrap 407}#
- #{id 2853}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#))))))
- #{var 2844}#
- #{names 2849}#)
- (#{chi-body 427}#
- (cons #{e1 2846}# #{e2 2847}#)
- (#{source-wrap 407}#
- #{e 2819}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#)
- (#{extend-env 327}#
- #{names 2849}#
+ #{e 2833}#
+ (#{source-wrap 420}#
+ #{id 2867}#
+ #{w 2835}#
+ #{s 2836}#
+ #{mod 2837}#))))))
+ #{var 2858}#
+ #{names 2863}#)
+ (#{chi-body 440}#
+ (cons #{e1 2860}# #{e2 2861}#)
+ (#{source-wrap 420}#
+ #{e 2833}#
+ #{w 2835}#
+ #{s 2836}#
+ #{mod 2837}#)
+ (#{extend-env 332}#
+ #{names 2863}#
(begin
- (let ((#{trans-r 2865}#
- (#{macros-only-env 331}# #{r 2820}#)))
- (map (lambda (#{x 2866}#)
+ (let ((#{trans-r 2879}#
+ (#{macros-only-env 336}# #{r 2834}#)))
+ (map (lambda (#{x 2880}#)
(cons 'macro
- (#{eval-local-transformer 431}#
- (#{chi 419}#
- #{x 2866}#
- #{trans-r 2865}#
- #{w 2821}#
- #{mod 2823}#)
- #{mod 2823}#)))
- #{val 2845}#)))
- #{r 2820}#)
- #{w 2821}#
- #{mod 2823}#)))))
- #{tmp 2830}#)
- (let ((#{_ 2871}# #{tmp 2829}#))
+ (#{eval-local-transformer 444}#
+ (#{chi 432}#
+ #{x 2880}#
+ #{trans-r 2879}#
+ #{w 2835}#
+ #{mod 2837}#)
+ #{mod 2837}#)))
+ #{val 2859}#)))
+ #{r 2834}#)
+ #{w 2835}#
+ #{mod 2837}#)))))
+ #{tmp 2844}#)
+ (let ((#{_ 2885}# #{tmp 2843}#))
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap 407}#
- #{e 2819}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#))))))))
- (#{global-extend 335}#
+ (#{source-wrap 420}#
+ #{e 2833}#
+ #{w 2835}#
+ #{s 2836}#
+ #{mod 2837}#))))))))
+ (#{global-extend 340}#
'core
'quote
- (lambda (#{e 2872}#
- #{r 2873}#
- #{w 2874}#
- #{s 2875}#
- #{mod 2876}#)
- (let ((#{tmp 2882}# #{e 2872}#))
- (let ((#{tmp 2883}#
- ($sc-dispatch #{tmp 2882}# '(_ any))))
- (if #{tmp 2883}#
+ (lambda (#{e 2886}#
+ #{r 2887}#
+ #{w 2888}#
+ #{s 2889}#
+ #{mod 2890}#)
+ (let ((#{tmp 2896}# #{e 2886}#))
+ (let ((#{tmp 2897}#
+ ($sc-dispatch #{tmp 2896}# '(_ any))))
+ (if #{tmp 2897}#
(@apply
- (lambda (#{e 2885}#)
- (#{build-data 291}#
- #{s 2875}#
- (#{strip 445}# #{e 2885}# #{w 2874}#)))
- #{tmp 2883}#)
- (let ((#{_ 2887}# #{tmp 2882}#))
+ (lambda (#{e 2899}#)
+ (#{build-data 292}#
+ #{s 2889}#
+ (#{strip 458}# #{e 2899}# #{w 2888}#)))
+ #{tmp 2897}#)
+ (let ((#{_ 2901}# #{tmp 2896}#))
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap 407}#
- #{e 2872}#
- #{w 2874}#
- #{s 2875}#
- #{mod 2876}#))))))))
- (#{global-extend 335}#
+ (#{source-wrap 420}#
+ #{e 2886}#
+ #{w 2888}#
+ #{s 2889}#
+ #{mod 2890}#))))))))
+ (#{global-extend 340}#
'core
'syntax
(letrec*
- ((#{gen-syntax 2889}#
- (lambda (#{src 2904}#
- #{e 2905}#
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#)
- (if (#{id? 339}# #{e 2905}#)
+ ((#{gen-syntax 2903}#
+ (lambda (#{src 2918}#
+ #{e 2919}#
+ #{r 2920}#
+ #{maps 2921}#
+ #{ellipsis? 2922}#
+ #{mod 2923}#)
+ (if (#{id? 344}# #{e 2919}#)
(begin
- (let ((#{label 2917}#
- (#{id-var-name 393}# #{e 2905}# '(()))))
+ (let ((#{label 2931}#
+ (#{id-var-name 406}# #{e 2919}# '(()))))
(begin
- (let ((#{b 2920}#
- (#{lookup 333}#
- #{label 2917}#
- #{r 2906}#
- #{mod 2909}#)))
- (if (eq? (car #{b 2920}#) 'syntax)
+ (let ((#{b 2934}#
+ (#{lookup 338}#
+ #{label 2931}#
+ #{r 2920}#
+ #{mod 2923}#)))
+ (if (eq? (car #{b 2934}#) 'syntax)
(call-with-values
(lambda ()
(begin
- (let ((#{var.lev 2923}# (cdr #{b 2920}#)))
- (#{gen-ref 2891}#
- #{src 2904}#
- (car #{var.lev 2923}#)
- (cdr #{var.lev 2923}#)
- #{maps 2907}#))))
- (lambda (#{var 2925}# #{maps 2926}#)
+ (let ((#{var.lev 2937}# (cdr #{b 2934}#)))
+ (#{gen-ref 2905}#
+ #{src 2918}#
+ (car #{var.lev 2937}#)
+ (cdr #{var.lev 2937}#)
+ #{maps 2921}#))))
+ (lambda (#{var 2939}# #{maps 2940}#)
(values
- (list 'ref #{var 2925}#)
- #{maps 2926}#)))
- (if (#{ellipsis? 2908}# #{e 2905}#)
+ (list 'ref #{var 2939}#)
+ #{maps 2940}#)))
+ (if (#{ellipsis? 2922}# #{e 2919}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 2904}#)
+ #{src 2918}#)
(values
- (list 'quote #{e 2905}#)
- #{maps 2907}#)))))))
- (let ((#{tmp 2931}# #{e 2905}#))
- (let ((#{tmp 2932}#
- ($sc-dispatch #{tmp 2931}# '(any any))))
- (if (if #{tmp 2932}#
+ (list 'quote #{e 2919}#)
+ #{maps 2921}#)))))))
+ (let ((#{tmp 2945}# #{e 2919}#))
+ (let ((#{tmp 2946}#
+ ($sc-dispatch #{tmp 2945}# '(any any))))
+ (if (if #{tmp 2946}#
(@apply
- (lambda (#{dots 2935}# #{e 2936}#)
- (#{ellipsis? 2908}# #{dots 2935}#))
- #{tmp 2932}#)
+ (lambda (#{dots 2949}# #{e 2950}#)
+ (#{ellipsis? 2922}# #{dots 2949}#))
+ #{tmp 2946}#)
#f)
(@apply
- (lambda (#{dots 2939}# #{e 2940}#)
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{e 2940}#
- #{r 2906}#
- #{maps 2907}#
- (lambda (#{x 2941}#) #f)
- #{mod 2909}#))
- #{tmp 2932}#)
- (let ((#{tmp 2943}#
- ($sc-dispatch #{tmp 2931}# '(any any . any))))
- (if (if #{tmp 2943}#
+ (lambda (#{dots 2953}# #{e 2954}#)
+ (#{gen-syntax 2903}#
+ #{src 2918}#
+ #{e 2954}#
+ #{r 2920}#
+ #{maps 2921}#
+ (lambda (#{x 2955}#) #f)
+ #{mod 2923}#))
+ #{tmp 2946}#)
+ (let ((#{tmp 2957}#
+ ($sc-dispatch #{tmp 2945}# '(any any . any))))
+ (if (if #{tmp 2957}#
(@apply
- (lambda (#{x 2947}# #{dots 2948}# #{y 2949}#)
- (#{ellipsis? 2908}# #{dots 2948}#))
- #{tmp 2943}#)
+ (lambda (#{x 2961}# #{dots 2962}# #{y 2963}#)
+ (#{ellipsis? 2922}# #{dots 2962}#))
+ #{tmp 2957}#)
#f)
(@apply
- (lambda (#{x 2953}# #{dots 2954}# #{y 2955}#)
+ (lambda (#{x 2967}# #{dots 2968}# #{y 2969}#)
(letrec*
- ((#{f 2959}#
- (lambda (#{y 2960}# #{k 2961}#)
- (let ((#{tmp 2968}# #{y 2960}#))
- (let ((#{tmp 2969}#
+ ((#{f 2973}#
+ (lambda (#{y 2974}# #{k 2975}#)
+ (let ((#{tmp 2982}# #{y 2974}#))
+ (let ((#{tmp 2983}#
($sc-dispatch
- #{tmp 2968}#
+ #{tmp 2982}#
'(any . any))))
- (if (if #{tmp 2969}#
+ (if (if #{tmp 2983}#
(@apply
- (lambda (#{dots 2972}#
- #{y 2973}#)
- (#{ellipsis? 2908}#
- #{dots 2972}#))
- #{tmp 2969}#)
+ (lambda (#{dots 2986}#
+ #{y 2987}#)
+ (#{ellipsis? 2922}#
+ #{dots 2986}#))
+ #{tmp 2983}#)
#f)
(@apply
- (lambda (#{dots 2976}#
- #{y 2977}#)
- (#{f 2959}#
- #{y 2977}#
- (lambda (#{maps 2978}#)
+ (lambda (#{dots 2990}#
+ #{y 2991}#)
+ (#{f 2973}#
+ #{y 2991}#
+ (lambda (#{maps 2992}#)
(call-with-values
(lambda ()
- (#{k 2961}#
+ (#{k 2975}#
(cons '()
- #{maps 2978}#)))
- (lambda (#{x 2980}#
- #{maps 2981}#)
- (if (null? (car #{maps 2981}#))
+ #{maps 2992}#)))
+ (lambda (#{x 2994}#
+ #{maps 2995}#)
+ (if (null? (car #{maps 2995}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2904}#)
+ #{src 2918}#)
(values
- (#{gen-mappend 2893}#
- #{x 2980}#
- (car #{maps 2981}#))
- (cdr #{maps 2981}#))))))))
- #{tmp 2969}#)
- (let ((#{_ 2985}# #{tmp 2968}#))
+ (#{gen-mappend 2907}#
+ #{x 2994}#
+ (car #{maps 2995}#))
+ (cdr #{maps 2995}#))))))))
+ #{tmp 2983}#)
+ (let ((#{_ 2999}# #{tmp 2982}#))
(call-with-values
(lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{y 2960}#
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{y 2986}#
- #{maps 2987}#)
+ (#{gen-syntax 2903}#
+ #{src 2918}#
+ #{y 2974}#
+ #{r 2920}#
+ #{maps 2921}#
+ #{ellipsis? 2922}#
+ #{mod 2923}#))
+ (lambda (#{y 3000}#
+ #{maps 3001}#)
(call-with-values
(lambda ()
- (#{k 2961}#
- #{maps 2987}#))
- (lambda (#{x 2990}#
- #{maps 2991}#)
+ (#{k 2975}#
+ #{maps 3001}#))
+ (lambda (#{x 3004}#
+ #{maps 3005}#)
(values
- (#{gen-append 2899}#
- #{x 2990}#
- #{y 2986}#)
- #{maps 2991}#))))))))))))
+ (#{gen-append 2913}#
+ #{x 3004}#
+ #{y 3000}#)
+ #{maps 3005}#))))))))))))
(begin
- (#{f 2959}#
- #{y 2955}#
- (lambda (#{maps 2962}#)
+ (#{f 2973}#
+ #{y 2969}#
+ (lambda (#{maps 2976}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{x 2953}#
- #{r 2906}#
- (cons '() #{maps 2962}#)
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{x 2964}# #{maps 2965}#)
- (if (null? (car #{maps 2965}#))
+ (#{gen-syntax 2903}#
+ #{src 2918}#
+ #{x 2967}#
+ #{r 2920}#
+ (cons '() #{maps 2976}#)
+ #{ellipsis? 2922}#
+ #{mod 2923}#))
+ (lambda (#{x 2978}# #{maps 2979}#)
+ (if (null? (car #{maps 2979}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2904}#)
+ #{src 2918}#)
(values
- (#{gen-map 2895}#
- #{x 2964}#
- (car #{maps 2965}#))
- (cdr #{maps 2965}#))))))))))
- #{tmp 2943}#)
- (let ((#{tmp 2994}#
- ($sc-dispatch #{tmp 2931}# '(any . any))))
- (if #{tmp 2994}#
+ (#{gen-map 2909}#
+ #{x 2978}#
+ (car #{maps 2979}#))
+ (cdr #{maps 2979}#))))))))))
+ #{tmp 2957}#)
+ (let ((#{tmp 3008}#
+ ($sc-dispatch #{tmp 2945}# '(any . any))))
+ (if #{tmp 3008}#
(@apply
- (lambda (#{x 2997}# #{y 2998}#)
+ (lambda (#{x 3011}# #{y 3012}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{x 2997}#
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{x 2999}# #{maps 3000}#)
+ (#{gen-syntax 2903}#
+ #{src 2918}#
+ #{x 3011}#
+ #{r 2920}#
+ #{maps 2921}#
+ #{ellipsis? 2922}#
+ #{mod 2923}#))
+ (lambda (#{x 3013}# #{maps 3014}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{y 2998}#
- #{r 2906}#
- #{maps 3000}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{y 3003}# #{maps 3004}#)
+ (#{gen-syntax 2903}#
+ #{src 2918}#
+ #{y 3012}#
+ #{r 2920}#
+ #{maps 3014}#
+ #{ellipsis? 2922}#
+ #{mod 2923}#))
+ (lambda (#{y 3017}# #{maps 3018}#)
(values
- (#{gen-cons 2897}#
- #{x 2999}#
- #{y 3003}#)
- #{maps 3004}#))))))
- #{tmp 2994}#)
- (let ((#{tmp 3007}#
+ (#{gen-cons 2911}#
+ #{x 3013}#
+ #{y 3017}#)
+ #{maps 3018}#))))))
+ #{tmp 3008}#)
+ (let ((#{tmp 3021}#
($sc-dispatch
- #{tmp 2931}#
+ #{tmp 2945}#
'#(vector (any . each-any)))))
- (if #{tmp 3007}#
+ (if #{tmp 3021}#
(@apply
- (lambda (#{e1 3010}# #{e2 3011}#)
+ (lambda (#{e1 3024}# #{e2 3025}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- (cons #{e1 3010}# #{e2 3011}#)
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{e 3013}# #{maps 3014}#)
+ (#{gen-syntax 2903}#
+ #{src 2918}#
+ (cons #{e1 3024}# #{e2 3025}#)
+ #{r 2920}#
+ #{maps 2921}#
+ #{ellipsis? 2922}#
+ #{mod 2923}#))
+ (lambda (#{e 3027}# #{maps 3028}#)
(values
- (#{gen-vector 2901}# #{e 3013}#)
- #{maps 3014}#))))
- #{tmp 3007}#)
- (let ((#{_ 3018}# #{tmp 2931}#))
+ (#{gen-vector 2915}# #{e 3027}#)
+ #{maps 3028}#))))
+ #{tmp 3021}#)
+ (let ((#{_ 3032}# #{tmp 2945}#))
(values
- (list 'quote #{e 2905}#)
- #{maps 2907}#))))))))))))))
- (#{gen-ref 2891}#
- (lambda (#{src 3020}#
- #{var 3021}#
- #{level 3022}#
- #{maps 3023}#)
- (if (= #{level 3022}# 0)
- (values #{var 3021}# #{maps 3023}#)
- (if (null? #{maps 3023}#)
+ (list 'quote #{e 2919}#)
+ #{maps 2921}#))))))))))))))
+ (#{gen-ref 2905}#
+ (lambda (#{src 3034}#
+ #{var 3035}#
+ #{level 3036}#
+ #{maps 3037}#)
+ (if (= #{level 3036}# 0)
+ (values #{var 3035}# #{maps 3037}#)
+ (if (null? #{maps 3037}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 3020}#)
+ #{src 3034}#)
(call-with-values
(lambda ()
- (#{gen-ref 2891}#
- #{src 3020}#
- #{var 3021}#
- (#{1-}# #{level 3022}#)
- (cdr #{maps 3023}#)))
- (lambda (#{outer-var 3030}# #{outer-maps 3031}#)
+ (#{gen-ref 2905}#
+ #{src 3034}#
+ #{var 3035}#
+ (#{1-}# #{level 3036}#)
+ (cdr #{maps 3037}#)))
+ (lambda (#{outer-var 3044}# #{outer-maps 3045}#)
(begin
- (let ((#{b 3035}#
- (assq #{outer-var 3030}#
- (car #{maps 3023}#))))
- (if #{b 3035}#
- (values (cdr #{b 3035}#) #{maps 3023}#)
+ (let ((#{b 3049}#
+ (assq #{outer-var 3044}#
+ (car #{maps 3037}#))))
+ (if #{b 3049}#
+ (values (cdr #{b 3049}#) #{maps 3037}#)
(begin
- (let ((#{inner-var 3037}#
- (#{gen-var 447}# 'tmp)))
+ (let ((#{inner-var 3051}#
+ (#{gen-var 460}# 'tmp)))
(values
- #{inner-var 3037}#
- (cons (cons (cons #{outer-var 3030}#
- #{inner-var 3037}#)
- (car #{maps 3023}#))
- #{outer-maps 3031}#)))))))))))))
- (#{gen-mappend 2893}#
- (lambda (#{e 3038}# #{map-env 3039}#)
+ #{inner-var 3051}#
+ (cons (cons (cons #{outer-var 3044}#
+ #{inner-var 3051}#)
+ (car #{maps 3037}#))
+ #{outer-maps 3045}#)))))))))))))
+ (#{gen-mappend 2907}#
+ (lambda (#{e 3052}# #{map-env 3053}#)
(list 'apply
'(primitive append)
- (#{gen-map 2895}# #{e 3038}# #{map-env 3039}#))))
- (#{gen-map 2895}#
- (lambda (#{e 3043}# #{map-env 3044}#)
+ (#{gen-map 2909}# #{e 3052}# #{map-env 3053}#))))
+ (#{gen-map 2909}#
+ (lambda (#{e 3057}# #{map-env 3058}#)
(begin
- (let ((#{formals 3049}# (map cdr #{map-env 3044}#))
- (#{actuals 3050}#
- (map (lambda (#{x 3051}#)
- (list 'ref (car #{x 3051}#)))
- #{map-env 3044}#)))
- (if (eq? (car #{e 3043}#) 'ref)
- (car #{actuals 3050}#)
+ (let ((#{formals 3063}# (map cdr #{map-env 3058}#))
+ (#{actuals 3064}#
+ (map (lambda (#{x 3065}#)
+ (list 'ref (car #{x 3065}#)))
+ #{map-env 3058}#)))
+ (if (eq? (car #{e 3057}#) 'ref)
+ (car #{actuals 3064}#)
(if (and-map
- (lambda (#{x 3058}#)
- (if (eq? (car #{x 3058}#) 'ref)
- (memq (car (cdr #{x 3058}#)) #{formals 3049}#)
+ (lambda (#{x 3072}#)
+ (if (eq? (car #{x 3072}#) 'ref)
+ (memq (car (cdr #{x 3072}#)) #{formals 3063}#)
#f))
- (cdr #{e 3043}#))
+ (cdr #{e 3057}#))
(cons 'map
- (cons (list 'primitive (car #{e 3043}#))
+ (cons (list 'primitive (car #{e 3057}#))
(map (begin
- (let ((#{r 3064}#
+ (let ((#{r 3078}#
(map cons
- #{formals 3049}#
- #{actuals 3050}#)))
- (lambda (#{x 3065}#)
- (cdr (assq (car (cdr #{x 3065}#))
- #{r 3064}#)))))
- (cdr #{e 3043}#))))
+ #{formals 3063}#
+ #{actuals 3064}#)))
+ (lambda (#{x 3079}#)
+ (cdr (assq (car (cdr #{x 3079}#))
+ #{r 3078}#)))))
+ (cdr #{e 3057}#))))
(cons 'map
- (cons (list 'lambda #{formals 3049}# #{e 3043}#)
- #{actuals 3050}#))))))))
- (#{gen-cons 2897}#
- (lambda (#{x 3069}# #{y 3070}#)
+ (cons (list 'lambda #{formals 3063}# #{e 3057}#)
+ #{actuals 3064}#))))))))
+ (#{gen-cons 2911}#
+ (lambda (#{x 3083}# #{y 3084}#)
(begin
- (let ((#{atom-key 3075}# (car #{y 3070}#)))
- (if (eqv? #{atom-key 3075}# 'quote)
- (if (eq? (car #{x 3069}#) 'quote)
+ (let ((#{atom-key 3089}# (car #{y 3084}#)))
+ (if (eqv? #{atom-key 3089}# 'quote)
+ (if (eq? (car #{x 3083}#) 'quote)
(list 'quote
- (cons (car (cdr #{x 3069}#))
- (car (cdr #{y 3070}#))))
- (if (eq? (car (cdr #{y 3070}#)) '())
- (list 'list #{x 3069}#)
- (list 'cons #{x 3069}# #{y 3070}#)))
- (if (eqv? #{atom-key 3075}# 'list)
- (cons 'list (cons #{x 3069}# (cdr #{y 3070}#)))
- (list 'cons #{x 3069}# #{y 3070}#)))))))
- (#{gen-append 2899}#
- (lambda (#{x 3084}# #{y 3085}#)
- (if (equal? #{y 3085}# ''())
- #{x 3084}#
- (list 'append #{x 3084}# #{y 3085}#))))
- (#{gen-vector 2901}#
- (lambda (#{x 3089}#)
- (if (eq? (car #{x 3089}#) 'list)
- (cons 'vector (cdr #{x 3089}#))
- (if (eq? (car #{x 3089}#) 'quote)
+ (cons (car (cdr #{x 3083}#))
+ (car (cdr #{y 3084}#))))
+ (if (eq? (car (cdr #{y 3084}#)) '())
+ (list 'list #{x 3083}#)
+ (list 'cons #{x 3083}# #{y 3084}#)))
+ (if (eqv? #{atom-key 3089}# 'list)
+ (cons 'list (cons #{x 3083}# (cdr #{y 3084}#)))
+ (list 'cons #{x 3083}# #{y 3084}#)))))))
+ (#{gen-append 2913}#
+ (lambda (#{x 3098}# #{y 3099}#)
+ (if (equal? #{y 3099}# ''())
+ #{x 3098}#
+ (list 'append #{x 3098}# #{y 3099}#))))
+ (#{gen-vector 2915}#
+ (lambda (#{x 3103}#)
+ (if (eq? (car #{x 3103}#) 'list)
+ (cons 'vector (cdr #{x 3103}#))
+ (if (eq? (car #{x 3103}#) 'quote)
(list 'quote
- (list->vector (car (cdr #{x 3089}#))))
- (list 'list->vector #{x 3089}#)))))
- (#{regen 2903}#
- (lambda (#{x 3099}#)
+ (list->vector (car (cdr #{x 3103}#))))
+ (list 'list->vector #{x 3103}#)))))
+ (#{regen 2917}#
+ (lambda (#{x 3113}#)
(begin
- (let ((#{atom-key 3103}# (car #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'ref)
- (#{build-lexical-reference 271}#
+ (let ((#{atom-key 3117}# (car #{x 3113}#)))
+ (if (eqv? #{atom-key 3117}# 'ref)
+ (#{build-lexical-reference 272}#
'value
#f
- (car (cdr #{x 3099}#))
- (car (cdr #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'primitive)
- (#{build-primref 289}# #f (car (cdr #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'quote)
- (#{build-data 291}# #f (car (cdr #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'lambda)
- (if (list? (car (cdr #{x 3099}#)))
- (#{build-simple-lambda 283}#
+ (car (cdr #{x 3113}#))
+ (car (cdr #{x 3113}#)))
+ (if (eqv? #{atom-key 3117}# 'primitive)
+ (#{build-primref 290}# #f (car (cdr #{x 3113}#)))
+ (if (eqv? #{atom-key 3117}# 'quote)
+ (#{build-data 292}# #f (car (cdr #{x 3113}#)))
+ (if (eqv? #{atom-key 3117}# 'lambda)
+ (if (list? (car (cdr #{x 3113}#)))
+ (#{build-simple-lambda 284}#
#f
- (car (cdr #{x 3099}#))
+ (car (cdr #{x 3113}#))
#f
- (car (cdr #{x 3099}#))
+ (car (cdr #{x 3113}#))
'()
- (#{regen 2903}# (car (cdr (cdr #{x 3099}#)))))
- (error "how did we get here" #{x 3099}#))
- (#{build-application 265}#
+ (#{regen 2917}# (car (cdr (cdr #{x 3113}#)))))
+ (error "how did we get here" #{x 3113}#))
+ (#{build-application 266}#
#f
- (#{build-primref 289}# #f (car #{x 3099}#))
- (map #{regen 2903}# (cdr #{x 3099}#))))))))))))
+ (#{build-primref 290}# #f (car #{x 3113}#))
+ (map #{regen 2917}# (cdr #{x 3113}#))))))))))))
(begin
- (lambda (#{e 3115}#
- #{r 3116}#
- #{w 3117}#
- #{s 3118}#
- #{mod 3119}#)
+ (lambda (#{e 3129}#
+ #{r 3130}#
+ #{w 3131}#
+ #{s 3132}#
+ #{mod 3133}#)
(begin
- (let ((#{e 3126}#
- (#{source-wrap 407}#
- #{e 3115}#
- #{w 3117}#
- #{s 3118}#
- #{mod 3119}#)))
- (let ((#{tmp 3127}# #{e 3126}#))
- (let ((#{tmp 3128}#
- ($sc-dispatch #{tmp 3127}# '(_ any))))
- (if #{tmp 3128}#
+ (let ((#{e 3140}#
+ (#{source-wrap 420}#
+ #{e 3129}#
+ #{w 3131}#
+ #{s 3132}#
+ #{mod 3133}#)))
+ (let ((#{tmp 3141}# #{e 3140}#))
+ (let ((#{tmp 3142}#
+ ($sc-dispatch #{tmp 3141}# '(_ any))))
+ (if #{tmp 3142}#
(@apply
- (lambda (#{x 3130}#)
+ (lambda (#{x 3144}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2889}#
- #{e 3126}#
- #{x 3130}#
- #{r 3116}#
+ (#{gen-syntax 2903}#
+ #{e 3140}#
+ #{x 3144}#
+ #{r 3130}#
'()
- #{ellipsis? 435}#
- #{mod 3119}#))
- (lambda (#{e 3131}# #{maps 3132}#)
- (#{regen 2903}# #{e 3131}#))))
- #{tmp 3128}#)
- (let ((#{_ 3136}# #{tmp 3127}#))
+ #{ellipsis? 448}#
+ #{mod 3133}#))
+ (lambda (#{e 3145}# #{maps 3146}#)
+ (#{regen 2917}# #{e 3145}#))))
+ #{tmp 3142}#)
+ (let ((#{_ 3150}# #{tmp 3141}#))
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 3126}#)))))))))))
- (#{global-extend 335}#
+ #{e 3140}#)))))))))))
+ (#{global-extend 340}#
'core
'lambda
- (lambda (#{e 3137}#
- #{r 3138}#
- #{w 3139}#
- #{s 3140}#
- #{mod 3141}#)
- (let ((#{tmp 3147}# #{e 3137}#))
- (let ((#{tmp 3148}#
+ (lambda (#{e 3151}#
+ #{r 3152}#
+ #{w 3153}#
+ #{s 3154}#
+ #{mod 3155}#)
+ (let ((#{tmp 3161}# #{e 3151}#))
+ (let ((#{tmp 3162}#
($sc-dispatch
- #{tmp 3147}#
+ #{tmp 3161}#
'(_ any any . each-any))))
- (if #{tmp 3148}#
+ (if #{tmp 3162}#
(@apply
- (lambda (#{args 3152}# #{e1 3153}# #{e2 3154}#)
+ (lambda (#{args 3166}# #{e1 3167}# #{e2 3168}#)
(call-with-values
(lambda ()
- (#{lambda-formals 437}# #{args 3152}#))
- (lambda (#{req 3155}#
- #{opt 3156}#
- #{rest 3157}#
- #{kw 3158}#)
+ (#{lambda-formals 450}# #{args 3166}#))
+ (lambda (#{req 3169}#
+ #{opt 3170}#
+ #{rest 3171}#
+ #{kw 3172}#)
(letrec*
- ((#{lp 3166}#
- (lambda (#{body 3167}# #{meta 3168}#)
- (let ((#{tmp 3170}# #{body 3167}#))
- (let ((#{tmp 3171}#
+ ((#{lp 3180}#
+ (lambda (#{body 3181}# #{meta 3182}#)
+ (let ((#{tmp 3184}# #{body 3181}#))
+ (let ((#{tmp 3185}#
($sc-dispatch
- #{tmp 3170}#
+ #{tmp 3184}#
'(any any . each-any))))
- (if (if #{tmp 3171}#
+ (if (if #{tmp 3185}#
(@apply
- (lambda (#{docstring 3175}#
- #{e1 3176}#
- #{e2 3177}#)
+ (lambda (#{docstring 3189}#
+ #{e1 3190}#
+ #{e2 3191}#)
(string?
(syntax->datum
- #{docstring 3175}#)))
- #{tmp 3171}#)
+ #{docstring 3189}#)))
+ #{tmp 3185}#)
#f)
(@apply
- (lambda (#{docstring 3181}#
- #{e1 3182}#
- #{e2 3183}#)
- (#{lp 3166}#
- (cons #{e1 3182}# #{e2 3183}#)
+ (lambda (#{docstring 3195}#
+ #{e1 3196}#
+ #{e2 3197}#)
+ (#{lp 3180}#
+ (cons #{e1 3196}# #{e2 3197}#)
(append
- #{meta 3168}#
+ #{meta 3182}#
(list (cons 'documentation
(syntax->datum
- #{docstring 3181}#))))))
- #{tmp 3171}#)
- (let ((#{tmp 3186}#
+ #{docstring 3195}#))))))
+ #{tmp 3185}#)
+ (let ((#{tmp 3200}#
($sc-dispatch
- #{tmp 3170}#
+ #{tmp 3184}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 3186}#
+ (if #{tmp 3200}#
(@apply
- (lambda (#{k 3191}#
- #{v 3192}#
- #{e1 3193}#
- #{e2 3194}#)
- (#{lp 3166}#
- (cons #{e1 3193}# #{e2 3194}#)
+ (lambda (#{k 3205}#
+ #{v 3206}#
+ #{e1 3207}#
+ #{e2 3208}#)
+ (#{lp 3180}#
+ (cons #{e1 3207}# #{e2 3208}#)
(append
- #{meta 3168}#
+ #{meta 3182}#
(syntax->datum
(map cons
- #{k 3191}#
- #{v 3192}#)))))
- #{tmp 3186}#)
- (let ((#{_ 3199}# #{tmp 3170}#))
- (#{chi-simple-lambda 439}#
- #{e 3137}#
- #{r 3138}#
- #{w 3139}#
- #{s 3140}#
- #{mod 3141}#
- #{req 3155}#
- #{rest 3157}#
- #{meta 3168}#
- #{body 3167}#))))))))))
+ #{k 3205}#
+ #{v 3206}#)))))
+ #{tmp 3200}#)
+ (let ((#{_ 3213}# #{tmp 3184}#))
+ (#{chi-simple-lambda 452}#
+ #{e 3151}#
+ #{r 3152}#
+ #{w 3153}#
+ #{s 3154}#
+ #{mod 3155}#
+ #{req 3169}#
+ #{rest 3171}#
+ #{meta 3182}#
+ #{body 3181}#))))))))))
(begin
- (#{lp 3166}#
- (cons #{e1 3153}# #{e2 3154}#)
+ (#{lp 3180}#
+ (cons #{e1 3167}# #{e2 3168}#)
'()))))))
- #{tmp 3148}#)
- (let ((#{_ 3201}# #{tmp 3147}#))
+ #{tmp 3162}#)
+ (let ((#{_ 3215}# #{tmp 3161}#))
(syntax-violation
'lambda
"bad lambda"
- #{e 3137}#)))))))
- (#{global-extend 335}#
+ #{e 3151}#)))))))
+ (#{global-extend 340}#
'core
'lambda*
- (lambda (#{e 3202}#
- #{r 3203}#
- #{w 3204}#
- #{s 3205}#
- #{mod 3206}#)
- (let ((#{tmp 3212}# #{e 3202}#))
- (let ((#{tmp 3213}#
+ (lambda (#{e 3216}#
+ #{r 3217}#
+ #{w 3218}#
+ #{s 3219}#
+ #{mod 3220}#)
+ (let ((#{tmp 3226}# #{e 3216}#))
+ (let ((#{tmp 3227}#
($sc-dispatch
- #{tmp 3212}#
+ #{tmp 3226}#
'(_ any any . each-any))))
- (if #{tmp 3213}#
+ (if #{tmp 3227}#
(@apply
- (lambda (#{args 3217}# #{e1 3218}# #{e2 3219}#)
+ (lambda (#{args 3231}# #{e1 3232}# #{e2 3233}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 443}#
- #{e 3202}#
- #{r 3203}#
- #{w 3204}#
- #{s 3205}#
- #{mod 3206}#
- #{lambda*-formals 441}#
- (list (cons #{args 3217}#
- (cons #{e1 3218}# #{e2 3219}#)))))
- (lambda (#{meta 3221}# #{lcase 3222}#)
- (#{build-case-lambda 285}#
- #{s 3205}#
- #{meta 3221}#
- #{lcase 3222}#))))
- #{tmp 3213}#)
- (let ((#{_ 3226}# #{tmp 3212}#))
+ (#{chi-lambda-case 456}#
+ #{e 3216}#
+ #{r 3217}#
+ #{w 3218}#
+ #{s 3219}#
+ #{mod 3220}#
+ #{lambda*-formals 454}#
+ (list (cons #{args 3231}#
+ (cons #{e1 3232}# #{e2 3233}#)))))
+ (lambda (#{meta 3235}# #{lcase 3236}#)
+ (#{build-case-lambda 286}#
+ #{s 3219}#
+ #{meta 3235}#
+ #{lcase 3236}#))))
+ #{tmp 3227}#)
+ (let ((#{_ 3240}# #{tmp 3226}#))
(syntax-violation
'lambda
"bad lambda*"
- #{e 3202}#)))))))
- (#{global-extend 335}#
+ #{e 3216}#)))))))
+ (#{global-extend 340}#
'core
'case-lambda
- (lambda (#{e 3227}#
- #{r 3228}#
- #{w 3229}#
- #{s 3230}#
- #{mod 3231}#)
- (let ((#{tmp 3237}# #{e 3227}#))
- (let ((#{tmp 3238}#
+ (lambda (#{e 3241}#
+ #{r 3242}#
+ #{w 3243}#
+ #{s 3244}#
+ #{mod 3245}#)
+ (let ((#{tmp 3251}# #{e 3241}#))
+ (let ((#{tmp 3252}#
($sc-dispatch
- #{tmp 3237}#
+ #{tmp 3251}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 3238}#
+ (if #{tmp 3252}#
(@apply
- (lambda (#{args 3245}#
- #{e1 3246}#
- #{e2 3247}#
- #{args* 3248}#
- #{e1* 3249}#
- #{e2* 3250}#)
+ (lambda (#{args 3259}#
+ #{e1 3260}#
+ #{e2 3261}#
+ #{args* 3262}#
+ #{e1* 3263}#
+ #{e2* 3264}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 443}#
- #{e 3227}#
- #{r 3228}#
- #{w 3229}#
- #{s 3230}#
- #{mod 3231}#
- #{lambda-formals 437}#
- (cons (cons #{args 3245}#
- (cons #{e1 3246}# #{e2 3247}#))
- (map (lambda (#{tmp 3254}#
- #{tmp 3253}#
- #{tmp 3252}#)
- (cons #{tmp 3252}#
- (cons #{tmp 3253}# #{tmp 3254}#)))
- #{e2* 3250}#
- #{e1* 3249}#
- #{args* 3248}#))))
- (lambda (#{meta 3256}# #{lcase 3257}#)
- (#{build-case-lambda 285}#
- #{s 3230}#
- #{meta 3256}#
- #{lcase 3257}#))))
- #{tmp 3238}#)
- (let ((#{_ 3261}# #{tmp 3237}#))
+ (#{chi-lambda-case 456}#
+ #{e 3241}#
+ #{r 3242}#
+ #{w 3243}#
+ #{s 3244}#
+ #{mod 3245}#
+ #{lambda-formals 450}#
+ (cons (cons #{args 3259}#
+ (cons #{e1 3260}# #{e2 3261}#))
+ (map (lambda (#{tmp 3268}#
+ #{tmp 3267}#
+ #{tmp 3266}#)
+ (cons #{tmp 3266}#
+ (cons #{tmp 3267}# #{tmp 3268}#)))
+ #{e2* 3264}#
+ #{e1* 3263}#
+ #{args* 3262}#))))
+ (lambda (#{meta 3270}# #{lcase 3271}#)
+ (#{build-case-lambda 286}#
+ #{s 3244}#
+ #{meta 3270}#
+ #{lcase 3271}#))))
+ #{tmp 3252}#)
+ (let ((#{_ 3275}# #{tmp 3251}#))
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 3227}#)))))))
- (#{global-extend 335}#
+ #{e 3241}#)))))))
+ (#{global-extend 340}#
'core
'case-lambda*
- (lambda (#{e 3262}#
- #{r 3263}#
- #{w 3264}#
- #{s 3265}#
- #{mod 3266}#)
- (let ((#{tmp 3272}# #{e 3262}#))
- (let ((#{tmp 3273}#
+ (lambda (#{e 3276}#
+ #{r 3277}#
+ #{w 3278}#
+ #{s 3279}#
+ #{mod 3280}#)
+ (let ((#{tmp 3286}# #{e 3276}#))
+ (let ((#{tmp 3287}#
($sc-dispatch
- #{tmp 3272}#
+ #{tmp 3286}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 3273}#
+ (if #{tmp 3287}#
(@apply
- (lambda (#{args 3280}#
- #{e1 3281}#
- #{e2 3282}#
- #{args* 3283}#
- #{e1* 3284}#
- #{e2* 3285}#)
+ (lambda (#{args 3294}#
+ #{e1 3295}#
+ #{e2 3296}#
+ #{args* 3297}#
+ #{e1* 3298}#
+ #{e2* 3299}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 443}#
- #{e 3262}#
- #{r 3263}#
- #{w 3264}#
- #{s 3265}#
- #{mod 3266}#
- #{lambda*-formals 441}#
- (cons (cons #{args 3280}#
- (cons #{e1 3281}# #{e2 3282}#))
- (map (lambda (#{tmp 3289}#
- #{tmp 3288}#
- #{tmp 3287}#)
- (cons #{tmp 3287}#
- (cons #{tmp 3288}# #{tmp 3289}#)))
- #{e2* 3285}#
- #{e1* 3284}#
- #{args* 3283}#))))
- (lambda (#{meta 3291}# #{lcase 3292}#)
- (#{build-case-lambda 285}#
- #{s 3265}#
- #{meta 3291}#
- #{lcase 3292}#))))
- #{tmp 3273}#)
- (let ((#{_ 3296}# #{tmp 3272}#))
+ (#{chi-lambda-case 456}#
+ #{e 3276}#
+ #{r 3277}#
+ #{w 3278}#
+ #{s 3279}#
+ #{mod 3280}#
+ #{lambda*-formals 454}#
+ (cons (cons #{args 3294}#
+ (cons #{e1 3295}# #{e2 3296}#))
+ (map (lambda (#{tmp 3303}#
+ #{tmp 3302}#
+ #{tmp 3301}#)
+ (cons #{tmp 3301}#
+ (cons #{tmp 3302}# #{tmp 3303}#)))
+ #{e2* 3299}#
+ #{e1* 3298}#
+ #{args* 3297}#))))
+ (lambda (#{meta 3305}# #{lcase 3306}#)
+ (#{build-case-lambda 286}#
+ #{s 3279}#
+ #{meta 3305}#
+ #{lcase 3306}#))))
+ #{tmp 3287}#)
+ (let ((#{_ 3310}# #{tmp 3286}#))
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 3262}#)))))))
- (#{global-extend 335}#
+ #{e 3276}#)))))))
+ (#{global-extend 340}#
'core
'let
(letrec*
- ((#{chi-let 3298}#
- (lambda (#{e 3299}#
- #{r 3300}#
- #{w 3301}#
- #{s 3302}#
- #{mod 3303}#
- #{constructor 3304}#
- #{ids 3305}#
- #{vals 3306}#
- #{exps 3307}#)
- (if (not (#{valid-bound-ids? 399}# #{ids 3305}#))
+ ((#{chi-let 3312}#
+ (lambda (#{e 3313}#
+ #{r 3314}#
+ #{w 3315}#
+ #{s 3316}#
+ #{mod 3317}#
+ #{constructor 3318}#
+ #{ids 3319}#
+ #{vals 3320}#
+ #{exps 3321}#)
+ (if (not (#{valid-bound-ids? 412}# #{ids 3319}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 3299}#)
+ #{e 3313}#)
(begin
- (let ((#{labels 3319}#
- (#{gen-labels 354}# #{ids 3305}#))
- (#{new-vars 3320}#
- (map #{gen-var 447}# #{ids 3305}#)))
+ (let ((#{labels 3333}#
+ (#{gen-labels 364}# #{ids 3319}#))
+ (#{new-vars 3334}#
+ (map #{gen-var 460}# #{ids 3319}#)))
(begin
- (let ((#{nw 3323}#
- (#{make-binding-wrap 383}#
- #{ids 3305}#
- #{labels 3319}#
- #{w 3301}#))
- (#{nr 3324}#
- (#{extend-var-env 329}#
- #{labels 3319}#
- #{new-vars 3320}#
- #{r 3300}#)))
- (#{constructor 3304}#
- #{s 3302}#
- (map syntax->datum #{ids 3305}#)
- #{new-vars 3320}#
- (map (lambda (#{x 3325}#)
- (#{chi 419}#
- #{x 3325}#
- #{r 3300}#
- #{w 3301}#
- #{mod 3303}#))
- #{vals 3306}#)
- (#{chi-body 427}#
- #{exps 3307}#
- (#{source-wrap 407}#
- #{e 3299}#
- #{nw 3323}#
- #{s 3302}#
- #{mod 3303}#)
- #{nr 3324}#
- #{nw 3323}#
- #{mod 3303}#))))))))))
+ (let ((#{nw 3337}#
+ (#{make-binding-wrap 396}#
+ #{ids 3319}#
+ #{labels 3333}#
+ #{w 3315}#))
+ (#{nr 3338}#
+ (#{extend-var-env 334}#
+ #{labels 3333}#
+ #{new-vars 3334}#
+ #{r 3314}#)))
+ (#{constructor 3318}#
+ #{s 3316}#
+ (map syntax->datum #{ids 3319}#)
+ #{new-vars 3334}#
+ (map (lambda (#{x 3339}#)
+ (#{chi 432}#
+ #{x 3339}#
+ #{r 3314}#
+ #{w 3315}#
+ #{mod 3317}#))
+ #{vals 3320}#)
+ (#{chi-body 440}#
+ #{exps 3321}#
+ (#{source-wrap 420}#
+ #{e 3313}#
+ #{nw 3337}#
+ #{s 3316}#
+ #{mod 3317}#)
+ #{nr 3338}#
+ #{nw 3337}#
+ #{mod 3317}#))))))))))
(begin
- (lambda (#{e 3327}#
- #{r 3328}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#)
- (let ((#{tmp 3337}# #{e 3327}#))
- (let ((#{tmp 3338}#
+ (lambda (#{e 3341}#
+ #{r 3342}#
+ #{w 3343}#
+ #{s 3344}#
+ #{mod 3345}#)
+ (let ((#{tmp 3351}# #{e 3341}#))
+ (let ((#{tmp 3352}#
($sc-dispatch
- #{tmp 3337}#
+ #{tmp 3351}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3338}#
+ (if (if #{tmp 3352}#
(@apply
- (lambda (#{id 3343}#
- #{val 3344}#
- #{e1 3345}#
- #{e2 3346}#)
- (and-map #{id? 339}# #{id 3343}#))
- #{tmp 3338}#)
+ (lambda (#{id 3357}#
+ #{val 3358}#
+ #{e1 3359}#
+ #{e2 3360}#)
+ (and-map #{id? 344}# #{id 3357}#))
+ #{tmp 3352}#)
#f)
(@apply
- (lambda (#{id 3352}#
- #{val 3353}#
- #{e1 3354}#
- #{e2 3355}#)
- (#{chi-let 3298}#
- #{e 3327}#
- #{r 3328}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#
- #{build-let 295}#
- #{id 3352}#
- #{val 3353}#
- (cons #{e1 3354}# #{e2 3355}#)))
- #{tmp 3338}#)
- (let ((#{tmp 3359}#
+ (lambda (#{id 3366}#
+ #{val 3367}#
+ #{e1 3368}#
+ #{e2 3369}#)
+ (#{chi-let 3312}#
+ #{e 3341}#
+ #{r 3342}#
+ #{w 3343}#
+ #{s 3344}#
+ #{mod 3345}#
+ #{build-let 296}#
+ #{id 3366}#
+ #{val 3367}#
+ (cons #{e1 3368}# #{e2 3369}#)))
+ #{tmp 3352}#)
+ (let ((#{tmp 3373}#
($sc-dispatch
- #{tmp 3337}#
+ #{tmp 3351}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 3359}#
+ (if (if #{tmp 3373}#
(@apply
- (lambda (#{f 3365}#
- #{id 3366}#
- #{val 3367}#
- #{e1 3368}#
- #{e2 3369}#)
- (if (#{id? 339}# #{f 3365}#)
- (and-map #{id? 339}# #{id 3366}#)
+ (lambda (#{f 3379}#
+ #{id 3380}#
+ #{val 3381}#
+ #{e1 3382}#
+ #{e2 3383}#)
+ (if (#{id? 344}# #{f 3379}#)
+ (and-map #{id? 344}# #{id 3380}#)
#f))
- #{tmp 3359}#)
+ #{tmp 3373}#)
#f)
(@apply
- (lambda (#{f 3378}#
- #{id 3379}#
- #{val 3380}#
- #{e1 3381}#
- #{e2 3382}#)
- (#{chi-let 3298}#
- #{e 3327}#
- #{r 3328}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#
- #{build-named-let 297}#
- (cons #{f 3378}# #{id 3379}#)
- #{val 3380}#
- (cons #{e1 3381}# #{e2 3382}#)))
- #{tmp 3359}#)
- (let ((#{_ 3387}# #{tmp 3337}#))
+ (lambda (#{f 3392}#
+ #{id 3393}#
+ #{val 3394}#
+ #{e1 3395}#
+ #{e2 3396}#)
+ (#{chi-let 3312}#
+ #{e 3341}#
+ #{r 3342}#
+ #{w 3343}#
+ #{s 3344}#
+ #{mod 3345}#
+ #{build-named-let 298}#
+ (cons #{f 3392}# #{id 3393}#)
+ #{val 3394}#
+ (cons #{e1 3395}# #{e2 3396}#)))
+ #{tmp 3373}#)
+ (let ((#{_ 3401}# #{tmp 3351}#))
(syntax-violation
'let
"bad let"
- (#{source-wrap 407}#
- #{e 3327}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#))))))))))))
- (#{global-extend 335}#
+ (#{source-wrap 420}#
+ #{e 3341}#
+ #{w 3343}#
+ #{s 3344}#
+ #{mod 3345}#))))))))))))
+ (#{global-extend 340}#
'core
'letrec
- (lambda (#{e 3388}#
- #{r 3389}#
- #{w 3390}#
- #{s 3391}#
- #{mod 3392}#)
- (let ((#{tmp 3398}# #{e 3388}#))
- (let ((#{tmp 3399}#
+ (lambda (#{e 3402}#
+ #{r 3403}#
+ #{w 3404}#
+ #{s 3405}#
+ #{mod 3406}#)
+ (let ((#{tmp 3412}# #{e 3402}#))
+ (let ((#{tmp 3413}#
($sc-dispatch
- #{tmp 3398}#
+ #{tmp 3412}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3399}#
+ (if (if #{tmp 3413}#
(@apply
- (lambda (#{id 3404}#
- #{val 3405}#
- #{e1 3406}#
- #{e2 3407}#)
- (and-map #{id? 339}# #{id 3404}#))
- #{tmp 3399}#)
+ (lambda (#{id 3418}#
+ #{val 3419}#
+ #{e1 3420}#
+ #{e2 3421}#)
+ (and-map #{id? 344}# #{id 3418}#))
+ #{tmp 3413}#)
#f)
(@apply
- (lambda (#{id 3413}#
- #{val 3414}#
- #{e1 3415}#
- #{e2 3416}#)
+ (lambda (#{id 3427}#
+ #{val 3428}#
+ #{e1 3429}#
+ #{e2 3430}#)
(begin
- (let ((#{ids 3418}# #{id 3413}#))
- (if (not (#{valid-bound-ids? 399}# #{ids 3418}#))
+ (let ((#{ids 3432}# #{id 3427}#))
+ (if (not (#{valid-bound-ids? 412}# #{ids 3432}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 3388}#)
+ #{e 3402}#)
(begin
- (let ((#{labels 3422}#
- (#{gen-labels 354}# #{ids 3418}#))
- (#{new-vars 3423}#
- (map #{gen-var 447}# #{ids 3418}#)))
+ (let ((#{labels 3436}#
+ (#{gen-labels 364}# #{ids 3432}#))
+ (#{new-vars 3437}#
+ (map #{gen-var 460}# #{ids 3432}#)))
(begin
- (let ((#{w 3426}#
- (#{make-binding-wrap 383}#
- #{ids 3418}#
- #{labels 3422}#
- #{w 3390}#))
- (#{r 3427}#
- (#{extend-var-env 329}#
- #{labels 3422}#
- #{new-vars 3423}#
- #{r 3389}#)))
- (#{build-letrec 299}#
- #{s 3391}#
+ (let ((#{w 3440}#
+ (#{make-binding-wrap 396}#
+ #{ids 3432}#
+ #{labels 3436}#
+ #{w 3404}#))
+ (#{r 3441}#
+ (#{extend-var-env 334}#
+ #{labels 3436}#
+ #{new-vars 3437}#
+ #{r 3403}#)))
+ (#{build-letrec 300}#
+ #{s 3405}#
#f
- (map syntax->datum #{ids 3418}#)
- #{new-vars 3423}#
- (map (lambda (#{x 3428}#)
- (#{chi 419}#
- #{x 3428}#
- #{r 3427}#
- #{w 3426}#
- #{mod 3392}#))
- #{val 3414}#)
- (#{chi-body 427}#
- (cons #{e1 3415}# #{e2 3416}#)
- (#{source-wrap 407}#
- #{e 3388}#
- #{w 3426}#
- #{s 3391}#
- #{mod 3392}#)
- #{r 3427}#
- #{w 3426}#
- #{mod 3392}#))))))))))
- #{tmp 3399}#)
- (let ((#{_ 3433}# #{tmp 3398}#))
+ (map syntax->datum #{ids 3432}#)
+ #{new-vars 3437}#
+ (map (lambda (#{x 3442}#)
+ (#{chi 432}#
+ #{x 3442}#
+ #{r 3441}#
+ #{w 3440}#
+ #{mod 3406}#))
+ #{val 3428}#)
+ (#{chi-body 440}#
+ (cons #{e1 3429}# #{e2 3430}#)
+ (#{source-wrap 420}#
+ #{e 3402}#
+ #{w 3440}#
+ #{s 3405}#
+ #{mod 3406}#)
+ #{r 3441}#
+ #{w 3440}#
+ #{mod 3406}#))))))))))
+ #{tmp 3413}#)
+ (let ((#{_ 3447}# #{tmp 3412}#))
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap 407}#
- #{e 3388}#
- #{w 3390}#
- #{s 3391}#
- #{mod 3392}#))))))))
- (#{global-extend 335}#
+ (#{source-wrap 420}#
+ #{e 3402}#
+ #{w 3404}#
+ #{s 3405}#
+ #{mod 3406}#))))))))
+ (#{global-extend 340}#
'core
'letrec*
- (lambda (#{e 3434}#
- #{r 3435}#
- #{w 3436}#
- #{s 3437}#
- #{mod 3438}#)
- (let ((#{tmp 3444}# #{e 3434}#))
- (let ((#{tmp 3445}#
+ (lambda (#{e 3448}#
+ #{r 3449}#
+ #{w 3450}#
+ #{s 3451}#
+ #{mod 3452}#)
+ (let ((#{tmp 3458}# #{e 3448}#))
+ (let ((#{tmp 3459}#
($sc-dispatch
- #{tmp 3444}#
+ #{tmp 3458}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3445}#
+ (if (if #{tmp 3459}#
(@apply
- (lambda (#{id 3450}#
- #{val 3451}#
- #{e1 3452}#
- #{e2 3453}#)
- (and-map #{id? 339}# #{id 3450}#))
- #{tmp 3445}#)
+ (lambda (#{id 3464}#
+ #{val 3465}#
+ #{e1 3466}#
+ #{e2 3467}#)
+ (and-map #{id? 344}# #{id 3464}#))
+ #{tmp 3459}#)
#f)
(@apply
- (lambda (#{id 3459}#
- #{val 3460}#
- #{e1 3461}#
- #{e2 3462}#)
+ (lambda (#{id 3473}#
+ #{val 3474}#
+ #{e1 3475}#
+ #{e2 3476}#)
(begin
- (let ((#{ids 3464}# #{id 3459}#))
- (if (not (#{valid-bound-ids? 399}# #{ids 3464}#))
+ (let ((#{ids 3478}# #{id 3473}#))
+ (if (not (#{valid-bound-ids? 412}# #{ids 3478}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 3434}#)
+ #{e 3448}#)
(begin
- (let ((#{labels 3468}#
- (#{gen-labels 354}# #{ids 3464}#))
- (#{new-vars 3469}#
- (map #{gen-var 447}# #{ids 3464}#)))
+ (let ((#{labels 3482}#
+ (#{gen-labels 364}# #{ids 3478}#))
+ (#{new-vars 3483}#
+ (map #{gen-var 460}# #{ids 3478}#)))
(begin
- (let ((#{w 3472}#
- (#{make-binding-wrap 383}#
- #{ids 3464}#
- #{labels 3468}#
- #{w 3436}#))
- (#{r 3473}#
- (#{extend-var-env 329}#
- #{labels 3468}#
- #{new-vars 3469}#
- #{r 3435}#)))
- (#{build-letrec 299}#
- #{s 3437}#
+ (let ((#{w 3486}#
+ (#{make-binding-wrap 396}#
+ #{ids 3478}#
+ #{labels 3482}#
+ #{w 3450}#))
+ (#{r 3487}#
+ (#{extend-var-env 334}#
+ #{labels 3482}#
+ #{new-vars 3483}#
+ #{r 3449}#)))
+ (#{build-letrec 300}#
+ #{s 3451}#
#t
- (map syntax->datum #{ids 3464}#)
- #{new-vars 3469}#
- (map (lambda (#{x 3474}#)
- (#{chi 419}#
- #{x 3474}#
- #{r 3473}#
- #{w 3472}#
- #{mod 3438}#))
- #{val 3460}#)
- (#{chi-body 427}#
- (cons #{e1 3461}# #{e2 3462}#)
- (#{source-wrap 407}#
- #{e 3434}#
- #{w 3472}#
- #{s 3437}#
- #{mod 3438}#)
- #{r 3473}#
- #{w 3472}#
- #{mod 3438}#))))))))))
- #{tmp 3445}#)
- (let ((#{_ 3479}# #{tmp 3444}#))
+ (map syntax->datum #{ids 3478}#)
+ #{new-vars 3483}#
+ (map (lambda (#{x 3488}#)
+ (#{chi 432}#
+ #{x 3488}#
+ #{r 3487}#
+ #{w 3486}#
+ #{mod 3452}#))
+ #{val 3474}#)
+ (#{chi-body 440}#
+ (cons #{e1 3475}# #{e2 3476}#)
+ (#{source-wrap 420}#
+ #{e 3448}#
+ #{w 3486}#
+ #{s 3451}#
+ #{mod 3452}#)
+ #{r 3487}#
+ #{w 3486}#
+ #{mod 3452}#))))))))))
+ #{tmp 3459}#)
+ (let ((#{_ 3493}# #{tmp 3458}#))
(syntax-violation
'letrec*
"bad letrec*"
- (#{source-wrap 407}#
- #{e 3434}#
- #{w 3436}#
- #{s 3437}#
- #{mod 3438}#))))))))
- (#{global-extend 335}#
+ (#{source-wrap 420}#
+ #{e 3448}#
+ #{w 3450}#
+ #{s 3451}#
+ #{mod 3452}#))))))))
+ (#{global-extend 340}#
'core
'set!
- (lambda (#{e 3480}#
- #{r 3481}#
- #{w 3482}#
- #{s 3483}#
- #{mod 3484}#)
- (let ((#{tmp 3490}# #{e 3480}#))
- (let ((#{tmp 3491}#
- ($sc-dispatch #{tmp 3490}# '(_ any any))))
- (if (if #{tmp 3491}#
+ (lambda (#{e 3494}#
+ #{r 3495}#
+ #{w 3496}#
+ #{s 3497}#
+ #{mod 3498}#)
+ (let ((#{tmp 3504}# #{e 3494}#))
+ (let ((#{tmp 3505}#
+ ($sc-dispatch #{tmp 3504}# '(_ any any))))
+ (if (if #{tmp 3505}#
(@apply
- (lambda (#{id 3494}# #{val 3495}#)
- (#{id? 339}# #{id 3494}#))
- #{tmp 3491}#)
+ (lambda (#{id 3508}# #{val 3509}#)
+ (#{id? 344}# #{id 3508}#))
+ #{tmp 3505}#)
#f)
(@apply
- (lambda (#{id 3498}# #{val 3499}#)
+ (lambda (#{id 3512}# #{val 3513}#)
(begin
- (let ((#{n 3502}#
- (#{id-var-name 393}# #{id 3498}# #{w 3482}#))
- (#{id-mod 3503}#
- (if (#{syntax-object? 305}# #{id 3498}#)
- (#{syntax-object-module 311}# #{id 3498}#)
- #{mod 3484}#)))
+ (let ((#{n 3516}#
+ (#{id-var-name 406}# #{id 3512}# #{w 3496}#))
+ (#{id-mod 3517}#
+ (if (#{syntax-object? 307}# #{id 3512}#)
+ (#{syntax-object-module 313}# #{id 3512}#)
+ #{mod 3498}#)))
(begin
- (let ((#{b 3505}#
- (#{lookup 333}#
- #{n 3502}#
- #{r 3481}#
- #{id-mod 3503}#)))
+ (let ((#{b 3519}#
+ (#{lookup 338}#
+ #{n 3516}#
+ #{r 3495}#
+ #{id-mod 3517}#)))
(begin
- (let ((#{atom-key 3508}# (car #{b 3505}#)))
- (if (eqv? #{atom-key 3508}# 'lexical)
- (#{build-lexical-assignment 273}#
- #{s 3483}#
- (syntax->datum #{id 3498}#)
- (cdr #{b 3505}#)
- (#{chi 419}#
- #{val 3499}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#))
- (if (eqv? #{atom-key 3508}# 'global)
- (#{build-global-assignment 279}#
- #{s 3483}#
- #{n 3502}#
- (#{chi 419}#
- #{val 3499}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#)
- #{id-mod 3503}#)
- (if (eqv? #{atom-key 3508}# 'macro)
+ (let ((#{atom-key 3522}# (car #{b 3519}#)))
+ (if (eqv? #{atom-key 3522}# 'lexical)
+ (#{build-lexical-assignment 274}#
+ #{s 3497}#
+ (syntax->datum #{id 3512}#)
+ (cdr #{b 3519}#)
+ (#{chi 432}#
+ #{val 3513}#
+ #{r 3495}#
+ #{w 3496}#
+ #{mod 3498}#))
+ (if (eqv? #{atom-key 3522}# 'global)
+ (#{build-global-assignment 280}#
+ #{s 3497}#
+ #{n 3516}#
+ (#{chi 432}#
+ #{val 3513}#
+ #{r 3495}#
+ #{w 3496}#
+ #{mod 3498}#)
+ #{id-mod 3517}#)
+ (if (eqv? #{atom-key 3522}# 'macro)
(begin
- (let ((#{p 3515}# (cdr #{b 3505}#)))
+ (let ((#{p 3529}# (cdr #{b 3519}#)))
(if (procedure-property
- #{p 3515}#
+ #{p 3529}#
'variable-transformer)
- (#{chi 419}#
- (#{chi-macro 425}#
- #{p 3515}#
- #{e 3480}#
- #{r 3481}#
- #{w 3482}#
- #{s 3483}#
+ (#{chi 432}#
+ (#{chi-macro 438}#
+ #{p 3529}#
+ #{e 3494}#
+ #{r 3495}#
+ #{w 3496}#
+ #{s 3497}#
#f
- #{mod 3484}#)
- #{r 3481}#
+ #{mod 3498}#)
+ #{r 3495}#
'(())
- #{mod 3484}#)
+ #{mod 3498}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap 405}#
- #{e 3480}#
- #{w 3482}#
- #{mod 3484}#)
- (#{wrap 405}#
- #{id 3498}#
- #{w 3482}#
- #{id-mod 3503}#)))))
- (if (eqv? #{atom-key 3508}#
+ (#{wrap 418}#
+ #{e 3494}#
+ #{w 3496}#
+ #{mod 3498}#)
+ (#{wrap 418}#
+ #{id 3512}#
+ #{w 3496}#
+ #{id-mod 3517}#)))))
+ (if (eqv? #{atom-key 3522}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap 405}#
- #{id 3498}#
- #{w 3482}#
- #{mod 3484}#))
+ (#{wrap 418}#
+ #{id 3512}#
+ #{w 3496}#
+ #{mod 3498}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap 407}#
- #{e 3480}#
- #{w 3482}#
- #{s 3483}#
- #{mod 3484}#)))))))))))))
- #{tmp 3491}#)
- (let ((#{tmp 3520}#
+ (#{source-wrap 420}#
+ #{e 3494}#
+ #{w 3496}#
+ #{s 3497}#
+ #{mod 3498}#)))))))))))))
+ #{tmp 3505}#)
+ (let ((#{tmp 3534}#
($sc-dispatch
- #{tmp 3490}#
+ #{tmp 3504}#
'(_ (any . each-any) any))))
- (if #{tmp 3520}#
+ (if #{tmp 3534}#
(@apply
- (lambda (#{head 3524}# #{tail 3525}# #{val 3526}#)
+ (lambda (#{head 3538}# #{tail 3539}# #{val 3540}#)
(call-with-values
(lambda ()
- (#{syntax-type 417}#
- #{head 3524}#
- #{r 3481}#
+ (#{syntax-type 430}#
+ #{head 3538}#
+ #{r 3495}#
'(())
#f
#f
- #{mod 3484}#
+ #{mod 3498}#
#t))
- (lambda (#{type 3529}#
- #{value 3530}#
- #{ee 3531}#
- #{ww 3532}#
- #{ss 3533}#
- #{modmod 3534}#)
- (if (eqv? #{type 3529}# 'module-ref)
+ (lambda (#{type 3543}#
+ #{value 3544}#
+ #{ee 3545}#
+ #{ww 3546}#
+ #{ss 3547}#
+ #{modmod 3548}#)
+ (if (eqv? #{type 3543}# 'module-ref)
(begin
- (let ((#{val 3543}#
- (#{chi 419}#
- #{val 3526}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#)))
+ (let ((#{val 3557}#
+ (#{chi 432}#
+ #{val 3540}#
+ #{r 3495}#
+ #{w 3496}#
+ #{mod 3498}#)))
(call-with-values
(lambda ()
- (#{value 3530}#
- (cons #{head 3524}# #{tail 3525}#)
- #{r 3481}#
- #{w 3482}#))
- (lambda (#{e 3545}#
- #{r 3546}#
- #{w 3547}#
- #{s* 3548}#
- #{mod 3549}#)
- (let ((#{tmp 3555}# #{e 3545}#))
- (let ((#{tmp 3556}#
- (list #{tmp 3555}#)))
- (if (if #{tmp 3556}#
+ (#{value 3544}#
+ (cons #{head 3538}# #{tail 3539}#)
+ #{r 3495}#
+ #{w 3496}#))
+ (lambda (#{e 3559}#
+ #{r 3560}#
+ #{w 3561}#
+ #{s* 3562}#
+ #{mod 3563}#)
+ (let ((#{tmp 3569}# #{e 3559}#))
+ (let ((#{tmp 3570}#
+ (list #{tmp 3569}#)))
+ (if (if #{tmp 3570}#
(@apply
- (lambda (#{e 3558}#)
- (#{id? 339}# #{e 3558}#))
- #{tmp 3556}#)
+ (lambda (#{e 3572}#)
+ (#{id? 344}# #{e 3572}#))
+ #{tmp 3570}#)
#f)
(@apply
- (lambda (#{e 3560}#)
- (#{build-global-assignment 279}#
- #{s 3483}#
- (syntax->datum #{e 3560}#)
- #{val 3543}#
- #{mod 3549}#))
- #{tmp 3556}#)
+ (lambda (#{e 3574}#)
+ (#{build-global-assignment 280}#
+ #{s 3497}#
+ (syntax->datum #{e 3574}#)
+ #{val 3557}#
+ #{mod 3563}#))
+ #{tmp 3570}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3555}#))))))))
- (#{build-application 265}#
- #{s 3483}#
- (#{chi 419}#
+ #{tmp 3569}#))))))))
+ (#{build-application 266}#
+ #{s 3497}#
+ (#{chi 432}#
(list '#(syntax-object
setter
((top)
@@ -9930,25 +9930,25 @@
(top)
(top)
(top))
- #("i3535"
- "i3536"
- "i3537"
- "i3538"
- "i3539"
- "i3540"))
+ #("i3549"
+ "i3550"
+ "i3551"
+ "i3552"
+ "i3553"
+ "i3554"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3521" "i3522" "i3523"))
+ #("i3535" "i3536" "i3537"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3485"
- "i3486"
- "i3487"
- "i3488"
- "i3489"))
+ #("i3499"
+ "i3500"
+ "i3501"
+ "i3502"
+ "i3503"))
#(ribcage
(lambda-var-list
gen-var
@@ -10222,81 +10222,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -10306,31 +10307,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -10365,50 +10365,50 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{head 3524}#)
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#)
- (map (lambda (#{e 3562}#)
- (#{chi 419}#
- #{e 3562}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#))
+ #{head 3538}#)
+ #{r 3495}#
+ #{w 3496}#
+ #{mod 3498}#)
+ (map (lambda (#{e 3576}#)
+ (#{chi 432}#
+ #{e 3576}#
+ #{r 3495}#
+ #{w 3496}#
+ #{mod 3498}#))
(append
- #{tail 3525}#
- (list #{val 3526}#))))))))
- #{tmp 3520}#)
- (let ((#{_ 3566}# #{tmp 3490}#))
+ #{tail 3539}#
+ (list #{val 3540}#))))))))
+ #{tmp 3534}#)
+ (let ((#{_ 3580}# #{tmp 3504}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap 407}#
- #{e 3480}#
- #{w 3482}#
- #{s 3483}#
- #{mod 3484}#))))))))))
- (#{global-extend 335}#
+ (#{source-wrap 420}#
+ #{e 3494}#
+ #{w 3496}#
+ #{s 3497}#
+ #{mod 3498}#))))))))))
+ (#{global-extend 340}#
'module-ref
'@
- (lambda (#{e 3567}# #{r 3568}# #{w 3569}#)
- (let ((#{tmp 3573}# #{e 3567}#))
- (let ((#{tmp 3574}#
- ($sc-dispatch #{tmp 3573}# '(_ each-any any))))
- (if (if #{tmp 3574}#
+ (lambda (#{e 3581}# #{r 3582}# #{w 3583}#)
+ (let ((#{tmp 3587}# #{e 3581}#))
+ (let ((#{tmp 3588}#
+ ($sc-dispatch #{tmp 3587}# '(_ each-any any))))
+ (if (if #{tmp 3588}#
(@apply
- (lambda (#{mod 3577}# #{id 3578}#)
- (if (and-map #{id? 339}# #{mod 3577}#)
- (#{id? 339}# #{id 3578}#)
+ (lambda (#{mod 3591}# #{id 3592}#)
+ (if (and-map #{id? 344}# #{mod 3591}#)
+ (#{id? 344}# #{id 3592}#)
#f))
- #{tmp 3574}#)
+ #{tmp 3588}#)
#f)
(@apply
- (lambda (#{mod 3584}# #{id 3585}#)
+ (lambda (#{mod 3598}# #{id 3599}#)
(values
- (syntax->datum #{id 3585}#)
- #{r 3568}#
- #{w 3569}#
+ (syntax->datum #{id 3599}#)
+ #{r 3582}#
+ #{w 3583}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10417,12 +10417,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3582" "i3583"))
+ #("i3596" "i3597"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3570" "i3571" "i3572"))
+ #("i3584" "i3585" "i3586"))
#(ribcage
(lambda-var-list
gen-var
@@ -10696,81 +10696,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -10780,31 +10781,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -10839,70 +10839,70 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{mod 3584}#))))
- #{tmp 3574}#)
+ #{mod 3598}#))))
+ #{tmp 3588}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3573}#))))))
- (#{global-extend 335}#
+ #{tmp 3587}#))))))
+ (#{global-extend 340}#
'module-ref
'@@
- (lambda (#{e 3587}# #{r 3588}# #{w 3589}#)
+ (lambda (#{e 3601}# #{r 3602}# #{w 3603}#)
(letrec*
- ((#{remodulate 3594}#
- (lambda (#{x 3595}# #{mod 3596}#)
- (if (pair? #{x 3595}#)
- (cons (#{remodulate 3594}#
- (car #{x 3595}#)
- #{mod 3596}#)
- (#{remodulate 3594}#
- (cdr #{x 3595}#)
- #{mod 3596}#))
- (if (#{syntax-object? 305}# #{x 3595}#)
- (#{make-syntax-object 303}#
- (#{remodulate 3594}#
- (#{syntax-object-expression 307}# #{x 3595}#)
- #{mod 3596}#)
- (#{syntax-object-wrap 309}# #{x 3595}#)
- #{mod 3596}#)
- (if (vector? #{x 3595}#)
+ ((#{remodulate 3608}#
+ (lambda (#{x 3609}# #{mod 3610}#)
+ (if (pair? #{x 3609}#)
+ (cons (#{remodulate 3608}#
+ (car #{x 3609}#)
+ #{mod 3610}#)
+ (#{remodulate 3608}#
+ (cdr #{x 3609}#)
+ #{mod 3610}#))
+ (if (#{syntax-object? 307}# #{x 3609}#)
+ (#{make-syntax-object 305}#
+ (#{remodulate 3608}#
+ (#{syntax-object-expression 309}# #{x 3609}#)
+ #{mod 3610}#)
+ (#{syntax-object-wrap 311}# #{x 3609}#)
+ #{mod 3610}#)
+ (if (vector? #{x 3609}#)
(begin
- (let ((#{n 3607}# (vector-length #{x 3595}#)))
+ (let ((#{n 3621}# (vector-length #{x 3609}#)))
(begin
- (let ((#{v 3609}# (make-vector #{n 3607}#)))
+ (let ((#{v 3623}# (make-vector #{n 3621}#)))
(letrec*
- ((#{loop 3612}#
- (lambda (#{i 3613}#)
- (if (= #{i 3613}# #{n 3607}#)
- (begin (if #f #f) #{v 3609}#)
+ ((#{loop 3626}#
+ (lambda (#{i 3627}#)
+ (if (= #{i 3627}# #{n 3621}#)
+ (begin (if #f #f) #{v 3623}#)
(begin
(vector-set!
- #{v 3609}#
- #{i 3613}#
- (#{remodulate 3594}#
+ #{v 3623}#
+ #{i 3627}#
+ (#{remodulate 3608}#
(vector-ref
- #{x 3595}#
- #{i 3613}#)
- #{mod 3596}#))
- (#{loop 3612}#
- (#{1+}# #{i 3613}#)))))))
- (begin (#{loop 3612}# 0)))))))
- #{x 3595}#))))))
+ #{x 3609}#
+ #{i 3627}#)
+ #{mod 3610}#))
+ (#{loop 3626}#
+ (#{1+}# #{i 3627}#)))))))
+ (begin (#{loop 3626}# 0)))))))
+ #{x 3609}#))))))
(begin
- (let ((#{tmp 3619}# #{e 3587}#))
- (let ((#{tmp 3620}#
- ($sc-dispatch #{tmp 3619}# '(_ each-any any))))
- (if (if #{tmp 3620}#
+ (let ((#{tmp 3633}# #{e 3601}#))
+ (let ((#{tmp 3634}#
+ ($sc-dispatch #{tmp 3633}# '(_ each-any any))))
+ (if (if #{tmp 3634}#
(@apply
- (lambda (#{mod 3623}# #{exp 3624}#)
- (and-map #{id? 339}# #{mod 3623}#))
- #{tmp 3620}#)
+ (lambda (#{mod 3637}# #{exp 3638}#)
+ (and-map #{id? 344}# #{mod 3637}#))
+ #{tmp 3634}#)
#f)
(@apply
- (lambda (#{mod 3628}# #{exp 3629}#)
+ (lambda (#{mod 3642}# #{exp 3643}#)
(begin
- (let ((#{mod 3631}#
+ (let ((#{mod 3645}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10910,15 +10910,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3626" "i3627"))
+ #("i3640" "i3641"))
#(ribcage
(remodulate)
((top))
- ("i3593"))
+ ("i3607"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3590" "i3591" "i3592"))
+ #("i3604" "i3605" "i3606"))
#(ribcage
(lambda-var-list
gen-var
@@ -11192,81 +11192,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -11276,31 +11277,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -11335,183 +11335,183 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{mod 3628}#))))
+ #{mod 3642}#))))
(values
- (#{remodulate 3594}# #{exp 3629}# #{mod 3631}#)
- #{r 3588}#
- #{w 3589}#
- (#{source-annotation 320}# #{exp 3629}#)
- #{mod 3631}#))))
- #{tmp 3620}#)
+ (#{remodulate 3608}# #{exp 3643}# #{mod 3645}#)
+ #{r 3602}#
+ #{w 3603}#
+ (#{source-annotation 322}# #{exp 3643}#)
+ #{mod 3645}#))))
+ #{tmp 3634}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3619}#))))))))
- (#{global-extend 335}#
+ #{tmp 3633}#))))))))
+ (#{global-extend 340}#
'core
'if
- (lambda (#{e 3633}#
- #{r 3634}#
- #{w 3635}#
- #{s 3636}#
- #{mod 3637}#)
- (let ((#{tmp 3643}# #{e 3633}#))
- (let ((#{tmp 3644}#
- ($sc-dispatch #{tmp 3643}# '(_ any any))))
- (if #{tmp 3644}#
+ (lambda (#{e 3647}#
+ #{r 3648}#
+ #{w 3649}#
+ #{s 3650}#
+ #{mod 3651}#)
+ (let ((#{tmp 3657}# #{e 3647}#))
+ (let ((#{tmp 3658}#
+ ($sc-dispatch #{tmp 3657}# '(_ any any))))
+ (if #{tmp 3658}#
(@apply
- (lambda (#{test 3647}# #{then 3648}#)
- (#{build-conditional 267}#
- #{s 3636}#
- (#{chi 419}#
- #{test 3647}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{chi 419}#
- #{then 3648}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{build-void 263}# #f)))
- #{tmp 3644}#)
- (let ((#{tmp 3650}#
- ($sc-dispatch #{tmp 3643}# '(_ any any any))))
- (if #{tmp 3650}#
+ (lambda (#{test 3661}# #{then 3662}#)
+ (#{build-conditional 268}#
+ #{s 3650}#
+ (#{chi 432}#
+ #{test 3661}#
+ #{r 3648}#
+ #{w 3649}#
+ #{mod 3651}#)
+ (#{chi 432}#
+ #{then 3662}#
+ #{r 3648}#
+ #{w 3649}#
+ #{mod 3651}#)
+ (#{build-void 264}# #f)))
+ #{tmp 3658}#)
+ (let ((#{tmp 3664}#
+ ($sc-dispatch #{tmp 3657}# '(_ any any any))))
+ (if #{tmp 3664}#
(@apply
- (lambda (#{test 3654}# #{then 3655}# #{else 3656}#)
- (#{build-conditional 267}#
- #{s 3636}#
- (#{chi 419}#
- #{test 3654}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{chi 419}#
- #{then 3655}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{chi 419}#
- #{else 3656}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)))
- #{tmp 3650}#)
+ (lambda (#{test 3668}# #{then 3669}# #{else 3670}#)
+ (#{build-conditional 268}#
+ #{s 3650}#
+ (#{chi 432}#
+ #{test 3668}#
+ #{r 3648}#
+ #{w 3649}#
+ #{mod 3651}#)
+ (#{chi 432}#
+ #{then 3669}#
+ #{r 3648}#
+ #{w 3649}#
+ #{mod 3651}#)
+ (#{chi 432}#
+ #{else 3670}#
+ #{r 3648}#
+ #{w 3649}#
+ #{mod 3651}#)))
+ #{tmp 3664}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3643}#))))))))
- (#{global-extend 335}#
+ #{tmp 3657}#))))))))
+ (#{global-extend 340}#
'core
'with-fluids
- (lambda (#{e 3657}#
- #{r 3658}#
- #{w 3659}#
- #{s 3660}#
- #{mod 3661}#)
- (let ((#{tmp 3667}# #{e 3657}#))
- (let ((#{tmp 3668}#
+ (lambda (#{e 3671}#
+ #{r 3672}#
+ #{w 3673}#
+ #{s 3674}#
+ #{mod 3675}#)
+ (let ((#{tmp 3681}# #{e 3671}#))
+ (let ((#{tmp 3682}#
($sc-dispatch
- #{tmp 3667}#
+ #{tmp 3681}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 3668}#
+ (if #{tmp 3682}#
(@apply
- (lambda (#{fluid 3673}#
- #{val 3674}#
- #{b 3675}#
- #{b* 3676}#)
- (#{build-dynlet 269}#
- #{s 3660}#
- (map (lambda (#{x 3677}#)
- (#{chi 419}#
- #{x 3677}#
- #{r 3658}#
- #{w 3659}#
- #{mod 3661}#))
- #{fluid 3673}#)
- (map (lambda (#{x 3680}#)
- (#{chi 419}#
- #{x 3680}#
- #{r 3658}#
- #{w 3659}#
- #{mod 3661}#))
- #{val 3674}#)
- (#{chi-body 427}#
- (cons #{b 3675}# #{b* 3676}#)
- (#{source-wrap 407}#
- #{e 3657}#
- #{w 3659}#
- #{s 3660}#
- #{mod 3661}#)
- #{r 3658}#
- #{w 3659}#
- #{mod 3661}#)))
- #{tmp 3668}#)
+ (lambda (#{fluid 3687}#
+ #{val 3688}#
+ #{b 3689}#
+ #{b* 3690}#)
+ (#{build-dynlet 270}#
+ #{s 3674}#
+ (map (lambda (#{x 3691}#)
+ (#{chi 432}#
+ #{x 3691}#
+ #{r 3672}#
+ #{w 3673}#
+ #{mod 3675}#))
+ #{fluid 3687}#)
+ (map (lambda (#{x 3694}#)
+ (#{chi 432}#
+ #{x 3694}#
+ #{r 3672}#
+ #{w 3673}#
+ #{mod 3675}#))
+ #{val 3688}#)
+ (#{chi-body 440}#
+ (cons #{b 3689}# #{b* 3690}#)
+ (#{source-wrap 420}#
+ #{e 3671}#
+ #{w 3673}#
+ #{s 3674}#
+ #{mod 3675}#)
+ #{r 3672}#
+ #{w 3673}#
+ #{mod 3675}#)))
+ #{tmp 3682}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3667}#))))))
- (#{global-extend 335}# 'begin 'begin '())
- (#{global-extend 335}# 'define 'define '())
- (#{global-extend 335}#
+ #{tmp 3681}#))))))
+ (#{global-extend 340}# 'begin 'begin '())
+ (#{global-extend 340}# 'define 'define '())
+ (#{global-extend 340}#
'define-syntax
'define-syntax
'())
- (#{global-extend 335}# 'eval-when 'eval-when '())
- (#{global-extend 335}#
+ (#{global-extend 340}# 'eval-when 'eval-when '())
+ (#{global-extend 340}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 3685}#
- (lambda (#{pattern 3692}# #{keys 3693}#)
+ ((#{convert-pattern 3699}#
+ (lambda (#{pattern 3706}# #{keys 3707}#)
(letrec*
- ((#{cvt* 3697}#
- (lambda (#{p* 3702}# #{n 3703}# #{ids 3704}#)
- (if (not (pair? #{p* 3702}#))
- (#{cvt 3701}#
- #{p* 3702}#
- #{n 3703}#
- #{ids 3704}#)
+ ((#{cvt* 3711}#
+ (lambda (#{p* 3716}# #{n 3717}# #{ids 3718}#)
+ (if (not (pair? #{p* 3716}#))
+ (#{cvt 3715}#
+ #{p* 3716}#
+ #{n 3717}#
+ #{ids 3718}#)
(call-with-values
(lambda ()
- (#{cvt* 3697}#
- (cdr #{p* 3702}#)
- #{n 3703}#
- #{ids 3704}#))
- (lambda (#{y 3708}# #{ids 3709}#)
+ (#{cvt* 3711}#
+ (cdr #{p* 3716}#)
+ #{n 3717}#
+ #{ids 3718}#))
+ (lambda (#{y 3722}# #{ids 3723}#)
(call-with-values
(lambda ()
- (#{cvt 3701}#
- (car #{p* 3702}#)
- #{n 3703}#
- #{ids 3709}#))
- (lambda (#{x 3712}# #{ids 3713}#)
+ (#{cvt 3715}#
+ (car #{p* 3716}#)
+ #{n 3717}#
+ #{ids 3723}#))
+ (lambda (#{x 3726}# #{ids 3727}#)
(values
- (cons #{x 3712}# #{y 3708}#)
- #{ids 3713}#))))))))
- (#{v-reverse 3699}#
- (lambda (#{x 3716}#)
+ (cons #{x 3726}# #{y 3722}#)
+ #{ids 3727}#))))))))
+ (#{v-reverse 3713}#
+ (lambda (#{x 3730}#)
(letrec*
- ((#{loop 3721}#
- (lambda (#{r 3722}# #{x 3723}#)
- (if (not (pair? #{x 3723}#))
- (values #{r 3722}# #{x 3723}#)
- (#{loop 3721}#
- (cons (car #{x 3723}#) #{r 3722}#)
- (cdr #{x 3723}#))))))
- (begin (#{loop 3721}# '() #{x 3716}#)))))
- (#{cvt 3701}#
- (lambda (#{p 3724}# #{n 3725}# #{ids 3726}#)
- (if (#{id? 339}# #{p 3724}#)
- (if (#{bound-id-member? 403}#
- #{p 3724}#
- #{keys 3693}#)
+ ((#{loop 3735}#
+ (lambda (#{r 3736}# #{x 3737}#)
+ (if (not (pair? #{x 3737}#))
+ (values #{r 3736}# #{x 3737}#)
+ (#{loop 3735}#
+ (cons (car #{x 3737}#) #{r 3736}#)
+ (cdr #{x 3737}#))))))
+ (begin (#{loop 3735}# '() #{x 3730}#)))))
+ (#{cvt 3715}#
+ (lambda (#{p 3738}# #{n 3739}# #{ids 3740}#)
+ (if (#{id? 344}# #{p 3738}#)
+ (if (#{bound-id-member? 416}#
+ #{p 3738}#
+ #{keys 3707}#)
(values
- (vector 'free-id #{p 3724}#)
- #{ids 3726}#)
- (if (#{free-id=? 395}#
- #{p 3724}#
+ (vector 'free-id #{p 3738}#)
+ #{ids 3740}#)
+ (if (#{free-id=? 408}#
+ #{p 3738}#
'#(syntax-object
_
((top)
@@ -11519,22 +11519,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3727" "i3728" "i3729"))
+ #("i3741" "i3742" "i3743"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3700" "i3698" "i3696"))
+ ("i3714" "i3712" "i3710"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3694" "i3695"))
+ #("i3708" "i3709"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3690" "i3688" "i3686" "i3684"))
+ ("i3704" "i3702" "i3700" "i3698"))
#(ribcage
(lambda-var-list
gen-var
@@ -11808,81 +11808,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -11892,31 +11893,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -11951,328 +11951,328 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile)))
- (values '_ #{ids 3726}#)
+ (values '_ #{ids 3740}#)
(values
'any
- (cons (cons #{p 3724}# #{n 3725}#)
- #{ids 3726}#))))
- (let ((#{tmp 3735}# #{p 3724}#))
- (let ((#{tmp 3736}#
- ($sc-dispatch #{tmp 3735}# '(any any))))
- (if (if #{tmp 3736}#
+ (cons (cons #{p 3738}# #{n 3739}#)
+ #{ids 3740}#))))
+ (let ((#{tmp 3749}# #{p 3738}#))
+ (let ((#{tmp 3750}#
+ ($sc-dispatch #{tmp 3749}# '(any any))))
+ (if (if #{tmp 3750}#
(@apply
- (lambda (#{x 3739}# #{dots 3740}#)
- (#{ellipsis? 435}# #{dots 3740}#))
- #{tmp 3736}#)
+ (lambda (#{x 3753}# #{dots 3754}#)
+ (#{ellipsis? 448}# #{dots 3754}#))
+ #{tmp 3750}#)
#f)
(@apply
- (lambda (#{x 3743}# #{dots 3744}#)
+ (lambda (#{x 3757}# #{dots 3758}#)
(call-with-values
(lambda ()
- (#{cvt 3701}#
- #{x 3743}#
- (#{1+}# #{n 3725}#)
- #{ids 3726}#))
- (lambda (#{p 3746}# #{ids 3747}#)
+ (#{cvt 3715}#
+ #{x 3757}#
+ (#{1+}# #{n 3739}#)
+ #{ids 3740}#))
+ (lambda (#{p 3760}# #{ids 3761}#)
(values
- (if (eq? #{p 3746}# 'any)
+ (if (eq? #{p 3760}# 'any)
'each-any
- (vector 'each #{p 3746}#))
- #{ids 3747}#))))
- #{tmp 3736}#)
- (let ((#{tmp 3750}#
+ (vector 'each #{p 3760}#))
+ #{ids 3761}#))))
+ #{tmp 3750}#)
+ (let ((#{tmp 3764}#
($sc-dispatch
- #{tmp 3735}#
+ #{tmp 3749}#
'(any any . any))))
- (if (if #{tmp 3750}#
+ (if (if #{tmp 3764}#
(@apply
- (lambda (#{x 3754}#
- #{dots 3755}#
- #{ys 3756}#)
- (#{ellipsis? 435}# #{dots 3755}#))
- #{tmp 3750}#)
+ (lambda (#{x 3768}#
+ #{dots 3769}#
+ #{ys 3770}#)
+ (#{ellipsis? 448}# #{dots 3769}#))
+ #{tmp 3764}#)
#f)
(@apply
- (lambda (#{x 3760}#
- #{dots 3761}#
- #{ys 3762}#)
+ (lambda (#{x 3774}#
+ #{dots 3775}#
+ #{ys 3776}#)
(call-with-values
(lambda ()
- (#{cvt* 3697}#
- #{ys 3762}#
- #{n 3725}#
- #{ids 3726}#))
- (lambda (#{ys 3763}# #{ids 3764}#)
+ (#{cvt* 3711}#
+ #{ys 3776}#
+ #{n 3739}#
+ #{ids 3740}#))
+ (lambda (#{ys 3777}# #{ids 3778}#)
(call-with-values
(lambda ()
- (#{cvt 3701}#
- #{x 3760}#
- (#{1+}# #{n 3725}#)
- #{ids 3764}#))
- (lambda (#{x 3767}# #{ids 3768}#)
+ (#{cvt 3715}#
+ #{x 3774}#
+ (#{1+}# #{n 3739}#)
+ #{ids 3778}#))
+ (lambda (#{x 3781}# #{ids 3782}#)
(call-with-values
(lambda ()
- (#{v-reverse 3699}#
- #{ys 3763}#))
- (lambda (#{ys 3771}#
- #{e 3772}#)
+ (#{v-reverse 3713}#
+ #{ys 3777}#))
+ (lambda (#{ys 3785}#
+ #{e 3786}#)
(values
(vector
'each+
- #{x 3767}#
- #{ys 3771}#
- #{e 3772}#)
- #{ids 3768}#))))))))
- #{tmp 3750}#)
- (let ((#{tmp 3776}#
+ #{x 3781}#
+ #{ys 3785}#
+ #{e 3786}#)
+ #{ids 3782}#))))))))
+ #{tmp 3764}#)
+ (let ((#{tmp 3790}#
($sc-dispatch
- #{tmp 3735}#
+ #{tmp 3749}#
'(any . any))))
- (if #{tmp 3776}#
+ (if #{tmp 3790}#
(@apply
- (lambda (#{x 3779}# #{y 3780}#)
+ (lambda (#{x 3793}# #{y 3794}#)
(call-with-values
(lambda ()
- (#{cvt 3701}#
- #{y 3780}#
- #{n 3725}#
- #{ids 3726}#))
- (lambda (#{y 3781}# #{ids 3782}#)
+ (#{cvt 3715}#
+ #{y 3794}#
+ #{n 3739}#
+ #{ids 3740}#))
+ (lambda (#{y 3795}# #{ids 3796}#)
(call-with-values
(lambda ()
- (#{cvt 3701}#
- #{x 3779}#
- #{n 3725}#
- #{ids 3782}#))
- (lambda (#{x 3785}#
- #{ids 3786}#)
+ (#{cvt 3715}#
+ #{x 3793}#
+ #{n 3739}#
+ #{ids 3796}#))
+ (lambda (#{x 3799}#
+ #{ids 3800}#)
(values
- (cons #{x 3785}#
- #{y 3781}#)
- #{ids 3786}#))))))
- #{tmp 3776}#)
- (let ((#{tmp 3789}#
- ($sc-dispatch #{tmp 3735}# '())))
- (if #{tmp 3789}#
+ (cons #{x 3799}#
+ #{y 3795}#)
+ #{ids 3800}#))))))
+ #{tmp 3790}#)
+ (let ((#{tmp 3803}#
+ ($sc-dispatch #{tmp 3749}# '())))
+ (if #{tmp 3803}#
(@apply
(lambda ()
- (values '() #{ids 3726}#))
- #{tmp 3789}#)
- (let ((#{tmp 3790}#
+ (values '() #{ids 3740}#))
+ #{tmp 3803}#)
+ (let ((#{tmp 3804}#
($sc-dispatch
- #{tmp 3735}#
+ #{tmp 3749}#
'#(vector each-any))))
- (if #{tmp 3790}#
+ (if #{tmp 3804}#
(@apply
- (lambda (#{x 3792}#)
+ (lambda (#{x 3806}#)
(call-with-values
(lambda ()
- (#{cvt 3701}#
- #{x 3792}#
- #{n 3725}#
- #{ids 3726}#))
- (lambda (#{p 3794}#
- #{ids 3795}#)
+ (#{cvt 3715}#
+ #{x 3806}#
+ #{n 3739}#
+ #{ids 3740}#))
+ (lambda (#{p 3808}#
+ #{ids 3809}#)
(values
(vector
'vector
- #{p 3794}#)
- #{ids 3795}#))))
- #{tmp 3790}#)
- (let ((#{x 3799}# #{tmp 3735}#))
+ #{p 3808}#)
+ #{ids 3809}#))))
+ #{tmp 3804}#)
+ (let ((#{x 3813}# #{tmp 3749}#))
(values
(vector
'atom
- (#{strip 445}#
- #{p 3724}#
+ (#{strip 458}#
+ #{p 3738}#
'(())))
- #{ids 3726}#)))))))))))))))))
- (begin (#{cvt 3701}# #{pattern 3692}# 0 '())))))
- (#{build-dispatch-call 3687}#
- (lambda (#{pvars 3801}#
- #{exp 3802}#
- #{y 3803}#
- #{r 3804}#
- #{mod 3805}#)
+ #{ids 3740}#)))))))))))))))))
+ (begin (#{cvt 3715}# #{pattern 3706}# 0 '())))))
+ (#{build-dispatch-call 3701}#
+ (lambda (#{pvars 3815}#
+ #{exp 3816}#
+ #{y 3817}#
+ #{r 3818}#
+ #{mod 3819}#)
(begin
- (map cdr #{pvars 3801}#)
- (let ((#{ids 3813}# (map car #{pvars 3801}#)))
+ (map cdr #{pvars 3815}#)
+ (let ((#{ids 3827}# (map car #{pvars 3815}#)))
(begin
- (let ((#{labels 3817}#
- (#{gen-labels 354}# #{ids 3813}#))
- (#{new-vars 3818}#
- (map #{gen-var 447}# #{ids 3813}#)))
- (#{build-application 265}#
+ (let ((#{labels 3831}#
+ (#{gen-labels 364}# #{ids 3827}#))
+ (#{new-vars 3832}#
+ (map #{gen-var 460}# #{ids 3827}#)))
+ (#{build-application 266}#
#f
- (#{build-primref 289}# #f 'apply)
- (list (#{build-simple-lambda 283}#
+ (#{build-primref 290}# #f 'apply)
+ (list (#{build-simple-lambda 284}#
#f
- (map syntax->datum #{ids 3813}#)
+ (map syntax->datum #{ids 3827}#)
#f
- #{new-vars 3818}#
+ #{new-vars 3832}#
'()
- (#{chi 419}#
- #{exp 3802}#
- (#{extend-env 327}#
- #{labels 3817}#
- (map (lambda (#{var 3822}# #{level 3823}#)
+ (#{chi 432}#
+ #{exp 3816}#
+ (#{extend-env 332}#
+ #{labels 3831}#
+ (map (lambda (#{var 3836}# #{level 3837}#)
(cons 'syntax
- (cons #{var 3822}#
- #{level 3823}#)))
- #{new-vars 3818}#
- (map cdr #{pvars 3801}#))
- #{r 3804}#)
- (#{make-binding-wrap 383}#
- #{ids 3813}#
- #{labels 3817}#
+ (cons #{var 3836}#
+ #{level 3837}#)))
+ #{new-vars 3832}#
+ (map cdr #{pvars 3815}#))
+ #{r 3818}#)
+ (#{make-binding-wrap 396}#
+ #{ids 3827}#
+ #{labels 3831}#
'(()))
- #{mod 3805}#))
- #{y 3803}#))))))))
- (#{gen-clause 3689}#
- (lambda (#{x 3829}#
- #{keys 3830}#
- #{clauses 3831}#
- #{r 3832}#
- #{pat 3833}#
- #{fender 3834}#
- #{exp 3835}#
- #{mod 3836}#)
+ #{mod 3819}#))
+ #{y 3817}#))))))))
+ (#{gen-clause 3703}#
+ (lambda (#{x 3843}#
+ #{keys 3844}#
+ #{clauses 3845}#
+ #{r 3846}#
+ #{pat 3847}#
+ #{fender 3848}#
+ #{exp 3849}#
+ #{mod 3850}#)
(call-with-values
(lambda ()
- (#{convert-pattern 3685}#
- #{pat 3833}#
- #{keys 3830}#))
- (lambda (#{p 3845}# #{pvars 3846}#)
- (if (not (#{distinct-bound-ids? 401}#
- (map car #{pvars 3846}#)))
+ (#{convert-pattern 3699}#
+ #{pat 3847}#
+ #{keys 3844}#))
+ (lambda (#{p 3859}# #{pvars 3860}#)
+ (if (not (#{distinct-bound-ids? 414}#
+ (map car #{pvars 3860}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 3833}#)
+ #{pat 3847}#)
(if (not (and-map
- (lambda (#{x 3853}#)
- (not (#{ellipsis? 435}# (car #{x 3853}#))))
- #{pvars 3846}#))
+ (lambda (#{x 3867}#)
+ (not (#{ellipsis? 448}# (car #{x 3867}#))))
+ #{pvars 3860}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 3833}#)
+ #{pat 3847}#)
(begin
- (let ((#{y 3857}# (#{gen-var 447}# 'tmp)))
- (#{build-application 265}#
+ (let ((#{y 3871}# (#{gen-var 460}# 'tmp)))
+ (#{build-application 266}#
#f
- (#{build-simple-lambda 283}#
+ (#{build-simple-lambda 284}#
#f
(list 'tmp)
#f
- (list #{y 3857}#)
+ (list #{y 3871}#)
'()
(begin
- (let ((#{y 3861}#
- (#{build-lexical-reference 271}#
+ (let ((#{y 3875}#
+ (#{build-lexical-reference 272}#
'value
#f
'tmp
- #{y 3857}#)))
- (#{build-conditional 267}#
+ #{y 3871}#)))
+ (#{build-conditional 268}#
#f
- (let ((#{tmp 3864}# #{fender 3834}#))
- (let ((#{tmp 3865}#
+ (let ((#{tmp 3878}# #{fender 3848}#))
+ (let ((#{tmp 3879}#
($sc-dispatch
- #{tmp 3864}#
+ #{tmp 3878}#
'#(atom #t))))
- (if #{tmp 3865}#
+ (if #{tmp 3879}#
(@apply
- (lambda () #{y 3861}#)
- #{tmp 3865}#)
- (let ((#{_ 3867}# #{tmp 3864}#))
- (#{build-conditional 267}#
+ (lambda () #{y 3875}#)
+ #{tmp 3879}#)
+ (let ((#{_ 3881}# #{tmp 3878}#))
+ (#{build-conditional 268}#
#f
- #{y 3861}#
- (#{build-dispatch-call 3687}#
- #{pvars 3846}#
- #{fender 3834}#
- #{y 3861}#
- #{r 3832}#
- #{mod 3836}#)
- (#{build-data 291}# #f #f))))))
- (#{build-dispatch-call 3687}#
- #{pvars 3846}#
- #{exp 3835}#
- #{y 3861}#
- #{r 3832}#
- #{mod 3836}#)
- (#{gen-syntax-case 3691}#
- #{x 3829}#
- #{keys 3830}#
- #{clauses 3831}#
- #{r 3832}#
- #{mod 3836}#)))))
- (list (if (eq? #{p 3845}# 'any)
- (#{build-application 265}#
+ #{y 3875}#
+ (#{build-dispatch-call 3701}#
+ #{pvars 3860}#
+ #{fender 3848}#
+ #{y 3875}#
+ #{r 3846}#
+ #{mod 3850}#)
+ (#{build-data 292}# #f #f))))))
+ (#{build-dispatch-call 3701}#
+ #{pvars 3860}#
+ #{exp 3849}#
+ #{y 3875}#
+ #{r 3846}#
+ #{mod 3850}#)
+ (#{gen-syntax-case 3705}#
+ #{x 3843}#
+ #{keys 3844}#
+ #{clauses 3845}#
+ #{r 3846}#
+ #{mod 3850}#)))))
+ (list (if (eq? #{p 3859}# 'any)
+ (#{build-application 266}#
#f
- (#{build-primref 289}# #f 'list)
- (list #{x 3829}#))
- (#{build-application 265}#
+ (#{build-primref 290}# #f 'list)
+ (list #{x 3843}#))
+ (#{build-application 266}#
#f
- (#{build-primref 289}# #f '$sc-dispatch)
- (list #{x 3829}#
- (#{build-data 291}#
+ (#{build-primref 290}# #f '$sc-dispatch)
+ (list #{x 3843}#
+ (#{build-data 292}#
#f
- #{p 3845}#))))))))))))))
- (#{gen-syntax-case 3691}#
- (lambda (#{x 3875}#
- #{keys 3876}#
- #{clauses 3877}#
- #{r 3878}#
- #{mod 3879}#)
- (if (null? #{clauses 3877}#)
- (#{build-application 265}#
+ #{p 3859}#))))))))))))))
+ (#{gen-syntax-case 3705}#
+ (lambda (#{x 3889}#
+ #{keys 3890}#
+ #{clauses 3891}#
+ #{r 3892}#
+ #{mod 3893}#)
+ (if (null? #{clauses 3891}#)
+ (#{build-application 266}#
#f
- (#{build-primref 289}# #f 'syntax-violation)
- (list (#{build-data 291}# #f #f)
- (#{build-data 291}#
+ (#{build-primref 290}# #f 'syntax-violation)
+ (list (#{build-data 292}# #f #f)
+ (#{build-data 292}#
#f
"source expression failed to match any pattern")
- #{x 3875}#))
- (let ((#{tmp 3889}# (car #{clauses 3877}#)))
- (let ((#{tmp 3890}#
- ($sc-dispatch #{tmp 3889}# '(any any))))
- (if #{tmp 3890}#
+ #{x 3889}#))
+ (let ((#{tmp 3903}# (car #{clauses 3891}#)))
+ (let ((#{tmp 3904}#
+ ($sc-dispatch #{tmp 3903}# '(any any))))
+ (if #{tmp 3904}#
(@apply
- (lambda (#{pat 3893}# #{exp 3894}#)
- (if (if (#{id? 339}# #{pat 3893}#)
+ (lambda (#{pat 3907}# #{exp 3908}#)
+ (if (if (#{id? 344}# #{pat 3907}#)
(and-map
- (lambda (#{x 3897}#)
- (not (#{free-id=? 395}#
- #{pat 3893}#
- #{x 3897}#)))
+ (lambda (#{x 3911}#)
+ (not (#{free-id=? 408}#
+ #{pat 3907}#
+ #{x 3911}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3891" "i3892"))
+ #("i3905" "i3906"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
+ #("i3894"
+ "i3895"
+ "i3896"
+ "i3897"
+ "i3898"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3690"
- "i3688"
- "i3686"
- "i3684"))
+ ("i3704"
+ "i3702"
+ "i3700"
+ "i3698"))
#(ribcage
(lambda-var-list
gen-var
@@ -12546,81 +12546,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -12630,31 +12631,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -12689,32 +12689,32 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile))
- #{keys 3876}#))
+ #{keys 3890}#))
#f)
- (if (#{free-id=? 395}#
+ (if (#{free-id=? 408}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3891" "i3892"))
+ #("i3905" "i3906"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
+ #("i3894"
+ "i3895"
+ "i3896"
+ "i3897"
+ "i3898"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3690" "i3688" "i3686" "i3684"))
+ ("i3704" "i3702" "i3700" "i3698"))
#(ribcage
(lambda-var-list
gen-var
@@ -12988,81 +12988,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -13072,31 +13073,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -13137,23 +13137,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3891" "i3892"))
+ #("i3905" "i3906"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
+ #("i3894"
+ "i3895"
+ "i3896"
+ "i3897"
+ "i3898"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3690" "i3688" "i3686" "i3684"))
+ ("i3704" "i3702" "i3700" "i3698"))
#(ribcage
(lambda-var-list
gen-var
@@ -13427,81 +13427,82 @@
(top)
(top)
(top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
+ ("i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i397"
+ "i395"
+ "i393"
"i392"
"i390"
- "i388"
+ "i387"
"i386"
- "i384"
+ "i385"
+ "i383"
"i382"
"i380"
- "i379"
"i378"
"i376"
- "i375"
"i374"
- "i373"
"i372"
"i370"
"i368"
"i366"
- "i364"
- "i362"
+ "i363"
+ "i361"
"i360"
"i358"
"i356"
- "i353"
+ "i354"
+ "i352"
"i351"
"i350"
"i349"
- "i348"
"i347"
"i346"
- "i345"
- "i344"
"i343"
"i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
+ "i339"
+ "i337"
+ "i335"
+ "i333"
+ "i331"
"i330"
- "i328"
- "i326"
+ "i329"
+ "i327"
"i325"
"i324"
- "i323"
- "i322"
"i321"
- "i319"
+ "i320"
"i318"
"i316"
"i314"
@@ -13511,31 +13512,30 @@
"i306"
"i304"
"i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i259"
+ "i257"
+ "i255"
"i254"
- "i253"
"i251"
"i249"
"i248"
@@ -13570,565 +13570,565 @@
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile)))
- (#{chi 419}#
- #{exp 3894}#
- #{r 3878}#
+ (#{chi 432}#
+ #{exp 3908}#
+ #{r 3892}#
'(())
- #{mod 3879}#)
+ #{mod 3893}#)
(begin
- (let ((#{labels 3902}#
- (list (#{gen-label 352}#)))
- (#{var 3903}#
- (#{gen-var 447}# #{pat 3893}#)))
- (#{build-application 265}#
+ (let ((#{labels 3916}#
+ (list (#{gen-label 362}#)))
+ (#{var 3917}#
+ (#{gen-var 460}# #{pat 3907}#)))
+ (#{build-application 266}#
#f
- (#{build-simple-lambda 283}#
+ (#{build-simple-lambda 284}#
#f
- (list (syntax->datum #{pat 3893}#))
+ (list (syntax->datum #{pat 3907}#))
#f
- (list #{var 3903}#)
+ (list #{var 3917}#)
'()
- (#{chi 419}#
- #{exp 3894}#
- (#{extend-env 327}#
- #{labels 3902}#
+ (#{chi 432}#
+ #{exp 3908}#
+ (#{extend-env 332}#
+ #{labels 3916}#
(list (cons 'syntax
- (cons #{var 3903}# 0)))
- #{r 3878}#)
- (#{make-binding-wrap 383}#
- (list #{pat 3893}#)
- #{labels 3902}#
+ (cons #{var 3917}# 0)))
+ #{r 3892}#)
+ (#{make-binding-wrap 396}#
+ (list #{pat 3907}#)
+ #{labels 3916}#
'(()))
- #{mod 3879}#))
- (list #{x 3875}#)))))
- (#{gen-clause 3689}#
- #{x 3875}#
- #{keys 3876}#
- (cdr #{clauses 3877}#)
- #{r 3878}#
- #{pat 3893}#
+ #{mod 3893}#))
+ (list #{x 3889}#)))))
+ (#{gen-clause 3703}#
+ #{x 3889}#
+ #{keys 3890}#
+ (cdr #{clauses 3891}#)
+ #{r 3892}#
+ #{pat 3907}#
#t
- #{exp 3894}#
- #{mod 3879}#)))
- #{tmp 3890}#)
- (let ((#{tmp 3909}#
- ($sc-dispatch #{tmp 3889}# '(any any any))))
- (if #{tmp 3909}#
+ #{exp 3908}#
+ #{mod 3893}#)))
+ #{tmp 3904}#)
+ (let ((#{tmp 3923}#
+ ($sc-dispatch #{tmp 3903}# '(any any any))))
+ (if #{tmp 3923}#
(@apply
- (lambda (#{pat 3913}#
- #{fender 3914}#
- #{exp 3915}#)
- (#{gen-clause 3689}#
- #{x 3875}#
- #{keys 3876}#
- (cdr #{clauses 3877}#)
- #{r 3878}#
- #{pat 3913}#
- #{fender 3914}#
- #{exp 3915}#
- #{mod 3879}#))
- #{tmp 3909}#)
- (let ((#{_ 3917}# #{tmp 3889}#))
+ (lambda (#{pat 3927}#
+ #{fender 3928}#
+ #{exp 3929}#)
+ (#{gen-clause 3703}#
+ #{x 3889}#
+ #{keys 3890}#
+ (cdr #{clauses 3891}#)
+ #{r 3892}#
+ #{pat 3927}#
+ #{fender 3928}#
+ #{exp 3929}#
+ #{mod 3893}#))
+ #{tmp 3923}#)
+ (let ((#{_ 3931}# #{tmp 3903}#))
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 3877}#))))))))))))
+ (car #{clauses 3891}#))))))))))))
(begin
- (lambda (#{e 3918}#
- #{r 3919}#
- #{w 3920}#
- #{s 3921}#
- #{mod 3922}#)
+ (lambda (#{e 3932}#
+ #{r 3933}#
+ #{w 3934}#
+ #{s 3935}#
+ #{mod 3936}#)
(begin
- (let ((#{e 3929}#
- (#{source-wrap 407}#
- #{e 3918}#
- #{w 3920}#
- #{s 3921}#
- #{mod 3922}#)))
- (let ((#{tmp 3930}# #{e 3929}#))
- (let ((#{tmp 3931}#
+ (let ((#{e 3943}#
+ (#{source-wrap 420}#
+ #{e 3932}#
+ #{w 3934}#
+ #{s 3935}#
+ #{mod 3936}#)))
+ (let ((#{tmp 3944}# #{e 3943}#))
+ (let ((#{tmp 3945}#
($sc-dispatch
- #{tmp 3930}#
+ #{tmp 3944}#
'(_ any each-any . each-any))))
- (if #{tmp 3931}#
+ (if #{tmp 3945}#
(@apply
- (lambda (#{val 3935}# #{key 3936}# #{m 3937}#)
+ (lambda (#{val 3949}# #{key 3950}# #{m 3951}#)
(if (and-map
- (lambda (#{x 3938}#)
- (if (#{id? 339}# #{x 3938}#)
- (not (#{ellipsis? 435}# #{x 3938}#))
+ (lambda (#{x 3952}#)
+ (if (#{id? 344}# #{x 3952}#)
+ (not (#{ellipsis? 448}# #{x 3952}#))
#f))
- #{key 3936}#)
+ #{key 3950}#)
(begin
- (let ((#{x 3944}# (#{gen-var 447}# 'tmp)))
- (#{build-application 265}#
- #{s 3921}#
- (#{build-simple-lambda 283}#
+ (let ((#{x 3958}# (#{gen-var 460}# 'tmp)))
+ (#{build-application 266}#
+ #{s 3935}#
+ (#{build-simple-lambda 284}#
#f
(list 'tmp)
#f
- (list #{x 3944}#)
+ (list #{x 3958}#)
'()
- (#{gen-syntax-case 3691}#
- (#{build-lexical-reference 271}#
+ (#{gen-syntax-case 3705}#
+ (#{build-lexical-reference 272}#
'value
#f
'tmp
- #{x 3944}#)
- #{key 3936}#
- #{m 3937}#
- #{r 3919}#
- #{mod 3922}#))
- (list (#{chi 419}#
- #{val 3935}#
- #{r 3919}#
+ #{x 3958}#)
+ #{key 3950}#
+ #{m 3951}#
+ #{r 3933}#
+ #{mod 3936}#))
+ (list (#{chi 432}#
+ #{val 3949}#
+ #{r 3933}#
'(())
- #{mod 3922}#)))))
+ #{mod 3936}#)))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 3929}#)))
- #{tmp 3931}#)
+ #{e 3943}#)))
+ #{tmp 3945}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 3930}#))))))))))
+ #{tmp 3944}#))))))))))
(set! macroexpand
(lambda*
- (#{x 3950}#
+ (#{x 3964}#
#:optional
- (#{m 3952}# 'e)
- (#{esew 3954}# '(eval)))
- (#{chi-top-sequence 411}#
- (list #{x 3950}#)
+ (#{m 3966}# 'e)
+ (#{esew 3968}# '(eval)))
+ (#{chi-top-sequence 424}#
+ (list #{x 3964}#)
'()
'((top))
#f
- #{m 3952}#
- #{esew 3954}#
+ #{m 3966}#
+ #{esew 3968}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 3958}#)
- (#{nonsymbol-id? 337}# #{x 3958}#)))
+ (lambda (#{x 3972}#)
+ (#{nonsymbol-id? 342}# #{x 3972}#)))
(set! datum->syntax
- (lambda (#{id 3960}# #{datum 3961}#)
- (#{make-syntax-object 303}#
- #{datum 3961}#
- (#{syntax-object-wrap 309}# #{id 3960}#)
- (#{syntax-object-module 311}# #{id 3960}#))))
+ (lambda (#{id 3974}# #{datum 3975}#)
+ (#{make-syntax-object 305}#
+ #{datum 3975}#
+ (#{syntax-object-wrap 311}# #{id 3974}#)
+ (#{syntax-object-module 313}# #{id 3974}#))))
(set! syntax->datum
- (lambda (#{x 3964}#)
- (#{strip 445}# #{x 3964}# '(()))))
+ (lambda (#{x 3978}#)
+ (#{strip 458}# #{x 3978}# '(()))))
(set! syntax-source
- (lambda (#{x 3967}#)
- (#{source-annotation 320}# #{x 3967}#)))
+ (lambda (#{x 3981}#)
+ (#{source-annotation 322}# #{x 3981}#)))
(set! generate-temporaries
- (lambda (#{ls 3969}#)
+ (lambda (#{ls 3983}#)
(begin
(begin
- (let ((#{x 3973}# #{ls 3969}#))
- (if (not (list? #{x 3973}#))
+ (let ((#{x 3987}# #{ls 3983}#))
+ (if (not (list? #{x 3987}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x 3973}#))))
+ #{x 3987}#))))
(begin
- (let ((#{mod 3975}#
+ (let ((#{mod 3989}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3976}#)
- (#{wrap 405}# (gensym) '((top)) #{mod 3975}#))
- #{ls 3969}#))))))
+ (map (lambda (#{x 3990}#)
+ (#{wrap 418}# (gensym) '((top)) #{mod 3989}#))
+ #{ls 3983}#))))))
(set! free-identifier=?
- (lambda (#{x 3980}# #{y 3981}#)
+ (lambda (#{x 3994}# #{y 3995}#)
(begin
(begin
- (let ((#{x 3986}# #{x 3980}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3986}#))
+ (let ((#{x 4000}# #{x 3994}#))
+ (if (not (#{nonsymbol-id? 342}# #{x 4000}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 3986}#))))
+ #{x 4000}#))))
(begin
- (let ((#{x 3989}# #{y 3981}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3989}#))
+ (let ((#{x 4003}# #{y 3995}#))
+ (if (not (#{nonsymbol-id? 342}# #{x 4003}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 3989}#))))
- (#{free-id=? 395}# #{x 3980}# #{y 3981}#))))
+ #{x 4003}#))))
+ (#{free-id=? 408}# #{x 3994}# #{y 3995}#))))
(set! bound-identifier=?
- (lambda (#{x 3990}# #{y 3991}#)
+ (lambda (#{x 4004}# #{y 4005}#)
(begin
(begin
- (let ((#{x 3996}# #{x 3990}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3996}#))
+ (let ((#{x 4010}# #{x 4004}#))
+ (if (not (#{nonsymbol-id? 342}# #{x 4010}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 3996}#))))
+ #{x 4010}#))))
(begin
- (let ((#{x 3999}# #{y 3991}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3999}#))
+ (let ((#{x 4013}# #{y 4005}#))
+ (if (not (#{nonsymbol-id? 342}# #{x 4013}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 3999}#))))
- (#{bound-id=? 397}# #{x 3990}# #{y 3991}#))))
+ #{x 4013}#))))
+ (#{bound-id=? 410}# #{x 4004}# #{y 4005}#))))
(set! syntax-violation
(lambda*
- (#{who 4000}#
- #{message 4001}#
- #{form 4002}#
+ (#{who 4014}#
+ #{message 4015}#
+ #{form 4016}#
#:optional
- (#{subform 4006}# #f))
+ (#{subform 4020}# #f))
(begin
(begin
- (let ((#{x 4010}# #{who 4000}#))
- (if (not (let ((#{x 4011}# #{x 4010}#))
+ (let ((#{x 4024}# #{who 4014}#))
+ (if (not (let ((#{x 4025}# #{x 4024}#))
(begin
- (let ((#{t 4015}# (not #{x 4011}#)))
- (if #{t 4015}#
- #{t 4015}#
+ (let ((#{t 4029}# (not #{x 4025}#)))
+ (if #{t 4029}#
+ #{t 4029}#
(begin
- (let ((#{t 4018}# (string? #{x 4011}#)))
- (if #{t 4018}#
- #{t 4018}#
- (symbol? #{x 4011}#)))))))))
+ (let ((#{t 4032}# (string? #{x 4025}#)))
+ (if #{t 4032}#
+ #{t 4032}#
+ (symbol? #{x 4025}#)))))))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x 4010}#))))
+ #{x 4024}#))))
(begin
- (let ((#{x 4022}# #{message 4001}#))
- (if (not (string? #{x 4022}#))
+ (let ((#{x 4036}# #{message 4015}#))
+ (if (not (string? #{x 4036}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x 4022}#))))
+ #{x 4036}#))))
(throw 'syntax-error
- #{who 4000}#
- #{message 4001}#
- (#{source-annotation 320}#
+ #{who 4014}#
+ #{message 4015}#
+ (#{source-annotation 322}#
(begin
- (let ((#{t 4025}# #{form 4002}#))
- (if #{t 4025}# #{t 4025}# #{subform 4006}#))))
- (#{strip 445}# #{form 4002}# '(()))
- (if #{subform 4006}#
- (#{strip 445}# #{subform 4006}# '(()))
+ (let ((#{t 4039}# #{form 4016}#))
+ (if #{t 4039}# #{t 4039}# #{subform 4020}#))))
+ (#{strip 458}# #{form 4016}# '(()))
+ (if #{subform 4020}#
+ (#{strip 458}# #{subform 4020}# '(()))
#f)))))
(letrec*
- ((#{match-each 4032}#
- (lambda (#{e 4045}# #{p 4046}# #{w 4047}# #{mod 4048}#)
- (if (pair? #{e 4045}#)
+ ((#{match-each 4046}#
+ (lambda (#{e 4059}# #{p 4060}# #{w 4061}# #{mod 4062}#)
+ (if (pair? #{e 4059}#)
(begin
- (let ((#{first 4056}#
- (#{match 4044}#
- (car #{e 4045}#)
- #{p 4046}#
- #{w 4047}#
+ (let ((#{first 4070}#
+ (#{match 4058}#
+ (car #{e 4059}#)
+ #{p 4060}#
+ #{w 4061}#
'()
- #{mod 4048}#)))
- (if #{first 4056}#
+ #{mod 4062}#)))
+ (if #{first 4070}#
(begin
- (let ((#{rest 4060}#
- (#{match-each 4032}#
- (cdr #{e 4045}#)
- #{p 4046}#
- #{w 4047}#
- #{mod 4048}#)))
- (if #{rest 4060}#
- (cons #{first 4056}# #{rest 4060}#)
+ (let ((#{rest 4074}#
+ (#{match-each 4046}#
+ (cdr #{e 4059}#)
+ #{p 4060}#
+ #{w 4061}#
+ #{mod 4062}#)))
+ (if #{rest 4074}#
+ (cons #{first 4070}# #{rest 4074}#)
#f)))
#f)))
- (if (null? #{e 4045}#)
+ (if (null? #{e 4059}#)
'()
- (if (#{syntax-object? 305}# #{e 4045}#)
- (#{match-each 4032}#
- (#{syntax-object-expression 307}# #{e 4045}#)
- #{p 4046}#
- (#{join-wraps 387}#
- #{w 4047}#
- (#{syntax-object-wrap 309}# #{e 4045}#))
- (#{syntax-object-module 311}# #{e 4045}#))
+ (if (#{syntax-object? 307}# #{e 4059}#)
+ (#{match-each 4046}#
+ (#{syntax-object-expression 309}# #{e 4059}#)
+ #{p 4060}#
+ (#{join-wraps 400}#
+ #{w 4061}#
+ (#{syntax-object-wrap 311}# #{e 4059}#))
+ (#{syntax-object-module 313}# #{e 4059}#))
#f)))))
- (#{match-each+ 4034}#
- (lambda (#{e 4068}#
- #{x-pat 4069}#
- #{y-pat 4070}#
- #{z-pat 4071}#
- #{w 4072}#
- #{r 4073}#
- #{mod 4074}#)
+ (#{match-each+ 4048}#
+ (lambda (#{e 4082}#
+ #{x-pat 4083}#
+ #{y-pat 4084}#
+ #{z-pat 4085}#
+ #{w 4086}#
+ #{r 4087}#
+ #{mod 4088}#)
(letrec*
- ((#{f 4085}#
- (lambda (#{e 4086}# #{w 4087}#)
- (if (pair? #{e 4086}#)
+ ((#{f 4099}#
+ (lambda (#{e 4100}# #{w 4101}#)
+ (if (pair? #{e 4100}#)
(call-with-values
(lambda ()
- (#{f 4085}# (cdr #{e 4086}#) #{w 4087}#))
- (lambda (#{xr* 4090}# #{y-pat 4091}# #{r 4092}#)
- (if #{r 4092}#
- (if (null? #{y-pat 4091}#)
+ (#{f 4099}# (cdr #{e 4100}#) #{w 4101}#))
+ (lambda (#{xr* 4104}# #{y-pat 4105}# #{r 4106}#)
+ (if #{r 4106}#
+ (if (null? #{y-pat 4105}#)
(begin
- (let ((#{xr 4097}#
- (#{match 4044}#
- (car #{e 4086}#)
- #{x-pat 4069}#
- #{w 4087}#
+ (let ((#{xr 4111}#
+ (#{match 4058}#
+ (car #{e 4100}#)
+ #{x-pat 4083}#
+ #{w 4101}#
'()
- #{mod 4074}#)))
- (if #{xr 4097}#
+ #{mod 4088}#)))
+ (if #{xr 4111}#
(values
- (cons #{xr 4097}# #{xr* 4090}#)
- #{y-pat 4091}#
- #{r 4092}#)
+ (cons #{xr 4111}# #{xr* 4104}#)
+ #{y-pat 4105}#
+ #{r 4106}#)
(values #f #f #f))))
(values
'()
- (cdr #{y-pat 4091}#)
- (#{match 4044}#
- (car #{e 4086}#)
- (car #{y-pat 4091}#)
- #{w 4087}#
- #{r 4092}#
- #{mod 4074}#)))
+ (cdr #{y-pat 4105}#)
+ (#{match 4058}#
+ (car #{e 4100}#)
+ (car #{y-pat 4105}#)
+ #{w 4101}#
+ #{r 4106}#
+ #{mod 4088}#)))
(values #f #f #f))))
- (if (#{syntax-object? 305}# #{e 4086}#)
- (#{f 4085}#
- (#{syntax-object-expression 307}# #{e 4086}#)
- (#{join-wraps 387}# #{w 4087}# #{e 4086}#))
+ (if (#{syntax-object? 307}# #{e 4100}#)
+ (#{f 4099}#
+ (#{syntax-object-expression 309}# #{e 4100}#)
+ (#{join-wraps 400}# #{w 4101}# #{e 4100}#))
(values
'()
- #{y-pat 4070}#
- (#{match 4044}#
- #{e 4086}#
- #{z-pat 4071}#
- #{w 4087}#
- #{r 4073}#
- #{mod 4074}#)))))))
- (begin (#{f 4085}# #{e 4068}# #{w 4072}#)))))
- (#{match-each-any 4036}#
- (lambda (#{e 4101}# #{w 4102}# #{mod 4103}#)
- (if (pair? #{e 4101}#)
+ #{y-pat 4084}#
+ (#{match 4058}#
+ #{e 4100}#
+ #{z-pat 4085}#
+ #{w 4101}#
+ #{r 4087}#
+ #{mod 4088}#)))))))
+ (begin (#{f 4099}# #{e 4082}# #{w 4086}#)))))
+ (#{match-each-any 4050}#
+ (lambda (#{e 4115}# #{w 4116}# #{mod 4117}#)
+ (if (pair? #{e 4115}#)
(begin
- (let ((#{l 4110}#
- (#{match-each-any 4036}#
- (cdr #{e 4101}#)
- #{w 4102}#
- #{mod 4103}#)))
- (if #{l 4110}#
- (cons (#{wrap 405}#
- (car #{e 4101}#)
- #{w 4102}#
- #{mod 4103}#)
- #{l 4110}#)
+ (let ((#{l 4124}#
+ (#{match-each-any 4050}#
+ (cdr #{e 4115}#)
+ #{w 4116}#
+ #{mod 4117}#)))
+ (if #{l 4124}#
+ (cons (#{wrap 418}#
+ (car #{e 4115}#)
+ #{w 4116}#
+ #{mod 4117}#)
+ #{l 4124}#)
#f)))
- (if (null? #{e 4101}#)
+ (if (null? #{e 4115}#)
'()
- (if (#{syntax-object? 305}# #{e 4101}#)
- (#{match-each-any 4036}#
- (#{syntax-object-expression 307}# #{e 4101}#)
- (#{join-wraps 387}#
- #{w 4102}#
- (#{syntax-object-wrap 309}# #{e 4101}#))
- #{mod 4103}#)
+ (if (#{syntax-object? 307}# #{e 4115}#)
+ (#{match-each-any 4050}#
+ (#{syntax-object-expression 309}# #{e 4115}#)
+ (#{join-wraps 400}#
+ #{w 4116}#
+ (#{syntax-object-wrap 311}# #{e 4115}#))
+ #{mod 4117}#)
#f)))))
- (#{match-empty 4038}#
- (lambda (#{p 4118}# #{r 4119}#)
- (if (null? #{p 4118}#)
- #{r 4119}#
- (if (eq? #{p 4118}# '_)
- #{r 4119}#
- (if (eq? #{p 4118}# 'any)
- (cons '() #{r 4119}#)
- (if (pair? #{p 4118}#)
- (#{match-empty 4038}#
- (car #{p 4118}#)
- (#{match-empty 4038}#
- (cdr #{p 4118}#)
- #{r 4119}#))
- (if (eq? #{p 4118}# 'each-any)
- (cons '() #{r 4119}#)
+ (#{match-empty 4052}#
+ (lambda (#{p 4132}# #{r 4133}#)
+ (if (null? #{p 4132}#)
+ #{r 4133}#
+ (if (eq? #{p 4132}# '_)
+ #{r 4133}#
+ (if (eq? #{p 4132}# 'any)
+ (cons '() #{r 4133}#)
+ (if (pair? #{p 4132}#)
+ (#{match-empty 4052}#
+ (car #{p 4132}#)
+ (#{match-empty 4052}#
+ (cdr #{p 4132}#)
+ #{r 4133}#))
+ (if (eq? #{p 4132}# 'each-any)
+ (cons '() #{r 4133}#)
(begin
- (let ((#{atom-key 4135}# (vector-ref #{p 4118}# 0)))
- (if (eqv? #{atom-key 4135}# 'each)
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 1)
- #{r 4119}#)
- (if (eqv? #{atom-key 4135}# 'each+)
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 1)
- (#{match-empty 4038}#
- (reverse (vector-ref #{p 4118}# 2))
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 3)
- #{r 4119}#)))
- (if (if (eqv? #{atom-key 4135}# 'free-id)
+ (let ((#{atom-key 4149}# (vector-ref #{p 4132}# 0)))
+ (if (eqv? #{atom-key 4149}# 'each)
+ (#{match-empty 4052}#
+ (vector-ref #{p 4132}# 1)
+ #{r 4133}#)
+ (if (eqv? #{atom-key 4149}# 'each+)
+ (#{match-empty 4052}#
+ (vector-ref #{p 4132}# 1)
+ (#{match-empty 4052}#
+ (reverse (vector-ref #{p 4132}# 2))
+ (#{match-empty 4052}#
+ (vector-ref #{p 4132}# 3)
+ #{r 4133}#)))
+ (if (if (eqv? #{atom-key 4149}# 'free-id)
#t
- (eqv? #{atom-key 4135}# 'atom))
- #{r 4119}#
- (if (eqv? #{atom-key 4135}# 'vector)
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 1)
- #{r 4119}#))))))))))))))
- (#{combine 4040}#
- (lambda (#{r* 4140}# #{r 4141}#)
- (if (null? (car #{r* 4140}#))
- #{r 4141}#
- (cons (map car #{r* 4140}#)
- (#{combine 4040}#
- (map cdr #{r* 4140}#)
- #{r 4141}#)))))
- (#{match* 4042}#
- (lambda (#{e 4144}#
- #{p 4145}#
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#)
- (if (null? #{p 4145}#)
- (if (null? #{e 4144}#) #{r 4147}# #f)
- (if (pair? #{p 4145}#)
- (if (pair? #{e 4144}#)
- (#{match 4044}#
- (car #{e 4144}#)
- (car #{p 4145}#)
- #{w 4146}#
- (#{match 4044}#
- (cdr #{e 4144}#)
- (cdr #{p 4145}#)
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#)
- #{mod 4148}#)
+ (eqv? #{atom-key 4149}# 'atom))
+ #{r 4133}#
+ (if (eqv? #{atom-key 4149}# 'vector)
+ (#{match-empty 4052}#
+ (vector-ref #{p 4132}# 1)
+ #{r 4133}#))))))))))))))
+ (#{combine 4054}#
+ (lambda (#{r* 4154}# #{r 4155}#)
+ (if (null? (car #{r* 4154}#))
+ #{r 4155}#
+ (cons (map car #{r* 4154}#)
+ (#{combine 4054}#
+ (map cdr #{r* 4154}#)
+ #{r 4155}#)))))
+ (#{match* 4056}#
+ (lambda (#{e 4158}#
+ #{p 4159}#
+ #{w 4160}#
+ #{r 4161}#
+ #{mod 4162}#)
+ (if (null? #{p 4159}#)
+ (if (null? #{e 4158}#) #{r 4161}# #f)
+ (if (pair? #{p 4159}#)
+ (if (pair? #{e 4158}#)
+ (#{match 4058}#
+ (car #{e 4158}#)
+ (car #{p 4159}#)
+ #{w 4160}#
+ (#{match 4058}#
+ (cdr #{e 4158}#)
+ (cdr #{p 4159}#)
+ #{w 4160}#
+ #{r 4161}#
+ #{mod 4162}#)
+ #{mod 4162}#)
#f)
- (if (eq? #{p 4145}# 'each-any)
+ (if (eq? #{p 4159}# 'each-any)
(begin
- (let ((#{l 4165}#
- (#{match-each-any 4036}#
- #{e 4144}#
- #{w 4146}#
- #{mod 4148}#)))
- (if #{l 4165}# (cons #{l 4165}# #{r 4147}#) #f)))
+ (let ((#{l 4179}#
+ (#{match-each-any 4050}#
+ #{e 4158}#
+ #{w 4160}#
+ #{mod 4162}#)))
+ (if #{l 4179}# (cons #{l 4179}# #{r 4161}#) #f)))
(begin
- (let ((#{atom-key 4171}# (vector-ref #{p 4145}# 0)))
- (if (eqv? #{atom-key 4171}# 'each)
- (if (null? #{e 4144}#)
- (#{match-empty 4038}#
- (vector-ref #{p 4145}# 1)
- #{r 4147}#)
+ (let ((#{atom-key 4185}# (vector-ref #{p 4159}# 0)))
+ (if (eqv? #{atom-key 4185}# 'each)
+ (if (null? #{e 4158}#)
+ (#{match-empty 4052}#
+ (vector-ref #{p 4159}# 1)
+ #{r 4161}#)
(begin
- (let ((#{l 4174}#
- (#{match-each 4032}#
- #{e 4144}#
- (vector-ref #{p 4145}# 1)
- #{w 4146}#
- #{mod 4148}#)))
- (if #{l 4174}#
+ (let ((#{l 4188}#
+ (#{match-each 4046}#
+ #{e 4158}#
+ (vector-ref #{p 4159}# 1)
+ #{w 4160}#
+ #{mod 4162}#)))
+ (if #{l 4188}#
(letrec*
- ((#{collect 4179}#
- (lambda (#{l 4180}#)
- (if (null? (car #{l 4180}#))
- #{r 4147}#
- (cons (map car #{l 4180}#)
- (#{collect 4179}#
- (map cdr #{l 4180}#)))))))
- (begin (#{collect 4179}# #{l 4174}#)))
+ ((#{collect 4193}#
+ (lambda (#{l 4194}#)
+ (if (null? (car #{l 4194}#))
+ #{r 4161}#
+ (cons (map car #{l 4194}#)
+ (#{collect 4193}#
+ (map cdr #{l 4194}#)))))))
+ (begin (#{collect 4193}# #{l 4188}#)))
#f))))
- (if (eqv? #{atom-key 4171}# 'each+)
+ (if (eqv? #{atom-key 4185}# 'each+)
(call-with-values
(lambda ()
- (#{match-each+ 4034}#
- #{e 4144}#
- (vector-ref #{p 4145}# 1)
- (vector-ref #{p 4145}# 2)
- (vector-ref #{p 4145}# 3)
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#))
- (lambda (#{xr* 4182}# #{y-pat 4183}# #{r 4184}#)
- (if #{r 4184}#
- (if (null? #{y-pat 4183}#)
- (if (null? #{xr* 4182}#)
- (#{match-empty 4038}#
- (vector-ref #{p 4145}# 1)
- #{r 4184}#)
- (#{combine 4040}#
- #{xr* 4182}#
- #{r 4184}#))
+ (#{match-each+ 4048}#
+ #{e 4158}#
+ (vector-ref #{p 4159}# 1)
+ (vector-ref #{p 4159}# 2)
+ (vector-ref #{p 4159}# 3)
+ #{w 4160}#
+ #{r 4161}#
+ #{mod 4162}#))
+ (lambda (#{xr* 4196}# #{y-pat 4197}# #{r 4198}#)
+ (if #{r 4198}#
+ (if (null? #{y-pat 4197}#)
+ (if (null? #{xr* 4196}#)
+ (#{match-empty 4052}#
+ (vector-ref #{p 4159}# 1)
+ #{r 4198}#)
+ (#{combine 4054}#
+ #{xr* 4196}#
+ #{r 4198}#))
#f)
#f)))
- (if (eqv? #{atom-key 4171}# 'free-id)
- (if (#{id? 339}# #{e 4144}#)
- (if (#{free-id=? 395}#
- (#{wrap 405}#
- #{e 4144}#
- #{w 4146}#
- #{mod 4148}#)
- (vector-ref #{p 4145}# 1))
- #{r 4147}#
+ (if (eqv? #{atom-key 4185}# 'free-id)
+ (if (#{id? 344}# #{e 4158}#)
+ (if (#{free-id=? 408}#
+ (#{wrap 418}#
+ #{e 4158}#
+ #{w 4160}#
+ #{mod 4162}#)
+ (vector-ref #{p 4159}# 1))
+ #{r 4161}#
#f)
#f)
- (if (eqv? #{atom-key 4171}# 'atom)
+ (if (eqv? #{atom-key 4185}# 'atom)
(if (equal?
- (vector-ref #{p 4145}# 1)
- (#{strip 445}# #{e 4144}# #{w 4146}#))
- #{r 4147}#
+ (vector-ref #{p 4159}# 1)
+ (#{strip 458}# #{e 4158}# #{w 4160}#))
+ #{r 4161}#
#f)
- (if (eqv? #{atom-key 4171}# 'vector)
- (if (vector? #{e 4144}#)
- (#{match 4044}#
- (vector->list #{e 4144}#)
- (vector-ref #{p 4145}# 1)
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#)
+ (if (eqv? #{atom-key 4185}# 'vector)
+ (if (vector? #{e 4158}#)
+ (#{match 4058}#
+ (vector->list #{e 4158}#)
+ (vector-ref #{p 4159}# 1)
+ #{w 4160}#
+ #{r 4161}#
+ #{mod 4162}#)
#f)))))))))))))
- (#{match 4044}#
- (lambda (#{e 4201}#
- #{p 4202}#
- #{w 4203}#
- #{r 4204}#
- #{mod 4205}#)
- (if (not #{r 4204}#)
+ (#{match 4058}#
+ (lambda (#{e 4215}#
+ #{p 4216}#
+ #{w 4217}#
+ #{r 4218}#
+ #{mod 4219}#)
+ (if (not #{r 4218}#)
#f
- (if (eq? #{p 4202}# '_)
- #{r 4204}#
- (if (eq? #{p 4202}# 'any)
- (cons (#{wrap 405}# #{e 4201}# #{w 4203}# #{mod 4205}#)
- #{r 4204}#)
- (if (#{syntax-object? 305}# #{e 4201}#)
- (#{match* 4042}#
- (#{syntax-object-expression 307}# #{e 4201}#)
- #{p 4202}#
- (#{join-wraps 387}#
- #{w 4203}#
- (#{syntax-object-wrap 309}# #{e 4201}#))
- #{r 4204}#
- (#{syntax-object-module 311}# #{e 4201}#))
- (#{match* 4042}#
- #{e 4201}#
- #{p 4202}#
- #{w 4203}#
- #{r 4204}#
- #{mod 4205}#))))))))
+ (if (eq? #{p 4216}# '_)
+ #{r 4218}#
+ (if (eq? #{p 4216}# 'any)
+ (cons (#{wrap 418}# #{e 4215}# #{w 4217}# #{mod 4219}#)
+ #{r 4218}#)
+ (if (#{syntax-object? 307}# #{e 4215}#)
+ (#{match* 4056}#
+ (#{syntax-object-expression 309}# #{e 4215}#)
+ #{p 4216}#
+ (#{join-wraps 400}#
+ #{w 4217}#
+ (#{syntax-object-wrap 311}# #{e 4215}#))
+ #{r 4218}#
+ (#{syntax-object-module 313}# #{e 4215}#))
+ (#{match* 4056}#
+ #{e 4215}#
+ #{p 4216}#
+ #{w 4217}#
+ #{r 4218}#
+ #{mod 4219}#))))))))
(begin
(set! $sc-dispatch
- (lambda (#{e 4220}# #{p 4221}#)
- (if (eq? #{p 4221}# 'any)
- (list #{e 4220}#)
- (if (eq? #{p 4221}# '_)
+ (lambda (#{e 4234}# #{p 4235}#)
+ (if (eq? #{p 4235}# 'any)
+ (list #{e 4234}#)
+ (if (eq? #{p 4235}# '_)
'()
- (if (#{syntax-object? 305}# #{e 4220}#)
- (#{match* 4042}#
- (#{syntax-object-expression 307}# #{e 4220}#)
- #{p 4221}#
- (#{syntax-object-wrap 309}# #{e 4220}#)
+ (if (#{syntax-object? 307}# #{e 4234}#)
+ (#{match* 4056}#
+ (#{syntax-object-expression 309}# #{e 4234}#)
+ #{p 4235}#
+ (#{syntax-object-wrap 311}# #{e 4234}#)
'()
- (#{syntax-object-module 311}# #{e 4220}#))
- (#{match* 4042}#
- #{e 4220}#
- #{p 4221}#
+ (#{syntax-object-module 313}# #{e 4234}#))
+ (#{match* 4056}#
+ #{e 4234}#
+ #{p 4235}#
'(())
'()
#f)))))))))))
@@ -14137,82 +14137,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 4232}#)
- (let ((#{tmp 4234}# #{x 4232}#))
- (let ((#{tmp 4235}#
+ (lambda (#{x 4246}#)
+ (let ((#{tmp 4248}# #{x 4246}#))
+ (let ((#{tmp 4249}#
($sc-dispatch
- #{tmp 4234}#
+ #{tmp 4248}#
'(_ () any . each-any))))
- (if #{tmp 4235}#
+ (if #{tmp 4249}#
(@apply
- (lambda (#{e1 4238}# #{e2 4239}#)
+ (lambda (#{e1 4252}# #{e2 4253}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4236" "i4237"))
+ #("i4250" "i4251"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4233")))
+ #(ribcage #(x) #((top)) #("i4247")))
(hygiene guile))
- (cons '() (cons #{e1 4238}# #{e2 4239}#))))
- #{tmp 4235}#)
- (let ((#{tmp 4241}#
+ (cons '() (cons #{e1 4252}# #{e2 4253}#))))
+ #{tmp 4249}#)
+ (let ((#{tmp 4255}#
($sc-dispatch
- #{tmp 4234}#
+ #{tmp 4248}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 4241}#
+ (if #{tmp 4255}#
(@apply
- (lambda (#{out 4246}#
- #{in 4247}#
- #{e1 4248}#
- #{e2 4249}#)
+ (lambda (#{out 4260}#
+ #{in 4261}#
+ #{e1 4262}#
+ #{e2 4263}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4242" "i4243" "i4244" "i4245"))
+ #("i4256" "i4257" "i4258" "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4233")))
+ #(ribcage #(x) #((top)) #("i4247")))
(hygiene guile))
- #{in 4247}#
+ #{in 4261}#
'()
- (list #{out 4246}#
+ (list #{out 4260}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4242" "i4243" "i4244" "i4245"))
+ #("i4256" "i4257" "i4258" "i4259"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4233")))
+ #(ribcage #(x) #((top)) #("i4247")))
(hygiene guile))
(cons '()
- (cons #{e1 4248}# #{e2 4249}#))))))
- #{tmp 4241}#)
- (let ((#{tmp 4251}#
+ (cons #{e1 4262}# #{e2 4263}#))))))
+ #{tmp 4255}#)
+ (let ((#{tmp 4265}#
($sc-dispatch
- #{tmp 4234}#
+ #{tmp 4248}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 4251}#
+ (if #{tmp 4265}#
(@apply
- (lambda (#{out 4256}#
- #{in 4257}#
- #{e1 4258}#
- #{e2 4259}#)
+ (lambda (#{out 4270}#
+ #{in 4271}#
+ #{e1 4272}#
+ #{e2 4273}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4252" "i4253" "i4254" "i4255"))
+ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4233")))
+ #(ribcage #(x) #((top)) #("i4247")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -14220,63 +14220,63 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4252" "i4253" "i4254" "i4255"))
+ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4233")))
+ #(ribcage #(x) #((top)) #("i4247")))
(hygiene guile))
- #{in 4257}#)
+ #{in 4271}#)
'()
- (list #{out 4256}#
+ (list #{out 4270}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4252"
- "i4253"
- "i4254"
- "i4255"))
+ #("i4266"
+ "i4267"
+ "i4268"
+ "i4269"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4233")))
+ #("i4247")))
(hygiene guile))
(cons '()
- (cons #{e1 4258}#
- #{e2 4259}#))))))
- #{tmp 4251}#)
+ (cons #{e1 4272}#
+ #{e2 4273}#))))))
+ #{tmp 4265}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4234}#)))))))))))
+ #{tmp 4248}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 4263}#)
- (let ((#{tmp 4265}# #{x 4263}#))
- (let ((#{tmp 4266}#
+ (lambda (#{x 4277}#)
+ (let ((#{tmp 4279}# #{x 4277}#))
+ (let ((#{tmp 4280}#
($sc-dispatch
- #{tmp 4265}#
+ #{tmp 4279}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 4266}#
+ (if #{tmp 4280}#
(@apply
- (lambda (#{k 4271}#
- #{keyword 4272}#
- #{pattern 4273}#
- #{template 4274}#)
+ (lambda (#{k 4285}#
+ #{keyword 4286}#
+ #{pattern 4287}#
+ #{template 4288}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4267" "i4268" "i4269" "i4270"))
+ #("i4281" "i4282" "i4283" "i4284"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
'(#(syntax-object
x
@@ -14284,9 +14284,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4267" "i4268" "i4269" "i4270"))
+ #("i4281" "i4282" "i4283" "i4284"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -14295,9 +14295,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4267" "i4268" "i4269" "i4270"))
+ #("i4281" "i4282" "i4283" "i4284"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
.
#(syntax-object
@@ -14306,9 +14306,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4267" "i4268" "i4269" "i4270"))
+ #("i4281" "i4282" "i4283" "i4284"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14316,20 +14316,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4267" "i4268" "i4269" "i4270"))
+ #("i4281" "i4282" "i4283" "i4284"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
- #{pattern 4273}#))
+ #{pattern 4287}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4267" "i4268" "i4269" "i4270"))
+ #("i4281" "i4282" "i4283" "i4284"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14337,13 +14337,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4267" "i4268" "i4269" "i4270"))
+ #("i4281" "i4282" "i4283" "i4284"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
- (cons #{k 4271}#
- (map (lambda (#{tmp 4278}#
- #{tmp 4277}#)
+ (cons #{k 4285}#
+ (map (lambda (#{tmp 4292}#
+ #{tmp 4291}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14356,10 +14356,10 @@
(top)
(top)
(top))
- #("i4267"
- "i4268"
- "i4269"
- "i4270"))
+ #("i4281"
+ "i4282"
+ "i4283"
+ "i4284"))
#(ribcage
()
()
@@ -14367,9 +14367,9 @@
#(ribcage
#(x)
#((top))
- #("i4264")))
+ #("i4278")))
(hygiene guile))
- #{tmp 4277}#)
+ #{tmp 4291}#)
(list '#(syntax-object
syntax
((top)
@@ -14382,10 +14382,10 @@
(top)
(top)
(top))
- #("i4267"
- "i4268"
- "i4269"
- "i4270"))
+ #("i4281"
+ "i4282"
+ "i4283"
+ "i4284"))
#(ribcage
()
()
@@ -14393,41 +14393,41 @@
#(ribcage
#(x)
#((top))
- #("i4264")))
+ #("i4278")))
(hygiene guile))
- #{tmp 4278}#)))
- #{template 4274}#
- #{pattern 4273}#))))))
- #{tmp 4266}#)
- (let ((#{tmp 4279}#
+ #{tmp 4292}#)))
+ #{template 4288}#
+ #{pattern 4287}#))))))
+ #{tmp 4280}#)
+ (let ((#{tmp 4293}#
($sc-dispatch
- #{tmp 4265}#
+ #{tmp 4279}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 4279}#
+ (if (if #{tmp 4293}#
(@apply
- (lambda (#{k 4285}#
- #{docstring 4286}#
- #{keyword 4287}#
- #{pattern 4288}#
- #{template 4289}#)
- (string? (syntax->datum #{docstring 4286}#)))
- #{tmp 4279}#)
+ (lambda (#{k 4299}#
+ #{docstring 4300}#
+ #{keyword 4301}#
+ #{pattern 4302}#
+ #{template 4303}#)
+ (string? (syntax->datum #{docstring 4300}#)))
+ #{tmp 4293}#)
#f)
(@apply
- (lambda (#{k 4295}#
- #{docstring 4296}#
- #{keyword 4297}#
- #{pattern 4298}#
- #{template 4299}#)
+ (lambda (#{k 4309}#
+ #{docstring 4310}#
+ #{keyword 4311}#
+ #{pattern 4312}#
+ #{template 4313}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
+ #("i4304" "i4305" "i4306" "i4307" "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
'(#(syntax-object
x
@@ -14435,11 +14435,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
+ #("i4304" "i4305" "i4306" "i4307" "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile)))
- #{docstring 4296}#
+ #{docstring 4310}#
(vector
'(#(syntax-object
macro-type
@@ -14447,9 +14447,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
+ #("i4304" "i4305" "i4306" "i4307" "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
.
#(syntax-object
@@ -14458,9 +14458,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
+ #("i4304" "i4305" "i4306" "i4307" "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -14468,28 +14468,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4290"
- "i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4304"
+ "i4305"
+ "i4306"
+ "i4307"
+ "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
- #{pattern 4298}#))
+ #{pattern 4312}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4290"
- "i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4304"
+ "i4305"
+ "i4306"
+ "i4307"
+ "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -14501,17 +14501,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4290"
- "i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4304"
+ "i4305"
+ "i4306"
+ "i4307"
+ "i4308"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4264")))
+ #(ribcage #(x) #((top)) #("i4278")))
(hygiene guile))
- (cons #{k 4295}#
- (map (lambda (#{tmp 4303}#
- #{tmp 4302}#)
+ (cons #{k 4309}#
+ (map (lambda (#{tmp 4317}#
+ #{tmp 4316}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -14526,11 +14526,11 @@
(top)
(top)
(top))
- #("i4290"
- "i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4304"
+ "i4305"
+ "i4306"
+ "i4307"
+ "i4308"))
#(ribcage
()
()
@@ -14538,10 +14538,10 @@
#(ribcage
#(x)
#((top))
- #("i4264")))
+ #("i4278")))
(hygiene
guile))
- #{tmp 4302}#)
+ #{tmp 4316}#)
(list '#(syntax-object
syntax
((top)
@@ -14556,11 +14556,11 @@
(top)
(top)
(top))
- #("i4290"
- "i4291"
- "i4292"
- "i4293"
- "i4294"))
+ #("i4304"
+ "i4305"
+ "i4306"
+ "i4307"
+ "i4308"))
#(ribcage
()
()
@@ -14568,51 +14568,51 @@
#(ribcage
#(x)
#((top))
- #("i4264")))
+ #("i4278")))
(hygiene
guile))
- #{tmp 4303}#)))
- #{template 4299}#
- #{pattern 4298}#))))))
- #{tmp 4279}#)
+ #{tmp 4317}#)))
+ #{template 4313}#
+ #{pattern 4312}#))))))
+ #{tmp 4293}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4265}#)))))))))
+ #{tmp 4279}#)))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 4304}#)
- (let ((#{tmp 4306}# #{x 4304}#))
- (let ((#{tmp 4307}#
- ($sc-dispatch #{tmp 4306}# '(_ (any . any) any))))
- (if #{tmp 4307}#
+ (lambda (#{x 4318}#)
+ (let ((#{tmp 4320}# #{x 4318}#))
+ (let ((#{tmp 4321}#
+ ($sc-dispatch #{tmp 4320}# '(_ (any . any) any))))
+ (if #{tmp 4321}#
(@apply
- (lambda (#{name 4311}#
- #{pattern 4312}#
- #{template 4313}#)
+ (lambda (#{name 4325}#
+ #{pattern 4326}#
+ #{template 4327}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i4308" "i4309" "i4310"))
+ #("i4322" "i4323" "i4324"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4305")))
+ #(ribcage #(x) #((top)) #("i4319")))
(hygiene guile))
- #{name 4311}#
+ #{name 4325}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i4308" "i4309" "i4310"))
+ #("i4322" "i4323" "i4324"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4305")))
+ #(ribcage #(x) #((top)) #("i4319")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -14621,57 +14621,57 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i4308" "i4309" "i4310"))
+ #("i4322" "i4323" "i4324"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4305")))
+ #("i4319")))
(hygiene guile))
- #{pattern 4312}#)
- #{template 4313}#))))
- #{tmp 4307}#)
- (let ((#{tmp 4314}#
+ #{pattern 4326}#)
+ #{template 4327}#))))
+ #{tmp 4321}#)
+ (let ((#{tmp 4328}#
($sc-dispatch
- #{tmp 4306}#
+ #{tmp 4320}#
'(_ (any . any) any any))))
- (if (if #{tmp 4314}#
+ (if (if #{tmp 4328}#
(@apply
- (lambda (#{name 4319}#
- #{pattern 4320}#
- #{docstring 4321}#
- #{template 4322}#)
- (string? (syntax->datum #{docstring 4321}#)))
- #{tmp 4314}#)
+ (lambda (#{name 4333}#
+ #{pattern 4334}#
+ #{docstring 4335}#
+ #{template 4336}#)
+ (string? (syntax->datum #{docstring 4335}#)))
+ #{tmp 4328}#)
#f)
(@apply
- (lambda (#{name 4327}#
- #{pattern 4328}#
- #{docstring 4329}#
- #{template 4330}#)
+ (lambda (#{name 4341}#
+ #{pattern 4342}#
+ #{docstring 4343}#
+ #{template 4344}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i4323" "i4324" "i4325" "i4326"))
+ #("i4337" "i4338" "i4339" "i4340"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4305")))
+ #(ribcage #(x) #((top)) #("i4319")))
(hygiene guile))
- #{name 4327}#
+ #{name 4341}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i4323" "i4324" "i4325" "i4326"))
+ #("i4337" "i4338" "i4339" "i4340"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4305")))
+ #(ribcage #(x) #((top)) #("i4319")))
(hygiene guile))
'()
- #{docstring 4329}#
+ #{docstring 4343}#
(list (cons '#(syntax-object
_
((top)
@@ -14681,54 +14681,54 @@
docstring
template)
#((top) (top) (top) (top))
- #("i4323"
- "i4324"
- "i4325"
- "i4326"))
+ #("i4337"
+ "i4338"
+ "i4339"
+ "i4340"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4305")))
+ #("i4319")))
(hygiene guile))
- #{pattern 4328}#)
- #{template 4330}#))))
- #{tmp 4314}#)
+ #{pattern 4342}#)
+ #{template 4344}#))))
+ #{tmp 4328}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4306}#)))))))))
+ #{tmp 4320}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 4331}#)
- (let ((#{tmp 4333}# #{x 4331}#))
- (let ((#{tmp 4334}#
+ (lambda (#{x 4345}#)
+ (let ((#{tmp 4347}# #{x 4345}#))
+ (let ((#{tmp 4348}#
($sc-dispatch
- #{tmp 4333}#
+ #{tmp 4347}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 4334}#
+ (if (if #{tmp 4348}#
(@apply
- (lambda (#{let* 4340}#
- #{x 4341}#
- #{v 4342}#
- #{e1 4343}#
- #{e2 4344}#)
- (and-map identifier? #{x 4341}#))
- #{tmp 4334}#)
+ (lambda (#{let* 4354}#
+ #{x 4355}#
+ #{v 4356}#
+ #{e1 4357}#
+ #{e2 4358}#)
+ (and-map identifier? #{x 4355}#))
+ #{tmp 4348}#)
#f)
(@apply
- (lambda (#{let* 4351}#
- #{x 4352}#
- #{v 4353}#
- #{e1 4354}#
- #{e2 4355}#)
+ (lambda (#{let* 4365}#
+ #{x 4366}#
+ #{v 4367}#
+ #{e1 4368}#
+ #{e2 4369}#)
(letrec*
- ((#{f 4358}#
- (lambda (#{bindings 4359}#)
- (if (null? #{bindings 4359}#)
+ ((#{f 4372}#
+ (lambda (#{bindings 4373}#)
+ (if (null? #{bindings 4373}#)
(cons '#(syntax-object
let
((top)
@@ -14736,27 +14736,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i4356" "i4357"))
+ #("i4370" "i4371"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4346"
- "i4347"
- "i4348"
- "i4349"
- "i4350"))
+ #("i4360"
+ "i4361"
+ "i4362"
+ "i4363"
+ "i4364"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4332")))
+ #(ribcage #(x) #((top)) #("i4346")))
(hygiene guile))
- (cons '() (cons #{e1 4354}# #{e2 4355}#)))
- (let ((#{tmp 4364}#
- (list (#{f 4358}# (cdr #{bindings 4359}#))
- (car #{bindings 4359}#))))
- (let ((#{tmp 4365}#
- ($sc-dispatch #{tmp 4364}# '(any any))))
- (if #{tmp 4365}#
+ (cons '() (cons #{e1 4368}# #{e2 4369}#)))
+ (let ((#{tmp 4378}#
+ (list (#{f 4372}# (cdr #{bindings 4373}#))
+ (car #{bindings 4373}#))))
+ (let ((#{tmp 4379}#
+ ($sc-dispatch #{tmp 4378}# '(any any))))
+ (if #{tmp 4379}#
(@apply
- (lambda (#{body 4368}# #{binding 4369}#)
+ (lambda (#{body 4382}# #{binding 4383}#)
(list '#(syntax-object
let
((top)
@@ -14764,96 +14764,96 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i4366" "i4367"))
+ #("i4380" "i4381"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4356" "i4357"))
+ #("i4370" "i4371"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4346"
- "i4347"
- "i4348"
- "i4349"
- "i4350"))
+ #("i4360"
+ "i4361"
+ "i4362"
+ "i4363"
+ "i4364"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4332")))
+ #("i4346")))
(hygiene guile))
- (list #{binding 4369}#)
- #{body 4368}#))
- #{tmp 4365}#)
+ (list #{binding 4383}#)
+ #{body 4382}#))
+ #{tmp 4379}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4364}#))))))))
+ #{tmp 4378}#))))))))
(begin
- (#{f 4358}# (map list #{x 4352}# #{v 4353}#)))))
- #{tmp 4334}#)
+ (#{f 4372}# (map list #{x 4366}# #{v 4367}#)))))
+ #{tmp 4348}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4333}#)))))))
+ #{tmp 4347}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 4370}#)
- (let ((#{tmp 4372}# #{orig-x 4370}#))
- (let ((#{tmp 4373}#
+ (lambda (#{orig-x 4384}#)
+ (let ((#{tmp 4386}# #{orig-x 4384}#))
+ (let ((#{tmp 4387}#
($sc-dispatch
- #{tmp 4372}#
+ #{tmp 4386}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 4373}#
+ (if #{tmp 4387}#
(@apply
- (lambda (#{var 4380}#
- #{init 4381}#
- #{step 4382}#
- #{e0 4383}#
- #{e1 4384}#
- #{c 4385}#)
- (let ((#{tmp 4387}#
- (map (lambda (#{v 4408}# #{s 4409}#)
- (let ((#{tmp 4412}# #{s 4409}#))
- (let ((#{tmp 4413}#
- ($sc-dispatch #{tmp 4412}# '())))
- (if #{tmp 4413}#
+ (lambda (#{var 4394}#
+ #{init 4395}#
+ #{step 4396}#
+ #{e0 4397}#
+ #{e1 4398}#
+ #{c 4399}#)
+ (let ((#{tmp 4401}#
+ (map (lambda (#{v 4422}# #{s 4423}#)
+ (let ((#{tmp 4426}# #{s 4423}#))
+ (let ((#{tmp 4427}#
+ ($sc-dispatch #{tmp 4426}# '())))
+ (if #{tmp 4427}#
(@apply
- (lambda () #{v 4408}#)
- #{tmp 4413}#)
- (let ((#{tmp 4414}#
+ (lambda () #{v 4422}#)
+ #{tmp 4427}#)
+ (let ((#{tmp 4428}#
($sc-dispatch
- #{tmp 4412}#
+ #{tmp 4426}#
'(any))))
- (if #{tmp 4414}#
+ (if #{tmp 4428}#
(@apply
- (lambda (#{e 4416}#) #{e 4416}#)
- #{tmp 4414}#)
- (let ((#{_ 4418}# #{tmp 4412}#))
+ (lambda (#{e 4430}#) #{e 4430}#)
+ #{tmp 4428}#)
+ (let ((#{_ 4432}# #{tmp 4426}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x 4370}#
- #{s 4409}#))))))))
- #{var 4380}#
- #{step 4382}#)))
- (let ((#{tmp 4388}#
- ($sc-dispatch #{tmp 4387}# 'each-any)))
- (if #{tmp 4388}#
+ #{orig-x 4384}#
+ #{s 4423}#))))))))
+ #{var 4394}#
+ #{step 4396}#)))
+ (let ((#{tmp 4402}#
+ ($sc-dispatch #{tmp 4401}# 'each-any)))
+ (if #{tmp 4402}#
(@apply
- (lambda (#{step 4390}#)
- (let ((#{tmp 4391}# #{e1 4384}#))
- (let ((#{tmp 4392}#
- ($sc-dispatch #{tmp 4391}# '())))
- (if #{tmp 4392}#
+ (lambda (#{step 4404}#)
+ (let ((#{tmp 4405}# #{e1 4398}#))
+ (let ((#{tmp 4406}#
+ ($sc-dispatch #{tmp 4405}# '())))
+ (if #{tmp 4406}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -14863,7 +14863,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14872,17 +14872,17 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
'#(syntax-object
doloop
@@ -14891,7 +14891,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14900,19 +14900,19 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
- (map list #{var 4380}# #{init 4381}#)
+ (map list #{var 4394}# #{init 4395}#)
(list '#(syntax-object
if
((top)
@@ -14920,7 +14920,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -14929,17 +14929,17 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
(list '#(syntax-object
not
@@ -14948,7 +14948,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var
init
@@ -14962,19 +14962,19 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
- #{e0 4383}#)
+ #{e0 4397}#)
(cons '#(syntax-object
begin
((top)
@@ -14982,7 +14982,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var
init
@@ -14996,20 +14996,20 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
(append
- #{c 4385}#
+ #{c 4399}#
(list (cons '#(syntax-object
doloop
((top)
@@ -15020,7 +15020,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var
init
@@ -15034,12 +15034,12 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage
()
()
@@ -15047,30 +15047,30 @@
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene
guile))
- #{step 4390}#)))))))
- #{tmp 4392}#)
- (let ((#{tmp 4397}#
+ #{step 4404}#)))))))
+ #{tmp 4406}#)
+ (let ((#{tmp 4411}#
($sc-dispatch
- #{tmp 4391}#
+ #{tmp 4405}#
'(any . each-any))))
- (if #{tmp 4397}#
+ (if #{tmp 4411}#
(@apply
- (lambda (#{e1 4400}# #{e2 4401}#)
+ (lambda (#{e1 4414}# #{e2 4415}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4398" "i4399"))
+ #("i4412" "i4413"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15079,17 +15079,17 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
'#(syntax-object
doloop
@@ -15097,12 +15097,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4398" "i4399"))
+ #("i4412" "i4413"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -15111,33 +15111,33 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
(map list
- #{var 4380}#
- #{init 4381}#)
+ #{var 4394}#
+ #{init 4395}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4398" "i4399"))
+ #("i4412" "i4413"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var
init
@@ -15151,27 +15151,27 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
- #{e0 4383}#
+ #{e0 4397}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4398"
- "i4399"))
+ #("i4412"
+ "i4413"))
#(ribcage
()
()
@@ -15179,7 +15179,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var
init
@@ -15193,12 +15193,12 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage
()
()
@@ -15206,18 +15206,18 @@
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
- (cons #{e1 4400}#
- #{e2 4401}#))
+ (cons #{e1 4414}#
+ #{e2 4415}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4398"
- "i4399"))
+ #("i4412"
+ "i4413"))
#(ribcage
()
()
@@ -15225,7 +15225,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var
init
@@ -15239,12 +15239,12 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage
()
()
@@ -15252,10 +15252,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene guile))
(append
- #{c 4385}#
+ #{c 4399}#
(list (cons '#(syntax-object
doloop
((top)
@@ -15264,8 +15264,8 @@
e2)
#((top)
(top))
- #("i4398"
- "i4399"))
+ #("i4412"
+ "i4413"))
#(ribcage
()
()
@@ -15273,7 +15273,7 @@
#(ribcage
#(step)
#((top))
- #("i4389"))
+ #("i4403"))
#(ribcage
#(var
init
@@ -15287,12 +15287,12 @@
(top)
(top)
(top))
- #("i4374"
- "i4375"
- "i4376"
- "i4377"
- "i4378"
- "i4379"))
+ #("i4388"
+ "i4389"
+ "i4390"
+ "i4391"
+ "i4392"
+ "i4393"))
#(ribcage
()
()
@@ -15300,37 +15300,37 @@
#(ribcage
#(orig-x)
#((top))
- #("i4371")))
+ #("i4385")))
(hygiene
guile))
- #{step 4390}#)))))))
- #{tmp 4397}#)
+ #{step 4404}#)))))))
+ #{tmp 4411}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4391}#)))))))
- #{tmp 4388}#)
+ #{tmp 4405}#)))))))
+ #{tmp 4402}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4387}#)))))
- #{tmp 4373}#)
+ #{tmp 4401}#)))))
+ #{tmp 4387}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4372}#)))))))
+ #{tmp 4386}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 4422}#
- (lambda (#{p 4435}# #{lev 4436}#)
- (let ((#{tmp 4439}# #{p 4435}#))
- (let ((#{tmp 4440}#
+ ((#{quasi 4436}#
+ (lambda (#{p 4449}# #{lev 4450}#)
+ (let ((#{tmp 4453}# #{p 4449}#))
+ (let ((#{tmp 4454}#
($sc-dispatch
- #{tmp 4439}#
+ #{tmp 4453}#
'(#(free-id
#(syntax-object
unquote
@@ -15339,7 +15339,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15348,28 +15348,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
any))))
- (if #{tmp 4440}#
+ (if #{tmp 4454}#
(@apply
- (lambda (#{p 4442}#)
- (if (= #{lev 4436}# 0)
+ (lambda (#{p 4456}#)
+ (if (= #{lev 4450}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i4441"))
+ #(ribcage #(p) #((top)) #("i4455"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15378,25 +15378,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{p 4442}#)
- (#{quasicons 4426}#
+ #{p 4456}#)
+ (#{quasicons 4440}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4441"))
+ #(ribcage #(p) #((top)) #("i4455"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15405,23 +15405,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4441"))
+ #(ribcage #(p) #((top)) #("i4455"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15430,21 +15430,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
- (#{quasi 4422}#
- (list #{p 4442}#)
- (#{1-}# #{lev 4436}#)))))
- #{tmp 4440}#)
- (let ((#{tmp 4443}#
+ (#{quasi 4436}#
+ (list #{p 4456}#)
+ (#{1-}# #{lev 4450}#)))))
+ #{tmp 4454}#)
+ (let ((#{tmp 4457}#
($sc-dispatch
- #{tmp 4439}#
+ #{tmp 4453}#
'(#(free-id
#(syntax-object
quasiquote
@@ -15453,7 +15453,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15462,28 +15462,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
any))))
- (if #{tmp 4443}#
+ (if #{tmp 4457}#
(@apply
- (lambda (#{p 4445}#)
- (#{quasicons 4426}#
+ (lambda (#{p 4459}#)
+ (#{quasicons 4440}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4444"))
+ #(ribcage #(p) #((top)) #("i4458"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15492,23 +15492,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4444"))
+ #(ribcage #(p) #((top)) #("i4458"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15517,27 +15517,27 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
- (#{quasi 4422}#
- (list #{p 4445}#)
- (#{1+}# #{lev 4436}#))))
- #{tmp 4443}#)
- (let ((#{tmp 4446}#
- ($sc-dispatch #{tmp 4439}# '(any . any))))
- (if #{tmp 4446}#
+ (#{quasi 4436}#
+ (list #{p 4459}#)
+ (#{1+}# #{lev 4450}#))))
+ #{tmp 4457}#)
+ (let ((#{tmp 4460}#
+ ($sc-dispatch #{tmp 4453}# '(any . any))))
+ (if #{tmp 4460}#
(@apply
- (lambda (#{p 4449}# #{q 4450}#)
- (let ((#{tmp 4451}# #{p 4449}#))
- (let ((#{tmp 4452}#
+ (lambda (#{p 4463}# #{q 4464}#)
+ (let ((#{tmp 4465}# #{p 4463}#))
+ (let ((#{tmp 4466}#
($sc-dispatch
- #{tmp 4451}#
+ #{tmp 4465}#
'(#(free-id
#(syntax-object
unquote
@@ -15545,12 +15545,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4447" "i4448"))
+ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15565,40 +15565,40 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4452}#
+ (if #{tmp 4466}#
(@apply
- (lambda (#{p 4454}#)
- (if (= #{lev 4436}# 0)
- (#{quasilist* 4430}#
- (map (lambda (#{tmp 4455}#)
+ (lambda (#{p 4468}#)
+ (if (= #{lev 4450}# 0)
+ (#{quasilist* 4444}#
+ (map (lambda (#{tmp 4469}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4453"))
+ #("i4467"))
#(ribcage
#(p q)
#((top) (top))
- #("i4447"
- "i4448"))
+ #("i4461"
+ "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437"
- "i4438"))
+ #("i4451"
+ "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15613,37 +15613,37 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{tmp 4455}#))
- #{p 4454}#)
- (#{quasi 4422}#
- #{q 4450}#
- #{lev 4436}#))
- (#{quasicons 4426}#
- (#{quasicons 4426}#
+ #{tmp 4469}#))
+ #{p 4468}#)
+ (#{quasi 4436}#
+ #{q 4464}#
+ #{lev 4450}#))
+ (#{quasicons 4440}#
+ (#{quasicons 4440}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4453"))
+ #("i4467"))
#(ribcage
#(p q)
#((top) (top))
- #("i4447" "i4448"))
+ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15658,13 +15658,13 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
#(syntax-object
unquote
@@ -15672,16 +15672,16 @@
#(ribcage
#(p)
#((top))
- #("i4453"))
+ #("i4467"))
#(ribcage
#(p q)
#((top) (top))
- #("i4447" "i4448"))
+ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15696,24 +15696,24 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
- (#{quasi 4422}#
- #{p 4454}#
- (#{1-}# #{lev 4436}#)))
- (#{quasi 4422}#
- #{q 4450}#
- #{lev 4436}#))))
- #{tmp 4452}#)
- (let ((#{tmp 4457}#
+ (#{quasi 4436}#
+ #{p 4468}#
+ (#{1-}# #{lev 4450}#)))
+ (#{quasi 4436}#
+ #{q 4464}#
+ #{lev 4450}#))))
+ #{tmp 4466}#)
+ (let ((#{tmp 4471}#
($sc-dispatch
- #{tmp 4451}#
+ #{tmp 4465}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -15721,12 +15721,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4447" "i4448"))
+ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15741,35 +15741,35 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4457}#
+ (if #{tmp 4471}#
(@apply
- (lambda (#{p 4459}#)
- (if (= #{lev 4436}# 0)
- (#{quasiappend 4428}#
- (map (lambda (#{tmp 4460}#)
+ (lambda (#{p 4473}#)
+ (if (= #{lev 4450}# 0)
+ (#{quasiappend 4442}#
+ (map (lambda (#{tmp 4474}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4458"))
+ #("i4472"))
#(ribcage
#(p q)
#((top)
(top))
- #("i4447"
- "i4448"))
+ #("i4461"
+ "i4462"))
#(ribcage
()
()
@@ -15778,8 +15778,8 @@
#(p lev)
#((top)
(top))
- #("i4437"
- "i4438"))
+ #("i4451"
+ "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15794,37 +15794,37 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{tmp 4460}#))
- #{p 4459}#)
- (#{quasi 4422}#
- #{q 4450}#
- #{lev 4436}#))
- (#{quasicons 4426}#
- (#{quasicons 4426}#
+ #{tmp 4474}#))
+ #{p 4473}#)
+ (#{quasi 4436}#
+ #{q 4464}#
+ #{lev 4450}#))
+ (#{quasicons 4440}#
+ (#{quasicons 4440}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4458"))
+ #("i4472"))
#(ribcage
#(p q)
#((top) (top))
- #("i4447" "i4448"))
+ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15839,13 +15839,13 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -15853,16 +15853,16 @@
#(ribcage
#(p)
#((top))
- #("i4458"))
+ #("i4472"))
#(ribcage
#(p q)
#((top) (top))
- #("i4447" "i4448"))
+ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15877,50 +15877,50 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
- (#{quasi 4422}#
- #{p 4459}#
- (#{1-}# #{lev 4436}#)))
- (#{quasi 4422}#
- #{q 4450}#
- #{lev 4436}#))))
- #{tmp 4457}#)
- (let ((#{_ 4463}# #{tmp 4451}#))
- (#{quasicons 4426}#
- (#{quasi 4422}#
- #{p 4449}#
- #{lev 4436}#)
- (#{quasi 4422}#
- #{q 4450}#
- #{lev 4436}#)))))))))
- #{tmp 4446}#)
- (let ((#{tmp 4464}#
+ (#{quasi 4436}#
+ #{p 4473}#
+ (#{1-}# #{lev 4450}#)))
+ (#{quasi 4436}#
+ #{q 4464}#
+ #{lev 4450}#))))
+ #{tmp 4471}#)
+ (let ((#{_ 4477}# #{tmp 4465}#))
+ (#{quasicons 4440}#
+ (#{quasi 4436}#
+ #{p 4463}#
+ #{lev 4450}#)
+ (#{quasi 4436}#
+ #{q 4464}#
+ #{lev 4450}#)))))))))
+ #{tmp 4460}#)
+ (let ((#{tmp 4478}#
($sc-dispatch
- #{tmp 4439}#
+ #{tmp 4453}#
'#(vector each-any))))
- (if #{tmp 4464}#
+ (if #{tmp 4478}#
(@apply
- (lambda (#{x 4466}#)
- (#{quasivector 4432}#
- (#{vquasi 4424}# #{x 4466}# #{lev 4436}#)))
- #{tmp 4464}#)
- (let ((#{p 4469}# #{tmp 4439}#))
+ (lambda (#{x 4480}#)
+ (#{quasivector 4446}#
+ (#{vquasi 4438}# #{x 4480}# #{lev 4450}#)))
+ #{tmp 4478}#)
+ (let ((#{p 4483}# #{tmp 4453}#))
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4468"))
+ #(ribcage #(p) #((top)) #("i4482"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4437" "i4438"))
+ #("i4451" "i4452"))
#(ribcage
(emit quasivector
quasilist*
@@ -15935,27 +15935,27 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{p 4469}#)))))))))))))
- (#{vquasi 4424}#
- (lambda (#{p 4470}# #{lev 4471}#)
- (let ((#{tmp 4474}# #{p 4470}#))
- (let ((#{tmp 4475}#
- ($sc-dispatch #{tmp 4474}# '(any . any))))
- (if #{tmp 4475}#
+ #{p 4483}#)))))))))))))
+ (#{vquasi 4438}#
+ (lambda (#{p 4484}# #{lev 4485}#)
+ (let ((#{tmp 4488}# #{p 4484}#))
+ (let ((#{tmp 4489}#
+ ($sc-dispatch #{tmp 4488}# '(any . any))))
+ (if #{tmp 4489}#
(@apply
- (lambda (#{p 4478}# #{q 4479}#)
- (let ((#{tmp 4480}# #{p 4478}#))
- (let ((#{tmp 4481}#
+ (lambda (#{p 4492}# #{q 4493}#)
+ (let ((#{tmp 4494}# #{p 4492}#))
+ (let ((#{tmp 4495}#
($sc-dispatch
- #{tmp 4480}#
+ #{tmp 4494}#
'(#(free-id
#(syntax-object
unquote
@@ -15963,12 +15963,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -15983,38 +15983,38 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4481}#
+ (if #{tmp 4495}#
(@apply
- (lambda (#{p 4483}#)
- (if (= #{lev 4471}# 0)
- (#{quasilist* 4430}#
- (map (lambda (#{tmp 4484}#)
+ (lambda (#{p 4497}#)
+ (if (= #{lev 4485}# 0)
+ (#{quasilist* 4444}#
+ (map (lambda (#{tmp 4498}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4482"))
+ #("i4496"))
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16029,32 +16029,32 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{tmp 4484}#))
- #{p 4483}#)
- (#{vquasi 4424}# #{q 4479}# #{lev 4471}#))
- (#{quasicons 4426}#
- (#{quasicons 4426}#
+ #{tmp 4498}#))
+ #{p 4497}#)
+ (#{vquasi 4438}# #{q 4493}# #{lev 4485}#))
+ (#{quasicons 4440}#
+ (#{quasicons 4440}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4482"))
+ #(ribcage #(p) #((top)) #("i4496"))
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16069,27 +16069,27 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4482"))
+ #(ribcage #(p) #((top)) #("i4496"))
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16104,22 +16104,22 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
- (#{quasi 4422}#
- #{p 4483}#
- (#{1-}# #{lev 4471}#)))
- (#{vquasi 4424}# #{q 4479}# #{lev 4471}#))))
- #{tmp 4481}#)
- (let ((#{tmp 4486}#
+ (#{quasi 4436}#
+ #{p 4497}#
+ (#{1-}# #{lev 4485}#)))
+ (#{vquasi 4438}# #{q 4493}# #{lev 4485}#))))
+ #{tmp 4495}#)
+ (let ((#{tmp 4500}#
($sc-dispatch
- #{tmp 4480}#
+ #{tmp 4494}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -16127,12 +16127,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16147,38 +16147,38 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4486}#
+ (if #{tmp 4500}#
(@apply
- (lambda (#{p 4488}#)
- (if (= #{lev 4471}# 0)
- (#{quasiappend 4428}#
- (map (lambda (#{tmp 4489}#)
+ (lambda (#{p 4502}#)
+ (if (= #{lev 4485}# 0)
+ (#{quasiappend 4442}#
+ (map (lambda (#{tmp 4503}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4487"))
+ #("i4501"))
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16193,37 +16193,37 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{tmp 4489}#))
- #{p 4488}#)
- (#{vquasi 4424}#
- #{q 4479}#
- #{lev 4471}#))
- (#{quasicons 4426}#
- (#{quasicons 4426}#
+ #{tmp 4503}#))
+ #{p 4502}#)
+ (#{vquasi 4438}#
+ #{q 4493}#
+ #{lev 4485}#))
+ (#{quasicons 4440}#
+ (#{quasicons 4440}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4487"))
+ #("i4501"))
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16238,13 +16238,13 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -16252,16 +16252,16 @@
#(ribcage
#(p)
#((top))
- #("i4487"))
+ #("i4501"))
#(ribcage
#(p q)
#((top) (top))
- #("i4476" "i4477"))
+ #("i4490" "i4491"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16276,30 +16276,30 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile)))
- (#{quasi 4422}#
- #{p 4488}#
- (#{1-}# #{lev 4471}#)))
- (#{vquasi 4424}#
- #{q 4479}#
- #{lev 4471}#))))
- #{tmp 4486}#)
- (let ((#{_ 4492}# #{tmp 4480}#))
- (#{quasicons 4426}#
- (#{quasi 4422}# #{p 4478}# #{lev 4471}#)
- (#{vquasi 4424}#
- #{q 4479}#
- #{lev 4471}#)))))))))
- #{tmp 4475}#)
- (let ((#{tmp 4493}# ($sc-dispatch #{tmp 4474}# '())))
- (if #{tmp 4493}#
+ (#{quasi 4436}#
+ #{p 4502}#
+ (#{1-}# #{lev 4485}#)))
+ (#{vquasi 4438}#
+ #{q 4493}#
+ #{lev 4485}#))))
+ #{tmp 4500}#)
+ (let ((#{_ 4506}# #{tmp 4494}#))
+ (#{quasicons 4440}#
+ (#{quasi 4436}# #{p 4492}# #{lev 4485}#)
+ (#{vquasi 4438}#
+ #{q 4493}#
+ #{lev 4485}#)))))))))
+ #{tmp 4489}#)
+ (let ((#{tmp 4507}# ($sc-dispatch #{tmp 4488}# '())))
+ (if #{tmp 4507}#
(@apply
(lambda ()
'(#(syntax-object
@@ -16309,7 +16309,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i4472" "i4473"))
+ #("i4486" "i4487"))
#(ribcage
(emit quasivector
quasilist*
@@ -16318,66 +16318,66 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
()))
- #{tmp 4493}#)
+ #{tmp 4507}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4474}#))))))))
- (#{quasicons 4426}#
- (lambda (#{x 4494}# #{y 4495}#)
- (let ((#{tmp 4499}# (list #{x 4494}# #{y 4495}#)))
- (let ((#{tmp 4500}#
- ($sc-dispatch #{tmp 4499}# '(any any))))
- (if #{tmp 4500}#
+ #{tmp 4488}#))))))))
+ (#{quasicons 4440}#
+ (lambda (#{x 4508}# #{y 4509}#)
+ (let ((#{tmp 4513}# (list #{x 4508}# #{y 4509}#)))
+ (let ((#{tmp 4514}#
+ ($sc-dispatch #{tmp 4513}# '(any any))))
+ (if #{tmp 4514}#
(@apply
- (lambda (#{x 4503}# #{y 4504}#)
- (let ((#{tmp 4505}# #{y 4504}#))
- (let ((#{tmp 4506}#
+ (lambda (#{x 4517}# #{y 4518}#)
+ (let ((#{tmp 4519}# #{y 4518}#))
+ (let ((#{tmp 4520}#
($sc-dispatch
- #{tmp 4505}#
+ #{tmp 4519}#
'(#(atom "quote") any))))
- (if #{tmp 4506}#
+ (if #{tmp 4520}#
(@apply
- (lambda (#{dy 4508}#)
- (let ((#{tmp 4509}# #{x 4503}#))
- (let ((#{tmp 4510}#
+ (lambda (#{dy 4522}#)
+ (let ((#{tmp 4523}# #{x 4517}#))
+ (let ((#{tmp 4524}#
($sc-dispatch
- #{tmp 4509}#
+ #{tmp 4523}#
'(#(atom "quote") any))))
- (if #{tmp 4510}#
+ (if #{tmp 4524}#
(@apply
- (lambda (#{dx 4512}#)
+ (lambda (#{dx 4526}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i4511"))
+ #("i4525"))
#(ribcage
#(dy)
#((top))
- #("i4507"))
+ #("i4521"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4515" "i4516"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4496" "i4497"))
+ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
@@ -16392,40 +16392,40 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- (cons #{dx 4512}# #{dy 4508}#)))
- #{tmp 4510}#)
- (let ((#{_ 4514}# #{tmp 4509}#))
- (if (null? #{dy 4508}#)
+ (cons #{dx 4526}# #{dy 4522}#)))
+ #{tmp 4524}#)
+ (let ((#{_ 4528}# #{tmp 4523}#))
+ (if (null? #{dy 4522}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i4513"))
+ #("i4527"))
#(ribcage
#(dy)
#((top))
- #("i4507"))
+ #("i4521"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4515" "i4516"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4496" "i4497"))
+ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
@@ -16440,37 +16440,37 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{x 4503}#)
+ #{x 4517}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4513"))
+ #("i4527"))
#(ribcage
#(dy)
#((top))
- #("i4507"))
+ #("i4521"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4515" "i4516"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4496" "i4497"))
+ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
@@ -16485,42 +16485,42 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{x 4503}#
- #{y 4504}#)))))))
- #{tmp 4506}#)
- (let ((#{tmp 4515}#
+ #{x 4517}#
+ #{y 4518}#)))))))
+ #{tmp 4520}#)
+ (let ((#{tmp 4529}#
($sc-dispatch
- #{tmp 4505}#
+ #{tmp 4519}#
'(#(atom "list") . any))))
- (if #{tmp 4515}#
+ (if #{tmp 4529}#
(@apply
- (lambda (#{stuff 4517}#)
+ (lambda (#{stuff 4531}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4516"))
+ #("i4530"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4515" "i4516"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4496" "i4497"))
+ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
@@ -16535,41 +16535,41 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- (cons #{x 4503}# #{stuff 4517}#)))
- #{tmp 4515}#)
- (let ((#{tmp 4518}#
+ (cons #{x 4517}# #{stuff 4531}#)))
+ #{tmp 4529}#)
+ (let ((#{tmp 4532}#
($sc-dispatch
- #{tmp 4505}#
+ #{tmp 4519}#
'(#(atom "list*") . any))))
- (if #{tmp 4518}#
+ (if #{tmp 4532}#
(@apply
- (lambda (#{stuff 4520}#)
+ (lambda (#{stuff 4534}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4519"))
+ #("i4533"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4515" "i4516"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4496" "i4497"))
+ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
@@ -16584,35 +16584,35 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- (cons #{x 4503}# #{stuff 4520}#)))
- #{tmp 4518}#)
- (let ((#{_ 4522}# #{tmp 4505}#))
+ (cons #{x 4517}# #{stuff 4534}#)))
+ #{tmp 4532}#)
+ (let ((#{_ 4536}# #{tmp 4519}#))
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4521"))
+ #("i4535"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4501" "i4502"))
+ #("i4515" "i4516"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4496" "i4497"))
+ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
@@ -16627,30 +16627,30 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{x 4503}#
- #{y 4504}#))))))))))
- #{tmp 4500}#)
+ #{x 4517}#
+ #{y 4518}#))))))))))
+ #{tmp 4514}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4499}#))))))
- (#{quasiappend 4428}#
- (lambda (#{x 4523}# #{y 4524}#)
- (let ((#{tmp 4527}# #{y 4524}#))
- (let ((#{tmp 4528}#
- ($sc-dispatch #{tmp 4527}# '(#(atom "quote") ()))))
- (if #{tmp 4528}#
+ #{tmp 4513}#))))))
+ (#{quasiappend 4442}#
+ (lambda (#{x 4537}# #{y 4538}#)
+ (let ((#{tmp 4541}# #{y 4538}#))
+ (let ((#{tmp 4542}#
+ ($sc-dispatch #{tmp 4541}# '(#(atom "quote") ()))))
+ (if #{tmp 4542}#
(@apply
(lambda ()
- (if (null? #{x 4523}#)
+ (if (null? #{x 4537}#)
'(#(syntax-object
"quote"
((top)
@@ -16658,7 +16658,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i4525" "i4526"))
+ #("i4539" "i4540"))
#(ribcage
(emit quasivector
quasilist*
@@ -16667,23 +16667,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
())
- (if (null? (cdr #{x 4523}#))
- (car #{x 4523}#)
- (let ((#{tmp 4535}# #{x 4523}#))
- (let ((#{tmp 4536}#
- ($sc-dispatch #{tmp 4535}# 'each-any)))
- (if #{tmp 4536}#
+ (if (null? (cdr #{x 4537}#))
+ (car #{x 4537}#)
+ (let ((#{tmp 4549}# #{x 4537}#))
+ (let ((#{tmp 4550}#
+ ($sc-dispatch #{tmp 4549}# 'each-any)))
+ (if #{tmp 4550}#
(@apply
- (lambda (#{p 4538}#)
+ (lambda (#{p 4552}#)
(cons '#(syntax-object
"append"
((top)
@@ -16691,12 +16691,12 @@
#(ribcage
#(p)
#((top))
- #("i4537"))
+ #("i4551"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4525" "i4526"))
+ #("i4539" "i4540"))
#(ribcage
(emit quasivector
quasilist*
@@ -16711,30 +16711,30 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{p 4538}#))
- #{tmp 4536}#)
+ #{p 4552}#))
+ #{tmp 4550}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4535}#)))))))
- #{tmp 4528}#)
- (let ((#{_ 4541}# #{tmp 4527}#))
- (if (null? #{x 4523}#)
- #{y 4524}#
- (let ((#{tmp 4546}# (list #{x 4523}# #{y 4524}#)))
- (let ((#{tmp 4547}#
- ($sc-dispatch #{tmp 4546}# '(each-any any))))
- (if #{tmp 4547}#
+ #{tmp 4549}#)))))))
+ #{tmp 4542}#)
+ (let ((#{_ 4555}# #{tmp 4541}#))
+ (if (null? #{x 4537}#)
+ #{y 4538}#
+ (let ((#{tmp 4560}# (list #{x 4537}# #{y 4538}#)))
+ (let ((#{tmp 4561}#
+ ($sc-dispatch #{tmp 4560}# '(each-any any))))
+ (if #{tmp 4561}#
(@apply
- (lambda (#{p 4550}# #{y 4551}#)
+ (lambda (#{p 4564}# #{y 4565}#)
(cons '#(syntax-object
"append"
((top)
@@ -16742,13 +16742,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i4548" "i4549"))
- #(ribcage #(_) #((top)) #("i4540"))
+ #("i4562" "i4563"))
+ #(ribcage #(_) #((top)) #("i4554"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4525" "i4526"))
+ #("i4539" "i4540"))
#(ribcage
(emit quasivector
quasilist*
@@ -16763,47 +16763,47 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- (append #{p 4550}# (list #{y 4551}#))))
- #{tmp 4547}#)
+ (append #{p 4564}# (list #{y 4565}#))))
+ #{tmp 4561}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4546}#)))))))))))
- (#{quasilist* 4430}#
- (lambda (#{x 4553}# #{y 4554}#)
+ #{tmp 4560}#)))))))))))
+ (#{quasilist* 4444}#
+ (lambda (#{x 4567}# #{y 4568}#)
(letrec*
- ((#{f 4559}#
- (lambda (#{x 4560}#)
- (if (null? #{x 4560}#)
- #{y 4554}#
- (#{quasicons 4426}#
- (car #{x 4560}#)
- (#{f 4559}# (cdr #{x 4560}#)))))))
- (begin (#{f 4559}# #{x 4553}#)))))
- (#{quasivector 4432}#
- (lambda (#{x 4561}#)
- (let ((#{tmp 4563}# #{x 4561}#))
- (let ((#{tmp 4564}#
+ ((#{f 4573}#
+ (lambda (#{x 4574}#)
+ (if (null? #{x 4574}#)
+ #{y 4568}#
+ (#{quasicons 4440}#
+ (car #{x 4574}#)
+ (#{f 4573}# (cdr #{x 4574}#)))))))
+ (begin (#{f 4573}# #{x 4567}#)))))
+ (#{quasivector 4446}#
+ (lambda (#{x 4575}#)
+ (let ((#{tmp 4577}# #{x 4575}#))
+ (let ((#{tmp 4578}#
($sc-dispatch
- #{tmp 4563}#
+ #{tmp 4577}#
'(#(atom "quote") each-any))))
- (if #{tmp 4564}#
+ (if #{tmp 4578}#
(@apply
- (lambda (#{x 4566}#)
+ (lambda (#{x 4580}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(x) #((top)) #("i4565"))
+ #(ribcage #(x) #((top)) #("i4579"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4562"))
+ #(ribcage #(x) #((top)) #("i4576"))
#(ribcage
(emit quasivector
quasilist*
@@ -16812,53 +16812,53 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- (list->vector #{x 4566}#)))
- #{tmp 4564}#)
- (let ((#{_ 4569}# #{tmp 4563}#))
+ (list->vector #{x 4580}#)))
+ #{tmp 4578}#)
+ (let ((#{_ 4583}# #{tmp 4577}#))
(letrec*
- ((#{f 4573}#
- (lambda (#{y 4574}# #{k 4575}#)
- (let ((#{tmp 4586}# #{y 4574}#))
- (let ((#{tmp 4587}#
+ ((#{f 4587}#
+ (lambda (#{y 4588}# #{k 4589}#)
+ (let ((#{tmp 4600}# #{y 4588}#))
+ (let ((#{tmp 4601}#
($sc-dispatch
- #{tmp 4586}#
+ #{tmp 4600}#
'(#(atom "quote") each-any))))
- (if #{tmp 4587}#
+ (if #{tmp 4601}#
(@apply
- (lambda (#{y 4589}#)
- (#{k 4575}#
- (map (lambda (#{tmp 4590}#)
+ (lambda (#{y 4603}#)
+ (#{k 4589}#
+ (map (lambda (#{tmp 4604}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i4588"))
+ #("i4602"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4570"
- "i4571"
- "i4572"))
+ #("i4584"
+ "i4585"
+ "i4586"))
#(ribcage
#(_)
#((top))
- #("i4568"))
+ #("i4582"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4562"))
+ #("i4576"))
#(ribcage
(emit quasivector
quasilist*
@@ -16873,75 +16873,75 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{tmp 4590}#))
- #{y 4589}#)))
- #{tmp 4587}#)
- (let ((#{tmp 4591}#
+ #{tmp 4604}#))
+ #{y 4603}#)))
+ #{tmp 4601}#)
+ (let ((#{tmp 4605}#
($sc-dispatch
- #{tmp 4586}#
+ #{tmp 4600}#
'(#(atom "list") . each-any))))
- (if #{tmp 4591}#
+ (if #{tmp 4605}#
(@apply
- (lambda (#{y 4593}#)
- (#{k 4575}# #{y 4593}#))
- #{tmp 4591}#)
- (let ((#{tmp 4595}#
+ (lambda (#{y 4607}#)
+ (#{k 4589}# #{y 4607}#))
+ #{tmp 4605}#)
+ (let ((#{tmp 4609}#
($sc-dispatch
- #{tmp 4586}#
+ #{tmp 4600}#
'(#(atom "list*")
.
#(each+ any (any) ())))))
- (if #{tmp 4595}#
+ (if #{tmp 4609}#
(@apply
- (lambda (#{y 4598}# #{z 4599}#)
- (#{f 4573}#
- #{z 4599}#
- (lambda (#{ls 4600}#)
- (#{k 4575}#
+ (lambda (#{y 4612}# #{z 4613}#)
+ (#{f 4587}#
+ #{z 4613}#
+ (lambda (#{ls 4614}#)
+ (#{k 4589}#
(append
- #{y 4598}#
- #{ls 4600}#)))))
- #{tmp 4595}#)
- (let ((#{else 4604}# #{tmp 4586}#))
- (let ((#{tmp 4608}# #{x 4561}#))
- (let ((#{ g4605 4610}#
- #{tmp 4608}#))
+ #{y 4612}#
+ #{ls 4614}#)))))
+ #{tmp 4609}#)
+ (let ((#{else 4618}# #{tmp 4600}#))
+ (let ((#{tmp 4622}# #{x 4575}#))
+ (let ((#{ g4619 4624}#
+ #{tmp 4622}#))
(list '#(syntax-object
"list->vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4605}#)
- #((m4606 top))
- #("i4609"))
+ #(#{ g4619}#)
+ #((m4620 top))
+ #("i4623"))
#(ribcage
#(else)
#((top))
- #("i4603"))
+ #("i4617"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4570"
- "i4571"
- "i4572"))
+ #("i4584"
+ "i4585"
+ "i4586"))
#(ribcage
#(_)
#((top))
- #("i4568"))
+ #("i4582"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4562"))
+ #("i4576"))
#(ribcage
(emit quasivector
quasilist*
@@ -16956,49 +16956,49 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{ g4605 4610}#))))))))))))))
+ #{ g4619 4624}#))))))))))))))
(begin
- (#{f 4573}#
- #{x 4561}#
- (lambda (#{ls 4576}#)
- (let ((#{tmp 4581}# #{ls 4576}#))
- (let ((#{tmp 4582}#
- ($sc-dispatch #{tmp 4581}# 'each-any)))
- (if #{tmp 4582}#
+ (#{f 4587}#
+ #{x 4575}#
+ (lambda (#{ls 4590}#)
+ (let ((#{tmp 4595}# #{ls 4590}#))
+ (let ((#{tmp 4596}#
+ ($sc-dispatch #{tmp 4595}# 'each-any)))
+ (if #{tmp 4596}#
(@apply
- (lambda (#{ g4578 4584}#)
+ (lambda (#{ g4592 4598}#)
(cons '#(syntax-object
"vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4578}#)
- #((m4579 top))
- #("i4583"))
+ #(#{ g4592}#)
+ #((m4593 top))
+ #("i4597"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ls)
#((top))
- #("i4577"))
+ #("i4591"))
#(ribcage
#(_)
#((top))
- #("i4568"))
+ #("i4582"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4562"))
+ #("i4576"))
#(ribcage
(emit quasivector
quasilist*
@@ -17013,36 +17013,36 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{ g4578 4584}#))
- #{tmp 4582}#)
+ #{ g4592 4598}#))
+ #{tmp 4596}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4581}#))))))))))))))
- (#{emit 4434}#
- (lambda (#{x 4611}#)
- (let ((#{tmp 4613}# #{x 4611}#))
- (let ((#{tmp 4614}#
+ #{tmp 4595}#))))))))))))))
+ (#{emit 4448}#
+ (lambda (#{x 4625}#)
+ (let ((#{tmp 4627}# #{x 4625}#))
+ (let ((#{tmp 4628}#
($sc-dispatch
- #{tmp 4613}#
+ #{tmp 4627}#
'(#(atom "quote") any))))
- (if #{tmp 4614}#
+ (if #{tmp 4628}#
(@apply
- (lambda (#{x 4616}#)
+ (lambda (#{x 4630}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4615"))
+ #(ribcage #(x) #((top)) #("i4629"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4612"))
+ #(ribcage #(x) #((top)) #("i4626"))
#(ribcage
(emit quasivector
quasilist*
@@ -17051,46 +17051,46 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{x 4616}#))
- #{tmp 4614}#)
- (let ((#{tmp 4617}#
+ #{x 4630}#))
+ #{tmp 4628}#)
+ (let ((#{tmp 4631}#
($sc-dispatch
- #{tmp 4613}#
+ #{tmp 4627}#
'(#(atom "list") . each-any))))
- (if #{tmp 4617}#
+ (if #{tmp 4631}#
(@apply
- (lambda (#{x 4619}#)
- (let ((#{tmp 4623}# (map #{emit 4434}# #{x 4619}#)))
- (let ((#{tmp 4624}#
- ($sc-dispatch #{tmp 4623}# 'each-any)))
- (if #{tmp 4624}#
+ (lambda (#{x 4633}#)
+ (let ((#{tmp 4637}# (map #{emit 4448}# #{x 4633}#)))
+ (let ((#{tmp 4638}#
+ ($sc-dispatch #{tmp 4637}# 'each-any)))
+ (if #{tmp 4638}#
(@apply
- (lambda (#{ g4620 4626}#)
+ (lambda (#{ g4634 4640}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4620}#)
- #((m4621 top))
- #("i4625"))
+ #(#{ g4634}#)
+ #((m4635 top))
+ #("i4639"))
#(ribcage
#(x)
#((top))
- #("i4618"))
+ #("i4632"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4612"))
+ #("i4626"))
#(ribcage
(emit quasivector
quasilist*
@@ -17105,70 +17105,70 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{ g4620 4626}#))
- #{tmp 4624}#)
+ #{ g4634 4640}#))
+ #{tmp 4638}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4623}#)))))
- #{tmp 4617}#)
- (let ((#{tmp 4629}#
+ #{tmp 4637}#)))))
+ #{tmp 4631}#)
+ (let ((#{tmp 4643}#
($sc-dispatch
- #{tmp 4613}#
+ #{tmp 4627}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 4629}#
+ (if #{tmp 4643}#
(@apply
- (lambda (#{x 4632}# #{y 4633}#)
+ (lambda (#{x 4646}# #{y 4647}#)
(letrec*
- ((#{f 4636}#
- (lambda (#{x* 4637}#)
- (if (null? #{x* 4637}#)
- (#{emit 4434}# #{y 4633}#)
- (let ((#{tmp 4643}#
- (list (#{emit 4434}#
- (car #{x* 4637}#))
- (#{f 4636}#
- (cdr #{x* 4637}#)))))
- (let ((#{tmp 4644}#
+ ((#{f 4650}#
+ (lambda (#{x* 4651}#)
+ (if (null? #{x* 4651}#)
+ (#{emit 4448}# #{y 4647}#)
+ (let ((#{tmp 4657}#
+ (list (#{emit 4448}#
+ (car #{x* 4651}#))
+ (#{f 4650}#
+ (cdr #{x* 4651}#)))))
+ (let ((#{tmp 4658}#
($sc-dispatch
- #{tmp 4643}#
+ #{tmp 4657}#
'(any any))))
- (if #{tmp 4644}#
+ (if #{tmp 4658}#
(@apply
- (lambda (#{ g4640 4647}#
- #{ g4639 4648}#)
+ (lambda (#{ g4654 4661}#
+ #{ g4653 4662}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4640}#
- #{ g4639}#)
- #((m4641 top)
- (m4641 top))
- #("i4645" "i4646"))
+ #(#{ g4654}#
+ #{ g4653}#)
+ #((m4655 top)
+ (m4655 top))
+ #("i4659" "i4660"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i4634" "i4635"))
+ #("i4648" "i4649"))
#(ribcage
#(x y)
#((top) (top))
- #("i4630" "i4631"))
+ #("i4644" "i4645"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4612"))
+ #("i4626"))
#(ribcage
(emit quasivector
quasilist*
@@ -17183,56 +17183,56 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{ g4640 4647}#
- #{ g4639 4648}#))
- #{tmp 4644}#)
+ #{ g4654 4661}#
+ #{ g4653 4662}#))
+ #{tmp 4658}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4643}#))))))))
- (begin (#{f 4636}# #{x 4632}#))))
- #{tmp 4629}#)
- (let ((#{tmp 4649}#
+ #{tmp 4657}#))))))))
+ (begin (#{f 4650}# #{x 4646}#))))
+ #{tmp 4643}#)
+ (let ((#{tmp 4663}#
($sc-dispatch
- #{tmp 4613}#
+ #{tmp 4627}#
'(#(atom "append") . each-any))))
- (if #{tmp 4649}#
+ (if #{tmp 4663}#
(@apply
- (lambda (#{x 4651}#)
- (let ((#{tmp 4655}#
- (map #{emit 4434}# #{x 4651}#)))
- (let ((#{tmp 4656}#
+ (lambda (#{x 4665}#)
+ (let ((#{tmp 4669}#
+ (map #{emit 4448}# #{x 4665}#)))
+ (let ((#{tmp 4670}#
($sc-dispatch
- #{tmp 4655}#
+ #{tmp 4669}#
'each-any)))
- (if #{tmp 4656}#
+ (if #{tmp 4670}#
(@apply
- (lambda (#{ g4652 4658}#)
+ (lambda (#{ g4666 4672}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4652}#)
- #((m4653 top))
- #("i4657"))
+ #(#{ g4666}#)
+ #((m4667 top))
+ #("i4671"))
#(ribcage
#(x)
#((top))
- #("i4650"))
+ #("i4664"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4612"))
+ #("i4626"))
#(ribcage
(emit quasivector
quasilist*
@@ -17247,54 +17247,54 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{ g4652 4658}#))
- #{tmp 4656}#)
+ #{ g4666 4672}#))
+ #{tmp 4670}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4655}#)))))
- #{tmp 4649}#)
- (let ((#{tmp 4661}#
+ #{tmp 4669}#)))))
+ #{tmp 4663}#)
+ (let ((#{tmp 4675}#
($sc-dispatch
- #{tmp 4613}#
+ #{tmp 4627}#
'(#(atom "vector") . each-any))))
- (if #{tmp 4661}#
+ (if #{tmp 4675}#
(@apply
- (lambda (#{x 4663}#)
- (let ((#{tmp 4667}#
- (map #{emit 4434}# #{x 4663}#)))
- (let ((#{tmp 4668}#
+ (lambda (#{x 4677}#)
+ (let ((#{tmp 4681}#
+ (map #{emit 4448}# #{x 4677}#)))
+ (let ((#{tmp 4682}#
($sc-dispatch
- #{tmp 4667}#
+ #{tmp 4681}#
'each-any)))
- (if #{tmp 4668}#
+ (if #{tmp 4682}#
(@apply
- (lambda (#{ g4664 4670}#)
+ (lambda (#{ g4678 4684}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4664}#)
- #((m4665 top))
- #("i4669"))
+ #(#{ g4678}#)
+ #((m4679 top))
+ #("i4683"))
#(ribcage
#(x)
#((top))
- #("i4662"))
+ #("i4676"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4612"))
+ #("i4626"))
#(ribcage
(emit quasivector
quasilist*
@@ -17309,49 +17309,49 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{ g4664 4670}#))
- #{tmp 4668}#)
+ #{ g4678 4684}#))
+ #{tmp 4682}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4667}#)))))
- #{tmp 4661}#)
- (let ((#{tmp 4673}#
+ #{tmp 4681}#)))))
+ #{tmp 4675}#)
+ (let ((#{tmp 4687}#
($sc-dispatch
- #{tmp 4613}#
+ #{tmp 4627}#
'(#(atom "list->vector") any))))
- (if #{tmp 4673}#
+ (if #{tmp 4687}#
(@apply
- (lambda (#{x 4675}#)
- (let ((#{tmp 4679}#
- (#{emit 4434}# #{x 4675}#)))
- (let ((#{ g4676 4681}#
- #{tmp 4679}#))
+ (lambda (#{x 4689}#)
+ (let ((#{tmp 4693}#
+ (#{emit 4448}# #{x 4689}#)))
+ (let ((#{ g4690 4695}#
+ #{tmp 4693}#))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4676}#)
- #((m4677 top))
- #("i4680"))
+ #(#{ g4690}#)
+ #((m4691 top))
+ #("i4694"))
#(ribcage
#(x)
#((top))
- #("i4674"))
+ #("i4688"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4612"))
+ #("i4626"))
#(ribcage
(emit quasivector
quasilist*
@@ -17366,83 +17366,83 @@
(top)
(top)
(top))
- ("i4433"
- "i4431"
- "i4429"
- "i4427"
- "i4425"
- "i4423"
- "i4421")))
+ ("i4447"
+ "i4445"
+ "i4443"
+ "i4441"
+ "i4439"
+ "i4437"
+ "i4435")))
(hygiene guile))
- #{ g4676 4681}#))))
- #{tmp 4673}#)
- (let ((#{tmp 4682}#
+ #{ g4690 4695}#))))
+ #{tmp 4687}#)
+ (let ((#{tmp 4696}#
($sc-dispatch
- #{tmp 4613}#
+ #{tmp 4627}#
'(#(atom "value") any))))
- (if #{tmp 4682}#
+ (if #{tmp 4696}#
(@apply
- (lambda (#{x 4684}#) #{x 4684}#)
- #{tmp 4682}#)
+ (lambda (#{x 4698}#) #{x 4698}#)
+ #{tmp 4696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4613}#)))))))))))))))))))
+ #{tmp 4627}#)))))))))))))))))))
(begin
- (lambda (#{x 4685}#)
- (let ((#{tmp 4687}# #{x 4685}#))
- (let ((#{tmp 4688}#
- ($sc-dispatch #{tmp 4687}# '(_ any))))
- (if #{tmp 4688}#
+ (lambda (#{x 4699}#)
+ (let ((#{tmp 4701}# #{x 4699}#))
+ (let ((#{tmp 4702}#
+ ($sc-dispatch #{tmp 4701}# '(_ any))))
+ (if #{tmp 4702}#
(@apply
- (lambda (#{e 4690}#)
- (#{emit 4434}# (#{quasi 4422}# #{e 4690}# 0)))
- #{tmp 4688}#)
+ (lambda (#{e 4704}#)
+ (#{emit 4448}# (#{quasi 4436}# #{e 4704}# 0)))
+ #{tmp 4702}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4687}#)))))))))
+ #{tmp 4701}#)))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 4691}#)
+ (lambda (#{x 4705}#)
(letrec*
- ((#{read-file 4694}#
- (lambda (#{fn 4695}# #{k 4696}#)
+ ((#{read-file 4708}#
+ (lambda (#{fn 4709}# #{k 4710}#)
(begin
- (let ((#{p 4700}# (open-input-file #{fn 4695}#)))
+ (let ((#{p 4714}# (open-input-file #{fn 4709}#)))
(letrec*
- ((#{f 4704}#
- (lambda (#{x 4705}# #{result 4706}#)
- (if (eof-object? #{x 4705}#)
+ ((#{f 4718}#
+ (lambda (#{x 4719}# #{result 4720}#)
+ (if (eof-object? #{x 4719}#)
(begin
- (close-input-port #{p 4700}#)
- (reverse #{result 4706}#))
- (#{f 4704}#
- (read #{p 4700}#)
- (cons (datum->syntax #{k 4696}# #{x 4705}#)
- #{result 4706}#))))))
- (begin (#{f 4704}# (read #{p 4700}#) '()))))))))
+ (close-input-port #{p 4714}#)
+ (reverse #{result 4720}#))
+ (#{f 4718}#
+ (read #{p 4714}#)
+ (cons (datum->syntax #{k 4710}# #{x 4719}#)
+ #{result 4720}#))))))
+ (begin (#{f 4718}# (read #{p 4714}#) '()))))))))
(begin
- (let ((#{tmp 4707}# #{x 4691}#))
- (let ((#{tmp 4708}#
- ($sc-dispatch #{tmp 4707}# '(any any))))
- (if #{tmp 4708}#
+ (let ((#{tmp 4721}# #{x 4705}#))
+ (let ((#{tmp 4722}#
+ ($sc-dispatch #{tmp 4721}# '(any any))))
+ (if #{tmp 4722}#
(@apply
- (lambda (#{k 4711}# #{filename 4712}#)
+ (lambda (#{k 4725}# #{filename 4726}#)
(begin
- (let ((#{fn 4714}# (syntax->datum #{filename 4712}#)))
- (let ((#{tmp 4716}#
- (#{read-file 4694}#
- #{fn 4714}#
- #{filename 4712}#)))
- (let ((#{tmp 4717}#
- ($sc-dispatch #{tmp 4716}# 'each-any)))
- (if #{tmp 4717}#
+ (let ((#{fn 4728}# (syntax->datum #{filename 4726}#)))
+ (let ((#{tmp 4730}#
+ (#{read-file 4708}#
+ #{fn 4728}#
+ #{filename 4726}#)))
+ (let ((#{tmp 4731}#
+ ($sc-dispatch #{tmp 4730}# 'each-any)))
+ (if #{tmp 4731}#
(@apply
- (lambda (#{exp 4719}#)
+ (lambda (#{exp 4733}#)
(cons '#(syntax-object
begin
((top)
@@ -17450,129 +17450,129 @@
#(ribcage
#(exp)
#((top))
- #("i4718"))
+ #("i4732"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4713"))
+ #("i4727"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4709" "i4710"))
+ #("i4723" "i4724"))
#(ribcage
(read-file)
((top))
- ("i4693"))
+ ("i4707"))
#(ribcage
#(x)
#((top))
- #("i4692")))
+ #("i4706")))
(hygiene guile))
- #{exp 4719}#))
- #{tmp 4717}#)
+ #{exp 4733}#))
+ #{tmp 4731}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4716}#)))))))
- #{tmp 4708}#)
+ #{tmp 4730}#)))))))
+ #{tmp 4722}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4707}#)))))))))
+ #{tmp 4721}#)))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 4721}#)
- (let ((#{tmp 4723}# #{x 4721}#))
- (let ((#{tmp 4724}#
- ($sc-dispatch #{tmp 4723}# '(any any))))
- (if #{tmp 4724}#
+ (lambda (#{x 4735}#)
+ (let ((#{tmp 4737}# #{x 4735}#))
+ (let ((#{tmp 4738}#
+ ($sc-dispatch #{tmp 4737}# '(any any))))
+ (if #{tmp 4738}#
(@apply
- (lambda (#{k 4727}# #{filename 4728}#)
+ (lambda (#{k 4741}# #{filename 4742}#)
(begin
- (let ((#{fn 4730}# (syntax->datum #{filename 4728}#)))
- (let ((#{tmp 4732}#
+ (let ((#{fn 4744}# (syntax->datum #{filename 4742}#)))
+ (let ((#{tmp 4746}#
(datum->syntax
- #{filename 4728}#
+ #{filename 4742}#
(begin
- (let ((#{t 4737}#
- (%search-load-path #{fn 4730}#)))
- (if #{t 4737}#
- #{t 4737}#
+ (let ((#{t 4751}#
+ (%search-load-path #{fn 4744}#)))
+ (if #{t 4751}#
+ #{t 4751}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 4721}#
- #{filename 4728}#)))))))
- (let ((#{fn 4734}# #{tmp 4732}#))
+ #{x 4735}#
+ #{filename 4742}#)))))))
+ (let ((#{fn 4748}# #{tmp 4746}#))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4733"))
+ #(ribcage #(fn) #((top)) #("i4747"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4729"))
+ #(ribcage #(fn) #((top)) #("i4743"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4725" "i4726"))
+ #("i4739" "i4740"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4722")))
+ #(ribcage #(x) #((top)) #("i4736")))
(hygiene guile))
- #{fn 4734}#))))))
- #{tmp 4724}#)
+ #{fn 4748}#))))))
+ #{tmp 4738}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4723}#)))))))
+ #{tmp 4737}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 4739}#)
+ (lambda (#{x 4753}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 4739}#))))
+ #{x 4753}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 4741}#)
+ (lambda (#{x 4755}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 4741}#))))
+ #{x 4755}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 4743}#)
- (let ((#{tmp 4745}# #{x 4743}#))
- (let ((#{tmp 4746}#
+ (lambda (#{x 4757}#)
+ (let ((#{tmp 4759}# #{x 4757}#))
+ (let ((#{tmp 4760}#
($sc-dispatch
- #{tmp 4745}#
+ #{tmp 4759}#
'(_ any any . each-any))))
- (if #{tmp 4746}#
+ (if #{tmp 4760}#
(@apply
- (lambda (#{e 4750}# #{m1 4751}# #{m2 4752}#)
- (let ((#{tmp 4754}#
+ (lambda (#{e 4764}# #{m1 4765}# #{m2 4766}#)
+ (let ((#{tmp 4768}#
(letrec*
- ((#{f 4760}#
- (lambda (#{clause 4761}# #{clauses 4762}#)
- (if (null? #{clauses 4762}#)
- (let ((#{tmp 4764}# #{clause 4761}#))
- (let ((#{tmp 4765}#
+ ((#{f 4774}#
+ (lambda (#{clause 4775}# #{clauses 4776}#)
+ (if (null? #{clauses 4776}#)
+ (let ((#{tmp 4778}# #{clause 4775}#))
+ (let ((#{tmp 4779}#
($sc-dispatch
- #{tmp 4764}#
+ #{tmp 4778}#
'(#(free-id
#(syntax-object
else
@@ -17581,92 +17581,92 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 4765}#
+ (if #{tmp 4779}#
(@apply
- (lambda (#{e1 4768}# #{e2 4769}#)
+ (lambda (#{e1 4782}# #{e2 4783}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4766" "i4767"))
+ #("i4780" "i4781"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
- (cons #{e1 4768}#
- #{e2 4769}#)))
- #{tmp 4765}#)
- (let ((#{tmp 4771}#
+ (cons #{e1 4782}#
+ #{e2 4783}#)))
+ #{tmp 4779}#)
+ (let ((#{tmp 4785}#
($sc-dispatch
- #{tmp 4764}#
+ #{tmp 4778}#
'(each-any any . each-any))))
- (if #{tmp 4771}#
+ (if #{tmp 4785}#
(@apply
- (lambda (#{k 4775}#
- #{e1 4776}#
- #{e2 4777}#)
+ (lambda (#{k 4789}#
+ #{e1 4790}#
+ #{e2 4791}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4772"
- "i4773"
- "i4774"))
+ #("i4786"
+ "i4787"
+ "i4788"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -17676,9 +17676,9 @@
#((top)
(top)
(top))
- #("i4772"
- "i4773"
- "i4774"))
+ #("i4786"
+ "i4787"
+ "i4788"))
#(ribcage
()
()
@@ -17690,17 +17690,17 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -17708,7 +17708,7 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
'#(syntax-object
t
@@ -17718,9 +17718,9 @@
#((top)
(top)
(top))
- #("i4772"
- "i4773"
- "i4774"))
+ #("i4786"
+ "i4787"
+ "i4788"))
#(ribcage
()
()
@@ -17732,17 +17732,17 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -17750,7 +17750,7 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -17762,9 +17762,9 @@
#((top)
(top)
(top))
- #("i4772"
- "i4773"
- "i4774"))
+ #("i4786"
+ "i4787"
+ "i4788"))
#(ribcage
()
()
@@ -17776,9 +17776,9 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e
m1
@@ -17786,9 +17786,9 @@
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -17796,10 +17796,10 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene
guile))
- #{k 4775}#))
+ #{k 4789}#))
(cons '#(syntax-object
begin
((top)
@@ -17808,9 +17808,9 @@
#((top)
(top)
(top))
- #("i4772"
- "i4773"
- "i4774"))
+ #("i4786"
+ "i4787"
+ "i4788"))
#(ribcage
()
()
@@ -17822,17 +17822,17 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -17840,64 +17840,64 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
- (cons #{e1 4776}#
- #{e2 4777}#))))
- #{tmp 4771}#)
- (let ((#{_ 4781}# #{tmp 4764}#))
+ (cons #{e1 4790}#
+ #{e2 4791}#))))
+ #{tmp 4785}#)
+ (let ((#{_ 4795}# #{tmp 4778}#))
(syntax-violation
'case
"bad clause"
- #{x 4743}#
- #{clause 4761}#)))))))
- (let ((#{tmp 4783}#
- (#{f 4760}#
- (car #{clauses 4762}#)
- (cdr #{clauses 4762}#))))
- (let ((#{rest 4785}# #{tmp 4783}#))
- (let ((#{tmp 4786}# #{clause 4761}#))
- (let ((#{tmp 4787}#
+ #{x 4757}#
+ #{clause 4775}#)))))))
+ (let ((#{tmp 4797}#
+ (#{f 4774}#
+ (car #{clauses 4776}#)
+ (cdr #{clauses 4776}#))))
+ (let ((#{rest 4799}# #{tmp 4797}#))
+ (let ((#{tmp 4800}# #{clause 4775}#))
+ (let ((#{tmp 4801}#
($sc-dispatch
- #{tmp 4786}#
+ #{tmp 4800}#
'(each-any any . each-any))))
- (if #{tmp 4787}#
+ (if #{tmp 4801}#
(@apply
- (lambda (#{k 4791}#
- #{e1 4792}#
- #{e2 4793}#)
+ (lambda (#{k 4805}#
+ #{e1 4806}#
+ #{e2 4807}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4788"
- "i4789"
- "i4790"))
+ #("i4802"
+ "i4803"
+ "i4804"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i4784"))
+ #("i4798"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -17907,9 +17907,9 @@
#((top)
(top)
(top))
- #("i4788"
- "i4789"
- "i4790"))
+ #("i4802"
+ "i4803"
+ "i4804"))
#(ribcage
()
()
@@ -17917,7 +17917,7 @@
#(ribcage
#(rest)
#((top))
- #("i4784"))
+ #("i4798"))
#(ribcage
()
()
@@ -17929,17 +17929,17 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -17947,7 +17947,7 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
'#(syntax-object
t
@@ -17957,9 +17957,9 @@
#((top)
(top)
(top))
- #("i4788"
- "i4789"
- "i4790"))
+ #("i4802"
+ "i4803"
+ "i4804"))
#(ribcage
()
()
@@ -17967,7 +17967,7 @@
#(ribcage
#(rest)
#((top))
- #("i4784"))
+ #("i4798"))
#(ribcage
()
()
@@ -17979,17 +17979,17 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -17997,7 +17997,7 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -18009,9 +18009,9 @@
#((top)
(top)
(top))
- #("i4788"
- "i4789"
- "i4790"))
+ #("i4802"
+ "i4803"
+ "i4804"))
#(ribcage
()
()
@@ -18019,7 +18019,7 @@
#(ribcage
#(rest)
#((top))
- #("i4784"))
+ #("i4798"))
#(ribcage
()
()
@@ -18031,9 +18031,9 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e
m1
@@ -18041,9 +18041,9 @@
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -18051,10 +18051,10 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene
guile))
- #{k 4791}#))
+ #{k 4805}#))
(cons '#(syntax-object
begin
((top)
@@ -18063,9 +18063,9 @@
#((top)
(top)
(top))
- #("i4788"
- "i4789"
- "i4790"))
+ #("i4802"
+ "i4803"
+ "i4804"))
#(ribcage
()
()
@@ -18073,7 +18073,7 @@
#(ribcage
#(rest)
#((top))
- #("i4784"))
+ #("i4798"))
#(ribcage
()
()
@@ -18085,17 +18085,17 @@
#((top)
(top)
(top))
- #("i4757"
- "i4758"
- "i4759"))
+ #("i4771"
+ "i4772"
+ "i4773"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4747"
- "i4748"
- "i4749"))
+ #("i4761"
+ "i4762"
+ "i4763"))
#(ribcage
()
()
@@ -18103,31 +18103,31 @@
#(ribcage
#(x)
#((top))
- #("i4744")))
+ #("i4758")))
(hygiene guile))
- (cons #{e1 4792}#
- #{e2 4793}#))
- #{rest 4785}#))
- #{tmp 4787}#)
- (let ((#{_ 4797}# #{tmp 4786}#))
+ (cons #{e1 4806}#
+ #{e2 4807}#))
+ #{rest 4799}#))
+ #{tmp 4801}#)
+ (let ((#{_ 4811}# #{tmp 4800}#))
(syntax-violation
'case
"bad clause"
- #{x 4743}#
- #{clause 4761}#)))))))))))
- (begin (#{f 4760}# #{m1 4751}# #{m2 4752}#)))))
- (let ((#{body 4756}# #{tmp 4754}#))
+ #{x 4757}#
+ #{clause 4775}#)))))))))))
+ (begin (#{f 4774}# #{m1 4765}# #{m2 4766}#)))))
+ (let ((#{body 4770}# #{tmp 4768}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i4755"))
+ #(ribcage #(body) #((top)) #("i4769"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4747" "i4748" "i4749"))
+ #("i4761" "i4762" "i4763"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4744")))
+ #(ribcage #(x) #((top)) #("i4758")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -18136,176 +18136,176 @@
#(ribcage
#(body)
#((top))
- #("i4755"))
+ #("i4769"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4747" "i4748" "i4749"))
+ #("i4761" "i4762" "i4763"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4744")))
+ #(ribcage #(x) #((top)) #("i4758")))
(hygiene guile))
- #{e 4750}#))
- #{body 4756}#))))
- #{tmp 4746}#)
+ #{e 4764}#))
+ #{body 4770}#))))
+ #{tmp 4760}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4745}#)))))))
+ #{tmp 4759}#)))))))
(define make-variable-transformer
- (lambda (#{proc 4798}#)
- (if (procedure? #{proc 4798}#)
+ (lambda (#{proc 4812}#)
+ (if (procedure? #{proc 4812}#)
(begin
(letrec*
- ((#{trans 4801}#
- (lambda (#{x 4802}#) (#{proc 4798}# #{x 4802}#))))
+ ((#{trans 4815}#
+ (lambda (#{x 4816}#) (#{proc 4812}# #{x 4816}#))))
(begin
(set-procedure-property!
- #{trans 4801}#
+ #{trans 4815}#
'variable-transformer
#t)
- #{trans 4801}#)))
+ #{trans 4815}#)))
(error "variable transformer not a procedure"
- #{proc 4798}#))))
+ #{proc 4812}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 4804}#)
- (let ((#{tmp 4806}# #{x 4804}#))
- (let ((#{tmp 4807}#
- ($sc-dispatch #{tmp 4806}# '(_ any))))
- (if #{tmp 4807}#
+ (lambda (#{x 4818}#)
+ (let ((#{tmp 4820}# #{x 4818}#))
+ (let ((#{tmp 4821}#
+ ($sc-dispatch #{tmp 4820}# '(_ any))))
+ (if #{tmp 4821}#
(@apply
- (lambda (#{e 4809}#)
+ (lambda (#{e 4823}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
- #{e 4809}#))
+ #{e 4823}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4808"))
+ #(ribcage #(e) #((top)) #("i4822"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
- (cons #{e 4809}#
+ (cons #{e 4823}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4808"))
+ #("i4822"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
#(syntax-object
...
@@ -18313,55 +18313,55 @@
#(ribcage
#(e)
#((top))
- #("i4808"))
+ #("i4822"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile)))))))))
- #{tmp 4807}#)
- (let ((#{tmp 4810}#
+ #{tmp 4821}#)
+ (let ((#{tmp 4824}#
($sc-dispatch
- #{tmp 4806}#
+ #{tmp 4820}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 4810}#
+ (if (if #{tmp 4824}#
(@apply
- (lambda (#{id 4816}#
- #{exp1 4817}#
- #{var 4818}#
- #{val 4819}#
- #{exp2 4820}#)
- (if (identifier? #{id 4816}#)
- (identifier? #{var 4818}#)
+ (lambda (#{id 4830}#
+ #{exp1 4831}#
+ #{var 4832}#
+ #{val 4833}#
+ #{exp2 4834}#)
+ (if (identifier? #{id 4830}#)
+ (identifier? #{var 4832}#)
#f))
- #{tmp 4810}#)
+ #{tmp 4824}#)
#f)
(@apply
- (lambda (#{id 4828}#
- #{exp1 4829}#
- #{var 4830}#
- #{val 4831}#
- #{exp2 4832}#)
+ (lambda (#{id 4842}#
+ #{exp1 4843}#
+ #{var 4844}#
+ #{val 4845}#
+ #{exp2 4846}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823" "i4824" "i4825" "i4826" "i4827"))
+ #("i4837" "i4838" "i4839" "i4840" "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -18369,13 +18369,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
'(#(syntax-object
x
@@ -18383,13 +18383,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -18397,13 +18397,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
.
#(syntax-object
@@ -18412,13 +18412,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -18426,13 +18426,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
'#(syntax-object
x
@@ -18440,13 +18440,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
'(#(syntax-object
set!
@@ -18454,13 +18454,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4805")))
+ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -18472,19 +18472,19 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
- #{var 4830}#
- #{val 4831}#)
+ #{var 4844}#
+ #{val 4845}#)
(list '#(syntax-object
syntax
((top)
@@ -18495,19 +18495,19 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
- #{exp2 4832}#))
- (list (cons #{id 4828}#
+ #{exp2 4846}#))
+ (list (cons #{id 4842}#
'(#(syntax-object
x
((top)
@@ -18522,16 +18522,16 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
#(syntax-object
...
@@ -18547,16 +18547,16 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -18568,18 +18568,18 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
- (cons #{exp1 4829}#
+ (cons #{exp1 4843}#
'(#(syntax-object
x
((top)
@@ -18594,11 +18594,11 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage
()
()
@@ -18606,7 +18606,7 @@
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
#(syntax-object
...
@@ -18622,11 +18622,11 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage
()
()
@@ -18634,10 +18634,10 @@
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene
guile))))))
- (list #{id 4828}#
+ (list #{id 4842}#
(list '#(syntax-object
identifier?
((top)
@@ -18648,16 +18648,16 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -18673,18 +18673,18 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
- #{id 4828}#))
+ #{id 4842}#))
(list '#(syntax-object
syntax
((top)
@@ -18695,69 +18695,69 @@
(top)
(top)
(top))
- #("i4823"
- "i4824"
- "i4825"
- "i4826"
- "i4827"))
+ #("i4837"
+ "i4838"
+ "i4839"
+ "i4840"
+ "i4841"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4805")))
+ #("i4819")))
(hygiene guile))
- #{exp1 4829}#))))))
- #{tmp 4810}#)
+ #{exp1 4843}#))))))
+ #{tmp 4824}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4806}#)))))))))
+ #{tmp 4820}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 4833}#)
- (let ((#{tmp 4835}# #{x 4833}#))
- (let ((#{tmp 4836}#
+ (lambda (#{x 4847}#)
+ (let ((#{tmp 4849}# #{x 4847}#))
+ (let ((#{tmp 4850}#
($sc-dispatch
- #{tmp 4835}#
+ #{tmp 4849}#
'(_ (any . any) any . each-any))))
- (if #{tmp 4836}#
+ (if #{tmp 4850}#
(@apply
- (lambda (#{id 4841}#
- #{args 4842}#
- #{b0 4843}#
- #{b1 4844}#)
+ (lambda (#{id 4855}#
+ #{args 4856}#
+ #{b0 4857}#
+ #{b1 4858}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4837" "i4838" "i4839" "i4840"))
+ #("i4851" "i4852" "i4853" "i4854"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4834")))
+ #(ribcage #(x) #((top)) #("i4848")))
(hygiene guile))
- #{id 4841}#
+ #{id 4855}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4837" "i4838" "i4839" "i4840"))
+ #("i4851" "i4852" "i4853" "i4854"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4834")))
+ #(ribcage #(x) #((top)) #("i4848")))
(hygiene guile))
- (cons #{args 4842}#
- (cons #{b0 4843}# #{b1 4844}#)))))
- #{tmp 4836}#)
- (let ((#{tmp 4846}#
- ($sc-dispatch #{tmp 4835}# '(_ any any))))
- (if (if #{tmp 4846}#
+ (cons #{args 4856}#
+ (cons #{b0 4857}# #{b1 4858}#)))))
+ #{tmp 4850}#)
+ (let ((#{tmp 4860}#
+ ($sc-dispatch #{tmp 4849}# '(_ any any))))
+ (if (if #{tmp 4860}#
(@apply
- (lambda (#{id 4849}# #{val 4850}#)
+ (lambda (#{id 4863}# #{val 4864}#)
(identifier?
'#(syntax-object
x
@@ -18765,29 +18765,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i4847" "i4848"))
+ #("i4861" "i4862"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4834")))
+ #(ribcage #(x) #((top)) #("i4848")))
(hygiene guile))))
- #{tmp 4846}#)
+ #{tmp 4860}#)
#f)
(@apply
- (lambda (#{id 4853}# #{val 4854}#)
+ (lambda (#{id 4867}# #{val 4868}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4851" "i4852"))
+ #("i4865" "i4866"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4834")))
+ #(ribcage #(x) #((top)) #("i4848")))
(hygiene guile))
- #{id 4853}#
- #{val 4854}#))
- #{tmp 4846}#)
+ #{id 4867}#
+ #{val 4868}#))
+ #{tmp 4860}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4835}#)))))))))
+ #{tmp 4849}#)))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 873e25a74..40b228c07 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -272,9 +272,8 @@
(lambda (x mod)
(primitive-eval x)))
- (define-syntax gensym-hook
- (syntax-rules ()
- ((_) (gensym))))
+ (define-syntax-rule (gensym-hook)
+ (gensym))
(define put-global-definition-hook
(lambda (symbol type val)
@@ -449,9 +448,8 @@
;; FIXME: use a faster gensym
- (define-syntax build-lexical-var
- (syntax-rules ()
- ((_ src id) (gensym (string-append (symbol->string id) " ")))))
+ (define-syntax-rule (build-lexical-var src id)
+ (gensym (string-append (symbol->string id) " ")))
(define-structure (syntax-object expression wrap module))
@@ -468,11 +466,9 @@
#f)))
(else #f))))
- (define-syntax arg-check
- (syntax-rules ()
- ((_ pred? e who)
- (let ((x e))
- (if (not (pred? x)) (syntax-violation who "invalid argument" x))))))
+ (define-syntax-rule (arg-check pred? e who)
+ (let ((x e))
+ (if (not (pred? x)) (syntax-violation who "invalid argument" x))))
;; compile-time environments
@@ -535,12 +531,10 @@
((_ type value) (cons type value))
((_ 'type) '(type))
((_ type) (cons type '()))))
- (define-syntax binding-type
- (syntax-rules ()
- ((_ x) (car x))))
- (define-syntax binding-value
- (syntax-rules ()
- ((_ x) (cdr x))))
+ (define-syntax-rule (binding-type x)
+ (car x))
+ (define-syntax-rule (binding-value x)
+ (cdr x))
(define-syntax null-env (identifier-syntax '()))
@@ -605,13 +599,11 @@
((syntax-object? x) (symbol? (syntax-object-expression x)))
(else #f))))
- (define-syntax id-sym-name
- (syntax-rules ()
- ((_ e)
- (let ((x e))
- (if (syntax-object? x)
- (syntax-object-expression x)
- x)))))
+ (define-syntax-rule (id-sym-name e)
+ (let ((x e))
+ (if (syntax-object? x)
+ (syntax-object-expression x)
+ x)))
(define id-sym-name&marks
(lambda (x w)
@@ -633,12 +625,11 @@
(define-syntax wrap-subst (identifier-syntax cdr))
(define-syntax subst-rename? (identifier-syntax vector?))
- (define-syntax rename-old (syntax-rules () ((_ x) (vector-ref x 0))))
- (define-syntax rename-new (syntax-rules () ((_ x) (vector-ref x 1))))
- (define-syntax rename-marks (syntax-rules () ((_ x) (vector-ref x 2))))
- (define-syntax make-rename
- (syntax-rules ()
- ((_ old new marks) (vector old new marks))))
+ (define-syntax-rule (rename-old x) (vector-ref x 0))
+ (define-syntax-rule (rename-new x) (vector-ref x 1))
+ (define-syntax-rule (rename-marks x) (vector-ref x 2))
+ (define-syntax-rule (make-rename old new marks)
+ (vector old new marks))
;; labels must be comparable with "eq?", have read-write invariance,
;; and distinct from symbols.
@@ -657,9 +648,8 @@
(define-syntax top-wrap (identifier-syntax '((top))))
- (define-syntax top-marked?
- (syntax-rules ()
- ((_ w) (memq 'top (wrap-marks w)))))
+ (define-syntax-rule (top-marked? w)
+ (memq 'top (wrap-marks w)))
;; Marks must be comparable with "eq?" and distinct from pairs and
;; the symbol top. We do not use integers so that marks will remain
@@ -672,15 +662,13 @@
(make-wrap (cons the-anti-mark (wrap-marks w))
(cons 'shift (wrap-subst w)))))
- (define-syntax new-mark
- (syntax-rules ()
- ((_) (gensym "m"))))
+ (define-syntax-rule (new-mark)
+ (gensym "m"))
;; make-empty-ribcage and extend-ribcage maintain list-based ribcages for
;; internal definitions, in which the ribcages are built incrementally
- (define-syntax make-empty-ribcage
- (syntax-rules ()
- ((_) (make-ribcage '() '() '()))))
+ (define-syntax-rule (make-empty-ribcage)
+ (make-ribcage '() '() '()))
(define extend-ribcage!
;; must receive ids with complete wraps
@@ -749,10 +737,9 @@
(define id-var-name
(lambda (id w)
- (define-syntax first
- (syntax-rules ()
- ;; Rely on Guile's multiple-values truncation.
- ((_ e) e)))
+ (define-syntax-rule (first e)
+ ;; Rely on Guile's multiple-values truncation.
+ e)
(define search
(lambda (sym subst marks)
(if (null? subst)