(eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) (letrec* ((#{and-map*\ 38}# (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#) (begin (let ((#{t\ 210}# (null? #{first\ 203}#))) (if #{t\ 210}# #{t\ 210}# (if (null? #{rest\ 204}#) (letrec* ((#{andmap\ 214}# (lambda (#{first\ 215}#) (begin (let ((#{x\ 218}# (car #{first\ 215}#)) (#{first\ 219}# (cdr #{first\ 215}#))) (if (null? #{first\ 219}#) (#{f\ 202}# #{x\ 218}#) (if (#{f\ 202}# #{x\ 218}#) (#{andmap\ 214}# #{first\ 219}#) #f))))))) (begin (#{andmap\ 214}# #{first\ 203}#))) (letrec* ((#{andmap\ 225}# (lambda (#{first\ 226}# #{rest\ 227}#) (begin (let ((#{x\ 232}# (car #{first\ 226}#)) (#{xr\ 233}# (map car #{rest\ 227}#)) (#{first\ 234}# (cdr #{first\ 226}#)) (#{rest\ 235}# (map cdr #{rest\ 227}#))) (if (null? #{first\ 234}#) (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) (if (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) (#{andmap\ 225}# #{first\ 234}# #{rest\ 235}#) #f))))))) (begin (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#)))))))))) (begin (let ((#{make-primitive-ref\ 244}# (if #f #f)) (#{fx+\ 283}# (if #f #f)) (#{fx-\ 285}# (if #f #f)) (#{fx=\ 287}# (if #f #f)) (#{fx<\ 289}# (if #f #f)) (#{set-syntax-object-expression!\ 354}# (if #f #f)) (#{set-syntax-object-wrap!\ 356}# (if #f #f)) (#{set-syntax-object-module!\ 358}# (if #f #f)) (#{ribcage?\ 400}# (if #f #f))) (letrec* ((#{make-void\ 240}# (lambda (#{src\ 750}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #{src\ 750}#))) (#{make-const\ 242}# (lambda (#{src\ 752}# #{exp\ 753}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #{src\ 752}# #{exp\ 753}#))) (#{make-lexical-ref\ 246}# (lambda (#{src\ 760}# #{name\ 761}# #{gensym\ 762}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) #{src\ 760}# #{name\ 761}# #{gensym\ 762}#))) (#{make-lexical-set\ 248}# (lambda (#{src\ 766}# #{name\ 767}# #{gensym\ 768}# #{exp\ 769}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) #{src\ 766}# #{name\ 767}# #{gensym\ 768}# #{exp\ 769}#))) (#{make-module-ref\ 250}# (lambda (#{src\ 774}# #{mod\ 775}# #{name\ 776}# #{public?\ 777}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #{src\ 774}# #{mod\ 775}# #{name\ 776}# #{public?\ 777}#))) (#{make-module-set\ 252}# (lambda (#{src\ 782}# #{mod\ 783}# #{name\ 784}# #{public?\ 785}# #{exp\ 786}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) #{src\ 782}# #{mod\ 783}# #{name\ 784}# #{public?\ 785}# #{exp\ 786}#))) (#{make-toplevel-ref\ 254}# (lambda (#{src\ 792}# #{name\ 793}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) #{src\ 792}# #{name\ 793}#))) (#{make-toplevel-set\ 256}# (lambda (#{src\ 796}# #{name\ 797}# #{exp\ 798}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) #{src\ 796}# #{name\ 797}# #{exp\ 798}#))) (#{make-toplevel-define\ 258}# (lambda (#{src\ 802}# #{name\ 803}# #{exp\ 804}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) #{src\ 802}# #{name\ 803}# #{exp\ 804}#))) (#{make-conditional\ 260}# (lambda (#{src\ 808}# #{test\ 809}# #{consequent\ 810}# #{alternate\ 811}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) #{src\ 808}# #{test\ 809}# #{consequent\ 810}# #{alternate\ 811}#))) (#{make-application\ 262}# (lambda (#{src\ 816}# #{proc\ 817}# #{args\ 818}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) #{src\ 816}# #{proc\ 817}# #{args\ 818}#))) (#{make-sequence\ 264}# (lambda (#{src\ 822}# #{exps\ 823}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #{src\ 822}# #{exps\ 823}#))) (#{make-lambda\ 266}# (lambda (#{src\ 826}# #{meta\ 827}# #{body\ 828}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) #{src\ 826}# #{meta\ 827}# #{body\ 828}#))) (#{make-lambda-case\ 268}# (lambda (#{src\ 832}# #{req\ 833}# #{opt\ 834}# #{rest\ 835}# #{kw\ 836}# #{inits\ 837}# #{gensyms\ 838}# #{body\ 839}# #{alternate\ 840}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) #{src\ 832}# #{req\ 833}# #{opt\ 834}# #{rest\ 835}# #{kw\ 836}# #{inits\ 837}# #{gensyms\ 838}# #{body\ 839}# #{alternate\ 840}#))) (#{make-let\ 270}# (lambda (#{src\ 850}# #{names\ 851}# #{gensyms\ 852}# #{vals\ 853}# #{body\ 854}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) #{src\ 850}# #{names\ 851}# #{gensyms\ 852}# #{vals\ 853}# #{body\ 854}#))) (#{make-letrec\ 272}# (lambda (#{src\ 860}# #{in-order?\ 861}# #{names\ 862}# #{gensyms\ 863}# #{vals\ 864}# #{body\ 865}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) #{src\ 860}# #{in-order?\ 861}# #{names\ 862}# #{gensyms\ 863}# #{vals\ 864}# #{body\ 865}#))) (#{make-dynlet\ 274}# (lambda (#{src\ 872}# #{fluids\ 873}# #{vals\ 874}# #{body\ 875}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) #{src\ 872}# #{fluids\ 873}# #{vals\ 874}# #{body\ 875}#))) (#{lambda?\ 277}# (lambda (#{x\ 880}#) (if (struct? #{x\ 880}#) (eq? (struct-vtable #{x\ 880}#) (vector-ref %expanded-vtables 13)) #f))) (#{lambda-meta\ 279}# (lambda (#{x\ 884}#) (struct-ref #{x\ 884}# 1))) (#{set-lambda-meta!\ 281}# (lambda (#{x\ 886}# #{v\ 887}#) (struct-set! #{x\ 886}# 1 #{v\ 887}#))) (#{top-level-eval-hook\ 291}# (lambda (#{x\ 890}# #{mod\ 891}#) (primitive-eval #{x\ 890}#))) (#{local-eval-hook\ 293}# (lambda (#{x\ 894}# #{mod\ 895}#) (primitive-eval #{x\ 894}#))) (#{put-global-definition-hook\ 296}# (lambda (#{symbol\ 898}# #{type\ 899}# #{val\ 900}#) (module-define! (current-module) #{symbol\ 898}# (make-syntax-transformer #{symbol\ 898}# #{type\ 899}# #{val\ 900}#)))) (#{get-global-definition-hook\ 298}# (lambda (#{symbol\ 904}# #{module\ 905}#) (begin (if (if (not #{module\ 905}#) (current-module) #f) (warn "module system is booted, we should have a module" #{symbol\ 904}#)) (begin (let ((#{v\ 911}# (module-variable (if #{module\ 905}# (resolve-module (cdr #{module\ 905}#)) (current-module)) #{symbol\ 904}#))) (if #{v\ 911}# (if (variable-bound? #{v\ 911}#) (begin (let ((#{val\ 916}# (variable-ref #{v\ 911}#))) (if (macro? #{val\ 916}#) (if (macro-type #{val\ 916}#) (cons (macro-type #{val\ 916}#) (macro-binding #{val\ 916}#)) #f) #f))) #f) #f)))))) (#{decorate-source\ 300}# (lambda (#{e\ 920}# #{s\ 921}#) (begin (if (if (pair? #{e\ 920}#) #{s\ 921}# #f) (set-source-properties! #{e\ 920}# #{s\ 921}#)) #{e\ 920}#))) (#{maybe-name-value!\ 302}# (lambda (#{name\ 926}# #{val\ 927}#) (if (#{lambda?\ 277}# #{val\ 927}#) (begin (let ((#{meta\ 931}# (#{lambda-meta\ 279}# #{val\ 927}#))) (if (not (assq 'name #{meta\ 931}#)) (#{set-lambda-meta!\ 281}# #{val\ 927}# (cons (cons 'name #{name\ 926}#) #{meta\ 931}#)))))))) (#{build-void\ 304}# (lambda (#{source\ 932}#) (#{make-void\ 240}# #{source\ 932}#))) (#{build-application\ 306}# (lambda (#{source\ 934}# #{fun-exp\ 935}# #{arg-exps\ 936}#) (#{make-application\ 262}# #{source\ 934}# #{fun-exp\ 935}# #{arg-exps\ 936}#))) (#{build-conditional\ 308}# (lambda (#{source\ 940}# #{test-exp\ 941}# #{then-exp\ 942}# #{else-exp\ 943}#) (#{make-conditional\ 260}# #{source\ 940}# #{test-exp\ 941}# #{then-exp\ 942}# #{else-exp\ 943}#))) (#{build-dynlet\ 310}# (lambda (#{source\ 948}# #{fluids\ 949}# #{vals\ 950}# #{body\ 951}#) (#{make-dynlet\ 274}# #{source\ 948}# #{fluids\ 949}# #{vals\ 950}# #{body\ 951}#))) (#{build-lexical-reference\ 312}# (lambda (#{type\ 956}# #{source\ 957}# #{name\ 958}# #{var\ 959}#) (#{make-lexical-ref\ 246}# #{source\ 957}# #{name\ 958}# #{var\ 959}#))) (#{build-lexical-assignment\ 314}# (lambda (#{source\ 964}# #{name\ 965}# #{var\ 966}# #{exp\ 967}#) (begin (#{maybe-name-value!\ 302}# #{name\ 965}# #{exp\ 967}#) (#{make-lexical-set\ 248}# #{source\ 964}# #{name\ 965}# #{var\ 966}# #{exp\ 967}#)))) (#{analyze-variable\ 316}# (lambda (#{mod\ 972}# #{var\ 973}# #{modref-cont\ 974}# #{bare-cont\ 975}#) (if (not #{mod\ 972}#) (#{bare-cont\ 975}# #{var\ 973}#) (begin (let ((#{kind\ 982}# (car #{mod\ 972}#)) (#{mod\ 983}# (cdr #{mod\ 972}#))) (if (eqv? #{kind\ 982}# 'public) (#{modref-cont\ 974}# #{mod\ 983}# #{var\ 973}# #t) (if (eqv? #{kind\ 982}# 'private) (if (not (equal? #{mod\ 983}# (module-name (current-module)))) (#{modref-cont\ 974}# #{mod\ 983}# #{var\ 973}# #f) (#{bare-cont\ 975}# #{var\ 973}#)) (if (eqv? #{kind\ 982}# 'bare) (#{bare-cont\ 975}# #{var\ 973}#) (if (eqv? #{kind\ 982}# 'hygiene) (if (if (not (equal? #{mod\ 983}# (module-name (current-module)))) (module-variable (resolve-module #{mod\ 983}#) #{var\ 973}#) #f) (#{modref-cont\ 974}# #{mod\ 983}# #{var\ 973}# #f) (#{bare-cont\ 975}# #{var\ 973}#)) (syntax-violation #f "bad module kind" #{var\ 973}# #{mod\ 983}#)))))))))) (#{build-global-reference\ 318}# (lambda (#{source\ 991}# #{var\ 992}# #{mod\ 993}#) (#{analyze-variable\ 316}# #{mod\ 993}# #{var\ 992}# (lambda (#{mod\ 997}# #{var\ 998}# #{public?\ 999}#) (#{make-module-ref\ 250}# #{source\ 991}# #{mod\ 997}# #{var\ 998}# #{public?\ 999}#)) (lambda (#{var\ 1003}#) (#{make-toplevel-ref\ 254}# #{source\ 991}# #{var\ 1003}#))))) (#{build-global-assignment\ 320}# (lambda (#{source\ 1005}# #{var\ 1006}# #{exp\ 1007}# #{mod\ 1008}#) (begin (#{maybe-name-value!\ 302}# #{var\ 1006}# #{exp\ 1007}#) (#{analyze-variable\ 316}# #{mod\ 1008}# #{var\ 1006}# (lambda (#{mod\ 1013}# #{var\ 1014}# #{public?\ 1015}#) (#{make-module-set\ 252}# #{source\ 1005}# #{mod\ 1013}# #{var\ 1014}# #{public?\ 1015}# #{exp\ 1007}#)) (lambda (#{var\ 1019}#) (#{make-toplevel-set\ 256}# #{source\ 1005}# #{var\ 1019}# #{exp\ 1007}#)))))) (#{build-global-definition\ 322}# (lambda (#{source\ 1021}# #{var\ 1022}# #{exp\ 1023}#) (begin (#{maybe-name-value!\ 302}# #{var\ 1022}# #{exp\ 1023}#) (#{make-toplevel-define\ 258}# #{source\ 1021}# #{var\ 1022}# #{exp\ 1023}#)))) (#{build-simple-lambda\ 324}# (lambda (#{src\ 1027}# #{req\ 1028}# #{rest\ 1029}# #{vars\ 1030}# #{meta\ 1031}# #{exp\ 1032}#) (#{make-lambda\ 266}# #{src\ 1027}# #{meta\ 1031}# (#{make-lambda-case\ 268}# #{src\ 1027}# #{req\ 1028}# #f #{rest\ 1029}# #f '() #{vars\ 1030}# #{exp\ 1032}# #f)))) (#{build-case-lambda\ 326}# (lambda (#{src\ 1039}# #{meta\ 1040}# #{body\ 1041}#) (#{make-lambda\ 266}# #{src\ 1039}# #{meta\ 1040}# #{body\ 1041}#))) (#{build-lambda-case\ 328}# (lambda (#{src\ 1045}# #{req\ 1046}# #{opt\ 1047}# #{rest\ 1048}# #{kw\ 1049}# #{inits\ 1050}# #{vars\ 1051}# #{body\ 1052}# #{else-case\ 1053}#) (#{make-lambda-case\ 268}# #{src\ 1045}# #{req\ 1046}# #{opt\ 1047}# #{rest\ 1048}# #{kw\ 1049}# #{inits\ 1050}# #{vars\ 1051}# #{body\ 1052}# #{else-case\ 1053}#))) (#{build-primref\ 330}# (lambda (#{src\ 1063}# #{name\ 1064}#) (if (equal? (module-name (current-module)) '(guile)) (#{make-toplevel-ref\ 254}# #{src\ 1063}# #{name\ 1064}#) (#{make-module-ref\ 250}# #{src\ 1063}# '(guile) #{name\ 1064}# #f)))) (#{build-data\ 332}# (lambda (#{src\ 1067}# #{exp\ 1068}#) (#{make-const\ 242}# #{src\ 1067}# #{exp\ 1068}#))) (#{build-sequence\ 334}# (lambda (#{src\ 1071}# #{exps\ 1072}#) (if (null? (cdr #{exps\ 1072}#)) (car #{exps\ 1072}#) (#{make-sequence\ 264}# #{src\ 1071}# #{exps\ 1072}#)))) (#{build-let\ 336}# (lambda (#{src\ 1075}# #{ids\ 1076}# #{vars\ 1077}# #{val-exps\ 1078}# #{body-exp\ 1079}#) (begin (for-each #{maybe-name-value!\ 302}# #{ids\ 1076}# #{val-exps\ 1078}#) (if (null? #{vars\ 1077}#) #{body-exp\ 1079}# (#{make-let\ 270}# #{src\ 1075}# #{ids\ 1076}# #{vars\ 1077}# #{val-exps\ 1078}# #{body-exp\ 1079}#))))) (#{build-named-let\ 338}# (lambda (#{src\ 1085}# #{ids\ 1086}# #{vars\ 1087}# #{val-exps\ 1088}# #{body-exp\ 1089}#) (begin (let ((#{f\ 1099}# (car #{vars\ 1087}#)) (#{f-name\ 1100}# (car #{ids\ 1086}#)) (#{vars\ 1101}# (cdr #{vars\ 1087}#)) (#{ids\ 1102}# (cdr #{ids\ 1086}#))) (begin (let ((#{proc\ 1104}# (#{build-simple-lambda\ 324}# #{src\ 1085}# #{ids\ 1102}# #f #{vars\ 1101}# '() #{body-exp\ 1089}#))) (begin (#{maybe-name-value!\ 302}# #{f-name\ 1100}# #{proc\ 1104}#) (for-each #{maybe-name-value!\ 302}# #{ids\ 1102}# #{val-exps\ 1088}#) (#{make-letrec\ 272}# #{src\ 1085}# #f (list #{f-name\ 1100}#) (list #{f\ 1099}#) (list #{proc\ 1104}#) (#{build-application\ 306}# #{src\ 1085}# (#{build-lexical-reference\ 312}# 'fun #{src\ 1085}# #{f-name\ 1100}# #{f\ 1099}#) #{val-exps\ 1088}#))))))))) (#{build-letrec\ 340}# (lambda (#{src\ 1105}# #{in-order?\ 1106}# #{ids\ 1107}# #{vars\ 1108}# #{val-exps\ 1109}# #{body-exp\ 1110}#) (if (null? #{vars\ 1108}#) #{body-exp\ 1110}# (begin (for-each #{maybe-name-value!\ 302}# #{ids\ 1107}# #{val-exps\ 1109}#) (#{make-letrec\ 272}# #{src\ 1105}# #{in-order?\ 1106}# #{ids\ 1107}# #{vars\ 1108}# #{val-exps\ 1109}# #{body-exp\ 1110}#))))) (#{make-syntax-object\ 344}# (lambda (#{expression\ 1117}# #{wrap\ 1118}# #{module\ 1119}#) (vector 'syntax-object #{expression\ 1117}# #{wrap\ 1118}# #{module\ 1119}#))) (#{syntax-object?\ 346}# (lambda (#{x\ 1123}#) (if (vector? #{x\ 1123}#) (if (= (vector-length #{x\ 1123}#) 4) (eq? (vector-ref #{x\ 1123}# 0) 'syntax-object) #f) #f))) (#{syntax-object-expression\ 348}# (lambda (#{x\ 1128}#) (vector-ref #{x\ 1128}# 1))) (#{syntax-object-wrap\ 350}# (lambda (#{x\ 1130}#) (vector-ref #{x\ 1130}# 2))) (#{syntax-object-module\ 352}# (lambda (#{x\ 1132}#) (vector-ref #{x\ 1132}# 3))) (#{source-annotation\ 361}# (lambda (#{x\ 1146}#) (if (#{syntax-object?\ 346}# #{x\ 1146}#) (#{source-annotation\ 361}# (#{syntax-object-expression\ 348}# #{x\ 1146}#)) (if (pair? #{x\ 1146}#) (begin (let ((#{props\ 1153}# (source-properties #{x\ 1146}#))) (if (pair? #{props\ 1153}#) #{props\ 1153}# #f))) #f)))) (#{extend-env\ 368}# (lambda (#{labels\ 1155}# #{bindings\ 1156}# #{r\ 1157}#) (if (null? #{labels\ 1155}#) #{r\ 1157}# (#{extend-env\ 368}# (cdr #{labels\ 1155}#) (cdr #{bindings\ 1156}#) (cons (cons (car #{labels\ 1155}#) (car #{bindings\ 1156}#)) #{r\ 1157}#))))) (#{extend-var-env\ 370}# (lambda (#{labels\ 1161}# #{vars\ 1162}# #{r\ 1163}#) (if (null? #{labels\ 1161}#) #{r\ 1163}# (#{extend-var-env\ 370}# (cdr #{labels\ 1161}#) (cdr #{vars\ 1162}#) (cons (cons (car #{labels\ 1161}#) (cons 'lexical (car #{vars\ 1162}#))) #{r\ 1163}#))))) (#{macros-only-env\ 372}# (lambda (#{r\ 1168}#) (if (null? #{r\ 1168}#) '() (begin (let ((#{a\ 1171}# (car #{r\ 1168}#))) (if (eq? (car (cdr #{a\ 1171}#)) 'macro) (cons #{a\ 1171}# (#{macros-only-env\ 372}# (cdr #{r\ 1168}#))) (#{macros-only-env\ 372}# (cdr #{r\ 1168}#)))))))) (#{lookup\ 374}# (lambda (#{x\ 1172}# #{r\ 1173}# #{mod\ 1174}#) (begin (let ((#{t\ 1180}# (assq #{x\ 1172}# #{r\ 1173}#))) (if #{t\ 1180}# (cdr #{t\ 1180}#) (if (symbol? #{x\ 1172}#) (begin (let ((#{t\ 1186}# (#{get-global-definition-hook\ 298}# #{x\ 1172}# #{mod\ 1174}#))) (if #{t\ 1186}# #{t\ 1186}# '(global)))) '(displaced-lexical))))))) (#{global-extend\ 376}# (lambda (#{type\ 1191}# #{sym\ 1192}# #{val\ 1193}#) (#{put-global-definition-hook\ 296}# #{sym\ 1192}# #{type\ 1191}# #{val\ 1193}#))) (#{nonsymbol-id?\ 378}# (lambda (#{x\ 1197}#) (if (#{syntax-object?\ 346}# #{x\ 1197}#) (symbol? (#{syntax-object-expression\ 348}# #{x\ 1197}#)) #f))) (#{id?\ 380}# (lambda (#{x\ 1201}#) (if (symbol? #{x\ 1201}#) #t (if (#{syntax-object?\ 346}# #{x\ 1201}#) (symbol? (#{syntax-object-expression\ 348}# #{x\ 1201}#)) #f)))) (#{id-sym-name&marks\ 383}# (lambda (#{x\ 1208}# #{w\ 1209}#) (if (#{syntax-object?\ 346}# #{x\ 1208}#) (values (#{syntax-object-expression\ 348}# #{x\ 1208}#) (#{join-marks\ 430}# (car #{w\ 1209}#) (car (#{syntax-object-wrap\ 350}# #{x\ 1208}#)))) (values #{x\ 1208}# (car #{w\ 1209}#))))) (#{gen-label\ 393}# (lambda () (symbol->string (gensym "i")))) (#{gen-labels\ 395}# (lambda (#{ls\ 1215}#) (if (null? #{ls\ 1215}#) '() (cons (#{gen-label\ 393}#) (#{gen-labels\ 395}# (cdr #{ls\ 1215}#)))))) (#{make-ribcage\ 398}# (lambda (#{symnames\ 1217}# #{marks\ 1218}# #{labels\ 1219}#) (vector 'ribcage #{symnames\ 1217}# #{marks\ 1218}# #{labels\ 1219}#))) (#{ribcage-symnames\ 402}# (lambda (#{x\ 1228}#) (vector-ref #{x\ 1228}# 1))) (#{ribcage-marks\ 404}# (lambda (#{x\ 1230}#) (vector-ref #{x\ 1230}# 2))) (#{ribcage-labels\ 406}# (lambda (#{x\ 1232}#) (vector-ref #{x\ 1232}# 3))) (#{set-ribcage-symnames!\ 408}# (lambda (#{x\ 1234}# #{update\ 1235}#) (vector-set! #{x\ 1234}# 1 #{update\ 1235}#))) (#{set-ribcage-marks!\ 410}# (lambda (#{x\ 1238}# #{update\ 1239}#) (vector-set! #{x\ 1238}# 2 #{update\ 1239}#))) (#{set-ribcage-labels!\ 412}# (lambda (#{x\ 1242}# #{update\ 1243}#) (vector-set! #{x\ 1242}# 3 #{update\ 1243}#))) (#{anti-mark\ 418}# (lambda (#{w\ 1246}#) (cons (cons #f (car #{w\ 1246}#)) (cons 'shift (cdr #{w\ 1246}#))))) (#{extend-ribcage!\ 422}# (lambda (#{ribcage\ 1252}# #{id\ 1253}# #{label\ 1254}#) (begin (#{set-ribcage-symnames!\ 408}# #{ribcage\ 1252}# (cons (#{syntax-object-expression\ 348}# #{id\ 1253}#) (#{ribcage-symnames\ 402}# #{ribcage\ 1252}#))) (#{set-ribcage-marks!\ 410}# #{ribcage\ 1252}# (cons (car (#{syntax-object-wrap\ 350}# #{id\ 1253}#)) (#{ribcage-marks\ 404}# #{ribcage\ 1252}#))) (#{set-ribcage-labels!\ 412}# #{ribcage\ 1252}# (cons #{label\ 1254}# (#{ribcage-labels\ 406}# #{ribcage\ 1252}#)))))) (#{make-binding-wrap\ 424}# (lambda (#{ids\ 1259}# #{labels\ 1260}# #{w\ 1261}#) (if (null? #{ids\ 1259}#) #{w\ 1261}# (cons (car #{w\ 1261}#) (cons (begin (let ((#{labelvec\ 1268}# (list->vector #{labels\ 1260}#))) (begin (let ((#{n\ 1270}# (vector-length #{labelvec\ 1268}#))) (begin (let ((#{symnamevec\ 1273}# (make-vector #{n\ 1270}#)) (#{marksvec\ 1274}# (make-vector #{n\ 1270}#))) (begin (letrec* ((#{f\ 1278}# (lambda (#{ids\ 1279}# #{i\ 1280}#) (if (not (null? #{ids\ 1279}#)) (call-with-values (lambda () (#{id-sym-name&marks\ 383}# (car #{ids\ 1279}#) #{w\ 1261}#)) (lambda (#{symname\ 1281}# #{marks\ 1282}#) (begin (vector-set! #{symnamevec\ 1273}# #{i\ 1280}# #{symname\ 1281}#) (vector-set! #{marksvec\ 1274}# #{i\ 1280}# #{marks\ 1282}#) (#{f\ 1278}# (cdr #{ids\ 1279}#) (#{fx+\ 283}# #{i\ 1280}# 1))))))))) (begin (#{f\ 1278}# #{ids\ 1259}# 0))) (#{make-ribcage\ 398}# #{symnamevec\ 1273}# #{marksvec\ 1274}# #{labelvec\ 1268}#)))))))) (cdr #{w\ 1261}#)))))) (#{smart-append\ 426}# (lambda (#{m1\ 1286}# #{m2\ 1287}#) (if (null? #{m2\ 1287}#) #{m1\ 1286}# (append #{m1\ 1286}# #{m2\ 1287}#)))) (#{join-wraps\ 428}# (lambda (#{w1\ 1290}# #{w2\ 1291}#) (begin (let ((#{m1\ 1296}# (car #{w1\ 1290}#)) (#{s1\ 1297}# (cdr #{w1\ 1290}#))) (if (null? #{m1\ 1296}#) (if (null? #{s1\ 1297}#) #{w2\ 1291}# (cons (car #{w2\ 1291}#) (#{smart-append\ 426}# #{s1\ 1297}# (cdr #{w2\ 1291}#)))) (cons (#{smart-append\ 426}# #{m1\ 1296}# (car #{w2\ 1291}#)) (#{smart-append\ 426}# #{s1\ 1297}# (cdr #{w2\ 1291}#)))))))) (#{join-marks\ 430}# (lambda (#{m1\ 1306}# #{m2\ 1307}#) (#{smart-append\ 426}# #{m1\ 1306}# #{m2\ 1307}#))) (#{same-marks?\ 432}# (lambda (#{x\ 1310}# #{y\ 1311}#) (begin (let ((#{t\ 1316}# (eq? #{x\ 1310}# #{y\ 1311}#))) (if #{t\ 1316}# #{t\ 1316}# (if (not (null? #{x\ 1310}#)) (if (not (null? #{y\ 1311}#)) (if (eq? (car #{x\ 1310}#) (car #{y\ 1311}#)) (#{same-marks?\ 432}# (cdr #{x\ 1310}#) (cdr #{y\ 1311}#)) #f) #f) #f)))))) (#{id-var-name\ 434}# (lambda (#{id\ 1322}# #{w\ 1323}#) (letrec* ((#{search\ 1328}# (lambda (#{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}#) (if (null? #{subst\ 1345}#) (values #f #{marks\ 1346}#) (begin (let ((#{fst\ 1351}# (car #{subst\ 1345}#))) (if (eq? #{fst\ 1351}# 'shift) (#{search\ 1328}# #{sym\ 1344}# (cdr #{subst\ 1345}#) (cdr #{marks\ 1346}#)) (begin (let ((#{symnames\ 1353}# (#{ribcage-symnames\ 402}# #{fst\ 1351}#))) (if (vector? #{symnames\ 1353}#) (#{search-vector-rib\ 1332}# #{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}# #{symnames\ 1353}# #{fst\ 1351}#) (#{search-list-rib\ 1330}# #{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}# #{symnames\ 1353}# #{fst\ 1351}#)))))))))) (#{search-list-rib\ 1330}# (lambda (#{sym\ 1354}# #{subst\ 1355}# #{marks\ 1356}# #{symnames\ 1357}# #{ribcage\ 1358}#) (letrec* ((#{f\ 1367}# (lambda (#{symnames\ 1368}# #{i\ 1369}#) (if (null? #{symnames\ 1368}#) (#{search\ 1328}# #{sym\ 1354}# (cdr #{subst\ 1355}#) #{marks\ 1356}#) (if (if (eq? (car #{symnames\ 1368}#) #{sym\ 1354}#) (#{same-marks?\ 432}# #{marks\ 1356}# (list-ref (#{ribcage-marks\ 404}# #{ribcage\ 1358}#) #{i\ 1369}#)) #f) (values (list-ref (#{ribcage-labels\ 406}# #{ribcage\ 1358}#) #{i\ 1369}#) #{marks\ 1356}#) (#{f\ 1367}# (cdr #{symnames\ 1368}#) (#{fx+\ 283}# #{i\ 1369}# 1))))))) (begin (#{f\ 1367}# #{symnames\ 1357}# 0))))) (#{search-vector-rib\ 1332}# (lambda (#{sym\ 1377}# #{subst\ 1378}# #{marks\ 1379}# #{symnames\ 1380}# #{ribcage\ 1381}#) (begin (let ((#{n\ 1388}# (vector-length #{symnames\ 1380}#))) (letrec* ((#{f\ 1391}# (lambda (#{i\ 1392}#) (if (#{fx=\ 287}# #{i\ 1392}# #{n\ 1388}#) (#{search\ 1328}# #{sym\ 1377}# (cdr #{subst\ 1378}#) #{marks\ 1379}#) (if (if (eq? (vector-ref #{symnames\ 1380}# #{i\ 1392}#) #{sym\ 1377}#) (#{same-marks?\ 432}# #{marks\ 1379}# (vector-ref (#{ribcage-marks\ 404}# #{ribcage\ 1381}#) #{i\ 1392}#)) #f) (values (vector-ref (#{ribcage-labels\ 406}# #{ribcage\ 1381}#) #{i\ 1392}#) #{marks\ 1379}#) (#{f\ 1391}# (#{fx+\ 283}# #{i\ 1392}# 1))))))) (begin (#{f\ 1391}# 0)))))))) (begin (if (symbol? #{id\ 1322}#) (begin (let ((#{t\ 1402}# (call-with-values (lambda () (#{search\ 1328}# #{id\ 1322}# (cdr #{w\ 1323}#) (car #{w\ 1323}#))) (lambda (#{x\ 1406}# . #{ignore\ 1407}#) #{x\ 1406}#)))) (if #{t\ 1402}# #{t\ 1402}# #{id\ 1322}#))) (if (#{syntax-object?\ 346}# #{id\ 1322}#) (begin (let ((#{id\ 1415}# (#{syntax-object-expression\ 348}# #{id\ 1322}#)) (#{w1\ 1416}# (#{syntax-object-wrap\ 350}# #{id\ 1322}#))) (begin (let ((#{marks\ 1418}# (#{join-marks\ 430}# (car #{w\ 1323}#) (car #{w1\ 1416}#)))) (call-with-values (lambda () (#{search\ 1328}# #{id\ 1415}# (cdr #{w\ 1323}#) #{marks\ 1418}#)) (lambda (#{new-id\ 1422}# #{marks\ 1423}#) (begin (let ((#{t\ 1428}# #{new-id\ 1422}#)) (if #{t\ 1428}# #{t\ 1428}# (begin (let ((#{t\ 1431}# (call-with-values (lambda () (#{search\ 1328}# #{id\ 1415}# (cdr #{w1\ 1416}#) #{marks\ 1423}#)) (lambda (#{x\ 1434}# . #{ignore\ 1435}#) #{x\ 1434}#)))) (if #{t\ 1431}# #{t\ 1431}# #{id\ 1415}#)))))))))))) (syntax-violation 'id-var-name "invalid id" #{id\ 1322}#))))))) (#{free-id=?\ 436}# (lambda (#{i\ 1440}# #{j\ 1441}#) (if (eq? (begin (let ((#{x\ 1447}# #{i\ 1440}#)) (if (#{syntax-object?\ 346}# #{x\ 1447}#) (#{syntax-object-expression\ 348}# #{x\ 1447}#) #{x\ 1447}#))) (begin (let ((#{x\ 1450}# #{j\ 1441}#)) (if (#{syntax-object?\ 346}# #{x\ 1450}#) (#{syntax-object-expression\ 348}# #{x\ 1450}#) #{x\ 1450}#)))) (eq? (#{id-var-name\ 434}# #{i\ 1440}# '(())) (#{id-var-name\ 434}# #{j\ 1441}# '(()))) #f))) (#{bound-id=?\ 438}# (lambda (#{i\ 1454}# #{j\ 1455}#) (if (if (#{syntax-object?\ 346}# #{i\ 1454}#) (#{syntax-object?\ 346}# #{j\ 1455}#) #f) (if (eq? (#{syntax-object-expression\ 348}# #{i\ 1454}#) (#{syntax-object-expression\ 348}# #{j\ 1455}#)) (#{same-marks?\ 432}# (car (#{syntax-object-wrap\ 350}# #{i\ 1454}#)) (car (#{syntax-object-wrap\ 350}# #{j\ 1455}#))) #f) (eq? #{i\ 1454}# #{j\ 1455}#)))) (#{valid-bound-ids?\ 440}# (lambda (#{ids\ 1464}#) (if (letrec* ((#{all-ids?\ 1469}# (lambda (#{ids\ 1470}#) (begin (let ((#{t\ 1473}# (null? #{ids\ 1470}#))) (if #{t\ 1473}# #{t\ 1473}# (if (#{id?\ 380}# (car #{ids\ 1470}#)) (#{all-ids?\ 1469}# (cdr #{ids\ 1470}#)) #f))))))) (begin (#{all-ids?\ 1469}# #{ids\ 1464}#))) (#{distinct-bound-ids?\ 442}# #{ids\ 1464}#) #f))) (#{distinct-bound-ids?\ 442}# (lambda (#{ids\ 1478}#) (letrec* ((#{distinct?\ 1482}# (lambda (#{ids\ 1483}#) (begin (let ((#{t\ 1486}# (null? #{ids\ 1483}#))) (if #{t\ 1486}# #{t\ 1486}# (if (not (#{bound-id-member?\ 444}# (car #{ids\ 1483}#) (cdr #{ids\ 1483}#))) (#{distinct?\ 1482}# (cdr #{ids\ 1483}#)) #f))))))) (begin (#{distinct?\ 1482}# #{ids\ 1478}#))))) (#{bound-id-member?\ 444}# (lambda (#{x\ 1490}# #{list\ 1491}#) (if (not (null? #{list\ 1491}#)) (begin (let ((#{t\ 1498}# (#{bound-id=?\ 438}# #{x\ 1490}# (car #{list\ 1491}#)))) (if #{t\ 1498}# #{t\ 1498}# (#{bound-id-member?\ 444}# #{x\ 1490}# (cdr #{list\ 1491}#))))) #f))) (#{wrap\ 446}# (lambda (#{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#) (if (if (null? (car #{w\ 1501}#)) (null? (cdr #{w\ 1501}#)) #f) #{x\ 1500}# (if (#{syntax-object?\ 346}# #{x\ 1500}#) (#{make-syntax-object\ 344}# (#{syntax-object-expression\ 348}# #{x\ 1500}#) (#{join-wraps\ 428}# #{w\ 1501}# (#{syntax-object-wrap\ 350}# #{x\ 1500}#)) (#{syntax-object-module\ 352}# #{x\ 1500}#)) (if (null? #{x\ 1500}#) #{x\ 1500}# (#{make-syntax-object\ 344}# #{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#)))))) (#{source-wrap\ 448}# (lambda (#{x\ 1517}# #{w\ 1518}# #{s\ 1519}# #{defmod\ 1520}#) (#{wrap\ 446}# (#{decorate-source\ 300}# #{x\ 1517}# #{s\ 1519}#) #{w\ 1518}# #{defmod\ 1520}#))) (#{chi-sequence\ 450}# (lambda (#{body\ 1525}# #{r\ 1526}# #{w\ 1527}# #{s\ 1528}# #{mod\ 1529}#) (#{build-sequence\ 334}# #{s\ 1528}# (letrec* ((#{dobody\ 1540}# (lambda (#{body\ 1541}# #{r\ 1542}# #{w\ 1543}# #{mod\ 1544}#) (if (null? #{body\ 1541}#) '() (begin (let ((#{first\ 1546}# (#{chi\ 460}# (car #{body\ 1541}#) #{r\ 1542}# #{w\ 1543}# #{mod\ 1544}#))) (cons #{first\ 1546}# (#{dobody\ 1540}# (cdr #{body\ 1541}#) #{r\ 1542}# #{w\ 1543}# #{mod\ 1544}#)))))))) (begin (#{dobody\ 1540}# #{body\ 1525}# #{r\ 1526}# #{w\ 1527}# #{mod\ 1529}#)))))) (#{chi-top-sequence\ 452}# (lambda (#{body\ 1547}# #{r\ 1548}# #{w\ 1549}# #{s\ 1550}# #{m\ 1551}# #{esew\ 1552}# #{mod\ 1553}#) (letrec* ((#{scan\ 1562}# (lambda (#{body\ 1563}# #{r\ 1564}# #{w\ 1565}# #{s\ 1566}# #{m\ 1567}# #{esew\ 1568}# #{mod\ 1569}# #{exps\ 1570}#) (if (null? #{body\ 1563}#) #{exps\ 1570}# (call-with-values (lambda () (call-with-values (lambda () (begin (let ((#{e\ 1583}# (car #{body\ 1563}#))) (#{syntax-type\ 458}# #{e\ 1583}# #{r\ 1564}# #{w\ 1565}# (begin (let ((#{t\ 1586}# (#{source-annotation\ 361}# #{e\ 1583}#))) (if #{t\ 1586}# #{t\ 1586}# #{s\ 1566}#))) #f #{mod\ 1569}# #f)))) (lambda (#{type\ 1588}# #{value\ 1589}# #{e\ 1590}# #{w\ 1591}# #{s\ 1592}# #{mod\ 1593}#) (if (eqv? #{type\ 1588}# 'begin-form) (let ((#{tmp\ 1601}# #{e\ 1590}#)) (let ((#{tmp\ 1602}# ($sc-dispatch #{tmp\ 1601}# '(_)))) (if #{tmp\ 1602}# (@apply (lambda () #{exps\ 1570}#) #{tmp\ 1602}#) (let ((#{tmp\ 1603}# ($sc-dispatch #{tmp\ 1601}# '(_ any . each-any)))) (if #{tmp\ 1603}# (@apply (lambda (#{e1\ 1606}# #{e2\ 1607}#) (#{scan\ 1562}# (cons #{e1\ 1606}# #{e2\ 1607}#) #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# #{m\ 1567}# #{esew\ 1568}# #{mod\ 1593}# #{exps\ 1570}#)) #{tmp\ 1603}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1601}#)))))) (if (eqv? #{type\ 1588}# 'local-syntax-form) (#{chi-local-syntax\ 470}# #{value\ 1589}# #{e\ 1590}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# #{mod\ 1593}# (lambda (#{body\ 1610}# #{r\ 1611}# #{w\ 1612}# #{s\ 1613}# #{mod\ 1614}#) (#{scan\ 1562}# #{body\ 1610}# #{r\ 1611}# #{w\ 1612}# #{s\ 1613}# #{m\ 1567}# #{esew\ 1568}# #{mod\ 1614}# #{exps\ 1570}#))) (if (eqv? #{type\ 1588}# 'eval-when-form) (let ((#{tmp\ 1621}# #{e\ 1590}#)) (let ((#{tmp\ 1622}# ($sc-dispatch #{tmp\ 1621}# '(_ each-any any . each-any)))) (if #{tmp\ 1622}# (@apply (lambda (#{x\ 1626}# #{e1\ 1627}# #{e2\ 1628}#) (begin (let ((#{when-list\ 1631}# (#{chi-when-list\ 456}# #{e\ 1590}# #{x\ 1626}# #{w\ 1591}#)) (#{body\ 1632}# (cons #{e1\ 1627}# #{e2\ 1628}#))) (if (eq? #{m\ 1567}# 'e) (if (memq 'eval #{when-list\ 1631}#) (#{scan\ 1562}# #{body\ 1632}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# (if (memq 'expand #{when-list\ 1631}#) 'c&e 'e) '(eval) #{mod\ 1593}# #{exps\ 1570}#) (begin (if (memq 'expand #{when-list\ 1631}#) (#{top-level-eval-hook\ 291}# (#{chi-top-sequence\ 452}# #{body\ 1632}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# 'e '(eval) #{mod\ 1593}#) #{mod\ 1593}#)) #{exps\ 1570}#)) (if (memq 'load #{when-list\ 1631}#) (if (begin (let ((#{t\ 1641}# (memq 'compile #{when-list\ 1631}#))) (if #{t\ 1641}# #{t\ 1641}# (begin (let ((#{t\ 1644}# (memq 'expand #{when-list\ 1631}#))) (if #{t\ 1644}# #{t\ 1644}# (if (eq? #{m\ 1567}# 'c&e) (memq 'eval #{when-list\ 1631}#) #f))))))) (#{scan\ 1562}# #{body\ 1632}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# 'c&e '(compile load) #{mod\ 1593}# #{exps\ 1570}#) (if (if (eq? #{m\ 1567}# 'c) #t (eq? #{m\ 1567}# 'c&e)) (#{scan\ 1562}# #{body\ 1632}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# 'c '(load) #{mod\ 1593}# #{exps\ 1570}#) #{exps\ 1570}#)) (if (begin (let ((#{t\ 1652}# (memq 'compile #{when-list\ 1631}#))) (if #{t\ 1652}# #{t\ 1652}# (begin (let ((#{t\ 1655}# (memq 'expand #{when-list\ 1631}#))) (if #{t\ 1655}# #{t\ 1655}# (if (eq? #{m\ 1567}# 'c&e) (memq 'eval #{when-list\ 1631}#) #f))))))) (begin (#{top-level-eval-hook\ 291}# (#{chi-top-sequence\ 452}# #{body\ 1632}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# 'e '(eval) #{mod\ 1593}#) #{mod\ 1593}#) #{exps\ 1570}#) #{exps\ 1570}#)))))) #{tmp\ 1622}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1621}#)))) (if (eqv? #{type\ 1588}# 'define-syntax-form) (begin (let ((#{n\ 1663}# (#{id-var-name\ 434}# #{value\ 1589}# #{w\ 1591}#)) (#{r\ 1664}# (#{macros-only-env\ 372}# #{r\ 1564}#))) (if (eqv? #{m\ 1567}# 'c) (if (memq 'compile #{esew\ 1568}#) (begin (let ((#{e\ 1667}# (#{chi-install-global\ 454}# #{n\ 1663}# (#{chi\ 460}# #{e\ 1590}# #{r\ 1664}# #{w\ 1591}# #{mod\ 1593}#)))) (begin (#{top-level-eval-hook\ 291}# #{e\ 1667}# #{mod\ 1593}#) (if (memq 'load #{esew\ 1568}#) (cons #{e\ 1667}# #{exps\ 1570}#) #{exps\ 1570}#)))) (if (memq 'load #{esew\ 1568}#) (cons (#{chi-install-global\ 454}# #{n\ 1663}# (#{chi\ 460}# #{e\ 1590}# #{r\ 1664}# #{w\ 1591}# #{mod\ 1593}#)) #{exps\ 1570}#) #{exps\ 1570}#)) (if (eqv? #{m\ 1567}# 'c&e) (begin (let ((#{e\ 1670}# (#{chi-install-global\ 454}# #{n\ 1663}# (#{chi\ 460}# #{e\ 1590}# #{r\ 1664}# #{w\ 1591}# #{mod\ 1593}#)))) (begin (#{top-level-eval-hook\ 291}# #{e\ 1670}# #{mod\ 1593}#) (cons #{e\ 1670}# #{exps\ 1570}#)))) (begin (if (memq 'eval #{esew\ 1568}#) (#{top-level-eval-hook\ 291}# (#{chi-install-global\ 454}# #{n\ 1663}# (#{chi\ 460}# #{e\ 1590}# #{r\ 1664}# #{w\ 1591}# #{mod\ 1593}#)) #{mod\ 1593}#)) #{exps\ 1570}#))))) (if (eqv? #{type\ 1588}# 'define-form) (begin (let ((#{n\ 1675}# (#{id-var-name\ 434}# #{value\ 1589}# #{w\ 1591}#))) (begin (let ((#{type\ 1677}# (car (#{lookup\ 374}# #{n\ 1675}# #{r\ 1564}# #{mod\ 1593}#)))) (if (if (eqv? #{type\ 1677}# 'global) #t (if (eqv? #{type\ 1677}# 'core) #t (if (eqv? #{type\ 1677}# 'macro) #t (eqv? #{type\ 1677}# 'module-ref)))) (begin (if (if (if (eq? #{m\ 1567}# 'c) #t (eq? #{m\ 1567}# 'c&e)) (if (not (module-local-variable (current-module) #{n\ 1675}#)) (current-module) #f) #f) (begin (let ((#{old\ 1684}# (module-variable (current-module) #{n\ 1675}#))) (if (if (variable? #{old\ 1684}#) (variable-bound? #{old\ 1684}#) #f) (module-define! (current-module) #{n\ 1675}# (variable-ref #{old\ 1684}#)) (module-add! (current-module) #{n\ 1675}# (make-undefined-variable)))))) (cons (if (eq? #{m\ 1567}# 'c&e) (begin (let ((#{x\ 1688}# (#{build-global-definition\ 322}# #{s\ 1592}# #{n\ 1675}# (#{chi\ 460}# #{e\ 1590}# #{r\ 1564}# #{w\ 1591}# #{mod\ 1593}#)))) (begin (#{top-level-eval-hook\ 291}# #{x\ 1688}# #{mod\ 1593}#) #{x\ 1688}#))) (lambda () (#{build-global-definition\ 322}# #{s\ 1592}# #{n\ 1675}# (#{chi\ 460}# #{e\ 1590}# #{r\ 1564}# #{w\ 1591}# #{mod\ 1593}#)))) #{exps\ 1570}#)) (if (eqv? #{type\ 1677}# 'displaced-lexical) (syntax-violation #f "identifier out of context" #{e\ 1590}# (#{wrap\ 446}# #{value\ 1589}# #{w\ 1591}# #{mod\ 1593}#)) (syntax-violation #f "cannot define keyword at top level" #{e\ 1590}# (#{wrap\ 446}# #{value\ 1589}# #{w\ 1591}# #{mod\ 1593}#)))))))) (cons (if (eq? #{m\ 1567}# 'c&e) (begin (let ((#{x\ 1693}# (#{chi-expr\ 462}# #{type\ 1588}# #{value\ 1589}# #{e\ 1590}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# #{mod\ 1593}#))) (begin (#{top-level-eval-hook\ 291}# #{x\ 1693}# #{mod\ 1593}#) #{x\ 1693}#))) (lambda () (#{chi-expr\ 462}# #{type\ 1588}# #{value\ 1589}# #{e\ 1590}# #{r\ 1564}# #{w\ 1591}# #{s\ 1592}# #{mod\ 1593}#))) #{exps\ 1570}#))))))))) (lambda (#{exps\ 1694}#) (#{scan\ 1562}# (cdr #{body\ 1563}#) #{r\ 1564}# #{w\ 1565}# #{s\ 1566}# #{m\ 1567}# #{esew\ 1568}# #{mod\ 1569}# #{exps\ 1694}#))))))) (begin (call-with-values (lambda () (#{scan\ 1562}# #{body\ 1547}# #{r\ 1548}# #{w\ 1549}# #{s\ 1550}# #{m\ 1551}# #{esew\ 1552}# #{mod\ 1553}# '())) (lambda (#{exps\ 1696}#) (if (null? #{exps\ 1696}#) (#{build-void\ 304}# #{s\ 1550}#) (#{build-sequence\ 334}# #{s\ 1550}# (letrec* ((#{lp\ 1701}# (lambda (#{in\ 1702}# #{out\ 1703}#) (if (null? #{in\ 1702}#) #{out\ 1703}# (begin (let ((#{e\ 1705}# (car #{in\ 1702}#))) (#{lp\ 1701}# (cdr #{in\ 1702}#) (cons (if (procedure? #{e\ 1705}#) (#{e\ 1705}#) #{e\ 1705}#) #{out\ 1703}#)))))))) (begin (#{lp\ 1701}# #{exps\ 1696}# '()))))))))))) (#{chi-install-global\ 454}# (lambda (#{name\ 1706}# #{e\ 1707}#) (#{build-global-definition\ 322}# #f #{name\ 1706}# (#{build-application\ 306}# #f (#{build-primref\ 330}# #f 'make-syntax-transformer) (list (#{build-data\ 332}# #f #{name\ 1706}#) (#{build-data\ 332}# #f 'macro) #{e\ 1707}#))))) (#{chi-when-list\ 456}# (lambda (#{e\ 1715}# #{when-list\ 1716}# #{w\ 1717}#) (letrec* ((#{f\ 1724}# (lambda (#{when-list\ 1725}# #{situations\ 1726}#) (if (null? #{when-list\ 1725}#) #{situations\ 1726}# (#{f\ 1724}# (cdr #{when-list\ 1725}#) (cons (begin (let ((#{x\ 1728}# (car #{when-list\ 1725}#))) (if (#{free-id=?\ 436}# #{x\ 1728}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'compile (if (#{free-id=?\ 436}# #{x\ 1728}# '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'load (if (#{free-id=?\ 436}# #{x\ 1728}# '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'eval (if (#{free-id=?\ 436}# #{x\ 1728}# '#(syntax-object expand ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" #{e\ 1715}# (#{wrap\ 446}# #{x\ 1728}# #{w\ 1717}# #f)))))))) #{situations\ 1726}#)))))) (begin (#{f\ 1724}# #{when-list\ 1716}# '()))))) (#{syntax-type\ 458}# (lambda (#{e\ 1738}# #{r\ 1739}# #{w\ 1740}# #{s\ 1741}# #{rib\ 1742}# #{mod\ 1743}# #{for-car?\ 1744}#) (if (symbol? #{e\ 1738}#) (begin (let ((#{n\ 1756}# (#{id-var-name\ 434}# #{e\ 1738}# #{w\ 1740}#))) (begin (let ((#{b\ 1758}# (#{lookup\ 374}# #{n\ 1756}# #{r\ 1739}# #{mod\ 1743}#))) (begin (let ((#{type\ 1760}# (car #{b\ 1758}#))) (if (eqv? #{type\ 1760}# 'lexical) (values #{type\ 1760}# (cdr #{b\ 1758}#) #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{type\ 1760}# 'global) (values #{type\ 1760}# #{n\ 1756}# #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{type\ 1760}# 'macro) (if #{for-car?\ 1744}# (values #{type\ 1760}# (cdr #{b\ 1758}#) #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (#{syntax-type\ 458}# (#{chi-macro\ 466}# (cdr #{b\ 1758}#) #{e\ 1738}# #{r\ 1739}# #{w\ 1740}# #{s\ 1741}# #{rib\ 1742}# #{mod\ 1743}#) #{r\ 1739}# '(()) #{s\ 1741}# #{rib\ 1742}# #{mod\ 1743}# #f)) (values #{type\ 1760}# (cdr #{b\ 1758}#) #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#)))))))))) (if (pair? #{e\ 1738}#) (begin (let ((#{first\ 1774}# (car #{e\ 1738}#))) (call-with-values (lambda () (#{syntax-type\ 458}# #{first\ 1774}# #{r\ 1739}# #{w\ 1740}# #{s\ 1741}# #{rib\ 1742}# #{mod\ 1743}# #t)) (lambda (#{ftype\ 1775}# #{fval\ 1776}# #{fe\ 1777}# #{fw\ 1778}# #{fs\ 1779}# #{fmod\ 1780}#) (if (eqv? #{ftype\ 1775}# 'lexical) (values 'lexical-call #{fval\ 1776}# #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{ftype\ 1775}# 'global) (values 'global-call (#{make-syntax-object\ 344}# #{fval\ 1776}# #{w\ 1740}# #{fmod\ 1780}#) #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{ftype\ 1775}# 'macro) (#{syntax-type\ 458}# (#{chi-macro\ 466}# #{fval\ 1776}# #{e\ 1738}# #{r\ 1739}# #{w\ 1740}# #{s\ 1741}# #{rib\ 1742}# #{mod\ 1743}#) #{r\ 1739}# '(()) #{s\ 1741}# #{rib\ 1742}# #{mod\ 1743}# #{for-car?\ 1744}#) (if (eqv? #{ftype\ 1775}# 'module-ref) (call-with-values (lambda () (#{fval\ 1776}# #{e\ 1738}# #{r\ 1739}# #{w\ 1740}#)) (lambda (#{e\ 1792}# #{r\ 1793}# #{w\ 1794}# #{s\ 1795}# #{mod\ 1796}#) (#{syntax-type\ 458}# #{e\ 1792}# #{r\ 1793}# #{w\ 1794}# #{s\ 1795}# #{rib\ 1742}# #{mod\ 1796}# #{for-car?\ 1744}#))) (if (eqv? #{ftype\ 1775}# 'core) (values 'core-form #{fval\ 1776}# #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{ftype\ 1775}# 'local-syntax) (values 'local-syntax-form #{fval\ 1776}# #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{ftype\ 1775}# 'begin) (values 'begin-form #f #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{ftype\ 1775}# 'eval-when) (values 'eval-when-form #f #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (if (eqv? #{ftype\ 1775}# 'define) (let ((#{tmp\ 1807}# #{e\ 1738}#)) (let ((#{tmp\ 1808}# ($sc-dispatch #{tmp\ 1807}# '(_ any any)))) (if (if #{tmp\ 1808}# (@apply (lambda (#{name\ 1811}# #{val\ 1812}#) (#{id?\ 380}# #{name\ 1811}#)) #{tmp\ 1808}#) #f) (@apply (lambda (#{name\ 1815}# #{val\ 1816}#) (values 'define-form #{name\ 1815}# #{val\ 1816}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#)) #{tmp\ 1808}#) (let ((#{tmp\ 1817}# ($sc-dispatch #{tmp\ 1807}# '(_ (any . any) any . each-any)))) (if (if #{tmp\ 1817}# (@apply (lambda (#{name\ 1822}# #{args\ 1823}# #{e1\ 1824}# #{e2\ 1825}#) (if (#{id?\ 380}# #{name\ 1822}#) (#{valid-bound-ids?\ 440}# (#{lambda-var-list\ 490}# #{args\ 1823}#)) #f)) #{tmp\ 1817}#) #f) (@apply (lambda (#{name\ 1832}# #{args\ 1833}# #{e1\ 1834}# #{e2\ 1835}#) (values 'define-form (#{wrap\ 446}# #{name\ 1832}# #{w\ 1740}# #{mod\ 1743}#) (#{decorate-source\ 300}# (cons '#(syntax-object lambda ((top) #(ribcage #(name args e1 e2) #((top) (top) (top) (top)) #("i1828" "i1829" "i1830" "i1831")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1781" "i1782" "i1783" "i1784" "i1785" "i1786")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1773")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1745" "i1746" "i1747" "i1748" "i1749" "i1750" "i1751")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) (#{wrap\ 446}# (cons #{args\ 1833}# (cons #{e1\ 1834}# #{e2\ 1835}#)) #{w\ 1740}# #{mod\ 1743}#)) #{s\ 1741}#) '(()) #{s\ 1741}# #{mod\ 1743}#)) #{tmp\ 1817}#) (let ((#{tmp\ 1838}# ($sc-dispatch #{tmp\ 1807}# '(_ any)))) (if (if #{tmp\ 1838}# (@apply (lambda (#{name\ 1840}#) (#{id?\ 380}# #{name\ 1840}#)) #{tmp\ 1838}#) #f) (@apply (lambda (#{name\ 1842}#) (values 'define-form (#{wrap\ 446}# #{name\ 1842}# #{w\ 1740}# #{mod\ 1743}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) #("i1841")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1781" "i1782" "i1783" "i1784" "i1785" "i1786")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1773")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1745" "i1746" "i1747" "i1748" "i1749" "i1750" "i1751")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(name) #((top)) #("i1841")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1781" "i1782" "i1783" "i1784" "i1785" "i1786")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1773")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1745" "i1746" "i1747" "i1748" "i1749" "i1750" "i1751")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(name) #((top)) #("i1841")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1781" "i1782" "i1783" "i1784" "i1785" "i1786")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1773")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1745" "i1746" "i1747" "i1748" "i1749" "i1750" "i1751")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) '(()) #{s\ 1741}# #{mod\ 1743}#)) #{tmp\ 1838}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1807}#)))))))) (if (eqv? #{ftype\ 1775}# 'define-syntax) (let ((#{tmp\ 1845}# #{e\ 1738}#)) (let ((#{tmp\ 1846}# ($sc-dispatch #{tmp\ 1845}# '(_ any any)))) (if (if #{tmp\ 1846}# (@apply (lambda (#{name\ 1849}# #{val\ 1850}#) (#{id?\ 380}# #{name\ 1849}#)) #{tmp\ 1846}#) #f) (@apply (lambda (#{name\ 1853}# #{val\ 1854}#) (values 'define-syntax-form #{name\ 1853}# #{val\ 1854}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#)) #{tmp\ 1846}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1845}#)))) (values 'call #f #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#))))))))))))))) (if (#{syntax-object?\ 346}# #{e\ 1738}#) (#{syntax-type\ 458}# (#{syntax-object-expression\ 348}# #{e\ 1738}#) #{r\ 1739}# (#{join-wraps\ 428}# #{w\ 1740}# (#{syntax-object-wrap\ 350}# #{e\ 1738}#)) (begin (let ((#{t\ 1860}# (#{source-annotation\ 361}# #{e\ 1738}#))) (if #{t\ 1860}# #{t\ 1860}# #{s\ 1741}#))) #{rib\ 1742}# (begin (let ((#{t\ 1864}# (#{syntax-object-module\ 352}# #{e\ 1738}#))) (if #{t\ 1864}# #{t\ 1864}# #{mod\ 1743}#))) #{for-car?\ 1744}#) (if (self-evaluating? #{e\ 1738}#) (values 'constant #f #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#) (values 'other #f #{e\ 1738}# #{w\ 1740}# #{s\ 1741}# #{mod\ 1743}#))))))) (#{chi\ 460}# (lambda (#{e\ 1869}# #{r\ 1870}# #{w\ 1871}# #{mod\ 1872}#) (call-with-values (lambda () (#{syntax-type\ 458}# #{e\ 1869}# #{r\ 1870}# #{w\ 1871}# (#{source-annotation\ 361}# #{e\ 1869}#) #f #{mod\ 1872}# #f)) (lambda (#{type\ 1877}# #{value\ 1878}# #{e\ 1879}# #{w\ 1880}# #{s\ 1881}# #{mod\ 1882}#) (#{chi-expr\ 462}# #{type\ 1877}# #{value\ 1878}# #{e\ 1879}# #{r\ 1870}# #{w\ 1880}# #{s\ 1881}# #{mod\ 1882}#))))) (#{chi-expr\ 462}# (lambda (#{type\ 1889}# #{value\ 1890}# #{e\ 1891}# #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#) (if (eqv? #{type\ 1889}# 'lexical) (#{build-lexical-reference\ 312}# 'value #{s\ 1894}# #{e\ 1891}# #{value\ 1890}#) (if (if (eqv? #{type\ 1889}# 'core) #t (eqv? #{type\ 1889}# 'core-form)) (#{value\ 1890}# #{e\ 1891}# #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#) (if (eqv? #{type\ 1889}# 'module-ref) (call-with-values (lambda () (#{value\ 1890}# #{e\ 1891}# #{r\ 1892}# #{w\ 1893}#)) (lambda (#{e\ 1906}# #{r\ 1907}# #{w\ 1908}# #{s\ 1909}# #{mod\ 1910}#) (#{chi\ 460}# #{e\ 1906}# #{r\ 1907}# #{w\ 1908}# #{mod\ 1910}#))) (if (eqv? #{type\ 1889}# 'lexical-call) (#{chi-application\ 464}# (begin (let ((#{id\ 1918}# (car #{e\ 1891}#))) (#{build-lexical-reference\ 312}# 'fun (#{source-annotation\ 361}# #{id\ 1918}#) (if (#{syntax-object?\ 346}# #{id\ 1918}#) (syntax->datum #{id\ 1918}#) #{id\ 1918}#) #{value\ 1890}#))) #{e\ 1891}# #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#) (if (eqv? #{type\ 1889}# 'global-call) (#{chi-application\ 464}# (#{build-global-reference\ 318}# (#{source-annotation\ 361}# (car #{e\ 1891}#)) (if (#{syntax-object?\ 346}# #{value\ 1890}#) (#{syntax-object-expression\ 348}# #{value\ 1890}#) #{value\ 1890}#) (if (#{syntax-object?\ 346}# #{value\ 1890}#) (#{syntax-object-module\ 352}# #{value\ 1890}#) #{mod\ 1895}#)) #{e\ 1891}# #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#) (if (eqv? #{type\ 1889}# 'constant) (#{build-data\ 332}# #{s\ 1894}# (#{strip\ 486}# (#{source-wrap\ 448}# #{e\ 1891}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#) '(()))) (if (eqv? #{type\ 1889}# 'global) (#{build-global-reference\ 318}# #{s\ 1894}# #{value\ 1890}# #{mod\ 1895}#) (if (eqv? #{type\ 1889}# 'call) (#{chi-application\ 464}# (#{chi\ 460}# (car #{e\ 1891}#) #{r\ 1892}# #{w\ 1893}# #{mod\ 1895}#) #{e\ 1891}# #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#) (if (eqv? #{type\ 1889}# 'begin-form) (let ((#{tmp\ 1925}# #{e\ 1891}#)) (let ((#{tmp\ 1926}# ($sc-dispatch #{tmp\ 1925}# '(_ any . each-any)))) (if #{tmp\ 1926}# (@apply (lambda (#{e1\ 1929}# #{e2\ 1930}#) (#{chi-sequence\ 450}# (cons #{e1\ 1929}# #{e2\ 1930}#) #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#)) #{tmp\ 1926}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1925}#)))) (if (eqv? #{type\ 1889}# 'local-syntax-form) (#{chi-local-syntax\ 470}# #{value\ 1890}# #{e\ 1891}# #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}# #{chi-sequence\ 450}#) (if (eqv? #{type\ 1889}# 'eval-when-form) (let ((#{tmp\ 1934}# #{e\ 1891}#)) (let ((#{tmp\ 1935}# ($sc-dispatch #{tmp\ 1934}# '(_ each-any any . each-any)))) (if #{tmp\ 1935}# (@apply (lambda (#{x\ 1939}# #{e1\ 1940}# #{e2\ 1941}#) (begin (let ((#{when-list\ 1943}# (#{chi-when-list\ 456}# #{e\ 1891}# #{x\ 1939}# #{w\ 1893}#))) (if (memq 'eval #{when-list\ 1943}#) (#{chi-sequence\ 450}# (cons #{e1\ 1940}# #{e2\ 1941}#) #{r\ 1892}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#) (#{chi-void\ 474}#))))) #{tmp\ 1935}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1934}#)))) (if (if (eqv? #{type\ 1889}# 'define-form) #t (eqv? #{type\ 1889}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" #{e\ 1891}# (#{wrap\ 446}# #{value\ 1890}# #{w\ 1893}# #{mod\ 1895}#)) (if (eqv? #{type\ 1889}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" (#{source-wrap\ 448}# #{e\ 1891}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#)) (if (eqv? #{type\ 1889}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" (#{source-wrap\ 448}# #{e\ 1891}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#)) (syntax-violation #f "unexpected syntax" (#{source-wrap\ 448}# #{e\ 1891}# #{w\ 1893}# #{s\ 1894}# #{mod\ 1895}#)))))))))))))))))) (#{chi-application\ 464}# (lambda (#{x\ 1950}# #{e\ 1951}# #{r\ 1952}# #{w\ 1953}# #{s\ 1954}# #{mod\ 1955}#) (let ((#{tmp\ 1962}# #{e\ 1951}#)) (let ((#{tmp\ 1963}# ($sc-dispatch #{tmp\ 1962}# '(any . each-any)))) (if #{tmp\ 1963}# (@apply (lambda (#{e0\ 1966}# #{e1\ 1967}#) (#{build-application\ 306}# #{s\ 1954}# #{x\ 1950}# (map (lambda (#{e\ 1968}#) (#{chi\ 460}# #{e\ 1968}# #{r\ 1952}# #{w\ 1953}# #{mod\ 1955}#)) #{e1\ 1967}#))) #{tmp\ 1963}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 1962}#)))))) (#{chi-macro\ 466}# (lambda (#{p\ 1971}# #{e\ 1972}# #{r\ 1973}# #{w\ 1974}# #{s\ 1975}# #{rib\ 1976}# #{mod\ 1977}#) (letrec* ((#{rebuild-macro-output\ 1986}# (lambda (#{x\ 1987}# #{m\ 1988}#) (if (pair? #{x\ 1987}#) (#{decorate-source\ 300}# (cons (#{rebuild-macro-output\ 1986}# (car #{x\ 1987}#) #{m\ 1988}#) (#{rebuild-macro-output\ 1986}# (cdr #{x\ 1987}#) #{m\ 1988}#)) #{s\ 1975}#) (if (#{syntax-object?\ 346}# #{x\ 1987}#) (begin (let ((#{w\ 1996}# (#{syntax-object-wrap\ 350}# #{x\ 1987}#))) (begin (let ((#{ms\ 1999}# (car #{w\ 1996}#)) (#{s\ 2000}# (cdr #{w\ 1996}#))) (if (if (pair? #{ms\ 1999}#) (eq? (car #{ms\ 1999}#) #f) #f) (#{make-syntax-object\ 344}# (#{syntax-object-expression\ 348}# #{x\ 1987}#) (cons (cdr #{ms\ 1999}#) (if #{rib\ 1976}# (cons #{rib\ 1976}# (cdr #{s\ 2000}#)) (cdr #{s\ 2000}#))) (#{syntax-object-module\ 352}# #{x\ 1987}#)) (#{make-syntax-object\ 344}# (#{decorate-source\ 300}# (#{syntax-object-expression\ 348}# #{x\ 1987}#) #{s\ 2000}#) (cons (cons #{m\ 1988}# #{ms\ 1999}#) (if #{rib\ 1976}# (cons #{rib\ 1976}# (cons 'shift #{s\ 2000}#)) (cons 'shift #{s\ 2000}#))) (#{syntax-object-module\ 352}# #{x\ 1987}#))))))) (if (vector? #{x\ 1987}#) (begin (let ((#{n\ 2012}# (vector-length #{x\ 1987}#))) (begin (let ((#{v\ 2014}# (#{decorate-source\ 300}# (make-vector #{n\ 2012}#) #{x\ 1987}#))) (letrec* ((#{loop\ 2017}# (lambda (#{i\ 2018}#) (if (#{fx=\ 287}# #{i\ 2018}# #{n\ 2012}#) (begin (if #f #f) #{v\ 2014}#) (begin (vector-set! #{v\ 2014}# #{i\ 2018}# (#{rebuild-macro-output\ 1986}# (vector-ref #{x\ 1987}# #{i\ 2018}#) #{m\ 1988}#)) (#{loop\ 2017}# (#{fx+\ 283}# #{i\ 2018}# 1))))))) (begin (#{loop\ 2017}# 0))))))) (if (symbol? #{x\ 1987}#) (syntax-violation #f "encountered raw symbol in macro output" (#{source-wrap\ 448}# #{e\ 1972}# #{w\ 1974}# (cdr #{w\ 1974}#) #{mod\ 1977}#) #{x\ 1987}#) (#{decorate-source\ 300}# #{x\ 1987}# #{s\ 1975}#)))))))) (begin (#{rebuild-macro-output\ 1986}# (#{p\ 1971}# (#{source-wrap\ 448}# #{e\ 1972}# (#{anti-mark\ 418}# #{w\ 1974}#) #{s\ 1975}# #{mod\ 1977}#)) (gensym "m")))))) (#{chi-body\ 468}# (lambda (#{body\ 2026}# #{outer-form\ 2027}# #{r\ 2028}# #{w\ 2029}# #{mod\ 2030}#) (begin (let ((#{r\ 2038}# (cons '("placeholder" placeholder) #{r\ 2028}#))) (begin (let ((#{ribcage\ 2040}# (#{make-ribcage\ 398}# '() '() '()))) (begin (let ((#{w\ 2043}# (cons (car #{w\ 2029}#) (cons #{ribcage\ 2040}# (cdr #{w\ 2029}#))))) (letrec* ((#{parse\ 2055}# (lambda (#{body\ 2056}# #{ids\ 2057}# #{labels\ 2058}# #{var-ids\ 2059}# #{vars\ 2060}# #{vals\ 2061}# #{bindings\ 2062}#) (if (null? #{body\ 2056}#) (syntax-violation #f "no expressions in body" #{outer-form\ 2027}#) (begin (let ((#{e\ 2067}# (cdr (car #{body\ 2056}#))) (#{er\ 2068}# (car (car #{body\ 2056}#)))) (call-with-values (lambda () (#{syntax-type\ 458}# #{e\ 2067}# #{er\ 2068}# '(()) (#{source-annotation\ 361}# #{er\ 2068}#) #{ribcage\ 2040}# #{mod\ 2030}# #f)) (lambda (#{type\ 2070}# #{value\ 2071}# #{e\ 2072}# #{w\ 2073}# #{s\ 2074}# #{mod\ 2075}#) (if (eqv? #{type\ 2070}# 'define-form) (begin (let ((#{id\ 2085}# (#{wrap\ 446}# #{value\ 2071}# #{w\ 2073}# #{mod\ 2075}#)) (#{label\ 2086}# (#{gen-label\ 393}#))) (begin (let ((#{var\ 2088}# (#{gen-var\ 488}# #{id\ 2085}#))) (begin (#{extend-ribcage!\ 422}# #{ribcage\ 2040}# #{id\ 2085}# #{label\ 2086}#) (#{parse\ 2055}# (cdr #{body\ 2056}#) (cons #{id\ 2085}# #{ids\ 2057}#) (cons #{label\ 2086}# #{labels\ 2058}#) (cons #{id\ 2085}# #{var-ids\ 2059}#) (cons #{var\ 2088}# #{vars\ 2060}#) (cons (cons #{er\ 2068}# (#{wrap\ 446}# #{e\ 2072}# #{w\ 2073}# #{mod\ 2075}#)) #{vals\ 2061}#) (cons (cons 'lexical #{var\ 2088}#) #{bindings\ 2062}#))))))) (if (eqv? #{type\ 2070}# 'define-syntax-form) (begin (let ((#{id\ 2093}# (#{wrap\ 446}# #{value\ 2071}# #{w\ 2073}# #{mod\ 2075}#)) (#{label\ 2094}# (#{gen-label\ 393}#))) (begin (#{extend-ribcage!\ 422}# #{ribcage\ 2040}# #{id\ 2093}# #{label\ 2094}#) (#{parse\ 2055}# (cdr #{body\ 2056}#) (cons #{id\ 2093}# #{ids\ 2057}#) (cons #{label\ 2094}# #{labels\ 2058}#) #{var-ids\ 2059}# #{vars\ 2060}# #{vals\ 2061}# (cons (cons 'macro (cons #{er\ 2068}# (#{wrap\ 446}# #{e\ 2072}# #{w\ 2073}# #{mod\ 2075}#))) #{bindings\ 2062}#))))) (if (eqv? #{type\ 2070}# 'begin-form) (let ((#{tmp\ 2097}# #{e\ 2072}#)) (let ((#{tmp\ 2098}# ($sc-dispatch #{tmp\ 2097}# '(_ . each-any)))) (if #{tmp\ 2098}# (@apply (lambda (#{e1\ 2100}#) (#{parse\ 2055}# (letrec* ((#{f\ 2103}# (lambda (#{forms\ 2104}#) (if (null? #{forms\ 2104}#) (cdr #{body\ 2056}#) (cons (cons #{er\ 2068}# (#{wrap\ 446}# (car #{forms\ 2104}#) #{w\ 2073}# #{mod\ 2075}#)) (#{f\ 2103}# (cdr #{forms\ 2104}#))))))) (begin (#{f\ 2103}# #{e1\ 2100}#))) #{ids\ 2057}# #{labels\ 2058}# #{var-ids\ 2059}# #{vars\ 2060}# #{vals\ 2061}# #{bindings\ 2062}#)) #{tmp\ 2098}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 2097}#)))) (if (eqv? #{type\ 2070}# 'local-syntax-form) (#{chi-local-syntax\ 470}# #{value\ 2071}# #{e\ 2072}# #{er\ 2068}# #{w\ 2073}# #{s\ 2074}# #{mod\ 2075}# (lambda (#{forms\ 2107}# #{er\ 2108}# #{w\ 2109}# #{s\ 2110}# #{mod\ 2111}#) (#{parse\ 2055}# (letrec* ((#{f\ 2119}# (lambda (#{forms\ 2120}#) (if (null? #{forms\ 2120}#) (cdr #{body\ 2056}#) (cons (cons #{er\ 2108}# (#{wrap\ 446}# (car #{forms\ 2120}#) #{w\ 2109}# #{mod\ 2111}#)) (#{f\ 2119}# (cdr #{forms\ 2120}#))))))) (begin (#{f\ 2119}# #{forms\ 2107}#))) #{ids\ 2057}# #{labels\ 2058}# #{var-ids\ 2059}# #{vars\ 2060}# #{vals\ 2061}# #{bindings\ 2062}#))) (if (null? #{ids\ 2057}#) (#{build-sequence\ 334}# #f (map (lambda (#{x\ 2123}#) (#{chi\ 460}# (cdr #{x\ 2123}#) (car #{x\ 2123}#) '(()) #{mod\ 2075}#)) (cons (cons #{er\ 2068}# (#{source-wrap\ 448}# #{e\ 2072}# #{w\ 2073}# #{s\ 2074}# #{mod\ 2075}#)) (cdr #{body\ 2056}#)))) (begin (if (not (#{valid-bound-ids?\ 440}# #{ids\ 2057}#)) (syntax-violation #f "invalid or duplicate identifier in definition" #{outer-form\ 2027}#)) (letrec* ((#{loop\ 2130}# (lambda (#{bs\ 2131}# #{er-cache\ 2132}# #{r-cache\ 2133}#) (if (not (null? #{bs\ 2131}#)) (begin (let ((#{b\ 2136}# (car #{bs\ 2131}#))) (if (eq? (car #{b\ 2136}#) 'macro) (begin (let ((#{er\ 2139}# (car (cdr #{b\ 2136}#)))) (begin (let ((#{r-cache\ 2141}# (if (eq? #{er\ 2139}# #{er-cache\ 2132}#) #{r-cache\ 2133}# (#{macros-only-env\ 372}# #{er\ 2139}#)))) (begin (set-cdr! #{b\ 2136}# (#{eval-local-transformer\ 472}# (#{chi\ 460}# (cdr (cdr #{b\ 2136}#)) #{r-cache\ 2141}# '(()) #{mod\ 2075}#) #{mod\ 2075}#)) (#{loop\ 2130}# (cdr #{bs\ 2131}#) #{er\ 2139}# #{r-cache\ 2141}#)))))) (#{loop\ 2130}# (cdr #{bs\ 2131}#) #{er-cache\ 2132}# #{r-cache\ 2133}#)))))))) (begin (#{loop\ 2130}# #{bindings\ 2062}# #f #f))) (set-cdr! #{r\ 2038}# (#{extend-env\ 368}# #{labels\ 2058}# #{bindings\ 2062}# (cdr #{r\ 2038}#))) (#{build-letrec\ 340}# #f #t (reverse (map syntax->datum #{var-ids\ 2059}#)) (reverse #{vars\ 2060}#) (map (lambda (#{x\ 2144}#) (#{chi\ 460}# (cdr #{x\ 2144}#) (car #{x\ 2144}#) '(()) #{mod\ 2075}#)) (reverse #{vals\ 2061}#)) (#{build-sequence\ 334}# #f (map (lambda (#{x\ 2148}#) (#{chi\ 460}# (cdr #{x\ 2148}#) (car #{x\ 2148}#) '(()) #{mod\ 2075}#)) (cons (cons #{er\ 2068}# (#{source-wrap\ 448}# #{e\ 2072}# #{w\ 2073}# #{s\ 2074}# #{mod\ 2075}#)) (cdr #{body\ 2056}#))))))))))))))))))) (begin (#{parse\ 2055}# (map (lambda (#{x\ 2063}#) (cons #{r\ 2038}# (#{wrap\ 446}# #{x\ 2063}# #{w\ 2043}# #{mod\ 2030}#))) #{body\ 2026}#) '() '() '() '() '() '()))))))))))) (#{chi-local-syntax\ 470}# (lambda (#{rec?\ 2151}# #{e\ 2152}# #{r\ 2153}# #{w\ 2154}# #{s\ 2155}# #{mod\ 2156}# #{k\ 2157}#) (let ((#{tmp\ 2165}# #{e\ 2152}#)) (let ((#{tmp\ 2166}# ($sc-dispatch #{tmp\ 2165}# '(_ #(each (any any)) any . each-any)))) (if #{tmp\ 2166}# (@apply (lambda (#{id\ 2171}# #{val\ 2172}# #{e1\ 2173}# #{e2\ 2174}#) (begin (let ((#{ids\ 2176}# #{id\ 2171}#)) (if (not (#{valid-bound-ids?\ 440}# #{ids\ 2176}#)) (syntax-violation #f "duplicate bound keyword" #{e\ 2152}#) (begin (let ((#{labels\ 2179}# (#{gen-labels\ 395}# #{ids\ 2176}#))) (begin (let ((#{new-w\ 2181}# (#{make-binding-wrap\ 424}# #{ids\ 2176}# #{labels\ 2179}# #{w\ 2154}#))) (#{k\ 2157}# (cons #{e1\ 2173}# #{e2\ 2174}#) (#{extend-env\ 368}# #{labels\ 2179}# (begin (let ((#{w\ 2185}# (if #{rec?\ 2151}# #{new-w\ 2181}# #{w\ 2154}#)) (#{trans-r\ 2186}# (#{macros-only-env\ 372}# #{r\ 2153}#))) (map (lambda (#{x\ 2187}#) (cons 'macro (#{eval-local-transformer\ 472}# (#{chi\ 460}# #{x\ 2187}# #{trans-r\ 2186}# #{w\ 2185}# #{mod\ 2156}#) #{mod\ 2156}#))) #{val\ 2172}#))) #{r\ 2153}#) #{new-w\ 2181}# #{s\ 2155}# #{mod\ 2156}#))))))))) #{tmp\ 2166}#) (let ((#{_\ 2192}# #{tmp\ 2165}#)) (syntax-violation #f "bad local syntax definition" (#{source-wrap\ 448}# #{e\ 2152}# #{w\ 2154}# #{s\ 2155}# #{mod\ 2156}#)))))))) (#{eval-local-transformer\ 472}# (lambda (#{expanded\ 2193}# #{mod\ 2194}#) (begin (let ((#{p\ 2198}# (#{local-eval-hook\ 293}# #{expanded\ 2193}# #{mod\ 2194}#))) (if (procedure? #{p\ 2198}#) #{p\ 2198}# (syntax-violation #f "nonprocedure transformer" #{p\ 2198}#)))))) (#{chi-void\ 474}# (lambda () (#{build-void\ 304}# #f))) (#{ellipsis?\ 476}# (lambda (#{x\ 2200}#) (if (#{nonsymbol-id?\ 378}# #{x\ 2200}#) (#{free-id=?\ 436}# #{x\ 2200}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i2201")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) #f))) (#{lambda-formals\ 478}# (lambda (#{orig-args\ 2204}#) (letrec* ((#{req\ 2207}# (lambda (#{args\ 2210}# #{rreq\ 2211}#) (let ((#{tmp\ 2214}# #{args\ 2210}#)) (let ((#{tmp\ 2215}# ($sc-dispatch #{tmp\ 2214}# '()))) (if #{tmp\ 2215}# (@apply (lambda () (#{check\ 2209}# (reverse #{rreq\ 2211}#) #f)) #{tmp\ 2215}#) (let ((#{tmp\ 2216}# ($sc-dispatch #{tmp\ 2214}# '(any . any)))) (if (if #{tmp\ 2216}# (@apply (lambda (#{a\ 2219}# #{b\ 2220}#) (#{id?\ 380}# #{a\ 2219}#)) #{tmp\ 2216}#) #f) (@apply (lambda (#{a\ 2223}# #{b\ 2224}#) (#{req\ 2207}# #{b\ 2224}# (cons #{a\ 2223}# #{rreq\ 2211}#))) #{tmp\ 2216}#) (let ((#{tmp\ 2225}# (list #{tmp\ 2214}#))) (if (if #{tmp\ 2225}# (@apply (lambda (#{r\ 2227}#) (#{id?\ 380}# #{r\ 2227}#)) #{tmp\ 2225}#) #f) (@apply (lambda (#{r\ 2229}#) (#{check\ 2209}# (reverse #{rreq\ 2211}#) #{r\ 2229}#)) #{tmp\ 2225}#) (let ((#{else\ 2231}# #{tmp\ 2214}#)) (syntax-violation 'lambda "invalid argument list" #{orig-args\ 2204}# #{args\ 2210}#))))))))))) (#{check\ 2209}# (lambda (#{req\ 2232}# #{rest\ 2233}#) (if (#{distinct-bound-ids?\ 442}# (if #{rest\ 2233}# (cons #{rest\ 2233}# #{req\ 2232}#) #{req\ 2232}#)) (values #{req\ 2232}# #f #{rest\ 2233}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" #{orig-args\ 2204}#))))) (begin (#{req\ 2207}# #{orig-args\ 2204}# '()))))) (#{chi-simple-lambda\ 480}# (lambda (#{e\ 2239}# #{r\ 2240}# #{w\ 2241}# #{s\ 2242}# #{mod\ 2243}# #{req\ 2244}# #{rest\ 2245}# #{meta\ 2246}# #{body\ 2247}#) (begin (let ((#{ids\ 2259}# (if #{rest\ 2245}# (append #{req\ 2244}# (list #{rest\ 2245}#)) #{req\ 2244}#))) (begin (let ((#{vars\ 2261}# (map #{gen-var\ 488}# #{ids\ 2259}#))) (begin (let ((#{labels\ 2263}# (#{gen-labels\ 395}# #{ids\ 2259}#))) (#{build-simple-lambda\ 324}# #{s\ 2242}# (map syntax->datum #{req\ 2244}#) (if #{rest\ 2245}# (syntax->datum #{rest\ 2245}#) #f) #{vars\ 2261}# #{meta\ 2246}# (#{chi-body\ 468}# #{body\ 2247}# (#{source-wrap\ 448}# #{e\ 2239}# #{w\ 2241}# #{s\ 2242}# #{mod\ 2243}#) (#{extend-var-env\ 370}# #{labels\ 2263}# #{vars\ 2261}# #{r\ 2240}#) (#{make-binding-wrap\ 424}# #{ids\ 2259}# #{labels\ 2263}# #{w\ 2241}#) #{mod\ 2243}#)))))))))) (#{lambda*-formals\ 482}# (lambda (#{orig-args\ 2266}#) (letrec* ((#{req\ 2269}# (lambda (#{args\ 2278}# #{rreq\ 2279}#) (let ((#{tmp\ 2282}# #{args\ 2278}#)) (let ((#{tmp\ 2283}# ($sc-dispatch #{tmp\ 2282}# '()))) (if #{tmp\ 2283}# (@apply (lambda () (#{check\ 2277}# (reverse #{rreq\ 2279}#) '() #f '())) #{tmp\ 2283}#) (let ((#{tmp\ 2284}# ($sc-dispatch #{tmp\ 2282}# '(any . any)))) (if (if #{tmp\ 2284}# (@apply (lambda (#{a\ 2287}# #{b\ 2288}#) (#{id?\ 380}# #{a\ 2287}#)) #{tmp\ 2284}#) #f) (@apply (lambda (#{a\ 2291}# #{b\ 2292}#) (#{req\ 2269}# #{b\ 2292}# (cons #{a\ 2291}# #{rreq\ 2279}#))) #{tmp\ 2284}#) (let ((#{tmp\ 2293}# ($sc-dispatch #{tmp\ 2282}# '(any . any)))) (if (if #{tmp\ 2293}# (@apply (lambda (#{a\ 2296}# #{b\ 2297}#) (eq? (syntax->datum #{a\ 2296}#) #:optional)) #{tmp\ 2293}#) #f) (@apply (lambda (#{a\ 2300}# #{b\ 2301}#) (#{opt\ 2271}# #{b\ 2301}# (reverse #{rreq\ 2279}#) '())) #{tmp\ 2293}#) (let ((#{tmp\ 2302}# ($sc-dispatch #{tmp\ 2282}# '(any . any)))) (if (if #{tmp\ 2302}# (@apply (lambda (#{a\ 2305}# #{b\ 2306}#) (eq? (syntax->datum #{a\ 2305}#) #:key)) #{tmp\ 2302}#) #f) (@apply (lambda (#{a\ 2309}# #{b\ 2310}#) (#{key\ 2273}# #{b\ 2310}# (reverse #{rreq\ 2279}#) '() '())) #{tmp\ 2302}#) (let ((#{tmp\ 2311}# ($sc-dispatch #{tmp\ 2282}# '(any any)))) (if (if #{tmp\ 2311}# (@apply (lambda (#{a\ 2314}# #{b\ 2315}#) (eq? (syntax->datum #{a\ 2314}#) #:rest)) #{tmp\ 2311}#) #f) (@apply (lambda (#{a\ 2318}# #{b\ 2319}#) (#{rest\ 2275}# #{b\ 2319}# (reverse #{rreq\ 2279}#) '() '())) #{tmp\ 2311}#) (let ((#{tmp\ 2320}# (list #{tmp\ 2282}#))) (if (if #{tmp\ 2320}# (@apply (lambda (#{r\ 2322}#) (#{id?\ 380}# #{r\ 2322}#)) #{tmp\ 2320}#) #f) (@apply (lambda (#{r\ 2324}#) (#{rest\ 2275}# #{r\ 2324}# (reverse #{rreq\ 2279}#) '() '())) #{tmp\ 2320}#) (let ((#{else\ 2326}# #{tmp\ 2282}#)) (syntax-violation 'lambda* "invalid argument list" #{orig-args\ 2266}# #{args\ 2278}#))))))))))))))))) (#{opt\ 2271}# (lambda (#{args\ 2327}# #{req\ 2328}# #{ropt\ 2329}#) (let ((#{tmp\ 2333}# #{args\ 2327}#)) (let ((#{tmp\ 2334}# ($sc-dispatch #{tmp\ 2333}# '()))) (if #{tmp\ 2334}# (@apply (lambda () (#{check\ 2277}# #{req\ 2328}# (reverse #{ropt\ 2329}#) #f '())) #{tmp\ 2334}#) (let ((#{tmp\ 2335}# ($sc-dispatch #{tmp\ 2333}# '(any . any)))) (if (if #{tmp\ 2335}# (@apply (lambda (#{a\ 2338}# #{b\ 2339}#) (#{id?\ 380}# #{a\ 2338}#)) #{tmp\ 2335}#) #f) (@apply (lambda (#{a\ 2342}# #{b\ 2343}#) (#{opt\ 2271}# #{b\ 2343}# #{req\ 2328}# (cons (cons #{a\ 2342}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) #("i2340" "i2341")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) #("i2330" "i2331" "i2332")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i2276" "i2274" "i2272" "i2270" "i2268")) #(ribcage #(orig-args) #((top)) #("i2267")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)))) #{ropt\ 2329}#))) #{tmp\ 2335}#) (let ((#{tmp\ 2344}# ($sc-dispatch #{tmp\ 2333}# '((any any) . any)))) (if (if #{tmp\ 2344}# (@apply (lambda (#{a\ 2348}# #{init\ 2349}# #{b\ 2350}#) (#{id?\ 380}# #{a\ 2348}#)) #{tmp\ 2344}#) #f) (@apply (lambda (#{a\ 2354}# #{init\ 2355}# #{b\ 2356}#) (#{opt\ 2271}# #{b\ 2356}# #{req\ 2328}# (cons (list #{a\ 2354}# #{init\ 2355}#) #{ropt\ 2329}#))) #{tmp\ 2344}#) (let ((#{tmp\ 2357}# ($sc-dispatch #{tmp\ 2333}# '(any . any)))) (if (if #{tmp\ 2357}# (@apply (lambda (#{a\ 2360}# #{b\ 2361}#) (eq? (syntax->datum #{a\ 2360}#) #:key)) #{tmp\ 2357}#) #f) (@apply (lambda (#{a\ 2364}# #{b\ 2365}#) (#{key\ 2273}# #{b\ 2365}# #{req\ 2328}# (reverse #{ropt\ 2329}#) '())) #{tmp\ 2357}#) (let ((#{tmp\ 2366}# ($sc-dispatch #{tmp\ 2333}# '(any any)))) (if (if #{tmp\ 2366}# (@apply (lambda (#{a\ 2369}# #{b\ 2370}#) (eq? (syntax->datum #{a\ 2369}#) #:rest)) #{tmp\ 2366}#) #f) (@apply (lambda (#{a\ 2373}# #{b\ 2374}#) (#{rest\ 2275}# #{b\ 2374}# #{req\ 2328}# (reverse #{ropt\ 2329}#) '())) #{tmp\ 2366}#) (let ((#{tmp\ 2375}# (list #{tmp\ 2333}#))) (if (if #{tmp\ 2375}# (@apply (lambda (#{r\ 2377}#) (#{id?\ 380}# #{r\ 2377}#)) #{tmp\ 2375}#) #f) (@apply (lambda (#{r\ 2379}#) (#{rest\ 2275}# #{r\ 2379}# #{req\ 2328}# (reverse #{ropt\ 2329}#) '())) #{tmp\ 2375}#) (let ((#{else\ 2381}# #{tmp\ 2333}#)) (syntax-violation 'lambda* "invalid optional argument list" #{orig-args\ 2266}# #{args\ 2327}#))))))))))))))))) (#{key\ 2273}# (lambda (#{args\ 2382}# #{req\ 2383}# #{opt\ 2384}# #{rkey\ 2385}#) (let ((#{tmp\ 2390}# #{args\ 2382}#)) (let ((#{tmp\ 2391}# ($sc-dispatch #{tmp\ 2390}# '()))) (if #{tmp\ 2391}# (@apply (lambda () (#{check\ 2277}# #{req\ 2383}# #{opt\ 2384}# #f (cons #f (reverse #{rkey\ 2385}#)))) #{tmp\ 2391}#) (let ((#{tmp\ 2392}# ($sc-dispatch #{tmp\ 2390}# '(any . any)))) (if (if #{tmp\ 2392}# (@apply (lambda (#{a\ 2395}# #{b\ 2396}#) (#{id?\ 380}# #{a\ 2395}#)) #{tmp\ 2392}#) #f) (@apply (lambda (#{a\ 2399}# #{b\ 2400}#) (let ((#{tmp\ 2402}# (symbol->keyword (syntax->datum #{a\ 2399}#)))) (let ((#{k\ 2404}# #{tmp\ 2402}#)) (#{key\ 2273}# #{b\ 2400}# #{req\ 2383}# #{opt\ 2384}# (cons (cons #{k\ 2404}# (cons #{a\ 2399}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) #("i2403")) #(ribcage #(a b) #((top) (top)) #("i2397" "i2398")) #(ribcage () () ()) #(ribcage #(args req opt rkey) #((top) (top) (top) (top)) #("i2386" "i2387" "i2388" "i2389")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i2276" "i2274" "i2272" "i2270" "i2268")) #(ribcage #(orig-args) #((top)) #("i2267")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))))) #{rkey\ 2385}#))))) #{tmp\ 2392}#) (let ((#{tmp\ 2405}# ($sc-dispatch #{tmp\ 2390}# '((any any) . any)))) (if (if #{tmp\ 2405}# (@apply (lambda (#{a\ 2409}# #{init\ 2410}# #{b\ 2411}#) (#{id?\ 380}# #{a\ 2409}#)) #{tmp\ 2405}#) #f) (@apply (lambda (#{a\ 2415}# #{init\ 2416}# #{b\ 2417}#) (let ((#{tmp\ 2419}# (symbol->keyword (syntax->datum #{a\ 2415}#)))) (let ((#{k\ 2421}# #{tmp\ 2419}#)) (#{key\ 2273}# #{b\ 2417}# #{req\ 2383}# #{opt\ 2384}# (cons (list #{k\ 2421}# #{a\ 2415}# #{init\ 2416}#) #{rkey\ 2385}#))))) #{tmp\ 2405}#) (let ((#{tmp\ 2422}# ($sc-dispatch #{tmp\ 2390}# '((any any any) . any)))) (if (if #{tmp\ 2422}# (@apply (lambda (#{a\ 2427}# #{init\ 2428}# #{k\ 2429}# #{b\ 2430}#) (if (#{id?\ 380}# #{a\ 2427}#) (keyword? (syntax->datum #{k\ 2429}#)) #f)) #{tmp\ 2422}#) #f) (@apply (lambda (#{a\ 2437}# #{init\ 2438}# #{k\ 2439}# #{b\ 2440}#) (#{key\ 2273}# #{b\ 2440}# #{req\ 2383}# #{opt\ 2384}# (cons (list #{k\ 2439}# #{a\ 2437}# #{init\ 2438}#) #{rkey\ 2385}#))) #{tmp\ 2422}#) (let ((#{tmp\ 2441}# ($sc-dispatch #{tmp\ 2390}# '(any)))) (if (if #{tmp\ 2441}# (@apply (lambda (#{aok\ 2443}#) (eq? (syntax->datum #{aok\ 2443}#) #:allow-other-keys)) #{tmp\ 2441}#) #f) (@apply (lambda (#{aok\ 2445}#) (#{check\ 2277}# #{req\ 2383}# #{opt\ 2384}# #f (cons #t (reverse #{rkey\ 2385}#)))) #{tmp\ 2441}#) (let ((#{tmp\ 2446}# ($sc-dispatch #{tmp\ 2390}# '(any any any)))) (if (if #{tmp\ 2446}# (@apply (lambda (#{aok\ 2450}# #{a\ 2451}# #{b\ 2452}#) (if (eq? (syntax->datum #{aok\ 2450}#) #:allow-other-keys) (eq? (syntax->datum #{a\ 2451}#) #:rest) #f)) #{tmp\ 2446}#) #f) (@apply (lambda (#{aok\ 2458}# #{a\ 2459}# #{b\ 2460}#) (#{rest\ 2275}# #{b\ 2460}# #{req\ 2383}# #{opt\ 2384}# (cons #t (reverse #{rkey\ 2385}#)))) #{tmp\ 2446}#) (let ((#{tmp\ 2461}# ($sc-dispatch #{tmp\ 2390}# '(any . any)))) (if (if #{tmp\ 2461}# (@apply (lambda (#{aok\ 2464}# #{r\ 2465}#) (if (eq? (syntax->datum #{aok\ 2464}#) #:allow-other-keys) (#{id?\ 380}# #{r\ 2465}#) #f)) #{tmp\ 2461}#) #f) (@apply (lambda (#{aok\ 2470}# #{r\ 2471}#) (#{rest\ 2275}# #{r\ 2471}# #{req\ 2383}# #{opt\ 2384}# (cons #t (reverse #{rkey\ 2385}#)))) #{tmp\ 2461}#) (let ((#{tmp\ 2472}# ($sc-dispatch #{tmp\ 2390}# '(any any)))) (if (if #{tmp\ 2472}# (@apply (lambda (#{a\ 2475}# #{b\ 2476}#) (eq? (syntax->datum #{a\ 2475}#) #:rest)) #{tmp\ 2472}#) #f) (@apply (lambda (#{a\ 2479}# #{b\ 2480}#) (#{rest\ 2275}# #{b\ 2480}# #{req\ 2383}# #{opt\ 2384}# (cons #f (reverse #{rkey\ 2385}#)))) #{tmp\ 2472}#) (let ((#{tmp\ 2481}# (list #{tmp\ 2390}#))) (if (if #{tmp\ 2481}# (@apply (lambda (#{r\ 2483}#) (#{id?\ 380}# #{r\ 2483}#)) #{tmp\ 2481}#) #f) (@apply (lambda (#{r\ 2485}#) (#{rest\ 2275}# #{r\ 2485}# #{req\ 2383}# #{opt\ 2384}# (cons #f (reverse #{rkey\ 2385}#)))) #{tmp\ 2481}#) (let ((#{else\ 2487}# #{tmp\ 2390}#)) (syntax-violation 'lambda* "invalid keyword argument list" #{orig-args\ 2266}# #{args\ 2382}#))))))))))))))))))))))) (#{rest\ 2275}# (lambda (#{args\ 2488}# #{req\ 2489}# #{opt\ 2490}# #{kw\ 2491}#) (let ((#{tmp\ 2496}# #{args\ 2488}#)) (let ((#{tmp\ 2497}# (list #{tmp\ 2496}#))) (if (if #{tmp\ 2497}# (@apply (lambda (#{r\ 2499}#) (#{id?\ 380}# #{r\ 2499}#)) #{tmp\ 2497}#) #f) (@apply (lambda (#{r\ 2501}#) (#{check\ 2277}# #{req\ 2489}# #{opt\ 2490}# #{r\ 2501}# #{kw\ 2491}#)) #{tmp\ 2497}#) (let ((#{else\ 2503}# #{tmp\ 2496}#)) (syntax-violation 'lambda* "invalid rest argument" #{orig-args\ 2266}# #{args\ 2488}#))))))) (#{check\ 2277}# (lambda (#{req\ 2504}# #{opt\ 2505}# #{rest\ 2506}# #{kw\ 2507}#) (if (#{distinct-bound-ids?\ 442}# (append #{req\ 2504}# (map car #{opt\ 2505}#) (if #{rest\ 2506}# (list #{rest\ 2506}#) '()) (if (pair? #{kw\ 2507}#) (map cadr (cdr #{kw\ 2507}#)) '()))) (values #{req\ 2504}# #{opt\ 2505}# #{rest\ 2506}# #{kw\ 2507}#) (syntax-violation 'lambda* "duplicate identifier in argument list" #{orig-args\ 2266}#))))) (begin (#{req\ 2269}# #{orig-args\ 2266}# '()))))) (#{chi-lambda-case\ 484}# (lambda (#{e\ 2515}# #{r\ 2516}# #{w\ 2517}# #{s\ 2518}# #{mod\ 2519}# #{get-formals\ 2520}# #{clauses\ 2521}#) (letrec* ((#{expand-req\ 2530}# (lambda (#{req\ 2537}# #{opt\ 2538}# #{rest\ 2539}# #{kw\ 2540}# #{body\ 2541}#) (begin (let ((#{vars\ 2549}# (map #{gen-var\ 488}# #{req\ 2537}#)) (#{labels\ 2550}# (#{gen-labels\ 395}# #{req\ 2537}#))) (begin (let ((#{r*\ 2553}# (#{extend-var-env\ 370}# #{labels\ 2550}# #{vars\ 2549}# #{r\ 2516}#)) (#{w*\ 2554}# (#{make-binding-wrap\ 424}# #{req\ 2537}# #{labels\ 2550}# #{w\ 2517}#))) (#{expand-opt\ 2532}# (map syntax->datum #{req\ 2537}#) #{opt\ 2538}# #{rest\ 2539}# #{kw\ 2540}# #{body\ 2541}# (reverse #{vars\ 2549}#) #{r*\ 2553}# #{w*\ 2554}# '() '()))))))) (#{expand-opt\ 2532}# (lambda (#{req\ 2555}# #{opt\ 2556}# #{rest\ 2557}# #{kw\ 2558}# #{body\ 2559}# #{vars\ 2560}# #{r*\ 2561}# #{w*\ 2562}# #{out\ 2563}# #{inits\ 2564}#) (if (pair? #{opt\ 2556}#) (let ((#{tmp\ 2577}# (car #{opt\ 2556}#))) (let ((#{tmp\ 2578}# ($sc-dispatch #{tmp\ 2577}# '(any any)))) (if #{tmp\ 2578}# (@apply (lambda (#{id\ 2581}# #{i\ 2582}#) (begin (let ((#{v\ 2585}# (#{gen-var\ 488}# #{id\ 2581}#))) (begin (let ((#{l\ 2587}# (#{gen-labels\ 395}# (list #{v\ 2585}#)))) (begin (let ((#{r**\ 2589}# (#{extend-var-env\ 370}# #{l\ 2587}# (list #{v\ 2585}#) #{r*\ 2561}#))) (begin (let ((#{w**\ 2591}# (#{make-binding-wrap\ 424}# (list #{id\ 2581}#) #{l\ 2587}# #{w*\ 2562}#))) (#{expand-opt\ 2532}# #{req\ 2555}# (cdr #{opt\ 2556}#) #{rest\ 2557}# #{kw\ 2558}# #{body\ 2559}# (cons #{v\ 2585}# #{vars\ 2560}#) #{r**\ 2589}# #{w**\ 2591}# (cons (syntax->datum #{id\ 2581}#) #{out\ 2563}#) (cons (#{chi\ 460}# #{i\ 2582}# #{r*\ 2561}# #{w*\ 2562}# #{mod\ 2519}#) #{inits\ 2564}#))))))))))) #{tmp\ 2578}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 2577}#)))) (if #{rest\ 2557}# (begin (let ((#{v\ 2596}# (#{gen-var\ 488}# #{rest\ 2557}#))) (begin (let ((#{l\ 2598}# (#{gen-labels\ 395}# (list #{v\ 2596}#)))) (begin (let ((#{r*\ 2600}# (#{extend-var-env\ 370}# #{l\ 2598}# (list #{v\ 2596}#) #{r*\ 2561}#))) (begin (let ((#{w*\ 2602}# (#{make-binding-wrap\ 424}# (list #{rest\ 2557}#) #{l\ 2598}# #{w*\ 2562}#))) (#{expand-kw\ 2534}# #{req\ 2555}# (if (pair? #{out\ 2563}#) (reverse #{out\ 2563}#) #f) (syntax->datum #{rest\ 2557}#) (if (pair? #{kw\ 2558}#) (cdr #{kw\ 2558}#) #{kw\ 2558}#) #{body\ 2559}# (cons #{v\ 2596}# #{vars\ 2560}#) #{r*\ 2600}# #{w*\ 2602}# (if (pair? #{kw\ 2558}#) (car #{kw\ 2558}#) #f) '() #{inits\ 2564}#))))))))) (#{expand-kw\ 2534}# #{req\ 2555}# (if (pair? #{out\ 2563}#) (reverse #{out\ 2563}#) #f) #f (if (pair? #{kw\ 2558}#) (cdr #{kw\ 2558}#) #{kw\ 2558}#) #{body\ 2559}# #{vars\ 2560}# #{r*\ 2561}# #{w*\ 2562}# (if (pair? #{kw\ 2558}#) (car #{kw\ 2558}#) #f) '() #{inits\ 2564}#))))) (#{expand-kw\ 2534}# (lambda (#{req\ 2604}# #{opt\ 2605}# #{rest\ 2606}# #{kw\ 2607}# #{body\ 2608}# #{vars\ 2609}# #{r*\ 2610}# #{w*\ 2611}# #{aok\ 2612}# #{out\ 2613}# #{inits\ 2614}#) (if (pair? #{kw\ 2607}#) (let ((#{tmp\ 2628}# (car #{kw\ 2607}#))) (let ((#{tmp\ 2629}# ($sc-dispatch #{tmp\ 2628}# '(any any any)))) (if #{tmp\ 2629}# (@apply (lambda (#{k\ 2633}# #{id\ 2634}# #{i\ 2635}#) (begin (let ((#{v\ 2638}# (#{gen-var\ 488}# #{id\ 2634}#))) (begin (let ((#{l\ 2640}# (#{gen-labels\ 395}# (list #{v\ 2638}#)))) (begin (let ((#{r**\ 2642}# (#{extend-var-env\ 370}# #{l\ 2640}# (list #{v\ 2638}#) #{r*\ 2610}#))) (begin (let ((#{w**\ 2644}# (#{make-binding-wrap\ 424}# (list #{id\ 2634}#) #{l\ 2640}# #{w*\ 2611}#))) (#{expand-kw\ 2534}# #{req\ 2604}# #{opt\ 2605}# #{rest\ 2606}# (cdr #{kw\ 2607}#) #{body\ 2608}# (cons #{v\ 2638}# #{vars\ 2609}#) #{r**\ 2642}# #{w**\ 2644}# #{aok\ 2612}# (cons (list (syntax->datum #{k\ 2633}#) (syntax->datum #{id\ 2634}#) #{v\ 2638}#) #{out\ 2613}#) (cons (#{chi\ 460}# #{i\ 2635}# #{r*\ 2610}# #{w*\ 2611}# #{mod\ 2519}#) #{inits\ 2614}#))))))))))) #{tmp\ 2629}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 2628}#)))) (#{expand-body\ 2536}# #{req\ 2604}# #{opt\ 2605}# #{rest\ 2606}# (if (begin (let ((#{t\ 2648}# #{aok\ 2612}#)) (if #{t\ 2648}# #{t\ 2648}# (pair? #{out\ 2613}#)))) (cons #{aok\ 2612}# (reverse #{out\ 2613}#)) #f) #{body\ 2608}# (reverse #{vars\ 2609}#) #{r*\ 2610}# #{w*\ 2611}# (reverse #{inits\ 2614}#) '())))) (#{expand-body\ 2536}# (lambda (#{req\ 2650}# #{opt\ 2651}# #{rest\ 2652}# #{kw\ 2653}# #{body\ 2654}# #{vars\ 2655}# #{r*\ 2656}# #{w*\ 2657}# #{inits\ 2658}# #{meta\ 2659}#) (let ((#{tmp\ 2670}# #{body\ 2654}#)) (let ((#{tmp\ 2671}# ($sc-dispatch #{tmp\ 2670}# '(any any . each-any)))) (if (if #{tmp\ 2671}# (@apply (lambda (#{docstring\ 2675}# #{e1\ 2676}# #{e2\ 2677}#) (string? (syntax->datum #{docstring\ 2675}#))) #{tmp\ 2671}#) #f) (@apply (lambda (#{docstring\ 2681}# #{e1\ 2682}# #{e2\ 2683}#) (#{expand-body\ 2536}# #{req\ 2650}# #{opt\ 2651}# #{rest\ 2652}# #{kw\ 2653}# (cons #{e1\ 2682}# #{e2\ 2683}#) #{vars\ 2655}# #{r*\ 2656}# #{w*\ 2657}# #{inits\ 2658}# (append #{meta\ 2659}# (list (cons 'documentation (syntax->datum #{docstring\ 2681}#)))))) #{tmp\ 2671}#) (let ((#{tmp\ 2686}# ($sc-dispatch #{tmp\ 2670}# '(#(vector #(each (any . any))) any . each-any)))) (if #{tmp\ 2686}# (@apply (lambda (#{k\ 2691}# #{v\ 2692}# #{e1\ 2693}# #{e2\ 2694}#) (#{expand-body\ 2536}# #{req\ 2650}# #{opt\ 2651}# #{rest\ 2652}# #{kw\ 2653}# (cons #{e1\ 2693}# #{e2\ 2694}#) #{vars\ 2655}# #{r*\ 2656}# #{w*\ 2657}# #{inits\ 2658}# (append #{meta\ 2659}# (syntax->datum (map cons #{k\ 2691}# #{v\ 2692}#))))) #{tmp\ 2686}#) (let ((#{tmp\ 2698}# ($sc-dispatch #{tmp\ 2670}# '(any . each-any)))) (if #{tmp\ 2698}# (@apply (lambda (#{e1\ 2701}# #{e2\ 2702}#) (values #{meta\ 2659}# #{req\ 2650}# #{opt\ 2651}# #{rest\ 2652}# #{kw\ 2653}# #{inits\ 2658}# #{vars\ 2655}# (#{chi-body\ 468}# (cons #{e1\ 2701}# #{e2\ 2702}#) (#{source-wrap\ 448}# #{e\ 2515}# #{w\ 2517}# #{s\ 2518}# #{mod\ 2519}#) #{r*\ 2656}# #{w*\ 2657}# #{mod\ 2519}#))) #{tmp\ 2698}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 2670}#))))))))))) (begin (let ((#{tmp\ 2704}# #{clauses\ 2521}#)) (let ((#{tmp\ 2705}# ($sc-dispatch #{tmp\ 2704}# '()))) (if #{tmp\ 2705}# (@apply (lambda () (values '() #f)) #{tmp\ 2705}#) (let ((#{tmp\ 2706}# ($sc-dispatch #{tmp\ 2704}# '((any any . each-any) . #(each (any any . each-any)))))) (if #{tmp\ 2706}# (@apply (lambda (#{args\ 2713}# #{e1\ 2714}# #{e2\ 2715}# #{args*\ 2716}# #{e1*\ 2717}# #{e2*\ 2718}#) (call-with-values (lambda () (#{get-formals\ 2520}# #{args\ 2713}#)) (lambda (#{req\ 2719}# #{opt\ 2720}# #{rest\ 2721}# #{kw\ 2722}#) (call-with-values (lambda () (#{expand-req\ 2530}# #{req\ 2719}# #{opt\ 2720}# #{rest\ 2721}# #{kw\ 2722}# (cons #{e1\ 2714}# #{e2\ 2715}#))) (lambda (#{meta\ 2728}# #{req\ 2729}# #{opt\ 2730}# #{rest\ 2731}# #{kw\ 2732}# #{inits\ 2733}# #{vars\ 2734}# #{body\ 2735}#) (call-with-values (lambda () (#{chi-lambda-case\ 484}# #{e\ 2515}# #{r\ 2516}# #{w\ 2517}# #{s\ 2518}# #{mod\ 2519}# #{get-formals\ 2520}# (map (lambda (#{tmp\ 2746}# #{tmp\ 2745}# #{tmp\ 2744}#) (cons #{tmp\ 2744}# (cons #{tmp\ 2745}# #{tmp\ 2746}#))) #{e2*\ 2718}# #{e1*\ 2717}# #{args*\ 2716}#))) (lambda (#{meta*\ 2748}# #{else*\ 2749}#) (values (append #{meta\ 2728}# #{meta*\ 2748}#) (#{build-lambda-case\ 328}# #{s\ 2518}# #{req\ 2729}# #{opt\ 2730}# #{rest\ 2731}# #{kw\ 2732}# #{inits\ 2733}# #{vars\ 2734}# #{body\ 2735}# #{else*\ 2749}#))))))))) #{tmp\ 2706}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 2704}#)))))))))) (#{strip\ 486}# (lambda (#{x\ 2752}# #{w\ 2753}#) (if (memq 'top (car #{w\ 2753}#)) #{x\ 2752}# (letrec* ((#{f\ 2760}# (lambda (#{x\ 2761}#) (if (#{syntax-object?\ 346}# #{x\ 2761}#) (#{strip\ 486}# (#{syntax-object-expression\ 348}# #{x\ 2761}#) (#{syntax-object-wrap\ 350}# #{x\ 2761}#)) (if (pair? #{x\ 2761}#) (begin (let ((#{a\ 2768}# (#{f\ 2760}# (car #{x\ 2761}#))) (#{d\ 2769}# (#{f\ 2760}# (cdr #{x\ 2761}#)))) (if (if (eq? #{a\ 2768}# (car #{x\ 2761}#)) (eq? #{d\ 2769}# (cdr #{x\ 2761}#)) #f) #{x\ 2761}# (cons #{a\ 2768}# #{d\ 2769}#)))) (if (vector? #{x\ 2761}#) (begin (let ((#{old\ 2775}# (vector->list #{x\ 2761}#))) (begin (let ((#{new\ 2777}# (map #{f\ 2760}# #{old\ 2775}#))) (if (#{and-map*\ 38}# eq? #{old\ 2775}# #{new\ 2777}#) #{x\ 2761}# (list->vector #{new\ 2777}#)))))) #{x\ 2761}#)))))) (begin (#{f\ 2760}# #{x\ 2752}#)))))) (#{gen-var\ 488}# (lambda (#{id\ 2779}#) (begin (let ((#{id\ 2782}# (if (#{syntax-object?\ 346}# #{id\ 2779}#) (#{syntax-object-expression\ 348}# #{id\ 2779}#) #{id\ 2779}#))) (gensym (string-append (symbol->string #{id\ 2782}#) " ")))))) (#{lambda-var-list\ 490}# (lambda (#{vars\ 2784}#) (letrec* ((#{lvl\ 2790}# (lambda (#{vars\ 2791}# #{ls\ 2792}# #{w\ 2793}#) (if (pair? #{vars\ 2791}#) (#{lvl\ 2790}# (cdr #{vars\ 2791}#) (cons (#{wrap\ 446}# (car #{vars\ 2791}#) #{w\ 2793}# #f) #{ls\ 2792}#) #{w\ 2793}#) (if (#{id?\ 380}# #{vars\ 2791}#) (cons (#{wrap\ 446}# #{vars\ 2791}# #{w\ 2793}# #f) #{ls\ 2792}#) (if (null? #{vars\ 2791}#) #{ls\ 2792}# (if (#{syntax-object?\ 346}# #{vars\ 2791}#) (#{lvl\ 2790}# (#{syntax-object-expression\ 348}# #{vars\ 2791}#) #{ls\ 2792}# (#{join-wraps\ 428}# #{w\ 2793}# (#{syntax-object-wrap\ 350}# #{vars\ 2791}#))) (cons #{vars\ 2791}# #{ls\ 2792}#)))))))) (begin (#{lvl\ 2790}# #{vars\ 2784}# '() '(()))))))) (begin (set! #{make-primitive-ref\ 244}# (lambda (#{src\ 756}# #{name\ 757}#) (make-struct/no-tail (vector-ref %expanded-vtables 2) #{src\ 756}# #{name\ 757}#))) (set! #{fx+\ 283}# +) (set! #{fx-\ 285}# -) (set! #{fx=\ 287}# =) (set! #{fx<\ 289}# <) (set! #{set-syntax-object-expression!\ 354}# (lambda (#{x\ 1134}# #{update\ 1135}#) (vector-set! #{x\ 1134}# 1 #{update\ 1135}#))) (set! #{set-syntax-object-wrap!\ 356}# (lambda (#{x\ 1138}# #{update\ 1139}#) (vector-set! #{x\ 1138}# 2 #{update\ 1139}#))) (set! #{set-syntax-object-module!\ 358}# (lambda (#{x\ 1142}# #{update\ 1143}#) (vector-set! #{x\ 1142}# 3 #{update\ 1143}#))) (set! #{ribcage?\ 400}# (lambda (#{x\ 1223}#) (if (vector? #{x\ 1223}#) (if (= (vector-length #{x\ 1223}#) 4) (eq? (vector-ref #{x\ 1223}# 0) 'ribcage) #f) #f))) (begin (#{global-extend\ 376}# 'local-syntax 'letrec-syntax #t) (#{global-extend\ 376}# 'local-syntax 'let-syntax #f) (#{global-extend\ 376}# 'core 'fluid-let-syntax (lambda (#{e\ 2804}# #{r\ 2805}# #{w\ 2806}# #{s\ 2807}# #{mod\ 2808}#) (let ((#{tmp\ 2814}# #{e\ 2804}#)) (let ((#{tmp\ 2815}# ($sc-dispatch #{tmp\ 2814}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp\ 2815}# (@apply (lambda (#{var\ 2820}# #{val\ 2821}# #{e1\ 2822}# #{e2\ 2823}#) (#{valid-bound-ids?\ 440}# #{var\ 2820}#)) #{tmp\ 2815}#) #f) (@apply (lambda (#{var\ 2829}# #{val\ 2830}# #{e1\ 2831}# #{e2\ 2832}#) (begin (let ((#{names\ 2834}# (map (lambda (#{x\ 2835}#) (#{id-var-name\ 434}# #{x\ 2835}# #{w\ 2806}#)) #{var\ 2829}#))) (begin (for-each (lambda (#{id\ 2838}# #{n\ 2839}#) (begin (let ((#{atom-key\ 2844}# (car (#{lookup\ 374}# #{n\ 2839}# #{r\ 2805}# #{mod\ 2808}#)))) (if (eqv? #{atom-key\ 2844}# 'displaced-lexical) (syntax-violation 'fluid-let-syntax "identifier out of context" #{e\ 2804}# (#{source-wrap\ 448}# #{id\ 2838}# #{w\ 2806}# #{s\ 2807}# #{mod\ 2808}#)))))) #{var\ 2829}# #{names\ 2834}#) (#{chi-body\ 468}# (cons #{e1\ 2831}# #{e2\ 2832}#) (#{source-wrap\ 448}# #{e\ 2804}# #{w\ 2806}# #{s\ 2807}# #{mod\ 2808}#) (#{extend-env\ 368}# #{names\ 2834}# (begin (let ((#{trans-r\ 2850}# (#{macros-only-env\ 372}# #{r\ 2805}#))) (map (lambda (#{x\ 2851}#) (cons 'macro (#{eval-local-transformer\ 472}# (#{chi\ 460}# #{x\ 2851}# #{trans-r\ 2850}# #{w\ 2806}# #{mod\ 2808}#) #{mod\ 2808}#))) #{val\ 2830}#))) #{r\ 2805}#) #{w\ 2806}# #{mod\ 2808}#))))) #{tmp\ 2815}#) (let ((#{_\ 2856}# #{tmp\ 2814}#)) (syntax-violation 'fluid-let-syntax "bad syntax" (#{source-wrap\ 448}# #{e\ 2804}# #{w\ 2806}# #{s\ 2807}# #{mod\ 2808}#)))))))) (#{global-extend\ 376}# 'core 'quote (lambda (#{e\ 2857}# #{r\ 2858}# #{w\ 2859}# #{s\ 2860}# #{mod\ 2861}#) (let ((#{tmp\ 2867}# #{e\ 2857}#)) (let ((#{tmp\ 2868}# ($sc-dispatch #{tmp\ 2867}# '(_ any)))) (if #{tmp\ 2868}# (@apply (lambda (#{e\ 2870}#) (#{build-data\ 332}# #{s\ 2860}# (#{strip\ 486}# #{e\ 2870}# #{w\ 2859}#))) #{tmp\ 2868}#) (let ((#{_\ 2872}# #{tmp\ 2867}#)) (syntax-violation 'quote "bad syntax" (#{source-wrap\ 448}# #{e\ 2857}# #{w\ 2859}# #{s\ 2860}# #{mod\ 2861}#)))))))) (#{global-extend\ 376}# 'core 'syntax (letrec* ((#{gen-syntax\ 2874}# (lambda (#{src\ 2889}# #{e\ 2890}# #{r\ 2891}# #{maps\ 2892}# #{ellipsis?\ 2893}# #{mod\ 2894}#) (if (#{id?\ 380}# #{e\ 2890}#) (begin (let ((#{label\ 2902}# (#{id-var-name\ 434}# #{e\ 2890}# '(())))) (begin (let ((#{b\ 2905}# (#{lookup\ 374}# #{label\ 2902}# #{r\ 2891}# #{mod\ 2894}#))) (if (eq? (car #{b\ 2905}#) 'syntax) (call-with-values (lambda () (begin (let ((#{var.lev\ 2908}# (cdr #{b\ 2905}#))) (#{gen-ref\ 2876}# #{src\ 2889}# (car #{var.lev\ 2908}#) (cdr #{var.lev\ 2908}#) #{maps\ 2892}#)))) (lambda (#{var\ 2910}# #{maps\ 2911}#) (values (list 'ref #{var\ 2910}#) #{maps\ 2911}#))) (if (#{ellipsis?\ 2893}# #{e\ 2890}#) (syntax-violation 'syntax "misplaced ellipsis" #{src\ 2889}#) (values (list 'quote #{e\ 2890}#) #{maps\ 2892}#))))))) (let ((#{tmp\ 2916}# #{e\ 2890}#)) (let ((#{tmp\ 2917}# ($sc-dispatch #{tmp\ 2916}# '(any any)))) (if (if #{tmp\ 2917}# (@apply (lambda (#{dots\ 2920}# #{e\ 2921}#) (#{ellipsis?\ 2893}# #{dots\ 2920}#)) #{tmp\ 2917}#) #f) (@apply (lambda (#{dots\ 2924}# #{e\ 2925}#) (#{gen-syntax\ 2874}# #{src\ 2889}# #{e\ 2925}# #{r\ 2891}# #{maps\ 2892}# (lambda (#{x\ 2926}#) #f) #{mod\ 2894}#)) #{tmp\ 2917}#) (let ((#{tmp\ 2928}# ($sc-dispatch #{tmp\ 2916}# '(any any . any)))) (if (if #{tmp\ 2928}# (@apply (lambda (#{x\ 2932}# #{dots\ 2933}# #{y\ 2934}#) (#{ellipsis?\ 2893}# #{dots\ 2933}#)) #{tmp\ 2928}#) #f) (@apply (lambda (#{x\ 2938}# #{dots\ 2939}# #{y\ 2940}#) (letrec* ((#{f\ 2944}# (lambda (#{y\ 2945}# #{k\ 2946}#) (let ((#{tmp\ 2953}# #{y\ 2945}#)) (let ((#{tmp\ 2954}# ($sc-dispatch #{tmp\ 2953}# '(any . any)))) (if (if #{tmp\ 2954}# (@apply (lambda (#{dots\ 2957}# #{y\ 2958}#) (#{ellipsis?\ 2893}# #{dots\ 2957}#)) #{tmp\ 2954}#) #f) (@apply (lambda (#{dots\ 2961}# #{y\ 2962}#) (#{f\ 2944}# #{y\ 2962}# (lambda (#{maps\ 2963}#) (call-with-values (lambda () (#{k\ 2946}# (cons '() #{maps\ 2963}#))) (lambda (#{x\ 2965}# #{maps\ 2966}#) (if (null? (car #{maps\ 2966}#)) (syntax-violation 'syntax "extra ellipsis" #{src\ 2889}#) (values (#{gen-mappend\ 2878}# #{x\ 2965}# (car #{maps\ 2966}#)) (cdr #{maps\ 2966}#)))))))) #{tmp\ 2954}#) (let ((#{_\ 2970}# #{tmp\ 2953}#)) (call-with-values (lambda () (#{gen-syntax\ 2874}# #{src\ 2889}# #{y\ 2945}# #{r\ 2891}# #{maps\ 2892}# #{ellipsis?\ 2893}# #{mod\ 2894}#)) (lambda (#{y\ 2971}# #{maps\ 2972}#) (call-with-values (lambda () (#{k\ 2946}# #{maps\ 2972}#)) (lambda (#{x\ 2975}# #{maps\ 2976}#) (values (#{gen-append\ 2884}# #{x\ 2975}# #{y\ 2971}#) #{maps\ 2976}#)))))))))))) (begin (#{f\ 2944}# #{y\ 2940}# (lambda (#{maps\ 2947}#) (call-with-values (lambda () (#{gen-syntax\ 2874}# #{src\ 2889}# #{x\ 2938}# #{r\ 2891}# (cons '() #{maps\ 2947}#) #{ellipsis?\ 2893}# #{mod\ 2894}#)) (lambda (#{x\ 2949}# #{maps\ 2950}#) (if (null? (car #{maps\ 2950}#)) (syntax-violation 'syntax "extra ellipsis" #{src\ 2889}#) (values (#{gen-map\ 2880}# #{x\ 2949}# (car #{maps\ 2950}#)) (cdr #{maps\ 2950}#)))))))))) #{tmp\ 2928}#) (let ((#{tmp\ 2979}# ($sc-dispatch #{tmp\ 2916}# '(any . any)))) (if #{tmp\ 2979}# (@apply (lambda (#{x\ 2982}# #{y\ 2983}#) (call-with-values (lambda () (#{gen-syntax\ 2874}# #{src\ 2889}# #{x\ 2982}# #{r\ 2891}# #{maps\ 2892}# #{ellipsis?\ 2893}# #{mod\ 2894}#)) (lambda (#{x\ 2984}# #{maps\ 2985}#) (call-with-values (lambda () (#{gen-syntax\ 2874}# #{src\ 2889}# #{y\ 2983}# #{r\ 2891}# #{maps\ 2985}# #{ellipsis?\ 2893}# #{mod\ 2894}#)) (lambda (#{y\ 2988}# #{maps\ 2989}#) (values (#{gen-cons\ 2882}# #{x\ 2984}# #{y\ 2988}#) #{maps\ 2989}#)))))) #{tmp\ 2979}#) (let ((#{tmp\ 2992}# ($sc-dispatch #{tmp\ 2916}# '#(vector (any . each-any))))) (if #{tmp\ 2992}# (@apply (lambda (#{e1\ 2995}# #{e2\ 2996}#) (call-with-values (lambda () (#{gen-syntax\ 2874}# #{src\ 2889}# (cons #{e1\ 2995}# #{e2\ 2996}#) #{r\ 2891}# #{maps\ 2892}# #{ellipsis?\ 2893}# #{mod\ 2894}#)) (lambda (#{e\ 2998}# #{maps\ 2999}#) (values (#{gen-vector\ 2886}# #{e\ 2998}#) #{maps\ 2999}#)))) #{tmp\ 2992}#) (let ((#{_\ 3003}# #{tmp\ 2916}#)) (values (list 'quote #{e\ 2890}#) #{maps\ 2892}#)))))))))))))) (#{gen-ref\ 2876}# (lambda (#{src\ 3005}# #{var\ 3006}# #{level\ 3007}# #{maps\ 3008}#) (if (#{fx=\ 287}# #{level\ 3007}# 0) (values #{var\ 3006}# #{maps\ 3008}#) (if (null? #{maps\ 3008}#) (syntax-violation 'syntax "missing ellipsis" #{src\ 3005}#) (call-with-values (lambda () (#{gen-ref\ 2876}# #{src\ 3005}# #{var\ 3006}# (#{fx-\ 285}# #{level\ 3007}# 1) (cdr #{maps\ 3008}#))) (lambda (#{outer-var\ 3013}# #{outer-maps\ 3014}#) (begin (let ((#{b\ 3018}# (assq #{outer-var\ 3013}# (car #{maps\ 3008}#)))) (if #{b\ 3018}# (values (cdr #{b\ 3018}#) #{maps\ 3008}#) (begin (let ((#{inner-var\ 3020}# (#{gen-var\ 488}# 'tmp))) (values #{inner-var\ 3020}# (cons (cons (cons #{outer-var\ 3013}# #{inner-var\ 3020}#) (car #{maps\ 3008}#)) #{outer-maps\ 3014}#))))))))))))) (#{gen-mappend\ 2878}# (lambda (#{e\ 3021}# #{map-env\ 3022}#) (list 'apply '(primitive append) (#{gen-map\ 2880}# #{e\ 3021}# #{map-env\ 3022}#)))) (#{gen-map\ 2880}# (lambda (#{e\ 3026}# #{map-env\ 3027}#) (begin (let ((#{formals\ 3032}# (map cdr #{map-env\ 3027}#)) (#{actuals\ 3033}# (map (lambda (#{x\ 3034}#) (list 'ref (car #{x\ 3034}#))) #{map-env\ 3027}#))) (if (eq? (car #{e\ 3026}#) 'ref) (car #{actuals\ 3033}#) (if (and-map (lambda (#{x\ 3041}#) (if (eq? (car #{x\ 3041}#) 'ref) (memq (car (cdr #{x\ 3041}#)) #{formals\ 3032}#) #f)) (cdr #{e\ 3026}#)) (cons 'map (cons (list 'primitive (car #{e\ 3026}#)) (map (begin (let ((#{r\ 3047}# (map cons #{formals\ 3032}# #{actuals\ 3033}#))) (lambda (#{x\ 3048}#) (cdr (assq (car (cdr #{x\ 3048}#)) #{r\ 3047}#))))) (cdr #{e\ 3026}#)))) (cons 'map (cons (list 'lambda #{formals\ 3032}# #{e\ 3026}#) #{actuals\ 3033}#)))))))) (#{gen-cons\ 2882}# (lambda (#{x\ 3052}# #{y\ 3053}#) (begin (let ((#{atom-key\ 3058}# (car #{y\ 3053}#))) (if (eqv? #{atom-key\ 3058}# 'quote) (if (eq? (car #{x\ 3052}#) 'quote) (list 'quote (cons (car (cdr #{x\ 3052}#)) (car (cdr #{y\ 3053}#)))) (if (eq? (car (cdr #{y\ 3053}#)) '()) (list 'list #{x\ 3052}#) (list 'cons #{x\ 3052}# #{y\ 3053}#))) (if (eqv? #{atom-key\ 3058}# 'list) (cons 'list (cons #{x\ 3052}# (cdr #{y\ 3053}#))) (list 'cons #{x\ 3052}# #{y\ 3053}#))))))) (#{gen-append\ 2884}# (lambda (#{x\ 3067}# #{y\ 3068}#) (if (equal? #{y\ 3068}# ''()) #{x\ 3067}# (list 'append #{x\ 3067}# #{y\ 3068}#)))) (#{gen-vector\ 2886}# (lambda (#{x\ 3072}#) (if (eq? (car #{x\ 3072}#) 'list) (cons 'vector (cdr #{x\ 3072}#)) (if (eq? (car #{x\ 3072}#) 'quote) (list 'quote (list->vector (car (cdr #{x\ 3072}#)))) (list 'list->vector #{x\ 3072}#))))) (#{regen\ 2888}# (lambda (#{x\ 3082}#) (begin (let ((#{atom-key\ 3086}# (car #{x\ 3082}#))) (if (eqv? #{atom-key\ 3086}# 'ref) (#{build-lexical-reference\ 312}# 'value #f (car (cdr #{x\ 3082}#)) (car (cdr #{x\ 3082}#))) (if (eqv? #{atom-key\ 3086}# 'primitive) (#{build-primref\ 330}# #f (car (cdr #{x\ 3082}#))) (if (eqv? #{atom-key\ 3086}# 'quote) (#{build-data\ 332}# #f (car (cdr #{x\ 3082}#))) (if (eqv? #{atom-key\ 3086}# 'lambda) (if (list? (car (cdr #{x\ 3082}#))) (#{build-simple-lambda\ 324}# #f (car (cdr #{x\ 3082}#)) #f (car (cdr #{x\ 3082}#)) '() (#{regen\ 2888}# (car (cdr (cdr #{x\ 3082}#))))) (error "how did we get here" #{x\ 3082}#)) (#{build-application\ 306}# #f (#{build-primref\ 330}# #f (car #{x\ 3082}#)) (map #{regen\ 2888}# (cdr #{x\ 3082}#)))))))))))) (begin (lambda (#{e\ 3098}# #{r\ 3099}# #{w\ 3100}# #{s\ 3101}# #{mod\ 3102}#) (begin (let ((#{e\ 3109}# (#{source-wrap\ 448}# #{e\ 3098}# #{w\ 3100}# #{s\ 3101}# #{mod\ 3102}#))) (let ((#{tmp\ 3110}# #{e\ 3109}#)) (let ((#{tmp\ 3111}# ($sc-dispatch #{tmp\ 3110}# '(_ any)))) (if #{tmp\ 3111}# (@apply (lambda (#{x\ 3113}#) (call-with-values (lambda () (#{gen-syntax\ 2874}# #{e\ 3109}# #{x\ 3113}# #{r\ 3099}# '() #{ellipsis?\ 476}# #{mod\ 3102}#)) (lambda (#{e\ 3114}# #{maps\ 3115}#) (#{regen\ 2888}# #{e\ 3114}#)))) #{tmp\ 3111}#) (let ((#{_\ 3119}# #{tmp\ 3110}#)) (syntax-violation 'syntax "bad `syntax' form" #{e\ 3109}#))))))))))) (#{global-extend\ 376}# 'core 'lambda (lambda (#{e\ 3120}# #{r\ 3121}# #{w\ 3122}# #{s\ 3123}# #{mod\ 3124}#) (let ((#{tmp\ 3130}# #{e\ 3120}#)) (let ((#{tmp\ 3131}# ($sc-dispatch #{tmp\ 3130}# '(_ any any . each-any)))) (if #{tmp\ 3131}# (@apply (lambda (#{args\ 3135}# #{e1\ 3136}# #{e2\ 3137}#) (call-with-values (lambda () (#{lambda-formals\ 478}# #{args\ 3135}#)) (lambda (#{req\ 3138}# #{opt\ 3139}# #{rest\ 3140}# #{kw\ 3141}#) (letrec* ((#{lp\ 3149}# (lambda (#{body\ 3150}# #{meta\ 3151}#) (let ((#{tmp\ 3153}# #{body\ 3150}#)) (let ((#{tmp\ 3154}# ($sc-dispatch #{tmp\ 3153}# '(any any . each-any)))) (if (if #{tmp\ 3154}# (@apply (lambda (#{docstring\ 3158}# #{e1\ 3159}# #{e2\ 3160}#) (string? (syntax->datum #{docstring\ 3158}#))) #{tmp\ 3154}#) #f) (@apply (lambda (#{docstring\ 3164}# #{e1\ 3165}# #{e2\ 3166}#) (#{lp\ 3149}# (cons #{e1\ 3165}# #{e2\ 3166}#) (append #{meta\ 3151}# (list (cons 'documentation (syntax->datum #{docstring\ 3164}#)))))) #{tmp\ 3154}#) (let ((#{tmp\ 3169}# ($sc-dispatch #{tmp\ 3153}# '(#(vector #(each (any . any))) any . each-any)))) (if #{tmp\ 3169}# (@apply (lambda (#{k\ 3174}# #{v\ 3175}# #{e1\ 3176}# #{e2\ 3177}#) (#{lp\ 3149}# (cons #{e1\ 3176}# #{e2\ 3177}#) (append #{meta\ 3151}# (syntax->datum (map cons #{k\ 3174}# #{v\ 3175}#))))) #{tmp\ 3169}#) (let ((#{_\ 3182}# #{tmp\ 3153}#)) (#{chi-simple-lambda\ 480}# #{e\ 3120}# #{r\ 3121}# #{w\ 3122}# #{s\ 3123}# #{mod\ 3124}# #{req\ 3138}# #{rest\ 3140}# #{meta\ 3151}# #{body\ 3150}#)))))))))) (begin (#{lp\ 3149}# (cons #{e1\ 3136}# #{e2\ 3137}#) '())))))) #{tmp\ 3131}#) (let ((#{_\ 3184}# #{tmp\ 3130}#)) (syntax-violation 'lambda "bad lambda" #{e\ 3120}#))))))) (#{global-extend\ 376}# 'core 'lambda* (lambda (#{e\ 3185}# #{r\ 3186}# #{w\ 3187}# #{s\ 3188}# #{mod\ 3189}#) (let ((#{tmp\ 3195}# #{e\ 3185}#)) (let ((#{tmp\ 3196}# ($sc-dispatch #{tmp\ 3195}# '(_ any any . each-any)))) (if #{tmp\ 3196}# (@apply (lambda (#{args\ 3200}# #{e1\ 3201}# #{e2\ 3202}#) (call-with-values (lambda () (#{chi-lambda-case\ 484}# #{e\ 3185}# #{r\ 3186}# #{w\ 3187}# #{s\ 3188}# #{mod\ 3189}# #{lambda*-formals\ 482}# (list (cons #{args\ 3200}# (cons #{e1\ 3201}# #{e2\ 3202}#))))) (lambda (#{meta\ 3204}# #{lcase\ 3205}#) (#{build-case-lambda\ 326}# #{s\ 3188}# #{meta\ 3204}# #{lcase\ 3205}#)))) #{tmp\ 3196}#) (let ((#{_\ 3209}# #{tmp\ 3195}#)) (syntax-violation 'lambda "bad lambda*" #{e\ 3185}#))))))) (#{global-extend\ 376}# 'core 'case-lambda (lambda (#{e\ 3210}# #{r\ 3211}# #{w\ 3212}# #{s\ 3213}# #{mod\ 3214}#) (let ((#{tmp\ 3220}# #{e\ 3210}#)) (let ((#{tmp\ 3221}# ($sc-dispatch #{tmp\ 3220}# '(_ (any any . each-any) . #(each (any any . each-any)))))) (if #{tmp\ 3221}# (@apply (lambda (#{args\ 3228}# #{e1\ 3229}# #{e2\ 3230}# #{args*\ 3231}# #{e1*\ 3232}# #{e2*\ 3233}#) (call-with-values (lambda () (#{chi-lambda-case\ 484}# #{e\ 3210}# #{r\ 3211}# #{w\ 3212}# #{s\ 3213}# #{mod\ 3214}# #{lambda-formals\ 478}# (cons (cons #{args\ 3228}# (cons #{e1\ 3229}# #{e2\ 3230}#)) (map (lambda (#{tmp\ 3237}# #{tmp\ 3236}# #{tmp\ 3235}#) (cons #{tmp\ 3235}# (cons #{tmp\ 3236}# #{tmp\ 3237}#))) #{e2*\ 3233}# #{e1*\ 3232}# #{args*\ 3231}#)))) (lambda (#{meta\ 3239}# #{lcase\ 3240}#) (#{build-case-lambda\ 326}# #{s\ 3213}# #{meta\ 3239}# #{lcase\ 3240}#)))) #{tmp\ 3221}#) (let ((#{_\ 3244}# #{tmp\ 3220}#)) (syntax-violation 'case-lambda "bad case-lambda" #{e\ 3210}#))))))) (#{global-extend\ 376}# 'core 'case-lambda* (lambda (#{e\ 3245}# #{r\ 3246}# #{w\ 3247}# #{s\ 3248}# #{mod\ 3249}#) (let ((#{tmp\ 3255}# #{e\ 3245}#)) (let ((#{tmp\ 3256}# ($sc-dispatch #{tmp\ 3255}# '(_ (any any . each-any) . #(each (any any . each-any)))))) (if #{tmp\ 3256}# (@apply (lambda (#{args\ 3263}# #{e1\ 3264}# #{e2\ 3265}# #{args*\ 3266}# #{e1*\ 3267}# #{e2*\ 3268}#) (call-with-values (lambda () (#{chi-lambda-case\ 484}# #{e\ 3245}# #{r\ 3246}# #{w\ 3247}# #{s\ 3248}# #{mod\ 3249}# #{lambda*-formals\ 482}# (cons (cons #{args\ 3263}# (cons #{e1\ 3264}# #{e2\ 3265}#)) (map (lambda (#{tmp\ 3272}# #{tmp\ 3271}# #{tmp\ 3270}#) (cons #{tmp\ 3270}# (cons #{tmp\ 3271}# #{tmp\ 3272}#))) #{e2*\ 3268}# #{e1*\ 3267}# #{args*\ 3266}#)))) (lambda (#{meta\ 3274}# #{lcase\ 3275}#) (#{build-case-lambda\ 326}# #{s\ 3248}# #{meta\ 3274}# #{lcase\ 3275}#)))) #{tmp\ 3256}#) (let ((#{_\ 3279}# #{tmp\ 3255}#)) (syntax-violation 'case-lambda "bad case-lambda*" #{e\ 3245}#))))))) (#{global-extend\ 376}# 'core 'let (letrec* ((#{chi-let\ 3281}# (lambda (#{e\ 3282}# #{r\ 3283}# #{w\ 3284}# #{s\ 3285}# #{mod\ 3286}# #{constructor\ 3287}# #{ids\ 3288}# #{vals\ 3289}# #{exps\ 3290}#) (if (not (#{valid-bound-ids?\ 440}# #{ids\ 3288}#)) (syntax-violation 'let "duplicate bound variable" #{e\ 3282}#) (begin (let ((#{labels\ 3302}# (#{gen-labels\ 395}# #{ids\ 3288}#)) (#{new-vars\ 3303}# (map #{gen-var\ 488}# #{ids\ 3288}#))) (begin (let ((#{nw\ 3306}# (#{make-binding-wrap\ 424}# #{ids\ 3288}# #{labels\ 3302}# #{w\ 3284}#)) (#{nr\ 3307}# (#{extend-var-env\ 370}# #{labels\ 3302}# #{new-vars\ 3303}# #{r\ 3283}#))) (#{constructor\ 3287}# #{s\ 3285}# (map syntax->datum #{ids\ 3288}#) #{new-vars\ 3303}# (map (lambda (#{x\ 3308}#) (#{chi\ 460}# #{x\ 3308}# #{r\ 3283}# #{w\ 3284}# #{mod\ 3286}#)) #{vals\ 3289}#) (#{chi-body\ 468}# #{exps\ 3290}# (#{source-wrap\ 448}# #{e\ 3282}# #{nw\ 3306}# #{s\ 3285}# #{mod\ 3286}#) #{nr\ 3307}# #{nw\ 3306}# #{mod\ 3286}#)))))))))) (begin (lambda (#{e\ 3310}# #{r\ 3311}# #{w\ 3312}# #{s\ 3313}# #{mod\ 3314}#) (let ((#{tmp\ 3320}# #{e\ 3310}#)) (let ((#{tmp\ 3321}# ($sc-dispatch #{tmp\ 3320}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp\ 3321}# (@apply (lambda (#{id\ 3326}# #{val\ 3327}# #{e1\ 3328}# #{e2\ 3329}#) (and-map #{id?\ 380}# #{id\ 3326}#)) #{tmp\ 3321}#) #f) (@apply (lambda (#{id\ 3335}# #{val\ 3336}# #{e1\ 3337}# #{e2\ 3338}#) (#{chi-let\ 3281}# #{e\ 3310}# #{r\ 3311}# #{w\ 3312}# #{s\ 3313}# #{mod\ 3314}# #{build-let\ 336}# #{id\ 3335}# #{val\ 3336}# (cons #{e1\ 3337}# #{e2\ 3338}#))) #{tmp\ 3321}#) (let ((#{tmp\ 3342}# ($sc-dispatch #{tmp\ 3320}# '(_ any #(each (any any)) any . each-any)))) (if (if #{tmp\ 3342}# (@apply (lambda (#{f\ 3348}# #{id\ 3349}# #{val\ 3350}# #{e1\ 3351}# #{e2\ 3352}#) (if (#{id?\ 380}# #{f\ 3348}#) (and-map #{id?\ 380}# #{id\ 3349}#) #f)) #{tmp\ 3342}#) #f) (@apply (lambda (#{f\ 3361}# #{id\ 3362}# #{val\ 3363}# #{e1\ 3364}# #{e2\ 3365}#) (#{chi-let\ 3281}# #{e\ 3310}# #{r\ 3311}# #{w\ 3312}# #{s\ 3313}# #{mod\ 3314}# #{build-named-let\ 338}# (cons #{f\ 3361}# #{id\ 3362}#) #{val\ 3363}# (cons #{e1\ 3364}# #{e2\ 3365}#))) #{tmp\ 3342}#) (let ((#{_\ 3370}# #{tmp\ 3320}#)) (syntax-violation 'let "bad let" (#{source-wrap\ 448}# #{e\ 3310}# #{w\ 3312}# #{s\ 3313}# #{mod\ 3314}#)))))))))))) (#{global-extend\ 376}# 'core 'letrec (lambda (#{e\ 3371}# #{r\ 3372}# #{w\ 3373}# #{s\ 3374}# #{mod\ 3375}#) (let ((#{tmp\ 3381}# #{e\ 3371}#)) (let ((#{tmp\ 3382}# ($sc-dispatch #{tmp\ 3381}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp\ 3382}# (@apply (lambda (#{id\ 3387}# #{val\ 3388}# #{e1\ 3389}# #{e2\ 3390}#) (and-map #{id?\ 380}# #{id\ 3387}#)) #{tmp\ 3382}#) #f) (@apply (lambda (#{id\ 3396}# #{val\ 3397}# #{e1\ 3398}# #{e2\ 3399}#) (begin (let ((#{ids\ 3401}# #{id\ 3396}#)) (if (not (#{valid-bound-ids?\ 440}# #{ids\ 3401}#)) (syntax-violation 'letrec "duplicate bound variable" #{e\ 3371}#) (begin (let ((#{labels\ 3405}# (#{gen-labels\ 395}# #{ids\ 3401}#)) (#{new-vars\ 3406}# (map #{gen-var\ 488}# #{ids\ 3401}#))) (begin (let ((#{w\ 3409}# (#{make-binding-wrap\ 424}# #{ids\ 3401}# #{labels\ 3405}# #{w\ 3373}#)) (#{r\ 3410}# (#{extend-var-env\ 370}# #{labels\ 3405}# #{new-vars\ 3406}# #{r\ 3372}#))) (#{build-letrec\ 340}# #{s\ 3374}# #f (map syntax->datum #{ids\ 3401}#) #{new-vars\ 3406}# (map (lambda (#{x\ 3411}#) (#{chi\ 460}# #{x\ 3411}# #{r\ 3410}# #{w\ 3409}# #{mod\ 3375}#)) #{val\ 3397}#) (#{chi-body\ 468}# (cons #{e1\ 3398}# #{e2\ 3399}#) (#{source-wrap\ 448}# #{e\ 3371}# #{w\ 3409}# #{s\ 3374}# #{mod\ 3375}#) #{r\ 3410}# #{w\ 3409}# #{mod\ 3375}#)))))))))) #{tmp\ 3382}#) (let ((#{_\ 3416}# #{tmp\ 3381}#)) (syntax-violation 'letrec "bad letrec" (#{source-wrap\ 448}# #{e\ 3371}# #{w\ 3373}# #{s\ 3374}# #{mod\ 3375}#)))))))) (#{global-extend\ 376}# 'core 'letrec* (lambda (#{e\ 3417}# #{r\ 3418}# #{w\ 3419}# #{s\ 3420}# #{mod\ 3421}#) (let ((#{tmp\ 3427}# #{e\ 3417}#)) (let ((#{tmp\ 3428}# ($sc-dispatch #{tmp\ 3427}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp\ 3428}# (@apply (lambda (#{id\ 3433}# #{val\ 3434}# #{e1\ 3435}# #{e2\ 3436}#) (and-map #{id?\ 380}# #{id\ 3433}#)) #{tmp\ 3428}#) #f) (@apply (lambda (#{id\ 3442}# #{val\ 3443}# #{e1\ 3444}# #{e2\ 3445}#) (begin (let ((#{ids\ 3447}# #{id\ 3442}#)) (if (not (#{valid-bound-ids?\ 440}# #{ids\ 3447}#)) (syntax-violation 'letrec* "duplicate bound variable" #{e\ 3417}#) (begin (let ((#{labels\ 3451}# (#{gen-labels\ 395}# #{ids\ 3447}#)) (#{new-vars\ 3452}# (map #{gen-var\ 488}# #{ids\ 3447}#))) (begin (let ((#{w\ 3455}# (#{make-binding-wrap\ 424}# #{ids\ 3447}# #{labels\ 3451}# #{w\ 3419}#)) (#{r\ 3456}# (#{extend-var-env\ 370}# #{labels\ 3451}# #{new-vars\ 3452}# #{r\ 3418}#))) (#{build-letrec\ 340}# #{s\ 3420}# #t (map syntax->datum #{ids\ 3447}#) #{new-vars\ 3452}# (map (lambda (#{x\ 3457}#) (#{chi\ 460}# #{x\ 3457}# #{r\ 3456}# #{w\ 3455}# #{mod\ 3421}#)) #{val\ 3443}#) (#{chi-body\ 468}# (cons #{e1\ 3444}# #{e2\ 3445}#) (#{source-wrap\ 448}# #{e\ 3417}# #{w\ 3455}# #{s\ 3420}# #{mod\ 3421}#) #{r\ 3456}# #{w\ 3455}# #{mod\ 3421}#)))))))))) #{tmp\ 3428}#) (let ((#{_\ 3462}# #{tmp\ 3427}#)) (syntax-violation 'letrec* "bad letrec*" (#{source-wrap\ 448}# #{e\ 3417}# #{w\ 3419}# #{s\ 3420}# #{mod\ 3421}#)))))))) (#{global-extend\ 376}# 'core 'set! (lambda (#{e\ 3463}# #{r\ 3464}# #{w\ 3465}# #{s\ 3466}# #{mod\ 3467}#) (let ((#{tmp\ 3473}# #{e\ 3463}#)) (let ((#{tmp\ 3474}# ($sc-dispatch #{tmp\ 3473}# '(_ any any)))) (if (if #{tmp\ 3474}# (@apply (lambda (#{id\ 3477}# #{val\ 3478}#) (#{id?\ 380}# #{id\ 3477}#)) #{tmp\ 3474}#) #f) (@apply (lambda (#{id\ 3481}# #{val\ 3482}#) (begin (let ((#{n\ 3485}# (#{id-var-name\ 434}# #{id\ 3481}# #{w\ 3465}#)) (#{id-mod\ 3486}# (if (#{syntax-object?\ 346}# #{id\ 3481}#) (#{syntax-object-module\ 352}# #{id\ 3481}#) #{mod\ 3467}#))) (begin (let ((#{b\ 3488}# (#{lookup\ 374}# #{n\ 3485}# #{r\ 3464}# #{id-mod\ 3486}#))) (begin (let ((#{atom-key\ 3491}# (car #{b\ 3488}#))) (if (eqv? #{atom-key\ 3491}# 'lexical) (#{build-lexical-assignment\ 314}# #{s\ 3466}# (syntax->datum #{id\ 3481}#) (cdr #{b\ 3488}#) (#{chi\ 460}# #{val\ 3482}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#)) (if (eqv? #{atom-key\ 3491}# 'global) (#{build-global-assignment\ 320}# #{s\ 3466}# #{n\ 3485}# (#{chi\ 460}# #{val\ 3482}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#) #{id-mod\ 3486}#) (if (eqv? #{atom-key\ 3491}# 'macro) (begin (let ((#{p\ 3498}# (cdr #{b\ 3488}#))) (if (procedure-property #{p\ 3498}# 'variable-transformer) (#{chi\ 460}# (#{chi-macro\ 466}# #{p\ 3498}# #{e\ 3463}# #{r\ 3464}# #{w\ 3465}# #{s\ 3466}# #f #{mod\ 3467}#) #{r\ 3464}# '(()) #{mod\ 3467}#) (syntax-violation 'set! "not a variable transformer" (#{wrap\ 446}# #{e\ 3463}# #{w\ 3465}# #{mod\ 3467}#) (#{wrap\ 446}# #{id\ 3481}# #{w\ 3465}# #{id-mod\ 3486}#))))) (if (eqv? #{atom-key\ 3491}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" (#{wrap\ 446}# #{id\ 3481}# #{w\ 3465}# #{mod\ 3467}#)) (syntax-violation 'set! "bad set!" (#{source-wrap\ 448}# #{e\ 3463}# #{w\ 3465}# #{s\ 3466}# #{mod\ 3467}#))))))))))))) #{tmp\ 3474}#) (let ((#{tmp\ 3503}# ($sc-dispatch #{tmp\ 3473}# '(_ (any . each-any) any)))) (if #{tmp\ 3503}# (@apply (lambda (#{head\ 3507}# #{tail\ 3508}# #{val\ 3509}#) (call-with-values (lambda () (#{syntax-type\ 458}# #{head\ 3507}# #{r\ 3464}# '(()) #f #f #{mod\ 3467}# #t)) (lambda (#{type\ 3512}# #{value\ 3513}# #{ee\ 3514}# #{ww\ 3515}# #{ss\ 3516}# #{modmod\ 3517}#) (if (eqv? #{type\ 3512}# 'module-ref) (begin (let ((#{val\ 3526}# (#{chi\ 460}# #{val\ 3509}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#))) (call-with-values (lambda () (#{value\ 3513}# (cons #{head\ 3507}# #{tail\ 3508}#) #{r\ 3464}# #{w\ 3465}#)) (lambda (#{e\ 3528}# #{r\ 3529}# #{w\ 3530}# #{s*\ 3531}# #{mod\ 3532}#) (let ((#{tmp\ 3538}# #{e\ 3528}#)) (let ((#{tmp\ 3539}# (list #{tmp\ 3538}#))) (if (if #{tmp\ 3539}# (@apply (lambda (#{e\ 3541}#) (#{id?\ 380}# #{e\ 3541}#)) #{tmp\ 3539}#) #f) (@apply (lambda (#{e\ 3543}#) (#{build-global-assignment\ 320}# #{s\ 3466}# (syntax->datum #{e\ 3543}#) #{val\ 3526}# #{mod\ 3532}#)) #{tmp\ 3539}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3538}#)))))))) (#{build-application\ 306}# #{s\ 3466}# (#{chi\ 460}# (list '#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type value ee ww ss modmod) #((top) (top) (top) (top) (top) (top)) #("i3518" "i3519" "i3520" "i3521" "i3522" "i3523")) #(ribcage #(head tail val) #((top) (top) (top)) #("i3504" "i3505" "i3506")) #(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top) (top) (top)) #("i3468" "i3469" "i3470" "i3471" "i3472")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) #{head\ 3507}#) #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#) (map (lambda (#{e\ 3545}#) (#{chi\ 460}# #{e\ 3545}# #{r\ 3464}# #{w\ 3465}# #{mod\ 3467}#)) (append #{tail\ 3508}# (list #{val\ 3509}#)))))))) #{tmp\ 3503}#) (let ((#{_\ 3549}# #{tmp\ 3473}#)) (syntax-violation 'set! "bad set!" (#{source-wrap\ 448}# #{e\ 3463}# #{w\ 3465}# #{s\ 3466}# #{mod\ 3467}#)))))))))) (#{global-extend\ 376}# 'module-ref '@ (lambda (#{e\ 3550}# #{r\ 3551}# #{w\ 3552}#) (let ((#{tmp\ 3556}# #{e\ 3550}#)) (let ((#{tmp\ 3557}# ($sc-dispatch #{tmp\ 3556}# '(_ each-any any)))) (if (if #{tmp\ 3557}# (@apply (lambda (#{mod\ 3560}# #{id\ 3561}#) (if (and-map #{id?\ 380}# #{mod\ 3560}#) (#{id?\ 380}# #{id\ 3561}#) #f)) #{tmp\ 3557}#) #f) (@apply (lambda (#{mod\ 3567}# #{id\ 3568}#) (values (syntax->datum #{id\ 3568}#) #{r\ 3551}# #{w\ 3552}# #f (syntax->datum (cons '#(syntax-object public ((top) #(ribcage #(mod id) #((top) (top)) #("i3565" "i3566")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) #("i3553" "i3554" "i3555")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) #{mod\ 3567}#)))) #{tmp\ 3557}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3556}#)))))) (#{global-extend\ 376}# 'module-ref '@@ (lambda (#{e\ 3570}# #{r\ 3571}# #{w\ 3572}#) (letrec* ((#{remodulate\ 3577}# (lambda (#{x\ 3578}# #{mod\ 3579}#) (if (pair? #{x\ 3578}#) (cons (#{remodulate\ 3577}# (car #{x\ 3578}#) #{mod\ 3579}#) (#{remodulate\ 3577}# (cdr #{x\ 3578}#) #{mod\ 3579}#)) (if (#{syntax-object?\ 346}# #{x\ 3578}#) (#{make-syntax-object\ 344}# (#{remodulate\ 3577}# (#{syntax-object-expression\ 348}# #{x\ 3578}#) #{mod\ 3579}#) (#{syntax-object-wrap\ 350}# #{x\ 3578}#) #{mod\ 3579}#) (if (vector? #{x\ 3578}#) (begin (let ((#{n\ 3590}# (vector-length #{x\ 3578}#))) (begin (let ((#{v\ 3592}# (make-vector #{n\ 3590}#))) (letrec* ((#{loop\ 3595}# (lambda (#{i\ 3596}#) (if (#{fx=\ 287}# #{i\ 3596}# #{n\ 3590}#) (begin (if #f #f) #{v\ 3592}#) (begin (vector-set! #{v\ 3592}# #{i\ 3596}# (#{remodulate\ 3577}# (vector-ref #{x\ 3578}# #{i\ 3596}#) #{mod\ 3579}#)) (#{loop\ 3595}# (#{fx+\ 283}# #{i\ 3596}# 1))))))) (begin (#{loop\ 3595}# 0))))))) #{x\ 3578}#)))))) (begin (let ((#{tmp\ 3600}# #{e\ 3570}#)) (let ((#{tmp\ 3601}# ($sc-dispatch #{tmp\ 3600}# '(_ each-any any)))) (if (if #{tmp\ 3601}# (@apply (lambda (#{mod\ 3604}# #{exp\ 3605}#) (and-map #{id?\ 380}# #{mod\ 3604}#)) #{tmp\ 3601}#) #f) (@apply (lambda (#{mod\ 3609}# #{exp\ 3610}#) (begin (let ((#{mod\ 3612}# (syntax->datum (cons '#(syntax-object private ((top) #(ribcage #(mod exp) #((top) (top)) #("i3607" "i3608")) #(ribcage (remodulate) ((top)) ("i3576")) #(ribcage #(e r w) #((top) (top) (top)) #("i3573" "i3574" "i3575")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) #{mod\ 3609}#)))) (values (#{remodulate\ 3577}# #{exp\ 3610}# #{mod\ 3612}#) #{r\ 3571}# #{w\ 3572}# (#{source-annotation\ 361}# #{exp\ 3610}#) #{mod\ 3612}#)))) #{tmp\ 3601}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3600}#)))))))) (#{global-extend\ 376}# 'core 'if (lambda (#{e\ 3614}# #{r\ 3615}# #{w\ 3616}# #{s\ 3617}# #{mod\ 3618}#) (let ((#{tmp\ 3624}# #{e\ 3614}#)) (let ((#{tmp\ 3625}# ($sc-dispatch #{tmp\ 3624}# '(_ any any)))) (if #{tmp\ 3625}# (@apply (lambda (#{test\ 3628}# #{then\ 3629}#) (#{build-conditional\ 308}# #{s\ 3617}# (#{chi\ 460}# #{test\ 3628}# #{r\ 3615}# #{w\ 3616}# #{mod\ 3618}#) (#{chi\ 460}# #{then\ 3629}# #{r\ 3615}# #{w\ 3616}# #{mod\ 3618}#) (#{build-void\ 304}# #f))) #{tmp\ 3625}#) (let ((#{tmp\ 3631}# ($sc-dispatch #{tmp\ 3624}# '(_ any any any)))) (if #{tmp\ 3631}# (@apply (lambda (#{test\ 3635}# #{then\ 3636}# #{else\ 3637}#) (#{build-conditional\ 308}# #{s\ 3617}# (#{chi\ 460}# #{test\ 3635}# #{r\ 3615}# #{w\ 3616}# #{mod\ 3618}#) (#{chi\ 460}# #{then\ 3636}# #{r\ 3615}# #{w\ 3616}# #{mod\ 3618}#) (#{chi\ 460}# #{else\ 3637}# #{r\ 3615}# #{w\ 3616}# #{mod\ 3618}#))) #{tmp\ 3631}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3624}#)))))))) (#{global-extend\ 376}# 'core 'with-fluids (lambda (#{e\ 3638}# #{r\ 3639}# #{w\ 3640}# #{s\ 3641}# #{mod\ 3642}#) (let ((#{tmp\ 3648}# #{e\ 3638}#)) (let ((#{tmp\ 3649}# ($sc-dispatch #{tmp\ 3648}# '(_ #(each (any any)) any . each-any)))) (if #{tmp\ 3649}# (@apply (lambda (#{fluid\ 3654}# #{val\ 3655}# #{b\ 3656}# #{b*\ 3657}#) (#{build-dynlet\ 310}# #{s\ 3641}# (map (lambda (#{x\ 3658}#) (#{chi\ 460}# #{x\ 3658}# #{r\ 3639}# #{w\ 3640}# #{mod\ 3642}#)) #{fluid\ 3654}#) (map (lambda (#{x\ 3661}#) (#{chi\ 460}# #{x\ 3661}# #{r\ 3639}# #{w\ 3640}# #{mod\ 3642}#)) #{val\ 3655}#) (#{chi-body\ 468}# (cons #{b\ 3656}# #{b*\ 3657}#) (#{source-wrap\ 448}# #{e\ 3638}# #{w\ 3640}# #{s\ 3641}# #{mod\ 3642}#) #{r\ 3639}# #{w\ 3640}# #{mod\ 3642}#))) #{tmp\ 3649}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3648}#)))))) (#{global-extend\ 376}# 'begin 'begin '()) (#{global-extend\ 376}# 'define 'define '()) (#{global-extend\ 376}# 'define-syntax 'define-syntax '()) (#{global-extend\ 376}# 'eval-when 'eval-when '()) (#{global-extend\ 376}# 'core 'syntax-case (letrec* ((#{convert-pattern\ 3666}# (lambda (#{pattern\ 3673}# #{keys\ 3674}#) (letrec* ((#{cvt*\ 3678}# (lambda (#{p*\ 3681}# #{n\ 3682}# #{ids\ 3683}#) (if (null? #{p*\ 3681}#) (values '() #{ids\ 3683}#) (call-with-values (lambda () (#{cvt*\ 3678}# (cdr #{p*\ 3681}#) #{n\ 3682}# #{ids\ 3683}#)) (lambda (#{y\ 3687}# #{ids\ 3688}#) (call-with-values (lambda () (#{cvt\ 3680}# (car #{p*\ 3681}#) #{n\ 3682}# #{ids\ 3688}#)) (lambda (#{x\ 3691}# #{ids\ 3692}#) (values (cons #{x\ 3691}# #{y\ 3687}#) #{ids\ 3692}#)))))))) (#{cvt\ 3680}# (lambda (#{p\ 3695}# #{n\ 3696}# #{ids\ 3697}#) (if (#{id?\ 380}# #{p\ 3695}#) (if (#{bound-id-member?\ 444}# #{p\ 3695}# #{keys\ 3674}#) (values (vector 'free-id #{p\ 3695}#) #{ids\ 3697}#) (if (#{free-id=?\ 436}# #{p\ 3695}# '#(syntax-object _ ((top) #(ribcage () () ()) #(ribcage #(p n ids) #((top) (top) (top)) #("i3698" "i3699" "i3700")) #(ribcage (cvt cvt*) ((top) (top)) ("i3679" "i3677")) #(ribcage #(pattern keys) #((top) (top)) #("i3675" "i3676")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3671" "i3669" "i3667" "i3665")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) (values '_ #{ids\ 3697}#) (values 'any (cons (cons #{p\ 3695}# #{n\ 3696}#) #{ids\ 3697}#)))) (let ((#{tmp\ 3706}# #{p\ 3695}#)) (let ((#{tmp\ 3707}# ($sc-dispatch #{tmp\ 3706}# '(any any)))) (if (if #{tmp\ 3707}# (@apply (lambda (#{x\ 3710}# #{dots\ 3711}#) (#{ellipsis?\ 476}# #{dots\ 3711}#)) #{tmp\ 3707}#) #f) (@apply (lambda (#{x\ 3714}# #{dots\ 3715}#) (call-with-values (lambda () (#{cvt\ 3680}# #{x\ 3714}# (#{fx+\ 283}# #{n\ 3696}# 1) #{ids\ 3697}#)) (lambda (#{p\ 3716}# #{ids\ 3717}#) (values (if (eq? #{p\ 3716}# 'any) 'each-any (vector 'each #{p\ 3716}#)) #{ids\ 3717}#)))) #{tmp\ 3707}#) (let ((#{tmp\ 3720}# ($sc-dispatch #{tmp\ 3706}# '(any any . each-any)))) (if (if #{tmp\ 3720}# (@apply (lambda (#{x\ 3724}# #{dots\ 3725}# #{ys\ 3726}#) (#{ellipsis?\ 476}# #{dots\ 3725}#)) #{tmp\ 3720}#) #f) (@apply (lambda (#{x\ 3730}# #{dots\ 3731}# #{ys\ 3732}#) (call-with-values (lambda () (#{cvt*\ 3678}# #{ys\ 3732}# #{n\ 3696}# #{ids\ 3697}#)) (lambda (#{ys\ 3734}# #{ids\ 3735}#) (call-with-values (lambda () (#{cvt\ 3680}# #{x\ 3730}# (1+ #{n\ 3696}#) #{ids\ 3735}#)) (lambda (#{x\ 3738}# #{ids\ 3739}#) (values (vector 'each+ #{x\ 3738}# (reverse #{ys\ 3734}#) '()) #{ids\ 3739}#)))))) #{tmp\ 3720}#) (let ((#{tmp\ 3743}# ($sc-dispatch #{tmp\ 3706}# '(any . any)))) (if #{tmp\ 3743}# (@apply (lambda (#{x\ 3746}# #{y\ 3747}#) (call-with-values (lambda () (#{cvt\ 3680}# #{y\ 3747}# #{n\ 3696}# #{ids\ 3697}#)) (lambda (#{y\ 3748}# #{ids\ 3749}#) (call-with-values (lambda () (#{cvt\ 3680}# #{x\ 3746}# #{n\ 3696}# #{ids\ 3749}#)) (lambda (#{x\ 3752}# #{ids\ 3753}#) (values (cons #{x\ 3752}# #{y\ 3748}#) #{ids\ 3753}#)))))) #{tmp\ 3743}#) (let ((#{tmp\ 3756}# ($sc-dispatch #{tmp\ 3706}# '()))) (if #{tmp\ 3756}# (@apply (lambda () (values '() #{ids\ 3697}#)) #{tmp\ 3756}#) (let ((#{tmp\ 3757}# ($sc-dispatch #{tmp\ 3706}# '#(vector each-any)))) (if #{tmp\ 3757}# (@apply (lambda (#{x\ 3759}#) (call-with-values (lambda () (#{cvt\ 3680}# #{x\ 3759}# #{n\ 3696}# #{ids\ 3697}#)) (lambda (#{p\ 3761}# #{ids\ 3762}#) (values (vector 'vector #{p\ 3761}#) #{ids\ 3762}#)))) #{tmp\ 3757}#) (let ((#{x\ 3766}# #{tmp\ 3706}#)) (values (vector 'atom (#{strip\ 486}# #{p\ 3695}# '(()))) #{ids\ 3697}#))))))))))))))))) (begin (#{cvt\ 3680}# #{pattern\ 3673}# 0 '()))))) (#{build-dispatch-call\ 3668}# (lambda (#{pvars\ 3768}# #{exp\ 3769}# #{y\ 3770}# #{r\ 3771}# #{mod\ 3772}#) (begin (map cdr #{pvars\ 3768}#) (let ((#{ids\ 3780}# (map car #{pvars\ 3768}#))) (begin (let ((#{labels\ 3784}# (#{gen-labels\ 395}# #{ids\ 3780}#)) (#{new-vars\ 3785}# (map #{gen-var\ 488}# #{ids\ 3780}#))) (#{build-application\ 306}# #f (#{build-primref\ 330}# #f 'apply) (list (#{build-simple-lambda\ 324}# #f (map syntax->datum #{ids\ 3780}#) #f #{new-vars\ 3785}# '() (#{chi\ 460}# #{exp\ 3769}# (#{extend-env\ 368}# #{labels\ 3784}# (map (lambda (#{var\ 3789}# #{level\ 3790}#) (cons 'syntax (cons #{var\ 3789}# #{level\ 3790}#))) #{new-vars\ 3785}# (map cdr #{pvars\ 3768}#)) #{r\ 3771}#) (#{make-binding-wrap\ 424}# #{ids\ 3780}# #{labels\ 3784}# '(())) #{mod\ 3772}#)) #{y\ 3770}#)))))))) (#{gen-clause\ 3670}# (lambda (#{x\ 3796}# #{keys\ 3797}# #{clauses\ 3798}# #{r\ 3799}# #{pat\ 3800}# #{fender\ 3801}# #{exp\ 3802}# #{mod\ 3803}#) (call-with-values (lambda () (#{convert-pattern\ 3666}# #{pat\ 3800}# #{keys\ 3797}#)) (lambda (#{p\ 3812}# #{pvars\ 3813}#) (if (not (#{distinct-bound-ids?\ 442}# (map car #{pvars\ 3813}#))) (syntax-violation 'syntax-case "duplicate pattern variable" #{pat\ 3800}#) (if (not (and-map (lambda (#{x\ 3820}#) (not (#{ellipsis?\ 476}# (car #{x\ 3820}#)))) #{pvars\ 3813}#)) (syntax-violation 'syntax-case "misplaced ellipsis" #{pat\ 3800}#) (begin (let ((#{y\ 3824}# (#{gen-var\ 488}# 'tmp))) (#{build-application\ 306}# #f (#{build-simple-lambda\ 324}# #f (list 'tmp) #f (list #{y\ 3824}#) '() (begin (let ((#{y\ 3828}# (#{build-lexical-reference\ 312}# 'value #f 'tmp #{y\ 3824}#))) (#{build-conditional\ 308}# #f (let ((#{tmp\ 3831}# #{fender\ 3801}#)) (let ((#{tmp\ 3832}# ($sc-dispatch #{tmp\ 3831}# '#(atom #t)))) (if #{tmp\ 3832}# (@apply (lambda () #{y\ 3828}#) #{tmp\ 3832}#) (let ((#{_\ 3834}# #{tmp\ 3831}#)) (#{build-conditional\ 308}# #f #{y\ 3828}# (#{build-dispatch-call\ 3668}# #{pvars\ 3813}# #{fender\ 3801}# #{y\ 3828}# #{r\ 3799}# #{mod\ 3803}#) (#{build-data\ 332}# #f #f)))))) (#{build-dispatch-call\ 3668}# #{pvars\ 3813}# #{exp\ 3802}# #{y\ 3828}# #{r\ 3799}# #{mod\ 3803}#) (#{gen-syntax-case\ 3672}# #{x\ 3796}# #{keys\ 3797}# #{clauses\ 3798}# #{r\ 3799}# #{mod\ 3803}#))))) (list (if (eq? #{p\ 3812}# 'any) (#{build-application\ 306}# #f (#{build-primref\ 330}# #f 'list) (list #{x\ 3796}#)) (#{build-application\ 306}# #f (#{build-primref\ 330}# #f '$sc-dispatch) (list #{x\ 3796}# (#{build-data\ 332}# #f #{p\ 3812}#)))))))))))))) (#{gen-syntax-case\ 3672}# (lambda (#{x\ 3842}# #{keys\ 3843}# #{clauses\ 3844}# #{r\ 3845}# #{mod\ 3846}#) (if (null? #{clauses\ 3844}#) (#{build-application\ 306}# #f (#{build-primref\ 330}# #f 'syntax-violation) (list (#{build-data\ 332}# #f #f) (#{build-data\ 332}# #f "source expression failed to match any pattern") #{x\ 3842}#)) (let ((#{tmp\ 3856}# (car #{clauses\ 3844}#))) (let ((#{tmp\ 3857}# ($sc-dispatch #{tmp\ 3856}# '(any any)))) (if #{tmp\ 3857}# (@apply (lambda (#{pat\ 3860}# #{exp\ 3861}#) (if (if (#{id?\ 380}# #{pat\ 3860}#) (and-map (lambda (#{x\ 3864}#) (not (#{free-id=?\ 436}# #{pat\ 3860}# #{x\ 3864}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) #("i3858" "i3859")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i3847" "i3848" "i3849" "i3850" "i3851")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3671" "i3669" "i3667" "i3665")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) #{keys\ 3843}#)) #f) (if (#{free-id=?\ 436}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) #("i3858" "i3859")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i3847" "i3848" "i3849" "i3850" "i3851")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3671" "i3669" "i3667" "i3665")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) #("i3858" "i3859")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i3847" "i3848" "i3849" "i3850" "i3851")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3671" "i3669" "i3667" "i3665")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-application chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env extend-var-env extend-env null-env binding-value binding-type make-binding arg-check source-annotation no-source set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object build-lexical-var build-letrec build-named-let build-let build-sequence build-data build-primref build-lambda-case build-case-lambda build-simple-lambda build-global-definition build-global-assignment build-global-reference analyze-variable build-lexical-assignment build-lexical-reference build-dynlet build-conditional build-application build-void maybe-name-value! decorate-source get-global-definition-hook put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx< fx= fx- fx+ set-lambda-meta! lambda-meta lambda? make-dynlet make-letrec make-let make-lambda-case make-lambda make-sequence make-application make-conditional make-toplevel-define make-toplevel-set make-toplevel-ref make-module-set make-module-ref make-lexical-set make-lexical-ref make-primitive-ref make-const make-void) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i489" "i487" "i485" "i483" "i481" "i479" "i477" "i475" "i473" "i471" "i469" "i467" "i465" "i463" "i461" "i459" "i457" "i455" "i453" "i451" "i449" "i447" "i445" "i443" "i441" "i439" "i437" "i435" "i433" "i431" "i429" "i427" "i425" "i423" "i421" "i420" "i419" "i417" "i416" "i415" "i414" "i413" "i411" "i409" "i407" "i405" "i403" "i401" "i399" "i397" "i394" "i392" "i391" "i390" "i389" "i388" "i387" "i386" "i385" "i384" "i382" "i381" "i379" "i377" "i375" "i373" "i371" "i369" "i367" "i366" "i365" "i364" "i363" "i362" "i360" "i359" "i357" "i355" "i353" "i351" "i349" "i347" "i345" "i343" "i341" "i339" "i337" "i335" "i333" "i331" "i329" "i327" "i325" "i323" "i321" "i319" "i317" "i315" "i313" "i311" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i294" "i292" "i290" "i288" "i286" "i284" "i282" "i280" "i278" "i276" "i273" "i271" "i269" "i267" "i265" "i263" "i261" "i259" "i257" "i255" "i253" "i251" "i249" "i247" "i245" "i243" "i241" "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) (#{chi\ 460}# #{exp\ 3861}# #{r\ 3845}# '(()) #{mod\ 3846}#) (begin (let ((#{labels\ 3869}# (list (#{gen-label\ 393}#))) (#{var\ 3870}# (#{gen-var\ 488}# #{pat\ 3860}#))) (#{build-application\ 306}# #f (#{build-simple-lambda\ 324}# #f (list (syntax->datum #{pat\ 3860}#)) #f (list #{var\ 3870}#) '() (#{chi\ 460}# #{exp\ 3861}# (#{extend-env\ 368}# #{labels\ 3869}# (list (cons 'syntax (cons #{var\ 3870}# 0))) #{r\ 3845}#) (#{make-binding-wrap\ 424}# (list #{pat\ 3860}#) #{labels\ 3869}# '(())) #{mod\ 3846}#)) (list #{x\ 3842}#))))) (#{gen-clause\ 3670}# #{x\ 3842}# #{keys\ 3843}# (cdr #{clauses\ 3844}#) #{r\ 3845}# #{pat\ 3860}# #t #{exp\ 3861}# #{mod\ 3846}#))) #{tmp\ 3857}#) (let ((#{tmp\ 3876}# ($sc-dispatch #{tmp\ 3856}# '(any any any)))) (if #{tmp\ 3876}# (@apply (lambda (#{pat\ 3880}# #{fender\ 3881}# #{exp\ 3882}#) (#{gen-clause\ 3670}# #{x\ 3842}# #{keys\ 3843}# (cdr #{clauses\ 3844}#) #{r\ 3845}# #{pat\ 3880}# #{fender\ 3881}# #{exp\ 3882}# #{mod\ 3846}#)) #{tmp\ 3876}#) (let ((#{_\ 3884}# #{tmp\ 3856}#)) (syntax-violation 'syntax-case "invalid clause" (car #{clauses\ 3844}#)))))))))))) (begin (lambda (#{e\ 3885}# #{r\ 3886}# #{w\ 3887}# #{s\ 3888}# #{mod\ 3889}#) (begin (let ((#{e\ 3896}# (#{source-wrap\ 448}# #{e\ 3885}# #{w\ 3887}# #{s\ 3888}# #{mod\ 3889}#))) (let ((#{tmp\ 3897}# #{e\ 3896}#)) (let ((#{tmp\ 3898}# ($sc-dispatch #{tmp\ 3897}# '(_ any each-any . each-any)))) (if #{tmp\ 3898}# (@apply (lambda (#{val\ 3902}# #{key\ 3903}# #{m\ 3904}#) (if (and-map (lambda (#{x\ 3905}#) (if (#{id?\ 380}# #{x\ 3905}#) (not (#{ellipsis?\ 476}# #{x\ 3905}#)) #f)) #{key\ 3903}#) (begin (let ((#{x\ 3911}# (#{gen-var\ 488}# 'tmp))) (#{build-application\ 306}# #{s\ 3888}# (#{build-simple-lambda\ 324}# #f (list 'tmp) #f (list #{x\ 3911}#) '() (#{gen-syntax-case\ 3672}# (#{build-lexical-reference\ 312}# 'value #f 'tmp #{x\ 3911}#) #{key\ 3903}# #{m\ 3904}# #{r\ 3886}# #{mod\ 3889}#)) (list (#{chi\ 460}# #{val\ 3902}# #{r\ 3886}# '(()) #{mod\ 3889}#))))) (syntax-violation 'syntax-case "invalid literals list" #{e\ 3896}#))) #{tmp\ 3898}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 3897}#)))))))))) (set! macroexpand (lambda* (#{x\ 3917}# #:optional (#{m\ 3919}# 'e) (#{esew\ 3921}# '(eval))) (#{chi-top-sequence\ 452}# (list #{x\ 3917}#) '() '((top)) #f #{m\ 3919}# #{esew\ 3921}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? (lambda (#{x\ 3925}#) (#{nonsymbol-id?\ 378}# #{x\ 3925}#))) (set! datum->syntax (lambda (#{id\ 3927}# #{datum\ 3928}#) (#{make-syntax-object\ 344}# #{datum\ 3928}# (#{syntax-object-wrap\ 350}# #{id\ 3927}#) (#{syntax-object-module\ 352}# #{id\ 3927}#)))) (set! syntax->datum (lambda (#{x\ 3931}#) (#{strip\ 486}# #{x\ 3931}# '(())))) (set! syntax-source (lambda (#{x\ 3934}#) (#{source-annotation\ 361}# #{x\ 3934}#))) (set! generate-temporaries (lambda (#{ls\ 3936}#) (begin (begin (let ((#{x\ 3940}# #{ls\ 3936}#)) (if (not (list? #{x\ 3940}#)) (syntax-violation 'generate-temporaries "invalid argument" #{x\ 3940}#)))) (map (lambda (#{x\ 3941}#) (#{wrap\ 446}# (gensym) '((top)) #f)) #{ls\ 3936}#)))) (set! free-identifier=? (lambda (#{x\ 3945}# #{y\ 3946}#) (begin (begin (let ((#{x\ 3951}# #{x\ 3945}#)) (if (not (#{nonsymbol-id?\ 378}# #{x\ 3951}#)) (syntax-violation 'free-identifier=? "invalid argument" #{x\ 3951}#)))) (begin (let ((#{x\ 3954}# #{y\ 3946}#)) (if (not (#{nonsymbol-id?\ 378}# #{x\ 3954}#)) (syntax-violation 'free-identifier=? "invalid argument" #{x\ 3954}#)))) (#{free-id=?\ 436}# #{x\ 3945}# #{y\ 3946}#)))) (set! bound-identifier=? (lambda (#{x\ 3955}# #{y\ 3956}#) (begin (begin (let ((#{x\ 3961}# #{x\ 3955}#)) (if (not (#{nonsymbol-id?\ 378}# #{x\ 3961}#)) (syntax-violation 'bound-identifier=? "invalid argument" #{x\ 3961}#)))) (begin (let ((#{x\ 3964}# #{y\ 3956}#)) (if (not (#{nonsymbol-id?\ 378}# #{x\ 3964}#)) (syntax-violation 'bound-identifier=? "invalid argument" #{x\ 3964}#)))) (#{bound-id=?\ 438}# #{x\ 3955}# #{y\ 3956}#)))) (set! syntax-violation (lambda* (#{who\ 3965}# #{message\ 3966}# #{form\ 3967}# #:optional (#{subform\ 3971}# #f)) (begin (begin (let ((#{x\ 3975}# #{who\ 3965}#)) (if (not (let ((#{x\ 3976}# #{x\ 3975}#)) (begin (let ((#{t\ 3980}# (not #{x\ 3976}#))) (if #{t\ 3980}# #{t\ 3980}# (begin (let ((#{t\ 3983}# (string? #{x\ 3976}#))) (if #{t\ 3983}# #{t\ 3983}# (symbol? #{x\ 3976}#))))))))) (syntax-violation 'syntax-violation "invalid argument" #{x\ 3975}#)))) (begin (let ((#{x\ 3987}# #{message\ 3966}#)) (if (not (string? #{x\ 3987}#)) (syntax-violation 'syntax-violation "invalid argument" #{x\ 3987}#)))) (throw 'syntax-error #{who\ 3965}# #{message\ 3966}# (#{source-annotation\ 361}# (begin (let ((#{t\ 3990}# #{form\ 3967}#)) (if #{t\ 3990}# #{t\ 3990}# #{subform\ 3971}#)))) (#{strip\ 486}# #{form\ 3967}# '(())) (if #{subform\ 3971}# (#{strip\ 486}# #{subform\ 3971}# '(())) #f))))) (letrec* ((#{match-each\ 3997}# (lambda (#{e\ 4010}# #{p\ 4011}# #{w\ 4012}# #{mod\ 4013}#) (if (pair? #{e\ 4010}#) (begin (let ((#{first\ 4021}# (#{match\ 4009}# (car #{e\ 4010}#) #{p\ 4011}# #{w\ 4012}# '() #{mod\ 4013}#))) (if #{first\ 4021}# (begin (let ((#{rest\ 4025}# (#{match-each\ 3997}# (cdr #{e\ 4010}#) #{p\ 4011}# #{w\ 4012}# #{mod\ 4013}#))) (if #{rest\ 4025}# (cons #{first\ 4021}# #{rest\ 4025}#) #f))) #f))) (if (null? #{e\ 4010}#) '() (if (#{syntax-object?\ 346}# #{e\ 4010}#) (#{match-each\ 3997}# (#{syntax-object-expression\ 348}# #{e\ 4010}#) #{p\ 4011}# (#{join-wraps\ 428}# #{w\ 4012}# (#{syntax-object-wrap\ 350}# #{e\ 4010}#)) (#{syntax-object-module\ 352}# #{e\ 4010}#)) #f))))) (#{match-each+\ 3999}# (lambda (#{e\ 4033}# #{x-pat\ 4034}# #{y-pat\ 4035}# #{z-pat\ 4036}# #{w\ 4037}# #{r\ 4038}# #{mod\ 4039}#) (letrec* ((#{f\ 4050}# (lambda (#{e\ 4051}# #{w\ 4052}#) (if (pair? #{e\ 4051}#) (call-with-values (lambda () (#{f\ 4050}# (cdr #{e\ 4051}#) #{w\ 4052}#)) (lambda (#{xr*\ 4055}# #{y-pat\ 4056}# #{r\ 4057}#) (if #{r\ 4057}# (if (null? #{y-pat\ 4056}#) (begin (let ((#{xr\ 4062}# (#{match\ 4009}# (car #{e\ 4051}#) #{x-pat\ 4034}# #{w\ 4052}# '() #{mod\ 4039}#))) (if #{xr\ 4062}# (values (cons #{xr\ 4062}# #{xr*\ 4055}#) #{y-pat\ 4056}# #{r\ 4057}#) (values #f #f #f)))) (values '() (cdr #{y-pat\ 4056}#) (#{match\ 4009}# (car #{e\ 4051}#) (car #{y-pat\ 4056}#) #{w\ 4052}# #{r\ 4057}# #{mod\ 4039}#))) (values #f #f #f)))) (if (#{syntax-object?\ 346}# #{e\ 4051}#) (#{f\ 4050}# (#{syntax-object-expression\ 348}# #{e\ 4051}#) (#{join-wraps\ 428}# #{w\ 4052}# #{e\ 4051}#)) (values '() #{y-pat\ 4035}# (#{match\ 4009}# #{e\ 4051}# #{z-pat\ 4036}# #{w\ 4052}# #{r\ 4038}# #{mod\ 4039}#))))))) (begin (#{f\ 4050}# #{e\ 4033}# #{w\ 4037}#))))) (#{match-each-any\ 4001}# (lambda (#{e\ 4066}# #{w\ 4067}# #{mod\ 4068}#) (if (pair? #{e\ 4066}#) (begin (let ((#{l\ 4075}# (#{match-each-any\ 4001}# (cdr #{e\ 4066}#) #{w\ 4067}# #{mod\ 4068}#))) (if #{l\ 4075}# (cons (#{wrap\ 446}# (car #{e\ 4066}#) #{w\ 4067}# #{mod\ 4068}#) #{l\ 4075}#) #f))) (if (null? #{e\ 4066}#) '() (if (#{syntax-object?\ 346}# #{e\ 4066}#) (#{match-each-any\ 4001}# (#{syntax-object-expression\ 348}# #{e\ 4066}#) (#{join-wraps\ 428}# #{w\ 4067}# (#{syntax-object-wrap\ 350}# #{e\ 4066}#)) #{mod\ 4068}#) #f))))) (#{match-empty\ 4003}# (lambda (#{p\ 4083}# #{r\ 4084}#) (if (null? #{p\ 4083}#) #{r\ 4084}# (if (eq? #{p\ 4083}# '_) #{r\ 4084}# (if (eq? #{p\ 4083}# 'any) (cons '() #{r\ 4084}#) (if (pair? #{p\ 4083}#) (#{match-empty\ 4003}# (car #{p\ 4083}#) (#{match-empty\ 4003}# (cdr #{p\ 4083}#) #{r\ 4084}#)) (if (eq? #{p\ 4083}# 'each-any) (cons '() #{r\ 4084}#) (begin (let ((#{atom-key\ 4100}# (vector-ref #{p\ 4083}# 0))) (if (eqv? #{atom-key\ 4100}# 'each) (#{match-empty\ 4003}# (vector-ref #{p\ 4083}# 1) #{r\ 4084}#) (if (eqv? #{atom-key\ 4100}# 'each+) (#{match-empty\ 4003}# (vector-ref #{p\ 4083}# 1) (#{match-empty\ 4003}# (reverse (vector-ref #{p\ 4083}# 2)) (#{match-empty\ 4003}# (vector-ref #{p\ 4083}# 3) #{r\ 4084}#))) (if (if (eqv? #{atom-key\ 4100}# 'free-id) #t (eqv? #{atom-key\ 4100}# 'atom)) #{r\ 4084}# (if (eqv? #{atom-key\ 4100}# 'vector) (#{match-empty\ 4003}# (vector-ref #{p\ 4083}# 1) #{r\ 4084}#)))))))))))))) (#{combine\ 4005}# (lambda (#{r*\ 4105}# #{r\ 4106}#) (if (null? (car #{r*\ 4105}#)) #{r\ 4106}# (cons (map car #{r*\ 4105}#) (#{combine\ 4005}# (map cdr #{r*\ 4105}#) #{r\ 4106}#))))) (#{match*\ 4007}# (lambda (#{e\ 4109}# #{p\ 4110}# #{w\ 4111}# #{r\ 4112}# #{mod\ 4113}#) (if (null? #{p\ 4110}#) (if (null? #{e\ 4109}#) #{r\ 4112}# #f) (if (pair? #{p\ 4110}#) (if (pair? #{e\ 4109}#) (#{match\ 4009}# (car #{e\ 4109}#) (car #{p\ 4110}#) #{w\ 4111}# (#{match\ 4009}# (cdr #{e\ 4109}#) (cdr #{p\ 4110}#) #{w\ 4111}# #{r\ 4112}# #{mod\ 4113}#) #{mod\ 4113}#) #f) (if (eq? #{p\ 4110}# 'each-any) (begin (let ((#{l\ 4130}# (#{match-each-any\ 4001}# #{e\ 4109}# #{w\ 4111}# #{mod\ 4113}#))) (if #{l\ 4130}# (cons #{l\ 4130}# #{r\ 4112}#) #f))) (begin (let ((#{atom-key\ 4136}# (vector-ref #{p\ 4110}# 0))) (if (eqv? #{atom-key\ 4136}# 'each) (if (null? #{e\ 4109}#) (#{match-empty\ 4003}# (vector-ref #{p\ 4110}# 1) #{r\ 4112}#) (begin (let ((#{l\ 4139}# (#{match-each\ 3997}# #{e\ 4109}# (vector-ref #{p\ 4110}# 1) #{w\ 4111}# #{mod\ 4113}#))) (if #{l\ 4139}# (letrec* ((#{collect\ 4144}# (lambda (#{l\ 4145}#) (if (null? (car #{l\ 4145}#)) #{r\ 4112}# (cons (map car #{l\ 4145}#) (#{collect\ 4144}# (map cdr #{l\ 4145}#))))))) (begin (#{collect\ 4144}# #{l\ 4139}#))) #f)))) (if (eqv? #{atom-key\ 4136}# 'each+) (call-with-values (lambda () (#{match-each+\ 3999}# #{e\ 4109}# (vector-ref #{p\ 4110}# 1) (vector-ref #{p\ 4110}# 2) (vector-ref #{p\ 4110}# 3) #{w\ 4111}# #{r\ 4112}# #{mod\ 4113}#)) (lambda (#{xr*\ 4147}# #{y-pat\ 4148}# #{r\ 4149}#) (if #{r\ 4149}# (if (null? #{y-pat\ 4148}#) (if (null? #{xr*\ 4147}#) (#{match-empty\ 4003}# (vector-ref #{p\ 4110}# 1) #{r\ 4149}#) (#{combine\ 4005}# #{xr*\ 4147}# #{r\ 4149}#)) #f) #f))) (if (eqv? #{atom-key\ 4136}# 'free-id) (if (#{id?\ 380}# #{e\ 4109}#) (if (#{free-id=?\ 436}# (#{wrap\ 446}# #{e\ 4109}# #{w\ 4111}# #{mod\ 4113}#) (vector-ref #{p\ 4110}# 1)) #{r\ 4112}# #f) #f) (if (eqv? #{atom-key\ 4136}# 'atom) (if (equal? (vector-ref #{p\ 4110}# 1) (#{strip\ 486}# #{e\ 4109}# #{w\ 4111}#)) #{r\ 4112}# #f) (if (eqv? #{atom-key\ 4136}# 'vector) (if (vector? #{e\ 4109}#) (#{match\ 4009}# (vector->list #{e\ 4109}#) (vector-ref #{p\ 4110}# 1) #{w\ 4111}# #{r\ 4112}# #{mod\ 4113}#) #f))))))))))))) (#{match\ 4009}# (lambda (#{e\ 4166}# #{p\ 4167}# #{w\ 4168}# #{r\ 4169}# #{mod\ 4170}#) (if (not #{r\ 4169}#) #f (if (eq? #{p\ 4167}# '_) #{r\ 4169}# (if (eq? #{p\ 4167}# 'any) (cons (#{wrap\ 446}# #{e\ 4166}# #{w\ 4168}# #{mod\ 4170}#) #{r\ 4169}#) (if (#{syntax-object?\ 346}# #{e\ 4166}#) (#{match*\ 4007}# (#{syntax-object-expression\ 348}# #{e\ 4166}#) #{p\ 4167}# (#{join-wraps\ 428}# #{w\ 4168}# (#{syntax-object-wrap\ 350}# #{e\ 4166}#)) #{r\ 4169}# (#{syntax-object-module\ 352}# #{e\ 4166}#)) (#{match*\ 4007}# #{e\ 4166}# #{p\ 4167}# #{w\ 4168}# #{r\ 4169}# #{mod\ 4170}#)))))))) (begin (set! $sc-dispatch (lambda (#{e\ 4185}# #{p\ 4186}#) (if (eq? #{p\ 4186}# 'any) (list #{e\ 4185}#) (if (eq? #{p\ 4186}# '_) '() (if (#{syntax-object?\ 346}# #{e\ 4185}#) (#{match*\ 4007}# (#{syntax-object-expression\ 348}# #{e\ 4185}#) #{p\ 4186}# (#{syntax-object-wrap\ 350}# #{e\ 4185}#) '() (#{syntax-object-module\ 352}# #{e\ 4185}#)) (#{match*\ 4007}# #{e\ 4185}# #{p\ 4186}# '(()) '() #f)))))))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro (lambda (#{x\ 4197}#) (let ((#{tmp\ 4199}# #{x\ 4197}#)) (let ((#{tmp\ 4200}# ($sc-dispatch #{tmp\ 4199}# '(_ () any . each-any)))) (if #{tmp\ 4200}# (@apply (lambda (#{e1\ 4203}# #{e2\ 4204}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4201" "i4202")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) (cons #{e1\ 4203}# #{e2\ 4204}#))) #{tmp\ 4200}#) (let ((#{tmp\ 4206}# ($sc-dispatch #{tmp\ 4199}# '(_ ((any any)) any . each-any)))) (if #{tmp\ 4206}# (@apply (lambda (#{out\ 4211}# #{in\ 4212}# #{e1\ 4213}# #{e2\ 4214}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i4207" "i4208" "i4209" "i4210")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) #{in\ 4212}# '() (list #{out\ 4211}# (cons '#(syntax-object begin ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i4207" "i4208" "i4209" "i4210")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) (cons #{e1\ 4213}# #{e2\ 4214}#))))) #{tmp\ 4206}#) (let ((#{tmp\ 4216}# ($sc-dispatch #{tmp\ 4199}# '(_ #(each (any any)) any . each-any)))) (if #{tmp\ 4216}# (@apply (lambda (#{out\ 4221}# #{in\ 4222}# #{e1\ 4223}# #{e2\ 4224}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i4217" "i4218" "i4219" "i4220")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) (cons '#(syntax-object list ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i4217" "i4218" "i4219" "i4220")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) #{in\ 4222}#) '() (list #{out\ 4221}# (cons '#(syntax-object begin ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i4217" "i4218" "i4219" "i4220")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) (cons #{e1\ 4223}# #{e2\ 4224}#))))) #{tmp\ 4216}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4199}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro (lambda (#{x\ 4228}#) (let ((#{tmp\ 4230}# #{x\ 4228}#)) (let ((#{tmp\ 4231}# ($sc-dispatch #{tmp\ 4230}# '(_ each-any . #(each ((any . any) any)))))) (if #{tmp\ 4231}# (@apply (lambda (#{k\ 4236}# #{keyword\ 4237}# #{pattern\ 4238}# #{template\ 4239}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) (vector '(#(syntax-object macro-type ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) . #(syntax-object syntax-rules ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) (cons '#(syntax-object patterns ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) #{pattern\ 4238}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) (cons '#(syntax-object x ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) (cons #{k\ 4236}# (map (lambda (#{tmp\ 4243}# #{tmp\ 4242}#) (list (cons '#(syntax-object dummy ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) #{tmp\ 4242}#) (list '#(syntax-object syntax ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) #{tmp\ 4243}#))) #{template\ 4239}# #{pattern\ 4238}#)))))) #{tmp\ 4231}#) (let ((#{tmp\ 4244}# ($sc-dispatch #{tmp\ 4230}# '(_ each-any any . #(each ((any . any) any)))))) (if (if #{tmp\ 4244}# (@apply (lambda (#{k\ 4250}# #{docstring\ 4251}# #{keyword\ 4252}# #{pattern\ 4253}# #{template\ 4254}#) (string? (syntax->datum #{docstring\ 4251}#))) #{tmp\ 4244}#) #f) (@apply (lambda (#{k\ 4260}# #{docstring\ 4261}# #{keyword\ 4262}# #{pattern\ 4263}# #{template\ 4264}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) #{docstring\ 4261}# (vector '(#(syntax-object macro-type ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) . #(syntax-object syntax-rules ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) (cons '#(syntax-object patterns ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) #{pattern\ 4263}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) (cons '#(syntax-object x ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) (cons #{k\ 4260}# (map (lambda (#{tmp\ 4268}# #{tmp\ 4267}#) (list (cons '#(syntax-object dummy ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) #{tmp\ 4267}#) (list '#(syntax-object syntax ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) #{tmp\ 4268}#))) #{template\ 4264}# #{pattern\ 4263}#)))))) #{tmp\ 4244}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4230}#))))))))) (define let* (make-syntax-transformer 'let* 'macro (lambda (#{x\ 4269}#) (let ((#{tmp\ 4271}# #{x\ 4269}#)) (let ((#{tmp\ 4272}# ($sc-dispatch #{tmp\ 4271}# '(any #(each (any any)) any . each-any)))) (if (if #{tmp\ 4272}# (@apply (lambda (#{let*\ 4278}# #{x\ 4279}# #{v\ 4280}# #{e1\ 4281}# #{e2\ 4282}#) (and-map identifier? #{x\ 4279}#)) #{tmp\ 4272}#) #f) (@apply (lambda (#{let*\ 4289}# #{x\ 4290}# #{v\ 4291}# #{e1\ 4292}# #{e2\ 4293}#) (letrec* ((#{f\ 4296}# (lambda (#{bindings\ 4297}#) (if (null? #{bindings\ 4297}#) (cons '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i4294" "i4295")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i4284" "i4285" "i4286" "i4287" "i4288")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4270"))) (hygiene guile)) (cons '() (cons #{e1\ 4292}# #{e2\ 4293}#))) (let ((#{tmp\ 4302}# (list (#{f\ 4296}# (cdr #{bindings\ 4297}#)) (car #{bindings\ 4297}#)))) (let ((#{tmp\ 4303}# ($sc-dispatch #{tmp\ 4302}# '(any any)))) (if #{tmp\ 4303}# (@apply (lambda (#{body\ 4306}# #{binding\ 4307}#) (list '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i4304" "i4305")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i4294" "i4295")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i4284" "i4285" "i4286" "i4287" "i4288")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4270"))) (hygiene guile)) (list #{binding\ 4307}#) #{body\ 4306}#)) #{tmp\ 4303}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4302}#)))))))) (begin (#{f\ 4296}# (map list #{x\ 4290}# #{v\ 4291}#))))) #{tmp\ 4272}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4271}#))))))) (define do (make-syntax-transformer 'do 'macro (lambda (#{orig-x\ 4308}#) (let ((#{tmp\ 4310}# #{orig-x\ 4308}#)) (let ((#{tmp\ 4311}# ($sc-dispatch #{tmp\ 4310}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) (if #{tmp\ 4311}# (@apply (lambda (#{var\ 4318}# #{init\ 4319}# #{step\ 4320}# #{e0\ 4321}# #{e1\ 4322}# #{c\ 4323}#) (let ((#{tmp\ 4325}# (map (lambda (#{v\ 4346}# #{s\ 4347}#) (let ((#{tmp\ 4350}# #{s\ 4347}#)) (let ((#{tmp\ 4351}# ($sc-dispatch #{tmp\ 4350}# '()))) (if #{tmp\ 4351}# (@apply (lambda () #{v\ 4346}#) #{tmp\ 4351}#) (let ((#{tmp\ 4352}# ($sc-dispatch #{tmp\ 4350}# '(any)))) (if #{tmp\ 4352}# (@apply (lambda (#{e\ 4354}#) #{e\ 4354}#) #{tmp\ 4352}#) (let ((#{_\ 4356}# #{tmp\ 4350}#)) (syntax-violation 'do "bad step expression" #{orig-x\ 4308}# #{s\ 4347}#)))))))) #{var\ 4318}# #{step\ 4320}#))) (let ((#{tmp\ 4326}# ($sc-dispatch #{tmp\ 4325}# 'each-any))) (if #{tmp\ 4326}# (@apply (lambda (#{step\ 4328}#) (let ((#{tmp\ 4329}# #{e1\ 4322}#)) (let ((#{tmp\ 4330}# ($sc-dispatch #{tmp\ 4329}# '()))) (if #{tmp\ 4330}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) (map list #{var\ 4318}# #{init\ 4319}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) (list '#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) #{e0\ 4321}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) (append #{c\ 4323}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) #{step\ 4328}#))))))) #{tmp\ 4330}#) (let ((#{tmp\ 4335}# ($sc-dispatch #{tmp\ 4329}# '(any . each-any)))) (if #{tmp\ 4335}# (@apply (lambda (#{e1\ 4338}# #{e2\ 4339}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4336" "i4337")) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4336" "i4337")) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) (map list #{var\ 4318}# #{init\ 4319}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4336" "i4337")) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) #{e0\ 4321}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4336" "i4337")) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) (cons #{e1\ 4338}# #{e2\ 4339}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4336" "i4337")) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) (append #{c\ 4323}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4336" "i4337")) #(ribcage #(step) #((top)) #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i4312" "i4313" "i4314" "i4315" "i4316" "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i4309"))) (hygiene guile)) #{step\ 4328}#))))))) #{tmp\ 4335}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4329}#))))))) #{tmp\ 4326}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4325}#))))) #{tmp\ 4311}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4310}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* ((#{quasi\ 4360}# (lambda (#{p\ 4373}# #{lev\ 4374}#) (let ((#{tmp\ 4377}# #{p\ 4373}#)) (let ((#{tmp\ 4378}# ($sc-dispatch #{tmp\ 4377}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) any)))) (if #{tmp\ 4378}# (@apply (lambda (#{p\ 4380}#) (if (= #{lev\ 4374}# 0) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i4379")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{p\ 4380}#) (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i4379")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i4379")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) (#{quasi\ 4360}# (list #{p\ 4380}#) (1- #{lev\ 4374}#))))) #{tmp\ 4378}#) (let ((#{tmp\ 4381}# ($sc-dispatch #{tmp\ 4377}# '(#(free-id #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) any)))) (if #{tmp\ 4381}# (@apply (lambda (#{p\ 4383}#) (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i4382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #(syntax-object quasiquote ((top) #(ribcage #(p) #((top)) #("i4382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) (#{quasi\ 4360}# (list #{p\ 4383}#) (1+ #{lev\ 4374}#)))) #{tmp\ 4381}#) (let ((#{tmp\ 4384}# ($sc-dispatch #{tmp\ 4377}# '(any . any)))) (if #{tmp\ 4384}# (@apply (lambda (#{p\ 4387}# #{q\ 4388}#) (let ((#{tmp\ 4389}# #{p\ 4387}#)) (let ((#{tmp\ 4390}# ($sc-dispatch #{tmp\ 4389}# '(#(free-id #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) . each-any)))) (if #{tmp\ 4390}# (@apply (lambda (#{p\ 4392}#) (if (= #{lev\ 4374}# 0) (#{quasilist*\ 4368}# (map (lambda (#{tmp\ 4393}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i4391")) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{tmp\ 4393}#)) #{p\ 4392}#) (#{quasi\ 4360}# #{q\ 4388}# #{lev\ 4374}#)) (#{quasicons\ 4364}# (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i4391")) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i4391")) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) (#{quasi\ 4360}# #{p\ 4392}# (1- #{lev\ 4374}#))) (#{quasi\ 4360}# #{q\ 4388}# #{lev\ 4374}#)))) #{tmp\ 4390}#) (let ((#{tmp\ 4395}# ($sc-dispatch #{tmp\ 4389}# '(#(free-id #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) . each-any)))) (if #{tmp\ 4395}# (@apply (lambda (#{p\ 4397}#) (if (= #{lev\ 4374}# 0) (#{quasiappend\ 4366}# (map (lambda (#{tmp\ 4398}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i4396")) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{tmp\ 4398}#)) #{p\ 4397}#) (#{quasi\ 4360}# #{q\ 4388}# #{lev\ 4374}#)) (#{quasicons\ 4364}# (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i4396")) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) #(ribcage #(p) #((top)) #("i4396")) #(ribcage #(p q) #((top) (top)) #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) (#{quasi\ 4360}# #{p\ 4397}# (1- #{lev\ 4374}#))) (#{quasi\ 4360}# #{q\ 4388}# #{lev\ 4374}#)))) #{tmp\ 4395}#) (let ((#{_\ 4401}# #{tmp\ 4389}#)) (#{quasicons\ 4364}# (#{quasi\ 4360}# #{p\ 4387}# #{lev\ 4374}#) (#{quasi\ 4360}# #{q\ 4388}# #{lev\ 4374}#))))))))) #{tmp\ 4384}#) (let ((#{tmp\ 4402}# ($sc-dispatch #{tmp\ 4377}# '#(vector each-any)))) (if #{tmp\ 4402}# (@apply (lambda (#{x\ 4404}#) (#{quasivector\ 4370}# (#{vquasi\ 4362}# #{x\ 4404}# #{lev\ 4374}#))) #{tmp\ 4402}#) (let ((#{p\ 4407}# #{tmp\ 4377}#)) (list '#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i4406")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{p\ 4407}#))))))))))))) (#{vquasi\ 4362}# (lambda (#{p\ 4408}# #{lev\ 4409}#) (let ((#{tmp\ 4412}# #{p\ 4408}#)) (let ((#{tmp\ 4413}# ($sc-dispatch #{tmp\ 4412}# '(any . any)))) (if #{tmp\ 4413}# (@apply (lambda (#{p\ 4416}# #{q\ 4417}#) (let ((#{tmp\ 4418}# #{p\ 4416}#)) (let ((#{tmp\ 4419}# ($sc-dispatch #{tmp\ 4418}# '(#(free-id #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) . each-any)))) (if #{tmp\ 4419}# (@apply (lambda (#{p\ 4421}#) (if (= #{lev\ 4409}# 0) (#{quasilist*\ 4368}# (map (lambda (#{tmp\ 4422}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i4420")) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{tmp\ 4422}#)) #{p\ 4421}#) (#{vquasi\ 4362}# #{q\ 4417}# #{lev\ 4409}#)) (#{quasicons\ 4364}# (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i4420")) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i4420")) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) (#{quasi\ 4360}# #{p\ 4421}# (1- #{lev\ 4409}#))) (#{vquasi\ 4362}# #{q\ 4417}# #{lev\ 4409}#)))) #{tmp\ 4419}#) (let ((#{tmp\ 4424}# ($sc-dispatch #{tmp\ 4418}# '(#(free-id #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) . each-any)))) (if #{tmp\ 4424}# (@apply (lambda (#{p\ 4426}#) (if (= #{lev\ 4409}# 0) (#{quasiappend\ 4366}# (map (lambda (#{tmp\ 4427}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i4425")) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{tmp\ 4427}#)) #{p\ 4426}#) (#{vquasi\ 4362}# #{q\ 4417}# #{lev\ 4409}#)) (#{quasicons\ 4364}# (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i4425")) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) #(ribcage #(p) #((top)) #("i4425")) #(ribcage #(p q) #((top) (top)) #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile))) (#{quasi\ 4360}# #{p\ 4426}# (1- #{lev\ 4409}#))) (#{vquasi\ 4362}# #{q\ 4417}# #{lev\ 4409}#)))) #{tmp\ 4424}#) (let ((#{_\ 4430}# #{tmp\ 4418}#)) (#{quasicons\ 4364}# (#{quasi\ 4360}# #{p\ 4416}# #{lev\ 4409}#) (#{vquasi\ 4362}# #{q\ 4417}# #{lev\ 4409}#))))))))) #{tmp\ 4413}#) (let ((#{tmp\ 4431}# ($sc-dispatch #{tmp\ 4412}# '()))) (if #{tmp\ 4431}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) ())) #{tmp\ 4431}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4412}#)))))))) (#{quasicons\ 4364}# (lambda (#{x\ 4432}# #{y\ 4433}#) (let ((#{tmp\ 4437}# (list #{x\ 4432}# #{y\ 4433}#))) (let ((#{tmp\ 4438}# ($sc-dispatch #{tmp\ 4437}# '(any any)))) (if #{tmp\ 4438}# (@apply (lambda (#{x\ 4441}# #{y\ 4442}#) (let ((#{tmp\ 4443}# #{y\ 4442}#)) (let ((#{tmp\ 4444}# ($sc-dispatch #{tmp\ 4443}# '(#(atom "quote") any)))) (if #{tmp\ 4444}# (@apply (lambda (#{dy\ 4446}#) (let ((#{tmp\ 4447}# #{x\ 4441}#)) (let ((#{tmp\ 4448}# ($sc-dispatch #{tmp\ 4447}# '(#(atom "quote") any)))) (if #{tmp\ 4448}# (@apply (lambda (#{dx\ 4450}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) #("i4449")) #(ribcage #(dy) #((top)) #("i4445")) #(ribcage #(x y) #((top) (top)) #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) (cons #{dx\ 4450}# #{dy\ 4446}#))) #{tmp\ 4448}#) (let ((#{_\ 4452}# #{tmp\ 4447}#)) (if (null? #{dy\ 4446}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) #("i4451")) #(ribcage #(dy) #((top)) #("i4445")) #(ribcage #(x y) #((top) (top)) #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{x\ 4441}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i4451")) #(ribcage #(dy) #((top)) #("i4445")) #(ribcage #(x y) #((top) (top)) #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{x\ 4441}# #{y\ 4442}#))))))) #{tmp\ 4444}#) (let ((#{tmp\ 4453}# ($sc-dispatch #{tmp\ 4443}# '(#(atom "list") . any)))) (if #{tmp\ 4453}# (@apply (lambda (#{stuff\ 4455}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) #("i4454")) #(ribcage #(x y) #((top) (top)) #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) (cons #{x\ 4441}# #{stuff\ 4455}#))) #{tmp\ 4453}#) (let ((#{tmp\ 4456}# ($sc-dispatch #{tmp\ 4443}# '(#(atom "list*") . any)))) (if #{tmp\ 4456}# (@apply (lambda (#{stuff\ 4458}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) #("i4457")) #(ribcage #(x y) #((top) (top)) #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) (cons #{x\ 4441}# #{stuff\ 4458}#))) #{tmp\ 4456}#) (let ((#{_\ 4460}# #{tmp\ 4443}#)) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i4459")) #(ribcage #(x y) #((top) (top)) #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{x\ 4441}# #{y\ 4442}#)))))))))) #{tmp\ 4438}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4437}#)))))) (#{quasiappend\ 4366}# (lambda (#{x\ 4461}# #{y\ 4462}#) (let ((#{tmp\ 4465}# #{y\ 4462}#)) (let ((#{tmp\ 4466}# ($sc-dispatch #{tmp\ 4465}# '(#(atom "quote") ())))) (if #{tmp\ 4466}# (@apply (lambda () (if (null? #{x\ 4461}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4463" "i4464")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) ()) (if (null? (cdr #{x\ 4461}#)) (car #{x\ 4461}#) (let ((#{tmp\ 4473}# #{x\ 4461}#)) (let ((#{tmp\ 4474}# ($sc-dispatch #{tmp\ 4473}# 'each-any))) (if #{tmp\ 4474}# (@apply (lambda (#{p\ 4476}#) (cons '#(syntax-object "append" ((top) #(ribcage #(p) #((top)) #("i4475")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4463" "i4464")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{p\ 4476}#)) #{tmp\ 4474}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4473}#))))))) #{tmp\ 4466}#) (let ((#{_\ 4479}# #{tmp\ 4465}#)) (if (null? #{x\ 4461}#) #{y\ 4462}# (let ((#{tmp\ 4484}# (list #{x\ 4461}# #{y\ 4462}#))) (let ((#{tmp\ 4485}# ($sc-dispatch #{tmp\ 4484}# '(each-any any)))) (if #{tmp\ 4485}# (@apply (lambda (#{p\ 4488}# #{y\ 4489}#) (cons '#(syntax-object "append" ((top) #(ribcage #(p y) #((top) (top)) #("i4486" "i4487")) #(ribcage #(_) #((top)) #("i4478")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i4463" "i4464")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) (append #{p\ 4488}# (list #{y\ 4489}#)))) #{tmp\ 4485}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4484}#))))))))))) (#{quasilist*\ 4368}# (lambda (#{x\ 4491}# #{y\ 4492}#) (letrec* ((#{f\ 4497}# (lambda (#{x\ 4498}#) (if (null? #{x\ 4498}#) #{y\ 4492}# (#{quasicons\ 4364}# (car #{x\ 4498}#) (#{f\ 4497}# (cdr #{x\ 4498}#))))))) (begin (#{f\ 4497}# #{x\ 4491}#))))) (#{quasivector\ 4370}# (lambda (#{x\ 4499}#) (let ((#{tmp\ 4501}# #{x\ 4499}#)) (let ((#{tmp\ 4502}# ($sc-dispatch #{tmp\ 4501}# '(#(atom "quote") each-any)))) (if #{tmp\ 4502}# (@apply (lambda (#{x\ 4504}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) #("i4503")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4500")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) (list->vector #{x\ 4504}#))) #{tmp\ 4502}#) (let ((#{_\ 4507}# #{tmp\ 4501}#)) (letrec* ((#{f\ 4511}# (lambda (#{y\ 4512}# #{k\ 4513}#) (let ((#{tmp\ 4524}# #{y\ 4512}#)) (let ((#{tmp\ 4525}# ($sc-dispatch #{tmp\ 4524}# '(#(atom "quote") each-any)))) (if #{tmp\ 4525}# (@apply (lambda (#{y\ 4527}#) (#{k\ 4513}# (map (lambda (#{tmp\ 4528}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) #("i4526")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) #("i4508" "i4509" "i4510")) #(ribcage #(_) #((top)) #("i4506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4500")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{tmp\ 4528}#)) #{y\ 4527}#))) #{tmp\ 4525}#) (let ((#{tmp\ 4529}# ($sc-dispatch #{tmp\ 4524}# '(#(atom "list") . each-any)))) (if #{tmp\ 4529}# (@apply (lambda (#{y\ 4531}#) (#{k\ 4513}# #{y\ 4531}#)) #{tmp\ 4529}#) (let ((#{tmp\ 4533}# ($sc-dispatch #{tmp\ 4524}# '(#(atom "list*") . #(each+ any (any) ()))))) (if #{tmp\ 4533}# (@apply (lambda (#{y\ 4536}# #{z\ 4537}#) (#{f\ 4511}# #{z\ 4537}# (lambda (#{ls\ 4538}#) (#{k\ 4513}# (append #{y\ 4536}# #{ls\ 4538}#))))) #{tmp\ 4533}#) (let ((#{else\ 4542}# #{tmp\ 4524}#)) (let ((#{tmp\ 4546}# #{x\ 4499}#)) (let ((#{\ g4543\ 4548}# #{tmp\ 4546}#)) (list '#(syntax-object "list->vector" ((top) #(ribcage #(#{\ g4543}#) #((m4544 top)) #("i4547")) #(ribcage #(else) #((top)) #("i4541")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) #("i4508" "i4509" "i4510")) #(ribcage #(_) #((top)) #("i4506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4500")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{\ g4543\ 4548}#)))))))))))))) (begin (#{f\ 4511}# #{x\ 4499}# (lambda (#{ls\ 4514}#) (let ((#{tmp\ 4519}# #{ls\ 4514}#)) (let ((#{tmp\ 4520}# ($sc-dispatch #{tmp\ 4519}# 'each-any))) (if #{tmp\ 4520}# (@apply (lambda (#{\ g4516\ 4522}#) (cons '#(syntax-object "vector" ((top) #(ribcage #(#{\ g4516}#) #((m4517 top)) #("i4521")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i4515")) #(ribcage #(_) #((top)) #("i4506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4500")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{\ g4516\ 4522}#)) #{tmp\ 4520}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4519}#)))))))))))))) (#{emit\ 4372}# (lambda (#{x\ 4549}#) (let ((#{tmp\ 4551}# #{x\ 4549}#)) (let ((#{tmp\ 4552}# ($sc-dispatch #{tmp\ 4551}# '(#(atom "quote") any)))) (if #{tmp\ 4552}# (@apply (lambda (#{x\ 4554}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i4553")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4550")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{x\ 4554}#)) #{tmp\ 4552}#) (let ((#{tmp\ 4555}# ($sc-dispatch #{tmp\ 4551}# '(#(atom "list") . each-any)))) (if #{tmp\ 4555}# (@apply (lambda (#{x\ 4557}#) (let ((#{tmp\ 4561}# (map #{emit\ 4372}# #{x\ 4557}#))) (let ((#{tmp\ 4562}# ($sc-dispatch #{tmp\ 4561}# 'each-any))) (if #{tmp\ 4562}# (@apply (lambda (#{\ g4558\ 4564}#) (cons '#(syntax-object list ((top) #(ribcage #(#{\ g4558}#) #((m4559 top)) #("i4563")) #(ribcage #(x) #((top)) #("i4556")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4550")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{\ g4558\ 4564}#)) #{tmp\ 4562}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4561}#))))) #{tmp\ 4555}#) (let ((#{tmp\ 4567}# ($sc-dispatch #{tmp\ 4551}# '(#(atom "list*") . #(each+ any (any) ()))))) (if #{tmp\ 4567}# (@apply (lambda (#{x\ 4570}# #{y\ 4571}#) (letrec* ((#{f\ 4574}# (lambda (#{x*\ 4575}#) (if (null? #{x*\ 4575}#) (#{emit\ 4372}# #{y\ 4571}#) (let ((#{tmp\ 4581}# (list (#{emit\ 4372}# (car #{x*\ 4575}#)) (#{f\ 4574}# (cdr #{x*\ 4575}#))))) (let ((#{tmp\ 4582}# ($sc-dispatch #{tmp\ 4581}# '(any any)))) (if #{tmp\ 4582}# (@apply (lambda (#{\ g4578\ 4585}# #{\ g4577\ 4586}#) (list '#(syntax-object cons ((top) #(ribcage #(#{\ g4578}# #{\ g4577}#) #((m4579 top) (m4579 top)) #("i4583" "i4584")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) #("i4572" "i4573")) #(ribcage #(x y) #((top) (top)) #("i4568" "i4569")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4550")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{\ g4578\ 4585}# #{\ g4577\ 4586}#)) #{tmp\ 4582}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4581}#)))))))) (begin (#{f\ 4574}# #{x\ 4570}#)))) #{tmp\ 4567}#) (let ((#{tmp\ 4587}# ($sc-dispatch #{tmp\ 4551}# '(#(atom "append") . each-any)))) (if #{tmp\ 4587}# (@apply (lambda (#{x\ 4589}#) (let ((#{tmp\ 4593}# (map #{emit\ 4372}# #{x\ 4589}#))) (let ((#{tmp\ 4594}# ($sc-dispatch #{tmp\ 4593}# 'each-any))) (if #{tmp\ 4594}# (@apply (lambda (#{\ g4590\ 4596}#) (cons '#(syntax-object append ((top) #(ribcage #(#{\ g4590}#) #((m4591 top)) #("i4595")) #(ribcage #(x) #((top)) #("i4588")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4550")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{\ g4590\ 4596}#)) #{tmp\ 4594}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4593}#))))) #{tmp\ 4587}#) (let ((#{tmp\ 4599}# ($sc-dispatch #{tmp\ 4551}# '(#(atom "vector") . each-any)))) (if #{tmp\ 4599}# (@apply (lambda (#{x\ 4601}#) (let ((#{tmp\ 4605}# (map #{emit\ 4372}# #{x\ 4601}#))) (let ((#{tmp\ 4606}# ($sc-dispatch #{tmp\ 4605}# 'each-any))) (if #{tmp\ 4606}# (@apply (lambda (#{\ g4602\ 4608}#) (cons '#(syntax-object vector ((top) #(ribcage #(#{\ g4602}#) #((m4603 top)) #("i4607")) #(ribcage #(x) #((top)) #("i4600")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4550")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{\ g4602\ 4608}#)) #{tmp\ 4606}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4605}#))))) #{tmp\ 4599}#) (let ((#{tmp\ 4611}# ($sc-dispatch #{tmp\ 4551}# '(#(atom "list->vector") any)))) (if #{tmp\ 4611}# (@apply (lambda (#{x\ 4613}#) (let ((#{tmp\ 4617}# (#{emit\ 4372}# #{x\ 4613}#))) (let ((#{\ g4614\ 4619}# #{tmp\ 4617}#)) (list '#(syntax-object list->vector ((top) #(ribcage #(#{\ g4614}#) #((m4615 top)) #("i4618")) #(ribcage #(x) #((top)) #("i4612")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4550")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i4371" "i4369" "i4367" "i4365" "i4363" "i4361" "i4359"))) (hygiene guile)) #{\ g4614\ 4619}#)))) #{tmp\ 4611}#) (let ((#{tmp\ 4620}# ($sc-dispatch #{tmp\ 4551}# '(#(atom "value") any)))) (if #{tmp\ 4620}# (@apply (lambda (#{x\ 4622}#) #{x\ 4622}#) #{tmp\ 4620}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4551}#))))))))))))))))))) (begin (lambda (#{x\ 4623}#) (let ((#{tmp\ 4625}# #{x\ 4623}#)) (let ((#{tmp\ 4626}# ($sc-dispatch #{tmp\ 4625}# '(_ any)))) (if #{tmp\ 4626}# (@apply (lambda (#{e\ 4628}#) (#{emit\ 4372}# (#{quasi\ 4360}# #{e\ 4628}# 0))) #{tmp\ 4626}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4625}#))))))))) (define include (make-syntax-transformer 'include 'macro (lambda (#{x\ 4629}#) (letrec* ((#{read-file\ 4632}# (lambda (#{fn\ 4633}# #{k\ 4634}#) (begin (let ((#{p\ 4638}# (open-input-file #{fn\ 4633}#))) (letrec* ((#{f\ 4642}# (lambda (#{x\ 4643}# #{result\ 4644}#) (if (eof-object? #{x\ 4643}#) (begin (close-input-port #{p\ 4638}#) (reverse #{result\ 4644}#)) (#{f\ 4642}# (read #{p\ 4638}#) (cons (datum->syntax #{k\ 4634}# #{x\ 4643}#) #{result\ 4644}#)))))) (begin (#{f\ 4642}# (read #{p\ 4638}#) '())))))))) (begin (let ((#{tmp\ 4645}# #{x\ 4629}#)) (let ((#{tmp\ 4646}# ($sc-dispatch #{tmp\ 4645}# '(any any)))) (if #{tmp\ 4646}# (@apply (lambda (#{k\ 4649}# #{filename\ 4650}#) (begin (let ((#{fn\ 4652}# (syntax->datum #{filename\ 4650}#))) (let ((#{tmp\ 4654}# (#{read-file\ 4632}# #{fn\ 4652}# #{filename\ 4650}#))) (let ((#{tmp\ 4655}# ($sc-dispatch #{tmp\ 4654}# 'each-any))) (if #{tmp\ 4655}# (@apply (lambda (#{exp\ 4657}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i4656")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i4651")) #(ribcage #(k filename) #((top) (top)) #("i4647" "i4648")) #(ribcage (read-file) ((top)) ("i4631")) #(ribcage #(x) #((top)) #("i4630"))) (hygiene guile)) #{exp\ 4657}#)) #{tmp\ 4655}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4654}#))))))) #{tmp\ 4646}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4645}#))))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro (lambda (#{x\ 4659}#) (let ((#{tmp\ 4661}# #{x\ 4659}#)) (let ((#{tmp\ 4662}# ($sc-dispatch #{tmp\ 4661}# '(any any)))) (if #{tmp\ 4662}# (@apply (lambda (#{k\ 4665}# #{filename\ 4666}#) (begin (let ((#{fn\ 4668}# (syntax->datum #{filename\ 4666}#))) (let ((#{tmp\ 4670}# (datum->syntax #{filename\ 4666}# (begin (let ((#{t\ 4675}# (%search-load-path #{fn\ 4668}#))) (if #{t\ 4675}# #{t\ 4675}# (syntax-violation 'include-from-path "file not found in path" #{x\ 4659}# #{filename\ 4666}#))))))) (let ((#{fn\ 4672}# #{tmp\ 4670}#)) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) #("i4671")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i4667")) #(ribcage #(k filename) #((top) (top)) #("i4663" "i4664")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4660"))) (hygiene guile)) #{fn\ 4672}#)))))) #{tmp\ 4662}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4661}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro (lambda (#{x\ 4677}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" #{x\ 4677}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro (lambda (#{x\ 4679}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" #{x\ 4679}#)))) (define case (make-syntax-transformer 'case 'macro (lambda (#{x\ 4681}#) (let ((#{tmp\ 4683}# #{x\ 4681}#)) (let ((#{tmp\ 4684}# ($sc-dispatch #{tmp\ 4683}# '(_ any any . each-any)))) (if #{tmp\ 4684}# (@apply (lambda (#{e\ 4688}# #{m1\ 4689}# #{m2\ 4690}#) (let ((#{tmp\ 4692}# (letrec* ((#{f\ 4698}# (lambda (#{clause\ 4699}# #{clauses\ 4700}#) (if (null? #{clauses\ 4700}#) (let ((#{tmp\ 4702}# #{clause\ 4699}#)) (let ((#{tmp\ 4703}# ($sc-dispatch #{tmp\ 4702}# '(#(free-id #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile))) any . each-any)))) (if #{tmp\ 4703}# (@apply (lambda (#{e1\ 4706}# #{e2\ 4707}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i4704" "i4705")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (cons #{e1\ 4706}# #{e2\ 4707}#))) #{tmp\ 4703}#) (let ((#{tmp\ 4709}# ($sc-dispatch #{tmp\ 4702}# '(each-any any . each-any)))) (if #{tmp\ 4709}# (@apply (lambda (#{k\ 4713}# #{e1\ 4714}# #{e2\ 4715}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4710" "i4711" "i4712")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4710" "i4711" "i4712")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4710" "i4711" "i4712")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4710" "i4711" "i4712")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) #{k\ 4713}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4710" "i4711" "i4712")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (cons #{e1\ 4714}# #{e2\ 4715}#)))) #{tmp\ 4709}#) (let ((#{_\ 4719}# #{tmp\ 4702}#)) (syntax-violation 'case "bad clause" #{x\ 4681}# #{clause\ 4699}#))))))) (let ((#{tmp\ 4721}# (#{f\ 4698}# (car #{clauses\ 4700}#) (cdr #{clauses\ 4700}#)))) (let ((#{rest\ 4723}# #{tmp\ 4721}#)) (let ((#{tmp\ 4724}# #{clause\ 4699}#)) (let ((#{tmp\ 4725}# ($sc-dispatch #{tmp\ 4724}# '(each-any any . each-any)))) (if #{tmp\ 4725}# (@apply (lambda (#{k\ 4729}# #{e1\ 4730}# #{e2\ 4731}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4726" "i4727" "i4728")) #(ribcage #(rest) #((top)) #("i4722")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4726" "i4727" "i4728")) #(ribcage #(rest) #((top)) #("i4722")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4726" "i4727" "i4728")) #(ribcage #(rest) #((top)) #("i4722")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4726" "i4727" "i4728")) #(ribcage #(rest) #((top)) #("i4722")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) #{k\ 4729}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i4726" "i4727" "i4728")) #(ribcage #(rest) #((top)) #("i4722")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i4695" "i4696" "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (cons #{e1\ 4730}# #{e2\ 4731}#)) #{rest\ 4723}#)) #{tmp\ 4725}#) (let ((#{_\ 4735}# #{tmp\ 4724}#)) (syntax-violation 'case "bad clause" #{x\ 4681}# #{clause\ 4699}#))))))))))) (begin (#{f\ 4698}# #{m1\ 4689}# #{m2\ 4690}#))))) (let ((#{body\ 4694}# #{tmp\ 4692}#)) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) #("i4693")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage #(body) #((top)) #("i4693")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i4685" "i4686" "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) #{e\ 4688}#)) #{body\ 4694}#)))) #{tmp\ 4684}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4683}#))))))) (define make-variable-transformer (lambda (#{proc\ 4736}#) (if (procedure? #{proc\ 4736}#) (begin (letrec* ((#{trans\ 4739}# (lambda (#{x\ 4740}#) (#{proc\ 4736}# #{x\ 4740}#)))) (begin (set-procedure-property! #{trans\ 4739}# 'variable-transformer #t) #{trans\ 4739}#))) (error "variable transformer not a procedure" #{proc\ 4736}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro (lambda (#{x\ 4742}#) (let ((#{tmp\ 4744}# #{x\ 4742}#)) (let ((#{tmp\ 4745}# ($sc-dispatch #{tmp\ 4744}# '(_ any)))) (if #{tmp\ 4745}# (@apply (lambda (#{e\ 4747}#) (list '#(syntax-object lambda ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '#(syntax-object x ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '() (list '#(syntax-object id ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object identifier? ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) (#(syntax-object syntax ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object id ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #{e\ 4747}#)) (list '(#(syntax-object _ ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object x ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) (list '#(syntax-object syntax ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) (cons #{e\ 4747}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))))))))) #{tmp\ 4745}#) (let ((#{tmp\ 4748}# ($sc-dispatch #{tmp\ 4744}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) any any) any))))) (if (if #{tmp\ 4748}# (@apply (lambda (#{id\ 4754}# #{exp1\ 4755}# #{var\ 4756}# #{val\ 4757}# #{exp2\ 4758}#) (if (identifier? #{id\ 4754}#) (identifier? #{var\ 4756}#) #f)) #{tmp\ 4748}#) #f) (@apply (lambda (#{id\ 4766}# #{exp1\ 4767}# #{var\ 4768}# #{val\ 4769}# #{exp2\ 4770}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) (list '#(syntax-object lambda ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) . #(syntax-object variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object set! ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) (list (list '#(syntax-object set! ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #{var\ 4768}# #{val\ 4769}#) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #{exp2\ 4770}#)) (list (cons #{id\ 4766}# '(#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) (cons #{exp1\ 4767}# '(#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))))) (list #{id\ 4766}# (list '#(syntax-object identifier? ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #{id\ 4766}#)) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #{exp1\ 4767}#)))))) #{tmp\ 4748}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4744}#))))))))) (define define* (make-syntax-transformer 'define* 'macro (lambda (#{x\ 4771}#) (let ((#{tmp\ 4773}# #{x\ 4771}#)) (let ((#{tmp\ 4774}# ($sc-dispatch #{tmp\ 4773}# '(_ (any . any) any . each-any)))) (if #{tmp\ 4774}# (@apply (lambda (#{id\ 4779}# #{args\ 4780}# #{b0\ 4781}# #{b1\ 4782}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) #("i4775" "i4776" "i4777" "i4778")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)) #{id\ 4779}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) #("i4775" "i4776" "i4777" "i4778")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)) (cons #{args\ 4780}# (cons #{b0\ 4781}# #{b1\ 4782}#))))) #{tmp\ 4774}#) (let ((#{tmp\ 4784}# ($sc-dispatch #{tmp\ 4773}# '(_ any any)))) (if (if #{tmp\ 4784}# (@apply (lambda (#{id\ 4787}# #{val\ 4788}#) (identifier? '#(syntax-object x ((top) #(ribcage #(id val) #((top) (top)) #("i4785" "i4786")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)))) #{tmp\ 4784}#) #f) (@apply (lambda (#{id\ 4791}# #{val\ 4792}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) #("i4789" "i4790")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)) #{id\ 4791}# #{val\ 4792}#)) #{tmp\ 4784}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp\ 4773}#)))))))))