From 449bf60b819afed8063e45dfbb9ea61280ae518f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 5 Nov 2011 13:53:33 +0100 Subject: [PATCH] deprecate fluid-let-syntax in favor of syntax-parameterize * module/ice-9/psyntax.scm (syntax-parameterize): Rename from fluid-let-syntax. * module/ice-9/psyntax-pp.scm: Regenerate. * module/ice-9/boot-9.scm (define-inlinable): Use syntax-parameterize (and define-syntax-parameter). * module/ice-9/deprecated.scm (fluid-let-syntax): Add deprecated shim. --- module/ice-9/boot-9.scm | 6 +- module/ice-9/deprecated.scm | 14 +- module/ice-9/psyntax-pp.scm | 22945 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 8 +- 4 files changed, 11513 insertions(+), 11460 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 75097b554..f661d08ad 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -3805,13 +3805,13 @@ module '(ice-9 q) '(make-q q-length))}." ((args ...) (generate-temporaries #'(formals ...)))) #`(begin (define (proc-name formals ...) - (fluid-let-syntax ((name (identifier-syntax proc-name))) + (syntax-parameterize ((name (identifier-syntax proc-name))) body ...)) - (define-syntax name + (define-syntax-parameter name (lambda (x) (syntax-case x () ((_ args ...) - #'((fluid-let-syntax ((name (identifier-syntax proc-name))) + #'((syntax-parameterize ((name (identifier-syntax proc-name))) (lambda (formals ...) body ...)) args ...)) diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm index 4628bab98..ef2bc2422 100644 --- a/module/ice-9/deprecated.scm +++ b/module/ice-9/deprecated.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 2003, 2005, 2006, 2009, 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 2003, 2005, 2006, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -68,7 +68,8 @@ top-repl turn-on-debugging read-hash-procedures - process-define-module)) + process-define-module + fluid-let-syntax)) ;;;; Deprecated definitions. @@ -869,3 +870,12 @@ it.") imports exports re-exports replacements autoloads)) (else (unrecognized kws))))))) + +(define-syntax fluid-let-syntax + (lambda (x) + (issue-deprecation-warning + "`fluid-let-syntax' is deprecated. Use syntax parameters instead.") + (syntax-case x () + ((_ ((k v) ...) body0 body ...) + #'(syntax-parameterize ((k v) ...) + body0 body ...))))) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index a810531fb..ea8843b68 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1231 +2,1234 @@ (if #f #f) (letrec* - ((#{top-level-eval-hook 6249}# - (lambda (#{x 29378}# #{mod 29379}#) - (primitive-eval #{x 29378}#))) - (#{maybe-name-value! 6254}# - (lambda (#{name 18120}# #{val 18121}#) - (if (if (struct? #{val 18121}#) - (eq? (struct-vtable #{val 18121}#) + ((#{top-level-eval-hook 4273}# + (lambda (#{x 27469}# #{mod 27470}#) + (primitive-eval #{x 27469}#))) + (#{maybe-name-value! 4278}# + (lambda (#{name 16154}# #{val 16155}#) + (if (if (struct? #{val 16155}#) + (eq? (struct-vtable #{val 16155}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 18128}# (struct-ref #{val 18121}# 1))) - (if (not (assq 'name #{meta 18128}#)) - (let ((#{v 18133}# - (cons (cons 'name #{name 18120}#) #{meta 18128}#))) - (struct-set! #{val 18121}# 1 #{v 18133}#))))))) - (#{build-application 6256}# - (lambda (#{source 17845}# - #{fun-exp 17846}# - #{arg-exps 17847}#) + (let ((#{meta 16162}# (struct-ref #{val 16155}# 1))) + (if (not (assq 'name #{meta 16162}#)) + (let ((#{v 16167}# + (cons (cons 'name #{name 16154}#) #{meta 16162}#))) + (struct-set! #{val 16155}# 1 #{v 16167}#))))))) + (#{build-application 4280}# + (lambda (#{source 15879}# + #{fun-exp 15880}# + #{arg-exps 15881}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 17845}# - #{fun-exp 17846}# - #{arg-exps 17847}#))) - (#{build-conditional 6257}# - (lambda (#{source 17853}# - #{test-exp 17854}# - #{then-exp 17855}# - #{else-exp 17856}#) + #{source 15879}# + #{fun-exp 15880}# + #{arg-exps 15881}#))) + (#{build-conditional 4281}# + (lambda (#{source 15887}# + #{test-exp 15888}# + #{then-exp 15889}# + #{else-exp 15890}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 17853}# - #{test-exp 17854}# - #{then-exp 17855}# - #{else-exp 17856}#))) - (#{build-dynlet 6258}# - (lambda (#{source 17863}# - #{fluids 17864}# - #{vals 17865}# - #{body 17866}#) + #{source 15887}# + #{test-exp 15888}# + #{then-exp 15889}# + #{else-exp 15890}#))) + (#{build-dynlet 4282}# + (lambda (#{source 15897}# + #{fluids 15898}# + #{vals 15899}# + #{body 15900}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source 17863}# - #{fluids 17864}# - #{vals 17865}# - #{body 17866}#))) - (#{build-lexical-reference 6259}# - (lambda (#{type 29380}# - #{source 29381}# - #{name 29382}# - #{var 29383}#) + #{source 15897}# + #{fluids 15898}# + #{vals 15899}# + #{body 15900}#))) + (#{build-lexical-reference 4283}# + (lambda (#{type 27471}# + #{source 27472}# + #{name 27473}# + #{var 27474}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 29381}# - #{name 29382}# - #{var 29383}#))) - (#{build-lexical-assignment 6260}# - (lambda (#{source 17873}# - #{name 17874}# - #{var 17875}# - #{exp 17876}#) + #{source 27472}# + #{name 27473}# + #{var 27474}#))) + (#{build-lexical-assignment 4284}# + (lambda (#{source 15907}# + #{name 15908}# + #{var 15909}# + #{exp 15910}#) (begin - (if (if (struct? #{exp 17876}#) - (eq? (struct-vtable #{exp 17876}#) + (if (if (struct? #{exp 15910}#) + (eq? (struct-vtable #{exp 15910}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 17892}# (struct-ref #{exp 17876}# 1))) - (if (not (assq 'name #{meta 17892}#)) - (let ((#{v 17899}# - (cons (cons 'name #{name 17874}#) #{meta 17892}#))) - (struct-set! #{exp 17876}# 1 #{v 17899}#))))) + (let ((#{meta 15926}# (struct-ref #{exp 15910}# 1))) + (if (not (assq 'name #{meta 15926}#)) + (let ((#{v 15933}# + (cons (cons 'name #{name 15908}#) #{meta 15926}#))) + (struct-set! #{exp 15910}# 1 #{v 15933}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 17873}# - #{name 17874}# - #{var 17875}# - #{exp 17876}#)))) - (#{analyze-variable 6261}# - (lambda (#{mod 29389}# - #{var 29390}# - #{modref-cont 29391}# - #{bare-cont 29392}#) - (if (not #{mod 29389}#) - (#{bare-cont 29392}# #{var 29390}#) - (let ((#{kind 29393}# (car #{mod 29389}#)) - (#{mod 29394}# (cdr #{mod 29389}#))) - (if (eqv? #{kind 29393}# 'public) - (#{modref-cont 29391}# - #{mod 29394}# - #{var 29390}# + #{source 15907}# + #{name 15908}# + #{var 15909}# + #{exp 15910}#)))) + (#{analyze-variable 4285}# + (lambda (#{mod 27480}# + #{var 27481}# + #{modref-cont 27482}# + #{bare-cont 27483}#) + (if (not #{mod 27480}#) + (#{bare-cont 27483}# #{var 27481}#) + (let ((#{kind 27484}# (car #{mod 27480}#)) + (#{mod 27485}# (cdr #{mod 27480}#))) + (if (eqv? #{kind 27484}# 'public) + (#{modref-cont 27482}# + #{mod 27485}# + #{var 27481}# #t) - (if (eqv? #{kind 29393}# 'private) + (if (eqv? #{kind 27484}# 'private) (if (not (equal? - #{mod 29394}# + #{mod 27485}# (module-name (current-module)))) - (#{modref-cont 29391}# - #{mod 29394}# - #{var 29390}# + (#{modref-cont 27482}# + #{mod 27485}# + #{var 27481}# #f) - (#{bare-cont 29392}# #{var 29390}#)) - (if (eqv? #{kind 29393}# 'bare) - (#{bare-cont 29392}# #{var 29390}#) - (if (eqv? #{kind 29393}# 'hygiene) + (#{bare-cont 27483}# #{var 27481}#)) + (if (eqv? #{kind 27484}# 'bare) + (#{bare-cont 27483}# #{var 27481}#) + (if (eqv? #{kind 27484}# 'hygiene) (if (if (not (equal? - #{mod 29394}# + #{mod 27485}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 29394}#) - #{var 29390}#) + (resolve-module #{mod 27485}#) + #{var 27481}#) #f) - (#{modref-cont 29391}# - #{mod 29394}# - #{var 29390}# + (#{modref-cont 27482}# + #{mod 27485}# + #{var 27481}# #f) - (#{bare-cont 29392}# #{var 29390}#)) + (#{bare-cont 27483}# #{var 27481}#)) (syntax-violation #f "bad module kind" - #{var 29390}# - #{mod 29394}#))))))))) - (#{build-global-reference 6262}# - (lambda (#{source 29409}# #{var 29410}# #{mod 29411}#) - (#{analyze-variable 6261}# - #{mod 29411}# - #{var 29410}# - (lambda (#{mod 29414}# #{var 29415}# #{public? 29416}#) + #{var 27481}# + #{mod 27485}#))))))))) + (#{build-global-reference 4286}# + (lambda (#{source 27500}# #{var 27501}# #{mod 27502}#) + (#{analyze-variable 4285}# + #{mod 27502}# + #{var 27501}# + (lambda (#{mod 27505}# #{var 27506}# #{public? 27507}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 29409}# - #{mod 29414}# - #{var 29415}# - #{public? 29416}#)) - (lambda (#{var 29424}#) + #{source 27500}# + #{mod 27505}# + #{var 27506}# + #{public? 27507}#)) + (lambda (#{var 27515}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 29409}# - #{var 29424}#))))) - (#{build-global-assignment 6263}# - (lambda (#{source 17908}# - #{var 17909}# - #{exp 17910}# - #{mod 17911}#) + #{source 27500}# + #{var 27515}#))))) + (#{build-global-assignment 4287}# + (lambda (#{source 15942}# + #{var 15943}# + #{exp 15944}# + #{mod 15945}#) (begin - (if (if (struct? #{exp 17910}#) - (eq? (struct-vtable #{exp 17910}#) + (if (if (struct? #{exp 15944}#) + (eq? (struct-vtable #{exp 15944}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 17927}# (struct-ref #{exp 17910}# 1))) - (if (not (assq 'name #{meta 17927}#)) - (let ((#{v 17934}# - (cons (cons 'name #{var 17909}#) #{meta 17927}#))) - (struct-set! #{exp 17910}# 1 #{v 17934}#))))) - (#{analyze-variable 6261}# - #{mod 17911}# - #{var 17909}# - (lambda (#{mod 17939}# #{var 17940}# #{public? 17941}#) + (let ((#{meta 15961}# (struct-ref #{exp 15944}# 1))) + (if (not (assq 'name #{meta 15961}#)) + (let ((#{v 15968}# + (cons (cons 'name #{var 15943}#) #{meta 15961}#))) + (struct-set! #{exp 15944}# 1 #{v 15968}#))))) + (#{analyze-variable 4285}# + #{mod 15945}# + #{var 15943}# + (lambda (#{mod 15973}# #{var 15974}# #{public? 15975}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 17908}# - #{mod 17939}# - #{var 17940}# - #{public? 17941}# - #{exp 17910}#)) - (lambda (#{var 17949}#) + #{source 15942}# + #{mod 15973}# + #{var 15974}# + #{public? 15975}# + #{exp 15944}#)) + (lambda (#{var 15983}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 17908}# - #{var 17949}# - #{exp 17910}#)))))) - (#{build-global-definition 6264}# - (lambda (#{source 29430}# #{var 29431}# #{exp 29432}#) + #{source 15942}# + #{var 15983}# + #{exp 15944}#)))))) + (#{build-global-definition 4288}# + (lambda (#{source 27521}# #{var 27522}# #{exp 27523}#) (begin - (if (if (struct? #{exp 29432}#) - (eq? (struct-vtable #{exp 29432}#) + (if (if (struct? #{exp 27523}#) + (eq? (struct-vtable #{exp 27523}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 29448}# (struct-ref #{exp 29432}# 1))) - (if (not (assq 'name #{meta 29448}#)) - (let ((#{v 29455}# - (cons (cons 'name #{var 29431}#) #{meta 29448}#))) - (struct-set! #{exp 29432}# 1 #{v 29455}#))))) + (let ((#{meta 27539}# (struct-ref #{exp 27523}# 1))) + (if (not (assq 'name #{meta 27539}#)) + (let ((#{v 27546}# + (cons (cons 'name #{var 27522}#) #{meta 27539}#))) + (struct-set! #{exp 27523}# 1 #{v 27546}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 29430}# - #{var 29431}# - #{exp 29432}#)))) - (#{build-simple-lambda 6265}# - (lambda (#{src 17955}# - #{req 17956}# - #{rest 17957}# - #{vars 17958}# - #{meta 17959}# - #{exp 17960}#) - (let ((#{body 17966}# + #{source 27521}# + #{var 27522}# + #{exp 27523}#)))) + (#{build-simple-lambda 4289}# + (lambda (#{src 15989}# + #{req 15990}# + #{rest 15991}# + #{vars 15992}# + #{meta 15993}# + #{exp 15994}#) + (let ((#{body 16000}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 17955}# - #{req 17956}# + #{src 15989}# + #{req 15990}# #f - #{rest 17957}# + #{rest 15991}# #f '() - #{vars 17958}# - #{exp 17960}# + #{vars 15992}# + #{exp 15994}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 17955}# - #{meta 17959}# - #{body 17966}#)))) - (#{build-sequence 6270}# - (lambda (#{src 29463}# #{exps 29464}#) - (if (null? (cdr #{exps 29464}#)) - (car #{exps 29464}#) + #{src 15989}# + #{meta 15993}# + #{body 16000}#)))) + (#{build-sequence 4294}# + (lambda (#{src 27554}# #{exps 27555}#) + (if (null? (cdr #{exps 27555}#)) + (car #{exps 27555}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 29463}# - #{exps 29464}#)))) - (#{build-let 6271}# - (lambda (#{src 17978}# - #{ids 17979}# - #{vars 17980}# - #{val-exps 17981}# - #{body-exp 17982}#) + #{src 27554}# + #{exps 27555}#)))) + (#{build-let 4295}# + (lambda (#{src 16012}# + #{ids 16013}# + #{vars 16014}# + #{val-exps 16015}# + #{body-exp 16016}#) (begin (for-each - #{maybe-name-value! 6254}# - #{ids 17979}# - #{val-exps 17981}#) - (if (null? #{vars 17980}#) - #{body-exp 17982}# + #{maybe-name-value! 4278}# + #{ids 16013}# + #{val-exps 16015}#) + (if (null? #{vars 16014}#) + #{body-exp 16016}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 17978}# - #{ids 17979}# - #{vars 17980}# - #{val-exps 17981}# - #{body-exp 17982}#))))) - (#{build-named-let 6272}# - (lambda (#{src 18006}# - #{ids 18007}# - #{vars 18008}# - #{val-exps 18009}# - #{body-exp 18010}#) - (let ((#{f 18011}# (car #{vars 18008}#)) - (#{f-name 18012}# (car #{ids 18007}#)) - (#{vars 18013}# (cdr #{vars 18008}#)) - (#{ids 18014}# (cdr #{ids 18007}#))) - (let ((#{proc 18015}# - (let ((#{body 18035}# + #{src 16012}# + #{ids 16013}# + #{vars 16014}# + #{val-exps 16015}# + #{body-exp 16016}#))))) + (#{build-named-let 4296}# + (lambda (#{src 16040}# + #{ids 16041}# + #{vars 16042}# + #{val-exps 16043}# + #{body-exp 16044}#) + (let ((#{f 16045}# (car #{vars 16042}#)) + (#{f-name 16046}# (car #{ids 16041}#)) + (#{vars 16047}# (cdr #{vars 16042}#)) + (#{ids 16048}# (cdr #{ids 16041}#))) + (let ((#{proc 16049}# + (let ((#{body 16069}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 18006}# - #{ids 18014}# + #{src 16040}# + #{ids 16048}# #f #f #f '() - #{vars 18013}# - #{body-exp 18010}# + #{vars 16047}# + #{body-exp 16044}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 18006}# + #{src 16040}# '() - #{body 18035}#)))) + #{body 16069}#)))) (begin - (if (if (struct? #{proc 18015}#) - (eq? (struct-vtable #{proc 18015}#) + (if (if (struct? #{proc 16049}#) + (eq? (struct-vtable #{proc 16049}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 18059}# (struct-ref #{proc 18015}# 1))) - (if (not (assq 'name #{meta 18059}#)) - (let ((#{v 18066}# - (cons (cons 'name #{f-name 18012}#) - #{meta 18059}#))) - (struct-set! #{proc 18015}# 1 #{v 18066}#))))) + (let ((#{meta 16093}# (struct-ref #{proc 16049}# 1))) + (if (not (assq 'name #{meta 16093}#)) + (let ((#{v 16100}# + (cons (cons 'name #{f-name 16046}#) + #{meta 16093}#))) + (struct-set! #{proc 16049}# 1 #{v 16100}#))))) (for-each - #{maybe-name-value! 6254}# - #{ids 18014}# - #{val-exps 18009}#) - (let ((#{names 18090}# (list #{f-name 18012}#)) - (#{gensyms 18091}# (list #{f 18011}#)) - (#{vals 18092}# (list #{proc 18015}#)) - (#{body 18093}# - (let ((#{fun-exp 18097}# + #{maybe-name-value! 4278}# + #{ids 16048}# + #{val-exps 16043}#) + (let ((#{names 16124}# (list #{f-name 16046}#)) + (#{gensyms 16125}# (list #{f 16045}#)) + (#{vals 16126}# (list #{proc 16049}#)) + (#{body 16127}# + (let ((#{fun-exp 16131}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 18006}# - #{f-name 18012}# - #{f 18011}#))) + #{src 16040}# + #{f-name 16046}# + #{f 16045}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 18006}# - #{fun-exp 18097}# - #{val-exps 18009}#)))) + #{src 16040}# + #{fun-exp 16131}# + #{val-exps 16043}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 18006}# + #{src 16040}# #f - #{names 18090}# - #{gensyms 18091}# - #{vals 18092}# - #{body 18093}#))))))) - (#{build-letrec 6273}# - (lambda (#{src 18113}# - #{in-order? 18114}# - #{ids 18115}# - #{vars 18116}# - #{val-exps 18117}# - #{body-exp 18118}#) - (if (null? #{vars 18116}#) - #{body-exp 18118}# + #{names 16124}# + #{gensyms 16125}# + #{vals 16126}# + #{body 16127}#))))))) + (#{build-letrec 4297}# + (lambda (#{src 16147}# + #{in-order? 16148}# + #{ids 16149}# + #{vars 16150}# + #{val-exps 16151}# + #{body-exp 16152}#) + (if (null? #{vars 16150}#) + #{body-exp 16152}# (begin (for-each - #{maybe-name-value! 6254}# - #{ids 18115}# - #{val-exps 18117}#) + #{maybe-name-value! 4278}# + #{ids 16149}# + #{val-exps 16151}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 18113}# - #{in-order? 18114}# - #{ids 18115}# - #{vars 18116}# - #{val-exps 18117}# - #{body-exp 18118}#))))) - (#{source-annotation 6282}# - (lambda (#{x 18144}#) - (if (if (vector? #{x 18144}#) - (if (= (vector-length #{x 18144}#) 4) - (eq? (vector-ref #{x 18144}# 0) 'syntax-object) + #{src 16147}# + #{in-order? 16148}# + #{ids 16149}# + #{vars 16150}# + #{val-exps 16151}# + #{body-exp 16152}#))))) + (#{source-annotation 4306}# + (lambda (#{x 16178}#) + (if (if (vector? #{x 16178}#) + (if (= (vector-length #{x 16178}#) 4) + (eq? (vector-ref #{x 16178}# 0) 'syntax-object) #f) #f) - (#{source-annotation 6282}# - (vector-ref #{x 18144}# 1)) - (if (pair? #{x 18144}#) - (let ((#{props 18159}# (source-properties #{x 18144}#))) - (if (pair? #{props 18159}#) #{props 18159}# #f)) + (#{source-annotation 4306}# + (vector-ref #{x 16178}# 1)) + (if (pair? #{x 16178}#) + (let ((#{props 16193}# (source-properties #{x 16178}#))) + (if (pair? #{props 16193}#) #{props 16193}# #f)) #f)))) - (#{extend-env 6283}# - (lambda (#{labels 18161}# #{bindings 18162}# #{r 18163}#) - (if (null? #{labels 18161}#) - #{r 18163}# - (#{extend-env 6283}# - (cdr #{labels 18161}#) - (cdr #{bindings 18162}#) - (cons (cons (car #{labels 18161}#) - (car #{bindings 18162}#)) - #{r 18163}#))))) - (#{extend-var-env 6284}# - (lambda (#{labels 18164}# #{vars 18165}# #{r 18166}#) - (if (null? #{labels 18164}#) - #{r 18166}# - (#{extend-var-env 6284}# - (cdr #{labels 18164}#) - (cdr #{vars 18165}#) - (cons (cons (car #{labels 18164}#) - (cons 'lexical (car #{vars 18165}#))) - #{r 18166}#))))) - (#{macros-only-env 6285}# - (lambda (#{r 18167}#) - (if (null? #{r 18167}#) + (#{extend-env 4307}# + (lambda (#{labels 16195}# #{bindings 16196}# #{r 16197}#) + (if (null? #{labels 16195}#) + #{r 16197}# + (#{extend-env 4307}# + (cdr #{labels 16195}#) + (cdr #{bindings 16196}#) + (cons (cons (car #{labels 16195}#) + (car #{bindings 16196}#)) + #{r 16197}#))))) + (#{extend-var-env 4308}# + (lambda (#{labels 16198}# #{vars 16199}# #{r 16200}#) + (if (null? #{labels 16198}#) + #{r 16200}# + (#{extend-var-env 4308}# + (cdr #{labels 16198}#) + (cdr #{vars 16199}#) + (cons (cons (car #{labels 16198}#) + (cons 'lexical (car #{vars 16199}#))) + #{r 16200}#))))) + (#{macros-only-env 4309}# + (lambda (#{r 16201}#) + (if (null? #{r 16201}#) '() - (let ((#{a 18168}# (car #{r 18167}#))) - (if (eq? (car (cdr #{a 18168}#)) 'macro) - (cons #{a 18168}# - (#{macros-only-env 6285}# (cdr #{r 18167}#))) - (#{macros-only-env 6285}# (cdr #{r 18167}#))))))) - (#{global-extend 6287}# - (lambda (#{type 18170}# #{sym 18171}# #{val 18172}#) + (let ((#{a 16202}# (car #{r 16201}#))) + (if (eq? (car (cdr #{a 16202}#)) 'macro) + (cons #{a 16202}# + (#{macros-only-env 4309}# (cdr #{r 16201}#))) + (#{macros-only-env 4309}# (cdr #{r 16201}#))))))) + (#{global-extend 4311}# + (lambda (#{type 16204}# #{sym 16205}# #{val 16206}#) (module-define! (current-module) - #{sym 18171}# + #{sym 16205}# (make-syntax-transformer - #{sym 18171}# - #{type 18170}# - #{val 18172}#)))) - (#{id? 6289}# - (lambda (#{x 12346}#) - (if (symbol? #{x 12346}#) + #{sym 16205}# + #{type 16204}# + #{val 16206}#)))) + (#{id? 4313}# + (lambda (#{x 10370}#) + (if (symbol? #{x 10370}#) #t - (if (if (vector? #{x 12346}#) - (if (= (vector-length #{x 12346}#) 4) - (eq? (vector-ref #{x 12346}# 0) 'syntax-object) + (if (if (vector? #{x 10370}#) + (if (= (vector-length #{x 10370}#) 4) + (eq? (vector-ref #{x 10370}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 12346}# 1)) + (symbol? (vector-ref #{x 10370}# 1)) #f)))) - (#{gen-labels 6292}# - (lambda (#{ls 18182}#) - (if (null? #{ls 18182}#) + (#{gen-labels 4316}# + (lambda (#{ls 16216}#) + (if (null? #{ls 16216}#) '() (cons (symbol->string (gensym "i")) - (#{gen-labels 6292}# (cdr #{ls 18182}#)))))) - (#{make-binding-wrap 6303}# - (lambda (#{ids 18186}# #{labels 18187}# #{w 18188}#) - (if (null? #{ids 18186}#) - #{w 18188}# - (cons (car #{w 18188}#) - (cons (let ((#{labelvec 18189}# - (list->vector #{labels 18187}#))) - (let ((#{n 18190}# (vector-length #{labelvec 18189}#))) - (let ((#{symnamevec 18191}# (make-vector #{n 18190}#)) - (#{marksvec 18192}# (make-vector #{n 18190}#))) + (#{gen-labels 4316}# (cdr #{ls 16216}#)))))) + (#{make-binding-wrap 4327}# + (lambda (#{ids 16220}# #{labels 16221}# #{w 16222}#) + (if (null? #{ids 16220}#) + #{w 16222}# + (cons (car #{w 16222}#) + (cons (let ((#{labelvec 16223}# + (list->vector #{labels 16221}#))) + (let ((#{n 16224}# (vector-length #{labelvec 16223}#))) + (let ((#{symnamevec 16225}# (make-vector #{n 16224}#)) + (#{marksvec 16226}# (make-vector #{n 16224}#))) (begin (letrec* - ((#{f 18193}# - (lambda (#{ids 18196}# #{i 18197}#) - (if (not (null? #{ids 18196}#)) + ((#{f 16227}# + (lambda (#{ids 16230}# #{i 16231}#) + (if (not (null? #{ids 16230}#)) (call-with-values (lambda () - (let ((#{x 18200}# - (car #{ids 18196}#))) - (if (if (vector? #{x 18200}#) + (let ((#{x 16234}# + (car #{ids 16230}#))) + (if (if (vector? #{x 16234}#) (if (= (vector-length - #{x 18200}#) + #{x 16234}#) 4) (eq? (vector-ref - #{x 18200}# + #{x 16234}# 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 18200}# 1) - (let ((#{m1 18216}# - (car #{w 18188}#)) - (#{m2 18217}# + (vector-ref #{x 16234}# 1) + (let ((#{m1 16250}# + (car #{w 16222}#)) + (#{m2 16251}# (car (vector-ref - #{x 18200}# + #{x 16234}# 2)))) - (if (null? #{m2 18217}#) - #{m1 18216}# + (if (null? #{m2 16251}#) + #{m1 16250}# (append - #{m1 18216}# - #{m2 18217}#)))) + #{m1 16250}# + #{m2 16251}#)))) (values - #{x 18200}# - (car #{w 18188}#))))) - (lambda (#{symname 18237}# - #{marks 18238}#) + #{x 16234}# + (car #{w 16222}#))))) + (lambda (#{symname 16271}# + #{marks 16272}#) (begin (vector-set! - #{symnamevec 18191}# - #{i 18197}# - #{symname 18237}#) + #{symnamevec 16225}# + #{i 16231}# + #{symname 16271}#) (vector-set! - #{marksvec 18192}# - #{i 18197}# - #{marks 18238}#) - (#{f 18193}# - (cdr #{ids 18196}#) - (#{1+}# #{i 18197}#))))))))) - (#{f 18193}# #{ids 18186}# 0)) + #{marksvec 16226}# + #{i 16231}# + #{marks 16272}#) + (#{f 16227}# + (cdr #{ids 16230}#) + (#{1+}# #{i 16231}#))))))))) + (#{f 16227}# #{ids 16220}# 0)) (vector 'ribcage - #{symnamevec 18191}# - #{marksvec 18192}# - #{labelvec 18189}#))))) - (cdr #{w 18188}#)))))) - (#{join-wraps 6305}# - (lambda (#{w1 18247}# #{w2 18248}#) - (let ((#{m1 18249}# (car #{w1 18247}#)) - (#{s1 18250}# (cdr #{w1 18247}#))) - (if (null? #{m1 18249}#) - (if (null? #{s1 18250}#) - #{w2 18248}# - (cons (car #{w2 18248}#) - (let ((#{m2 18257}# (cdr #{w2 18248}#))) - (if (null? #{m2 18257}#) - #{s1 18250}# - (append #{s1 18250}# #{m2 18257}#))))) - (cons (let ((#{m2 18266}# (car #{w2 18248}#))) - (if (null? #{m2 18266}#) - #{m1 18249}# - (append #{m1 18249}# #{m2 18266}#))) - (let ((#{m2 18275}# (cdr #{w2 18248}#))) - (if (null? #{m2 18275}#) - #{s1 18250}# - (append #{s1 18250}# #{m2 18275}#)))))))) - (#{same-marks? 6307}# - (lambda (#{x 18280}# #{y 18281}#) - (if (eq? #{x 18280}# #{y 18281}#) - (eq? #{x 18280}# #{y 18281}#) - (if (not (null? #{x 18280}#)) - (if (not (null? #{y 18281}#)) - (if (eq? (car #{x 18280}#) (car #{y 18281}#)) - (#{same-marks? 6307}# - (cdr #{x 18280}#) - (cdr #{y 18281}#)) + #{symnamevec 16225}# + #{marksvec 16226}# + #{labelvec 16223}#))))) + (cdr #{w 16222}#)))))) + (#{join-wraps 4329}# + (lambda (#{w1 16281}# #{w2 16282}#) + (let ((#{m1 16283}# (car #{w1 16281}#)) + (#{s1 16284}# (cdr #{w1 16281}#))) + (if (null? #{m1 16283}#) + (if (null? #{s1 16284}#) + #{w2 16282}# + (cons (car #{w2 16282}#) + (let ((#{m2 16291}# (cdr #{w2 16282}#))) + (if (null? #{m2 16291}#) + #{s1 16284}# + (append #{s1 16284}# #{m2 16291}#))))) + (cons (let ((#{m2 16300}# (car #{w2 16282}#))) + (if (null? #{m2 16300}#) + #{m1 16283}# + (append #{m1 16283}# #{m2 16300}#))) + (let ((#{m2 16309}# (cdr #{w2 16282}#))) + (if (null? #{m2 16309}#) + #{s1 16284}# + (append #{s1 16284}# #{m2 16309}#)))))))) + (#{same-marks? 4331}# + (lambda (#{x 16314}# #{y 16315}#) + (if (eq? #{x 16314}# #{y 16315}#) + (eq? #{x 16314}# #{y 16315}#) + (if (not (null? #{x 16314}#)) + (if (not (null? #{y 16315}#)) + (if (eq? (car #{x 16314}#) (car #{y 16315}#)) + (#{same-marks? 4331}# + (cdr #{x 16314}#) + (cdr #{y 16315}#)) #f) #f) #f)))) - (#{id-var-name 6308}# - (lambda (#{id 18289}# #{w 18290}#) + (#{id-var-name 4332}# + (lambda (#{id 16323}# #{w 16324}#) (letrec* - ((#{search 18291}# - (lambda (#{sym 18352}# #{subst 18353}# #{marks 18354}#) - (if (null? #{subst 18353}#) - (values #f #{marks 18354}#) - (let ((#{fst 18355}# (car #{subst 18353}#))) - (if (eq? #{fst 18355}# 'shift) - (#{search 18291}# - #{sym 18352}# - (cdr #{subst 18353}#) - (cdr #{marks 18354}#)) - (let ((#{symnames 18357}# (vector-ref #{fst 18355}# 1))) - (if (vector? #{symnames 18357}#) - (let ((#{n 18369}# (vector-length #{symnames 18357}#))) + ((#{search 16325}# + (lambda (#{sym 16386}# #{subst 16387}# #{marks 16388}#) + (if (null? #{subst 16387}#) + (values #f #{marks 16388}#) + (let ((#{fst 16389}# (car #{subst 16387}#))) + (if (eq? #{fst 16389}# 'shift) + (#{search 16325}# + #{sym 16386}# + (cdr #{subst 16387}#) + (cdr #{marks 16388}#)) + (let ((#{symnames 16391}# (vector-ref #{fst 16389}# 1))) + (if (vector? #{symnames 16391}#) + (let ((#{n 16403}# (vector-length #{symnames 16391}#))) (letrec* - ((#{f 18370}# - (lambda (#{i 18372}#) - (if (= #{i 18372}# #{n 18369}#) - (#{search 18291}# - #{sym 18352}# - (cdr #{subst 18353}#) - #{marks 18354}#) + ((#{f 16404}# + (lambda (#{i 16406}#) + (if (= #{i 16406}# #{n 16403}#) + (#{search 16325}# + #{sym 16386}# + (cdr #{subst 16387}#) + #{marks 16388}#) (if (if (eq? (vector-ref - #{symnames 18357}# - #{i 18372}#) - #{sym 18352}#) - (#{same-marks? 6307}# - #{marks 18354}# + #{symnames 16391}# + #{i 16406}#) + #{sym 16386}#) + (#{same-marks? 4331}# + #{marks 16388}# (vector-ref - (vector-ref #{fst 18355}# 2) - #{i 18372}#)) + (vector-ref #{fst 16389}# 2) + #{i 16406}#)) #f) (values (vector-ref - (vector-ref #{fst 18355}# 3) - #{i 18372}#) - #{marks 18354}#) - (#{f 18370}# (#{1+}# #{i 18372}#))))))) - (#{f 18370}# 0))) + (vector-ref #{fst 16389}# 3) + #{i 16406}#) + #{marks 16388}#) + (#{f 16404}# (#{1+}# #{i 16406}#))))))) + (#{f 16404}# 0))) (letrec* - ((#{f 18405}# - (lambda (#{symnames 18407}# #{i 18408}#) - (if (null? #{symnames 18407}#) - (#{search 18291}# - #{sym 18352}# - (cdr #{subst 18353}#) - #{marks 18354}#) - (if (if (eq? (car #{symnames 18407}#) - #{sym 18352}#) - (#{same-marks? 6307}# - #{marks 18354}# + ((#{f 16439}# + (lambda (#{symnames 16441}# #{i 16442}#) + (if (null? #{symnames 16441}#) + (#{search 16325}# + #{sym 16386}# + (cdr #{subst 16387}#) + #{marks 16388}#) + (if (if (eq? (car #{symnames 16441}#) + #{sym 16386}#) + (#{same-marks? 4331}# + #{marks 16388}# (list-ref - (vector-ref #{fst 18355}# 2) - #{i 18408}#)) + (vector-ref #{fst 16389}# 2) + #{i 16442}#)) #f) (values (list-ref - (vector-ref #{fst 18355}# 3) - #{i 18408}#) - #{marks 18354}#) - (#{f 18405}# - (cdr #{symnames 18407}#) - (#{1+}# #{i 18408}#))))))) - (#{f 18405}# #{symnames 18357}# 0)))))))))) - (if (symbol? #{id 18289}#) - (let ((#{t 18294}# - (#{search 18291}# - #{id 18289}# - (cdr #{w 18290}#) - (car #{w 18290}#)))) - (if #{t 18294}# #{t 18294}# #{id 18289}#)) - (if (if (vector? #{id 18289}#) - (if (= (vector-length #{id 18289}#) 4) - (eq? (vector-ref #{id 18289}# 0) 'syntax-object) + (vector-ref #{fst 16389}# 3) + #{i 16442}#) + #{marks 16388}#) + (#{f 16439}# + (cdr #{symnames 16441}#) + (#{1+}# #{i 16442}#))))))) + (#{f 16439}# #{symnames 16391}# 0)))))))))) + (if (symbol? #{id 16323}#) + (let ((#{t 16328}# + (#{search 16325}# + #{id 16323}# + (cdr #{w 16324}#) + (car #{w 16324}#)))) + (if #{t 16328}# #{t 16328}# #{id 16323}#)) + (if (if (vector? #{id 16323}#) + (if (= (vector-length #{id 16323}#) 4) + (eq? (vector-ref #{id 16323}# 0) 'syntax-object) #f) #f) - (let ((#{id 18309}# (vector-ref #{id 18289}# 1)) - (#{w1 18310}# (vector-ref #{id 18289}# 2))) - (let ((#{marks 18311}# - (let ((#{m1 18321}# (car #{w 18290}#)) - (#{m2 18322}# (car #{w1 18310}#))) - (if (null? #{m2 18322}#) - #{m1 18321}# - (append #{m1 18321}# #{m2 18322}#))))) + (let ((#{id 16343}# (vector-ref #{id 16323}# 1)) + (#{w1 16344}# (vector-ref #{id 16323}# 2))) + (let ((#{marks 16345}# + (let ((#{m1 16355}# (car #{w 16324}#)) + (#{m2 16356}# (car #{w1 16344}#))) + (if (null? #{m2 16356}#) + #{m1 16355}# + (append #{m1 16355}# #{m2 16356}#))))) (call-with-values (lambda () - (#{search 18291}# - #{id 18309}# - (cdr #{w 18290}#) - #{marks 18311}#)) - (lambda (#{new-id 18338}# #{marks 18339}#) - (if #{new-id 18338}# - #{new-id 18338}# - (let ((#{t 18347}# - (#{search 18291}# - #{id 18309}# - (cdr #{w1 18310}#) - #{marks 18339}#))) - (if #{t 18347}# #{t 18347}# #{id 18309}#))))))) + (#{search 16325}# + #{id 16343}# + (cdr #{w 16324}#) + #{marks 16345}#)) + (lambda (#{new-id 16372}# #{marks 16373}#) + (if #{new-id 16372}# + #{new-id 16372}# + (let ((#{t 16381}# + (#{search 16325}# + #{id 16343}# + (cdr #{w1 16344}#) + #{marks 16373}#))) + (if #{t 16381}# #{t 16381}# #{id 16343}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 18289}#)))))) - (#{valid-bound-ids? 6311}# - (lambda (#{ids 18430}#) + #{id 16323}#)))))) + (#{valid-bound-ids? 4335}# + (lambda (#{ids 16464}#) (if (letrec* - ((#{all-ids? 18431}# - (lambda (#{ids 18593}#) - (if (null? #{ids 18593}#) - (null? #{ids 18593}#) - (if (let ((#{x 18604}# (car #{ids 18593}#))) - (if (symbol? #{x 18604}#) + ((#{all-ids? 16465}# + (lambda (#{ids 16627}#) + (if (null? #{ids 16627}#) + (null? #{ids 16627}#) + (if (let ((#{x 16638}# (car #{ids 16627}#))) + (if (symbol? #{x 16638}#) #t - (if (if (vector? #{x 18604}#) - (if (= (vector-length #{x 18604}#) 4) - (eq? (vector-ref #{x 18604}# 0) + (if (if (vector? #{x 16638}#) + (if (= (vector-length #{x 16638}#) 4) + (eq? (vector-ref #{x 16638}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 18604}# 1)) + (symbol? (vector-ref #{x 16638}# 1)) #f))) - (#{all-ids? 18431}# (cdr #{ids 18593}#)) + (#{all-ids? 16465}# (cdr #{ids 16627}#)) #f))))) - (#{all-ids? 18431}# #{ids 18430}#)) - (#{distinct-bound-ids? 6312}# #{ids 18430}#) + (#{all-ids? 16465}# #{ids 16464}#)) + (#{distinct-bound-ids? 4336}# #{ids 16464}#) #f))) - (#{distinct-bound-ids? 6312}# - (lambda (#{ids 18732}#) + (#{distinct-bound-ids? 4336}# + (lambda (#{ids 16766}#) (letrec* - ((#{distinct? 18733}# - (lambda (#{ids 18845}#) - (if (null? #{ids 18845}#) - (null? #{ids 18845}#) - (if (not (#{bound-id-member? 6313}# - (car #{ids 18845}#) - (cdr #{ids 18845}#))) - (#{distinct? 18733}# (cdr #{ids 18845}#)) + ((#{distinct? 16767}# + (lambda (#{ids 16879}#) + (if (null? #{ids 16879}#) + (null? #{ids 16879}#) + (if (not (#{bound-id-member? 4337}# + (car #{ids 16879}#) + (cdr #{ids 16879}#))) + (#{distinct? 16767}# (cdr #{ids 16879}#)) #f))))) - (#{distinct? 18733}# #{ids 18732}#)))) - (#{bound-id-member? 6313}# - (lambda (#{x 19055}# #{list 19056}#) - (if (not (null? #{list 19056}#)) - (let ((#{t 19057}# - (let ((#{j 19138}# (car #{list 19056}#))) - (if (if (if (vector? #{x 19055}#) - (if (= (vector-length #{x 19055}#) 4) - (eq? (vector-ref #{x 19055}# 0) 'syntax-object) + (#{distinct? 16767}# #{ids 16766}#)))) + (#{bound-id-member? 4337}# + (lambda (#{x 17089}# #{list 17090}#) + (if (not (null? #{list 17090}#)) + (let ((#{t 17091}# + (let ((#{j 17172}# (car #{list 17090}#))) + (if (if (if (vector? #{x 17089}#) + (if (= (vector-length #{x 17089}#) 4) + (eq? (vector-ref #{x 17089}# 0) 'syntax-object) #f) #f) - (if (vector? #{j 19138}#) - (if (= (vector-length #{j 19138}#) 4) - (eq? (vector-ref #{j 19138}# 0) 'syntax-object) + (if (vector? #{j 17172}#) + (if (= (vector-length #{j 17172}#) 4) + (eq? (vector-ref #{j 17172}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 19055}# 1) - (vector-ref #{j 19138}# 1)) - (#{same-marks? 6307}# - (car (vector-ref #{x 19055}# 2)) - (car (vector-ref #{j 19138}# 2))) + (if (eq? (vector-ref #{x 17089}# 1) + (vector-ref #{j 17172}# 1)) + (#{same-marks? 4331}# + (car (vector-ref #{x 17089}# 2)) + (car (vector-ref #{j 17172}# 2))) #f) - (eq? #{x 19055}# #{j 19138}#))))) - (if #{t 19057}# - #{t 19057}# - (#{bound-id-member? 6313}# - #{x 19055}# - (cdr #{list 19056}#)))) + (eq? #{x 17089}# #{j 17172}#))))) + (if #{t 17091}# + #{t 17091}# + (#{bound-id-member? 4337}# + #{x 17089}# + (cdr #{list 17090}#)))) #f))) - (#{wrap 6314}# - (lambda (#{x 19182}# #{w 19183}# #{defmod 19184}#) - (if (if (null? (car #{w 19183}#)) - (null? (cdr #{w 19183}#)) + (#{wrap 4338}# + (lambda (#{x 17216}# #{w 17217}# #{defmod 17218}#) + (if (if (null? (car #{w 17217}#)) + (null? (cdr #{w 17217}#)) #f) - #{x 19182}# - (if (if (vector? #{x 19182}#) - (if (= (vector-length #{x 19182}#) 4) - (eq? (vector-ref #{x 19182}# 0) 'syntax-object) + #{x 17216}# + (if (if (vector? #{x 17216}#) + (if (= (vector-length #{x 17216}#) 4) + (eq? (vector-ref #{x 17216}# 0) 'syntax-object) #f) #f) - (let ((#{expression 19198}# (vector-ref #{x 19182}# 1)) - (#{wrap 19199}# - (#{join-wraps 6305}# - #{w 19183}# - (vector-ref #{x 19182}# 2))) - (#{module 19200}# (vector-ref #{x 19182}# 3))) + (let ((#{expression 17232}# (vector-ref #{x 17216}# 1)) + (#{wrap 17233}# + (#{join-wraps 4329}# + #{w 17217}# + (vector-ref #{x 17216}# 2))) + (#{module 17234}# (vector-ref #{x 17216}# 3))) (vector 'syntax-object - #{expression 19198}# - #{wrap 19199}# - #{module 19200}#)) - (if (null? #{x 19182}#) - #{x 19182}# + #{expression 17232}# + #{wrap 17233}# + #{module 17234}#)) + (if (null? #{x 17216}#) + #{x 17216}# (vector 'syntax-object - #{x 19182}# - #{w 19183}# - #{defmod 19184}#)))))) - (#{source-wrap 6315}# - (lambda (#{x 19217}# - #{w 19218}# - #{s 19219}# - #{defmod 19220}#) - (#{wrap 6314}# + #{x 17216}# + #{w 17217}# + #{defmod 17218}#)))))) + (#{source-wrap 4339}# + (lambda (#{x 17251}# + #{w 17252}# + #{s 17253}# + #{defmod 17254}#) + (#{wrap 4338}# (begin - (if (if (pair? #{x 19217}#) #{s 19219}# #f) - (set-source-properties! #{x 19217}# #{s 19219}#)) - #{x 19217}#) - #{w 19218}# - #{defmod 19220}#))) - (#{expand-sequence 6316}# - (lambda (#{body 29469}# - #{r 29470}# - #{w 29471}# - #{s 29472}# - #{mod 29473}#) - (#{build-sequence 6270}# - #{s 29472}# + (if (if (pair? #{x 17251}#) #{s 17253}# #f) + (set-source-properties! #{x 17251}# #{s 17253}#)) + #{x 17251}#) + #{w 17252}# + #{defmod 17254}#))) + (#{expand-sequence 4340}# + (lambda (#{body 27560}# + #{r 27561}# + #{w 27562}# + #{s 27563}# + #{mod 27564}#) + (#{build-sequence 4294}# + #{s 27563}# (letrec* - ((#{dobody 29553}# - (lambda (#{body 29903}# - #{r 29904}# - #{w 29905}# - #{mod 29906}#) - (if (null? #{body 29903}#) + ((#{dobody 27644}# + (lambda (#{body 27994}# + #{r 27995}# + #{w 27996}# + #{mod 27997}#) + (if (null? #{body 27994}#) '() - (let ((#{first 29907}# - (let ((#{e 29911}# (car #{body 29903}#))) + (let ((#{first 27998}# + (let ((#{e 28002}# (car #{body 27994}#))) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 29911}# - #{r 29904}# - #{w 29905}# - (#{source-annotation 6282}# #{e 29911}#) + (#{syntax-type 4344}# + #{e 28002}# + #{r 27995}# + #{w 27996}# + (#{source-annotation 4306}# #{e 28002}#) #f - #{mod 29906}# + #{mod 27997}# #f)) - (lambda (#{type 29918}# - #{value 29919}# - #{e 29920}# - #{w 29921}# - #{s 29922}# - #{mod 29923}#) - (#{expand-expr 6322}# - #{type 29918}# - #{value 29919}# - #{e 29920}# - #{r 29904}# - #{w 29921}# - #{s 29922}# - #{mod 29923}#)))))) - (cons #{first 29907}# - (#{dobody 29553}# - (cdr #{body 29903}#) - #{r 29904}# - #{w 29905}# - #{mod 29906}#))))))) - (#{dobody 29553}# - #{body 29469}# - #{r 29470}# - #{w 29471}# - #{mod 29473}#))))) - (#{expand-top-sequence 6317}# - (lambda (#{body 19238}# - #{r 19239}# - #{w 19240}# - #{s 19241}# - #{m 19242}# - #{esew 19243}# - #{mod 19244}#) + (lambda (#{type 28009}# + #{value 28010}# + #{e 28011}# + #{w 28012}# + #{s 28013}# + #{mod 28014}#) + (#{expand-expr 4346}# + #{type 28009}# + #{value 28010}# + #{e 28011}# + #{r 27995}# + #{w 28012}# + #{s 28013}# + #{mod 28014}#)))))) + (cons #{first 27998}# + (#{dobody 27644}# + (cdr #{body 27994}#) + #{r 27995}# + #{w 27996}# + #{mod 27997}#))))))) + (#{dobody 27644}# + #{body 27560}# + #{r 27561}# + #{w 27562}# + #{mod 27564}#))))) + (#{expand-top-sequence 4341}# + (lambda (#{body 17272}# + #{r 17273}# + #{w 17274}# + #{s 17275}# + #{m 17276}# + #{esew 17277}# + #{mod 17278}#) (letrec* - ((#{scan 19245}# - (lambda (#{body 19376}# - #{r 19377}# - #{w 19378}# - #{s 19379}# - #{m 19380}# - #{esew 19381}# - #{mod 19382}# - #{exps 19383}#) - (if (null? #{body 19376}#) - #{exps 19383}# + ((#{scan 17279}# + (lambda (#{body 17410}# + #{r 17411}# + #{w 17412}# + #{s 17413}# + #{m 17414}# + #{esew 17415}# + #{mod 17416}# + #{exps 17417}#) + (if (null? #{body 17410}#) + #{exps 17417}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e 19384}# (car #{body 19376}#))) - (#{syntax-type 6320}# - #{e 19384}# - #{r 19377}# - #{w 19378}# - (let ((#{t 19388}# - (#{source-annotation 6282}# #{e 19384}#))) - (if #{t 19388}# #{t 19388}# #{s 19379}#)) + (let ((#{e 17418}# (car #{body 17410}#))) + (#{syntax-type 4344}# + #{e 17418}# + #{r 17411}# + #{w 17412}# + (let ((#{t 17422}# + (#{source-annotation 4306}# #{e 17418}#))) + (if #{t 17422}# #{t 17422}# #{s 17413}#)) #f - #{mod 19382}# + #{mod 17416}# #f))) - (lambda (#{type 19623}# - #{value 19624}# - #{e 19625}# - #{w 19626}# - #{s 19627}# - #{mod 19628}#) - (if (eqv? #{type 19623}# 'begin-form) - (let ((#{tmp 19633}# - ($sc-dispatch #{e 19625}# '(_)))) - (if #{tmp 19633}# - (@apply (lambda () #{exps 19383}#) #{tmp 19633}#) - (let ((#{tmp 19637}# + (lambda (#{type 17657}# + #{value 17658}# + #{e 17659}# + #{w 17660}# + #{s 17661}# + #{mod 17662}#) + (if (eqv? #{type 17657}# 'begin-form) + (let ((#{tmp 17667}# + ($sc-dispatch #{e 17659}# '(_)))) + (if #{tmp 17667}# + (@apply (lambda () #{exps 17417}#) #{tmp 17667}#) + (let ((#{tmp 17671}# ($sc-dispatch - #{e 19625}# + #{e 17659}# '(_ any . each-any)))) - (if #{tmp 19637}# + (if #{tmp 17671}# (@apply - (lambda (#{e1 19641}# #{e2 19642}#) - (#{scan 19245}# - (cons #{e1 19641}# #{e2 19642}#) - #{r 19377}# - #{w 19626}# - #{s 19627}# - #{m 19380}# - #{esew 19381}# - #{mod 19628}# - #{exps 19383}#)) - #{tmp 19637}#) + (lambda (#{e1 17675}# #{e2 17676}#) + (#{scan 17279}# + (cons #{e1 17675}# #{e2 17676}#) + #{r 17411}# + #{w 17660}# + #{s 17661}# + #{m 17414}# + #{esew 17415}# + #{mod 17662}# + #{exps 17417}#)) + #{tmp 17671}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 19625}#))))) - (if (eqv? #{type 19623}# 'local-syntax-form) - (#{expand-local-syntax 6326}# - #{value 19624}# - #{e 19625}# - #{r 19377}# - #{w 19626}# - #{s 19627}# - #{mod 19628}# - (lambda (#{body 19657}# - #{r 19658}# - #{w 19659}# - #{s 19660}# - #{mod 19661}#) - (#{scan 19245}# - #{body 19657}# - #{r 19658}# - #{w 19659}# - #{s 19660}# - #{m 19380}# - #{esew 19381}# - #{mod 19661}# - #{exps 19383}#))) - (if (eqv? #{type 19623}# 'eval-when-form) - (let ((#{tmp 19666}# + #{e 17659}#))))) + (if (eqv? #{type 17657}# 'local-syntax-form) + (#{expand-local-syntax 4350}# + #{value 17658}# + #{e 17659}# + #{r 17411}# + #{w 17660}# + #{s 17661}# + #{mod 17662}# + (lambda (#{body 17691}# + #{r 17692}# + #{w 17693}# + #{s 17694}# + #{mod 17695}#) + (#{scan 17279}# + #{body 17691}# + #{r 17692}# + #{w 17693}# + #{s 17694}# + #{m 17414}# + #{esew 17415}# + #{mod 17695}# + #{exps 17417}#))) + (if (eqv? #{type 17657}# 'eval-when-form) + (let ((#{tmp 17700}# ($sc-dispatch - #{e 19625}# + #{e 17659}# '(_ each-any any . each-any)))) - (if #{tmp 19666}# + (if #{tmp 17700}# (@apply - (lambda (#{x 19670}# - #{e1 19671}# - #{e2 19672}#) - (let ((#{when-list 19673}# - (#{parse-when-list 6319}# - #{e 19625}# - #{x 19670}#)) - (#{body 19674}# - (cons #{e1 19671}# - #{e2 19672}#))) - (if (eq? #{m 19380}# 'e) - (if (memq 'eval #{when-list 19673}#) - (#{scan 19245}# - #{body 19674}# - #{r 19377}# - #{w 19626}# - #{s 19627}# + (lambda (#{x 17704}# + #{e1 17705}# + #{e2 17706}#) + (let ((#{when-list 17707}# + (#{parse-when-list 4343}# + #{e 17659}# + #{x 17704}#)) + (#{body 17708}# + (cons #{e1 17705}# + #{e2 17706}#))) + (if (eq? #{m 17414}# 'e) + (if (memq 'eval #{when-list 17707}#) + (#{scan 17279}# + #{body 17708}# + #{r 17411}# + #{w 17660}# + #{s 17661}# (if (memq 'expand - #{when-list 19673}#) + #{when-list 17707}#) 'c&e 'e) '(eval) - #{mod 19628}# - #{exps 19383}#) + #{mod 17662}# + #{exps 17417}#) (begin (if (memq 'expand - #{when-list 19673}#) - (let ((#{x 19751}# - (#{expand-top-sequence 6317}# - #{body 19674}# - #{r 19377}# - #{w 19626}# - #{s 19627}# + #{when-list 17707}#) + (let ((#{x 17785}# + (#{expand-top-sequence 4341}# + #{body 17708}# + #{r 17411}# + #{w 17660}# + #{s 17661}# 'e '(eval) - #{mod 19628}#))) + #{mod 17662}#))) (primitive-eval - #{x 19751}#))) - (values #{exps 19383}#))) - (if (memq 'load #{when-list 19673}#) - (if (let ((#{t 19777}# + #{x 17785}#))) + (values #{exps 17417}#))) + (if (memq 'load #{when-list 17707}#) + (if (let ((#{t 17811}# (memq 'compile - #{when-list 19673}#))) - (if #{t 19777}# - #{t 19777}# - (let ((#{t 19826}# + #{when-list 17707}#))) + (if #{t 17811}# + #{t 17811}# + (let ((#{t 17860}# (memq 'expand - #{when-list 19673}#))) - (if #{t 19826}# - #{t 19826}# - (if (eq? #{m 19380}# + #{when-list 17707}#))) + (if #{t 17860}# + #{t 17860}# + (if (eq? #{m 17414}# 'c&e) (memq 'eval - #{when-list 19673}#) + #{when-list 17707}#) #f))))) - (#{scan 19245}# - #{body 19674}# - #{r 19377}# - #{w 19626}# - #{s 19627}# + (#{scan 17279}# + #{body 17708}# + #{r 17411}# + #{w 17660}# + #{s 17661}# 'c&e '(compile load) - #{mod 19628}# - #{exps 19383}#) - (if (if (eq? #{m 19380}# 'c) + #{mod 17662}# + #{exps 17417}#) + (if (if (eq? #{m 17414}# 'c) #t - (eq? #{m 19380}# 'c&e)) - (#{scan 19245}# - #{body 19674}# - #{r 19377}# - #{w 19626}# - #{s 19627}# + (eq? #{m 17414}# 'c&e)) + (#{scan 17279}# + #{body 17708}# + #{r 17411}# + #{w 17660}# + #{s 17661}# 'c '(load) - #{mod 19628}# - #{exps 19383}#) - (values #{exps 19383}#))) - (if (let ((#{t 19955}# + #{mod 17662}# + #{exps 17417}#) + (values #{exps 17417}#))) + (if (let ((#{t 17989}# (memq 'compile - #{when-list 19673}#))) - (if #{t 19955}# - #{t 19955}# - (let ((#{t 20004}# + #{when-list 17707}#))) + (if #{t 17989}# + #{t 17989}# + (let ((#{t 18038}# (memq 'expand - #{when-list 19673}#))) - (if #{t 20004}# - #{t 20004}# - (if (eq? #{m 19380}# + #{when-list 17707}#))) + (if #{t 18038}# + #{t 18038}# + (if (eq? #{m 17414}# 'c&e) (memq 'eval - #{when-list 19673}#) + #{when-list 17707}#) #f))))) (begin - (let ((#{x 20128}# - (#{expand-top-sequence 6317}# - #{body 19674}# - #{r 19377}# - #{w 19626}# - #{s 19627}# + (let ((#{x 18162}# + (#{expand-top-sequence 4341}# + #{body 17708}# + #{r 17411}# + #{w 17660}# + #{s 17661}# 'e '(eval) - #{mod 19628}#))) - (primitive-eval #{x 20128}#)) - (values #{exps 19383}#)) - (values #{exps 19383}#)))))) - #{tmp 19666}#) + #{mod 17662}#))) + (primitive-eval #{x 18162}#)) + (values #{exps 17417}#)) + (values #{exps 17417}#)))))) + #{tmp 17700}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 19625}#))) - (if (eqv? #{type 19623}# 'define-syntax-form) - (let ((#{n 20169}# - (#{id-var-name 6308}# - #{value 19624}# - #{w 19626}#)) - (#{r 20170}# - (#{macros-only-env 6285}# - #{r 19377}#))) - (if (eqv? #{m 19380}# 'c) - (if (memq 'compile #{esew 19381}#) - (let ((#{e 20174}# - (#{expand-install-global 6318}# - #{n 20169}# - (#{expand 6321}# - #{e 19625}# - #{r 20170}# - #{w 19626}# - #{mod 19628}#)))) + #{e 17659}#))) + (if (if (eqv? #{type 17657}# 'define-syntax-form) + #t + (eqv? #{type 17657}# + 'define-syntax-parameter-form)) + (let ((#{n 18208}# + (#{id-var-name 4332}# + #{value 17658}# + #{w 17660}#)) + (#{r 18209}# + (#{macros-only-env 4309}# + #{r 17411}#))) + (if (eqv? #{m 17414}# 'c) + (if (memq 'compile #{esew 17415}#) + (let ((#{e 18213}# + (#{expand-install-global 4342}# + #{n 18208}# + (#{expand 4345}# + #{e 17659}# + #{r 18209}# + #{w 17660}# + #{mod 17662}#)))) (begin - (#{top-level-eval-hook 6249}# - #{e 20174}# - #{mod 19628}#) - (if (memq 'load #{esew 19381}#) + (#{top-level-eval-hook 4273}# + #{e 18213}# + #{mod 17662}#) + (if (memq 'load #{esew 17415}#) (values - (cons #{e 20174}# - #{exps 19383}#)) - (values #{exps 19383}#)))) - (if (memq 'load #{esew 19381}#) + (cons #{e 18213}# + #{exps 17417}#)) + (values #{exps 17417}#)))) + (if (memq 'load #{esew 17415}#) (values - (cons (#{expand-install-global 6318}# - #{n 20169}# - (#{expand 6321}# - #{e 19625}# - #{r 20170}# - #{w 19626}# - #{mod 19628}#)) - #{exps 19383}#)) - (values #{exps 19383}#))) - (if (eqv? #{m 19380}# 'c&e) - (let ((#{e 20621}# - (#{expand-install-global 6318}# - #{n 20169}# - (#{expand 6321}# - #{e 19625}# - #{r 20170}# - #{w 19626}# - #{mod 19628}#)))) + (cons (#{expand-install-global 4342}# + #{n 18208}# + (#{expand 4345}# + #{e 17659}# + #{r 18209}# + #{w 17660}# + #{mod 17662}#)) + #{exps 17417}#)) + (values #{exps 17417}#))) + (if (eqv? #{m 17414}# 'c&e) + (let ((#{e 18660}# + (#{expand-install-global 4342}# + #{n 18208}# + (#{expand 4345}# + #{e 17659}# + #{r 18209}# + #{w 17660}# + #{mod 17662}#)))) (begin - (#{top-level-eval-hook 6249}# - #{e 20621}# - #{mod 19628}#) + (#{top-level-eval-hook 4273}# + #{e 18660}# + #{mod 17662}#) (values - (cons #{e 20621}# - #{exps 19383}#)))) + (cons #{e 18660}# + #{exps 17417}#)))) (begin - (if (memq 'eval #{esew 19381}#) - (#{top-level-eval-hook 6249}# - (#{expand-install-global 6318}# - #{n 20169}# - (#{expand 6321}# - #{e 19625}# - #{r 20170}# - #{w 19626}# - #{mod 19628}#)) - #{mod 19628}#)) - (values #{exps 19383}#))))) - (if (eqv? #{type 19623}# 'define-form) - (let ((#{n 21256}# - (#{id-var-name 6308}# - #{value 19624}# - #{w 19626}#))) - (let ((#{type 21257}# - (car (let ((#{t 22001}# - (assq #{n 21256}# - #{r 19377}#))) - (if #{t 22001}# - (cdr #{t 22001}#) - (if (symbol? #{n 21256}#) - (let ((#{t 22006}# + (if (memq 'eval #{esew 17415}#) + (#{top-level-eval-hook 4273}# + (#{expand-install-global 4342}# + #{n 18208}# + (#{expand 4345}# + #{e 17659}# + #{r 18209}# + #{w 17660}# + #{mod 17662}#)) + #{mod 17662}#)) + (values #{exps 17417}#))))) + (if (eqv? #{type 17657}# 'define-form) + (let ((#{n 19295}# + (#{id-var-name 4332}# + #{value 17658}# + #{w 17660}#))) + (let ((#{type 19296}# + (car (let ((#{t 20040}# + (assq #{n 19295}# + #{r 17411}#))) + (if #{t 20040}# + (cdr #{t 20040}#) + (if (symbol? #{n 19295}#) + (let ((#{t 20045}# (begin - (if (if (not #{mod 19628}#) + (if (if (not #{mod 17662}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 21256}#)) - (let ((#{v 22043}# + #{n 19295}#)) + (let ((#{v 20082}# (module-variable - (if #{mod 19628}# + (if #{mod 17662}# (resolve-module - (cdr #{mod 19628}#)) + (cdr #{mod 17662}#)) (current-module)) - #{n 21256}#))) - (if #{v 22043}# + #{n 19295}#))) + (if #{v 20082}# (if (variable-bound? - #{v 22043}#) - (let ((#{val 22052}# + #{v 20082}#) + (let ((#{val 20091}# (variable-ref - #{v 22043}#))) + #{v 20082}#))) (if (macro? - #{val 22052}#) + #{val 20091}#) (if (macro-type - #{val 22052}#) + #{val 20091}#) (cons (macro-type - #{val 22052}#) + #{val 20091}#) (macro-binding - #{val 22052}#)) + #{val 20091}#)) #f) #f)) #f) #f))))) - (if #{t 22006}# - #{t 22006}# + (if #{t 20045}# + #{t 20045}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 21291}# #{type 21257}#)) - (if (eqv? #{t 21291}# 'global) + (if (let ((#{t 19330}# #{type 19296}#)) + (if (eqv? #{t 19330}# 'global) #t - (if (eqv? #{t 21291}# 'core) + (if (eqv? #{t 19330}# 'core) #t - (if (eqv? #{t 21291}# 'macro) + (if (eqv? #{t 19330}# 'macro) #t - (eqv? #{t 21291}# + (eqv? #{t 19330}# 'module-ref))))) (begin - (if (if (if (eq? #{m 19380}# 'c) + (if (if (if (eq? #{m 17414}# 'c) #t - (eq? #{m 19380}# 'c&e)) + (eq? #{m 17414}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 21256}#)) + #{n 19295}#)) (current-module) #f) #f) - (let ((#{old 21455}# + (let ((#{old 19494}# (module-variable (current-module) - #{n 21256}#))) - (if (if (variable? #{old 21455}#) + #{n 19295}#))) + (if (if (variable? #{old 19494}#) (variable-bound? - #{old 21455}#) + #{old 19494}#) #f) (module-define! (current-module) - #{n 21256}# - (variable-ref #{old 21455}#)) + #{n 19295}# + (variable-ref #{old 19494}#)) (module-add! (current-module) - #{n 21256}# + #{n 19295}# (make-undefined-variable))))) (values - (cons (if (eq? #{m 19380}# 'c&e) - (let ((#{x 21457}# - (#{build-global-definition 6264}# - #{s 19627}# - #{n 21256}# - (#{expand 6321}# - #{e 19625}# - #{r 19377}# - #{w 19626}# - #{mod 19628}#)))) + (cons (if (eq? #{m 17414}# 'c&e) + (let ((#{x 19496}# + (#{build-global-definition 4288}# + #{s 17661}# + #{n 19295}# + (#{expand 4345}# + #{e 17659}# + #{r 17411}# + #{w 17660}# + #{mod 17662}#)))) (begin - (#{top-level-eval-hook 6249}# - #{x 21457}# - #{mod 19628}#) - #{x 21457}#)) + (#{top-level-eval-hook 4273}# + #{x 19496}# + #{mod 17662}#) + #{x 19496}#)) (lambda () - (#{build-global-definition 6264}# - #{s 19627}# - #{n 21256}# - (#{expand 6321}# - #{e 19625}# - #{r 19377}# - #{w 19626}# - #{mod 19628}#)))) - #{exps 19383}#))) - (if (let ((#{t 21928}# #{type 21257}#)) - (eqv? #{t 21928}# + (#{build-global-definition 4288}# + #{s 17661}# + #{n 19295}# + (#{expand 4345}# + #{e 17659}# + #{r 17411}# + #{w 17660}# + #{mod 17662}#)))) + #{exps 17417}#))) + (if (let ((#{t 19967}# #{type 19296}#)) + (eqv? #{t 19967}# 'displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e 19625}# - (#{wrap 6314}# - #{value 19624}# - #{w 19626}# - #{mod 19628}#)) + #{e 17659}# + (#{wrap 4338}# + #{value 17658}# + #{w 17660}# + #{mod 17662}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 19625}# - (#{wrap 6314}# - #{value 19624}# - #{w 19626}# - #{mod 19628}#)))))) + #{e 17659}# + (#{wrap 4338}# + #{value 17658}# + #{w 17660}# + #{mod 17662}#)))))) (values - (cons (if (eq? #{m 19380}# 'c&e) - (let ((#{x 22063}# - (#{expand-expr 6322}# - #{type 19623}# - #{value 19624}# - #{e 19625}# - #{r 19377}# - #{w 19626}# - #{s 19627}# - #{mod 19628}#))) + (cons (if (eq? #{m 17414}# 'c&e) + (let ((#{x 20102}# + (#{expand-expr 4346}# + #{type 17657}# + #{value 17658}# + #{e 17659}# + #{r 17411}# + #{w 17660}# + #{s 17661}# + #{mod 17662}#))) (begin - (primitive-eval #{x 22063}#) - #{x 22063}#)) + (primitive-eval #{x 20102}#) + #{x 20102}#)) (lambda () - (#{expand-expr 6322}# - #{type 19623}# - #{value 19624}# - #{e 19625}# - #{r 19377}# - #{w 19626}# - #{s 19627}# - #{mod 19628}#))) - #{exps 19383}#)))))))))) - (lambda (#{exps 22072}#) - (#{scan 19245}# - (cdr #{body 19376}#) - #{r 19377}# - #{w 19378}# - #{s 19379}# - #{m 19380}# - #{esew 19381}# - #{mod 19382}# - #{exps 22072}#))))))) + (#{expand-expr 4346}# + #{type 17657}# + #{value 17658}# + #{e 17659}# + #{r 17411}# + #{w 17660}# + #{s 17661}# + #{mod 17662}#))) + #{exps 17417}#)))))))))) + (lambda (#{exps 20111}#) + (#{scan 17279}# + (cdr #{body 17410}#) + #{r 17411}# + #{w 17412}# + #{s 17413}# + #{m 17414}# + #{esew 17415}# + #{mod 17416}# + #{exps 20111}#))))))) (call-with-values (lambda () - (#{scan 19245}# - #{body 19238}# - #{r 19239}# - #{w 19240}# - #{s 19241}# - #{m 19242}# - #{esew 19243}# - #{mod 19244}# + (#{scan 17279}# + #{body 17272}# + #{r 17273}# + #{w 17274}# + #{s 17275}# + #{m 17276}# + #{esew 17277}# + #{mod 17278}# '())) - (lambda (#{exps 19248}#) - (if (null? #{exps 19248}#) + (lambda (#{exps 17282}#) + (if (null? #{exps 17282}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s 19241}#) - (#{build-sequence 6270}# - #{s 19241}# + #{s 17275}#) + (#{build-sequence 4294}# + #{s 17275}# (letrec* - ((#{lp 19288}# - (lambda (#{in 19372}# #{out 19373}#) - (if (null? #{in 19372}#) - #{out 19373}# - (let ((#{e 19374}# (car #{in 19372}#))) - (#{lp 19288}# - (cdr #{in 19372}#) - (cons (if (procedure? #{e 19374}#) - (#{e 19374}#) - #{e 19374}#) - #{out 19373}#))))))) - (#{lp 19288}# #{exps 19248}# '()))))))))) - (#{expand-install-global 6318}# - (lambda (#{name 22073}# #{e 22074}#) - (let ((#{exp 22080}# - (let ((#{fun-exp 22090}# + ((#{lp 17322}# + (lambda (#{in 17406}# #{out 17407}#) + (if (null? #{in 17406}#) + #{out 17407}# + (let ((#{e 17408}# (car #{in 17406}#))) + (#{lp 17322}# + (cdr #{in 17406}#) + (cons (if (procedure? #{e 17408}#) + (#{e 17408}#) + #{e 17408}#) + #{out 17407}#))))))) + (#{lp 17322}# #{exps 17282}# '()))))))))) + (#{expand-install-global 4342}# + (lambda (#{name 20112}# #{e 20113}#) + (let ((#{exp 20119}# + (let ((#{fun-exp 20129}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1238,416 +1241,416 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps 22091}# + (#{arg-exps 20130}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 22073}#) + #{name 20112}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 22074}#))) + #{e 20113}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 22090}# - #{arg-exps 22091}#)))) + #{fun-exp 20129}# + #{arg-exps 20130}#)))) (begin - (if (if (struct? #{exp 22080}#) - (eq? (struct-vtable #{exp 22080}#) + (if (if (struct? #{exp 20119}#) + (eq? (struct-vtable #{exp 20119}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 22132}# (struct-ref #{exp 22080}# 1))) - (if (not (assq 'name #{meta 22132}#)) - (let ((#{v 22139}# - (cons (cons 'name #{name 22073}#) #{meta 22132}#))) - (struct-set! #{exp 22080}# 1 #{v 22139}#))))) + (let ((#{meta 20171}# (struct-ref #{exp 20119}# 1))) + (if (not (assq 'name #{meta 20171}#)) + (let ((#{v 20178}# + (cons (cons 'name #{name 20112}#) #{meta 20171}#))) + (struct-set! #{exp 20119}# 1 #{v 20178}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 22073}# - #{exp 22080}#))))) - (#{parse-when-list 6319}# - (lambda (#{e 22150}# #{when-list 22151}#) - (let ((#{result 22152}# - (#{strip 6334}# #{when-list 22151}# '(())))) + #{name 20112}# + #{exp 20119}#))))) + (#{parse-when-list 4343}# + (lambda (#{e 20189}# #{when-list 20190}#) + (let ((#{result 20191}# + (#{strip 4358}# #{when-list 20190}# '(())))) (letrec* - ((#{lp 22153}# - (lambda (#{l 22207}#) - (if (null? #{l 22207}#) - #{result 22152}# - (if (let ((#{t 22209}# (car #{l 22207}#))) - (if (eq? #{t 22209}# 'compile) + ((#{lp 20192}# + (lambda (#{l 20246}#) + (if (null? #{l 20246}#) + #{result 20191}# + (if (let ((#{t 20248}# (car #{l 20246}#))) + (if (eq? #{t 20248}# 'compile) #t - (if (eq? #{t 22209}# 'load) + (if (eq? #{t 20248}# 'load) #t - (if (eq? #{t 22209}# 'eval) + (if (eq? #{t 20248}# 'eval) #t - (eq? #{t 22209}# 'expand))))) - (#{lp 22153}# (cdr #{l 22207}#)) + (eq? #{t 20248}# 'expand))))) + (#{lp 20192}# (cdr #{l 20246}#)) (syntax-violation 'eval-when "invalid situation" - #{e 22150}# - (car #{l 22207}#))))))) - (#{lp 22153}# #{result 22152}#))))) - (#{syntax-type 6320}# - (lambda (#{e 22211}# - #{r 22212}# - #{w 22213}# - #{s 22214}# - #{rib 22215}# - #{mod 22216}# - #{for-car? 22217}#) - (if (symbol? #{e 22211}#) - (let ((#{n 22218}# - (#{id-var-name 6308}# #{e 22211}# #{w 22213}#))) - (let ((#{b 22219}# - (let ((#{t 22794}# (assq #{n 22218}# #{r 22212}#))) - (if #{t 22794}# - (cdr #{t 22794}#) - (if (symbol? #{n 22218}#) - (let ((#{t 22799}# + #{e 20189}# + (car #{l 20246}#))))))) + (#{lp 20192}# #{result 20191}#))))) + (#{syntax-type 4344}# + (lambda (#{e 20250}# + #{r 20251}# + #{w 20252}# + #{s 20253}# + #{rib 20254}# + #{mod 20255}# + #{for-car? 20256}#) + (if (symbol? #{e 20250}#) + (let ((#{n 20257}# + (#{id-var-name 4332}# #{e 20250}# #{w 20252}#))) + (let ((#{b 20258}# + (let ((#{t 20833}# (assq #{n 20257}# #{r 20251}#))) + (if #{t 20833}# + (cdr #{t 20833}#) + (if (symbol? #{n 20257}#) + (let ((#{t 20838}# (begin - (if (if (not #{mod 22216}#) + (if (if (not #{mod 20255}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 22218}#)) - (let ((#{v 22836}# + #{n 20257}#)) + (let ((#{v 20875}# (module-variable - (if #{mod 22216}# + (if #{mod 20255}# (resolve-module - (cdr #{mod 22216}#)) + (cdr #{mod 20255}#)) (current-module)) - #{n 22218}#))) - (if #{v 22836}# - (if (variable-bound? #{v 22836}#) - (let ((#{val 22845}# - (variable-ref #{v 22836}#))) - (if (macro? #{val 22845}#) - (if (macro-type #{val 22845}#) - (cons (macro-type #{val 22845}#) + #{n 20257}#))) + (if #{v 20875}# + (if (variable-bound? #{v 20875}#) + (let ((#{val 20884}# + (variable-ref #{v 20875}#))) + (if (macro? #{val 20884}#) + (if (macro-type #{val 20884}#) + (cons (macro-type #{val 20884}#) (macro-binding - #{val 22845}#)) + #{val 20884}#)) #f) #f)) #f) #f))))) - (if #{t 22799}# #{t 22799}# '(global))) + (if #{t 20838}# #{t 20838}# '(global))) '(displaced-lexical)))))) - (let ((#{type 22220}# (car #{b 22219}#))) - (if (let ((#{t 22254}# #{type 22220}#)) - (eqv? #{t 22254}# 'lexical)) + (let ((#{type 20259}# (car #{b 20258}#))) + (if (let ((#{t 20293}# #{type 20259}#)) + (eqv? #{t 20293}# 'lexical)) (values - #{type 22220}# - (cdr #{b 22219}#) - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (let ((#{t 22411}# #{type 22220}#)) - (eqv? #{t 22411}# 'global)) + #{type 20259}# + (cdr #{b 20258}#) + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (let ((#{t 20450}# #{type 20259}#)) + (eqv? #{t 20450}# 'global)) (values - #{type 22220}# - #{n 22218}# - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (let ((#{t 22537}# #{type 22220}#)) - (eqv? #{t 22537}# 'macro)) - (if #{for-car? 22217}# + #{type 20259}# + #{n 20257}# + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (let ((#{t 20576}# #{type 20259}#)) + (eqv? #{t 20576}# 'macro)) + (if #{for-car? 20256}# (values - #{type 22220}# - (cdr #{b 22219}#) - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (#{syntax-type 6320}# - (#{expand-macro 6324}# - (cdr #{b 22219}#) - #{e 22211}# - #{r 22212}# - #{w 22213}# - #{s 22214}# - #{rib 22215}# - #{mod 22216}#) - #{r 22212}# + #{type 20259}# + (cdr #{b 20258}#) + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (#{syntax-type 4344}# + (#{expand-macro 4348}# + (cdr #{b 20258}#) + #{e 20250}# + #{r 20251}# + #{w 20252}# + #{s 20253}# + #{rib 20254}# + #{mod 20255}#) + #{r 20251}# '(()) - #{s 22214}# - #{rib 22215}# - #{mod 22216}# + #{s 20253}# + #{rib 20254}# + #{mod 20255}# #f)) (values - #{type 22220}# - (cdr #{b 22219}#) - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#))))))) - (if (pair? #{e 22211}#) - (let ((#{first 22856}# (car #{e 22211}#))) + #{type 20259}# + (cdr #{b 20258}#) + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#))))))) + (if (pair? #{e 20250}#) + (let ((#{first 20895}# (car #{e 20250}#))) (call-with-values (lambda () - (#{syntax-type 6320}# - #{first 22856}# - #{r 22212}# - #{w 22213}# - #{s 22214}# - #{rib 22215}# - #{mod 22216}# + (#{syntax-type 4344}# + #{first 20895}# + #{r 20251}# + #{w 20252}# + #{s 20253}# + #{rib 20254}# + #{mod 20255}# #t)) - (lambda (#{ftype 22858}# - #{fval 22859}# - #{fe 22860}# - #{fw 22861}# - #{fs 22862}# - #{fmod 22863}#) - (if (eqv? #{ftype 22858}# 'lexical) + (lambda (#{ftype 20897}# + #{fval 20898}# + #{fe 20899}# + #{fw 20900}# + #{fs 20901}# + #{fmod 20902}#) + (if (eqv? #{ftype 20897}# 'lexical) (values 'lexical-call - #{fval 22859}# - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (eqv? #{ftype 22858}# 'global) + #{fval 20898}# + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (eqv? #{ftype 20897}# 'global) (values 'global-call (vector 'syntax-object - #{fval 22859}# - #{w 22213}# - #{fmod 22863}#) - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (eqv? #{ftype 22858}# 'macro) - (#{syntax-type 6320}# - (#{expand-macro 6324}# - #{fval 22859}# - #{e 22211}# - #{r 22212}# - #{w 22213}# - #{s 22214}# - #{rib 22215}# - #{mod 22216}#) - #{r 22212}# + #{fval 20898}# + #{w 20252}# + #{fmod 20902}#) + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (eqv? #{ftype 20897}# 'macro) + (#{syntax-type 4344}# + (#{expand-macro 4348}# + #{fval 20898}# + #{e 20250}# + #{r 20251}# + #{w 20252}# + #{s 20253}# + #{rib 20254}# + #{mod 20255}#) + #{r 20251}# '(()) - #{s 22214}# - #{rib 22215}# - #{mod 22216}# - #{for-car? 22217}#) - (if (eqv? #{ftype 22858}# 'module-ref) + #{s 20253}# + #{rib 20254}# + #{mod 20255}# + #{for-car? 20256}#) + (if (eqv? #{ftype 20897}# 'module-ref) (call-with-values (lambda () - (#{fval 22859}# - #{e 22211}# - #{r 22212}# - #{w 22213}#)) - (lambda (#{e 22884}# - #{r 22885}# - #{w 22886}# - #{s 22887}# - #{mod 22888}#) - (#{syntax-type 6320}# - #{e 22884}# - #{r 22885}# - #{w 22886}# - #{s 22887}# - #{rib 22215}# - #{mod 22888}# - #{for-car? 22217}#))) - (if (eqv? #{ftype 22858}# 'core) + (#{fval 20898}# + #{e 20250}# + #{r 20251}# + #{w 20252}#)) + (lambda (#{e 20923}# + #{r 20924}# + #{w 20925}# + #{s 20926}# + #{mod 20927}#) + (#{syntax-type 4344}# + #{e 20923}# + #{r 20924}# + #{w 20925}# + #{s 20926}# + #{rib 20254}# + #{mod 20927}# + #{for-car? 20256}#))) + (if (eqv? #{ftype 20897}# 'core) (values 'core-form - #{fval 22859}# - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (eqv? #{ftype 22858}# 'local-syntax) + #{fval 20898}# + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (eqv? #{ftype 20897}# 'local-syntax) (values 'local-syntax-form - #{fval 22859}# - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (eqv? #{ftype 22858}# 'begin) + #{fval 20898}# + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (eqv? #{ftype 20897}# 'begin) (values 'begin-form #f - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (eqv? #{ftype 22858}# 'eval-when) + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (eqv? #{ftype 20897}# 'eval-when) (values 'eval-when-form #f - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) - (if (eqv? #{ftype 22858}# 'define) - (let ((#{tmp 22905}# + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) + (if (eqv? #{ftype 20897}# 'define) + (let ((#{tmp 20944}# ($sc-dispatch - #{e 22211}# + #{e 20250}# '(_ any any)))) - (if (if #{tmp 22905}# + (if (if #{tmp 20944}# (@apply - (lambda (#{name 22909}# - #{val 22910}#) - (if (symbol? #{name 22909}#) + (lambda (#{name 20948}# + #{val 20949}#) + (if (symbol? #{name 20948}#) #t (if (if (vector? - #{name 22909}#) + #{name 20948}#) (if (= (vector-length - #{name 22909}#) + #{name 20948}#) 4) (eq? (vector-ref - #{name 22909}# + #{name 20948}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 22909}# + #{name 20948}# 1)) #f))) - #{tmp 22905}#) + #{tmp 20944}#) #f) (@apply - (lambda (#{name 22937}# #{val 22938}#) + (lambda (#{name 20976}# #{val 20977}#) (values 'define-form - #{name 22937}# - #{val 22938}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#)) - #{tmp 22905}#) - (let ((#{tmp 22939}# + #{name 20976}# + #{val 20977}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#)) + #{tmp 20944}#) + (let ((#{tmp 20978}# ($sc-dispatch - #{e 22211}# + #{e 20250}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 22939}# + (if (if #{tmp 20978}# (@apply - (lambda (#{name 22943}# - #{args 22944}# - #{e1 22945}# - #{e2 22946}#) + (lambda (#{name 20982}# + #{args 20983}# + #{e1 20984}# + #{e2 20985}#) (if (if (symbol? - #{name 22943}#) + #{name 20982}#) #t (if (if (vector? - #{name 22943}#) + #{name 20982}#) (if (= (vector-length - #{name 22943}#) + #{name 20982}#) 4) (eq? (vector-ref - #{name 22943}# + #{name 20982}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 22943}# + #{name 20982}# 1)) #f)) - (#{valid-bound-ids? 6311}# + (#{valid-bound-ids? 4335}# (letrec* - ((#{lvl 23095}# - (lambda (#{vars 23097}# - #{ls 23098}# - #{w 23099}#) - (if (pair? #{vars 23097}#) - (#{lvl 23095}# - (cdr #{vars 23097}#) - (cons (#{wrap 6314}# - (car #{vars 23097}#) - #{w 23099}# + ((#{lvl 21134}# + (lambda (#{vars 21136}# + #{ls 21137}# + #{w 21138}#) + (if (pair? #{vars 21136}#) + (#{lvl 21134}# + (cdr #{vars 21136}#) + (cons (#{wrap 4338}# + (car #{vars 21136}#) + #{w 21138}# #f) - #{ls 23098}#) - #{w 23099}#) + #{ls 21137}#) + #{w 21138}#) (if (if (symbol? - #{vars 23097}#) + #{vars 21136}#) #t (if (if (vector? - #{vars 23097}#) + #{vars 21136}#) (if (= (vector-length - #{vars 23097}#) + #{vars 21136}#) 4) (eq? (vector-ref - #{vars 23097}# + #{vars 21136}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars 23097}# + #{vars 21136}# 1)) #f)) - (cons (#{wrap 6314}# - #{vars 23097}# - #{w 23099}# + (cons (#{wrap 4338}# + #{vars 21136}# + #{w 21138}# #f) - #{ls 23098}#) - (if (null? #{vars 23097}#) - #{ls 23098}# + #{ls 21137}#) + (if (null? #{vars 21136}#) + #{ls 21137}# (if (if (vector? - #{vars 23097}#) + #{vars 21136}#) (if (= (vector-length - #{vars 23097}#) + #{vars 21136}#) 4) (eq? (vector-ref - #{vars 23097}# + #{vars 21136}# 0) 'syntax-object) #f) #f) - (#{lvl 23095}# + (#{lvl 21134}# (vector-ref - #{vars 23097}# + #{vars 21136}# 1) - #{ls 23098}# - (#{join-wraps 6305}# - #{w 23099}# + #{ls 21137}# + (#{join-wraps 4329}# + #{w 21138}# (vector-ref - #{vars 23097}# + #{vars 21136}# 2))) - (cons #{vars 23097}# - #{ls 23098}#)))))))) - (#{lvl 23095}# - #{args 22944}# + (cons #{vars 21136}# + #{ls 21137}#)))))))) + (#{lvl 21134}# + #{args 20983}# '() '(())))) #f)) - #{tmp 22939}#) + #{tmp 20978}#) #f) (@apply - (lambda (#{name 23143}# - #{args 23144}# - #{e1 23145}# - #{e2 23146}#) + (lambda (#{name 21182}# + #{args 21183}# + #{e1 21184}# + #{e2 21185}#) (values 'define-form - (#{wrap 6314}# - #{name 23143}# - #{w 22213}# - #{mod 22216}#) - (let ((#{e 23152}# + (#{wrap 4338}# + #{name 21182}# + #{w 20252}# + #{mod 20255}#) + (let ((#{e 21191}# (cons '#(syntax-object lambda ((top) @@ -1660,10 +1663,10 @@ (top) (top) (top)) - #("i3830" - "i3831" - "i3832" - "i3833")) + #("i1843" + "i1844" + "i1845" + "i1846")) #(ribcage () () @@ -1685,12 +1688,12 @@ (top) (top) (top)) - #("i3783" - "i3784" - "i3785" - "i3786" - "i3787" - "i3788")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () @@ -1698,7 +1701,7 @@ #(ribcage #(first) #((top)) - #("i3775")) + #("i1788")) #(ribcage () () @@ -1726,13 +1729,13 @@ (top) (top) (top)) - #("i3747" - "i3748" - "i3749" - "i3750" - "i3751" - "i3752" - "i3753")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -2006,142 +2009,142 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors @@ -2149,72 +2152,72 @@ ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile)) - (#{wrap 6314}# - (cons #{args 23144}# - (cons #{e1 23145}# - #{e2 23146}#)) - #{w 22213}# - #{mod 22216}#)))) + (#{wrap 4338}# + (cons #{args 21183}# + (cons #{e1 21184}# + #{e2 21185}#)) + #{w 20252}# + #{mod 20255}#)))) (begin - (if (if (pair? #{e 23152}#) - #{s 22214}# + (if (if (pair? #{e 21191}#) + #{s 20253}# #f) (set-source-properties! - #{e 23152}# - #{s 22214}#)) - #{e 23152}#)) + #{e 21191}# + #{s 20253}#)) + #{e 21191}#)) '(()) - #{s 22214}# - #{mod 22216}#)) - #{tmp 22939}#) - (let ((#{tmp 23159}# + #{s 20253}# + #{mod 20255}#)) + #{tmp 20978}#) + (let ((#{tmp 21198}# ($sc-dispatch - #{e 22211}# + #{e 20250}# '(_ any)))) - (if (if #{tmp 23159}# + (if (if #{tmp 21198}# (@apply - (lambda (#{name 23163}#) + (lambda (#{name 21202}#) (if (symbol? - #{name 23163}#) + #{name 21202}#) #t (if (if (vector? - #{name 23163}#) + #{name 21202}#) (if (= (vector-length - #{name 23163}#) + #{name 21202}#) 4) (eq? (vector-ref - #{name 23163}# + #{name 21202}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 23163}# + #{name 21202}# 1)) #f))) - #{tmp 23159}#) + #{tmp 21198}#) #f) (@apply - (lambda (#{name 23190}#) + (lambda (#{name 21229}#) (values 'define-form - (#{wrap 6314}# - #{name 23190}# - #{w 22213}# - #{mod 22216}#) + (#{wrap 4338}# + #{name 21229}# + #{w 20252}# + #{mod 20255}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i3843")) + #("i1856")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2230,17 +2233,17 @@ (top) (top) (top)) - #("i3783" - "i3784" - "i3785" - "i3786" - "i3787" - "i3788")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i3775")) + #("i1788")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2259,13 +2262,13 @@ (top) (top) (top)) - #("i3747" - "i3748" - "i3749" - "i3750" - "i3751" - "i3752" - "i3753")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -2539,150 +2542,150 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile)) #(syntax-object #f @@ -2690,7 +2693,7 @@ #(ribcage #(name) #((top)) - #("i3843")) + #("i1856")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2706,17 +2709,17 @@ (top) (top) (top)) - #("i3783" - "i3784" - "i3785" - "i3786" - "i3787" - "i3788")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i3775")) + #("i1788")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2735,13 +2738,13 @@ (top) (top) (top)) - #("i3747" - "i3748" - "i3749" - "i3750" - "i3751" - "i3752" - "i3753")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -3015,150 +3018,150 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile)) #(syntax-object #f @@ -3166,7 +3169,7 @@ #(ribcage #(name) #((top)) - #("i3843")) + #("i1856")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3182,17 +3185,17 @@ (top) (top) (top)) - #("i3783" - "i3784" - "i3785" - "i3786" - "i3787" - "i3788")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i3775")) + #("i1788")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3211,13 +3214,13 @@ (top) (top) (top)) - #("i3747" - "i3748" - "i3749" - "i3750" - "i3751" - "i3752" - "i3753")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -3491,419 +3494,464 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile))) '(()) - #{s 22214}# - #{mod 22216}#)) - #{tmp 23159}#) + #{s 20253}# + #{mod 20255}#)) + #{tmp 21198}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 22211}#))))))) - (if (eqv? #{ftype 22858}# 'define-syntax) - (let ((#{tmp 23209}# + #{e 20250}#))))))) + (if (eqv? #{ftype 20897}# 'define-syntax) + (let ((#{tmp 21248}# ($sc-dispatch - #{e 22211}# + #{e 20250}# '(_ any any)))) - (if (if #{tmp 23209}# + (if (if #{tmp 21248}# (@apply - (lambda (#{name 23213}# - #{val 23214}#) - (if (symbol? #{name 23213}#) + (lambda (#{name 21252}# + #{val 21253}#) + (if (symbol? #{name 21252}#) #t (if (if (vector? - #{name 23213}#) + #{name 21252}#) (if (= (vector-length - #{name 23213}#) + #{name 21252}#) 4) (eq? (vector-ref - #{name 23213}# + #{name 21252}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 23213}# + #{name 21252}# 1)) #f))) - #{tmp 23209}#) + #{tmp 21248}#) #f) (@apply - (lambda (#{name 23241}# - #{val 23242}#) + (lambda (#{name 21280}# + #{val 21281}#) (values 'define-syntax-form - #{name 23241}# - #{val 23242}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#)) - #{tmp 23209}#) + #{name 21280}# + #{val 21281}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#)) + #{tmp 21248}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 22211}#))) - (values - 'call - #f - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#)))))))))))))) - (if (if (vector? #{e 22211}#) - (if (= (vector-length #{e 22211}#) 4) - (eq? (vector-ref #{e 22211}# 0) 'syntax-object) + #{e 20250}#))) + (if (eqv? #{ftype 20897}# + 'define-syntax-parameter) + (let ((#{tmp 21292}# + ($sc-dispatch + #{e 20250}# + '(_ any any)))) + (if (if #{tmp 21292}# + (@apply + (lambda (#{name 21296}# + #{val 21297}#) + (if (symbol? #{name 21296}#) + #t + (if (if (vector? + #{name 21296}#) + (if (= (vector-length + #{name 21296}#) + 4) + (eq? (vector-ref + #{name 21296}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 21296}# + 1)) + #f))) + #{tmp 21292}#) + #f) + (@apply + (lambda (#{name 21324}# + #{val 21325}#) + (values + 'define-syntax-parameter-form + #{name 21324}# + #{val 21325}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#)) + #{tmp 21292}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 20250}#))) + (values + 'call + #f + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#))))))))))))))) + (if (if (vector? #{e 20250}#) + (if (= (vector-length #{e 20250}#) 4) + (eq? (vector-ref #{e 20250}# 0) 'syntax-object) #f) #f) - (#{syntax-type 6320}# - (vector-ref #{e 22211}# 1) - #{r 22212}# - (#{join-wraps 6305}# - #{w 22213}# - (vector-ref #{e 22211}# 2)) - (let ((#{t 23269}# - (#{source-annotation 6282}# #{e 22211}#))) - (if #{t 23269}# #{t 23269}# #{s 22214}#)) - #{rib 22215}# - (let ((#{t 23504}# (vector-ref #{e 22211}# 3))) - (if #{t 23504}# #{t 23504}# #{mod 22216}#)) - #{for-car? 22217}#) - (if (self-evaluating? #{e 22211}#) + (#{syntax-type 4344}# + (vector-ref #{e 20250}# 1) + #{r 20251}# + (#{join-wraps 4329}# + #{w 20252}# + (vector-ref #{e 20250}# 2)) + (let ((#{t 21352}# + (#{source-annotation 4306}# #{e 20250}#))) + (if #{t 21352}# #{t 21352}# #{s 20253}#)) + #{rib 20254}# + (let ((#{t 21587}# (vector-ref #{e 20250}# 3))) + (if #{t 21587}# #{t 21587}# #{mod 20255}#)) + #{for-car? 20256}#) + (if (self-evaluating? #{e 20250}#) (values 'constant #f - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#) + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#) (values 'other #f - #{e 22211}# - #{w 22213}# - #{s 22214}# - #{mod 22216}#))))))) - (#{expand 6321}# - (lambda (#{e 23513}# - #{r 23514}# - #{w 23515}# - #{mod 23516}#) + #{e 20250}# + #{w 20252}# + #{s 20253}# + #{mod 20255}#))))))) + (#{expand 4345}# + (lambda (#{e 21596}# + #{r 21597}# + #{w 21598}# + #{mod 21599}#) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 23513}# - #{r 23514}# - #{w 23515}# - (#{source-annotation 6282}# #{e 23513}#) + (#{syntax-type 4344}# + #{e 21596}# + #{r 21597}# + #{w 21598}# + (#{source-annotation 4306}# #{e 21596}#) #f - #{mod 23516}# + #{mod 21599}# #f)) - (lambda (#{type 23671}# - #{value 23672}# - #{e 23673}# - #{w 23674}# - #{s 23675}# - #{mod 23676}#) - (#{expand-expr 6322}# - #{type 23671}# - #{value 23672}# - #{e 23673}# - #{r 23514}# - #{w 23674}# - #{s 23675}# - #{mod 23676}#))))) - (#{expand-expr 6322}# - (lambda (#{type 23679}# - #{value 23680}# - #{e 23681}# - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}#) - (if (eqv? #{type 23679}# 'lexical) + (lambda (#{type 21754}# + #{value 21755}# + #{e 21756}# + #{w 21757}# + #{s 21758}# + #{mod 21759}#) + (#{expand-expr 4346}# + #{type 21754}# + #{value 21755}# + #{e 21756}# + #{r 21597}# + #{w 21757}# + #{s 21758}# + #{mod 21759}#))))) + (#{expand-expr 4346}# + (lambda (#{type 21762}# + #{value 21763}# + #{e 21764}# + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}#) + (if (eqv? #{type 21762}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 23684}# - #{e 23681}# - #{value 23680}#) - (if (if (eqv? #{type 23679}# 'core) + #{s 21767}# + #{e 21764}# + #{value 21763}#) + (if (if (eqv? #{type 21762}# 'core) #t - (eqv? #{type 23679}# 'core-form)) - (#{value 23680}# - #{e 23681}# - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}#) - (if (eqv? #{type 23679}# 'module-ref) + (eqv? #{type 21762}# 'core-form)) + (#{value 21763}# + #{e 21764}# + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}#) + (if (eqv? #{type 21762}# 'module-ref) (call-with-values (lambda () - (#{value 23680}# - #{e 23681}# - #{r 23682}# - #{w 23683}#)) - (lambda (#{e 23711}# - #{r 23712}# - #{w 23713}# - #{s 23714}# - #{mod 23715}#) - (#{expand 6321}# - #{e 23711}# - #{r 23712}# - #{w 23713}# - #{mod 23715}#))) - (if (eqv? #{type 23679}# 'lexical-call) - (#{expand-application 6323}# - (let ((#{id 23790}# (car #{e 23681}#))) - (#{build-lexical-reference 6259}# + (#{value 21763}# + #{e 21764}# + #{r 21765}# + #{w 21766}#)) + (lambda (#{e 21794}# + #{r 21795}# + #{w 21796}# + #{s 21797}# + #{mod 21798}#) + (#{expand 4345}# + #{e 21794}# + #{r 21795}# + #{w 21796}# + #{mod 21798}#))) + (if (eqv? #{type 21762}# 'lexical-call) + (#{expand-application 4347}# + (let ((#{id 21873}# (car #{e 21764}#))) + (#{build-lexical-reference 4283}# 'fun - (#{source-annotation 6282}# #{id 23790}#) - (if (if (vector? #{id 23790}#) - (if (= (vector-length #{id 23790}#) 4) - (eq? (vector-ref #{id 23790}# 0) 'syntax-object) + (#{source-annotation 4306}# #{id 21873}#) + (if (if (vector? #{id 21873}#) + (if (= (vector-length #{id 21873}#) 4) + (eq? (vector-ref #{id 21873}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id 23790}#) - #{id 23790}#) - #{value 23680}#)) - #{e 23681}# - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}#) - (if (eqv? #{type 23679}# 'global-call) - (#{expand-application 6323}# - (#{build-global-reference 6262}# - (#{source-annotation 6282}# (car #{e 23681}#)) - (if (if (vector? #{value 23680}#) - (if (= (vector-length #{value 23680}#) 4) - (eq? (vector-ref #{value 23680}# 0) + (syntax->datum #{id 21873}#) + #{id 21873}#) + #{value 21763}#)) + #{e 21764}# + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}#) + (if (eqv? #{type 21762}# 'global-call) + (#{expand-application 4347}# + (#{build-global-reference 4286}# + (#{source-annotation 4306}# (car #{e 21764}#)) + (if (if (vector? #{value 21763}#) + (if (= (vector-length #{value 21763}#) 4) + (eq? (vector-ref #{value 21763}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 23680}# 1) - #{value 23680}#) - (if (if (vector? #{value 23680}#) - (if (= (vector-length #{value 23680}#) 4) - (eq? (vector-ref #{value 23680}# 0) + (vector-ref #{value 21763}# 1) + #{value 21763}#) + (if (if (vector? #{value 21763}#) + (if (= (vector-length #{value 21763}#) 4) + (eq? (vector-ref #{value 21763}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 23680}# 3) - #{mod 23685}#)) - #{e 23681}# - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}#) - (if (eqv? #{type 23679}# 'constant) - (let ((#{exp 24127}# - (#{strip 6334}# - (#{wrap 6314}# + (vector-ref #{value 21763}# 3) + #{mod 21768}#)) + #{e 21764}# + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}#) + (if (eqv? #{type 21762}# 'constant) + (let ((#{exp 22210}# + (#{strip 4358}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 23681}#) #{s 23684}# #f) + (if (if (pair? #{e 21764}#) #{s 21767}# #f) (set-source-properties! - #{e 23681}# - #{s 23684}#)) - #{e 23681}#) - #{w 23683}# - #{mod 23685}#) + #{e 21764}# + #{s 21767}#)) + #{e 21764}#) + #{w 21766}# + #{mod 21768}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 23684}# - #{exp 24127}#)) - (if (eqv? #{type 23679}# 'global) - (#{analyze-variable 6261}# - #{mod 23685}# - #{value 23680}# - (lambda (#{mod 24163}# #{var 24164}# #{public? 24165}#) + #{s 21767}# + #{exp 22210}#)) + (if (eqv? #{type 21762}# 'global) + (#{analyze-variable 4285}# + #{mod 21768}# + #{value 21763}# + (lambda (#{mod 22246}# #{var 22247}# #{public? 22248}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 23684}# - #{mod 24163}# - #{var 24164}# - #{public? 24165}#)) - (lambda (#{var 24174}#) + #{s 21767}# + #{mod 22246}# + #{var 22247}# + #{public? 22248}#)) + (lambda (#{var 22257}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 23684}# - #{var 24174}#))) - (if (eqv? #{type 23679}# 'call) - (#{expand-application 6323}# - (#{expand 6321}# - (car #{e 23681}#) - #{r 23682}# - #{w 23683}# - #{mod 23685}#) - #{e 23681}# - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}#) - (if (eqv? #{type 23679}# 'begin-form) - (let ((#{tmp 24249}# + #{s 21767}# + #{var 22257}#))) + (if (eqv? #{type 21762}# 'call) + (#{expand-application 4347}# + (#{expand 4345}# + (car #{e 21764}#) + #{r 21765}# + #{w 21766}# + #{mod 21768}#) + #{e 21764}# + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}#) + (if (eqv? #{type 21762}# 'begin-form) + (let ((#{tmp 22332}# ($sc-dispatch - #{e 23681}# + #{e 21764}# '(_ any . each-any)))) - (if #{tmp 24249}# + (if #{tmp 22332}# (@apply - (lambda (#{e1 24253}# #{e2 24254}#) - (#{expand-sequence 6316}# - (cons #{e1 24253}# #{e2 24254}#) - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}#)) - #{tmp 24249}#) - (let ((#{tmp 24341}# - ($sc-dispatch #{e 23681}# '(_)))) - (if #{tmp 24341}# + (lambda (#{e1 22336}# #{e2 22337}#) + (#{expand-sequence 4340}# + (cons #{e1 22336}# #{e2 22337}#) + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}#)) + #{tmp 22332}#) + (let ((#{tmp 22424}# + ($sc-dispatch #{e 21764}# '(_)))) + (if #{tmp 22424}# (@apply (lambda () (if (include-deprecated-features) @@ -3916,797 +3964,804 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 23681}#) - #{s 23684}# + (if (if (pair? #{e 21764}#) + #{s 21767}# #f) (set-source-properties! - #{e 23681}# - #{s 23684}#)) - #{e 23681}#) - #{w 23683}# - #{mod 23685}#)))) - #{tmp 24341}#) + #{e 21764}# + #{s 21767}#)) + #{e 21764}#) + #{w 21766}# + #{mod 21768}#)))) + #{tmp 22424}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 23681}#))))) - (if (eqv? #{type 23679}# 'local-syntax-form) - (#{expand-local-syntax 6326}# - #{value 23680}# - #{e 23681}# - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}# - #{expand-sequence 6316}#) - (if (eqv? #{type 23679}# 'eval-when-form) - (let ((#{tmp 24452}# + #{e 21764}#))))) + (if (eqv? #{type 21762}# 'local-syntax-form) + (#{expand-local-syntax 4350}# + #{value 21763}# + #{e 21764}# + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}# + #{expand-sequence 4340}#) + (if (eqv? #{type 21762}# 'eval-when-form) + (let ((#{tmp 22535}# ($sc-dispatch - #{e 23681}# + #{e 21764}# '(_ each-any any . each-any)))) - (if #{tmp 24452}# + (if #{tmp 22535}# (@apply - (lambda (#{x 24456}# - #{e1 24457}# - #{e2 24458}#) - (let ((#{when-list 24459}# - (#{parse-when-list 6319}# - #{e 23681}# - #{x 24456}#))) - (if (memq 'eval #{when-list 24459}#) - (#{expand-sequence 6316}# - (cons #{e1 24457}# #{e2 24458}#) - #{r 23682}# - #{w 23683}# - #{s 23684}# - #{mod 23685}#) + (lambda (#{x 22539}# + #{e1 22540}# + #{e2 22541}#) + (let ((#{when-list 22542}# + (#{parse-when-list 4343}# + #{e 21764}# + #{x 22539}#))) + (if (memq 'eval #{when-list 22542}#) + (#{expand-sequence 4340}# + (cons #{e1 22540}# #{e2 22541}#) + #{r 21765}# + #{w 21766}# + #{s 21767}# + #{mod 21768}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp 24452}#) + #{tmp 22535}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 23681}#))) - (if (if (eqv? #{type 23679}# 'define-form) + #{e 21764}#))) + (if (if (eqv? #{type 21762}# 'define-form) #t - (eqv? #{type 23679}# 'define-syntax-form)) + (if (eqv? #{type 21762}# + 'define-syntax-form) + #t + (eqv? #{type 21762}# + 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e 23681}# - (#{wrap 6314}# - #{value 23680}# - #{w 23683}# - #{mod 23685}#)) - (if (eqv? #{type 23679}# 'syntax) + #{e 21764}# + (#{wrap 4338}# + #{value 21763}# + #{w 21766}# + #{mod 21768}#)) + (if (eqv? #{type 21762}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 23681}#) - #{s 23684}# + (if (if (pair? #{e 21764}#) + #{s 21767}# #f) (set-source-properties! - #{e 23681}# - #{s 23684}#)) - #{e 23681}#) - #{w 23683}# - #{mod 23685}#)) - (if (eqv? #{type 23679}# 'displaced-lexical) + #{e 21764}# + #{s 21767}#)) + #{e 21764}#) + #{w 21766}# + #{mod 21768}#)) + (if (eqv? #{type 21762}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 23681}#) - #{s 23684}# + (if (if (pair? #{e 21764}#) + #{s 21767}# #f) (set-source-properties! - #{e 23681}# - #{s 23684}#)) - #{e 23681}#) - #{w 23683}# - #{mod 23685}#)) + #{e 21764}# + #{s 21767}#)) + #{e 21764}#) + #{w 21766}# + #{mod 21768}#)) (syntax-violation #f "unexpected syntax" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 23681}#) - #{s 23684}# + (if (if (pair? #{e 21764}#) + #{s 21767}# #f) (set-source-properties! - #{e 23681}# - #{s 23684}#)) - #{e 23681}#) - #{w 23683}# - #{mod 23685}#)))))))))))))))))) - (#{expand-application 6323}# - (lambda (#{x 24696}# - #{e 24697}# - #{r 24698}# - #{w 24699}# - #{s 24700}# - #{mod 24701}#) - (let ((#{tmp 24703}# - ($sc-dispatch #{e 24697}# '(any . each-any)))) - (if #{tmp 24703}# + #{e 21764}# + #{s 21767}#)) + #{e 21764}#) + #{w 21766}# + #{mod 21768}#)))))))))))))))))) + (#{expand-application 4347}# + (lambda (#{x 22782}# + #{e 22783}# + #{r 22784}# + #{w 22785}# + #{s 22786}# + #{mod 22787}#) + (let ((#{tmp 22789}# + ($sc-dispatch #{e 22783}# '(any . each-any)))) + (if #{tmp 22789}# (@apply - (lambda (#{e0 24707}# #{e1 24708}#) - (#{build-application 6256}# - #{s 24700}# - #{x 24696}# - (map (lambda (#{e 24788}#) - (#{expand 6321}# - #{e 24788}# - #{r 24698}# - #{w 24699}# - #{mod 24701}#)) - #{e1 24708}#))) - #{tmp 24703}#) + (lambda (#{e0 22793}# #{e1 22794}#) + (#{build-application 4280}# + #{s 22786}# + #{x 22782}# + (map (lambda (#{e 22874}#) + (#{expand 4345}# + #{e 22874}# + #{r 22784}# + #{w 22785}# + #{mod 22787}#)) + #{e1 22794}#))) + #{tmp 22789}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 24697}#))))) - (#{expand-macro 6324}# - (lambda (#{p 24864}# - #{e 24865}# - #{r 24866}# - #{w 24867}# - #{s 24868}# - #{rib 24869}# - #{mod 24870}#) + #{e 22783}#))))) + (#{expand-macro 4348}# + (lambda (#{p 22950}# + #{e 22951}# + #{r 22952}# + #{w 22953}# + #{s 22954}# + #{rib 22955}# + #{mod 22956}#) (letrec* - ((#{rebuild-macro-output 24871}# - (lambda (#{x 24902}# #{m 24903}#) - (if (pair? #{x 24902}#) - (let ((#{e 24907}# - (cons (#{rebuild-macro-output 24871}# - (car #{x 24902}#) - #{m 24903}#) - (#{rebuild-macro-output 24871}# - (cdr #{x 24902}#) - #{m 24903}#)))) + ((#{rebuild-macro-output 22957}# + (lambda (#{x 22988}# #{m 22989}#) + (if (pair? #{x 22988}#) + (let ((#{e 22993}# + (cons (#{rebuild-macro-output 22957}# + (car #{x 22988}#) + #{m 22989}#) + (#{rebuild-macro-output 22957}# + (cdr #{x 22988}#) + #{m 22989}#)))) (begin - (if (if (pair? #{e 24907}#) #{s 24868}# #f) - (set-source-properties! #{e 24907}# #{s 24868}#)) - #{e 24907}#)) - (if (if (vector? #{x 24902}#) - (if (= (vector-length #{x 24902}#) 4) - (eq? (vector-ref #{x 24902}# 0) 'syntax-object) + (if (if (pair? #{e 22993}#) #{s 22954}# #f) + (set-source-properties! #{e 22993}# #{s 22954}#)) + #{e 22993}#)) + (if (if (vector? #{x 22988}#) + (if (= (vector-length #{x 22988}#) 4) + (eq? (vector-ref #{x 22988}# 0) 'syntax-object) #f) #f) - (let ((#{w 24923}# (vector-ref #{x 24902}# 2))) - (let ((#{ms 24924}# (car #{w 24923}#)) - (#{s 24925}# (cdr #{w 24923}#))) - (if (if (pair? #{ms 24924}#) - (eq? (car #{ms 24924}#) #f) + (let ((#{w 23009}# (vector-ref #{x 22988}# 2))) + (let ((#{ms 23010}# (car #{w 23009}#)) + (#{s 23011}# (cdr #{w 23009}#))) + (if (if (pair? #{ms 23010}#) + (eq? (car #{ms 23010}#) #f) #f) - (let ((#{expression 24933}# (vector-ref #{x 24902}# 1)) - (#{wrap 24934}# - (cons (cdr #{ms 24924}#) - (if #{rib 24869}# - (cons #{rib 24869}# (cdr #{s 24925}#)) - (cdr #{s 24925}#)))) - (#{module 24935}# (vector-ref #{x 24902}# 3))) + (let ((#{expression 23019}# (vector-ref #{x 22988}# 1)) + (#{wrap 23020}# + (cons (cdr #{ms 23010}#) + (if #{rib 22955}# + (cons #{rib 22955}# (cdr #{s 23011}#)) + (cdr #{s 23011}#)))) + (#{module 23021}# (vector-ref #{x 22988}# 3))) (vector 'syntax-object - #{expression 24933}# - #{wrap 24934}# - #{module 24935}#)) - (let ((#{expression 24945}# - (let ((#{e 24950}# (vector-ref #{x 24902}# 1))) + #{expression 23019}# + #{wrap 23020}# + #{module 23021}#)) + (let ((#{expression 23031}# + (let ((#{e 23036}# (vector-ref #{x 22988}# 1))) (begin - (if (if (pair? #{e 24950}#) #{s 24925}# #f) + (if (if (pair? #{e 23036}#) #{s 23011}# #f) (set-source-properties! - #{e 24950}# - #{s 24925}#)) - #{e 24950}#))) - (#{wrap 24946}# - (cons (cons #{m 24903}# #{ms 24924}#) - (if #{rib 24869}# - (cons #{rib 24869}# - (cons 'shift #{s 24925}#)) - (cons 'shift #{s 24925}#)))) - (#{module 24947}# (vector-ref #{x 24902}# 3))) + #{e 23036}# + #{s 23011}#)) + #{e 23036}#))) + (#{wrap 23032}# + (cons (cons #{m 22989}# #{ms 23010}#) + (if #{rib 22955}# + (cons #{rib 22955}# + (cons 'shift #{s 23011}#)) + (cons 'shift #{s 23011}#)))) + (#{module 23033}# (vector-ref #{x 22988}# 3))) (vector 'syntax-object - #{expression 24945}# - #{wrap 24946}# - #{module 24947}#))))) - (if (vector? #{x 24902}#) - (let ((#{n 24962}# (vector-length #{x 24902}#))) - (let ((#{v 24963}# - (let ((#{e 24971}# (make-vector #{n 24962}#))) + #{expression 23031}# + #{wrap 23032}# + #{module 23033}#))))) + (if (vector? #{x 22988}#) + (let ((#{n 23048}# (vector-length #{x 22988}#))) + (let ((#{v 23049}# + (let ((#{e 23057}# (make-vector #{n 23048}#))) (begin - (if (if (pair? #{e 24971}#) #{x 24902}# #f) + (if (if (pair? #{e 23057}#) #{x 22988}# #f) (set-source-properties! - #{e 24971}# - #{x 24902}#)) - #{e 24971}#)))) + #{e 23057}# + #{x 22988}#)) + #{e 23057}#)))) (letrec* - ((#{loop 24964}# - (lambda (#{i 25016}#) - (if (= #{i 25016}# #{n 24962}#) - #{v 24963}# + ((#{loop 23050}# + (lambda (#{i 23102}#) + (if (= #{i 23102}# #{n 23048}#) + #{v 23049}# (begin (vector-set! - #{v 24963}# - #{i 25016}# - (#{rebuild-macro-output 24871}# - (vector-ref #{x 24902}# #{i 25016}#) - #{m 24903}#)) - (#{loop 24964}# (#{1+}# #{i 25016}#))))))) - (#{loop 24964}# 0)))) - (if (symbol? #{x 24902}#) + #{v 23049}# + #{i 23102}# + (#{rebuild-macro-output 22957}# + (vector-ref #{x 22988}# #{i 23102}#) + #{m 22989}#)) + (#{loop 23050}# (#{1+}# #{i 23102}#))))))) + (#{loop 23050}# 0)))) + (if (symbol? #{x 22988}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 25022}# (cdr #{w 24867}#))) - (#{wrap 6314}# + (let ((#{s 23108}# (cdr #{w 22953}#))) + (#{wrap 4338}# (begin - (if (if (pair? #{e 24865}#) #{s 25022}# #f) + (if (if (pair? #{e 22951}#) #{s 23108}# #f) (set-source-properties! - #{e 24865}# - #{s 25022}#)) - #{e 24865}#) - #{w 24867}# - #{mod 24870}#)) - #{x 24902}#) + #{e 22951}# + #{s 23108}#)) + #{e 22951}#) + #{w 22953}# + #{mod 22956}#)) + #{x 22988}#) (begin - (if (if (pair? #{x 24902}#) #{s 24868}# #f) - (set-source-properties! #{x 24902}# #{s 24868}#)) - #{x 24902}#)))))))) - (#{rebuild-macro-output 24871}# - (#{p 24864}# - (let ((#{w 24878}# - (cons (cons #f (car #{w 24867}#)) - (cons 'shift (cdr #{w 24867}#))))) - (#{wrap 6314}# + (if (if (pair? #{x 22988}#) #{s 22954}# #f) + (set-source-properties! #{x 22988}# #{s 22954}#)) + #{x 22988}#)))))))) + (#{rebuild-macro-output 22957}# + (#{p 22950}# + (let ((#{w 22964}# + (cons (cons #f (car #{w 22953}#)) + (cons 'shift (cdr #{w 22953}#))))) + (#{wrap 4338}# (begin - (if (if (pair? #{e 24865}#) #{s 24868}# #f) - (set-source-properties! #{e 24865}# #{s 24868}#)) - #{e 24865}#) - #{w 24878}# - #{mod 24870}#))) + (if (if (pair? #{e 22951}#) #{s 22954}# #f) + (set-source-properties! #{e 22951}# #{s 22954}#)) + #{e 22951}#) + #{w 22964}# + #{mod 22956}#))) (gensym "m"))))) - (#{expand-body 6325}# - (lambda (#{body 25054}# - #{outer-form 25055}# - #{r 25056}# - #{w 25057}# - #{mod 25058}#) - (let ((#{r 25059}# - (cons '("placeholder" placeholder) #{r 25056}#))) - (let ((#{ribcage 25060}# (vector 'ribcage '() '() '()))) - (let ((#{w 25061}# - (cons (car #{w 25057}#) - (cons #{ribcage 25060}# (cdr #{w 25057}#))))) + (#{expand-body 4349}# + (lambda (#{body 23140}# + #{outer-form 23141}# + #{r 23142}# + #{w 23143}# + #{mod 23144}#) + (let ((#{r 23145}# + (cons '("placeholder" placeholder) #{r 23142}#))) + (let ((#{ribcage 23146}# (vector 'ribcage '() '() '()))) + (let ((#{w 23147}# + (cons (car #{w 23143}#) + (cons #{ribcage 23146}# (cdr #{w 23143}#))))) (letrec* - ((#{parse 25062}# - (lambda (#{body 25075}# - #{ids 25076}# - #{labels 25077}# - #{var-ids 25078}# - #{vars 25079}# - #{vals 25080}# - #{bindings 25081}#) - (if (null? #{body 25075}#) + ((#{parse 23148}# + (lambda (#{body 23161}# + #{ids 23162}# + #{labels 23163}# + #{var-ids 23164}# + #{vars 23165}# + #{vals 23166}# + #{bindings 23167}#) + (if (null? #{body 23161}#) (syntax-violation #f "no expressions in body" - #{outer-form 25055}#) - (let ((#{e 25082}# (cdr (car #{body 25075}#))) - (#{er 25083}# (car (car #{body 25075}#)))) + #{outer-form 23141}#) + (let ((#{e 23168}# (cdr (car #{body 23161}#))) + (#{er 23169}# (car (car #{body 23161}#)))) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 25082}# - #{er 25083}# + (#{syntax-type 4344}# + #{e 23168}# + #{er 23169}# '(()) - (#{source-annotation 6282}# #{er 25083}#) - #{ribcage 25060}# - #{mod 25058}# + (#{source-annotation 4306}# #{er 23169}#) + #{ribcage 23146}# + #{mod 23144}# #f)) - (lambda (#{type 25240}# - #{value 25241}# - #{e 25242}# - #{w 25243}# - #{s 25244}# - #{mod 25245}#) - (if (eqv? #{type 25240}# 'define-form) - (let ((#{id 25249}# - (#{wrap 6314}# - #{value 25241}# - #{w 25243}# - #{mod 25245}#)) - (#{label 25250}# + (lambda (#{type 23326}# + #{value 23327}# + #{e 23328}# + #{w 23329}# + #{s 23330}# + #{mod 23331}#) + (if (eqv? #{type 23326}# 'define-form) + (let ((#{id 23335}# + (#{wrap 4338}# + #{value 23327}# + #{w 23329}# + #{mod 23331}#)) + (#{label 23336}# (symbol->string (gensym "i")))) - (let ((#{var 25251}# - (let ((#{id 25311}# - (if (if (vector? #{id 25249}#) + (let ((#{var 23337}# + (let ((#{id 23397}# + (if (if (vector? #{id 23335}#) (if (= (vector-length - #{id 25249}#) + #{id 23335}#) 4) (eq? (vector-ref - #{id 25249}# + #{id 23335}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 25249}# 1) - #{id 25249}#))) + (vector-ref #{id 23335}# 1) + #{id 23335}#))) (gensym (string-append - (symbol->string #{id 25311}#) + (symbol->string #{id 23397}#) " "))))) (begin - (let ((#{update 25301}# - (cons (vector-ref #{id 25249}# 1) + (let ((#{update 23387}# + (cons (vector-ref #{id 23335}# 1) (vector-ref - #{ribcage 25060}# + #{ribcage 23146}# 1)))) (vector-set! - #{ribcage 25060}# + #{ribcage 23146}# 1 - #{update 25301}#)) - (let ((#{update 25303}# + #{update 23387}#)) + (let ((#{update 23389}# (cons (car (vector-ref - #{id 25249}# + #{id 23335}# 2)) (vector-ref - #{ribcage 25060}# + #{ribcage 23146}# 2)))) (vector-set! - #{ribcage 25060}# + #{ribcage 23146}# 2 - #{update 25303}#)) - (let ((#{update 25305}# - (cons #{label 25250}# + #{update 23389}#)) + (let ((#{update 23391}# + (cons #{label 23336}# (vector-ref - #{ribcage 25060}# + #{ribcage 23146}# 3)))) (vector-set! - #{ribcage 25060}# + #{ribcage 23146}# 3 - #{update 25305}#)) - (#{parse 25062}# - (cdr #{body 25075}#) - (cons #{id 25249}# #{ids 25076}#) - (cons #{label 25250}# #{labels 25077}#) - (cons #{id 25249}# #{var-ids 25078}#) - (cons #{var 25251}# #{vars 25079}#) - (cons (cons #{er 25083}# - (#{wrap 6314}# - #{e 25242}# - #{w 25243}# - #{mod 25245}#)) - #{vals 25080}#) - (cons (cons 'lexical #{var 25251}#) - #{bindings 25081}#))))) - (if (eqv? #{type 25240}# 'define-syntax-form) - (let ((#{id 25339}# - (#{wrap 6314}# - #{value 25241}# - #{w 25243}# - #{mod 25245}#)) - (#{label 25340}# + #{update 23391}#)) + (#{parse 23148}# + (cdr #{body 23161}#) + (cons #{id 23335}# #{ids 23162}#) + (cons #{label 23336}# #{labels 23163}#) + (cons #{id 23335}# #{var-ids 23164}#) + (cons #{var 23337}# #{vars 23165}#) + (cons (cons #{er 23169}# + (#{wrap 4338}# + #{e 23328}# + #{w 23329}# + #{mod 23331}#)) + #{vals 23166}#) + (cons (cons 'lexical #{var 23337}#) + #{bindings 23167}#))))) + (if (if (eqv? #{type 23326}# 'define-syntax-form) + #t + (eqv? #{type 23326}# + 'define-syntax-parameter-form)) + (let ((#{id 23430}# + (#{wrap 4338}# + #{value 23327}# + #{w 23329}# + #{mod 23331}#)) + (#{label 23431}# (symbol->string (gensym "i")))) (begin - (let ((#{update 25390}# - (cons (vector-ref #{id 25339}# 1) + (let ((#{update 23481}# + (cons (vector-ref #{id 23430}# 1) (vector-ref - #{ribcage 25060}# + #{ribcage 23146}# 1)))) (vector-set! - #{ribcage 25060}# + #{ribcage 23146}# 1 - #{update 25390}#)) - (let ((#{update 25392}# + #{update 23481}#)) + (let ((#{update 23483}# (cons (car (vector-ref - #{id 25339}# + #{id 23430}# 2)) (vector-ref - #{ribcage 25060}# + #{ribcage 23146}# 2)))) (vector-set! - #{ribcage 25060}# + #{ribcage 23146}# 2 - #{update 25392}#)) - (let ((#{update 25394}# - (cons #{label 25340}# + #{update 23483}#)) + (let ((#{update 23485}# + (cons #{label 23431}# (vector-ref - #{ribcage 25060}# + #{ribcage 23146}# 3)))) (vector-set! - #{ribcage 25060}# + #{ribcage 23146}# 3 - #{update 25394}#)) - (#{parse 25062}# - (cdr #{body 25075}#) - (cons #{id 25339}# #{ids 25076}#) - (cons #{label 25340}# #{labels 25077}#) - #{var-ids 25078}# - #{vars 25079}# - #{vals 25080}# + #{update 23485}#)) + (#{parse 23148}# + (cdr #{body 23161}#) + (cons #{id 23430}# #{ids 23162}#) + (cons #{label 23431}# #{labels 23163}#) + #{var-ids 23164}# + #{vars 23165}# + #{vals 23166}# (cons (cons 'macro - (cons #{er 25083}# - (#{wrap 6314}# - #{e 25242}# - #{w 25243}# - #{mod 25245}#))) - #{bindings 25081}#)))) - (if (eqv? #{type 25240}# 'begin-form) - (let ((#{tmp 25402}# + (cons #{er 23169}# + (#{wrap 4338}# + #{e 23328}# + #{w 23329}# + #{mod 23331}#))) + #{bindings 23167}#)))) + (if (eqv? #{type 23326}# 'begin-form) + (let ((#{tmp 23493}# ($sc-dispatch - #{e 25242}# + #{e 23328}# '(_ . each-any)))) - (if #{tmp 25402}# + (if #{tmp 23493}# (@apply - (lambda (#{e1 25406}#) - (#{parse 25062}# + (lambda (#{e1 23497}#) + (#{parse 23148}# (letrec* - ((#{f 25407}# - (lambda (#{forms 25470}#) - (if (null? #{forms 25470}#) - (cdr #{body 25075}#) - (cons (cons #{er 25083}# - (#{wrap 6314}# - (car #{forms 25470}#) - #{w 25243}# - #{mod 25245}#)) - (#{f 25407}# - (cdr #{forms 25470}#))))))) - (#{f 25407}# #{e1 25406}#)) - #{ids 25076}# - #{labels 25077}# - #{var-ids 25078}# - #{vars 25079}# - #{vals 25080}# - #{bindings 25081}#)) - #{tmp 25402}#) + ((#{f 23498}# + (lambda (#{forms 23561}#) + (if (null? #{forms 23561}#) + (cdr #{body 23161}#) + (cons (cons #{er 23169}# + (#{wrap 4338}# + (car #{forms 23561}#) + #{w 23329}# + #{mod 23331}#)) + (#{f 23498}# + (cdr #{forms 23561}#))))))) + (#{f 23498}# #{e1 23497}#)) + #{ids 23162}# + #{labels 23163}# + #{var-ids 23164}# + #{vars 23165}# + #{vals 23166}# + #{bindings 23167}#)) + #{tmp 23493}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 25242}#))) - (if (eqv? #{type 25240}# 'local-syntax-form) - (#{expand-local-syntax 6326}# - #{value 25241}# - #{e 25242}# - #{er 25083}# - #{w 25243}# - #{s 25244}# - #{mod 25245}# - (lambda (#{forms 25484}# - #{er 25485}# - #{w 25486}# - #{s 25487}# - #{mod 25488}#) - (#{parse 25062}# + #{e 23328}#))) + (if (eqv? #{type 23326}# 'local-syntax-form) + (#{expand-local-syntax 4350}# + #{value 23327}# + #{e 23328}# + #{er 23169}# + #{w 23329}# + #{s 23330}# + #{mod 23331}# + (lambda (#{forms 23575}# + #{er 23576}# + #{w 23577}# + #{s 23578}# + #{mod 23579}#) + (#{parse 23148}# (letrec* - ((#{f 25489}# - (lambda (#{forms 25552}#) - (if (null? #{forms 25552}#) - (cdr #{body 25075}#) - (cons (cons #{er 25485}# - (#{wrap 6314}# - (car #{forms 25552}#) - #{w 25486}# - #{mod 25488}#)) - (#{f 25489}# - (cdr #{forms 25552}#))))))) - (#{f 25489}# #{forms 25484}#)) - #{ids 25076}# - #{labels 25077}# - #{var-ids 25078}# - #{vars 25079}# - #{vals 25080}# - #{bindings 25081}#))) - (if (null? #{ids 25076}#) - (#{build-sequence 6270}# + ((#{f 23580}# + (lambda (#{forms 23643}#) + (if (null? #{forms 23643}#) + (cdr #{body 23161}#) + (cons (cons #{er 23576}# + (#{wrap 4338}# + (car #{forms 23643}#) + #{w 23577}# + #{mod 23579}#)) + (#{f 23580}# + (cdr #{forms 23643}#))))))) + (#{f 23580}# #{forms 23575}#)) + #{ids 23162}# + #{labels 23163}# + #{var-ids 23164}# + #{vars 23165}# + #{vals 23166}# + #{bindings 23167}#))) + (if (null? #{ids 23162}#) + (#{build-sequence 4294}# #f - (map (lambda (#{x 25617}#) - (let ((#{e 25621}# - (cdr #{x 25617}#)) - (#{r 25622}# - (car #{x 25617}#))) + (map (lambda (#{x 23708}#) + (let ((#{e 23712}# + (cdr #{x 23708}#)) + (#{r 23713}# + (car #{x 23708}#))) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 25621}# - #{r 25622}# + (#{syntax-type 4344}# + #{e 23712}# + #{r 23713}# '(()) - (#{source-annotation 6282}# - #{e 25621}#) + (#{source-annotation 4306}# + #{e 23712}#) #f - #{mod 25245}# + #{mod 23331}# #f)) - (lambda (#{type 25626}# - #{value 25627}# - #{e 25628}# - #{w 25629}# - #{s 25630}# - #{mod 25631}#) - (#{expand-expr 6322}# - #{type 25626}# - #{value 25627}# - #{e 25628}# - #{r 25622}# - #{w 25629}# - #{s 25630}# - #{mod 25631}#))))) - (cons (cons #{er 25083}# - (#{wrap 6314}# + (lambda (#{type 23717}# + #{value 23718}# + #{e 23719}# + #{w 23720}# + #{s 23721}# + #{mod 23722}#) + (#{expand-expr 4346}# + #{type 23717}# + #{value 23718}# + #{e 23719}# + #{r 23713}# + #{w 23720}# + #{s 23721}# + #{mod 23722}#))))) + (cons (cons #{er 23169}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 25242}#) - #{s 25244}# + (if (if (pair? #{e 23328}#) + #{s 23330}# #f) (set-source-properties! - #{e 25242}# - #{s 25244}#)) - #{e 25242}#) - #{w 25243}# - #{mod 25245}#)) - (cdr #{body 25075}#)))) + #{e 23328}# + #{s 23330}#)) + #{e 23328}#) + #{w 23329}# + #{mod 23331}#)) + (cdr #{body 23161}#)))) (begin - (if (not (#{valid-bound-ids? 6311}# - #{ids 25076}#)) + (if (not (#{valid-bound-ids? 4335}# + #{ids 23162}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 25055}#)) + #{outer-form 23141}#)) (letrec* - ((#{loop 25732}# - (lambda (#{bs 25735}# - #{er-cache 25736}# - #{r-cache 25737}#) - (if (not (null? #{bs 25735}#)) - (let ((#{b 25738}# - (car #{bs 25735}#))) - (if (eq? (car #{b 25738}#) + ((#{loop 23823}# + (lambda (#{bs 23826}# + #{er-cache 23827}# + #{r-cache 23828}#) + (if (not (null? #{bs 23826}#)) + (let ((#{b 23829}# + (car #{bs 23826}#))) + (if (eq? (car #{b 23829}#) 'macro) - (let ((#{er 25740}# - (car (cdr #{b 25738}#)))) - (let ((#{r-cache 25741}# - (if (eq? #{er 25740}# - #{er-cache 25736}#) - #{r-cache 25737}# - (#{macros-only-env 6285}# - #{er 25740}#)))) + (let ((#{er 23831}# + (car (cdr #{b 23829}#)))) + (let ((#{r-cache 23832}# + (if (eq? #{er 23831}# + #{er-cache 23827}#) + #{r-cache 23828}# + (#{macros-only-env 4309}# + #{er 23831}#)))) (begin (set-cdr! - #{b 25738}# - (#{eval-local-transformer 6327}# - (#{expand 6321}# - (cdr (cdr #{b 25738}#)) - #{r-cache 25741}# + #{b 23829}# + (#{eval-local-transformer 4351}# + (#{expand 4345}# + (cdr (cdr #{b 23829}#)) + #{r-cache 23832}# '(()) - #{mod 25245}#) - #{mod 25245}#)) - (#{loop 25732}# - (cdr #{bs 25735}#) - #{er 25740}# - #{r-cache 25741}#)))) - (#{loop 25732}# - (cdr #{bs 25735}#) - #{er-cache 25736}# - #{r-cache 25737}#))))))) - (#{loop 25732}# - #{bindings 25081}# + #{mod 23331}#) + #{mod 23331}#)) + (#{loop 23823}# + (cdr #{bs 23826}#) + #{er 23831}# + #{r-cache 23832}#)))) + (#{loop 23823}# + (cdr #{bs 23826}#) + #{er-cache 23827}# + #{r-cache 23828}#))))))) + (#{loop 23823}# + #{bindings 23167}# #f #f)) (set-cdr! - #{r 25059}# - (#{extend-env 6283}# - #{labels 25077}# - #{bindings 25081}# - (cdr #{r 25059}#))) - (#{build-letrec 6273}# + #{r 23145}# + (#{extend-env 4307}# + #{labels 23163}# + #{bindings 23167}# + (cdr #{r 23145}#))) + (#{build-letrec 4297}# #f #t (reverse (map syntax->datum - #{var-ids 25078}#)) - (reverse #{vars 25079}#) - (map (lambda (#{x 26084}#) - (let ((#{e 26088}# - (cdr #{x 26084}#)) - (#{r 26089}# - (car #{x 26084}#))) + #{var-ids 23164}#)) + (reverse #{vars 23165}#) + (map (lambda (#{x 24175}#) + (let ((#{e 24179}# + (cdr #{x 24175}#)) + (#{r 24180}# + (car #{x 24175}#))) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 26088}# - #{r 26089}# + (#{syntax-type 4344}# + #{e 24179}# + #{r 24180}# '(()) - (#{source-annotation 6282}# - #{e 26088}#) + (#{source-annotation 4306}# + #{e 24179}#) #f - #{mod 25245}# + #{mod 23331}# #f)) - (lambda (#{type 26093}# - #{value 26094}# - #{e 26095}# - #{w 26096}# - #{s 26097}# - #{mod 26098}#) - (#{expand-expr 6322}# - #{type 26093}# - #{value 26094}# - #{e 26095}# - #{r 26089}# - #{w 26096}# - #{s 26097}# - #{mod 26098}#))))) - (reverse #{vals 25080}#)) - (let ((#{exps 26104}# - (map (lambda (#{x 26105}#) - (let ((#{e 26108}# - (cdr #{x 26105}#)) - (#{r 26109}# - (car #{x 26105}#))) + (lambda (#{type 24184}# + #{value 24185}# + #{e 24186}# + #{w 24187}# + #{s 24188}# + #{mod 24189}#) + (#{expand-expr 4346}# + #{type 24184}# + #{value 24185}# + #{e 24186}# + #{r 24180}# + #{w 24187}# + #{s 24188}# + #{mod 24189}#))))) + (reverse #{vals 23166}#)) + (let ((#{exps 24195}# + (map (lambda (#{x 24196}#) + (let ((#{e 24199}# + (cdr #{x 24196}#)) + (#{r 24200}# + (car #{x 24196}#))) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 26108}# - #{r 26109}# + (#{syntax-type 4344}# + #{e 24199}# + #{r 24200}# '(()) - (#{source-annotation 6282}# - #{e 26108}#) + (#{source-annotation 4306}# + #{e 24199}#) #f - #{mod 25245}# + #{mod 23331}# #f)) - (lambda (#{type 26113}# - #{value 26114}# - #{e 26115}# - #{w 26116}# - #{s 26117}# - #{mod 26118}#) - (#{expand-expr 6322}# - #{type 26113}# - #{value 26114}# - #{e 26115}# - #{r 26109}# - #{w 26116}# - #{s 26117}# - #{mod 26118}#))))) - (cons (cons #{er 25083}# - (#{wrap 6314}# + (lambda (#{type 24204}# + #{value 24205}# + #{e 24206}# + #{w 24207}# + #{s 24208}# + #{mod 24209}#) + (#{expand-expr 4346}# + #{type 24204}# + #{value 24205}# + #{e 24206}# + #{r 24200}# + #{w 24207}# + #{s 24208}# + #{mod 24209}#))))) + (cons (cons #{er 23169}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 25242}#) - #{s 25244}# + (if (if (pair? #{e 23328}#) + #{s 23330}# #f) (set-source-properties! - #{e 25242}# - #{s 25244}#)) - #{e 25242}#) - #{w 25243}# - #{mod 25245}#)) - (cdr #{body 25075}#))))) - (if (null? (cdr #{exps 26104}#)) - (car #{exps 26104}#) + #{e 23328}# + #{s 23330}#)) + #{e 23328}#) + #{w 23329}# + #{mod 23331}#)) + (cdr #{body 23161}#))))) + (if (null? (cdr #{exps 24195}#)) + (car #{exps 24195}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps 26104}#))))))))))))))))) - (#{parse 25062}# - (map (lambda (#{x 25065}#) - (cons #{r 25059}# - (#{wrap 6314}# - #{x 25065}# - #{w 25061}# - #{mod 25058}#))) - #{body 25054}#) + #{exps 24195}#))))))))))))))))) + (#{parse 23148}# + (map (lambda (#{x 23151}#) + (cons #{r 23145}# + (#{wrap 4338}# + #{x 23151}# + #{w 23147}# + #{mod 23144}#))) + #{body 23140}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax 6326}# - (lambda (#{rec? 26144}# - #{e 26145}# - #{r 26146}# - #{w 26147}# - #{s 26148}# - #{mod 26149}# - #{k 26150}#) - (let ((#{tmp 26152}# + (#{expand-local-syntax 4350}# + (lambda (#{rec? 24235}# + #{e 24236}# + #{r 24237}# + #{w 24238}# + #{s 24239}# + #{mod 24240}# + #{k 24241}#) + (let ((#{tmp 24243}# ($sc-dispatch - #{e 26145}# + #{e 24236}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 26152}# + (if #{tmp 24243}# (@apply - (lambda (#{id 26156}# - #{val 26157}# - #{e1 26158}# - #{e2 26159}#) - (if (not (#{valid-bound-ids? 6311}# #{id 26156}#)) + (lambda (#{id 24247}# + #{val 24248}# + #{e1 24249}# + #{e2 24250}#) + (if (not (#{valid-bound-ids? 4335}# #{id 24247}#)) (syntax-violation #f "duplicate bound keyword" - #{e 26145}#) - (let ((#{labels 26249}# - (#{gen-labels 6292}# #{id 26156}#))) - (let ((#{new-w 26250}# - (#{make-binding-wrap 6303}# - #{id 26156}# - #{labels 26249}# - #{w 26147}#))) - (#{k 26150}# - (cons #{e1 26158}# #{e2 26159}#) - (#{extend-env 6283}# - #{labels 26249}# - (let ((#{trans-r 26288}# - (#{macros-only-env 6285}# #{r 26146}#))) + #{e 24236}#) + (let ((#{labels 24340}# + (#{gen-labels 4316}# #{id 24247}#))) + (let ((#{new-w 24341}# + (#{make-binding-wrap 4327}# + #{id 24247}# + #{labels 24340}# + #{w 24238}#))) + (#{k 24241}# + (cons #{e1 24249}# #{e2 24250}#) + (#{extend-env 4307}# + #{labels 24340}# + (let ((#{trans-r 24379}# + (#{macros-only-env 4309}# #{r 24237}#))) (begin - (if #{rec? 26144}# #{new-w 26250}# #{w 26147}#) - (map (lambda (#{x 26289}#) + (if #{rec? 24235}# #{new-w 24341}# #{w 24238}#) + (map (lambda (#{x 24380}#) (cons 'macro - (#{eval-local-transformer 6327}# - (#{expand 6321}# - #{x 26289}# - #{trans-r 26288}# + (#{eval-local-transformer 4351}# + (#{expand 4345}# + #{x 24380}# + #{trans-r 24379}# (values - (if #{rec? 26144}# - #{new-w 26250}# - #{w 26147}#)) - #{mod 26149}#) - #{mod 26149}#))) - #{val 26157}#))) - #{r 26146}#) - #{new-w 26250}# - #{s 26148}# - #{mod 26149}#))))) - #{tmp 26152}#) + (if #{rec? 24235}# + #{new-w 24341}# + #{w 24238}#)) + #{mod 24240}#) + #{mod 24240}#))) + #{val 24248}#))) + #{r 24237}#) + #{new-w 24341}# + #{s 24239}# + #{mod 24240}#))))) + #{tmp 24243}#) (syntax-violation #f "bad local syntax definition" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 26145}#) #{s 26148}# #f) - (set-source-properties! #{e 26145}# #{s 26148}#)) - #{e 26145}#) - #{w 26147}# - #{mod 26149}#)))))) - (#{eval-local-transformer 6327}# - (lambda (#{expanded 26585}# #{mod 26586}#) - (let ((#{p 26587}# (primitive-eval #{expanded 26585}#))) - (if (procedure? #{p 26587}#) - #{p 26587}# + (if (if (pair? #{e 24236}#) #{s 24239}# #f) + (set-source-properties! #{e 24236}# #{s 24239}#)) + #{e 24236}#) + #{w 24238}# + #{mod 24240}#)))))) + (#{eval-local-transformer 4351}# + (lambda (#{expanded 24676}# #{mod 24677}#) + (let ((#{p 24678}# (primitive-eval #{expanded 24676}#))) + (if (procedure? #{p 24678}#) + #{p 24678}# (syntax-violation #f "nonprocedure transformer" - #{p 26587}#))))) - (#{ellipsis? 6329}# - (lambda (#{x 7130}#) - (if (if (if (vector? #{x 7130}#) - (if (= (vector-length #{x 7130}#) 4) - (eq? (vector-ref #{x 7130}# 0) 'syntax-object) + #{p 24678}#))))) + (#{ellipsis? 4353}# + (lambda (#{x 5154}#) + (if (if (if (vector? #{x 5154}#) + (if (= (vector-length #{x 5154}#) 4) + (eq? (vector-ref #{x 5154}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 7130}# 1)) + (symbol? (vector-ref #{x 5154}# 1)) #f) - (if (eq? (if (if (vector? #{x 7130}#) - (if (= (vector-length #{x 7130}#) 4) - (eq? (vector-ref #{x 7130}# 0) 'syntax-object) + (if (eq? (if (if (vector? #{x 5154}#) + (if (= (vector-length #{x 5154}#) 4) + (eq? (vector-ref #{x 5154}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 7130}# 1) - #{x 7130}#) + (vector-ref #{x 5154}# 1) + #{x 5154}#) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4206")) + #(ribcage #(x) #((top)) #("i2230")) #(ribcage (lambda-var-list gen-var @@ -4980,148 +5035,148 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile))) 4) #t @@ -5132,7 +5187,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4206")) + #(ribcage #(x) #((top)) #("i2230")) #(ribcage (lambda-var-list gen-var @@ -5406,157 +5461,157 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 6308}# #{x 7130}# '(())) - (#{id-var-name 6308}# + (eq? (#{id-var-name 4332}# #{x 5154}# '(())) + (#{id-var-name 4332}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4206")) + #(ribcage #(x) #((top)) #("i2230")) #(ribcage (lambda-var-list gen-var @@ -5830,446 +5885,446 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) #f))) - (#{lambda-formals 6330}# - (lambda (#{orig-args 26592}#) + (#{lambda-formals 4354}# + (lambda (#{orig-args 24683}#) (letrec* - ((#{req 26593}# - (lambda (#{args 26597}# #{rreq 26598}#) - (let ((#{tmp 26600}# ($sc-dispatch #{args 26597}# '()))) - (if #{tmp 26600}# + ((#{req 24684}# + (lambda (#{args 24688}# #{rreq 24689}#) + (let ((#{tmp 24691}# ($sc-dispatch #{args 24688}# '()))) + (if #{tmp 24691}# (@apply (lambda () - (#{check 26594}# (reverse #{rreq 26598}#) #f)) - #{tmp 26600}#) - (let ((#{tmp 26723}# - ($sc-dispatch #{args 26597}# '(any . any)))) - (if (if #{tmp 26723}# + (#{check 24685}# (reverse #{rreq 24689}#) #f)) + #{tmp 24691}#) + (let ((#{tmp 24814}# + ($sc-dispatch #{args 24688}# '(any . any)))) + (if (if #{tmp 24814}# (@apply - (lambda (#{a 26727}# #{b 26728}#) - (if (symbol? #{a 26727}#) + (lambda (#{a 24818}# #{b 24819}#) + (if (symbol? #{a 24818}#) #t - (if (if (vector? #{a 26727}#) - (if (= (vector-length #{a 26727}#) 4) - (eq? (vector-ref #{a 26727}# 0) + (if (if (vector? #{a 24818}#) + (if (= (vector-length #{a 24818}#) 4) + (eq? (vector-ref #{a 24818}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26727}# 1)) + (symbol? (vector-ref #{a 24818}# 1)) #f))) - #{tmp 26723}#) + #{tmp 24814}#) #f) (@apply - (lambda (#{a 26755}# #{b 26756}#) - (#{req 26593}# - #{b 26756}# - (cons #{a 26755}# #{rreq 26598}#))) - #{tmp 26723}#) - (let ((#{tmp 26757}# (list #{args 26597}#))) + (lambda (#{a 24846}# #{b 24847}#) + (#{req 24684}# + #{b 24847}# + (cons #{a 24846}# #{rreq 24689}#))) + #{tmp 24814}#) + (let ((#{tmp 24848}# (list #{args 24688}#))) (if (@apply - (lambda (#{r 26759}#) - (if (symbol? #{r 26759}#) + (lambda (#{r 24850}#) + (if (symbol? #{r 24850}#) #t - (if (if (vector? #{r 26759}#) - (if (= (vector-length #{r 26759}#) 4) - (eq? (vector-ref #{r 26759}# 0) + (if (if (vector? #{r 24850}#) + (if (= (vector-length #{r 24850}#) 4) + (eq? (vector-ref #{r 24850}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 26759}# 1)) + (symbol? (vector-ref #{r 24850}# 1)) #f))) - #{tmp 26757}#) + #{tmp 24848}#) (@apply - (lambda (#{r 26789}#) - (#{check 26594}# - (reverse #{rreq 26598}#) - #{r 26789}#)) - #{tmp 26757}#) + (lambda (#{r 24880}#) + (#{check 24685}# + (reverse #{rreq 24689}#) + #{r 24880}#)) + #{tmp 24848}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args 26592}# - #{args 26597}#))))))))) - (#{check 26594}# - (lambda (#{req 26920}# #{rest 26921}#) - (if (#{distinct-bound-ids? 6312}# - (if #{rest 26921}# - (cons #{rest 26921}# #{req 26920}#) - #{req 26920}#)) - (values #{req 26920}# #f #{rest 26921}# #f) + #{orig-args 24683}# + #{args 24688}#))))))))) + (#{check 24685}# + (lambda (#{req 25011}# #{rest 25012}#) + (if (#{distinct-bound-ids? 4336}# + (if #{rest 25012}# + (cons #{rest 25012}# #{req 25011}#) + #{req 25011}#)) + (values #{req 25011}# #f #{rest 25012}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 26592}#))))) - (#{req 26593}# #{orig-args 26592}# '())))) - (#{expand-simple-lambda 6331}# - (lambda (#{e 27037}# - #{r 27038}# - #{w 27039}# - #{s 27040}# - #{mod 27041}# - #{req 27042}# - #{rest 27043}# - #{meta 27044}# - #{body 27045}#) - (let ((#{ids 27046}# - (if #{rest 27043}# - (append #{req 27042}# (list #{rest 27043}#)) - #{req 27042}#))) - (let ((#{vars 27047}# - (map #{gen-var 6335}# #{ids 27046}#))) - (let ((#{labels 27048}# - (#{gen-labels 6292}# #{ids 27046}#))) - (#{build-simple-lambda 6265}# - #{s 27040}# - (map syntax->datum #{req 27042}#) - (if #{rest 27043}# - (syntax->datum #{rest 27043}#) + #{orig-args 24683}#))))) + (#{req 24684}# #{orig-args 24683}# '())))) + (#{expand-simple-lambda 4355}# + (lambda (#{e 25128}# + #{r 25129}# + #{w 25130}# + #{s 25131}# + #{mod 25132}# + #{req 25133}# + #{rest 25134}# + #{meta 25135}# + #{body 25136}#) + (let ((#{ids 25137}# + (if #{rest 25134}# + (append #{req 25133}# (list #{rest 25134}#)) + #{req 25133}#))) + (let ((#{vars 25138}# + (map #{gen-var 4359}# #{ids 25137}#))) + (let ((#{labels 25139}# + (#{gen-labels 4316}# #{ids 25137}#))) + (#{build-simple-lambda 4289}# + #{s 25131}# + (map syntax->datum #{req 25133}#) + (if #{rest 25134}# + (syntax->datum #{rest 25134}#) #f) - #{vars 27047}# - #{meta 27044}# - (#{expand-body 6325}# - #{body 27045}# - (#{wrap 6314}# + #{vars 25138}# + #{meta 25135}# + (#{expand-body 4349}# + #{body 25136}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 27037}#) #{s 27040}# #f) - (set-source-properties! #{e 27037}# #{s 27040}#)) - #{e 27037}#) - #{w 27039}# - #{mod 27041}#) - (#{extend-var-env 6284}# - #{labels 27048}# - #{vars 27047}# - #{r 27038}#) - (#{make-binding-wrap 6303}# - #{ids 27046}# - #{labels 27048}# - #{w 27039}#) - #{mod 27041}#))))))) - (#{lambda*-formals 6332}# - (lambda (#{orig-args 27348}#) + (if (if (pair? #{e 25128}#) #{s 25131}# #f) + (set-source-properties! #{e 25128}# #{s 25131}#)) + #{e 25128}#) + #{w 25130}# + #{mod 25132}#) + (#{extend-var-env 4308}# + #{labels 25139}# + #{vars 25138}# + #{r 25129}#) + (#{make-binding-wrap 4327}# + #{ids 25137}# + #{labels 25139}# + #{w 25130}#) + #{mod 25132}#))))))) + (#{lambda*-formals 4356}# + (lambda (#{orig-args 25439}#) (letrec* - ((#{req 27349}# - (lambda (#{args 27356}# #{rreq 27357}#) - (let ((#{tmp 27359}# ($sc-dispatch #{args 27356}# '()))) - (if #{tmp 27359}# + ((#{req 25440}# + (lambda (#{args 25447}# #{rreq 25448}#) + (let ((#{tmp 25450}# ($sc-dispatch #{args 25447}# '()))) + (if #{tmp 25450}# (@apply (lambda () - (#{check 27353}# - (reverse #{rreq 27357}#) + (#{check 25444}# + (reverse #{rreq 25448}#) '() #f '())) - #{tmp 27359}#) - (let ((#{tmp 27365}# - ($sc-dispatch #{args 27356}# '(any . any)))) - (if (if #{tmp 27365}# + #{tmp 25450}#) + (let ((#{tmp 25456}# + ($sc-dispatch #{args 25447}# '(any . any)))) + (if (if #{tmp 25456}# (@apply - (lambda (#{a 27369}# #{b 27370}#) - (if (symbol? #{a 27369}#) + (lambda (#{a 25460}# #{b 25461}#) + (if (symbol? #{a 25460}#) #t - (if (if (vector? #{a 27369}#) - (if (= (vector-length #{a 27369}#) 4) - (eq? (vector-ref #{a 27369}# 0) + (if (if (vector? #{a 25460}#) + (if (= (vector-length #{a 25460}#) 4) + (eq? (vector-ref #{a 25460}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 27369}# 1)) + (symbol? (vector-ref #{a 25460}# 1)) #f))) - #{tmp 27365}#) + #{tmp 25456}#) #f) (@apply - (lambda (#{a 27397}# #{b 27398}#) - (#{req 27349}# - #{b 27398}# - (cons #{a 27397}# #{rreq 27357}#))) - #{tmp 27365}#) - (let ((#{tmp 27399}# - ($sc-dispatch #{args 27356}# '(any . any)))) - (if (if #{tmp 27399}# + (lambda (#{a 25488}# #{b 25489}#) + (#{req 25440}# + #{b 25489}# + (cons #{a 25488}# #{rreq 25448}#))) + #{tmp 25456}#) + (let ((#{tmp 25490}# + ($sc-dispatch #{args 25447}# '(any . any)))) + (if (if #{tmp 25490}# (@apply - (lambda (#{a 27403}# #{b 27404}#) - (eq? (syntax->datum #{a 27403}#) #:optional)) - #{tmp 27399}#) + (lambda (#{a 25494}# #{b 25495}#) + (eq? (syntax->datum #{a 25494}#) #:optional)) + #{tmp 25490}#) #f) (@apply - (lambda (#{a 27405}# #{b 27406}#) - (#{opt 27350}# - #{b 27406}# - (reverse #{rreq 27357}#) + (lambda (#{a 25496}# #{b 25497}#) + (#{opt 25441}# + #{b 25497}# + (reverse #{rreq 25448}#) '())) - #{tmp 27399}#) - (let ((#{tmp 27409}# - ($sc-dispatch #{args 27356}# '(any . any)))) - (if (if #{tmp 27409}# + #{tmp 25490}#) + (let ((#{tmp 25500}# + ($sc-dispatch #{args 25447}# '(any . any)))) + (if (if #{tmp 25500}# (@apply - (lambda (#{a 27413}# #{b 27414}#) - (eq? (syntax->datum #{a 27413}#) #:key)) - #{tmp 27409}#) + (lambda (#{a 25504}# #{b 25505}#) + (eq? (syntax->datum #{a 25504}#) #:key)) + #{tmp 25500}#) #f) (@apply - (lambda (#{a 27415}# #{b 27416}#) - (#{key 27351}# - #{b 27416}# - (reverse #{rreq 27357}#) + (lambda (#{a 25506}# #{b 25507}#) + (#{key 25442}# + #{b 25507}# + (reverse #{rreq 25448}#) '() '())) - #{tmp 27409}#) - (let ((#{tmp 27419}# + #{tmp 25500}#) + (let ((#{tmp 25510}# ($sc-dispatch - #{args 27356}# + #{args 25447}# '(any any)))) - (if (if #{tmp 27419}# + (if (if #{tmp 25510}# (@apply - (lambda (#{a 27423}# #{b 27424}#) - (eq? (syntax->datum #{a 27423}#) + (lambda (#{a 25514}# #{b 25515}#) + (eq? (syntax->datum #{a 25514}#) #:rest)) - #{tmp 27419}#) + #{tmp 25510}#) #f) (@apply - (lambda (#{a 27425}# #{b 27426}#) - (#{rest 27352}# - #{b 27426}# - (reverse #{rreq 27357}#) + (lambda (#{a 25516}# #{b 25517}#) + (#{rest 25443}# + #{b 25517}# + (reverse #{rreq 25448}#) '() '())) - #{tmp 27419}#) - (let ((#{tmp 27429}# (list #{args 27356}#))) + #{tmp 25510}#) + (let ((#{tmp 25520}# (list #{args 25447}#))) (if (@apply - (lambda (#{r 27431}#) - (if (symbol? #{r 27431}#) + (lambda (#{r 25522}#) + (if (symbol? #{r 25522}#) #t - (if (if (vector? #{r 27431}#) + (if (if (vector? #{r 25522}#) (if (= (vector-length - #{r 27431}#) + #{r 25522}#) 4) (eq? (vector-ref - #{r 27431}# + #{r 25522}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 27431}# 1)) + (vector-ref #{r 25522}# 1)) #f))) - #{tmp 27429}#) + #{tmp 25520}#) (@apply - (lambda (#{r 27461}#) - (#{rest 27352}# - #{r 27461}# - (reverse #{rreq 27357}#) + (lambda (#{r 25552}#) + (#{rest 25443}# + #{r 25552}# + (reverse #{rreq 25448}#) '() '())) - #{tmp 27429}#) + #{tmp 25520}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 27348}# - #{args 27356}#))))))))))))))) - (#{opt 27350}# - (lambda (#{args 27480}# #{req 27481}# #{ropt 27482}#) - (let ((#{tmp 27484}# ($sc-dispatch #{args 27480}# '()))) - (if #{tmp 27484}# + #{orig-args 25439}# + #{args 25447}#))))))))))))))) + (#{opt 25441}# + (lambda (#{args 25571}# #{req 25572}# #{ropt 25573}#) + (let ((#{tmp 25575}# ($sc-dispatch #{args 25571}# '()))) + (if #{tmp 25575}# (@apply (lambda () - (#{check 27353}# - #{req 27481}# - (reverse #{ropt 27482}#) + (#{check 25444}# + #{req 25572}# + (reverse #{ropt 25573}#) #f '())) - #{tmp 27484}#) - (let ((#{tmp 27490}# - ($sc-dispatch #{args 27480}# '(any . any)))) - (if (if #{tmp 27490}# + #{tmp 25575}#) + (let ((#{tmp 25581}# + ($sc-dispatch #{args 25571}# '(any . any)))) + (if (if #{tmp 25581}# (@apply - (lambda (#{a 27494}# #{b 27495}#) - (if (symbol? #{a 27494}#) + (lambda (#{a 25585}# #{b 25586}#) + (if (symbol? #{a 25585}#) #t - (if (if (vector? #{a 27494}#) - (if (= (vector-length #{a 27494}#) 4) - (eq? (vector-ref #{a 27494}# 0) + (if (if (vector? #{a 25585}#) + (if (= (vector-length #{a 25585}#) 4) + (eq? (vector-ref #{a 25585}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 27494}# 1)) + (symbol? (vector-ref #{a 25585}# 1)) #f))) - #{tmp 27490}#) + #{tmp 25581}#) #f) (@apply - (lambda (#{a 27522}# #{b 27523}#) - (#{opt 27350}# - #{b 27523}# - #{req 27481}# - (cons (cons #{a 27522}# + (lambda (#{a 25613}# #{b 25614}#) + (#{opt 25441}# + #{b 25614}# + #{req 25572}# + (cons (cons #{a 25613}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i4345" "i4346")) + #("i2369" "i2370")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i4335" "i4336" "i4337")) + #("i2359" "i2360" "i2361")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) - ("i4281" - "i4279" - "i4277" - "i4275" - "i4273")) + ("i2305" + "i2303" + "i2301" + "i2299" + "i2297")) #(ribcage #(orig-args) #((top)) - #("i4272")) + #("i2296")) #(ribcage (lambda-var-list gen-var @@ -6543,290 +6598,290 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - #{ropt 27482}#))) - #{tmp 27490}#) - (let ((#{tmp 27524}# + #{ropt 25573}#))) + #{tmp 25581}#) + (let ((#{tmp 25615}# ($sc-dispatch - #{args 27480}# + #{args 25571}# '((any any) . any)))) - (if (if #{tmp 27524}# + (if (if #{tmp 25615}# (@apply - (lambda (#{a 27528}# - #{init 27529}# - #{b 27530}#) - (if (symbol? #{a 27528}#) + (lambda (#{a 25619}# + #{init 25620}# + #{b 25621}#) + (if (symbol? #{a 25619}#) #t - (if (if (vector? #{a 27528}#) - (if (= (vector-length #{a 27528}#) 4) - (eq? (vector-ref #{a 27528}# 0) + (if (if (vector? #{a 25619}#) + (if (= (vector-length #{a 25619}#) 4) + (eq? (vector-ref #{a 25619}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 27528}# 1)) + (symbol? (vector-ref #{a 25619}# 1)) #f))) - #{tmp 27524}#) + #{tmp 25615}#) #f) (@apply - (lambda (#{a 27557}# #{init 27558}# #{b 27559}#) - (#{opt 27350}# - #{b 27559}# - #{req 27481}# - (cons (list #{a 27557}# #{init 27558}#) - #{ropt 27482}#))) - #{tmp 27524}#) - (let ((#{tmp 27560}# - ($sc-dispatch #{args 27480}# '(any . any)))) - (if (if #{tmp 27560}# + (lambda (#{a 25648}# #{init 25649}# #{b 25650}#) + (#{opt 25441}# + #{b 25650}# + #{req 25572}# + (cons (list #{a 25648}# #{init 25649}#) + #{ropt 25573}#))) + #{tmp 25615}#) + (let ((#{tmp 25651}# + ($sc-dispatch #{args 25571}# '(any . any)))) + (if (if #{tmp 25651}# (@apply - (lambda (#{a 27564}# #{b 27565}#) - (eq? (syntax->datum #{a 27564}#) #:key)) - #{tmp 27560}#) + (lambda (#{a 25655}# #{b 25656}#) + (eq? (syntax->datum #{a 25655}#) #:key)) + #{tmp 25651}#) #f) (@apply - (lambda (#{a 27566}# #{b 27567}#) - (#{key 27351}# - #{b 27567}# - #{req 27481}# - (reverse #{ropt 27482}#) + (lambda (#{a 25657}# #{b 25658}#) + (#{key 25442}# + #{b 25658}# + #{req 25572}# + (reverse #{ropt 25573}#) '())) - #{tmp 27560}#) - (let ((#{tmp 27570}# + #{tmp 25651}#) + (let ((#{tmp 25661}# ($sc-dispatch - #{args 27480}# + #{args 25571}# '(any any)))) - (if (if #{tmp 27570}# + (if (if #{tmp 25661}# (@apply - (lambda (#{a 27574}# #{b 27575}#) - (eq? (syntax->datum #{a 27574}#) + (lambda (#{a 25665}# #{b 25666}#) + (eq? (syntax->datum #{a 25665}#) #:rest)) - #{tmp 27570}#) + #{tmp 25661}#) #f) (@apply - (lambda (#{a 27576}# #{b 27577}#) - (#{rest 27352}# - #{b 27577}# - #{req 27481}# - (reverse #{ropt 27482}#) + (lambda (#{a 25667}# #{b 25668}#) + (#{rest 25443}# + #{b 25668}# + #{req 25572}# + (reverse #{ropt 25573}#) '())) - #{tmp 27570}#) - (let ((#{tmp 27580}# (list #{args 27480}#))) + #{tmp 25661}#) + (let ((#{tmp 25671}# (list #{args 25571}#))) (if (@apply - (lambda (#{r 27582}#) - (if (symbol? #{r 27582}#) + (lambda (#{r 25673}#) + (if (symbol? #{r 25673}#) #t - (if (if (vector? #{r 27582}#) + (if (if (vector? #{r 25673}#) (if (= (vector-length - #{r 27582}#) + #{r 25673}#) 4) (eq? (vector-ref - #{r 27582}# + #{r 25673}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 27582}# 1)) + (vector-ref #{r 25673}# 1)) #f))) - #{tmp 27580}#) + #{tmp 25671}#) (@apply - (lambda (#{r 27612}#) - (#{rest 27352}# - #{r 27612}# - #{req 27481}# - (reverse #{ropt 27482}#) + (lambda (#{r 25703}#) + (#{rest 25443}# + #{r 25703}# + #{req 25572}# + (reverse #{ropt 25573}#) '())) - #{tmp 27580}#) + #{tmp 25671}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 27348}# - #{args 27480}#))))))))))))))) - (#{key 27351}# - (lambda (#{args 27631}# - #{req 27632}# - #{opt 27633}# - #{rkey 27634}#) - (let ((#{tmp 27636}# ($sc-dispatch #{args 27631}# '()))) - (if #{tmp 27636}# + #{orig-args 25439}# + #{args 25571}#))))))))))))))) + (#{key 25442}# + (lambda (#{args 25722}# + #{req 25723}# + #{opt 25724}# + #{rkey 25725}#) + (let ((#{tmp 25727}# ($sc-dispatch #{args 25722}# '()))) + (if #{tmp 25727}# (@apply (lambda () - (#{check 27353}# - #{req 27632}# - #{opt 27633}# + (#{check 25444}# + #{req 25723}# + #{opt 25724}# #f - (cons #f (reverse #{rkey 27634}#)))) - #{tmp 27636}#) - (let ((#{tmp 27642}# - ($sc-dispatch #{args 27631}# '(any . any)))) - (if (if #{tmp 27642}# + (cons #f (reverse #{rkey 25725}#)))) + #{tmp 25727}#) + (let ((#{tmp 25733}# + ($sc-dispatch #{args 25722}# '(any . any)))) + (if (if #{tmp 25733}# (@apply - (lambda (#{a 27646}# #{b 27647}#) - (if (symbol? #{a 27646}#) + (lambda (#{a 25737}# #{b 25738}#) + (if (symbol? #{a 25737}#) #t - (if (if (vector? #{a 27646}#) - (if (= (vector-length #{a 27646}#) 4) - (eq? (vector-ref #{a 27646}# 0) + (if (if (vector? #{a 25737}#) + (if (= (vector-length #{a 25737}#) 4) + (eq? (vector-ref #{a 25737}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 27646}# 1)) + (symbol? (vector-ref #{a 25737}# 1)) #f))) - #{tmp 27642}#) + #{tmp 25733}#) #f) (@apply - (lambda (#{a 27674}# #{b 27675}#) - (let ((#{tmp 27676}# + (lambda (#{a 25765}# #{b 25766}#) + (let ((#{tmp 25767}# (symbol->keyword - (syntax->datum #{a 27674}#)))) - (#{key 27351}# - #{b 27675}# - #{req 27632}# - #{opt 27633}# - (cons (cons #{tmp 27676}# - (cons #{a 27674}# + (syntax->datum #{a 25765}#)))) + (#{key 25442}# + #{b 25766}# + #{req 25723}# + #{opt 25724}# + (cons (cons #{tmp 25767}# + (cons #{a 25765}# '(#(syntax-object #f ((top) @@ -6834,11 +6889,11 @@ #(ribcage #(k) #((top)) - #("i4408")) + #("i2432")) #(ribcage #(a b) #((top) (top)) - #("i4402" "i4403")) + #("i2426" "i2427")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -6846,10 +6901,10 @@ (top) (top) (top)) - #("i4391" - "i4392" - "i4393" - "i4394")) + #("i2415" + "i2416" + "i2417" + "i2418")) #(ribcage (check rest key opt req) ((top) @@ -6857,15 +6912,15 @@ (top) (top) (top)) - ("i4281" - "i4279" - "i4277" - "i4275" - "i4273")) + ("i2305" + "i2303" + "i2301" + "i2299" + "i2297")) #(ribcage #(orig-args) #((top)) - #("i4272")) + #("i2296")) #(ribcage (lambda-var-list gen-var @@ -7139,925 +7194,923 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile))))) - #{rkey 27634}#)))) - #{tmp 27642}#) - (let ((#{tmp 27679}# + #{rkey 25725}#)))) + #{tmp 25733}#) + (let ((#{tmp 25770}# ($sc-dispatch - #{args 27631}# + #{args 25722}# '((any any) . any)))) - (if (if #{tmp 27679}# + (if (if #{tmp 25770}# (@apply - (lambda (#{a 27683}# - #{init 27684}# - #{b 27685}#) - (if (symbol? #{a 27683}#) + (lambda (#{a 25774}# + #{init 25775}# + #{b 25776}#) + (if (symbol? #{a 25774}#) #t - (if (if (vector? #{a 27683}#) - (if (= (vector-length #{a 27683}#) 4) - (eq? (vector-ref #{a 27683}# 0) + (if (if (vector? #{a 25774}#) + (if (= (vector-length #{a 25774}#) 4) + (eq? (vector-ref #{a 25774}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 27683}# 1)) + (symbol? (vector-ref #{a 25774}# 1)) #f))) - #{tmp 27679}#) + #{tmp 25770}#) #f) (@apply - (lambda (#{a 27712}# #{init 27713}# #{b 27714}#) - (let ((#{tmp 27715}# + (lambda (#{a 25803}# #{init 25804}# #{b 25805}#) + (let ((#{tmp 25806}# (symbol->keyword - (syntax->datum #{a 27712}#)))) - (#{key 27351}# - #{b 27714}# - #{req 27632}# - #{opt 27633}# - (cons (list #{tmp 27715}# - #{a 27712}# - #{init 27713}#) - #{rkey 27634}#)))) - #{tmp 27679}#) - (let ((#{tmp 27718}# + (syntax->datum #{a 25803}#)))) + (#{key 25442}# + #{b 25805}# + #{req 25723}# + #{opt 25724}# + (cons (list #{tmp 25806}# + #{a 25803}# + #{init 25804}#) + #{rkey 25725}#)))) + #{tmp 25770}#) + (let ((#{tmp 25809}# ($sc-dispatch - #{args 27631}# + #{args 25722}# '((any any any) . any)))) - (if (if #{tmp 27718}# + (if (if #{tmp 25809}# (@apply - (lambda (#{a 27722}# - #{init 27723}# - #{k 27724}# - #{b 27725}#) - (if (if (symbol? #{a 27722}#) + (lambda (#{a 25813}# + #{init 25814}# + #{k 25815}# + #{b 25816}#) + (if (if (symbol? #{a 25813}#) #t - (if (if (vector? #{a 27722}#) + (if (if (vector? #{a 25813}#) (if (= (vector-length - #{a 27722}#) + #{a 25813}#) 4) (eq? (vector-ref - #{a 27722}# + #{a 25813}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 27722}# 1)) + (vector-ref #{a 25813}# 1)) #f)) - (keyword? (syntax->datum #{k 27724}#)) + (keyword? (syntax->datum #{k 25815}#)) #f)) - #{tmp 27718}#) + #{tmp 25809}#) #f) (@apply - (lambda (#{a 27752}# - #{init 27753}# - #{k 27754}# - #{b 27755}#) - (#{key 27351}# - #{b 27755}# - #{req 27632}# - #{opt 27633}# - (cons (list #{k 27754}# - #{a 27752}# - #{init 27753}#) - #{rkey 27634}#))) - #{tmp 27718}#) - (let ((#{tmp 27756}# - ($sc-dispatch #{args 27631}# '(any)))) - (if (if #{tmp 27756}# + (lambda (#{a 25843}# + #{init 25844}# + #{k 25845}# + #{b 25846}#) + (#{key 25442}# + #{b 25846}# + #{req 25723}# + #{opt 25724}# + (cons (list #{k 25845}# + #{a 25843}# + #{init 25844}#) + #{rkey 25725}#))) + #{tmp 25809}#) + (let ((#{tmp 25847}# + ($sc-dispatch #{args 25722}# '(any)))) + (if (if #{tmp 25847}# (@apply - (lambda (#{aok 27760}#) - (eq? (syntax->datum #{aok 27760}#) + (lambda (#{aok 25851}#) + (eq? (syntax->datum #{aok 25851}#) #:allow-other-keys)) - #{tmp 27756}#) + #{tmp 25847}#) #f) (@apply - (lambda (#{aok 27761}#) - (#{check 27353}# - #{req 27632}# - #{opt 27633}# + (lambda (#{aok 25852}#) + (#{check 25444}# + #{req 25723}# + #{opt 25724}# #f - (cons #t (reverse #{rkey 27634}#)))) - #{tmp 27756}#) - (let ((#{tmp 27764}# + (cons #t (reverse #{rkey 25725}#)))) + #{tmp 25847}#) + (let ((#{tmp 25855}# ($sc-dispatch - #{args 27631}# + #{args 25722}# '(any any any)))) - (if (if #{tmp 27764}# + (if (if #{tmp 25855}# (@apply - (lambda (#{aok 27768}# - #{a 27769}# - #{b 27770}#) + (lambda (#{aok 25859}# + #{a 25860}# + #{b 25861}#) (if (eq? (syntax->datum - #{aok 27768}#) + #{aok 25859}#) #:allow-other-keys) (eq? (syntax->datum - #{a 27769}#) + #{a 25860}#) #:rest) #f)) - #{tmp 27764}#) + #{tmp 25855}#) #f) (@apply - (lambda (#{aok 27771}# - #{a 27772}# - #{b 27773}#) - (#{rest 27352}# - #{b 27773}# - #{req 27632}# - #{opt 27633}# + (lambda (#{aok 25862}# + #{a 25863}# + #{b 25864}#) + (#{rest 25443}# + #{b 25864}# + #{req 25723}# + #{opt 25724}# (cons #t - (reverse #{rkey 27634}#)))) - #{tmp 27764}#) - (let ((#{tmp 27776}# + (reverse #{rkey 25725}#)))) + #{tmp 25855}#) + (let ((#{tmp 25867}# ($sc-dispatch - #{args 27631}# + #{args 25722}# '(any . any)))) - (if (if #{tmp 27776}# + (if (if #{tmp 25867}# (@apply - (lambda (#{aok 27780}# - #{r 27781}#) + (lambda (#{aok 25871}# + #{r 25872}#) (if (eq? (syntax->datum - #{aok 27780}#) + #{aok 25871}#) #:allow-other-keys) - (if (symbol? #{r 27781}#) + (if (symbol? #{r 25872}#) #t (if (if (vector? - #{r 27781}#) + #{r 25872}#) (if (= (vector-length - #{r 27781}#) + #{r 25872}#) 4) (eq? (vector-ref - #{r 27781}# + #{r 25872}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 27781}# + #{r 25872}# 1)) #f)) #f)) - #{tmp 27776}#) + #{tmp 25867}#) #f) (@apply - (lambda (#{aok 27808}# #{r 27809}#) - (#{rest 27352}# - #{r 27809}# - #{req 27632}# - #{opt 27633}# + (lambda (#{aok 25899}# #{r 25900}#) + (#{rest 25443}# + #{r 25900}# + #{req 25723}# + #{opt 25724}# (cons #t (reverse - #{rkey 27634}#)))) - #{tmp 27776}#) - (let ((#{tmp 27812}# + #{rkey 25725}#)))) + #{tmp 25867}#) + (let ((#{tmp 25903}# ($sc-dispatch - #{args 27631}# + #{args 25722}# '(any any)))) - (if (if #{tmp 27812}# + (if (if #{tmp 25903}# (@apply - (lambda (#{a 27816}# - #{b 27817}#) + (lambda (#{a 25907}# + #{b 25908}#) (eq? (syntax->datum - #{a 27816}#) + #{a 25907}#) #:rest)) - #{tmp 27812}#) + #{tmp 25903}#) #f) (@apply - (lambda (#{a 27818}# - #{b 27819}#) - (#{rest 27352}# - #{b 27819}# - #{req 27632}# - #{opt 27633}# + (lambda (#{a 25909}# + #{b 25910}#) + (#{rest 25443}# + #{b 25910}# + #{req 25723}# + #{opt 25724}# (cons #f (reverse - #{rkey 27634}#)))) - #{tmp 27812}#) - (let ((#{tmp 27822}# - (list #{args 27631}#))) + #{rkey 25725}#)))) + #{tmp 25903}#) + (let ((#{tmp 25913}# + (list #{args 25722}#))) (if (@apply - (lambda (#{r 27824}#) + (lambda (#{r 25915}#) (if (symbol? - #{r 27824}#) + #{r 25915}#) #t (if (if (vector? - #{r 27824}#) + #{r 25915}#) (if (= (vector-length - #{r 27824}#) + #{r 25915}#) 4) (eq? (vector-ref - #{r 27824}# + #{r 25915}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 27824}# + #{r 25915}# 1)) #f))) - #{tmp 27822}#) + #{tmp 25913}#) (@apply - (lambda (#{r 27854}#) - (#{rest 27352}# - #{r 27854}# - #{req 27632}# - #{opt 27633}# + (lambda (#{r 25945}#) + (#{rest 25443}# + #{r 25945}# + #{req 25723}# + #{opt 25724}# (cons #f (reverse - #{rkey 27634}#)))) - #{tmp 27822}#) + #{rkey 25725}#)))) + #{tmp 25913}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 27348}# - #{args 27631}#))))))))))))))))))))) - (#{rest 27352}# - (lambda (#{args 27882}# - #{req 27883}# - #{opt 27884}# - #{kw 27885}#) - (let ((#{tmp 27887}# (list #{args 27882}#))) + #{orig-args 25439}# + #{args 25722}#))))))))))))))))))))) + (#{rest 25443}# + (lambda (#{args 25973}# + #{req 25974}# + #{opt 25975}# + #{kw 25976}#) + (let ((#{tmp 25978}# (list #{args 25973}#))) (if (@apply - (lambda (#{r 27889}#) - (if (symbol? #{r 27889}#) + (lambda (#{r 25980}#) + (if (symbol? #{r 25980}#) #t - (if (if (vector? #{r 27889}#) - (if (= (vector-length #{r 27889}#) 4) - (eq? (vector-ref #{r 27889}# 0) + (if (if (vector? #{r 25980}#) + (if (= (vector-length #{r 25980}#) 4) + (eq? (vector-ref #{r 25980}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 27889}# 1)) + (symbol? (vector-ref #{r 25980}# 1)) #f))) - #{tmp 27887}#) + #{tmp 25978}#) (@apply - (lambda (#{r 27919}#) - (#{check 27353}# - #{req 27883}# - #{opt 27884}# - #{r 27919}# - #{kw 27885}#)) - #{tmp 27887}#) + (lambda (#{r 26010}#) + (#{check 25444}# + #{req 25974}# + #{opt 25975}# + #{r 26010}# + #{kw 25976}#)) + #{tmp 25978}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 27348}# - #{args 27882}#))))) - (#{check 27353}# - (lambda (#{req 27923}# - #{opt 27924}# - #{rest 27925}# - #{kw 27926}#) - (if (#{distinct-bound-ids? 6312}# + #{orig-args 25439}# + #{args 25973}#))))) + (#{check 25444}# + (lambda (#{req 26014}# + #{opt 26015}# + #{rest 26016}# + #{kw 26017}#) + (if (#{distinct-bound-ids? 4336}# (append - #{req 27923}# - (map car #{opt 27924}#) - (if #{rest 27925}# (list #{rest 27925}#) '()) - (if (pair? #{kw 27926}#) - (map cadr (cdr #{kw 27926}#)) + #{req 26014}# + (map car #{opt 26015}#) + (if #{rest 26016}# (list #{rest 26016}#) '()) + (if (pair? #{kw 26017}#) + (map cadr (cdr #{kw 26017}#)) '()))) (values - #{req 27923}# - #{opt 27924}# - #{rest 27925}# - #{kw 27926}#) + #{req 26014}# + #{opt 26015}# + #{rest 26016}# + #{kw 26017}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 27348}#))))) - (#{req 27349}# #{orig-args 27348}# '())))) - (#{expand-lambda-case 6333}# - (lambda (#{e 28042}# - #{r 28043}# - #{w 28044}# - #{s 28045}# - #{mod 28046}# - #{get-formals 28047}# - #{clauses 28048}#) + #{orig-args 25439}#))))) + (#{req 25440}# #{orig-args 25439}# '())))) + (#{expand-lambda-case 4357}# + (lambda (#{e 26133}# + #{r 26134}# + #{w 26135}# + #{s 26136}# + #{mod 26137}# + #{get-formals 26138}# + #{clauses 26139}#) (letrec* - ((#{parse-req 28049}# - (lambda (#{req 28182}# - #{opt 28183}# - #{rest 28184}# - #{kw 28185}# - #{body 28186}#) - (let ((#{vars 28187}# - (map #{gen-var 6335}# #{req 28182}#)) - (#{labels 28188}# - (#{gen-labels 6292}# #{req 28182}#))) - (let ((#{r* 28189}# - (#{extend-var-env 6284}# - #{labels 28188}# - #{vars 28187}# - #{r 28043}#)) - (#{w* 28190}# - (#{make-binding-wrap 6303}# - #{req 28182}# - #{labels 28188}# - #{w 28044}#))) - (#{parse-opt 28050}# - (map syntax->datum #{req 28182}#) - #{opt 28183}# - #{rest 28184}# - #{kw 28185}# - #{body 28186}# - (reverse #{vars 28187}#) - #{r* 28189}# - #{w* 28190}# + ((#{parse-req 26140}# + (lambda (#{req 26273}# + #{opt 26274}# + #{rest 26275}# + #{kw 26276}# + #{body 26277}#) + (let ((#{vars 26278}# + (map #{gen-var 4359}# #{req 26273}#)) + (#{labels 26279}# + (#{gen-labels 4316}# #{req 26273}#))) + (let ((#{r* 26280}# + (#{extend-var-env 4308}# + #{labels 26279}# + #{vars 26278}# + #{r 26134}#)) + (#{w* 26281}# + (#{make-binding-wrap 4327}# + #{req 26273}# + #{labels 26279}# + #{w 26135}#))) + (#{parse-opt 26141}# + (map syntax->datum #{req 26273}#) + #{opt 26274}# + #{rest 26275}# + #{kw 26276}# + #{body 26277}# + (reverse #{vars 26278}#) + #{r* 26280}# + #{w* 26281}# '() '()))))) - (#{parse-opt 28050}# - (lambda (#{req 28404}# - #{opt 28405}# - #{rest 28406}# - #{kw 28407}# - #{body 28408}# - #{vars 28409}# - #{r* 28410}# - #{w* 28411}# - #{out 28412}# - #{inits 28413}#) - (if (pair? #{opt 28405}#) - (let ((#{tmp 28414}# (car #{opt 28405}#))) - (let ((#{tmp 28415}# - ($sc-dispatch #{tmp 28414}# '(any any)))) - (if #{tmp 28415}# + (#{parse-opt 26141}# + (lambda (#{req 26495}# + #{opt 26496}# + #{rest 26497}# + #{kw 26498}# + #{body 26499}# + #{vars 26500}# + #{r* 26501}# + #{w* 26502}# + #{out 26503}# + #{inits 26504}#) + (if (pair? #{opt 26496}#) + (let ((#{tmp 26505}# (car #{opt 26496}#))) + (let ((#{tmp 26506}# + ($sc-dispatch #{tmp 26505}# '(any any)))) + (if #{tmp 26506}# (@apply - (lambda (#{id 28417}# #{i 28418}#) - (let ((#{v 28419}# - (let ((#{id 28427}# - (if (if (vector? #{id 28417}#) + (lambda (#{id 26508}# #{i 26509}#) + (let ((#{v 26510}# + (let ((#{id 26518}# + (if (if (vector? #{id 26508}#) (if (= (vector-length - #{id 28417}#) + #{id 26508}#) 4) (eq? (vector-ref - #{id 28417}# + #{id 26508}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 28417}# 1) - #{id 28417}#))) + (vector-ref #{id 26508}# 1) + #{id 26508}#))) (gensym (string-append - (symbol->string #{id 28427}#) + (symbol->string #{id 26518}#) " "))))) - (let ((#{l 28420}# - (#{gen-labels 6292}# (list #{v 28419}#)))) - (let ((#{r** 28421}# - (#{extend-var-env 6284}# - #{l 28420}# - (list #{v 28419}#) - #{r* 28410}#))) - (let ((#{w** 28422}# - (#{make-binding-wrap 6303}# - (list #{id 28417}#) - #{l 28420}# - #{w* 28411}#))) - (#{parse-opt 28050}# - #{req 28404}# - (cdr #{opt 28405}#) - #{rest 28406}# - #{kw 28407}# - #{body 28408}# - (cons #{v 28419}# #{vars 28409}#) - #{r** 28421}# - #{w** 28422}# - (cons (syntax->datum #{id 28417}#) - #{out 28412}#) - (cons (#{expand 6321}# - #{i 28418}# - #{r* 28410}# - #{w* 28411}# - #{mod 28046}#) - #{inits 28413}#))))))) - #{tmp 28415}#) + (let ((#{l 26511}# + (#{gen-labels 4316}# (list #{v 26510}#)))) + (let ((#{r** 26512}# + (#{extend-var-env 4308}# + #{l 26511}# + (list #{v 26510}#) + #{r* 26501}#))) + (let ((#{w** 26513}# + (#{make-binding-wrap 4327}# + (list #{id 26508}#) + #{l 26511}# + #{w* 26502}#))) + (#{parse-opt 26141}# + #{req 26495}# + (cdr #{opt 26496}#) + #{rest 26497}# + #{kw 26498}# + #{body 26499}# + (cons #{v 26510}# #{vars 26500}#) + #{r** 26512}# + #{w** 26513}# + (cons (syntax->datum #{id 26508}#) + #{out 26503}#) + (cons (#{expand 4345}# + #{i 26509}# + #{r* 26501}# + #{w* 26502}# + #{mod 26137}#) + #{inits 26504}#))))))) + #{tmp 26506}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28414}#)))) - (if #{rest 28406}# - (let ((#{v 28692}# - (let ((#{id 28702}# - (if (if (vector? #{rest 28406}#) - (if (= (vector-length #{rest 28406}#) + #{tmp 26505}#)))) + (if #{rest 26497}# + (let ((#{v 26783}# + (let ((#{id 26793}# + (if (if (vector? #{rest 26497}#) + (if (= (vector-length #{rest 26497}#) 4) - (eq? (vector-ref #{rest 28406}# 0) + (eq? (vector-ref #{rest 26497}# 0) 'syntax-object) #f) #f) - (vector-ref #{rest 28406}# 1) - #{rest 28406}#))) + (vector-ref #{rest 26497}# 1) + #{rest 26497}#))) (gensym (string-append - (symbol->string #{id 28702}#) + (symbol->string #{id 26793}#) " "))))) - (let ((#{l 28693}# - (#{gen-labels 6292}# (list #{v 28692}#)))) - (let ((#{r* 28694}# - (#{extend-var-env 6284}# - #{l 28693}# - (list #{v 28692}#) - #{r* 28410}#))) - (let ((#{w* 28695}# - (#{make-binding-wrap 6303}# - (list #{rest 28406}#) - #{l 28693}# - #{w* 28411}#))) - (#{parse-kw 28051}# - #{req 28404}# - (if (pair? #{out 28412}#) - (reverse #{out 28412}#) + (let ((#{l 26784}# + (#{gen-labels 4316}# (list #{v 26783}#)))) + (let ((#{r* 26785}# + (#{extend-var-env 4308}# + #{l 26784}# + (list #{v 26783}#) + #{r* 26501}#))) + (let ((#{w* 26786}# + (#{make-binding-wrap 4327}# + (list #{rest 26497}#) + #{l 26784}# + #{w* 26502}#))) + (#{parse-kw 26142}# + #{req 26495}# + (if (pair? #{out 26503}#) + (reverse #{out 26503}#) #f) - (syntax->datum #{rest 28406}#) - (if (pair? #{kw 28407}#) - (cdr #{kw 28407}#) - #{kw 28407}#) - #{body 28408}# - (cons #{v 28692}# #{vars 28409}#) - #{r* 28694}# - #{w* 28695}# - (if (pair? #{kw 28407}#) (car #{kw 28407}#) #f) + (syntax->datum #{rest 26497}#) + (if (pair? #{kw 26498}#) + (cdr #{kw 26498}#) + #{kw 26498}#) + #{body 26499}# + (cons #{v 26783}# #{vars 26500}#) + #{r* 26785}# + #{w* 26786}# + (if (pair? #{kw 26498}#) (car #{kw 26498}#) #f) '() - #{inits 28413}#))))) - (#{parse-kw 28051}# - #{req 28404}# - (if (pair? #{out 28412}#) - (reverse #{out 28412}#) + #{inits 26504}#))))) + (#{parse-kw 26142}# + #{req 26495}# + (if (pair? #{out 26503}#) + (reverse #{out 26503}#) #f) #f - (if (pair? #{kw 28407}#) - (cdr #{kw 28407}#) - #{kw 28407}#) - #{body 28408}# - #{vars 28409}# - #{r* 28410}# - #{w* 28411}# - (if (pair? #{kw 28407}#) (car #{kw 28407}#) #f) + (if (pair? #{kw 26498}#) + (cdr #{kw 26498}#) + #{kw 26498}#) + #{body 26499}# + #{vars 26500}# + #{r* 26501}# + #{w* 26502}# + (if (pair? #{kw 26498}#) (car #{kw 26498}#) #f) '() - #{inits 28413}#))))) - (#{parse-kw 28051}# - (lambda (#{req 28900}# - #{opt 28901}# - #{rest 28902}# - #{kw 28903}# - #{body 28904}# - #{vars 28905}# - #{r* 28906}# - #{w* 28907}# - #{aok 28908}# - #{out 28909}# - #{inits 28910}#) - (if (pair? #{kw 28903}#) - (let ((#{tmp 28911}# (car #{kw 28903}#))) - (let ((#{tmp 28912}# - ($sc-dispatch #{tmp 28911}# '(any any any)))) - (if #{tmp 28912}# + #{inits 26504}#))))) + (#{parse-kw 26142}# + (lambda (#{req 26991}# + #{opt 26992}# + #{rest 26993}# + #{kw 26994}# + #{body 26995}# + #{vars 26996}# + #{r* 26997}# + #{w* 26998}# + #{aok 26999}# + #{out 27000}# + #{inits 27001}#) + (if (pair? #{kw 26994}#) + (let ((#{tmp 27002}# (car #{kw 26994}#))) + (let ((#{tmp 27003}# + ($sc-dispatch #{tmp 27002}# '(any any any)))) + (if #{tmp 27003}# (@apply - (lambda (#{k 28914}# #{id 28915}# #{i 28916}#) - (let ((#{v 28917}# - (let ((#{id 28925}# - (if (if (vector? #{id 28915}#) + (lambda (#{k 27005}# #{id 27006}# #{i 27007}#) + (let ((#{v 27008}# + (let ((#{id 27016}# + (if (if (vector? #{id 27006}#) (if (= (vector-length - #{id 28915}#) + #{id 27006}#) 4) (eq? (vector-ref - #{id 28915}# + #{id 27006}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 28915}# 1) - #{id 28915}#))) + (vector-ref #{id 27006}# 1) + #{id 27006}#))) (gensym (string-append - (symbol->string #{id 28925}#) + (symbol->string #{id 27016}#) " "))))) - (let ((#{l 28918}# - (#{gen-labels 6292}# (list #{v 28917}#)))) - (let ((#{r** 28919}# - (#{extend-var-env 6284}# - #{l 28918}# - (list #{v 28917}#) - #{r* 28906}#))) - (let ((#{w** 28920}# - (#{make-binding-wrap 6303}# - (list #{id 28915}#) - #{l 28918}# - #{w* 28907}#))) - (#{parse-kw 28051}# - #{req 28900}# - #{opt 28901}# - #{rest 28902}# - (cdr #{kw 28903}#) - #{body 28904}# - (cons #{v 28917}# #{vars 28905}#) - #{r** 28919}# - #{w** 28920}# - #{aok 28908}# - (cons (list (syntax->datum #{k 28914}#) - (syntax->datum #{id 28915}#) - #{v 28917}#) - #{out 28909}#) - (cons (#{expand 6321}# - #{i 28916}# - #{r* 28906}# - #{w* 28907}# - #{mod 28046}#) - #{inits 28910}#))))))) - #{tmp 28912}#) + (let ((#{l 27009}# + (#{gen-labels 4316}# (list #{v 27008}#)))) + (let ((#{r** 27010}# + (#{extend-var-env 4308}# + #{l 27009}# + (list #{v 27008}#) + #{r* 26997}#))) + (let ((#{w** 27011}# + (#{make-binding-wrap 4327}# + (list #{id 27006}#) + #{l 27009}# + #{w* 26998}#))) + (#{parse-kw 26142}# + #{req 26991}# + #{opt 26992}# + #{rest 26993}# + (cdr #{kw 26994}#) + #{body 26995}# + (cons #{v 27008}# #{vars 26996}#) + #{r** 27010}# + #{w** 27011}# + #{aok 26999}# + (cons (list (syntax->datum #{k 27005}#) + (syntax->datum #{id 27006}#) + #{v 27008}#) + #{out 27000}#) + (cons (#{expand 4345}# + #{i 27007}# + #{r* 26997}# + #{w* 26998}# + #{mod 26137}#) + #{inits 27001}#))))))) + #{tmp 27003}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28911}#)))) - (#{parse-body 28052}# - #{req 28900}# - #{opt 28901}# - #{rest 28902}# - (if (if #{aok 28908}# - #{aok 28908}# - (pair? #{out 28909}#)) - (cons #{aok 28908}# (reverse #{out 28909}#)) + #{tmp 27002}#)))) + (#{parse-body 26143}# + #{req 26991}# + #{opt 26992}# + #{rest 26993}# + (if (if #{aok 26999}# + #{aok 26999}# + (pair? #{out 27000}#)) + (cons #{aok 26999}# (reverse #{out 27000}#)) #f) - #{body 28904}# - (reverse #{vars 28905}#) - #{r* 28906}# - #{w* 28907}# - (reverse #{inits 28910}#) + #{body 26995}# + (reverse #{vars 26996}#) + #{r* 26997}# + #{w* 26998}# + (reverse #{inits 27001}#) '())))) - (#{parse-body 28052}# - (lambda (#{req 29199}# - #{opt 29200}# - #{rest 29201}# - #{kw 29202}# - #{body 29203}# - #{vars 29204}# - #{r* 29205}# - #{w* 29206}# - #{inits 29207}# - #{meta 29208}#) - (let ((#{tmp 29210}# + (#{parse-body 26143}# + (lambda (#{req 27290}# + #{opt 27291}# + #{rest 27292}# + #{kw 27293}# + #{body 27294}# + #{vars 27295}# + #{r* 27296}# + #{w* 27297}# + #{inits 27298}# + #{meta 27299}#) + (let ((#{tmp 27301}# ($sc-dispatch - #{body 29203}# + #{body 27294}# '(any any . each-any)))) - (if (if #{tmp 29210}# + (if (if #{tmp 27301}# (@apply - (lambda (#{docstring 29214}# #{e1 29215}# #{e2 29216}#) - (string? (syntax->datum #{docstring 29214}#))) - #{tmp 29210}#) + (lambda (#{docstring 27305}# #{e1 27306}# #{e2 27307}#) + (string? (syntax->datum #{docstring 27305}#))) + #{tmp 27301}#) #f) (@apply - (lambda (#{docstring 29217}# #{e1 29218}# #{e2 29219}#) - (#{parse-body 28052}# - #{req 29199}# - #{opt 29200}# - #{rest 29201}# - #{kw 29202}# - (cons #{e1 29218}# #{e2 29219}#) - #{vars 29204}# - #{r* 29205}# - #{w* 29206}# - #{inits 29207}# + (lambda (#{docstring 27308}# #{e1 27309}# #{e2 27310}#) + (#{parse-body 26143}# + #{req 27290}# + #{opt 27291}# + #{rest 27292}# + #{kw 27293}# + (cons #{e1 27309}# #{e2 27310}#) + #{vars 27295}# + #{r* 27296}# + #{w* 27297}# + #{inits 27298}# (append - #{meta 29208}# + #{meta 27299}# (list (cons 'documentation - (syntax->datum #{docstring 29217}#)))))) - #{tmp 29210}#) - (let ((#{tmp 29220}# + (syntax->datum #{docstring 27308}#)))))) + #{tmp 27301}#) + (let ((#{tmp 27311}# ($sc-dispatch - #{body 29203}# + #{body 27294}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 29220}# + (if #{tmp 27311}# (@apply - (lambda (#{k 29224}# - #{v 29225}# - #{e1 29226}# - #{e2 29227}#) - (#{parse-body 28052}# - #{req 29199}# - #{opt 29200}# - #{rest 29201}# - #{kw 29202}# - (cons #{e1 29226}# #{e2 29227}#) - #{vars 29204}# - #{r* 29205}# - #{w* 29206}# - #{inits 29207}# + (lambda (#{k 27315}# + #{v 27316}# + #{e1 27317}# + #{e2 27318}#) + (#{parse-body 26143}# + #{req 27290}# + #{opt 27291}# + #{rest 27292}# + #{kw 27293}# + (cons #{e1 27317}# #{e2 27318}#) + #{vars 27295}# + #{r* 27296}# + #{w* 27297}# + #{inits 27298}# (append - #{meta 29208}# + #{meta 27299}# (syntax->datum - (map cons #{k 29224}# #{v 29225}#))))) - #{tmp 29220}#) - (let ((#{tmp 29228}# - ($sc-dispatch #{body 29203}# '(any . each-any)))) - (if #{tmp 29228}# + (map cons #{k 27315}# #{v 27316}#))))) + #{tmp 27311}#) + (let ((#{tmp 27319}# + ($sc-dispatch #{body 27294}# '(any . each-any)))) + (if #{tmp 27319}# (@apply - (lambda (#{e1 29232}# #{e2 29233}#) + (lambda (#{e1 27323}# #{e2 27324}#) (values - #{meta 29208}# - #{req 29199}# - #{opt 29200}# - #{rest 29201}# - #{kw 29202}# - #{inits 29207}# - #{vars 29204}# - (#{expand-body 6325}# - (cons #{e1 29232}# #{e2 29233}#) - (#{wrap 6314}# + #{meta 27299}# + #{req 27290}# + #{opt 27291}# + #{rest 27292}# + #{kw 27293}# + #{inits 27298}# + #{vars 27295}# + (#{expand-body 4349}# + (cons #{e1 27323}# #{e2 27324}#) + (#{wrap 4338}# (begin - (if (if (pair? #{e 28042}#) - #{s 28045}# + (if (if (pair? #{e 26133}#) + #{s 26136}# #f) (set-source-properties! - #{e 28042}# - #{s 28045}#)) - #{e 28042}#) - #{w 28044}# - #{mod 28046}#) - #{r* 29205}# - #{w* 29206}# - #{mod 28046}#))) - #{tmp 29228}#) + #{e 26133}# + #{s 26136}#)) + #{e 26133}#) + #{w 26135}# + #{mod 26137}#) + #{r* 27296}# + #{w* 27297}# + #{mod 26137}#))) + #{tmp 27319}#) (syntax-violation #f "source expression failed to match any pattern" - #{body 29203}#)))))))))) - (let ((#{tmp 28054}# - ($sc-dispatch #{clauses 28048}# '()))) - (if #{tmp 28054}# + #{body 27294}#)))))))))) + (let ((#{tmp 26145}# + ($sc-dispatch #{clauses 26139}# '()))) + (if #{tmp 26145}# (@apply (lambda () (values '() #f)) - #{tmp 28054}#) - (let ((#{tmp 28058}# + #{tmp 26145}#) + (let ((#{tmp 26149}# ($sc-dispatch - #{clauses 28048}# + #{clauses 26139}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 28058}# + (if #{tmp 26149}# (@apply - (lambda (#{args 28062}# - #{e1 28063}# - #{e2 28064}# - #{args* 28065}# - #{e1* 28066}# - #{e2* 28067}#) + (lambda (#{args 26153}# + #{e1 26154}# + #{e2 26155}# + #{args* 26156}# + #{e1* 26157}# + #{e2* 26158}#) (call-with-values (lambda () - (#{get-formals 28047}# #{args 28062}#)) - (lambda (#{req 28068}# - #{opt 28069}# - #{rest 28070}# - #{kw 28071}#) + (#{get-formals 26138}# #{args 26153}#)) + (lambda (#{req 26159}# + #{opt 26160}# + #{rest 26161}# + #{kw 26162}#) (call-with-values (lambda () - (#{parse-req 28049}# - #{req 28068}# - #{opt 28069}# - #{rest 28070}# - #{kw 28071}# - (cons #{e1 28063}# #{e2 28064}#))) - (lambda (#{meta 28138}# - #{req 28139}# - #{opt 28140}# - #{rest 28141}# - #{kw 28142}# - #{inits 28143}# - #{vars 28144}# - #{body 28145}#) + (#{parse-req 26140}# + #{req 26159}# + #{opt 26160}# + #{rest 26161}# + #{kw 26162}# + (cons #{e1 26154}# #{e2 26155}#))) + (lambda (#{meta 26229}# + #{req 26230}# + #{opt 26231}# + #{rest 26232}# + #{kw 26233}# + #{inits 26234}# + #{vars 26235}# + #{body 26236}#) (call-with-values (lambda () - (#{expand-lambda-case 6333}# - #{e 28042}# - #{r 28043}# - #{w 28044}# - #{s 28045}# - #{mod 28046}# - #{get-formals 28047}# - (map (lambda (#{tmp 4751 28146}# - #{tmp 4750 28147}# - #{tmp 4749 28148}#) - (cons #{tmp 4749 28148}# - (cons #{tmp 4750 28147}# - #{tmp 4751 28146}#))) - #{e2* 28067}# - #{e1* 28066}# - #{args* 28065}#))) - (lambda (#{meta* 28149}# #{else* 28150}#) + (#{expand-lambda-case 4357}# + #{e 26133}# + #{r 26134}# + #{w 26135}# + #{s 26136}# + #{mod 26137}# + #{get-formals 26138}# + (map (lambda (#{tmp 2775 26237}# + #{tmp 2774 26238}# + #{tmp 2773 26239}#) + (cons #{tmp 2773 26239}# + (cons #{tmp 2774 26238}# + #{tmp 2775 26237}#))) + #{e2* 26158}# + #{e1* 26157}# + #{args* 26156}#))) + (lambda (#{meta* 26240}# #{else* 26241}#) (values - (append #{meta 28138}# #{meta* 28149}#) + (append #{meta 26229}# #{meta* 26240}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 28045}# - #{req 28139}# - #{opt 28140}# - #{rest 28141}# - #{kw 28142}# - #{inits 28143}# - #{vars 28144}# - #{body 28145}# - #{else* 28150}#))))))))) - #{tmp 28058}#) + #{s 26136}# + #{req 26230}# + #{opt 26231}# + #{rest 26232}# + #{kw 26233}# + #{inits 26234}# + #{vars 26235}# + #{body 26236}# + #{else* 26241}#))))))))) + #{tmp 26149}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 28048}#)))))))) - (#{strip 6334}# - (lambda (#{x 29270}# #{w 29271}#) - (if (memq 'top (car #{w 29271}#)) - #{x 29270}# + #{clauses 26139}#)))))))) + (#{strip 4358}# + (lambda (#{x 27361}# #{w 27362}#) + (if (memq 'top (car #{w 27362}#)) + #{x 27361}# (letrec* - ((#{f 29272}# - (lambda (#{x 29275}#) - (if (if (vector? #{x 29275}#) - (if (= (vector-length #{x 29275}#) 4) - (eq? (vector-ref #{x 29275}# 0) 'syntax-object) + ((#{f 27363}# + (lambda (#{x 27366}#) + (if (if (vector? #{x 27366}#) + (if (= (vector-length #{x 27366}#) 4) + (eq? (vector-ref #{x 27366}# 0) 'syntax-object) #f) #f) - (#{strip 6334}# - (vector-ref #{x 29275}# 1) - (vector-ref #{x 29275}# 2)) - (if (pair? #{x 29275}#) - (let ((#{a 29294}# (#{f 29272}# (car #{x 29275}#))) - (#{d 29295}# (#{f 29272}# (cdr #{x 29275}#)))) - (if (if (eq? #{a 29294}# (car #{x 29275}#)) - (eq? #{d 29295}# (cdr #{x 29275}#)) + (#{strip 4358}# + (vector-ref #{x 27366}# 1) + (vector-ref #{x 27366}# 2)) + (if (pair? #{x 27366}#) + (let ((#{a 27385}# (#{f 27363}# (car #{x 27366}#))) + (#{d 27386}# (#{f 27363}# (cdr #{x 27366}#)))) + (if (if (eq? #{a 27385}# (car #{x 27366}#)) + (eq? #{d 27386}# (cdr #{x 27366}#)) #f) - #{x 29275}# - (cons #{a 29294}# #{d 29295}#))) - (if (vector? #{x 29275}#) - (let ((#{old 29298}# (vector->list #{x 29275}#))) - (let ((#{new 29299}# (map #{f 29272}# #{old 29298}#))) + #{x 27366}# + (cons #{a 27385}# #{d 27386}#))) + (if (vector? #{x 27366}#) + (let ((#{old 27389}# (vector->list #{x 27366}#))) + (let ((#{new 27390}# (map #{f 27363}# #{old 27389}#))) (letrec* - ((#{lp 29300}# - (lambda (#{l1 29376}# #{l2 29377}#) - (if (null? #{l1 29376}#) - #{x 29275}# - (if (eq? (car #{l1 29376}#) - (car #{l2 29377}#)) - (#{lp 29300}# - (cdr #{l1 29376}#) - (cdr #{l2 29377}#)) - (list->vector #{new 29299}#)))))) - (#{lp 29300}# #{old 29298}# #{new 29299}#)))) - #{x 29275}#)))))) - (#{f 29272}# #{x 29270}#))))) - (#{gen-var 6335}# - (lambda (#{id 28194}#) - (let ((#{id 28195}# - (if (if (vector? #{id 28194}#) - (if (= (vector-length #{id 28194}#) 4) - (eq? (vector-ref #{id 28194}# 0) 'syntax-object) + ((#{lp 27391}# + (lambda (#{l1 27467}# #{l2 27468}#) + (if (null? #{l1 27467}#) + #{x 27366}# + (if (eq? (car #{l1 27467}#) + (car #{l2 27468}#)) + (#{lp 27391}# + (cdr #{l1 27467}#) + (cdr #{l2 27468}#)) + (list->vector #{new 27390}#)))))) + (#{lp 27391}# #{old 27389}# #{new 27390}#)))) + #{x 27366}#)))))) + (#{f 27363}# #{x 27361}#))))) + (#{gen-var 4359}# + (lambda (#{id 26285}#) + (let ((#{id 26286}# + (if (if (vector? #{id 26285}#) + (if (= (vector-length #{id 26285}#) 4) + (eq? (vector-ref #{id 26285}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 28194}# 1) - #{id 28194}#))) + (vector-ref #{id 26285}# 1) + #{id 26285}#))) (gensym - (string-append (symbol->string #{id 28195}#) " ")))))) + (string-append (symbol->string #{id 26286}#) " ")))))) (begin (module-define! (current-module) @@ -8073,1357 +8126,1354 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend 6287}# + (#{global-extend 4311}# 'core - 'fluid-let-syntax - (lambda (#{e 6456}# - #{r 6457}# - #{w 6458}# - #{s 6459}# - #{mod 6460}#) - (let ((#{tmp 6462}# + 'syntax-parameterize + (lambda (#{e 4480}# + #{r 4481}# + #{w 4482}# + #{s 4483}# + #{mod 4484}#) + (let ((#{tmp 4486}# ($sc-dispatch - #{e 6456}# + #{e 4480}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 6462}# + (if (if #{tmp 4486}# (@apply - (lambda (#{var 6466}# - #{val 6467}# - #{e1 6468}# - #{e2 6469}#) - (#{valid-bound-ids? 6311}# #{var 6466}#)) - #{tmp 6462}#) + (lambda (#{var 4490}# + #{val 4491}# + #{e1 4492}# + #{e2 4493}#) + (#{valid-bound-ids? 4335}# #{var 4490}#)) + #{tmp 4486}#) #f) (@apply - (lambda (#{var 6547}# - #{val 6548}# - #{e1 6549}# - #{e2 6550}#) - (let ((#{names 6551}# - (map (lambda (#{x 6741}#) - (#{id-var-name 6308}# #{x 6741}# #{w 6458}#)) - #{var 6547}#))) + (lambda (#{var 4571}# + #{val 4572}# + #{e1 4573}# + #{e2 4574}#) + (let ((#{names 4575}# + (map (lambda (#{x 4765}#) + (#{id-var-name 4332}# #{x 4765}# #{w 4482}#)) + #{var 4571}#))) (begin (for-each - (lambda (#{id 6552}# #{n 6553}#) - (let ((#{atom-key 6554}# - (car (let ((#{t 6678}# - (assq #{n 6553}# #{r 6457}#))) - (if #{t 6678}# - (cdr #{t 6678}#) - (if (symbol? #{n 6553}#) - (let ((#{t 6683}# + (lambda (#{id 4576}# #{n 4577}#) + (let ((#{atom-key 4578}# + (car (let ((#{t 4702}# + (assq #{n 4577}# #{r 4481}#))) + (if #{t 4702}# + (cdr #{t 4702}#) + (if (symbol? #{n 4577}#) + (let ((#{t 4707}# (begin - (if (if (not #{mod 6460}#) + (if (if (not #{mod 4484}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 6553}#)) - (let ((#{v 6720}# + #{n 4577}#)) + (let ((#{v 4744}# (module-variable - (if #{mod 6460}# + (if #{mod 4484}# (resolve-module - (cdr #{mod 6460}#)) + (cdr #{mod 4484}#)) (current-module)) - #{n 6553}#))) - (if #{v 6720}# + #{n 4577}#))) + (if #{v 4744}# (if (variable-bound? - #{v 6720}#) - (let ((#{val 6729}# + #{v 4744}#) + (let ((#{val 4753}# (variable-ref - #{v 6720}#))) + #{v 4744}#))) (if (macro? - #{val 6729}#) + #{val 4753}#) (if (macro-type - #{val 6729}#) + #{val 4753}#) (cons (macro-type - #{val 6729}#) + #{val 4753}#) (macro-binding - #{val 6729}#)) + #{val 4753}#)) #f) #f)) #f) #f))))) - (if #{t 6683}# - #{t 6683}# + (if #{t 4707}# + #{t 4707}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 6587}# #{atom-key 6554}#)) - (eqv? #{t 6587}# 'displaced-lexical)) + (if (let ((#{t 4611}# #{atom-key 4578}#)) + (eqv? #{t 4611}# 'displaced-lexical)) (syntax-violation - 'fluid-let-syntax + 'syntax-parameterize "identifier out of context" - #{e 6456}# - (#{wrap 6314}# + #{e 4480}# + (#{wrap 4338}# (begin - (if (if (pair? #{id 6552}#) #{s 6459}# #f) + (if (if (pair? #{id 4576}#) #{s 4483}# #f) (set-source-properties! - #{id 6552}# - #{s 6459}#)) - #{id 6552}#) - #{w 6458}# - #{mod 6460}#))))) - #{var 6547}# - #{names 6551}#) - (#{expand-body 6325}# - (cons #{e1 6549}# #{e2 6550}#) - (#{wrap 6314}# + #{id 4576}# + #{s 4483}#)) + #{id 4576}#) + #{w 4482}# + #{mod 4484}#))))) + #{var 4571}# + #{names 4575}#) + (#{expand-body 4349}# + (cons #{e1 4573}# #{e2 4574}#) + (#{wrap 4338}# (begin - (if (if (pair? #{e 6456}#) #{s 6459}# #f) - (set-source-properties! #{e 6456}# #{s 6459}#)) - #{e 6456}#) - #{w 6458}# - #{mod 6460}#) - (#{extend-env 6283}# - #{names 6551}# - (let ((#{trans-r 6827}# - (#{macros-only-env 6285}# #{r 6457}#))) - (map (lambda (#{x 6828}#) + (if (if (pair? #{e 4480}#) #{s 4483}# #f) + (set-source-properties! #{e 4480}# #{s 4483}#)) + #{e 4480}#) + #{w 4482}# + #{mod 4484}#) + (#{extend-env 4307}# + #{names 4575}# + (let ((#{trans-r 4851}# + (#{macros-only-env 4309}# #{r 4481}#))) + (map (lambda (#{x 4852}#) (cons 'macro - (#{eval-local-transformer 6327}# - (#{expand 6321}# - #{x 6828}# - #{trans-r 6827}# - #{w 6458}# - #{mod 6460}#) - #{mod 6460}#))) - #{val 6548}#)) - #{r 6457}#) - #{w 6458}# - #{mod 6460}#)))) - #{tmp 6462}#) + (#{eval-local-transformer 4351}# + (#{expand 4345}# + #{x 4852}# + #{trans-r 4851}# + #{w 4482}# + #{mod 4484}#) + #{mod 4484}#))) + #{val 4572}#)) + #{r 4481}#) + #{w 4482}# + #{mod 4484}#)))) + #{tmp 4486}#) (syntax-violation - 'fluid-let-syntax + 'syntax-parameterize "bad syntax" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 6456}#) #{s 6459}# #f) - (set-source-properties! #{e 6456}# #{s 6459}#)) - #{e 6456}#) - #{w 6458}# - #{mod 6460}#)))))) + (if (if (pair? #{e 4480}#) #{s 4483}# #f) + (set-source-properties! #{e 4480}# #{s 4483}#)) + #{e 4480}#) + #{w 4482}# + #{mod 4484}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e 7037}# - #{r 7038}# - #{w 7039}# - #{s 7040}# - #{mod 7041}#) - (let ((#{tmp 7043}# ($sc-dispatch #{e 7037}# '(_ any)))) - (if #{tmp 7043}# + (lambda (#{e 5061}# + #{r 5062}# + #{w 5063}# + #{s 5064}# + #{mod 5065}#) + (let ((#{tmp 5067}# ($sc-dispatch #{e 5061}# '(_ any)))) + (if #{tmp 5067}# (@apply - (lambda (#{e 7046}#) - (let ((#{exp 7050}# - (#{strip 6334}# #{e 7046}# #{w 7039}#))) + (lambda (#{e 5070}#) + (let ((#{exp 5074}# + (#{strip 4358}# #{e 5070}# #{w 5063}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 7040}# - #{exp 7050}#))) - #{tmp 7043}#) + #{s 5064}# + #{exp 5074}#))) + #{tmp 5067}#) (syntax-violation 'quote "bad syntax" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 7037}#) #{s 7040}# #f) - (set-source-properties! #{e 7037}# #{s 7040}#)) - #{e 7037}#) - #{w 7039}# - #{mod 7041}#))))))) - (#{global-extend 6287}# + (if (if (pair? #{e 5061}#) #{s 5064}# #f) + (set-source-properties! #{e 5061}# #{s 5064}#)) + #{e 5061}#) + #{w 5063}# + #{mod 5065}#))))))) + (#{global-extend 4311}# 'core 'syntax (letrec* - ((#{gen-syntax 7277}# - (lambda (#{src 7379}# - #{e 7380}# - #{r 7381}# - #{maps 7382}# - #{ellipsis? 7383}# - #{mod 7384}#) - (if (if (symbol? #{e 7380}#) + ((#{gen-syntax 5301}# + (lambda (#{src 5403}# + #{e 5404}# + #{r 5405}# + #{maps 5406}# + #{ellipsis? 5407}# + #{mod 5408}#) + (if (if (symbol? #{e 5404}#) #t - (if (if (vector? #{e 7380}#) - (if (= (vector-length #{e 7380}#) 4) - (eq? (vector-ref #{e 7380}# 0) 'syntax-object) + (if (if (vector? #{e 5404}#) + (if (= (vector-length #{e 5404}#) 4) + (eq? (vector-ref #{e 5404}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 7380}# 1)) + (symbol? (vector-ref #{e 5404}# 1)) #f)) - (let ((#{label 7411}# - (#{id-var-name 6308}# #{e 7380}# '(())))) - (let ((#{b 7412}# - (let ((#{t 7549}# (assq #{label 7411}# #{r 7381}#))) - (if #{t 7549}# - (cdr #{t 7549}#) - (if (symbol? #{label 7411}#) - (let ((#{t 7554}# + (let ((#{label 5435}# + (#{id-var-name 4332}# #{e 5404}# '(())))) + (let ((#{b 5436}# + (let ((#{t 5573}# (assq #{label 5435}# #{r 5405}#))) + (if #{t 5573}# + (cdr #{t 5573}#) + (if (symbol? #{label 5435}#) + (let ((#{t 5578}# (begin - (if (if (not #{mod 7384}#) + (if (if (not #{mod 5408}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{label 7411}#)) - (let ((#{v 7591}# + #{label 5435}#)) + (let ((#{v 5615}# (module-variable - (if #{mod 7384}# + (if #{mod 5408}# (resolve-module - (cdr #{mod 7384}#)) + (cdr #{mod 5408}#)) (current-module)) - #{label 7411}#))) - (if #{v 7591}# - (if (variable-bound? #{v 7591}#) - (let ((#{val 7600}# + #{label 5435}#))) + (if #{v 5615}# + (if (variable-bound? #{v 5615}#) + (let ((#{val 5624}# (variable-ref - #{v 7591}#))) - (if (macro? #{val 7600}#) + #{v 5615}#))) + (if (macro? #{val 5624}#) (if (macro-type - #{val 7600}#) + #{val 5624}#) (cons (macro-type - #{val 7600}#) + #{val 5624}#) (macro-binding - #{val 7600}#)) + #{val 5624}#)) #f) #f)) #f) #f))))) - (if #{t 7554}# #{t 7554}# '(global))) + (if #{t 5578}# #{t 5578}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 7412}#) 'syntax) + (if (eq? (car #{b 5436}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 7445}# (cdr #{b 7412}#))) - (#{gen-ref 7278}# - #{src 7379}# - (car #{var.lev 7445}#) - (cdr #{var.lev 7445}#) - #{maps 7382}#))) - (lambda (#{var 7541}# #{maps 7542}#) - (values (list 'ref #{var 7541}#) #{maps 7542}#))) - (if (#{ellipsis? 7383}# #{e 7380}#) + (let ((#{var.lev 5469}# (cdr #{b 5436}#))) + (#{gen-ref 5302}# + #{src 5403}# + (car #{var.lev 5469}#) + (cdr #{var.lev 5469}#) + #{maps 5406}#))) + (lambda (#{var 5565}# #{maps 5566}#) + (values (list 'ref #{var 5565}#) #{maps 5566}#))) + (if (#{ellipsis? 5407}# #{e 5404}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 7379}#) - (values (list 'quote #{e 7380}#) #{maps 7382}#))))) - (let ((#{tmp 7612}# - ($sc-dispatch #{e 7380}# '(any any)))) - (if (if #{tmp 7612}# + #{src 5403}#) + (values (list 'quote #{e 5404}#) #{maps 5406}#))))) + (let ((#{tmp 5636}# + ($sc-dispatch #{e 5404}# '(any any)))) + (if (if #{tmp 5636}# (@apply - (lambda (#{dots 7616}# #{e 7617}#) - (#{ellipsis? 7383}# #{dots 7616}#)) - #{tmp 7612}#) + (lambda (#{dots 5640}# #{e 5641}#) + (#{ellipsis? 5407}# #{dots 5640}#)) + #{tmp 5636}#) #f) (@apply - (lambda (#{dots 7618}# #{e 7619}#) - (#{gen-syntax 7277}# - #{src 7379}# - #{e 7619}# - #{r 7381}# - #{maps 7382}# - (lambda (#{x 7620}#) #f) - #{mod 7384}#)) - #{tmp 7612}#) - (let ((#{tmp 7621}# - ($sc-dispatch #{e 7380}# '(any any . any)))) - (if (if #{tmp 7621}# + (lambda (#{dots 5642}# #{e 5643}#) + (#{gen-syntax 5301}# + #{src 5403}# + #{e 5643}# + #{r 5405}# + #{maps 5406}# + (lambda (#{x 5644}#) #f) + #{mod 5408}#)) + #{tmp 5636}#) + (let ((#{tmp 5645}# + ($sc-dispatch #{e 5404}# '(any any . any)))) + (if (if #{tmp 5645}# (@apply - (lambda (#{x 7625}# #{dots 7626}# #{y 7627}#) - (#{ellipsis? 7383}# #{dots 7626}#)) - #{tmp 7621}#) + (lambda (#{x 5649}# #{dots 5650}# #{y 5651}#) + (#{ellipsis? 5407}# #{dots 5650}#)) + #{tmp 5645}#) #f) (@apply - (lambda (#{x 7628}# #{dots 7629}# #{y 7630}#) + (lambda (#{x 5652}# #{dots 5653}# #{y 5654}#) (letrec* - ((#{f 7631}# - (lambda (#{y 7639}# #{k 7640}#) - (let ((#{tmp 7642}# + ((#{f 5655}# + (lambda (#{y 5663}# #{k 5664}#) + (let ((#{tmp 5666}# ($sc-dispatch - #{y 7639}# + #{y 5663}# '(any . any)))) - (if (if #{tmp 7642}# + (if (if #{tmp 5666}# (@apply - (lambda (#{dots 7646}# #{y 7647}#) - (#{ellipsis? 7383}# - #{dots 7646}#)) - #{tmp 7642}#) + (lambda (#{dots 5670}# #{y 5671}#) + (#{ellipsis? 5407}# + #{dots 5670}#)) + #{tmp 5666}#) #f) (@apply - (lambda (#{dots 7648}# #{y 7649}#) - (#{f 7631}# - #{y 7649}# - (lambda (#{maps 7650}#) + (lambda (#{dots 5672}# #{y 5673}#) + (#{f 5655}# + #{y 5673}# + (lambda (#{maps 5674}#) (call-with-values (lambda () - (#{k 7640}# - (cons '() #{maps 7650}#))) - (lambda (#{x 7651}# - #{maps 7652}#) - (if (null? (car #{maps 7652}#)) + (#{k 5664}# + (cons '() #{maps 5674}#))) + (lambda (#{x 5675}# + #{maps 5676}#) + (if (null? (car #{maps 5676}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 7379}#) + #{src 5403}#) (values - (let ((#{map-env 7656}# - (car #{maps 7652}#))) + (let ((#{map-env 5680}# + (car #{maps 5676}#))) (list 'apply '(primitive append) - (#{gen-map 7280}# - #{x 7651}# - #{map-env 7656}#))) - (cdr #{maps 7652}#)))))))) - #{tmp 7642}#) + (#{gen-map 5304}# + #{x 5675}# + #{map-env 5680}#))) + (cdr #{maps 5676}#)))))))) + #{tmp 5666}#) (call-with-values (lambda () - (#{gen-syntax 7277}# - #{src 7379}# - #{y 7639}# - #{r 7381}# - #{maps 7382}# - #{ellipsis? 7383}# - #{mod 7384}#)) - (lambda (#{y 7659}# #{maps 7660}#) + (#{gen-syntax 5301}# + #{src 5403}# + #{y 5663}# + #{r 5405}# + #{maps 5406}# + #{ellipsis? 5407}# + #{mod 5408}#)) + (lambda (#{y 5683}# #{maps 5684}#) (call-with-values (lambda () - (#{k 7640}# #{maps 7660}#)) - (lambda (#{x 7661}# #{maps 7662}#) + (#{k 5664}# #{maps 5684}#)) + (lambda (#{x 5685}# #{maps 5686}#) (values - (if (equal? #{y 7659}# ''()) - #{x 7661}# + (if (equal? #{y 5683}# ''()) + #{x 5685}# (list 'append - #{x 7661}# - #{y 7659}#)) - #{maps 7662}#)))))))))) - (#{f 7631}# - #{y 7630}# - (lambda (#{maps 7634}#) + #{x 5685}# + #{y 5683}#)) + #{maps 5686}#)))))))))) + (#{f 5655}# + #{y 5654}# + (lambda (#{maps 5658}#) (call-with-values (lambda () - (#{gen-syntax 7277}# - #{src 7379}# - #{x 7628}# - #{r 7381}# - (cons '() #{maps 7634}#) - #{ellipsis? 7383}# - #{mod 7384}#)) - (lambda (#{x 7635}# #{maps 7636}#) - (if (null? (car #{maps 7636}#)) + (#{gen-syntax 5301}# + #{src 5403}# + #{x 5652}# + #{r 5405}# + (cons '() #{maps 5658}#) + #{ellipsis? 5407}# + #{mod 5408}#)) + (lambda (#{x 5659}# #{maps 5660}#) + (if (null? (car #{maps 5660}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 7379}#) + #{src 5403}#) (values - (#{gen-map 7280}# - #{x 7635}# - (car #{maps 7636}#)) - (cdr #{maps 7636}#))))))))) - #{tmp 7621}#) - (let ((#{tmp 7678}# - ($sc-dispatch #{e 7380}# '(any . any)))) - (if #{tmp 7678}# + (#{gen-map 5304}# + #{x 5659}# + (car #{maps 5660}#)) + (cdr #{maps 5660}#))))))))) + #{tmp 5645}#) + (let ((#{tmp 5702}# + ($sc-dispatch #{e 5404}# '(any . any)))) + (if #{tmp 5702}# (@apply - (lambda (#{x 7682}# #{y 7683}#) + (lambda (#{x 5706}# #{y 5707}#) (call-with-values (lambda () - (#{gen-syntax 7277}# - #{src 7379}# - #{x 7682}# - #{r 7381}# - #{maps 7382}# - #{ellipsis? 7383}# - #{mod 7384}#)) - (lambda (#{x 7684}# #{maps 7685}#) + (#{gen-syntax 5301}# + #{src 5403}# + #{x 5706}# + #{r 5405}# + #{maps 5406}# + #{ellipsis? 5407}# + #{mod 5408}#)) + (lambda (#{x 5708}# #{maps 5709}#) (call-with-values (lambda () - (#{gen-syntax 7277}# - #{src 7379}# - #{y 7683}# - #{r 7381}# - #{maps 7685}# - #{ellipsis? 7383}# - #{mod 7384}#)) - (lambda (#{y 7686}# #{maps 7687}#) + (#{gen-syntax 5301}# + #{src 5403}# + #{y 5707}# + #{r 5405}# + #{maps 5709}# + #{ellipsis? 5407}# + #{mod 5408}#)) + (lambda (#{y 5710}# #{maps 5711}#) (values - (let ((#{atom-key 7692}# - (car #{y 7686}#))) - (if (eqv? #{atom-key 7692}# 'quote) - (if (eq? (car #{x 7684}#) 'quote) + (let ((#{atom-key 5716}# + (car #{y 5710}#))) + (if (eqv? #{atom-key 5716}# 'quote) + (if (eq? (car #{x 5708}#) 'quote) (list 'quote - (cons (car (cdr #{x 7684}#)) - (car (cdr #{y 7686}#)))) - (if (eq? (car (cdr #{y 7686}#)) + (cons (car (cdr #{x 5708}#)) + (car (cdr #{y 5710}#)))) + (if (eq? (car (cdr #{y 5710}#)) '()) - (list 'list #{x 7684}#) + (list 'list #{x 5708}#) (list 'cons - #{x 7684}# - #{y 7686}#))) - (if (eqv? #{atom-key 7692}# 'list) + #{x 5708}# + #{y 5710}#))) + (if (eqv? #{atom-key 5716}# 'list) (cons 'list - (cons #{x 7684}# - (cdr #{y 7686}#))) + (cons #{x 5708}# + (cdr #{y 5710}#))) (list 'cons - #{x 7684}# - #{y 7686}#)))) - #{maps 7687}#)))))) - #{tmp 7678}#) - (let ((#{tmp 7721}# + #{x 5708}# + #{y 5710}#)))) + #{maps 5711}#)))))) + #{tmp 5702}#) + (let ((#{tmp 5745}# ($sc-dispatch - #{e 7380}# + #{e 5404}# '#(vector (any . each-any))))) - (if #{tmp 7721}# + (if #{tmp 5745}# (@apply - (lambda (#{e1 7725}# #{e2 7726}#) + (lambda (#{e1 5749}# #{e2 5750}#) (call-with-values (lambda () - (#{gen-syntax 7277}# - #{src 7379}# - (cons #{e1 7725}# #{e2 7726}#) - #{r 7381}# - #{maps 7382}# - #{ellipsis? 7383}# - #{mod 7384}#)) - (lambda (#{e 7727}# #{maps 7728}#) + (#{gen-syntax 5301}# + #{src 5403}# + (cons #{e1 5749}# #{e2 5750}#) + #{r 5405}# + #{maps 5406}# + #{ellipsis? 5407}# + #{mod 5408}#)) + (lambda (#{e 5751}# #{maps 5752}#) (values - (if (eq? (car #{e 7727}#) 'list) - (cons 'vector (cdr #{e 7727}#)) - (if (eq? (car #{e 7727}#) 'quote) + (if (eq? (car #{e 5751}#) 'list) + (cons 'vector (cdr #{e 5751}#)) + (if (eq? (car #{e 5751}#) 'quote) (list 'quote (list->vector - (car (cdr #{e 7727}#)))) - (list 'list->vector #{e 7727}#))) - #{maps 7728}#)))) - #{tmp 7721}#) + (car (cdr #{e 5751}#)))) + (list 'list->vector #{e 5751}#))) + #{maps 5752}#)))) + #{tmp 5745}#) (values - (list 'quote #{e 7380}#) - #{maps 7382}#)))))))))))) - (#{gen-ref 7278}# - (lambda (#{src 7755}# - #{var 7756}# - #{level 7757}# - #{maps 7758}#) - (if (= #{level 7757}# 0) - (values #{var 7756}# #{maps 7758}#) - (if (null? #{maps 7758}#) + (list 'quote #{e 5404}#) + #{maps 5406}#)))))))))))) + (#{gen-ref 5302}# + (lambda (#{src 5779}# + #{var 5780}# + #{level 5781}# + #{maps 5782}#) + (if (= #{level 5781}# 0) + (values #{var 5780}# #{maps 5782}#) + (if (null? #{maps 5782}#) (syntax-violation 'syntax "missing ellipsis" - #{src 7755}#) + #{src 5779}#) (call-with-values (lambda () - (#{gen-ref 7278}# - #{src 7755}# - #{var 7756}# - (#{1-}# #{level 7757}#) - (cdr #{maps 7758}#))) - (lambda (#{outer-var 7759}# #{outer-maps 7760}#) - (let ((#{b 7761}# - (assq #{outer-var 7759}# (car #{maps 7758}#)))) - (if #{b 7761}# - (values (cdr #{b 7761}#) #{maps 7758}#) - (let ((#{inner-var 7763}# + (#{gen-ref 5302}# + #{src 5779}# + #{var 5780}# + (#{1-}# #{level 5781}#) + (cdr #{maps 5782}#))) + (lambda (#{outer-var 5783}# #{outer-maps 5784}#) + (let ((#{b 5785}# + (assq #{outer-var 5783}# (car #{maps 5782}#)))) + (if #{b 5785}# + (values (cdr #{b 5785}#) #{maps 5782}#) + (let ((#{inner-var 5787}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var 7763}# - (cons (cons (cons #{outer-var 7759}# - #{inner-var 7763}#) - (car #{maps 7758}#)) - #{outer-maps 7760}#))))))))))) - (#{gen-map 7280}# - (lambda (#{e 7777}# #{map-env 7778}#) - (let ((#{formals 7779}# (map cdr #{map-env 7778}#)) - (#{actuals 7780}# - (map (lambda (#{x 7782}#) - (list 'ref (car #{x 7782}#))) - #{map-env 7778}#))) - (if (eq? (car #{e 7777}#) 'ref) - (car #{actuals 7780}#) + #{inner-var 5787}# + (cons (cons (cons #{outer-var 5783}# + #{inner-var 5787}#) + (car #{maps 5782}#)) + #{outer-maps 5784}#))))))))))) + (#{gen-map 5304}# + (lambda (#{e 5801}# #{map-env 5802}#) + (let ((#{formals 5803}# (map cdr #{map-env 5802}#)) + (#{actuals 5804}# + (map (lambda (#{x 5806}#) + (list 'ref (car #{x 5806}#))) + #{map-env 5802}#))) + (if (eq? (car #{e 5801}#) 'ref) + (car #{actuals 5804}#) (if (and-map - (lambda (#{x 7783}#) - (if (eq? (car #{x 7783}#) 'ref) - (memq (car (cdr #{x 7783}#)) #{formals 7779}#) + (lambda (#{x 5807}#) + (if (eq? (car #{x 5807}#) 'ref) + (memq (car (cdr #{x 5807}#)) #{formals 5803}#) #f)) - (cdr #{e 7777}#)) + (cdr #{e 5801}#)) (cons 'map - (cons (list 'primitive (car #{e 7777}#)) - (map (let ((#{r 7785}# + (cons (list 'primitive (car #{e 5801}#)) + (map (let ((#{r 5809}# (map cons - #{formals 7779}# - #{actuals 7780}#))) - (lambda (#{x 7786}#) - (cdr (assq (car (cdr #{x 7786}#)) - #{r 7785}#)))) - (cdr #{e 7777}#)))) + #{formals 5803}# + #{actuals 5804}#))) + (lambda (#{x 5810}#) + (cdr (assq (car (cdr #{x 5810}#)) + #{r 5809}#)))) + (cdr #{e 5801}#)))) (cons 'map - (cons (list 'lambda #{formals 7779}# #{e 7777}#) - #{actuals 7780}#))))))) - (#{regen 7284}# - (lambda (#{x 7788}#) - (let ((#{atom-key 7789}# (car #{x 7788}#))) - (if (eqv? #{atom-key 7789}# 'ref) - (let ((#{name 7799}# (car (cdr #{x 7788}#))) - (#{var 7800}# (car (cdr #{x 7788}#)))) + (cons (list 'lambda #{formals 5803}# #{e 5801}#) + #{actuals 5804}#))))))) + (#{regen 5308}# + (lambda (#{x 5812}#) + (let ((#{atom-key 5813}# (car #{x 5812}#))) + (if (eqv? #{atom-key 5813}# 'ref) + (let ((#{name 5823}# (car (cdr #{x 5812}#))) + (#{var 5824}# (car (cdr #{x 5812}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 7799}# - #{var 7800}#)) - (if (eqv? #{atom-key 7789}# 'primitive) - (let ((#{name 7812}# (car (cdr #{x 7788}#)))) + #{name 5823}# + #{var 5824}#)) + (if (eqv? #{atom-key 5813}# 'primitive) + (let ((#{name 5836}# (car (cdr #{x 5812}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 7812}#) + #{name 5836}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 7812}# + #{name 5836}# #f))) - (if (eqv? #{atom-key 7789}# 'quote) - (let ((#{exp 7830}# (car (cdr #{x 7788}#)))) + (if (eqv? #{atom-key 5813}# 'quote) + (let ((#{exp 5854}# (car (cdr #{x 5812}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 7830}#)) - (if (eqv? #{atom-key 7789}# 'lambda) - (if (list? (car (cdr #{x 7788}#))) - (let ((#{req 7841}# (car (cdr #{x 7788}#))) - (#{vars 7843}# (car (cdr #{x 7788}#))) - (#{exp 7845}# - (#{regen 7284}# - (car (cdr (cdr #{x 7788}#)))))) - (let ((#{body 7850}# + #{exp 5854}#)) + (if (eqv? #{atom-key 5813}# 'lambda) + (if (list? (car (cdr #{x 5812}#))) + (let ((#{req 5865}# (car (cdr #{x 5812}#))) + (#{vars 5867}# (car (cdr #{x 5812}#))) + (#{exp 5869}# + (#{regen 5308}# + (car (cdr (cdr #{x 5812}#)))))) + (let ((#{body 5874}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 7841}# + #{req 5865}# #f #f #f '() - #{vars 7843}# - #{exp 7845}# + #{vars 5867}# + #{exp 5869}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 7850}#))) - (error "how did we get here" #{x 7788}#)) - (let ((#{fun-exp 7866}# - (let ((#{name 7875}# (car #{x 7788}#))) + #{body 5874}#))) + (error "how did we get here" #{x 5812}#)) + (let ((#{fun-exp 5890}# + (let ((#{name 5899}# (car #{x 5812}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 7875}#) + #{name 5899}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 7875}# + #{name 5899}# #f)))) - (#{arg-exps 7867}# - (map #{regen 7284}# (cdr #{x 7788}#)))) + (#{arg-exps 5891}# + (map #{regen 5308}# (cdr #{x 5812}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 7866}# - #{arg-exps 7867}#)))))))))) - (lambda (#{e 7285}# - #{r 7286}# - #{w 7287}# - #{s 7288}# - #{mod 7289}#) - (let ((#{e 7290}# - (#{wrap 6314}# + #{fun-exp 5890}# + #{arg-exps 5891}#)))))))))) + (lambda (#{e 5309}# + #{r 5310}# + #{w 5311}# + #{s 5312}# + #{mod 5313}#) + (let ((#{e 5314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 7285}#) #{s 7288}# #f) - (set-source-properties! #{e 7285}# #{s 7288}#)) - #{e 7285}#) - #{w 7287}# - #{mod 7289}#))) - (let ((#{tmp 7292}# ($sc-dispatch #{e 7290}# '(_ any)))) - (if #{tmp 7292}# + (if (if (pair? #{e 5309}#) #{s 5312}# #f) + (set-source-properties! #{e 5309}# #{s 5312}#)) + #{e 5309}#) + #{w 5311}# + #{mod 5313}#))) + (let ((#{tmp 5316}# ($sc-dispatch #{e 5314}# '(_ any)))) + (if #{tmp 5316}# (@apply - (lambda (#{x 7317}#) + (lambda (#{x 5341}#) (call-with-values (lambda () - (#{gen-syntax 7277}# - #{e 7290}# - #{x 7317}# - #{r 7286}# + (#{gen-syntax 5301}# + #{e 5314}# + #{x 5341}# + #{r 5310}# '() - #{ellipsis? 6329}# - #{mod 7289}#)) - (lambda (#{e 7371}# #{maps 7372}#) - (#{regen 7284}# #{e 7371}#)))) - #{tmp 7292}#) + #{ellipsis? 4353}# + #{mod 5313}#)) + (lambda (#{e 5395}# #{maps 5396}#) + (#{regen 5308}# #{e 5395}#)))) + #{tmp 5316}#) (syntax-violation 'syntax "bad `syntax' form" - #{e 7290}#))))))) - (#{global-extend 6287}# + #{e 5314}#))))))) + (#{global-extend 4311}# 'core 'lambda - (lambda (#{e 8068}# - #{r 8069}# - #{w 8070}# - #{s 8071}# - #{mod 8072}#) - (let ((#{tmp 8074}# - ($sc-dispatch #{e 8068}# '(_ any any . each-any)))) - (if #{tmp 8074}# + (lambda (#{e 6092}# + #{r 6093}# + #{w 6094}# + #{s 6095}# + #{mod 6096}#) + (let ((#{tmp 6098}# + ($sc-dispatch #{e 6092}# '(_ any any . each-any)))) + (if #{tmp 6098}# (@apply - (lambda (#{args 8078}# #{e1 8079}# #{e2 8080}#) + (lambda (#{args 6102}# #{e1 6103}# #{e2 6104}#) (call-with-values (lambda () - (#{lambda-formals 6330}# #{args 8078}#)) - (lambda (#{req 8083}# - #{opt 8084}# - #{rest 8085}# - #{kw 8086}#) + (#{lambda-formals 4354}# #{args 6102}#)) + (lambda (#{req 6107}# + #{opt 6108}# + #{rest 6109}# + #{kw 6110}#) (letrec* - ((#{lp 8087}# - (lambda (#{body 8090}# #{meta 8091}#) - (let ((#{tmp 8093}# + ((#{lp 6111}# + (lambda (#{body 6114}# #{meta 6115}#) + (let ((#{tmp 6117}# ($sc-dispatch - #{body 8090}# + #{body 6114}# '(any any . each-any)))) - (if (if #{tmp 8093}# + (if (if #{tmp 6117}# (@apply - (lambda (#{docstring 8097}# - #{e1 8098}# - #{e2 8099}#) + (lambda (#{docstring 6121}# + #{e1 6122}# + #{e2 6123}#) (string? - (syntax->datum #{docstring 8097}#))) - #{tmp 8093}#) + (syntax->datum #{docstring 6121}#))) + #{tmp 6117}#) #f) (@apply - (lambda (#{docstring 8100}# - #{e1 8101}# - #{e2 8102}#) - (#{lp 8087}# - (cons #{e1 8101}# #{e2 8102}#) + (lambda (#{docstring 6124}# + #{e1 6125}# + #{e2 6126}#) + (#{lp 6111}# + (cons #{e1 6125}# #{e2 6126}#) (append - #{meta 8091}# + #{meta 6115}# (list (cons 'documentation (syntax->datum - #{docstring 8100}#)))))) - #{tmp 8093}#) - (let ((#{tmp 8103}# + #{docstring 6124}#)))))) + #{tmp 6117}#) + (let ((#{tmp 6127}# ($sc-dispatch - #{body 8090}# + #{body 6114}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 8103}# + (if #{tmp 6127}# (@apply - (lambda (#{k 8107}# - #{v 8108}# - #{e1 8109}# - #{e2 8110}#) - (#{lp 8087}# - (cons #{e1 8109}# #{e2 8110}#) + (lambda (#{k 6131}# + #{v 6132}# + #{e1 6133}# + #{e2 6134}#) + (#{lp 6111}# + (cons #{e1 6133}# #{e2 6134}#) (append - #{meta 8091}# + #{meta 6115}# (syntax->datum (map cons - #{k 8107}# - #{v 8108}#))))) - #{tmp 8103}#) - (#{expand-simple-lambda 6331}# - #{e 8068}# - #{r 8069}# - #{w 8070}# - #{s 8071}# - #{mod 8072}# - #{req 8083}# - #{rest 8085}# - #{meta 8091}# - #{body 8090}#)))))))) - (#{lp 8087}# (cons #{e1 8079}# #{e2 8080}#) '()))))) - #{tmp 8074}#) + #{k 6131}# + #{v 6132}#))))) + #{tmp 6127}#) + (#{expand-simple-lambda 4355}# + #{e 6092}# + #{r 6093}# + #{w 6094}# + #{s 6095}# + #{mod 6096}# + #{req 6107}# + #{rest 6109}# + #{meta 6115}# + #{body 6114}#)))))))) + (#{lp 6111}# (cons #{e1 6103}# #{e2 6104}#) '()))))) + #{tmp 6098}#) (syntax-violation 'lambda "bad lambda" - #{e 8068}#))))) - (#{global-extend 6287}# + #{e 6092}#))))) + (#{global-extend 4311}# 'core 'lambda* - (lambda (#{e 8401}# - #{r 8402}# - #{w 8403}# - #{s 8404}# - #{mod 8405}#) - (let ((#{tmp 8407}# - ($sc-dispatch #{e 8401}# '(_ any any . each-any)))) - (if #{tmp 8407}# + (lambda (#{e 6425}# + #{r 6426}# + #{w 6427}# + #{s 6428}# + #{mod 6429}#) + (let ((#{tmp 6431}# + ($sc-dispatch #{e 6425}# '(_ any any . each-any)))) + (if #{tmp 6431}# (@apply - (lambda (#{args 8411}# #{e1 8412}# #{e2 8413}#) + (lambda (#{args 6435}# #{e1 6436}# #{e2 6437}#) (call-with-values (lambda () - (#{expand-lambda-case 6333}# - #{e 8401}# - #{r 8402}# - #{w 8403}# - #{s 8404}# - #{mod 8405}# - #{lambda*-formals 6332}# - (list (cons #{args 8411}# - (cons #{e1 8412}# #{e2 8413}#))))) - (lambda (#{meta 8416}# #{lcase 8417}#) + (#{expand-lambda-case 4357}# + #{e 6425}# + #{r 6426}# + #{w 6427}# + #{s 6428}# + #{mod 6429}# + #{lambda*-formals 4356}# + (list (cons #{args 6435}# + (cons #{e1 6436}# #{e2 6437}#))))) + (lambda (#{meta 6440}# #{lcase 6441}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 8404}# - #{meta 8416}# - #{lcase 8417}#)))) - #{tmp 8407}#) + #{s 6428}# + #{meta 6440}# + #{lcase 6441}#)))) + #{tmp 6431}#) (syntax-violation 'lambda "bad lambda*" - #{e 8401}#))))) - (#{global-extend 6287}# + #{e 6425}#))))) + (#{global-extend 4311}# 'core 'case-lambda - (lambda (#{e 8587}# - #{r 8588}# - #{w 8589}# - #{s 8590}# - #{mod 8591}#) - (let ((#{tmp 8593}# + (lambda (#{e 6611}# + #{r 6612}# + #{w 6613}# + #{s 6614}# + #{mod 6615}#) + (let ((#{tmp 6617}# ($sc-dispatch - #{e 8587}# + #{e 6611}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 8593}# + (if #{tmp 6617}# (@apply - (lambda (#{args 8597}# - #{e1 8598}# - #{e2 8599}# - #{args* 8600}# - #{e1* 8601}# - #{e2* 8602}#) + (lambda (#{args 6621}# + #{e1 6622}# + #{e2 6623}# + #{args* 6624}# + #{e1* 6625}# + #{e2* 6626}#) (call-with-values (lambda () - (#{expand-lambda-case 6333}# - #{e 8587}# - #{r 8588}# - #{w 8589}# - #{s 8590}# - #{mod 8591}# - #{lambda-formals 6330}# - (cons (cons #{args 8597}# - (cons #{e1 8598}# #{e2 8599}#)) - (map (lambda (#{tmp 5250 8605}# - #{tmp 5249 8606}# - #{tmp 5248 8607}#) - (cons #{tmp 5248 8607}# - (cons #{tmp 5249 8606}# - #{tmp 5250 8605}#))) - #{e2* 8602}# - #{e1* 8601}# - #{args* 8600}#)))) - (lambda (#{meta 8608}# #{lcase 8609}#) + (#{expand-lambda-case 4357}# + #{e 6611}# + #{r 6612}# + #{w 6613}# + #{s 6614}# + #{mod 6615}# + #{lambda-formals 4354}# + (cons (cons #{args 6621}# + (cons #{e1 6622}# #{e2 6623}#)) + (map (lambda (#{tmp 3274 6629}# + #{tmp 3273 6630}# + #{tmp 3272 6631}#) + (cons #{tmp 3272 6631}# + (cons #{tmp 3273 6630}# + #{tmp 3274 6629}#))) + #{e2* 6626}# + #{e1* 6625}# + #{args* 6624}#)))) + (lambda (#{meta 6632}# #{lcase 6633}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 8590}# - #{meta 8608}# - #{lcase 8609}#)))) - #{tmp 8593}#) + #{s 6614}# + #{meta 6632}# + #{lcase 6633}#)))) + #{tmp 6617}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 8587}#))))) - (#{global-extend 6287}# + #{e 6611}#))))) + (#{global-extend 4311}# 'core 'case-lambda* - (lambda (#{e 8771}# - #{r 8772}# - #{w 8773}# - #{s 8774}# - #{mod 8775}#) - (let ((#{tmp 8777}# + (lambda (#{e 6795}# + #{r 6796}# + #{w 6797}# + #{s 6798}# + #{mod 6799}#) + (let ((#{tmp 6801}# ($sc-dispatch - #{e 8771}# + #{e 6795}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 8777}# + (if #{tmp 6801}# (@apply - (lambda (#{args 8781}# - #{e1 8782}# - #{e2 8783}# - #{args* 8784}# - #{e1* 8785}# - #{e2* 8786}#) + (lambda (#{args 6805}# + #{e1 6806}# + #{e2 6807}# + #{args* 6808}# + #{e1* 6809}# + #{e2* 6810}#) (call-with-values (lambda () - (#{expand-lambda-case 6333}# - #{e 8771}# - #{r 8772}# - #{w 8773}# - #{s 8774}# - #{mod 8775}# - #{lambda*-formals 6332}# - (cons (cons #{args 8781}# - (cons #{e1 8782}# #{e2 8783}#)) - (map (lambda (#{tmp 5285 8789}# - #{tmp 5284 8790}# - #{tmp 5283 8791}#) - (cons #{tmp 5283 8791}# - (cons #{tmp 5284 8790}# - #{tmp 5285 8789}#))) - #{e2* 8786}# - #{e1* 8785}# - #{args* 8784}#)))) - (lambda (#{meta 8792}# #{lcase 8793}#) + (#{expand-lambda-case 4357}# + #{e 6795}# + #{r 6796}# + #{w 6797}# + #{s 6798}# + #{mod 6799}# + #{lambda*-formals 4356}# + (cons (cons #{args 6805}# + (cons #{e1 6806}# #{e2 6807}#)) + (map (lambda (#{tmp 3309 6813}# + #{tmp 3308 6814}# + #{tmp 3307 6815}#) + (cons #{tmp 3307 6815}# + (cons #{tmp 3308 6814}# + #{tmp 3309 6813}#))) + #{e2* 6810}# + #{e1* 6809}# + #{args* 6808}#)))) + (lambda (#{meta 6816}# #{lcase 6817}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 8774}# - #{meta 8792}# - #{lcase 8793}#)))) - #{tmp 8777}#) + #{s 6798}# + #{meta 6816}# + #{lcase 6817}#)))) + #{tmp 6801}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 8771}#))))) - (#{global-extend 6287}# + #{e 6795}#))))) + (#{global-extend 4311}# 'core 'let (letrec* - ((#{expand-let 8984}# - (lambda (#{e 9133}# - #{r 9134}# - #{w 9135}# - #{s 9136}# - #{mod 9137}# - #{constructor 9138}# - #{ids 9139}# - #{vals 9140}# - #{exps 9141}#) - (if (not (#{valid-bound-ids? 6311}# #{ids 9139}#)) + ((#{expand-let 7008}# + (lambda (#{e 7157}# + #{r 7158}# + #{w 7159}# + #{s 7160}# + #{mod 7161}# + #{constructor 7162}# + #{ids 7163}# + #{vals 7164}# + #{exps 7165}#) + (if (not (#{valid-bound-ids? 4335}# #{ids 7163}#)) (syntax-violation 'let "duplicate bound variable" - #{e 9133}#) - (let ((#{labels 9219}# - (#{gen-labels 6292}# #{ids 9139}#)) - (#{new-vars 9220}# - (map #{gen-var 6335}# #{ids 9139}#))) - (let ((#{nw 9221}# - (#{make-binding-wrap 6303}# - #{ids 9139}# - #{labels 9219}# - #{w 9135}#)) - (#{nr 9222}# - (#{extend-var-env 6284}# - #{labels 9219}# - #{new-vars 9220}# - #{r 9134}#))) - (#{constructor 9138}# - #{s 9136}# - (map syntax->datum #{ids 9139}#) - #{new-vars 9220}# - (map (lambda (#{x 9239}#) - (#{expand 6321}# - #{x 9239}# - #{r 9134}# - #{w 9135}# - #{mod 9137}#)) - #{vals 9140}#) - (#{expand-body 6325}# - #{exps 9141}# - (#{source-wrap 6315}# - #{e 9133}# - #{nw 9221}# - #{s 9136}# - #{mod 9137}#) - #{nr 9222}# - #{nw 9221}# - #{mod 9137}#)))))))) - (lambda (#{e 8985}# - #{r 8986}# - #{w 8987}# - #{s 8988}# - #{mod 8989}#) - (let ((#{tmp 8991}# + #{e 7157}#) + (let ((#{labels 7243}# + (#{gen-labels 4316}# #{ids 7163}#)) + (#{new-vars 7244}# + (map #{gen-var 4359}# #{ids 7163}#))) + (let ((#{nw 7245}# + (#{make-binding-wrap 4327}# + #{ids 7163}# + #{labels 7243}# + #{w 7159}#)) + (#{nr 7246}# + (#{extend-var-env 4308}# + #{labels 7243}# + #{new-vars 7244}# + #{r 7158}#))) + (#{constructor 7162}# + #{s 7160}# + (map syntax->datum #{ids 7163}#) + #{new-vars 7244}# + (map (lambda (#{x 7263}#) + (#{expand 4345}# + #{x 7263}# + #{r 7158}# + #{w 7159}# + #{mod 7161}#)) + #{vals 7164}#) + (#{expand-body 4349}# + #{exps 7165}# + (#{source-wrap 4339}# + #{e 7157}# + #{nw 7245}# + #{s 7160}# + #{mod 7161}#) + #{nr 7246}# + #{nw 7245}# + #{mod 7161}#)))))))) + (lambda (#{e 7009}# + #{r 7010}# + #{w 7011}# + #{s 7012}# + #{mod 7013}#) + (let ((#{tmp 7015}# ($sc-dispatch - #{e 8985}# + #{e 7009}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8991}# + (if (if #{tmp 7015}# (@apply - (lambda (#{id 8995}# - #{val 8996}# - #{e1 8997}# - #{e2 8998}#) - (and-map #{id? 6289}# #{id 8995}#)) - #{tmp 8991}#) + (lambda (#{id 7019}# + #{val 7020}# + #{e1 7021}# + #{e2 7022}#) + (and-map #{id? 4313}# #{id 7019}#)) + #{tmp 7015}#) #f) (@apply - (lambda (#{id 9014}# - #{val 9015}# - #{e1 9016}# - #{e2 9017}#) - (#{expand-let 8984}# - #{e 8985}# - #{r 8986}# - #{w 8987}# - #{s 8988}# - #{mod 8989}# - #{build-let 6271}# - #{id 9014}# - #{val 9015}# - (cons #{e1 9016}# #{e2 9017}#))) - #{tmp 8991}#) - (let ((#{tmp 9047}# + (lambda (#{id 7038}# + #{val 7039}# + #{e1 7040}# + #{e2 7041}#) + (#{expand-let 7008}# + #{e 7009}# + #{r 7010}# + #{w 7011}# + #{s 7012}# + #{mod 7013}# + #{build-let 4295}# + #{id 7038}# + #{val 7039}# + (cons #{e1 7040}# #{e2 7041}#))) + #{tmp 7015}#) + (let ((#{tmp 7071}# ($sc-dispatch - #{e 8985}# + #{e 7009}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 9047}# + (if (if #{tmp 7071}# (@apply - (lambda (#{f 9051}# - #{id 9052}# - #{val 9053}# - #{e1 9054}# - #{e2 9055}#) - (if (if (symbol? #{f 9051}#) + (lambda (#{f 7075}# + #{id 7076}# + #{val 7077}# + #{e1 7078}# + #{e2 7079}#) + (if (if (symbol? #{f 7075}#) #t - (if (if (vector? #{f 9051}#) - (if (= (vector-length #{f 9051}#) 4) - (eq? (vector-ref #{f 9051}# 0) + (if (if (vector? #{f 7075}#) + (if (= (vector-length #{f 7075}#) 4) + (eq? (vector-ref #{f 7075}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 9051}# 1)) + (symbol? (vector-ref #{f 7075}# 1)) #f)) - (and-map #{id? 6289}# #{id 9052}#) + (and-map #{id? 4313}# #{id 7076}#) #f)) - #{tmp 9047}#) + #{tmp 7071}#) #f) (@apply - (lambda (#{f 9097}# - #{id 9098}# - #{val 9099}# - #{e1 9100}# - #{e2 9101}#) - (#{expand-let 8984}# - #{e 8985}# - #{r 8986}# - #{w 8987}# - #{s 8988}# - #{mod 8989}# - #{build-named-let 6272}# - (cons #{f 9097}# #{id 9098}#) - #{val 9099}# - (cons #{e1 9100}# #{e2 9101}#))) - #{tmp 9047}#) + (lambda (#{f 7121}# + #{id 7122}# + #{val 7123}# + #{e1 7124}# + #{e2 7125}#) + (#{expand-let 7008}# + #{e 7009}# + #{r 7010}# + #{w 7011}# + #{s 7012}# + #{mod 7013}# + #{build-named-let 4296}# + (cons #{f 7121}# #{id 7122}#) + #{val 7123}# + (cons #{e1 7124}# #{e2 7125}#))) + #{tmp 7071}#) (syntax-violation 'let "bad let" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 8985}#) #{s 8988}# #f) - (set-source-properties! #{e 8985}# #{s 8988}#)) - #{e 8985}#) - #{w 8987}# - #{mod 8989}#))))))))) - (#{global-extend 6287}# + (if (if (pair? #{e 7009}#) #{s 7012}# #f) + (set-source-properties! #{e 7009}# #{s 7012}#)) + #{e 7009}#) + #{w 7011}# + #{mod 7013}#))))))))) + (#{global-extend 4311}# 'core 'letrec - (lambda (#{e 9681}# - #{r 9682}# - #{w 9683}# - #{s 9684}# - #{mod 9685}#) - (let ((#{tmp 9687}# + (lambda (#{e 7705}# + #{r 7706}# + #{w 7707}# + #{s 7708}# + #{mod 7709}#) + (let ((#{tmp 7711}# ($sc-dispatch - #{e 9681}# + #{e 7705}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 9687}# + (if (if #{tmp 7711}# (@apply - (lambda (#{id 9691}# - #{val 9692}# - #{e1 9693}# - #{e2 9694}#) - (and-map #{id? 6289}# #{id 9691}#)) - #{tmp 9687}#) + (lambda (#{id 7715}# + #{val 7716}# + #{e1 7717}# + #{e2 7718}#) + (and-map #{id? 4313}# #{id 7715}#)) + #{tmp 7711}#) #f) (@apply - (lambda (#{id 9710}# - #{val 9711}# - #{e1 9712}# - #{e2 9713}#) - (if (not (#{valid-bound-ids? 6311}# #{id 9710}#)) + (lambda (#{id 7734}# + #{val 7735}# + #{e1 7736}# + #{e2 7737}#) + (if (not (#{valid-bound-ids? 4335}# #{id 7734}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 9681}#) - (let ((#{labels 9803}# - (#{gen-labels 6292}# #{id 9710}#)) - (#{new-vars 9804}# - (map #{gen-var 6335}# #{id 9710}#))) - (let ((#{w 9805}# - (#{make-binding-wrap 6303}# - #{id 9710}# - #{labels 9803}# - #{w 9683}#)) - (#{r 9806}# - (#{extend-var-env 6284}# - #{labels 9803}# - #{new-vars 9804}# - #{r 9682}#))) - (#{build-letrec 6273}# - #{s 9684}# + #{e 7705}#) + (let ((#{labels 7827}# + (#{gen-labels 4316}# #{id 7734}#)) + (#{new-vars 7828}# + (map #{gen-var 4359}# #{id 7734}#))) + (let ((#{w 7829}# + (#{make-binding-wrap 4327}# + #{id 7734}# + #{labels 7827}# + #{w 7707}#)) + (#{r 7830}# + (#{extend-var-env 4308}# + #{labels 7827}# + #{new-vars 7828}# + #{r 7706}#))) + (#{build-letrec 4297}# + #{s 7708}# #f - (map syntax->datum #{id 9710}#) - #{new-vars 9804}# - (map (lambda (#{x 9893}#) - (#{expand 6321}# - #{x 9893}# - #{r 9806}# - #{w 9805}# - #{mod 9685}#)) - #{val 9711}#) - (#{expand-body 6325}# - (cons #{e1 9712}# #{e2 9713}#) - (#{wrap 6314}# + (map syntax->datum #{id 7734}#) + #{new-vars 7828}# + (map (lambda (#{x 7917}#) + (#{expand 4345}# + #{x 7917}# + #{r 7830}# + #{w 7829}# + #{mod 7709}#)) + #{val 7735}#) + (#{expand-body 4349}# + (cons #{e1 7736}# #{e2 7737}#) + (#{wrap 4338}# (begin - (if (if (pair? #{e 9681}#) #{s 9684}# #f) - (set-source-properties! #{e 9681}# #{s 9684}#)) - #{e 9681}#) - #{w 9805}# - #{mod 9685}#) - #{r 9806}# - #{w 9805}# - #{mod 9685}#)))))) - #{tmp 9687}#) + (if (if (pair? #{e 7705}#) #{s 7708}# #f) + (set-source-properties! #{e 7705}# #{s 7708}#)) + #{e 7705}#) + #{w 7829}# + #{mod 7709}#) + #{r 7830}# + #{w 7829}# + #{mod 7709}#)))))) + #{tmp 7711}#) (syntax-violation 'letrec "bad letrec" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 9681}#) #{s 9684}# #f) - (set-source-properties! #{e 9681}# #{s 9684}#)) - #{e 9681}#) - #{w 9683}# - #{mod 9685}#)))))) - (#{global-extend 6287}# + (if (if (pair? #{e 7705}#) #{s 7708}# #f) + (set-source-properties! #{e 7705}# #{s 7708}#)) + #{e 7705}#) + #{w 7707}# + #{mod 7709}#)))))) + (#{global-extend 4311}# 'core 'letrec* - (lambda (#{e 10310}# - #{r 10311}# - #{w 10312}# - #{s 10313}# - #{mod 10314}#) - (let ((#{tmp 10316}# + (lambda (#{e 8334}# + #{r 8335}# + #{w 8336}# + #{s 8337}# + #{mod 8338}#) + (let ((#{tmp 8340}# ($sc-dispatch - #{e 10310}# + #{e 8334}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 10316}# + (if (if #{tmp 8340}# (@apply - (lambda (#{id 10320}# - #{val 10321}# - #{e1 10322}# - #{e2 10323}#) - (and-map #{id? 6289}# #{id 10320}#)) - #{tmp 10316}#) + (lambda (#{id 8344}# + #{val 8345}# + #{e1 8346}# + #{e2 8347}#) + (and-map #{id? 4313}# #{id 8344}#)) + #{tmp 8340}#) #f) (@apply - (lambda (#{id 10339}# - #{val 10340}# - #{e1 10341}# - #{e2 10342}#) - (if (not (#{valid-bound-ids? 6311}# #{id 10339}#)) + (lambda (#{id 8363}# + #{val 8364}# + #{e1 8365}# + #{e2 8366}#) + (if (not (#{valid-bound-ids? 4335}# #{id 8363}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 10310}#) - (let ((#{labels 10432}# - (#{gen-labels 6292}# #{id 10339}#)) - (#{new-vars 10433}# - (map #{gen-var 6335}# #{id 10339}#))) - (let ((#{w 10434}# - (#{make-binding-wrap 6303}# - #{id 10339}# - #{labels 10432}# - #{w 10312}#)) - (#{r 10435}# - (#{extend-var-env 6284}# - #{labels 10432}# - #{new-vars 10433}# - #{r 10311}#))) - (#{build-letrec 6273}# - #{s 10313}# + #{e 8334}#) + (let ((#{labels 8456}# + (#{gen-labels 4316}# #{id 8363}#)) + (#{new-vars 8457}# + (map #{gen-var 4359}# #{id 8363}#))) + (let ((#{w 8458}# + (#{make-binding-wrap 4327}# + #{id 8363}# + #{labels 8456}# + #{w 8336}#)) + (#{r 8459}# + (#{extend-var-env 4308}# + #{labels 8456}# + #{new-vars 8457}# + #{r 8335}#))) + (#{build-letrec 4297}# + #{s 8337}# #t - (map syntax->datum #{id 10339}#) - #{new-vars 10433}# - (map (lambda (#{x 10522}#) - (#{expand 6321}# - #{x 10522}# - #{r 10435}# - #{w 10434}# - #{mod 10314}#)) - #{val 10340}#) - (#{expand-body 6325}# - (cons #{e1 10341}# #{e2 10342}#) - (#{wrap 6314}# + (map syntax->datum #{id 8363}#) + #{new-vars 8457}# + (map (lambda (#{x 8546}#) + (#{expand 4345}# + #{x 8546}# + #{r 8459}# + #{w 8458}# + #{mod 8338}#)) + #{val 8364}#) + (#{expand-body 4349}# + (cons #{e1 8365}# #{e2 8366}#) + (#{wrap 4338}# (begin - (if (if (pair? #{e 10310}#) #{s 10313}# #f) - (set-source-properties! - #{e 10310}# - #{s 10313}#)) - #{e 10310}#) - #{w 10434}# - #{mod 10314}#) - #{r 10435}# - #{w 10434}# - #{mod 10314}#)))))) - #{tmp 10316}#) + (if (if (pair? #{e 8334}#) #{s 8337}# #f) + (set-source-properties! #{e 8334}# #{s 8337}#)) + #{e 8334}#) + #{w 8458}# + #{mod 8338}#) + #{r 8459}# + #{w 8458}# + #{mod 8338}#)))))) + #{tmp 8340}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 10310}#) #{s 10313}# #f) - (set-source-properties! #{e 10310}# #{s 10313}#)) - #{e 10310}#) - #{w 10312}# - #{mod 10314}#)))))) - (#{global-extend 6287}# + (if (if (pair? #{e 8334}#) #{s 8337}# #f) + (set-source-properties! #{e 8334}# #{s 8337}#)) + #{e 8334}#) + #{w 8336}# + #{mod 8338}#)))))) + (#{global-extend 4311}# 'core 'set! - (lambda (#{e 10981}# - #{r 10982}# - #{w 10983}# - #{s 10984}# - #{mod 10985}#) - (let ((#{tmp 10987}# - ($sc-dispatch #{e 10981}# '(_ any any)))) - (if (if #{tmp 10987}# + (lambda (#{e 9005}# + #{r 9006}# + #{w 9007}# + #{s 9008}# + #{mod 9009}#) + (let ((#{tmp 9011}# + ($sc-dispatch #{e 9005}# '(_ any any)))) + (if (if #{tmp 9011}# (@apply - (lambda (#{id 10991}# #{val 10992}#) - (if (symbol? #{id 10991}#) + (lambda (#{id 9015}# #{val 9016}#) + (if (symbol? #{id 9015}#) #t - (if (if (vector? #{id 10991}#) - (if (= (vector-length #{id 10991}#) 4) - (eq? (vector-ref #{id 10991}# 0) 'syntax-object) + (if (if (vector? #{id 9015}#) + (if (= (vector-length #{id 9015}#) 4) + (eq? (vector-ref #{id 9015}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 10991}# 1)) + (symbol? (vector-ref #{id 9015}# 1)) #f))) - #{tmp 10987}#) + #{tmp 9011}#) #f) (@apply - (lambda (#{id 11019}# #{val 11020}#) - (let ((#{n 11021}# - (#{id-var-name 6308}# #{id 11019}# #{w 10983}#)) - (#{id-mod 11022}# - (if (if (vector? #{id 11019}#) - (if (= (vector-length #{id 11019}#) 4) - (eq? (vector-ref #{id 11019}# 0) - 'syntax-object) + (lambda (#{id 9043}# #{val 9044}#) + (let ((#{n 9045}# + (#{id-var-name 4332}# #{id 9043}# #{w 9007}#)) + (#{id-mod 9046}# + (if (if (vector? #{id 9043}#) + (if (= (vector-length #{id 9043}#) 4) + (eq? (vector-ref #{id 9043}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 11019}# 3) - #{mod 10985}#))) - (let ((#{b 11023}# - (let ((#{t 11685}# (assq #{n 11021}# #{r 10982}#))) - (if #{t 11685}# - (cdr #{t 11685}#) - (if (symbol? #{n 11021}#) - (let ((#{t 11690}# + (vector-ref #{id 9043}# 3) + #{mod 9009}#))) + (let ((#{b 9047}# + (let ((#{t 9709}# (assq #{n 9045}# #{r 9006}#))) + (if #{t 9709}# + (cdr #{t 9709}#) + (if (symbol? #{n 9045}#) + (let ((#{t 9714}# (begin - (if (if (not #{id-mod 11022}#) + (if (if (not #{id-mod 9046}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 11021}#)) - (let ((#{v 11727}# + #{n 9045}#)) + (let ((#{v 9751}# (module-variable - (if #{id-mod 11022}# + (if #{id-mod 9046}# (resolve-module - (cdr #{id-mod 11022}#)) + (cdr #{id-mod 9046}#)) (current-module)) - #{n 11021}#))) - (if #{v 11727}# - (if (variable-bound? #{v 11727}#) - (let ((#{val 11736}# + #{n 9045}#))) + (if #{v 9751}# + (if (variable-bound? #{v 9751}#) + (let ((#{val 9760}# (variable-ref - #{v 11727}#))) - (if (macro? #{val 11736}#) + #{v 9751}#))) + (if (macro? #{val 9760}#) (if (macro-type - #{val 11736}#) + #{val 9760}#) (cons (macro-type - #{val 11736}#) + #{val 9760}#) (macro-binding - #{val 11736}#)) + #{val 9760}#)) #f) #f)) #f) #f))))) - (if #{t 11690}# #{t 11690}# '(global))) + (if #{t 9714}# #{t 9714}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 11024}# (car #{b 11023}#))) - (if (let ((#{t 11056}# #{atom-key 11024}#)) - (eqv? #{t 11056}# 'lexical)) - (#{build-lexical-assignment 6260}# - #{s 10984}# - (syntax->datum #{id 11019}#) - (cdr #{b 11023}#) - (#{expand 6321}# - #{val 11020}# - #{r 10982}# - #{w 10983}# - #{mod 10985}#)) - (if (let ((#{t 11331}# #{atom-key 11024}#)) - (eqv? #{t 11331}# 'global)) - (#{build-global-assignment 6263}# - #{s 10984}# - #{n 11021}# - (#{expand 6321}# - #{val 11020}# - #{r 10982}# - #{w 10983}# - #{mod 10985}#) - #{id-mod 11022}#) - (if (let ((#{t 11576}# #{atom-key 11024}#)) - (eqv? #{t 11576}# 'macro)) - (let ((#{p 11639}# (cdr #{b 11023}#))) + (let ((#{atom-key 9048}# (car #{b 9047}#))) + (if (let ((#{t 9080}# #{atom-key 9048}#)) + (eqv? #{t 9080}# 'lexical)) + (#{build-lexical-assignment 4284}# + #{s 9008}# + (syntax->datum #{id 9043}#) + (cdr #{b 9047}#) + (#{expand 4345}# + #{val 9044}# + #{r 9006}# + #{w 9007}# + #{mod 9009}#)) + (if (let ((#{t 9355}# #{atom-key 9048}#)) + (eqv? #{t 9355}# 'global)) + (#{build-global-assignment 4287}# + #{s 9008}# + #{n 9045}# + (#{expand 4345}# + #{val 9044}# + #{r 9006}# + #{w 9007}# + #{mod 9009}#) + #{id-mod 9046}#) + (if (let ((#{t 9600}# #{atom-key 9048}#)) + (eqv? #{t 9600}# 'macro)) + (let ((#{p 9663}# (cdr #{b 9047}#))) (if (procedure-property - #{p 11639}# + #{p 9663}# 'variable-transformer) - (#{expand 6321}# - (#{expand-macro 6324}# - #{p 11639}# - #{e 10981}# - #{r 10982}# - #{w 10983}# - #{s 10984}# + (#{expand 4345}# + (#{expand-macro 4348}# + #{p 9663}# + #{e 9005}# + #{r 9006}# + #{w 9007}# + #{s 9008}# #f - #{mod 10985}#) - #{r 10982}# + #{mod 9009}#) + #{r 9006}# '(()) - #{mod 10985}#) + #{mod 9009}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap 6314}# - #{e 10981}# - #{w 10983}# - #{mod 10985}#) - (#{wrap 6314}# - #{id 11019}# - #{w 10983}# - #{id-mod 11022}#)))) - (if (eqv? #{atom-key 11024}# 'displaced-lexical) + (#{wrap 4338}# + #{e 9005}# + #{w 9007}# + #{mod 9009}#) + (#{wrap 4338}# + #{id 9043}# + #{w 9007}# + #{id-mod 9046}#)))) + (if (eqv? #{atom-key 9048}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 6314}# - #{id 11019}# - #{w 10983}# - #{mod 10985}#)) + (#{wrap 4338}# + #{id 9043}# + #{w 9007}# + #{mod 9009}#)) (syntax-violation 'set! "bad set!" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 10981}#) #{s 10984}# #f) + (if (if (pair? #{e 9005}#) #{s 9008}# #f) (set-source-properties! - #{e 10981}# - #{s 10984}#)) - #{e 10981}#) - #{w 10983}# - #{mod 10985}#)))))))))) - #{tmp 10987}#) - (let ((#{tmp 11832}# + #{e 9005}# + #{s 9008}#)) + #{e 9005}#) + #{w 9007}# + #{mod 9009}#)))))))))) + #{tmp 9011}#) + (let ((#{tmp 9856}# ($sc-dispatch - #{e 10981}# + #{e 9005}# '(_ (any . each-any) any)))) - (if #{tmp 11832}# + (if #{tmp 9856}# (@apply - (lambda (#{head 11836}# #{tail 11837}# #{val 11838}#) + (lambda (#{head 9860}# #{tail 9861}# #{val 9862}#) (call-with-values (lambda () - (#{syntax-type 6320}# - #{head 11836}# - #{r 10982}# + (#{syntax-type 4344}# + #{head 9860}# + #{r 9006}# '(()) #f #f - #{mod 10985}# + #{mod 9009}# #t)) - (lambda (#{type 11841}# - #{value 11842}# - #{ee 11843}# - #{ww 11844}# - #{ss 11845}# - #{modmod 11846}#) - (if (eqv? #{type 11841}# 'module-ref) - (let ((#{val 11850}# - (#{expand 6321}# - #{val 11838}# - #{r 10982}# - #{w 10983}# - #{mod 10985}#))) + (lambda (#{type 9865}# + #{value 9866}# + #{ee 9867}# + #{ww 9868}# + #{ss 9869}# + #{modmod 9870}#) + (if (eqv? #{type 9865}# 'module-ref) + (let ((#{val 9874}# + (#{expand 4345}# + #{val 9862}# + #{r 9006}# + #{w 9007}# + #{mod 9009}#))) (call-with-values (lambda () - (#{value 11842}# - (cons #{head 11836}# #{tail 11837}#) - #{r 10982}# - #{w 10983}#)) - (lambda (#{e 11851}# - #{r 11852}# - #{w 11853}# - #{s* 11854}# - #{mod 11855}#) - (let ((#{tmp 11857}# (list #{e 11851}#))) + (#{value 9866}# + (cons #{head 9860}# #{tail 9861}#) + #{r 9006}# + #{w 9007}#)) + (lambda (#{e 9875}# + #{r 9876}# + #{w 9877}# + #{s* 9878}# + #{mod 9879}#) + (let ((#{tmp 9881}# (list #{e 9875}#))) (if (@apply - (lambda (#{e 11859}#) - (if (symbol? #{e 11859}#) + (lambda (#{e 9883}#) + (if (symbol? #{e 9883}#) #t - (if (if (vector? #{e 11859}#) + (if (if (vector? #{e 9883}#) (if (= (vector-length - #{e 11859}#) + #{e 9883}#) 4) (eq? (vector-ref - #{e 11859}# + #{e 9883}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e 11859}# 1)) + (vector-ref #{e 9883}# 1)) #f))) - #{tmp 11857}#) + #{tmp 9881}#) (@apply - (lambda (#{e 11889}#) - (#{build-global-assignment 6263}# - #{s 10984}# - (syntax->datum #{e 11889}#) - #{val 11850}# - #{mod 11855}#)) - #{tmp 11857}#) + (lambda (#{e 9913}#) + (#{build-global-assignment 4287}# + #{s 9008}# + (syntax->datum #{e 9913}#) + #{val 9874}# + #{mod 9879}#)) + #{tmp 9881}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11851}#)))))) - (#{build-application 6256}# - #{s 10984}# - (let ((#{e 12114}# + #{e 9875}#)))))) + (#{build-application 4280}# + #{s 9008}# + (let ((#{e 10138}# (list '#(syntax-object setter ((top) @@ -9437,16 +9487,16 @@ (top) (top) (top)) - #("i5531" - "i5532" - "i5533" - "i5534" - "i5535" - "i5536")) + #("i3555" + "i3556" + "i3557" + "i3558" + "i3559" + "i3560")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i5517" "i5518" "i5519")) + #("i3541" "i3542" "i3543")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9455,11 +9505,11 @@ (top) (top) (top)) - #("i5481" - "i5482" - "i5483" - "i5484" - "i5485")) + #("i3505" + "i3506" + "i3507" + "i3508" + "i3509")) #(ribcage (lambda-var-list gen-var @@ -9733,246 +9783,246 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) - #{head 11836}#))) + #{head 9860}#))) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 12114}# - #{r 10982}# - #{w 10983}# - (#{source-annotation 6282}# #{e 12114}#) + (#{syntax-type 4344}# + #{e 10138}# + #{r 9006}# + #{w 9007}# + (#{source-annotation 4306}# #{e 10138}#) #f - #{mod 10985}# + #{mod 9009}# #f)) - (lambda (#{type 12121}# - #{value 12122}# - #{e 12123}# - #{w 12124}# - #{s 12125}# - #{mod 12126}#) - (#{expand-expr 6322}# - #{type 12121}# - #{value 12122}# - #{e 12123}# - #{r 10982}# - #{w 12124}# - #{s 12125}# - #{mod 12126}#)))) - (map (lambda (#{e 12130}#) + (lambda (#{type 10145}# + #{value 10146}# + #{e 10147}# + #{w 10148}# + #{s 10149}# + #{mod 10150}#) + (#{expand-expr 4346}# + #{type 10145}# + #{value 10146}# + #{e 10147}# + #{r 9006}# + #{w 10148}# + #{s 10149}# + #{mod 10150}#)))) + (map (lambda (#{e 10154}#) (call-with-values (lambda () - (#{syntax-type 6320}# - #{e 12130}# - #{r 10982}# - #{w 10983}# - (#{source-annotation 6282}# - #{e 12130}#) + (#{syntax-type 4344}# + #{e 10154}# + #{r 9006}# + #{w 9007}# + (#{source-annotation 4306}# + #{e 10154}#) #f - #{mod 10985}# + #{mod 9009}# #f)) - (lambda (#{type 12145}# - #{value 12146}# - #{e 12147}# - #{w 12148}# - #{s 12149}# - #{mod 12150}#) - (#{expand-expr 6322}# - #{type 12145}# - #{value 12146}# - #{e 12147}# - #{r 10982}# - #{w 12148}# - #{s 12149}# - #{mod 12150}#)))) + (lambda (#{type 10169}# + #{value 10170}# + #{e 10171}# + #{w 10172}# + #{s 10173}# + #{mod 10174}#) + (#{expand-expr 4346}# + #{type 10169}# + #{value 10170}# + #{e 10171}# + #{r 9006}# + #{w 10172}# + #{s 10173}# + #{mod 10174}#)))) (append - #{tail 11837}# - (list #{val 11838}#)))))))) - #{tmp 11832}#) + #{tail 9861}# + (list #{val 9862}#)))))))) + #{tmp 9856}#) (syntax-violation 'set! "bad set!" - (#{wrap 6314}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 10981}#) #{s 10984}# #f) - (set-source-properties! #{e 10981}# #{s 10984}#)) - #{e 10981}#) - #{w 10983}# - #{mod 10985}#)))))))) + (if (if (pair? #{e 9005}#) #{s 9008}# #f) + (set-source-properties! #{e 9005}# #{s 9008}#)) + #{e 9005}#) + #{w 9007}# + #{mod 9009}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 12193}# #{r 12194}# #{w 12195}#) - (let ((#{tmp 12197}# - ($sc-dispatch #{e 12193}# '(_ each-any any)))) - (if (if #{tmp 12197}# + (lambda (#{e 10217}# #{r 10218}# #{w 10219}#) + (let ((#{tmp 10221}# + ($sc-dispatch #{e 10217}# '(_ each-any any)))) + (if (if #{tmp 10221}# (@apply - (lambda (#{mod 12200}# #{id 12201}#) - (if (and-map #{id? 6289}# #{mod 12200}#) - (if (symbol? #{id 12201}#) + (lambda (#{mod 10224}# #{id 10225}#) + (if (and-map #{id? 4313}# #{mod 10224}#) + (if (symbol? #{id 10225}#) #t - (if (if (vector? #{id 12201}#) - (if (= (vector-length #{id 12201}#) 4) - (eq? (vector-ref #{id 12201}# 0) + (if (if (vector? #{id 10225}#) + (if (= (vector-length #{id 10225}#) 4) + (eq? (vector-ref #{id 10225}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 12201}# 1)) + (symbol? (vector-ref #{id 10225}# 1)) #f)) #f)) - #{tmp 12197}#) + #{tmp 10221}#) #f) (@apply - (lambda (#{mod 12241}# #{id 12242}#) + (lambda (#{mod 10265}# #{id 10266}#) (values - (syntax->datum #{id 12242}#) - #{r 12194}# - #{w 12195}# + (syntax->datum #{id 10266}#) + #{r 10218}# + #{w 10219}# #f (syntax->datum (cons '#(syntax-object @@ -9981,12 +10031,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i5578" "i5579")) + #("i3602" "i3603")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i5566" "i5567" "i5568")) + #("i3590" "i3591" "i3592")) #(ribcage (lambda-var-list gen-var @@ -10260,213 +10310,213 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 12241}#)))) - #{tmp 12197}#) + #{mod 10265}#)))) + #{tmp 10221}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12193}#)))))) - (#{global-extend 6287}# + #{e 10217}#)))))) + (#{global-extend 4311}# 'module-ref '@@ - (lambda (#{e 12334}# #{r 12335}# #{w 12336}#) + (lambda (#{e 10358}# #{r 10359}# #{w 10360}#) (letrec* - ((#{remodulate 12337}# - (lambda (#{x 12372}# #{mod 12373}#) - (if (pair? #{x 12372}#) - (cons (#{remodulate 12337}# - (car #{x 12372}#) - #{mod 12373}#) - (#{remodulate 12337}# - (cdr #{x 12372}#) - #{mod 12373}#)) - (if (if (vector? #{x 12372}#) - (if (= (vector-length #{x 12372}#) 4) - (eq? (vector-ref #{x 12372}# 0) 'syntax-object) + ((#{remodulate 10361}# + (lambda (#{x 10396}# #{mod 10397}#) + (if (pair? #{x 10396}#) + (cons (#{remodulate 10361}# + (car #{x 10396}#) + #{mod 10397}#) + (#{remodulate 10361}# + (cdr #{x 10396}#) + #{mod 10397}#)) + (if (if (vector? #{x 10396}#) + (if (= (vector-length #{x 10396}#) 4) + (eq? (vector-ref #{x 10396}# 0) 'syntax-object) #f) #f) - (let ((#{expression 12387}# - (#{remodulate 12337}# - (vector-ref #{x 12372}# 1) - #{mod 12373}#)) - (#{wrap 12388}# (vector-ref #{x 12372}# 2))) + (let ((#{expression 10411}# + (#{remodulate 10361}# + (vector-ref #{x 10396}# 1) + #{mod 10397}#)) + (#{wrap 10412}# (vector-ref #{x 10396}# 2))) (vector 'syntax-object - #{expression 12387}# - #{wrap 12388}# - #{mod 12373}#)) - (if (vector? #{x 12372}#) - (let ((#{n 12396}# (vector-length #{x 12372}#))) - (let ((#{v 12397}# (make-vector #{n 12396}#))) + #{expression 10411}# + #{wrap 10412}# + #{mod 10397}#)) + (if (vector? #{x 10396}#) + (let ((#{n 10420}# (vector-length #{x 10396}#))) + (let ((#{v 10421}# (make-vector #{n 10420}#))) (letrec* - ((#{loop 12398}# - (lambda (#{i 12445}#) - (if (= #{i 12445}# #{n 12396}#) - #{v 12397}# + ((#{loop 10422}# + (lambda (#{i 10469}#) + (if (= #{i 10469}# #{n 10420}#) + #{v 10421}# (begin (vector-set! - #{v 12397}# - #{i 12445}# - (#{remodulate 12337}# - (vector-ref #{x 12372}# #{i 12445}#) - #{mod 12373}#)) - (#{loop 12398}# (#{1+}# #{i 12445}#))))))) - (#{loop 12398}# 0)))) - #{x 12372}#)))))) - (let ((#{tmp 12339}# - ($sc-dispatch #{e 12334}# '(_ each-any any)))) - (if (if #{tmp 12339}# + #{v 10421}# + #{i 10469}# + (#{remodulate 10361}# + (vector-ref #{x 10396}# #{i 10469}#) + #{mod 10397}#)) + (#{loop 10422}# (#{1+}# #{i 10469}#))))))) + (#{loop 10422}# 0)))) + #{x 10396}#)))))) + (let ((#{tmp 10363}# + ($sc-dispatch #{e 10358}# '(_ each-any any)))) + (if (if #{tmp 10363}# (@apply - (lambda (#{mod 12343}# #{exp 12344}#) - (and-map #{id? 6289}# #{mod 12343}#)) - #{tmp 12339}#) + (lambda (#{mod 10367}# #{exp 10368}#) + (and-map #{id? 4313}# #{mod 10367}#)) + #{tmp 10363}#) #f) (@apply - (lambda (#{mod 12360}# #{exp 12361}#) - (let ((#{mod 12362}# + (lambda (#{mod 10384}# #{exp 10385}#) + (let ((#{mod 10386}# (syntax->datum (cons '#(syntax-object private @@ -10474,12 +10524,12 @@ #(ribcage #(mod exp) #((top) (top)) - #("i5622" "i5623")) - #(ribcage (remodulate) ((top)) ("i5589")) + #("i3646" "i3647")) + #(ribcage (remodulate) ((top)) ("i3613")) #(ribcage #(e r w) #((top) (top) (top)) - #("i5586" "i5587" "i5588")) + #("i3610" "i3611" "i3612")) #(ribcage (lambda-var-list gen-var @@ -10753,270 +10803,270 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 12360}#)))) + #{mod 10384}#)))) (values - (#{remodulate 12337}# - #{exp 12361}# - #{mod 12362}#) - #{r 12335}# - #{w 12336}# - (#{source-annotation 6282}# #{exp 12361}#) - #{mod 12362}#))) - #{tmp 12339}#) + (#{remodulate 10361}# + #{exp 10385}# + #{mod 10386}#) + #{r 10359}# + #{w 10360}# + (#{source-annotation 4306}# #{exp 10385}#) + #{mod 10386}#))) + #{tmp 10363}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12334}#)))))) - (#{global-extend 6287}# + #{e 10358}#)))))) + (#{global-extend 4311}# 'core 'if - (lambda (#{e 12546}# - #{r 12547}# - #{w 12548}# - #{s 12549}# - #{mod 12550}#) - (let ((#{tmp 12552}# - ($sc-dispatch #{e 12546}# '(_ any any)))) - (if #{tmp 12552}# + (lambda (#{e 10570}# + #{r 10571}# + #{w 10572}# + #{s 10573}# + #{mod 10574}#) + (let ((#{tmp 10576}# + ($sc-dispatch #{e 10570}# '(_ any any)))) + (if #{tmp 10576}# (@apply - (lambda (#{test 12556}# #{then 12557}#) - (#{build-conditional 6257}# - #{s 12549}# - (#{expand 6321}# - #{test 12556}# - #{r 12547}# - #{w 12548}# - #{mod 12550}#) - (#{expand 6321}# - #{then 12557}# - #{r 12547}# - #{w 12548}# - #{mod 12550}#) + (lambda (#{test 10580}# #{then 10581}#) + (#{build-conditional 4281}# + #{s 10573}# + (#{expand 4345}# + #{test 10580}# + #{r 10571}# + #{w 10572}# + #{mod 10574}#) + (#{expand 4345}# + #{then 10581}# + #{r 10571}# + #{w 10572}# + #{mod 10574}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 12552}#) - (let ((#{tmp 12782}# - ($sc-dispatch #{e 12546}# '(_ any any any)))) - (if #{tmp 12782}# + #{tmp 10576}#) + (let ((#{tmp 10806}# + ($sc-dispatch #{e 10570}# '(_ any any any)))) + (if #{tmp 10806}# (@apply - (lambda (#{test 12786}# #{then 12787}# #{else 12788}#) - (#{build-conditional 6257}# - #{s 12549}# - (#{expand 6321}# - #{test 12786}# - #{r 12547}# - #{w 12548}# - #{mod 12550}#) - (#{expand 6321}# - #{then 12787}# - #{r 12547}# - #{w 12548}# - #{mod 12550}#) - (#{expand 6321}# - #{else 12788}# - #{r 12547}# - #{w 12548}# - #{mod 12550}#))) - #{tmp 12782}#) + (lambda (#{test 10810}# #{then 10811}# #{else 10812}#) + (#{build-conditional 4281}# + #{s 10573}# + (#{expand 4345}# + #{test 10810}# + #{r 10571}# + #{w 10572}# + #{mod 10574}#) + (#{expand 4345}# + #{then 10811}# + #{r 10571}# + #{w 10572}# + #{mod 10574}#) + (#{expand 4345}# + #{else 10812}# + #{r 10571}# + #{w 10572}# + #{mod 10574}#))) + #{tmp 10806}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12546}#))))))) - (#{global-extend 6287}# + #{e 10570}#))))))) + (#{global-extend 4311}# 'core 'with-fluids - (lambda (#{e 13187}# - #{r 13188}# - #{w 13189}# - #{s 13190}# - #{mod 13191}#) - (let ((#{tmp 13193}# + (lambda (#{e 11211}# + #{r 11212}# + #{w 11213}# + #{s 11214}# + #{mod 11215}#) + (let ((#{tmp 11217}# ($sc-dispatch - #{e 13187}# + #{e 11211}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 13193}# + (if #{tmp 11217}# (@apply - (lambda (#{fluid 13197}# - #{val 13198}# - #{b 13199}# - #{b* 13200}#) - (#{build-dynlet 6258}# - #{s 13190}# - (map (lambda (#{x 13281}#) - (#{expand 6321}# - #{x 13281}# - #{r 13188}# - #{w 13189}# - #{mod 13191}#)) - #{fluid 13197}#) - (map (lambda (#{x 13351}#) - (#{expand 6321}# - #{x 13351}# - #{r 13188}# - #{w 13189}# - #{mod 13191}#)) - #{val 13198}#) - (#{expand-body 6325}# - (cons #{b 13199}# #{b* 13200}#) - (#{wrap 6314}# + (lambda (#{fluid 11221}# + #{val 11222}# + #{b 11223}# + #{b* 11224}#) + (#{build-dynlet 4282}# + #{s 11214}# + (map (lambda (#{x 11305}#) + (#{expand 4345}# + #{x 11305}# + #{r 11212}# + #{w 11213}# + #{mod 11215}#)) + #{fluid 11221}#) + (map (lambda (#{x 11375}#) + (#{expand 4345}# + #{x 11375}# + #{r 11212}# + #{w 11213}# + #{mod 11215}#)) + #{val 11222}#) + (#{expand-body 4349}# + (cons #{b 11223}# #{b* 11224}#) + (#{wrap 4338}# (begin - (if (if (pair? #{e 13187}#) #{s 13190}# #f) - (set-source-properties! #{e 13187}# #{s 13190}#)) - #{e 13187}#) - #{w 13189}# - #{mod 13191}#) - #{r 13188}# - #{w 13189}# - #{mod 13191}#))) - #{tmp 13193}#) + (if (if (pair? #{e 11211}#) #{s 11214}# #f) + (set-source-properties! #{e 11211}# #{s 11214}#)) + #{e 11211}#) + #{w 11213}# + #{mod 11215}#) + #{r 11212}# + #{w 11213}# + #{mod 11215}#))) + #{tmp 11217}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 13187}#))))) + #{e 11211}#))))) (module-define! (current-module) 'begin @@ -11032,6 +11082,13 @@ 'define-syntax 'define-syntax '())) + (module-define! + (current-module) + 'define-syntax-parameter + (make-syntax-transformer + 'define-syntax-parameter + 'define-syntax-parameter + '())) (module-define! (current-module) 'eval-when @@ -11039,75 +11096,75 @@ 'eval-when 'eval-when '())) - (#{global-extend 6287}# + (#{global-extend 4311}# 'core 'syntax-case (letrec* - ((#{convert-pattern 13709}# - (lambda (#{pattern 15306}# #{keys 15307}#) + ((#{convert-pattern 11743}# + (lambda (#{pattern 13340}# #{keys 13341}#) (letrec* - ((#{cvt* 15308}# - (lambda (#{p* 15932}# #{n 15933}# #{ids 15934}#) - (if (not (pair? #{p* 15932}#)) - (#{cvt 15310}# - #{p* 15932}# - #{n 15933}# - #{ids 15934}#) + ((#{cvt* 13342}# + (lambda (#{p* 13966}# #{n 13967}# #{ids 13968}#) + (if (not (pair? #{p* 13966}#)) + (#{cvt 13344}# + #{p* 13966}# + #{n 13967}# + #{ids 13968}#) (call-with-values (lambda () - (#{cvt* 15308}# - (cdr #{p* 15932}#) - #{n 15933}# - #{ids 15934}#)) - (lambda (#{y 15937}# #{ids 15938}#) + (#{cvt* 13342}# + (cdr #{p* 13966}#) + #{n 13967}# + #{ids 13968}#)) + (lambda (#{y 13971}# #{ids 13972}#) (call-with-values (lambda () - (#{cvt 15310}# - (car #{p* 15932}#) - #{n 15933}# - #{ids 15938}#)) - (lambda (#{x 15941}# #{ids 15942}#) + (#{cvt 13344}# + (car #{p* 13966}#) + #{n 13967}# + #{ids 13972}#)) + (lambda (#{x 13975}# #{ids 13976}#) (values - (cons #{x 15941}# #{y 15937}#) - #{ids 15942}#)))))))) - (#{v-reverse 15309}# - (lambda (#{x 15943}#) + (cons #{x 13975}# #{y 13971}#) + #{ids 13976}#)))))))) + (#{v-reverse 13343}# + (lambda (#{x 13977}#) (letrec* - ((#{loop 15944}# - (lambda (#{r 16024}# #{x 16025}#) - (if (not (pair? #{x 16025}#)) - (values #{r 16024}# #{x 16025}#) - (#{loop 15944}# - (cons (car #{x 16025}#) #{r 16024}#) - (cdr #{x 16025}#)))))) - (#{loop 15944}# '() #{x 15943}#)))) - (#{cvt 15310}# - (lambda (#{p 15313}# #{n 15314}# #{ids 15315}#) - (if (if (symbol? #{p 15313}#) + ((#{loop 13978}# + (lambda (#{r 14058}# #{x 14059}#) + (if (not (pair? #{x 14059}#)) + (values #{r 14058}# #{x 14059}#) + (#{loop 13978}# + (cons (car #{x 14059}#) #{r 14058}#) + (cdr #{x 14059}#)))))) + (#{loop 13978}# '() #{x 13977}#)))) + (#{cvt 13344}# + (lambda (#{p 13347}# #{n 13348}# #{ids 13349}#) + (if (if (symbol? #{p 13347}#) #t - (if (if (vector? #{p 15313}#) - (if (= (vector-length #{p 15313}#) 4) - (eq? (vector-ref #{p 15313}# 0) + (if (if (vector? #{p 13347}#) + (if (= (vector-length #{p 13347}#) 4) + (eq? (vector-ref #{p 13347}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 15313}# 1)) + (symbol? (vector-ref #{p 13347}# 1)) #f)) - (if (#{bound-id-member? 6313}# - #{p 15313}# - #{keys 15307}#) + (if (#{bound-id-member? 4337}# + #{p 13347}# + #{keys 13341}#) (values - (vector 'free-id #{p 15313}#) - #{ids 15315}#) - (if (if (eq? (if (if (vector? #{p 15313}#) - (if (= (vector-length #{p 15313}#) + (vector 'free-id #{p 13347}#) + #{ids 13349}#) + (if (if (eq? (if (if (vector? #{p 13347}#) + (if (= (vector-length #{p 13347}#) 4) - (eq? (vector-ref #{p 15313}# 0) + (eq? (vector-ref #{p 13347}# 0) 'syntax-object) #f) #f) - (vector-ref #{p 15313}# 1) - #{p 15313}#) + (vector-ref #{p 13347}# 1) + #{p 13347}#) (if (if (= (vector-length '#(syntax-object _ @@ -11116,19 +11173,19 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i5723" - "i5724" - "i5725")) + #("i3747" + "i3748" + "i3749")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i5696" - "i5694" - "i5692")) + ("i3720" + "i3718" + "i3716")) #(ribcage #(pattern keys) #((top) (top)) - #("i5690" "i5691")) + #("i3714" "i3715")) #(ribcage (gen-syntax-case gen-clause @@ -11138,10 +11195,10 @@ (top) (top) (top)) - ("i5686" - "i5684" - "i5682" - "i5680")) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -11415,150 +11472,148 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile))) 4) #t @@ -11571,22 +11626,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i5723" "i5724" "i5725")) + #("i3747" "i3748" "i3749")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i5696" "i5694" "i5692")) + ("i3720" "i3718" "i3716")) #(ribcage #(pattern keys) #((top) (top)) - #("i5690" "i5691")) + #("i3714" "i3715")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i5686" "i5684" "i5682" "i5680")) + ("i3710" "i3708" "i3706" "i3704")) #(ribcage (lambda-var-list gen-var @@ -11860,151 +11915,151 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 6308}# #{p 15313}# '(())) - (#{id-var-name 6308}# + (eq? (#{id-var-name 4332}# #{p 13347}# '(())) + (#{id-var-name 4332}# '#(syntax-object _ ((top) @@ -12012,22 +12067,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i5723" "i5724" "i5725")) + #("i3747" "i3748" "i3749")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i5696" "i5694" "i5692")) + ("i3720" "i3718" "i3716")) #(ribcage #(pattern keys) #((top) (top)) - #("i5690" "i5691")) + #("i3714" "i3715")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i5686" "i5684" "i5682" "i5680")) + ("i3710" "i3708" "i3706" "i3704")) #(ribcage (lambda-var-list gen-var @@ -12301,185 +12356,185 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) - (values '_ #{ids 15315}#) + (values '_ #{ids 13349}#) (values 'any - (cons (cons #{p 15313}# #{n 15314}#) - #{ids 15315}#)))) - (let ((#{tmp 15635}# - ($sc-dispatch #{p 15313}# '(any any)))) - (if (if #{tmp 15635}# + (cons (cons #{p 13347}# #{n 13348}#) + #{ids 13349}#)))) + (let ((#{tmp 13669}# + ($sc-dispatch #{p 13347}# '(any any)))) + (if (if #{tmp 13669}# (@apply - (lambda (#{x 15639}# #{dots 15640}#) - (if (if (if (vector? #{dots 15640}#) + (lambda (#{x 13673}# #{dots 13674}#) + (if (if (if (vector? #{dots 13674}#) (if (= (vector-length - #{dots 15640}#) + #{dots 13674}#) 4) (eq? (vector-ref - #{dots 15640}# + #{dots 13674}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{dots 15640}# 1)) + (symbol? (vector-ref #{dots 13674}# 1)) #f) - (if (eq? (if (if (vector? #{dots 15640}#) + (if (eq? (if (if (vector? #{dots 13674}#) (if (= (vector-length - #{dots 15640}#) + #{dots 13674}#) 4) (eq? (vector-ref - #{dots 15640}# + #{dots 13674}# 0) 'syntax-object) #f) #f) - (vector-ref #{dots 15640}# 1) - #{dots 15640}#) + (vector-ref #{dots 13674}# 1) + #{dots 13674}#) (if (if (= (vector-length '#(syntax-object ... @@ -12495,7 +12550,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -12769,142 +12824,142 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors @@ -12912,9 +12967,9 @@ ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile))) 4) #t @@ -12928,7 +12983,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -13202,155 +13257,153 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 6308}# - #{dots 15640}# + (eq? (#{id-var-name 4332}# + #{dots 13674}# '(())) - (#{id-var-name 6308}# + (#{id-var-name 4332}# '#(syntax-object ... ((top) @@ -13359,7 +13412,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -13633,204 +13686,204 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp 15635}#) + #{tmp 13669}#) #f) (@apply - (lambda (#{x 15740}# #{dots 15741}#) + (lambda (#{x 13774}# #{dots 13775}#) (call-with-values (lambda () - (#{cvt 15310}# - #{x 15740}# - (#{1+}# #{n 15314}#) - #{ids 15315}#)) - (lambda (#{p 15742}# #{ids 15743}#) + (#{cvt 13344}# + #{x 13774}# + (#{1+}# #{n 13348}#) + #{ids 13349}#)) + (lambda (#{p 13776}# #{ids 13777}#) (values - (if (eq? #{p 15742}# 'any) + (if (eq? #{p 13776}# 'any) 'each-any - (vector 'each #{p 15742}#)) - #{ids 15743}#)))) - #{tmp 15635}#) - (let ((#{tmp 15744}# - ($sc-dispatch #{p 15313}# '(any any . any)))) - (if (if #{tmp 15744}# + (vector 'each #{p 13776}#)) + #{ids 13777}#)))) + #{tmp 13669}#) + (let ((#{tmp 13778}# + ($sc-dispatch #{p 13347}# '(any any . any)))) + (if (if #{tmp 13778}# (@apply - (lambda (#{x 15748}# - #{dots 15749}# - #{ys 15750}#) - (if (if (if (vector? #{dots 15749}#) + (lambda (#{x 13782}# + #{dots 13783}# + #{ys 13784}#) + (if (if (if (vector? #{dots 13783}#) (if (= (vector-length - #{dots 15749}#) + #{dots 13783}#) 4) (eq? (vector-ref - #{dots 15749}# + #{dots 13783}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 15749}# 1)) + (vector-ref #{dots 13783}# 1)) #f) (if (eq? (if (if (vector? - #{dots 15749}#) + #{dots 13783}#) (if (= (vector-length - #{dots 15749}#) + #{dots 13783}#) 4) (eq? (vector-ref - #{dots 15749}# + #{dots 13783}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots 15749}# + #{dots 13783}# 1) - #{dots 15749}#) + #{dots 13783}#) (if (if (= (vector-length '#(syntax-object ... @@ -13846,7 +13899,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -14120,142 +14173,142 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors @@ -14263,9 +14316,9 @@ ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile))) 4) @@ -14280,7 +14333,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -14554,155 +14607,153 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 6308}# - #{dots 15749}# + (eq? (#{id-var-name 4332}# + #{dots 13783}# '(())) - (#{id-var-name 6308}# + (#{id-var-name 4332}# '#(syntax-object ... ((top) @@ -14711,7 +14762,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -14985,259 +15036,257 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp 15744}#) + #{tmp 13778}#) #f) (@apply - (lambda (#{x 15850}# - #{dots 15851}# - #{ys 15852}#) + (lambda (#{x 13884}# + #{dots 13885}# + #{ys 13886}#) (call-with-values (lambda () - (#{cvt* 15308}# - #{ys 15852}# - #{n 15314}# - #{ids 15315}#)) - (lambda (#{ys 15855}# #{ids 15856}#) + (#{cvt* 13342}# + #{ys 13886}# + #{n 13348}# + #{ids 13349}#)) + (lambda (#{ys 13889}# #{ids 13890}#) (call-with-values (lambda () - (#{cvt 15310}# - #{x 15850}# - (#{1+}# #{n 15314}#) - #{ids 15856}#)) - (lambda (#{x 15857}# #{ids 15858}#) + (#{cvt 13344}# + #{x 13884}# + (#{1+}# #{n 13348}#) + #{ids 13890}#)) + (lambda (#{x 13891}# #{ids 13892}#) (call-with-values (lambda () - (#{v-reverse 15309}# - #{ys 15855}#)) - (lambda (#{ys 15891}# #{e 15892}#) + (#{v-reverse 13343}# + #{ys 13889}#)) + (lambda (#{ys 13925}# #{e 13926}#) (values (vector 'each+ - #{x 15857}# - #{ys 15891}# - #{e 15892}#) - #{ids 15858}#)))))))) - #{tmp 15744}#) - (let ((#{tmp 15893}# - ($sc-dispatch #{p 15313}# '(any . any)))) - (if #{tmp 15893}# + #{x 13891}# + #{ys 13925}# + #{e 13926}#) + #{ids 13892}#)))))))) + #{tmp 13778}#) + (let ((#{tmp 13927}# + ($sc-dispatch #{p 13347}# '(any . any)))) + (if #{tmp 13927}# (@apply - (lambda (#{x 15897}# #{y 15898}#) + (lambda (#{x 13931}# #{y 13932}#) (call-with-values (lambda () - (#{cvt 15310}# - #{y 15898}# - #{n 15314}# - #{ids 15315}#)) - (lambda (#{y 15899}# #{ids 15900}#) + (#{cvt 13344}# + #{y 13932}# + #{n 13348}# + #{ids 13349}#)) + (lambda (#{y 13933}# #{ids 13934}#) (call-with-values (lambda () - (#{cvt 15310}# - #{x 15897}# - #{n 15314}# - #{ids 15900}#)) - (lambda (#{x 15901}# #{ids 15902}#) + (#{cvt 13344}# + #{x 13931}# + #{n 13348}# + #{ids 13934}#)) + (lambda (#{x 13935}# #{ids 13936}#) (values - (cons #{x 15901}# #{y 15899}#) - #{ids 15902}#)))))) - #{tmp 15893}#) - (let ((#{tmp 15903}# - ($sc-dispatch #{p 15313}# '()))) - (if #{tmp 15903}# + (cons #{x 13935}# #{y 13933}#) + #{ids 13936}#)))))) + #{tmp 13927}#) + (let ((#{tmp 13937}# + ($sc-dispatch #{p 13347}# '()))) + (if #{tmp 13937}# (@apply - (lambda () (values '() #{ids 15315}#)) - #{tmp 15903}#) - (let ((#{tmp 15907}# + (lambda () (values '() #{ids 13349}#)) + #{tmp 13937}#) + (let ((#{tmp 13941}# ($sc-dispatch - #{p 15313}# + #{p 13347}# '#(vector each-any)))) - (if #{tmp 15907}# + (if #{tmp 13941}# (@apply - (lambda (#{x 15911}#) + (lambda (#{x 13945}#) (call-with-values (lambda () - (#{cvt 15310}# - #{x 15911}# - #{n 15314}# - #{ids 15315}#)) - (lambda (#{p 15912}# - #{ids 15913}#) + (#{cvt 13344}# + #{x 13945}# + #{n 13348}# + #{ids 13349}#)) + (lambda (#{p 13946}# + #{ids 13947}#) (values (vector 'vector - #{p 15912}#) - #{ids 15913}#)))) - #{tmp 15907}#) + #{p 13946}#) + #{ids 13947}#)))) + #{tmp 13941}#) (values (vector 'atom - (#{strip 6334}# - #{p 15313}# + (#{strip 4358}# + #{p 13347}# '(()))) - #{ids 15315}#))))))))))))))) - (#{cvt 15310}# #{pattern 15306}# 0 '())))) - (#{build-dispatch-call 13710}# - (lambda (#{pvars 16026}# - #{exp 16027}# - #{y 16028}# - #{r 16029}# - #{mod 16030}#) - (let ((#{ids 16031}# (map car #{pvars 16026}#))) + #{ids 13349}#))))))))))))))) + (#{cvt 13344}# #{pattern 13340}# 0 '())))) + (#{build-dispatch-call 11744}# + (lambda (#{pvars 14060}# + #{exp 14061}# + #{y 14062}# + #{r 14063}# + #{mod 14064}#) + (let ((#{ids 14065}# (map car #{pvars 14060}#))) (begin - (map cdr #{pvars 16026}#) - (let ((#{labels 16033}# - (#{gen-labels 6292}# #{ids 16031}#)) - (#{new-vars 16034}# - (map #{gen-var 6335}# #{ids 16031}#))) - (#{build-application 6256}# + (map cdr #{pvars 14060}#) + (let ((#{labels 14067}# + (#{gen-labels 4316}# #{ids 14065}#)) + (#{new-vars 14068}# + (map #{gen-var 4359}# #{ids 14065}#))) + (#{build-application 4280}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15250,78 +15299,78 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda 6265}# + (list (#{build-simple-lambda 4289}# #f - (map syntax->datum #{ids 16031}#) + (map syntax->datum #{ids 14065}#) #f - #{new-vars 16034}# + #{new-vars 14068}# '() - (#{expand 6321}# - #{exp 16027}# - (#{extend-env 6283}# - #{labels 16033}# - (map (lambda (#{var 16359}# #{level 16360}#) + (#{expand 4345}# + #{exp 14061}# + (#{extend-env 4307}# + #{labels 14067}# + (map (lambda (#{var 14393}# #{level 14394}#) (cons 'syntax - (cons #{var 16359}# - #{level 16360}#))) - #{new-vars 16034}# - (map cdr #{pvars 16026}#)) - #{r 16029}#) - (#{make-binding-wrap 6303}# - #{ids 16031}# - #{labels 16033}# + (cons #{var 14393}# + #{level 14394}#))) + #{new-vars 14068}# + (map cdr #{pvars 14060}#)) + #{r 14063}#) + (#{make-binding-wrap 4327}# + #{ids 14065}# + #{labels 14067}# '(())) - #{mod 16030}#)) - #{y 16028}#))))))) - (#{gen-clause 13711}# - (lambda (#{x 14678}# - #{keys 14679}# - #{clauses 14680}# - #{r 14681}# - #{pat 14682}# - #{fender 14683}# - #{exp 14684}# - #{mod 14685}#) + #{mod 14064}#)) + #{y 14062}#))))))) + (#{gen-clause 11745}# + (lambda (#{x 12712}# + #{keys 12713}# + #{clauses 12714}# + #{r 12715}# + #{pat 12716}# + #{fender 12717}# + #{exp 12718}# + #{mod 12719}#) (call-with-values (lambda () - (#{convert-pattern 13709}# - #{pat 14682}# - #{keys 14679}#)) - (lambda (#{p 14840}# #{pvars 14841}#) - (if (not (#{distinct-bound-ids? 6312}# - (map car #{pvars 14841}#))) + (#{convert-pattern 11743}# + #{pat 12716}# + #{keys 12713}#)) + (lambda (#{p 12874}# #{pvars 12875}#) + (if (not (#{distinct-bound-ids? 4336}# + (map car #{pvars 12875}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 14682}#) + #{pat 12716}#) (if (not (and-map - (lambda (#{x 14957}#) - (not (let ((#{x 14961}# (car #{x 14957}#))) - (if (if (if (vector? #{x 14961}#) + (lambda (#{x 12991}#) + (not (let ((#{x 12995}# (car #{x 12991}#))) + (if (if (if (vector? #{x 12995}#) (if (= (vector-length - #{x 14961}#) + #{x 12995}#) 4) (eq? (vector-ref - #{x 14961}# + #{x 12995}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x 14961}# 1)) + (vector-ref #{x 12995}# 1)) #f) - (if (eq? (if (if (vector? #{x 14961}#) + (if (eq? (if (if (vector? #{x 12995}#) (if (= (vector-length - #{x 14961}#) + #{x 12995}#) 4) (eq? (vector-ref - #{x 14961}# + #{x 12995}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 14961}# 1) - #{x 14961}#) + (vector-ref #{x 12995}# 1) + #{x 12995}#) (if (if (= (vector-length '#(syntax-object ... @@ -15337,7 +15386,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -15611,142 +15660,142 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors @@ -15754,9 +15803,9 @@ ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile))) 4) @@ -15771,7 +15820,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -16045,155 +16094,153 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 6308}# - #{x 14961}# + (eq? (#{id-var-name 4332}# + #{x 12995}# '(())) - (#{id-var-name 6308}# + (#{id-var-name 4332}# '#(syntax-object ... ((top) @@ -16202,7 +16249,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -16476,190 +16523,188 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) #f)))) - #{pvars 14841}#)) + #{pvars 12875}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 14682}#) - (let ((#{y 15037}# + #{pat 12716}#) + (let ((#{y 13071}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 6256}# + (#{build-application 4280}# #f - (let ((#{req 15180}# (list 'tmp)) - (#{vars 15182}# (list #{y 15037}#)) - (#{exp 15184}# - (let ((#{y 15201}# + (let ((#{req 13214}# (list 'tmp)) + (#{vars 13216}# (list #{y 13071}#)) + (#{exp 13218}# + (let ((#{y 13235}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 15037}#))) - (let ((#{test-exp 15205}# - (let ((#{tmp 15214}# + #{y 13071}#))) + (let ((#{test-exp 13239}# + (let ((#{tmp 13248}# ($sc-dispatch - #{fender 14683}# + #{fender 12717}# '#(atom #t)))) - (if #{tmp 15214}# + (if #{tmp 13248}# (@apply - (lambda () #{y 15201}#) - #{tmp 15214}#) - (let ((#{then-exp 15232}# - (#{build-dispatch-call 13710}# - #{pvars 14841}# - #{fender 14683}# - #{y 15201}# - #{r 14681}# - #{mod 14685}#)) - (#{else-exp 15233}# + (lambda () #{y 13235}#) + #{tmp 13248}#) + (let ((#{then-exp 13266}# + (#{build-dispatch-call 11744}# + #{pvars 12875}# + #{fender 12717}# + #{y 13235}# + #{r 12715}# + #{mod 12719}#)) + (#{else-exp 13267}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -16671,48 +16716,48 @@ %expanded-vtables 10) #f - #{y 15201}# - #{then-exp 15232}# - #{else-exp 15233}#))))) - (#{then-exp 15206}# - (#{build-dispatch-call 13710}# - #{pvars 14841}# - #{exp 14684}# - #{y 15201}# - #{r 14681}# - #{mod 14685}#)) - (#{else-exp 15207}# - (#{gen-syntax-case 13712}# - #{x 14678}# - #{keys 14679}# - #{clauses 14680}# - #{r 14681}# - #{mod 14685}#))) + #{y 13235}# + #{then-exp 13266}# + #{else-exp 13267}#))))) + (#{then-exp 13240}# + (#{build-dispatch-call 11744}# + #{pvars 12875}# + #{exp 12718}# + #{y 13235}# + #{r 12715}# + #{mod 12719}#)) + (#{else-exp 13241}# + (#{gen-syntax-case 11746}# + #{x 12712}# + #{keys 12713}# + #{clauses 12714}# + #{r 12715}# + #{mod 12719}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 15205}# - #{then-exp 15206}# - #{else-exp 15207}#))))) - (let ((#{body 15189}# + #{test-exp 13239}# + #{then-exp 13240}# + #{else-exp 13241}#))))) + (let ((#{body 13223}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 15180}# + #{req 13214}# #f #f #f '() - #{vars 15182}# - #{exp 15184}# + #{vars 13216}# + #{exp 13218}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 15189}#))) - (list (if (eq? #{p 14840}# 'any) - (let ((#{fun-exp 15255}# + #{body 13223}#))) + (list (if (eq? #{p 12874}# 'any) + (let ((#{fun-exp 13289}# (if (equal? (module-name (current-module)) '(guile)) @@ -16726,13 +16771,13 @@ '(guile) 'list #f))) - (#{arg-exps 15256}# (list #{x 14678}#))) + (#{arg-exps 13290}# (list #{x 12712}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 15255}# - #{arg-exps 15256}#)) - (let ((#{fun-exp 15279}# + #{fun-exp 13289}# + #{arg-exps 13290}#)) + (let ((#{fun-exp 13313}# (if (equal? (module-name (current-module)) '(guile)) @@ -16746,27 +16791,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps 15280}# - (list #{x 14678}# + (#{arg-exps 13314}# + (list #{x 12712}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 14840}#)))) + #{p 12874}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 15279}# - #{arg-exps 15280}#)))))))))))) - (#{gen-syntax-case 13712}# - (lambda (#{x 14111}# - #{keys 14112}# - #{clauses 14113}# - #{r 14114}# - #{mod 14115}#) - (if (null? #{clauses 14113}#) - (let ((#{fun-exp 14120}# + #{fun-exp 13313}# + #{arg-exps 13314}#)))))))))))) + (#{gen-syntax-case 11746}# + (lambda (#{x 12145}# + #{keys 12146}# + #{clauses 12147}# + #{r 12148}# + #{mod 12149}#) + (if (null? #{clauses 12147}#) + (let ((#{fun-exp 12154}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -16778,7 +16823,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps 14121}# + (#{arg-exps 12155}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -16787,61 +16832,61 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 14111}#))) + #{x 12145}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 14120}# - #{arg-exps 14121}#)) - (let ((#{tmp 14154}# (car #{clauses 14113}#))) - (let ((#{tmp 14155}# - ($sc-dispatch #{tmp 14154}# '(any any)))) - (if #{tmp 14155}# + #{fun-exp 12154}# + #{arg-exps 12155}#)) + (let ((#{tmp 12188}# (car #{clauses 12147}#))) + (let ((#{tmp 12189}# + ($sc-dispatch #{tmp 12188}# '(any any)))) + (if #{tmp 12189}# (@apply - (lambda (#{pat 14157}# #{exp 14158}#) - (if (if (if (symbol? #{pat 14157}#) + (lambda (#{pat 12191}# #{exp 12192}#) + (if (if (if (symbol? #{pat 12191}#) #t - (if (if (vector? #{pat 14157}#) - (if (= (vector-length #{pat 14157}#) + (if (if (vector? #{pat 12191}#) + (if (= (vector-length #{pat 12191}#) 4) - (eq? (vector-ref #{pat 14157}# 0) + (eq? (vector-ref #{pat 12191}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 14157}# 1)) + (symbol? (vector-ref #{pat 12191}# 1)) #f)) (and-map - (lambda (#{x 14185}#) + (lambda (#{x 12219}#) (not (if (eq? (if (if (vector? - #{pat 14157}#) + #{pat 12191}#) (if (= (vector-length - #{pat 14157}#) + #{pat 12191}#) 4) (eq? (vector-ref - #{pat 14157}# + #{pat 12191}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 14157}# 1) - #{pat 14157}#) - (if (if (vector? #{x 14185}#) + (vector-ref #{pat 12191}# 1) + #{pat 12191}#) + (if (if (vector? #{x 12219}#) (if (= (vector-length - #{x 14185}#) + #{x 12219}#) 4) (eq? (vector-ref - #{x 14185}# + #{x 12219}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 14185}# 1) - #{x 14185}#)) - (eq? (#{id-var-name 6308}# - #{pat 14157}# + (vector-ref #{x 12219}# 1) + #{x 12219}#)) + (eq? (#{id-var-name 4332}# + #{pat 12191}# '(())) - (#{id-var-name 6308}# - #{x 14185}# + (#{id-var-name 4332}# + #{x 12219}# '(()))) #f))) (cons '#(syntax-object @@ -16850,23 +16895,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i5887" "i5888")) + #("i3911" "i3912")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i5876" - "i5877" - "i5878" - "i5879" - "i5880")) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i5686" "i5684" "i5682" "i5680")) + ("i3710" "i3708" "i3706" "i3704")) #(ribcage (lambda-var-list gen-var @@ -17140,150 +17185,150 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 14112}#)) + #{keys 12146}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -17292,7 +17337,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i5887" "i5888")) + #("i3911" "i3912")) #(ribcage () () ()) #(ribcage #(x @@ -17305,11 +17350,11 @@ (top) (top) (top)) - #("i5876" - "i5877" - "i5878" - "i5879" - "i5880")) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) #(ribcage (gen-syntax-case gen-clause @@ -17319,10 +17364,10 @@ (top) (top) (top)) - ("i5686" - "i5684" - "i5682" - "i5680")) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -17596,150 +17641,150 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile))) 4) #t @@ -17751,7 +17796,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i5887" "i5888")) + #("i3911" "i3912")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -17760,21 +17805,21 @@ (top) (top) (top)) - #("i5876" - "i5877" - "i5878" - "i5879" - "i5880")) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i5686" - "i5684" - "i5682" - "i5680")) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -18048,148 +18093,148 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -18198,7 +18243,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i5887" "i5888")) + #("i3911" "i3912")) #(ribcage () () ()) #(ribcage #(x @@ -18211,11 +18256,11 @@ (top) (top) (top)) - #("i5876" - "i5877" - "i5878" - "i5879" - "i5880")) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) #(ribcage (gen-syntax-case gen-clause @@ -18225,10 +18270,10 @@ (top) (top) (top)) - ("i5686" - "i5684" - "i5682" - "i5680")) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -18502,150 +18547,150 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile))) 4) #t @@ -18657,7 +18702,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i5887" "i5888")) + #("i3911" "i3912")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18666,21 +18711,21 @@ (top) (top) (top)) - #("i5876" - "i5877" - "i5878" - "i5879" - "i5880")) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i5686" - "i5684" - "i5682" - "i5680")) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -18954,176 +18999,176 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 6308}# + (eq? (#{id-var-name 4332}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i5887" "i5888")) + #("i3911" "i3912")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i5876" - "i5877" - "i5878" - "i5879" - "i5880")) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i5686" - "i5684" - "i5682" - "i5680")) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -19397,177 +19442,177 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(())) - (#{id-var-name 6308}# + (#{id-var-name 4332}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("i5887" "i5888")) + #("i3911" "i3912")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i5876" - "i5877" - "i5878" - "i5879" - "i5880")) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i5686" - "i5684" - "i5682" - "i5680")) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -19841,281 +19886,281 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) - (#{expand 6321}# - #{exp 14158}# - #{r 14114}# + (#{expand 4345}# + #{exp 12192}# + #{r 12148}# '(()) - #{mod 14115}#) - (let ((#{labels 14361}# + #{mod 12149}#) + (let ((#{labels 12395}# (list (symbol->string (gensym "i")))) - (#{var 14362}# - (let ((#{id 14400}# - (if (if (vector? #{pat 14157}#) + (#{var 12396}# + (let ((#{id 12434}# + (if (if (vector? #{pat 12191}#) (if (= (vector-length - #{pat 14157}#) + #{pat 12191}#) 4) (eq? (vector-ref - #{pat 14157}# + #{pat 12191}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 14157}# 1) - #{pat 14157}#))) + (vector-ref #{pat 12191}# 1) + #{pat 12191}#))) (gensym (string-append - (symbol->string #{id 14400}#) + (symbol->string #{id 12434}#) " "))))) - (#{build-application 6256}# + (#{build-application 4280}# #f - (#{build-simple-lambda 6265}# + (#{build-simple-lambda 4289}# #f - (list (syntax->datum #{pat 14157}#)) + (list (syntax->datum #{pat 12191}#)) #f - (list #{var 14362}#) + (list #{var 12396}#) '() - (#{expand 6321}# - #{exp 14158}# - (#{extend-env 6283}# - #{labels 14361}# + (#{expand 4345}# + #{exp 12192}# + (#{extend-env 4307}# + #{labels 12395}# (list (cons 'syntax - (cons #{var 14362}# 0))) - #{r 14114}#) - (#{make-binding-wrap 6303}# - (list #{pat 14157}#) - #{labels 14361}# + (cons #{var 12396}# 0))) + #{r 12148}#) + (#{make-binding-wrap 4327}# + (list #{pat 12191}#) + #{labels 12395}# '(())) - #{mod 14115}#)) - (list #{x 14111}#)))) - (#{gen-clause 13711}# - #{x 14111}# - #{keys 14112}# - (cdr #{clauses 14113}#) - #{r 14114}# - #{pat 14157}# + #{mod 12149}#)) + (list #{x 12145}#)))) + (#{gen-clause 11745}# + #{x 12145}# + #{keys 12146}# + (cdr #{clauses 12147}#) + #{r 12148}# + #{pat 12191}# #t - #{exp 14158}# - #{mod 14115}#))) - #{tmp 14155}#) - (let ((#{tmp 14670}# - ($sc-dispatch #{tmp 14154}# '(any any any)))) - (if #{tmp 14670}# + #{exp 12192}# + #{mod 12149}#))) + #{tmp 12189}#) + (let ((#{tmp 12704}# + ($sc-dispatch #{tmp 12188}# '(any any any)))) + (if #{tmp 12704}# (@apply - (lambda (#{pat 14672}# - #{fender 14673}# - #{exp 14674}#) - (#{gen-clause 13711}# - #{x 14111}# - #{keys 14112}# - (cdr #{clauses 14113}#) - #{r 14114}# - #{pat 14672}# - #{fender 14673}# - #{exp 14674}# - #{mod 14115}#)) - #{tmp 14670}#) + (lambda (#{pat 12706}# + #{fender 12707}# + #{exp 12708}#) + (#{gen-clause 11745}# + #{x 12145}# + #{keys 12146}# + (cdr #{clauses 12147}#) + #{r 12148}# + #{pat 12706}# + #{fender 12707}# + #{exp 12708}# + #{mod 12149}#)) + #{tmp 12704}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 14113}#))))))))))) - (lambda (#{e 13713}# - #{r 13714}# - #{w 13715}# - #{s 13716}# - #{mod 13717}#) - (let ((#{e 13718}# - (#{wrap 6314}# + (car #{clauses 12147}#))))))))))) + (lambda (#{e 11747}# + #{r 11748}# + #{w 11749}# + #{s 11750}# + #{mod 11751}#) + (let ((#{e 11752}# + (#{wrap 4338}# (begin - (if (if (pair? #{e 13713}#) #{s 13716}# #f) - (set-source-properties! #{e 13713}# #{s 13716}#)) - #{e 13713}#) - #{w 13715}# - #{mod 13717}#))) - (let ((#{tmp 13720}# + (if (if (pair? #{e 11747}#) #{s 11750}# #f) + (set-source-properties! #{e 11747}# #{s 11750}#)) + #{e 11747}#) + #{w 11749}# + #{mod 11751}#))) + (let ((#{tmp 11754}# ($sc-dispatch - #{e 13718}# + #{e 11752}# '(_ any each-any . each-any)))) - (if #{tmp 13720}# + (if #{tmp 11754}# (@apply - (lambda (#{val 13745}# #{key 13746}# #{m 13747}#) + (lambda (#{val 11779}# #{key 11780}# #{m 11781}#) (if (and-map - (lambda (#{x 13748}#) - (if (if (symbol? #{x 13748}#) + (lambda (#{x 11782}#) + (if (if (symbol? #{x 11782}#) #t - (if (if (vector? #{x 13748}#) - (if (= (vector-length #{x 13748}#) 4) - (eq? (vector-ref #{x 13748}# 0) + (if (if (vector? #{x 11782}#) + (if (= (vector-length #{x 11782}#) 4) + (eq? (vector-ref #{x 11782}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 13748}# 1)) + (symbol? (vector-ref #{x 11782}# 1)) #f)) - (not (if (if (if (vector? #{x 13748}#) - (if (= (vector-length #{x 13748}#) + (not (if (if (if (vector? #{x 11782}#) + (if (= (vector-length #{x 11782}#) 4) - (eq? (vector-ref #{x 13748}# 0) + (eq? (vector-ref #{x 11782}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 13748}# 1)) + (symbol? (vector-ref #{x 11782}# 1)) #f) - (if (eq? (if (if (vector? #{x 13748}#) + (if (eq? (if (if (vector? #{x 11782}#) (if (= (vector-length - #{x 13748}#) + #{x 11782}#) 4) (eq? (vector-ref - #{x 13748}# + #{x 11782}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 13748}# 1) - #{x 13748}#) + (vector-ref #{x 11782}# 1) + #{x 11782}#) (if (if (= (vector-length '#(syntax-object ... @@ -20131,7 +20176,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -20405,142 +20450,142 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors @@ -20548,9 +20593,9 @@ ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" + "i45" + "i44"))) (hygiene guile))) 4) #t @@ -20564,7 +20609,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -20838,155 +20883,153 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" - "i2032" - "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 6308}# - #{x 13748}# + (eq? (#{id-var-name 4332}# + #{x 11782}# '(())) - (#{id-var-name 6308}# + (#{id-var-name 4332}# '#(syntax-object ... ((top) @@ -20995,7 +21038,7 @@ #(ribcage #(x) #((top)) - #("i4206")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -21269,738 +21312,738 @@ (top) (top) (top)) - ("i2454" - "i2452" - "i2450" - "i2448" - "i2446" - "i2444" - "i2442" - "i2440" - "i2438" - "i2436" - "i2434" - "i2432" - "i2430" - "i2428" - "i2426" - "i2424" - "i2422" - "i2420" - "i2418" - "i2416" - "i2414" - "i2412" - "i2410" - "i2408" - "i2406" - "i2404" - "i2402" - "i2400" - "i2398" - "i2396" - "i2394" - "i2392" - "i2390" - "i2388" - "i2386" - "i2385" - "i2383" - "i2380" - "i2379" - "i2378" - "i2376" - "i2375" - "i2373" - "i2371" - "i2369" - "i2367" - "i2365" - "i2363" - "i2361" - "i2359" - "i2356" - "i2354" - "i2353" - "i2351" - "i2349" - "i2347" - "i2345" - "i2344" - "i2343" - "i2342" - "i2340" - "i2339" - "i2336" - "i2334" - "i2332" - "i2330" - "i2328" - "i2326" - "i2324" - "i2323" - "i2322" - "i2320" - "i2318" - "i2317" - "i2314" - "i2313" - "i2311" - "i2309" - "i2307" - "i2305" - "i2303" - "i2301" - "i2299" - "i2297" - "i2295" - "i2292" - "i2290" - "i2288" - "i2286" - "i2284" - "i2282" - "i2280" - "i2278" - "i2276" - "i2274" - "i2272" - "i2270" - "i2268" - "i2266" - "i2264" - "i2262" - "i2260" - "i2258" - "i2256" - "i2254" - "i2252" - "i2250" - "i2248" - "i2247" - "i2244" - "i2242" - "i2241" - "i2240" - "i2239" - "i2238" - "i2236" - "i2234" - "i2232" - "i2229" - "i2227" - "i2225" - "i2223" - "i2221" - "i2219" - "i2217" - "i2215" - "i2213" - "i2211" - "i2209" - "i2207" - "i2205" - "i2203" - "i2201" - "i2199" - "i2197" - "i2195")) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i2033" "i2032" "i2031"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) #f)) #f)) - #{key 13746}#) - (let ((#{x 13874}# + #{key 11780}#) + (let ((#{x 11908}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 6256}# - #{s 13716}# - (let ((#{req 14004}# (list 'tmp)) - (#{vars 14006}# (list #{x 13874}#)) - (#{exp 14008}# - (#{gen-syntax-case 13712}# + (#{build-application 4280}# + #{s 11750}# + (let ((#{req 12038}# (list 'tmp)) + (#{vars 12040}# (list #{x 11908}#)) + (#{exp 12042}# + (#{gen-syntax-case 11746}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 13874}#) - #{key 13746}# - #{m 13747}# - #{r 13714}# - #{mod 13717}#))) - (let ((#{body 14013}# + #{x 11908}#) + #{key 11780}# + #{m 11781}# + #{r 11748}# + #{mod 11751}#))) + (let ((#{body 12047}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 14004}# + #{req 12038}# #f #f #f '() - #{vars 14006}# - #{exp 14008}# + #{vars 12040}# + #{exp 12042}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 14013}#))) - (list (#{expand 6321}# - #{val 13745}# - #{r 13714}# + #{body 12047}#))) + (list (#{expand 4345}# + #{val 11779}# + #{r 11748}# '(()) - #{mod 13717}#)))) + #{mod 11751}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 13718}#))) - #{tmp 13720}#) + #{e 11752}#))) + #{tmp 11754}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 13718}#))))))) + #{e 11752}#))))))) (set! macroexpand (lambda* - (#{x 16451}# + (#{x 14485}# #:optional - (#{m 16452}# 'e) - (#{esew 16453}# '(eval))) - (#{expand-top-sequence 6317}# - (list #{x 16451}#) + (#{m 14486}# 'e) + (#{esew 14487}# '(eval))) + (#{expand-top-sequence 4341}# + (list #{x 14485}#) '() '((top)) #f - #{m 16452}# - #{esew 16453}# + #{m 14486}# + #{esew 14487}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 16456}#) - (if (if (vector? #{x 16456}#) - (if (= (vector-length #{x 16456}#) 4) - (eq? (vector-ref #{x 16456}# 0) 'syntax-object) + (lambda (#{x 14490}#) + (if (if (vector? #{x 14490}#) + (if (= (vector-length #{x 14490}#) 4) + (eq? (vector-ref #{x 14490}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 16456}# 1)) + (symbol? (vector-ref #{x 14490}# 1)) #f))) (set! datum->syntax - (lambda (#{id 16481}# #{datum 16482}#) - (let ((#{wrap 16487}# (vector-ref #{id 16481}# 2)) - (#{module 16488}# (vector-ref #{id 16481}# 3))) + (lambda (#{id 14515}# #{datum 14516}#) + (let ((#{wrap 14521}# (vector-ref #{id 14515}# 2)) + (#{module 14522}# (vector-ref #{id 14515}# 3))) (vector 'syntax-object - #{datum 16482}# - #{wrap 16487}# - #{module 16488}#)))) + #{datum 14516}# + #{wrap 14521}# + #{module 14522}#)))) (set! syntax->datum - (lambda (#{x 16495}#) - (#{strip 6334}# #{x 16495}# '(())))) + (lambda (#{x 14529}#) + (#{strip 4358}# #{x 14529}# '(())))) (set! syntax-source - (lambda (#{x 16498}#) - (#{source-annotation 6282}# #{x 16498}#))) + (lambda (#{x 14532}#) + (#{source-annotation 4306}# #{x 14532}#))) (set! generate-temporaries - (lambda (#{ls 16651}#) + (lambda (#{ls 14685}#) (begin - (if (not (list? #{ls 16651}#)) + (if (not (list? #{ls 14685}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 16651}#)) - (let ((#{mod 16659}# + #{ls 14685}#)) + (let ((#{mod 14693}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 16660}#) - (#{wrap 6314}# (gensym) '((top)) #{mod 16659}#)) - #{ls 16651}#))))) + (map (lambda (#{x 14694}#) + (#{wrap 4338}# (gensym) '((top)) #{mod 14693}#)) + #{ls 14685}#))))) (set! free-identifier=? - (lambda (#{x 16664}# #{y 16665}#) + (lambda (#{x 14698}# #{y 14699}#) (begin - (if (not (if (if (vector? #{x 16664}#) - (if (= (vector-length #{x 16664}#) 4) - (eq? (vector-ref #{x 16664}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 14698}#) + (if (= (vector-length #{x 14698}#) 4) + (eq? (vector-ref #{x 14698}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 16664}# 1)) + (symbol? (vector-ref #{x 14698}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 16664}#)) - (if (not (if (if (vector? #{y 16665}#) - (if (= (vector-length #{y 16665}#) 4) - (eq? (vector-ref #{y 16665}# 0) 'syntax-object) + #{x 14698}#)) + (if (not (if (if (vector? #{y 14699}#) + (if (= (vector-length #{y 14699}#) 4) + (eq? (vector-ref #{y 14699}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 16665}# 1)) + (symbol? (vector-ref #{y 14699}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 16665}#)) - (if (eq? (if (if (vector? #{x 16664}#) - (if (= (vector-length #{x 16664}#) 4) - (eq? (vector-ref #{x 16664}# 0) 'syntax-object) + #{y 14699}#)) + (if (eq? (if (if (vector? #{x 14698}#) + (if (= (vector-length #{x 14698}#) 4) + (eq? (vector-ref #{x 14698}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 16664}# 1) - #{x 16664}#) - (if (if (vector? #{y 16665}#) - (if (= (vector-length #{y 16665}#) 4) - (eq? (vector-ref #{y 16665}# 0) 'syntax-object) + (vector-ref #{x 14698}# 1) + #{x 14698}#) + (if (if (vector? #{y 14699}#) + (if (= (vector-length #{y 14699}#) 4) + (eq? (vector-ref #{y 14699}# 0) 'syntax-object) #f) #f) - (vector-ref #{y 16665}# 1) - #{y 16665}#)) - (eq? (#{id-var-name 6308}# #{x 16664}# '(())) - (#{id-var-name 6308}# #{y 16665}# '(()))) + (vector-ref #{y 14699}# 1) + #{y 14699}#)) + (eq? (#{id-var-name 4332}# #{x 14698}# '(())) + (#{id-var-name 4332}# #{y 14699}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x 16815}# #{y 16816}#) + (lambda (#{x 14849}# #{y 14850}#) (begin - (if (not (if (if (vector? #{x 16815}#) - (if (= (vector-length #{x 16815}#) 4) - (eq? (vector-ref #{x 16815}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 14849}#) + (if (= (vector-length #{x 14849}#) 4) + (eq? (vector-ref #{x 14849}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 16815}# 1)) + (symbol? (vector-ref #{x 14849}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 16815}#)) - (if (not (if (if (vector? #{y 16816}#) - (if (= (vector-length #{y 16816}#) 4) - (eq? (vector-ref #{y 16816}# 0) 'syntax-object) + #{x 14849}#)) + (if (not (if (if (vector? #{y 14850}#) + (if (= (vector-length #{y 14850}#) 4) + (eq? (vector-ref #{y 14850}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 16816}# 1)) + (symbol? (vector-ref #{y 14850}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 16816}#)) - (if (if (if (vector? #{x 16815}#) - (if (= (vector-length #{x 16815}#) 4) - (eq? (vector-ref #{x 16815}# 0) 'syntax-object) + #{y 14850}#)) + (if (if (if (vector? #{x 14849}#) + (if (= (vector-length #{x 14849}#) 4) + (eq? (vector-ref #{x 14849}# 0) 'syntax-object) #f) #f) - (if (vector? #{y 16816}#) - (if (= (vector-length #{y 16816}#) 4) - (eq? (vector-ref #{y 16816}# 0) 'syntax-object) + (if (vector? #{y 14850}#) + (if (= (vector-length #{y 14850}#) 4) + (eq? (vector-ref #{y 14850}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 16815}# 1) - (vector-ref #{y 16816}# 1)) - (#{same-marks? 6307}# - (car (vector-ref #{x 16815}# 2)) - (car (vector-ref #{y 16816}# 2))) + (if (eq? (vector-ref #{x 14849}# 1) + (vector-ref #{y 14850}# 1)) + (#{same-marks? 4331}# + (car (vector-ref #{x 14849}# 2)) + (car (vector-ref #{y 14850}# 2))) #f) - (eq? #{x 16815}# #{y 16816}#))))) + (eq? #{x 14849}# #{y 14850}#))))) (set! syntax-violation (lambda* - (#{who 16949}# - #{message 16950}# - #{form 16951}# + (#{who 14983}# + #{message 14984}# + #{form 14985}# #:optional - (#{subform 16952}# #f)) + (#{subform 14986}# #f)) (begin - (if (not (if (not #{who 16949}#) - (not #{who 16949}#) - (let ((#{t 16970}# (string? #{who 16949}#))) - (if #{t 16970}# - #{t 16970}# - (symbol? #{who 16949}#))))) + (if (not (if (not #{who 14983}#) + (not #{who 14983}#) + (let ((#{t 15004}# (string? #{who 14983}#))) + (if #{t 15004}# + #{t 15004}# + (symbol? #{who 14983}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 16949}#)) - (if (not (string? #{message 16950}#)) + #{who 14983}#)) + (if (not (string? #{message 14984}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 16950}#)) + #{message 14984}#)) (throw 'syntax-error - #{who 16949}# - #{message 16950}# - (#{source-annotation 6282}# - (if #{form 16951}# - #{form 16951}# - #{subform 16952}#)) - (#{strip 6334}# #{form 16951}# '(())) - (if #{subform 16952}# - (#{strip 6334}# #{subform 16952}# '(())) + #{who 14983}# + #{message 14984}# + (#{source-annotation 4306}# + (if #{form 14985}# + #{form 14985}# + #{subform 14986}#)) + (#{strip 4358}# #{form 14985}# '(())) + (if #{subform 14986}# + (#{strip 4358}# #{subform 14986}# '(())) #f))))) (letrec* - ((#{match-each 17173}# - (lambda (#{e 17760}# - #{p 17761}# - #{w 17762}# - #{mod 17763}#) - (if (pair? #{e 17760}#) - (let ((#{first 17764}# - (#{match 17179}# - (car #{e 17760}#) - #{p 17761}# - #{w 17762}# + ((#{match-each 15207}# + (lambda (#{e 15794}# + #{p 15795}# + #{w 15796}# + #{mod 15797}#) + (if (pair? #{e 15794}#) + (let ((#{first 15798}# + (#{match 15213}# + (car #{e 15794}#) + #{p 15795}# + #{w 15796}# '() - #{mod 17763}#))) - (if #{first 17764}# - (let ((#{rest 17767}# - (#{match-each 17173}# - (cdr #{e 17760}#) - #{p 17761}# - #{w 17762}# - #{mod 17763}#))) - (if #{rest 17767}# - (cons #{first 17764}# #{rest 17767}#) + #{mod 15797}#))) + (if #{first 15798}# + (let ((#{rest 15801}# + (#{match-each 15207}# + (cdr #{e 15794}#) + #{p 15795}# + #{w 15796}# + #{mod 15797}#))) + (if #{rest 15801}# + (cons #{first 15798}# #{rest 15801}#) #f)) #f)) - (if (null? #{e 17760}#) + (if (null? #{e 15794}#) '() - (if (if (vector? #{e 17760}#) - (if (= (vector-length #{e 17760}#) 4) - (eq? (vector-ref #{e 17760}# 0) 'syntax-object) + (if (if (vector? #{e 15794}#) + (if (= (vector-length #{e 15794}#) 4) + (eq? (vector-ref #{e 15794}# 0) 'syntax-object) #f) #f) - (#{match-each 17173}# - (vector-ref #{e 17760}# 1) - #{p 17761}# - (#{join-wraps 6305}# - #{w 17762}# - (vector-ref #{e 17760}# 2)) - (vector-ref #{e 17760}# 3)) + (#{match-each 15207}# + (vector-ref #{e 15794}# 1) + #{p 15795}# + (#{join-wraps 4329}# + #{w 15796}# + (vector-ref #{e 15794}# 2)) + (vector-ref #{e 15794}# 3)) #f))))) - (#{match-each-any 17175}# - (lambda (#{e 17795}# #{w 17796}# #{mod 17797}#) - (if (pair? #{e 17795}#) - (let ((#{l 17798}# - (#{match-each-any 17175}# - (cdr #{e 17795}#) - #{w 17796}# - #{mod 17797}#))) - (if #{l 17798}# - (cons (#{wrap 6314}# - (car #{e 17795}#) - #{w 17796}# - #{mod 17797}#) - #{l 17798}#) + (#{match-each-any 15209}# + (lambda (#{e 15829}# #{w 15830}# #{mod 15831}#) + (if (pair? #{e 15829}#) + (let ((#{l 15832}# + (#{match-each-any 15209}# + (cdr #{e 15829}#) + #{w 15830}# + #{mod 15831}#))) + (if #{l 15832}# + (cons (#{wrap 4338}# + (car #{e 15829}#) + #{w 15830}# + #{mod 15831}#) + #{l 15832}#) #f)) - (if (null? #{e 17795}#) + (if (null? #{e 15829}#) '() - (if (if (vector? #{e 17795}#) - (if (= (vector-length #{e 17795}#) 4) - (eq? (vector-ref #{e 17795}# 0) 'syntax-object) + (if (if (vector? #{e 15829}#) + (if (= (vector-length #{e 15829}#) 4) + (eq? (vector-ref #{e 15829}# 0) 'syntax-object) #f) #f) - (#{match-each-any 17175}# - (vector-ref #{e 17795}# 1) - (#{join-wraps 6305}# - #{w 17796}# - (vector-ref #{e 17795}# 2)) - #{mod 17797}#) + (#{match-each-any 15209}# + (vector-ref #{e 15829}# 1) + (#{join-wraps 4329}# + #{w 15830}# + (vector-ref #{e 15829}# 2)) + #{mod 15831}#) #f))))) - (#{match-empty 17176}# - (lambda (#{p 17822}# #{r 17823}#) - (if (null? #{p 17822}#) - #{r 17823}# - (if (eq? #{p 17822}# '_) - #{r 17823}# - (if (eq? #{p 17822}# 'any) - (cons '() #{r 17823}#) - (if (pair? #{p 17822}#) - (#{match-empty 17176}# - (car #{p 17822}#) - (#{match-empty 17176}# - (cdr #{p 17822}#) - #{r 17823}#)) - (if (eq? #{p 17822}# 'each-any) - (cons '() #{r 17823}#) - (let ((#{atom-key 17824}# (vector-ref #{p 17822}# 0))) - (if (eqv? #{atom-key 17824}# 'each) - (#{match-empty 17176}# - (vector-ref #{p 17822}# 1) - #{r 17823}#) - (if (eqv? #{atom-key 17824}# 'each+) - (#{match-empty 17176}# - (vector-ref #{p 17822}# 1) - (#{match-empty 17176}# - (reverse (vector-ref #{p 17822}# 2)) - (#{match-empty 17176}# - (vector-ref #{p 17822}# 3) - #{r 17823}#))) - (if (if (eqv? #{atom-key 17824}# 'free-id) + (#{match-empty 15210}# + (lambda (#{p 15856}# #{r 15857}#) + (if (null? #{p 15856}#) + #{r 15857}# + (if (eq? #{p 15856}# '_) + #{r 15857}# + (if (eq? #{p 15856}# 'any) + (cons '() #{r 15857}#) + (if (pair? #{p 15856}#) + (#{match-empty 15210}# + (car #{p 15856}#) + (#{match-empty 15210}# + (cdr #{p 15856}#) + #{r 15857}#)) + (if (eq? #{p 15856}# 'each-any) + (cons '() #{r 15857}#) + (let ((#{atom-key 15858}# (vector-ref #{p 15856}# 0))) + (if (eqv? #{atom-key 15858}# 'each) + (#{match-empty 15210}# + (vector-ref #{p 15856}# 1) + #{r 15857}#) + (if (eqv? #{atom-key 15858}# 'each+) + (#{match-empty 15210}# + (vector-ref #{p 15856}# 1) + (#{match-empty 15210}# + (reverse (vector-ref #{p 15856}# 2)) + (#{match-empty 15210}# + (vector-ref #{p 15856}# 3) + #{r 15857}#))) + (if (if (eqv? #{atom-key 15858}# 'free-id) #t - (eqv? #{atom-key 17824}# 'atom)) - #{r 17823}# - (if (eqv? #{atom-key 17824}# 'vector) - (#{match-empty 17176}# - (vector-ref #{p 17822}# 1) - #{r 17823}#))))))))))))) - (#{combine 17177}# - (lambda (#{r* 17843}# #{r 17844}#) - (if (null? (car #{r* 17843}#)) - #{r 17844}# - (cons (map car #{r* 17843}#) - (#{combine 17177}# - (map cdr #{r* 17843}#) - #{r 17844}#))))) - (#{match* 17178}# - (lambda (#{e 17208}# - #{p 17209}# - #{w 17210}# - #{r 17211}# - #{mod 17212}#) - (if (null? #{p 17209}#) - (if (null? #{e 17208}#) #{r 17211}# #f) - (if (pair? #{p 17209}#) - (if (pair? #{e 17208}#) - (#{match 17179}# - (car #{e 17208}#) - (car #{p 17209}#) - #{w 17210}# - (#{match 17179}# - (cdr #{e 17208}#) - (cdr #{p 17209}#) - #{w 17210}# - #{r 17211}# - #{mod 17212}#) - #{mod 17212}#) + (eqv? #{atom-key 15858}# 'atom)) + #{r 15857}# + (if (eqv? #{atom-key 15858}# 'vector) + (#{match-empty 15210}# + (vector-ref #{p 15856}# 1) + #{r 15857}#))))))))))))) + (#{combine 15211}# + (lambda (#{r* 15877}# #{r 15878}#) + (if (null? (car #{r* 15877}#)) + #{r 15878}# + (cons (map car #{r* 15877}#) + (#{combine 15211}# + (map cdr #{r* 15877}#) + #{r 15878}#))))) + (#{match* 15212}# + (lambda (#{e 15242}# + #{p 15243}# + #{w 15244}# + #{r 15245}# + #{mod 15246}#) + (if (null? #{p 15243}#) + (if (null? #{e 15242}#) #{r 15245}# #f) + (if (pair? #{p 15243}#) + (if (pair? #{e 15242}#) + (#{match 15213}# + (car #{e 15242}#) + (car #{p 15243}#) + #{w 15244}# + (#{match 15213}# + (cdr #{e 15242}#) + (cdr #{p 15243}#) + #{w 15244}# + #{r 15245}# + #{mod 15246}#) + #{mod 15246}#) #f) - (if (eq? #{p 17209}# 'each-any) - (let ((#{l 17217}# - (#{match-each-any 17175}# - #{e 17208}# - #{w 17210}# - #{mod 17212}#))) - (if #{l 17217}# - (cons #{l 17217}# #{r 17211}#) + (if (eq? #{p 15243}# 'each-any) + (let ((#{l 15251}# + (#{match-each-any 15209}# + #{e 15242}# + #{w 15244}# + #{mod 15246}#))) + (if #{l 15251}# + (cons #{l 15251}# #{r 15245}#) #f)) - (let ((#{atom-key 17222}# (vector-ref #{p 17209}# 0))) - (if (eqv? #{atom-key 17222}# 'each) - (if (null? #{e 17208}#) - (#{match-empty 17176}# - (vector-ref #{p 17209}# 1) - #{r 17211}#) - (let ((#{l 17229}# - (#{match-each 17173}# - #{e 17208}# - (vector-ref #{p 17209}# 1) - #{w 17210}# - #{mod 17212}#))) - (if #{l 17229}# + (let ((#{atom-key 15256}# (vector-ref #{p 15243}# 0))) + (if (eqv? #{atom-key 15256}# 'each) + (if (null? #{e 15242}#) + (#{match-empty 15210}# + (vector-ref #{p 15243}# 1) + #{r 15245}#) + (let ((#{l 15263}# + (#{match-each 15207}# + #{e 15242}# + (vector-ref #{p 15243}# 1) + #{w 15244}# + #{mod 15246}#))) + (if #{l 15263}# (letrec* - ((#{collect 17232}# - (lambda (#{l 17283}#) - (if (null? (car #{l 17283}#)) - #{r 17211}# - (cons (map car #{l 17283}#) - (#{collect 17232}# - (map cdr #{l 17283}#))))))) - (#{collect 17232}# #{l 17229}#)) + ((#{collect 15266}# + (lambda (#{l 15317}#) + (if (null? (car #{l 15317}#)) + #{r 15245}# + (cons (map car #{l 15317}#) + (#{collect 15266}# + (map cdr #{l 15317}#))))))) + (#{collect 15266}# #{l 15263}#)) #f))) - (if (eqv? #{atom-key 17222}# 'each+) + (if (eqv? #{atom-key 15256}# 'each+) (call-with-values (lambda () - (let ((#{x-pat 17292}# (vector-ref #{p 17209}# 1)) - (#{y-pat 17293}# (vector-ref #{p 17209}# 2)) - (#{z-pat 17294}# (vector-ref #{p 17209}# 3))) + (let ((#{x-pat 15326}# (vector-ref #{p 15243}# 1)) + (#{y-pat 15327}# (vector-ref #{p 15243}# 2)) + (#{z-pat 15328}# (vector-ref #{p 15243}# 3))) (letrec* - ((#{f 17298}# - (lambda (#{e 17300}# #{w 17301}#) - (if (pair? #{e 17300}#) + ((#{f 15332}# + (lambda (#{e 15334}# #{w 15335}#) + (if (pair? #{e 15334}#) (call-with-values (lambda () - (#{f 17298}# - (cdr #{e 17300}#) - #{w 17301}#)) - (lambda (#{xr* 17302}# - #{y-pat 17303}# - #{r 17304}#) - (if #{r 17304}# - (if (null? #{y-pat 17303}#) - (let ((#{xr 17305}# - (#{match 17179}# - (car #{e 17300}#) - #{x-pat 17292}# - #{w 17301}# + (#{f 15332}# + (cdr #{e 15334}#) + #{w 15335}#)) + (lambda (#{xr* 15336}# + #{y-pat 15337}# + #{r 15338}#) + (if #{r 15338}# + (if (null? #{y-pat 15337}#) + (let ((#{xr 15339}# + (#{match 15213}# + (car #{e 15334}#) + #{x-pat 15326}# + #{w 15335}# '() - #{mod 17212}#))) - (if #{xr 17305}# + #{mod 15246}#))) + (if #{xr 15339}# (values - (cons #{xr 17305}# - #{xr* 17302}#) - #{y-pat 17303}# - #{r 17304}#) + (cons #{xr 15339}# + #{xr* 15336}#) + #{y-pat 15337}# + #{r 15338}#) (values #f #f #f))) (values '() - (cdr #{y-pat 17303}#) - (#{match 17179}# - (car #{e 17300}#) - (car #{y-pat 17303}#) - #{w 17301}# - #{r 17304}# - #{mod 17212}#))) + (cdr #{y-pat 15337}#) + (#{match 15213}# + (car #{e 15334}#) + (car #{y-pat 15337}#) + #{w 15335}# + #{r 15338}# + #{mod 15246}#))) (values #f #f #f)))) - (if (if (vector? #{e 17300}#) - (if (= (vector-length #{e 17300}#) + (if (if (vector? #{e 15334}#) + (if (= (vector-length #{e 15334}#) 4) - (eq? (vector-ref #{e 17300}# 0) + (eq? (vector-ref #{e 15334}# 0) 'syntax-object) #f) #f) - (#{f 17298}# - (vector-ref #{e 17300}# 1) - (#{join-wraps 6305}# - #{w 17301}# - #{e 17300}#)) + (#{f 15332}# + (vector-ref #{e 15334}# 1) + (#{join-wraps 4329}# + #{w 15335}# + #{e 15334}#)) (values '() - #{y-pat 17293}# - (#{match 17179}# - #{e 17300}# - #{z-pat 17294}# - #{w 17301}# - #{r 17211}# - #{mod 17212}#))))))) - (#{f 17298}# #{e 17208}# #{w 17210}#)))) - (lambda (#{xr* 17331}# #{y-pat 17332}# #{r 17333}#) - (if #{r 17333}# - (if (null? #{y-pat 17332}#) - (if (null? #{xr* 17331}#) - (#{match-empty 17176}# - (vector-ref #{p 17209}# 1) - #{r 17333}#) - (#{combine 17177}# #{xr* 17331}# #{r 17333}#)) + #{y-pat 15327}# + (#{match 15213}# + #{e 15334}# + #{z-pat 15328}# + #{w 15335}# + #{r 15245}# + #{mod 15246}#))))))) + (#{f 15332}# #{e 15242}# #{w 15244}#)))) + (lambda (#{xr* 15365}# #{y-pat 15366}# #{r 15367}#) + (if #{r 15367}# + (if (null? #{y-pat 15366}#) + (if (null? #{xr* 15365}#) + (#{match-empty 15210}# + (vector-ref #{p 15243}# 1) + #{r 15367}#) + (#{combine 15211}# #{xr* 15365}# #{r 15367}#)) #f) #f))) - (if (eqv? #{atom-key 17222}# 'free-id) - (if (if (symbol? #{e 17208}#) + (if (eqv? #{atom-key 15256}# 'free-id) + (if (if (symbol? #{e 15242}#) #t - (if (if (vector? #{e 17208}#) - (if (= (vector-length #{e 17208}#) 4) - (eq? (vector-ref #{e 17208}# 0) + (if (if (vector? #{e 15242}#) + (if (= (vector-length #{e 15242}#) 4) + (eq? (vector-ref #{e 15242}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 17208}# 1)) + (symbol? (vector-ref #{e 15242}# 1)) #f)) - (if (let ((#{i 17664}# - (#{wrap 6314}# - #{e 17208}# - #{w 17210}# - #{mod 17212}#)) - (#{j 17665}# (vector-ref #{p 17209}# 1))) - (if (eq? (if (if (vector? #{i 17664}#) + (if (let ((#{i 15698}# + (#{wrap 4338}# + #{e 15242}# + #{w 15244}# + #{mod 15246}#)) + (#{j 15699}# (vector-ref #{p 15243}# 1))) + (if (eq? (if (if (vector? #{i 15698}#) (if (= (vector-length - #{i 17664}#) + #{i 15698}#) 4) (eq? (vector-ref - #{i 17664}# + #{i 15698}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 17664}# 1) - #{i 17664}#) - (if (if (vector? #{j 17665}#) + (vector-ref #{i 15698}# 1) + #{i 15698}#) + (if (if (vector? #{j 15699}#) (if (= (vector-length - #{j 17665}#) + #{j 15699}#) 4) (eq? (vector-ref - #{j 17665}# + #{j 15699}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 17665}# 1) - #{j 17665}#)) - (eq? (#{id-var-name 6308}# - #{i 17664}# + (vector-ref #{j 15699}# 1) + #{j 15699}#)) + (eq? (#{id-var-name 4332}# + #{i 15698}# '(())) - (#{id-var-name 6308}# - #{j 17665}# + (#{id-var-name 4332}# + #{j 15699}# '(()))) #f)) - #{r 17211}# + #{r 15245}# #f) #f) - (if (eqv? #{atom-key 17222}# 'atom) + (if (eqv? #{atom-key 15256}# 'atom) (if (equal? - (vector-ref #{p 17209}# 1) - (#{strip 6334}# #{e 17208}# #{w 17210}#)) - #{r 17211}# + (vector-ref #{p 15243}# 1) + (#{strip 4358}# #{e 15242}# #{w 15244}#)) + #{r 15245}# #f) - (if (eqv? #{atom-key 17222}# 'vector) - (if (vector? #{e 17208}#) - (#{match 17179}# - (vector->list #{e 17208}#) - (vector-ref #{p 17209}# 1) - #{w 17210}# - #{r 17211}# - #{mod 17212}#) + (if (eqv? #{atom-key 15256}# 'vector) + (if (vector? #{e 15242}#) + (#{match 15213}# + (vector->list #{e 15242}#) + (vector-ref #{p 15243}# 1) + #{w 15244}# + #{r 15245}# + #{mod 15246}#) #f)))))))))))) - (#{match 17179}# - (lambda (#{e 17725}# - #{p 17726}# - #{w 17727}# - #{r 17728}# - #{mod 17729}#) - (if (not #{r 17728}#) + (#{match 15213}# + (lambda (#{e 15759}# + #{p 15760}# + #{w 15761}# + #{r 15762}# + #{mod 15763}#) + (if (not #{r 15762}#) #f - (if (eq? #{p 17726}# '_) - #{r 17728}# - (if (eq? #{p 17726}# 'any) - (cons (#{wrap 6314}# - #{e 17725}# - #{w 17727}# - #{mod 17729}#) - #{r 17728}#) - (if (if (vector? #{e 17725}#) - (if (= (vector-length #{e 17725}#) 4) - (eq? (vector-ref #{e 17725}# 0) 'syntax-object) + (if (eq? #{p 15760}# '_) + #{r 15762}# + (if (eq? #{p 15760}# 'any) + (cons (#{wrap 4338}# + #{e 15759}# + #{w 15761}# + #{mod 15763}#) + #{r 15762}#) + (if (if (vector? #{e 15759}#) + (if (= (vector-length #{e 15759}#) 4) + (eq? (vector-ref #{e 15759}# 0) 'syntax-object) #f) #f) - (#{match* 17178}# - (vector-ref #{e 17725}# 1) - #{p 17726}# - (#{join-wraps 6305}# - #{w 17727}# - (vector-ref #{e 17725}# 2)) - #{r 17728}# - (vector-ref #{e 17725}# 3)) - (#{match* 17178}# - #{e 17725}# - #{p 17726}# - #{w 17727}# - #{r 17728}# - #{mod 17729}#)))))))) + (#{match* 15212}# + (vector-ref #{e 15759}# 1) + #{p 15760}# + (#{join-wraps 4329}# + #{w 15761}# + (vector-ref #{e 15759}# 2)) + #{r 15762}# + (vector-ref #{e 15759}# 3)) + (#{match* 15212}# + #{e 15759}# + #{p 15760}# + #{w 15761}# + #{r 15762}# + #{mod 15763}#)))))))) (set! $sc-dispatch - (lambda (#{e 17180}# #{p 17181}#) - (if (eq? #{p 17181}# 'any) - (list #{e 17180}#) - (if (eq? #{p 17181}# '_) + (lambda (#{e 15214}# #{p 15215}#) + (if (eq? #{p 15215}# 'any) + (list #{e 15214}#) + (if (eq? #{p 15215}# '_) '() - (if (if (vector? #{e 17180}#) - (if (= (vector-length #{e 17180}#) 4) - (eq? (vector-ref #{e 17180}# 0) 'syntax-object) + (if (if (vector? #{e 15214}#) + (if (= (vector-length #{e 15214}#) 4) + (eq? (vector-ref #{e 15214}# 0) 'syntax-object) #f) #f) - (#{match* 17178}# - (vector-ref #{e 17180}# 1) - #{p 17181}# - (vector-ref #{e 17180}# 2) + (#{match* 15212}# + (vector-ref #{e 15214}# 1) + #{p 15215}# + (vector-ref #{e 15214}# 2) '() - (vector-ref #{e 17180}# 3)) - (#{match* 17178}# - #{e 17180}# - #{p 17181}# + (vector-ref #{e 15214}# 3)) + (#{match* 15212}# + #{e 15214}# + #{p 15215}# '(()) '() #f))))))))) @@ -22009,82 +22052,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 29958}#) - (let ((#{tmp 29960}# - ($sc-dispatch #{x 29958}# '(_ () any . each-any)))) - (if #{tmp 29960}# + (lambda (#{x 28049}#) + (let ((#{tmp 28051}# + ($sc-dispatch #{x 28049}# '(_ () any . each-any)))) + (if #{tmp 28051}# (@apply - (lambda (#{e1 29964}# #{e2 29965}#) + (lambda (#{e1 28055}# #{e2 28056}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29931" "i29932")) + #("i28022" "i28023")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29928"))) + #(ribcage #(x) #((top)) #("i28019"))) (hygiene guile)) - (cons '() (cons #{e1 29964}# #{e2 29965}#)))) - #{tmp 29960}#) - (let ((#{tmp 29966}# + (cons '() (cons #{e1 28055}# #{e2 28056}#)))) + #{tmp 28051}#) + (let ((#{tmp 28057}# ($sc-dispatch - #{x 29958}# + #{x 28049}# '(_ ((any any)) any . each-any)))) - (if #{tmp 29966}# + (if #{tmp 28057}# (@apply - (lambda (#{out 29970}# - #{in 29971}# - #{e1 29972}# - #{e2 29973}#) + (lambda (#{out 28061}# + #{in 28062}# + #{e1 28063}# + #{e2 28064}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i29937" "i29938" "i29939" "i29940")) + #("i28028" "i28029" "i28030" "i28031")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29928"))) + #(ribcage #(x) #((top)) #("i28019"))) (hygiene guile)) - #{in 29971}# + #{in 28062}# '() - (list #{out 29970}# + (list #{out 28061}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i29937" - "i29938" - "i29939" - "i29940")) + #("i28028" + "i28029" + "i28030" + "i28031")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29928"))) + #(ribcage #(x) #((top)) #("i28019"))) (hygiene guile)) (cons '() - (cons #{e1 29972}# #{e2 29973}#)))))) - #{tmp 29966}#) - (let ((#{tmp 29974}# + (cons #{e1 28063}# #{e2 28064}#)))))) + #{tmp 28057}#) + (let ((#{tmp 28065}# ($sc-dispatch - #{x 29958}# + #{x 28049}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 29974}# + (if #{tmp 28065}# (@apply - (lambda (#{out 29978}# - #{in 29979}# - #{e1 29980}# - #{e2 29981}#) + (lambda (#{out 28069}# + #{in 28070}# + #{e1 28071}# + #{e2 28072}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i29947" "i29948" "i29949" "i29950")) + #("i28038" "i28039" "i28040" "i28041")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29928"))) + #(ribcage #(x) #((top)) #("i28019"))) (hygiene guile)) (cons '#(syntax-object list @@ -22092,62 +22135,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i29947" "i29948" "i29949" "i29950")) + #("i28038" "i28039" "i28040" "i28041")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29928"))) + #(ribcage #(x) #((top)) #("i28019"))) (hygiene guile)) - #{in 29979}#) + #{in 28070}#) '() - (list #{out 29978}# + (list #{out 28069}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i29947" - "i29948" - "i29949" - "i29950")) + #("i28038" + "i28039" + "i28040" + "i28041")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29928"))) + #("i28019"))) (hygiene guile)) (cons '() - (cons #{e1 29980}# - #{e2 29981}#)))))) - #{tmp 29974}#) + (cons #{e1 28071}# + #{e2 28072}#)))))) + #{tmp 28065}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29958}#)))))))))) + #{x 28049}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 30035}#) - (let ((#{tmp 30037}# + (lambda (#{x 28126}#) + (let ((#{tmp 28128}# ($sc-dispatch - #{x 30035}# + #{x 28126}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 30037}# + (if #{tmp 28128}# (@apply - (lambda (#{k 30041}# - #{keyword 30042}# - #{pattern 30043}# - #{template 30044}#) + (lambda (#{k 28132}# + #{keyword 28133}# + #{pattern 28134}# + #{template 28135}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i29998" "i29999" "i30000" "i30001")) + #("i28089" "i28090" "i28091" "i28092")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) '(#(syntax-object x @@ -22155,9 +22198,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i29998" "i29999" "i30000" "i30001")) + #("i28089" "i28090" "i28091" "i28092")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile))) (vector '(#(syntax-object @@ -22166,9 +22209,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i29998" "i29999" "i30000" "i30001")) + #("i28089" "i28090" "i28091" "i28092")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) . #(syntax-object @@ -22177,9 +22220,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i29998" "i29999" "i30000" "i30001")) + #("i28089" "i28090" "i28091" "i28092")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22187,20 +22230,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i29998" "i29999" "i30000" "i30001")) + #("i28089" "i28090" "i28091" "i28092")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) - #{pattern 30043}#)) + #{pattern 28134}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i29998" "i29999" "i30000" "i30001")) + #("i28089" "i28090" "i28091" "i28092")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) (cons '#(syntax-object x @@ -22208,13 +22251,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i29998" "i29999" "i30000" "i30001")) + #("i28089" "i28090" "i28091" "i28092")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) - (cons #{k 30041}# - (map (lambda (#{tmp 30009 30045}# - #{tmp 30008 30046}#) + (cons #{k 28132}# + (map (lambda (#{tmp 28100 28136}# + #{tmp 28099 28137}#) (list (cons '#(syntax-object dummy ((top) @@ -22227,10 +22270,10 @@ (top) (top) (top)) - #("i29998" - "i29999" - "i30000" - "i30001")) + #("i28089" + "i28090" + "i28091" + "i28092")) #(ribcage () () @@ -22238,9 +22281,9 @@ #(ribcage #(x) #((top)) - #("i29995"))) + #("i28086"))) (hygiene guile)) - #{tmp 30008 30046}#) + #{tmp 28099 28137}#) (list '#(syntax-object syntax ((top) @@ -22253,10 +22296,10 @@ (top) (top) (top)) - #("i29998" - "i29999" - "i30000" - "i30001")) + #("i28089" + "i28090" + "i28091" + "i28092")) #(ribcage () () @@ -22264,41 +22307,41 @@ #(ribcage #(x) #((top)) - #("i29995"))) + #("i28086"))) (hygiene guile)) - #{tmp 30009 30045}#))) - #{template 30044}# - #{pattern 30043}#)))))) - #{tmp 30037}#) - (let ((#{tmp 30047}# + #{tmp 28100 28136}#))) + #{template 28135}# + #{pattern 28134}#)))))) + #{tmp 28128}#) + (let ((#{tmp 28138}# ($sc-dispatch - #{x 30035}# + #{x 28126}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 30047}# + (if (if #{tmp 28138}# (@apply - (lambda (#{k 30051}# - #{docstring 30052}# - #{keyword 30053}# - #{pattern 30054}# - #{template 30055}#) - (string? (syntax->datum #{docstring 30052}#))) - #{tmp 30047}#) + (lambda (#{k 28142}# + #{docstring 28143}# + #{keyword 28144}# + #{pattern 28145}# + #{template 28146}#) + (string? (syntax->datum #{docstring 28143}#))) + #{tmp 28138}#) #f) (@apply - (lambda (#{k 30056}# - #{docstring 30057}# - #{keyword 30058}# - #{pattern 30059}# - #{template 30060}#) + (lambda (#{k 28147}# + #{docstring 28148}# + #{keyword 28149}# + #{pattern 28150}# + #{template 28151}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i30021" "i30022" "i30023" "i30024" "i30025")) + #("i28112" "i28113" "i28114" "i28115" "i28116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) '(#(syntax-object x @@ -22306,11 +22349,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i30021" "i30022" "i30023" "i30024" "i30025")) + #("i28112" "i28113" "i28114" "i28115" "i28116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile))) - #{docstring 30057}# + #{docstring 28148}# (vector '(#(syntax-object macro-type @@ -22318,13 +22361,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i30021" - "i30022" - "i30023" - "i30024" - "i30025")) + #("i28112" + "i28113" + "i28114" + "i28115" + "i28116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) . #(syntax-object @@ -22333,13 +22376,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i30021" - "i30022" - "i30023" - "i30024" - "i30025")) + #("i28112" + "i28113" + "i28114" + "i28115" + "i28116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22347,28 +22390,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i30021" - "i30022" - "i30023" - "i30024" - "i30025")) + #("i28112" + "i28113" + "i28114" + "i28115" + "i28116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) - #{pattern 30059}#)) + #{pattern 28150}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i30021" - "i30022" - "i30023" - "i30024" - "i30025")) + #("i28112" + "i28113" + "i28114" + "i28115" + "i28116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) (cons '#(syntax-object x @@ -22380,17 +22423,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i30021" - "i30022" - "i30023" - "i30024" - "i30025")) + #("i28112" + "i28113" + "i28114" + "i28115" + "i28116")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29995"))) + #(ribcage #(x) #((top)) #("i28086"))) (hygiene guile)) - (cons #{k 30056}# - (map (lambda (#{tmp 30034 30061}# - #{tmp 30033 30062}#) + (cons #{k 28147}# + (map (lambda (#{tmp 28125 28152}# + #{tmp 28124 28153}#) (list (cons '#(syntax-object dummy ((top) @@ -22405,11 +22448,11 @@ (top) (top) (top)) - #("i30021" - "i30022" - "i30023" - "i30024" - "i30025")) + #("i28112" + "i28113" + "i28114" + "i28115" + "i28116")) #(ribcage () () @@ -22417,10 +22460,10 @@ #(ribcage #(x) #((top)) - #("i29995"))) + #("i28086"))) (hygiene guile)) - #{tmp 30033 30062}#) + #{tmp 28124 28153}#) (list '#(syntax-object syntax ((top) @@ -22435,11 +22478,11 @@ (top) (top) (top)) - #("i30021" - "i30022" - "i30023" - "i30024" - "i30025")) + #("i28112" + "i28113" + "i28114" + "i28115" + "i28116")) #(ribcage () () @@ -22447,50 +22490,50 @@ #(ribcage #(x) #((top)) - #("i29995"))) + #("i28086"))) (hygiene guile)) - #{tmp 30034 30061}#))) - #{template 30060}# - #{pattern 30059}#)))))) - #{tmp 30047}#) + #{tmp 28125 28152}#))) + #{template 28151}# + #{pattern 28150}#)))))) + #{tmp 28138}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30035}#)))))))) + #{x 28126}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 30099}#) - (let ((#{tmp 30101}# - ($sc-dispatch #{x 30099}# '(_ (any . any) any)))) - (if #{tmp 30101}# + (lambda (#{x 28190}#) + (let ((#{tmp 28192}# + ($sc-dispatch #{x 28190}# '(_ (any . any) any)))) + (if #{tmp 28192}# (@apply - (lambda (#{name 30105}# - #{pattern 30106}# - #{template 30107}#) + (lambda (#{name 28196}# + #{pattern 28197}# + #{template 28198}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i30076" "i30077" "i30078")) + #("i28167" "i28168" "i28169")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30073"))) + #(ribcage #(x) #((top)) #("i28164"))) (hygiene guile)) - #{name 30105}# + #{name 28196}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i30076" "i30077" "i30078")) + #("i28167" "i28168" "i28169")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30073"))) + #(ribcage #(x) #((top)) #("i28164"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22499,54 +22542,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i30076" "i30077" "i30078")) + #("i28167" "i28168" "i28169")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30073"))) + #(ribcage #(x) #((top)) #("i28164"))) (hygiene guile)) - #{pattern 30106}#) - #{template 30107}#)))) - #{tmp 30101}#) - (let ((#{tmp 30108}# + #{pattern 28197}#) + #{template 28198}#)))) + #{tmp 28192}#) + (let ((#{tmp 28199}# ($sc-dispatch - #{x 30099}# + #{x 28190}# '(_ (any . any) any any)))) - (if (if #{tmp 30108}# + (if (if #{tmp 28199}# (@apply - (lambda (#{name 30112}# - #{pattern 30113}# - #{docstring 30114}# - #{template 30115}#) - (string? (syntax->datum #{docstring 30114}#))) - #{tmp 30108}#) + (lambda (#{name 28203}# + #{pattern 28204}# + #{docstring 28205}# + #{template 28206}#) + (string? (syntax->datum #{docstring 28205}#))) + #{tmp 28199}#) #f) (@apply - (lambda (#{name 30116}# - #{pattern 30117}# - #{docstring 30118}# - #{template 30119}#) + (lambda (#{name 28207}# + #{pattern 28208}# + #{docstring 28209}# + #{template 28210}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i30091" "i30092" "i30093" "i30094")) + #("i28182" "i28183" "i28184" "i28185")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30073"))) + #(ribcage #(x) #((top)) #("i28164"))) (hygiene guile)) - #{name 30116}# + #{name 28207}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i30091" "i30092" "i30093" "i30094")) + #("i28182" "i28183" "i28184" "i28185")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30073"))) + #(ribcage #(x) #((top)) #("i28164"))) (hygiene guile)) '() - #{docstring 30118}# + #{docstring 28209}# (list (cons '#(syntax-object _ ((top) @@ -22556,53 +22599,53 @@ docstring template) #((top) (top) (top) (top)) - #("i30091" - "i30092" - "i30093" - "i30094")) + #("i28182" + "i28183" + "i28184" + "i28185")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30073"))) + #("i28164"))) (hygiene guile)) - #{pattern 30117}#) - #{template 30119}#)))) - #{tmp 30108}#) + #{pattern 28208}#) + #{template 28210}#)))) + #{tmp 28199}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30099}#)))))))) + #{x 28190}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 30168}#) - (let ((#{tmp 30170}# + (lambda (#{x 28259}#) + (let ((#{tmp 28261}# ($sc-dispatch - #{x 30168}# + #{x 28259}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 30170}# + (if (if #{tmp 28261}# (@apply - (lambda (#{let* 30174}# - #{x 30175}# - #{v 30176}# - #{e1 30177}# - #{e2 30178}#) - (and-map identifier? #{x 30175}#)) - #{tmp 30170}#) + (lambda (#{let* 28265}# + #{x 28266}# + #{v 28267}# + #{e1 28268}# + #{e2 28269}#) + (and-map identifier? #{x 28266}#)) + #{tmp 28261}#) #f) (@apply - (lambda (#{let* 30179}# - #{x 30180}# - #{v 30181}# - #{e1 30182}# - #{e2 30183}#) + (lambda (#{let* 28270}# + #{x 28271}# + #{v 28272}# + #{e1 28273}# + #{e2 28274}#) (letrec* - ((#{f 30184}# - (lambda (#{bindings 30187}#) - (if (null? #{bindings 30187}#) + ((#{f 28275}# + (lambda (#{bindings 28278}#) + (if (null? #{bindings 28278}#) (cons '#(syntax-object let ((top) @@ -22610,27 +22653,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i30154" "i30155")) + #("i28245" "i28246")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i30144" - "i30145" - "i30146" - "i30147" - "i30148")) + #("i28235" + "i28236" + "i28237" + "i28238" + "i28239")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30130"))) + #(ribcage #(x) #((top)) #("i28221"))) (hygiene guile)) - (cons '() (cons #{e1 30182}# #{e2 30183}#))) - (let ((#{tmp 30188}# - (list (#{f 30184}# (cdr #{bindings 30187}#)) - (car #{bindings 30187}#)))) - (let ((#{tmp 30189}# - ($sc-dispatch #{tmp 30188}# '(any any)))) - (if #{tmp 30189}# + (cons '() (cons #{e1 28273}# #{e2 28274}#))) + (let ((#{tmp 28279}# + (list (#{f 28275}# (cdr #{bindings 28278}#)) + (car #{bindings 28278}#)))) + (let ((#{tmp 28280}# + ($sc-dispatch #{tmp 28279}# '(any any)))) + (if #{tmp 28280}# (@apply - (lambda (#{body 30191}# #{binding 30192}#) + (lambda (#{body 28282}# #{binding 28283}#) (list '#(syntax-object let ((top) @@ -22638,86 +22681,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i30164" "i30165")) + #("i28255" "i28256")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i30154" "i30155")) + #("i28245" "i28246")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i30144" - "i30145" - "i30146" - "i30147" - "i30148")) + #("i28235" + "i28236" + "i28237" + "i28238" + "i28239")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30130"))) + #("i28221"))) (hygiene guile)) - (list #{binding 30192}#) - #{body 30191}#)) - #{tmp 30189}#) + (list #{binding 28283}#) + #{body 28282}#)) + #{tmp 28280}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30188}#)))))))) - (#{f 30184}# (map list #{x 30180}# #{v 30181}#)))) - #{tmp 30170}#) + #{tmp 28279}#)))))))) + (#{f 28275}# (map list #{x 28271}# #{v 28272}#)))) + #{tmp 28261}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30168}#)))))) + #{x 28259}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 30250}#) - (let ((#{tmp 30252}# + (lambda (#{orig-x 28341}#) + (let ((#{tmp 28343}# ($sc-dispatch - #{orig-x 30250}# + #{orig-x 28341}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 30252}# + (if #{tmp 28343}# (@apply - (lambda (#{var 30256}# - #{init 30257}# - #{step 30258}# - #{e0 30259}# - #{e1 30260}# - #{c 30261}#) - (let ((#{tmp 30262}# - (map (lambda (#{v 30265}# #{s 30266}#) - (let ((#{tmp 30268}# - ($sc-dispatch #{s 30266}# '()))) - (if #{tmp 30268}# - (@apply (lambda () #{v 30265}#) #{tmp 30268}#) - (let ((#{tmp 30271}# - ($sc-dispatch #{s 30266}# '(any)))) - (if #{tmp 30271}# + (lambda (#{var 28347}# + #{init 28348}# + #{step 28349}# + #{e0 28350}# + #{e1 28351}# + #{c 28352}#) + (let ((#{tmp 28353}# + (map (lambda (#{v 28356}# #{s 28357}#) + (let ((#{tmp 28359}# + ($sc-dispatch #{s 28357}# '()))) + (if #{tmp 28359}# + (@apply (lambda () #{v 28356}#) #{tmp 28359}#) + (let ((#{tmp 28362}# + ($sc-dispatch #{s 28357}# '(any)))) + (if #{tmp 28362}# (@apply - (lambda (#{e 30274}#) #{e 30274}#) - #{tmp 30271}#) + (lambda (#{e 28365}#) #{e 28365}#) + #{tmp 28362}#) (syntax-violation 'do "bad step expression" - #{orig-x 30250}# - #{s 30266}#)))))) - #{var 30256}# - #{step 30258}#))) - (let ((#{tmp 30263}# - ($sc-dispatch #{tmp 30262}# 'each-any))) - (if #{tmp 30263}# + #{orig-x 28341}# + #{s 28357}#)))))) + #{var 28347}# + #{step 28349}#))) + (let ((#{tmp 28354}# + ($sc-dispatch #{tmp 28353}# 'each-any))) + (if #{tmp 28354}# (@apply - (lambda (#{step 30280}#) - (let ((#{tmp 30282}# ($sc-dispatch #{e1 30260}# '()))) - (if #{tmp 30282}# + (lambda (#{step 28371}#) + (let ((#{tmp 28373}# ($sc-dispatch #{e1 28351}# '()))) + (if #{tmp 28373}# (@apply (lambda () (list '#(syntax-object @@ -22727,7 +22770,7 @@ #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22736,17 +22779,17 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) '#(syntax-object doloop @@ -22755,7 +22798,7 @@ #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22764,19 +22807,19 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) - (map list #{var 30256}# #{init 30257}#) + (map list #{var 28347}# #{init 28348}#) (list '#(syntax-object if ((top) @@ -22784,7 +22827,7 @@ #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22793,17 +22836,17 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) (list '#(syntax-object not @@ -22812,7 +22855,7 @@ #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init @@ -22826,19 +22869,19 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) - #{e0 30259}#) + #{e0 28350}#) (cons '#(syntax-object begin ((top) @@ -22846,7 +22889,7 @@ #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init @@ -22860,20 +22903,20 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) (append - #{c 30261}# + #{c 28352}# (list (cons '#(syntax-object doloop ((top) @@ -22884,7 +22927,7 @@ #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init @@ -22898,12 +22941,12 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () @@ -22911,30 +22954,30 @@ #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) - #{step 30280}#))))))) - #{tmp 30282}#) - (let ((#{tmp 30286}# + #{step 28371}#))))))) + #{tmp 28373}#) + (let ((#{tmp 28377}# ($sc-dispatch - #{e1 30260}# + #{e1 28351}# '(any . each-any)))) - (if #{tmp 30286}# + (if #{tmp 28377}# (@apply - (lambda (#{e1 30290}# #{e2 30291}#) + (lambda (#{e1 28381}# #{e2 28382}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i30227" "i30228")) + #("i28318" "i28319")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22943,17 +22986,17 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) '#(syntax-object doloop @@ -22961,12 +23004,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i30227" "i30228")) + #("i28318" "i28319")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22975,33 +23018,33 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) (map list - #{var 30256}# - #{init 30257}#) + #{var 28347}# + #{init 28348}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i30227" "i30228")) + #("i28318" "i28319")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23010,32 +23053,32 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) - #{e0 30259}# + #{e0 28350}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i30227" - "i30228")) + #("i28318" + "i28319")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init @@ -23049,33 +23092,33 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) - (cons #{e1 30290}# - #{e2 30291}#)) + (cons #{e1 28381}# + #{e2 28382}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i30227" - "i30228")) + #("i28318" + "i28319")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init @@ -23089,20 +23132,20 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) (append - #{c 30261}# + #{c 28352}# (list (cons '#(syntax-object doloop ((top) @@ -23111,8 +23154,8 @@ e2) #((top) (top)) - #("i30227" - "i30228")) + #("i28318" + "i28319")) #(ribcage () () @@ -23120,7 +23163,7 @@ #(ribcage #(step) #((top)) - #("i30218")) + #("i28309")) #(ribcage #(var init @@ -23134,12 +23177,12 @@ (top) (top) (top)) - #("i30203" - "i30204" - "i30205" - "i30206" - "i30207" - "i30208")) + #("i28294" + "i28295" + "i28296" + "i28297" + "i28298" + "i28299")) #(ribcage () () @@ -23147,36 +23190,36 @@ #(ribcage #(orig-x) #((top)) - #("i30200"))) + #("i28291"))) (hygiene guile)) - #{step 30280}#))))))) - #{tmp 30286}#) + #{step 28371}#))))))) + #{tmp 28377}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 30260}#)))))) - #{tmp 30263}#) + #{e1 28351}#)))))) + #{tmp 28354}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30262}#))))) - #{tmp 30252}#) + #{tmp 28353}#))))) + #{tmp 28343}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 30250}#)))))) + #{orig-x 28341}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 30577}# - (lambda (#{p 30601}# #{lev 30602}#) - (let ((#{tmp 30604}# + ((#{quasi 28668}# + (lambda (#{p 28692}# #{lev 28693}#) + (let ((#{tmp 28695}# ($sc-dispatch - #{p 30601}# + #{p 28692}# '(#(free-id #(syntax-object unquote @@ -23185,7 +23228,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23194,28 +23237,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) any)))) - (if #{tmp 30604}# + (if #{tmp 28695}# (@apply - (lambda (#{p 30608}#) - (if (= #{lev 30602}# 0) + (lambda (#{p 28699}#) + (if (= #{lev 28693}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i30327")) + #(ribcage #(p) #((top)) #("i28418")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23224,25 +23267,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{p 30608}#) - (#{quasicons 30579}# + #{p 28699}#) + (#{quasicons 28670}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i30327")) + #(ribcage #(p) #((top)) #("i28418")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23251,23 +23294,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i30327")) + #(ribcage #(p) #((top)) #("i28418")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23276,21 +23319,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) - (#{quasi 30577}# - (list #{p 30608}#) - (#{1-}# #{lev 30602}#))))) - #{tmp 30604}#) - (let ((#{tmp 30611}# + (#{quasi 28668}# + (list #{p 28699}#) + (#{1-}# #{lev 28693}#))))) + #{tmp 28695}#) + (let ((#{tmp 28702}# ($sc-dispatch - #{p 30601}# + #{p 28692}# '(#(free-id #(syntax-object quasiquote @@ -23299,7 +23342,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23308,28 +23351,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) any)))) - (if #{tmp 30611}# + (if #{tmp 28702}# (@apply - (lambda (#{p 30615}#) - (#{quasicons 30579}# + (lambda (#{p 28706}#) + (#{quasicons 28670}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i30330")) + #(ribcage #(p) #((top)) #("i28421")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23338,23 +23381,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i30330")) + #(ribcage #(p) #((top)) #("i28421")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23363,26 +23406,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) - (#{quasi 30577}# - (list #{p 30615}#) - (#{1+}# #{lev 30602}#)))) - #{tmp 30611}#) - (let ((#{tmp 30618}# - ($sc-dispatch #{p 30601}# '(any . any)))) - (if #{tmp 30618}# + (#{quasi 28668}# + (list #{p 28706}#) + (#{1+}# #{lev 28693}#)))) + #{tmp 28702}#) + (let ((#{tmp 28709}# + ($sc-dispatch #{p 28692}# '(any . any)))) + (if #{tmp 28709}# (@apply - (lambda (#{p 30622}# #{q 30623}#) - (let ((#{tmp 30625}# + (lambda (#{p 28713}# #{q 28714}#) + (let ((#{tmp 28716}# ($sc-dispatch - #{p 30622}# + #{p 28713}# '(#(free-id #(syntax-object unquote @@ -23390,12 +23433,12 @@ #(ribcage #(p q) #((top) (top)) - #("i30333" "i30334")) + #("i28424" "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23410,38 +23453,38 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) . each-any)))) - (if #{tmp 30625}# + (if #{tmp 28716}# (@apply - (lambda (#{p 30629}#) - (if (= #{lev 30602}# 0) - (#{quasilist* 30581}# - (map (lambda (#{tmp 30341 30665}#) + (lambda (#{p 28720}#) + (if (= #{lev 28693}# 0) + (#{quasilist* 28672}# + (map (lambda (#{tmp 28432 28756}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i30339")) + #("i28430")) #(ribcage #(p q) #((top) (top)) - #("i30333" "i30334")) + #("i28424" "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23456,37 +23499,37 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{tmp 30341 30665}#)) - #{p 30629}#) - (#{quasi 30577}# - #{q 30623}# - #{lev 30602}#)) - (#{quasicons 30579}# - (#{quasicons 30579}# + #{tmp 28432 28756}#)) + #{p 28720}#) + (#{quasi 28668}# + #{q 28714}# + #{lev 28693}#)) + (#{quasicons 28670}# + (#{quasicons 28670}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i30339")) + #("i28430")) #(ribcage #(p q) #((top) (top)) - #("i30333" "i30334")) + #("i28424" "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23501,13 +23544,13 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) #(syntax-object unquote @@ -23515,16 +23558,16 @@ #(ribcage #(p) #((top)) - #("i30339")) + #("i28430")) #(ribcage #(p q) #((top) (top)) - #("i30333" "i30334")) + #("i28424" "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23539,24 +23582,24 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) - (#{quasi 30577}# - #{p 30629}# - (#{1-}# #{lev 30602}#))) - (#{quasi 30577}# - #{q 30623}# - #{lev 30602}#)))) - #{tmp 30625}#) - (let ((#{tmp 30670}# + (#{quasi 28668}# + #{p 28720}# + (#{1-}# #{lev 28693}#))) + (#{quasi 28668}# + #{q 28714}# + #{lev 28693}#)))) + #{tmp 28716}#) + (let ((#{tmp 28761}# ($sc-dispatch - #{p 30622}# + #{p 28713}# '(#(free-id #(syntax-object unquote-splicing @@ -23564,12 +23607,12 @@ #(ribcage #(p q) #((top) (top)) - #("i30333" "i30334")) + #("i28424" "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23584,40 +23627,40 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) . each-any)))) - (if #{tmp 30670}# + (if #{tmp 28761}# (@apply - (lambda (#{p 30674}#) - (if (= #{lev 30602}# 0) - (#{quasiappend 30580}# - (map (lambda (#{tmp 30346 30677}#) + (lambda (#{p 28765}#) + (if (= #{lev 28693}# 0) + (#{quasiappend 28671}# + (map (lambda (#{tmp 28437 28768}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i30344")) + #("i28435")) #(ribcage #(p q) #((top) (top)) - #("i30333" - "i30334")) + #("i28424" + "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" - "i30324")) + #("i28414" + "i28415")) #(ribcage (emit quasivector quasilist* @@ -23632,37 +23675,37 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{tmp 30346 30677}#)) - #{p 30674}#) - (#{quasi 30577}# - #{q 30623}# - #{lev 30602}#)) - (#{quasicons 30579}# - (#{quasicons 30579}# + #{tmp 28437 28768}#)) + #{p 28765}#) + (#{quasi 28668}# + #{q 28714}# + #{lev 28693}#)) + (#{quasicons 28670}# + (#{quasicons 28670}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i30344")) + #("i28435")) #(ribcage #(p q) #((top) (top)) - #("i30333" "i30334")) + #("i28424" "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23677,13 +23720,13 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23691,16 +23734,16 @@ #(ribcage #(p) #((top)) - #("i30344")) + #("i28435")) #(ribcage #(p q) #((top) (top)) - #("i30333" "i30334")) + #("i28424" "i28425")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -23715,57 +23758,57 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) - (#{quasi 30577}# - #{p 30674}# - (#{1-}# #{lev 30602}#))) - (#{quasi 30577}# - #{q 30623}# - #{lev 30602}#)))) - #{tmp 30670}#) - (#{quasicons 30579}# - (#{quasi 30577}# - #{p 30622}# - #{lev 30602}#) - (#{quasi 30577}# - #{q 30623}# - #{lev 30602}#))))))) - #{tmp 30618}#) - (let ((#{tmp 30691}# - ($sc-dispatch #{p 30601}# '#(vector each-any)))) - (if #{tmp 30691}# + (#{quasi 28668}# + #{p 28765}# + (#{1-}# #{lev 28693}#))) + (#{quasi 28668}# + #{q 28714}# + #{lev 28693}#)))) + #{tmp 28761}#) + (#{quasicons 28670}# + (#{quasi 28668}# + #{p 28713}# + #{lev 28693}#) + (#{quasi 28668}# + #{q 28714}# + #{lev 28693}#))))))) + #{tmp 28709}#) + (let ((#{tmp 28782}# + ($sc-dispatch #{p 28692}# '#(vector each-any)))) + (if #{tmp 28782}# (@apply - (lambda (#{x 30695}#) - (let ((#{x 30698}# - (#{vquasi 30578}# - #{x 30695}# - #{lev 30602}#))) - (let ((#{tmp 30700}# + (lambda (#{x 28786}#) + (let ((#{x 28789}# + (#{vquasi 28669}# + #{x 28786}# + #{lev 28693}#))) + (let ((#{tmp 28791}# ($sc-dispatch - #{x 30698}# + #{x 28789}# '(#(atom "quote") each-any)))) - (if #{tmp 30700}# + (if #{tmp 28791}# (@apply - (lambda (#{x 30704}#) + (lambda (#{x 28795}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i30451")) + #("i28542")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30448")) + #("i28539")) #(ribcage (emit quasivector quasilist* @@ -23780,36 +23823,36 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - (list->vector #{x 30704}#))) - #{tmp 30700}#) + (list->vector #{x 28795}#))) + #{tmp 28791}#) (letrec* - ((#{f 30706}# - (lambda (#{y 30718}# #{k 30719}#) - (let ((#{tmp 30721}# + ((#{f 28797}# + (lambda (#{y 28809}# #{k 28810}#) + (let ((#{tmp 28812}# ($sc-dispatch - #{y 30718}# + #{y 28809}# '(#(atom "quote") each-any)))) - (if #{tmp 30721}# + (if #{tmp 28812}# (@apply - (lambda (#{y 30724}#) - (#{k 30719}# - (map (lambda (#{tmp 30476 30725}#) + (lambda (#{y 28815}#) + (#{k 28810}# + (map (lambda (#{tmp 28567 28816}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i30474")) + #("i28565")) #(ribcage () () @@ -23821,13 +23864,13 @@ #((top) (top) (top)) - #("i30456" - "i30457" - "i30458")) + #("i28547" + "i28548" + "i28549")) #(ribcage #(_) #((top)) - #("i30454")) + #("i28545")) #(ribcage () () @@ -23835,7 +23878,7 @@ #(ribcage #(x) #((top)) - #("i30448")) + #("i28539")) #(ribcage (emit quasivector quasilist* @@ -23850,51 +23893,51 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{tmp 30476 30725}#)) - #{y 30724}#))) - #{tmp 30721}#) - (let ((#{tmp 30726}# + #{tmp 28567 28816}#)) + #{y 28815}#))) + #{tmp 28812}#) + (let ((#{tmp 28817}# ($sc-dispatch - #{y 30718}# + #{y 28809}# '(#(atom "list") . each-any)))) - (if #{tmp 30726}# + (if #{tmp 28817}# (@apply - (lambda (#{y 30729}#) - (#{k 30719}# - #{y 30729}#)) - #{tmp 30726}#) - (let ((#{tmp 30730}# + (lambda (#{y 28820}#) + (#{k 28810}# + #{y 28820}#)) + #{tmp 28817}#) + (let ((#{tmp 28821}# ($sc-dispatch - #{y 30718}# + #{y 28809}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 30730}# + (if #{tmp 28821}# (@apply - (lambda (#{y 30733}# - #{z 30734}#) - (#{f 30706}# - #{z 30734}# - (lambda (#{ls 30735}#) - (#{k 30719}# + (lambda (#{y 28824}# + #{z 28825}#) + (#{f 28797}# + #{z 28825}# + (lambda (#{ls 28826}#) + (#{k 28810}# (append - #{y 30733}# - #{ls 30735}#))))) - #{tmp 30730}#) + #{y 28824}# + #{ls 28826}#))))) + #{tmp 28821}#) (list '#(syntax-object "list->vector" ((top) @@ -23903,14 +23946,14 @@ () ()) #(ribcage - #(#{ g30491}#) - #((m30492 + #(#{ g28582}#) + #((m28583 top)) - #("i30495")) + #("i28586")) #(ribcage #(else) #((top)) - #("i30489")) + #("i28580")) #(ribcage () () @@ -23920,13 +23963,13 @@ #((top) (top) (top)) - #("i30456" - "i30457" - "i30458")) + #("i28547" + "i28548" + "i28549")) #(ribcage #(_) #((top)) - #("i30454")) + #("i28545")) #(ribcage () () @@ -23934,7 +23977,7 @@ #(ribcage #(x) #((top)) - #("i30448")) + #("i28539")) #(ribcage (emit quasivector quasilist* @@ -23949,26 +23992,26 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{x 30698}#)))))))))) - (#{f 30706}# - #{x 30698}# - (lambda (#{ls 30708}#) - (let ((#{tmp 30710}# + #{x 28789}#)))))))))) + (#{f 28797}# + #{x 28789}# + (lambda (#{ls 28799}#) + (let ((#{tmp 28801}# ($sc-dispatch - #{ls 30708}# + #{ls 28799}# 'each-any))) - (if #{tmp 30710}# + (if #{tmp 28801}# (@apply - (lambda (#{ g30464 30713}#) + (lambda (#{ g28555 28804}#) (cons '#(syntax-object "vector" ((top) @@ -23977,9 +24020,9 @@ () ()) #(ribcage - #(#{ g30464}#) - #((m30465 top)) - #("i30469")) + #(#{ g28555}#) + #((m28556 top)) + #("i28560")) #(ribcage () () @@ -23995,11 +24038,11 @@ #(ribcage #(ls) #((top)) - #("i30463")) + #("i28554")) #(ribcage #(_) #((top)) - #("i30454")) + #("i28545")) #(ribcage () () @@ -24007,7 +24050,7 @@ #(ribcage #(x) #((top)) - #("i30448")) + #("i28539")) #(ribcage (emit quasivector quasilist* @@ -24022,30 +24065,30 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{ g30464 30713}#)) - #{tmp 30710}#) + #{ g28555 28804}#)) + #{tmp 28801}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 30708}#)))))))))) - #{tmp 30691}#) + #{ls 28799}#)))))))))) + #{tmp 28782}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i30354")) + #(ribcage #(p) #((top)) #("i28445")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30323" "i30324")) + #("i28414" "i28415")) #(ribcage (emit quasivector quasilist* @@ -24060,25 +24103,25 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{p 30601}#))))))))))) - (#{vquasi 30578}# - (lambda (#{p 30763}# #{lev 30764}#) - (let ((#{tmp 30766}# - ($sc-dispatch #{p 30763}# '(any . any)))) - (if #{tmp 30766}# + #{p 28692}#))))))))))) + (#{vquasi 28669}# + (lambda (#{p 28854}# #{lev 28855}#) + (let ((#{tmp 28857}# + ($sc-dispatch #{p 28854}# '(any . any)))) + (if #{tmp 28857}# (@apply - (lambda (#{p 30770}# #{q 30771}#) - (let ((#{tmp 30773}# + (lambda (#{p 28861}# #{q 28862}#) + (let ((#{tmp 28864}# ($sc-dispatch - #{p 30770}# + #{p 28861}# '(#(free-id #(syntax-object unquote @@ -24086,12 +24129,12 @@ #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24106,38 +24149,38 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) . each-any)))) - (if #{tmp 30773}# + (if #{tmp 28864}# (@apply - (lambda (#{p 30777}#) - (if (= #{lev 30764}# 0) - (#{quasilist* 30581}# - (map (lambda (#{tmp 30370 30813}#) + (lambda (#{p 28868}#) + (if (= #{lev 28855}# 0) + (#{quasilist* 28672}# + (map (lambda (#{tmp 28461 28904}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i30368")) + #("i28459")) #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24152,32 +24195,32 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{tmp 30370 30813}#)) - #{p 30777}#) - (#{vquasi 30578}# #{q 30771}# #{lev 30764}#)) - (#{quasicons 30579}# - (#{quasicons 30579}# + #{tmp 28461 28904}#)) + #{p 28868}#) + (#{vquasi 28669}# #{q 28862}# #{lev 28855}#)) + (#{quasicons 28670}# + (#{quasicons 28670}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i30368")) + #(ribcage #(p) #((top)) #("i28459")) #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24192,27 +24235,27 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i30368")) + #(ribcage #(p) #((top)) #("i28459")) #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24227,22 +24270,22 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) - (#{quasi 30577}# - #{p 30777}# - (#{1-}# #{lev 30764}#))) - (#{vquasi 30578}# #{q 30771}# #{lev 30764}#)))) - #{tmp 30773}#) - (let ((#{tmp 30820}# + (#{quasi 28668}# + #{p 28868}# + (#{1-}# #{lev 28855}#))) + (#{vquasi 28669}# #{q 28862}# #{lev 28855}#)))) + #{tmp 28864}#) + (let ((#{tmp 28911}# ($sc-dispatch - #{p 30770}# + #{p 28861}# '(#(free-id #(syntax-object unquote-splicing @@ -24250,12 +24293,12 @@ #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24270,38 +24313,38 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) . each-any)))) - (if #{tmp 30820}# + (if #{tmp 28911}# (@apply - (lambda (#{p 30824}#) - (if (= #{lev 30764}# 0) - (#{quasiappend 30580}# - (map (lambda (#{tmp 30375 30827}#) + (lambda (#{p 28915}#) + (if (= #{lev 28855}# 0) + (#{quasiappend 28671}# + (map (lambda (#{tmp 28466 28918}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i30373")) + #("i28464")) #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24316,34 +24359,34 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{tmp 30375 30827}#)) - #{p 30824}#) - (#{vquasi 30578}# - #{q 30771}# - #{lev 30764}#)) - (#{quasicons 30579}# - (#{quasicons 30579}# + #{tmp 28466 28918}#)) + #{p 28915}#) + (#{vquasi 28669}# + #{q 28862}# + #{lev 28855}#)) + (#{quasicons 28670}# + (#{quasicons 28670}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i30373")) + #(ribcage #(p) #((top)) #("i28464")) #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24358,27 +24401,27 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i30373")) + #(ribcage #(p) #((top)) #("i28464")) #(ribcage #(p q) #((top) (top)) - #("i30362" "i30363")) + #("i28453" "i28454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24393,27 +24436,27 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile))) - (#{quasi 30577}# - #{p 30824}# - (#{1-}# #{lev 30764}#))) - (#{vquasi 30578}# - #{q 30771}# - #{lev 30764}#)))) - #{tmp 30820}#) - (#{quasicons 30579}# - (#{quasi 30577}# #{p 30770}# #{lev 30764}#) - (#{vquasi 30578}# #{q 30771}# #{lev 30764}#))))))) - #{tmp 30766}#) - (let ((#{tmp 30845}# ($sc-dispatch #{p 30763}# '()))) - (if #{tmp 30845}# + (#{quasi 28668}# + #{p 28915}# + (#{1-}# #{lev 28855}#))) + (#{vquasi 28669}# + #{q 28862}# + #{lev 28855}#)))) + #{tmp 28911}#) + (#{quasicons 28670}# + (#{quasi 28668}# #{p 28861}# #{lev 28855}#) + (#{vquasi 28669}# #{q 28862}# #{lev 28855}#))))))) + #{tmp 28857}#) + (let ((#{tmp 28936}# ($sc-dispatch #{p 28854}# '()))) + (if #{tmp 28936}# (@apply (lambda () '(#(syntax-object @@ -24423,7 +24466,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i30358" "i30359")) + #("i28449" "i28450")) #(ribcage (emit quasivector quasilist* @@ -24432,64 +24475,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) ())) - #{tmp 30845}#) + #{tmp 28936}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 30763}#))))))) - (#{quasicons 30579}# - (lambda (#{x 30858}# #{y 30859}#) - (let ((#{tmp 30860}# (list #{x 30858}# #{y 30859}#))) - (let ((#{tmp 30861}# - ($sc-dispatch #{tmp 30860}# '(any any)))) - (if #{tmp 30861}# + #{p 28854}#))))))) + (#{quasicons 28670}# + (lambda (#{x 28949}# #{y 28950}#) + (let ((#{tmp 28951}# (list #{x 28949}# #{y 28950}#))) + (let ((#{tmp 28952}# + ($sc-dispatch #{tmp 28951}# '(any any)))) + (if #{tmp 28952}# (@apply - (lambda (#{x 30863}# #{y 30864}#) - (let ((#{tmp 30866}# + (lambda (#{x 28954}# #{y 28955}#) + (let ((#{tmp 28957}# ($sc-dispatch - #{y 30864}# + #{y 28955}# '(#(atom "quote") any)))) - (if #{tmp 30866}# + (if #{tmp 28957}# (@apply - (lambda (#{dy 30870}#) - (let ((#{tmp 30872}# + (lambda (#{dy 28961}#) + (let ((#{tmp 28963}# ($sc-dispatch - #{x 30863}# + #{x 28954}# '(#(atom "quote") any)))) - (if #{tmp 30872}# + (if #{tmp 28963}# (@apply - (lambda (#{dx 30876}#) + (lambda (#{dx 28967}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i30397")) + #("i28488")) #(ribcage #(dy) #((top)) - #("i30393")) + #("i28484")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30387" "i30388")) + #("i28478" "i28479")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30382" "i30383")) + #("i28473" "i28474")) #(ribcage (emit quasivector quasilist* @@ -24504,39 +24547,39 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - (cons #{dx 30876}# #{dy 30870}#))) - #{tmp 30872}#) - (if (null? #{dy 30870}#) + (cons #{dx 28967}# #{dy 28961}#))) + #{tmp 28963}#) + (if (null? #{dy 28961}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i30399")) + #("i28490")) #(ribcage #(dy) #((top)) - #("i30393")) + #("i28484")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30387" "i30388")) + #("i28478" "i28479")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30382" "i30383")) + #("i28473" "i28474")) #(ribcage (emit quasivector quasilist* @@ -24551,37 +24594,37 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{x 30863}#) + #{x 28954}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i30399")) + #("i28490")) #(ribcage #(dy) #((top)) - #("i30393")) + #("i28484")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30387" "i30388")) + #("i28478" "i28479")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30382" "i30383")) + #("i28473" "i28474")) #(ribcage (emit quasivector quasilist* @@ -24596,42 +24639,42 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{x 30863}# - #{y 30864}#))))) - #{tmp 30866}#) - (let ((#{tmp 30881}# + #{x 28954}# + #{y 28955}#))))) + #{tmp 28957}#) + (let ((#{tmp 28972}# ($sc-dispatch - #{y 30864}# + #{y 28955}# '(#(atom "list") . any)))) - (if #{tmp 30881}# + (if #{tmp 28972}# (@apply - (lambda (#{stuff 30885}#) + (lambda (#{stuff 28976}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i30402")) + #("i28493")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30387" "i30388")) + #("i28478" "i28479")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30382" "i30383")) + #("i28473" "i28474")) #(ribcage (emit quasivector quasilist* @@ -24646,41 +24689,41 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - (cons #{x 30863}# #{stuff 30885}#))) - #{tmp 30881}#) - (let ((#{tmp 30886}# + (cons #{x 28954}# #{stuff 28976}#))) + #{tmp 28972}#) + (let ((#{tmp 28977}# ($sc-dispatch - #{y 30864}# + #{y 28955}# '(#(atom "list*") . any)))) - (if #{tmp 30886}# + (if #{tmp 28977}# (@apply - (lambda (#{stuff 30890}#) + (lambda (#{stuff 28981}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i30405")) + #("i28496")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30387" "i30388")) + #("i28478" "i28479")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30382" "i30383")) + #("i28473" "i28474")) #(ribcage (emit quasivector quasilist* @@ -24695,31 +24738,31 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - (cons #{x 30863}# #{stuff 30890}#))) - #{tmp 30886}#) + (cons #{x 28954}# #{stuff 28981}#))) + #{tmp 28977}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i30407")) + #(ribcage #(_) #((top)) #("i28498")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30387" "i30388")) + #("i28478" "i28479")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30382" "i30383")) + #("i28473" "i28474")) #(ribcage (emit quasivector quasilist* @@ -24734,29 +24777,29 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{x 30863}# - #{y 30864}#)))))))) - #{tmp 30861}#) + #{x 28954}# + #{y 28955}#)))))))) + #{tmp 28952}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30860}#)))))) - (#{quasiappend 30580}# - (lambda (#{x 30901}# #{y 30902}#) - (let ((#{tmp 30904}# - ($sc-dispatch #{y 30902}# '(#(atom "quote") ())))) - (if #{tmp 30904}# + #{tmp 28951}#)))))) + (#{quasiappend 28671}# + (lambda (#{x 28992}# #{y 28993}#) + (let ((#{tmp 28995}# + ($sc-dispatch #{y 28993}# '(#(atom "quote") ())))) + (if #{tmp 28995}# (@apply (lambda () - (if (null? #{x 30901}#) + (if (null? #{x 28992}#) '(#(syntax-object "quote" ((top) @@ -24764,7 +24807,7 @@ #(ribcage #(x y) #((top) (top)) - #("i30411" "i30412")) + #("i28502" "i28503")) #(ribcage (emit quasivector quasilist* @@ -24773,32 +24816,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) ()) - (if (null? (cdr #{x 30901}#)) - (car #{x 30901}#) - (let ((#{tmp 30909}# - ($sc-dispatch #{x 30901}# 'each-any))) - (if #{tmp 30909}# + (if (null? (cdr #{x 28992}#)) + (car #{x 28992}#) + (let ((#{tmp 29000}# + ($sc-dispatch #{x 28992}# 'each-any))) + (if #{tmp 29000}# (@apply - (lambda (#{p 30913}#) + (lambda (#{p 29004}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i30423")) + #(ribcage #(p) #((top)) #("i28514")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30411" "i30412")) + #("i28502" "i28503")) #(ribcage (emit quasivector quasilist* @@ -24813,29 +24856,29 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{p 30913}#)) - #{tmp 30909}#) + #{p 29004}#)) + #{tmp 29000}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30901}#)))))) - #{tmp 30904}#) - (if (null? #{x 30901}#) - #{y 30902}# - (let ((#{tmp 30921}# (list #{x 30901}# #{y 30902}#))) - (let ((#{tmp 30922}# - ($sc-dispatch #{tmp 30921}# '(each-any any)))) - (if #{tmp 30922}# + #{x 28992}#)))))) + #{tmp 28995}#) + (if (null? #{x 28992}#) + #{y 28993}# + (let ((#{tmp 29012}# (list #{x 28992}# #{y 28993}#))) + (let ((#{tmp 29013}# + ($sc-dispatch #{tmp 29012}# '(each-any any)))) + (if #{tmp 29013}# (@apply - (lambda (#{p 30924}# #{y 30925}#) + (lambda (#{p 29015}# #{y 29016}#) (cons '#(syntax-object "append" ((top) @@ -24843,13 +24886,13 @@ #(ribcage #(p y) #((top) (top)) - #("i30434" "i30435")) - #(ribcage #(_) #((top)) #("i30426")) + #("i28525" "i28526")) + #(ribcage #(_) #((top)) #("i28517")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i30411" "i30412")) + #("i28502" "i28503")) #(ribcage (emit quasivector quasilist* @@ -24864,44 +24907,44 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - (append #{p 30924}# (list #{y 30925}#)))) - #{tmp 30922}#) + (append #{p 29015}# (list #{y 29016}#)))) + #{tmp 29013}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 30921}#))))))))) - (#{quasilist* 30581}# - (lambda (#{x 30929}# #{y 30930}#) + #{tmp 29012}#))))))))) + (#{quasilist* 28672}# + (lambda (#{x 29020}# #{y 29021}#) (letrec* - ((#{f 30931}# - (lambda (#{x 31020}#) - (if (null? #{x 31020}#) - #{y 30930}# - (#{quasicons 30579}# - (car #{x 31020}#) - (#{f 30931}# (cdr #{x 31020}#))))))) - (#{f 30931}# #{x 30929}#)))) - (#{emit 30583}# - (lambda (#{x 31023}#) - (let ((#{tmp 31025}# - ($sc-dispatch #{x 31023}# '(#(atom "quote") any)))) - (if #{tmp 31025}# + ((#{f 29022}# + (lambda (#{x 29111}#) + (if (null? #{x 29111}#) + #{y 29021}# + (#{quasicons 28670}# + (car #{x 29111}#) + (#{f 29022}# (cdr #{x 29111}#))))))) + (#{f 29022}# #{x 29020}#)))) + (#{emit 28674}# + (lambda (#{x 29114}#) + (let ((#{tmp 29116}# + ($sc-dispatch #{x 29114}# '(#(atom "quote") any)))) + (if #{tmp 29116}# (@apply - (lambda (#{x 31029}#) + (lambda (#{x 29120}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i30501")) + #(ribcage #(x) #((top)) #("i28592")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30498")) + #(ribcage #(x) #((top)) #("i28589")) #(ribcage (emit quasivector quasilist* @@ -24910,40 +24953,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{x 31029}#)) - #{tmp 31025}#) - (let ((#{tmp 31030}# + #{x 29120}#)) + #{tmp 29116}#) + (let ((#{tmp 29121}# ($sc-dispatch - #{x 31023}# + #{x 29114}# '(#(atom "list") . each-any)))) - (if #{tmp 31030}# + (if #{tmp 29121}# (@apply - (lambda (#{x 31034}#) - (let ((#{tmp 31035}# (map #{emit 30583}# #{x 31034}#))) - (let ((#{tmp 31036}# - ($sc-dispatch #{tmp 31035}# 'each-any))) - (if #{tmp 31036}# + (lambda (#{x 29125}#) + (let ((#{tmp 29126}# (map #{emit 28674}# #{x 29125}#))) + (let ((#{tmp 29127}# + ($sc-dispatch #{tmp 29126}# 'each-any))) + (if #{tmp 29127}# (@apply - (lambda (#{ g30506 31038}#) + (lambda (#{ g28597 29129}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g30506}#) - #((m30507 top)) - #("i30511")) - #(ribcage #(x) #((top)) #("i30504")) + #(#{ g28597}#) + #((m28598 top)) + #("i28602")) + #(ribcage #(x) #((top)) #("i28595")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30498")) + #(ribcage #(x) #((top)) #("i28589")) #(ribcage (emit quasivector quasilist* @@ -24958,70 +25001,70 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{ g30506 31038}#)) - #{tmp 31036}#) + #{ g28597 29129}#)) + #{tmp 29127}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 31035}#))))) - #{tmp 31030}#) - (let ((#{tmp 31039}# + #{tmp 29126}#))))) + #{tmp 29121}#) + (let ((#{tmp 29130}# ($sc-dispatch - #{x 31023}# + #{x 29114}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 31039}# + (if #{tmp 29130}# (@apply - (lambda (#{x 31043}# #{y 31044}#) + (lambda (#{x 29134}# #{y 29135}#) (letrec* - ((#{f 31045}# - (lambda (#{x* 31048}#) - (if (null? #{x* 31048}#) - (#{emit 30583}# #{y 31044}#) - (let ((#{tmp 31049}# - (list (#{emit 30583}# - (car #{x* 31048}#)) - (#{f 31045}# - (cdr #{x* 31048}#))))) - (let ((#{tmp 31050}# + ((#{f 29136}# + (lambda (#{x* 29139}#) + (if (null? #{x* 29139}#) + (#{emit 28674}# #{y 29135}#) + (let ((#{tmp 29140}# + (list (#{emit 28674}# + (car #{x* 29139}#)) + (#{f 29136}# + (cdr #{x* 29139}#))))) + (let ((#{tmp 29141}# ($sc-dispatch - #{tmp 31049}# + #{tmp 29140}# '(any any)))) - (if #{tmp 31050}# + (if #{tmp 29141}# (@apply - (lambda (#{ g30526 31052}# - #{ g30525 31053}#) + (lambda (#{ g28617 29143}# + #{ g28616 29144}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g30526}# - #{ g30525}#) - #((m30527 top) - (m30527 top)) - #("i30531" "i30532")) + #(#{ g28617}# + #{ g28616}#) + #((m28618 top) + (m28618 top)) + #("i28622" "i28623")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i30520" "i30521")) + #("i28611" "i28612")) #(ribcage #(x y) #((top) (top)) - #("i30516" "i30517")) + #("i28607" "i28608")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30498")) + #("i28589")) #(ribcage (emit quasivector quasilist* @@ -25036,56 +25079,56 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{ g30526 31052}# - #{ g30525 31053}#)) - #{tmp 31050}#) + #{ g28617 29143}# + #{ g28616 29144}#)) + #{tmp 29141}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 31049}#)))))))) - (#{f 31045}# #{x 31043}#))) - #{tmp 31039}#) - (let ((#{tmp 31054}# + #{tmp 29140}#)))))))) + (#{f 29136}# #{x 29134}#))) + #{tmp 29130}#) + (let ((#{tmp 29145}# ($sc-dispatch - #{x 31023}# + #{x 29114}# '(#(atom "append") . each-any)))) - (if #{tmp 31054}# + (if #{tmp 29145}# (@apply - (lambda (#{x 31058}#) - (let ((#{tmp 31059}# - (map #{emit 30583}# #{x 31058}#))) - (let ((#{tmp 31060}# + (lambda (#{x 29149}#) + (let ((#{tmp 29150}# + (map #{emit 28674}# #{x 29149}#))) + (let ((#{tmp 29151}# ($sc-dispatch - #{tmp 31059}# + #{tmp 29150}# 'each-any))) - (if #{tmp 31060}# + (if #{tmp 29151}# (@apply - (lambda (#{ g30538 31062}#) + (lambda (#{ g28629 29153}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g30538}#) - #((m30539 top)) - #("i30543")) + #(#{ g28629}#) + #((m28630 top)) + #("i28634")) #(ribcage #(x) #((top)) - #("i30536")) + #("i28627")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30498")) + #("i28589")) #(ribcage (emit quasivector quasilist* @@ -25100,54 +25143,54 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{ g30538 31062}#)) - #{tmp 31060}#) + #{ g28629 29153}#)) + #{tmp 29151}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 31059}#))))) - #{tmp 31054}#) - (let ((#{tmp 31063}# + #{tmp 29150}#))))) + #{tmp 29145}#) + (let ((#{tmp 29154}# ($sc-dispatch - #{x 31023}# + #{x 29114}# '(#(atom "vector") . each-any)))) - (if #{tmp 31063}# + (if #{tmp 29154}# (@apply - (lambda (#{x 31067}#) - (let ((#{tmp 31068}# - (map #{emit 30583}# #{x 31067}#))) - (let ((#{tmp 31069}# + (lambda (#{x 29158}#) + (let ((#{tmp 29159}# + (map #{emit 28674}# #{x 29158}#))) + (let ((#{tmp 29160}# ($sc-dispatch - #{tmp 31068}# + #{tmp 29159}# 'each-any))) - (if #{tmp 31069}# + (if #{tmp 29160}# (@apply - (lambda (#{ g30550 31071}#) + (lambda (#{ g28641 29162}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g30550}#) - #((m30551 top)) - #("i30555")) + #(#{ g28641}#) + #((m28642 top)) + #("i28646")) #(ribcage #(x) #((top)) - #("i30548")) + #("i28639")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30498")) + #("i28589")) #(ribcage (emit quasivector quasilist* @@ -25162,47 +25205,47 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{ g30550 31071}#)) - #{tmp 31069}#) + #{ g28641 29162}#)) + #{tmp 29160}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 31068}#))))) - #{tmp 31063}#) - (let ((#{tmp 31072}# + #{tmp 29159}#))))) + #{tmp 29154}#) + (let ((#{tmp 29163}# ($sc-dispatch - #{x 31023}# + #{x 29114}# '(#(atom "list->vector") any)))) - (if #{tmp 31072}# + (if #{tmp 29163}# (@apply - (lambda (#{x 31076}#) - (let ((#{tmp 31077}# - (#{emit 30583}# #{x 31076}#))) + (lambda (#{x 29167}#) + (let ((#{tmp 29168}# + (#{emit 28674}# #{x 29167}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g30562}#) - #((m30563 top)) - #("i30566")) + #(#{ g28653}#) + #((m28654 top)) + #("i28657")) #(ribcage #(x) #((top)) - #("i30560")) + #("i28651")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30498")) + #("i28589")) #(ribcage (emit quasivector quasilist* @@ -25217,188 +25260,188 @@ (top) (top) (top)) - ("i30319" - "i30317" - "i30315" - "i30313" - "i30311" - "i30309" - "i30307"))) + ("i28410" + "i28408" + "i28406" + "i28404" + "i28402" + "i28400" + "i28398"))) (hygiene guile)) - #{tmp 31077}#))) - #{tmp 31072}#) - (let ((#{tmp 31080}# + #{tmp 29168}#))) + #{tmp 29163}#) + (let ((#{tmp 29171}# ($sc-dispatch - #{x 31023}# + #{x 29114}# '(#(atom "value") any)))) - (if #{tmp 31080}# + (if #{tmp 29171}# (@apply - (lambda (#{x 31084}#) #{x 31084}#) - #{tmp 31080}#) + (lambda (#{x 29175}#) #{x 29175}#) + #{tmp 29171}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 31023}#)))))))))))))))))) - (lambda (#{x 30584}#) - (let ((#{tmp 30586}# - ($sc-dispatch #{x 30584}# '(_ any)))) - (if #{tmp 30586}# + #{x 29114}#)))))))))))))))))) + (lambda (#{x 28675}#) + (let ((#{tmp 28677}# + ($sc-dispatch #{x 28675}# '(_ any)))) + (if #{tmp 28677}# (@apply - (lambda (#{e 30590}#) - (#{emit 30583}# (#{quasi 30577}# #{e 30590}# 0))) - #{tmp 30586}#) + (lambda (#{e 28681}#) + (#{emit 28674}# (#{quasi 28668}# #{e 28681}# 0))) + #{tmp 28677}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30584}#))))))) + #{x 28675}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 31139}#) + (lambda (#{x 29230}#) (letrec* - ((#{read-file 31140}# - (lambda (#{fn 31249}# #{k 31250}#) - (let ((#{p 31251}# (open-input-file #{fn 31249}#))) + ((#{read-file 29231}# + (lambda (#{fn 29340}# #{k 29341}#) + (let ((#{p 29342}# (open-input-file #{fn 29340}#))) (letrec* - ((#{f 31252}# - (lambda (#{x 31306}# #{result 31307}#) - (if (eof-object? #{x 31306}#) + ((#{f 29343}# + (lambda (#{x 29397}# #{result 29398}#) + (if (eof-object? #{x 29397}#) (begin - (close-input-port #{p 31251}#) - (reverse #{result 31307}#)) - (#{f 31252}# - (read #{p 31251}#) - (cons (datum->syntax #{k 31250}# #{x 31306}#) - #{result 31307}#)))))) - (#{f 31252}# (read #{p 31251}#) '())))))) - (let ((#{tmp 31142}# - ($sc-dispatch #{x 31139}# '(any any)))) - (if #{tmp 31142}# + (close-input-port #{p 29342}#) + (reverse #{result 29398}#)) + (#{f 29343}# + (read #{p 29342}#) + (cons (datum->syntax #{k 29341}# #{x 29397}#) + #{result 29398}#)))))) + (#{f 29343}# (read #{p 29342}#) '())))))) + (let ((#{tmp 29233}# + ($sc-dispatch #{x 29230}# '(any any)))) + (if #{tmp 29233}# (@apply - (lambda (#{k 31146}# #{filename 31147}#) - (let ((#{fn 31148}# (syntax->datum #{filename 31147}#))) - (let ((#{tmp 31149}# - (#{read-file 31140}# - #{fn 31148}# - #{filename 31147}#))) - (let ((#{tmp 31150}# - ($sc-dispatch #{tmp 31149}# 'each-any))) - (if #{tmp 31150}# + (lambda (#{k 29237}# #{filename 29238}#) + (let ((#{fn 29239}# (syntax->datum #{filename 29238}#))) + (let ((#{tmp 29240}# + (#{read-file 29231}# + #{fn 29239}# + #{filename 29238}#))) + (let ((#{tmp 29241}# + ($sc-dispatch #{tmp 29240}# 'each-any))) + (if #{tmp 29241}# (@apply - (lambda (#{exp 31168}#) + (lambda (#{exp 29259}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i31136")) + #(ribcage #(exp) #((top)) #("i29227")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i31131")) + #(ribcage #(fn) #((top)) #("i29222")) #(ribcage #(k filename) #((top) (top)) - #("i31127" "i31128")) - #(ribcage (read-file) ((top)) ("i31111")) - #(ribcage #(x) #((top)) #("i31110"))) + #("i29218" "i29219")) + #(ribcage (read-file) ((top)) ("i29202")) + #(ribcage #(x) #((top)) #("i29201"))) (hygiene guile)) - #{exp 31168}#)) - #{tmp 31150}#) + #{exp 29259}#)) + #{tmp 29241}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 31149}#)))))) - #{tmp 31142}#) + #{tmp 29240}#)))))) + #{tmp 29233}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 31139}#))))))) + #{x 29230}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 31326}#) - (let ((#{tmp 31328}# - ($sc-dispatch #{x 31326}# '(any any)))) - (if #{tmp 31328}# + (lambda (#{x 29417}#) + (let ((#{tmp 29419}# + ($sc-dispatch #{x 29417}# '(any any)))) + (if #{tmp 29419}# (@apply - (lambda (#{k 31332}# #{filename 31333}#) - (let ((#{fn 31334}# (syntax->datum #{filename 31333}#))) - (let ((#{tmp 31335}# + (lambda (#{k 29423}# #{filename 29424}#) + (let ((#{fn 29425}# (syntax->datum #{filename 29424}#))) + (let ((#{tmp 29426}# (datum->syntax - #{filename 31333}# - (let ((#{t 31338}# (%search-load-path #{fn 31334}#))) - (if #{t 31338}# - #{t 31338}# + #{filename 29424}# + (let ((#{t 29429}# (%search-load-path #{fn 29425}#))) + (if #{t 29429}# + #{t 29429}# (syntax-violation 'include-from-path "file not found in path" - #{x 31326}# - #{filename 31333}#)))))) + #{x 29417}# + #{filename 29424}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i31320")) + #(ribcage #(fn) #((top)) #("i29411")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i31316")) + #(ribcage #(fn) #((top)) #("i29407")) #(ribcage #(k filename) #((top) (top)) - #("i31312" "i31313")) + #("i29403" "i29404")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31309"))) + #(ribcage #(x) #((top)) #("i29400"))) (hygiene guile)) - #{tmp 31335}#)))) - #{tmp 31328}#) + #{tmp 29426}#)))) + #{tmp 29419}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 31326}#)))))) + #{x 29417}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 31347}#) + (lambda (#{x 29438}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 31347}#)))) + #{x 29438}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 31350}#) + (lambda (#{x 29441}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 31350}#)))) + #{x 29441}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 31406}#) - (let ((#{tmp 31408}# + (lambda (#{x 29497}#) + (let ((#{tmp 29499}# ($sc-dispatch - #{x 31406}# + #{x 29497}# '(_ any any . each-any)))) - (if #{tmp 31408}# + (if #{tmp 29499}# (@apply - (lambda (#{e 31412}# #{m1 31413}# #{m2 31414}#) - (let ((#{tmp 31415}# + (lambda (#{e 29503}# #{m1 29504}# #{m2 29505}#) + (let ((#{tmp 29506}# (letrec* - ((#{f 31457}# - (lambda (#{clause 31460}# #{clauses 31461}#) - (if (null? #{clauses 31461}#) - (let ((#{tmp 31463}# + ((#{f 29548}# + (lambda (#{clause 29551}# #{clauses 29552}#) + (if (null? #{clauses 29552}#) + (let ((#{tmp 29554}# ($sc-dispatch - #{clause 31460}# + #{clause 29551}# '(#(free-id #(syntax-object else @@ -25407,91 +25450,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile))) any . each-any)))) - (if #{tmp 31463}# + (if #{tmp 29554}# (@apply - (lambda (#{e1 31467}# #{e2 31468}#) + (lambda (#{e1 29558}# #{e2 29559}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i31374" "i31375")) + #("i29465" "i29466")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) - (cons #{e1 31467}# #{e2 31468}#))) - #{tmp 31463}#) - (let ((#{tmp 31469}# + (cons #{e1 29558}# #{e2 29559}#))) + #{tmp 29554}#) + (let ((#{tmp 29560}# ($sc-dispatch - #{clause 31460}# + #{clause 29551}# '(each-any any . each-any)))) - (if #{tmp 31469}# + (if #{tmp 29560}# (@apply - (lambda (#{k 31473}# - #{e1 31474}# - #{e2 31475}#) + (lambda (#{k 29564}# + #{e1 29565}# + #{e2 29566}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i31380" - "i31381" - "i31382")) + #("i29471" + "i29472" + "i29473")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) (list '#(syntax-object memv @@ -25501,9 +25544,9 @@ #((top) (top) (top)) - #("i31380" - "i31381" - "i31382")) + #("i29471" + "i29472" + "i29473")) #(ribcage () () ()) #(ribcage #(f @@ -25512,22 +25555,22 @@ #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) '#(syntax-object t @@ -25537,9 +25580,9 @@ #((top) (top) (top)) - #("i31380" - "i31381" - "i31382")) + #("i29471" + "i29472" + "i29473")) #(ribcage () () ()) #(ribcage #(f @@ -25548,22 +25591,22 @@ #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) (list '#(syntax-object quote @@ -25573,9 +25616,9 @@ #((top) (top) (top)) - #("i31380" - "i31381" - "i31382")) + #("i29471" + "i29472" + "i29473")) #(ribcage () () @@ -25587,17 +25630,17 @@ #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () @@ -25605,10 +25648,10 @@ #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) - #{k 31473}#)) + #{k 29564}#)) (cons '#(syntax-object begin ((top) @@ -25617,9 +25660,9 @@ #((top) (top) (top)) - #("i31380" - "i31381" - "i31382")) + #("i29471" + "i29472" + "i29473")) #(ribcage () () ()) #(ribcage #(f @@ -25628,76 +25671,76 @@ #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) - (cons #{e1 31474}# - #{e2 31475}#)))) - #{tmp 31469}#) + (cons #{e1 29565}# + #{e2 29566}#)))) + #{tmp 29560}#) (syntax-violation 'case "bad clause" - #{x 31406}# - #{clause 31460}#))))) - (let ((#{tmp 31483}# - (#{f 31457}# - (car #{clauses 31461}#) - (cdr #{clauses 31461}#)))) - (let ((#{tmp 31486}# + #{x 29497}# + #{clause 29551}#))))) + (let ((#{tmp 29574}# + (#{f 29548}# + (car #{clauses 29552}#) + (cdr #{clauses 29552}#)))) + (let ((#{tmp 29577}# ($sc-dispatch - #{clause 31460}# + #{clause 29551}# '(each-any any . each-any)))) - (if #{tmp 31486}# + (if #{tmp 29577}# (@apply - (lambda (#{k 31490}# - #{e1 31491}# - #{e2 31492}#) + (lambda (#{k 29581}# + #{e1 29582}# + #{e2 29583}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i31396" - "i31397" - "i31398")) + #("i29487" + "i29488" + "i29489")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i31392")) + #("i29483")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) (list '#(syntax-object memv @@ -25705,32 +25748,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i31396" - "i31397" - "i31398")) + #("i29487" + "i29488" + "i29489")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i31392")) + #("i29483")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) '#(syntax-object t @@ -25738,32 +25781,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i31396" - "i31397" - "i31398")) + #("i29487" + "i29488" + "i29489")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i31392")) + #("i29483")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) (list '#(syntax-object quote @@ -25773,9 +25816,9 @@ #((top) (top) (top)) - #("i31396" - "i31397" - "i31398")) + #("i29487" + "i29488" + "i29489")) #(ribcage () () @@ -25783,7 +25826,7 @@ #(ribcage #(rest) #((top)) - #("i31392")) + #("i29483")) #(ribcage () () @@ -25795,17 +25838,17 @@ #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () @@ -25813,232 +25856,232 @@ #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) - #{k 31490}#)) + #{k 29581}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i31396" - "i31397" - "i31398")) + #("i29487" + "i29488" + "i29489")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i31392")) + #("i29483")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i31365" - "i31366" - "i31367")) + #("i29456" + "i29457" + "i29458")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" - "i31356" - "i31357")) + #("i29446" + "i29447" + "i29448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31352"))) + #("i29443"))) (hygiene guile)) - (cons #{e1 31491}# - #{e2 31492}#)) - #{tmp 31483}#)) - #{tmp 31486}#) + (cons #{e1 29582}# + #{e2 29583}#)) + #{tmp 29574}#)) + #{tmp 29577}#) (syntax-violation 'case "bad clause" - #{x 31406}# - #{clause 31460}#)))))))) - (#{f 31457}# #{m1 31413}# #{m2 31414}#)))) - (let ((#{body 31416}# #{tmp 31415}#)) + #{x 29497}# + #{clause 29551}#)))))))) + (#{f 29548}# #{m1 29504}# #{m2 29505}#)))) + (let ((#{body 29507}# #{tmp 29506}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i31363")) + #(ribcage #(body) #((top)) #("i29454")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" "i31356" "i31357")) + #("i29446" "i29447" "i29448")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31352"))) + #(ribcage #(x) #((top)) #("i29443"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i31363")) + #(ribcage #(body) #((top)) #("i29454")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i31355" "i31356" "i31357")) + #("i29446" "i29447" "i29448")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31352"))) + #(ribcage #(x) #((top)) #("i29443"))) (hygiene guile)) - #{e 31412}#)) - #{body 31416}#)))) - #{tmp 31408}#) + #{e 29503}#)) + #{body 29507}#)))) + #{tmp 29499}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 31406}#)))))) + #{x 29497}#)))))) (define make-variable-transformer - (lambda (#{proc 31510}#) - (if (procedure? #{proc 31510}#) + (lambda (#{proc 29601}#) + (if (procedure? #{proc 29601}#) (letrec* - ((#{trans 31511}# - (lambda (#{x 31517}#) - (#{proc 31510}# #{x 31517}#)))) + ((#{trans 29602}# + (lambda (#{x 29608}#) + (#{proc 29601}# #{x 29608}#)))) (begin (set-procedure-property! - #{trans 31511}# + #{trans 29602}# 'variable-transformer #t) - #{trans 31511}#)) + #{trans 29602}#)) (error "variable transformer not a procedure" - #{proc 31510}#)))) + #{proc 29601}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 31549}#) - (let ((#{tmp 31551}# - ($sc-dispatch #{x 31549}# '(_ any)))) - (if #{tmp 31551}# + (lambda (#{x 29640}#) + (let ((#{tmp 29642}# + ($sc-dispatch #{x 29640}# '(_ any)))) + (if #{tmp 29642}# (@apply - (lambda (#{e 31555}#) + (lambda (#{e 29646}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) - #{e 31555}#)) + #{e 29646}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i31524")) + #(ribcage #(e) #((top)) #("i29615")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) - (cons #{e 31555}# + (cons #{e 29646}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i31524")) + #("i29615")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) #(syntax-object ... @@ -26046,55 +26089,55 @@ #(ribcage #(e) #((top)) - #("i31524")) + #("i29615")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile))))))))) - #{tmp 31551}#) - (let ((#{tmp 31556}# + #{tmp 29642}#) + (let ((#{tmp 29647}# ($sc-dispatch - #{x 31549}# + #{x 29640}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 31556}# + (if (if #{tmp 29647}# (@apply - (lambda (#{id 31560}# - #{exp1 31561}# - #{var 31562}# - #{val 31563}# - #{exp2 31564}#) - (if (identifier? #{id 31560}#) - (identifier? #{var 31562}#) + (lambda (#{id 29651}# + #{exp1 29652}# + #{var 29653}# + #{val 29654}# + #{exp2 29655}#) + (if (identifier? #{id 29651}#) + (identifier? #{var 29653}#) #f)) - #{tmp 31556}#) + #{tmp 29647}#) #f) (@apply - (lambda (#{id 31565}# - #{exp1 31566}# - #{var 31567}# - #{val 31568}# - #{exp2 31569}#) + (lambda (#{id 29656}# + #{exp1 29657}# + #{var 29658}# + #{val 29659}# + #{exp2 29660}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" "i31540" "i31541" "i31542" "i31543")) + #("i29630" "i29631" "i29632" "i29633" "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26102,13 +26145,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) '(#(syntax-object x @@ -26116,13 +26159,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26130,13 +26173,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) . #(syntax-object @@ -26145,13 +26188,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26159,13 +26202,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) '#(syntax-object x @@ -26173,13 +26216,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile)) '(#(syntax-object set! @@ -26187,13 +26230,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31521"))) + #(ribcage #(x) #((top)) #("i29612"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26205,19 +26248,19 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) - #{var 31567}# - #{val 31568}#) + #{var 29658}# + #{val 29659}#) (list '#(syntax-object syntax ((top) @@ -26228,19 +26271,19 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) - #{exp2 31569}#)) - (list (cons #{id 31565}# + #{exp2 29660}#)) + (list (cons #{id 29656}# '(#(syntax-object x ((top) @@ -26251,16 +26294,16 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) #(syntax-object ... @@ -26272,16 +26315,16 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26293,18 +26336,18 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) - (cons #{exp1 31566}# + (cons #{exp1 29657}# '(#(syntax-object x ((top) @@ -26319,16 +26362,16 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) #(syntax-object ... @@ -26344,18 +26387,18 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)))))) - (list #{id 31565}# + (list #{id 29656}# (list '#(syntax-object identifier? ((top) @@ -26366,16 +26409,16 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26391,18 +26434,18 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) - #{id 31565}#)) + #{id 29656}#)) (list '#(syntax-object syntax ((top) @@ -26413,68 +26456,68 @@ (top) (top) (top)) - #("i31539" - "i31540" - "i31541" - "i31542" - "i31543")) + #("i29630" + "i29631" + "i29632" + "i29633" + "i29634")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i31521"))) + #("i29612"))) (hygiene guile)) - #{exp1 31566}#)))))) - #{tmp 31556}#) + #{exp1 29657}#)))))) + #{tmp 29647}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 31549}#)))))))) + #{x 29640}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 31601}#) - (let ((#{tmp 31603}# + (lambda (#{x 29692}#) + (let ((#{tmp 29694}# ($sc-dispatch - #{x 31601}# + #{x 29692}# '(_ (any . any) any . each-any)))) - (if #{tmp 31603}# + (if #{tmp 29694}# (@apply - (lambda (#{id 31607}# - #{args 31608}# - #{b0 31609}# - #{b1 31610}#) + (lambda (#{id 29698}# + #{args 29699}# + #{b0 29700}# + #{b1 29701}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i31583" "i31584" "i31585" "i31586")) + #("i29674" "i29675" "i29676" "i29677")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31580"))) + #(ribcage #(x) #((top)) #("i29671"))) (hygiene guile)) - #{id 31607}# + #{id 29698}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i31583" "i31584" "i31585" "i31586")) + #("i29674" "i29675" "i29676" "i29677")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31580"))) + #(ribcage #(x) #((top)) #("i29671"))) (hygiene guile)) - (cons #{args 31608}# - (cons #{b0 31609}# #{b1 31610}#))))) - #{tmp 31603}#) - (let ((#{tmp 31611}# - ($sc-dispatch #{x 31601}# '(_ any any)))) - (if (if #{tmp 31611}# + (cons #{args 29699}# + (cons #{b0 29700}# #{b1 29701}#))))) + #{tmp 29694}#) + (let ((#{tmp 29702}# + ($sc-dispatch #{x 29692}# '(_ any any)))) + (if (if #{tmp 29702}# (@apply - (lambda (#{id 31615}# #{val 31616}#) + (lambda (#{id 29706}# #{val 29707}#) (identifier? '#(syntax-object x @@ -26482,29 +26525,29 @@ #(ribcage #(id val) #((top) (top)) - #("i31593" "i31594")) + #("i29684" "i29685")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31580"))) + #(ribcage #(x) #((top)) #("i29671"))) (hygiene guile)))) - #{tmp 31611}#) + #{tmp 29702}#) #f) (@apply - (lambda (#{id 31617}# #{val 31618}#) + (lambda (#{id 29708}# #{val 29709}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i31597" "i31598")) + #("i29688" "i29689")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i31580"))) + #(ribcage #(x) #((top)) #("i29671"))) (hygiene guile)) - #{id 31617}# - #{val 31618}#)) - #{tmp 31611}#) + #{id 29708}# + #{val 29709}#)) + #{tmp 29702}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 31601}#)))))))) + #{x 29692}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index dae69ce35..1bf3c3210 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -52,7 +52,7 @@ ;;; bound-identifier=? ;;; datum->syntax ;;; define-syntax -;;; fluid-let-syntax +;;; syntax-parameterize ;;; free-identifier=? ;;; generate-temporaries ;;; identifier? @@ -1763,7 +1763,7 @@ (global-extend 'local-syntax 'letrec-syntax #t) (global-extend 'local-syntax 'let-syntax #f) - (global-extend 'core 'fluid-let-syntax + (global-extend 'core 'syntax-parameterize (lambda (e r w s mod) (syntax-case e () ((_ ((var val) ...) e1 e2 ...) @@ -1773,7 +1773,7 @@ (lambda (id n) (case (binding-type (lookup n r mod)) ((displaced-lexical) - (syntax-violation 'fluid-let-syntax + (syntax-violation 'syntax-parameterize "identifier out of context" e (source-wrap id w s mod))))) @@ -1793,7 +1793,7 @@ r) w mod))) - (_ (syntax-violation 'fluid-let-syntax "bad syntax" + (_ (syntax-violation 'syntax-parameterize "bad syntax" (source-wrap e w s mod)))))) (global-extend 'core 'quote