[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-106-g449bf
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-106-g449bf60 |
Date: |
Fri, 06 Jan 2012 18:48:12 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=449bf60b819afed8063e45dfbb9ea61280ae518f
The branch, stable-2.0 has been updated
via 449bf60b819afed8063e45dfbb9ea61280ae518f (commit)
via 286dc5e1c31090eea363e8236fd0210fde2510d9 (commit)
from 9133716faaa57babe66ea53135ce86771076fe77 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 449bf60b819afed8063e45dfbb9ea61280ae518f
Author: Andy Wingo <address@hidden>
Date: Sat Nov 5 13:53:33 2011 +0100
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.
commit 286dc5e1c31090eea363e8236fd0210fde2510d9
Author: Andy Wingo <address@hidden>
Date: Sat Nov 5 12:40:58 2011 +0100
add define-syntax-parameter, same as define-syntax
* module/ice-9/psyntax.scm (define-syntax-parameter): New toplevel form.
Will be used to implement syntax parameters, following Barzilay,
Culpepper, and Flatt's 2011 SFP workshop paper, "Keeping it Clean with
syntax-parameterize". Adds a new binding type and definition form.
Conflicts:
module/ice-9/psyntax.scm
-----------------------------------------------------------------------
Summary of changes:
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 | 49 +-
4 files changed, 11538 insertions(+), 11476 deletions(-)
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 75097b5..f661d08 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 4628bab..ef2bc24 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 a810531..ea8843b 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
@@ -11034,80 +11084,87 @@
'()))
(module-define!
(current-module)
+ 'define-syntax-parameter
+ (make-syntax-transformer
+ 'define-syntax-parameter
+ 'define-syntax-parameter
+ '()))
+ (module-define!
+ (current-module)
'eval-when
(make-syntax-transformer
'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 6ffcc2d..1bf3c32 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?
@@ -497,6 +497,7 @@
;; (begin) begin
;; (define) define
;; (define-syntax) define-syntax
+ ;; (define-syntax-parameter) define-syntax-parameter
;; (local-syntax . rec?) let-syntax/letrec-syntax
;; (eval-when) eval-when
;; (syntax . (<var> . <level>)) pattern variables
@@ -506,11 +507,11 @@
;; <level> ::= <nonnegative integer>
;; <var> ::= variable returned by build-lexical-var
- ;; a macro is a user-defined syntactic-form. a core is a system-defined
- ;; syntactic form. begin, define, define-syntax, and eval-when are
- ;; treated specially since they are sensitive to whether the form is
- ;; at top-level and (except for eval-when) can denote valid internal
- ;; definitions.
+ ;; a macro is a user-defined syntactic-form. a core is a
+ ;; system-defined syntactic form. begin, define, define-syntax,
+ ;; define-syntax-parameter, and eval-when are treated specially
+ ;; since they are sensitive to whether the form is at top-level and
+ ;; (except for eval-when) can denote valid internal definitions.
;; a pattern variable is a variable introduced by syntax-case and can
;; be referenced only within a syntax form.
@@ -941,7 +942,7 @@
(values exps))
(else
(values exps)))))))
- ((define-syntax-form)
+ ((define-syntax-form define-syntax-parameter-form)
(let ((n (id-var-name value w)) (r (macros-only-env
r)))
(case m
((c)
@@ -1058,6 +1059,7 @@
;; begin none begin keyword
;; define none define keyword
;; define-syntax none define-syntax keyword
+ ;; define-syntax-parameter none define-syntax-parameter keyword
;; local-syntax rec? letrec-syntax/let-syntax keyword
;; eval-when none eval-when keyword
;; syntax level pattern variable
@@ -1068,18 +1070,20 @@
;; begin-form none begin expression
;; define-form id variable definition
;; define-syntax-form id syntax definition
+ ;; define-syntax-parameter-form id syntax parameter definition
;; local-syntax-form rec? syntax definition
;; eval-when-form none eval-when form
;; constant none self-evaluating datum
;; other none anything else
;;
- ;; For define-form and define-syntax-form, e is the rhs expression.
- ;; For all others, e is the entire form. w is the wrap for e.
- ;; s is the source for the entire form. mod is the module for e.
+ ;; For definition forms (define-form, define-syntax-parameter-form,
+ ;; and define-syntax-form), e is the rhs expression. For all
+ ;; others, e is the entire form. w is the wrap for e. s is the
+ ;; source for the entire form. mod is the module for e.
;;
- ;; syntax-type expands macros and unwraps as necessary to get to
- ;; one of the forms above. It also parses define and define-syntax
- ;; forms, although perhaps this should be done by the consumer.
+ ;; syntax-type expands macros and unwraps as necessary to get to one
+ ;; of the forms above. It also parses definition forms, although
+ ;; perhaps this should be done by the consumer.
(define syntax-type
(lambda (e r w s rib mod for-car?)
@@ -1149,8 +1153,12 @@
(syntax-case e ()
((_ name val)
(id? #'name)
- (values 'define-syntax-form #'name
- #'val w s mod))))
+ (values 'define-syntax-form #'name #'val w s mod))))
+ ((define-syntax-parameter)
+ (syntax-case e ()
+ ((_ name val)
+ (id? #'name)
+ (values 'define-syntax-parameter-form #'name #'val w s
mod))))
(else
(values 'call #f e w s mod)))))))
((syntax-object? e)
@@ -1223,7 +1231,7 @@
(if (memq 'eval when-list)
(expand-sequence #'(e1 e2 ...) r w s mod)
(expand-void))))))
- ((define-form define-syntax-form)
+ ((define-form define-syntax-form define-syntax-parameter-form)
(syntax-violation #f "definition in expression context"
e (wrap value w mod)))
((syntax)
@@ -1378,7 +1386,7 @@
(cons id var-ids)
(cons var vars) (cons (cons er (wrap e w
mod)) vals)
(cons (make-binding 'lexical var)
bindings)))))
- ((define-syntax-form)
+ ((define-syntax-form define-syntax-parameter-form)
(let ((id (wrap value w mod)) (label (gen-label)))
(extend-ribcage! ribcage id label)
(parse (cdr body)
@@ -1755,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 ...)
@@ -1765,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)))))
@@ -1785,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
@@ -2211,6 +2219,7 @@
(global-extend 'define 'define '())
(global-extend 'define-syntax 'define-syntax '())
+ (global-extend 'define-syntax-parameter 'define-syntax-parameter '())
(global-extend 'eval-when 'eval-when '())
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-106-g449bf60,
Andy Wingo <=