From 4335366389364885239dd5189ca747ed1d59e569 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 27 Feb 2011 12:59:44 +0100 Subject: [PATCH] regenerate psyntax-pp * module/ice-9/psyntax-pp.scm: Regenerate. --- module/ice-9/psyntax-pp.scm | 17610 +++++++++++++++++----------------- 1 file changed, 8812 insertions(+), 8798 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 207e72c2f..fb862d019 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1203 +2,1617 @@ (if #f #f) (letrec* - ((#{and-map*\ 37}# - (lambda (#{f\ 201}# #{first\ 202}# . #{rest\ 203}#) + ((#{and-map*\ 38}# + (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#) (begin - (let ((#{t\ 209}# (null? #{first\ 202}#))) - (if #{t\ 209}# - #{t\ 209}# - (if (null? #{rest\ 203}#) + (let ((#{t\ 210}# (null? #{first\ 203}#))) + (if #{t\ 210}# + #{t\ 210}# + (if (null? #{rest\ 204}#) (letrec* - ((#{andmap\ 213}# - (lambda (#{first\ 214}#) + ((#{andmap\ 214}# + (lambda (#{first\ 215}#) (begin - (let ((#{x\ 217}# (car #{first\ 214}#)) - (#{first\ 218}# (cdr #{first\ 214}#))) - (if (null? #{first\ 218}#) - (#{f\ 201}# #{x\ 217}#) - (if (#{f\ 201}# #{x\ 217}#) - (#{andmap\ 213}# #{first\ 218}#) + (let ((#{x\ 218}# (car #{first\ 215}#)) + (#{first\ 219}# (cdr #{first\ 215}#))) + (if (null? #{first\ 219}#) + (#{f\ 202}# #{x\ 218}#) + (if (#{f\ 202}# #{x\ 218}#) + (#{andmap\ 214}# #{first\ 219}#) #f))))))) - (begin (#{andmap\ 213}# #{first\ 202}#))) + (begin (#{andmap\ 214}# #{first\ 203}#))) (letrec* - ((#{andmap\ 224}# - (lambda (#{first\ 225}# #{rest\ 226}#) + ((#{andmap\ 225}# + (lambda (#{first\ 226}# #{rest\ 227}#) (begin - (let ((#{x\ 231}# (car #{first\ 225}#)) - (#{xr\ 232}# (map car #{rest\ 226}#)) - (#{first\ 233}# (cdr #{first\ 225}#)) - (#{rest\ 234}# (map cdr #{rest\ 226}#))) - (if (null? #{first\ 233}#) - (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#) - (if (@apply #{f\ 201}# #{x\ 231}# #{xr\ 232}#) - (#{andmap\ 224}# #{first\ 233}# #{rest\ 234}#) + (let ((#{x\ 232}# (car #{first\ 226}#)) + (#{xr\ 233}# (map car #{rest\ 227}#)) + (#{first\ 234}# (cdr #{first\ 226}#)) + (#{rest\ 235}# (map cdr #{rest\ 227}#))) + (if (null? #{first\ 234}#) + (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) + (if (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) + (#{andmap\ 225}# #{first\ 234}# #{rest\ 235}#) #f))))))) (begin - (#{andmap\ 224}# #{first\ 202}# #{rest\ 203}#)))))))))) + (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#)))))))))) (begin - (let ((#{make-primitive-ref\ 243}# (if #f #f)) - (#{fx+\ 282}# (if #f #f)) - (#{fx-\ 284}# (if #f #f)) - (#{fx=\ 286}# (if #f #f)) - (#{fx<\ 288}# (if #f #f)) - (#{set-syntax-object-expression!\ 353}# + (let ((#{make-primitive-ref\ 244}# (if #f #f)) + (#{fx+\ 283}# (if #f #f)) + (#{fx-\ 285}# (if #f #f)) + (#{fx=\ 287}# (if #f #f)) + (#{fx<\ 289}# (if #f #f)) + (#{set-syntax-object-expression!\ 354}# (if #f #f)) - (#{set-syntax-object-wrap!\ 355}# (if #f #f)) - (#{set-syntax-object-module!\ 357}# (if #f #f)) - (#{ribcage?\ 399}# (if #f #f))) + (#{set-syntax-object-wrap!\ 356}# (if #f #f)) + (#{set-syntax-object-module!\ 358}# (if #f #f)) + (#{ribcage?\ 400}# (if #f #f))) (letrec* - ((#{make-void\ 239}# - (lambda (#{src\ 751}#) + ((#{make-void\ 240}# + (lambda (#{src\ 750}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src\ 751}#))) - (#{make-const\ 241}# - (lambda (#{src\ 753}# #{exp\ 754}#) + #{src\ 750}#))) + (#{make-const\ 242}# + (lambda (#{src\ 752}# #{exp\ 753}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{src\ 753}# - #{exp\ 754}#))) - (#{make-lexical-ref\ 245}# - (lambda (#{src\ 761}# #{name\ 762}# #{gensym\ 763}#) + #{src\ 752}# + #{exp\ 753}#))) + (#{make-lexical-ref\ 246}# + (lambda (#{src\ 760}# #{name\ 761}# #{gensym\ 762}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src\ 761}# - #{name\ 762}# - #{gensym\ 763}#))) - (#{make-lexical-set\ 247}# - (lambda (#{src\ 767}# - #{name\ 768}# - #{gensym\ 769}# - #{exp\ 770}#) + #{src\ 760}# + #{name\ 761}# + #{gensym\ 762}#))) + (#{make-lexical-set\ 248}# + (lambda (#{src\ 766}# + #{name\ 767}# + #{gensym\ 768}# + #{exp\ 769}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{src\ 767}# - #{name\ 768}# - #{gensym\ 769}# - #{exp\ 770}#))) - (#{make-module-ref\ 249}# - (lambda (#{src\ 775}# - #{mod\ 776}# - #{name\ 777}# - #{public?\ 778}#) + #{src\ 766}# + #{name\ 767}# + #{gensym\ 768}# + #{exp\ 769}#))) + (#{make-module-ref\ 250}# + (lambda (#{src\ 774}# + #{mod\ 775}# + #{name\ 776}# + #{public?\ 777}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{src\ 775}# - #{mod\ 776}# - #{name\ 777}# - #{public?\ 778}#))) - (#{make-module-set\ 251}# - (lambda (#{src\ 783}# - #{mod\ 784}# - #{name\ 785}# - #{public?\ 786}# - #{exp\ 787}#) + #{src\ 774}# + #{mod\ 775}# + #{name\ 776}# + #{public?\ 777}#))) + (#{make-module-set\ 252}# + (lambda (#{src\ 782}# + #{mod\ 783}# + #{name\ 784}# + #{public?\ 785}# + #{exp\ 786}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{src\ 783}# - #{mod\ 784}# - #{name\ 785}# - #{public?\ 786}# - #{exp\ 787}#))) - (#{make-toplevel-ref\ 253}# - (lambda (#{src\ 793}# #{name\ 794}#) + #{src\ 782}# + #{mod\ 783}# + #{name\ 784}# + #{public?\ 785}# + #{exp\ 786}#))) + (#{make-toplevel-ref\ 254}# + (lambda (#{src\ 792}# #{name\ 793}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{src\ 793}# - #{name\ 794}#))) - (#{make-toplevel-set\ 255}# - (lambda (#{src\ 797}# #{name\ 798}# #{exp\ 799}#) + #{src\ 792}# + #{name\ 793}#))) + (#{make-toplevel-set\ 256}# + (lambda (#{src\ 796}# #{name\ 797}# #{exp\ 798}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{src\ 797}# - #{name\ 798}# - #{exp\ 799}#))) - (#{make-toplevel-define\ 257}# - (lambda (#{src\ 803}# #{name\ 804}# #{exp\ 805}#) + #{src\ 796}# + #{name\ 797}# + #{exp\ 798}#))) + (#{make-toplevel-define\ 258}# + (lambda (#{src\ 802}# #{name\ 803}# #{exp\ 804}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{src\ 803}# - #{name\ 804}# - #{exp\ 805}#))) - (#{make-conditional\ 259}# - (lambda (#{src\ 809}# - #{test\ 810}# - #{consequent\ 811}# - #{alternate\ 812}#) + #{src\ 802}# + #{name\ 803}# + #{exp\ 804}#))) + (#{make-conditional\ 260}# + (lambda (#{src\ 808}# + #{test\ 809}# + #{consequent\ 810}# + #{alternate\ 811}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{src\ 809}# - #{test\ 810}# - #{consequent\ 811}# - #{alternate\ 812}#))) - (#{make-application\ 261}# - (lambda (#{src\ 817}# #{proc\ 818}# #{args\ 819}#) + #{src\ 808}# + #{test\ 809}# + #{consequent\ 810}# + #{alternate\ 811}#))) + (#{make-application\ 262}# + (lambda (#{src\ 816}# #{proc\ 817}# #{args\ 818}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src\ 817}# - #{proc\ 818}# - #{args\ 819}#))) - (#{make-sequence\ 263}# - (lambda (#{src\ 823}# #{exps\ 824}#) + #{src\ 816}# + #{proc\ 817}# + #{args\ 818}#))) + (#{make-sequence\ 264}# + (lambda (#{src\ 822}# #{exps\ 823}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src\ 823}# - #{exps\ 824}#))) - (#{make-lambda\ 265}# - (lambda (#{src\ 827}# #{meta\ 828}# #{body\ 829}#) + #{src\ 822}# + #{exps\ 823}#))) + (#{make-lambda\ 266}# + (lambda (#{src\ 826}# #{meta\ 827}# #{body\ 828}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src\ 827}# - #{meta\ 828}# - #{body\ 829}#))) - (#{make-lambda-case\ 267}# - (lambda (#{src\ 833}# - #{req\ 834}# - #{opt\ 835}# - #{rest\ 836}# - #{kw\ 837}# - #{inits\ 838}# - #{gensyms\ 839}# - #{body\ 840}# - #{alternate\ 841}#) + #{src\ 826}# + #{meta\ 827}# + #{body\ 828}#))) + (#{make-lambda-case\ 268}# + (lambda (#{src\ 832}# + #{req\ 833}# + #{opt\ 834}# + #{rest\ 835}# + #{kw\ 836}# + #{inits\ 837}# + #{gensyms\ 838}# + #{body\ 839}# + #{alternate\ 840}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src\ 833}# - #{req\ 834}# - #{opt\ 835}# - #{rest\ 836}# - #{kw\ 837}# - #{inits\ 838}# - #{gensyms\ 839}# - #{body\ 840}# - #{alternate\ 841}#))) - (#{make-let\ 269}# - (lambda (#{src\ 851}# - #{names\ 852}# - #{gensyms\ 853}# - #{vals\ 854}# - #{body\ 855}#) + #{src\ 832}# + #{req\ 833}# + #{opt\ 834}# + #{rest\ 835}# + #{kw\ 836}# + #{inits\ 837}# + #{gensyms\ 838}# + #{body\ 839}# + #{alternate\ 840}#))) + (#{make-let\ 270}# + (lambda (#{src\ 850}# + #{names\ 851}# + #{gensyms\ 852}# + #{vals\ 853}# + #{body\ 854}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src\ 851}# - #{names\ 852}# - #{gensyms\ 853}# - #{vals\ 854}# - #{body\ 855}#))) - (#{make-letrec\ 271}# - (lambda (#{src\ 861}# - #{in-order?\ 862}# - #{names\ 863}# - #{gensyms\ 864}# - #{vals\ 865}# - #{body\ 866}#) + #{src\ 850}# + #{names\ 851}# + #{gensyms\ 852}# + #{vals\ 853}# + #{body\ 854}#))) + (#{make-letrec\ 272}# + (lambda (#{src\ 860}# + #{in-order?\ 861}# + #{names\ 862}# + #{gensyms\ 863}# + #{vals\ 864}# + #{body\ 865}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src\ 861}# - #{in-order?\ 862}# - #{names\ 863}# - #{gensyms\ 864}# - #{vals\ 865}# - #{body\ 866}#))) - (#{make-dynlet\ 273}# - (lambda (#{src\ 873}# - #{fluids\ 874}# - #{vals\ 875}# - #{body\ 876}#) + #{src\ 860}# + #{in-order?\ 861}# + #{names\ 862}# + #{gensyms\ 863}# + #{vals\ 864}# + #{body\ 865}#))) + (#{make-dynlet\ 274}# + (lambda (#{src\ 872}# + #{fluids\ 873}# + #{vals\ 874}# + #{body\ 875}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src\ 873}# - #{fluids\ 874}# - #{vals\ 875}# - #{body\ 876}#))) - (#{lambda?\ 276}# - (lambda (#{x\ 881}#) - (if (struct? #{x\ 881}#) - (eq? (struct-vtable #{x\ 881}#) + #{src\ 872}# + #{fluids\ 873}# + #{vals\ 874}# + #{body\ 875}#))) + (#{lambda?\ 277}# + (lambda (#{x\ 880}#) + (if (struct? #{x\ 880}#) + (eq? (struct-vtable #{x\ 880}#) (vector-ref %expanded-vtables 13)) #f))) - (#{lambda-meta\ 278}# - (lambda (#{x\ 885}#) (struct-ref #{x\ 885}# 1))) - (#{set-lambda-meta!\ 280}# - (lambda (#{x\ 887}# #{v\ 888}#) - (struct-set! #{x\ 887}# 1 #{v\ 888}#))) - (#{top-level-eval-hook\ 290}# - (lambda (#{x\ 891}# #{mod\ 892}#) - (primitive-eval #{x\ 891}#))) - (#{local-eval-hook\ 292}# - (lambda (#{x\ 895}# #{mod\ 896}#) - (primitive-eval #{x\ 895}#))) - (#{put-global-definition-hook\ 295}# - (lambda (#{symbol\ 899}# #{type\ 900}# #{val\ 901}#) + (#{lambda-meta\ 279}# + (lambda (#{x\ 884}#) (struct-ref #{x\ 884}# 1))) + (#{set-lambda-meta!\ 281}# + (lambda (#{x\ 886}# #{v\ 887}#) + (struct-set! #{x\ 886}# 1 #{v\ 887}#))) + (#{top-level-eval-hook\ 291}# + (lambda (#{x\ 890}# #{mod\ 891}#) + (primitive-eval #{x\ 890}#))) + (#{local-eval-hook\ 293}# + (lambda (#{x\ 894}# #{mod\ 895}#) + (primitive-eval #{x\ 894}#))) + (#{put-global-definition-hook\ 296}# + (lambda (#{symbol\ 898}# #{type\ 899}# #{val\ 900}#) (module-define! (current-module) - #{symbol\ 899}# + #{symbol\ 898}# (make-syntax-transformer - #{symbol\ 899}# - #{type\ 900}# - #{val\ 901}#)))) - (#{get-global-definition-hook\ 297}# - (lambda (#{symbol\ 905}# #{module\ 906}#) + #{symbol\ 898}# + #{type\ 899}# + #{val\ 900}#)))) + (#{get-global-definition-hook\ 298}# + (lambda (#{symbol\ 904}# #{module\ 905}#) (begin - (if (if (not #{module\ 906}#) (current-module) #f) + (if (if (not #{module\ 905}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 905}#)) + #{symbol\ 904}#)) (begin - (let ((#{v\ 912}# (module-variable - (if #{module\ 906}# - (resolve-module (cdr #{module\ 906}#)) + (let ((#{v\ 911}# (module-variable + (if #{module\ 905}# + (resolve-module (cdr #{module\ 905}#)) (current-module)) - #{symbol\ 905}#))) - (if #{v\ 912}# - (if (variable-bound? #{v\ 912}#) + #{symbol\ 904}#))) + (if #{v\ 911}# + (if (variable-bound? #{v\ 911}#) (begin - (let ((#{val\ 917}# (variable-ref #{v\ 912}#))) - (if (macro? #{val\ 917}#) - (if (macro-type #{val\ 917}#) - (cons (macro-type #{val\ 917}#) - (macro-binding #{val\ 917}#)) + (let ((#{val\ 916}# (variable-ref #{v\ 911}#))) + (if (macro? #{val\ 916}#) + (if (macro-type #{val\ 916}#) + (cons (macro-type #{val\ 916}#) + (macro-binding #{val\ 916}#)) #f) #f))) #f) #f)))))) - (#{decorate-source\ 299}# - (lambda (#{e\ 921}# #{s\ 922}#) + (#{decorate-source\ 300}# + (lambda (#{e\ 920}# #{s\ 921}#) (begin - (if (if (pair? #{e\ 921}#) #{s\ 922}# #f) - (set-source-properties! #{e\ 921}# #{s\ 922}#)) - #{e\ 921}#))) - (#{maybe-name-value!\ 301}# - (lambda (#{name\ 927}# #{val\ 928}#) - (if (#{lambda?\ 276}# #{val\ 928}#) + (if (if (pair? #{e\ 920}#) #{s\ 921}# #f) + (set-source-properties! #{e\ 920}# #{s\ 921}#)) + #{e\ 920}#))) + (#{maybe-name-value!\ 302}# + (lambda (#{name\ 926}# #{val\ 927}#) + (if (#{lambda?\ 277}# #{val\ 927}#) (begin - (let ((#{meta\ 932}# - (#{lambda-meta\ 278}# #{val\ 928}#))) - (if (not (assq 'name #{meta\ 932}#)) - (#{set-lambda-meta!\ 280}# - #{val\ 928}# - (cons (cons 'name #{name\ 927}#) #{meta\ 932}#)))))))) - (#{build-void\ 303}# - (lambda (#{source\ 933}#) - (#{make-void\ 239}# #{source\ 933}#))) - (#{build-application\ 305}# - (lambda (#{source\ 935}# - #{fun-exp\ 936}# - #{arg-exps\ 937}#) - (#{make-application\ 261}# - #{source\ 935}# - #{fun-exp\ 936}# - #{arg-exps\ 937}#))) - (#{build-conditional\ 307}# - (lambda (#{source\ 941}# - #{test-exp\ 942}# - #{then-exp\ 943}# - #{else-exp\ 944}#) - (#{make-conditional\ 259}# - #{source\ 941}# - #{test-exp\ 942}# - #{then-exp\ 943}# - #{else-exp\ 944}#))) - (#{build-dynlet\ 309}# - (lambda (#{source\ 949}# - #{fluids\ 950}# - #{vals\ 951}# - #{body\ 952}#) - (#{make-dynlet\ 273}# - #{source\ 949}# - #{fluids\ 950}# - #{vals\ 951}# - #{body\ 952}#))) - (#{build-lexical-reference\ 311}# - (lambda (#{type\ 957}# - #{source\ 958}# - #{name\ 959}# - #{var\ 960}#) - (#{make-lexical-ref\ 245}# - #{source\ 958}# - #{name\ 959}# - #{var\ 960}#))) - (#{build-lexical-assignment\ 313}# - (lambda (#{source\ 965}# - #{name\ 966}# - #{var\ 967}# - #{exp\ 968}#) + (let ((#{meta\ 931}# + (#{lambda-meta\ 279}# #{val\ 927}#))) + (if (not (assq 'name #{meta\ 931}#)) + (#{set-lambda-meta!\ 281}# + #{val\ 927}# + (cons (cons 'name #{name\ 926}#) #{meta\ 931}#)))))))) + (#{build-void\ 304}# + (lambda (#{source\ 932}#) + (#{make-void\ 240}# #{source\ 932}#))) + (#{build-application\ 306}# + (lambda (#{source\ 934}# + #{fun-exp\ 935}# + #{arg-exps\ 936}#) + (#{make-application\ 262}# + #{source\ 934}# + #{fun-exp\ 935}# + #{arg-exps\ 936}#))) + (#{build-conditional\ 308}# + (lambda (#{source\ 940}# + #{test-exp\ 941}# + #{then-exp\ 942}# + #{else-exp\ 943}#) + (#{make-conditional\ 260}# + #{source\ 940}# + #{test-exp\ 941}# + #{then-exp\ 942}# + #{else-exp\ 943}#))) + (#{build-dynlet\ 310}# + (lambda (#{source\ 948}# + #{fluids\ 949}# + #{vals\ 950}# + #{body\ 951}#) + (#{make-dynlet\ 274}# + #{source\ 948}# + #{fluids\ 949}# + #{vals\ 950}# + #{body\ 951}#))) + (#{build-lexical-reference\ 312}# + (lambda (#{type\ 956}# + #{source\ 957}# + #{name\ 958}# + #{var\ 959}#) + (#{make-lexical-ref\ 246}# + #{source\ 957}# + #{name\ 958}# + #{var\ 959}#))) + (#{build-lexical-assignment\ 314}# + (lambda (#{source\ 964}# + #{name\ 965}# + #{var\ 966}# + #{exp\ 967}#) (begin - (#{maybe-name-value!\ 301}# - #{name\ 966}# - #{exp\ 968}#) - (#{make-lexical-set\ 247}# - #{source\ 965}# - #{name\ 966}# - #{var\ 967}# - #{exp\ 968}#)))) - (#{analyze-variable\ 315}# - (lambda (#{mod\ 973}# - #{var\ 974}# - #{modref-cont\ 975}# - #{bare-cont\ 976}#) - (if (not #{mod\ 973}#) - (#{bare-cont\ 976}# #{var\ 974}#) + (#{maybe-name-value!\ 302}# + #{name\ 965}# + #{exp\ 967}#) + (#{make-lexical-set\ 248}# + #{source\ 964}# + #{name\ 965}# + #{var\ 966}# + #{exp\ 967}#)))) + (#{analyze-variable\ 316}# + (lambda (#{mod\ 972}# + #{var\ 973}# + #{modref-cont\ 974}# + #{bare-cont\ 975}#) + (if (not #{mod\ 972}#) + (#{bare-cont\ 975}# #{var\ 973}#) (begin - (let ((#{kind\ 983}# (car #{mod\ 973}#)) - (#{mod\ 984}# (cdr #{mod\ 973}#))) - (if (eqv? #{kind\ 983}# 'public) - (#{modref-cont\ 975}# - #{mod\ 984}# - #{var\ 974}# + (let ((#{kind\ 982}# (car #{mod\ 972}#)) + (#{mod\ 983}# (cdr #{mod\ 972}#))) + (if (eqv? #{kind\ 982}# 'public) + (#{modref-cont\ 974}# + #{mod\ 983}# + #{var\ 973}# #t) - (if (eqv? #{kind\ 983}# 'private) + (if (eqv? #{kind\ 982}# 'private) (if (not (equal? - #{mod\ 984}# + #{mod\ 983}# (module-name (current-module)))) - (#{modref-cont\ 975}# - #{mod\ 984}# - #{var\ 974}# + (#{modref-cont\ 974}# + #{mod\ 983}# + #{var\ 973}# #f) - (#{bare-cont\ 976}# #{var\ 974}#)) - (if (eqv? #{kind\ 983}# 'bare) - (#{bare-cont\ 976}# #{var\ 974}#) - (if (eqv? #{kind\ 983}# 'hygiene) + (#{bare-cont\ 975}# #{var\ 973}#)) + (if (eqv? #{kind\ 982}# 'bare) + (#{bare-cont\ 975}# #{var\ 973}#) + (if (eqv? #{kind\ 982}# 'hygiene) (if (if (not (equal? - #{mod\ 984}# + #{mod\ 983}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 984}#) - #{var\ 974}#) + (resolve-module #{mod\ 983}#) + #{var\ 973}#) #f) - (#{modref-cont\ 975}# - #{mod\ 984}# - #{var\ 974}# + (#{modref-cont\ 974}# + #{mod\ 983}# + #{var\ 973}# #f) - (#{bare-cont\ 976}# #{var\ 974}#)) + (#{bare-cont\ 975}# #{var\ 973}#)) (syntax-violation #f "bad module kind" - #{var\ 974}# - #{mod\ 984}#)))))))))) - (#{build-global-reference\ 317}# - (lambda (#{source\ 992}# #{var\ 993}# #{mod\ 994}#) - (#{analyze-variable\ 315}# - #{mod\ 994}# - #{var\ 993}# - (lambda (#{mod\ 998}# #{var\ 999}# #{public?\ 1000}#) - (#{make-module-ref\ 249}# - #{source\ 992}# - #{mod\ 998}# - #{var\ 999}# - #{public?\ 1000}#)) - (lambda (#{var\ 1004}#) - (#{make-toplevel-ref\ 253}# - #{source\ 992}# - #{var\ 1004}#))))) - (#{build-global-assignment\ 319}# - (lambda (#{source\ 1006}# - #{var\ 1007}# - #{exp\ 1008}# - #{mod\ 1009}#) + #{var\ 973}# + #{mod\ 983}#)))))))))) + (#{build-global-reference\ 318}# + (lambda (#{source\ 991}# #{var\ 992}# #{mod\ 993}#) + (#{analyze-variable\ 316}# + #{mod\ 993}# + #{var\ 992}# + (lambda (#{mod\ 997}# #{var\ 998}# #{public?\ 999}#) + (#{make-module-ref\ 250}# + #{source\ 991}# + #{mod\ 997}# + #{var\ 998}# + #{public?\ 999}#)) + (lambda (#{var\ 1003}#) + (#{make-toplevel-ref\ 254}# + #{source\ 991}# + #{var\ 1003}#))))) + (#{build-global-assignment\ 320}# + (lambda (#{source\ 1005}# + #{var\ 1006}# + #{exp\ 1007}# + #{mod\ 1008}#) (begin - (#{maybe-name-value!\ 301}# - #{var\ 1007}# - #{exp\ 1008}#) - (#{analyze-variable\ 315}# - #{mod\ 1009}# - #{var\ 1007}# - (lambda (#{mod\ 1014}# #{var\ 1015}# #{public?\ 1016}#) - (#{make-module-set\ 251}# - #{source\ 1006}# - #{mod\ 1014}# - #{var\ 1015}# - #{public?\ 1016}# - #{exp\ 1008}#)) - (lambda (#{var\ 1020}#) - (#{make-toplevel-set\ 255}# - #{source\ 1006}# - #{var\ 1020}# - #{exp\ 1008}#)))))) - (#{build-global-definition\ 321}# - (lambda (#{source\ 1022}# #{var\ 1023}# #{exp\ 1024}#) + (#{maybe-name-value!\ 302}# + #{var\ 1006}# + #{exp\ 1007}#) + (#{analyze-variable\ 316}# + #{mod\ 1008}# + #{var\ 1006}# + (lambda (#{mod\ 1013}# #{var\ 1014}# #{public?\ 1015}#) + (#{make-module-set\ 252}# + #{source\ 1005}# + #{mod\ 1013}# + #{var\ 1014}# + #{public?\ 1015}# + #{exp\ 1007}#)) + (lambda (#{var\ 1019}#) + (#{make-toplevel-set\ 256}# + #{source\ 1005}# + #{var\ 1019}# + #{exp\ 1007}#)))))) + (#{build-global-definition\ 322}# + (lambda (#{source\ 1021}# #{var\ 1022}# #{exp\ 1023}#) (begin - (#{maybe-name-value!\ 301}# - #{var\ 1023}# - #{exp\ 1024}#) - (#{make-toplevel-define\ 257}# - #{source\ 1022}# - #{var\ 1023}# - #{exp\ 1024}#)))) - (#{build-simple-lambda\ 323}# - (lambda (#{src\ 1028}# - #{req\ 1029}# - #{rest\ 1030}# - #{vars\ 1031}# - #{meta\ 1032}# - #{exp\ 1033}#) - (#{make-lambda\ 265}# - #{src\ 1028}# - #{meta\ 1032}# - (#{make-lambda-case\ 267}# - #{src\ 1028}# - #{req\ 1029}# + (#{maybe-name-value!\ 302}# + #{var\ 1022}# + #{exp\ 1023}#) + (#{make-toplevel-define\ 258}# + #{source\ 1021}# + #{var\ 1022}# + #{exp\ 1023}#)))) + (#{build-simple-lambda\ 324}# + (lambda (#{src\ 1027}# + #{req\ 1028}# + #{rest\ 1029}# + #{vars\ 1030}# + #{meta\ 1031}# + #{exp\ 1032}#) + (#{make-lambda\ 266}# + #{src\ 1027}# + #{meta\ 1031}# + (#{make-lambda-case\ 268}# + #{src\ 1027}# + #{req\ 1028}# #f - #{rest\ 1030}# + #{rest\ 1029}# #f '() - #{vars\ 1031}# - #{exp\ 1033}# + #{vars\ 1030}# + #{exp\ 1032}# #f)))) - (#{build-case-lambda\ 325}# - (lambda (#{src\ 1040}# #{meta\ 1041}# #{body\ 1042}#) - (#{make-lambda\ 265}# - #{src\ 1040}# - #{meta\ 1041}# - #{body\ 1042}#))) - (#{build-lambda-case\ 327}# - (lambda (#{src\ 1046}# - #{req\ 1047}# - #{opt\ 1048}# - #{rest\ 1049}# - #{kw\ 1050}# - #{inits\ 1051}# - #{vars\ 1052}# - #{body\ 1053}# - #{else-case\ 1054}#) - (#{make-lambda-case\ 267}# - #{src\ 1046}# - #{req\ 1047}# - #{opt\ 1048}# - #{rest\ 1049}# - #{kw\ 1050}# - #{inits\ 1051}# - #{vars\ 1052}# - #{body\ 1053}# - #{else-case\ 1054}#))) - (#{build-primref\ 329}# - (lambda (#{src\ 1064}# #{name\ 1065}#) + (#{build-case-lambda\ 326}# + (lambda (#{src\ 1039}# #{meta\ 1040}# #{body\ 1041}#) + (#{make-lambda\ 266}# + #{src\ 1039}# + #{meta\ 1040}# + #{body\ 1041}#))) + (#{build-lambda-case\ 328}# + (lambda (#{src\ 1045}# + #{req\ 1046}# + #{opt\ 1047}# + #{rest\ 1048}# + #{kw\ 1049}# + #{inits\ 1050}# + #{vars\ 1051}# + #{body\ 1052}# + #{else-case\ 1053}#) + (#{make-lambda-case\ 268}# + #{src\ 1045}# + #{req\ 1046}# + #{opt\ 1047}# + #{rest\ 1048}# + #{kw\ 1049}# + #{inits\ 1050}# + #{vars\ 1051}# + #{body\ 1052}# + #{else-case\ 1053}#))) + (#{build-primref\ 330}# + (lambda (#{src\ 1063}# #{name\ 1064}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref\ 253}# - #{src\ 1064}# - #{name\ 1065}#) - (#{make-module-ref\ 249}# - #{src\ 1064}# + (#{make-toplevel-ref\ 254}# + #{src\ 1063}# + #{name\ 1064}#) + (#{make-module-ref\ 250}# + #{src\ 1063}# '(guile) - #{name\ 1065}# + #{name\ 1064}# #f)))) - (#{build-data\ 331}# - (lambda (#{src\ 1068}# #{exp\ 1069}#) - (#{make-const\ 241}# #{src\ 1068}# #{exp\ 1069}#))) - (#{build-sequence\ 333}# - (lambda (#{src\ 1072}# #{exps\ 1073}#) - (if (null? (cdr #{exps\ 1073}#)) - (car #{exps\ 1073}#) - (#{make-sequence\ 263}# - #{src\ 1072}# - #{exps\ 1073}#)))) - (#{build-let\ 335}# - (lambda (#{src\ 1076}# - #{ids\ 1077}# - #{vars\ 1078}# - #{val-exps\ 1079}# - #{body-exp\ 1080}#) + (#{build-data\ 332}# + (lambda (#{src\ 1067}# #{exp\ 1068}#) + (#{make-const\ 242}# #{src\ 1067}# #{exp\ 1068}#))) + (#{build-sequence\ 334}# + (lambda (#{src\ 1071}# #{exps\ 1072}#) + (if (null? (cdr #{exps\ 1072}#)) + (car #{exps\ 1072}#) + (#{make-sequence\ 264}# + #{src\ 1071}# + #{exps\ 1072}#)))) + (#{build-let\ 336}# + (lambda (#{src\ 1075}# + #{ids\ 1076}# + #{vars\ 1077}# + #{val-exps\ 1078}# + #{body-exp\ 1079}#) (begin (for-each - #{maybe-name-value!\ 301}# - #{ids\ 1077}# - #{val-exps\ 1079}#) - (if (null? #{vars\ 1078}#) - #{body-exp\ 1080}# - (#{make-let\ 269}# - #{src\ 1076}# - #{ids\ 1077}# - #{vars\ 1078}# - #{val-exps\ 1079}# - #{body-exp\ 1080}#))))) - (#{build-named-let\ 337}# - (lambda (#{src\ 1086}# - #{ids\ 1087}# - #{vars\ 1088}# - #{val-exps\ 1089}# - #{body-exp\ 1090}#) + #{maybe-name-value!\ 302}# + #{ids\ 1076}# + #{val-exps\ 1078}#) + (if (null? #{vars\ 1077}#) + #{body-exp\ 1079}# + (#{make-let\ 270}# + #{src\ 1075}# + #{ids\ 1076}# + #{vars\ 1077}# + #{val-exps\ 1078}# + #{body-exp\ 1079}#))))) + (#{build-named-let\ 338}# + (lambda (#{src\ 1085}# + #{ids\ 1086}# + #{vars\ 1087}# + #{val-exps\ 1088}# + #{body-exp\ 1089}#) (begin - (let ((#{f\ 1100}# (car #{vars\ 1088}#)) - (#{f-name\ 1101}# (car #{ids\ 1087}#)) - (#{vars\ 1102}# (cdr #{vars\ 1088}#)) - (#{ids\ 1103}# (cdr #{ids\ 1087}#))) + (let ((#{f\ 1099}# (car #{vars\ 1087}#)) + (#{f-name\ 1100}# (car #{ids\ 1086}#)) + (#{vars\ 1101}# (cdr #{vars\ 1087}#)) + (#{ids\ 1102}# (cdr #{ids\ 1086}#))) (begin - (let ((#{proc\ 1105}# - (#{build-simple-lambda\ 323}# - #{src\ 1086}# - #{ids\ 1103}# + (let ((#{proc\ 1104}# + (#{build-simple-lambda\ 324}# + #{src\ 1085}# + #{ids\ 1102}# #f - #{vars\ 1102}# + #{vars\ 1101}# '() - #{body-exp\ 1090}#))) + #{body-exp\ 1089}#))) (begin - (#{maybe-name-value!\ 301}# - #{f-name\ 1101}# - #{proc\ 1105}#) + (#{maybe-name-value!\ 302}# + #{f-name\ 1100}# + #{proc\ 1104}#) (for-each - #{maybe-name-value!\ 301}# - #{ids\ 1103}# - #{val-exps\ 1089}#) - (#{make-letrec\ 271}# - #{src\ 1086}# + #{maybe-name-value!\ 302}# + #{ids\ 1102}# + #{val-exps\ 1088}#) + (#{make-letrec\ 272}# + #{src\ 1085}# #f - (list #{f-name\ 1101}#) - (list #{f\ 1100}#) - (list #{proc\ 1105}#) - (#{build-application\ 305}# - #{src\ 1086}# - (#{build-lexical-reference\ 311}# + (list #{f-name\ 1100}#) + (list #{f\ 1099}#) + (list #{proc\ 1104}#) + (#{build-application\ 306}# + #{src\ 1085}# + (#{build-lexical-reference\ 312}# 'fun - #{src\ 1086}# - #{f-name\ 1101}# - #{f\ 1100}#) - #{val-exps\ 1089}#))))))))) - (#{build-letrec\ 339}# - (lambda (#{src\ 1106}# - #{in-order?\ 1107}# - #{ids\ 1108}# - #{vars\ 1109}# - #{val-exps\ 1110}# - #{body-exp\ 1111}#) - (if (null? #{vars\ 1109}#) - #{body-exp\ 1111}# + #{src\ 1085}# + #{f-name\ 1100}# + #{f\ 1099}#) + #{val-exps\ 1088}#))))))))) + (#{build-letrec\ 340}# + (lambda (#{src\ 1105}# + #{in-order?\ 1106}# + #{ids\ 1107}# + #{vars\ 1108}# + #{val-exps\ 1109}# + #{body-exp\ 1110}#) + (if (null? #{vars\ 1108}#) + #{body-exp\ 1110}# (begin (for-each - #{maybe-name-value!\ 301}# - #{ids\ 1108}# - #{val-exps\ 1110}#) - (#{make-letrec\ 271}# - #{src\ 1106}# - #{in-order?\ 1107}# - #{ids\ 1108}# - #{vars\ 1109}# - #{val-exps\ 1110}# - #{body-exp\ 1111}#))))) - (#{make-syntax-object\ 343}# - (lambda (#{expression\ 1118}# - #{wrap\ 1119}# - #{module\ 1120}#) + #{maybe-name-value!\ 302}# + #{ids\ 1107}# + #{val-exps\ 1109}#) + (#{make-letrec\ 272}# + #{src\ 1105}# + #{in-order?\ 1106}# + #{ids\ 1107}# + #{vars\ 1108}# + #{val-exps\ 1109}# + #{body-exp\ 1110}#))))) + (#{make-syntax-object\ 344}# + (lambda (#{expression\ 1117}# + #{wrap\ 1118}# + #{module\ 1119}#) (vector 'syntax-object - #{expression\ 1118}# - #{wrap\ 1119}# - #{module\ 1120}#))) - (#{syntax-object?\ 345}# - (lambda (#{x\ 1124}#) - (if (vector? #{x\ 1124}#) - (if (= (vector-length #{x\ 1124}#) 4) - (eq? (vector-ref #{x\ 1124}# 0) 'syntax-object) + #{expression\ 1117}# + #{wrap\ 1118}# + #{module\ 1119}#))) + (#{syntax-object?\ 346}# + (lambda (#{x\ 1123}#) + (if (vector? #{x\ 1123}#) + (if (= (vector-length #{x\ 1123}#) 4) + (eq? (vector-ref #{x\ 1123}# 0) 'syntax-object) #f) #f))) - (#{syntax-object-expression\ 347}# - (lambda (#{x\ 1129}#) (vector-ref #{x\ 1129}# 1))) - (#{syntax-object-wrap\ 349}# - (lambda (#{x\ 1131}#) (vector-ref #{x\ 1131}# 2))) - (#{syntax-object-module\ 351}# - (lambda (#{x\ 1133}#) (vector-ref #{x\ 1133}# 3))) - (#{source-annotation\ 360}# - (lambda (#{x\ 1147}#) - (if (#{syntax-object?\ 345}# #{x\ 1147}#) - (#{source-annotation\ 360}# - (#{syntax-object-expression\ 347}# #{x\ 1147}#)) - (if (pair? #{x\ 1147}#) + (#{syntax-object-expression\ 348}# + (lambda (#{x\ 1128}#) (vector-ref #{x\ 1128}# 1))) + (#{syntax-object-wrap\ 350}# + (lambda (#{x\ 1130}#) (vector-ref #{x\ 1130}# 2))) + (#{syntax-object-module\ 352}# + (lambda (#{x\ 1132}#) (vector-ref #{x\ 1132}# 3))) + (#{source-annotation\ 361}# + (lambda (#{x\ 1146}#) + (if (#{syntax-object?\ 346}# #{x\ 1146}#) + (#{source-annotation\ 361}# + (#{syntax-object-expression\ 348}# #{x\ 1146}#)) + (if (pair? #{x\ 1146}#) (begin - (let ((#{props\ 1154}# (source-properties #{x\ 1147}#))) - (if (pair? #{props\ 1154}#) #{props\ 1154}# #f))) + (let ((#{props\ 1153}# (source-properties #{x\ 1146}#))) + (if (pair? #{props\ 1153}#) #{props\ 1153}# #f))) #f)))) - (#{extend-env\ 367}# - (lambda (#{labels\ 1156}# #{bindings\ 1157}# #{r\ 1158}#) - (if (null? #{labels\ 1156}#) - #{r\ 1158}# - (#{extend-env\ 367}# - (cdr #{labels\ 1156}#) - (cdr #{bindings\ 1157}#) - (cons (cons (car #{labels\ 1156}#) - (car #{bindings\ 1157}#)) - #{r\ 1158}#))))) - (#{extend-var-env\ 369}# - (lambda (#{labels\ 1162}# #{vars\ 1163}# #{r\ 1164}#) - (if (null? #{labels\ 1162}#) - #{r\ 1164}# - (#{extend-var-env\ 369}# - (cdr #{labels\ 1162}#) - (cdr #{vars\ 1163}#) - (cons (cons (car #{labels\ 1162}#) - (cons 'lexical (car #{vars\ 1163}#))) - #{r\ 1164}#))))) - (#{macros-only-env\ 371}# - (lambda (#{r\ 1169}#) - (if (null? #{r\ 1169}#) + (#{extend-env\ 368}# + (lambda (#{labels\ 1155}# #{bindings\ 1156}# #{r\ 1157}#) + (if (null? #{labels\ 1155}#) + #{r\ 1157}# + (#{extend-env\ 368}# + (cdr #{labels\ 1155}#) + (cdr #{bindings\ 1156}#) + (cons (cons (car #{labels\ 1155}#) + (car #{bindings\ 1156}#)) + #{r\ 1157}#))))) + (#{extend-var-env\ 370}# + (lambda (#{labels\ 1161}# #{vars\ 1162}# #{r\ 1163}#) + (if (null? #{labels\ 1161}#) + #{r\ 1163}# + (#{extend-var-env\ 370}# + (cdr #{labels\ 1161}#) + (cdr #{vars\ 1162}#) + (cons (cons (car #{labels\ 1161}#) + (cons 'lexical (car #{vars\ 1162}#))) + #{r\ 1163}#))))) + (#{macros-only-env\ 372}# + (lambda (#{r\ 1168}#) + (if (null? #{r\ 1168}#) '() (begin - (let ((#{a\ 1172}# (car #{r\ 1169}#))) - (if (eq? (car (cdr #{a\ 1172}#)) 'macro) - (cons #{a\ 1172}# - (#{macros-only-env\ 371}# (cdr #{r\ 1169}#))) - (#{macros-only-env\ 371}# (cdr #{r\ 1169}#)))))))) - (#{lookup\ 373}# - (lambda (#{x\ 1173}# #{r\ 1174}# #{mod\ 1175}#) + (let ((#{a\ 1171}# (car #{r\ 1168}#))) + (if (eq? (car (cdr #{a\ 1171}#)) 'macro) + (cons #{a\ 1171}# + (#{macros-only-env\ 372}# (cdr #{r\ 1168}#))) + (#{macros-only-env\ 372}# (cdr #{r\ 1168}#)))))))) + (#{lookup\ 374}# + (lambda (#{x\ 1172}# #{r\ 1173}# #{mod\ 1174}#) (begin - (let ((#{t\ 1181}# (assq #{x\ 1173}# #{r\ 1174}#))) - (if #{t\ 1181}# - (cdr #{t\ 1181}#) - (if (symbol? #{x\ 1173}#) + (let ((#{t\ 1180}# (assq #{x\ 1172}# #{r\ 1173}#))) + (if #{t\ 1180}# + (cdr #{t\ 1180}#) + (if (symbol? #{x\ 1172}#) (begin - (let ((#{t\ 1187}# - (#{get-global-definition-hook\ 297}# - #{x\ 1173}# - #{mod\ 1175}#))) - (if #{t\ 1187}# #{t\ 1187}# '(global)))) + (let ((#{t\ 1186}# + (#{get-global-definition-hook\ 298}# + #{x\ 1172}# + #{mod\ 1174}#))) + (if #{t\ 1186}# #{t\ 1186}# '(global)))) '(displaced-lexical))))))) - (#{global-extend\ 375}# - (lambda (#{type\ 1192}# #{sym\ 1193}# #{val\ 1194}#) - (#{put-global-definition-hook\ 295}# - #{sym\ 1193}# - #{type\ 1192}# - #{val\ 1194}#))) - (#{nonsymbol-id?\ 377}# - (lambda (#{x\ 1198}#) - (if (#{syntax-object?\ 345}# #{x\ 1198}#) + (#{global-extend\ 376}# + (lambda (#{type\ 1191}# #{sym\ 1192}# #{val\ 1193}#) + (#{put-global-definition-hook\ 296}# + #{sym\ 1192}# + #{type\ 1191}# + #{val\ 1193}#))) + (#{nonsymbol-id?\ 378}# + (lambda (#{x\ 1197}#) + (if (#{syntax-object?\ 346}# #{x\ 1197}#) (symbol? - (#{syntax-object-expression\ 347}# #{x\ 1198}#)) + (#{syntax-object-expression\ 348}# #{x\ 1197}#)) #f))) - (#{id?\ 379}# - (lambda (#{x\ 1202}#) - (if (symbol? #{x\ 1202}#) + (#{id?\ 380}# + (lambda (#{x\ 1201}#) + (if (symbol? #{x\ 1201}#) #t - (if (#{syntax-object?\ 345}# #{x\ 1202}#) + (if (#{syntax-object?\ 346}# #{x\ 1201}#) (symbol? - (#{syntax-object-expression\ 347}# #{x\ 1202}#)) + (#{syntax-object-expression\ 348}# #{x\ 1201}#)) #f)))) - (#{id-sym-name&marks\ 382}# - (lambda (#{x\ 1209}# #{w\ 1210}#) - (if (#{syntax-object?\ 345}# #{x\ 1209}#) + (#{id-sym-name&marks\ 383}# + (lambda (#{x\ 1208}# #{w\ 1209}#) + (if (#{syntax-object?\ 346}# #{x\ 1208}#) (values - (#{syntax-object-expression\ 347}# #{x\ 1209}#) - (#{join-marks\ 429}# - (car #{w\ 1210}#) - (car (#{syntax-object-wrap\ 349}# #{x\ 1209}#)))) - (values #{x\ 1209}# (car #{w\ 1210}#))))) - (#{gen-label\ 392}# + (#{syntax-object-expression\ 348}# #{x\ 1208}#) + (#{join-marks\ 430}# + (car #{w\ 1209}#) + (car (#{syntax-object-wrap\ 350}# #{x\ 1208}#)))) + (values #{x\ 1208}# (car #{w\ 1209}#))))) + (#{gen-label\ 393}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels\ 394}# - (lambda (#{ls\ 1216}#) - (if (null? #{ls\ 1216}#) + (#{gen-labels\ 395}# + (lambda (#{ls\ 1215}#) + (if (null? #{ls\ 1215}#) '() - (cons (#{gen-label\ 392}#) - (#{gen-labels\ 394}# (cdr #{ls\ 1216}#)))))) - (#{make-ribcage\ 397}# - (lambda (#{symnames\ 1218}# - #{marks\ 1219}# - #{labels\ 1220}#) + (cons (#{gen-label\ 393}#) + (#{gen-labels\ 395}# (cdr #{ls\ 1215}#)))))) + (#{make-ribcage\ 398}# + (lambda (#{symnames\ 1217}# + #{marks\ 1218}# + #{labels\ 1219}#) (vector 'ribcage - #{symnames\ 1218}# - #{marks\ 1219}# - #{labels\ 1220}#))) - (#{ribcage-symnames\ 401}# - (lambda (#{x\ 1229}#) (vector-ref #{x\ 1229}# 1))) - (#{ribcage-marks\ 403}# - (lambda (#{x\ 1231}#) (vector-ref #{x\ 1231}# 2))) - (#{ribcage-labels\ 405}# - (lambda (#{x\ 1233}#) (vector-ref #{x\ 1233}# 3))) - (#{set-ribcage-symnames!\ 407}# - (lambda (#{x\ 1235}# #{update\ 1236}#) - (vector-set! #{x\ 1235}# 1 #{update\ 1236}#))) - (#{set-ribcage-marks!\ 409}# - (lambda (#{x\ 1239}# #{update\ 1240}#) - (vector-set! #{x\ 1239}# 2 #{update\ 1240}#))) - (#{set-ribcage-labels!\ 411}# - (lambda (#{x\ 1243}# #{update\ 1244}#) - (vector-set! #{x\ 1243}# 3 #{update\ 1244}#))) - (#{anti-mark\ 417}# - (lambda (#{w\ 1247}#) - (cons (cons #f (car #{w\ 1247}#)) - (cons 'shift (cdr #{w\ 1247}#))))) - (#{extend-ribcage!\ 421}# - (lambda (#{ribcage\ 1253}# #{id\ 1254}# #{label\ 1255}#) + #{symnames\ 1217}# + #{marks\ 1218}# + #{labels\ 1219}#))) + (#{ribcage-symnames\ 402}# + (lambda (#{x\ 1228}#) (vector-ref #{x\ 1228}# 1))) + (#{ribcage-marks\ 404}# + (lambda (#{x\ 1230}#) (vector-ref #{x\ 1230}# 2))) + (#{ribcage-labels\ 406}# + (lambda (#{x\ 1232}#) (vector-ref #{x\ 1232}# 3))) + (#{set-ribcage-symnames!\ 408}# + (lambda (#{x\ 1234}# #{update\ 1235}#) + (vector-set! #{x\ 1234}# 1 #{update\ 1235}#))) + (#{set-ribcage-marks!\ 410}# + (lambda (#{x\ 1238}# #{update\ 1239}#) + (vector-set! #{x\ 1238}# 2 #{update\ 1239}#))) + (#{set-ribcage-labels!\ 412}# + (lambda (#{x\ 1242}# #{update\ 1243}#) + (vector-set! #{x\ 1242}# 3 #{update\ 1243}#))) + (#{anti-mark\ 418}# + (lambda (#{w\ 1246}#) + (cons (cons #f (car #{w\ 1246}#)) + (cons 'shift (cdr #{w\ 1246}#))))) + (#{extend-ribcage!\ 422}# + (lambda (#{ribcage\ 1252}# #{id\ 1253}# #{label\ 1254}#) (begin - (#{set-ribcage-symnames!\ 407}# - #{ribcage\ 1253}# - (cons (#{syntax-object-expression\ 347}# #{id\ 1254}#) - (#{ribcage-symnames\ 401}# #{ribcage\ 1253}#))) - (#{set-ribcage-marks!\ 409}# - #{ribcage\ 1253}# - (cons (car (#{syntax-object-wrap\ 349}# #{id\ 1254}#)) - (#{ribcage-marks\ 403}# #{ribcage\ 1253}#))) - (#{set-ribcage-labels!\ 411}# - #{ribcage\ 1253}# - (cons #{label\ 1255}# - (#{ribcage-labels\ 405}# #{ribcage\ 1253}#)))))) - (#{make-binding-wrap\ 423}# - (lambda (#{ids\ 1260}# #{labels\ 1261}# #{w\ 1262}#) - (if (null? #{ids\ 1260}#) - #{w\ 1262}# - (cons (car #{w\ 1262}#) + (#{set-ribcage-symnames!\ 408}# + #{ribcage\ 1252}# + (cons (#{syntax-object-expression\ 348}# #{id\ 1253}#) + (#{ribcage-symnames\ 402}# #{ribcage\ 1252}#))) + (#{set-ribcage-marks!\ 410}# + #{ribcage\ 1252}# + (cons (car (#{syntax-object-wrap\ 350}# #{id\ 1253}#)) + (#{ribcage-marks\ 404}# #{ribcage\ 1252}#))) + (#{set-ribcage-labels!\ 412}# + #{ribcage\ 1252}# + (cons #{label\ 1254}# + (#{ribcage-labels\ 406}# #{ribcage\ 1252}#)))))) + (#{make-binding-wrap\ 424}# + (lambda (#{ids\ 1259}# #{labels\ 1260}# #{w\ 1261}#) + (if (null? #{ids\ 1259}#) + #{w\ 1261}# + (cons (car #{w\ 1261}#) (cons (begin - (let ((#{labelvec\ 1269}# - (list->vector #{labels\ 1261}#))) + (let ((#{labelvec\ 1268}# + (list->vector #{labels\ 1260}#))) (begin - (let ((#{n\ 1271}# - (vector-length #{labelvec\ 1269}#))) + (let ((#{n\ 1270}# + (vector-length #{labelvec\ 1268}#))) (begin - (let ((#{symnamevec\ 1274}# - (make-vector #{n\ 1271}#)) - (#{marksvec\ 1275}# - (make-vector #{n\ 1271}#))) + (let ((#{symnamevec\ 1273}# + (make-vector #{n\ 1270}#)) + (#{marksvec\ 1274}# + (make-vector #{n\ 1270}#))) (begin (letrec* - ((#{f\ 1279}# - (lambda (#{ids\ 1280}# - #{i\ 1281}#) - (if (not (null? #{ids\ 1280}#)) + ((#{f\ 1278}# + (lambda (#{ids\ 1279}# + #{i\ 1280}#) + (if (not (null? #{ids\ 1279}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 382}# - (car #{ids\ 1280}#) - #{w\ 1262}#)) - (lambda (#{symname\ 1282}# - #{marks\ 1283}#) + (#{id-sym-name&marks\ 383}# + (car #{ids\ 1279}#) + #{w\ 1261}#)) + (lambda (#{symname\ 1281}# + #{marks\ 1282}#) (begin (vector-set! - #{symnamevec\ 1274}# - #{i\ 1281}# - #{symname\ 1282}#) + #{symnamevec\ 1273}# + #{i\ 1280}# + #{symname\ 1281}#) (vector-set! - #{marksvec\ 1275}# - #{i\ 1281}# - #{marks\ 1283}#) - (#{f\ 1279}# - (cdr #{ids\ 1280}#) - (#{fx+\ 282}# - #{i\ 1281}# + #{marksvec\ 1274}# + #{i\ 1280}# + #{marks\ 1282}#) + (#{f\ 1278}# + (cdr #{ids\ 1279}#) + (#{fx+\ 283}# + #{i\ 1280}# 1))))))))) (begin - (#{f\ 1279}# #{ids\ 1260}# 0))) - (#{make-ribcage\ 397}# - #{symnamevec\ 1274}# - #{marksvec\ 1275}# - #{labelvec\ 1269}#)))))))) - (cdr #{w\ 1262}#)))))) - (#{smart-append\ 425}# - (lambda (#{m1\ 1287}# #{m2\ 1288}#) - (if (null? #{m2\ 1288}#) - #{m1\ 1287}# - (append #{m1\ 1287}# #{m2\ 1288}#)))) - (#{join-wraps\ 427}# - (lambda (#{w1\ 1291}# #{w2\ 1292}#) + (#{f\ 1278}# #{ids\ 1259}# 0))) + (#{make-ribcage\ 398}# + #{symnamevec\ 1273}# + #{marksvec\ 1274}# + #{labelvec\ 1268}#)))))))) + (cdr #{w\ 1261}#)))))) + (#{smart-append\ 426}# + (lambda (#{m1\ 1286}# #{m2\ 1287}#) + (if (null? #{m2\ 1287}#) + #{m1\ 1286}# + (append #{m1\ 1286}# #{m2\ 1287}#)))) + (#{join-wraps\ 428}# + (lambda (#{w1\ 1290}# #{w2\ 1291}#) (begin - (let ((#{m1\ 1297}# (car #{w1\ 1291}#)) - (#{s1\ 1298}# (cdr #{w1\ 1291}#))) - (if (null? #{m1\ 1297}#) - (if (null? #{s1\ 1298}#) - #{w2\ 1292}# - (cons (car #{w2\ 1292}#) - (#{smart-append\ 425}# - #{s1\ 1298}# - (cdr #{w2\ 1292}#)))) - (cons (#{smart-append\ 425}# - #{m1\ 1297}# - (car #{w2\ 1292}#)) - (#{smart-append\ 425}# - #{s1\ 1298}# - (cdr #{w2\ 1292}#)))))))) - (#{join-marks\ 429}# - (lambda (#{m1\ 1307}# #{m2\ 1308}#) - (#{smart-append\ 425}# #{m1\ 1307}# #{m2\ 1308}#))) - (#{same-marks?\ 431}# - (lambda (#{x\ 1311}# #{y\ 1312}#) + (let ((#{m1\ 1296}# (car #{w1\ 1290}#)) + (#{s1\ 1297}# (cdr #{w1\ 1290}#))) + (if (null? #{m1\ 1296}#) + (if (null? #{s1\ 1297}#) + #{w2\ 1291}# + (cons (car #{w2\ 1291}#) + (#{smart-append\ 426}# + #{s1\ 1297}# + (cdr #{w2\ 1291}#)))) + (cons (#{smart-append\ 426}# + #{m1\ 1296}# + (car #{w2\ 1291}#)) + (#{smart-append\ 426}# + #{s1\ 1297}# + (cdr #{w2\ 1291}#)))))))) + (#{join-marks\ 430}# + (lambda (#{m1\ 1306}# #{m2\ 1307}#) + (#{smart-append\ 426}# #{m1\ 1306}# #{m2\ 1307}#))) + (#{same-marks?\ 432}# + (lambda (#{x\ 1310}# #{y\ 1311}#) (begin - (let ((#{t\ 1317}# (eq? #{x\ 1311}# #{y\ 1312}#))) - (if #{t\ 1317}# - #{t\ 1317}# - (if (not (null? #{x\ 1311}#)) - (if (not (null? #{y\ 1312}#)) - (if (eq? (car #{x\ 1311}#) (car #{y\ 1312}#)) - (#{same-marks?\ 431}# - (cdr #{x\ 1311}#) - (cdr #{y\ 1312}#)) + (let ((#{t\ 1316}# (eq? #{x\ 1310}# #{y\ 1311}#))) + (if #{t\ 1316}# + #{t\ 1316}# + (if (not (null? #{x\ 1310}#)) + (if (not (null? #{y\ 1311}#)) + (if (eq? (car #{x\ 1310}#) (car #{y\ 1311}#)) + (#{same-marks?\ 432}# + (cdr #{x\ 1310}#) + (cdr #{y\ 1311}#)) #f) #f) #f)))))) - (#{id-var-name\ 433}# - (lambda (#{id\ 1323}# #{w\ 1324}#) + (#{id-var-name\ 434}# + (lambda (#{id\ 1322}# #{w\ 1323}#) (letrec* - ((#{search\ 1329}# - (lambda (#{sym\ 1345}# #{subst\ 1346}# #{marks\ 1347}#) - (if (null? #{subst\ 1346}#) - (values #f #{marks\ 1347}#) + ((#{search\ 1328}# + (lambda (#{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}#) + (if (null? #{subst\ 1345}#) + (values #f #{marks\ 1346}#) (begin - (let ((#{fst\ 1352}# (car #{subst\ 1346}#))) - (if (eq? #{fst\ 1352}# 'shift) - (#{search\ 1329}# - #{sym\ 1345}# - (cdr #{subst\ 1346}#) - (cdr #{marks\ 1347}#)) + (let ((#{fst\ 1351}# (car #{subst\ 1345}#))) + (if (eq? #{fst\ 1351}# 'shift) + (#{search\ 1328}# + #{sym\ 1344}# + (cdr #{subst\ 1345}#) + (cdr #{marks\ 1346}#)) (begin - (let ((#{symnames\ 1354}# - (#{ribcage-symnames\ 401}# - #{fst\ 1352}#))) - (if (vector? #{symnames\ 1354}#) - (#{search-vector-rib\ 1333}# - #{sym\ 1345}# - #{subst\ 1346}# - #{marks\ 1347}# - #{symnames\ 1354}# - #{fst\ 1352}#) - (#{search-list-rib\ 1331}# - #{sym\ 1345}# - #{subst\ 1346}# - #{marks\ 1347}# - #{symnames\ 1354}# - #{fst\ 1352}#)))))))))) - (#{search-list-rib\ 1331}# - (lambda (#{sym\ 1355}# - #{subst\ 1356}# - #{marks\ 1357}# - #{symnames\ 1358}# - #{ribcage\ 1359}#) + (let ((#{symnames\ 1353}# + (#{ribcage-symnames\ 402}# + #{fst\ 1351}#))) + (if (vector? #{symnames\ 1353}#) + (#{search-vector-rib\ 1332}# + #{sym\ 1344}# + #{subst\ 1345}# + #{marks\ 1346}# + #{symnames\ 1353}# + #{fst\ 1351}#) + (#{search-list-rib\ 1330}# + #{sym\ 1344}# + #{subst\ 1345}# + #{marks\ 1346}# + #{symnames\ 1353}# + #{fst\ 1351}#)))))))))) + (#{search-list-rib\ 1330}# + (lambda (#{sym\ 1354}# + #{subst\ 1355}# + #{marks\ 1356}# + #{symnames\ 1357}# + #{ribcage\ 1358}#) (letrec* - ((#{f\ 1368}# - (lambda (#{symnames\ 1369}# #{i\ 1370}#) - (if (null? #{symnames\ 1369}#) - (#{search\ 1329}# - #{sym\ 1355}# - (cdr #{subst\ 1356}#) - #{marks\ 1357}#) - (if (if (eq? (car #{symnames\ 1369}#) - #{sym\ 1355}#) - (#{same-marks?\ 431}# - #{marks\ 1357}# + ((#{f\ 1367}# + (lambda (#{symnames\ 1368}# #{i\ 1369}#) + (if (null? #{symnames\ 1368}#) + (#{search\ 1328}# + #{sym\ 1354}# + (cdr #{subst\ 1355}#) + #{marks\ 1356}#) + (if (if (eq? (car #{symnames\ 1368}#) + #{sym\ 1354}#) + (#{same-marks?\ 432}# + #{marks\ 1356}# (list-ref - (#{ribcage-marks\ 403}# - #{ribcage\ 1359}#) - #{i\ 1370}#)) + (#{ribcage-marks\ 404}# + #{ribcage\ 1358}#) + #{i\ 1369}#)) #f) (values (list-ref - (#{ribcage-labels\ 405}# #{ribcage\ 1359}#) - #{i\ 1370}#) - #{marks\ 1357}#) - (#{f\ 1368}# - (cdr #{symnames\ 1369}#) - (#{fx+\ 282}# #{i\ 1370}# 1))))))) - (begin (#{f\ 1368}# #{symnames\ 1358}# 0))))) - (#{search-vector-rib\ 1333}# - (lambda (#{sym\ 1378}# - #{subst\ 1379}# - #{marks\ 1380}# - #{symnames\ 1381}# - #{ribcage\ 1382}#) + (#{ribcage-labels\ 406}# #{ribcage\ 1358}#) + #{i\ 1369}#) + #{marks\ 1356}#) + (#{f\ 1367}# + (cdr #{symnames\ 1368}#) + (#{fx+\ 283}# #{i\ 1369}# 1))))))) + (begin (#{f\ 1367}# #{symnames\ 1357}# 0))))) + (#{search-vector-rib\ 1332}# + (lambda (#{sym\ 1377}# + #{subst\ 1378}# + #{marks\ 1379}# + #{symnames\ 1380}# + #{ribcage\ 1381}#) (begin - (let ((#{n\ 1389}# (vector-length #{symnames\ 1381}#))) + (let ((#{n\ 1388}# (vector-length #{symnames\ 1380}#))) (letrec* - ((#{f\ 1392}# - (lambda (#{i\ 1393}#) - (if (#{fx=\ 286}# #{i\ 1393}# #{n\ 1389}#) - (#{search\ 1329}# - #{sym\ 1378}# - (cdr #{subst\ 1379}#) - #{marks\ 1380}#) + ((#{f\ 1391}# + (lambda (#{i\ 1392}#) + (if (#{fx=\ 287}# #{i\ 1392}# #{n\ 1388}#) + (#{search\ 1328}# + #{sym\ 1377}# + (cdr #{subst\ 1378}#) + #{marks\ 1379}#) (if (if (eq? (vector-ref - #{symnames\ 1381}# - #{i\ 1393}#) - #{sym\ 1378}#) - (#{same-marks?\ 431}# - #{marks\ 1380}# + #{symnames\ 1380}# + #{i\ 1392}#) + #{sym\ 1377}#) + (#{same-marks?\ 432}# + #{marks\ 1379}# (vector-ref - (#{ribcage-marks\ 403}# - #{ribcage\ 1382}#) - #{i\ 1393}#)) + (#{ribcage-marks\ 404}# + #{ribcage\ 1381}#) + #{i\ 1392}#)) #f) (values (vector-ref - (#{ribcage-labels\ 405}# - #{ribcage\ 1382}#) - #{i\ 1393}#) - #{marks\ 1380}#) - (#{f\ 1392}# - (#{fx+\ 282}# #{i\ 1393}# 1))))))) - (begin (#{f\ 1392}# 0)))))))) + (#{ribcage-labels\ 406}# + #{ribcage\ 1381}#) + #{i\ 1392}#) + #{marks\ 1379}#) + (#{f\ 1391}# + (#{fx+\ 283}# #{i\ 1392}# 1))))))) + (begin (#{f\ 1391}# 0)))))))) (begin - (if (symbol? #{id\ 1323}#) + (if (symbol? #{id\ 1322}#) (begin - (let ((#{t\ 1403}# + (let ((#{t\ 1402}# (call-with-values (lambda () - (#{search\ 1329}# - #{id\ 1323}# - (cdr #{w\ 1324}#) - (car #{w\ 1324}#))) - (lambda (#{x\ 1407}# . #{ignore\ 1408}#) - #{x\ 1407}#)))) - (if #{t\ 1403}# #{t\ 1403}# #{id\ 1323}#))) - (if (#{syntax-object?\ 345}# #{id\ 1323}#) + (#{search\ 1328}# + #{id\ 1322}# + (cdr #{w\ 1323}#) + (car #{w\ 1323}#))) + (lambda (#{x\ 1406}# . #{ignore\ 1407}#) + #{x\ 1406}#)))) + (if #{t\ 1402}# #{t\ 1402}# #{id\ 1322}#))) + (if (#{syntax-object?\ 346}# #{id\ 1322}#) (begin - (let ((#{id\ 1416}# - (#{syntax-object-expression\ 347}# - #{id\ 1323}#)) - (#{w1\ 1417}# - (#{syntax-object-wrap\ 349}# #{id\ 1323}#))) + (let ((#{id\ 1415}# + (#{syntax-object-expression\ 348}# + #{id\ 1322}#)) + (#{w1\ 1416}# + (#{syntax-object-wrap\ 350}# #{id\ 1322}#))) (begin - (let ((#{marks\ 1419}# - (#{join-marks\ 429}# - (car #{w\ 1324}#) - (car #{w1\ 1417}#)))) + (let ((#{marks\ 1418}# + (#{join-marks\ 430}# + (car #{w\ 1323}#) + (car #{w1\ 1416}#)))) (call-with-values (lambda () - (#{search\ 1329}# - #{id\ 1416}# - (cdr #{w\ 1324}#) - #{marks\ 1419}#)) - (lambda (#{new-id\ 1423}# #{marks\ 1424}#) + (#{search\ 1328}# + #{id\ 1415}# + (cdr #{w\ 1323}#) + #{marks\ 1418}#)) + (lambda (#{new-id\ 1422}# #{marks\ 1423}#) (begin - (let ((#{t\ 1429}# #{new-id\ 1423}#)) - (if #{t\ 1429}# - #{t\ 1429}# + (let ((#{t\ 1428}# #{new-id\ 1422}#)) + (if #{t\ 1428}# + #{t\ 1428}# (begin - (let ((#{t\ 1432}# + (let ((#{t\ 1431}# (call-with-values (lambda () - (#{search\ 1329}# - #{id\ 1416}# - (cdr #{w1\ 1417}#) - #{marks\ 1424}#)) - (lambda (#{x\ 1435}# + (#{search\ 1328}# + #{id\ 1415}# + (cdr #{w1\ 1416}#) + #{marks\ 1423}#)) + (lambda (#{x\ 1434}# . - #{ignore\ 1436}#) - #{x\ 1435}#)))) - (if #{t\ 1432}# - #{t\ 1432}# - #{id\ 1416}#)))))))))))) + #{ignore\ 1435}#) + #{x\ 1434}#)))) + (if #{t\ 1431}# + #{t\ 1431}# + #{id\ 1415}#)))))))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1323}#))))))) - (#{free-id=?\ 435}# - (lambda (#{i\ 1441}# #{j\ 1442}#) + #{id\ 1322}#))))))) + (#{free-id=?\ 436}# + (lambda (#{i\ 1440}# #{j\ 1441}#) (if (eq? (begin - (let ((#{x\ 1448}# #{i\ 1441}#)) - (if (#{syntax-object?\ 345}# #{x\ 1448}#) - (#{syntax-object-expression\ 347}# #{x\ 1448}#) - #{x\ 1448}#))) + (let ((#{x\ 1447}# #{i\ 1440}#)) + (if (#{syntax-object?\ 346}# #{x\ 1447}#) + (#{syntax-object-expression\ 348}# #{x\ 1447}#) + #{x\ 1447}#))) (begin - (let ((#{x\ 1451}# #{j\ 1442}#)) - (if (#{syntax-object?\ 345}# #{x\ 1451}#) - (#{syntax-object-expression\ 347}# #{x\ 1451}#) - #{x\ 1451}#)))) - (eq? (#{id-var-name\ 433}# #{i\ 1441}# '(())) - (#{id-var-name\ 433}# #{j\ 1442}# '(()))) + (let ((#{x\ 1450}# #{j\ 1441}#)) + (if (#{syntax-object?\ 346}# #{x\ 1450}#) + (#{syntax-object-expression\ 348}# #{x\ 1450}#) + #{x\ 1450}#)))) + (eq? (#{id-var-name\ 434}# #{i\ 1440}# '(())) + (#{id-var-name\ 434}# #{j\ 1441}# '(()))) #f))) - (#{bound-id=?\ 437}# - (lambda (#{i\ 1455}# #{j\ 1456}#) - (if (if (#{syntax-object?\ 345}# #{i\ 1455}#) - (#{syntax-object?\ 345}# #{j\ 1456}#) + (#{bound-id=?\ 438}# + (lambda (#{i\ 1454}# #{j\ 1455}#) + (if (if (#{syntax-object?\ 346}# #{i\ 1454}#) + (#{syntax-object?\ 346}# #{j\ 1455}#) #f) - (if (eq? (#{syntax-object-expression\ 347}# #{i\ 1455}#) - (#{syntax-object-expression\ 347}# #{j\ 1456}#)) - (#{same-marks?\ 431}# - (car (#{syntax-object-wrap\ 349}# #{i\ 1455}#)) - (car (#{syntax-object-wrap\ 349}# #{j\ 1456}#))) + (if (eq? (#{syntax-object-expression\ 348}# #{i\ 1454}#) + (#{syntax-object-expression\ 348}# #{j\ 1455}#)) + (#{same-marks?\ 432}# + (car (#{syntax-object-wrap\ 350}# #{i\ 1454}#)) + (car (#{syntax-object-wrap\ 350}# #{j\ 1455}#))) #f) - (eq? #{i\ 1455}# #{j\ 1456}#)))) - (#{valid-bound-ids?\ 439}# - (lambda (#{ids\ 1465}#) + (eq? #{i\ 1454}# #{j\ 1455}#)))) + (#{valid-bound-ids?\ 440}# + (lambda (#{ids\ 1464}#) (if (letrec* - ((#{all-ids?\ 1470}# - (lambda (#{ids\ 1471}#) + ((#{all-ids?\ 1469}# + (lambda (#{ids\ 1470}#) (begin - (let ((#{t\ 1474}# (null? #{ids\ 1471}#))) - (if #{t\ 1474}# - #{t\ 1474}# - (if (#{id?\ 379}# (car #{ids\ 1471}#)) - (#{all-ids?\ 1470}# (cdr #{ids\ 1471}#)) + (let ((#{t\ 1473}# (null? #{ids\ 1470}#))) + (if #{t\ 1473}# + #{t\ 1473}# + (if (#{id?\ 380}# (car #{ids\ 1470}#)) + (#{all-ids?\ 1469}# (cdr #{ids\ 1470}#)) #f))))))) - (begin (#{all-ids?\ 1470}# #{ids\ 1465}#))) - (#{distinct-bound-ids?\ 441}# #{ids\ 1465}#) + (begin (#{all-ids?\ 1469}# #{ids\ 1464}#))) + (#{distinct-bound-ids?\ 442}# #{ids\ 1464}#) #f))) - (#{distinct-bound-ids?\ 441}# - (lambda (#{ids\ 1479}#) + (#{distinct-bound-ids?\ 442}# + (lambda (#{ids\ 1478}#) (letrec* - ((#{distinct?\ 1483}# - (lambda (#{ids\ 1484}#) + ((#{distinct?\ 1482}# + (lambda (#{ids\ 1483}#) (begin - (let ((#{t\ 1487}# (null? #{ids\ 1484}#))) - (if #{t\ 1487}# - #{t\ 1487}# - (if (not (#{bound-id-member?\ 443}# - (car #{ids\ 1484}#) - (cdr #{ids\ 1484}#))) - (#{distinct?\ 1483}# (cdr #{ids\ 1484}#)) + (let ((#{t\ 1486}# (null? #{ids\ 1483}#))) + (if #{t\ 1486}# + #{t\ 1486}# + (if (not (#{bound-id-member?\ 444}# + (car #{ids\ 1483}#) + (cdr #{ids\ 1483}#))) + (#{distinct?\ 1482}# (cdr #{ids\ 1483}#)) #f))))))) - (begin (#{distinct?\ 1483}# #{ids\ 1479}#))))) - (#{bound-id-member?\ 443}# - (lambda (#{x\ 1491}# #{list\ 1492}#) - (if (not (null? #{list\ 1492}#)) + (begin (#{distinct?\ 1482}# #{ids\ 1478}#))))) + (#{bound-id-member?\ 444}# + (lambda (#{x\ 1490}# #{list\ 1491}#) + (if (not (null? #{list\ 1491}#)) (begin - (let ((#{t\ 1499}# - (#{bound-id=?\ 437}# - #{x\ 1491}# - (car #{list\ 1492}#)))) - (if #{t\ 1499}# - #{t\ 1499}# - (#{bound-id-member?\ 443}# - #{x\ 1491}# - (cdr #{list\ 1492}#))))) + (let ((#{t\ 1498}# + (#{bound-id=?\ 438}# + #{x\ 1490}# + (car #{list\ 1491}#)))) + (if #{t\ 1498}# + #{t\ 1498}# + (#{bound-id-member?\ 444}# + #{x\ 1490}# + (cdr #{list\ 1491}#))))) #f))) - (#{wrap\ 445}# - (lambda (#{x\ 1501}# #{w\ 1502}# #{defmod\ 1503}#) - (if (if (null? (car #{w\ 1502}#)) - (null? (cdr #{w\ 1502}#)) + (#{wrap\ 446}# + (lambda (#{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#) + (if (if (null? (car #{w\ 1501}#)) + (null? (cdr #{w\ 1501}#)) #f) - #{x\ 1501}# - (if (#{syntax-object?\ 345}# #{x\ 1501}#) - (#{make-syntax-object\ 343}# - (#{syntax-object-expression\ 347}# #{x\ 1501}#) - (#{join-wraps\ 427}# - #{w\ 1502}# - (#{syntax-object-wrap\ 349}# #{x\ 1501}#)) - (#{syntax-object-module\ 351}# #{x\ 1501}#)) - (if (null? #{x\ 1501}#) - #{x\ 1501}# - (#{make-syntax-object\ 343}# - #{x\ 1501}# - #{w\ 1502}# - #{defmod\ 1503}#)))))) - (#{source-wrap\ 447}# - (lambda (#{x\ 1518}# - #{w\ 1519}# - #{s\ 1520}# - #{defmod\ 1521}#) - (#{wrap\ 445}# - (#{decorate-source\ 299}# - #{x\ 1518}# - #{s\ 1520}#) - #{w\ 1519}# - #{defmod\ 1521}#))) - (#{chi-sequence\ 449}# - (lambda (#{body\ 1526}# - #{r\ 1527}# - #{w\ 1528}# - #{s\ 1529}# - #{mod\ 1530}#) - (#{build-sequence\ 333}# - #{s\ 1529}# + #{x\ 1500}# + (if (#{syntax-object?\ 346}# #{x\ 1500}#) + (#{make-syntax-object\ 344}# + (#{syntax-object-expression\ 348}# #{x\ 1500}#) + (#{join-wraps\ 428}# + #{w\ 1501}# + (#{syntax-object-wrap\ 350}# #{x\ 1500}#)) + (#{syntax-object-module\ 352}# #{x\ 1500}#)) + (if (null? #{x\ 1500}#) + #{x\ 1500}# + (#{make-syntax-object\ 344}# + #{x\ 1500}# + #{w\ 1501}# + #{defmod\ 1502}#)))))) + (#{source-wrap\ 448}# + (lambda (#{x\ 1517}# + #{w\ 1518}# + #{s\ 1519}# + #{defmod\ 1520}#) + (#{wrap\ 446}# + (#{decorate-source\ 300}# + #{x\ 1517}# + #{s\ 1519}#) + #{w\ 1518}# + #{defmod\ 1520}#))) + (#{chi-sequence\ 450}# + (lambda (#{body\ 1525}# + #{r\ 1526}# + #{w\ 1527}# + #{s\ 1528}# + #{mod\ 1529}#) + (#{build-sequence\ 334}# + #{s\ 1528}# (letrec* - ((#{dobody\ 1541}# - (lambda (#{body\ 1542}# - #{r\ 1543}# - #{w\ 1544}# - #{mod\ 1545}#) - (if (null? #{body\ 1542}#) + ((#{dobody\ 1540}# + (lambda (#{body\ 1541}# + #{r\ 1542}# + #{w\ 1543}# + #{mod\ 1544}#) + (if (null? #{body\ 1541}#) '() (begin - (let ((#{first\ 1547}# - (#{chi\ 461}# - (car #{body\ 1542}#) - #{r\ 1543}# - #{w\ 1544}# - #{mod\ 1545}#))) - (cons #{first\ 1547}# - (#{dobody\ 1541}# - (cdr #{body\ 1542}#) - #{r\ 1543}# - #{w\ 1544}# - #{mod\ 1545}#)))))))) + (let ((#{first\ 1546}# + (#{chi\ 460}# + (car #{body\ 1541}#) + #{r\ 1542}# + #{w\ 1543}# + #{mod\ 1544}#))) + (cons #{first\ 1546}# + (#{dobody\ 1540}# + (cdr #{body\ 1541}#) + #{r\ 1542}# + #{w\ 1543}# + #{mod\ 1544}#)))))))) (begin - (#{dobody\ 1541}# - #{body\ 1526}# - #{r\ 1527}# - #{w\ 1528}# - #{mod\ 1530}#)))))) - (#{chi-top-sequence\ 451}# - (lambda (#{body\ 1548}# - #{r\ 1549}# - #{w\ 1550}# - #{s\ 1551}# - #{m\ 1552}# - #{esew\ 1553}# - #{mod\ 1554}#) - (#{build-sequence\ 333}# - #{s\ 1551}# - (letrec* - ((#{dobody\ 1570}# - (lambda (#{body\ 1571}# - #{r\ 1572}# - #{w\ 1573}# - #{m\ 1574}# - #{esew\ 1575}# - #{mod\ 1576}# - #{out\ 1577}#) - (if (null? #{body\ 1571}#) - (reverse #{out\ 1577}#) - (#{dobody\ 1570}# - (cdr #{body\ 1571}#) - #{r\ 1572}# - #{w\ 1573}# - #{m\ 1574}# - #{esew\ 1575}# - #{mod\ 1576}# - (cons (#{chi-top\ 459}# - (car #{body\ 1571}#) - #{r\ 1572}# - #{w\ 1573}# - #{m\ 1574}# - #{esew\ 1575}# - #{mod\ 1576}#) - #{out\ 1577}#)))))) - (begin - (#{dobody\ 1570}# - #{body\ 1548}# - #{r\ 1549}# - #{w\ 1550}# - #{m\ 1552}# - #{esew\ 1553}# - #{mod\ 1554}# - '())))))) - (#{chi-install-global\ 453}# - (lambda (#{name\ 1578}# #{e\ 1579}#) - (#{build-global-definition\ 321}# + (#{dobody\ 1540}# + #{body\ 1525}# + #{r\ 1526}# + #{w\ 1527}# + #{mod\ 1529}#)))))) + (#{chi-top-sequence\ 452}# + (lambda (#{body\ 1547}# + #{r\ 1548}# + #{w\ 1549}# + #{s\ 1550}# + #{m\ 1551}# + #{esew\ 1552}# + #{mod\ 1553}#) + (letrec* + ((#{scan\ 1562}# + (lambda (#{body\ 1563}# + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{m\ 1567}# + #{esew\ 1568}# + #{mod\ 1569}# + #{exps\ 1570}#) + (if (null? #{body\ 1563}#) + #{exps\ 1570}# + (call-with-values + (lambda () + (call-with-values + (lambda () + (begin + (let ((#{e\ 1583}# (car #{body\ 1563}#))) + (#{syntax-type\ 458}# + #{e\ 1583}# + #{r\ 1564}# + #{w\ 1565}# + (begin + (let ((#{t\ 1586}# + (#{source-annotation\ 361}# + #{e\ 1583}#))) + (if #{t\ 1586}# + #{t\ 1586}# + #{s\ 1566}#))) + #f + #{mod\ 1569}# + #f)))) + (lambda (#{type\ 1588}# + #{value\ 1589}# + #{e\ 1590}# + #{w\ 1591}# + #{s\ 1592}# + #{mod\ 1593}#) + (if (eqv? #{type\ 1588}# 'begin-form) + (let ((#{tmp\ 1601}# #{e\ 1590}#)) + (let ((#{tmp\ 1602}# + ($sc-dispatch #{tmp\ 1601}# '(_)))) + (if #{tmp\ 1602}# + (@apply + (lambda () #{exps\ 1570}#) + #{tmp\ 1602}#) + (let ((#{tmp\ 1603}# + ($sc-dispatch + #{tmp\ 1601}# + '(_ any . each-any)))) + (if #{tmp\ 1603}# + (@apply + (lambda (#{e1\ 1606}# #{e2\ 1607}#) + (#{scan\ 1562}# + (cons #{e1\ 1606}# + #{e2\ 1607}#) + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + #{m\ 1567}# + #{esew\ 1568}# + #{mod\ 1593}# + #{exps\ 1570}#)) + #{tmp\ 1603}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1601}#)))))) + (if (eqv? #{type\ 1588}# 'local-syntax-form) + (#{chi-local-syntax\ 470}# + #{value\ 1589}# + #{e\ 1590}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + #{mod\ 1593}# + (lambda (#{body\ 1610}# + #{r\ 1611}# + #{w\ 1612}# + #{s\ 1613}# + #{mod\ 1614}#) + (#{scan\ 1562}# + #{body\ 1610}# + #{r\ 1611}# + #{w\ 1612}# + #{s\ 1613}# + #{m\ 1567}# + #{esew\ 1568}# + #{mod\ 1614}# + #{exps\ 1570}#))) + (if (eqv? #{type\ 1588}# 'eval-when-form) + (let ((#{tmp\ 1621}# #{e\ 1590}#)) + (let ((#{tmp\ 1622}# + ($sc-dispatch + #{tmp\ 1621}# + '(_ each-any any . each-any)))) + (if #{tmp\ 1622}# + (@apply + (lambda (#{x\ 1626}# + #{e1\ 1627}# + #{e2\ 1628}#) + (begin + (let ((#{when-list\ 1631}# + (#{chi-when-list\ 456}# + #{e\ 1590}# + #{x\ 1626}# + #{w\ 1591}#)) + (#{body\ 1632}# + (cons #{e1\ 1627}# + #{e2\ 1628}#))) + (if (eq? #{m\ 1567}# 'e) + (if (memq 'eval + #{when-list\ 1631}#) + (#{scan\ 1562}# + #{body\ 1632}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + (if (memq 'expand + #{when-list\ 1631}#) + 'c&e + 'e) + '(eval) + #{mod\ 1593}# + #{exps\ 1570}#) + (begin + (if (memq 'expand + #{when-list\ 1631}#) + (#{top-level-eval-hook\ 291}# + (#{chi-top-sequence\ 452}# + #{body\ 1632}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + 'e + '(eval) + #{mod\ 1593}#) + #{mod\ 1593}#)) + #{exps\ 1570}#)) + (if (memq 'load + #{when-list\ 1631}#) + (if (begin + (let ((#{t\ 1641}# + (memq 'compile + #{when-list\ 1631}#))) + (if #{t\ 1641}# + #{t\ 1641}# + (begin + (let ((#{t\ 1644}# + (memq 'expand + #{when-list\ 1631}#))) + (if #{t\ 1644}# + #{t\ 1644}# + (if (eq? #{m\ 1567}# + 'c&e) + (memq 'eval + #{when-list\ 1631}#) + #f))))))) + (#{scan\ 1562}# + #{body\ 1632}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + 'c&e + '(compile load) + #{mod\ 1593}# + #{exps\ 1570}#) + (if (if (eq? #{m\ 1567}# + 'c) + #t + (eq? #{m\ 1567}# + 'c&e)) + (#{scan\ 1562}# + #{body\ 1632}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + 'c + '(load) + #{mod\ 1593}# + #{exps\ 1570}#) + #{exps\ 1570}#)) + (if (begin + (let ((#{t\ 1652}# + (memq 'compile + #{when-list\ 1631}#))) + (if #{t\ 1652}# + #{t\ 1652}# + (begin + (let ((#{t\ 1655}# + (memq 'expand + #{when-list\ 1631}#))) + (if #{t\ 1655}# + #{t\ 1655}# + (if (eq? #{m\ 1567}# + 'c&e) + (memq 'eval + #{when-list\ 1631}#) + #f))))))) + (begin + (#{top-level-eval-hook\ 291}# + (#{chi-top-sequence\ 452}# + #{body\ 1632}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + 'e + '(eval) + #{mod\ 1593}#) + #{mod\ 1593}#) + #{exps\ 1570}#) + #{exps\ 1570}#)))))) + #{tmp\ 1622}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp\ 1621}#)))) + (if (eqv? #{type\ 1588}# + 'define-syntax-form) + (begin + (let ((#{n\ 1663}# + (#{id-var-name\ 434}# + #{value\ 1589}# + #{w\ 1591}#)) + (#{r\ 1664}# + (#{macros-only-env\ 372}# + #{r\ 1564}#))) + (if (eqv? #{m\ 1567}# 'c) + (if (memq 'compile #{esew\ 1568}#) + (begin + (let ((#{e\ 1667}# + (#{chi-install-global\ 454}# + #{n\ 1663}# + (#{chi\ 460}# + #{e\ 1590}# + #{r\ 1664}# + #{w\ 1591}# + #{mod\ 1593}#)))) + (begin + (#{top-level-eval-hook\ 291}# + #{e\ 1667}# + #{mod\ 1593}#) + (if (memq 'load + #{esew\ 1568}#) + (cons #{e\ 1667}# + #{exps\ 1570}#) + #{exps\ 1570}#)))) + (if (memq 'load #{esew\ 1568}#) + (cons (#{chi-install-global\ 454}# + #{n\ 1663}# + (#{chi\ 460}# + #{e\ 1590}# + #{r\ 1664}# + #{w\ 1591}# + #{mod\ 1593}#)) + #{exps\ 1570}#) + #{exps\ 1570}#)) + (if (eqv? #{m\ 1567}# 'c&e) + (begin + (let ((#{e\ 1670}# + (#{chi-install-global\ 454}# + #{n\ 1663}# + (#{chi\ 460}# + #{e\ 1590}# + #{r\ 1664}# + #{w\ 1591}# + #{mod\ 1593}#)))) + (begin + (#{top-level-eval-hook\ 291}# + #{e\ 1670}# + #{mod\ 1593}#) + (cons #{e\ 1670}# + #{exps\ 1570}#)))) + (begin + (if (memq 'eval #{esew\ 1568}#) + (#{top-level-eval-hook\ 291}# + (#{chi-install-global\ 454}# + #{n\ 1663}# + (#{chi\ 460}# + #{e\ 1590}# + #{r\ 1664}# + #{w\ 1591}# + #{mod\ 1593}#)) + #{mod\ 1593}#)) + #{exps\ 1570}#))))) + (if (eqv? #{type\ 1588}# 'define-form) + (begin + (let ((#{n\ 1675}# + (#{id-var-name\ 434}# + #{value\ 1589}# + #{w\ 1591}#))) + (begin + (let ((#{type\ 1677}# + (car (#{lookup\ 374}# + #{n\ 1675}# + #{r\ 1564}# + #{mod\ 1593}#)))) + (if (if (eqv? #{type\ 1677}# + 'global) + #t + (if (eqv? #{type\ 1677}# + 'core) + #t + (if (eqv? #{type\ 1677}# + 'macro) + #t + (eqv? #{type\ 1677}# + 'module-ref)))) + (begin + (if (if (if (eq? #{m\ 1567}# + 'c) + #t + (eq? #{m\ 1567}# + 'c&e)) + (if (not (module-local-variable + (current-module) + #{n\ 1675}#)) + (current-module) + #f) + #f) + (begin + (let ((#{old\ 1684}# + (module-variable + (current-module) + #{n\ 1675}#))) + (if (if (variable? + #{old\ 1684}#) + (variable-bound? + #{old\ 1684}#) + #f) + (module-define! + (current-module) + #{n\ 1675}# + (variable-ref + #{old\ 1684}#)) + (module-add! + (current-module) + #{n\ 1675}# + (make-undefined-variable)))))) + (cons (if (eq? #{m\ 1567}# + 'c&e) + (begin + (let ((#{x\ 1688}# + (#{build-global-definition\ 322}# + #{s\ 1592}# + #{n\ 1675}# + (#{chi\ 460}# + #{e\ 1590}# + #{r\ 1564}# + #{w\ 1591}# + #{mod\ 1593}#)))) + (begin + (#{top-level-eval-hook\ 291}# + #{x\ 1688}# + #{mod\ 1593}#) + #{x\ 1688}#))) + (lambda () + (#{build-global-definition\ 322}# + #{s\ 1592}# + #{n\ 1675}# + (#{chi\ 460}# + #{e\ 1590}# + #{r\ 1564}# + #{w\ 1591}# + #{mod\ 1593}#)))) + #{exps\ 1570}#)) + (if (eqv? #{type\ 1677}# + 'displaced-lexical) + (syntax-violation + #f + "identifier out of context" + #{e\ 1590}# + (#{wrap\ 446}# + #{value\ 1589}# + #{w\ 1591}# + #{mod\ 1593}#)) + (syntax-violation + #f + "cannot define keyword at top level" + #{e\ 1590}# + (#{wrap\ 446}# + #{value\ 1589}# + #{w\ 1591}# + #{mod\ 1593}#)))))))) + (cons (if (eq? #{m\ 1567}# 'c&e) + (begin + (let ((#{x\ 1693}# + (#{chi-expr\ 462}# + #{type\ 1588}# + #{value\ 1589}# + #{e\ 1590}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + #{mod\ 1593}#))) + (begin + (#{top-level-eval-hook\ 291}# + #{x\ 1693}# + #{mod\ 1593}#) + #{x\ 1693}#))) + (lambda () + (#{chi-expr\ 462}# + #{type\ 1588}# + #{value\ 1589}# + #{e\ 1590}# + #{r\ 1564}# + #{w\ 1591}# + #{s\ 1592}# + #{mod\ 1593}#))) + #{exps\ 1570}#))))))))) + (lambda (#{exps\ 1694}#) + (#{scan\ 1562}# + (cdr #{body\ 1563}#) + #{r\ 1564}# + #{w\ 1565}# + #{s\ 1566}# + #{m\ 1567}# + #{esew\ 1568}# + #{mod\ 1569}# + #{exps\ 1694}#))))))) + (begin + (call-with-values + (lambda () + (#{scan\ 1562}# + #{body\ 1547}# + #{r\ 1548}# + #{w\ 1549}# + #{s\ 1550}# + #{m\ 1551}# + #{esew\ 1552}# + #{mod\ 1553}# + '())) + (lambda (#{exps\ 1696}#) + (if (null? #{exps\ 1696}#) + (#{build-void\ 304}# #{s\ 1550}#) + (#{build-sequence\ 334}# + #{s\ 1550}# + (letrec* + ((#{lp\ 1701}# + (lambda (#{in\ 1702}# #{out\ 1703}#) + (if (null? #{in\ 1702}#) + #{out\ 1703}# + (begin + (let ((#{e\ 1705}# (car #{in\ 1702}#))) + (#{lp\ 1701}# + (cdr #{in\ 1702}#) + (cons (if (procedure? #{e\ 1705}#) + (#{e\ 1705}#) + #{e\ 1705}#) + #{out\ 1703}#)))))))) + (begin (#{lp\ 1701}# #{exps\ 1696}# '()))))))))))) + (#{chi-install-global\ 454}# + (lambda (#{name\ 1706}# #{e\ 1707}#) + (#{build-global-definition\ 322}# #f - #{name\ 1578}# - (#{build-application\ 305}# + #{name\ 1706}# + (#{build-application\ 306}# #f - (#{build-primref\ 329}# + (#{build-primref\ 330}# #f 'make-syntax-transformer) - (list (#{build-data\ 331}# #f #{name\ 1578}#) - (#{build-data\ 331}# #f 'macro) - #{e\ 1579}#))))) - (#{chi-when-list\ 455}# - (lambda (#{e\ 1587}# #{when-list\ 1588}# #{w\ 1589}#) + (list (#{build-data\ 332}# #f #{name\ 1706}#) + (#{build-data\ 332}# #f 'macro) + #{e\ 1707}#))))) + (#{chi-when-list\ 456}# + (lambda (#{e\ 1715}# #{when-list\ 1716}# #{w\ 1717}#) (letrec* - ((#{f\ 1596}# - (lambda (#{when-list\ 1597}# #{situations\ 1598}#) - (if (null? #{when-list\ 1597}#) - #{situations\ 1598}# - (#{f\ 1596}# - (cdr #{when-list\ 1597}#) + ((#{f\ 1724}# + (lambda (#{when-list\ 1725}# #{situations\ 1726}#) + (if (null? #{when-list\ 1725}#) + #{situations\ 1726}# + (#{f\ 1724}# + (cdr #{when-list\ 1725}#) (cons (begin - (let ((#{x\ 1600}# (car #{when-list\ 1597}#))) - (if (#{free-id=?\ 435}# - #{x\ 1600}# + (let ((#{x\ 1728}# (car #{when-list\ 1725}#))) + (if (#{free-id=?\ 436}# + #{x\ 1728}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1599")) + #(ribcage #(x) #((top)) #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1593" "i1594" "i1595")) + #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1590" "i1591" "i1592")) + #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var @@ -1216,7 +1630,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -1472,60 +1885,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -1534,94 +1946,93 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 435}# - #{x\ 1600}# + (if (#{free-id=?\ 436}# + #{x\ 1728}# '#(syntax-object load ((top) @@ -1631,17 +2042,17 @@ #(ribcage #(x) #((top)) - #("i1599")) + #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1593" "i1594" "i1595")) + #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1590" "i1591" "i1592")) + #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var @@ -1659,7 +2070,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -1915,60 +2325,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -1977,94 +2386,93 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'load - (if (#{free-id=?\ 435}# - #{x\ 1600}# + (if (#{free-id=?\ 436}# + #{x\ 1728}# '#(syntax-object eval ((top) @@ -2074,17 +2482,17 @@ #(ribcage #(x) #((top)) - #("i1599")) + #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1593" "i1594" "i1595")) + #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1590" "i1591" "i1592")) + #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var @@ -2102,7 +2510,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -2358,60 +2765,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -2420,94 +2826,93 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 435}# - #{x\ 1600}# + (if (#{free-id=?\ 436}# + #{x\ 1728}# '#(syntax-object expand ((top) @@ -2517,17 +2922,17 @@ #(ribcage #(x) #((top)) - #("i1599")) + #("i1727")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1593" "i1594" "i1595")) + #("i1721" "i1722" "i1723")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1590" "i1591" "i1592")) + #("i1718" "i1719" "i1720")) #(ribcage (lambda-var-list gen-var @@ -2545,7 +2950,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -2801,60 +3205,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -2863,333 +3266,332 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 1587}# - (#{wrap\ 445}# - #{x\ 1600}# - #{w\ 1589}# + #{e\ 1715}# + (#{wrap\ 446}# + #{x\ 1728}# + #{w\ 1717}# #f)))))))) - #{situations\ 1598}#)))))) - (begin (#{f\ 1596}# #{when-list\ 1588}# '()))))) - (#{syntax-type\ 457}# - (lambda (#{e\ 1610}# - #{r\ 1611}# - #{w\ 1612}# - #{s\ 1613}# - #{rib\ 1614}# - #{mod\ 1615}# - #{for-car?\ 1616}#) - (if (symbol? #{e\ 1610}#) + #{situations\ 1726}#)))))) + (begin (#{f\ 1724}# #{when-list\ 1716}# '()))))) + (#{syntax-type\ 458}# + (lambda (#{e\ 1738}# + #{r\ 1739}# + #{w\ 1740}# + #{s\ 1741}# + #{rib\ 1742}# + #{mod\ 1743}# + #{for-car?\ 1744}#) + (if (symbol? #{e\ 1738}#) (begin - (let ((#{n\ 1628}# - (#{id-var-name\ 433}# #{e\ 1610}# #{w\ 1612}#))) + (let ((#{n\ 1756}# + (#{id-var-name\ 434}# #{e\ 1738}# #{w\ 1740}#))) (begin - (let ((#{b\ 1630}# - (#{lookup\ 373}# - #{n\ 1628}# - #{r\ 1611}# - #{mod\ 1615}#))) + (let ((#{b\ 1758}# + (#{lookup\ 374}# + #{n\ 1756}# + #{r\ 1739}# + #{mod\ 1743}#))) (begin - (let ((#{type\ 1632}# (car #{b\ 1630}#))) - (if (eqv? #{type\ 1632}# 'lexical) + (let ((#{type\ 1760}# (car #{b\ 1758}#))) + (if (eqv? #{type\ 1760}# 'lexical) (values - #{type\ 1632}# - (cdr #{b\ 1630}#) - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{type\ 1632}# 'global) + #{type\ 1760}# + (cdr #{b\ 1758}#) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{type\ 1760}# 'global) (values - #{type\ 1632}# - #{n\ 1628}# - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{type\ 1632}# 'macro) - (if #{for-car?\ 1616}# + #{type\ 1760}# + #{n\ 1756}# + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{type\ 1760}# 'macro) + (if #{for-car?\ 1744}# (values - #{type\ 1632}# - (cdr #{b\ 1630}#) - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (#{syntax-type\ 457}# - (#{chi-macro\ 467}# - (cdr #{b\ 1630}#) - #{e\ 1610}# - #{r\ 1611}# - #{w\ 1612}# - #{s\ 1613}# - #{rib\ 1614}# - #{mod\ 1615}#) - #{r\ 1611}# + #{type\ 1760}# + (cdr #{b\ 1758}#) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (#{syntax-type\ 458}# + (#{chi-macro\ 466}# + (cdr #{b\ 1758}#) + #{e\ 1738}# + #{r\ 1739}# + #{w\ 1740}# + #{s\ 1741}# + #{rib\ 1742}# + #{mod\ 1743}#) + #{r\ 1739}# '(()) - #{s\ 1613}# - #{rib\ 1614}# - #{mod\ 1615}# + #{s\ 1741}# + #{rib\ 1742}# + #{mod\ 1743}# #f)) (values - #{type\ 1632}# - (cdr #{b\ 1630}#) - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#)))))))))) - (if (pair? #{e\ 1610}#) + #{type\ 1760}# + (cdr #{b\ 1758}#) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#)))))))))) + (if (pair? #{e\ 1738}#) (begin - (let ((#{first\ 1646}# (car #{e\ 1610}#))) + (let ((#{first\ 1774}# (car #{e\ 1738}#))) (call-with-values (lambda () - (#{syntax-type\ 457}# - #{first\ 1646}# - #{r\ 1611}# - #{w\ 1612}# - #{s\ 1613}# - #{rib\ 1614}# - #{mod\ 1615}# + (#{syntax-type\ 458}# + #{first\ 1774}# + #{r\ 1739}# + #{w\ 1740}# + #{s\ 1741}# + #{rib\ 1742}# + #{mod\ 1743}# #t)) - (lambda (#{ftype\ 1647}# - #{fval\ 1648}# - #{fe\ 1649}# - #{fw\ 1650}# - #{fs\ 1651}# - #{fmod\ 1652}#) - (if (eqv? #{ftype\ 1647}# 'lexical) + (lambda (#{ftype\ 1775}# + #{fval\ 1776}# + #{fe\ 1777}# + #{fw\ 1778}# + #{fs\ 1779}# + #{fmod\ 1780}#) + (if (eqv? #{ftype\ 1775}# 'lexical) (values 'lexical-call - #{fval\ 1648}# - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{ftype\ 1647}# 'global) + #{fval\ 1776}# + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{ftype\ 1775}# 'global) (values 'global-call - (#{make-syntax-object\ 343}# - #{fval\ 1648}# - #{w\ 1612}# - #{fmod\ 1652}#) - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{ftype\ 1647}# 'macro) - (#{syntax-type\ 457}# - (#{chi-macro\ 467}# - #{fval\ 1648}# - #{e\ 1610}# - #{r\ 1611}# - #{w\ 1612}# - #{s\ 1613}# - #{rib\ 1614}# - #{mod\ 1615}#) - #{r\ 1611}# + (#{make-syntax-object\ 344}# + #{fval\ 1776}# + #{w\ 1740}# + #{fmod\ 1780}#) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{ftype\ 1775}# 'macro) + (#{syntax-type\ 458}# + (#{chi-macro\ 466}# + #{fval\ 1776}# + #{e\ 1738}# + #{r\ 1739}# + #{w\ 1740}# + #{s\ 1741}# + #{rib\ 1742}# + #{mod\ 1743}#) + #{r\ 1739}# '(()) - #{s\ 1613}# - #{rib\ 1614}# - #{mod\ 1615}# - #{for-car?\ 1616}#) - (if (eqv? #{ftype\ 1647}# 'module-ref) + #{s\ 1741}# + #{rib\ 1742}# + #{mod\ 1743}# + #{for-car?\ 1744}#) + (if (eqv? #{ftype\ 1775}# 'module-ref) (call-with-values (lambda () - (#{fval\ 1648}# - #{e\ 1610}# - #{r\ 1611}# - #{w\ 1612}#)) - (lambda (#{e\ 1664}# - #{r\ 1665}# - #{w\ 1666}# - #{s\ 1667}# - #{mod\ 1668}#) - (#{syntax-type\ 457}# - #{e\ 1664}# - #{r\ 1665}# - #{w\ 1666}# - #{s\ 1667}# - #{rib\ 1614}# - #{mod\ 1668}# - #{for-car?\ 1616}#))) - (if (eqv? #{ftype\ 1647}# 'core) + (#{fval\ 1776}# + #{e\ 1738}# + #{r\ 1739}# + #{w\ 1740}#)) + (lambda (#{e\ 1792}# + #{r\ 1793}# + #{w\ 1794}# + #{s\ 1795}# + #{mod\ 1796}#) + (#{syntax-type\ 458}# + #{e\ 1792}# + #{r\ 1793}# + #{w\ 1794}# + #{s\ 1795}# + #{rib\ 1742}# + #{mod\ 1796}# + #{for-car?\ 1744}#))) + (if (eqv? #{ftype\ 1775}# 'core) (values 'core-form - #{fval\ 1648}# - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{ftype\ 1647}# 'local-syntax) + #{fval\ 1776}# + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{ftype\ 1775}# 'local-syntax) (values 'local-syntax-form - #{fval\ 1648}# - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{ftype\ 1647}# 'begin) + #{fval\ 1776}# + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{ftype\ 1775}# 'begin) (values 'begin-form #f - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{ftype\ 1647}# 'eval-when) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{ftype\ 1775}# 'eval-when) (values 'eval-when-form #f - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) - (if (eqv? #{ftype\ 1647}# 'define) - (let ((#{tmp\ 1679}# #{e\ 1610}#)) - (let ((#{tmp\ 1680}# + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) + (if (eqv? #{ftype\ 1775}# 'define) + (let ((#{tmp\ 1807}# #{e\ 1738}#)) + (let ((#{tmp\ 1808}# ($sc-dispatch - #{tmp\ 1679}# + #{tmp\ 1807}# '(_ any any)))) - (if (if #{tmp\ 1680}# + (if (if #{tmp\ 1808}# (@apply - (lambda (#{name\ 1683}# - #{val\ 1684}#) - (#{id?\ 379}# - #{name\ 1683}#)) - #{tmp\ 1680}#) + (lambda (#{name\ 1811}# + #{val\ 1812}#) + (#{id?\ 380}# + #{name\ 1811}#)) + #{tmp\ 1808}#) #f) (@apply - (lambda (#{name\ 1687}# - #{val\ 1688}#) + (lambda (#{name\ 1815}# + #{val\ 1816}#) (values 'define-form - #{name\ 1687}# - #{val\ 1688}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#)) - #{tmp\ 1680}#) - (let ((#{tmp\ 1689}# + #{name\ 1815}# + #{val\ 1816}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#)) + #{tmp\ 1808}#) + (let ((#{tmp\ 1817}# ($sc-dispatch - #{tmp\ 1679}# + #{tmp\ 1807}# '(_ (any . any) any . each-any)))) - (if (if #{tmp\ 1689}# + (if (if #{tmp\ 1817}# (@apply - (lambda (#{name\ 1694}# - #{args\ 1695}# - #{e1\ 1696}# - #{e2\ 1697}#) - (if (#{id?\ 379}# - #{name\ 1694}#) - (#{valid-bound-ids?\ 439}# - (#{lambda-var-list\ 491}# - #{args\ 1695}#)) + (lambda (#{name\ 1822}# + #{args\ 1823}# + #{e1\ 1824}# + #{e2\ 1825}#) + (if (#{id?\ 380}# + #{name\ 1822}#) + (#{valid-bound-ids?\ 440}# + (#{lambda-var-list\ 490}# + #{args\ 1823}#)) #f)) - #{tmp\ 1689}#) + #{tmp\ 1817}#) #f) (@apply - (lambda (#{name\ 1704}# - #{args\ 1705}# - #{e1\ 1706}# - #{e2\ 1707}#) + (lambda (#{name\ 1832}# + #{args\ 1833}# + #{e1\ 1834}# + #{e2\ 1835}#) (values 'define-form - (#{wrap\ 445}# - #{name\ 1704}# - #{w\ 1612}# - #{mod\ 1615}#) - (#{decorate-source\ 299}# + (#{wrap\ 446}# + #{name\ 1832}# + #{w\ 1740}# + #{mod\ 1743}#) + (#{decorate-source\ 300}# (cons '#(syntax-object lambda ((top) @@ -3202,10 +3604,10 @@ (top) (top) (top)) - #("i1700" - "i1701" - "i1702" - "i1703")) + #("i1828" + "i1829" + "i1830" + "i1831")) #(ribcage () () @@ -3227,12 +3629,12 @@ (top) (top) (top)) - #("i1653" - "i1654" - "i1655" - "i1656" - "i1657" - "i1658")) + #("i1781" + "i1782" + "i1783" + "i1784" + "i1785" + "i1786")) #(ribcage () () @@ -3240,7 +3642,7 @@ #(ribcage #(first) #((top)) - #("i1645")) + #("i1773")) #(ribcage () () @@ -3268,13 +3670,13 @@ (top) (top) (top)) - #("i1617" - "i1618" - "i1619" - "i1620" - "i1621" - "i1622" - "i1623")) + #("i1745" + "i1746" + "i1747" + "i1748" + "i1749" + "i1750" + "i1751")) #(ribcage (lambda-var-list gen-var @@ -3292,7 +3694,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -3548,60 +3949,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -3610,83 +4010,82 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors @@ -3696,49 +4095,49 @@ (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile)) - (#{wrap\ 445}# - (cons #{args\ 1705}# - (cons #{e1\ 1706}# - #{e2\ 1707}#)) - #{w\ 1612}# - #{mod\ 1615}#)) - #{s\ 1613}#) + (#{wrap\ 446}# + (cons #{args\ 1833}# + (cons #{e1\ 1834}# + #{e2\ 1835}#)) + #{w\ 1740}# + #{mod\ 1743}#)) + #{s\ 1741}#) '(()) - #{s\ 1613}# - #{mod\ 1615}#)) - #{tmp\ 1689}#) - (let ((#{tmp\ 1710}# + #{s\ 1741}# + #{mod\ 1743}#)) + #{tmp\ 1817}#) + (let ((#{tmp\ 1838}# ($sc-dispatch - #{tmp\ 1679}# + #{tmp\ 1807}# '(_ any)))) - (if (if #{tmp\ 1710}# + (if (if #{tmp\ 1838}# (@apply - (lambda (#{name\ 1712}#) - (#{id?\ 379}# - #{name\ 1712}#)) - #{tmp\ 1710}#) + (lambda (#{name\ 1840}#) + (#{id?\ 380}# + #{name\ 1840}#)) + #{tmp\ 1838}#) #f) (@apply - (lambda (#{name\ 1714}#) + (lambda (#{name\ 1842}#) (values 'define-form - (#{wrap\ 445}# - #{name\ 1714}# - #{w\ 1612}# - #{mod\ 1615}#) + (#{wrap\ 446}# + #{name\ 1842}# + #{w\ 1740}# + #{mod\ 1743}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i1713")) + #("i1841")) #(ribcage () () @@ -3760,12 +4159,12 @@ (top) (top) (top)) - #("i1653" - "i1654" - "i1655" - "i1656" - "i1657" - "i1658")) + #("i1781" + "i1782" + "i1783" + "i1784" + "i1785" + "i1786")) #(ribcage () () @@ -3773,7 +4172,7 @@ #(ribcage #(first) #((top)) - #("i1645")) + #("i1773")) #(ribcage () () @@ -3801,13 +4200,13 @@ (top) (top) (top)) - #("i1617" - "i1618" - "i1619" - "i1620" - "i1621" - "i1622" - "i1623")) + #("i1745" + "i1746" + "i1747" + "i1748" + "i1749" + "i1750" + "i1751")) #(ribcage (lambda-var-list gen-var @@ -3825,7 +4224,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -4081,60 +4479,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -4143,83 +4540,82 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors @@ -4229,10 +4625,10 @@ (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile)) #(syntax-object @@ -4241,7 +4637,7 @@ #(ribcage #(name) #((top)) - #("i1713")) + #("i1841")) #(ribcage () () @@ -4263,12 +4659,12 @@ (top) (top) (top)) - #("i1653" - "i1654" - "i1655" - "i1656" - "i1657" - "i1658")) + #("i1781" + "i1782" + "i1783" + "i1784" + "i1785" + "i1786")) #(ribcage () () @@ -4276,7 +4672,7 @@ #(ribcage #(first) #((top)) - #("i1645")) + #("i1773")) #(ribcage () () @@ -4304,13 +4700,13 @@ (top) (top) (top)) - #("i1617" - "i1618" - "i1619" - "i1620" - "i1621" - "i1622" - "i1623")) + #("i1745" + "i1746" + "i1747" + "i1748" + "i1749" + "i1750" + "i1751")) #(ribcage (lambda-var-list gen-var @@ -4328,7 +4724,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -4584,60 +4979,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -4646,83 +5040,82 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors @@ -4732,10 +5125,10 @@ (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile)) #(syntax-object @@ -4744,7 +5137,7 @@ #(ribcage #(name) #((top)) - #("i1713")) + #("i1841")) #(ribcage () () @@ -4766,12 +5159,12 @@ (top) (top) (top)) - #("i1653" - "i1654" - "i1655" - "i1656" - "i1657" - "i1658")) + #("i1781" + "i1782" + "i1783" + "i1784" + "i1785" + "i1786")) #(ribcage () () @@ -4779,7 +5172,7 @@ #(ribcage #(first) #((top)) - #("i1645")) + #("i1773")) #(ribcage () () @@ -4807,13 +5200,13 @@ (top) (top) (top)) - #("i1617" - "i1618" - "i1619" - "i1620" - "i1621" - "i1622" - "i1623")) + #("i1745" + "i1746" + "i1747" + "i1748" + "i1749" + "i1750" + "i1751")) #(ribcage (lambda-var-list gen-var @@ -4831,7 +5224,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -5087,60 +5479,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -5149,83 +5540,82 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors @@ -5235,1207 +5625,860 @@ (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile))) '(()) - #{s\ 1613}# - #{mod\ 1615}#)) - #{tmp\ 1710}#) + #{s\ 1741}# + #{mod\ 1743}#)) + #{tmp\ 1838}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1679}#)))))))) - (if (eqv? #{ftype\ 1647}# + #{tmp\ 1807}#)))))))) + (if (eqv? #{ftype\ 1775}# 'define-syntax) - (let ((#{tmp\ 1717}# #{e\ 1610}#)) - (let ((#{tmp\ 1718}# + (let ((#{tmp\ 1845}# #{e\ 1738}#)) + (let ((#{tmp\ 1846}# ($sc-dispatch - #{tmp\ 1717}# + #{tmp\ 1845}# '(_ any any)))) - (if (if #{tmp\ 1718}# + (if (if #{tmp\ 1846}# (@apply - (lambda (#{name\ 1721}# - #{val\ 1722}#) - (#{id?\ 379}# - #{name\ 1721}#)) - #{tmp\ 1718}#) + (lambda (#{name\ 1849}# + #{val\ 1850}#) + (#{id?\ 380}# + #{name\ 1849}#)) + #{tmp\ 1846}#) #f) (@apply - (lambda (#{name\ 1725}# - #{val\ 1726}#) + (lambda (#{name\ 1853}# + #{val\ 1854}#) (values 'define-syntax-form - #{name\ 1725}# - #{val\ 1726}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#)) - #{tmp\ 1718}#) + #{name\ 1853}# + #{val\ 1854}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#)) + #{tmp\ 1846}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1717}#)))) + #{tmp\ 1845}#)))) (values 'call #f - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#))))))))))))))) - (if (#{syntax-object?\ 345}# #{e\ 1610}#) - (#{syntax-type\ 457}# - (#{syntax-object-expression\ 347}# #{e\ 1610}#) - #{r\ 1611}# - (#{join-wraps\ 427}# - #{w\ 1612}# - (#{syntax-object-wrap\ 349}# #{e\ 1610}#)) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#))))))))))))))) + (if (#{syntax-object?\ 346}# #{e\ 1738}#) + (#{syntax-type\ 458}# + (#{syntax-object-expression\ 348}# #{e\ 1738}#) + #{r\ 1739}# + (#{join-wraps\ 428}# + #{w\ 1740}# + (#{syntax-object-wrap\ 350}# #{e\ 1738}#)) (begin - (let ((#{t\ 1732}# - (#{source-annotation\ 360}# #{e\ 1610}#))) - (if #{t\ 1732}# #{t\ 1732}# #{s\ 1613}#))) - #{rib\ 1614}# + (let ((#{t\ 1860}# + (#{source-annotation\ 361}# #{e\ 1738}#))) + (if #{t\ 1860}# #{t\ 1860}# #{s\ 1741}#))) + #{rib\ 1742}# (begin - (let ((#{t\ 1736}# - (#{syntax-object-module\ 351}# #{e\ 1610}#))) - (if #{t\ 1736}# #{t\ 1736}# #{mod\ 1615}#))) - #{for-car?\ 1616}#) - (if (self-evaluating? #{e\ 1610}#) + (let ((#{t\ 1864}# + (#{syntax-object-module\ 352}# #{e\ 1738}#))) + (if #{t\ 1864}# #{t\ 1864}# #{mod\ 1743}#))) + #{for-car?\ 1744}#) + (if (self-evaluating? #{e\ 1738}#) (values 'constant #f - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#) (values 'other #f - #{e\ 1610}# - #{w\ 1612}# - #{s\ 1613}# - #{mod\ 1615}#))))))) - (#{chi-top\ 459}# - (lambda (#{e\ 1741}# - #{r\ 1742}# - #{w\ 1743}# - #{m\ 1744}# - #{esew\ 1745}# - #{mod\ 1746}#) + #{e\ 1738}# + #{w\ 1740}# + #{s\ 1741}# + #{mod\ 1743}#))))))) + (#{chi\ 460}# + (lambda (#{e\ 1869}# + #{r\ 1870}# + #{w\ 1871}# + #{mod\ 1872}#) (call-with-values (lambda () - (#{syntax-type\ 457}# - #{e\ 1741}# - #{r\ 1742}# - #{w\ 1743}# - (#{source-annotation\ 360}# #{e\ 1741}#) + (#{syntax-type\ 458}# + #{e\ 1869}# + #{r\ 1870}# + #{w\ 1871}# + (#{source-annotation\ 361}# #{e\ 1869}#) #f - #{mod\ 1746}# + #{mod\ 1872}# #f)) - (lambda (#{type\ 1767}# - #{value\ 1768}# - #{e\ 1769}# - #{w\ 1770}# - #{s\ 1771}# - #{mod\ 1772}#) - (if (eqv? #{type\ 1767}# 'begin-form) - (let ((#{tmp\ 1780}# #{e\ 1769}#)) - (let ((#{tmp\ 1781}# ($sc-dispatch #{tmp\ 1780}# '(_)))) - (if #{tmp\ 1781}# - (@apply - (lambda () (#{chi-void\ 475}#)) - #{tmp\ 1781}#) - (let ((#{tmp\ 1782}# - ($sc-dispatch - #{tmp\ 1780}# - '(_ any . each-any)))) - (if #{tmp\ 1782}# - (@apply - (lambda (#{e1\ 1785}# #{e2\ 1786}#) - (#{chi-top-sequence\ 451}# - (cons #{e1\ 1785}# #{e2\ 1786}#) - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - #{m\ 1744}# - #{esew\ 1745}# - #{mod\ 1772}#)) - #{tmp\ 1782}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1780}#)))))) - (if (eqv? #{type\ 1767}# 'local-syntax-form) - (#{chi-local-syntax\ 471}# - #{value\ 1768}# - #{e\ 1769}# - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - #{mod\ 1772}# - (lambda (#{body\ 1789}# - #{r\ 1790}# - #{w\ 1791}# - #{s\ 1792}# - #{mod\ 1793}#) - (#{chi-top-sequence\ 451}# - #{body\ 1789}# - #{r\ 1790}# - #{w\ 1791}# - #{s\ 1792}# - #{m\ 1744}# - #{esew\ 1745}# - #{mod\ 1793}#))) - (if (eqv? #{type\ 1767}# 'eval-when-form) - (let ((#{tmp\ 1800}# #{e\ 1769}#)) - (let ((#{tmp\ 1801}# - ($sc-dispatch - #{tmp\ 1800}# - '(_ each-any any . each-any)))) - (if #{tmp\ 1801}# - (@apply - (lambda (#{x\ 1805}# #{e1\ 1806}# #{e2\ 1807}#) - (begin - (let ((#{when-list\ 1810}# - (#{chi-when-list\ 455}# - #{e\ 1769}# - #{x\ 1805}# - #{w\ 1770}#)) - (#{body\ 1811}# - (cons #{e1\ 1806}# #{e2\ 1807}#))) - (if (eq? #{m\ 1744}# 'e) - (if (memq 'eval #{when-list\ 1810}#) - (#{chi-top-sequence\ 451}# - #{body\ 1811}# - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - (if (memq 'expand - #{when-list\ 1810}#) - 'c&e - 'e) - '(eval) - #{mod\ 1772}#) - (begin - (if (memq 'expand - #{when-list\ 1810}#) - (#{top-level-eval-hook\ 290}# - (#{chi-top-sequence\ 451}# - #{body\ 1811}# - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - 'e - '(eval) - #{mod\ 1772}#) - #{mod\ 1772}#)) - (#{chi-void\ 475}#))) - (if (memq 'load #{when-list\ 1810}#) - (if (begin - (let ((#{t\ 1820}# - (memq 'compile - #{when-list\ 1810}#))) - (if #{t\ 1820}# - #{t\ 1820}# - (begin - (let ((#{t\ 1823}# - (memq 'expand - #{when-list\ 1810}#))) - (if #{t\ 1823}# - #{t\ 1823}# - (if (eq? #{m\ 1744}# - 'c&e) - (memq 'eval - #{when-list\ 1810}#) - #f))))))) - (#{chi-top-sequence\ 451}# - #{body\ 1811}# - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - 'c&e - '(compile load) - #{mod\ 1772}#) - (if (if (eq? #{m\ 1744}# 'c) - #t - (eq? #{m\ 1744}# 'c&e)) - (#{chi-top-sequence\ 451}# - #{body\ 1811}# - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - 'c - '(load) - #{mod\ 1772}#) - (#{chi-void\ 475}#))) - (if (begin - (let ((#{t\ 1831}# - (memq 'compile - #{when-list\ 1810}#))) - (if #{t\ 1831}# - #{t\ 1831}# - (begin - (let ((#{t\ 1834}# - (memq 'expand - #{when-list\ 1810}#))) - (if #{t\ 1834}# - #{t\ 1834}# - (if (eq? #{m\ 1744}# - 'c&e) - (memq 'eval - #{when-list\ 1810}#) - #f))))))) - (begin - (#{top-level-eval-hook\ 290}# - (#{chi-top-sequence\ 451}# - #{body\ 1811}# - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - 'e - '(eval) - #{mod\ 1772}#) - #{mod\ 1772}#) - (#{chi-void\ 475}#)) - (#{chi-void\ 475}#))))))) - #{tmp\ 1801}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp\ 1800}#)))) - (if (eqv? #{type\ 1767}# 'define-syntax-form) - (begin - (let ((#{n\ 1842}# - (#{id-var-name\ 433}# - #{value\ 1768}# - #{w\ 1770}#)) - (#{r\ 1843}# - (#{macros-only-env\ 371}# #{r\ 1742}#))) - (if (eqv? #{m\ 1744}# 'c) - (if (memq 'compile #{esew\ 1745}#) - (begin - (let ((#{e\ 1846}# - (#{chi-install-global\ 453}# - #{n\ 1842}# - (#{chi\ 461}# - #{e\ 1769}# - #{r\ 1843}# - #{w\ 1770}# - #{mod\ 1772}#)))) - (begin - (#{top-level-eval-hook\ 290}# - #{e\ 1846}# - #{mod\ 1772}#) - (if (memq 'load #{esew\ 1745}#) - #{e\ 1846}# - (#{chi-void\ 475}#))))) - (if (memq 'load #{esew\ 1745}#) - (#{chi-install-global\ 453}# - #{n\ 1842}# - (#{chi\ 461}# - #{e\ 1769}# - #{r\ 1843}# - #{w\ 1770}# - #{mod\ 1772}#)) - (#{chi-void\ 475}#))) - (if (eqv? #{m\ 1744}# 'c&e) - (begin - (let ((#{e\ 1849}# - (#{chi-install-global\ 453}# - #{n\ 1842}# - (#{chi\ 461}# - #{e\ 1769}# - #{r\ 1843}# - #{w\ 1770}# - #{mod\ 1772}#)))) - (begin - (#{top-level-eval-hook\ 290}# - #{e\ 1849}# - #{mod\ 1772}#) - #{e\ 1849}#))) - (begin - (if (memq 'eval #{esew\ 1745}#) - (#{top-level-eval-hook\ 290}# - (#{chi-install-global\ 453}# - #{n\ 1842}# - (#{chi\ 461}# - #{e\ 1769}# - #{r\ 1843}# - #{w\ 1770}# - #{mod\ 1772}#)) - #{mod\ 1772}#)) - (#{chi-void\ 475}#)))))) - (if (eqv? #{type\ 1767}# 'define-form) - (begin - (let ((#{n\ 1854}# - (#{id-var-name\ 433}# - #{value\ 1768}# - #{w\ 1770}#))) - (begin - (let ((#{type\ 1856}# - (car (#{lookup\ 373}# - #{n\ 1854}# - #{r\ 1742}# - #{mod\ 1772}#)))) - (if (if (eqv? #{type\ 1856}# 'global) - #t - (if (eqv? #{type\ 1856}# 'core) - #t - (if (eqv? #{type\ 1856}# 'macro) - #t - (eqv? #{type\ 1856}# - 'module-ref)))) - (begin - (if (if (if (eq? #{m\ 1744}# 'c) - #t - (eq? #{m\ 1744}# 'c&e)) - (if (not (module-local-variable - (current-module) - #{n\ 1854}#)) - (current-module) - #f) - #f) - (begin - (let ((#{old\ 1863}# - (module-variable - (current-module) - #{n\ 1854}#))) - (if (if (variable? #{old\ 1863}#) - (variable-bound? - #{old\ 1863}#) - #f) - (module-define! - (current-module) - #{n\ 1854}# - (variable-ref #{old\ 1863}#)) - (module-add! - (current-module) - #{n\ 1854}# - (make-undefined-variable)))))) - (begin - (let ((#{x\ 1868}# - (#{build-global-definition\ 321}# - #{s\ 1771}# - #{n\ 1854}# - (#{chi\ 461}# - #{e\ 1769}# - #{r\ 1742}# - #{w\ 1770}# - #{mod\ 1772}#)))) - (begin - (if (eq? #{m\ 1744}# 'c&e) - (#{top-level-eval-hook\ 290}# - #{x\ 1868}# - #{mod\ 1772}#)) - #{x\ 1868}#)))) - (if (eqv? #{type\ 1856}# - 'displaced-lexical) - (syntax-violation - #f - "identifier out of context" - #{e\ 1769}# - (#{wrap\ 445}# - #{value\ 1768}# - #{w\ 1770}# - #{mod\ 1772}#)) - (syntax-violation - #f - "cannot define keyword at top level" - #{e\ 1769}# - (#{wrap\ 445}# - #{value\ 1768}# - #{w\ 1770}# - #{mod\ 1772}#)))))))) - (begin - (let ((#{x\ 1874}# - (#{chi-expr\ 463}# - #{type\ 1767}# - #{value\ 1768}# - #{e\ 1769}# - #{r\ 1742}# - #{w\ 1770}# - #{s\ 1771}# - #{mod\ 1772}#))) - (begin - (if (eq? #{m\ 1744}# 'c&e) - (#{top-level-eval-hook\ 290}# - #{x\ 1874}# - #{mod\ 1772}#)) - #{x\ 1874}#)))))))))))) - (#{chi\ 461}# - (lambda (#{e\ 1875}# - #{r\ 1876}# - #{w\ 1877}# - #{mod\ 1878}#) - (call-with-values - (lambda () - (#{syntax-type\ 457}# - #{e\ 1875}# - #{r\ 1876}# - #{w\ 1877}# - (#{source-annotation\ 360}# #{e\ 1875}#) - #f - #{mod\ 1878}# - #f)) - (lambda (#{type\ 1883}# - #{value\ 1884}# - #{e\ 1885}# - #{w\ 1886}# - #{s\ 1887}# - #{mod\ 1888}#) - (#{chi-expr\ 463}# - #{type\ 1883}# - #{value\ 1884}# - #{e\ 1885}# - #{r\ 1876}# - #{w\ 1886}# - #{s\ 1887}# - #{mod\ 1888}#))))) - (#{chi-expr\ 463}# - (lambda (#{type\ 1895}# - #{value\ 1896}# - #{e\ 1897}# - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#) - (if (eqv? #{type\ 1895}# 'lexical) - (#{build-lexical-reference\ 311}# + (lambda (#{type\ 1877}# + #{value\ 1878}# + #{e\ 1879}# + #{w\ 1880}# + #{s\ 1881}# + #{mod\ 1882}#) + (#{chi-expr\ 462}# + #{type\ 1877}# + #{value\ 1878}# + #{e\ 1879}# + #{r\ 1870}# + #{w\ 1880}# + #{s\ 1881}# + #{mod\ 1882}#))))) + (#{chi-expr\ 462}# + (lambda (#{type\ 1889}# + #{value\ 1890}# + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#) + (if (eqv? #{type\ 1889}# 'lexical) + (#{build-lexical-reference\ 312}# 'value - #{s\ 1900}# - #{e\ 1897}# - #{value\ 1896}#) - (if (if (eqv? #{type\ 1895}# 'core) + #{s\ 1894}# + #{e\ 1891}# + #{value\ 1890}#) + (if (if (eqv? #{type\ 1889}# 'core) #t - (eqv? #{type\ 1895}# 'core-form)) - (#{value\ 1896}# - #{e\ 1897}# - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#) - (if (eqv? #{type\ 1895}# 'module-ref) + (eqv? #{type\ 1889}# 'core-form)) + (#{value\ 1890}# + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#) + (if (eqv? #{type\ 1889}# 'module-ref) (call-with-values (lambda () - (#{value\ 1896}# - #{e\ 1897}# - #{r\ 1898}# - #{w\ 1899}#)) - (lambda (#{e\ 1912}# - #{r\ 1913}# - #{w\ 1914}# - #{s\ 1915}# - #{mod\ 1916}#) - (#{chi\ 461}# - #{e\ 1912}# - #{r\ 1913}# - #{w\ 1914}# - #{mod\ 1916}#))) - (if (eqv? #{type\ 1895}# 'lexical-call) - (#{chi-application\ 465}# + (#{value\ 1890}# + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}#)) + (lambda (#{e\ 1906}# + #{r\ 1907}# + #{w\ 1908}# + #{s\ 1909}# + #{mod\ 1910}#) + (#{chi\ 460}# + #{e\ 1906}# + #{r\ 1907}# + #{w\ 1908}# + #{mod\ 1910}#))) + (if (eqv? #{type\ 1889}# 'lexical-call) + (#{chi-application\ 464}# (begin - (let ((#{id\ 1924}# (car #{e\ 1897}#))) - (#{build-lexical-reference\ 311}# + (let ((#{id\ 1918}# (car #{e\ 1891}#))) + (#{build-lexical-reference\ 312}# 'fun - (#{source-annotation\ 360}# #{id\ 1924}#) - (if (#{syntax-object?\ 345}# #{id\ 1924}#) - (syntax->datum #{id\ 1924}#) - #{id\ 1924}#) - #{value\ 1896}#))) - #{e\ 1897}# - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#) - (if (eqv? #{type\ 1895}# 'global-call) - (#{chi-application\ 465}# - (#{build-global-reference\ 317}# - (#{source-annotation\ 360}# (car #{e\ 1897}#)) - (if (#{syntax-object?\ 345}# #{value\ 1896}#) - (#{syntax-object-expression\ 347}# - #{value\ 1896}#) - #{value\ 1896}#) - (if (#{syntax-object?\ 345}# #{value\ 1896}#) - (#{syntax-object-module\ 351}# #{value\ 1896}#) - #{mod\ 1901}#)) - #{e\ 1897}# - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#) - (if (eqv? #{type\ 1895}# 'constant) - (#{build-data\ 331}# - #{s\ 1900}# - (#{strip\ 487}# - (#{source-wrap\ 447}# - #{e\ 1897}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#) + (#{source-annotation\ 361}# #{id\ 1918}#) + (if (#{syntax-object?\ 346}# #{id\ 1918}#) + (syntax->datum #{id\ 1918}#) + #{id\ 1918}#) + #{value\ 1890}#))) + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#) + (if (eqv? #{type\ 1889}# 'global-call) + (#{chi-application\ 464}# + (#{build-global-reference\ 318}# + (#{source-annotation\ 361}# (car #{e\ 1891}#)) + (if (#{syntax-object?\ 346}# #{value\ 1890}#) + (#{syntax-object-expression\ 348}# + #{value\ 1890}#) + #{value\ 1890}#) + (if (#{syntax-object?\ 346}# #{value\ 1890}#) + (#{syntax-object-module\ 352}# #{value\ 1890}#) + #{mod\ 1895}#)) + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#) + (if (eqv? #{type\ 1889}# 'constant) + (#{build-data\ 332}# + #{s\ 1894}# + (#{strip\ 486}# + (#{source-wrap\ 448}# + #{e\ 1891}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#) '(()))) - (if (eqv? #{type\ 1895}# 'global) - (#{build-global-reference\ 317}# - #{s\ 1900}# - #{value\ 1896}# - #{mod\ 1901}#) - (if (eqv? #{type\ 1895}# 'call) - (#{chi-application\ 465}# - (#{chi\ 461}# - (car #{e\ 1897}#) - #{r\ 1898}# - #{w\ 1899}# - #{mod\ 1901}#) - #{e\ 1897}# - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#) - (if (eqv? #{type\ 1895}# 'begin-form) - (let ((#{tmp\ 1931}# #{e\ 1897}#)) - (let ((#{tmp\ 1932}# + (if (eqv? #{type\ 1889}# 'global) + (#{build-global-reference\ 318}# + #{s\ 1894}# + #{value\ 1890}# + #{mod\ 1895}#) + (if (eqv? #{type\ 1889}# 'call) + (#{chi-application\ 464}# + (#{chi\ 460}# + (car #{e\ 1891}#) + #{r\ 1892}# + #{w\ 1893}# + #{mod\ 1895}#) + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#) + (if (eqv? #{type\ 1889}# 'begin-form) + (let ((#{tmp\ 1925}# #{e\ 1891}#)) + (let ((#{tmp\ 1926}# ($sc-dispatch - #{tmp\ 1931}# + #{tmp\ 1925}# '(_ any . each-any)))) - (if #{tmp\ 1932}# + (if #{tmp\ 1926}# (@apply - (lambda (#{e1\ 1935}# #{e2\ 1936}#) - (#{chi-sequence\ 449}# - (cons #{e1\ 1935}# #{e2\ 1936}#) - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#)) - #{tmp\ 1932}#) + (lambda (#{e1\ 1929}# #{e2\ 1930}#) + (#{chi-sequence\ 450}# + (cons #{e1\ 1929}# #{e2\ 1930}#) + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#)) + #{tmp\ 1926}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1931}#)))) - (if (eqv? #{type\ 1895}# 'local-syntax-form) - (#{chi-local-syntax\ 471}# - #{value\ 1896}# - #{e\ 1897}# - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}# - #{chi-sequence\ 449}#) - (if (eqv? #{type\ 1895}# 'eval-when-form) - (let ((#{tmp\ 1940}# #{e\ 1897}#)) - (let ((#{tmp\ 1941}# + #{tmp\ 1925}#)))) + (if (eqv? #{type\ 1889}# 'local-syntax-form) + (#{chi-local-syntax\ 470}# + #{value\ 1890}# + #{e\ 1891}# + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}# + #{chi-sequence\ 450}#) + (if (eqv? #{type\ 1889}# 'eval-when-form) + (let ((#{tmp\ 1934}# #{e\ 1891}#)) + (let ((#{tmp\ 1935}# ($sc-dispatch - #{tmp\ 1940}# + #{tmp\ 1934}# '(_ each-any any . each-any)))) - (if #{tmp\ 1941}# + (if #{tmp\ 1935}# (@apply - (lambda (#{x\ 1945}# - #{e1\ 1946}# - #{e2\ 1947}#) + (lambda (#{x\ 1939}# + #{e1\ 1940}# + #{e2\ 1941}#) (begin - (let ((#{when-list\ 1949}# - (#{chi-when-list\ 455}# - #{e\ 1897}# - #{x\ 1945}# - #{w\ 1899}#))) + (let ((#{when-list\ 1943}# + (#{chi-when-list\ 456}# + #{e\ 1891}# + #{x\ 1939}# + #{w\ 1893}#))) (if (memq 'eval - #{when-list\ 1949}#) - (#{chi-sequence\ 449}# - (cons #{e1\ 1946}# - #{e2\ 1947}#) - #{r\ 1898}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#) - (#{chi-void\ 475}#))))) - #{tmp\ 1941}#) + #{when-list\ 1943}#) + (#{chi-sequence\ 450}# + (cons #{e1\ 1940}# + #{e2\ 1941}#) + #{r\ 1892}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#) + (#{chi-void\ 474}#))))) + #{tmp\ 1935}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1940}#)))) - (if (if (eqv? #{type\ 1895}# 'define-form) + #{tmp\ 1934}#)))) + (if (if (eqv? #{type\ 1889}# 'define-form) #t - (eqv? #{type\ 1895}# + (eqv? #{type\ 1889}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1897}# - (#{wrap\ 445}# - #{value\ 1896}# - #{w\ 1899}# - #{mod\ 1901}#)) - (if (eqv? #{type\ 1895}# 'syntax) + #{e\ 1891}# + (#{wrap\ 446}# + #{value\ 1890}# + #{w\ 1893}# + #{mod\ 1895}#)) + (if (eqv? #{type\ 1889}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 447}# - #{e\ 1897}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#)) - (if (eqv? #{type\ 1895}# + (#{source-wrap\ 448}# + #{e\ 1891}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#)) + (if (eqv? #{type\ 1889}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 447}# - #{e\ 1897}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#)) + (#{source-wrap\ 448}# + #{e\ 1891}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 447}# - #{e\ 1897}# - #{w\ 1899}# - #{s\ 1900}# - #{mod\ 1901}#)))))))))))))))))) - (#{chi-application\ 465}# - (lambda (#{x\ 1956}# - #{e\ 1957}# - #{r\ 1958}# - #{w\ 1959}# - #{s\ 1960}# - #{mod\ 1961}#) - (let ((#{tmp\ 1968}# #{e\ 1957}#)) - (let ((#{tmp\ 1969}# - ($sc-dispatch #{tmp\ 1968}# '(any . each-any)))) - (if #{tmp\ 1969}# + (#{source-wrap\ 448}# + #{e\ 1891}# + #{w\ 1893}# + #{s\ 1894}# + #{mod\ 1895}#)))))))))))))))))) + (#{chi-application\ 464}# + (lambda (#{x\ 1950}# + #{e\ 1951}# + #{r\ 1952}# + #{w\ 1953}# + #{s\ 1954}# + #{mod\ 1955}#) + (let ((#{tmp\ 1962}# #{e\ 1951}#)) + (let ((#{tmp\ 1963}# + ($sc-dispatch #{tmp\ 1962}# '(any . each-any)))) + (if #{tmp\ 1963}# (@apply - (lambda (#{e0\ 1972}# #{e1\ 1973}#) - (#{build-application\ 305}# - #{s\ 1960}# - #{x\ 1956}# - (map (lambda (#{e\ 1974}#) - (#{chi\ 461}# - #{e\ 1974}# - #{r\ 1958}# - #{w\ 1959}# - #{mod\ 1961}#)) - #{e1\ 1973}#))) - #{tmp\ 1969}#) + (lambda (#{e0\ 1966}# #{e1\ 1967}#) + (#{build-application\ 306}# + #{s\ 1954}# + #{x\ 1950}# + (map (lambda (#{e\ 1968}#) + (#{chi\ 460}# + #{e\ 1968}# + #{r\ 1952}# + #{w\ 1953}# + #{mod\ 1955}#)) + #{e1\ 1967}#))) + #{tmp\ 1963}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1968}#)))))) - (#{chi-macro\ 467}# - (lambda (#{p\ 1977}# - #{e\ 1978}# - #{r\ 1979}# - #{w\ 1980}# - #{s\ 1981}# - #{rib\ 1982}# - #{mod\ 1983}#) + #{tmp\ 1962}#)))))) + (#{chi-macro\ 466}# + (lambda (#{p\ 1971}# + #{e\ 1972}# + #{r\ 1973}# + #{w\ 1974}# + #{s\ 1975}# + #{rib\ 1976}# + #{mod\ 1977}#) (letrec* - ((#{rebuild-macro-output\ 1992}# - (lambda (#{x\ 1993}# #{m\ 1994}#) - (if (pair? #{x\ 1993}#) - (#{decorate-source\ 299}# - (cons (#{rebuild-macro-output\ 1992}# - (car #{x\ 1993}#) - #{m\ 1994}#) - (#{rebuild-macro-output\ 1992}# - (cdr #{x\ 1993}#) - #{m\ 1994}#)) - #{s\ 1981}#) - (if (#{syntax-object?\ 345}# #{x\ 1993}#) + ((#{rebuild-macro-output\ 1986}# + (lambda (#{x\ 1987}# #{m\ 1988}#) + (if (pair? #{x\ 1987}#) + (#{decorate-source\ 300}# + (cons (#{rebuild-macro-output\ 1986}# + (car #{x\ 1987}#) + #{m\ 1988}#) + (#{rebuild-macro-output\ 1986}# + (cdr #{x\ 1987}#) + #{m\ 1988}#)) + #{s\ 1975}#) + (if (#{syntax-object?\ 346}# #{x\ 1987}#) (begin - (let ((#{w\ 2002}# - (#{syntax-object-wrap\ 349}# #{x\ 1993}#))) + (let ((#{w\ 1996}# + (#{syntax-object-wrap\ 350}# #{x\ 1987}#))) (begin - (let ((#{ms\ 2005}# (car #{w\ 2002}#)) - (#{s\ 2006}# (cdr #{w\ 2002}#))) - (if (if (pair? #{ms\ 2005}#) - (eq? (car #{ms\ 2005}#) #f) + (let ((#{ms\ 1999}# (car #{w\ 1996}#)) + (#{s\ 2000}# (cdr #{w\ 1996}#))) + (if (if (pair? #{ms\ 1999}#) + (eq? (car #{ms\ 1999}#) #f) #f) - (#{make-syntax-object\ 343}# - (#{syntax-object-expression\ 347}# - #{x\ 1993}#) - (cons (cdr #{ms\ 2005}#) - (if #{rib\ 1982}# - (cons #{rib\ 1982}# - (cdr #{s\ 2006}#)) - (cdr #{s\ 2006}#))) - (#{syntax-object-module\ 351}# - #{x\ 1993}#)) - (#{make-syntax-object\ 343}# - (#{decorate-source\ 299}# - (#{syntax-object-expression\ 347}# - #{x\ 1993}#) - #{s\ 2006}#) - (cons (cons #{m\ 1994}# #{ms\ 2005}#) - (if #{rib\ 1982}# - (cons #{rib\ 1982}# - (cons 'shift #{s\ 2006}#)) - (cons 'shift #{s\ 2006}#))) - (#{syntax-object-module\ 351}# - #{x\ 1993}#))))))) - (if (vector? #{x\ 1993}#) + (#{make-syntax-object\ 344}# + (#{syntax-object-expression\ 348}# + #{x\ 1987}#) + (cons (cdr #{ms\ 1999}#) + (if #{rib\ 1976}# + (cons #{rib\ 1976}# + (cdr #{s\ 2000}#)) + (cdr #{s\ 2000}#))) + (#{syntax-object-module\ 352}# + #{x\ 1987}#)) + (#{make-syntax-object\ 344}# + (#{decorate-source\ 300}# + (#{syntax-object-expression\ 348}# + #{x\ 1987}#) + #{s\ 2000}#) + (cons (cons #{m\ 1988}# #{ms\ 1999}#) + (if #{rib\ 1976}# + (cons #{rib\ 1976}# + (cons 'shift #{s\ 2000}#)) + (cons 'shift #{s\ 2000}#))) + (#{syntax-object-module\ 352}# + #{x\ 1987}#))))))) + (if (vector? #{x\ 1987}#) (begin - (let ((#{n\ 2018}# (vector-length #{x\ 1993}#))) + (let ((#{n\ 2012}# (vector-length #{x\ 1987}#))) (begin - (let ((#{v\ 2020}# - (#{decorate-source\ 299}# - (make-vector #{n\ 2018}#) - #{x\ 1993}#))) + (let ((#{v\ 2014}# + (#{decorate-source\ 300}# + (make-vector #{n\ 2012}#) + #{x\ 1987}#))) (letrec* - ((#{loop\ 2023}# - (lambda (#{i\ 2024}#) - (if (#{fx=\ 286}# - #{i\ 2024}# - #{n\ 2018}#) - (begin (if #f #f) #{v\ 2020}#) + ((#{loop\ 2017}# + (lambda (#{i\ 2018}#) + (if (#{fx=\ 287}# + #{i\ 2018}# + #{n\ 2012}#) + (begin (if #f #f) #{v\ 2014}#) (begin (vector-set! - #{v\ 2020}# - #{i\ 2024}# - (#{rebuild-macro-output\ 1992}# + #{v\ 2014}# + #{i\ 2018}# + (#{rebuild-macro-output\ 1986}# (vector-ref - #{x\ 1993}# - #{i\ 2024}#) - #{m\ 1994}#)) - (#{loop\ 2023}# - (#{fx+\ 282}# - #{i\ 2024}# + #{x\ 1987}# + #{i\ 2018}#) + #{m\ 1988}#)) + (#{loop\ 2017}# + (#{fx+\ 283}# + #{i\ 2018}# 1))))))) - (begin (#{loop\ 2023}# 0))))))) - (if (symbol? #{x\ 1993}#) + (begin (#{loop\ 2017}# 0))))))) + (if (symbol? #{x\ 1987}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 447}# - #{e\ 1978}# - #{w\ 1980}# - (cdr #{w\ 1980}#) - #{mod\ 1983}#) - #{x\ 1993}#) - (#{decorate-source\ 299}# - #{x\ 1993}# - #{s\ 1981}#)))))))) + (#{source-wrap\ 448}# + #{e\ 1972}# + #{w\ 1974}# + (cdr #{w\ 1974}#) + #{mod\ 1977}#) + #{x\ 1987}#) + (#{decorate-source\ 300}# + #{x\ 1987}# + #{s\ 1975}#)))))))) (begin - (#{rebuild-macro-output\ 1992}# - (#{p\ 1977}# - (#{source-wrap\ 447}# - #{e\ 1978}# - (#{anti-mark\ 417}# #{w\ 1980}#) - #{s\ 1981}# - #{mod\ 1983}#)) + (#{rebuild-macro-output\ 1986}# + (#{p\ 1971}# + (#{source-wrap\ 448}# + #{e\ 1972}# + (#{anti-mark\ 418}# #{w\ 1974}#) + #{s\ 1975}# + #{mod\ 1977}#)) (gensym "m")))))) - (#{chi-body\ 469}# - (lambda (#{body\ 2032}# - #{outer-form\ 2033}# - #{r\ 2034}# - #{w\ 2035}# - #{mod\ 2036}#) + (#{chi-body\ 468}# + (lambda (#{body\ 2026}# + #{outer-form\ 2027}# + #{r\ 2028}# + #{w\ 2029}# + #{mod\ 2030}#) (begin - (let ((#{r\ 2044}# - (cons '("placeholder" placeholder) #{r\ 2034}#))) + (let ((#{r\ 2038}# + (cons '("placeholder" placeholder) #{r\ 2028}#))) (begin - (let ((#{ribcage\ 2046}# - (#{make-ribcage\ 397}# '() '() '()))) + (let ((#{ribcage\ 2040}# + (#{make-ribcage\ 398}# '() '() '()))) (begin - (let ((#{w\ 2049}# - (cons (car #{w\ 2035}#) - (cons #{ribcage\ 2046}# - (cdr #{w\ 2035}#))))) + (let ((#{w\ 2043}# + (cons (car #{w\ 2029}#) + (cons #{ribcage\ 2040}# + (cdr #{w\ 2029}#))))) (letrec* - ((#{parse\ 2061}# - (lambda (#{body\ 2062}# - #{ids\ 2063}# - #{labels\ 2064}# - #{var-ids\ 2065}# - #{vars\ 2066}# - #{vals\ 2067}# - #{bindings\ 2068}#) - (if (null? #{body\ 2062}#) + ((#{parse\ 2055}# + (lambda (#{body\ 2056}# + #{ids\ 2057}# + #{labels\ 2058}# + #{var-ids\ 2059}# + #{vars\ 2060}# + #{vals\ 2061}# + #{bindings\ 2062}#) + (if (null? #{body\ 2056}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 2033}#) + #{outer-form\ 2027}#) (begin - (let ((#{e\ 2073}# - (cdr (car #{body\ 2062}#))) - (#{er\ 2074}# - (car (car #{body\ 2062}#)))) + (let ((#{e\ 2067}# + (cdr (car #{body\ 2056}#))) + (#{er\ 2068}# + (car (car #{body\ 2056}#)))) (call-with-values (lambda () - (#{syntax-type\ 457}# - #{e\ 2073}# - #{er\ 2074}# + (#{syntax-type\ 458}# + #{e\ 2067}# + #{er\ 2068}# '(()) - (#{source-annotation\ 360}# - #{er\ 2074}#) - #{ribcage\ 2046}# - #{mod\ 2036}# + (#{source-annotation\ 361}# + #{er\ 2068}#) + #{ribcage\ 2040}# + #{mod\ 2030}# #f)) - (lambda (#{type\ 2076}# - #{value\ 2077}# - #{e\ 2078}# - #{w\ 2079}# - #{s\ 2080}# - #{mod\ 2081}#) - (if (eqv? #{type\ 2076}# + (lambda (#{type\ 2070}# + #{value\ 2071}# + #{e\ 2072}# + #{w\ 2073}# + #{s\ 2074}# + #{mod\ 2075}#) + (if (eqv? #{type\ 2070}# 'define-form) (begin - (let ((#{id\ 2091}# - (#{wrap\ 445}# - #{value\ 2077}# - #{w\ 2079}# - #{mod\ 2081}#)) - (#{label\ 2092}# - (#{gen-label\ 392}#))) + (let ((#{id\ 2085}# + (#{wrap\ 446}# + #{value\ 2071}# + #{w\ 2073}# + #{mod\ 2075}#)) + (#{label\ 2086}# + (#{gen-label\ 393}#))) (begin - (let ((#{var\ 2094}# - (#{gen-var\ 489}# - #{id\ 2091}#))) + (let ((#{var\ 2088}# + (#{gen-var\ 488}# + #{id\ 2085}#))) (begin - (#{extend-ribcage!\ 421}# - #{ribcage\ 2046}# - #{id\ 2091}# - #{label\ 2092}#) - (#{parse\ 2061}# - (cdr #{body\ 2062}#) - (cons #{id\ 2091}# - #{ids\ 2063}#) - (cons #{label\ 2092}# - #{labels\ 2064}#) - (cons #{id\ 2091}# - #{var-ids\ 2065}#) - (cons #{var\ 2094}# - #{vars\ 2066}#) - (cons (cons #{er\ 2074}# - (#{wrap\ 445}# - #{e\ 2078}# - #{w\ 2079}# - #{mod\ 2081}#)) - #{vals\ 2067}#) + (#{extend-ribcage!\ 422}# + #{ribcage\ 2040}# + #{id\ 2085}# + #{label\ 2086}#) + (#{parse\ 2055}# + (cdr #{body\ 2056}#) + (cons #{id\ 2085}# + #{ids\ 2057}#) + (cons #{label\ 2086}# + #{labels\ 2058}#) + (cons #{id\ 2085}# + #{var-ids\ 2059}#) + (cons #{var\ 2088}# + #{vars\ 2060}#) + (cons (cons #{er\ 2068}# + (#{wrap\ 446}# + #{e\ 2072}# + #{w\ 2073}# + #{mod\ 2075}#)) + #{vals\ 2061}#) (cons (cons 'lexical - #{var\ 2094}#) - #{bindings\ 2068}#))))))) - (if (eqv? #{type\ 2076}# + #{var\ 2088}#) + #{bindings\ 2062}#))))))) + (if (eqv? #{type\ 2070}# 'define-syntax-form) (begin - (let ((#{id\ 2099}# - (#{wrap\ 445}# - #{value\ 2077}# - #{w\ 2079}# - #{mod\ 2081}#)) - (#{label\ 2100}# - (#{gen-label\ 392}#))) + (let ((#{id\ 2093}# + (#{wrap\ 446}# + #{value\ 2071}# + #{w\ 2073}# + #{mod\ 2075}#)) + (#{label\ 2094}# + (#{gen-label\ 393}#))) (begin - (#{extend-ribcage!\ 421}# - #{ribcage\ 2046}# - #{id\ 2099}# - #{label\ 2100}#) - (#{parse\ 2061}# - (cdr #{body\ 2062}#) - (cons #{id\ 2099}# - #{ids\ 2063}#) - (cons #{label\ 2100}# - #{labels\ 2064}#) - #{var-ids\ 2065}# - #{vars\ 2066}# - #{vals\ 2067}# + (#{extend-ribcage!\ 422}# + #{ribcage\ 2040}# + #{id\ 2093}# + #{label\ 2094}#) + (#{parse\ 2055}# + (cdr #{body\ 2056}#) + (cons #{id\ 2093}# + #{ids\ 2057}#) + (cons #{label\ 2094}# + #{labels\ 2058}#) + #{var-ids\ 2059}# + #{vars\ 2060}# + #{vals\ 2061}# (cons (cons 'macro - (cons #{er\ 2074}# - (#{wrap\ 445}# - #{e\ 2078}# - #{w\ 2079}# - #{mod\ 2081}#))) - #{bindings\ 2068}#))))) - (if (eqv? #{type\ 2076}# + (cons #{er\ 2068}# + (#{wrap\ 446}# + #{e\ 2072}# + #{w\ 2073}# + #{mod\ 2075}#))) + #{bindings\ 2062}#))))) + (if (eqv? #{type\ 2070}# 'begin-form) - (let ((#{tmp\ 2103}# - #{e\ 2078}#)) - (let ((#{tmp\ 2104}# + (let ((#{tmp\ 2097}# + #{e\ 2072}#)) + (let ((#{tmp\ 2098}# ($sc-dispatch - #{tmp\ 2103}# + #{tmp\ 2097}# '(_ . each-any)))) - (if #{tmp\ 2104}# + (if #{tmp\ 2098}# (@apply - (lambda (#{e1\ 2106}#) - (#{parse\ 2061}# + (lambda (#{e1\ 2100}#) + (#{parse\ 2055}# (letrec* - ((#{f\ 2109}# - (lambda (#{forms\ 2110}#) - (if (null? #{forms\ 2110}#) - (cdr #{body\ 2062}#) - (cons (cons #{er\ 2074}# - (#{wrap\ 445}# - (car #{forms\ 2110}#) - #{w\ 2079}# - #{mod\ 2081}#)) - (#{f\ 2109}# - (cdr #{forms\ 2110}#))))))) + ((#{f\ 2103}# + (lambda (#{forms\ 2104}#) + (if (null? #{forms\ 2104}#) + (cdr #{body\ 2056}#) + (cons (cons #{er\ 2068}# + (#{wrap\ 446}# + (car #{forms\ 2104}#) + #{w\ 2073}# + #{mod\ 2075}#)) + (#{f\ 2103}# + (cdr #{forms\ 2104}#))))))) (begin - (#{f\ 2109}# - #{e1\ 2106}#))) - #{ids\ 2063}# - #{labels\ 2064}# - #{var-ids\ 2065}# - #{vars\ 2066}# - #{vals\ 2067}# - #{bindings\ 2068}#)) - #{tmp\ 2104}#) + (#{f\ 2103}# + #{e1\ 2100}#))) + #{ids\ 2057}# + #{labels\ 2058}# + #{var-ids\ 2059}# + #{vars\ 2060}# + #{vals\ 2061}# + #{bindings\ 2062}#)) + #{tmp\ 2098}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2103}#)))) - (if (eqv? #{type\ 2076}# + #{tmp\ 2097}#)))) + (if (eqv? #{type\ 2070}# 'local-syntax-form) - (#{chi-local-syntax\ 471}# - #{value\ 2077}# - #{e\ 2078}# - #{er\ 2074}# - #{w\ 2079}# - #{s\ 2080}# - #{mod\ 2081}# - (lambda (#{forms\ 2113}# - #{er\ 2114}# - #{w\ 2115}# - #{s\ 2116}# - #{mod\ 2117}#) - (#{parse\ 2061}# + (#{chi-local-syntax\ 470}# + #{value\ 2071}# + #{e\ 2072}# + #{er\ 2068}# + #{w\ 2073}# + #{s\ 2074}# + #{mod\ 2075}# + (lambda (#{forms\ 2107}# + #{er\ 2108}# + #{w\ 2109}# + #{s\ 2110}# + #{mod\ 2111}#) + (#{parse\ 2055}# (letrec* - ((#{f\ 2125}# - (lambda (#{forms\ 2126}#) - (if (null? #{forms\ 2126}#) - (cdr #{body\ 2062}#) - (cons (cons #{er\ 2114}# - (#{wrap\ 445}# - (car #{forms\ 2126}#) - #{w\ 2115}# - #{mod\ 2117}#)) - (#{f\ 2125}# - (cdr #{forms\ 2126}#))))))) + ((#{f\ 2119}# + (lambda (#{forms\ 2120}#) + (if (null? #{forms\ 2120}#) + (cdr #{body\ 2056}#) + (cons (cons #{er\ 2108}# + (#{wrap\ 446}# + (car #{forms\ 2120}#) + #{w\ 2109}# + #{mod\ 2111}#)) + (#{f\ 2119}# + (cdr #{forms\ 2120}#))))))) (begin - (#{f\ 2125}# - #{forms\ 2113}#))) - #{ids\ 2063}# - #{labels\ 2064}# - #{var-ids\ 2065}# - #{vars\ 2066}# - #{vals\ 2067}# - #{bindings\ 2068}#))) - (if (null? #{ids\ 2063}#) - (#{build-sequence\ 333}# + (#{f\ 2119}# + #{forms\ 2107}#))) + #{ids\ 2057}# + #{labels\ 2058}# + #{var-ids\ 2059}# + #{vars\ 2060}# + #{vals\ 2061}# + #{bindings\ 2062}#))) + (if (null? #{ids\ 2057}#) + (#{build-sequence\ 334}# #f - (map (lambda (#{x\ 2129}#) - (#{chi\ 461}# - (cdr #{x\ 2129}#) - (car #{x\ 2129}#) + (map (lambda (#{x\ 2123}#) + (#{chi\ 460}# + (cdr #{x\ 2123}#) + (car #{x\ 2123}#) '(()) - #{mod\ 2081}#)) - (cons (cons #{er\ 2074}# - (#{source-wrap\ 447}# - #{e\ 2078}# - #{w\ 2079}# - #{s\ 2080}# - #{mod\ 2081}#)) - (cdr #{body\ 2062}#)))) + #{mod\ 2075}#)) + (cons (cons #{er\ 2068}# + (#{source-wrap\ 448}# + #{e\ 2072}# + #{w\ 2073}# + #{s\ 2074}# + #{mod\ 2075}#)) + (cdr #{body\ 2056}#)))) (begin - (if (not (#{valid-bound-ids?\ 439}# - #{ids\ 2063}#)) + (if (not (#{valid-bound-ids?\ 440}# + #{ids\ 2057}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 2033}#)) + #{outer-form\ 2027}#)) (letrec* - ((#{loop\ 2136}# - (lambda (#{bs\ 2137}# - #{er-cache\ 2138}# - #{r-cache\ 2139}#) - (if (not (null? #{bs\ 2137}#)) + ((#{loop\ 2130}# + (lambda (#{bs\ 2131}# + #{er-cache\ 2132}# + #{r-cache\ 2133}#) + (if (not (null? #{bs\ 2131}#)) (begin - (let ((#{b\ 2142}# - (car #{bs\ 2137}#))) - (if (eq? (car #{b\ 2142}#) + (let ((#{b\ 2136}# + (car #{bs\ 2131}#))) + (if (eq? (car #{b\ 2136}#) 'macro) (begin - (let ((#{er\ 2145}# - (car (cdr #{b\ 2142}#)))) + (let ((#{er\ 2139}# + (car (cdr #{b\ 2136}#)))) (begin - (let ((#{r-cache\ 2147}# - (if (eq? #{er\ 2145}# - #{er-cache\ 2138}#) - #{r-cache\ 2139}# - (#{macros-only-env\ 371}# - #{er\ 2145}#)))) + (let ((#{r-cache\ 2141}# + (if (eq? #{er\ 2139}# + #{er-cache\ 2132}#) + #{r-cache\ 2133}# + (#{macros-only-env\ 372}# + #{er\ 2139}#)))) (begin (set-cdr! - #{b\ 2142}# - (#{eval-local-transformer\ 473}# - (#{chi\ 461}# - (cdr (cdr #{b\ 2142}#)) - #{r-cache\ 2147}# + #{b\ 2136}# + (#{eval-local-transformer\ 472}# + (#{chi\ 460}# + (cdr (cdr #{b\ 2136}#)) + #{r-cache\ 2141}# '(()) - #{mod\ 2081}#) - #{mod\ 2081}#)) - (#{loop\ 2136}# - (cdr #{bs\ 2137}#) - #{er\ 2145}# - #{r-cache\ 2147}#)))))) - (#{loop\ 2136}# - (cdr #{bs\ 2137}#) - #{er-cache\ 2138}# - #{r-cache\ 2139}#)))))))) + #{mod\ 2075}#) + #{mod\ 2075}#)) + (#{loop\ 2130}# + (cdr #{bs\ 2131}#) + #{er\ 2139}# + #{r-cache\ 2141}#)))))) + (#{loop\ 2130}# + (cdr #{bs\ 2131}#) + #{er-cache\ 2132}# + #{r-cache\ 2133}#)))))))) (begin - (#{loop\ 2136}# - #{bindings\ 2068}# + (#{loop\ 2130}# + #{bindings\ 2062}# #f #f))) (set-cdr! - #{r\ 2044}# - (#{extend-env\ 367}# - #{labels\ 2064}# - #{bindings\ 2068}# - (cdr #{r\ 2044}#))) - (#{build-letrec\ 339}# + #{r\ 2038}# + (#{extend-env\ 368}# + #{labels\ 2058}# + #{bindings\ 2062}# + (cdr #{r\ 2038}#))) + (#{build-letrec\ 340}# #f #t (reverse (map syntax->datum - #{var-ids\ 2065}#)) + #{var-ids\ 2059}#)) (reverse - #{vars\ 2066}#) - (map (lambda (#{x\ 2150}#) - (#{chi\ 461}# - (cdr #{x\ 2150}#) - (car #{x\ 2150}#) + #{vars\ 2060}#) + (map (lambda (#{x\ 2144}#) + (#{chi\ 460}# + (cdr #{x\ 2144}#) + (car #{x\ 2144}#) '(()) - #{mod\ 2081}#)) + #{mod\ 2075}#)) (reverse - #{vals\ 2067}#)) - (#{build-sequence\ 333}# + #{vals\ 2061}#)) + (#{build-sequence\ 334}# #f - (map (lambda (#{x\ 2154}#) - (#{chi\ 461}# - (cdr #{x\ 2154}#) - (car #{x\ 2154}#) + (map (lambda (#{x\ 2148}#) + (#{chi\ 460}# + (cdr #{x\ 2148}#) + (car #{x\ 2148}#) '(()) - #{mod\ 2081}#)) - (cons (cons #{er\ 2074}# - (#{source-wrap\ 447}# - #{e\ 2078}# - #{w\ 2079}# - #{s\ 2080}# - #{mod\ 2081}#)) - (cdr #{body\ 2062}#))))))))))))))))))) + #{mod\ 2075}#)) + (cons (cons #{er\ 2068}# + (#{source-wrap\ 448}# + #{e\ 2072}# + #{w\ 2073}# + #{s\ 2074}# + #{mod\ 2075}#)) + (cdr #{body\ 2056}#))))))))))))))))))) (begin - (#{parse\ 2061}# - (map (lambda (#{x\ 2069}#) - (cons #{r\ 2044}# - (#{wrap\ 445}# - #{x\ 2069}# - #{w\ 2049}# - #{mod\ 2036}#))) - #{body\ 2032}#) + (#{parse\ 2055}# + (map (lambda (#{x\ 2063}#) + (cons #{r\ 2038}# + (#{wrap\ 446}# + #{x\ 2063}# + #{w\ 2043}# + #{mod\ 2030}#))) + #{body\ 2026}#) '() '() '() '() '() '()))))))))))) - (#{chi-local-syntax\ 471}# - (lambda (#{rec?\ 2157}# - #{e\ 2158}# - #{r\ 2159}# - #{w\ 2160}# - #{s\ 2161}# - #{mod\ 2162}# - #{k\ 2163}#) - (let ((#{tmp\ 2171}# #{e\ 2158}#)) - (let ((#{tmp\ 2172}# + (#{chi-local-syntax\ 470}# + (lambda (#{rec?\ 2151}# + #{e\ 2152}# + #{r\ 2153}# + #{w\ 2154}# + #{s\ 2155}# + #{mod\ 2156}# + #{k\ 2157}#) + (let ((#{tmp\ 2165}# #{e\ 2152}#)) + (let ((#{tmp\ 2166}# ($sc-dispatch - #{tmp\ 2171}# + #{tmp\ 2165}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp\ 2172}# + (if #{tmp\ 2166}# (@apply - (lambda (#{id\ 2177}# - #{val\ 2178}# - #{e1\ 2179}# - #{e2\ 2180}#) + (lambda (#{id\ 2171}# + #{val\ 2172}# + #{e1\ 2173}# + #{e2\ 2174}#) (begin - (let ((#{ids\ 2182}# #{id\ 2177}#)) - (if (not (#{valid-bound-ids?\ 439}# #{ids\ 2182}#)) + (let ((#{ids\ 2176}# #{id\ 2171}#)) + (if (not (#{valid-bound-ids?\ 440}# #{ids\ 2176}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 2158}#) + #{e\ 2152}#) (begin - (let ((#{labels\ 2185}# - (#{gen-labels\ 394}# #{ids\ 2182}#))) + (let ((#{labels\ 2179}# + (#{gen-labels\ 395}# #{ids\ 2176}#))) (begin - (let ((#{new-w\ 2187}# - (#{make-binding-wrap\ 423}# - #{ids\ 2182}# - #{labels\ 2185}# - #{w\ 2160}#))) - (#{k\ 2163}# - (cons #{e1\ 2179}# #{e2\ 2180}#) - (#{extend-env\ 367}# - #{labels\ 2185}# + (let ((#{new-w\ 2181}# + (#{make-binding-wrap\ 424}# + #{ids\ 2176}# + #{labels\ 2179}# + #{w\ 2154}#))) + (#{k\ 2157}# + (cons #{e1\ 2173}# #{e2\ 2174}#) + (#{extend-env\ 368}# + #{labels\ 2179}# (begin - (let ((#{w\ 2191}# - (if #{rec?\ 2157}# - #{new-w\ 2187}# - #{w\ 2160}#)) - (#{trans-r\ 2192}# - (#{macros-only-env\ 371}# - #{r\ 2159}#))) - (map (lambda (#{x\ 2193}#) + (let ((#{w\ 2185}# + (if #{rec?\ 2151}# + #{new-w\ 2181}# + #{w\ 2154}#)) + (#{trans-r\ 2186}# + (#{macros-only-env\ 372}# + #{r\ 2153}#))) + (map (lambda (#{x\ 2187}#) (cons 'macro - (#{eval-local-transformer\ 473}# - (#{chi\ 461}# - #{x\ 2193}# - #{trans-r\ 2192}# - #{w\ 2191}# - #{mod\ 2162}#) - #{mod\ 2162}#))) - #{val\ 2178}#))) - #{r\ 2159}#) - #{new-w\ 2187}# - #{s\ 2161}# - #{mod\ 2162}#))))))))) - #{tmp\ 2172}#) - (let ((#{_\ 2198}# #{tmp\ 2171}#)) + (#{eval-local-transformer\ 472}# + (#{chi\ 460}# + #{x\ 2187}# + #{trans-r\ 2186}# + #{w\ 2185}# + #{mod\ 2156}#) + #{mod\ 2156}#))) + #{val\ 2172}#))) + #{r\ 2153}#) + #{new-w\ 2181}# + #{s\ 2155}# + #{mod\ 2156}#))))))))) + #{tmp\ 2166}#) + (let ((#{_\ 2192}# #{tmp\ 2165}#)) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 447}# - #{e\ 2158}# - #{w\ 2160}# - #{s\ 2161}# - #{mod\ 2162}#)))))))) - (#{eval-local-transformer\ 473}# - (lambda (#{expanded\ 2199}# #{mod\ 2200}#) + (#{source-wrap\ 448}# + #{e\ 2152}# + #{w\ 2154}# + #{s\ 2155}# + #{mod\ 2156}#)))))))) + (#{eval-local-transformer\ 472}# + (lambda (#{expanded\ 2193}# #{mod\ 2194}#) (begin - (let ((#{p\ 2204}# - (#{local-eval-hook\ 292}# - #{expanded\ 2199}# - #{mod\ 2200}#))) - (if (procedure? #{p\ 2204}#) - #{p\ 2204}# + (let ((#{p\ 2198}# + (#{local-eval-hook\ 293}# + #{expanded\ 2193}# + #{mod\ 2194}#))) + (if (procedure? #{p\ 2198}#) + #{p\ 2198}# (syntax-violation #f "nonprocedure transformer" - #{p\ 2204}#)))))) - (#{chi-void\ 475}# - (lambda () (#{build-void\ 303}# #f))) - (#{ellipsis?\ 477}# - (lambda (#{x\ 2206}#) - (if (#{nonsymbol-id?\ 377}# #{x\ 2206}#) - (#{free-id=?\ 435}# - #{x\ 2206}# + #{p\ 2198}#)))))) + (#{chi-void\ 474}# + (lambda () (#{build-void\ 304}# #f))) + (#{ellipsis?\ 476}# + (lambda (#{x\ 2200}#) + (if (#{nonsymbol-id?\ 378}# #{x\ 2200}#) + (#{free-id=?\ 436}# + #{x\ 2200}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2207")) + #(ribcage #(x) #((top)) #("i2201")) #(ribcage (lambda-var-list gen-var @@ -6453,7 +6496,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -6709,60 +6751,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -6771,347 +6812,346 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile))) #f))) - (#{lambda-formals\ 479}# - (lambda (#{orig-args\ 2210}#) + (#{lambda-formals\ 478}# + (lambda (#{orig-args\ 2204}#) (letrec* - ((#{req\ 2213}# - (lambda (#{args\ 2216}# #{rreq\ 2217}#) - (let ((#{tmp\ 2220}# #{args\ 2216}#)) - (let ((#{tmp\ 2221}# ($sc-dispatch #{tmp\ 2220}# '()))) - (if #{tmp\ 2221}# + ((#{req\ 2207}# + (lambda (#{args\ 2210}# #{rreq\ 2211}#) + (let ((#{tmp\ 2214}# #{args\ 2210}#)) + (let ((#{tmp\ 2215}# ($sc-dispatch #{tmp\ 2214}# '()))) + (if #{tmp\ 2215}# (@apply (lambda () - (#{check\ 2215}# (reverse #{rreq\ 2217}#) #f)) - #{tmp\ 2221}#) - (let ((#{tmp\ 2222}# - ($sc-dispatch #{tmp\ 2220}# '(any . any)))) - (if (if #{tmp\ 2222}# + (#{check\ 2209}# (reverse #{rreq\ 2211}#) #f)) + #{tmp\ 2215}#) + (let ((#{tmp\ 2216}# + ($sc-dispatch #{tmp\ 2214}# '(any . any)))) + (if (if #{tmp\ 2216}# (@apply - (lambda (#{a\ 2225}# #{b\ 2226}#) - (#{id?\ 379}# #{a\ 2225}#)) - #{tmp\ 2222}#) + (lambda (#{a\ 2219}# #{b\ 2220}#) + (#{id?\ 380}# #{a\ 2219}#)) + #{tmp\ 2216}#) #f) (@apply - (lambda (#{a\ 2229}# #{b\ 2230}#) - (#{req\ 2213}# - #{b\ 2230}# - (cons #{a\ 2229}# #{rreq\ 2217}#))) - #{tmp\ 2222}#) - (let ((#{tmp\ 2231}# (list #{tmp\ 2220}#))) - (if (if #{tmp\ 2231}# + (lambda (#{a\ 2223}# #{b\ 2224}#) + (#{req\ 2207}# + #{b\ 2224}# + (cons #{a\ 2223}# #{rreq\ 2211}#))) + #{tmp\ 2216}#) + (let ((#{tmp\ 2225}# (list #{tmp\ 2214}#))) + (if (if #{tmp\ 2225}# (@apply - (lambda (#{r\ 2233}#) - (#{id?\ 379}# #{r\ 2233}#)) - #{tmp\ 2231}#) + (lambda (#{r\ 2227}#) + (#{id?\ 380}# #{r\ 2227}#)) + #{tmp\ 2225}#) #f) (@apply - (lambda (#{r\ 2235}#) - (#{check\ 2215}# - (reverse #{rreq\ 2217}#) - #{r\ 2235}#)) - #{tmp\ 2231}#) - (let ((#{else\ 2237}# #{tmp\ 2220}#)) + (lambda (#{r\ 2229}#) + (#{check\ 2209}# + (reverse #{rreq\ 2211}#) + #{r\ 2229}#)) + #{tmp\ 2225}#) + (let ((#{else\ 2231}# #{tmp\ 2214}#)) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 2210}# - #{args\ 2216}#))))))))))) - (#{check\ 2215}# - (lambda (#{req\ 2238}# #{rest\ 2239}#) - (if (#{distinct-bound-ids?\ 441}# - (if #{rest\ 2239}# - (cons #{rest\ 2239}# #{req\ 2238}#) - #{req\ 2238}#)) - (values #{req\ 2238}# #f #{rest\ 2239}# #f) + #{orig-args\ 2204}# + #{args\ 2210}#))))))))))) + (#{check\ 2209}# + (lambda (#{req\ 2232}# #{rest\ 2233}#) + (if (#{distinct-bound-ids?\ 442}# + (if #{rest\ 2233}# + (cons #{rest\ 2233}# #{req\ 2232}#) + #{req\ 2232}#)) + (values #{req\ 2232}# #f #{rest\ 2233}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 2210}#))))) - (begin (#{req\ 2213}# #{orig-args\ 2210}# '()))))) - (#{chi-simple-lambda\ 481}# - (lambda (#{e\ 2245}# - #{r\ 2246}# - #{w\ 2247}# - #{s\ 2248}# - #{mod\ 2249}# - #{req\ 2250}# - #{rest\ 2251}# - #{meta\ 2252}# - #{body\ 2253}#) + #{orig-args\ 2204}#))))) + (begin (#{req\ 2207}# #{orig-args\ 2204}# '()))))) + (#{chi-simple-lambda\ 480}# + (lambda (#{e\ 2239}# + #{r\ 2240}# + #{w\ 2241}# + #{s\ 2242}# + #{mod\ 2243}# + #{req\ 2244}# + #{rest\ 2245}# + #{meta\ 2246}# + #{body\ 2247}#) (begin - (let ((#{ids\ 2265}# - (if #{rest\ 2251}# - (append #{req\ 2250}# (list #{rest\ 2251}#)) - #{req\ 2250}#))) + (let ((#{ids\ 2259}# + (if #{rest\ 2245}# + (append #{req\ 2244}# (list #{rest\ 2245}#)) + #{req\ 2244}#))) (begin - (let ((#{vars\ 2267}# - (map #{gen-var\ 489}# #{ids\ 2265}#))) + (let ((#{vars\ 2261}# + (map #{gen-var\ 488}# #{ids\ 2259}#))) (begin - (let ((#{labels\ 2269}# - (#{gen-labels\ 394}# #{ids\ 2265}#))) - (#{build-simple-lambda\ 323}# - #{s\ 2248}# - (map syntax->datum #{req\ 2250}#) - (if #{rest\ 2251}# - (syntax->datum #{rest\ 2251}#) + (let ((#{labels\ 2263}# + (#{gen-labels\ 395}# #{ids\ 2259}#))) + (#{build-simple-lambda\ 324}# + #{s\ 2242}# + (map syntax->datum #{req\ 2244}#) + (if #{rest\ 2245}# + (syntax->datum #{rest\ 2245}#) #f) - #{vars\ 2267}# - #{meta\ 2252}# - (#{chi-body\ 469}# - #{body\ 2253}# - (#{source-wrap\ 447}# - #{e\ 2245}# - #{w\ 2247}# - #{s\ 2248}# - #{mod\ 2249}#) - (#{extend-var-env\ 369}# - #{labels\ 2269}# - #{vars\ 2267}# - #{r\ 2246}#) - (#{make-binding-wrap\ 423}# - #{ids\ 2265}# - #{labels\ 2269}# - #{w\ 2247}#) - #{mod\ 2249}#)))))))))) - (#{lambda*-formals\ 483}# - (lambda (#{orig-args\ 2272}#) + #{vars\ 2261}# + #{meta\ 2246}# + (#{chi-body\ 468}# + #{body\ 2247}# + (#{source-wrap\ 448}# + #{e\ 2239}# + #{w\ 2241}# + #{s\ 2242}# + #{mod\ 2243}#) + (#{extend-var-env\ 370}# + #{labels\ 2263}# + #{vars\ 2261}# + #{r\ 2240}#) + (#{make-binding-wrap\ 424}# + #{ids\ 2259}# + #{labels\ 2263}# + #{w\ 2241}#) + #{mod\ 2243}#)))))))))) + (#{lambda*-formals\ 482}# + (lambda (#{orig-args\ 2266}#) (letrec* - ((#{req\ 2275}# - (lambda (#{args\ 2284}# #{rreq\ 2285}#) - (let ((#{tmp\ 2288}# #{args\ 2284}#)) - (let ((#{tmp\ 2289}# ($sc-dispatch #{tmp\ 2288}# '()))) - (if #{tmp\ 2289}# + ((#{req\ 2269}# + (lambda (#{args\ 2278}# #{rreq\ 2279}#) + (let ((#{tmp\ 2282}# #{args\ 2278}#)) + (let ((#{tmp\ 2283}# ($sc-dispatch #{tmp\ 2282}# '()))) + (if #{tmp\ 2283}# (@apply (lambda () - (#{check\ 2283}# - (reverse #{rreq\ 2285}#) + (#{check\ 2277}# + (reverse #{rreq\ 2279}#) '() #f '())) - #{tmp\ 2289}#) - (let ((#{tmp\ 2290}# - ($sc-dispatch #{tmp\ 2288}# '(any . any)))) - (if (if #{tmp\ 2290}# + #{tmp\ 2283}#) + (let ((#{tmp\ 2284}# + ($sc-dispatch #{tmp\ 2282}# '(any . any)))) + (if (if #{tmp\ 2284}# (@apply - (lambda (#{a\ 2293}# #{b\ 2294}#) - (#{id?\ 379}# #{a\ 2293}#)) - #{tmp\ 2290}#) + (lambda (#{a\ 2287}# #{b\ 2288}#) + (#{id?\ 380}# #{a\ 2287}#)) + #{tmp\ 2284}#) #f) (@apply - (lambda (#{a\ 2297}# #{b\ 2298}#) - (#{req\ 2275}# - #{b\ 2298}# - (cons #{a\ 2297}# #{rreq\ 2285}#))) - #{tmp\ 2290}#) - (let ((#{tmp\ 2299}# + (lambda (#{a\ 2291}# #{b\ 2292}#) + (#{req\ 2269}# + #{b\ 2292}# + (cons #{a\ 2291}# #{rreq\ 2279}#))) + #{tmp\ 2284}#) + (let ((#{tmp\ 2293}# ($sc-dispatch - #{tmp\ 2288}# + #{tmp\ 2282}# '(any . any)))) - (if (if #{tmp\ 2299}# + (if (if #{tmp\ 2293}# (@apply - (lambda (#{a\ 2302}# #{b\ 2303}#) - (eq? (syntax->datum #{a\ 2302}#) + (lambda (#{a\ 2296}# #{b\ 2297}#) + (eq? (syntax->datum #{a\ 2296}#) #:optional)) - #{tmp\ 2299}#) + #{tmp\ 2293}#) #f) (@apply - (lambda (#{a\ 2306}# #{b\ 2307}#) - (#{opt\ 2277}# - #{b\ 2307}# - (reverse #{rreq\ 2285}#) + (lambda (#{a\ 2300}# #{b\ 2301}#) + (#{opt\ 2271}# + #{b\ 2301}# + (reverse #{rreq\ 2279}#) '())) - #{tmp\ 2299}#) - (let ((#{tmp\ 2308}# + #{tmp\ 2293}#) + (let ((#{tmp\ 2302}# ($sc-dispatch - #{tmp\ 2288}# + #{tmp\ 2282}# '(any . any)))) - (if (if #{tmp\ 2308}# + (if (if #{tmp\ 2302}# (@apply - (lambda (#{a\ 2311}# #{b\ 2312}#) - (eq? (syntax->datum #{a\ 2311}#) + (lambda (#{a\ 2305}# #{b\ 2306}#) + (eq? (syntax->datum #{a\ 2305}#) #:key)) - #{tmp\ 2308}#) + #{tmp\ 2302}#) #f) (@apply - (lambda (#{a\ 2315}# #{b\ 2316}#) - (#{key\ 2279}# - #{b\ 2316}# - (reverse #{rreq\ 2285}#) + (lambda (#{a\ 2309}# #{b\ 2310}#) + (#{key\ 2273}# + #{b\ 2310}# + (reverse #{rreq\ 2279}#) '() '())) - #{tmp\ 2308}#) - (let ((#{tmp\ 2317}# + #{tmp\ 2302}#) + (let ((#{tmp\ 2311}# ($sc-dispatch - #{tmp\ 2288}# + #{tmp\ 2282}# '(any any)))) - (if (if #{tmp\ 2317}# + (if (if #{tmp\ 2311}# (@apply - (lambda (#{a\ 2320}# - #{b\ 2321}#) + (lambda (#{a\ 2314}# + #{b\ 2315}#) (eq? (syntax->datum - #{a\ 2320}#) + #{a\ 2314}#) #:rest)) - #{tmp\ 2317}#) + #{tmp\ 2311}#) #f) (@apply - (lambda (#{a\ 2324}# #{b\ 2325}#) - (#{rest\ 2281}# - #{b\ 2325}# - (reverse #{rreq\ 2285}#) + (lambda (#{a\ 2318}# #{b\ 2319}#) + (#{rest\ 2275}# + #{b\ 2319}# + (reverse #{rreq\ 2279}#) '() '())) - #{tmp\ 2317}#) - (let ((#{tmp\ 2326}# - (list #{tmp\ 2288}#))) - (if (if #{tmp\ 2326}# + #{tmp\ 2311}#) + (let ((#{tmp\ 2320}# + (list #{tmp\ 2282}#))) + (if (if #{tmp\ 2320}# (@apply - (lambda (#{r\ 2328}#) - (#{id?\ 379}# - #{r\ 2328}#)) - #{tmp\ 2326}#) + (lambda (#{r\ 2322}#) + (#{id?\ 380}# + #{r\ 2322}#)) + #{tmp\ 2320}#) #f) (@apply - (lambda (#{r\ 2330}#) - (#{rest\ 2281}# - #{r\ 2330}# - (reverse #{rreq\ 2285}#) + (lambda (#{r\ 2324}#) + (#{rest\ 2275}# + #{r\ 2324}# + (reverse #{rreq\ 2279}#) '() '())) - #{tmp\ 2326}#) - (let ((#{else\ 2332}# - #{tmp\ 2288}#)) + #{tmp\ 2320}#) + (let ((#{else\ 2326}# + #{tmp\ 2282}#)) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 2272}# - #{args\ 2284}#))))))))))))))))) - (#{opt\ 2277}# - (lambda (#{args\ 2333}# #{req\ 2334}# #{ropt\ 2335}#) - (let ((#{tmp\ 2339}# #{args\ 2333}#)) - (let ((#{tmp\ 2340}# ($sc-dispatch #{tmp\ 2339}# '()))) - (if #{tmp\ 2340}# + #{orig-args\ 2266}# + #{args\ 2278}#))))))))))))))))) + (#{opt\ 2271}# + (lambda (#{args\ 2327}# #{req\ 2328}# #{ropt\ 2329}#) + (let ((#{tmp\ 2333}# #{args\ 2327}#)) + (let ((#{tmp\ 2334}# ($sc-dispatch #{tmp\ 2333}# '()))) + (if #{tmp\ 2334}# (@apply (lambda () - (#{check\ 2283}# - #{req\ 2334}# - (reverse #{ropt\ 2335}#) + (#{check\ 2277}# + #{req\ 2328}# + (reverse #{ropt\ 2329}#) #f '())) - #{tmp\ 2340}#) - (let ((#{tmp\ 2341}# - ($sc-dispatch #{tmp\ 2339}# '(any . any)))) - (if (if #{tmp\ 2341}# + #{tmp\ 2334}#) + (let ((#{tmp\ 2335}# + ($sc-dispatch #{tmp\ 2333}# '(any . any)))) + (if (if #{tmp\ 2335}# (@apply - (lambda (#{a\ 2344}# #{b\ 2345}#) - (#{id?\ 379}# #{a\ 2344}#)) - #{tmp\ 2341}#) + (lambda (#{a\ 2338}# #{b\ 2339}#) + (#{id?\ 380}# #{a\ 2338}#)) + #{tmp\ 2335}#) #f) (@apply - (lambda (#{a\ 2348}# #{b\ 2349}#) - (#{opt\ 2277}# - #{b\ 2349}# - #{req\ 2334}# - (cons (cons #{a\ 2348}# + (lambda (#{a\ 2342}# #{b\ 2343}#) + (#{opt\ 2271}# + #{b\ 2343}# + #{req\ 2328}# + (cons (cons #{a\ 2342}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2346" "i2347")) + #("i2340" "i2341")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2336" - "i2337" - "i2338")) + #("i2330" + "i2331" + "i2332")) #(ribcage (check rest key opt req) ((top) @@ -7119,15 +7159,15 @@ (top) (top) (top)) - ("i2282" - "i2280" - "i2278" - "i2276" - "i2274")) + ("i2276" + "i2274" + "i2272" + "i2270" + "i2268")) #(ribcage #(orig-args) #((top)) - #("i2273")) + #("i2267")) #(ribcage (lambda-var-list gen-var @@ -7145,7 +7185,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -7401,60 +7440,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -7463,83 +7501,82 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors @@ -7549,147 +7586,147 @@ (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile)))) - #{ropt\ 2335}#))) - #{tmp\ 2341}#) - (let ((#{tmp\ 2350}# + #{ropt\ 2329}#))) + #{tmp\ 2335}#) + (let ((#{tmp\ 2344}# ($sc-dispatch - #{tmp\ 2339}# + #{tmp\ 2333}# '((any any) . any)))) - (if (if #{tmp\ 2350}# + (if (if #{tmp\ 2344}# (@apply - (lambda (#{a\ 2354}# - #{init\ 2355}# - #{b\ 2356}#) - (#{id?\ 379}# #{a\ 2354}#)) - #{tmp\ 2350}#) + (lambda (#{a\ 2348}# + #{init\ 2349}# + #{b\ 2350}#) + (#{id?\ 380}# #{a\ 2348}#)) + #{tmp\ 2344}#) #f) (@apply - (lambda (#{a\ 2360}# - #{init\ 2361}# - #{b\ 2362}#) - (#{opt\ 2277}# - #{b\ 2362}# - #{req\ 2334}# - (cons (list #{a\ 2360}# #{init\ 2361}#) - #{ropt\ 2335}#))) - #{tmp\ 2350}#) - (let ((#{tmp\ 2363}# + (lambda (#{a\ 2354}# + #{init\ 2355}# + #{b\ 2356}#) + (#{opt\ 2271}# + #{b\ 2356}# + #{req\ 2328}# + (cons (list #{a\ 2354}# #{init\ 2355}#) + #{ropt\ 2329}#))) + #{tmp\ 2344}#) + (let ((#{tmp\ 2357}# ($sc-dispatch - #{tmp\ 2339}# + #{tmp\ 2333}# '(any . any)))) - (if (if #{tmp\ 2363}# + (if (if #{tmp\ 2357}# (@apply - (lambda (#{a\ 2366}# #{b\ 2367}#) - (eq? (syntax->datum #{a\ 2366}#) + (lambda (#{a\ 2360}# #{b\ 2361}#) + (eq? (syntax->datum #{a\ 2360}#) #:key)) - #{tmp\ 2363}#) + #{tmp\ 2357}#) #f) (@apply - (lambda (#{a\ 2370}# #{b\ 2371}#) - (#{key\ 2279}# - #{b\ 2371}# - #{req\ 2334}# - (reverse #{ropt\ 2335}#) + (lambda (#{a\ 2364}# #{b\ 2365}#) + (#{key\ 2273}# + #{b\ 2365}# + #{req\ 2328}# + (reverse #{ropt\ 2329}#) '())) - #{tmp\ 2363}#) - (let ((#{tmp\ 2372}# + #{tmp\ 2357}#) + (let ((#{tmp\ 2366}# ($sc-dispatch - #{tmp\ 2339}# + #{tmp\ 2333}# '(any any)))) - (if (if #{tmp\ 2372}# + (if (if #{tmp\ 2366}# (@apply - (lambda (#{a\ 2375}# - #{b\ 2376}#) + (lambda (#{a\ 2369}# + #{b\ 2370}#) (eq? (syntax->datum - #{a\ 2375}#) + #{a\ 2369}#) #:rest)) - #{tmp\ 2372}#) + #{tmp\ 2366}#) #f) (@apply - (lambda (#{a\ 2379}# #{b\ 2380}#) - (#{rest\ 2281}# - #{b\ 2380}# - #{req\ 2334}# - (reverse #{ropt\ 2335}#) + (lambda (#{a\ 2373}# #{b\ 2374}#) + (#{rest\ 2275}# + #{b\ 2374}# + #{req\ 2328}# + (reverse #{ropt\ 2329}#) '())) - #{tmp\ 2372}#) - (let ((#{tmp\ 2381}# - (list #{tmp\ 2339}#))) - (if (if #{tmp\ 2381}# + #{tmp\ 2366}#) + (let ((#{tmp\ 2375}# + (list #{tmp\ 2333}#))) + (if (if #{tmp\ 2375}# (@apply - (lambda (#{r\ 2383}#) - (#{id?\ 379}# - #{r\ 2383}#)) - #{tmp\ 2381}#) + (lambda (#{r\ 2377}#) + (#{id?\ 380}# + #{r\ 2377}#)) + #{tmp\ 2375}#) #f) (@apply - (lambda (#{r\ 2385}#) - (#{rest\ 2281}# - #{r\ 2385}# - #{req\ 2334}# - (reverse #{ropt\ 2335}#) + (lambda (#{r\ 2379}#) + (#{rest\ 2275}# + #{r\ 2379}# + #{req\ 2328}# + (reverse #{ropt\ 2329}#) '())) - #{tmp\ 2381}#) - (let ((#{else\ 2387}# - #{tmp\ 2339}#)) + #{tmp\ 2375}#) + (let ((#{else\ 2381}# + #{tmp\ 2333}#)) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 2272}# - #{args\ 2333}#))))))))))))))))) - (#{key\ 2279}# - (lambda (#{args\ 2388}# - #{req\ 2389}# - #{opt\ 2390}# - #{rkey\ 2391}#) - (let ((#{tmp\ 2396}# #{args\ 2388}#)) - (let ((#{tmp\ 2397}# ($sc-dispatch #{tmp\ 2396}# '()))) - (if #{tmp\ 2397}# + #{orig-args\ 2266}# + #{args\ 2327}#))))))))))))))))) + (#{key\ 2273}# + (lambda (#{args\ 2382}# + #{req\ 2383}# + #{opt\ 2384}# + #{rkey\ 2385}#) + (let ((#{tmp\ 2390}# #{args\ 2382}#)) + (let ((#{tmp\ 2391}# ($sc-dispatch #{tmp\ 2390}# '()))) + (if #{tmp\ 2391}# (@apply (lambda () - (#{check\ 2283}# - #{req\ 2389}# - #{opt\ 2390}# + (#{check\ 2277}# + #{req\ 2383}# + #{opt\ 2384}# #f - (cons #f (reverse #{rkey\ 2391}#)))) - #{tmp\ 2397}#) - (let ((#{tmp\ 2398}# - ($sc-dispatch #{tmp\ 2396}# '(any . any)))) - (if (if #{tmp\ 2398}# + (cons #f (reverse #{rkey\ 2385}#)))) + #{tmp\ 2391}#) + (let ((#{tmp\ 2392}# + ($sc-dispatch #{tmp\ 2390}# '(any . any)))) + (if (if #{tmp\ 2392}# (@apply - (lambda (#{a\ 2401}# #{b\ 2402}#) - (#{id?\ 379}# #{a\ 2401}#)) - #{tmp\ 2398}#) + (lambda (#{a\ 2395}# #{b\ 2396}#) + (#{id?\ 380}# #{a\ 2395}#)) + #{tmp\ 2392}#) #f) (@apply - (lambda (#{a\ 2405}# #{b\ 2406}#) - (let ((#{tmp\ 2408}# + (lambda (#{a\ 2399}# #{b\ 2400}#) + (let ((#{tmp\ 2402}# (symbol->keyword - (syntax->datum #{a\ 2405}#)))) - (let ((#{k\ 2410}# #{tmp\ 2408}#)) - (#{key\ 2279}# - #{b\ 2406}# - #{req\ 2389}# - #{opt\ 2390}# - (cons (cons #{k\ 2410}# - (cons #{a\ 2405}# + (syntax->datum #{a\ 2399}#)))) + (let ((#{k\ 2404}# #{tmp\ 2402}#)) + (#{key\ 2273}# + #{b\ 2400}# + #{req\ 2383}# + #{opt\ 2384}# + (cons (cons #{k\ 2404}# + (cons #{a\ 2399}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i2409")) + #("i2403")) #(ribcage #(a b) #((top) (top)) - #("i2403" - "i2404")) + #("i2397" + "i2398")) #(ribcage () () @@ -7703,10 +7740,10 @@ (top) (top) (top)) - #("i2392" - "i2393" - "i2394" - "i2395")) + #("i2386" + "i2387" + "i2388" + "i2389")) #(ribcage (check rest key @@ -7717,15 +7754,15 @@ (top) (top) (top)) - ("i2282" - "i2280" - "i2278" - "i2276" - "i2274")) + ("i2276" + "i2274" + "i2272" + "i2270" + "i2268")) #(ribcage #(orig-args) #((top)) - #("i2273")) + #("i2267")) #(ribcage (lambda-var-list gen-var @@ -7743,7 +7780,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -7999,60 +8035,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -8061,83 +8096,82 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors @@ -8147,2038 +8181,2038 @@ (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile))))) - #{rkey\ 2391}#))))) - #{tmp\ 2398}#) - (let ((#{tmp\ 2411}# + #{rkey\ 2385}#))))) + #{tmp\ 2392}#) + (let ((#{tmp\ 2405}# ($sc-dispatch - #{tmp\ 2396}# + #{tmp\ 2390}# '((any any) . any)))) - (if (if #{tmp\ 2411}# + (if (if #{tmp\ 2405}# (@apply - (lambda (#{a\ 2415}# - #{init\ 2416}# - #{b\ 2417}#) - (#{id?\ 379}# #{a\ 2415}#)) - #{tmp\ 2411}#) + (lambda (#{a\ 2409}# + #{init\ 2410}# + #{b\ 2411}#) + (#{id?\ 380}# #{a\ 2409}#)) + #{tmp\ 2405}#) #f) (@apply - (lambda (#{a\ 2421}# - #{init\ 2422}# - #{b\ 2423}#) - (let ((#{tmp\ 2425}# + (lambda (#{a\ 2415}# + #{init\ 2416}# + #{b\ 2417}#) + (let ((#{tmp\ 2419}# (symbol->keyword - (syntax->datum #{a\ 2421}#)))) - (let ((#{k\ 2427}# #{tmp\ 2425}#)) - (#{key\ 2279}# - #{b\ 2423}# - #{req\ 2389}# - #{opt\ 2390}# - (cons (list #{k\ 2427}# - #{a\ 2421}# - #{init\ 2422}#) - #{rkey\ 2391}#))))) - #{tmp\ 2411}#) - (let ((#{tmp\ 2428}# + (syntax->datum #{a\ 2415}#)))) + (let ((#{k\ 2421}# #{tmp\ 2419}#)) + (#{key\ 2273}# + #{b\ 2417}# + #{req\ 2383}# + #{opt\ 2384}# + (cons (list #{k\ 2421}# + #{a\ 2415}# + #{init\ 2416}#) + #{rkey\ 2385}#))))) + #{tmp\ 2405}#) + (let ((#{tmp\ 2422}# ($sc-dispatch - #{tmp\ 2396}# + #{tmp\ 2390}# '((any any any) . any)))) - (if (if #{tmp\ 2428}# + (if (if #{tmp\ 2422}# (@apply - (lambda (#{a\ 2433}# - #{init\ 2434}# - #{k\ 2435}# - #{b\ 2436}#) - (if (#{id?\ 379}# #{a\ 2433}#) + (lambda (#{a\ 2427}# + #{init\ 2428}# + #{k\ 2429}# + #{b\ 2430}#) + (if (#{id?\ 380}# #{a\ 2427}#) (keyword? - (syntax->datum #{k\ 2435}#)) + (syntax->datum #{k\ 2429}#)) #f)) - #{tmp\ 2428}#) + #{tmp\ 2422}#) #f) (@apply - (lambda (#{a\ 2443}# - #{init\ 2444}# - #{k\ 2445}# - #{b\ 2446}#) - (#{key\ 2279}# - #{b\ 2446}# - #{req\ 2389}# - #{opt\ 2390}# - (cons (list #{k\ 2445}# - #{a\ 2443}# - #{init\ 2444}#) - #{rkey\ 2391}#))) - #{tmp\ 2428}#) - (let ((#{tmp\ 2447}# + (lambda (#{a\ 2437}# + #{init\ 2438}# + #{k\ 2439}# + #{b\ 2440}#) + (#{key\ 2273}# + #{b\ 2440}# + #{req\ 2383}# + #{opt\ 2384}# + (cons (list #{k\ 2439}# + #{a\ 2437}# + #{init\ 2438}#) + #{rkey\ 2385}#))) + #{tmp\ 2422}#) + (let ((#{tmp\ 2441}# ($sc-dispatch - #{tmp\ 2396}# + #{tmp\ 2390}# '(any)))) - (if (if #{tmp\ 2447}# + (if (if #{tmp\ 2441}# (@apply - (lambda (#{aok\ 2449}#) + (lambda (#{aok\ 2443}#) (eq? (syntax->datum - #{aok\ 2449}#) + #{aok\ 2443}#) #:allow-other-keys)) - #{tmp\ 2447}#) + #{tmp\ 2441}#) #f) (@apply - (lambda (#{aok\ 2451}#) - (#{check\ 2283}# - #{req\ 2389}# - #{opt\ 2390}# + (lambda (#{aok\ 2445}#) + (#{check\ 2277}# + #{req\ 2383}# + #{opt\ 2384}# #f (cons #t (reverse - #{rkey\ 2391}#)))) - #{tmp\ 2447}#) - (let ((#{tmp\ 2452}# + #{rkey\ 2385}#)))) + #{tmp\ 2441}#) + (let ((#{tmp\ 2446}# ($sc-dispatch - #{tmp\ 2396}# + #{tmp\ 2390}# '(any any any)))) - (if (if #{tmp\ 2452}# + (if (if #{tmp\ 2446}# (@apply - (lambda (#{aok\ 2456}# - #{a\ 2457}# - #{b\ 2458}#) + (lambda (#{aok\ 2450}# + #{a\ 2451}# + #{b\ 2452}#) (if (eq? (syntax->datum - #{aok\ 2456}#) + #{aok\ 2450}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 2457}#) + #{a\ 2451}#) #:rest) #f)) - #{tmp\ 2452}#) + #{tmp\ 2446}#) #f) (@apply - (lambda (#{aok\ 2464}# - #{a\ 2465}# - #{b\ 2466}#) - (#{rest\ 2281}# - #{b\ 2466}# - #{req\ 2389}# - #{opt\ 2390}# + (lambda (#{aok\ 2458}# + #{a\ 2459}# + #{b\ 2460}#) + (#{rest\ 2275}# + #{b\ 2460}# + #{req\ 2383}# + #{opt\ 2384}# (cons #t (reverse - #{rkey\ 2391}#)))) - #{tmp\ 2452}#) - (let ((#{tmp\ 2467}# + #{rkey\ 2385}#)))) + #{tmp\ 2446}#) + (let ((#{tmp\ 2461}# ($sc-dispatch - #{tmp\ 2396}# + #{tmp\ 2390}# '(any . any)))) - (if (if #{tmp\ 2467}# + (if (if #{tmp\ 2461}# (@apply - (lambda (#{aok\ 2470}# - #{r\ 2471}#) + (lambda (#{aok\ 2464}# + #{r\ 2465}#) (if (eq? (syntax->datum - #{aok\ 2470}#) + #{aok\ 2464}#) #:allow-other-keys) - (#{id?\ 379}# - #{r\ 2471}#) + (#{id?\ 380}# + #{r\ 2465}#) #f)) - #{tmp\ 2467}#) + #{tmp\ 2461}#) #f) (@apply - (lambda (#{aok\ 2476}# - #{r\ 2477}#) - (#{rest\ 2281}# - #{r\ 2477}# - #{req\ 2389}# - #{opt\ 2390}# + (lambda (#{aok\ 2470}# + #{r\ 2471}#) + (#{rest\ 2275}# + #{r\ 2471}# + #{req\ 2383}# + #{opt\ 2384}# (cons #t (reverse - #{rkey\ 2391}#)))) - #{tmp\ 2467}#) - (let ((#{tmp\ 2478}# + #{rkey\ 2385}#)))) + #{tmp\ 2461}#) + (let ((#{tmp\ 2472}# ($sc-dispatch - #{tmp\ 2396}# + #{tmp\ 2390}# '(any any)))) - (if (if #{tmp\ 2478}# + (if (if #{tmp\ 2472}# (@apply - (lambda (#{a\ 2481}# - #{b\ 2482}#) + (lambda (#{a\ 2475}# + #{b\ 2476}#) (eq? (syntax->datum - #{a\ 2481}#) + #{a\ 2475}#) #:rest)) - #{tmp\ 2478}#) + #{tmp\ 2472}#) #f) (@apply - (lambda (#{a\ 2485}# - #{b\ 2486}#) - (#{rest\ 2281}# - #{b\ 2486}# - #{req\ 2389}# - #{opt\ 2390}# + (lambda (#{a\ 2479}# + #{b\ 2480}#) + (#{rest\ 2275}# + #{b\ 2480}# + #{req\ 2383}# + #{opt\ 2384}# (cons #f (reverse - #{rkey\ 2391}#)))) - #{tmp\ 2478}#) - (let ((#{tmp\ 2487}# - (list #{tmp\ 2396}#))) - (if (if #{tmp\ 2487}# + #{rkey\ 2385}#)))) + #{tmp\ 2472}#) + (let ((#{tmp\ 2481}# + (list #{tmp\ 2390}#))) + (if (if #{tmp\ 2481}# (@apply - (lambda (#{r\ 2489}#) - (#{id?\ 379}# - #{r\ 2489}#)) - #{tmp\ 2487}#) + (lambda (#{r\ 2483}#) + (#{id?\ 380}# + #{r\ 2483}#)) + #{tmp\ 2481}#) #f) (@apply - (lambda (#{r\ 2491}#) - (#{rest\ 2281}# - #{r\ 2491}# - #{req\ 2389}# - #{opt\ 2390}# + (lambda (#{r\ 2485}#) + (#{rest\ 2275}# + #{r\ 2485}# + #{req\ 2383}# + #{opt\ 2384}# (cons #f (reverse - #{rkey\ 2391}#)))) - #{tmp\ 2487}#) - (let ((#{else\ 2493}# - #{tmp\ 2396}#)) + #{rkey\ 2385}#)))) + #{tmp\ 2481}#) + (let ((#{else\ 2487}# + #{tmp\ 2390}#)) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 2272}# - #{args\ 2388}#))))))))))))))))))))))) - (#{rest\ 2281}# - (lambda (#{args\ 2494}# - #{req\ 2495}# - #{opt\ 2496}# - #{kw\ 2497}#) - (let ((#{tmp\ 2502}# #{args\ 2494}#)) - (let ((#{tmp\ 2503}# (list #{tmp\ 2502}#))) - (if (if #{tmp\ 2503}# + #{orig-args\ 2266}# + #{args\ 2382}#))))))))))))))))))))))) + (#{rest\ 2275}# + (lambda (#{args\ 2488}# + #{req\ 2489}# + #{opt\ 2490}# + #{kw\ 2491}#) + (let ((#{tmp\ 2496}# #{args\ 2488}#)) + (let ((#{tmp\ 2497}# (list #{tmp\ 2496}#))) + (if (if #{tmp\ 2497}# (@apply - (lambda (#{r\ 2505}#) - (#{id?\ 379}# #{r\ 2505}#)) - #{tmp\ 2503}#) + (lambda (#{r\ 2499}#) + (#{id?\ 380}# #{r\ 2499}#)) + #{tmp\ 2497}#) #f) (@apply - (lambda (#{r\ 2507}#) - (#{check\ 2283}# - #{req\ 2495}# - #{opt\ 2496}# - #{r\ 2507}# - #{kw\ 2497}#)) - #{tmp\ 2503}#) - (let ((#{else\ 2509}# #{tmp\ 2502}#)) + (lambda (#{r\ 2501}#) + (#{check\ 2277}# + #{req\ 2489}# + #{opt\ 2490}# + #{r\ 2501}# + #{kw\ 2491}#)) + #{tmp\ 2497}#) + (let ((#{else\ 2503}# #{tmp\ 2496}#)) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 2272}# - #{args\ 2494}#))))))) - (#{check\ 2283}# - (lambda (#{req\ 2510}# - #{opt\ 2511}# - #{rest\ 2512}# - #{kw\ 2513}#) - (if (#{distinct-bound-ids?\ 441}# + #{orig-args\ 2266}# + #{args\ 2488}#))))))) + (#{check\ 2277}# + (lambda (#{req\ 2504}# + #{opt\ 2505}# + #{rest\ 2506}# + #{kw\ 2507}#) + (if (#{distinct-bound-ids?\ 442}# (append - #{req\ 2510}# - (map car #{opt\ 2511}#) - (if #{rest\ 2512}# (list #{rest\ 2512}#) '()) - (if (pair? #{kw\ 2513}#) - (map cadr (cdr #{kw\ 2513}#)) + #{req\ 2504}# + (map car #{opt\ 2505}#) + (if #{rest\ 2506}# (list #{rest\ 2506}#) '()) + (if (pair? #{kw\ 2507}#) + (map cadr (cdr #{kw\ 2507}#)) '()))) (values - #{req\ 2510}# - #{opt\ 2511}# - #{rest\ 2512}# - #{kw\ 2513}#) + #{req\ 2504}# + #{opt\ 2505}# + #{rest\ 2506}# + #{kw\ 2507}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 2272}#))))) - (begin (#{req\ 2275}# #{orig-args\ 2272}# '()))))) - (#{chi-lambda-case\ 485}# - (lambda (#{e\ 2521}# - #{r\ 2522}# - #{w\ 2523}# - #{s\ 2524}# - #{mod\ 2525}# - #{get-formals\ 2526}# - #{clauses\ 2527}#) + #{orig-args\ 2266}#))))) + (begin (#{req\ 2269}# #{orig-args\ 2266}# '()))))) + (#{chi-lambda-case\ 484}# + (lambda (#{e\ 2515}# + #{r\ 2516}# + #{w\ 2517}# + #{s\ 2518}# + #{mod\ 2519}# + #{get-formals\ 2520}# + #{clauses\ 2521}#) (letrec* - ((#{expand-req\ 2536}# - (lambda (#{req\ 2543}# - #{opt\ 2544}# - #{rest\ 2545}# - #{kw\ 2546}# - #{body\ 2547}#) + ((#{expand-req\ 2530}# + (lambda (#{req\ 2537}# + #{opt\ 2538}# + #{rest\ 2539}# + #{kw\ 2540}# + #{body\ 2541}#) (begin - (let ((#{vars\ 2555}# - (map #{gen-var\ 489}# #{req\ 2543}#)) - (#{labels\ 2556}# - (#{gen-labels\ 394}# #{req\ 2543}#))) + (let ((#{vars\ 2549}# + (map #{gen-var\ 488}# #{req\ 2537}#)) + (#{labels\ 2550}# + (#{gen-labels\ 395}# #{req\ 2537}#))) (begin - (let ((#{r*\ 2559}# - (#{extend-var-env\ 369}# - #{labels\ 2556}# - #{vars\ 2555}# - #{r\ 2522}#)) - (#{w*\ 2560}# - (#{make-binding-wrap\ 423}# - #{req\ 2543}# - #{labels\ 2556}# - #{w\ 2523}#))) - (#{expand-opt\ 2538}# - (map syntax->datum #{req\ 2543}#) - #{opt\ 2544}# - #{rest\ 2545}# - #{kw\ 2546}# - #{body\ 2547}# - (reverse #{vars\ 2555}#) - #{r*\ 2559}# - #{w*\ 2560}# + (let ((#{r*\ 2553}# + (#{extend-var-env\ 370}# + #{labels\ 2550}# + #{vars\ 2549}# + #{r\ 2516}#)) + (#{w*\ 2554}# + (#{make-binding-wrap\ 424}# + #{req\ 2537}# + #{labels\ 2550}# + #{w\ 2517}#))) + (#{expand-opt\ 2532}# + (map syntax->datum #{req\ 2537}#) + #{opt\ 2538}# + #{rest\ 2539}# + #{kw\ 2540}# + #{body\ 2541}# + (reverse #{vars\ 2549}#) + #{r*\ 2553}# + #{w*\ 2554}# '() '()))))))) - (#{expand-opt\ 2538}# - (lambda (#{req\ 2561}# - #{opt\ 2562}# - #{rest\ 2563}# - #{kw\ 2564}# - #{body\ 2565}# - #{vars\ 2566}# - #{r*\ 2567}# - #{w*\ 2568}# - #{out\ 2569}# - #{inits\ 2570}#) - (if (pair? #{opt\ 2562}#) - (let ((#{tmp\ 2583}# (car #{opt\ 2562}#))) - (let ((#{tmp\ 2584}# - ($sc-dispatch #{tmp\ 2583}# '(any any)))) - (if #{tmp\ 2584}# + (#{expand-opt\ 2532}# + (lambda (#{req\ 2555}# + #{opt\ 2556}# + #{rest\ 2557}# + #{kw\ 2558}# + #{body\ 2559}# + #{vars\ 2560}# + #{r*\ 2561}# + #{w*\ 2562}# + #{out\ 2563}# + #{inits\ 2564}#) + (if (pair? #{opt\ 2556}#) + (let ((#{tmp\ 2577}# (car #{opt\ 2556}#))) + (let ((#{tmp\ 2578}# + ($sc-dispatch #{tmp\ 2577}# '(any any)))) + (if #{tmp\ 2578}# (@apply - (lambda (#{id\ 2587}# #{i\ 2588}#) + (lambda (#{id\ 2581}# #{i\ 2582}#) (begin - (let ((#{v\ 2591}# - (#{gen-var\ 489}# #{id\ 2587}#))) + (let ((#{v\ 2585}# + (#{gen-var\ 488}# #{id\ 2581}#))) (begin - (let ((#{l\ 2593}# - (#{gen-labels\ 394}# - (list #{v\ 2591}#)))) + (let ((#{l\ 2587}# + (#{gen-labels\ 395}# + (list #{v\ 2585}#)))) (begin - (let ((#{r**\ 2595}# - (#{extend-var-env\ 369}# - #{l\ 2593}# - (list #{v\ 2591}#) - #{r*\ 2567}#))) + (let ((#{r**\ 2589}# + (#{extend-var-env\ 370}# + #{l\ 2587}# + (list #{v\ 2585}#) + #{r*\ 2561}#))) (begin - (let ((#{w**\ 2597}# - (#{make-binding-wrap\ 423}# - (list #{id\ 2587}#) - #{l\ 2593}# - #{w*\ 2568}#))) - (#{expand-opt\ 2538}# - #{req\ 2561}# - (cdr #{opt\ 2562}#) - #{rest\ 2563}# - #{kw\ 2564}# - #{body\ 2565}# - (cons #{v\ 2591}# - #{vars\ 2566}#) - #{r**\ 2595}# - #{w**\ 2597}# + (let ((#{w**\ 2591}# + (#{make-binding-wrap\ 424}# + (list #{id\ 2581}#) + #{l\ 2587}# + #{w*\ 2562}#))) + (#{expand-opt\ 2532}# + #{req\ 2555}# + (cdr #{opt\ 2556}#) + #{rest\ 2557}# + #{kw\ 2558}# + #{body\ 2559}# + (cons #{v\ 2585}# + #{vars\ 2560}#) + #{r**\ 2589}# + #{w**\ 2591}# (cons (syntax->datum - #{id\ 2587}#) - #{out\ 2569}#) - (cons (#{chi\ 461}# - #{i\ 2588}# - #{r*\ 2567}# - #{w*\ 2568}# - #{mod\ 2525}#) - #{inits\ 2570}#))))))))))) - #{tmp\ 2584}#) + #{id\ 2581}#) + #{out\ 2563}#) + (cons (#{chi\ 460}# + #{i\ 2582}# + #{r*\ 2561}# + #{w*\ 2562}# + #{mod\ 2519}#) + #{inits\ 2564}#))))))))))) + #{tmp\ 2578}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2583}#)))) - (if #{rest\ 2563}# + #{tmp\ 2577}#)))) + (if #{rest\ 2557}# (begin - (let ((#{v\ 2602}# - (#{gen-var\ 489}# #{rest\ 2563}#))) + (let ((#{v\ 2596}# + (#{gen-var\ 488}# #{rest\ 2557}#))) (begin - (let ((#{l\ 2604}# - (#{gen-labels\ 394}# - (list #{v\ 2602}#)))) + (let ((#{l\ 2598}# + (#{gen-labels\ 395}# + (list #{v\ 2596}#)))) (begin - (let ((#{r*\ 2606}# - (#{extend-var-env\ 369}# - #{l\ 2604}# - (list #{v\ 2602}#) - #{r*\ 2567}#))) + (let ((#{r*\ 2600}# + (#{extend-var-env\ 370}# + #{l\ 2598}# + (list #{v\ 2596}#) + #{r*\ 2561}#))) (begin - (let ((#{w*\ 2608}# - (#{make-binding-wrap\ 423}# - (list #{rest\ 2563}#) - #{l\ 2604}# - #{w*\ 2568}#))) - (#{expand-kw\ 2540}# - #{req\ 2561}# - (if (pair? #{out\ 2569}#) - (reverse #{out\ 2569}#) + (let ((#{w*\ 2602}# + (#{make-binding-wrap\ 424}# + (list #{rest\ 2557}#) + #{l\ 2598}# + #{w*\ 2562}#))) + (#{expand-kw\ 2534}# + #{req\ 2555}# + (if (pair? #{out\ 2563}#) + (reverse #{out\ 2563}#) #f) - (syntax->datum #{rest\ 2563}#) - (if (pair? #{kw\ 2564}#) - (cdr #{kw\ 2564}#) - #{kw\ 2564}#) - #{body\ 2565}# - (cons #{v\ 2602}# #{vars\ 2566}#) - #{r*\ 2606}# - #{w*\ 2608}# - (if (pair? #{kw\ 2564}#) - (car #{kw\ 2564}#) + (syntax->datum #{rest\ 2557}#) + (if (pair? #{kw\ 2558}#) + (cdr #{kw\ 2558}#) + #{kw\ 2558}#) + #{body\ 2559}# + (cons #{v\ 2596}# #{vars\ 2560}#) + #{r*\ 2600}# + #{w*\ 2602}# + (if (pair? #{kw\ 2558}#) + (car #{kw\ 2558}#) #f) '() - #{inits\ 2570}#))))))))) - (#{expand-kw\ 2540}# - #{req\ 2561}# - (if (pair? #{out\ 2569}#) - (reverse #{out\ 2569}#) + #{inits\ 2564}#))))))))) + (#{expand-kw\ 2534}# + #{req\ 2555}# + (if (pair? #{out\ 2563}#) + (reverse #{out\ 2563}#) #f) #f - (if (pair? #{kw\ 2564}#) - (cdr #{kw\ 2564}#) - #{kw\ 2564}#) - #{body\ 2565}# - #{vars\ 2566}# - #{r*\ 2567}# - #{w*\ 2568}# - (if (pair? #{kw\ 2564}#) (car #{kw\ 2564}#) #f) + (if (pair? #{kw\ 2558}#) + (cdr #{kw\ 2558}#) + #{kw\ 2558}#) + #{body\ 2559}# + #{vars\ 2560}# + #{r*\ 2561}# + #{w*\ 2562}# + (if (pair? #{kw\ 2558}#) (car #{kw\ 2558}#) #f) '() - #{inits\ 2570}#))))) - (#{expand-kw\ 2540}# - (lambda (#{req\ 2610}# - #{opt\ 2611}# - #{rest\ 2612}# - #{kw\ 2613}# - #{body\ 2614}# - #{vars\ 2615}# - #{r*\ 2616}# - #{w*\ 2617}# - #{aok\ 2618}# - #{out\ 2619}# - #{inits\ 2620}#) - (if (pair? #{kw\ 2613}#) - (let ((#{tmp\ 2634}# (car #{kw\ 2613}#))) - (let ((#{tmp\ 2635}# - ($sc-dispatch #{tmp\ 2634}# '(any any any)))) - (if #{tmp\ 2635}# + #{inits\ 2564}#))))) + (#{expand-kw\ 2534}# + (lambda (#{req\ 2604}# + #{opt\ 2605}# + #{rest\ 2606}# + #{kw\ 2607}# + #{body\ 2608}# + #{vars\ 2609}# + #{r*\ 2610}# + #{w*\ 2611}# + #{aok\ 2612}# + #{out\ 2613}# + #{inits\ 2614}#) + (if (pair? #{kw\ 2607}#) + (let ((#{tmp\ 2628}# (car #{kw\ 2607}#))) + (let ((#{tmp\ 2629}# + ($sc-dispatch #{tmp\ 2628}# '(any any any)))) + (if #{tmp\ 2629}# (@apply - (lambda (#{k\ 2639}# #{id\ 2640}# #{i\ 2641}#) + (lambda (#{k\ 2633}# #{id\ 2634}# #{i\ 2635}#) (begin - (let ((#{v\ 2644}# - (#{gen-var\ 489}# #{id\ 2640}#))) + (let ((#{v\ 2638}# + (#{gen-var\ 488}# #{id\ 2634}#))) (begin - (let ((#{l\ 2646}# - (#{gen-labels\ 394}# - (list #{v\ 2644}#)))) + (let ((#{l\ 2640}# + (#{gen-labels\ 395}# + (list #{v\ 2638}#)))) (begin - (let ((#{r**\ 2648}# - (#{extend-var-env\ 369}# - #{l\ 2646}# - (list #{v\ 2644}#) - #{r*\ 2616}#))) + (let ((#{r**\ 2642}# + (#{extend-var-env\ 370}# + #{l\ 2640}# + (list #{v\ 2638}#) + #{r*\ 2610}#))) (begin - (let ((#{w**\ 2650}# - (#{make-binding-wrap\ 423}# - (list #{id\ 2640}#) - #{l\ 2646}# - #{w*\ 2617}#))) - (#{expand-kw\ 2540}# - #{req\ 2610}# - #{opt\ 2611}# - #{rest\ 2612}# - (cdr #{kw\ 2613}#) - #{body\ 2614}# - (cons #{v\ 2644}# - #{vars\ 2615}#) - #{r**\ 2648}# - #{w**\ 2650}# - #{aok\ 2618}# + (let ((#{w**\ 2644}# + (#{make-binding-wrap\ 424}# + (list #{id\ 2634}#) + #{l\ 2640}# + #{w*\ 2611}#))) + (#{expand-kw\ 2534}# + #{req\ 2604}# + #{opt\ 2605}# + #{rest\ 2606}# + (cdr #{kw\ 2607}#) + #{body\ 2608}# + (cons #{v\ 2638}# + #{vars\ 2609}#) + #{r**\ 2642}# + #{w**\ 2644}# + #{aok\ 2612}# (cons (list (syntax->datum - #{k\ 2639}#) + #{k\ 2633}#) (syntax->datum - #{id\ 2640}#) - #{v\ 2644}#) - #{out\ 2619}#) - (cons (#{chi\ 461}# - #{i\ 2641}# - #{r*\ 2616}# - #{w*\ 2617}# - #{mod\ 2525}#) - #{inits\ 2620}#))))))))))) - #{tmp\ 2635}#) + #{id\ 2634}#) + #{v\ 2638}#) + #{out\ 2613}#) + (cons (#{chi\ 460}# + #{i\ 2635}# + #{r*\ 2610}# + #{w*\ 2611}# + #{mod\ 2519}#) + #{inits\ 2614}#))))))))))) + #{tmp\ 2629}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2634}#)))) - (#{expand-body\ 2542}# - #{req\ 2610}# - #{opt\ 2611}# - #{rest\ 2612}# + #{tmp\ 2628}#)))) + (#{expand-body\ 2536}# + #{req\ 2604}# + #{opt\ 2605}# + #{rest\ 2606}# (if (begin - (let ((#{t\ 2654}# #{aok\ 2618}#)) - (if #{t\ 2654}# - #{t\ 2654}# - (pair? #{out\ 2619}#)))) - (cons #{aok\ 2618}# (reverse #{out\ 2619}#)) + (let ((#{t\ 2648}# #{aok\ 2612}#)) + (if #{t\ 2648}# + #{t\ 2648}# + (pair? #{out\ 2613}#)))) + (cons #{aok\ 2612}# (reverse #{out\ 2613}#)) #f) - #{body\ 2614}# - (reverse #{vars\ 2615}#) - #{r*\ 2616}# - #{w*\ 2617}# - (reverse #{inits\ 2620}#) + #{body\ 2608}# + (reverse #{vars\ 2609}#) + #{r*\ 2610}# + #{w*\ 2611}# + (reverse #{inits\ 2614}#) '())))) - (#{expand-body\ 2542}# - (lambda (#{req\ 2656}# - #{opt\ 2657}# - #{rest\ 2658}# - #{kw\ 2659}# - #{body\ 2660}# - #{vars\ 2661}# - #{r*\ 2662}# - #{w*\ 2663}# - #{inits\ 2664}# - #{meta\ 2665}#) - (let ((#{tmp\ 2676}# #{body\ 2660}#)) - (let ((#{tmp\ 2677}# + (#{expand-body\ 2536}# + (lambda (#{req\ 2650}# + #{opt\ 2651}# + #{rest\ 2652}# + #{kw\ 2653}# + #{body\ 2654}# + #{vars\ 2655}# + #{r*\ 2656}# + #{w*\ 2657}# + #{inits\ 2658}# + #{meta\ 2659}#) + (let ((#{tmp\ 2670}# #{body\ 2654}#)) + (let ((#{tmp\ 2671}# ($sc-dispatch - #{tmp\ 2676}# + #{tmp\ 2670}# '(any any . each-any)))) - (if (if #{tmp\ 2677}# + (if (if #{tmp\ 2671}# (@apply - (lambda (#{docstring\ 2681}# - #{e1\ 2682}# - #{e2\ 2683}#) + (lambda (#{docstring\ 2675}# + #{e1\ 2676}# + #{e2\ 2677}#) (string? - (syntax->datum #{docstring\ 2681}#))) - #{tmp\ 2677}#) + (syntax->datum #{docstring\ 2675}#))) + #{tmp\ 2671}#) #f) (@apply - (lambda (#{docstring\ 2687}# - #{e1\ 2688}# - #{e2\ 2689}#) - (#{expand-body\ 2542}# - #{req\ 2656}# - #{opt\ 2657}# - #{rest\ 2658}# - #{kw\ 2659}# - (cons #{e1\ 2688}# #{e2\ 2689}#) - #{vars\ 2661}# - #{r*\ 2662}# - #{w*\ 2663}# - #{inits\ 2664}# + (lambda (#{docstring\ 2681}# + #{e1\ 2682}# + #{e2\ 2683}#) + (#{expand-body\ 2536}# + #{req\ 2650}# + #{opt\ 2651}# + #{rest\ 2652}# + #{kw\ 2653}# + (cons #{e1\ 2682}# #{e2\ 2683}#) + #{vars\ 2655}# + #{r*\ 2656}# + #{w*\ 2657}# + #{inits\ 2658}# (append - #{meta\ 2665}# + #{meta\ 2659}# (list (cons 'documentation (syntax->datum - #{docstring\ 2687}#)))))) - #{tmp\ 2677}#) - (let ((#{tmp\ 2692}# + #{docstring\ 2681}#)))))) + #{tmp\ 2671}#) + (let ((#{tmp\ 2686}# ($sc-dispatch - #{tmp\ 2676}# + #{tmp\ 2670}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp\ 2692}# + (if #{tmp\ 2686}# (@apply - (lambda (#{k\ 2697}# - #{v\ 2698}# - #{e1\ 2699}# - #{e2\ 2700}#) - (#{expand-body\ 2542}# - #{req\ 2656}# - #{opt\ 2657}# - #{rest\ 2658}# - #{kw\ 2659}# - (cons #{e1\ 2699}# #{e2\ 2700}#) - #{vars\ 2661}# - #{r*\ 2662}# - #{w*\ 2663}# - #{inits\ 2664}# + (lambda (#{k\ 2691}# + #{v\ 2692}# + #{e1\ 2693}# + #{e2\ 2694}#) + (#{expand-body\ 2536}# + #{req\ 2650}# + #{opt\ 2651}# + #{rest\ 2652}# + #{kw\ 2653}# + (cons #{e1\ 2693}# #{e2\ 2694}#) + #{vars\ 2655}# + #{r*\ 2656}# + #{w*\ 2657}# + #{inits\ 2658}# (append - #{meta\ 2665}# + #{meta\ 2659}# (syntax->datum - (map cons #{k\ 2697}# #{v\ 2698}#))))) - #{tmp\ 2692}#) - (let ((#{tmp\ 2704}# + (map cons #{k\ 2691}# #{v\ 2692}#))))) + #{tmp\ 2686}#) + (let ((#{tmp\ 2698}# ($sc-dispatch - #{tmp\ 2676}# + #{tmp\ 2670}# '(any . each-any)))) - (if #{tmp\ 2704}# + (if #{tmp\ 2698}# (@apply - (lambda (#{e1\ 2707}# #{e2\ 2708}#) + (lambda (#{e1\ 2701}# #{e2\ 2702}#) (values - #{meta\ 2665}# - #{req\ 2656}# - #{opt\ 2657}# - #{rest\ 2658}# - #{kw\ 2659}# - #{inits\ 2664}# - #{vars\ 2661}# - (#{chi-body\ 469}# - (cons #{e1\ 2707}# #{e2\ 2708}#) - (#{source-wrap\ 447}# - #{e\ 2521}# - #{w\ 2523}# - #{s\ 2524}# - #{mod\ 2525}#) - #{r*\ 2662}# - #{w*\ 2663}# - #{mod\ 2525}#))) - #{tmp\ 2704}#) + #{meta\ 2659}# + #{req\ 2650}# + #{opt\ 2651}# + #{rest\ 2652}# + #{kw\ 2653}# + #{inits\ 2658}# + #{vars\ 2655}# + (#{chi-body\ 468}# + (cons #{e1\ 2701}# #{e2\ 2702}#) + (#{source-wrap\ 448}# + #{e\ 2515}# + #{w\ 2517}# + #{s\ 2518}# + #{mod\ 2519}#) + #{r*\ 2656}# + #{w*\ 2657}# + #{mod\ 2519}#))) + #{tmp\ 2698}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2676}#))))))))))) + #{tmp\ 2670}#))))))))))) (begin - (let ((#{tmp\ 2710}# #{clauses\ 2527}#)) - (let ((#{tmp\ 2711}# ($sc-dispatch #{tmp\ 2710}# '()))) - (if #{tmp\ 2711}# + (let ((#{tmp\ 2704}# #{clauses\ 2521}#)) + (let ((#{tmp\ 2705}# ($sc-dispatch #{tmp\ 2704}# '()))) + (if #{tmp\ 2705}# (@apply (lambda () (values '() #f)) - #{tmp\ 2711}#) - (let ((#{tmp\ 2712}# + #{tmp\ 2705}#) + (let ((#{tmp\ 2706}# ($sc-dispatch - #{tmp\ 2710}# + #{tmp\ 2704}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp\ 2712}# + (if #{tmp\ 2706}# (@apply - (lambda (#{args\ 2719}# - #{e1\ 2720}# - #{e2\ 2721}# - #{args*\ 2722}# - #{e1*\ 2723}# - #{e2*\ 2724}#) + (lambda (#{args\ 2713}# + #{e1\ 2714}# + #{e2\ 2715}# + #{args*\ 2716}# + #{e1*\ 2717}# + #{e2*\ 2718}#) (call-with-values (lambda () - (#{get-formals\ 2526}# #{args\ 2719}#)) - (lambda (#{req\ 2725}# - #{opt\ 2726}# - #{rest\ 2727}# - #{kw\ 2728}#) + (#{get-formals\ 2520}# #{args\ 2713}#)) + (lambda (#{req\ 2719}# + #{opt\ 2720}# + #{rest\ 2721}# + #{kw\ 2722}#) (call-with-values (lambda () - (#{expand-req\ 2536}# - #{req\ 2725}# - #{opt\ 2726}# - #{rest\ 2727}# - #{kw\ 2728}# - (cons #{e1\ 2720}# #{e2\ 2721}#))) - (lambda (#{meta\ 2734}# - #{req\ 2735}# - #{opt\ 2736}# - #{rest\ 2737}# - #{kw\ 2738}# - #{inits\ 2739}# - #{vars\ 2740}# - #{body\ 2741}#) + (#{expand-req\ 2530}# + #{req\ 2719}# + #{opt\ 2720}# + #{rest\ 2721}# + #{kw\ 2722}# + (cons #{e1\ 2714}# #{e2\ 2715}#))) + (lambda (#{meta\ 2728}# + #{req\ 2729}# + #{opt\ 2730}# + #{rest\ 2731}# + #{kw\ 2732}# + #{inits\ 2733}# + #{vars\ 2734}# + #{body\ 2735}#) (call-with-values (lambda () - (#{chi-lambda-case\ 485}# - #{e\ 2521}# - #{r\ 2522}# - #{w\ 2523}# - #{s\ 2524}# - #{mod\ 2525}# - #{get-formals\ 2526}# - (map (lambda (#{tmp\ 2752}# - #{tmp\ 2751}# - #{tmp\ 2750}#) - (cons #{tmp\ 2750}# - (cons #{tmp\ 2751}# - #{tmp\ 2752}#))) - #{e2*\ 2724}# - #{e1*\ 2723}# - #{args*\ 2722}#))) - (lambda (#{meta*\ 2754}# - #{else*\ 2755}#) + (#{chi-lambda-case\ 484}# + #{e\ 2515}# + #{r\ 2516}# + #{w\ 2517}# + #{s\ 2518}# + #{mod\ 2519}# + #{get-formals\ 2520}# + (map (lambda (#{tmp\ 2746}# + #{tmp\ 2745}# + #{tmp\ 2744}#) + (cons #{tmp\ 2744}# + (cons #{tmp\ 2745}# + #{tmp\ 2746}#))) + #{e2*\ 2718}# + #{e1*\ 2717}# + #{args*\ 2716}#))) + (lambda (#{meta*\ 2748}# + #{else*\ 2749}#) (values (append - #{meta\ 2734}# - #{meta*\ 2754}#) - (#{build-lambda-case\ 327}# - #{s\ 2524}# - #{req\ 2735}# - #{opt\ 2736}# - #{rest\ 2737}# - #{kw\ 2738}# - #{inits\ 2739}# - #{vars\ 2740}# - #{body\ 2741}# - #{else*\ 2755}#))))))))) - #{tmp\ 2712}#) + #{meta\ 2728}# + #{meta*\ 2748}#) + (#{build-lambda-case\ 328}# + #{s\ 2518}# + #{req\ 2729}# + #{opt\ 2730}# + #{rest\ 2731}# + #{kw\ 2732}# + #{inits\ 2733}# + #{vars\ 2734}# + #{body\ 2735}# + #{else*\ 2749}#))))))))) + #{tmp\ 2706}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2710}#)))))))))) - (#{strip\ 487}# - (lambda (#{x\ 2758}# #{w\ 2759}#) - (if (memq 'top (car #{w\ 2759}#)) - #{x\ 2758}# + #{tmp\ 2704}#)))))))))) + (#{strip\ 486}# + (lambda (#{x\ 2752}# #{w\ 2753}#) + (if (memq 'top (car #{w\ 2753}#)) + #{x\ 2752}# (letrec* - ((#{f\ 2766}# - (lambda (#{x\ 2767}#) - (if (#{syntax-object?\ 345}# #{x\ 2767}#) - (#{strip\ 487}# - (#{syntax-object-expression\ 347}# #{x\ 2767}#) - (#{syntax-object-wrap\ 349}# #{x\ 2767}#)) - (if (pair? #{x\ 2767}#) + ((#{f\ 2760}# + (lambda (#{x\ 2761}#) + (if (#{syntax-object?\ 346}# #{x\ 2761}#) + (#{strip\ 486}# + (#{syntax-object-expression\ 348}# #{x\ 2761}#) + (#{syntax-object-wrap\ 350}# #{x\ 2761}#)) + (if (pair? #{x\ 2761}#) (begin - (let ((#{a\ 2774}# (#{f\ 2766}# (car #{x\ 2767}#))) - (#{d\ 2775}# - (#{f\ 2766}# (cdr #{x\ 2767}#)))) - (if (if (eq? #{a\ 2774}# (car #{x\ 2767}#)) - (eq? #{d\ 2775}# (cdr #{x\ 2767}#)) + (let ((#{a\ 2768}# (#{f\ 2760}# (car #{x\ 2761}#))) + (#{d\ 2769}# + (#{f\ 2760}# (cdr #{x\ 2761}#)))) + (if (if (eq? #{a\ 2768}# (car #{x\ 2761}#)) + (eq? #{d\ 2769}# (cdr #{x\ 2761}#)) #f) - #{x\ 2767}# - (cons #{a\ 2774}# #{d\ 2775}#)))) - (if (vector? #{x\ 2767}#) + #{x\ 2761}# + (cons #{a\ 2768}# #{d\ 2769}#)))) + (if (vector? #{x\ 2761}#) (begin - (let ((#{old\ 2781}# (vector->list #{x\ 2767}#))) + (let ((#{old\ 2775}# (vector->list #{x\ 2761}#))) (begin - (let ((#{new\ 2783}# - (map #{f\ 2766}# #{old\ 2781}#))) - (if (#{and-map*\ 37}# + (let ((#{new\ 2777}# + (map #{f\ 2760}# #{old\ 2775}#))) + (if (#{and-map*\ 38}# eq? - #{old\ 2781}# - #{new\ 2783}#) - #{x\ 2767}# - (list->vector #{new\ 2783}#)))))) - #{x\ 2767}#)))))) - (begin (#{f\ 2766}# #{x\ 2758}#)))))) - (#{gen-var\ 489}# - (lambda (#{id\ 2785}#) + #{old\ 2775}# + #{new\ 2777}#) + #{x\ 2761}# + (list->vector #{new\ 2777}#)))))) + #{x\ 2761}#)))))) + (begin (#{f\ 2760}# #{x\ 2752}#)))))) + (#{gen-var\ 488}# + (lambda (#{id\ 2779}#) (begin - (let ((#{id\ 2788}# - (if (#{syntax-object?\ 345}# #{id\ 2785}#) - (#{syntax-object-expression\ 347}# #{id\ 2785}#) - #{id\ 2785}#))) + (let ((#{id\ 2782}# + (if (#{syntax-object?\ 346}# #{id\ 2779}#) + (#{syntax-object-expression\ 348}# #{id\ 2779}#) + #{id\ 2779}#))) (gensym - (string-append (symbol->string #{id\ 2788}#) " ")))))) - (#{lambda-var-list\ 491}# - (lambda (#{vars\ 2790}#) + (string-append (symbol->string #{id\ 2782}#) " ")))))) + (#{lambda-var-list\ 490}# + (lambda (#{vars\ 2784}#) (letrec* - ((#{lvl\ 2796}# - (lambda (#{vars\ 2797}# #{ls\ 2798}# #{w\ 2799}#) - (if (pair? #{vars\ 2797}#) - (#{lvl\ 2796}# - (cdr #{vars\ 2797}#) - (cons (#{wrap\ 445}# - (car #{vars\ 2797}#) - #{w\ 2799}# + ((#{lvl\ 2790}# + (lambda (#{vars\ 2791}# #{ls\ 2792}# #{w\ 2793}#) + (if (pair? #{vars\ 2791}#) + (#{lvl\ 2790}# + (cdr #{vars\ 2791}#) + (cons (#{wrap\ 446}# + (car #{vars\ 2791}#) + #{w\ 2793}# #f) - #{ls\ 2798}#) - #{w\ 2799}#) - (if (#{id?\ 379}# #{vars\ 2797}#) - (cons (#{wrap\ 445}# #{vars\ 2797}# #{w\ 2799}# #f) - #{ls\ 2798}#) - (if (null? #{vars\ 2797}#) - #{ls\ 2798}# - (if (#{syntax-object?\ 345}# #{vars\ 2797}#) - (#{lvl\ 2796}# - (#{syntax-object-expression\ 347}# - #{vars\ 2797}#) - #{ls\ 2798}# - (#{join-wraps\ 427}# - #{w\ 2799}# - (#{syntax-object-wrap\ 349}# #{vars\ 2797}#))) - (cons #{vars\ 2797}# #{ls\ 2798}#)))))))) - (begin (#{lvl\ 2796}# #{vars\ 2790}# '() '(()))))))) + #{ls\ 2792}#) + #{w\ 2793}#) + (if (#{id?\ 380}# #{vars\ 2791}#) + (cons (#{wrap\ 446}# #{vars\ 2791}# #{w\ 2793}# #f) + #{ls\ 2792}#) + (if (null? #{vars\ 2791}#) + #{ls\ 2792}# + (if (#{syntax-object?\ 346}# #{vars\ 2791}#) + (#{lvl\ 2790}# + (#{syntax-object-expression\ 348}# + #{vars\ 2791}#) + #{ls\ 2792}# + (#{join-wraps\ 428}# + #{w\ 2793}# + (#{syntax-object-wrap\ 350}# #{vars\ 2791}#))) + (cons #{vars\ 2791}# #{ls\ 2792}#)))))))) + (begin (#{lvl\ 2790}# #{vars\ 2784}# '() '(()))))))) (begin - (set! #{make-primitive-ref\ 243}# - (lambda (#{src\ 757}# #{name\ 758}#) + (set! #{make-primitive-ref\ 244}# + (lambda (#{src\ 756}# #{name\ 757}#) (make-struct/no-tail (vector-ref %expanded-vtables 2) - #{src\ 757}# - #{name\ 758}#))) - (set! #{fx+\ 282}# +) - (set! #{fx-\ 284}# -) - (set! #{fx=\ 286}# =) - (set! #{fx<\ 288}# <) - (set! #{set-syntax-object-expression!\ 353}# - (lambda (#{x\ 1135}# #{update\ 1136}#) - (vector-set! #{x\ 1135}# 1 #{update\ 1136}#))) - (set! #{set-syntax-object-wrap!\ 355}# - (lambda (#{x\ 1139}# #{update\ 1140}#) - (vector-set! #{x\ 1139}# 2 #{update\ 1140}#))) - (set! #{set-syntax-object-module!\ 357}# - (lambda (#{x\ 1143}# #{update\ 1144}#) - (vector-set! #{x\ 1143}# 3 #{update\ 1144}#))) - (set! #{ribcage?\ 399}# - (lambda (#{x\ 1224}#) - (if (vector? #{x\ 1224}#) - (if (= (vector-length #{x\ 1224}#) 4) - (eq? (vector-ref #{x\ 1224}# 0) 'ribcage) + #{src\ 756}# + #{name\ 757}#))) + (set! #{fx+\ 283}# +) + (set! #{fx-\ 285}# -) + (set! #{fx=\ 287}# =) + (set! #{fx<\ 289}# <) + (set! #{set-syntax-object-expression!\ 354}# + (lambda (#{x\ 1134}# #{update\ 1135}#) + (vector-set! #{x\ 1134}# 1 #{update\ 1135}#))) + (set! #{set-syntax-object-wrap!\ 356}# + (lambda (#{x\ 1138}# #{update\ 1139}#) + (vector-set! #{x\ 1138}# 2 #{update\ 1139}#))) + (set! #{set-syntax-object-module!\ 358}# + (lambda (#{x\ 1142}# #{update\ 1143}#) + (vector-set! #{x\ 1142}# 3 #{update\ 1143}#))) + (set! #{ribcage?\ 400}# + (lambda (#{x\ 1223}#) + (if (vector? #{x\ 1223}#) + (if (= (vector-length #{x\ 1223}#) 4) + (eq? (vector-ref #{x\ 1223}# 0) 'ribcage) #f) #f))) (begin - (#{global-extend\ 375}# + (#{global-extend\ 376}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 375}# + (#{global-extend\ 376}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 375}# + (#{global-extend\ 376}# 'core 'fluid-let-syntax - (lambda (#{e\ 2810}# - #{r\ 2811}# - #{w\ 2812}# - #{s\ 2813}# - #{mod\ 2814}#) - (let ((#{tmp\ 2820}# #{e\ 2810}#)) - (let ((#{tmp\ 2821}# + (lambda (#{e\ 2804}# + #{r\ 2805}# + #{w\ 2806}# + #{s\ 2807}# + #{mod\ 2808}#) + (let ((#{tmp\ 2814}# #{e\ 2804}#)) + (let ((#{tmp\ 2815}# ($sc-dispatch - #{tmp\ 2820}# + #{tmp\ 2814}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 2821}# + (if (if #{tmp\ 2815}# (@apply - (lambda (#{var\ 2826}# - #{val\ 2827}# - #{e1\ 2828}# - #{e2\ 2829}#) - (#{valid-bound-ids?\ 439}# #{var\ 2826}#)) - #{tmp\ 2821}#) + (lambda (#{var\ 2820}# + #{val\ 2821}# + #{e1\ 2822}# + #{e2\ 2823}#) + (#{valid-bound-ids?\ 440}# #{var\ 2820}#)) + #{tmp\ 2815}#) #f) (@apply - (lambda (#{var\ 2835}# - #{val\ 2836}# - #{e1\ 2837}# - #{e2\ 2838}#) + (lambda (#{var\ 2829}# + #{val\ 2830}# + #{e1\ 2831}# + #{e2\ 2832}#) (begin - (let ((#{names\ 2840}# - (map (lambda (#{x\ 2841}#) - (#{id-var-name\ 433}# - #{x\ 2841}# - #{w\ 2812}#)) - #{var\ 2835}#))) + (let ((#{names\ 2834}# + (map (lambda (#{x\ 2835}#) + (#{id-var-name\ 434}# + #{x\ 2835}# + #{w\ 2806}#)) + #{var\ 2829}#))) (begin (for-each - (lambda (#{id\ 2844}# #{n\ 2845}#) + (lambda (#{id\ 2838}# #{n\ 2839}#) (begin - (let ((#{atom-key\ 2850}# - (car (#{lookup\ 373}# - #{n\ 2845}# - #{r\ 2811}# - #{mod\ 2814}#)))) - (if (eqv? #{atom-key\ 2850}# + (let ((#{atom-key\ 2844}# + (car (#{lookup\ 374}# + #{n\ 2839}# + #{r\ 2805}# + #{mod\ 2808}#)))) + (if (eqv? #{atom-key\ 2844}# 'displaced-lexical) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2810}# - (#{source-wrap\ 447}# - #{id\ 2844}# - #{w\ 2812}# - #{s\ 2813}# - #{mod\ 2814}#)))))) - #{var\ 2835}# - #{names\ 2840}#) - (#{chi-body\ 469}# - (cons #{e1\ 2837}# #{e2\ 2838}#) - (#{source-wrap\ 447}# - #{e\ 2810}# - #{w\ 2812}# - #{s\ 2813}# - #{mod\ 2814}#) - (#{extend-env\ 367}# - #{names\ 2840}# + #{e\ 2804}# + (#{source-wrap\ 448}# + #{id\ 2838}# + #{w\ 2806}# + #{s\ 2807}# + #{mod\ 2808}#)))))) + #{var\ 2829}# + #{names\ 2834}#) + (#{chi-body\ 468}# + (cons #{e1\ 2831}# #{e2\ 2832}#) + (#{source-wrap\ 448}# + #{e\ 2804}# + #{w\ 2806}# + #{s\ 2807}# + #{mod\ 2808}#) + (#{extend-env\ 368}# + #{names\ 2834}# (begin - (let ((#{trans-r\ 2856}# - (#{macros-only-env\ 371}# - #{r\ 2811}#))) - (map (lambda (#{x\ 2857}#) + (let ((#{trans-r\ 2850}# + (#{macros-only-env\ 372}# + #{r\ 2805}#))) + (map (lambda (#{x\ 2851}#) (cons 'macro - (#{eval-local-transformer\ 473}# - (#{chi\ 461}# - #{x\ 2857}# - #{trans-r\ 2856}# - #{w\ 2812}# - #{mod\ 2814}#) - #{mod\ 2814}#))) - #{val\ 2836}#))) - #{r\ 2811}#) - #{w\ 2812}# - #{mod\ 2814}#))))) - #{tmp\ 2821}#) - (let ((#{_\ 2862}# #{tmp\ 2820}#)) + (#{eval-local-transformer\ 472}# + (#{chi\ 460}# + #{x\ 2851}# + #{trans-r\ 2850}# + #{w\ 2806}# + #{mod\ 2808}#) + #{mod\ 2808}#))) + #{val\ 2830}#))) + #{r\ 2805}#) + #{w\ 2806}# + #{mod\ 2808}#))))) + #{tmp\ 2815}#) + (let ((#{_\ 2856}# #{tmp\ 2814}#)) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 447}# - #{e\ 2810}# - #{w\ 2812}# - #{s\ 2813}# - #{mod\ 2814}#)))))))) - (#{global-extend\ 375}# + (#{source-wrap\ 448}# + #{e\ 2804}# + #{w\ 2806}# + #{s\ 2807}# + #{mod\ 2808}#)))))))) + (#{global-extend\ 376}# 'core 'quote - (lambda (#{e\ 2863}# - #{r\ 2864}# - #{w\ 2865}# - #{s\ 2866}# - #{mod\ 2867}#) - (let ((#{tmp\ 2873}# #{e\ 2863}#)) - (let ((#{tmp\ 2874}# - ($sc-dispatch #{tmp\ 2873}# '(_ any)))) - (if #{tmp\ 2874}# + (lambda (#{e\ 2857}# + #{r\ 2858}# + #{w\ 2859}# + #{s\ 2860}# + #{mod\ 2861}#) + (let ((#{tmp\ 2867}# #{e\ 2857}#)) + (let ((#{tmp\ 2868}# + ($sc-dispatch #{tmp\ 2867}# '(_ any)))) + (if #{tmp\ 2868}# (@apply - (lambda (#{e\ 2876}#) - (#{build-data\ 331}# - #{s\ 2866}# - (#{strip\ 487}# #{e\ 2876}# #{w\ 2865}#))) - #{tmp\ 2874}#) - (let ((#{_\ 2878}# #{tmp\ 2873}#)) + (lambda (#{e\ 2870}#) + (#{build-data\ 332}# + #{s\ 2860}# + (#{strip\ 486}# #{e\ 2870}# #{w\ 2859}#))) + #{tmp\ 2868}#) + (let ((#{_\ 2872}# #{tmp\ 2867}#)) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 447}# - #{e\ 2863}# - #{w\ 2865}# - #{s\ 2866}# - #{mod\ 2867}#)))))))) - (#{global-extend\ 375}# + (#{source-wrap\ 448}# + #{e\ 2857}# + #{w\ 2859}# + #{s\ 2860}# + #{mod\ 2861}#)))))))) + (#{global-extend\ 376}# 'core 'syntax (letrec* - ((#{gen-syntax\ 2880}# - (lambda (#{src\ 2895}# - #{e\ 2896}# - #{r\ 2897}# - #{maps\ 2898}# - #{ellipsis?\ 2899}# - #{mod\ 2900}#) - (if (#{id?\ 379}# #{e\ 2896}#) + ((#{gen-syntax\ 2874}# + (lambda (#{src\ 2889}# + #{e\ 2890}# + #{r\ 2891}# + #{maps\ 2892}# + #{ellipsis?\ 2893}# + #{mod\ 2894}#) + (if (#{id?\ 380}# #{e\ 2890}#) (begin - (let ((#{label\ 2908}# - (#{id-var-name\ 433}# #{e\ 2896}# '(())))) + (let ((#{label\ 2902}# + (#{id-var-name\ 434}# #{e\ 2890}# '(())))) (begin - (let ((#{b\ 2911}# - (#{lookup\ 373}# - #{label\ 2908}# - #{r\ 2897}# - #{mod\ 2900}#))) - (if (eq? (car #{b\ 2911}#) 'syntax) + (let ((#{b\ 2905}# + (#{lookup\ 374}# + #{label\ 2902}# + #{r\ 2891}# + #{mod\ 2894}#))) + (if (eq? (car #{b\ 2905}#) 'syntax) (call-with-values (lambda () (begin - (let ((#{var.lev\ 2914}# - (cdr #{b\ 2911}#))) - (#{gen-ref\ 2882}# - #{src\ 2895}# - (car #{var.lev\ 2914}#) - (cdr #{var.lev\ 2914}#) - #{maps\ 2898}#)))) - (lambda (#{var\ 2916}# #{maps\ 2917}#) + (let ((#{var.lev\ 2908}# + (cdr #{b\ 2905}#))) + (#{gen-ref\ 2876}# + #{src\ 2889}# + (car #{var.lev\ 2908}#) + (cdr #{var.lev\ 2908}#) + #{maps\ 2892}#)))) + (lambda (#{var\ 2910}# #{maps\ 2911}#) (values - (list 'ref #{var\ 2916}#) - #{maps\ 2917}#))) - (if (#{ellipsis?\ 2899}# #{e\ 2896}#) + (list 'ref #{var\ 2910}#) + #{maps\ 2911}#))) + (if (#{ellipsis?\ 2893}# #{e\ 2890}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2895}#) + #{src\ 2889}#) (values - (list 'quote #{e\ 2896}#) - #{maps\ 2898}#))))))) - (let ((#{tmp\ 2922}# #{e\ 2896}#)) - (let ((#{tmp\ 2923}# - ($sc-dispatch #{tmp\ 2922}# '(any any)))) - (if (if #{tmp\ 2923}# + (list 'quote #{e\ 2890}#) + #{maps\ 2892}#))))))) + (let ((#{tmp\ 2916}# #{e\ 2890}#)) + (let ((#{tmp\ 2917}# + ($sc-dispatch #{tmp\ 2916}# '(any any)))) + (if (if #{tmp\ 2917}# (@apply - (lambda (#{dots\ 2926}# #{e\ 2927}#) - (#{ellipsis?\ 2899}# #{dots\ 2926}#)) - #{tmp\ 2923}#) + (lambda (#{dots\ 2920}# #{e\ 2921}#) + (#{ellipsis?\ 2893}# #{dots\ 2920}#)) + #{tmp\ 2917}#) #f) (@apply - (lambda (#{dots\ 2930}# #{e\ 2931}#) - (#{gen-syntax\ 2880}# - #{src\ 2895}# - #{e\ 2931}# - #{r\ 2897}# - #{maps\ 2898}# - (lambda (#{x\ 2932}#) #f) - #{mod\ 2900}#)) - #{tmp\ 2923}#) - (let ((#{tmp\ 2934}# + (lambda (#{dots\ 2924}# #{e\ 2925}#) + (#{gen-syntax\ 2874}# + #{src\ 2889}# + #{e\ 2925}# + #{r\ 2891}# + #{maps\ 2892}# + (lambda (#{x\ 2926}#) #f) + #{mod\ 2894}#)) + #{tmp\ 2917}#) + (let ((#{tmp\ 2928}# ($sc-dispatch - #{tmp\ 2922}# + #{tmp\ 2916}# '(any any . any)))) - (if (if #{tmp\ 2934}# + (if (if #{tmp\ 2928}# (@apply - (lambda (#{x\ 2938}# - #{dots\ 2939}# - #{y\ 2940}#) - (#{ellipsis?\ 2899}# #{dots\ 2939}#)) - #{tmp\ 2934}#) + (lambda (#{x\ 2932}# + #{dots\ 2933}# + #{y\ 2934}#) + (#{ellipsis?\ 2893}# #{dots\ 2933}#)) + #{tmp\ 2928}#) #f) (@apply - (lambda (#{x\ 2944}# - #{dots\ 2945}# - #{y\ 2946}#) + (lambda (#{x\ 2938}# + #{dots\ 2939}# + #{y\ 2940}#) (letrec* - ((#{f\ 2950}# - (lambda (#{y\ 2951}# #{k\ 2952}#) - (let ((#{tmp\ 2959}# #{y\ 2951}#)) - (let ((#{tmp\ 2960}# + ((#{f\ 2944}# + (lambda (#{y\ 2945}# #{k\ 2946}#) + (let ((#{tmp\ 2953}# #{y\ 2945}#)) + (let ((#{tmp\ 2954}# ($sc-dispatch - #{tmp\ 2959}# + #{tmp\ 2953}# '(any . any)))) - (if (if #{tmp\ 2960}# + (if (if #{tmp\ 2954}# (@apply - (lambda (#{dots\ 2963}# - #{y\ 2964}#) - (#{ellipsis?\ 2899}# - #{dots\ 2963}#)) - #{tmp\ 2960}#) + (lambda (#{dots\ 2957}# + #{y\ 2958}#) + (#{ellipsis?\ 2893}# + #{dots\ 2957}#)) + #{tmp\ 2954}#) #f) (@apply - (lambda (#{dots\ 2967}# - #{y\ 2968}#) - (#{f\ 2950}# - #{y\ 2968}# - (lambda (#{maps\ 2969}#) + (lambda (#{dots\ 2961}# + #{y\ 2962}#) + (#{f\ 2944}# + #{y\ 2962}# + (lambda (#{maps\ 2963}#) (call-with-values (lambda () - (#{k\ 2952}# + (#{k\ 2946}# (cons '() - #{maps\ 2969}#))) - (lambda (#{x\ 2971}# - #{maps\ 2972}#) - (if (null? (car #{maps\ 2972}#)) + #{maps\ 2963}#))) + (lambda (#{x\ 2965}# + #{maps\ 2966}#) + (if (null? (car #{maps\ 2966}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2895}#) + #{src\ 2889}#) (values - (#{gen-mappend\ 2884}# - #{x\ 2971}# - (car #{maps\ 2972}#)) - (cdr #{maps\ 2972}#)))))))) - #{tmp\ 2960}#) - (let ((#{_\ 2976}# - #{tmp\ 2959}#)) + (#{gen-mappend\ 2878}# + #{x\ 2965}# + (car #{maps\ 2966}#)) + (cdr #{maps\ 2966}#)))))))) + #{tmp\ 2954}#) + (let ((#{_\ 2970}# + #{tmp\ 2953}#)) (call-with-values (lambda () - (#{gen-syntax\ 2880}# - #{src\ 2895}# - #{y\ 2951}# - #{r\ 2897}# - #{maps\ 2898}# - #{ellipsis?\ 2899}# - #{mod\ 2900}#)) - (lambda (#{y\ 2977}# - #{maps\ 2978}#) + (#{gen-syntax\ 2874}# + #{src\ 2889}# + #{y\ 2945}# + #{r\ 2891}# + #{maps\ 2892}# + #{ellipsis?\ 2893}# + #{mod\ 2894}#)) + (lambda (#{y\ 2971}# + #{maps\ 2972}#) (call-with-values (lambda () - (#{k\ 2952}# - #{maps\ 2978}#)) - (lambda (#{x\ 2981}# - #{maps\ 2982}#) + (#{k\ 2946}# + #{maps\ 2972}#)) + (lambda (#{x\ 2975}# + #{maps\ 2976}#) (values - (#{gen-append\ 2890}# - #{x\ 2981}# - #{y\ 2977}#) - #{maps\ 2982}#)))))))))))) + (#{gen-append\ 2884}# + #{x\ 2975}# + #{y\ 2971}#) + #{maps\ 2976}#)))))))))))) (begin - (#{f\ 2950}# - #{y\ 2946}# - (lambda (#{maps\ 2953}#) + (#{f\ 2944}# + #{y\ 2940}# + (lambda (#{maps\ 2947}#) (call-with-values (lambda () - (#{gen-syntax\ 2880}# - #{src\ 2895}# - #{x\ 2944}# - #{r\ 2897}# - (cons '() #{maps\ 2953}#) - #{ellipsis?\ 2899}# - #{mod\ 2900}#)) - (lambda (#{x\ 2955}# - #{maps\ 2956}#) - (if (null? (car #{maps\ 2956}#)) + (#{gen-syntax\ 2874}# + #{src\ 2889}# + #{x\ 2938}# + #{r\ 2891}# + (cons '() #{maps\ 2947}#) + #{ellipsis?\ 2893}# + #{mod\ 2894}#)) + (lambda (#{x\ 2949}# + #{maps\ 2950}#) + (if (null? (car #{maps\ 2950}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2895}#) + #{src\ 2889}#) (values - (#{gen-map\ 2886}# - #{x\ 2955}# - (car #{maps\ 2956}#)) - (cdr #{maps\ 2956}#)))))))))) - #{tmp\ 2934}#) - (let ((#{tmp\ 2985}# + (#{gen-map\ 2880}# + #{x\ 2949}# + (car #{maps\ 2950}#)) + (cdr #{maps\ 2950}#)))))))))) + #{tmp\ 2928}#) + (let ((#{tmp\ 2979}# ($sc-dispatch - #{tmp\ 2922}# + #{tmp\ 2916}# '(any . any)))) - (if #{tmp\ 2985}# + (if #{tmp\ 2979}# (@apply - (lambda (#{x\ 2988}# #{y\ 2989}#) + (lambda (#{x\ 2982}# #{y\ 2983}#) (call-with-values (lambda () - (#{gen-syntax\ 2880}# - #{src\ 2895}# - #{x\ 2988}# - #{r\ 2897}# - #{maps\ 2898}# - #{ellipsis?\ 2899}# - #{mod\ 2900}#)) - (lambda (#{x\ 2990}# #{maps\ 2991}#) + (#{gen-syntax\ 2874}# + #{src\ 2889}# + #{x\ 2982}# + #{r\ 2891}# + #{maps\ 2892}# + #{ellipsis?\ 2893}# + #{mod\ 2894}#)) + (lambda (#{x\ 2984}# #{maps\ 2985}#) (call-with-values (lambda () - (#{gen-syntax\ 2880}# - #{src\ 2895}# - #{y\ 2989}# - #{r\ 2897}# - #{maps\ 2991}# - #{ellipsis?\ 2899}# - #{mod\ 2900}#)) - (lambda (#{y\ 2994}# - #{maps\ 2995}#) + (#{gen-syntax\ 2874}# + #{src\ 2889}# + #{y\ 2983}# + #{r\ 2891}# + #{maps\ 2985}# + #{ellipsis?\ 2893}# + #{mod\ 2894}#)) + (lambda (#{y\ 2988}# + #{maps\ 2989}#) (values - (#{gen-cons\ 2888}# - #{x\ 2990}# - #{y\ 2994}#) - #{maps\ 2995}#)))))) - #{tmp\ 2985}#) - (let ((#{tmp\ 2998}# + (#{gen-cons\ 2882}# + #{x\ 2984}# + #{y\ 2988}#) + #{maps\ 2989}#)))))) + #{tmp\ 2979}#) + (let ((#{tmp\ 2992}# ($sc-dispatch - #{tmp\ 2922}# + #{tmp\ 2916}# '#(vector (any . each-any))))) - (if #{tmp\ 2998}# + (if #{tmp\ 2992}# (@apply - (lambda (#{e1\ 3001}# #{e2\ 3002}#) + (lambda (#{e1\ 2995}# #{e2\ 2996}#) (call-with-values (lambda () - (#{gen-syntax\ 2880}# - #{src\ 2895}# - (cons #{e1\ 3001}# - #{e2\ 3002}#) - #{r\ 2897}# - #{maps\ 2898}# - #{ellipsis?\ 2899}# - #{mod\ 2900}#)) - (lambda (#{e\ 3004}# - #{maps\ 3005}#) + (#{gen-syntax\ 2874}# + #{src\ 2889}# + (cons #{e1\ 2995}# + #{e2\ 2996}#) + #{r\ 2891}# + #{maps\ 2892}# + #{ellipsis?\ 2893}# + #{mod\ 2894}#)) + (lambda (#{e\ 2998}# + #{maps\ 2999}#) (values - (#{gen-vector\ 2892}# - #{e\ 3004}#) - #{maps\ 3005}#)))) - #{tmp\ 2998}#) - (let ((#{_\ 3009}# #{tmp\ 2922}#)) + (#{gen-vector\ 2886}# + #{e\ 2998}#) + #{maps\ 2999}#)))) + #{tmp\ 2992}#) + (let ((#{_\ 3003}# #{tmp\ 2916}#)) (values - (list 'quote #{e\ 2896}#) - #{maps\ 2898}#)))))))))))))) - (#{gen-ref\ 2882}# - (lambda (#{src\ 3011}# - #{var\ 3012}# - #{level\ 3013}# - #{maps\ 3014}#) - (if (#{fx=\ 286}# #{level\ 3013}# 0) - (values #{var\ 3012}# #{maps\ 3014}#) - (if (null? #{maps\ 3014}#) + (list 'quote #{e\ 2890}#) + #{maps\ 2892}#)))))))))))))) + (#{gen-ref\ 2876}# + (lambda (#{src\ 3005}# + #{var\ 3006}# + #{level\ 3007}# + #{maps\ 3008}#) + (if (#{fx=\ 287}# #{level\ 3007}# 0) + (values #{var\ 3006}# #{maps\ 3008}#) + (if (null? #{maps\ 3008}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 3011}#) + #{src\ 3005}#) (call-with-values (lambda () - (#{gen-ref\ 2882}# - #{src\ 3011}# - #{var\ 3012}# - (#{fx-\ 284}# #{level\ 3013}# 1) - (cdr #{maps\ 3014}#))) - (lambda (#{outer-var\ 3019}# #{outer-maps\ 3020}#) + (#{gen-ref\ 2876}# + #{src\ 3005}# + #{var\ 3006}# + (#{fx-\ 285}# #{level\ 3007}# 1) + (cdr #{maps\ 3008}#))) + (lambda (#{outer-var\ 3013}# #{outer-maps\ 3014}#) (begin - (let ((#{b\ 3024}# - (assq #{outer-var\ 3019}# - (car #{maps\ 3014}#)))) - (if #{b\ 3024}# - (values (cdr #{b\ 3024}#) #{maps\ 3014}#) + (let ((#{b\ 3018}# + (assq #{outer-var\ 3013}# + (car #{maps\ 3008}#)))) + (if #{b\ 3018}# + (values (cdr #{b\ 3018}#) #{maps\ 3008}#) (begin - (let ((#{inner-var\ 3026}# - (#{gen-var\ 489}# 'tmp))) + (let ((#{inner-var\ 3020}# + (#{gen-var\ 488}# 'tmp))) (values - #{inner-var\ 3026}# - (cons (cons (cons #{outer-var\ 3019}# - #{inner-var\ 3026}#) - (car #{maps\ 3014}#)) - #{outer-maps\ 3020}#))))))))))))) - (#{gen-mappend\ 2884}# - (lambda (#{e\ 3027}# #{map-env\ 3028}#) + #{inner-var\ 3020}# + (cons (cons (cons #{outer-var\ 3013}# + #{inner-var\ 3020}#) + (car #{maps\ 3008}#)) + #{outer-maps\ 3014}#))))))))))))) + (#{gen-mappend\ 2878}# + (lambda (#{e\ 3021}# #{map-env\ 3022}#) (list 'apply '(primitive append) - (#{gen-map\ 2886}# #{e\ 3027}# #{map-env\ 3028}#)))) - (#{gen-map\ 2886}# - (lambda (#{e\ 3032}# #{map-env\ 3033}#) + (#{gen-map\ 2880}# #{e\ 3021}# #{map-env\ 3022}#)))) + (#{gen-map\ 2880}# + (lambda (#{e\ 3026}# #{map-env\ 3027}#) (begin - (let ((#{formals\ 3038}# (map cdr #{map-env\ 3033}#)) - (#{actuals\ 3039}# - (map (lambda (#{x\ 3040}#) - (list 'ref (car #{x\ 3040}#))) - #{map-env\ 3033}#))) - (if (eq? (car #{e\ 3032}#) 'ref) - (car #{actuals\ 3039}#) + (let ((#{formals\ 3032}# (map cdr #{map-env\ 3027}#)) + (#{actuals\ 3033}# + (map (lambda (#{x\ 3034}#) + (list 'ref (car #{x\ 3034}#))) + #{map-env\ 3027}#))) + (if (eq? (car #{e\ 3026}#) 'ref) + (car #{actuals\ 3033}#) (if (and-map - (lambda (#{x\ 3047}#) - (if (eq? (car #{x\ 3047}#) 'ref) - (memq (car (cdr #{x\ 3047}#)) - #{formals\ 3038}#) + (lambda (#{x\ 3041}#) + (if (eq? (car #{x\ 3041}#) 'ref) + (memq (car (cdr #{x\ 3041}#)) + #{formals\ 3032}#) #f)) - (cdr #{e\ 3032}#)) + (cdr #{e\ 3026}#)) (cons 'map - (cons (list 'primitive (car #{e\ 3032}#)) + (cons (list 'primitive (car #{e\ 3026}#)) (map (begin - (let ((#{r\ 3053}# + (let ((#{r\ 3047}# (map cons - #{formals\ 3038}# - #{actuals\ 3039}#))) - (lambda (#{x\ 3054}#) - (cdr (assq (car (cdr #{x\ 3054}#)) - #{r\ 3053}#))))) - (cdr #{e\ 3032}#)))) + #{formals\ 3032}# + #{actuals\ 3033}#))) + (lambda (#{x\ 3048}#) + (cdr (assq (car (cdr #{x\ 3048}#)) + #{r\ 3047}#))))) + (cdr #{e\ 3026}#)))) (cons 'map (cons (list 'lambda - #{formals\ 3038}# - #{e\ 3032}#) - #{actuals\ 3039}#)))))))) - (#{gen-cons\ 2888}# - (lambda (#{x\ 3058}# #{y\ 3059}#) + #{formals\ 3032}# + #{e\ 3026}#) + #{actuals\ 3033}#)))))))) + (#{gen-cons\ 2882}# + (lambda (#{x\ 3052}# #{y\ 3053}#) (begin - (let ((#{atom-key\ 3064}# (car #{y\ 3059}#))) - (if (eqv? #{atom-key\ 3064}# 'quote) - (if (eq? (car #{x\ 3058}#) 'quote) + (let ((#{atom-key\ 3058}# (car #{y\ 3053}#))) + (if (eqv? #{atom-key\ 3058}# 'quote) + (if (eq? (car #{x\ 3052}#) 'quote) (list 'quote - (cons (car (cdr #{x\ 3058}#)) - (car (cdr #{y\ 3059}#)))) - (if (eq? (car (cdr #{y\ 3059}#)) '()) - (list 'list #{x\ 3058}#) - (list 'cons #{x\ 3058}# #{y\ 3059}#))) - (if (eqv? #{atom-key\ 3064}# 'list) - (cons 'list (cons #{x\ 3058}# (cdr #{y\ 3059}#))) - (list 'cons #{x\ 3058}# #{y\ 3059}#))))))) - (#{gen-append\ 2890}# - (lambda (#{x\ 3073}# #{y\ 3074}#) - (if (equal? #{y\ 3074}# ''()) - #{x\ 3073}# - (list 'append #{x\ 3073}# #{y\ 3074}#)))) - (#{gen-vector\ 2892}# - (lambda (#{x\ 3078}#) - (if (eq? (car #{x\ 3078}#) 'list) - (cons 'vector (cdr #{x\ 3078}#)) - (if (eq? (car #{x\ 3078}#) 'quote) + (cons (car (cdr #{x\ 3052}#)) + (car (cdr #{y\ 3053}#)))) + (if (eq? (car (cdr #{y\ 3053}#)) '()) + (list 'list #{x\ 3052}#) + (list 'cons #{x\ 3052}# #{y\ 3053}#))) + (if (eqv? #{atom-key\ 3058}# 'list) + (cons 'list (cons #{x\ 3052}# (cdr #{y\ 3053}#))) + (list 'cons #{x\ 3052}# #{y\ 3053}#))))))) + (#{gen-append\ 2884}# + (lambda (#{x\ 3067}# #{y\ 3068}#) + (if (equal? #{y\ 3068}# ''()) + #{x\ 3067}# + (list 'append #{x\ 3067}# #{y\ 3068}#)))) + (#{gen-vector\ 2886}# + (lambda (#{x\ 3072}#) + (if (eq? (car #{x\ 3072}#) 'list) + (cons 'vector (cdr #{x\ 3072}#)) + (if (eq? (car #{x\ 3072}#) 'quote) (list 'quote - (list->vector (car (cdr #{x\ 3078}#)))) - (list 'list->vector #{x\ 3078}#))))) - (#{regen\ 2894}# - (lambda (#{x\ 3088}#) + (list->vector (car (cdr #{x\ 3072}#)))) + (list 'list->vector #{x\ 3072}#))))) + (#{regen\ 2888}# + (lambda (#{x\ 3082}#) (begin - (let ((#{atom-key\ 3092}# (car #{x\ 3088}#))) - (if (eqv? #{atom-key\ 3092}# 'ref) - (#{build-lexical-reference\ 311}# + (let ((#{atom-key\ 3086}# (car #{x\ 3082}#))) + (if (eqv? #{atom-key\ 3086}# 'ref) + (#{build-lexical-reference\ 312}# 'value #f - (car (cdr #{x\ 3088}#)) - (car (cdr #{x\ 3088}#))) - (if (eqv? #{atom-key\ 3092}# 'primitive) - (#{build-primref\ 329}# + (car (cdr #{x\ 3082}#)) + (car (cdr #{x\ 3082}#))) + (if (eqv? #{atom-key\ 3086}# 'primitive) + (#{build-primref\ 330}# #f - (car (cdr #{x\ 3088}#))) - (if (eqv? #{atom-key\ 3092}# 'quote) - (#{build-data\ 331}# #f (car (cdr #{x\ 3088}#))) - (if (eqv? #{atom-key\ 3092}# 'lambda) - (if (list? (car (cdr #{x\ 3088}#))) - (#{build-simple-lambda\ 323}# + (car (cdr #{x\ 3082}#))) + (if (eqv? #{atom-key\ 3086}# 'quote) + (#{build-data\ 332}# #f (car (cdr #{x\ 3082}#))) + (if (eqv? #{atom-key\ 3086}# 'lambda) + (if (list? (car (cdr #{x\ 3082}#))) + (#{build-simple-lambda\ 324}# #f - (car (cdr #{x\ 3088}#)) + (car (cdr #{x\ 3082}#)) #f - (car (cdr #{x\ 3088}#)) + (car (cdr #{x\ 3082}#)) '() - (#{regen\ 2894}# - (car (cdr (cdr #{x\ 3088}#))))) - (error "how did we get here" #{x\ 3088}#)) - (#{build-application\ 305}# + (#{regen\ 2888}# + (car (cdr (cdr #{x\ 3082}#))))) + (error "how did we get here" #{x\ 3082}#)) + (#{build-application\ 306}# #f - (#{build-primref\ 329}# + (#{build-primref\ 330}# #f - (car #{x\ 3088}#)) - (map #{regen\ 2894}# - (cdr #{x\ 3088}#)))))))))))) + (car #{x\ 3082}#)) + (map #{regen\ 2888}# + (cdr #{x\ 3082}#)))))))))))) (begin - (lambda (#{e\ 3104}# - #{r\ 3105}# - #{w\ 3106}# - #{s\ 3107}# - #{mod\ 3108}#) + (lambda (#{e\ 3098}# + #{r\ 3099}# + #{w\ 3100}# + #{s\ 3101}# + #{mod\ 3102}#) (begin - (let ((#{e\ 3115}# - (#{source-wrap\ 447}# - #{e\ 3104}# - #{w\ 3106}# - #{s\ 3107}# - #{mod\ 3108}#))) - (let ((#{tmp\ 3116}# #{e\ 3115}#)) - (let ((#{tmp\ 3117}# - ($sc-dispatch #{tmp\ 3116}# '(_ any)))) - (if #{tmp\ 3117}# + (let ((#{e\ 3109}# + (#{source-wrap\ 448}# + #{e\ 3098}# + #{w\ 3100}# + #{s\ 3101}# + #{mod\ 3102}#))) + (let ((#{tmp\ 3110}# #{e\ 3109}#)) + (let ((#{tmp\ 3111}# + ($sc-dispatch #{tmp\ 3110}# '(_ any)))) + (if #{tmp\ 3111}# (@apply - (lambda (#{x\ 3119}#) + (lambda (#{x\ 3113}#) (call-with-values (lambda () - (#{gen-syntax\ 2880}# - #{e\ 3115}# - #{x\ 3119}# - #{r\ 3105}# + (#{gen-syntax\ 2874}# + #{e\ 3109}# + #{x\ 3113}# + #{r\ 3099}# '() - #{ellipsis?\ 477}# - #{mod\ 3108}#)) - (lambda (#{e\ 3120}# #{maps\ 3121}#) - (#{regen\ 2894}# #{e\ 3120}#)))) - #{tmp\ 3117}#) - (let ((#{_\ 3125}# #{tmp\ 3116}#)) + #{ellipsis?\ 476}# + #{mod\ 3102}#)) + (lambda (#{e\ 3114}# #{maps\ 3115}#) + (#{regen\ 2888}# #{e\ 3114}#)))) + #{tmp\ 3111}#) + (let ((#{_\ 3119}# #{tmp\ 3110}#)) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 3115}#))))))))))) - (#{global-extend\ 375}# + #{e\ 3109}#))))))))))) + (#{global-extend\ 376}# 'core 'lambda - (lambda (#{e\ 3126}# - #{r\ 3127}# - #{w\ 3128}# - #{s\ 3129}# - #{mod\ 3130}#) - (let ((#{tmp\ 3136}# #{e\ 3126}#)) - (let ((#{tmp\ 3137}# + (lambda (#{e\ 3120}# + #{r\ 3121}# + #{w\ 3122}# + #{s\ 3123}# + #{mod\ 3124}#) + (let ((#{tmp\ 3130}# #{e\ 3120}#)) + (let ((#{tmp\ 3131}# ($sc-dispatch - #{tmp\ 3136}# + #{tmp\ 3130}# '(_ any any . each-any)))) - (if #{tmp\ 3137}# + (if #{tmp\ 3131}# (@apply - (lambda (#{args\ 3141}# #{e1\ 3142}# #{e2\ 3143}#) + (lambda (#{args\ 3135}# #{e1\ 3136}# #{e2\ 3137}#) (call-with-values (lambda () - (#{lambda-formals\ 479}# #{args\ 3141}#)) - (lambda (#{req\ 3144}# - #{opt\ 3145}# - #{rest\ 3146}# - #{kw\ 3147}#) + (#{lambda-formals\ 478}# #{args\ 3135}#)) + (lambda (#{req\ 3138}# + #{opt\ 3139}# + #{rest\ 3140}# + #{kw\ 3141}#) (letrec* - ((#{lp\ 3155}# - (lambda (#{body\ 3156}# #{meta\ 3157}#) - (let ((#{tmp\ 3159}# #{body\ 3156}#)) - (let ((#{tmp\ 3160}# + ((#{lp\ 3149}# + (lambda (#{body\ 3150}# #{meta\ 3151}#) + (let ((#{tmp\ 3153}# #{body\ 3150}#)) + (let ((#{tmp\ 3154}# ($sc-dispatch - #{tmp\ 3159}# + #{tmp\ 3153}# '(any any . each-any)))) - (if (if #{tmp\ 3160}# + (if (if #{tmp\ 3154}# (@apply - (lambda (#{docstring\ 3164}# - #{e1\ 3165}# - #{e2\ 3166}#) + (lambda (#{docstring\ 3158}# + #{e1\ 3159}# + #{e2\ 3160}#) (string? (syntax->datum - #{docstring\ 3164}#))) - #{tmp\ 3160}#) + #{docstring\ 3158}#))) + #{tmp\ 3154}#) #f) (@apply - (lambda (#{docstring\ 3170}# - #{e1\ 3171}# - #{e2\ 3172}#) - (#{lp\ 3155}# - (cons #{e1\ 3171}# - #{e2\ 3172}#) + (lambda (#{docstring\ 3164}# + #{e1\ 3165}# + #{e2\ 3166}#) + (#{lp\ 3149}# + (cons #{e1\ 3165}# + #{e2\ 3166}#) (append - #{meta\ 3157}# + #{meta\ 3151}# (list (cons 'documentation (syntax->datum - #{docstring\ 3170}#)))))) - #{tmp\ 3160}#) - (let ((#{tmp\ 3175}# + #{docstring\ 3164}#)))))) + #{tmp\ 3154}#) + (let ((#{tmp\ 3169}# ($sc-dispatch - #{tmp\ 3159}# + #{tmp\ 3153}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp\ 3175}# + (if #{tmp\ 3169}# (@apply - (lambda (#{k\ 3180}# - #{v\ 3181}# - #{e1\ 3182}# - #{e2\ 3183}#) - (#{lp\ 3155}# - (cons #{e1\ 3182}# - #{e2\ 3183}#) + (lambda (#{k\ 3174}# + #{v\ 3175}# + #{e1\ 3176}# + #{e2\ 3177}#) + (#{lp\ 3149}# + (cons #{e1\ 3176}# + #{e2\ 3177}#) (append - #{meta\ 3157}# + #{meta\ 3151}# (syntax->datum (map cons - #{k\ 3180}# - #{v\ 3181}#))))) - #{tmp\ 3175}#) - (let ((#{_\ 3188}# - #{tmp\ 3159}#)) - (#{chi-simple-lambda\ 481}# - #{e\ 3126}# - #{r\ 3127}# - #{w\ 3128}# - #{s\ 3129}# - #{mod\ 3130}# - #{req\ 3144}# - #{rest\ 3146}# - #{meta\ 3157}# - #{body\ 3156}#)))))))))) + #{k\ 3174}# + #{v\ 3175}#))))) + #{tmp\ 3169}#) + (let ((#{_\ 3182}# + #{tmp\ 3153}#)) + (#{chi-simple-lambda\ 480}# + #{e\ 3120}# + #{r\ 3121}# + #{w\ 3122}# + #{s\ 3123}# + #{mod\ 3124}# + #{req\ 3138}# + #{rest\ 3140}# + #{meta\ 3151}# + #{body\ 3150}#)))))))))) (begin - (#{lp\ 3155}# - (cons #{e1\ 3142}# #{e2\ 3143}#) + (#{lp\ 3149}# + (cons #{e1\ 3136}# #{e2\ 3137}#) '())))))) - #{tmp\ 3137}#) - (let ((#{_\ 3190}# #{tmp\ 3136}#)) + #{tmp\ 3131}#) + (let ((#{_\ 3184}# #{tmp\ 3130}#)) (syntax-violation 'lambda "bad lambda" - #{e\ 3126}#))))))) - (#{global-extend\ 375}# + #{e\ 3120}#))))))) + (#{global-extend\ 376}# 'core 'lambda* - (lambda (#{e\ 3191}# - #{r\ 3192}# - #{w\ 3193}# - #{s\ 3194}# - #{mod\ 3195}#) - (let ((#{tmp\ 3201}# #{e\ 3191}#)) - (let ((#{tmp\ 3202}# + (lambda (#{e\ 3185}# + #{r\ 3186}# + #{w\ 3187}# + #{s\ 3188}# + #{mod\ 3189}#) + (let ((#{tmp\ 3195}# #{e\ 3185}#)) + (let ((#{tmp\ 3196}# ($sc-dispatch - #{tmp\ 3201}# + #{tmp\ 3195}# '(_ any any . each-any)))) - (if #{tmp\ 3202}# + (if #{tmp\ 3196}# (@apply - (lambda (#{args\ 3206}# #{e1\ 3207}# #{e2\ 3208}#) + (lambda (#{args\ 3200}# #{e1\ 3201}# #{e2\ 3202}#) (call-with-values (lambda () - (#{chi-lambda-case\ 485}# - #{e\ 3191}# - #{r\ 3192}# - #{w\ 3193}# - #{s\ 3194}# - #{mod\ 3195}# - #{lambda*-formals\ 483}# - (list (cons #{args\ 3206}# - (cons #{e1\ 3207}# - #{e2\ 3208}#))))) - (lambda (#{meta\ 3210}# #{lcase\ 3211}#) - (#{build-case-lambda\ 325}# - #{s\ 3194}# - #{meta\ 3210}# - #{lcase\ 3211}#)))) - #{tmp\ 3202}#) - (let ((#{_\ 3215}# #{tmp\ 3201}#)) + (#{chi-lambda-case\ 484}# + #{e\ 3185}# + #{r\ 3186}# + #{w\ 3187}# + #{s\ 3188}# + #{mod\ 3189}# + #{lambda*-formals\ 482}# + (list (cons #{args\ 3200}# + (cons #{e1\ 3201}# + #{e2\ 3202}#))))) + (lambda (#{meta\ 3204}# #{lcase\ 3205}#) + (#{build-case-lambda\ 326}# + #{s\ 3188}# + #{meta\ 3204}# + #{lcase\ 3205}#)))) + #{tmp\ 3196}#) + (let ((#{_\ 3209}# #{tmp\ 3195}#)) (syntax-violation 'lambda "bad lambda*" - #{e\ 3191}#))))))) - (#{global-extend\ 375}# + #{e\ 3185}#))))))) + (#{global-extend\ 376}# 'core 'case-lambda - (lambda (#{e\ 3216}# - #{r\ 3217}# - #{w\ 3218}# - #{s\ 3219}# - #{mod\ 3220}#) - (let ((#{tmp\ 3226}# #{e\ 3216}#)) - (let ((#{tmp\ 3227}# + (lambda (#{e\ 3210}# + #{r\ 3211}# + #{w\ 3212}# + #{s\ 3213}# + #{mod\ 3214}#) + (let ((#{tmp\ 3220}# #{e\ 3210}#)) + (let ((#{tmp\ 3221}# ($sc-dispatch - #{tmp\ 3226}# + #{tmp\ 3220}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp\ 3227}# + (if #{tmp\ 3221}# (@apply - (lambda (#{args\ 3234}# - #{e1\ 3235}# - #{e2\ 3236}# - #{args*\ 3237}# - #{e1*\ 3238}# - #{e2*\ 3239}#) + (lambda (#{args\ 3228}# + #{e1\ 3229}# + #{e2\ 3230}# + #{args*\ 3231}# + #{e1*\ 3232}# + #{e2*\ 3233}#) (call-with-values (lambda () - (#{chi-lambda-case\ 485}# - #{e\ 3216}# - #{r\ 3217}# - #{w\ 3218}# - #{s\ 3219}# - #{mod\ 3220}# - #{lambda-formals\ 479}# - (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\ 325}# - #{s\ 3219}# - #{meta\ 3245}# - #{lcase\ 3246}#)))) - #{tmp\ 3227}#) - (let ((#{_\ 3250}# #{tmp\ 3226}#)) + (#{chi-lambda-case\ 484}# + #{e\ 3210}# + #{r\ 3211}# + #{w\ 3212}# + #{s\ 3213}# + #{mod\ 3214}# + #{lambda-formals\ 478}# + (cons (cons #{args\ 3228}# + (cons #{e1\ 3229}# #{e2\ 3230}#)) + (map (lambda (#{tmp\ 3237}# + #{tmp\ 3236}# + #{tmp\ 3235}#) + (cons #{tmp\ 3235}# + (cons #{tmp\ 3236}# + #{tmp\ 3237}#))) + #{e2*\ 3233}# + #{e1*\ 3232}# + #{args*\ 3231}#)))) + (lambda (#{meta\ 3239}# #{lcase\ 3240}#) + (#{build-case-lambda\ 326}# + #{s\ 3213}# + #{meta\ 3239}# + #{lcase\ 3240}#)))) + #{tmp\ 3221}#) + (let ((#{_\ 3244}# #{tmp\ 3220}#)) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3216}#))))))) - (#{global-extend\ 375}# + #{e\ 3210}#))))))) + (#{global-extend\ 376}# 'core 'case-lambda* - (lambda (#{e\ 3251}# - #{r\ 3252}# - #{w\ 3253}# - #{s\ 3254}# - #{mod\ 3255}#) - (let ((#{tmp\ 3261}# #{e\ 3251}#)) - (let ((#{tmp\ 3262}# + (lambda (#{e\ 3245}# + #{r\ 3246}# + #{w\ 3247}# + #{s\ 3248}# + #{mod\ 3249}#) + (let ((#{tmp\ 3255}# #{e\ 3245}#)) + (let ((#{tmp\ 3256}# ($sc-dispatch - #{tmp\ 3261}# + #{tmp\ 3255}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp\ 3262}# + (if #{tmp\ 3256}# (@apply - (lambda (#{args\ 3269}# - #{e1\ 3270}# - #{e2\ 3271}# - #{args*\ 3272}# - #{e1*\ 3273}# - #{e2*\ 3274}#) + (lambda (#{args\ 3263}# + #{e1\ 3264}# + #{e2\ 3265}# + #{args*\ 3266}# + #{e1*\ 3267}# + #{e2*\ 3268}#) (call-with-values (lambda () - (#{chi-lambda-case\ 485}# - #{e\ 3251}# - #{r\ 3252}# - #{w\ 3253}# - #{s\ 3254}# - #{mod\ 3255}# - #{lambda*-formals\ 483}# - (cons (cons #{args\ 3269}# - (cons #{e1\ 3270}# #{e2\ 3271}#)) - (map (lambda (#{tmp\ 3278}# - #{tmp\ 3277}# - #{tmp\ 3276}#) - (cons #{tmp\ 3276}# - (cons #{tmp\ 3277}# - #{tmp\ 3278}#))) - #{e2*\ 3274}# - #{e1*\ 3273}# - #{args*\ 3272}#)))) - (lambda (#{meta\ 3280}# #{lcase\ 3281}#) - (#{build-case-lambda\ 325}# - #{s\ 3254}# - #{meta\ 3280}# - #{lcase\ 3281}#)))) - #{tmp\ 3262}#) - (let ((#{_\ 3285}# #{tmp\ 3261}#)) + (#{chi-lambda-case\ 484}# + #{e\ 3245}# + #{r\ 3246}# + #{w\ 3247}# + #{s\ 3248}# + #{mod\ 3249}# + #{lambda*-formals\ 482}# + (cons (cons #{args\ 3263}# + (cons #{e1\ 3264}# #{e2\ 3265}#)) + (map (lambda (#{tmp\ 3272}# + #{tmp\ 3271}# + #{tmp\ 3270}#) + (cons #{tmp\ 3270}# + (cons #{tmp\ 3271}# + #{tmp\ 3272}#))) + #{e2*\ 3268}# + #{e1*\ 3267}# + #{args*\ 3266}#)))) + (lambda (#{meta\ 3274}# #{lcase\ 3275}#) + (#{build-case-lambda\ 326}# + #{s\ 3248}# + #{meta\ 3274}# + #{lcase\ 3275}#)))) + #{tmp\ 3256}#) + (let ((#{_\ 3279}# #{tmp\ 3255}#)) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3251}#))))))) - (#{global-extend\ 375}# + #{e\ 3245}#))))))) + (#{global-extend\ 376}# 'core 'let (letrec* - ((#{chi-let\ 3287}# - (lambda (#{e\ 3288}# - #{r\ 3289}# - #{w\ 3290}# - #{s\ 3291}# - #{mod\ 3292}# - #{constructor\ 3293}# - #{ids\ 3294}# - #{vals\ 3295}# - #{exps\ 3296}#) - (if (not (#{valid-bound-ids?\ 439}# #{ids\ 3294}#)) + ((#{chi-let\ 3281}# + (lambda (#{e\ 3282}# + #{r\ 3283}# + #{w\ 3284}# + #{s\ 3285}# + #{mod\ 3286}# + #{constructor\ 3287}# + #{ids\ 3288}# + #{vals\ 3289}# + #{exps\ 3290}#) + (if (not (#{valid-bound-ids?\ 440}# #{ids\ 3288}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3288}#) + #{e\ 3282}#) (begin - (let ((#{labels\ 3308}# - (#{gen-labels\ 394}# #{ids\ 3294}#)) - (#{new-vars\ 3309}# - (map #{gen-var\ 489}# #{ids\ 3294}#))) + (let ((#{labels\ 3302}# + (#{gen-labels\ 395}# #{ids\ 3288}#)) + (#{new-vars\ 3303}# + (map #{gen-var\ 488}# #{ids\ 3288}#))) (begin - (let ((#{nw\ 3312}# - (#{make-binding-wrap\ 423}# - #{ids\ 3294}# - #{labels\ 3308}# - #{w\ 3290}#)) - (#{nr\ 3313}# - (#{extend-var-env\ 369}# - #{labels\ 3308}# - #{new-vars\ 3309}# - #{r\ 3289}#))) - (#{constructor\ 3293}# - #{s\ 3291}# - (map syntax->datum #{ids\ 3294}#) - #{new-vars\ 3309}# - (map (lambda (#{x\ 3314}#) - (#{chi\ 461}# - #{x\ 3314}# - #{r\ 3289}# - #{w\ 3290}# - #{mod\ 3292}#)) - #{vals\ 3295}#) - (#{chi-body\ 469}# - #{exps\ 3296}# - (#{source-wrap\ 447}# - #{e\ 3288}# - #{nw\ 3312}# - #{s\ 3291}# - #{mod\ 3292}#) - #{nr\ 3313}# - #{nw\ 3312}# - #{mod\ 3292}#)))))))))) + (let ((#{nw\ 3306}# + (#{make-binding-wrap\ 424}# + #{ids\ 3288}# + #{labels\ 3302}# + #{w\ 3284}#)) + (#{nr\ 3307}# + (#{extend-var-env\ 370}# + #{labels\ 3302}# + #{new-vars\ 3303}# + #{r\ 3283}#))) + (#{constructor\ 3287}# + #{s\ 3285}# + (map syntax->datum #{ids\ 3288}#) + #{new-vars\ 3303}# + (map (lambda (#{x\ 3308}#) + (#{chi\ 460}# + #{x\ 3308}# + #{r\ 3283}# + #{w\ 3284}# + #{mod\ 3286}#)) + #{vals\ 3289}#) + (#{chi-body\ 468}# + #{exps\ 3290}# + (#{source-wrap\ 448}# + #{e\ 3282}# + #{nw\ 3306}# + #{s\ 3285}# + #{mod\ 3286}#) + #{nr\ 3307}# + #{nw\ 3306}# + #{mod\ 3286}#)))))))))) (begin - (lambda (#{e\ 3316}# - #{r\ 3317}# - #{w\ 3318}# - #{s\ 3319}# - #{mod\ 3320}#) - (let ((#{tmp\ 3326}# #{e\ 3316}#)) - (let ((#{tmp\ 3327}# + (lambda (#{e\ 3310}# + #{r\ 3311}# + #{w\ 3312}# + #{s\ 3313}# + #{mod\ 3314}#) + (let ((#{tmp\ 3320}# #{e\ 3310}#)) + (let ((#{tmp\ 3321}# ($sc-dispatch - #{tmp\ 3326}# + #{tmp\ 3320}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3327}# + (if (if #{tmp\ 3321}# (@apply - (lambda (#{id\ 3332}# - #{val\ 3333}# - #{e1\ 3334}# - #{e2\ 3335}#) - (and-map #{id?\ 379}# #{id\ 3332}#)) - #{tmp\ 3327}#) + (lambda (#{id\ 3326}# + #{val\ 3327}# + #{e1\ 3328}# + #{e2\ 3329}#) + (and-map #{id?\ 380}# #{id\ 3326}#)) + #{tmp\ 3321}#) #f) (@apply - (lambda (#{id\ 3341}# - #{val\ 3342}# - #{e1\ 3343}# - #{e2\ 3344}#) - (#{chi-let\ 3287}# - #{e\ 3316}# - #{r\ 3317}# - #{w\ 3318}# - #{s\ 3319}# - #{mod\ 3320}# - #{build-let\ 335}# - #{id\ 3341}# - #{val\ 3342}# - (cons #{e1\ 3343}# #{e2\ 3344}#))) - #{tmp\ 3327}#) - (let ((#{tmp\ 3348}# + (lambda (#{id\ 3335}# + #{val\ 3336}# + #{e1\ 3337}# + #{e2\ 3338}#) + (#{chi-let\ 3281}# + #{e\ 3310}# + #{r\ 3311}# + #{w\ 3312}# + #{s\ 3313}# + #{mod\ 3314}# + #{build-let\ 336}# + #{id\ 3335}# + #{val\ 3336}# + (cons #{e1\ 3337}# #{e2\ 3338}#))) + #{tmp\ 3321}#) + (let ((#{tmp\ 3342}# ($sc-dispatch - #{tmp\ 3326}# + #{tmp\ 3320}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3348}# + (if (if #{tmp\ 3342}# (@apply - (lambda (#{f\ 3354}# - #{id\ 3355}# - #{val\ 3356}# - #{e1\ 3357}# - #{e2\ 3358}#) - (if (#{id?\ 379}# #{f\ 3354}#) - (and-map #{id?\ 379}# #{id\ 3355}#) + (lambda (#{f\ 3348}# + #{id\ 3349}# + #{val\ 3350}# + #{e1\ 3351}# + #{e2\ 3352}#) + (if (#{id?\ 380}# #{f\ 3348}#) + (and-map #{id?\ 380}# #{id\ 3349}#) #f)) - #{tmp\ 3348}#) + #{tmp\ 3342}#) #f) (@apply - (lambda (#{f\ 3367}# - #{id\ 3368}# - #{val\ 3369}# - #{e1\ 3370}# - #{e2\ 3371}#) - (#{chi-let\ 3287}# - #{e\ 3316}# - #{r\ 3317}# - #{w\ 3318}# - #{s\ 3319}# - #{mod\ 3320}# - #{build-named-let\ 337}# - (cons #{f\ 3367}# #{id\ 3368}#) - #{val\ 3369}# - (cons #{e1\ 3370}# #{e2\ 3371}#))) - #{tmp\ 3348}#) - (let ((#{_\ 3376}# #{tmp\ 3326}#)) + (lambda (#{f\ 3361}# + #{id\ 3362}# + #{val\ 3363}# + #{e1\ 3364}# + #{e2\ 3365}#) + (#{chi-let\ 3281}# + #{e\ 3310}# + #{r\ 3311}# + #{w\ 3312}# + #{s\ 3313}# + #{mod\ 3314}# + #{build-named-let\ 338}# + (cons #{f\ 3361}# #{id\ 3362}#) + #{val\ 3363}# + (cons #{e1\ 3364}# #{e2\ 3365}#))) + #{tmp\ 3342}#) + (let ((#{_\ 3370}# #{tmp\ 3320}#)) (syntax-violation 'let "bad let" - (#{source-wrap\ 447}# - #{e\ 3316}# - #{w\ 3318}# - #{s\ 3319}# - #{mod\ 3320}#)))))))))))) - (#{global-extend\ 375}# + (#{source-wrap\ 448}# + #{e\ 3310}# + #{w\ 3312}# + #{s\ 3313}# + #{mod\ 3314}#)))))))))))) + (#{global-extend\ 376}# 'core 'letrec - (lambda (#{e\ 3377}# - #{r\ 3378}# - #{w\ 3379}# - #{s\ 3380}# - #{mod\ 3381}#) - (let ((#{tmp\ 3387}# #{e\ 3377}#)) - (let ((#{tmp\ 3388}# + (lambda (#{e\ 3371}# + #{r\ 3372}# + #{w\ 3373}# + #{s\ 3374}# + #{mod\ 3375}#) + (let ((#{tmp\ 3381}# #{e\ 3371}#)) + (let ((#{tmp\ 3382}# ($sc-dispatch - #{tmp\ 3387}# + #{tmp\ 3381}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3388}# + (if (if #{tmp\ 3382}# (@apply - (lambda (#{id\ 3393}# - #{val\ 3394}# - #{e1\ 3395}# - #{e2\ 3396}#) - (and-map #{id?\ 379}# #{id\ 3393}#)) - #{tmp\ 3388}#) + (lambda (#{id\ 3387}# + #{val\ 3388}# + #{e1\ 3389}# + #{e2\ 3390}#) + (and-map #{id?\ 380}# #{id\ 3387}#)) + #{tmp\ 3382}#) #f) (@apply - (lambda (#{id\ 3402}# - #{val\ 3403}# - #{e1\ 3404}# - #{e2\ 3405}#) + (lambda (#{id\ 3396}# + #{val\ 3397}# + #{e1\ 3398}# + #{e2\ 3399}#) (begin - (let ((#{ids\ 3407}# #{id\ 3402}#)) - (if (not (#{valid-bound-ids?\ 439}# - #{ids\ 3407}#)) + (let ((#{ids\ 3401}# #{id\ 3396}#)) + (if (not (#{valid-bound-ids?\ 440}# + #{ids\ 3401}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3377}#) + #{e\ 3371}#) (begin - (let ((#{labels\ 3411}# - (#{gen-labels\ 394}# #{ids\ 3407}#)) - (#{new-vars\ 3412}# - (map #{gen-var\ 489}# - #{ids\ 3407}#))) + (let ((#{labels\ 3405}# + (#{gen-labels\ 395}# #{ids\ 3401}#)) + (#{new-vars\ 3406}# + (map #{gen-var\ 488}# + #{ids\ 3401}#))) (begin - (let ((#{w\ 3415}# - (#{make-binding-wrap\ 423}# - #{ids\ 3407}# - #{labels\ 3411}# - #{w\ 3379}#)) - (#{r\ 3416}# - (#{extend-var-env\ 369}# - #{labels\ 3411}# - #{new-vars\ 3412}# - #{r\ 3378}#))) - (#{build-letrec\ 339}# - #{s\ 3380}# + (let ((#{w\ 3409}# + (#{make-binding-wrap\ 424}# + #{ids\ 3401}# + #{labels\ 3405}# + #{w\ 3373}#)) + (#{r\ 3410}# + (#{extend-var-env\ 370}# + #{labels\ 3405}# + #{new-vars\ 3406}# + #{r\ 3372}#))) + (#{build-letrec\ 340}# + #{s\ 3374}# #f - (map syntax->datum #{ids\ 3407}#) - #{new-vars\ 3412}# - (map (lambda (#{x\ 3417}#) - (#{chi\ 461}# - #{x\ 3417}# - #{r\ 3416}# - #{w\ 3415}# - #{mod\ 3381}#)) - #{val\ 3403}#) - (#{chi-body\ 469}# - (cons #{e1\ 3404}# #{e2\ 3405}#) - (#{source-wrap\ 447}# - #{e\ 3377}# - #{w\ 3415}# - #{s\ 3380}# - #{mod\ 3381}#) - #{r\ 3416}# - #{w\ 3415}# - #{mod\ 3381}#)))))))))) - #{tmp\ 3388}#) - (let ((#{_\ 3422}# #{tmp\ 3387}#)) + (map syntax->datum #{ids\ 3401}#) + #{new-vars\ 3406}# + (map (lambda (#{x\ 3411}#) + (#{chi\ 460}# + #{x\ 3411}# + #{r\ 3410}# + #{w\ 3409}# + #{mod\ 3375}#)) + #{val\ 3397}#) + (#{chi-body\ 468}# + (cons #{e1\ 3398}# #{e2\ 3399}#) + (#{source-wrap\ 448}# + #{e\ 3371}# + #{w\ 3409}# + #{s\ 3374}# + #{mod\ 3375}#) + #{r\ 3410}# + #{w\ 3409}# + #{mod\ 3375}#)))))))))) + #{tmp\ 3382}#) + (let ((#{_\ 3416}# #{tmp\ 3381}#)) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 447}# - #{e\ 3377}# - #{w\ 3379}# - #{s\ 3380}# - #{mod\ 3381}#)))))))) - (#{global-extend\ 375}# + (#{source-wrap\ 448}# + #{e\ 3371}# + #{w\ 3373}# + #{s\ 3374}# + #{mod\ 3375}#)))))))) + (#{global-extend\ 376}# 'core 'letrec* - (lambda (#{e\ 3423}# - #{r\ 3424}# - #{w\ 3425}# - #{s\ 3426}# - #{mod\ 3427}#) - (let ((#{tmp\ 3433}# #{e\ 3423}#)) - (let ((#{tmp\ 3434}# + (lambda (#{e\ 3417}# + #{r\ 3418}# + #{w\ 3419}# + #{s\ 3420}# + #{mod\ 3421}#) + (let ((#{tmp\ 3427}# #{e\ 3417}#)) + (let ((#{tmp\ 3428}# ($sc-dispatch - #{tmp\ 3433}# + #{tmp\ 3427}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3434}# + (if (if #{tmp\ 3428}# (@apply - (lambda (#{id\ 3439}# - #{val\ 3440}# - #{e1\ 3441}# - #{e2\ 3442}#) - (and-map #{id?\ 379}# #{id\ 3439}#)) - #{tmp\ 3434}#) + (lambda (#{id\ 3433}# + #{val\ 3434}# + #{e1\ 3435}# + #{e2\ 3436}#) + (and-map #{id?\ 380}# #{id\ 3433}#)) + #{tmp\ 3428}#) #f) (@apply - (lambda (#{id\ 3448}# - #{val\ 3449}# - #{e1\ 3450}# - #{e2\ 3451}#) + (lambda (#{id\ 3442}# + #{val\ 3443}# + #{e1\ 3444}# + #{e2\ 3445}#) (begin - (let ((#{ids\ 3453}# #{id\ 3448}#)) - (if (not (#{valid-bound-ids?\ 439}# - #{ids\ 3453}#)) + (let ((#{ids\ 3447}# #{id\ 3442}#)) + (if (not (#{valid-bound-ids?\ 440}# + #{ids\ 3447}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e\ 3423}#) + #{e\ 3417}#) (begin - (let ((#{labels\ 3457}# - (#{gen-labels\ 394}# #{ids\ 3453}#)) - (#{new-vars\ 3458}# - (map #{gen-var\ 489}# - #{ids\ 3453}#))) + (let ((#{labels\ 3451}# + (#{gen-labels\ 395}# #{ids\ 3447}#)) + (#{new-vars\ 3452}# + (map #{gen-var\ 488}# + #{ids\ 3447}#))) (begin - (let ((#{w\ 3461}# - (#{make-binding-wrap\ 423}# - #{ids\ 3453}# - #{labels\ 3457}# - #{w\ 3425}#)) - (#{r\ 3462}# - (#{extend-var-env\ 369}# - #{labels\ 3457}# - #{new-vars\ 3458}# - #{r\ 3424}#))) - (#{build-letrec\ 339}# - #{s\ 3426}# + (let ((#{w\ 3455}# + (#{make-binding-wrap\ 424}# + #{ids\ 3447}# + #{labels\ 3451}# + #{w\ 3419}#)) + (#{r\ 3456}# + (#{extend-var-env\ 370}# + #{labels\ 3451}# + #{new-vars\ 3452}# + #{r\ 3418}#))) + (#{build-letrec\ 340}# + #{s\ 3420}# #t - (map syntax->datum #{ids\ 3453}#) - #{new-vars\ 3458}# - (map (lambda (#{x\ 3463}#) - (#{chi\ 461}# - #{x\ 3463}# - #{r\ 3462}# - #{w\ 3461}# - #{mod\ 3427}#)) - #{val\ 3449}#) - (#{chi-body\ 469}# - (cons #{e1\ 3450}# #{e2\ 3451}#) - (#{source-wrap\ 447}# - #{e\ 3423}# - #{w\ 3461}# - #{s\ 3426}# - #{mod\ 3427}#) - #{r\ 3462}# - #{w\ 3461}# - #{mod\ 3427}#)))))))))) - #{tmp\ 3434}#) - (let ((#{_\ 3468}# #{tmp\ 3433}#)) + (map syntax->datum #{ids\ 3447}#) + #{new-vars\ 3452}# + (map (lambda (#{x\ 3457}#) + (#{chi\ 460}# + #{x\ 3457}# + #{r\ 3456}# + #{w\ 3455}# + #{mod\ 3421}#)) + #{val\ 3443}#) + (#{chi-body\ 468}# + (cons #{e1\ 3444}# #{e2\ 3445}#) + (#{source-wrap\ 448}# + #{e\ 3417}# + #{w\ 3455}# + #{s\ 3420}# + #{mod\ 3421}#) + #{r\ 3456}# + #{w\ 3455}# + #{mod\ 3421}#)))))))))) + #{tmp\ 3428}#) + (let ((#{_\ 3462}# #{tmp\ 3427}#)) (syntax-violation 'letrec* "bad letrec*" - (#{source-wrap\ 447}# - #{e\ 3423}# - #{w\ 3425}# - #{s\ 3426}# - #{mod\ 3427}#)))))))) - (#{global-extend\ 375}# + (#{source-wrap\ 448}# + #{e\ 3417}# + #{w\ 3419}# + #{s\ 3420}# + #{mod\ 3421}#)))))))) + (#{global-extend\ 376}# 'core 'set! - (lambda (#{e\ 3469}# - #{r\ 3470}# - #{w\ 3471}# - #{s\ 3472}# - #{mod\ 3473}#) - (let ((#{tmp\ 3479}# #{e\ 3469}#)) - (let ((#{tmp\ 3480}# - ($sc-dispatch #{tmp\ 3479}# '(_ any any)))) - (if (if #{tmp\ 3480}# + (lambda (#{e\ 3463}# + #{r\ 3464}# + #{w\ 3465}# + #{s\ 3466}# + #{mod\ 3467}#) + (let ((#{tmp\ 3473}# #{e\ 3463}#)) + (let ((#{tmp\ 3474}# + ($sc-dispatch #{tmp\ 3473}# '(_ any any)))) + (if (if #{tmp\ 3474}# (@apply - (lambda (#{id\ 3483}# #{val\ 3484}#) - (#{id?\ 379}# #{id\ 3483}#)) - #{tmp\ 3480}#) + (lambda (#{id\ 3477}# #{val\ 3478}#) + (#{id?\ 380}# #{id\ 3477}#)) + #{tmp\ 3474}#) #f) (@apply - (lambda (#{id\ 3487}# #{val\ 3488}#) + (lambda (#{id\ 3481}# #{val\ 3482}#) (begin - (let ((#{n\ 3491}# - (#{id-var-name\ 433}# - #{id\ 3487}# - #{w\ 3471}#)) - (#{id-mod\ 3492}# - (if (#{syntax-object?\ 345}# #{id\ 3487}#) - (#{syntax-object-module\ 351}# - #{id\ 3487}#) - #{mod\ 3473}#))) + (let ((#{n\ 3485}# + (#{id-var-name\ 434}# + #{id\ 3481}# + #{w\ 3465}#)) + (#{id-mod\ 3486}# + (if (#{syntax-object?\ 346}# #{id\ 3481}#) + (#{syntax-object-module\ 352}# + #{id\ 3481}#) + #{mod\ 3467}#))) (begin - (let ((#{b\ 3494}# - (#{lookup\ 373}# - #{n\ 3491}# - #{r\ 3470}# - #{id-mod\ 3492}#))) + (let ((#{b\ 3488}# + (#{lookup\ 374}# + #{n\ 3485}# + #{r\ 3464}# + #{id-mod\ 3486}#))) (begin - (let ((#{atom-key\ 3497}# - (car #{b\ 3494}#))) - (if (eqv? #{atom-key\ 3497}# 'lexical) - (#{build-lexical-assignment\ 313}# - #{s\ 3472}# - (syntax->datum #{id\ 3487}#) - (cdr #{b\ 3494}#) - (#{chi\ 461}# - #{val\ 3488}# - #{r\ 3470}# - #{w\ 3471}# - #{mod\ 3473}#)) - (if (eqv? #{atom-key\ 3497}# 'global) - (#{build-global-assignment\ 319}# - #{s\ 3472}# - #{n\ 3491}# - (#{chi\ 461}# - #{val\ 3488}# - #{r\ 3470}# - #{w\ 3471}# - #{mod\ 3473}#) - #{id-mod\ 3492}#) - (if (eqv? #{atom-key\ 3497}# 'macro) + (let ((#{atom-key\ 3491}# + (car #{b\ 3488}#))) + (if (eqv? #{atom-key\ 3491}# 'lexical) + (#{build-lexical-assignment\ 314}# + #{s\ 3466}# + (syntax->datum #{id\ 3481}#) + (cdr #{b\ 3488}#) + (#{chi\ 460}# + #{val\ 3482}# + #{r\ 3464}# + #{w\ 3465}# + #{mod\ 3467}#)) + (if (eqv? #{atom-key\ 3491}# 'global) + (#{build-global-assignment\ 320}# + #{s\ 3466}# + #{n\ 3485}# + (#{chi\ 460}# + #{val\ 3482}# + #{r\ 3464}# + #{w\ 3465}# + #{mod\ 3467}#) + #{id-mod\ 3486}#) + (if (eqv? #{atom-key\ 3491}# 'macro) (begin - (let ((#{p\ 3504}# - (cdr #{b\ 3494}#))) + (let ((#{p\ 3498}# + (cdr #{b\ 3488}#))) (if (procedure-property - #{p\ 3504}# + #{p\ 3498}# 'variable-transformer) - (#{chi\ 461}# - (#{chi-macro\ 467}# - #{p\ 3504}# - #{e\ 3469}# - #{r\ 3470}# - #{w\ 3471}# - #{s\ 3472}# + (#{chi\ 460}# + (#{chi-macro\ 466}# + #{p\ 3498}# + #{e\ 3463}# + #{r\ 3464}# + #{w\ 3465}# + #{s\ 3466}# #f - #{mod\ 3473}#) - #{r\ 3470}# + #{mod\ 3467}#) + #{r\ 3464}# '(()) - #{mod\ 3473}#) + #{mod\ 3467}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap\ 445}# - #{e\ 3469}# - #{w\ 3471}# - #{mod\ 3473}#) - (#{wrap\ 445}# - #{id\ 3487}# - #{w\ 3471}# - #{id-mod\ 3492}#))))) - (if (eqv? #{atom-key\ 3497}# + (#{wrap\ 446}# + #{e\ 3463}# + #{w\ 3465}# + #{mod\ 3467}#) + (#{wrap\ 446}# + #{id\ 3481}# + #{w\ 3465}# + #{id-mod\ 3486}#))))) + (if (eqv? #{atom-key\ 3491}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 445}# - #{id\ 3487}# - #{w\ 3471}# - #{mod\ 3473}#)) + (#{wrap\ 446}# + #{id\ 3481}# + #{w\ 3465}# + #{mod\ 3467}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 447}# - #{e\ 3469}# - #{w\ 3471}# - #{s\ 3472}# - #{mod\ 3473}#))))))))))))) - #{tmp\ 3480}#) - (let ((#{tmp\ 3509}# + (#{source-wrap\ 448}# + #{e\ 3463}# + #{w\ 3465}# + #{s\ 3466}# + #{mod\ 3467}#))))))))))))) + #{tmp\ 3474}#) + (let ((#{tmp\ 3503}# ($sc-dispatch - #{tmp\ 3479}# + #{tmp\ 3473}# '(_ (any . each-any) any)))) - (if #{tmp\ 3509}# + (if #{tmp\ 3503}# (@apply - (lambda (#{head\ 3513}# - #{tail\ 3514}# - #{val\ 3515}#) + (lambda (#{head\ 3507}# + #{tail\ 3508}# + #{val\ 3509}#) (call-with-values (lambda () - (#{syntax-type\ 457}# - #{head\ 3513}# - #{r\ 3470}# + (#{syntax-type\ 458}# + #{head\ 3507}# + #{r\ 3464}# '(()) #f #f - #{mod\ 3473}# + #{mod\ 3467}# #t)) - (lambda (#{type\ 3518}# - #{value\ 3519}# - #{ee\ 3520}# - #{ww\ 3521}# - #{ss\ 3522}# - #{modmod\ 3523}#) - (if (eqv? #{type\ 3518}# 'module-ref) + (lambda (#{type\ 3512}# + #{value\ 3513}# + #{ee\ 3514}# + #{ww\ 3515}# + #{ss\ 3516}# + #{modmod\ 3517}#) + (if (eqv? #{type\ 3512}# 'module-ref) (begin - (let ((#{val\ 3532}# - (#{chi\ 461}# - #{val\ 3515}# - #{r\ 3470}# - #{w\ 3471}# - #{mod\ 3473}#))) + (let ((#{val\ 3526}# + (#{chi\ 460}# + #{val\ 3509}# + #{r\ 3464}# + #{w\ 3465}# + #{mod\ 3467}#))) (call-with-values (lambda () - (#{value\ 3519}# - (cons #{head\ 3513}# - #{tail\ 3514}#) - #{r\ 3470}# - #{w\ 3471}#)) - (lambda (#{e\ 3534}# - #{r\ 3535}# - #{w\ 3536}# - #{s*\ 3537}# - #{mod\ 3538}#) - (let ((#{tmp\ 3544}# #{e\ 3534}#)) - (let ((#{tmp\ 3545}# - (list #{tmp\ 3544}#))) - (if (if #{tmp\ 3545}# + (#{value\ 3513}# + (cons #{head\ 3507}# + #{tail\ 3508}#) + #{r\ 3464}# + #{w\ 3465}#)) + (lambda (#{e\ 3528}# + #{r\ 3529}# + #{w\ 3530}# + #{s*\ 3531}# + #{mod\ 3532}#) + (let ((#{tmp\ 3538}# #{e\ 3528}#)) + (let ((#{tmp\ 3539}# + (list #{tmp\ 3538}#))) + (if (if #{tmp\ 3539}# (@apply - (lambda (#{e\ 3547}#) - (#{id?\ 379}# - #{e\ 3547}#)) - #{tmp\ 3545}#) + (lambda (#{e\ 3541}#) + (#{id?\ 380}# + #{e\ 3541}#)) + #{tmp\ 3539}#) #f) (@apply - (lambda (#{e\ 3549}#) - (#{build-global-assignment\ 319}# - #{s\ 3472}# + (lambda (#{e\ 3543}#) + (#{build-global-assignment\ 320}# + #{s\ 3466}# (syntax->datum - #{e\ 3549}#) - #{val\ 3532}# - #{mod\ 3538}#)) - #{tmp\ 3545}#) + #{e\ 3543}#) + #{val\ 3526}# + #{mod\ 3532}#)) + #{tmp\ 3539}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3544}#)))))))) - (#{build-application\ 305}# - #{s\ 3472}# - (#{chi\ 461}# + #{tmp\ 3538}#)))))))) + (#{build-application\ 306}# + #{s\ 3466}# + (#{chi\ 460}# (list '#(syntax-object setter ((top) @@ -10197,16 +10231,16 @@ (top) (top) (top)) - #("i3524" - "i3525" - "i3526" - "i3527" - "i3528" - "i3529")) + #("i3518" + "i3519" + "i3520" + "i3521" + "i3522" + "i3523")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i3510" "i3511" "i3512")) + #("i3504" "i3505" "i3506")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10215,11 +10249,11 @@ (top) (top) (top)) - #("i3474" - "i3475" - "i3476" - "i3477" - "i3478")) + #("i3468" + "i3469" + "i3470" + "i3471" + "i3472")) #(ribcage (lambda-var-list gen-var @@ -10237,7 +10271,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -10493,60 +10526,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -10555,135 +10587,134 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile)) - #{head\ 3513}#) - #{r\ 3470}# - #{w\ 3471}# - #{mod\ 3473}#) - (map (lambda (#{e\ 3551}#) - (#{chi\ 461}# - #{e\ 3551}# - #{r\ 3470}# - #{w\ 3471}# - #{mod\ 3473}#)) + #{head\ 3507}#) + #{r\ 3464}# + #{w\ 3465}# + #{mod\ 3467}#) + (map (lambda (#{e\ 3545}#) + (#{chi\ 460}# + #{e\ 3545}# + #{r\ 3464}# + #{w\ 3465}# + #{mod\ 3467}#)) (append - #{tail\ 3514}# - (list #{val\ 3515}#)))))))) - #{tmp\ 3509}#) - (let ((#{_\ 3555}# #{tmp\ 3479}#)) + #{tail\ 3508}# + (list #{val\ 3509}#)))))))) + #{tmp\ 3503}#) + (let ((#{_\ 3549}# #{tmp\ 3473}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 447}# - #{e\ 3469}# - #{w\ 3471}# - #{s\ 3472}# - #{mod\ 3473}#)))))))))) - (#{global-extend\ 375}# + (#{source-wrap\ 448}# + #{e\ 3463}# + #{w\ 3465}# + #{s\ 3466}# + #{mod\ 3467}#)))))))))) + (#{global-extend\ 376}# 'module-ref '@ - (lambda (#{e\ 3556}# #{r\ 3557}# #{w\ 3558}#) - (let ((#{tmp\ 3562}# #{e\ 3556}#)) - (let ((#{tmp\ 3563}# - ($sc-dispatch #{tmp\ 3562}# '(_ each-any any)))) - (if (if #{tmp\ 3563}# + (lambda (#{e\ 3550}# #{r\ 3551}# #{w\ 3552}#) + (let ((#{tmp\ 3556}# #{e\ 3550}#)) + (let ((#{tmp\ 3557}# + ($sc-dispatch #{tmp\ 3556}# '(_ each-any any)))) + (if (if #{tmp\ 3557}# (@apply - (lambda (#{mod\ 3566}# #{id\ 3567}#) - (if (and-map #{id?\ 379}# #{mod\ 3566}#) - (#{id?\ 379}# #{id\ 3567}#) + (lambda (#{mod\ 3560}# #{id\ 3561}#) + (if (and-map #{id?\ 380}# #{mod\ 3560}#) + (#{id?\ 380}# #{id\ 3561}#) #f)) - #{tmp\ 3563}#) + #{tmp\ 3557}#) #f) (@apply - (lambda (#{mod\ 3573}# #{id\ 3574}#) + (lambda (#{mod\ 3567}# #{id\ 3568}#) (values - (syntax->datum #{id\ 3574}#) - #{r\ 3557}# - #{w\ 3558}# + (syntax->datum #{id\ 3568}#) + #{r\ 3551}# + #{w\ 3552}# #f (syntax->datum (cons '#(syntax-object @@ -10692,12 +10723,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3571" "i3572")) + #("i3565" "i3566")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3559" "i3560" "i3561")) + #("i3553" "i3554" "i3555")) #(ribcage (lambda-var-list gen-var @@ -10715,7 +10746,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -10971,60 +11001,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -11033,160 +11062,159 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile)) - #{mod\ 3573}#)))) - #{tmp\ 3563}#) + #{mod\ 3567}#)))) + #{tmp\ 3557}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3562}#)))))) - (#{global-extend\ 375}# + #{tmp\ 3556}#)))))) + (#{global-extend\ 376}# 'module-ref '@@ - (lambda (#{e\ 3576}# #{r\ 3577}# #{w\ 3578}#) + (lambda (#{e\ 3570}# #{r\ 3571}# #{w\ 3572}#) (letrec* - ((#{remodulate\ 3583}# - (lambda (#{x\ 3584}# #{mod\ 3585}#) - (if (pair? #{x\ 3584}#) - (cons (#{remodulate\ 3583}# - (car #{x\ 3584}#) - #{mod\ 3585}#) - (#{remodulate\ 3583}# - (cdr #{x\ 3584}#) - #{mod\ 3585}#)) - (if (#{syntax-object?\ 345}# #{x\ 3584}#) - (#{make-syntax-object\ 343}# - (#{remodulate\ 3583}# - (#{syntax-object-expression\ 347}# #{x\ 3584}#) - #{mod\ 3585}#) - (#{syntax-object-wrap\ 349}# #{x\ 3584}#) - #{mod\ 3585}#) - (if (vector? #{x\ 3584}#) + ((#{remodulate\ 3577}# + (lambda (#{x\ 3578}# #{mod\ 3579}#) + (if (pair? #{x\ 3578}#) + (cons (#{remodulate\ 3577}# + (car #{x\ 3578}#) + #{mod\ 3579}#) + (#{remodulate\ 3577}# + (cdr #{x\ 3578}#) + #{mod\ 3579}#)) + (if (#{syntax-object?\ 346}# #{x\ 3578}#) + (#{make-syntax-object\ 344}# + (#{remodulate\ 3577}# + (#{syntax-object-expression\ 348}# #{x\ 3578}#) + #{mod\ 3579}#) + (#{syntax-object-wrap\ 350}# #{x\ 3578}#) + #{mod\ 3579}#) + (if (vector? #{x\ 3578}#) (begin - (let ((#{n\ 3596}# (vector-length #{x\ 3584}#))) + (let ((#{n\ 3590}# (vector-length #{x\ 3578}#))) (begin - (let ((#{v\ 3598}# - (make-vector #{n\ 3596}#))) + (let ((#{v\ 3592}# + (make-vector #{n\ 3590}#))) (letrec* - ((#{loop\ 3601}# - (lambda (#{i\ 3602}#) - (if (#{fx=\ 286}# - #{i\ 3602}# - #{n\ 3596}#) - (begin (if #f #f) #{v\ 3598}#) + ((#{loop\ 3595}# + (lambda (#{i\ 3596}#) + (if (#{fx=\ 287}# + #{i\ 3596}# + #{n\ 3590}#) + (begin (if #f #f) #{v\ 3592}#) (begin (vector-set! - #{v\ 3598}# - #{i\ 3602}# - (#{remodulate\ 3583}# + #{v\ 3592}# + #{i\ 3596}# + (#{remodulate\ 3577}# (vector-ref - #{x\ 3584}# - #{i\ 3602}#) - #{mod\ 3585}#)) - (#{loop\ 3601}# - (#{fx+\ 282}# - #{i\ 3602}# + #{x\ 3578}# + #{i\ 3596}#) + #{mod\ 3579}#)) + (#{loop\ 3595}# + (#{fx+\ 283}# + #{i\ 3596}# 1))))))) - (begin (#{loop\ 3601}# 0))))))) - #{x\ 3584}#)))))) + (begin (#{loop\ 3595}# 0))))))) + #{x\ 3578}#)))))) (begin - (let ((#{tmp\ 3606}# #{e\ 3576}#)) - (let ((#{tmp\ 3607}# - ($sc-dispatch #{tmp\ 3606}# '(_ each-any any)))) - (if (if #{tmp\ 3607}# + (let ((#{tmp\ 3600}# #{e\ 3570}#)) + (let ((#{tmp\ 3601}# + ($sc-dispatch #{tmp\ 3600}# '(_ each-any any)))) + (if (if #{tmp\ 3601}# (@apply - (lambda (#{mod\ 3610}# #{exp\ 3611}#) - (and-map #{id?\ 379}# #{mod\ 3610}#)) - #{tmp\ 3607}#) + (lambda (#{mod\ 3604}# #{exp\ 3605}#) + (and-map #{id?\ 380}# #{mod\ 3604}#)) + #{tmp\ 3601}#) #f) (@apply - (lambda (#{mod\ 3615}# #{exp\ 3616}#) + (lambda (#{mod\ 3609}# #{exp\ 3610}#) (begin - (let ((#{mod\ 3618}# + (let ((#{mod\ 3612}# (syntax->datum (cons '#(syntax-object private @@ -11194,17 +11222,17 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3613" "i3614")) + #("i3607" "i3608")) #(ribcage (remodulate) ((top)) - ("i3582")) + ("i3576")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3579" - "i3580" - "i3581")) + #("i3573" + "i3574" + "i3575")) #(ribcage (lambda-var-list gen-var @@ -11222,7 +11250,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -11478,60 +11505,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -11540,264 +11566,263 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile)) - #{mod\ 3615}#)))) + #{mod\ 3609}#)))) (values - (#{remodulate\ 3583}# - #{exp\ 3616}# - #{mod\ 3618}#) - #{r\ 3577}# - #{w\ 3578}# - (#{source-annotation\ 360}# #{exp\ 3616}#) - #{mod\ 3618}#)))) - #{tmp\ 3607}#) + (#{remodulate\ 3577}# + #{exp\ 3610}# + #{mod\ 3612}#) + #{r\ 3571}# + #{w\ 3572}# + (#{source-annotation\ 361}# #{exp\ 3610}#) + #{mod\ 3612}#)))) + #{tmp\ 3601}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3606}#)))))))) - (#{global-extend\ 375}# + #{tmp\ 3600}#)))))))) + (#{global-extend\ 376}# 'core 'if - (lambda (#{e\ 3620}# - #{r\ 3621}# - #{w\ 3622}# - #{s\ 3623}# - #{mod\ 3624}#) - (let ((#{tmp\ 3630}# #{e\ 3620}#)) - (let ((#{tmp\ 3631}# - ($sc-dispatch #{tmp\ 3630}# '(_ any any)))) - (if #{tmp\ 3631}# + (lambda (#{e\ 3614}# + #{r\ 3615}# + #{w\ 3616}# + #{s\ 3617}# + #{mod\ 3618}#) + (let ((#{tmp\ 3624}# #{e\ 3614}#)) + (let ((#{tmp\ 3625}# + ($sc-dispatch #{tmp\ 3624}# '(_ any any)))) + (if #{tmp\ 3625}# (@apply - (lambda (#{test\ 3634}# #{then\ 3635}#) - (#{build-conditional\ 307}# - #{s\ 3623}# - (#{chi\ 461}# - #{test\ 3634}# - #{r\ 3621}# - #{w\ 3622}# - #{mod\ 3624}#) - (#{chi\ 461}# - #{then\ 3635}# - #{r\ 3621}# - #{w\ 3622}# - #{mod\ 3624}#) - (#{build-void\ 303}# #f))) - #{tmp\ 3631}#) - (let ((#{tmp\ 3637}# - ($sc-dispatch #{tmp\ 3630}# '(_ any any any)))) - (if #{tmp\ 3637}# + (lambda (#{test\ 3628}# #{then\ 3629}#) + (#{build-conditional\ 308}# + #{s\ 3617}# + (#{chi\ 460}# + #{test\ 3628}# + #{r\ 3615}# + #{w\ 3616}# + #{mod\ 3618}#) + (#{chi\ 460}# + #{then\ 3629}# + #{r\ 3615}# + #{w\ 3616}# + #{mod\ 3618}#) + (#{build-void\ 304}# #f))) + #{tmp\ 3625}#) + (let ((#{tmp\ 3631}# + ($sc-dispatch #{tmp\ 3624}# '(_ any any any)))) + (if #{tmp\ 3631}# (@apply - (lambda (#{test\ 3641}# - #{then\ 3642}# - #{else\ 3643}#) - (#{build-conditional\ 307}# - #{s\ 3623}# - (#{chi\ 461}# - #{test\ 3641}# - #{r\ 3621}# - #{w\ 3622}# - #{mod\ 3624}#) - (#{chi\ 461}# - #{then\ 3642}# - #{r\ 3621}# - #{w\ 3622}# - #{mod\ 3624}#) - (#{chi\ 461}# - #{else\ 3643}# - #{r\ 3621}# - #{w\ 3622}# - #{mod\ 3624}#))) - #{tmp\ 3637}#) + (lambda (#{test\ 3635}# + #{then\ 3636}# + #{else\ 3637}#) + (#{build-conditional\ 308}# + #{s\ 3617}# + (#{chi\ 460}# + #{test\ 3635}# + #{r\ 3615}# + #{w\ 3616}# + #{mod\ 3618}#) + (#{chi\ 460}# + #{then\ 3636}# + #{r\ 3615}# + #{w\ 3616}# + #{mod\ 3618}#) + (#{chi\ 460}# + #{else\ 3637}# + #{r\ 3615}# + #{w\ 3616}# + #{mod\ 3618}#))) + #{tmp\ 3631}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3630}#)))))))) - (#{global-extend\ 375}# + #{tmp\ 3624}#)))))))) + (#{global-extend\ 376}# 'core 'with-fluids - (lambda (#{e\ 3644}# - #{r\ 3645}# - #{w\ 3646}# - #{s\ 3647}# - #{mod\ 3648}#) - (let ((#{tmp\ 3654}# #{e\ 3644}#)) - (let ((#{tmp\ 3655}# + (lambda (#{e\ 3638}# + #{r\ 3639}# + #{w\ 3640}# + #{s\ 3641}# + #{mod\ 3642}#) + (let ((#{tmp\ 3648}# #{e\ 3638}#)) + (let ((#{tmp\ 3649}# ($sc-dispatch - #{tmp\ 3654}# + #{tmp\ 3648}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp\ 3655}# + (if #{tmp\ 3649}# (@apply - (lambda (#{fluid\ 3660}# - #{val\ 3661}# - #{b\ 3662}# - #{b*\ 3663}#) - (#{build-dynlet\ 309}# - #{s\ 3647}# - (map (lambda (#{x\ 3664}#) - (#{chi\ 461}# - #{x\ 3664}# - #{r\ 3645}# - #{w\ 3646}# - #{mod\ 3648}#)) - #{fluid\ 3660}#) - (map (lambda (#{x\ 3667}#) - (#{chi\ 461}# - #{x\ 3667}# - #{r\ 3645}# - #{w\ 3646}# - #{mod\ 3648}#)) - #{val\ 3661}#) - (#{chi-body\ 469}# - (cons #{b\ 3662}# #{b*\ 3663}#) - (#{source-wrap\ 447}# - #{e\ 3644}# - #{w\ 3646}# - #{s\ 3647}# - #{mod\ 3648}#) - #{r\ 3645}# - #{w\ 3646}# - #{mod\ 3648}#))) - #{tmp\ 3655}#) + (lambda (#{fluid\ 3654}# + #{val\ 3655}# + #{b\ 3656}# + #{b*\ 3657}#) + (#{build-dynlet\ 310}# + #{s\ 3641}# + (map (lambda (#{x\ 3658}#) + (#{chi\ 460}# + #{x\ 3658}# + #{r\ 3639}# + #{w\ 3640}# + #{mod\ 3642}#)) + #{fluid\ 3654}#) + (map (lambda (#{x\ 3661}#) + (#{chi\ 460}# + #{x\ 3661}# + #{r\ 3639}# + #{w\ 3640}# + #{mod\ 3642}#)) + #{val\ 3655}#) + (#{chi-body\ 468}# + (cons #{b\ 3656}# #{b*\ 3657}#) + (#{source-wrap\ 448}# + #{e\ 3638}# + #{w\ 3640}# + #{s\ 3641}# + #{mod\ 3642}#) + #{r\ 3639}# + #{w\ 3640}# + #{mod\ 3642}#))) + #{tmp\ 3649}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3654}#)))))) - (#{global-extend\ 375}# 'begin 'begin '()) - (#{global-extend\ 375}# 'define 'define '()) - (#{global-extend\ 375}# + #{tmp\ 3648}#)))))) + (#{global-extend\ 376}# 'begin 'begin '()) + (#{global-extend\ 376}# 'define 'define '()) + (#{global-extend\ 376}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 375}# + (#{global-extend\ 376}# 'eval-when 'eval-when '()) - (#{global-extend\ 375}# + (#{global-extend\ 376}# 'core 'syntax-case (letrec* - ((#{convert-pattern\ 3672}# - (lambda (#{pattern\ 3679}# #{keys\ 3680}#) + ((#{convert-pattern\ 3666}# + (lambda (#{pattern\ 3673}# #{keys\ 3674}#) (letrec* - ((#{cvt*\ 3684}# - (lambda (#{p*\ 3687}# #{n\ 3688}# #{ids\ 3689}#) - (if (null? #{p*\ 3687}#) - (values '() #{ids\ 3689}#) + ((#{cvt*\ 3678}# + (lambda (#{p*\ 3681}# #{n\ 3682}# #{ids\ 3683}#) + (if (null? #{p*\ 3681}#) + (values '() #{ids\ 3683}#) (call-with-values (lambda () - (#{cvt*\ 3684}# - (cdr #{p*\ 3687}#) - #{n\ 3688}# - #{ids\ 3689}#)) - (lambda (#{y\ 3693}# #{ids\ 3694}#) + (#{cvt*\ 3678}# + (cdr #{p*\ 3681}#) + #{n\ 3682}# + #{ids\ 3683}#)) + (lambda (#{y\ 3687}# #{ids\ 3688}#) (call-with-values (lambda () - (#{cvt\ 3686}# - (car #{p*\ 3687}#) - #{n\ 3688}# - #{ids\ 3694}#)) - (lambda (#{x\ 3697}# #{ids\ 3698}#) + (#{cvt\ 3680}# + (car #{p*\ 3681}#) + #{n\ 3682}# + #{ids\ 3688}#)) + (lambda (#{x\ 3691}# #{ids\ 3692}#) (values - (cons #{x\ 3697}# #{y\ 3693}#) - #{ids\ 3698}#)))))))) - (#{cvt\ 3686}# - (lambda (#{p\ 3701}# #{n\ 3702}# #{ids\ 3703}#) - (if (#{id?\ 379}# #{p\ 3701}#) - (if (#{bound-id-member?\ 443}# - #{p\ 3701}# - #{keys\ 3680}#) + (cons #{x\ 3691}# #{y\ 3687}#) + #{ids\ 3692}#)))))))) + (#{cvt\ 3680}# + (lambda (#{p\ 3695}# #{n\ 3696}# #{ids\ 3697}#) + (if (#{id?\ 380}# #{p\ 3695}#) + (if (#{bound-id-member?\ 444}# + #{p\ 3695}# + #{keys\ 3674}#) (values - (vector 'free-id #{p\ 3701}#) - #{ids\ 3703}#) - (if (#{free-id=?\ 435}# - #{p\ 3701}# + (vector 'free-id #{p\ 3695}#) + #{ids\ 3697}#) + (if (#{free-id=?\ 436}# + #{p\ 3695}# '#(syntax-object _ ((top) @@ -11805,22 +11830,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3704" "i3705" "i3706")) + #("i3698" "i3699" "i3700")) #(ribcage (cvt cvt*) ((top) (top)) - ("i3685" "i3683")) + ("i3679" "i3677")) #(ribcage #(pattern keys) #((top) (top)) - #("i3681" "i3682")) + #("i3675" "i3676")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3677" "i3675" "i3673" "i3671")) + ("i3671" "i3669" "i3667" "i3665")) #(ribcage (lambda-var-list gen-var @@ -11838,7 +11863,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -12094,60 +12118,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -12156,407 +12179,406 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile))) - (values '_ #{ids\ 3703}#) + (values '_ #{ids\ 3697}#) (values 'any - (cons (cons #{p\ 3701}# #{n\ 3702}#) - #{ids\ 3703}#)))) - (let ((#{tmp\ 3712}# #{p\ 3701}#)) - (let ((#{tmp\ 3713}# + (cons (cons #{p\ 3695}# #{n\ 3696}#) + #{ids\ 3697}#)))) + (let ((#{tmp\ 3706}# #{p\ 3695}#)) + (let ((#{tmp\ 3707}# ($sc-dispatch - #{tmp\ 3712}# + #{tmp\ 3706}# '(any any)))) - (if (if #{tmp\ 3713}# + (if (if #{tmp\ 3707}# (@apply - (lambda (#{x\ 3716}# #{dots\ 3717}#) - (#{ellipsis?\ 477}# - #{dots\ 3717}#)) - #{tmp\ 3713}#) + (lambda (#{x\ 3710}# #{dots\ 3711}#) + (#{ellipsis?\ 476}# + #{dots\ 3711}#)) + #{tmp\ 3707}#) #f) (@apply - (lambda (#{x\ 3720}# #{dots\ 3721}#) + (lambda (#{x\ 3714}# #{dots\ 3715}#) (call-with-values (lambda () - (#{cvt\ 3686}# - #{x\ 3720}# - (#{fx+\ 282}# #{n\ 3702}# 1) - #{ids\ 3703}#)) - (lambda (#{p\ 3722}# #{ids\ 3723}#) + (#{cvt\ 3680}# + #{x\ 3714}# + (#{fx+\ 283}# #{n\ 3696}# 1) + #{ids\ 3697}#)) + (lambda (#{p\ 3716}# #{ids\ 3717}#) (values - (if (eq? #{p\ 3722}# 'any) + (if (eq? #{p\ 3716}# 'any) 'each-any - (vector 'each #{p\ 3722}#)) - #{ids\ 3723}#)))) - #{tmp\ 3713}#) - (let ((#{tmp\ 3726}# + (vector 'each #{p\ 3716}#)) + #{ids\ 3717}#)))) + #{tmp\ 3707}#) + (let ((#{tmp\ 3720}# ($sc-dispatch - #{tmp\ 3712}# + #{tmp\ 3706}# '(any any . each-any)))) - (if (if #{tmp\ 3726}# + (if (if #{tmp\ 3720}# (@apply - (lambda (#{x\ 3730}# - #{dots\ 3731}# - #{ys\ 3732}#) - (#{ellipsis?\ 477}# - #{dots\ 3731}#)) - #{tmp\ 3726}#) + (lambda (#{x\ 3724}# + #{dots\ 3725}# + #{ys\ 3726}#) + (#{ellipsis?\ 476}# + #{dots\ 3725}#)) + #{tmp\ 3720}#) #f) (@apply - (lambda (#{x\ 3736}# - #{dots\ 3737}# - #{ys\ 3738}#) + (lambda (#{x\ 3730}# + #{dots\ 3731}# + #{ys\ 3732}#) (call-with-values (lambda () - (#{cvt*\ 3684}# - #{ys\ 3738}# - #{n\ 3702}# - #{ids\ 3703}#)) - (lambda (#{ys\ 3740}# - #{ids\ 3741}#) + (#{cvt*\ 3678}# + #{ys\ 3732}# + #{n\ 3696}# + #{ids\ 3697}#)) + (lambda (#{ys\ 3734}# + #{ids\ 3735}#) (call-with-values (lambda () - (#{cvt\ 3686}# - #{x\ 3736}# - (1+ #{n\ 3702}#) - #{ids\ 3741}#)) - (lambda (#{x\ 3744}# - #{ids\ 3745}#) + (#{cvt\ 3680}# + #{x\ 3730}# + (1+ #{n\ 3696}#) + #{ids\ 3735}#)) + (lambda (#{x\ 3738}# + #{ids\ 3739}#) (values (vector 'each+ - #{x\ 3744}# - (reverse #{ys\ 3740}#) + #{x\ 3738}# + (reverse #{ys\ 3734}#) '()) - #{ids\ 3745}#)))))) - #{tmp\ 3726}#) - (let ((#{tmp\ 3749}# + #{ids\ 3739}#)))))) + #{tmp\ 3720}#) + (let ((#{tmp\ 3743}# ($sc-dispatch - #{tmp\ 3712}# + #{tmp\ 3706}# '(any . any)))) - (if #{tmp\ 3749}# + (if #{tmp\ 3743}# (@apply - (lambda (#{x\ 3752}# #{y\ 3753}#) + (lambda (#{x\ 3746}# #{y\ 3747}#) (call-with-values (lambda () - (#{cvt\ 3686}# - #{y\ 3753}# - #{n\ 3702}# - #{ids\ 3703}#)) - (lambda (#{y\ 3754}# - #{ids\ 3755}#) + (#{cvt\ 3680}# + #{y\ 3747}# + #{n\ 3696}# + #{ids\ 3697}#)) + (lambda (#{y\ 3748}# + #{ids\ 3749}#) (call-with-values (lambda () - (#{cvt\ 3686}# - #{x\ 3752}# - #{n\ 3702}# - #{ids\ 3755}#)) - (lambda (#{x\ 3758}# - #{ids\ 3759}#) + (#{cvt\ 3680}# + #{x\ 3746}# + #{n\ 3696}# + #{ids\ 3749}#)) + (lambda (#{x\ 3752}# + #{ids\ 3753}#) (values - (cons #{x\ 3758}# - #{y\ 3754}#) - #{ids\ 3759}#)))))) - #{tmp\ 3749}#) - (let ((#{tmp\ 3762}# + (cons #{x\ 3752}# + #{y\ 3748}#) + #{ids\ 3753}#)))))) + #{tmp\ 3743}#) + (let ((#{tmp\ 3756}# ($sc-dispatch - #{tmp\ 3712}# + #{tmp\ 3706}# '()))) - (if #{tmp\ 3762}# + (if #{tmp\ 3756}# (@apply (lambda () - (values '() #{ids\ 3703}#)) - #{tmp\ 3762}#) - (let ((#{tmp\ 3763}# + (values '() #{ids\ 3697}#)) + #{tmp\ 3756}#) + (let ((#{tmp\ 3757}# ($sc-dispatch - #{tmp\ 3712}# + #{tmp\ 3706}# '#(vector each-any)))) - (if #{tmp\ 3763}# + (if #{tmp\ 3757}# (@apply - (lambda (#{x\ 3765}#) + (lambda (#{x\ 3759}#) (call-with-values (lambda () - (#{cvt\ 3686}# - #{x\ 3765}# - #{n\ 3702}# - #{ids\ 3703}#)) - (lambda (#{p\ 3767}# - #{ids\ 3768}#) + (#{cvt\ 3680}# + #{x\ 3759}# + #{n\ 3696}# + #{ids\ 3697}#)) + (lambda (#{p\ 3761}# + #{ids\ 3762}#) (values (vector 'vector - #{p\ 3767}#) - #{ids\ 3768}#)))) - #{tmp\ 3763}#) - (let ((#{x\ 3772}# - #{tmp\ 3712}#)) + #{p\ 3761}#) + #{ids\ 3762}#)))) + #{tmp\ 3757}#) + (let ((#{x\ 3766}# + #{tmp\ 3706}#)) (values (vector 'atom - (#{strip\ 487}# - #{p\ 3701}# + (#{strip\ 486}# + #{p\ 3695}# '(()))) - #{ids\ 3703}#))))))))))))))))) - (begin (#{cvt\ 3686}# #{pattern\ 3679}# 0 '()))))) - (#{build-dispatch-call\ 3674}# - (lambda (#{pvars\ 3774}# - #{exp\ 3775}# - #{y\ 3776}# - #{r\ 3777}# - #{mod\ 3778}#) + #{ids\ 3697}#))))))))))))))))) + (begin (#{cvt\ 3680}# #{pattern\ 3673}# 0 '()))))) + (#{build-dispatch-call\ 3668}# + (lambda (#{pvars\ 3768}# + #{exp\ 3769}# + #{y\ 3770}# + #{r\ 3771}# + #{mod\ 3772}#) (begin - (map cdr #{pvars\ 3774}#) - (let ((#{ids\ 3786}# (map car #{pvars\ 3774}#))) + (map cdr #{pvars\ 3768}#) + (let ((#{ids\ 3780}# (map car #{pvars\ 3768}#))) (begin - (let ((#{labels\ 3790}# - (#{gen-labels\ 394}# #{ids\ 3786}#)) - (#{new-vars\ 3791}# - (map #{gen-var\ 489}# #{ids\ 3786}#))) - (#{build-application\ 305}# + (let ((#{labels\ 3784}# + (#{gen-labels\ 395}# #{ids\ 3780}#)) + (#{new-vars\ 3785}# + (map #{gen-var\ 488}# #{ids\ 3780}#))) + (#{build-application\ 306}# #f - (#{build-primref\ 329}# #f 'apply) - (list (#{build-simple-lambda\ 323}# + (#{build-primref\ 330}# #f 'apply) + (list (#{build-simple-lambda\ 324}# #f - (map syntax->datum #{ids\ 3786}#) + (map syntax->datum #{ids\ 3780}#) #f - #{new-vars\ 3791}# + #{new-vars\ 3785}# '() - (#{chi\ 461}# - #{exp\ 3775}# - (#{extend-env\ 367}# - #{labels\ 3790}# - (map (lambda (#{var\ 3795}# - #{level\ 3796}#) + (#{chi\ 460}# + #{exp\ 3769}# + (#{extend-env\ 368}# + #{labels\ 3784}# + (map (lambda (#{var\ 3789}# + #{level\ 3790}#) (cons 'syntax - (cons #{var\ 3795}# - #{level\ 3796}#))) - #{new-vars\ 3791}# - (map cdr #{pvars\ 3774}#)) - #{r\ 3777}#) - (#{make-binding-wrap\ 423}# - #{ids\ 3786}# - #{labels\ 3790}# + (cons #{var\ 3789}# + #{level\ 3790}#))) + #{new-vars\ 3785}# + (map cdr #{pvars\ 3768}#)) + #{r\ 3771}#) + (#{make-binding-wrap\ 424}# + #{ids\ 3780}# + #{labels\ 3784}# '(())) - #{mod\ 3778}#)) - #{y\ 3776}#)))))))) - (#{gen-clause\ 3676}# - (lambda (#{x\ 3802}# - #{keys\ 3803}# - #{clauses\ 3804}# - #{r\ 3805}# - #{pat\ 3806}# - #{fender\ 3807}# - #{exp\ 3808}# - #{mod\ 3809}#) + #{mod\ 3772}#)) + #{y\ 3770}#)))))))) + (#{gen-clause\ 3670}# + (lambda (#{x\ 3796}# + #{keys\ 3797}# + #{clauses\ 3798}# + #{r\ 3799}# + #{pat\ 3800}# + #{fender\ 3801}# + #{exp\ 3802}# + #{mod\ 3803}#) (call-with-values (lambda () - (#{convert-pattern\ 3672}# - #{pat\ 3806}# - #{keys\ 3803}#)) - (lambda (#{p\ 3818}# #{pvars\ 3819}#) - (if (not (#{distinct-bound-ids?\ 441}# - (map car #{pvars\ 3819}#))) + (#{convert-pattern\ 3666}# + #{pat\ 3800}# + #{keys\ 3797}#)) + (lambda (#{p\ 3812}# #{pvars\ 3813}#) + (if (not (#{distinct-bound-ids?\ 442}# + (map car #{pvars\ 3813}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3806}#) + #{pat\ 3800}#) (if (not (and-map - (lambda (#{x\ 3826}#) - (not (#{ellipsis?\ 477}# - (car #{x\ 3826}#)))) - #{pvars\ 3819}#)) + (lambda (#{x\ 3820}#) + (not (#{ellipsis?\ 476}# + (car #{x\ 3820}#)))) + #{pvars\ 3813}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3806}#) + #{pat\ 3800}#) (begin - (let ((#{y\ 3830}# (#{gen-var\ 489}# 'tmp))) - (#{build-application\ 305}# + (let ((#{y\ 3824}# (#{gen-var\ 488}# 'tmp))) + (#{build-application\ 306}# #f - (#{build-simple-lambda\ 323}# + (#{build-simple-lambda\ 324}# #f (list 'tmp) #f - (list #{y\ 3830}#) + (list #{y\ 3824}#) '() (begin - (let ((#{y\ 3834}# - (#{build-lexical-reference\ 311}# + (let ((#{y\ 3828}# + (#{build-lexical-reference\ 312}# 'value #f 'tmp - #{y\ 3830}#))) - (#{build-conditional\ 307}# + #{y\ 3824}#))) + (#{build-conditional\ 308}# #f - (let ((#{tmp\ 3837}# - #{fender\ 3807}#)) - (let ((#{tmp\ 3838}# + (let ((#{tmp\ 3831}# + #{fender\ 3801}#)) + (let ((#{tmp\ 3832}# ($sc-dispatch - #{tmp\ 3837}# + #{tmp\ 3831}# '#(atom #t)))) - (if #{tmp\ 3838}# + (if #{tmp\ 3832}# (@apply - (lambda () #{y\ 3834}#) - #{tmp\ 3838}#) - (let ((#{_\ 3840}# - #{tmp\ 3837}#)) - (#{build-conditional\ 307}# + (lambda () #{y\ 3828}#) + #{tmp\ 3832}#) + (let ((#{_\ 3834}# + #{tmp\ 3831}#)) + (#{build-conditional\ 308}# #f - #{y\ 3834}# - (#{build-dispatch-call\ 3674}# - #{pvars\ 3819}# - #{fender\ 3807}# - #{y\ 3834}# - #{r\ 3805}# - #{mod\ 3809}#) - (#{build-data\ 331}# + #{y\ 3828}# + (#{build-dispatch-call\ 3668}# + #{pvars\ 3813}# + #{fender\ 3801}# + #{y\ 3828}# + #{r\ 3799}# + #{mod\ 3803}#) + (#{build-data\ 332}# #f #f)))))) - (#{build-dispatch-call\ 3674}# - #{pvars\ 3819}# - #{exp\ 3808}# - #{y\ 3834}# - #{r\ 3805}# - #{mod\ 3809}#) - (#{gen-syntax-case\ 3678}# - #{x\ 3802}# - #{keys\ 3803}# - #{clauses\ 3804}# - #{r\ 3805}# - #{mod\ 3809}#))))) - (list (if (eq? #{p\ 3818}# 'any) - (#{build-application\ 305}# + (#{build-dispatch-call\ 3668}# + #{pvars\ 3813}# + #{exp\ 3802}# + #{y\ 3828}# + #{r\ 3799}# + #{mod\ 3803}#) + (#{gen-syntax-case\ 3672}# + #{x\ 3796}# + #{keys\ 3797}# + #{clauses\ 3798}# + #{r\ 3799}# + #{mod\ 3803}#))))) + (list (if (eq? #{p\ 3812}# 'any) + (#{build-application\ 306}# #f - (#{build-primref\ 329}# #f 'list) - (list #{x\ 3802}#)) - (#{build-application\ 305}# + (#{build-primref\ 330}# #f 'list) + (list #{x\ 3796}#)) + (#{build-application\ 306}# #f - (#{build-primref\ 329}# + (#{build-primref\ 330}# #f '$sc-dispatch) - (list #{x\ 3802}# - (#{build-data\ 331}# + (list #{x\ 3796}# + (#{build-data\ 332}# #f - #{p\ 3818}#)))))))))))))) - (#{gen-syntax-case\ 3678}# - (lambda (#{x\ 3848}# - #{keys\ 3849}# - #{clauses\ 3850}# - #{r\ 3851}# - #{mod\ 3852}#) - (if (null? #{clauses\ 3850}#) - (#{build-application\ 305}# + #{p\ 3812}#)))))))))))))) + (#{gen-syntax-case\ 3672}# + (lambda (#{x\ 3842}# + #{keys\ 3843}# + #{clauses\ 3844}# + #{r\ 3845}# + #{mod\ 3846}#) + (if (null? #{clauses\ 3844}#) + (#{build-application\ 306}# #f - (#{build-primref\ 329}# #f 'syntax-violation) - (list (#{build-data\ 331}# #f #f) - (#{build-data\ 331}# + (#{build-primref\ 330}# #f 'syntax-violation) + (list (#{build-data\ 332}# #f #f) + (#{build-data\ 332}# #f "source expression failed to match any pattern") - #{x\ 3848}#)) - (let ((#{tmp\ 3862}# (car #{clauses\ 3850}#))) - (let ((#{tmp\ 3863}# - ($sc-dispatch #{tmp\ 3862}# '(any any)))) - (if #{tmp\ 3863}# + #{x\ 3842}#)) + (let ((#{tmp\ 3856}# (car #{clauses\ 3844}#))) + (let ((#{tmp\ 3857}# + ($sc-dispatch #{tmp\ 3856}# '(any any)))) + (if #{tmp\ 3857}# (@apply - (lambda (#{pat\ 3866}# #{exp\ 3867}#) - (if (if (#{id?\ 379}# #{pat\ 3866}#) + (lambda (#{pat\ 3860}# #{exp\ 3861}#) + (if (if (#{id?\ 380}# #{pat\ 3860}#) (and-map - (lambda (#{x\ 3870}#) - (not (#{free-id=?\ 435}# - #{pat\ 3866}# - #{x\ 3870}#))) + (lambda (#{x\ 3864}#) + (not (#{free-id=?\ 436}# + #{pat\ 3860}# + #{x\ 3864}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3864" "i3865")) + #("i3858" "i3859")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -12565,21 +12587,21 @@ (top) (top) (top)) - #("i3853" - "i3854" - "i3855" - "i3856" - "i3857")) + #("i3847" + "i3848" + "i3849" + "i3850" + "i3851")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3677" - "i3675" - "i3673" - "i3671")) + ("i3671" + "i3669" + "i3667" + "i3665")) #(ribcage (lambda-var-list gen-var @@ -12597,7 +12619,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -12853,60 +12874,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -12915,123 +12935,122 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" + ("i41" + "i40" "i39" - "i38" - "i36"))) + "i37"))) (hygiene guile)) - #{keys\ 3849}#)) + #{keys\ 3843}#)) #f) - (if (#{free-id=?\ 435}# + (if (#{free-id=?\ 436}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3864" "i3865")) + #("i3858" "i3859")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3853" - "i3854" - "i3855" - "i3856" - "i3857")) + #("i3847" + "i3848" + "i3849" + "i3850" + "i3851")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3677" - "i3675" - "i3673" - "i3671")) + ("i3671" + "i3669" + "i3667" + "i3665")) #(ribcage (lambda-var-list gen-var @@ -13049,7 +13068,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -13305,60 +13323,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -13367,90 +13384,89 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile)) '#(syntax-object _ @@ -13458,26 +13474,26 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3864" "i3865")) + #("i3858" "i3859")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3853" - "i3854" - "i3855" - "i3856" - "i3857")) + #("i3847" + "i3848" + "i3849" + "i3850" + "i3851")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3677" - "i3675" - "i3673" - "i3671")) + ("i3671" + "i3669" + "i3667" + "i3665")) #(ribcage (lambda-var-list gen-var @@ -13495,7 +13511,6 @@ chi-application chi-expr chi - chi-top syntax-type chi-when-list chi-install-global @@ -13751,60 +13766,59 @@ (top) (top) (top) - (top) (top)) - ("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" - "i422" + ("i489" + "i487" + "i485" + "i483" + "i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" "i420" "i419" - "i418" + "i417" "i416" "i415" "i414" "i413" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i393" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i394" + "i392" "i391" "i390" "i389" @@ -13813,676 +13827,676 @@ "i386" "i385" "i384" - "i383" + "i382" "i381" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" + "i379" + "i377" + "i375" + "i373" + "i371" + "i369" + "i367" "i366" "i365" "i364" "i363" "i362" - "i361" + "i360" "i359" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i300" - "i298" - "i296" + "i357" + "i355" + "i353" + "i351" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i333" + "i331" + "i329" + "i327" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" "i294" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" - "i254" - "i252" - "i250" - "i248" - "i246" - "i244" - "i242" - "i240" - "i238")) + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i40" "i39" "i38" "i36"))) + ("i41" "i40" "i39" "i37"))) (hygiene guile))) - (#{chi\ 461}# - #{exp\ 3867}# - #{r\ 3851}# + (#{chi\ 460}# + #{exp\ 3861}# + #{r\ 3845}# '(()) - #{mod\ 3852}#) + #{mod\ 3846}#) (begin - (let ((#{labels\ 3875}# - (list (#{gen-label\ 392}#))) - (#{var\ 3876}# - (#{gen-var\ 489}# - #{pat\ 3866}#))) - (#{build-application\ 305}# + (let ((#{labels\ 3869}# + (list (#{gen-label\ 393}#))) + (#{var\ 3870}# + (#{gen-var\ 488}# + #{pat\ 3860}#))) + (#{build-application\ 306}# #f - (#{build-simple-lambda\ 323}# + (#{build-simple-lambda\ 324}# #f (list (syntax->datum - #{pat\ 3866}#)) + #{pat\ 3860}#)) #f - (list #{var\ 3876}#) + (list #{var\ 3870}#) '() - (#{chi\ 461}# - #{exp\ 3867}# - (#{extend-env\ 367}# - #{labels\ 3875}# + (#{chi\ 460}# + #{exp\ 3861}# + (#{extend-env\ 368}# + #{labels\ 3869}# (list (cons 'syntax - (cons #{var\ 3876}# + (cons #{var\ 3870}# 0))) - #{r\ 3851}#) - (#{make-binding-wrap\ 423}# - (list #{pat\ 3866}#) - #{labels\ 3875}# + #{r\ 3845}#) + (#{make-binding-wrap\ 424}# + (list #{pat\ 3860}#) + #{labels\ 3869}# '(())) - #{mod\ 3852}#)) - (list #{x\ 3848}#))))) - (#{gen-clause\ 3676}# - #{x\ 3848}# - #{keys\ 3849}# - (cdr #{clauses\ 3850}#) - #{r\ 3851}# - #{pat\ 3866}# + #{mod\ 3846}#)) + (list #{x\ 3842}#))))) + (#{gen-clause\ 3670}# + #{x\ 3842}# + #{keys\ 3843}# + (cdr #{clauses\ 3844}#) + #{r\ 3845}# + #{pat\ 3860}# #t - #{exp\ 3867}# - #{mod\ 3852}#))) - #{tmp\ 3863}#) - (let ((#{tmp\ 3882}# + #{exp\ 3861}# + #{mod\ 3846}#))) + #{tmp\ 3857}#) + (let ((#{tmp\ 3876}# ($sc-dispatch - #{tmp\ 3862}# + #{tmp\ 3856}# '(any any any)))) - (if #{tmp\ 3882}# + (if #{tmp\ 3876}# (@apply - (lambda (#{pat\ 3886}# - #{fender\ 3887}# - #{exp\ 3888}#) - (#{gen-clause\ 3676}# - #{x\ 3848}# - #{keys\ 3849}# - (cdr #{clauses\ 3850}#) - #{r\ 3851}# - #{pat\ 3886}# - #{fender\ 3887}# - #{exp\ 3888}# - #{mod\ 3852}#)) - #{tmp\ 3882}#) - (let ((#{_\ 3890}# #{tmp\ 3862}#)) + (lambda (#{pat\ 3880}# + #{fender\ 3881}# + #{exp\ 3882}#) + (#{gen-clause\ 3670}# + #{x\ 3842}# + #{keys\ 3843}# + (cdr #{clauses\ 3844}#) + #{r\ 3845}# + #{pat\ 3880}# + #{fender\ 3881}# + #{exp\ 3882}# + #{mod\ 3846}#)) + #{tmp\ 3876}#) + (let ((#{_\ 3884}# #{tmp\ 3856}#)) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3850}#)))))))))))) + (car #{clauses\ 3844}#)))))))))))) (begin - (lambda (#{e\ 3891}# - #{r\ 3892}# - #{w\ 3893}# - #{s\ 3894}# - #{mod\ 3895}#) + (lambda (#{e\ 3885}# + #{r\ 3886}# + #{w\ 3887}# + #{s\ 3888}# + #{mod\ 3889}#) (begin - (let ((#{e\ 3902}# - (#{source-wrap\ 447}# - #{e\ 3891}# - #{w\ 3893}# - #{s\ 3894}# - #{mod\ 3895}#))) - (let ((#{tmp\ 3903}# #{e\ 3902}#)) - (let ((#{tmp\ 3904}# + (let ((#{e\ 3896}# + (#{source-wrap\ 448}# + #{e\ 3885}# + #{w\ 3887}# + #{s\ 3888}# + #{mod\ 3889}#))) + (let ((#{tmp\ 3897}# #{e\ 3896}#)) + (let ((#{tmp\ 3898}# ($sc-dispatch - #{tmp\ 3903}# + #{tmp\ 3897}# '(_ any each-any . each-any)))) - (if #{tmp\ 3904}# + (if #{tmp\ 3898}# (@apply - (lambda (#{val\ 3908}# - #{key\ 3909}# - #{m\ 3910}#) + (lambda (#{val\ 3902}# + #{key\ 3903}# + #{m\ 3904}#) (if (and-map - (lambda (#{x\ 3911}#) - (if (#{id?\ 379}# #{x\ 3911}#) - (not (#{ellipsis?\ 477}# - #{x\ 3911}#)) + (lambda (#{x\ 3905}#) + (if (#{id?\ 380}# #{x\ 3905}#) + (not (#{ellipsis?\ 476}# + #{x\ 3905}#)) #f)) - #{key\ 3909}#) + #{key\ 3903}#) (begin - (let ((#{x\ 3917}# - (#{gen-var\ 489}# 'tmp))) - (#{build-application\ 305}# - #{s\ 3894}# - (#{build-simple-lambda\ 323}# + (let ((#{x\ 3911}# + (#{gen-var\ 488}# 'tmp))) + (#{build-application\ 306}# + #{s\ 3888}# + (#{build-simple-lambda\ 324}# #f (list 'tmp) #f - (list #{x\ 3917}#) + (list #{x\ 3911}#) '() - (#{gen-syntax-case\ 3678}# - (#{build-lexical-reference\ 311}# + (#{gen-syntax-case\ 3672}# + (#{build-lexical-reference\ 312}# 'value #f 'tmp - #{x\ 3917}#) - #{key\ 3909}# - #{m\ 3910}# - #{r\ 3892}# - #{mod\ 3895}#)) - (list (#{chi\ 461}# - #{val\ 3908}# - #{r\ 3892}# + #{x\ 3911}#) + #{key\ 3903}# + #{m\ 3904}# + #{r\ 3886}# + #{mod\ 3889}#)) + (list (#{chi\ 460}# + #{val\ 3902}# + #{r\ 3886}# '(()) - #{mod\ 3895}#))))) + #{mod\ 3889}#))))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3902}#))) - #{tmp\ 3904}#) + #{e\ 3896}#))) + #{tmp\ 3898}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3903}#)))))))))) + #{tmp\ 3897}#)))))))))) (set! macroexpand (lambda* - (#{x\ 3923}# + (#{x\ 3917}# #:optional - (#{m\ 3925}# 'e) - (#{esew\ 3927}# '(eval))) - (#{chi-top\ 459}# - #{x\ 3923}# + (#{m\ 3919}# 'e) + (#{esew\ 3921}# '(eval))) + (#{chi-top-sequence\ 452}# + (list #{x\ 3917}#) '() '((top)) - #{m\ 3925}# - #{esew\ 3927}# + #f + #{m\ 3919}# + #{esew\ 3921}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x\ 3931}#) - (#{nonsymbol-id?\ 377}# #{x\ 3931}#))) + (lambda (#{x\ 3925}#) + (#{nonsymbol-id?\ 378}# #{x\ 3925}#))) (set! datum->syntax - (lambda (#{id\ 3933}# #{datum\ 3934}#) - (#{make-syntax-object\ 343}# - #{datum\ 3934}# - (#{syntax-object-wrap\ 349}# #{id\ 3933}#) - (#{syntax-object-module\ 351}# #{id\ 3933}#)))) + (lambda (#{id\ 3927}# #{datum\ 3928}#) + (#{make-syntax-object\ 344}# + #{datum\ 3928}# + (#{syntax-object-wrap\ 350}# #{id\ 3927}#) + (#{syntax-object-module\ 352}# #{id\ 3927}#)))) (set! syntax->datum - (lambda (#{x\ 3937}#) - (#{strip\ 487}# #{x\ 3937}# '(())))) + (lambda (#{x\ 3931}#) + (#{strip\ 486}# #{x\ 3931}# '(())))) (set! syntax-source - (lambda (#{x\ 3940}#) - (#{source-annotation\ 360}# #{x\ 3940}#))) + (lambda (#{x\ 3934}#) + (#{source-annotation\ 361}# #{x\ 3934}#))) (set! generate-temporaries - (lambda (#{ls\ 3942}#) + (lambda (#{ls\ 3936}#) (begin (begin - (let ((#{x\ 3946}# #{ls\ 3942}#)) - (if (not (list? #{x\ 3946}#)) + (let ((#{x\ 3940}# #{ls\ 3936}#)) + (if (not (list? #{x\ 3940}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3946}#)))) - (map (lambda (#{x\ 3947}#) - (#{wrap\ 445}# (gensym) '((top)) #f)) - #{ls\ 3942}#)))) + #{x\ 3940}#)))) + (map (lambda (#{x\ 3941}#) + (#{wrap\ 446}# (gensym) '((top)) #f)) + #{ls\ 3936}#)))) (set! free-identifier=? - (lambda (#{x\ 3951}# #{y\ 3952}#) + (lambda (#{x\ 3945}# #{y\ 3946}#) (begin (begin - (let ((#{x\ 3957}# #{x\ 3951}#)) - (if (not (#{nonsymbol-id?\ 377}# #{x\ 3957}#)) + (let ((#{x\ 3951}# #{x\ 3945}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3951}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3957}#)))) + #{x\ 3951}#)))) (begin - (let ((#{x\ 3960}# #{y\ 3952}#)) - (if (not (#{nonsymbol-id?\ 377}# #{x\ 3960}#)) + (let ((#{x\ 3954}# #{y\ 3946}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3954}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3960}#)))) - (#{free-id=?\ 435}# #{x\ 3951}# #{y\ 3952}#)))) + #{x\ 3954}#)))) + (#{free-id=?\ 436}# #{x\ 3945}# #{y\ 3946}#)))) (set! bound-identifier=? - (lambda (#{x\ 3961}# #{y\ 3962}#) + (lambda (#{x\ 3955}# #{y\ 3956}#) (begin (begin - (let ((#{x\ 3967}# #{x\ 3961}#)) - (if (not (#{nonsymbol-id?\ 377}# #{x\ 3967}#)) + (let ((#{x\ 3961}# #{x\ 3955}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3961}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3967}#)))) + #{x\ 3961}#)))) (begin - (let ((#{x\ 3970}# #{y\ 3962}#)) - (if (not (#{nonsymbol-id?\ 377}# #{x\ 3970}#)) + (let ((#{x\ 3964}# #{y\ 3956}#)) + (if (not (#{nonsymbol-id?\ 378}# #{x\ 3964}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3970}#)))) - (#{bound-id=?\ 437}# #{x\ 3961}# #{y\ 3962}#)))) + #{x\ 3964}#)))) + (#{bound-id=?\ 438}# #{x\ 3955}# #{y\ 3956}#)))) (set! syntax-violation (lambda* - (#{who\ 3971}# - #{message\ 3972}# - #{form\ 3973}# + (#{who\ 3965}# + #{message\ 3966}# + #{form\ 3967}# #:optional - (#{subform\ 3977}# #f)) + (#{subform\ 3971}# #f)) (begin (begin - (let ((#{x\ 3981}# #{who\ 3971}#)) - (if (not (let ((#{x\ 3982}# #{x\ 3981}#)) + (let ((#{x\ 3975}# #{who\ 3965}#)) + (if (not (let ((#{x\ 3976}# #{x\ 3975}#)) (begin - (let ((#{t\ 3986}# (not #{x\ 3982}#))) - (if #{t\ 3986}# - #{t\ 3986}# + (let ((#{t\ 3980}# (not #{x\ 3976}#))) + (if #{t\ 3980}# + #{t\ 3980}# (begin - (let ((#{t\ 3989}# - (string? #{x\ 3982}#))) - (if #{t\ 3989}# - #{t\ 3989}# - (symbol? #{x\ 3982}#))))))))) + (let ((#{t\ 3983}# + (string? #{x\ 3976}#))) + (if #{t\ 3983}# + #{t\ 3983}# + (symbol? #{x\ 3976}#))))))))) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3981}#)))) + #{x\ 3975}#)))) (begin - (let ((#{x\ 3993}# #{message\ 3972}#)) - (if (not (string? #{x\ 3993}#)) + (let ((#{x\ 3987}# #{message\ 3966}#)) + (if (not (string? #{x\ 3987}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3993}#)))) + #{x\ 3987}#)))) (throw 'syntax-error - #{who\ 3971}# - #{message\ 3972}# - (#{source-annotation\ 360}# + #{who\ 3965}# + #{message\ 3966}# + (#{source-annotation\ 361}# (begin - (let ((#{t\ 3996}# #{form\ 3973}#)) - (if #{t\ 3996}# - #{t\ 3996}# - #{subform\ 3977}#)))) - (#{strip\ 487}# #{form\ 3973}# '(())) - (if #{subform\ 3977}# - (#{strip\ 487}# #{subform\ 3977}# '(())) + (let ((#{t\ 3990}# #{form\ 3967}#)) + (if #{t\ 3990}# + #{t\ 3990}# + #{subform\ 3971}#)))) + (#{strip\ 486}# #{form\ 3967}# '(())) + (if #{subform\ 3971}# + (#{strip\ 486}# #{subform\ 3971}# '(())) #f))))) (letrec* - ((#{match-each\ 4003}# - (lambda (#{e\ 4016}# - #{p\ 4017}# - #{w\ 4018}# - #{mod\ 4019}#) - (if (pair? #{e\ 4016}#) + ((#{match-each\ 3997}# + (lambda (#{e\ 4010}# + #{p\ 4011}# + #{w\ 4012}# + #{mod\ 4013}#) + (if (pair? #{e\ 4010}#) (begin - (let ((#{first\ 4027}# - (#{match\ 4015}# - (car #{e\ 4016}#) - #{p\ 4017}# - #{w\ 4018}# + (let ((#{first\ 4021}# + (#{match\ 4009}# + (car #{e\ 4010}#) + #{p\ 4011}# + #{w\ 4012}# '() - #{mod\ 4019}#))) - (if #{first\ 4027}# + #{mod\ 4013}#))) + (if #{first\ 4021}# (begin - (let ((#{rest\ 4031}# - (#{match-each\ 4003}# - (cdr #{e\ 4016}#) - #{p\ 4017}# - #{w\ 4018}# - #{mod\ 4019}#))) - (if #{rest\ 4031}# - (cons #{first\ 4027}# #{rest\ 4031}#) + (let ((#{rest\ 4025}# + (#{match-each\ 3997}# + (cdr #{e\ 4010}#) + #{p\ 4011}# + #{w\ 4012}# + #{mod\ 4013}#))) + (if #{rest\ 4025}# + (cons #{first\ 4021}# #{rest\ 4025}#) #f))) #f))) - (if (null? #{e\ 4016}#) + (if (null? #{e\ 4010}#) '() - (if (#{syntax-object?\ 345}# #{e\ 4016}#) - (#{match-each\ 4003}# - (#{syntax-object-expression\ 347}# #{e\ 4016}#) - #{p\ 4017}# - (#{join-wraps\ 427}# - #{w\ 4018}# - (#{syntax-object-wrap\ 349}# #{e\ 4016}#)) - (#{syntax-object-module\ 351}# #{e\ 4016}#)) + (if (#{syntax-object?\ 346}# #{e\ 4010}#) + (#{match-each\ 3997}# + (#{syntax-object-expression\ 348}# #{e\ 4010}#) + #{p\ 4011}# + (#{join-wraps\ 428}# + #{w\ 4012}# + (#{syntax-object-wrap\ 350}# #{e\ 4010}#)) + (#{syntax-object-module\ 352}# #{e\ 4010}#)) #f))))) - (#{match-each+\ 4005}# - (lambda (#{e\ 4039}# - #{x-pat\ 4040}# - #{y-pat\ 4041}# - #{z-pat\ 4042}# - #{w\ 4043}# - #{r\ 4044}# - #{mod\ 4045}#) + (#{match-each+\ 3999}# + (lambda (#{e\ 4033}# + #{x-pat\ 4034}# + #{y-pat\ 4035}# + #{z-pat\ 4036}# + #{w\ 4037}# + #{r\ 4038}# + #{mod\ 4039}#) (letrec* - ((#{f\ 4056}# - (lambda (#{e\ 4057}# #{w\ 4058}#) - (if (pair? #{e\ 4057}#) + ((#{f\ 4050}# + (lambda (#{e\ 4051}# #{w\ 4052}#) + (if (pair? #{e\ 4051}#) (call-with-values (lambda () - (#{f\ 4056}# (cdr #{e\ 4057}#) #{w\ 4058}#)) - (lambda (#{xr*\ 4061}# - #{y-pat\ 4062}# - #{r\ 4063}#) - (if #{r\ 4063}# - (if (null? #{y-pat\ 4062}#) + (#{f\ 4050}# (cdr #{e\ 4051}#) #{w\ 4052}#)) + (lambda (#{xr*\ 4055}# + #{y-pat\ 4056}# + #{r\ 4057}#) + (if #{r\ 4057}# + (if (null? #{y-pat\ 4056}#) (begin - (let ((#{xr\ 4068}# - (#{match\ 4015}# - (car #{e\ 4057}#) - #{x-pat\ 4040}# - #{w\ 4058}# + (let ((#{xr\ 4062}# + (#{match\ 4009}# + (car #{e\ 4051}#) + #{x-pat\ 4034}# + #{w\ 4052}# '() - #{mod\ 4045}#))) - (if #{xr\ 4068}# + #{mod\ 4039}#))) + (if #{xr\ 4062}# (values - (cons #{xr\ 4068}# #{xr*\ 4061}#) - #{y-pat\ 4062}# - #{r\ 4063}#) + (cons #{xr\ 4062}# #{xr*\ 4055}#) + #{y-pat\ 4056}# + #{r\ 4057}#) (values #f #f #f)))) (values '() - (cdr #{y-pat\ 4062}#) - (#{match\ 4015}# - (car #{e\ 4057}#) - (car #{y-pat\ 4062}#) - #{w\ 4058}# - #{r\ 4063}# - #{mod\ 4045}#))) + (cdr #{y-pat\ 4056}#) + (#{match\ 4009}# + (car #{e\ 4051}#) + (car #{y-pat\ 4056}#) + #{w\ 4052}# + #{r\ 4057}# + #{mod\ 4039}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 345}# #{e\ 4057}#) - (#{f\ 4056}# - (#{syntax-object-expression\ 347}# #{e\ 4057}#) - (#{join-wraps\ 427}# #{w\ 4058}# #{e\ 4057}#)) + (if (#{syntax-object?\ 346}# #{e\ 4051}#) + (#{f\ 4050}# + (#{syntax-object-expression\ 348}# #{e\ 4051}#) + (#{join-wraps\ 428}# #{w\ 4052}# #{e\ 4051}#)) (values '() - #{y-pat\ 4041}# - (#{match\ 4015}# - #{e\ 4057}# - #{z-pat\ 4042}# - #{w\ 4058}# - #{r\ 4044}# - #{mod\ 4045}#))))))) - (begin (#{f\ 4056}# #{e\ 4039}# #{w\ 4043}#))))) - (#{match-each-any\ 4007}# - (lambda (#{e\ 4072}# #{w\ 4073}# #{mod\ 4074}#) - (if (pair? #{e\ 4072}#) + #{y-pat\ 4035}# + (#{match\ 4009}# + #{e\ 4051}# + #{z-pat\ 4036}# + #{w\ 4052}# + #{r\ 4038}# + #{mod\ 4039}#))))))) + (begin (#{f\ 4050}# #{e\ 4033}# #{w\ 4037}#))))) + (#{match-each-any\ 4001}# + (lambda (#{e\ 4066}# #{w\ 4067}# #{mod\ 4068}#) + (if (pair? #{e\ 4066}#) (begin - (let ((#{l\ 4081}# - (#{match-each-any\ 4007}# - (cdr #{e\ 4072}#) - #{w\ 4073}# - #{mod\ 4074}#))) - (if #{l\ 4081}# - (cons (#{wrap\ 445}# - (car #{e\ 4072}#) - #{w\ 4073}# - #{mod\ 4074}#) - #{l\ 4081}#) + (let ((#{l\ 4075}# + (#{match-each-any\ 4001}# + (cdr #{e\ 4066}#) + #{w\ 4067}# + #{mod\ 4068}#))) + (if #{l\ 4075}# + (cons (#{wrap\ 446}# + (car #{e\ 4066}#) + #{w\ 4067}# + #{mod\ 4068}#) + #{l\ 4075}#) #f))) - (if (null? #{e\ 4072}#) + (if (null? #{e\ 4066}#) '() - (if (#{syntax-object?\ 345}# #{e\ 4072}#) - (#{match-each-any\ 4007}# - (#{syntax-object-expression\ 347}# #{e\ 4072}#) - (#{join-wraps\ 427}# - #{w\ 4073}# - (#{syntax-object-wrap\ 349}# #{e\ 4072}#)) - #{mod\ 4074}#) + (if (#{syntax-object?\ 346}# #{e\ 4066}#) + (#{match-each-any\ 4001}# + (#{syntax-object-expression\ 348}# #{e\ 4066}#) + (#{join-wraps\ 428}# + #{w\ 4067}# + (#{syntax-object-wrap\ 350}# #{e\ 4066}#)) + #{mod\ 4068}#) #f))))) - (#{match-empty\ 4009}# - (lambda (#{p\ 4089}# #{r\ 4090}#) - (if (null? #{p\ 4089}#) - #{r\ 4090}# - (if (eq? #{p\ 4089}# '_) - #{r\ 4090}# - (if (eq? #{p\ 4089}# 'any) - (cons '() #{r\ 4090}#) - (if (pair? #{p\ 4089}#) - (#{match-empty\ 4009}# - (car #{p\ 4089}#) - (#{match-empty\ 4009}# - (cdr #{p\ 4089}#) - #{r\ 4090}#)) - (if (eq? #{p\ 4089}# 'each-any) - (cons '() #{r\ 4090}#) + (#{match-empty\ 4003}# + (lambda (#{p\ 4083}# #{r\ 4084}#) + (if (null? #{p\ 4083}#) + #{r\ 4084}# + (if (eq? #{p\ 4083}# '_) + #{r\ 4084}# + (if (eq? #{p\ 4083}# 'any) + (cons '() #{r\ 4084}#) + (if (pair? #{p\ 4083}#) + (#{match-empty\ 4003}# + (car #{p\ 4083}#) + (#{match-empty\ 4003}# + (cdr #{p\ 4083}#) + #{r\ 4084}#)) + (if (eq? #{p\ 4083}# 'each-any) + (cons '() #{r\ 4084}#) (begin - (let ((#{atom-key\ 4106}# - (vector-ref #{p\ 4089}# 0))) - (if (eqv? #{atom-key\ 4106}# 'each) - (#{match-empty\ 4009}# - (vector-ref #{p\ 4089}# 1) - #{r\ 4090}#) - (if (eqv? #{atom-key\ 4106}# 'each+) - (#{match-empty\ 4009}# - (vector-ref #{p\ 4089}# 1) - (#{match-empty\ 4009}# - (reverse (vector-ref #{p\ 4089}# 2)) - (#{match-empty\ 4009}# - (vector-ref #{p\ 4089}# 3) - #{r\ 4090}#))) - (if (if (eqv? #{atom-key\ 4106}# 'free-id) + (let ((#{atom-key\ 4100}# + (vector-ref #{p\ 4083}# 0))) + (if (eqv? #{atom-key\ 4100}# 'each) + (#{match-empty\ 4003}# + (vector-ref #{p\ 4083}# 1) + #{r\ 4084}#) + (if (eqv? #{atom-key\ 4100}# 'each+) + (#{match-empty\ 4003}# + (vector-ref #{p\ 4083}# 1) + (#{match-empty\ 4003}# + (reverse (vector-ref #{p\ 4083}# 2)) + (#{match-empty\ 4003}# + (vector-ref #{p\ 4083}# 3) + #{r\ 4084}#))) + (if (if (eqv? #{atom-key\ 4100}# 'free-id) #t - (eqv? #{atom-key\ 4106}# 'atom)) - #{r\ 4090}# - (if (eqv? #{atom-key\ 4106}# 'vector) - (#{match-empty\ 4009}# - (vector-ref #{p\ 4089}# 1) - #{r\ 4090}#)))))))))))))) - (#{combine\ 4011}# - (lambda (#{r*\ 4111}# #{r\ 4112}#) - (if (null? (car #{r*\ 4111}#)) - #{r\ 4112}# - (cons (map car #{r*\ 4111}#) - (#{combine\ 4011}# - (map cdr #{r*\ 4111}#) - #{r\ 4112}#))))) - (#{match*\ 4013}# - (lambda (#{e\ 4115}# - #{p\ 4116}# - #{w\ 4117}# - #{r\ 4118}# - #{mod\ 4119}#) - (if (null? #{p\ 4116}#) - (if (null? #{e\ 4115}#) #{r\ 4118}# #f) - (if (pair? #{p\ 4116}#) - (if (pair? #{e\ 4115}#) - (#{match\ 4015}# - (car #{e\ 4115}#) - (car #{p\ 4116}#) - #{w\ 4117}# - (#{match\ 4015}# - (cdr #{e\ 4115}#) - (cdr #{p\ 4116}#) - #{w\ 4117}# - #{r\ 4118}# - #{mod\ 4119}#) - #{mod\ 4119}#) + (eqv? #{atom-key\ 4100}# 'atom)) + #{r\ 4084}# + (if (eqv? #{atom-key\ 4100}# 'vector) + (#{match-empty\ 4003}# + (vector-ref #{p\ 4083}# 1) + #{r\ 4084}#)))))))))))))) + (#{combine\ 4005}# + (lambda (#{r*\ 4105}# #{r\ 4106}#) + (if (null? (car #{r*\ 4105}#)) + #{r\ 4106}# + (cons (map car #{r*\ 4105}#) + (#{combine\ 4005}# + (map cdr #{r*\ 4105}#) + #{r\ 4106}#))))) + (#{match*\ 4007}# + (lambda (#{e\ 4109}# + #{p\ 4110}# + #{w\ 4111}# + #{r\ 4112}# + #{mod\ 4113}#) + (if (null? #{p\ 4110}#) + (if (null? #{e\ 4109}#) #{r\ 4112}# #f) + (if (pair? #{p\ 4110}#) + (if (pair? #{e\ 4109}#) + (#{match\ 4009}# + (car #{e\ 4109}#) + (car #{p\ 4110}#) + #{w\ 4111}# + (#{match\ 4009}# + (cdr #{e\ 4109}#) + (cdr #{p\ 4110}#) + #{w\ 4111}# + #{r\ 4112}# + #{mod\ 4113}#) + #{mod\ 4113}#) #f) - (if (eq? #{p\ 4116}# 'each-any) + (if (eq? #{p\ 4110}# 'each-any) (begin - (let ((#{l\ 4136}# - (#{match-each-any\ 4007}# - #{e\ 4115}# - #{w\ 4117}# - #{mod\ 4119}#))) - (if #{l\ 4136}# - (cons #{l\ 4136}# #{r\ 4118}#) + (let ((#{l\ 4130}# + (#{match-each-any\ 4001}# + #{e\ 4109}# + #{w\ 4111}# + #{mod\ 4113}#))) + (if #{l\ 4130}# + (cons #{l\ 4130}# #{r\ 4112}#) #f))) (begin - (let ((#{atom-key\ 4142}# - (vector-ref #{p\ 4116}# 0))) - (if (eqv? #{atom-key\ 4142}# 'each) - (if (null? #{e\ 4115}#) - (#{match-empty\ 4009}# - (vector-ref #{p\ 4116}# 1) - #{r\ 4118}#) + (let ((#{atom-key\ 4136}# + (vector-ref #{p\ 4110}# 0))) + (if (eqv? #{atom-key\ 4136}# 'each) + (if (null? #{e\ 4109}#) + (#{match-empty\ 4003}# + (vector-ref #{p\ 4110}# 1) + #{r\ 4112}#) (begin - (let ((#{l\ 4145}# - (#{match-each\ 4003}# - #{e\ 4115}# - (vector-ref #{p\ 4116}# 1) - #{w\ 4117}# - #{mod\ 4119}#))) - (if #{l\ 4145}# + (let ((#{l\ 4139}# + (#{match-each\ 3997}# + #{e\ 4109}# + (vector-ref #{p\ 4110}# 1) + #{w\ 4111}# + #{mod\ 4113}#))) + (if #{l\ 4139}# (letrec* - ((#{collect\ 4150}# - (lambda (#{l\ 4151}#) - (if (null? (car #{l\ 4151}#)) - #{r\ 4118}# - (cons (map car #{l\ 4151}#) - (#{collect\ 4150}# + ((#{collect\ 4144}# + (lambda (#{l\ 4145}#) + (if (null? (car #{l\ 4145}#)) + #{r\ 4112}# + (cons (map car #{l\ 4145}#) + (#{collect\ 4144}# (map cdr - #{l\ 4151}#))))))) + #{l\ 4145}#))))))) (begin - (#{collect\ 4150}# #{l\ 4145}#))) + (#{collect\ 4144}# #{l\ 4139}#))) #f)))) - (if (eqv? #{atom-key\ 4142}# 'each+) + (if (eqv? #{atom-key\ 4136}# 'each+) (call-with-values (lambda () - (#{match-each+\ 4005}# - #{e\ 4115}# - (vector-ref #{p\ 4116}# 1) - (vector-ref #{p\ 4116}# 2) - (vector-ref #{p\ 4116}# 3) - #{w\ 4117}# - #{r\ 4118}# - #{mod\ 4119}#)) - (lambda (#{xr*\ 4153}# - #{y-pat\ 4154}# - #{r\ 4155}#) - (if #{r\ 4155}# - (if (null? #{y-pat\ 4154}#) - (if (null? #{xr*\ 4153}#) - (#{match-empty\ 4009}# - (vector-ref #{p\ 4116}# 1) - #{r\ 4155}#) - (#{combine\ 4011}# - #{xr*\ 4153}# - #{r\ 4155}#)) + (#{match-each+\ 3999}# + #{e\ 4109}# + (vector-ref #{p\ 4110}# 1) + (vector-ref #{p\ 4110}# 2) + (vector-ref #{p\ 4110}# 3) + #{w\ 4111}# + #{r\ 4112}# + #{mod\ 4113}#)) + (lambda (#{xr*\ 4147}# + #{y-pat\ 4148}# + #{r\ 4149}#) + (if #{r\ 4149}# + (if (null? #{y-pat\ 4148}#) + (if (null? #{xr*\ 4147}#) + (#{match-empty\ 4003}# + (vector-ref #{p\ 4110}# 1) + #{r\ 4149}#) + (#{combine\ 4005}# + #{xr*\ 4147}# + #{r\ 4149}#)) #f) #f))) - (if (eqv? #{atom-key\ 4142}# 'free-id) - (if (#{id?\ 379}# #{e\ 4115}#) - (if (#{free-id=?\ 435}# - (#{wrap\ 445}# - #{e\ 4115}# - #{w\ 4117}# - #{mod\ 4119}#) - (vector-ref #{p\ 4116}# 1)) - #{r\ 4118}# + (if (eqv? #{atom-key\ 4136}# 'free-id) + (if (#{id?\ 380}# #{e\ 4109}#) + (if (#{free-id=?\ 436}# + (#{wrap\ 446}# + #{e\ 4109}# + #{w\ 4111}# + #{mod\ 4113}#) + (vector-ref #{p\ 4110}# 1)) + #{r\ 4112}# #f) #f) - (if (eqv? #{atom-key\ 4142}# 'atom) + (if (eqv? #{atom-key\ 4136}# 'atom) (if (equal? - (vector-ref #{p\ 4116}# 1) - (#{strip\ 487}# - #{e\ 4115}# - #{w\ 4117}#)) - #{r\ 4118}# + (vector-ref #{p\ 4110}# 1) + (#{strip\ 486}# + #{e\ 4109}# + #{w\ 4111}#)) + #{r\ 4112}# #f) - (if (eqv? #{atom-key\ 4142}# 'vector) - (if (vector? #{e\ 4115}#) - (#{match\ 4015}# - (vector->list #{e\ 4115}#) - (vector-ref #{p\ 4116}# 1) - #{w\ 4117}# - #{r\ 4118}# - #{mod\ 4119}#) + (if (eqv? #{atom-key\ 4136}# 'vector) + (if (vector? #{e\ 4109}#) + (#{match\ 4009}# + (vector->list #{e\ 4109}#) + (vector-ref #{p\ 4110}# 1) + #{w\ 4111}# + #{r\ 4112}# + #{mod\ 4113}#) #f))))))))))))) - (#{match\ 4015}# - (lambda (#{e\ 4172}# - #{p\ 4173}# - #{w\ 4174}# - #{r\ 4175}# - #{mod\ 4176}#) - (if (not #{r\ 4175}#) + (#{match\ 4009}# + (lambda (#{e\ 4166}# + #{p\ 4167}# + #{w\ 4168}# + #{r\ 4169}# + #{mod\ 4170}#) + (if (not #{r\ 4169}#) #f - (if (eq? #{p\ 4173}# '_) - #{r\ 4175}# - (if (eq? #{p\ 4173}# 'any) - (cons (#{wrap\ 445}# - #{e\ 4172}# - #{w\ 4174}# - #{mod\ 4176}#) - #{r\ 4175}#) - (if (#{syntax-object?\ 345}# #{e\ 4172}#) - (#{match*\ 4013}# - (#{syntax-object-expression\ 347}# #{e\ 4172}#) - #{p\ 4173}# - (#{join-wraps\ 427}# - #{w\ 4174}# - (#{syntax-object-wrap\ 349}# #{e\ 4172}#)) - #{r\ 4175}# - (#{syntax-object-module\ 351}# #{e\ 4172}#)) - (#{match*\ 4013}# - #{e\ 4172}# - #{p\ 4173}# - #{w\ 4174}# - #{r\ 4175}# - #{mod\ 4176}#)))))))) + (if (eq? #{p\ 4167}# '_) + #{r\ 4169}# + (if (eq? #{p\ 4167}# 'any) + (cons (#{wrap\ 446}# + #{e\ 4166}# + #{w\ 4168}# + #{mod\ 4170}#) + #{r\ 4169}#) + (if (#{syntax-object?\ 346}# #{e\ 4166}#) + (#{match*\ 4007}# + (#{syntax-object-expression\ 348}# #{e\ 4166}#) + #{p\ 4167}# + (#{join-wraps\ 428}# + #{w\ 4168}# + (#{syntax-object-wrap\ 350}# #{e\ 4166}#)) + #{r\ 4169}# + (#{syntax-object-module\ 352}# #{e\ 4166}#)) + (#{match*\ 4007}# + #{e\ 4166}# + #{p\ 4167}# + #{w\ 4168}# + #{r\ 4169}# + #{mod\ 4170}#)))))))) (begin (set! $sc-dispatch - (lambda (#{e\ 4191}# #{p\ 4192}#) - (if (eq? #{p\ 4192}# 'any) - (list #{e\ 4191}#) - (if (eq? #{p\ 4192}# '_) + (lambda (#{e\ 4185}# #{p\ 4186}#) + (if (eq? #{p\ 4186}# 'any) + (list #{e\ 4185}#) + (if (eq? #{p\ 4186}# '_) '() - (if (#{syntax-object?\ 345}# #{e\ 4191}#) - (#{match*\ 4013}# - (#{syntax-object-expression\ 347}# #{e\ 4191}#) - #{p\ 4192}# - (#{syntax-object-wrap\ 349}# #{e\ 4191}#) + (if (#{syntax-object?\ 346}# #{e\ 4185}#) + (#{match*\ 4007}# + (#{syntax-object-expression\ 348}# #{e\ 4185}#) + #{p\ 4186}# + (#{syntax-object-wrap\ 350}# #{e\ 4185}#) '() - (#{syntax-object-module\ 351}# #{e\ 4191}#)) - (#{match*\ 4013}# - #{e\ 4191}# - #{p\ 4192}# + (#{syntax-object-module\ 352}# #{e\ 4185}#)) + (#{match*\ 4007}# + #{e\ 4185}# + #{p\ 4186}# '(()) '() #f)))))))))))))) @@ -14491,81 +14505,81 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x\ 4203}#) - (let ((#{tmp\ 4205}# #{x\ 4203}#)) - (let ((#{tmp\ 4206}# + (lambda (#{x\ 4197}#) + (let ((#{tmp\ 4199}# #{x\ 4197}#)) + (let ((#{tmp\ 4200}# ($sc-dispatch - #{tmp\ 4205}# + #{tmp\ 4199}# '(_ () any . each-any)))) - (if #{tmp\ 4206}# + (if #{tmp\ 4200}# (@apply - (lambda (#{e1\ 4209}# #{e2\ 4210}#) + (lambda (#{e1\ 4203}# #{e2\ 4204}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4207" "i4208")) + #("i4201" "i4202")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4204"))) + #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) - (cons #{e1\ 4209}# #{e2\ 4210}#))) - #{tmp\ 4206}#) - (let ((#{tmp\ 4212}# + (cons #{e1\ 4203}# #{e2\ 4204}#))) + #{tmp\ 4200}#) + (let ((#{tmp\ 4206}# ($sc-dispatch - #{tmp\ 4205}# + #{tmp\ 4199}# '(_ ((any any)) any . each-any)))) - (if #{tmp\ 4212}# + (if #{tmp\ 4206}# (@apply - (lambda (#{out\ 4217}# - #{in\ 4218}# - #{e1\ 4219}# - #{e2\ 4220}#) + (lambda (#{out\ 4211}# + #{in\ 4212}# + #{e1\ 4213}# + #{e2\ 4214}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4213" "i4214" "i4215" "i4216")) + #("i4207" "i4208" "i4209" "i4210")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4204"))) + #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) - #{in\ 4218}# + #{in\ 4212}# '() - (list #{out\ 4217}# + (list #{out\ 4211}# (cons '#(syntax-object begin ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4213" "i4214" "i4215" "i4216")) + #("i4207" "i4208" "i4209" "i4210")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4204"))) + #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) - (cons #{e1\ 4219}# #{e2\ 4220}#))))) - #{tmp\ 4212}#) - (let ((#{tmp\ 4222}# + (cons #{e1\ 4213}# #{e2\ 4214}#))))) + #{tmp\ 4206}#) + (let ((#{tmp\ 4216}# ($sc-dispatch - #{tmp\ 4205}# + #{tmp\ 4199}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp\ 4222}# + (if #{tmp\ 4216}# (@apply - (lambda (#{out\ 4227}# - #{in\ 4228}# - #{e1\ 4229}# - #{e2\ 4230}#) + (lambda (#{out\ 4221}# + #{in\ 4222}# + #{e1\ 4223}# + #{e2\ 4224}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4223" "i4224" "i4225" "i4226")) + #("i4217" "i4218" "i4219" "i4220")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4204"))) + #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) (cons '#(syntax-object list @@ -14573,61 +14587,61 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4223" "i4224" "i4225" "i4226")) + #("i4217" "i4218" "i4219" "i4220")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4204"))) + #(ribcage #(x) #((top)) #("i4198"))) (hygiene guile)) - #{in\ 4228}#) + #{in\ 4222}#) '() - (list #{out\ 4227}# + (list #{out\ 4221}# (cons '#(syntax-object begin ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4223" - "i4224" - "i4225" - "i4226")) + #("i4217" + "i4218" + "i4219" + "i4220")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4204"))) + #("i4198"))) (hygiene guile)) - (cons #{e1\ 4229}# #{e2\ 4230}#))))) - #{tmp\ 4222}#) + (cons #{e1\ 4223}# #{e2\ 4224}#))))) + #{tmp\ 4216}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4205}#))))))))))) + #{tmp\ 4199}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x\ 4234}#) - (let ((#{tmp\ 4236}# #{x\ 4234}#)) - (let ((#{tmp\ 4237}# + (lambda (#{x\ 4228}#) + (let ((#{tmp\ 4230}# #{x\ 4228}#)) + (let ((#{tmp\ 4231}# ($sc-dispatch - #{tmp\ 4236}# + #{tmp\ 4230}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp\ 4237}# + (if #{tmp\ 4231}# (@apply - (lambda (#{k\ 4242}# - #{keyword\ 4243}# - #{pattern\ 4244}# - #{template\ 4245}#) + (lambda (#{k\ 4236}# + #{keyword\ 4237}# + #{pattern\ 4238}# + #{template\ 4239}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4238" "i4239" "i4240" "i4241")) + #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) '(#(syntax-object x @@ -14635,9 +14649,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4238" "i4239" "i4240" "i4241")) + #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) (vector '(#(syntax-object @@ -14646,9 +14660,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4238" "i4239" "i4240" "i4241")) + #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) . #(syntax-object @@ -14657,9 +14671,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4238" "i4239" "i4240" "i4241")) + #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14667,20 +14681,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4238" "i4239" "i4240" "i4241")) + #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) - #{pattern\ 4244}#)) + #{pattern\ 4238}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4238" "i4239" "i4240" "i4241")) + #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) (cons '#(syntax-object x @@ -14688,13 +14702,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4238" "i4239" "i4240" "i4241")) + #("i4232" "i4233" "i4234" "i4235")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) - (cons #{k\ 4242}# - (map (lambda (#{tmp\ 4249}# - #{tmp\ 4248}#) + (cons #{k\ 4236}# + (map (lambda (#{tmp\ 4243}# + #{tmp\ 4242}#) (list (cons '#(syntax-object dummy ((top) @@ -14707,10 +14721,10 @@ (top) (top) (top)) - #("i4238" - "i4239" - "i4240" - "i4241")) + #("i4232" + "i4233" + "i4234" + "i4235")) #(ribcage () () @@ -14718,9 +14732,9 @@ #(ribcage #(x) #((top)) - #("i4235"))) + #("i4229"))) (hygiene guile)) - #{tmp\ 4248}#) + #{tmp\ 4242}#) (list '#(syntax-object syntax ((top) @@ -14733,10 +14747,10 @@ (top) (top) (top)) - #("i4238" - "i4239" - "i4240" - "i4241")) + #("i4232" + "i4233" + "i4234" + "i4235")) #(ribcage () () @@ -14744,41 +14758,41 @@ #(ribcage #(x) #((top)) - #("i4235"))) + #("i4229"))) (hygiene guile)) - #{tmp\ 4249}#))) - #{template\ 4245}# - #{pattern\ 4244}#)))))) - #{tmp\ 4237}#) - (let ((#{tmp\ 4250}# + #{tmp\ 4243}#))) + #{template\ 4239}# + #{pattern\ 4238}#)))))) + #{tmp\ 4231}#) + (let ((#{tmp\ 4244}# ($sc-dispatch - #{tmp\ 4236}# + #{tmp\ 4230}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp\ 4250}# + (if (if #{tmp\ 4244}# (@apply - (lambda (#{k\ 4256}# - #{docstring\ 4257}# - #{keyword\ 4258}# - #{pattern\ 4259}# - #{template\ 4260}#) - (string? (syntax->datum #{docstring\ 4257}#))) - #{tmp\ 4250}#) + (lambda (#{k\ 4250}# + #{docstring\ 4251}# + #{keyword\ 4252}# + #{pattern\ 4253}# + #{template\ 4254}#) + (string? (syntax->datum #{docstring\ 4251}#))) + #{tmp\ 4244}#) #f) (@apply - (lambda (#{k\ 4266}# - #{docstring\ 4267}# - #{keyword\ 4268}# - #{pattern\ 4269}# - #{template\ 4270}#) + (lambda (#{k\ 4260}# + #{docstring\ 4261}# + #{keyword\ 4262}# + #{pattern\ 4263}# + #{template\ 4264}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4261" "i4262" "i4263" "i4264" "i4265")) + #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) '(#(syntax-object x @@ -14786,11 +14800,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4261" "i4262" "i4263" "i4264" "i4265")) + #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) - #{docstring\ 4267}# + #{docstring\ 4261}# (vector '(#(syntax-object macro-type @@ -14798,9 +14812,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4261" "i4262" "i4263" "i4264" "i4265")) + #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) . #(syntax-object @@ -14809,9 +14823,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4261" "i4262" "i4263" "i4264" "i4265")) + #("i4255" "i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14819,28 +14833,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4261" - "i4262" - "i4263" - "i4264" - "i4265")) + #("i4255" + "i4256" + "i4257" + "i4258" + "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) - #{pattern\ 4269}#)) + #{pattern\ 4263}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4261" - "i4262" - "i4263" - "i4264" - "i4265")) + #("i4255" + "i4256" + "i4257" + "i4258" + "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) (cons '#(syntax-object x @@ -14852,17 +14866,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i4261" - "i4262" - "i4263" - "i4264" - "i4265")) + #("i4255" + "i4256" + "i4257" + "i4258" + "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4235"))) + #(ribcage #(x) #((top)) #("i4229"))) (hygiene guile)) - (cons #{k\ 4266}# - (map (lambda (#{tmp\ 4274}# - #{tmp\ 4273}#) + (cons #{k\ 4260}# + (map (lambda (#{tmp\ 4268}# + #{tmp\ 4267}#) (list (cons '#(syntax-object dummy ((top) @@ -14877,11 +14891,11 @@ (top) (top) (top)) - #("i4261" - "i4262" - "i4263" - "i4264" - "i4265")) + #("i4255" + "i4256" + "i4257" + "i4258" + "i4259")) #(ribcage () () @@ -14889,10 +14903,10 @@ #(ribcage #(x) #((top)) - #("i4235"))) + #("i4229"))) (hygiene guile)) - #{tmp\ 4273}#) + #{tmp\ 4267}#) (list '#(syntax-object syntax ((top) @@ -14907,11 +14921,11 @@ (top) (top) (top)) - #("i4261" - "i4262" - "i4263" - "i4264" - "i4265")) + #("i4255" + "i4256" + "i4257" + "i4258" + "i4259")) #(ribcage () () @@ -14919,48 +14933,48 @@ #(ribcage #(x) #((top)) - #("i4235"))) + #("i4229"))) (hygiene guile)) - #{tmp\ 4274}#))) - #{template\ 4270}# - #{pattern\ 4269}#)))))) - #{tmp\ 4250}#) + #{tmp\ 4268}#))) + #{template\ 4264}# + #{pattern\ 4263}#)))))) + #{tmp\ 4244}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4236}#))))))))) + #{tmp\ 4230}#))))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x\ 4275}#) - (let ((#{tmp\ 4277}# #{x\ 4275}#)) - (let ((#{tmp\ 4278}# + (lambda (#{x\ 4269}#) + (let ((#{tmp\ 4271}# #{x\ 4269}#)) + (let ((#{tmp\ 4272}# ($sc-dispatch - #{tmp\ 4277}# + #{tmp\ 4271}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 4278}# + (if (if #{tmp\ 4272}# (@apply - (lambda (#{let*\ 4284}# - #{x\ 4285}# - #{v\ 4286}# - #{e1\ 4287}# - #{e2\ 4288}#) - (and-map identifier? #{x\ 4285}#)) - #{tmp\ 4278}#) + (lambda (#{let*\ 4278}# + #{x\ 4279}# + #{v\ 4280}# + #{e1\ 4281}# + #{e2\ 4282}#) + (and-map identifier? #{x\ 4279}#)) + #{tmp\ 4272}#) #f) (@apply - (lambda (#{let*\ 4295}# - #{x\ 4296}# - #{v\ 4297}# - #{e1\ 4298}# - #{e2\ 4299}#) + (lambda (#{let*\ 4289}# + #{x\ 4290}# + #{v\ 4291}# + #{e1\ 4292}# + #{e2\ 4293}#) (letrec* - ((#{f\ 4302}# - (lambda (#{bindings\ 4303}#) - (if (null? #{bindings\ 4303}#) + ((#{f\ 4296}# + (lambda (#{bindings\ 4297}#) + (if (null? #{bindings\ 4297}#) (cons '#(syntax-object let ((top) @@ -14968,123 +14982,123 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4300" "i4301")) + #("i4294" "i4295")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4290" - "i4291" - "i4292" - "i4293" - "i4294")) + #("i4284" + "i4285" + "i4286" + "i4287" + "i4288")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4276"))) + #(ribcage #(x) #((top)) #("i4270"))) (hygiene guile)) - (cons '() (cons #{e1\ 4298}# #{e2\ 4299}#))) - (let ((#{tmp\ 4308}# - (list (#{f\ 4302}# (cdr #{bindings\ 4303}#)) - (car #{bindings\ 4303}#)))) - (let ((#{tmp\ 4309}# - ($sc-dispatch #{tmp\ 4308}# '(any any)))) - (if #{tmp\ 4309}# + (cons '() (cons #{e1\ 4292}# #{e2\ 4293}#))) + (let ((#{tmp\ 4302}# + (list (#{f\ 4296}# (cdr #{bindings\ 4297}#)) + (car #{bindings\ 4297}#)))) + (let ((#{tmp\ 4303}# + ($sc-dispatch #{tmp\ 4302}# '(any any)))) + (if #{tmp\ 4303}# (@apply - (lambda (#{body\ 4312}# #{binding\ 4313}#) + (lambda (#{body\ 4306}# #{binding\ 4307}#) (list '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) - #("i4310" "i4311")) + #("i4304" "i4305")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i4300" "i4301")) + #("i4294" "i4295")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4290" - "i4291" - "i4292" - "i4293" - "i4294")) + #("i4284" + "i4285" + "i4286" + "i4287" + "i4288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4276"))) + #("i4270"))) (hygiene guile)) - (list #{binding\ 4313}#) - #{body\ 4312}#)) - #{tmp\ 4309}#) + (list #{binding\ 4307}#) + #{body\ 4306}#)) + #{tmp\ 4303}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4308}#)))))))) + #{tmp\ 4302}#)))))))) (begin - (#{f\ 4302}# (map list #{x\ 4296}# #{v\ 4297}#))))) - #{tmp\ 4278}#) + (#{f\ 4296}# (map list #{x\ 4290}# #{v\ 4291}#))))) + #{tmp\ 4272}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4277}#))))))) + #{tmp\ 4271}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x\ 4314}#) - (let ((#{tmp\ 4316}# #{orig-x\ 4314}#)) - (let ((#{tmp\ 4317}# + (lambda (#{orig-x\ 4308}#) + (let ((#{tmp\ 4310}# #{orig-x\ 4308}#)) + (let ((#{tmp\ 4311}# ($sc-dispatch - #{tmp\ 4316}# + #{tmp\ 4310}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp\ 4317}# + (if #{tmp\ 4311}# (@apply - (lambda (#{var\ 4324}# - #{init\ 4325}# - #{step\ 4326}# - #{e0\ 4327}# - #{e1\ 4328}# - #{c\ 4329}#) - (let ((#{tmp\ 4331}# - (map (lambda (#{v\ 4352}# #{s\ 4353}#) - (let ((#{tmp\ 4356}# #{s\ 4353}#)) - (let ((#{tmp\ 4357}# - ($sc-dispatch #{tmp\ 4356}# '()))) - (if #{tmp\ 4357}# + (lambda (#{var\ 4318}# + #{init\ 4319}# + #{step\ 4320}# + #{e0\ 4321}# + #{e1\ 4322}# + #{c\ 4323}#) + (let ((#{tmp\ 4325}# + (map (lambda (#{v\ 4346}# #{s\ 4347}#) + (let ((#{tmp\ 4350}# #{s\ 4347}#)) + (let ((#{tmp\ 4351}# + ($sc-dispatch #{tmp\ 4350}# '()))) + (if #{tmp\ 4351}# (@apply - (lambda () #{v\ 4352}#) - #{tmp\ 4357}#) - (let ((#{tmp\ 4358}# + (lambda () #{v\ 4346}#) + #{tmp\ 4351}#) + (let ((#{tmp\ 4352}# ($sc-dispatch - #{tmp\ 4356}# + #{tmp\ 4350}# '(any)))) - (if #{tmp\ 4358}# + (if #{tmp\ 4352}# (@apply - (lambda (#{e\ 4360}#) #{e\ 4360}#) - #{tmp\ 4358}#) - (let ((#{_\ 4362}# #{tmp\ 4356}#)) + (lambda (#{e\ 4354}#) #{e\ 4354}#) + #{tmp\ 4352}#) + (let ((#{_\ 4356}# #{tmp\ 4350}#)) (syntax-violation 'do "bad step expression" - #{orig-x\ 4314}# - #{s\ 4353}#)))))))) - #{var\ 4324}# - #{step\ 4326}#))) - (let ((#{tmp\ 4332}# - ($sc-dispatch #{tmp\ 4331}# 'each-any))) - (if #{tmp\ 4332}# + #{orig-x\ 4308}# + #{s\ 4347}#)))))))) + #{var\ 4318}# + #{step\ 4320}#))) + (let ((#{tmp\ 4326}# + ($sc-dispatch #{tmp\ 4325}# 'each-any))) + (if #{tmp\ 4326}# (@apply - (lambda (#{step\ 4334}#) - (let ((#{tmp\ 4335}# #{e1\ 4328}#)) - (let ((#{tmp\ 4336}# - ($sc-dispatch #{tmp\ 4335}# '()))) - (if #{tmp\ 4336}# + (lambda (#{step\ 4328}#) + (let ((#{tmp\ 4329}# #{e1\ 4322}#)) + (let ((#{tmp\ 4330}# + ($sc-dispatch #{tmp\ 4329}# '()))) + (if #{tmp\ 4330}# (@apply (lambda () (list '#(syntax-object @@ -15093,7 +15107,7 @@ #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15102,17 +15116,17 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) '#(syntax-object doloop @@ -15120,7 +15134,7 @@ #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15129,28 +15143,28 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) (map list - #{var\ 4324}# - #{init\ 4325}#) + #{var\ 4318}# + #{init\ 4319}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15159,17 +15173,17 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) (list '#(syntax-object not @@ -15177,7 +15191,7 @@ #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init @@ -15191,26 +15205,26 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) - #{e0\ 4327}#) + #{e0\ 4321}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init @@ -15224,27 +15238,27 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) (append - #{c\ 4329}# + #{c\ 4323}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init @@ -15258,12 +15272,12 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () @@ -15271,29 +15285,29 @@ #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) - #{step\ 4334}#))))))) - #{tmp\ 4336}#) - (let ((#{tmp\ 4341}# + #{step\ 4328}#))))))) + #{tmp\ 4330}#) + (let ((#{tmp\ 4335}# ($sc-dispatch - #{tmp\ 4335}# + #{tmp\ 4329}# '(any . each-any)))) - (if #{tmp\ 4341}# + (if #{tmp\ 4335}# (@apply - (lambda (#{e1\ 4344}# #{e2\ 4345}#) + (lambda (#{e1\ 4338}# #{e2\ 4339}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4342" "i4343")) + #("i4336" "i4337")) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15302,17 +15316,17 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) '#(syntax-object doloop @@ -15320,11 +15334,11 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i4342" "i4343")) + #("i4336" "i4337")) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15333,32 +15347,32 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) (map list - #{var\ 4324}# - #{init\ 4325}#) + #{var\ 4318}# + #{init\ 4319}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4342" "i4343")) + #("i4336" "i4337")) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init @@ -15372,31 +15386,31 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) - #{e0\ 4327}# + #{e0\ 4321}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4342" - "i4343")) + #("i4336" + "i4337")) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init @@ -15410,12 +15424,12 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () @@ -15423,22 +15437,22 @@ #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) - (cons #{e1\ 4344}# - #{e2\ 4345}#)) + (cons #{e1\ 4338}# + #{e2\ 4339}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4342" - "i4343")) + #("i4336" + "i4337")) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init @@ -15452,12 +15466,12 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () @@ -15465,10 +15479,10 @@ #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) (append - #{c\ 4329}# + #{c\ 4323}# (list (cons '#(syntax-object doloop ((top) @@ -15477,12 +15491,12 @@ e2) #((top) (top)) - #("i4342" - "i4343")) + #("i4336" + "i4337")) #(ribcage #(step) #((top)) - #("i4333")) + #("i4327")) #(ribcage #(var init @@ -15496,12 +15510,12 @@ (top) (top) (top)) - #("i4318" - "i4319" - "i4320" - "i4321" - "i4322" - "i4323")) + #("i4312" + "i4313" + "i4314" + "i4315" + "i4316" + "i4317")) #(ribcage () () @@ -15509,37 +15523,37 @@ #(ribcage #(orig-x) #((top)) - #("i4315"))) + #("i4309"))) (hygiene guile)) - #{step\ 4334}#))))))) - #{tmp\ 4341}#) + #{step\ 4328}#))))))) + #{tmp\ 4335}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4335}#))))))) - #{tmp\ 4332}#) + #{tmp\ 4329}#))))))) + #{tmp\ 4326}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4331}#))))) - #{tmp\ 4317}#) + #{tmp\ 4325}#))))) + #{tmp\ 4311}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4316}#))))))) + #{tmp\ 4310}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi\ 4366}# - (lambda (#{p\ 4379}# #{lev\ 4380}#) - (let ((#{tmp\ 4383}# #{p\ 4379}#)) - (let ((#{tmp\ 4384}# + ((#{quasi\ 4360}# + (lambda (#{p\ 4373}# #{lev\ 4374}#) + (let ((#{tmp\ 4377}# #{p\ 4373}#)) + (let ((#{tmp\ 4378}# ($sc-dispatch - #{tmp\ 4383}# + #{tmp\ 4377}# '(#(free-id #(syntax-object unquote @@ -15548,7 +15562,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15557,28 +15571,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) any)))) - (if #{tmp\ 4384}# + (if #{tmp\ 4378}# (@apply - (lambda (#{p\ 4386}#) - (if (= #{lev\ 4380}# 0) + (lambda (#{p\ 4380}#) + (if (= #{lev\ 4374}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i4385")) + #(ribcage #(p) #((top)) #("i4379")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15587,25 +15601,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{p\ 4386}#) - (#{quasicons\ 4370}# + #{p\ 4380}#) + (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4385")) + #(ribcage #(p) #((top)) #("i4379")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15614,23 +15628,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4385")) + #(ribcage #(p) #((top)) #("i4379")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15639,21 +15653,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) - (#{quasi\ 4366}# - (list #{p\ 4386}#) - (1- #{lev\ 4380}#))))) - #{tmp\ 4384}#) - (let ((#{tmp\ 4387}# + (#{quasi\ 4360}# + (list #{p\ 4380}#) + (1- #{lev\ 4374}#))))) + #{tmp\ 4378}#) + (let ((#{tmp\ 4381}# ($sc-dispatch - #{tmp\ 4383}# + #{tmp\ 4377}# '(#(free-id #(syntax-object quasiquote @@ -15662,7 +15676,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15671,28 +15685,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) any)))) - (if #{tmp\ 4387}# + (if #{tmp\ 4381}# (@apply - (lambda (#{p\ 4389}#) - (#{quasicons\ 4370}# + (lambda (#{p\ 4383}#) + (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4388")) + #(ribcage #(p) #((top)) #("i4382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15701,23 +15715,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i4388")) + #(ribcage #(p) #((top)) #("i4382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15726,27 +15740,27 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) - (#{quasi\ 4366}# - (list #{p\ 4389}#) - (1+ #{lev\ 4380}#)))) - #{tmp\ 4387}#) - (let ((#{tmp\ 4390}# - ($sc-dispatch #{tmp\ 4383}# '(any . any)))) - (if #{tmp\ 4390}# + (#{quasi\ 4360}# + (list #{p\ 4383}#) + (1+ #{lev\ 4374}#)))) + #{tmp\ 4381}#) + (let ((#{tmp\ 4384}# + ($sc-dispatch #{tmp\ 4377}# '(any . any)))) + (if #{tmp\ 4384}# (@apply - (lambda (#{p\ 4393}# #{q\ 4394}#) - (let ((#{tmp\ 4395}# #{p\ 4393}#)) - (let ((#{tmp\ 4396}# + (lambda (#{p\ 4387}# #{q\ 4388}#) + (let ((#{tmp\ 4389}# #{p\ 4387}#)) + (let ((#{tmp\ 4390}# ($sc-dispatch - #{tmp\ 4395}# + #{tmp\ 4389}# '(#(free-id #(syntax-object unquote @@ -15754,12 +15768,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4391" "i4392")) + #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15774,40 +15788,40 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) . each-any)))) - (if #{tmp\ 4396}# + (if #{tmp\ 4390}# (@apply - (lambda (#{p\ 4398}#) - (if (= #{lev\ 4380}# 0) - (#{quasilist*\ 4374}# - (map (lambda (#{tmp\ 4399}#) + (lambda (#{p\ 4392}#) + (if (= #{lev\ 4374}# 0) + (#{quasilist*\ 4368}# + (map (lambda (#{tmp\ 4393}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4397")) + #("i4391")) #(ribcage #(p q) #((top) (top)) - #("i4391" - "i4392")) + #("i4385" + "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" - "i4382")) + #("i4375" + "i4376")) #(ribcage (emit quasivector quasilist* @@ -15822,37 +15836,37 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{tmp\ 4399}#)) - #{p\ 4398}#) - (#{quasi\ 4366}# - #{q\ 4394}# - #{lev\ 4380}#)) - (#{quasicons\ 4370}# - (#{quasicons\ 4370}# + #{tmp\ 4393}#)) + #{p\ 4392}#) + (#{quasi\ 4360}# + #{q\ 4388}# + #{lev\ 4374}#)) + (#{quasicons\ 4364}# + (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4397")) + #("i4391")) #(ribcage #(p q) #((top) (top)) - #("i4391" "i4392")) + #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15867,13 +15881,13 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) #(syntax-object unquote @@ -15881,16 +15895,16 @@ #(ribcage #(p) #((top)) - #("i4397")) + #("i4391")) #(ribcage #(p q) #((top) (top)) - #("i4391" "i4392")) + #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15905,24 +15919,24 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) - (#{quasi\ 4366}# - #{p\ 4398}# - (1- #{lev\ 4380}#))) - (#{quasi\ 4366}# - #{q\ 4394}# - #{lev\ 4380}#)))) - #{tmp\ 4396}#) - (let ((#{tmp\ 4401}# + (#{quasi\ 4360}# + #{p\ 4392}# + (1- #{lev\ 4374}#))) + (#{quasi\ 4360}# + #{q\ 4388}# + #{lev\ 4374}#)))) + #{tmp\ 4390}#) + (let ((#{tmp\ 4395}# ($sc-dispatch - #{tmp\ 4395}# + #{tmp\ 4389}# '(#(free-id #(syntax-object unquote-splicing @@ -15930,12 +15944,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4391" "i4392")) + #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -15950,35 +15964,35 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) . each-any)))) - (if #{tmp\ 4401}# + (if #{tmp\ 4395}# (@apply - (lambda (#{p\ 4403}#) - (if (= #{lev\ 4380}# 0) - (#{quasiappend\ 4372}# - (map (lambda (#{tmp\ 4404}#) + (lambda (#{p\ 4397}#) + (if (= #{lev\ 4374}# 0) + (#{quasiappend\ 4366}# + (map (lambda (#{tmp\ 4398}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4402")) + #("i4396")) #(ribcage #(p q) #((top) (top)) - #("i4391" - "i4392")) + #("i4385" + "i4386")) #(ribcage () () @@ -15987,8 +16001,8 @@ #(p lev) #((top) (top)) - #("i4381" - "i4382")) + #("i4375" + "i4376")) #(ribcage (emit quasivector quasilist* @@ -16003,37 +16017,37 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{tmp\ 4404}#)) - #{p\ 4403}#) - (#{quasi\ 4366}# - #{q\ 4394}# - #{lev\ 4380}#)) - (#{quasicons\ 4370}# - (#{quasicons\ 4370}# + #{tmp\ 4398}#)) + #{p\ 4397}#) + (#{quasi\ 4360}# + #{q\ 4388}# + #{lev\ 4374}#)) + (#{quasicons\ 4364}# + (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4402")) + #("i4396")) #(ribcage #(p q) #((top) (top)) - #("i4391" "i4392")) + #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -16048,13 +16062,13 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -16062,16 +16076,16 @@ #(ribcage #(p) #((top)) - #("i4402")) + #("i4396")) #(ribcage #(p q) #((top) (top)) - #("i4391" "i4392")) + #("i4385" "i4386")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -16086,52 +16100,52 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) - (#{quasi\ 4366}# - #{p\ 4403}# - (1- #{lev\ 4380}#))) - (#{quasi\ 4366}# - #{q\ 4394}# - #{lev\ 4380}#)))) - #{tmp\ 4401}#) - (let ((#{_\ 4407}# #{tmp\ 4395}#)) - (#{quasicons\ 4370}# - (#{quasi\ 4366}# - #{p\ 4393}# - #{lev\ 4380}#) - (#{quasi\ 4366}# - #{q\ 4394}# - #{lev\ 4380}#))))))))) - #{tmp\ 4390}#) - (let ((#{tmp\ 4408}# + (#{quasi\ 4360}# + #{p\ 4397}# + (1- #{lev\ 4374}#))) + (#{quasi\ 4360}# + #{q\ 4388}# + #{lev\ 4374}#)))) + #{tmp\ 4395}#) + (let ((#{_\ 4401}# #{tmp\ 4389}#)) + (#{quasicons\ 4364}# + (#{quasi\ 4360}# + #{p\ 4387}# + #{lev\ 4374}#) + (#{quasi\ 4360}# + #{q\ 4388}# + #{lev\ 4374}#))))))))) + #{tmp\ 4384}#) + (let ((#{tmp\ 4402}# ($sc-dispatch - #{tmp\ 4383}# + #{tmp\ 4377}# '#(vector each-any)))) - (if #{tmp\ 4408}# + (if #{tmp\ 4402}# (@apply - (lambda (#{x\ 4410}#) - (#{quasivector\ 4376}# - (#{vquasi\ 4368}# - #{x\ 4410}# - #{lev\ 4380}#))) - #{tmp\ 4408}#) - (let ((#{p\ 4413}# #{tmp\ 4383}#)) + (lambda (#{x\ 4404}#) + (#{quasivector\ 4370}# + (#{vquasi\ 4362}# + #{x\ 4404}# + #{lev\ 4374}#))) + #{tmp\ 4402}#) + (let ((#{p\ 4407}# #{tmp\ 4377}#)) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4412")) + #(ribcage #(p) #((top)) #("i4406")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4381" "i4382")) + #("i4375" "i4376")) #(ribcage (emit quasivector quasilist* @@ -16146,27 +16160,27 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{p\ 4413}#))))))))))))) - (#{vquasi\ 4368}# - (lambda (#{p\ 4414}# #{lev\ 4415}#) - (let ((#{tmp\ 4418}# #{p\ 4414}#)) - (let ((#{tmp\ 4419}# - ($sc-dispatch #{tmp\ 4418}# '(any . any)))) - (if #{tmp\ 4419}# + #{p\ 4407}#))))))))))))) + (#{vquasi\ 4362}# + (lambda (#{p\ 4408}# #{lev\ 4409}#) + (let ((#{tmp\ 4412}# #{p\ 4408}#)) + (let ((#{tmp\ 4413}# + ($sc-dispatch #{tmp\ 4412}# '(any . any)))) + (if #{tmp\ 4413}# (@apply - (lambda (#{p\ 4422}# #{q\ 4423}#) - (let ((#{tmp\ 4424}# #{p\ 4422}#)) - (let ((#{tmp\ 4425}# + (lambda (#{p\ 4416}# #{q\ 4417}#) + (let ((#{tmp\ 4418}# #{p\ 4416}#)) + (let ((#{tmp\ 4419}# ($sc-dispatch - #{tmp\ 4424}# + #{tmp\ 4418}# '(#(free-id #(syntax-object unquote @@ -16174,12 +16188,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16194,38 +16208,38 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) . each-any)))) - (if #{tmp\ 4425}# + (if #{tmp\ 4419}# (@apply - (lambda (#{p\ 4427}#) - (if (= #{lev\ 4415}# 0) - (#{quasilist*\ 4374}# - (map (lambda (#{tmp\ 4428}#) + (lambda (#{p\ 4421}#) + (if (= #{lev\ 4409}# 0) + (#{quasilist*\ 4368}# + (map (lambda (#{tmp\ 4422}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4426")) + #("i4420")) #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16240,34 +16254,34 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{tmp\ 4428}#)) - #{p\ 4427}#) - (#{vquasi\ 4368}# - #{q\ 4423}# - #{lev\ 4415}#)) - (#{quasicons\ 4370}# - (#{quasicons\ 4370}# + #{tmp\ 4422}#)) + #{p\ 4421}#) + (#{vquasi\ 4362}# + #{q\ 4417}# + #{lev\ 4409}#)) + (#{quasicons\ 4364}# + (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4426")) + #(ribcage #(p) #((top)) #("i4420")) #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16282,27 +16296,27 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4426")) + #(ribcage #(p) #((top)) #("i4420")) #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16317,24 +16331,24 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) - (#{quasi\ 4366}# - #{p\ 4427}# - (1- #{lev\ 4415}#))) - (#{vquasi\ 4368}# - #{q\ 4423}# - #{lev\ 4415}#)))) - #{tmp\ 4425}#) - (let ((#{tmp\ 4430}# + (#{quasi\ 4360}# + #{p\ 4421}# + (1- #{lev\ 4409}#))) + (#{vquasi\ 4362}# + #{q\ 4417}# + #{lev\ 4409}#)))) + #{tmp\ 4419}#) + (let ((#{tmp\ 4424}# ($sc-dispatch - #{tmp\ 4424}# + #{tmp\ 4418}# '(#(free-id #(syntax-object unquote-splicing @@ -16342,12 +16356,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16362,38 +16376,38 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) . each-any)))) - (if #{tmp\ 4430}# + (if #{tmp\ 4424}# (@apply - (lambda (#{p\ 4432}#) - (if (= #{lev\ 4415}# 0) - (#{quasiappend\ 4372}# - (map (lambda (#{tmp\ 4433}#) + (lambda (#{p\ 4426}#) + (if (= #{lev\ 4409}# 0) + (#{quasiappend\ 4366}# + (map (lambda (#{tmp\ 4427}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4431")) + #("i4425")) #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16408,37 +16422,37 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{tmp\ 4433}#)) - #{p\ 4432}#) - (#{vquasi\ 4368}# - #{q\ 4423}# - #{lev\ 4415}#)) - (#{quasicons\ 4370}# - (#{quasicons\ 4370}# + #{tmp\ 4427}#)) + #{p\ 4426}#) + (#{vquasi\ 4362}# + #{q\ 4417}# + #{lev\ 4409}#)) + (#{quasicons\ 4364}# + (#{quasicons\ 4364}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4431")) + #("i4425")) #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16453,13 +16467,13 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -16467,16 +16481,16 @@ #(ribcage #(p) #((top)) - #("i4431")) + #("i4425")) #(ribcage #(p q) #((top) (top)) - #("i4420" "i4421")) + #("i4414" "i4415")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16491,30 +16505,30 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile))) - (#{quasi\ 4366}# - #{p\ 4432}# - (1- #{lev\ 4415}#))) - (#{vquasi\ 4368}# - #{q\ 4423}# - #{lev\ 4415}#)))) - #{tmp\ 4430}#) - (let ((#{_\ 4436}# #{tmp\ 4424}#)) - (#{quasicons\ 4370}# - (#{quasi\ 4366}# #{p\ 4422}# #{lev\ 4415}#) - (#{vquasi\ 4368}# - #{q\ 4423}# - #{lev\ 4415}#))))))))) - #{tmp\ 4419}#) - (let ((#{tmp\ 4437}# ($sc-dispatch #{tmp\ 4418}# '()))) - (if #{tmp\ 4437}# + (#{quasi\ 4360}# + #{p\ 4426}# + (1- #{lev\ 4409}#))) + (#{vquasi\ 4362}# + #{q\ 4417}# + #{lev\ 4409}#)))) + #{tmp\ 4424}#) + (let ((#{_\ 4430}# #{tmp\ 4418}#)) + (#{quasicons\ 4364}# + (#{quasi\ 4360}# #{p\ 4416}# #{lev\ 4409}#) + (#{vquasi\ 4362}# + #{q\ 4417}# + #{lev\ 4409}#))))))))) + #{tmp\ 4413}#) + (let ((#{tmp\ 4431}# ($sc-dispatch #{tmp\ 4412}# '()))) + (if #{tmp\ 4431}# (@apply (lambda () '(#(syntax-object @@ -16524,7 +16538,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4416" "i4417")) + #("i4410" "i4411")) #(ribcage (emit quasivector quasilist* @@ -16533,65 +16547,65 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) ())) - #{tmp\ 4437}#) + #{tmp\ 4431}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4418}#)))))))) - (#{quasicons\ 4370}# - (lambda (#{x\ 4438}# #{y\ 4439}#) - (let ((#{tmp\ 4443}# (list #{x\ 4438}# #{y\ 4439}#))) - (let ((#{tmp\ 4444}# - ($sc-dispatch #{tmp\ 4443}# '(any any)))) - (if #{tmp\ 4444}# + #{tmp\ 4412}#)))))))) + (#{quasicons\ 4364}# + (lambda (#{x\ 4432}# #{y\ 4433}#) + (let ((#{tmp\ 4437}# (list #{x\ 4432}# #{y\ 4433}#))) + (let ((#{tmp\ 4438}# + ($sc-dispatch #{tmp\ 4437}# '(any any)))) + (if #{tmp\ 4438}# (@apply - (lambda (#{x\ 4447}# #{y\ 4448}#) - (let ((#{tmp\ 4449}# #{y\ 4448}#)) - (let ((#{tmp\ 4450}# + (lambda (#{x\ 4441}# #{y\ 4442}#) + (let ((#{tmp\ 4443}# #{y\ 4442}#)) + (let ((#{tmp\ 4444}# ($sc-dispatch - #{tmp\ 4449}# + #{tmp\ 4443}# '(#(atom "quote") any)))) - (if #{tmp\ 4450}# + (if #{tmp\ 4444}# (@apply - (lambda (#{dy\ 4452}#) - (let ((#{tmp\ 4453}# #{x\ 4447}#)) - (let ((#{tmp\ 4454}# + (lambda (#{dy\ 4446}#) + (let ((#{tmp\ 4447}# #{x\ 4441}#)) + (let ((#{tmp\ 4448}# ($sc-dispatch - #{tmp\ 4453}# + #{tmp\ 4447}# '(#(atom "quote") any)))) - (if #{tmp\ 4454}# + (if #{tmp\ 4448}# (@apply - (lambda (#{dx\ 4456}#) + (lambda (#{dx\ 4450}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i4455")) + #("i4449")) #(ribcage #(dy) #((top)) - #("i4451")) + #("i4445")) #(ribcage #(x y) #((top) (top)) - #("i4445" "i4446")) + #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4440" "i4441")) + #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* @@ -16606,40 +16620,40 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - (cons #{dx\ 4456}# - #{dy\ 4452}#))) - #{tmp\ 4454}#) - (let ((#{_\ 4458}# #{tmp\ 4453}#)) - (if (null? #{dy\ 4452}#) + (cons #{dx\ 4450}# + #{dy\ 4446}#))) + #{tmp\ 4448}#) + (let ((#{_\ 4452}# #{tmp\ 4447}#)) + (if (null? #{dy\ 4446}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i4457")) + #("i4451")) #(ribcage #(dy) #((top)) - #("i4451")) + #("i4445")) #(ribcage #(x y) #((top) (top)) - #("i4445" "i4446")) + #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4440" "i4441")) + #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* @@ -16654,36 +16668,36 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{x\ 4447}#) + #{x\ 4441}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4457")) + #("i4451")) #(ribcage #(dy) #((top)) - #("i4451")) + #("i4445")) #(ribcage #(x y) #((top) (top)) - #("i4445" "i4446")) + #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4440" "i4441")) + #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* @@ -16698,41 +16712,41 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{x\ 4447}# - #{y\ 4448}#))))))) - #{tmp\ 4450}#) - (let ((#{tmp\ 4459}# + #{x\ 4441}# + #{y\ 4442}#))))))) + #{tmp\ 4444}#) + (let ((#{tmp\ 4453}# ($sc-dispatch - #{tmp\ 4449}# + #{tmp\ 4443}# '(#(atom "list") . any)))) - (if #{tmp\ 4459}# + (if #{tmp\ 4453}# (@apply - (lambda (#{stuff\ 4461}#) + (lambda (#{stuff\ 4455}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i4460")) + #("i4454")) #(ribcage #(x y) #((top) (top)) - #("i4445" "i4446")) + #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4440" "i4441")) + #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* @@ -16747,40 +16761,40 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - (cons #{x\ 4447}# #{stuff\ 4461}#))) - #{tmp\ 4459}#) - (let ((#{tmp\ 4462}# + (cons #{x\ 4441}# #{stuff\ 4455}#))) + #{tmp\ 4453}#) + (let ((#{tmp\ 4456}# ($sc-dispatch - #{tmp\ 4449}# + #{tmp\ 4443}# '(#(atom "list*") . any)))) - (if #{tmp\ 4462}# + (if #{tmp\ 4456}# (@apply - (lambda (#{stuff\ 4464}#) + (lambda (#{stuff\ 4458}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i4463")) + #("i4457")) #(ribcage #(x y) #((top) (top)) - #("i4445" "i4446")) + #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4440" "i4441")) + #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* @@ -16795,35 +16809,35 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - (cons #{x\ 4447}# - #{stuff\ 4464}#))) - #{tmp\ 4462}#) - (let ((#{_\ 4466}# #{tmp\ 4449}#)) + (cons #{x\ 4441}# + #{stuff\ 4458}#))) + #{tmp\ 4456}#) + (let ((#{_\ 4460}# #{tmp\ 4443}#)) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4465")) + #("i4459")) #(ribcage #(x y) #((top) (top)) - #("i4445" "i4446")) + #("i4439" "i4440")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4440" "i4441")) + #("i4434" "i4435")) #(ribcage (emit quasivector quasilist* @@ -16838,32 +16852,32 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{x\ 4447}# - #{y\ 4448}#)))))))))) - #{tmp\ 4444}#) + #{x\ 4441}# + #{y\ 4442}#)))))))))) + #{tmp\ 4438}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4443}#)))))) - (#{quasiappend\ 4372}# - (lambda (#{x\ 4467}# #{y\ 4468}#) - (let ((#{tmp\ 4471}# #{y\ 4468}#)) - (let ((#{tmp\ 4472}# + #{tmp\ 4437}#)))))) + (#{quasiappend\ 4366}# + (lambda (#{x\ 4461}# #{y\ 4462}#) + (let ((#{tmp\ 4465}# #{y\ 4462}#)) + (let ((#{tmp\ 4466}# ($sc-dispatch - #{tmp\ 4471}# + #{tmp\ 4465}# '(#(atom "quote") ())))) - (if #{tmp\ 4472}# + (if #{tmp\ 4466}# (@apply (lambda () - (if (null? #{x\ 4467}#) + (if (null? #{x\ 4461}#) '(#(syntax-object "quote" ((top) @@ -16871,7 +16885,7 @@ #(ribcage #(x y) #((top) (top)) - #("i4469" "i4470")) + #("i4463" "i4464")) #(ribcage (emit quasivector quasilist* @@ -16880,35 +16894,35 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) ()) - (if (null? (cdr #{x\ 4467}#)) - (car #{x\ 4467}#) - (let ((#{tmp\ 4479}# #{x\ 4467}#)) - (let ((#{tmp\ 4480}# - ($sc-dispatch #{tmp\ 4479}# 'each-any))) - (if #{tmp\ 4480}# + (if (null? (cdr #{x\ 4461}#)) + (car #{x\ 4461}#) + (let ((#{tmp\ 4473}# #{x\ 4461}#)) + (let ((#{tmp\ 4474}# + ($sc-dispatch #{tmp\ 4473}# 'each-any))) + (if #{tmp\ 4474}# (@apply - (lambda (#{p\ 4482}#) + (lambda (#{p\ 4476}#) (cons '#(syntax-object "append" ((top) #(ribcage #(p) #((top)) - #("i4481")) + #("i4475")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4469" "i4470")) + #("i4463" "i4464")) #(ribcage (emit quasivector quasilist* @@ -16923,43 +16937,43 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{p\ 4482}#)) - #{tmp\ 4480}#) + #{p\ 4476}#)) + #{tmp\ 4474}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4479}#))))))) - #{tmp\ 4472}#) - (let ((#{_\ 4485}# #{tmp\ 4471}#)) - (if (null? #{x\ 4467}#) - #{y\ 4468}# - (let ((#{tmp\ 4490}# (list #{x\ 4467}# #{y\ 4468}#))) - (let ((#{tmp\ 4491}# - ($sc-dispatch #{tmp\ 4490}# '(each-any any)))) - (if #{tmp\ 4491}# + #{tmp\ 4473}#))))))) + #{tmp\ 4466}#) + (let ((#{_\ 4479}# #{tmp\ 4465}#)) + (if (null? #{x\ 4461}#) + #{y\ 4462}# + (let ((#{tmp\ 4484}# (list #{x\ 4461}# #{y\ 4462}#))) + (let ((#{tmp\ 4485}# + ($sc-dispatch #{tmp\ 4484}# '(each-any any)))) + (if #{tmp\ 4485}# (@apply - (lambda (#{p\ 4494}# #{y\ 4495}#) + (lambda (#{p\ 4488}# #{y\ 4489}#) (cons '#(syntax-object "append" ((top) #(ribcage #(p y) #((top) (top)) - #("i4492" "i4493")) - #(ribcage #(_) #((top)) #("i4484")) + #("i4486" "i4487")) + #(ribcage #(_) #((top)) #("i4478")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4469" "i4470")) + #("i4463" "i4464")) #(ribcage (emit quasivector quasilist* @@ -16974,47 +16988,47 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - (append #{p\ 4494}# (list #{y\ 4495}#)))) - #{tmp\ 4491}#) + (append #{p\ 4488}# (list #{y\ 4489}#)))) + #{tmp\ 4485}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4490}#))))))))))) - (#{quasilist*\ 4374}# - (lambda (#{x\ 4497}# #{y\ 4498}#) + #{tmp\ 4484}#))))))))))) + (#{quasilist*\ 4368}# + (lambda (#{x\ 4491}# #{y\ 4492}#) (letrec* - ((#{f\ 4503}# - (lambda (#{x\ 4504}#) - (if (null? #{x\ 4504}#) - #{y\ 4498}# - (#{quasicons\ 4370}# - (car #{x\ 4504}#) - (#{f\ 4503}# (cdr #{x\ 4504}#))))))) - (begin (#{f\ 4503}# #{x\ 4497}#))))) - (#{quasivector\ 4376}# - (lambda (#{x\ 4505}#) - (let ((#{tmp\ 4507}# #{x\ 4505}#)) - (let ((#{tmp\ 4508}# + ((#{f\ 4497}# + (lambda (#{x\ 4498}#) + (if (null? #{x\ 4498}#) + #{y\ 4492}# + (#{quasicons\ 4364}# + (car #{x\ 4498}#) + (#{f\ 4497}# (cdr #{x\ 4498}#))))))) + (begin (#{f\ 4497}# #{x\ 4491}#))))) + (#{quasivector\ 4370}# + (lambda (#{x\ 4499}#) + (let ((#{tmp\ 4501}# #{x\ 4499}#)) + (let ((#{tmp\ 4502}# ($sc-dispatch - #{tmp\ 4507}# + #{tmp\ 4501}# '(#(atom "quote") each-any)))) - (if #{tmp\ 4508}# + (if #{tmp\ 4502}# (@apply - (lambda (#{x\ 4510}#) + (lambda (#{x\ 4504}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(x) #((top)) #("i4509")) + #(ribcage #(x) #((top)) #("i4503")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4506")) + #(ribcage #(x) #((top)) #("i4500")) #(ribcage (emit quasivector quasilist* @@ -17023,53 +17037,53 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - (list->vector #{x\ 4510}#))) - #{tmp\ 4508}#) - (let ((#{_\ 4513}# #{tmp\ 4507}#)) + (list->vector #{x\ 4504}#))) + #{tmp\ 4502}#) + (let ((#{_\ 4507}# #{tmp\ 4501}#)) (letrec* - ((#{f\ 4517}# - (lambda (#{y\ 4518}# #{k\ 4519}#) - (let ((#{tmp\ 4530}# #{y\ 4518}#)) - (let ((#{tmp\ 4531}# + ((#{f\ 4511}# + (lambda (#{y\ 4512}# #{k\ 4513}#) + (let ((#{tmp\ 4524}# #{y\ 4512}#)) + (let ((#{tmp\ 4525}# ($sc-dispatch - #{tmp\ 4530}# + #{tmp\ 4524}# '(#(atom "quote") each-any)))) - (if #{tmp\ 4531}# + (if #{tmp\ 4525}# (@apply - (lambda (#{y\ 4533}#) - (#{k\ 4519}# - (map (lambda (#{tmp\ 4534}#) + (lambda (#{y\ 4527}#) + (#{k\ 4513}# + (map (lambda (#{tmp\ 4528}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i4532")) + #("i4526")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4514" - "i4515" - "i4516")) + #("i4508" + "i4509" + "i4510")) #(ribcage #(_) #((top)) - #("i4512")) + #("i4506")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4506")) + #("i4500")) #(ribcage (emit quasivector quasilist* @@ -17084,74 +17098,74 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{tmp\ 4534}#)) - #{y\ 4533}#))) - #{tmp\ 4531}#) - (let ((#{tmp\ 4535}# + #{tmp\ 4528}#)) + #{y\ 4527}#))) + #{tmp\ 4525}#) + (let ((#{tmp\ 4529}# ($sc-dispatch - #{tmp\ 4530}# + #{tmp\ 4524}# '(#(atom "list") . each-any)))) - (if #{tmp\ 4535}# + (if #{tmp\ 4529}# (@apply - (lambda (#{y\ 4537}#) - (#{k\ 4519}# #{y\ 4537}#)) - #{tmp\ 4535}#) - (let ((#{tmp\ 4539}# + (lambda (#{y\ 4531}#) + (#{k\ 4513}# #{y\ 4531}#)) + #{tmp\ 4529}#) + (let ((#{tmp\ 4533}# ($sc-dispatch - #{tmp\ 4530}# + #{tmp\ 4524}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp\ 4539}# + (if #{tmp\ 4533}# (@apply - (lambda (#{y\ 4542}# #{z\ 4543}#) - (#{f\ 4517}# - #{z\ 4543}# - (lambda (#{ls\ 4544}#) - (#{k\ 4519}# + (lambda (#{y\ 4536}# #{z\ 4537}#) + (#{f\ 4511}# + #{z\ 4537}# + (lambda (#{ls\ 4538}#) + (#{k\ 4513}# (append - #{y\ 4542}# - #{ls\ 4544}#))))) - #{tmp\ 4539}#) - (let ((#{else\ 4548}# #{tmp\ 4530}#)) - (let ((#{tmp\ 4552}# #{x\ 4505}#)) - (let ((#{\ g4549\ 4554}# - #{tmp\ 4552}#)) + #{y\ 4536}# + #{ls\ 4538}#))))) + #{tmp\ 4533}#) + (let ((#{else\ 4542}# #{tmp\ 4524}#)) + (let ((#{tmp\ 4546}# #{x\ 4499}#)) + (let ((#{\ g4543\ 4548}# + #{tmp\ 4546}#)) (list '#(syntax-object "list->vector" ((top) #(ribcage - #(#{\ g4549}#) - #((m4550 top)) - #("i4553")) + #(#{\ g4543}#) + #((m4544 top)) + #("i4547")) #(ribcage #(else) #((top)) - #("i4547")) + #("i4541")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4514" - "i4515" - "i4516")) + #("i4508" + "i4509" + "i4510")) #(ribcage #(_) #((top)) - #("i4512")) + #("i4506")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4506")) + #("i4500")) #(ribcage (emit quasivector quasilist* @@ -17166,48 +17180,48 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{\ g4549\ 4554}#)))))))))))))) + #{\ g4543\ 4548}#)))))))))))))) (begin - (#{f\ 4517}# - #{x\ 4505}# - (lambda (#{ls\ 4520}#) - (let ((#{tmp\ 4525}# #{ls\ 4520}#)) - (let ((#{tmp\ 4526}# - ($sc-dispatch #{tmp\ 4525}# 'each-any))) - (if #{tmp\ 4526}# + (#{f\ 4511}# + #{x\ 4499}# + (lambda (#{ls\ 4514}#) + (let ((#{tmp\ 4519}# #{ls\ 4514}#)) + (let ((#{tmp\ 4520}# + ($sc-dispatch #{tmp\ 4519}# 'each-any))) + (if #{tmp\ 4520}# (@apply - (lambda (#{\ g4522\ 4528}#) + (lambda (#{\ g4516\ 4522}#) (cons '#(syntax-object "vector" ((top) #(ribcage - #(#{\ g4522}#) - #((m4523 top)) - #("i4527")) + #(#{\ g4516}#) + #((m4517 top)) + #("i4521")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) - #("i4521")) + #("i4515")) #(ribcage #(_) #((top)) - #("i4512")) + #("i4506")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4506")) + #("i4500")) #(ribcage (emit quasivector quasilist* @@ -17222,36 +17236,36 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{\ g4522\ 4528}#)) - #{tmp\ 4526}#) + #{\ g4516\ 4522}#)) + #{tmp\ 4520}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4525}#)))))))))))))) - (#{emit\ 4378}# - (lambda (#{x\ 4555}#) - (let ((#{tmp\ 4557}# #{x\ 4555}#)) - (let ((#{tmp\ 4558}# + #{tmp\ 4519}#)))))))))))))) + (#{emit\ 4372}# + (lambda (#{x\ 4549}#) + (let ((#{tmp\ 4551}# #{x\ 4549}#)) + (let ((#{tmp\ 4552}# ($sc-dispatch - #{tmp\ 4557}# + #{tmp\ 4551}# '(#(atom "quote") any)))) - (if #{tmp\ 4558}# + (if #{tmp\ 4552}# (@apply - (lambda (#{x\ 4560}#) + (lambda (#{x\ 4554}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4559")) + #(ribcage #(x) #((top)) #("i4553")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4556")) + #(ribcage #(x) #((top)) #("i4550")) #(ribcage (emit quasivector quasilist* @@ -17260,46 +17274,46 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{x\ 4560}#)) - #{tmp\ 4558}#) - (let ((#{tmp\ 4561}# + #{x\ 4554}#)) + #{tmp\ 4552}#) + (let ((#{tmp\ 4555}# ($sc-dispatch - #{tmp\ 4557}# + #{tmp\ 4551}# '(#(atom "list") . each-any)))) - (if #{tmp\ 4561}# + (if #{tmp\ 4555}# (@apply - (lambda (#{x\ 4563}#) - (let ((#{tmp\ 4567}# - (map #{emit\ 4378}# #{x\ 4563}#))) - (let ((#{tmp\ 4568}# - ($sc-dispatch #{tmp\ 4567}# 'each-any))) - (if #{tmp\ 4568}# + (lambda (#{x\ 4557}#) + (let ((#{tmp\ 4561}# + (map #{emit\ 4372}# #{x\ 4557}#))) + (let ((#{tmp\ 4562}# + ($sc-dispatch #{tmp\ 4561}# 'each-any))) + (if #{tmp\ 4562}# (@apply - (lambda (#{\ g4564\ 4570}#) + (lambda (#{\ g4558\ 4564}#) (cons '#(syntax-object list ((top) #(ribcage - #(#{\ g4564}#) - #((m4565 top)) - #("i4569")) - #(ribcage - #(x) - #((top)) - #("i4562")) - #(ribcage () () ()) + #(#{\ g4558}#) + #((m4559 top)) + #("i4563")) #(ribcage #(x) #((top)) #("i4556")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i4550")) #(ribcage (emit quasivector quasilist* @@ -17314,69 +17328,69 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{\ g4564\ 4570}#)) - #{tmp\ 4568}#) + #{\ g4558\ 4564}#)) + #{tmp\ 4562}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4567}#))))) - #{tmp\ 4561}#) - (let ((#{tmp\ 4573}# + #{tmp\ 4561}#))))) + #{tmp\ 4555}#) + (let ((#{tmp\ 4567}# ($sc-dispatch - #{tmp\ 4557}# + #{tmp\ 4551}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp\ 4573}# + (if #{tmp\ 4567}# (@apply - (lambda (#{x\ 4576}# #{y\ 4577}#) + (lambda (#{x\ 4570}# #{y\ 4571}#) (letrec* - ((#{f\ 4580}# - (lambda (#{x*\ 4581}#) - (if (null? #{x*\ 4581}#) - (#{emit\ 4378}# #{y\ 4577}#) - (let ((#{tmp\ 4587}# - (list (#{emit\ 4378}# - (car #{x*\ 4581}#)) - (#{f\ 4580}# - (cdr #{x*\ 4581}#))))) - (let ((#{tmp\ 4588}# + ((#{f\ 4574}# + (lambda (#{x*\ 4575}#) + (if (null? #{x*\ 4575}#) + (#{emit\ 4372}# #{y\ 4571}#) + (let ((#{tmp\ 4581}# + (list (#{emit\ 4372}# + (car #{x*\ 4575}#)) + (#{f\ 4574}# + (cdr #{x*\ 4575}#))))) + (let ((#{tmp\ 4582}# ($sc-dispatch - #{tmp\ 4587}# + #{tmp\ 4581}# '(any any)))) - (if #{tmp\ 4588}# + (if #{tmp\ 4582}# (@apply - (lambda (#{\ g4584\ 4591}# - #{\ g4583\ 4592}#) + (lambda (#{\ g4578\ 4585}# + #{\ g4577\ 4586}#) (list '#(syntax-object cons ((top) #(ribcage - #(#{\ g4584}# - #{\ g4583}#) - #((m4585 top) - (m4585 top)) - #("i4589" "i4590")) + #(#{\ g4578}# + #{\ g4577}#) + #((m4579 top) + (m4579 top)) + #("i4583" "i4584")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i4578" "i4579")) + #("i4572" "i4573")) #(ribcage #(x y) #((top) (top)) - #("i4574" "i4575")) + #("i4568" "i4569")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4556")) + #("i4550")) #(ribcage (emit quasivector quasilist* @@ -17391,55 +17405,55 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{\ g4584\ 4591}# - #{\ g4583\ 4592}#)) - #{tmp\ 4588}#) + #{\ g4578\ 4585}# + #{\ g4577\ 4586}#)) + #{tmp\ 4582}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4587}#)))))))) - (begin (#{f\ 4580}# #{x\ 4576}#)))) - #{tmp\ 4573}#) - (let ((#{tmp\ 4593}# + #{tmp\ 4581}#)))))))) + (begin (#{f\ 4574}# #{x\ 4570}#)))) + #{tmp\ 4567}#) + (let ((#{tmp\ 4587}# ($sc-dispatch - #{tmp\ 4557}# + #{tmp\ 4551}# '(#(atom "append") . each-any)))) - (if #{tmp\ 4593}# + (if #{tmp\ 4587}# (@apply - (lambda (#{x\ 4595}#) - (let ((#{tmp\ 4599}# - (map #{emit\ 4378}# #{x\ 4595}#))) - (let ((#{tmp\ 4600}# + (lambda (#{x\ 4589}#) + (let ((#{tmp\ 4593}# + (map #{emit\ 4372}# #{x\ 4589}#))) + (let ((#{tmp\ 4594}# ($sc-dispatch - #{tmp\ 4599}# + #{tmp\ 4593}# 'each-any))) - (if #{tmp\ 4600}# + (if #{tmp\ 4594}# (@apply - (lambda (#{\ g4596\ 4602}#) + (lambda (#{\ g4590\ 4596}#) (cons '#(syntax-object append ((top) #(ribcage - #(#{\ g4596}#) - #((m4597 top)) - #("i4601")) + #(#{\ g4590}#) + #((m4591 top)) + #("i4595")) #(ribcage #(x) #((top)) - #("i4594")) + #("i4588")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4556")) + #("i4550")) #(ribcage (emit quasivector quasilist* @@ -17454,53 +17468,53 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{\ g4596\ 4602}#)) - #{tmp\ 4600}#) + #{\ g4590\ 4596}#)) + #{tmp\ 4594}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4599}#))))) - #{tmp\ 4593}#) - (let ((#{tmp\ 4605}# + #{tmp\ 4593}#))))) + #{tmp\ 4587}#) + (let ((#{tmp\ 4599}# ($sc-dispatch - #{tmp\ 4557}# + #{tmp\ 4551}# '(#(atom "vector") . each-any)))) - (if #{tmp\ 4605}# + (if #{tmp\ 4599}# (@apply - (lambda (#{x\ 4607}#) - (let ((#{tmp\ 4611}# - (map #{emit\ 4378}# #{x\ 4607}#))) - (let ((#{tmp\ 4612}# + (lambda (#{x\ 4601}#) + (let ((#{tmp\ 4605}# + (map #{emit\ 4372}# #{x\ 4601}#))) + (let ((#{tmp\ 4606}# ($sc-dispatch - #{tmp\ 4611}# + #{tmp\ 4605}# 'each-any))) - (if #{tmp\ 4612}# + (if #{tmp\ 4606}# (@apply - (lambda (#{\ g4608\ 4614}#) + (lambda (#{\ g4602\ 4608}#) (cons '#(syntax-object vector ((top) #(ribcage - #(#{\ g4608}#) - #((m4609 top)) - #("i4613")) + #(#{\ g4602}#) + #((m4603 top)) + #("i4607")) #(ribcage #(x) #((top)) - #("i4606")) + #("i4600")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4556")) + #("i4550")) #(ribcage (emit quasivector quasilist* @@ -17515,48 +17529,48 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{\ g4608\ 4614}#)) - #{tmp\ 4612}#) + #{\ g4602\ 4608}#)) + #{tmp\ 4606}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4611}#))))) - #{tmp\ 4605}#) - (let ((#{tmp\ 4617}# + #{tmp\ 4605}#))))) + #{tmp\ 4599}#) + (let ((#{tmp\ 4611}# ($sc-dispatch - #{tmp\ 4557}# + #{tmp\ 4551}# '(#(atom "list->vector") any)))) - (if #{tmp\ 4617}# + (if #{tmp\ 4611}# (@apply - (lambda (#{x\ 4619}#) - (let ((#{tmp\ 4623}# - (#{emit\ 4378}# #{x\ 4619}#))) - (let ((#{\ g4620\ 4625}# - #{tmp\ 4623}#)) + (lambda (#{x\ 4613}#) + (let ((#{tmp\ 4617}# + (#{emit\ 4372}# #{x\ 4613}#))) + (let ((#{\ g4614\ 4619}# + #{tmp\ 4617}#)) (list '#(syntax-object list->vector ((top) #(ribcage - #(#{\ g4620}#) - #((m4621 top)) - #("i4624")) + #(#{\ g4614}#) + #((m4615 top)) + #("i4618")) #(ribcage #(x) #((top)) - #("i4618")) + #("i4612")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4556")) + #("i4550")) #(ribcage (emit quasivector quasilist* @@ -17571,211 +17585,211 @@ (top) (top) (top)) - ("i4377" - "i4375" - "i4373" - "i4371" + ("i4371" "i4369" "i4367" - "i4365"))) + "i4365" + "i4363" + "i4361" + "i4359"))) (hygiene guile)) - #{\ g4620\ 4625}#)))) - #{tmp\ 4617}#) - (let ((#{tmp\ 4626}# + #{\ g4614\ 4619}#)))) + #{tmp\ 4611}#) + (let ((#{tmp\ 4620}# ($sc-dispatch - #{tmp\ 4557}# + #{tmp\ 4551}# '(#(atom "value") any)))) - (if #{tmp\ 4626}# + (if #{tmp\ 4620}# (@apply - (lambda (#{x\ 4628}#) #{x\ 4628}#) - #{tmp\ 4626}#) + (lambda (#{x\ 4622}#) #{x\ 4622}#) + #{tmp\ 4620}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4557}#))))))))))))))))))) + #{tmp\ 4551}#))))))))))))))))))) (begin - (lambda (#{x\ 4629}#) - (let ((#{tmp\ 4631}# #{x\ 4629}#)) - (let ((#{tmp\ 4632}# - ($sc-dispatch #{tmp\ 4631}# '(_ any)))) - (if #{tmp\ 4632}# + (lambda (#{x\ 4623}#) + (let ((#{tmp\ 4625}# #{x\ 4623}#)) + (let ((#{tmp\ 4626}# + ($sc-dispatch #{tmp\ 4625}# '(_ any)))) + (if #{tmp\ 4626}# (@apply - (lambda (#{e\ 4634}#) - (#{emit\ 4378}# (#{quasi\ 4366}# #{e\ 4634}# 0))) - #{tmp\ 4632}#) + (lambda (#{e\ 4628}#) + (#{emit\ 4372}# (#{quasi\ 4360}# #{e\ 4628}# 0))) + #{tmp\ 4626}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4631}#))))))))) + #{tmp\ 4625}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x\ 4635}#) + (lambda (#{x\ 4629}#) (letrec* - ((#{read-file\ 4638}# - (lambda (#{fn\ 4639}# #{k\ 4640}#) + ((#{read-file\ 4632}# + (lambda (#{fn\ 4633}# #{k\ 4634}#) (begin - (let ((#{p\ 4644}# (open-input-file #{fn\ 4639}#))) + (let ((#{p\ 4638}# (open-input-file #{fn\ 4633}#))) (letrec* - ((#{f\ 4648}# - (lambda (#{x\ 4649}# #{result\ 4650}#) - (if (eof-object? #{x\ 4649}#) + ((#{f\ 4642}# + (lambda (#{x\ 4643}# #{result\ 4644}#) + (if (eof-object? #{x\ 4643}#) (begin - (close-input-port #{p\ 4644}#) - (reverse #{result\ 4650}#)) - (#{f\ 4648}# - (read #{p\ 4644}#) - (cons (datum->syntax #{k\ 4640}# #{x\ 4649}#) - #{result\ 4650}#)))))) - (begin (#{f\ 4648}# (read #{p\ 4644}#) '())))))))) + (close-input-port #{p\ 4638}#) + (reverse #{result\ 4644}#)) + (#{f\ 4642}# + (read #{p\ 4638}#) + (cons (datum->syntax #{k\ 4634}# #{x\ 4643}#) + #{result\ 4644}#)))))) + (begin (#{f\ 4642}# (read #{p\ 4638}#) '())))))))) (begin - (let ((#{tmp\ 4651}# #{x\ 4635}#)) - (let ((#{tmp\ 4652}# - ($sc-dispatch #{tmp\ 4651}# '(any any)))) - (if #{tmp\ 4652}# + (let ((#{tmp\ 4645}# #{x\ 4629}#)) + (let ((#{tmp\ 4646}# + ($sc-dispatch #{tmp\ 4645}# '(any any)))) + (if #{tmp\ 4646}# (@apply - (lambda (#{k\ 4655}# #{filename\ 4656}#) + (lambda (#{k\ 4649}# #{filename\ 4650}#) (begin - (let ((#{fn\ 4658}# (syntax->datum #{filename\ 4656}#))) - (let ((#{tmp\ 4660}# - (#{read-file\ 4638}# - #{fn\ 4658}# - #{filename\ 4656}#))) - (let ((#{tmp\ 4661}# - ($sc-dispatch #{tmp\ 4660}# 'each-any))) - (if #{tmp\ 4661}# + (let ((#{fn\ 4652}# (syntax->datum #{filename\ 4650}#))) + (let ((#{tmp\ 4654}# + (#{read-file\ 4632}# + #{fn\ 4652}# + #{filename\ 4650}#))) + (let ((#{tmp\ 4655}# + ($sc-dispatch #{tmp\ 4654}# 'each-any))) + (if #{tmp\ 4655}# (@apply - (lambda (#{exp\ 4663}#) + (lambda (#{exp\ 4657}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4662")) + #("i4656")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4657")) + #("i4651")) #(ribcage #(k filename) #((top) (top)) - #("i4653" "i4654")) + #("i4647" "i4648")) #(ribcage (read-file) ((top)) - ("i4637")) + ("i4631")) #(ribcage #(x) #((top)) - #("i4636"))) + #("i4630"))) (hygiene guile)) - #{exp\ 4663}#)) - #{tmp\ 4661}#) + #{exp\ 4657}#)) + #{tmp\ 4655}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4660}#))))))) - #{tmp\ 4652}#) + #{tmp\ 4654}#))))))) + #{tmp\ 4646}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4651}#))))))))) + #{tmp\ 4645}#))))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x\ 4665}#) - (let ((#{tmp\ 4667}# #{x\ 4665}#)) - (let ((#{tmp\ 4668}# - ($sc-dispatch #{tmp\ 4667}# '(any any)))) - (if #{tmp\ 4668}# + (lambda (#{x\ 4659}#) + (let ((#{tmp\ 4661}# #{x\ 4659}#)) + (let ((#{tmp\ 4662}# + ($sc-dispatch #{tmp\ 4661}# '(any any)))) + (if #{tmp\ 4662}# (@apply - (lambda (#{k\ 4671}# #{filename\ 4672}#) + (lambda (#{k\ 4665}# #{filename\ 4666}#) (begin - (let ((#{fn\ 4674}# (syntax->datum #{filename\ 4672}#))) - (let ((#{tmp\ 4676}# + (let ((#{fn\ 4668}# (syntax->datum #{filename\ 4666}#))) + (let ((#{tmp\ 4670}# (datum->syntax - #{filename\ 4672}# + #{filename\ 4666}# (begin - (let ((#{t\ 4681}# - (%search-load-path #{fn\ 4674}#))) - (if #{t\ 4681}# - #{t\ 4681}# + (let ((#{t\ 4675}# + (%search-load-path #{fn\ 4668}#))) + (if #{t\ 4675}# + #{t\ 4675}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4665}# - #{filename\ 4672}#))))))) - (let ((#{fn\ 4678}# #{tmp\ 4676}#)) + #{x\ 4659}# + #{filename\ 4666}#))))))) + (let ((#{fn\ 4672}# #{tmp\ 4670}#)) (list '#(syntax-object include ((top) - #(ribcage #(fn) #((top)) #("i4677")) + #(ribcage #(fn) #((top)) #("i4671")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4673")) + #(ribcage #(fn) #((top)) #("i4667")) #(ribcage #(k filename) #((top) (top)) - #("i4669" "i4670")) + #("i4663" "i4664")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4666"))) + #(ribcage #(x) #((top)) #("i4660"))) (hygiene guile)) - #{fn\ 4678}#)))))) - #{tmp\ 4668}#) + #{fn\ 4672}#)))))) + #{tmp\ 4662}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4667}#))))))) + #{tmp\ 4661}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x\ 4683}#) + (lambda (#{x\ 4677}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4683}#)))) + #{x\ 4677}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x\ 4685}#) + (lambda (#{x\ 4679}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4685}#)))) + #{x\ 4679}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x\ 4687}#) - (let ((#{tmp\ 4689}# #{x\ 4687}#)) - (let ((#{tmp\ 4690}# + (lambda (#{x\ 4681}#) + (let ((#{tmp\ 4683}# #{x\ 4681}#)) + (let ((#{tmp\ 4684}# ($sc-dispatch - #{tmp\ 4689}# + #{tmp\ 4683}# '(_ any any . each-any)))) - (if #{tmp\ 4690}# + (if #{tmp\ 4684}# (@apply - (lambda (#{e\ 4694}# #{m1\ 4695}# #{m2\ 4696}#) - (let ((#{tmp\ 4698}# + (lambda (#{e\ 4688}# #{m1\ 4689}# #{m2\ 4690}#) + (let ((#{tmp\ 4692}# (letrec* - ((#{f\ 4704}# - (lambda (#{clause\ 4705}# #{clauses\ 4706}#) - (if (null? #{clauses\ 4706}#) - (let ((#{tmp\ 4708}# #{clause\ 4705}#)) - (let ((#{tmp\ 4709}# + ((#{f\ 4698}# + (lambda (#{clause\ 4699}# #{clauses\ 4700}#) + (if (null? #{clauses\ 4700}#) + (let ((#{tmp\ 4702}# #{clause\ 4699}#)) + (let ((#{tmp\ 4703}# ($sc-dispatch - #{tmp\ 4708}# + #{tmp\ 4702}# '(#(free-id #(syntax-object else @@ -17784,92 +17798,92 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile))) any . each-any)))) - (if #{tmp\ 4709}# + (if #{tmp\ 4703}# (@apply - (lambda (#{e1\ 4712}# #{e2\ 4713}#) + (lambda (#{e1\ 4706}# #{e2\ 4707}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4710" "i4711")) + #("i4704" "i4705")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) - (cons #{e1\ 4712}# - #{e2\ 4713}#))) - #{tmp\ 4709}#) - (let ((#{tmp\ 4715}# + (cons #{e1\ 4706}# + #{e2\ 4707}#))) + #{tmp\ 4703}#) + (let ((#{tmp\ 4709}# ($sc-dispatch - #{tmp\ 4708}# + #{tmp\ 4702}# '(each-any any . each-any)))) - (if #{tmp\ 4715}# + (if #{tmp\ 4709}# (@apply - (lambda (#{k\ 4719}# - #{e1\ 4720}# - #{e2\ 4721}#) + (lambda (#{k\ 4713}# + #{e1\ 4714}# + #{e2\ 4715}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4716" - "i4717" - "i4718")) + #("i4710" + "i4711" + "i4712")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) (list '#(syntax-object memv @@ -17879,9 +17893,9 @@ #((top) (top) (top)) - #("i4716" - "i4717" - "i4718")) + #("i4710" + "i4711" + "i4712")) #(ribcage () () @@ -17893,17 +17907,17 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -17911,7 +17925,7 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) '#(syntax-object t @@ -17921,9 +17935,9 @@ #((top) (top) (top)) - #("i4716" - "i4717" - "i4718")) + #("i4710" + "i4711" + "i4712")) #(ribcage () () @@ -17935,17 +17949,17 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -17953,7 +17967,7 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) (list '#(syntax-object quote @@ -17965,9 +17979,9 @@ #((top) (top) (top)) - #("i4716" - "i4717" - "i4718")) + #("i4710" + "i4711" + "i4712")) #(ribcage () () @@ -17979,9 +17993,9 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 @@ -17989,9 +18003,9 @@ #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -17999,10 +18013,10 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) - #{k\ 4719}#)) + #{k\ 4713}#)) (cons '#(syntax-object begin ((top) @@ -18011,9 +18025,9 @@ #((top) (top) (top)) - #("i4716" - "i4717" - "i4718")) + #("i4710" + "i4711" + "i4712")) #(ribcage () () @@ -18025,17 +18039,17 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -18043,63 +18057,63 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) - (cons #{e1\ 4720}# - #{e2\ 4721}#)))) - #{tmp\ 4715}#) - (let ((#{_\ 4725}# #{tmp\ 4708}#)) + (cons #{e1\ 4714}# + #{e2\ 4715}#)))) + #{tmp\ 4709}#) + (let ((#{_\ 4719}# #{tmp\ 4702}#)) (syntax-violation 'case "bad clause" - #{x\ 4687}# - #{clause\ 4705}#))))))) - (let ((#{tmp\ 4727}# - (#{f\ 4704}# - (car #{clauses\ 4706}#) - (cdr #{clauses\ 4706}#)))) - (let ((#{rest\ 4729}# #{tmp\ 4727}#)) - (let ((#{tmp\ 4730}# #{clause\ 4705}#)) - (let ((#{tmp\ 4731}# + #{x\ 4681}# + #{clause\ 4699}#))))))) + (let ((#{tmp\ 4721}# + (#{f\ 4698}# + (car #{clauses\ 4700}#) + (cdr #{clauses\ 4700}#)))) + (let ((#{rest\ 4723}# #{tmp\ 4721}#)) + (let ((#{tmp\ 4724}# #{clause\ 4699}#)) + (let ((#{tmp\ 4725}# ($sc-dispatch - #{tmp\ 4730}# + #{tmp\ 4724}# '(each-any any . each-any)))) - (if #{tmp\ 4731}# + (if #{tmp\ 4725}# (@apply - (lambda (#{k\ 4735}# - #{e1\ 4736}# - #{e2\ 4737}#) + (lambda (#{k\ 4729}# + #{e1\ 4730}# + #{e2\ 4731}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4732" - "i4733" - "i4734")) + #("i4726" + "i4727" + "i4728")) #(ribcage #(rest) #((top)) - #("i4728")) + #("i4722")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) (list '#(syntax-object memv @@ -18109,13 +18123,13 @@ #((top) (top) (top)) - #("i4732" - "i4733" - "i4734")) + #("i4726" + "i4727" + "i4728")) #(ribcage #(rest) #((top)) - #("i4728")) + #("i4722")) #(ribcage () () @@ -18127,17 +18141,17 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -18145,7 +18159,7 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) '#(syntax-object t @@ -18155,13 +18169,13 @@ #((top) (top) (top)) - #("i4732" - "i4733" - "i4734")) + #("i4726" + "i4727" + "i4728")) #(ribcage #(rest) #((top)) - #("i4728")) + #("i4722")) #(ribcage () () @@ -18173,17 +18187,17 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -18191,7 +18205,7 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) (list '#(syntax-object quote @@ -18203,13 +18217,13 @@ #((top) (top) (top)) - #("i4732" - "i4733" - "i4734")) + #("i4726" + "i4727" + "i4728")) #(ribcage #(rest) #((top)) - #("i4728")) + #("i4722")) #(ribcage () () @@ -18221,9 +18235,9 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 @@ -18231,9 +18245,9 @@ #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -18241,10 +18255,10 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) - #{k\ 4735}#)) + #{k\ 4729}#)) (cons '#(syntax-object begin ((top) @@ -18253,13 +18267,13 @@ #((top) (top) (top)) - #("i4732" - "i4733" - "i4734")) + #("i4726" + "i4727" + "i4728")) #(ribcage #(rest) #((top)) - #("i4728")) + #("i4722")) #(ribcage () () @@ -18271,17 +18285,17 @@ #((top) (top) (top)) - #("i4701" - "i4702" - "i4703")) + #("i4695" + "i4696" + "i4697")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" - "i4692" - "i4693")) + #("i4685" + "i4686" + "i4687")) #(ribcage () () @@ -18289,30 +18303,30 @@ #(ribcage #(x) #((top)) - #("i4688"))) + #("i4682"))) (hygiene guile)) - (cons #{e1\ 4736}# - #{e2\ 4737}#)) - #{rest\ 4729}#)) - #{tmp\ 4731}#) - (let ((#{_\ 4741}# #{tmp\ 4730}#)) + (cons #{e1\ 4730}# + #{e2\ 4731}#)) + #{rest\ 4723}#)) + #{tmp\ 4725}#) + (let ((#{_\ 4735}# #{tmp\ 4724}#)) (syntax-violation 'case "bad clause" - #{x\ 4687}# - #{clause\ 4705}#))))))))))) - (begin (#{f\ 4704}# #{m1\ 4695}# #{m2\ 4696}#))))) - (let ((#{body\ 4700}# #{tmp\ 4698}#)) + #{x\ 4681}# + #{clause\ 4699}#))))))))))) + (begin (#{f\ 4698}# #{m1\ 4689}# #{m2\ 4690}#))))) + (let ((#{body\ 4694}# #{tmp\ 4692}#)) (list '#(syntax-object let ((top) - #(ribcage #(body) #((top)) #("i4699")) + #(ribcage #(body) #((top)) #("i4693")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" "i4692" "i4693")) + #("i4685" "i4686" "i4687")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4688"))) + #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) (list (list '#(syntax-object t @@ -18320,177 +18334,177 @@ #(ribcage #(body) #((top)) - #("i4699")) + #("i4693")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4691" "i4692" "i4693")) + #("i4685" "i4686" "i4687")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4688"))) + #(ribcage #(x) #((top)) #("i4682"))) (hygiene guile)) - #{e\ 4694}#)) - #{body\ 4700}#)))) - #{tmp\ 4690}#) + #{e\ 4688}#)) + #{body\ 4694}#)))) + #{tmp\ 4684}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4689}#))))))) + #{tmp\ 4683}#))))))) (define make-variable-transformer - (lambda (#{proc\ 4742}#) - (if (procedure? #{proc\ 4742}#) + (lambda (#{proc\ 4736}#) + (if (procedure? #{proc\ 4736}#) (begin (letrec* - ((#{trans\ 4745}# - (lambda (#{x\ 4746}#) - (#{proc\ 4742}# #{x\ 4746}#)))) + ((#{trans\ 4739}# + (lambda (#{x\ 4740}#) + (#{proc\ 4736}# #{x\ 4740}#)))) (begin (set-procedure-property! - #{trans\ 4745}# + #{trans\ 4739}# 'variable-transformer #t) - #{trans\ 4745}#))) + #{trans\ 4739}#))) (error "variable transformer not a procedure" - #{proc\ 4742}#)))) + #{proc\ 4736}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x\ 4748}#) - (let ((#{tmp\ 4750}# #{x\ 4748}#)) - (let ((#{tmp\ 4751}# - ($sc-dispatch #{tmp\ 4750}# '(_ any)))) - (if #{tmp\ 4751}# + (lambda (#{x\ 4742}#) + (let ((#{tmp\ 4744}# #{x\ 4742}#)) + (let ((#{tmp\ 4745}# + ($sc-dispatch #{tmp\ 4744}# '(_ any)))) + (if #{tmp\ 4745}# (@apply - (lambda (#{e\ 4753}#) + (lambda (#{e\ 4747}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) - #{e\ 4753}#)) + #{e\ 4747}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4752")) + #(ribcage #(e) #((top)) #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) - (cons #{e\ 4753}# + (cons #{e\ 4747}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i4752")) + #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) #(syntax-object ... @@ -18498,55 +18512,55 @@ #(ribcage #(e) #((top)) - #("i4752")) + #("i4746")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile))))))))) - #{tmp\ 4751}#) - (let ((#{tmp\ 4754}# + #{tmp\ 4745}#) + (let ((#{tmp\ 4748}# ($sc-dispatch - #{tmp\ 4750}# + #{tmp\ 4744}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) any any) any))))) - (if (if #{tmp\ 4754}# + (if (if #{tmp\ 4748}# (@apply - (lambda (#{id\ 4760}# - #{exp1\ 4761}# - #{var\ 4762}# - #{val\ 4763}# - #{exp2\ 4764}#) - (if (identifier? #{id\ 4760}#) - (identifier? #{var\ 4762}#) + (lambda (#{id\ 4754}# + #{exp1\ 4755}# + #{var\ 4756}# + #{val\ 4757}# + #{exp2\ 4758}#) + (if (identifier? #{id\ 4754}#) + (identifier? #{var\ 4756}#) #f)) - #{tmp\ 4754}#) + #{tmp\ 4748}#) #f) (@apply - (lambda (#{id\ 4772}# - #{exp1\ 4773}# - #{var\ 4774}# - #{val\ 4775}# - #{exp2\ 4776}#) + (lambda (#{id\ 4766}# + #{exp1\ 4767}# + #{var\ 4768}# + #{val\ 4769}# + #{exp2\ 4770}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" "i4768" "i4769" "i4770" "i4771")) + #("i4761" "i4762" "i4763" "i4764" "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) (list '#(syntax-object lambda @@ -18554,13 +18568,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object x @@ -18568,13 +18582,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -18582,13 +18596,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) . #(syntax-object @@ -18597,13 +18611,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -18611,13 +18625,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '#(syntax-object x @@ -18625,13 +18639,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile)) '(#(syntax-object set! @@ -18639,13 +18653,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4749"))) + #(ribcage #(x) #((top)) #("i4743"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -18657,19 +18671,19 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) - #{var\ 4774}# - #{val\ 4775}#) + #{var\ 4768}# + #{val\ 4769}#) (list '#(syntax-object syntax ((top) @@ -18680,19 +18694,19 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) - #{exp2\ 4776}#)) - (list (cons #{id\ 4772}# + #{exp2\ 4770}#)) + (list (cons #{id\ 4766}# '(#(syntax-object x ((top) @@ -18707,16 +18721,16 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) #(syntax-object ... @@ -18732,16 +18746,16 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -18753,18 +18767,18 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) - (cons #{exp1\ 4773}# + (cons #{exp1\ 4767}# '(#(syntax-object x ((top) @@ -18779,11 +18793,11 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () @@ -18791,7 +18805,7 @@ #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) #(syntax-object ... @@ -18807,11 +18821,11 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () @@ -18819,10 +18833,10 @@ #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)))))) - (list #{id\ 4772}# + (list #{id\ 4766}# (list '#(syntax-object identifier? ((top) @@ -18833,16 +18847,16 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) (list '#(syntax-object syntax @@ -18858,18 +18872,18 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) - #{id\ 4772}#)) + #{id\ 4766}#)) (list '#(syntax-object syntax ((top) @@ -18880,69 +18894,69 @@ (top) (top) (top)) - #("i4767" - "i4768" - "i4769" - "i4770" - "i4771")) + #("i4761" + "i4762" + "i4763" + "i4764" + "i4765")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4749"))) + #("i4743"))) (hygiene guile)) - #{exp1\ 4773}#)))))) - #{tmp\ 4754}#) + #{exp1\ 4767}#)))))) + #{tmp\ 4748}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4750}#))))))))) + #{tmp\ 4744}#))))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x\ 4777}#) - (let ((#{tmp\ 4779}# #{x\ 4777}#)) - (let ((#{tmp\ 4780}# + (lambda (#{x\ 4771}#) + (let ((#{tmp\ 4773}# #{x\ 4771}#)) + (let ((#{tmp\ 4774}# ($sc-dispatch - #{tmp\ 4779}# + #{tmp\ 4773}# '(_ (any . any) any . each-any)))) - (if #{tmp\ 4780}# + (if #{tmp\ 4774}# (@apply - (lambda (#{id\ 4785}# - #{args\ 4786}# - #{b0\ 4787}# - #{b1\ 4788}#) + (lambda (#{id\ 4779}# + #{args\ 4780}# + #{b0\ 4781}# + #{b1\ 4782}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4781" "i4782" "i4783" "i4784")) + #("i4775" "i4776" "i4777" "i4778")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4778"))) + #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)) - #{id\ 4785}# + #{id\ 4779}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4781" "i4782" "i4783" "i4784")) + #("i4775" "i4776" "i4777" "i4778")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4778"))) + #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)) - (cons #{args\ 4786}# - (cons #{b0\ 4787}# #{b1\ 4788}#))))) - #{tmp\ 4780}#) - (let ((#{tmp\ 4790}# - ($sc-dispatch #{tmp\ 4779}# '(_ any any)))) - (if (if #{tmp\ 4790}# + (cons #{args\ 4780}# + (cons #{b0\ 4781}# #{b1\ 4782}#))))) + #{tmp\ 4774}#) + (let ((#{tmp\ 4784}# + ($sc-dispatch #{tmp\ 4773}# '(_ any any)))) + (if (if #{tmp\ 4784}# (@apply - (lambda (#{id\ 4793}# #{val\ 4794}#) + (lambda (#{id\ 4787}# #{val\ 4788}#) (identifier? '#(syntax-object x @@ -18950,29 +18964,29 @@ #(ribcage #(id val) #((top) (top)) - #("i4791" "i4792")) + #("i4785" "i4786")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4778"))) + #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)))) - #{tmp\ 4790}#) + #{tmp\ 4784}#) #f) (@apply - (lambda (#{id\ 4797}# #{val\ 4798}#) + (lambda (#{id\ 4791}# #{val\ 4792}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i4795" "i4796")) + #("i4789" "i4790")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4778"))) + #(ribcage #(x) #((top)) #("i4772"))) (hygiene guile)) - #{id\ 4797}# - #{val\ 4798}#)) - #{tmp\ 4790}#) + #{id\ 4791}# + #{val\ 4792}#)) + #{tmp\ 4784}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4779}#))))))))) + #{tmp\ 4773}#)))))))))