From b78d91d517d900ee9825393be97d1f9079381367 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 21 Jun 2010 20:54:14 +0200 Subject: [PATCH] syntax-case treats _ as placeholder * module/ice-9/psyntax.scm (underscore?): New helper, like ellipsis?. (syntax-case): Treat the _ pattern as a matches-all pattern, disallowing it from the keyword list. Another well-thought part of the R6RS. ($sc-dispatch): Dispatch _ patterns. * module/ice-9/psyntax-pp.scm: Regenerated. * test-suite/tests/syncase.test ("_ is a placeholder"): Add a test. --- module/ice-9/psyntax-pp.scm | 15635 ++++++++++++++++++-------------- module/ice-9/psyntax.scm | 51 +- test-suite/tests/syncase.test | 11 + 3 files changed, 8640 insertions(+), 7057 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 761ad56f5..04225a8bc 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -3,1223 +3,1223 @@ (letrec* ((#{and-map*\ 36}# - (lambda (#{f\ 208}# #{first\ 209}# . #{rest\ 210}#) + (lambda (#{f\ 200}# #{first\ 201}# . #{rest\ 202}#) (begin - (let ((#{t\ 216}# (null? #{first\ 209}#))) - (if #{t\ 216}# - #{t\ 216}# - (if (null? #{rest\ 210}#) + (let ((#{t\ 208}# (null? #{first\ 201}#))) + (if #{t\ 208}# + #{t\ 208}# + (if (null? #{rest\ 202}#) (letrec* - ((#{andmap\ 220}# - (lambda (#{first\ 221}#) + ((#{andmap\ 212}# + (lambda (#{first\ 213}#) (begin - (let ((#{x\ 224}# (car #{first\ 221}#)) - (#{first\ 225}# (cdr #{first\ 221}#))) - (if (null? #{first\ 225}#) - (#{f\ 208}# #{x\ 224}#) - (if (#{f\ 208}# #{x\ 224}#) - (#{andmap\ 220}# #{first\ 225}#) + (let ((#{x\ 216}# (car #{first\ 213}#)) + (#{first\ 217}# (cdr #{first\ 213}#))) + (if (null? #{first\ 217}#) + (#{f\ 200}# #{x\ 216}#) + (if (#{f\ 200}# #{x\ 216}#) + (#{andmap\ 212}# #{first\ 217}#) #f))))))) - (begin (#{andmap\ 220}# #{first\ 209}#))) + (begin (#{andmap\ 212}# #{first\ 201}#))) (letrec* - ((#{andmap\ 231}# - (lambda (#{first\ 232}# #{rest\ 233}#) + ((#{andmap\ 223}# + (lambda (#{first\ 224}# #{rest\ 225}#) (begin - (let ((#{x\ 238}# (car #{first\ 232}#)) - (#{xr\ 239}# (map car #{rest\ 233}#)) - (#{first\ 240}# (cdr #{first\ 232}#)) - (#{rest\ 241}# (map cdr #{rest\ 233}#))) - (if (null? #{first\ 240}#) - (@apply #{f\ 208}# (cons #{x\ 238}# #{xr\ 239}#)) + (let ((#{x\ 230}# (car #{first\ 224}#)) + (#{xr\ 231}# (map car #{rest\ 225}#)) + (#{first\ 232}# (cdr #{first\ 224}#)) + (#{rest\ 233}# (map cdr #{rest\ 225}#))) + (if (null? #{first\ 232}#) + (@apply #{f\ 200}# (cons #{x\ 230}# #{xr\ 231}#)) (if (@apply - #{f\ 208}# - (cons #{x\ 238}# #{xr\ 239}#)) - (#{andmap\ 231}# #{first\ 240}# #{rest\ 241}#) + #{f\ 200}# + (cons #{x\ 230}# #{xr\ 231}#)) + (#{andmap\ 223}# #{first\ 232}# #{rest\ 233}#) #f))))))) (begin - (#{andmap\ 231}# #{first\ 209}# #{rest\ 210}#)))))))))) + (#{andmap\ 223}# #{first\ 201}# #{rest\ 202}#)))))))))) (begin - (let ((#{make-primitive-ref\ 250}# (if #f #f)) - (#{fx+\ 289}# (if #f #f)) - (#{fx-\ 291}# (if #f #f)) - (#{fx=\ 293}# (if #f #f)) - (#{fx<\ 295}# (if #f #f)) - (#{set-syntax-object-expression!\ 360}# + (let ((#{make-primitive-ref\ 242}# (if #f #f)) + (#{fx+\ 281}# (if #f #f)) + (#{fx-\ 283}# (if #f #f)) + (#{fx=\ 285}# (if #f #f)) + (#{fx<\ 287}# (if #f #f)) + (#{set-syntax-object-expression!\ 352}# (if #f #f)) - (#{set-syntax-object-wrap!\ 362}# (if #f #f)) - (#{set-syntax-object-module!\ 364}# (if #f #f)) - (#{binding-type\ 371}# (if #f #f)) - (#{binding-value\ 373}# (if #f #f)) - (#{make-wrap\ 393}# (if #f #f)) - (#{wrap-marks\ 395}# (if #f #f)) - (#{wrap-subst\ 397}# (if #f #f)) - (#{ribcage?\ 411}# (if #f #f))) + (#{set-syntax-object-wrap!\ 354}# (if #f #f)) + (#{set-syntax-object-module!\ 356}# (if #f #f)) + (#{binding-type\ 363}# (if #f #f)) + (#{binding-value\ 365}# (if #f #f)) + (#{make-wrap\ 385}# (if #f #f)) + (#{wrap-marks\ 387}# (if #f #f)) + (#{wrap-subst\ 389}# (if #f #f)) + (#{ribcage?\ 403}# (if #f #f))) (letrec* - ((#{make-void\ 246}# - (lambda (#{src\ 718}#) + ((#{make-void\ 238}# + (lambda (#{src\ 700}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src\ 718}#))) - (#{make-const\ 248}# - (lambda (#{src\ 720}# #{exp\ 721}#) + #{src\ 700}#))) + (#{make-const\ 240}# + (lambda (#{src\ 702}# #{exp\ 703}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{src\ 720}# - #{exp\ 721}#))) - (#{make-lexical-ref\ 252}# - (lambda (#{src\ 728}# #{name\ 729}# #{gensym\ 730}#) + #{src\ 702}# + #{exp\ 703}#))) + (#{make-lexical-ref\ 244}# + (lambda (#{src\ 710}# #{name\ 711}# #{gensym\ 712}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src\ 728}# - #{name\ 729}# - #{gensym\ 730}#))) - (#{make-lexical-set\ 254}# - (lambda (#{src\ 734}# - #{name\ 735}# - #{gensym\ 736}# - #{exp\ 737}#) + #{src\ 710}# + #{name\ 711}# + #{gensym\ 712}#))) + (#{make-lexical-set\ 246}# + (lambda (#{src\ 716}# + #{name\ 717}# + #{gensym\ 718}# + #{exp\ 719}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{src\ 734}# - #{name\ 735}# - #{gensym\ 736}# - #{exp\ 737}#))) - (#{make-module-ref\ 256}# - (lambda (#{src\ 742}# - #{mod\ 743}# - #{name\ 744}# - #{public?\ 745}#) + #{src\ 716}# + #{name\ 717}# + #{gensym\ 718}# + #{exp\ 719}#))) + (#{make-module-ref\ 248}# + (lambda (#{src\ 724}# + #{mod\ 725}# + #{name\ 726}# + #{public?\ 727}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{src\ 742}# - #{mod\ 743}# - #{name\ 744}# - #{public?\ 745}#))) - (#{make-module-set\ 258}# - (lambda (#{src\ 750}# - #{mod\ 751}# - #{name\ 752}# - #{public?\ 753}# - #{exp\ 754}#) + #{src\ 724}# + #{mod\ 725}# + #{name\ 726}# + #{public?\ 727}#))) + (#{make-module-set\ 250}# + (lambda (#{src\ 732}# + #{mod\ 733}# + #{name\ 734}# + #{public?\ 735}# + #{exp\ 736}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{src\ 750}# - #{mod\ 751}# - #{name\ 752}# - #{public?\ 753}# - #{exp\ 754}#))) - (#{make-toplevel-ref\ 260}# - (lambda (#{src\ 760}# #{name\ 761}#) + #{src\ 732}# + #{mod\ 733}# + #{name\ 734}# + #{public?\ 735}# + #{exp\ 736}#))) + (#{make-toplevel-ref\ 252}# + (lambda (#{src\ 742}# #{name\ 743}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{src\ 760}# - #{name\ 761}#))) - (#{make-toplevel-set\ 262}# - (lambda (#{src\ 764}# #{name\ 765}# #{exp\ 766}#) + #{src\ 742}# + #{name\ 743}#))) + (#{make-toplevel-set\ 254}# + (lambda (#{src\ 746}# #{name\ 747}# #{exp\ 748}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{src\ 764}# - #{name\ 765}# - #{exp\ 766}#))) - (#{make-toplevel-define\ 264}# - (lambda (#{src\ 770}# #{name\ 771}# #{exp\ 772}#) + #{src\ 746}# + #{name\ 747}# + #{exp\ 748}#))) + (#{make-toplevel-define\ 256}# + (lambda (#{src\ 752}# #{name\ 753}# #{exp\ 754}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{src\ 770}# - #{name\ 771}# - #{exp\ 772}#))) - (#{make-conditional\ 266}# - (lambda (#{src\ 776}# - #{test\ 777}# - #{consequent\ 778}# - #{alternate\ 779}#) + #{src\ 752}# + #{name\ 753}# + #{exp\ 754}#))) + (#{make-conditional\ 258}# + (lambda (#{src\ 758}# + #{test\ 759}# + #{consequent\ 760}# + #{alternate\ 761}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{src\ 776}# - #{test\ 777}# - #{consequent\ 778}# - #{alternate\ 779}#))) - (#{make-application\ 268}# - (lambda (#{src\ 784}# #{proc\ 785}# #{args\ 786}#) + #{src\ 758}# + #{test\ 759}# + #{consequent\ 760}# + #{alternate\ 761}#))) + (#{make-application\ 260}# + (lambda (#{src\ 766}# #{proc\ 767}# #{args\ 768}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src\ 784}# - #{proc\ 785}# - #{args\ 786}#))) - (#{make-sequence\ 270}# - (lambda (#{src\ 790}# #{exps\ 791}#) + #{src\ 766}# + #{proc\ 767}# + #{args\ 768}#))) + (#{make-sequence\ 262}# + (lambda (#{src\ 772}# #{exps\ 773}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src\ 790}# - #{exps\ 791}#))) - (#{make-lambda\ 272}# - (lambda (#{src\ 794}# #{meta\ 795}# #{body\ 796}#) + #{src\ 772}# + #{exps\ 773}#))) + (#{make-lambda\ 264}# + (lambda (#{src\ 776}# #{meta\ 777}# #{body\ 778}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src\ 794}# - #{meta\ 795}# - #{body\ 796}#))) - (#{make-lambda-case\ 274}# - (lambda (#{src\ 800}# - #{req\ 801}# - #{opt\ 802}# - #{rest\ 803}# - #{kw\ 804}# - #{inits\ 805}# - #{gensyms\ 806}# - #{body\ 807}# - #{alternate\ 808}#) + #{src\ 776}# + #{meta\ 777}# + #{body\ 778}#))) + (#{make-lambda-case\ 266}# + (lambda (#{src\ 782}# + #{req\ 783}# + #{opt\ 784}# + #{rest\ 785}# + #{kw\ 786}# + #{inits\ 787}# + #{gensyms\ 788}# + #{body\ 789}# + #{alternate\ 790}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src\ 800}# - #{req\ 801}# - #{opt\ 802}# - #{rest\ 803}# - #{kw\ 804}# - #{inits\ 805}# - #{gensyms\ 806}# - #{body\ 807}# - #{alternate\ 808}#))) - (#{make-let\ 276}# - (lambda (#{src\ 818}# - #{names\ 819}# - #{gensyms\ 820}# - #{vals\ 821}# - #{body\ 822}#) + #{src\ 782}# + #{req\ 783}# + #{opt\ 784}# + #{rest\ 785}# + #{kw\ 786}# + #{inits\ 787}# + #{gensyms\ 788}# + #{body\ 789}# + #{alternate\ 790}#))) + (#{make-let\ 268}# + (lambda (#{src\ 800}# + #{names\ 801}# + #{gensyms\ 802}# + #{vals\ 803}# + #{body\ 804}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src\ 818}# - #{names\ 819}# - #{gensyms\ 820}# - #{vals\ 821}# - #{body\ 822}#))) - (#{make-letrec\ 278}# - (lambda (#{src\ 828}# - #{in-order?\ 829}# - #{names\ 830}# - #{gensyms\ 831}# - #{vals\ 832}# - #{body\ 833}#) + #{src\ 800}# + #{names\ 801}# + #{gensyms\ 802}# + #{vals\ 803}# + #{body\ 804}#))) + (#{make-letrec\ 270}# + (lambda (#{src\ 810}# + #{in-order?\ 811}# + #{names\ 812}# + #{gensyms\ 813}# + #{vals\ 814}# + #{body\ 815}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src\ 828}# - #{in-order?\ 829}# - #{names\ 830}# - #{gensyms\ 831}# - #{vals\ 832}# - #{body\ 833}#))) - (#{make-dynlet\ 280}# - (lambda (#{src\ 840}# - #{fluids\ 841}# - #{vals\ 842}# - #{body\ 843}#) + #{src\ 810}# + #{in-order?\ 811}# + #{names\ 812}# + #{gensyms\ 813}# + #{vals\ 814}# + #{body\ 815}#))) + (#{make-dynlet\ 272}# + (lambda (#{src\ 822}# + #{fluids\ 823}# + #{vals\ 824}# + #{body\ 825}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src\ 840}# - #{fluids\ 841}# - #{vals\ 842}# - #{body\ 843}#))) - (#{lambda?\ 283}# - (lambda (#{x\ 848}#) - (if (struct? #{x\ 848}#) - (eq? (struct-vtable #{x\ 848}#) + #{src\ 822}# + #{fluids\ 823}# + #{vals\ 824}# + #{body\ 825}#))) + (#{lambda?\ 275}# + (lambda (#{x\ 830}#) + (if (struct? #{x\ 830}#) + (eq? (struct-vtable #{x\ 830}#) (vector-ref %expanded-vtables 13)) #f))) - (#{lambda-meta\ 285}# - (lambda (#{x\ 852}#) (struct-ref #{x\ 852}# 1))) - (#{set-lambda-meta!\ 287}# - (lambda (#{x\ 854}# #{v\ 855}#) - (struct-set! #{x\ 854}# 1 #{v\ 855}#))) - (#{top-level-eval-hook\ 297}# - (lambda (#{x\ 858}# #{mod\ 859}#) - (primitive-eval #{x\ 858}#))) - (#{local-eval-hook\ 299}# - (lambda (#{x\ 862}# #{mod\ 863}#) - (primitive-eval #{x\ 862}#))) - (#{put-global-definition-hook\ 302}# - (lambda (#{symbol\ 866}# #{type\ 867}# #{val\ 868}#) + (#{lambda-meta\ 277}# + (lambda (#{x\ 834}#) (struct-ref #{x\ 834}# 1))) + (#{set-lambda-meta!\ 279}# + (lambda (#{x\ 836}# #{v\ 837}#) + (struct-set! #{x\ 836}# 1 #{v\ 837}#))) + (#{top-level-eval-hook\ 289}# + (lambda (#{x\ 840}# #{mod\ 841}#) + (primitive-eval #{x\ 840}#))) + (#{local-eval-hook\ 291}# + (lambda (#{x\ 844}# #{mod\ 845}#) + (primitive-eval #{x\ 844}#))) + (#{put-global-definition-hook\ 294}# + (lambda (#{symbol\ 848}# #{type\ 849}# #{val\ 850}#) (module-define! (current-module) - #{symbol\ 866}# + #{symbol\ 848}# (make-syntax-transformer - #{symbol\ 866}# - #{type\ 867}# - #{val\ 868}#)))) - (#{get-global-definition-hook\ 304}# - (lambda (#{symbol\ 872}# #{module\ 873}#) + #{symbol\ 848}# + #{type\ 849}# + #{val\ 850}#)))) + (#{get-global-definition-hook\ 296}# + (lambda (#{symbol\ 854}# #{module\ 855}#) (begin - (if (if (not #{module\ 873}#) (current-module) #f) + (if (if (not #{module\ 855}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 872}#)) + #{symbol\ 854}#)) (begin - (let ((#{v\ 879}# (module-variable - (if #{module\ 873}# - (resolve-module (cdr #{module\ 873}#)) + (let ((#{v\ 861}# (module-variable + (if #{module\ 855}# + (resolve-module (cdr #{module\ 855}#)) (current-module)) - #{symbol\ 872}#))) - (if #{v\ 879}# - (if (variable-bound? #{v\ 879}#) + #{symbol\ 854}#))) + (if #{v\ 861}# + (if (variable-bound? #{v\ 861}#) (begin - (let ((#{val\ 884}# (variable-ref #{v\ 879}#))) - (if (macro? #{val\ 884}#) - (if (macro-type #{val\ 884}#) - (cons (macro-type #{val\ 884}#) - (macro-binding #{val\ 884}#)) + (let ((#{val\ 866}# (variable-ref #{v\ 861}#))) + (if (macro? #{val\ 866}#) + (if (macro-type #{val\ 866}#) + (cons (macro-type #{val\ 866}#) + (macro-binding #{val\ 866}#)) #f) #f))) #f) #f)))))) - (#{decorate-source\ 306}# - (lambda (#{e\ 888}# #{s\ 889}#) + (#{decorate-source\ 298}# + (lambda (#{e\ 870}# #{s\ 871}#) (begin - (if (if (pair? #{e\ 888}#) #{s\ 889}# #f) - (set-source-properties! #{e\ 888}# #{s\ 889}#)) - #{e\ 888}#))) - (#{maybe-name-value!\ 308}# - (lambda (#{name\ 894}# #{val\ 895}#) - (if (#{lambda?\ 283}# #{val\ 895}#) + (if (if (pair? #{e\ 870}#) #{s\ 871}# #f) + (set-source-properties! #{e\ 870}# #{s\ 871}#)) + #{e\ 870}#))) + (#{maybe-name-value!\ 300}# + (lambda (#{name\ 876}# #{val\ 877}#) + (if (#{lambda?\ 275}# #{val\ 877}#) (begin - (let ((#{meta\ 899}# - (#{lambda-meta\ 285}# #{val\ 895}#))) - (if (not (assq (quote name) #{meta\ 899}#)) - (#{set-lambda-meta!\ 287}# - #{val\ 895}# - (cons (cons (quote name) #{name\ 894}#) - #{meta\ 899}#)))))))) - (#{build-void\ 310}# - (lambda (#{source\ 900}#) - (#{make-void\ 246}# #{source\ 900}#))) - (#{build-application\ 312}# - (lambda (#{source\ 902}# - #{fun-exp\ 903}# - #{arg-exps\ 904}#) - (#{make-application\ 268}# - #{source\ 902}# - #{fun-exp\ 903}# - #{arg-exps\ 904}#))) - (#{build-conditional\ 314}# - (lambda (#{source\ 908}# - #{test-exp\ 909}# - #{then-exp\ 910}# - #{else-exp\ 911}#) - (#{make-conditional\ 266}# - #{source\ 908}# - #{test-exp\ 909}# - #{then-exp\ 910}# - #{else-exp\ 911}#))) - (#{build-dynlet\ 316}# - (lambda (#{source\ 916}# - #{fluids\ 917}# - #{vals\ 918}# - #{body\ 919}#) - (#{make-dynlet\ 280}# - #{source\ 916}# - #{fluids\ 917}# - #{vals\ 918}# - #{body\ 919}#))) - (#{build-lexical-reference\ 318}# - (lambda (#{type\ 924}# - #{source\ 925}# - #{name\ 926}# - #{var\ 927}#) - (#{make-lexical-ref\ 252}# - #{source\ 925}# - #{name\ 926}# - #{var\ 927}#))) - (#{build-lexical-assignment\ 320}# - (lambda (#{source\ 932}# - #{name\ 933}# - #{var\ 934}# - #{exp\ 935}#) + (let ((#{meta\ 881}# + (#{lambda-meta\ 277}# #{val\ 877}#))) + (if (not (assq (quote name) #{meta\ 881}#)) + (#{set-lambda-meta!\ 279}# + #{val\ 877}# + (cons (cons (quote name) #{name\ 876}#) + #{meta\ 881}#)))))))) + (#{build-void\ 302}# + (lambda (#{source\ 882}#) + (#{make-void\ 238}# #{source\ 882}#))) + (#{build-application\ 304}# + (lambda (#{source\ 884}# + #{fun-exp\ 885}# + #{arg-exps\ 886}#) + (#{make-application\ 260}# + #{source\ 884}# + #{fun-exp\ 885}# + #{arg-exps\ 886}#))) + (#{build-conditional\ 306}# + (lambda (#{source\ 890}# + #{test-exp\ 891}# + #{then-exp\ 892}# + #{else-exp\ 893}#) + (#{make-conditional\ 258}# + #{source\ 890}# + #{test-exp\ 891}# + #{then-exp\ 892}# + #{else-exp\ 893}#))) + (#{build-dynlet\ 308}# + (lambda (#{source\ 898}# + #{fluids\ 899}# + #{vals\ 900}# + #{body\ 901}#) + (#{make-dynlet\ 272}# + #{source\ 898}# + #{fluids\ 899}# + #{vals\ 900}# + #{body\ 901}#))) + (#{build-lexical-reference\ 310}# + (lambda (#{type\ 906}# + #{source\ 907}# + #{name\ 908}# + #{var\ 909}#) + (#{make-lexical-ref\ 244}# + #{source\ 907}# + #{name\ 908}# + #{var\ 909}#))) + (#{build-lexical-assignment\ 312}# + (lambda (#{source\ 914}# + #{name\ 915}# + #{var\ 916}# + #{exp\ 917}#) (begin - (#{maybe-name-value!\ 308}# - #{name\ 933}# - #{exp\ 935}#) - (#{make-lexical-set\ 254}# - #{source\ 932}# - #{name\ 933}# - #{var\ 934}# - #{exp\ 935}#)))) - (#{analyze-variable\ 322}# - (lambda (#{mod\ 940}# - #{var\ 941}# - #{modref-cont\ 942}# - #{bare-cont\ 943}#) - (if (not #{mod\ 940}#) - (#{bare-cont\ 943}# #{var\ 941}#) + (#{maybe-name-value!\ 300}# + #{name\ 915}# + #{exp\ 917}#) + (#{make-lexical-set\ 246}# + #{source\ 914}# + #{name\ 915}# + #{var\ 916}# + #{exp\ 917}#)))) + (#{analyze-variable\ 314}# + (lambda (#{mod\ 922}# + #{var\ 923}# + #{modref-cont\ 924}# + #{bare-cont\ 925}#) + (if (not #{mod\ 922}#) + (#{bare-cont\ 925}# #{var\ 923}#) (begin - (let ((#{kind\ 950}# (car #{mod\ 940}#)) - (#{mod\ 951}# (cdr #{mod\ 940}#))) - (if (eqv? #{kind\ 950}# (quote public)) - (#{modref-cont\ 942}# - #{mod\ 951}# - #{var\ 941}# + (let ((#{kind\ 932}# (car #{mod\ 922}#)) + (#{mod\ 933}# (cdr #{mod\ 922}#))) + (if (eqv? #{kind\ 932}# (quote public)) + (#{modref-cont\ 924}# + #{mod\ 933}# + #{var\ 923}# #t) - (if (eqv? #{kind\ 950}# (quote private)) + (if (eqv? #{kind\ 932}# (quote private)) (if (not (equal? - #{mod\ 951}# + #{mod\ 933}# (module-name (current-module)))) - (#{modref-cont\ 942}# - #{mod\ 951}# - #{var\ 941}# + (#{modref-cont\ 924}# + #{mod\ 933}# + #{var\ 923}# #f) - (#{bare-cont\ 943}# #{var\ 941}#)) - (if (eqv? #{kind\ 950}# (quote bare)) - (#{bare-cont\ 943}# #{var\ 941}#) - (if (eqv? #{kind\ 950}# (quote hygiene)) + (#{bare-cont\ 925}# #{var\ 923}#)) + (if (eqv? #{kind\ 932}# (quote bare)) + (#{bare-cont\ 925}# #{var\ 923}#) + (if (eqv? #{kind\ 932}# (quote hygiene)) (if (if (not (equal? - #{mod\ 951}# + #{mod\ 933}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 951}#) - #{var\ 941}#) + (resolve-module #{mod\ 933}#) + #{var\ 923}#) #f) - (#{modref-cont\ 942}# - #{mod\ 951}# - #{var\ 941}# + (#{modref-cont\ 924}# + #{mod\ 933}# + #{var\ 923}# #f) - (#{bare-cont\ 943}# #{var\ 941}#)) + (#{bare-cont\ 925}# #{var\ 923}#)) (syntax-violation #f "bad module kind" - #{var\ 941}# - #{mod\ 951}#)))))))))) - (#{build-global-reference\ 324}# - (lambda (#{source\ 959}# #{var\ 960}# #{mod\ 961}#) - (#{analyze-variable\ 322}# - #{mod\ 961}# - #{var\ 960}# - (lambda (#{mod\ 965}# #{var\ 966}# #{public?\ 967}#) - (#{make-module-ref\ 256}# - #{source\ 959}# - #{mod\ 965}# - #{var\ 966}# - #{public?\ 967}#)) - (lambda (#{var\ 971}#) - (#{make-toplevel-ref\ 260}# - #{source\ 959}# - #{var\ 971}#))))) - (#{build-global-assignment\ 326}# - (lambda (#{source\ 973}# - #{var\ 974}# - #{exp\ 975}# - #{mod\ 976}#) + #{var\ 923}# + #{mod\ 933}#)))))))))) + (#{build-global-reference\ 316}# + (lambda (#{source\ 941}# #{var\ 942}# #{mod\ 943}#) + (#{analyze-variable\ 314}# + #{mod\ 943}# + #{var\ 942}# + (lambda (#{mod\ 947}# #{var\ 948}# #{public?\ 949}#) + (#{make-module-ref\ 248}# + #{source\ 941}# + #{mod\ 947}# + #{var\ 948}# + #{public?\ 949}#)) + (lambda (#{var\ 953}#) + (#{make-toplevel-ref\ 252}# + #{source\ 941}# + #{var\ 953}#))))) + (#{build-global-assignment\ 318}# + (lambda (#{source\ 955}# + #{var\ 956}# + #{exp\ 957}# + #{mod\ 958}#) (begin - (#{maybe-name-value!\ 308}# - #{var\ 974}# - #{exp\ 975}#) - (#{analyze-variable\ 322}# - #{mod\ 976}# - #{var\ 974}# - (lambda (#{mod\ 981}# #{var\ 982}# #{public?\ 983}#) - (#{make-module-set\ 258}# - #{source\ 973}# - #{mod\ 981}# - #{var\ 982}# - #{public?\ 983}# - #{exp\ 975}#)) - (lambda (#{var\ 987}#) - (#{make-toplevel-set\ 262}# - #{source\ 973}# - #{var\ 987}# - #{exp\ 975}#)))))) - (#{build-global-definition\ 328}# - (lambda (#{source\ 989}# #{var\ 990}# #{exp\ 991}#) + (#{maybe-name-value!\ 300}# + #{var\ 956}# + #{exp\ 957}#) + (#{analyze-variable\ 314}# + #{mod\ 958}# + #{var\ 956}# + (lambda (#{mod\ 963}# #{var\ 964}# #{public?\ 965}#) + (#{make-module-set\ 250}# + #{source\ 955}# + #{mod\ 963}# + #{var\ 964}# + #{public?\ 965}# + #{exp\ 957}#)) + (lambda (#{var\ 969}#) + (#{make-toplevel-set\ 254}# + #{source\ 955}# + #{var\ 969}# + #{exp\ 957}#)))))) + (#{build-global-definition\ 320}# + (lambda (#{source\ 971}# #{var\ 972}# #{exp\ 973}#) (begin - (#{maybe-name-value!\ 308}# - #{var\ 990}# - #{exp\ 991}#) - (#{make-toplevel-define\ 264}# - #{source\ 989}# - #{var\ 990}# - #{exp\ 991}#)))) - (#{build-simple-lambda\ 330}# - (lambda (#{src\ 995}# - #{req\ 996}# - #{rest\ 997}# - #{vars\ 998}# - #{meta\ 999}# - #{exp\ 1000}#) - (#{make-lambda\ 272}# - #{src\ 995}# - #{meta\ 999}# - (#{make-lambda-case\ 274}# - #{src\ 995}# - #{req\ 996}# + (#{maybe-name-value!\ 300}# + #{var\ 972}# + #{exp\ 973}#) + (#{make-toplevel-define\ 256}# + #{source\ 971}# + #{var\ 972}# + #{exp\ 973}#)))) + (#{build-simple-lambda\ 322}# + (lambda (#{src\ 977}# + #{req\ 978}# + #{rest\ 979}# + #{vars\ 980}# + #{meta\ 981}# + #{exp\ 982}#) + (#{make-lambda\ 264}# + #{src\ 977}# + #{meta\ 981}# + (#{make-lambda-case\ 266}# + #{src\ 977}# + #{req\ 978}# #f - #{rest\ 997}# + #{rest\ 979}# #f '() - #{vars\ 998}# - #{exp\ 1000}# + #{vars\ 980}# + #{exp\ 982}# #f)))) - (#{build-case-lambda\ 332}# - (lambda (#{src\ 1007}# #{meta\ 1008}# #{body\ 1009}#) - (#{make-lambda\ 272}# - #{src\ 1007}# - #{meta\ 1008}# - #{body\ 1009}#))) - (#{build-lambda-case\ 334}# - (lambda (#{src\ 1013}# - #{req\ 1014}# - #{opt\ 1015}# - #{rest\ 1016}# - #{kw\ 1017}# - #{inits\ 1018}# - #{vars\ 1019}# - #{body\ 1020}# - #{else-case\ 1021}#) - (#{make-lambda-case\ 274}# - #{src\ 1013}# - #{req\ 1014}# - #{opt\ 1015}# - #{rest\ 1016}# - #{kw\ 1017}# - #{inits\ 1018}# - #{vars\ 1019}# - #{body\ 1020}# - #{else-case\ 1021}#))) - (#{build-primref\ 336}# - (lambda (#{src\ 1031}# #{name\ 1032}#) + (#{build-case-lambda\ 324}# + (lambda (#{src\ 989}# #{meta\ 990}# #{body\ 991}#) + (#{make-lambda\ 264}# + #{src\ 989}# + #{meta\ 990}# + #{body\ 991}#))) + (#{build-lambda-case\ 326}# + (lambda (#{src\ 995}# + #{req\ 996}# + #{opt\ 997}# + #{rest\ 998}# + #{kw\ 999}# + #{inits\ 1000}# + #{vars\ 1001}# + #{body\ 1002}# + #{else-case\ 1003}#) + (#{make-lambda-case\ 266}# + #{src\ 995}# + #{req\ 996}# + #{opt\ 997}# + #{rest\ 998}# + #{kw\ 999}# + #{inits\ 1000}# + #{vars\ 1001}# + #{body\ 1002}# + #{else-case\ 1003}#))) + (#{build-primref\ 328}# + (lambda (#{src\ 1013}# #{name\ 1014}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref\ 260}# - #{src\ 1031}# - #{name\ 1032}#) - (#{make-module-ref\ 256}# - #{src\ 1031}# + (#{make-toplevel-ref\ 252}# + #{src\ 1013}# + #{name\ 1014}#) + (#{make-module-ref\ 248}# + #{src\ 1013}# '(guile) - #{name\ 1032}# + #{name\ 1014}# #f)))) - (#{build-data\ 338}# - (lambda (#{src\ 1035}# #{exp\ 1036}#) - (#{make-const\ 248}# #{src\ 1035}# #{exp\ 1036}#))) - (#{build-sequence\ 340}# - (lambda (#{src\ 1039}# #{exps\ 1040}#) - (if (null? (cdr #{exps\ 1040}#)) - (car #{exps\ 1040}#) - (#{make-sequence\ 270}# - #{src\ 1039}# - #{exps\ 1040}#)))) - (#{build-let\ 342}# - (lambda (#{src\ 1043}# - #{ids\ 1044}# - #{vars\ 1045}# - #{val-exps\ 1046}# - #{body-exp\ 1047}#) + (#{build-data\ 330}# + (lambda (#{src\ 1017}# #{exp\ 1018}#) + (#{make-const\ 240}# #{src\ 1017}# #{exp\ 1018}#))) + (#{build-sequence\ 332}# + (lambda (#{src\ 1021}# #{exps\ 1022}#) + (if (null? (cdr #{exps\ 1022}#)) + (car #{exps\ 1022}#) + (#{make-sequence\ 262}# + #{src\ 1021}# + #{exps\ 1022}#)))) + (#{build-let\ 334}# + (lambda (#{src\ 1025}# + #{ids\ 1026}# + #{vars\ 1027}# + #{val-exps\ 1028}# + #{body-exp\ 1029}#) (begin (for-each - #{maybe-name-value!\ 308}# - #{ids\ 1044}# - #{val-exps\ 1046}#) - (if (null? #{vars\ 1045}#) - #{body-exp\ 1047}# - (#{make-let\ 276}# - #{src\ 1043}# - #{ids\ 1044}# - #{vars\ 1045}# - #{val-exps\ 1046}# - #{body-exp\ 1047}#))))) - (#{build-named-let\ 344}# - (lambda (#{src\ 1053}# - #{ids\ 1054}# - #{vars\ 1055}# - #{val-exps\ 1056}# - #{body-exp\ 1057}#) + #{maybe-name-value!\ 300}# + #{ids\ 1026}# + #{val-exps\ 1028}#) + (if (null? #{vars\ 1027}#) + #{body-exp\ 1029}# + (#{make-let\ 268}# + #{src\ 1025}# + #{ids\ 1026}# + #{vars\ 1027}# + #{val-exps\ 1028}# + #{body-exp\ 1029}#))))) + (#{build-named-let\ 336}# + (lambda (#{src\ 1035}# + #{ids\ 1036}# + #{vars\ 1037}# + #{val-exps\ 1038}# + #{body-exp\ 1039}#) (begin - (let ((#{f\ 1067}# (car #{vars\ 1055}#)) - (#{f-name\ 1068}# (car #{ids\ 1054}#)) - (#{vars\ 1069}# (cdr #{vars\ 1055}#)) - (#{ids\ 1070}# (cdr #{ids\ 1054}#))) + (let ((#{f\ 1049}# (car #{vars\ 1037}#)) + (#{f-name\ 1050}# (car #{ids\ 1036}#)) + (#{vars\ 1051}# (cdr #{vars\ 1037}#)) + (#{ids\ 1052}# (cdr #{ids\ 1036}#))) (begin - (let ((#{proc\ 1072}# - (#{build-simple-lambda\ 330}# - #{src\ 1053}# - #{ids\ 1070}# + (let ((#{proc\ 1054}# + (#{build-simple-lambda\ 322}# + #{src\ 1035}# + #{ids\ 1052}# #f - #{vars\ 1069}# + #{vars\ 1051}# '() - #{body-exp\ 1057}#))) + #{body-exp\ 1039}#))) (begin - (#{maybe-name-value!\ 308}# - #{f-name\ 1068}# - #{proc\ 1072}#) + (#{maybe-name-value!\ 300}# + #{f-name\ 1050}# + #{proc\ 1054}#) (for-each - #{maybe-name-value!\ 308}# - #{ids\ 1070}# - #{val-exps\ 1056}#) - (#{make-letrec\ 278}# - #{src\ 1053}# + #{maybe-name-value!\ 300}# + #{ids\ 1052}# + #{val-exps\ 1038}#) + (#{make-letrec\ 270}# + #{src\ 1035}# #f - (list #{f-name\ 1068}#) - (list #{f\ 1067}#) - (list #{proc\ 1072}#) - (#{build-application\ 312}# - #{src\ 1053}# - (#{build-lexical-reference\ 318}# + (list #{f-name\ 1050}#) + (list #{f\ 1049}#) + (list #{proc\ 1054}#) + (#{build-application\ 304}# + #{src\ 1035}# + (#{build-lexical-reference\ 310}# 'fun - #{src\ 1053}# - #{f-name\ 1068}# - #{f\ 1067}#) - #{val-exps\ 1056}#))))))))) - (#{build-letrec\ 346}# - (lambda (#{src\ 1073}# - #{in-order?\ 1074}# - #{ids\ 1075}# - #{vars\ 1076}# - #{val-exps\ 1077}# - #{body-exp\ 1078}#) - (if (null? #{vars\ 1076}#) - #{body-exp\ 1078}# + #{src\ 1035}# + #{f-name\ 1050}# + #{f\ 1049}#) + #{val-exps\ 1038}#))))))))) + (#{build-letrec\ 338}# + (lambda (#{src\ 1055}# + #{in-order?\ 1056}# + #{ids\ 1057}# + #{vars\ 1058}# + #{val-exps\ 1059}# + #{body-exp\ 1060}#) + (if (null? #{vars\ 1058}#) + #{body-exp\ 1060}# (begin (for-each - #{maybe-name-value!\ 308}# - #{ids\ 1075}# - #{val-exps\ 1077}#) - (#{make-letrec\ 278}# - #{src\ 1073}# - #{in-order?\ 1074}# - #{ids\ 1075}# - #{vars\ 1076}# - #{val-exps\ 1077}# - #{body-exp\ 1078}#))))) - (#{make-syntax-object\ 350}# - (lambda (#{expression\ 1085}# - #{wrap\ 1086}# - #{module\ 1087}#) + #{maybe-name-value!\ 300}# + #{ids\ 1057}# + #{val-exps\ 1059}#) + (#{make-letrec\ 270}# + #{src\ 1055}# + #{in-order?\ 1056}# + #{ids\ 1057}# + #{vars\ 1058}# + #{val-exps\ 1059}# + #{body-exp\ 1060}#))))) + (#{make-syntax-object\ 342}# + (lambda (#{expression\ 1067}# + #{wrap\ 1068}# + #{module\ 1069}#) (vector 'syntax-object - #{expression\ 1085}# - #{wrap\ 1086}# - #{module\ 1087}#))) - (#{syntax-object?\ 352}# - (lambda (#{x\ 1091}#) - (if (vector? #{x\ 1091}#) - (if (= (vector-length #{x\ 1091}#) 4) - (eq? (vector-ref #{x\ 1091}# 0) + #{expression\ 1067}# + #{wrap\ 1068}# + #{module\ 1069}#))) + (#{syntax-object?\ 344}# + (lambda (#{x\ 1073}#) + (if (vector? #{x\ 1073}#) + (if (= (vector-length #{x\ 1073}#) 4) + (eq? (vector-ref #{x\ 1073}# 0) 'syntax-object) #f) #f))) - (#{syntax-object-expression\ 354}# - (lambda (#{x\ 1096}#) (vector-ref #{x\ 1096}# 1))) - (#{syntax-object-wrap\ 356}# - (lambda (#{x\ 1098}#) (vector-ref #{x\ 1098}# 2))) - (#{syntax-object-module\ 358}# - (lambda (#{x\ 1100}#) (vector-ref #{x\ 1100}# 3))) - (#{source-annotation\ 367}# - (lambda (#{x\ 1114}#) - (if (#{syntax-object?\ 352}# #{x\ 1114}#) - (#{source-annotation\ 367}# - (#{syntax-object-expression\ 354}# #{x\ 1114}#)) - (if (pair? #{x\ 1114}#) + (#{syntax-object-expression\ 346}# + (lambda (#{x\ 1078}#) (vector-ref #{x\ 1078}# 1))) + (#{syntax-object-wrap\ 348}# + (lambda (#{x\ 1080}#) (vector-ref #{x\ 1080}# 2))) + (#{syntax-object-module\ 350}# + (lambda (#{x\ 1082}#) (vector-ref #{x\ 1082}# 3))) + (#{source-annotation\ 359}# + (lambda (#{x\ 1096}#) + (if (#{syntax-object?\ 344}# #{x\ 1096}#) + (#{source-annotation\ 359}# + (#{syntax-object-expression\ 346}# #{x\ 1096}#)) + (if (pair? #{x\ 1096}#) (begin - (let ((#{props\ 1121}# (source-properties #{x\ 1114}#))) - (if (pair? #{props\ 1121}#) #{props\ 1121}# #f))) + (let ((#{props\ 1103}# (source-properties #{x\ 1096}#))) + (if (pair? #{props\ 1103}#) #{props\ 1103}# #f))) #f)))) - (#{extend-env\ 376}# - (lambda (#{labels\ 1123}# #{bindings\ 1124}# #{r\ 1125}#) - (if (null? #{labels\ 1123}#) - #{r\ 1125}# - (#{extend-env\ 376}# - (cdr #{labels\ 1123}#) - (cdr #{bindings\ 1124}#) - (cons (cons (car #{labels\ 1123}#) - (car #{bindings\ 1124}#)) - #{r\ 1125}#))))) - (#{extend-var-env\ 378}# - (lambda (#{labels\ 1129}# #{vars\ 1130}# #{r\ 1131}#) - (if (null? #{labels\ 1129}#) - #{r\ 1131}# - (#{extend-var-env\ 378}# - (cdr #{labels\ 1129}#) - (cdr #{vars\ 1130}#) - (cons (cons (car #{labels\ 1129}#) - (cons (quote lexical) (car #{vars\ 1130}#))) - #{r\ 1131}#))))) - (#{macros-only-env\ 380}# - (lambda (#{r\ 1136}#) - (if (null? #{r\ 1136}#) + (#{extend-env\ 368}# + (lambda (#{labels\ 1105}# #{bindings\ 1106}# #{r\ 1107}#) + (if (null? #{labels\ 1105}#) + #{r\ 1107}# + (#{extend-env\ 368}# + (cdr #{labels\ 1105}#) + (cdr #{bindings\ 1106}#) + (cons (cons (car #{labels\ 1105}#) + (car #{bindings\ 1106}#)) + #{r\ 1107}#))))) + (#{extend-var-env\ 370}# + (lambda (#{labels\ 1111}# #{vars\ 1112}# #{r\ 1113}#) + (if (null? #{labels\ 1111}#) + #{r\ 1113}# + (#{extend-var-env\ 370}# + (cdr #{labels\ 1111}#) + (cdr #{vars\ 1112}#) + (cons (cons (car #{labels\ 1111}#) + (cons (quote lexical) (car #{vars\ 1112}#))) + #{r\ 1113}#))))) + (#{macros-only-env\ 372}# + (lambda (#{r\ 1118}#) + (if (null? #{r\ 1118}#) '() (begin - (let ((#{a\ 1139}# (car #{r\ 1136}#))) - (if (eq? (car (cdr #{a\ 1139}#)) (quote macro)) - (cons #{a\ 1139}# - (#{macros-only-env\ 380}# (cdr #{r\ 1136}#))) - (#{macros-only-env\ 380}# (cdr #{r\ 1136}#)))))))) - (#{lookup\ 382}# - (lambda (#{x\ 1140}# #{r\ 1141}# #{mod\ 1142}#) + (let ((#{a\ 1121}# (car #{r\ 1118}#))) + (if (eq? (car (cdr #{a\ 1121}#)) (quote macro)) + (cons #{a\ 1121}# + (#{macros-only-env\ 372}# (cdr #{r\ 1118}#))) + (#{macros-only-env\ 372}# (cdr #{r\ 1118}#)))))))) + (#{lookup\ 374}# + (lambda (#{x\ 1122}# #{r\ 1123}# #{mod\ 1124}#) (begin - (let ((#{t\ 1148}# (assq #{x\ 1140}# #{r\ 1141}#))) - (if #{t\ 1148}# - (cdr #{t\ 1148}#) - (if (symbol? #{x\ 1140}#) + (let ((#{t\ 1130}# (assq #{x\ 1122}# #{r\ 1123}#))) + (if #{t\ 1130}# + (cdr #{t\ 1130}#) + (if (symbol? #{x\ 1122}#) (begin - (let ((#{t\ 1154}# - (#{get-global-definition-hook\ 304}# - #{x\ 1140}# - #{mod\ 1142}#))) - (if #{t\ 1154}# #{t\ 1154}# (quote (global))))) + (let ((#{t\ 1136}# + (#{get-global-definition-hook\ 296}# + #{x\ 1122}# + #{mod\ 1124}#))) + (if #{t\ 1136}# #{t\ 1136}# (quote (global))))) '(displaced-lexical))))))) - (#{global-extend\ 384}# - (lambda (#{type\ 1159}# #{sym\ 1160}# #{val\ 1161}#) - (#{put-global-definition-hook\ 302}# - #{sym\ 1160}# - #{type\ 1159}# - #{val\ 1161}#))) - (#{nonsymbol-id?\ 386}# - (lambda (#{x\ 1165}#) - (if (#{syntax-object?\ 352}# #{x\ 1165}#) + (#{global-extend\ 376}# + (lambda (#{type\ 1141}# #{sym\ 1142}# #{val\ 1143}#) + (#{put-global-definition-hook\ 294}# + #{sym\ 1142}# + #{type\ 1141}# + #{val\ 1143}#))) + (#{nonsymbol-id?\ 378}# + (lambda (#{x\ 1147}#) + (if (#{syntax-object?\ 344}# #{x\ 1147}#) (symbol? - (#{syntax-object-expression\ 354}# #{x\ 1165}#)) + (#{syntax-object-expression\ 346}# #{x\ 1147}#)) #f))) - (#{id?\ 388}# - (lambda (#{x\ 1169}#) - (if (symbol? #{x\ 1169}#) + (#{id?\ 380}# + (lambda (#{x\ 1151}#) + (if (symbol? #{x\ 1151}#) #t - (if (#{syntax-object?\ 352}# #{x\ 1169}#) + (if (#{syntax-object?\ 344}# #{x\ 1151}#) (symbol? - (#{syntax-object-expression\ 354}# #{x\ 1169}#)) + (#{syntax-object-expression\ 346}# #{x\ 1151}#)) #f)))) - (#{id-sym-name&marks\ 391}# - (lambda (#{x\ 1176}# #{w\ 1177}#) - (if (#{syntax-object?\ 352}# #{x\ 1176}#) + (#{id-sym-name&marks\ 383}# + (lambda (#{x\ 1158}# #{w\ 1159}#) + (if (#{syntax-object?\ 344}# #{x\ 1158}#) (values - (#{syntax-object-expression\ 354}# #{x\ 1176}#) - (#{join-marks\ 441}# - (#{wrap-marks\ 395}# #{w\ 1177}#) - (#{wrap-marks\ 395}# - (#{syntax-object-wrap\ 356}# #{x\ 1176}#)))) + (#{syntax-object-expression\ 346}# #{x\ 1158}#) + (#{join-marks\ 433}# + (#{wrap-marks\ 387}# #{w\ 1159}#) + (#{wrap-marks\ 387}# + (#{syntax-object-wrap\ 348}# #{x\ 1158}#)))) (values - #{x\ 1176}# - (#{wrap-marks\ 395}# #{w\ 1177}#))))) - (#{gen-label\ 404}# + #{x\ 1158}# + (#{wrap-marks\ 387}# #{w\ 1159}#))))) + (#{gen-label\ 396}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels\ 406}# - (lambda (#{ls\ 1180}#) - (if (null? #{ls\ 1180}#) + (#{gen-labels\ 398}# + (lambda (#{ls\ 1162}#) + (if (null? #{ls\ 1162}#) '() - (cons (#{gen-label\ 404}#) - (#{gen-labels\ 406}# (cdr #{ls\ 1180}#)))))) - (#{make-ribcage\ 409}# - (lambda (#{symnames\ 1182}# - #{marks\ 1183}# - #{labels\ 1184}#) + (cons (#{gen-label\ 396}#) + (#{gen-labels\ 398}# (cdr #{ls\ 1162}#)))))) + (#{make-ribcage\ 401}# + (lambda (#{symnames\ 1164}# + #{marks\ 1165}# + #{labels\ 1166}#) (vector 'ribcage - #{symnames\ 1182}# - #{marks\ 1183}# - #{labels\ 1184}#))) - (#{ribcage-symnames\ 413}# - (lambda (#{x\ 1193}#) (vector-ref #{x\ 1193}# 1))) - (#{ribcage-marks\ 415}# - (lambda (#{x\ 1195}#) (vector-ref #{x\ 1195}# 2))) - (#{ribcage-labels\ 417}# - (lambda (#{x\ 1197}#) (vector-ref #{x\ 1197}# 3))) - (#{set-ribcage-symnames!\ 419}# - (lambda (#{x\ 1199}# #{update\ 1200}#) - (vector-set! #{x\ 1199}# 1 #{update\ 1200}#))) - (#{set-ribcage-marks!\ 421}# - (lambda (#{x\ 1203}# #{update\ 1204}#) - (vector-set! #{x\ 1203}# 2 #{update\ 1204}#))) - (#{set-ribcage-labels!\ 423}# - (lambda (#{x\ 1207}# #{update\ 1208}#) - (vector-set! #{x\ 1207}# 3 #{update\ 1208}#))) - (#{anti-mark\ 429}# - (lambda (#{w\ 1211}#) - (#{make-wrap\ 393}# - (cons #f (#{wrap-marks\ 395}# #{w\ 1211}#)) + #{symnames\ 1164}# + #{marks\ 1165}# + #{labels\ 1166}#))) + (#{ribcage-symnames\ 405}# + (lambda (#{x\ 1175}#) (vector-ref #{x\ 1175}# 1))) + (#{ribcage-marks\ 407}# + (lambda (#{x\ 1177}#) (vector-ref #{x\ 1177}# 2))) + (#{ribcage-labels\ 409}# + (lambda (#{x\ 1179}#) (vector-ref #{x\ 1179}# 3))) + (#{set-ribcage-symnames!\ 411}# + (lambda (#{x\ 1181}# #{update\ 1182}#) + (vector-set! #{x\ 1181}# 1 #{update\ 1182}#))) + (#{set-ribcage-marks!\ 413}# + (lambda (#{x\ 1185}# #{update\ 1186}#) + (vector-set! #{x\ 1185}# 2 #{update\ 1186}#))) + (#{set-ribcage-labels!\ 415}# + (lambda (#{x\ 1189}# #{update\ 1190}#) + (vector-set! #{x\ 1189}# 3 #{update\ 1190}#))) + (#{anti-mark\ 421}# + (lambda (#{w\ 1193}#) + (#{make-wrap\ 385}# + (cons #f (#{wrap-marks\ 387}# #{w\ 1193}#)) (cons 'shift - (#{wrap-subst\ 397}# #{w\ 1211}#))))) - (#{extend-ribcage!\ 433}# - (lambda (#{ribcage\ 1214}# #{id\ 1215}# #{label\ 1216}#) + (#{wrap-subst\ 389}# #{w\ 1193}#))))) + (#{extend-ribcage!\ 425}# + (lambda (#{ribcage\ 1196}# #{id\ 1197}# #{label\ 1198}#) (begin - (#{set-ribcage-symnames!\ 419}# - #{ribcage\ 1214}# - (cons (#{syntax-object-expression\ 354}# #{id\ 1215}#) - (#{ribcage-symnames\ 413}# #{ribcage\ 1214}#))) - (#{set-ribcage-marks!\ 421}# - #{ribcage\ 1214}# - (cons (#{wrap-marks\ 395}# - (#{syntax-object-wrap\ 356}# #{id\ 1215}#)) - (#{ribcage-marks\ 415}# #{ribcage\ 1214}#))) - (#{set-ribcage-labels!\ 423}# - #{ribcage\ 1214}# - (cons #{label\ 1216}# - (#{ribcage-labels\ 417}# #{ribcage\ 1214}#)))))) - (#{make-binding-wrap\ 435}# - (lambda (#{ids\ 1220}# #{labels\ 1221}# #{w\ 1222}#) - (if (null? #{ids\ 1220}#) - #{w\ 1222}# - (#{make-wrap\ 393}# - (#{wrap-marks\ 395}# #{w\ 1222}#) + (#{set-ribcage-symnames!\ 411}# + #{ribcage\ 1196}# + (cons (#{syntax-object-expression\ 346}# #{id\ 1197}#) + (#{ribcage-symnames\ 405}# #{ribcage\ 1196}#))) + (#{set-ribcage-marks!\ 413}# + #{ribcage\ 1196}# + (cons (#{wrap-marks\ 387}# + (#{syntax-object-wrap\ 348}# #{id\ 1197}#)) + (#{ribcage-marks\ 407}# #{ribcage\ 1196}#))) + (#{set-ribcage-labels!\ 415}# + #{ribcage\ 1196}# + (cons #{label\ 1198}# + (#{ribcage-labels\ 409}# #{ribcage\ 1196}#)))))) + (#{make-binding-wrap\ 427}# + (lambda (#{ids\ 1202}# #{labels\ 1203}# #{w\ 1204}#) + (if (null? #{ids\ 1202}#) + #{w\ 1204}# + (#{make-wrap\ 385}# + (#{wrap-marks\ 387}# #{w\ 1204}#) (cons (begin - (let ((#{labelvec\ 1227}# - (list->vector #{labels\ 1221}#))) + (let ((#{labelvec\ 1209}# + (list->vector #{labels\ 1203}#))) (begin - (let ((#{n\ 1229}# - (vector-length #{labelvec\ 1227}#))) + (let ((#{n\ 1211}# + (vector-length #{labelvec\ 1209}#))) (begin - (let ((#{symnamevec\ 1232}# - (make-vector #{n\ 1229}#)) - (#{marksvec\ 1233}# - (make-vector #{n\ 1229}#))) + (let ((#{symnamevec\ 1214}# + (make-vector #{n\ 1211}#)) + (#{marksvec\ 1215}# + (make-vector #{n\ 1211}#))) (begin (letrec* - ((#{f\ 1237}# - (lambda (#{ids\ 1238}# #{i\ 1239}#) - (if (not (null? #{ids\ 1238}#)) + ((#{f\ 1219}# + (lambda (#{ids\ 1220}# #{i\ 1221}#) + (if (not (null? #{ids\ 1220}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 391}# - (car #{ids\ 1238}#) - #{w\ 1222}#)) - (lambda (#{symname\ 1240}# - #{marks\ 1241}#) + (#{id-sym-name&marks\ 383}# + (car #{ids\ 1220}#) + #{w\ 1204}#)) + (lambda (#{symname\ 1222}# + #{marks\ 1223}#) (begin (vector-set! - #{symnamevec\ 1232}# - #{i\ 1239}# - #{symname\ 1240}#) + #{symnamevec\ 1214}# + #{i\ 1221}# + #{symname\ 1222}#) (vector-set! - #{marksvec\ 1233}# - #{i\ 1239}# - #{marks\ 1241}#) - (#{f\ 1237}# - (cdr #{ids\ 1238}#) - (#{fx+\ 289}# - #{i\ 1239}# + #{marksvec\ 1215}# + #{i\ 1221}# + #{marks\ 1223}#) + (#{f\ 1219}# + (cdr #{ids\ 1220}#) + (#{fx+\ 281}# + #{i\ 1221}# 1))))))))) - (begin (#{f\ 1237}# #{ids\ 1220}# 0))) - (#{make-ribcage\ 409}# - #{symnamevec\ 1232}# - #{marksvec\ 1233}# - #{labelvec\ 1227}#)))))))) - (#{wrap-subst\ 397}# #{w\ 1222}#)))))) - (#{smart-append\ 437}# - (lambda (#{m1\ 1244}# #{m2\ 1245}#) - (if (null? #{m2\ 1245}#) - #{m1\ 1244}# - (append #{m1\ 1244}# #{m2\ 1245}#)))) - (#{join-wraps\ 439}# - (lambda (#{w1\ 1248}# #{w2\ 1249}#) + (begin (#{f\ 1219}# #{ids\ 1202}# 0))) + (#{make-ribcage\ 401}# + #{symnamevec\ 1214}# + #{marksvec\ 1215}# + #{labelvec\ 1209}#)))))))) + (#{wrap-subst\ 389}# #{w\ 1204}#)))))) + (#{smart-append\ 429}# + (lambda (#{m1\ 1226}# #{m2\ 1227}#) + (if (null? #{m2\ 1227}#) + #{m1\ 1226}# + (append #{m1\ 1226}# #{m2\ 1227}#)))) + (#{join-wraps\ 431}# + (lambda (#{w1\ 1230}# #{w2\ 1231}#) (begin - (let ((#{m1\ 1254}# (#{wrap-marks\ 395}# #{w1\ 1248}#)) - (#{s1\ 1255}# (#{wrap-subst\ 397}# #{w1\ 1248}#))) - (if (null? #{m1\ 1254}#) - (if (null? #{s1\ 1255}#) - #{w2\ 1249}# - (#{make-wrap\ 393}# - (#{wrap-marks\ 395}# #{w2\ 1249}#) - (#{smart-append\ 437}# - #{s1\ 1255}# - (#{wrap-subst\ 397}# #{w2\ 1249}#)))) - (#{make-wrap\ 393}# - (#{smart-append\ 437}# - #{m1\ 1254}# - (#{wrap-marks\ 395}# #{w2\ 1249}#)) - (#{smart-append\ 437}# - #{s1\ 1255}# - (#{wrap-subst\ 397}# #{w2\ 1249}#)))))))) - (#{join-marks\ 441}# - (lambda (#{m1\ 1256}# #{m2\ 1257}#) - (#{smart-append\ 437}# #{m1\ 1256}# #{m2\ 1257}#))) - (#{same-marks?\ 443}# - (lambda (#{x\ 1260}# #{y\ 1261}#) + (let ((#{m1\ 1236}# (#{wrap-marks\ 387}# #{w1\ 1230}#)) + (#{s1\ 1237}# (#{wrap-subst\ 389}# #{w1\ 1230}#))) + (if (null? #{m1\ 1236}#) + (if (null? #{s1\ 1237}#) + #{w2\ 1231}# + (#{make-wrap\ 385}# + (#{wrap-marks\ 387}# #{w2\ 1231}#) + (#{smart-append\ 429}# + #{s1\ 1237}# + (#{wrap-subst\ 389}# #{w2\ 1231}#)))) + (#{make-wrap\ 385}# + (#{smart-append\ 429}# + #{m1\ 1236}# + (#{wrap-marks\ 387}# #{w2\ 1231}#)) + (#{smart-append\ 429}# + #{s1\ 1237}# + (#{wrap-subst\ 389}# #{w2\ 1231}#)))))))) + (#{join-marks\ 433}# + (lambda (#{m1\ 1238}# #{m2\ 1239}#) + (#{smart-append\ 429}# #{m1\ 1238}# #{m2\ 1239}#))) + (#{same-marks?\ 435}# + (lambda (#{x\ 1242}# #{y\ 1243}#) (begin - (let ((#{t\ 1266}# (eq? #{x\ 1260}# #{y\ 1261}#))) - (if #{t\ 1266}# - #{t\ 1266}# - (if (not (null? #{x\ 1260}#)) - (if (not (null? #{y\ 1261}#)) - (if (eq? (car #{x\ 1260}#) (car #{y\ 1261}#)) - (#{same-marks?\ 443}# - (cdr #{x\ 1260}#) - (cdr #{y\ 1261}#)) + (let ((#{t\ 1248}# (eq? #{x\ 1242}# #{y\ 1243}#))) + (if #{t\ 1248}# + #{t\ 1248}# + (if (not (null? #{x\ 1242}#)) + (if (not (null? #{y\ 1243}#)) + (if (eq? (car #{x\ 1242}#) (car #{y\ 1243}#)) + (#{same-marks?\ 435}# + (cdr #{x\ 1242}#) + (cdr #{y\ 1243}#)) #f) #f) #f)))))) - (#{id-var-name\ 445}# - (lambda (#{id\ 1272}# #{w\ 1273}#) + (#{id-var-name\ 437}# + (lambda (#{id\ 1254}# #{w\ 1255}#) (letrec* - ((#{search\ 1278}# - (lambda (#{sym\ 1294}# #{subst\ 1295}# #{marks\ 1296}#) - (if (null? #{subst\ 1295}#) - (values #f #{marks\ 1296}#) + ((#{search\ 1260}# + (lambda (#{sym\ 1276}# #{subst\ 1277}# #{marks\ 1278}#) + (if (null? #{subst\ 1277}#) + (values #f #{marks\ 1278}#) (begin - (let ((#{fst\ 1301}# (car #{subst\ 1295}#))) - (if (eq? #{fst\ 1301}# (quote shift)) - (#{search\ 1278}# - #{sym\ 1294}# - (cdr #{subst\ 1295}#) - (cdr #{marks\ 1296}#)) + (let ((#{fst\ 1283}# (car #{subst\ 1277}#))) + (if (eq? #{fst\ 1283}# (quote shift)) + (#{search\ 1260}# + #{sym\ 1276}# + (cdr #{subst\ 1277}#) + (cdr #{marks\ 1278}#)) (begin - (let ((#{symnames\ 1303}# - (#{ribcage-symnames\ 413}# - #{fst\ 1301}#))) - (if (vector? #{symnames\ 1303}#) - (#{search-vector-rib\ 1282}# - #{sym\ 1294}# - #{subst\ 1295}# - #{marks\ 1296}# - #{symnames\ 1303}# - #{fst\ 1301}#) - (#{search-list-rib\ 1280}# - #{sym\ 1294}# - #{subst\ 1295}# - #{marks\ 1296}# - #{symnames\ 1303}# - #{fst\ 1301}#)))))))))) - (#{search-list-rib\ 1280}# - (lambda (#{sym\ 1304}# - #{subst\ 1305}# - #{marks\ 1306}# - #{symnames\ 1307}# - #{ribcage\ 1308}#) + (let ((#{symnames\ 1285}# + (#{ribcage-symnames\ 405}# + #{fst\ 1283}#))) + (if (vector? #{symnames\ 1285}#) + (#{search-vector-rib\ 1264}# + #{sym\ 1276}# + #{subst\ 1277}# + #{marks\ 1278}# + #{symnames\ 1285}# + #{fst\ 1283}#) + (#{search-list-rib\ 1262}# + #{sym\ 1276}# + #{subst\ 1277}# + #{marks\ 1278}# + #{symnames\ 1285}# + #{fst\ 1283}#)))))))))) + (#{search-list-rib\ 1262}# + (lambda (#{sym\ 1286}# + #{subst\ 1287}# + #{marks\ 1288}# + #{symnames\ 1289}# + #{ribcage\ 1290}#) (letrec* - ((#{f\ 1317}# - (lambda (#{symnames\ 1318}# #{i\ 1319}#) - (if (null? #{symnames\ 1318}#) - (#{search\ 1278}# - #{sym\ 1304}# - (cdr #{subst\ 1305}#) - #{marks\ 1306}#) - (if (if (eq? (car #{symnames\ 1318}#) - #{sym\ 1304}#) - (#{same-marks?\ 443}# - #{marks\ 1306}# + ((#{f\ 1299}# + (lambda (#{symnames\ 1300}# #{i\ 1301}#) + (if (null? #{symnames\ 1300}#) + (#{search\ 1260}# + #{sym\ 1286}# + (cdr #{subst\ 1287}#) + #{marks\ 1288}#) + (if (if (eq? (car #{symnames\ 1300}#) + #{sym\ 1286}#) + (#{same-marks?\ 435}# + #{marks\ 1288}# (list-ref - (#{ribcage-marks\ 415}# - #{ribcage\ 1308}#) - #{i\ 1319}#)) + (#{ribcage-marks\ 407}# + #{ribcage\ 1290}#) + #{i\ 1301}#)) #f) (values (list-ref - (#{ribcage-labels\ 417}# #{ribcage\ 1308}#) - #{i\ 1319}#) - #{marks\ 1306}#) - (#{f\ 1317}# - (cdr #{symnames\ 1318}#) - (#{fx+\ 289}# #{i\ 1319}# 1))))))) - (begin (#{f\ 1317}# #{symnames\ 1307}# 0))))) - (#{search-vector-rib\ 1282}# - (lambda (#{sym\ 1327}# - #{subst\ 1328}# - #{marks\ 1329}# - #{symnames\ 1330}# - #{ribcage\ 1331}#) + (#{ribcage-labels\ 409}# #{ribcage\ 1290}#) + #{i\ 1301}#) + #{marks\ 1288}#) + (#{f\ 1299}# + (cdr #{symnames\ 1300}#) + (#{fx+\ 281}# #{i\ 1301}# 1))))))) + (begin (#{f\ 1299}# #{symnames\ 1289}# 0))))) + (#{search-vector-rib\ 1264}# + (lambda (#{sym\ 1309}# + #{subst\ 1310}# + #{marks\ 1311}# + #{symnames\ 1312}# + #{ribcage\ 1313}#) (begin - (let ((#{n\ 1338}# (vector-length #{symnames\ 1330}#))) + (let ((#{n\ 1320}# (vector-length #{symnames\ 1312}#))) (letrec* - ((#{f\ 1341}# - (lambda (#{i\ 1342}#) - (if (#{fx=\ 293}# #{i\ 1342}# #{n\ 1338}#) - (#{search\ 1278}# - #{sym\ 1327}# - (cdr #{subst\ 1328}#) - #{marks\ 1329}#) + ((#{f\ 1323}# + (lambda (#{i\ 1324}#) + (if (#{fx=\ 285}# #{i\ 1324}# #{n\ 1320}#) + (#{search\ 1260}# + #{sym\ 1309}# + (cdr #{subst\ 1310}#) + #{marks\ 1311}#) (if (if (eq? (vector-ref - #{symnames\ 1330}# - #{i\ 1342}#) - #{sym\ 1327}#) - (#{same-marks?\ 443}# - #{marks\ 1329}# + #{symnames\ 1312}# + #{i\ 1324}#) + #{sym\ 1309}#) + (#{same-marks?\ 435}# + #{marks\ 1311}# (vector-ref - (#{ribcage-marks\ 415}# - #{ribcage\ 1331}#) - #{i\ 1342}#)) + (#{ribcage-marks\ 407}# + #{ribcage\ 1313}#) + #{i\ 1324}#)) #f) (values (vector-ref - (#{ribcage-labels\ 417}# - #{ribcage\ 1331}#) - #{i\ 1342}#) - #{marks\ 1329}#) - (#{f\ 1341}# - (#{fx+\ 289}# #{i\ 1342}# 1))))))) - (begin (#{f\ 1341}# 0)))))))) + (#{ribcage-labels\ 409}# + #{ribcage\ 1313}#) + #{i\ 1324}#) + #{marks\ 1311}#) + (#{f\ 1323}# + (#{fx+\ 281}# #{i\ 1324}# 1))))))) + (begin (#{f\ 1323}# 0)))))))) (begin - (if (symbol? #{id\ 1272}#) + (if (symbol? #{id\ 1254}#) (begin - (let ((#{t\ 1352}# + (let ((#{t\ 1334}# (call-with-values (lambda () - (#{search\ 1278}# - #{id\ 1272}# - (#{wrap-subst\ 397}# #{w\ 1273}#) - (#{wrap-marks\ 395}# #{w\ 1273}#))) - (lambda (#{x\ 1354}# . #{ignore\ 1355}#) - #{x\ 1354}#)))) - (if #{t\ 1352}# #{t\ 1352}# #{id\ 1272}#))) - (if (#{syntax-object?\ 352}# #{id\ 1272}#) + (#{search\ 1260}# + #{id\ 1254}# + (#{wrap-subst\ 389}# #{w\ 1255}#) + (#{wrap-marks\ 387}# #{w\ 1255}#))) + (lambda (#{x\ 1336}# . #{ignore\ 1337}#) + #{x\ 1336}#)))) + (if #{t\ 1334}# #{t\ 1334}# #{id\ 1254}#))) + (if (#{syntax-object?\ 344}# #{id\ 1254}#) (begin - (let ((#{id\ 1363}# - (#{syntax-object-expression\ 354}# - #{id\ 1272}#)) - (#{w1\ 1364}# - (#{syntax-object-wrap\ 356}# #{id\ 1272}#))) + (let ((#{id\ 1345}# + (#{syntax-object-expression\ 346}# + #{id\ 1254}#)) + (#{w1\ 1346}# + (#{syntax-object-wrap\ 348}# #{id\ 1254}#))) (begin - (let ((#{marks\ 1366}# - (#{join-marks\ 441}# - (#{wrap-marks\ 395}# #{w\ 1273}#) - (#{wrap-marks\ 395}# #{w1\ 1364}#)))) + (let ((#{marks\ 1348}# + (#{join-marks\ 433}# + (#{wrap-marks\ 387}# #{w\ 1255}#) + (#{wrap-marks\ 387}# #{w1\ 1346}#)))) (call-with-values (lambda () - (#{search\ 1278}# - #{id\ 1363}# - (#{wrap-subst\ 397}# #{w\ 1273}#) - #{marks\ 1366}#)) - (lambda (#{new-id\ 1367}# #{marks\ 1368}#) + (#{search\ 1260}# + #{id\ 1345}# + (#{wrap-subst\ 389}# #{w\ 1255}#) + #{marks\ 1348}#)) + (lambda (#{new-id\ 1349}# #{marks\ 1350}#) (begin - (let ((#{t\ 1373}# #{new-id\ 1367}#)) - (if #{t\ 1373}# - #{t\ 1373}# + (let ((#{t\ 1355}# #{new-id\ 1349}#)) + (if #{t\ 1355}# + #{t\ 1355}# (begin - (let ((#{t\ 1376}# + (let ((#{t\ 1358}# (call-with-values (lambda () - (#{search\ 1278}# - #{id\ 1363}# - (#{wrap-subst\ 397}# - #{w1\ 1364}#) - #{marks\ 1368}#)) - (lambda (#{x\ 1378}# + (#{search\ 1260}# + #{id\ 1345}# + (#{wrap-subst\ 389}# + #{w1\ 1346}#) + #{marks\ 1350}#)) + (lambda (#{x\ 1360}# . - #{ignore\ 1379}#) - #{x\ 1378}#)))) - (if #{t\ 1376}# - #{t\ 1376}# - #{id\ 1363}#)))))))))))) + #{ignore\ 1361}#) + #{x\ 1360}#)))) + (if #{t\ 1358}# + #{t\ 1358}# + #{id\ 1345}#)))))))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1272}#))))))) - (#{free-id=?\ 447}# - (lambda (#{i\ 1384}# #{j\ 1385}#) + #{id\ 1254}#))))))) + (#{free-id=?\ 439}# + (lambda (#{i\ 1366}# #{j\ 1367}#) (if (eq? (begin - (let ((#{x\ 1391}# #{i\ 1384}#)) - (if (#{syntax-object?\ 352}# #{x\ 1391}#) - (#{syntax-object-expression\ 354}# #{x\ 1391}#) - #{x\ 1391}#))) + (let ((#{x\ 1373}# #{i\ 1366}#)) + (if (#{syntax-object?\ 344}# #{x\ 1373}#) + (#{syntax-object-expression\ 346}# #{x\ 1373}#) + #{x\ 1373}#))) (begin - (let ((#{x\ 1394}# #{j\ 1385}#)) - (if (#{syntax-object?\ 352}# #{x\ 1394}#) - (#{syntax-object-expression\ 354}# #{x\ 1394}#) - #{x\ 1394}#)))) - (eq? (#{id-var-name\ 445}# #{i\ 1384}# (quote (()))) - (#{id-var-name\ 445}# #{j\ 1385}# (quote (())))) + (let ((#{x\ 1376}# #{j\ 1367}#)) + (if (#{syntax-object?\ 344}# #{x\ 1376}#) + (#{syntax-object-expression\ 346}# #{x\ 1376}#) + #{x\ 1376}#)))) + (eq? (#{id-var-name\ 437}# #{i\ 1366}# (quote (()))) + (#{id-var-name\ 437}# #{j\ 1367}# (quote (())))) #f))) - (#{bound-id=?\ 449}# - (lambda (#{i\ 1398}# #{j\ 1399}#) - (if (if (#{syntax-object?\ 352}# #{i\ 1398}#) - (#{syntax-object?\ 352}# #{j\ 1399}#) + (#{bound-id=?\ 441}# + (lambda (#{i\ 1380}# #{j\ 1381}#) + (if (if (#{syntax-object?\ 344}# #{i\ 1380}#) + (#{syntax-object?\ 344}# #{j\ 1381}#) #f) - (if (eq? (#{syntax-object-expression\ 354}# #{i\ 1398}#) - (#{syntax-object-expression\ 354}# #{j\ 1399}#)) - (#{same-marks?\ 443}# - (#{wrap-marks\ 395}# - (#{syntax-object-wrap\ 356}# #{i\ 1398}#)) - (#{wrap-marks\ 395}# - (#{syntax-object-wrap\ 356}# #{j\ 1399}#))) + (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1380}#) + (#{syntax-object-expression\ 346}# #{j\ 1381}#)) + (#{same-marks?\ 435}# + (#{wrap-marks\ 387}# + (#{syntax-object-wrap\ 348}# #{i\ 1380}#)) + (#{wrap-marks\ 387}# + (#{syntax-object-wrap\ 348}# #{j\ 1381}#))) #f) - (eq? #{i\ 1398}# #{j\ 1399}#)))) - (#{valid-bound-ids?\ 451}# - (lambda (#{ids\ 1406}#) + (eq? #{i\ 1380}# #{j\ 1381}#)))) + (#{valid-bound-ids?\ 443}# + (lambda (#{ids\ 1388}#) (if (letrec* - ((#{all-ids?\ 1411}# - (lambda (#{ids\ 1412}#) + ((#{all-ids?\ 1393}# + (lambda (#{ids\ 1394}#) (begin - (let ((#{t\ 1415}# (null? #{ids\ 1412}#))) - (if #{t\ 1415}# - #{t\ 1415}# - (if (#{id?\ 388}# (car #{ids\ 1412}#)) - (#{all-ids?\ 1411}# (cdr #{ids\ 1412}#)) + (let ((#{t\ 1397}# (null? #{ids\ 1394}#))) + (if #{t\ 1397}# + #{t\ 1397}# + (if (#{id?\ 380}# (car #{ids\ 1394}#)) + (#{all-ids?\ 1393}# (cdr #{ids\ 1394}#)) #f))))))) - (begin (#{all-ids?\ 1411}# #{ids\ 1406}#))) - (#{distinct-bound-ids?\ 453}# #{ids\ 1406}#) + (begin (#{all-ids?\ 1393}# #{ids\ 1388}#))) + (#{distinct-bound-ids?\ 445}# #{ids\ 1388}#) #f))) - (#{distinct-bound-ids?\ 453}# - (lambda (#{ids\ 1420}#) + (#{distinct-bound-ids?\ 445}# + (lambda (#{ids\ 1402}#) (letrec* - ((#{distinct?\ 1424}# - (lambda (#{ids\ 1425}#) + ((#{distinct?\ 1406}# + (lambda (#{ids\ 1407}#) (begin - (let ((#{t\ 1428}# (null? #{ids\ 1425}#))) - (if #{t\ 1428}# - #{t\ 1428}# - (if (not (#{bound-id-member?\ 455}# - (car #{ids\ 1425}#) - (cdr #{ids\ 1425}#))) - (#{distinct?\ 1424}# (cdr #{ids\ 1425}#)) + (let ((#{t\ 1410}# (null? #{ids\ 1407}#))) + (if #{t\ 1410}# + #{t\ 1410}# + (if (not (#{bound-id-member?\ 447}# + (car #{ids\ 1407}#) + (cdr #{ids\ 1407}#))) + (#{distinct?\ 1406}# (cdr #{ids\ 1407}#)) #f))))))) - (begin (#{distinct?\ 1424}# #{ids\ 1420}#))))) - (#{bound-id-member?\ 455}# - (lambda (#{x\ 1432}# #{list\ 1433}#) - (if (not (null? #{list\ 1433}#)) + (begin (#{distinct?\ 1406}# #{ids\ 1402}#))))) + (#{bound-id-member?\ 447}# + (lambda (#{x\ 1414}# #{list\ 1415}#) + (if (not (null? #{list\ 1415}#)) (begin - (let ((#{t\ 1440}# - (#{bound-id=?\ 449}# - #{x\ 1432}# - (car #{list\ 1433}#)))) - (if #{t\ 1440}# - #{t\ 1440}# - (#{bound-id-member?\ 455}# - #{x\ 1432}# - (cdr #{list\ 1433}#))))) + (let ((#{t\ 1422}# + (#{bound-id=?\ 441}# + #{x\ 1414}# + (car #{list\ 1415}#)))) + (if #{t\ 1422}# + #{t\ 1422}# + (#{bound-id-member?\ 447}# + #{x\ 1414}# + (cdr #{list\ 1415}#))))) #f))) - (#{wrap\ 457}# - (lambda (#{x\ 1442}# #{w\ 1443}# #{defmod\ 1444}#) - (if (if (null? (#{wrap-marks\ 395}# #{w\ 1443}#)) - (null? (#{wrap-subst\ 397}# #{w\ 1443}#)) + (#{wrap\ 449}# + (lambda (#{x\ 1424}# #{w\ 1425}# #{defmod\ 1426}#) + (if (if (null? (#{wrap-marks\ 387}# #{w\ 1425}#)) + (null? (#{wrap-subst\ 389}# #{w\ 1425}#)) #f) - #{x\ 1442}# - (if (#{syntax-object?\ 352}# #{x\ 1442}#) - (#{make-syntax-object\ 350}# - (#{syntax-object-expression\ 354}# #{x\ 1442}#) - (#{join-wraps\ 439}# - #{w\ 1443}# - (#{syntax-object-wrap\ 356}# #{x\ 1442}#)) - (#{syntax-object-module\ 358}# #{x\ 1442}#)) - (if (null? #{x\ 1442}#) - #{x\ 1442}# - (#{make-syntax-object\ 350}# - #{x\ 1442}# - #{w\ 1443}# - #{defmod\ 1444}#)))))) - (#{source-wrap\ 459}# - (lambda (#{x\ 1457}# - #{w\ 1458}# - #{s\ 1459}# - #{defmod\ 1460}#) - (#{wrap\ 457}# - (#{decorate-source\ 306}# - #{x\ 1457}# - #{s\ 1459}#) - #{w\ 1458}# - #{defmod\ 1460}#))) - (#{chi-sequence\ 461}# - (lambda (#{body\ 1465}# - #{r\ 1466}# - #{w\ 1467}# - #{s\ 1468}# - #{mod\ 1469}#) - (#{build-sequence\ 340}# - #{s\ 1468}# + #{x\ 1424}# + (if (#{syntax-object?\ 344}# #{x\ 1424}#) + (#{make-syntax-object\ 342}# + (#{syntax-object-expression\ 346}# #{x\ 1424}#) + (#{join-wraps\ 431}# + #{w\ 1425}# + (#{syntax-object-wrap\ 348}# #{x\ 1424}#)) + (#{syntax-object-module\ 350}# #{x\ 1424}#)) + (if (null? #{x\ 1424}#) + #{x\ 1424}# + (#{make-syntax-object\ 342}# + #{x\ 1424}# + #{w\ 1425}# + #{defmod\ 1426}#)))))) + (#{source-wrap\ 451}# + (lambda (#{x\ 1439}# + #{w\ 1440}# + #{s\ 1441}# + #{defmod\ 1442}#) + (#{wrap\ 449}# + (#{decorate-source\ 298}# + #{x\ 1439}# + #{s\ 1441}#) + #{w\ 1440}# + #{defmod\ 1442}#))) + (#{chi-sequence\ 453}# + (lambda (#{body\ 1447}# + #{r\ 1448}# + #{w\ 1449}# + #{s\ 1450}# + #{mod\ 1451}#) + (#{build-sequence\ 332}# + #{s\ 1450}# (letrec* - ((#{dobody\ 1480}# - (lambda (#{body\ 1481}# - #{r\ 1482}# - #{w\ 1483}# - #{mod\ 1484}#) - (if (null? #{body\ 1481}#) + ((#{dobody\ 1462}# + (lambda (#{body\ 1463}# + #{r\ 1464}# + #{w\ 1465}# + #{mod\ 1466}#) + (if (null? #{body\ 1463}#) '() (begin - (let ((#{first\ 1486}# - (#{chi\ 473}# - (car #{body\ 1481}#) - #{r\ 1482}# - #{w\ 1483}# - #{mod\ 1484}#))) - (cons #{first\ 1486}# - (#{dobody\ 1480}# - (cdr #{body\ 1481}#) - #{r\ 1482}# - #{w\ 1483}# - #{mod\ 1484}#)))))))) + (let ((#{first\ 1468}# + (#{chi\ 465}# + (car #{body\ 1463}#) + #{r\ 1464}# + #{w\ 1465}# + #{mod\ 1466}#))) + (cons #{first\ 1468}# + (#{dobody\ 1462}# + (cdr #{body\ 1463}#) + #{r\ 1464}# + #{w\ 1465}# + #{mod\ 1466}#)))))))) (begin - (#{dobody\ 1480}# - #{body\ 1465}# - #{r\ 1466}# - #{w\ 1467}# - #{mod\ 1469}#)))))) - (#{chi-top-sequence\ 463}# - (lambda (#{body\ 1487}# - #{r\ 1488}# - #{w\ 1489}# - #{s\ 1490}# - #{m\ 1491}# - #{esew\ 1492}# - #{mod\ 1493}#) - (#{build-sequence\ 340}# - #{s\ 1490}# + (#{dobody\ 1462}# + #{body\ 1447}# + #{r\ 1448}# + #{w\ 1449}# + #{mod\ 1451}#)))))) + (#{chi-top-sequence\ 455}# + (lambda (#{body\ 1469}# + #{r\ 1470}# + #{w\ 1471}# + #{s\ 1472}# + #{m\ 1473}# + #{esew\ 1474}# + #{mod\ 1475}#) + (#{build-sequence\ 332}# + #{s\ 1472}# (letrec* - ((#{dobody\ 1509}# - (lambda (#{body\ 1510}# - #{r\ 1511}# - #{w\ 1512}# - #{m\ 1513}# - #{esew\ 1514}# - #{mod\ 1515}# - #{out\ 1516}#) - (if (null? #{body\ 1510}#) - (reverse #{out\ 1516}#) - (#{dobody\ 1509}# - (cdr #{body\ 1510}#) - #{r\ 1511}# - #{w\ 1512}# - #{m\ 1513}# - #{esew\ 1514}# - #{mod\ 1515}# - (cons (#{chi-top\ 471}# - (car #{body\ 1510}#) - #{r\ 1511}# - #{w\ 1512}# - #{m\ 1513}# - #{esew\ 1514}# - #{mod\ 1515}#) - #{out\ 1516}#)))))) + ((#{dobody\ 1491}# + (lambda (#{body\ 1492}# + #{r\ 1493}# + #{w\ 1494}# + #{m\ 1495}# + #{esew\ 1496}# + #{mod\ 1497}# + #{out\ 1498}#) + (if (null? #{body\ 1492}#) + (reverse #{out\ 1498}#) + (#{dobody\ 1491}# + (cdr #{body\ 1492}#) + #{r\ 1493}# + #{w\ 1494}# + #{m\ 1495}# + #{esew\ 1496}# + #{mod\ 1497}# + (cons (#{chi-top\ 463}# + (car #{body\ 1492}#) + #{r\ 1493}# + #{w\ 1494}# + #{m\ 1495}# + #{esew\ 1496}# + #{mod\ 1497}#) + #{out\ 1498}#)))))) (begin - (#{dobody\ 1509}# - #{body\ 1487}# - #{r\ 1488}# - #{w\ 1489}# - #{m\ 1491}# - #{esew\ 1492}# - #{mod\ 1493}# + (#{dobody\ 1491}# + #{body\ 1469}# + #{r\ 1470}# + #{w\ 1471}# + #{m\ 1473}# + #{esew\ 1474}# + #{mod\ 1475}# '())))))) - (#{chi-install-global\ 465}# - (lambda (#{name\ 1517}# #{e\ 1518}#) - (#{build-global-definition\ 328}# + (#{chi-install-global\ 457}# + (lambda (#{name\ 1499}# #{e\ 1500}#) + (#{build-global-definition\ 320}# #f - #{name\ 1517}# - (#{build-application\ 312}# + #{name\ 1499}# + (#{build-application\ 304}# #f - (#{build-primref\ 336}# + (#{build-primref\ 328}# #f 'make-syntax-transformer) - (list (#{build-data\ 338}# #f #{name\ 1517}#) - (#{build-data\ 338}# #f (quote macro)) - #{e\ 1518}#))))) - (#{chi-when-list\ 467}# - (lambda (#{e\ 1526}# #{when-list\ 1527}# #{w\ 1528}#) + (list (#{build-data\ 330}# #f #{name\ 1499}#) + (#{build-data\ 330}# #f (quote macro)) + #{e\ 1500}#))))) + (#{chi-when-list\ 459}# + (lambda (#{e\ 1508}# #{when-list\ 1509}# #{w\ 1510}#) (letrec* - ((#{f\ 1535}# - (lambda (#{when-list\ 1536}# #{situations\ 1537}#) - (if (null? #{when-list\ 1536}#) - #{situations\ 1537}# - (#{f\ 1535}# - (cdr #{when-list\ 1536}#) + ((#{f\ 1517}# + (lambda (#{when-list\ 1518}# #{situations\ 1519}#) + (if (null? #{when-list\ 1518}#) + #{situations\ 1519}# + (#{f\ 1517}# + (cdr #{when-list\ 1518}#) (cons (begin - (let ((#{x\ 1539}# (car #{when-list\ 1536}#))) - (if (#{free-id=?\ 447}# - #{x\ 1539}# + (let ((#{x\ 1521}# (car #{when-list\ 1518}#))) + (if (#{free-id=?\ 439}# + #{x\ 1521}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1538")) + #(ribcage #(x) #((top)) #("i1520")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1532" "i1533" "i1534")) + #("i1514" "i1515" "i1516")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1529" "i1530" "i1531")) + #("i1511" "i1512" "i1513")) #(ribcage (lambda-var-list gen-var @@ -1228,6 +1228,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -1494,11 +1495,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -1531,50 +1530,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -1604,20 +1603,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -1631,7 +1630,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -1641,8 +1644,8 @@ ("i39" "i38" "i37" "i35"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 447}# - #{x\ 1539}# + (if (#{free-id=?\ 439}# + #{x\ 1521}# '#(syntax-object load ((top) @@ -1652,17 +1655,17 @@ #(ribcage #(x) #((top)) - #("i1538")) + #("i1520")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1532" "i1533" "i1534")) + #("i1514" "i1515" "i1516")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1529" "i1530" "i1531")) + #("i1511" "i1512" "i1513")) #(ribcage (lambda-var-list gen-var @@ -1671,6 +1674,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -1937,11 +1941,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -1974,50 +1976,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -2047,20 +2049,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -2074,7 +2076,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -2084,8 +2090,8 @@ ("i39" "i38" "i37" "i35"))) (hygiene guile))) 'load - (if (#{free-id=?\ 447}# - #{x\ 1539}# + (if (#{free-id=?\ 439}# + #{x\ 1521}# '#(syntax-object eval ((top) @@ -2095,17 +2101,17 @@ #(ribcage #(x) #((top)) - #("i1538")) + #("i1520")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1532" "i1533" "i1534")) + #("i1514" "i1515" "i1516")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1529" "i1530" "i1531")) + #("i1511" "i1512" "i1513")) #(ribcage (lambda-var-list gen-var @@ -2114,6 +2120,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -2380,11 +2387,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -2417,50 +2422,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -2490,20 +2495,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -2517,7 +2522,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -2527,8 +2536,8 @@ ("i39" "i38" "i37" "i35"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 447}# - #{x\ 1539}# + (if (#{free-id=?\ 439}# + #{x\ 1521}# '#(syntax-object expand ((top) @@ -2538,17 +2547,17 @@ #(ribcage #(x) #((top)) - #("i1538")) + #("i1520")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1532" "i1533" "i1534")) + #("i1514" "i1515" "i1516")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1529" "i1530" "i1531")) + #("i1511" "i1512" "i1513")) #(ribcage (lambda-var-list gen-var @@ -2557,6 +2566,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -2823,11 +2833,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -2860,50 +2868,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -2933,20 +2941,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -2960,7 +2968,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -2973,272 +2985,265 @@ (syntax-violation 'eval-when "invalid situation" - #{e\ 1526}# - (#{wrap\ 457}# - #{x\ 1539}# - #{w\ 1528}# + #{e\ 1508}# + (#{wrap\ 449}# + #{x\ 1521}# + #{w\ 1510}# #f)))))))) - #{situations\ 1537}#)))))) + #{situations\ 1519}#)))))) (begin - (#{f\ 1535}# #{when-list\ 1527}# (quote ())))))) - (#{syntax-type\ 469}# - (lambda (#{e\ 1549}# - #{r\ 1550}# - #{w\ 1551}# - #{s\ 1552}# - #{rib\ 1553}# - #{mod\ 1554}# - #{for-car?\ 1555}#) - (if (symbol? #{e\ 1549}#) + (#{f\ 1517}# #{when-list\ 1509}# (quote ())))))) + (#{syntax-type\ 461}# + (lambda (#{e\ 1531}# + #{r\ 1532}# + #{w\ 1533}# + #{s\ 1534}# + #{rib\ 1535}# + #{mod\ 1536}# + #{for-car?\ 1537}#) + (if (symbol? #{e\ 1531}#) (begin - (let ((#{n\ 1567}# - (#{id-var-name\ 445}# #{e\ 1549}# #{w\ 1551}#))) + (let ((#{n\ 1549}# + (#{id-var-name\ 437}# #{e\ 1531}# #{w\ 1533}#))) (begin - (let ((#{b\ 1569}# - (#{lookup\ 382}# - #{n\ 1567}# - #{r\ 1550}# - #{mod\ 1554}#))) + (let ((#{b\ 1551}# + (#{lookup\ 374}# + #{n\ 1549}# + #{r\ 1532}# + #{mod\ 1536}#))) (begin - (let ((#{type\ 1571}# - (#{binding-type\ 371}# #{b\ 1569}#))) - (if (eqv? #{type\ 1571}# (quote lexical)) + (let ((#{type\ 1553}# + (#{binding-type\ 363}# #{b\ 1551}#))) + (if (eqv? #{type\ 1553}# (quote lexical)) (values - #{type\ 1571}# - (#{binding-value\ 373}# #{b\ 1569}#) - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{type\ 1571}# (quote global)) + #{type\ 1553}# + (#{binding-value\ 365}# #{b\ 1551}#) + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{type\ 1553}# (quote global)) (values - #{type\ 1571}# - #{n\ 1567}# - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{type\ 1571}# (quote macro)) - (if #{for-car?\ 1555}# + #{type\ 1553}# + #{n\ 1549}# + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{type\ 1553}# (quote macro)) + (if #{for-car?\ 1537}# (values - #{type\ 1571}# - (#{binding-value\ 373}# #{b\ 1569}#) - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (#{syntax-type\ 469}# - (#{chi-macro\ 479}# - (#{binding-value\ 373}# #{b\ 1569}#) - #{e\ 1549}# - #{r\ 1550}# - #{w\ 1551}# - #{s\ 1552}# - #{rib\ 1553}# - #{mod\ 1554}#) - #{r\ 1550}# + #{type\ 1553}# + (#{binding-value\ 365}# #{b\ 1551}#) + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (#{syntax-type\ 461}# + (#{chi-macro\ 471}# + (#{binding-value\ 365}# #{b\ 1551}#) + #{e\ 1531}# + #{r\ 1532}# + #{w\ 1533}# + #{s\ 1534}# + #{rib\ 1535}# + #{mod\ 1536}#) + #{r\ 1532}# '(()) - #{s\ 1552}# - #{rib\ 1553}# - #{mod\ 1554}# + #{s\ 1534}# + #{rib\ 1535}# + #{mod\ 1536}# #f)) (values - #{type\ 1571}# - (#{binding-value\ 373}# #{b\ 1569}#) - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#)))))))))) - (if (pair? #{e\ 1549}#) + #{type\ 1553}# + (#{binding-value\ 365}# #{b\ 1551}#) + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#)))))))))) + (if (pair? #{e\ 1531}#) (begin - (let ((#{first\ 1580}# (car #{e\ 1549}#))) + (let ((#{first\ 1562}# (car #{e\ 1531}#))) (call-with-values (lambda () - (#{syntax-type\ 469}# - #{first\ 1580}# - #{r\ 1550}# - #{w\ 1551}# - #{s\ 1552}# - #{rib\ 1553}# - #{mod\ 1554}# + (#{syntax-type\ 461}# + #{first\ 1562}# + #{r\ 1532}# + #{w\ 1533}# + #{s\ 1534}# + #{rib\ 1535}# + #{mod\ 1536}# #t)) - (lambda (#{ftype\ 1581}# - #{fval\ 1582}# - #{fe\ 1583}# - #{fw\ 1584}# - #{fs\ 1585}# - #{fmod\ 1586}#) - (if (eqv? #{ftype\ 1581}# (quote lexical)) + (lambda (#{ftype\ 1563}# + #{fval\ 1564}# + #{fe\ 1565}# + #{fw\ 1566}# + #{fs\ 1567}# + #{fmod\ 1568}#) + (if (eqv? #{ftype\ 1563}# (quote lexical)) (values 'lexical-call - #{fval\ 1582}# - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{ftype\ 1581}# (quote global)) + #{fval\ 1564}# + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{ftype\ 1563}# (quote global)) (values 'global-call - (#{make-syntax-object\ 350}# - #{fval\ 1582}# - #{w\ 1551}# - #{fmod\ 1586}#) - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{ftype\ 1581}# (quote macro)) - (#{syntax-type\ 469}# - (#{chi-macro\ 479}# - #{fval\ 1582}# - #{e\ 1549}# - #{r\ 1550}# - #{w\ 1551}# - #{s\ 1552}# - #{rib\ 1553}# - #{mod\ 1554}#) - #{r\ 1550}# + (#{make-syntax-object\ 342}# + #{fval\ 1564}# + #{w\ 1533}# + #{fmod\ 1568}#) + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{ftype\ 1563}# (quote macro)) + (#{syntax-type\ 461}# + (#{chi-macro\ 471}# + #{fval\ 1564}# + #{e\ 1531}# + #{r\ 1532}# + #{w\ 1533}# + #{s\ 1534}# + #{rib\ 1535}# + #{mod\ 1536}#) + #{r\ 1532}# '(()) - #{s\ 1552}# - #{rib\ 1553}# - #{mod\ 1554}# - #{for-car?\ 1555}#) - (if (eqv? #{ftype\ 1581}# (quote module-ref)) + #{s\ 1534}# + #{rib\ 1535}# + #{mod\ 1536}# + #{for-car?\ 1537}#) + (if (eqv? #{ftype\ 1563}# (quote module-ref)) (call-with-values (lambda () - (#{fval\ 1582}# - #{e\ 1549}# - #{r\ 1550}# - #{w\ 1551}#)) - (lambda (#{e\ 1598}# - #{r\ 1599}# - #{w\ 1600}# - #{s\ 1601}# - #{mod\ 1602}#) - (#{syntax-type\ 469}# - #{e\ 1598}# - #{r\ 1599}# - #{w\ 1600}# - #{s\ 1601}# - #{rib\ 1553}# - #{mod\ 1602}# - #{for-car?\ 1555}#))) - (if (eqv? #{ftype\ 1581}# (quote core)) + (#{fval\ 1564}# + #{e\ 1531}# + #{r\ 1532}# + #{w\ 1533}#)) + (lambda (#{e\ 1580}# + #{r\ 1581}# + #{w\ 1582}# + #{s\ 1583}# + #{mod\ 1584}#) + (#{syntax-type\ 461}# + #{e\ 1580}# + #{r\ 1581}# + #{w\ 1582}# + #{s\ 1583}# + #{rib\ 1535}# + #{mod\ 1584}# + #{for-car?\ 1537}#))) + (if (eqv? #{ftype\ 1563}# (quote core)) (values 'core-form - #{fval\ 1582}# - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{ftype\ 1581}# + #{fval\ 1564}# + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{ftype\ 1563}# 'local-syntax) (values 'local-syntax-form - #{fval\ 1582}# - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{ftype\ 1581}# (quote begin)) + #{fval\ 1564}# + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{ftype\ 1563}# (quote begin)) (values 'begin-form #f - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{ftype\ 1581}# + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{ftype\ 1563}# 'eval-when) (values 'eval-when-form #f - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) - (if (eqv? #{ftype\ 1581}# + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) + (if (eqv? #{ftype\ 1563}# 'define) - (let ((#{tmp\ 1613}# #{e\ 1549}#)) - (let ((#{tmp\ 1614}# + (let ((#{tmp\ 1595}# #{e\ 1531}#)) + (let ((#{tmp\ 1596}# ($sc-dispatch - #{tmp\ 1613}# - '(any any any)))) - (if (if #{tmp\ 1614}# + #{tmp\ 1595}# + '(_ any any)))) + (if (if #{tmp\ 1596}# (@apply - (lambda (#{_\ 1618}# - #{name\ 1619}# - #{val\ 1620}#) - (#{id?\ 388}# - #{name\ 1619}#)) - #{tmp\ 1614}#) + (lambda (#{name\ 1599}# + #{val\ 1600}#) + (#{id?\ 380}# + #{name\ 1599}#)) + #{tmp\ 1596}#) #f) (@apply - (lambda (#{_\ 1624}# - #{name\ 1625}# - #{val\ 1626}#) + (lambda (#{name\ 1603}# + #{val\ 1604}#) (values 'define-form - #{name\ 1625}# - #{val\ 1626}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#)) - #{tmp\ 1614}#) - (let ((#{tmp\ 1627}# + #{name\ 1603}# + #{val\ 1604}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#)) + #{tmp\ 1596}#) + (let ((#{tmp\ 1605}# ($sc-dispatch - #{tmp\ 1613}# - '(any (any . any) - any - . - each-any)))) - (if (if #{tmp\ 1627}# + #{tmp\ 1595}# + '(_ (any . any) + any + . + each-any)))) + (if (if #{tmp\ 1605}# (@apply - (lambda (#{_\ 1633}# - #{name\ 1634}# - #{args\ 1635}# - #{e1\ 1636}# - #{e2\ 1637}#) - (if (#{id?\ 388}# - #{name\ 1634}#) - (#{valid-bound-ids?\ 451}# - (#{lambda-var-list\ 503}# - #{args\ 1635}#)) + (lambda (#{name\ 1610}# + #{args\ 1611}# + #{e1\ 1612}# + #{e2\ 1613}#) + (if (#{id?\ 380}# + #{name\ 1610}#) + (#{valid-bound-ids?\ 443}# + (#{lambda-var-list\ 497}# + #{args\ 1611}#)) #f)) - #{tmp\ 1627}#) + #{tmp\ 1605}#) #f) (@apply - (lambda (#{_\ 1645}# - #{name\ 1646}# - #{args\ 1647}# - #{e1\ 1648}# - #{e2\ 1649}#) + (lambda (#{name\ 1620}# + #{args\ 1621}# + #{e1\ 1622}# + #{e2\ 1623}#) (values 'define-form - (#{wrap\ 457}# - #{name\ 1646}# - #{w\ 1551}# - #{mod\ 1554}#) - (#{decorate-source\ 306}# + (#{wrap\ 449}# + #{name\ 1620}# + #{w\ 1533}# + #{mod\ 1536}#) + (#{decorate-source\ 298}# (cons '#(syntax-object lambda ((top) #(ribcage - #(_ - name + #(name args e1 e2) #((top) - (top) (top) (top) (top)) - #("i1640" - "i1641" - "i1642" - "i1643" - "i1644")) + #("i1616" + "i1617" + "i1618" + "i1619")) #(ribcage () () @@ -3260,12 +3265,12 @@ (top) (top) (top)) - #("i1587" - "i1588" - "i1589" - "i1590" - "i1591" - "i1592")) + #("i1569" + "i1570" + "i1571" + "i1572" + "i1573" + "i1574")) #(ribcage () () @@ -3273,7 +3278,7 @@ #(ribcage #(first) #((top)) - #("i1579")) + #("i1561")) #(ribcage () () @@ -3301,13 +3306,13 @@ (top) (top) (top)) - #("i1556" - "i1557" - "i1558" - "i1559" - "i1560" - "i1561" - "i1562")) + #("i1538" + "i1539" + "i1540" + "i1541" + "i1542" + "i1543" + "i1544")) #(ribcage (lambda-var-list gen-var @@ -3316,6 +3321,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -3582,11 +3588,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -3619,50 +3623,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -3692,20 +3696,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -3719,7 +3723,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -3735,47 +3743,43 @@ "i35"))) (hygiene guile)) - (#{wrap\ 457}# - (cons #{args\ 1647}# - (cons #{e1\ 1648}# - #{e2\ 1649}#)) - #{w\ 1551}# - #{mod\ 1554}#)) - #{s\ 1552}#) + (#{wrap\ 449}# + (cons #{args\ 1621}# + (cons #{e1\ 1622}# + #{e2\ 1623}#)) + #{w\ 1533}# + #{mod\ 1536}#)) + #{s\ 1534}#) '(()) - #{s\ 1552}# - #{mod\ 1554}#)) - #{tmp\ 1627}#) - (let ((#{tmp\ 1652}# + #{s\ 1534}# + #{mod\ 1536}#)) + #{tmp\ 1605}#) + (let ((#{tmp\ 1626}# ($sc-dispatch - #{tmp\ 1613}# - '(any any)))) - (if (if #{tmp\ 1652}# + #{tmp\ 1595}# + '(_ any)))) + (if (if #{tmp\ 1626}# (@apply - (lambda (#{_\ 1655}# - #{name\ 1656}#) - (#{id?\ 388}# - #{name\ 1656}#)) - #{tmp\ 1652}#) + (lambda (#{name\ 1628}#) + (#{id?\ 380}# + #{name\ 1628}#)) + #{tmp\ 1626}#) #f) (@apply - (lambda (#{_\ 1659}# - #{name\ 1660}#) + (lambda (#{name\ 1630}#) (values 'define-form - (#{wrap\ 457}# - #{name\ 1660}# - #{w\ 1551}# - #{mod\ 1554}#) + (#{wrap\ 449}# + #{name\ 1630}# + #{w\ 1533}# + #{mod\ 1536}#) '(#(syntax-object if ((top) #(ribcage - #(_ name) - #((top) - (top)) - #("i1657" - "i1658")) + #(name) + #((top)) + #("i1629")) #(ribcage () () @@ -3797,12 +3801,12 @@ (top) (top) (top)) - #("i1587" - "i1588" - "i1589" - "i1590" - "i1591" - "i1592")) + #("i1569" + "i1570" + "i1571" + "i1572" + "i1573" + "i1574")) #(ribcage () () @@ -3810,7 +3814,7 @@ #(ribcage #(first) #((top)) - #("i1579")) + #("i1561")) #(ribcage () () @@ -3838,13 +3842,13 @@ (top) (top) (top)) - #("i1556" - "i1557" - "i1558" - "i1559" - "i1560" - "i1561" - "i1562")) + #("i1538" + "i1539" + "i1540" + "i1541" + "i1542" + "i1543" + "i1544")) #(ribcage (lambda-var-list gen-var @@ -3853,6 +3857,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -4119,11 +4124,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -4156,50 +4159,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -4229,20 +4232,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -4256,7 +4259,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -4276,11 +4283,9 @@ #f ((top) #(ribcage - #(_ name) - #((top) - (top)) - #("i1657" - "i1658")) + #(name) + #((top)) + #("i1629")) #(ribcage () () @@ -4302,12 +4307,12 @@ (top) (top) (top)) - #("i1587" - "i1588" - "i1589" - "i1590" - "i1591" - "i1592")) + #("i1569" + "i1570" + "i1571" + "i1572" + "i1573" + "i1574")) #(ribcage () () @@ -4315,7 +4320,7 @@ #(ribcage #(first) #((top)) - #("i1579")) + #("i1561")) #(ribcage () () @@ -4343,13 +4348,13 @@ (top) (top) (top)) - #("i1556" - "i1557" - "i1558" - "i1559" - "i1560" - "i1561" - "i1562")) + #("i1538" + "i1539" + "i1540" + "i1541" + "i1542" + "i1543" + "i1544")) #(ribcage (lambda-var-list gen-var @@ -4358,6 +4363,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -4624,11 +4630,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -4661,50 +4665,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -4734,20 +4738,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -4761,7 +4765,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -4781,11 +4789,9 @@ #f ((top) #(ribcage - #(_ name) - #((top) - (top)) - #("i1657" - "i1658")) + #(name) + #((top)) + #("i1629")) #(ribcage () () @@ -4807,12 +4813,12 @@ (top) (top) (top)) - #("i1587" - "i1588" - "i1589" - "i1590" - "i1591" - "i1592")) + #("i1569" + "i1570" + "i1571" + "i1572" + "i1573" + "i1574")) #(ribcage () () @@ -4820,7 +4826,7 @@ #(ribcage #(first) #((top)) - #("i1579")) + #("i1561")) #(ribcage () () @@ -4848,13 +4854,13 @@ (top) (top) (top)) - #("i1556" - "i1557" - "i1558" - "i1559" - "i1560" - "i1561" - "i1562")) + #("i1538" + "i1539" + "i1540" + "i1541" + "i1542" + "i1543" + "i1544")) #(ribcage (lambda-var-list gen-var @@ -4863,6 +4869,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -5129,11 +5136,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -5166,50 +5171,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -5239,20 +5244,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -5266,7 +5271,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -5283,1226 +5292,1212 @@ (hygiene guile))) '(()) - #{s\ 1552}# - #{mod\ 1554}#)) - #{tmp\ 1652}#) + #{s\ 1534}# + #{mod\ 1536}#)) + #{tmp\ 1626}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1613}#)))))))) - (if (eqv? #{ftype\ 1581}# + #{tmp\ 1595}#)))))))) + (if (eqv? #{ftype\ 1563}# 'define-syntax) - (let ((#{tmp\ 1663}# #{e\ 1549}#)) - (let ((#{tmp\ 1664}# + (let ((#{tmp\ 1633}# #{e\ 1531}#)) + (let ((#{tmp\ 1634}# ($sc-dispatch - #{tmp\ 1663}# - '(any any any)))) - (if (if #{tmp\ 1664}# + #{tmp\ 1633}# + '(_ any any)))) + (if (if #{tmp\ 1634}# (@apply - (lambda (#{_\ 1668}# - #{name\ 1669}# - #{val\ 1670}#) - (#{id?\ 388}# - #{name\ 1669}#)) - #{tmp\ 1664}#) + (lambda (#{name\ 1637}# + #{val\ 1638}#) + (#{id?\ 380}# + #{name\ 1637}#)) + #{tmp\ 1634}#) #f) (@apply - (lambda (#{_\ 1674}# - #{name\ 1675}# - #{val\ 1676}#) + (lambda (#{name\ 1641}# + #{val\ 1642}#) (values 'define-syntax-form - #{name\ 1675}# - #{val\ 1676}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#)) - #{tmp\ 1664}#) + #{name\ 1641}# + #{val\ 1642}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#)) + #{tmp\ 1634}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1663}#)))) + #{tmp\ 1633}#)))) (values 'call #f - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#))))))))))))))) - (if (#{syntax-object?\ 352}# #{e\ 1549}#) - (#{syntax-type\ 469}# - (#{syntax-object-expression\ 354}# #{e\ 1549}#) - #{r\ 1550}# - (#{join-wraps\ 439}# - #{w\ 1551}# - (#{syntax-object-wrap\ 356}# #{e\ 1549}#)) + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#))))))))))))))) + (if (#{syntax-object?\ 344}# #{e\ 1531}#) + (#{syntax-type\ 461}# + (#{syntax-object-expression\ 346}# #{e\ 1531}#) + #{r\ 1532}# + (#{join-wraps\ 431}# + #{w\ 1533}# + (#{syntax-object-wrap\ 348}# #{e\ 1531}#)) (begin - (let ((#{t\ 1682}# - (#{source-annotation\ 367}# #{e\ 1549}#))) - (if #{t\ 1682}# #{t\ 1682}# #{s\ 1552}#))) - #{rib\ 1553}# + (let ((#{t\ 1648}# + (#{source-annotation\ 359}# #{e\ 1531}#))) + (if #{t\ 1648}# #{t\ 1648}# #{s\ 1534}#))) + #{rib\ 1535}# (begin - (let ((#{t\ 1686}# - (#{syntax-object-module\ 358}# #{e\ 1549}#))) - (if #{t\ 1686}# #{t\ 1686}# #{mod\ 1554}#))) - #{for-car?\ 1555}#) - (if (self-evaluating? #{e\ 1549}#) + (let ((#{t\ 1652}# + (#{syntax-object-module\ 350}# #{e\ 1531}#))) + (if #{t\ 1652}# #{t\ 1652}# #{mod\ 1536}#))) + #{for-car?\ 1537}#) + (if (self-evaluating? #{e\ 1531}#) (values 'constant #f - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#) + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#) (values 'other #f - #{e\ 1549}# - #{w\ 1551}# - #{s\ 1552}# - #{mod\ 1554}#))))))) - (#{chi-top\ 471}# - (lambda (#{e\ 1691}# - #{r\ 1692}# - #{w\ 1693}# - #{m\ 1694}# - #{esew\ 1695}# - #{mod\ 1696}#) + #{e\ 1531}# + #{w\ 1533}# + #{s\ 1534}# + #{mod\ 1536}#))))))) + (#{chi-top\ 463}# + (lambda (#{e\ 1657}# + #{r\ 1658}# + #{w\ 1659}# + #{m\ 1660}# + #{esew\ 1661}# + #{mod\ 1662}#) (call-with-values (lambda () - (#{syntax-type\ 469}# - #{e\ 1691}# - #{r\ 1692}# - #{w\ 1693}# - (#{source-annotation\ 367}# #{e\ 1691}#) + (#{syntax-type\ 461}# + #{e\ 1657}# + #{r\ 1658}# + #{w\ 1659}# + (#{source-annotation\ 359}# #{e\ 1657}#) #f - #{mod\ 1696}# + #{mod\ 1662}# #f)) - (lambda (#{type\ 1717}# - #{value\ 1718}# - #{e\ 1719}# - #{w\ 1720}# - #{s\ 1721}# - #{mod\ 1722}#) - (if (eqv? #{type\ 1717}# (quote begin-form)) - (let ((#{tmp\ 1730}# #{e\ 1719}#)) - (let ((#{tmp\ 1731}# - ($sc-dispatch #{tmp\ 1730}# (quote (any))))) - (if #{tmp\ 1731}# + (lambda (#{type\ 1683}# + #{value\ 1684}# + #{e\ 1685}# + #{w\ 1686}# + #{s\ 1687}# + #{mod\ 1688}#) + (if (eqv? #{type\ 1683}# (quote begin-form)) + (let ((#{tmp\ 1696}# #{e\ 1685}#)) + (let ((#{tmp\ 1697}# + ($sc-dispatch #{tmp\ 1696}# (quote (_))))) + (if #{tmp\ 1697}# (@apply - (lambda (#{_\ 1733}#) (#{chi-void\ 487}#)) - #{tmp\ 1731}#) - (let ((#{tmp\ 1734}# + (lambda () (#{chi-void\ 479}#)) + #{tmp\ 1697}#) + (let ((#{tmp\ 1698}# ($sc-dispatch - #{tmp\ 1730}# - '(any any . each-any)))) - (if #{tmp\ 1734}# + #{tmp\ 1696}# + '(_ any . each-any)))) + (if #{tmp\ 1698}# (@apply - (lambda (#{_\ 1738}# #{e1\ 1739}# #{e2\ 1740}#) - (#{chi-top-sequence\ 463}# - (cons #{e1\ 1739}# #{e2\ 1740}#) - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# - #{m\ 1694}# - #{esew\ 1695}# - #{mod\ 1722}#)) - #{tmp\ 1734}#) + (lambda (#{e1\ 1701}# #{e2\ 1702}#) + (#{chi-top-sequence\ 455}# + (cons #{e1\ 1701}# #{e2\ 1702}#) + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# + #{m\ 1660}# + #{esew\ 1661}# + #{mod\ 1688}#)) + #{tmp\ 1698}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1730}#)))))) - (if (eqv? #{type\ 1717}# (quote local-syntax-form)) - (#{chi-local-syntax\ 483}# - #{value\ 1718}# - #{e\ 1719}# - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# - #{mod\ 1722}# - (lambda (#{body\ 1743}# - #{r\ 1744}# - #{w\ 1745}# - #{s\ 1746}# - #{mod\ 1747}#) - (#{chi-top-sequence\ 463}# - #{body\ 1743}# - #{r\ 1744}# - #{w\ 1745}# - #{s\ 1746}# - #{m\ 1694}# - #{esew\ 1695}# - #{mod\ 1747}#))) - (if (eqv? #{type\ 1717}# (quote eval-when-form)) - (let ((#{tmp\ 1754}# #{e\ 1719}#)) - (let ((#{tmp\ 1755}# + #{tmp\ 1696}#)))))) + (if (eqv? #{type\ 1683}# (quote local-syntax-form)) + (#{chi-local-syntax\ 475}# + #{value\ 1684}# + #{e\ 1685}# + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# + #{mod\ 1688}# + (lambda (#{body\ 1705}# + #{r\ 1706}# + #{w\ 1707}# + #{s\ 1708}# + #{mod\ 1709}#) + (#{chi-top-sequence\ 455}# + #{body\ 1705}# + #{r\ 1706}# + #{w\ 1707}# + #{s\ 1708}# + #{m\ 1660}# + #{esew\ 1661}# + #{mod\ 1709}#))) + (if (eqv? #{type\ 1683}# (quote eval-when-form)) + (let ((#{tmp\ 1716}# #{e\ 1685}#)) + (let ((#{tmp\ 1717}# ($sc-dispatch - #{tmp\ 1754}# - '(any each-any any . each-any)))) - (if #{tmp\ 1755}# + #{tmp\ 1716}# + '(_ each-any any . each-any)))) + (if #{tmp\ 1717}# (@apply - (lambda (#{_\ 1760}# - #{x\ 1761}# - #{e1\ 1762}# - #{e2\ 1763}#) + (lambda (#{x\ 1721}# #{e1\ 1722}# #{e2\ 1723}#) (begin - (let ((#{when-list\ 1766}# - (#{chi-when-list\ 467}# - #{e\ 1719}# - #{x\ 1761}# - #{w\ 1720}#)) - (#{body\ 1767}# - (cons #{e1\ 1762}# #{e2\ 1763}#))) - (if (eq? #{m\ 1694}# (quote e)) + (let ((#{when-list\ 1726}# + (#{chi-when-list\ 459}# + #{e\ 1685}# + #{x\ 1721}# + #{w\ 1686}#)) + (#{body\ 1727}# + (cons #{e1\ 1722}# #{e2\ 1723}#))) + (if (eq? #{m\ 1660}# (quote e)) (if (memq 'eval - #{when-list\ 1766}#) - (#{chi-top-sequence\ 463}# - #{body\ 1767}# - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# + #{when-list\ 1726}#) + (#{chi-top-sequence\ 455}# + #{body\ 1727}# + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# (if (memq 'expand - #{when-list\ 1766}#) + #{when-list\ 1726}#) 'c&e 'e) '(eval) - #{mod\ 1722}#) + #{mod\ 1688}#) (begin (if (memq 'expand - #{when-list\ 1766}#) - (#{top-level-eval-hook\ 297}# - (#{chi-top-sequence\ 463}# - #{body\ 1767}# - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# + #{when-list\ 1726}#) + (#{top-level-eval-hook\ 289}# + (#{chi-top-sequence\ 455}# + #{body\ 1727}# + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# 'e '(eval) - #{mod\ 1722}#) - #{mod\ 1722}#)) - (#{chi-void\ 487}#))) + #{mod\ 1688}#) + #{mod\ 1688}#)) + (#{chi-void\ 479}#))) (if (memq 'load - #{when-list\ 1766}#) + #{when-list\ 1726}#) (if (begin - (let ((#{t\ 1776}# + (let ((#{t\ 1736}# (memq 'compile - #{when-list\ 1766}#))) - (if #{t\ 1776}# - #{t\ 1776}# + #{when-list\ 1726}#))) + (if #{t\ 1736}# + #{t\ 1736}# (begin - (let ((#{t\ 1779}# + (let ((#{t\ 1739}# (memq 'expand - #{when-list\ 1766}#))) - (if #{t\ 1779}# - #{t\ 1779}# - (if (eq? #{m\ 1694}# + #{when-list\ 1726}#))) + (if #{t\ 1739}# + #{t\ 1739}# + (if (eq? #{m\ 1660}# 'c&e) (memq 'eval - #{when-list\ 1766}#) + #{when-list\ 1726}#) #f))))))) - (#{chi-top-sequence\ 463}# - #{body\ 1767}# - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# + (#{chi-top-sequence\ 455}# + #{body\ 1727}# + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# 'c&e '(compile load) - #{mod\ 1722}#) - (if (if (eq? #{m\ 1694}# (quote c)) + #{mod\ 1688}#) + (if (if (eq? #{m\ 1660}# (quote c)) #t - (eq? #{m\ 1694}# (quote c&e))) - (#{chi-top-sequence\ 463}# - #{body\ 1767}# - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# + (eq? #{m\ 1660}# (quote c&e))) + (#{chi-top-sequence\ 455}# + #{body\ 1727}# + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# 'c '(load) - #{mod\ 1722}#) - (#{chi-void\ 487}#))) + #{mod\ 1688}#) + (#{chi-void\ 479}#))) (if (begin - (let ((#{t\ 1787}# + (let ((#{t\ 1747}# (memq 'compile - #{when-list\ 1766}#))) - (if #{t\ 1787}# - #{t\ 1787}# + #{when-list\ 1726}#))) + (if #{t\ 1747}# + #{t\ 1747}# (begin - (let ((#{t\ 1790}# + (let ((#{t\ 1750}# (memq 'expand - #{when-list\ 1766}#))) - (if #{t\ 1790}# - #{t\ 1790}# - (if (eq? #{m\ 1694}# + #{when-list\ 1726}#))) + (if #{t\ 1750}# + #{t\ 1750}# + (if (eq? #{m\ 1660}# 'c&e) (memq 'eval - #{when-list\ 1766}#) + #{when-list\ 1726}#) #f))))))) (begin - (#{top-level-eval-hook\ 297}# - (#{chi-top-sequence\ 463}# - #{body\ 1767}# - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# + (#{top-level-eval-hook\ 289}# + (#{chi-top-sequence\ 455}# + #{body\ 1727}# + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# 'e '(eval) - #{mod\ 1722}#) - #{mod\ 1722}#) - (#{chi-void\ 487}#)) - (#{chi-void\ 487}#))))))) - #{tmp\ 1755}#) + #{mod\ 1688}#) + #{mod\ 1688}#) + (#{chi-void\ 479}#)) + (#{chi-void\ 479}#))))))) + #{tmp\ 1717}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1754}#)))) - (if (eqv? #{type\ 1717}# (quote define-syntax-form)) + #{tmp\ 1716}#)))) + (if (eqv? #{type\ 1683}# (quote define-syntax-form)) (begin - (let ((#{n\ 1798}# - (#{id-var-name\ 445}# - #{value\ 1718}# - #{w\ 1720}#)) - (#{r\ 1799}# - (#{macros-only-env\ 380}# #{r\ 1692}#))) - (if (eqv? #{m\ 1694}# (quote c)) - (if (memq (quote compile) #{esew\ 1695}#) + (let ((#{n\ 1758}# + (#{id-var-name\ 437}# + #{value\ 1684}# + #{w\ 1686}#)) + (#{r\ 1759}# + (#{macros-only-env\ 372}# #{r\ 1658}#))) + (if (eqv? #{m\ 1660}# (quote c)) + (if (memq (quote compile) #{esew\ 1661}#) (begin - (let ((#{e\ 1802}# - (#{chi-install-global\ 465}# - #{n\ 1798}# - (#{chi\ 473}# - #{e\ 1719}# - #{r\ 1799}# - #{w\ 1720}# - #{mod\ 1722}#)))) + (let ((#{e\ 1762}# + (#{chi-install-global\ 457}# + #{n\ 1758}# + (#{chi\ 465}# + #{e\ 1685}# + #{r\ 1759}# + #{w\ 1686}# + #{mod\ 1688}#)))) (begin - (#{top-level-eval-hook\ 297}# - #{e\ 1802}# - #{mod\ 1722}#) - (if (memq (quote load) #{esew\ 1695}#) - #{e\ 1802}# - (#{chi-void\ 487}#))))) - (if (memq (quote load) #{esew\ 1695}#) - (#{chi-install-global\ 465}# - #{n\ 1798}# - (#{chi\ 473}# - #{e\ 1719}# - #{r\ 1799}# - #{w\ 1720}# - #{mod\ 1722}#)) - (#{chi-void\ 487}#))) - (if (eqv? #{m\ 1694}# (quote c&e)) + (#{top-level-eval-hook\ 289}# + #{e\ 1762}# + #{mod\ 1688}#) + (if (memq (quote load) #{esew\ 1661}#) + #{e\ 1762}# + (#{chi-void\ 479}#))))) + (if (memq (quote load) #{esew\ 1661}#) + (#{chi-install-global\ 457}# + #{n\ 1758}# + (#{chi\ 465}# + #{e\ 1685}# + #{r\ 1759}# + #{w\ 1686}# + #{mod\ 1688}#)) + (#{chi-void\ 479}#))) + (if (eqv? #{m\ 1660}# (quote c&e)) (begin - (let ((#{e\ 1805}# - (#{chi-install-global\ 465}# - #{n\ 1798}# - (#{chi\ 473}# - #{e\ 1719}# - #{r\ 1799}# - #{w\ 1720}# - #{mod\ 1722}#)))) + (let ((#{e\ 1765}# + (#{chi-install-global\ 457}# + #{n\ 1758}# + (#{chi\ 465}# + #{e\ 1685}# + #{r\ 1759}# + #{w\ 1686}# + #{mod\ 1688}#)))) (begin - (#{top-level-eval-hook\ 297}# - #{e\ 1805}# - #{mod\ 1722}#) - #{e\ 1805}#))) + (#{top-level-eval-hook\ 289}# + #{e\ 1765}# + #{mod\ 1688}#) + #{e\ 1765}#))) (begin - (if (memq (quote eval) #{esew\ 1695}#) - (#{top-level-eval-hook\ 297}# - (#{chi-install-global\ 465}# - #{n\ 1798}# - (#{chi\ 473}# - #{e\ 1719}# - #{r\ 1799}# - #{w\ 1720}# - #{mod\ 1722}#)) - #{mod\ 1722}#)) - (#{chi-void\ 487}#)))))) - (if (eqv? #{type\ 1717}# (quote define-form)) + (if (memq (quote eval) #{esew\ 1661}#) + (#{top-level-eval-hook\ 289}# + (#{chi-install-global\ 457}# + #{n\ 1758}# + (#{chi\ 465}# + #{e\ 1685}# + #{r\ 1759}# + #{w\ 1686}# + #{mod\ 1688}#)) + #{mod\ 1688}#)) + (#{chi-void\ 479}#)))))) + (if (eqv? #{type\ 1683}# (quote define-form)) (begin - (let ((#{n\ 1810}# - (#{id-var-name\ 445}# - #{value\ 1718}# - #{w\ 1720}#))) + (let ((#{n\ 1770}# + (#{id-var-name\ 437}# + #{value\ 1684}# + #{w\ 1686}#))) (begin - (let ((#{type\ 1812}# - (#{binding-type\ 371}# - (#{lookup\ 382}# - #{n\ 1810}# - #{r\ 1692}# - #{mod\ 1722}#)))) - (if (if (eqv? #{type\ 1812}# (quote global)) + (let ((#{type\ 1772}# + (#{binding-type\ 363}# + (#{lookup\ 374}# + #{n\ 1770}# + #{r\ 1658}# + #{mod\ 1688}#)))) + (if (if (eqv? #{type\ 1772}# (quote global)) #t - (if (eqv? #{type\ 1812}# (quote core)) + (if (eqv? #{type\ 1772}# (quote core)) #t - (if (eqv? #{type\ 1812}# + (if (eqv? #{type\ 1772}# 'macro) #t - (eqv? #{type\ 1812}# + (eqv? #{type\ 1772}# 'module-ref)))) (begin - (if (if (if (eq? #{m\ 1694}# (quote c)) + (if (if (if (eq? #{m\ 1660}# (quote c)) #t - (eq? #{m\ 1694}# (quote c&e))) + (eq? #{m\ 1660}# (quote c&e))) (if (not (module-local-variable (current-module) - #{n\ 1810}#)) + #{n\ 1770}#)) (current-module) #f) #f) (begin - (let ((#{old\ 1818}# + (let ((#{old\ 1778}# (module-variable (current-module) - #{n\ 1810}#))) + #{n\ 1770}#))) (module-define! (current-module) - #{n\ 1810}# - (if (variable? #{old\ 1818}#) - (variable-ref #{old\ 1818}#) + #{n\ 1770}# + (if (variable? #{old\ 1778}#) + (variable-ref #{old\ 1778}#) #f))))) (begin - (let ((#{x\ 1821}# - (#{build-global-definition\ 328}# - #{s\ 1721}# - #{n\ 1810}# - (#{chi\ 473}# - #{e\ 1719}# - #{r\ 1692}# - #{w\ 1720}# - #{mod\ 1722}#)))) + (let ((#{x\ 1781}# + (#{build-global-definition\ 320}# + #{s\ 1687}# + #{n\ 1770}# + (#{chi\ 465}# + #{e\ 1685}# + #{r\ 1658}# + #{w\ 1686}# + #{mod\ 1688}#)))) (begin - (if (eq? #{m\ 1694}# (quote c&e)) - (#{top-level-eval-hook\ 297}# - #{x\ 1821}# - #{mod\ 1722}#)) - #{x\ 1821}#)))) - (if (eqv? #{type\ 1812}# + (if (eq? #{m\ 1660}# (quote c&e)) + (#{top-level-eval-hook\ 289}# + #{x\ 1781}# + #{mod\ 1688}#)) + #{x\ 1781}#)))) + (if (eqv? #{type\ 1772}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e\ 1719}# - (#{wrap\ 457}# - #{value\ 1718}# - #{w\ 1720}# - #{mod\ 1722}#)) + #{e\ 1685}# + (#{wrap\ 449}# + #{value\ 1684}# + #{w\ 1686}# + #{mod\ 1688}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1719}# - (#{wrap\ 457}# - #{value\ 1718}# - #{w\ 1720}# - #{mod\ 1722}#)))))))) + #{e\ 1685}# + (#{wrap\ 449}# + #{value\ 1684}# + #{w\ 1686}# + #{mod\ 1688}#)))))))) (begin - (let ((#{x\ 1827}# - (#{chi-expr\ 475}# - #{type\ 1717}# - #{value\ 1718}# - #{e\ 1719}# - #{r\ 1692}# - #{w\ 1720}# - #{s\ 1721}# - #{mod\ 1722}#))) + (let ((#{x\ 1787}# + (#{chi-expr\ 467}# + #{type\ 1683}# + #{value\ 1684}# + #{e\ 1685}# + #{r\ 1658}# + #{w\ 1686}# + #{s\ 1687}# + #{mod\ 1688}#))) (begin - (if (eq? #{m\ 1694}# (quote c&e)) - (#{top-level-eval-hook\ 297}# - #{x\ 1827}# - #{mod\ 1722}#)) - #{x\ 1827}#)))))))))))) - (#{chi\ 473}# - (lambda (#{e\ 1828}# - #{r\ 1829}# - #{w\ 1830}# - #{mod\ 1831}#) + (if (eq? #{m\ 1660}# (quote c&e)) + (#{top-level-eval-hook\ 289}# + #{x\ 1787}# + #{mod\ 1688}#)) + #{x\ 1787}#)))))))))))) + (#{chi\ 465}# + (lambda (#{e\ 1788}# + #{r\ 1789}# + #{w\ 1790}# + #{mod\ 1791}#) (call-with-values (lambda () - (#{syntax-type\ 469}# - #{e\ 1828}# - #{r\ 1829}# - #{w\ 1830}# - (#{source-annotation\ 367}# #{e\ 1828}#) + (#{syntax-type\ 461}# + #{e\ 1788}# + #{r\ 1789}# + #{w\ 1790}# + (#{source-annotation\ 359}# #{e\ 1788}#) #f - #{mod\ 1831}# + #{mod\ 1791}# #f)) - (lambda (#{type\ 1836}# - #{value\ 1837}# - #{e\ 1838}# - #{w\ 1839}# - #{s\ 1840}# - #{mod\ 1841}#) - (#{chi-expr\ 475}# - #{type\ 1836}# - #{value\ 1837}# - #{e\ 1838}# - #{r\ 1829}# - #{w\ 1839}# - #{s\ 1840}# - #{mod\ 1841}#))))) - (#{chi-expr\ 475}# - (lambda (#{type\ 1848}# - #{value\ 1849}# - #{e\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) - (if (eqv? #{type\ 1848}# (quote lexical)) - (#{build-lexical-reference\ 318}# + (lambda (#{type\ 1796}# + #{value\ 1797}# + #{e\ 1798}# + #{w\ 1799}# + #{s\ 1800}# + #{mod\ 1801}#) + (#{chi-expr\ 467}# + #{type\ 1796}# + #{value\ 1797}# + #{e\ 1798}# + #{r\ 1789}# + #{w\ 1799}# + #{s\ 1800}# + #{mod\ 1801}#))))) + (#{chi-expr\ 467}# + (lambda (#{type\ 1808}# + #{value\ 1809}# + #{e\ 1810}# + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#) + (if (eqv? #{type\ 1808}# (quote lexical)) + (#{build-lexical-reference\ 310}# 'value - #{s\ 1853}# - #{e\ 1850}# - #{value\ 1849}#) - (if (if (eqv? #{type\ 1848}# (quote core)) + #{s\ 1813}# + #{e\ 1810}# + #{value\ 1809}#) + (if (if (eqv? #{type\ 1808}# (quote core)) #t - (eqv? #{type\ 1848}# (quote core-form))) - (#{value\ 1849}# - #{e\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) - (if (eqv? #{type\ 1848}# (quote module-ref)) + (eqv? #{type\ 1808}# (quote core-form))) + (#{value\ 1809}# + #{e\ 1810}# + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#) + (if (eqv? #{type\ 1808}# (quote module-ref)) (call-with-values (lambda () - (#{value\ 1849}# - #{e\ 1850}# - #{r\ 1851}# - #{w\ 1852}#)) - (lambda (#{e\ 1865}# - #{r\ 1866}# - #{w\ 1867}# - #{s\ 1868}# - #{mod\ 1869}#) - (#{chi\ 473}# - #{e\ 1865}# - #{r\ 1866}# - #{w\ 1867}# - #{mod\ 1869}#))) - (if (eqv? #{type\ 1848}# (quote lexical-call)) - (#{chi-application\ 477}# + (#{value\ 1809}# + #{e\ 1810}# + #{r\ 1811}# + #{w\ 1812}#)) + (lambda (#{e\ 1825}# + #{r\ 1826}# + #{w\ 1827}# + #{s\ 1828}# + #{mod\ 1829}#) + (#{chi\ 465}# + #{e\ 1825}# + #{r\ 1826}# + #{w\ 1827}# + #{mod\ 1829}#))) + (if (eqv? #{type\ 1808}# (quote lexical-call)) + (#{chi-application\ 469}# (begin - (let ((#{id\ 1877}# (car #{e\ 1850}#))) - (#{build-lexical-reference\ 318}# + (let ((#{id\ 1837}# (car #{e\ 1810}#))) + (#{build-lexical-reference\ 310}# 'fun - (#{source-annotation\ 367}# #{id\ 1877}#) - (if (#{syntax-object?\ 352}# #{id\ 1877}#) - (syntax->datum #{id\ 1877}#) - #{id\ 1877}#) - #{value\ 1849}#))) - #{e\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) - (if (eqv? #{type\ 1848}# (quote global-call)) - (#{chi-application\ 477}# - (#{build-global-reference\ 324}# - (#{source-annotation\ 367}# (car #{e\ 1850}#)) - (if (#{syntax-object?\ 352}# #{value\ 1849}#) - (#{syntax-object-expression\ 354}# - #{value\ 1849}#) - #{value\ 1849}#) - (if (#{syntax-object?\ 352}# #{value\ 1849}#) - (#{syntax-object-module\ 358}# #{value\ 1849}#) - #{mod\ 1854}#)) - #{e\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) - (if (eqv? #{type\ 1848}# (quote constant)) - (#{build-data\ 338}# - #{s\ 1853}# - (#{strip\ 499}# - (#{source-wrap\ 459}# - #{e\ 1850}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) + (#{source-annotation\ 359}# #{id\ 1837}#) + (if (#{syntax-object?\ 344}# #{id\ 1837}#) + (syntax->datum #{id\ 1837}#) + #{id\ 1837}#) + #{value\ 1809}#))) + #{e\ 1810}# + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#) + (if (eqv? #{type\ 1808}# (quote global-call)) + (#{chi-application\ 469}# + (#{build-global-reference\ 316}# + (#{source-annotation\ 359}# (car #{e\ 1810}#)) + (if (#{syntax-object?\ 344}# #{value\ 1809}#) + (#{syntax-object-expression\ 346}# + #{value\ 1809}#) + #{value\ 1809}#) + (if (#{syntax-object?\ 344}# #{value\ 1809}#) + (#{syntax-object-module\ 350}# #{value\ 1809}#) + #{mod\ 1814}#)) + #{e\ 1810}# + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#) + (if (eqv? #{type\ 1808}# (quote constant)) + (#{build-data\ 330}# + #{s\ 1813}# + (#{strip\ 493}# + (#{source-wrap\ 451}# + #{e\ 1810}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#) '(()))) - (if (eqv? #{type\ 1848}# (quote global)) - (#{build-global-reference\ 324}# - #{s\ 1853}# - #{value\ 1849}# - #{mod\ 1854}#) - (if (eqv? #{type\ 1848}# (quote call)) - (#{chi-application\ 477}# - (#{chi\ 473}# - (car #{e\ 1850}#) - #{r\ 1851}# - #{w\ 1852}# - #{mod\ 1854}#) - #{e\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) - (if (eqv? #{type\ 1848}# (quote begin-form)) - (let ((#{tmp\ 1884}# #{e\ 1850}#)) - (let ((#{tmp\ 1885}# + (if (eqv? #{type\ 1808}# (quote global)) + (#{build-global-reference\ 316}# + #{s\ 1813}# + #{value\ 1809}# + #{mod\ 1814}#) + (if (eqv? #{type\ 1808}# (quote call)) + (#{chi-application\ 469}# + (#{chi\ 465}# + (car #{e\ 1810}#) + #{r\ 1811}# + #{w\ 1812}# + #{mod\ 1814}#) + #{e\ 1810}# + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#) + (if (eqv? #{type\ 1808}# (quote begin-form)) + (let ((#{tmp\ 1844}# #{e\ 1810}#)) + (let ((#{tmp\ 1845}# ($sc-dispatch - #{tmp\ 1884}# - '(any any . each-any)))) - (if #{tmp\ 1885}# + #{tmp\ 1844}# + '(_ any . each-any)))) + (if #{tmp\ 1845}# (@apply - (lambda (#{_\ 1889}# - #{e1\ 1890}# - #{e2\ 1891}#) - (#{chi-sequence\ 461}# - (cons #{e1\ 1890}# #{e2\ 1891}#) - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#)) - #{tmp\ 1885}#) + (lambda (#{e1\ 1848}# #{e2\ 1849}#) + (#{chi-sequence\ 453}# + (cons #{e1\ 1848}# #{e2\ 1849}#) + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#)) + #{tmp\ 1845}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1884}#)))) - (if (eqv? #{type\ 1848}# + #{tmp\ 1844}#)))) + (if (eqv? #{type\ 1808}# 'local-syntax-form) - (#{chi-local-syntax\ 483}# - #{value\ 1849}# - #{e\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}# - #{chi-sequence\ 461}#) - (if (eqv? #{type\ 1848}# + (#{chi-local-syntax\ 475}# + #{value\ 1809}# + #{e\ 1810}# + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}# + #{chi-sequence\ 453}#) + (if (eqv? #{type\ 1808}# 'eval-when-form) - (let ((#{tmp\ 1895}# #{e\ 1850}#)) - (let ((#{tmp\ 1896}# + (let ((#{tmp\ 1853}# #{e\ 1810}#)) + (let ((#{tmp\ 1854}# ($sc-dispatch - #{tmp\ 1895}# - '(any each-any - any - . - each-any)))) - (if #{tmp\ 1896}# + #{tmp\ 1853}# + '(_ each-any any . each-any)))) + (if #{tmp\ 1854}# (@apply - (lambda (#{_\ 1901}# - #{x\ 1902}# - #{e1\ 1903}# - #{e2\ 1904}#) + (lambda (#{x\ 1858}# + #{e1\ 1859}# + #{e2\ 1860}#) (begin - (let ((#{when-list\ 1906}# - (#{chi-when-list\ 467}# - #{e\ 1850}# - #{x\ 1902}# - #{w\ 1852}#))) + (let ((#{when-list\ 1862}# + (#{chi-when-list\ 459}# + #{e\ 1810}# + #{x\ 1858}# + #{w\ 1812}#))) (if (memq 'eval - #{when-list\ 1906}#) - (#{chi-sequence\ 461}# - (cons #{e1\ 1903}# - #{e2\ 1904}#) - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) - (#{chi-void\ 487}#))))) - #{tmp\ 1896}#) + #{when-list\ 1862}#) + (#{chi-sequence\ 453}# + (cons #{e1\ 1859}# + #{e2\ 1860}#) + #{r\ 1811}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#) + (#{chi-void\ 479}#))))) + #{tmp\ 1854}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1895}#)))) - (if (if (eqv? #{type\ 1848}# + #{tmp\ 1853}#)))) + (if (if (eqv? #{type\ 1808}# 'define-form) #t - (eqv? #{type\ 1848}# + (eqv? #{type\ 1808}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1850}# - (#{wrap\ 457}# - #{value\ 1849}# - #{w\ 1852}# - #{mod\ 1854}#)) - (if (eqv? #{type\ 1848}# (quote syntax)) + #{e\ 1810}# + (#{wrap\ 449}# + #{value\ 1809}# + #{w\ 1812}# + #{mod\ 1814}#)) + (if (eqv? #{type\ 1808}# (quote syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 459}# - #{e\ 1850}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#)) - (if (eqv? #{type\ 1848}# + (#{source-wrap\ 451}# + #{e\ 1810}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#)) + (if (eqv? #{type\ 1808}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 459}# - #{e\ 1850}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#)) + (#{source-wrap\ 451}# + #{e\ 1810}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 459}# - #{e\ 1850}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#)))))))))))))))))) - (#{chi-application\ 477}# - (lambda (#{x\ 1913}# - #{e\ 1914}# - #{r\ 1915}# - #{w\ 1916}# - #{s\ 1917}# - #{mod\ 1918}#) - (let ((#{tmp\ 1925}# #{e\ 1914}#)) - (let ((#{tmp\ 1926}# + (#{source-wrap\ 451}# + #{e\ 1810}# + #{w\ 1812}# + #{s\ 1813}# + #{mod\ 1814}#)))))))))))))))))) + (#{chi-application\ 469}# + (lambda (#{x\ 1869}# + #{e\ 1870}# + #{r\ 1871}# + #{w\ 1872}# + #{s\ 1873}# + #{mod\ 1874}#) + (let ((#{tmp\ 1881}# #{e\ 1870}#)) + (let ((#{tmp\ 1882}# ($sc-dispatch - #{tmp\ 1925}# + #{tmp\ 1881}# '(any . each-any)))) - (if #{tmp\ 1926}# + (if #{tmp\ 1882}# (@apply - (lambda (#{e0\ 1929}# #{e1\ 1930}#) - (#{build-application\ 312}# - #{s\ 1917}# - #{x\ 1913}# - (map (lambda (#{e\ 1931}#) - (#{chi\ 473}# - #{e\ 1931}# - #{r\ 1915}# - #{w\ 1916}# - #{mod\ 1918}#)) - #{e1\ 1930}#))) - #{tmp\ 1926}#) + (lambda (#{e0\ 1885}# #{e1\ 1886}#) + (#{build-application\ 304}# + #{s\ 1873}# + #{x\ 1869}# + (map (lambda (#{e\ 1887}#) + (#{chi\ 465}# + #{e\ 1887}# + #{r\ 1871}# + #{w\ 1872}# + #{mod\ 1874}#)) + #{e1\ 1886}#))) + #{tmp\ 1882}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1925}#)))))) - (#{chi-macro\ 479}# - (lambda (#{p\ 1934}# - #{e\ 1935}# - #{r\ 1936}# - #{w\ 1937}# - #{s\ 1938}# - #{rib\ 1939}# - #{mod\ 1940}#) + #{tmp\ 1881}#)))))) + (#{chi-macro\ 471}# + (lambda (#{p\ 1890}# + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{rib\ 1895}# + #{mod\ 1896}#) (letrec* - ((#{rebuild-macro-output\ 1949}# - (lambda (#{x\ 1950}# #{m\ 1951}#) - (if (pair? #{x\ 1950}#) - (#{decorate-source\ 306}# - (cons (#{rebuild-macro-output\ 1949}# - (car #{x\ 1950}#) - #{m\ 1951}#) - (#{rebuild-macro-output\ 1949}# - (cdr #{x\ 1950}#) - #{m\ 1951}#)) - #{s\ 1938}#) - (if (#{syntax-object?\ 352}# #{x\ 1950}#) + ((#{rebuild-macro-output\ 1905}# + (lambda (#{x\ 1906}# #{m\ 1907}#) + (if (pair? #{x\ 1906}#) + (#{decorate-source\ 298}# + (cons (#{rebuild-macro-output\ 1905}# + (car #{x\ 1906}#) + #{m\ 1907}#) + (#{rebuild-macro-output\ 1905}# + (cdr #{x\ 1906}#) + #{m\ 1907}#)) + #{s\ 1894}#) + (if (#{syntax-object?\ 344}# #{x\ 1906}#) (begin - (let ((#{w\ 1959}# - (#{syntax-object-wrap\ 356}# #{x\ 1950}#))) + (let ((#{w\ 1915}# + (#{syntax-object-wrap\ 348}# #{x\ 1906}#))) (begin - (let ((#{ms\ 1962}# - (#{wrap-marks\ 395}# #{w\ 1959}#)) - (#{s\ 1963}# - (#{wrap-subst\ 397}# #{w\ 1959}#))) - (if (if (pair? #{ms\ 1962}#) - (eq? (car #{ms\ 1962}#) #f) + (let ((#{ms\ 1918}# + (#{wrap-marks\ 387}# #{w\ 1915}#)) + (#{s\ 1919}# + (#{wrap-subst\ 389}# #{w\ 1915}#))) + (if (if (pair? #{ms\ 1918}#) + (eq? (car #{ms\ 1918}#) #f) #f) - (#{make-syntax-object\ 350}# - (#{syntax-object-expression\ 354}# - #{x\ 1950}#) - (#{make-wrap\ 393}# - (cdr #{ms\ 1962}#) - (if #{rib\ 1939}# - (cons #{rib\ 1939}# (cdr #{s\ 1963}#)) - (cdr #{s\ 1963}#))) - (#{syntax-object-module\ 358}# - #{x\ 1950}#)) - (#{make-syntax-object\ 350}# - (#{decorate-source\ 306}# - (#{syntax-object-expression\ 354}# - #{x\ 1950}#) - #{s\ 1963}#) - (#{make-wrap\ 393}# - (cons #{m\ 1951}# #{ms\ 1962}#) - (if #{rib\ 1939}# - (cons #{rib\ 1939}# - (cons (quote shift) #{s\ 1963}#)) - (cons (quote shift) #{s\ 1963}#))) - (#{syntax-object-module\ 358}# - #{x\ 1950}#))))))) - (if (vector? #{x\ 1950}#) + (#{make-syntax-object\ 342}# + (#{syntax-object-expression\ 346}# + #{x\ 1906}#) + (#{make-wrap\ 385}# + (cdr #{ms\ 1918}#) + (if #{rib\ 1895}# + (cons #{rib\ 1895}# (cdr #{s\ 1919}#)) + (cdr #{s\ 1919}#))) + (#{syntax-object-module\ 350}# + #{x\ 1906}#)) + (#{make-syntax-object\ 342}# + (#{decorate-source\ 298}# + (#{syntax-object-expression\ 346}# + #{x\ 1906}#) + #{s\ 1919}#) + (#{make-wrap\ 385}# + (cons #{m\ 1907}# #{ms\ 1918}#) + (if #{rib\ 1895}# + (cons #{rib\ 1895}# + (cons (quote shift) #{s\ 1919}#)) + (cons (quote shift) #{s\ 1919}#))) + (#{syntax-object-module\ 350}# + #{x\ 1906}#))))))) + (if (vector? #{x\ 1906}#) (begin - (let ((#{n\ 1971}# (vector-length #{x\ 1950}#))) + (let ((#{n\ 1927}# (vector-length #{x\ 1906}#))) (begin - (let ((#{v\ 1973}# - (#{decorate-source\ 306}# - (make-vector #{n\ 1971}#) - #{x\ 1950}#))) + (let ((#{v\ 1929}# + (#{decorate-source\ 298}# + (make-vector #{n\ 1927}#) + #{x\ 1906}#))) (letrec* - ((#{loop\ 1976}# - (lambda (#{i\ 1977}#) - (if (#{fx=\ 293}# - #{i\ 1977}# - #{n\ 1971}#) - (begin (if #f #f) #{v\ 1973}#) + ((#{loop\ 1932}# + (lambda (#{i\ 1933}#) + (if (#{fx=\ 285}# + #{i\ 1933}# + #{n\ 1927}#) + (begin (if #f #f) #{v\ 1929}#) (begin (vector-set! - #{v\ 1973}# - #{i\ 1977}# - (#{rebuild-macro-output\ 1949}# + #{v\ 1929}# + #{i\ 1933}# + (#{rebuild-macro-output\ 1905}# (vector-ref - #{x\ 1950}# - #{i\ 1977}#) - #{m\ 1951}#)) - (#{loop\ 1976}# - (#{fx+\ 289}# - #{i\ 1977}# + #{x\ 1906}# + #{i\ 1933}#) + #{m\ 1907}#)) + (#{loop\ 1932}# + (#{fx+\ 281}# + #{i\ 1933}# 1))))))) - (begin (#{loop\ 1976}# 0))))))) - (if (symbol? #{x\ 1950}#) + (begin (#{loop\ 1932}# 0))))))) + (if (symbol? #{x\ 1906}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 459}# - #{e\ 1935}# - #{w\ 1937}# - (#{wrap-subst\ 397}# #{w\ 1937}#) - #{mod\ 1940}#) - #{x\ 1950}#) - (#{decorate-source\ 306}# - #{x\ 1950}# - #{s\ 1938}#)))))))) + (#{source-wrap\ 451}# + #{e\ 1891}# + #{w\ 1893}# + (#{wrap-subst\ 389}# #{w\ 1893}#) + #{mod\ 1896}#) + #{x\ 1906}#) + (#{decorate-source\ 298}# + #{x\ 1906}# + #{s\ 1894}#)))))))) (begin - (#{rebuild-macro-output\ 1949}# - (#{p\ 1934}# - (#{source-wrap\ 459}# - #{e\ 1935}# - (#{anti-mark\ 429}# #{w\ 1937}#) - #{s\ 1938}# - #{mod\ 1940}#)) + (#{rebuild-macro-output\ 1905}# + (#{p\ 1890}# + (#{source-wrap\ 451}# + #{e\ 1891}# + (#{anti-mark\ 421}# #{w\ 1893}#) + #{s\ 1894}# + #{mod\ 1896}#)) (gensym "m")))))) - (#{chi-body\ 481}# - (lambda (#{body\ 1984}# - #{outer-form\ 1985}# - #{r\ 1986}# - #{w\ 1987}# - #{mod\ 1988}#) + (#{chi-body\ 473}# + (lambda (#{body\ 1940}# + #{outer-form\ 1941}# + #{r\ 1942}# + #{w\ 1943}# + #{mod\ 1944}#) (begin - (let ((#{r\ 1996}# + (let ((#{r\ 1952}# (cons '("placeholder" placeholder) - #{r\ 1986}#))) + #{r\ 1942}#))) (begin - (let ((#{ribcage\ 1998}# - (#{make-ribcage\ 409}# + (let ((#{ribcage\ 1954}# + (#{make-ribcage\ 401}# '() '() '()))) (begin - (let ((#{w\ 2001}# - (#{make-wrap\ 393}# - (#{wrap-marks\ 395}# #{w\ 1987}#) - (cons #{ribcage\ 1998}# - (#{wrap-subst\ 397}# #{w\ 1987}#))))) + (let ((#{w\ 1957}# + (#{make-wrap\ 385}# + (#{wrap-marks\ 387}# #{w\ 1943}#) + (cons #{ribcage\ 1954}# + (#{wrap-subst\ 389}# #{w\ 1943}#))))) (letrec* - ((#{parse\ 2010}# - (lambda (#{body\ 2011}# - #{ids\ 2012}# - #{labels\ 2013}# - #{var-ids\ 2014}# - #{vars\ 2015}# - #{vals\ 2016}# - #{bindings\ 2017}#) - (if (null? #{body\ 2011}#) + ((#{parse\ 1966}# + (lambda (#{body\ 1967}# + #{ids\ 1968}# + #{labels\ 1969}# + #{var-ids\ 1970}# + #{vars\ 1971}# + #{vals\ 1972}# + #{bindings\ 1973}#) + (if (null? #{body\ 1967}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1985}#) + #{outer-form\ 1941}#) (begin - (let ((#{e\ 2022}# - (cdr (car #{body\ 2011}#))) - (#{er\ 2023}# - (car (car #{body\ 2011}#)))) + (let ((#{e\ 1978}# + (cdr (car #{body\ 1967}#))) + (#{er\ 1979}# + (car (car #{body\ 1967}#)))) (call-with-values (lambda () - (#{syntax-type\ 469}# - #{e\ 2022}# - #{er\ 2023}# + (#{syntax-type\ 461}# + #{e\ 1978}# + #{er\ 1979}# '(()) - (#{source-annotation\ 367}# - #{er\ 2023}#) - #{ribcage\ 1998}# - #{mod\ 1988}# + (#{source-annotation\ 359}# + #{er\ 1979}#) + #{ribcage\ 1954}# + #{mod\ 1944}# #f)) - (lambda (#{type\ 2025}# - #{value\ 2026}# - #{e\ 2027}# - #{w\ 2028}# - #{s\ 2029}# - #{mod\ 2030}#) - (if (eqv? #{type\ 2025}# + (lambda (#{type\ 1981}# + #{value\ 1982}# + #{e\ 1983}# + #{w\ 1984}# + #{s\ 1985}# + #{mod\ 1986}#) + (if (eqv? #{type\ 1981}# 'define-form) (begin - (let ((#{id\ 2040}# - (#{wrap\ 457}# - #{value\ 2026}# - #{w\ 2028}# - #{mod\ 2030}#)) - (#{label\ 2041}# - (#{gen-label\ 404}#))) + (let ((#{id\ 1996}# + (#{wrap\ 449}# + #{value\ 1982}# + #{w\ 1984}# + #{mod\ 1986}#)) + (#{label\ 1997}# + (#{gen-label\ 396}#))) (begin - (let ((#{var\ 2043}# - (#{gen-var\ 501}# - #{id\ 2040}#))) + (let ((#{var\ 1999}# + (#{gen-var\ 495}# + #{id\ 1996}#))) (begin - (#{extend-ribcage!\ 433}# - #{ribcage\ 1998}# - #{id\ 2040}# - #{label\ 2041}#) - (#{parse\ 2010}# - (cdr #{body\ 2011}#) - (cons #{id\ 2040}# - #{ids\ 2012}#) - (cons #{label\ 2041}# - #{labels\ 2013}#) - (cons #{id\ 2040}# - #{var-ids\ 2014}#) - (cons #{var\ 2043}# - #{vars\ 2015}#) - (cons (cons #{er\ 2023}# - (#{wrap\ 457}# - #{e\ 2027}# - #{w\ 2028}# - #{mod\ 2030}#)) - #{vals\ 2016}#) + (#{extend-ribcage!\ 425}# + #{ribcage\ 1954}# + #{id\ 1996}# + #{label\ 1997}#) + (#{parse\ 1966}# + (cdr #{body\ 1967}#) + (cons #{id\ 1996}# + #{ids\ 1968}#) + (cons #{label\ 1997}# + #{labels\ 1969}#) + (cons #{id\ 1996}# + #{var-ids\ 1970}#) + (cons #{var\ 1999}# + #{vars\ 1971}#) + (cons (cons #{er\ 1979}# + (#{wrap\ 449}# + #{e\ 1983}# + #{w\ 1984}# + #{mod\ 1986}#)) + #{vals\ 1972}#) (cons (cons 'lexical - #{var\ 2043}#) - #{bindings\ 2017}#))))))) - (if (eqv? #{type\ 2025}# + #{var\ 1999}#) + #{bindings\ 1973}#))))))) + (if (eqv? #{type\ 1981}# 'define-syntax-form) (begin - (let ((#{id\ 2048}# - (#{wrap\ 457}# - #{value\ 2026}# - #{w\ 2028}# - #{mod\ 2030}#)) - (#{label\ 2049}# - (#{gen-label\ 404}#))) + (let ((#{id\ 2004}# + (#{wrap\ 449}# + #{value\ 1982}# + #{w\ 1984}# + #{mod\ 1986}#)) + (#{label\ 2005}# + (#{gen-label\ 396}#))) (begin - (#{extend-ribcage!\ 433}# - #{ribcage\ 1998}# - #{id\ 2048}# - #{label\ 2049}#) - (#{parse\ 2010}# - (cdr #{body\ 2011}#) - (cons #{id\ 2048}# - #{ids\ 2012}#) - (cons #{label\ 2049}# - #{labels\ 2013}#) - #{var-ids\ 2014}# - #{vars\ 2015}# - #{vals\ 2016}# + (#{extend-ribcage!\ 425}# + #{ribcage\ 1954}# + #{id\ 2004}# + #{label\ 2005}#) + (#{parse\ 1966}# + (cdr #{body\ 1967}#) + (cons #{id\ 2004}# + #{ids\ 1968}#) + (cons #{label\ 2005}# + #{labels\ 1969}#) + #{var-ids\ 1970}# + #{vars\ 1971}# + #{vals\ 1972}# (cons (cons 'macro - (cons #{er\ 2023}# - (#{wrap\ 457}# - #{e\ 2027}# - #{w\ 2028}# - #{mod\ 2030}#))) - #{bindings\ 2017}#))))) - (if (eqv? #{type\ 2025}# + (cons #{er\ 1979}# + (#{wrap\ 449}# + #{e\ 1983}# + #{w\ 1984}# + #{mod\ 1986}#))) + #{bindings\ 1973}#))))) + (if (eqv? #{type\ 1981}# 'begin-form) - (let ((#{tmp\ 2052}# - #{e\ 2027}#)) - (let ((#{tmp\ 2053}# + (let ((#{tmp\ 2008}# + #{e\ 1983}#)) + (let ((#{tmp\ 2009}# ($sc-dispatch - #{tmp\ 2052}# - '(any . - each-any)))) - (if #{tmp\ 2053}# + #{tmp\ 2008}# + '(_ . each-any)))) + (if #{tmp\ 2009}# (@apply - (lambda (#{_\ 2056}# - #{e1\ 2057}#) - (#{parse\ 2010}# + (lambda (#{e1\ 2011}#) + (#{parse\ 1966}# (letrec* - ((#{f\ 2060}# - (lambda (#{forms\ 2061}#) - (if (null? #{forms\ 2061}#) - (cdr #{body\ 2011}#) - (cons (cons #{er\ 2023}# - (#{wrap\ 457}# - (car #{forms\ 2061}#) - #{w\ 2028}# - #{mod\ 2030}#)) - (#{f\ 2060}# - (cdr #{forms\ 2061}#))))))) + ((#{f\ 2014}# + (lambda (#{forms\ 2015}#) + (if (null? #{forms\ 2015}#) + (cdr #{body\ 1967}#) + (cons (cons #{er\ 1979}# + (#{wrap\ 449}# + (car #{forms\ 2015}#) + #{w\ 1984}# + #{mod\ 1986}#)) + (#{f\ 2014}# + (cdr #{forms\ 2015}#))))))) (begin - (#{f\ 2060}# - #{e1\ 2057}#))) - #{ids\ 2012}# - #{labels\ 2013}# - #{var-ids\ 2014}# - #{vars\ 2015}# - #{vals\ 2016}# - #{bindings\ 2017}#)) - #{tmp\ 2053}#) + (#{f\ 2014}# + #{e1\ 2011}#))) + #{ids\ 1968}# + #{labels\ 1969}# + #{var-ids\ 1970}# + #{vars\ 1971}# + #{vals\ 1972}# + #{bindings\ 1973}#)) + #{tmp\ 2009}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2052}#)))) - (if (eqv? #{type\ 2025}# + #{tmp\ 2008}#)))) + (if (eqv? #{type\ 1981}# 'local-syntax-form) - (#{chi-local-syntax\ 483}# - #{value\ 2026}# - #{e\ 2027}# - #{er\ 2023}# - #{w\ 2028}# - #{s\ 2029}# - #{mod\ 2030}# - (lambda (#{forms\ 2064}# - #{er\ 2065}# - #{w\ 2066}# - #{s\ 2067}# - #{mod\ 2068}#) - (#{parse\ 2010}# + (#{chi-local-syntax\ 475}# + #{value\ 1982}# + #{e\ 1983}# + #{er\ 1979}# + #{w\ 1984}# + #{s\ 1985}# + #{mod\ 1986}# + (lambda (#{forms\ 2018}# + #{er\ 2019}# + #{w\ 2020}# + #{s\ 2021}# + #{mod\ 2022}#) + (#{parse\ 1966}# (letrec* - ((#{f\ 2076}# - (lambda (#{forms\ 2077}#) - (if (null? #{forms\ 2077}#) - (cdr #{body\ 2011}#) - (cons (cons #{er\ 2065}# - (#{wrap\ 457}# - (car #{forms\ 2077}#) - #{w\ 2066}# - #{mod\ 2068}#)) - (#{f\ 2076}# - (cdr #{forms\ 2077}#))))))) + ((#{f\ 2030}# + (lambda (#{forms\ 2031}#) + (if (null? #{forms\ 2031}#) + (cdr #{body\ 1967}#) + (cons (cons #{er\ 2019}# + (#{wrap\ 449}# + (car #{forms\ 2031}#) + #{w\ 2020}# + #{mod\ 2022}#)) + (#{f\ 2030}# + (cdr #{forms\ 2031}#))))))) (begin - (#{f\ 2076}# - #{forms\ 2064}#))) - #{ids\ 2012}# - #{labels\ 2013}# - #{var-ids\ 2014}# - #{vars\ 2015}# - #{vals\ 2016}# - #{bindings\ 2017}#))) - (if (null? #{ids\ 2012}#) - (#{build-sequence\ 340}# + (#{f\ 2030}# + #{forms\ 2018}#))) + #{ids\ 1968}# + #{labels\ 1969}# + #{var-ids\ 1970}# + #{vars\ 1971}# + #{vals\ 1972}# + #{bindings\ 1973}#))) + (if (null? #{ids\ 1968}#) + (#{build-sequence\ 332}# #f - (map (lambda (#{x\ 2080}#) - (#{chi\ 473}# - (cdr #{x\ 2080}#) - (car #{x\ 2080}#) + (map (lambda (#{x\ 2034}#) + (#{chi\ 465}# + (cdr #{x\ 2034}#) + (car #{x\ 2034}#) '(()) - #{mod\ 2030}#)) - (cons (cons #{er\ 2023}# - (#{source-wrap\ 459}# - #{e\ 2027}# - #{w\ 2028}# - #{s\ 2029}# - #{mod\ 2030}#)) - (cdr #{body\ 2011}#)))) + #{mod\ 1986}#)) + (cons (cons #{er\ 1979}# + (#{source-wrap\ 451}# + #{e\ 1983}# + #{w\ 1984}# + #{s\ 1985}# + #{mod\ 1986}#)) + (cdr #{body\ 1967}#)))) (begin - (if (not (#{valid-bound-ids?\ 451}# - #{ids\ 2012}#)) + (if (not (#{valid-bound-ids?\ 443}# + #{ids\ 1968}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1985}#)) + #{outer-form\ 1941}#)) (letrec* - ((#{loop\ 2087}# - (lambda (#{bs\ 2088}# - #{er-cache\ 2089}# - #{r-cache\ 2090}#) - (if (not (null? #{bs\ 2088}#)) + ((#{loop\ 2041}# + (lambda (#{bs\ 2042}# + #{er-cache\ 2043}# + #{r-cache\ 2044}#) + (if (not (null? #{bs\ 2042}#)) (begin - (let ((#{b\ 2093}# - (car #{bs\ 2088}#))) - (if (eq? (car #{b\ 2093}#) + (let ((#{b\ 2047}# + (car #{bs\ 2042}#))) + (if (eq? (car #{b\ 2047}#) 'macro) (begin - (let ((#{er\ 2096}# - (car (cdr #{b\ 2093}#)))) + (let ((#{er\ 2050}# + (car (cdr #{b\ 2047}#)))) (begin - (let ((#{r-cache\ 2098}# - (if (eq? #{er\ 2096}# - #{er-cache\ 2089}#) - #{r-cache\ 2090}# - (#{macros-only-env\ 380}# - #{er\ 2096}#)))) + (let ((#{r-cache\ 2052}# + (if (eq? #{er\ 2050}# + #{er-cache\ 2043}#) + #{r-cache\ 2044}# + (#{macros-only-env\ 372}# + #{er\ 2050}#)))) (begin (set-cdr! - #{b\ 2093}# - (#{eval-local-transformer\ 485}# - (#{chi\ 473}# - (cdr (cdr #{b\ 2093}#)) - #{r-cache\ 2098}# + #{b\ 2047}# + (#{eval-local-transformer\ 477}# + (#{chi\ 465}# + (cdr (cdr #{b\ 2047}#)) + #{r-cache\ 2052}# '(()) - #{mod\ 2030}#) - #{mod\ 2030}#)) - (#{loop\ 2087}# - (cdr #{bs\ 2088}#) - #{er\ 2096}# - #{r-cache\ 2098}#)))))) - (#{loop\ 2087}# - (cdr #{bs\ 2088}#) - #{er-cache\ 2089}# - #{r-cache\ 2090}#)))))))) + #{mod\ 1986}#) + #{mod\ 1986}#)) + (#{loop\ 2041}# + (cdr #{bs\ 2042}#) + #{er\ 2050}# + #{r-cache\ 2052}#)))))) + (#{loop\ 2041}# + (cdr #{bs\ 2042}#) + #{er-cache\ 2043}# + #{r-cache\ 2044}#)))))))) (begin - (#{loop\ 2087}# - #{bindings\ 2017}# + (#{loop\ 2041}# + #{bindings\ 1973}# #f #f))) (set-cdr! - #{r\ 1996}# - (#{extend-env\ 376}# - #{labels\ 2013}# - #{bindings\ 2017}# - (cdr #{r\ 1996}#))) - (#{build-letrec\ 346}# + #{r\ 1952}# + (#{extend-env\ 368}# + #{labels\ 1969}# + #{bindings\ 1973}# + (cdr #{r\ 1952}#))) + (#{build-letrec\ 338}# #f #t (reverse (map syntax->datum - #{var-ids\ 2014}#)) + #{var-ids\ 1970}#)) (reverse - #{vars\ 2015}#) - (map (lambda (#{x\ 2101}#) - (#{chi\ 473}# - (cdr #{x\ 2101}#) - (car #{x\ 2101}#) + #{vars\ 1971}#) + (map (lambda (#{x\ 2055}#) + (#{chi\ 465}# + (cdr #{x\ 2055}#) + (car #{x\ 2055}#) '(()) - #{mod\ 2030}#)) + #{mod\ 1986}#)) (reverse - #{vals\ 2016}#)) - (#{build-sequence\ 340}# + #{vals\ 1972}#)) + (#{build-sequence\ 332}# #f - (map (lambda (#{x\ 2105}#) - (#{chi\ 473}# - (cdr #{x\ 2105}#) - (car #{x\ 2105}#) + (map (lambda (#{x\ 2059}#) + (#{chi\ 465}# + (cdr #{x\ 2059}#) + (car #{x\ 2059}#) '(()) - #{mod\ 2030}#)) - (cons (cons #{er\ 2023}# - (#{source-wrap\ 459}# - #{e\ 2027}# - #{w\ 2028}# - #{s\ 2029}# - #{mod\ 2030}#)) - (cdr #{body\ 2011}#))))))))))))))))))) + #{mod\ 1986}#)) + (cons (cons #{er\ 1979}# + (#{source-wrap\ 451}# + #{e\ 1983}# + #{w\ 1984}# + #{s\ 1985}# + #{mod\ 1986}#)) + (cdr #{body\ 1967}#))))))))))))))))))) (begin - (#{parse\ 2010}# - (map (lambda (#{x\ 2018}#) - (cons #{r\ 1996}# - (#{wrap\ 457}# - #{x\ 2018}# - #{w\ 2001}# - #{mod\ 1988}#))) - #{body\ 1984}#) + (#{parse\ 1966}# + (map (lambda (#{x\ 1974}#) + (cons #{r\ 1952}# + (#{wrap\ 449}# + #{x\ 1974}# + #{w\ 1957}# + #{mod\ 1944}#))) + #{body\ 1940}#) '() '() '() '() '() '()))))))))))) - (#{chi-local-syntax\ 483}# - (lambda (#{rec?\ 2108}# - #{e\ 2109}# - #{r\ 2110}# - #{w\ 2111}# - #{s\ 2112}# - #{mod\ 2113}# - #{k\ 2114}#) - (let ((#{tmp\ 2122}# #{e\ 2109}#)) - (let ((#{tmp\ 2123}# + (#{chi-local-syntax\ 475}# + (lambda (#{rec?\ 2062}# + #{e\ 2063}# + #{r\ 2064}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2067}# + #{k\ 2068}#) + (let ((#{tmp\ 2076}# #{e\ 2063}#)) + (let ((#{tmp\ 2077}# ($sc-dispatch - #{tmp\ 2122}# - '(any #(each (any any)) any . each-any)))) - (if #{tmp\ 2123}# + #{tmp\ 2076}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp\ 2077}# (@apply - (lambda (#{_\ 2129}# - #{id\ 2130}# - #{val\ 2131}# - #{e1\ 2132}# - #{e2\ 2133}#) + (lambda (#{id\ 2082}# + #{val\ 2083}# + #{e1\ 2084}# + #{e2\ 2085}#) (begin - (let ((#{ids\ 2135}# #{id\ 2130}#)) - (if (not (#{valid-bound-ids?\ 451}# #{ids\ 2135}#)) + (let ((#{ids\ 2087}# #{id\ 2082}#)) + (if (not (#{valid-bound-ids?\ 443}# #{ids\ 2087}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 2109}#) + #{e\ 2063}#) (begin - (let ((#{labels\ 2138}# - (#{gen-labels\ 406}# #{ids\ 2135}#))) + (let ((#{labels\ 2090}# + (#{gen-labels\ 398}# #{ids\ 2087}#))) (begin - (let ((#{new-w\ 2140}# - (#{make-binding-wrap\ 435}# - #{ids\ 2135}# - #{labels\ 2138}# - #{w\ 2111}#))) - (#{k\ 2114}# - (cons #{e1\ 2132}# #{e2\ 2133}#) - (#{extend-env\ 376}# - #{labels\ 2138}# + (let ((#{new-w\ 2092}# + (#{make-binding-wrap\ 427}# + #{ids\ 2087}# + #{labels\ 2090}# + #{w\ 2065}#))) + (#{k\ 2068}# + (cons #{e1\ 2084}# #{e2\ 2085}#) + (#{extend-env\ 368}# + #{labels\ 2090}# (begin - (let ((#{w\ 2144}# - (if #{rec?\ 2108}# - #{new-w\ 2140}# - #{w\ 2111}#)) - (#{trans-r\ 2145}# - (#{macros-only-env\ 380}# - #{r\ 2110}#))) - (map (lambda (#{x\ 2146}#) + (let ((#{w\ 2096}# + (if #{rec?\ 2062}# + #{new-w\ 2092}# + #{w\ 2065}#)) + (#{trans-r\ 2097}# + (#{macros-only-env\ 372}# + #{r\ 2064}#))) + (map (lambda (#{x\ 2098}#) (cons 'macro - (#{eval-local-transformer\ 485}# - (#{chi\ 473}# - #{x\ 2146}# - #{trans-r\ 2145}# - #{w\ 2144}# - #{mod\ 2113}#) - #{mod\ 2113}#))) - #{val\ 2131}#))) - #{r\ 2110}#) - #{new-w\ 2140}# - #{s\ 2112}# - #{mod\ 2113}#))))))))) - #{tmp\ 2123}#) - (let ((#{_\ 2151}# #{tmp\ 2122}#)) + (#{eval-local-transformer\ 477}# + (#{chi\ 465}# + #{x\ 2098}# + #{trans-r\ 2097}# + #{w\ 2096}# + #{mod\ 2067}#) + #{mod\ 2067}#))) + #{val\ 2083}#))) + #{r\ 2064}#) + #{new-w\ 2092}# + #{s\ 2066}# + #{mod\ 2067}#))))))))) + #{tmp\ 2077}#) + (let ((#{_\ 2103}# #{tmp\ 2076}#)) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 459}# - #{e\ 2109}# - #{w\ 2111}# - #{s\ 2112}# - #{mod\ 2113}#)))))))) - (#{eval-local-transformer\ 485}# - (lambda (#{expanded\ 2152}# #{mod\ 2153}#) + (#{source-wrap\ 451}# + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2067}#)))))))) + (#{eval-local-transformer\ 477}# + (lambda (#{expanded\ 2104}# #{mod\ 2105}#) (begin - (let ((#{p\ 2157}# - (#{local-eval-hook\ 299}# - #{expanded\ 2152}# - #{mod\ 2153}#))) - (if (procedure? #{p\ 2157}#) - #{p\ 2157}# + (let ((#{p\ 2109}# + (#{local-eval-hook\ 291}# + #{expanded\ 2104}# + #{mod\ 2105}#))) + (if (procedure? #{p\ 2109}#) + #{p\ 2109}# (syntax-violation #f "nonprocedure transformer" - #{p\ 2157}#)))))) - (#{chi-void\ 487}# - (lambda () (#{build-void\ 310}# #f))) - (#{ellipsis?\ 489}# - (lambda (#{x\ 2159}#) - (if (#{nonsymbol-id?\ 386}# #{x\ 2159}#) - (#{free-id=?\ 447}# - #{x\ 2159}# + #{p\ 2109}#)))))) + (#{chi-void\ 479}# + (lambda () (#{build-void\ 302}# #f))) + (#{ellipsis?\ 481}# + (lambda (#{x\ 2111}#) + (if (#{nonsymbol-id?\ 378}# #{x\ 2111}#) + (#{free-id=?\ 439}# + #{x\ 2111}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2160")) + #(ribcage #(x) #((top)) #("i2112")) #(ribcage (lambda-var-list gen-var @@ -6511,6 +6506,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -6777,11 +6773,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -6814,50 +6808,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -6887,20 +6881,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -6914,7 +6908,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -6924,271 +6922,706 @@ ("i39" "i38" "i37" "i35"))) (hygiene guile))) #f))) - (#{lambda-formals\ 491}# - (lambda (#{orig-args\ 2163}#) + (#{underscore?\ 483}# + (lambda (#{x\ 2115}#) + (if (#{nonsymbol-id?\ 378}# #{x\ 2115}#) + (#{free-id=?\ 439}# + #{x\ 2115}# + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2116")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + underscore? + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + 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) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i423" + "i422" + "i420" + "i419" + "i418" + "i417" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i397" + "i395" + "i394" + "i393" + "i392" + "i391" + "i390" + "i388" + "i386" + "i384" + "i382" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" + "i366" + "i364" + "i362" + "i361" + "i360" + "i358" + "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" + "i293" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i39" "i38" "i37" "i35"))) + (hygiene guile))) + #f))) + (#{lambda-formals\ 485}# + (lambda (#{orig-args\ 2119}#) (letrec* - ((#{req\ 2166}# - (lambda (#{args\ 2169}# #{rreq\ 2170}#) - (let ((#{tmp\ 2173}# #{args\ 2169}#)) - (let ((#{tmp\ 2174}# - ($sc-dispatch #{tmp\ 2173}# (quote ())))) - (if #{tmp\ 2174}# + ((#{req\ 2122}# + (lambda (#{args\ 2125}# #{rreq\ 2126}#) + (let ((#{tmp\ 2129}# #{args\ 2125}#)) + (let ((#{tmp\ 2130}# + ($sc-dispatch #{tmp\ 2129}# (quote ())))) + (if #{tmp\ 2130}# (@apply (lambda () - (#{check\ 2168}# (reverse #{rreq\ 2170}#) #f)) - #{tmp\ 2174}#) - (let ((#{tmp\ 2175}# + (#{check\ 2124}# (reverse #{rreq\ 2126}#) #f)) + #{tmp\ 2130}#) + (let ((#{tmp\ 2131}# ($sc-dispatch - #{tmp\ 2173}# + #{tmp\ 2129}# '(any . any)))) - (if (if #{tmp\ 2175}# + (if (if #{tmp\ 2131}# (@apply - (lambda (#{a\ 2178}# #{b\ 2179}#) - (#{id?\ 388}# #{a\ 2178}#)) - #{tmp\ 2175}#) + (lambda (#{a\ 2134}# #{b\ 2135}#) + (#{id?\ 380}# #{a\ 2134}#)) + #{tmp\ 2131}#) #f) (@apply - (lambda (#{a\ 2182}# #{b\ 2183}#) - (#{req\ 2166}# - #{b\ 2183}# - (cons #{a\ 2182}# #{rreq\ 2170}#))) - #{tmp\ 2175}#) - (let ((#{tmp\ 2184}# (list #{tmp\ 2173}#))) - (if (if #{tmp\ 2184}# + (lambda (#{a\ 2138}# #{b\ 2139}#) + (#{req\ 2122}# + #{b\ 2139}# + (cons #{a\ 2138}# #{rreq\ 2126}#))) + #{tmp\ 2131}#) + (let ((#{tmp\ 2140}# (list #{tmp\ 2129}#))) + (if (if #{tmp\ 2140}# (@apply - (lambda (#{r\ 2186}#) - (#{id?\ 388}# #{r\ 2186}#)) - #{tmp\ 2184}#) + (lambda (#{r\ 2142}#) + (#{id?\ 380}# #{r\ 2142}#)) + #{tmp\ 2140}#) #f) (@apply - (lambda (#{r\ 2188}#) - (#{check\ 2168}# - (reverse #{rreq\ 2170}#) - #{r\ 2188}#)) - #{tmp\ 2184}#) - (let ((#{else\ 2190}# #{tmp\ 2173}#)) + (lambda (#{r\ 2144}#) + (#{check\ 2124}# + (reverse #{rreq\ 2126}#) + #{r\ 2144}#)) + #{tmp\ 2140}#) + (let ((#{else\ 2146}# #{tmp\ 2129}#)) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 2163}# - #{args\ 2169}#))))))))))) - (#{check\ 2168}# - (lambda (#{req\ 2191}# #{rest\ 2192}#) - (if (#{distinct-bound-ids?\ 453}# - (if #{rest\ 2192}# - (cons #{rest\ 2192}# #{req\ 2191}#) - #{req\ 2191}#)) - (values #{req\ 2191}# #f #{rest\ 2192}# #f) + #{orig-args\ 2119}# + #{args\ 2125}#))))))))))) + (#{check\ 2124}# + (lambda (#{req\ 2147}# #{rest\ 2148}#) + (if (#{distinct-bound-ids?\ 445}# + (if #{rest\ 2148}# + (cons #{rest\ 2148}# #{req\ 2147}#) + #{req\ 2147}#)) + (values #{req\ 2147}# #f #{rest\ 2148}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 2163}#))))) + #{orig-args\ 2119}#))))) (begin - (#{req\ 2166}# #{orig-args\ 2163}# (quote ())))))) - (#{chi-simple-lambda\ 493}# - (lambda (#{e\ 2198}# - #{r\ 2199}# - #{w\ 2200}# - #{s\ 2201}# - #{mod\ 2202}# - #{req\ 2203}# - #{rest\ 2204}# - #{meta\ 2205}# - #{body\ 2206}#) + (#{req\ 2122}# #{orig-args\ 2119}# (quote ())))))) + (#{chi-simple-lambda\ 487}# + (lambda (#{e\ 2154}# + #{r\ 2155}# + #{w\ 2156}# + #{s\ 2157}# + #{mod\ 2158}# + #{req\ 2159}# + #{rest\ 2160}# + #{meta\ 2161}# + #{body\ 2162}#) (begin - (let ((#{ids\ 2218}# - (if #{rest\ 2204}# - (append #{req\ 2203}# (list #{rest\ 2204}#)) - #{req\ 2203}#))) + (let ((#{ids\ 2174}# + (if #{rest\ 2160}# + (append #{req\ 2159}# (list #{rest\ 2160}#)) + #{req\ 2159}#))) (begin - (let ((#{vars\ 2220}# - (map #{gen-var\ 501}# #{ids\ 2218}#))) + (let ((#{vars\ 2176}# + (map #{gen-var\ 495}# #{ids\ 2174}#))) (begin - (let ((#{labels\ 2222}# - (#{gen-labels\ 406}# #{ids\ 2218}#))) - (#{build-simple-lambda\ 330}# - #{s\ 2201}# - (map syntax->datum #{req\ 2203}#) - (if #{rest\ 2204}# - (syntax->datum #{rest\ 2204}#) + (let ((#{labels\ 2178}# + (#{gen-labels\ 398}# #{ids\ 2174}#))) + (#{build-simple-lambda\ 322}# + #{s\ 2157}# + (map syntax->datum #{req\ 2159}#) + (if #{rest\ 2160}# + (syntax->datum #{rest\ 2160}#) #f) - #{vars\ 2220}# - #{meta\ 2205}# - (#{chi-body\ 481}# - #{body\ 2206}# - (#{source-wrap\ 459}# - #{e\ 2198}# - #{w\ 2200}# - #{s\ 2201}# - #{mod\ 2202}#) - (#{extend-var-env\ 378}# - #{labels\ 2222}# - #{vars\ 2220}# - #{r\ 2199}#) - (#{make-binding-wrap\ 435}# - #{ids\ 2218}# - #{labels\ 2222}# - #{w\ 2200}#) - #{mod\ 2202}#)))))))))) - (#{lambda*-formals\ 495}# - (lambda (#{orig-args\ 2225}#) + #{vars\ 2176}# + #{meta\ 2161}# + (#{chi-body\ 473}# + #{body\ 2162}# + (#{source-wrap\ 451}# + #{e\ 2154}# + #{w\ 2156}# + #{s\ 2157}# + #{mod\ 2158}#) + (#{extend-var-env\ 370}# + #{labels\ 2178}# + #{vars\ 2176}# + #{r\ 2155}#) + (#{make-binding-wrap\ 427}# + #{ids\ 2174}# + #{labels\ 2178}# + #{w\ 2156}#) + #{mod\ 2158}#)))))))))) + (#{lambda*-formals\ 489}# + (lambda (#{orig-args\ 2181}#) (letrec* - ((#{req\ 2228}# - (lambda (#{args\ 2237}# #{rreq\ 2238}#) - (let ((#{tmp\ 2241}# #{args\ 2237}#)) - (let ((#{tmp\ 2242}# - ($sc-dispatch #{tmp\ 2241}# (quote ())))) - (if #{tmp\ 2242}# + ((#{req\ 2184}# + (lambda (#{args\ 2193}# #{rreq\ 2194}#) + (let ((#{tmp\ 2197}# #{args\ 2193}#)) + (let ((#{tmp\ 2198}# + ($sc-dispatch #{tmp\ 2197}# (quote ())))) + (if #{tmp\ 2198}# (@apply (lambda () - (#{check\ 2236}# - (reverse #{rreq\ 2238}#) + (#{check\ 2192}# + (reverse #{rreq\ 2194}#) '() #f '())) - #{tmp\ 2242}#) - (let ((#{tmp\ 2243}# + #{tmp\ 2198}#) + (let ((#{tmp\ 2199}# ($sc-dispatch - #{tmp\ 2241}# + #{tmp\ 2197}# '(any . any)))) - (if (if #{tmp\ 2243}# + (if (if #{tmp\ 2199}# (@apply - (lambda (#{a\ 2246}# #{b\ 2247}#) - (#{id?\ 388}# #{a\ 2246}#)) - #{tmp\ 2243}#) + (lambda (#{a\ 2202}# #{b\ 2203}#) + (#{id?\ 380}# #{a\ 2202}#)) + #{tmp\ 2199}#) #f) (@apply - (lambda (#{a\ 2250}# #{b\ 2251}#) - (#{req\ 2228}# - #{b\ 2251}# - (cons #{a\ 2250}# #{rreq\ 2238}#))) - #{tmp\ 2243}#) - (let ((#{tmp\ 2252}# + (lambda (#{a\ 2206}# #{b\ 2207}#) + (#{req\ 2184}# + #{b\ 2207}# + (cons #{a\ 2206}# #{rreq\ 2194}#))) + #{tmp\ 2199}#) + (let ((#{tmp\ 2208}# ($sc-dispatch - #{tmp\ 2241}# + #{tmp\ 2197}# '(any . any)))) - (if (if #{tmp\ 2252}# + (if (if #{tmp\ 2208}# (@apply - (lambda (#{a\ 2255}# #{b\ 2256}#) - (eq? (syntax->datum #{a\ 2255}#) + (lambda (#{a\ 2211}# #{b\ 2212}#) + (eq? (syntax->datum #{a\ 2211}#) #:optional)) - #{tmp\ 2252}#) + #{tmp\ 2208}#) #f) (@apply - (lambda (#{a\ 2259}# #{b\ 2260}#) - (#{opt\ 2230}# - #{b\ 2260}# - (reverse #{rreq\ 2238}#) + (lambda (#{a\ 2215}# #{b\ 2216}#) + (#{opt\ 2186}# + #{b\ 2216}# + (reverse #{rreq\ 2194}#) '())) - #{tmp\ 2252}#) - (let ((#{tmp\ 2261}# + #{tmp\ 2208}#) + (let ((#{tmp\ 2217}# ($sc-dispatch - #{tmp\ 2241}# + #{tmp\ 2197}# '(any . any)))) - (if (if #{tmp\ 2261}# + (if (if #{tmp\ 2217}# (@apply - (lambda (#{a\ 2264}# #{b\ 2265}#) - (eq? (syntax->datum #{a\ 2264}#) + (lambda (#{a\ 2220}# #{b\ 2221}#) + (eq? (syntax->datum #{a\ 2220}#) #:key)) - #{tmp\ 2261}#) + #{tmp\ 2217}#) #f) (@apply - (lambda (#{a\ 2268}# #{b\ 2269}#) - (#{key\ 2232}# - #{b\ 2269}# - (reverse #{rreq\ 2238}#) + (lambda (#{a\ 2224}# #{b\ 2225}#) + (#{key\ 2188}# + #{b\ 2225}# + (reverse #{rreq\ 2194}#) '() '())) - #{tmp\ 2261}#) - (let ((#{tmp\ 2270}# + #{tmp\ 2217}#) + (let ((#{tmp\ 2226}# ($sc-dispatch - #{tmp\ 2241}# + #{tmp\ 2197}# '(any any)))) - (if (if #{tmp\ 2270}# + (if (if #{tmp\ 2226}# (@apply - (lambda (#{a\ 2273}# - #{b\ 2274}#) + (lambda (#{a\ 2229}# + #{b\ 2230}#) (eq? (syntax->datum - #{a\ 2273}#) + #{a\ 2229}#) #:rest)) - #{tmp\ 2270}#) + #{tmp\ 2226}#) #f) (@apply - (lambda (#{a\ 2277}# #{b\ 2278}#) - (#{rest\ 2234}# - #{b\ 2278}# - (reverse #{rreq\ 2238}#) + (lambda (#{a\ 2233}# #{b\ 2234}#) + (#{rest\ 2190}# + #{b\ 2234}# + (reverse #{rreq\ 2194}#) '() '())) - #{tmp\ 2270}#) - (let ((#{tmp\ 2279}# - (list #{tmp\ 2241}#))) - (if (if #{tmp\ 2279}# + #{tmp\ 2226}#) + (let ((#{tmp\ 2235}# + (list #{tmp\ 2197}#))) + (if (if #{tmp\ 2235}# (@apply - (lambda (#{r\ 2281}#) - (#{id?\ 388}# - #{r\ 2281}#)) - #{tmp\ 2279}#) + (lambda (#{r\ 2237}#) + (#{id?\ 380}# + #{r\ 2237}#)) + #{tmp\ 2235}#) #f) (@apply - (lambda (#{r\ 2283}#) - (#{rest\ 2234}# - #{r\ 2283}# - (reverse #{rreq\ 2238}#) + (lambda (#{r\ 2239}#) + (#{rest\ 2190}# + #{r\ 2239}# + (reverse #{rreq\ 2194}#) '() '())) - #{tmp\ 2279}#) - (let ((#{else\ 2285}# - #{tmp\ 2241}#)) + #{tmp\ 2235}#) + (let ((#{else\ 2241}# + #{tmp\ 2197}#)) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 2225}# - #{args\ 2237}#))))))))))))))))) - (#{opt\ 2230}# - (lambda (#{args\ 2286}# #{req\ 2287}# #{ropt\ 2288}#) - (let ((#{tmp\ 2292}# #{args\ 2286}#)) - (let ((#{tmp\ 2293}# - ($sc-dispatch #{tmp\ 2292}# (quote ())))) - (if #{tmp\ 2293}# + #{orig-args\ 2181}# + #{args\ 2193}#))))))))))))))))) + (#{opt\ 2186}# + (lambda (#{args\ 2242}# #{req\ 2243}# #{ropt\ 2244}#) + (let ((#{tmp\ 2248}# #{args\ 2242}#)) + (let ((#{tmp\ 2249}# + ($sc-dispatch #{tmp\ 2248}# (quote ())))) + (if #{tmp\ 2249}# (@apply (lambda () - (#{check\ 2236}# - #{req\ 2287}# - (reverse #{ropt\ 2288}#) + (#{check\ 2192}# + #{req\ 2243}# + (reverse #{ropt\ 2244}#) #f '())) - #{tmp\ 2293}#) - (let ((#{tmp\ 2294}# + #{tmp\ 2249}#) + (let ((#{tmp\ 2250}# ($sc-dispatch - #{tmp\ 2292}# + #{tmp\ 2248}# '(any . any)))) - (if (if #{tmp\ 2294}# + (if (if #{tmp\ 2250}# (@apply - (lambda (#{a\ 2297}# #{b\ 2298}#) - (#{id?\ 388}# #{a\ 2297}#)) - #{tmp\ 2294}#) + (lambda (#{a\ 2253}# #{b\ 2254}#) + (#{id?\ 380}# #{a\ 2253}#)) + #{tmp\ 2250}#) #f) (@apply - (lambda (#{a\ 2301}# #{b\ 2302}#) - (#{opt\ 2230}# - #{b\ 2302}# - #{req\ 2287}# - (cons (cons #{a\ 2301}# + (lambda (#{a\ 2257}# #{b\ 2258}#) + (#{opt\ 2186}# + #{b\ 2258}# + #{req\ 2243}# + (cons (cons #{a\ 2257}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2299" "i2300")) + #("i2255" "i2256")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2289" - "i2290" - "i2291")) + #("i2245" + "i2246" + "i2247")) #(ribcage (check rest key opt req) ((top) @@ -7196,15 +7629,15 @@ (top) (top) (top)) - ("i2235" - "i2233" - "i2231" - "i2229" - "i2227")) + ("i2191" + "i2189" + "i2187" + "i2185" + "i2183")) #(ribcage #(orig-args) #((top)) - #("i2226")) + #("i2182")) #(ribcage (lambda-var-list gen-var @@ -7213,6 +7646,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -7479,11 +7913,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -7516,50 +7948,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -7589,20 +8021,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -7616,7 +8048,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -7631,145 +8067,145 @@ "i37" "i35"))) (hygiene guile)))) - #{ropt\ 2288}#))) - #{tmp\ 2294}#) - (let ((#{tmp\ 2303}# + #{ropt\ 2244}#))) + #{tmp\ 2250}#) + (let ((#{tmp\ 2259}# ($sc-dispatch - #{tmp\ 2292}# + #{tmp\ 2248}# '((any any) . any)))) - (if (if #{tmp\ 2303}# + (if (if #{tmp\ 2259}# (@apply - (lambda (#{a\ 2307}# - #{init\ 2308}# - #{b\ 2309}#) - (#{id?\ 388}# #{a\ 2307}#)) - #{tmp\ 2303}#) + (lambda (#{a\ 2263}# + #{init\ 2264}# + #{b\ 2265}#) + (#{id?\ 380}# #{a\ 2263}#)) + #{tmp\ 2259}#) #f) (@apply - (lambda (#{a\ 2313}# - #{init\ 2314}# - #{b\ 2315}#) - (#{opt\ 2230}# - #{b\ 2315}# - #{req\ 2287}# - (cons (list #{a\ 2313}# #{init\ 2314}#) - #{ropt\ 2288}#))) - #{tmp\ 2303}#) - (let ((#{tmp\ 2316}# + (lambda (#{a\ 2269}# + #{init\ 2270}# + #{b\ 2271}#) + (#{opt\ 2186}# + #{b\ 2271}# + #{req\ 2243}# + (cons (list #{a\ 2269}# #{init\ 2270}#) + #{ropt\ 2244}#))) + #{tmp\ 2259}#) + (let ((#{tmp\ 2272}# ($sc-dispatch - #{tmp\ 2292}# + #{tmp\ 2248}# '(any . any)))) - (if (if #{tmp\ 2316}# + (if (if #{tmp\ 2272}# (@apply - (lambda (#{a\ 2319}# #{b\ 2320}#) - (eq? (syntax->datum #{a\ 2319}#) + (lambda (#{a\ 2275}# #{b\ 2276}#) + (eq? (syntax->datum #{a\ 2275}#) #:key)) - #{tmp\ 2316}#) + #{tmp\ 2272}#) #f) (@apply - (lambda (#{a\ 2323}# #{b\ 2324}#) - (#{key\ 2232}# - #{b\ 2324}# - #{req\ 2287}# - (reverse #{ropt\ 2288}#) + (lambda (#{a\ 2279}# #{b\ 2280}#) + (#{key\ 2188}# + #{b\ 2280}# + #{req\ 2243}# + (reverse #{ropt\ 2244}#) '())) - #{tmp\ 2316}#) - (let ((#{tmp\ 2325}# + #{tmp\ 2272}#) + (let ((#{tmp\ 2281}# ($sc-dispatch - #{tmp\ 2292}# + #{tmp\ 2248}# '(any any)))) - (if (if #{tmp\ 2325}# + (if (if #{tmp\ 2281}# (@apply - (lambda (#{a\ 2328}# - #{b\ 2329}#) + (lambda (#{a\ 2284}# + #{b\ 2285}#) (eq? (syntax->datum - #{a\ 2328}#) + #{a\ 2284}#) #:rest)) - #{tmp\ 2325}#) + #{tmp\ 2281}#) #f) (@apply - (lambda (#{a\ 2332}# #{b\ 2333}#) - (#{rest\ 2234}# - #{b\ 2333}# - #{req\ 2287}# - (reverse #{ropt\ 2288}#) + (lambda (#{a\ 2288}# #{b\ 2289}#) + (#{rest\ 2190}# + #{b\ 2289}# + #{req\ 2243}# + (reverse #{ropt\ 2244}#) '())) - #{tmp\ 2325}#) - (let ((#{tmp\ 2334}# - (list #{tmp\ 2292}#))) - (if (if #{tmp\ 2334}# + #{tmp\ 2281}#) + (let ((#{tmp\ 2290}# + (list #{tmp\ 2248}#))) + (if (if #{tmp\ 2290}# (@apply - (lambda (#{r\ 2336}#) - (#{id?\ 388}# - #{r\ 2336}#)) - #{tmp\ 2334}#) + (lambda (#{r\ 2292}#) + (#{id?\ 380}# + #{r\ 2292}#)) + #{tmp\ 2290}#) #f) (@apply - (lambda (#{r\ 2338}#) - (#{rest\ 2234}# - #{r\ 2338}# - #{req\ 2287}# - (reverse #{ropt\ 2288}#) + (lambda (#{r\ 2294}#) + (#{rest\ 2190}# + #{r\ 2294}# + #{req\ 2243}# + (reverse #{ropt\ 2244}#) '())) - #{tmp\ 2334}#) - (let ((#{else\ 2340}# - #{tmp\ 2292}#)) + #{tmp\ 2290}#) + (let ((#{else\ 2296}# + #{tmp\ 2248}#)) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 2225}# - #{args\ 2286}#))))))))))))))))) - (#{key\ 2232}# - (lambda (#{args\ 2341}# - #{req\ 2342}# - #{opt\ 2343}# - #{rkey\ 2344}#) - (let ((#{tmp\ 2349}# #{args\ 2341}#)) - (let ((#{tmp\ 2350}# - ($sc-dispatch #{tmp\ 2349}# (quote ())))) - (if #{tmp\ 2350}# + #{orig-args\ 2181}# + #{args\ 2242}#))))))))))))))))) + (#{key\ 2188}# + (lambda (#{args\ 2297}# + #{req\ 2298}# + #{opt\ 2299}# + #{rkey\ 2300}#) + (let ((#{tmp\ 2305}# #{args\ 2297}#)) + (let ((#{tmp\ 2306}# + ($sc-dispatch #{tmp\ 2305}# (quote ())))) + (if #{tmp\ 2306}# (@apply (lambda () - (#{check\ 2236}# - #{req\ 2342}# - #{opt\ 2343}# + (#{check\ 2192}# + #{req\ 2298}# + #{opt\ 2299}# #f - (cons #f (reverse #{rkey\ 2344}#)))) - #{tmp\ 2350}#) - (let ((#{tmp\ 2351}# + (cons #f (reverse #{rkey\ 2300}#)))) + #{tmp\ 2306}#) + (let ((#{tmp\ 2307}# ($sc-dispatch - #{tmp\ 2349}# + #{tmp\ 2305}# '(any . any)))) - (if (if #{tmp\ 2351}# + (if (if #{tmp\ 2307}# (@apply - (lambda (#{a\ 2354}# #{b\ 2355}#) - (#{id?\ 388}# #{a\ 2354}#)) - #{tmp\ 2351}#) + (lambda (#{a\ 2310}# #{b\ 2311}#) + (#{id?\ 380}# #{a\ 2310}#)) + #{tmp\ 2307}#) #f) (@apply - (lambda (#{a\ 2358}# #{b\ 2359}#) - (let ((#{tmp\ 2361}# + (lambda (#{a\ 2314}# #{b\ 2315}#) + (let ((#{tmp\ 2317}# (symbol->keyword - (syntax->datum #{a\ 2358}#)))) - (let ((#{k\ 2363}# #{tmp\ 2361}#)) - (#{key\ 2232}# - #{b\ 2359}# - #{req\ 2342}# - #{opt\ 2343}# - (cons (cons #{k\ 2363}# - (cons #{a\ 2358}# + (syntax->datum #{a\ 2314}#)))) + (let ((#{k\ 2319}# #{tmp\ 2317}#)) + (#{key\ 2188}# + #{b\ 2315}# + #{req\ 2298}# + #{opt\ 2299}# + (cons (cons #{k\ 2319}# + (cons #{a\ 2314}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i2362")) + #("i2318")) #(ribcage #(a b) #((top) (top)) - #("i2356" - "i2357")) + #("i2312" + "i2313")) #(ribcage () () @@ -7783,10 +8219,10 @@ (top) (top) (top)) - #("i2345" - "i2346" - "i2347" - "i2348")) + #("i2301" + "i2302" + "i2303" + "i2304")) #(ribcage (check rest key @@ -7797,15 +8233,15 @@ (top) (top) (top)) - ("i2235" - "i2233" - "i2231" - "i2229" - "i2227")) + ("i2191" + "i2189" + "i2187" + "i2185" + "i2183")) #(ribcage #(orig-args) #((top)) - #("i2226")) + #("i2182")) #(ribcage (lambda-var-list gen-var @@ -7814,6 +8250,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -8080,11 +8517,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -8117,50 +8552,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -8190,20 +8625,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -8217,7 +8652,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -8233,2083 +8672,2062 @@ "i35"))) (hygiene guile))))) - #{rkey\ 2344}#))))) - #{tmp\ 2351}#) - (let ((#{tmp\ 2364}# + #{rkey\ 2300}#))))) + #{tmp\ 2307}#) + (let ((#{tmp\ 2320}# ($sc-dispatch - #{tmp\ 2349}# + #{tmp\ 2305}# '((any any) . any)))) - (if (if #{tmp\ 2364}# + (if (if #{tmp\ 2320}# (@apply - (lambda (#{a\ 2368}# - #{init\ 2369}# - #{b\ 2370}#) - (#{id?\ 388}# #{a\ 2368}#)) - #{tmp\ 2364}#) + (lambda (#{a\ 2324}# + #{init\ 2325}# + #{b\ 2326}#) + (#{id?\ 380}# #{a\ 2324}#)) + #{tmp\ 2320}#) #f) (@apply - (lambda (#{a\ 2374}# - #{init\ 2375}# - #{b\ 2376}#) - (let ((#{tmp\ 2378}# + (lambda (#{a\ 2330}# + #{init\ 2331}# + #{b\ 2332}#) + (let ((#{tmp\ 2334}# (symbol->keyword - (syntax->datum #{a\ 2374}#)))) - (let ((#{k\ 2380}# #{tmp\ 2378}#)) - (#{key\ 2232}# - #{b\ 2376}# - #{req\ 2342}# - #{opt\ 2343}# - (cons (list #{k\ 2380}# - #{a\ 2374}# - #{init\ 2375}#) - #{rkey\ 2344}#))))) - #{tmp\ 2364}#) - (let ((#{tmp\ 2381}# + (syntax->datum #{a\ 2330}#)))) + (let ((#{k\ 2336}# #{tmp\ 2334}#)) + (#{key\ 2188}# + #{b\ 2332}# + #{req\ 2298}# + #{opt\ 2299}# + (cons (list #{k\ 2336}# + #{a\ 2330}# + #{init\ 2331}#) + #{rkey\ 2300}#))))) + #{tmp\ 2320}#) + (let ((#{tmp\ 2337}# ($sc-dispatch - #{tmp\ 2349}# + #{tmp\ 2305}# '((any any any) . any)))) - (if (if #{tmp\ 2381}# + (if (if #{tmp\ 2337}# (@apply - (lambda (#{a\ 2386}# - #{init\ 2387}# - #{k\ 2388}# - #{b\ 2389}#) - (if (#{id?\ 388}# #{a\ 2386}#) + (lambda (#{a\ 2342}# + #{init\ 2343}# + #{k\ 2344}# + #{b\ 2345}#) + (if (#{id?\ 380}# #{a\ 2342}#) (keyword? - (syntax->datum #{k\ 2388}#)) + (syntax->datum #{k\ 2344}#)) #f)) - #{tmp\ 2381}#) + #{tmp\ 2337}#) #f) (@apply - (lambda (#{a\ 2396}# - #{init\ 2397}# - #{k\ 2398}# - #{b\ 2399}#) - (#{key\ 2232}# - #{b\ 2399}# - #{req\ 2342}# - #{opt\ 2343}# - (cons (list #{k\ 2398}# - #{a\ 2396}# - #{init\ 2397}#) - #{rkey\ 2344}#))) - #{tmp\ 2381}#) - (let ((#{tmp\ 2400}# + (lambda (#{a\ 2352}# + #{init\ 2353}# + #{k\ 2354}# + #{b\ 2355}#) + (#{key\ 2188}# + #{b\ 2355}# + #{req\ 2298}# + #{opt\ 2299}# + (cons (list #{k\ 2354}# + #{a\ 2352}# + #{init\ 2353}#) + #{rkey\ 2300}#))) + #{tmp\ 2337}#) + (let ((#{tmp\ 2356}# ($sc-dispatch - #{tmp\ 2349}# + #{tmp\ 2305}# '(any)))) - (if (if #{tmp\ 2400}# + (if (if #{tmp\ 2356}# (@apply - (lambda (#{aok\ 2402}#) + (lambda (#{aok\ 2358}#) (eq? (syntax->datum - #{aok\ 2402}#) + #{aok\ 2358}#) #:allow-other-keys)) - #{tmp\ 2400}#) + #{tmp\ 2356}#) #f) (@apply - (lambda (#{aok\ 2404}#) - (#{check\ 2236}# - #{req\ 2342}# - #{opt\ 2343}# + (lambda (#{aok\ 2360}#) + (#{check\ 2192}# + #{req\ 2298}# + #{opt\ 2299}# #f (cons #t (reverse - #{rkey\ 2344}#)))) - #{tmp\ 2400}#) - (let ((#{tmp\ 2405}# + #{rkey\ 2300}#)))) + #{tmp\ 2356}#) + (let ((#{tmp\ 2361}# ($sc-dispatch - #{tmp\ 2349}# + #{tmp\ 2305}# '(any any any)))) - (if (if #{tmp\ 2405}# + (if (if #{tmp\ 2361}# (@apply - (lambda (#{aok\ 2409}# - #{a\ 2410}# - #{b\ 2411}#) + (lambda (#{aok\ 2365}# + #{a\ 2366}# + #{b\ 2367}#) (if (eq? (syntax->datum - #{aok\ 2409}#) + #{aok\ 2365}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 2410}#) + #{a\ 2366}#) #:rest) #f)) - #{tmp\ 2405}#) + #{tmp\ 2361}#) #f) (@apply - (lambda (#{aok\ 2417}# - #{a\ 2418}# - #{b\ 2419}#) - (#{rest\ 2234}# - #{b\ 2419}# - #{req\ 2342}# - #{opt\ 2343}# + (lambda (#{aok\ 2373}# + #{a\ 2374}# + #{b\ 2375}#) + (#{rest\ 2190}# + #{b\ 2375}# + #{req\ 2298}# + #{opt\ 2299}# (cons #t (reverse - #{rkey\ 2344}#)))) - #{tmp\ 2405}#) - (let ((#{tmp\ 2420}# + #{rkey\ 2300}#)))) + #{tmp\ 2361}#) + (let ((#{tmp\ 2376}# ($sc-dispatch - #{tmp\ 2349}# + #{tmp\ 2305}# '(any . any)))) - (if (if #{tmp\ 2420}# + (if (if #{tmp\ 2376}# (@apply - (lambda (#{aok\ 2423}# - #{r\ 2424}#) + (lambda (#{aok\ 2379}# + #{r\ 2380}#) (if (eq? (syntax->datum - #{aok\ 2423}#) + #{aok\ 2379}#) #:allow-other-keys) - (#{id?\ 388}# - #{r\ 2424}#) + (#{id?\ 380}# + #{r\ 2380}#) #f)) - #{tmp\ 2420}#) + #{tmp\ 2376}#) #f) (@apply - (lambda (#{aok\ 2429}# - #{r\ 2430}#) - (#{rest\ 2234}# - #{r\ 2430}# - #{req\ 2342}# - #{opt\ 2343}# + (lambda (#{aok\ 2385}# + #{r\ 2386}#) + (#{rest\ 2190}# + #{r\ 2386}# + #{req\ 2298}# + #{opt\ 2299}# (cons #t (reverse - #{rkey\ 2344}#)))) - #{tmp\ 2420}#) - (let ((#{tmp\ 2431}# + #{rkey\ 2300}#)))) + #{tmp\ 2376}#) + (let ((#{tmp\ 2387}# ($sc-dispatch - #{tmp\ 2349}# + #{tmp\ 2305}# '(any any)))) - (if (if #{tmp\ 2431}# + (if (if #{tmp\ 2387}# (@apply - (lambda (#{a\ 2434}# - #{b\ 2435}#) + (lambda (#{a\ 2390}# + #{b\ 2391}#) (eq? (syntax->datum - #{a\ 2434}#) + #{a\ 2390}#) #:rest)) - #{tmp\ 2431}#) + #{tmp\ 2387}#) #f) (@apply - (lambda (#{a\ 2438}# - #{b\ 2439}#) - (#{rest\ 2234}# - #{b\ 2439}# - #{req\ 2342}# - #{opt\ 2343}# + (lambda (#{a\ 2394}# + #{b\ 2395}#) + (#{rest\ 2190}# + #{b\ 2395}# + #{req\ 2298}# + #{opt\ 2299}# (cons #f (reverse - #{rkey\ 2344}#)))) - #{tmp\ 2431}#) - (let ((#{tmp\ 2440}# - (list #{tmp\ 2349}#))) - (if (if #{tmp\ 2440}# + #{rkey\ 2300}#)))) + #{tmp\ 2387}#) + (let ((#{tmp\ 2396}# + (list #{tmp\ 2305}#))) + (if (if #{tmp\ 2396}# (@apply - (lambda (#{r\ 2442}#) - (#{id?\ 388}# - #{r\ 2442}#)) - #{tmp\ 2440}#) + (lambda (#{r\ 2398}#) + (#{id?\ 380}# + #{r\ 2398}#)) + #{tmp\ 2396}#) #f) (@apply - (lambda (#{r\ 2444}#) - (#{rest\ 2234}# - #{r\ 2444}# - #{req\ 2342}# - #{opt\ 2343}# + (lambda (#{r\ 2400}#) + (#{rest\ 2190}# + #{r\ 2400}# + #{req\ 2298}# + #{opt\ 2299}# (cons #f (reverse - #{rkey\ 2344}#)))) - #{tmp\ 2440}#) - (let ((#{else\ 2446}# - #{tmp\ 2349}#)) + #{rkey\ 2300}#)))) + #{tmp\ 2396}#) + (let ((#{else\ 2402}# + #{tmp\ 2305}#)) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 2225}# - #{args\ 2341}#))))))))))))))))))))))) - (#{rest\ 2234}# - (lambda (#{args\ 2447}# - #{req\ 2448}# - #{opt\ 2449}# - #{kw\ 2450}#) - (let ((#{tmp\ 2455}# #{args\ 2447}#)) - (let ((#{tmp\ 2456}# (list #{tmp\ 2455}#))) - (if (if #{tmp\ 2456}# + #{orig-args\ 2181}# + #{args\ 2297}#))))))))))))))))))))))) + (#{rest\ 2190}# + (lambda (#{args\ 2403}# + #{req\ 2404}# + #{opt\ 2405}# + #{kw\ 2406}#) + (let ((#{tmp\ 2411}# #{args\ 2403}#)) + (let ((#{tmp\ 2412}# (list #{tmp\ 2411}#))) + (if (if #{tmp\ 2412}# (@apply - (lambda (#{r\ 2458}#) - (#{id?\ 388}# #{r\ 2458}#)) - #{tmp\ 2456}#) + (lambda (#{r\ 2414}#) + (#{id?\ 380}# #{r\ 2414}#)) + #{tmp\ 2412}#) #f) (@apply - (lambda (#{r\ 2460}#) - (#{check\ 2236}# - #{req\ 2448}# - #{opt\ 2449}# - #{r\ 2460}# - #{kw\ 2450}#)) - #{tmp\ 2456}#) - (let ((#{else\ 2462}# #{tmp\ 2455}#)) + (lambda (#{r\ 2416}#) + (#{check\ 2192}# + #{req\ 2404}# + #{opt\ 2405}# + #{r\ 2416}# + #{kw\ 2406}#)) + #{tmp\ 2412}#) + (let ((#{else\ 2418}# #{tmp\ 2411}#)) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 2225}# - #{args\ 2447}#))))))) - (#{check\ 2236}# - (lambda (#{req\ 2463}# - #{opt\ 2464}# - #{rest\ 2465}# - #{kw\ 2466}#) - (if (#{distinct-bound-ids?\ 453}# + #{orig-args\ 2181}# + #{args\ 2403}#))))))) + (#{check\ 2192}# + (lambda (#{req\ 2419}# + #{opt\ 2420}# + #{rest\ 2421}# + #{kw\ 2422}#) + (if (#{distinct-bound-ids?\ 445}# (append - #{req\ 2463}# - (map car #{opt\ 2464}#) - (if #{rest\ 2465}# - (list #{rest\ 2465}#) + #{req\ 2419}# + (map car #{opt\ 2420}#) + (if #{rest\ 2421}# + (list #{rest\ 2421}#) '()) - (if (pair? #{kw\ 2466}#) - (map cadr (cdr #{kw\ 2466}#)) + (if (pair? #{kw\ 2422}#) + (map cadr (cdr #{kw\ 2422}#)) '()))) (values - #{req\ 2463}# - #{opt\ 2464}# - #{rest\ 2465}# - #{kw\ 2466}#) + #{req\ 2419}# + #{opt\ 2420}# + #{rest\ 2421}# + #{kw\ 2422}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 2225}#))))) + #{orig-args\ 2181}#))))) (begin - (#{req\ 2228}# #{orig-args\ 2225}# (quote ())))))) - (#{chi-lambda-case\ 497}# - (lambda (#{e\ 2474}# - #{r\ 2475}# - #{w\ 2476}# - #{s\ 2477}# - #{mod\ 2478}# - #{get-formals\ 2479}# - #{clauses\ 2480}#) + (#{req\ 2184}# #{orig-args\ 2181}# (quote ())))))) + (#{chi-lambda-case\ 491}# + (lambda (#{e\ 2430}# + #{r\ 2431}# + #{w\ 2432}# + #{s\ 2433}# + #{mod\ 2434}# + #{get-formals\ 2435}# + #{clauses\ 2436}#) (letrec* - ((#{expand-req\ 2489}# - (lambda (#{req\ 2496}# - #{opt\ 2497}# - #{rest\ 2498}# - #{kw\ 2499}# - #{body\ 2500}#) + ((#{expand-req\ 2445}# + (lambda (#{req\ 2452}# + #{opt\ 2453}# + #{rest\ 2454}# + #{kw\ 2455}# + #{body\ 2456}#) (begin - (let ((#{vars\ 2508}# - (map #{gen-var\ 501}# #{req\ 2496}#)) - (#{labels\ 2509}# - (#{gen-labels\ 406}# #{req\ 2496}#))) + (let ((#{vars\ 2464}# + (map #{gen-var\ 495}# #{req\ 2452}#)) + (#{labels\ 2465}# + (#{gen-labels\ 398}# #{req\ 2452}#))) (begin - (let ((#{r*\ 2512}# - (#{extend-var-env\ 378}# - #{labels\ 2509}# - #{vars\ 2508}# - #{r\ 2475}#)) - (#{w*\ 2513}# - (#{make-binding-wrap\ 435}# - #{req\ 2496}# - #{labels\ 2509}# - #{w\ 2476}#))) - (#{expand-opt\ 2491}# - (map syntax->datum #{req\ 2496}#) - #{opt\ 2497}# - #{rest\ 2498}# - #{kw\ 2499}# - #{body\ 2500}# - (reverse #{vars\ 2508}#) - #{r*\ 2512}# - #{w*\ 2513}# + (let ((#{r*\ 2468}# + (#{extend-var-env\ 370}# + #{labels\ 2465}# + #{vars\ 2464}# + #{r\ 2431}#)) + (#{w*\ 2469}# + (#{make-binding-wrap\ 427}# + #{req\ 2452}# + #{labels\ 2465}# + #{w\ 2432}#))) + (#{expand-opt\ 2447}# + (map syntax->datum #{req\ 2452}#) + #{opt\ 2453}# + #{rest\ 2454}# + #{kw\ 2455}# + #{body\ 2456}# + (reverse #{vars\ 2464}#) + #{r*\ 2468}# + #{w*\ 2469}# '() '()))))))) - (#{expand-opt\ 2491}# - (lambda (#{req\ 2514}# - #{opt\ 2515}# - #{rest\ 2516}# - #{kw\ 2517}# - #{body\ 2518}# - #{vars\ 2519}# - #{r*\ 2520}# - #{w*\ 2521}# - #{out\ 2522}# - #{inits\ 2523}#) - (if (pair? #{opt\ 2515}#) - (let ((#{tmp\ 2536}# (car #{opt\ 2515}#))) - (let ((#{tmp\ 2537}# + (#{expand-opt\ 2447}# + (lambda (#{req\ 2470}# + #{opt\ 2471}# + #{rest\ 2472}# + #{kw\ 2473}# + #{body\ 2474}# + #{vars\ 2475}# + #{r*\ 2476}# + #{w*\ 2477}# + #{out\ 2478}# + #{inits\ 2479}#) + (if (pair? #{opt\ 2471}#) + (let ((#{tmp\ 2492}# (car #{opt\ 2471}#))) + (let ((#{tmp\ 2493}# ($sc-dispatch - #{tmp\ 2536}# + #{tmp\ 2492}# '(any any)))) - (if #{tmp\ 2537}# + (if #{tmp\ 2493}# (@apply - (lambda (#{id\ 2540}# #{i\ 2541}#) + (lambda (#{id\ 2496}# #{i\ 2497}#) (begin - (let ((#{v\ 2544}# - (#{gen-var\ 501}# #{id\ 2540}#))) + (let ((#{v\ 2500}# + (#{gen-var\ 495}# #{id\ 2496}#))) (begin - (let ((#{l\ 2546}# - (#{gen-labels\ 406}# - (list #{v\ 2544}#)))) + (let ((#{l\ 2502}# + (#{gen-labels\ 398}# + (list #{v\ 2500}#)))) (begin - (let ((#{r**\ 2548}# - (#{extend-var-env\ 378}# - #{l\ 2546}# - (list #{v\ 2544}#) - #{r*\ 2520}#))) + (let ((#{r**\ 2504}# + (#{extend-var-env\ 370}# + #{l\ 2502}# + (list #{v\ 2500}#) + #{r*\ 2476}#))) (begin - (let ((#{w**\ 2550}# - (#{make-binding-wrap\ 435}# - (list #{id\ 2540}#) - #{l\ 2546}# - #{w*\ 2521}#))) - (#{expand-opt\ 2491}# - #{req\ 2514}# - (cdr #{opt\ 2515}#) - #{rest\ 2516}# - #{kw\ 2517}# - #{body\ 2518}# - (cons #{v\ 2544}# - #{vars\ 2519}#) - #{r**\ 2548}# - #{w**\ 2550}# + (let ((#{w**\ 2506}# + (#{make-binding-wrap\ 427}# + (list #{id\ 2496}#) + #{l\ 2502}# + #{w*\ 2477}#))) + (#{expand-opt\ 2447}# + #{req\ 2470}# + (cdr #{opt\ 2471}#) + #{rest\ 2472}# + #{kw\ 2473}# + #{body\ 2474}# + (cons #{v\ 2500}# + #{vars\ 2475}#) + #{r**\ 2504}# + #{w**\ 2506}# (cons (syntax->datum - #{id\ 2540}#) - #{out\ 2522}#) - (cons (#{chi\ 473}# - #{i\ 2541}# - #{r*\ 2520}# - #{w*\ 2521}# - #{mod\ 2478}#) - #{inits\ 2523}#))))))))))) - #{tmp\ 2537}#) + #{id\ 2496}#) + #{out\ 2478}#) + (cons (#{chi\ 465}# + #{i\ 2497}# + #{r*\ 2476}# + #{w*\ 2477}# + #{mod\ 2434}#) + #{inits\ 2479}#))))))))))) + #{tmp\ 2493}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2536}#)))) - (if #{rest\ 2516}# + #{tmp\ 2492}#)))) + (if #{rest\ 2472}# (begin - (let ((#{v\ 2555}# - (#{gen-var\ 501}# #{rest\ 2516}#))) + (let ((#{v\ 2511}# + (#{gen-var\ 495}# #{rest\ 2472}#))) (begin - (let ((#{l\ 2557}# - (#{gen-labels\ 406}# - (list #{v\ 2555}#)))) + (let ((#{l\ 2513}# + (#{gen-labels\ 398}# + (list #{v\ 2511}#)))) (begin - (let ((#{r*\ 2559}# - (#{extend-var-env\ 378}# - #{l\ 2557}# - (list #{v\ 2555}#) - #{r*\ 2520}#))) + (let ((#{r*\ 2515}# + (#{extend-var-env\ 370}# + #{l\ 2513}# + (list #{v\ 2511}#) + #{r*\ 2476}#))) (begin - (let ((#{w*\ 2561}# - (#{make-binding-wrap\ 435}# - (list #{rest\ 2516}#) - #{l\ 2557}# - #{w*\ 2521}#))) - (#{expand-kw\ 2493}# - #{req\ 2514}# - (if (pair? #{out\ 2522}#) - (reverse #{out\ 2522}#) + (let ((#{w*\ 2517}# + (#{make-binding-wrap\ 427}# + (list #{rest\ 2472}#) + #{l\ 2513}# + #{w*\ 2477}#))) + (#{expand-kw\ 2449}# + #{req\ 2470}# + (if (pair? #{out\ 2478}#) + (reverse #{out\ 2478}#) #f) - (syntax->datum #{rest\ 2516}#) - (if (pair? #{kw\ 2517}#) - (cdr #{kw\ 2517}#) - #{kw\ 2517}#) - #{body\ 2518}# - (cons #{v\ 2555}# #{vars\ 2519}#) - #{r*\ 2559}# - #{w*\ 2561}# - (if (pair? #{kw\ 2517}#) - (car #{kw\ 2517}#) + (syntax->datum #{rest\ 2472}#) + (if (pair? #{kw\ 2473}#) + (cdr #{kw\ 2473}#) + #{kw\ 2473}#) + #{body\ 2474}# + (cons #{v\ 2511}# #{vars\ 2475}#) + #{r*\ 2515}# + #{w*\ 2517}# + (if (pair? #{kw\ 2473}#) + (car #{kw\ 2473}#) #f) '() - #{inits\ 2523}#))))))))) - (#{expand-kw\ 2493}# - #{req\ 2514}# - (if (pair? #{out\ 2522}#) - (reverse #{out\ 2522}#) + #{inits\ 2479}#))))))))) + (#{expand-kw\ 2449}# + #{req\ 2470}# + (if (pair? #{out\ 2478}#) + (reverse #{out\ 2478}#) #f) #f - (if (pair? #{kw\ 2517}#) - (cdr #{kw\ 2517}#) - #{kw\ 2517}#) - #{body\ 2518}# - #{vars\ 2519}# - #{r*\ 2520}# - #{w*\ 2521}# - (if (pair? #{kw\ 2517}#) (car #{kw\ 2517}#) #f) + (if (pair? #{kw\ 2473}#) + (cdr #{kw\ 2473}#) + #{kw\ 2473}#) + #{body\ 2474}# + #{vars\ 2475}# + #{r*\ 2476}# + #{w*\ 2477}# + (if (pair? #{kw\ 2473}#) (car #{kw\ 2473}#) #f) '() - #{inits\ 2523}#))))) - (#{expand-kw\ 2493}# - (lambda (#{req\ 2563}# - #{opt\ 2564}# - #{rest\ 2565}# - #{kw\ 2566}# - #{body\ 2567}# - #{vars\ 2568}# - #{r*\ 2569}# - #{w*\ 2570}# - #{aok\ 2571}# - #{out\ 2572}# - #{inits\ 2573}#) - (if (pair? #{kw\ 2566}#) - (let ((#{tmp\ 2587}# (car #{kw\ 2566}#))) - (let ((#{tmp\ 2588}# + #{inits\ 2479}#))))) + (#{expand-kw\ 2449}# + (lambda (#{req\ 2519}# + #{opt\ 2520}# + #{rest\ 2521}# + #{kw\ 2522}# + #{body\ 2523}# + #{vars\ 2524}# + #{r*\ 2525}# + #{w*\ 2526}# + #{aok\ 2527}# + #{out\ 2528}# + #{inits\ 2529}#) + (if (pair? #{kw\ 2522}#) + (let ((#{tmp\ 2543}# (car #{kw\ 2522}#))) + (let ((#{tmp\ 2544}# ($sc-dispatch - #{tmp\ 2587}# + #{tmp\ 2543}# '(any any any)))) - (if #{tmp\ 2588}# + (if #{tmp\ 2544}# (@apply - (lambda (#{k\ 2592}# #{id\ 2593}# #{i\ 2594}#) + (lambda (#{k\ 2548}# #{id\ 2549}# #{i\ 2550}#) (begin - (let ((#{v\ 2597}# - (#{gen-var\ 501}# #{id\ 2593}#))) + (let ((#{v\ 2553}# + (#{gen-var\ 495}# #{id\ 2549}#))) (begin - (let ((#{l\ 2599}# - (#{gen-labels\ 406}# - (list #{v\ 2597}#)))) + (let ((#{l\ 2555}# + (#{gen-labels\ 398}# + (list #{v\ 2553}#)))) (begin - (let ((#{r**\ 2601}# - (#{extend-var-env\ 378}# - #{l\ 2599}# - (list #{v\ 2597}#) - #{r*\ 2569}#))) + (let ((#{r**\ 2557}# + (#{extend-var-env\ 370}# + #{l\ 2555}# + (list #{v\ 2553}#) + #{r*\ 2525}#))) (begin - (let ((#{w**\ 2603}# - (#{make-binding-wrap\ 435}# - (list #{id\ 2593}#) - #{l\ 2599}# - #{w*\ 2570}#))) - (#{expand-kw\ 2493}# - #{req\ 2563}# - #{opt\ 2564}# - #{rest\ 2565}# - (cdr #{kw\ 2566}#) - #{body\ 2567}# - (cons #{v\ 2597}# - #{vars\ 2568}#) - #{r**\ 2601}# - #{w**\ 2603}# - #{aok\ 2571}# + (let ((#{w**\ 2559}# + (#{make-binding-wrap\ 427}# + (list #{id\ 2549}#) + #{l\ 2555}# + #{w*\ 2526}#))) + (#{expand-kw\ 2449}# + #{req\ 2519}# + #{opt\ 2520}# + #{rest\ 2521}# + (cdr #{kw\ 2522}#) + #{body\ 2523}# + (cons #{v\ 2553}# + #{vars\ 2524}#) + #{r**\ 2557}# + #{w**\ 2559}# + #{aok\ 2527}# (cons (list (syntax->datum - #{k\ 2592}#) + #{k\ 2548}#) (syntax->datum - #{id\ 2593}#) - #{v\ 2597}#) - #{out\ 2572}#) - (cons (#{chi\ 473}# - #{i\ 2594}# - #{r*\ 2569}# - #{w*\ 2570}# - #{mod\ 2478}#) - #{inits\ 2573}#))))))))))) - #{tmp\ 2588}#) + #{id\ 2549}#) + #{v\ 2553}#) + #{out\ 2528}#) + (cons (#{chi\ 465}# + #{i\ 2550}# + #{r*\ 2525}# + #{w*\ 2526}# + #{mod\ 2434}#) + #{inits\ 2529}#))))))))))) + #{tmp\ 2544}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2587}#)))) - (#{expand-body\ 2495}# - #{req\ 2563}# - #{opt\ 2564}# - #{rest\ 2565}# + #{tmp\ 2543}#)))) + (#{expand-body\ 2451}# + #{req\ 2519}# + #{opt\ 2520}# + #{rest\ 2521}# (if (begin - (let ((#{t\ 2607}# #{aok\ 2571}#)) - (if #{t\ 2607}# - #{t\ 2607}# - (pair? #{out\ 2572}#)))) - (cons #{aok\ 2571}# (reverse #{out\ 2572}#)) + (let ((#{t\ 2563}# #{aok\ 2527}#)) + (if #{t\ 2563}# + #{t\ 2563}# + (pair? #{out\ 2528}#)))) + (cons #{aok\ 2527}# (reverse #{out\ 2528}#)) #f) - #{body\ 2567}# - (reverse #{vars\ 2568}#) - #{r*\ 2569}# - #{w*\ 2570}# - (reverse #{inits\ 2573}#) + #{body\ 2523}# + (reverse #{vars\ 2524}#) + #{r*\ 2525}# + #{w*\ 2526}# + (reverse #{inits\ 2529}#) '())))) - (#{expand-body\ 2495}# - (lambda (#{req\ 2609}# - #{opt\ 2610}# - #{rest\ 2611}# - #{kw\ 2612}# - #{body\ 2613}# - #{vars\ 2614}# - #{r*\ 2615}# - #{w*\ 2616}# - #{inits\ 2617}# - #{meta\ 2618}#) - (let ((#{tmp\ 2629}# #{body\ 2613}#)) - (let ((#{tmp\ 2630}# + (#{expand-body\ 2451}# + (lambda (#{req\ 2565}# + #{opt\ 2566}# + #{rest\ 2567}# + #{kw\ 2568}# + #{body\ 2569}# + #{vars\ 2570}# + #{r*\ 2571}# + #{w*\ 2572}# + #{inits\ 2573}# + #{meta\ 2574}#) + (let ((#{tmp\ 2585}# #{body\ 2569}#)) + (let ((#{tmp\ 2586}# ($sc-dispatch - #{tmp\ 2629}# + #{tmp\ 2585}# '(any any . each-any)))) - (if (if #{tmp\ 2630}# + (if (if #{tmp\ 2586}# (@apply - (lambda (#{docstring\ 2634}# - #{e1\ 2635}# - #{e2\ 2636}#) + (lambda (#{docstring\ 2590}# + #{e1\ 2591}# + #{e2\ 2592}#) (string? - (syntax->datum #{docstring\ 2634}#))) - #{tmp\ 2630}#) + (syntax->datum #{docstring\ 2590}#))) + #{tmp\ 2586}#) #f) (@apply - (lambda (#{docstring\ 2640}# - #{e1\ 2641}# - #{e2\ 2642}#) - (#{expand-body\ 2495}# - #{req\ 2609}# - #{opt\ 2610}# - #{rest\ 2611}# - #{kw\ 2612}# - (cons #{e1\ 2641}# #{e2\ 2642}#) - #{vars\ 2614}# - #{r*\ 2615}# - #{w*\ 2616}# - #{inits\ 2617}# + (lambda (#{docstring\ 2596}# + #{e1\ 2597}# + #{e2\ 2598}#) + (#{expand-body\ 2451}# + #{req\ 2565}# + #{opt\ 2566}# + #{rest\ 2567}# + #{kw\ 2568}# + (cons #{e1\ 2597}# #{e2\ 2598}#) + #{vars\ 2570}# + #{r*\ 2571}# + #{w*\ 2572}# + #{inits\ 2573}# (append - #{meta\ 2618}# + #{meta\ 2574}# (list (cons 'documentation (syntax->datum - #{docstring\ 2640}#)))))) - #{tmp\ 2630}#) - (let ((#{tmp\ 2645}# + #{docstring\ 2596}#)))))) + #{tmp\ 2586}#) + (let ((#{tmp\ 2601}# ($sc-dispatch - #{tmp\ 2629}# + #{tmp\ 2585}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp\ 2645}# + (if #{tmp\ 2601}# (@apply - (lambda (#{k\ 2650}# - #{v\ 2651}# - #{e1\ 2652}# - #{e2\ 2653}#) - (#{expand-body\ 2495}# - #{req\ 2609}# - #{opt\ 2610}# - #{rest\ 2611}# - #{kw\ 2612}# - (cons #{e1\ 2652}# #{e2\ 2653}#) - #{vars\ 2614}# - #{r*\ 2615}# - #{w*\ 2616}# - #{inits\ 2617}# + (lambda (#{k\ 2606}# + #{v\ 2607}# + #{e1\ 2608}# + #{e2\ 2609}#) + (#{expand-body\ 2451}# + #{req\ 2565}# + #{opt\ 2566}# + #{rest\ 2567}# + #{kw\ 2568}# + (cons #{e1\ 2608}# #{e2\ 2609}#) + #{vars\ 2570}# + #{r*\ 2571}# + #{w*\ 2572}# + #{inits\ 2573}# (append - #{meta\ 2618}# + #{meta\ 2574}# (syntax->datum - (map cons #{k\ 2650}# #{v\ 2651}#))))) - #{tmp\ 2645}#) - (let ((#{tmp\ 2657}# + (map cons #{k\ 2606}# #{v\ 2607}#))))) + #{tmp\ 2601}#) + (let ((#{tmp\ 2613}# ($sc-dispatch - #{tmp\ 2629}# + #{tmp\ 2585}# '(any . each-any)))) - (if #{tmp\ 2657}# + (if #{tmp\ 2613}# (@apply - (lambda (#{e1\ 2660}# #{e2\ 2661}#) + (lambda (#{e1\ 2616}# #{e2\ 2617}#) (values - #{meta\ 2618}# - #{req\ 2609}# - #{opt\ 2610}# - #{rest\ 2611}# - #{kw\ 2612}# - #{inits\ 2617}# - #{vars\ 2614}# - (#{chi-body\ 481}# - (cons #{e1\ 2660}# #{e2\ 2661}#) - (#{source-wrap\ 459}# - #{e\ 2474}# - #{w\ 2476}# - #{s\ 2477}# - #{mod\ 2478}#) - #{r*\ 2615}# - #{w*\ 2616}# - #{mod\ 2478}#))) - #{tmp\ 2657}#) + #{meta\ 2574}# + #{req\ 2565}# + #{opt\ 2566}# + #{rest\ 2567}# + #{kw\ 2568}# + #{inits\ 2573}# + #{vars\ 2570}# + (#{chi-body\ 473}# + (cons #{e1\ 2616}# #{e2\ 2617}#) + (#{source-wrap\ 451}# + #{e\ 2430}# + #{w\ 2432}# + #{s\ 2433}# + #{mod\ 2434}#) + #{r*\ 2571}# + #{w*\ 2572}# + #{mod\ 2434}#))) + #{tmp\ 2613}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2629}#))))))))))) + #{tmp\ 2585}#))))))))))) (begin - (let ((#{tmp\ 2663}# #{clauses\ 2480}#)) - (let ((#{tmp\ 2664}# - ($sc-dispatch #{tmp\ 2663}# (quote ())))) - (if #{tmp\ 2664}# + (let ((#{tmp\ 2619}# #{clauses\ 2436}#)) + (let ((#{tmp\ 2620}# + ($sc-dispatch #{tmp\ 2619}# (quote ())))) + (if #{tmp\ 2620}# (@apply (lambda () (values (quote ()) #f)) - #{tmp\ 2664}#) - (let ((#{tmp\ 2665}# + #{tmp\ 2620}#) + (let ((#{tmp\ 2621}# ($sc-dispatch - #{tmp\ 2663}# + #{tmp\ 2619}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp\ 2665}# + (if #{tmp\ 2621}# (@apply - (lambda (#{args\ 2672}# - #{e1\ 2673}# - #{e2\ 2674}# - #{args*\ 2675}# - #{e1*\ 2676}# - #{e2*\ 2677}#) + (lambda (#{args\ 2628}# + #{e1\ 2629}# + #{e2\ 2630}# + #{args*\ 2631}# + #{e1*\ 2632}# + #{e2*\ 2633}#) (call-with-values (lambda () - (#{get-formals\ 2479}# #{args\ 2672}#)) - (lambda (#{req\ 2678}# - #{opt\ 2679}# - #{rest\ 2680}# - #{kw\ 2681}#) + (#{get-formals\ 2435}# #{args\ 2628}#)) + (lambda (#{req\ 2634}# + #{opt\ 2635}# + #{rest\ 2636}# + #{kw\ 2637}#) (call-with-values (lambda () - (#{expand-req\ 2489}# - #{req\ 2678}# - #{opt\ 2679}# - #{rest\ 2680}# - #{kw\ 2681}# - (cons #{e1\ 2673}# #{e2\ 2674}#))) - (lambda (#{meta\ 2687}# - #{req\ 2688}# - #{opt\ 2689}# - #{rest\ 2690}# - #{kw\ 2691}# - #{inits\ 2692}# - #{vars\ 2693}# - #{body\ 2694}#) + (#{expand-req\ 2445}# + #{req\ 2634}# + #{opt\ 2635}# + #{rest\ 2636}# + #{kw\ 2637}# + (cons #{e1\ 2629}# #{e2\ 2630}#))) + (lambda (#{meta\ 2643}# + #{req\ 2644}# + #{opt\ 2645}# + #{rest\ 2646}# + #{kw\ 2647}# + #{inits\ 2648}# + #{vars\ 2649}# + #{body\ 2650}#) (call-with-values (lambda () - (#{chi-lambda-case\ 497}# - #{e\ 2474}# - #{r\ 2475}# - #{w\ 2476}# - #{s\ 2477}# - #{mod\ 2478}# - #{get-formals\ 2479}# - (map (lambda (#{tmp\ 2705}# - #{tmp\ 2704}# - #{tmp\ 2703}#) - (cons #{tmp\ 2703}# - (cons #{tmp\ 2704}# - #{tmp\ 2705}#))) - #{e2*\ 2677}# - #{e1*\ 2676}# - #{args*\ 2675}#))) - (lambda (#{meta*\ 2707}# - #{else*\ 2708}#) + (#{chi-lambda-case\ 491}# + #{e\ 2430}# + #{r\ 2431}# + #{w\ 2432}# + #{s\ 2433}# + #{mod\ 2434}# + #{get-formals\ 2435}# + (map (lambda (#{tmp\ 2661}# + #{tmp\ 2660}# + #{tmp\ 2659}#) + (cons #{tmp\ 2659}# + (cons #{tmp\ 2660}# + #{tmp\ 2661}#))) + #{e2*\ 2633}# + #{e1*\ 2632}# + #{args*\ 2631}#))) + (lambda (#{meta*\ 2663}# + #{else*\ 2664}#) (values (append - #{meta\ 2687}# - #{meta*\ 2707}#) - (#{build-lambda-case\ 334}# - #{s\ 2477}# - #{req\ 2688}# - #{opt\ 2689}# - #{rest\ 2690}# - #{kw\ 2691}# - #{inits\ 2692}# - #{vars\ 2693}# - #{body\ 2694}# - #{else*\ 2708}#))))))))) - #{tmp\ 2665}#) + #{meta\ 2643}# + #{meta*\ 2663}#) + (#{build-lambda-case\ 326}# + #{s\ 2433}# + #{req\ 2644}# + #{opt\ 2645}# + #{rest\ 2646}# + #{kw\ 2647}# + #{inits\ 2648}# + #{vars\ 2649}# + #{body\ 2650}# + #{else*\ 2664}#))))))))) + #{tmp\ 2621}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2663}#)))))))))) - (#{strip\ 499}# - (lambda (#{x\ 2711}# #{w\ 2712}#) + #{tmp\ 2619}#)))))))))) + (#{strip\ 493}# + (lambda (#{x\ 2667}# #{w\ 2668}#) (if (memq 'top - (#{wrap-marks\ 395}# #{w\ 2712}#)) - #{x\ 2711}# + (#{wrap-marks\ 387}# #{w\ 2668}#)) + #{x\ 2667}# (letrec* - ((#{f\ 2718}# - (lambda (#{x\ 2719}#) - (if (#{syntax-object?\ 352}# #{x\ 2719}#) - (#{strip\ 499}# - (#{syntax-object-expression\ 354}# #{x\ 2719}#) - (#{syntax-object-wrap\ 356}# #{x\ 2719}#)) - (if (pair? #{x\ 2719}#) + ((#{f\ 2674}# + (lambda (#{x\ 2675}#) + (if (#{syntax-object?\ 344}# #{x\ 2675}#) + (#{strip\ 493}# + (#{syntax-object-expression\ 346}# #{x\ 2675}#) + (#{syntax-object-wrap\ 348}# #{x\ 2675}#)) + (if (pair? #{x\ 2675}#) (begin - (let ((#{a\ 2726}# (#{f\ 2718}# (car #{x\ 2719}#))) - (#{d\ 2727}# - (#{f\ 2718}# (cdr #{x\ 2719}#)))) - (if (if (eq? #{a\ 2726}# (car #{x\ 2719}#)) - (eq? #{d\ 2727}# (cdr #{x\ 2719}#)) + (let ((#{a\ 2682}# (#{f\ 2674}# (car #{x\ 2675}#))) + (#{d\ 2683}# + (#{f\ 2674}# (cdr #{x\ 2675}#)))) + (if (if (eq? #{a\ 2682}# (car #{x\ 2675}#)) + (eq? #{d\ 2683}# (cdr #{x\ 2675}#)) #f) - #{x\ 2719}# - (cons #{a\ 2726}# #{d\ 2727}#)))) - (if (vector? #{x\ 2719}#) + #{x\ 2675}# + (cons #{a\ 2682}# #{d\ 2683}#)))) + (if (vector? #{x\ 2675}#) (begin - (let ((#{old\ 2733}# (vector->list #{x\ 2719}#))) + (let ((#{old\ 2689}# (vector->list #{x\ 2675}#))) (begin - (let ((#{new\ 2735}# - (map #{f\ 2718}# #{old\ 2733}#))) + (let ((#{new\ 2691}# + (map #{f\ 2674}# #{old\ 2689}#))) (if (#{and-map*\ 36}# eq? - #{old\ 2733}# - #{new\ 2735}#) - #{x\ 2719}# - (list->vector #{new\ 2735}#)))))) - #{x\ 2719}#)))))) - (begin (#{f\ 2718}# #{x\ 2711}#)))))) - (#{gen-var\ 501}# - (lambda (#{id\ 2737}#) + #{old\ 2689}# + #{new\ 2691}#) + #{x\ 2675}# + (list->vector #{new\ 2691}#)))))) + #{x\ 2675}#)))))) + (begin (#{f\ 2674}# #{x\ 2667}#)))))) + (#{gen-var\ 495}# + (lambda (#{id\ 2693}#) (begin - (let ((#{id\ 2740}# - (if (#{syntax-object?\ 352}# #{id\ 2737}#) - (#{syntax-object-expression\ 354}# #{id\ 2737}#) - #{id\ 2737}#))) + (let ((#{id\ 2696}# + (if (#{syntax-object?\ 344}# #{id\ 2693}#) + (#{syntax-object-expression\ 346}# #{id\ 2693}#) + #{id\ 2693}#))) (gensym - (string-append (symbol->string #{id\ 2740}#) " ")))))) - (#{lambda-var-list\ 503}# - (lambda (#{vars\ 2742}#) + (string-append (symbol->string #{id\ 2696}#) " ")))))) + (#{lambda-var-list\ 497}# + (lambda (#{vars\ 2698}#) (letrec* - ((#{lvl\ 2748}# - (lambda (#{vars\ 2749}# #{ls\ 2750}# #{w\ 2751}#) - (if (pair? #{vars\ 2749}#) - (#{lvl\ 2748}# - (cdr #{vars\ 2749}#) - (cons (#{wrap\ 457}# - (car #{vars\ 2749}#) - #{w\ 2751}# + ((#{lvl\ 2704}# + (lambda (#{vars\ 2705}# #{ls\ 2706}# #{w\ 2707}#) + (if (pair? #{vars\ 2705}#) + (#{lvl\ 2704}# + (cdr #{vars\ 2705}#) + (cons (#{wrap\ 449}# + (car #{vars\ 2705}#) + #{w\ 2707}# #f) - #{ls\ 2750}#) - #{w\ 2751}#) - (if (#{id?\ 388}# #{vars\ 2749}#) - (cons (#{wrap\ 457}# #{vars\ 2749}# #{w\ 2751}# #f) - #{ls\ 2750}#) - (if (null? #{vars\ 2749}#) - #{ls\ 2750}# - (if (#{syntax-object?\ 352}# #{vars\ 2749}#) - (#{lvl\ 2748}# - (#{syntax-object-expression\ 354}# - #{vars\ 2749}#) - #{ls\ 2750}# - (#{join-wraps\ 439}# - #{w\ 2751}# - (#{syntax-object-wrap\ 356}# #{vars\ 2749}#))) - (cons #{vars\ 2749}# #{ls\ 2750}#)))))))) + #{ls\ 2706}#) + #{w\ 2707}#) + (if (#{id?\ 380}# #{vars\ 2705}#) + (cons (#{wrap\ 449}# #{vars\ 2705}# #{w\ 2707}# #f) + #{ls\ 2706}#) + (if (null? #{vars\ 2705}#) + #{ls\ 2706}# + (if (#{syntax-object?\ 344}# #{vars\ 2705}#) + (#{lvl\ 2704}# + (#{syntax-object-expression\ 346}# + #{vars\ 2705}#) + #{ls\ 2706}# + (#{join-wraps\ 431}# + #{w\ 2707}# + (#{syntax-object-wrap\ 348}# #{vars\ 2705}#))) + (cons #{vars\ 2705}# #{ls\ 2706}#)))))))) (begin - (#{lvl\ 2748}# - #{vars\ 2742}# + (#{lvl\ 2704}# + #{vars\ 2698}# '() '(()))))))) (begin - (set! #{make-primitive-ref\ 250}# - (lambda (#{src\ 724}# #{name\ 725}#) + (set! #{make-primitive-ref\ 242}# + (lambda (#{src\ 706}# #{name\ 707}#) (make-struct/no-tail (vector-ref %expanded-vtables 2) - #{src\ 724}# - #{name\ 725}#))) - (set! #{fx+\ 289}# +) - (set! #{fx-\ 291}# -) - (set! #{fx=\ 293}# =) - (set! #{fx<\ 295}# <) - (set! #{set-syntax-object-expression!\ 360}# - (lambda (#{x\ 1102}# #{update\ 1103}#) - (vector-set! #{x\ 1102}# 1 #{update\ 1103}#))) - (set! #{set-syntax-object-wrap!\ 362}# - (lambda (#{x\ 1106}# #{update\ 1107}#) - (vector-set! #{x\ 1106}# 2 #{update\ 1107}#))) - (set! #{set-syntax-object-module!\ 364}# - (lambda (#{x\ 1110}# #{update\ 1111}#) - (vector-set! #{x\ 1110}# 3 #{update\ 1111}#))) - (set! #{binding-type\ 371}# car) - (set! #{binding-value\ 373}# cdr) - (set! #{make-wrap\ 393}# cons) - (set! #{wrap-marks\ 395}# car) - (set! #{wrap-subst\ 397}# cdr) - (set! #{ribcage?\ 411}# - (lambda (#{x\ 1188}#) - (if (vector? #{x\ 1188}#) - (if (= (vector-length #{x\ 1188}#) 4) - (eq? (vector-ref #{x\ 1188}# 0) (quote ribcage)) + #{src\ 706}# + #{name\ 707}#))) + (set! #{fx+\ 281}# +) + (set! #{fx-\ 283}# -) + (set! #{fx=\ 285}# =) + (set! #{fx<\ 287}# <) + (set! #{set-syntax-object-expression!\ 352}# + (lambda (#{x\ 1084}# #{update\ 1085}#) + (vector-set! #{x\ 1084}# 1 #{update\ 1085}#))) + (set! #{set-syntax-object-wrap!\ 354}# + (lambda (#{x\ 1088}# #{update\ 1089}#) + (vector-set! #{x\ 1088}# 2 #{update\ 1089}#))) + (set! #{set-syntax-object-module!\ 356}# + (lambda (#{x\ 1092}# #{update\ 1093}#) + (vector-set! #{x\ 1092}# 3 #{update\ 1093}#))) + (set! #{binding-type\ 363}# car) + (set! #{binding-value\ 365}# cdr) + (set! #{make-wrap\ 385}# cons) + (set! #{wrap-marks\ 387}# car) + (set! #{wrap-subst\ 389}# cdr) + (set! #{ribcage?\ 403}# + (lambda (#{x\ 1170}#) + (if (vector? #{x\ 1170}#) + (if (= (vector-length #{x\ 1170}#) 4) + (eq? (vector-ref #{x\ 1170}# 0) (quote ribcage)) #f) #f))) (begin - (#{global-extend\ 384}# + (#{global-extend\ 376}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 384}# + (#{global-extend\ 376}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 384}# + (#{global-extend\ 376}# 'core 'fluid-let-syntax - (lambda (#{e\ 2762}# - #{r\ 2763}# - #{w\ 2764}# - #{s\ 2765}# - #{mod\ 2766}#) - (let ((#{tmp\ 2772}# #{e\ 2762}#)) - (let ((#{tmp\ 2773}# + (lambda (#{e\ 2718}# + #{r\ 2719}# + #{w\ 2720}# + #{s\ 2721}# + #{mod\ 2722}#) + (let ((#{tmp\ 2728}# #{e\ 2718}#)) + (let ((#{tmp\ 2729}# ($sc-dispatch - #{tmp\ 2772}# - '(any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 2773}# + #{tmp\ 2728}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp\ 2729}# (@apply - (lambda (#{_\ 2779}# - #{var\ 2780}# - #{val\ 2781}# - #{e1\ 2782}# - #{e2\ 2783}#) - (#{valid-bound-ids?\ 451}# #{var\ 2780}#)) - #{tmp\ 2773}#) + (lambda (#{var\ 2734}# + #{val\ 2735}# + #{e1\ 2736}# + #{e2\ 2737}#) + (#{valid-bound-ids?\ 443}# #{var\ 2734}#)) + #{tmp\ 2729}#) #f) (@apply - (lambda (#{_\ 2790}# - #{var\ 2791}# - #{val\ 2792}# - #{e1\ 2793}# - #{e2\ 2794}#) + (lambda (#{var\ 2743}# + #{val\ 2744}# + #{e1\ 2745}# + #{e2\ 2746}#) (begin - (let ((#{names\ 2796}# - (map (lambda (#{x\ 2797}#) - (#{id-var-name\ 445}# - #{x\ 2797}# - #{w\ 2764}#)) - #{var\ 2791}#))) + (let ((#{names\ 2748}# + (map (lambda (#{x\ 2749}#) + (#{id-var-name\ 437}# + #{x\ 2749}# + #{w\ 2720}#)) + #{var\ 2743}#))) (begin (for-each - (lambda (#{id\ 2800}# #{n\ 2801}#) + (lambda (#{id\ 2752}# #{n\ 2753}#) (begin - (let ((#{atom-key\ 2806}# - (#{binding-type\ 371}# - (#{lookup\ 382}# - #{n\ 2801}# - #{r\ 2763}# - #{mod\ 2766}#)))) - (if (eqv? #{atom-key\ 2806}# + (let ((#{atom-key\ 2758}# + (#{binding-type\ 363}# + (#{lookup\ 374}# + #{n\ 2753}# + #{r\ 2719}# + #{mod\ 2722}#)))) + (if (eqv? #{atom-key\ 2758}# 'displaced-lexical) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2762}# - (#{source-wrap\ 459}# - #{id\ 2800}# - #{w\ 2764}# - #{s\ 2765}# - #{mod\ 2766}#)))))) - #{var\ 2791}# - #{names\ 2796}#) - (#{chi-body\ 481}# - (cons #{e1\ 2793}# #{e2\ 2794}#) - (#{source-wrap\ 459}# - #{e\ 2762}# - #{w\ 2764}# - #{s\ 2765}# - #{mod\ 2766}#) - (#{extend-env\ 376}# - #{names\ 2796}# + #{e\ 2718}# + (#{source-wrap\ 451}# + #{id\ 2752}# + #{w\ 2720}# + #{s\ 2721}# + #{mod\ 2722}#)))))) + #{var\ 2743}# + #{names\ 2748}#) + (#{chi-body\ 473}# + (cons #{e1\ 2745}# #{e2\ 2746}#) + (#{source-wrap\ 451}# + #{e\ 2718}# + #{w\ 2720}# + #{s\ 2721}# + #{mod\ 2722}#) + (#{extend-env\ 368}# + #{names\ 2748}# (begin - (let ((#{trans-r\ 2811}# - (#{macros-only-env\ 380}# - #{r\ 2763}#))) - (map (lambda (#{x\ 2812}#) + (let ((#{trans-r\ 2763}# + (#{macros-only-env\ 372}# + #{r\ 2719}#))) + (map (lambda (#{x\ 2764}#) (cons 'macro - (#{eval-local-transformer\ 485}# - (#{chi\ 473}# - #{x\ 2812}# - #{trans-r\ 2811}# - #{w\ 2764}# - #{mod\ 2766}#) - #{mod\ 2766}#))) - #{val\ 2792}#))) - #{r\ 2763}#) - #{w\ 2764}# - #{mod\ 2766}#))))) - #{tmp\ 2773}#) - (let ((#{_\ 2817}# #{tmp\ 2772}#)) + (#{eval-local-transformer\ 477}# + (#{chi\ 465}# + #{x\ 2764}# + #{trans-r\ 2763}# + #{w\ 2720}# + #{mod\ 2722}#) + #{mod\ 2722}#))) + #{val\ 2744}#))) + #{r\ 2719}#) + #{w\ 2720}# + #{mod\ 2722}#))))) + #{tmp\ 2729}#) + (let ((#{_\ 2769}# #{tmp\ 2728}#)) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 459}# - #{e\ 2762}# - #{w\ 2764}# - #{s\ 2765}# - #{mod\ 2766}#)))))))) - (#{global-extend\ 384}# + (#{source-wrap\ 451}# + #{e\ 2718}# + #{w\ 2720}# + #{s\ 2721}# + #{mod\ 2722}#)))))))) + (#{global-extend\ 376}# 'core 'quote - (lambda (#{e\ 2818}# - #{r\ 2819}# - #{w\ 2820}# - #{s\ 2821}# - #{mod\ 2822}#) - (let ((#{tmp\ 2828}# #{e\ 2818}#)) - (let ((#{tmp\ 2829}# - ($sc-dispatch #{tmp\ 2828}# (quote (any any))))) - (if #{tmp\ 2829}# + (lambda (#{e\ 2770}# + #{r\ 2771}# + #{w\ 2772}# + #{s\ 2773}# + #{mod\ 2774}#) + (let ((#{tmp\ 2780}# #{e\ 2770}#)) + (let ((#{tmp\ 2781}# + ($sc-dispatch #{tmp\ 2780}# (quote (_ any))))) + (if #{tmp\ 2781}# (@apply - (lambda (#{_\ 2832}# #{e\ 2833}#) - (#{build-data\ 338}# - #{s\ 2821}# - (#{strip\ 499}# #{e\ 2833}# #{w\ 2820}#))) - #{tmp\ 2829}#) - (let ((#{_\ 2835}# #{tmp\ 2828}#)) + (lambda (#{e\ 2783}#) + (#{build-data\ 330}# + #{s\ 2773}# + (#{strip\ 493}# #{e\ 2783}# #{w\ 2772}#))) + #{tmp\ 2781}#) + (let ((#{_\ 2785}# #{tmp\ 2780}#)) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 459}# - #{e\ 2818}# - #{w\ 2820}# - #{s\ 2821}# - #{mod\ 2822}#)))))))) - (#{global-extend\ 384}# + (#{source-wrap\ 451}# + #{e\ 2770}# + #{w\ 2772}# + #{s\ 2773}# + #{mod\ 2774}#)))))))) + (#{global-extend\ 376}# 'core 'syntax (letrec* - ((#{gen-syntax\ 2837}# - (lambda (#{src\ 2852}# - #{e\ 2853}# - #{r\ 2854}# - #{maps\ 2855}# - #{ellipsis?\ 2856}# - #{mod\ 2857}#) - (if (#{id?\ 388}# #{e\ 2853}#) + ((#{gen-syntax\ 2787}# + (lambda (#{src\ 2802}# + #{e\ 2803}# + #{r\ 2804}# + #{maps\ 2805}# + #{ellipsis?\ 2806}# + #{mod\ 2807}#) + (if (#{id?\ 380}# #{e\ 2803}#) (begin - (let ((#{label\ 2865}# - (#{id-var-name\ 445}# - #{e\ 2853}# + (let ((#{label\ 2815}# + (#{id-var-name\ 437}# + #{e\ 2803}# '(())))) (begin - (let ((#{b\ 2868}# - (#{lookup\ 382}# - #{label\ 2865}# - #{r\ 2854}# - #{mod\ 2857}#))) - (if (eq? (#{binding-type\ 371}# #{b\ 2868}#) + (let ((#{b\ 2818}# + (#{lookup\ 374}# + #{label\ 2815}# + #{r\ 2804}# + #{mod\ 2807}#))) + (if (eq? (#{binding-type\ 363}# #{b\ 2818}#) 'syntax) (call-with-values (lambda () (begin - (let ((#{var.lev\ 2870}# - (#{binding-value\ 373}# - #{b\ 2868}#))) - (#{gen-ref\ 2839}# - #{src\ 2852}# - (car #{var.lev\ 2870}#) - (cdr #{var.lev\ 2870}#) - #{maps\ 2855}#)))) - (lambda (#{var\ 2871}# #{maps\ 2872}#) + (let ((#{var.lev\ 2820}# + (#{binding-value\ 365}# + #{b\ 2818}#))) + (#{gen-ref\ 2789}# + #{src\ 2802}# + (car #{var.lev\ 2820}#) + (cdr #{var.lev\ 2820}#) + #{maps\ 2805}#)))) + (lambda (#{var\ 2821}# #{maps\ 2822}#) (values - (list (quote ref) #{var\ 2871}#) - #{maps\ 2872}#))) - (if (#{ellipsis?\ 2856}# #{e\ 2853}#) + (list (quote ref) #{var\ 2821}#) + #{maps\ 2822}#))) + (if (#{ellipsis?\ 2806}# #{e\ 2803}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2852}#) + #{src\ 2802}#) (values - (list (quote quote) #{e\ 2853}#) - #{maps\ 2855}#))))))) - (let ((#{tmp\ 2877}# #{e\ 2853}#)) - (let ((#{tmp\ 2878}# + (list (quote quote) #{e\ 2803}#) + #{maps\ 2805}#))))))) + (let ((#{tmp\ 2827}# #{e\ 2803}#)) + (let ((#{tmp\ 2828}# ($sc-dispatch - #{tmp\ 2877}# + #{tmp\ 2827}# '(any any)))) - (if (if #{tmp\ 2878}# + (if (if #{tmp\ 2828}# (@apply - (lambda (#{dots\ 2881}# #{e\ 2882}#) - (#{ellipsis?\ 2856}# #{dots\ 2881}#)) - #{tmp\ 2878}#) + (lambda (#{dots\ 2831}# #{e\ 2832}#) + (#{ellipsis?\ 2806}# #{dots\ 2831}#)) + #{tmp\ 2828}#) #f) (@apply - (lambda (#{dots\ 2885}# #{e\ 2886}#) - (#{gen-syntax\ 2837}# - #{src\ 2852}# - #{e\ 2886}# - #{r\ 2854}# - #{maps\ 2855}# - (lambda (#{x\ 2887}#) #f) - #{mod\ 2857}#)) - #{tmp\ 2878}#) - (let ((#{tmp\ 2889}# + (lambda (#{dots\ 2835}# #{e\ 2836}#) + (#{gen-syntax\ 2787}# + #{src\ 2802}# + #{e\ 2836}# + #{r\ 2804}# + #{maps\ 2805}# + (lambda (#{x\ 2837}#) #f) + #{mod\ 2807}#)) + #{tmp\ 2828}#) + (let ((#{tmp\ 2839}# ($sc-dispatch - #{tmp\ 2877}# + #{tmp\ 2827}# '(any any . any)))) - (if (if #{tmp\ 2889}# + (if (if #{tmp\ 2839}# (@apply - (lambda (#{x\ 2893}# - #{dots\ 2894}# - #{y\ 2895}#) - (#{ellipsis?\ 2856}# #{dots\ 2894}#)) - #{tmp\ 2889}#) + (lambda (#{x\ 2843}# + #{dots\ 2844}# + #{y\ 2845}#) + (#{ellipsis?\ 2806}# #{dots\ 2844}#)) + #{tmp\ 2839}#) #f) (@apply - (lambda (#{x\ 2899}# - #{dots\ 2900}# - #{y\ 2901}#) + (lambda (#{x\ 2849}# + #{dots\ 2850}# + #{y\ 2851}#) (letrec* - ((#{f\ 2905}# - (lambda (#{y\ 2906}# #{k\ 2907}#) - (let ((#{tmp\ 2914}# #{y\ 2906}#)) - (let ((#{tmp\ 2915}# + ((#{f\ 2855}# + (lambda (#{y\ 2856}# #{k\ 2857}#) + (let ((#{tmp\ 2864}# #{y\ 2856}#)) + (let ((#{tmp\ 2865}# ($sc-dispatch - #{tmp\ 2914}# + #{tmp\ 2864}# '(any . any)))) - (if (if #{tmp\ 2915}# + (if (if #{tmp\ 2865}# (@apply - (lambda (#{dots\ 2918}# - #{y\ 2919}#) - (#{ellipsis?\ 2856}# - #{dots\ 2918}#)) - #{tmp\ 2915}#) + (lambda (#{dots\ 2868}# + #{y\ 2869}#) + (#{ellipsis?\ 2806}# + #{dots\ 2868}#)) + #{tmp\ 2865}#) #f) (@apply - (lambda (#{dots\ 2922}# - #{y\ 2923}#) - (#{f\ 2905}# - #{y\ 2923}# - (lambda (#{maps\ 2924}#) + (lambda (#{dots\ 2872}# + #{y\ 2873}#) + (#{f\ 2855}# + #{y\ 2873}# + (lambda (#{maps\ 2874}#) (call-with-values (lambda () - (#{k\ 2907}# + (#{k\ 2857}# (cons '() - #{maps\ 2924}#))) - (lambda (#{x\ 2926}# - #{maps\ 2927}#) - (if (null? (car #{maps\ 2927}#)) + #{maps\ 2874}#))) + (lambda (#{x\ 2876}# + #{maps\ 2877}#) + (if (null? (car #{maps\ 2877}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2852}#) + #{src\ 2802}#) (values - (#{gen-mappend\ 2841}# - #{x\ 2926}# - (car #{maps\ 2927}#)) - (cdr #{maps\ 2927}#)))))))) - #{tmp\ 2915}#) - (let ((#{_\ 2931}# - #{tmp\ 2914}#)) + (#{gen-mappend\ 2791}# + #{x\ 2876}# + (car #{maps\ 2877}#)) + (cdr #{maps\ 2877}#)))))))) + #{tmp\ 2865}#) + (let ((#{_\ 2881}# + #{tmp\ 2864}#)) (call-with-values (lambda () - (#{gen-syntax\ 2837}# - #{src\ 2852}# - #{y\ 2906}# - #{r\ 2854}# - #{maps\ 2855}# - #{ellipsis?\ 2856}# - #{mod\ 2857}#)) - (lambda (#{y\ 2932}# - #{maps\ 2933}#) + (#{gen-syntax\ 2787}# + #{src\ 2802}# + #{y\ 2856}# + #{r\ 2804}# + #{maps\ 2805}# + #{ellipsis?\ 2806}# + #{mod\ 2807}#)) + (lambda (#{y\ 2882}# + #{maps\ 2883}#) (call-with-values (lambda () - (#{k\ 2907}# - #{maps\ 2933}#)) - (lambda (#{x\ 2936}# - #{maps\ 2937}#) + (#{k\ 2857}# + #{maps\ 2883}#)) + (lambda (#{x\ 2886}# + #{maps\ 2887}#) (values - (#{gen-append\ 2847}# - #{x\ 2936}# - #{y\ 2932}#) - #{maps\ 2937}#)))))))))))) + (#{gen-append\ 2797}# + #{x\ 2886}# + #{y\ 2882}#) + #{maps\ 2887}#)))))))))))) (begin - (#{f\ 2905}# - #{y\ 2901}# - (lambda (#{maps\ 2908}#) + (#{f\ 2855}# + #{y\ 2851}# + (lambda (#{maps\ 2858}#) (call-with-values (lambda () - (#{gen-syntax\ 2837}# - #{src\ 2852}# - #{x\ 2899}# - #{r\ 2854}# + (#{gen-syntax\ 2787}# + #{src\ 2802}# + #{x\ 2849}# + #{r\ 2804}# (cons '() - #{maps\ 2908}#) - #{ellipsis?\ 2856}# - #{mod\ 2857}#)) - (lambda (#{x\ 2910}# - #{maps\ 2911}#) - (if (null? (car #{maps\ 2911}#)) + #{maps\ 2858}#) + #{ellipsis?\ 2806}# + #{mod\ 2807}#)) + (lambda (#{x\ 2860}# + #{maps\ 2861}#) + (if (null? (car #{maps\ 2861}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2852}#) + #{src\ 2802}#) (values - (#{gen-map\ 2843}# - #{x\ 2910}# - (car #{maps\ 2911}#)) - (cdr #{maps\ 2911}#)))))))))) - #{tmp\ 2889}#) - (let ((#{tmp\ 2940}# + (#{gen-map\ 2793}# + #{x\ 2860}# + (car #{maps\ 2861}#)) + (cdr #{maps\ 2861}#)))))))))) + #{tmp\ 2839}#) + (let ((#{tmp\ 2890}# ($sc-dispatch - #{tmp\ 2877}# + #{tmp\ 2827}# '(any . any)))) - (if #{tmp\ 2940}# + (if #{tmp\ 2890}# (@apply - (lambda (#{x\ 2943}# #{y\ 2944}#) + (lambda (#{x\ 2893}# #{y\ 2894}#) (call-with-values (lambda () - (#{gen-syntax\ 2837}# - #{src\ 2852}# - #{x\ 2943}# - #{r\ 2854}# - #{maps\ 2855}# - #{ellipsis?\ 2856}# - #{mod\ 2857}#)) - (lambda (#{x\ 2945}# #{maps\ 2946}#) + (#{gen-syntax\ 2787}# + #{src\ 2802}# + #{x\ 2893}# + #{r\ 2804}# + #{maps\ 2805}# + #{ellipsis?\ 2806}# + #{mod\ 2807}#)) + (lambda (#{x\ 2895}# #{maps\ 2896}#) (call-with-values (lambda () - (#{gen-syntax\ 2837}# - #{src\ 2852}# - #{y\ 2944}# - #{r\ 2854}# - #{maps\ 2946}# - #{ellipsis?\ 2856}# - #{mod\ 2857}#)) - (lambda (#{y\ 2949}# - #{maps\ 2950}#) + (#{gen-syntax\ 2787}# + #{src\ 2802}# + #{y\ 2894}# + #{r\ 2804}# + #{maps\ 2896}# + #{ellipsis?\ 2806}# + #{mod\ 2807}#)) + (lambda (#{y\ 2899}# + #{maps\ 2900}#) (values - (#{gen-cons\ 2845}# - #{x\ 2945}# - #{y\ 2949}#) - #{maps\ 2950}#)))))) - #{tmp\ 2940}#) - (let ((#{tmp\ 2953}# + (#{gen-cons\ 2795}# + #{x\ 2895}# + #{y\ 2899}#) + #{maps\ 2900}#)))))) + #{tmp\ 2890}#) + (let ((#{tmp\ 2903}# ($sc-dispatch - #{tmp\ 2877}# + #{tmp\ 2827}# '#(vector (any . each-any))))) - (if #{tmp\ 2953}# + (if #{tmp\ 2903}# (@apply - (lambda (#{e1\ 2956}# #{e2\ 2957}#) + (lambda (#{e1\ 2906}# #{e2\ 2907}#) (call-with-values (lambda () - (#{gen-syntax\ 2837}# - #{src\ 2852}# - (cons #{e1\ 2956}# - #{e2\ 2957}#) - #{r\ 2854}# - #{maps\ 2855}# - #{ellipsis?\ 2856}# - #{mod\ 2857}#)) - (lambda (#{e\ 2959}# - #{maps\ 2960}#) + (#{gen-syntax\ 2787}# + #{src\ 2802}# + (cons #{e1\ 2906}# + #{e2\ 2907}#) + #{r\ 2804}# + #{maps\ 2805}# + #{ellipsis?\ 2806}# + #{mod\ 2807}#)) + (lambda (#{e\ 2909}# + #{maps\ 2910}#) (values - (#{gen-vector\ 2849}# - #{e\ 2959}#) - #{maps\ 2960}#)))) - #{tmp\ 2953}#) - (let ((#{_\ 2964}# #{tmp\ 2877}#)) + (#{gen-vector\ 2799}# + #{e\ 2909}#) + #{maps\ 2910}#)))) + #{tmp\ 2903}#) + (let ((#{_\ 2914}# #{tmp\ 2827}#)) (values - (list (quote quote) #{e\ 2853}#) - #{maps\ 2855}#)))))))))))))) - (#{gen-ref\ 2839}# - (lambda (#{src\ 2966}# - #{var\ 2967}# - #{level\ 2968}# - #{maps\ 2969}#) - (if (#{fx=\ 293}# #{level\ 2968}# 0) - (values #{var\ 2967}# #{maps\ 2969}#) - (if (null? #{maps\ 2969}#) + (list (quote quote) #{e\ 2803}#) + #{maps\ 2805}#)))))))))))))) + (#{gen-ref\ 2789}# + (lambda (#{src\ 2916}# + #{var\ 2917}# + #{level\ 2918}# + #{maps\ 2919}#) + (if (#{fx=\ 285}# #{level\ 2918}# 0) + (values #{var\ 2917}# #{maps\ 2919}#) + (if (null? #{maps\ 2919}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2966}#) + #{src\ 2916}#) (call-with-values (lambda () - (#{gen-ref\ 2839}# - #{src\ 2966}# - #{var\ 2967}# - (#{fx-\ 291}# #{level\ 2968}# 1) - (cdr #{maps\ 2969}#))) - (lambda (#{outer-var\ 2974}# #{outer-maps\ 2975}#) + (#{gen-ref\ 2789}# + #{src\ 2916}# + #{var\ 2917}# + (#{fx-\ 283}# #{level\ 2918}# 1) + (cdr #{maps\ 2919}#))) + (lambda (#{outer-var\ 2924}# #{outer-maps\ 2925}#) (begin - (let ((#{b\ 2979}# - (assq #{outer-var\ 2974}# - (car #{maps\ 2969}#)))) - (if #{b\ 2979}# - (values (cdr #{b\ 2979}#) #{maps\ 2969}#) + (let ((#{b\ 2929}# + (assq #{outer-var\ 2924}# + (car #{maps\ 2919}#)))) + (if #{b\ 2929}# + (values (cdr #{b\ 2929}#) #{maps\ 2919}#) (begin - (let ((#{inner-var\ 2981}# - (#{gen-var\ 501}# (quote tmp)))) + (let ((#{inner-var\ 2931}# + (#{gen-var\ 495}# (quote tmp)))) (values - #{inner-var\ 2981}# - (cons (cons (cons #{outer-var\ 2974}# - #{inner-var\ 2981}#) - (car #{maps\ 2969}#)) - #{outer-maps\ 2975}#))))))))))))) - (#{gen-mappend\ 2841}# - (lambda (#{e\ 2982}# #{map-env\ 2983}#) + #{inner-var\ 2931}# + (cons (cons (cons #{outer-var\ 2924}# + #{inner-var\ 2931}#) + (car #{maps\ 2919}#)) + #{outer-maps\ 2925}#))))))))))))) + (#{gen-mappend\ 2791}# + (lambda (#{e\ 2932}# #{map-env\ 2933}#) (list 'apply '(primitive append) - (#{gen-map\ 2843}# #{e\ 2982}# #{map-env\ 2983}#)))) - (#{gen-map\ 2843}# - (lambda (#{e\ 2987}# #{map-env\ 2988}#) + (#{gen-map\ 2793}# #{e\ 2932}# #{map-env\ 2933}#)))) + (#{gen-map\ 2793}# + (lambda (#{e\ 2937}# #{map-env\ 2938}#) (begin - (let ((#{formals\ 2993}# (map cdr #{map-env\ 2988}#)) - (#{actuals\ 2994}# - (map (lambda (#{x\ 2995}#) - (list (quote ref) (car #{x\ 2995}#))) - #{map-env\ 2988}#))) - (if (eq? (car #{e\ 2987}#) (quote ref)) - (car #{actuals\ 2994}#) + (let ((#{formals\ 2943}# (map cdr #{map-env\ 2938}#)) + (#{actuals\ 2944}# + (map (lambda (#{x\ 2945}#) + (list (quote ref) (car #{x\ 2945}#))) + #{map-env\ 2938}#))) + (if (eq? (car #{e\ 2937}#) (quote ref)) + (car #{actuals\ 2944}#) (if (and-map - (lambda (#{x\ 3002}#) - (if (eq? (car #{x\ 3002}#) (quote ref)) - (memq (car (cdr #{x\ 3002}#)) - #{formals\ 2993}#) + (lambda (#{x\ 2952}#) + (if (eq? (car #{x\ 2952}#) (quote ref)) + (memq (car (cdr #{x\ 2952}#)) + #{formals\ 2943}#) #f)) - (cdr #{e\ 2987}#)) + (cdr #{e\ 2937}#)) (cons 'map (cons (list 'primitive - (car #{e\ 2987}#)) + (car #{e\ 2937}#)) (map (begin - (let ((#{r\ 3008}# + (let ((#{r\ 2958}# (map cons - #{formals\ 2993}# - #{actuals\ 2994}#))) - (lambda (#{x\ 3009}#) - (cdr (assq (car (cdr #{x\ 3009}#)) - #{r\ 3008}#))))) - (cdr #{e\ 2987}#)))) + #{formals\ 2943}# + #{actuals\ 2944}#))) + (lambda (#{x\ 2959}#) + (cdr (assq (car (cdr #{x\ 2959}#)) + #{r\ 2958}#))))) + (cdr #{e\ 2937}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2993}# - #{e\ 2987}#) - #{actuals\ 2994}#)))))))) - (#{gen-cons\ 2845}# - (lambda (#{x\ 3013}# #{y\ 3014}#) + #{formals\ 2943}# + #{e\ 2937}#) + #{actuals\ 2944}#)))))))) + (#{gen-cons\ 2795}# + (lambda (#{x\ 2963}# #{y\ 2964}#) (begin - (let ((#{atom-key\ 3019}# (car #{y\ 3014}#))) - (if (eqv? #{atom-key\ 3019}# (quote quote)) - (if (eq? (car #{x\ 3013}#) (quote quote)) + (let ((#{atom-key\ 2969}# (car #{y\ 2964}#))) + (if (eqv? #{atom-key\ 2969}# (quote quote)) + (if (eq? (car #{x\ 2963}#) (quote quote)) (list 'quote - (cons (car (cdr #{x\ 3013}#)) - (car (cdr #{y\ 3014}#)))) - (if (eq? (car (cdr #{y\ 3014}#)) (quote ())) - (list (quote list) #{x\ 3013}#) - (list (quote cons) #{x\ 3013}# #{y\ 3014}#))) - (if (eqv? #{atom-key\ 3019}# (quote list)) + (cons (car (cdr #{x\ 2963}#)) + (car (cdr #{y\ 2964}#)))) + (if (eq? (car (cdr #{y\ 2964}#)) (quote ())) + (list (quote list) #{x\ 2963}#) + (list (quote cons) #{x\ 2963}# #{y\ 2964}#))) + (if (eqv? #{atom-key\ 2969}# (quote list)) (cons 'list - (cons #{x\ 3013}# (cdr #{y\ 3014}#))) - (list (quote cons) #{x\ 3013}# #{y\ 3014}#))))))) - (#{gen-append\ 2847}# - (lambda (#{x\ 3028}# #{y\ 3029}#) - (if (equal? #{y\ 3029}# (quote (quote ()))) - #{x\ 3028}# - (list (quote append) #{x\ 3028}# #{y\ 3029}#)))) - (#{gen-vector\ 2849}# - (lambda (#{x\ 3033}#) - (if (eq? (car #{x\ 3033}#) (quote list)) - (cons (quote vector) (cdr #{x\ 3033}#)) - (if (eq? (car #{x\ 3033}#) (quote quote)) + (cons #{x\ 2963}# (cdr #{y\ 2964}#))) + (list (quote cons) #{x\ 2963}# #{y\ 2964}#))))))) + (#{gen-append\ 2797}# + (lambda (#{x\ 2978}# #{y\ 2979}#) + (if (equal? #{y\ 2979}# (quote (quote ()))) + #{x\ 2978}# + (list (quote append) #{x\ 2978}# #{y\ 2979}#)))) + (#{gen-vector\ 2799}# + (lambda (#{x\ 2983}#) + (if (eq? (car #{x\ 2983}#) (quote list)) + (cons (quote vector) (cdr #{x\ 2983}#)) + (if (eq? (car #{x\ 2983}#) (quote quote)) (list 'quote - (list->vector (car (cdr #{x\ 3033}#)))) - (list (quote list->vector) #{x\ 3033}#))))) - (#{regen\ 2851}# - (lambda (#{x\ 3043}#) + (list->vector (car (cdr #{x\ 2983}#)))) + (list (quote list->vector) #{x\ 2983}#))))) + (#{regen\ 2801}# + (lambda (#{x\ 2993}#) (begin - (let ((#{atom-key\ 3047}# (car #{x\ 3043}#))) - (if (eqv? #{atom-key\ 3047}# (quote ref)) - (#{build-lexical-reference\ 318}# + (let ((#{atom-key\ 2997}# (car #{x\ 2993}#))) + (if (eqv? #{atom-key\ 2997}# (quote ref)) + (#{build-lexical-reference\ 310}# 'value #f - (car (cdr #{x\ 3043}#)) - (car (cdr #{x\ 3043}#))) - (if (eqv? #{atom-key\ 3047}# (quote primitive)) - (#{build-primref\ 336}# + (car (cdr #{x\ 2993}#)) + (car (cdr #{x\ 2993}#))) + (if (eqv? #{atom-key\ 2997}# (quote primitive)) + (#{build-primref\ 328}# #f - (car (cdr #{x\ 3043}#))) - (if (eqv? #{atom-key\ 3047}# (quote quote)) - (#{build-data\ 338}# #f (car (cdr #{x\ 3043}#))) - (if (eqv? #{atom-key\ 3047}# (quote lambda)) - (if (list? (car (cdr #{x\ 3043}#))) - (#{build-simple-lambda\ 330}# + (car (cdr #{x\ 2993}#))) + (if (eqv? #{atom-key\ 2997}# (quote quote)) + (#{build-data\ 330}# #f (car (cdr #{x\ 2993}#))) + (if (eqv? #{atom-key\ 2997}# (quote lambda)) + (if (list? (car (cdr #{x\ 2993}#))) + (#{build-simple-lambda\ 322}# #f - (car (cdr #{x\ 3043}#)) + (car (cdr #{x\ 2993}#)) #f - (car (cdr #{x\ 3043}#)) + (car (cdr #{x\ 2993}#)) '() - (#{regen\ 2851}# - (car (cdr (cdr #{x\ 3043}#))))) - (error "how did we get here" #{x\ 3043}#)) - (#{build-application\ 312}# + (#{regen\ 2801}# + (car (cdr (cdr #{x\ 2993}#))))) + (error "how did we get here" #{x\ 2993}#)) + (#{build-application\ 304}# #f - (#{build-primref\ 336}# + (#{build-primref\ 328}# #f - (car #{x\ 3043}#)) - (map #{regen\ 2851}# - (cdr #{x\ 3043}#)))))))))))) + (car #{x\ 2993}#)) + (map #{regen\ 2801}# + (cdr #{x\ 2993}#)))))))))))) (begin - (lambda (#{e\ 3059}# - #{r\ 3060}# - #{w\ 3061}# - #{s\ 3062}# - #{mod\ 3063}#) + (lambda (#{e\ 3009}# + #{r\ 3010}# + #{w\ 3011}# + #{s\ 3012}# + #{mod\ 3013}#) (begin - (let ((#{e\ 3070}# - (#{source-wrap\ 459}# - #{e\ 3059}# - #{w\ 3061}# - #{s\ 3062}# - #{mod\ 3063}#))) - (let ((#{tmp\ 3071}# #{e\ 3070}#)) - (let ((#{tmp\ 3072}# + (let ((#{e\ 3020}# + (#{source-wrap\ 451}# + #{e\ 3009}# + #{w\ 3011}# + #{s\ 3012}# + #{mod\ 3013}#))) + (let ((#{tmp\ 3021}# #{e\ 3020}#)) + (let ((#{tmp\ 3022}# ($sc-dispatch - #{tmp\ 3071}# - '(any any)))) - (if #{tmp\ 3072}# + #{tmp\ 3021}# + '(_ any)))) + (if #{tmp\ 3022}# (@apply - (lambda (#{_\ 3075}# #{x\ 3076}#) + (lambda (#{x\ 3024}#) (call-with-values (lambda () - (#{gen-syntax\ 2837}# - #{e\ 3070}# - #{x\ 3076}# - #{r\ 3060}# + (#{gen-syntax\ 2787}# + #{e\ 3020}# + #{x\ 3024}# + #{r\ 3010}# '() - #{ellipsis?\ 489}# - #{mod\ 3063}#)) - (lambda (#{e\ 3077}# #{maps\ 3078}#) - (#{regen\ 2851}# #{e\ 3077}#)))) - #{tmp\ 3072}#) - (let ((#{_\ 3082}# #{tmp\ 3071}#)) + #{ellipsis?\ 481}# + #{mod\ 3013}#)) + (lambda (#{e\ 3025}# #{maps\ 3026}#) + (#{regen\ 2801}# #{e\ 3025}#)))) + #{tmp\ 3022}#) + (let ((#{_\ 3030}# #{tmp\ 3021}#)) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 3070}#))))))))))) - (#{global-extend\ 384}# + #{e\ 3020}#))))))))))) + (#{global-extend\ 376}# 'core 'lambda - (lambda (#{e\ 3083}# - #{r\ 3084}# - #{w\ 3085}# - #{s\ 3086}# - #{mod\ 3087}#) - (let ((#{tmp\ 3093}# #{e\ 3083}#)) - (let ((#{tmp\ 3094}# + (lambda (#{e\ 3031}# + #{r\ 3032}# + #{w\ 3033}# + #{s\ 3034}# + #{mod\ 3035}#) + (let ((#{tmp\ 3041}# #{e\ 3031}#)) + (let ((#{tmp\ 3042}# ($sc-dispatch - #{tmp\ 3093}# - '(any any any . each-any)))) - (if #{tmp\ 3094}# + #{tmp\ 3041}# + '(_ any any . each-any)))) + (if #{tmp\ 3042}# (@apply - (lambda (#{_\ 3099}# - #{args\ 3100}# - #{e1\ 3101}# - #{e2\ 3102}#) + (lambda (#{args\ 3046}# #{e1\ 3047}# #{e2\ 3048}#) (call-with-values (lambda () - (#{lambda-formals\ 491}# #{args\ 3100}#)) - (lambda (#{req\ 3103}# - #{opt\ 3104}# - #{rest\ 3105}# - #{kw\ 3106}#) + (#{lambda-formals\ 485}# #{args\ 3046}#)) + (lambda (#{req\ 3049}# + #{opt\ 3050}# + #{rest\ 3051}# + #{kw\ 3052}#) (letrec* - ((#{lp\ 3114}# - (lambda (#{body\ 3115}# #{meta\ 3116}#) - (let ((#{tmp\ 3118}# #{body\ 3115}#)) - (let ((#{tmp\ 3119}# + ((#{lp\ 3060}# + (lambda (#{body\ 3061}# #{meta\ 3062}#) + (let ((#{tmp\ 3064}# #{body\ 3061}#)) + (let ((#{tmp\ 3065}# ($sc-dispatch - #{tmp\ 3118}# + #{tmp\ 3064}# '(any any . each-any)))) - (if (if #{tmp\ 3119}# + (if (if #{tmp\ 3065}# (@apply - (lambda (#{docstring\ 3123}# - #{e1\ 3124}# - #{e2\ 3125}#) + (lambda (#{docstring\ 3069}# + #{e1\ 3070}# + #{e2\ 3071}#) (string? (syntax->datum - #{docstring\ 3123}#))) - #{tmp\ 3119}#) + #{docstring\ 3069}#))) + #{tmp\ 3065}#) #f) (@apply - (lambda (#{docstring\ 3129}# - #{e1\ 3130}# - #{e2\ 3131}#) - (#{lp\ 3114}# - (cons #{e1\ 3130}# - #{e2\ 3131}#) + (lambda (#{docstring\ 3075}# + #{e1\ 3076}# + #{e2\ 3077}#) + (#{lp\ 3060}# + (cons #{e1\ 3076}# + #{e2\ 3077}#) (append - #{meta\ 3116}# + #{meta\ 3062}# (list (cons 'documentation (syntax->datum - #{docstring\ 3129}#)))))) - #{tmp\ 3119}#) - (let ((#{tmp\ 3134}# + #{docstring\ 3075}#)))))) + #{tmp\ 3065}#) + (let ((#{tmp\ 3080}# ($sc-dispatch - #{tmp\ 3118}# + #{tmp\ 3064}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp\ 3134}# + (if #{tmp\ 3080}# (@apply - (lambda (#{k\ 3139}# - #{v\ 3140}# - #{e1\ 3141}# - #{e2\ 3142}#) - (#{lp\ 3114}# - (cons #{e1\ 3141}# - #{e2\ 3142}#) + (lambda (#{k\ 3085}# + #{v\ 3086}# + #{e1\ 3087}# + #{e2\ 3088}#) + (#{lp\ 3060}# + (cons #{e1\ 3087}# + #{e2\ 3088}#) (append - #{meta\ 3116}# + #{meta\ 3062}# (syntax->datum (map cons - #{k\ 3139}# - #{v\ 3140}#))))) - #{tmp\ 3134}#) - (let ((#{_\ 3147}# - #{tmp\ 3118}#)) - (#{chi-simple-lambda\ 493}# - #{e\ 3083}# - #{r\ 3084}# - #{w\ 3085}# - #{s\ 3086}# - #{mod\ 3087}# - #{req\ 3103}# - #{rest\ 3105}# - #{meta\ 3116}# - #{body\ 3115}#)))))))))) + #{k\ 3085}# + #{v\ 3086}#))))) + #{tmp\ 3080}#) + (let ((#{_\ 3093}# + #{tmp\ 3064}#)) + (#{chi-simple-lambda\ 487}# + #{e\ 3031}# + #{r\ 3032}# + #{w\ 3033}# + #{s\ 3034}# + #{mod\ 3035}# + #{req\ 3049}# + #{rest\ 3051}# + #{meta\ 3062}# + #{body\ 3061}#)))))))))) (begin - (#{lp\ 3114}# - (cons #{e1\ 3101}# #{e2\ 3102}#) + (#{lp\ 3060}# + (cons #{e1\ 3047}# #{e2\ 3048}#) '())))))) - #{tmp\ 3094}#) - (let ((#{_\ 3149}# #{tmp\ 3093}#)) + #{tmp\ 3042}#) + (let ((#{_\ 3095}# #{tmp\ 3041}#)) (syntax-violation 'lambda "bad lambda" - #{e\ 3083}#))))))) - (#{global-extend\ 384}# + #{e\ 3031}#))))))) + (#{global-extend\ 376}# 'core 'lambda* - (lambda (#{e\ 3150}# - #{r\ 3151}# - #{w\ 3152}# - #{s\ 3153}# - #{mod\ 3154}#) - (let ((#{tmp\ 3160}# #{e\ 3150}#)) - (let ((#{tmp\ 3161}# + (lambda (#{e\ 3096}# + #{r\ 3097}# + #{w\ 3098}# + #{s\ 3099}# + #{mod\ 3100}#) + (let ((#{tmp\ 3106}# #{e\ 3096}#)) + (let ((#{tmp\ 3107}# ($sc-dispatch - #{tmp\ 3160}# - '(any any any . each-any)))) - (if #{tmp\ 3161}# + #{tmp\ 3106}# + '(_ any any . each-any)))) + (if #{tmp\ 3107}# (@apply - (lambda (#{_\ 3166}# - #{args\ 3167}# - #{e1\ 3168}# - #{e2\ 3169}#) + (lambda (#{args\ 3111}# #{e1\ 3112}# #{e2\ 3113}#) (call-with-values (lambda () - (#{chi-lambda-case\ 497}# - #{e\ 3150}# - #{r\ 3151}# - #{w\ 3152}# - #{s\ 3153}# - #{mod\ 3154}# - #{lambda*-formals\ 495}# - (list (cons #{args\ 3167}# - (cons #{e1\ 3168}# - #{e2\ 3169}#))))) - (lambda (#{meta\ 3171}# #{lcase\ 3172}#) - (#{build-case-lambda\ 332}# - #{s\ 3153}# - #{meta\ 3171}# - #{lcase\ 3172}#)))) - #{tmp\ 3161}#) - (let ((#{_\ 3176}# #{tmp\ 3160}#)) + (#{chi-lambda-case\ 491}# + #{e\ 3096}# + #{r\ 3097}# + #{w\ 3098}# + #{s\ 3099}# + #{mod\ 3100}# + #{lambda*-formals\ 489}# + (list (cons #{args\ 3111}# + (cons #{e1\ 3112}# + #{e2\ 3113}#))))) + (lambda (#{meta\ 3115}# #{lcase\ 3116}#) + (#{build-case-lambda\ 324}# + #{s\ 3099}# + #{meta\ 3115}# + #{lcase\ 3116}#)))) + #{tmp\ 3107}#) + (let ((#{_\ 3120}# #{tmp\ 3106}#)) (syntax-violation 'lambda "bad lambda*" - #{e\ 3150}#))))))) - (#{global-extend\ 384}# + #{e\ 3096}#))))))) + (#{global-extend\ 376}# 'core 'case-lambda - (lambda (#{e\ 3177}# - #{r\ 3178}# - #{w\ 3179}# - #{s\ 3180}# - #{mod\ 3181}#) - (let ((#{tmp\ 3187}# #{e\ 3177}#)) - (let ((#{tmp\ 3188}# + (lambda (#{e\ 3121}# + #{r\ 3122}# + #{w\ 3123}# + #{s\ 3124}# + #{mod\ 3125}#) + (let ((#{tmp\ 3131}# #{e\ 3121}#)) + (let ((#{tmp\ 3132}# ($sc-dispatch - #{tmp\ 3187}# - '(any (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp\ 3188}# + #{tmp\ 3131}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp\ 3132}# (@apply - (lambda (#{_\ 3196}# - #{args\ 3197}# - #{e1\ 3198}# - #{e2\ 3199}# - #{args*\ 3200}# - #{e1*\ 3201}# - #{e2*\ 3202}#) + (lambda (#{args\ 3139}# + #{e1\ 3140}# + #{e2\ 3141}# + #{args*\ 3142}# + #{e1*\ 3143}# + #{e2*\ 3144}#) (call-with-values (lambda () - (#{chi-lambda-case\ 497}# - #{e\ 3177}# - #{r\ 3178}# - #{w\ 3179}# - #{s\ 3180}# - #{mod\ 3181}# - #{lambda-formals\ 491}# - (cons (cons #{args\ 3197}# - (cons #{e1\ 3198}# #{e2\ 3199}#)) - (map (lambda (#{tmp\ 3206}# - #{tmp\ 3205}# - #{tmp\ 3204}#) - (cons #{tmp\ 3204}# - (cons #{tmp\ 3205}# - #{tmp\ 3206}#))) - #{e2*\ 3202}# - #{e1*\ 3201}# - #{args*\ 3200}#)))) - (lambda (#{meta\ 3208}# #{lcase\ 3209}#) - (#{build-case-lambda\ 332}# - #{s\ 3180}# - #{meta\ 3208}# - #{lcase\ 3209}#)))) - #{tmp\ 3188}#) - (let ((#{_\ 3213}# #{tmp\ 3187}#)) + (#{chi-lambda-case\ 491}# + #{e\ 3121}# + #{r\ 3122}# + #{w\ 3123}# + #{s\ 3124}# + #{mod\ 3125}# + #{lambda-formals\ 485}# + (cons (cons #{args\ 3139}# + (cons #{e1\ 3140}# #{e2\ 3141}#)) + (map (lambda (#{tmp\ 3148}# + #{tmp\ 3147}# + #{tmp\ 3146}#) + (cons #{tmp\ 3146}# + (cons #{tmp\ 3147}# + #{tmp\ 3148}#))) + #{e2*\ 3144}# + #{e1*\ 3143}# + #{args*\ 3142}#)))) + (lambda (#{meta\ 3150}# #{lcase\ 3151}#) + (#{build-case-lambda\ 324}# + #{s\ 3124}# + #{meta\ 3150}# + #{lcase\ 3151}#)))) + #{tmp\ 3132}#) + (let ((#{_\ 3155}# #{tmp\ 3131}#)) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3177}#))))))) - (#{global-extend\ 384}# + #{e\ 3121}#))))))) + (#{global-extend\ 376}# 'core 'case-lambda* - (lambda (#{e\ 3214}# - #{r\ 3215}# - #{w\ 3216}# - #{s\ 3217}# - #{mod\ 3218}#) - (let ((#{tmp\ 3224}# #{e\ 3214}#)) - (let ((#{tmp\ 3225}# + (lambda (#{e\ 3156}# + #{r\ 3157}# + #{w\ 3158}# + #{s\ 3159}# + #{mod\ 3160}#) + (let ((#{tmp\ 3166}# #{e\ 3156}#)) + (let ((#{tmp\ 3167}# ($sc-dispatch - #{tmp\ 3224}# - '(any (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp\ 3225}# + #{tmp\ 3166}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp\ 3167}# (@apply - (lambda (#{_\ 3233}# - #{args\ 3234}# - #{e1\ 3235}# - #{e2\ 3236}# - #{args*\ 3237}# - #{e1*\ 3238}# - #{e2*\ 3239}#) + (lambda (#{args\ 3174}# + #{e1\ 3175}# + #{e2\ 3176}# + #{args*\ 3177}# + #{e1*\ 3178}# + #{e2*\ 3179}#) (call-with-values (lambda () - (#{chi-lambda-case\ 497}# - #{e\ 3214}# - #{r\ 3215}# - #{w\ 3216}# - #{s\ 3217}# - #{mod\ 3218}# - #{lambda*-formals\ 495}# - (cons (cons #{args\ 3234}# - (cons #{e1\ 3235}# #{e2\ 3236}#)) - (map (lambda (#{tmp\ 3243}# - #{tmp\ 3242}# - #{tmp\ 3241}#) - (cons #{tmp\ 3241}# - (cons #{tmp\ 3242}# - #{tmp\ 3243}#))) - #{e2*\ 3239}# - #{e1*\ 3238}# - #{args*\ 3237}#)))) - (lambda (#{meta\ 3245}# #{lcase\ 3246}#) - (#{build-case-lambda\ 332}# - #{s\ 3217}# - #{meta\ 3245}# - #{lcase\ 3246}#)))) - #{tmp\ 3225}#) - (let ((#{_\ 3250}# #{tmp\ 3224}#)) + (#{chi-lambda-case\ 491}# + #{e\ 3156}# + #{r\ 3157}# + #{w\ 3158}# + #{s\ 3159}# + #{mod\ 3160}# + #{lambda*-formals\ 489}# + (cons (cons #{args\ 3174}# + (cons #{e1\ 3175}# #{e2\ 3176}#)) + (map (lambda (#{tmp\ 3183}# + #{tmp\ 3182}# + #{tmp\ 3181}#) + (cons #{tmp\ 3181}# + (cons #{tmp\ 3182}# + #{tmp\ 3183}#))) + #{e2*\ 3179}# + #{e1*\ 3178}# + #{args*\ 3177}#)))) + (lambda (#{meta\ 3185}# #{lcase\ 3186}#) + (#{build-case-lambda\ 324}# + #{s\ 3159}# + #{meta\ 3185}# + #{lcase\ 3186}#)))) + #{tmp\ 3167}#) + (let ((#{_\ 3190}# #{tmp\ 3166}#)) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3214}#))))))) - (#{global-extend\ 384}# + #{e\ 3156}#))))))) + (#{global-extend\ 376}# 'core 'let (letrec* - ((#{chi-let\ 3252}# - (lambda (#{e\ 3253}# - #{r\ 3254}# - #{w\ 3255}# - #{s\ 3256}# - #{mod\ 3257}# - #{constructor\ 3258}# - #{ids\ 3259}# - #{vals\ 3260}# - #{exps\ 3261}#) - (if (not (#{valid-bound-ids?\ 451}# #{ids\ 3259}#)) + ((#{chi-let\ 3192}# + (lambda (#{e\ 3193}# + #{r\ 3194}# + #{w\ 3195}# + #{s\ 3196}# + #{mod\ 3197}# + #{constructor\ 3198}# + #{ids\ 3199}# + #{vals\ 3200}# + #{exps\ 3201}#) + (if (not (#{valid-bound-ids?\ 443}# #{ids\ 3199}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3253}#) + #{e\ 3193}#) (begin - (let ((#{labels\ 3273}# - (#{gen-labels\ 406}# #{ids\ 3259}#)) - (#{new-vars\ 3274}# - (map #{gen-var\ 501}# #{ids\ 3259}#))) + (let ((#{labels\ 3213}# + (#{gen-labels\ 398}# #{ids\ 3199}#)) + (#{new-vars\ 3214}# + (map #{gen-var\ 495}# #{ids\ 3199}#))) (begin - (let ((#{nw\ 3277}# - (#{make-binding-wrap\ 435}# - #{ids\ 3259}# - #{labels\ 3273}# - #{w\ 3255}#)) - (#{nr\ 3278}# - (#{extend-var-env\ 378}# - #{labels\ 3273}# - #{new-vars\ 3274}# - #{r\ 3254}#))) - (#{constructor\ 3258}# - #{s\ 3256}# - (map syntax->datum #{ids\ 3259}#) - #{new-vars\ 3274}# - (map (lambda (#{x\ 3279}#) - (#{chi\ 473}# - #{x\ 3279}# - #{r\ 3254}# - #{w\ 3255}# - #{mod\ 3257}#)) - #{vals\ 3260}#) - (#{chi-body\ 481}# - #{exps\ 3261}# - (#{source-wrap\ 459}# - #{e\ 3253}# - #{nw\ 3277}# - #{s\ 3256}# - #{mod\ 3257}#) - #{nr\ 3278}# - #{nw\ 3277}# - #{mod\ 3257}#)))))))))) + (let ((#{nw\ 3217}# + (#{make-binding-wrap\ 427}# + #{ids\ 3199}# + #{labels\ 3213}# + #{w\ 3195}#)) + (#{nr\ 3218}# + (#{extend-var-env\ 370}# + #{labels\ 3213}# + #{new-vars\ 3214}# + #{r\ 3194}#))) + (#{constructor\ 3198}# + #{s\ 3196}# + (map syntax->datum #{ids\ 3199}#) + #{new-vars\ 3214}# + (map (lambda (#{x\ 3219}#) + (#{chi\ 465}# + #{x\ 3219}# + #{r\ 3194}# + #{w\ 3195}# + #{mod\ 3197}#)) + #{vals\ 3200}#) + (#{chi-body\ 473}# + #{exps\ 3201}# + (#{source-wrap\ 451}# + #{e\ 3193}# + #{nw\ 3217}# + #{s\ 3196}# + #{mod\ 3197}#) + #{nr\ 3218}# + #{nw\ 3217}# + #{mod\ 3197}#)))))))))) (begin - (lambda (#{e\ 3281}# - #{r\ 3282}# - #{w\ 3283}# - #{s\ 3284}# - #{mod\ 3285}#) - (let ((#{tmp\ 3291}# #{e\ 3281}#)) - (let ((#{tmp\ 3292}# + (lambda (#{e\ 3221}# + #{r\ 3222}# + #{w\ 3223}# + #{s\ 3224}# + #{mod\ 3225}#) + (let ((#{tmp\ 3231}# #{e\ 3221}#)) + (let ((#{tmp\ 3232}# ($sc-dispatch - #{tmp\ 3291}# - '(any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3292}# + #{tmp\ 3231}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp\ 3232}# (@apply - (lambda (#{_\ 3298}# - #{id\ 3299}# - #{val\ 3300}# - #{e1\ 3301}# - #{e2\ 3302}#) - (and-map #{id?\ 388}# #{id\ 3299}#)) - #{tmp\ 3292}#) + (lambda (#{id\ 3237}# + #{val\ 3238}# + #{e1\ 3239}# + #{e2\ 3240}#) + (and-map #{id?\ 380}# #{id\ 3237}#)) + #{tmp\ 3232}#) #f) (@apply - (lambda (#{_\ 3309}# - #{id\ 3310}# - #{val\ 3311}# - #{e1\ 3312}# - #{e2\ 3313}#) - (#{chi-let\ 3252}# - #{e\ 3281}# - #{r\ 3282}# - #{w\ 3283}# - #{s\ 3284}# - #{mod\ 3285}# - #{build-let\ 342}# - #{id\ 3310}# - #{val\ 3311}# - (cons #{e1\ 3312}# #{e2\ 3313}#))) - #{tmp\ 3292}#) - (let ((#{tmp\ 3317}# + (lambda (#{id\ 3246}# + #{val\ 3247}# + #{e1\ 3248}# + #{e2\ 3249}#) + (#{chi-let\ 3192}# + #{e\ 3221}# + #{r\ 3222}# + #{w\ 3223}# + #{s\ 3224}# + #{mod\ 3225}# + #{build-let\ 334}# + #{id\ 3246}# + #{val\ 3247}# + (cons #{e1\ 3248}# #{e2\ 3249}#))) + #{tmp\ 3232}#) + (let ((#{tmp\ 3253}# ($sc-dispatch - #{tmp\ 3291}# - '(any any - #(each (any any)) - any - . - each-any)))) - (if (if #{tmp\ 3317}# + #{tmp\ 3231}# + '(_ any + #(each (any any)) + any + . + each-any)))) + (if (if #{tmp\ 3253}# (@apply - (lambda (#{_\ 3324}# - #{f\ 3325}# - #{id\ 3326}# - #{val\ 3327}# - #{e1\ 3328}# - #{e2\ 3329}#) - (if (#{id?\ 388}# #{f\ 3325}#) - (and-map #{id?\ 388}# #{id\ 3326}#) + (lambda (#{f\ 3259}# + #{id\ 3260}# + #{val\ 3261}# + #{e1\ 3262}# + #{e2\ 3263}#) + (if (#{id?\ 380}# #{f\ 3259}#) + (and-map #{id?\ 380}# #{id\ 3260}#) #f)) - #{tmp\ 3317}#) + #{tmp\ 3253}#) #f) (@apply - (lambda (#{_\ 3339}# - #{f\ 3340}# - #{id\ 3341}# - #{val\ 3342}# - #{e1\ 3343}# - #{e2\ 3344}#) - (#{chi-let\ 3252}# - #{e\ 3281}# - #{r\ 3282}# - #{w\ 3283}# - #{s\ 3284}# - #{mod\ 3285}# - #{build-named-let\ 344}# - (cons #{f\ 3340}# #{id\ 3341}#) - #{val\ 3342}# - (cons #{e1\ 3343}# #{e2\ 3344}#))) - #{tmp\ 3317}#) - (let ((#{_\ 3349}# #{tmp\ 3291}#)) + (lambda (#{f\ 3272}# + #{id\ 3273}# + #{val\ 3274}# + #{e1\ 3275}# + #{e2\ 3276}#) + (#{chi-let\ 3192}# + #{e\ 3221}# + #{r\ 3222}# + #{w\ 3223}# + #{s\ 3224}# + #{mod\ 3225}# + #{build-named-let\ 336}# + (cons #{f\ 3272}# #{id\ 3273}#) + #{val\ 3274}# + (cons #{e1\ 3275}# #{e2\ 3276}#))) + #{tmp\ 3253}#) + (let ((#{_\ 3281}# #{tmp\ 3231}#)) (syntax-violation 'let "bad let" - (#{source-wrap\ 459}# - #{e\ 3281}# - #{w\ 3283}# - #{s\ 3284}# - #{mod\ 3285}#)))))))))))) - (#{global-extend\ 384}# + (#{source-wrap\ 451}# + #{e\ 3221}# + #{w\ 3223}# + #{s\ 3224}# + #{mod\ 3225}#)))))))))))) + (#{global-extend\ 376}# 'core 'letrec - (lambda (#{e\ 3350}# - #{r\ 3351}# - #{w\ 3352}# - #{s\ 3353}# - #{mod\ 3354}#) - (let ((#{tmp\ 3360}# #{e\ 3350}#)) - (let ((#{tmp\ 3361}# + (lambda (#{e\ 3282}# + #{r\ 3283}# + #{w\ 3284}# + #{s\ 3285}# + #{mod\ 3286}#) + (let ((#{tmp\ 3292}# #{e\ 3282}#)) + (let ((#{tmp\ 3293}# ($sc-dispatch - #{tmp\ 3360}# - '(any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3361}# + #{tmp\ 3292}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp\ 3293}# (@apply - (lambda (#{_\ 3367}# - #{id\ 3368}# - #{val\ 3369}# - #{e1\ 3370}# - #{e2\ 3371}#) - (and-map #{id?\ 388}# #{id\ 3368}#)) - #{tmp\ 3361}#) + (lambda (#{id\ 3298}# + #{val\ 3299}# + #{e1\ 3300}# + #{e2\ 3301}#) + (and-map #{id?\ 380}# #{id\ 3298}#)) + #{tmp\ 3293}#) #f) (@apply - (lambda (#{_\ 3378}# - #{id\ 3379}# - #{val\ 3380}# - #{e1\ 3381}# - #{e2\ 3382}#) + (lambda (#{id\ 3307}# + #{val\ 3308}# + #{e1\ 3309}# + #{e2\ 3310}#) (begin - (let ((#{ids\ 3384}# #{id\ 3379}#)) - (if (not (#{valid-bound-ids?\ 451}# - #{ids\ 3384}#)) + (let ((#{ids\ 3312}# #{id\ 3307}#)) + (if (not (#{valid-bound-ids?\ 443}# + #{ids\ 3312}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3350}#) + #{e\ 3282}#) (begin - (let ((#{labels\ 3388}# - (#{gen-labels\ 406}# #{ids\ 3384}#)) - (#{new-vars\ 3389}# - (map #{gen-var\ 501}# - #{ids\ 3384}#))) + (let ((#{labels\ 3316}# + (#{gen-labels\ 398}# #{ids\ 3312}#)) + (#{new-vars\ 3317}# + (map #{gen-var\ 495}# + #{ids\ 3312}#))) (begin - (let ((#{w\ 3392}# - (#{make-binding-wrap\ 435}# - #{ids\ 3384}# - #{labels\ 3388}# - #{w\ 3352}#)) - (#{r\ 3393}# - (#{extend-var-env\ 378}# - #{labels\ 3388}# - #{new-vars\ 3389}# - #{r\ 3351}#))) - (#{build-letrec\ 346}# - #{s\ 3353}# + (let ((#{w\ 3320}# + (#{make-binding-wrap\ 427}# + #{ids\ 3312}# + #{labels\ 3316}# + #{w\ 3284}#)) + (#{r\ 3321}# + (#{extend-var-env\ 370}# + #{labels\ 3316}# + #{new-vars\ 3317}# + #{r\ 3283}#))) + (#{build-letrec\ 338}# + #{s\ 3285}# #f - (map syntax->datum #{ids\ 3384}#) - #{new-vars\ 3389}# - (map (lambda (#{x\ 3394}#) - (#{chi\ 473}# - #{x\ 3394}# - #{r\ 3393}# - #{w\ 3392}# - #{mod\ 3354}#)) - #{val\ 3380}#) - (#{chi-body\ 481}# - (cons #{e1\ 3381}# #{e2\ 3382}#) - (#{source-wrap\ 459}# - #{e\ 3350}# - #{w\ 3392}# - #{s\ 3353}# - #{mod\ 3354}#) - #{r\ 3393}# - #{w\ 3392}# - #{mod\ 3354}#)))))))))) - #{tmp\ 3361}#) - (let ((#{_\ 3399}# #{tmp\ 3360}#)) + (map syntax->datum #{ids\ 3312}#) + #{new-vars\ 3317}# + (map (lambda (#{x\ 3322}#) + (#{chi\ 465}# + #{x\ 3322}# + #{r\ 3321}# + #{w\ 3320}# + #{mod\ 3286}#)) + #{val\ 3308}#) + (#{chi-body\ 473}# + (cons #{e1\ 3309}# #{e2\ 3310}#) + (#{source-wrap\ 451}# + #{e\ 3282}# + #{w\ 3320}# + #{s\ 3285}# + #{mod\ 3286}#) + #{r\ 3321}# + #{w\ 3320}# + #{mod\ 3286}#)))))))))) + #{tmp\ 3293}#) + (let ((#{_\ 3327}# #{tmp\ 3292}#)) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 459}# - #{e\ 3350}# - #{w\ 3352}# - #{s\ 3353}# - #{mod\ 3354}#)))))))) - (#{global-extend\ 384}# + (#{source-wrap\ 451}# + #{e\ 3282}# + #{w\ 3284}# + #{s\ 3285}# + #{mod\ 3286}#)))))))) + (#{global-extend\ 376}# 'core 'letrec* - (lambda (#{e\ 3400}# - #{r\ 3401}# - #{w\ 3402}# - #{s\ 3403}# - #{mod\ 3404}#) - (let ((#{tmp\ 3410}# #{e\ 3400}#)) - (let ((#{tmp\ 3411}# + (lambda (#{e\ 3328}# + #{r\ 3329}# + #{w\ 3330}# + #{s\ 3331}# + #{mod\ 3332}#) + (let ((#{tmp\ 3338}# #{e\ 3328}#)) + (let ((#{tmp\ 3339}# ($sc-dispatch - #{tmp\ 3410}# - '(any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3411}# + #{tmp\ 3338}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp\ 3339}# (@apply - (lambda (#{_\ 3417}# - #{id\ 3418}# - #{val\ 3419}# - #{e1\ 3420}# - #{e2\ 3421}#) - (and-map #{id?\ 388}# #{id\ 3418}#)) - #{tmp\ 3411}#) + (lambda (#{id\ 3344}# + #{val\ 3345}# + #{e1\ 3346}# + #{e2\ 3347}#) + (and-map #{id?\ 380}# #{id\ 3344}#)) + #{tmp\ 3339}#) #f) (@apply - (lambda (#{_\ 3428}# - #{id\ 3429}# - #{val\ 3430}# - #{e1\ 3431}# - #{e2\ 3432}#) + (lambda (#{id\ 3353}# + #{val\ 3354}# + #{e1\ 3355}# + #{e2\ 3356}#) (begin - (let ((#{ids\ 3434}# #{id\ 3429}#)) - (if (not (#{valid-bound-ids?\ 451}# - #{ids\ 3434}#)) + (let ((#{ids\ 3358}# #{id\ 3353}#)) + (if (not (#{valid-bound-ids?\ 443}# + #{ids\ 3358}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e\ 3400}#) + #{e\ 3328}#) (begin - (let ((#{labels\ 3438}# - (#{gen-labels\ 406}# #{ids\ 3434}#)) - (#{new-vars\ 3439}# - (map #{gen-var\ 501}# - #{ids\ 3434}#))) + (let ((#{labels\ 3362}# + (#{gen-labels\ 398}# #{ids\ 3358}#)) + (#{new-vars\ 3363}# + (map #{gen-var\ 495}# + #{ids\ 3358}#))) (begin - (let ((#{w\ 3442}# - (#{make-binding-wrap\ 435}# - #{ids\ 3434}# - #{labels\ 3438}# - #{w\ 3402}#)) - (#{r\ 3443}# - (#{extend-var-env\ 378}# - #{labels\ 3438}# - #{new-vars\ 3439}# - #{r\ 3401}#))) - (#{build-letrec\ 346}# - #{s\ 3403}# + (let ((#{w\ 3366}# + (#{make-binding-wrap\ 427}# + #{ids\ 3358}# + #{labels\ 3362}# + #{w\ 3330}#)) + (#{r\ 3367}# + (#{extend-var-env\ 370}# + #{labels\ 3362}# + #{new-vars\ 3363}# + #{r\ 3329}#))) + (#{build-letrec\ 338}# + #{s\ 3331}# #t - (map syntax->datum #{ids\ 3434}#) - #{new-vars\ 3439}# - (map (lambda (#{x\ 3444}#) - (#{chi\ 473}# - #{x\ 3444}# - #{r\ 3443}# - #{w\ 3442}# - #{mod\ 3404}#)) - #{val\ 3430}#) - (#{chi-body\ 481}# - (cons #{e1\ 3431}# #{e2\ 3432}#) - (#{source-wrap\ 459}# - #{e\ 3400}# - #{w\ 3442}# - #{s\ 3403}# - #{mod\ 3404}#) - #{r\ 3443}# - #{w\ 3442}# - #{mod\ 3404}#)))))))))) - #{tmp\ 3411}#) - (let ((#{_\ 3449}# #{tmp\ 3410}#)) + (map syntax->datum #{ids\ 3358}#) + #{new-vars\ 3363}# + (map (lambda (#{x\ 3368}#) + (#{chi\ 465}# + #{x\ 3368}# + #{r\ 3367}# + #{w\ 3366}# + #{mod\ 3332}#)) + #{val\ 3354}#) + (#{chi-body\ 473}# + (cons #{e1\ 3355}# #{e2\ 3356}#) + (#{source-wrap\ 451}# + #{e\ 3328}# + #{w\ 3366}# + #{s\ 3331}# + #{mod\ 3332}#) + #{r\ 3367}# + #{w\ 3366}# + #{mod\ 3332}#)))))))))) + #{tmp\ 3339}#) + (let ((#{_\ 3373}# #{tmp\ 3338}#)) (syntax-violation 'letrec* "bad letrec*" - (#{source-wrap\ 459}# - #{e\ 3400}# - #{w\ 3402}# - #{s\ 3403}# - #{mod\ 3404}#)))))))) - (#{global-extend\ 384}# + (#{source-wrap\ 451}# + #{e\ 3328}# + #{w\ 3330}# + #{s\ 3331}# + #{mod\ 3332}#)))))))) + (#{global-extend\ 376}# 'core 'set! - (lambda (#{e\ 3450}# - #{r\ 3451}# - #{w\ 3452}# - #{s\ 3453}# - #{mod\ 3454}#) - (let ((#{tmp\ 3460}# #{e\ 3450}#)) - (let ((#{tmp\ 3461}# - ($sc-dispatch - #{tmp\ 3460}# - '(any any any)))) - (if (if #{tmp\ 3461}# + (lambda (#{e\ 3374}# + #{r\ 3375}# + #{w\ 3376}# + #{s\ 3377}# + #{mod\ 3378}#) + (let ((#{tmp\ 3384}# #{e\ 3374}#)) + (let ((#{tmp\ 3385}# + ($sc-dispatch #{tmp\ 3384}# (quote (_ any any))))) + (if (if #{tmp\ 3385}# (@apply - (lambda (#{_\ 3465}# #{id\ 3466}# #{val\ 3467}#) - (#{id?\ 388}# #{id\ 3466}#)) - #{tmp\ 3461}#) + (lambda (#{id\ 3388}# #{val\ 3389}#) + (#{id?\ 380}# #{id\ 3388}#)) + #{tmp\ 3385}#) #f) (@apply - (lambda (#{_\ 3471}# #{id\ 3472}# #{val\ 3473}#) + (lambda (#{id\ 3392}# #{val\ 3393}#) (begin - (let ((#{n\ 3475}# - (#{id-var-name\ 445}# - #{id\ 3472}# - #{w\ 3452}#))) + (let ((#{n\ 3395}# + (#{id-var-name\ 437}# + #{id\ 3392}# + #{w\ 3376}#))) (begin - (let ((#{b\ 3477}# - (#{lookup\ 382}# - #{n\ 3475}# - #{r\ 3451}# - #{mod\ 3454}#))) + (let ((#{b\ 3397}# + (#{lookup\ 374}# + #{n\ 3395}# + #{r\ 3375}# + #{mod\ 3378}#))) (begin - (let ((#{atom-key\ 3480}# - (#{binding-type\ 371}# - #{b\ 3477}#))) - (if (eqv? #{atom-key\ 3480}# + (let ((#{atom-key\ 3400}# + (#{binding-type\ 363}# + #{b\ 3397}#))) + (if (eqv? #{atom-key\ 3400}# 'lexical) - (#{build-lexical-assignment\ 320}# - #{s\ 3453}# - (syntax->datum #{id\ 3472}#) - (#{binding-value\ 373}# #{b\ 3477}#) - (#{chi\ 473}# - #{val\ 3473}# - #{r\ 3451}# - #{w\ 3452}# - #{mod\ 3454}#)) - (if (eqv? #{atom-key\ 3480}# + (#{build-lexical-assignment\ 312}# + #{s\ 3377}# + (syntax->datum #{id\ 3392}#) + (#{binding-value\ 365}# #{b\ 3397}#) + (#{chi\ 465}# + #{val\ 3393}# + #{r\ 3375}# + #{w\ 3376}# + #{mod\ 3378}#)) + (if (eqv? #{atom-key\ 3400}# 'global) - (#{build-global-assignment\ 326}# - #{s\ 3453}# - #{n\ 3475}# - (#{chi\ 473}# - #{val\ 3473}# - #{r\ 3451}# - #{w\ 3452}# - #{mod\ 3454}#) - #{mod\ 3454}#) - (if (eqv? #{atom-key\ 3480}# + (#{build-global-assignment\ 318}# + #{s\ 3377}# + #{n\ 3395}# + (#{chi\ 465}# + #{val\ 3393}# + #{r\ 3375}# + #{w\ 3376}# + #{mod\ 3378}#) + #{mod\ 3378}#) + (if (eqv? #{atom-key\ 3400}# 'macro) (begin - (let ((#{p\ 3485}# - (#{binding-value\ 373}# - #{b\ 3477}#))) + (let ((#{p\ 3405}# + (#{binding-value\ 365}# + #{b\ 3397}#))) (if (procedure-property - #{p\ 3485}# + #{p\ 3405}# 'variable-transformer) - (#{chi\ 473}# - (#{chi-macro\ 479}# - #{p\ 3485}# - #{e\ 3450}# - #{r\ 3451}# - #{w\ 3452}# - #{s\ 3453}# + (#{chi\ 465}# + (#{chi-macro\ 471}# + #{p\ 3405}# + #{e\ 3374}# + #{r\ 3375}# + #{w\ 3376}# + #{s\ 3377}# #f - #{mod\ 3454}#) - #{r\ 3451}# - #{w\ 3452}# - #{mod\ 3454}#) + #{mod\ 3378}#) + #{r\ 3375}# + #{w\ 3376}# + #{mod\ 3378}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap\ 457}# - #{e\ 3450}# - #{w\ 3452}# - #{mod\ 3454}#) - (#{wrap\ 457}# - #{id\ 3472}# - #{w\ 3452}# - #{mod\ 3454}#))))) - (if (eqv? #{atom-key\ 3480}# + (#{wrap\ 449}# + #{e\ 3374}# + #{w\ 3376}# + #{mod\ 3378}#) + (#{wrap\ 449}# + #{id\ 3392}# + #{w\ 3376}# + #{mod\ 3378}#))))) + (if (eqv? #{atom-key\ 3400}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 457}# - #{id\ 3472}# - #{w\ 3452}# - #{mod\ 3454}#)) + (#{wrap\ 449}# + #{id\ 3392}# + #{w\ 3376}# + #{mod\ 3378}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 459}# - #{e\ 3450}# - #{w\ 3452}# - #{s\ 3453}# - #{mod\ 3454}#))))))))))))) - #{tmp\ 3461}#) - (let ((#{tmp\ 3488}# + (#{source-wrap\ 451}# + #{e\ 3374}# + #{w\ 3376}# + #{s\ 3377}# + #{mod\ 3378}#))))))))))))) + #{tmp\ 3385}#) + (let ((#{tmp\ 3408}# ($sc-dispatch - #{tmp\ 3460}# - '(any (any . each-any) any)))) - (if #{tmp\ 3488}# + #{tmp\ 3384}# + '(_ (any . each-any) any)))) + (if #{tmp\ 3408}# (@apply - (lambda (#{_\ 3493}# - #{head\ 3494}# - #{tail\ 3495}# - #{val\ 3496}#) + (lambda (#{head\ 3412}# + #{tail\ 3413}# + #{val\ 3414}#) (call-with-values (lambda () - (#{syntax-type\ 469}# - #{head\ 3494}# - #{r\ 3451}# + (#{syntax-type\ 461}# + #{head\ 3412}# + #{r\ 3375}# '(()) #f #f - #{mod\ 3454}# + #{mod\ 3378}# #t)) - (lambda (#{type\ 3499}# - #{value\ 3500}# - #{ee\ 3501}# - #{ww\ 3502}# - #{ss\ 3503}# - #{modmod\ 3504}#) - (if (eqv? #{type\ 3499}# (quote module-ref)) + (lambda (#{type\ 3417}# + #{value\ 3418}# + #{ee\ 3419}# + #{ww\ 3420}# + #{ss\ 3421}# + #{modmod\ 3422}#) + (if (eqv? #{type\ 3417}# (quote module-ref)) (begin - (let ((#{val\ 3513}# - (#{chi\ 473}# - #{val\ 3496}# - #{r\ 3451}# - #{w\ 3452}# - #{mod\ 3454}#))) + (let ((#{val\ 3431}# + (#{chi\ 465}# + #{val\ 3414}# + #{r\ 3375}# + #{w\ 3376}# + #{mod\ 3378}#))) (call-with-values (lambda () - (#{value\ 3500}# - (cons #{head\ 3494}# - #{tail\ 3495}#) - #{r\ 3451}# - #{w\ 3452}#)) - (lambda (#{e\ 3515}# - #{r\ 3516}# - #{w\ 3517}# - #{s*\ 3518}# - #{mod\ 3519}#) - (let ((#{tmp\ 3525}# #{e\ 3515}#)) - (let ((#{tmp\ 3526}# - (list #{tmp\ 3525}#))) - (if (if #{tmp\ 3526}# + (#{value\ 3418}# + (cons #{head\ 3412}# + #{tail\ 3413}#) + #{r\ 3375}# + #{w\ 3376}#)) + (lambda (#{e\ 3433}# + #{r\ 3434}# + #{w\ 3435}# + #{s*\ 3436}# + #{mod\ 3437}#) + (let ((#{tmp\ 3443}# #{e\ 3433}#)) + (let ((#{tmp\ 3444}# + (list #{tmp\ 3443}#))) + (if (if #{tmp\ 3444}# (@apply - (lambda (#{e\ 3528}#) - (#{id?\ 388}# - #{e\ 3528}#)) - #{tmp\ 3526}#) + (lambda (#{e\ 3446}#) + (#{id?\ 380}# + #{e\ 3446}#)) + #{tmp\ 3444}#) #f) (@apply - (lambda (#{e\ 3530}#) - (#{build-global-assignment\ 326}# - #{s\ 3453}# + (lambda (#{e\ 3448}#) + (#{build-global-assignment\ 318}# + #{s\ 3377}# (syntax->datum - #{e\ 3530}#) - #{val\ 3513}# - #{mod\ 3519}#)) - #{tmp\ 3526}#) + #{e\ 3448}#) + #{val\ 3431}# + #{mod\ 3437}#)) + #{tmp\ 3444}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3525}#)))))))) - (#{build-application\ 312}# - #{s\ 3453}# - (#{chi\ 473}# + #{tmp\ 3443}#)))))))) + (#{build-application\ 304}# + #{s\ 3377}# + (#{chi\ 465}# (list '#(syntax-object setter ((top) @@ -10328,19 +10746,16 @@ (top) (top) (top)) - #("i3505" - "i3506" - "i3507" - "i3508" - "i3509" - "i3510")) + #("i3423" + "i3424" + "i3425" + "i3426" + "i3427" + "i3428")) #(ribcage - #(_ head tail val) - #((top) (top) (top) (top)) - #("i3489" - "i3490" - "i3491" - "i3492")) + #(head tail val) + #((top) (top) (top)) + #("i3409" "i3410" "i3411")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10349,11 +10764,11 @@ (top) (top) (top)) - #("i3455" - "i3456" - "i3457" - "i3458" - "i3459")) + #("i3379" + "i3380" + "i3381" + "i3382" + "i3383")) #(ribcage (lambda-var-list gen-var @@ -10362,6 +10777,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -10628,11 +11044,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -10665,50 +11079,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -10738,20 +11152,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -10765,7 +11179,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -10774,66 +11192,66 @@ ((top) (top) (top) (top)) ("i39" "i38" "i37" "i35"))) (hygiene guile)) - #{head\ 3494}#) - #{r\ 3451}# - #{w\ 3452}# - #{mod\ 3454}#) - (map (lambda (#{e\ 3532}#) - (#{chi\ 473}# - #{e\ 3532}# - #{r\ 3451}# - #{w\ 3452}# - #{mod\ 3454}#)) + #{head\ 3412}#) + #{r\ 3375}# + #{w\ 3376}# + #{mod\ 3378}#) + (map (lambda (#{e\ 3450}#) + (#{chi\ 465}# + #{e\ 3450}# + #{r\ 3375}# + #{w\ 3376}# + #{mod\ 3378}#)) (append - #{tail\ 3495}# - (list #{val\ 3496}#)))))))) - #{tmp\ 3488}#) - (let ((#{_\ 3536}# #{tmp\ 3460}#)) + #{tail\ 3413}# + (list #{val\ 3414}#)))))))) + #{tmp\ 3408}#) + (let ((#{_\ 3454}# #{tmp\ 3384}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 459}# - #{e\ 3450}# - #{w\ 3452}# - #{s\ 3453}# - #{mod\ 3454}#)))))))))) - (#{global-extend\ 384}# + (#{source-wrap\ 451}# + #{e\ 3374}# + #{w\ 3376}# + #{s\ 3377}# + #{mod\ 3378}#)))))))))) + (#{global-extend\ 376}# 'module-ref '@ - (lambda (#{e\ 3537}# #{r\ 3538}# #{w\ 3539}#) - (let ((#{tmp\ 3543}# #{e\ 3537}#)) - (let ((#{tmp\ 3544}# + (lambda (#{e\ 3455}# #{r\ 3456}# #{w\ 3457}#) + (let ((#{tmp\ 3461}# #{e\ 3455}#)) + (let ((#{tmp\ 3462}# ($sc-dispatch - #{tmp\ 3543}# - '(any each-any any)))) - (if (if #{tmp\ 3544}# + #{tmp\ 3461}# + '(_ each-any any)))) + (if (if #{tmp\ 3462}# (@apply - (lambda (#{_\ 3548}# #{mod\ 3549}# #{id\ 3550}#) - (if (and-map #{id?\ 388}# #{mod\ 3549}#) - (#{id?\ 388}# #{id\ 3550}#) + (lambda (#{mod\ 3465}# #{id\ 3466}#) + (if (and-map #{id?\ 380}# #{mod\ 3465}#) + (#{id?\ 380}# #{id\ 3466}#) #f)) - #{tmp\ 3544}#) + #{tmp\ 3462}#) #f) (@apply - (lambda (#{_\ 3557}# #{mod\ 3558}# #{id\ 3559}#) + (lambda (#{mod\ 3472}# #{id\ 3473}#) (values - (syntax->datum #{id\ 3559}#) - #{r\ 3538}# - #{w\ 3539}# + (syntax->datum #{id\ 3473}#) + #{r\ 3456}# + #{w\ 3457}# #f (syntax->datum (cons '#(syntax-object public ((top) #(ribcage - #(_ mod id) - #((top) (top) (top)) - #("i3554" "i3555" "i3556")) + #(mod id) + #((top) (top)) + #("i3470" "i3471")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3540" "i3541" "i3542")) + #("i3458" "i3459" "i3460")) #(ribcage (lambda-var-list gen-var @@ -10842,6 +11260,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -11108,11 +11527,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -11145,50 +11562,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -11218,20 +11635,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -11245,7 +11662,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -11254,99 +11675,95 @@ ((top) (top) (top) (top)) ("i39" "i38" "i37" "i35"))) (hygiene guile)) - #{mod\ 3558}#)))) - #{tmp\ 3544}#) + #{mod\ 3472}#)))) + #{tmp\ 3462}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3543}#)))))) - (#{global-extend\ 384}# + #{tmp\ 3461}#)))))) + (#{global-extend\ 376}# 'module-ref '@@ - (lambda (#{e\ 3561}# #{r\ 3562}# #{w\ 3563}#) + (lambda (#{e\ 3475}# #{r\ 3476}# #{w\ 3477}#) (letrec* - ((#{remodulate\ 3568}# - (lambda (#{x\ 3569}# #{mod\ 3570}#) - (if (pair? #{x\ 3569}#) - (cons (#{remodulate\ 3568}# - (car #{x\ 3569}#) - #{mod\ 3570}#) - (#{remodulate\ 3568}# - (cdr #{x\ 3569}#) - #{mod\ 3570}#)) - (if (#{syntax-object?\ 352}# #{x\ 3569}#) - (#{make-syntax-object\ 350}# - (#{remodulate\ 3568}# - (#{syntax-object-expression\ 354}# #{x\ 3569}#) - #{mod\ 3570}#) - (#{syntax-object-wrap\ 356}# #{x\ 3569}#) - #{mod\ 3570}#) - (if (vector? #{x\ 3569}#) + ((#{remodulate\ 3482}# + (lambda (#{x\ 3483}# #{mod\ 3484}#) + (if (pair? #{x\ 3483}#) + (cons (#{remodulate\ 3482}# + (car #{x\ 3483}#) + #{mod\ 3484}#) + (#{remodulate\ 3482}# + (cdr #{x\ 3483}#) + #{mod\ 3484}#)) + (if (#{syntax-object?\ 344}# #{x\ 3483}#) + (#{make-syntax-object\ 342}# + (#{remodulate\ 3482}# + (#{syntax-object-expression\ 346}# #{x\ 3483}#) + #{mod\ 3484}#) + (#{syntax-object-wrap\ 348}# #{x\ 3483}#) + #{mod\ 3484}#) + (if (vector? #{x\ 3483}#) (begin - (let ((#{n\ 3581}# (vector-length #{x\ 3569}#))) + (let ((#{n\ 3495}# (vector-length #{x\ 3483}#))) (begin - (let ((#{v\ 3583}# - (make-vector #{n\ 3581}#))) + (let ((#{v\ 3497}# + (make-vector #{n\ 3495}#))) (letrec* - ((#{loop\ 3586}# - (lambda (#{i\ 3587}#) - (if (#{fx=\ 293}# - #{i\ 3587}# - #{n\ 3581}#) - (begin (if #f #f) #{v\ 3583}#) + ((#{loop\ 3500}# + (lambda (#{i\ 3501}#) + (if (#{fx=\ 285}# + #{i\ 3501}# + #{n\ 3495}#) + (begin (if #f #f) #{v\ 3497}#) (begin (vector-set! - #{v\ 3583}# - #{i\ 3587}# - (#{remodulate\ 3568}# + #{v\ 3497}# + #{i\ 3501}# + (#{remodulate\ 3482}# (vector-ref - #{x\ 3569}# - #{i\ 3587}#) - #{mod\ 3570}#)) - (#{loop\ 3586}# - (#{fx+\ 289}# - #{i\ 3587}# + #{x\ 3483}# + #{i\ 3501}#) + #{mod\ 3484}#)) + (#{loop\ 3500}# + (#{fx+\ 281}# + #{i\ 3501}# 1))))))) - (begin (#{loop\ 3586}# 0))))))) - #{x\ 3569}#)))))) + (begin (#{loop\ 3500}# 0))))))) + #{x\ 3483}#)))))) (begin - (let ((#{tmp\ 3591}# #{e\ 3561}#)) - (let ((#{tmp\ 3592}# + (let ((#{tmp\ 3505}# #{e\ 3475}#)) + (let ((#{tmp\ 3506}# ($sc-dispatch - #{tmp\ 3591}# - '(any each-any any)))) - (if (if #{tmp\ 3592}# + #{tmp\ 3505}# + '(_ each-any any)))) + (if (if #{tmp\ 3506}# (@apply - (lambda (#{_\ 3596}# - #{mod\ 3597}# - #{exp\ 3598}#) - (and-map #{id?\ 388}# #{mod\ 3597}#)) - #{tmp\ 3592}#) + (lambda (#{mod\ 3509}# #{exp\ 3510}#) + (and-map #{id?\ 380}# #{mod\ 3509}#)) + #{tmp\ 3506}#) #f) (@apply - (lambda (#{_\ 3603}# #{mod\ 3604}# #{exp\ 3605}#) + (lambda (#{mod\ 3514}# #{exp\ 3515}#) (begin - (let ((#{mod\ 3607}# + (let ((#{mod\ 3517}# (syntax->datum (cons '#(syntax-object private ((top) #(ribcage - #(_ mod exp) - #((top) (top) (top)) - #("i3600" - "i3601" - "i3602")) + #(mod exp) + #((top) (top)) + #("i3512" "i3513")) #(ribcage (remodulate) ((top)) - ("i3567")) + ("i3481")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3564" - "i3565" - "i3566")) + #("i3478" + "i3479" + "i3480")) #(ribcage (lambda-var-list gen-var @@ -11355,6 +11772,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -11621,11 +12039,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -11658,50 +12074,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -11731,20 +12147,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -11758,7 +12174,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -11770,514 +12190,959 @@ "i37" "i35"))) (hygiene guile)) - #{mod\ 3604}#)))) + #{mod\ 3514}#)))) (values - (#{remodulate\ 3568}# - #{exp\ 3605}# - #{mod\ 3607}#) - #{r\ 3562}# - #{w\ 3563}# - (#{source-annotation\ 367}# #{exp\ 3605}#) - #{mod\ 3607}#)))) - #{tmp\ 3592}#) + (#{remodulate\ 3482}# + #{exp\ 3515}# + #{mod\ 3517}#) + #{r\ 3476}# + #{w\ 3477}# + (#{source-annotation\ 359}# #{exp\ 3515}#) + #{mod\ 3517}#)))) + #{tmp\ 3506}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3591}#)))))))) - (#{global-extend\ 384}# + #{tmp\ 3505}#)))))))) + (#{global-extend\ 376}# 'core 'if - (lambda (#{e\ 3609}# - #{r\ 3610}# - #{w\ 3611}# - #{s\ 3612}# - #{mod\ 3613}#) - (let ((#{tmp\ 3619}# #{e\ 3609}#)) - (let ((#{tmp\ 3620}# - ($sc-dispatch - #{tmp\ 3619}# - '(any any any)))) - (if #{tmp\ 3620}# + (lambda (#{e\ 3519}# + #{r\ 3520}# + #{w\ 3521}# + #{s\ 3522}# + #{mod\ 3523}#) + (let ((#{tmp\ 3529}# #{e\ 3519}#)) + (let ((#{tmp\ 3530}# + ($sc-dispatch #{tmp\ 3529}# (quote (_ any any))))) + (if #{tmp\ 3530}# (@apply - (lambda (#{_\ 3624}# #{test\ 3625}# #{then\ 3626}#) - (#{build-conditional\ 314}# - #{s\ 3612}# - (#{chi\ 473}# - #{test\ 3625}# - #{r\ 3610}# - #{w\ 3611}# - #{mod\ 3613}#) - (#{chi\ 473}# - #{then\ 3626}# - #{r\ 3610}# - #{w\ 3611}# - #{mod\ 3613}#) - (#{build-void\ 310}# #f))) - #{tmp\ 3620}#) - (let ((#{tmp\ 3628}# + (lambda (#{test\ 3533}# #{then\ 3534}#) + (#{build-conditional\ 306}# + #{s\ 3522}# + (#{chi\ 465}# + #{test\ 3533}# + #{r\ 3520}# + #{w\ 3521}# + #{mod\ 3523}#) + (#{chi\ 465}# + #{then\ 3534}# + #{r\ 3520}# + #{w\ 3521}# + #{mod\ 3523}#) + (#{build-void\ 302}# #f))) + #{tmp\ 3530}#) + (let ((#{tmp\ 3536}# ($sc-dispatch - #{tmp\ 3619}# - '(any any any any)))) - (if #{tmp\ 3628}# + #{tmp\ 3529}# + '(_ any any any)))) + (if #{tmp\ 3536}# (@apply - (lambda (#{_\ 3633}# - #{test\ 3634}# - #{then\ 3635}# - #{else\ 3636}#) - (#{build-conditional\ 314}# - #{s\ 3612}# - (#{chi\ 473}# - #{test\ 3634}# - #{r\ 3610}# - #{w\ 3611}# - #{mod\ 3613}#) - (#{chi\ 473}# - #{then\ 3635}# - #{r\ 3610}# - #{w\ 3611}# - #{mod\ 3613}#) - (#{chi\ 473}# - #{else\ 3636}# - #{r\ 3610}# - #{w\ 3611}# - #{mod\ 3613}#))) - #{tmp\ 3628}#) + (lambda (#{test\ 3540}# + #{then\ 3541}# + #{else\ 3542}#) + (#{build-conditional\ 306}# + #{s\ 3522}# + (#{chi\ 465}# + #{test\ 3540}# + #{r\ 3520}# + #{w\ 3521}# + #{mod\ 3523}#) + (#{chi\ 465}# + #{then\ 3541}# + #{r\ 3520}# + #{w\ 3521}# + #{mod\ 3523}#) + (#{chi\ 465}# + #{else\ 3542}# + #{r\ 3520}# + #{w\ 3521}# + #{mod\ 3523}#))) + #{tmp\ 3536}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3619}#)))))))) - (#{global-extend\ 384}# + #{tmp\ 3529}#)))))))) + (#{global-extend\ 376}# 'core 'with-fluids - (lambda (#{e\ 3637}# - #{r\ 3638}# - #{w\ 3639}# - #{s\ 3640}# - #{mod\ 3641}#) - (let ((#{tmp\ 3647}# #{e\ 3637}#)) - (let ((#{tmp\ 3648}# + (lambda (#{e\ 3543}# + #{r\ 3544}# + #{w\ 3545}# + #{s\ 3546}# + #{mod\ 3547}#) + (let ((#{tmp\ 3553}# #{e\ 3543}#)) + (let ((#{tmp\ 3554}# ($sc-dispatch - #{tmp\ 3647}# - '(any #(each (any any)) any . each-any)))) - (if #{tmp\ 3648}# + #{tmp\ 3553}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp\ 3554}# (@apply - (lambda (#{_\ 3654}# - #{fluid\ 3655}# - #{val\ 3656}# - #{b\ 3657}# - #{b*\ 3658}#) - (#{build-dynlet\ 316}# - #{s\ 3640}# - (map (lambda (#{x\ 3659}#) - (#{chi\ 473}# - #{x\ 3659}# - #{r\ 3638}# - #{w\ 3639}# - #{mod\ 3641}#)) - #{fluid\ 3655}#) - (map (lambda (#{x\ 3662}#) - (#{chi\ 473}# - #{x\ 3662}# - #{r\ 3638}# - #{w\ 3639}# - #{mod\ 3641}#)) - #{val\ 3656}#) - (#{chi-body\ 481}# - (cons #{b\ 3657}# #{b*\ 3658}#) - (#{source-wrap\ 459}# - #{e\ 3637}# - #{w\ 3639}# - #{s\ 3640}# - #{mod\ 3641}#) - #{r\ 3638}# - #{w\ 3639}# - #{mod\ 3641}#))) - #{tmp\ 3648}#) + (lambda (#{fluid\ 3559}# + #{val\ 3560}# + #{b\ 3561}# + #{b*\ 3562}#) + (#{build-dynlet\ 308}# + #{s\ 3546}# + (map (lambda (#{x\ 3563}#) + (#{chi\ 465}# + #{x\ 3563}# + #{r\ 3544}# + #{w\ 3545}# + #{mod\ 3547}#)) + #{fluid\ 3559}#) + (map (lambda (#{x\ 3566}#) + (#{chi\ 465}# + #{x\ 3566}# + #{r\ 3544}# + #{w\ 3545}# + #{mod\ 3547}#)) + #{val\ 3560}#) + (#{chi-body\ 473}# + (cons #{b\ 3561}# #{b*\ 3562}#) + (#{source-wrap\ 451}# + #{e\ 3543}# + #{w\ 3545}# + #{s\ 3546}# + #{mod\ 3547}#) + #{r\ 3544}# + #{w\ 3545}# + #{mod\ 3547}#))) + #{tmp\ 3554}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3647}#)))))) - (#{global-extend\ 384}# + #{tmp\ 3553}#)))))) + (#{global-extend\ 376}# 'begin 'begin '()) - (#{global-extend\ 384}# + (#{global-extend\ 376}# 'define 'define '()) - (#{global-extend\ 384}# + (#{global-extend\ 376}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 384}# + (#{global-extend\ 376}# 'eval-when 'eval-when '()) - (#{global-extend\ 384}# + (#{global-extend\ 376}# 'core 'syntax-case (letrec* - ((#{convert-pattern\ 3667}# - (lambda (#{pattern\ 3674}# #{keys\ 3675}#) + ((#{convert-pattern\ 3571}# + (lambda (#{pattern\ 3578}# #{keys\ 3579}#) (letrec* - ((#{cvt*\ 3679}# - (lambda (#{p*\ 3682}# #{n\ 3683}# #{ids\ 3684}#) - (if (null? #{p*\ 3682}#) - (values (quote ()) #{ids\ 3684}#) + ((#{cvt*\ 3583}# + (lambda (#{p*\ 3586}# #{n\ 3587}# #{ids\ 3588}#) + (if (null? #{p*\ 3586}#) + (values (quote ()) #{ids\ 3588}#) (call-with-values (lambda () - (#{cvt*\ 3679}# - (cdr #{p*\ 3682}#) - #{n\ 3683}# - #{ids\ 3684}#)) - (lambda (#{y\ 3688}# #{ids\ 3689}#) + (#{cvt*\ 3583}# + (cdr #{p*\ 3586}#) + #{n\ 3587}# + #{ids\ 3588}#)) + (lambda (#{y\ 3592}# #{ids\ 3593}#) (call-with-values (lambda () - (#{cvt\ 3681}# - (car #{p*\ 3682}#) - #{n\ 3683}# - #{ids\ 3689}#)) - (lambda (#{x\ 3692}# #{ids\ 3693}#) + (#{cvt\ 3585}# + (car #{p*\ 3586}#) + #{n\ 3587}# + #{ids\ 3593}#)) + (lambda (#{x\ 3596}# #{ids\ 3597}#) (values - (cons #{x\ 3692}# #{y\ 3688}#) - #{ids\ 3693}#)))))))) - (#{cvt\ 3681}# - (lambda (#{p\ 3696}# #{n\ 3697}# #{ids\ 3698}#) - (if (#{id?\ 388}# #{p\ 3696}#) - (if (#{bound-id-member?\ 455}# - #{p\ 3696}# - #{keys\ 3675}#) + (cons #{x\ 3596}# #{y\ 3592}#) + #{ids\ 3597}#)))))))) + (#{cvt\ 3585}# + (lambda (#{p\ 3600}# #{n\ 3601}# #{ids\ 3602}#) + (if (#{id?\ 380}# #{p\ 3600}#) + (if (#{bound-id-member?\ 447}# + #{p\ 3600}# + #{keys\ 3579}#) (values - (vector (quote free-id) #{p\ 3696}#) - #{ids\ 3698}#) - (values - 'any - (cons (cons #{p\ 3696}# #{n\ 3697}#) - #{ids\ 3698}#))) - (let ((#{tmp\ 3702}# #{p\ 3696}#)) - (let ((#{tmp\ 3703}# + (vector (quote free-id) #{p\ 3600}#) + #{ids\ 3602}#) + (if (#{free-id=?\ 439}# + #{p\ 3600}# + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3603" "i3604" "i3605")) + #(ribcage + (cvt cvt*) + ((top) (top)) + ("i3584" "i3582")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3580" "i3581")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3576" "i3574" "i3572" "i3570")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + underscore? + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + 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) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i423" + "i422" + "i420" + "i419" + "i418" + "i417" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i397" + "i395" + "i394" + "i393" + "i392" + "i391" + "i390" + "i388" + "i386" + "i384" + "i382" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" + "i366" + "i364" + "i362" + "i361" + "i360" + "i358" + "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" + "i293" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i39" "i38" "i37" "i35"))) + (hygiene guile))) + (values (quote _) #{ids\ 3602}#) + (values + 'any + (cons (cons #{p\ 3600}# #{n\ 3601}#) + #{ids\ 3602}#)))) + (let ((#{tmp\ 3611}# #{p\ 3600}#)) + (let ((#{tmp\ 3612}# ($sc-dispatch - #{tmp\ 3702}# + #{tmp\ 3611}# '(any any)))) - (if (if #{tmp\ 3703}# + (if (if #{tmp\ 3612}# (@apply - (lambda (#{x\ 3706}# #{dots\ 3707}#) - (#{ellipsis?\ 489}# - #{dots\ 3707}#)) - #{tmp\ 3703}#) + (lambda (#{x\ 3615}# #{dots\ 3616}#) + (#{ellipsis?\ 481}# + #{dots\ 3616}#)) + #{tmp\ 3612}#) #f) (@apply - (lambda (#{x\ 3710}# #{dots\ 3711}#) + (lambda (#{x\ 3619}# #{dots\ 3620}#) (call-with-values (lambda () - (#{cvt\ 3681}# - #{x\ 3710}# - (#{fx+\ 289}# #{n\ 3697}# 1) - #{ids\ 3698}#)) - (lambda (#{p\ 3712}# #{ids\ 3713}#) + (#{cvt\ 3585}# + #{x\ 3619}# + (#{fx+\ 281}# #{n\ 3601}# 1) + #{ids\ 3602}#)) + (lambda (#{p\ 3621}# #{ids\ 3622}#) (values - (if (eq? #{p\ 3712}# (quote any)) + (if (eq? #{p\ 3621}# (quote any)) 'each-any (vector 'each - #{p\ 3712}#)) - #{ids\ 3713}#)))) - #{tmp\ 3703}#) - (let ((#{tmp\ 3716}# + #{p\ 3621}#)) + #{ids\ 3622}#)))) + #{tmp\ 3612}#) + (let ((#{tmp\ 3625}# ($sc-dispatch - #{tmp\ 3702}# + #{tmp\ 3611}# '(any any . each-any)))) - (if (if #{tmp\ 3716}# + (if (if #{tmp\ 3625}# (@apply - (lambda (#{x\ 3720}# - #{dots\ 3721}# - #{ys\ 3722}#) - (#{ellipsis?\ 489}# - #{dots\ 3721}#)) - #{tmp\ 3716}#) + (lambda (#{x\ 3629}# + #{dots\ 3630}# + #{ys\ 3631}#) + (#{ellipsis?\ 481}# + #{dots\ 3630}#)) + #{tmp\ 3625}#) #f) (@apply - (lambda (#{x\ 3726}# - #{dots\ 3727}# - #{ys\ 3728}#) + (lambda (#{x\ 3635}# + #{dots\ 3636}# + #{ys\ 3637}#) (call-with-values (lambda () - (#{cvt*\ 3679}# - #{ys\ 3728}# - #{n\ 3697}# - #{ids\ 3698}#)) - (lambda (#{ys\ 3730}# - #{ids\ 3731}#) + (#{cvt*\ 3583}# + #{ys\ 3637}# + #{n\ 3601}# + #{ids\ 3602}#)) + (lambda (#{ys\ 3639}# + #{ids\ 3640}#) (call-with-values (lambda () - (#{cvt\ 3681}# - #{x\ 3726}# - (1+ #{n\ 3697}#) - #{ids\ 3731}#)) - (lambda (#{x\ 3734}# - #{ids\ 3735}#) + (#{cvt\ 3585}# + #{x\ 3635}# + (1+ #{n\ 3601}#) + #{ids\ 3640}#)) + (lambda (#{x\ 3643}# + #{ids\ 3644}#) (values (list->vector (cons 'each+ - (cons #{x\ 3734}# + (cons #{x\ 3643}# (cons (reverse - #{ys\ 3730}#) + #{ys\ 3639}#) '(()))))) - #{ids\ 3735}#)))))) - #{tmp\ 3716}#) - (let ((#{tmp\ 3739}# + #{ids\ 3644}#)))))) + #{tmp\ 3625}#) + (let ((#{tmp\ 3648}# ($sc-dispatch - #{tmp\ 3702}# + #{tmp\ 3611}# '(any . any)))) - (if #{tmp\ 3739}# + (if #{tmp\ 3648}# (@apply - (lambda (#{x\ 3742}# #{y\ 3743}#) + (lambda (#{x\ 3651}# #{y\ 3652}#) (call-with-values (lambda () - (#{cvt\ 3681}# - #{y\ 3743}# - #{n\ 3697}# - #{ids\ 3698}#)) - (lambda (#{y\ 3744}# - #{ids\ 3745}#) + (#{cvt\ 3585}# + #{y\ 3652}# + #{n\ 3601}# + #{ids\ 3602}#)) + (lambda (#{y\ 3653}# + #{ids\ 3654}#) (call-with-values (lambda () - (#{cvt\ 3681}# - #{x\ 3742}# - #{n\ 3697}# - #{ids\ 3745}#)) - (lambda (#{x\ 3748}# - #{ids\ 3749}#) + (#{cvt\ 3585}# + #{x\ 3651}# + #{n\ 3601}# + #{ids\ 3654}#)) + (lambda (#{x\ 3657}# + #{ids\ 3658}#) (values - (cons #{x\ 3748}# - #{y\ 3744}#) - #{ids\ 3749}#)))))) - #{tmp\ 3739}#) - (let ((#{tmp\ 3752}# + (cons #{x\ 3657}# + #{y\ 3653}#) + #{ids\ 3658}#)))))) + #{tmp\ 3648}#) + (let ((#{tmp\ 3661}# ($sc-dispatch - #{tmp\ 3702}# + #{tmp\ 3611}# '()))) - (if #{tmp\ 3752}# + (if #{tmp\ 3661}# (@apply (lambda () (values '() - #{ids\ 3698}#)) - #{tmp\ 3752}#) - (let ((#{tmp\ 3753}# + #{ids\ 3602}#)) + #{tmp\ 3661}#) + (let ((#{tmp\ 3662}# ($sc-dispatch - #{tmp\ 3702}# + #{tmp\ 3611}# '#(vector each-any)))) - (if #{tmp\ 3753}# + (if #{tmp\ 3662}# (@apply - (lambda (#{x\ 3755}#) + (lambda (#{x\ 3664}#) (call-with-values (lambda () - (#{cvt\ 3681}# - #{x\ 3755}# - #{n\ 3697}# - #{ids\ 3698}#)) - (lambda (#{p\ 3757}# - #{ids\ 3758}#) + (#{cvt\ 3585}# + #{x\ 3664}# + #{n\ 3601}# + #{ids\ 3602}#)) + (lambda (#{p\ 3666}# + #{ids\ 3667}#) (values (vector 'vector - #{p\ 3757}#) - #{ids\ 3758}#)))) - #{tmp\ 3753}#) - (let ((#{x\ 3762}# - #{tmp\ 3702}#)) + #{p\ 3666}#) + #{ids\ 3667}#)))) + #{tmp\ 3662}#) + (let ((#{x\ 3671}# + #{tmp\ 3611}#)) (values (vector 'atom - (#{strip\ 499}# - #{p\ 3696}# + (#{strip\ 493}# + #{p\ 3600}# '(()))) - #{ids\ 3698}#))))))))))))))))) + #{ids\ 3602}#))))))))))))))))) (begin - (#{cvt\ 3681}# #{pattern\ 3674}# 0 (quote ())))))) - (#{build-dispatch-call\ 3669}# - (lambda (#{pvars\ 3764}# - #{exp\ 3765}# - #{y\ 3766}# - #{r\ 3767}# - #{mod\ 3768}#) + (#{cvt\ 3585}# #{pattern\ 3578}# 0 (quote ())))))) + (#{build-dispatch-call\ 3573}# + (lambda (#{pvars\ 3673}# + #{exp\ 3674}# + #{y\ 3675}# + #{r\ 3676}# + #{mod\ 3677}#) (begin - (map cdr #{pvars\ 3764}#) - (let ((#{ids\ 3776}# (map car #{pvars\ 3764}#))) + (map cdr #{pvars\ 3673}#) + (let ((#{ids\ 3685}# (map car #{pvars\ 3673}#))) (begin - (let ((#{labels\ 3780}# - (#{gen-labels\ 406}# #{ids\ 3776}#)) - (#{new-vars\ 3781}# - (map #{gen-var\ 501}# #{ids\ 3776}#))) - (#{build-application\ 312}# + (let ((#{labels\ 3689}# + (#{gen-labels\ 398}# #{ids\ 3685}#)) + (#{new-vars\ 3690}# + (map #{gen-var\ 495}# #{ids\ 3685}#))) + (#{build-application\ 304}# #f - (#{build-primref\ 336}# #f (quote apply)) - (list (#{build-simple-lambda\ 330}# + (#{build-primref\ 328}# #f (quote apply)) + (list (#{build-simple-lambda\ 322}# #f - (map syntax->datum #{ids\ 3776}#) + (map syntax->datum #{ids\ 3685}#) #f - #{new-vars\ 3781}# + #{new-vars\ 3690}# '() - (#{chi\ 473}# - #{exp\ 3765}# - (#{extend-env\ 376}# - #{labels\ 3780}# - (map (lambda (#{var\ 3785}# - #{level\ 3786}#) + (#{chi\ 465}# + #{exp\ 3674}# + (#{extend-env\ 368}# + #{labels\ 3689}# + (map (lambda (#{var\ 3694}# + #{level\ 3695}#) (cons 'syntax - (cons #{var\ 3785}# - #{level\ 3786}#))) - #{new-vars\ 3781}# - (map cdr #{pvars\ 3764}#)) - #{r\ 3767}#) - (#{make-binding-wrap\ 435}# - #{ids\ 3776}# - #{labels\ 3780}# + (cons #{var\ 3694}# + #{level\ 3695}#))) + #{new-vars\ 3690}# + (map cdr #{pvars\ 3673}#)) + #{r\ 3676}#) + (#{make-binding-wrap\ 427}# + #{ids\ 3685}# + #{labels\ 3689}# '(())) - #{mod\ 3768}#)) - #{y\ 3766}#)))))))) - (#{gen-clause\ 3671}# - (lambda (#{x\ 3792}# - #{keys\ 3793}# - #{clauses\ 3794}# - #{r\ 3795}# - #{pat\ 3796}# - #{fender\ 3797}# - #{exp\ 3798}# - #{mod\ 3799}#) + #{mod\ 3677}#)) + #{y\ 3675}#)))))))) + (#{gen-clause\ 3575}# + (lambda (#{x\ 3701}# + #{keys\ 3702}# + #{clauses\ 3703}# + #{r\ 3704}# + #{pat\ 3705}# + #{fender\ 3706}# + #{exp\ 3707}# + #{mod\ 3708}#) (call-with-values (lambda () - (#{convert-pattern\ 3667}# - #{pat\ 3796}# - #{keys\ 3793}#)) - (lambda (#{p\ 3808}# #{pvars\ 3809}#) - (if (not (#{distinct-bound-ids?\ 453}# - (map car #{pvars\ 3809}#))) + (#{convert-pattern\ 3571}# + #{pat\ 3705}# + #{keys\ 3702}#)) + (lambda (#{p\ 3717}# #{pvars\ 3718}#) + (if (not (#{distinct-bound-ids?\ 445}# + (map car #{pvars\ 3718}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3796}#) + #{pat\ 3705}#) (if (not (and-map - (lambda (#{x\ 3816}#) - (not (#{ellipsis?\ 489}# - (car #{x\ 3816}#)))) - #{pvars\ 3809}#)) + (lambda (#{x\ 3725}#) + (not (#{ellipsis?\ 481}# + (car #{x\ 3725}#)))) + #{pvars\ 3718}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3796}#) + #{pat\ 3705}#) (begin - (let ((#{y\ 3820}# - (#{gen-var\ 501}# (quote tmp)))) - (#{build-application\ 312}# + (let ((#{y\ 3729}# + (#{gen-var\ 495}# (quote tmp)))) + (#{build-application\ 304}# #f - (#{build-simple-lambda\ 330}# + (#{build-simple-lambda\ 322}# #f (list (quote tmp)) #f - (list #{y\ 3820}#) + (list #{y\ 3729}#) '() (begin - (let ((#{y\ 3824}# - (#{build-lexical-reference\ 318}# + (let ((#{y\ 3733}# + (#{build-lexical-reference\ 310}# 'value #f 'tmp - #{y\ 3820}#))) - (#{build-conditional\ 314}# + #{y\ 3729}#))) + (#{build-conditional\ 306}# #f - (let ((#{tmp\ 3827}# - #{fender\ 3797}#)) - (let ((#{tmp\ 3828}# + (let ((#{tmp\ 3736}# + #{fender\ 3706}#)) + (let ((#{tmp\ 3737}# ($sc-dispatch - #{tmp\ 3827}# + #{tmp\ 3736}# '#(atom #t)))) - (if #{tmp\ 3828}# + (if #{tmp\ 3737}# (@apply - (lambda () #{y\ 3824}#) - #{tmp\ 3828}#) - (let ((#{_\ 3830}# - #{tmp\ 3827}#)) - (#{build-conditional\ 314}# + (lambda () #{y\ 3733}#) + #{tmp\ 3737}#) + (let ((#{_\ 3739}# + #{tmp\ 3736}#)) + (#{build-conditional\ 306}# #f - #{y\ 3824}# - (#{build-dispatch-call\ 3669}# - #{pvars\ 3809}# - #{fender\ 3797}# - #{y\ 3824}# - #{r\ 3795}# - #{mod\ 3799}#) - (#{build-data\ 338}# + #{y\ 3733}# + (#{build-dispatch-call\ 3573}# + #{pvars\ 3718}# + #{fender\ 3706}# + #{y\ 3733}# + #{r\ 3704}# + #{mod\ 3708}#) + (#{build-data\ 330}# #f #f)))))) - (#{build-dispatch-call\ 3669}# - #{pvars\ 3809}# - #{exp\ 3798}# - #{y\ 3824}# - #{r\ 3795}# - #{mod\ 3799}#) - (#{gen-syntax-case\ 3673}# - #{x\ 3792}# - #{keys\ 3793}# - #{clauses\ 3794}# - #{r\ 3795}# - #{mod\ 3799}#))))) - (list (if (eq? #{p\ 3808}# (quote any)) - (#{build-application\ 312}# + (#{build-dispatch-call\ 3573}# + #{pvars\ 3718}# + #{exp\ 3707}# + #{y\ 3733}# + #{r\ 3704}# + #{mod\ 3708}#) + (#{gen-syntax-case\ 3577}# + #{x\ 3701}# + #{keys\ 3702}# + #{clauses\ 3703}# + #{r\ 3704}# + #{mod\ 3708}#))))) + (list (if (eq? #{p\ 3717}# (quote any)) + (#{build-application\ 304}# #f - (#{build-primref\ 336}# + (#{build-primref\ 328}# #f 'list) - (list #{x\ 3792}#)) - (#{build-application\ 312}# + (list #{x\ 3701}#)) + (#{build-application\ 304}# #f - (#{build-primref\ 336}# + (#{build-primref\ 328}# #f '$sc-dispatch) - (list #{x\ 3792}# - (#{build-data\ 338}# + (list #{x\ 3701}# + (#{build-data\ 330}# #f - #{p\ 3808}#)))))))))))))) - (#{gen-syntax-case\ 3673}# - (lambda (#{x\ 3838}# - #{keys\ 3839}# - #{clauses\ 3840}# - #{r\ 3841}# - #{mod\ 3842}#) - (if (null? #{clauses\ 3840}#) - (#{build-application\ 312}# + #{p\ 3717}#)))))))))))))) + (#{gen-syntax-case\ 3577}# + (lambda (#{x\ 3747}# + #{keys\ 3748}# + #{clauses\ 3749}# + #{r\ 3750}# + #{mod\ 3751}#) + (if (null? #{clauses\ 3749}#) + (#{build-application\ 304}# #f - (#{build-primref\ 336}# + (#{build-primref\ 328}# #f 'syntax-violation) - (list (#{build-data\ 338}# #f #f) - (#{build-data\ 338}# + (list (#{build-data\ 330}# #f #f) + (#{build-data\ 330}# #f "source expression failed to match any pattern") - #{x\ 3838}#)) - (let ((#{tmp\ 3852}# (car #{clauses\ 3840}#))) - (let ((#{tmp\ 3853}# + #{x\ 3747}#)) + (let ((#{tmp\ 3761}# (car #{clauses\ 3749}#))) + (let ((#{tmp\ 3762}# ($sc-dispatch - #{tmp\ 3852}# + #{tmp\ 3761}# '(any any)))) - (if #{tmp\ 3853}# + (if #{tmp\ 3762}# (@apply - (lambda (#{pat\ 3856}# #{exp\ 3857}#) - (if (if (#{id?\ 388}# #{pat\ 3856}#) + (lambda (#{pat\ 3765}# #{exp\ 3766}#) + (if (if (#{id?\ 380}# #{pat\ 3765}#) (and-map - (lambda (#{x\ 3860}#) - (not (#{free-id=?\ 447}# - #{pat\ 3856}# - #{x\ 3860}#))) + (lambda (#{x\ 3769}#) + (not (#{free-id=?\ 439}# + #{pat\ 3765}# + #{x\ 3769}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3854" "i3855")) + #("i3763" "i3764")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -12286,21 +13151,21 @@ (top) (top) (top)) - #("i3843" - "i3844" - "i3845" - "i3846" - "i3847")) + #("i3752" + "i3753" + "i3754" + "i3755" + "i3756")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3672" - "i3670" - "i3668" - "i3666")) + ("i3576" + "i3574" + "i3572" + "i3570")) #(ribcage (lambda-var-list gen-var @@ -12309,6 +13174,7 @@ lambda*-formals chi-simple-lambda lambda-formals + underscore? ellipsis? chi-void eval-local-transformer @@ -12575,11 +13441,9 @@ (top) (top) (top) + (top) (top)) - ("i502" - "i500" - "i498" - "i496" + ("i496" "i494" "i492" "i490" @@ -12612,50 +13476,50 @@ "i436" "i434" "i432" - "i431" "i430" "i428" - "i427" "i426" - "i425" "i424" + "i423" "i422" "i420" + "i419" "i418" + "i417" "i416" "i414" "i412" "i410" "i408" - "i405" - "i403" + "i406" + "i404" "i402" - "i401" "i400" - "i399" - "i398" - "i396" + "i397" + "i395" "i394" + "i393" "i392" + "i391" "i390" - "i389" - "i387" - "i385" - "i383" + "i388" + "i386" + "i384" + "i382" "i381" "i379" "i377" "i375" - "i374" - "i372" - "i370" + "i373" + "i371" "i369" - "i368" + "i367" "i366" - "i365" - "i363" + "i364" + "i362" "i361" - "i359" + "i360" + "i358" "i357" "i355" "i353" @@ -12685,20 +13549,20 @@ "i305" "i303" "i301" - "i300" - "i298" - "i296" - "i294" + "i299" + "i297" + "i295" + "i293" "i292" "i290" "i288" "i286" "i284" "i282" - "i279" - "i277" - "i275" - "i273" + "i280" + "i278" + "i276" + "i274" "i271" "i269" "i267" @@ -12712,7 +13576,11 @@ "i251" "i249" "i247" - "i245")) + "i245" + "i243" + "i241" + "i239" + "i237")) #(ribcage (define-structure define-expansion-accessors @@ -12724,846 +13592,1737 @@ "i37" "i35"))) (hygiene guile)) - #{keys\ 3839}#)) + #{keys\ 3748}#)) #f) - (begin - (let ((#{labels\ 3864}# - (list (#{gen-label\ 404}#))) - (#{var\ 3865}# - (#{gen-var\ 501}# #{pat\ 3856}#))) - (#{build-application\ 312}# - #f - (#{build-simple-lambda\ 330}# + (if (#{free-id=?\ 439}# + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3763" "i3764")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3752" + "i3753" + "i3754" + "i3755" + "i3756")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3576" + "i3574" + "i3572" + "i3570")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + underscore? + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + 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) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i423" + "i422" + "i420" + "i419" + "i418" + "i417" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i397" + "i395" + "i394" + "i393" + "i392" + "i391" + "i390" + "i388" + "i386" + "i384" + "i382" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" + "i366" + "i364" + "i362" + "i361" + "i360" + "i358" + "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" + "i293" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i39" "i38" "i37" "i35"))) + (hygiene guile)) + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3763" "i3764")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3752" + "i3753" + "i3754" + "i3755" + "i3756")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3576" + "i3574" + "i3572" + "i3570")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + underscore? + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + 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) + (top) + (top)) + ("i496" + "i494" + "i492" + "i490" + "i488" + "i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i423" + "i422" + "i420" + "i419" + "i418" + "i417" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i397" + "i395" + "i394" + "i393" + "i392" + "i391" + "i390" + "i388" + "i386" + "i384" + "i382" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" + "i366" + "i364" + "i362" + "i361" + "i360" + "i358" + "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" + "i293" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors + and-map*) + ((top) (top) (top) (top)) + ("i39" "i38" "i37" "i35"))) + (hygiene guile))) + (#{chi\ 465}# + #{exp\ 3766}# + #{r\ 3750}# + '(()) + #{mod\ 3751}#) + (begin + (let ((#{labels\ 3774}# + (list (#{gen-label\ 396}#))) + (#{var\ 3775}# + (#{gen-var\ 495}# + #{pat\ 3765}#))) + (#{build-application\ 304}# #f - (list (syntax->datum #{pat\ 3856}#)) - #f - (list #{var\ 3865}#) - '() - (#{chi\ 473}# - #{exp\ 3857}# - (#{extend-env\ 376}# - #{labels\ 3864}# - (list (cons 'syntax - (cons #{var\ 3865}# - 0))) - #{r\ 3841}#) - (#{make-binding-wrap\ 435}# - (list #{pat\ 3856}#) - #{labels\ 3864}# - '(())) - #{mod\ 3842}#)) - (list #{x\ 3838}#)))) - (#{gen-clause\ 3671}# - #{x\ 3838}# - #{keys\ 3839}# - (cdr #{clauses\ 3840}#) - #{r\ 3841}# - #{pat\ 3856}# + (#{build-simple-lambda\ 322}# + #f + (list (syntax->datum + #{pat\ 3765}#)) + #f + (list #{var\ 3775}#) + '() + (#{chi\ 465}# + #{exp\ 3766}# + (#{extend-env\ 368}# + #{labels\ 3774}# + (list (cons 'syntax + (cons #{var\ 3775}# + 0))) + #{r\ 3750}#) + (#{make-binding-wrap\ 427}# + (list #{pat\ 3765}#) + #{labels\ 3774}# + '(())) + #{mod\ 3751}#)) + (list #{x\ 3747}#))))) + (#{gen-clause\ 3575}# + #{x\ 3747}# + #{keys\ 3748}# + (cdr #{clauses\ 3749}#) + #{r\ 3750}# + #{pat\ 3765}# #t - #{exp\ 3857}# - #{mod\ 3842}#))) - #{tmp\ 3853}#) - (let ((#{tmp\ 3871}# + #{exp\ 3766}# + #{mod\ 3751}#))) + #{tmp\ 3762}#) + (let ((#{tmp\ 3781}# ($sc-dispatch - #{tmp\ 3852}# + #{tmp\ 3761}# '(any any any)))) - (if #{tmp\ 3871}# + (if #{tmp\ 3781}# (@apply - (lambda (#{pat\ 3875}# - #{fender\ 3876}# - #{exp\ 3877}#) - (#{gen-clause\ 3671}# - #{x\ 3838}# - #{keys\ 3839}# - (cdr #{clauses\ 3840}#) - #{r\ 3841}# - #{pat\ 3875}# - #{fender\ 3876}# - #{exp\ 3877}# - #{mod\ 3842}#)) - #{tmp\ 3871}#) - (let ((#{_\ 3879}# #{tmp\ 3852}#)) + (lambda (#{pat\ 3785}# + #{fender\ 3786}# + #{exp\ 3787}#) + (#{gen-clause\ 3575}# + #{x\ 3747}# + #{keys\ 3748}# + (cdr #{clauses\ 3749}#) + #{r\ 3750}# + #{pat\ 3785}# + #{fender\ 3786}# + #{exp\ 3787}# + #{mod\ 3751}#)) + #{tmp\ 3781}#) + (let ((#{_\ 3789}# #{tmp\ 3761}#)) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3840}#)))))))))))) + (car #{clauses\ 3749}#)))))))))))) (begin - (lambda (#{e\ 3880}# - #{r\ 3881}# - #{w\ 3882}# - #{s\ 3883}# - #{mod\ 3884}#) + (lambda (#{e\ 3790}# + #{r\ 3791}# + #{w\ 3792}# + #{s\ 3793}# + #{mod\ 3794}#) (begin - (let ((#{e\ 3891}# - (#{source-wrap\ 459}# - #{e\ 3880}# - #{w\ 3882}# - #{s\ 3883}# - #{mod\ 3884}#))) - (let ((#{tmp\ 3892}# #{e\ 3891}#)) - (let ((#{tmp\ 3893}# + (let ((#{e\ 3801}# + (#{source-wrap\ 451}# + #{e\ 3790}# + #{w\ 3792}# + #{s\ 3793}# + #{mod\ 3794}#))) + (let ((#{tmp\ 3802}# #{e\ 3801}#)) + (let ((#{tmp\ 3803}# ($sc-dispatch - #{tmp\ 3892}# - '(any any each-any . each-any)))) - (if #{tmp\ 3893}# + #{tmp\ 3802}# + '(_ any each-any . each-any)))) + (if #{tmp\ 3803}# (@apply - (lambda (#{_\ 3898}# - #{val\ 3899}# - #{key\ 3900}# - #{m\ 3901}#) + (lambda (#{val\ 3807}# + #{key\ 3808}# + #{m\ 3809}#) (if (and-map - (lambda (#{x\ 3902}#) - (if (#{id?\ 388}# #{x\ 3902}#) - (not (#{ellipsis?\ 489}# - #{x\ 3902}#)) + (lambda (#{x\ 3810}#) + (if (#{id?\ 380}# #{x\ 3810}#) + (if (not (#{ellipsis?\ 481}# + #{x\ 3810}#)) + (not (#{underscore?\ 483}# + #{x\ 3810}#)) + #f) #f)) - #{key\ 3900}#) + #{key\ 3808}#) (begin - (let ((#{x\ 3908}# - (#{gen-var\ 501}# (quote tmp)))) - (#{build-application\ 312}# - #{s\ 3883}# - (#{build-simple-lambda\ 330}# + (let ((#{x\ 3817}# + (#{gen-var\ 495}# (quote tmp)))) + (#{build-application\ 304}# + #{s\ 3793}# + (#{build-simple-lambda\ 322}# #f (list (quote tmp)) #f - (list #{x\ 3908}#) + (list #{x\ 3817}#) '() - (#{gen-syntax-case\ 3673}# - (#{build-lexical-reference\ 318}# + (#{gen-syntax-case\ 3577}# + (#{build-lexical-reference\ 310}# 'value #f 'tmp - #{x\ 3908}#) - #{key\ 3900}# - #{m\ 3901}# - #{r\ 3881}# - #{mod\ 3884}#)) - (list (#{chi\ 473}# - #{val\ 3899}# - #{r\ 3881}# + #{x\ 3817}#) + #{key\ 3808}# + #{m\ 3809}# + #{r\ 3791}# + #{mod\ 3794}#)) + (list (#{chi\ 465}# + #{val\ 3807}# + #{r\ 3791}# '(()) - #{mod\ 3884}#))))) + #{mod\ 3794}#))))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3891}#))) - #{tmp\ 3893}#) + #{e\ 3801}#))) + #{tmp\ 3803}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3892}#)))))))))) + #{tmp\ 3802}#)))))))))) (set! macroexpand (lambda* - (#{x\ 3914}# + (#{x\ 3823}# #:optional - (#{m\ 3916}# (quote e)) - (#{esew\ 3918}# (quote (eval)))) - (#{chi-top\ 471}# - #{x\ 3914}# + (#{m\ 3825}# (quote e)) + (#{esew\ 3827}# (quote (eval)))) + (#{chi-top\ 463}# + #{x\ 3823}# '() '((top)) - #{m\ 3916}# - #{esew\ 3918}# + #{m\ 3825}# + #{esew\ 3827}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x\ 3922}#) - (#{nonsymbol-id?\ 386}# #{x\ 3922}#))) + (lambda (#{x\ 3831}#) + (#{nonsymbol-id?\ 378}# #{x\ 3831}#))) (set! datum->syntax - (lambda (#{id\ 3924}# #{datum\ 3925}#) - (#{make-syntax-object\ 350}# - #{datum\ 3925}# - (#{syntax-object-wrap\ 356}# #{id\ 3924}#) - (#{syntax-object-module\ 358}# #{id\ 3924}#)))) + (lambda (#{id\ 3833}# #{datum\ 3834}#) + (#{make-syntax-object\ 342}# + #{datum\ 3834}# + (#{syntax-object-wrap\ 348}# #{id\ 3833}#) + (#{syntax-object-module\ 350}# #{id\ 3833}#)))) (set! syntax->datum - (lambda (#{x\ 3928}#) - (#{strip\ 499}# #{x\ 3928}# (quote (()))))) + (lambda (#{x\ 3837}#) + (#{strip\ 493}# #{x\ 3837}# (quote (()))))) (set! syntax-source - (lambda (#{x\ 3931}#) - (#{source-annotation\ 367}# #{x\ 3931}#))) + (lambda (#{x\ 3840}#) + (#{source-annotation\ 359}# #{x\ 3840}#))) (set! generate-temporaries - (lambda (#{ls\ 3933}#) + (lambda (#{ls\ 3842}#) (begin (begin - (let ((#{x\ 3937}# #{ls\ 3933}#)) - (if (not (list? #{x\ 3937}#)) + (let ((#{x\ 3846}# #{ls\ 3842}#)) + (if (not (list? #{x\ 3846}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3937}#)))) - (map (lambda (#{x\ 3938}#) - (#{wrap\ 457}# (gensym) (quote ((top))) #f)) - #{ls\ 3933}#)))) + #{x\ 3846}#)))) + (map (lambda (#{x\ 3847}#) + (#{wrap\ 449}# (gensym) (quote ((top))) #f)) + #{ls\ 3842}#)))) (set! free-identifier=? - (lambda (#{x\ 3942}# #{y\ 3943}#) + (lambda (#{x\ 3851}# #{y\ 3852}#) (begin (begin - (let ((#{x\ 3948}# #{x\ 3942}#)) - (if (not (#{nonsymbol-id?\ 386}# #{x\ 3948}#)) + (let ((#{x\ 3857}# #{x\ 3851}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3857}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3948}#)))) + #{x\ 3857}#)))) (begin - (let ((#{x\ 3951}# #{y\ 3943}#)) - (if (not (#{nonsymbol-id?\ 386}# #{x\ 3951}#)) + (let ((#{x\ 3860}# #{y\ 3852}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3860}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3951}#)))) - (#{free-id=?\ 447}# #{x\ 3942}# #{y\ 3943}#)))) + #{x\ 3860}#)))) + (#{free-id=?\ 439}# #{x\ 3851}# #{y\ 3852}#)))) (set! bound-identifier=? - (lambda (#{x\ 3952}# #{y\ 3953}#) + (lambda (#{x\ 3861}# #{y\ 3862}#) (begin (begin - (let ((#{x\ 3958}# #{x\ 3952}#)) - (if (not (#{nonsymbol-id?\ 386}# #{x\ 3958}#)) + (let ((#{x\ 3867}# #{x\ 3861}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3867}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3958}#)))) + #{x\ 3867}#)))) (begin - (let ((#{x\ 3961}# #{y\ 3953}#)) - (if (not (#{nonsymbol-id?\ 386}# #{x\ 3961}#)) + (let ((#{x\ 3870}# #{y\ 3862}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3870}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3961}#)))) - (#{bound-id=?\ 449}# #{x\ 3952}# #{y\ 3953}#)))) + #{x\ 3870}#)))) + (#{bound-id=?\ 441}# #{x\ 3861}# #{y\ 3862}#)))) (set! syntax-violation - (lambda (#{who\ 3962}# - #{message\ 3963}# - #{form\ 3964}# + (lambda (#{who\ 3871}# + #{message\ 3872}# + #{form\ 3873}# . - #{subform\ 3965}#) + #{subform\ 3874}#) (begin (begin - (let ((#{x\ 3972}# #{who\ 3962}#)) - (if (not (let ((#{x\ 3973}# #{x\ 3972}#)) + (let ((#{x\ 3881}# #{who\ 3871}#)) + (if (not (let ((#{x\ 3882}# #{x\ 3881}#)) (begin - (let ((#{t\ 3977}# (not #{x\ 3973}#))) - (if #{t\ 3977}# - #{t\ 3977}# + (let ((#{t\ 3886}# (not #{x\ 3882}#))) + (if #{t\ 3886}# + #{t\ 3886}# (begin - (let ((#{t\ 3980}# - (string? #{x\ 3973}#))) - (if #{t\ 3980}# - #{t\ 3980}# - (symbol? #{x\ 3973}#))))))))) + (let ((#{t\ 3889}# + (string? #{x\ 3882}#))) + (if #{t\ 3889}# + #{t\ 3889}# + (symbol? #{x\ 3882}#))))))))) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3972}#)))) + #{x\ 3881}#)))) (begin - (let ((#{x\ 3984}# #{message\ 3963}#)) - (if (not (string? #{x\ 3984}#)) + (let ((#{x\ 3893}# #{message\ 3872}#)) + (if (not (string? #{x\ 3893}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3984}#)))) + #{x\ 3893}#)))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 3962}# "~a: " "") + (if #{who\ 3871}# "~a: " "") "~a " - (if (null? #{subform\ 3965}#) + (if (null? #{subform\ 3874}#) "in ~a" "in subform `~s' of `~s'")) (begin - (let ((#{tail\ 3986}# - (cons #{message\ 3963}# - (map (lambda (#{x\ 3987}#) - (#{strip\ 499}# - #{x\ 3987}# + (let ((#{tail\ 3895}# + (cons #{message\ 3872}# + (map (lambda (#{x\ 3896}#) + (#{strip\ 493}# + #{x\ 3896}# '(()))) (append - #{subform\ 3965}# - (list #{form\ 3964}#)))))) - (if #{who\ 3962}# - (cons #{who\ 3962}# #{tail\ 3986}#) - #{tail\ 3986}#))) + #{subform\ 3874}# + (list #{form\ 3873}#)))))) + (if #{who\ 3871}# + (cons #{who\ 3871}# #{tail\ 3895}#) + #{tail\ 3895}#))) #f)))) (letrec* - ((#{match-each\ 3991}# - (lambda (#{e\ 4004}# - #{p\ 4005}# - #{w\ 4006}# - #{mod\ 4007}#) - (if (pair? #{e\ 4004}#) + ((#{match-each\ 3900}# + (lambda (#{e\ 3913}# + #{p\ 3914}# + #{w\ 3915}# + #{mod\ 3916}#) + (if (pair? #{e\ 3913}#) (begin - (let ((#{first\ 4015}# - (#{match\ 4003}# - (car #{e\ 4004}#) - #{p\ 4005}# - #{w\ 4006}# + (let ((#{first\ 3924}# + (#{match\ 3912}# + (car #{e\ 3913}#) + #{p\ 3914}# + #{w\ 3915}# '() - #{mod\ 4007}#))) - (if #{first\ 4015}# + #{mod\ 3916}#))) + (if #{first\ 3924}# (begin - (let ((#{rest\ 4019}# - (#{match-each\ 3991}# - (cdr #{e\ 4004}#) - #{p\ 4005}# - #{w\ 4006}# - #{mod\ 4007}#))) - (if #{rest\ 4019}# - (cons #{first\ 4015}# #{rest\ 4019}#) + (let ((#{rest\ 3928}# + (#{match-each\ 3900}# + (cdr #{e\ 3913}#) + #{p\ 3914}# + #{w\ 3915}# + #{mod\ 3916}#))) + (if #{rest\ 3928}# + (cons #{first\ 3924}# #{rest\ 3928}#) #f))) #f))) - (if (null? #{e\ 4004}#) + (if (null? #{e\ 3913}#) '() - (if (#{syntax-object?\ 352}# #{e\ 4004}#) - (#{match-each\ 3991}# - (#{syntax-object-expression\ 354}# #{e\ 4004}#) - #{p\ 4005}# - (#{join-wraps\ 439}# - #{w\ 4006}# - (#{syntax-object-wrap\ 356}# #{e\ 4004}#)) - (#{syntax-object-module\ 358}# #{e\ 4004}#)) + (if (#{syntax-object?\ 344}# #{e\ 3913}#) + (#{match-each\ 3900}# + (#{syntax-object-expression\ 346}# #{e\ 3913}#) + #{p\ 3914}# + (#{join-wraps\ 431}# + #{w\ 3915}# + (#{syntax-object-wrap\ 348}# #{e\ 3913}#)) + (#{syntax-object-module\ 350}# #{e\ 3913}#)) #f))))) - (#{match-each+\ 3993}# - (lambda (#{e\ 4027}# - #{x-pat\ 4028}# - #{y-pat\ 4029}# - #{z-pat\ 4030}# - #{w\ 4031}# - #{r\ 4032}# - #{mod\ 4033}#) + (#{match-each+\ 3902}# + (lambda (#{e\ 3936}# + #{x-pat\ 3937}# + #{y-pat\ 3938}# + #{z-pat\ 3939}# + #{w\ 3940}# + #{r\ 3941}# + #{mod\ 3942}#) (letrec* - ((#{f\ 4044}# - (lambda (#{e\ 4045}# #{w\ 4046}#) - (if (pair? #{e\ 4045}#) + ((#{f\ 3953}# + (lambda (#{e\ 3954}# #{w\ 3955}#) + (if (pair? #{e\ 3954}#) (call-with-values (lambda () - (#{f\ 4044}# (cdr #{e\ 4045}#) #{w\ 4046}#)) - (lambda (#{xr*\ 4049}# - #{y-pat\ 4050}# - #{r\ 4051}#) - (if #{r\ 4051}# - (if (null? #{y-pat\ 4050}#) + (#{f\ 3953}# (cdr #{e\ 3954}#) #{w\ 3955}#)) + (lambda (#{xr*\ 3958}# + #{y-pat\ 3959}# + #{r\ 3960}#) + (if #{r\ 3960}# + (if (null? #{y-pat\ 3959}#) (begin - (let ((#{xr\ 4056}# - (#{match\ 4003}# - (car #{e\ 4045}#) - #{x-pat\ 4028}# - #{w\ 4046}# + (let ((#{xr\ 3965}# + (#{match\ 3912}# + (car #{e\ 3954}#) + #{x-pat\ 3937}# + #{w\ 3955}# '() - #{mod\ 4033}#))) - (if #{xr\ 4056}# + #{mod\ 3942}#))) + (if #{xr\ 3965}# (values - (cons #{xr\ 4056}# #{xr*\ 4049}#) - #{y-pat\ 4050}# - #{r\ 4051}#) + (cons #{xr\ 3965}# #{xr*\ 3958}#) + #{y-pat\ 3959}# + #{r\ 3960}#) (values #f #f #f)))) (values '() - (cdr #{y-pat\ 4050}#) - (#{match\ 4003}# - (car #{e\ 4045}#) - (car #{y-pat\ 4050}#) - #{w\ 4046}# - #{r\ 4051}# - #{mod\ 4033}#))) + (cdr #{y-pat\ 3959}#) + (#{match\ 3912}# + (car #{e\ 3954}#) + (car #{y-pat\ 3959}#) + #{w\ 3955}# + #{r\ 3960}# + #{mod\ 3942}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 352}# #{e\ 4045}#) - (#{f\ 4044}# - (#{syntax-object-expression\ 354}# #{e\ 4045}#) - (#{join-wraps\ 439}# #{w\ 4046}# #{e\ 4045}#)) + (if (#{syntax-object?\ 344}# #{e\ 3954}#) + (#{f\ 3953}# + (#{syntax-object-expression\ 346}# #{e\ 3954}#) + (#{join-wraps\ 431}# #{w\ 3955}# #{e\ 3954}#)) (values '() - #{y-pat\ 4029}# - (#{match\ 4003}# - #{e\ 4045}# - #{z-pat\ 4030}# - #{w\ 4046}# - #{r\ 4032}# - #{mod\ 4033}#))))))) - (begin (#{f\ 4044}# #{e\ 4027}# #{w\ 4031}#))))) - (#{match-each-any\ 3995}# - (lambda (#{e\ 4060}# #{w\ 4061}# #{mod\ 4062}#) - (if (pair? #{e\ 4060}#) + #{y-pat\ 3938}# + (#{match\ 3912}# + #{e\ 3954}# + #{z-pat\ 3939}# + #{w\ 3955}# + #{r\ 3941}# + #{mod\ 3942}#))))))) + (begin (#{f\ 3953}# #{e\ 3936}# #{w\ 3940}#))))) + (#{match-each-any\ 3904}# + (lambda (#{e\ 3969}# #{w\ 3970}# #{mod\ 3971}#) + (if (pair? #{e\ 3969}#) (begin - (let ((#{l\ 4069}# - (#{match-each-any\ 3995}# - (cdr #{e\ 4060}#) - #{w\ 4061}# - #{mod\ 4062}#))) - (if #{l\ 4069}# - (cons (#{wrap\ 457}# - (car #{e\ 4060}#) - #{w\ 4061}# - #{mod\ 4062}#) - #{l\ 4069}#) + (let ((#{l\ 3978}# + (#{match-each-any\ 3904}# + (cdr #{e\ 3969}#) + #{w\ 3970}# + #{mod\ 3971}#))) + (if #{l\ 3978}# + (cons (#{wrap\ 449}# + (car #{e\ 3969}#) + #{w\ 3970}# + #{mod\ 3971}#) + #{l\ 3978}#) #f))) - (if (null? #{e\ 4060}#) + (if (null? #{e\ 3969}#) '() - (if (#{syntax-object?\ 352}# #{e\ 4060}#) - (#{match-each-any\ 3995}# - (#{syntax-object-expression\ 354}# #{e\ 4060}#) - (#{join-wraps\ 439}# - #{w\ 4061}# - (#{syntax-object-wrap\ 356}# #{e\ 4060}#)) - #{mod\ 4062}#) + (if (#{syntax-object?\ 344}# #{e\ 3969}#) + (#{match-each-any\ 3904}# + (#{syntax-object-expression\ 346}# #{e\ 3969}#) + (#{join-wraps\ 431}# + #{w\ 3970}# + (#{syntax-object-wrap\ 348}# #{e\ 3969}#)) + #{mod\ 3971}#) #f))))) - (#{match-empty\ 3997}# - (lambda (#{p\ 4077}# #{r\ 4078}#) - (if (null? #{p\ 4077}#) - #{r\ 4078}# - (if (eq? #{p\ 4077}# (quote any)) - (cons (quote ()) #{r\ 4078}#) - (if (pair? #{p\ 4077}#) - (#{match-empty\ 3997}# - (car #{p\ 4077}#) - (#{match-empty\ 3997}# - (cdr #{p\ 4077}#) - #{r\ 4078}#)) - (if (eq? #{p\ 4077}# (quote each-any)) - (cons (quote ()) #{r\ 4078}#) - (begin - (let ((#{atom-key\ 4092}# - (vector-ref #{p\ 4077}# 0))) - (if (eqv? #{atom-key\ 4092}# (quote each)) - (#{match-empty\ 3997}# - (vector-ref #{p\ 4077}# 1) - #{r\ 4078}#) - (if (eqv? #{atom-key\ 4092}# (quote each+)) - (#{match-empty\ 3997}# - (vector-ref #{p\ 4077}# 1) - (#{match-empty\ 3997}# - (reverse (vector-ref #{p\ 4077}# 2)) - (#{match-empty\ 3997}# - (vector-ref #{p\ 4077}# 3) - #{r\ 4078}#))) - (if (if (eqv? #{atom-key\ 4092}# - 'free-id) - #t - (eqv? #{atom-key\ 4092}# - 'atom)) - #{r\ 4078}# - (if (eqv? #{atom-key\ 4092}# - 'vector) - (#{match-empty\ 3997}# - (vector-ref #{p\ 4077}# 1) - #{r\ 4078}#))))))))))))) - (#{combine\ 3999}# - (lambda (#{r*\ 4097}# #{r\ 4098}#) - (if (null? (car #{r*\ 4097}#)) - #{r\ 4098}# - (cons (map car #{r*\ 4097}#) - (#{combine\ 3999}# - (map cdr #{r*\ 4097}#) - #{r\ 4098}#))))) - (#{match*\ 4001}# - (lambda (#{e\ 4101}# - #{p\ 4102}# - #{w\ 4103}# - #{r\ 4104}# - #{mod\ 4105}#) - (if (null? #{p\ 4102}#) - (if (null? #{e\ 4101}#) #{r\ 4104}# #f) - (if (pair? #{p\ 4102}#) - (if (pair? #{e\ 4101}#) - (#{match\ 4003}# - (car #{e\ 4101}#) - (car #{p\ 4102}#) - #{w\ 4103}# - (#{match\ 4003}# - (cdr #{e\ 4101}#) - (cdr #{p\ 4102}#) - #{w\ 4103}# - #{r\ 4104}# - #{mod\ 4105}#) - #{mod\ 4105}#) + (#{match-empty\ 3906}# + (lambda (#{p\ 3986}# #{r\ 3987}#) + (if (null? #{p\ 3986}#) + #{r\ 3987}# + (if (eq? #{p\ 3986}# (quote _)) + #{r\ 3987}# + (if (eq? #{p\ 3986}# (quote any)) + (cons (quote ()) #{r\ 3987}#) + (if (pair? #{p\ 3986}#) + (#{match-empty\ 3906}# + (car #{p\ 3986}#) + (#{match-empty\ 3906}# + (cdr #{p\ 3986}#) + #{r\ 3987}#)) + (if (eq? #{p\ 3986}# (quote each-any)) + (cons (quote ()) #{r\ 3987}#) + (begin + (let ((#{atom-key\ 4003}# + (vector-ref #{p\ 3986}# 0))) + (if (eqv? #{atom-key\ 4003}# (quote each)) + (#{match-empty\ 3906}# + (vector-ref #{p\ 3986}# 1) + #{r\ 3987}#) + (if (eqv? #{atom-key\ 4003}# (quote each+)) + (#{match-empty\ 3906}# + (vector-ref #{p\ 3986}# 1) + (#{match-empty\ 3906}# + (reverse (vector-ref #{p\ 3986}# 2)) + (#{match-empty\ 3906}# + (vector-ref #{p\ 3986}# 3) + #{r\ 3987}#))) + (if (if (eqv? #{atom-key\ 4003}# + 'free-id) + #t + (eqv? #{atom-key\ 4003}# + 'atom)) + #{r\ 3987}# + (if (eqv? #{atom-key\ 4003}# + 'vector) + (#{match-empty\ 3906}# + (vector-ref #{p\ 3986}# 1) + #{r\ 3987}#)))))))))))))) + (#{combine\ 3908}# + (lambda (#{r*\ 4008}# #{r\ 4009}#) + (if (null? (car #{r*\ 4008}#)) + #{r\ 4009}# + (cons (map car #{r*\ 4008}#) + (#{combine\ 3908}# + (map cdr #{r*\ 4008}#) + #{r\ 4009}#))))) + (#{match*\ 3910}# + (lambda (#{e\ 4012}# + #{p\ 4013}# + #{w\ 4014}# + #{r\ 4015}# + #{mod\ 4016}#) + (if (null? #{p\ 4013}#) + (if (null? #{e\ 4012}#) #{r\ 4015}# #f) + (if (pair? #{p\ 4013}#) + (if (pair? #{e\ 4012}#) + (#{match\ 3912}# + (car #{e\ 4012}#) + (car #{p\ 4013}#) + #{w\ 4014}# + (#{match\ 3912}# + (cdr #{e\ 4012}#) + (cdr #{p\ 4013}#) + #{w\ 4014}# + #{r\ 4015}# + #{mod\ 4016}#) + #{mod\ 4016}#) #f) - (if (eq? #{p\ 4102}# (quote each-any)) + (if (eq? #{p\ 4013}# (quote each-any)) (begin - (let ((#{l\ 4122}# - (#{match-each-any\ 3995}# - #{e\ 4101}# - #{w\ 4103}# - #{mod\ 4105}#))) - (if #{l\ 4122}# - (cons #{l\ 4122}# #{r\ 4104}#) + (let ((#{l\ 4033}# + (#{match-each-any\ 3904}# + #{e\ 4012}# + #{w\ 4014}# + #{mod\ 4016}#))) + (if #{l\ 4033}# + (cons #{l\ 4033}# #{r\ 4015}#) #f))) (begin - (let ((#{atom-key\ 4128}# - (vector-ref #{p\ 4102}# 0))) - (if (eqv? #{atom-key\ 4128}# (quote each)) - (if (null? #{e\ 4101}#) - (#{match-empty\ 3997}# - (vector-ref #{p\ 4102}# 1) - #{r\ 4104}#) + (let ((#{atom-key\ 4039}# + (vector-ref #{p\ 4013}# 0))) + (if (eqv? #{atom-key\ 4039}# (quote each)) + (if (null? #{e\ 4012}#) + (#{match-empty\ 3906}# + (vector-ref #{p\ 4013}# 1) + #{r\ 4015}#) (begin - (let ((#{l\ 4131}# - (#{match-each\ 3991}# - #{e\ 4101}# - (vector-ref #{p\ 4102}# 1) - #{w\ 4103}# - #{mod\ 4105}#))) - (if #{l\ 4131}# + (let ((#{l\ 4042}# + (#{match-each\ 3900}# + #{e\ 4012}# + (vector-ref #{p\ 4013}# 1) + #{w\ 4014}# + #{mod\ 4016}#))) + (if #{l\ 4042}# (letrec* - ((#{collect\ 4136}# - (lambda (#{l\ 4137}#) - (if (null? (car #{l\ 4137}#)) - #{r\ 4104}# - (cons (map car #{l\ 4137}#) - (#{collect\ 4136}# + ((#{collect\ 4047}# + (lambda (#{l\ 4048}#) + (if (null? (car #{l\ 4048}#)) + #{r\ 4015}# + (cons (map car #{l\ 4048}#) + (#{collect\ 4047}# (map cdr - #{l\ 4137}#))))))) + #{l\ 4048}#))))))) (begin - (#{collect\ 4136}# #{l\ 4131}#))) + (#{collect\ 4047}# #{l\ 4042}#))) #f)))) - (if (eqv? #{atom-key\ 4128}# (quote each+)) + (if (eqv? #{atom-key\ 4039}# (quote each+)) (call-with-values (lambda () - (#{match-each+\ 3993}# - #{e\ 4101}# - (vector-ref #{p\ 4102}# 1) - (vector-ref #{p\ 4102}# 2) - (vector-ref #{p\ 4102}# 3) - #{w\ 4103}# - #{r\ 4104}# - #{mod\ 4105}#)) - (lambda (#{xr*\ 4139}# - #{y-pat\ 4140}# - #{r\ 4141}#) - (if #{r\ 4141}# - (if (null? #{y-pat\ 4140}#) - (if (null? #{xr*\ 4139}#) - (#{match-empty\ 3997}# - (vector-ref #{p\ 4102}# 1) - #{r\ 4141}#) - (#{combine\ 3999}# - #{xr*\ 4139}# - #{r\ 4141}#)) + (#{match-each+\ 3902}# + #{e\ 4012}# + (vector-ref #{p\ 4013}# 1) + (vector-ref #{p\ 4013}# 2) + (vector-ref #{p\ 4013}# 3) + #{w\ 4014}# + #{r\ 4015}# + #{mod\ 4016}#)) + (lambda (#{xr*\ 4050}# + #{y-pat\ 4051}# + #{r\ 4052}#) + (if #{r\ 4052}# + (if (null? #{y-pat\ 4051}#) + (if (null? #{xr*\ 4050}#) + (#{match-empty\ 3906}# + (vector-ref #{p\ 4013}# 1) + #{r\ 4052}#) + (#{combine\ 3908}# + #{xr*\ 4050}# + #{r\ 4052}#)) #f) #f))) - (if (eqv? #{atom-key\ 4128}# (quote free-id)) - (if (#{id?\ 388}# #{e\ 4101}#) - (if (#{free-id=?\ 447}# - (#{wrap\ 457}# - #{e\ 4101}# - #{w\ 4103}# - #{mod\ 4105}#) - (vector-ref #{p\ 4102}# 1)) - #{r\ 4104}# + (if (eqv? #{atom-key\ 4039}# (quote free-id)) + (if (#{id?\ 380}# #{e\ 4012}#) + (if (#{free-id=?\ 439}# + (#{wrap\ 449}# + #{e\ 4012}# + #{w\ 4014}# + #{mod\ 4016}#) + (vector-ref #{p\ 4013}# 1)) + #{r\ 4015}# #f) #f) - (if (eqv? #{atom-key\ 4128}# (quote atom)) + (if (eqv? #{atom-key\ 4039}# (quote atom)) (if (equal? - (vector-ref #{p\ 4102}# 1) - (#{strip\ 499}# - #{e\ 4101}# - #{w\ 4103}#)) - #{r\ 4104}# + (vector-ref #{p\ 4013}# 1) + (#{strip\ 493}# + #{e\ 4012}# + #{w\ 4014}#)) + #{r\ 4015}# #f) - (if (eqv? #{atom-key\ 4128}# + (if (eqv? #{atom-key\ 4039}# 'vector) - (if (vector? #{e\ 4101}#) - (#{match\ 4003}# - (vector->list #{e\ 4101}#) - (vector-ref #{p\ 4102}# 1) - #{w\ 4103}# - #{r\ 4104}# - #{mod\ 4105}#) + (if (vector? #{e\ 4012}#) + (#{match\ 3912}# + (vector->list #{e\ 4012}#) + (vector-ref #{p\ 4013}# 1) + #{w\ 4014}# + #{r\ 4015}# + #{mod\ 4016}#) #f))))))))))))) - (#{match\ 4003}# - (lambda (#{e\ 4158}# - #{p\ 4159}# - #{w\ 4160}# - #{r\ 4161}# - #{mod\ 4162}#) - (if (not #{r\ 4161}#) + (#{match\ 3912}# + (lambda (#{e\ 4069}# + #{p\ 4070}# + #{w\ 4071}# + #{r\ 4072}# + #{mod\ 4073}#) + (if (not #{r\ 4072}#) #f - (if (eq? #{p\ 4159}# (quote any)) - (cons (#{wrap\ 457}# - #{e\ 4158}# - #{w\ 4160}# - #{mod\ 4162}#) - #{r\ 4161}#) - (if (#{syntax-object?\ 352}# #{e\ 4158}#) - (#{match*\ 4001}# - (#{syntax-object-expression\ 354}# #{e\ 4158}#) - #{p\ 4159}# - (#{join-wraps\ 439}# - #{w\ 4160}# - (#{syntax-object-wrap\ 356}# #{e\ 4158}#)) - #{r\ 4161}# - (#{syntax-object-module\ 358}# #{e\ 4158}#)) - (#{match*\ 4001}# - #{e\ 4158}# - #{p\ 4159}# - #{w\ 4160}# - #{r\ 4161}# - #{mod\ 4162}#))))))) + (if (eq? #{p\ 4070}# (quote _)) + #{r\ 4072}# + (if (eq? #{p\ 4070}# (quote any)) + (cons (#{wrap\ 449}# + #{e\ 4069}# + #{w\ 4071}# + #{mod\ 4073}#) + #{r\ 4072}#) + (if (#{syntax-object?\ 344}# #{e\ 4069}#) + (#{match*\ 3910}# + (#{syntax-object-expression\ 346}# #{e\ 4069}#) + #{p\ 4070}# + (#{join-wraps\ 431}# + #{w\ 4071}# + (#{syntax-object-wrap\ 348}# #{e\ 4069}#)) + #{r\ 4072}# + (#{syntax-object-module\ 350}# #{e\ 4069}#)) + (#{match*\ 3910}# + #{e\ 4069}# + #{p\ 4070}# + #{w\ 4071}# + #{r\ 4072}# + #{mod\ 4073}#)))))))) (begin (set! $sc-dispatch - (lambda (#{e\ 4175}# #{p\ 4176}#) - (if (eq? #{p\ 4176}# (quote any)) - (list #{e\ 4175}#) - (if (#{syntax-object?\ 352}# #{e\ 4175}#) - (#{match*\ 4001}# - (#{syntax-object-expression\ 354}# #{e\ 4175}#) - #{p\ 4176}# - (#{syntax-object-wrap\ 356}# #{e\ 4175}#) - '() - (#{syntax-object-module\ 358}# #{e\ 4175}#)) - (#{match*\ 4001}# - #{e\ 4175}# - #{p\ 4176}# - '(()) - '() - #f))))))))))))) + (lambda (#{e\ 4088}# #{p\ 4089}#) + (if (eq? #{p\ 4089}# (quote any)) + (list #{e\ 4088}#) + (if (eq? #{p\ 4089}# (quote _)) + '() + (if (#{syntax-object?\ 344}# #{e\ 4088}#) + (#{match*\ 3910}# + (#{syntax-object-expression\ 346}# #{e\ 4088}#) + #{p\ 4089}# + (#{syntax-object-wrap\ 348}# #{e\ 4088}#) + '() + (#{syntax-object-module\ 350}# #{e\ 4088}#)) + (#{match*\ 3910}# + #{e\ 4088}# + #{p\ 4089}# + '(()) + '() + #f)))))))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x\ 4185}#) - (let ((#{tmp\ 4187}# #{x\ 4185}#)) - (let ((#{tmp\ 4188}# + (lambda (#{x\ 4100}#) + (let ((#{tmp\ 4102}# #{x\ 4100}#)) + (let ((#{tmp\ 4103}# ($sc-dispatch - #{tmp\ 4187}# - '(any () any . each-any)))) - (if #{tmp\ 4188}# + #{tmp\ 4102}# + '(_ () any . each-any)))) + (if #{tmp\ 4103}# (@apply - (lambda (#{_\ 4192}# #{e1\ 4193}# #{e2\ 4194}#) + (lambda (#{e1\ 4106}# #{e2\ 4107}#) (cons '#(syntax-object begin ((top) #(ribcage - #(_ e1 e2) - #((top) (top) (top)) - #("i4189" "i4190" "i4191")) + #(e1 e2) + #((top) (top)) + #("i4104" "i4105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4186"))) + #(ribcage #(x) #((top)) #("i4101"))) (hygiene guile)) - (cons #{e1\ 4193}# #{e2\ 4194}#))) - #{tmp\ 4188}#) - (let ((#{tmp\ 4196}# + (cons #{e1\ 4106}# #{e2\ 4107}#))) + #{tmp\ 4103}#) + (let ((#{tmp\ 4109}# ($sc-dispatch - #{tmp\ 4187}# - '(any ((any any)) any . each-any)))) - (if #{tmp\ 4196}# + #{tmp\ 4102}# + '(_ ((any any)) any . each-any)))) + (if #{tmp\ 4109}# (@apply - (lambda (#{_\ 4202}# - #{out\ 4203}# - #{in\ 4204}# - #{e1\ 4205}# - #{e2\ 4206}#) + (lambda (#{out\ 4114}# + #{in\ 4115}# + #{e1\ 4116}# + #{e2\ 4117}#) (list '#(syntax-object syntax-case ((top) #(ribcage - #(_ out in e1 e2) - #((top) (top) (top) (top) (top)) - #("i4197" "i4198" "i4199" "i4200" "i4201")) + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i4110" "i4111" "i4112" "i4113")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4186"))) + #(ribcage #(x) #((top)) #("i4101"))) (hygiene guile)) - #{in\ 4204}# + #{in\ 4115}# '() - (list #{out\ 4203}# + (list #{out\ 4114}# (cons '#(syntax-object begin ((top) #(ribcage - #(_ out in e1 e2) - #((top) (top) (top) (top) (top)) - #("i4197" - "i4198" - "i4199" - "i4200" - "i4201")) + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i4110" "i4111" "i4112" "i4113")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4186"))) + #(ribcage #(x) #((top)) #("i4101"))) (hygiene guile)) - (cons #{e1\ 4205}# #{e2\ 4206}#))))) - #{tmp\ 4196}#) - (let ((#{tmp\ 4208}# + (cons #{e1\ 4116}# #{e2\ 4117}#))))) + #{tmp\ 4109}#) + (let ((#{tmp\ 4119}# ($sc-dispatch - #{tmp\ 4187}# - '(any #(each (any any)) any . each-any)))) - (if #{tmp\ 4208}# + #{tmp\ 4102}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp\ 4119}# (@apply - (lambda (#{_\ 4214}# - #{out\ 4215}# - #{in\ 4216}# - #{e1\ 4217}# - #{e2\ 4218}#) + (lambda (#{out\ 4124}# + #{in\ 4125}# + #{e1\ 4126}# + #{e2\ 4127}#) (list '#(syntax-object syntax-case ((top) #(ribcage - #(_ out in e1 e2) - #((top) (top) (top) (top) (top)) - #("i4209" "i4210" "i4211" "i4212" "i4213")) + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i4120" "i4121" "i4122" "i4123")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4186"))) + #(ribcage #(x) #((top)) #("i4101"))) (hygiene guile)) (cons '#(syntax-object list ((top) #(ribcage - #(_ out in e1 e2) - #((top) (top) (top) (top) (top)) - #("i4209" - "i4210" - "i4211" - "i4212" - "i4213")) + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i4120" "i4121" "i4122" "i4123")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4186"))) + #(ribcage #(x) #((top)) #("i4101"))) (hygiene guile)) - #{in\ 4216}#) + #{in\ 4125}#) '() - (list #{out\ 4215}# + (list #{out\ 4124}# (cons '#(syntax-object begin ((top) #(ribcage - #(_ out in e1 e2) - #((top) - (top) - (top) - (top) - (top)) - #("i4209" - "i4210" - "i4211" - "i4212" - "i4213")) + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i4120" + "i4121" + "i4122" + "i4123")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4186"))) + #("i4101"))) (hygiene guile)) - (cons #{e1\ 4217}# #{e2\ 4218}#))))) - #{tmp\ 4208}#) + (cons #{e1\ 4126}# #{e2\ 4127}#))))) + #{tmp\ 4119}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4187}#))))))))))) + #{tmp\ 4102}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x\ 4222}#) - (let ((#{tmp\ 4224}# #{x\ 4222}#)) - (let ((#{tmp\ 4225}# + (lambda (#{x\ 4131}#) + (let ((#{tmp\ 4133}# #{x\ 4131}#)) + (let ((#{tmp\ 4134}# ($sc-dispatch - #{tmp\ 4224}# - '(any each-any . #(each ((any . any) any)))))) - (if #{tmp\ 4225}# + #{tmp\ 4133}# + '(_ each-any . #(each ((any . any) any)))))) + (if #{tmp\ 4134}# (@apply - (lambda (#{_\ 4231}# - #{k\ 4232}# - #{keyword\ 4233}# - #{pattern\ 4234}# - #{template\ 4235}#) + (lambda (#{k\ 4139}# + #{keyword\ 4140}# + #{pattern\ 4141}# + #{template\ 4142}#) (list '#(syntax-object lambda ((top) #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4226" "i4227" "i4228" "i4229" "i4230")) + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i4135" "i4136" "i4137" "i4138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4223"))) + #(ribcage #(x) #((top)) #("i4132"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4226" "i4227" "i4228" "i4229" "i4230")) + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i4135" "i4136" "i4137" "i4138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4223"))) + #(ribcage #(x) #((top)) #("i4132"))) (hygiene guile))) (vector '(#(syntax-object macro-type ((top) #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4226" "i4227" "i4228" "i4229" "i4230")) + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i4135" "i4136" "i4137" "i4138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4223"))) + #(ribcage #(x) #((top)) #("i4132"))) (hygiene guile)) . #(syntax-object syntax-rules ((top) #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4226" "i4227" "i4228" "i4229" "i4230")) + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i4135" "i4136" "i4137" "i4138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4223"))) + #(ribcage #(x) #((top)) #("i4132"))) (hygiene guile))) (cons '#(syntax-object patterns ((top) #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4226" "i4227" "i4228" "i4229" "i4230")) + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i4135" "i4136" "i4137" "i4138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4223"))) + #(ribcage #(x) #((top)) #("i4132"))) (hygiene guile)) - #{pattern\ 4234}#)) + #{pattern\ 4141}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4226" "i4227" "i4228" "i4229" "i4230")) + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i4135" "i4136" "i4137" "i4138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4223"))) + #(ribcage #(x) #((top)) #("i4132"))) (hygiene guile)) (cons '#(syntax-object x ((top) #(ribcage - #(_ k keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4226" - "i4227" - "i4228" - "i4229" - "i4230")) + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i4135" "i4136" "i4137" "i4138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4223"))) + #(ribcage #(x) #((top)) #("i4132"))) (hygiene guile)) - (cons #{k\ 4232}# - (map (lambda (#{tmp\ 4239}# - #{tmp\ 4238}#) + (cons #{k\ 4139}# + (map (lambda (#{tmp\ 4146}# + #{tmp\ 4145}#) (list (cons '#(syntax-object dummy ((top) #(ribcage - #(_ - k + #(k keyword pattern template) #((top) - (top) (top) (top) (top)) - #("i4226" - "i4227" - "i4228" - "i4229" - "i4230")) + #("i4135" + "i4136" + "i4137" + "i4138")) #(ribcage () () @@ -13571,28 +15330,25 @@ #(ribcage #(x) #((top)) - #("i4223"))) + #("i4132"))) (hygiene guile)) - #{tmp\ 4238}#) + #{tmp\ 4145}#) (list '#(syntax-object syntax ((top) #(ribcage - #(_ - k + #(k keyword pattern template) #((top) - (top) (top) (top) (top)) - #("i4226" - "i4227" - "i4228" - "i4229" - "i4230")) + #("i4135" + "i4136" + "i4137" + "i4138")) #(ribcage () () @@ -13600,47 +15356,47 @@ #(ribcage #(x) #((top)) - #("i4223"))) + #("i4132"))) (hygiene guile)) - #{tmp\ 4239}#))) - #{template\ 4235}# - #{pattern\ 4234}#)))))) - #{tmp\ 4225}#) + #{tmp\ 4146}#))) + #{template\ 4142}# + #{pattern\ 4141}#)))))) + #{tmp\ 4134}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4224}#))))))) + #{tmp\ 4133}#))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x\ 4240}#) - (let ((#{tmp\ 4242}# #{x\ 4240}#)) - (let ((#{tmp\ 4243}# + (lambda (#{x\ 4147}#) + (let ((#{tmp\ 4149}# #{x\ 4147}#)) + (let ((#{tmp\ 4150}# ($sc-dispatch - #{tmp\ 4242}# + #{tmp\ 4149}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 4243}# + (if (if #{tmp\ 4150}# (@apply - (lambda (#{let*\ 4249}# - #{x\ 4250}# - #{v\ 4251}# - #{e1\ 4252}# - #{e2\ 4253}#) - (and-map identifier? #{x\ 4250}#)) - #{tmp\ 4243}#) + (lambda (#{let*\ 4156}# + #{x\ 4157}# + #{v\ 4158}# + #{e1\ 4159}# + #{e2\ 4160}#) + (and-map identifier? #{x\ 4157}#)) + #{tmp\ 4150}#) #f) (@apply - (lambda (#{let*\ 4260}# - #{x\ 4261}# - #{v\ 4262}# - #{e1\ 4263}# - #{e2\ 4264}#) + (lambda (#{let*\ 4167}# + #{x\ 4168}# + #{v\ 4169}# + #{e1\ 4170}# + #{e2\ 4171}#) (letrec* - ((#{f\ 4267}# - (lambda (#{bindings\ 4268}#) - (if (null? #{bindings\ 4268}#) + ((#{f\ 4174}# + (lambda (#{bindings\ 4175}#) + (if (null? #{bindings\ 4175}#) (cons '#(syntax-object let ((top) @@ -13648,129 +15404,128 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4265" "i4266")) + #("i4172" "i4173")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4255" - "i4256" - "i4257" - "i4258" - "i4259")) + #("i4162" + "i4163" + "i4164" + "i4165" + "i4166")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4241"))) + #(ribcage #(x) #((top)) #("i4148"))) (hygiene guile)) (cons '() - (cons #{e1\ 4263}# #{e2\ 4264}#))) - (let ((#{tmp\ 4273}# - (list (#{f\ 4267}# (cdr #{bindings\ 4268}#)) - (car #{bindings\ 4268}#)))) - (let ((#{tmp\ 4274}# + (cons #{e1\ 4170}# #{e2\ 4171}#))) + (let ((#{tmp\ 4180}# + (list (#{f\ 4174}# (cdr #{bindings\ 4175}#)) + (car #{bindings\ 4175}#)))) + (let ((#{tmp\ 4181}# ($sc-dispatch - #{tmp\ 4273}# + #{tmp\ 4180}# '(any any)))) - (if #{tmp\ 4274}# + (if #{tmp\ 4181}# (@apply - (lambda (#{body\ 4277}# #{binding\ 4278}#) + (lambda (#{body\ 4184}# #{binding\ 4185}#) (list '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) - #("i4275" "i4276")) + #("i4182" "i4183")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i4265" "i4266")) + #("i4172" "i4173")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4255" - "i4256" - "i4257" - "i4258" - "i4259")) + #("i4162" + "i4163" + "i4164" + "i4165" + "i4166")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4241"))) + #("i4148"))) (hygiene guile)) - (list #{binding\ 4278}#) - #{body\ 4277}#)) - #{tmp\ 4274}#) + (list #{binding\ 4185}#) + #{body\ 4184}#)) + #{tmp\ 4181}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4273}#)))))))) + #{tmp\ 4180}#)))))))) (begin - (#{f\ 4267}# (map list #{x\ 4261}# #{v\ 4262}#))))) - #{tmp\ 4243}#) + (#{f\ 4174}# (map list #{x\ 4168}# #{v\ 4169}#))))) + #{tmp\ 4150}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4242}#))))))) + #{tmp\ 4149}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x\ 4279}#) - (let ((#{tmp\ 4281}# #{orig-x\ 4279}#)) - (let ((#{tmp\ 4282}# + (lambda (#{orig-x\ 4186}#) + (let ((#{tmp\ 4188}# #{orig-x\ 4186}#)) + (let ((#{tmp\ 4189}# ($sc-dispatch - #{tmp\ 4281}# - '(any #(each (any any . any)) - (any . each-any) - . - each-any)))) - (if #{tmp\ 4282}# + #{tmp\ 4188}# + '(_ #(each (any any . any)) + (any . each-any) + . + each-any)))) + (if #{tmp\ 4189}# (@apply - (lambda (#{_\ 4290}# - #{var\ 4291}# - #{init\ 4292}# - #{step\ 4293}# - #{e0\ 4294}# - #{e1\ 4295}# - #{c\ 4296}#) - (let ((#{tmp\ 4298}# - (map (lambda (#{v\ 4319}# #{s\ 4320}#) - (let ((#{tmp\ 4323}# #{s\ 4320}#)) - (let ((#{tmp\ 4324}# + (lambda (#{var\ 4196}# + #{init\ 4197}# + #{step\ 4198}# + #{e0\ 4199}# + #{e1\ 4200}# + #{c\ 4201}#) + (let ((#{tmp\ 4203}# + (map (lambda (#{v\ 4224}# #{s\ 4225}#) + (let ((#{tmp\ 4228}# #{s\ 4225}#)) + (let ((#{tmp\ 4229}# ($sc-dispatch - #{tmp\ 4323}# + #{tmp\ 4228}# '()))) - (if #{tmp\ 4324}# + (if #{tmp\ 4229}# (@apply - (lambda () #{v\ 4319}#) - #{tmp\ 4324}#) - (let ((#{tmp\ 4325}# + (lambda () #{v\ 4224}#) + #{tmp\ 4229}#) + (let ((#{tmp\ 4230}# ($sc-dispatch - #{tmp\ 4323}# + #{tmp\ 4228}# '(any)))) - (if #{tmp\ 4325}# + (if #{tmp\ 4230}# (@apply - (lambda (#{e\ 4327}#) #{e\ 4327}#) - #{tmp\ 4325}#) - (let ((#{_\ 4329}# #{tmp\ 4323}#)) + (lambda (#{e\ 4232}#) #{e\ 4232}#) + #{tmp\ 4230}#) + (let ((#{_\ 4234}# #{tmp\ 4228}#)) (syntax-violation 'do "bad step expression" - #{orig-x\ 4279}# - #{s\ 4320}#)))))))) - #{var\ 4291}# - #{step\ 4293}#))) - (let ((#{tmp\ 4299}# - ($sc-dispatch #{tmp\ 4298}# (quote each-any)))) - (if #{tmp\ 4299}# + #{orig-x\ 4186}# + #{s\ 4225}#)))))))) + #{var\ 4196}# + #{step\ 4198}#))) + (let ((#{tmp\ 4204}# + ($sc-dispatch #{tmp\ 4203}# (quote each-any)))) + (if #{tmp\ 4204}# (@apply - (lambda (#{step\ 4301}#) - (let ((#{tmp\ 4302}# #{e1\ 4295}#)) - (let ((#{tmp\ 4303}# - ($sc-dispatch #{tmp\ 4302}# (quote ())))) - (if #{tmp\ 4303}# + (lambda (#{step\ 4206}#) + (let ((#{tmp\ 4207}# #{e1\ 4200}#)) + (let ((#{tmp\ 4208}# + ($sc-dispatch #{tmp\ 4207}# (quote ())))) + (if #{tmp\ 4208}# (@apply (lambda () (list '#(syntax-object @@ -13779,28 +15534,26 @@ #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ var init step e0 e1 c) + #(var init step e0 e1 c) #((top) (top) (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) '#(syntax-object doloop @@ -13808,66 +15561,56 @@ #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ var init step e0 e1 c) + #(var init step e0 e1 c) #((top) (top) (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) (map list - #{var\ 4291}# - #{init\ 4292}#) + #{var\ 4196}# + #{init\ 4197}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var - init - step - e0 - e1 - c) + #(var init step e0 e1 c) #((top) (top) (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) (list '#(syntax-object not @@ -13875,10 +15618,9 @@ #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var + #(var init step e0 @@ -13889,32 +15631,29 @@ (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) - #{e0\ 4294}#) + #{e0\ 4199}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var + #(var init step e0 @@ -13925,33 +15664,30 @@ (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) (append - #{c\ 4296}# + #{c\ 4201}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var + #(var init step e0 @@ -13962,15 +15698,13 @@ (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () @@ -13978,50 +15712,48 @@ #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) - #{step\ 4301}#))))))) - #{tmp\ 4303}#) - (let ((#{tmp\ 4308}# + #{step\ 4206}#))))))) + #{tmp\ 4208}#) + (let ((#{tmp\ 4213}# ($sc-dispatch - #{tmp\ 4302}# + #{tmp\ 4207}# '(any . each-any)))) - (if #{tmp\ 4308}# + (if #{tmp\ 4213}# (@apply - (lambda (#{e1\ 4311}# #{e2\ 4312}#) + (lambda (#{e1\ 4216}# #{e2\ 4217}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4309" "i4310")) + #("i4214" "i4215")) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ var init step e0 e1 c) + #(var init step e0 e1 c) #((top) (top) (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) '#(syntax-object doloop @@ -14029,50 +15761,47 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i4309" "i4310")) + #("i4214" "i4215")) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ var init step e0 e1 c) + #(var init step e0 e1 c) #((top) (top) (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) (map list - #{var\ 4291}# - #{init\ 4292}#) + #{var\ 4196}# + #{init\ 4197}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4309" "i4310")) + #("i4214" "i4215")) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var + #(var init step e0 @@ -14083,37 +15812,34 @@ (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) - #{e0\ 4294}# + #{e0\ 4199}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4309" - "i4310")) + #("i4214" + "i4215")) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var + #(var init step e0 @@ -14124,15 +15850,13 @@ (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () @@ -14140,25 +15864,24 @@ #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) - (cons #{e1\ 4311}# - #{e2\ 4312}#)) + (cons #{e1\ 4216}# + #{e2\ 4217}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4309" - "i4310")) + #("i4214" + "i4215")) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var + #(var init step e0 @@ -14169,15 +15892,13 @@ (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () @@ -14185,10 +15906,10 @@ #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) (append - #{c\ 4296}# + #{c\ 4201}# (list (cons '#(syntax-object doloop ((top) @@ -14197,15 +15918,14 @@ e2) #((top) (top)) - #("i4309" - "i4310")) + #("i4214" + "i4215")) #(ribcage #(step) #((top)) - #("i4300")) + #("i4205")) #(ribcage - #(_ - var + #(var init step e0 @@ -14216,15 +15936,13 @@ (top) (top) (top) - (top) (top)) - #("i4283" - "i4284" - "i4285" - "i4286" - "i4287" - "i4288" - "i4289")) + #("i4190" + "i4191" + "i4192" + "i4193" + "i4194" + "i4195")) #(ribcage () () @@ -14232,43 +15950,43 @@ #(ribcage #(orig-x) #((top)) - #("i4280"))) + #("i4187"))) (hygiene guile)) - #{step\ 4301}#))))))) - #{tmp\ 4308}#) + #{step\ 4206}#))))))) + #{tmp\ 4213}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4302}#))))))) - #{tmp\ 4299}#) + #{tmp\ 4207}#))))))) + #{tmp\ 4204}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4298}#))))) - #{tmp\ 4282}#) + #{tmp\ 4203}#))))) + #{tmp\ 4189}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4281}#))))))) + #{tmp\ 4188}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasicons\ 4336}# - (lambda (#{x\ 4340}# #{y\ 4341}#) - (let ((#{tmp\ 4345}# (list #{x\ 4340}# #{y\ 4341}#))) - (let ((#{tmp\ 4346}# - ($sc-dispatch #{tmp\ 4345}# (quote (any any))))) - (if #{tmp\ 4346}# + ((#{quasicons\ 4241}# + (lambda (#{x\ 4245}# #{y\ 4246}#) + (let ((#{tmp\ 4250}# (list #{x\ 4245}# #{y\ 4246}#))) + (let ((#{tmp\ 4251}# + ($sc-dispatch #{tmp\ 4250}# (quote (any any))))) + (if #{tmp\ 4251}# (@apply - (lambda (#{x\ 4349}# #{y\ 4350}#) - (let ((#{tmp\ 4351}# #{y\ 4350}#)) - (let ((#{tmp\ 4352}# + (lambda (#{x\ 4254}# #{y\ 4255}#) + (let ((#{tmp\ 4256}# #{y\ 4255}#)) + (let ((#{tmp\ 4257}# ($sc-dispatch - #{tmp\ 4351}# + #{tmp\ 4256}# '(#(free-id #(syntax-object quote @@ -14276,29 +15994,29 @@ #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) any)))) - (if #{tmp\ 4352}# + (if #{tmp\ 4257}# (@apply - (lambda (#{dy\ 4354}#) - (let ((#{tmp\ 4355}# #{x\ 4349}#)) - (let ((#{tmp\ 4356}# + (lambda (#{dy\ 4259}#) + (let ((#{tmp\ 4260}# #{x\ 4254}#)) + (let ((#{tmp\ 4261}# ($sc-dispatch - #{tmp\ 4355}# + #{tmp\ 4260}# '(#(free-id #(syntax-object quote @@ -14306,140 +16024,140 @@ #(ribcage #(dy) #((top)) - #("i4353")) + #("i4258")) #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile))) any)))) - (if #{tmp\ 4356}# + (if #{tmp\ 4261}# (@apply - (lambda (#{dx\ 4358}#) + (lambda (#{dx\ 4263}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4357")) + #("i4262")) #(ribcage #(dy) #((top)) - #("i4353")) + #("i4258")) #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) - (cons #{dx\ 4358}# - #{dy\ 4354}#))) - #{tmp\ 4356}#) - (let ((#{_\ 4360}# #{tmp\ 4355}#)) - (if (null? #{dy\ 4354}#) + (cons #{dx\ 4263}# + #{dy\ 4259}#))) + #{tmp\ 4261}#) + (let ((#{_\ 4265}# #{tmp\ 4260}#)) + (if (null? #{dy\ 4259}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4359")) + #("i4264")) #(ribcage #(dy) #((top)) - #("i4353")) + #("i4258")) #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) - #{x\ 4349}#) + #{x\ 4254}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4359")) + #("i4264")) #(ribcage #(dy) #((top)) - #("i4353")) + #("i4258")) #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) - #{x\ 4349}# - #{y\ 4350}#))))))) - #{tmp\ 4352}#) - (let ((#{tmp\ 4361}# + #{x\ 4254}# + #{y\ 4255}#))))))) + #{tmp\ 4257}#) + (let ((#{tmp\ 4266}# ($sc-dispatch - #{tmp\ 4351}# + #{tmp\ 4256}# '(#(free-id #(syntax-object list @@ -14447,107 +16165,107 @@ #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile))) . any)))) - (if #{tmp\ 4361}# + (if #{tmp\ 4266}# (@apply - (lambda (#{stuff\ 4363}#) + (lambda (#{stuff\ 4268}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4362")) + #("i4267")) #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) - (cons #{x\ 4349}# #{stuff\ 4363}#))) - #{tmp\ 4361}#) - (let ((#{else\ 4365}# #{tmp\ 4351}#)) + (cons #{x\ 4254}# #{stuff\ 4268}#))) + #{tmp\ 4266}#) + (let ((#{else\ 4270}# #{tmp\ 4256}#)) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4364")) + #("i4269")) #(ribcage #(x y) #((top) (top)) - #("i4347" "i4348")) + #("i4252" "i4253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4342" "i4343")) + #("i4247" "i4248")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) - #{x\ 4349}# - #{y\ 4350}#)))))))) - #{tmp\ 4346}#) + #{x\ 4254}# + #{y\ 4255}#)))))))) + #{tmp\ 4251}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4345}#)))))) - (#{quasiappend\ 4337}# - (lambda (#{x\ 4366}# #{y\ 4367}#) - (let ((#{tmp\ 4371}# (list #{x\ 4366}# #{y\ 4367}#))) - (let ((#{tmp\ 4372}# - ($sc-dispatch #{tmp\ 4371}# (quote (any any))))) - (if #{tmp\ 4372}# + #{tmp\ 4250}#)))))) + (#{quasiappend\ 4242}# + (lambda (#{x\ 4271}# #{y\ 4272}#) + (let ((#{tmp\ 4276}# (list #{x\ 4271}# #{y\ 4272}#))) + (let ((#{tmp\ 4277}# + ($sc-dispatch #{tmp\ 4276}# (quote (any any))))) + (if #{tmp\ 4277}# (@apply - (lambda (#{x\ 4375}# #{y\ 4376}#) - (let ((#{tmp\ 4377}# #{y\ 4376}#)) - (let ((#{tmp\ 4378}# + (lambda (#{x\ 4280}# #{y\ 4281}#) + (let ((#{tmp\ 4282}# #{y\ 4281}#)) + (let ((#{tmp\ 4283}# ($sc-dispatch - #{tmp\ 4377}# + #{tmp\ 4282}# '(#(free-id #(syntax-object quote @@ -14555,160 +16273,160 @@ #(ribcage #(x y) #((top) (top)) - #("i4373" "i4374")) + #("i4278" "i4279")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4368" "i4369")) + #("i4273" "i4274")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) ())))) - (if #{tmp\ 4378}# - (@apply (lambda () #{x\ 4375}#) #{tmp\ 4378}#) - (let ((#{_\ 4380}# #{tmp\ 4377}#)) + (if #{tmp\ 4283}# + (@apply (lambda () #{x\ 4280}#) #{tmp\ 4283}#) + (let ((#{_\ 4285}# #{tmp\ 4282}#)) (list '#(syntax-object append ((top) - #(ribcage #(_) #((top)) #("i4379")) + #(ribcage #(_) #((top)) #("i4284")) #(ribcage #(x y) #((top) (top)) - #("i4373" "i4374")) + #("i4278" "i4279")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4368" "i4369")) + #("i4273" "i4274")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile)) - #{x\ 4375}# - #{y\ 4376}#)))))) - #{tmp\ 4372}#) + #{x\ 4280}# + #{y\ 4281}#)))))) + #{tmp\ 4277}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4371}#)))))) - (#{quasivector\ 4338}# - (lambda (#{x\ 4381}#) - (let ((#{tmp\ 4384}# #{x\ 4381}#)) - (let ((#{x\ 4386}# #{tmp\ 4384}#)) - (let ((#{tmp\ 4387}# #{x\ 4386}#)) - (let ((#{tmp\ 4388}# + #{tmp\ 4276}#)))))) + (#{quasivector\ 4243}# + (lambda (#{x\ 4286}#) + (let ((#{tmp\ 4289}# #{x\ 4286}#)) + (let ((#{x\ 4291}# #{tmp\ 4289}#)) + (let ((#{tmp\ 4292}# #{x\ 4291}#)) + (let ((#{tmp\ 4293}# ($sc-dispatch - #{tmp\ 4387}# + #{tmp\ 4292}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4385")) + #(ribcage #(x) #((top)) #("i4290")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4382")) + #(ribcage #(x) #((top)) #("i4287")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) each-any)))) - (if #{tmp\ 4388}# + (if #{tmp\ 4293}# (@apply - (lambda (#{x\ 4390}#) + (lambda (#{x\ 4295}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4389")) - #(ribcage #(x) #((top)) #("i4385")) + #(ribcage #(x) #((top)) #("i4294")) + #(ribcage #(x) #((top)) #("i4290")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4382")) + #(ribcage #(x) #((top)) #("i4287")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile)) - (list->vector #{x\ 4390}#))) - #{tmp\ 4388}#) - (let ((#{tmp\ 4392}# + (list->vector #{x\ 4295}#))) + #{tmp\ 4293}#) + (let ((#{tmp\ 4297}# ($sc-dispatch - #{tmp\ 4387}# + #{tmp\ 4292}# '(#(free-id #(syntax-object list ((top) - #(ribcage #(x) #((top)) #("i4385")) + #(ribcage #(x) #((top)) #("i4290")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4382")) + #(ribcage #(x) #((top)) #("i4287")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) . each-any)))) - (if #{tmp\ 4392}# + (if #{tmp\ 4297}# (@apply - (lambda (#{x\ 4394}#) + (lambda (#{x\ 4299}#) (cons '#(syntax-object vector ((top) - #(ribcage #(x) #((top)) #("i4393")) - #(ribcage #(x) #((top)) #("i4385")) + #(ribcage #(x) #((top)) #("i4298")) + #(ribcage #(x) #((top)) #("i4290")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4382")) + #(ribcage #(x) #((top)) #("i4287")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile)) - #{x\ 4394}#)) - #{tmp\ 4392}#) - (let ((#{_\ 4397}# #{tmp\ 4387}#)) + #{x\ 4299}#)) + #{tmp\ 4297}#) + (let ((#{_\ 4302}# #{tmp\ 4292}#)) (list '#(syntax-object list->vector ((top) - #(ribcage #(_) #((top)) #("i4396")) - #(ribcage #(x) #((top)) #("i4385")) + #(ribcage #(_) #((top)) #("i4301")) + #(ribcage #(x) #((top)) #("i4290")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4382")) + #(ribcage #(x) #((top)) #("i4287")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile)) - #{x\ 4386}#))))))))))) - (#{quasi\ 4339}# - (lambda (#{p\ 4398}# #{lev\ 4399}#) - (let ((#{tmp\ 4402}# #{p\ 4398}#)) - (let ((#{tmp\ 4403}# + #{x\ 4291}#))))))))))) + (#{quasi\ 4244}# + (lambda (#{p\ 4303}# #{lev\ 4304}#) + (let ((#{tmp\ 4307}# #{p\ 4303}#)) + (let ((#{tmp\ 4308}# ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 4307}# '(#(free-id #(syntax-object unquote @@ -14717,54 +16435,54 @@ #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) any)))) - (if #{tmp\ 4403}# + (if #{tmp\ 4308}# (@apply - (lambda (#{p\ 4405}#) - (if (= #{lev\ 4399}# 0) - #{p\ 4405}# - (#{quasicons\ 4336}# + (lambda (#{p\ 4310}#) + (if (= #{lev\ 4304}# 0) + #{p\ 4310}# + (#{quasicons\ 4241}# '(#(syntax-object quote ((top) - #(ribcage #(p) #((top)) #("i4404")) + #(ribcage #(p) #((top)) #("i4309")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4404")) + #(ribcage #(p) #((top)) #("i4309")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) - (#{quasi\ 4339}# - (list #{p\ 4405}#) - (1- #{lev\ 4399}#))))) - #{tmp\ 4403}#) - (let ((#{tmp\ 4406}# + (#{quasi\ 4244}# + (list #{p\ 4310}#) + (1- #{lev\ 4304}#))))) + #{tmp\ 4308}#) + (let ((#{tmp\ 4311}# ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 4307}# '(#(free-id #(syntax-object unquote @@ -14773,47 +16491,47 @@ #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) . any)))) - (if (if #{tmp\ 4406}# + (if (if #{tmp\ 4311}# (@apply - (lambda (#{args\ 4408}#) (= #{lev\ 4399}# 0)) - #{tmp\ 4406}#) + (lambda (#{args\ 4313}#) (= #{lev\ 4304}# 0)) + #{tmp\ 4311}#) #f) (@apply - (lambda (#{args\ 4410}#) + (lambda (#{args\ 4315}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4398}# + #{p\ 4303}# (cons '#(syntax-object unquote ((top) - #(ribcage #(args) #((top)) #("i4409")) + #(ribcage #(args) #((top)) #("i4314")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile)) - #{args\ 4410}#))) - #{tmp\ 4406}#) - (let ((#{tmp\ 4411}# + #{args\ 4315}#))) + #{tmp\ 4311}#) + (let ((#{tmp\ 4316}# ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 4307}# '((#(free-id #(syntax-object unquote-splicing @@ -14822,46 +16540,46 @@ #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) any) . any)))) - (if #{tmp\ 4411}# + (if #{tmp\ 4316}# (@apply - (lambda (#{p\ 4414}# #{q\ 4415}#) - (if (= #{lev\ 4399}# 0) - (#{quasiappend\ 4337}# - #{p\ 4414}# - (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#)) - (#{quasicons\ 4336}# - (#{quasicons\ 4336}# + (lambda (#{p\ 4319}# #{q\ 4320}#) + (if (= #{lev\ 4304}# 0) + (#{quasiappend\ 4242}# + #{p\ 4319}# + (#{quasi\ 4244}# #{q\ 4320}# #{lev\ 4304}#)) + (#{quasicons\ 4241}# + (#{quasicons\ 4241}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4412" "i4413")) + #("i4317" "i4318")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14869,28 +16587,28 @@ #(ribcage #(p q) #((top) (top)) - #("i4412" "i4413")) + #("i4317" "i4318")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" "i4333" "i4334" "i4335"))) + #("i4237" "i4238" "i4239" "i4240"))) (hygiene guile))) - (#{quasi\ 4339}# - (list #{p\ 4414}#) - (1- #{lev\ 4399}#))) - (#{quasi\ 4339}# #{q\ 4415}# #{lev\ 4399}#)))) - #{tmp\ 4411}#) - (let ((#{tmp\ 4416}# + (#{quasi\ 4244}# + (list #{p\ 4319}#) + (1- #{lev\ 4304}#))) + (#{quasi\ 4244}# #{q\ 4320}# #{lev\ 4304}#)))) + #{tmp\ 4316}#) + (let ((#{tmp\ 4321}# ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 4307}# '((#(free-id #(syntax-object unquote-splicing @@ -14899,62 +16617,62 @@ #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile))) . any) . any)))) - (if (if #{tmp\ 4416}# + (if (if #{tmp\ 4321}# (@apply - (lambda (#{args\ 4419}# #{q\ 4420}#) - (= #{lev\ 4399}# 0)) - #{tmp\ 4416}#) + (lambda (#{args\ 4324}# #{q\ 4325}#) + (= #{lev\ 4304}# 0)) + #{tmp\ 4321}#) #f) (@apply - (lambda (#{args\ 4423}# #{q\ 4424}#) + (lambda (#{args\ 4328}# #{q\ 4329}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4398}# + #{p\ 4303}# (cons '#(syntax-object unquote-splicing ((top) #(ribcage #(args q) #((top) (top)) - #("i4421" "i4422")) + #("i4326" "i4327")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) - #{args\ 4423}#))) - #{tmp\ 4416}#) - (let ((#{tmp\ 4425}# + #{args\ 4328}#))) + #{tmp\ 4321}#) + (let ((#{tmp\ 4330}# ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 4307}# '(#(free-id #(syntax-object quasiquote @@ -14963,107 +16681,107 @@ #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile))) any)))) - (if #{tmp\ 4425}# + (if #{tmp\ 4330}# (@apply - (lambda (#{p\ 4427}#) - (#{quasicons\ 4336}# + (lambda (#{p\ 4332}#) + (#{quasicons\ 4241}# '(#(syntax-object quote ((top) - #(ribcage #(p) #((top)) #("i4426")) + #(ribcage #(p) #((top)) #("i4331")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i4426")) + #(ribcage #(p) #((top)) #("i4331")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile))) - (#{quasi\ 4339}# - (list #{p\ 4427}#) - (1+ #{lev\ 4399}#)))) - #{tmp\ 4425}#) - (let ((#{tmp\ 4428}# + (#{quasi\ 4244}# + (list #{p\ 4332}#) + (1+ #{lev\ 4304}#)))) + #{tmp\ 4330}#) + (let ((#{tmp\ 4333}# ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 4307}# '(any . any)))) - (if #{tmp\ 4428}# + (if #{tmp\ 4333}# (@apply - (lambda (#{p\ 4431}# #{q\ 4432}#) - (#{quasicons\ 4336}# - (#{quasi\ 4339}# - #{p\ 4431}# - #{lev\ 4399}#) - (#{quasi\ 4339}# - #{q\ 4432}# - #{lev\ 4399}#))) - #{tmp\ 4428}#) - (let ((#{tmp\ 4433}# + (lambda (#{p\ 4336}# #{q\ 4337}#) + (#{quasicons\ 4241}# + (#{quasi\ 4244}# + #{p\ 4336}# + #{lev\ 4304}#) + (#{quasi\ 4244}# + #{q\ 4337}# + #{lev\ 4304}#))) + #{tmp\ 4333}#) + (let ((#{tmp\ 4338}# ($sc-dispatch - #{tmp\ 4402}# + #{tmp\ 4307}# '#(vector each-any)))) - (if #{tmp\ 4433}# + (if #{tmp\ 4338}# (@apply - (lambda (#{x\ 4435}#) - (#{quasivector\ 4338}# - (#{quasi\ 4339}# - #{x\ 4435}# - #{lev\ 4399}#))) - #{tmp\ 4433}#) - (let ((#{p\ 4438}# #{tmp\ 4402}#)) + (lambda (#{x\ 4340}#) + (#{quasivector\ 4243}# + (#{quasi\ 4244}# + #{x\ 4340}# + #{lev\ 4304}#))) + #{tmp\ 4338}#) + (let ((#{p\ 4343}# #{tmp\ 4307}#)) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4437")) + #("i4342")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4400" "i4401")) + #("i4305" "i4306")) #(ribcage #(quasicons quasiappend @@ -15073,223 +16791,220 @@ (top) (top) (top)) - #("i4332" - "i4333" - "i4334" - "i4335"))) + #("i4237" + "i4238" + "i4239" + "i4240"))) (hygiene guile)) - #{p\ 4438}#)))))))))))))))))))) + #{p\ 4343}#)))))))))))))))))))) (begin - (lambda (#{x\ 4439}#) - (let ((#{tmp\ 4441}# #{x\ 4439}#)) - (let ((#{tmp\ 4442}# - ($sc-dispatch #{tmp\ 4441}# (quote (any any))))) - (if #{tmp\ 4442}# + (lambda (#{x\ 4344}#) + (let ((#{tmp\ 4346}# #{x\ 4344}#)) + (let ((#{tmp\ 4347}# + ($sc-dispatch #{tmp\ 4346}# (quote (_ any))))) + (if #{tmp\ 4347}# (@apply - (lambda (#{_\ 4445}# #{e\ 4446}#) - (#{quasi\ 4339}# #{e\ 4446}# 0)) - #{tmp\ 4442}#) + (lambda (#{e\ 4349}#) + (#{quasi\ 4244}# #{e\ 4349}# 0)) + #{tmp\ 4347}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4441}#))))))))) + #{tmp\ 4346}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x\ 4447}#) + (lambda (#{x\ 4350}#) (letrec* - ((#{read-file\ 4450}# - (lambda (#{fn\ 4451}# #{k\ 4452}#) + ((#{read-file\ 4353}# + (lambda (#{fn\ 4354}# #{k\ 4355}#) (begin - (let ((#{p\ 4456}# (open-input-file #{fn\ 4451}#))) + (let ((#{p\ 4359}# (open-input-file #{fn\ 4354}#))) (letrec* - ((#{f\ 4460}# - (lambda (#{x\ 4461}# #{result\ 4462}#) - (if (eof-object? #{x\ 4461}#) + ((#{f\ 4363}# + (lambda (#{x\ 4364}# #{result\ 4365}#) + (if (eof-object? #{x\ 4364}#) (begin - (close-input-port #{p\ 4456}#) - (reverse #{result\ 4462}#)) - (#{f\ 4460}# - (read #{p\ 4456}#) - (cons (datum->syntax #{k\ 4452}# #{x\ 4461}#) - #{result\ 4462}#)))))) + (close-input-port #{p\ 4359}#) + (reverse #{result\ 4365}#)) + (#{f\ 4363}# + (read #{p\ 4359}#) + (cons (datum->syntax #{k\ 4355}# #{x\ 4364}#) + #{result\ 4365}#)))))) (begin - (#{f\ 4460}# (read #{p\ 4456}#) (quote ()))))))))) + (#{f\ 4363}# (read #{p\ 4359}#) (quote ()))))))))) (begin - (let ((#{tmp\ 4463}# #{x\ 4447}#)) - (let ((#{tmp\ 4464}# - ($sc-dispatch #{tmp\ 4463}# (quote (any any))))) - (if #{tmp\ 4464}# + (let ((#{tmp\ 4366}# #{x\ 4350}#)) + (let ((#{tmp\ 4367}# + ($sc-dispatch #{tmp\ 4366}# (quote (any any))))) + (if #{tmp\ 4367}# (@apply - (lambda (#{k\ 4467}# #{filename\ 4468}#) + (lambda (#{k\ 4370}# #{filename\ 4371}#) (begin - (let ((#{fn\ 4470}# (syntax->datum #{filename\ 4468}#))) - (let ((#{tmp\ 4472}# - (#{read-file\ 4450}# - #{fn\ 4470}# - #{filename\ 4468}#))) - (let ((#{tmp\ 4473}# + (let ((#{fn\ 4373}# (syntax->datum #{filename\ 4371}#))) + (let ((#{tmp\ 4375}# + (#{read-file\ 4353}# + #{fn\ 4373}# + #{filename\ 4371}#))) + (let ((#{tmp\ 4376}# ($sc-dispatch - #{tmp\ 4472}# + #{tmp\ 4375}# 'each-any))) - (if #{tmp\ 4473}# + (if #{tmp\ 4376}# (@apply - (lambda (#{exp\ 4475}#) + (lambda (#{exp\ 4378}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4474")) + #("i4377")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4469")) + #("i4372")) #(ribcage #(k filename) #((top) (top)) - #("i4465" "i4466")) + #("i4368" "i4369")) #(ribcage (read-file) ((top)) - ("i4449")) + ("i4352")) #(ribcage #(x) #((top)) - #("i4448"))) + #("i4351"))) (hygiene guile)) - #{exp\ 4475}#)) - #{tmp\ 4473}#) + #{exp\ 4378}#)) + #{tmp\ 4376}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4472}#))))))) - #{tmp\ 4464}#) + #{tmp\ 4375}#))))))) + #{tmp\ 4367}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4463}#))))))))) + #{tmp\ 4366}#))))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x\ 4477}#) - (let ((#{tmp\ 4479}# #{x\ 4477}#)) - (let ((#{tmp\ 4480}# - ($sc-dispatch #{tmp\ 4479}# (quote (any any))))) - (if #{tmp\ 4480}# + (lambda (#{x\ 4380}#) + (let ((#{tmp\ 4382}# #{x\ 4380}#)) + (let ((#{tmp\ 4383}# + ($sc-dispatch #{tmp\ 4382}# (quote (any any))))) + (if #{tmp\ 4383}# (@apply - (lambda (#{k\ 4483}# #{filename\ 4484}#) + (lambda (#{k\ 4386}# #{filename\ 4387}#) (begin - (let ((#{fn\ 4486}# (syntax->datum #{filename\ 4484}#))) - (let ((#{tmp\ 4488}# + (let ((#{fn\ 4389}# (syntax->datum #{filename\ 4387}#))) + (let ((#{tmp\ 4391}# (datum->syntax - #{filename\ 4484}# + #{filename\ 4387}# (begin - (let ((#{t\ 4493}# - (%search-load-path #{fn\ 4486}#))) - (if #{t\ 4493}# - #{t\ 4493}# + (let ((#{t\ 4396}# + (%search-load-path #{fn\ 4389}#))) + (if #{t\ 4396}# + #{t\ 4396}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4477}# - #{filename\ 4484}#))))))) - (let ((#{fn\ 4490}# #{tmp\ 4488}#)) + #{x\ 4380}# + #{filename\ 4387}#))))))) + (let ((#{fn\ 4393}# #{tmp\ 4391}#)) (list '#(syntax-object include ((top) - #(ribcage #(fn) #((top)) #("i4489")) + #(ribcage #(fn) #((top)) #("i4392")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4485")) + #(ribcage #(fn) #((top)) #("i4388")) #(ribcage #(k filename) #((top) (top)) - #("i4481" "i4482")) + #("i4384" "i4385")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4478"))) + #(ribcage #(x) #((top)) #("i4381"))) (hygiene guile)) - #{fn\ 4490}#)))))) - #{tmp\ 4480}#) + #{fn\ 4393}#)))))) + #{tmp\ 4383}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4479}#))))))) + #{tmp\ 4382}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x\ 4495}#) - (let ((#{tmp\ 4497}# #{x\ 4495}#)) - (let ((#{tmp\ 4498}# - ($sc-dispatch #{tmp\ 4497}# (quote (any any))))) - (if #{tmp\ 4498}# + (lambda (#{x\ 4398}#) + (let ((#{tmp\ 4400}# #{x\ 4398}#)) + (let ((#{tmp\ 4401}# + ($sc-dispatch #{tmp\ 4400}# (quote (_ any))))) + (if #{tmp\ 4401}# (@apply - (lambda (#{_\ 4501}# #{e\ 4502}#) + (lambda (#{e\ 4403}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4495}#)) - #{tmp\ 4498}#) + #{x\ 4398}#)) + #{tmp\ 4401}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4497}#))))))) + #{tmp\ 4400}#))))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x\ 4503}#) - (let ((#{tmp\ 4505}# #{x\ 4503}#)) - (let ((#{tmp\ 4506}# - ($sc-dispatch #{tmp\ 4505}# (quote (any any))))) - (if #{tmp\ 4506}# + (lambda (#{x\ 4404}#) + (let ((#{tmp\ 4406}# #{x\ 4404}#)) + (let ((#{tmp\ 4407}# + ($sc-dispatch #{tmp\ 4406}# (quote (_ any))))) + (if #{tmp\ 4407}# (@apply - (lambda (#{_\ 4509}# #{e\ 4510}#) + (lambda (#{e\ 4409}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4503}#)) - #{tmp\ 4506}#) + #{x\ 4404}#)) + #{tmp\ 4407}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4505}#))))))) + #{tmp\ 4406}#))))))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x\ 4511}#) - (let ((#{tmp\ 4513}# #{x\ 4511}#)) - (let ((#{tmp\ 4514}# + (lambda (#{x\ 4410}#) + (let ((#{tmp\ 4412}# #{x\ 4410}#)) + (let ((#{tmp\ 4413}# ($sc-dispatch - #{tmp\ 4513}# - '(any any any . each-any)))) - (if #{tmp\ 4514}# + #{tmp\ 4412}# + '(_ any any . each-any)))) + (if #{tmp\ 4413}# (@apply - (lambda (#{_\ 4519}# - #{e\ 4520}# - #{m1\ 4521}# - #{m2\ 4522}#) - (let ((#{tmp\ 4524}# + (lambda (#{e\ 4417}# #{m1\ 4418}# #{m2\ 4419}#) + (let ((#{tmp\ 4421}# (letrec* - ((#{f\ 4530}# - (lambda (#{clause\ 4531}# #{clauses\ 4532}#) - (if (null? #{clauses\ 4532}#) - (let ((#{tmp\ 4534}# #{clause\ 4531}#)) - (let ((#{tmp\ 4535}# + ((#{f\ 4427}# + (lambda (#{clause\ 4428}# #{clauses\ 4429}#) + (if (null? #{clauses\ 4429}#) + (let ((#{tmp\ 4431}# #{clause\ 4428}#)) + (let ((#{tmp\ 4432}# ($sc-dispatch - #{tmp\ 4534}# + #{tmp\ 4431}# '(#(free-id #(syntax-object else @@ -15298,104 +17013,92 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #(e m1 m2) + #((top) (top) (top)) + #("i4414" + "i4415" + "i4416")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile))) any . each-any)))) - (if #{tmp\ 4535}# + (if #{tmp\ 4432}# (@apply - (lambda (#{e1\ 4538}# #{e2\ 4539}#) + (lambda (#{e1\ 4435}# #{e2\ 4436}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4536" "i4537")) + #("i4433" "i4434")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #(e m1 m2) + #((top) (top) (top)) + #("i4414" + "i4415" + "i4416")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) - (cons #{e1\ 4538}# - #{e2\ 4539}#))) - #{tmp\ 4535}#) - (let ((#{tmp\ 4541}# + (cons #{e1\ 4435}# + #{e2\ 4436}#))) + #{tmp\ 4432}#) + (let ((#{tmp\ 4438}# ($sc-dispatch - #{tmp\ 4534}# + #{tmp\ 4431}# '(each-any any . each-any)))) - (if #{tmp\ 4541}# + (if #{tmp\ 4438}# (@apply - (lambda (#{k\ 4545}# - #{e1\ 4546}# - #{e2\ 4547}#) + (lambda (#{k\ 4442}# + #{e1\ 4443}# + #{e2\ 4444}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4542" - "i4543" - "i4544")) + #("i4439" + "i4440" + "i4441")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #(e m1 m2) + #((top) (top) (top)) + #("i4414" + "i4415" + "i4416")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) (list '#(syntax-object memv @@ -15405,9 +17108,9 @@ #((top) (top) (top)) - #("i4542" - "i4543" - "i4544")) + #("i4439" + "i4440" + "i4441")) #(ribcage () () @@ -15419,19 +17122,17 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15439,7 +17140,7 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) '#(syntax-object t @@ -15449,9 +17150,9 @@ #((top) (top) (top)) - #("i4542" - "i4543" - "i4544")) + #("i4439" + "i4440" + "i4441")) #(ribcage () () @@ -15463,19 +17164,17 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15483,7 +17182,7 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) (list '#(syntax-object quote @@ -15495,9 +17194,9 @@ #((top) (top) (top)) - #("i4542" - "i4543" - "i4544")) + #("i4439" + "i4440" + "i4441")) #(ribcage () () @@ -15509,22 +17208,19 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ - e + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15532,10 +17228,10 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) - #{k\ 4545}#)) + #{k\ 4442}#)) (cons '#(syntax-object begin ((top) @@ -15544,9 +17240,9 @@ #((top) (top) (top)) - #("i4542" - "i4543" - "i4544")) + #("i4439" + "i4440" + "i4441")) #(ribcage () () @@ -15558,19 +17254,17 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15578,67 +17272,63 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) - (cons #{e1\ 4546}# - #{e2\ 4547}#)))) - #{tmp\ 4541}#) - (let ((#{_\ 4551}# #{tmp\ 4534}#)) + (cons #{e1\ 4443}# + #{e2\ 4444}#)))) + #{tmp\ 4438}#) + (let ((#{_\ 4448}# #{tmp\ 4431}#)) (syntax-violation 'case "bad clause" - #{x\ 4511}# - #{clause\ 4531}#))))))) - (let ((#{tmp\ 4553}# - (#{f\ 4530}# - (car #{clauses\ 4532}#) - (cdr #{clauses\ 4532}#)))) - (let ((#{rest\ 4555}# #{tmp\ 4553}#)) - (let ((#{tmp\ 4556}# #{clause\ 4531}#)) - (let ((#{tmp\ 4557}# + #{x\ 4410}# + #{clause\ 4428}#))))))) + (let ((#{tmp\ 4450}# + (#{f\ 4427}# + (car #{clauses\ 4429}#) + (cdr #{clauses\ 4429}#)))) + (let ((#{rest\ 4452}# #{tmp\ 4450}#)) + (let ((#{tmp\ 4453}# #{clause\ 4428}#)) + (let ((#{tmp\ 4454}# ($sc-dispatch - #{tmp\ 4556}# + #{tmp\ 4453}# '(each-any any . each-any)))) - (if #{tmp\ 4557}# + (if #{tmp\ 4454}# (@apply - (lambda (#{k\ 4561}# - #{e1\ 4562}# - #{e2\ 4563}#) + (lambda (#{k\ 4458}# + #{e1\ 4459}# + #{e2\ 4460}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4558" - "i4559" - "i4560")) + #("i4455" + "i4456" + "i4457")) #(ribcage #(rest) #((top)) - #("i4554")) + #("i4451")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) - #((top) - (top) - (top) - (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #(e m1 m2) + #((top) (top) (top)) + #("i4414" + "i4415" + "i4416")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) (list '#(syntax-object memv @@ -15648,13 +17338,13 @@ #((top) (top) (top)) - #("i4558" - "i4559" - "i4560")) + #("i4455" + "i4456" + "i4457")) #(ribcage #(rest) #((top)) - #("i4554")) + #("i4451")) #(ribcage () () @@ -15666,19 +17356,17 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15686,7 +17374,7 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) '#(syntax-object t @@ -15696,13 +17384,13 @@ #((top) (top) (top)) - #("i4558" - "i4559" - "i4560")) + #("i4455" + "i4456" + "i4457")) #(ribcage #(rest) #((top)) - #("i4554")) + #("i4451")) #(ribcage () () @@ -15714,19 +17402,17 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15734,7 +17420,7 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) (list '#(syntax-object quote @@ -15746,13 +17432,13 @@ #((top) (top) (top)) - #("i4558" - "i4559" - "i4560")) + #("i4455" + "i4456" + "i4457")) #(ribcage #(rest) #((top)) - #("i4554")) + #("i4451")) #(ribcage () () @@ -15764,22 +17450,19 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ - e + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15787,10 +17470,10 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) - #{k\ 4561}#)) + #{k\ 4458}#)) (cons '#(syntax-object begin ((top) @@ -15799,13 +17482,13 @@ #((top) (top) (top)) - #("i4558" - "i4559" - "i4560")) + #("i4455" + "i4456" + "i4457")) #(ribcage #(rest) #((top)) - #("i4554")) + #("i4451")) #(ribcage () () @@ -15817,19 +17500,17 @@ #((top) (top) (top)) - #("i4527" - "i4528" - "i4529")) + #("i4424" + "i4425" + "i4426")) #(ribcage - #(_ e m1 m2) + #(e m1 m2) #((top) - (top) (top) (top)) - #("i4515" - "i4516" - "i4517" - "i4518")) + #("i4414" + "i4415" + "i4416")) #(ribcage () () @@ -15837,30 +17518,30 @@ #(ribcage #(x) #((top)) - #("i4512"))) + #("i4411"))) (hygiene guile)) - (cons #{e1\ 4562}# - #{e2\ 4563}#)) - #{rest\ 4555}#)) - #{tmp\ 4557}#) - (let ((#{_\ 4567}# #{tmp\ 4556}#)) + (cons #{e1\ 4459}# + #{e2\ 4460}#)) + #{rest\ 4452}#)) + #{tmp\ 4454}#) + (let ((#{_\ 4464}# #{tmp\ 4453}#)) (syntax-violation 'case "bad clause" - #{x\ 4511}# - #{clause\ 4531}#))))))))))) - (begin (#{f\ 4530}# #{m1\ 4521}# #{m2\ 4522}#))))) - (let ((#{body\ 4526}# #{tmp\ 4524}#)) + #{x\ 4410}# + #{clause\ 4428}#))))))))))) + (begin (#{f\ 4427}# #{m1\ 4418}# #{m2\ 4419}#))))) + (let ((#{body\ 4423}# #{tmp\ 4421}#)) (list '#(syntax-object let ((top) - #(ribcage #(body) #((top)) #("i4525")) + #(ribcage #(body) #((top)) #("i4422")) #(ribcage - #(_ e m1 m2) - #((top) (top) (top) (top)) - #("i4515" "i4516" "i4517" "i4518")) + #(e m1 m2) + #((top) (top) (top)) + #("i4414" "i4415" "i4416")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4512"))) + #(ribcage #(x) #((top)) #("i4411"))) (hygiene guile)) (list (list '#(syntax-object t @@ -15868,470 +17549,384 @@ #(ribcage #(body) #((top)) - #("i4525")) + #("i4422")) #(ribcage - #(_ e m1 m2) - #((top) (top) (top) (top)) - #("i4515" "i4516" "i4517" "i4518")) + #(e m1 m2) + #((top) (top) (top)) + #("i4414" "i4415" "i4416")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4512"))) + #(ribcage #(x) #((top)) #("i4411"))) (hygiene guile)) - #{e\ 4520}#)) - #{body\ 4526}#)))) - #{tmp\ 4514}#) + #{e\ 4417}#)) + #{body\ 4423}#)))) + #{tmp\ 4413}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4513}#))))))) + #{tmp\ 4412}#))))))) (define make-variable-transformer - (lambda (#{proc\ 4568}#) - (if (procedure? #{proc\ 4568}#) + (lambda (#{proc\ 4465}#) + (if (procedure? #{proc\ 4465}#) (begin (letrec* - ((#{trans\ 4571}# - (lambda (#{x\ 4572}#) - (#{proc\ 4568}# #{x\ 4572}#)))) + ((#{trans\ 4468}# + (lambda (#{x\ 4469}#) + (#{proc\ 4465}# #{x\ 4469}#)))) (begin (set-procedure-property! - #{trans\ 4571}# + #{trans\ 4468}# 'variable-transformer #t) - #{trans\ 4571}#))) + #{trans\ 4468}#))) (error "variable transformer not a procedure" - #{proc\ 4568}#)))) + #{proc\ 4465}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x\ 4574}#) - (let ((#{tmp\ 4576}# #{x\ 4574}#)) - (let ((#{tmp\ 4577}# - ($sc-dispatch #{tmp\ 4576}# (quote (any any))))) - (if #{tmp\ 4577}# + (lambda (#{x\ 4471}#) + (let ((#{tmp\ 4473}# #{x\ 4471}#)) + (let ((#{tmp\ 4474}# + ($sc-dispatch #{tmp\ 4473}# (quote (_ any))))) + (if #{tmp\ 4474}# (@apply - (lambda (#{_\ 4580}# #{e\ 4581}#) + (lambda (#{e\ 4476}#) (list '#(syntax-object lambda ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) - #{e\ 4581}#)) - (list (cons #{_\ 4580}# - '(#(syntax-object - x - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4575"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4575"))) - (hygiene guile)))) + #{e\ 4476}#)) + (list '(#(syntax-object + _ + ((top) + #(ribcage #(e) #((top)) #("i4475")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4472"))) + (hygiene guile)) + #(syntax-object + x + ((top) + #(ribcage #(e) #((top)) #("i4475")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4472"))) + (hygiene guile)) + #(syntax-object + ... + ((top) + #(ribcage #(e) #((top)) #("i4475")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4472"))) + (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(ribcage #(e) #((top)) #("i4475")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) - (cons #{e\ 4581}# + (cons #{e\ 4476}# '(#(syntax-object x ((top) #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(e) + #((top)) + #("i4475")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage - #(_ e) - #((top) (top)) - #("i4578" "i4579")) + #(e) + #((top)) + #("i4475")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile))))))))) - #{tmp\ 4577}#) - (let ((#{tmp\ 4582}# + #{tmp\ 4474}#) + (let ((#{tmp\ 4477}# ($sc-dispatch - #{tmp\ 4576}# - '(any (any any) - ((#(free-id - #(syntax-object - set! - ((top) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) - (hygiene guile))) - any - any) - any))))) - (if (if #{tmp\ 4582}# + #{tmp\ 4473}# + '(_ (any any) + ((#(free-id + #(syntax-object + set! + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i4472"))) + (hygiene guile))) + any + any) + any))))) + (if (if #{tmp\ 4477}# (@apply - (lambda (#{_\ 4589}# - #{id\ 4590}# - #{exp1\ 4591}# - #{var\ 4592}# - #{val\ 4593}# - #{exp2\ 4594}#) - (if (identifier? #{id\ 4590}#) - (identifier? #{var\ 4592}#) + (lambda (#{id\ 4483}# + #{exp1\ 4484}# + #{var\ 4485}# + #{val\ 4486}# + #{exp2\ 4487}#) + (if (identifier? #{id\ 4483}#) + (identifier? #{var\ 4485}#) #f)) - #{tmp\ 4582}#) + #{tmp\ 4477}#) #f) (@apply - (lambda (#{_\ 4603}# - #{id\ 4604}# - #{exp1\ 4605}# - #{var\ 4606}# - #{val\ 4607}# - #{exp2\ 4608}#) + (lambda (#{id\ 4495}# + #{exp1\ 4496}# + #{var\ 4497}# + #{val\ 4498}# + #{exp2\ 4499}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) (top) (top) (top) (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" "i4491" "i4492" "i4493" "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) (list '#(syntax-object lambda ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) (top) (top) (top) (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) (top) (top) (top) (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) (top) (top) (top) (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) . #(syntax-object variable-transformer ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) (top) (top) (top) (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) '#(syntax-object x ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile)) '(#(syntax-object set! ((top) #(ribcage - #(_ id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4575"))) + #(ribcage #(x) #((top)) #("i4472"))) (hygiene guile))) (list (list '#(syntax-object set! ((top) #(ribcage - #(_ - id - exp1 - var - val - exp2) + #(id exp1 var val exp2) #((top) (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) - #{var\ 4606}# - #{val\ 4607}#) + #{var\ 4497}# + #{val\ 4498}#) (list '#(syntax-object syntax ((top) #(ribcage - #(_ - id - exp1 - var - val - exp2) + #(id exp1 var val exp2) #((top) (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) - #{exp2\ 4608}#)) - (list (cons #{id\ 4604}# + #{exp2\ 4499}#)) + (list (cons #{id\ 4495}# '(#(syntax-object x ((top) #(ribcage - #(_ - id + #(id exp1 var val @@ -16340,26 +17935,23 @@ (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage - #(_ - id + #(id exp1 var val @@ -16368,55 +17960,45 @@ (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage - #(_ - id - exp1 - var - val - exp2) + #(id exp1 var val exp2) #((top) (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) - (cons #{exp1\ 4605}# + (cons #{exp1\ 4496}# '(#(syntax-object x ((top) #(ribcage - #(_ - id + #(id exp1 var val @@ -16425,14 +18007,12 @@ (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () @@ -16440,14 +18020,13 @@ #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage - #(_ - id + #(id exp1 var val @@ -16456,14 +18035,12 @@ (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () @@ -16471,44 +18048,36 @@ #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)))))) - (list #{id\ 4604}# + (list #{id\ 4495}# (list '#(syntax-object identifier? ((top) #(ribcage - #(_ - id - exp1 - var - val - exp2) + #(id exp1 var val exp2) #((top) (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) (list '#(syntax-object syntax ((top) #(ribcage - #(_ - id + #(id exp1 var val @@ -16517,134 +18086,122 @@ (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) - #{id\ 4604}#)) + #{id\ 4495}#)) (list '#(syntax-object syntax ((top) #(ribcage - #(_ - id - exp1 - var - val - exp2) + #(id exp1 var val exp2) #((top) (top) (top) (top) - (top) (top)) - #("i4597" - "i4598" - "i4599" - "i4600" - "i4601" - "i4602")) + #("i4490" + "i4491" + "i4492" + "i4493" + "i4494")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4575"))) + #("i4472"))) (hygiene guile)) - #{exp1\ 4605}#)))))) - #{tmp\ 4582}#) + #{exp1\ 4496}#)))))) + #{tmp\ 4477}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4576}#))))))))) + #{tmp\ 4473}#))))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x\ 4609}#) - (let ((#{tmp\ 4611}# #{x\ 4609}#)) - (let ((#{tmp\ 4612}# + (lambda (#{x\ 4500}#) + (let ((#{tmp\ 4502}# #{x\ 4500}#)) + (let ((#{tmp\ 4503}# ($sc-dispatch - #{tmp\ 4611}# - '(any (any . any) any . each-any)))) - (if #{tmp\ 4612}# + #{tmp\ 4502}# + '(_ (any . any) any . each-any)))) + (if #{tmp\ 4503}# (@apply - (lambda (#{_\ 4618}# - #{id\ 4619}# - #{args\ 4620}# - #{b0\ 4621}# - #{b1\ 4622}#) + (lambda (#{id\ 4508}# + #{args\ 4509}# + #{b0\ 4510}# + #{b1\ 4511}#) (list '#(syntax-object define ((top) #(ribcage - #(_ id args b0 b1) - #((top) (top) (top) (top) (top)) - #("i4613" "i4614" "i4615" "i4616" "i4617")) + #(id args b0 b1) + #((top) (top) (top) (top)) + #("i4504" "i4505" "i4506" "i4507")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4610"))) + #(ribcage #(x) #((top)) #("i4501"))) (hygiene guile)) - #{id\ 4619}# + #{id\ 4508}# (cons '#(syntax-object lambda* ((top) #(ribcage - #(_ id args b0 b1) - #((top) (top) (top) (top) (top)) - #("i4613" "i4614" "i4615" "i4616" "i4617")) + #(id args b0 b1) + #((top) (top) (top) (top)) + #("i4504" "i4505" "i4506" "i4507")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4610"))) + #(ribcage #(x) #((top)) #("i4501"))) (hygiene guile)) - (cons #{args\ 4620}# - (cons #{b0\ 4621}# #{b1\ 4622}#))))) - #{tmp\ 4612}#) - (let ((#{tmp\ 4624}# - ($sc-dispatch - #{tmp\ 4611}# - '(any any any)))) - (if (if #{tmp\ 4624}# + (cons #{args\ 4509}# + (cons #{b0\ 4510}# #{b1\ 4511}#))))) + #{tmp\ 4503}#) + (let ((#{tmp\ 4513}# + ($sc-dispatch #{tmp\ 4502}# (quote (_ any any))))) + (if (if #{tmp\ 4513}# (@apply - (lambda (#{_\ 4628}# #{id\ 4629}# #{val\ 4630}#) + (lambda (#{id\ 4516}# #{val\ 4517}#) (identifier? '#(syntax-object x ((top) #(ribcage - #(_ id val) - #((top) (top) (top)) - #("i4625" "i4626" "i4627")) + #(id val) + #((top) (top)) + #("i4514" "i4515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4610"))) + #(ribcage #(x) #((top)) #("i4501"))) (hygiene guile)))) - #{tmp\ 4624}#) + #{tmp\ 4513}#) #f) (@apply - (lambda (#{_\ 4634}# #{id\ 4635}# #{val\ 4636}#) + (lambda (#{id\ 4520}# #{val\ 4521}#) (list '#(syntax-object define ((top) #(ribcage - #(_ id val) - #((top) (top) (top)) - #("i4631" "i4632" "i4633")) + #(id val) + #((top) (top)) + #("i4518" "i4519")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4610"))) + #(ribcage #(x) #((top)) #("i4501"))) (hygiene guile)) - #{id\ 4635}# - #{val\ 4636}#)) - #{tmp\ 4624}#) + #{id\ 4520}# + #{val\ 4521}#)) + #{tmp\ 4513}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4611}#))))))))) + #{tmp\ 4502}#))))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 21aa2ac7d..b18099bf5 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -1539,6 +1539,11 @@ (and (nonsymbol-id? x) (free-id=? x #'(... ...))))) + (define underscore? + (lambda (x) + (and (nonsymbol-id? x) + (free-id=? x #'_)))) + (define lambda-formals (lambda (orig-args) (define (req args rreq) @@ -2272,9 +2277,13 @@ (define cvt (lambda (p n ids) (if (id? p) - (if (bound-id-member? p keys) - (values (vector 'free-id p) ids) - (values 'any (cons (cons p n) ids))) + (cond + ((bound-id-member? p keys) + (values (vector 'free-id p) ids)) + ((free-id=? p #'_) + (values '_ ids)) + (else + (values 'any (cons (cons p n) ids)))) (syntax-case p () ((x dots) (ellipsis? (syntax dots)) @@ -2375,20 +2384,22 @@ (if (and (id? #'pat) (and-map (lambda (x) (not (free-id=? #'pat x))) (cons #'(... ...) keys))) - (let ((labels (list (gen-label))) - (var (gen-var #'pat))) - (build-application no-source - (build-simple-lambda - no-source (list (syntax->datum #'pat)) #f (list var) - '() - (chi #'exp - (extend-env labels - (list (make-binding 'syntax `(,var . 0))) - r) - (make-binding-wrap #'(pat) - labels empty-wrap) - mod)) - (list x))) + (if (free-id=? #'pad #'_) + (chi #'exp r empty-wrap mod) + (let ((labels (list (gen-label))) + (var (gen-var #'pat))) + (build-application no-source + (build-simple-lambda + no-source (list (syntax->datum #'pat)) #f (list var) + '() + (chi #'exp + (extend-env labels + (list (make-binding 'syntax `(,var . 0))) + r) + (make-binding-wrap #'(pat) + labels empty-wrap) + mod)) + (list x)))) (gen-clause x keys (cdr clauses) r #'pat #t #'exp mod))) ((pat fender exp) @@ -2401,7 +2412,8 @@ (let ((e (source-wrap e w s mod))) (syntax-case e () ((_ val (key ...) m ...) - (if (and-map (lambda (x) (and (id? x) (not (ellipsis? x)))) + (if (and-map (lambda (x) + (and (id? x) (not (ellipsis? x)) (not (underscore? x)))) #'(key ...)) (let ((x (gen-var 'tmp))) ; fat finger binding and references to temp variable x @@ -2561,6 +2573,7 @@ (lambda (p r) (cond ((null? p) r) + ((eq? p '_) r) ((eq? p 'any) (cons '() r)) ((pair? p) (match-empty (car p) (match-empty (cdr p) r))) ((eq? p 'each-any) (cons '() r)) @@ -2621,6 +2634,7 @@ (lambda (e p w r mod) (cond ((not r) #f) + ((eq? p '_) r) ((eq? p 'any) (cons (wrap e w mod) r)) ((syntax-object? e) (match* @@ -2635,6 +2649,7 @@ (lambda (e p) (cond ((eq? p 'any) (list e)) + ((eq? p '_) '()) ((syntax-object? e) (match* (syntax-object-expression e) p (syntax-object-wrap e) '() (syntax-object-module e))) diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test index 8cc366e4f..87d7890f1 100644 --- a/test-suite/tests/syncase.test +++ b/test-suite/tests/syncase.test @@ -141,3 +141,14 @@ (with-test-prefix "macro-generating macro" (pass-if "module hygiene" (eq? (foo) 'hello))) + +(pass-if "_ is a placeholder" + (equal? (eval '(begin + (define-syntax ciao + (lambda (stx) + (syntax-case stx () + ((_ _) + "ciao")))) + (ciao 1)) + (current-module)) + "ciao"))