summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-10-10 13:01:54 +0200
committerAndy Wingo <wingo@pobox.com>2011-10-10 14:43:37 +0200
commit34c5fe83c021eb27c5bdff0f1328c733a7cb45b4 (patch)
tree6039f9719e933ca414d49a57ba0072e5b6f50b0d
parent4bf9e92875973b8997b2876218b6bd595fbf1952 (diff)
downloadguile-34c5fe83c021eb27c5bdff0f1328c733a7cb45b4.tar.gz
regenerate psyntax-pp.scm
* module/ice-9/psyntax-pp.scm: Regenerate, now with inlined letrec bindings. Whee!!
-rw-r--r--module/ice-9/psyntax-pp.scm39401
1 files changed, 24426 insertions, 14975 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 30c77510d..de8320943 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,3863 +2,11154 @@
(if #f #f)
(letrec*
- ((#{make-void 208}#
- (lambda (#{src 779}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #{src 779}#)))
- (#{make-const 210}#
- (lambda (#{src 781}# #{exp 782}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{src 781}#
- #{exp 782}#)))
- (#{make-lexical-ref 214}#
- (lambda (#{src 789}# #{name 790}# #{gensym 791}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #{src 789}#
- #{name 790}#
- #{gensym 791}#)))
- (#{make-lexical-set 216}#
- (lambda (#{src 795}#
- #{name 796}#
- #{gensym 797}#
- #{exp 798}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 4)
- #{src 795}#
- #{name 796}#
- #{gensym 797}#
- #{exp 798}#)))
- (#{make-module-ref 218}#
- (lambda (#{src 803}#
- #{mod 804}#
- #{name 805}#
- #{public? 806}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #{src 803}#
- #{mod 804}#
- #{name 805}#
- #{public? 806}#)))
- (#{make-module-set 220}#
- (lambda (#{src 811}#
- #{mod 812}#
- #{name 813}#
- #{public? 814}#
- #{exp 815}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 6)
- #{src 811}#
- #{mod 812}#
- #{name 813}#
- #{public? 814}#
- #{exp 815}#)))
- (#{make-toplevel-ref 222}#
- (lambda (#{src 821}# #{name 822}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #{src 821}#
- #{name 822}#)))
- (#{make-toplevel-set 224}#
- (lambda (#{src 825}# #{name 826}# #{exp 827}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 8)
- #{src 825}#
- #{name 826}#
- #{exp 827}#)))
- (#{make-toplevel-define 226}#
- (lambda (#{src 831}# #{name 832}# #{exp 833}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 9)
- #{src 831}#
- #{name 832}#
- #{exp 833}#)))
- (#{make-conditional 228}#
- (lambda (#{src 837}#
- #{test 838}#
- #{consequent 839}#
- #{alternate 840}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #{src 837}#
- #{test 838}#
- #{consequent 839}#
- #{alternate 840}#)))
- (#{make-application 230}#
- (lambda (#{src 845}# #{proc 846}# #{args 847}#)
+ ((#{top-level-eval-hook 4273}#
+ (lambda (#{x 28142}# #{mod 28143}#)
+ (primitive-eval #{x 28142}#)))
+ (#{maybe-name-value! 4278}#
+ (lambda (#{name 16638}# #{val 16639}#)
+ (if (if (struct? #{val 16639}#)
+ (eq? (struct-vtable #{val 16639}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 16646}# (struct-ref #{val 16639}# 1)))
+ (if (not (assq 'name #{meta 16646}#))
+ (let ((#{v 16651}#
+ (cons (cons 'name #{name 16638}#) #{meta 16646}#)))
+ (struct-set! #{val 16639}# 1 #{v 16651}#)))))))
+ (#{build-application 4280}#
+ (lambda (#{source 16363}#
+ #{fun-exp 16364}#
+ #{arg-exps 16365}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 845}#
- #{proc 846}#
- #{args 847}#)))
- (#{make-sequence 232}#
- (lambda (#{src 851}# #{exps 852}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 12)
- #{src 851}#
- #{exps 852}#)))
- (#{make-lambda 234}#
- (lambda (#{src 855}# #{meta 856}# #{body 857}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{src 855}#
- #{meta 856}#
- #{body 857}#)))
- (#{make-lambda-case 236}#
- (lambda (#{src 861}#
- #{req 862}#
- #{opt 863}#
- #{rest 864}#
- #{kw 865}#
- #{inits 866}#
- #{gensyms 867}#
- #{body 868}#
- #{alternate 869}#)
+ #{source 16363}#
+ #{fun-exp 16364}#
+ #{arg-exps 16365}#)))
+ (#{build-conditional 4281}#
+ (lambda (#{source 16371}#
+ #{test-exp 16372}#
+ #{then-exp 16373}#
+ #{else-exp 16374}#)
(make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #{src 861}#
- #{req 862}#
- #{opt 863}#
- #{rest 864}#
- #{kw 865}#
- #{inits 866}#
- #{gensyms 867}#
- #{body 868}#
- #{alternate 869}#)))
- (#{make-let 238}#
- (lambda (#{src 879}#
- #{names 880}#
- #{gensyms 881}#
- #{vals 882}#
- #{body 883}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 15)
- #{src 879}#
- #{names 880}#
- #{gensyms 881}#
- #{vals 882}#
- #{body 883}#)))
- (#{make-letrec 240}#
- (lambda (#{src 889}#
- #{in-order? 890}#
- #{names 891}#
- #{gensyms 892}#
- #{vals 893}#
- #{body 894}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 16)
- #{src 889}#
- #{in-order? 890}#
- #{names 891}#
- #{gensyms 892}#
- #{vals 893}#
- #{body 894}#)))
- (#{make-dynlet 242}#
- (lambda (#{src 901}#
- #{fluids 902}#
- #{vals 903}#
- #{body 904}#)
+ (vector-ref %expanded-vtables 10)
+ #{source 16371}#
+ #{test-exp 16372}#
+ #{then-exp 16373}#
+ #{else-exp 16374}#)))
+ (#{build-dynlet 4282}#
+ (lambda (#{source 16381}#
+ #{fluids 16382}#
+ #{vals 16383}#
+ #{body 16384}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 901}#
- #{fluids 902}#
- #{vals 903}#
- #{body 904}#)))
- (#{lambda? 245}#
- (lambda (#{x 909}#)
- (if (struct? #{x 909}#)
- (eq? (struct-vtable #{x 909}#)
- (vector-ref %expanded-vtables 13))
- #f)))
- (#{lambda-meta 247}#
- (lambda (#{x 913}#) (struct-ref #{x 913}# 1)))
- (#{set-lambda-meta! 249}#
- (lambda (#{x 915}# #{v 916}#)
- (struct-set! #{x 915}# 1 #{v 916}#)))
- (#{top-level-eval-hook 255}#
- (lambda (#{x 919}# #{mod 920}#)
- (primitive-eval #{x 919}#)))
- (#{local-eval-hook 257}#
- (lambda (#{x 923}# #{mod 924}#)
- (primitive-eval #{x 923}#)))
- (#{put-global-definition-hook 261}#
- (lambda (#{symbol 927}# #{type 928}# #{val 929}#)
- (module-define!
- (current-module)
- #{symbol 927}#
- (make-syntax-transformer
- #{symbol 927}#
- #{type 928}#
- #{val 929}#))))
- (#{get-global-definition-hook 263}#
- (lambda (#{symbol 933}# #{module 934}#)
+ #{source 16381}#
+ #{fluids 16382}#
+ #{vals 16383}#
+ #{body 16384}#)))
+ (#{build-lexical-reference 4283}#
+ (lambda (#{type 28144}#
+ #{source 28145}#
+ #{name 28146}#
+ #{var 28147}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{source 28145}#
+ #{name 28146}#
+ #{var 28147}#)))
+ (#{build-lexical-assignment 4284}#
+ (lambda (#{source 16391}#
+ #{name 16392}#
+ #{var 16393}#
+ #{exp 16394}#)
(begin
- (if (if (not #{module 934}#) (current-module) #f)
- (warn "module system is booted, we should have a module"
- #{symbol 933}#))
- (let ((#{v 940}# (module-variable
- (if #{module 934}#
- (resolve-module (cdr #{module 934}#))
- (current-module))
- #{symbol 933}#)))
- (if #{v 940}#
- (if (variable-bound? #{v 940}#)
- (let ((#{val 945}# (variable-ref #{v 940}#)))
- (if (macro? #{val 945}#)
- (if (macro-type #{val 945}#)
- (cons (macro-type #{val 945}#)
- (macro-binding #{val 945}#))
- #f)
- #f))
+ (if (if (struct? #{exp 16394}#)
+ (eq? (struct-vtable #{exp 16394}#)
+ (vector-ref %expanded-vtables 13))
#f)
- #f)))))
- (#{decorate-source 265}#
- (lambda (#{e 949}# #{s 950}#)
- (begin
- (if (if (pair? #{e 949}#) #{s 950}# #f)
- (set-source-properties! #{e 949}# #{s 950}#))
- #{e 949}#)))
- (#{maybe-name-value! 267}#
- (lambda (#{name 955}# #{val 956}#)
- (if (#{lambda? 245}# #{val 956}#)
- (let ((#{meta 960}# (#{lambda-meta 247}# #{val 956}#)))
- (if (not (assq 'name #{meta 960}#))
- (#{set-lambda-meta! 249}#
- #{val 956}#
- (cons (cons 'name #{name 955}#) #{meta 960}#)))))))
- (#{build-void 269}#
- (lambda (#{source 961}#)
- (#{make-void 208}# #{source 961}#)))
- (#{build-application 271}#
- (lambda (#{source 963}# #{fun-exp 964}# #{arg-exps 965}#)
- (#{make-application 230}#
- #{source 963}#
- #{fun-exp 964}#
- #{arg-exps 965}#)))
- (#{build-conditional 273}#
- (lambda (#{source 969}#
- #{test-exp 970}#
- #{then-exp 971}#
- #{else-exp 972}#)
- (#{make-conditional 228}#
- #{source 969}#
- #{test-exp 970}#
- #{then-exp 971}#
- #{else-exp 972}#)))
- (#{build-lexical-reference 277}#
- (lambda (#{type 985}#
- #{source 986}#
- #{name 987}#
- #{var 988}#)
- (#{make-lexical-ref 214}#
- #{source 986}#
- #{name 987}#
- #{var 988}#)))
- (#{analyze-variable 281}#
- (lambda (#{mod 1001}#
- #{var 1002}#
- #{modref-cont 1003}#
- #{bare-cont 1004}#)
- (if (not #{mod 1001}#)
- (#{bare-cont 1004}# #{var 1002}#)
- (let ((#{kind 1011}# (car #{mod 1001}#))
- (#{mod 1012}# (cdr #{mod 1001}#)))
- (if (memv #{kind 1011}# '(public))
- (#{modref-cont 1003}#
- #{mod 1012}#
- #{var 1002}#
+ (let ((#{meta 16410}# (struct-ref #{exp 16394}# 1)))
+ (if (not (assq 'name #{meta 16410}#))
+ (let ((#{v 16417}#
+ (cons (cons 'name #{name 16392}#) #{meta 16410}#)))
+ (struct-set! #{exp 16394}# 1 #{v 16417}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 4)
+ #{source 16391}#
+ #{name 16392}#
+ #{var 16393}#
+ #{exp 16394}#))))
+ (#{analyze-variable 4285}#
+ (lambda (#{mod 28153}#
+ #{var 28154}#
+ #{modref-cont 28155}#
+ #{bare-cont 28156}#)
+ (if (not #{mod 28153}#)
+ (#{bare-cont 28156}# #{var 28154}#)
+ (let ((#{kind 28157}# (car #{mod 28153}#))
+ (#{mod 28158}# (cdr #{mod 28153}#)))
+ (if (eqv? #{kind 28157}# 'public)
+ (#{modref-cont 28155}#
+ #{mod 28158}#
+ #{var 28154}#
#t)
- (if (memv #{kind 1011}# '(private))
+ (if (eqv? #{kind 28157}# 'private)
(if (not (equal?
- #{mod 1012}#
+ #{mod 28158}#
(module-name (current-module))))
- (#{modref-cont 1003}#
- #{mod 1012}#
- #{var 1002}#
+ (#{modref-cont 28155}#
+ #{mod 28158}#
+ #{var 28154}#
#f)
- (#{bare-cont 1004}# #{var 1002}#))
- (if (memv #{kind 1011}# '(bare))
- (#{bare-cont 1004}# #{var 1002}#)
- (if (memv #{kind 1011}# '(hygiene))
+ (#{bare-cont 28156}# #{var 28154}#))
+ (if (eqv? #{kind 28157}# 'bare)
+ (#{bare-cont 28156}# #{var 28154}#)
+ (if (eqv? #{kind 28157}# 'hygiene)
(if (if (not (equal?
- #{mod 1012}#
+ #{mod 28158}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 1012}#)
- #{var 1002}#)
+ (resolve-module #{mod 28158}#)
+ #{var 28154}#)
#f)
- (#{modref-cont 1003}#
- #{mod 1012}#
- #{var 1002}#
+ (#{modref-cont 28155}#
+ #{mod 28158}#
+ #{var 28154}#
#f)
- (#{bare-cont 1004}# #{var 1002}#))
+ (#{bare-cont 28156}# #{var 28154}#))
(syntax-violation
#f
"bad module kind"
- #{var 1002}#
- #{mod 1012}#)))))))))
- (#{build-global-reference 283}#
- (lambda (#{source 1020}# #{var 1021}# #{mod 1022}#)
- (#{analyze-variable 281}#
- #{mod 1022}#
- #{var 1021}#
- (lambda (#{mod 1026}# #{var 1027}# #{public? 1028}#)
- (#{make-module-ref 218}#
- #{source 1020}#
- #{mod 1026}#
- #{var 1027}#
- #{public? 1028}#))
- (lambda (#{var 1032}#)
- (#{make-toplevel-ref 222}#
- #{source 1020}#
- #{var 1032}#)))))
- (#{build-global-assignment 285}#
- (lambda (#{source 1034}#
- #{var 1035}#
- #{exp 1036}#
- #{mod 1037}#)
+ #{var 28154}#
+ #{mod 28158}#)))))))))
+ (#{build-global-reference 4286}#
+ (lambda (#{source 28173}# #{var 28174}# #{mod 28175}#)
+ (#{analyze-variable 4285}#
+ #{mod 28175}#
+ #{var 28174}#
+ (lambda (#{mod 28178}# #{var 28179}# #{public? 28180}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{source 28173}#
+ #{mod 28178}#
+ #{var 28179}#
+ #{public? 28180}#))
+ (lambda (#{var 28188}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{source 28173}#
+ #{var 28188}#)))))
+ (#{build-global-assignment 4287}#
+ (lambda (#{source 16426}#
+ #{var 16427}#
+ #{exp 16428}#
+ #{mod 16429}#)
(begin
- (#{maybe-name-value! 267}#
- #{var 1035}#
- #{exp 1036}#)
- (#{analyze-variable 281}#
- #{mod 1037}#
- #{var 1035}#
- (lambda (#{mod 1042}# #{var 1043}# #{public? 1044}#)
- (#{make-module-set 220}#
- #{source 1034}#
- #{mod 1042}#
- #{var 1043}#
- #{public? 1044}#
- #{exp 1036}#))
- (lambda (#{var 1048}#)
- (#{make-toplevel-set 224}#
- #{source 1034}#
- #{var 1048}#
- #{exp 1036}#))))))
- (#{build-global-definition 287}#
- (lambda (#{source 1050}# #{var 1051}# #{exp 1052}#)
+ (if (if (struct? #{exp 16428}#)
+ (eq? (struct-vtable #{exp 16428}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 16445}# (struct-ref #{exp 16428}# 1)))
+ (if (not (assq 'name #{meta 16445}#))
+ (let ((#{v 16452}#
+ (cons (cons 'name #{var 16427}#) #{meta 16445}#)))
+ (struct-set! #{exp 16428}# 1 #{v 16452}#)))))
+ (#{analyze-variable 4285}#
+ #{mod 16429}#
+ #{var 16427}#
+ (lambda (#{mod 16457}# #{var 16458}# #{public? 16459}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 6)
+ #{source 16426}#
+ #{mod 16457}#
+ #{var 16458}#
+ #{public? 16459}#
+ #{exp 16428}#))
+ (lambda (#{var 16467}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 8)
+ #{source 16426}#
+ #{var 16467}#
+ #{exp 16428}#))))))
+ (#{build-global-definition 4288}#
+ (lambda (#{source 28194}# #{var 28195}# #{exp 28196}#)
(begin
- (#{maybe-name-value! 267}#
- #{var 1051}#
- #{exp 1052}#)
- (#{make-toplevel-define 226}#
- #{source 1050}#
- #{var 1051}#
- #{exp 1052}#))))
- (#{build-simple-lambda 289}#
- (lambda (#{src 1056}#
- #{req 1057}#
- #{rest 1058}#
- #{vars 1059}#
- #{meta 1060}#
- #{exp 1061}#)
- (#{make-lambda 234}#
- #{src 1056}#
- #{meta 1060}#
- (#{make-lambda-case 236}#
- #{src 1056}#
- #{req 1057}#
- #f
- #{rest 1058}#
- #f
- '()
- #{vars 1059}#
- #{exp 1061}#
- #f))))
- (#{build-lambda-case 293}#
- (lambda (#{src 1074}#
- #{req 1075}#
- #{opt 1076}#
- #{rest 1077}#
- #{kw 1078}#
- #{inits 1079}#
- #{vars 1080}#
- #{body 1081}#
- #{else-case 1082}#)
- (#{make-lambda-case 236}#
- #{src 1074}#
- #{req 1075}#
- #{opt 1076}#
- #{rest 1077}#
- #{kw 1078}#
- #{inits 1079}#
- #{vars 1080}#
- #{body 1081}#
- #{else-case 1082}#)))
- (#{build-primref 295}#
- (lambda (#{src 1092}# #{name 1093}#)
- (if (equal? (module-name (current-module)) '(guile))
- (#{make-toplevel-ref 222}#
- #{src 1092}#
- #{name 1093}#)
- (#{make-module-ref 218}#
- #{src 1092}#
- '(guile)
- #{name 1093}#
- #f))))
- (#{build-data 297}#
- (lambda (#{src 1096}# #{exp 1097}#)
- (#{make-const 210}# #{src 1096}# #{exp 1097}#)))
- (#{build-sequence 299}#
- (lambda (#{src 1100}# #{exps 1101}#)
- (if (null? (cdr #{exps 1101}#))
- (car #{exps 1101}#)
- (#{make-sequence 232}#
- #{src 1100}#
- #{exps 1101}#))))
- (#{build-letrec 305}#
- (lambda (#{src 1134}#
- #{in-order? 1135}#
- #{ids 1136}#
- #{vars 1137}#
- #{val-exps 1138}#
- #{body-exp 1139}#)
- (if (null? #{vars 1137}#)
- #{body-exp 1139}#
+ (if (if (struct? #{exp 28196}#)
+ (eq? (struct-vtable #{exp 28196}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 28212}# (struct-ref #{exp 28196}# 1)))
+ (if (not (assq 'name #{meta 28212}#))
+ (let ((#{v 28219}#
+ (cons (cons 'name #{var 28195}#) #{meta 28212}#)))
+ (struct-set! #{exp 28196}# 1 #{v 28219}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
+ #{source 28194}#
+ #{var 28195}#
+ #{exp 28196}#))))
+ (#{build-simple-lambda 4289}#
+ (lambda (#{src 16473}#
+ #{req 16474}#
+ #{rest 16475}#
+ #{vars 16476}#
+ #{meta 16477}#
+ #{exp 16478}#)
+ (let ((#{body 16484}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src 16473}#
+ #{req 16474}#
+ #f
+ #{rest 16475}#
+ #f
+ '()
+ #{vars 16476}#
+ #{exp 16478}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{src 16473}#
+ #{meta 16477}#
+ #{body 16484}#))))
+ (#{build-sequence 4294}#
+ (lambda (#{src 28227}# #{exps 28228}#)
+ (if (null? (cdr #{exps 28228}#))
+ (car #{exps 28228}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 12)
+ #{src 28227}#
+ #{exps 28228}#))))
+ (#{build-let 4295}#
+ (lambda (#{src 16496}#
+ #{ids 16497}#
+ #{vars 16498}#
+ #{val-exps 16499}#
+ #{body-exp 16500}#)
+ (begin
+ (for-each
+ #{maybe-name-value! 4278}#
+ #{ids 16497}#
+ #{val-exps 16499}#)
+ (if (null? #{vars 16498}#)
+ #{body-exp 16500}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 15)
+ #{src 16496}#
+ #{ids 16497}#
+ #{vars 16498}#
+ #{val-exps 16499}#
+ #{body-exp 16500}#)))))
+ (#{build-named-let 4296}#
+ (lambda (#{src 16524}#
+ #{ids 16525}#
+ #{vars 16526}#
+ #{val-exps 16527}#
+ #{body-exp 16528}#)
+ (let ((#{f 16529}# (car #{vars 16526}#))
+ (#{f-name 16530}# (car #{ids 16525}#))
+ (#{vars 16531}# (cdr #{vars 16526}#))
+ (#{ids 16532}# (cdr #{ids 16525}#)))
+ (let ((#{proc 16533}#
+ (let ((#{body 16553}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{src 16524}#
+ #{ids 16532}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 16531}#
+ #{body-exp 16528}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{src 16524}#
+ '()
+ #{body 16553}#))))
+ (begin
+ (if (if (struct? #{proc 16533}#)
+ (eq? (struct-vtable #{proc 16533}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 16577}# (struct-ref #{proc 16533}# 1)))
+ (if (not (assq 'name #{meta 16577}#))
+ (let ((#{v 16584}#
+ (cons (cons 'name #{f-name 16530}#)
+ #{meta 16577}#)))
+ (struct-set! #{proc 16533}# 1 #{v 16584}#)))))
+ (for-each
+ #{maybe-name-value! 4278}#
+ #{ids 16532}#
+ #{val-exps 16527}#)
+ (let ((#{names 16608}# (list #{f-name 16530}#))
+ (#{gensyms 16609}# (list #{f 16529}#))
+ (#{vals 16610}# (list #{proc 16533}#))
+ (#{body 16611}#
+ (let ((#{fun-exp 16615}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{src 16524}#
+ #{f-name 16530}#
+ #{f 16529}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #{src 16524}#
+ #{fun-exp 16615}#
+ #{val-exps 16527}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src 16524}#
+ #f
+ #{names 16608}#
+ #{gensyms 16609}#
+ #{vals 16610}#
+ #{body 16611}#)))))))
+ (#{build-letrec 4297}#
+ (lambda (#{src 16631}#
+ #{in-order? 16632}#
+ #{ids 16633}#
+ #{vars 16634}#
+ #{val-exps 16635}#
+ #{body-exp 16636}#)
+ (if (null? #{vars 16634}#)
+ #{body-exp 16636}#
(begin
(for-each
- #{maybe-name-value! 267}#
- #{ids 1136}#
- #{val-exps 1138}#)
- (#{make-letrec 240}#
- #{src 1134}#
- #{in-order? 1135}#
- #{ids 1136}#
- #{vars 1137}#
- #{val-exps 1138}#
- #{body-exp 1139}#)))))
- (#{make-syntax-object 310}#
- (lambda (#{expression 1146}#
- #{wrap 1147}#
- #{module 1148}#)
- (vector
- 'syntax-object
- #{expression 1146}#
- #{wrap 1147}#
- #{module 1148}#)))
- (#{syntax-object? 312}#
- (lambda (#{x 1152}#)
- (if (vector? #{x 1152}#)
- (if (= (vector-length #{x 1152}#) 4)
- (eq? (vector-ref #{x 1152}# 0) 'syntax-object)
- #f)
- #f)))
- (#{syntax-object-expression 314}#
- (lambda (#{x 1157}#) (vector-ref #{x 1157}# 1)))
- (#{syntax-object-wrap 316}#
- (lambda (#{x 1159}#) (vector-ref #{x 1159}# 2)))
- (#{syntax-object-module 318}#
- (lambda (#{x 1161}#) (vector-ref #{x 1161}# 3)))
- (#{source-annotation 327}#
- (lambda (#{x 1175}#)
- (if (#{syntax-object? 312}# #{x 1175}#)
- (#{source-annotation 327}#
- (#{syntax-object-expression 314}# #{x 1175}#))
- (if (pair? #{x 1175}#)
- (let ((#{props 1182}# (source-properties #{x 1175}#)))
- (if (pair? #{props 1182}#) #{props 1182}# #f))
+ #{maybe-name-value! 4278}#
+ #{ids 16633}#
+ #{val-exps 16635}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 16)
+ #{src 16631}#
+ #{in-order? 16632}#
+ #{ids 16633}#
+ #{vars 16634}#
+ #{val-exps 16635}#
+ #{body-exp 16636}#)))))
+ (#{source-annotation 4306}#
+ (lambda (#{x 16662}#)
+ (if (if (vector? #{x 16662}#)
+ (if (= (vector-length #{x 16662}#) 4)
+ (eq? (vector-ref #{x 16662}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{source-annotation 4306}#
+ (vector-ref #{x 16662}# 1))
+ (if (pair? #{x 16662}#)
+ (let ((#{props 16677}# (source-properties #{x 16662}#)))
+ (if (pair? #{props 16677}#) #{props 16677}# #f))
#f))))
- (#{extend-env 337}#
- (lambda (#{labels 1184}# #{bindings 1185}# #{r 1186}#)
- (if (null? #{labels 1184}#)
- #{r 1186}#
- (#{extend-env 337}#
- (cdr #{labels 1184}#)
- (cdr #{bindings 1185}#)
- (cons (cons (car #{labels 1184}#)
- (car #{bindings 1185}#))
- #{r 1186}#)))))
- (#{extend-var-env 339}#
- (lambda (#{labels 1190}# #{vars 1191}# #{r 1192}#)
- (if (null? #{labels 1190}#)
- #{r 1192}#
- (#{extend-var-env 339}#
- (cdr #{labels 1190}#)
- (cdr #{vars 1191}#)
- (cons (cons (car #{labels 1190}#)
- (cons 'lexical (car #{vars 1191}#)))
- #{r 1192}#)))))
- (#{macros-only-env 341}#
- (lambda (#{r 1197}#)
- (if (null? #{r 1197}#)
+ (#{extend-env 4307}#
+ (lambda (#{labels 16679}# #{bindings 16680}# #{r 16681}#)
+ (if (null? #{labels 16679}#)
+ #{r 16681}#
+ (#{extend-env 4307}#
+ (cdr #{labels 16679}#)
+ (cdr #{bindings 16680}#)
+ (cons (cons (car #{labels 16679}#)
+ (car #{bindings 16680}#))
+ #{r 16681}#)))))
+ (#{extend-var-env 4308}#
+ (lambda (#{labels 16682}# #{vars 16683}# #{r 16684}#)
+ (if (null? #{labels 16682}#)
+ #{r 16684}#
+ (#{extend-var-env 4308}#
+ (cdr #{labels 16682}#)
+ (cdr #{vars 16683}#)
+ (cons (cons (car #{labels 16682}#)
+ (cons 'lexical (car #{vars 16683}#)))
+ #{r 16684}#)))))
+ (#{macros-only-env 4309}#
+ (lambda (#{r 16685}#)
+ (if (null? #{r 16685}#)
'()
- (let ((#{a 1200}# (car #{r 1197}#)))
- (if (eq? (car (cdr #{a 1200}#)) 'macro)
- (cons #{a 1200}#
- (#{macros-only-env 341}# (cdr #{r 1197}#)))
- (#{macros-only-env 341}# (cdr #{r 1197}#)))))))
- (#{lookup 343}#
- (lambda (#{x 1201}# #{r 1202}# #{mod 1203}#)
- (let ((#{t 1209}# (assq #{x 1201}# #{r 1202}#)))
- (if #{t 1209}#
- (cdr #{t 1209}#)
- (if (symbol? #{x 1201}#)
- (let ((#{t 1215}#
- (#{get-global-definition-hook 263}#
- #{x 1201}#
- #{mod 1203}#)))
- (if #{t 1215}# #{t 1215}# '(global)))
- '(displaced-lexical))))))
- (#{global-extend 345}#
- (lambda (#{type 1220}# #{sym 1221}# #{val 1222}#)
- (#{put-global-definition-hook 261}#
- #{sym 1221}#
- #{type 1220}#
- #{val 1222}#)))
- (#{nonsymbol-id? 347}#
- (lambda (#{x 1226}#)
- (if (#{syntax-object? 312}# #{x 1226}#)
- (symbol?
- (#{syntax-object-expression 314}# #{x 1226}#))
- #f)))
- (#{id? 349}#
- (lambda (#{x 1230}#)
- (if (symbol? #{x 1230}#)
+ (let ((#{a 16686}# (car #{r 16685}#)))
+ (if (eq? (car (cdr #{a 16686}#)) 'macro)
+ (cons #{a 16686}#
+ (#{macros-only-env 4309}# (cdr #{r 16685}#)))
+ (#{macros-only-env 4309}# (cdr #{r 16685}#)))))))
+ (#{global-extend 4311}#
+ (lambda (#{type 16688}# #{sym 16689}# #{val 16690}#)
+ (module-define!
+ (current-module)
+ #{sym 16689}#
+ (make-syntax-transformer
+ #{sym 16689}#
+ #{type 16688}#
+ #{val 16690}#))))
+ (#{id? 4313}#
+ (lambda (#{x 10546}#)
+ (if (symbol? #{x 10546}#)
#t
- (if (#{syntax-object? 312}# #{x 1230}#)
- (symbol?
- (#{syntax-object-expression 314}# #{x 1230}#))
+ (if (if (vector? #{x 10546}#)
+ (if (= (vector-length #{x 10546}#) 4)
+ (eq? (vector-ref #{x 10546}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 10546}# 1))
#f))))
- (#{id-sym-name&marks 353}#
- (lambda (#{x 1237}# #{w 1238}#)
- (if (#{syntax-object? 312}# #{x 1237}#)
- (values
- (#{syntax-object-expression 314}# #{x 1237}#)
- (#{join-marks 407}#
- (car #{w 1238}#)
- (car (#{syntax-object-wrap 316}# #{x 1237}#))))
- (values #{x 1237}# (car #{w 1238}#)))))
- (#{gen-label 367}#
- (lambda () (symbol->string (gensym "i"))))
- (#{gen-labels 369}#
- (lambda (#{ls 1244}#)
- (if (null? #{ls 1244}#)
+ (#{gen-labels 4316}#
+ (lambda (#{ls 16700}#)
+ (if (null? #{ls 16700}#)
'()
- (cons (#{gen-label 367}#)
- (#{gen-labels 369}# (cdr #{ls 1244}#))))))
- (#{make-ribcage 372}#
- (lambda (#{symnames 1246}#
- #{marks 1247}#
- #{labels 1248}#)
- (vector
- 'ribcage
- #{symnames 1246}#
- #{marks 1247}#
- #{labels 1248}#)))
- (#{ribcage-symnames 376}#
- (lambda (#{x 1257}#) (vector-ref #{x 1257}# 1)))
- (#{ribcage-marks 378}#
- (lambda (#{x 1259}#) (vector-ref #{x 1259}# 2)))
- (#{ribcage-labels 380}#
- (lambda (#{x 1261}#) (vector-ref #{x 1261}# 3)))
- (#{set-ribcage-symnames! 382}#
- (lambda (#{x 1263}# #{update 1264}#)
- (vector-set! #{x 1263}# 1 #{update 1264}#)))
- (#{set-ribcage-marks! 384}#
- (lambda (#{x 1267}# #{update 1268}#)
- (vector-set! #{x 1267}# 2 #{update 1268}#)))
- (#{set-ribcage-labels! 386}#
- (lambda (#{x 1271}# #{update 1272}#)
- (vector-set! #{x 1271}# 3 #{update 1272}#)))
- (#{anti-mark 393}#
- (lambda (#{w 1275}#)
- (cons (cons #f (car #{w 1275}#))
- (cons 'shift (cdr #{w 1275}#)))))
- (#{extend-ribcage! 399}#
- (lambda (#{ribcage 1281}# #{id 1282}# #{label 1283}#)
- (begin
- (#{set-ribcage-symnames! 382}#
- #{ribcage 1281}#
- (cons (#{syntax-object-expression 314}# #{id 1282}#)
- (#{ribcage-symnames 376}# #{ribcage 1281}#)))
- (#{set-ribcage-marks! 384}#
- #{ribcage 1281}#
- (cons (car (#{syntax-object-wrap 316}# #{id 1282}#))
- (#{ribcage-marks 378}# #{ribcage 1281}#)))
- (#{set-ribcage-labels! 386}#
- #{ribcage 1281}#
- (cons #{label 1283}#
- (#{ribcage-labels 380}# #{ribcage 1281}#))))))
- (#{make-binding-wrap 401}#
- (lambda (#{ids 1288}# #{labels 1289}# #{w 1290}#)
- (if (null? #{ids 1288}#)
- #{w 1290}#
- (cons (car #{w 1290}#)
- (cons (let ((#{labelvec 1297}#
- (list->vector #{labels 1289}#)))
- (let ((#{n 1299}# (vector-length #{labelvec 1297}#)))
- (let ((#{symnamevec 1302}# (make-vector #{n 1299}#))
- (#{marksvec 1303}# (make-vector #{n 1299}#)))
+ (cons (symbol->string (gensym "i"))
+ (#{gen-labels 4316}# (cdr #{ls 16700}#))))))
+ (#{make-binding-wrap 4327}#
+ (lambda (#{ids 16704}# #{labels 16705}# #{w 16706}#)
+ (if (null? #{ids 16704}#)
+ #{w 16706}#
+ (cons (car #{w 16706}#)
+ (cons (let ((#{labelvec 16707}#
+ (list->vector #{labels 16705}#)))
+ (let ((#{n 16708}# (vector-length #{labelvec 16707}#)))
+ (let ((#{symnamevec 16709}# (make-vector #{n 16708}#))
+ (#{marksvec 16710}# (make-vector #{n 16708}#)))
(begin
(letrec*
- ((#{f 1307}#
- (lambda (#{ids 1308}# #{i 1309}#)
- (if (not (null? #{ids 1308}#))
+ ((#{f 16711}#
+ (lambda (#{ids 16714}# #{i 16715}#)
+ (if (not (null? #{ids 16714}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks 353}#
- (car #{ids 1308}#)
- #{w 1290}#))
- (lambda (#{symname 1310}#
- #{marks 1311}#)
+ (let ((#{x 16718}#
+ (car #{ids 16714}#)))
+ (if (if (vector? #{x 16718}#)
+ (if (= (vector-length
+ #{x 16718}#)
+ 4)
+ (eq? (vector-ref
+ #{x 16718}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (values
+ (vector-ref #{x 16718}# 1)
+ (let ((#{m1 16734}#
+ (car #{w 16706}#))
+ (#{m2 16735}#
+ (car (vector-ref
+ #{x 16718}#
+ 2))))
+ (if (null? #{m2 16735}#)
+ #{m1 16734}#
+ (append
+ #{m1 16734}#
+ #{m2 16735}#))))
+ (values
+ #{x 16718}#
+ (car #{w 16706}#)))))
+ (lambda (#{symname 16755}#
+ #{marks 16756}#)
(begin
(vector-set!
- #{symnamevec 1302}#
- #{i 1309}#
- #{symname 1310}#)
+ #{symnamevec 16709}#
+ #{i 16715}#
+ #{symname 16755}#)
(vector-set!
- #{marksvec 1303}#
- #{i 1309}#
- #{marks 1311}#)
- (#{f 1307}#
- (cdr #{ids 1308}#)
- (#{1+}# #{i 1309}#)))))))))
- (#{f 1307}# #{ids 1288}# 0))
- (#{make-ribcage 372}#
- #{symnamevec 1302}#
- #{marksvec 1303}#
- #{labelvec 1297}#)))))
- (cdr #{w 1290}#))))))
- (#{smart-append 403}#
- (lambda (#{m1 1316}# #{m2 1317}#)
- (if (null? #{m2 1317}#)
- #{m1 1316}#
- (append #{m1 1316}# #{m2 1317}#))))
- (#{join-wraps 405}#
- (lambda (#{w1 1320}# #{w2 1321}#)
- (let ((#{m1 1326}# (car #{w1 1320}#))
- (#{s1 1327}# (cdr #{w1 1320}#)))
- (if (null? #{m1 1326}#)
- (if (null? #{s1 1327}#)
- #{w2 1321}#
- (cons (car #{w2 1321}#)
- (#{smart-append 403}#
- #{s1 1327}#
- (cdr #{w2 1321}#))))
- (cons (#{smart-append 403}#
- #{m1 1326}#
- (car #{w2 1321}#))
- (#{smart-append 403}#
- #{s1 1327}#
- (cdr #{w2 1321}#)))))))
- (#{join-marks 407}#
- (lambda (#{m1 1336}# #{m2 1337}#)
- (#{smart-append 403}# #{m1 1336}# #{m2 1337}#)))
- (#{same-marks? 409}#
- (lambda (#{x 1340}# #{y 1341}#)
- (if (eq? #{x 1340}# #{y 1341}#)
- (eq? #{x 1340}# #{y 1341}#)
- (if (not (null? #{x 1340}#))
- (if (not (null? #{y 1341}#))
- (if (eq? (car #{x 1340}#) (car #{y 1341}#))
- (#{same-marks? 409}#
- (cdr #{x 1340}#)
- (cdr #{y 1341}#))
+ #{marksvec 16710}#
+ #{i 16715}#
+ #{marks 16756}#)
+ (#{f 16711}#
+ (cdr #{ids 16714}#)
+ (#{1+}# #{i 16715}#)))))))))
+ (#{f 16711}# #{ids 16704}# 0))
+ (vector
+ 'ribcage
+ #{symnamevec 16709}#
+ #{marksvec 16710}#
+ #{labelvec 16707}#)))))
+ (cdr #{w 16706}#))))))
+ (#{join-wraps 4329}#
+ (lambda (#{w1 16765}# #{w2 16766}#)
+ (let ((#{m1 16767}# (car #{w1 16765}#))
+ (#{s1 16768}# (cdr #{w1 16765}#)))
+ (if (null? #{m1 16767}#)
+ (if (null? #{s1 16768}#)
+ #{w2 16766}#
+ (cons (car #{w2 16766}#)
+ (let ((#{m2 16775}# (cdr #{w2 16766}#)))
+ (if (null? #{m2 16775}#)
+ #{s1 16768}#
+ (append #{s1 16768}# #{m2 16775}#)))))
+ (cons (let ((#{m2 16784}# (car #{w2 16766}#)))
+ (if (null? #{m2 16784}#)
+ #{m1 16767}#
+ (append #{m1 16767}# #{m2 16784}#)))
+ (let ((#{m2 16793}# (cdr #{w2 16766}#)))
+ (if (null? #{m2 16793}#)
+ #{s1 16768}#
+ (append #{s1 16768}# #{m2 16793}#))))))))
+ (#{same-marks? 4331}#
+ (lambda (#{x 16798}# #{y 16799}#)
+ (if (eq? #{x 16798}# #{y 16799}#)
+ (eq? #{x 16798}# #{y 16799}#)
+ (if (not (null? #{x 16798}#))
+ (if (not (null? #{y 16799}#))
+ (if (eq? (car #{x 16798}#) (car #{y 16799}#))
+ (#{same-marks? 4331}#
+ (cdr #{x 16798}#)
+ (cdr #{y 16799}#))
#f)
#f)
#f))))
- (#{id-var-name 411}#
- (lambda (#{id 1352}# #{w 1353}#)
+ (#{id-var-name 4332}#
+ (lambda (#{id 16807}# #{w 16808}#)
(letrec*
- ((#{search 1359}#
- (lambda (#{sym 1375}# #{subst 1376}# #{marks 1377}#)
- (if (null? #{subst 1376}#)
- (values #f #{marks 1377}#)
- (let ((#{fst 1382}# (car #{subst 1376}#)))
- (if (eq? #{fst 1382}# 'shift)
- (#{search 1359}#
- #{sym 1375}#
- (cdr #{subst 1376}#)
- (cdr #{marks 1377}#))
- (let ((#{symnames 1384}#
- (#{ribcage-symnames 376}# #{fst 1382}#)))
- (if (vector? #{symnames 1384}#)
- (#{search-vector-rib 1363}#
- #{sym 1375}#
- #{subst 1376}#
- #{marks 1377}#
- #{symnames 1384}#
- #{fst 1382}#)
- (#{search-list-rib 1361}#
- #{sym 1375}#
- #{subst 1376}#
- #{marks 1377}#
- #{symnames 1384}#
- #{fst 1382}#))))))))
- (#{search-list-rib 1361}#
- (lambda (#{sym 1385}#
- #{subst 1386}#
- #{marks 1387}#
- #{symnames 1388}#
- #{ribcage 1389}#)
- (letrec*
- ((#{f 1398}#
- (lambda (#{symnames 1399}# #{i 1400}#)
- (if (null? #{symnames 1399}#)
- (#{search 1359}#
- #{sym 1385}#
- (cdr #{subst 1386}#)
- #{marks 1387}#)
- (if (if (eq? (car #{symnames 1399}#) #{sym 1385}#)
- (#{same-marks? 409}#
- #{marks 1387}#
- (list-ref
- (#{ribcage-marks 378}# #{ribcage 1389}#)
- #{i 1400}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels 380}# #{ribcage 1389}#)
- #{i 1400}#)
- #{marks 1387}#)
- (#{f 1398}#
- (cdr #{symnames 1399}#)
- (#{1+}# #{i 1400}#)))))))
- (#{f 1398}# #{symnames 1388}# 0))))
- (#{search-vector-rib 1363}#
- (lambda (#{sym 1409}#
- #{subst 1410}#
- #{marks 1411}#
- #{symnames 1412}#
- #{ribcage 1413}#)
- (let ((#{n 1420}# (vector-length #{symnames 1412}#)))
- (letrec*
- ((#{f 1423}#
- (lambda (#{i 1424}#)
- (if (= #{i 1424}# #{n 1420}#)
- (#{search 1359}#
- #{sym 1409}#
- (cdr #{subst 1410}#)
- #{marks 1411}#)
- (if (if (eq? (vector-ref #{symnames 1412}# #{i 1424}#)
- #{sym 1409}#)
- (#{same-marks? 409}#
- #{marks 1411}#
- (vector-ref
- (#{ribcage-marks 378}# #{ribcage 1413}#)
- #{i 1424}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels 380}# #{ribcage 1413}#)
- #{i 1424}#)
- #{marks 1411}#)
- (#{f 1423}# (#{1+}# #{i 1424}#)))))))
- (#{f 1423}# 0))))))
- (if (symbol? #{id 1352}#)
- (let ((#{t 1436}#
- (#{search 1359}#
- #{id 1352}#
- (cdr #{w 1353}#)
- (car #{w 1353}#))))
- (if #{t 1436}# #{t 1436}# #{id 1352}#))
- (if (#{syntax-object? 312}# #{id 1352}#)
- (let ((#{id 1445}#
- (#{syntax-object-expression 314}# #{id 1352}#))
- (#{w1 1446}#
- (#{syntax-object-wrap 316}# #{id 1352}#)))
- (let ((#{marks 1448}#
- (#{join-marks 407}#
- (car #{w 1353}#)
- (car #{w1 1446}#))))
+ ((#{search 16809}#
+ (lambda (#{sym 16870}# #{subst 16871}# #{marks 16872}#)
+ (if (null? #{subst 16871}#)
+ (values #f #{marks 16872}#)
+ (let ((#{fst 16873}# (car #{subst 16871}#)))
+ (if (eq? #{fst 16873}# 'shift)
+ (#{search 16809}#
+ #{sym 16870}#
+ (cdr #{subst 16871}#)
+ (cdr #{marks 16872}#))
+ (let ((#{symnames 16875}# (vector-ref #{fst 16873}# 1)))
+ (if (vector? #{symnames 16875}#)
+ (let ((#{n 16887}# (vector-length #{symnames 16875}#)))
+ (letrec*
+ ((#{f 16888}#
+ (lambda (#{i 16890}#)
+ (if (= #{i 16890}# #{n 16887}#)
+ (#{search 16809}#
+ #{sym 16870}#
+ (cdr #{subst 16871}#)
+ #{marks 16872}#)
+ (if (if (eq? (vector-ref
+ #{symnames 16875}#
+ #{i 16890}#)
+ #{sym 16870}#)
+ (#{same-marks? 4331}#
+ #{marks 16872}#
+ (vector-ref
+ (vector-ref #{fst 16873}# 2)
+ #{i 16890}#))
+ #f)
+ (values
+ (vector-ref
+ (vector-ref #{fst 16873}# 3)
+ #{i 16890}#)
+ #{marks 16872}#)
+ (#{f 16888}# (#{1+}# #{i 16890}#)))))))
+ (#{f 16888}# 0)))
+ (letrec*
+ ((#{f 16923}#
+ (lambda (#{symnames 16925}# #{i 16926}#)
+ (if (null? #{symnames 16925}#)
+ (#{search 16809}#
+ #{sym 16870}#
+ (cdr #{subst 16871}#)
+ #{marks 16872}#)
+ (if (if (eq? (car #{symnames 16925}#)
+ #{sym 16870}#)
+ (#{same-marks? 4331}#
+ #{marks 16872}#
+ (list-ref
+ (vector-ref #{fst 16873}# 2)
+ #{i 16926}#))
+ #f)
+ (values
+ (list-ref
+ (vector-ref #{fst 16873}# 3)
+ #{i 16926}#)
+ #{marks 16872}#)
+ (#{f 16923}#
+ (cdr #{symnames 16925}#)
+ (#{1+}# #{i 16926}#)))))))
+ (#{f 16923}# #{symnames 16875}# 0))))))))))
+ (if (symbol? #{id 16807}#)
+ (let ((#{t 16812}#
+ (#{search 16809}#
+ #{id 16807}#
+ (cdr #{w 16808}#)
+ (car #{w 16808}#))))
+ (if #{t 16812}# #{t 16812}# #{id 16807}#))
+ (if (if (vector? #{id 16807}#)
+ (if (= (vector-length #{id 16807}#) 4)
+ (eq? (vector-ref #{id 16807}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{id 16827}# (vector-ref #{id 16807}# 1))
+ (#{w1 16828}# (vector-ref #{id 16807}# 2)))
+ (let ((#{marks 16829}#
+ (let ((#{m1 16839}# (car #{w 16808}#))
+ (#{m2 16840}# (car #{w1 16828}#)))
+ (if (null? #{m2 16840}#)
+ #{m1 16839}#
+ (append #{m1 16839}# #{m2 16840}#)))))
(call-with-values
(lambda ()
- (#{search 1359}#
- #{id 1445}#
- (cdr #{w 1353}#)
- #{marks 1448}#))
- (lambda (#{new-id 1452}# #{marks 1453}#)
- (if #{new-id 1452}#
- #{new-id 1452}#
- (let ((#{t 1461}#
- (#{search 1359}#
- #{id 1445}#
- (cdr #{w1 1446}#)
- #{marks 1453}#)))
- (if #{t 1461}# #{t 1461}# #{id 1445}#)))))))
+ (#{search 16809}#
+ #{id 16827}#
+ (cdr #{w 16808}#)
+ #{marks 16829}#))
+ (lambda (#{new-id 16856}# #{marks 16857}#)
+ (if #{new-id 16856}#
+ #{new-id 16856}#
+ (let ((#{t 16865}#
+ (#{search 16809}#
+ #{id 16827}#
+ (cdr #{w1 16828}#)
+ #{marks 16857}#)))
+ (if #{t 16865}# #{t 16865}# #{id 16827}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 1352}#))))))
- (#{free-id=? 413}#
- (lambda (#{i 1466}# #{j 1467}#)
- (if (eq? (if (#{syntax-object? 312}# #{i 1466}#)
- (#{syntax-object-expression 314}# #{i 1466}#)
- #{i 1466}#)
- (if (#{syntax-object? 312}# #{j 1467}#)
- (#{syntax-object-expression 314}# #{j 1467}#)
- #{j 1467}#))
- (eq? (#{id-var-name 411}# #{i 1466}# '(()))
- (#{id-var-name 411}# #{j 1467}# '(())))
- #f)))
- (#{bound-id=? 415}#
- (lambda (#{i 1480}# #{j 1481}#)
- (if (if (#{syntax-object? 312}# #{i 1480}#)
- (#{syntax-object? 312}# #{j 1481}#)
- #f)
- (if (eq? (#{syntax-object-expression 314}# #{i 1480}#)
- (#{syntax-object-expression 314}# #{j 1481}#))
- (#{same-marks? 409}#
- (car (#{syntax-object-wrap 316}# #{i 1480}#))
- (car (#{syntax-object-wrap 316}# #{j 1481}#)))
- #f)
- (eq? #{i 1480}# #{j 1481}#))))
- (#{valid-bound-ids? 417}#
- (lambda (#{ids 1490}#)
+ #{id 16807}#))))))
+ (#{valid-bound-ids? 4335}#
+ (lambda (#{ids 16948}#)
(if (letrec*
- ((#{all-ids? 1495}#
- (lambda (#{ids 1496}#)
- (if (null? #{ids 1496}#)
- (null? #{ids 1496}#)
- (if (#{id? 349}# (car #{ids 1496}#))
- (#{all-ids? 1495}# (cdr #{ids 1496}#))
+ ((#{all-ids? 16949}#
+ (lambda (#{ids 17111}#)
+ (if (null? #{ids 17111}#)
+ (null? #{ids 17111}#)
+ (if (let ((#{x 17122}# (car #{ids 17111}#)))
+ (if (symbol? #{x 17122}#)
+ #t
+ (if (if (vector? #{x 17122}#)
+ (if (= (vector-length #{x 17122}#) 4)
+ (eq? (vector-ref #{x 17122}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 17122}# 1))
+ #f)))
+ (#{all-ids? 16949}# (cdr #{ids 17111}#))
#f)))))
- (#{all-ids? 1495}# #{ids 1490}#))
- (#{distinct-bound-ids? 419}# #{ids 1490}#)
+ (#{all-ids? 16949}# #{ids 16948}#))
+ (#{distinct-bound-ids? 4336}# #{ids 16948}#)
#f)))
- (#{distinct-bound-ids? 419}#
- (lambda (#{ids 1504}#)
+ (#{distinct-bound-ids? 4336}#
+ (lambda (#{ids 17254}#)
(letrec*
- ((#{distinct? 1508}#
- (lambda (#{ids 1509}#)
- (if (null? #{ids 1509}#)
- (null? #{ids 1509}#)
- (if (not (#{bound-id-member? 421}#
- (car #{ids 1509}#)
- (cdr #{ids 1509}#)))
- (#{distinct? 1508}# (cdr #{ids 1509}#))
+ ((#{distinct? 17255}#
+ (lambda (#{ids 17371}#)
+ (if (null? #{ids 17371}#)
+ (null? #{ids 17371}#)
+ (if (not (#{bound-id-member? 4337}#
+ (car #{ids 17371}#)
+ (cdr #{ids 17371}#)))
+ (#{distinct? 17255}# (cdr #{ids 17371}#))
#f)))))
- (#{distinct? 1508}# #{ids 1504}#))))
- (#{bound-id-member? 421}#
- (lambda (#{x 1516}# #{list 1517}#)
- (if (not (null? #{list 1517}#))
- (let ((#{t 1524}#
- (#{bound-id=? 415}#
- #{x 1516}#
- (car #{list 1517}#))))
- (if #{t 1524}#
- #{t 1524}#
- (#{bound-id-member? 421}#
- #{x 1516}#
- (cdr #{list 1517}#))))
+ (#{distinct? 17255}# #{ids 17254}#))))
+ (#{bound-id-member? 4337}#
+ (lambda (#{x 17591}# #{list 17592}#)
+ (if (not (null? #{list 17592}#))
+ (let ((#{t 17593}#
+ (let ((#{j 17674}# (car #{list 17592}#)))
+ (if (if (if (vector? #{x 17591}#)
+ (if (= (vector-length #{x 17591}#) 4)
+ (eq? (vector-ref #{x 17591}# 0) 'syntax-object)
+ #f)
+ #f)
+ (if (vector? #{j 17674}#)
+ (if (= (vector-length #{j 17674}#) 4)
+ (eq? (vector-ref #{j 17674}# 0) 'syntax-object)
+ #f)
+ #f)
+ #f)
+ (if (eq? (vector-ref #{x 17591}# 1)
+ (vector-ref #{j 17674}# 1))
+ (#{same-marks? 4331}#
+ (car (vector-ref #{x 17591}# 2))
+ (car (vector-ref #{j 17674}# 2)))
+ #f)
+ (eq? #{x 17591}# #{j 17674}#)))))
+ (if #{t 17593}#
+ #{t 17593}#
+ (#{bound-id-member? 4337}#
+ #{x 17591}#
+ (cdr #{list 17592}#))))
#f)))
- (#{wrap 423}#
- (lambda (#{x 1526}# #{w 1527}# #{defmod 1528}#)
- (if (if (null? (car #{w 1527}#))
- (null? (cdr #{w 1527}#))
+ (#{wrap 4338}#
+ (lambda (#{x 17718}# #{w 17719}# #{defmod 17720}#)
+ (if (if (null? (car #{w 17719}#))
+ (null? (cdr #{w 17719}#))
#f)
- #{x 1526}#
- (if (#{syntax-object? 312}# #{x 1526}#)
- (#{make-syntax-object 310}#
- (#{syntax-object-expression 314}# #{x 1526}#)
- (#{join-wraps 405}#
- #{w 1527}#
- (#{syntax-object-wrap 316}# #{x 1526}#))
- (#{syntax-object-module 318}# #{x 1526}#))
- (if (null? #{x 1526}#)
- #{x 1526}#
- (#{make-syntax-object 310}#
- #{x 1526}#
- #{w 1527}#
- #{defmod 1528}#))))))
- (#{source-wrap 425}#
- (lambda (#{x 1543}#
- #{w 1544}#
- #{s 1545}#
- #{defmod 1546}#)
- (#{wrap 423}#
- (#{decorate-source 265}# #{x 1543}# #{s 1545}#)
- #{w 1544}#
- #{defmod 1546}#)))
- (#{chi-sequence 427}#
- (lambda (#{body 1551}#
- #{r 1552}#
- #{w 1553}#
- #{s 1554}#
- #{mod 1555}#)
- (#{build-sequence 299}#
- #{s 1554}#
+ #{x 17718}#
+ (if (if (vector? #{x 17718}#)
+ (if (= (vector-length #{x 17718}#) 4)
+ (eq? (vector-ref #{x 17718}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 17734}# (vector-ref #{x 17718}# 1))
+ (#{wrap 17735}#
+ (#{join-wraps 4329}#
+ #{w 17719}#
+ (vector-ref #{x 17718}# 2)))
+ (#{module 17736}# (vector-ref #{x 17718}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 17734}#
+ #{wrap 17735}#
+ #{module 17736}#))
+ (if (null? #{x 17718}#)
+ #{x 17718}#
+ (vector
+ 'syntax-object
+ #{x 17718}#
+ #{w 17719}#
+ #{defmod 17720}#))))))
+ (#{source-wrap 4339}#
+ (lambda (#{x 17753}#
+ #{w 17754}#
+ #{s 17755}#
+ #{defmod 17756}#)
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{x 17753}#) #{s 17755}# #f)
+ (set-source-properties! #{x 17753}# #{s 17755}#))
+ #{x 17753}#)
+ #{w 17754}#
+ #{defmod 17756}#)))
+ (#{chi-sequence 4340}#
+ (lambda (#{body 28233}#
+ #{r 28234}#
+ #{w 28235}#
+ #{s 28236}#
+ #{mod 28237}#)
+ (#{build-sequence 4294}#
+ #{s 28236}#
(letrec*
- ((#{dobody 1566}#
- (lambda (#{body 1567}#
- #{r 1568}#
- #{w 1569}#
- #{mod 1570}#)
- (if (null? #{body 1567}#)
+ ((#{dobody 28322}#
+ (lambda (#{body 28402}#
+ #{r 28403}#
+ #{w 28404}#
+ #{mod 28405}#)
+ (if (null? #{body 28402}#)
'()
- (let ((#{first 1572}#
- (#{chi 437}#
- (car #{body 1567}#)
- #{r 1568}#
- #{w 1569}#
- #{mod 1570}#)))
- (cons #{first 1572}#
- (#{dobody 1566}#
- (cdr #{body 1567}#)
- #{r 1568}#
- #{w 1569}#
- #{mod 1570}#)))))))
- (#{dobody 1566}#
- #{body 1551}#
- #{r 1552}#
- #{w 1553}#
- #{mod 1555}#)))))
- (#{chi-top-sequence 429}#
- (lambda (#{body 1573}#
- #{r 1574}#
- #{w 1575}#
- #{s 1576}#
- #{m 1577}#
- #{esew 1578}#
- #{mod 1579}#)
+ (let ((#{first 28406}#
+ (#{chi 4345}#
+ (car #{body 28402}#)
+ #{r 28403}#
+ #{w 28404}#
+ #{mod 28405}#)))
+ (cons #{first 28406}#
+ (#{dobody 28322}#
+ (cdr #{body 28402}#)
+ #{r 28403}#
+ #{w 28404}#
+ #{mod 28405}#)))))))
+ (#{dobody 28322}#
+ #{body 28233}#
+ #{r 28234}#
+ #{w 28235}#
+ #{mod 28237}#)))))
+ (#{chi-top-sequence 4341}#
+ (lambda (#{body 17774}#
+ #{r 17775}#
+ #{w 17776}#
+ #{s 17777}#
+ #{m 17778}#
+ #{esew 17779}#
+ #{mod 17780}#)
(letrec*
- ((#{scan 1588}#
- (lambda (#{body 1589}#
- #{r 1590}#
- #{w 1591}#
- #{s 1592}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1595}#
- #{exps 1596}#)
- (if (null? #{body 1589}#)
- #{exps 1596}#
+ ((#{scan 17781}#
+ (lambda (#{body 17912}#
+ #{r 17913}#
+ #{w 17914}#
+ #{s 17915}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 17918}#
+ #{exps 17919}#)
+ (if (null? #{body 17912}#)
+ #{exps 17919}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 1609}# (car #{body 1589}#)))
- (#{syntax-type 435}#
- #{e 1609}#
- #{r 1590}#
- #{w 1591}#
- (let ((#{t 1612}#
- (#{source-annotation 327}# #{e 1609}#)))
- (if #{t 1612}# #{t 1612}# #{s 1592}#))
+ (let ((#{e 17920}# (car #{body 17912}#)))
+ (#{syntax-type 4344}#
+ #{e 17920}#
+ #{r 17913}#
+ #{w 17914}#
+ (let ((#{t 17924}#
+ (#{source-annotation 4306}# #{e 17920}#)))
+ (if #{t 17924}# #{t 17924}# #{s 17915}#))
#f
- #{mod 1595}#
+ #{mod 17918}#
#f)))
- (lambda (#{type 1614}#
- #{value 1615}#
- #{e 1616}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#)
- (if (memv #{type 1614}# '(begin-form))
- (let ((#{tmp 1628}# ($sc-dispatch #{e 1616}# '(_))))
- (if #{tmp 1628}#
- (@apply (lambda () #{exps 1596}#) #{tmp 1628}#)
- (let ((#{tmp 1629}#
+ (lambda (#{type 18184}#
+ #{value 18185}#
+ #{e 18186}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#)
+ (if (eqv? #{type 18184}# 'begin-form)
+ (let ((#{tmp 18194}#
+ ($sc-dispatch #{e 18186}# '(_))))
+ (if #{tmp 18194}#
+ (@apply (lambda () #{exps 17919}#) #{tmp 18194}#)
+ (let ((#{tmp 18198}#
($sc-dispatch
- #{e 1616}#
+ #{e 18186}#
'(_ any . each-any))))
- (if #{tmp 1629}#
+ (if #{tmp 18198}#
(@apply
- (lambda (#{e1 1632}# #{e2 1633}#)
- (#{scan 1588}#
- (cons #{e1 1632}# #{e2 1633}#)
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1619}#
- #{exps 1596}#))
- #{tmp 1629}#)
+ (lambda (#{e1 18202}# #{e2 18203}#)
+ (#{scan 17781}#
+ (cons #{e1 18202}# #{e2 18203}#)
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 18189}#
+ #{exps 17919}#))
+ #{tmp 18198}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1616}#)))))
- (if (memv #{type 1614}# '(local-syntax-form))
- (#{chi-local-syntax 447}#
- #{value 1615}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#
- (lambda (#{body 1636}#
- #{r 1637}#
- #{w 1638}#
- #{s 1639}#
- #{mod 1640}#)
- (#{scan 1588}#
- #{body 1636}#
- #{r 1637}#
- #{w 1638}#
- #{s 1639}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1640}#
- #{exps 1596}#)))
- (if (memv #{type 1614}# '(eval-when-form))
- (let ((#{tmp 1648}#
+ #{e 18186}#)))))
+ (if (eqv? #{type 18184}# 'local-syntax-form)
+ (#{chi-local-syntax 4350}#
+ #{value 18185}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#
+ (lambda (#{body 18218}#
+ #{r 18219}#
+ #{w 18220}#
+ #{s 18221}#
+ #{mod 18222}#)
+ (#{scan 17781}#
+ #{body 18218}#
+ #{r 18219}#
+ #{w 18220}#
+ #{s 18221}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 18222}#
+ #{exps 17919}#)))
+ (if (eqv? #{type 18184}# 'eval-when-form)
+ (let ((#{tmp 18227}#
($sc-dispatch
- #{e 1616}#
+ #{e 18186}#
'(_ each-any any . each-any))))
- (if #{tmp 1648}#
+ (if #{tmp 18227}#
(@apply
- (lambda (#{x 1652}#
- #{e1 1653}#
- #{e2 1654}#)
- (let ((#{when-list 1657}#
- (#{chi-when-list 433}#
- #{e 1616}#
- #{x 1652}#
- #{w 1617}#))
- (#{body 1658}#
- (cons #{e1 1653}# #{e2 1654}#)))
- (if (eq? #{m 1593}# 'e)
- (if (memq 'eval #{when-list 1657}#)
- (#{scan 1588}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
+ (lambda (#{x 18231}#
+ #{e1 18232}#
+ #{e2 18233}#)
+ (let ((#{when-list 18234}#
+ (#{chi-when-list 4343}#
+ #{e 18186}#
+ #{x 18231}#
+ #{w 18187}#))
+ (#{body 18235}#
+ (cons #{e1 18232}#
+ #{e2 18233}#)))
+ (if (eq? #{m 17916}# 'e)
+ (if (memq 'eval #{when-list 18234}#)
+ (#{scan 17781}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
(if (memq 'expand
- #{when-list 1657}#)
+ #{when-list 18234}#)
'c&e
'e)
'(eval)
- #{mod 1619}#
- #{exps 1596}#)
+ #{mod 18189}#
+ #{exps 17919}#)
(begin
(if (memq 'expand
- #{when-list 1657}#)
- (#{top-level-eval-hook 255}#
- (#{chi-top-sequence 429}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- 'e
- '(eval)
- #{mod 1619}#)
- #{mod 1619}#))
- (values #{exps 1596}#)))
- (if (memq 'load #{when-list 1657}#)
- (if (let ((#{t 1667}#
+ #{when-list 18234}#)
+ (let ((#{x 18242}#
+ (#{chi-top-sequence 4341}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ 'e
+ '(eval)
+ #{mod 18189}#)))
+ (primitive-eval
+ #{x 18242}#)))
+ (values #{exps 17919}#)))
+ (if (memq 'load #{when-list 18234}#)
+ (if (let ((#{t 18244}#
(memq 'compile
- #{when-list 1657}#)))
- (if #{t 1667}#
- #{t 1667}#
- (let ((#{t 1670}#
+ #{when-list 18234}#)))
+ (if #{t 18244}#
+ #{t 18244}#
+ (let ((#{t 18246}#
(memq 'expand
- #{when-list 1657}#)))
- (if #{t 1670}#
- #{t 1670}#
- (if (eq? #{m 1593}#
+ #{when-list 18234}#)))
+ (if #{t 18246}#
+ #{t 18246}#
+ (if (eq? #{m 17916}#
'c&e)
(memq 'eval
- #{when-list 1657}#)
+ #{when-list 18234}#)
#f)))))
- (#{scan 1588}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
+ (#{scan 17781}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
'c&e
'(compile load)
- #{mod 1619}#
- #{exps 1596}#)
- (if (memq #{m 1593}# '(c c&e))
- (#{scan 1588}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
+ #{mod 18189}#
+ #{exps 17919}#)
+ (if (if (eq? #{m 17916}# 'c)
+ #t
+ (eq? #{m 17916}# 'c&e))
+ (#{scan 17781}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
'c
'(load)
- #{mod 1619}#
- #{exps 1596}#)
- (values #{exps 1596}#)))
- (if (let ((#{t 1678}#
+ #{mod 18189}#
+ #{exps 17919}#)
+ (values #{exps 17919}#)))
+ (if (let ((#{t 18256}#
(memq 'compile
- #{when-list 1657}#)))
- (if #{t 1678}#
- #{t 1678}#
- (let ((#{t 1681}#
+ #{when-list 18234}#)))
+ (if #{t 18256}#
+ #{t 18256}#
+ (let ((#{t 18258}#
(memq 'expand
- #{when-list 1657}#)))
- (if #{t 1681}#
- #{t 1681}#
- (if (eq? #{m 1593}#
+ #{when-list 18234}#)))
+ (if #{t 18258}#
+ #{t 18258}#
+ (if (eq? #{m 17916}#
'c&e)
(memq 'eval
- #{when-list 1657}#)
+ #{when-list 18234}#)
#f)))))
(begin
- (#{top-level-eval-hook 255}#
- (#{chi-top-sequence 429}#
- #{body 1658}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- 'e
- '(eval)
- #{mod 1619}#)
- #{mod 1619}#)
- (values #{exps 1596}#))
- (values #{exps 1596}#))))))
- #{tmp 1648}#)
+ (let ((#{x 18263}#
+ (#{chi-top-sequence 4341}#
+ #{body 18235}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ 'e
+ '(eval)
+ #{mod 18189}#)))
+ (primitive-eval #{x 18263}#))
+ (values #{exps 17919}#))
+ (values #{exps 17919}#))))))
+ #{tmp 18227}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1616}#)))
- (if (memv #{type 1614}# '(define-syntax-form))
- (let ((#{n 1689}#
- (#{id-var-name 411}#
- #{value 1615}#
- #{w 1617}#))
- (#{r 1690}#
- (#{macros-only-env 341}# #{r 1590}#)))
- (if (memv #{m 1593}# '(c))
- (if (memq 'compile #{esew 1594}#)
- (let ((#{e 1693}#
- (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))))
+ #{e 18186}#)))
+ (if (eqv? #{type 18184}# 'define-syntax-form)
+ (let ((#{n 18274}#
+ (#{id-var-name 4332}#
+ #{value 18185}#
+ #{w 18187}#))
+ (#{r 18275}#
+ (#{macros-only-env 4309}#
+ #{r 17913}#)))
+ (if (eqv? #{m 17916}# 'c)
+ (if (memq 'compile #{esew 17917}#)
+ (let ((#{e 18279}#
+ (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))))
(begin
- (#{top-level-eval-hook 255}#
- #{e 1693}#
- #{mod 1619}#)
- (if (memq 'load #{esew 1594}#)
+ (#{top-level-eval-hook 4273}#
+ #{e 18279}#
+ #{mod 18189}#)
+ (if (memq 'load #{esew 17917}#)
(values
- (cons #{e 1693}# #{exps 1596}#))
- (values #{exps 1596}#))))
- (if (memq 'load #{esew 1594}#)
+ (cons #{e 18279}#
+ #{exps 17919}#))
+ (values #{exps 17919}#))))
+ (if (memq 'load #{esew 17917}#)
(values
- (cons (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))
- #{exps 1596}#))
- (values #{exps 1596}#)))
- (if (memv #{m 1593}# '(c&e))
- (let ((#{e 1696}#
- (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))))
+ (cons (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))
+ #{exps 17919}#))
+ (values #{exps 17919}#)))
+ (if (eqv? #{m 17916}# 'c&e)
+ (let ((#{e 18736}#
+ (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))))
(begin
- (#{top-level-eval-hook 255}#
- #{e 1696}#
- #{mod 1619}#)
+ (#{top-level-eval-hook 4273}#
+ #{e 18736}#
+ #{mod 18189}#)
(values
- (cons #{e 1696}# #{exps 1596}#))))
+ (cons #{e 18736}#
+ #{exps 17919}#))))
(begin
- (if (memq 'eval #{esew 1594}#)
- (#{top-level-eval-hook 255}#
- (#{chi-install-global 431}#
- #{n 1689}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1690}#
- #{w 1617}#
- #{mod 1619}#))
- #{mod 1619}#))
- (values #{exps 1596}#)))))
- (if (memv #{type 1614}# '(define-form))
- (let ((#{n 1701}#
- (#{id-var-name 411}#
- #{value 1615}#
- #{w 1617}#)))
- (let ((#{type 1703}#
- (car (#{lookup 343}#
- #{n 1701}#
- #{r 1590}#
- #{mod 1619}#))))
- (if (memv #{type 1703}#
- '(global
- core
- macro
- module-ref))
+ (if (memq 'eval #{esew 17917}#)
+ (#{top-level-eval-hook 4273}#
+ (#{chi-install-global 4342}#
+ #{n 18274}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 18275}#
+ #{w 18187}#
+ #{mod 18189}#))
+ #{mod 18189}#))
+ (values #{exps 17919}#)))))
+ (if (eqv? #{type 18184}# 'define-form)
+ (let ((#{n 19386}#
+ (#{id-var-name 4332}#
+ #{value 18185}#
+ #{w 18187}#)))
+ (let ((#{type 19387}#
+ (car (let ((#{t 20156}#
+ (assq #{n 19386}#
+ #{r 17913}#)))
+ (if #{t 20156}#
+ (cdr #{t 20156}#)
+ (if (symbol? #{n 19386}#)
+ (let ((#{t 20161}#
+ (begin
+ (if (if (not #{mod 18189}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should have a module"
+ #{n 19386}#))
+ (let ((#{v 20198}#
+ (module-variable
+ (if #{mod 18189}#
+ (resolve-module
+ (cdr #{mod 18189}#))
+ (current-module))
+ #{n 19386}#)))
+ (if #{v 20198}#
+ (if (variable-bound?
+ #{v 20198}#)
+ (let ((#{val 20207}#
+ (variable-ref
+ #{v 20198}#)))
+ (if (macro?
+ #{val 20207}#)
+ (if (macro-type
+ #{val 20207}#)
+ (cons (macro-type
+ #{val 20207}#)
+ (macro-binding
+ #{val 20207}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 20161}#
+ #{t 20161}#
+ '(global)))
+ '(displaced-lexical)))))))
+ (if (let ((#{t 19421}# #{type 19387}#))
+ (if (eqv? #{t 19421}# 'global)
+ #t
+ (if (eqv? #{t 19421}# 'core)
+ #t
+ (if (eqv? #{t 19421}# 'macro)
+ #t
+ (eqv? #{t 19421}#
+ 'module-ref)))))
(begin
- (if (if (memq #{m 1593}# '(c c&e))
+ (if (if (if (eq? #{m 17916}# 'c)
+ #t
+ (eq? #{m 17916}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 1701}#))
+ #{n 19386}#))
(current-module)
#f)
#f)
- (let ((#{old 1710}#
+ (let ((#{old 19585}#
(module-variable
(current-module)
- #{n 1701}#)))
- (if (if (variable? #{old 1710}#)
+ #{n 19386}#)))
+ (if (if (variable? #{old 19585}#)
(variable-bound?
- #{old 1710}#)
+ #{old 19585}#)
#f)
(module-define!
(current-module)
- #{n 1701}#
- (variable-ref #{old 1710}#))
+ #{n 19386}#
+ (variable-ref #{old 19585}#))
(module-add!
(current-module)
- #{n 1701}#
+ #{n 19386}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 1593}# 'c&e)
- (let ((#{x 1714}#
- (#{build-global-definition 287}#
- #{s 1618}#
- #{n 1701}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{mod 1619}#))))
+ (cons (if (eq? #{m 17916}# 'c&e)
+ (let ((#{x 19587}#
+ (#{build-global-definition 4288}#
+ #{s 18188}#
+ #{n 19386}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{mod 18189}#))))
(begin
- (#{top-level-eval-hook 255}#
- #{x 1714}#
- #{mod 1619}#)
- #{x 1714}#))
+ (#{top-level-eval-hook 4273}#
+ #{x 19587}#
+ #{mod 18189}#)
+ #{x 19587}#))
(lambda ()
- (#{build-global-definition 287}#
- #{s 1618}#
- #{n 1701}#
- (#{chi 437}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{mod 1619}#))))
- #{exps 1596}#)))
- (if (memv #{type 1703}#
- '(displaced-lexical))
+ (#{build-global-definition 4288}#
+ #{s 18188}#
+ #{n 19386}#
+ (#{chi 4345}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{mod 18189}#))))
+ #{exps 17919}#)))
+ (if (let ((#{t 20083}# #{type 19387}#))
+ (eqv? #{t 20083}#
+ 'displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e 1616}#
- (#{wrap 423}#
- #{value 1615}#
- #{w 1617}#
- #{mod 1619}#))
+ #{e 18186}#
+ (#{wrap 4338}#
+ #{value 18185}#
+ #{w 18187}#
+ #{mod 18189}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e 1616}#
- (#{wrap 423}#
- #{value 1615}#
- #{w 1617}#
- #{mod 1619}#))))))
+ #{e 18186}#
+ (#{wrap 4338}#
+ #{value 18185}#
+ #{w 18187}#
+ #{mod 18189}#))))))
(values
- (cons (if (eq? #{m 1593}# 'c&e)
- (let ((#{x 1719}#
- (#{chi-expr 439}#
- #{type 1614}#
- #{value 1615}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#)))
+ (cons (if (eq? #{m 17916}# 'c&e)
+ (let ((#{x 20218}#
+ (#{chi-expr 4346}#
+ #{type 18184}#
+ #{value 18185}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#)))
(begin
- (#{top-level-eval-hook 255}#
- #{x 1719}#
- #{mod 1619}#)
- #{x 1719}#))
+ (primitive-eval #{x 20218}#)
+ #{x 20218}#))
(lambda ()
- (#{chi-expr 439}#
- #{type 1614}#
- #{value 1615}#
- #{e 1616}#
- #{r 1590}#
- #{w 1617}#
- #{s 1618}#
- #{mod 1619}#)))
- #{exps 1596}#))))))))))
- (lambda (#{exps 1720}#)
- (#{scan 1588}#
- (cdr #{body 1589}#)
- #{r 1590}#
- #{w 1591}#
- #{s 1592}#
- #{m 1593}#
- #{esew 1594}#
- #{mod 1595}#
- #{exps 1720}#)))))))
+ (#{chi-expr 4346}#
+ #{type 18184}#
+ #{value 18185}#
+ #{e 18186}#
+ #{r 17913}#
+ #{w 18187}#
+ #{s 18188}#
+ #{mod 18189}#)))
+ #{exps 17919}#))))))))))
+ (lambda (#{exps 20227}#)
+ (#{scan 17781}#
+ (cdr #{body 17912}#)
+ #{r 17913}#
+ #{w 17914}#
+ #{s 17915}#
+ #{m 17916}#
+ #{esew 17917}#
+ #{mod 17918}#
+ #{exps 20227}#)))))))
(call-with-values
(lambda ()
- (#{scan 1588}#
- #{body 1573}#
- #{r 1574}#
- #{w 1575}#
- #{s 1576}#
- #{m 1577}#
- #{esew 1578}#
- #{mod 1579}#
+ (#{scan 17781}#
+ #{body 17774}#
+ #{r 17775}#
+ #{w 17776}#
+ #{s 17777}#
+ #{m 17778}#
+ #{esew 17779}#
+ #{mod 17780}#
'()))
- (lambda (#{exps 1722}#)
- (if (null? #{exps 1722}#)
- (#{build-void 269}# #{s 1576}#)
- (#{build-sequence 299}#
- #{s 1576}#
+ (lambda (#{exps 17784}#)
+ (if (null? #{exps 17784}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #{s 17777}#)
+ (#{build-sequence 4294}#
+ #{s 17777}#
(letrec*
- ((#{lp 1727}#
- (lambda (#{in 1728}# #{out 1729}#)
- (if (null? #{in 1728}#)
- #{out 1729}#
- (let ((#{e 1731}# (car #{in 1728}#)))
- (#{lp 1727}#
- (cdr #{in 1728}#)
- (cons (if (procedure? #{e 1731}#)
- (#{e 1731}#)
- #{e 1731}#)
- #{out 1729}#)))))))
- (#{lp 1727}# #{exps 1722}# '())))))))))
- (#{chi-install-global 431}#
- (lambda (#{name 1732}# #{e 1733}#)
- (#{build-global-definition 287}#
- #f
- #{name 1732}#
- (#{build-application 271}#
- #f
- (#{build-primref 295}#
+ ((#{lp 17824}#
+ (lambda (#{in 17908}# #{out 17909}#)
+ (if (null? #{in 17908}#)
+ #{out 17909}#
+ (let ((#{e 17910}# (car #{in 17908}#)))
+ (#{lp 17824}#
+ (cdr #{in 17908}#)
+ (cons (if (procedure? #{e 17910}#)
+ (#{e 17910}#)
+ #{e 17910}#)
+ #{out 17909}#)))))))
+ (#{lp 17824}# #{exps 17784}# '())))))))))
+ (#{chi-install-global 4342}#
+ (lambda (#{name 20228}# #{e 20229}#)
+ (let ((#{exp 20235}#
+ (let ((#{fun-exp 20245}#
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'make-syntax-transformer)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'make-syntax-transformer
+ #f)))
+ (#{arg-exps 20246}#
+ (list (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{name 20228}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ 'macro)
+ #{e 20229}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 20245}#
+ #{arg-exps 20246}#))))
+ (begin
+ (if (if (struct? #{exp 20235}#)
+ (eq? (struct-vtable #{exp 20235}#)
+ (vector-ref %expanded-vtables 13))
+ #f)
+ (let ((#{meta 20287}# (struct-ref #{exp 20235}# 1)))
+ (if (not (assq 'name #{meta 20287}#))
+ (let ((#{v 20294}#
+ (cons (cons 'name #{name 20228}#) #{meta 20287}#)))
+ (struct-set! #{exp 20235}# 1 #{v 20294}#)))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 9)
#f
- 'make-syntax-transformer)
- (list (#{build-data 297}# #f #{name 1732}#)
- (#{build-data 297}# #f 'macro)
- #{e 1733}#)))))
- (#{chi-when-list 433}#
- (lambda (#{e 1741}# #{when-list 1742}# #{w 1743}#)
+ #{name 20228}#
+ #{exp 20235}#)))))
+ (#{chi-when-list 4343}#
+ (lambda (#{e 20305}# #{when-list 20306}# #{w 20307}#)
(letrec*
- ((#{f 1750}#
- (lambda (#{when-list 1751}# #{situations 1752}#)
- (if (null? #{when-list 1751}#)
- #{situations 1752}#
- (#{f 1750}#
- (cdr #{when-list 1751}#)
- (cons (let ((#{x 1754}# (car #{when-list 1751}#)))
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
+ ((#{f 20308}#
+ (lambda (#{when-list 20311}# #{situations 20312}#)
+ (if (null? #{when-list 20311}#)
+ #{situations 20312}#
+ (#{f 20308}#
+ (cdr #{when-list 20311}#)
+ (cons (let ((#{x 20313}# (car #{when-list 20311}#)))
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length #{x 20313}#)
+ 4)
+ (eq? (vector-ref #{x 20313}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ compile
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
'compile
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length
+ #{x 20313}#)
+ 4)
+ (eq? (vector-ref
+ #{x 20313}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
'load
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length
+ #{x 20313}#)
+ 4)
+ (eq? (vector-ref
+ #{x 20313}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}#
+ #{x 20313}#
+ '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
'eval
- (if (#{free-id=? 413}#
- #{x 1754}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1753"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1747" "i1748" "i1749"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1744" "i1745" "i1746"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
+ (if (if (eq? (if (if (vector? #{x 20313}#)
+ (if (= (vector-length
+ #{x 20313}#)
+ 4)
+ (eq? (vector-ref
+ #{x 20313}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 20313}# 1)
+ #{x 20313}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ when-list
+ w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top)
+ (top)
+ (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ when-list
+ w)
+ #((top)
+ (top)
+ (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f
+ when-list
+ situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748"
+ "i1749"
+ "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745"
+ "i1746"
+ "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}#
+ #{x 20313}#
+ '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i1754"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1748" "i1749" "i1750"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e 1741}#
- (#{wrap 423}#
- #{x 1754}#
- #{w 1743}#
+ #{e 20305}#
+ (#{wrap 4338}#
+ #{x 20313}#
+ #{w 20307}#
#f)))))))
- #{situations 1752}#))))))
- (#{f 1750}# #{when-list 1742}# '()))))
- (#{syntax-type 435}#
- (lambda (#{e 1764}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
- #{for-car? 1770}#)
- (if (symbol? #{e 1764}#)
- (let ((#{n 1782}#
- (#{id-var-name 411}# #{e 1764}# #{w 1766}#)))
- (let ((#{b 1784}#
- (#{lookup 343}#
- #{n 1782}#
- #{r 1765}#
- #{mod 1769}#)))
- (let ((#{type 1786}# (car #{b 1784}#)))
- (if (memv #{type 1786}# '(lexical))
+ #{situations 20312}#))))))
+ (#{f 20308}# #{when-list 20306}# '()))))
+ (#{syntax-type 4344}#
+ (lambda (#{e 20516}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
+ #{for-car? 20522}#)
+ (if (symbol? #{e 20516}#)
+ (let ((#{n 20523}#
+ (#{id-var-name 4332}# #{e 20516}# #{w 20518}#)))
+ (let ((#{b 20524}#
+ (let ((#{t 21099}# (assq #{n 20523}# #{r 20517}#)))
+ (if #{t 21099}#
+ (cdr #{t 21099}#)
+ (if (symbol? #{n 20523}#)
+ (let ((#{t 21104}#
+ (begin
+ (if (if (not #{mod 20521}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should have a module"
+ #{n 20523}#))
+ (let ((#{v 21141}#
+ (module-variable
+ (if #{mod 20521}#
+ (resolve-module
+ (cdr #{mod 20521}#))
+ (current-module))
+ #{n 20523}#)))
+ (if #{v 21141}#
+ (if (variable-bound? #{v 21141}#)
+ (let ((#{val 21150}#
+ (variable-ref #{v 21141}#)))
+ (if (macro? #{val 21150}#)
+ (if (macro-type #{val 21150}#)
+ (cons (macro-type #{val 21150}#)
+ (macro-binding
+ #{val 21150}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 21104}# #{t 21104}# '(global)))
+ '(displaced-lexical))))))
+ (let ((#{type 20525}# (car #{b 20524}#)))
+ (if (let ((#{t 20559}# #{type 20525}#))
+ (eqv? #{t 20559}# 'lexical))
(values
- #{type 1786}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{type 1786}# '(global))
+ #{type 20525}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (let ((#{t 20716}# #{type 20525}#))
+ (eqv? #{t 20716}# 'global))
(values
- #{type 1786}#
- #{n 1782}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{type 1786}# '(macro))
- (if #{for-car? 1770}#
+ #{type 20525}#
+ #{n 20523}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (let ((#{t 20842}# #{type 20525}#))
+ (eqv? #{t 20842}# 'macro))
+ (if #{for-car? 20522}#
(values
- #{type 1786}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (#{syntax-type 435}#
- (#{chi-macro 443}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#)
- #{r 1765}#
+ #{type 20525}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (#{syntax-type 4344}#
+ (#{chi-macro 4348}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#)
+ #{r 20517}#
'(())
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
#f))
(values
- #{type 1786}#
- (cdr #{b 1784}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)))))))
- (if (pair? #{e 1764}#)
- (let ((#{first 1800}# (car #{e 1764}#)))
+ #{type 20525}#
+ (cdr #{b 20524}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)))))))
+ (if (pair? #{e 20516}#)
+ (let ((#{first 21161}# (car #{e 20516}#)))
(call-with-values
(lambda ()
- (#{syntax-type 435}#
- #{first 1800}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
+ (#{syntax-type 4344}#
+ #{first 21161}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
#t))
- (lambda (#{ftype 1801}#
- #{fval 1802}#
- #{fe 1803}#
- #{fw 1804}#
- #{fs 1805}#
- #{fmod 1806}#)
- (if (memv #{ftype 1801}# '(lexical))
+ (lambda (#{ftype 21163}#
+ #{fval 21164}#
+ #{fe 21165}#
+ #{fw 21166}#
+ #{fs 21167}#
+ #{fmod 21168}#)
+ (if (eqv? #{ftype 21163}# 'lexical)
(values
'lexical-call
- #{fval 1802}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(global))
+ #{fval 21164}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'global)
(values
'global-call
- (#{make-syntax-object 310}#
- #{fval 1802}#
- #{w 1766}#
- #{fmod 1806}#)
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(macro))
- (#{syntax-type 435}#
- (#{chi-macro 443}#
- #{fval 1802}#
- #{e 1764}#
- #{r 1765}#
- #{w 1766}#
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#)
- #{r 1765}#
+ (vector
+ 'syntax-object
+ #{fval 21164}#
+ #{w 20518}#
+ #{fmod 21168}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'macro)
+ (#{syntax-type 4344}#
+ (#{chi-macro 4348}#
+ #{fval 21164}#
+ #{e 20516}#
+ #{r 20517}#
+ #{w 20518}#
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#)
+ #{r 20517}#
'(())
- #{s 1767}#
- #{rib 1768}#
- #{mod 1769}#
- #{for-car? 1770}#)
- (if (memv #{ftype 1801}# '(module-ref))
+ #{s 20519}#
+ #{rib 20520}#
+ #{mod 20521}#
+ #{for-car? 20522}#)
+ (if (eqv? #{ftype 21163}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 1802}# #{e 1764}# #{r 1765}# #{w 1766}#))
- (lambda (#{e 1818}#
- #{r 1819}#
- #{w 1820}#
- #{s 1821}#
- #{mod 1822}#)
- (#{syntax-type 435}#
- #{e 1818}#
- #{r 1819}#
- #{w 1820}#
- #{s 1821}#
- #{rib 1768}#
- #{mod 1822}#
- #{for-car? 1770}#)))
- (if (memv #{ftype 1801}# '(core))
+ (#{fval 21164}#
+ #{e 20516}#
+ #{r 20517}#
+ #{w 20518}#))
+ (lambda (#{e 21189}#
+ #{r 21190}#
+ #{w 21191}#
+ #{s 21192}#
+ #{mod 21193}#)
+ (#{syntax-type 4344}#
+ #{e 21189}#
+ #{r 21190}#
+ #{w 21191}#
+ #{s 21192}#
+ #{rib 20520}#
+ #{mod 21193}#
+ #{for-car? 20522}#)))
+ (if (eqv? #{ftype 21163}# 'core)
(values
'core-form
- #{fval 1802}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(local-syntax))
+ #{fval 21164}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'local-syntax)
(values
'local-syntax-form
- #{fval 1802}#
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(begin))
+ #{fval 21164}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'begin)
(values
'begin-form
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(eval-when))
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'eval-when)
(values
'eval-when-form
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
- (if (memv #{ftype 1801}# '(define))
- (let ((#{tmp 1834}#
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
+ (if (eqv? #{ftype 21163}# 'define)
+ (let ((#{tmp 21210}#
($sc-dispatch
- #{e 1764}#
+ #{e 20516}#
'(_ any any))))
- (if (if #{tmp 1834}#
+ (if (if #{tmp 21210}#
(@apply
- (lambda (#{name 1837}#
- #{val 1838}#)
- (#{id? 349}# #{name 1837}#))
- #{tmp 1834}#)
+ (lambda (#{name 21214}#
+ #{val 21215}#)
+ (if (symbol? #{name 21214}#)
+ #t
+ (if (if (vector?
+ #{name 21214}#)
+ (if (= (vector-length
+ #{name 21214}#)
+ 4)
+ (eq? (vector-ref
+ #{name 21214}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21214}#
+ 1))
+ #f)))
+ #{tmp 21210}#)
#f)
(@apply
- (lambda (#{name 1841}# #{val 1842}#)
+ (lambda (#{name 21242}# #{val 21243}#)
(values
'define-form
- #{name 1841}#
- #{val 1842}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1834}#)
- (let ((#{tmp 1843}#
+ #{name 21242}#
+ #{val 21243}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21210}#)
+ (let ((#{tmp 21244}#
($sc-dispatch
- #{e 1764}#
+ #{e 20516}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 1843}#
+ (if (if #{tmp 21244}#
(@apply
- (lambda (#{name 1848}#
- #{args 1849}#
- #{e1 1850}#
- #{e2 1851}#)
- (if (#{id? 349}#
- #{name 1848}#)
- (#{valid-bound-ids? 417}#
- (#{lambda-var-list 467}#
- #{args 1849}#))
+ (lambda (#{name 21248}#
+ #{args 21249}#
+ #{e1 21250}#
+ #{e2 21251}#)
+ (if (if (symbol?
+ #{name 21248}#)
+ #t
+ (if (if (vector?
+ #{name 21248}#)
+ (if (= (vector-length
+ #{name 21248}#)
+ 4)
+ (eq? (vector-ref
+ #{name 21248}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21248}#
+ 1))
+ #f))
+ (#{valid-bound-ids? 4335}#
+ (letrec*
+ ((#{lvl 21400}#
+ (lambda (#{vars 21402}#
+ #{ls 21403}#
+ #{w 21404}#)
+ (if (pair? #{vars 21402}#)
+ (#{lvl 21400}#
+ (cdr #{vars 21402}#)
+ (cons (#{wrap 4338}#
+ (car #{vars 21402}#)
+ #{w 21404}#
+ #f)
+ #{ls 21403}#)
+ #{w 21404}#)
+ (if (if (symbol?
+ #{vars 21402}#)
+ #t
+ (if (if (vector?
+ #{vars 21402}#)
+ (if (= (vector-length
+ #{vars 21402}#)
+ 4)
+ (eq? (vector-ref
+ #{vars 21402}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{vars 21402}#
+ 1))
+ #f))
+ (cons (#{wrap 4338}#
+ #{vars 21402}#
+ #{w 21404}#
+ #f)
+ #{ls 21403}#)
+ (if (null? #{vars 21402}#)
+ #{ls 21403}#
+ (if (if (vector?
+ #{vars 21402}#)
+ (if (= (vector-length
+ #{vars 21402}#)
+ 4)
+ (eq? (vector-ref
+ #{vars 21402}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (#{lvl 21400}#
+ (vector-ref
+ #{vars 21402}#
+ 1)
+ #{ls 21403}#
+ (#{join-wraps 4329}#
+ #{w 21404}#
+ (vector-ref
+ #{vars 21402}#
+ 2)))
+ (cons #{vars 21402}#
+ #{ls 21403}#))))))))
+ (#{lvl 21400}#
+ #{args 21249}#
+ '()
+ '(()))))
#f))
- #{tmp 1843}#)
+ #{tmp 21244}#)
#f)
(@apply
- (lambda (#{name 1858}#
- #{args 1859}#
- #{e1 1860}#
- #{e2 1861}#)
+ (lambda (#{name 21448}#
+ #{args 21449}#
+ #{e1 21450}#
+ #{e2 21451}#)
(values
'define-form
- (#{wrap 423}#
- #{name 1858}#
- #{w 1766}#
- #{mod 1769}#)
- (#{decorate-source 265}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(name
- args
- e1
- e2)
- #((top)
- (top)
- (top)
- (top))
- #("i1854"
- "i1855"
- "i1856"
- "i1857"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1807"
- "i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1799"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1771"
- "i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i45"
- "i44"
- "i43")))
- (hygiene guile))
- (#{wrap 423}#
- (cons #{args 1859}#
- (cons #{e1 1860}#
- #{e2 1861}#))
- #{w 1766}#
- #{mod 1769}#))
- #{s 1767}#)
+ (#{wrap 4338}#
+ #{name 21448}#
+ #{w 20518}#
+ #{mod 20521}#)
+ (let ((#{e 21457}#
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i1855"
+ "i1856"
+ "i1857"
+ "i1858"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1808"
+ "i1809"
+ "i1810"
+ "i1811"
+ "i1812"
+ "i1813"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1800"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1772"
+ "i1773"
+ "i1774"
+ "i1775"
+ "i1776"
+ "i1777"
+ "i1778"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene
+ guile))
+ (#{wrap 4338}#
+ (cons #{args 21449}#
+ (cons #{e1 21450}#
+ #{e2 21451}#))
+ #{w 20518}#
+ #{mod 20521}#))))
+ (begin
+ (if (if (pair? #{e 21457}#)
+ #{s 20519}#
+ #f)
+ (set-source-properties!
+ #{e 21457}#
+ #{s 20519}#))
+ #{e 21457}#))
'(())
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1843}#)
- (let ((#{tmp 1864}#
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21244}#)
+ (let ((#{tmp 21464}#
($sc-dispatch
- #{e 1764}#
+ #{e 20516}#
'(_ any))))
- (if (if #{tmp 1864}#
+ (if (if #{tmp 21464}#
(@apply
- (lambda (#{name 1866}#)
- (#{id? 349}#
- #{name 1866}#))
- #{tmp 1864}#)
+ (lambda (#{name 21468}#)
+ (if (symbol?
+ #{name 21468}#)
+ #t
+ (if (if (vector?
+ #{name 21468}#)
+ (if (= (vector-length
+ #{name 21468}#)
+ 4)
+ (eq? (vector-ref
+ #{name 21468}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21468}#
+ 1))
+ #f)))
+ #{tmp 21464}#)
#f)
(@apply
- (lambda (#{name 1868}#)
+ (lambda (#{name 21495}#)
(values
'define-form
- (#{wrap 423}#
- #{name 1868}#
- #{w 1766}#
- #{mod 1769}#)
+ (#{wrap 4338}#
+ #{name 21495}#
+ #{w 20518}#
+ #{mod 20521}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1867"))
+ #("i1868"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3874,17 +11165,17 @@
(top)
(top)
(top))
- #("i1807"
- "i1808"
+ #("i1808"
"i1809"
"i1810"
"i1811"
- "i1812"))
+ "i1812"
+ "i1813"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1799"))
+ #("i1800"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3903,13 +11194,13 @@
(top)
(top)
(top))
- #("i1771"
- "i1772"
+ #("i1772"
"i1773"
"i1774"
"i1775"
"i1776"
- "i1777"))
+ "i1777"
+ "i1778"))
#(ribcage
(lambda-var-list
gen-var
@@ -4183,150 +11474,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
#(syntax-object
#f
@@ -4334,7 +11625,7 @@
#(ribcage
#(name)
#((top))
- #("i1867"))
+ #("i1868"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -4350,17 +11641,17 @@
(top)
(top)
(top))
- #("i1807"
- "i1808"
+ #("i1808"
"i1809"
"i1810"
"i1811"
- "i1812"))
+ "i1812"
+ "i1813"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1799"))
+ #("i1800"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -4379,13 +11670,13 @@
(top)
(top)
(top))
- #("i1771"
- "i1772"
+ #("i1772"
"i1773"
"i1774"
"i1775"
"i1776"
- "i1777"))
+ "i1777"
+ "i1778"))
#(ribcage
(lambda-var-list
gen-var
@@ -4659,150 +11950,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
#(syntax-object
#f
@@ -4810,7 +12101,7 @@
#(ribcage
#(name)
#((top))
- #("i1867"))
+ #("i1868"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -4826,17 +12117,17 @@
(top)
(top)
(top))
- #("i1807"
- "i1808"
+ #("i1808"
"i1809"
"i1810"
"i1811"
- "i1812"))
+ "i1812"
+ "i1813"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1799"))
+ #("i1800"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -4855,13 +12146,13 @@
(top)
(top)
(top))
- #("i1771"
- "i1772"
+ #("i1772"
"i1773"
"i1774"
"i1775"
"i1776"
- "i1777"))
+ "i1777"
+ "i1778"))
#(ribcage
(lambda-var-list
gen-var
@@ -5135,1523 +12426,3526 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
'(())
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1864}#)
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21464}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1764}#)))))))
- (if (memv #{ftype 1801}# '(define-syntax))
- (let ((#{tmp 1872}#
+ #{e 20516}#)))))))
+ (if (eqv? #{ftype 21163}# 'define-syntax)
+ (let ((#{tmp 21514}#
($sc-dispatch
- #{e 1764}#
+ #{e 20516}#
'(_ any any))))
- (if (if #{tmp 1872}#
+ (if (if #{tmp 21514}#
(@apply
- (lambda (#{name 1875}#
- #{val 1876}#)
- (#{id? 349}# #{name 1875}#))
- #{tmp 1872}#)
+ (lambda (#{name 21518}#
+ #{val 21519}#)
+ (if (symbol? #{name 21518}#)
+ #t
+ (if (if (vector?
+ #{name 21518}#)
+ (if (= (vector-length
+ #{name 21518}#)
+ 4)
+ (eq? (vector-ref
+ #{name 21518}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21518}#
+ 1))
+ #f)))
+ #{tmp 21514}#)
#f)
(@apply
- (lambda (#{name 1879}# #{val 1880}#)
+ (lambda (#{name 21546}#
+ #{val 21547}#)
(values
'define-syntax-form
- #{name 1879}#
- #{val 1880}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#))
- #{tmp 1872}#)
+ #{name 21546}#
+ #{val 21547}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#))
+ #{tmp 21514}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1764}#)))
+ #{e 20516}#)))
(values
'call
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#))))))))))))))
- (if (#{syntax-object? 312}# #{e 1764}#)
- (#{syntax-type 435}#
- (#{syntax-object-expression 314}# #{e 1764}#)
- #{r 1765}#
- (#{join-wraps 405}#
- #{w 1766}#
- (#{syntax-object-wrap 316}# #{e 1764}#))
- (let ((#{t 1886}#
- (#{source-annotation 327}# #{e 1764}#)))
- (if #{t 1886}# #{t 1886}# #{s 1767}#))
- #{rib 1768}#
- (let ((#{t 1890}#
- (#{syntax-object-module 318}# #{e 1764}#)))
- (if #{t 1890}# #{t 1890}# #{mod 1769}#))
- #{for-car? 1770}#)
- (if (self-evaluating? #{e 1764}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#))))))))))))))
+ (if (if (vector? #{e 20516}#)
+ (if (= (vector-length #{e 20516}#) 4)
+ (eq? (vector-ref #{e 20516}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{syntax-type 4344}#
+ (vector-ref #{e 20516}# 1)
+ #{r 20517}#
+ (#{join-wraps 4329}#
+ #{w 20518}#
+ (vector-ref #{e 20516}# 2))
+ (let ((#{t 21574}#
+ (#{source-annotation 4306}# #{e 20516}#)))
+ (if #{t 21574}# #{t 21574}# #{s 20519}#))
+ #{rib 20520}#
+ (let ((#{t 21834}# (vector-ref #{e 20516}# 3)))
+ (if #{t 21834}# #{t 21834}# #{mod 20521}#))
+ #{for-car? 20522}#)
+ (if (self-evaluating? #{e 20516}#)
(values
'constant
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)
(values
'other
#f
- #{e 1764}#
- #{w 1766}#
- #{s 1767}#
- #{mod 1769}#)))))))
- (#{chi 437}#
- (lambda (#{e 1895}# #{r 1896}# #{w 1897}# #{mod 1898}#)
+ #{e 20516}#
+ #{w 20518}#
+ #{s 20519}#
+ #{mod 20521}#)))))))
+ (#{chi 4345}#
+ (lambda (#{e 21843}#
+ #{r 21844}#
+ #{w 21845}#
+ #{mod 21846}#)
(call-with-values
(lambda ()
- (#{syntax-type 435}#
- #{e 1895}#
- #{r 1896}#
- #{w 1897}#
- (#{source-annotation 327}# #{e 1895}#)
+ (#{syntax-type 4344}#
+ #{e 21843}#
+ #{r 21844}#
+ #{w 21845}#
+ (#{source-annotation 4306}# #{e 21843}#)
#f
- #{mod 1898}#
+ #{mod 21846}#
#f))
- (lambda (#{type 1903}#
- #{value 1904}#
- #{e 1905}#
- #{w 1906}#
- #{s 1907}#
- #{mod 1908}#)
- (#{chi-expr 439}#
- #{type 1903}#
- #{value 1904}#
- #{e 1905}#
- #{r 1896}#
- #{w 1906}#
- #{s 1907}#
- #{mod 1908}#)))))
- (#{chi-expr 439}#
- (lambda (#{type 1915}#
- #{value 1916}#
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(lexical))
- (#{build-lexical-reference 277}#
- 'value
- #{s 1920}#
- #{e 1917}#
- #{value 1916}#)
- (if (memv #{type 1915}# '(core core-form))
- (#{value 1916}#
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(module-ref))
+ (lambda (#{type 22020}#
+ #{value 22021}#
+ #{e 22022}#
+ #{w 22023}#
+ #{s 22024}#
+ #{mod 22025}#)
+ (#{chi-expr 4346}#
+ #{type 22020}#
+ #{value 22021}#
+ #{e 22022}#
+ #{r 21844}#
+ #{w 22023}#
+ #{s 22024}#
+ #{mod 22025}#)))))
+ (#{chi-expr 4346}#
+ (lambda (#{type 22028}#
+ #{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'lexical)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{s 22033}#
+ #{e 22030}#
+ #{value 22029}#)
+ (if (if (eqv? #{type 22028}# 'core)
+ #t
+ (eqv? #{type 22028}# 'core-form))
+ (#{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 1916}# #{e 1917}# #{r 1918}# #{w 1919}#))
- (lambda (#{e 1932}#
- #{r 1933}#
- #{w 1934}#
- #{s 1935}#
- #{mod 1936}#)
- (#{chi 437}#
- #{e 1932}#
- #{r 1933}#
- #{w 1934}#
- #{mod 1936}#)))
- (if (memv #{type 1915}# '(lexical-call))
- (#{chi-application 441}#
- (let ((#{id 1944}# (car #{e 1917}#)))
- (#{build-lexical-reference 277}#
+ (#{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#))
+ (lambda (#{e 22060}#
+ #{r 22061}#
+ #{w 22062}#
+ #{s 22063}#
+ #{mod 22064}#)
+ (#{chi 4345}#
+ #{e 22060}#
+ #{r 22061}#
+ #{w 22062}#
+ #{mod 22064}#)))
+ (if (eqv? #{type 22028}# 'lexical-call)
+ (#{chi-application 4347}#
+ (let ((#{id 22144}# (car #{e 22030}#)))
+ (#{build-lexical-reference 4283}#
'fun
- (#{source-annotation 327}# #{id 1944}#)
- (if (#{syntax-object? 312}# #{id 1944}#)
- (syntax->datum #{id 1944}#)
- #{id 1944}#)
- #{value 1916}#))
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(global-call))
- (#{chi-application 441}#
- (#{build-global-reference 283}#
- (#{source-annotation 327}# (car #{e 1917}#))
- (if (#{syntax-object? 312}# #{value 1916}#)
- (#{syntax-object-expression 314}# #{value 1916}#)
- #{value 1916}#)
- (if (#{syntax-object? 312}# #{value 1916}#)
- (#{syntax-object-module 318}# #{value 1916}#)
- #{mod 1921}#))
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(constant))
- (#{build-data 297}#
- #{s 1920}#
- (#{strip 463}#
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- '(())))
- (if (memv #{type 1915}# '(global))
- (#{build-global-reference 283}#
- #{s 1920}#
- #{value 1916}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(call))
- (#{chi-application 441}#
- (#{chi 437}#
- (car #{e 1917}#)
- #{r 1918}#
- #{w 1919}#
- #{mod 1921}#)
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (if (memv #{type 1915}# '(begin-form))
- (let ((#{tmp 1952}#
+ (#{source-annotation 4306}# #{id 22144}#)
+ (if (if (vector? #{id 22144}#)
+ (if (= (vector-length #{id 22144}#) 4)
+ (eq? (vector-ref #{id 22144}# 0) 'syntax-object)
+ #f)
+ #f)
+ (syntax->datum #{id 22144}#)
+ #{id 22144}#)
+ #{value 22029}#))
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'global-call)
+ (#{chi-application 4347}#
+ (#{build-global-reference 4286}#
+ (#{source-annotation 4306}# (car #{e 22030}#))
+ (if (if (vector? #{value 22029}#)
+ (if (= (vector-length #{value 22029}#) 4)
+ (eq? (vector-ref #{value 22029}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 22029}# 1)
+ #{value 22029}#)
+ (if (if (vector? #{value 22029}#)
+ (if (= (vector-length #{value 22029}#) 4)
+ (eq? (vector-ref #{value 22029}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 22029}# 3)
+ #{mod 22034}#))
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'constant)
+ (let ((#{exp 22680}#
+ (#{strip 4358}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#) #{s 22033}# #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#)
+ '(()))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{s 22033}#
+ #{exp 22680}#))
+ (if (eqv? #{type 22028}# 'global)
+ (#{analyze-variable 4285}#
+ #{mod 22034}#
+ #{value 22029}#
+ (lambda (#{mod 22716}# #{var 22717}# #{public? 22718}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{s 22033}#
+ #{mod 22716}#
+ #{var 22717}#
+ #{public? 22718}#))
+ (lambda (#{var 22727}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{s 22033}#
+ #{var 22727}#)))
+ (if (eqv? #{type 22028}# 'call)
+ (#{chi-application 4347}#
+ (#{chi 4345}#
+ (car #{e 22030}#)
+ #{r 22031}#
+ #{w 22032}#
+ #{mod 22034}#)
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (if (eqv? #{type 22028}# 'begin-form)
+ (let ((#{tmp 22807}#
($sc-dispatch
- #{e 1917}#
+ #{e 22030}#
'(_ any . each-any))))
- (if #{tmp 1952}#
+ (if #{tmp 22807}#
(@apply
- (lambda (#{e1 1955}# #{e2 1956}#)
- (#{chi-sequence 427}#
- (cons #{e1 1955}# #{e2 1956}#)
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))
- #{tmp 1952}#)
+ (lambda (#{e1 22811}# #{e2 22812}#)
+ (#{chi-sequence 4340}#
+ (cons #{e1 22811}# #{e2 22812}#)
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#))
+ #{tmp 22807}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1917}#)))
- (if (memv #{type 1915}# '(local-syntax-form))
- (#{chi-local-syntax 447}#
- #{value 1916}#
- #{e 1917}#
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#
- #{chi-sequence 427}#)
- (if (memv #{type 1915}# '(eval-when-form))
- (let ((#{tmp 1961}#
+ #{e 22030}#)))
+ (if (eqv? #{type 22028}# 'local-syntax-form)
+ (#{chi-local-syntax 4350}#
+ #{value 22029}#
+ #{e 22030}#
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#
+ #{chi-sequence 4340}#)
+ (if (eqv? #{type 22028}# 'eval-when-form)
+ (let ((#{tmp 22978}#
($sc-dispatch
- #{e 1917}#
+ #{e 22030}#
'(_ each-any any . each-any))))
- (if #{tmp 1961}#
+ (if #{tmp 22978}#
(@apply
- (lambda (#{x 1965}# #{e1 1966}# #{e2 1967}#)
- (let ((#{when-list 1969}#
- (#{chi-when-list 433}#
- #{e 1917}#
- #{x 1965}#
- #{w 1919}#)))
- (if (memq 'eval #{when-list 1969}#)
- (#{chi-sequence 427}#
- (cons #{e1 1966}# #{e2 1967}#)
- #{r 1918}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#)
- (#{chi-void 451}#))))
- #{tmp 1961}#)
+ (lambda (#{x 22982}#
+ #{e1 22983}#
+ #{e2 22984}#)
+ (let ((#{when-list 22985}#
+ (#{chi-when-list 4343}#
+ #{e 22030}#
+ #{x 22982}#
+ #{w 22032}#)))
+ (if (memq 'eval #{when-list 22985}#)
+ (#{chi-sequence 4340}#
+ (cons #{e1 22983}# #{e2 22984}#)
+ #{r 22031}#
+ #{w 22032}#
+ #{s 22033}#
+ #{mod 22034}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f))))
+ #{tmp 22978}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1917}#)))
- (if (memv #{type 1915}#
- '(define-form define-syntax-form))
+ #{e 22030}#)))
+ (if (if (eqv? #{type 22028}# 'define-form)
+ #t
+ (eqv? #{type 22028}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 1917}#
- (#{wrap 423}#
- #{value 1916}#
- #{w 1919}#
- #{mod 1921}#))
- (if (memv #{type 1915}# '(syntax))
+ #{e 22030}#
+ (#{wrap 4338}#
+ #{value 22029}#
+ #{w 22032}#
+ #{mod 22034}#))
+ (if (eqv? #{type 22028}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))
- (if (memv #{type 1915}# '(displaced-lexical))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#)
+ #{s 22033}#
+ #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#))
+ (if (eqv? #{type 22028}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#)
+ #{s 22033}#
+ #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap 425}#
- #{e 1917}#
- #{w 1919}#
- #{s 1920}#
- #{mod 1921}#))))))))))))))))))
- (#{chi-application 441}#
- (lambda (#{x 1976}#
- #{e 1977}#
- #{r 1978}#
- #{w 1979}#
- #{s 1980}#
- #{mod 1981}#)
- (let ((#{tmp 1989}#
- ($sc-dispatch #{e 1977}# '(any . each-any))))
- (if #{tmp 1989}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 22030}#)
+ #{s 22033}#
+ #f)
+ (set-source-properties!
+ #{e 22030}#
+ #{s 22033}#))
+ #{e 22030}#)
+ #{w 22032}#
+ #{mod 22034}#))))))))))))))))))
+ (#{chi-application 4347}#
+ (lambda (#{x 23174}#
+ #{e 23175}#
+ #{r 23176}#
+ #{w 23177}#
+ #{s 23178}#
+ #{mod 23179}#)
+ (let ((#{tmp 23181}#
+ ($sc-dispatch #{e 23175}# '(any . each-any))))
+ (if #{tmp 23181}#
(@apply
- (lambda (#{e0 1992}# #{e1 1993}#)
- (#{build-application 271}#
- #{s 1980}#
- #{x 1976}#
- (map (lambda (#{e 1994}#)
- (#{chi 437}#
- #{e 1994}#
- #{r 1978}#
- #{w 1979}#
- #{mod 1981}#))
- #{e1 1993}#)))
- #{tmp 1989}#)
+ (lambda (#{e0 23185}# #{e1 23186}#)
+ (#{build-application 4280}#
+ #{s 23178}#
+ #{x 23174}#
+ (map (lambda (#{e 23271}#)
+ (#{chi 4345}#
+ #{e 23271}#
+ #{r 23176}#
+ #{w 23177}#
+ #{mod 23179}#))
+ #{e1 23186}#)))
+ #{tmp 23181}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 1977}#)))))
- (#{chi-macro 443}#
- (lambda (#{p 1997}#
- #{e 1998}#
- #{r 1999}#
- #{w 2000}#
- #{s 2001}#
- #{rib 2002}#
- #{mod 2003}#)
+ #{e 23175}#)))))
+ (#{chi-macro 4348}#
+ (lambda (#{p 23352}#
+ #{e 23353}#
+ #{r 23354}#
+ #{w 23355}#
+ #{s 23356}#
+ #{rib 23357}#
+ #{mod 23358}#)
(letrec*
- ((#{rebuild-macro-output 2012}#
- (lambda (#{x 2013}# #{m 2014}#)
- (if (pair? #{x 2013}#)
- (#{decorate-source 265}#
- (cons (#{rebuild-macro-output 2012}#
- (car #{x 2013}#)
- #{m 2014}#)
- (#{rebuild-macro-output 2012}#
- (cdr #{x 2013}#)
- #{m 2014}#))
- #{s 2001}#)
- (if (#{syntax-object? 312}# #{x 2013}#)
- (let ((#{w 2022}#
- (#{syntax-object-wrap 316}# #{x 2013}#)))
- (let ((#{ms 2025}# (car #{w 2022}#))
- (#{s 2026}# (cdr #{w 2022}#)))
- (if (if (pair? #{ms 2025}#)
- (eq? (car #{ms 2025}#) #f)
+ ((#{rebuild-macro-output 23359}#
+ (lambda (#{x 23390}# #{m 23391}#)
+ (if (pair? #{x 23390}#)
+ (let ((#{e 23395}#
+ (cons (#{rebuild-macro-output 23359}#
+ (car #{x 23390}#)
+ #{m 23391}#)
+ (#{rebuild-macro-output 23359}#
+ (cdr #{x 23390}#)
+ #{m 23391}#))))
+ (begin
+ (if (if (pair? #{e 23395}#) #{s 23356}# #f)
+ (set-source-properties! #{e 23395}# #{s 23356}#))
+ #{e 23395}#))
+ (if (if (vector? #{x 23390}#)
+ (if (= (vector-length #{x 23390}#) 4)
+ (eq? (vector-ref #{x 23390}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{w 23411}# (vector-ref #{x 23390}# 2)))
+ (let ((#{ms 23412}# (car #{w 23411}#))
+ (#{s 23413}# (cdr #{w 23411}#)))
+ (if (if (pair? #{ms 23412}#)
+ (eq? (car #{ms 23412}#) #f)
#f)
- (#{make-syntax-object 310}#
- (#{syntax-object-expression 314}# #{x 2013}#)
- (cons (cdr #{ms 2025}#)
- (if #{rib 2002}#
- (cons #{rib 2002}# (cdr #{s 2026}#))
- (cdr #{s 2026}#)))
- (#{syntax-object-module 318}# #{x 2013}#))
- (#{make-syntax-object 310}#
- (#{decorate-source 265}#
- (#{syntax-object-expression 314}# #{x 2013}#)
- #{s 2026}#)
- (cons (cons #{m 2014}# #{ms 2025}#)
- (if #{rib 2002}#
- (cons #{rib 2002}# (cons 'shift #{s 2026}#))
- (cons 'shift #{s 2026}#)))
- (#{syntax-object-module 318}# #{x 2013}#)))))
- (if (vector? #{x 2013}#)
- (let ((#{n 2038}# (vector-length #{x 2013}#)))
- (let ((#{v 2040}#
- (#{decorate-source 265}#
- (make-vector #{n 2038}#)
- #{x 2013}#)))
+ (let ((#{expression 23421}# (vector-ref #{x 23390}# 1))
+ (#{wrap 23422}#
+ (cons (cdr #{ms 23412}#)
+ (if #{rib 23357}#
+ (cons #{rib 23357}# (cdr #{s 23413}#))
+ (cdr #{s 23413}#))))
+ (#{module 23423}# (vector-ref #{x 23390}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 23421}#
+ #{wrap 23422}#
+ #{module 23423}#))
+ (let ((#{expression 23433}#
+ (let ((#{e 23438}# (vector-ref #{x 23390}# 1)))
+ (begin
+ (if (if (pair? #{e 23438}#) #{s 23413}# #f)
+ (set-source-properties!
+ #{e 23438}#
+ #{s 23413}#))
+ #{e 23438}#)))
+ (#{wrap 23434}#
+ (cons (cons #{m 23391}# #{ms 23412}#)
+ (if #{rib 23357}#
+ (cons #{rib 23357}#
+ (cons 'shift #{s 23413}#))
+ (cons 'shift #{s 23413}#))))
+ (#{module 23435}# (vector-ref #{x 23390}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 23433}#
+ #{wrap 23434}#
+ #{module 23435}#)))))
+ (if (vector? #{x 23390}#)
+ (let ((#{n 23450}# (vector-length #{x 23390}#)))
+ (let ((#{v 23451}#
+ (let ((#{e 23459}# (make-vector #{n 23450}#)))
+ (begin
+ (if (if (pair? #{e 23459}#) #{x 23390}# #f)
+ (set-source-properties!
+ #{e 23459}#
+ #{x 23390}#))
+ #{e 23459}#))))
(letrec*
- ((#{loop 2043}#
- (lambda (#{i 2044}#)
- (if (= #{i 2044}# #{n 2038}#)
- #{v 2040}#
+ ((#{loop 23452}#
+ (lambda (#{i 23504}#)
+ (if (= #{i 23504}# #{n 23450}#)
+ #{v 23451}#
(begin
(vector-set!
- #{v 2040}#
- #{i 2044}#
- (#{rebuild-macro-output 2012}#
- (vector-ref #{x 2013}# #{i 2044}#)
- #{m 2014}#))
- (#{loop 2043}# (#{1+}# #{i 2044}#)))))))
- (#{loop 2043}# 0))))
- (if (symbol? #{x 2013}#)
+ #{v 23451}#
+ #{i 23504}#
+ (#{rebuild-macro-output 23359}#
+ (vector-ref #{x 23390}# #{i 23504}#)
+ #{m 23391}#))
+ (#{loop 23452}# (#{1+}# #{i 23504}#)))))))
+ (#{loop 23452}# 0))))
+ (if (symbol? #{x 23390}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap 425}#
- #{e 1998}#
- #{w 2000}#
- (cdr #{w 2000}#)
- #{mod 2003}#)
- #{x 2013}#)
- (#{decorate-source 265}# #{x 2013}# #{s 2001}#))))))))
- (#{rebuild-macro-output 2012}#
- (#{p 1997}#
- (#{source-wrap 425}#
- #{e 1998}#
- (#{anti-mark 393}# #{w 2000}#)
- #{s 2001}#
- #{mod 2003}#))
+ (let ((#{s 23510}# (cdr #{w 23355}#)))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 23353}#) #{s 23510}# #f)
+ (set-source-properties!
+ #{e 23353}#
+ #{s 23510}#))
+ #{e 23353}#)
+ #{w 23355}#
+ #{mod 23358}#))
+ #{x 23390}#)
+ (begin
+ (if (if (pair? #{x 23390}#) #{s 23356}# #f)
+ (set-source-properties! #{x 23390}# #{s 23356}#))
+ #{x 23390}#))))))))
+ (#{rebuild-macro-output 23359}#
+ (#{p 23352}#
+ (let ((#{w 23366}#
+ (cons (cons #f (car #{w 23355}#))
+ (cons 'shift (cdr #{w 23355}#)))))
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 23353}#) #{s 23356}# #f)
+ (set-source-properties! #{e 23353}# #{s 23356}#))
+ #{e 23353}#)
+ #{w 23366}#
+ #{mod 23358}#)))
(gensym "m")))))
- (#{chi-body 445}#
- (lambda (#{body 2054}#
- #{outer-form 2055}#
- #{r 2056}#
- #{w 2057}#
- #{mod 2058}#)
- (let ((#{r 2066}#
- (cons '("placeholder" placeholder) #{r 2056}#)))
- (let ((#{ribcage 2068}#
- (#{make-ribcage 372}# '() '() '())))
- (let ((#{w 2071}#
- (cons (car #{w 2057}#)
- (cons #{ribcage 2068}# (cdr #{w 2057}#)))))
+ (#{chi-body 4349}#
+ (lambda (#{body 23542}#
+ #{outer-form 23543}#
+ #{r 23544}#
+ #{w 23545}#
+ #{mod 23546}#)
+ (let ((#{r 23547}#
+ (cons '("placeholder" placeholder) #{r 23544}#)))
+ (let ((#{ribcage 23548}# (vector 'ribcage '() '() '())))
+ (let ((#{w 23549}#
+ (cons (car #{w 23545}#)
+ (cons #{ribcage 23548}# (cdr #{w 23545}#)))))
(letrec*
- ((#{parse 2083}#
- (lambda (#{body 2084}#
- #{ids 2085}#
- #{labels 2086}#
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
- #{bindings 2090}#)
- (if (null? #{body 2084}#)
+ ((#{parse 23550}#
+ (lambda (#{body 23563}#
+ #{ids 23564}#
+ #{labels 23565}#
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
+ #{bindings 23569}#)
+ (if (null? #{body 23563}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 2055}#)
- (let ((#{e 2095}# (cdr (car #{body 2084}#)))
- (#{er 2096}# (car (car #{body 2084}#))))
+ #{outer-form 23543}#)
+ (let ((#{e 23570}# (cdr (car #{body 23563}#)))
+ (#{er 23571}# (car (car #{body 23563}#))))
(call-with-values
(lambda ()
- (#{syntax-type 435}#
- #{e 2095}#
- #{er 2096}#
+ (#{syntax-type 4344}#
+ #{e 23570}#
+ #{er 23571}#
'(())
- (#{source-annotation 327}# #{er 2096}#)
- #{ribcage 2068}#
- #{mod 2058}#
+ (#{source-annotation 4306}# #{er 23571}#)
+ #{ribcage 23548}#
+ #{mod 23546}#
#f))
- (lambda (#{type 2098}#
- #{value 2099}#
- #{e 2100}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#)
- (if (memv #{type 2098}# '(define-form))
- (let ((#{id 2113}#
- (#{wrap 423}#
- #{value 2099}#
- #{w 2101}#
- #{mod 2103}#))
- (#{label 2114}# (#{gen-label 367}#)))
- (let ((#{var 2116}#
- (#{gen-var 465}# #{id 2113}#)))
+ (lambda (#{type 23747}#
+ #{value 23748}#
+ #{e 23749}#
+ #{w 23750}#
+ #{s 23751}#
+ #{mod 23752}#)
+ (if (eqv? #{type 23747}# 'define-form)
+ (let ((#{id 23756}#
+ (#{wrap 4338}#
+ #{value 23748}#
+ #{w 23750}#
+ #{mod 23752}#))
+ (#{label 23757}#
+ (symbol->string (gensym "i"))))
+ (let ((#{var 23758}#
+ (let ((#{id 23818}#
+ (if (if (vector? #{id 23756}#)
+ (if (= (vector-length
+ #{id 23756}#)
+ 4)
+ (eq? (vector-ref
+ #{id 23756}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 23756}# 1)
+ #{id 23756}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 23818}#)
+ " ")))))
(begin
- (#{extend-ribcage! 399}#
- #{ribcage 2068}#
- #{id 2113}#
- #{label 2114}#)
- (#{parse 2083}#
- (cdr #{body 2084}#)
- (cons #{id 2113}# #{ids 2085}#)
- (cons #{label 2114}# #{labels 2086}#)
- (cons #{id 2113}# #{var-ids 2087}#)
- (cons #{var 2116}# #{vars 2088}#)
- (cons (cons #{er 2096}#
- (#{wrap 423}#
- #{e 2100}#
- #{w 2101}#
- #{mod 2103}#))
- #{vals 2089}#)
- (cons (cons 'lexical #{var 2116}#)
- #{bindings 2090}#)))))
- (if (memv #{type 2098}# '(define-syntax-form))
- (let ((#{id 2121}#
- (#{wrap 423}#
- #{value 2099}#
- #{w 2101}#
- #{mod 2103}#))
- (#{label 2122}# (#{gen-label 367}#)))
+ (let ((#{update 23808}#
+ (cons (vector-ref #{id 23756}# 1)
+ (vector-ref
+ #{ribcage 23548}#
+ 1))))
+ (vector-set!
+ #{ribcage 23548}#
+ 1
+ #{update 23808}#))
+ (let ((#{update 23810}#
+ (cons (car (vector-ref
+ #{id 23756}#
+ 2))
+ (vector-ref
+ #{ribcage 23548}#
+ 2))))
+ (vector-set!
+ #{ribcage 23548}#
+ 2
+ #{update 23810}#))
+ (let ((#{update 23812}#
+ (cons #{label 23757}#
+ (vector-ref
+ #{ribcage 23548}#
+ 3))))
+ (vector-set!
+ #{ribcage 23548}#
+ 3
+ #{update 23812}#))
+ (#{parse 23550}#
+ (cdr #{body 23563}#)
+ (cons #{id 23756}# #{ids 23564}#)
+ (cons #{label 23757}# #{labels 23565}#)
+ (cons #{id 23756}# #{var-ids 23566}#)
+ (cons #{var 23758}# #{vars 23567}#)
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ #{e 23749}#
+ #{w 23750}#
+ #{mod 23752}#))
+ #{vals 23568}#)
+ (cons (cons 'lexical #{var 23758}#)
+ #{bindings 23569}#)))))
+ (if (eqv? #{type 23747}# 'define-syntax-form)
+ (let ((#{id 23846}#
+ (#{wrap 4338}#
+ #{value 23748}#
+ #{w 23750}#
+ #{mod 23752}#))
+ (#{label 23847}#
+ (symbol->string (gensym "i"))))
(begin
- (#{extend-ribcage! 399}#
- #{ribcage 2068}#
- #{id 2121}#
- #{label 2122}#)
- (#{parse 2083}#
- (cdr #{body 2084}#)
- (cons #{id 2121}# #{ids 2085}#)
- (cons #{label 2122}# #{labels 2086}#)
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
+ (let ((#{update 23897}#
+ (cons (vector-ref #{id 23846}# 1)
+ (vector-ref
+ #{ribcage 23548}#
+ 1))))
+ (vector-set!
+ #{ribcage 23548}#
+ 1
+ #{update 23897}#))
+ (let ((#{update 23899}#
+ (cons (car (vector-ref
+ #{id 23846}#
+ 2))
+ (vector-ref
+ #{ribcage 23548}#
+ 2))))
+ (vector-set!
+ #{ribcage 23548}#
+ 2
+ #{update 23899}#))
+ (let ((#{update 23901}#
+ (cons #{label 23847}#
+ (vector-ref
+ #{ribcage 23548}#
+ 3))))
+ (vector-set!
+ #{ribcage 23548}#
+ 3
+ #{update 23901}#))
+ (#{parse 23550}#
+ (cdr #{body 23563}#)
+ (cons #{id 23846}# #{ids 23564}#)
+ (cons #{label 23847}# #{labels 23565}#)
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
(cons (cons 'macro
- (cons #{er 2096}#
- (#{wrap 423}#
- #{e 2100}#
- #{w 2101}#
- #{mod 2103}#)))
- #{bindings 2090}#))))
- (if (memv #{type 2098}# '(begin-form))
- (let ((#{tmp 2126}#
+ (cons #{er 23571}#
+ (#{wrap 4338}#
+ #{e 23749}#
+ #{w 23750}#
+ #{mod 23752}#)))
+ #{bindings 23569}#))))
+ (if (eqv? #{type 23747}# 'begin-form)
+ (let ((#{tmp 23909}#
($sc-dispatch
- #{e 2100}#
+ #{e 23749}#
'(_ . each-any))))
- (if #{tmp 2126}#
+ (if #{tmp 23909}#
(@apply
- (lambda (#{e1 2128}#)
- (#{parse 2083}#
+ (lambda (#{e1 23913}#)
+ (#{parse 23550}#
(letrec*
- ((#{f 2131}#
- (lambda (#{forms 2132}#)
- (if (null? #{forms 2132}#)
- (cdr #{body 2084}#)
- (cons (cons #{er 2096}#
- (#{wrap 423}#
- (car #{forms 2132}#)
- #{w 2101}#
- #{mod 2103}#))
- (#{f 2131}#
- (cdr #{forms 2132}#)))))))
- (#{f 2131}# #{e1 2128}#))
- #{ids 2085}#
- #{labels 2086}#
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
- #{bindings 2090}#))
- #{tmp 2126}#)
+ ((#{f 23914}#
+ (lambda (#{forms 23977}#)
+ (if (null? #{forms 23977}#)
+ (cdr #{body 23563}#)
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ (car #{forms 23977}#)
+ #{w 23750}#
+ #{mod 23752}#))
+ (#{f 23914}#
+ (cdr #{forms 23977}#)))))))
+ (#{f 23914}# #{e1 23913}#))
+ #{ids 23564}#
+ #{labels 23565}#
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
+ #{bindings 23569}#))
+ #{tmp 23909}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 2100}#)))
- (if (memv #{type 2098}# '(local-syntax-form))
- (#{chi-local-syntax 447}#
- #{value 2099}#
- #{e 2100}#
- #{er 2096}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#
- (lambda (#{forms 2135}#
- #{er 2136}#
- #{w 2137}#
- #{s 2138}#
- #{mod 2139}#)
- (#{parse 2083}#
+ #{e 23749}#)))
+ (if (eqv? #{type 23747}# 'local-syntax-form)
+ (#{chi-local-syntax 4350}#
+ #{value 23748}#
+ #{e 23749}#
+ #{er 23571}#
+ #{w 23750}#
+ #{s 23751}#
+ #{mod 23752}#
+ (lambda (#{forms 23991}#
+ #{er 23992}#
+ #{w 23993}#
+ #{s 23994}#
+ #{mod 23995}#)
+ (#{parse 23550}#
(letrec*
- ((#{f 2147}#
- (lambda (#{forms 2148}#)
- (if (null? #{forms 2148}#)
- (cdr #{body 2084}#)
- (cons (cons #{er 2136}#
- (#{wrap 423}#
- (car #{forms 2148}#)
- #{w 2137}#
- #{mod 2139}#))
- (#{f 2147}#
- (cdr #{forms 2148}#)))))))
- (#{f 2147}# #{forms 2135}#))
- #{ids 2085}#
- #{labels 2086}#
- #{var-ids 2087}#
- #{vars 2088}#
- #{vals 2089}#
- #{bindings 2090}#)))
- (if (null? #{ids 2085}#)
- (#{build-sequence 299}#
+ ((#{f 23996}#
+ (lambda (#{forms 24059}#)
+ (if (null? #{forms 24059}#)
+ (cdr #{body 23563}#)
+ (cons (cons #{er 23992}#
+ (#{wrap 4338}#
+ (car #{forms 24059}#)
+ #{w 23993}#
+ #{mod 23995}#))
+ (#{f 23996}#
+ (cdr #{forms 24059}#)))))))
+ (#{f 23996}# #{forms 23991}#))
+ #{ids 23564}#
+ #{labels 23565}#
+ #{var-ids 23566}#
+ #{vars 23567}#
+ #{vals 23568}#
+ #{bindings 23569}#)))
+ (if (null? #{ids 23564}#)
+ (#{build-sequence 4294}#
#f
- (map (lambda (#{x 2151}#)
- (#{chi 437}#
- (cdr #{x 2151}#)
- (car #{x 2151}#)
+ (map (lambda (#{x 24129}#)
+ (#{chi 4345}#
+ (cdr #{x 24129}#)
+ (car #{x 24129}#)
'(())
- #{mod 2103}#))
- (cons (cons #{er 2096}#
- (#{source-wrap 425}#
- #{e 2100}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#))
- (cdr #{body 2084}#))))
+ #{mod 23752}#))
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 23749}#)
+ #{s 23751}#
+ #f)
+ (set-source-properties!
+ #{e 23749}#
+ #{s 23751}#))
+ #{e 23749}#)
+ #{w 23750}#
+ #{mod 23752}#))
+ (cdr #{body 23563}#))))
(begin
- (if (not (#{valid-bound-ids? 417}#
- #{ids 2085}#))
+ (if (not (#{valid-bound-ids? 4335}#
+ #{ids 23564}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 2055}#))
+ #{outer-form 23543}#))
(letrec*
- ((#{loop 2158}#
- (lambda (#{bs 2159}#
- #{er-cache 2160}#
- #{r-cache 2161}#)
- (if (not (null? #{bs 2159}#))
- (let ((#{b 2164}#
- (car #{bs 2159}#)))
- (if (eq? (car #{b 2164}#)
+ ((#{loop 24291}#
+ (lambda (#{bs 24294}#
+ #{er-cache 24295}#
+ #{r-cache 24296}#)
+ (if (not (null? #{bs 24294}#))
+ (let ((#{b 24297}#
+ (car #{bs 24294}#)))
+ (if (eq? (car #{b 24297}#)
'macro)
- (let ((#{er 2167}#
- (car (cdr #{b 2164}#))))
- (let ((#{r-cache 2169}#
- (if (eq? #{er 2167}#
- #{er-cache 2160}#)
- #{r-cache 2161}#
- (#{macros-only-env 341}#
- #{er 2167}#))))
+ (let ((#{er 24299}#
+ (car (cdr #{b 24297}#))))
+ (let ((#{r-cache 24300}#
+ (if (eq? #{er 24299}#
+ #{er-cache 24295}#)
+ #{r-cache 24296}#
+ (#{macros-only-env 4309}#
+ #{er 24299}#))))
(begin
(set-cdr!
- #{b 2164}#
- (#{eval-local-transformer 449}#
- (#{chi 437}#
- (cdr (cdr #{b 2164}#))
- #{r-cache 2169}#
+ #{b 24297}#
+ (#{eval-local-transformer 4351}#
+ (#{chi 4345}#
+ (cdr (cdr #{b 24297}#))
+ #{r-cache 24300}#
'(())
- #{mod 2103}#)
- #{mod 2103}#))
- (#{loop 2158}#
- (cdr #{bs 2159}#)
- #{er 2167}#
- #{r-cache 2169}#))))
- (#{loop 2158}#
- (cdr #{bs 2159}#)
- #{er-cache 2160}#
- #{r-cache 2161}#)))))))
- (#{loop 2158}#
- #{bindings 2090}#
+ #{mod 23752}#)
+ #{mod 23752}#))
+ (#{loop 24291}#
+ (cdr #{bs 24294}#)
+ #{er 24299}#
+ #{r-cache 24300}#))))
+ (#{loop 24291}#
+ (cdr #{bs 24294}#)
+ #{er-cache 24295}#
+ #{r-cache 24296}#)))))))
+ (#{loop 24291}#
+ #{bindings 23569}#
#f
#f))
(set-cdr!
- #{r 2066}#
- (#{extend-env 337}#
- #{labels 2086}#
- #{bindings 2090}#
- (cdr #{r 2066}#)))
- (#{build-letrec 305}#
+ #{r 23547}#
+ (#{extend-env 4307}#
+ #{labels 23565}#
+ #{bindings 23569}#
+ (cdr #{r 23547}#)))
+ (#{build-letrec 4297}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 2087}#))
- (reverse #{vars 2088}#)
- (map (lambda (#{x 2172}#)
- (#{chi 437}#
- (cdr #{x 2172}#)
- (car #{x 2172}#)
+ #{var-ids 23566}#))
+ (reverse #{vars 23567}#)
+ (map (lambda (#{x 24653}#)
+ (#{chi 4345}#
+ (cdr #{x 24653}#)
+ (car #{x 24653}#)
'(())
- #{mod 2103}#))
- (reverse #{vals 2089}#))
- (#{build-sequence 299}#
+ #{mod 23752}#))
+ (reverse #{vals 23568}#))
+ (#{build-sequence 4294}#
#f
- (map (lambda (#{x 2176}#)
- (#{chi 437}#
- (cdr #{x 2176}#)
- (car #{x 2176}#)
+ (map (lambda (#{x 24783}#)
+ (#{chi 4345}#
+ (cdr #{x 24783}#)
+ (car #{x 24783}#)
'(())
- #{mod 2103}#))
- (cons (cons #{er 2096}#
- (#{source-wrap 425}#
- #{e 2100}#
- #{w 2101}#
- #{s 2102}#
- #{mod 2103}#))
- (cdr #{body 2084}#))))))))))))))))))
- (#{parse 2083}#
- (map (lambda (#{x 2091}#)
- (cons #{r 2066}#
- (#{wrap 423}#
- #{x 2091}#
- #{w 2071}#
- #{mod 2058}#)))
- #{body 2054}#)
+ #{mod 23752}#))
+ (cons (cons #{er 23571}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 23749}#)
+ #{s 23751}#
+ #f)
+ (set-source-properties!
+ #{e 23749}#
+ #{s 23751}#))
+ #{e 23749}#)
+ #{w 23750}#
+ #{mod 23752}#))
+ (cdr #{body 23563}#))))))))))))))))))
+ (#{parse 23550}#
+ (map (lambda (#{x 23553}#)
+ (cons #{r 23547}#
+ (#{wrap 4338}#
+ #{x 23553}#
+ #{w 23549}#
+ #{mod 23546}#)))
+ #{body 23542}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-local-syntax 447}#
- (lambda (#{rec? 2179}#
- #{e 2180}#
- #{r 2181}#
- #{w 2182}#
- #{s 2183}#
- #{mod 2184}#
- #{k 2185}#)
- (let ((#{tmp 2194}#
+ (#{chi-local-syntax 4350}#
+ (lambda (#{rec? 24868}#
+ #{e 24869}#
+ #{r 24870}#
+ #{w 24871}#
+ #{s 24872}#
+ #{mod 24873}#
+ #{k 24874}#)
+ (let ((#{tmp 24876}#
($sc-dispatch
- #{e 2180}#
+ #{e 24869}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 2194}#
+ (if #{tmp 24876}#
(@apply
- (lambda (#{id 2199}#
- #{val 2200}#
- #{e1 2201}#
- #{e2 2202}#)
- (if (not (#{valid-bound-ids? 417}# #{id 2199}#))
+ (lambda (#{id 24880}#
+ #{val 24881}#
+ #{e1 24882}#
+ #{e2 24883}#)
+ (if (not (#{valid-bound-ids? 4335}# #{id 24880}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 2180}#)
- (let ((#{labels 2207}#
- (#{gen-labels 369}# #{id 2199}#)))
- (let ((#{new-w 2209}#
- (#{make-binding-wrap 401}#
- #{id 2199}#
- #{labels 2207}#
- #{w 2182}#)))
- (#{k 2185}#
- (cons #{e1 2201}# #{e2 2202}#)
- (#{extend-env 337}#
- #{labels 2207}#
- (let ((#{trans-r 2214}#
- (#{macros-only-env 341}# #{r 2181}#)))
+ #{e 24869}#)
+ (let ((#{labels 24973}#
+ (#{gen-labels 4316}# #{id 24880}#)))
+ (let ((#{new-w 24974}#
+ (#{make-binding-wrap 4327}#
+ #{id 24880}#
+ #{labels 24973}#
+ #{w 24871}#)))
+ (#{k 24874}#
+ (cons #{e1 24882}# #{e2 24883}#)
+ (#{extend-env 4307}#
+ #{labels 24973}#
+ (let ((#{trans-r 25012}#
+ (#{macros-only-env 4309}# #{r 24870}#)))
(begin
- (if #{rec? 2179}# (if #f #f))
- (map (lambda (#{x 2215}#)
+ (if #{rec? 24868}# (if #f #f))
+ (map (lambda (#{x 25013}#)
(cons 'macro
- (#{eval-local-transformer 449}#
- (#{chi 437}#
- #{x 2215}#
- #{trans-r 2214}#
- (if #{rec? 2179}#
- #{new-w 2209}#
- #{w 2182}#)
- #{mod 2184}#)
- #{mod 2184}#)))
- #{val 2200}#)))
- #{r 2181}#)
- #{new-w 2209}#
- #{s 2183}#
- #{mod 2184}#)))))
- #{tmp 2194}#)
+ (#{eval-local-transformer 4351}#
+ (#{chi 4345}#
+ #{x 25013}#
+ #{trans-r 25012}#
+ (if #{rec? 24868}#
+ #{new-w 24974}#
+ #{w 24871}#)
+ #{mod 24873}#)
+ #{mod 24873}#)))
+ #{val 24881}#)))
+ #{r 24870}#)
+ #{new-w 24974}#
+ #{s 24872}#
+ #{mod 24873}#)))))
+ #{tmp 24876}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap 425}#
- #{e 2180}#
- #{w 2182}#
- #{s 2183}#
- #{mod 2184}#))))))
- (#{eval-local-transformer 449}#
- (lambda (#{expanded 2221}# #{mod 2222}#)
- (let ((#{p 2226}#
- (#{local-eval-hook 257}#
- #{expanded 2221}#
- #{mod 2222}#)))
- (if (procedure? #{p 2226}#)
- #{p 2226}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 24869}#) #{s 24872}# #f)
+ (set-source-properties! #{e 24869}# #{s 24872}#))
+ #{e 24869}#)
+ #{w 24871}#
+ #{mod 24873}#))))))
+ (#{eval-local-transformer 4351}#
+ (lambda (#{expanded 25314}# #{mod 25315}#)
+ (let ((#{p 25316}# (primitive-eval #{expanded 25314}#)))
+ (if (procedure? #{p 25316}#)
+ #{p 25316}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 2226}#)))))
- (#{chi-void 451}#
- (lambda () (#{build-void 269}# #f)))
- (#{ellipsis? 453}#
- (lambda (#{x 2228}#)
- (if (#{nonsymbol-id? 347}# #{x 2228}#)
- (#{free-id=? 413}#
- #{x 2228}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2229"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
- "i397"
- "i395"
- "i392"
- "i391"
- "i390"
- "i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
- "i366"
- "i365"
- "i363"
- "i361"
- "i359"
- "i357"
- "i356"
- "i355"
- "i354"
- "i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i335"
- "i334"
- "i332"
- "i330"
- "i329"
- "i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i259"
- "i256"
- "i254"
- "i253"
- "i252"
- "i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i45" "i44" "i43")))
- (hygiene guile)))
+ #{p 25316}#)))))
+ (#{ellipsis? 4353}#
+ (lambda (#{x 5159}#)
+ (if (if (if (vector? #{x 5159}#)
+ (if (= (vector-length #{x 5159}#) 4)
+ (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 5159}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{x 5159}#)
+ (if (= (vector-length #{x 5159}#) 4)
+ (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 5159}# 1)
+ #{x 5159}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))
+ 4)
+ (eq? (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 0)
+ 'syntax-object)
+ #f)
+ (vector-ref
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ 1)
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4332}# #{x 5159}# '(()))
+ (#{id-var-name 4332}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ chi-lambda-case
+ lambda*-formals
+ chi-simple-lambda
+ lambda-formals
+ ellipsis?
+ chi-void
+ eval-local-transformer
+ chi-local-syntax
+ chi-body
+ chi-macro
+ chi-application
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
#f)))
- (#{lambda-formals 455}#
- (lambda (#{orig-args 2232}#)
+ (#{lambda-formals 4354}#
+ (lambda (#{orig-args 25321}#)
(letrec*
- ((#{req 2235}#
- (lambda (#{args 2238}# #{rreq 2239}#)
- (let ((#{tmp 2243}# ($sc-dispatch #{args 2238}# '())))
- (if #{tmp 2243}#
+ ((#{req 25322}#
+ (lambda (#{args 25326}# #{rreq 25327}#)
+ (let ((#{tmp 25329}# ($sc-dispatch #{args 25326}# '())))
+ (if #{tmp 25329}#
(@apply
(lambda ()
- (#{check 2237}# (reverse #{rreq 2239}#) #f))
- #{tmp 2243}#)
- (let ((#{tmp 2244}#
- ($sc-dispatch #{args 2238}# '(any . any))))
- (if (if #{tmp 2244}#
+ (#{check 25323}# (reverse #{rreq 25327}#) #f))
+ #{tmp 25329}#)
+ (let ((#{tmp 25456}#
+ ($sc-dispatch #{args 25326}# '(any . any))))
+ (if (if #{tmp 25456}#
(@apply
- (lambda (#{a 2247}# #{b 2248}#)
- (#{id? 349}# #{a 2247}#))
- #{tmp 2244}#)
+ (lambda (#{a 25460}# #{b 25461}#)
+ (if (symbol? #{a 25460}#)
+ #t
+ (if (if (vector? #{a 25460}#)
+ (if (= (vector-length #{a 25460}#) 4)
+ (eq? (vector-ref #{a 25460}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 25460}# 1))
+ #f)))
+ #{tmp 25456}#)
#f)
(@apply
- (lambda (#{a 2251}# #{b 2252}#)
- (#{req 2235}#
- #{b 2252}#
- (cons #{a 2251}# #{rreq 2239}#)))
- #{tmp 2244}#)
- (let ((#{tmp 2253}# (list #{args 2238}#)))
- (if (if #{tmp 2253}#
- (@apply
- (lambda (#{r 2255}#) (#{id? 349}# #{r 2255}#))
- #{tmp 2253}#)
- #f)
+ (lambda (#{a 25488}# #{b 25489}#)
+ (#{req 25322}#
+ #{b 25489}#
+ (cons #{a 25488}# #{rreq 25327}#)))
+ #{tmp 25456}#)
+ (let ((#{tmp 25490}# (list #{args 25326}#)))
+ (if (@apply
+ (lambda (#{r 25492}#)
+ (if (symbol? #{r 25492}#)
+ #t
+ (if (if (vector? #{r 25492}#)
+ (if (= (vector-length #{r 25492}#) 4)
+ (eq? (vector-ref #{r 25492}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 25492}# 1))
+ #f)))
+ #{tmp 25490}#)
(@apply
- (lambda (#{r 2257}#)
- (#{check 2237}#
- (reverse #{rreq 2239}#)
- #{r 2257}#))
- #{tmp 2253}#)
+ (lambda (#{r 25522}#)
+ (#{check 25323}#
+ (reverse #{rreq 25327}#)
+ #{r 25522}#))
+ #{tmp 25490}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 2232}#
- #{args 2238}#)))))))))
- (#{check 2237}#
- (lambda (#{req 2260}# #{rest 2261}#)
- (if (#{distinct-bound-ids? 419}#
- (if #{rest 2261}#
- (cons #{rest 2261}# #{req 2260}#)
- #{req 2260}#))
- (values #{req 2260}# #f #{rest 2261}# #f)
+ #{orig-args 25321}#
+ #{args 25326}#)))))))))
+ (#{check 25323}#
+ (lambda (#{req 25657}# #{rest 25658}#)
+ (if (#{distinct-bound-ids? 4336}#
+ (if #{rest 25658}#
+ (cons #{rest 25658}# #{req 25657}#)
+ #{req 25657}#))
+ (values #{req 25657}# #f #{rest 25658}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 2232}#)))))
- (#{req 2235}# #{orig-args 2232}# '()))))
- (#{lambda*-formals 459}#
- (lambda (#{orig-args 2294}#)
+ #{orig-args 25321}#)))))
+ (#{req 25322}# #{orig-args 25321}# '()))))
+ (#{chi-simple-lambda 4355}#
+ (lambda (#{e 25778}#
+ #{r 25779}#
+ #{w 25780}#
+ #{s 25781}#
+ #{mod 25782}#
+ #{req 25783}#
+ #{rest 25784}#
+ #{meta 25785}#
+ #{body 25786}#)
+ (let ((#{ids 25787}#
+ (if #{rest 25784}#
+ (append #{req 25783}# (list #{rest 25784}#))
+ #{req 25783}#)))
+ (let ((#{vars 25788}#
+ (map #{gen-var 4359}# #{ids 25787}#)))
+ (let ((#{labels 25789}#
+ (#{gen-labels 4316}# #{ids 25787}#)))
+ (#{build-simple-lambda 4289}#
+ #{s 25781}#
+ (map syntax->datum #{req 25783}#)
+ (if #{rest 25784}#
+ (syntax->datum #{rest 25784}#)
+ #f)
+ #{vars 25788}#
+ #{meta 25785}#
+ (#{chi-body 4349}#
+ #{body 25786}#
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 25778}#) #{s 25781}# #f)
+ (set-source-properties! #{e 25778}# #{s 25781}#))
+ #{e 25778}#)
+ #{w 25780}#
+ #{mod 25782}#)
+ (#{extend-var-env 4308}#
+ #{labels 25789}#
+ #{vars 25788}#
+ #{r 25779}#)
+ (#{make-binding-wrap 4327}#
+ #{ids 25787}#
+ #{labels 25789}#
+ #{w 25780}#)
+ #{mod 25782}#)))))))
+ (#{lambda*-formals 4356}#
+ (lambda (#{orig-args 26089}#)
(letrec*
- ((#{req 2297}#
- (lambda (#{args 2306}# #{rreq 2307}#)
- (let ((#{tmp 2311}# ($sc-dispatch #{args 2306}# '())))
- (if #{tmp 2311}#
+ ((#{req 26090}#
+ (lambda (#{args 26097}# #{rreq 26098}#)
+ (let ((#{tmp 26100}# ($sc-dispatch #{args 26097}# '())))
+ (if #{tmp 26100}#
(@apply
(lambda ()
- (#{check 2305}#
- (reverse #{rreq 2307}#)
+ (#{check 26094}#
+ (reverse #{rreq 26098}#)
'()
#f
'()))
- #{tmp 2311}#)
- (let ((#{tmp 2312}#
- ($sc-dispatch #{args 2306}# '(any . any))))
- (if (if #{tmp 2312}#
+ #{tmp 26100}#)
+ (let ((#{tmp 26106}#
+ ($sc-dispatch #{args 26097}# '(any . any))))
+ (if (if #{tmp 26106}#
(@apply
- (lambda (#{a 2315}# #{b 2316}#)
- (#{id? 349}# #{a 2315}#))
- #{tmp 2312}#)
+ (lambda (#{a 26110}# #{b 26111}#)
+ (if (symbol? #{a 26110}#)
+ #t
+ (if (if (vector? #{a 26110}#)
+ (if (= (vector-length #{a 26110}#) 4)
+ (eq? (vector-ref #{a 26110}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26110}# 1))
+ #f)))
+ #{tmp 26106}#)
#f)
(@apply
- (lambda (#{a 2319}# #{b 2320}#)
- (#{req 2297}#
- #{b 2320}#
- (cons #{a 2319}# #{rreq 2307}#)))
- #{tmp 2312}#)
- (let ((#{tmp 2321}#
- ($sc-dispatch #{args 2306}# '(any . any))))
- (if (if #{tmp 2321}#
+ (lambda (#{a 26138}# #{b 26139}#)
+ (#{req 26090}#
+ #{b 26139}#
+ (cons #{a 26138}# #{rreq 26098}#)))
+ #{tmp 26106}#)
+ (let ((#{tmp 26140}#
+ ($sc-dispatch #{args 26097}# '(any . any))))
+ (if (if #{tmp 26140}#
(@apply
- (lambda (#{a 2324}# #{b 2325}#)
- (eq? (syntax->datum #{a 2324}#) #:optional))
- #{tmp 2321}#)
+ (lambda (#{a 26144}# #{b 26145}#)
+ (eq? (syntax->datum #{a 26144}#) #:optional))
+ #{tmp 26140}#)
#f)
(@apply
- (lambda (#{a 2328}# #{b 2329}#)
- (#{opt 2299}#
- #{b 2329}#
- (reverse #{rreq 2307}#)
+ (lambda (#{a 26146}# #{b 26147}#)
+ (#{opt 26091}#
+ #{b 26147}#
+ (reverse #{rreq 26098}#)
'()))
- #{tmp 2321}#)
- (let ((#{tmp 2330}#
- ($sc-dispatch #{args 2306}# '(any . any))))
- (if (if #{tmp 2330}#
+ #{tmp 26140}#)
+ (let ((#{tmp 26150}#
+ ($sc-dispatch #{args 26097}# '(any . any))))
+ (if (if #{tmp 26150}#
(@apply
- (lambda (#{a 2333}# #{b 2334}#)
- (eq? (syntax->datum #{a 2333}#) #:key))
- #{tmp 2330}#)
+ (lambda (#{a 26154}# #{b 26155}#)
+ (eq? (syntax->datum #{a 26154}#) #:key))
+ #{tmp 26150}#)
#f)
(@apply
- (lambda (#{a 2337}# #{b 2338}#)
- (#{key 2301}#
- #{b 2338}#
- (reverse #{rreq 2307}#)
+ (lambda (#{a 26156}# #{b 26157}#)
+ (#{key 26092}#
+ #{b 26157}#
+ (reverse #{rreq 26098}#)
'()
'()))
- #{tmp 2330}#)
- (let ((#{tmp 2339}#
- ($sc-dispatch #{args 2306}# '(any any))))
- (if (if #{tmp 2339}#
+ #{tmp 26150}#)
+ (let ((#{tmp 26160}#
+ ($sc-dispatch
+ #{args 26097}#
+ '(any any))))
+ (if (if #{tmp 26160}#
(@apply
- (lambda (#{a 2342}# #{b 2343}#)
- (eq? (syntax->datum #{a 2342}#)
+ (lambda (#{a 26164}# #{b 26165}#)
+ (eq? (syntax->datum #{a 26164}#)
#:rest))
- #{tmp 2339}#)
+ #{tmp 26160}#)
#f)
(@apply
- (lambda (#{a 2346}# #{b 2347}#)
- (#{rest 2303}#
- #{b 2347}#
- (reverse #{rreq 2307}#)
+ (lambda (#{a 26166}# #{b 26167}#)
+ (#{rest 26093}#
+ #{b 26167}#
+ (reverse #{rreq 26098}#)
'()
'()))
- #{tmp 2339}#)
- (let ((#{tmp 2348}# (list #{args 2306}#)))
- (if (if #{tmp 2348}#
- (@apply
- (lambda (#{r 2350}#)
- (#{id? 349}# #{r 2350}#))
- #{tmp 2348}#)
- #f)
+ #{tmp 26160}#)
+ (let ((#{tmp 26170}# (list #{args 26097}#)))
+ (if (@apply
+ (lambda (#{r 26172}#)
+ (if (symbol? #{r 26172}#)
+ #t
+ (if (if (vector? #{r 26172}#)
+ (if (= (vector-length
+ #{r 26172}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26172}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 26172}# 1))
+ #f)))
+ #{tmp 26170}#)
(@apply
- (lambda (#{r 2352}#)
- (#{rest 2303}#
- #{r 2352}#
- (reverse #{rreq 2307}#)
+ (lambda (#{r 26202}#)
+ (#{rest 26093}#
+ #{r 26202}#
+ (reverse #{rreq 26098}#)
'()
'()))
- #{tmp 2348}#)
+ #{tmp 26170}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 2294}#
- #{args 2306}#)))))))))))))))
- (#{opt 2299}#
- (lambda (#{args 2355}# #{req 2356}# #{ropt 2357}#)
- (let ((#{tmp 2362}# ($sc-dispatch #{args 2355}# '())))
- (if #{tmp 2362}#
+ #{orig-args 26089}#
+ #{args 26097}#)))))))))))))))
+ (#{opt 26091}#
+ (lambda (#{args 26221}# #{req 26222}# #{ropt 26223}#)
+ (let ((#{tmp 26225}# ($sc-dispatch #{args 26221}# '())))
+ (if #{tmp 26225}#
(@apply
(lambda ()
- (#{check 2305}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (#{check 26094}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
#f
'()))
- #{tmp 2362}#)
- (let ((#{tmp 2363}#
- ($sc-dispatch #{args 2355}# '(any . any))))
- (if (if #{tmp 2363}#
+ #{tmp 26225}#)
+ (let ((#{tmp 26231}#
+ ($sc-dispatch #{args 26221}# '(any . any))))
+ (if (if #{tmp 26231}#
(@apply
- (lambda (#{a 2366}# #{b 2367}#)
- (#{id? 349}# #{a 2366}#))
- #{tmp 2363}#)
+ (lambda (#{a 26235}# #{b 26236}#)
+ (if (symbol? #{a 26235}#)
+ #t
+ (if (if (vector? #{a 26235}#)
+ (if (= (vector-length #{a 26235}#) 4)
+ (eq? (vector-ref #{a 26235}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26235}# 1))
+ #f)))
+ #{tmp 26231}#)
#f)
(@apply
- (lambda (#{a 2370}# #{b 2371}#)
- (#{opt 2299}#
- #{b 2371}#
- #{req 2356}#
- (cons (cons #{a 2370}#
+ (lambda (#{a 26263}# #{b 26264}#)
+ (#{opt 26091}#
+ #{b 26264}#
+ #{req 26222}#
+ (cons (cons #{a 26263}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2368" "i2369"))
+ #("i2369" "i2370"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2358" "i2359" "i2360"))
+ #("i2359" "i2360" "i2361"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"))
+ ("i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"))
#(ribcage
#(orig-args)
#((top))
- #("i2295"))
+ #("i2296"))
#(ribcage
(lambda-var-list
gen-var
@@ -6925,254 +16219,290 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))))
- #{ropt 2357}#)))
- #{tmp 2363}#)
- (let ((#{tmp 2372}#
- ($sc-dispatch #{args 2355}# '((any any) . any))))
- (if (if #{tmp 2372}#
+ #{ropt 26223}#)))
+ #{tmp 26231}#)
+ (let ((#{tmp 26265}#
+ ($sc-dispatch
+ #{args 26221}#
+ '((any any) . any))))
+ (if (if #{tmp 26265}#
(@apply
- (lambda (#{a 2376}# #{init 2377}# #{b 2378}#)
- (#{id? 349}# #{a 2376}#))
- #{tmp 2372}#)
+ (lambda (#{a 26269}#
+ #{init 26270}#
+ #{b 26271}#)
+ (if (symbol? #{a 26269}#)
+ #t
+ (if (if (vector? #{a 26269}#)
+ (if (= (vector-length #{a 26269}#) 4)
+ (eq? (vector-ref #{a 26269}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26269}# 1))
+ #f)))
+ #{tmp 26265}#)
#f)
(@apply
- (lambda (#{a 2382}# #{init 2383}# #{b 2384}#)
- (#{opt 2299}#
- #{b 2384}#
- #{req 2356}#
- (cons (list #{a 2382}# #{init 2383}#)
- #{ropt 2357}#)))
- #{tmp 2372}#)
- (let ((#{tmp 2385}#
- ($sc-dispatch #{args 2355}# '(any . any))))
- (if (if #{tmp 2385}#
+ (lambda (#{a 26298}# #{init 26299}# #{b 26300}#)
+ (#{opt 26091}#
+ #{b 26300}#
+ #{req 26222}#
+ (cons (list #{a 26298}# #{init 26299}#)
+ #{ropt 26223}#)))
+ #{tmp 26265}#)
+ (let ((#{tmp 26301}#
+ ($sc-dispatch #{args 26221}# '(any . any))))
+ (if (if #{tmp 26301}#
(@apply
- (lambda (#{a 2388}# #{b 2389}#)
- (eq? (syntax->datum #{a 2388}#) #:key))
- #{tmp 2385}#)
+ (lambda (#{a 26305}# #{b 26306}#)
+ (eq? (syntax->datum #{a 26305}#) #:key))
+ #{tmp 26301}#)
#f)
(@apply
- (lambda (#{a 2392}# #{b 2393}#)
- (#{key 2301}#
- #{b 2393}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (lambda (#{a 26307}# #{b 26308}#)
+ (#{key 26092}#
+ #{b 26308}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
'()))
- #{tmp 2385}#)
- (let ((#{tmp 2394}#
- ($sc-dispatch #{args 2355}# '(any any))))
- (if (if #{tmp 2394}#
+ #{tmp 26301}#)
+ (let ((#{tmp 26311}#
+ ($sc-dispatch
+ #{args 26221}#
+ '(any any))))
+ (if (if #{tmp 26311}#
(@apply
- (lambda (#{a 2397}# #{b 2398}#)
- (eq? (syntax->datum #{a 2397}#)
+ (lambda (#{a 26315}# #{b 26316}#)
+ (eq? (syntax->datum #{a 26315}#)
#:rest))
- #{tmp 2394}#)
+ #{tmp 26311}#)
#f)
(@apply
- (lambda (#{a 2401}# #{b 2402}#)
- (#{rest 2303}#
- #{b 2402}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (lambda (#{a 26317}# #{b 26318}#)
+ (#{rest 26093}#
+ #{b 26318}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
'()))
- #{tmp 2394}#)
- (let ((#{tmp 2403}# (list #{args 2355}#)))
- (if (if #{tmp 2403}#
- (@apply
- (lambda (#{r 2405}#)
- (#{id? 349}# #{r 2405}#))
- #{tmp 2403}#)
- #f)
+ #{tmp 26311}#)
+ (let ((#{tmp 26321}# (list #{args 26221}#)))
+ (if (@apply
+ (lambda (#{r 26323}#)
+ (if (symbol? #{r 26323}#)
+ #t
+ (if (if (vector? #{r 26323}#)
+ (if (= (vector-length
+ #{r 26323}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26323}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 26323}# 1))
+ #f)))
+ #{tmp 26321}#)
(@apply
- (lambda (#{r 2407}#)
- (#{rest 2303}#
- #{r 2407}#
- #{req 2356}#
- (reverse #{ropt 2357}#)
+ (lambda (#{r 26353}#)
+ (#{rest 26093}#
+ #{r 26353}#
+ #{req 26222}#
+ (reverse #{ropt 26223}#)
'()))
- #{tmp 2403}#)
+ #{tmp 26321}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 2294}#
- #{args 2355}#)))))))))))))))
- (#{key 2301}#
- (lambda (#{args 2410}#
- #{req 2411}#
- #{opt 2412}#
- #{rkey 2413}#)
- (let ((#{tmp 2419}# ($sc-dispatch #{args 2410}# '())))
- (if #{tmp 2419}#
+ #{orig-args 26089}#
+ #{args 26221}#)))))))))))))))
+ (#{key 26092}#
+ (lambda (#{args 26372}#
+ #{req 26373}#
+ #{opt 26374}#
+ #{rkey 26375}#)
+ (let ((#{tmp 26377}# ($sc-dispatch #{args 26372}# '())))
+ (if #{tmp 26377}#
(@apply
(lambda ()
- (#{check 2305}#
- #{req 2411}#
- #{opt 2412}#
+ (#{check 26094}#
+ #{req 26373}#
+ #{opt 26374}#
#f
- (cons #f (reverse #{rkey 2413}#))))
- #{tmp 2419}#)
- (let ((#{tmp 2420}#
- ($sc-dispatch #{args 2410}# '(any . any))))
- (if (if #{tmp 2420}#
+ (cons #f (reverse #{rkey 26375}#))))
+ #{tmp 26377}#)
+ (let ((#{tmp 26383}#
+ ($sc-dispatch #{args 26372}# '(any . any))))
+ (if (if #{tmp 26383}#
(@apply
- (lambda (#{a 2423}# #{b 2424}#)
- (#{id? 349}# #{a 2423}#))
- #{tmp 2420}#)
+ (lambda (#{a 26387}# #{b 26388}#)
+ (if (symbol? #{a 26387}#)
+ #t
+ (if (if (vector? #{a 26387}#)
+ (if (= (vector-length #{a 26387}#) 4)
+ (eq? (vector-ref #{a 26387}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26387}# 1))
+ #f)))
+ #{tmp 26383}#)
#f)
(@apply
- (lambda (#{a 2427}# #{b 2428}#)
- (let ((#{tmp 2430}#
+ (lambda (#{a 26415}# #{b 26416}#)
+ (let ((#{tmp 26417}#
(symbol->keyword
- (syntax->datum #{a 2427}#))))
- (#{key 2301}#
- #{b 2428}#
- #{req 2411}#
- #{opt 2412}#
- (cons (cons #{tmp 2430}#
- (cons #{a 2427}#
+ (syntax->datum #{a 26415}#))))
+ (#{key 26092}#
+ #{b 26416}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons (cons #{tmp 26417}#
+ (cons #{a 26415}#
'(#(syntax-object
#f
((top)
@@ -7180,11 +16510,11 @@
#(ribcage
#(k)
#((top))
- #("i2431"))
+ #("i2432"))
#(ribcage
#(a b)
#((top) (top))
- #("i2425" "i2426"))
+ #("i2426" "i2427"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7192,10 +16522,10 @@
(top)
(top)
(top))
- #("i2414"
- "i2415"
+ #("i2415"
"i2416"
- "i2417"))
+ "i2417"
+ "i2418"))
#(ribcage
(check rest key opt req)
((top)
@@ -7203,15 +16533,15 @@
(top)
(top)
(top))
- ("i2304"
- "i2302"
- "i2300"
- "i2298"
- "i2296"))
+ ("i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"))
#(ribcage
#(orig-args)
#((top))
- #("i2295"))
+ #("i2296"))
#(ribcage
(lambda-var-list
gen-var
@@ -7485,799 +16815,923 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile)))))
- #{rkey 2413}#))))
- #{tmp 2420}#)
- (let ((#{tmp 2433}#
- ($sc-dispatch #{args 2410}# '((any any) . any))))
- (if (if #{tmp 2433}#
+ #{rkey 26375}#))))
+ #{tmp 26383}#)
+ (let ((#{tmp 26420}#
+ ($sc-dispatch
+ #{args 26372}#
+ '((any any) . any))))
+ (if (if #{tmp 26420}#
(@apply
- (lambda (#{a 2437}# #{init 2438}# #{b 2439}#)
- (#{id? 349}# #{a 2437}#))
- #{tmp 2433}#)
+ (lambda (#{a 26424}#
+ #{init 26425}#
+ #{b 26426}#)
+ (if (symbol? #{a 26424}#)
+ #t
+ (if (if (vector? #{a 26424}#)
+ (if (= (vector-length #{a 26424}#) 4)
+ (eq? (vector-ref #{a 26424}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26424}# 1))
+ #f)))
+ #{tmp 26420}#)
#f)
(@apply
- (lambda (#{a 2443}# #{init 2444}# #{b 2445}#)
- (let ((#{tmp 2447}#
+ (lambda (#{a 26453}# #{init 26454}# #{b 26455}#)
+ (let ((#{tmp 26456}#
(symbol->keyword
- (syntax->datum #{a 2443}#))))
- (#{key 2301}#
- #{b 2445}#
- #{req 2411}#
- #{opt 2412}#
- (cons (list #{tmp 2447}#
- #{a 2443}#
- #{init 2444}#)
- #{rkey 2413}#))))
- #{tmp 2433}#)
- (let ((#{tmp 2450}#
+ (syntax->datum #{a 26453}#))))
+ (#{key 26092}#
+ #{b 26455}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons (list #{tmp 26456}#
+ #{a 26453}#
+ #{init 26454}#)
+ #{rkey 26375}#))))
+ #{tmp 26420}#)
+ (let ((#{tmp 26459}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'((any any any) . any))))
- (if (if #{tmp 2450}#
+ (if (if #{tmp 26459}#
(@apply
- (lambda (#{a 2455}#
- #{init 2456}#
- #{k 2457}#
- #{b 2458}#)
- (if (#{id? 349}# #{a 2455}#)
- (keyword? (syntax->datum #{k 2457}#))
+ (lambda (#{a 26463}#
+ #{init 26464}#
+ #{k 26465}#
+ #{b 26466}#)
+ (if (if (symbol? #{a 26463}#)
+ #t
+ (if (if (vector? #{a 26463}#)
+ (if (= (vector-length
+ #{a 26463}#)
+ 4)
+ (eq? (vector-ref
+ #{a 26463}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{a 26463}# 1))
+ #f))
+ (keyword? (syntax->datum #{k 26465}#))
#f))
- #{tmp 2450}#)
+ #{tmp 26459}#)
#f)
(@apply
- (lambda (#{a 2465}#
- #{init 2466}#
- #{k 2467}#
- #{b 2468}#)
- (#{key 2301}#
- #{b 2468}#
- #{req 2411}#
- #{opt 2412}#
- (cons (list #{k 2467}#
- #{a 2465}#
- #{init 2466}#)
- #{rkey 2413}#)))
- #{tmp 2450}#)
- (let ((#{tmp 2469}#
- ($sc-dispatch #{args 2410}# '(any))))
- (if (if #{tmp 2469}#
+ (lambda (#{a 26493}#
+ #{init 26494}#
+ #{k 26495}#
+ #{b 26496}#)
+ (#{key 26092}#
+ #{b 26496}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons (list #{k 26495}#
+ #{a 26493}#
+ #{init 26494}#)
+ #{rkey 26375}#)))
+ #{tmp 26459}#)
+ (let ((#{tmp 26497}#
+ ($sc-dispatch #{args 26372}# '(any))))
+ (if (if #{tmp 26497}#
(@apply
- (lambda (#{aok 2471}#)
- (eq? (syntax->datum #{aok 2471}#)
+ (lambda (#{aok 26501}#)
+ (eq? (syntax->datum #{aok 26501}#)
#:allow-other-keys))
- #{tmp 2469}#)
+ #{tmp 26497}#)
#f)
(@apply
- (lambda (#{aok 2473}#)
- (#{check 2305}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{aok 26502}#)
+ (#{check 26094}#
+ #{req 26373}#
+ #{opt 26374}#
#f
- (cons #t (reverse #{rkey 2413}#))))
- #{tmp 2469}#)
- (let ((#{tmp 2474}#
+ (cons #t (reverse #{rkey 26375}#))))
+ #{tmp 26497}#)
+ (let ((#{tmp 26505}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'(any any any))))
- (if (if #{tmp 2474}#
+ (if (if #{tmp 26505}#
(@apply
- (lambda (#{aok 2478}#
- #{a 2479}#
- #{b 2480}#)
+ (lambda (#{aok 26509}#
+ #{a 26510}#
+ #{b 26511}#)
(if (eq? (syntax->datum
- #{aok 2478}#)
+ #{aok 26509}#)
#:allow-other-keys)
- (eq? (syntax->datum #{a 2479}#)
+ (eq? (syntax->datum
+ #{a 26510}#)
#:rest)
#f))
- #{tmp 2474}#)
+ #{tmp 26505}#)
#f)
(@apply
- (lambda (#{aok 2486}#
- #{a 2487}#
- #{b 2488}#)
- (#{rest 2303}#
- #{b 2488}#
- #{req 2411}#
- #{opt 2412}#
- (cons #t (reverse #{rkey 2413}#))))
- #{tmp 2474}#)
- (let ((#{tmp 2489}#
+ (lambda (#{aok 26512}#
+ #{a 26513}#
+ #{b 26514}#)
+ (#{rest 26093}#
+ #{b 26514}#
+ #{req 26373}#
+ #{opt 26374}#
+ (cons #t
+ (reverse #{rkey 26375}#))))
+ #{tmp 26505}#)
+ (let ((#{tmp 26517}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'(any . any))))
- (if (if #{tmp 2489}#
+ (if (if #{tmp 26517}#
(@apply
- (lambda (#{aok 2492}#
- #{r 2493}#)
+ (lambda (#{aok 26521}#
+ #{r 26522}#)
(if (eq? (syntax->datum
- #{aok 2492}#)
+ #{aok 26521}#)
#:allow-other-keys)
- (#{id? 349}# #{r 2493}#)
+ (if (symbol? #{r 26522}#)
+ #t
+ (if (if (vector?
+ #{r 26522}#)
+ (if (= (vector-length
+ #{r 26522}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26522}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 26522}#
+ 1))
+ #f))
#f))
- #{tmp 2489}#)
+ #{tmp 26517}#)
#f)
(@apply
- (lambda (#{aok 2498}# #{r 2499}#)
- (#{rest 2303}#
- #{r 2499}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{aok 26549}# #{r 26550}#)
+ (#{rest 26093}#
+ #{r 26550}#
+ #{req 26373}#
+ #{opt 26374}#
(cons #t
(reverse
- #{rkey 2413}#))))
- #{tmp 2489}#)
- (let ((#{tmp 2500}#
+ #{rkey 26375}#))))
+ #{tmp 26517}#)
+ (let ((#{tmp 26553}#
($sc-dispatch
- #{args 2410}#
+ #{args 26372}#
'(any any))))
- (if (if #{tmp 2500}#
+ (if (if #{tmp 26553}#
(@apply
- (lambda (#{a 2503}#
- #{b 2504}#)
+ (lambda (#{a 26557}#
+ #{b 26558}#)
(eq? (syntax->datum
- #{a 2503}#)
+ #{a 26557}#)
#:rest))
- #{tmp 2500}#)
+ #{tmp 26553}#)
#f)
(@apply
- (lambda (#{a 2507}# #{b 2508}#)
- (#{rest 2303}#
- #{b 2508}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{a 26559}#
+ #{b 26560}#)
+ (#{rest 26093}#
+ #{b 26560}#
+ #{req 26373}#
+ #{opt 26374}#
(cons #f
(reverse
- #{rkey 2413}#))))
- #{tmp 2500}#)
- (let ((#{tmp 2509}#
- (list #{args 2410}#)))
- (if (if #{tmp 2509}#
- (@apply
- (lambda (#{r 2511}#)
- (#{id? 349}#
- #{r 2511}#))
- #{tmp 2509}#)
- #f)
+ #{rkey 26375}#))))
+ #{tmp 26553}#)
+ (let ((#{tmp 26563}#
+ (list #{args 26372}#)))
+ (if (@apply
+ (lambda (#{r 26565}#)
+ (if (symbol?
+ #{r 26565}#)
+ #t
+ (if (if (vector?
+ #{r 26565}#)
+ (if (= (vector-length
+ #{r 26565}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26565}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 26565}#
+ 1))
+ #f)))
+ #{tmp 26563}#)
(@apply
- (lambda (#{r 2513}#)
- (#{rest 2303}#
- #{r 2513}#
- #{req 2411}#
- #{opt 2412}#
+ (lambda (#{r 26595}#)
+ (#{rest 26093}#
+ #{r 26595}#
+ #{req 26373}#
+ #{opt 26374}#
(cons #f
(reverse
- #{rkey 2413}#))))
- #{tmp 2509}#)
+ #{rkey 26375}#))))
+ #{tmp 26563}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 2294}#
- #{args 2410}#)))))))))))))))))))))
- (#{rest 2303}#
- (lambda (#{args 2516}#
- #{req 2517}#
- #{opt 2518}#
- #{kw 2519}#)
- (let ((#{tmp 2525}# (list #{args 2516}#)))
- (if (if #{tmp 2525}#
- (@apply
- (lambda (#{r 2527}#) (#{id? 349}# #{r 2527}#))
- #{tmp 2525}#)
- #f)
+ #{orig-args 26089}#
+ #{args 26372}#)))))))))))))))))))))
+ (#{rest 26093}#
+ (lambda (#{args 26623}#
+ #{req 26624}#
+ #{opt 26625}#
+ #{kw 26626}#)
+ (let ((#{tmp 26628}# (list #{args 26623}#)))
+ (if (@apply
+ (lambda (#{r 26630}#)
+ (if (symbol? #{r 26630}#)
+ #t
+ (if (if (vector? #{r 26630}#)
+ (if (= (vector-length #{r 26630}#) 4)
+ (eq? (vector-ref #{r 26630}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 26630}# 1))
+ #f)))
+ #{tmp 26628}#)
(@apply
- (lambda (#{r 2529}#)
- (#{check 2305}#
- #{req 2517}#
- #{opt 2518}#
- #{r 2529}#
- #{kw 2519}#))
- #{tmp 2525}#)
+ (lambda (#{r 26660}#)
+ (#{check 26094}#
+ #{req 26624}#
+ #{opt 26625}#
+ #{r 26660}#
+ #{kw 26626}#))
+ #{tmp 26628}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 2294}#
- #{args 2516}#)))))
- (#{check 2305}#
- (lambda (#{req 2532}#
- #{opt 2533}#
- #{rest 2534}#
- #{kw 2535}#)
- (if (#{distinct-bound-ids? 419}#
+ #{orig-args 26089}#
+ #{args 26623}#)))))
+ (#{check 26094}#
+ (lambda (#{req 26664}#
+ #{opt 26665}#
+ #{rest 26666}#
+ #{kw 26667}#)
+ (if (#{distinct-bound-ids? 4336}#
(append
- #{req 2532}#
- (map car #{opt 2533}#)
- (if #{rest 2534}# (list #{rest 2534}#) '())
- (if (pair? #{kw 2535}#)
- (map cadr (cdr #{kw 2535}#))
+ #{req 26664}#
+ (map car #{opt 26665}#)
+ (if #{rest 26666}# (list #{rest 26666}#) '())
+ (if (pair? #{kw 26667}#)
+ (map cadr (cdr #{kw 26667}#))
'())))
(values
- #{req 2532}#
- #{opt 2533}#
- #{rest 2534}#
- #{kw 2535}#)
+ #{req 26664}#
+ #{opt 26665}#
+ #{rest 26666}#
+ #{kw 26667}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 2294}#)))))
- (#{req 2297}# #{orig-args 2294}# '()))))
- (#{chi-lambda-case 461}#
- (lambda (#{e 2543}#
- #{r 2544}#
- #{w 2545}#
- #{s 2546}#
- #{mod 2547}#
- #{get-formals 2548}#
- #{clauses 2549}#)
+ #{orig-args 26089}#)))))
+ (#{req 26090}# #{orig-args 26089}# '()))))
+ (#{chi-lambda-case 4357}#
+ (lambda (#{e 26787}#
+ #{r 26788}#
+ #{w 26789}#
+ #{s 26790}#
+ #{mod 26791}#
+ #{get-formals 26792}#
+ #{clauses 26793}#)
(letrec*
- ((#{expand-opt 2560}#
- (lambda (#{req 2583}#
- #{opt 2584}#
- #{rest 2585}#
- #{kw 2586}#
- #{body 2587}#
- #{vars 2588}#
- #{r* 2589}#
- #{w* 2590}#
- #{out 2591}#
- #{inits 2592}#)
- (if (pair? #{opt 2584}#)
- (let ((#{tmp 2605}# (car #{opt 2584}#)))
- (let ((#{tmp 2606}#
- ($sc-dispatch #{tmp 2605}# '(any any))))
- (if #{tmp 2606}#
+ ((#{expand-req 26794}#
+ (lambda (#{req 26928}#
+ #{opt 26929}#
+ #{rest 26930}#
+ #{kw 26931}#
+ #{body 26932}#)
+ (let ((#{vars 26933}#
+ (map #{gen-var 4359}# #{req 26928}#))
+ (#{labels 26934}#
+ (#{gen-labels 4316}# #{req 26928}#)))
+ (let ((#{r* 26935}#
+ (#{extend-var-env 4308}#
+ #{labels 26934}#
+ #{vars 26933}#
+ #{r 26788}#))
+ (#{w* 26936}#
+ (#{make-binding-wrap 4327}#
+ #{req 26928}#
+ #{labels 26934}#
+ #{w 26789}#)))
+ (#{expand-opt 26795}#
+ (map syntax->datum #{req 26928}#)
+ #{opt 26929}#
+ #{rest 26930}#
+ #{kw 26931}#
+ #{body 26932}#
+ (reverse #{vars 26933}#)
+ #{r* 26935}#
+ #{w* 26936}#
+ '()
+ '())))))
+ (#{expand-opt 26795}#
+ (lambda (#{req 27152}#
+ #{opt 27153}#
+ #{rest 27154}#
+ #{kw 27155}#
+ #{body 27156}#
+ #{vars 27157}#
+ #{r* 27158}#
+ #{w* 27159}#
+ #{out 27160}#
+ #{inits 27161}#)
+ (if (pair? #{opt 27153}#)
+ (let ((#{tmp 27162}# (car #{opt 27153}#)))
+ (let ((#{tmp 27163}#
+ ($sc-dispatch #{tmp 27162}# '(any any))))
+ (if #{tmp 27163}#
(@apply
- (lambda (#{id 2609}# #{i 2610}#)
- (let ((#{v 2613}# (#{gen-var 465}# #{id 2609}#)))
- (let ((#{l 2615}#
- (#{gen-labels 369}# (list #{v 2613}#))))
- (let ((#{r** 2617}#
- (#{extend-var-env 339}#
- #{l 2615}#
- (list #{v 2613}#)
- #{r* 2589}#)))
- (let ((#{w** 2619}#
- (#{make-binding-wrap 401}#
- (list #{id 2609}#)
- #{l 2615}#
- #{w* 2590}#)))
- (#{expand-opt 2560}#
- #{req 2583}#
- (cdr #{opt 2584}#)
- #{rest 2585}#
- #{kw 2586}#
- #{body 2587}#
- (cons #{v 2613}# #{vars 2588}#)
- #{r** 2617}#
- #{w** 2619}#
- (cons (syntax->datum #{id 2609}#)
- #{out 2591}#)
- (cons (#{chi 437}#
- #{i 2610}#
- #{r* 2589}#
- #{w* 2590}#
- #{mod 2547}#)
- #{inits 2592}#)))))))
- #{tmp 2606}#)
+ (lambda (#{id 27165}# #{i 27166}#)
+ (let ((#{v 27167}#
+ (let ((#{id 27175}#
+ (if (if (vector? #{id 27165}#)
+ (if (= (vector-length
+ #{id 27165}#)
+ 4)
+ (eq? (vector-ref
+ #{id 27165}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 27165}# 1)
+ #{id 27165}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27175}#)
+ " ")))))
+ (let ((#{l 27168}#
+ (#{gen-labels 4316}# (list #{v 27167}#))))
+ (let ((#{r** 27169}#
+ (#{extend-var-env 4308}#
+ #{l 27168}#
+ (list #{v 27167}#)
+ #{r* 27158}#)))
+ (let ((#{w** 27170}#
+ (#{make-binding-wrap 4327}#
+ (list #{id 27165}#)
+ #{l 27168}#
+ #{w* 27159}#)))
+ (#{expand-opt 26795}#
+ #{req 27152}#
+ (cdr #{opt 27153}#)
+ #{rest 27154}#
+ #{kw 27155}#
+ #{body 27156}#
+ (cons #{v 27167}# #{vars 27157}#)
+ #{r** 27169}#
+ #{w** 27170}#
+ (cons (syntax->datum #{id 27165}#)
+ #{out 27160}#)
+ (cons (#{chi 4345}#
+ #{i 27166}#
+ #{r* 27158}#
+ #{w* 27159}#
+ #{mod 26791}#)
+ #{inits 27161}#)))))))
+ #{tmp 27163}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2605}#))))
- (if #{rest 2585}#
- (let ((#{v 2624}# (#{gen-var 465}# #{rest 2585}#)))
- (let ((#{l 2626}#
- (#{gen-labels 369}# (list #{v 2624}#))))
- (let ((#{r* 2628}#
- (#{extend-var-env 339}#
- #{l 2626}#
- (list #{v 2624}#)
- #{r* 2589}#)))
- (let ((#{w* 2630}#
- (#{make-binding-wrap 401}#
- (list #{rest 2585}#)
- #{l 2626}#
- #{w* 2590}#)))
- (#{expand-kw 2562}#
- #{req 2583}#
- (if (pair? #{out 2591}#)
- (reverse #{out 2591}#)
+ #{tmp 27162}#))))
+ (if #{rest 27154}#
+ (let ((#{v 27447}#
+ (let ((#{id 27457}#
+ (if (if (vector? #{rest 27154}#)
+ (if (= (vector-length #{rest 27154}#)
+ 4)
+ (eq? (vector-ref #{rest 27154}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{rest 27154}# 1)
+ #{rest 27154}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27457}#)
+ " ")))))
+ (let ((#{l 27448}#
+ (#{gen-labels 4316}# (list #{v 27447}#))))
+ (let ((#{r* 27449}#
+ (#{extend-var-env 4308}#
+ #{l 27448}#
+ (list #{v 27447}#)
+ #{r* 27158}#)))
+ (let ((#{w* 27450}#
+ (#{make-binding-wrap 4327}#
+ (list #{rest 27154}#)
+ #{l 27448}#
+ #{w* 27159}#)))
+ (#{expand-kw 26796}#
+ #{req 27152}#
+ (if (pair? #{out 27160}#)
+ (reverse #{out 27160}#)
#f)
- (syntax->datum #{rest 2585}#)
- (if (pair? #{kw 2586}#)
- (cdr #{kw 2586}#)
- #{kw 2586}#)
- #{body 2587}#
- (cons #{v 2624}# #{vars 2588}#)
- #{r* 2628}#
- #{w* 2630}#
- (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f)
+ (syntax->datum #{rest 27154}#)
+ (if (pair? #{kw 27155}#)
+ (cdr #{kw 27155}#)
+ #{kw 27155}#)
+ #{body 27156}#
+ (cons #{v 27447}# #{vars 27157}#)
+ #{r* 27449}#
+ #{w* 27450}#
+ (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f)
'()
- #{inits 2592}#)))))
- (#{expand-kw 2562}#
- #{req 2583}#
- (if (pair? #{out 2591}#)
- (reverse #{out 2591}#)
+ #{inits 27161}#)))))
+ (#{expand-kw 26796}#
+ #{req 27152}#
+ (if (pair? #{out 27160}#)
+ (reverse #{out 27160}#)
#f)
#f
- (if (pair? #{kw 2586}#)
- (cdr #{kw 2586}#)
- #{kw 2586}#)
- #{body 2587}#
- #{vars 2588}#
- #{r* 2589}#
- #{w* 2590}#
- (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f)
+ (if (pair? #{kw 27155}#)
+ (cdr #{kw 27155}#)
+ #{kw 27155}#)
+ #{body 27156}#
+ #{vars 27157}#
+ #{r* 27158}#
+ #{w* 27159}#
+ (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f)
'()
- #{inits 2592}#)))))
- (#{expand-kw 2562}#
- (lambda (#{req 2632}#
- #{opt 2633}#
- #{rest 2634}#
- #{kw 2635}#
- #{body 2636}#
- #{vars 2637}#
- #{r* 2638}#
- #{w* 2639}#
- #{aok 2640}#
- #{out 2641}#
- #{inits 2642}#)
- (if (pair? #{kw 2635}#)
- (let ((#{tmp 2656}# (car #{kw 2635}#)))
- (let ((#{tmp 2657}#
- ($sc-dispatch #{tmp 2656}# '(any any any))))
- (if #{tmp 2657}#
+ #{inits 27161}#)))))
+ (#{expand-kw 26796}#
+ (lambda (#{req 27657}#
+ #{opt 27658}#
+ #{rest 27659}#
+ #{kw 27660}#
+ #{body 27661}#
+ #{vars 27662}#
+ #{r* 27663}#
+ #{w* 27664}#
+ #{aok 27665}#
+ #{out 27666}#
+ #{inits 27667}#)
+ (if (pair? #{kw 27660}#)
+ (let ((#{tmp 27668}# (car #{kw 27660}#)))
+ (let ((#{tmp 27669}#
+ ($sc-dispatch #{tmp 27668}# '(any any any))))
+ (if #{tmp 27669}#
(@apply
- (lambda (#{k 2661}# #{id 2662}# #{i 2663}#)
- (let ((#{v 2666}# (#{gen-var 465}# #{id 2662}#)))
- (let ((#{l 2668}#
- (#{gen-labels 369}# (list #{v 2666}#))))
- (let ((#{r** 2670}#
- (#{extend-var-env 339}#
- #{l 2668}#
- (list #{v 2666}#)
- #{r* 2638}#)))
- (let ((#{w** 2672}#
- (#{make-binding-wrap 401}#
- (list #{id 2662}#)
- #{l 2668}#
- #{w* 2639}#)))
- (#{expand-kw 2562}#
- #{req 2632}#
- #{opt 2633}#
- #{rest 2634}#
- (cdr #{kw 2635}#)
- #{body 2636}#
- (cons #{v 2666}# #{vars 2637}#)
- #{r** 2670}#
- #{w** 2672}#
- #{aok 2640}#
- (cons (list (syntax->datum #{k 2661}#)
- (syntax->datum #{id 2662}#)
- #{v 2666}#)
- #{out 2641}#)
- (cons (#{chi 437}#
- #{i 2663}#
- #{r* 2638}#
- #{w* 2639}#
- #{mod 2547}#)
- #{inits 2642}#)))))))
- #{tmp 2657}#)
+ (lambda (#{k 27671}# #{id 27672}# #{i 27673}#)
+ (let ((#{v 27674}#
+ (let ((#{id 27682}#
+ (if (if (vector? #{id 27672}#)
+ (if (= (vector-length
+ #{id 27672}#)
+ 4)
+ (eq? (vector-ref
+ #{id 27672}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 27672}# 1)
+ #{id 27672}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27682}#)
+ " ")))))
+ (let ((#{l 27675}#
+ (#{gen-labels 4316}# (list #{v 27674}#))))
+ (let ((#{r** 27676}#
+ (#{extend-var-env 4308}#
+ #{l 27675}#
+ (list #{v 27674}#)
+ #{r* 27663}#)))
+ (let ((#{w** 27677}#
+ (#{make-binding-wrap 4327}#
+ (list #{id 27672}#)
+ #{l 27675}#
+ #{w* 27664}#)))
+ (#{expand-kw 26796}#
+ #{req 27657}#
+ #{opt 27658}#
+ #{rest 27659}#
+ (cdr #{kw 27660}#)
+ #{body 27661}#
+ (cons #{v 27674}# #{vars 27662}#)
+ #{r** 27676}#
+ #{w** 27677}#
+ #{aok 27665}#
+ (cons (list (syntax->datum #{k 27671}#)
+ (syntax->datum #{id 27672}#)
+ #{v 27674}#)
+ #{out 27666}#)
+ (cons (#{chi 4345}#
+ #{i 27673}#
+ #{r* 27663}#
+ #{w* 27664}#
+ #{mod 26791}#)
+ #{inits 27667}#)))))))
+ #{tmp 27669}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 2656}#))))
- (#{expand-body 2564}#
- #{req 2632}#
- #{opt 2633}#
- #{rest 2634}#
- (if (if #{aok 2640}#
- #{aok 2640}#
- (pair? #{out 2641}#))
- (cons #{aok 2640}# (reverse #{out 2641}#))
+ #{tmp 27668}#))))
+ (#{expand-body 26797}#
+ #{req 27657}#
+ #{opt 27658}#
+ #{rest 27659}#
+ (if (if #{aok 27665}#
+ #{aok 27665}#
+ (pair? #{out 27666}#))
+ (cons #{aok 27665}# (reverse #{out 27666}#))
#f)
- #{body 2636}#
- (reverse #{vars 2637}#)
- #{r* 2638}#
- #{w* 2639}#
- (reverse #{inits 2642}#)
+ #{body 27661}#
+ (reverse #{vars 27662}#)
+ #{r* 27663}#
+ #{w* 27664}#
+ (reverse #{inits 27667}#)
'()))))
- (#{expand-body 2564}#
- (lambda (#{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- #{body 2682}#
- #{vars 2683}#
- #{r* 2684}#
- #{w* 2685}#
- #{inits 2686}#
- #{meta 2687}#)
- (let ((#{tmp 2699}#
+ (#{expand-body 26797}#
+ (lambda (#{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ #{body 27967}#
+ #{vars 27968}#
+ #{r* 27969}#
+ #{w* 27970}#
+ #{inits 27971}#
+ #{meta 27972}#)
+ (let ((#{tmp 27974}#
($sc-dispatch
- #{body 2682}#
+ #{body 27967}#
'(any any . each-any))))
- (if (if #{tmp 2699}#
+ (if (if #{tmp 27974}#
(@apply
- (lambda (#{docstring 2703}# #{e1 2704}# #{e2 2705}#)
- (string? (syntax->datum #{docstring 2703}#)))
- #{tmp 2699}#)
+ (lambda (#{docstring 27978}# #{e1 27979}# #{e2 27980}#)
+ (string? (syntax->datum #{docstring 27978}#)))
+ #{tmp 27974}#)
#f)
(@apply
- (lambda (#{docstring 2709}# #{e1 2710}# #{e2 2711}#)
- (#{expand-body 2564}#
- #{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- (cons #{e1 2710}# #{e2 2711}#)
- #{vars 2683}#
- #{r* 2684}#
- #{w* 2685}#
- #{inits 2686}#
+ (lambda (#{docstring 27981}# #{e1 27982}# #{e2 27983}#)
+ (#{expand-body 26797}#
+ #{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ (cons #{e1 27982}# #{e2 27983}#)
+ #{vars 27968}#
+ #{r* 27969}#
+ #{w* 27970}#
+ #{inits 27971}#
(append
- #{meta 2687}#
+ #{meta 27972}#
(list (cons 'documentation
- (syntax->datum #{docstring 2709}#))))))
- #{tmp 2699}#)
- (let ((#{tmp 2714}#
+ (syntax->datum #{docstring 27981}#))))))
+ #{tmp 27974}#)
+ (let ((#{tmp 27984}#
($sc-dispatch
- #{body 2682}#
+ #{body 27967}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 2714}#
+ (if #{tmp 27984}#
(@apply
- (lambda (#{k 2719}# #{v 2720}# #{e1 2721}# #{e2 2722}#)
- (#{expand-body 2564}#
- #{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- (cons #{e1 2721}# #{e2 2722}#)
- #{vars 2683}#
- #{r* 2684}#
- #{w* 2685}#
- #{inits 2686}#
+ (lambda (#{k 27988}#
+ #{v 27989}#
+ #{e1 27990}#
+ #{e2 27991}#)
+ (#{expand-body 26797}#
+ #{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ (cons #{e1 27990}# #{e2 27991}#)
+ #{vars 27968}#
+ #{r* 27969}#
+ #{w* 27970}#
+ #{inits 27971}#
(append
- #{meta 2687}#
+ #{meta 27972}#
(syntax->datum
- (map cons #{k 2719}# #{v 2720}#)))))
- #{tmp 2714}#)
- (let ((#{tmp 2726}#
- ($sc-dispatch #{body 2682}# '(any . each-any))))
- (if #{tmp 2726}#
+ (map cons #{k 27988}# #{v 27989}#)))))
+ #{tmp 27984}#)
+ (let ((#{tmp 27992}#
+ ($sc-dispatch #{body 27967}# '(any . each-any))))
+ (if #{tmp 27992}#
(@apply
- (lambda (#{e1 2729}# #{e2 2730}#)
+ (lambda (#{e1 27996}# #{e2 27997}#)
(values
- #{meta 2687}#
- #{req 2678}#
- #{opt 2679}#
- #{rest 2680}#
- #{kw 2681}#
- #{inits 2686}#
- #{vars 2683}#
- (#{chi-body 445}#
- (cons #{e1 2729}# #{e2 2730}#)
- (#{source-wrap 425}#
- #{e 2543}#
- #{w 2545}#
- #{s 2546}#
- #{mod 2547}#)
- #{r* 2684}#
- #{w* 2685}#
- #{mod 2547}#)))
- #{tmp 2726}#)
+ #{meta 27972}#
+ #{req 27963}#
+ #{opt 27964}#
+ #{rest 27965}#
+ #{kw 27966}#
+ #{inits 27971}#
+ #{vars 27968}#
+ (#{chi-body 4349}#
+ (cons #{e1 27996}# #{e2 27997}#)
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 26787}#)
+ #{s 26790}#
+ #f)
+ (set-source-properties!
+ #{e 26787}#
+ #{s 26790}#))
+ #{e 26787}#)
+ #{w 26789}#
+ #{mod 26791}#)
+ #{r* 27969}#
+ #{w* 27970}#
+ #{mod 26791}#)))
+ #{tmp 27992}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 2682}#))))))))))
- (let ((#{tmp 2733}#
- ($sc-dispatch #{clauses 2549}# '())))
- (if #{tmp 2733}#
- (@apply (lambda () (values '() #f)) #{tmp 2733}#)
- (let ((#{tmp 2734}#
+ #{body 27967}#))))))))))
+ (let ((#{tmp 26799}#
+ ($sc-dispatch #{clauses 26793}# '())))
+ (if #{tmp 26799}#
+ (@apply
+ (lambda () (values '() #f))
+ #{tmp 26799}#)
+ (let ((#{tmp 26804}#
($sc-dispatch
- #{clauses 2549}#
+ #{clauses 26793}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 2734}#
+ (if #{tmp 26804}#
(@apply
- (lambda (#{args 2741}#
- #{e1 2742}#
- #{e2 2743}#
- #{args* 2744}#
- #{e1* 2745}#
- #{e2* 2746}#)
+ (lambda (#{args 26808}#
+ #{e1 26809}#
+ #{e2 26810}#
+ #{args* 26811}#
+ #{e1* 26812}#
+ #{e2* 26813}#)
(call-with-values
- (lambda () (#{get-formals 2548}# #{args 2741}#))
- (lambda (#{req 2747}#
- #{opt 2748}#
- #{rest 2749}#
- #{kw 2750}#)
+ (lambda ()
+ (#{get-formals 26792}# #{args 26808}#))
+ (lambda (#{req 26814}#
+ #{opt 26815}#
+ #{rest 26816}#
+ #{kw 26817}#)
(call-with-values
(lambda ()
- (let ((#{body 4788}#
- (cons #{e1 2742}# #{e2 2743}#)))
- (let ((#{vars 4789}#
- (map #{gen-var 465}# #{req 2747}#))
- (#{labels 4790}#
- (#{gen-labels 369}# #{req 2747}#)))
- (let ((#{r* 4791}#
- (#{extend-var-env 339}#
- #{labels 4790}#
- #{vars 4789}#
- #{r 2544}#))
- (#{w* 4792}#
- (#{make-binding-wrap 401}#
- #{req 2747}#
- #{labels 4790}#
- #{w 2545}#)))
- (#{expand-opt 2560}#
- (map syntax->datum #{req 2747}#)
- #{opt 2748}#
- #{rest 2749}#
- #{kw 2750}#
- #{body 4788}#
- (reverse #{vars 4789}#)
- #{r* 4791}#
- #{w* 4792}#
- '()
- '())))))
- (lambda (#{meta 2756}#
- #{req 2757}#
- #{opt 2758}#
- #{rest 2759}#
- #{kw 2760}#
- #{inits 2761}#
- #{vars 2762}#
- #{body 2763}#)
+ (#{expand-req 26794}#
+ #{req 26814}#
+ #{opt 26815}#
+ #{rest 26816}#
+ #{kw 26817}#
+ (cons #{e1 26809}# #{e2 26810}#)))
+ (lambda (#{meta 26884}#
+ #{req 26885}#
+ #{opt 26886}#
+ #{rest 26887}#
+ #{kw 26888}#
+ #{inits 26889}#
+ #{vars 26890}#
+ #{body 26891}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 461}#
- #{e 2543}#
- #{r 2544}#
- #{w 2545}#
- #{s 2546}#
- #{mod 2547}#
- #{get-formals 2548}#
- (map (lambda (#{tmp 2774}#
- #{tmp 2773}#
- #{tmp 2772}#)
- (cons #{tmp 2772}#
- (cons #{tmp 2773}#
- #{tmp 2774}#)))
- #{e2* 2746}#
- #{e1* 2745}#
- #{args* 2744}#)))
- (lambda (#{meta* 2776}# #{else* 2777}#)
+ (#{chi-lambda-case 4357}#
+ #{e 26787}#
+ #{r 26788}#
+ #{w 26789}#
+ #{s 26790}#
+ #{mod 26791}#
+ #{get-formals 26792}#
+ (map (lambda (#{tmp 2775 26892}#
+ #{tmp 2774 26893}#
+ #{tmp 2773 26894}#)
+ (cons #{tmp 2773 26894}#
+ (cons #{tmp 2774 26893}#
+ #{tmp 2775 26892}#)))
+ #{e2* 26813}#
+ #{e1* 26812}#
+ #{args* 26811}#)))
+ (lambda (#{meta* 26895}# #{else* 26896}#)
(values
- (append #{meta 2756}# #{meta* 2776}#)
- (#{build-lambda-case 293}#
- #{s 2546}#
- #{req 2757}#
- #{opt 2758}#
- #{rest 2759}#
- #{kw 2760}#
- #{inits 2761}#
- #{vars 2762}#
- #{body 2763}#
- #{else* 2777}#)))))))))
- #{tmp 2734}#)
+ (append #{meta 26884}# #{meta* 26895}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{s 26790}#
+ #{req 26885}#
+ #{opt 26886}#
+ #{rest 26887}#
+ #{kw 26888}#
+ #{inits 26889}#
+ #{vars 26890}#
+ #{body 26891}#
+ #{else* 26896}#)))))))))
+ #{tmp 26804}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 2549}#))))))))
- (#{strip 463}#
- (lambda (#{x 2780}# #{w 2781}#)
- (if (memq 'top (car #{w 2781}#))
- #{x 2780}#
+ #{clauses 26793}#))))))))
+ (#{strip 4358}#
+ (lambda (#{x 28034}# #{w 28035}#)
+ (if (memq 'top (car #{w 28035}#))
+ #{x 28034}#
(letrec*
- ((#{f 2788}#
- (lambda (#{x 2789}#)
- (if (#{syntax-object? 312}# #{x 2789}#)
- (#{strip 463}#
- (#{syntax-object-expression 314}# #{x 2789}#)
- (#{syntax-object-wrap 316}# #{x 2789}#))
- (if (pair? #{x 2789}#)
- (let ((#{a 2796}# (#{f 2788}# (car #{x 2789}#)))
- (#{d 2797}# (#{f 2788}# (cdr #{x 2789}#))))
- (if (if (eq? #{a 2796}# (car #{x 2789}#))
- (eq? #{d 2797}# (cdr #{x 2789}#))
+ ((#{f 28036}#
+ (lambda (#{x 28039}#)
+ (if (if (vector? #{x 28039}#)
+ (if (= (vector-length #{x 28039}#) 4)
+ (eq? (vector-ref #{x 28039}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{strip 4358}#
+ (vector-ref #{x 28039}# 1)
+ (vector-ref #{x 28039}# 2))
+ (if (pair? #{x 28039}#)
+ (let ((#{a 28058}# (#{f 28036}# (car #{x 28039}#)))
+ (#{d 28059}# (#{f 28036}# (cdr #{x 28039}#))))
+ (if (if (eq? #{a 28058}# (car #{x 28039}#))
+ (eq? #{d 28059}# (cdr #{x 28039}#))
#f)
- #{x 2789}#
- (cons #{a 2796}# #{d 2797}#)))
- (if (vector? #{x 2789}#)
- (let ((#{old 2803}# (vector->list #{x 2789}#)))
- (let ((#{new 2805}# (map #{f 2788}# #{old 2803}#)))
+ #{x 28039}#
+ (cons #{a 28058}# #{d 28059}#)))
+ (if (vector? #{x 28039}#)
+ (let ((#{old 28062}# (vector->list #{x 28039}#)))
+ (let ((#{new 28063}# (map #{f 28036}# #{old 28062}#)))
(letrec*
- ((#{lp 2809}#
- (lambda (#{l1 2810}# #{l2 2811}#)
- (if (null? #{l1 2810}#)
- #{x 2789}#
- (if (eq? (car #{l1 2810}#)
- (car #{l2 2811}#))
- (#{lp 2809}#
- (cdr #{l1 2810}#)
- (cdr #{l2 2811}#))
- (list->vector #{new 2805}#))))))
- (#{lp 2809}# #{old 2803}# #{new 2805}#))))
- #{x 2789}#))))))
- (#{f 2788}# #{x 2780}#)))))
- (#{gen-var 465}#
- (lambda (#{id 2813}#)
- (let ((#{id 2816}#
- (if (#{syntax-object? 312}# #{id 2813}#)
- (#{syntax-object-expression 314}# #{id 2813}#)
- #{id 2813}#)))
+ ((#{lp 28064}#
+ (lambda (#{l1 28140}# #{l2 28141}#)
+ (if (null? #{l1 28140}#)
+ #{x 28039}#
+ (if (eq? (car #{l1 28140}#)
+ (car #{l2 28141}#))
+ (#{lp 28064}#
+ (cdr #{l1 28140}#)
+ (cdr #{l2 28141}#))
+ (list->vector #{new 28063}#))))))
+ (#{lp 28064}# #{old 28062}# #{new 28063}#))))
+ #{x 28039}#))))))
+ (#{f 28036}# #{x 28034}#)))))
+ (#{gen-var 4359}#
+ (lambda (#{id 26940}#)
+ (let ((#{id 26941}#
+ (if (if (vector? #{id 26940}#)
+ (if (= (vector-length #{id 26940}#) 4)
+ (eq? (vector-ref #{id 26940}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 26940}# 1)
+ #{id 26940}#)))
(gensym
- (string-append (symbol->string #{id 2816}#) " ")))))
- (#{lambda-var-list 467}#
- (lambda (#{vars 2818}#)
- (letrec*
- ((#{lvl 2824}#
- (lambda (#{vars 2825}# #{ls 2826}# #{w 2827}#)
- (if (pair? #{vars 2825}#)
- (#{lvl 2824}#
- (cdr #{vars 2825}#)
- (cons (#{wrap 423}# (car #{vars 2825}#) #{w 2827}# #f)
- #{ls 2826}#)
- #{w 2827}#)
- (if (#{id? 349}# #{vars 2825}#)
- (cons (#{wrap 423}# #{vars 2825}# #{w 2827}# #f)
- #{ls 2826}#)
- (if (null? #{vars 2825}#)
- #{ls 2826}#
- (if (#{syntax-object? 312}# #{vars 2825}#)
- (#{lvl 2824}#
- (#{syntax-object-expression 314}# #{vars 2825}#)
- #{ls 2826}#
- (#{join-wraps 405}#
- #{w 2827}#
- (#{syntax-object-wrap 316}# #{vars 2825}#)))
- (cons #{vars 2825}# #{ls 2826}#))))))))
- (#{lvl 2824}# #{vars 2818}# '() '(()))))))
+ (string-append (symbol->string #{id 26941}#) " "))))))
(begin
(module-define!
(current-module)
@@ -8293,1436 +17747,1354 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 345}#
+ (#{global-extend 4311}#
'core
'fluid-let-syntax
- (lambda (#{e 2838}#
- #{r 2839}#
- #{w 2840}#
- #{s 2841}#
- #{mod 2842}#)
- (let ((#{tmp 2849}#
+ (lambda (#{e 4480}#
+ #{r 4481}#
+ #{w 4482}#
+ #{s 4483}#
+ #{mod 4484}#)
+ (let ((#{tmp 4486}#
($sc-dispatch
- #{e 2838}#
+ #{e 4480}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2849}#
+ (if (if #{tmp 4486}#
(@apply
- (lambda (#{var 2854}#
- #{val 2855}#
- #{e1 2856}#
- #{e2 2857}#)
- (#{valid-bound-ids? 417}# #{var 2854}#))
- #{tmp 2849}#)
+ (lambda (#{var 4490}#
+ #{val 4491}#
+ #{e1 4492}#
+ #{e2 4493}#)
+ (#{valid-bound-ids? 4335}# #{var 4490}#))
+ #{tmp 4486}#)
#f)
(@apply
- (lambda (#{var 2863}#
- #{val 2864}#
- #{e1 2865}#
- #{e2 2866}#)
- (let ((#{names 2868}#
- (map (lambda (#{x 2869}#)
- (#{id-var-name 411}# #{x 2869}# #{w 2840}#))
- #{var 2863}#)))
+ (lambda (#{var 4571}#
+ #{val 4572}#
+ #{e1 4573}#
+ #{e2 4574}#)
+ (let ((#{names 4575}#
+ (map (lambda (#{x 4765}#)
+ (#{id-var-name 4332}# #{x 4765}# #{w 4482}#))
+ #{var 4571}#)))
(begin
(for-each
- (lambda (#{id 2872}# #{n 2873}#)
- (let ((#{atom-key 2878}#
- (car (let ((#{t 5036}#
- (assq #{n 2873}# #{r 2839}#)))
- (if #{t 5036}#
- (cdr #{t 5036}#)
- (if (symbol? #{n 2873}#)
- (let ((#{t 5037}#
- (#{get-global-definition-hook 263}#
- #{n 2873}#
- #{mod 2842}#)))
- (if #{t 5037}#
- #{t 5037}#
+ (lambda (#{id 4576}# #{n 4577}#)
+ (let ((#{atom-key 4578}#
+ (car (let ((#{t 4702}#
+ (assq #{n 4577}# #{r 4481}#)))
+ (if #{t 4702}#
+ (cdr #{t 4702}#)
+ (if (symbol? #{n 4577}#)
+ (let ((#{t 4707}#
+ (begin
+ (if (if (not #{mod 4484}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should have a module"
+ #{n 4577}#))
+ (let ((#{v 4744}#
+ (module-variable
+ (if #{mod 4484}#
+ (resolve-module
+ (cdr #{mod 4484}#))
+ (current-module))
+ #{n 4577}#)))
+ (if #{v 4744}#
+ (if (variable-bound?
+ #{v 4744}#)
+ (let ((#{val 4753}#
+ (variable-ref
+ #{v 4744}#)))
+ (if (macro?
+ #{val 4753}#)
+ (if (macro-type
+ #{val 4753}#)
+ (cons (macro-type
+ #{val 4753}#)
+ (macro-binding
+ #{val 4753}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 4707}#
+ #{t 4707}#
'(global)))
'(displaced-lexical)))))))
- (if (memv #{atom-key 2878}# '(displaced-lexical))
+ (if (let ((#{t 4611}# #{atom-key 4578}#))
+ (eqv? #{t 4611}# 'displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 2838}#
- (#{wrap 423}#
+ #{e 4480}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{id 2872}#) #{s 2841}# #f)
+ (if (if (pair? #{id 4576}#) #{s 4483}# #f)
(set-source-properties!
- #{id 2872}#
- #{s 2841}#))
- #{id 2872}#)
- #{w 2840}#
- #{mod 2842}#)))))
- #{var 2863}#
- #{names 2868}#)
- (#{chi-body 445}#
- (cons #{e1 2865}# #{e2 2866}#)
- (#{wrap 423}#
+ #{id 4576}#
+ #{s 4483}#))
+ #{id 4576}#)
+ #{w 4482}#
+ #{mod 4484}#)))))
+ #{var 4571}#
+ #{names 4575}#)
+ (#{chi-body 4349}#
+ (cons #{e1 4573}# #{e2 4574}#)
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 2838}#) #{s 2841}# #f)
- (set-source-properties! #{e 2838}# #{s 2841}#))
- #{e 2838}#)
- #{w 2840}#
- #{mod 2842}#)
- (#{extend-env 337}#
- #{names 2868}#
- (let ((#{trans-r 2884}#
- (#{macros-only-env 341}# #{r 2839}#)))
- (map (lambda (#{x 2885}#)
+ (if (if (pair? #{e 4480}#) #{s 4483}# #f)
+ (set-source-properties! #{e 4480}# #{s 4483}#))
+ #{e 4480}#)
+ #{w 4482}#
+ #{mod 4484}#)
+ (#{extend-env 4307}#
+ #{names 4575}#
+ (let ((#{trans-r 4851}#
+ (#{macros-only-env 4309}# #{r 4481}#)))
+ (map (lambda (#{x 4852}#)
(cons 'macro
- (#{eval-local-transformer 449}#
- (#{chi 437}#
- #{x 2885}#
- #{trans-r 2884}#
- #{w 2840}#
- #{mod 2842}#)
- #{mod 2842}#)))
- #{val 2864}#))
- #{r 2839}#)
- #{w 2840}#
- #{mod 2842}#))))
- #{tmp 2849}#)
+ (#{eval-local-transformer 4351}#
+ (#{chi 4345}#
+ #{x 4852}#
+ #{trans-r 4851}#
+ #{w 4482}#
+ #{mod 4484}#)
+ #{mod 4484}#)))
+ #{val 4572}#))
+ #{r 4481}#)
+ #{w 4482}#
+ #{mod 4484}#))))
+ #{tmp 4486}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 2838}#) #{s 2841}# #f)
- (set-source-properties! #{e 2838}# #{s 2841}#))
- #{e 2838}#)
- #{w 2840}#
- #{mod 2842}#))))))
+ (if (if (pair? #{e 4480}#) #{s 4483}# #f)
+ (set-source-properties! #{e 4480}# #{s 4483}#))
+ #{e 4480}#)
+ #{w 4482}#
+ #{mod 4484}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 2891}#
- #{r 2892}#
- #{w 2893}#
- #{s 2894}#
- #{mod 2895}#)
- (let ((#{tmp 2902}# ($sc-dispatch #{e 2891}# '(_ any))))
- (if #{tmp 2902}#
+ (lambda (#{e 5066}#
+ #{r 5067}#
+ #{w 5068}#
+ #{s 5069}#
+ #{mod 5070}#)
+ (let ((#{tmp 5072}# ($sc-dispatch #{e 5066}# '(_ any))))
+ (if #{tmp 5072}#
(@apply
- (lambda (#{e 2904}#)
- (let ((#{exp 5266}#
- (#{strip 463}# #{e 2904}# #{w 2893}#)))
+ (lambda (#{e 5075}#)
+ (let ((#{exp 5079}#
+ (#{strip 4358}# #{e 5075}# #{w 5068}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 2894}#
- #{exp 5266}#)))
- #{tmp 2902}#)
+ #{s 5069}#
+ #{exp 5079}#)))
+ #{tmp 5072}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 2891}#) #{s 2894}# #f)
- (set-source-properties! #{e 2891}# #{s 2894}#))
- #{e 2891}#)
- #{w 2893}#
- #{mod 2895}#)))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 5066}#) #{s 5069}# #f)
+ (set-source-properties! #{e 5066}# #{s 5069}#))
+ #{e 5066}#)
+ #{w 5068}#
+ #{mod 5070}#)))))))
+ (#{global-extend 4311}#
'core
'syntax
(letrec*
- ((#{gen-syntax 2908}#
- (lambda (#{src 2923}#
- #{e 2924}#
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#)
- (if (if (symbol? #{e 2924}#)
+ ((#{gen-syntax 5303}#
+ (lambda (#{src 5405}#
+ #{e 5406}#
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#)
+ (if (if (symbol? #{e 5406}#)
#t
- (if (if (vector? #{e 2924}#)
- (if (= (vector-length #{e 2924}#) 4)
- (eq? (vector-ref #{e 2924}# 0) 'syntax-object)
+ (if (if (vector? #{e 5406}#)
+ (if (= (vector-length #{e 5406}#) 4)
+ (eq? (vector-ref #{e 5406}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 2924}# 1))
+ (symbol? (vector-ref #{e 5406}# 1))
#f))
- (let ((#{label 2936}#
- (#{id-var-name 411}# #{e 2924}# '(()))))
- (let ((#{b 2939}#
- (let ((#{t 5329}# (assq #{label 2936}# #{r 2925}#)))
- (if #{t 5329}#
- (cdr #{t 5329}#)
- (if (symbol? #{label 2936}#)
- (let ((#{t 5330}#
- (#{get-global-definition-hook 263}#
- #{label 2936}#
- #{mod 2928}#)))
- (if #{t 5330}# #{t 5330}# '(global)))
+ (let ((#{label 5437}#
+ (#{id-var-name 4332}# #{e 5406}# '(()))))
+ (let ((#{b 5438}#
+ (let ((#{t 5575}# (assq #{label 5437}# #{r 5407}#)))
+ (if #{t 5575}#
+ (cdr #{t 5575}#)
+ (if (symbol? #{label 5437}#)
+ (let ((#{t 5580}#
+ (begin
+ (if (if (not #{mod 5410}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should have a module"
+ #{label 5437}#))
+ (let ((#{v 5617}#
+ (module-variable
+ (if #{mod 5410}#
+ (resolve-module
+ (cdr #{mod 5410}#))
+ (current-module))
+ #{label 5437}#)))
+ (if #{v 5617}#
+ (if (variable-bound? #{v 5617}#)
+ (let ((#{val 5626}#
+ (variable-ref
+ #{v 5617}#)))
+ (if (macro? #{val 5626}#)
+ (if (macro-type
+ #{val 5626}#)
+ (cons (macro-type
+ #{val 5626}#)
+ (macro-binding
+ #{val 5626}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 5580}# #{t 5580}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 2939}#) 'syntax)
+ (if (eq? (car #{b 5438}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 2942}# (cdr #{b 2939}#)))
- (#{gen-ref 2910}#
- #{src 2923}#
- (car #{var.lev 2942}#)
- (cdr #{var.lev 2942}#)
- #{maps 2926}#)))
- (lambda (#{var 2944}# #{maps 2945}#)
- (values (list 'ref #{var 2944}#) #{maps 2945}#)))
- (if (#{ellipsis? 2927}# #{e 2924}#)
+ (let ((#{var.lev 5471}# (cdr #{b 5438}#)))
+ (#{gen-ref 5304}#
+ #{src 5405}#
+ (car #{var.lev 5471}#)
+ (cdr #{var.lev 5471}#)
+ #{maps 5408}#)))
+ (lambda (#{var 5567}# #{maps 5568}#)
+ (values (list 'ref #{var 5567}#) #{maps 5568}#)))
+ (if (#{ellipsis? 5409}# #{e 5406}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 2923}#)
- (values (list 'quote #{e 2924}#) #{maps 2926}#)))))
- (let ((#{tmp 2951}#
- ($sc-dispatch #{e 2924}# '(any any))))
- (if (if #{tmp 2951}#
+ #{src 5405}#)
+ (values (list 'quote #{e 5406}#) #{maps 5408}#)))))
+ (let ((#{tmp 5638}#
+ ($sc-dispatch #{e 5406}# '(any any))))
+ (if (if #{tmp 5638}#
(@apply
- (lambda (#{dots 2954}# #{e 2955}#)
- (#{ellipsis? 2927}# #{dots 2954}#))
- #{tmp 2951}#)
+ (lambda (#{dots 5642}# #{e 5643}#)
+ (#{ellipsis? 5409}# #{dots 5642}#))
+ #{tmp 5638}#)
#f)
(@apply
- (lambda (#{dots 2958}# #{e 2959}#)
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{e 2959}#
- #{r 2925}#
- #{maps 2926}#
- (lambda (#{x 2960}#) #f)
- #{mod 2928}#))
- #{tmp 2951}#)
- (let ((#{tmp 2962}#
- ($sc-dispatch #{e 2924}# '(any any . any))))
- (if (if #{tmp 2962}#
+ (lambda (#{dots 5644}# #{e 5645}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{e 5645}#
+ #{r 5407}#
+ #{maps 5408}#
+ (lambda (#{x 5646}#) #f)
+ #{mod 5410}#))
+ #{tmp 5638}#)
+ (let ((#{tmp 5647}#
+ ($sc-dispatch #{e 5406}# '(any any . any))))
+ (if (if #{tmp 5647}#
(@apply
- (lambda (#{x 2966}# #{dots 2967}# #{y 2968}#)
- (#{ellipsis? 2927}# #{dots 2967}#))
- #{tmp 2962}#)
+ (lambda (#{x 5651}# #{dots 5652}# #{y 5653}#)
+ (#{ellipsis? 5409}# #{dots 5652}#))
+ #{tmp 5647}#)
#f)
(@apply
- (lambda (#{x 2972}# #{dots 2973}# #{y 2974}#)
+ (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#)
(letrec*
- ((#{f 2978}#
- (lambda (#{y 2979}# #{k 2980}#)
- (let ((#{tmp 2988}#
+ ((#{f 5657}#
+ (lambda (#{y 5665}# #{k 5666}#)
+ (let ((#{tmp 5668}#
($sc-dispatch
- #{y 2979}#
+ #{y 5665}#
'(any . any))))
- (if (if #{tmp 2988}#
+ (if (if #{tmp 5668}#
(@apply
- (lambda (#{dots 2991}# #{y 2992}#)
- (#{ellipsis? 2927}#
- #{dots 2991}#))
- #{tmp 2988}#)
+ (lambda (#{dots 5672}# #{y 5673}#)
+ (#{ellipsis? 5409}#
+ #{dots 5672}#))
+ #{tmp 5668}#)
#f)
(@apply
- (lambda (#{dots 2995}# #{y 2996}#)
- (#{f 2978}#
- #{y 2996}#
- (lambda (#{maps 2997}#)
+ (lambda (#{dots 5674}# #{y 5675}#)
+ (#{f 5657}#
+ #{y 5675}#
+ (lambda (#{maps 5676}#)
(call-with-values
(lambda ()
- (#{k 2980}#
- (cons '() #{maps 2997}#)))
- (lambda (#{x 2999}#
- #{maps 3000}#)
- (if (null? (car #{maps 3000}#))
+ (#{k 5666}#
+ (cons '() #{maps 5676}#)))
+ (lambda (#{x 5677}#
+ #{maps 5678}#)
+ (if (null? (car #{maps 5678}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2923}#)
+ #{src 5405}#)
(values
- (#{gen-mappend 2912}#
- #{x 2999}#
- (car #{maps 3000}#))
- (cdr #{maps 3000}#))))))))
- #{tmp 2988}#)
+ (let ((#{map-env 5682}#
+ (car #{maps 5678}#)))
+ (list 'apply
+ '(primitive
+ append)
+ (#{gen-map 5306}#
+ #{x 5677}#
+ #{map-env 5682}#)))
+ (cdr #{maps 5678}#))))))))
+ #{tmp 5668}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{y 2979}#
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{y 3005}# #{maps 3006}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{y 5665}#
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{y 5685}# #{maps 5686}#)
(call-with-values
(lambda ()
- (#{k 2980}# #{maps 3006}#))
- (lambda (#{x 3009}# #{maps 3010}#)
+ (#{k 5666}# #{maps 5686}#))
+ (lambda (#{x 5687}# #{maps 5688}#)
(values
- (#{gen-append 2918}#
- #{x 3009}#
- #{y 3005}#)
- #{maps 3010}#))))))))))
- (#{f 2978}#
- #{y 2974}#
- (lambda (#{maps 2981}#)
+ (if (equal? #{y 5685}# ''())
+ #{x 5687}#
+ (list 'append
+ #{x 5687}#
+ #{y 5685}#))
+ #{maps 5688}#))))))))))
+ (#{f 5657}#
+ #{y 5656}#
+ (lambda (#{maps 5660}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{x 2972}#
- #{r 2925}#
- (cons '() #{maps 2981}#)
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{x 2983}# #{maps 2984}#)
- (if (null? (car #{maps 2984}#))
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{x 5654}#
+ #{r 5407}#
+ (cons '() #{maps 5660}#)
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{x 5661}# #{maps 5662}#)
+ (if (null? (car #{maps 5662}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 2923}#)
+ #{src 5405}#)
(values
- (#{gen-map 2914}#
- #{x 2983}#
- (car #{maps 2984}#))
- (cdr #{maps 2984}#)))))))))
- #{tmp 2962}#)
- (let ((#{tmp 3013}#
- ($sc-dispatch #{e 2924}# '(any . any))))
- (if #{tmp 3013}#
+ (#{gen-map 5306}#
+ #{x 5661}#
+ (car #{maps 5662}#))
+ (cdr #{maps 5662}#)))))))))
+ #{tmp 5647}#)
+ (let ((#{tmp 5704}#
+ ($sc-dispatch #{e 5406}# '(any . any))))
+ (if #{tmp 5704}#
(@apply
- (lambda (#{x 3016}# #{y 3017}#)
+ (lambda (#{x 5708}# #{y 5709}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{x 3016}#
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{x 3018}# #{maps 3019}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{x 5708}#
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{x 5710}# #{maps 5711}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- #{y 3017}#
- #{r 2925}#
- #{maps 3019}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{y 3022}# #{maps 3023}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ #{y 5709}#
+ #{r 5407}#
+ #{maps 5711}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{y 5712}# #{maps 5713}#)
(values
- (#{gen-cons 2916}#
- #{x 3018}#
- #{y 3022}#)
- #{maps 3023}#))))))
- #{tmp 3013}#)
- (let ((#{tmp 3026}#
+ (let ((#{atom-key 5718}#
+ (car #{y 5712}#)))
+ (if (eqv? #{atom-key 5718}# 'quote)
+ (if (eq? (car #{x 5710}#) 'quote)
+ (list 'quote
+ (cons (car (cdr #{x 5710}#))
+ (car (cdr #{y 5712}#))))
+ (if (eq? (car (cdr #{y 5712}#))
+ '())
+ (list 'list #{x 5710}#)
+ (list 'cons
+ #{x 5710}#
+ #{y 5712}#)))
+ (if (eqv? #{atom-key 5718}# 'list)
+ (cons 'list
+ (cons #{x 5710}#
+ (cdr #{y 5712}#)))
+ (list 'cons
+ #{x 5710}#
+ #{y 5712}#))))
+ #{maps 5713}#))))))
+ #{tmp 5704}#)
+ (let ((#{tmp 5747}#
($sc-dispatch
- #{e 2924}#
+ #{e 5406}#
'#(vector (any . each-any)))))
- (if #{tmp 3026}#
+ (if #{tmp 5747}#
(@apply
- (lambda (#{e1 3029}# #{e2 3030}#)
+ (lambda (#{e1 5751}# #{e2 5752}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{src 2923}#
- (cons #{e1 3029}# #{e2 3030}#)
- #{r 2925}#
- #{maps 2926}#
- #{ellipsis? 2927}#
- #{mod 2928}#))
- (lambda (#{e 3032}# #{maps 3033}#)
+ (#{gen-syntax 5303}#
+ #{src 5405}#
+ (cons #{e1 5751}# #{e2 5752}#)
+ #{r 5407}#
+ #{maps 5408}#
+ #{ellipsis? 5409}#
+ #{mod 5410}#))
+ (lambda (#{e 5753}# #{maps 5754}#)
(values
- (#{gen-vector 2920}# #{e 3032}#)
- #{maps 3033}#))))
- #{tmp 3026}#)
+ (if (eq? (car #{e 5753}#) 'list)
+ (cons 'vector (cdr #{e 5753}#))
+ (if (eq? (car #{e 5753}#) 'quote)
+ (list 'quote
+ (list->vector
+ (car (cdr #{e 5753}#))))
+ (list 'list->vector #{e 5753}#)))
+ #{maps 5754}#))))
+ #{tmp 5747}#)
(values
- (list 'quote #{e 2924}#)
- #{maps 2926}#))))))))))))
- (#{gen-ref 2910}#
- (lambda (#{src 3039}#
- #{var 3040}#
- #{level 3041}#
- #{maps 3042}#)
- (if (= #{level 3041}# 0)
- (values #{var 3040}# #{maps 3042}#)
- (if (null? #{maps 3042}#)
+ (list 'quote #{e 5406}#)
+ #{maps 5408}#))))))))))))
+ (#{gen-ref 5304}#
+ (lambda (#{src 5781}#
+ #{var 5782}#
+ #{level 5783}#
+ #{maps 5784}#)
+ (if (= #{level 5783}# 0)
+ (values #{var 5782}# #{maps 5784}#)
+ (if (null? #{maps 5784}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 3039}#)
+ #{src 5781}#)
(call-with-values
(lambda ()
- (#{gen-ref 2910}#
- #{src 3039}#
- #{var 3040}#
- (#{1-}# #{level 3041}#)
- (cdr #{maps 3042}#)))
- (lambda (#{outer-var 3049}# #{outer-maps 3050}#)
- (let ((#{b 3054}#
- (assq #{outer-var 3049}# (car #{maps 3042}#))))
- (if #{b 3054}#
- (values (cdr #{b 3054}#) #{maps 3042}#)
- (let ((#{inner-var 3056}#
+ (#{gen-ref 5304}#
+ #{src 5781}#
+ #{var 5782}#
+ (#{1-}# #{level 5783}#)
+ (cdr #{maps 5784}#)))
+ (lambda (#{outer-var 5785}# #{outer-maps 5786}#)
+ (let ((#{b 5787}#
+ (assq #{outer-var 5785}# (car #{maps 5784}#))))
+ (if #{b 5787}#
+ (values (cdr #{b 5787}#) #{maps 5784}#)
+ (let ((#{inner-var 5789}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 3056}#
- (cons (cons (cons #{outer-var 3049}#
- #{inner-var 3056}#)
- (car #{maps 3042}#))
- #{outer-maps 3050}#)))))))))))
- (#{gen-mappend 2912}#
- (lambda (#{e 3057}# #{map-env 3058}#)
- (list 'apply
- '(primitive append)
- (#{gen-map 2914}# #{e 3057}# #{map-env 3058}#))))
- (#{gen-map 2914}#
- (lambda (#{e 3062}# #{map-env 3063}#)
- (let ((#{formals 3068}# (map cdr #{map-env 3063}#))
- (#{actuals 3069}#
- (map (lambda (#{x 3070}#)
- (list 'ref (car #{x 3070}#)))
- #{map-env 3063}#)))
- (if (eq? (car #{e 3062}#) 'ref)
- (car #{actuals 3069}#)
+ #{inner-var 5789}#
+ (cons (cons (cons #{outer-var 5785}#
+ #{inner-var 5789}#)
+ (car #{maps 5784}#))
+ #{outer-maps 5786}#)))))))))))
+ (#{gen-map 5306}#
+ (lambda (#{e 5803}# #{map-env 5804}#)
+ (let ((#{formals 5805}# (map cdr #{map-env 5804}#))
+ (#{actuals 5806}#
+ (map (lambda (#{x 5808}#)
+ (list 'ref (car #{x 5808}#)))
+ #{map-env 5804}#)))
+ (if (eq? (car #{e 5803}#) 'ref)
+ (car #{actuals 5806}#)
(if (and-map
- (lambda (#{x 3077}#)
- (if (eq? (car #{x 3077}#) 'ref)
- (memq (car (cdr #{x 3077}#)) #{formals 3068}#)
+ (lambda (#{x 5809}#)
+ (if (eq? (car #{x 5809}#) 'ref)
+ (memq (car (cdr #{x 5809}#)) #{formals 5805}#)
#f))
- (cdr #{e 3062}#))
+ (cdr #{e 5803}#))
(cons 'map
- (cons (list 'primitive (car #{e 3062}#))
- (map (let ((#{r 3083}#
+ (cons (list 'primitive (car #{e 5803}#))
+ (map (let ((#{r 5811}#
(map cons
- #{formals 3068}#
- #{actuals 3069}#)))
- (lambda (#{x 3084}#)
- (cdr (assq (car (cdr #{x 3084}#))
- #{r 3083}#))))
- (cdr #{e 3062}#))))
+ #{formals 5805}#
+ #{actuals 5806}#)))
+ (lambda (#{x 5812}#)
+ (cdr (assq (car (cdr #{x 5812}#))
+ #{r 5811}#))))
+ (cdr #{e 5803}#))))
(cons 'map
- (cons (list 'lambda #{formals 3068}# #{e 3062}#)
- #{actuals 3069}#)))))))
- (#{gen-cons 2916}#
- (lambda (#{x 3088}# #{y 3089}#)
- (let ((#{atom-key 3094}# (car #{y 3089}#)))
- (if (memv #{atom-key 3094}# '(quote))
- (if (eq? (car #{x 3088}#) 'quote)
- (list 'quote
- (cons (car (cdr #{x 3088}#))
- (car (cdr #{y 3089}#))))
- (if (eq? (car (cdr #{y 3089}#)) '())
- (list 'list #{x 3088}#)
- (list 'cons #{x 3088}# #{y 3089}#)))
- (if (memv #{atom-key 3094}# '(list))
- (cons 'list (cons #{x 3088}# (cdr #{y 3089}#)))
- (list 'cons #{x 3088}# #{y 3089}#))))))
- (#{gen-append 2918}#
- (lambda (#{x 3103}# #{y 3104}#)
- (if (equal? #{y 3104}# ''())
- #{x 3103}#
- (list 'append #{x 3103}# #{y 3104}#))))
- (#{gen-vector 2920}#
- (lambda (#{x 3108}#)
- (if (eq? (car #{x 3108}#) 'list)
- (cons 'vector (cdr #{x 3108}#))
- (if (eq? (car #{x 3108}#) 'quote)
- (list 'quote
- (list->vector (car (cdr #{x 3108}#))))
- (list 'list->vector #{x 3108}#)))))
- (#{regen 2922}#
- (lambda (#{x 3118}#)
- (let ((#{atom-key 3122}# (car #{x 3118}#)))
- (if (memv #{atom-key 3122}# '(ref))
- (let ((#{name 5345}# (car (cdr #{x 3118}#)))
- (#{var 5346}# (car (cdr #{x 3118}#))))
+ (cons (list 'lambda #{formals 5805}# #{e 5803}#)
+ #{actuals 5806}#)))))))
+ (#{regen 5310}#
+ (lambda (#{x 5814}#)
+ (let ((#{atom-key 5815}# (car #{x 5814}#)))
+ (if (eqv? #{atom-key 5815}# 'ref)
+ (let ((#{name 5825}# (car (cdr #{x 5814}#)))
+ (#{var 5826}# (car (cdr #{x 5814}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 5345}#
- #{var 5346}#))
- (if (memv #{atom-key 3122}# '(primitive))
- (let ((#{name 5355}# (car (cdr #{x 3118}#))))
+ #{name 5825}#
+ #{var 5826}#))
+ (if (eqv? #{atom-key 5815}# 'primitive)
+ (let ((#{name 5838}# (car (cdr #{x 5814}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5355}#)
+ #{name 5838}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5355}#
+ #{name 5838}#
#f)))
- (if (memv #{atom-key 3122}# '(quote))
- (let ((#{exp 5369}# (car (cdr #{x 3118}#))))
+ (if (eqv? #{atom-key 5815}# 'quote)
+ (let ((#{exp 5856}# (car (cdr #{x 5814}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 5369}#))
- (if (memv #{atom-key 3122}# '(lambda))
- (if (list? (car (cdr #{x 3118}#)))
- (let ((#{req 5377}# (car (cdr #{x 3118}#)))
- (#{vars 5379}# (car (cdr #{x 3118}#)))
- (#{exp 5381}#
- (#{regen 2922}#
- (car (cdr (cdr #{x 3118}#))))))
- (let ((#{body 5386}#
+ #{exp 5856}#))
+ (if (eqv? #{atom-key 5815}# 'lambda)
+ (if (list? (car (cdr #{x 5814}#)))
+ (let ((#{req 5867}# (car (cdr #{x 5814}#)))
+ (#{vars 5869}# (car (cdr #{x 5814}#)))
+ (#{exp 5871}#
+ (#{regen 5310}#
+ (car (cdr (cdr #{x 5814}#))))))
+ (let ((#{body 5876}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 5377}#
+ #{req 5867}#
#f
#f
#f
'()
- #{vars 5379}#
- #{exp 5381}#
+ #{vars 5869}#
+ #{exp 5871}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 5386}#)))
- (error "how did we get here" #{x 3118}#))
- (let ((#{fun-exp 5401}#
- (let ((#{name 5406}# (car #{x 3118}#)))
+ #{body 5876}#)))
+ (error "how did we get here" #{x 5814}#))
+ (let ((#{fun-exp 5892}#
+ (let ((#{name 5901}# (car #{x 5814}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5406}#)
+ #{name 5901}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5406}#
+ #{name 5901}#
#f))))
- (#{arg-exps 5402}#
- (map #{regen 2922}# (cdr #{x 3118}#))))
+ (#{arg-exps 5893}#
+ (map #{regen 5310}# (cdr #{x 5814}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 5401}#
- #{arg-exps 5402}#))))))))))
- (lambda (#{e 3134}#
- #{r 3135}#
- #{w 3136}#
- #{s 3137}#
- #{mod 3138}#)
- (let ((#{e 3145}#
- (#{wrap 423}#
+ #{fun-exp 5892}#
+ #{arg-exps 5893}#))))))))))
+ (lambda (#{e 5311}#
+ #{r 5312}#
+ #{w 5313}#
+ #{s 5314}#
+ #{mod 5315}#)
+ (let ((#{e 5316}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3134}#) #{s 3137}# #f)
- (set-source-properties! #{e 3134}# #{s 3137}#))
- #{e 3134}#)
- #{w 3136}#
- #{mod 3138}#)))
- (let ((#{tmp 3147}# ($sc-dispatch #{e 3145}# '(_ any))))
- (if #{tmp 3147}#
+ (if (if (pair? #{e 5311}#) #{s 5314}# #f)
+ (set-source-properties! #{e 5311}# #{s 5314}#))
+ #{e 5311}#)
+ #{w 5313}#
+ #{mod 5315}#)))
+ (let ((#{tmp 5318}# ($sc-dispatch #{e 5316}# '(_ any))))
+ (if #{tmp 5318}#
(@apply
- (lambda (#{x 3149}#)
+ (lambda (#{x 5343}#)
(call-with-values
(lambda ()
- (#{gen-syntax 2908}#
- #{e 3145}#
- #{x 3149}#
- #{r 3135}#
+ (#{gen-syntax 5303}#
+ #{e 5316}#
+ #{x 5343}#
+ #{r 5312}#
'()
- #{ellipsis? 453}#
- #{mod 3138}#))
- (lambda (#{e 3150}# #{maps 3151}#)
- (#{regen 2922}# #{e 3150}#))))
- #{tmp 3147}#)
+ #{ellipsis? 4353}#
+ #{mod 5315}#))
+ (lambda (#{e 5397}# #{maps 5398}#)
+ (#{regen 5310}# #{e 5397}#))))
+ #{tmp 5318}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 3145}#)))))))
- (#{global-extend 345}#
+ #{e 5316}#)))))))
+ (#{global-extend 4311}#
'core
'lambda
- (lambda (#{e 3156}#
- #{r 3157}#
- #{w 3158}#
- #{s 3159}#
- #{mod 3160}#)
- (let ((#{tmp 3167}#
- ($sc-dispatch #{e 3156}# '(_ any any . each-any))))
- (if #{tmp 3167}#
+ (lambda (#{e 6096}#
+ #{r 6097}#
+ #{w 6098}#
+ #{s 6099}#
+ #{mod 6100}#)
+ (let ((#{tmp 6102}#
+ ($sc-dispatch #{e 6096}# '(_ any any . each-any))))
+ (if #{tmp 6102}#
(@apply
- (lambda (#{args 3171}# #{e1 3172}# #{e2 3173}#)
+ (lambda (#{args 6106}# #{e1 6107}# #{e2 6108}#)
(call-with-values
(lambda ()
- (#{lambda-formals 455}# #{args 3171}#))
- (lambda (#{req 3174}#
- #{opt 3175}#
- #{rest 3176}#
- #{kw 3177}#)
+ (#{lambda-formals 4354}# #{args 6106}#))
+ (lambda (#{req 6111}#
+ #{opt 6112}#
+ #{rest 6113}#
+ #{kw 6114}#)
(letrec*
- ((#{lp 3185}#
- (lambda (#{body 3186}# #{meta 3187}#)
- (let ((#{tmp 3190}#
+ ((#{lp 6115}#
+ (lambda (#{body 6118}# #{meta 6119}#)
+ (let ((#{tmp 6121}#
($sc-dispatch
- #{body 3186}#
+ #{body 6118}#
'(any any . each-any))))
- (if (if #{tmp 3190}#
+ (if (if #{tmp 6121}#
(@apply
- (lambda (#{docstring 3194}#
- #{e1 3195}#
- #{e2 3196}#)
+ (lambda (#{docstring 6125}#
+ #{e1 6126}#
+ #{e2 6127}#)
(string?
- (syntax->datum #{docstring 3194}#)))
- #{tmp 3190}#)
+ (syntax->datum #{docstring 6125}#)))
+ #{tmp 6121}#)
#f)
(@apply
- (lambda (#{docstring 3200}#
- #{e1 3201}#
- #{e2 3202}#)
- (#{lp 3185}#
- (cons #{e1 3201}# #{e2 3202}#)
+ (lambda (#{docstring 6128}#
+ #{e1 6129}#
+ #{e2 6130}#)
+ (#{lp 6115}#
+ (cons #{e1 6129}# #{e2 6130}#)
(append
- #{meta 3187}#
+ #{meta 6119}#
(list (cons 'documentation
(syntax->datum
- #{docstring 3200}#))))))
- #{tmp 3190}#)
- (let ((#{tmp 3205}#
+ #{docstring 6128}#))))))
+ #{tmp 6121}#)
+ (let ((#{tmp 6131}#
($sc-dispatch
- #{body 3186}#
+ #{body 6118}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 3205}#
+ (if #{tmp 6131}#
(@apply
- (lambda (#{k 3210}#
- #{v 3211}#
- #{e1 3212}#
- #{e2 3213}#)
- (#{lp 3185}#
- (cons #{e1 3212}# #{e2 3213}#)
+ (lambda (#{k 6135}#
+ #{v 6136}#
+ #{e1 6137}#
+ #{e2 6138}#)
+ (#{lp 6115}#
+ (cons #{e1 6137}# #{e2 6138}#)
(append
- #{meta 3187}#
+ #{meta 6119}#
(syntax->datum
(map cons
- #{k 3210}#
- #{v 3211}#)))))
- #{tmp 3205}#)
- ((lambda (#{e 2267}#
- #{r 2268}#
- #{w 2269}#
- #{s 2270}#
- #{mod 2271}#
- #{req 2272}#
- #{rest 2273}#
- #{meta 2274}#
- #{body 2275}#)
- (let ((#{ids 2287}#
- (if #{rest 2273}#
- (append
- #{req 2272}#
- (list #{rest 2273}#))
- #{req 2272}#)))
- (let ((#{vars 2289}#
- (map #{gen-var 465}#
- #{ids 2287}#)))
- (let ((#{labels 2291}#
- (#{gen-labels 369}#
- #{ids 2287}#)))
- (#{build-simple-lambda 289}#
- #{s 2270}#
- (map syntax->datum #{req 2272}#)
- (if #{rest 2273}#
- (syntax->datum #{rest 2273}#)
- #f)
- #{vars 2289}#
- #{meta 2274}#
- (#{chi-body 445}#
- #{body 2275}#
- (#{source-wrap 425}#
- #{e 2267}#
- #{w 2269}#
- #{s 2270}#
- #{mod 2271}#)
- (#{extend-var-env 339}#
- #{labels 2291}#
- #{vars 2289}#
- #{r 2268}#)
- (#{make-binding-wrap 401}#
- #{ids 2287}#
- #{labels 2291}#
- #{w 2269}#)
- #{mod 2271}#))))))
- #{e 3156}#
- #{r 3157}#
- #{w 3158}#
- #{s 3159}#
- #{mod 3160}#
- #{req 3174}#
- #{rest 3176}#
- #{meta 3187}#
- #{body 3186}#))))))))
- (#{lp 3185}# (cons #{e1 3172}# #{e2 3173}#) '())))))
- #{tmp 3167}#)
+ #{k 6135}#
+ #{v 6136}#)))))
+ #{tmp 6131}#)
+ (#{chi-simple-lambda 4355}#
+ #{e 6096}#
+ #{r 6097}#
+ #{w 6098}#
+ #{s 6099}#
+ #{mod 6100}#
+ #{req 6111}#
+ #{rest 6113}#
+ #{meta 6119}#
+ #{body 6118}#))))))))
+ (#{lp 6115}# (cons #{e1 6107}# #{e2 6108}#) '())))))
+ #{tmp 6102}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 3156}#)))))
- (module-define!
- (current-module)
+ #{e 6096}#)))))
+ (#{global-extend 4311}#
+ 'core
'lambda*
- (make-syntax-transformer
- 'lambda*
- 'core
- (lambda (#{e 3221}#
- #{r 3222}#
- #{w 3223}#
- #{s 3224}#
- #{mod 3225}#)
- (let ((#{tmp 3232}#
- ($sc-dispatch #{e 3221}# '(_ any any . each-any))))
- (if #{tmp 3232}#
- (@apply
- (lambda (#{args 3236}# #{e1 3237}# #{e2 3238}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 461}#
- #{e 3221}#
- #{r 3222}#
- #{w 3223}#
- #{s 3224}#
- #{mod 3225}#
- #{lambda*-formals 459}#
- (list (cons #{args 3236}#
- (cons #{e1 3237}# #{e2 3238}#)))))
- (lambda (#{meta 3240}# #{lcase 3241}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 3224}#
- #{meta 3240}#
- #{lcase 3241}#))))
- #{tmp 3232}#)
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e 3221}#))))))
- (module-define!
- (current-module)
+ (lambda (#{e 6430}#
+ #{r 6431}#
+ #{w 6432}#
+ #{s 6433}#
+ #{mod 6434}#)
+ (let ((#{tmp 6436}#
+ ($sc-dispatch #{e 6430}# '(_ any any . each-any))))
+ (if #{tmp 6436}#
+ (@apply
+ (lambda (#{args 6440}# #{e1 6441}# #{e2 6442}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 4357}#
+ #{e 6430}#
+ #{r 6431}#
+ #{w 6432}#
+ #{s 6433}#
+ #{mod 6434}#
+ #{lambda*-formals 4356}#
+ (list (cons #{args 6440}#
+ (cons #{e1 6441}# #{e2 6442}#)))))
+ (lambda (#{meta 6445}# #{lcase 6446}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6433}#
+ #{meta 6445}#
+ #{lcase 6446}#))))
+ #{tmp 6436}#)
+ (syntax-violation
+ 'lambda
+ "bad lambda*"
+ #{e 6430}#)))))
+ (#{global-extend 4311}#
+ 'core
'case-lambda
- (make-syntax-transformer
- 'case-lambda
- 'core
- (lambda (#{e 3246}#
- #{r 3247}#
- #{w 3248}#
- #{s 3249}#
- #{mod 3250}#)
- (let ((#{tmp 3257}#
- ($sc-dispatch
- #{e 3246}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3257}#
- (@apply
- (lambda (#{args 3264}#
- #{e1 3265}#
- #{e2 3266}#
- #{args* 3267}#
- #{e1* 3268}#
- #{e2* 3269}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 461}#
- #{e 3246}#
- #{r 3247}#
- #{w 3248}#
- #{s 3249}#
- #{mod 3250}#
- #{lambda-formals 455}#
- (cons (cons #{args 3264}#
- (cons #{e1 3265}# #{e2 3266}#))
- (map (lambda (#{tmp 3273}#
- #{tmp 3272}#
- #{tmp 3271}#)
- (cons #{tmp 3271}#
- (cons #{tmp 3272}# #{tmp 3273}#)))
- #{e2* 3269}#
- #{e1* 3268}#
- #{args* 3267}#))))
- (lambda (#{meta 3275}# #{lcase 3276}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 3249}#
- #{meta 3275}#
- #{lcase 3276}#))))
- #{tmp 3257}#)
- (syntax-violation
- 'case-lambda
- "bad case-lambda"
- #{e 3246}#))))))
- (module-define!
- (current-module)
+ (lambda (#{e 6620}#
+ #{r 6621}#
+ #{w 6622}#
+ #{s 6623}#
+ #{mod 6624}#)
+ (let ((#{tmp 6626}#
+ ($sc-dispatch
+ #{e 6620}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 6626}#
+ (@apply
+ (lambda (#{args 6630}#
+ #{e1 6631}#
+ #{e2 6632}#
+ #{args* 6633}#
+ #{e1* 6634}#
+ #{e2* 6635}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 4357}#
+ #{e 6620}#
+ #{r 6621}#
+ #{w 6622}#
+ #{s 6623}#
+ #{mod 6624}#
+ #{lambda-formals 4354}#
+ (cons (cons #{args 6630}#
+ (cons #{e1 6631}# #{e2 6632}#))
+ (map (lambda (#{tmp 3274 6638}#
+ #{tmp 3273 6639}#
+ #{tmp 3272 6640}#)
+ (cons #{tmp 3272 6640}#
+ (cons #{tmp 3273 6639}#
+ #{tmp 3274 6638}#)))
+ #{e2* 6635}#
+ #{e1* 6634}#
+ #{args* 6633}#))))
+ (lambda (#{meta 6641}# #{lcase 6642}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6623}#
+ #{meta 6641}#
+ #{lcase 6642}#))))
+ #{tmp 6626}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ #{e 6620}#)))))
+ (#{global-extend 4311}#
+ 'core
'case-lambda*
- (make-syntax-transformer
- 'case-lambda*
- 'core
- (lambda (#{e 3281}#
- #{r 3282}#
- #{w 3283}#
- #{s 3284}#
- #{mod 3285}#)
- (let ((#{tmp 3292}#
- ($sc-dispatch
- #{e 3281}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3292}#
- (@apply
- (lambda (#{args 3299}#
- #{e1 3300}#
- #{e2 3301}#
- #{args* 3302}#
- #{e1* 3303}#
- #{e2* 3304}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 461}#
- #{e 3281}#
- #{r 3282}#
- #{w 3283}#
- #{s 3284}#
- #{mod 3285}#
- #{lambda*-formals 459}#
- (cons (cons #{args 3299}#
- (cons #{e1 3300}# #{e2 3301}#))
- (map (lambda (#{tmp 3308}#
- #{tmp 3307}#
- #{tmp 3306}#)
- (cons #{tmp 3306}#
- (cons #{tmp 3307}# #{tmp 3308}#)))
- #{e2* 3304}#
- #{e1* 3303}#
- #{args* 3302}#))))
- (lambda (#{meta 3310}# #{lcase 3311}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 3284}#
- #{meta 3310}#
- #{lcase 3311}#))))
- #{tmp 3292}#)
- (syntax-violation
- 'case-lambda
- "bad case-lambda*"
- #{e 3281}#))))))
- (#{global-extend 345}#
+ (lambda (#{e 6805}#
+ #{r 6806}#
+ #{w 6807}#
+ #{s 6808}#
+ #{mod 6809}#)
+ (let ((#{tmp 6811}#
+ ($sc-dispatch
+ #{e 6805}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 6811}#
+ (@apply
+ (lambda (#{args 6815}#
+ #{e1 6816}#
+ #{e2 6817}#
+ #{args* 6818}#
+ #{e1* 6819}#
+ #{e2* 6820}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 4357}#
+ #{e 6805}#
+ #{r 6806}#
+ #{w 6807}#
+ #{s 6808}#
+ #{mod 6809}#
+ #{lambda*-formals 4356}#
+ (cons (cons #{args 6815}#
+ (cons #{e1 6816}# #{e2 6817}#))
+ (map (lambda (#{tmp 3309 6823}#
+ #{tmp 3308 6824}#
+ #{tmp 3307 6825}#)
+ (cons #{tmp 3307 6825}#
+ (cons #{tmp 3308 6824}#
+ #{tmp 3309 6823}#)))
+ #{e2* 6820}#
+ #{e1* 6819}#
+ #{args* 6818}#))))
+ (lambda (#{meta 6826}# #{lcase 6827}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6808}#
+ #{meta 6826}#
+ #{lcase 6827}#))))
+ #{tmp 6811}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e 6805}#)))))
+ (#{global-extend 4311}#
'core
'let
(letrec*
- ((#{chi-let 3317}#
- (lambda (#{e 3318}#
- #{r 3319}#
- #{w 3320}#
- #{s 3321}#
- #{mod 3322}#
- #{constructor 3323}#
- #{ids 3324}#
- #{vals 3325}#
- #{exps 3326}#)
- (if (not (#{valid-bound-ids? 417}# #{ids 3324}#))
+ ((#{chi-let 7019}#
+ (lambda (#{e 7168}#
+ #{r 7169}#
+ #{w 7170}#
+ #{s 7171}#
+ #{mod 7172}#
+ #{constructor 7173}#
+ #{ids 7174}#
+ #{vals 7175}#
+ #{exps 7176}#)
+ (if (not (#{valid-bound-ids? 4335}# #{ids 7174}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 3318}#)
- (let ((#{labels 3338}#
- (#{gen-labels 369}# #{ids 3324}#))
- (#{new-vars 3339}#
- (map #{gen-var 465}# #{ids 3324}#)))
- (let ((#{nw 3342}#
- (#{make-binding-wrap 401}#
- #{ids 3324}#
- #{labels 3338}#
- #{w 3320}#))
- (#{nr 3343}#
- (#{extend-var-env 339}#
- #{labels 3338}#
- #{new-vars 3339}#
- #{r 3319}#)))
- (#{constructor 3323}#
- #{s 3321}#
- (map syntax->datum #{ids 3324}#)
- #{new-vars 3339}#
- (map (lambda (#{x 3344}#)
- (#{chi 437}#
- #{x 3344}#
- #{r 3319}#
- #{w 3320}#
- #{mod 3322}#))
- #{vals 3325}#)
- (#{chi-body 445}#
- #{exps 3326}#
- (#{wrap 423}#
- (begin
- (if (if (pair? #{e 3318}#) #{s 3321}# #f)
- (set-source-properties! #{e 3318}# #{s 3321}#))
- #{e 3318}#)
- #{nw 3342}#
- #{mod 3322}#)
- #{nr 3343}#
- #{nw 3342}#
- #{mod 3322}#))))))))
- (lambda (#{e 3346}#
- #{r 3347}#
- #{w 3348}#
- #{s 3349}#
- #{mod 3350}#)
- (let ((#{tmp 3357}#
+ #{e 7168}#)
+ (let ((#{labels 7254}#
+ (#{gen-labels 4316}# #{ids 7174}#))
+ (#{new-vars 7255}#
+ (map #{gen-var 4359}# #{ids 7174}#)))
+ (let ((#{nw 7256}#
+ (#{make-binding-wrap 4327}#
+ #{ids 7174}#
+ #{labels 7254}#
+ #{w 7170}#))
+ (#{nr 7257}#
+ (#{extend-var-env 4308}#
+ #{labels 7254}#
+ #{new-vars 7255}#
+ #{r 7169}#)))
+ (#{constructor 7173}#
+ #{s 7171}#
+ (map syntax->datum #{ids 7174}#)
+ #{new-vars 7255}#
+ (map (lambda (#{x 7274}#)
+ (#{chi 4345}#
+ #{x 7274}#
+ #{r 7169}#
+ #{w 7170}#
+ #{mod 7172}#))
+ #{vals 7175}#)
+ (#{chi-body 4349}#
+ #{exps 7176}#
+ (#{source-wrap 4339}#
+ #{e 7168}#
+ #{nw 7256}#
+ #{s 7171}#
+ #{mod 7172}#)
+ #{nr 7257}#
+ #{nw 7256}#
+ #{mod 7172}#))))))))
+ (lambda (#{e 7020}#
+ #{r 7021}#
+ #{w 7022}#
+ #{s 7023}#
+ #{mod 7024}#)
+ (let ((#{tmp 7026}#
($sc-dispatch
- #{e 3346}#
+ #{e 7020}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3357}#
+ (if (if #{tmp 7026}#
(@apply
- (lambda (#{id 3362}#
- #{val 3363}#
- #{e1 3364}#
- #{e2 3365}#)
- (and-map #{id? 349}# #{id 3362}#))
- #{tmp 3357}#)
+ (lambda (#{id 7030}#
+ #{val 7031}#
+ #{e1 7032}#
+ #{e2 7033}#)
+ (and-map #{id? 4313}# #{id 7030}#))
+ #{tmp 7026}#)
#f)
(@apply
- (lambda (#{id 3371}#
- #{val 3372}#
- #{e1 3373}#
- #{e2 3374}#)
- (#{chi-let 3317}#
- #{e 3346}#
- #{r 3347}#
- #{w 3348}#
- #{s 3349}#
- #{mod 3350}#
- (lambda (#{src 1104}#
- #{ids 1105}#
- #{vars 1106}#
- #{val-exps 1107}#
- #{body-exp 1108}#)
- (begin
- (for-each
- #{maybe-name-value! 267}#
- #{ids 1105}#
- #{val-exps 1107}#)
- (if (null? #{vars 1106}#)
- #{body-exp 1108}#
- (#{make-let 238}#
- #{src 1104}#
- #{ids 1105}#
- #{vars 1106}#
- #{val-exps 1107}#
- #{body-exp 1108}#))))
- #{id 3371}#
- #{val 3372}#
- (cons #{e1 3373}# #{e2 3374}#)))
- #{tmp 3357}#)
- (let ((#{tmp 3378}#
+ (lambda (#{id 7049}#
+ #{val 7050}#
+ #{e1 7051}#
+ #{e2 7052}#)
+ (#{chi-let 7019}#
+ #{e 7020}#
+ #{r 7021}#
+ #{w 7022}#
+ #{s 7023}#
+ #{mod 7024}#
+ #{build-let 4295}#
+ #{id 7049}#
+ #{val 7050}#
+ (cons #{e1 7051}# #{e2 7052}#)))
+ #{tmp 7026}#)
+ (let ((#{tmp 7082}#
($sc-dispatch
- #{e 3346}#
+ #{e 7020}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 3378}#
+ (if (if #{tmp 7082}#
(@apply
- (lambda (#{f 3384}#
- #{id 3385}#
- #{val 3386}#
- #{e1 3387}#
- #{e2 3388}#)
- (if (if (symbol? #{f 3384}#)
+ (lambda (#{f 7086}#
+ #{id 7087}#
+ #{val 7088}#
+ #{e1 7089}#
+ #{e2 7090}#)
+ (if (if (symbol? #{f 7086}#)
#t
- (if (if (vector? #{f 3384}#)
- (if (= (vector-length #{f 3384}#) 4)
- (eq? (vector-ref #{f 3384}# 0)
+ (if (if (vector? #{f 7086}#)
+ (if (= (vector-length #{f 7086}#) 4)
+ (eq? (vector-ref #{f 7086}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 3384}# 1))
+ (symbol? (vector-ref #{f 7086}# 1))
#f))
- (and-map #{id? 349}# #{id 3385}#)
+ (and-map #{id? 4313}# #{id 7087}#)
#f))
- #{tmp 3378}#)
+ #{tmp 7082}#)
#f)
(@apply
- (lambda (#{f 3397}#
- #{id 3398}#
- #{val 3399}#
- #{e1 3400}#
- #{e2 3401}#)
- (#{chi-let 3317}#
- #{e 3346}#
- #{r 3347}#
- #{w 3348}#
- #{s 3349}#
- #{mod 3350}#
- (lambda (#{src 1114}#
- #{ids 1115}#
- #{vars 1116}#
- #{val-exps 1117}#
- #{body-exp 1118}#)
- (let ((#{f 1128}# (car #{vars 1116}#))
- (#{f-name 1129}# (car #{ids 1115}#))
- (#{vars 1130}# (cdr #{vars 1116}#))
- (#{ids 1131}# (cdr #{ids 1115}#)))
- (let ((#{proc 1133}#
- (#{build-simple-lambda 289}#
- #{src 1114}#
- #{ids 1131}#
- #f
- #{vars 1130}#
- '()
- #{body-exp 1118}#)))
- (begin
- (#{maybe-name-value! 267}#
- #{f-name 1129}#
- #{proc 1133}#)
- (for-each
- #{maybe-name-value! 267}#
- #{ids 1131}#
- #{val-exps 1117}#)
- (#{make-letrec 240}#
- #{src 1114}#
- #f
- (list #{f-name 1129}#)
- (list #{f 1128}#)
- (list #{proc 1133}#)
- (#{build-application 271}#
- #{src 1114}#
- (#{build-lexical-reference 277}#
- 'fun
- #{src 1114}#
- #{f-name 1129}#
- #{f 1128}#)
- #{val-exps 1117}#))))))
- (cons #{f 3397}# #{id 3398}#)
- #{val 3399}#
- (cons #{e1 3400}# #{e2 3401}#)))
- #{tmp 3378}#)
+ (lambda (#{f 7132}#
+ #{id 7133}#
+ #{val 7134}#
+ #{e1 7135}#
+ #{e2 7136}#)
+ (#{chi-let 7019}#
+ #{e 7020}#
+ #{r 7021}#
+ #{w 7022}#
+ #{s 7023}#
+ #{mod 7024}#
+ #{build-named-let 4296}#
+ (cons #{f 7132}# #{id 7133}#)
+ #{val 7134}#
+ (cons #{e1 7135}# #{e2 7136}#)))
+ #{tmp 7082}#)
(syntax-violation
'let
"bad let"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3346}#) #{s 3349}# #f)
- (set-source-properties! #{e 3346}# #{s 3349}#))
- #{e 3346}#)
- #{w 3348}#
- #{mod 3350}#)))))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 7020}#) #{s 7023}# #f)
+ (set-source-properties! #{e 7020}# #{s 7023}#))
+ #{e 7020}#)
+ #{w 7022}#
+ #{mod 7024}#)))))))))
+ (#{global-extend 4311}#
'core
'letrec
- (lambda (#{e 3407}#
- #{r 3408}#
- #{w 3409}#
- #{s 3410}#
- #{mod 3411}#)
- (let ((#{tmp 3418}#
+ (lambda (#{e 7723}#
+ #{r 7724}#
+ #{w 7725}#
+ #{s 7726}#
+ #{mod 7727}#)
+ (let ((#{tmp 7729}#
($sc-dispatch
- #{e 3407}#
+ #{e 7723}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3418}#
+ (if (if #{tmp 7729}#
(@apply
- (lambda (#{id 3423}#
- #{val 3424}#
- #{e1 3425}#
- #{e2 3426}#)
- (and-map #{id? 349}# #{id 3423}#))
- #{tmp 3418}#)
+ (lambda (#{id 7733}#
+ #{val 7734}#
+ #{e1 7735}#
+ #{e2 7736}#)
+ (and-map #{id? 4313}# #{id 7733}#))
+ #{tmp 7729}#)
#f)
(@apply
- (lambda (#{id 3432}#
- #{val 3433}#
- #{e1 3434}#
- #{e2 3435}#)
- (if (not (#{valid-bound-ids? 417}# #{id 3432}#))
+ (lambda (#{id 7752}#
+ #{val 7753}#
+ #{e1 7754}#
+ #{e2 7755}#)
+ (if (not (#{valid-bound-ids? 4335}# #{id 7752}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 3407}#)
- (let ((#{labels 3441}#
- (#{gen-labels 369}# #{id 3432}#))
- (#{new-vars 3442}#
- (map #{gen-var 465}# #{id 3432}#)))
- (let ((#{w 3445}#
- (#{make-binding-wrap 401}#
- #{id 3432}#
- #{labels 3441}#
- #{w 3409}#))
- (#{r 3446}#
- (#{extend-var-env 339}#
- #{labels 3441}#
- #{new-vars 3442}#
- #{r 3408}#)))
- (#{build-letrec 305}#
- #{s 3410}#
+ #{e 7723}#)
+ (let ((#{labels 7845}#
+ (#{gen-labels 4316}# #{id 7752}#))
+ (#{new-vars 7846}#
+ (map #{gen-var 4359}# #{id 7752}#)))
+ (let ((#{w 7847}#
+ (#{make-binding-wrap 4327}#
+ #{id 7752}#
+ #{labels 7845}#
+ #{w 7725}#))
+ (#{r 7848}#
+ (#{extend-var-env 4308}#
+ #{labels 7845}#
+ #{new-vars 7846}#
+ #{r 7724}#)))
+ (#{build-letrec 4297}#
+ #{s 7726}#
#f
- (map syntax->datum #{id 3432}#)
- #{new-vars 3442}#
- (map (lambda (#{x 3447}#)
- (#{chi 437}#
- #{x 3447}#
- #{r 3446}#
- #{w 3445}#
- #{mod 3411}#))
- #{val 3433}#)
- (#{chi-body 445}#
- (cons #{e1 3434}# #{e2 3435}#)
- (#{wrap 423}#
+ (map syntax->datum #{id 7752}#)
+ #{new-vars 7846}#
+ (map (lambda (#{x 7935}#)
+ (#{chi 4345}#
+ #{x 7935}#
+ #{r 7848}#
+ #{w 7847}#
+ #{mod 7727}#))
+ #{val 7753}#)
+ (#{chi-body 4349}#
+ (cons #{e1 7754}# #{e2 7755}#)
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3407}#) #{s 3410}# #f)
- (set-source-properties! #{e 3407}# #{s 3410}#))
- #{e 3407}#)
- #{w 3445}#
- #{mod 3411}#)
- #{r 3446}#
- #{w 3445}#
- #{mod 3411}#))))))
- #{tmp 3418}#)
+ (if (if (pair? #{e 7723}#) #{s 7726}# #f)
+ (set-source-properties! #{e 7723}# #{s 7726}#))
+ #{e 7723}#)
+ #{w 7847}#
+ #{mod 7727}#)
+ #{r 7848}#
+ #{w 7847}#
+ #{mod 7727}#))))))
+ #{tmp 7729}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3407}#) #{s 3410}# #f)
- (set-source-properties! #{e 3407}# #{s 3410}#))
- #{e 3407}#)
- #{w 3409}#
- #{mod 3411}#))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 7723}#) #{s 7726}# #f)
+ (set-source-properties! #{e 7723}# #{s 7726}#))
+ #{e 7723}#)
+ #{w 7725}#
+ #{mod 7727}#))))))
+ (#{global-extend 4311}#
'core
'letrec*
- (lambda (#{e 3453}#
- #{r 3454}#
- #{w 3455}#
- #{s 3456}#
- #{mod 3457}#)
- (let ((#{tmp 3464}#
+ (lambda (#{e 8352}#
+ #{r 8353}#
+ #{w 8354}#
+ #{s 8355}#
+ #{mod 8356}#)
+ (let ((#{tmp 8358}#
($sc-dispatch
- #{e 3453}#
+ #{e 8352}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3464}#
+ (if (if #{tmp 8358}#
(@apply
- (lambda (#{id 3469}#
- #{val 3470}#
- #{e1 3471}#
- #{e2 3472}#)
- (and-map #{id? 349}# #{id 3469}#))
- #{tmp 3464}#)
+ (lambda (#{id 8362}#
+ #{val 8363}#
+ #{e1 8364}#
+ #{e2 8365}#)
+ (and-map #{id? 4313}# #{id 8362}#))
+ #{tmp 8358}#)
#f)
(@apply
- (lambda (#{id 3478}#
- #{val 3479}#
- #{e1 3480}#
- #{e2 3481}#)
- (if (not (#{valid-bound-ids? 417}# #{id 3478}#))
+ (lambda (#{id 8381}#
+ #{val 8382}#
+ #{e1 8383}#
+ #{e2 8384}#)
+ (if (not (#{valid-bound-ids? 4335}# #{id 8381}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 3453}#)
- (let ((#{labels 3487}#
- (#{gen-labels 369}# #{id 3478}#))
- (#{new-vars 3488}#
- (map #{gen-var 465}# #{id 3478}#)))
- (let ((#{w 3491}#
- (#{make-binding-wrap 401}#
- #{id 3478}#
- #{labels 3487}#
- #{w 3455}#))
- (#{r 3492}#
- (#{extend-var-env 339}#
- #{labels 3487}#
- #{new-vars 3488}#
- #{r 3454}#)))
- (#{build-letrec 305}#
- #{s 3456}#
+ #{e 8352}#)
+ (let ((#{labels 8474}#
+ (#{gen-labels 4316}# #{id 8381}#))
+ (#{new-vars 8475}#
+ (map #{gen-var 4359}# #{id 8381}#)))
+ (let ((#{w 8476}#
+ (#{make-binding-wrap 4327}#
+ #{id 8381}#
+ #{labels 8474}#
+ #{w 8354}#))
+ (#{r 8477}#
+ (#{extend-var-env 4308}#
+ #{labels 8474}#
+ #{new-vars 8475}#
+ #{r 8353}#)))
+ (#{build-letrec 4297}#
+ #{s 8355}#
#t
- (map syntax->datum #{id 3478}#)
- #{new-vars 3488}#
- (map (lambda (#{x 3493}#)
- (#{chi 437}#
- #{x 3493}#
- #{r 3492}#
- #{w 3491}#
- #{mod 3457}#))
- #{val 3479}#)
- (#{chi-body 445}#
- (cons #{e1 3480}# #{e2 3481}#)
- (#{wrap 423}#
+ (map syntax->datum #{id 8381}#)
+ #{new-vars 8475}#
+ (map (lambda (#{x 8564}#)
+ (#{chi 4345}#
+ #{x 8564}#
+ #{r 8477}#
+ #{w 8476}#
+ #{mod 8356}#))
+ #{val 8382}#)
+ (#{chi-body 4349}#
+ (cons #{e1 8383}# #{e2 8384}#)
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3453}#) #{s 3456}# #f)
- (set-source-properties! #{e 3453}# #{s 3456}#))
- #{e 3453}#)
- #{w 3491}#
- #{mod 3457}#)
- #{r 3492}#
- #{w 3491}#
- #{mod 3457}#))))))
- #{tmp 3464}#)
+ (if (if (pair? #{e 8352}#) #{s 8355}# #f)
+ (set-source-properties! #{e 8352}# #{s 8355}#))
+ #{e 8352}#)
+ #{w 8476}#
+ #{mod 8356}#)
+ #{r 8477}#
+ #{w 8476}#
+ #{mod 8356}#))))))
+ #{tmp 8358}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3453}#) #{s 3456}# #f)
- (set-source-properties! #{e 3453}# #{s 3456}#))
- #{e 3453}#)
- #{w 3455}#
- #{mod 3457}#))))))
- (#{global-extend 345}#
+ (if (if (pair? #{e 8352}#) #{s 8355}# #f)
+ (set-source-properties! #{e 8352}# #{s 8355}#))
+ #{e 8352}#)
+ #{w 8354}#
+ #{mod 8356}#))))))
+ (#{global-extend 4311}#
'core
'set!
- (lambda (#{e 3499}#
- #{r 3500}#
- #{w 3501}#
- #{s 3502}#
- #{mod 3503}#)
- (let ((#{tmp 3510}#
- ($sc-dispatch #{e 3499}# '(_ any any))))
- (if (if #{tmp 3510}#
+ (lambda (#{e 9035}#
+ #{r 9036}#
+ #{w 9037}#
+ #{s 9038}#
+ #{mod 9039}#)
+ (let ((#{tmp 9041}#
+ ($sc-dispatch #{e 9035}# '(_ any any))))
+ (if (if #{tmp 9041}#
(@apply
- (lambda (#{id 3513}# #{val 3514}#)
- (if (symbol? #{id 3513}#)
+ (lambda (#{id 9045}# #{val 9046}#)
+ (if (symbol? #{id 9045}#)
#t
- (if (if (vector? #{id 3513}#)
- (if (= (vector-length #{id 3513}#) 4)
- (eq? (vector-ref #{id 3513}# 0) 'syntax-object)
+ (if (if (vector? #{id 9045}#)
+ (if (= (vector-length #{id 9045}#) 4)
+ (eq? (vector-ref #{id 9045}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 3513}# 1))
+ (symbol? (vector-ref #{id 9045}# 1))
#f)))
- #{tmp 3510}#)
+ #{tmp 9041}#)
#f)
(@apply
- (lambda (#{id 3517}# #{val 3518}#)
- (let ((#{n 3521}#
- (#{id-var-name 411}# #{id 3517}# #{w 3501}#))
- (#{id-mod 3522}#
- (if (if (vector? #{id 3517}#)
- (if (= (vector-length #{id 3517}#) 4)
- (eq? (vector-ref #{id 3517}# 0) 'syntax-object)
+ (lambda (#{id 9073}# #{val 9074}#)
+ (let ((#{n 9075}#
+ (#{id-var-name 4332}# #{id 9073}# #{w 9037}#))
+ (#{id-mod 9076}#
+ (if (if (vector? #{id 9073}#)
+ (if (= (vector-length #{id 9073}#) 4)
+ (eq? (vector-ref #{id 9073}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 3517}# 3)
- #{mod 3503}#)))
- (let ((#{b 3524}#
- (let ((#{t 7016}# (assq #{n 3521}# #{r 3500}#)))
- (if #{t 7016}#
- (cdr #{t 7016}#)
- (if (symbol? #{n 3521}#)
- (let ((#{t 7017}#
- (#{get-global-definition-hook 263}#
- #{n 3521}#
- #{id-mod 3522}#)))
- (if #{t 7017}# #{t 7017}# '(global)))
+ (vector-ref #{id 9073}# 3)
+ #{mod 9039}#)))
+ (let ((#{b 9077}#
+ (let ((#{t 9764}# (assq #{n 9075}# #{r 9036}#)))
+ (if #{t 9764}#
+ (cdr #{t 9764}#)
+ (if (symbol? #{n 9075}#)
+ (let ((#{t 9769}#
+ (begin
+ (if (if (not #{id-mod 9076}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should have a module"
+ #{n 9075}#))
+ (let ((#{v 9806}#
+ (module-variable
+ (if #{id-mod 9076}#
+ (resolve-module
+ (cdr #{id-mod 9076}#))
+ (current-module))
+ #{n 9075}#)))
+ (if #{v 9806}#
+ (if (variable-bound? #{v 9806}#)
+ (let ((#{val 9815}#
+ (variable-ref
+ #{v 9806}#)))
+ (if (macro? #{val 9815}#)
+ (if (macro-type
+ #{val 9815}#)
+ (cons (macro-type
+ #{val 9815}#)
+ (macro-binding
+ #{val 9815}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 9769}# #{t 9769}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 3527}# (car #{b 3524}#)))
- (if (memv #{atom-key 3527}# '(lexical))
- ((lambda (#{source 993}#
- #{name 994}#
- #{var 995}#
- #{exp 996}#)
- (begin
- (#{maybe-name-value! 267}#
- #{name 994}#
- #{exp 996}#)
- (#{make-lexical-set 216}#
- #{source 993}#
- #{name 994}#
- #{var 995}#
- #{exp 996}#)))
- #{s 3502}#
- (syntax->datum #{id 3517}#)
- (cdr #{b 3524}#)
- (#{chi 437}#
- #{val 3518}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#))
- (if (memv #{atom-key 3527}# '(global))
- (#{build-global-assignment 285}#
- #{s 3502}#
- #{n 3521}#
- (#{chi 437}#
- #{val 3518}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#)
- #{id-mod 3522}#)
- (if (memv #{atom-key 3527}# '(macro))
- (let ((#{p 3534}# (cdr #{b 3524}#)))
+ (let ((#{atom-key 9078}# (car #{b 9077}#)))
+ (if (let ((#{t 9115}# #{atom-key 9078}#))
+ (eqv? #{t 9115}# 'lexical))
+ (#{build-lexical-assignment 4284}#
+ #{s 9038}#
+ (syntax->datum #{id 9073}#)
+ (cdr #{b 9077}#)
+ (#{chi 4345}#
+ #{val 9074}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#))
+ (if (let ((#{t 9400}# #{atom-key 9078}#))
+ (eqv? #{t 9400}# 'global))
+ (#{build-global-assignment 4287}#
+ #{s 9038}#
+ #{n 9075}#
+ (#{chi 4345}#
+ #{val 9074}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#)
+ #{id-mod 9076}#)
+ (if (let ((#{t 9655}# #{atom-key 9078}#))
+ (eqv? #{t 9655}# 'macro))
+ (let ((#{p 9718}# (cdr #{b 9077}#)))
(if (procedure-property
- #{p 3534}#
+ #{p 9718}#
'variable-transformer)
- (#{chi 437}#
- (#{chi-macro 443}#
- #{p 3534}#
- #{e 3499}#
- #{r 3500}#
- #{w 3501}#
- #{s 3502}#
+ (#{chi 4345}#
+ (#{chi-macro 4348}#
+ #{p 9718}#
+ #{e 9035}#
+ #{r 9036}#
+ #{w 9037}#
+ #{s 9038}#
#f
- #{mod 3503}#)
- #{r 3500}#
+ #{mod 9039}#)
+ #{r 9036}#
'(())
- #{mod 3503}#)
+ #{mod 9039}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap 423}#
- #{e 3499}#
- #{w 3501}#
- #{mod 3503}#)
- (#{wrap 423}#
- #{id 3517}#
- #{w 3501}#
- #{id-mod 3522}#))))
- (if (memv #{atom-key 3527}# '(displaced-lexical))
+ (#{wrap 4338}#
+ #{e 9035}#
+ #{w 9037}#
+ #{mod 9039}#)
+ (#{wrap 4338}#
+ #{id 9073}#
+ #{w 9037}#
+ #{id-mod 9076}#))))
+ (if (eqv? #{atom-key 9078}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap 423}#
- #{id 3517}#
- #{w 3501}#
- #{mod 3503}#))
+ (#{wrap 4338}#
+ #{id 9073}#
+ #{w 9037}#
+ #{mod 9039}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3499}#) #{s 3502}# #f)
+ (if (if (pair? #{e 9035}#) #{s 9038}# #f)
(set-source-properties!
- #{e 3499}#
- #{s 3502}#))
- #{e 3499}#)
- #{w 3501}#
- #{mod 3503}#))))))))))
- #{tmp 3510}#)
- (let ((#{tmp 3539}#
+ #{e 9035}#
+ #{s 9038}#))
+ #{e 9035}#)
+ #{w 9037}#
+ #{mod 9039}#))))))))))
+ #{tmp 9041}#)
+ (let ((#{tmp 9916}#
($sc-dispatch
- #{e 3499}#
+ #{e 9035}#
'(_ (any . each-any) any))))
- (if #{tmp 3539}#
+ (if #{tmp 9916}#
(@apply
- (lambda (#{head 3543}# #{tail 3544}# #{val 3545}#)
+ (lambda (#{head 9920}# #{tail 9921}# #{val 9922}#)
(call-with-values
(lambda ()
- (#{syntax-type 435}#
- #{head 3543}#
- #{r 3500}#
+ (#{syntax-type 4344}#
+ #{head 9920}#
+ #{r 9036}#
'(())
#f
#f
- #{mod 3503}#
+ #{mod 9039}#
#t))
- (lambda (#{type 3548}#
- #{value 3549}#
- #{ee 3550}#
- #{ww 3551}#
- #{ss 3552}#
- #{modmod 3553}#)
- (if (memv #{type 3548}# '(module-ref))
- (let ((#{val 3562}#
- (#{chi 437}#
- #{val 3545}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#)))
+ (lambda (#{type 9925}#
+ #{value 9926}#
+ #{ee 9927}#
+ #{ww 9928}#
+ #{ss 9929}#
+ #{modmod 9930}#)
+ (if (eqv? #{type 9925}# 'module-ref)
+ (let ((#{val 9934}#
+ (#{chi 4345}#
+ #{val 9922}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#)))
(call-with-values
(lambda ()
- (#{value 3549}#
- (cons #{head 3543}# #{tail 3544}#)
- #{r 3500}#
- #{w 3501}#))
- (lambda (#{e 3564}#
- #{r 3565}#
- #{w 3566}#
- #{s* 3567}#
- #{mod 3568}#)
- (let ((#{tmp 3575}# (list #{e 3564}#)))
- (if (if #{tmp 3575}#
- (@apply
- (lambda (#{e 3577}#)
- (if (symbol? #{e 3577}#)
- #t
- (if (if (vector? #{e 3577}#)
- (if (= (vector-length
- #{e 3577}#)
- 4)
- (eq? (vector-ref
- #{e 3577}#
- 0)
- 'syntax-object)
- #f)
+ (#{value 9926}#
+ (cons #{head 9920}# #{tail 9921}#)
+ #{r 9036}#
+ #{w 9037}#))
+ (lambda (#{e 9935}#
+ #{r 9936}#
+ #{w 9937}#
+ #{s* 9938}#
+ #{mod 9939}#)
+ (let ((#{tmp 9941}# (list #{e 9935}#)))
+ (if (@apply
+ (lambda (#{e 9943}#)
+ (if (symbol? #{e 9943}#)
+ #t
+ (if (if (vector? #{e 9943}#)
+ (if (= (vector-length
+ #{e 9943}#)
+ 4)
+ (eq? (vector-ref
+ #{e 9943}#
+ 0)
+ 'syntax-object)
#f)
- (symbol?
- (vector-ref #{e 3577}# 1))
- #f)))
- #{tmp 3575}#)
- #f)
- (@apply
- (lambda (#{e 3579}#)
- (let ((#{var 7356}#
- (syntax->datum #{e 3579}#)))
- (begin
- (if (if (struct? #{val 3562}#)
- (eq? (struct-vtable
- #{val 3562}#)
- (vector-ref
- %expanded-vtables
- 13))
#f)
- (let ((#{meta 7367}#
- (struct-ref
- #{val 3562}#
- 1)))
- (if (not (assq 'name
- #{meta 7367}#))
- (let ((#{v 7377}#
- (cons (cons 'name
- #{var 7356}#)
- #{meta 7367}#)))
- (struct-set!
- #{val 3562}#
- 1
- #{v 7377}#)))))
- (#{analyze-variable 281}#
- #{mod 3568}#
- #{var 7356}#
- (lambda (#{mod 7359}#
- #{var 7360}#
- #{public? 7361}#)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 6)
- #{s 3502}#
- #{mod 7359}#
- #{var 7360}#
- #{public? 7361}#
- #{val 3562}#))
- (lambda (#{var 7362}#)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 8)
- #{s 3502}#
- #{var 7362}#
- #{val 3562}#))))))
- #{tmp 3575}#)
+ (symbol?
+ (vector-ref #{e 9943}# 1))
+ #f)))
+ #{tmp 9941}#)
+ (@apply
+ (lambda (#{e 9973}#)
+ (#{build-global-assignment 4287}#
+ #{s 9038}#
+ (syntax->datum #{e 9973}#)
+ #{val 9934}#
+ #{mod 9939}#))
+ #{tmp 9941}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3564}#))))))
- (#{build-application 271}#
- #{s 3502}#
- (#{chi 437}#
+ #{e 9935}#))))))
+ (#{build-application 4280}#
+ #{s 9038}#
+ (#{chi 4345}#
(list '#(syntax-object
setter
((top)
@@ -9736,25 +19108,25 @@
(top)
(top)
(top))
- #("i3554"
- "i3555"
+ #("i3555"
"i3556"
"i3557"
"i3558"
- "i3559"))
+ "i3559"
+ "i3560"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3540" "i3541" "i3542"))
+ #("i3541" "i3542" "i3543"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3504"
- "i3505"
+ #("i3505"
"i3506"
"i3507"
- "i3508"))
+ "i3508"
+ "i3509"))
#(ribcage
(lambda-var-list
gen-var
@@ -10028,205 +19400,205 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
- #{head 3543}#)
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#)
- (map (lambda (#{e 3581}#)
- (#{chi 437}#
- #{e 3581}#
- #{r 3500}#
- #{w 3501}#
- #{mod 3503}#))
+ #{head 9920}#)
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#)
+ (map (lambda (#{e 10274}#)
+ (#{chi 4345}#
+ #{e 10274}#
+ #{r 9036}#
+ #{w 9037}#
+ #{mod 9039}#))
(append
- #{tail 3544}#
- (list #{val 3545}#))))))))
- #{tmp 3539}#)
+ #{tail 9921}#
+ (list #{val 9922}#))))))))
+ #{tmp 9916}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap 423}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3499}#) #{s 3502}# #f)
- (set-source-properties! #{e 3499}# #{s 3502}#))
- #{e 3499}#)
- #{w 3501}#
- #{mod 3503}#))))))))
+ (if (if (pair? #{e 9035}#) #{s 9038}# #f)
+ (set-source-properties! #{e 9035}# #{s 9038}#))
+ #{e 9035}#)
+ #{w 9037}#
+ #{mod 9039}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 3586}# #{r 3587}# #{w 3588}#)
- (let ((#{tmp 3593}#
- ($sc-dispatch #{e 3586}# '(_ each-any any))))
- (if (if #{tmp 3593}#
+ (lambda (#{e 10388}# #{r 10389}# #{w 10390}#)
+ (let ((#{tmp 10392}#
+ ($sc-dispatch #{e 10388}# '(_ each-any any))))
+ (if (if #{tmp 10392}#
(@apply
- (lambda (#{mod 3596}# #{id 3597}#)
- (if (and-map #{id? 349}# #{mod 3596}#)
- (if (symbol? #{id 3597}#)
+ (lambda (#{mod 10395}# #{id 10396}#)
+ (if (and-map #{id? 4313}# #{mod 10395}#)
+ (if (symbol? #{id 10396}#)
#t
- (if (if (vector? #{id 3597}#)
- (if (= (vector-length #{id 3597}#) 4)
- (eq? (vector-ref #{id 3597}# 0)
+ (if (if (vector? #{id 10396}#)
+ (if (= (vector-length #{id 10396}#) 4)
+ (eq? (vector-ref #{id 10396}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 3597}# 1))
+ (symbol? (vector-ref #{id 10396}# 1))
#f))
#f))
- #{tmp 3593}#)
+ #{tmp 10392}#)
#f)
(@apply
- (lambda (#{mod 3603}# #{id 3604}#)
+ (lambda (#{mod 10436}# #{id 10437}#)
(values
- (syntax->datum #{id 3604}#)
- #{r 3587}#
- #{w 3588}#
+ (syntax->datum #{id 10437}#)
+ #{r 10389}#
+ #{w 10390}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10235,12 +19607,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3601" "i3602"))
+ #("i3602" "i3603"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3589" "i3590" "i3591"))
+ #("i3590" "i3591" "i3592"))
#(ribcage
(lambda-var-list
gen-var
@@ -10514,213 +19886,213 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
- #{mod 3603}#))))
- #{tmp 3593}#)
+ #{mod 10436}#))))
+ #{tmp 10392}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3586}#))))))
- (#{global-extend 345}#
+ #{e 10388}#))))))
+ (#{global-extend 4311}#
'module-ref
'@@
- (lambda (#{e 3606}# #{r 3607}# #{w 3608}#)
+ (lambda (#{e 10534}# #{r 10535}# #{w 10536}#)
(letrec*
- ((#{remodulate 3613}#
- (lambda (#{x 3614}# #{mod 3615}#)
- (if (pair? #{x 3614}#)
- (cons (#{remodulate 3613}#
- (car #{x 3614}#)
- #{mod 3615}#)
- (#{remodulate 3613}#
- (cdr #{x 3614}#)
- #{mod 3615}#))
- (if (if (vector? #{x 3614}#)
- (if (= (vector-length #{x 3614}#) 4)
- (eq? (vector-ref #{x 3614}# 0) 'syntax-object)
+ ((#{remodulate 10537}#
+ (lambda (#{x 10743}# #{mod 10744}#)
+ (if (pair? #{x 10743}#)
+ (cons (#{remodulate 10537}#
+ (car #{x 10743}#)
+ #{mod 10744}#)
+ (#{remodulate 10537}#
+ (cdr #{x 10743}#)
+ #{mod 10744}#))
+ (if (if (vector? #{x 10743}#)
+ (if (= (vector-length #{x 10743}#) 4)
+ (eq? (vector-ref #{x 10743}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 7617}#
- (#{remodulate 3613}#
- (vector-ref #{x 3614}# 1)
- #{mod 3615}#))
- (#{wrap 7618}# (vector-ref #{x 3614}# 2)))
+ (let ((#{expression 10758}#
+ (#{remodulate 10537}#
+ (vector-ref #{x 10743}# 1)
+ #{mod 10744}#))
+ (#{wrap 10759}# (vector-ref #{x 10743}# 2)))
(vector
'syntax-object
- #{expression 7617}#
- #{wrap 7618}#
- #{mod 3615}#))
- (if (vector? #{x 3614}#)
- (let ((#{n 3626}# (vector-length #{x 3614}#)))
- (let ((#{v 3628}# (make-vector #{n 3626}#)))
+ #{expression 10758}#
+ #{wrap 10759}#
+ #{mod 10744}#))
+ (if (vector? #{x 10743}#)
+ (let ((#{n 10767}# (vector-length #{x 10743}#)))
+ (let ((#{v 10768}# (make-vector #{n 10767}#)))
(letrec*
- ((#{loop 3631}#
- (lambda (#{i 3632}#)
- (if (= #{i 3632}# #{n 3626}#)
- #{v 3628}#
+ ((#{loop 10769}#
+ (lambda (#{i 10816}#)
+ (if (= #{i 10816}# #{n 10767}#)
+ #{v 10768}#
(begin
(vector-set!
- #{v 3628}#
- #{i 3632}#
- (#{remodulate 3613}#
- (vector-ref #{x 3614}# #{i 3632}#)
- #{mod 3615}#))
- (#{loop 3631}# (#{1+}# #{i 3632}#)))))))
- (#{loop 3631}# 0))))
- #{x 3614}#))))))
- (let ((#{tmp 3639}#
- ($sc-dispatch #{e 3606}# '(_ each-any any))))
- (if (if #{tmp 3639}#
+ #{v 10768}#
+ #{i 10816}#
+ (#{remodulate 10537}#
+ (vector-ref #{x 10743}# #{i 10816}#)
+ #{mod 10744}#))
+ (#{loop 10769}# (#{1+}# #{i 10816}#)))))))
+ (#{loop 10769}# 0))))
+ #{x 10743}#))))))
+ (let ((#{tmp 10539}#
+ ($sc-dispatch #{e 10534}# '(_ each-any any))))
+ (if (if #{tmp 10539}#
(@apply
- (lambda (#{mod 3642}# #{exp 3643}#)
- (and-map #{id? 349}# #{mod 3642}#))
- #{tmp 3639}#)
+ (lambda (#{mod 10543}# #{exp 10544}#)
+ (and-map #{id? 4313}# #{mod 10543}#))
+ #{tmp 10539}#)
#f)
(@apply
- (lambda (#{mod 3647}# #{exp 3648}#)
- (let ((#{mod 3650}#
+ (lambda (#{mod 10560}# #{exp 10561}#)
+ (let ((#{mod 10562}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10728,12 +20100,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3645" "i3646"))
- #(ribcage (remodulate) ((top)) ("i3612"))
+ #("i3646" "i3647"))
+ #(ribcage (remodulate) ((top)) ("i3613"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3609" "i3610" "i3611"))
+ #("i3610" "i3611" "i3612"))
#(ribcage
(lambda-var-list
gen-var
@@ -11007,276 +20379,270 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
- #{mod 3647}#))))
+ #{mod 10560}#))))
(values
- (#{remodulate 3613}# #{exp 3648}# #{mod 3650}#)
- #{r 3607}#
- #{w 3608}#
- (#{source-annotation 327}# #{exp 3648}#)
- #{mod 3650}#)))
- #{tmp 3639}#)
+ (#{remodulate 10537}#
+ #{exp 10561}#
+ #{mod 10562}#)
+ #{r 10535}#
+ #{w 10536}#
+ (#{source-annotation 4306}# #{exp 10561}#)
+ #{mod 10562}#)))
+ #{tmp 10539}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3606}#))))))
- (#{global-extend 345}#
+ #{e 10534}#))))))
+ (#{global-extend 4311}#
'core
'if
- (lambda (#{e 3652}#
- #{r 3653}#
- #{w 3654}#
- #{s 3655}#
- #{mod 3656}#)
- (let ((#{tmp 3663}#
- ($sc-dispatch #{e 3652}# '(_ any any))))
- (if #{tmp 3663}#
+ (lambda (#{e 10922}#
+ #{r 10923}#
+ #{w 10924}#
+ #{s 10925}#
+ #{mod 10926}#)
+ (let ((#{tmp 10928}#
+ ($sc-dispatch #{e 10922}# '(_ any any))))
+ (if #{tmp 10928}#
(@apply
- (lambda (#{test 3666}# #{then 3667}#)
- (#{build-conditional 273}#
- #{s 3655}#
- (#{chi 437}#
- #{test 3666}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
- (#{chi 437}#
- #{then 3667}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
+ (lambda (#{test 10932}# #{then 10933}#)
+ (#{build-conditional 4281}#
+ #{s 10925}#
+ (#{chi 4345}#
+ #{test 10932}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
+ (#{chi 4345}#
+ #{then 10933}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 3663}#)
- (let ((#{tmp 3669}#
- ($sc-dispatch #{e 3652}# '(_ any any any))))
- (if #{tmp 3669}#
+ #{tmp 10928}#)
+ (let ((#{tmp 11173}#
+ ($sc-dispatch #{e 10922}# '(_ any any any))))
+ (if #{tmp 11173}#
(@apply
- (lambda (#{test 3673}# #{then 3674}# #{else 3675}#)
- (#{build-conditional 273}#
- #{s 3655}#
- (#{chi 437}#
- #{test 3673}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
- (#{chi 437}#
- #{then 3674}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)
- (#{chi 437}#
- #{else 3675}#
- #{r 3653}#
- #{w 3654}#
- #{mod 3656}#)))
- #{tmp 3669}#)
+ (lambda (#{test 11177}# #{then 11178}# #{else 11179}#)
+ (#{build-conditional 4281}#
+ #{s 10925}#
+ (#{chi 4345}#
+ #{test 11177}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
+ (#{chi 4345}#
+ #{then 11178}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)
+ (#{chi 4345}#
+ #{else 11179}#
+ #{r 10923}#
+ #{w 10924}#
+ #{mod 10926}#)))
+ #{tmp 11173}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3652}#)))))))
- (#{global-extend 345}#
+ #{e 10922}#)))))))
+ (#{global-extend 4311}#
'core
'with-fluids
- (lambda (#{e 3676}#
- #{r 3677}#
- #{w 3678}#
- #{s 3679}#
- #{mod 3680}#)
- (let ((#{tmp 3687}#
+ (lambda (#{e 11603}#
+ #{r 11604}#
+ #{w 11605}#
+ #{s 11606}#
+ #{mod 11607}#)
+ (let ((#{tmp 11609}#
($sc-dispatch
- #{e 3676}#
+ #{e 11603}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 3687}#
+ (if #{tmp 11609}#
(@apply
- (lambda (#{fluid 3692}#
- #{val 3693}#
- #{b 3694}#
- #{b* 3695}#)
- ((lambda (#{source 977}#
- #{fluids 978}#
- #{vals 979}#
- #{body 980}#)
- (#{make-dynlet 242}#
- #{source 977}#
- #{fluids 978}#
- #{vals 979}#
- #{body 980}#))
- #{s 3679}#
- (map (lambda (#{x 3696}#)
- (#{chi 437}#
- #{x 3696}#
- #{r 3677}#
- #{w 3678}#
- #{mod 3680}#))
- #{fluid 3692}#)
- (map (lambda (#{x 3699}#)
- (#{chi 437}#
- #{x 3699}#
- #{r 3677}#
- #{w 3678}#
- #{mod 3680}#))
- #{val 3693}#)
- (#{chi-body 445}#
- (cons #{b 3694}# #{b* 3695}#)
- (#{wrap 423}#
- (begin
- (if (if (pair? #{e 3676}#) #{s 3679}# #f)
- (set-source-properties! #{e 3676}# #{s 3679}#))
- #{e 3676}#)
- #{w 3678}#
- #{mod 3680}#)
- #{r 3677}#
- #{w 3678}#
- #{mod 3680}#)))
- #{tmp 3687}#)
+ (lambda (#{fluid 11613}#
+ #{val 11614}#
+ #{b 11615}#
+ #{b* 11616}#)
+ (#{build-dynlet 4282}#
+ #{s 11606}#
+ (map (lambda (#{x 11702}#)
+ (#{chi 4345}#
+ #{x 11702}#
+ #{r 11604}#
+ #{w 11605}#
+ #{mod 11607}#))
+ #{fluid 11613}#)
+ (map (lambda (#{x 11777}#)
+ (#{chi 4345}#
+ #{x 11777}#
+ #{r 11604}#
+ #{w 11605}#
+ #{mod 11607}#))
+ #{val 11614}#)
+ (#{chi-body 4349}#
+ (cons #{b 11615}# #{b* 11616}#)
+ (#{wrap 4338}#
+ (begin
+ (if (if (pair? #{e 11603}#) #{s 11606}# #f)
+ (set-source-properties! #{e 11603}# #{s 11606}#))
+ #{e 11603}#)
+ #{w 11605}#
+ #{mod 11607}#)
+ #{r 11604}#
+ #{w 11605}#
+ #{mod 11607}#)))
+ #{tmp 11609}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3676}#)))))
+ #{e 11603}#)))))
(module-define!
(current-module)
'begin
@@ -11299,74 +20665,75 @@
'eval-when
'eval-when
'()))
- (#{global-extend 345}#
+ (#{global-extend 4311}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 3704}#
- (lambda (#{pattern 3711}# #{keys 3712}#)
+ ((#{convert-pattern 12148}#
+ (lambda (#{pattern 13759}# #{keys 13760}#)
(letrec*
- ((#{cvt* 3716}#
- (lambda (#{p* 3721}# #{n 3722}# #{ids 3723}#)
- (if (not (pair? #{p* 3721}#))
- (#{cvt 3720}#
- #{p* 3721}#
- #{n 3722}#
- #{ids 3723}#)
+ ((#{cvt* 13761}#
+ (lambda (#{p* 14378}# #{n 14379}# #{ids 14380}#)
+ (if (not (pair? #{p* 14378}#))
+ (#{cvt 13763}#
+ #{p* 14378}#
+ #{n 14379}#
+ #{ids 14380}#)
(call-with-values
(lambda ()
- (#{cvt* 3716}#
- (cdr #{p* 3721}#)
- #{n 3722}#
- #{ids 3723}#))
- (lambda (#{y 3727}# #{ids 3728}#)
+ (#{cvt* 13761}#
+ (cdr #{p* 14378}#)
+ #{n 14379}#
+ #{ids 14380}#))
+ (lambda (#{y 14383}# #{ids 14384}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- (car #{p* 3721}#)
- #{n 3722}#
- #{ids 3728}#))
- (lambda (#{x 3731}# #{ids 3732}#)
+ (#{cvt 13763}#
+ (car #{p* 14378}#)
+ #{n 14379}#
+ #{ids 14384}#))
+ (lambda (#{x 14387}# #{ids 14388}#)
(values
- (cons #{x 3731}# #{y 3727}#)
- #{ids 3732}#))))))))
- (#{v-reverse 3718}#
- (lambda (#{x 3735}#)
+ (cons #{x 14387}# #{y 14383}#)
+ #{ids 14388}#))))))))
+ (#{v-reverse 13762}#
+ (lambda (#{x 14389}#)
(letrec*
- ((#{loop 3740}#
- (lambda (#{r 3741}# #{x 3742}#)
- (if (not (pair? #{x 3742}#))
- (values #{r 3741}# #{x 3742}#)
- (#{loop 3740}#
- (cons (car #{x 3742}#) #{r 3741}#)
- (cdr #{x 3742}#))))))
- (#{loop 3740}# '() #{x 3735}#))))
- (#{cvt 3720}#
- (lambda (#{p 3743}# #{n 3744}# #{ids 3745}#)
- (if (if (symbol? #{p 3743}#)
+ ((#{loop 14390}#
+ (lambda (#{r 14467}# #{x 14468}#)
+ (if (not (pair? #{x 14468}#))
+ (values #{r 14467}# #{x 14468}#)
+ (#{loop 14390}#
+ (cons (car #{x 14468}#) #{r 14467}#)
+ (cdr #{x 14468}#))))))
+ (#{loop 14390}# '() #{x 14389}#))))
+ (#{cvt 13763}#
+ (lambda (#{p 13766}# #{n 13767}# #{ids 13768}#)
+ (if (if (symbol? #{p 13766}#)
#t
- (if (if (vector? #{p 3743}#)
- (if (= (vector-length #{p 3743}#) 4)
- (eq? (vector-ref #{p 3743}# 0)
+ (if (if (vector? #{p 13766}#)
+ (if (= (vector-length #{p 13766}#) 4)
+ (eq? (vector-ref #{p 13766}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 3743}# 1))
+ (symbol? (vector-ref #{p 13766}# 1))
#f))
- (if (#{bound-id-member? 421}#
- #{p 3743}#
- #{keys 3712}#)
+ (if (#{bound-id-member? 4337}#
+ #{p 13766}#
+ #{keys 13760}#)
(values
- (vector 'free-id #{p 3743}#)
- #{ids 3745}#)
- (if (if (eq? (if (if (vector? #{p 3743}#)
- (if (= (vector-length #{p 3743}#) 4)
- (eq? (vector-ref #{p 3743}# 0)
+ (vector 'free-id #{p 13766}#)
+ #{ids 13768}#)
+ (if (if (eq? (if (if (vector? #{p 13766}#)
+ (if (= (vector-length #{p 13766}#)
+ 4)
+ (eq? (vector-ref #{p 13766}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{p 3743}# 1)
- #{p 3743}#)
+ (vector-ref #{p 13766}# 1)
+ #{p 13766}#)
(if (if (= (vector-length
'#(syntax-object
_
@@ -11375,19 +20742,19 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746"
- "i3747"
- "i3748"))
+ #("i3747"
+ "i3748"
+ "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719"
- "i3717"
- "i3715"))
+ ("i3720"
+ "i3718"
+ "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11397,10 +20764,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -11674,148 +21041,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile)))
4)
(eq? (vector-ref
@@ -11826,19 +21193,19 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746"
- "i3747"
- "i3748"))
+ #("i3747"
+ "i3748"
+ "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719"
- "i3717"
- "i3715"))
+ ("i3720"
+ "i3718"
+ "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11848,10 +21215,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -12125,148 +21492,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
0)
'syntax-object)
@@ -12279,25 +21646,25 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746" "i3747" "i3748"))
+ #("i3747" "i3748" "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719" "i3717" "i3715"))
+ ("i3720" "i3718" "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -12571,148 +21938,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
1)
'#(syntax-object
@@ -12722,22 +22089,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746" "i3747" "i3748"))
+ #("i3747" "i3748" "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719" "i3717" "i3715"))
+ ("i3720" "i3718" "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709" "i3707" "i3705" "i3703"))
+ ("i3710" "i3708" "i3706" "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -13011,151 +22378,151 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 411}# #{p 3743}# '(()))
- (#{id-var-name 411}#
+ (eq? (#{id-var-name 4332}# #{p 13766}# '(()))
+ (#{id-var-name 4332}#
'#(syntax-object
_
((top)
@@ -13163,22 +22530,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3746" "i3747" "i3748"))
+ #("i3747" "i3748" "i3749"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3719" "i3717" "i3715"))
+ ("i3720" "i3718" "i3716"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3713" "i3714"))
+ #("i3714" "i3715"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709" "i3707" "i3705" "i3703"))
+ ("i3710" "i3708" "i3706" "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -13452,182 +22819,185 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
'(())))
#f)
- (values '_ #{ids 3745}#)
+ (values '_ #{ids 13768}#)
(values
'any
- (cons (cons #{p 3743}# #{n 3744}#) #{ids 3745}#))))
- (let ((#{tmp 3755}#
- ($sc-dispatch #{p 3743}# '(any any))))
- (if (if #{tmp 3755}#
+ (cons (cons #{p 13766}# #{n 13767}#)
+ #{ids 13768}#))))
+ (let ((#{tmp 14087}#
+ ($sc-dispatch #{p 13766}# '(any any))))
+ (if (if #{tmp 14087}#
(@apply
- (lambda (#{x 3758}# #{dots 3759}#)
- (if (if (if (vector? #{dots 3759}#)
+ (lambda (#{x 14091}# #{dots 14092}#)
+ (if (if (if (vector? #{dots 14092}#)
(if (= (vector-length
- #{dots 3759}#)
+ #{dots 14092}#)
4)
- (eq? (vector-ref #{dots 3759}# 0)
+ (eq? (vector-ref
+ #{dots 14092}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 3759}# 1))
+ (symbol? (vector-ref #{dots 14092}# 1))
#f)
- (if (eq? (if (if (vector? #{dots 3759}#)
+ (if (eq? (if (if (vector? #{dots 14092}#)
(if (= (vector-length
- #{dots 3759}#)
+ #{dots 14092}#)
4)
(eq? (vector-ref
- #{dots 3759}#
+ #{dots 14092}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 3759}# 1)
- #{dots 3759}#)
+ (vector-ref #{dots 14092}# 1)
+ #{dots 14092}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13643,7 +23013,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -13917,142 +23287,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -14060,9 +23430,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
4)
(eq? (vector-ref
@@ -14080,7 +23450,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -14354,142 +23724,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -14497,9 +23867,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
0)
'syntax-object)
@@ -14513,7 +23883,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -14787,148 +24157,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
1)
'#(syntax-object
@@ -14939,7 +24309,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -15213,153 +24583,153 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 411}#
- #{dots 3759}#
+ (eq? (#{id-var-name 4332}#
+ #{dots 14092}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -15368,7 +24738,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -15642,202 +25012,204 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp 3755}#)
+ #{tmp 14087}#)
#f)
(@apply
- (lambda (#{x 3762}# #{dots 3763}#)
+ (lambda (#{x 14189}# #{dots 14190}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3762}#
- (#{1+}# #{n 3744}#)
- #{ids 3745}#))
- (lambda (#{p 3765}# #{ids 3766}#)
+ (#{cvt 13763}#
+ #{x 14189}#
+ (#{1+}# #{n 13767}#)
+ #{ids 13768}#))
+ (lambda (#{p 14191}# #{ids 14192}#)
(values
- (if (eq? #{p 3765}# 'any)
+ (if (eq? #{p 14191}# 'any)
'each-any
- (vector 'each #{p 3765}#))
- #{ids 3766}#))))
- #{tmp 3755}#)
- (let ((#{tmp 3769}#
- ($sc-dispatch #{p 3743}# '(any any . any))))
- (if (if #{tmp 3769}#
+ (vector 'each #{p 14191}#))
+ #{ids 14192}#))))
+ #{tmp 14087}#)
+ (let ((#{tmp 14193}#
+ ($sc-dispatch #{p 13766}# '(any any . any))))
+ (if (if #{tmp 14193}#
(@apply
- (lambda (#{x 3773}#
- #{dots 3774}#
- #{ys 3775}#)
- (if (if (if (vector? #{dots 3774}#)
+ (lambda (#{x 14197}#
+ #{dots 14198}#
+ #{ys 14199}#)
+ (if (if (if (vector? #{dots 14198}#)
(if (= (vector-length
- #{dots 3774}#)
+ #{dots 14198}#)
4)
(eq? (vector-ref
- #{dots 3774}#
+ #{dots 14198}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 3774}# 1))
+ (vector-ref #{dots 14198}# 1))
#f)
(if (eq? (if (if (vector?
- #{dots 3774}#)
+ #{dots 14198}#)
(if (= (vector-length
- #{dots 3774}#)
+ #{dots 14198}#)
4)
(eq? (vector-ref
- #{dots 3774}#
+ #{dots 14198}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 3774}# 1)
- #{dots 3774}#)
+ (vector-ref
+ #{dots 14198}#
+ 1)
+ #{dots 14198}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15853,7 +25225,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -16127,142 +25499,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -16270,9 +25642,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile)))
4)
@@ -16291,7 +25663,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -16565,142 +25937,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -16708,9 +26080,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile))
0)
@@ -16725,7 +26097,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -16999,150 +26371,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
1)
'#(syntax-object
@@ -17153,7 +26525,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -17427,153 +26799,153 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 411}#
- #{dots 3774}#
+ (eq? (#{id-var-name 4332}#
+ #{dots 14198}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -17582,7 +26954,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -17856,250 +27228,257 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp 3769}#)
+ #{tmp 14193}#)
#f)
(@apply
- (lambda (#{x 3779}# #{dots 3780}# #{ys 3781}#)
+ (lambda (#{x 14296}#
+ #{dots 14297}#
+ #{ys 14298}#)
(call-with-values
(lambda ()
- (#{cvt* 3716}#
- #{ys 3781}#
- #{n 3744}#
- #{ids 3745}#))
- (lambda (#{ys 3782}# #{ids 3783}#)
+ (#{cvt* 13761}#
+ #{ys 14298}#
+ #{n 13767}#
+ #{ids 13768}#))
+ (lambda (#{ys 14301}# #{ids 14302}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3779}#
- (#{1+}# #{n 3744}#)
- #{ids 3783}#))
- (lambda (#{x 3786}# #{ids 3787}#)
+ (#{cvt 13763}#
+ #{x 14296}#
+ (#{1+}# #{n 13767}#)
+ #{ids 14302}#))
+ (lambda (#{x 14303}# #{ids 14304}#)
(call-with-values
(lambda ()
- (#{v-reverse 3718}# #{ys 3782}#))
- (lambda (#{ys 3790}# #{e 3791}#)
+ (#{v-reverse 13762}#
+ #{ys 14301}#))
+ (lambda (#{ys 14337}# #{e 14338}#)
(values
(vector
'each+
- #{x 3786}#
- #{ys 3790}#
- #{e 3791}#)
- #{ids 3787}#))))))))
- #{tmp 3769}#)
- (let ((#{tmp 3795}#
- ($sc-dispatch #{p 3743}# '(any . any))))
- (if #{tmp 3795}#
+ #{x 14303}#
+ #{ys 14337}#
+ #{e 14338}#)
+ #{ids 14304}#))))))))
+ #{tmp 14193}#)
+ (let ((#{tmp 14339}#
+ ($sc-dispatch #{p 13766}# '(any . any))))
+ (if #{tmp 14339}#
(@apply
- (lambda (#{x 3798}# #{y 3799}#)
+ (lambda (#{x 14343}# #{y 14344}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{y 3799}#
- #{n 3744}#
- #{ids 3745}#))
- (lambda (#{y 3800}# #{ids 3801}#)
+ (#{cvt 13763}#
+ #{y 14344}#
+ #{n 13767}#
+ #{ids 13768}#))
+ (lambda (#{y 14345}# #{ids 14346}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3798}#
- #{n 3744}#
- #{ids 3801}#))
- (lambda (#{x 3804}# #{ids 3805}#)
+ (#{cvt 13763}#
+ #{x 14343}#
+ #{n 13767}#
+ #{ids 14346}#))
+ (lambda (#{x 14347}# #{ids 14348}#)
(values
- (cons #{x 3804}# #{y 3800}#)
- #{ids 3805}#))))))
- #{tmp 3795}#)
- (let ((#{tmp 3808}#
- ($sc-dispatch #{p 3743}# '())))
- (if #{tmp 3808}#
+ (cons #{x 14347}# #{y 14345}#)
+ #{ids 14348}#))))))
+ #{tmp 14339}#)
+ (let ((#{tmp 14349}#
+ ($sc-dispatch #{p 13766}# '())))
+ (if #{tmp 14349}#
(@apply
- (lambda () (values '() #{ids 3745}#))
- #{tmp 3808}#)
- (let ((#{tmp 3809}#
+ (lambda () (values '() #{ids 13768}#))
+ #{tmp 14349}#)
+ (let ((#{tmp 14353}#
($sc-dispatch
- #{p 3743}#
+ #{p 13766}#
'#(vector each-any))))
- (if #{tmp 3809}#
+ (if #{tmp 14353}#
(@apply
- (lambda (#{x 3811}#)
+ (lambda (#{x 14357}#)
(call-with-values
(lambda ()
- (#{cvt 3720}#
- #{x 3811}#
- #{n 3744}#
- #{ids 3745}#))
- (lambda (#{p 3813}#
- #{ids 3814}#)
+ (#{cvt 13763}#
+ #{x 14357}#
+ #{n 13767}#
+ #{ids 13768}#))
+ (lambda (#{p 14358}#
+ #{ids 14359}#)
(values
- (vector 'vector #{p 3813}#)
- #{ids 3814}#))))
- #{tmp 3809}#)
+ (vector
+ 'vector
+ #{p 14358}#)
+ #{ids 14359}#))))
+ #{tmp 14353}#)
(values
(vector
'atom
- (#{strip 463}# #{p 3743}# '(())))
- #{ids 3745}#)))))))))))))))
- (#{cvt 3720}# #{pattern 3711}# 0 '()))))
- (#{build-dispatch-call 3706}#
- (lambda (#{pvars 3820}#
- #{exp 3821}#
- #{y 3822}#
- #{r 3823}#
- #{mod 3824}#)
- (let ((#{ids 3832}# (map car #{pvars 3820}#)))
+ (#{strip 4358}#
+ #{p 13766}#
+ '(())))
+ #{ids 13768}#)))))))))))))))
+ (#{cvt 13763}# #{pattern 13759}# 0 '()))))
+ (#{build-dispatch-call 12149}#
+ (lambda (#{pvars 14469}#
+ #{exp 14470}#
+ #{y 14471}#
+ #{r 14472}#
+ #{mod 14473}#)
+ (let ((#{ids 14474}# (map car #{pvars 14469}#)))
(begin
- (map cdr #{pvars 3820}#)
- (let ((#{labels 3836}#
- (#{gen-labels 369}# #{ids 3832}#))
- (#{new-vars 3837}#
- (map #{gen-var 465}# #{ids 3832}#)))
- (#{build-application 271}#
+ (map cdr #{pvars 14469}#)
+ (let ((#{labels 14476}#
+ (#{gen-labels 4316}# #{ids 14474}#))
+ (#{new-vars 14477}#
+ (map #{gen-var 4359}# #{ids 14474}#)))
+ (#{build-application 4280}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -18112,78 +27491,78 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda 289}#
+ (list (#{build-simple-lambda 4289}#
#f
- (map syntax->datum #{ids 3832}#)
+ (map syntax->datum #{ids 14474}#)
#f
- #{new-vars 3837}#
+ #{new-vars 14477}#
'()
- (#{chi 437}#
- #{exp 3821}#
- (#{extend-env 337}#
- #{labels 3836}#
- (map (lambda (#{var 3841}# #{level 3842}#)
+ (#{chi 4345}#
+ #{exp 14470}#
+ (#{extend-env 4307}#
+ #{labels 14476}#
+ (map (lambda (#{var 14802}# #{level 14803}#)
(cons 'syntax
- (cons #{var 3841}#
- #{level 3842}#)))
- #{new-vars 3837}#
- (map cdr #{pvars 3820}#))
- #{r 3823}#)
- (#{make-binding-wrap 401}#
- #{ids 3832}#
- #{labels 3836}#
+ (cons #{var 14802}#
+ #{level 14803}#)))
+ #{new-vars 14477}#
+ (map cdr #{pvars 14469}#))
+ #{r 14472}#)
+ (#{make-binding-wrap 4327}#
+ #{ids 14474}#
+ #{labels 14476}#
'(()))
- #{mod 3824}#))
- #{y 3822}#)))))))
- (#{gen-clause 3708}#
- (lambda (#{x 3848}#
- #{keys 3849}#
- #{clauses 3850}#
- #{r 3851}#
- #{pat 3852}#
- #{fender 3853}#
- #{exp 3854}#
- #{mod 3855}#)
+ #{mod 14473}#))
+ #{y 14471}#)))))))
+ (#{gen-clause 12150}#
+ (lambda (#{x 13123}#
+ #{keys 13124}#
+ #{clauses 13125}#
+ #{r 13126}#
+ #{pat 13127}#
+ #{fender 13128}#
+ #{exp 13129}#
+ #{mod 13130}#)
(call-with-values
(lambda ()
- (#{convert-pattern 3704}#
- #{pat 3852}#
- #{keys 3849}#))
- (lambda (#{p 3864}# #{pvars 3865}#)
- (if (not (#{distinct-bound-ids? 419}#
- (map car #{pvars 3865}#)))
+ (#{convert-pattern 12148}#
+ #{pat 13127}#
+ #{keys 13124}#))
+ (lambda (#{p 13285}# #{pvars 13286}#)
+ (if (not (#{distinct-bound-ids? 4336}#
+ (map car #{pvars 13286}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 3852}#)
+ #{pat 13127}#)
(if (not (and-map
- (lambda (#{x 3872}#)
- (not (let ((#{x 9164}# (car #{x 3872}#)))
- (if (if (if (vector? #{x 9164}#)
+ (lambda (#{x 13406}#)
+ (not (let ((#{x 13410}# (car #{x 13406}#)))
+ (if (if (if (vector? #{x 13410}#)
(if (= (vector-length
- #{x 9164}#)
+ #{x 13410}#)
4)
(eq? (vector-ref
- #{x 9164}#
+ #{x 13410}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 9164}# 1))
+ (vector-ref #{x 13410}# 1))
#f)
- (if (eq? (if (if (vector? #{x 9164}#)
+ (if (eq? (if (if (vector? #{x 13410}#)
(if (= (vector-length
- #{x 9164}#)
+ #{x 13410}#)
4)
(eq? (vector-ref
- #{x 9164}#
+ #{x 13410}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 9164}# 1)
- #{x 9164}#)
+ (vector-ref #{x 13410}# 1)
+ #{x 13410}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -18199,7 +27578,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -18473,142 +27852,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -18616,9 +27995,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile)))
4)
@@ -18637,7 +28016,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -18911,142 +28290,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -19054,9 +28433,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene
guile))
0)
@@ -19071,7 +28450,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -19345,150 +28724,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
1)
'#(syntax-object
@@ -19499,7 +28878,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -19773,153 +29152,153 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 411}#
- #{x 9164}#
+ (eq? (#{id-var-name 4332}#
+ #{x 13410}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -19928,7 +29307,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -20202,313 +29581,295 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
'(())))
#f)
#f))))
- #{pvars 3865}#))
+ #{pvars 13286}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 3852}#)
- (let ((#{y 3876}#
+ #{pat 13127}#)
+ (let ((#{y 13483}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (let ((#{fun-exp 9204}#
- (let ((#{req 9209}# (list 'tmp))
- (#{vars 9211}# (list #{y 3876}#))
- (#{exp 9213}#
- (let ((#{y 3880}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 3)
- #f
- 'tmp
- #{y 3876}#)))
- (let ((#{test-exp 9228}#
- (let ((#{tmp 3884}#
- ($sc-dispatch
- #{fender 3853}#
- '#(atom #t))))
- (if #{tmp 3884}#
- (@apply
- (lambda () #{y 3880}#)
- #{tmp 3884}#)
- (let ((#{then-exp 9235}#
- (#{build-dispatch-call 3706}#
- #{pvars 3865}#
- #{fender 3853}#
- #{y 3880}#
- #{r 3851}#
- #{mod 3855}#))
- (#{else-exp 9236}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 1)
- #f
- #f)))
+ (#{build-application 4280}#
+ #f
+ (let ((#{req 13633}# (list 'tmp))
+ (#{vars 13635}# (list #{y 13483}#))
+ (#{exp 13637}#
+ (let ((#{y 13654}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ 'tmp
+ #{y 13483}#)))
+ (let ((#{test-exp 13658}#
+ (let ((#{tmp 13667}#
+ ($sc-dispatch
+ #{fender 13128}#
+ '#(atom #t))))
+ (if #{tmp 13667}#
+ (@apply
+ (lambda () #{y 13654}#)
+ #{tmp 13667}#)
+ (let ((#{then-exp 13685}#
+ (#{build-dispatch-call 12149}#
+ #{pvars 13286}#
+ #{fender 13128}#
+ #{y 13654}#
+ #{r 13126}#
+ #{mod 13130}#))
+ (#{else-exp 13686}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
- 10)
+ 1)
#f
- #{y 3880}#
- #{then-exp 9235}#
- #{else-exp 9236}#)))))
- (#{then-exp 9229}#
- (#{build-dispatch-call 3706}#
- #{pvars 3865}#
- #{exp 3854}#
- #{y 3880}#
- #{r 3851}#
- #{mod 3855}#))
- (#{else-exp 9230}#
- (#{gen-syntax-case 3710}#
- #{x 3848}#
- #{keys 3849}#
- #{clauses 3850}#
- #{r 3851}#
- #{mod 3855}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #f
- #{test-exp 9228}#
- #{then-exp 9229}#
- #{else-exp 9230}#)))))
- (let ((#{body 9261}#
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #f
- #{req 9209}#
- #f
- #f
- #f
- '()
- #{vars 9211}#
- #{exp 9213}#
- #f)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #f
- '()
- #{body 9261}#))))
- (#{arg-exps 9205}#
- (list (if (eq? #{p 3864}# 'any)
- (let ((#{fun-exp 9276}#
- (if (equal?
- (module-name
- (current-module))
- '(guile))
+ #f)))
(make-struct/no-tail
(vector-ref
%expanded-vtables
- 7)
+ 10)
#f
- 'list)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 5)
- #f
- '(guile)
- 'list
- #f)))
- (#{arg-exps 9277}#
- (list #{x 3848}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 9276}#
- #{arg-exps 9277}#))
- (let ((#{fun-exp 9299}#
- (if (equal?
- (module-name
- (current-module))
- '(guile))
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 7)
- #f
- '$sc-dispatch)
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 5)
- #f
- '(guile)
- '$sc-dispatch
- #f)))
- (#{arg-exps 9300}#
- (list #{x 3848}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 1)
- #f
- #{p 3864}#))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 9299}#
- #{arg-exps 9300}#))))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 9204}#
- #{arg-exps 9205}#)))))))))
- (#{gen-syntax-case 3710}#
- (lambda (#{x 3894}#
- #{keys 3895}#
- #{clauses 3896}#
- #{r 3897}#
- #{mod 3898}#)
- (if (null? #{clauses 3896}#)
- (let ((#{fun-exp 9335}#
+ #{y 13654}#
+ #{then-exp 13685}#
+ #{else-exp 13686}#)))))
+ (#{then-exp 13659}#
+ (#{build-dispatch-call 12149}#
+ #{pvars 13286}#
+ #{exp 13129}#
+ #{y 13654}#
+ #{r 13126}#
+ #{mod 13130}#))
+ (#{else-exp 13660}#
+ (#{gen-syntax-case 12151}#
+ #{x 13123}#
+ #{keys 13124}#
+ #{clauses 13125}#
+ #{r 13126}#
+ #{mod 13130}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #f
+ #{test-exp 13658}#
+ #{then-exp 13659}#
+ #{else-exp 13660}#)))))
+ (let ((#{body 13642}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 13633}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 13635}#
+ #{exp 13637}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 13642}#)))
+ (list (if (eq? #{p 13285}# 'any)
+ (let ((#{fun-exp 13708}#
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'list)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'list
+ #f)))
+ (#{arg-exps 13709}# (list #{x 13123}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 13708}#
+ #{arg-exps 13709}#))
+ (let ((#{fun-exp 13732}#
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ '$sc-dispatch)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ '$sc-dispatch
+ #f)))
+ (#{arg-exps 13733}#
+ (list #{x 13123}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ #{p 13285}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 13732}#
+ #{arg-exps 13733}#))))))))))))
+ (#{gen-syntax-case 12151}#
+ (lambda (#{x 12557}#
+ #{keys 12558}#
+ #{clauses 12559}#
+ #{r 12560}#
+ #{mod 12561}#)
+ (if (null? #{clauses 12559}#)
+ (let ((#{fun-exp 12566}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -20520,7 +29881,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps 9336}#
+ (#{arg-exps 12567}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -20529,59 +29890,61 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 3894}#)))
+ #{x 12557}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 9335}#
- #{arg-exps 9336}#))
- (let ((#{tmp 3908}# (car #{clauses 3896}#)))
- (let ((#{tmp 3909}#
- ($sc-dispatch #{tmp 3908}# '(any any))))
- (if #{tmp 3909}#
+ #{fun-exp 12566}#
+ #{arg-exps 12567}#))
+ (let ((#{tmp 12600}# (car #{clauses 12559}#)))
+ (let ((#{tmp 12601}#
+ ($sc-dispatch #{tmp 12600}# '(any any))))
+ (if #{tmp 12601}#
(@apply
- (lambda (#{pat 3912}# #{exp 3913}#)
- (if (if (if (symbol? #{pat 3912}#)
+ (lambda (#{pat 12603}# #{exp 12604}#)
+ (if (if (if (symbol? #{pat 12603}#)
#t
- (if (if (vector? #{pat 3912}#)
- (if (= (vector-length #{pat 3912}#) 4)
- (eq? (vector-ref #{pat 3912}# 0)
+ (if (if (vector? #{pat 12603}#)
+ (if (= (vector-length #{pat 12603}#)
+ 4)
+ (eq? (vector-ref #{pat 12603}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 3912}# 1))
+ (symbol? (vector-ref #{pat 12603}# 1))
#f))
(and-map
- (lambda (#{x 3916}#)
- (not (if (eq? (if (if (vector? #{pat 3912}#)
+ (lambda (#{x 12631}#)
+ (not (if (eq? (if (if (vector?
+ #{pat 12603}#)
(if (= (vector-length
- #{pat 3912}#)
+ #{pat 12603}#)
4)
(eq? (vector-ref
- #{pat 3912}#
+ #{pat 12603}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 3912}# 1)
- #{pat 3912}#)
- (if (if (vector? #{x 3916}#)
+ (vector-ref #{pat 12603}# 1)
+ #{pat 12603}#)
+ (if (if (vector? #{x 12631}#)
(if (= (vector-length
- #{x 3916}#)
+ #{x 12631}#)
4)
(eq? (vector-ref
- #{x 3916}#
+ #{x 12631}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 3916}# 1)
- #{x 3916}#))
- (eq? (#{id-var-name 411}#
- #{pat 3912}#
+ (vector-ref #{x 12631}# 1)
+ #{x 12631}#))
+ (eq? (#{id-var-name 4332}#
+ #{pat 12603}#
'(()))
- (#{id-var-name 411}#
- #{x 3916}#
+ (#{id-var-name 4332}#
+ #{x 12631}#
'(())))
#f)))
(cons '#(syntax-object
@@ -20590,23 +29953,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709" "i3707" "i3705" "i3703"))
+ ("i3710" "i3708" "i3706" "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -20880,150 +30243,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
- #{keys 3895}#))
+ #{keys 12558}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -21032,7 +30395,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -21045,11 +30408,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -21059,10 +30422,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -21336,150 +30699,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
4)
(eq? (vector-ref
@@ -21489,7 +30852,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -21502,11 +30865,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -21516,10 +30879,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -21793,150 +31156,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
0)
'syntax-object)
@@ -21948,7 +31311,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -21957,21 +31320,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -22245,148 +31608,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
1)
'#(syntax-object
@@ -22395,7 +31758,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -22404,21 +31767,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -22692,148 +32055,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
@@ -22842,7 +32205,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -22855,11 +32218,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -22869,10 +32232,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -23146,150 +32509,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
4)
(eq? (vector-ref
@@ -23299,7 +32662,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x
@@ -23312,11 +32675,11 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -23326,10 +32689,10 @@
(top)
(top)
(top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -23603,150 +32966,150 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
0)
'syntax-object)
@@ -23758,7 +33121,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -23767,21 +33130,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -24055,148 +33418,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
1)
'#(syntax-object
@@ -24205,7 +33568,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -24214,21 +33577,21 @@
(top)
(top)
(top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -24502,176 +33865,176 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 411}#
+ (eq? (#{id-var-name 4332}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -24945,177 +34308,177 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3910" "i3911"))
+ #("i3911" "i3912"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3899"
- "i3900"
+ #("i3900"
"i3901"
"i3902"
- "i3903"))
+ "i3903"
+ "i3904"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"
- "i3703"))
+ ("i3710"
+ "i3708"
+ "i3706"
+ "i3704"))
#(ribcage
(lambda-var-list
gen-var
@@ -25389,279 +34752,281 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
'(())))
#f)
- (#{chi 437}#
- #{exp 3913}#
- #{r 3897}#
+ (#{chi 4345}#
+ #{exp 12604}#
+ #{r 12560}#
'(())
- #{mod 3898}#)
- (let ((#{labels 3921}#
+ #{mod 12561}#)
+ (let ((#{labels 12806}#
(list (symbol->string (gensym "i"))))
- (#{var 3922}#
- (let ((#{id 9473}#
- (if (if (vector? #{pat 3912}#)
+ (#{var 12807}#
+ (let ((#{id 12845}#
+ (if (if (vector? #{pat 12603}#)
(if (= (vector-length
- #{pat 3912}#)
+ #{pat 12603}#)
4)
(eq? (vector-ref
- #{pat 3912}#
+ #{pat 12603}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 3912}# 1)
- #{pat 3912}#)))
+ (vector-ref #{pat 12603}# 1)
+ #{pat 12603}#)))
(gensym
(string-append
- (symbol->string #{id 9473}#)
+ (symbol->string #{id 12845}#)
" ")))))
- (#{build-application 271}#
+ (#{build-application 4280}#
#f
- (#{build-simple-lambda 289}#
+ (#{build-simple-lambda 4289}#
#f
- (list (syntax->datum #{pat 3912}#))
+ (list (syntax->datum #{pat 12603}#))
#f
- (list #{var 3922}#)
+ (list #{var 12807}#)
'()
- (#{chi 437}#
- #{exp 3913}#
- (#{extend-env 337}#
- #{labels 3921}#
+ (#{chi 4345}#
+ #{exp 12604}#
+ (#{extend-env 4307}#
+ #{labels 12806}#
(list (cons 'syntax
- (cons #{var 3922}# 0)))
- #{r 3897}#)
- (#{make-binding-wrap 401}#
- (list #{pat 3912}#)
- #{labels 3921}#
+ (cons #{var 12807}# 0)))
+ #{r 12560}#)
+ (#{make-binding-wrap 4327}#
+ (list #{pat 12603}#)
+ #{labels 12806}#
'(()))
- #{mod 3898}#))
- (list #{x 3894}#))))
- (#{gen-clause 3708}#
- #{x 3894}#
- #{keys 3895}#
- (cdr #{clauses 3896}#)
- #{r 3897}#
- #{pat 3912}#
+ #{mod 12561}#))
+ (list #{x 12557}#))))
+ (#{gen-clause 12150}#
+ #{x 12557}#
+ #{keys 12558}#
+ (cdr #{clauses 12559}#)
+ #{r 12560}#
+ #{pat 12603}#
#t
- #{exp 3913}#
- #{mod 3898}#)))
- #{tmp 3909}#)
- (let ((#{tmp 3928}#
- ($sc-dispatch #{tmp 3908}# '(any any any))))
- (if #{tmp 3928}#
+ #{exp 12604}#
+ #{mod 12561}#)))
+ #{tmp 12601}#)
+ (let ((#{tmp 13115}#
+ ($sc-dispatch #{tmp 12600}# '(any any any))))
+ (if #{tmp 13115}#
(@apply
- (lambda (#{pat 3932}# #{fender 3933}# #{exp 3934}#)
- (#{gen-clause 3708}#
- #{x 3894}#
- #{keys 3895}#
- (cdr #{clauses 3896}#)
- #{r 3897}#
- #{pat 3932}#
- #{fender 3933}#
- #{exp 3934}#
- #{mod 3898}#))
- #{tmp 3928}#)
+ (lambda (#{pat 13117}#
+ #{fender 13118}#
+ #{exp 13119}#)
+ (#{gen-clause 12150}#
+ #{x 12557}#
+ #{keys 12558}#
+ (cdr #{clauses 12559}#)
+ #{r 12560}#
+ #{pat 13117}#
+ #{fender 13118}#
+ #{exp 13119}#
+ #{mod 12561}#))
+ #{tmp 13115}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 3896}#)))))))))))
- (lambda (#{e 3937}#
- #{r 3938}#
- #{w 3939}#
- #{s 3940}#
- #{mod 3941}#)
- (let ((#{e 3948}#
- (#{wrap 423}#
+ (car #{clauses 12559}#)))))))))))
+ (lambda (#{e 12152}#
+ #{r 12153}#
+ #{w 12154}#
+ #{s 12155}#
+ #{mod 12156}#)
+ (let ((#{e 12157}#
+ (#{wrap 4338}#
(begin
- (if (if (pair? #{e 3937}#) #{s 3940}# #f)
- (set-source-properties! #{e 3937}# #{s 3940}#))
- #{e 3937}#)
- #{w 3939}#
- #{mod 3941}#)))
- (let ((#{tmp 3950}#
+ (if (if (pair? #{e 12152}#) #{s 12155}# #f)
+ (set-source-properties! #{e 12152}# #{s 12155}#))
+ #{e 12152}#)
+ #{w 12154}#
+ #{mod 12156}#)))
+ (let ((#{tmp 12159}#
($sc-dispatch
- #{e 3948}#
+ #{e 12157}#
'(_ any each-any . each-any))))
- (if #{tmp 3950}#
+ (if #{tmp 12159}#
(@apply
- (lambda (#{val 3954}# #{key 3955}# #{m 3956}#)
+ (lambda (#{val 12184}# #{key 12185}# #{m 12186}#)
(if (and-map
- (lambda (#{x 3957}#)
- (if (if (symbol? #{x 3957}#)
+ (lambda (#{x 12187}#)
+ (if (if (symbol? #{x 12187}#)
#t
- (if (if (vector? #{x 3957}#)
- (if (= (vector-length #{x 3957}#) 4)
- (eq? (vector-ref #{x 3957}# 0)
+ (if (if (vector? #{x 12187}#)
+ (if (= (vector-length #{x 12187}#) 4)
+ (eq? (vector-ref #{x 12187}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3957}# 1))
+ (symbol? (vector-ref #{x 12187}# 1))
#f))
- (not (if (if (if (vector? #{x 3957}#)
- (if (= (vector-length #{x 3957}#)
+ (not (if (if (if (vector? #{x 12187}#)
+ (if (= (vector-length #{x 12187}#)
4)
- (eq? (vector-ref #{x 3957}# 0)
+ (eq? (vector-ref #{x 12187}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3957}# 1))
+ (symbol? (vector-ref #{x 12187}# 1))
#f)
- (if (eq? (if (if (vector? #{x 3957}#)
+ (if (eq? (if (if (vector? #{x 12187}#)
(if (= (vector-length
- #{x 3957}#)
+ #{x 12187}#)
4)
(eq? (vector-ref
- #{x 3957}#
+ #{x 12187}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 3957}# 1)
- #{x 3957}#)
+ (vector-ref #{x 12187}# 1)
+ #{x 12187}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -25677,7 +35042,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -25951,142 +35316,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -26094,9 +35459,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile)))
4)
(eq? (vector-ref
@@ -26114,7 +35479,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -26388,142 +35753,142 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -26531,9 +35896,9 @@
((top)
(top)
(top))
- ("i45"
- "i44"
- "i43")))
+ ("i46"
+ "i45"
+ "i44")))
(hygiene guile))
0)
'syntax-object)
@@ -26547,7 +35912,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -26821,148 +36186,148 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
1)
'#(syntax-object
@@ -26973,7 +36338,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -27247,153 +36612,153 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 411}#
- #{x 3957}#
+ (eq? (#{id-var-name 4332}#
+ #{x 12187}#
'(()))
- (#{id-var-name 411}#
+ (#{id-var-name 4332}#
'#(syntax-object
...
((top)
@@ -27402,7 +36767,7 @@
#(ribcage
#(x)
#((top))
- #("i2229"))
+ #("i2230"))
#(ribcage
(lambda-var-list
gen-var
@@ -27676,726 +37041,738 @@
(top)
(top)
(top))
- ("i466"
- "i464"
- "i462"
- "i460"
- "i458"
- "i456"
- "i454"
- "i452"
- "i450"
- "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"
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
"i398"
- "i397"
- "i395"
+ "i396"
+ "i393"
"i392"
"i391"
- "i390"
+ "i389"
"i388"
- "i387"
- "i385"
- "i383"
- "i381"
- "i379"
- "i377"
- "i375"
- "i373"
- "i371"
- "i368"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
"i366"
- "i365"
- "i363"
- "i361"
- "i359"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
"i357"
"i356"
"i355"
- "i354"
+ "i353"
"i352"
- "i351"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
"i336"
"i335"
- "i334"
- "i332"
+ "i333"
+ "i331"
"i330"
- "i329"
+ "i327"
"i326"
- "i325"
- "i323"
- "i321"
- "i319"
- "i317"
- "i315"
- "i313"
- "i311"
- "i309"
- "i307"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
"i260"
- "i259"
- "i256"
+ "i257"
+ "i255"
"i254"
"i253"
"i252"
"i251"
- "i250"
- "i248"
- "i246"
- "i244"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i229"
- "i227"
- "i225"
- "i223"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"))
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i45" "i44" "i43")))
+ ("i46" "i45" "i44")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- #{key 3955}#)
- (let ((#{x 3963}#
+ #{key 12185}#)
+ (let ((#{x 12310}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 271}#
- #{s 3940}#
- (let ((#{req 9847}# (list 'tmp))
- (#{vars 9849}# (list #{x 3963}#))
- (#{exp 9851}#
- (#{gen-syntax-case 3710}#
+ (#{build-application 4280}#
+ #{s 12155}#
+ (let ((#{req 12445}# (list 'tmp))
+ (#{vars 12447}# (list #{x 12310}#))
+ (#{exp 12449}#
+ (#{gen-syntax-case 12151}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 3963}#)
- #{key 3955}#
- #{m 3956}#
- #{r 3938}#
- #{mod 3941}#)))
- (let ((#{body 9868}#
+ #{x 12310}#)
+ #{key 12185}#
+ #{m 12186}#
+ #{r 12153}#
+ #{mod 12156}#)))
+ (let ((#{body 12454}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 9847}#
+ #{req 12445}#
#f
#f
#f
'()
- #{vars 9849}#
- #{exp 9851}#
+ #{vars 12447}#
+ #{exp 12449}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 9868}#)))
- (list (#{chi 437}#
- #{val 3954}#
- #{r 3938}#
+ #{body 12454}#)))
+ (list (#{chi 4345}#
+ #{val 12184}#
+ #{r 12153}#
'(())
- #{mod 3941}#))))
+ #{mod 12156}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 3948}#)))
- #{tmp 3950}#)
+ #{e 12157}#)))
+ #{tmp 12159}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 3948}#)))))))
+ #{e 12157}#)))))))
(set! macroexpand
(lambda*
- (#{x 3969}#
+ (#{x 14894}#
#:optional
- (#{m 3971}# 'e)
- (#{esew 3973}# '(eval)))
- (#{chi-top-sequence 429}#
- (list #{x 3969}#)
+ (#{m 14895}# 'e)
+ (#{esew 14896}# '(eval)))
+ (#{chi-top-sequence 4341}#
+ (list #{x 14894}#)
'()
'((top))
#f
- #{m 3971}#
- #{esew 3973}#
+ #{m 14895}#
+ #{esew 14896}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 3977}#)
- (if (if (vector? #{x 3977}#)
- (if (= (vector-length #{x 3977}#) 4)
- (eq? (vector-ref #{x 3977}# 0) 'syntax-object)
+ (lambda (#{x 14899}#)
+ (if (if (vector? #{x 14899}#)
+ (if (= (vector-length #{x 14899}#) 4)
+ (eq? (vector-ref #{x 14899}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3977}# 1))
+ (symbol? (vector-ref #{x 14899}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 3979}# #{datum 3980}#)
- (let ((#{wrap 9942}# (vector-ref #{id 3979}# 2))
- (#{module 9943}# (vector-ref #{id 3979}# 3)))
+ (lambda (#{id 14924}# #{datum 14925}#)
+ (let ((#{wrap 14930}# (vector-ref #{id 14924}# 2))
+ (#{module 14931}# (vector-ref #{id 14924}# 3)))
(vector
'syntax-object
- #{datum 3980}#
- #{wrap 9942}#
- #{module 9943}#))))
+ #{datum 14925}#
+ #{wrap 14930}#
+ #{module 14931}#))))
(set! syntax->datum
- (lambda (#{x 3983}#)
- (#{strip 463}# #{x 3983}# '(()))))
+ (lambda (#{x 14938}#)
+ (#{strip 4358}# #{x 14938}# '(()))))
(set! syntax-source
- (lambda (#{x 3986}#)
- (#{source-annotation 327}# #{x 3986}#)))
+ (lambda (#{x 14941}#)
+ (#{source-annotation 4306}# #{x 14941}#)))
(set! generate-temporaries
- (lambda (#{ls 3988}#)
+ (lambda (#{ls 15113}#)
(begin
- (if (not (list? #{ls 3988}#))
+ (if (not (list? #{ls 15113}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 3988}#))
- (let ((#{mod 3994}#
+ #{ls 15113}#))
+ (let ((#{mod 15121}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3995}#)
- (#{wrap 423}# (gensym) '((top)) #{mod 3994}#))
- #{ls 3988}#)))))
+ (map (lambda (#{x 15122}#)
+ (#{wrap 4338}# (gensym) '((top)) #{mod 15121}#))
+ #{ls 15113}#)))))
(set! free-identifier=?
- (lambda (#{x 3999}# #{y 4000}#)
+ (lambda (#{x 15126}# #{y 15127}#)
(begin
- (if (not (if (if (vector? #{x 3999}#)
- (if (= (vector-length #{x 3999}#) 4)
- (eq? (vector-ref #{x 3999}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15126}#)
+ (if (= (vector-length #{x 15126}#) 4)
+ (eq? (vector-ref #{x 15126}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3999}# 1))
+ (symbol? (vector-ref #{x 15126}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 3999}#))
- (if (not (if (if (vector? #{y 4000}#)
- (if (= (vector-length #{y 4000}#) 4)
- (eq? (vector-ref #{y 4000}# 0) 'syntax-object)
+ #{x 15126}#))
+ (if (not (if (if (vector? #{y 15127}#)
+ (if (= (vector-length #{y 15127}#) 4)
+ (eq? (vector-ref #{y 15127}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 4000}# 1))
+ (symbol? (vector-ref #{y 15127}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 4000}#))
- (if (eq? (if (if (vector? #{x 3999}#)
- (if (= (vector-length #{x 3999}#) 4)
- (eq? (vector-ref #{x 3999}# 0) 'syntax-object)
+ #{y 15127}#))
+ (if (eq? (if (if (vector? #{x 15126}#)
+ (if (= (vector-length #{x 15126}#) 4)
+ (eq? (vector-ref #{x 15126}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 3999}# 1)
- #{x 3999}#)
- (if (if (vector? #{y 4000}#)
- (if (= (vector-length #{y 4000}#) 4)
- (eq? (vector-ref #{y 4000}# 0) 'syntax-object)
+ (vector-ref #{x 15126}# 1)
+ #{x 15126}#)
+ (if (if (vector? #{y 15127}#)
+ (if (= (vector-length #{y 15127}#) 4)
+ (eq? (vector-ref #{y 15127}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y 4000}# 1)
- #{y 4000}#))
- (eq? (#{id-var-name 411}# #{x 3999}# '(()))
- (#{id-var-name 411}# #{y 4000}# '(())))
+ (vector-ref #{y 15127}# 1)
+ #{y 15127}#))
+ (eq? (#{id-var-name 4332}# #{x 15126}# '(()))
+ (#{id-var-name 4332}# #{y 15127}# '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 4009}# #{y 4010}#)
+ (lambda (#{x 15277}# #{y 15278}#)
(begin
- (if (not (if (if (vector? #{x 4009}#)
- (if (= (vector-length #{x 4009}#) 4)
- (eq? (vector-ref #{x 4009}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15277}#)
+ (if (= (vector-length #{x 15277}#) 4)
+ (eq? (vector-ref #{x 15277}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 4009}# 1))
+ (symbol? (vector-ref #{x 15277}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 4009}#))
- (if (not (if (if (vector? #{y 4010}#)
- (if (= (vector-length #{y 4010}#) 4)
- (eq? (vector-ref #{y 4010}# 0) 'syntax-object)
+ #{x 15277}#))
+ (if (not (if (if (vector? #{y 15278}#)
+ (if (= (vector-length #{y 15278}#) 4)
+ (eq? (vector-ref #{y 15278}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 4010}# 1))
+ (symbol? (vector-ref #{y 15278}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 4010}#))
- (if (if (if (vector? #{x 4009}#)
- (if (= (vector-length #{x 4009}#) 4)
- (eq? (vector-ref #{x 4009}# 0) 'syntax-object)
+ #{y 15278}#))
+ (if (if (if (vector? #{x 15277}#)
+ (if (= (vector-length #{x 15277}#) 4)
+ (eq? (vector-ref #{x 15277}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y 4010}#)
- (if (= (vector-length #{y 4010}#) 4)
- (eq? (vector-ref #{y 4010}# 0) 'syntax-object)
+ (if (vector? #{y 15278}#)
+ (if (= (vector-length #{y 15278}#) 4)
+ (eq? (vector-ref #{y 15278}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 4009}# 1)
- (vector-ref #{y 4010}# 1))
- (#{same-marks? 409}#
- (car (vector-ref #{x 4009}# 2))
- (car (vector-ref #{y 4010}# 2)))
+ (if (eq? (vector-ref #{x 15277}# 1)
+ (vector-ref #{y 15278}# 1))
+ (#{same-marks? 4331}#
+ (car (vector-ref #{x 15277}# 2))
+ (car (vector-ref #{y 15278}# 2)))
#f)
- (eq? #{x 4009}# #{y 4010}#)))))
+ (eq? #{x 15277}# #{y 15278}#)))))
(set! syntax-violation
(lambda*
- (#{who 4019}#
- #{message 4020}#
- #{form 4021}#
+ (#{who 15411}#
+ #{message 15412}#
+ #{form 15413}#
#:optional
- (#{subform 4025}# #f))
+ (#{subform 15414}# #f))
(begin
- (if (not (if (not #{who 4019}#)
- (not #{who 4019}#)
- (let ((#{t 4037}# (string? #{who 4019}#)))
- (if #{t 4037}# #{t 4037}# (symbol? #{who 4019}#)))))
+ (if (not (if (not #{who 15411}#)
+ (not #{who 15411}#)
+ (let ((#{t 15432}# (string? #{who 15411}#)))
+ (if #{t 15432}#
+ #{t 15432}#
+ (symbol? #{who 15411}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 4019}#))
- (if (not (string? #{message 4020}#))
+ #{who 15411}#))
+ (if (not (string? #{message 15412}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 4020}#))
+ #{message 15412}#))
(throw 'syntax-error
- #{who 4019}#
- #{message 4020}#
- (#{source-annotation 327}#
- (if #{form 4021}# #{form 4021}# #{subform 4025}#))
- (#{strip 463}# #{form 4021}# '(()))
- (if #{subform 4025}#
- (#{strip 463}# #{subform 4025}# '(()))
+ #{who 15411}#
+ #{message 15412}#
+ (#{source-annotation 4306}#
+ (if #{form 15413}#
+ #{form 15413}#
+ #{subform 15414}#))
+ (#{strip 4358}# #{form 15413}# '(()))
+ (if #{subform 15414}#
+ (#{strip 4358}# #{subform 15414}# '(()))
#f)))))
(letrec*
- ((#{match-each 4051}#
- (lambda (#{e 4064}# #{p 4065}# #{w 4066}# #{mod 4067}#)
- (if (pair? #{e 4064}#)
- (let ((#{first 4075}#
- (#{match 4063}#
- (car #{e 4064}#)
- #{p 4065}#
- #{w 4066}#
+ ((#{match-each 15655}#
+ (lambda (#{e 16278}#
+ #{p 16279}#
+ #{w 16280}#
+ #{mod 16281}#)
+ (if (pair? #{e 16278}#)
+ (let ((#{first 16282}#
+ (#{match 15661}#
+ (car #{e 16278}#)
+ #{p 16279}#
+ #{w 16280}#
'()
- #{mod 4067}#)))
- (if #{first 4075}#
- (let ((#{rest 4079}#
- (#{match-each 4051}#
- (cdr #{e 4064}#)
- #{p 4065}#
- #{w 4066}#
- #{mod 4067}#)))
- (if #{rest 4079}#
- (cons #{first 4075}# #{rest 4079}#)
+ #{mod 16281}#)))
+ (if #{first 16282}#
+ (let ((#{rest 16285}#
+ (#{match-each 15655}#
+ (cdr #{e 16278}#)
+ #{p 16279}#
+ #{w 16280}#
+ #{mod 16281}#)))
+ (if #{rest 16285}#
+ (cons #{first 16282}# #{rest 16285}#)
#f))
#f))
- (if (null? #{e 4064}#)
+ (if (null? #{e 16278}#)
'()
- (if (if (vector? #{e 4064}#)
- (if (= (vector-length #{e 4064}#) 4)
- (eq? (vector-ref #{e 4064}# 0) 'syntax-object)
+ (if (if (vector? #{e 16278}#)
+ (if (= (vector-length #{e 16278}#) 4)
+ (eq? (vector-ref #{e 16278}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 4051}#
- (vector-ref #{e 4064}# 1)
- #{p 4065}#
- (#{join-wraps 405}#
- #{w 4066}#
- (vector-ref #{e 4064}# 2))
- (vector-ref #{e 4064}# 3))
+ (#{match-each 15655}#
+ (vector-ref #{e 16278}# 1)
+ #{p 16279}#
+ (#{join-wraps 4329}#
+ #{w 16280}#
+ (vector-ref #{e 16278}# 2))
+ (vector-ref #{e 16278}# 3))
#f)))))
- (#{match-each+ 4053}#
- (lambda (#{e 4087}#
- #{x-pat 4088}#
- #{y-pat 4089}#
- #{z-pat 4090}#
- #{w 4091}#
- #{r 4092}#
- #{mod 4093}#)
- (letrec*
- ((#{f 4104}#
- (lambda (#{e 4105}# #{w 4106}#)
- (if (pair? #{e 4105}#)
- (call-with-values
- (lambda ()
- (#{f 4104}# (cdr #{e 4105}#) #{w 4106}#))
- (lambda (#{xr* 4109}# #{y-pat 4110}# #{r 4111}#)
- (if #{r 4111}#
- (if (null? #{y-pat 4110}#)
- (let ((#{xr 4116}#
- (#{match 4063}#
- (car #{e 4105}#)
- #{x-pat 4088}#
- #{w 4106}#
- '()
- #{mod 4093}#)))
- (if #{xr 4116}#
- (values
- (cons #{xr 4116}# #{xr* 4109}#)
- #{y-pat 4110}#
- #{r 4111}#)
- (values #f #f #f)))
- (values
- '()
- (cdr #{y-pat 4110}#)
- (#{match 4063}#
- (car #{e 4105}#)
- (car #{y-pat 4110}#)
- #{w 4106}#
- #{r 4111}#
- #{mod 4093}#)))
- (values #f #f #f))))
- (if (if (vector? #{e 4105}#)
- (if (= (vector-length #{e 4105}#) 4)
- (eq? (vector-ref #{e 4105}# 0) 'syntax-object)
- #f)
- #f)
- (#{f 4104}#
- (vector-ref #{e 4105}# 1)
- (#{join-wraps 405}# #{w 4106}# #{e 4105}#))
- (values
- '()
- #{y-pat 4089}#
- (#{match 4063}#
- #{e 4105}#
- #{z-pat 4090}#
- #{w 4106}#
- #{r 4092}#
- #{mod 4093}#)))))))
- (#{f 4104}# #{e 4087}# #{w 4091}#))))
- (#{match-each-any 4055}#
- (lambda (#{e 4120}# #{w 4121}# #{mod 4122}#)
- (if (pair? #{e 4120}#)
- (let ((#{l 4129}#
- (#{match-each-any 4055}#
- (cdr #{e 4120}#)
- #{w 4121}#
- #{mod 4122}#)))
- (if #{l 4129}#
- (cons (#{wrap 423}#
- (car #{e 4120}#)
- #{w 4121}#
- #{mod 4122}#)
- #{l 4129}#)
+ (#{match-each-any 15657}#
+ (lambda (#{e 16313}# #{w 16314}# #{mod 16315}#)
+ (if (pair? #{e 16313}#)
+ (let ((#{l 16316}#
+ (#{match-each-any 15657}#
+ (cdr #{e 16313}#)
+ #{w 16314}#
+ #{mod 16315}#)))
+ (if #{l 16316}#
+ (cons (#{wrap 4338}#
+ (car #{e 16313}#)
+ #{w 16314}#
+ #{mod 16315}#)
+ #{l 16316}#)
#f))
- (if (null? #{e 4120}#)
+ (if (null? #{e 16313}#)
'()
- (if (if (vector? #{e 4120}#)
- (if (= (vector-length #{e 4120}#) 4)
- (eq? (vector-ref #{e 4120}# 0) 'syntax-object)
+ (if (if (vector? #{e 16313}#)
+ (if (= (vector-length #{e 16313}#) 4)
+ (eq? (vector-ref #{e 16313}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 4055}#
- (vector-ref #{e 4120}# 1)
- (#{join-wraps 405}#
- #{w 4121}#
- (vector-ref #{e 4120}# 2))
- #{mod 4122}#)
+ (#{match-each-any 15657}#
+ (vector-ref #{e 16313}# 1)
+ (#{join-wraps 4329}#
+ #{w 16314}#
+ (vector-ref #{e 16313}# 2))
+ #{mod 16315}#)
#f)))))
- (#{match-empty 4057}#
- (lambda (#{p 4137}# #{r 4138}#)
- (if (null? #{p 4137}#)
- #{r 4138}#
- (if (eq? #{p 4137}# '_)
- #{r 4138}#
- (if (eq? #{p 4137}# 'any)
- (cons '() #{r 4138}#)
- (if (pair? #{p 4137}#)
- (#{match-empty 4057}#
- (car #{p 4137}#)
- (#{match-empty 4057}#
- (cdr #{p 4137}#)
- #{r 4138}#))
- (if (eq? #{p 4137}# 'each-any)
- (cons '() #{r 4138}#)
- (let ((#{atom-key 4154}# (vector-ref #{p 4137}# 0)))
- (if (memv #{atom-key 4154}# '(each))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 1)
- #{r 4138}#)
- (if (memv #{atom-key 4154}# '(each+))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 1)
- (#{match-empty 4057}#
- (reverse (vector-ref #{p 4137}# 2))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 3)
- #{r 4138}#)))
- (if (memv #{atom-key 4154}# '(free-id atom))
- #{r 4138}#
- (if (memv #{atom-key 4154}# '(vector))
- (#{match-empty 4057}#
- (vector-ref #{p 4137}# 1)
- #{r 4138}#)))))))))))))
- (#{combine 4059}#
- (lambda (#{r* 4159}# #{r 4160}#)
- (if (null? (car #{r* 4159}#))
- #{r 4160}#
- (cons (map car #{r* 4159}#)
- (#{combine 4059}#
- (map cdr #{r* 4159}#)
- #{r 4160}#)))))
- (#{match* 4061}#
- (lambda (#{e 4163}#
- #{p 4164}#
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#)
- (if (null? #{p 4164}#)
- (if (null? #{e 4163}#) #{r 4166}# #f)
- (if (pair? #{p 4164}#)
- (if (pair? #{e 4163}#)
- (#{match 4063}#
- (car #{e 4163}#)
- (car #{p 4164}#)
- #{w 4165}#
- (#{match 4063}#
- (cdr #{e 4163}#)
- (cdr #{p 4164}#)
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#)
- #{mod 4167}#)
+ (#{match-empty 15658}#
+ (lambda (#{p 16340}# #{r 16341}#)
+ (if (null? #{p 16340}#)
+ #{r 16341}#
+ (if (eq? #{p 16340}# '_)
+ #{r 16341}#
+ (if (eq? #{p 16340}# 'any)
+ (cons '() #{r 16341}#)
+ (if (pair? #{p 16340}#)
+ (#{match-empty 15658}#
+ (car #{p 16340}#)
+ (#{match-empty 15658}#
+ (cdr #{p 16340}#)
+ #{r 16341}#))
+ (if (eq? #{p 16340}# 'each-any)
+ (cons '() #{r 16341}#)
+ (let ((#{atom-key 16342}# (vector-ref #{p 16340}# 0)))
+ (if (eqv? #{atom-key 16342}# 'each)
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 1)
+ #{r 16341}#)
+ (if (eqv? #{atom-key 16342}# 'each+)
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 1)
+ (#{match-empty 15658}#
+ (reverse (vector-ref #{p 16340}# 2))
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 3)
+ #{r 16341}#)))
+ (if (if (eqv? #{atom-key 16342}# 'free-id)
+ #t
+ (eqv? #{atom-key 16342}# 'atom))
+ #{r 16341}#
+ (if (eqv? #{atom-key 16342}# 'vector)
+ (#{match-empty 15658}#
+ (vector-ref #{p 16340}# 1)
+ #{r 16341}#)))))))))))))
+ (#{combine 15659}#
+ (lambda (#{r* 16361}# #{r 16362}#)
+ (if (null? (car #{r* 16361}#))
+ #{r 16362}#
+ (cons (map car #{r* 16361}#)
+ (#{combine 15659}#
+ (map cdr #{r* 16361}#)
+ #{r 16362}#)))))
+ (#{match* 15660}#
+ (lambda (#{e 15690}#
+ #{p 15691}#
+ #{w 15692}#
+ #{r 15693}#
+ #{mod 15694}#)
+ (if (null? #{p 15691}#)
+ (if (null? #{e 15690}#) #{r 15693}# #f)
+ (if (pair? #{p 15691}#)
+ (if (pair? #{e 15690}#)
+ (#{match 15661}#
+ (car #{e 15690}#)
+ (car #{p 15691}#)
+ #{w 15692}#
+ (#{match 15661}#
+ (cdr #{e 15690}#)
+ (cdr #{p 15691}#)
+ #{w 15692}#
+ #{r 15693}#
+ #{mod 15694}#)
+ #{mod 15694}#)
#f)
- (if (eq? #{p 4164}# 'each-any)
- (let ((#{l 4184}#
- (#{match-each-any 4055}#
- #{e 4163}#
- #{w 4165}#
- #{mod 4167}#)))
- (if #{l 4184}# (cons #{l 4184}# #{r 4166}#) #f))
- (let ((#{atom-key 4190}# (vector-ref #{p 4164}# 0)))
- (if (memv #{atom-key 4190}# '(each))
- (if (null? #{e 4163}#)
- (#{match-empty 4057}#
- (vector-ref #{p 4164}# 1)
- #{r 4166}#)
- (let ((#{l 4193}#
- (#{match-each 4051}#
- #{e 4163}#
- (vector-ref #{p 4164}# 1)
- #{w 4165}#
- #{mod 4167}#)))
- (if #{l 4193}#
+ (if (eq? #{p 15691}# 'each-any)
+ (let ((#{l 15699}#
+ (#{match-each-any 15657}#
+ #{e 15690}#
+ #{w 15692}#
+ #{mod 15694}#)))
+ (if #{l 15699}#
+ (cons #{l 15699}# #{r 15693}#)
+ #f))
+ (let ((#{atom-key 15704}# (vector-ref #{p 15691}# 0)))
+ (if (eqv? #{atom-key 15704}# 'each)
+ (if (null? #{e 15690}#)
+ (#{match-empty 15658}#
+ (vector-ref #{p 15691}# 1)
+ #{r 15693}#)
+ (let ((#{l 15711}#
+ (#{match-each 15655}#
+ #{e 15690}#
+ (vector-ref #{p 15691}# 1)
+ #{w 15692}#
+ #{mod 15694}#)))
+ (if #{l 15711}#
(letrec*
- ((#{collect 4198}#
- (lambda (#{l 4199}#)
- (if (null? (car #{l 4199}#))
- #{r 4166}#
- (cons (map car #{l 4199}#)
- (#{collect 4198}#
- (map cdr #{l 4199}#)))))))
- (#{collect 4198}# #{l 4193}#))
+ ((#{collect 15714}#
+ (lambda (#{l 15767}#)
+ (if (null? (car #{l 15767}#))
+ #{r 15693}#
+ (cons (map car #{l 15767}#)
+ (#{collect 15714}#
+ (map cdr #{l 15767}#)))))))
+ (#{collect 15714}# #{l 15711}#))
#f)))
- (if (memv #{atom-key 4190}# '(each+))
+ (if (eqv? #{atom-key 15704}# 'each+)
(call-with-values
(lambda ()
- (#{match-each+ 4053}#
- #{e 4163}#
- (vector-ref #{p 4164}# 1)
- (vector-ref #{p 4164}# 2)
- (vector-ref #{p 4164}# 3)
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#))
- (lambda (#{xr* 4201}# #{y-pat 4202}# #{r 4203}#)
- (if #{r 4203}#
- (if (null? #{y-pat 4202}#)
- (if (null? #{xr* 4201}#)
- (#{match-empty 4057}#
- (vector-ref #{p 4164}# 1)
- #{r 4203}#)
- (#{combine 4059}# #{xr* 4201}# #{r 4203}#))
+ (let ((#{x-pat 15776}# (vector-ref #{p 15691}# 1))
+ (#{y-pat 15777}# (vector-ref #{p 15691}# 2))
+ (#{z-pat 15778}# (vector-ref #{p 15691}# 3)))
+ (letrec*
+ ((#{f 15782}#
+ (lambda (#{e 15784}# #{w 15785}#)
+ (if (pair? #{e 15784}#)
+ (call-with-values
+ (lambda ()
+ (#{f 15782}#
+ (cdr #{e 15784}#)
+ #{w 15785}#))
+ (lambda (#{xr* 15786}#
+ #{y-pat 15787}#
+ #{r 15788}#)
+ (if #{r 15788}#
+ (if (null? #{y-pat 15787}#)
+ (let ((#{xr 15789}#
+ (#{match 15661}#
+ (car #{e 15784}#)
+ #{x-pat 15776}#
+ #{w 15785}#
+ '()
+ #{mod 15694}#)))
+ (if #{xr 15789}#
+ (values
+ (cons #{xr 15789}#
+ #{xr* 15786}#)
+ #{y-pat 15787}#
+ #{r 15788}#)
+ (values #f #f #f)))
+ (values
+ '()
+ (cdr #{y-pat 15787}#)
+ (#{match 15661}#
+ (car #{e 15784}#)
+ (car #{y-pat 15787}#)
+ #{w 15785}#
+ #{r 15788}#
+ #{mod 15694}#)))
+ (values #f #f #f))))
+ (if (if (vector? #{e 15784}#)
+ (if (= (vector-length #{e 15784}#)
+ 4)
+ (eq? (vector-ref #{e 15784}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (#{f 15782}#
+ (vector-ref #{e 15784}# 1)
+ (#{join-wraps 4329}#
+ #{w 15785}#
+ #{e 15784}#))
+ (values
+ '()
+ #{y-pat 15777}#
+ (#{match 15661}#
+ #{e 15784}#
+ #{z-pat 15778}#
+ #{w 15785}#
+ #{r 15693}#
+ #{mod 15694}#)))))))
+ (#{f 15782}# #{e 15690}# #{w 15692}#))))
+ (lambda (#{xr* 15817}# #{y-pat 15818}# #{r 15819}#)
+ (if #{r 15819}#
+ (if (null? #{y-pat 15818}#)
+ (if (null? #{xr* 15817}#)
+ (#{match-empty 15658}#
+ (vector-ref #{p 15691}# 1)
+ #{r 15819}#)
+ (#{combine 15659}# #{xr* 15817}# #{r 15819}#))
#f)
#f)))
- (if (memv #{atom-key 4190}# '(free-id))
- (if (if (symbol? #{e 4163}#)
+ (if (eqv? #{atom-key 15704}# 'free-id)
+ (if (if (symbol? #{e 15690}#)
#t
- (if (if (vector? #{e 4163}#)
- (if (= (vector-length #{e 4163}#) 4)
- (eq? (vector-ref #{e 4163}# 0)
+ (if (if (vector? #{e 15690}#)
+ (if (= (vector-length #{e 15690}#) 4)
+ (eq? (vector-ref #{e 15690}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 4163}# 1))
+ (symbol? (vector-ref #{e 15690}# 1))
#f))
- (if (let ((#{i 10362}#
- (#{wrap 423}#
- #{e 4163}#
- #{w 4165}#
- #{mod 4167}#))
- (#{j 10363}# (vector-ref #{p 4164}# 1)))
- (if (eq? (if (if (vector? #{i 10362}#)
+ (if (let ((#{i 16182}#
+ (#{wrap 4338}#
+ #{e 15690}#
+ #{w 15692}#
+ #{mod 15694}#))
+ (#{j 16183}# (vector-ref #{p 15691}# 1)))
+ (if (eq? (if (if (vector? #{i 16182}#)
(if (= (vector-length
- #{i 10362}#)
+ #{i 16182}#)
4)
(eq? (vector-ref
- #{i 10362}#
+ #{i 16182}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 10362}# 1)
- #{i 10362}#)
- (if (if (vector? #{j 10363}#)
+ (vector-ref #{i 16182}# 1)
+ #{i 16182}#)
+ (if (if (vector? #{j 16183}#)
(if (= (vector-length
- #{j 10363}#)
+ #{j 16183}#)
4)
(eq? (vector-ref
- #{j 10363}#
+ #{j 16183}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 10363}# 1)
- #{j 10363}#))
- (eq? (#{id-var-name 411}# #{i 10362}# '(()))
- (#{id-var-name 411}#
- #{j 10363}#
+ (vector-ref #{j 16183}# 1)
+ #{j 16183}#))
+ (eq? (#{id-var-name 4332}#
+ #{i 16182}#
+ '(()))
+ (#{id-var-name 4332}#
+ #{j 16183}#
'(())))
#f))
- #{r 4166}#
+ #{r 15693}#
#f)
#f)
- (if (memv #{atom-key 4190}# '(atom))
+ (if (eqv? #{atom-key 15704}# 'atom)
(if (equal?
- (vector-ref #{p 4164}# 1)
- (#{strip 463}# #{e 4163}# #{w 4165}#))
- #{r 4166}#
+ (vector-ref #{p 15691}# 1)
+ (#{strip 4358}# #{e 15690}# #{w 15692}#))
+ #{r 15693}#
#f)
- (if (memv #{atom-key 4190}# '(vector))
- (if (vector? #{e 4163}#)
- (#{match 4063}#
- (vector->list #{e 4163}#)
- (vector-ref #{p 4164}# 1)
- #{w 4165}#
- #{r 4166}#
- #{mod 4167}#)
+ (if (eqv? #{atom-key 15704}# 'vector)
+ (if (vector? #{e 15690}#)
+ (#{match 15661}#
+ (vector->list #{e 15690}#)
+ (vector-ref #{p 15691}# 1)
+ #{w 15692}#
+ #{r 15693}#
+ #{mod 15694}#)
#f))))))))))))
- (#{match 4063}#
- (lambda (#{e 4220}#
- #{p 4221}#
- #{w 4222}#
- #{r 4223}#
- #{mod 4224}#)
- (if (not #{r 4223}#)
+ (#{match 15661}#
+ (lambda (#{e 16243}#
+ #{p 16244}#
+ #{w 16245}#
+ #{r 16246}#
+ #{mod 16247}#)
+ (if (not #{r 16246}#)
#f
- (if (eq? #{p 4221}# '_)
- #{r 4223}#
- (if (eq? #{p 4221}# 'any)
- (cons (#{wrap 423}# #{e 4220}# #{w 4222}# #{mod 4224}#)
- #{r 4223}#)
- (if (if (vector? #{e 4220}#)
- (if (= (vector-length #{e 4220}#) 4)
- (eq? (vector-ref #{e 4220}# 0) 'syntax-object)
+ (if (eq? #{p 16244}# '_)
+ #{r 16246}#
+ (if (eq? #{p 16244}# 'any)
+ (cons (#{wrap 4338}#
+ #{e 16243}#
+ #{w 16245}#
+ #{mod 16247}#)
+ #{r 16246}#)
+ (if (if (vector? #{e 16243}#)
+ (if (= (vector-length #{e 16243}#) 4)
+ (eq? (vector-ref #{e 16243}# 0) 'syntax-object)
#f)
#f)
- (#{match* 4061}#
- (vector-ref #{e 4220}# 1)
- #{p 4221}#
- (#{join-wraps 405}#
- #{w 4222}#
- (vector-ref #{e 4220}# 2))
- #{r 4223}#
- (vector-ref #{e 4220}# 3))
- (#{match* 4061}#
- #{e 4220}#
- #{p 4221}#
- #{w 4222}#
- #{r 4223}#
- #{mod 4224}#))))))))
+ (#{match* 15660}#
+ (vector-ref #{e 16243}# 1)
+ #{p 16244}#
+ (#{join-wraps 4329}#
+ #{w 16245}#
+ (vector-ref #{e 16243}# 2))
+ #{r 16246}#
+ (vector-ref #{e 16243}# 3))
+ (#{match* 15660}#
+ #{e 16243}#
+ #{p 16244}#
+ #{w 16245}#
+ #{r 16246}#
+ #{mod 16247}#))))))))
(set! $sc-dispatch
- (lambda (#{e 4239}# #{p 4240}#)
- (if (eq? #{p 4240}# 'any)
- (list #{e 4239}#)
- (if (eq? #{p 4240}# '_)
+ (lambda (#{e 15662}# #{p 15663}#)
+ (if (eq? #{p 15663}# 'any)
+ (list #{e 15662}#)
+ (if (eq? #{p 15663}# '_)
'()
- (if (if (vector? #{e 4239}#)
- (if (= (vector-length #{e 4239}#) 4)
- (eq? (vector-ref #{e 4239}# 0) 'syntax-object)
+ (if (if (vector? #{e 15662}#)
+ (if (= (vector-length #{e 15662}#) 4)
+ (eq? (vector-ref #{e 15662}# 0) 'syntax-object)
#f)
#f)
- (#{match* 4061}#
- (vector-ref #{e 4239}# 1)
- #{p 4240}#
- (vector-ref #{e 4239}# 2)
+ (#{match* 15660}#
+ (vector-ref #{e 15662}# 1)
+ #{p 15663}#
+ (vector-ref #{e 15662}# 2)
'()
- (vector-ref #{e 4239}# 3))
- (#{match* 4061}#
- #{e 4239}#
- #{p 4240}#
+ (vector-ref #{e 15662}# 3))
+ (#{match* 15660}#
+ #{e 15662}#
+ #{p 15663}#
'(())
'()
#f)))))))))
@@ -28404,82 +37781,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 10409}#)
- (let ((#{tmp 10412}#
- ($sc-dispatch #{x 10409}# '(_ () any . each-any))))
- (if #{tmp 10412}#
+ (lambda (#{x 28547}#)
+ (let ((#{tmp 28549}#
+ ($sc-dispatch #{x 28547}# '(_ () any . each-any))))
+ (if #{tmp 28549}#
(@apply
- (lambda (#{e1 10415}# #{e2 10416}#)
+ (lambda (#{e1 28553}# #{e2 28554}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10413" "i10414"))
+ #("i28520" "i28521"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
- (cons '() (cons #{e1 10415}# #{e2 10416}#))))
- #{tmp 10412}#)
- (let ((#{tmp 10418}#
+ (cons '() (cons #{e1 28553}# #{e2 28554}#))))
+ #{tmp 28549}#)
+ (let ((#{tmp 28555}#
($sc-dispatch
- #{x 10409}#
+ #{x 28547}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 10418}#
+ (if #{tmp 28555}#
(@apply
- (lambda (#{out 10423}#
- #{in 10424}#
- #{e1 10425}#
- #{e2 10426}#)
+ (lambda (#{out 28559}#
+ #{in 28560}#
+ #{e1 28561}#
+ #{e2 28562}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10419" "i10420" "i10421" "i10422"))
+ #("i28526" "i28527" "i28528" "i28529"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
- #{in 10424}#
+ #{in 28560}#
'()
- (list #{out 10423}#
+ (list #{out 28559}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10419"
- "i10420"
- "i10421"
- "i10422"))
+ #("i28526"
+ "i28527"
+ "i28528"
+ "i28529"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
(cons '()
- (cons #{e1 10425}# #{e2 10426}#))))))
- #{tmp 10418}#)
- (let ((#{tmp 10428}#
+ (cons #{e1 28561}# #{e2 28562}#))))))
+ #{tmp 28555}#)
+ (let ((#{tmp 28563}#
($sc-dispatch
- #{x 10409}#
+ #{x 28547}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 10428}#
+ (if #{tmp 28563}#
(@apply
- (lambda (#{out 10433}#
- #{in 10434}#
- #{e1 10435}#
- #{e2 10436}#)
+ (lambda (#{out 28567}#
+ #{in 28568}#
+ #{e1 28569}#
+ #{e2 28570}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10429" "i10430" "i10431" "i10432"))
+ #("i28536" "i28537" "i28538" "i28539"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -28487,62 +37864,62 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10429" "i10430" "i10431" "i10432"))
+ #("i28536" "i28537" "i28538" "i28539"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10410")))
+ #(ribcage #(x) #((top)) #("i28517")))
(hygiene guile))
- #{in 10434}#)
+ #{in 28568}#)
'()
- (list #{out 10433}#
+ (list #{out 28567}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i10429"
- "i10430"
- "i10431"
- "i10432"))
+ #("i28536"
+ "i28537"
+ "i28538"
+ "i28539"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10410")))
+ #("i28517")))
(hygiene guile))
(cons '()
- (cons #{e1 10435}#
- #{e2 10436}#))))))
- #{tmp 10428}#)
+ (cons #{e1 28569}#
+ #{e2 28570}#))))))
+ #{tmp 28563}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10409}#))))))))))
+ #{x 28547}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 10440}#)
- (let ((#{tmp 10443}#
+ (lambda (#{x 28624}#)
+ (let ((#{tmp 28626}#
($sc-dispatch
- #{x 10440}#
+ #{x 28624}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 10443}#
+ (if #{tmp 28626}#
(@apply
- (lambda (#{k 10448}#
- #{keyword 10449}#
- #{pattern 10450}#
- #{template 10451}#)
+ (lambda (#{k 28630}#
+ #{keyword 28631}#
+ #{pattern 28632}#
+ #{template 28633}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
'(#(syntax-object
x
@@ -28550,9 +37927,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -28561,9 +37938,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
.
#(syntax-object
@@ -28572,9 +37949,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -28582,20 +37959,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- #{pattern 10450}#))
+ #{pattern 28632}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -28603,13 +37980,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i10444" "i10445" "i10446" "i10447"))
+ #("i28587" "i28588" "i28589" "i28590"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- (cons #{k 10448}#
- (map (lambda (#{tmp 10455}#
- #{tmp 10454}#)
+ (cons #{k 28630}#
+ (map (lambda (#{tmp 28598 28634}#
+ #{tmp 28597 28635}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -28622,10 +37999,10 @@
(top)
(top)
(top))
- #("i10444"
- "i10445"
- "i10446"
- "i10447"))
+ #("i28587"
+ "i28588"
+ "i28589"
+ "i28590"))
#(ribcage
()
()
@@ -28633,9 +38010,9 @@
#(ribcage
#(x)
#((top))
- #("i10441")))
+ #("i28584")))
(hygiene guile))
- #{tmp 10454}#)
+ #{tmp 28597 28635}#)
(list '#(syntax-object
syntax
((top)
@@ -28648,10 +38025,10 @@
(top)
(top)
(top))
- #("i10444"
- "i10445"
- "i10446"
- "i10447"))
+ #("i28587"
+ "i28588"
+ "i28589"
+ "i28590"))
#(ribcage
()
()
@@ -28659,41 +38036,41 @@
#(ribcage
#(x)
#((top))
- #("i10441")))
+ #("i28584")))
(hygiene guile))
- #{tmp 10455}#)))
- #{template 10451}#
- #{pattern 10450}#))))))
- #{tmp 10443}#)
- (let ((#{tmp 10456}#
+ #{tmp 28598 28634}#)))
+ #{template 28633}#
+ #{pattern 28632}#))))))
+ #{tmp 28626}#)
+ (let ((#{tmp 28636}#
($sc-dispatch
- #{x 10440}#
+ #{x 28624}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 10456}#
+ (if (if #{tmp 28636}#
(@apply
- (lambda (#{k 10462}#
- #{docstring 10463}#
- #{keyword 10464}#
- #{pattern 10465}#
- #{template 10466}#)
- (string? (syntax->datum #{docstring 10463}#)))
- #{tmp 10456}#)
+ (lambda (#{k 28640}#
+ #{docstring 28641}#
+ #{keyword 28642}#
+ #{pattern 28643}#
+ #{template 28644}#)
+ (string? (syntax->datum #{docstring 28641}#)))
+ #{tmp 28636}#)
#f)
(@apply
- (lambda (#{k 10472}#
- #{docstring 10473}#
- #{keyword 10474}#
- #{pattern 10475}#
- #{template 10476}#)
+ (lambda (#{k 28645}#
+ #{docstring 28646}#
+ #{keyword 28647}#
+ #{pattern 28648}#
+ #{template 28649}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467" "i10468" "i10469" "i10470" "i10471"))
+ #("i28610" "i28611" "i28612" "i28613" "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
'(#(syntax-object
x
@@ -28701,11 +38078,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467" "i10468" "i10469" "i10470" "i10471"))
+ #("i28610" "i28611" "i28612" "i28613" "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
- #{docstring 10473}#
+ #{docstring 28646}#
(vector
'(#(syntax-object
macro-type
@@ -28713,13 +38090,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
.
#(syntax-object
@@ -28728,13 +38105,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -28742,28 +38119,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- #{pattern 10475}#))
+ #{pattern 28648}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -28775,17 +38152,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10441")))
+ #(ribcage #(x) #((top)) #("i28584")))
(hygiene guile))
- (cons #{k 10472}#
- (map (lambda (#{tmp 10480}#
- #{tmp 10479}#)
+ (cons #{k 28645}#
+ (map (lambda (#{tmp 28623 28650}#
+ #{tmp 28622 28651}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -28800,11 +38177,11 @@
(top)
(top)
(top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage
()
()
@@ -28812,10 +38189,10 @@
#(ribcage
#(x)
#((top))
- #("i10441")))
+ #("i28584")))
(hygiene
guile))
- #{tmp 10479}#)
+ #{tmp 28622 28651}#)
(list '#(syntax-object
syntax
((top)
@@ -28830,11 +38207,11 @@
(top)
(top)
(top))
- #("i10467"
- "i10468"
- "i10469"
- "i10470"
- "i10471"))
+ #("i28610"
+ "i28611"
+ "i28612"
+ "i28613"
+ "i28614"))
#(ribcage
()
()
@@ -28842,50 +38219,50 @@
#(ribcage
#(x)
#((top))
- #("i10441")))
+ #("i28584")))
(hygiene
guile))
- #{tmp 10480}#)))
- #{template 10476}#
- #{pattern 10475}#))))))
- #{tmp 10456}#)
+ #{tmp 28623 28650}#)))
+ #{template 28649}#
+ #{pattern 28648}#))))))
+ #{tmp 28636}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10440}#))))))))
+ #{x 28624}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 10481}#)
- (let ((#{tmp 10484}#
- ($sc-dispatch #{x 10481}# '(_ (any . any) any))))
- (if #{tmp 10484}#
+ (lambda (#{x 28688}#)
+ (let ((#{tmp 28690}#
+ ($sc-dispatch #{x 28688}# '(_ (any . any) any))))
+ (if #{tmp 28690}#
(@apply
- (lambda (#{name 10488}#
- #{pattern 10489}#
- #{template 10490}#)
+ (lambda (#{name 28694}#
+ #{pattern 28695}#
+ #{template 28696}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i10485" "i10486" "i10487"))
+ #("i28665" "i28666" "i28667"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
- #{name 10488}#
+ #{name 28694}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i10485" "i10486" "i10487"))
+ #("i28665" "i28666" "i28667"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -28894,54 +38271,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i10485" "i10486" "i10487"))
+ #("i28665" "i28666" "i28667"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
- #{pattern 10489}#)
- #{template 10490}#))))
- #{tmp 10484}#)
- (let ((#{tmp 10491}#
+ #{pattern 28695}#)
+ #{template 28696}#))))
+ #{tmp 28690}#)
+ (let ((#{tmp 28697}#
($sc-dispatch
- #{x 10481}#
+ #{x 28688}#
'(_ (any . any) any any))))
- (if (if #{tmp 10491}#
+ (if (if #{tmp 28697}#
(@apply
- (lambda (#{name 10496}#
- #{pattern 10497}#
- #{docstring 10498}#
- #{template 10499}#)
- (string? (syntax->datum #{docstring 10498}#)))
- #{tmp 10491}#)
+ (lambda (#{name 28701}#
+ #{pattern 28702}#
+ #{docstring 28703}#
+ #{template 28704}#)
+ (string? (syntax->datum #{docstring 28703}#)))
+ #{tmp 28697}#)
#f)
(@apply
- (lambda (#{name 10504}#
- #{pattern 10505}#
- #{docstring 10506}#
- #{template 10507}#)
+ (lambda (#{name 28705}#
+ #{pattern 28706}#
+ #{docstring 28707}#
+ #{template 28708}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i10500" "i10501" "i10502" "i10503"))
+ #("i28680" "i28681" "i28682" "i28683"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
- #{name 10504}#
+ #{name 28705}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i10500" "i10501" "i10502" "i10503"))
+ #("i28680" "i28681" "i28682" "i28683"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10482")))
+ #(ribcage #(x) #((top)) #("i28662")))
(hygiene guile))
'()
- #{docstring 10506}#
+ #{docstring 28707}#
(list (cons '#(syntax-object
_
((top)
@@ -28951,53 +38328,53 @@
docstring
template)
#((top) (top) (top) (top))
- #("i10500"
- "i10501"
- "i10502"
- "i10503"))
+ #("i28680"
+ "i28681"
+ "i28682"
+ "i28683"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10482")))
+ #("i28662")))
(hygiene guile))
- #{pattern 10505}#)
- #{template 10507}#))))
- #{tmp 10491}#)
+ #{pattern 28706}#)
+ #{template 28708}#))))
+ #{tmp 28697}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10481}#))))))))
+ #{x 28688}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 10508}#)
- (let ((#{tmp 10511}#
+ (lambda (#{x 28757}#)
+ (let ((#{tmp 28759}#
($sc-dispatch
- #{x 10508}#
+ #{x 28757}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 10511}#
+ (if (if #{tmp 28759}#
(@apply
- (lambda (#{let* 10517}#
- #{x 10518}#
- #{v 10519}#
- #{e1 10520}#
- #{e2 10521}#)
- (and-map identifier? #{x 10518}#))
- #{tmp 10511}#)
+ (lambda (#{let* 28763}#
+ #{x 28764}#
+ #{v 28765}#
+ #{e1 28766}#
+ #{e2 28767}#)
+ (and-map identifier? #{x 28764}#))
+ #{tmp 28759}#)
#f)
(@apply
- (lambda (#{let* 10528}#
- #{x 10529}#
- #{v 10530}#
- #{e1 10531}#
- #{e2 10532}#)
+ (lambda (#{let* 28768}#
+ #{x 28769}#
+ #{v 28770}#
+ #{e1 28771}#
+ #{e2 28772}#)
(letrec*
- ((#{f 10535}#
- (lambda (#{bindings 10536}#)
- (if (null? #{bindings 10536}#)
+ ((#{f 28773}#
+ (lambda (#{bindings 28776}#)
+ (if (null? #{bindings 28776}#)
(cons '#(syntax-object
let
((top)
@@ -29005,27 +38382,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i10533" "i10534"))
+ #("i28743" "i28744"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i10523"
- "i10524"
- "i10525"
- "i10526"
- "i10527"))
+ #("i28733"
+ "i28734"
+ "i28735"
+ "i28736"
+ "i28737"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10509")))
+ #(ribcage #(x) #((top)) #("i28719")))
(hygiene guile))
- (cons '() (cons #{e1 10531}# #{e2 10532}#)))
- (let ((#{tmp 10541}#
- (list (#{f 10535}# (cdr #{bindings 10536}#))
- (car #{bindings 10536}#))))
- (let ((#{tmp 10542}#
- ($sc-dispatch #{tmp 10541}# '(any any))))
- (if #{tmp 10542}#
+ (cons '() (cons #{e1 28771}# #{e2 28772}#)))
+ (let ((#{tmp 28777}#
+ (list (#{f 28773}# (cdr #{bindings 28776}#))
+ (car #{bindings 28776}#))))
+ (let ((#{tmp 28778}#
+ ($sc-dispatch #{tmp 28777}# '(any any))))
+ (if #{tmp 28778}#
(@apply
- (lambda (#{body 10545}# #{binding 10546}#)
+ (lambda (#{body 28780}# #{binding 28781}#)
(list '#(syntax-object
let
((top)
@@ -29033,86 +38410,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i10543" "i10544"))
+ #("i28753" "i28754"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i10533" "i10534"))
+ #("i28743" "i28744"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i10523"
- "i10524"
- "i10525"
- "i10526"
- "i10527"))
+ #("i28733"
+ "i28734"
+ "i28735"
+ "i28736"
+ "i28737"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10509")))
+ #("i28719")))
(hygiene guile))
- (list #{binding 10546}#)
- #{body 10545}#))
- #{tmp 10542}#)
+ (list #{binding 28781}#)
+ #{body 28780}#))
+ #{tmp 28778}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10541}#))))))))
- (#{f 10535}# (map list #{x 10529}# #{v 10530}#))))
- #{tmp 10511}#)
+ #{tmp 28777}#))))))))
+ (#{f 28773}# (map list #{x 28769}# #{v 28770}#))))
+ #{tmp 28759}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10508}#))))))
+ #{x 28757}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 10548}#)
- (let ((#{tmp 10551}#
+ (lambda (#{orig-x 28839}#)
+ (let ((#{tmp 28841}#
($sc-dispatch
- #{orig-x 10548}#
+ #{orig-x 28839}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 10551}#
+ (if #{tmp 28841}#
(@apply
- (lambda (#{var 10558}#
- #{init 10559}#
- #{step 10560}#
- #{e0 10561}#
- #{e1 10562}#
- #{c 10563}#)
- (let ((#{tmp 10565}#
- (map (lambda (#{v 10586}# #{s 10587}#)
- (let ((#{tmp 10591}#
- ($sc-dispatch #{s 10587}# '())))
- (if #{tmp 10591}#
- (@apply (lambda () #{v 10586}#) #{tmp 10591}#)
- (let ((#{tmp 10592}#
- ($sc-dispatch #{s 10587}# '(any))))
- (if #{tmp 10592}#
+ (lambda (#{var 28845}#
+ #{init 28846}#
+ #{step 28847}#
+ #{e0 28848}#
+ #{e1 28849}#
+ #{c 28850}#)
+ (let ((#{tmp 28851}#
+ (map (lambda (#{v 28854}# #{s 28855}#)
+ (let ((#{tmp 28857}#
+ ($sc-dispatch #{s 28855}# '())))
+ (if #{tmp 28857}#
+ (@apply (lambda () #{v 28854}#) #{tmp 28857}#)
+ (let ((#{tmp 28860}#
+ ($sc-dispatch #{s 28855}# '(any))))
+ (if #{tmp 28860}#
(@apply
- (lambda (#{e 10594}#) #{e 10594}#)
- #{tmp 10592}#)
+ (lambda (#{e 28863}#) #{e 28863}#)
+ #{tmp 28860}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 10548}#
- #{s 10587}#))))))
- #{var 10558}#
- #{step 10560}#)))
- (let ((#{tmp 10566}#
- ($sc-dispatch #{tmp 10565}# 'each-any)))
- (if #{tmp 10566}#
+ #{orig-x 28839}#
+ #{s 28855}#))))))
+ #{var 28845}#
+ #{step 28847}#)))
+ (let ((#{tmp 28852}#
+ ($sc-dispatch #{tmp 28851}# 'each-any)))
+ (if #{tmp 28852}#
(@apply
- (lambda (#{step 10568}#)
- (let ((#{tmp 10570}# ($sc-dispatch #{e1 10562}# '())))
- (if #{tmp 10570}#
+ (lambda (#{step 28869}#)
+ (let ((#{tmp 28871}# ($sc-dispatch #{e1 28849}# '())))
+ (if #{tmp 28871}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -29122,7 +38499,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29131,17 +38508,17 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
'#(syntax-object
doloop
@@ -29150,7 +38527,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29159,19 +38536,19 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- (map list #{var 10558}# #{init 10559}#)
+ (map list #{var 28845}# #{init 28846}#)
(list '#(syntax-object
if
((top)
@@ -29179,7 +38556,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29188,17 +38565,17 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(list '#(syntax-object
not
@@ -29207,7 +38584,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29221,19 +38598,19 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- #{e0 10561}#)
+ #{e0 28848}#)
(cons '#(syntax-object
begin
((top)
@@ -29241,7 +38618,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29255,20 +38632,20 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(append
- #{c 10563}#
+ #{c 28850}#
(list (cons '#(syntax-object
doloop
((top)
@@ -29279,7 +38656,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29293,12 +38670,12 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage
()
()
@@ -29306,30 +38683,30 @@
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene
guile))
- #{step 10568}#)))))))
- #{tmp 10570}#)
- (let ((#{tmp 10575}#
+ #{step 28869}#)))))))
+ #{tmp 28871}#)
+ (let ((#{tmp 28875}#
($sc-dispatch
- #{e1 10562}#
+ #{e1 28849}#
'(any . each-any))))
- (if #{tmp 10575}#
+ (if #{tmp 28875}#
(@apply
- (lambda (#{e1 10578}# #{e2 10579}#)
+ (lambda (#{e1 28879}# #{e2 28880}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576" "i10577"))
+ #("i28816" "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29338,17 +38715,17 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
'#(syntax-object
doloop
@@ -29356,12 +38733,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576" "i10577"))
+ #("i28816" "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29370,33 +38747,33 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(map list
- #{var 10558}#
- #{init 10559}#)
+ #{var 28845}#
+ #{init 28846}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576" "i10577"))
+ #("i28816" "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -29405,32 +38782,32 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- #{e0 10561}#
+ #{e0 28848}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576"
- "i10577"))
+ #("i28816"
+ "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29444,33 +38821,33 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
- (cons #{e1 10578}#
- #{e2 10579}#))
+ (cons #{e1 28879}#
+ #{e2 28880}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i10576"
- "i10577"))
+ #("i28816"
+ "i28817"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29484,20 +38861,20 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene guile))
(append
- #{c 10563}#
+ #{c 28850}#
(list (cons '#(syntax-object
doloop
((top)
@@ -29506,8 +38883,8 @@
e2)
#((top)
(top))
- #("i10576"
- "i10577"))
+ #("i28816"
+ "i28817"))
#(ribcage
()
()
@@ -29515,7 +38892,7 @@
#(ribcage
#(step)
#((top))
- #("i10567"))
+ #("i28807"))
#(ribcage
#(var
init
@@ -29529,12 +38906,12 @@
(top)
(top)
(top))
- #("i10552"
- "i10553"
- "i10554"
- "i10555"
- "i10556"
- "i10557"))
+ #("i28792"
+ "i28793"
+ "i28794"
+ "i28795"
+ "i28796"
+ "i28797"))
#(ribcage
()
()
@@ -29542,36 +38919,36 @@
#(ribcage
#(orig-x)
#((top))
- #("i10549")))
+ #("i28789")))
(hygiene
guile))
- #{step 10568}#)))))))
- #{tmp 10575}#)
+ #{step 28869}#)))))))
+ #{tmp 28875}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 10562}#))))))
- #{tmp 10566}#)
+ #{e1 28849}#))))))
+ #{tmp 28852}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10565}#)))))
- #{tmp 10551}#)
+ #{tmp 28851}#)))))
+ #{tmp 28841}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 10548}#))))))
+ #{orig-x 28839}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 10600}#
- (lambda (#{p 10613}# #{lev 10614}#)
- (let ((#{tmp 10618}#
+ ((#{quasi 29166}#
+ (lambda (#{p 29190}# #{lev 29191}#)
+ (let ((#{tmp 29193}#
($sc-dispatch
- #{p 10613}#
+ #{p 29190}#
'(#(free-id
#(syntax-object
unquote
@@ -29580,7 +38957,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29589,28 +38966,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
any))))
- (if #{tmp 10618}#
+ (if #{tmp 29193}#
(@apply
- (lambda (#{p 10620}#)
- (if (= #{lev 10614}# 0)
+ (lambda (#{p 29197}#)
+ (if (= #{lev 29191}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i10619"))
+ #(ribcage #(p) #((top)) #("i28916"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29619,25 +38996,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{p 10620}#)
- (#{quasicons 10604}#
+ #{p 29197}#)
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10619"))
+ #(ribcage #(p) #((top)) #("i28916"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29646,23 +39023,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i10619"))
+ #(ribcage #(p) #((top)) #("i28916"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29671,21 +39048,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- (list #{p 10620}#)
- (#{1-}# #{lev 10614}#)))))
- #{tmp 10618}#)
- (let ((#{tmp 10621}#
+ (#{quasi 29166}#
+ (list #{p 29197}#)
+ (#{1-}# #{lev 29191}#)))))
+ #{tmp 29193}#)
+ (let ((#{tmp 29200}#
($sc-dispatch
- #{p 10613}#
+ #{p 29190}#
'(#(free-id
#(syntax-object
quasiquote
@@ -29694,7 +39071,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29703,28 +39080,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
any))))
- (if #{tmp 10621}#
+ (if #{tmp 29200}#
(@apply
- (lambda (#{p 10623}#)
- (#{quasicons 10604}#
+ (lambda (#{p 29204}#)
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10622"))
+ #(ribcage #(p) #((top)) #("i28919"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29733,23 +39110,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i10622"))
+ #(ribcage #(p) #((top)) #("i28919"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29758,26 +39135,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- (list #{p 10623}#)
- (#{1+}# #{lev 10614}#))))
- #{tmp 10621}#)
- (let ((#{tmp 10624}#
- ($sc-dispatch #{p 10613}# '(any . any))))
- (if #{tmp 10624}#
+ (#{quasi 29166}#
+ (list #{p 29204}#)
+ (#{1+}# #{lev 29191}#))))
+ #{tmp 29200}#)
+ (let ((#{tmp 29207}#
+ ($sc-dispatch #{p 29190}# '(any . any))))
+ (if #{tmp 29207}#
(@apply
- (lambda (#{p 10627}# #{q 10628}#)
- (let ((#{tmp 10630}#
+ (lambda (#{p 29211}# #{q 29212}#)
+ (let ((#{tmp 29214}#
($sc-dispatch
- #{p 10627}#
+ #{p 29211}#
'(#(free-id
#(syntax-object
unquote
@@ -29785,12 +39162,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29805,38 +39182,38 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10630}#
+ (if #{tmp 29214}#
(@apply
- (lambda (#{p 10632}#)
- (if (= #{lev 10614}# 0)
- (#{quasilist* 10608}#
- (map (lambda (#{tmp 10633}#)
+ (lambda (#{p 29218}#)
+ (if (= #{lev 29191}# 0)
+ (#{quasilist* 29170}#
+ (map (lambda (#{tmp 28930 29254}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10631"))
+ #("i28928"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29851,37 +39228,37 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10633}#))
- #{p 10632}#)
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28930 29254}#))
+ #{p 29218}#)
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i10631"))
+ #("i28928"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29896,13 +39273,13 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote
@@ -29910,16 +39287,16 @@
#(ribcage
#(p)
#((top))
- #("i10631"))
+ #("i28928"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29934,24 +39311,24 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10632}#
- (#{1-}# #{lev 10614}#)))
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))))
- #{tmp 10630}#)
- (let ((#{tmp 10635}#
+ (#{quasi 29166}#
+ #{p 29218}#
+ (#{1-}# #{lev 29191}#)))
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))))
+ #{tmp 29214}#)
+ (let ((#{tmp 29259}#
($sc-dispatch
- #{p 10627}#
+ #{p 29211}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -29959,12 +39336,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -29979,40 +39356,40 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10635}#
+ (if #{tmp 29259}#
(@apply
- (lambda (#{p 10637}#)
- (if (= #{lev 10614}# 0)
- (#{quasiappend 10606}#
- (map (lambda (#{tmp 10638}#)
+ (lambda (#{p 29263}#)
+ (if (= #{lev 29191}# 0)
+ (#{quasiappend 29169}#
+ (map (lambda (#{tmp 28935 29266}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10636"))
+ #("i28933"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625"
- "i10626"))
+ #("i28922"
+ "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615"
- "i10616"))
+ #("i28912"
+ "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30027,37 +39404,37 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10638}#))
- #{p 10637}#)
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28935 29266}#))
+ #{p 29263}#)
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i10636"))
+ #("i28933"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30072,13 +39449,13 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -30086,16 +39463,16 @@
#(ribcage
#(p)
#((top))
- #("i10636"))
+ #("i28933"))
#(ribcage
#(p q)
#((top) (top))
- #("i10625" "i10626"))
+ #("i28922" "i28923"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30110,46 +39487,337 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10637}#
- (#{1-}# #{lev 10614}#)))
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#))))
- #{tmp 10635}#)
- (#{quasicons 10604}#
- (#{quasi 10600}#
- #{p 10627}#
- #{lev 10614}#)
- (#{quasi 10600}#
- #{q 10628}#
- #{lev 10614}#)))))))
- #{tmp 10624}#)
- (let ((#{tmp 10642}#
- ($sc-dispatch #{p 10613}# '#(vector each-any))))
- (if #{tmp 10642}#
+ (#{quasi 29166}#
+ #{p 29263}#
+ (#{1-}# #{lev 29191}#)))
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#))))
+ #{tmp 29259}#)
+ (#{quasicons 29168}#
+ (#{quasi 29166}#
+ #{p 29211}#
+ #{lev 29191}#)
+ (#{quasi 29166}#
+ #{q 29212}#
+ #{lev 29191}#)))))))
+ #{tmp 29207}#)
+ (let ((#{tmp 29280}#
+ ($sc-dispatch #{p 29190}# '#(vector each-any))))
+ (if #{tmp 29280}#
(@apply
- (lambda (#{x 10644}#)
- (#{quasivector 10610}#
- (#{vquasi 10602}# #{x 10644}# #{lev 10614}#)))
- #{tmp 10642}#)
+ (lambda (#{x 29284}#)
+ (let ((#{x 29287}#
+ (#{vquasi 29167}#
+ #{x 29284}#
+ #{lev 29191}#)))
+ (let ((#{tmp 29289}#
+ ($sc-dispatch
+ #{x 29287}#
+ '(#(atom "quote") each-any))))
+ (if #{tmp 29289}#
+ (@apply
+ (lambda (#{x 29293}#)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29040"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29037"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
+ (hygiene guile))
+ (list->vector #{x 29293}#)))
+ #{tmp 29289}#)
+ (letrec*
+ ((#{f 29295}#
+ (lambda (#{y 29307}# #{k 29308}#)
+ (let ((#{tmp 29310}#
+ ($sc-dispatch
+ #{y 29307}#
+ '(#(atom "quote")
+ each-any))))
+ (if #{tmp 29310}#
+ (@apply
+ (lambda (#{y 29313}#)
+ (#{k 29308}#
+ (map (lambda (#{tmp 29065 29314}#)
+ (list '#(syntax-object
+ "quote"
+ ((top)
+ #(ribcage
+ #(y)
+ #((top))
+ #("i29063"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+ y
+ k)
+ #((top)
+ (top)
+ (top))
+ #("i29045"
+ "i29046"
+ "i29047"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("i29043"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29037"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
+ (hygiene
+ guile))
+ #{tmp 29065 29314}#))
+ #{y 29313}#)))
+ #{tmp 29310}#)
+ (let ((#{tmp 29315}#
+ ($sc-dispatch
+ #{y 29307}#
+ '(#(atom "list")
+ .
+ each-any))))
+ (if #{tmp 29315}#
+ (@apply
+ (lambda (#{y 29318}#)
+ (#{k 29308}#
+ #{y 29318}#))
+ #{tmp 29315}#)
+ (let ((#{tmp 29319}#
+ ($sc-dispatch
+ #{y 29307}#
+ '(#(atom "list*")
+ .
+ #(each+
+ any
+ (any)
+ ())))))
+ (if #{tmp 29319}#
+ (@apply
+ (lambda (#{y 29322}#
+ #{z 29323}#)
+ (#{f 29295}#
+ #{z 29323}#
+ (lambda (#{ls 29324}#)
+ (#{k 29308}#
+ (append
+ #{y 29322}#
+ #{ls 29324}#)))))
+ #{tmp 29319}#)
+ (list '#(syntax-object
+ "list->vector"
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(#{ g29080}#)
+ #((m29081
+ top))
+ #("i29084"))
+ #(ribcage
+ #(else)
+ #((top))
+ #("i29078"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f y k)
+ #((top)
+ (top)
+ (top))
+ #("i29045"
+ "i29046"
+ "i29047"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("i29043"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29037"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
+ (hygiene
+ guile))
+ #{x 29287}#))))))))))
+ (#{f 29295}#
+ #{x 29287}#
+ (lambda (#{ls 29297}#)
+ (let ((#{tmp 29299}#
+ ($sc-dispatch
+ #{ls 29297}#
+ 'each-any)))
+ (if #{tmp 29299}#
+ (@apply
+ (lambda (#{ g29053 29302}#)
+ (cons '#(syntax-object
+ "vector"
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(#{ g29053}#)
+ #((m29054 top))
+ #("i29058"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ls)
+ #((top))
+ #("i29052"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("i29043"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i29037"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
+ (hygiene guile))
+ #{ g29053 29302}#))
+ #{tmp 29299}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{ls 29297}#))))))))))
+ #{tmp 29280}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10646"))
+ #(ribcage #(p) #((top)) #("i28943"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10615" "i10616"))
+ #("i28912" "i28913"))
#(ribcage
(emit quasivector
quasilist*
@@ -30164,25 +39832,25 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{p 10613}#)))))))))))
- (#{vquasi 10602}#
- (lambda (#{p 10648}# #{lev 10649}#)
- (let ((#{tmp 10653}#
- ($sc-dispatch #{p 10648}# '(any . any))))
- (if #{tmp 10653}#
+ #{p 29190}#)))))))))))
+ (#{vquasi 29167}#
+ (lambda (#{p 29352}# #{lev 29353}#)
+ (let ((#{tmp 29355}#
+ ($sc-dispatch #{p 29352}# '(any . any))))
+ (if #{tmp 29355}#
(@apply
- (lambda (#{p 10656}# #{q 10657}#)
- (let ((#{tmp 10659}#
+ (lambda (#{p 29359}# #{q 29360}#)
+ (let ((#{tmp 29362}#
($sc-dispatch
- #{p 10656}#
+ #{p 29359}#
'(#(free-id
#(syntax-object
unquote
@@ -30190,12 +39858,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30210,38 +39878,38 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10659}#
+ (if #{tmp 29362}#
(@apply
- (lambda (#{p 10661}#)
- (if (= #{lev 10649}# 0)
- (#{quasilist* 10608}#
- (map (lambda (#{tmp 10662}#)
+ (lambda (#{p 29366}#)
+ (if (= #{lev 29353}# 0)
+ (#{quasilist* 29170}#
+ (map (lambda (#{tmp 28959 29402}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10660"))
+ #("i28957"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30256,32 +39924,32 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10662}#))
- #{p 10661}#)
- (#{vquasi 10602}# #{q 10657}# #{lev 10649}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28959 29402}#))
+ #{p 29366}#)
+ (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10660"))
+ #(ribcage #(p) #((top)) #("i28957"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30296,27 +39964,27 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i10660"))
+ #(ribcage #(p) #((top)) #("i28957"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30331,22 +39999,22 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10661}#
- (#{1-}# #{lev 10649}#)))
- (#{vquasi 10602}# #{q 10657}# #{lev 10649}#))))
- #{tmp 10659}#)
- (let ((#{tmp 10664}#
+ (#{quasi 29166}#
+ #{p 29366}#
+ (#{1-}# #{lev 29353}#)))
+ (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))))
+ #{tmp 29362}#)
+ (let ((#{tmp 29409}#
($sc-dispatch
- #{p 10656}#
+ #{p 29359}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -30354,12 +40022,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30374,38 +40042,38 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 10664}#
+ (if #{tmp 29409}#
(@apply
- (lambda (#{p 10666}#)
- (if (= #{lev 10649}# 0)
- (#{quasiappend 10606}#
- (map (lambda (#{tmp 10667}#)
+ (lambda (#{p 29413}#)
+ (if (= #{lev 29353}# 0)
+ (#{quasiappend 29169}#
+ (map (lambda (#{tmp 28964 29416}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i10665"))
+ #("i28962"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30420,34 +40088,34 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10667}#))
- #{p 10666}#)
- (#{vquasi 10602}#
- #{q 10657}#
- #{lev 10649}#))
- (#{quasicons 10604}#
- (#{quasicons 10604}#
+ #{tmp 28964 29416}#))
+ #{p 29413}#)
+ (#{vquasi 29167}#
+ #{q 29360}#
+ #{lev 29353}#))
+ (#{quasicons 29168}#
+ (#{quasicons 29168}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i10665"))
+ #(ribcage #(p) #((top)) #("i28962"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30462,27 +40130,27 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i10665"))
+ #(ribcage #(p) #((top)) #("i28962"))
#(ribcage
#(p q)
#((top) (top))
- #("i10654" "i10655"))
+ #("i28951" "i28952"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30497,27 +40165,27 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile)))
- (#{quasi 10600}#
- #{p 10666}#
- (#{1-}# #{lev 10649}#)))
- (#{vquasi 10602}#
- #{q 10657}#
- #{lev 10649}#))))
- #{tmp 10664}#)
- (#{quasicons 10604}#
- (#{quasi 10600}# #{p 10656}# #{lev 10649}#)
- (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)))))))
- #{tmp 10653}#)
- (let ((#{tmp 10671}# ($sc-dispatch #{p 10648}# '())))
- (if #{tmp 10671}#
+ (#{quasi 29166}#
+ #{p 29413}#
+ (#{1-}# #{lev 29353}#)))
+ (#{vquasi 29167}#
+ #{q 29360}#
+ #{lev 29353}#))))
+ #{tmp 29409}#)
+ (#{quasicons 29168}#
+ (#{quasi 29166}# #{p 29359}# #{lev 29353}#)
+ (#{vquasi 29167}# #{q 29360}# #{lev 29353}#)))))))
+ #{tmp 29355}#)
+ (let ((#{tmp 29434}# ($sc-dispatch #{p 29352}# '())))
+ (if #{tmp 29434}#
(@apply
(lambda ()
'(#(syntax-object
@@ -30527,7 +40195,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i10650" "i10651"))
+ #("i28947" "i28948"))
#(ribcage
(emit quasivector
quasilist*
@@ -30536,64 +40204,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
()))
- #{tmp 10671}#)
+ #{tmp 29434}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 10648}#)))))))
- (#{quasicons 10604}#
- (lambda (#{x 10672}# #{y 10673}#)
- (let ((#{tmp 10677}# (list #{x 10672}# #{y 10673}#)))
- (let ((#{tmp 10678}#
- ($sc-dispatch #{tmp 10677}# '(any any))))
- (if #{tmp 10678}#
+ #{p 29352}#)))))))
+ (#{quasicons 29168}#
+ (lambda (#{x 29447}# #{y 29448}#)
+ (let ((#{tmp 29449}# (list #{x 29447}# #{y 29448}#)))
+ (let ((#{tmp 29450}#
+ ($sc-dispatch #{tmp 29449}# '(any any))))
+ (if #{tmp 29450}#
(@apply
- (lambda (#{x 10681}# #{y 10682}#)
- (let ((#{tmp 10684}#
+ (lambda (#{x 29452}# #{y 29453}#)
+ (let ((#{tmp 29455}#
($sc-dispatch
- #{y 10682}#
+ #{y 29453}#
'(#(atom "quote") any))))
- (if #{tmp 10684}#
+ (if #{tmp 29455}#
(@apply
- (lambda (#{dy 10686}#)
- (let ((#{tmp 10688}#
+ (lambda (#{dy 29459}#)
+ (let ((#{tmp 29461}#
($sc-dispatch
- #{x 10681}#
+ #{x 29452}#
'(#(atom "quote") any))))
- (if #{tmp 10688}#
+ (if #{tmp 29461}#
(@apply
- (lambda (#{dx 10690}#)
+ (lambda (#{dx 29465}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i10689"))
+ #("i28986"))
#(ribcage
#(dy)
#((top))
- #("i10685"))
+ #("i28982"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30608,39 +40276,39 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (cons #{dx 10690}# #{dy 10686}#)))
- #{tmp 10688}#)
- (if (null? #{dy 10686}#)
+ (cons #{dx 29465}# #{dy 29459}#)))
+ #{tmp 29461}#)
+ (if (null? #{dy 29459}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i10691"))
+ #("i28988"))
#(ribcage
#(dy)
#((top))
- #("i10685"))
+ #("i28982"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30655,37 +40323,37 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10681}#)
+ #{x 29452}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i10691"))
+ #("i28988"))
#(ribcage
#(dy)
#((top))
- #("i10685"))
+ #("i28982"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30700,42 +40368,42 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10681}#
- #{y 10682}#)))))
- #{tmp 10684}#)
- (let ((#{tmp 10693}#
+ #{x 29452}#
+ #{y 29453}#)))))
+ #{tmp 29455}#)
+ (let ((#{tmp 29470}#
($sc-dispatch
- #{y 10682}#
+ #{y 29453}#
'(#(atom "list") . any))))
- (if #{tmp 10693}#
+ (if #{tmp 29470}#
(@apply
- (lambda (#{stuff 10695}#)
+ (lambda (#{stuff 29474}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i10694"))
+ #("i28991"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30750,41 +40418,41 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (cons #{x 10681}# #{stuff 10695}#)))
- #{tmp 10693}#)
- (let ((#{tmp 10696}#
+ (cons #{x 29452}# #{stuff 29474}#)))
+ #{tmp 29470}#)
+ (let ((#{tmp 29475}#
($sc-dispatch
- #{y 10682}#
+ #{y 29453}#
'(#(atom "list*") . any))))
- (if #{tmp 10696}#
+ (if #{tmp 29475}#
(@apply
- (lambda (#{stuff 10698}#)
+ (lambda (#{stuff 29479}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i10697"))
+ #("i28994"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30799,31 +40467,31 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (cons #{x 10681}# #{stuff 10698}#)))
- #{tmp 10696}#)
+ (cons #{x 29452}# #{stuff 29479}#)))
+ #{tmp 29475}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i10699"))
+ #(ribcage #(_) #((top)) #("i28996"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10679" "i10680"))
+ #("i28976" "i28977"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10674" "i10675"))
+ #("i28971" "i28972"))
#(ribcage
(emit quasivector
quasilist*
@@ -30838,29 +40506,29 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10681}#
- #{y 10682}#))))))))
- #{tmp 10678}#)
+ #{x 29452}#
+ #{y 29453}#))))))))
+ #{tmp 29450}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10677}#))))))
- (#{quasiappend 10606}#
- (lambda (#{x 10701}# #{y 10702}#)
- (let ((#{tmp 10706}#
- ($sc-dispatch #{y 10702}# '(#(atom "quote") ()))))
- (if #{tmp 10706}#
+ #{tmp 29449}#))))))
+ (#{quasiappend 29169}#
+ (lambda (#{x 29490}# #{y 29491}#)
+ (let ((#{tmp 29493}#
+ ($sc-dispatch #{y 29491}# '(#(atom "quote") ()))))
+ (if #{tmp 29493}#
(@apply
(lambda ()
- (if (null? #{x 10701}#)
+ (if (null? #{x 29490}#)
'(#(syntax-object
"quote"
((top)
@@ -30868,7 +40536,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i10703" "i10704"))
+ #("i29000" "i29001"))
#(ribcage
(emit quasivector
quasilist*
@@ -30877,32 +40545,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
())
- (if (null? (cdr #{x 10701}#))
- (car #{x 10701}#)
- (let ((#{tmp 10714}#
- ($sc-dispatch #{x 10701}# 'each-any)))
- (if #{tmp 10714}#
+ (if (null? (cdr #{x 29490}#))
+ (car #{x 29490}#)
+ (let ((#{tmp 29498}#
+ ($sc-dispatch #{x 29490}# 'each-any)))
+ (if #{tmp 29498}#
(@apply
- (lambda (#{p 10716}#)
+ (lambda (#{p 29502}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i10715"))
+ #(ribcage #(p) #((top)) #("i29012"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10703" "i10704"))
+ #("i29000" "i29001"))
#(ribcage
(emit quasivector
quasilist*
@@ -30917,29 +40585,29 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{p 10716}#))
- #{tmp 10714}#)
+ #{p 29502}#))
+ #{tmp 29498}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10701}#))))))
- #{tmp 10706}#)
- (if (null? #{x 10701}#)
- #{y 10702}#
- (let ((#{tmp 10724}# (list #{x 10701}# #{y 10702}#)))
- (let ((#{tmp 10725}#
- ($sc-dispatch #{tmp 10724}# '(each-any any))))
- (if #{tmp 10725}#
+ #{x 29490}#))))))
+ #{tmp 29493}#)
+ (if (null? #{x 29490}#)
+ #{y 29491}#
+ (let ((#{tmp 29510}# (list #{x 29490}# #{y 29491}#)))
+ (let ((#{tmp 29511}#
+ ($sc-dispatch #{tmp 29510}# '(each-any any))))
+ (if #{tmp 29511}#
(@apply
- (lambda (#{p 10728}# #{y 10729}#)
+ (lambda (#{p 29513}# #{y 29514}#)
(cons '#(syntax-object
"append"
((top)
@@ -30947,13 +40615,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i10726" "i10727"))
- #(ribcage #(_) #((top)) #("i10718"))
+ #("i29023" "i29024"))
+ #(ribcage #(_) #((top)) #("i29015"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i10703" "i10704"))
+ #("i29000" "i29001"))
#(ribcage
(emit quasivector
quasilist*
@@ -30968,263 +40636,44 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- (append #{p 10728}# (list #{y 10729}#))))
- #{tmp 10725}#)
+ (append #{p 29513}# (list #{y 29514}#))))
+ #{tmp 29511}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10724}#)))))))))
- (#{quasilist* 10608}#
- (lambda (#{x 10731}# #{y 10732}#)
+ #{tmp 29510}#)))))))))
+ (#{quasilist* 29170}#
+ (lambda (#{x 29518}# #{y 29519}#)
(letrec*
- ((#{f 10737}#
- (lambda (#{x 10738}#)
- (if (null? #{x 10738}#)
- #{y 10732}#
- (#{quasicons 10604}#
- (car #{x 10738}#)
- (#{f 10737}# (cdr #{x 10738}#)))))))
- (#{f 10737}# #{x 10731}#))))
- (#{quasivector 10610}#
- (lambda (#{x 10739}#)
- (let ((#{tmp 10742}#
- ($sc-dispatch
- #{x 10739}#
- '(#(atom "quote") each-any))))
- (if #{tmp 10742}#
- (@apply
- (lambda (#{x 10744}#)
- (list '#(syntax-object
- "quote"
- ((top)
- #(ribcage #(x) #((top)) #("i10743"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- (list->vector #{x 10744}#)))
- #{tmp 10742}#)
- (letrec*
- ((#{f 10751}#
- (lambda (#{y 10752}# #{k 10753}#)
- (let ((#{tmp 10765}#
- ($sc-dispatch
- #{y 10752}#
- '(#(atom "quote") each-any))))
- (if #{tmp 10765}#
- (@apply
- (lambda (#{y 10767}#)
- (#{k 10753}#
- (map (lambda (#{tmp 10768}#)
- (list '#(syntax-object
- "quote"
- ((top)
- #(ribcage
- #(y)
- #((top))
- #("i10766"))
- #(ribcage () () ())
- #(ribcage
- #(f y k)
- #((top) (top) (top))
- #("i10748"
- "i10749"
- "i10750"))
- #(ribcage
- #(_)
- #((top))
- #("i10746"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- #{tmp 10768}#))
- #{y 10767}#)))
- #{tmp 10765}#)
- (let ((#{tmp 10769}#
- ($sc-dispatch
- #{y 10752}#
- '(#(atom "list") . each-any))))
- (if #{tmp 10769}#
- (@apply
- (lambda (#{y 10771}#)
- (#{k 10753}# #{y 10771}#))
- #{tmp 10769}#)
- (let ((#{tmp 10773}#
- ($sc-dispatch
- #{y 10752}#
- '(#(atom "list*")
- .
- #(each+ any (any) ())))))
- (if #{tmp 10773}#
- (@apply
- (lambda (#{y 10776}# #{z 10777}#)
- (#{f 10751}#
- #{z 10777}#
- (lambda (#{ls 10778}#)
- (#{k 10753}#
- (append
- #{y 10776}#
- #{ls 10778}#)))))
- #{tmp 10773}#)
- (list '#(syntax-object
- "list->vector"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g10783}#)
- #((m10784 top))
- #("i10787"))
- #(ribcage
- #(else)
- #((top))
- #("i10781"))
- #(ribcage () () ())
- #(ribcage
- #(f y k)
- #((top) (top) (top))
- #("i10748" "i10749" "i10750"))
- #(ribcage
- #(_)
- #((top))
- #("i10746"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- #{x 10739}#))))))))))
- (#{f 10751}#
- #{x 10739}#
- (lambda (#{ls 10754}#)
- (let ((#{tmp 10760}#
- ($sc-dispatch #{ls 10754}# 'each-any)))
- (if #{tmp 10760}#
- (@apply
- (lambda (#{ g10756 10762}#)
- (cons '#(syntax-object
- "vector"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g10756}#)
- #((m10757 top))
- #("i10761"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(ls) #((top)) #("i10755"))
- #(ribcage #(_) #((top)) #("i10746"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10740"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
- (hygiene guile))
- #{ g10756 10762}#))
- #{tmp 10760}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{ls 10754}#))))))))))
- (#{emit 10612}#
- (lambda (#{x 10789}#)
- (let ((#{tmp 10792}#
- ($sc-dispatch #{x 10789}# '(#(atom "quote") any))))
- (if #{tmp 10792}#
+ ((#{f 29520}#
+ (lambda (#{x 29609}#)
+ (if (null? #{x 29609}#)
+ #{y 29519}#
+ (#{quasicons 29168}#
+ (car #{x 29609}#)
+ (#{f 29520}# (cdr #{x 29609}#)))))))
+ (#{f 29520}# #{x 29518}#))))
+ (#{emit 29172}#
+ (lambda (#{x 29612}#)
+ (let ((#{tmp 29614}#
+ ($sc-dispatch #{x 29612}# '(#(atom "quote") any))))
+ (if #{tmp 29614}#
(@apply
- (lambda (#{x 10794}#)
+ (lambda (#{x 29618}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i10793"))
+ #(ribcage #(x) #((top)) #("i29090"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10790"))
+ #(ribcage #(x) #((top)) #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31233,40 +40682,40 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{x 10794}#))
- #{tmp 10792}#)
- (let ((#{tmp 10795}#
+ #{x 29618}#))
+ #{tmp 29614}#)
+ (let ((#{tmp 29619}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "list") . each-any))))
- (if #{tmp 10795}#
+ (if #{tmp 29619}#
(@apply
- (lambda (#{x 10797}#)
- (let ((#{tmp 10801}# (map #{emit 10612}# #{x 10797}#)))
- (let ((#{tmp 10802}#
- ($sc-dispatch #{tmp 10801}# 'each-any)))
- (if #{tmp 10802}#
+ (lambda (#{x 29623}#)
+ (let ((#{tmp 29624}# (map #{emit 29172}# #{x 29623}#)))
+ (let ((#{tmp 29625}#
+ ($sc-dispatch #{tmp 29624}# 'each-any)))
+ (if #{tmp 29625}#
(@apply
- (lambda (#{ g10798 10804}#)
+ (lambda (#{ g29095 29627}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10798}#)
- #((m10799 top))
- #("i10803"))
- #(ribcage #(x) #((top)) #("i10796"))
+ #(#{ g29095}#)
+ #((m29096 top))
+ #("i29100"))
+ #(ribcage #(x) #((top)) #("i29093"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i10790"))
+ #(ribcage #(x) #((top)) #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31281,70 +40730,70 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10798 10804}#))
- #{tmp 10802}#)
+ #{ g29095 29627}#))
+ #{tmp 29625}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10801}#)))))
- #{tmp 10795}#)
- (let ((#{tmp 10807}#
+ #{tmp 29624}#)))))
+ #{tmp 29619}#)
+ (let ((#{tmp 29628}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 10807}#
+ (if #{tmp 29628}#
(@apply
- (lambda (#{x 10810}# #{y 10811}#)
+ (lambda (#{x 29632}# #{y 29633}#)
(letrec*
- ((#{f 10814}#
- (lambda (#{x* 10815}#)
- (if (null? #{x* 10815}#)
- (#{emit 10612}# #{y 10811}#)
- (let ((#{tmp 10821}#
- (list (#{emit 10612}#
- (car #{x* 10815}#))
- (#{f 10814}#
- (cdr #{x* 10815}#)))))
- (let ((#{tmp 10822}#
+ ((#{f 29634}#
+ (lambda (#{x* 29637}#)
+ (if (null? #{x* 29637}#)
+ (#{emit 29172}# #{y 29633}#)
+ (let ((#{tmp 29638}#
+ (list (#{emit 29172}#
+ (car #{x* 29637}#))
+ (#{f 29634}#
+ (cdr #{x* 29637}#)))))
+ (let ((#{tmp 29639}#
($sc-dispatch
- #{tmp 10821}#
+ #{tmp 29638}#
'(any any))))
- (if #{tmp 10822}#
+ (if #{tmp 29639}#
(@apply
- (lambda (#{ g10818 10825}#
- #{ g10817 10826}#)
+ (lambda (#{ g29115 29641}#
+ #{ g29114 29642}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10818}#
- #{ g10817}#)
- #((m10819 top)
- (m10819 top))
- #("i10823" "i10824"))
+ #(#{ g29115}#
+ #{ g29114}#)
+ #((m29116 top)
+ (m29116 top))
+ #("i29120" "i29121"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i10812" "i10813"))
+ #("i29109" "i29110"))
#(ribcage
#(x y)
#((top) (top))
- #("i10808" "i10809"))
+ #("i29105" "i29106"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31359,56 +40808,56 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10818 10825}#
- #{ g10817 10826}#))
- #{tmp 10822}#)
+ #{ g29115 29641}#
+ #{ g29114 29642}#))
+ #{tmp 29639}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10821}#))))))))
- (#{f 10814}# #{x 10810}#)))
- #{tmp 10807}#)
- (let ((#{tmp 10827}#
+ #{tmp 29638}#))))))))
+ (#{f 29634}# #{x 29632}#)))
+ #{tmp 29628}#)
+ (let ((#{tmp 29643}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "append") . each-any))))
- (if #{tmp 10827}#
+ (if #{tmp 29643}#
(@apply
- (lambda (#{x 10829}#)
- (let ((#{tmp 10833}#
- (map #{emit 10612}# #{x 10829}#)))
- (let ((#{tmp 10834}#
+ (lambda (#{x 29647}#)
+ (let ((#{tmp 29648}#
+ (map #{emit 29172}# #{x 29647}#)))
+ (let ((#{tmp 29649}#
($sc-dispatch
- #{tmp 10833}#
+ #{tmp 29648}#
'each-any)))
- (if #{tmp 10834}#
+ (if #{tmp 29649}#
(@apply
- (lambda (#{ g10830 10836}#)
+ (lambda (#{ g29127 29651}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10830}#)
- #((m10831 top))
- #("i10835"))
+ #(#{ g29127}#)
+ #((m29128 top))
+ #("i29132"))
#(ribcage
#(x)
#((top))
- #("i10828"))
+ #("i29125"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31423,54 +40872,54 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10830 10836}#))
- #{tmp 10834}#)
+ #{ g29127 29651}#))
+ #{tmp 29649}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10833}#)))))
- #{tmp 10827}#)
- (let ((#{tmp 10839}#
+ #{tmp 29648}#)))))
+ #{tmp 29643}#)
+ (let ((#{tmp 29652}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "vector") . each-any))))
- (if #{tmp 10839}#
+ (if #{tmp 29652}#
(@apply
- (lambda (#{x 10841}#)
- (let ((#{tmp 10845}#
- (map #{emit 10612}# #{x 10841}#)))
- (let ((#{tmp 10846}#
+ (lambda (#{x 29656}#)
+ (let ((#{tmp 29657}#
+ (map #{emit 29172}# #{x 29656}#)))
+ (let ((#{tmp 29658}#
($sc-dispatch
- #{tmp 10845}#
+ #{tmp 29657}#
'each-any)))
- (if #{tmp 10846}#
+ (if #{tmp 29658}#
(@apply
- (lambda (#{ g10842 10848}#)
+ (lambda (#{ g29139 29660}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10842}#)
- #((m10843 top))
- #("i10847"))
+ #(#{ g29139}#)
+ #((m29140 top))
+ #("i29144"))
#(ribcage
#(x)
#((top))
- #("i10840"))
+ #("i29137"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31485,47 +40934,47 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{ g10842 10848}#))
- #{tmp 10846}#)
+ #{ g29139 29660}#))
+ #{tmp 29658}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 10845}#)))))
- #{tmp 10839}#)
- (let ((#{tmp 10851}#
+ #{tmp 29657}#)))))
+ #{tmp 29652}#)
+ (let ((#{tmp 29661}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "list->vector") any))))
- (if #{tmp 10851}#
+ (if #{tmp 29661}#
(@apply
- (lambda (#{x 10853}#)
- (let ((#{tmp 10857}#
- (#{emit 10612}# #{x 10853}#)))
+ (lambda (#{x 29665}#)
+ (let ((#{tmp 29666}#
+ (#{emit 29172}# #{x 29665}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g10854}#)
- #((m10855 top))
- #("i10858"))
+ #(#{ g29151}#)
+ #((m29152 top))
+ #("i29155"))
#(ribcage
#(x)
#((top))
- #("i10852"))
+ #("i29149"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i10790"))
+ #("i29087"))
#(ribcage
(emit quasivector
quasilist*
@@ -31540,187 +40989,188 @@
(top)
(top)
(top))
- ("i10611"
- "i10609"
- "i10607"
- "i10605"
- "i10603"
- "i10601"
- "i10599")))
+ ("i28908"
+ "i28906"
+ "i28904"
+ "i28902"
+ "i28900"
+ "i28898"
+ "i28896")))
(hygiene guile))
- #{tmp 10857}#)))
- #{tmp 10851}#)
- (let ((#{tmp 10860}#
+ #{tmp 29666}#)))
+ #{tmp 29661}#)
+ (let ((#{tmp 29669}#
($sc-dispatch
- #{x 10789}#
+ #{x 29612}#
'(#(atom "value") any))))
- (if #{tmp 10860}#
+ (if #{tmp 29669}#
(@apply
- (lambda (#{x 10862}#) #{x 10862}#)
- #{tmp 10860}#)
+ (lambda (#{x 29673}#) #{x 29673}#)
+ #{tmp 29669}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10789}#))))))))))))))))))
- (lambda (#{x 10863}#)
- (let ((#{tmp 10866}#
- ($sc-dispatch #{x 10863}# '(_ any))))
- (if #{tmp 10866}#
+ #{x 29612}#))))))))))))))))))
+ (lambda (#{x 29173}#)
+ (let ((#{tmp 29175}#
+ ($sc-dispatch #{x 29173}# '(_ any))))
+ (if #{tmp 29175}#
(@apply
- (lambda (#{e 10868}#)
- (#{emit 10612}# (#{quasi 10600}# #{e 10868}# 0)))
- #{tmp 10866}#)
+ (lambda (#{e 29179}#)
+ (#{emit 29172}# (#{quasi 29166}# #{e 29179}# 0)))
+ #{tmp 29175}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 10863}#)))))))
+ #{x 29173}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 10939}#)
- (let ((#{tmp 10956}#
- ($sc-dispatch #{x 10939}# '(any any))))
- (if #{tmp 10956}#
- (@apply
- (lambda (#{k 10959}# #{filename 10960}#)
- (let ((#{fn 10962}# (syntax->datum #{filename 10960}#)))
- (let ((#{tmp 10964}#
- ((lambda (#{fn 10943}# #{k 10944}#)
- (let ((#{p 10948}# (open-input-file #{fn 10943}#)))
- (letrec*
- ((#{f 10952}#
- (lambda (#{x 10953}# #{result 10954}#)
- (if (eof-object? #{x 10953}#)
- (begin
- (close-input-port #{p 10948}#)
- (reverse #{result 10954}#))
- (#{f 10952}#
- (read #{p 10948}#)
- (cons (datum->syntax
- #{k 10944}#
- #{x 10953}#)
- #{result 10954}#))))))
- (#{f 10952}# (read #{p 10948}#) '()))))
- #{fn 10962}#
- #{filename 10960}#)))
- (let ((#{tmp 10965}#
- ($sc-dispatch #{tmp 10964}# 'each-any)))
- (if #{tmp 10965}#
- (@apply
- (lambda (#{exp 10967}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i10966"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i10961"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i10957" "i10958"))
- #(ribcage (read-file) ((top)) ("i10941"))
- #(ribcage #(x) #((top)) #("i10940")))
- (hygiene guile))
- #{exp 10967}#))
- #{tmp 10965}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 10964}#))))))
- #{tmp 10956}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{x 10939}#))))))
+ (lambda (#{x 29728}#)
+ (letrec*
+ ((#{read-file 29729}#
+ (lambda (#{fn 29840}# #{k 29841}#)
+ (let ((#{p 29842}# (open-input-file #{fn 29840}#)))
+ (letrec*
+ ((#{f 29843}#
+ (lambda (#{x 29897}# #{result 29898}#)
+ (if (eof-object? #{x 29897}#)
+ (begin
+ (close-input-port #{p 29842}#)
+ (reverse #{result 29898}#))
+ (#{f 29843}#
+ (read #{p 29842}#)
+ (cons (datum->syntax #{k 29841}# #{x 29897}#)
+ #{result 29898}#))))))
+ (#{f 29843}# (read #{p 29842}#) '()))))))
+ (let ((#{tmp 29731}#
+ ($sc-dispatch #{x 29728}# '(any any))))
+ (if #{tmp 29731}#
+ (@apply
+ (lambda (#{k 29735}# #{filename 29736}#)
+ (let ((#{fn 29737}# (syntax->datum #{filename 29736}#)))
+ (let ((#{tmp 29738}#
+ (#{read-file 29729}#
+ #{fn 29737}#
+ #{filename 29736}#)))
+ (let ((#{tmp 29739}#
+ ($sc-dispatch #{tmp 29738}# 'each-any)))
+ (if #{tmp 29739}#
+ (@apply
+ (lambda (#{exp 29757}#)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(exp) #((top)) #("i29725"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(fn) #((top)) #("i29720"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
+ #("i29716" "i29717"))
+ #(ribcage (read-file) ((top)) ("i29700"))
+ #(ribcage #(x) #((top)) #("i29699")))
+ (hygiene guile))
+ #{exp 29757}#))
+ #{tmp 29739}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 29738}#))))))
+ #{tmp 29731}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{x 29728}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 11064}#)
- (let ((#{tmp 11067}#
- ($sc-dispatch #{x 11064}# '(any any))))
- (if #{tmp 11067}#
+ (lambda (#{x 29917}#)
+ (let ((#{tmp 29919}#
+ ($sc-dispatch #{x 29917}# '(any any))))
+ (if #{tmp 29919}#
(@apply
- (lambda (#{k 11070}# #{filename 11071}#)
- (let ((#{fn 11073}# (syntax->datum #{filename 11071}#)))
- (let ((#{tmp 11075}#
+ (lambda (#{k 29923}# #{filename 29924}#)
+ (let ((#{fn 29925}# (syntax->datum #{filename 29924}#)))
+ (let ((#{tmp 29926}#
(datum->syntax
- #{filename 11071}#
- (let ((#{t 11080}# (%search-load-path #{fn 11073}#)))
- (if #{t 11080}#
- #{t 11080}#
+ #{filename 29924}#
+ (let ((#{t 29929}# (%search-load-path #{fn 29925}#)))
+ (if #{t 29929}#
+ #{t 29929}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 11064}#
- #{filename 11071}#))))))
+ #{x 29917}#
+ #{filename 29924}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i11076"))
+ #(ribcage #(fn) #((top)) #("i29911"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i11072"))
+ #(ribcage #(fn) #((top)) #("i29907"))
#(ribcage
#(k filename)
#((top) (top))
- #("i11068" "i11069"))
+ #("i29903" "i29904"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11065")))
+ #(ribcage #(x) #((top)) #("i29900")))
(hygiene guile))
- #{tmp 11075}#))))
- #{tmp 11067}#)
+ #{tmp 29926}#))))
+ #{tmp 29919}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11064}#))))))
+ #{x 29917}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 11082}#)
+ (lambda (#{x 29938}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 11082}#))))
+ #{x 29938}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 11084}#)
+ (lambda (#{x 29941}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 11084}#))))
+ #{x 29941}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 11086}#)
- (let ((#{tmp 11089}#
+ (lambda (#{x 29997}#)
+ (let ((#{tmp 29999}#
($sc-dispatch
- #{x 11086}#
+ #{x 29997}#
'(_ any any . each-any))))
- (if #{tmp 11089}#
+ (if #{tmp 29999}#
(@apply
- (lambda (#{e 11093}# #{m1 11094}# #{m2 11095}#)
- (let ((#{tmp 11097}#
+ (lambda (#{e 30003}# #{m1 30004}# #{m2 30005}#)
+ (let ((#{tmp 30006}#
(letrec*
- ((#{f 11103}#
- (lambda (#{clause 11104}# #{clauses 11105}#)
- (if (null? #{clauses 11105}#)
- (let ((#{tmp 11108}#
+ ((#{f 30052}#
+ (lambda (#{clause 30055}# #{clauses 30056}#)
+ (if (null? #{clauses 30056}#)
+ (let ((#{tmp 30058}#
($sc-dispatch
- #{clause 11104}#
+ #{clause 30055}#
'(#(free-id
#(syntax-object
else
@@ -31729,91 +41179,91 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 11108}#
+ (if #{tmp 30058}#
(@apply
- (lambda (#{e1 11111}# #{e2 11112}#)
+ (lambda (#{e1 30062}# #{e2 30063}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i11109" "i11110"))
+ #("i29965" "i29966"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- (cons #{e1 11111}# #{e2 11112}#)))
- #{tmp 11108}#)
- (let ((#{tmp 11114}#
+ (cons #{e1 30062}# #{e2 30063}#)))
+ #{tmp 30058}#)
+ (let ((#{tmp 30064}#
($sc-dispatch
- #{clause 11104}#
+ #{clause 30055}#
'(each-any any . each-any))))
- (if #{tmp 11114}#
+ (if #{tmp 30064}#
(@apply
- (lambda (#{k 11118}#
- #{e1 11119}#
- #{e2 11120}#)
+ (lambda (#{k 30068}#
+ #{e1 30069}#
+ #{e2 30070}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -31823,9 +41273,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f
@@ -31834,22 +41284,22 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
'#(syntax-object
t
@@ -31859,9 +41309,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f
@@ -31870,22 +41320,22 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -31895,9 +41345,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage
()
()
@@ -31909,17 +41359,17 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage
()
()
@@ -31927,10 +41377,10 @@
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene
guile))
- #{k 11118}#))
+ #{k 30068}#))
(cons '#(syntax-object
begin
((top)
@@ -31939,9 +41389,9 @@
#((top)
(top)
(top))
- #("i11115"
- "i11116"
- "i11117"))
+ #("i29971"
+ "i29972"
+ "i29973"))
#(ribcage () () ())
#(ribcage
#(f
@@ -31950,76 +41400,76 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- (cons #{e1 11119}#
- #{e2 11120}#))))
- #{tmp 11114}#)
+ (cons #{e1 30069}#
+ #{e2 30070}#))))
+ #{tmp 30064}#)
(syntax-violation
'case
"bad clause"
- #{x 11086}#
- #{clause 11104}#)))))
- (let ((#{tmp 11126}#
- (#{f 11103}#
- (car #{clauses 11105}#)
- (cdr #{clauses 11105}#))))
- (let ((#{tmp 11130}#
+ #{x 29997}#
+ #{clause 30055}#)))))
+ (let ((#{tmp 30078}#
+ (#{f 30052}#
+ (car #{clauses 30056}#)
+ (cdr #{clauses 30056}#))))
+ (let ((#{tmp 30081}#
($sc-dispatch
- #{clause 11104}#
+ #{clause 30055}#
'(each-any any . each-any))))
- (if #{tmp 11130}#
+ (if #{tmp 30081}#
(@apply
- (lambda (#{k 11134}#
- #{e1 11135}#
- #{e2 11136}#)
+ (lambda (#{k 30085}#
+ #{e1 30086}#
+ #{e2 30087}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -32027,32 +41477,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
'#(syntax-object
t
@@ -32060,32 +41510,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -32095,9 +41545,9 @@
#((top)
(top)
(top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage
()
()
@@ -32105,7 +41555,7 @@
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage
()
()
@@ -32117,17 +41567,17 @@
#((top)
(top)
(top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage
()
()
@@ -32135,231 +41585,232 @@
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- #{k 11134}#))
+ #{k 30085}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i11131"
- "i11132"
- "i11133"))
+ #("i29987"
+ "i29988"
+ "i29989"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i11127"))
+ #("i29983"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i11100"
- "i11101"
- "i11102"))
+ #("i29956"
+ "i29957"
+ "i29958"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i11090"
- "i11091"
- "i11092"))
+ #("i29946"
+ "i29947"
+ "i29948"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11087")))
+ #("i29943")))
(hygiene guile))
- (cons #{e1 11135}#
- #{e2 11136}#))
- #{tmp 11126}#))
- #{tmp 11130}#)
+ (cons #{e1 30086}#
+ #{e2 30087}#))
+ #{tmp 30078}#))
+ #{tmp 30081}#)
(syntax-violation
'case
"bad clause"
- #{x 11086}#
- #{clause 11104}#))))))))
- (#{f 11103}# #{m1 11094}# #{m2 11095}#))))
- (list '#(syntax-object
- let
- ((top)
- #(ribcage () () ())
- #(ribcage #(body) #((top)) #("i11098"))
- #(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i11090" "i11091" "i11092"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11087")))
- (hygiene guile))
- (list (list '#(syntax-object
- t
- ((top)
- #(ribcage () () ())
- #(ribcage #(body) #((top)) #("i11098"))
- #(ribcage
- #(e m1 m2)
- #((top) (top) (top))
- #("i11090" "i11091" "i11092"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11087")))
- (hygiene guile))
- #{e 11093}#))
- #{tmp 11097}#)))
- #{tmp 11089}#)
+ #{x 29997}#
+ #{clause 30055}#))))))))
+ (#{f 30052}# #{m1 30004}# #{m2 30005}#))))
+ (let ((#{body 30007}# #{tmp 30006}#))
+ (list '#(syntax-object
+ let
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(body) #((top)) #("i29954"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i29946" "i29947" "i29948"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i29943")))
+ (hygiene guile))
+ (list (list '#(syntax-object
+ t
+ ((top)
+ #(ribcage () () ())
+ #(ribcage #(body) #((top)) #("i29954"))
+ #(ribcage
+ #(e m1 m2)
+ #((top) (top) (top))
+ #("i29946" "i29947" "i29948"))
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i29943")))
+ (hygiene guile))
+ #{e 30003}#))
+ #{body 30007}#))))
+ #{tmp 29999}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11086}#))))))
+ #{x 29997}#))))))
(define make-variable-transformer
- (lambda (#{proc 11142}#)
- (if (procedure? #{proc 11142}#)
+ (lambda (#{proc 30105}#)
+ (if (procedure? #{proc 30105}#)
(letrec*
- ((#{trans 11145}#
- (lambda (#{x 11146}#)
- (#{proc 11142}# #{x 11146}#))))
+ ((#{trans 30106}#
+ (lambda (#{x 30112}#)
+ (#{proc 30105}# #{x 30112}#))))
(begin
(set-procedure-property!
- #{trans 11145}#
+ #{trans 30106}#
'variable-transformer
#t)
- #{trans 11145}#))
+ #{trans 30106}#))
(error "variable transformer not a procedure"
- #{proc 11142}#))))
+ #{proc 30105}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 11152}#)
- (let ((#{tmp 11155}#
- ($sc-dispatch #{x 11152}# '(_ any))))
- (if #{tmp 11155}#
+ (lambda (#{x 30144}#)
+ (let ((#{tmp 30146}#
+ ($sc-dispatch #{x 30144}# '(_ any))))
+ (if #{tmp 30146}#
(@apply
- (lambda (#{e 11157}#)
+ (lambda (#{e 30150}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
- #{e 11157}#))
+ #{e 30150}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i11156"))
+ #(ribcage #(e) #((top)) #("i30119"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
- (cons #{e 11157}#
+ (cons #{e 30150}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i11156"))
+ #("i30119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
#(syntax-object
...
@@ -32367,55 +41818,55 @@
#(ribcage
#(e)
#((top))
- #("i11156"))
+ #("i30119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile)))))))))
- #{tmp 11155}#)
- (let ((#{tmp 11158}#
+ #{tmp 30146}#)
+ (let ((#{tmp 30151}#
($sc-dispatch
- #{x 11152}#
+ #{x 30144}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 11158}#
+ (if (if #{tmp 30151}#
(@apply
- (lambda (#{id 11164}#
- #{exp1 11165}#
- #{var 11166}#
- #{val 11167}#
- #{exp2 11168}#)
- (if (identifier? #{id 11164}#)
- (identifier? #{var 11166}#)
+ (lambda (#{id 30155}#
+ #{exp1 30156}#
+ #{var 30157}#
+ #{val 30158}#
+ #{exp2 30159}#)
+ (if (identifier? #{id 30155}#)
+ (identifier? #{var 30157}#)
#f))
- #{tmp 11158}#)
+ #{tmp 30151}#)
#f)
(@apply
- (lambda (#{id 11176}#
- #{exp1 11177}#
- #{var 11178}#
- #{val 11179}#
- #{exp2 11180}#)
+ (lambda (#{id 30160}#
+ #{exp1 30161}#
+ #{var 30162}#
+ #{val 30163}#
+ #{exp2 30164}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171" "i11172" "i11173" "i11174" "i11175"))
+ #("i30134" "i30135" "i30136" "i30137" "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -32423,13 +41874,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
x
@@ -32437,13 +41888,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -32451,13 +41902,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
.
#(syntax-object
@@ -32466,13 +41917,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -32480,13 +41931,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'#(syntax-object
x
@@ -32494,13 +41945,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile))
'(#(syntax-object
set!
@@ -32508,13 +41959,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11153")))
+ #(ribcage #(x) #((top)) #("i30116")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -32526,19 +41977,19 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{var 11178}#
- #{val 11179}#)
+ #{var 30162}#
+ #{val 30163}#)
(list '#(syntax-object
syntax
((top)
@@ -32549,19 +42000,19 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{exp2 11180}#))
- (list (cons #{id 11176}#
+ #{exp2 30164}#))
+ (list (cons #{id 30160}#
'(#(syntax-object
x
((top)
@@ -32572,16 +42023,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
#(syntax-object
...
@@ -32593,16 +42044,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -32614,18 +42065,18 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- (cons #{exp1 11177}#
+ (cons #{exp1 30161}#
'(#(syntax-object
x
((top)
@@ -32640,16 +42091,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
#(syntax-object
...
@@ -32665,18 +42116,18 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))))))
- (list #{id 11176}#
+ (list #{id 30160}#
(list '#(syntax-object
identifier?
((top)
@@ -32687,16 +42138,16 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -32712,18 +42163,18 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{id 11176}#))
+ #{id 30160}#))
(list '#(syntax-object
syntax
((top)
@@ -32734,68 +42185,68 @@
(top)
(top)
(top))
- #("i11171"
- "i11172"
- "i11173"
- "i11174"
- "i11175"))
+ #("i30134"
+ "i30135"
+ "i30136"
+ "i30137"
+ "i30138"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i11153")))
+ #("i30116")))
(hygiene guile))
- #{exp1 11177}#))))))
- #{tmp 11158}#)
+ #{exp1 30161}#))))))
+ #{tmp 30151}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11152}#))))))))
+ #{x 30144}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 11181}#)
- (let ((#{tmp 11184}#
+ (lambda (#{x 30196}#)
+ (let ((#{tmp 30198}#
($sc-dispatch
- #{x 11181}#
+ #{x 30196}#
'(_ (any . any) any . each-any))))
- (if #{tmp 11184}#
+ (if #{tmp 30198}#
(@apply
- (lambda (#{id 11189}#
- #{args 11190}#
- #{b0 11191}#
- #{b1 11192}#)
+ (lambda (#{id 30202}#
+ #{args 30203}#
+ #{b0 30204}#
+ #{b1 30205}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i11185" "i11186" "i11187" "i11188"))
+ #("i30178" "i30179" "i30180" "i30181"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))
- #{id 11189}#
+ #{id 30202}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i11185" "i11186" "i11187" "i11188"))
+ #("i30178" "i30179" "i30180" "i30181"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))
- (cons #{args 11190}#
- (cons #{b0 11191}# #{b1 11192}#)))))
- #{tmp 11184}#)
- (let ((#{tmp 11194}#
- ($sc-dispatch #{x 11181}# '(_ any any))))
- (if (if #{tmp 11194}#
+ (cons #{args 30203}#
+ (cons #{b0 30204}# #{b1 30205}#)))))
+ #{tmp 30198}#)
+ (let ((#{tmp 30206}#
+ ($sc-dispatch #{x 30196}# '(_ any any))))
+ (if (if #{tmp 30206}#
(@apply
- (lambda (#{id 11197}# #{val 11198}#)
+ (lambda (#{id 30210}# #{val 30211}#)
(identifier?
'#(syntax-object
x
@@ -32803,29 +42254,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i11195" "i11196"))
+ #("i30188" "i30189"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))))
- #{tmp 11194}#)
+ #{tmp 30206}#)
#f)
(@apply
- (lambda (#{id 11201}# #{val 11202}#)
+ (lambda (#{id 30212}# #{val 30213}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i11199" "i11200"))
+ #("i30192" "i30193"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i11182")))
+ #(ribcage #(x) #((top)) #("i30175")))
(hygiene guile))
- #{id 11201}#
- #{val 11202}#))
- #{tmp 11194}#)
+ #{id 30212}#
+ #{val 30213}#))
+ #{tmp 30206}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 11181}#))))))))
+ #{x 30196}#))))))))