|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-186-g68fcf71 |
| Date: | Wed, 25 Jan 2012 20:32:31 +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=68fcf7118923c4c2490075e18c15b4f722973987
The branch, stable-2.0 has been updated
via 68fcf7118923c4c2490075e18c15b4f722973987 (commit)
via 1ace4fbf3dcacee77540aaaa49e032bad9ed9e27 (commit)
via 3d51e57cfb0404db568a6adfde2a346d3fd9907e (commit)
from a2b62b48ab92ed1b5e5e0bcc292498abba3154cb (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 68fcf7118923c4c2490075e18c15b4f722973987
Author: Andy Wingo <address@hidden>
Date: Wed Jan 25 21:29:53 2012 +0100
new syntax procedures to (system syntax)
* module/ice-9/boot-9.scm:
* module/ice-9/psyntax.scm (syntax-module, syntax-local-binding)
(syntax-locally-bound-identifiers): After boot, move these definitions
to a new (system syntax) module.
* module/ice-9/psyntax-pp.scm: Regenerate.
* doc/ref/api-macros.texi: Add some words about syntax-module and
friends being in (system syntax).
commit 1ace4fbf3dcacee77540aaaa49e032bad9ed9e27
Author: Andy Wingo <address@hidden>
Date: Mon Jan 23 12:31:33 2012 +0100
add syntax-module
* module/ice-9/psyntax.scm (syntax-module): New accessor for syntax
objects.
* module/ice-9/psyntax-pp.scm: Regenerate.
* module/ice-9/boot-9.scm: Declare syntax-module.
* doc/ref/api-macros.texi: Document it.
commit 3d51e57cfb0404db568a6adfde2a346d3fd9907e
Author: Andy Wingo <address@hidden>
Date: Sun Jan 15 18:39:44 2012 +0100
add syntax-locally-bound-identifiers
* module/ice-9/boot-9.scm (syntax-locally-bound-identifiers): Declare
variable.
* module/ice-9/psyntax.scm: Add locally-bound-identifiers helper, and
define syntax-locally-bound-identifiers.
* module/ice-9/psyntax-pp.scm: Regenerated.
* doc/ref/api-macros.texi: Document the new procedure.
-----------------------------------------------------------------------
Summary of changes:
doc/ref/api-macros.texi | 54 +-
module/ice-9/boot-9.scm | 34 +-
module/ice-9/psyntax-pp.scm |15043 ++++++++++++++++++++++++-------------------
module/ice-9/psyntax.scm | 120 +-
4 files changed, 8469 insertions(+), 6782 deletions(-)
diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
index 4702d2f..f6a03bc 100644
--- a/doc/ref/api-macros.texi
+++ b/doc/ref/api-macros.texi
@@ -706,6 +706,23 @@ Return the source properties that correspond to the syntax
object
@var{x}. @xref{Source Properties}, for more information.
@end deffn
+Guile also offers some more experimental interfaces in a separate
+module. As was the case with the Large Hadron Collider, it is unclear
+to our senior macrologists whether adding these interfaces will result
+in awesomeness or in the destruction of Guile via the creation of a
+singularity. We will preserve their functionality through the 2.0
+series, but we reserve the right to modify them in a future stable
+series, to a more than usual degree.
+
address@hidden
+(use-modules (system syntax))
address@hidden example
+
address@hidden {Scheme Procedure} syntax-module id
+Return the name of the module whose source contains the identifier
address@hidden
address@hidden deffn
+
@deffn {Scheme Procedure} syntax-local-binding id
Resolve the identifer @var{id}, a syntax object, within the current
lexical environment, and return two values, the binding type and a
@@ -744,7 +761,7 @@ information with macros:
(define-syntax-rule (with-aux aux value)
(let ((trans value))
(set! (aux-property trans) aux)
- trans)))
+ trans))
(define-syntax retrieve-aux
(lambda (x)
(syntax-case x ()
@@ -768,6 +785,41 @@ information with macros:
a syntax transformer; to call it otherwise will signal an error.
@end deffn
address@hidden {Scheme Procedure} syntax-locally-bound-identifiers id
+Return a list of identifiers that were visible lexically when the
+identifier @var{id} was created, in order from outermost to innermost.
+
+This procedure is intended to be used in specialized procedural macros,
+to provide a macro with the set of bound identifiers that the macro can
+reference.
+
+As a technical implementation detail, the identifiers returned by
address@hidden will be anti-marked, like the
+syntax object that is given as input to a macro. This is to signal to
+the macro expander that these bindings were present in the original
+source, and do not need to be hygienically renamed, as would be the case
+with other introduced identifiers. See the discussion of hygiene in
+section 12.1 of the R6RS, for more information on marks.
+
address@hidden
+(define (local-lexicals id)
+ (filter (lambda (x)
+ (eq? (syntax-local-binding x) 'lexical))
+ (syntax-locally-bound-identifiers id)))
+(define-syntax lexicals
+ (lambda (x)
+ (syntax-case x ()
+ ((lexicals) #'(lexicals lexicals))
+ ((lexicals scope)
+ (with-syntax (((id ...) (local-lexicals #'scope)))
+ #'(list (cons 'id id) ...))))))
+
+(let* ((x 10) (x 20)) (lexicals))
address@hidden ((x . 10) (x . 20))
address@hidden example
address@hidden deffn
+
+
@node Defmacros
@subsection Lisp-style Macro Definitions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 2c87d13..39be83d 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -389,7 +389,6 @@ If there is no handler at all, Guile prints an error and
then exits."
(define generate-temporaries #f)
(define bound-identifier=? #f)
(define free-identifier=? #f)
-(define syntax-local-binding #f)
;; $sc-dispatch is an implementation detail of psyntax. It is used by
;; expanded macros, to dispatch an input against a set of patterns.
@@ -3861,12 +3860,43 @@ module '(ice-9 q) '(make-q q-length))}."
-;;; Place the user in the guile-user module.
+;;; SRFI-4 in the default environment. FIXME: we should figure out how
+;;; to deprecate this.
;;;
;; FIXME:
(module-use! the-scm-module (resolve-interface '(srfi srfi-4)))
+
+
+;;; A few identifiers that need to be defined in this file are really
+;;; internal implementation details. We shove them off into internal
+;;; modules, removing them from the (guile) module.
+;;;
+
+(define-module (system syntax))
+
+(let ()
+ (define (steal-bindings! from to ids)
+ (for-each
+ (lambda (sym)
+ (let ((v (module-local-variable from sym)))
+ (module-remove! from sym)
+ (module-add! to sym v)))
+ ids)
+ (module-export! to ids))
+
+ (steal-bindings! the-root-module (resolve-module '(system syntax))
+ '(syntax-local-binding
+ syntax-module
+ syntax-locally-bound-identifiers)))
+
+
+
+
+;;; Place the user in the guile-user module.
+;;;
+
;; Set filename to #f to prevent reload.
(define-module (guile-user)
#:autoload (system base compile) (compile compile-file)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index b1f1d12..d616c7f 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,1246 +1,1541 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((#{gen-label 2745}# (if #f #f))
- (#{transformer-environment 2764}# (if #f #f)))
+(let ((#{gen-label -ANAU$bmvAmthP7L7xwnNi}# (if #f #f))
+ (#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
+ (if #f #f)))
(letrec*
- ((#{top-level-eval-hook 2703}#
- (lambda (#{x 24076}# #{mod 24077}#)
- (primitive-eval #{x 24076}#)))
- (#{get-global-definition-hook 2706}#
- (lambda (#{symbol 13606}# #{module 13607}#)
+ ((#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwsuQ}#
+ #{mod -ANAU$bmvAmthP7L7xwsuR}#)
+ (primitive-eval #{x -ANAU$bmvAmthP7L7xwsuQ}#)))
+ (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
+ (lambda (#{symbol -ANAU$bmvAmthP7L7xwp7A}#
+ #{module -ANAU$bmvAmthP7L7xwp7B}#)
(begin
- (if (if (not #{module 13607}#) (current-module) #f)
+ (if (if (not #{module -ANAU$bmvAmthP7L7xwp7B}#)
+ (current-module)
+ #f)
(warn "module system is booted, we should have a module"
- #{symbol 13606}#))
- (let ((#{v 13608}#
+ #{symbol -ANAU$bmvAmthP7L7xwp7A}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwp7C}#
(module-variable
- (if #{module 13607}#
- (resolve-module (cdr #{module 13607}#))
+ (if #{module -ANAU$bmvAmthP7L7xwp7B}#
+ (resolve-module
+ (cdr #{module -ANAU$bmvAmthP7L7xwp7B}#))
(current-module))
- #{symbol 13606}#)))
- (if #{v 13608}#
- (if (variable-bound? #{v 13608}#)
- (let ((#{val 13610}# (variable-ref #{v 13608}#)))
- (if (macro? #{val 13610}#)
- (if (macro-type #{val 13610}#)
- (cons (macro-type #{val 13610}#)
- (macro-binding #{val 13610}#))
+ #{symbol -ANAU$bmvAmthP7L7xwp7A}#)))
+ (if #{v -ANAU$bmvAmthP7L7xwp7C}#
+ (if (variable-bound? #{v -ANAU$bmvAmthP7L7xwp7C}#)
+ (let ((#{val -ANAU$bmvAmthP7L7xwp7E}#
+ (variable-ref #{v -ANAU$bmvAmthP7L7xwp7C}#)))
+ (if (macro? #{val -ANAU$bmvAmthP7L7xwp7E}#)
+ (if (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#)
+ (cons (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#)
+ (macro-binding #{val -ANAU$bmvAmthP7L7xwp7E}#))
#f)
#f))
#f)
#f)))))
- (#{maybe-name-value! 2708}#
- (lambda (#{name 13887}# #{val 13888}#)
- (if (if (struct? #{val 13888}#)
- (eq? (struct-vtable #{val 13888}#)
+ (#{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
+ (lambda (#{name address@hidden
+ #{val address@hidden)
+ (if (if (struct? #{val address@hidden)
+ (eq? (struct-vtable #{val address@hidden)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13895}# (struct-ref #{val 13888}# 1)))
- (if (not (assq 'name #{meta 13895}#))
- (let ((#{v 13900}#
- (cons (cons 'name #{name 13887}#) #{meta 13895}#)))
- (struct-set! #{val 13888}# 1 #{v 13900}#)))))))
- (#{build-application 2710}#
- (lambda (#{source 13612}#
- #{fun-exp 13613}#
- #{arg-exps 13614}#)
+ (let ((#{meta address@hidden
+ (struct-ref #{val address@hidden 1)))
+ (if (not (assq 'name #{meta address@hidden))
+ (let ((#{v address@hidden
+ (cons (cons 'name #{name address@hidden)
+ #{meta address@hidden)))
+ (struct-set!
+ #{val address@hidden
+ 1
+ #{v address@hidden)))))))
+ (#{build-application address@hidden
+ (lambda (#{source -ANAU$bmvAmthP7L7xwp7G}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwp7H}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 13612}#
- #{fun-exp 13613}#
- #{arg-exps 13614}#)))
- (#{build-conditional 2711}#
- (lambda (#{source 13620}#
- #{test-exp 13621}#
- #{then-exp 13622}#
- #{else-exp 13623}#)
+ #{source -ANAU$bmvAmthP7L7xwp7G}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwp7H}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#)))
+ (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
+ (lambda (#{source -ANAU$bmvAmthP7L7xwp7O}#
+ #{test-exp -ANAU$bmvAmthP7L7xwp7P}#
+ #{then-exp -ANAU$bmvAmthP7L7xwp7Q}#
+ #{else-exp -ANAU$bmvAmthP7L7xwp7R}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 13620}#
- #{test-exp 13621}#
- #{then-exp 13622}#
- #{else-exp 13623}#)))
- (#{build-dynlet 2712}#
- (lambda (#{source 13630}#
- #{fluids 13631}#
- #{vals 13632}#
- #{body 13633}#)
+ #{source -ANAU$bmvAmthP7L7xwp7O}#
+ #{test-exp -ANAU$bmvAmthP7L7xwp7P}#
+ #{then-exp -ANAU$bmvAmthP7L7xwp7Q}#
+ #{else-exp -ANAU$bmvAmthP7L7xwp7R}#)))
+ (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}#
+ (lambda (#{source -ANAU$bmvAmthP7L7xwp7Y}#
+ #{fluids -ANAU$bmvAmthP7L7xwp7Z}#
+ #{vals -ANAU$bmvAmthP7L7xwp7a}#
+ #{body -ANAU$bmvAmthP7L7xwp7b}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source 13630}#
- #{fluids 13631}#
- #{vals 13632}#
- #{body 13633}#)))
- (#{build-lexical-reference 2713}#
- (lambda (#{type 24078}#
- #{source 24079}#
- #{name 24080}#
- #{var 24081}#)
+ #{source -ANAU$bmvAmthP7L7xwp7Y}#
+ #{fluids -ANAU$bmvAmthP7L7xwp7Z}#
+ #{vals -ANAU$bmvAmthP7L7xwp7a}#
+ #{body -ANAU$bmvAmthP7L7xwp7b}#)))
+ (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}#
+ (lambda (#{type -ANAU$bmvAmthP7L7xwsuS}#
+ #{source -ANAU$bmvAmthP7L7xwsuT}#
+ #{name -ANAU$bmvAmthP7L7xwsuU}#
+ #{var -ANAU$bmvAmthP7L7xwsuV}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 24079}#
- #{name 24080}#
- #{var 24081}#)))
- (#{build-lexical-assignment 2714}#
- (lambda (#{source 13640}#
- #{name 13641}#
- #{var 13642}#
- #{exp 13643}#)
+ #{source -ANAU$bmvAmthP7L7xwsuT}#
+ #{name -ANAU$bmvAmthP7L7xwsuU}#
+ #{var -ANAU$bmvAmthP7L7xwsuV}#)))
+ (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}#
+ (lambda (#{source -ANAU$bmvAmthP7L7xwp7i}#
+ #{name -ANAU$bmvAmthP7L7xwp7j}#
+ #{var -ANAU$bmvAmthP7L7xwp7k}#
+ #{exp -ANAU$bmvAmthP7L7xwp7l}#)
(begin
- (if (if (struct? #{exp 13643}#)
- (eq? (struct-vtable #{exp 13643}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp7l}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp7l}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13659}# (struct-ref #{exp 13643}# 1)))
- (if (not (assq 'name #{meta 13659}#))
- (let ((#{v 13666}#
- (cons (cons 'name #{name 13641}#) #{meta 13659}#)))
- (struct-set! #{exp 13643}# 1 #{v 13666}#)))))
+ (let ((#{meta -ANAU$bmvAmthP7L7xwp71}#
+ (struct-ref #{exp -ANAU$bmvAmthP7L7xwp7l}# 1)))
+ (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp71}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwp78}#
+ (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp7j}#)
+ #{meta -ANAU$bmvAmthP7L7xwp71}#)))
+ (struct-set!
+ #{exp -ANAU$bmvAmthP7L7xwp7l}#
+ 1
+ #{v -ANAU$bmvAmthP7L7xwp78}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 13640}#
- #{name 13641}#
- #{var 13642}#
- #{exp 13643}#))))
- (#{analyze-variable 2715}#
- (lambda (#{mod 24087}#
- #{var 24088}#
- #{modref-cont 24089}#
- #{bare-cont 24090}#)
- (if (not #{mod 24087}#)
- (#{bare-cont 24090}# #{var 24088}#)
- (let ((#{kind 24091}# (car #{mod 24087}#))
- (#{mod 24092}# (cdr #{mod 24087}#)))
- (if (eqv? #{kind 24091}# 'public)
- (#{modref-cont 24089}#
- #{mod 24092}#
- #{var 24088}#
+ #{source -ANAU$bmvAmthP7L7xwp7i}#
+ #{name -ANAU$bmvAmthP7L7xwp7j}#
+ #{var -ANAU$bmvAmthP7L7xwp7k}#
+ #{exp -ANAU$bmvAmthP7L7xwp7l}#))))
+ (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwsub}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#
+ #{modref-cont -ANAU$bmvAmthP7L7xwsud}#
+ #{bare-cont -ANAU$bmvAmthP7L7xwsue}#)
+ (if (not #{mod -ANAU$bmvAmthP7L7xwsub}#)
+ (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#)
+ (let ((#{kind -ANAU$bmvAmthP7L7xwsuf}#
+ (car #{mod -ANAU$bmvAmthP7L7xwsub}#))
+ (#{mod -ANAU$bmvAmthP7L7xwsug}#
+ (cdr #{mod -ANAU$bmvAmthP7L7xwsub}#)))
+ (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'public)
+ (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#
#t)
- (if (eqv? #{kind 24091}# 'private)
+ (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'private)
(if (not (equal?
- #{mod 24092}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
(module-name (current-module))))
- (#{modref-cont 24089}#
- #{mod 24092}#
- #{var 24088}#
+ (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#
#f)
- (#{bare-cont 24090}# #{var 24088}#))
- (if (eqv? #{kind 24091}# 'bare)
- (#{bare-cont 24090}# #{var 24088}#)
- (if (eqv? #{kind 24091}# 'hygiene)
+ (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#))
+ (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'bare)
+ (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#)
+ (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'hygiene)
(if (if (not (equal?
- #{mod 24092}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 24092}#)
- #{var 24088}#)
+ (resolve-module #{mod -ANAU$bmvAmthP7L7xwsug}#)
+ #{var -ANAU$bmvAmthP7L7xwsuc}#)
#f)
- (#{modref-cont 24089}#
- #{mod 24092}#
- #{var 24088}#
+ (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#
#f)
- (#{bare-cont 24090}# #{var 24088}#))
+ (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#))
(syntax-violation
#f
"bad module kind"
- #{var 24088}#
- #{mod 24092}#)))))))))
- (#{build-global-reference 2716}#
- (lambda (#{source 24107}# #{var 24108}# #{mod 24109}#)
- (#{analyze-variable 2715}#
- #{mod 24109}#
- #{var 24108}#
- (lambda (#{mod 24112}# #{var 24113}# #{public? 24114}#)
+ #{var -ANAU$bmvAmthP7L7xwsuc}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#)))))))))
+ (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}#
+ (lambda (#{source -ANAU$bmvAmthP7L7xwsuv}#
+ #{var -ANAU$bmvAmthP7L7xwsuw}#
+ #{mod -ANAU$bmvAmthP7L7xwsux}#)
+ (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
+ #{mod -ANAU$bmvAmthP7L7xwsux}#
+ #{var -ANAU$bmvAmthP7L7xwsuw}#
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwsu0}#
+ #{var -ANAU$bmvAmthP7L7xwsu1}#
+ #{public? -ANAU$bmvAmthP7L7xwsu2}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 24107}#
- #{mod 24112}#
- #{var 24113}#
- #{public? 24114}#))
- (lambda (#{var 24122}#)
+ #{source -ANAU$bmvAmthP7L7xwsuv}#
+ #{mod -ANAU$bmvAmthP7L7xwsu0}#
+ #{var -ANAU$bmvAmthP7L7xwsu1}#
+ #{public? -ANAU$bmvAmthP7L7xwsu2}#))
+ (lambda (#{var -ANAU$bmvAmthP7L7xwsu$}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 24107}#
- #{var 24122}#)))))
- (#{build-global-assignment 2717}#
- (lambda (#{source 13675}#
- #{var 13676}#
- #{exp 13677}#
- #{mod 13678}#)
+ #{source -ANAU$bmvAmthP7L7xwsuv}#
+ #{var -ANAU$bmvAmthP7L7xwsu$}#)))))
+ (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
+ (lambda (#{source -ANAU$bmvAmthP7L7xwp8F}#
+ #{var -ANAU$bmvAmthP7L7xwp8G}#
+ #{exp -ANAU$bmvAmthP7L7xwp8H}#
+ #{mod -ANAU$bmvAmthP7L7xwp8I}#)
(begin
- (if (if (struct? #{exp 13677}#)
- (eq? (struct-vtable #{exp 13677}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp8H}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp8H}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13694}# (struct-ref #{exp 13677}# 1)))
- (if (not (assq 'name #{meta 13694}#))
- (let ((#{v 13701}#
- (cons (cons 'name #{var 13676}#) #{meta 13694}#)))
- (struct-set! #{exp 13677}# 1 #{v 13701}#)))))
- (#{analyze-variable 2715}#
- #{mod 13678}#
- #{var 13676}#
- (lambda (#{mod 13706}# #{var 13707}# #{public? 13708}#)
+ (let ((#{meta -ANAU$bmvAmthP7L7xwp8Y}#
+ (struct-ref #{exp -ANAU$bmvAmthP7L7xwp8H}# 1)))
+ (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp8Y}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwp8f}#
+ (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwp8G}#)
+ #{meta -ANAU$bmvAmthP7L7xwp8Y}#)))
+ (struct-set!
+ #{exp -ANAU$bmvAmthP7L7xwp8H}#
+ 1
+ #{v -ANAU$bmvAmthP7L7xwp8f}#)))))
+ (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
+ #{mod -ANAU$bmvAmthP7L7xwp8I}#
+ #{var -ANAU$bmvAmthP7L7xwp8G}#
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwp8k}#
+ #{var -ANAU$bmvAmthP7L7xwp8l}#
+ #{public? -ANAU$bmvAmthP7L7xwp8m}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 13675}#
- #{mod 13706}#
- #{var 13707}#
- #{public? 13708}#
- #{exp 13677}#))
- (lambda (#{var 13716}#)
+ #{source -ANAU$bmvAmthP7L7xwp8F}#
+ #{mod -ANAU$bmvAmthP7L7xwp8k}#
+ #{var -ANAU$bmvAmthP7L7xwp8l}#
+ #{public? -ANAU$bmvAmthP7L7xwp8m}#
+ #{exp -ANAU$bmvAmthP7L7xwp8H}#))
+ (lambda (#{var -ANAU$bmvAmthP7L7xwp8u}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 13675}#
- #{var 13716}#
- #{exp 13677}#))))))
- (#{build-global-definition 2718}#
- (lambda (#{source 24128}# #{var 24129}# #{exp 24130}#)
+ #{source -ANAU$bmvAmthP7L7xwp8F}#
+ #{var -ANAU$bmvAmthP7L7xwp8u}#
+ #{exp -ANAU$bmvAmthP7L7xwp8H}#))))))
+ (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
+ (lambda (#{source -ANAU$bmvAmthP7L7xwsvE}#
+ #{var -ANAU$bmvAmthP7L7xwsvF}#
+ #{exp -ANAU$bmvAmthP7L7xwsvG}#)
(begin
- (if (if (struct? #{exp 24130}#)
- (eq? (struct-vtable #{exp 24130}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwsvG}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwsvG}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 24146}# (struct-ref #{exp 24130}# 1)))
- (if (not (assq 'name #{meta 24146}#))
- (let ((#{v 24153}#
- (cons (cons 'name #{var 24129}#) #{meta 24146}#)))
- (struct-set! #{exp 24130}# 1 #{v 24153}#)))))
+ (let ((#{meta -ANAU$bmvAmthP7L7xwsvW}#
+ (struct-ref #{exp -ANAU$bmvAmthP7L7xwsvG}# 1)))
+ (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwsvW}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwsvd}#
+ (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwsvF}#)
+ #{meta -ANAU$bmvAmthP7L7xwsvW}#)))
+ (struct-set!
+ #{exp -ANAU$bmvAmthP7L7xwsvG}#
+ 1
+ #{v -ANAU$bmvAmthP7L7xwsvd}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 24128}#
- #{var 24129}#
- #{exp 24130}#))))
- (#{build-simple-lambda 2719}#
- (lambda (#{src 13722}#
- #{req 13723}#
- #{rest 13724}#
- #{vars 13725}#
- #{meta 13726}#
- #{exp 13727}#)
- (let ((#{body 13733}#
+ #{source -ANAU$bmvAmthP7L7xwsvE}#
+ #{var -ANAU$bmvAmthP7L7xwsvF}#
+ #{exp -ANAU$bmvAmthP7L7xwsvG}#))))
+ (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
+ (lambda (#{src -ANAU$bmvAmthP7L7xwp80}#
+ #{req -ANAU$bmvAmthP7L7xwp81}#
+ #{rest -ANAU$bmvAmthP7L7xwp82}#
+ #{vars -ANAU$bmvAmthP7L7xwp83}#
+ #{meta -ANAU$bmvAmthP7L7xwp84}#
+ #{exp -ANAU$bmvAmthP7L7xwp85}#)
+ (let ((#{body address@hidden
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 13722}#
- #{req 13723}#
+ #{src -ANAU$bmvAmthP7L7xwp80}#
+ #{req -ANAU$bmvAmthP7L7xwp81}#
#f
- #{rest 13724}#
+ #{rest -ANAU$bmvAmthP7L7xwp82}#
#f
'()
- #{vars 13725}#
- #{exp 13727}#
+ #{vars -ANAU$bmvAmthP7L7xwp83}#
+ #{exp -ANAU$bmvAmthP7L7xwp85}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 13722}#
- #{meta 13726}#
- #{body 13733}#))))
- (#{build-sequence 2724}#
- (lambda (#{src 24161}# #{exps 24162}#)
- (if (null? (cdr #{exps 24162}#))
- (car #{exps 24162}#)
+ #{src -ANAU$bmvAmthP7L7xwp80}#
+ #{meta -ANAU$bmvAmthP7L7xwp84}#
+ #{body address@hidden))))
+ (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
+ (lambda (#{src -ANAU$bmvAmthP7L7xwsvl}#
+ #{exps -ANAU$bmvAmthP7L7xwsvm}#)
+ (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwsvm}#))
+ (car #{exps -ANAU$bmvAmthP7L7xwsvm}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 24161}#
- #{exps 24162}#))))
- (#{build-let 2725}#
- (lambda (#{src 13745}#
- #{ids 13746}#
- #{vars 13747}#
- #{val-exps 13748}#
- #{body-exp 13749}#)
+ #{src -ANAU$bmvAmthP7L7xwsvl}#
+ #{exps -ANAU$bmvAmthP7L7xwsvm}#))))
+ (#{build-let -ANAU$bmvAmthP7L7xwnNO}#
+ (lambda (#{src -ANAU$bmvAmthP7L7xwp9L}#
+ #{ids -ANAU$bmvAmthP7L7xwp9M}#
+ #{vars -ANAU$bmvAmthP7L7xwp9N}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp9O}#
+ #{body-exp -ANAU$bmvAmthP7L7xwp9P}#)
(begin
(for-each
- #{maybe-name-value! 2708}#
- #{ids 13746}#
- #{val-exps 13748}#)
- (if (null? #{vars 13747}#)
- #{body-exp 13749}#
+ #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
+ #{ids -ANAU$bmvAmthP7L7xwp9M}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp9O}#)
+ (if (null? #{vars -ANAU$bmvAmthP7L7xwp9N}#)
+ #{body-exp -ANAU$bmvAmthP7L7xwp9P}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 13745}#
- #{ids 13746}#
- #{vars 13747}#
- #{val-exps 13748}#
- #{body-exp 13749}#)))))
- (#{build-named-let 2726}#
- (lambda (#{src 13773}#
- #{ids 13774}#
- #{vars 13775}#
- #{val-exps 13776}#
- #{body-exp 13777}#)
- (let ((#{f 13778}# (car #{vars 13775}#))
- (#{f-name 13779}# (car #{ids 13774}#))
- (#{vars 13780}# (cdr #{vars 13775}#))
- (#{ids 13781}# (cdr #{ids 13774}#)))
- (let ((#{proc 13782}#
- (let ((#{body 13802}#
+ #{src -ANAU$bmvAmthP7L7xwp9L}#
+ #{ids -ANAU$bmvAmthP7L7xwp9M}#
+ #{vars -ANAU$bmvAmthP7L7xwp9N}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp9O}#
+ #{body-exp -ANAU$bmvAmthP7L7xwp9P}#)))))
+ (#{build-named-let -ANAU$bmvAmthP7L7xwnNP}#
+ (lambda (#{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{ids -ANAU$bmvAmthP7L7xwp9o}#
+ #{vars -ANAU$bmvAmthP7L7xwp9p}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp9q}#
+ #{body-exp -ANAU$bmvAmthP7L7xwp9r}#)
+ (let ((#{f -ANAU$bmvAmthP7L7xwp9s}#
+ (car #{vars -ANAU$bmvAmthP7L7xwp9p}#))
+ (#{f-name -ANAU$bmvAmthP7L7xwp9t}#
+ (car #{ids -ANAU$bmvAmthP7L7xwp9o}#))
+ (#{vars -ANAU$bmvAmthP7L7xwp9u}#
+ (cdr #{vars -ANAU$bmvAmthP7L7xwp9p}#))
+ (#{ids -ANAU$bmvAmthP7L7xwp9v}#
+ (cdr #{ids -ANAU$bmvAmthP7L7xwp9o}#)))
+ (let ((#{proc -ANAU$bmvAmthP7L7xwp9w}#
+ (let ((#{body -ANAU$bmvAmthP7L7xwp$E}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 13773}#
- #{ids 13781}#
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{ids -ANAU$bmvAmthP7L7xwp9v}#
#f
#f
#f
'()
- #{vars 13780}#
- #{body-exp 13777}#
+ #{vars -ANAU$bmvAmthP7L7xwp9u}#
+ #{body-exp -ANAU$bmvAmthP7L7xwp9r}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 13773}#
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
'()
- #{body 13802}#))))
+ #{body -ANAU$bmvAmthP7L7xwp$E}#))))
(begin
- (if (if (struct? #{proc 13782}#)
- (eq? (struct-vtable #{proc 13782}#)
+ (if (if (struct? #{proc -ANAU$bmvAmthP7L7xwp9w}#)
+ (eq? (struct-vtable #{proc -ANAU$bmvAmthP7L7xwp9w}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13826}# (struct-ref #{proc 13782}# 1)))
- (if (not (assq 'name #{meta 13826}#))
- (let ((#{v 13833}#
- (cons (cons 'name #{f-name 13779}#)
- #{meta 13826}#)))
- (struct-set! #{proc 13782}# 1 #{v 13833}#)))))
+ (let ((#{meta -ANAU$bmvAmthP7L7xwp$c}#
+ (struct-ref #{proc -ANAU$bmvAmthP7L7xwp9w}# 1)))
+ (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp$c}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwp$j}#
+ (cons (cons 'name
+ #{f-name -ANAU$bmvAmthP7L7xwp9t}#)
+ #{meta -ANAU$bmvAmthP7L7xwp$c}#)))
+ (struct-set!
+ #{proc -ANAU$bmvAmthP7L7xwp9w}#
+ 1
+ #{v -ANAU$bmvAmthP7L7xwp$j}#)))))
(for-each
- #{maybe-name-value! 2708}#
- #{ids 13781}#
- #{val-exps 13776}#)
- (let ((#{names 13857}# (list #{f-name 13779}#))
- (#{gensyms 13858}# (list #{f 13778}#))
- (#{vals 13859}# (list #{proc 13782}#))
- (#{body 13860}#
- (let ((#{fun-exp 13864}#
+ #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
+ #{ids -ANAU$bmvAmthP7L7xwp9v}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp9q}#)
+ (let ((#{names -ANAU$bmvAmthP7L7xwp$7}#
+ (list #{f-name -ANAU$bmvAmthP7L7xwp9t}#))
+ (#{gensyms -ANAU$bmvAmthP7L7xwp$8}#
+ (list #{f -ANAU$bmvAmthP7L7xwp9s}#))
+ (#{vals -ANAU$bmvAmthP7L7xwp$9}#
+ (list #{proc -ANAU$bmvAmthP7L7xwp9w}#))
+ (#{body -ANAU$bmvAmthP7L7xwp$$}#
+ (let ((#{fun-exp address@hidden
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 13773}#
- #{f-name 13779}#
- #{f 13778}#)))
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{f-name -ANAU$bmvAmthP7L7xwp9t}#
+ #{f -ANAU$bmvAmthP7L7xwp9s}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 13773}#
- #{fun-exp 13864}#
- #{val-exps 13776}#))))
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{fun-exp address@hidden
+ #{val-exps -ANAU$bmvAmthP7L7xwp9q}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 13773}#
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
#f
- #{names 13857}#
- #{gensyms 13858}#
- #{vals 13859}#
- #{body 13860}#)))))))
- (#{build-letrec 2727}#
- (lambda (#{src 13880}#
- #{in-order? 13881}#
- #{ids 13882}#
- #{vars 13883}#
- #{val-exps 13884}#
- #{body-exp 13885}#)
- (if (null? #{vars 13883}#)
- #{body-exp 13885}#
+ #{names -ANAU$bmvAmthP7L7xwp$7}#
+ #{gensyms -ANAU$bmvAmthP7L7xwp$8}#
+ #{vals -ANAU$bmvAmthP7L7xwp$9}#
+ #{body -ANAU$bmvAmthP7L7xwp$$}#)))))))
+ (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
+ (lambda (#{src address@hidden
+ #{in-order? address@hidden
+ #{ids address@hidden
+ #{vars address@hidden
+ #{val-exps address@hidden
+ #{body-exp address@hidden)
+ (if (null? #{vars address@hidden)
+ #{body-exp address@hidden
(begin
(for-each
- #{maybe-name-value! 2708}#
- #{ids 13882}#
- #{val-exps 13884}#)
+ #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
+ #{ids address@hidden
+ #{val-exps address@hidden)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 13880}#
- #{in-order? 13881}#
- #{ids 13882}#
- #{vars 13883}#
- #{val-exps 13884}#
- #{body-exp 13885}#)))))
- (#{source-annotation 2736}#
- (lambda (#{x 13911}#)
- (if (if (vector? #{x 13911}#)
- (if (= (vector-length #{x 13911}#) 4)
- (eq? (vector-ref #{x 13911}# 0) 'syntax-object)
+ #{src address@hidden
+ #{in-order? address@hidden
+ #{ids address@hidden
+ #{vars address@hidden
+ #{val-exps address@hidden
+ #{body-exp address@hidden)))))
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ (lambda (#{x address@hidden)
+ (if (if (vector? #{x address@hidden)
+ (if (= (vector-length #{x address@hidden)
+ 4)
+ (eq? (vector-ref #{x address@hidden 0)
+ 'syntax-object)
#f)
#f)
- (#{source-annotation 2736}#
- (vector-ref #{x 13911}# 1))
- (if (pair? #{x 13911}#)
- (let ((#{props 13926}# (source-properties #{x 13911}#)))
- (if (pair? #{props 13926}#) #{props 13926}# #f))
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ (vector-ref #{x address@hidden 1))
+ (if (pair? #{x address@hidden)
+ (let ((#{props -ANAU$bmvAmthP7L7xwqAA}#
+ (source-properties #{x address@hidden)))
+ (if (pair? #{props -ANAU$bmvAmthP7L7xwqAA}#)
+ #{props -ANAU$bmvAmthP7L7xwqAA}#
+ #f))
#f))))
- (#{extend-env 2737}#
- (lambda (#{labels 13928}# #{bindings 13929}# #{r 13930}#)
- (if (null? #{labels 13928}#)
- #{r 13930}#
- (#{extend-env 2737}#
- (cdr #{labels 13928}#)
- (cdr #{bindings 13929}#)
- (cons (cons (car #{labels 13928}#)
- (car #{bindings 13929}#))
- #{r 13930}#)))))
- (#{extend-var-env 2738}#
- (lambda (#{labels 13931}# #{vars 13932}# #{r 13933}#)
- (if (null? #{labels 13931}#)
- #{r 13933}#
- (#{extend-var-env 2738}#
- (cdr #{labels 13931}#)
- (cdr #{vars 13932}#)
- (cons (cons (car #{labels 13931}#)
- (cons 'lexical (car #{vars 13932}#)))
- #{r 13933}#)))))
- (#{macros-only-env 2739}#
- (lambda (#{r 13934}#)
- (if (null? #{r 13934}#)
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ (lambda (#{labels -ANAU$bmvAmthP7L7xwqAC}#
+ #{bindings -ANAU$bmvAmthP7L7xwqAD}#
+ #{r -ANAU$bmvAmthP7L7xwqAE}#)
+ (if (null? #{labels -ANAU$bmvAmthP7L7xwqAC}#)
+ #{r -ANAU$bmvAmthP7L7xwqAE}#
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ (cdr #{labels -ANAU$bmvAmthP7L7xwqAC}#)
+ (cdr #{bindings -ANAU$bmvAmthP7L7xwqAD}#)
+ (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAC}#)
+ (car #{bindings -ANAU$bmvAmthP7L7xwqAD}#))
+ #{r -ANAU$bmvAmthP7L7xwqAE}#)))))
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ (lambda (#{labels -ANAU$bmvAmthP7L7xwqAF}#
+ #{vars -ANAU$bmvAmthP7L7xwqAG}#
+ #{r -ANAU$bmvAmthP7L7xwqAH}#)
+ (if (null? #{labels -ANAU$bmvAmthP7L7xwqAF}#)
+ #{r -ANAU$bmvAmthP7L7xwqAH}#
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ (cdr #{labels -ANAU$bmvAmthP7L7xwqAF}#)
+ (cdr #{vars -ANAU$bmvAmthP7L7xwqAG}#)
+ (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAF}#)
+ (cons 'lexical
+ (car #{vars -ANAU$bmvAmthP7L7xwqAG}#)))
+ #{r -ANAU$bmvAmthP7L7xwqAH}#)))))
+ (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ (lambda (#{r -ANAU$bmvAmthP7L7xwqAI}#)
+ (if (null? #{r -ANAU$bmvAmthP7L7xwqAI}#)
'()
- (let ((#{a 13935}# (car #{r 13934}#)))
- (if (eq? (car (cdr #{a 13935}#)) 'macro)
- (cons #{a 13935}#
- (#{macros-only-env 2739}# (cdr #{r 13934}#)))
- (#{macros-only-env 2739}# (cdr #{r 13934}#)))))))
- (#{global-extend 2741}#
- (lambda (#{type 13937}# #{sym 13938}# #{val 13939}#)
+ (let ((#{a -ANAU$bmvAmthP7L7xwqAJ}#
+ (car #{r -ANAU$bmvAmthP7L7xwqAI}#)))
+ (if (eq? (car (cdr #{a -ANAU$bmvAmthP7L7xwqAJ}#))
+ 'macro)
+ (cons #{a -ANAU$bmvAmthP7L7xwqAJ}#
+ (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#)))
+ (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#)))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (lambda (#{type -ANAU$bmvAmthP7L7xwqAL}#
+ #{sym -ANAU$bmvAmthP7L7xwqAM}#
+ #{val -ANAU$bmvAmthP7L7xwqAN}#)
(module-define!
(current-module)
- #{sym 13938}#
+ #{sym -ANAU$bmvAmthP7L7xwqAM}#
(make-syntax-transformer
- #{sym 13938}#
- #{type 13937}#
- #{val 13939}#))))
- (#{id? 2743}#
- (lambda (#{x 8002}#)
- (if (symbol? #{x 8002}#)
+ #{sym -ANAU$bmvAmthP7L7xwqAM}#
+ #{type -ANAU$bmvAmthP7L7xwqAL}#
+ #{val -ANAU$bmvAmthP7L7xwqAN}#))))
+ (#{id? -ANAU$bmvAmthP7L7xwnNg}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwofs}#)
+ (if (symbol? #{x -ANAU$bmvAmthP7L7xwofs}#)
#t
- (if (if (vector? #{x 8002}#)
- (if (= (vector-length #{x 8002}#) 4)
- (eq? (vector-ref #{x 8002}# 0) 'syntax-object)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwofs}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwofs}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 8002}# 1))
+ (symbol?
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 1))
#f))))
- (#{gen-labels 2746}#
- (lambda (#{ls 13952}#)
- (if (null? #{ls 13952}#)
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ (lambda (#{ls -ANAU$bmvAmthP7L7xwqAa}#)
+ (if (null? #{ls -ANAU$bmvAmthP7L7xwqAa}#)
'()
- (cons (#{gen-label 2745}#)
- (#{gen-labels 2746}# (cdr #{ls 13952}#))))))
- (#{make-binding-wrap 2757}#
- (lambda (#{ids 13953}# #{labels 13954}# #{w 13955}#)
- (if (null? #{ids 13953}#)
- #{w 13955}#
- (cons (car #{w 13955}#)
- (cons (let ((#{labelvec 13956}#
- (list->vector #{labels 13954}#)))
- (let ((#{n 13957}#
- (vector-length #{labelvec 13956}#)))
- (let ((#{symnamevec 13958}#
- (make-vector #{n 13957}#))
- (#{marksvec 13959}#
- (make-vector #{n 13957}#)))
+ (cons (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#)
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ (cdr #{ls -ANAU$bmvAmthP7L7xwqAa}#))))))
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqAb}#
+ #{labels -ANAU$bmvAmthP7L7xwqAc}#
+ #{w -ANAU$bmvAmthP7L7xwqAd}#)
+ (if (null? #{ids -ANAU$bmvAmthP7L7xwqAb}#)
+ #{w -ANAU$bmvAmthP7L7xwqAd}#
+ (cons (car #{w -ANAU$bmvAmthP7L7xwqAd}#)
+ (cons (let ((#{labelvec -ANAU$bmvAmthP7L7xwqAe}#
+ (list->vector
+ #{labels -ANAU$bmvAmthP7L7xwqAc}#)))
+ (let ((#{n -ANAU$bmvAmthP7L7xwqAf}#
+ (vector-length
+ #{labelvec -ANAU$bmvAmthP7L7xwqAe}#)))
+ (let ((#{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
+ (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#))
+ (#{marksvec -ANAU$bmvAmthP7L7xwqAh}#
+ (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#)))
(begin
(letrec*
- ((#{f 13960}#
- (lambda (#{ids 13963}# #{i 13964}#)
- (if (not (null? #{ids 13963}#))
+ ((#{f -ANAU$bmvAmthP7L7xwqAi}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqAl}#
+ #{i -ANAU$bmvAmthP7L7xwqAm}#)
+ (if (not (null? #{ids
-ANAU$bmvAmthP7L7xwqAl}#))
(call-with-values
(lambda ()
- (let ((#{x 13967}#
- (car #{ids 13963}#)))
- (if (if (vector? #{x 13967}#)
+ (let ((#{x -ANAU$bmvAmthP7L7xwqAp}#
+ (car #{ids
-ANAU$bmvAmthP7L7xwqAl}#)))
+ (if (if (vector?
+ #{x
-ANAU$bmvAmthP7L7xwqAp}#)
(if (= (vector-length
- #{x 13967}#)
+ #{x
-ANAU$bmvAmthP7L7xwqAp}#)
4)
(eq? (vector-ref
- #{x 13967}#
+ #{x
-ANAU$bmvAmthP7L7xwqAp}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 13967}# 1)
- (let ((#{m1 13983}#
- (car #{w 13955}#))
- (#{m2 13984}#
+ (vector-ref
+ #{x
-ANAU$bmvAmthP7L7xwqAp}#
+ 1)
+ (let ((#{m1
-ANAU$bmvAmthP7L7xwqA5}#
+ (car #{w
-ANAU$bmvAmthP7L7xwqAd}#))
+ (#{m2
-ANAU$bmvAmthP7L7xwqA6}#
(car (vector-ref
- #{x 13967}#
+ #{x
-ANAU$bmvAmthP7L7xwqAp}#
2))))
- (if (null? #{m2 13984}#)
- #{m1 13983}#
+ (if (null? #{m2
-ANAU$bmvAmthP7L7xwqA6}#)
+ #{m1
-ANAU$bmvAmthP7L7xwqA5}#
(append
- #{m1 13983}#
- #{m2 13984}#))))
+ #{m1
-ANAU$bmvAmthP7L7xwqA5}#
+ #{m2
-ANAU$bmvAmthP7L7xwqA6}#))))
(values
- #{x 13967}#
- (car #{w 13955}#)))))
- (lambda (#{symname 14004}#
- #{marks 14005}#)
+ #{x -ANAU$bmvAmthP7L7xwqAp}#
+ (car #{w
-ANAU$bmvAmthP7L7xwqAd}#)))))
+ (lambda (#{symname
-ANAU$bmvAmthP7L7xwqBO}#
+ #{marks
-ANAU$bmvAmthP7L7xwqBP}#)
(begin
(vector-set!
- #{symnamevec 13958}#
- #{i 13964}#
- #{symname 14004}#)
+ #{symnamevec
-ANAU$bmvAmthP7L7xwqAg}#
+ #{i -ANAU$bmvAmthP7L7xwqAm}#
+ #{symname
-ANAU$bmvAmthP7L7xwqBO}#)
(vector-set!
- #{marksvec 13959}#
- #{i 13964}#
- #{marks 14005}#)
- (#{f 13960}#
- (cdr #{ids 13963}#)
- (#{1+}# #{i 13964}#)))))))))
- (#{f 13960}# #{ids 13953}# 0))
+ #{marksvec
-ANAU$bmvAmthP7L7xwqAh}#
+ #{i -ANAU$bmvAmthP7L7xwqAm}#
+ #{marks
-ANAU$bmvAmthP7L7xwqBP}#)
+ (#{f -ANAU$bmvAmthP7L7xwqAi}#
+ (cdr #{ids
-ANAU$bmvAmthP7L7xwqAl}#)
+ (#{1+}# #{i
-ANAU$bmvAmthP7L7xwqAm}#)))))))))
+ (#{f -ANAU$bmvAmthP7L7xwqAi}#
+ #{ids -ANAU$bmvAmthP7L7xwqAb}#
+ 0))
(vector
'ribcage
- #{symnamevec 13958}#
- #{marksvec 13959}#
- #{labelvec 13956}#)))))
- (cdr #{w 13955}#))))))
- (#{join-wraps 2759}#
- (lambda (#{w1 14014}# #{w2 14015}#)
- (let ((#{m1 14016}# (car #{w1 14014}#))
- (#{s1 14017}# (cdr #{w1 14014}#)))
- (if (null? #{m1 14016}#)
- (if (null? #{s1 14017}#)
- #{w2 14015}#
- (cons (car #{w2 14015}#)
- (let ((#{m2 14024}# (cdr #{w2 14015}#)))
- (if (null? #{m2 14024}#)
- #{s1 14017}#
- (append #{s1 14017}# #{m2 14024}#)))))
- (cons (let ((#{m2 14033}# (car #{w2 14015}#)))
- (if (null? #{m2 14033}#)
- #{m1 14016}#
- (append #{m1 14016}# #{m2 14033}#)))
- (let ((#{m2 14042}# (cdr #{w2 14015}#)))
- (if (null? #{m2 14042}#)
- #{s1 14017}#
- (append #{s1 14017}# #{m2 14042}#))))))))
- (#{same-marks? 2761}#
- (lambda (#{x 14047}# #{y 14048}#)
- (if (eq? #{x 14047}# #{y 14048}#)
- (eq? #{x 14047}# #{y 14048}#)
- (if (not (null? #{x 14047}#))
- (if (not (null? #{y 14048}#))
- (if (eq? (car #{x 14047}#) (car #{y 14048}#))
- (#{same-marks? 2761}#
- (cdr #{x 14047}#)
- (cdr #{y 14048}#))
+ #{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
+ #{marksvec -ANAU$bmvAmthP7L7xwqAh}#
+ #{labelvec -ANAU$bmvAmthP7L7xwqAe}#)))))
+ (cdr #{w -ANAU$bmvAmthP7L7xwqAd}#))))))
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ (lambda (#{w1 -ANAU$bmvAmthP7L7xwqBY}#
+ #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)
+ (let ((#{m1 -ANAU$bmvAmthP7L7xwqBa}#
+ (car #{w1 -ANAU$bmvAmthP7L7xwqBY}#))
+ (#{s1 -ANAU$bmvAmthP7L7xwqBb}#
+ (cdr #{w1 -ANAU$bmvAmthP7L7xwqBY}#)))
+ (if (null? #{m1 -ANAU$bmvAmthP7L7xwqBa}#)
+ (if (null? #{s1 -ANAU$bmvAmthP7L7xwqBb}#)
+ #{w2 -ANAU$bmvAmthP7L7xwqBZ}#
+ (cons (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)
+ (let ((#{m2 -ANAU$bmvAmthP7L7xwqBi}#
+ (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
+ (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBi}#)
+ #{s1 -ANAU$bmvAmthP7L7xwqBb}#
+ (append
+ #{s1 -ANAU$bmvAmthP7L7xwqBb}#
+ #{m2 -ANAU$bmvAmthP7L7xwqBi}#)))))
+ (cons (let ((#{m2 -ANAU$bmvAmthP7L7xwqBr}#
+ (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
+ (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBr}#)
+ #{m1 -ANAU$bmvAmthP7L7xwqBa}#
+ (append
+ #{m1 -ANAU$bmvAmthP7L7xwqBa}#
+ #{m2 -ANAU$bmvAmthP7L7xwqBr}#)))
+ (let ((#{m2 -ANAU$bmvAmthP7L7xwqB0}#
+ (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
+ (if (null? #{m2 -ANAU$bmvAmthP7L7xwqB0}#)
+ #{s1 -ANAU$bmvAmthP7L7xwqBb}#
+ (append
+ #{s1 -ANAU$bmvAmthP7L7xwqBb}#
+ #{m2 -ANAU$bmvAmthP7L7xwqB0}#))))))))
+ (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwqB5}#
+ #{y -ANAU$bmvAmthP7L7xwqB6}#)
+ (if (eq? #{x -ANAU$bmvAmthP7L7xwqB5}#
+ #{y -ANAU$bmvAmthP7L7xwqB6}#)
+ (eq? #{x -ANAU$bmvAmthP7L7xwqB5}#
+ #{y -ANAU$bmvAmthP7L7xwqB6}#)
+ (if (not (null? #{x -ANAU$bmvAmthP7L7xwqB5}#))
+ (if (not (null? #{y -ANAU$bmvAmthP7L7xwqB6}#))
+ (if (eq? (car #{x -ANAU$bmvAmthP7L7xwqB5}#)
+ (car #{y -ANAU$bmvAmthP7L7xwqB6}#))
+ (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwqB5}#)
+ (cdr #{y -ANAU$bmvAmthP7L7xwqB6}#))
#f)
#f)
#f))))
- (#{id-var-name 2762}#
- (lambda (#{id 14056}# #{w 14057}#)
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwqCC}#
+ #{w -ANAU$bmvAmthP7L7xwqCD}#)
(letrec*
- ((#{search 14058}#
- (lambda (#{sym 14119}# #{subst 14120}# #{marks 14121}#)
- (if (null? #{subst 14120}#)
- (values #f #{marks 14121}#)
- (let ((#{fst 14122}# (car #{subst 14120}#)))
- (if (eq? #{fst 14122}# 'shift)
- (#{search 14058}#
- #{sym 14119}#
- (cdr #{subst 14120}#)
- (cdr #{marks 14121}#))
- (let ((#{symnames 14124}# (vector-ref #{fst 14122}# 1)))
- (if (vector? #{symnames 14124}#)
- (let ((#{n 14136}#
- (vector-length #{symnames 14124}#)))
+ ((#{search -ANAU$bmvAmthP7L7xwqCE}#
+ (lambda (#{sym -ANAU$bmvAmthP7L7xwqDB}#
+ #{subst -ANAU$bmvAmthP7L7xwqDC}#
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ (if (null? #{subst -ANAU$bmvAmthP7L7xwqDC}#)
+ (values #f #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ (let ((#{fst -ANAU$bmvAmthP7L7xwqDE}#
+ (car #{subst -ANAU$bmvAmthP7L7xwqDC}#)))
+ (if (eq? #{fst -ANAU$bmvAmthP7L7xwqDE}# 'shift)
+ (#{search -ANAU$bmvAmthP7L7xwqCE}#
+ #{sym -ANAU$bmvAmthP7L7xwqDB}#
+ (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
+ (cdr #{marks -ANAU$bmvAmthP7L7xwqDD}#))
+ (let ((#{symnames -ANAU$bmvAmthP7L7xwqDG}#
+ (vector-ref #{fst -ANAU$bmvAmthP7L7xwqDE}# 1)))
+ (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqDG}#)
+ (let ((#{n -ANAU$bmvAmthP7L7xwqDS}#
+ (vector-length
+ #{symnames -ANAU$bmvAmthP7L7xwqDG}#)))
(letrec*
- ((#{f 14137}#
- (lambda (#{i 14139}#)
- (if (= #{i 14139}# #{n 14136}#)
- (#{search 14058}#
- #{sym 14119}#
- (cdr #{subst 14120}#)
- #{marks 14121}#)
+ ((#{f -ANAU$bmvAmthP7L7xwqDT}#
+ (lambda (#{i -ANAU$bmvAmthP7L7xwqDV}#)
+ (if (= #{i -ANAU$bmvAmthP7L7xwqDV}#
+ #{n -ANAU$bmvAmthP7L7xwqDS}#)
+ (#{search -ANAU$bmvAmthP7L7xwqCE}#
+ #{sym -ANAU$bmvAmthP7L7xwqDB}#
+ (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#)
(if (if (eq? (vector-ref
- #{symnames 14124}#
- #{i 14139}#)
- #{sym 14119}#)
- (#{same-marks? 2761}#
- #{marks 14121}#
+ #{symnames
-ANAU$bmvAmthP7L7xwqDG}#
+ #{i
-ANAU$bmvAmthP7L7xwqDV}#)
+ #{sym
-ANAU$bmvAmthP7L7xwqDB}#)
+ (#{same-marks?
-ANAU$bmvAmthP7L7xwnNy}#
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#
(vector-ref
- (vector-ref #{fst 14122}# 2)
- #{i 14139}#))
+ (vector-ref
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
+ 2)
+ #{i -ANAU$bmvAmthP7L7xwqDV}#))
#f)
(values
(vector-ref
- (vector-ref #{fst 14122}# 3)
- #{i 14139}#)
- #{marks 14121}#)
- (#{f 14137}# (#{1+}# #{i 14139}#)))))))
- (#{f 14137}# 0)))
+ (vector-ref
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
+ 3)
+ #{i -ANAU$bmvAmthP7L7xwqDV}#)
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ (#{f -ANAU$bmvAmthP7L7xwqDT}#
+ (#{1+}# #{i
-ANAU$bmvAmthP7L7xwqDV}#)))))))
+ (#{f -ANAU$bmvAmthP7L7xwqDT}# 0)))
(letrec*
- ((#{f 14172}#
- (lambda (#{symnames 14174}# #{i 14175}#)
- (if (null? #{symnames 14174}#)
- (#{search 14058}#
- #{sym 14119}#
- (cdr #{subst 14120}#)
- #{marks 14121}#)
- (if (if (eq? (car #{symnames 14174}#)
- #{sym 14119}#)
- (#{same-marks? 2761}#
- #{marks 14121}#
+ ((#{f -ANAU$bmvAmthP7L7xwqD2}#
+ (lambda (#{symnames -ANAU$bmvAmthP7L7xwqD4}#
+ #{i -ANAU$bmvAmthP7L7xwqD5}#)
+ (if (null? #{symnames
-ANAU$bmvAmthP7L7xwqD4}#)
+ (#{search -ANAU$bmvAmthP7L7xwqCE}#
+ #{sym -ANAU$bmvAmthP7L7xwqDB}#
+ (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ (if (if (eq? (car #{symnames
-ANAU$bmvAmthP7L7xwqD4}#)
+ #{sym -ANAU$bmvAmthP7L7xwqDB}#)
+ (#{same-marks?
-ANAU$bmvAmthP7L7xwnNy}#
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#
(list-ref
- (vector-ref #{fst 14122}# 2)
- #{i 14175}#))
+ (vector-ref
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
+ 2)
+ #{i -ANAU$bmvAmthP7L7xwqD5}#))
#f)
(values
(list-ref
- (vector-ref #{fst 14122}# 3)
- #{i 14175}#)
- #{marks 14121}#)
- (#{f 14172}#
- (cdr #{symnames 14174}#)
- (#{1+}# #{i 14175}#)))))))
- (#{f 14172}# #{symnames 14124}# 0))))))))))
- (if (symbol? #{id 14056}#)
- (let ((#{t 14061}#
- (#{search 14058}#
- #{id 14056}#
- (cdr #{w 14057}#)
- (car #{w 14057}#))))
- (if #{t 14061}# #{t 14061}# #{id 14056}#))
- (if (if (vector? #{id 14056}#)
- (if (= (vector-length #{id 14056}#) 4)
- (eq? (vector-ref #{id 14056}# 0) 'syntax-object)
+ (vector-ref
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
+ 3)
+ #{i -ANAU$bmvAmthP7L7xwqD5}#)
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ (#{f -ANAU$bmvAmthP7L7xwqD2}#
+ (cdr #{symnames
-ANAU$bmvAmthP7L7xwqD4}#)
+ (#{1+}# #{i
-ANAU$bmvAmthP7L7xwqD5}#)))))))
+ (#{f -ANAU$bmvAmthP7L7xwqD2}#
+ #{symnames -ANAU$bmvAmthP7L7xwqDG}#
+ 0))))))))))
+ (if (symbol? #{id -ANAU$bmvAmthP7L7xwqCC}#)
+ (let ((#{t -ANAU$bmvAmthP7L7xwqCH}#
+ (#{search -ANAU$bmvAmthP7L7xwqCE}#
+ #{id -ANAU$bmvAmthP7L7xwqCC}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#)
+ (car #{w -ANAU$bmvAmthP7L7xwqCD}#))))
+ (if #{t -ANAU$bmvAmthP7L7xwqCH}#
+ #{t -ANAU$bmvAmthP7L7xwqCH}#
+ #{id -ANAU$bmvAmthP7L7xwqCC}#))
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwqCC}#)
+ (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwqCC}#)
+ 4)
+ (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{id 14076}# (vector-ref #{id 14056}# 1))
- (#{w1 14077}# (vector-ref #{id 14056}# 2)))
- (let ((#{marks 14078}#
- (let ((#{m1 14088}# (car #{w 14057}#))
- (#{m2 14089}# (car #{w1 14077}#)))
- (if (null? #{m2 14089}#)
- #{m1 14088}#
- (append #{m1 14088}# #{m2 14089}#)))))
+ (let ((#{id -ANAU$bmvAmthP7L7xwqCW}#
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 1))
+ (#{w1 -ANAU$bmvAmthP7L7xwqCX}#
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 2)))
+ (let ((#{marks -ANAU$bmvAmthP7L7xwqCY}#
+ (let ((#{m1 -ANAU$bmvAmthP7L7xwqCi}#
+ (car #{w -ANAU$bmvAmthP7L7xwqCD}#))
+ (#{m2 -ANAU$bmvAmthP7L7xwqCj}#
+ (car #{w1 -ANAU$bmvAmthP7L7xwqCX}#)))
+ (if (null? #{m2 -ANAU$bmvAmthP7L7xwqCj}#)
+ #{m1 -ANAU$bmvAmthP7L7xwqCi}#
+ (append
+ #{m1 -ANAU$bmvAmthP7L7xwqCi}#
+ #{m2 -ANAU$bmvAmthP7L7xwqCj}#)))))
(call-with-values
(lambda ()
- (#{search 14058}#
- #{id 14076}#
- (cdr #{w 14057}#)
- #{marks 14078}#))
- (lambda (#{new-id 14105}# #{marks 14106}#)
- (if #{new-id 14105}#
- #{new-id 14105}#
- (let ((#{t 14114}#
- (#{search 14058}#
- #{id 14076}#
- (cdr #{w1 14077}#)
- #{marks 14106}#)))
- (if #{t 14114}# #{t 14114}# #{id 14076}#)))))))
+ (#{search -ANAU$bmvAmthP7L7xwqCE}#
+ #{id -ANAU$bmvAmthP7L7xwqCW}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#)
+ #{marks -ANAU$bmvAmthP7L7xwqCY}#))
+ (lambda (#{new-id -ANAU$bmvAmthP7L7xwqCz}#
+ #{marks -ANAU$bmvAmthP7L7xwqC0}#)
+ (if #{new-id -ANAU$bmvAmthP7L7xwqCz}#
+ #{new-id -ANAU$bmvAmthP7L7xwqCz}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwqC8}#
+ (#{search -ANAU$bmvAmthP7L7xwqCE}#
+ #{id -ANAU$bmvAmthP7L7xwqCW}#
+ (cdr #{w1 -ANAU$bmvAmthP7L7xwqCX}#)
+ #{marks -ANAU$bmvAmthP7L7xwqC0}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwqC8}#
+ #{t -ANAU$bmvAmthP7L7xwqC8}#
+ #{id -ANAU$bmvAmthP7L7xwqCW}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 14056}#))))))
- (#{valid-bound-ids? 2768}#
- (lambda (#{ids 14197}#)
+ #{id -ANAU$bmvAmthP7L7xwqCC}#))))))
+ (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}#
+ (lambda (#{w -ANAU$bmvAmthP7L7xwqEP}#
+ #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
+ (letrec*
+ ((#{scan -ANAU$bmvAmthP7L7xwqER}#
+ (lambda (#{subst -ANAU$bmvAmthP7L7xwqEW}#
+ #{results -ANAU$bmvAmthP7L7xwqEX}#)
+ (if (null? #{subst -ANAU$bmvAmthP7L7xwqEW}#)
+ #{results -ANAU$bmvAmthP7L7xwqEX}#
+ (let ((#{fst -ANAU$bmvAmthP7L7xwqEY}#
+ (car #{subst -ANAU$bmvAmthP7L7xwqEW}#)))
+ (if (eq? #{fst -ANAU$bmvAmthP7L7xwqEY}# 'shift)
+ (#{scan -ANAU$bmvAmthP7L7xwqER}#
+ (cdr #{subst -ANAU$bmvAmthP7L7xwqEW}#)
+ #{results -ANAU$bmvAmthP7L7xwqEX}#)
+ (let ((#{symnames -ANAU$bmvAmthP7L7xwqEa}#
+ (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 1))
+ (#{marks -ANAU$bmvAmthP7L7xwqEb}#
+ (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 2)))
+ (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqEa}#)
+ (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}#
+ #{subst -ANAU$bmvAmthP7L7xwqEW}#
+ #{symnames -ANAU$bmvAmthP7L7xwqEa}#
+ #{marks -ANAU$bmvAmthP7L7xwqEb}#
+ #{results -ANAU$bmvAmthP7L7xwqEX}#)
+ (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}#
+ #{subst -ANAU$bmvAmthP7L7xwqEW}#
+ #{symnames -ANAU$bmvAmthP7L7xwqEa}#
+ #{marks -ANAU$bmvAmthP7L7xwqEb}#
+ #{results -ANAU$bmvAmthP7L7xwqEX}#))))))))
+ (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}#
+ (lambda (#{subst -ANAU$bmvAmthP7L7xwqF9}#
+ #{symnames -ANAU$bmvAmthP7L7xwqF$}#
+ #{marks address@hidden
+ #{results -ANAU$bmvAmthP7L7xwqGA}#)
+ (letrec*
+ ((#{f -ANAU$bmvAmthP7L7xwqGB}#
+ (lambda (#{symnames -ANAU$bmvAmthP7L7xwqHl}#
+ #{marks -ANAU$bmvAmthP7L7xwqHm}#
+ #{results -ANAU$bmvAmthP7L7xwqHn}#)
+ (if (null? #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqER}#
+ (cdr #{subst -ANAU$bmvAmthP7L7xwqF9}#)
+ #{results -ANAU$bmvAmthP7L7xwqHn}#)
+ (#{f -ANAU$bmvAmthP7L7xwqGB}#
+ (cdr #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
+ (cdr #{marks -ANAU$bmvAmthP7L7xwqHm}#)
+ (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (car #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
+ (let ((#{w -ANAU$bmvAmthP7L7xwqHv}#
+ (cons (car #{marks
-ANAU$bmvAmthP7L7xwqHm}#)
+ #{subst
-ANAU$bmvAmthP7L7xwqF9}#)))
+ (cons (cons #f
+ (car #{w
-ANAU$bmvAmthP7L7xwqHv}#))
+ (cons 'shift
+ (cdr #{w
-ANAU$bmvAmthP7L7xwqHv}#))))
+ #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
+ #{results -ANAU$bmvAmthP7L7xwqHn}#))))))
+ (#{f -ANAU$bmvAmthP7L7xwqGB}#
+ #{symnames -ANAU$bmvAmthP7L7xwqF$}#
+ #{marks address@hidden
+ #{results -ANAU$bmvAmthP7L7xwqGA}#))))
+ (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}#
+ (lambda (#{subst -ANAU$bmvAmthP7L7xwqHw}#
+ #{symnames -ANAU$bmvAmthP7L7xwqHx}#
+ #{marks -ANAU$bmvAmthP7L7xwqHy}#
+ #{results -ANAU$bmvAmthP7L7xwqHz}#)
+ (let ((#{n -ANAU$bmvAmthP7L7xwqH0}#
+ (vector-length
+ #{symnames -ANAU$bmvAmthP7L7xwqHx}#)))
+ (letrec*
+ ((#{f -ANAU$bmvAmthP7L7xwqH1}#
+ (lambda (#{i -ANAU$bmvAmthP7L7xwqJI}#
+ #{results -ANAU$bmvAmthP7L7xwqJJ}#)
+ (if (= #{i -ANAU$bmvAmthP7L7xwqJI}#
+ #{n -ANAU$bmvAmthP7L7xwqH0}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqER}#
+ (cdr #{subst -ANAU$bmvAmthP7L7xwqHw}#)
+ #{results -ANAU$bmvAmthP7L7xwqJJ}#)
+ (#{f -ANAU$bmvAmthP7L7xwqH1}#
+ (#{1+}# #{i -ANAU$bmvAmthP7L7xwqJI}#)
+ (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (vector-ref
+ #{symnames -ANAU$bmvAmthP7L7xwqHx}#
+ #{i -ANAU$bmvAmthP7L7xwqJI}#)
+ (let ((#{w -ANAU$bmvAmthP7L7xwqJR}#
+ (cons (vector-ref
+ #{marks
-ANAU$bmvAmthP7L7xwqHy}#
+ #{i
-ANAU$bmvAmthP7L7xwqJI}#)
+ #{subst
-ANAU$bmvAmthP7L7xwqHw}#)))
+ (cons (cons #f
+ (car #{w
-ANAU$bmvAmthP7L7xwqJR}#))
+ (cons 'shift
+ (cdr #{w
-ANAU$bmvAmthP7L7xwqJR}#))))
+ #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
+ #{results -ANAU$bmvAmthP7L7xwqJJ}#))))))
+ (#{f -ANAU$bmvAmthP7L7xwqH1}#
+ 0
+ #{results -ANAU$bmvAmthP7L7xwqHz}#))))))
+ (#{scan -ANAU$bmvAmthP7L7xwqER}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwqEP}#)
+ '()))))
+ (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqJS}#)
(if (letrec*
- ((#{all-ids? 14198}#
- (lambda (#{ids 14360}#)
- (if (null? #{ids 14360}#)
- (null? #{ids 14360}#)
- (if (let ((#{x 14371}# (car #{ids 14360}#)))
- (if (symbol? #{x 14371}#)
+ ((#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqL1}#)
+ (if (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#)
+ (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#)
+ (if (let ((#{x -ANAU$bmvAmthP7L7xwqMA}#
+ (car #{ids -ANAU$bmvAmthP7L7xwqL1}#)))
+ (if (symbol? #{x -ANAU$bmvAmthP7L7xwqMA}#)
#t
- (if (if (vector? #{x 14371}#)
- (if (= (vector-length #{x 14371}#) 4)
- (eq? (vector-ref #{x 14371}# 0)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqMA}#)
+ (if (= (vector-length
+ #{x -ANAU$bmvAmthP7L7xwqMA}#)
+ 4)
+ (eq? (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwqMA}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14371}# 1))
+ (symbol?
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwqMA}# 1))
#f)))
- (#{all-ids? 14198}# (cdr #{ids 14360}#))
+ (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
+ (cdr #{ids -ANAU$bmvAmthP7L7xwqL1}#))
#f)))))
- (#{all-ids? 14198}# #{ids 14197}#))
- (#{distinct-bound-ids? 2769}# #{ids 14197}#)
+ (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
+ #{ids -ANAU$bmvAmthP7L7xwqJS}#))
+ (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ #{ids -ANAU$bmvAmthP7L7xwqJS}#)
#f)))
- (#{distinct-bound-ids? 2769}#
- (lambda (#{ids 14499}#)
+ (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqOA}#)
(letrec*
- ((#{distinct? 14500}#
- (lambda (#{ids 14612}#)
- (if (null? #{ids 14612}#)
- (null? #{ids 14612}#)
- (if (not (#{bound-id-member? 2770}#
- (car #{ids 14612}#)
- (cdr #{ids 14612}#)))
- (#{distinct? 14500}# (cdr #{ids 14612}#))
+ ((#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqPx}#)
+ (if (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#)
+ (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#)
+ (if (not (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
+ (car #{ids -ANAU$bmvAmthP7L7xwqPx}#)
+ (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#)))
+ (#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
+ (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#))
#f)))))
- (#{distinct? 14500}# #{ids 14499}#))))
- (#{bound-id-member? 2770}#
- (lambda (#{x 14822}# #{list 14823}#)
- (if (not (null? #{list 14823}#))
- (let ((#{t 14824}#
- (let ((#{j 14905}# (car #{list 14823}#)))
- (if (if (if (vector? #{x 14822}#)
- (if (= (vector-length #{x 14822}#) 4)
- (eq? (vector-ref #{x 14822}# 0)
+ (#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
+ #{ids -ANAU$bmvAmthP7L7xwqOA}#))))
+ (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwqTD}#
+ #{list -ANAU$bmvAmthP7L7xwqTE}#)
+ (if (not (null? #{list -ANAU$bmvAmthP7L7xwqTE}#))
+ (let ((#{t -ANAU$bmvAmthP7L7xwqTF}#
+ (let ((#{j -ANAU$bmvAmthP7L7xwqUW}#
+ (car #{list -ANAU$bmvAmthP7L7xwqTE}#)))
+ (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqTD}#)
+ (if (= (vector-length
+ #{x -ANAU$bmvAmthP7L7xwqTD}#)
+ 4)
+ (eq? (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwqTD}#
+ 0)
'syntax-object)
#f)
#f)
- (if (vector? #{j 14905}#)
- (if (= (vector-length #{j 14905}#) 4)
- (eq? (vector-ref #{j 14905}# 0) 'syntax-object)
+ (if (vector? #{j -ANAU$bmvAmthP7L7xwqUW}#)
+ (if (= (vector-length
+ #{j -ANAU$bmvAmthP7L7xwqUW}#)
+ 4)
+ (eq? (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 0)
+ 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 14822}# 1)
- (vector-ref #{j 14905}# 1))
- (#{same-marks? 2761}#
- (car (vector-ref #{x 14822}# 2))
- (car (vector-ref #{j 14905}# 2)))
+ (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 1)
+ (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 1))
+ (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
+ (car (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 2))
+ (car (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 2)))
#f)
- (eq? #{x 14822}# #{j 14905}#)))))
- (if #{t 14824}#
- #{t 14824}#
- (#{bound-id-member? 2770}#
- #{x 14822}#
- (cdr #{list 14823}#))))
+ (eq? #{x -ANAU$bmvAmthP7L7xwqTD}#
+ #{j -ANAU$bmvAmthP7L7xwqUW}#)))))
+ (if #{t -ANAU$bmvAmthP7L7xwqTF}#
+ #{t -ANAU$bmvAmthP7L7xwqTF}#
+ (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
+ #{x -ANAU$bmvAmthP7L7xwqTD}#
+ (cdr #{list -ANAU$bmvAmthP7L7xwqTE}#))))
#f)))
- (#{wrap 2771}#
- (lambda (#{x 14949}# #{w 14950}# #{defmod 14951}#)
- (if (if (null? (car #{w 14950}#))
- (null? (cdr #{w 14950}#))
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwqVC}#
+ #{w -ANAU$bmvAmthP7L7xwqVD}#
+ #{defmod -ANAU$bmvAmthP7L7xwqVE}#)
+ (if (if (null? (car #{w -ANAU$bmvAmthP7L7xwqVD}#))
+ (null? (cdr #{w -ANAU$bmvAmthP7L7xwqVD}#))
#f)
- #{x 14949}#
- (if (if (vector? #{x 14949}#)
- (if (= (vector-length #{x 14949}#) 4)
- (eq? (vector-ref #{x 14949}# 0) 'syntax-object)
+ #{x -ANAU$bmvAmthP7L7xwqVC}#
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqVC}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwqVC}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{expression 14965}# (vector-ref #{x 14949}# 1))
- (#{wrap 14966}#
- (#{join-wraps 2759}#
- #{w 14950}#
- (vector-ref #{x 14949}# 2)))
- (#{module 14967}# (vector-ref #{x 14949}# 3)))
+ (let ((#{expression -ANAU$bmvAmthP7L7xwqVS}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 1))
+ (#{wrap -ANAU$bmvAmthP7L7xwqVT}#
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwqVD}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 2)))
+ (#{module -ANAU$bmvAmthP7L7xwqVU}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 3)))
(vector
'syntax-object
- #{expression 14965}#
- #{wrap 14966}#
- #{module 14967}#))
- (if (null? #{x 14949}#)
- #{x 14949}#
+ #{expression -ANAU$bmvAmthP7L7xwqVS}#
+ #{wrap -ANAU$bmvAmthP7L7xwqVT}#
+ #{module -ANAU$bmvAmthP7L7xwqVU}#))
+ (if (null? #{x -ANAU$bmvAmthP7L7xwqVC}#)
+ #{x -ANAU$bmvAmthP7L7xwqVC}#
(vector
'syntax-object
- #{x 14949}#
- #{w 14950}#
- #{defmod 14951}#))))))
- (#{source-wrap 2772}#
- (lambda (#{x 14984}#
- #{w 14985}#
- #{s 14986}#
- #{defmod 14987}#)
- (#{wrap 2771}#
+ #{x -ANAU$bmvAmthP7L7xwqVC}#
+ #{w -ANAU$bmvAmthP7L7xwqVD}#
+ #{defmod -ANAU$bmvAmthP7L7xwqVE}#))))))
+ (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwqVl}#
+ #{w -ANAU$bmvAmthP7L7xwqVm}#
+ #{s -ANAU$bmvAmthP7L7xwqVn}#
+ #{defmod -ANAU$bmvAmthP7L7xwqVo}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{x 14984}#) #{s 14986}# #f)
- (set-source-properties! #{x 14984}# #{s 14986}#))
- #{x 14984}#)
- #{w 14985}#
- #{defmod 14987}#)))
- (#{expand-sequence 2773}#
- (lambda (#{body 24167}#
- #{r 24168}#
- #{w 24169}#
- #{s 24170}#
- #{mod 24171}#)
- (#{build-sequence 2724}#
- #{s 24170}#
+ (if (if (pair? #{x -ANAU$bmvAmthP7L7xwqVl}#)
+ #{s -ANAU$bmvAmthP7L7xwqVn}#
+ #f)
+ (set-source-properties!
+ #{x -ANAU$bmvAmthP7L7xwqVl}#
+ #{s -ANAU$bmvAmthP7L7xwqVn}#))
+ #{x -ANAU$bmvAmthP7L7xwqVl}#)
+ #{w -ANAU$bmvAmthP7L7xwqVm}#
+ #{defmod -ANAU$bmvAmthP7L7xwqVo}#)))
+ (#{expand-sequence address@hidden
+ (lambda (#{body -ANAU$bmvAmthP7L7xwsvr}#
+ #{r -ANAU$bmvAmthP7L7xwsvs}#
+ #{w -ANAU$bmvAmthP7L7xwsvt}#
+ #{s -ANAU$bmvAmthP7L7xwsvu}#
+ #{mod -ANAU$bmvAmthP7L7xwsvv}#)
+ (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
+ #{s -ANAU$bmvAmthP7L7xwsvu}#
(letrec*
- ((#{dobody 24251}#
- (lambda (#{body 24601}#
- #{r 24602}#
- #{w 24603}#
- #{mod 24604}#)
- (if (null? #{body 24601}#)
+ ((#{dobody address@hidden
+ (lambda (#{body -ANAU$bmvAmthP7L7xws2d}#
+ #{r -ANAU$bmvAmthP7L7xws2e}#
+ #{w -ANAU$bmvAmthP7L7xws2f}#
+ #{mod -ANAU$bmvAmthP7L7xws2g}#)
+ (if (null? #{body -ANAU$bmvAmthP7L7xws2d}#)
'()
- (let ((#{first 24605}#
- (let ((#{e 24609}# (car #{body 24601}#)))
+ (let ((#{first -ANAU$bmvAmthP7L7xws2h}#
+ (let ((#{e -ANAU$bmvAmthP7L7xws2l}#
+ (car #{body -ANAU$bmvAmthP7L7xws2d}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 24609}#
- #{r 24602}#
- #{w 24603}#
- (#{source-annotation 2736}# #{e 24609}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xws2l}#
+ #{r -ANAU$bmvAmthP7L7xws2e}#
+ #{w -ANAU$bmvAmthP7L7xws2f}#
+ (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xws2l}#)
#f
- #{mod 24604}#
+ #{mod -ANAU$bmvAmthP7L7xws2g}#
#f))
- (lambda (#{type 24616}#
- #{value 24617}#
- #{e 24618}#
- #{w 24619}#
- #{s 24620}#
- #{mod 24621}#)
- (#{expand-expr 2779}#
- #{type 24616}#
- #{value 24617}#
- #{e 24618}#
- #{r 24602}#
- #{w 24619}#
- #{s 24620}#
- #{mod 24621}#))))))
- (cons #{first 24605}#
- (#{dobody 24251}#
- (cdr #{body 24601}#)
- #{r 24602}#
- #{w 24603}#
- #{mod 24604}#)))))))
- (#{dobody 24251}#
- #{body 24167}#
- #{r 24168}#
- #{w 24169}#
- #{mod 24171}#)))))
- (#{expand-top-sequence 2774}#
- (lambda (#{body 15005}#
- #{r 15006}#
- #{w 15007}#
- #{s 15008}#
- #{m 15009}#
- #{esew 15010}#
- #{mod 15011}#)
+ (lambda (#{type -ANAU$bmvAmthP7L7xws2s}#
+ #{value -ANAU$bmvAmthP7L7xws2t}#
+ #{e -ANAU$bmvAmthP7L7xws2u}#
+ #{w -ANAU$bmvAmthP7L7xws2v}#
+ #{s -ANAU$bmvAmthP7L7xws2w}#
+ #{mod -ANAU$bmvAmthP7L7xws2x}#)
+ (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
+ #{type -ANAU$bmvAmthP7L7xws2s}#
+ #{value -ANAU$bmvAmthP7L7xws2t}#
+ #{e -ANAU$bmvAmthP7L7xws2u}#
+ #{r -ANAU$bmvAmthP7L7xws2e}#
+ #{w -ANAU$bmvAmthP7L7xws2v}#
+ #{s -ANAU$bmvAmthP7L7xws2w}#
+ #{mod -ANAU$bmvAmthP7L7xws2x}#))))))
+ (cons #{first -ANAU$bmvAmthP7L7xws2h}#
+ (#{dobody address@hidden
+ (cdr #{body -ANAU$bmvAmthP7L7xws2d}#)
+ #{r -ANAU$bmvAmthP7L7xws2e}#
+ #{w -ANAU$bmvAmthP7L7xws2f}#
+ #{mod -ANAU$bmvAmthP7L7xws2g}#)))))))
+ (#{dobody address@hidden
+ #{body -ANAU$bmvAmthP7L7xwsvr}#
+ #{r -ANAU$bmvAmthP7L7xwsvs}#
+ #{w -ANAU$bmvAmthP7L7xwsvt}#
+ #{mod -ANAU$bmvAmthP7L7xwsvv}#)))))
+ (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xwqV6}#
+ #{r -ANAU$bmvAmthP7L7xwqV7}#
+ #{w -ANAU$bmvAmthP7L7xwqV8}#
+ #{s -ANAU$bmvAmthP7L7xwqV9}#
+ #{m -ANAU$bmvAmthP7L7xwqV$}#
+ #{esew address@hidden
+ #{mod -ANAU$bmvAmthP7L7xwqWA}#)
(letrec*
- ((#{scan 15012}#
- (lambda (#{body 15143}#
- #{r 15144}#
- #{w 15145}#
- #{s 15146}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15149}#
- #{exps 15150}#)
- (if (null? #{body 15143}#)
- #{exps 15150}#
+ ((#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xwqYE}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqYG}#
+ #{s -ANAU$bmvAmthP7L7xwqYH}#
+ #{m -ANAU$bmvAmthP7L7xwqYI}#
+ #{esew -ANAU$bmvAmthP7L7xwqYJ}#
+ #{mod -ANAU$bmvAmthP7L7xwqYK}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ (if (null? #{body -ANAU$bmvAmthP7L7xwqYE}#)
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 15151}# (car #{body 15143}#)))
- (#{syntax-type 2777}#
- #{e 15151}#
- #{r 15144}#
- #{w 15145}#
- (let ((#{t 15155}#
- (#{source-annotation 2736}#
- #{e 15151}#)))
- (if #{t 15155}# #{t 15155}# #{s 15146}#))
+ (let ((#{e -ANAU$bmvAmthP7L7xwqYM}#
+ (car #{body -ANAU$bmvAmthP7L7xwqYE}#)))
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwqYM}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqYG}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwqYQ}#
+ (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwqYM}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwqYQ}#
+ #{t -ANAU$bmvAmthP7L7xwqYQ}#
+ #{s -ANAU$bmvAmthP7L7xwqYH}#))
#f
- #{mod 15149}#
+ #{mod -ANAU$bmvAmthP7L7xwqYK}#
#f)))
- (lambda (#{type 15390}#
- #{value 15391}#
- #{e 15392}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#)
- (if (eqv? #{type 15390}# 'begin-form)
- (let ((#{tmp 15400}#
- ($sc-dispatch #{e 15392}# '(_))))
- (if #{tmp 15400}#
+ (lambda (#{type -ANAU$bmvAmthP7L7xwqb7}#
+ #{value -ANAU$bmvAmthP7L7xwqb8}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
+ 'begin-form)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwqcF}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ '(_))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwqcF}#
(@apply
- (lambda () #{exps 15150}#)
- #{tmp 15400}#)
- (let ((#{tmp 15404}#
+ (lambda () #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ #{tmp -ANAU$bmvAmthP7L7xwqcF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwqcJ}#
($sc-dispatch
- #{e 15392}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
'(_ any . each-any))))
- (if #{tmp 15404}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwqcJ}#
(@apply
- (lambda (#{e1 15408}# #{e2 15409}#)
- (#{scan 15012}#
- (cons #{e1 15408}# #{e2 15409}#)
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15395}#
- #{exps 15150}#))
- #{tmp 15404}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwqcN}#
+ #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwqcN}#
+ #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
+ #{m -ANAU$bmvAmthP7L7xwqYI}#
+ #{esew -ANAU$bmvAmthP7L7xwqYJ}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#))
+ #{tmp -ANAU$bmvAmthP7L7xwqcJ}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 15392}#)))))
- (if (eqv? #{type 15390}# 'local-syntax-form)
- (#{expand-local-syntax 2783}#
- #{value 15391}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#
- (lambda (#{body 15424}#
- #{r 15425}#
- #{w 15426}#
- #{s 15427}#
- #{mod 15428}#)
- (#{scan 15012}#
- #{body 15424}#
- #{r 15425}#
- #{w 15426}#
- #{s 15427}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15428}#
- #{exps 15150}#)))
- (if (eqv? #{type 15390}# 'eval-when-form)
- (let ((#{tmp 15433}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#)))))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
+ 'local-syntax-form)
+ (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
+ #{value -ANAU$bmvAmthP7L7xwqb8}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xwqcd}#
+ #{r -ANAU$bmvAmthP7L7xwqce}#
+ #{w -ANAU$bmvAmthP7L7xwqcf}#
+ #{s -ANAU$bmvAmthP7L7xwqcg}#
+ #{mod -ANAU$bmvAmthP7L7xwqch}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ #{body -ANAU$bmvAmthP7L7xwqcd}#
+ #{r -ANAU$bmvAmthP7L7xwqce}#
+ #{w -ANAU$bmvAmthP7L7xwqcf}#
+ #{s -ANAU$bmvAmthP7L7xwqcg}#
+ #{m -ANAU$bmvAmthP7L7xwqYI}#
+ #{esew -ANAU$bmvAmthP7L7xwqYJ}#
+ #{mod -ANAU$bmvAmthP7L7xwqch}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
+ 'eval-when-form)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwqcm}#
($sc-dispatch
- #{e 15392}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
'(_ each-any any . each-any))))
- (if #{tmp 15433}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwqcm}#
(@apply
- (lambda (#{x 15437}#
- #{e1 15438}#
- #{e2 15439}#)
- (let ((#{when-list 15440}#
- (#{parse-when-list 2776}#
- #{e 15392}#
- #{x 15437}#))
- (#{body 15441}#
- (cons #{e1 15438}#
- #{e2 15439}#)))
- (if (eq? #{m 15147}# 'e)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwqcq}#
+ #{e1 -ANAU$bmvAmthP7L7xwqcr}#
+ #{e2 -ANAU$bmvAmthP7L7xwqcs}#)
+ (let ((#{when-list
-ANAU$bmvAmthP7L7xwqct}#
+ (#{parse-when-list
-ANAU$bmvAmthP7L7xwnOC}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{x
-ANAU$bmvAmthP7L7xwqcq}#))
+ (#{body -ANAU$bmvAmthP7L7xwqcu}#
+ (cons #{e1
-ANAU$bmvAmthP7L7xwqcr}#
+ #{e2
-ANAU$bmvAmthP7L7xwqcs}#)))
+ (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
+ 'e)
(if (memq 'eval
- #{when-list 15440}#)
- (#{scan 15012}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ #{body -ANAU$bmvAmthP7L7xwqcu}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
(if (memq 'expand
- #{when-list 15440}#)
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
'c&e
'e)
'(eval)
- #{mod 15395}#
- #{exps 15150}#)
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
(begin
(if (memq 'expand
- #{when-list 15440}#)
- (let ((#{x 15518}#
-
(#{expand-top-sequence 2774}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
+ (let ((#{x
-ANAU$bmvAmthP7L7xwqd7}#
+
(#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
+ #{body
-ANAU$bmvAmthP7L7xwqcu}#
+ #{r
-ANAU$bmvAmthP7L7xwqYF}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
'e
'(eval)
- #{mod 15395}#)))
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
(primitive-eval
- #{x 15518}#)))
- (values #{exps 15150}#)))
+ #{x
-ANAU$bmvAmthP7L7xwqd7}#)))
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#))
(if (memq 'load
- #{when-list 15440}#)
- (if (let ((#{t 15544}#
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
+ (if (let ((#{t
-ANAU$bmvAmthP7L7xwqeV}#
(memq 'compile
- #{when-list
15440}#)))
- (if #{t 15544}#
- #{t 15544}#
- (let ((#{t 15593}#
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t
-ANAU$bmvAmthP7L7xwqeV}#
+ #{t
-ANAU$bmvAmthP7L7xwqeV}#
+ (let ((#{t
-ANAU$bmvAmthP7L7xwqfG}#
(memq 'expand
-
#{when-list 15440}#)))
- (if #{t 15593}#
- #{t 15593}#
- (if (eq? #{m 15147}#
+
#{when-list -ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t
-ANAU$bmvAmthP7L7xwqfG}#
+ #{t
-ANAU$bmvAmthP7L7xwqfG}#
+ (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
'c&e)
(memq 'eval
- #{when-list
15440}#)
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
#f)))))
- (#{scan 15012}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ (#{scan
-ANAU$bmvAmthP7L7xwqWB}#
+ #{body
-ANAU$bmvAmthP7L7xwqcu}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
'c&e
'(compile load)
- #{mod 15395}#
- #{exps 15150}#)
- (if (if (eq? #{m 15147}# 'c)
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
+ (if (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
+ 'c)
#t
- (eq? #{m 15147}# 'c&e))
- (#{scan 15012}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
+ 'c&e))
+ (#{scan
-ANAU$bmvAmthP7L7xwqWB}#
+ #{body
-ANAU$bmvAmthP7L7xwqcu}#
+ #{r
-ANAU$bmvAmthP7L7xwqYF}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
'c
'(load)
- #{mod 15395}#
- #{exps 15150}#)
- (values #{exps 15150}#)))
- (if (let ((#{t 15722}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#))
+ (if (let ((#{t
-ANAU$bmvAmthP7L7xwqhH}#
(memq 'compile
- #{when-list
15440}#)))
- (if #{t 15722}#
- #{t 15722}#
- (let ((#{t 15771}#
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t
-ANAU$bmvAmthP7L7xwqhH}#
+ #{t
-ANAU$bmvAmthP7L7xwqhH}#
+ (let ((#{t
-ANAU$bmvAmthP7L7xwqh4}#
(memq 'expand
-
#{when-list 15440}#)))
- (if #{t 15771}#
- #{t 15771}#
- (if (eq? #{m 15147}#
+
#{when-list -ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t
-ANAU$bmvAmthP7L7xwqh4}#
+ #{t
-ANAU$bmvAmthP7L7xwqh4}#
+ (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
'c&e)
(memq 'eval
- #{when-list
15440}#)
+ #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
#f)))))
(begin
- (let ((#{x 15895}#
-
(#{expand-top-sequence 2774}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ (let ((#{x
-ANAU$bmvAmthP7L7xwqj0}#
+
(#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
+ #{body
-ANAU$bmvAmthP7L7xwqcu}#
+ #{r
-ANAU$bmvAmthP7L7xwqYF}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
'e
'(eval)
- #{mod 15395}#)))
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
(primitive-eval
- #{x 15895}#))
- (values #{exps 15150}#))
- (values #{exps 15150}#))))))
- #{tmp 15433}#)
+ #{x
-ANAU$bmvAmthP7L7xwqj0}#))
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwqcm}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 15392}#)))
- (if (if (eqv? #{type 15390}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#)))
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
'define-syntax-form)
#t
- (eqv? #{type 15390}#
+ (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
'define-syntax-parameter-form))
- (let ((#{n 15941}#
- (#{id-var-name 2762}#
- #{value 15391}#
- #{w 15393}#))
- (#{r 15942}#
- (#{macros-only-env 2739}#
- #{r 15144}#)))
- (if (eqv? #{m 15147}# 'c)
- (if (memq 'compile #{esew 15148}#)
- (let ((#{e 15946}#
- (#{expand-install-global 2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))))
+ (let ((#{n -ANAU$bmvAmthP7L7xwqki}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{value -ANAU$bmvAmthP7L7xwqb8}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#))
+ (#{r -ANAU$bmvAmthP7L7xwqkj}#
+ (#{macros-only-env
-ANAU$bmvAmthP7L7xwnNc}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#)))
+ (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c)
+ (if (memq 'compile
+ #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
+ (let ((#{e -ANAU$bmvAmthP7L7xwqkn}#
+ (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
+ #{n -ANAU$bmvAmthP7L7xwqki}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ #{e
-ANAU$bmvAmthP7L7xwqb9}#
+ #{r
-ANAU$bmvAmthP7L7xwqkj}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
(begin
- (#{top-level-eval-hook 2703}#
- #{e 15946}#
- #{mod 15395}#)
- (if (memq 'load #{esew 15148}#)
- (values
- (cons #{e 15946}#
- #{exps 15150}#))
- (values #{exps 15150}#))))
- (if (memq 'load #{esew 15148}#)
- (values
- (cons (#{expand-install-global
2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))
- #{exps 15150}#))
- (values #{exps 15150}#)))
- (if (eqv? #{m 15147}# 'c&e)
- (let ((#{e 16393}#
- (#{expand-install-global 2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))))
+ (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
+ #{e -ANAU$bmvAmthP7L7xwqkn}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)
+ (if (memq 'load
+ #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
+ (cons #{e
-ANAU$bmvAmthP7L7xwqkn}#
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))
+ (if (memq 'load
+ #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
+ (cons (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
+ #{n -ANAU$bmvAmthP7L7xwqki}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ #{e
-ANAU$bmvAmthP7L7xwqb9}#
+ #{r
-ANAU$bmvAmthP7L7xwqkj}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#))
+ (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}#
+ 'c&e)
+ (let ((#{e -ANAU$bmvAmthP7L7xwqup}#
+ (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
+ #{n -ANAU$bmvAmthP7L7xwqki}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ #{e
-ANAU$bmvAmthP7L7xwqb9}#
+ #{r
-ANAU$bmvAmthP7L7xwqkj}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
(begin
- (#{top-level-eval-hook 2703}#
- #{e 16393}#
- #{mod 15395}#)
- (values
- (cons #{e 16393}#
- #{exps 15150}#))))
+ (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
+ #{e -ANAU$bmvAmthP7L7xwqup}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)
+ (cons #{e -ANAU$bmvAmthP7L7xwqup}#
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))
(begin
- (if (memq 'eval #{esew 15148}#)
- (#{top-level-eval-hook 2703}#
- (#{expand-install-global 2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))
- #{mod 15395}#))
- (values #{exps 15150}#)))))
- (if (eqv? #{type 15390}# 'define-form)
- (let ((#{n 17028}#
- (#{id-var-name 2762}#
- #{value 15391}#
- #{w 15393}#)))
- (let ((#{type 17029}#
- (car (let ((#{t 17036}#
- (assq #{n 17028}#
- #{r 15144}#)))
- (if #{t 17036}#
- (cdr #{t 17036}#)
+ (if (memq 'eval
+ #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
+ (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
+ (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
+ #{n -ANAU$bmvAmthP7L7xwqki}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{r -ANAU$bmvAmthP7L7xwqkj}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#))
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#))))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
+ 'define-form)
+ (let ((#{n -ANAU$bmvAmthP7L7xwq5L}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{value -ANAU$bmvAmthP7L7xwqb8}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#)))
+ (let ((#{type -ANAU$bmvAmthP7L7xwq5M}#
+ (car (let ((#{t
-ANAU$bmvAmthP7L7xwq5T}#
+ (assq #{n
-ANAU$bmvAmthP7L7xwq5L}#
+ #{r
-ANAU$bmvAmthP7L7xwqYF}#)))
+ (if #{t
-ANAU$bmvAmthP7L7xwq5T}#
+ (cdr #{t
-ANAU$bmvAmthP7L7xwq5T}#)
(if (symbol?
- #{n 17028}#)
- (let ((#{t 17042}#
-
(#{get-global-definition-hook 2706}#
- #{n 17028}#
- #{mod
15395}#)))
- (if #{t 17042}#
- #{t 17042}#
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#)
+ (let ((#{t
-ANAU$bmvAmthP7L7xwq5Z}#
+
(#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
+ (if #{t
-ANAU$bmvAmthP7L7xwq5Z}#
+ #{t
-ANAU$bmvAmthP7L7xwq5Z}#
'(global)))
'(displaced-lexical)))))))
- (if (if (eqv? #{type 17029}# 'global)
+ (if (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
+ 'global)
#t
- (if (eqv? #{type 17029}# 'core)
+ (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
+ 'core)
#t
- (if (eqv? #{type 17029}#
+ (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
'macro)
#t
- (eqv? #{type 17029}#
+ (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
'module-ref))))
(begin
- (if (if (if (eq? #{m 15147}# 'c)
+ (if (if (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
+ 'c)
#t
- (eq? #{m 15147}# 'c&e))
+ (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
+ 'c&e))
(if (not
(module-local-variable
(current-module)
- #{n 17028}#))
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#))
(current-module)
#f)
#f)
- (let ((#{old 17073}#
+ (let ((#{old
-ANAU$bmvAmthP7L7xwq54}#
(module-variable
(current-module)
- #{n 17028}#)))
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#)))
(if (if (variable?
- #{old 17073}#)
+ #{old
-ANAU$bmvAmthP7L7xwq54}#)
(variable-bound?
- #{old 17073}#)
+ #{old
-ANAU$bmvAmthP7L7xwq54}#)
#f)
(module-define!
(current-module)
- #{n 17028}#
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#
(variable-ref
- #{old 17073}#))
+ #{old
-ANAU$bmvAmthP7L7xwq54}#))
(module-add!
(current-module)
- #{n 17028}#
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#
(make-undefined-variable)))))
- (values
- (cons (if (eq? #{m 15147}# 'c&e)
- (let ((#{x 17075}#
-
(#{build-global-definition 2718}#
- #{s 15394}#
- #{n 17028}#
- (#{expand
2778}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{mod
15395}#))))
- (begin
-
(#{top-level-eval-hook 2703}#
- #{x 17075}#
- #{mod 15395}#)
- #{x 17075}#))
- (lambda ()
-
(#{build-global-definition 2718}#
- #{s 15394}#
- #{n 17028}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{mod 15395}#))))
- #{exps 15150}#)))
- (if (eqv? #{type 17029}#
+ (cons (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
+ 'c&e)
+ (let ((#{x
-ANAU$bmvAmthP7L7xwrAx}#
+
(#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
+ #{s
address@hidden
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ #{e
-ANAU$bmvAmthP7L7xwqb9}#
+ #{r
-ANAU$bmvAmthP7L7xwqYF}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
+ (begin
+ (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
+ #{x
-ANAU$bmvAmthP7L7xwrAx}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#)
+ #{x
-ANAU$bmvAmthP7L7xwrAx}#))
+ (lambda ()
+
(#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
+ #{s address@hidden
+ #{n
-ANAU$bmvAmthP7L7xwq5L}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ #{e
-ANAU$bmvAmthP7L7xwqb9}#
+ #{r
-ANAU$bmvAmthP7L7xwqYF}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#))
+ (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e 15392}#
- (#{wrap 2771}#
- #{value 15391}#
- #{w 15393}#
- #{mod 15395}#))
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{value
-ANAU$bmvAmthP7L7xwqb8}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))
(syntax-violation
#f
"cannot define keyword at top
level"
- #{e 15392}#
- (#{wrap 2771}#
- #{value 15391}#
- #{w 15393}#
- #{mod 15395}#))))))
- (values
- (cons (if (eq? #{m 15147}# 'c&e)
- (let ((#{x 17521}#
- (#{expand-expr 2779}#
- #{type 15390}#
- #{value 15391}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#)))
- (begin
- (primitive-eval #{x 17521}#)
- #{x 17521}#))
- (lambda ()
- (#{expand-expr 2779}#
- #{type 15390}#
- #{value 15391}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#)))
- #{exps 15150}#))))))))))
- (lambda (#{exps 17530}#)
- (#{scan 15012}#
- (cdr #{body 15143}#)
- #{r 15144}#
- #{w 15145}#
- #{s 15146}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15149}#
- #{exps 17530}#)))))))
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{value
-ANAU$bmvAmthP7L7xwqb8}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))))
+ (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
+ 'c&e)
+ (let ((#{x -ANAU$bmvAmthP7L7xwrH4}#
+ (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
+ #{type
-ANAU$bmvAmthP7L7xwqb7}#
+ #{value
-ANAU$bmvAmthP7L7xwqb8}#
+ #{e
-ANAU$bmvAmthP7L7xwqb9}#
+ #{r
-ANAU$bmvAmthP7L7xwqYF}#
+ #{w
-ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
+ (begin
+ (primitive-eval
+ #{x -ANAU$bmvAmthP7L7xwrH4}#)
+ #{x -ANAU$bmvAmthP7L7xwrH4}#))
+ (lambda ()
+ (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
+ #{type -ANAU$bmvAmthP7L7xwqb7}#
+ #{value
-ANAU$bmvAmthP7L7xwqb8}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s address@hidden
+ #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
+ #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))))))))
+ (lambda (#{exps -ANAU$bmvAmthP7L7xwrH9}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ (cdr #{body -ANAU$bmvAmthP7L7xwqYE}#)
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqYG}#
+ #{s -ANAU$bmvAmthP7L7xwqYH}#
+ #{m -ANAU$bmvAmthP7L7xwqYI}#
+ #{esew -ANAU$bmvAmthP7L7xwqYJ}#
+ #{mod -ANAU$bmvAmthP7L7xwqYK}#
+ #{exps -ANAU$bmvAmthP7L7xwrH9}#)))))))
(call-with-values
(lambda ()
- (#{scan 15012}#
- #{body 15005}#
- #{r 15006}#
- #{w 15007}#
- #{s 15008}#
- #{m 15009}#
- #{esew 15010}#
- #{mod 15011}#
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ #{body -ANAU$bmvAmthP7L7xwqV6}#
+ #{r -ANAU$bmvAmthP7L7xwqV7}#
+ #{w -ANAU$bmvAmthP7L7xwqV8}#
+ #{s -ANAU$bmvAmthP7L7xwqV9}#
+ #{m -ANAU$bmvAmthP7L7xwqV$}#
+ #{esew address@hidden
+ #{mod -ANAU$bmvAmthP7L7xwqWA}#
'()))
- (lambda (#{exps 15015}#)
- (if (null? #{exps 15015}#)
+ (lambda (#{exps -ANAU$bmvAmthP7L7xwqWE}#)
+ (if (null? #{exps -ANAU$bmvAmthP7L7xwqWE}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 15008}#)
- (#{build-sequence 2724}#
- #{s 15008}#
+ #{s -ANAU$bmvAmthP7L7xwqV9}#)
+ (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
+ #{s -ANAU$bmvAmthP7L7xwqV9}#
(letrec*
- ((#{lp 15055}#
- (lambda (#{in 15139}# #{out 15140}#)
- (if (null? #{in 15139}#)
- #{out 15140}#
- (let ((#{e 15141}# (car #{in 15139}#)))
- (#{lp 15055}#
- (cdr #{in 15139}#)
- (cons (if (procedure? #{e 15141}#)
- (#{e 15141}#)
- #{e 15141}#)
- #{out 15140}#)))))))
- (#{lp 15055}# #{exps 15015}# '())))))))))
- (#{expand-install-global 2775}#
- (lambda (#{name 17531}# #{e 17532}#)
- (let ((#{exp 17538}#
- (let ((#{fun-exp 17548}#
+ ((#{lp -ANAU$bmvAmthP7L7xwqWs}#
+ (lambda (#{in -ANAU$bmvAmthP7L7xwqYA}#
+ #{out -ANAU$bmvAmthP7L7xwqYB}#)
+ (if (null? #{in -ANAU$bmvAmthP7L7xwqYA}#)
+ #{out -ANAU$bmvAmthP7L7xwqYB}#
+ (let ((#{e -ANAU$bmvAmthP7L7xwqYC}#
+ (car #{in -ANAU$bmvAmthP7L7xwqYA}#)))
+ (#{lp -ANAU$bmvAmthP7L7xwqWs}#
+ (cdr #{in -ANAU$bmvAmthP7L7xwqYA}#)
+ (cons (if (procedure?
+ #{e -ANAU$bmvAmthP7L7xwqYC}#)
+ (#{e -ANAU$bmvAmthP7L7xwqYC}#)
+ #{e -ANAU$bmvAmthP7L7xwqYC}#)
+ #{out -ANAU$bmvAmthP7L7xwqYB}#)))))))
+ (#{lp -ANAU$bmvAmthP7L7xwqWs}#
+ #{exps -ANAU$bmvAmthP7L7xwqWE}#
+ '())))))))))
+ (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrH$}#
+ #{e address@hidden)
+ (let ((#{exp -ANAU$bmvAmthP7L7xwrIF}#
+ (let ((#{fun-exp -ANAU$bmvAmthP7L7xwrIP}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -1252,391 +1547,416 @@
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps 17549}#
+ (#{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 17531}#)
+ #{name -ANAU$bmvAmthP7L7xwrH$}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 17532}#)))
+ #{e address@hidden)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 17548}#
- #{arg-exps 17549}#))))
+ #{fun-exp -ANAU$bmvAmthP7L7xwrIP}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#))))
(begin
- (if (if (struct? #{exp 17538}#)
- (eq? (struct-vtable #{exp 17538}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwrIF}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwrIF}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 17590}# (struct-ref #{exp 17538}# 1)))
- (if (not (assq 'name #{meta 17590}#))
- (let ((#{v 17597}#
- (cons (cons 'name #{name 17531}#) #{meta 17590}#)))
- (struct-set! #{exp 17538}# 1 #{v 17597}#)))))
+ (let ((#{meta -ANAU$bmvAmthP7L7xwrI5}#
+ (struct-ref #{exp -ANAU$bmvAmthP7L7xwrIF}# 1)))
+ (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwrI5}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwrJA}#
+ (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwrH$}#)
+ #{meta -ANAU$bmvAmthP7L7xwrI5}#)))
+ (struct-set!
+ #{exp -ANAU$bmvAmthP7L7xwrIF}#
+ 1
+ #{v -ANAU$bmvAmthP7L7xwrJA}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 17531}#
- #{exp 17538}#)))))
- (#{parse-when-list 2776}#
- (lambda (#{e 17608}# #{when-list 17609}#)
- (let ((#{result 17610}#
- (#{strip 2791}# #{when-list 17609}# '(()))))
+ #{name -ANAU$bmvAmthP7L7xwrH$}#
+ #{exp -ANAU$bmvAmthP7L7xwrIF}#)))))
+ (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwrJL}#
+ #{when-list -ANAU$bmvAmthP7L7xwrJM}#)
+ (let ((#{result -ANAU$bmvAmthP7L7xwrJN}#
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{when-list -ANAU$bmvAmthP7L7xwrJM}#
+ '(()))))
(letrec*
- ((#{lp 17611}#
- (lambda (#{l 17665}#)
- (if (null? #{l 17665}#)
- #{result 17610}#
- (if (let ((#{t 17667}# (car #{l 17665}#)))
- (if (eq? #{t 17667}# 'compile)
+ ((#{lp -ANAU$bmvAmthP7L7xwrJO}#
+ (lambda (#{l -ANAU$bmvAmthP7L7xwrKE}#)
+ (if (null? #{l -ANAU$bmvAmthP7L7xwrKE}#)
+ #{result -ANAU$bmvAmthP7L7xwrJN}#
+ (if (let ((#{t -ANAU$bmvAmthP7L7xwrKG}#
+ (car #{l -ANAU$bmvAmthP7L7xwrKE}#)))
+ (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'compile)
#t
- (if (eq? #{t 17667}# 'load)
+ (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'load)
#t
- (if (eq? #{t 17667}# 'eval)
+ (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'eval)
#t
- (eq? #{t 17667}# 'expand)))))
- (#{lp 17611}# (cdr #{l 17665}#))
+ (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'expand)))))
+ (#{lp -ANAU$bmvAmthP7L7xwrJO}#
+ (cdr #{l -ANAU$bmvAmthP7L7xwrKE}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e 17608}#
- (car #{l 17665}#)))))))
- (#{lp 17611}# #{result 17610}#)))))
- (#{syntax-type 2777}#
- (lambda (#{e 17669}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
- #{for-car? 17675}#)
- (if (symbol? #{e 17669}#)
- (let ((#{n 17676}#
- (#{id-var-name 2762}# #{e 17669}# #{w 17671}#)))
- (let ((#{b 17677}#
- (let ((#{t 17685}# (assq #{n 17676}# #{r 17670}#)))
- (if #{t 17685}#
- (cdr #{t 17685}#)
- (if (symbol? #{n 17676}#)
- (let ((#{t 17691}#
- (#{get-global-definition-hook 2706}#
- #{n 17676}#
- #{mod 17674}#)))
- (if #{t 17691}# #{t 17691}# '(global)))
+ #{e -ANAU$bmvAmthP7L7xwrJL}#
+ (car #{l -ANAU$bmvAmthP7L7xwrKE}#)))))))
+ (#{lp -ANAU$bmvAmthP7L7xwrJO}#
+ #{result -ANAU$bmvAmthP7L7xwrJN}#)))))
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#
+ #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
+ (if (symbol? #{e -ANAU$bmvAmthP7L7xwrKI}#)
+ (let ((#{n -ANAU$bmvAmthP7L7xwrKP}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#)))
+ (let ((#{b -ANAU$bmvAmthP7L7xwrKQ}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwrKY}#
+ (assq #{n -ANAU$bmvAmthP7L7xwrKP}#
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwrKY}#
+ (cdr #{t -ANAU$bmvAmthP7L7xwrKY}#)
+ (if (symbol? #{n -ANAU$bmvAmthP7L7xwrKP}#)
+ (let ((#{t -ANAU$bmvAmthP7L7xwrKe}#
+ (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
+ #{n -ANAU$bmvAmthP7L7xwrKP}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwrKe}#
+ #{t -ANAU$bmvAmthP7L7xwrKe}#
+ '(global)))
'(displaced-lexical))))))
- (let ((#{type 17678}# (car #{b 17677}#)))
- (if (eqv? #{type 17678}# 'lexical)
+ (let ((#{type -ANAU$bmvAmthP7L7xwrKR}#
+ (car #{b -ANAU$bmvAmthP7L7xwrKQ}#)))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'lexical)
(values
- #{type 17678}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{type 17678}# 'global)
+ #{type -ANAU$bmvAmthP7L7xwrKR}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'global)
(values
- #{type 17678}#
- #{n 17676}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{type 17678}# 'macro)
- (if #{for-car? 17675}#
+ #{type -ANAU$bmvAmthP7L7xwrKR}#
+ #{n -ANAU$bmvAmthP7L7xwrKP}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'macro)
+ (if #{for-car? -ANAU$bmvAmthP7L7xwrKO}#
(values
- #{type 17678}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (#{syntax-type 2777}#
- (#{expand-macro 2781}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#)
- #{r 17670}#
+ #{type -ANAU$bmvAmthP7L7xwrKR}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
'(())
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#
#f))
(values
- #{type 17678}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)))))))
- (if (pair? #{e 17669}#)
- (let ((#{first 17711}# (car #{e 17669}#)))
+ #{type -ANAU$bmvAmthP7L7xwrKR}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)))))))
+ (if (pair? #{e -ANAU$bmvAmthP7L7xwrKI}#)
+ (let ((#{first -ANAU$bmvAmthP7L7xwrKy}#
+ (car #{e -ANAU$bmvAmthP7L7xwrKI}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{first 17711}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{first -ANAU$bmvAmthP7L7xwrKy}#
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#
#t))
- (lambda (#{ftype 17713}#
- #{fval 17714}#
- #{fe 17715}#
- #{fw 17716}#
- #{fs 17717}#
- #{fmod 17718}#)
- (if (eqv? #{ftype 17713}# 'lexical)
+ (lambda (#{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ #{fval -ANAU$bmvAmthP7L7xwrK1}#
+ #{fe -ANAU$bmvAmthP7L7xwrK2}#
+ #{fw -ANAU$bmvAmthP7L7xwrK3}#
+ #{fs -ANAU$bmvAmthP7L7xwrK4}#
+ #{fmod -ANAU$bmvAmthP7L7xwrK5}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'lexical)
(values
'lexical-call
- #{fval 17714}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'global)
+ #{fval -ANAU$bmvAmthP7L7xwrK1}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 17714}#
- #{w 17671}#
- #{fmod 17718}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'macro)
- (#{syntax-type 2777}#
- (#{expand-macro 2781}#
- #{fval 17714}#
- #{e 17669}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#)
- #{r 17670}#
+ #{fval -ANAU$bmvAmthP7L7xwrK1}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{fmod -ANAU$bmvAmthP7L7xwrK5}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'macro)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
+ #{fval -ANAU$bmvAmthP7L7xwrK1}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
'(())
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
- #{for-car? 17675}#)
- (if (eqv? #{ftype 17713}# 'module-ref)
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#
+ #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ 'module-ref)
(call-with-values
(lambda ()
- (#{fval 17714}#
- #{e 17669}#
- #{r 17670}#
- #{w 17671}#))
- (lambda (#{e 17739}#
- #{r 17740}#
- #{w 17741}#
- #{s 17742}#
- #{mod 17743}#)
- (#{syntax-type 2777}#
- #{e 17739}#
- #{r 17740}#
- #{w 17741}#
- #{s 17742}#
- #{rib 17673}#
- #{mod 17743}#
- #{for-car? 17675}#)))
- (if (eqv? #{ftype 17713}# 'core)
+ (#{fval -ANAU$bmvAmthP7L7xwrK1}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwrLO}#
+ #{r -ANAU$bmvAmthP7L7xwrLP}#
+ #{w -ANAU$bmvAmthP7L7xwrLQ}#
+ #{s -ANAU$bmvAmthP7L7xwrLR}#
+ #{mod -ANAU$bmvAmthP7L7xwrLS}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwrLO}#
+ #{r -ANAU$bmvAmthP7L7xwrLP}#
+ #{w -ANAU$bmvAmthP7L7xwrLQ}#
+ #{s -ANAU$bmvAmthP7L7xwrLR}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrLS}#
+ #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)))
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'core)
(values
'core-form
- #{fval 17714}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'local-syntax)
+ #{fval -ANAU$bmvAmthP7L7xwrK1}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ 'local-syntax)
(values
'local-syntax-form
- #{fval 17714}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'begin)
+ #{fval -ANAU$bmvAmthP7L7xwrK1}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ 'begin)
(values
'begin-form
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'eval-when)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ 'eval-when)
(values
'eval-when-form
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'define)
- (let ((#{tmp 17760}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ 'define)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrLj}#
($sc-dispatch
- #{e 17669}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ any any))))
- (if (if #{tmp 17760}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwrLj}#
(@apply
- (lambda (#{name 17764}#
- #{val 17765}#)
- (if (symbol? #{name 17764}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrLn}#
+ #{val
-ANAU$bmvAmthP7L7xwrLo}#)
+ (if (symbol?
+ #{name
-ANAU$bmvAmthP7L7xwrLn}#)
#t
(if (if (vector?
- #{name 17764}#)
+ #{name
-ANAU$bmvAmthP7L7xwrLn}#)
(if (= (vector-length
- #{name
17764}#)
+ #{name
-ANAU$bmvAmthP7L7xwrLn}#)
4)
(eq? (vector-ref
- #{name
17764}#
+ #{name
-ANAU$bmvAmthP7L7xwrLn}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 17764}#
+ #{name
-ANAU$bmvAmthP7L7xwrLn}#
1))
#f)))
- #{tmp 17760}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrLj}#)
#f)
(@apply
- (lambda (#{name 17792}#
- #{val 17793}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrMD}#
+ #{val
-ANAU$bmvAmthP7L7xwrME}#)
(values
'define-form
- #{name 17792}#
- #{val 17793}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 17760}#)
- (let ((#{tmp 17794}#
+ #{name -ANAU$bmvAmthP7L7xwrMD}#
+ #{val -ANAU$bmvAmthP7L7xwrME}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrLj}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrMF}#
($sc-dispatch
- #{e 17669}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 17794}#
+ (if (if #{tmp
-ANAU$bmvAmthP7L7xwrMF}#
(@apply
- (lambda (#{name 17798}#
- #{args 17799}#
- #{e1 17800}#
- #{e2 17801}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrMJ}#
+ #{args
-ANAU$bmvAmthP7L7xwrMK}#
+ #{e1
-ANAU$bmvAmthP7L7xwrML}#
+ #{e2
-ANAU$bmvAmthP7L7xwrMM}#)
(if (if (symbol?
- #{name 17798}#)
+ #{name
-ANAU$bmvAmthP7L7xwrMJ}#)
#t
(if (if (vector?
- #{name
17798}#)
+ #{name
-ANAU$bmvAmthP7L7xwrMJ}#)
(if (=
(vector-length
-
#{name 17798}#)
+
#{name -ANAU$bmvAmthP7L7xwrMJ}#)
4)
(eq?
(vector-ref
-
#{name 17798}#
+
#{name -ANAU$bmvAmthP7L7xwrMJ}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 17798}#
+ #{name
-ANAU$bmvAmthP7L7xwrMJ}#
1))
#f))
- (#{valid-bound-ids?
2768}#
+ (#{valid-bound-ids?
-ANAU$bmvAmthP7L7xwnN6}#
(letrec*
- ((#{lvl 17950}#
- (lambda (#{vars
17952}#
- #{ls
17953}#
- #{w
17954}#)
- (if (pair?
#{vars 17952}#)
- (#{lvl
17950}#
- (cdr
#{vars 17952}#)
- (cons
(#{wrap 2771}#
-
(car #{vars 17952}#)
-
#{w 17954}#
+ ((#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
+ (lambda (#{vars
-ANAU$bmvAmthP7L7xwrOj}#
+ #{ls
-ANAU$bmvAmthP7L7xwrOk}#
+ #{w
-ANAU$bmvAmthP7L7xwrOl}#)
+ (if (pair?
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ (#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
+ (cdr
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ (cons
(#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+
(car #{vars -ANAU$bmvAmthP7L7xwrOj}#)
+
#{w -ANAU$bmvAmthP7L7xwrOl}#
#f)
- #{ls
17953}#)
- #{w
17954}#)
+ #{ls
-ANAU$bmvAmthP7L7xwrOk}#)
+ #{w
-ANAU$bmvAmthP7L7xwrOl}#)
(if (if
(symbol?
-
#{vars 17952}#)
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
#t
(if
(if (vector?
-
#{vars 17952}#)
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
(if (= (vector-length
-
#{vars 17952}#)
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
4)
(eq? (vector-ref
-
#{vars 17952}#
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
-
#{vars 17952}#
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#
1))
#f))
- (cons
(#{wrap 2771}#
-
#{vars 17952}#
-
#{w 17954}#
+ (cons
(#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#
+
#{w -ANAU$bmvAmthP7L7xwrOl}#
#f)
- #{ls
17953}#)
- (if (null?
#{vars 17952}#)
- #{ls
17953}#
+ #{ls
-ANAU$bmvAmthP7L7xwrOk}#)
+ (if (null?
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ #{ls
-ANAU$bmvAmthP7L7xwrOk}#
(if (if
(vector?
-
#{vars 17952}#)
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
(if (= (vector-length
-
#{vars 17952}#)
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
4)
(eq? (vector-ref
-
#{vars 17952}#
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#
0)
'syntax-object)
#f)
#f)
- (#{lvl
17950}#
+ (#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
(vector-ref
-
#{vars 17952}#
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#
1)
- #{ls
17953}#
-
(#{join-wraps 2759}#
-
#{w 17954}#
+ #{ls
-ANAU$bmvAmthP7L7xwrOk}#
+
(#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+
#{w -ANAU$bmvAmthP7L7xwrOl}#
(vector-ref
-
#{vars 17952}#
+
#{vars -ANAU$bmvAmthP7L7xwrOj}#
2)))
- (cons
#{vars 17952}#
-
#{ls 17953}#))))))))
- (#{lvl 17950}#
- #{args 17799}#
+ (cons
#{vars -ANAU$bmvAmthP7L7xwrOj}#
+
#{ls -ANAU$bmvAmthP7L7xwrOk}#))))))))
+ (#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
+ #{args
-ANAU$bmvAmthP7L7xwrMK}#
'()
'(()))))
#f))
- #{tmp 17794}#)
+ #{tmp
-ANAU$bmvAmthP7L7xwrMF}#)
#f)
(@apply
- (lambda (#{name 17998}#
- #{args 17999}#
- #{e1 18000}#
- #{e2 18001}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrPR}#
+ #{args
-ANAU$bmvAmthP7L7xwrPS}#
+ #{e1
-ANAU$bmvAmthP7L7xwrPT}#
+ #{e2
-ANAU$bmvAmthP7L7xwrPU}#)
(values
'define-form
- (#{wrap 2771}#
- #{name 17998}#
- #{w 17671}#
- #{mod 17674}#)
- (let ((#{e 18007}#
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ #{name
-ANAU$bmvAmthP7L7xwrPR}#
+ #{w
-ANAU$bmvAmthP7L7xwrKK}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#)
+ (let ((#{e
-ANAU$bmvAmthP7L7xwrPa}#
(cons
'#(syntax-object
lambda
((top)
@@ -1649,10 +1969,10 @@
(top)
(top)
(top))
- #("kg"
- "kh"
- "ki"
- "kj"))
+ #("l7"
+ "l8"
+ "l9"
+ "la"))
#(ribcage
()
()
@@ -1674,12 +1994,12 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage
()
()
@@ -1687,7 +2007,7 @@
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("kn"))
#(ribcage
()
()
@@ -1715,13 +2035,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -1754,6 +2074,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -2000,8 +2321,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -2152,67 +2475,67 @@
"6")))
(hygiene
guile))
- (#{wrap 2771}#
- (cons
#{args 17999}#
- (cons
#{e1 18000}#
-
#{e2 18001}#))
- #{w 17671}#
- #{mod
17674}#))))
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ (cons
#{args -ANAU$bmvAmthP7L7xwrPS}#
+ (cons
#{e1 -ANAU$bmvAmthP7L7xwrPT}#
+
#{e2 -ANAU$bmvAmthP7L7xwrPU}#))
+ #{w
-ANAU$bmvAmthP7L7xwrKK}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#))))
(begin
- (if (if (pair? #{e
18007}#)
- #{s 17672}#
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrPa}#)
+ #{s
-ANAU$bmvAmthP7L7xwrKL}#
#f)
(set-source-properties!
- #{e 18007}#
- #{s 17672}#))
- #{e 18007}#))
+ #{e
-ANAU$bmvAmthP7L7xwrPa}#
+ #{s
-ANAU$bmvAmthP7L7xwrKL}#))
+ #{e
-ANAU$bmvAmthP7L7xwrPa}#))
'(())
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 17794}#)
- (let ((#{tmp 18014}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrMF}#)
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwrPh}#
($sc-dispatch
- #{e 17669}#
+ #{e
-ANAU$bmvAmthP7L7xwrKI}#
'(_ any))))
- (if (if #{tmp 18014}#
+ (if (if #{tmp
-ANAU$bmvAmthP7L7xwrPh}#
(@apply
- (lambda (#{name 18018}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrPl}#)
(if (symbol?
- #{name 18018}#)
+ #{name
-ANAU$bmvAmthP7L7xwrPl}#)
#t
(if (if (vector?
- #{name
18018}#)
+ #{name
-ANAU$bmvAmthP7L7xwrPl}#)
(if (=
(vector-length
-
#{name 18018}#)
+
#{name -ANAU$bmvAmthP7L7xwrPl}#)
4)
(eq?
(vector-ref
-
#{name 18018}#
+
#{name -ANAU$bmvAmthP7L7xwrPl}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 18018}#
+ #{name
-ANAU$bmvAmthP7L7xwrPl}#
1))
#f)))
- #{tmp 18014}#)
+ #{tmp
-ANAU$bmvAmthP7L7xwrPh}#)
#f)
(@apply
- (lambda (#{name 18045}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrQA}#)
(values
'define-form
- (#{wrap 2771}#
- #{name 18045}#
- #{w 17671}#
- #{mod 17674}#)
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ #{name
-ANAU$bmvAmthP7L7xwrQA}#
+ #{w
-ANAU$bmvAmthP7L7xwrKK}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("kl"))
+ #("lc"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2228,17 +2551,17 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("kn"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2257,13 +2580,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -2296,6 +2619,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -2542,8 +2866,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -2697,7 +3023,7 @@
#(ribcage
#(name)
#((top))
- #("kl"))
+ #("lc"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2713,17 +3039,17 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("kn"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2742,13 +3068,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -2781,6 +3107,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -3027,8 +3354,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -3182,7 +3511,7 @@
#(ribcage
#(name)
#((top))
- #("kl"))
+ #("lc"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3198,17 +3527,17 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("kn"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3227,13 +3556,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -3266,6 +3595,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -3512,8 +3842,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -3662,321 +3994,358 @@
("8" "7" "6")))
(hygiene guile)))
'(())
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 18014}#)
+ #{s
-ANAU$bmvAmthP7L7xwrKL}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp
-ANAU$bmvAmthP7L7xwrPh}#)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{e 17669}#)))))))
- (if (eqv? #{ftype 17713}# 'define-syntax)
- (let ((#{tmp 18064}#
+ #{e
-ANAU$bmvAmthP7L7xwrKI}#)))))))
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ 'define-syntax)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrQT}#
($sc-dispatch
- #{e 17669}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ any any))))
- (if (if #{tmp 18064}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwrQT}#
(@apply
- (lambda (#{name 18068}#
- #{val 18069}#)
- (if (symbol? #{name 18068}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrQX}#
+ #{val
-ANAU$bmvAmthP7L7xwrQY}#)
+ (if (symbol?
+ #{name
-ANAU$bmvAmthP7L7xwrQX}#)
#t
(if (if (vector?
- #{name 18068}#)
+ #{name
-ANAU$bmvAmthP7L7xwrQX}#)
(if (=
(vector-length
- #{name
18068}#)
+ #{name
-ANAU$bmvAmthP7L7xwrQX}#)
4)
(eq? (vector-ref
- #{name
18068}#
+ #{name
-ANAU$bmvAmthP7L7xwrQX}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 18068}#
+ #{name
-ANAU$bmvAmthP7L7xwrQX}#
1))
#f)))
- #{tmp 18064}#)
+ #{tmp
-ANAU$bmvAmthP7L7xwrQT}#)
#f)
(@apply
- (lambda (#{name 18096}#
- #{val 18097}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrQz}#
+ #{val
-ANAU$bmvAmthP7L7xwrQ0}#)
(values
'define-syntax-form
- #{name 18096}#
- #{val 18097}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 18064}#)
+ #{name
-ANAU$bmvAmthP7L7xwrQz}#
+ #{val -ANAU$bmvAmthP7L7xwrQ0}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrQT}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 17669}#)))
- (if (eqv? #{ftype 17713}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#)))
+ (if (eqv? #{ftype
-ANAU$bmvAmthP7L7xwrK0}#
'define-syntax-parameter)
- (let ((#{tmp 18108}#
+ (let ((#{tmp address@hidden
($sc-dispatch
- #{e 17669}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ any any))))
- (if (if #{tmp 18108}#
+ (if (if #{tmp address@hidden
(@apply
- (lambda (#{name 18112}#
- #{val 18113}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrRD}#
+ #{val
-ANAU$bmvAmthP7L7xwrRE}#)
(if (symbol?
- #{name 18112}#)
+ #{name
-ANAU$bmvAmthP7L7xwrRD}#)
#t
(if (if (vector?
- #{name
18112}#)
+ #{name
-ANAU$bmvAmthP7L7xwrRD}#)
(if (=
(vector-length
- #{name
18112}#)
+ #{name
-ANAU$bmvAmthP7L7xwrRD}#)
4)
(eq? (vector-ref
- #{name
18112}#
+ #{name
-ANAU$bmvAmthP7L7xwrRD}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 18112}#
+ #{name
-ANAU$bmvAmthP7L7xwrRD}#
1))
#f)))
- #{tmp 18108}#)
+ #{tmp address@hidden)
#f)
(@apply
- (lambda (#{name 18140}#
- #{val 18141}#)
+ (lambda (#{name
-ANAU$bmvAmthP7L7xwrRf}#
+ #{val
-ANAU$bmvAmthP7L7xwrRg}#)
(values
'define-syntax-parameter-form
- #{name 18140}#
- #{val 18141}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 18108}#)
+ #{name
-ANAU$bmvAmthP7L7xwrRf}#
+ #{val
-ANAU$bmvAmthP7L7xwrRg}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp address@hidden)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 17669}#)))
+ #{e -ANAU$bmvAmthP7L7xwrKI}#)))
(values
'call
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)))))))))))))))
- (if (if (vector? #{e 17669}#)
- (if (= (vector-length #{e 17669}#) 4)
- (eq? (vector-ref #{e 17669}# 0) 'syntax-object)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod
-ANAU$bmvAmthP7L7xwrKN}#)))))))))))))))
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwrKI}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwrKI}#)
+ 4)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 0)
+ 'syntax-object)
#f)
#f)
- (#{syntax-type 2777}#
- (vector-ref #{e 17669}# 1)
- #{r 17670}#
- (#{join-wraps 2759}#
- #{w 17671}#
- (vector-ref #{e 17669}# 2))
- (let ((#{t 18168}#
- (#{source-annotation 2736}# #{e 17669}#)))
- (if #{t 18168}# #{t 18168}# #{s 17672}#))
- #{rib 17673}#
- (let ((#{t 18403}# (vector-ref #{e 17669}# 3)))
- (if #{t 18403}# #{t 18403}# #{mod 17674}#))
- #{for-car? 17675}#)
- (if (self-evaluating? #{e 17669}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 1)
+ #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 2))
+ (let ((#{t -ANAU$bmvAmthP7L7xwrR7}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwrR7}#
+ #{t -ANAU$bmvAmthP7L7xwrR7}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#))
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwrVm}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 3)))
+ (if #{t -ANAU$bmvAmthP7L7xwrVm}#
+ #{t -ANAU$bmvAmthP7L7xwrVm}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#))
+ #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
+ (if (self-evaluating? #{e -ANAU$bmvAmthP7L7xwrKI}#)
(values
'constant
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
(values
'other
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)))))))
- (#{expand 2778}#
- (lambda (#{e 18412}#
- #{r 18413}#
- #{w 18414}#
- #{mod 18415}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)))))))
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwrVv}#
+ #{r -ANAU$bmvAmthP7L7xwrVw}#
+ #{w -ANAU$bmvAmthP7L7xwrVx}#
+ #{mod -ANAU$bmvAmthP7L7xwrVy}#)
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 18412}#
- #{r 18413}#
- #{w 18414}#
- (#{source-annotation 2736}# #{e 18412}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwrVv}#
+ #{r -ANAU$bmvAmthP7L7xwrVw}#
+ #{w -ANAU$bmvAmthP7L7xwrVx}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwrVv}#)
#f
- #{mod 18415}#
+ #{mod -ANAU$bmvAmthP7L7xwrVy}#
#f))
- (lambda (#{type 18570}#
- #{value 18571}#
- #{e 18572}#
- #{w 18573}#
- #{s 18574}#
- #{mod 18575}#)
- (#{expand-expr 2779}#
- #{type 18570}#
- #{value 18571}#
- #{e 18572}#
- #{r 18413}#
- #{w 18573}#
- #{s 18574}#
- #{mod 18575}#)))))
- (#{expand-expr 2779}#
- (lambda (#{type 18578}#
- #{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'lexical)
+ (lambda (#{type -ANAU$bmvAmthP7L7xwrYN}#
+ #{value -ANAU$bmvAmthP7L7xwrYO}#
+ #{e -ANAU$bmvAmthP7L7xwrYP}#
+ #{w -ANAU$bmvAmthP7L7xwrYQ}#
+ #{s -ANAU$bmvAmthP7L7xwrYR}#
+ #{mod -ANAU$bmvAmthP7L7xwrYS}#)
+ (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
+ #{type -ANAU$bmvAmthP7L7xwrYN}#
+ #{value -ANAU$bmvAmthP7L7xwrYO}#
+ #{e -ANAU$bmvAmthP7L7xwrYP}#
+ #{r -ANAU$bmvAmthP7L7xwrVw}#
+ #{w -ANAU$bmvAmthP7L7xwrYQ}#
+ #{s -ANAU$bmvAmthP7L7xwrYR}#
+ #{mod -ANAU$bmvAmthP7L7xwrYS}#)))))
+ (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
+ (lambda (#{type -ANAU$bmvAmthP7L7xwrYV}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 18583}#
- #{e 18580}#
- #{value 18579}#)
- (if (if (eqv? #{type 18578}# 'core)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core)
#t
- (eqv? #{type 18578}# 'core-form))
- (#{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'module-ref)
+ (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core-form))
+ (#{value -ANAU$bmvAmthP7L7xwrYW}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'module-ref)
(call-with-values
(lambda ()
- (#{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#))
- (lambda (#{e 18610}#
- #{r 18611}#
- #{w 18612}#
- #{s 18613}#
- #{mod 18614}#)
- (#{expand 2778}#
- #{e 18610}#
- #{r 18611}#
- #{w 18612}#
- #{mod 18614}#)))
- (if (eqv? #{type 18578}# 'lexical-call)
- (#{expand-application 2780}#
- (let ((#{id 18689}# (car #{e 18580}#)))
- (#{build-lexical-reference 2713}#
+ (#{value -ANAU$bmvAmthP7L7xwrYW}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwrY1}#
+ #{r -ANAU$bmvAmthP7L7xwrY2}#
+ #{w -ANAU$bmvAmthP7L7xwrY3}#
+ #{s -ANAU$bmvAmthP7L7xwrY4}#
+ #{mod -ANAU$bmvAmthP7L7xwrY5}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{e -ANAU$bmvAmthP7L7xwrY1}#
+ #{r -ANAU$bmvAmthP7L7xwrY2}#
+ #{w -ANAU$bmvAmthP7L7xwrY3}#
+ #{mod -ANAU$bmvAmthP7L7xwrY5}#)))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'lexical-call)
+ (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwraE}#
+ (car #{e -ANAU$bmvAmthP7L7xwrYX}#)))
+ (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}#
'fun
- (#{source-annotation 2736}# #{id 18689}#)
- (if (if (vector? #{id 18689}#)
- (if (= (vector-length #{id 18689}#) 4)
- (eq? (vector-ref #{id 18689}# 0) 'syntax-object)
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{id -ANAU$bmvAmthP7L7xwraE}#)
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwraE}#)
+ (if (= (vector-length
+ #{id -ANAU$bmvAmthP7L7xwraE}#)
+ 4)
+ (eq? (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwraE}#
+ 0)
+ 'syntax-object)
#f)
#f)
- (syntax->datum #{id 18689}#)
- #{id 18689}#)
- #{value 18579}#))
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'global-call)
- (#{expand-application 2780}#
- (#{build-global-reference 2716}#
- (#{source-annotation 2736}# (car #{e 18580}#))
- (if (if (vector? #{value 18579}#)
- (if (= (vector-length #{value 18579}#) 4)
- (eq? (vector-ref #{value 18579}# 0)
+ (syntax->datum #{id -ANAU$bmvAmthP7L7xwraE}#)
+ #{id -ANAU$bmvAmthP7L7xwraE}#)
+ #{value -ANAU$bmvAmthP7L7xwrYW}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'global-call)
+ (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
+ (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ (car #{e -ANAU$bmvAmthP7L7xwrYX}#))
+ (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ (if (= (vector-length
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ 4)
+ (eq? (vector-ref
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 18579}# 1)
- #{value 18579}#)
- (if (if (vector? #{value 18579}#)
- (if (= (vector-length #{value 18579}#) 4)
- (eq? (vector-ref #{value 18579}# 0)
+ (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 1)
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ (if (= (vector-length
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ 4)
+ (eq? (vector-ref
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 18579}# 3)
- #{mod 18584}#))
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'constant)
- (let ((#{exp 19026}#
- (#{strip 2791}#
- (#{wrap 2771}#
+ (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 3)
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'constant)
+ (let ((#{exp -ANAU$bmvAmthP7L7xwrfV}#
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 18580}#) #{s 18583}# #f)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#)
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 18583}#
- #{exp 19026}#))
- (if (eqv? #{type 18578}# 'global)
- (#{analyze-variable 2715}#
- #{mod 18584}#
- #{value 18579}#
- (lambda (#{mod 19062}#
- #{var 19063}#
- #{public? 19064}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{exp -ANAU$bmvAmthP7L7xwrfV}#))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'global)
+ (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwrf5}#
+ #{var -ANAU$bmvAmthP7L7xwrf6}#
+ #{public? -ANAU$bmvAmthP7L7xwrf7}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 18583}#
- #{mod 19062}#
- #{var 19063}#
- #{public? 19064}#))
- (lambda (#{var 19073}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrf5}#
+ #{var -ANAU$bmvAmthP7L7xwrf6}#
+ #{public? -ANAU$bmvAmthP7L7xwrf7}#))
+ (lambda (#{var -ANAU$bmvAmthP7L7xwrgE}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 18583}#
- #{var 19073}#)))
- (if (eqv? #{type 18578}# 'call)
- (#{expand-application 2780}#
- (#{expand 2778}#
- (car #{e 18580}#)
- #{r 18581}#
- #{w 18582}#
- #{mod 18584}#)
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'begin-form)
- (let ((#{tmp 19148}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{var -ANAU$bmvAmthP7L7xwrgE}#)))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'call)
+ (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ (car #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'begin-form)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrhP}#
($sc-dispatch
- #{e 18580}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
'(_ any . each-any))))
- (if #{tmp 19148}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwrhP}#
(@apply
- (lambda (#{e1 19152}# #{e2 19153}#)
- (#{expand-sequence 2773}#
- (cons #{e1 19152}# #{e2 19153}#)
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#))
- #{tmp 19148}#)
- (let ((#{tmp 19240}#
- ($sc-dispatch #{e 18580}# '(_))))
- (if #{tmp 19240}#
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwrhT}#
+ #{e2 -ANAU$bmvAmthP7L7xwrhU}#)
+ (#{expand-sequence address@hidden
+ (cons #{e1 -ANAU$bmvAmthP7L7xwrhT}#
+ #{e2 -ANAU$bmvAmthP7L7xwrhU}#)
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrhP}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrir}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ '(_))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwrir}#
(@apply
(lambda ()
(if (include-deprecated-features)
@@ -3989,820 +4358,914 @@
(syntax-violation
#f
"sequence of zero expressions"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
+ #{s
-ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))))
- #{tmp 19240}#)
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{s
-ANAU$bmvAmthP7L7xwrYa}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwrir}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 18580}#)))))
- (if (eqv? #{type 18578}# 'local-syntax-form)
- (#{expand-local-syntax 2783}#
- #{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#
- #{expand-sequence 2773}#)
- (if (eqv? #{type 18578}# 'eval-when-form)
- (let ((#{tmp 19351}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)))))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'local-syntax-form)
+ (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#
+ #{expand-sequence address@hidden)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'eval-when-form)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrka}#
($sc-dispatch
- #{e 18580}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
'(_ each-any any . each-any))))
- (if #{tmp 19351}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwrka}#
(@apply
- (lambda (#{x 19355}#
- #{e1 19356}#
- #{e2 19357}#)
- (let ((#{when-list 19358}#
- (#{parse-when-list 2776}#
- #{e 18580}#
- #{x 19355}#)))
- (if (memq 'eval #{when-list 19358}#)
- (#{expand-sequence 2773}#
- (cons #{e1 19356}# #{e2 19357}#)
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwrke}#
+ #{e1 -ANAU$bmvAmthP7L7xwrkf}#
+ #{e2 -ANAU$bmvAmthP7L7xwrkg}#)
+ (let ((#{when-list
-ANAU$bmvAmthP7L7xwrkh}#
+ (#{parse-when-list
-ANAU$bmvAmthP7L7xwnOC}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{x
-ANAU$bmvAmthP7L7xwrke}#)))
+ (if (memq 'eval
+ #{when-list
-ANAU$bmvAmthP7L7xwrkh}#)
+ (#{expand-sequence address@hidden
+ (cons #{e1
-ANAU$bmvAmthP7L7xwrkf}#
+ #{e2
-ANAU$bmvAmthP7L7xwrkg}#)
+ #{r -ANAU$bmvAmthP7L7xwrYY}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 19351}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrka}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 18580}#)))
- (if (if (eqv? #{type 18578}# 'define-form)
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)))
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'define-form)
#t
- (if (eqv? #{type 18578}#
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
'define-syntax-form)
#t
- (eqv? #{type 18578}#
+ (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e 18580}#
- (#{wrap 2771}#
- #{value 18579}#
- #{w 18582}#
- #{mod 18584}#))
- (if (eqv? #{type 18578}# 'syntax)
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'syntax)
(syntax-violation
#f
"reference to pattern variable outside
syntax form"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))
- (if (eqv? #{type 18578}# 'displaced-lexical)
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its
scope"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))))))))))))))))))
- (#{expand-application 2780}#
- (lambda (#{x 19598}#
- #{e 19599}#
- #{r 19600}#
- #{w 19601}#
- #{s 19602}#
- #{mod 19603}#)
- (let ((#{tmp 19605}#
- ($sc-dispatch #{e 19599}# '(any . each-any))))
- (if #{tmp 19605}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod
-ANAU$bmvAmthP7L7xwrYb}#))))))))))))))))))
+ (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwroR}#
+ #{e -ANAU$bmvAmthP7L7xwroS}#
+ #{r -ANAU$bmvAmthP7L7xwroT}#
+ #{w -ANAU$bmvAmthP7L7xwroU}#
+ #{s -ANAU$bmvAmthP7L7xwroV}#
+ #{mod -ANAU$bmvAmthP7L7xwroW}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwroY}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwroS}#
+ '(any . each-any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwroY}#
(@apply
- (lambda (#{e0 19609}# #{e1 19610}#)
- (#{build-application 2710}#
- #{s 19602}#
- #{x 19598}#
- (map (lambda (#{e 19690}#)
- (#{expand 2778}#
- #{e 19690}#
- #{r 19600}#
- #{w 19601}#
- #{mod 19603}#))
- #{e1 19610}#)))
- #{tmp 19605}#)
+ (lambda (#{e0 -ANAU$bmvAmthP7L7xwroc}#
+ #{e1 -ANAU$bmvAmthP7L7xwrod}#)
+ (#{build-application address@hidden
+ #{s -ANAU$bmvAmthP7L7xwroV}#
+ #{x -ANAU$bmvAmthP7L7xwroR}#
+ (map (lambda (#{e -ANAU$bmvAmthP7L7xwrpt}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{e -ANAU$bmvAmthP7L7xwrpt}#
+ #{r -ANAU$bmvAmthP7L7xwroT}#
+ #{w -ANAU$bmvAmthP7L7xwroU}#
+ #{mod -ANAU$bmvAmthP7L7xwroW}#))
+ #{e1 -ANAU$bmvAmthP7L7xwrod}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwroY}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 19599}#)))))
- (#{expand-macro 2781}#
- (lambda (#{p 19766}#
- #{e 19767}#
- #{r 19768}#
- #{w 19769}#
- #{s 19770}#
- #{rib 19771}#
- #{mod 19772}#)
+ #{e -ANAU$bmvAmthP7L7xwroS}#)))))
+ (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xwrq5}#
+ #{e -ANAU$bmvAmthP7L7xwrq6}#
+ #{r -ANAU$bmvAmthP7L7xwrq7}#
+ #{w -ANAU$bmvAmthP7L7xwrq8}#
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
+ #{rib -ANAU$bmvAmthP7L7xwrq$}#
+ #{mod address@hidden)
(letrec*
- ((#{rebuild-macro-output 19773}#
- (lambda (#{x 19805}# #{m 19806}#)
- (if (pair? #{x 19805}#)
- (let ((#{e 19810}#
- (cons (#{rebuild-macro-output 19773}#
- (car #{x 19805}#)
- #{m 19806}#)
- (#{rebuild-macro-output 19773}#
- (cdr #{x 19805}#)
- #{m 19806}#))))
+ ((#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwrrh}#
+ #{m -ANAU$bmvAmthP7L7xwrri}#)
+ (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ (let ((#{e -ANAU$bmvAmthP7L7xwrrm}#
+ (cons (#{rebuild-macro-output
-ANAU$bmvAmthP7L7xwrrA}#
+ (car #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ #{m -ANAU$bmvAmthP7L7xwrri}#)
+ (#{rebuild-macro-output
-ANAU$bmvAmthP7L7xwrrA}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ #{m -ANAU$bmvAmthP7L7xwrri}#))))
(begin
- (if (if (pair? #{e 19810}#) #{s 19770}# #f)
- (set-source-properties! #{e 19810}# #{s 19770}#))
- #{e 19810}#))
- (if (if (vector? #{x 19805}#)
- (if (= (vector-length #{x 19805}#) 4)
- (eq? (vector-ref #{x 19805}# 0) 'syntax-object)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrrm}#)
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwrrm}#
+ #{s -ANAU$bmvAmthP7L7xwrq9}#))
+ #{e -ANAU$bmvAmthP7L7xwrrm}#))
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{w 19826}# (vector-ref #{x 19805}# 2)))
- (let ((#{ms 19827}# (car #{w 19826}#))
- (#{s 19828}# (cdr #{w 19826}#)))
- (if (if (pair? #{ms 19827}#)
- (eq? (car #{ms 19827}#) #f)
+ (let ((#{w -ANAU$bmvAmthP7L7xwrr2}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 2)))
+ (let ((#{ms -ANAU$bmvAmthP7L7xwrr3}#
+ (car #{w -ANAU$bmvAmthP7L7xwrr2}#))
+ (#{s -ANAU$bmvAmthP7L7xwrr4}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwrr2}#)))
+ (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwrr3}#)
+ (eq? (car #{ms -ANAU$bmvAmthP7L7xwrr3}#) #f)
#f)
- (let ((#{expression 19836}#
- (vector-ref #{x 19805}# 1))
- (#{wrap 19837}#
- (cons (cdr #{ms 19827}#)
- (if #{rib 19771}#
- (cons #{rib 19771}#
- (cdr #{s 19828}#))
- (cdr #{s 19828}#))))
- (#{module 19838}# (vector-ref #{x 19805}# 3)))
+ (let ((#{expression -ANAU$bmvAmthP7L7xwrsA}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 1))
+ (#{wrap -ANAU$bmvAmthP7L7xwrsB}#
+ (cons (cdr #{ms -ANAU$bmvAmthP7L7xwrr3}#)
+ (if #{rib -ANAU$bmvAmthP7L7xwrq$}#
+ (cons #{rib -ANAU$bmvAmthP7L7xwrq$}#
+ (cdr #{s
-ANAU$bmvAmthP7L7xwrr4}#))
+ (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#))))
+ (#{module -ANAU$bmvAmthP7L7xwrsC}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3)))
(vector
'syntax-object
- #{expression 19836}#
- #{wrap 19837}#
- #{module 19838}#))
- (let ((#{expression 19848}#
- (let ((#{e 19853}#
- (vector-ref #{x 19805}# 1)))
+ #{expression -ANAU$bmvAmthP7L7xwrsA}#
+ #{wrap -ANAU$bmvAmthP7L7xwrsB}#
+ #{module -ANAU$bmvAmthP7L7xwrsC}#))
+ (let ((#{expression -ANAU$bmvAmthP7L7xwrsM}#
+ (let ((#{e -ANAU$bmvAmthP7L7xwrsR}#
+ (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwrrh}#
+ 1)))
(begin
- (if (if (pair? #{e 19853}#)
- #{s 19828}#
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrsR}#)
+ #{s -ANAU$bmvAmthP7L7xwrr4}#
#f)
(set-source-properties!
- #{e 19853}#
- #{s 19828}#))
- #{e 19853}#)))
- (#{wrap 19849}#
- (cons (cons #{m 19806}# #{ms 19827}#)
- (if #{rib 19771}#
- (cons #{rib 19771}#
- (cons 'shift #{s 19828}#))
- (cons 'shift #{s 19828}#))))
- (#{module 19850}# (vector-ref #{x 19805}# 3)))
+ #{e -ANAU$bmvAmthP7L7xwrsR}#
+ #{s -ANAU$bmvAmthP7L7xwrr4}#))
+ #{e -ANAU$bmvAmthP7L7xwrsR}#)))
+ (#{wrap -ANAU$bmvAmthP7L7xwrsN}#
+ (cons (cons #{m -ANAU$bmvAmthP7L7xwrri}#
+ #{ms -ANAU$bmvAmthP7L7xwrr3}#)
+ (if #{rib -ANAU$bmvAmthP7L7xwrq$}#
+ (cons #{rib -ANAU$bmvAmthP7L7xwrq$}#
+ (cons 'shift
+ #{s
-ANAU$bmvAmthP7L7xwrr4}#))
+ (cons 'shift
+ #{s
-ANAU$bmvAmthP7L7xwrr4}#))))
+ (#{module -ANAU$bmvAmthP7L7xwrsO}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3)))
(vector
'syntax-object
- #{expression 19848}#
- #{wrap 19849}#
- #{module 19850}#)))))
- (if (vector? #{x 19805}#)
- (let ((#{n 19865}# (vector-length #{x 19805}#)))
- (let ((#{v 19866}#
- (let ((#{e 19874}# (make-vector #{n 19865}#)))
+ #{expression -ANAU$bmvAmthP7L7xwrsM}#
+ #{wrap -ANAU$bmvAmthP7L7xwrsN}#
+ #{module -ANAU$bmvAmthP7L7xwrsO}#)))))
+ (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ (let ((#{n -ANAU$bmvAmthP7L7xwrsd}#
+ (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#)))
+ (let ((#{v -ANAU$bmvAmthP7L7xwrse}#
+ (let ((#{e -ANAU$bmvAmthP7L7xwrsm}#
+ (make-vector
+ #{n -ANAU$bmvAmthP7L7xwrsd}#)))
(begin
- (if (if (pair? #{e 19874}#) #{x 19805}# #f)
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrsm}#)
+ #{x -ANAU$bmvAmthP7L7xwrrh}#
+ #f)
(set-source-properties!
- #{e 19874}#
- #{x 19805}#))
- #{e 19874}#))))
+ #{e -ANAU$bmvAmthP7L7xwrsm}#
+ #{x -ANAU$bmvAmthP7L7xwrrh}#))
+ #{e -ANAU$bmvAmthP7L7xwrsm}#))))
(letrec*
- ((#{loop 19867}#
- (lambda (#{i 19919}#)
- (if (= #{i 19919}# #{n 19865}#)
- #{v 19866}#
+ ((#{loop -ANAU$bmvAmthP7L7xwrsf}#
+ (lambda (#{i -ANAU$bmvAmthP7L7xwrtT}#)
+ (if (= #{i -ANAU$bmvAmthP7L7xwrtT}#
+ #{n -ANAU$bmvAmthP7L7xwrsd}#)
+ #{v -ANAU$bmvAmthP7L7xwrse}#
(begin
(vector-set!
- #{v 19866}#
- #{i 19919}#
- (#{rebuild-macro-output 19773}#
- (vector-ref #{x 19805}# #{i 19919}#)
- #{m 19806}#))
- (#{loop 19867}# (#{1+}# #{i 19919}#)))))))
- (#{loop 19867}# 0))))
- (if (symbol? #{x 19805}#)
+ #{v -ANAU$bmvAmthP7L7xwrse}#
+ #{i -ANAU$bmvAmthP7L7xwrtT}#
+ (#{rebuild-macro-output
-ANAU$bmvAmthP7L7xwrrA}#
+ (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwrrh}#
+ #{i -ANAU$bmvAmthP7L7xwrtT}#)
+ #{m -ANAU$bmvAmthP7L7xwrri}#))
+ (#{loop -ANAU$bmvAmthP7L7xwrsf}#
+ (#{1+}# #{i
-ANAU$bmvAmthP7L7xwrtT}#)))))))
+ (#{loop -ANAU$bmvAmthP7L7xwrsf}# 0))))
+ (if (symbol? #{x -ANAU$bmvAmthP7L7xwrrh}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 19925}# (cdr #{w 19769}#)))
- (#{wrap 2771}#
+ (let ((#{s -ANAU$bmvAmthP7L7xwrtZ}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 19767}#) #{s 19925}# #f)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{s -ANAU$bmvAmthP7L7xwrtZ}#
+ #f)
(set-source-properties!
- #{e 19767}#
- #{s 19925}#))
- #{e 19767}#)
- #{w 19769}#
- #{mod 19772}#))
- #{x 19805}#)
+ #{e -ANAU$bmvAmthP7L7xwrq6}#
+ #{s -ANAU$bmvAmthP7L7xwrtZ}#))
+ #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{w -ANAU$bmvAmthP7L7xwrq8}#
+ #{mod address@hidden))
+ #{x -ANAU$bmvAmthP7L7xwrrh}#)
(begin
- (if (if (pair? #{x 19805}#) #{s 19770}# #f)
- (set-source-properties! #{x 19805}# #{s 19770}#))
- #{x 19805}#))))))))
+ (if (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
+ #f)
+ (set-source-properties!
+ #{x -ANAU$bmvAmthP7L7xwrrh}#
+ #{s -ANAU$bmvAmthP7L7xwrq9}#))
+ #{x -ANAU$bmvAmthP7L7xwrrh}#))))))))
(with-fluids
- ((#{transformer-environment 2764}#
- (lambda (#{k 19774}#)
- (#{k 19774}#
- #{e 19767}#
- #{r 19768}#
- #{w 19769}#
- #{s 19770}#
- #{rib 19771}#
- #{mod 19772}#))))
- (#{rebuild-macro-output 19773}#
- (#{p 19766}#
- (let ((#{w 19781}#
- (cons (cons #f (car #{w 19769}#))
- (cons 'shift (cdr #{w 19769}#)))))
- (#{wrap 2771}#
+ ((#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
+ (lambda (#{k -ANAU$bmvAmthP7L7xwrrB}#)
+ (#{k -ANAU$bmvAmthP7L7xwrrB}#
+ #{e -ANAU$bmvAmthP7L7xwrq6}#
+ #{r -ANAU$bmvAmthP7L7xwrq7}#
+ #{w -ANAU$bmvAmthP7L7xwrq8}#
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
+ #{rib -ANAU$bmvAmthP7L7xwrq$}#
+ #{mod address@hidden))))
+ (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
+ (#{p -ANAU$bmvAmthP7L7xwrq5}#
+ (let ((#{w -ANAU$bmvAmthP7L7xwrrI}#
+ (cons (cons #f (car #{w -ANAU$bmvAmthP7L7xwrq8}#))
+ (cons 'shift
+ (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))))
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 19767}#) #{s 19770}# #f)
- (set-source-properties! #{e 19767}# #{s 19770}#))
- #{e 19767}#)
- #{w 19781}#
- #{mod 19772}#)))
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwrq6}#
+ #{s -ANAU$bmvAmthP7L7xwrq9}#))
+ #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{w -ANAU$bmvAmthP7L7xwrrI}#
+ #{mod address@hidden)))
(gensym "m"))))))
- (#{expand-body 2782}#
- (lambda (#{body 19957}#
- #{outer-form 19958}#
- #{r 19959}#
- #{w 19960}#
- #{mod 19961}#)
- (let ((#{r 19962}#
- (cons '("placeholder" placeholder) #{r 19959}#)))
- (let ((#{ribcage 19963}# (vector 'ribcage '() '() '())))
- (let ((#{w 19964}#
- (cons (car #{w 19960}#)
- (cons #{ribcage 19963}# (cdr #{w 19960}#)))))
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xwrt5}#
+ #{outer-form -ANAU$bmvAmthP7L7xwrt6}#
+ #{r -ANAU$bmvAmthP7L7xwrt7}#
+ #{w -ANAU$bmvAmthP7L7xwrt8}#
+ #{mod -ANAU$bmvAmthP7L7xwrt9}#)
+ (let ((#{r -ANAU$bmvAmthP7L7xwrt$}#
+ (cons '("placeholder" placeholder)
+ #{r -ANAU$bmvAmthP7L7xwrt7}#)))
+ (let ((#{ribcage address@hidden
+ (vector 'ribcage '() '() '())))
+ (let ((#{w -ANAU$bmvAmthP7L7xwruA}#
+ (cons (car #{w -ANAU$bmvAmthP7L7xwrt8}#)
+ (cons #{ribcage address@hidden
+ (cdr #{w -ANAU$bmvAmthP7L7xwrt8}#)))))
(letrec*
- ((#{parse 19965}#
- (lambda (#{body 19978}#
- #{ids 19979}#
- #{labels 19980}#
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
- #{bindings 19984}#)
- (if (null? #{body 19978}#)
+ ((#{parse -ANAU$bmvAmthP7L7xwruB}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xwruO}#
+ #{ids -ANAU$bmvAmthP7L7xwruP}#
+ #{labels -ANAU$bmvAmthP7L7xwruQ}#
+ #{var-ids -ANAU$bmvAmthP7L7xwruR}#
+ #{vars -ANAU$bmvAmthP7L7xwruS}#
+ #{vals -ANAU$bmvAmthP7L7xwruT}#
+ #{bindings -ANAU$bmvAmthP7L7xwruU}#)
+ (if (null? #{body -ANAU$bmvAmthP7L7xwruO}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 19958}#)
- (let ((#{e 19985}# (cdr (car #{body 19978}#)))
- (#{er 19986}# (car (car #{body 19978}#))))
+ #{outer-form -ANAU$bmvAmthP7L7xwrt6}#)
+ (let ((#{e -ANAU$bmvAmthP7L7xwruV}#
+ (cdr (car #{body -ANAU$bmvAmthP7L7xwruO}#)))
+ (#{er -ANAU$bmvAmthP7L7xwruW}#
+ (car (car #{body -ANAU$bmvAmthP7L7xwruO}#))))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 19985}#
- #{er 19986}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwruV}#
+ #{er -ANAU$bmvAmthP7L7xwruW}#
'(())
- (#{source-annotation 2736}# #{er 19986}#)
- #{ribcage 19963}#
- #{mod 19961}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{er -ANAU$bmvAmthP7L7xwruW}#)
+ #{ribcage address@hidden
+ #{mod -ANAU$bmvAmthP7L7xwrt9}#
#f))
- (lambda (#{type 20143}#
- #{value 20144}#
- #{e 20145}#
- #{w 20146}#
- #{s 20147}#
- #{mod 20148}#)
- (if (eqv? #{type 20143}# 'define-form)
- (let ((#{id 20152}#
- (#{wrap 2771}#
- #{value 20144}#
- #{w 20146}#
- #{mod 20148}#))
- (#{label 20153}# (#{gen-label 2745}#)))
- (let ((#{var 20154}#
- (let ((#{id 20212}#
+ (lambda (#{type -ANAU$bmvAmthP7L7xwrwz}#
+ #{value -ANAU$bmvAmthP7L7xwrw0}#
+ #{e -ANAU$bmvAmthP7L7xwrw1}#
+ #{w -ANAU$bmvAmthP7L7xwrw2}#
+ #{s -ANAU$bmvAmthP7L7xwrw3}#
+ #{mod -ANAU$bmvAmthP7L7xwrw4}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
+ 'define-form)
+ (let ((#{id -ANAU$bmvAmthP7L7xwrw8}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{value -ANAU$bmvAmthP7L7xwrw0}#
+ #{w -ANAU$bmvAmthP7L7xwrw2}#
+ #{mod -ANAU$bmvAmthP7L7xwrw4}#))
+ (#{label -ANAU$bmvAmthP7L7xwrw9}#
+ (#{gen-label
-ANAU$bmvAmthP7L7xwnNi}#)))
+ (let ((#{var -ANAU$bmvAmthP7L7xwrw$}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwrx4}#
(if (if (vector?
- #{id 20152}#)
+ #{id
-ANAU$bmvAmthP7L7xwrw8}#)
(if (= (vector-length
- #{id 20152}#)
+ #{id
-ANAU$bmvAmthP7L7xwrw8}#)
4)
(eq? (vector-ref
- #{id 20152}#
+ #{id
-ANAU$bmvAmthP7L7xwrw8}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 20152}# 1)
- #{id 20152}#)))
+ (vector-ref
+ #{id
-ANAU$bmvAmthP7L7xwrw8}#
+ 1)
+ #{id
-ANAU$bmvAmthP7L7xwrw8}#)))
(gensym
(string-append
- (symbol->string #{id 20212}#)
+ (symbol->string
+ #{id
-ANAU$bmvAmthP7L7xwrx4}#)
" ")))))
(begin
- (let ((#{update 20202}#
- (cons (vector-ref #{id 20152}# 1)
+ (let ((#{update -ANAU$bmvAmthP7L7xwrxu}#
+ (cons (vector-ref
+ #{id
-ANAU$bmvAmthP7L7xwrw8}#
+ 1)
(vector-ref
- #{ribcage 19963}#
+ #{ribcage address@hidden
1))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage address@hidden
1
- #{update 20202}#))
- (let ((#{update 20204}#
+ #{update -ANAU$bmvAmthP7L7xwrxu}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrxw}#
(cons (car (vector-ref
- #{id 20152}#
+ #{id
-ANAU$bmvAmthP7L7xwrw8}#
2))
(vector-ref
- #{ribcage 19963}#
+ #{ribcage address@hidden
2))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage address@hidden
2
- #{update 20204}#))
- (let ((#{update 20206}#
- (cons #{label 20153}#
+ #{update -ANAU$bmvAmthP7L7xwrxw}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrxy}#
+ (cons #{label
-ANAU$bmvAmthP7L7xwrw9}#
(vector-ref
- #{ribcage 19963}#
+ #{ribcage address@hidden
3))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage address@hidden
3
- #{update 20206}#))
- (#{parse 19965}#
- (cdr #{body 19978}#)
- (cons #{id 20152}# #{ids 19979}#)
- (cons #{label 20153}# #{labels 19980}#)
- (cons #{id 20152}# #{var-ids 19981}#)
- (cons #{var 20154}# #{vars 19982}#)
- (cons (cons #{er 19986}#
- (#{wrap 2771}#
- #{e 20145}#
- #{w 20146}#
- #{mod 20148}#))
- #{vals 19983}#)
- (cons (cons 'lexical #{var 20154}#)
- #{bindings 19984}#)))))
- (if (if (eqv? #{type 20143}#
+ #{update -ANAU$bmvAmthP7L7xwrxy}#))
+ (#{parse -ANAU$bmvAmthP7L7xwruB}#
+ (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
+ (cons #{id -ANAU$bmvAmthP7L7xwrw8}#
+ #{ids -ANAU$bmvAmthP7L7xwruP}#)
+ (cons #{label -ANAU$bmvAmthP7L7xwrw9}#
+ #{labels
-ANAU$bmvAmthP7L7xwruQ}#)
+ (cons #{id -ANAU$bmvAmthP7L7xwrw8}#
+ #{var-ids
-ANAU$bmvAmthP7L7xwruR}#)
+ (cons #{var -ANAU$bmvAmthP7L7xwrw$}#
+ #{vars -ANAU$bmvAmthP7L7xwruS}#)
+ (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ #{e
-ANAU$bmvAmthP7L7xwrw1}#
+ #{w
-ANAU$bmvAmthP7L7xwrw2}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
+ #{vals -ANAU$bmvAmthP7L7xwruT}#)
+ (cons (cons 'lexical
+ #{var
-ANAU$bmvAmthP7L7xwrw$}#)
+ #{bindings
-ANAU$bmvAmthP7L7xwruU}#)))))
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
'define-syntax-form)
#t
- (eqv? #{type 20143}#
+ (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
'define-syntax-parameter-form))
- (let ((#{id 20245}#
- (#{wrap 2771}#
- #{value 20144}#
- #{w 20146}#
- #{mod 20148}#))
- (#{label 20246}# (#{gen-label 2745}#)))
+ (let ((#{id -ANAU$bmvAmthP7L7xwryZ}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{value -ANAU$bmvAmthP7L7xwrw0}#
+ #{w -ANAU$bmvAmthP7L7xwrw2}#
+ #{mod -ANAU$bmvAmthP7L7xwrw4}#))
+ (#{label -ANAU$bmvAmthP7L7xwrya}#
+ (#{gen-label
-ANAU$bmvAmthP7L7xwnNi}#)))
(begin
- (let ((#{update 20294}#
- (cons (vector-ref #{id 20245}# 1)
+ (let ((#{update -ANAU$bmvAmthP7L7xwrzK}#
+ (cons (vector-ref
+ #{id
-ANAU$bmvAmthP7L7xwryZ}#
+ 1)
(vector-ref
- #{ribcage 19963}#
+ #{ribcage address@hidden
1))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage address@hidden
1
- #{update 20294}#))
- (let ((#{update 20296}#
+ #{update -ANAU$bmvAmthP7L7xwrzK}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrzM}#
(cons (car (vector-ref
- #{id 20245}#
+ #{id
-ANAU$bmvAmthP7L7xwryZ}#
2))
(vector-ref
- #{ribcage 19963}#
+ #{ribcage address@hidden
2))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage address@hidden
2
- #{update 20296}#))
- (let ((#{update 20298}#
- (cons #{label 20246}#
+ #{update -ANAU$bmvAmthP7L7xwrzM}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrzO}#
+ (cons #{label
-ANAU$bmvAmthP7L7xwrya}#
(vector-ref
- #{ribcage 19963}#
+ #{ribcage address@hidden
3))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage address@hidden
3
- #{update 20298}#))
- (#{parse 19965}#
- (cdr #{body 19978}#)
- (cons #{id 20245}# #{ids 19979}#)
- (cons #{label 20246}# #{labels 19980}#)
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
+ #{update -ANAU$bmvAmthP7L7xwrzO}#))
+ (#{parse -ANAU$bmvAmthP7L7xwruB}#
+ (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
+ (cons #{id -ANAU$bmvAmthP7L7xwryZ}#
+ #{ids -ANAU$bmvAmthP7L7xwruP}#)
+ (cons #{label -ANAU$bmvAmthP7L7xwrya}#
+ #{labels
-ANAU$bmvAmthP7L7xwruQ}#)
+ #{var-ids -ANAU$bmvAmthP7L7xwruR}#
+ #{vars -ANAU$bmvAmthP7L7xwruS}#
+ #{vals -ANAU$bmvAmthP7L7xwruT}#
(cons (cons 'macro
- (cons #{er 19986}#
- (#{wrap 2771}#
- #{e 20145}#
- #{w 20146}#
- #{mod 20148}#)))
- #{bindings 19984}#))))
- (if (eqv? #{type 20143}# 'begin-form)
- (let ((#{tmp 20306}#
+ (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ #{e
-ANAU$bmvAmthP7L7xwrw1}#
+ #{w
-ANAU$bmvAmthP7L7xwrw2}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#)))
+ #{bindings
-ANAU$bmvAmthP7L7xwruU}#))))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
+ 'begin-form)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrzW}#
($sc-dispatch
- #{e 20145}#
+ #{e -ANAU$bmvAmthP7L7xwrw1}#
'(_ . each-any))))
- (if #{tmp 20306}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwrzW}#
(@apply
- (lambda (#{e1 20310}#)
- (#{parse 19965}#
+ (lambda (#{e1
-ANAU$bmvAmthP7L7xwrza}#)
+ (#{parse -ANAU$bmvAmthP7L7xwruB}#
(letrec*
- ((#{f 20311}#
- (lambda (#{forms 20374}#)
- (if (null? #{forms
20374}#)
- (cdr #{body 19978}#)
- (cons (cons #{er 19986}#
- (#{wrap
2771}#
- (car
#{forms 20374}#)
- #{w
20146}#
- #{mod
20148}#))
- (#{f 20311}#
- (cdr #{forms
20374}#)))))))
- (#{f 20311}# #{e1 20310}#))
- #{ids 19979}#
- #{labels 19980}#
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
- #{bindings 19984}#))
- #{tmp 20306}#)
+ ((#{f -ANAU$bmvAmthP7L7xwrzb}#
+ (lambda (#{forms
-ANAU$bmvAmthP7L7xwr0a}#)
+ (if (null? #{forms
-ANAU$bmvAmthP7L7xwr0a}#)
+ (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#)
+ (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ (car
#{forms -ANAU$bmvAmthP7L7xwr0a}#)
+ #{w
-ANAU$bmvAmthP7L7xwrw2}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
+ (#{f
-ANAU$bmvAmthP7L7xwrzb}#
+ (cdr #{forms
-ANAU$bmvAmthP7L7xwr0a}#)))))))
+ (#{f -ANAU$bmvAmthP7L7xwrzb}#
+ #{e1
-ANAU$bmvAmthP7L7xwrza}#))
+ #{ids -ANAU$bmvAmthP7L7xwruP}#
+ #{labels -ANAU$bmvAmthP7L7xwruQ}#
+ #{var-ids
-ANAU$bmvAmthP7L7xwruR}#
+ #{vars -ANAU$bmvAmthP7L7xwruS}#
+ #{vals -ANAU$bmvAmthP7L7xwruT}#
+ #{bindings
-ANAU$bmvAmthP7L7xwruU}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrzW}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{e 20145}#)))
- (if (eqv? #{type 20143}#
+ #{e -ANAU$bmvAmthP7L7xwrw1}#)))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
'local-syntax-form)
- (#{expand-local-syntax 2783}#
- #{value 20144}#
- #{e 20145}#
- #{er 19986}#
- #{w 20146}#
- #{s 20147}#
- #{mod 20148}#
- (lambda (#{forms 20388}#
- #{er 20389}#
- #{w 20390}#
- #{s 20391}#
- #{mod 20392}#)
- (#{parse 19965}#
+ (#{expand-local-syntax
-ANAU$bmvAmthP7L7xwnOJ}#
+ #{value -ANAU$bmvAmthP7L7xwrw0}#
+ #{e -ANAU$bmvAmthP7L7xwrw1}#
+ #{er -ANAU$bmvAmthP7L7xwruW}#
+ #{w -ANAU$bmvAmthP7L7xwrw2}#
+ #{s -ANAU$bmvAmthP7L7xwrw3}#
+ #{mod -ANAU$bmvAmthP7L7xwrw4}#
+ (lambda (#{forms
-ANAU$bmvAmthP7L7xwr0o}#
+ #{er -ANAU$bmvAmthP7L7xwr0p}#
+ #{w -ANAU$bmvAmthP7L7xwr0q}#
+ #{s -ANAU$bmvAmthP7L7xwr0r}#
+ #{mod
-ANAU$bmvAmthP7L7xwr0s}#)
+ (#{parse -ANAU$bmvAmthP7L7xwruB}#
(letrec*
- ((#{f 20393}#
- (lambda (#{forms 20456}#)
- (if (null? #{forms 20456}#)
- (cdr #{body 19978}#)
- (cons (cons #{er 20389}#
- (#{wrap 2771}#
- (car
#{forms 20456}#)
- #{w 20390}#
- #{mod
20392}#))
- (#{f 20393}#
- (cdr #{forms
20456}#)))))))
- (#{f 20393}# #{forms 20388}#))
- #{ids 19979}#
- #{labels 19980}#
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
- #{bindings 19984}#)))
- (if (null? #{ids 19979}#)
- (#{build-sequence 2724}#
+ ((#{f -ANAU$bmvAmthP7L7xwr0t}#
+ (lambda (#{forms
-ANAU$bmvAmthP7L7xwr1s}#)
+ (if (null? #{forms
-ANAU$bmvAmthP7L7xwr1s}#)
+ (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#)
+ (cons (cons #{er
-ANAU$bmvAmthP7L7xwr0p}#
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ (car
#{forms -ANAU$bmvAmthP7L7xwr1s}#)
+ #{w
-ANAU$bmvAmthP7L7xwr0q}#
+ #{mod
-ANAU$bmvAmthP7L7xwr0s}#))
+ (#{f
-ANAU$bmvAmthP7L7xwr0t}#
+ (cdr #{forms
-ANAU$bmvAmthP7L7xwr1s}#)))))))
+ (#{f -ANAU$bmvAmthP7L7xwr0t}#
+ #{forms
-ANAU$bmvAmthP7L7xwr0o}#))
+ #{ids -ANAU$bmvAmthP7L7xwruP}#
+ #{labels -ANAU$bmvAmthP7L7xwruQ}#
+ #{var-ids -ANAU$bmvAmthP7L7xwruR}#
+ #{vars -ANAU$bmvAmthP7L7xwruS}#
+ #{vals -ANAU$bmvAmthP7L7xwruT}#
+ #{bindings
-ANAU$bmvAmthP7L7xwruU}#)))
+ (if (null? #{ids
-ANAU$bmvAmthP7L7xwruP}#)
+ (#{build-sequence
-ANAU$bmvAmthP7L7xwnNN}#
#f
- (map (lambda (#{x 20521}#)
- (let ((#{e 20525}#
- (cdr #{x 20521}#))
- (#{r 20526}#
- (car #{x 20521}#)))
+ (map (lambda (#{x
-ANAU$bmvAmthP7L7xwr2t}#)
+ (let ((#{e
-ANAU$bmvAmthP7L7xwr2x}#
+ (cdr #{x
-ANAU$bmvAmthP7L7xwr2t}#))
+ (#{r
-ANAU$bmvAmthP7L7xwr2y}#
+ (car #{x
-ANAU$bmvAmthP7L7xwr2t}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 20525}#
- #{r 20526}#
+ (#{syntax-type
-ANAU$bmvAmthP7L7xwnOD}#
+ #{e
-ANAU$bmvAmthP7L7xwr2x}#
+ #{r
-ANAU$bmvAmthP7L7xwr2y}#
'(())
- (#{source-annotation
2736}#
- #{e 20525}#)
+ (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
+ #{e
-ANAU$bmvAmthP7L7xwr2x}#)
#f
- #{mod 20148}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#
#f))
- (lambda (#{type 20530}#
- #{value 20531}#
- #{e 20532}#
- #{w 20533}#
- #{s 20534}#
- #{mod 20535}#)
- (#{expand-expr 2779}#
- #{type 20530}#
- #{value 20531}#
- #{e 20532}#
- #{r 20526}#
- #{w 20533}#
- #{s 20534}#
- #{mod 20535}#)))))
- (cons (cons #{er 19986}#
- (#{wrap 2771}#
+ (lambda (#{type
-ANAU$bmvAmthP7L7xwr22}#
+ #{value
-ANAU$bmvAmthP7L7xwr23}#
+ #{e
-ANAU$bmvAmthP7L7xwr24}#
+ #{w
-ANAU$bmvAmthP7L7xwr25}#
+ #{s
-ANAU$bmvAmthP7L7xwr26}#
+ #{mod
-ANAU$bmvAmthP7L7xwr27}#)
+ (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
+ #{type
-ANAU$bmvAmthP7L7xwr22}#
+ #{value
-ANAU$bmvAmthP7L7xwr23}#
+ #{e
-ANAU$bmvAmthP7L7xwr24}#
+ #{r
-ANAU$bmvAmthP7L7xwr2y}#
+ #{w
-ANAU$bmvAmthP7L7xwr25}#
+ #{s
-ANAU$bmvAmthP7L7xwr26}#
+ #{mod
-ANAU$bmvAmthP7L7xwr27}#)))))
+ (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair?
#{e 20145}#)
- #{s
20147}#
+ (if (if (pair?
#{e -ANAU$bmvAmthP7L7xwrw1}#)
+ #{s
-ANAU$bmvAmthP7L7xwrw3}#
#f)
(set-source-properties!
- #{e 20145}#
- #{s
20147}#))
- #{e 20145}#)
- #{w 20146}#
- #{mod 20148}#))
- (cdr #{body 19978}#))))
+ #{e
-ANAU$bmvAmthP7L7xwrw1}#
+ #{s
-ANAU$bmvAmthP7L7xwrw3}#))
+ #{e
-ANAU$bmvAmthP7L7xwrw1}#)
+ #{w
-ANAU$bmvAmthP7L7xwrw2}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
+ (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#))))
(begin
- (if (not (#{valid-bound-ids? 2768}#
- #{ids 19979}#))
+ (if (not (#{valid-bound-ids?
-ANAU$bmvAmthP7L7xwnN6}#
+ #{ids
-ANAU$bmvAmthP7L7xwruP}#))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- #{outer-form 19958}#))
+ #{outer-form
-ANAU$bmvAmthP7L7xwrt6}#))
(letrec*
- ((#{loop 20636}#
- (lambda (#{bs 20639}#
- #{er-cache 20640}#
- #{r-cache 20641}#)
- (if (not (null? #{bs 20639}#))
- (let ((#{b 20642}#
- (car #{bs 20639}#)))
- (if (eq? (car #{b 20642}#)
+ ((#{loop -ANAU$bmvAmthP7L7xwr4g}#
+ (lambda (#{bs
-ANAU$bmvAmthP7L7xwr4j}#
+ #{er-cache
-ANAU$bmvAmthP7L7xwr4k}#
+ #{r-cache
-ANAU$bmvAmthP7L7xwr4l}#)
+ (if (not (null? #{bs
-ANAU$bmvAmthP7L7xwr4j}#))
+ (let ((#{b
-ANAU$bmvAmthP7L7xwr4m}#
+ (car #{bs
-ANAU$bmvAmthP7L7xwr4j}#)))
+ (if (eq? (car #{b
-ANAU$bmvAmthP7L7xwr4m}#)
'macro)
- (let ((#{er 20644}#
- (car (cdr #{b
20642}#))))
- (let ((#{r-cache
20645}#
- (if (eq? #{er
20644}#
-
#{er-cache 20640}#)
- #{r-cache
20641}#
-
(#{macros-only-env 2739}#
- #{er
20644}#))))
+ (let ((#{er
-ANAU$bmvAmthP7L7xwr4o}#
+ (car (cdr #{b
-ANAU$bmvAmthP7L7xwr4m}#))))
+ (let ((#{r-cache
-ANAU$bmvAmthP7L7xwr4p}#
+ (if (eq? #{er
-ANAU$bmvAmthP7L7xwr4o}#
+
#{er-cache -ANAU$bmvAmthP7L7xwr4k}#)
+ #{r-cache
-ANAU$bmvAmthP7L7xwr4l}#
+
(#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ #{er
-ANAU$bmvAmthP7L7xwr4o}#))))
(begin
(set-cdr!
- #{b 20642}#
-
(#{eval-local-transformer 2784}#
- (#{expand
2778}#
- (cdr (cdr
#{b 20642}#))
- #{r-cache
20645}#
+ #{b
-ANAU$bmvAmthP7L7xwr4m}#
+
(#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ (cdr (cdr
#{b -ANAU$bmvAmthP7L7xwr4m}#))
+ #{r-cache
-ANAU$bmvAmthP7L7xwr4p}#
'(())
- #{mod
20148}#)
- #{mod
20148}#))
- (#{loop 20636}#
- (cdr #{bs
20639}#)
- #{er 20644}#
- #{r-cache
20645}#))))
- (#{loop 20636}#
- (cdr #{bs 20639}#)
- #{er-cache 20640}#
- #{r-cache
20641}#)))))))
- (#{loop 20636}#
- #{bindings 19984}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#)
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
+ (#{loop
-ANAU$bmvAmthP7L7xwr4g}#
+ (cdr #{bs
-ANAU$bmvAmthP7L7xwr4j}#)
+ #{er
-ANAU$bmvAmthP7L7xwr4o}#
+ #{r-cache
-ANAU$bmvAmthP7L7xwr4p}#))))
+ (#{loop
-ANAU$bmvAmthP7L7xwr4g}#
+ (cdr #{bs
-ANAU$bmvAmthP7L7xwr4j}#)
+ #{er-cache
-ANAU$bmvAmthP7L7xwr4k}#
+ #{r-cache
-ANAU$bmvAmthP7L7xwr4l}#)))))))
+ (#{loop -ANAU$bmvAmthP7L7xwr4g}#
+ #{bindings
-ANAU$bmvAmthP7L7xwruU}#
#f
#f))
(set-cdr!
- #{r 19962}#
- (#{extend-env 2737}#
- #{labels 19980}#
- #{bindings 19984}#
- (cdr #{r 19962}#)))
- (#{build-letrec 2727}#
+ #{r -ANAU$bmvAmthP7L7xwrt$}#
+ (#{extend-env
-ANAU$bmvAmthP7L7xwnNa}#
+ #{labels -ANAU$bmvAmthP7L7xwruQ}#
+ #{bindings
-ANAU$bmvAmthP7L7xwruU}#
+ (cdr #{r
-ANAU$bmvAmthP7L7xwrt$}#)))
+ (#{build-letrec
-ANAU$bmvAmthP7L7xwnNQ}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 19981}#))
- (reverse #{vars 19982}#)
- (map (lambda (#{x 20988}#)
- (let ((#{e 20992}#
- (cdr #{x 20988}#))
- (#{r 20993}#
- (car #{x 20988}#)))
+ #{var-ids
-ANAU$bmvAmthP7L7xwruR}#))
+ (reverse
+ #{vars -ANAU$bmvAmthP7L7xwruS}#)
+ (map (lambda (#{x
-ANAU$bmvAmthP7L7xwr$A}#)
+ (let ((#{e
-ANAU$bmvAmthP7L7xwr$E}#
+ (cdr #{x
-ANAU$bmvAmthP7L7xwr$A}#))
+ (#{r
-ANAU$bmvAmthP7L7xwr$F}#
+ (car #{x
-ANAU$bmvAmthP7L7xwr$A}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 20992}#
- #{r 20993}#
+ (#{syntax-type
-ANAU$bmvAmthP7L7xwnOD}#
+ #{e
-ANAU$bmvAmthP7L7xwr$E}#
+ #{r
-ANAU$bmvAmthP7L7xwr$F}#
'(())
-
(#{source-annotation 2736}#
- #{e 20992}#)
+
(#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e
-ANAU$bmvAmthP7L7xwr$E}#)
#f
- #{mod 20148}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#
#f))
- (lambda (#{type 20997}#
- #{value 20998}#
- #{e 20999}#
- #{w 21000}#
- #{s 21001}#
- #{mod 21002}#)
- (#{expand-expr 2779}#
- #{type 20997}#
- #{value 20998}#
- #{e 20999}#
- #{r 20993}#
- #{w 21000}#
- #{s 21001}#
- #{mod 21002}#)))))
- (reverse #{vals 19983}#))
- (let ((#{exps 21008}#
- (map (lambda (#{x 21009}#)
- (let ((#{e 21012}#
- (cdr #{x
21009}#))
- (#{r 21013}#
- (car #{x
21009}#)))
+ (lambda (#{type
-ANAU$bmvAmthP7L7xwr$J}#
+ #{value
-ANAU$bmvAmthP7L7xwr$K}#
+ #{e
-ANAU$bmvAmthP7L7xwr$L}#
+ #{w
-ANAU$bmvAmthP7L7xwr$M}#
+ #{s
-ANAU$bmvAmthP7L7xwr$N}#
+ #{mod
-ANAU$bmvAmthP7L7xwr$O}#)
+ (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
+ #{type
-ANAU$bmvAmthP7L7xwr$J}#
+ #{value
-ANAU$bmvAmthP7L7xwr$K}#
+ #{e
-ANAU$bmvAmthP7L7xwr$L}#
+ #{r
-ANAU$bmvAmthP7L7xwr$F}#
+ #{w
-ANAU$bmvAmthP7L7xwr$M}#
+ #{s
-ANAU$bmvAmthP7L7xwr$N}#
+ #{mod
-ANAU$bmvAmthP7L7xwr$O}#)))))
+ (reverse
+ #{vals
-ANAU$bmvAmthP7L7xwruT}#))
+ (let ((#{exps
-ANAU$bmvAmthP7L7xwr$U}#
+ (map (lambda (#{x
-ANAU$bmvAmthP7L7xwr$V}#)
+ (let ((#{e
-ANAU$bmvAmthP7L7xwr$Y}#
+ (cdr #{x
-ANAU$bmvAmthP7L7xwr$V}#))
+ (#{r
-ANAU$bmvAmthP7L7xwr$Z}#
+ (car #{x
-ANAU$bmvAmthP7L7xwr$V}#)))
(call-with-values
(lambda ()
-
(#{syntax-type 2777}#
- #{e 21012}#
- #{r 21013}#
+
(#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e
-ANAU$bmvAmthP7L7xwr$Y}#
+ #{r
-ANAU$bmvAmthP7L7xwr$Z}#
'(())
-
(#{source-annotation 2736}#
- #{e
21012}#)
+
(#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e
-ANAU$bmvAmthP7L7xwr$Y}#)
#f
- #{mod
20148}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#
#f))
- (lambda (#{type
21017}#
-
#{value 21018}#
- #{e
21019}#
- #{w
21020}#
- #{s
21021}#
- #{mod
21022}#)
-
(#{expand-expr 2779}#
- #{type
21017}#
- #{value
21018}#
- #{e 21019}#
- #{r 21013}#
- #{w 21020}#
- #{s 21021}#
- #{mod
21022}#)))))
- (cons (cons #{er
19986}#
- (#{wrap
2771}#
+ (lambda (#{type
-ANAU$bmvAmthP7L7xwr$d}#
+
#{value -ANAU$bmvAmthP7L7xwr$e}#
+ #{e
-ANAU$bmvAmthP7L7xwr$f}#
+ #{w
-ANAU$bmvAmthP7L7xwr$g}#
+ #{s
-ANAU$bmvAmthP7L7xwr$h}#
+ #{mod
-ANAU$bmvAmthP7L7xwr$i}#)
+
(#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
+ #{type
-ANAU$bmvAmthP7L7xwr$d}#
+ #{value
-ANAU$bmvAmthP7L7xwr$e}#
+ #{e
-ANAU$bmvAmthP7L7xwr$f}#
+ #{r
-ANAU$bmvAmthP7L7xwr$Z}#
+ #{w
-ANAU$bmvAmthP7L7xwr$g}#
+ #{s
-ANAU$bmvAmthP7L7xwr$h}#
+ #{mod
-ANAU$bmvAmthP7L7xwr$i}#)))))
+ (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
+ (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if
(if (pair? #{e 20145}#)
-
#{s 20147}#
+ (if
(if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#)
+
#{s -ANAU$bmvAmthP7L7xwrw3}#
#f)
(set-source-properties!
-
#{e 20145}#
-
#{s 20147}#))
- #{e
20145}#)
- #{w
20146}#
- #{mod
20148}#))
- (cdr #{body
19978}#)))))
- (if (null? (cdr #{exps 21008}#))
- (car #{exps 21008}#)
+
#{e -ANAU$bmvAmthP7L7xwrw1}#
+
#{s -ANAU$bmvAmthP7L7xwrw3}#))
+ #{e
-ANAU$bmvAmthP7L7xwrw1}#)
+ #{w
-ANAU$bmvAmthP7L7xwrw2}#
+ #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
+ (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#)))))
+ (if (null? (cdr #{exps
-ANAU$bmvAmthP7L7xwr$U}#))
+ (car #{exps
-ANAU$bmvAmthP7L7xwr$U}#)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- #{exps
21008}#)))))))))))))))))
- (#{parse 19965}#
- (map (lambda (#{x 19968}#)
- (cons #{r 19962}#
- (#{wrap 2771}#
- #{x 19968}#
- #{w 19964}#
- #{mod 19961}#)))
- #{body 19957}#)
+ #{exps
-ANAU$bmvAmthP7L7xwr$U}#)))))))))))))))))
+ (#{parse -ANAU$bmvAmthP7L7xwruB}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwruE}#)
+ (cons #{r -ANAU$bmvAmthP7L7xwrt$}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{x -ANAU$bmvAmthP7L7xwruE}#
+ #{w -ANAU$bmvAmthP7L7xwruA}#
+ #{mod -ANAU$bmvAmthP7L7xwrt9}#)))
+ #{body -ANAU$bmvAmthP7L7xwrt5}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax 2783}#
- (lambda (#{rec? 21048}#
- #{e 21049}#
- #{r 21050}#
- #{w 21051}#
- #{s 21052}#
- #{mod 21053}#
- #{k 21054}#)
- (let ((#{tmp 21056}#
+ (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
+ (lambda (#{rec? -ANAU$bmvAmthP7L7xwr$8}#
+ #{e -ANAU$bmvAmthP7L7xwr$9}#
+ #{r -ANAU$bmvAmthP7L7xwr$$}#
+ #{w address@hidden
+ #{s address@hidden
+ #{mod address@hidden
+ #{k address@hidden)
+ (let ((#{tmp address@hidden
($sc-dispatch
- #{e 21049}#
+ #{e -ANAU$bmvAmthP7L7xwr$9}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 21056}#
+ (if #{tmp address@hidden
(@apply
- (lambda (#{id 21060}#
- #{val 21061}#
- #{e1 21062}#
- #{e2 21063}#)
- (if (not (#{valid-bound-ids? 2768}# #{id 21060}#))
+ (lambda (#{id address@hidden
+ #{val address@hidden
+ #{e1 address@hidden
+ #{e2 address@hidden)
+ (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{id address@hidden))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 21049}#)
- (let ((#{labels 21153}#
- (#{gen-labels 2746}# #{id 21060}#)))
- (let ((#{new-w 21154}#
- (#{make-binding-wrap 2757}#
- #{id 21060}#
- #{labels 21153}#
- #{w 21051}#)))
- (#{k 21054}#
- (cons #{e1 21062}# #{e2 21063}#)
- (#{extend-env 2737}#
- #{labels 21153}#
- (let ((#{trans-r 21186}#
- (#{macros-only-env 2739}# #{r 21050}#)))
+ #{e -ANAU$bmvAmthP7L7xwr$9}#)
+ (let ((#{labels -ANAU$bmvAmthP7L7xwsAl}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{id address@hidden)))
+ (let ((#{new-w -ANAU$bmvAmthP7L7xwsAm}#
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{id address@hidden
+ #{labels -ANAU$bmvAmthP7L7xwsAl}#
+ #{w address@hidden)))
+ (#{k address@hidden
+ (cons #{e1 address@hidden
+ #{e2 address@hidden)
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ #{labels -ANAU$bmvAmthP7L7xwsAl}#
+ (let ((#{trans-r -ANAU$bmvAmthP7L7xwsBG}#
+ (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ #{r -ANAU$bmvAmthP7L7xwr$$}#)))
(begin
- (if #{rec? 21048}# #{new-w 21154}# #{w 21051}#)
- (map (lambda (#{x 21187}#)
+ (if #{rec? -ANAU$bmvAmthP7L7xwr$8}#
+ #{new-w -ANAU$bmvAmthP7L7xwsAm}#
+ #{w address@hidden)
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwsBH}#)
(cons 'macro
- (#{eval-local-transformer 2784}#
- (#{expand 2778}#
- #{x 21187}#
- #{trans-r 21186}#
+ (#{eval-local-transformer
-ANAU$bmvAmthP7L7xwnOK}#
+ (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwsBH}#
+ #{trans-r
-ANAU$bmvAmthP7L7xwsBG}#
(values
- (if #{rec? 21048}#
- #{new-w 21154}#
- #{w 21051}#))
- #{mod 21053}#)
- #{mod 21053}#)))
- #{val 21061}#)))
- #{r 21050}#)
- #{new-w 21154}#
- #{s 21052}#
- #{mod 21053}#)))))
- #{tmp 21056}#)
+ (if #{rec?
-ANAU$bmvAmthP7L7xwr$8}#
+ #{new-w
-ANAU$bmvAmthP7L7xwsAm}#
+ #{w address@hidden))
+ #{mod address@hidden)
+ #{mod address@hidden)))
+ #{val address@hidden)))
+ #{r -ANAU$bmvAmthP7L7xwr$$}#)
+ #{new-w -ANAU$bmvAmthP7L7xwsAm}#
+ #{s address@hidden
+ #{mod address@hidden)))))
+ #{tmp address@hidden)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 21049}#) #{s 21052}# #f)
- (set-source-properties! #{e 21049}# #{s 21052}#))
- #{e 21049}#)
- #{w 21051}#
- #{mod 21053}#))))))
- (#{eval-local-transformer 2784}#
- (lambda (#{expanded 21463}# #{mod 21464}#)
- (let ((#{p 21465}# (primitive-eval #{expanded 21463}#)))
- (if (procedure? #{p 21465}#)
- #{p 21465}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwr$9}#)
+ #{s address@hidden
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwr$9}#
+ #{s address@hidden))
+ #{e -ANAU$bmvAmthP7L7xwr$9}#)
+ #{w address@hidden
+ #{mod address@hidden))))))
+ (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
+ (lambda (#{expanded -ANAU$bmvAmthP7L7xwsFb}#
+ #{mod -ANAU$bmvAmthP7L7xwsFc}#)
+ (let ((#{p -ANAU$bmvAmthP7L7xwsFd}#
+ (primitive-eval
+ #{expanded -ANAU$bmvAmthP7L7xwsFb}#)))
+ (if (procedure? #{p -ANAU$bmvAmthP7L7xwsFd}#)
+ #{p -ANAU$bmvAmthP7L7xwsFd}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 21465}#)))))
- (#{ellipsis? 2786}#
- (lambda (#{x 3447}#)
- (if (if (if (vector? #{x 3447}#)
- (if (= (vector-length #{x 3447}#) 4)
- (eq? (vector-ref #{x 3447}# 0) 'syntax-object)
+ #{p -ANAU$bmvAmthP7L7xwsFd}#)))))
+ (#{ellipsis? -ANAU$bmvAmthP7L7xwnOM}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnYh}#)
+ (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3447}# 1))
+ (symbol?
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1))
#f)
- (if (eq? (if (if (vector? #{x 3447}#)
- (if (= (vector-length #{x 3447}#) 4)
- (eq? (vector-ref #{x 3447}# 0) 'syntax-object)
+ (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{x 3447}# 1)
- #{x 3447}#)
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1)
+ #{x -ANAU$bmvAmthP7L7xwnYh}#)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("of"))
+ #(ribcage #(x) #((top)) #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -4835,6 +5298,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -5081,8 +5545,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -5237,7 +5703,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("of"))
+ #(ribcage #(x) #((top)) #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -5270,6 +5736,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -5516,8 +5983,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -5663,14 +6132,16 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}# #{x 3447}# '(()))
- (#{id-var-name 2762}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwnYh}#
+ '(()))
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("of"))
+ #(ribcage #(x) #((top)) #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -5703,6 +6174,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -5949,8 +6421,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -6099,293 +6573,389 @@
'(())))
#f)
#f)))
- (#{lambda-formals 2787}#
- (lambda (#{orig-args 21470}#)
+ (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
+ (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsFi}#)
(letrec*
- ((#{req 21471}#
- (lambda (#{args 21475}# #{rreq 21476}#)
- (let ((#{tmp 21478}# ($sc-dispatch #{args 21475}# '())))
- (if #{tmp 21478}#
+ ((#{req -ANAU$bmvAmthP7L7xwsFj}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsFn}#
+ #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsFq}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsFn}#
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xwsFq}#
(@apply
(lambda ()
- (#{check 21472}# (reverse #{rreq 21476}#) #f))
- #{tmp 21478}#)
- (let ((#{tmp 21601}#
- ($sc-dispatch #{args 21475}# '(any . any))))
- (if (if #{tmp 21601}#
+ (#{check -ANAU$bmvAmthP7L7xwsFk}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
+ #f))
+ #{tmp -ANAU$bmvAmthP7L7xwsFq}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsHl}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsFn}#
+ '(any . any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsHl}#
(@apply
- (lambda (#{a 21605}# #{b 21606}#)
- (if (symbol? #{a 21605}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsHp}#
+ #{b -ANAU$bmvAmthP7L7xwsHq}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsHp}#)
#t
- (if (if (vector? #{a 21605}#)
- (if (= (vector-length #{a 21605}#) 4)
- (eq? (vector-ref #{a 21605}# 0)
+ (if (if (vector?
+ #{a -ANAU$bmvAmthP7L7xwsHp}#)
+ (if (= (vector-length
+ #{a -ANAU$bmvAmthP7L7xwsHp}#)
+ 4)
+ (eq? (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsHp}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 21605}# 1))
+ (symbol?
+ (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsHp}#
+ 1))
#f)))
- #{tmp 21601}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsHl}#)
#f)
(@apply
- (lambda (#{a 21633}# #{b 21634}#)
- (#{req 21471}#
- #{b 21634}#
- (cons #{a 21633}# #{rreq 21476}#)))
- #{tmp 21601}#)
- (let ((#{tmp 21635}# (list #{args 21475}#)))
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsIF}#
+ #{b -ANAU$bmvAmthP7L7xwsIG}#)
+ (#{req -ANAU$bmvAmthP7L7xwsFj}#
+ #{b -ANAU$bmvAmthP7L7xwsIG}#
+ (cons #{a -ANAU$bmvAmthP7L7xwsIF}#
+ #{rreq -ANAU$bmvAmthP7L7xwsFo}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsHl}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsIH}#
+ (list #{args -ANAU$bmvAmthP7L7xwsFn}#)))
(if (@apply
- (lambda (#{r 21637}#)
- (if (symbol? #{r 21637}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsIJ}#)
+ (if (symbol? #{r -ANAU$bmvAmthP7L7xwsIJ}#)
#t
- (if (if (vector? #{r 21637}#)
- (if (= (vector-length #{r 21637}#) 4)
- (eq? (vector-ref #{r 21637}# 0)
+ (if (if (vector?
+ #{r -ANAU$bmvAmthP7L7xwsIJ}#)
+ (if (= (vector-length
+ #{r
-ANAU$bmvAmthP7L7xwsIJ}#)
+ 4)
+ (eq? (vector-ref
+ #{r -ANAU$bmvAmthP7L7xwsIJ}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 21637}# 1))
+ (symbol?
+ (vector-ref
+ #{r -ANAU$bmvAmthP7L7xwsIJ}#
+ 1))
#f)))
- #{tmp 21635}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsIH}#)
(@apply
- (lambda (#{r 21667}#)
- (#{check 21472}#
- (reverse #{rreq 21476}#)
- #{r 21667}#))
- #{tmp 21635}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsIn}#)
+ (#{check -ANAU$bmvAmthP7L7xwsFk}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
+ #{r -ANAU$bmvAmthP7L7xwsIn}#))
+ #{tmp -ANAU$bmvAmthP7L7xwsIH}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 21470}#
- #{args 21475}#)))))))))
- (#{check 21472}#
- (lambda (#{req 21798}# #{rest 21799}#)
- (if (#{distinct-bound-ids? 2769}#
- (if #{rest 21799}#
- (cons #{rest 21799}# #{req 21798}#)
- #{req 21798}#))
- (values #{req 21798}# #f #{rest 21799}# #f)
+ #{orig-args -ANAU$bmvAmthP7L7xwsFi}#
+ #{args -ANAU$bmvAmthP7L7xwsFn}#)))))))))
+ (#{check -ANAU$bmvAmthP7L7xwsFk}#
+ (lambda (#{req -ANAU$bmvAmthP7L7xwsKq}#
+ #{rest -ANAU$bmvAmthP7L7xwsKr}#)
+ (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ (if #{rest -ANAU$bmvAmthP7L7xwsKr}#
+ (cons #{rest -ANAU$bmvAmthP7L7xwsKr}#
+ #{req -ANAU$bmvAmthP7L7xwsKq}#)
+ #{req -ANAU$bmvAmthP7L7xwsKq}#))
+ (values
+ #{req -ANAU$bmvAmthP7L7xwsKq}#
+ #f
+ #{rest -ANAU$bmvAmthP7L7xwsKr}#
+ #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 21470}#)))))
- (#{req 21471}# #{orig-args 21470}# '()))))
- (#{expand-simple-lambda 2788}#
- (lambda (#{e 21915}#
- #{r 21916}#
- #{w 21917}#
- #{s 21918}#
- #{mod 21919}#
- #{req 21920}#
- #{rest 21921}#
- #{meta 21922}#
- #{body 21923}#)
- (let ((#{ids 21924}#
- (if #{rest 21921}#
- (append #{req 21920}# (list #{rest 21921}#))
- #{req 21920}#)))
- (let ((#{vars 21925}#
- (map #{gen-var 2792}# #{ids 21924}#)))
- (let ((#{labels 21926}#
- (#{gen-labels 2746}# #{ids 21924}#)))
- (#{build-simple-lambda 2719}#
- #{s 21918}#
- (map syntax->datum #{req 21920}#)
- (if #{rest 21921}#
- (syntax->datum #{rest 21921}#)
+ #{orig-args -ANAU$bmvAmthP7L7xwsFi}#)))))
+ (#{req -ANAU$bmvAmthP7L7xwsFj}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsFi}#
+ '()))))
+ (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwsMf}#
+ #{r -ANAU$bmvAmthP7L7xwsMg}#
+ #{w -ANAU$bmvAmthP7L7xwsMh}#
+ #{s -ANAU$bmvAmthP7L7xwsMi}#
+ #{mod -ANAU$bmvAmthP7L7xwsMj}#
+ #{req -ANAU$bmvAmthP7L7xwsMk}#
+ #{rest -ANAU$bmvAmthP7L7xwsMl}#
+ #{meta -ANAU$bmvAmthP7L7xwsMm}#
+ #{body -ANAU$bmvAmthP7L7xwsMn}#)
+ (let ((#{ids -ANAU$bmvAmthP7L7xwsMo}#
+ (if #{rest -ANAU$bmvAmthP7L7xwsMl}#
+ (append
+ #{req -ANAU$bmvAmthP7L7xwsMk}#
+ (list #{rest -ANAU$bmvAmthP7L7xwsMl}#))
+ #{req -ANAU$bmvAmthP7L7xwsMk}#)))
+ (let ((#{vars -ANAU$bmvAmthP7L7xwsMp}#
+ (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
+ #{ids -ANAU$bmvAmthP7L7xwsMo}#)))
+ (let ((#{labels -ANAU$bmvAmthP7L7xwsMq}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{ids -ANAU$bmvAmthP7L7xwsMo}#)))
+ (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
+ #{s -ANAU$bmvAmthP7L7xwsMi}#
+ (map syntax->datum
+ #{req -ANAU$bmvAmthP7L7xwsMk}#)
+ (if #{rest -ANAU$bmvAmthP7L7xwsMl}#
+ (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsMl}#)
#f)
- #{vars 21925}#
- #{meta 21922}#
- (#{expand-body 2782}#
- #{body 21923}#
- (#{wrap 2771}#
+ #{vars -ANAU$bmvAmthP7L7xwsMp}#
+ #{meta -ANAU$bmvAmthP7L7xwsMm}#
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ #{body -ANAU$bmvAmthP7L7xwsMn}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 21915}#) #{s 21918}# #f)
- (set-source-properties! #{e 21915}# #{s 21918}#))
- #{e 21915}#)
- #{w 21917}#
- #{mod 21919}#)
- (#{extend-var-env 2738}#
- #{labels 21926}#
- #{vars 21925}#
- #{r 21916}#)
- (#{make-binding-wrap 2757}#
- #{ids 21924}#
- #{labels 21926}#
- #{w 21917}#)
- #{mod 21919}#)))))))
- (#{lambda*-formals 2789}#
- (lambda (#{orig-args 22198}#)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsMf}#)
+ #{s -ANAU$bmvAmthP7L7xwsMi}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwsMf}#
+ #{s -ANAU$bmvAmthP7L7xwsMi}#))
+ #{e -ANAU$bmvAmthP7L7xwsMf}#)
+ #{w -ANAU$bmvAmthP7L7xwsMh}#
+ #{mod -ANAU$bmvAmthP7L7xwsMj}#)
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ #{labels -ANAU$bmvAmthP7L7xwsMq}#
+ #{vars -ANAU$bmvAmthP7L7xwsMp}#
+ #{r -ANAU$bmvAmthP7L7xwsMg}#)
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{ids -ANAU$bmvAmthP7L7xwsMo}#
+ #{labels -ANAU$bmvAmthP7L7xwsMq}#
+ #{w -ANAU$bmvAmthP7L7xwsMh}#)
+ #{mod -ANAU$bmvAmthP7L7xwsMj}#)))))))
+ (#{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
+ (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsQ6}#)
(letrec*
- ((#{req 22199}#
- (lambda (#{args 22206}# #{rreq 22207}#)
- (let ((#{tmp 22209}# ($sc-dispatch #{args 22206}# '())))
- (if #{tmp 22209}#
+ ((#{req -ANAU$bmvAmthP7L7xwsQ7}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsRC}#
+ #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsRF}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xwsRF}#
(@apply
(lambda ()
- (#{check 22203}#
- (reverse #{rreq 22207}#)
+ (#{check address@hidden
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()
#f
'()))
- #{tmp 22209}#)
- (let ((#{tmp 22215}#
- ($sc-dispatch #{args 22206}# '(any . any))))
- (if (if #{tmp 22215}#
+ #{tmp -ANAU$bmvAmthP7L7xwsRF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsRL}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
+ '(any . any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsRL}#
(@apply
- (lambda (#{a 22219}# #{b 22220}#)
- (if (symbol? #{a 22219}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsRP}#
+ #{b -ANAU$bmvAmthP7L7xwsRQ}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsRP}#)
#t
- (if (if (vector? #{a 22219}#)
- (if (= (vector-length #{a 22219}#) 4)
- (eq? (vector-ref #{a 22219}# 0)
+ (if (if (vector?
+ #{a -ANAU$bmvAmthP7L7xwsRP}#)
+ (if (= (vector-length
+ #{a -ANAU$bmvAmthP7L7xwsRP}#)
+ 4)
+ (eq? (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsRP}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22219}# 1))
+ (symbol?
+ (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsRP}#
+ 1))
#f)))
- #{tmp 22215}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsRL}#)
#f)
(@apply
- (lambda (#{a 22247}# #{b 22248}#)
- (#{req 22199}#
- #{b 22248}#
- (cons #{a 22247}# #{rreq 22207}#)))
- #{tmp 22215}#)
- (let ((#{tmp 22249}#
- ($sc-dispatch #{args 22206}# '(any . any))))
- (if (if #{tmp 22249}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsRr}#
+ #{b -ANAU$bmvAmthP7L7xwsRs}#)
+ (#{req -ANAU$bmvAmthP7L7xwsQ7}#
+ #{b -ANAU$bmvAmthP7L7xwsRs}#
+ (cons #{a -ANAU$bmvAmthP7L7xwsRr}#
+ #{rreq -ANAU$bmvAmthP7L7xwsRD}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsRL}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsRt}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
+ '(any . any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsRt}#
(@apply
- (lambda (#{a 22253}# #{b 22254}#)
- (eq? (syntax->datum #{a 22253}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsRx}#
+ #{b -ANAU$bmvAmthP7L7xwsRy}#)
+ (eq? (syntax->datum
+ #{a -ANAU$bmvAmthP7L7xwsRx}#)
#:optional))
- #{tmp 22249}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
#f)
(@apply
- (lambda (#{a 22255}# #{b 22256}#)
- (#{opt 22200}#
- #{b 22256}#
- (reverse #{rreq 22207}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsRz}#
+ #{b -ANAU$bmvAmthP7L7xwsR0}#)
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ #{b -ANAU$bmvAmthP7L7xwsR0}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()))
- #{tmp 22249}#)
- (let ((#{tmp 22259}#
+ #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsR3}#
($sc-dispatch
- #{args 22206}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
'(any . any))))
- (if (if #{tmp 22259}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsR3}#
(@apply
- (lambda (#{a 22263}# #{b 22264}#)
- (eq? (syntax->datum #{a 22263}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsR7}#
+ #{b -ANAU$bmvAmthP7L7xwsR8}#)
+ (eq? (syntax->datum
+ #{a -ANAU$bmvAmthP7L7xwsR7}#)
#:key))
- #{tmp 22259}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
#f)
(@apply
- (lambda (#{a 22265}# #{b 22266}#)
- (#{key 22201}#
- #{b 22266}#
- (reverse #{rreq 22207}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsR9}#
+ #{b -ANAU$bmvAmthP7L7xwsR$}#)
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ #{b -ANAU$bmvAmthP7L7xwsR$}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()
'()))
- #{tmp 22259}#)
- (let ((#{tmp 22269}#
+ #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsSB}#
($sc-dispatch
- #{args 22206}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
'(any any))))
- (if (if #{tmp 22269}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsSB}#
(@apply
- (lambda (#{a 22273}# #{b 22274}#)
- (eq? (syntax->datum #{a 22273}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsSF}#
+ #{b
-ANAU$bmvAmthP7L7xwsSG}#)
+ (eq? (syntax->datum
+ #{a
-ANAU$bmvAmthP7L7xwsSF}#)
#:rest))
- #{tmp 22269}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
#f)
(@apply
- (lambda (#{a 22275}# #{b 22276}#)
- (#{rest 22202}#
- #{b 22276}#
- (reverse #{rreq 22207}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsSH}#
+ #{b -ANAU$bmvAmthP7L7xwsSI}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{b -ANAU$bmvAmthP7L7xwsSI}#
+ (reverse
+ #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()
'()))
- #{tmp 22269}#)
- (let ((#{tmp 22279}#
- (list #{args 22206}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsSL}#
+ (list #{args
-ANAU$bmvAmthP7L7xwsRC}#)))
(if (@apply
- (lambda (#{r 22281}#)
- (if (symbol? #{r 22281}#)
+ (lambda (#{r
-ANAU$bmvAmthP7L7xwsSN}#)
+ (if (symbol?
+ #{r
-ANAU$bmvAmthP7L7xwsSN}#)
#t
- (if (if (vector? #{r 22281}#)
+ (if (if (vector?
+ #{r
-ANAU$bmvAmthP7L7xwsSN}#)
(if (= (vector-length
- #{r 22281}#)
+ #{r
-ANAU$bmvAmthP7L7xwsSN}#)
4)
(eq? (vector-ref
- #{r 22281}#
+ #{r
-ANAU$bmvAmthP7L7xwsSN}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 22281}# 1))
+ (vector-ref
+ #{r
-ANAU$bmvAmthP7L7xwsSN}#
+ 1))
#f)))
- #{tmp 22279}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
(@apply
- (lambda (#{r 22311}#)
- (#{rest 22202}#
- #{r 22311}#
- (reverse #{rreq 22207}#)
+ (lambda (#{r
-ANAU$bmvAmthP7L7xwsSr}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{r -ANAU$bmvAmthP7L7xwsSr}#
+ (reverse
+ #{rreq
-ANAU$bmvAmthP7L7xwsRD}#)
'()
'()))
- #{tmp 22279}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 22198}#
- #{args 22206}#)))))))))))))))
- (#{opt 22200}#
- (lambda (#{args 22330}# #{req 22331}# #{ropt 22332}#)
- (let ((#{tmp 22334}# ($sc-dispatch #{args 22330}# '())))
- (if #{tmp 22334}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
+ #{args
-ANAU$bmvAmthP7L7xwsRC}#)))))))))))))))
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsS$}#
+ #{req address@hidden
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsTC}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xwsTC}#
(@apply
(lambda ()
- (#{check 22203}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (#{check address@hidden
+ #{req address@hidden
+ (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
#f
'()))
- #{tmp 22334}#)
- (let ((#{tmp 22340}#
- ($sc-dispatch #{args 22330}# '(any . any))))
- (if (if #{tmp 22340}#
+ #{tmp -ANAU$bmvAmthP7L7xwsTC}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsTI}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
+ '(any . any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsTI}#
(@apply
- (lambda (#{a 22344}# #{b 22345}#)
- (if (symbol? #{a 22344}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsTM}#
+ #{b -ANAU$bmvAmthP7L7xwsTN}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTM}#)
#t
- (if (if (vector? #{a 22344}#)
- (if (= (vector-length #{a 22344}#) 4)
- (eq? (vector-ref #{a 22344}# 0)
+ (if (if (vector?
+ #{a -ANAU$bmvAmthP7L7xwsTM}#)
+ (if (= (vector-length
+ #{a -ANAU$bmvAmthP7L7xwsTM}#)
+ 4)
+ (eq? (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsTM}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22344}# 1))
+ (symbol?
+ (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsTM}#
+ 1))
#f)))
- #{tmp 22340}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
#f)
(@apply
- (lambda (#{a 22372}# #{b 22373}#)
- (#{opt 22200}#
- #{b 22373}#
- #{req 22331}#
- (cons (cons #{a 22372}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsTo}#
+ #{b -ANAU$bmvAmthP7L7xwsTp}#)
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ #{b -ANAU$bmvAmthP7L7xwsTp}#
+ #{req address@hidden
+ (cons (cons #{a -ANAU$bmvAmthP7L7xwsTo}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("q2" "q3"))
+ #("qt" "qu"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("px" "py" "pz"))
+ #("qo" "qp" "qq"))
#(ribcage
(check rest key opt req)
((top)
@@ -6393,11 +6963,11 @@
(top)
(top)
(top))
- ("pb" "pa" "p9" "p8" "p7"))
+ ("q2" "q1" "q0" "pz" "py"))
#(ribcage
#(orig-args)
#((top))
- #("p6"))
+ #("px"))
#(ribcage
(lambda-var-list
gen-var
@@ -6430,6 +7000,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -6676,8 +7247,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -6823,152 +7396,191 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- #{ropt 22332}#)))
- #{tmp 22340}#)
- (let ((#{tmp 22374}#
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsTq}#
($sc-dispatch
- #{args 22330}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'((any any) . any))))
- (if (if #{tmp 22374}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsTq}#
(@apply
- (lambda (#{a 22378}#
- #{init 22379}#
- #{b 22380}#)
- (if (symbol? #{a 22378}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsTu}#
+ #{init -ANAU$bmvAmthP7L7xwsTv}#
+ #{b -ANAU$bmvAmthP7L7xwsTw}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTu}#)
#t
- (if (if (vector? #{a 22378}#)
- (if (= (vector-length #{a 22378}#)
+ (if (if (vector?
+ #{a -ANAU$bmvAmthP7L7xwsTu}#)
+ (if (= (vector-length
+ #{a
-ANAU$bmvAmthP7L7xwsTu}#)
4)
- (eq? (vector-ref #{a 22378}# 0)
+ (eq? (vector-ref
+ #{a
-ANAU$bmvAmthP7L7xwsTu}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22378}# 1))
+ (symbol?
+ (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsTu}#
+ 1))
#f)))
- #{tmp 22374}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
#f)
(@apply
- (lambda (#{a 22407}# #{init 22408}# #{b 22409}#)
- (#{opt 22200}#
- #{b 22409}#
- #{req 22331}#
- (cons (list #{a 22407}# #{init 22408}#)
- #{ropt 22332}#)))
- #{tmp 22374}#)
- (let ((#{tmp 22410}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUL}#
+ #{init -ANAU$bmvAmthP7L7xwsUM}#
+ #{b -ANAU$bmvAmthP7L7xwsUN}#)
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ #{b -ANAU$bmvAmthP7L7xwsUN}#
+ #{req address@hidden
+ (cons (list #{a -ANAU$bmvAmthP7L7xwsUL}#
+ #{init -ANAU$bmvAmthP7L7xwsUM}#)
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsUO}#
($sc-dispatch
- #{args 22330}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'(any . any))))
- (if (if #{tmp 22410}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsUO}#
(@apply
- (lambda (#{a 22414}# #{b 22415}#)
- (eq? (syntax->datum #{a 22414}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUS}#
+ #{b -ANAU$bmvAmthP7L7xwsUT}#)
+ (eq? (syntax->datum
+ #{a -ANAU$bmvAmthP7L7xwsUS}#)
#:key))
- #{tmp 22410}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
#f)
(@apply
- (lambda (#{a 22416}# #{b 22417}#)
- (#{key 22201}#
- #{b 22417}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUU}#
+ #{b -ANAU$bmvAmthP7L7xwsUV}#)
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ #{b -ANAU$bmvAmthP7L7xwsUV}#
+ #{req address@hidden
+ (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
'()))
- #{tmp 22410}#)
- (let ((#{tmp 22420}#
+ #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsUY}#
($sc-dispatch
- #{args 22330}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'(any any))))
- (if (if #{tmp 22420}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsUY}#
(@apply
- (lambda (#{a 22424}# #{b 22425}#)
- (eq? (syntax->datum #{a 22424}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUc}#
+ #{b
-ANAU$bmvAmthP7L7xwsUd}#)
+ (eq? (syntax->datum
+ #{a
-ANAU$bmvAmthP7L7xwsUc}#)
#:rest))
- #{tmp 22420}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
#f)
(@apply
- (lambda (#{a 22426}# #{b 22427}#)
- (#{rest 22202}#
- #{b 22427}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUe}#
+ #{b -ANAU$bmvAmthP7L7xwsUf}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{b -ANAU$bmvAmthP7L7xwsUf}#
+ #{req address@hidden
+ (reverse
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
'()))
- #{tmp 22420}#)
- (let ((#{tmp 22430}#
- (list #{args 22330}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsUi}#
+ (list #{args
-ANAU$bmvAmthP7L7xwsS$}#)))
(if (@apply
- (lambda (#{r 22432}#)
- (if (symbol? #{r 22432}#)
+ (lambda (#{r
-ANAU$bmvAmthP7L7xwsUk}#)
+ (if (symbol?
+ #{r
-ANAU$bmvAmthP7L7xwsUk}#)
#t
- (if (if (vector? #{r 22432}#)
+ (if (if (vector?
+ #{r
-ANAU$bmvAmthP7L7xwsUk}#)
(if (= (vector-length
- #{r 22432}#)
+ #{r
-ANAU$bmvAmthP7L7xwsUk}#)
4)
(eq? (vector-ref
- #{r 22432}#
+ #{r
-ANAU$bmvAmthP7L7xwsUk}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 22432}# 1))
+ (vector-ref
+ #{r
-ANAU$bmvAmthP7L7xwsUk}#
+ 1))
#f)))
- #{tmp 22430}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
(@apply
- (lambda (#{r 22462}#)
- (#{rest 22202}#
- #{r 22462}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (lambda (#{r
-ANAU$bmvAmthP7L7xwsVC}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{r -ANAU$bmvAmthP7L7xwsVC}#
+ #{req address@hidden
+ (reverse
+ #{ropt
-ANAU$bmvAmthP7L7xwsTA}#)
'()))
- #{tmp 22430}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 22198}#
- #{args 22330}#)))))))))))))))
- (#{key 22201}#
- (lambda (#{args 22481}#
- #{req 22482}#
- #{opt 22483}#
- #{rkey 22484}#)
- (let ((#{tmp 22486}# ($sc-dispatch #{args 22481}# '())))
- (if #{tmp 22486}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
+ #{args
-ANAU$bmvAmthP7L7xwsS$}#)))))))))))))))
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsVV}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsVa}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xwsVa}#
(@apply
(lambda ()
- (#{check 22203}#
- #{req 22482}#
- #{opt 22483}#
+ (#{check address@hidden
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
#f
- (cons #f (reverse #{rkey 22484}#))))
- #{tmp 22486}#)
- (let ((#{tmp 22492}#
- ($sc-dispatch #{args 22481}# '(any . any))))
- (if (if #{tmp 22492}#
+ (cons #f
+ (reverse #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsVa}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsVg}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
+ '(any . any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsVg}#
(@apply
- (lambda (#{a 22496}# #{b 22497}#)
- (if (symbol? #{a 22496}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsVk}#
+ #{b -ANAU$bmvAmthP7L7xwsVl}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsVk}#)
#t
- (if (if (vector? #{a 22496}#)
- (if (= (vector-length #{a 22496}#) 4)
- (eq? (vector-ref #{a 22496}# 0)
+ (if (if (vector?
+ #{a -ANAU$bmvAmthP7L7xwsVk}#)
+ (if (= (vector-length
+ #{a -ANAU$bmvAmthP7L7xwsVk}#)
+ 4)
+ (eq? (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsVk}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22496}# 1))
+ (symbol?
+ (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsVk}#
+ 1))
#f)))
- #{tmp 22492}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
#f)
(@apply
- (lambda (#{a 22524}# #{b 22525}#)
- (let ((#{tmp 22526}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWA}#
+ #{b -ANAU$bmvAmthP7L7xwsWB}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsWC}#
(symbol->keyword
- (syntax->datum #{a 22524}#))))
- (#{key 22201}#
- #{b 22525}#
- #{req 22482}#
- #{opt 22483}#
- (cons (cons #{tmp 22526}#
- (cons #{a 22524}#
+ (syntax->datum
+ #{a -ANAU$bmvAmthP7L7xwsWA}#))))
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ #{b -ANAU$bmvAmthP7L7xwsWB}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (cons (cons #{tmp -ANAU$bmvAmthP7L7xwsWC}#
+ (cons #{a -ANAU$bmvAmthP7L7xwsWA}#
'(#(syntax-object
#f
((top)
@@ -6976,11 +7588,11 @@
#(ribcage
#(k)
#((top))
- #("qt"))
+ #("rk"))
#(ribcage
#(a b)
#((top) (top))
- #("qr" "qs"))
+ #("ri" "rj"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -6988,10 +7600,10 @@
(top)
(top)
(top))
- #("ql"
- "qm"
- "qn"
- "qo"))
+ #("rc"
+ "rd"
+ "re"
+ "rf"))
#(ribcage
(check rest
key
@@ -7002,15 +7614,15 @@
(top)
(top)
(top))
- ("pb"
- "pa"
- "p9"
- "p8"
- "p7"))
+ ("q2"
+ "q1"
+ "q0"
+ "pz"
+ "py"))
#(ribcage
#(orig-args)
#((top))
- #("p6"))
+ #("px"))
#(ribcage
(lambda-var-list
gen-var
@@ -7043,6 +7655,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -7289,8 +7902,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -7436,805 +8051,916 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile)))))
- #{rkey 22484}#))))
- #{tmp 22492}#)
- (let ((#{tmp 22529}#
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsWF}#
($sc-dispatch
- #{args 22481}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'((any any) . any))))
- (if (if #{tmp 22529}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsWF}#
(@apply
- (lambda (#{a 22533}#
- #{init 22534}#
- #{b 22535}#)
- (if (symbol? #{a 22533}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWJ}#
+ #{init -ANAU$bmvAmthP7L7xwsWK}#
+ #{b -ANAU$bmvAmthP7L7xwsWL}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsWJ}#)
#t
- (if (if (vector? #{a 22533}#)
- (if (= (vector-length #{a 22533}#)
+ (if (if (vector?
+ #{a -ANAU$bmvAmthP7L7xwsWJ}#)
+ (if (= (vector-length
+ #{a
-ANAU$bmvAmthP7L7xwsWJ}#)
4)
- (eq? (vector-ref #{a 22533}# 0)
+ (eq? (vector-ref
+ #{a
-ANAU$bmvAmthP7L7xwsWJ}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22533}# 1))
+ (symbol?
+ (vector-ref
+ #{a -ANAU$bmvAmthP7L7xwsWJ}#
+ 1))
#f)))
- #{tmp 22529}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsWF}#)
#f)
(@apply
- (lambda (#{a 22562}# #{init 22563}# #{b 22564}#)
- (let ((#{tmp 22565}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWm}#
+ #{init -ANAU$bmvAmthP7L7xwsWn}#
+ #{b -ANAU$bmvAmthP7L7xwsWo}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsWp}#
(symbol->keyword
- (syntax->datum #{a 22562}#))))
- (#{key 22201}#
- #{b 22564}#
- #{req 22482}#
- #{opt 22483}#
- (cons (list #{tmp 22565}#
- #{a 22562}#
- #{init 22563}#)
- #{rkey 22484}#))))
- #{tmp 22529}#)
- (let ((#{tmp 22568}#
+ (syntax->datum
+ #{a -ANAU$bmvAmthP7L7xwsWm}#))))
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ #{b -ANAU$bmvAmthP7L7xwsWo}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (cons (list #{tmp -ANAU$bmvAmthP7L7xwsWp}#
+ #{a -ANAU$bmvAmthP7L7xwsWm}#
+ #{init
-ANAU$bmvAmthP7L7xwsWn}#)
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsWF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsWs}#
($sc-dispatch
- #{args 22481}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'((any any any) . any))))
- (if (if #{tmp 22568}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsWs}#
(@apply
- (lambda (#{a 22572}#
- #{init 22573}#
- #{k 22574}#
- #{b 22575}#)
- (if (if (symbol? #{a 22572}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWw}#
+ #{init -ANAU$bmvAmthP7L7xwsWx}#
+ #{k -ANAU$bmvAmthP7L7xwsWy}#
+ #{b -ANAU$bmvAmthP7L7xwsWz}#)
+ (if (if (symbol?
+ #{a -ANAU$bmvAmthP7L7xwsWw}#)
#t
- (if (if (vector? #{a 22572}#)
+ (if (if (vector?
+ #{a
-ANAU$bmvAmthP7L7xwsWw}#)
(if (= (vector-length
- #{a 22572}#)
+ #{a
-ANAU$bmvAmthP7L7xwsWw}#)
4)
(eq? (vector-ref
- #{a 22572}#
+ #{a
-ANAU$bmvAmthP7L7xwsWw}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 22572}# 1))
+ (vector-ref
+ #{a
-ANAU$bmvAmthP7L7xwsWw}#
+ 1))
#f))
(keyword?
- (syntax->datum #{k 22574}#))
+ (syntax->datum
+ #{k -ANAU$bmvAmthP7L7xwsWy}#))
#f))
- #{tmp 22568}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsWs}#)
#f)
(@apply
- (lambda (#{a 22602}#
- #{init 22603}#
- #{k 22604}#
- #{b 22605}#)
- (#{key 22201}#
- #{b 22605}#
- #{req 22482}#
- #{opt 22483}#
- (cons (list #{k 22604}#
- #{a 22602}#
- #{init 22603}#)
- #{rkey 22484}#)))
- #{tmp 22568}#)
- (let ((#{tmp 22606}#
- ($sc-dispatch #{args 22481}# '(any))))
- (if (if #{tmp 22606}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsXO}#
+ #{init -ANAU$bmvAmthP7L7xwsXP}#
+ #{k -ANAU$bmvAmthP7L7xwsXQ}#
+ #{b -ANAU$bmvAmthP7L7xwsXR}#)
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ #{b -ANAU$bmvAmthP7L7xwsXR}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (cons (list #{k -ANAU$bmvAmthP7L7xwsXQ}#
+ #{a -ANAU$bmvAmthP7L7xwsXO}#
+ #{init
-ANAU$bmvAmthP7L7xwsXP}#)
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsWs}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsXS}#
+ ($sc-dispatch
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
+ '(any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsXS}#
(@apply
- (lambda (#{aok 22610}#)
- (eq? (syntax->datum #{aok 22610}#)
+ (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXW}#)
+ (eq? (syntax->datum
+ #{aok
-ANAU$bmvAmthP7L7xwsXW}#)
#:allow-other-keys))
- #{tmp 22606}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
#f)
(@apply
- (lambda (#{aok 22611}#)
- (#{check 22203}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{aok -ANAU$bmvAmthP7L7xwsXX}#)
+ (#{check address@hidden
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
#f
- (cons #t (reverse #{rkey 22484}#))))
- #{tmp 22606}#)
- (let ((#{tmp 22614}#
+ (cons #t
+ (reverse
+ #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsXa}#
($sc-dispatch
- #{args 22481}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'(any any any))))
- (if (if #{tmp 22614}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsXa}#
(@apply
- (lambda (#{aok 22618}#
- #{a 22619}#
- #{b 22620}#)
+ (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXe}#
+ #{a
-ANAU$bmvAmthP7L7xwsXf}#
+ #{b
-ANAU$bmvAmthP7L7xwsXg}#)
(if (eq? (syntax->datum
- #{aok 22618}#)
+ #{aok
-ANAU$bmvAmthP7L7xwsXe}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 22619}#)
+ #{a
-ANAU$bmvAmthP7L7xwsXf}#)
#:rest)
#f))
- #{tmp 22614}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
#f)
(@apply
- (lambda (#{aok 22621}#
- #{a 22622}#
- #{b 22623}#)
- (#{rest 22202}#
- #{b 22623}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXh}#
+ #{a -ANAU$bmvAmthP7L7xwsXi}#
+ #{b
-ANAU$bmvAmthP7L7xwsXj}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{b -ANAU$bmvAmthP7L7xwsXj}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
(cons #t
- (reverse #{rkey 22484}#))))
- #{tmp 22614}#)
- (let ((#{tmp 22626}#
+ (reverse
+ #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsXm}#
($sc-dispatch
- #{args 22481}#
+ #{args
-ANAU$bmvAmthP7L7xwsVV}#
'(any . any))))
- (if (if #{tmp 22626}#
+ (if (if #{tmp
-ANAU$bmvAmthP7L7xwsXm}#
(@apply
- (lambda (#{aok 22630}#
- #{r 22631}#)
+ (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXq}#
+ #{r
-ANAU$bmvAmthP7L7xwsXr}#)
(if (eq? (syntax->datum
- #{aok 22630}#)
+ #{aok
-ANAU$bmvAmthP7L7xwsXq}#)
#:allow-other-keys)
- (if (symbol? #{r 22631}#)
+ (if (symbol?
+ #{r
-ANAU$bmvAmthP7L7xwsXr}#)
#t
(if (if (vector?
- #{r 22631}#)
+ #{r
-ANAU$bmvAmthP7L7xwsXr}#)
(if (=
(vector-length
- #{r
22631}#)
+ #{r
-ANAU$bmvAmthP7L7xwsXr}#)
4)
(eq?
(vector-ref
- #{r
22631}#
+ #{r
-ANAU$bmvAmthP7L7xwsXr}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 22631}#
+ #{r
-ANAU$bmvAmthP7L7xwsXr}#
1))
#f))
#f))
- #{tmp 22626}#)
+ #{tmp
-ANAU$bmvAmthP7L7xwsXm}#)
#f)
(@apply
- (lambda (#{aok 22658}#
- #{r 22659}#)
- (#{rest 22202}#
- #{r 22659}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{aok
-ANAU$bmvAmthP7L7xwsYG}#
+ #{r
-ANAU$bmvAmthP7L7xwsYH}#)
+ (#{rest
-ANAU$bmvAmthP7L7xwsQ$}#
+ #{r -ANAU$bmvAmthP7L7xwsYH}#
+ #{req
-ANAU$bmvAmthP7L7xwsVW}#
+ #{opt
-ANAU$bmvAmthP7L7xwsVX}#
(cons #t
(reverse
- #{rkey 22484}#))))
- #{tmp 22626}#)
- (let ((#{tmp 22662}#
+ #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsXm}#)
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwsYK}#
($sc-dispatch
- #{args 22481}#
+ #{args
-ANAU$bmvAmthP7L7xwsVV}#
'(any any))))
- (if (if #{tmp 22662}#
+ (if (if #{tmp
-ANAU$bmvAmthP7L7xwsYK}#
(@apply
- (lambda (#{a 22666}#
- #{b 22667}#)
+ (lambda (#{a
-ANAU$bmvAmthP7L7xwsYO}#
+ #{b
-ANAU$bmvAmthP7L7xwsYP}#)
(eq? (syntax->datum
- #{a 22666}#)
+ #{a
-ANAU$bmvAmthP7L7xwsYO}#)
#:rest))
- #{tmp 22662}#)
+ #{tmp
-ANAU$bmvAmthP7L7xwsYK}#)
#f)
(@apply
- (lambda (#{a 22668}#
- #{b 22669}#)
- (#{rest 22202}#
- #{b 22669}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{a
-ANAU$bmvAmthP7L7xwsYQ}#
+ #{b
-ANAU$bmvAmthP7L7xwsYR}#)
+ (#{rest
-ANAU$bmvAmthP7L7xwsQ$}#
+ #{b
-ANAU$bmvAmthP7L7xwsYR}#
+ #{req
-ANAU$bmvAmthP7L7xwsVW}#
+ #{opt
-ANAU$bmvAmthP7L7xwsVX}#
(cons #f
(reverse
- #{rkey
22484}#))))
- #{tmp 22662}#)
- (let ((#{tmp 22672}#
- (list #{args 22481}#)))
+ #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp
-ANAU$bmvAmthP7L7xwsYK}#)
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwsYU}#
+ (list #{args
-ANAU$bmvAmthP7L7xwsVV}#)))
(if (@apply
- (lambda (#{r 22674}#)
+ (lambda (#{r
-ANAU$bmvAmthP7L7xwsYW}#)
(if (symbol?
- #{r 22674}#)
+ #{r
-ANAU$bmvAmthP7L7xwsYW}#)
#t
(if (if (vector?
- #{r
22674}#)
+ #{r
-ANAU$bmvAmthP7L7xwsYW}#)
(if (=
(vector-length
- #{r
22674}#)
+ #{r
-ANAU$bmvAmthP7L7xwsYW}#)
4)
(eq?
(vector-ref
- #{r
22674}#
+ #{r
-ANAU$bmvAmthP7L7xwsYW}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 22674}#
+ #{r
-ANAU$bmvAmthP7L7xwsYW}#
1))
#f)))
- #{tmp 22672}#)
+ #{tmp
-ANAU$bmvAmthP7L7xwsYU}#)
(@apply
- (lambda (#{r 22704}#)
- (#{rest 22202}#
- #{r 22704}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{r
-ANAU$bmvAmthP7L7xwsY0}#)
+ (#{rest
-ANAU$bmvAmthP7L7xwsQ$}#
+ #{r
-ANAU$bmvAmthP7L7xwsY0}#
+ #{req
-ANAU$bmvAmthP7L7xwsVW}#
+ #{opt
-ANAU$bmvAmthP7L7xwsVX}#
(cons #f
(reverse
- #{rkey
22484}#))))
- #{tmp 22672}#)
+ #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp
-ANAU$bmvAmthP7L7xwsYU}#)
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args 22198}#
- #{args
22481}#)))))))))))))))))))))
- (#{rest 22202}#
- (lambda (#{args 22732}#
- #{req 22733}#
- #{opt 22734}#
- #{kw 22735}#)
- (let ((#{tmp 22737}# (list #{args 22732}#)))
+ #{orig-args
-ANAU$bmvAmthP7L7xwsQ6}#
+ #{args
-ANAU$bmvAmthP7L7xwsVV}#)))))))))))))))))))))
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsZQ}#
+ #{req -ANAU$bmvAmthP7L7xwsZR}#
+ #{opt -ANAU$bmvAmthP7L7xwsZS}#
+ #{kw -ANAU$bmvAmthP7L7xwsZT}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsZV}#
+ (list #{args -ANAU$bmvAmthP7L7xwsZQ}#)))
(if (@apply
- (lambda (#{r 22739}#)
- (if (symbol? #{r 22739}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsZX}#)
+ (if (symbol? #{r -ANAU$bmvAmthP7L7xwsZX}#)
#t
- (if (if (vector? #{r 22739}#)
- (if (= (vector-length #{r 22739}#) 4)
- (eq? (vector-ref #{r 22739}# 0)
+ (if (if (vector? #{r -ANAU$bmvAmthP7L7xwsZX}#)
+ (if (= (vector-length
+ #{r -ANAU$bmvAmthP7L7xwsZX}#)
+ 4)
+ (eq? (vector-ref
+ #{r -ANAU$bmvAmthP7L7xwsZX}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 22739}# 1))
+ (symbol?
+ (vector-ref #{r -ANAU$bmvAmthP7L7xwsZX}# 1))
#f)))
- #{tmp 22737}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
(@apply
- (lambda (#{r 22769}#)
- (#{check 22203}#
- #{req 22733}#
- #{opt 22734}#
- #{r 22769}#
- #{kw 22735}#))
- #{tmp 22737}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsZ1}#)
+ (#{check address@hidden
+ #{req -ANAU$bmvAmthP7L7xwsZR}#
+ #{opt -ANAU$bmvAmthP7L7xwsZS}#
+ #{r -ANAU$bmvAmthP7L7xwsZ1}#
+ #{kw -ANAU$bmvAmthP7L7xwsZT}#))
+ #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 22198}#
- #{args 22732}#)))))
- (#{check 22203}#
- (lambda (#{req 22773}#
- #{opt 22774}#
- #{rest 22775}#
- #{kw 22776}#)
- (if (#{distinct-bound-ids? 2769}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
+ #{args -ANAU$bmvAmthP7L7xwsZQ}#)))))
+ (#{check address@hidden
+ (lambda (#{req -ANAU$bmvAmthP7L7xwsZ5}#
+ #{opt -ANAU$bmvAmthP7L7xwsZ6}#
+ #{rest -ANAU$bmvAmthP7L7xwsZ7}#
+ #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
+ (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
(append
- #{req 22773}#
- (map car #{opt 22774}#)
- (if #{rest 22775}# (list #{rest 22775}#) '())
- (if (pair? #{kw 22776}#)
- (map cadr (cdr #{kw 22776}#))
+ #{req -ANAU$bmvAmthP7L7xwsZ5}#
+ (map car #{opt -ANAU$bmvAmthP7L7xwsZ6}#)
+ (if #{rest -ANAU$bmvAmthP7L7xwsZ7}#
+ (list #{rest -ANAU$bmvAmthP7L7xwsZ7}#)
+ '())
+ (if (pair? #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
+ (map cadr (cdr #{kw -ANAU$bmvAmthP7L7xwsZ8}#))
'())))
(values
- #{req 22773}#
- #{opt 22774}#
- #{rest 22775}#
- #{kw 22776}#)
+ #{req -ANAU$bmvAmthP7L7xwsZ5}#
+ #{opt -ANAU$bmvAmthP7L7xwsZ6}#
+ #{rest -ANAU$bmvAmthP7L7xwsZ7}#
+ #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 22198}#)))))
- (#{req 22199}# #{orig-args 22198}# '()))))
- (#{expand-lambda-case 2790}#
- (lambda (#{e 22892}#
- #{r 22893}#
- #{w 22894}#
- #{s 22895}#
- #{mod 22896}#
- #{get-formals 22897}#
- #{clauses 22898}#)
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#)))))
+ (#{req -ANAU$bmvAmthP7L7xwsQ7}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
+ '()))))
+ (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwsbw}#
+ #{r -ANAU$bmvAmthP7L7xwsbx}#
+ #{w -ANAU$bmvAmthP7L7xwsby}#
+ #{s -ANAU$bmvAmthP7L7xwsbz}#
+ #{mod -ANAU$bmvAmthP7L7xwsb0}#
+ #{get-formals -ANAU$bmvAmthP7L7xwsb1}#
+ #{clauses -ANAU$bmvAmthP7L7xwsb2}#)
(letrec*
- ((#{parse-req 22899}#
- (lambda (#{req 23026}#
- #{opt 23027}#
- #{rest 23028}#
- #{kw 23029}#
- #{body 23030}#)
- (let ((#{vars 23031}#
- (map #{gen-var 2792}# #{req 23026}#))
- (#{labels 23032}#
- (#{gen-labels 2746}# #{req 23026}#)))
- (let ((#{r* 23033}#
- (#{extend-var-env 2738}#
- #{labels 23032}#
- #{vars 23031}#
- #{r 22893}#))
- (#{w* 23034}#
- (#{make-binding-wrap 2757}#
- #{req 23026}#
- #{labels 23032}#
- #{w 22894}#)))
- (#{parse-opt 22900}#
- (map syntax->datum #{req 23026}#)
- #{opt 23027}#
- #{rest 23028}#
- #{kw 23029}#
- #{body 23030}#
- (reverse #{vars 23031}#)
- #{r* 23033}#
- #{w* 23034}#
+ ((#{parse-req -ANAU$bmvAmthP7L7xwsb3}#
+ (lambda (#{req -ANAU$bmvAmthP7L7xwsd2}#
+ #{opt -ANAU$bmvAmthP7L7xwsd3}#
+ #{rest -ANAU$bmvAmthP7L7xwsd4}#
+ #{kw -ANAU$bmvAmthP7L7xwsd5}#
+ #{body -ANAU$bmvAmthP7L7xwsd6}#)
+ (let ((#{vars -ANAU$bmvAmthP7L7xwsd7}#
+ (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
+ #{req -ANAU$bmvAmthP7L7xwsd2}#))
+ (#{labels -ANAU$bmvAmthP7L7xwsd8}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{req -ANAU$bmvAmthP7L7xwsd2}#)))
+ (let ((#{r* -ANAU$bmvAmthP7L7xwsd9}#
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ #{labels -ANAU$bmvAmthP7L7xwsd8}#
+ #{vars -ANAU$bmvAmthP7L7xwsd7}#
+ #{r -ANAU$bmvAmthP7L7xwsbx}#))
+ (#{w* -ANAU$bmvAmthP7L7xwsd$}#
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{req -ANAU$bmvAmthP7L7xwsd2}#
+ #{labels -ANAU$bmvAmthP7L7xwsd8}#
+ #{w -ANAU$bmvAmthP7L7xwsby}#)))
+ (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
+ (map syntax->datum
+ #{req -ANAU$bmvAmthP7L7xwsd2}#)
+ #{opt -ANAU$bmvAmthP7L7xwsd3}#
+ #{rest -ANAU$bmvAmthP7L7xwsd4}#
+ #{kw -ANAU$bmvAmthP7L7xwsd5}#
+ #{body -ANAU$bmvAmthP7L7xwsd6}#
+ (reverse #{vars -ANAU$bmvAmthP7L7xwsd7}#)
+ #{r* -ANAU$bmvAmthP7L7xwsd9}#
+ #{w* -ANAU$bmvAmthP7L7xwsd$}#
'()
'())))))
- (#{parse-opt 22900}#
- (lambda (#{req 23210}#
- #{opt 23211}#
- #{rest 23212}#
- #{kw 23213}#
- #{body 23214}#
- #{vars 23215}#
- #{r* 23216}#
- #{w* 23217}#
- #{out 23218}#
- #{inits 23219}#)
- (if (pair? #{opt 23211}#)
- (let ((#{tmp 23220}# (car #{opt 23211}#)))
- (let ((#{tmp 23221}#
- ($sc-dispatch #{tmp 23220}# '(any any))))
- (if #{tmp 23221}#
+ (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
+ (lambda (#{req -ANAU$bmvAmthP7L7xwsgu}#
+ #{opt -ANAU$bmvAmthP7L7xwsgv}#
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#
+ #{kw -ANAU$bmvAmthP7L7xwsgx}#
+ #{body -ANAU$bmvAmthP7L7xwsgy}#
+ #{vars -ANAU$bmvAmthP7L7xwsgz}#
+ #{r* -ANAU$bmvAmthP7L7xwsg0}#
+ #{w* -ANAU$bmvAmthP7L7xwsg1}#
+ #{out -ANAU$bmvAmthP7L7xwsg2}#
+ #{inits -ANAU$bmvAmthP7L7xwsg3}#)
+ (if (pair? #{opt -ANAU$bmvAmthP7L7xwsgv}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsg4}#
+ (car #{opt -ANAU$bmvAmthP7L7xwsgv}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsg5}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwsg4}#
+ '(any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwsg5}#
(@apply
- (lambda (#{id 23223}# #{i 23224}#)
- (let ((#{v 23225}#
- (let ((#{id 23233}#
- (if (if (vector? #{id 23223}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwsg7}#
+ #{i -ANAU$bmvAmthP7L7xwsg8}#)
+ (let ((#{v -ANAU$bmvAmthP7L7xwsg9}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwshF}#
+ (if (if (vector?
+ #{id
-ANAU$bmvAmthP7L7xwsg7}#)
(if (= (vector-length
- #{id 23223}#)
+ #{id
-ANAU$bmvAmthP7L7xwsg7}#)
4)
(eq? (vector-ref
- #{id 23223}#
+ #{id
-ANAU$bmvAmthP7L7xwsg7}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 23223}# 1)
- #{id 23223}#)))
+ (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwsg7}#
+ 1)
+ #{id -ANAU$bmvAmthP7L7xwsg7}#)))
(gensym
(string-append
- (symbol->string #{id 23233}#)
+ (symbol->string
+ #{id -ANAU$bmvAmthP7L7xwshF}#)
" ")))))
- (let ((#{l 23226}#
- (#{gen-labels 2746}#
- (list #{v 23225}#))))
- (let ((#{r** 23227}#
- (#{extend-var-env 2738}#
- #{l 23226}#
- (list #{v 23225}#)
- #{r* 23216}#)))
- (let ((#{w** 23228}#
- (#{make-binding-wrap 2757}#
- (list #{id 23223}#)
- #{l 23226}#
- #{w* 23217}#)))
- (#{parse-opt 22900}#
- #{req 23210}#
- (cdr #{opt 23211}#)
- #{rest 23212}#
- #{kw 23213}#
- #{body 23214}#
- (cons #{v 23225}# #{vars 23215}#)
- #{r** 23227}#
- #{w** 23228}#
- (cons (syntax->datum #{id 23223}#)
- #{out 23218}#)
- (cons (#{expand 2778}#
- #{i 23224}#
- #{r* 23216}#
- #{w* 23217}#
- #{mod 22896}#)
- #{inits 23219}#)))))))
- #{tmp 23221}#)
+ (let ((#{l -ANAU$bmvAmthP7L7xwsg$}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ (list #{v -ANAU$bmvAmthP7L7xwsg9}#))))
+ (let ((#{r** address@hidden
+ (#{extend-var-env
-ANAU$bmvAmthP7L7xwnNb}#
+ #{l -ANAU$bmvAmthP7L7xwsg$}#
+ (list #{v -ANAU$bmvAmthP7L7xwsg9}#)
+ #{r* -ANAU$bmvAmthP7L7xwsg0}#)))
+ (let ((#{w** -ANAU$bmvAmthP7L7xwshA}#
+ (#{make-binding-wrap
-ANAU$bmvAmthP7L7xwnNu}#
+ (list #{id
-ANAU$bmvAmthP7L7xwsg7}#)
+ #{l -ANAU$bmvAmthP7L7xwsg$}#
+ #{w* -ANAU$bmvAmthP7L7xwsg1}#)))
+ (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
+ #{req -ANAU$bmvAmthP7L7xwsgu}#
+ (cdr #{opt -ANAU$bmvAmthP7L7xwsgv}#)
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#
+ #{kw -ANAU$bmvAmthP7L7xwsgx}#
+ #{body -ANAU$bmvAmthP7L7xwsgy}#
+ (cons #{v -ANAU$bmvAmthP7L7xwsg9}#
+ #{vars -ANAU$bmvAmthP7L7xwsgz}#)
+ #{r** address@hidden
+ #{w** -ANAU$bmvAmthP7L7xwshA}#
+ (cons (syntax->datum
+ #{id -ANAU$bmvAmthP7L7xwsg7}#)
+ #{out -ANAU$bmvAmthP7L7xwsg2}#)
+ (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{i -ANAU$bmvAmthP7L7xwsg8}#
+ #{r* -ANAU$bmvAmthP7L7xwsg0}#
+ #{w* -ANAU$bmvAmthP7L7xwsg1}#
+ #{mod -ANAU$bmvAmthP7L7xwsb0}#)
+ #{inits
-ANAU$bmvAmthP7L7xwsg3}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xwsg5}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 23220}#))))
- (if #{rest 23212}#
- (let ((#{v 23462}#
- (let ((#{id 23472}#
- (if (if (vector? #{rest 23212}#)
- (if (= (vector-length #{rest 23212}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsg4}#))))
+ (if #{rest -ANAU$bmvAmthP7L7xwsgw}#
+ (let ((#{v -ANAU$bmvAmthP7L7xwskq}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwsk0}#
+ (if (if (vector?
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#)
+ (if (= (vector-length
+ #{rest
-ANAU$bmvAmthP7L7xwsgw}#)
4)
- (eq? (vector-ref #{rest 23212}# 0)
+ (eq? (vector-ref
+ #{rest
-ANAU$bmvAmthP7L7xwsgw}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 23212}# 1)
- #{rest 23212}#)))
+ (vector-ref
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#
+ 1)
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#)))
(gensym
(string-append
- (symbol->string #{id 23472}#)
+ (symbol->string
+ #{id -ANAU$bmvAmthP7L7xwsk0}#)
" ")))))
- (let ((#{l 23463}#
- (#{gen-labels 2746}# (list #{v 23462}#))))
- (let ((#{r* 23464}#
- (#{extend-var-env 2738}#
- #{l 23463}#
- (list #{v 23462}#)
- #{r* 23216}#)))
- (let ((#{w* 23465}#
- (#{make-binding-wrap 2757}#
- (list #{rest 23212}#)
- #{l 23463}#
- #{w* 23217}#)))
- (#{parse-kw 22901}#
- #{req 23210}#
- (if (pair? #{out 23218}#)
- (reverse #{out 23218}#)
+ (let ((#{l -ANAU$bmvAmthP7L7xwskr}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ (list #{v -ANAU$bmvAmthP7L7xwskq}#))))
+ (let ((#{r* -ANAU$bmvAmthP7L7xwsks}#
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ #{l -ANAU$bmvAmthP7L7xwskr}#
+ (list #{v -ANAU$bmvAmthP7L7xwskq}#)
+ #{r* -ANAU$bmvAmthP7L7xwsg0}#)))
+ (let ((#{w* -ANAU$bmvAmthP7L7xwskt}#
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ (list #{rest -ANAU$bmvAmthP7L7xwsgw}#)
+ #{l -ANAU$bmvAmthP7L7xwskr}#
+ #{w* -ANAU$bmvAmthP7L7xwsg1}#)))
+ (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
+ #{req -ANAU$bmvAmthP7L7xwsgu}#
+ (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#)
+ (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#)
+ #f)
+ (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsgw}#)
+ (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ #{body -ANAU$bmvAmthP7L7xwsgy}#
+ (cons #{v -ANAU$bmvAmthP7L7xwskq}#
+ #{vars -ANAU$bmvAmthP7L7xwsgz}#)
+ #{r* -ANAU$bmvAmthP7L7xwsks}#
+ #{w* -ANAU$bmvAmthP7L7xwskt}#
+ (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ (car #{kw -ANAU$bmvAmthP7L7xwsgx}#)
#f)
- (syntax->datum #{rest 23212}#)
- (if (pair? #{kw 23213}#)
- (cdr #{kw 23213}#)
- #{kw 23213}#)
- #{body 23214}#
- (cons #{v 23462}# #{vars 23215}#)
- #{r* 23464}#
- #{w* 23465}#
- (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f)
'()
- #{inits 23219}#)))))
- (#{parse-kw 22901}#
- #{req 23210}#
- (if (pair? #{out 23218}#)
- (reverse #{out 23218}#)
+ #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))
+ (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
+ #{req -ANAU$bmvAmthP7L7xwsgu}#
+ (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#)
+ (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#)
#f)
#f
- (if (pair? #{kw 23213}#)
- (cdr #{kw 23213}#)
- #{kw 23213}#)
- #{body 23214}#
- #{vars 23215}#
- #{r* 23216}#
- #{w* 23217}#
- (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f)
+ (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ #{body -ANAU$bmvAmthP7L7xwsgy}#
+ #{vars -ANAU$bmvAmthP7L7xwsgz}#
+ #{r* -ANAU$bmvAmthP7L7xwsg0}#
+ #{w* -ANAU$bmvAmthP7L7xwsg1}#
+ (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ (car #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ #f)
'()
- #{inits 23219}#)))))
- (#{parse-kw 22901}#
- (lambda (#{req 23634}#
- #{opt 23635}#
- #{rest 23636}#
- #{kw 23637}#
- #{body 23638}#
- #{vars 23639}#
- #{r* 23640}#
- #{w* 23641}#
- #{aok 23642}#
- #{out 23643}#
- #{inits 23644}#)
- (if (pair? #{kw 23637}#)
- (let ((#{tmp 23645}# (car #{kw 23637}#)))
- (let ((#{tmp 23646}#
- ($sc-dispatch #{tmp 23645}# '(any any any))))
- (if #{tmp 23646}#
+ #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))
+ (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
+ (lambda (#{req -ANAU$bmvAmthP7L7xwsnW}#
+ #{opt -ANAU$bmvAmthP7L7xwsnX}#
+ #{rest -ANAU$bmvAmthP7L7xwsnY}#
+ #{kw -ANAU$bmvAmthP7L7xwsnZ}#
+ #{body -ANAU$bmvAmthP7L7xwsna}#
+ #{vars -ANAU$bmvAmthP7L7xwsnb}#
+ #{r* -ANAU$bmvAmthP7L7xwsnc}#
+ #{w* -ANAU$bmvAmthP7L7xwsnd}#
+ #{aok -ANAU$bmvAmthP7L7xwsne}#
+ #{out -ANAU$bmvAmthP7L7xwsnf}#
+ #{inits -ANAU$bmvAmthP7L7xwsng}#)
+ (if (pair? #{kw -ANAU$bmvAmthP7L7xwsnZ}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsnh}#
+ (car #{kw -ANAU$bmvAmthP7L7xwsnZ}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsni}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwsnh}#
+ '(any any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwsni}#
(@apply
- (lambda (#{k 23648}# #{id 23649}# #{i 23650}#)
- (let ((#{v 23651}#
- (let ((#{id 23659}#
- (if (if (vector? #{id 23649}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwsnk}#
+ #{id -ANAU$bmvAmthP7L7xwsnl}#
+ #{i -ANAU$bmvAmthP7L7xwsnm}#)
+ (let ((#{v -ANAU$bmvAmthP7L7xwsnn}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwsnv}#
+ (if (if (vector?
+ #{id
-ANAU$bmvAmthP7L7xwsnl}#)
(if (= (vector-length
- #{id 23649}#)
+ #{id
-ANAU$bmvAmthP7L7xwsnl}#)
4)
(eq? (vector-ref
- #{id 23649}#
+ #{id
-ANAU$bmvAmthP7L7xwsnl}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 23649}# 1)
- #{id 23649}#)))
+ (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwsnl}#
+ 1)
+ #{id -ANAU$bmvAmthP7L7xwsnl}#)))
(gensym
(string-append
- (symbol->string #{id 23659}#)
+ (symbol->string
+ #{id -ANAU$bmvAmthP7L7xwsnv}#)
" ")))))
- (let ((#{l 23652}#
- (#{gen-labels 2746}#
- (list #{v 23651}#))))
- (let ((#{r** 23653}#
- (#{extend-var-env 2738}#
- #{l 23652}#
- (list #{v 23651}#)
- #{r* 23640}#)))
- (let ((#{w** 23654}#
- (#{make-binding-wrap 2757}#
- (list #{id 23649}#)
- #{l 23652}#
- #{w* 23641}#)))
- (#{parse-kw 22901}#
- #{req 23634}#
- #{opt 23635}#
- #{rest 23636}#
- (cdr #{kw 23637}#)
- #{body 23638}#
- (cons #{v 23651}# #{vars 23639}#)
- #{r** 23653}#
- #{w** 23654}#
- #{aok 23642}#
- (cons (list (syntax->datum #{k 23648}#)
- (syntax->datum #{id 23649}#)
- #{v 23651}#)
- #{out 23643}#)
- (cons (#{expand 2778}#
- #{i 23650}#
- #{r* 23640}#
- #{w* 23641}#
- #{mod 22896}#)
- #{inits 23644}#)))))))
- #{tmp 23646}#)
+ (let ((#{l -ANAU$bmvAmthP7L7xwsno}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ (list #{v -ANAU$bmvAmthP7L7xwsnn}#))))
+ (let ((#{r** -ANAU$bmvAmthP7L7xwsnp}#
+ (#{extend-var-env
-ANAU$bmvAmthP7L7xwnNb}#
+ #{l -ANAU$bmvAmthP7L7xwsno}#
+ (list #{v -ANAU$bmvAmthP7L7xwsnn}#)
+ #{r* -ANAU$bmvAmthP7L7xwsnc}#)))
+ (let ((#{w** -ANAU$bmvAmthP7L7xwsnq}#
+ (#{make-binding-wrap
-ANAU$bmvAmthP7L7xwnNu}#
+ (list #{id
-ANAU$bmvAmthP7L7xwsnl}#)
+ #{l -ANAU$bmvAmthP7L7xwsno}#
+ #{w* -ANAU$bmvAmthP7L7xwsnd}#)))
+ (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
+ #{req -ANAU$bmvAmthP7L7xwsnW}#
+ #{opt -ANAU$bmvAmthP7L7xwsnX}#
+ #{rest -ANAU$bmvAmthP7L7xwsnY}#
+ (cdr #{kw -ANAU$bmvAmthP7L7xwsnZ}#)
+ #{body -ANAU$bmvAmthP7L7xwsna}#
+ (cons #{v -ANAU$bmvAmthP7L7xwsnn}#
+ #{vars -ANAU$bmvAmthP7L7xwsnb}#)
+ #{r** -ANAU$bmvAmthP7L7xwsnp}#
+ #{w** -ANAU$bmvAmthP7L7xwsnq}#
+ #{aok -ANAU$bmvAmthP7L7xwsne}#
+ (cons (list (syntax->datum
+ #{k
-ANAU$bmvAmthP7L7xwsnk}#)
+ (syntax->datum
+ #{id
-ANAU$bmvAmthP7L7xwsnl}#)
+ #{v -ANAU$bmvAmthP7L7xwsnn}#)
+ #{out -ANAU$bmvAmthP7L7xwsnf}#)
+ (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{i -ANAU$bmvAmthP7L7xwsnm}#
+ #{r* -ANAU$bmvAmthP7L7xwsnc}#
+ #{w* -ANAU$bmvAmthP7L7xwsnd}#
+ #{mod -ANAU$bmvAmthP7L7xwsb0}#)
+ #{inits
-ANAU$bmvAmthP7L7xwsng}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xwsni}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 23645}#))))
- (#{parse-body 22902}#
- #{req 23634}#
- #{opt 23635}#
- #{rest 23636}#
- (if (if #{aok 23642}#
- #{aok 23642}#
- (pair? #{out 23643}#))
- (cons #{aok 23642}# (reverse #{out 23643}#))
+ #{tmp -ANAU$bmvAmthP7L7xwsnh}#))))
+ (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
+ #{req -ANAU$bmvAmthP7L7xwsnW}#
+ #{opt -ANAU$bmvAmthP7L7xwsnX}#
+ #{rest -ANAU$bmvAmthP7L7xwsnY}#
+ (if (if #{aok -ANAU$bmvAmthP7L7xwsne}#
+ #{aok -ANAU$bmvAmthP7L7xwsne}#
+ (pair? #{out -ANAU$bmvAmthP7L7xwsnf}#))
+ (cons #{aok -ANAU$bmvAmthP7L7xwsne}#
+ (reverse #{out -ANAU$bmvAmthP7L7xwsnf}#))
#f)
- #{body 23638}#
- (reverse #{vars 23639}#)
- #{r* 23640}#
- #{w* 23641}#
- (reverse #{inits 23644}#)
+ #{body -ANAU$bmvAmthP7L7xwsna}#
+ (reverse #{vars -ANAU$bmvAmthP7L7xwsnb}#)
+ #{r* -ANAU$bmvAmthP7L7xwsnc}#
+ #{w* -ANAU$bmvAmthP7L7xwsnd}#
+ (reverse #{inits -ANAU$bmvAmthP7L7xwsng}#)
'()))))
- (#{parse-body 22902}#
- (lambda (#{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- #{body 23901}#
- #{vars 23902}#
- #{r* 23903}#
- #{w* 23904}#
- #{inits 23905}#
- #{meta 23906}#)
- (let ((#{tmp 23908}#
+ (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
+ (lambda (#{req -ANAU$bmvAmthP7L7xwsrd}#
+ #{opt -ANAU$bmvAmthP7L7xwsre}#
+ #{rest -ANAU$bmvAmthP7L7xwsrf}#
+ #{kw -ANAU$bmvAmthP7L7xwsrg}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#
+ #{vars -ANAU$bmvAmthP7L7xwsri}#
+ #{r* -ANAU$bmvAmthP7L7xwsrj}#
+ #{w* -ANAU$bmvAmthP7L7xwsrk}#
+ #{inits -ANAU$bmvAmthP7L7xwsrl}#
+ #{meta -ANAU$bmvAmthP7L7xwsrm}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsro}#
($sc-dispatch
- #{body 23901}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#
'(any any . each-any))))
- (if (if #{tmp 23908}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsro}#
(@apply
- (lambda (#{docstring 23912}#
- #{e1 23913}#
- #{e2 23914}#)
- (string? (syntax->datum #{docstring 23912}#)))
- #{tmp 23908}#)
+ (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrs}#
+ #{e1 -ANAU$bmvAmthP7L7xwsrt}#
+ #{e2 -ANAU$bmvAmthP7L7xwsru}#)
+ (string?
+ (syntax->datum
+ #{docstring -ANAU$bmvAmthP7L7xwsrs}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsro}#)
#f)
(@apply
- (lambda (#{docstring 23915}# #{e1 23916}# #{e2 23917}#)
- (#{parse-body 22902}#
- #{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- (cons #{e1 23916}# #{e2 23917}#)
- #{vars 23902}#
- #{r* 23903}#
- #{w* 23904}#
- #{inits 23905}#
+ (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrv}#
+ #{e1 -ANAU$bmvAmthP7L7xwsrw}#
+ #{e2 -ANAU$bmvAmthP7L7xwsrx}#)
+ (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
+ #{req -ANAU$bmvAmthP7L7xwsrd}#
+ #{opt -ANAU$bmvAmthP7L7xwsre}#
+ #{rest -ANAU$bmvAmthP7L7xwsrf}#
+ #{kw -ANAU$bmvAmthP7L7xwsrg}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwsrw}#
+ #{e2 -ANAU$bmvAmthP7L7xwsrx}#)
+ #{vars -ANAU$bmvAmthP7L7xwsri}#
+ #{r* -ANAU$bmvAmthP7L7xwsrj}#
+ #{w* -ANAU$bmvAmthP7L7xwsrk}#
+ #{inits -ANAU$bmvAmthP7L7xwsrl}#
(append
- #{meta 23906}#
+ #{meta -ANAU$bmvAmthP7L7xwsrm}#
(list (cons 'documentation
(syntax->datum
- #{docstring 23915}#))))))
- #{tmp 23908}#)
- (let ((#{tmp 23918}#
+ #{docstring
-ANAU$bmvAmthP7L7xwsrv}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwsro}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsry}#
($sc-dispatch
- #{body 23901}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 23918}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsry}#
(@apply
- (lambda (#{k 23922}#
- #{v 23923}#
- #{e1 23924}#
- #{e2 23925}#)
- (#{parse-body 22902}#
- #{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- (cons #{e1 23924}# #{e2 23925}#)
- #{vars 23902}#
- #{r* 23903}#
- #{w* 23904}#
- #{inits 23905}#
+ (lambda (#{k -ANAU$bmvAmthP7L7xwsr2}#
+ #{v -ANAU$bmvAmthP7L7xwsr3}#
+ #{e1 -ANAU$bmvAmthP7L7xwsr4}#
+ #{e2 -ANAU$bmvAmthP7L7xwsr5}#)
+ (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
+ #{req -ANAU$bmvAmthP7L7xwsrd}#
+ #{opt -ANAU$bmvAmthP7L7xwsre}#
+ #{rest -ANAU$bmvAmthP7L7xwsrf}#
+ #{kw -ANAU$bmvAmthP7L7xwsrg}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwsr4}#
+ #{e2 -ANAU$bmvAmthP7L7xwsr5}#)
+ #{vars -ANAU$bmvAmthP7L7xwsri}#
+ #{r* -ANAU$bmvAmthP7L7xwsrj}#
+ #{w* -ANAU$bmvAmthP7L7xwsrk}#
+ #{inits -ANAU$bmvAmthP7L7xwsrl}#
(append
- #{meta 23906}#
+ #{meta -ANAU$bmvAmthP7L7xwsrm}#
(syntax->datum
- (map cons #{k 23922}# #{v 23923}#)))))
- #{tmp 23918}#)
- (let ((#{tmp 23926}#
+ (map cons
+ #{k -ANAU$bmvAmthP7L7xwsr2}#
+ #{v -ANAU$bmvAmthP7L7xwsr3}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwsry}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsr6}#
($sc-dispatch
- #{body 23901}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#
'(any . each-any))))
- (if #{tmp 23926}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsr6}#
(@apply
- (lambda (#{e1 23930}# #{e2 23931}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwsr$}#
+ #{e2 address@hidden)
(values
- #{meta 23906}#
- #{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- #{inits 23905}#
- #{vars 23902}#
- (#{expand-body 2782}#
- (cons #{e1 23930}# #{e2 23931}#)
- (#{wrap 2771}#
+ #{meta -ANAU$bmvAmthP7L7xwsrm}#
+ #{req -ANAU$bmvAmthP7L7xwsrd}#
+ #{opt -ANAU$bmvAmthP7L7xwsre}#
+ #{rest -ANAU$bmvAmthP7L7xwsrf}#
+ #{kw -ANAU$bmvAmthP7L7xwsrg}#
+ #{inits -ANAU$bmvAmthP7L7xwsrl}#
+ #{vars -ANAU$bmvAmthP7L7xwsri}#
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwsr$}#
+ #{e2 address@hidden)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 22892}#)
- #{s 22895}#
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwsbw}#)
+ #{s -ANAU$bmvAmthP7L7xwsbz}#
#f)
(set-source-properties!
- #{e 22892}#
- #{s 22895}#))
- #{e 22892}#)
- #{w 22894}#
- #{mod 22896}#)
- #{r* 23903}#
- #{w* 23904}#
- #{mod 22896}#)))
- #{tmp 23926}#)
+ #{e -ANAU$bmvAmthP7L7xwsbw}#
+ #{s -ANAU$bmvAmthP7L7xwsbz}#))
+ #{e -ANAU$bmvAmthP7L7xwsbw}#)
+ #{w -ANAU$bmvAmthP7L7xwsby}#
+ #{mod -ANAU$bmvAmthP7L7xwsb0}#)
+ #{r* -ANAU$bmvAmthP7L7xwsrj}#
+ #{w* -ANAU$bmvAmthP7L7xwsrk}#
+ #{mod -ANAU$bmvAmthP7L7xwsb0}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsr6}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 23901}#))))))))))
- (let ((#{tmp 22904}#
- ($sc-dispatch #{clauses 22898}# '())))
- (if #{tmp 22904}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#))))))))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsb8}#
+ ($sc-dispatch
+ #{clauses -ANAU$bmvAmthP7L7xwsb2}#
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xwsb8}#
(@apply
(lambda () (values '() #f))
- #{tmp 22904}#)
- (let ((#{tmp 22908}#
+ #{tmp -ANAU$bmvAmthP7L7xwsb8}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwscA}#
($sc-dispatch
- #{clauses 22898}#
+ #{clauses -ANAU$bmvAmthP7L7xwsb2}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 22908}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwscA}#
(@apply
- (lambda (#{args 22912}#
- #{e1 22913}#
- #{e2 22914}#
- #{args* 22915}#
- #{e1* 22916}#
- #{e2* 22917}#)
+ (lambda (#{args -ANAU$bmvAmthP7L7xwscE}#
+ #{e1 -ANAU$bmvAmthP7L7xwscF}#
+ #{e2 -ANAU$bmvAmthP7L7xwscG}#
+ #{args* -ANAU$bmvAmthP7L7xwscH}#
+ #{e1* -ANAU$bmvAmthP7L7xwscI}#
+ #{e2* -ANAU$bmvAmthP7L7xwscJ}#)
(call-with-values
(lambda ()
- (#{get-formals 22897}# #{args 22912}#))
- (lambda (#{req 22918}#
- #{opt 22919}#
- #{rest 22920}#
- #{kw 22921}#)
+ (#{get-formals -ANAU$bmvAmthP7L7xwsb1}#
+ #{args -ANAU$bmvAmthP7L7xwscE}#))
+ (lambda (#{req -ANAU$bmvAmthP7L7xwscK}#
+ #{opt -ANAU$bmvAmthP7L7xwscL}#
+ #{rest -ANAU$bmvAmthP7L7xwscM}#
+ #{kw -ANAU$bmvAmthP7L7xwscN}#)
(call-with-values
(lambda ()
- (#{parse-req 22899}#
- #{req 22918}#
- #{opt 22919}#
- #{rest 22920}#
- #{kw 22921}#
- (cons #{e1 22913}# #{e2 22914}#)))
- (lambda (#{meta 22982}#
- #{req 22983}#
- #{opt 22984}#
- #{rest 22985}#
- #{kw 22986}#
- #{inits 22987}#
- #{vars 22988}#
- #{body 22989}#)
+ (#{parse-req -ANAU$bmvAmthP7L7xwsb3}#
+ #{req -ANAU$bmvAmthP7L7xwscK}#
+ #{opt -ANAU$bmvAmthP7L7xwscL}#
+ #{rest -ANAU$bmvAmthP7L7xwscM}#
+ #{kw -ANAU$bmvAmthP7L7xwscN}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwscF}#
+ #{e2 -ANAU$bmvAmthP7L7xwscG}#)))
+ (lambda (#{meta -ANAU$bmvAmthP7L7xwsdK}#
+ #{req -ANAU$bmvAmthP7L7xwsdL}#
+ #{opt -ANAU$bmvAmthP7L7xwsdM}#
+ #{rest -ANAU$bmvAmthP7L7xwsdN}#
+ #{kw -ANAU$bmvAmthP7L7xwsdO}#
+ #{inits -ANAU$bmvAmthP7L7xwsdP}#
+ #{vars -ANAU$bmvAmthP7L7xwsdQ}#
+ #{body -ANAU$bmvAmthP7L7xwsdR}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 22892}#
- #{r 22893}#
- #{w 22894}#
- #{s 22895}#
- #{mod 22896}#
- #{get-formals 22897}#
- (map (lambda (#{tmp 1727 22990}#
- #{tmp 1726 22991}#
- #{tmp 1725 22992}#)
- (cons #{tmp 1725 22992}#
- (cons #{tmp 1726 22991}#
- #{tmp 1727 22990}#)))
- #{e2* 22917}#
- #{e1* 22916}#
- #{args* 22915}#)))
- (lambda (#{meta* 22993}# #{else* 22994}#)
+ (#{expand-lambda-case
-ANAU$bmvAmthP7L7xwnOQ}#
+ #{e -ANAU$bmvAmthP7L7xwsbw}#
+ #{r -ANAU$bmvAmthP7L7xwsbx}#
+ #{w -ANAU$bmvAmthP7L7xwsby}#
+ #{s -ANAU$bmvAmthP7L7xwsbz}#
+ #{mod -ANAU$bmvAmthP7L7xwsb0}#
+ #{get-formals -ANAU$bmvAmthP7L7xwsb1}#
+ (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#
+ #{tmp
-ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}#
+ #{tmp
-ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}#)
+ (cons #{tmp -ANAU$bmvAmthP7L7xwm9d
-ANAU$bmvAmthP7L7xwsdU}#
+ (cons #{tmp
-ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}#
+ #{tmp
-ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#)))
+ #{e2* -ANAU$bmvAmthP7L7xwscJ}#
+ #{e1* -ANAU$bmvAmthP7L7xwscI}#
+ #{args* -ANAU$bmvAmthP7L7xwscH}#)))
+ (lambda (#{meta* -ANAU$bmvAmthP7L7xwsdV}#
+ #{else* -ANAU$bmvAmthP7L7xwsdW}#)
(values
- (append #{meta 22982}# #{meta* 22993}#)
+ (append
+ #{meta -ANAU$bmvAmthP7L7xwsdK}#
+ #{meta* -ANAU$bmvAmthP7L7xwsdV}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 22895}#
- #{req 22983}#
- #{opt 22984}#
- #{rest 22985}#
- #{kw 22986}#
- #{inits 22987}#
- #{vars 22988}#
- #{body 22989}#
- #{else* 22994}#)))))))))
- #{tmp 22908}#)
+ #{s -ANAU$bmvAmthP7L7xwsbz}#
+ #{req -ANAU$bmvAmthP7L7xwsdL}#
+ #{opt -ANAU$bmvAmthP7L7xwsdM}#
+ #{rest -ANAU$bmvAmthP7L7xwsdN}#
+ #{kw -ANAU$bmvAmthP7L7xwsdO}#
+ #{inits -ANAU$bmvAmthP7L7xwsdP}#
+ #{vars -ANAU$bmvAmthP7L7xwsdQ}#
+ #{body -ANAU$bmvAmthP7L7xwsdR}#
+ #{else*
-ANAU$bmvAmthP7L7xwsdW}#)))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwscA}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 22898}#))))))))
- (#{strip 2791}#
- (lambda (#{x 23968}# #{w 23969}#)
- (if (memq 'top (car #{w 23969}#))
- #{x 23968}#
+ #{clauses -ANAU$bmvAmthP7L7xwsb2}#))))))))
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwssk}#
+ #{w -ANAU$bmvAmthP7L7xwssl}#)
+ (if (memq 'top (car #{w -ANAU$bmvAmthP7L7xwssl}#))
+ #{x -ANAU$bmvAmthP7L7xwssk}#
(letrec*
- ((#{f 23970}#
- (lambda (#{x 23973}#)
- (if (if (vector? #{x 23973}#)
- (if (= (vector-length #{x 23973}#) 4)
- (eq? (vector-ref #{x 23973}# 0) 'syntax-object)
+ ((#{f -ANAU$bmvAmthP7L7xwssm}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwssp}#)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwssp}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 0)
+ 'syntax-object)
#f)
#f)
- (#{strip 2791}#
- (vector-ref #{x 23973}# 1)
- (vector-ref #{x 23973}# 2))
- (if (pair? #{x 23973}#)
- (let ((#{a 23992}# (#{f 23970}# (car #{x 23973}#)))
- (#{d 23993}# (#{f 23970}# (cdr #{x 23973}#))))
- (if (if (eq? #{a 23992}# (car #{x 23973}#))
- (eq? #{d 23993}# (cdr #{x 23973}#))
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 1)
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 2))
+ (if (pair? #{x -ANAU$bmvAmthP7L7xwssp}#)
+ (let ((#{a -ANAU$bmvAmthP7L7xwss8}#
+ (#{f -ANAU$bmvAmthP7L7xwssm}#
+ (car #{x -ANAU$bmvAmthP7L7xwssp}#)))
+ (#{d -ANAU$bmvAmthP7L7xwss9}#
+ (#{f -ANAU$bmvAmthP7L7xwssm}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwssp}#))))
+ (if (if (eq? #{a -ANAU$bmvAmthP7L7xwss8}#
+ (car #{x -ANAU$bmvAmthP7L7xwssp}#))
+ (eq? #{d -ANAU$bmvAmthP7L7xwss9}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwssp}#))
#f)
- #{x 23973}#
- (cons #{a 23992}# #{d 23993}#)))
- (if (vector? #{x 23973}#)
- (let ((#{old 23996}# (vector->list #{x 23973}#)))
- (let ((#{new 23997}#
- (map #{f 23970}# #{old 23996}#)))
+ #{x -ANAU$bmvAmthP7L7xwssp}#
+ (cons #{a -ANAU$bmvAmthP7L7xwss8}#
+ #{d -ANAU$bmvAmthP7L7xwss9}#)))
+ (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#)
+ (let ((#{old -ANAU$bmvAmthP7L7xwstA}#
+ (vector->list #{x -ANAU$bmvAmthP7L7xwssp}#)))
+ (let ((#{new -ANAU$bmvAmthP7L7xwstB}#
+ (map #{f -ANAU$bmvAmthP7L7xwssm}#
+ #{old -ANAU$bmvAmthP7L7xwstA}#)))
(letrec*
- ((#{lp 23998}#
- (lambda (#{l1 24074}# #{l2 24075}#)
- (if (null? #{l1 24074}#)
- #{x 23973}#
- (if (eq? (car #{l1 24074}#)
- (car #{l2 24075}#))
- (#{lp 23998}#
- (cdr #{l1 24074}#)
- (cdr #{l2 24075}#))
- (list->vector #{new 23997}#))))))
- (#{lp 23998}# #{old 23996}# #{new 23997}#))))
- #{x 23973}#))))))
- (#{f 23970}# #{x 23968}#)))))
- (#{gen-var 2792}#
- (lambda (#{id 23038}#)
- (let ((#{id 23039}#
- (if (if (vector? #{id 23038}#)
- (if (= (vector-length #{id 23038}#) 4)
- (eq? (vector-ref #{id 23038}# 0) 'syntax-object)
+ ((#{lp -ANAU$bmvAmthP7L7xwstC}#
+ (lambda (#{l1 -ANAU$bmvAmthP7L7xwsuO}#
+ #{l2 -ANAU$bmvAmthP7L7xwsuP}#)
+ (if (null? #{l1 -ANAU$bmvAmthP7L7xwsuO}#)
+ #{x -ANAU$bmvAmthP7L7xwssp}#
+ (if (eq? (car #{l1
-ANAU$bmvAmthP7L7xwsuO}#)
+ (car #{l2
-ANAU$bmvAmthP7L7xwsuP}#))
+ (#{lp -ANAU$bmvAmthP7L7xwstC}#
+ (cdr #{l1 -ANAU$bmvAmthP7L7xwsuO}#)
+ (cdr #{l2 -ANAU$bmvAmthP7L7xwsuP}#))
+ (list->vector
+ #{new -ANAU$bmvAmthP7L7xwstB}#))))))
+ (#{lp -ANAU$bmvAmthP7L7xwstC}#
+ #{old -ANAU$bmvAmthP7L7xwstA}#
+ #{new -ANAU$bmvAmthP7L7xwstB}#))))
+ #{x -ANAU$bmvAmthP7L7xwssp}#))))))
+ (#{f -ANAU$bmvAmthP7L7xwssm}#
+ #{x -ANAU$bmvAmthP7L7xwssk}#)))))
+ (#{gen-var -ANAU$bmvAmthP7L7xwnOS}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwseC}#)
+ (let ((#{id -ANAU$bmvAmthP7L7xwseD}#
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwseC}#)
+ (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwseC}#)
+ 4)
+ (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{id 23038}# 1)
- #{id 23038}#)))
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 1)
+ #{id -ANAU$bmvAmthP7L7xwseC}#)))
(gensym
- (string-append (symbol->string #{id 23039}#) " "))))))
+ (string-append
+ (symbol->string #{id -ANAU$bmvAmthP7L7xwseD}#)
+ " "))))))
(begin
- (set! #{gen-label 2745}#
- (let ((#{i 13949}# 0))
+ (set! #{gen-label -ANAU$bmvAmthP7L7xwnNi}#
+ (let ((#{i -ANAU$bmvAmthP7L7xwqAX}# 0))
(lambda ()
- (let ((#{n 13950}# #{i 13949}#))
+ (let ((#{n -ANAU$bmvAmthP7L7xwqAY}#
+ #{i -ANAU$bmvAmthP7L7xwqAX}#))
(begin
- (set! #{i 13949}# (#{1+}# #{n 13950}#))
- (number->string #{n 13950}# 36))))))
- (set! #{transformer-environment 2764}#
+ (set! #{i -ANAU$bmvAmthP7L7xwqAX}#
+ (#{1+}# #{n -ANAU$bmvAmthP7L7xwqAY}#))
+ (number->string #{n -ANAU$bmvAmthP7L7xwqAY}# 36))))))
+ (set! #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
(make-fluid
- (lambda (#{k 12327}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwpsD}#)
(error "called outside the dynamic extent of a syntax
transformer"))))
(module-define!
(current-module)
@@ -8250,1284 +8976,1500 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 2741}#
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'syntax-parameterize
- (lambda (#{e 2913}#
- #{r 2914}#
- #{w 2915}#
- #{s 2916}#
- #{mod 2917}#)
- (let ((#{tmp 2919}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnQL}#
+ #{r -ANAU$bmvAmthP7L7xwnQM}#
+ #{w -ANAU$bmvAmthP7L7xwnQN}#
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnQR}#
($sc-dispatch
- #{e 2913}#
+ #{e -ANAU$bmvAmthP7L7xwnQL}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2919}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnQR}#
(@apply
- (lambda (#{var 2923}#
- #{val 2924}#
- #{e1 2925}#
- #{e2 2926}#)
- (#{valid-bound-ids? 2768}# #{var 2923}#))
- #{tmp 2919}#)
+ (lambda (#{var -ANAU$bmvAmthP7L7xwnQV}#
+ #{val -ANAU$bmvAmthP7L7xwnQW}#
+ #{e1 -ANAU$bmvAmthP7L7xwnQX}#
+ #{e2 -ANAU$bmvAmthP7L7xwnQY}#)
+ (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{var -ANAU$bmvAmthP7L7xwnQV}#))
+ #{tmp -ANAU$bmvAmthP7L7xwnQR}#)
#f)
(@apply
- (lambda (#{var 3004}#
- #{val 3005}#
- #{e1 3006}#
- #{e2 3007}#)
- (let ((#{names 3008}#
- (map (lambda (#{x 3058}#)
- (#{id-var-name 2762}# #{x 3058}# #{w 2915}#))
- #{var 3004}#)))
+ (lambda (#{var -ANAU$bmvAmthP7L7xwnRm}#
+ #{val -ANAU$bmvAmthP7L7xwnRn}#
+ #{e1 -ANAU$bmvAmthP7L7xwnRo}#
+ #{e2 -ANAU$bmvAmthP7L7xwnRp}#)
+ (let ((#{names -ANAU$bmvAmthP7L7xwnRq}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwnSc}#)
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwnSc}#
+ #{w -ANAU$bmvAmthP7L7xwnQN}#))
+ #{var -ANAU$bmvAmthP7L7xwnRm}#)))
(begin
(for-each
- (lambda (#{id 3009}# #{n 3010}#)
- (let ((#{atom-key 3011}#
- (car (let ((#{t 3018}#
- (assq #{n 3010}# #{r 2914}#)))
- (if #{t 3018}#
- (cdr #{t 3018}#)
- (if (symbol? #{n 3010}#)
- (let ((#{t 3023}#
-
(#{get-global-definition-hook 2706}#
- #{n 3010}#
- #{mod 2917}#)))
- (if #{t 3023}#
- #{t 3023}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwnRr}#
+ #{n -ANAU$bmvAmthP7L7xwnRs}#)
+ (let ((#{atom-key -ANAU$bmvAmthP7L7xwnRt}#
+ (car (let ((#{t -ANAU$bmvAmthP7L7xwnR0}#
+ (assq #{n
-ANAU$bmvAmthP7L7xwnRs}#
+ #{r
-ANAU$bmvAmthP7L7xwnQM}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwnR0}#
+ (cdr #{t -ANAU$bmvAmthP7L7xwnR0}#)
+ (if (symbol?
+ #{n -ANAU$bmvAmthP7L7xwnRs}#)
+ (let ((#{t
-ANAU$bmvAmthP7L7xwnR5}#
+
(#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
+ #{n
-ANAU$bmvAmthP7L7xwnRs}#
+ #{mod
-ANAU$bmvAmthP7L7xwnQP}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwnR5}#
+ #{t -ANAU$bmvAmthP7L7xwnR5}#
'(global)))
'(displaced-lexical)))))))
- (if (eqv? #{atom-key 3011}# 'displaced-lexical)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwnRt}#
+ 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e 2913}#
- (#{wrap 2771}#
+ #{e -ANAU$bmvAmthP7L7xwnQL}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{id 3009}#) #{s 2916}# #f)
+ (if (if (pair? #{id
-ANAU$bmvAmthP7L7xwnRr}#)
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
+ #f)
(set-source-properties!
- #{id 3009}#
- #{s 2916}#))
- #{id 3009}#)
- #{w 2915}#
- #{mod 2917}#)))))
- #{var 3004}#
- #{names 3008}#)
- (#{expand-body 2782}#
- (cons #{e1 3006}# #{e2 3007}#)
- (#{wrap 2771}#
+ #{id -ANAU$bmvAmthP7L7xwnRr}#
+ #{s -ANAU$bmvAmthP7L7xwnQO}#))
+ #{id -ANAU$bmvAmthP7L7xwnRr}#)
+ #{w -ANAU$bmvAmthP7L7xwnQN}#
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#)))))
+ #{var -ANAU$bmvAmthP7L7xwnRm}#
+ #{names -ANAU$bmvAmthP7L7xwnRq}#)
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnRo}#
+ #{e2 -ANAU$bmvAmthP7L7xwnRp}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 2913}#) #{s 2916}# #f)
- (set-source-properties! #{e 2913}# #{s 2916}#))
- #{e 2913}#)
- #{w 2915}#
- #{mod 2917}#)
- (#{extend-env 2737}#
- #{names 3008}#
- (let ((#{trans-r 3144}#
- (#{macros-only-env 2739}# #{r 2914}#)))
- (map (lambda (#{x 3145}#)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwnQL}#
+ #{s -ANAU$bmvAmthP7L7xwnQO}#))
+ #{e -ANAU$bmvAmthP7L7xwnQL}#)
+ #{w -ANAU$bmvAmthP7L7xwnQN}#
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#)
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ #{names -ANAU$bmvAmthP7L7xwnRq}#
+ (let ((#{trans-r -ANAU$bmvAmthP7L7xwnTy}#
+ (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ #{r -ANAU$bmvAmthP7L7xwnQM}#)))
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwnTz}#)
(cons 'macro
- (#{eval-local-transformer 2784}#
- (#{expand 2778}#
- #{x 3145}#
- #{trans-r 3144}#
- #{w 2915}#
- #{mod 2917}#)
- #{mod 2917}#)))
- #{val 3005}#))
- #{r 2914}#)
- #{w 2915}#
- #{mod 2917}#))))
- #{tmp 2919}#)
+ (#{eval-local-transformer
-ANAU$bmvAmthP7L7xwnOK}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwnTz}#
+ #{trans-r -ANAU$bmvAmthP7L7xwnTy}#
+ #{w -ANAU$bmvAmthP7L7xwnQN}#
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#)
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#)))
+ #{val -ANAU$bmvAmthP7L7xwnRn}#))
+ #{r -ANAU$bmvAmthP7L7xwnQM}#)
+ #{w -ANAU$bmvAmthP7L7xwnQN}#
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwnQR}#)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 2913}#) #{s 2916}# #f)
- (set-source-properties! #{e 2913}# #{s 2916}#))
- #{e 2913}#)
- #{w 2915}#
- #{mod 2917}#))))))
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwnQL}#
+ #{s -ANAU$bmvAmthP7L7xwnQO}#))
+ #{e -ANAU$bmvAmthP7L7xwnQL}#)
+ #{w -ANAU$bmvAmthP7L7xwnQN}#
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 3354}#
- #{r 3355}#
- #{w 3356}#
- #{s 3357}#
- #{mod 3358}#)
- (let ((#{tmp 3360}# ($sc-dispatch #{e 3354}# '(_ any))))
- (if #{tmp 3360}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnXE}#
+ #{r -ANAU$bmvAmthP7L7xwnXF}#
+ #{w -ANAU$bmvAmthP7L7xwnXG}#
+ #{s -ANAU$bmvAmthP7L7xwnXH}#
+ #{mod -ANAU$bmvAmthP7L7xwnXI}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnXK}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwnXE}#
+ '(_ any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwnXK}#
(@apply
- (lambda (#{e 3363}#)
- (let ((#{exp 3367}#
- (#{strip 2791}# #{e 3363}# #{w 3356}#)))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnXN}#)
+ (let ((#{exp -ANAU$bmvAmthP7L7xwnXR}#
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{e -ANAU$bmvAmthP7L7xwnXN}#
+ #{w -ANAU$bmvAmthP7L7xwnXG}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 3357}#
- #{exp 3367}#)))
- #{tmp 3360}#)
+ #{s -ANAU$bmvAmthP7L7xwnXH}#
+ #{exp -ANAU$bmvAmthP7L7xwnXR}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwnXK}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 3354}#) #{s 3357}# #f)
- (set-source-properties! #{e 3354}# #{s 3357}#))
- #{e 3354}#)
- #{w 3356}#
- #{mod 3358}#)))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnXE}#)
+ #{s -ANAU$bmvAmthP7L7xwnXH}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwnXE}#
+ #{s -ANAU$bmvAmthP7L7xwnXH}#))
+ #{e -ANAU$bmvAmthP7L7xwnXE}#)
+ #{w -ANAU$bmvAmthP7L7xwnXG}#
+ #{mod -ANAU$bmvAmthP7L7xwnXI}#)))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'syntax
(letrec*
- ((#{gen-syntax 3587}#
- (lambda (#{src 3689}#
- #{e 3690}#
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#)
- (if (if (symbol? #{e 3690}#)
+ ((#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ (lambda (#{src -ANAU$bmvAmthP7L7xwncT}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#
+ #{maps -ANAU$bmvAmthP7L7xwncW}#
+ #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{mod -ANAU$bmvAmthP7L7xwncY}#)
+ (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwncU}#)
#t
- (if (if (vector? #{e 3690}#)
- (if (= (vector-length #{e 3690}#) 4)
- (eq? (vector-ref #{e 3690}# 0) 'syntax-object)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwncU}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwncU}#)
+ 4)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 3690}# 1))
+ (symbol?
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 1))
#f))
- (let ((#{label 3721}#
- (#{id-var-name 2762}# #{e 3690}# '(()))))
- (let ((#{b 3722}#
- (let ((#{t 3729}# (assq #{label 3721}# #{r 3691}#)))
- (if #{t 3729}#
- (cdr #{t 3729}#)
- (if (symbol? #{label 3721}#)
- (let ((#{t 3735}#
- (#{get-global-definition-hook 2706}#
- #{label 3721}#
- #{mod 3694}#)))
- (if #{t 3735}# #{t 3735}# '(global)))
+ (let ((#{label -ANAU$bmvAmthP7L7xwncz}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
+ '(()))))
+ (let ((#{b -ANAU$bmvAmthP7L7xwnc0}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwnc7}#
+ (assq #{label -ANAU$bmvAmthP7L7xwncz}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwnc7}#
+ (cdr #{t -ANAU$bmvAmthP7L7xwnc7}#)
+ (if (symbol? #{label -ANAU$bmvAmthP7L7xwncz}#)
+ (let ((#{t -ANAU$bmvAmthP7L7xwndB}#
+ (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
+ #{label -ANAU$bmvAmthP7L7xwncz}#
+ #{mod -ANAU$bmvAmthP7L7xwncY}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwndB}#
+ #{t -ANAU$bmvAmthP7L7xwndB}#
+ '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 3722}#) 'syntax)
+ (if (eq? (car #{b -ANAU$bmvAmthP7L7xwnc0}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 3744}# (cdr #{b 3722}#)))
- (#{gen-ref 3588}#
- #{src 3689}#
- (car #{var.lev 3744}#)
- (cdr #{var.lev 3744}#)
- #{maps 3692}#)))
- (lambda (#{var 3748}# #{maps 3749}#)
- (values (list 'ref #{var 3748}#) #{maps 3749}#)))
- (if (#{ellipsis? 3693}# #{e 3690}#)
+ (let ((#{var.lev -ANAU$bmvAmthP7L7xwndK}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwnc0}#)))
+ (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ (car #{var.lev -ANAU$bmvAmthP7L7xwndK}#)
+ (cdr #{var.lev -ANAU$bmvAmthP7L7xwndK}#)
+ #{maps -ANAU$bmvAmthP7L7xwncW}#)))
+ (lambda (#{var -ANAU$bmvAmthP7L7xwndO}#
+ #{maps -ANAU$bmvAmthP7L7xwndP}#)
+ (values
+ (list 'ref #{var -ANAU$bmvAmthP7L7xwndO}#)
+ #{maps -ANAU$bmvAmthP7L7xwndP}#)))
+ (if (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 3689}#)
- (values (list 'quote #{e 3690}#) #{maps 3692}#)))))
- (let ((#{tmp 3751}#
- ($sc-dispatch #{e 3690}# '(any any))))
- (if (if #{tmp 3751}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#)
+ (values
+ (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#)
+ #{maps -ANAU$bmvAmthP7L7xwncW}#)))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwndR}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwncU}#
+ '(any any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwndR}#
(@apply
- (lambda (#{dots 3755}# #{e 3756}#)
- (#{ellipsis? 3693}# #{dots 3755}#))
- #{tmp 3751}#)
+ (lambda (#{dots -ANAU$bmvAmthP7L7xwndV}#
+ #{e -ANAU$bmvAmthP7L7xwndW}#)
+ (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{dots -ANAU$bmvAmthP7L7xwndV}#))
+ #{tmp -ANAU$bmvAmthP7L7xwndR}#)
#f)
(@apply
- (lambda (#{dots 3757}# #{e 3758}#)
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{e 3758}#
- #{r 3691}#
- #{maps 3692}#
- (lambda (#{x 3759}#) #f)
- #{mod 3694}#))
- #{tmp 3751}#)
- (let ((#{tmp 3760}#
- ($sc-dispatch #{e 3690}# '(any any . any))))
- (if (if #{tmp 3760}#
+ (lambda (#{dots -ANAU$bmvAmthP7L7xwndX}#
+ #{e -ANAU$bmvAmthP7L7xwndY}#)
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ #{e -ANAU$bmvAmthP7L7xwndY}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#
+ #{maps -ANAU$bmvAmthP7L7xwncW}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwndZ}#) #f)
+ #{mod -ANAU$bmvAmthP7L7xwncY}#))
+ #{tmp -ANAU$bmvAmthP7L7xwndR}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnda}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwncU}#
+ '(any any . any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnda}#
(@apply
- (lambda (#{x 3764}# #{dots 3765}# #{y 3766}#)
- (#{ellipsis? 3693}# #{dots 3765}#))
- #{tmp 3760}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnde}#
+ #{dots -ANAU$bmvAmthP7L7xwndf}#
+ #{y -ANAU$bmvAmthP7L7xwndg}#)
+ (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{dots -ANAU$bmvAmthP7L7xwndf}#))
+ #{tmp -ANAU$bmvAmthP7L7xwnda}#)
#f)
(@apply
- (lambda (#{x 3767}# #{dots 3768}# #{y 3769}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwndh}#
+ #{dots -ANAU$bmvAmthP7L7xwndi}#
+ #{y -ANAU$bmvAmthP7L7xwndj}#)
(letrec*
- ((#{f 3770}#
- (lambda (#{y 3778}# #{k 3779}#)
- (let ((#{tmp 3781}#
+ ((#{f -ANAU$bmvAmthP7L7xwndk}#
+ (lambda (#{y -ANAU$bmvAmthP7L7xwnds}#
+ #{k -ANAU$bmvAmthP7L7xwndt}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwndv}#
($sc-dispatch
- #{y 3778}#
+ #{y -ANAU$bmvAmthP7L7xwnds}#
'(any . any))))
- (if (if #{tmp 3781}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwndv}#
(@apply
- (lambda (#{dots 3785}#
- #{y 3786}#)
- (#{ellipsis? 3693}#
- #{dots 3785}#))
- #{tmp 3781}#)
+ (lambda (#{dots
-ANAU$bmvAmthP7L7xwndz}#
+ #{y
-ANAU$bmvAmthP7L7xwnd0}#)
+ (#{ellipsis?
-ANAU$bmvAmthP7L7xwncX}#
+ #{dots
-ANAU$bmvAmthP7L7xwndz}#))
+ #{tmp -ANAU$bmvAmthP7L7xwndv}#)
#f)
(@apply
- (lambda (#{dots 3787}# #{y 3788}#)
- (#{f 3770}#
- #{y 3788}#
- (lambda (#{maps 3789}#)
+ (lambda (#{dots
-ANAU$bmvAmthP7L7xwnd1}#
+ #{y
-ANAU$bmvAmthP7L7xwnd2}#)
+ (#{f -ANAU$bmvAmthP7L7xwndk}#
+ #{y -ANAU$bmvAmthP7L7xwnd2}#
+ (lambda (#{maps
-ANAU$bmvAmthP7L7xwnd3}#)
(call-with-values
(lambda ()
- (#{k 3779}#
+ (#{k
-ANAU$bmvAmthP7L7xwndt}#
(cons '()
- #{maps 3789}#)))
- (lambda (#{x 3790}#
- #{maps 3791}#)
- (if (null? (car #{maps
3791}#))
+ #{maps
-ANAU$bmvAmthP7L7xwnd3}#)))
+ (lambda (#{x
-ANAU$bmvAmthP7L7xwnd4}#
+ #{maps
-ANAU$bmvAmthP7L7xwnd5}#)
+ (if (null? (car #{maps
-ANAU$bmvAmthP7L7xwnd5}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 3689}#)
+ #{src
-ANAU$bmvAmthP7L7xwncT}#)
(values
- (let ((#{map-env 3795}#
- (car #{maps
3791}#)))
+ (let ((#{map-env
-ANAU$bmvAmthP7L7xwnd9}#
+ (car #{maps
-ANAU$bmvAmthP7L7xwnd5}#)))
(list 'apply
'(primitive
append)
- (#{gen-map
3590}#
- #{x 3790}#
- #{map-env
3795}#)))
- (cdr #{maps
3791}#))))))))
- #{tmp 3781}#)
+ (#{gen-map
-ANAU$bmvAmthP7L7xwnaw}#
+ #{x
-ANAU$bmvAmthP7L7xwnd4}#
+ #{map-env
-ANAU$bmvAmthP7L7xwnd9}#)))
+ (cdr #{maps
-ANAU$bmvAmthP7L7xwnd5}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwndv}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{y 3778}#
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{y 3798}# #{maps 3799}#)
+ (#{gen-syntax
-ANAU$bmvAmthP7L7xwnat}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ #{y -ANAU$bmvAmthP7L7xwnds}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#
+ #{maps -ANAU$bmvAmthP7L7xwncW}#
+ #{ellipsis?
-ANAU$bmvAmthP7L7xwncX}#
+ #{mod -ANAU$bmvAmthP7L7xwncY}#))
+ (lambda (#{y -ANAU$bmvAmthP7L7xwneA}#
+ #{maps
-ANAU$bmvAmthP7L7xwneB}#)
(call-with-values
(lambda ()
- (#{k 3779}# #{maps 3799}#))
- (lambda (#{x 3800}#
- #{maps 3801}#)
+ (#{k -ANAU$bmvAmthP7L7xwndt}#
+ #{maps
-ANAU$bmvAmthP7L7xwneB}#))
+ (lambda (#{x
-ANAU$bmvAmthP7L7xwneC}#
+ #{maps
-ANAU$bmvAmthP7L7xwneD}#)
(values
- (if (equal? #{y 3798}# ''())
- #{x 3800}#
+ (if (equal?
+ #{y
-ANAU$bmvAmthP7L7xwneA}#
+ ''())
+ #{x
-ANAU$bmvAmthP7L7xwneC}#
(list 'append
- #{x 3800}#
- #{y 3798}#))
- #{maps 3801}#))))))))))
- (#{f 3770}#
- #{y 3769}#
- (lambda (#{maps 3773}#)
+ #{x
-ANAU$bmvAmthP7L7xwneC}#
+ #{y
-ANAU$bmvAmthP7L7xwneA}#))
+ #{maps
-ANAU$bmvAmthP7L7xwneD}#))))))))))
+ (#{f -ANAU$bmvAmthP7L7xwndk}#
+ #{y -ANAU$bmvAmthP7L7xwndj}#
+ (lambda (#{maps -ANAU$bmvAmthP7L7xwndn}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{x 3767}#
- #{r 3691}#
- (cons '() #{maps 3773}#)
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{x 3774}# #{maps 3775}#)
- (if (null? (car #{maps 3775}#))
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ #{x -ANAU$bmvAmthP7L7xwndh}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#
+ (cons '()
+ #{maps -ANAU$bmvAmthP7L7xwndn}#)
+ #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{mod -ANAU$bmvAmthP7L7xwncY}#))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwndo}#
+ #{maps -ANAU$bmvAmthP7L7xwndp}#)
+ (if (null? (car #{maps
-ANAU$bmvAmthP7L7xwndp}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 3689}#)
+ #{src -ANAU$bmvAmthP7L7xwncT}#)
(values
- (#{gen-map 3590}#
- #{x 3774}#
- (car #{maps 3775}#))
- (cdr #{maps 3775}#)))))))))
- #{tmp 3760}#)
- (let ((#{tmp 3817}#
- ($sc-dispatch #{e 3690}# '(any . any))))
- (if #{tmp 3817}#
+ (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
+ #{x -ANAU$bmvAmthP7L7xwndo}#
+ (car #{maps
-ANAU$bmvAmthP7L7xwndp}#))
+ (cdr #{maps
-ANAU$bmvAmthP7L7xwndp}#)))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwnda}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwneT}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwncU}#
+ '(any . any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwneT}#
(@apply
- (lambda (#{x 3821}# #{y 3822}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwneX}#
+ #{y -ANAU$bmvAmthP7L7xwneY}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{x 3821}#
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{x 3823}# #{maps 3824}#)
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ #{x -ANAU$bmvAmthP7L7xwneX}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#
+ #{maps -ANAU$bmvAmthP7L7xwncW}#
+ #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{mod -ANAU$bmvAmthP7L7xwncY}#))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwneZ}#
+ #{maps -ANAU$bmvAmthP7L7xwnea}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{y 3822}#
- #{r 3691}#
- #{maps 3824}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{y 3825}# #{maps 3826}#)
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ #{y -ANAU$bmvAmthP7L7xwneY}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#
+ #{maps -ANAU$bmvAmthP7L7xwnea}#
+ #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{mod -ANAU$bmvAmthP7L7xwncY}#))
+ (lambda (#{y -ANAU$bmvAmthP7L7xwneb}#
+ #{maps
-ANAU$bmvAmthP7L7xwnec}#)
(values
- (let ((#{atom-key 3831}#
- (car #{y 3825}#)))
- (if (eqv? #{atom-key 3831}#
+ (let ((#{atom-key
-ANAU$bmvAmthP7L7xwneh}#
+ (car #{y
-ANAU$bmvAmthP7L7xwneb}#)))
+ (if (eqv? #{atom-key
-ANAU$bmvAmthP7L7xwneh}#
'quote)
- (if (eq? (car #{x 3823}#)
+ (if (eq? (car #{x
-ANAU$bmvAmthP7L7xwneZ}#)
'quote)
(list 'quote
- (cons (car (cdr #{x
3823}#))
- (car (cdr #{y
3825}#))))
- (if (eq? (car (cdr #{y
3825}#))
+ (cons (car (cdr #{x
-ANAU$bmvAmthP7L7xwneZ}#))
+ (car (cdr #{y
-ANAU$bmvAmthP7L7xwneb}#))))
+ (if (eq? (car (cdr #{y
-ANAU$bmvAmthP7L7xwneb}#))
'())
- (list 'list #{x 3823}#)
+ (list 'list
+ #{x
-ANAU$bmvAmthP7L7xwneZ}#)
(list 'cons
- #{x 3823}#
- #{y 3825}#)))
- (if (eqv? #{atom-key 3831}#
+ #{x
-ANAU$bmvAmthP7L7xwneZ}#
+ #{y
-ANAU$bmvAmthP7L7xwneb}#)))
+ (if (eqv? #{atom-key
-ANAU$bmvAmthP7L7xwneh}#
'list)
(cons 'list
- (cons #{x 3823}#
- (cdr #{y 3825}#)))
+ (cons #{x
-ANAU$bmvAmthP7L7xwneZ}#
+ (cdr #{y
-ANAU$bmvAmthP7L7xwneb}#)))
(list 'cons
- #{x 3823}#
- #{y 3825}#))))
- #{maps 3826}#))))))
- #{tmp 3817}#)
- (let ((#{tmp 3860}#
+ #{x
-ANAU$bmvAmthP7L7xwneZ}#
+ #{y
-ANAU$bmvAmthP7L7xwneb}#))))
+ #{maps
-ANAU$bmvAmthP7L7xwnec}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwneT}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwne$}#
($sc-dispatch
- #{e 3690}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
'#(vector (any . each-any)))))
- (if #{tmp 3860}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwne$}#
(@apply
- (lambda (#{e1 3864}# #{e2 3865}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwnfC}#
+ #{e2 -ANAU$bmvAmthP7L7xwnfD}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- (cons #{e1 3864}# #{e2 3865}#)
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{e 3866}# #{maps 3867}#)
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnfC}#
+ #{e2 -ANAU$bmvAmthP7L7xwnfD}#)
+ #{r -ANAU$bmvAmthP7L7xwncV}#
+ #{maps -ANAU$bmvAmthP7L7xwncW}#
+ #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{mod -ANAU$bmvAmthP7L7xwncY}#))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnfE}#
+ #{maps
-ANAU$bmvAmthP7L7xwnfF}#)
(values
- (if (eq? (car #{e 3866}#) 'list)
- (cons 'vector (cdr #{e 3866}#))
- (if (eq? (car #{e 3866}#) 'quote)
+ (if (eq? (car #{e
-ANAU$bmvAmthP7L7xwnfE}#)
+ 'list)
+ (cons 'vector
+ (cdr #{e
-ANAU$bmvAmthP7L7xwnfE}#))
+ (if (eq? (car #{e
-ANAU$bmvAmthP7L7xwnfE}#)
+ 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 3866}#))))
+ (car (cdr #{e
-ANAU$bmvAmthP7L7xwnfE}#))))
(list 'list->vector
- #{e 3866}#)))
- #{maps 3867}#))))
- #{tmp 3860}#)
+ #{e
-ANAU$bmvAmthP7L7xwnfE}#)))
+ #{maps -ANAU$bmvAmthP7L7xwnfF}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwne$}#)
(values
- (list 'quote #{e 3690}#)
- #{maps 3692}#))))))))))))
- (#{gen-ref 3588}#
- (lambda (#{src 3894}#
- #{var 3895}#
- #{level 3896}#
- #{maps 3897}#)
- (if (= #{level 3896}# 0)
- (values #{var 3895}# #{maps 3897}#)
- (if (null? #{maps 3897}#)
+ (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#)
+ #{maps -ANAU$bmvAmthP7L7xwncW}#))))))))))))
+ (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
+ (lambda (#{src -ANAU$bmvAmthP7L7xwnfg}#
+ #{var -ANAU$bmvAmthP7L7xwnfh}#
+ #{level -ANAU$bmvAmthP7L7xwnfi}#
+ #{maps -ANAU$bmvAmthP7L7xwnfj}#)
+ (if (= #{level -ANAU$bmvAmthP7L7xwnfi}# 0)
+ (values
+ #{var -ANAU$bmvAmthP7L7xwnfh}#
+ #{maps -ANAU$bmvAmthP7L7xwnfj}#)
+ (if (null? #{maps -ANAU$bmvAmthP7L7xwnfj}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 3894}#)
+ #{src -ANAU$bmvAmthP7L7xwnfg}#)
(call-with-values
(lambda ()
- (#{gen-ref 3588}#
- #{src 3894}#
- #{var 3895}#
- (#{1-}# #{level 3896}#)
- (cdr #{maps 3897}#)))
- (lambda (#{outer-var 3898}# #{outer-maps 3899}#)
- (let ((#{b 3900}#
- (assq #{outer-var 3898}# (car #{maps 3897}#))))
- (if #{b 3900}#
- (values (cdr #{b 3900}#) #{maps 3897}#)
- (let ((#{inner-var 3902}#
+ (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
+ #{src -ANAU$bmvAmthP7L7xwnfg}#
+ #{var -ANAU$bmvAmthP7L7xwnfh}#
+ (#{1-}# #{level -ANAU$bmvAmthP7L7xwnfi}#)
+ (cdr #{maps -ANAU$bmvAmthP7L7xwnfj}#)))
+ (lambda (#{outer-var -ANAU$bmvAmthP7L7xwnfk}#
+ #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#)
+ (let ((#{b -ANAU$bmvAmthP7L7xwnfm}#
+ (assq #{outer-var -ANAU$bmvAmthP7L7xwnfk}#
+ (car #{maps -ANAU$bmvAmthP7L7xwnfj}#))))
+ (if #{b -ANAU$bmvAmthP7L7xwnfm}#
+ (values
+ (cdr #{b -ANAU$bmvAmthP7L7xwnfm}#)
+ #{maps -ANAU$bmvAmthP7L7xwnfj}#)
+ (let ((#{inner-var -ANAU$bmvAmthP7L7xwnfo}#
(gensym
(string-append
(symbol->string 'tmp)
" "))))
(values
- #{inner-var 3902}#
- (cons (cons (cons #{outer-var 3898}#
- #{inner-var 3902}#)
- (car #{maps 3897}#))
- #{outer-maps 3899}#)))))))))))
- (#{gen-map 3590}#
- (lambda (#{e 3916}# #{map-env 3917}#)
- (let ((#{formals 3918}# (map cdr #{map-env 3917}#))
- (#{actuals 3919}#
- (map (lambda (#{x 3921}#)
- (list 'ref (car #{x 3921}#)))
- #{map-env 3917}#)))
- (if (eq? (car #{e 3916}#) 'ref)
- (car #{actuals 3919}#)
+ #{inner-var -ANAU$bmvAmthP7L7xwnfo}#
+ (cons (cons (cons #{outer-var
-ANAU$bmvAmthP7L7xwnfk}#
+ #{inner-var
-ANAU$bmvAmthP7L7xwnfo}#)
+ (car #{maps
-ANAU$bmvAmthP7L7xwnfj}#))
+ #{outer-maps
-ANAU$bmvAmthP7L7xwnfl}#)))))))))))
+ (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnf2}#
+ #{map-env -ANAU$bmvAmthP7L7xwnf3}#)
+ (let ((#{formals -ANAU$bmvAmthP7L7xwnf4}#
+ (map cdr #{map-env -ANAU$bmvAmthP7L7xwnf3}#))
+ (#{actuals -ANAU$bmvAmthP7L7xwnf5}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwnf7}#)
+ (list 'ref (car #{x -ANAU$bmvAmthP7L7xwnf7}#)))
+ #{map-env -ANAU$bmvAmthP7L7xwnf3}#)))
+ (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnf2}#) 'ref)
+ (car #{actuals -ANAU$bmvAmthP7L7xwnf5}#)
(if (and-map
- (lambda (#{x 3922}#)
- (if (eq? (car #{x 3922}#) 'ref)
- (memq (car (cdr #{x 3922}#)) #{formals 3918}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnf8}#)
+ (if (eq? (car #{x -ANAU$bmvAmthP7L7xwnf8}#) 'ref)
+ (memq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf8}#))
+ #{formals -ANAU$bmvAmthP7L7xwnf4}#)
#f))
- (cdr #{e 3916}#))
+ (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))
(cons 'map
- (cons (list 'primitive (car #{e 3916}#))
- (map (let ((#{r 3924}#
+ (cons (list 'primitive
+ (car #{e -ANAU$bmvAmthP7L7xwnf2}#))
+ (map (let ((#{r -ANAU$bmvAmthP7L7xwnf$}#
(map cons
- #{formals 3918}#
- #{actuals 3919}#)))
- (lambda (#{x 3925}#)
- (cdr (assq (car (cdr #{x 3925}#))
- #{r 3924}#))))
- (cdr #{e 3916}#))))
+ #{formals
-ANAU$bmvAmthP7L7xwnf4}#
+ #{actuals
-ANAU$bmvAmthP7L7xwnf5}#)))
+ (lambda (#{x address@hidden)
+ (cdr (assq (car (cdr #{x
address@hidden))
+ #{r
-ANAU$bmvAmthP7L7xwnf$}#))))
+ (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))))
(cons 'map
- (cons (list 'lambda #{formals 3918}# #{e 3916}#)
- #{actuals 3919}#)))))))
- (#{regen 3594}#
- (lambda (#{x 3927}#)
- (let ((#{atom-key 3928}# (car #{x 3927}#)))
- (if (eqv? #{atom-key 3928}# 'ref)
- (let ((#{name 3938}# (car (cdr #{x 3927}#)))
- (#{var 3939}# (car (cdr #{x 3927}#))))
+ (cons (list 'lambda
+ #{formals -ANAU$bmvAmthP7L7xwnf4}#
+ #{e -ANAU$bmvAmthP7L7xwnf2}#)
+ #{actuals -ANAU$bmvAmthP7L7xwnf5}#)))))))
+ (#{regen -ANAU$bmvAmthP7L7xwna0}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwngB}#)
+ (let ((#{atom-key -ANAU$bmvAmthP7L7xwngC}#
+ (car #{x -ANAU$bmvAmthP7L7xwngB}#)))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'ref)
+ (let ((#{name -ANAU$bmvAmthP7L7xwngM}#
+ (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
+ (#{var -ANAU$bmvAmthP7L7xwngN}#
+ (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 3938}#
- #{var 3939}#))
- (if (eqv? #{atom-key 3928}# 'primitive)
- (let ((#{name 3951}# (car (cdr #{x 3927}#))))
+ #{name -ANAU$bmvAmthP7L7xwngM}#
+ #{var -ANAU$bmvAmthP7L7xwngN}#))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
+ 'primitive)
+ (let ((#{name -ANAU$bmvAmthP7L7xwngZ}#
+ (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 3951}#)
+ #{name -ANAU$bmvAmthP7L7xwngZ}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 3951}#
+ #{name -ANAU$bmvAmthP7L7xwngZ}#
#f)))
- (if (eqv? #{atom-key 3928}# 'quote)
- (let ((#{exp 3969}# (car (cdr #{x 3927}#))))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'quote)
+ (let ((#{exp -ANAU$bmvAmthP7L7xwngr}#
+ (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 3969}#))
- (if (eqv? #{atom-key 3928}# 'lambda)
- (if (list? (car (cdr #{x 3927}#)))
- (let ((#{req 3980}# (car (cdr #{x 3927}#)))
- (#{vars 3982}# (car (cdr #{x 3927}#)))
- (#{exp 3984}#
- (#{regen 3594}#
- (car (cdr (cdr #{x 3927}#))))))
- (let ((#{body 3989}#
+ #{exp -ANAU$bmvAmthP7L7xwngr}#))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
+ 'lambda)
+ (if (list? (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
+ (let ((#{req -ANAU$bmvAmthP7L7xwng2}#
+ (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
+ (#{vars -ANAU$bmvAmthP7L7xwng4}#
+ (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
+ (#{exp -ANAU$bmvAmthP7L7xwng6}#
+ (#{regen -ANAU$bmvAmthP7L7xwna0}#
+ (car (cdr (cdr #{x
-ANAU$bmvAmthP7L7xwngB}#))))))
+ (let ((#{body address@hidden
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 3980}#
+ #{req -ANAU$bmvAmthP7L7xwng2}#
#f
#f
#f
'()
- #{vars 3982}#
- #{exp 3984}#
+ #{vars -ANAU$bmvAmthP7L7xwng4}#
+ #{exp -ANAU$bmvAmthP7L7xwng6}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 3989}#)))
- (error "how did we get here" #{x 3927}#))
- (let ((#{fun-exp 4005}#
- (let ((#{name 4014}# (car #{x 3927}#)))
+ #{body address@hidden)))
+ (error "how did we get here"
+ #{x -ANAU$bmvAmthP7L7xwngB}#))
+ (let ((#{fun-exp -ANAU$bmvAmthP7L7xwnhP}#
+ (let ((#{name -ANAU$bmvAmthP7L7xwnhY}#
+ (car #{x -ANAU$bmvAmthP7L7xwngB}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 4014}#)
+ #{name -ANAU$bmvAmthP7L7xwnhY}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 4014}#
+ #{name -ANAU$bmvAmthP7L7xwnhY}#
#f))))
- (#{arg-exps 4006}#
- (map #{regen 3594}# (cdr #{x 3927}#))))
+ (#{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#
+ (map #{regen -ANAU$bmvAmthP7L7xwna0}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 4005}#
- #{arg-exps 4006}#))))))))))
- (lambda (#{e 3595}#
- #{r 3596}#
- #{w 3597}#
- #{s 3598}#
- #{mod 3599}#)
- (let ((#{e 3600}#
- (#{wrap 2771}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwnhP}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#))))))))))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwna1}#
+ #{r -ANAU$bmvAmthP7L7xwna2}#
+ #{w -ANAU$bmvAmthP7L7xwna3}#
+ #{s -ANAU$bmvAmthP7L7xwna4}#
+ #{mod -ANAU$bmvAmthP7L7xwna5}#)
+ (let ((#{e -ANAU$bmvAmthP7L7xwna6}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 3595}#) #{s 3598}# #f)
- (set-source-properties! #{e 3595}# #{s 3598}#))
- #{e 3595}#)
- #{w 3597}#
- #{mod 3599}#)))
- (let ((#{tmp 3602}# ($sc-dispatch #{e 3600}# '(_ any))))
- (if #{tmp 3602}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwna1}#)
+ #{s -ANAU$bmvAmthP7L7xwna4}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwna1}#
+ #{s -ANAU$bmvAmthP7L7xwna4}#))
+ #{e -ANAU$bmvAmthP7L7xwna1}#)
+ #{w -ANAU$bmvAmthP7L7xwna3}#
+ #{mod -ANAU$bmvAmthP7L7xwna5}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwna8}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwna6}#
+ '(_ any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwna8}#
(@apply
- (lambda (#{x 3627}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnbV}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{e 3600}#
- #{x 3627}#
- #{r 3596}#
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{e -ANAU$bmvAmthP7L7xwna6}#
+ #{x -ANAU$bmvAmthP7L7xwnbV}#
+ #{r -ANAU$bmvAmthP7L7xwna2}#
'()
- #{ellipsis? 2786}#
- #{mod 3599}#))
- (lambda (#{e 3681}# #{maps 3682}#)
- (#{regen 3594}# #{e 3681}#))))
- #{tmp 3602}#)
+ #{ellipsis? -ANAU$bmvAmthP7L7xwnOM}#
+ #{mod -ANAU$bmvAmthP7L7xwna5}#))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwncL}#
+ #{maps -ANAU$bmvAmthP7L7xwncM}#)
+ (#{regen -ANAU$bmvAmthP7L7xwna0}#
+ #{e -ANAU$bmvAmthP7L7xwncL}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwna8}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 3600}#)))))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwna6}#)))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'lambda
- (lambda (#{e 4203}#
- #{r 4204}#
- #{w 4205}#
- #{s 4206}#
- #{mod 4207}#)
- (let ((#{tmp 4209}#
- ($sc-dispatch #{e 4203}# '(_ any any . each-any))))
- (if #{tmp 4209}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnkV}#
+ #{r -ANAU$bmvAmthP7L7xwnkW}#
+ #{w -ANAU$bmvAmthP7L7xwnkX}#
+ #{s -ANAU$bmvAmthP7L7xwnkY}#
+ #{mod -ANAU$bmvAmthP7L7xwnkZ}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnkb}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwnkV}#
+ '(_ any any . each-any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwnkb}#
(@apply
- (lambda (#{args 4213}# #{e1 4214}# #{e2 4215}#)
+ (lambda (#{args -ANAU$bmvAmthP7L7xwnkf}#
+ #{e1 -ANAU$bmvAmthP7L7xwnkg}#
+ #{e2 -ANAU$bmvAmthP7L7xwnkh}#)
(call-with-values
(lambda ()
- (#{lambda-formals 2787}# #{args 4213}#))
- (lambda (#{req 4218}#
- #{opt 4219}#
- #{rest 4220}#
- #{kw 4221}#)
+ (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
+ #{args -ANAU$bmvAmthP7L7xwnkf}#))
+ (lambda (#{req -ANAU$bmvAmthP7L7xwnkk}#
+ #{opt -ANAU$bmvAmthP7L7xwnkl}#
+ #{rest -ANAU$bmvAmthP7L7xwnkm}#
+ #{kw -ANAU$bmvAmthP7L7xwnkn}#)
(letrec*
- ((#{lp 4222}#
- (lambda (#{body 4225}# #{meta 4226}#)
- (let ((#{tmp 4228}#
+ ((#{lp -ANAU$bmvAmthP7L7xwnko}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xwnkr}#
+ #{meta -ANAU$bmvAmthP7L7xwnks}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnku}#
($sc-dispatch
- #{body 4225}#
+ #{body -ANAU$bmvAmthP7L7xwnkr}#
'(any any . each-any))))
- (if (if #{tmp 4228}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnku}#
(@apply
- (lambda (#{docstring 4232}#
- #{e1 4233}#
- #{e2 4234}#)
+ (lambda (#{docstring
-ANAU$bmvAmthP7L7xwnky}#
+ #{e1 -ANAU$bmvAmthP7L7xwnkz}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk0}#)
(string?
- (syntax->datum #{docstring 4232}#)))
- #{tmp 4228}#)
+ (syntax->datum
+ #{docstring
-ANAU$bmvAmthP7L7xwnky}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwnku}#)
#f)
(@apply
- (lambda (#{docstring 4235}#
- #{e1 4236}#
- #{e2 4237}#)
- (#{lp 4222}#
- (cons #{e1 4236}# #{e2 4237}#)
+ (lambda (#{docstring
-ANAU$bmvAmthP7L7xwnk1}#
+ #{e1 -ANAU$bmvAmthP7L7xwnk2}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
+ (#{lp -ANAU$bmvAmthP7L7xwnko}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnk2}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
(append
- #{meta 4226}#
+ #{meta -ANAU$bmvAmthP7L7xwnks}#
(list (cons 'documentation
(syntax->datum
- #{docstring 4235}#))))))
- #{tmp 4228}#)
- (let ((#{tmp 4238}#
+ #{docstring
-ANAU$bmvAmthP7L7xwnk1}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwnku}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnk4}#
($sc-dispatch
- #{body 4225}#
+ #{body -ANAU$bmvAmthP7L7xwnkr}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 4238}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnk4}#
(@apply
- (lambda (#{k 4242}#
- #{v 4243}#
- #{e1 4244}#
- #{e2 4245}#)
- (#{lp 4222}#
- (cons #{e1 4244}# #{e2 4245}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwnk8}#
+ #{v -ANAU$bmvAmthP7L7xwnk9}#
+ #{e1 -ANAU$bmvAmthP7L7xwnk$}#
+ #{e2 address@hidden)
+ (#{lp -ANAU$bmvAmthP7L7xwnko}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnk$}#
+ #{e2 address@hidden)
(append
- #{meta 4226}#
+ #{meta -ANAU$bmvAmthP7L7xwnks}#
(syntax->datum
(map cons
- #{k 4242}#
- #{v 4243}#)))))
- #{tmp 4238}#)
- (#{expand-simple-lambda 2788}#
- #{e 4203}#
- #{r 4204}#
- #{w 4205}#
- #{s 4206}#
- #{mod 4207}#
- #{req 4218}#
- #{rest 4220}#
- #{meta 4226}#
- #{body 4225}#))))))))
- (#{lp 4222}# (cons #{e1 4214}# #{e2 4215}#) '())))))
- #{tmp 4209}#)
+ #{k
-ANAU$bmvAmthP7L7xwnk8}#
+ #{v
-ANAU$bmvAmthP7L7xwnk9}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwnk4}#)
+ (#{expand-simple-lambda
-ANAU$bmvAmthP7L7xwnOO}#
+ #{e -ANAU$bmvAmthP7L7xwnkV}#
+ #{r -ANAU$bmvAmthP7L7xwnkW}#
+ #{w -ANAU$bmvAmthP7L7xwnkX}#
+ #{s -ANAU$bmvAmthP7L7xwnkY}#
+ #{mod -ANAU$bmvAmthP7L7xwnkZ}#
+ #{req -ANAU$bmvAmthP7L7xwnkk}#
+ #{rest -ANAU$bmvAmthP7L7xwnkm}#
+ #{meta -ANAU$bmvAmthP7L7xwnks}#
+ #{body -ANAU$bmvAmthP7L7xwnkr}#))))))))
+ (#{lp -ANAU$bmvAmthP7L7xwnko}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnkg}#
+ #{e2 -ANAU$bmvAmthP7L7xwnkh}#)
+ '())))))
+ #{tmp -ANAU$bmvAmthP7L7xwnkb}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 4203}#)))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwnkV}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'lambda*
- (lambda (#{e 4530}#
- #{r 4531}#
- #{w 4532}#
- #{s 4533}#
- #{mod 4534}#)
- (let ((#{tmp 4536}#
- ($sc-dispatch #{e 4530}# '(_ any any . each-any))))
- (if #{tmp 4536}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnpc}#
+ #{r -ANAU$bmvAmthP7L7xwnpd}#
+ #{w -ANAU$bmvAmthP7L7xwnpe}#
+ #{s -ANAU$bmvAmthP7L7xwnpf}#
+ #{mod -ANAU$bmvAmthP7L7xwnpg}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnpi}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwnpc}#
+ '(_ any any . each-any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwnpi}#
(@apply
- (lambda (#{args 4540}# #{e1 4541}# #{e2 4542}#)
+ (lambda (#{args -ANAU$bmvAmthP7L7xwnpm}#
+ #{e1 -ANAU$bmvAmthP7L7xwnpn}#
+ #{e2 -ANAU$bmvAmthP7L7xwnpo}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 4530}#
- #{r 4531}#
- #{w 4532}#
- #{s 4533}#
- #{mod 4534}#
- #{lambda*-formals 2789}#
- (list (cons #{args 4540}#
- (cons #{e1 4541}# #{e2 4542}#)))))
- (lambda (#{meta 4545}# #{lcase 4546}#)
+ (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
+ #{e -ANAU$bmvAmthP7L7xwnpc}#
+ #{r -ANAU$bmvAmthP7L7xwnpd}#
+ #{w -ANAU$bmvAmthP7L7xwnpe}#
+ #{s -ANAU$bmvAmthP7L7xwnpf}#
+ #{mod -ANAU$bmvAmthP7L7xwnpg}#
+ #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
+ (list (cons #{args -ANAU$bmvAmthP7L7xwnpm}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnpn}#
+ #{e2 -ANAU$bmvAmthP7L7xwnpo}#)))))
+ (lambda (#{meta -ANAU$bmvAmthP7L7xwnpr}#
+ #{lcase -ANAU$bmvAmthP7L7xwnps}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 4533}#
- #{meta 4545}#
- #{lcase 4546}#))))
- #{tmp 4536}#)
+ #{s -ANAU$bmvAmthP7L7xwnpf}#
+ #{meta -ANAU$bmvAmthP7L7xwnpr}#
+ #{lcase -ANAU$bmvAmthP7L7xwnps}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwnpi}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 4530}#)))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwnpc}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'case-lambda
- (lambda (#{e 4716}#
- #{r 4717}#
- #{w 4718}#
- #{s 4719}#
- #{mod 4720}#)
- (let ((#{tmp 4722}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnsW}#
+ #{r -ANAU$bmvAmthP7L7xwnsX}#
+ #{w -ANAU$bmvAmthP7L7xwnsY}#
+ #{s -ANAU$bmvAmthP7L7xwnsZ}#
+ #{mod -ANAU$bmvAmthP7L7xwnsa}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnsc}#
($sc-dispatch
- #{e 4716}#
+ #{e -ANAU$bmvAmthP7L7xwnsW}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 4722}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnsc}#
(@apply
- (lambda (#{args 4726}#
- #{e1 4727}#
- #{e2 4728}#
- #{args* 4729}#
- #{e1* 4730}#
- #{e2* 4731}#)
+ (lambda (#{args -ANAU$bmvAmthP7L7xwnsg}#
+ #{e1 -ANAU$bmvAmthP7L7xwnsh}#
+ #{e2 -ANAU$bmvAmthP7L7xwnsi}#
+ #{args* -ANAU$bmvAmthP7L7xwnsj}#
+ #{e1* -ANAU$bmvAmthP7L7xwnsk}#
+ #{e2* -ANAU$bmvAmthP7L7xwnsl}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 4716}#
- #{r 4717}#
- #{w 4718}#
- #{s 4719}#
- #{mod 4720}#
- #{lambda-formals 2787}#
- (cons (cons #{args 4726}#
- (cons #{e1 4727}# #{e2 4728}#))
- (map (lambda (#{tmp 2034 4734}#
- #{tmp 2033 4735}#
- #{tmp 2032 4736}#)
- (cons #{tmp 2032 4736}#
- (cons #{tmp 2033 4735}#
- #{tmp 2034 4734}#)))
- #{e2* 4731}#
- #{e1* 4730}#
- #{args* 4729}#))))
- (lambda (#{meta 4737}# #{lcase 4738}#)
+ (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
+ #{e -ANAU$bmvAmthP7L7xwnsW}#
+ #{r -ANAU$bmvAmthP7L7xwnsX}#
+ #{w -ANAU$bmvAmthP7L7xwnsY}#
+ #{s -ANAU$bmvAmthP7L7xwnsZ}#
+ #{mod -ANAU$bmvAmthP7L7xwnsa}#
+ #{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
+ (cons (cons #{args -ANAU$bmvAmthP7L7xwnsg}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnsh}#
+ #{e2 -ANAU$bmvAmthP7L7xwnsi}#))
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCS
-ANAU$bmvAmthP7L7xwnso}#
+ #{tmp -ANAU$bmvAmthP7L7xwnCR
-ANAU$bmvAmthP7L7xwnsp}#
+ #{tmp -ANAU$bmvAmthP7L7xwnCQ
-ANAU$bmvAmthP7L7xwnsq}#)
+ (cons #{tmp -ANAU$bmvAmthP7L7xwnCQ
-ANAU$bmvAmthP7L7xwnsq}#
+ (cons #{tmp -ANAU$bmvAmthP7L7xwnCR
-ANAU$bmvAmthP7L7xwnsp}#
+ #{tmp -ANAU$bmvAmthP7L7xwnCS
-ANAU$bmvAmthP7L7xwnso}#)))
+ #{e2* -ANAU$bmvAmthP7L7xwnsl}#
+ #{e1* -ANAU$bmvAmthP7L7xwnsk}#
+ #{args* -ANAU$bmvAmthP7L7xwnsj}#))))
+ (lambda (#{meta -ANAU$bmvAmthP7L7xwnsr}#
+ #{lcase -ANAU$bmvAmthP7L7xwnss}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 4719}#
- #{meta 4737}#
- #{lcase 4738}#))))
- #{tmp 4722}#)
+ #{s -ANAU$bmvAmthP7L7xwnsZ}#
+ #{meta -ANAU$bmvAmthP7L7xwnsr}#
+ #{lcase -ANAU$bmvAmthP7L7xwnss}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwnsc}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 4716}#)))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwnsW}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'case-lambda*
- (lambda (#{e 4900}#
- #{r 4901}#
- #{w 4902}#
- #{s 4903}#
- #{mod 4904}#)
- (let ((#{tmp 4906}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnvO}#
+ #{r -ANAU$bmvAmthP7L7xwnvP}#
+ #{w -ANAU$bmvAmthP7L7xwnvQ}#
+ #{s -ANAU$bmvAmthP7L7xwnvR}#
+ #{mod -ANAU$bmvAmthP7L7xwnvS}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnvU}#
($sc-dispatch
- #{e 4900}#
+ #{e -ANAU$bmvAmthP7L7xwnvO}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 4906}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnvU}#
(@apply
- (lambda (#{args 4910}#
- #{e1 4911}#
- #{e2 4912}#
- #{args* 4913}#
- #{e1* 4914}#
- #{e2* 4915}#)
+ (lambda (#{args -ANAU$bmvAmthP7L7xwnvY}#
+ #{e1 -ANAU$bmvAmthP7L7xwnvZ}#
+ #{e2 -ANAU$bmvAmthP7L7xwnva}#
+ #{args* -ANAU$bmvAmthP7L7xwnvb}#
+ #{e1* -ANAU$bmvAmthP7L7xwnvc}#
+ #{e2* -ANAU$bmvAmthP7L7xwnvd}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 4900}#
- #{r 4901}#
- #{w 4902}#
- #{s 4903}#
- #{mod 4904}#
- #{lambda*-formals 2789}#
- (cons (cons #{args 4910}#
- (cons #{e1 4911}# #{e2 4912}#))
- (map (lambda (#{tmp 2055 4918}#
- #{tmp 2054 4919}#
- #{tmp 2053 4920}#)
- (cons #{tmp 2053 4920}#
- (cons #{tmp 2054 4919}#
- #{tmp 2055 4918}#)))
- #{e2* 4915}#
- #{e1* 4914}#
- #{args* 4913}#))))
- (lambda (#{meta 4921}# #{lcase 4922}#)
+ (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
+ #{e -ANAU$bmvAmthP7L7xwnvO}#
+ #{r -ANAU$bmvAmthP7L7xwnvP}#
+ #{w -ANAU$bmvAmthP7L7xwnvQ}#
+ #{s -ANAU$bmvAmthP7L7xwnvR}#
+ #{mod -ANAU$bmvAmthP7L7xwnvS}#
+ #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
+ (cons (cons #{args -ANAU$bmvAmthP7L7xwnvY}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnvZ}#
+ #{e2 -ANAU$bmvAmthP7L7xwnva}#))
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCn
-ANAU$bmvAmthP7L7xwnvg}#
+ #{tmp -ANAU$bmvAmthP7L7xwnCm
-ANAU$bmvAmthP7L7xwnvh}#
+ #{tmp -ANAU$bmvAmthP7L7xwnCl
-ANAU$bmvAmthP7L7xwnvi}#)
+ (cons #{tmp -ANAU$bmvAmthP7L7xwnCl
-ANAU$bmvAmthP7L7xwnvi}#
+ (cons #{tmp -ANAU$bmvAmthP7L7xwnCm
-ANAU$bmvAmthP7L7xwnvh}#
+ #{tmp -ANAU$bmvAmthP7L7xwnCn
-ANAU$bmvAmthP7L7xwnvg}#)))
+ #{e2* -ANAU$bmvAmthP7L7xwnvd}#
+ #{e1* -ANAU$bmvAmthP7L7xwnvc}#
+ #{args* -ANAU$bmvAmthP7L7xwnvb}#))))
+ (lambda (#{meta -ANAU$bmvAmthP7L7xwnvj}#
+ #{lcase -ANAU$bmvAmthP7L7xwnvk}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 4903}#
- #{meta 4921}#
- #{lcase 4922}#))))
- #{tmp 4906}#)
+ #{s -ANAU$bmvAmthP7L7xwnvR}#
+ #{meta -ANAU$bmvAmthP7L7xwnvj}#
+ #{lcase -ANAU$bmvAmthP7L7xwnvk}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwnvU}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 4900}#)))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwnvO}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'let
(letrec*
- ((#{expand-let 5113}#
- (lambda (#{e 5262}#
- #{r 5263}#
- #{w 5264}#
- #{s 5265}#
- #{mod 5266}#
- #{constructor 5267}#
- #{ids 5268}#
- #{vals 5269}#
- #{exps 5270}#)
- (if (not (#{valid-bound-ids? 2768}# #{ids 5268}#))
+ ((#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwn04}#
+ #{r -ANAU$bmvAmthP7L7xwn05}#
+ #{w -ANAU$bmvAmthP7L7xwn06}#
+ #{s -ANAU$bmvAmthP7L7xwn07}#
+ #{mod -ANAU$bmvAmthP7L7xwn08}#
+ #{constructor -ANAU$bmvAmthP7L7xwn09}#
+ #{ids -ANAU$bmvAmthP7L7xwn0$}#
+ #{vals address@hidden
+ #{exps -ANAU$bmvAmthP7L7xwn1A}#)
+ (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{ids -ANAU$bmvAmthP7L7xwn0$}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 5262}#)
- (let ((#{labels 5348}#
- (#{gen-labels 2746}# #{ids 5268}#))
- (#{new-vars 5349}#
- (map #{gen-var 2792}# #{ids 5268}#)))
- (let ((#{nw 5350}#
- (#{make-binding-wrap 2757}#
- #{ids 5268}#
- #{labels 5348}#
- #{w 5264}#))
- (#{nr 5351}#
- (#{extend-var-env 2738}#
- #{labels 5348}#
- #{new-vars 5349}#
- #{r 5263}#)))
- (#{constructor 5267}#
- #{s 5265}#
- (map syntax->datum #{ids 5268}#)
- #{new-vars 5349}#
- (map (lambda (#{x 5368}#)
- (#{expand 2778}#
- #{x 5368}#
- #{r 5263}#
- #{w 5264}#
- #{mod 5266}#))
- #{vals 5269}#)
- (#{expand-body 2782}#
- #{exps 5270}#
- (#{source-wrap 2772}#
- #{e 5262}#
- #{nw 5350}#
- #{s 5265}#
- #{mod 5266}#)
- #{nr 5351}#
- #{nw 5350}#
- #{mod 5266}#))))))))
- (lambda (#{e 5114}#
- #{r 5115}#
- #{w 5116}#
- #{s 5117}#
- #{mod 5118}#)
- (let ((#{tmp 5120}#
+ #{e -ANAU$bmvAmthP7L7xwn04}#)
+ (let ((#{labels -ANAU$bmvAmthP7L7xwn2O}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{ids -ANAU$bmvAmthP7L7xwn0$}#))
+ (#{new-vars -ANAU$bmvAmthP7L7xwn2P}#
+ (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
+ #{ids -ANAU$bmvAmthP7L7xwn0$}#)))
+ (let ((#{nw -ANAU$bmvAmthP7L7xwn2Q}#
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{ids -ANAU$bmvAmthP7L7xwn0$}#
+ #{labels -ANAU$bmvAmthP7L7xwn2O}#
+ #{w -ANAU$bmvAmthP7L7xwn06}#))
+ (#{nr -ANAU$bmvAmthP7L7xwn2R}#
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ #{labels -ANAU$bmvAmthP7L7xwn2O}#
+ #{new-vars -ANAU$bmvAmthP7L7xwn2P}#
+ #{r -ANAU$bmvAmthP7L7xwn05}#)))
+ (#{constructor -ANAU$bmvAmthP7L7xwn09}#
+ #{s -ANAU$bmvAmthP7L7xwn07}#
+ (map syntax->datum
+ #{ids -ANAU$bmvAmthP7L7xwn0$}#)
+ #{new-vars -ANAU$bmvAmthP7L7xwn2P}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwn2i}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwn2i}#
+ #{r -ANAU$bmvAmthP7L7xwn05}#
+ #{w -ANAU$bmvAmthP7L7xwn06}#
+ #{mod -ANAU$bmvAmthP7L7xwn08}#))
+ #{vals address@hidden)
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ #{exps -ANAU$bmvAmthP7L7xwn1A}#
+ (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}#
+ #{e -ANAU$bmvAmthP7L7xwn04}#
+ #{nw -ANAU$bmvAmthP7L7xwn2Q}#
+ #{s -ANAU$bmvAmthP7L7xwn07}#
+ #{mod -ANAU$bmvAmthP7L7xwn08}#)
+ #{nr -ANAU$bmvAmthP7L7xwn2R}#
+ #{nw -ANAU$bmvAmthP7L7xwn2Q}#
+ #{mod -ANAU$bmvAmthP7L7xwn08}#))))))))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnyk}#
+ #{r -ANAU$bmvAmthP7L7xwnyl}#
+ #{w -ANAU$bmvAmthP7L7xwnym}#
+ #{s -ANAU$bmvAmthP7L7xwnyn}#
+ #{mod -ANAU$bmvAmthP7L7xwnyo}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnyq}#
($sc-dispatch
- #{e 5114}#
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 5120}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnyq}#
(@apply
- (lambda (#{id 5124}#
- #{val 5125}#
- #{e1 5126}#
- #{e2 5127}#)
- (and-map #{id? 2743}# #{id 5124}#))
- #{tmp 5120}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwnyu}#
+ #{val -ANAU$bmvAmthP7L7xwnyv}#
+ #{e1 -ANAU$bmvAmthP7L7xwnyw}#
+ #{e2 -ANAU$bmvAmthP7L7xwnyx}#)
+ (and-map
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwnyu}#))
+ #{tmp -ANAU$bmvAmthP7L7xwnyq}#)
#f)
(@apply
- (lambda (#{id 5143}#
- #{val 5144}#
- #{e1 5145}#
- #{e2 5146}#)
- (#{expand-let 5113}#
- #{e 5114}#
- #{r 5115}#
- #{w 5116}#
- #{s 5117}#
- #{mod 5118}#
- #{build-let 2725}#
- #{id 5143}#
- #{val 5144}#
- (cons #{e1 5145}# #{e2 5146}#)))
- #{tmp 5120}#)
- (let ((#{tmp 5176}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwnzB}#
+ #{val -ANAU$bmvAmthP7L7xwnzC}#
+ #{e1 -ANAU$bmvAmthP7L7xwnzD}#
+ #{e2 -ANAU$bmvAmthP7L7xwnzE}#)
+ (#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
+ #{r -ANAU$bmvAmthP7L7xwnyl}#
+ #{w -ANAU$bmvAmthP7L7xwnym}#
+ #{s -ANAU$bmvAmthP7L7xwnyn}#
+ #{mod -ANAU$bmvAmthP7L7xwnyo}#
+ #{build-let -ANAU$bmvAmthP7L7xwnNO}#
+ #{id -ANAU$bmvAmthP7L7xwnzB}#
+ #{val -ANAU$bmvAmthP7L7xwnzC}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnzD}#
+ #{e2 -ANAU$bmvAmthP7L7xwnzE}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwnyq}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnzi}#
($sc-dispatch
- #{e 5114}#
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 5176}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnzi}#
(@apply
- (lambda (#{f 5180}#
- #{id 5181}#
- #{val 5182}#
- #{e1 5183}#
- #{e2 5184}#)
- (if (if (symbol? #{f 5180}#)
+ (lambda (#{f -ANAU$bmvAmthP7L7xwnzm}#
+ #{id -ANAU$bmvAmthP7L7xwnzn}#
+ #{val -ANAU$bmvAmthP7L7xwnzo}#
+ #{e1 -ANAU$bmvAmthP7L7xwnzp}#
+ #{e2 -ANAU$bmvAmthP7L7xwnzq}#)
+ (if (if (symbol? #{f -ANAU$bmvAmthP7L7xwnzm}#)
#t
- (if (if (vector? #{f 5180}#)
- (if (= (vector-length #{f 5180}#) 4)
- (eq? (vector-ref #{f 5180}# 0)
+ (if (if (vector?
+ #{f -ANAU$bmvAmthP7L7xwnzm}#)
+ (if (= (vector-length
+ #{f -ANAU$bmvAmthP7L7xwnzm}#)
+ 4)
+ (eq? (vector-ref
+ #{f -ANAU$bmvAmthP7L7xwnzm}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 5180}# 1))
+ (symbol?
+ (vector-ref
+ #{f -ANAU$bmvAmthP7L7xwnzm}#
+ 1))
#f))
- (and-map #{id? 2743}# #{id 5181}#)
+ (and-map
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwnzn}#)
#f))
- #{tmp 5176}#)
+ #{tmp -ANAU$bmvAmthP7L7xwnzi}#)
#f)
(@apply
- (lambda (#{f 5226}#
- #{id 5227}#
- #{val 5228}#
- #{e1 5229}#
- #{e2 5230}#)
- (#{expand-let 5113}#
- #{e 5114}#
- #{r 5115}#
- #{w 5116}#
- #{s 5117}#
- #{mod 5118}#
- #{build-named-let 2726}#
- (cons #{f 5226}# #{id 5227}#)
- #{val 5228}#
- (cons #{e1 5229}# #{e2 5230}#)))
- #{tmp 5176}#)
+ (lambda (#{f -ANAU$bmvAmthP7L7xwn0U}#
+ #{id -ANAU$bmvAmthP7L7xwn0V}#
+ #{val -ANAU$bmvAmthP7L7xwn0W}#
+ #{e1 -ANAU$bmvAmthP7L7xwn0X}#
+ #{e2 -ANAU$bmvAmthP7L7xwn0Y}#)
+ (#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
+ #{r -ANAU$bmvAmthP7L7xwnyl}#
+ #{w -ANAU$bmvAmthP7L7xwnym}#
+ #{s -ANAU$bmvAmthP7L7xwnyn}#
+ #{mod -ANAU$bmvAmthP7L7xwnyo}#
+ #{build-named-let -ANAU$bmvAmthP7L7xwnNP}#
+ (cons #{f -ANAU$bmvAmthP7L7xwn0U}#
+ #{id -ANAU$bmvAmthP7L7xwn0V}#)
+ #{val -ANAU$bmvAmthP7L7xwn0W}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwn0X}#
+ #{e2 -ANAU$bmvAmthP7L7xwn0Y}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwnzi}#)
(syntax-violation
'let
"bad let"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 5114}#) #{s 5117}# #f)
- (set-source-properties! #{e 5114}# #{s 5117}#))
- #{e 5114}#)
- #{w 5116}#
- #{mod 5118}#)))))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnyk}#)
+ #{s -ANAU$bmvAmthP7L7xwnyn}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
+ #{s -ANAU$bmvAmthP7L7xwnyn}#))
+ #{e -ANAU$bmvAmthP7L7xwnyk}#)
+ #{w -ANAU$bmvAmthP7L7xwnym}#
+ #{mod -ANAU$bmvAmthP7L7xwnyo}#)))))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'letrec
- (lambda (#{e 5766}#
- #{r 5767}#
- #{w 5768}#
- #{s 5769}#
- #{mod 5770}#)
- (let ((#{tmp 5772}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwn8w}#
+ #{r -ANAU$bmvAmthP7L7xwn8x}#
+ #{w -ANAU$bmvAmthP7L7xwn8y}#
+ #{s -ANAU$bmvAmthP7L7xwn8z}#
+ #{mod -ANAU$bmvAmthP7L7xwn80}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwn82}#
($sc-dispatch
- #{e 5766}#
+ #{e -ANAU$bmvAmthP7L7xwn8w}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 5772}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwn82}#
(@apply
- (lambda (#{id 5776}#
- #{val 5777}#
- #{e1 5778}#
- #{e2 5779}#)
- (and-map #{id? 2743}# #{id 5776}#))
- #{tmp 5772}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwn86}#
+ #{val -ANAU$bmvAmthP7L7xwn87}#
+ #{e1 -ANAU$bmvAmthP7L7xwn88}#
+ #{e2 -ANAU$bmvAmthP7L7xwn89}#)
+ (and-map
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwn86}#))
+ #{tmp -ANAU$bmvAmthP7L7xwn82}#)
#f)
(@apply
- (lambda (#{id 5795}#
- #{val 5796}#
- #{e1 5797}#
- #{e2 5798}#)
- (if (not (#{valid-bound-ids? 2768}# #{id 5795}#))
+ (lambda (#{id -ANAU$bmvAmthP7L7xwn9N}#
+ #{val -ANAU$bmvAmthP7L7xwn9O}#
+ #{e1 -ANAU$bmvAmthP7L7xwn9P}#
+ #{e2 -ANAU$bmvAmthP7L7xwn9Q}#)
+ (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{id -ANAU$bmvAmthP7L7xwn9N}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 5766}#)
- (let ((#{labels 5888}#
- (#{gen-labels 2746}# #{id 5795}#))
- (#{new-vars 5889}#
- (map #{gen-var 2792}# #{id 5795}#)))
- (let ((#{w 5890}#
- (#{make-binding-wrap 2757}#
- #{id 5795}#
- #{labels 5888}#
- #{w 5768}#))
- (#{r 5891}#
- (#{extend-var-env 2738}#
- #{labels 5888}#
- #{new-vars 5889}#
- #{r 5767}#)))
- (#{build-letrec 2727}#
- #{s 5769}#
+ #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ (let ((#{labels -ANAU$bmvAmthP7L7xwn$q}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{id -ANAU$bmvAmthP7L7xwn9N}#))
+ (#{new-vars -ANAU$bmvAmthP7L7xwn$r}#
+ (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
+ #{id -ANAU$bmvAmthP7L7xwn9N}#)))
+ (let ((#{w -ANAU$bmvAmthP7L7xwn$s}#
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{id -ANAU$bmvAmthP7L7xwn9N}#
+ #{labels -ANAU$bmvAmthP7L7xwn$q}#
+ #{w -ANAU$bmvAmthP7L7xwn8y}#))
+ (#{r -ANAU$bmvAmthP7L7xwn$t}#
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ #{labels -ANAU$bmvAmthP7L7xwn$q}#
+ #{new-vars -ANAU$bmvAmthP7L7xwn$r}#
+ #{r -ANAU$bmvAmthP7L7xwn8x}#)))
+ (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
+ #{s -ANAU$bmvAmthP7L7xwn8z}#
#f
- (map syntax->datum #{id 5795}#)
- #{new-vars 5889}#
- (map (lambda (#{x 5972}#)
- (#{expand 2778}#
- #{x 5972}#
- #{r 5891}#
- #{w 5890}#
- #{mod 5770}#))
- #{val 5796}#)
- (#{expand-body 2782}#
- (cons #{e1 5797}# #{e2 5798}#)
- (#{wrap 2771}#
+ (map syntax->datum #{id -ANAU$bmvAmthP7L7xwn9N}#)
+ #{new-vars -ANAU$bmvAmthP7L7xwn$r}#
+ (map (lambda (#{x address@hidden)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x address@hidden
+ #{r -ANAU$bmvAmthP7L7xwn$t}#
+ #{w -ANAU$bmvAmthP7L7xwn$s}#
+ #{mod -ANAU$bmvAmthP7L7xwn80}#))
+ #{val -ANAU$bmvAmthP7L7xwn9O}#)
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwn9P}#
+ #{e2 -ANAU$bmvAmthP7L7xwn9Q}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 5766}#) #{s 5769}# #f)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ #{s -ANAU$bmvAmthP7L7xwn8z}#
+ #f)
(set-source-properties!
- #{e 5766}#
- #{s 5769}#))
- #{e 5766}#)
- #{w 5890}#
- #{mod 5770}#)
- #{r 5891}#
- #{w 5890}#
- #{mod 5770}#))))))
- #{tmp 5772}#)
+ #{e -ANAU$bmvAmthP7L7xwn8w}#
+ #{s -ANAU$bmvAmthP7L7xwn8z}#))
+ #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ #{w -ANAU$bmvAmthP7L7xwn$s}#
+ #{mod -ANAU$bmvAmthP7L7xwn80}#)
+ #{r -ANAU$bmvAmthP7L7xwn$t}#
+ #{w -ANAU$bmvAmthP7L7xwn$s}#
+ #{mod -ANAU$bmvAmthP7L7xwn80}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwn82}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 5766}#) #{s 5769}# #f)
- (set-source-properties! #{e 5766}# #{s 5769}#))
- #{e 5766}#)
- #{w 5768}#
- #{mod 5770}#))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ #{s -ANAU$bmvAmthP7L7xwn8z}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwn8w}#
+ #{s -ANAU$bmvAmthP7L7xwn8z}#))
+ #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ #{w -ANAU$bmvAmthP7L7xwn8y}#
+ #{mod -ANAU$bmvAmthP7L7xwn80}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'letrec*
- (lambda (#{e 6359}#
- #{r 6360}#
- #{w 6361}#
- #{s 6362}#
- #{mod 6363}#)
- (let ((#{tmp 6365}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoGB}#
+ #{r -ANAU$bmvAmthP7L7xwoGC}#
+ #{w -ANAU$bmvAmthP7L7xwoGD}#
+ #{s -ANAU$bmvAmthP7L7xwoGE}#
+ #{mod -ANAU$bmvAmthP7L7xwoGF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoGH}#
($sc-dispatch
- #{e 6359}#
+ #{e -ANAU$bmvAmthP7L7xwoGB}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 6365}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwoGH}#
(@apply
- (lambda (#{id 6369}#
- #{val 6370}#
- #{e1 6371}#
- #{e2 6372}#)
- (and-map #{id? 2743}# #{id 6369}#))
- #{tmp 6365}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwoGL}#
+ #{val -ANAU$bmvAmthP7L7xwoGM}#
+ #{e1 -ANAU$bmvAmthP7L7xwoGN}#
+ #{e2 -ANAU$bmvAmthP7L7xwoGO}#)
+ (and-map
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwoGL}#))
+ #{tmp -ANAU$bmvAmthP7L7xwoGH}#)
#f)
(@apply
- (lambda (#{id 6388}#
- #{val 6389}#
- #{e1 6390}#
- #{e2 6391}#)
- (if (not (#{valid-bound-ids? 2768}# #{id 6388}#))
+ (lambda (#{id -ANAU$bmvAmthP7L7xwoGe}#
+ #{val -ANAU$bmvAmthP7L7xwoGf}#
+ #{e1 -ANAU$bmvAmthP7L7xwoGg}#
+ #{e2 -ANAU$bmvAmthP7L7xwoGh}#)
+ (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{id -ANAU$bmvAmthP7L7xwoGe}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 6359}#)
- (let ((#{labels 6481}#
- (#{gen-labels 2746}# #{id 6388}#))
- (#{new-vars 6482}#
- (map #{gen-var 2792}# #{id 6388}#)))
- (let ((#{w 6483}#
- (#{make-binding-wrap 2757}#
- #{id 6388}#
- #{labels 6481}#
- #{w 6361}#))
- (#{r 6484}#
- (#{extend-var-env 2738}#
- #{labels 6481}#
- #{new-vars 6482}#
- #{r 6360}#)))
- (#{build-letrec 2727}#
- #{s 6362}#
+ #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ (let ((#{labels -ANAU$bmvAmthP7L7xwoH7}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{id -ANAU$bmvAmthP7L7xwoGe}#))
+ (#{new-vars -ANAU$bmvAmthP7L7xwoH8}#
+ (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
+ #{id -ANAU$bmvAmthP7L7xwoGe}#)))
+ (let ((#{w -ANAU$bmvAmthP7L7xwoH9}#
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{id -ANAU$bmvAmthP7L7xwoGe}#
+ #{labels -ANAU$bmvAmthP7L7xwoH7}#
+ #{w -ANAU$bmvAmthP7L7xwoGD}#))
+ (#{r -ANAU$bmvAmthP7L7xwoH$}#
+ (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
+ #{labels -ANAU$bmvAmthP7L7xwoH7}#
+ #{new-vars -ANAU$bmvAmthP7L7xwoH8}#
+ #{r -ANAU$bmvAmthP7L7xwoGC}#)))
+ (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
+ #{s -ANAU$bmvAmthP7L7xwoGE}#
#t
- (map syntax->datum #{id 6388}#)
- #{new-vars 6482}#
- (map (lambda (#{x 6565}#)
- (#{expand 2778}#
- #{x 6565}#
- #{r 6484}#
- #{w 6483}#
- #{mod 6363}#))
- #{val 6389}#)
- (#{expand-body 2782}#
- (cons #{e1 6390}# #{e2 6391}#)
- (#{wrap 2771}#
+ (map syntax->datum #{id -ANAU$bmvAmthP7L7xwoGe}#)
+ #{new-vars -ANAU$bmvAmthP7L7xwoH8}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwoJP}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwoJP}#
+ #{r -ANAU$bmvAmthP7L7xwoH$}#
+ #{w -ANAU$bmvAmthP7L7xwoH9}#
+ #{mod -ANAU$bmvAmthP7L7xwoGF}#))
+ #{val -ANAU$bmvAmthP7L7xwoGf}#)
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwoGg}#
+ #{e2 -ANAU$bmvAmthP7L7xwoGh}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 6359}#) #{s 6362}# #f)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ #{s -ANAU$bmvAmthP7L7xwoGE}#
+ #f)
(set-source-properties!
- #{e 6359}#
- #{s 6362}#))
- #{e 6359}#)
- #{w 6483}#
- #{mod 6363}#)
- #{r 6484}#
- #{w 6483}#
- #{mod 6363}#))))))
- #{tmp 6365}#)
+ #{e -ANAU$bmvAmthP7L7xwoGB}#
+ #{s -ANAU$bmvAmthP7L7xwoGE}#))
+ #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ #{w -ANAU$bmvAmthP7L7xwoH9}#
+ #{mod -ANAU$bmvAmthP7L7xwoGF}#)
+ #{r -ANAU$bmvAmthP7L7xwoH$}#
+ #{w -ANAU$bmvAmthP7L7xwoH9}#
+ #{mod -ANAU$bmvAmthP7L7xwoGF}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwoGH}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 6359}#) #{s 6362}# #f)
- (set-source-properties! #{e 6359}# #{s 6362}#))
- #{e 6359}#)
- #{w 6361}#
- #{mod 6363}#))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ #{s -ANAU$bmvAmthP7L7xwoGE}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwoGB}#
+ #{s -ANAU$bmvAmthP7L7xwoGE}#))
+ #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ #{w -ANAU$bmvAmthP7L7xwoGD}#
+ #{mod -ANAU$bmvAmthP7L7xwoGF}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'set!
- (lambda (#{e 6991}#
- #{r 6992}#
- #{w 6993}#
- #{s 6994}#
- #{mod 6995}#)
- (let ((#{tmp 6997}#
- ($sc-dispatch #{e 6991}# '(_ any any))))
- (if (if #{tmp 6997}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ (let ((#{tmp address@hidden
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
+ '(_ any any))))
+ (if (if #{tmp address@hidden
(@apply
- (lambda (#{id 7001}# #{val 7002}#)
- (if (symbol? #{id 7001}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwoQD}#
+ #{val -ANAU$bmvAmthP7L7xwoQE}#)
+ (if (symbol? #{id -ANAU$bmvAmthP7L7xwoQD}#)
#t
- (if (if (vector? #{id 7001}#)
- (if (= (vector-length #{id 7001}#) 4)
- (eq? (vector-ref #{id 7001}# 0) 'syntax-object)
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQD}#)
+ (if (= (vector-length
+ #{id -ANAU$bmvAmthP7L7xwoQD}#)
+ 4)
+ (eq? (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwoQD}#
+ 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 7001}# 1))
+ (symbol?
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwoQD}# 1))
#f)))
- #{tmp 6997}#)
+ #{tmp address@hidden)
#f)
(@apply
- (lambda (#{id 7029}# #{val 7030}#)
- (let ((#{n 7031}#
- (#{id-var-name 2762}# #{id 7029}# #{w 6993}#))
- (#{id-mod 7032}#
- (if (if (vector? #{id 7029}#)
- (if (= (vector-length #{id 7029}#) 4)
- (eq? (vector-ref #{id 7029}# 0)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwoQf}#
+ #{val -ANAU$bmvAmthP7L7xwoQg}#)
+ (let ((#{n -ANAU$bmvAmthP7L7xwoQh}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{id -ANAU$bmvAmthP7L7xwoQf}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#))
+ (#{id-mod -ANAU$bmvAmthP7L7xwoQi}#
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQf}#)
+ (if (= (vector-length
+ #{id -ANAU$bmvAmthP7L7xwoQf}#)
+ 4)
+ (eq? (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwoQf}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 7029}# 3)
- #{mod 6995}#)))
- (let ((#{b 7033}#
- (let ((#{t 7074}# (assq #{n 7031}# #{r 6992}#)))
- (if #{t 7074}#
- (cdr #{t 7074}#)
- (if (symbol? #{n 7031}#)
- (let ((#{t 7079}#
- (#{get-global-definition-hook 2706}#
- #{n 7031}#
- #{id-mod 7032}#)))
- (if #{t 7079}# #{t 7079}# '(global)))
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwoQf}# 3)
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)))
+ (let ((#{b -ANAU$bmvAmthP7L7xwoQj}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwoRM}#
+ (assq #{n -ANAU$bmvAmthP7L7xwoQh}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwoRM}#
+ (cdr #{t -ANAU$bmvAmthP7L7xwoRM}#)
+ (if (symbol? #{n -ANAU$bmvAmthP7L7xwoQh}#)
+ (let ((#{t -ANAU$bmvAmthP7L7xwoRR}#
+ (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
+ #{n -ANAU$bmvAmthP7L7xwoQh}#
+ #{id-mod
-ANAU$bmvAmthP7L7xwoQi}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwoRR}#
+ #{t -ANAU$bmvAmthP7L7xwoRR}#
+ '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 7034}# (car #{b 7033}#)))
- (if (eqv? #{atom-key 7034}# 'lexical)
- (#{build-lexical-assignment 2714}#
- #{s 6994}#
- (syntax->datum #{id 7029}#)
- (cdr #{b 7033}#)
- (#{expand 2778}#
- #{val 7030}#
- #{r 6992}#
- #{w 6993}#
- #{mod 6995}#))
- (if (eqv? #{atom-key 7034}# 'global)
- (#{build-global-assignment 2717}#
- #{s 6994}#
- #{n 7031}#
- (#{expand 2778}#
- #{val 7030}#
- #{r 6992}#
- #{w 6993}#
- #{mod 6995}#)
- #{id-mod 7032}#)
- (if (eqv? #{atom-key 7034}# 'macro)
- (let ((#{p 7393}# (cdr #{b 7033}#)))
+ (let ((#{atom-key -ANAU$bmvAmthP7L7xwoQk}#
+ (car #{b -ANAU$bmvAmthP7L7xwoQj}#)))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
+ 'lexical)
+ (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ (syntax->datum #{id -ANAU$bmvAmthP7L7xwoQf}#)
+ (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{val -ANAU$bmvAmthP7L7xwoQg}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
+ 'global)
+ (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ #{n -ANAU$bmvAmthP7L7xwoQh}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{val -ANAU$bmvAmthP7L7xwoQg}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ #{id-mod -ANAU$bmvAmthP7L7xwoQi}#)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
+ 'macro)
+ (let ((#{p -ANAU$bmvAmthP7L7xwoWL}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#)))
(if (procedure-property
- #{p 7393}#
+ #{p -ANAU$bmvAmthP7L7xwoWL}#
'variable-transformer)
- (#{expand 2778}#
- (#{expand-macro 2781}#
- #{p 7393}#
- #{e 6991}#
- #{r 6992}#
- #{w 6993}#
- #{s 6994}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
+ #{p -ANAU$bmvAmthP7L7xwoWL}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
#f
- #{mod 6995}#)
- #{r 6992}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
'(())
- #{mod 6995}#)
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap 2771}#
- #{e 6991}#
- #{w 6993}#
- #{mod 6995}#)
- (#{wrap 2771}#
- #{id 7029}#
- #{w 6993}#
- #{id-mod 7032}#))))
- (if (eqv? #{atom-key 7034}# 'displaced-lexical)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{id -ANAU$bmvAmthP7L7xwoQf}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{id-mod -ANAU$bmvAmthP7L7xwoQi}#))))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
+ 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap 2771}#
- #{id 7029}#
- #{w 6993}#
- #{mod 6995}#))
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{id -ANAU$bmvAmthP7L7xwoQf}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 6991}#) #{s 6994}# #f)
+ (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwoP5}#)
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ #f)
(set-source-properties!
- #{e 6991}#
- #{s 6994}#))
- #{e 6991}#)
- #{w 6993}#
- #{mod 6995}#))))))))))
- #{tmp 6997}#)
- (let ((#{tmp 7488}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#))
+ #{e -ANAU$bmvAmthP7L7xwoP5}#)
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#))))))))))
+ #{tmp address@hidden)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoXq}#
($sc-dispatch
- #{e 6991}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
'(_ (any . each-any) any))))
- (if #{tmp 7488}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwoXq}#
(@apply
- (lambda (#{head 7492}# #{tail 7493}# #{val 7494}#)
+ (lambda (#{head -ANAU$bmvAmthP7L7xwoXu}#
+ #{tail -ANAU$bmvAmthP7L7xwoXv}#
+ #{val -ANAU$bmvAmthP7L7xwoXw}#)
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{head 7492}#
- #{r 6992}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{head -ANAU$bmvAmthP7L7xwoXu}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
'(())
#f
#f
- #{mod 6995}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#
#t))
- (lambda (#{type 7497}#
- #{value 7498}#
- #{ee 7499}#
- #{ww 7500}#
- #{ss 7501}#
- #{modmod 7502}#)
- (if (eqv? #{type 7497}# 'module-ref)
- (let ((#{val 7506}#
- (#{expand 2778}#
- #{val 7494}#
- #{r 6992}#
- #{w 6993}#
- #{mod 6995}#)))
+ (lambda (#{type -ANAU$bmvAmthP7L7xwoXz}#
+ #{value -ANAU$bmvAmthP7L7xwoX0}#
+ #{ee -ANAU$bmvAmthP7L7xwoX1}#
+ #{ww -ANAU$bmvAmthP7L7xwoX2}#
+ #{ss -ANAU$bmvAmthP7L7xwoX3}#
+ #{modmod -ANAU$bmvAmthP7L7xwoX4}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwoXz}#
+ 'module-ref)
+ (let ((#{val -ANAU$bmvAmthP7L7xwoX8}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{val -ANAU$bmvAmthP7L7xwoXw}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)))
(call-with-values
(lambda ()
- (#{value 7498}#
- (cons #{head 7492}# #{tail 7493}#)
- #{r 6992}#
- #{w 6993}#))
- (lambda (#{e 7507}#
- #{r 7508}#
- #{w 7509}#
- #{s* 7510}#
- #{mod 7511}#)
- (let ((#{tmp 7513}# (list #{e 7507}#)))
+ (#{value -ANAU$bmvAmthP7L7xwoX0}#
+ (cons #{head -ANAU$bmvAmthP7L7xwoXu}#
+ #{tail -ANAU$bmvAmthP7L7xwoXv}#)
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoX9}#
+ #{r -ANAU$bmvAmthP7L7xwoX$}#
+ #{w address@hidden
+ #{s* -ANAU$bmvAmthP7L7xwoYA}#
+ #{mod -ANAU$bmvAmthP7L7xwoYB}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoYD}#
+ (list #{e -ANAU$bmvAmthP7L7xwoX9}#)))
(if (@apply
- (lambda (#{e 7515}#)
- (if (symbol? #{e 7515}#)
+ (lambda (#{e
-ANAU$bmvAmthP7L7xwoYF}#)
+ (if (symbol?
+ #{e -ANAU$bmvAmthP7L7xwoYF}#)
#t
- (if (if (vector? #{e 7515}#)
+ (if (if (vector?
+ #{e
-ANAU$bmvAmthP7L7xwoYF}#)
(if (= (vector-length
- #{e 7515}#)
+ #{e
-ANAU$bmvAmthP7L7xwoYF}#)
4)
(eq? (vector-ref
- #{e 7515}#
+ #{e
-ANAU$bmvAmthP7L7xwoYF}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 7515}# 1))
+ (vector-ref
+ #{e
-ANAU$bmvAmthP7L7xwoYF}#
+ 1))
#f)))
- #{tmp 7513}#)
+ #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
(@apply
- (lambda (#{e 7545}#)
- (#{build-global-assignment 2717}#
- #{s 6994}#
- (syntax->datum #{e 7545}#)
- #{val 7506}#
- #{mod 7511}#))
- #{tmp 7513}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoYj}#)
+ (#{build-global-assignment
-ANAU$bmvAmthP7L7xwnNG}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ (syntax->datum
+ #{e -ANAU$bmvAmthP7L7xwoYj}#)
+ #{val -ANAU$bmvAmthP7L7xwoX8}#
+ #{mod -ANAU$bmvAmthP7L7xwoYB}#))
+ #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 7507}#))))))
- (#{build-application 2710}#
- #{s 6994}#
- (let ((#{e 7770}#
+ #{e -ANAU$bmvAmthP7L7xwoX9}#))))))
+ (#{build-application address@hidden
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ (let ((#{e -ANAU$bmvAmthP7L7xwocE}#
(list '#(syntax-object
setter
((top)
@@ -9541,16 +10483,16 @@
(top)
(top)
(top))
- #("13b"
- "13c"
- "13d"
- "13e"
- "13f"
- "13g"))
+ #("142"
+ "143"
+ "144"
+ "145"
+ "146"
+ "147"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("138" "139" "13a"))
+ #("13z" "140" "141"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9559,11 +10501,11 @@
(top)
(top)
(top))
- #("12u"
- "12v"
- "12w"
- "12x"
- "12y"))
+ #("13l"
+ "13m"
+ "13n"
+ "13o"
+ "13p"))
#(ribcage
(lambda-var-list
gen-var
@@ -9596,6 +10538,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -9842,8 +10785,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -9989,103 +10934,121 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))
- #{head 7492}#)))
+ #{head -ANAU$bmvAmthP7L7xwoXu}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 7770}#
- #{r 6992}#
- #{w 6993}#
- (#{source-annotation 2736}# #{e 7770}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwocE}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwocE}#)
#f
- #{mod 6995}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#
#f))
- (lambda (#{type 7777}#
- #{value 7778}#
- #{e 7779}#
- #{w 7780}#
- #{s 7781}#
- #{mod 7782}#)
- (#{expand-expr 2779}#
- #{type 7777}#
- #{value 7778}#
- #{e 7779}#
- #{r 6992}#
- #{w 7780}#
- #{s 7781}#
- #{mod 7782}#))))
- (map (lambda (#{e 7786}#)
+ (lambda (#{type -ANAU$bmvAmthP7L7xwocL}#
+ #{value -ANAU$bmvAmthP7L7xwocM}#
+ #{e -ANAU$bmvAmthP7L7xwocN}#
+ #{w -ANAU$bmvAmthP7L7xwocO}#
+ #{s -ANAU$bmvAmthP7L7xwocP}#
+ #{mod -ANAU$bmvAmthP7L7xwocQ}#)
+ (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
+ #{type -ANAU$bmvAmthP7L7xwocL}#
+ #{value -ANAU$bmvAmthP7L7xwocM}#
+ #{e -ANAU$bmvAmthP7L7xwocN}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwocO}#
+ #{s -ANAU$bmvAmthP7L7xwocP}#
+ #{mod -ANAU$bmvAmthP7L7xwocQ}#))))
+ (map (lambda (#{e -ANAU$bmvAmthP7L7xwocU}#)
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 7786}#
- #{r 6992}#
- #{w 6993}#
- (#{source-annotation 2736}#
- #{e 7786}#)
+ (#{syntax-type
-ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwocU}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwocU}#)
#f
- #{mod 6995}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#
#f))
- (lambda (#{type 7801}#
- #{value 7802}#
- #{e 7803}#
- #{w 7804}#
- #{s 7805}#
- #{mod 7806}#)
- (#{expand-expr 2779}#
- #{type 7801}#
- #{value 7802}#
- #{e 7803}#
- #{r 6992}#
- #{w 7804}#
- #{s 7805}#
- #{mod 7806}#))))
+ (lambda (#{type -ANAU$bmvAmthP7L7xwocj}#
+ #{value
-ANAU$bmvAmthP7L7xwock}#
+ #{e -ANAU$bmvAmthP7L7xwocl}#
+ #{w -ANAU$bmvAmthP7L7xwocm}#
+ #{s -ANAU$bmvAmthP7L7xwocn}#
+ #{mod -ANAU$bmvAmthP7L7xwoco}#)
+ (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
+ #{type -ANAU$bmvAmthP7L7xwocj}#
+ #{value -ANAU$bmvAmthP7L7xwock}#
+ #{e -ANAU$bmvAmthP7L7xwocl}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwocm}#
+ #{s -ANAU$bmvAmthP7L7xwocn}#
+ #{mod -ANAU$bmvAmthP7L7xwoco}#))))
(append
- #{tail 7493}#
- (list #{val 7494}#))))))))
- #{tmp 7488}#)
+ #{tail -ANAU$bmvAmthP7L7xwoXv}#
+ (list #{val
-ANAU$bmvAmthP7L7xwoXw}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwoXq}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap 2771}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 6991}#) #{s 6994}# #f)
- (set-source-properties! #{e 6991}# #{s 6994}#))
- #{e 6991}#)
- #{w 6993}#
- #{mod 6995}#))))))))
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#)
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#))
+ #{e -ANAU$bmvAmthP7L7xwoP5}#)
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 7849}# #{r 7850}# #{w 7851}#)
- (let ((#{tmp 7853}#
- ($sc-dispatch #{e 7849}# '(_ each-any any))))
- (if (if #{tmp 7853}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwodT}#
+ #{r -ANAU$bmvAmthP7L7xwodU}#
+ #{w -ANAU$bmvAmthP7L7xwodV}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwodX}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwodT}#
+ '(_ each-any any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwodX}#
(@apply
- (lambda (#{mod 7856}# #{id 7857}#)
- (if (and-map #{id? 2743}# #{mod 7856}#)
- (if (symbol? #{id 7857}#)
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwoda}#
+ #{id -ANAU$bmvAmthP7L7xwodb}#)
+ (if (and-map
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{mod -ANAU$bmvAmthP7L7xwoda}#)
+ (if (symbol? #{id -ANAU$bmvAmthP7L7xwodb}#)
#t
- (if (if (vector? #{id 7857}#)
- (if (= (vector-length #{id 7857}#) 4)
- (eq? (vector-ref #{id 7857}# 0)
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwodb}#)
+ (if (= (vector-length
+ #{id -ANAU$bmvAmthP7L7xwodb}#)
+ 4)
+ (eq? (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwodb}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 7857}# 1))
+ (symbol?
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwodb}# 1))
#f))
#f))
- #{tmp 7853}#)
+ #{tmp -ANAU$bmvAmthP7L7xwodX}#)
#f)
(@apply
- (lambda (#{mod 7897}# #{id 7898}#)
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwoeD}#
+ #{id -ANAU$bmvAmthP7L7xwoeE}#)
(values
- (syntax->datum #{id 7898}#)
- #{r 7850}#
- #{w 7851}#
+ (syntax->datum #{id -ANAU$bmvAmthP7L7xwoeE}#)
+ #{r -ANAU$bmvAmthP7L7xwodU}#
+ #{w -ANAU$bmvAmthP7L7xwodV}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10094,12 +11057,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("13w" "13x"))
+ #("14n" "14o"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("13r" "13s" "13t"))
+ #("14i" "14j" "14k"))
#(ribcage
(lambda-var-list
gen-var
@@ -10132,6 +11095,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -10378,8 +11342,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -10525,70 +11491,88 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))
- #{mod 7897}#))))
- #{tmp 7853}#)
+ #{mod -ANAU$bmvAmthP7L7xwoeD}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwodX}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 7849}#))))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwodT}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'module-ref
'@@
- (lambda (#{e 7990}# #{r 7991}# #{w 7992}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwofg}#
+ #{r -ANAU$bmvAmthP7L7xwofh}#
+ #{w -ANAU$bmvAmthP7L7xwofi}#)
(letrec*
- ((#{remodulate 7993}#
- (lambda (#{x 8028}# #{mod 8029}#)
- (if (pair? #{x 8028}#)
- (cons (#{remodulate 7993}#
- (car #{x 8028}#)
- #{mod 8029}#)
- (#{remodulate 7993}#
- (cdr #{x 8028}#)
- #{mod 8029}#))
- (if (if (vector? #{x 8028}#)
- (if (= (vector-length #{x 8028}#) 4)
- (eq? (vector-ref #{x 8028}# 0) 'syntax-object)
+ ((#{remodulate -ANAU$bmvAmthP7L7xwofj}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwogG}#
+ #{mod -ANAU$bmvAmthP7L7xwogH}#)
+ (if (pair? #{x -ANAU$bmvAmthP7L7xwogG}#)
+ (cons (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
+ (car #{x -ANAU$bmvAmthP7L7xwogG}#)
+ #{mod -ANAU$bmvAmthP7L7xwogH}#)
+ (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwogG}#)
+ #{mod -ANAU$bmvAmthP7L7xwogH}#))
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{expression 8043}#
- (#{remodulate 7993}#
- (vector-ref #{x 8028}# 1)
- #{mod 8029}#))
- (#{wrap 8044}# (vector-ref #{x 8028}# 2)))
+ (let ((#{expression -ANAU$bmvAmthP7L7xwogV}#
+ (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 1)
+ #{mod -ANAU$bmvAmthP7L7xwogH}#))
+ (#{wrap -ANAU$bmvAmthP7L7xwogW}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 2)))
(vector
'syntax-object
- #{expression 8043}#
- #{wrap 8044}#
- #{mod 8029}#))
- (if (vector? #{x 8028}#)
- (let ((#{n 8052}# (vector-length #{x 8028}#)))
- (let ((#{v 8053}# (make-vector #{n 8052}#)))
+ #{expression -ANAU$bmvAmthP7L7xwogV}#
+ #{wrap -ANAU$bmvAmthP7L7xwogW}#
+ #{mod -ANAU$bmvAmthP7L7xwogH}#))
+ (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#)
+ (let ((#{n -ANAU$bmvAmthP7L7xwoge}#
+ (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#)))
+ (let ((#{v -ANAU$bmvAmthP7L7xwogf}#
+ (make-vector #{n -ANAU$bmvAmthP7L7xwoge}#)))
(letrec*
- ((#{loop 8054}#
- (lambda (#{i 8101}#)
- (if (= #{i 8101}# #{n 8052}#)
- #{v 8053}#
+ ((#{loop -ANAU$bmvAmthP7L7xwogg}#
+ (lambda (#{i -ANAU$bmvAmthP7L7xwohP}#)
+ (if (= #{i -ANAU$bmvAmthP7L7xwohP}#
+ #{n -ANAU$bmvAmthP7L7xwoge}#)
+ #{v -ANAU$bmvAmthP7L7xwogf}#
(begin
(vector-set!
- #{v 8053}#
- #{i 8101}#
- (#{remodulate 7993}#
- (vector-ref #{x 8028}# #{i 8101}#)
- #{mod 8029}#))
- (#{loop 8054}# (#{1+}# #{i 8101}#)))))))
- (#{loop 8054}# 0))))
- #{x 8028}#))))))
- (let ((#{tmp 7995}#
- ($sc-dispatch #{e 7990}# '(_ each-any any))))
- (if (if #{tmp 7995}#
+ #{v -ANAU$bmvAmthP7L7xwogf}#
+ #{i -ANAU$bmvAmthP7L7xwohP}#
+ (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
+ (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwogG}#
+ #{i -ANAU$bmvAmthP7L7xwohP}#)
+ #{mod -ANAU$bmvAmthP7L7xwogH}#))
+ (#{loop -ANAU$bmvAmthP7L7xwogg}#
+ (#{1+}# #{i
-ANAU$bmvAmthP7L7xwohP}#)))))))
+ (#{loop -ANAU$bmvAmthP7L7xwogg}# 0))))
+ #{x -ANAU$bmvAmthP7L7xwogG}#))))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwofl}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwofg}#
+ '(_ each-any any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwofl}#
(@apply
- (lambda (#{mod 7999}# #{exp 8000}#)
- (and-map #{id? 2743}# #{mod 7999}#))
- #{tmp 7995}#)
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwofp}#
+ #{exp -ANAU$bmvAmthP7L7xwofq}#)
+ (and-map
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{mod -ANAU$bmvAmthP7L7xwofp}#))
+ #{tmp -ANAU$bmvAmthP7L7xwofl}#)
#f)
(@apply
- (lambda (#{mod 8016}# #{exp 8017}#)
- (let ((#{mod 8018}#
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwof6}#
+ #{exp -ANAU$bmvAmthP7L7xwof7}#)
+ (let ((#{mod -ANAU$bmvAmthP7L7xwof8}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10596,12 +11580,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("14a" "14b"))
- #(ribcage (remodulate) ((top)) ("141"))
+ #("151" "152"))
+ #(ribcage (remodulate) ((top)) ("14s"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("13y" "13z" "140"))
+ #("14p" "14q" "14r"))
#(ribcage
(lambda-var-list
gen-var
@@ -10634,6 +11618,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -10880,8 +11865,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -11027,125 +12014,140 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))
- #{mod 8016}#))))
+ #{mod -ANAU$bmvAmthP7L7xwof6}#))))
(values
- (#{remodulate 7993}# #{exp 8017}# #{mod 8018}#)
- #{r 7991}#
- #{w 7992}#
- (#{source-annotation 2736}# #{exp 8017}#)
- #{mod 8018}#)))
- #{tmp 7995}#)
+ (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
+ #{exp -ANAU$bmvAmthP7L7xwof7}#
+ #{mod -ANAU$bmvAmthP7L7xwof8}#)
+ #{r -ANAU$bmvAmthP7L7xwofh}#
+ #{w -ANAU$bmvAmthP7L7xwofi}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{exp -ANAU$bmvAmthP7L7xwof7}#)
+ #{mod -ANAU$bmvAmthP7L7xwof8}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwofl}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 7990}#))))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwofg}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'if
- (lambda (#{e 8202}#
- #{r 8203}#
- #{w 8204}#
- #{s 8205}#
- #{mod 8206}#)
- (let ((#{tmp 8208}#
- ($sc-dispatch #{e 8202}# '(_ any any))))
- (if #{tmp 8208}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoi0}#
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{s -ANAU$bmvAmthP7L7xwoi3}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoi6}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwoi0}#
+ '(_ any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwoi6}#
(@apply
- (lambda (#{test 8212}# #{then 8213}#)
- (#{build-conditional 2711}#
- #{s 8205}#
- (#{expand 2778}#
- #{test 8212}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
- (#{expand 2778}#
- #{then 8213}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
+ (lambda (#{test -ANAU$bmvAmthP7L7xwoi$}#
+ #{then address@hidden)
+ (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
+ #{s -ANAU$bmvAmthP7L7xwoi3}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{test -ANAU$bmvAmthP7L7xwoi$}#
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{then address@hidden
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 8208}#)
- (let ((#{tmp 8438}#
- ($sc-dispatch #{e 8202}# '(_ any any any))))
- (if #{tmp 8438}#
+ #{tmp -ANAU$bmvAmthP7L7xwoi6}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwomg}#
+ ($sc-dispatch
+ #{e -ANAU$bmvAmthP7L7xwoi0}#
+ '(_ any any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwomg}#
(@apply
- (lambda (#{test 8442}# #{then 8443}# #{else 8444}#)
- (#{build-conditional 2711}#
- #{s 8205}#
- (#{expand 2778}#
- #{test 8442}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
- (#{expand 2778}#
- #{then 8443}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
- (#{expand 2778}#
- #{else 8444}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)))
- #{tmp 8438}#)
+ (lambda (#{test -ANAU$bmvAmthP7L7xwomk}#
+ #{then -ANAU$bmvAmthP7L7xwoml}#
+ #{else -ANAU$bmvAmthP7L7xwomm}#)
+ (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
+ #{s -ANAU$bmvAmthP7L7xwoi3}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{test -ANAU$bmvAmthP7L7xwomk}#
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{then -ANAU$bmvAmthP7L7xwoml}#
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{else -ANAU$bmvAmthP7L7xwomm}#
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwomg}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 8202}#)))))))
- (#{global-extend 2741}#
+ #{e -ANAU$bmvAmthP7L7xwoi0}#)))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'with-fluids
- (lambda (#{e 8843}#
- #{r 8844}#
- #{w 8845}#
- #{s 8846}#
- #{mod 8847}#)
- (let ((#{tmp 8849}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwos1}#
+ #{r -ANAU$bmvAmthP7L7xwos2}#
+ #{w -ANAU$bmvAmthP7L7xwos3}#
+ #{s -ANAU$bmvAmthP7L7xwos4}#
+ #{mod -ANAU$bmvAmthP7L7xwos5}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwos7}#
($sc-dispatch
- #{e 8843}#
+ #{e -ANAU$bmvAmthP7L7xwos1}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 8849}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwos7}#
(@apply
- (lambda (#{fluid 8853}#
- #{val 8854}#
- #{b 8855}#
- #{b* 8856}#)
- (#{build-dynlet 2712}#
- #{s 8846}#
- (map (lambda (#{x 8937}#)
- (#{expand 2778}#
- #{x 8937}#
- #{r 8844}#
- #{w 8845}#
- #{mod 8847}#))
- #{fluid 8853}#)
- (map (lambda (#{x 9007}#)
- (#{expand 2778}#
- #{x 9007}#
- #{r 8844}#
- #{w 8845}#
- #{mod 8847}#))
- #{val 8854}#)
- (#{expand-body 2782}#
- (cons #{b 8855}# #{b* 8856}#)
- (#{wrap 2771}#
+ (lambda (#{fluid address@hidden
+ #{val -ANAU$bmvAmthP7L7xwotA}#
+ #{b -ANAU$bmvAmthP7L7xwotB}#
+ #{b* -ANAU$bmvAmthP7L7xwotC}#)
+ (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}#
+ #{s -ANAU$bmvAmthP7L7xwos4}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwouT}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwouT}#
+ #{r -ANAU$bmvAmthP7L7xwos2}#
+ #{w -ANAU$bmvAmthP7L7xwos3}#
+ #{mod -ANAU$bmvAmthP7L7xwos5}#))
+ #{fluid address@hidden)
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwovZ}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwovZ}#
+ #{r -ANAU$bmvAmthP7L7xwos2}#
+ #{w -ANAU$bmvAmthP7L7xwos3}#
+ #{mod -ANAU$bmvAmthP7L7xwos5}#))
+ #{val -ANAU$bmvAmthP7L7xwotA}#)
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ (cons #{b -ANAU$bmvAmthP7L7xwotB}#
+ #{b* -ANAU$bmvAmthP7L7xwotC}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 8843}#) #{s 8846}# #f)
- (set-source-properties! #{e 8843}# #{s 8846}#))
- #{e 8843}#)
- #{w 8845}#
- #{mod 8847}#)
- #{r 8844}#
- #{w 8845}#
- #{mod 8847}#)))
- #{tmp 8849}#)
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwos1}#)
+ #{s -ANAU$bmvAmthP7L7xwos4}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwos1}#
+ #{s -ANAU$bmvAmthP7L7xwos4}#))
+ #{e -ANAU$bmvAmthP7L7xwos1}#)
+ #{w -ANAU$bmvAmthP7L7xwos3}#
+ #{mod -ANAU$bmvAmthP7L7xwos5}#)
+ #{r -ANAU$bmvAmthP7L7xwos2}#
+ #{w -ANAU$bmvAmthP7L7xwos3}#
+ #{mod -ANAU$bmvAmthP7L7xwos5}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwos7}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 8843}#)))))
+ #{e -ANAU$bmvAmthP7L7xwos1}#)))))
(module-define!
(current-module)
'begin
@@ -11175,75 +12177,100 @@
'eval-when
'eval-when
'()))
- (#{global-extend 2741}#
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 9375}#
- (lambda (#{pattern 10970}# #{keys 10971}#)
+ ((#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}#
+ (lambda (#{pattern -ANAU$bmvAmthP7L7xwpOE}#
+ #{keys -ANAU$bmvAmthP7L7xwpOF}#)
(letrec*
- ((#{cvt* 10972}#
- (lambda (#{p* 11596}# #{n 11597}# #{ids 11598}#)
- (if (not (pair? #{p* 11596}#))
- (#{cvt 10974}#
- #{p* 11596}#
- #{n 11597}#
- #{ids 11598}#)
+ ((#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
+ (lambda (#{p* -ANAU$bmvAmthP7L7xwpX2}#
+ #{n -ANAU$bmvAmthP7L7xwpX3}#
+ #{ids -ANAU$bmvAmthP7L7xwpX4}#)
+ (if (not (pair? #{p* -ANAU$bmvAmthP7L7xwpX2}#))
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{p* -ANAU$bmvAmthP7L7xwpX2}#
+ #{n -ANAU$bmvAmthP7L7xwpX3}#
+ #{ids -ANAU$bmvAmthP7L7xwpX4}#)
(call-with-values
(lambda ()
- (#{cvt* 10972}#
- (cdr #{p* 11596}#)
- #{n 11597}#
- #{ids 11598}#))
- (lambda (#{y 11601}# #{ids 11602}#)
+ (#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
+ (cdr #{p* -ANAU$bmvAmthP7L7xwpX2}#)
+ #{n -ANAU$bmvAmthP7L7xwpX3}#
+ #{ids -ANAU$bmvAmthP7L7xwpX4}#))
+ (lambda (#{y -ANAU$bmvAmthP7L7xwpX7}#
+ #{ids -ANAU$bmvAmthP7L7xwpX8}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- (car #{p* 11596}#)
- #{n 11597}#
- #{ids 11602}#))
- (lambda (#{x 11605}# #{ids 11606}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ (car #{p* -ANAU$bmvAmthP7L7xwpX2}#)
+ #{n -ANAU$bmvAmthP7L7xwpX3}#
+ #{ids -ANAU$bmvAmthP7L7xwpX8}#))
+ (lambda (#{x address@hidden
+ #{ids -ANAU$bmvAmthP7L7xwpYA}#)
(values
- (cons #{x 11605}# #{y 11601}#)
- #{ids 11606}#))))))))
- (#{v-reverse 10973}#
- (lambda (#{x 11607}#)
+ (cons #{x address@hidden
+ #{y -ANAU$bmvAmthP7L7xwpX7}#)
+ #{ids -ANAU$bmvAmthP7L7xwpYA}#))))))))
+ (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpYB}#)
(letrec*
- ((#{loop 11608}#
- (lambda (#{r 11688}# #{x 11689}#)
- (if (not (pair? #{x 11689}#))
- (values #{r 11688}# #{x 11689}#)
- (#{loop 11608}#
- (cons (car #{x 11689}#) #{r 11688}#)
- (cdr #{x 11689}#))))))
- (#{loop 11608}# '() #{x 11607}#))))
- (#{cvt 10974}#
- (lambda (#{p 10977}# #{n 10978}# #{ids 10979}#)
- (if (if (symbol? #{p 10977}#)
+ ((#{loop -ANAU$bmvAmthP7L7xwpYC}#
+ (lambda (#{r -ANAU$bmvAmthP7L7xwpZS}#
+ #{x -ANAU$bmvAmthP7L7xwpZT}#)
+ (if (not (pair? #{x -ANAU$bmvAmthP7L7xwpZT}#))
+ (values
+ #{r -ANAU$bmvAmthP7L7xwpZS}#
+ #{x -ANAU$bmvAmthP7L7xwpZT}#)
+ (#{loop -ANAU$bmvAmthP7L7xwpYC}#
+ (cons (car #{x -ANAU$bmvAmthP7L7xwpZT}#)
+ #{r -ANAU$bmvAmthP7L7xwpZS}#)
+ (cdr #{x -ANAU$bmvAmthP7L7xwpZT}#))))))
+ (#{loop -ANAU$bmvAmthP7L7xwpYC}#
+ '()
+ #{x -ANAU$bmvAmthP7L7xwpYB}#))))
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#)
+ (if (if (symbol? #{p -ANAU$bmvAmthP7L7xwpOL}#)
#t
- (if (if (vector? #{p 10977}#)
- (if (= (vector-length #{p 10977}#) 4)
- (eq? (vector-ref #{p 10977}# 0)
+ (if (if (vector? #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ (if (= (vector-length
+ #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ 4)
+ (eq? (vector-ref
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 10977}# 1))
+ (symbol?
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpOL}# 1))
#f))
- (if (#{bound-id-member? 2770}#
- #{p 10977}#
- #{keys 10971}#)
+ (if (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{keys -ANAU$bmvAmthP7L7xwpOF}#)
(values
- (vector 'free-id #{p 10977}#)
- #{ids 10979}#)
- (if (if (eq? (if (if (vector? #{p 10977}#)
- (if (= (vector-length #{p 10977}#)
+ (vector 'free-id #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ #{ids -ANAU$bmvAmthP7L7xwpON}#)
+ (if (if (eq? (if (if (vector?
+ #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ (if (= (vector-length
+ #{p
-ANAU$bmvAmthP7L7xwpOL}#)
4)
- (eq? (vector-ref #{p 10977}# 0)
+ (eq? (vector-ref
+ #{p
-ANAU$bmvAmthP7L7xwpOL}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{p 10977}# 1)
- #{p 10977}#)
+ (vector-ref
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
+ 1)
+ #{p -ANAU$bmvAmthP7L7xwpOL}#)
(if (if (= (vector-length
'#(syntax-object
_
@@ -11252,15 +12279,15 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("15i" "15j" "15k"))
+ #("169" "16a" "16b"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("156" "155" "154"))
+ ("15x" "15w" "15v"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("152" "153"))
+ #("15t" "15u"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11270,10 +12297,10 @@
(top)
(top)
(top))
- ("151"
- "150"
- "14z"
- "14y"))
+ ("15s"
+ "15r"
+ "15q"
+ "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -11306,6 +12333,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -11552,8 +12580,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -11710,22 +12740,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("15i" "15j" "15k"))
+ #("169" "16a" "16b"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("156" "155" "154"))
+ ("15x" "15w" "15v"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("152" "153"))
+ #("15t" "15u"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -11758,6 +12788,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -12004,8 +13035,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -12151,8 +13184,10 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}# #{p 10977}# '(()))
- (#{id-var-name 2762}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
+ '(()))
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
_
((top)
@@ -12160,22 +13195,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("15i" "15j" "15k"))
+ #("169" "16a" "16b"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("156" "155" "154"))
+ ("15x" "15w" "15v"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("152" "153"))
+ #("15t" "15u"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -12208,6 +13243,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -12454,8 +13490,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -12603,41 +13641,51 @@
(hygiene guile))
'(())))
#f)
- (values '_ #{ids 10979}#)
+ (values '_ #{ids -ANAU$bmvAmthP7L7xwpON}#)
(values
'any
- (cons (cons #{p 10977}# #{n 10978}#)
- #{ids 10979}#))))
- (let ((#{tmp 11299}#
- ($sc-dispatch #{p 10977}# '(any any))))
- (if (if #{tmp 11299}#
+ (cons (cons #{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#)
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpTN}#
+ ($sc-dispatch
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
+ '(any any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwpTN}#
(@apply
- (lambda (#{x 11303}# #{dots 11304}#)
- (if (if (if (vector? #{dots 11304}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpTR}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#)
+ (if (if (if (vector?
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
(if (= (vector-length
- #{dots 11304}#)
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
4)
(eq? (vector-ref
- #{dots 11304}#
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 11304}# 1))
+ (vector-ref
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#
+ 1))
#f)
- (if (eq? (if (if (vector? #{dots 11304}#)
+ (if (eq? (if (if (vector?
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
(if (= (vector-length
- #{dots 11304}#)
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
4)
(eq? (vector-ref
- #{dots 11304}#
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 11304}# 1)
- #{dots 11304}#)
+ (vector-ref
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#
+ 1)
+ #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12653,7 +13701,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -12686,6 +13734,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -12932,8 +13981,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -13096,7 +14147,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -13129,6 +14180,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -13375,8 +14427,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -13522,10 +14576,10 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{dots 11304}#
+ (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -13534,7 +14588,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -13567,6 +14621,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -13813,8 +14868,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -13963,60 +15020,68 @@
'(())))
#f)
#f))
- #{tmp 11299}#)
+ #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
#f)
(@apply
- (lambda (#{x 11404}# #{dots 11405}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpU2}#
+ #{dots -ANAU$bmvAmthP7L7xwpU3}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11404}#
- (#{1+}# #{n 10978}#)
- #{ids 10979}#))
- (lambda (#{p 11406}# #{ids 11407}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{x -ANAU$bmvAmthP7L7xwpU2}#
+ (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#)
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{p -ANAU$bmvAmthP7L7xwpU4}#
+ #{ids -ANAU$bmvAmthP7L7xwpU5}#)
(values
- (if (eq? #{p 11406}# 'any)
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwpU4}#
+ 'any)
'each-any
- (vector 'each #{p 11406}#))
- #{ids 11407}#))))
- #{tmp 11299}#)
- (let ((#{tmp 11408}#
+ (vector
+ 'each
+ #{p -ANAU$bmvAmthP7L7xwpU4}#))
+ #{ids -ANAU$bmvAmthP7L7xwpU5}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpU6}#
($sc-dispatch
- #{p 10977}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(any any . any))))
- (if (if #{tmp 11408}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwpU6}#
(@apply
- (lambda (#{x 11412}#
- #{dots 11413}#
- #{ys 11414}#)
- (if (if (if (vector? #{dots 11413}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpU$}#
+ #{dots address@hidden
+ #{ys -ANAU$bmvAmthP7L7xwpVA}#)
+ (if (if (if (vector?
+ #{dots address@hidden)
(if (= (vector-length
- #{dots 11413}#)
+ #{dots
address@hidden)
4)
(eq? (vector-ref
- #{dots 11413}#
+ #{dots
address@hidden
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 11413}# 1))
+ (vector-ref
+ #{dots address@hidden
+ 1))
#f)
(if (eq? (if (if (vector?
- #{dots 11413}#)
+ #{dots
address@hidden)
(if (= (vector-length
- #{dots
11413}#)
+ #{dots
address@hidden)
4)
(eq? (vector-ref
- #{dots
11413}#
+ #{dots
address@hidden
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots 11413}#
+ #{dots address@hidden
1)
- #{dots 11413}#)
+ #{dots address@hidden)
(if (if (= (vector-length
'#(syntax-object
...
@@ -14032,7 +15097,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -14065,6 +15130,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -14311,8 +15377,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -14475,7 +15543,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -14508,6 +15576,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -14754,8 +15823,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -14901,10 +15972,10 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{dots 11413}#
+ (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{dots address@hidden
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -14913,7 +15984,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -14946,6 +16017,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -15192,8 +16264,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -15342,117 +16416,131 @@
'(())))
#f)
#f))
- #{tmp 11408}#)
+ #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
#f)
(@apply
- (lambda (#{x 11514}#
- #{dots 11515}#
- #{ys 11516}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpWk}#
+ #{dots -ANAU$bmvAmthP7L7xwpWl}#
+ #{ys -ANAU$bmvAmthP7L7xwpWm}#)
(call-with-values
(lambda ()
- (#{cvt* 10972}#
- #{ys 11516}#
- #{n 10978}#
- #{ids 10979}#))
- (lambda (#{ys 11519}# #{ids 11520}#)
+ (#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
+ #{ys -ANAU$bmvAmthP7L7xwpWm}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{ys -ANAU$bmvAmthP7L7xwpWp}#
+ #{ids -ANAU$bmvAmthP7L7xwpWq}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11514}#
- (#{1+}# #{n 10978}#)
- #{ids 11520}#))
- (lambda (#{x 11521}# #{ids 11522}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{x -ANAU$bmvAmthP7L7xwpWk}#
+ (#{1+}# #{n
-ANAU$bmvAmthP7L7xwpOM}#)
+ #{ids -ANAU$bmvAmthP7L7xwpWq}#))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpWr}#
+ #{ids
-ANAU$bmvAmthP7L7xwpWs}#)
(call-with-values
(lambda ()
- (#{v-reverse 10973}#
- #{ys 11519}#))
- (lambda (#{ys 11555}#
- #{e 11556}#)
+ (#{v-reverse
-ANAU$bmvAmthP7L7xwpOH}#
+ #{ys
-ANAU$bmvAmthP7L7xwpWp}#))
+ (lambda (#{ys
-ANAU$bmvAmthP7L7xwpXN}#
+ #{e
-ANAU$bmvAmthP7L7xwpXO}#)
(values
(vector
'each+
- #{x 11521}#
- #{ys 11555}#
- #{e 11556}#)
- #{ids 11522}#))))))))
- #{tmp 11408}#)
- (let ((#{tmp 11557}#
+ #{x
-ANAU$bmvAmthP7L7xwpWr}#
+ #{ys
-ANAU$bmvAmthP7L7xwpXN}#
+ #{e
-ANAU$bmvAmthP7L7xwpXO}#)
+ #{ids
-ANAU$bmvAmthP7L7xwpWs}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpXP}#
($sc-dispatch
- #{p 10977}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(any . any))))
- (if #{tmp 11557}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwpXP}#
(@apply
- (lambda (#{x 11561}# #{y 11562}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpXT}#
+ #{y -ANAU$bmvAmthP7L7xwpXU}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{y 11562}#
- #{n 10978}#
- #{ids 10979}#))
- (lambda (#{y 11563}# #{ids 11564}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{y -ANAU$bmvAmthP7L7xwpXU}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{y -ANAU$bmvAmthP7L7xwpXV}#
+ #{ids
-ANAU$bmvAmthP7L7xwpXW}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11561}#
- #{n 10978}#
- #{ids 11564}#))
- (lambda (#{x 11565}#
- #{ids 11566}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{x -ANAU$bmvAmthP7L7xwpXT}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids
-ANAU$bmvAmthP7L7xwpXW}#))
+ (lambda (#{x
-ANAU$bmvAmthP7L7xwpXX}#
+ #{ids
-ANAU$bmvAmthP7L7xwpXY}#)
(values
- (cons #{x 11565}#
- #{y 11563}#)
- #{ids 11566}#))))))
- #{tmp 11557}#)
- (let ((#{tmp 11567}#
- ($sc-dispatch #{p 10977}# '())))
- (if #{tmp 11567}#
+ (cons #{x
-ANAU$bmvAmthP7L7xwpXX}#
+ #{y
-ANAU$bmvAmthP7L7xwpXV}#)
+ #{ids
-ANAU$bmvAmthP7L7xwpXY}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwpXP}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpXZ}#
+ ($sc-dispatch
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xwpXZ}#
(@apply
(lambda ()
- (values '() #{ids 10979}#))
- #{tmp 11567}#)
- (let ((#{tmp 11571}#
+ (values
+ '()
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ #{tmp -ANAU$bmvAmthP7L7xwpXZ}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpXd}#
($sc-dispatch
- #{p 10977}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'#(vector each-any))))
- (if #{tmp 11571}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwpXd}#
(@apply
- (lambda (#{x 11575}#)
+ (lambda (#{x
-ANAU$bmvAmthP7L7xwpXh}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11575}#
- #{n 10978}#
- #{ids 10979}#))
- (lambda (#{p 11576}#
- #{ids 11577}#)
+ (#{cvt
-ANAU$bmvAmthP7L7xwpOI}#
+ #{x
-ANAU$bmvAmthP7L7xwpXh}#
+ #{n
-ANAU$bmvAmthP7L7xwpOM}#
+ #{ids
-ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{p
-ANAU$bmvAmthP7L7xwpXi}#
+ #{ids
-ANAU$bmvAmthP7L7xwpXj}#)
(values
(vector
'vector
- #{p 11576}#)
- #{ids 11577}#))))
- #{tmp 11571}#)
+ #{p
-ANAU$bmvAmthP7L7xwpXi}#)
+ #{ids
-ANAU$bmvAmthP7L7xwpXj}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwpXd}#)
(values
(vector
'atom
- (#{strip 2791}#
- #{p 10977}#
+ (#{strip
-ANAU$bmvAmthP7L7xwnOR}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(())))
- #{ids 10979}#)))))))))))))))
- (#{cvt 10974}# #{pattern 10970}# 0 '()))))
- (#{build-dispatch-call 9376}#
- (lambda (#{pvars 11690}#
- #{exp 11691}#
- #{y 11692}#
- #{r 11693}#
- #{mod 11694}#)
- (let ((#{ids 11695}# (map car #{pvars 11690}#)))
+ #{ids
-ANAU$bmvAmthP7L7xwpON}#)))))))))))))))
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{pattern -ANAU$bmvAmthP7L7xwpOE}#
+ 0
+ '()))))
+ (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}#
+ (lambda (#{pvars -ANAU$bmvAmthP7L7xwpZU}#
+ #{exp -ANAU$bmvAmthP7L7xwpZV}#
+ #{y -ANAU$bmvAmthP7L7xwpZW}#
+ #{r -ANAU$bmvAmthP7L7xwpZX}#
+ #{mod -ANAU$bmvAmthP7L7xwpZY}#)
+ (let ((#{ids -ANAU$bmvAmthP7L7xwpZZ}#
+ (map car #{pvars -ANAU$bmvAmthP7L7xwpZU}#)))
(begin
- (map cdr #{pvars 11690}#)
- (let ((#{labels 11697}#
- (#{gen-labels 2746}# #{ids 11695}#))
- (#{new-vars 11698}#
- (map #{gen-var 2792}# #{ids 11695}#)))
- (#{build-application 2710}#
+ (map cdr #{pvars -ANAU$bmvAmthP7L7xwpZU}#)
+ (let ((#{labels -ANAU$bmvAmthP7L7xwpZb}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{ids -ANAU$bmvAmthP7L7xwpZZ}#))
+ (#{new-vars -ANAU$bmvAmthP7L7xwpZc}#
+ (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
+ #{ids -ANAU$bmvAmthP7L7xwpZZ}#)))
+ (#{build-application address@hidden
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -15465,81 +16553,89 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda 2719}#
+ (list (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
#f
- (map syntax->datum #{ids 11695}#)
+ (map syntax->datum
+ #{ids -ANAU$bmvAmthP7L7xwpZZ}#)
#f
- #{new-vars 11698}#
+ #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
'()
- (#{expand 2778}#
- #{exp 11691}#
- (#{extend-env 2737}#
- #{labels 11697}#
- (map (lambda (#{var 12017}# #{level 12018}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{exp -ANAU$bmvAmthP7L7xwpZV}#
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ #{labels -ANAU$bmvAmthP7L7xwpZb}#
+ (map (lambda (#{var -ANAU$bmvAmthP7L7xwpeb}#
+ #{level
-ANAU$bmvAmthP7L7xwpec}#)
(cons 'syntax
- (cons #{var 12017}#
- #{level 12018}#)))
- #{new-vars 11698}#
- (map cdr #{pvars 11690}#))
- #{r 11693}#)
- (#{make-binding-wrap 2757}#
- #{ids 11695}#
- #{labels 11697}#
+ (cons #{var
-ANAU$bmvAmthP7L7xwpeb}#
+ #{level
-ANAU$bmvAmthP7L7xwpec}#)))
+ #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
+ (map cdr
+ #{pvars -ANAU$bmvAmthP7L7xwpZU}#))
+ #{r -ANAU$bmvAmthP7L7xwpZX}#)
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{ids -ANAU$bmvAmthP7L7xwpZZ}#
+ #{labels -ANAU$bmvAmthP7L7xwpZb}#
'(()))
- #{mod 11694}#))
- #{y 11692}#)))))))
- (#{gen-clause 9377}#
- (lambda (#{x 10342}#
- #{keys 10343}#
- #{clauses 10344}#
- #{r 10345}#
- #{pat 10346}#
- #{fender 10347}#
- #{exp 10348}#
- #{mod 10349}#)
+ #{mod -ANAU$bmvAmthP7L7xwpZY}#))
+ #{y -ANAU$bmvAmthP7L7xwpZW}#)))))))
+ (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpEQ}#
+ #{keys -ANAU$bmvAmthP7L7xwpER}#
+ #{clauses -ANAU$bmvAmthP7L7xwpES}#
+ #{r -ANAU$bmvAmthP7L7xwpET}#
+ #{pat -ANAU$bmvAmthP7L7xwpEU}#
+ #{fender -ANAU$bmvAmthP7L7xwpEV}#
+ #{exp -ANAU$bmvAmthP7L7xwpEW}#
+ #{mod -ANAU$bmvAmthP7L7xwpEX}#)
(call-with-values
(lambda ()
- (#{convert-pattern 9375}#
- #{pat 10346}#
- #{keys 10343}#))
- (lambda (#{p 10504}# #{pvars 10505}#)
- (if (not (#{distinct-bound-ids? 2769}#
- (map car #{pvars 10505}#)))
+ (#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}#
+ #{pat -ANAU$bmvAmthP7L7xwpEU}#
+ #{keys -ANAU$bmvAmthP7L7xwpER}#))
+ (lambda (#{p -ANAU$bmvAmthP7L7xwpGy}#
+ #{pvars -ANAU$bmvAmthP7L7xwpGz}#)
+ (if (not (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ (map car #{pvars -ANAU$bmvAmthP7L7xwpGz}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 10346}#)
+ #{pat -ANAU$bmvAmthP7L7xwpEU}#)
(if (not (and-map
- (lambda (#{x 10621}#)
- (not (let ((#{x 10625}# (car #{x 10621}#)))
- (if (if (if (vector? #{x 10625}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpIn}#)
+ (not (let ((#{x -ANAU$bmvAmthP7L7xwpIr}#
+ (car #{x
-ANAU$bmvAmthP7L7xwpIn}#)))
+ (if (if (if (vector?
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#)
(if (= (vector-length
- #{x 10625}#)
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#)
4)
(eq? (vector-ref
- #{x 10625}#
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 10625}# 1))
+ (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwpIr}#
+ 1))
#f)
(if (eq? (if (if (vector?
- #{x 10625}#)
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#)
(if (= (vector-length
- #{x 10625}#)
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#)
4)
(eq? (vector-ref
- #{x 10625}#
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x 10625}#
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#
1)
- #{x 10625}#)
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15555,7 +16651,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -15588,6 +16684,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -15834,8 +16931,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -15998,7 +17097,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -16031,6 +17130,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -16277,8 +17377,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -16424,10 +17526,10 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{x 10625}#
+ (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{x
-ANAU$bmvAmthP7L7xwpIr}#
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -16436,7 +17538,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -16469,6 +17571,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -16715,8 +17818,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -16865,42 +17970,44 @@
'(())))
#f)
#f))))
- #{pvars 10505}#))
+ #{pvars -ANAU$bmvAmthP7L7xwpGz}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 10346}#)
- (let ((#{y 10701}#
+ #{pat -ANAU$bmvAmthP7L7xwpEU}#)
+ (let ((#{y -ANAU$bmvAmthP7L7xwpJ3}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 2710}#
+ (#{build-application address@hidden
#f
- (let ((#{req 10844}# (list 'tmp))
- (#{vars 10846}# (list #{y 10701}#))
- (#{exp 10848}#
- (let ((#{y 10865}#
+ (let ((#{req -ANAU$bmvAmthP7L7xwpMG}# (list 'tmp))
+ (#{vars -ANAU$bmvAmthP7L7xwpMI}#
+ (list #{y -ANAU$bmvAmthP7L7xwpJ3}#))
+ (#{exp -ANAU$bmvAmthP7L7xwpMK}#
+ (let ((#{y -ANAU$bmvAmthP7L7xwpMb}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y 10701}#)))
- (let ((#{test-exp 10869}#
- (let ((#{tmp 10878}#
+ #{y -ANAU$bmvAmthP7L7xwpJ3}#)))
+ (let ((#{test-exp -ANAU$bmvAmthP7L7xwpMf}#
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwpMo}#
($sc-dispatch
- #{fender 10347}#
+ #{fender
-ANAU$bmvAmthP7L7xwpEV}#
'#(atom #t))))
- (if #{tmp 10878}#
+ (if #{tmp
-ANAU$bmvAmthP7L7xwpMo}#
(@apply
- (lambda () #{y 10865}#)
- #{tmp 10878}#)
- (let ((#{then-exp 10896}#
-
(#{build-dispatch-call 9376}#
- #{pvars 10505}#
- #{fender 10347}#
- #{y 10865}#
- #{r 10345}#
- #{mod 10349}#))
- (#{else-exp 10897}#
+ (lambda ()
+ #{y
-ANAU$bmvAmthP7L7xwpMb}#)
+ #{tmp
-ANAU$bmvAmthP7L7xwpMo}#)
+ (let ((#{then-exp
-ANAU$bmvAmthP7L7xwpM6}#
+
(#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}#
+ #{pvars
-ANAU$bmvAmthP7L7xwpGz}#
+ #{fender
-ANAU$bmvAmthP7L7xwpEV}#
+ #{y
-ANAU$bmvAmthP7L7xwpMb}#
+ #{r
-ANAU$bmvAmthP7L7xwpET}#
+ #{mod
-ANAU$bmvAmthP7L7xwpEX}#))
+ (#{else-exp
-ANAU$bmvAmthP7L7xwpM7}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -16912,48 +18019,48 @@
%expanded-vtables
10)
#f
- #{y 10865}#
- #{then-exp 10896}#
- #{else-exp 10897}#)))))
- (#{then-exp 10870}#
- (#{build-dispatch-call 9376}#
- #{pvars 10505}#
- #{exp 10348}#
- #{y 10865}#
- #{r 10345}#
- #{mod 10349}#))
- (#{else-exp 10871}#
- (#{gen-syntax-case 9378}#
- #{x 10342}#
- #{keys 10343}#
- #{clauses 10344}#
- #{r 10345}#
- #{mod 10349}#)))
+ #{y
-ANAU$bmvAmthP7L7xwpMb}#
+ #{then-exp
-ANAU$bmvAmthP7L7xwpM6}#
+ #{else-exp
-ANAU$bmvAmthP7L7xwpM7}#)))))
+ (#{then-exp -ANAU$bmvAmthP7L7xwpMg}#
+ (#{build-dispatch-call
-ANAU$bmvAmthP7L7xwo1K}#
+ #{pvars -ANAU$bmvAmthP7L7xwpGz}#
+ #{exp -ANAU$bmvAmthP7L7xwpEW}#
+ #{y -ANAU$bmvAmthP7L7xwpMb}#
+ #{r -ANAU$bmvAmthP7L7xwpET}#
+ #{mod -ANAU$bmvAmthP7L7xwpEX}#))
+ (#{else-exp -ANAU$bmvAmthP7L7xwpMh}#
+ (#{gen-syntax-case
-ANAU$bmvAmthP7L7xwo1M}#
+ #{x -ANAU$bmvAmthP7L7xwpEQ}#
+ #{keys -ANAU$bmvAmthP7L7xwpER}#
+ #{clauses
-ANAU$bmvAmthP7L7xwpES}#
+ #{r -ANAU$bmvAmthP7L7xwpET}#
+ #{mod
-ANAU$bmvAmthP7L7xwpEX}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 10869}#
- #{then-exp 10870}#
- #{else-exp 10871}#)))))
- (let ((#{body 10853}#
+ #{test-exp -ANAU$bmvAmthP7L7xwpMf}#
+ #{then-exp -ANAU$bmvAmthP7L7xwpMg}#
+ #{else-exp
-ANAU$bmvAmthP7L7xwpMh}#)))))
+ (let ((#{body -ANAU$bmvAmthP7L7xwpMP}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 10844}#
+ #{req -ANAU$bmvAmthP7L7xwpMG}#
#f
#f
#f
'()
- #{vars 10846}#
- #{exp 10848}#
+ #{vars -ANAU$bmvAmthP7L7xwpMI}#
+ #{exp -ANAU$bmvAmthP7L7xwpMK}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 10853}#)))
- (list (if (eq? #{p 10504}# 'any)
- (let ((#{fun-exp 10919}#
+ #{body -ANAU$bmvAmthP7L7xwpMP}#)))
+ (list (if (eq? #{p -ANAU$bmvAmthP7L7xwpGy}# 'any)
+ (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16967,14 +18074,14 @@
'(guile)
'list
#f)))
- (#{arg-exps 10920}#
- (list #{x 10342}#)))
+ (#{arg-exps -ANAU$bmvAmthP7L7xwpNS}#
+ (list #{x
-ANAU$bmvAmthP7L7xwpEQ}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 10919}#
- #{arg-exps 10920}#))
- (let ((#{fun-exp 10943}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwpNS}#))
+ (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNp}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16988,27 +18095,27 @@
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps 10944}#
- (list #{x 10342}#
+ (#{arg-exps -ANAU$bmvAmthP7L7xwpNq}#
+ (list #{x -ANAU$bmvAmthP7L7xwpEQ}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 10504}#))))
+ #{p
-ANAU$bmvAmthP7L7xwpGy}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 10943}#
- #{arg-exps 10944}#))))))))))))
- (#{gen-syntax-case 9378}#
- (lambda (#{x 9777}#
- #{keys 9778}#
- #{clauses 9779}#
- #{r 9780}#
- #{mod 9781}#)
- (if (null? #{clauses 9779}#)
- (let ((#{fun-exp 9786}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwpNp}#
+ #{arg-exps
-ANAU$bmvAmthP7L7xwpNq}#))))))))))))
+ (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwo7b}#
+ #{keys -ANAU$bmvAmthP7L7xwo7c}#
+ #{clauses -ANAU$bmvAmthP7L7xwo7d}#
+ #{r -ANAU$bmvAmthP7L7xwo7e}#
+ #{mod -ANAU$bmvAmthP7L7xwo7f}#)
+ (if (null? #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
+ (let ((#{fun-exp -ANAU$bmvAmthP7L7xwo7k}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -17020,7 +18127,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps 9787}#
+ (#{arg-exps -ANAU$bmvAmthP7L7xwo7l}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -17029,63 +18136,77 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any
pattern")
- #{x 9777}#)))
+ #{x -ANAU$bmvAmthP7L7xwo7b}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 9786}#
- #{arg-exps 9787}#))
- (let ((#{tmp 9820}# (car #{clauses 9779}#)))
- (let ((#{tmp 9821}#
- ($sc-dispatch #{tmp 9820}# '(any any))))
- (if #{tmp 9821}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwo7k}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwo7l}#))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwo8G}#
+ (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwo8H}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwo8G}#
+ '(any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwo8H}#
(@apply
- (lambda (#{pat 9823}# #{exp 9824}#)
- (if (if (if (symbol? #{pat 9823}#)
+ (lambda (#{pat -ANAU$bmvAmthP7L7xwo8J}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#)
+ (if (if (if (symbol? #{pat -ANAU$bmvAmthP7L7xwo8J}#)
#t
- (if (if (vector? #{pat 9823}#)
- (if (= (vector-length #{pat 9823}#)
+ (if (if (vector?
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ (if (= (vector-length
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
4)
- (eq? (vector-ref #{pat 9823}# 0)
+ (eq? (vector-ref
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 9823}# 1))
+ (symbol?
+ (vector-ref
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
+ 1))
#f))
(and-map
- (lambda (#{x 9851}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwo8l}#)
(not (if (eq? (if (if (vector?
- #{pat 9823}#)
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
(if (= (vector-length
- #{pat 9823}#)
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
4)
(eq? (vector-ref
- #{pat 9823}#
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{pat 9823}#
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#
1)
- #{pat 9823}#)
- (if (if (vector? #{x 9851}#)
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
+ (if (if (vector?
+ #{x
-ANAU$bmvAmthP7L7xwo8l}#)
(if (= (vector-length
- #{x 9851}#)
+ #{x
-ANAU$bmvAmthP7L7xwo8l}#)
4)
(eq? (vector-ref
- #{x 9851}#
+ #{x
-ANAU$bmvAmthP7L7xwo8l}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 9851}# 1)
- #{x 9851}#))
- (eq? (#{id-var-name 2762}#
- #{pat 9823}#
+ (vector-ref
+ #{x
-ANAU$bmvAmthP7L7xwo8l}#
+ 1)
+ #{x
-ANAU$bmvAmthP7L7xwo8l}#))
+ (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#
'(()))
- (#{id-var-name 2762}#
- #{x 9851}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwo8l}#
'(())))
#f)))
(cons '#(syntax-object
@@ -17094,23 +18215,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -17143,6 +18264,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -17389,8 +18511,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -17536,7 +18660,7 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))
- #{keys 9778}#))
+ #{keys -ANAU$bmvAmthP7L7xwo7c}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17545,7 +18669,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17558,11 +18682,11 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17572,10 +18696,10 @@
(top)
(top)
(top))
- ("151"
- "150"
- "14z"
- "14y"))
+ ("15s"
+ "15r"
+ "15q"
+ "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -17608,6 +18732,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -17854,8 +18979,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -18013,7 +19140,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18022,18 +19149,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -18066,6 +19193,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -18312,8 +19440,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -18466,7 +19596,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18479,11 +19609,11 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18493,10 +19623,10 @@
(top)
(top)
(top))
- ("151"
- "150"
- "14z"
- "14y"))
+ ("15s"
+ "15r"
+ "15q"
+ "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -18529,6 +19659,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -18775,8 +19906,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -18934,7 +20067,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18943,18 +20076,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -18987,6 +20120,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -19233,8 +20367,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -19380,14 +20516,14 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19396,18 +20532,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -19440,6 +20576,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -19686,8 +20823,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -19834,14 +20973,14 @@
("8" "7" "6")))
(hygiene guile))
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19850,18 +20989,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -19894,6 +21033,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -20140,8 +21280,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -20289,137 +21431,168 @@
(hygiene guile))
'(())))
#f)
- (#{expand 2778}#
- #{exp 9824}#
- #{r 9780}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#
+ #{r -ANAU$bmvAmthP7L7xwo7e}#
'(())
- #{mod 9781}#)
- (let ((#{labels 10027}#
- (list (#{gen-label 2745}#)))
- (#{var 10028}#
- (let ((#{id 10066}#
- (if (if (vector? #{pat 9823}#)
+ #{mod -ANAU$bmvAmthP7L7xwo7f}#)
+ (let ((#{labels address@hidden
+ (list (#{gen-label
-ANAU$bmvAmthP7L7xwnNi}#)))
+ (#{var address@hidden
+ (let ((#{id address@hidden
+ (if (if (vector?
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
(if (= (vector-length
- #{pat 9823}#)
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
4)
(eq? (vector-ref
- #{pat 9823}#
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 9823}# 1)
- #{pat 9823}#)))
+ (vector-ref
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#
+ 1)
+ #{pat
-ANAU$bmvAmthP7L7xwo8J}#)))
(gensym
(string-append
- (symbol->string #{id 10066}#)
+ (symbol->string
+ #{id address@hidden)
" ")))))
- (#{build-application 2710}#
+ (#{build-application address@hidden
#f
- (#{build-simple-lambda 2719}#
+ (#{build-simple-lambda
-ANAU$bmvAmthP7L7xwnNI}#
#f
- (list (syntax->datum #{pat 9823}#))
+ (list (syntax->datum
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#))
#f
- (list #{var 10028}#)
+ (list #{var address@hidden)
'()
- (#{expand 2778}#
- #{exp 9824}#
- (#{extend-env 2737}#
- #{labels 10027}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ #{labels address@hidden
(list (cons 'syntax
- (cons #{var 10028}# 0)))
- #{r 9780}#)
- (#{make-binding-wrap 2757}#
- (list #{pat 9823}#)
- #{labels 10027}#
+ (cons #{var address@hidden
+ 0)))
+ #{r -ANAU$bmvAmthP7L7xwo7e}#)
+ (#{make-binding-wrap
-ANAU$bmvAmthP7L7xwnNu}#
+ (list #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ #{labels address@hidden
'(()))
- #{mod 9781}#))
- (list #{x 9777}#))))
- (#{gen-clause 9377}#
- #{x 9777}#
- #{keys 9778}#
- (cdr #{clauses 9779}#)
- #{r 9780}#
- #{pat 9823}#
+ #{mod -ANAU$bmvAmthP7L7xwo7f}#))
+ (list #{x -ANAU$bmvAmthP7L7xwo7b}#))))
+ (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
+ #{x -ANAU$bmvAmthP7L7xwo7b}#
+ #{keys -ANAU$bmvAmthP7L7xwo7c}#
+ (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
+ #{r -ANAU$bmvAmthP7L7xwo7e}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
#t
- #{exp 9824}#
- #{mod 9781}#)))
- #{tmp 9821}#)
- (let ((#{tmp 10334}#
- ($sc-dispatch #{tmp 9820}# '(any any any))))
- (if #{tmp 10334}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#
+ #{mod -ANAU$bmvAmthP7L7xwo7f}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwo8H}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpEI}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwo8G}#
+ '(any any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwpEI}#
(@apply
- (lambda (#{pat 10336}#
- #{fender 10337}#
- #{exp 10338}#)
- (#{gen-clause 9377}#
- #{x 9777}#
- #{keys 9778}#
- (cdr #{clauses 9779}#)
- #{r 9780}#
- #{pat 10336}#
- #{fender 10337}#
- #{exp 10338}#
- #{mod 9781}#))
- #{tmp 10334}#)
+ (lambda (#{pat -ANAU$bmvAmthP7L7xwpEK}#
+ #{fender -ANAU$bmvAmthP7L7xwpEL}#
+ #{exp -ANAU$bmvAmthP7L7xwpEM}#)
+ (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
+ #{x -ANAU$bmvAmthP7L7xwo7b}#
+ #{keys -ANAU$bmvAmthP7L7xwo7c}#
+ (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
+ #{r -ANAU$bmvAmthP7L7xwo7e}#
+ #{pat -ANAU$bmvAmthP7L7xwpEK}#
+ #{fender -ANAU$bmvAmthP7L7xwpEL}#
+ #{exp -ANAU$bmvAmthP7L7xwpEM}#
+ #{mod -ANAU$bmvAmthP7L7xwo7f}#))
+ #{tmp -ANAU$bmvAmthP7L7xwpEI}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 9779}#)))))))))))
- (lambda (#{e 9379}#
- #{r 9380}#
- #{w 9381}#
- #{s 9382}#
- #{mod 9383}#)
- (let ((#{e 9384}#
- (#{wrap 2771}#
+ (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#)))))))))))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwo1N}#
+ #{r -ANAU$bmvAmthP7L7xwo1O}#
+ #{w -ANAU$bmvAmthP7L7xwo1P}#
+ #{s -ANAU$bmvAmthP7L7xwo1Q}#
+ #{mod -ANAU$bmvAmthP7L7xwo1R}#)
+ (let ((#{e -ANAU$bmvAmthP7L7xwo1S}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e 9379}#) #{s 9382}# #f)
- (set-source-properties! #{e 9379}# #{s 9382}#))
- #{e 9379}#)
- #{w 9381}#
- #{mod 9383}#)))
- (let ((#{tmp 9386}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwo1N}#)
+ #{s -ANAU$bmvAmthP7L7xwo1Q}#
+ #f)
+ (set-source-properties!
+ #{e -ANAU$bmvAmthP7L7xwo1N}#
+ #{s -ANAU$bmvAmthP7L7xwo1Q}#))
+ #{e -ANAU$bmvAmthP7L7xwo1N}#)
+ #{w -ANAU$bmvAmthP7L7xwo1P}#
+ #{mod -ANAU$bmvAmthP7L7xwo1R}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwo1U}#
($sc-dispatch
- #{e 9384}#
+ #{e -ANAU$bmvAmthP7L7xwo1S}#
'(_ any each-any . each-any))))
- (if #{tmp 9386}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwo1U}#
(@apply
- (lambda (#{val 9411}# #{key 9412}# #{m 9413}#)
+ (lambda (#{val -ANAU$bmvAmthP7L7xwo1t}#
+ #{key -ANAU$bmvAmthP7L7xwo1u}#
+ #{m -ANAU$bmvAmthP7L7xwo1v}#)
(if (and-map
- (lambda (#{x 9414}#)
- (if (if (symbol? #{x 9414}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (if (if (symbol? #{x -ANAU$bmvAmthP7L7xwo1w}#)
#t
- (if (if (vector? #{x 9414}#)
- (if (= (vector-length #{x 9414}#) 4)
- (eq? (vector-ref #{x 9414}# 0)
+ (if (if (vector?
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (if (= (vector-length
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#)
+ 4)
+ (eq? (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 9414}# 1))
+ (symbol?
+ (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
+ 1))
#f))
- (not (if (if (if (vector? #{x 9414}#)
+ (not (if (if (if (vector?
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#)
(if (= (vector-length
- #{x 9414}#)
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#)
4)
- (eq? (vector-ref #{x 9414}# 0)
+ (eq? (vector-ref
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 9414}# 1))
+ (symbol?
+ (vector-ref
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
+ 1))
#f)
- (if (eq? (if (if (vector? #{x 9414}#)
+ (if (eq? (if (if (vector?
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#)
(if (= (vector-length
- #{x 9414}#)
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#)
4)
(eq? (vector-ref
- #{x 9414}#
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 9414}# 1)
- #{x 9414}#)
+ (vector-ref
+ #{x
-ANAU$bmvAmthP7L7xwo1w}#
+ 1)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -20435,7 +21608,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -20468,6 +21641,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -20714,8 +21888,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -20878,7 +22054,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -20911,6 +22087,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -21157,8 +22334,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -21304,10 +22483,10 @@
((top) (top) (top))
("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{x 9414}#
+ (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -21316,7 +22495,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -21349,6 +22528,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+
locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -21595,8 +22775,10 @@
(top)
(top)
(top)
+ (top)
(top))
- ("5k"
+ ("5l"
+ "5k"
"5j"
"5i"
"5h"
@@ -21746,700 +22928,912 @@
#f)
#f))
#f))
- #{key 9412}#)
- (let ((#{x 9540}#
+ #{key -ANAU$bmvAmthP7L7xwo1u}#)
+ (let ((#{x -ANAU$bmvAmthP7L7xwo3u}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 2710}#
- #{s 9382}#
- (let ((#{req 9670}# (list 'tmp))
- (#{vars 9672}# (list #{x 9540}#))
- (#{exp 9674}#
- (#{gen-syntax-case 9378}#
+ (#{build-application address@hidden
+ #{s -ANAU$bmvAmthP7L7xwo1Q}#
+ (let ((#{req -ANAU$bmvAmthP7L7xwo5w}# (list 'tmp))
+ (#{vars -ANAU$bmvAmthP7L7xwo5y}#
+ (list #{x -ANAU$bmvAmthP7L7xwo3u}#))
+ (#{exp -ANAU$bmvAmthP7L7xwo50}#
+ (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 9540}#)
- #{key 9412}#
- #{m 9413}#
- #{r 9380}#
- #{mod 9383}#)))
- (let ((#{body 9679}#
+ #{x -ANAU$bmvAmthP7L7xwo3u}#)
+ #{key -ANAU$bmvAmthP7L7xwo1u}#
+ #{m -ANAU$bmvAmthP7L7xwo1v}#
+ #{r -ANAU$bmvAmthP7L7xwo1O}#
+ #{mod -ANAU$bmvAmthP7L7xwo1R}#)))
+ (let ((#{body -ANAU$bmvAmthP7L7xwo55}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 9670}#
+ #{req -ANAU$bmvAmthP7L7xwo5w}#
#f
#f
#f
'()
- #{vars 9672}#
- #{exp 9674}#
+ #{vars -ANAU$bmvAmthP7L7xwo5y}#
+ #{exp -ANAU$bmvAmthP7L7xwo50}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 9679}#)))
- (list (#{expand 2778}#
- #{val 9411}#
- #{r 9380}#
+ #{body -ANAU$bmvAmthP7L7xwo55}#)))
+ (list (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{val -ANAU$bmvAmthP7L7xwo1t}#
+ #{r -ANAU$bmvAmthP7L7xwo1O}#
'(())
- #{mod 9383}#))))
+ #{mod -ANAU$bmvAmthP7L7xwo1R}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 9384}#)))
- #{tmp 9386}#)
+ #{e -ANAU$bmvAmthP7L7xwo1S}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwo1U}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 9384}#)))))))
+ #{e -ANAU$bmvAmthP7L7xwo1S}#)))))))
(set! macroexpand
(lambda*
- (#{x 12087}#
+ (#{x -ANAU$bmvAmthP7L7xwpfh}#
#:optional
- (#{m 12088}# 'e)
- (#{esew 12089}# '(eval)))
- (#{expand-top-sequence 2774}#
- (list #{x 12087}#)
+ (#{m -ANAU$bmvAmthP7L7xwpfi}# 'e)
+ (#{esew -ANAU$bmvAmthP7L7xwpfj}# '(eval)))
+ (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
+ (list #{x -ANAU$bmvAmthP7L7xwpfh}#)
'()
'((top))
#f
- #{m 12088}#
- #{esew 12089}#
+ #{m -ANAU$bmvAmthP7L7xwpfi}#
+ #{esew -ANAU$bmvAmthP7L7xwpfj}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 12092}#)
- (if (if (vector? #{x 12092}#)
- (if (= (vector-length #{x 12092}#) 4)
- (eq? (vector-ref #{x 12092}# 0) 'syntax-object)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpfm}#)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpfm}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpfm}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12092}# 1))
+ (symbol?
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 12117}# #{datum 12118}#)
- (let ((#{wrap 12123}# (vector-ref #{id 12117}# 2))
- (#{module 12124}# (vector-ref #{id 12117}# 3)))
+ (lambda (#{id address@hidden
+ #{datum -ANAU$bmvAmthP7L7xwpgA}#)
+ (let ((#{wrap -ANAU$bmvAmthP7L7xwpgF}#
+ (vector-ref #{id address@hidden 2))
+ (#{module -ANAU$bmvAmthP7L7xwpgG}#
+ (vector-ref #{id address@hidden 3)))
(vector
'syntax-object
- #{datum 12118}#
- #{wrap 12123}#
- #{module 12124}#))))
+ #{datum -ANAU$bmvAmthP7L7xwpgA}#
+ #{wrap -ANAU$bmvAmthP7L7xwpgF}#
+ #{module -ANAU$bmvAmthP7L7xwpgG}#))))
(set! syntax->datum
- (lambda (#{x 12131}#)
- (#{strip 2791}# #{x 12131}# '(()))))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpgN}#)
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{x -ANAU$bmvAmthP7L7xwpgN}#
+ '(()))))
(set! syntax-source
- (lambda (#{x 12134}#)
- (#{source-annotation 2736}# #{x 12134}#)))
- (set! syntax-local-binding
- (lambda (#{id 12287}#)
- (begin
- (if (not (if (if (vector? #{id 12287}#)
- (if (= (vector-length #{id 12287}#) 4)
- (eq? (vector-ref #{id 12287}# 0) 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{id 12287}# 1))
- #f))
- (syntax-violation
- 'syntax-local-value
- "invalid argument"
- #{id 12287}#))
- ((fluid-ref #{transformer-environment 2764}#)
- (lambda (#{e 12328}#
- #{r 12329}#
- #{w 12330}#
- #{s 12331}#
- #{rib 12332}#
- #{mod 12333}#)
- (call-with-values
- (lambda ()
- (let ((#{id 12336}# (vector-ref #{id 12287}# 1))
- (#{w 12337}#
- (let ((#{w 12348}# (vector-ref #{id 12287}# 2)))
- (let ((#{ms 12349}# (car #{w 12348}#))
- (#{s 12350}# (cdr #{w 12348}#)))
- (if (if (pair? #{ms 12349}#)
- (eq? (car #{ms 12349}#) #f)
- #f)
- (cons (cdr #{ms 12349}#)
- (if #{rib 12332}#
- (cons #{rib 12332}# (cdr #{s 12350}#))
- (cdr #{s 12350}#)))
- (cons #{ms 12349}#
- (if #{rib 12332}#
- (cons #{rib 12332}# #{s 12350}#)
- #{s 12350}#))))))
- (#{mod 12339}# (vector-ref #{id 12287}# 3)))
- (let ((#{n 12342}#
- (#{id-var-name 2762}# #{id 12336}# #{w 12337}#)))
- (if (symbol? #{n 12342}#)
- (let ((#{mod 12356}#
- (if (if (vector? #{id 12336}#)
- (if (= (vector-length #{id 12336}#) 4)
- (eq? (vector-ref #{id 12336}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 12336}# 3)
- #{mod 12339}#)))
- (let ((#{b 12357}#
- (let ((#{t 12358}#
- (#{get-global-definition-hook 2706}#
- #{n 12342}#
- #{mod 12356}#)))
- (if #{t 12358}# #{t 12358}# '(global)))))
- (if (eq? (car #{b 12357}#) 'global)
- (values 'global #{n 12342}# #{mod 12356}#)
- (values
- (car #{b 12357}#)
- (cdr #{b 12357}#)
- #{mod 12356}#))))
- (if (string? #{n 12342}#)
- (let ((#{mod 12384}#
- (if (if (vector? #{id 12336}#)
- (if (= (vector-length #{id 12336}#) 4)
- (eq? (vector-ref #{id 12336}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 12336}# 3)
- #{mod 12339}#)))
- (let ((#{b 12385}#
- (let ((#{t 12386}#
- (assq-ref
- #{r 12329}#
- #{n 12342}#)))
- (if #{t 12386}#
- #{t 12386}#
- '(displaced-lexical)))))
- (values
- (car #{b 12385}#)
- (cdr #{b 12385}#)
- #{mod 12384}#)))
- (error "unexpected id-var-name"
- #{id 12336}#
- #{w 12337}#
- #{n 12342}#))))))
- (lambda (#{type 12399}# #{value 12400}# #{mod 12401}#)
- (if (eqv? #{type 12399}# 'lexical)
- (values 'lexical #{value 12400}#)
- (if (eqv? #{type 12399}# 'macro)
- (values 'macro #{value 12400}#)
- (if (eqv? #{type 12399}# 'syntax)
- (values 'pattern-variable #{value 12400}#)
- (if (eqv? #{type 12399}# 'displaced-lexical)
- (values 'displaced-lexical #f)
- (if (eqv? #{type 12399}# 'global)
- (values
- 'global
- (cons #{value 12400}# #{mod 12401}#))
- (values 'other #f)))))))))))))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpgQ}#)
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{x -ANAU$bmvAmthP7L7xwpgQ}#)))
(set! generate-temporaries
- (lambda (#{ls 12412}#)
+ (lambda (#{ls -ANAU$bmvAmthP7L7xwpip}#)
(begin
- (if (not (list? #{ls 12412}#))
+ (if (not (list? #{ls -ANAU$bmvAmthP7L7xwpip}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 12412}#))
- (let ((#{mod 12420}#
+ #{ls -ANAU$bmvAmthP7L7xwpip}#))
+ (let ((#{mod -ANAU$bmvAmthP7L7xwpix}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 12421}#)
- (#{wrap 2771}# (gensym) '((top)) #{mod 12420}#))
- #{ls 12412}#)))))
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwpiy}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (gensym)
+ '((top))
+ #{mod -ANAU$bmvAmthP7L7xwpix}#))
+ #{ls -ANAU$bmvAmthP7L7xwpip}#)))))
(set! free-identifier=?
- (lambda (#{x 12425}# #{y 12426}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpi2}#
+ #{y -ANAU$bmvAmthP7L7xwpi3}#)
(begin
- (if (not (if (if (vector? #{x 12425}#)
- (if (= (vector-length #{x 12425}#) 4)
- (eq? (vector-ref #{x 12425}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12425}# 1))
+ (symbol?
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 12425}#))
- (if (not (if (if (vector? #{y 12426}#)
- (if (= (vector-length #{y 12426}#) 4)
- (eq? (vector-ref #{y 12426}# 0) 'syntax-object)
+ #{x -ANAU$bmvAmthP7L7xwpi2}#))
+ (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#)
+ (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#)
+ 4)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 12426}# 1))
+ (symbol?
+ (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 12426}#))
- (if (eq? (if (if (vector? #{x 12425}#)
- (if (= (vector-length #{x 12425}#) 4)
- (eq? (vector-ref #{x 12425}# 0) 'syntax-object)
+ #{y -ANAU$bmvAmthP7L7xwpi3}#))
+ (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{x 12425}# 1)
- #{x 12425}#)
- (if (if (vector? #{y 12426}#)
- (if (= (vector-length #{y 12426}#) 4)
- (eq? (vector-ref #{y 12426}# 0) 'syntax-object)
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1)
+ #{x -ANAU$bmvAmthP7L7xwpi2}#)
+ (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#)
+ (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#)
+ 4)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{y 12426}# 1)
- #{y 12426}#))
- (eq? (#{id-var-name 2762}# #{x 12425}# '(()))
- (#{id-var-name 2762}# #{y 12426}# '(())))
+ (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1)
+ #{y -ANAU$bmvAmthP7L7xwpi3}#))
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwpi2}#
+ '(()))
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{y -ANAU$bmvAmthP7L7xwpi3}#
+ '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 12576}# #{y 12577}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwplN}#
+ #{y -ANAU$bmvAmthP7L7xwplO}#)
(begin
- (if (not (if (if (vector? #{x 12576}#)
- (if (= (vector-length #{x 12576}#) 4)
- (eq? (vector-ref #{x 12576}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12576}# 1))
+ (symbol?
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 12576}#))
- (if (not (if (if (vector? #{y 12577}#)
- (if (= (vector-length #{y 12577}#) 4)
- (eq? (vector-ref #{y 12577}# 0) 'syntax-object)
+ #{x -ANAU$bmvAmthP7L7xwplN}#))
+ (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
+ (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
+ 4)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 12577}# 1))
+ (symbol?
+ (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 12577}#))
- (if (if (if (vector? #{x 12576}#)
- (if (= (vector-length #{x 12576}#) 4)
- (eq? (vector-ref #{x 12576}# 0) 'syntax-object)
+ #{y -ANAU$bmvAmthP7L7xwplO}#))
+ (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
+ 4)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
+ 'syntax-object)
#f)
#f)
- (if (vector? #{y 12577}#)
- (if (= (vector-length #{y 12577}#) 4)
- (eq? (vector-ref #{y 12577}# 0) 'syntax-object)
+ (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
+ (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
+ 4)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
+ 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 12576}# 1)
- (vector-ref #{y 12577}# 1))
- (#{same-marks? 2761}#
- (car (vector-ref #{x 12576}# 2))
- (car (vector-ref #{y 12577}# 2)))
+ (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1)
+ (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1))
+ (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
+ (car (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 2))
+ (car (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 2)))
#f)
- (eq? #{x 12576}# #{y 12577}#)))))
+ (eq? #{x -ANAU$bmvAmthP7L7xwplN}#
+ #{y -ANAU$bmvAmthP7L7xwplO}#)))))
(set! syntax-violation
(lambda*
- (#{who 12710}#
- #{message 12711}#
- #{form 12712}#
+ (#{who -ANAU$bmvAmthP7L7xwpnT}#
+ #{message -ANAU$bmvAmthP7L7xwpnU}#
+ #{form -ANAU$bmvAmthP7L7xwpnV}#
#:optional
- (#{subform 12713}# #f))
+ (#{subform -ANAU$bmvAmthP7L7xwpnW}# #f))
(begin
- (if (not (if (not #{who 12710}#)
- (not #{who 12710}#)
- (let ((#{t 12731}# (string? #{who 12710}#)))
- (if #{t 12731}#
- #{t 12731}#
- (symbol? #{who 12710}#)))))
+ (if (not (if (not #{who -ANAU$bmvAmthP7L7xwpnT}#)
+ (not #{who -ANAU$bmvAmthP7L7xwpnT}#)
+ (let ((#{t -ANAU$bmvAmthP7L7xwpno}#
+ (string? #{who -ANAU$bmvAmthP7L7xwpnT}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwpno}#
+ #{t -ANAU$bmvAmthP7L7xwpno}#
+ (symbol? #{who -ANAU$bmvAmthP7L7xwpnT}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 12710}#))
- (if (not (string? #{message 12711}#))
+ #{who -ANAU$bmvAmthP7L7xwpnT}#))
+ (if (not (string? #{message -ANAU$bmvAmthP7L7xwpnU}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 12711}#))
+ #{message -ANAU$bmvAmthP7L7xwpnU}#))
(throw 'syntax-error
- #{who 12710}#
- #{message 12711}#
- (#{source-annotation 2736}#
- (if #{form 12712}#
- #{form 12712}#
- #{subform 12713}#))
- (#{strip 2791}# #{form 12712}# '(()))
- (if #{subform 12713}#
- (#{strip 2791}# #{subform 12713}# '(()))
+ #{who -ANAU$bmvAmthP7L7xwpnT}#
+ #{message -ANAU$bmvAmthP7L7xwpnU}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ (if #{form -ANAU$bmvAmthP7L7xwpnV}#
+ #{form -ANAU$bmvAmthP7L7xwpnV}#
+ #{subform -ANAU$bmvAmthP7L7xwpnW}#))
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{form -ANAU$bmvAmthP7L7xwpnV}#
+ '(()))
+ (if #{subform -ANAU$bmvAmthP7L7xwpnW}#
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{subform -ANAU$bmvAmthP7L7xwpnW}#
+ '(()))
#f)))))
(letrec*
- ((#{match-each 12934}#
- (lambda (#{e 13521}#
- #{p 13522}#
- #{w 13523}#
- #{mod 13524}#)
- (if (pair? #{e 13521}#)
- (let ((#{first 13525}#
- (#{match 12940}#
- (car #{e 13521}#)
- #{p 13522}#
- #{w 13523}#
+ ((#{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwps5}#)
+ (begin
+ (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwps5}#)
+ (if (= (vector-length
+ #{id -ANAU$bmvAmthP7L7xwps5}#)
+ 4)
+ (eq? (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwps5}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1))
+ #f))
+ (syntax-violation
+ 'syntax-local-binding
+ "invalid argument"
+ #{id -ANAU$bmvAmthP7L7xwps5}#))
+ ((fluid-ref
+ #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwpth}#
+ #{r -ANAU$bmvAmthP7L7xwpti}#
+ #{w -ANAU$bmvAmthP7L7xwptj}#
+ #{s -ANAU$bmvAmthP7L7xwptk}#
+ #{rib -ANAU$bmvAmthP7L7xwptl}#
+ #{mod -ANAU$bmvAmthP7L7xwptm}#)
+ (call-with-values
+ (lambda ()
+ (let ((#{id -ANAU$bmvAmthP7L7xwptp}#
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1))
+ (#{w -ANAU$bmvAmthP7L7xwptq}#
+ (let ((#{w -ANAU$bmvAmthP7L7xwpt1}#
+ (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwps5}#
+ 2)))
+ (let ((#{ms -ANAU$bmvAmthP7L7xwpt2}#
+ (car #{w -ANAU$bmvAmthP7L7xwpt1}#))
+ (#{s -ANAU$bmvAmthP7L7xwpt3}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwpt1}#)))
+ (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwpt2}#)
+ (eq? (car #{ms
-ANAU$bmvAmthP7L7xwpt2}#)
+ #f)
+ #f)
+ (cons (cdr #{ms -ANAU$bmvAmthP7L7xwpt2}#)
+ (if #{rib -ANAU$bmvAmthP7L7xwptl}#
+ (cons #{rib
-ANAU$bmvAmthP7L7xwptl}#
+ (cdr #{s
-ANAU$bmvAmthP7L7xwpt3}#))
+ (cdr #{s
-ANAU$bmvAmthP7L7xwpt3}#)))
+ (cons #{ms -ANAU$bmvAmthP7L7xwpt2}#
+ (if #{rib -ANAU$bmvAmthP7L7xwptl}#
+ (cons #{rib
-ANAU$bmvAmthP7L7xwptl}#
+ #{s -ANAU$bmvAmthP7L7xwpt3}#)
+ #{s -ANAU$bmvAmthP7L7xwpt3}#))))))
+ (#{mod -ANAU$bmvAmthP7L7xwpts}#
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 3)))
+ (let ((#{n -ANAU$bmvAmthP7L7xwptv}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{id -ANAU$bmvAmthP7L7xwptp}#
+ #{w -ANAU$bmvAmthP7L7xwptq}#)))
+ (if (symbol? #{n -ANAU$bmvAmthP7L7xwptv}#)
+ (let ((#{mod -ANAU$bmvAmthP7L7xwpt9}#
+ (if (if (vector?
+ #{id -ANAU$bmvAmthP7L7xwptp}#)
+ (if (= (vector-length
+ #{id
-ANAU$bmvAmthP7L7xwptp}#)
+ 4)
+ (eq? (vector-ref
+ #{id
-ANAU$bmvAmthP7L7xwptp}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwptp}#
+ 3)
+ #{mod -ANAU$bmvAmthP7L7xwpts}#)))
+ (let ((#{b -ANAU$bmvAmthP7L7xwpt$}#
+ (let ((#{t address@hidden
+ (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
+ #{n -ANAU$bmvAmthP7L7xwptv}#
+ #{mod
-ANAU$bmvAmthP7L7xwpt9}#)))
+ (if #{t address@hidden
+ #{t address@hidden
+ '(global)))))
+ (if (eq? (car #{b -ANAU$bmvAmthP7L7xwpt$}#)
+ 'global)
+ (values
+ 'global
+ #{n -ANAU$bmvAmthP7L7xwptv}#
+ #{mod -ANAU$bmvAmthP7L7xwpt9}#)
+ (values
+ (car #{b -ANAU$bmvAmthP7L7xwpt$}#)
+ (cdr #{b -ANAU$bmvAmthP7L7xwpt$}#)
+ #{mod -ANAU$bmvAmthP7L7xwpt9}#))))
+ (if (string? #{n -ANAU$bmvAmthP7L7xwptv}#)
+ (let ((#{mod -ANAU$bmvAmthP7L7xwpuZ}#
+ (if (if (vector?
+ #{id -ANAU$bmvAmthP7L7xwptp}#)
+ (if (= (vector-length
+ #{id
-ANAU$bmvAmthP7L7xwptp}#)
+ 4)
+ (eq? (vector-ref
+ #{id
-ANAU$bmvAmthP7L7xwptp}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwptp}#
+ 3)
+ #{mod -ANAU$bmvAmthP7L7xwpts}#)))
+ (let ((#{b -ANAU$bmvAmthP7L7xwpua}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwpub}#
+ (assq-ref
+ #{r -ANAU$bmvAmthP7L7xwpti}#
+ #{n
-ANAU$bmvAmthP7L7xwptv}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwpub}#
+ #{t -ANAU$bmvAmthP7L7xwpub}#
+ '(displaced-lexical)))))
+ (values
+ (car #{b -ANAU$bmvAmthP7L7xwpua}#)
+ (cdr #{b -ANAU$bmvAmthP7L7xwpua}#)
+ #{mod -ANAU$bmvAmthP7L7xwpuZ}#)))
+ (error "unexpected id-var-name"
+ #{id -ANAU$bmvAmthP7L7xwptp}#
+ #{w -ANAU$bmvAmthP7L7xwptq}#
+ #{n -ANAU$bmvAmthP7L7xwptv}#))))))
+ (lambda (#{type -ANAU$bmvAmthP7L7xwpuo}#
+ #{value -ANAU$bmvAmthP7L7xwpup}#
+ #{mod -ANAU$bmvAmthP7L7xwpuq}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'lexical)
+ (values
+ 'lexical
+ #{value -ANAU$bmvAmthP7L7xwpup}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'macro)
+ (values 'macro #{value -ANAU$bmvAmthP7L7xwpup}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'syntax)
+ (values
+ 'pattern-variable
+ #{value -ANAU$bmvAmthP7L7xwpup}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}#
+ 'displaced-lexical)
+ (values 'displaced-lexical #f)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}#
+ 'global)
+ (values
+ 'global
+ (cons #{value -ANAU$bmvAmthP7L7xwpup}#
+ (cdr #{mod -ANAU$bmvAmthP7L7xwpuq}#)))
+ (values 'other #f)))))))))))))
+ (#{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwpu1}#)
+ (begin
+ (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpu1}#)
+ (if (= (vector-length
+ #{id -ANAU$bmvAmthP7L7xwpu1}#)
+ 4)
+ (eq? (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwpu1}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 1))
+ #f))
+ (syntax-violation
+ 'syntax-locally-bound-identifiers
+ "invalid argument"
+ #{id -ANAU$bmvAmthP7L7xwpu1}#))
+ (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}#
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 2)
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 3))))))
+ (begin
+ (define!
+ 'syntax-module
+ (lambda (#{id -ANAU$bmvAmthP7L7xwpq3}#)
+ (begin
+ (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpq3}#)
+ (if (= (vector-length
+ #{id -ANAU$bmvAmthP7L7xwpq3}#)
+ 4)
+ (eq? (vector-ref
+ #{id -ANAU$bmvAmthP7L7xwpq3}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 1))
+ #f))
+ (syntax-violation
+ 'syntax-module
+ "invalid argument"
+ #{id -ANAU$bmvAmthP7L7xwpq3}#))
+ (cdr (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 3)))))
+ (define!
+ 'syntax-local-binding
+ #{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#)
+ (define!
+ 'syntax-locally-bound-identifiers
+ #{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#)))
+ (letrec*
+ ((#{match-each -ANAU$bmvAmthP7L7xwpwg}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwp5r}#
+ #{p -ANAU$bmvAmthP7L7xwp5s}#
+ #{w -ANAU$bmvAmthP7L7xwp5t}#
+ #{mod -ANAU$bmvAmthP7L7xwp5u}#)
+ (if (pair? #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ (let ((#{first -ANAU$bmvAmthP7L7xwp5v}#
+ (#{match -ANAU$bmvAmthP7L7xwpwm}#
+ (car #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ #{p -ANAU$bmvAmthP7L7xwp5s}#
+ #{w -ANAU$bmvAmthP7L7xwp5t}#
'()
- #{mod 13524}#)))
- (if #{first 13525}#
- (let ((#{rest 13528}#
- (#{match-each 12934}#
- (cdr #{e 13521}#)
- #{p 13522}#
- #{w 13523}#
- #{mod 13524}#)))
- (if #{rest 13528}#
- (cons #{first 13525}# #{rest 13528}#)
+ #{mod -ANAU$bmvAmthP7L7xwp5u}#)))
+ (if #{first -ANAU$bmvAmthP7L7xwp5v}#
+ (let ((#{rest -ANAU$bmvAmthP7L7xwp5y}#
+ (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
+ (cdr #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ #{p -ANAU$bmvAmthP7L7xwp5s}#
+ #{w -ANAU$bmvAmthP7L7xwp5t}#
+ #{mod -ANAU$bmvAmthP7L7xwp5u}#)))
+ (if #{rest -ANAU$bmvAmthP7L7xwp5y}#
+ (cons #{first -ANAU$bmvAmthP7L7xwp5v}#
+ #{rest -ANAU$bmvAmthP7L7xwp5y}#)
#f))
#f))
- (if (null? #{e 13521}#)
+ (if (null? #{e -ANAU$bmvAmthP7L7xwp5r}#)
'()
- (if (if (vector? #{e 13521}#)
- (if (= (vector-length #{e 13521}#) 4)
- (eq? (vector-ref #{e 13521}# 0) 'syntax-object)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ 4)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match-each 12934}#
- (vector-ref #{e 13521}# 1)
- #{p 13522}#
- (#{join-wraps 2759}#
- #{w 13523}#
- (vector-ref #{e 13521}# 2))
- (vector-ref #{e 13521}# 3))
+ (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 1)
+ #{p -ANAU$bmvAmthP7L7xwp5s}#
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwp5t}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 2))
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 3))
#f)))))
- (#{match-each-any 12936}#
- (lambda (#{e 13556}# #{w 13557}# #{mod 13558}#)
- (if (pair? #{e 13556}#)
- (let ((#{l 13559}#
- (#{match-each-any 12936}#
- (cdr #{e 13556}#)
- #{w 13557}#
- #{mod 13558}#)))
- (if #{l 13559}#
- (cons (#{wrap 2771}#
- (car #{e 13556}#)
- #{w 13557}#
- #{mod 13558}#)
- #{l 13559}#)
+ (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwp6O}#
+ #{w -ANAU$bmvAmthP7L7xwp6P}#
+ #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
+ (if (pair? #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ (let ((#{l -ANAU$bmvAmthP7L7xwp6R}#
+ (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
+ (cdr #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ #{w -ANAU$bmvAmthP7L7xwp6P}#
+ #{mod -ANAU$bmvAmthP7L7xwp6Q}#)))
+ (if #{l -ANAU$bmvAmthP7L7xwp6R}#
+ (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (car #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ #{w -ANAU$bmvAmthP7L7xwp6P}#
+ #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
+ #{l -ANAU$bmvAmthP7L7xwp6R}#)
#f))
- (if (null? #{e 13556}#)
+ (if (null? #{e -ANAU$bmvAmthP7L7xwp6O}#)
'()
- (if (if (vector? #{e 13556}#)
- (if (= (vector-length #{e 13556}#) 4)
- (eq? (vector-ref #{e 13556}# 0) 'syntax-object)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ 4)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match-each-any 12936}#
- (vector-ref #{e 13556}# 1)
- (#{join-wraps 2759}#
- #{w 13557}#
- (vector-ref #{e 13556}# 2))
- #{mod 13558}#)
+ (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 1)
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwp6P}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 2))
+ #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
#f)))))
- (#{match-empty 12937}#
- (lambda (#{p 13583}# #{r 13584}#)
- (if (null? #{p 13583}#)
- #{r 13584}#
- (if (eq? #{p 13583}# '_)
- #{r 13584}#
- (if (eq? #{p 13583}# 'any)
- (cons '() #{r 13584}#)
- (if (pair? #{p 13583}#)
- (#{match-empty 12937}#
- (car #{p 13583}#)
- (#{match-empty 12937}#
- (cdr #{p 13583}#)
- #{r 13584}#))
- (if (eq? #{p 13583}# 'each-any)
- (cons '() #{r 13584}#)
- (let ((#{atom-key 13585}# (vector-ref #{p 13583}# 0)))
- (if (eqv? #{atom-key 13585}# 'each)
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 1)
- #{r 13584}#)
- (if (eqv? #{atom-key 13585}# 'each+)
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 1)
- (#{match-empty 12937}#
- (reverse (vector-ref #{p 13583}# 2))
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 3)
- #{r 13584}#)))
- (if (if (eqv? #{atom-key 13585}# 'free-id)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xwp6p}#
+ #{r -ANAU$bmvAmthP7L7xwp6q}#)
+ (if (null? #{p -ANAU$bmvAmthP7L7xwp6p}#)
+ #{r -ANAU$bmvAmthP7L7xwp6q}#
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# '_)
+ #{r -ANAU$bmvAmthP7L7xwp6q}#
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'any)
+ (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#)
+ (if (pair? #{p -ANAU$bmvAmthP7L7xwp6p}#)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (car #{p -ANAU$bmvAmthP7L7xwp6p}#)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (cdr #{p -ANAU$bmvAmthP7L7xwp6p}#)
+ #{r -ANAU$bmvAmthP7L7xwp6q}#))
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'each-any)
+ (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#)
+ (let ((#{atom-key -ANAU$bmvAmthP7L7xwp6r}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 0)))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'each)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
+ #{r -ANAU$bmvAmthP7L7xwp6q}#)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
+ 'each+)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (reverse
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 2))
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 3)
+ #{r -ANAU$bmvAmthP7L7xwp6q}#)))
+ (if (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
+ 'free-id)
#t
- (eqv? #{atom-key 13585}# 'atom))
- #{r 13584}#
- (if (eqv? #{atom-key 13585}# 'vector)
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 1)
- #{r 13584}#)))))))))))))
- (#{combine 12938}#
- (lambda (#{r* 13604}# #{r 13605}#)
- (if (null? (car #{r* 13604}#))
- #{r 13605}#
- (cons (map car #{r* 13604}#)
- (#{combine 12938}#
- (map cdr #{r* 13604}#)
- #{r 13605}#)))))
- (#{match* 12939}#
- (lambda (#{e 12969}#
- #{p 12970}#
- #{w 12971}#
- #{r 12972}#
- #{mod 12973}#)
- (if (null? #{p 12970}#)
- (if (null? #{e 12969}#) #{r 12972}# #f)
- (if (pair? #{p 12970}#)
- (if (pair? #{e 12969}#)
- (#{match 12940}#
- (car #{e 12969}#)
- (car #{p 12970}#)
- #{w 12971}#
- (#{match 12940}#
- (cdr #{e 12969}#)
- (cdr #{p 12970}#)
- #{w 12971}#
- #{r 12972}#
- #{mod 12973}#)
- #{mod 12973}#)
+ (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
+ 'atom))
+ #{r -ANAU$bmvAmthP7L7xwp6q}#
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
+ 'vector)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
+ #{r -ANAU$bmvAmthP7L7xwp6q}#)))))))))))))
+ (#{combine -ANAU$bmvAmthP7L7xwpwk}#
+ (lambda (#{r* -ANAU$bmvAmthP7L7xwp6$}#
+ #{r address@hidden)
+ (if (null? (car #{r* -ANAU$bmvAmthP7L7xwp6$}#))
+ #{r address@hidden
+ (cons (map car #{r* -ANAU$bmvAmthP7L7xwp6$}#)
+ (#{combine -ANAU$bmvAmthP7L7xwpwk}#
+ (map cdr #{r* -ANAU$bmvAmthP7L7xwp6$}#)
+ #{r address@hidden)))))
+ (#{match* -ANAU$bmvAmthP7L7xwpwl}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwpxD}#
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#)
+ (if (null? #{p -ANAU$bmvAmthP7L7xwpxE}#)
+ (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
+ #f)
+ (if (pair? #{p -ANAU$bmvAmthP7L7xwpxE}#)
+ (if (pair? #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (#{match -ANAU$bmvAmthP7L7xwpwm}#
+ (car #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (car #{p -ANAU$bmvAmthP7L7xwpxE}#)
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ (#{match -ANAU$bmvAmthP7L7xwpwm}#
+ (cdr #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (cdr #{p -ANAU$bmvAmthP7L7xwpxE}#)
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#)
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#)
#f)
- (if (eq? #{p 12970}# 'each-any)
- (let ((#{l 12978}#
- (#{match-each-any 12936}#
- #{e 12969}#
- #{w 12971}#
- #{mod 12973}#)))
- (if #{l 12978}#
- (cons #{l 12978}# #{r 12972}#)
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwpxE}# 'each-any)
+ (let ((#{l -ANAU$bmvAmthP7L7xwpxM}#
+ (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
+ (if #{l -ANAU$bmvAmthP7L7xwpxM}#
+ (cons #{l -ANAU$bmvAmthP7L7xwpxM}#
+ #{r -ANAU$bmvAmthP7L7xwpxG}#)
#f))
- (let ((#{atom-key 12983}# (vector-ref #{p 12970}# 0)))
- (if (eqv? #{atom-key 12983}# 'each)
- (if (null? #{e 12969}#)
- (#{match-empty 12937}#
- (vector-ref #{p 12970}# 1)
- #{r 12972}#)
- (let ((#{l 12990}#
- (#{match-each 12934}#
- #{e 12969}#
- (vector-ref #{p 12970}# 1)
- #{w 12971}#
- #{mod 12973}#)))
- (if #{l 12990}#
+ (let ((#{atom-key -ANAU$bmvAmthP7L7xwpxR}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 0)))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each)
+ (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
+ #{r -ANAU$bmvAmthP7L7xwpxG}#)
+ (let ((#{l -ANAU$bmvAmthP7L7xwpxY}#
+ (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
+ (if #{l -ANAU$bmvAmthP7L7xwpxY}#
(letrec*
- ((#{collect 12993}#
- (lambda (#{l 13044}#)
- (if (null? (car #{l 13044}#))
- #{r 12972}#
- (cons (map car #{l 13044}#)
- (#{collect 12993}#
- (map cdr #{l 13044}#)))))))
- (#{collect 12993}# #{l 12990}#))
+ ((#{collect -ANAU$bmvAmthP7L7xwpxb}#
+ (lambda (#{l -ANAU$bmvAmthP7L7xwpyO}#)
+ (if (null? (car #{l
-ANAU$bmvAmthP7L7xwpyO}#))
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
+ (cons (map car
+ #{l -ANAU$bmvAmthP7L7xwpyO}#)
+ (#{collect -ANAU$bmvAmthP7L7xwpxb}#
+ (map cdr
+ #{l
-ANAU$bmvAmthP7L7xwpyO}#)))))))
+ (#{collect -ANAU$bmvAmthP7L7xwpxb}#
+ #{l -ANAU$bmvAmthP7L7xwpxY}#))
#f)))
- (if (eqv? #{atom-key 12983}# 'each+)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 13053}# (vector-ref #{p 12970}# 1))
- (#{y-pat 13054}# (vector-ref #{p 12970}# 2))
- (#{z-pat 13055}#
- (vector-ref #{p 12970}# 3)))
+ (let ((#{x-pat -ANAU$bmvAmthP7L7xwpyX}#
+ (vector-ref
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
+ 1))
+ (#{y-pat -ANAU$bmvAmthP7L7xwpyY}#
+ (vector-ref
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
+ 2))
+ (#{z-pat -ANAU$bmvAmthP7L7xwpyZ}#
+ (vector-ref
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
+ 3)))
(letrec*
- ((#{f 13059}#
- (lambda (#{e 13061}# #{w 13062}#)
- (if (pair? #{e 13061}#)
+ ((#{f -ANAU$bmvAmthP7L7xwpyd}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwpyf}#
+ #{w -ANAU$bmvAmthP7L7xwpyg}#)
+ (if (pair? #{e -ANAU$bmvAmthP7L7xwpyf}#)
(call-with-values
(lambda ()
- (#{f 13059}#
- (cdr #{e 13061}#)
- #{w 13062}#))
- (lambda (#{xr* 13063}#
- #{y-pat 13064}#
- #{r 13065}#)
- (if #{r 13065}#
- (if (null? #{y-pat 13064}#)
- (let ((#{xr 13066}#
- (#{match 12940}#
- (car #{e 13061}#)
- #{x-pat 13053}#
- #{w 13062}#
+ (#{f -ANAU$bmvAmthP7L7xwpyd}#
+ (cdr #{e
-ANAU$bmvAmthP7L7xwpyf}#)
+ #{w -ANAU$bmvAmthP7L7xwpyg}#))
+ (lambda (#{xr*
-ANAU$bmvAmthP7L7xwpyh}#
+ #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#
+ #{r
-ANAU$bmvAmthP7L7xwpyj}#)
+ (if #{r -ANAU$bmvAmthP7L7xwpyj}#
+ (if (null? #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#)
+ (let ((#{xr
-ANAU$bmvAmthP7L7xwpyk}#
+ (#{match
-ANAU$bmvAmthP7L7xwpwm}#
+ (car #{e
-ANAU$bmvAmthP7L7xwpyf}#)
+ #{x-pat
-ANAU$bmvAmthP7L7xwpyX}#
+ #{w
-ANAU$bmvAmthP7L7xwpyg}#
'()
- #{mod 12973}#)))
- (if #{xr 13066}#
+ #{mod
-ANAU$bmvAmthP7L7xwpxH}#)))
+ (if #{xr
-ANAU$bmvAmthP7L7xwpyk}#
(values
- (cons #{xr 13066}#
- #{xr* 13063}#)
- #{y-pat 13064}#
- #{r 13065}#)
+ (cons #{xr
-ANAU$bmvAmthP7L7xwpyk}#
+ #{xr*
-ANAU$bmvAmthP7L7xwpyh}#)
+ #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#
+ #{r
-ANAU$bmvAmthP7L7xwpyj}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 13064}#)
- (#{match 12940}#
- (car #{e 13061}#)
- (car #{y-pat 13064}#)
- #{w 13062}#
- #{r 13065}#
- #{mod 12973}#)))
+ (cdr #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#)
+ (#{match
-ANAU$bmvAmthP7L7xwpwm}#
+ (car #{e
-ANAU$bmvAmthP7L7xwpyf}#)
+ (car #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#)
+ #{w
-ANAU$bmvAmthP7L7xwpyg}#
+ #{r
-ANAU$bmvAmthP7L7xwpyj}#
+ #{mod
-ANAU$bmvAmthP7L7xwpxH}#)))
(values #f #f #f))))
- (if (if (vector? #{e 13061}#)
+ (if (if (vector?
+ #{e -ANAU$bmvAmthP7L7xwpyf}#)
(if (= (vector-length
- #{e 13061}#)
+ #{e
-ANAU$bmvAmthP7L7xwpyf}#)
4)
- (eq? (vector-ref #{e 13061}# 0)
+ (eq? (vector-ref
+ #{e
-ANAU$bmvAmthP7L7xwpyf}#
+ 0)
'syntax-object)
#f)
#f)
- (#{f 13059}#
- (vector-ref #{e 13061}# 1)
- (#{join-wraps 2759}#
- #{w 13062}#
- #{e 13061}#))
+ (#{f -ANAU$bmvAmthP7L7xwpyd}#
+ (vector-ref
+ #{e -ANAU$bmvAmthP7L7xwpyf}#
+ 1)
+ (#{join-wraps
-ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwpyg}#
+ #{e -ANAU$bmvAmthP7L7xwpyf}#))
(values
'()
- #{y-pat 13054}#
- (#{match 12940}#
- #{e 13061}#
- #{z-pat 13055}#
- #{w 13062}#
- #{r 12972}#
- #{mod 12973}#)))))))
- (#{f 13059}# #{e 12969}# #{w 12971}#))))
- (lambda (#{xr* 13092}# #{y-pat 13093}# #{r 13094}#)
- (if #{r 13094}#
- (if (null? #{y-pat 13093}#)
- (if (null? #{xr* 13092}#)
- (#{match-empty 12937}#
- (vector-ref #{p 12970}# 1)
- #{r 13094}#)
- (#{combine 12938}#
- #{xr* 13092}#
- #{r 13094}#))
+ #{y-pat -ANAU$bmvAmthP7L7xwpyY}#
+ (#{match -ANAU$bmvAmthP7L7xwpwm}#
+ #{e -ANAU$bmvAmthP7L7xwpyf}#
+ #{z-pat -ANAU$bmvAmthP7L7xwpyZ}#
+ #{w -ANAU$bmvAmthP7L7xwpyg}#
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
+ #{mod
-ANAU$bmvAmthP7L7xwpxH}#)))))))
+ (#{f -ANAU$bmvAmthP7L7xwpyd}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ #{w -ANAU$bmvAmthP7L7xwpxF}#))))
+ (lambda (#{xr* -ANAU$bmvAmthP7L7xwpy$}#
+ #{y-pat address@hidden
+ #{r -ANAU$bmvAmthP7L7xwpzA}#)
+ (if #{r -ANAU$bmvAmthP7L7xwpzA}#
+ (if (null? #{y-pat address@hidden)
+ (if (null? #{xr* -ANAU$bmvAmthP7L7xwpy$}#)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
+ 1)
+ #{r -ANAU$bmvAmthP7L7xwpzA}#)
+ (#{combine -ANAU$bmvAmthP7L7xwpwk}#
+ #{xr* -ANAU$bmvAmthP7L7xwpy$}#
+ #{r -ANAU$bmvAmthP7L7xwpzA}#))
#f)
#f)))
- (if (eqv? #{atom-key 12983}# 'free-id)
- (if (if (symbol? #{e 12969}#)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
+ 'free-id)
+ (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwpxD}#)
#t
- (if (if (vector? #{e 12969}#)
- (if (= (vector-length #{e 12969}#) 4)
- (eq? (vector-ref #{e 12969}# 0)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (if (= (vector-length
+ #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ 4)
+ (eq? (vector-ref
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 12969}# 1))
+ (symbol?
+ (vector-ref
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ 1))
#f))
- (if (let ((#{i 13425}#
- (#{wrap 2771}#
- #{e 12969}#
- #{w 12971}#
- #{mod 12973}#))
- (#{j 13426}#
- (vector-ref #{p 12970}# 1)))
- (if (eq? (if (if (vector? #{i 13425}#)
+ (if (let ((#{i -ANAU$bmvAmthP7L7xwp4L}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#))
+ (#{j -ANAU$bmvAmthP7L7xwp4M}#
+ (vector-ref
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
+ 1)))
+ (if (eq? (if (if (vector?
+ #{i
-ANAU$bmvAmthP7L7xwp4L}#)
(if (= (vector-length
- #{i 13425}#)
+ #{i
-ANAU$bmvAmthP7L7xwp4L}#)
4)
(eq? (vector-ref
- #{i 13425}#
+ #{i
-ANAU$bmvAmthP7L7xwp4L}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 13425}# 1)
- #{i 13425}#)
- (if (if (vector? #{j 13426}#)
+ (vector-ref
+ #{i -ANAU$bmvAmthP7L7xwp4L}#
+ 1)
+ #{i -ANAU$bmvAmthP7L7xwp4L}#)
+ (if (if (vector?
+ #{j
-ANAU$bmvAmthP7L7xwp4M}#)
(if (= (vector-length
- #{j 13426}#)
+ #{j
-ANAU$bmvAmthP7L7xwp4M}#)
4)
(eq? (vector-ref
- #{j 13426}#
+ #{j
-ANAU$bmvAmthP7L7xwp4M}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 13426}# 1)
- #{j 13426}#))
- (eq? (#{id-var-name 2762}#
- #{i 13425}#
+ (vector-ref
+ #{j -ANAU$bmvAmthP7L7xwp4M}#
+ 1)
+ #{j -ANAU$bmvAmthP7L7xwp4M}#))
+ (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{i -ANAU$bmvAmthP7L7xwp4L}#
'(()))
- (#{id-var-name 2762}#
- #{j 13426}#
+ (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ #{j -ANAU$bmvAmthP7L7xwp4M}#
'(())))
#f))
- #{r 12972}#
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
#f)
#f)
- (if (eqv? #{atom-key 12983}# 'atom)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'atom)
(if (equal?
- (vector-ref #{p 12970}# 1)
- (#{strip 2791}# #{e 12969}# #{w 12971}#))
- #{r 12972}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ #{w -ANAU$bmvAmthP7L7xwpxF}#))
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
#f)
- (if (eqv? #{atom-key 12983}# 'vector)
- (if (vector? #{e 12969}#)
- (#{match 12940}#
- (vector->list #{e 12969}#)
- (vector-ref #{p 12970}# 1)
- #{w 12971}#
- #{r 12972}#
- #{mod 12973}#)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
+ 'vector)
+ (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (#{match -ANAU$bmvAmthP7L7xwpwm}#
+ (vector->list #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#)
#f))))))))))))
- (#{match 12940}#
- (lambda (#{e 13486}#
- #{p 13487}#
- #{w 13488}#
- #{r 13489}#
- #{mod 13490}#)
- (if (not #{r 13489}#)
+ (#{match -ANAU$bmvAmthP7L7xwpwm}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwp5I}#
+ #{p -ANAU$bmvAmthP7L7xwp5J}#
+ #{w -ANAU$bmvAmthP7L7xwp5K}#
+ #{r -ANAU$bmvAmthP7L7xwp5L}#
+ #{mod -ANAU$bmvAmthP7L7xwp5M}#)
+ (if (not #{r -ANAU$bmvAmthP7L7xwp5L}#)
#f
- (if (eq? #{p 13487}# '_)
- #{r 13489}#
- (if (eq? #{p 13487}# 'any)
- (cons (#{wrap 2771}#
- #{e 13486}#
- #{w 13488}#
- #{mod 13490}#)
- #{r 13489}#)
- (if (if (vector? #{e 13486}#)
- (if (= (vector-length #{e 13486}#) 4)
- (eq? (vector-ref #{e 13486}# 0) 'syntax-object)
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# '_)
+ #{r -ANAU$bmvAmthP7L7xwp5L}#
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# 'any)
+ (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{e -ANAU$bmvAmthP7L7xwp5I}#
+ #{w -ANAU$bmvAmthP7L7xwp5K}#
+ #{mod -ANAU$bmvAmthP7L7xwp5M}#)
+ #{r -ANAU$bmvAmthP7L7xwp5L}#)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5I}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5I}#)
+ 4)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match* 12939}#
- (vector-ref #{e 13486}# 1)
- #{p 13487}#
- (#{join-wraps 2759}#
- #{w 13488}#
- (vector-ref #{e 13486}# 2))
- #{r 13489}#
- (vector-ref #{e 13486}# 3))
- (#{match* 12939}#
- #{e 13486}#
- #{p 13487}#
- #{w 13488}#
- #{r 13489}#
- #{mod 13490}#))))))))
+ (#{match* -ANAU$bmvAmthP7L7xwpwl}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 1)
+ #{p -ANAU$bmvAmthP7L7xwp5J}#
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwp5K}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 2))
+ #{r -ANAU$bmvAmthP7L7xwp5L}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 3))
+ (#{match* -ANAU$bmvAmthP7L7xwpwl}#
+ #{e -ANAU$bmvAmthP7L7xwp5I}#
+ #{p -ANAU$bmvAmthP7L7xwp5J}#
+ #{w -ANAU$bmvAmthP7L7xwp5K}#
+ #{r -ANAU$bmvAmthP7L7xwp5L}#
+ #{mod -ANAU$bmvAmthP7L7xwp5M}#))))))))
(set! $sc-dispatch
- (lambda (#{e 12941}# #{p 12942}#)
- (if (eq? #{p 12942}# 'any)
- (list #{e 12941}#)
- (if (eq? #{p 12942}# '_)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwpwn}#
+ #{p -ANAU$bmvAmthP7L7xwpwo}#)
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# 'any)
+ (list #{e -ANAU$bmvAmthP7L7xwpwn}#)
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# '_)
'()
- (if (if (vector? #{e 12941}#)
- (if (= (vector-length #{e 12941}#) 4)
- (eq? (vector-ref #{e 12941}# 0) 'syntax-object)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpwn}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwpwn}#)
+ 4)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match* 12939}#
- (vector-ref #{e 12941}# 1)
- #{p 12942}#
- (vector-ref #{e 12941}# 2)
+ (#{match* -ANAU$bmvAmthP7L7xwpwl}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 1)
+ #{p -ANAU$bmvAmthP7L7xwpwo}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 2)
'()
- (vector-ref #{e 12941}# 3))
- (#{match* 12939}#
- #{e 12941}#
- #{p 12942}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 3))
+ (#{match* -ANAU$bmvAmthP7L7xwpwl}#
+ #{e -ANAU$bmvAmthP7L7xwpwn}#
+ #{p -ANAU$bmvAmthP7L7xwpwo}#
'(())
'()
#f))))))))))
@@ -22448,76 +23842,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 24645}#)
- (let ((#{tmp 24647}#
- ($sc-dispatch #{x 24645}# '(_ () any . each-any))))
- (if #{tmp 24647}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws3J}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws3L}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xws3J}#
+ '(_ () any . each-any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xws3L}#
(@apply
- (lambda (#{e1 24651}# #{e2 24652}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xws3P}#
+ #{e2 -ANAU$bmvAmthP7L7xws3Q}#)
(cons '#(syntax-object
let
((top)
- #(ribcage #(e1 e2) #((top) (top)) #("1al" "1am"))
+ #(ribcage #(e1 e2) #((top) (top)) #("1bj" "1bk"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
- (cons '() (cons #{e1 24651}# #{e2 24652}#))))
- #{tmp 24647}#)
- (let ((#{tmp 24653}#
+ (cons '()
+ (cons #{e1 -ANAU$bmvAmthP7L7xws3P}#
+ #{e2 -ANAU$bmvAmthP7L7xws3Q}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws3L}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws3R}#
($sc-dispatch
- #{x 24645}#
+ #{x -ANAU$bmvAmthP7L7xws3J}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 24653}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws3R}#
(@apply
- (lambda (#{out 24657}#
- #{in 24658}#
- #{e1 24659}#
- #{e2 24660}#)
+ (lambda (#{out -ANAU$bmvAmthP7L7xws3V}#
+ #{in -ANAU$bmvAmthP7L7xws3W}#
+ #{e1 -ANAU$bmvAmthP7L7xws3X}#
+ #{e2 -ANAU$bmvAmthP7L7xws3Y}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1an" "1ao" "1ap" "1aq"))
+ #("1bl" "1bm" "1bn" "1bo"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
- #{in 24658}#
+ #{in -ANAU$bmvAmthP7L7xws3W}#
'()
- (list #{out 24657}#
+ (list #{out -ANAU$bmvAmthP7L7xws3V}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1an" "1ao" "1ap" "1aq"))
+ #("1bl" "1bm" "1bn" "1bo"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
(cons '()
- (cons #{e1 24659}# #{e2 24660}#))))))
- #{tmp 24653}#)
- (let ((#{tmp 24661}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xws3X}#
+ #{e2
-ANAU$bmvAmthP7L7xws3Y}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws3R}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws3Z}#
($sc-dispatch
- #{x 24645}#
+ #{x -ANAU$bmvAmthP7L7xws3J}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 24661}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws3Z}#
(@apply
- (lambda (#{out 24665}#
- #{in 24666}#
- #{e1 24667}#
- #{e2 24668}#)
+ (lambda (#{out -ANAU$bmvAmthP7L7xws3d}#
+ #{in -ANAU$bmvAmthP7L7xws3e}#
+ #{e1 -ANAU$bmvAmthP7L7xws3f}#
+ #{e2 -ANAU$bmvAmthP7L7xws3g}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1ar" "1as" "1at" "1au"))
+ #("1bp" "1bq" "1br" "1bs"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22525,56 +23925,56 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1ar" "1as" "1at" "1au"))
+ #("1bp" "1bq" "1br" "1bs"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
- #{in 24666}#)
+ #{in -ANAU$bmvAmthP7L7xws3e}#)
'()
- (list #{out 24665}#
+ (list #{out -ANAU$bmvAmthP7L7xws3d}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1ar" "1as" "1at" "1au"))
+ #("1bp" "1bq" "1br" "1bs"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
(cons '()
- (cons #{e1 24667}#
- #{e2 24668}#))))))
- #{tmp 24661}#)
+ (cons #{e1
-ANAU$bmvAmthP7L7xws3f}#
+ #{e2
-ANAU$bmvAmthP7L7xws3g}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws3Z}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24645}#))))))))))
+ #{x -ANAU$bmvAmthP7L7xws3J}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 24707}#)
- (let ((#{tmp 24709}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws4H}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws4J}#
($sc-dispatch
- #{x 24707}#
+ #{x -ANAU$bmvAmthP7L7xws4H}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 24709}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws4J}#
(@apply
- (lambda (#{k 24713}#
- #{keyword 24714}#
- #{pattern 24715}#
- #{template 24716}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xws4N}#
+ #{keyword -ANAU$bmvAmthP7L7xws4O}#
+ #{pattern -ANAU$bmvAmthP7L7xws4P}#
+ #{template -ANAU$bmvAmthP7L7xws4Q}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
'(#(syntax-object
x
@@ -22582,9 +23982,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22593,9 +23993,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
.
#(syntax-object
@@ -22604,9 +24004,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22614,20 +24014,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- #{pattern 24715}#))
+ #{pattern -ANAU$bmvAmthP7L7xws4P}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22635,13 +24035,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- (cons #{k 24713}#
- (map (lambda (#{tmp 24691 24717}#
- #{tmp 24690 24718}#)
+ (cons #{k -ANAU$bmvAmthP7L7xws4N}#
+ (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#
+ #{tmp
-ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22654,10 +24054,10 @@
(top)
(top)
(top))
- #("1aw"
- "1ax"
- "1ay"
- "1az"))
+ #("1bu"
+ "1bv"
+ "1bw"
+ "1bx"))
#(ribcage
()
()
@@ -22665,9 +24065,9 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("1bt")))
(hygiene guile))
- #{tmp 24690 24718}#)
+ #{tmp
-ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
(list '#(syntax-object
syntax
((top)
@@ -22680,10 +24080,10 @@
(top)
(top)
(top))
- #("1aw"
- "1ax"
- "1ay"
- "1az"))
+ #("1bu"
+ "1bv"
+ "1bw"
+ "1bx"))
#(ribcage
()
()
@@ -22691,41 +24091,43 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("1bt")))
(hygiene guile))
- #{tmp 24691 24717}#)))
- #{template 24716}#
- #{pattern 24715}#))))))
- #{tmp 24709}#)
- (let ((#{tmp 24719}#
+ #{tmp
-ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#)))
+ #{template -ANAU$bmvAmthP7L7xws4Q}#
+ #{pattern
-ANAU$bmvAmthP7L7xws4P}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws4J}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws4T}#
($sc-dispatch
- #{x 24707}#
+ #{x -ANAU$bmvAmthP7L7xws4H}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 24719}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xws4T}#
(@apply
- (lambda (#{k 24723}#
- #{docstring 24724}#
- #{keyword 24725}#
- #{pattern 24726}#
- #{template 24727}#)
- (string? (syntax->datum #{docstring 24724}#)))
- #{tmp 24719}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xws4X}#
+ #{docstring -ANAU$bmvAmthP7L7xws4Y}#
+ #{keyword -ANAU$bmvAmthP7L7xws4Z}#
+ #{pattern -ANAU$bmvAmthP7L7xws4a}#
+ #{template -ANAU$bmvAmthP7L7xws4b}#)
+ (string?
+ (syntax->datum
+ #{docstring -ANAU$bmvAmthP7L7xws4Y}#)))
+ #{tmp -ANAU$bmvAmthP7L7xws4T}#)
#f)
(@apply
- (lambda (#{k 24728}#
- #{docstring 24729}#
- #{keyword 24730}#
- #{pattern 24731}#
- #{template 24732}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xws4c}#
+ #{docstring -ANAU$bmvAmthP7L7xws4d}#
+ #{keyword -ANAU$bmvAmthP7L7xws4e}#
+ #{pattern -ANAU$bmvAmthP7L7xws4f}#
+ #{template -ANAU$bmvAmthP7L7xws4g}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
'(#(syntax-object
x
@@ -22733,11 +24135,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
- #{docstring 24729}#
+ #{docstring -ANAU$bmvAmthP7L7xws4d}#
(vector
'(#(syntax-object
macro-type
@@ -22745,9 +24147,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
.
#(syntax-object
@@ -22756,9 +24158,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22766,20 +24168,20 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- #{pattern 24731}#))
+ #{pattern -ANAU$bmvAmthP7L7xws4f}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22791,13 +24193,13 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- (cons #{k 24728}#
- (map (lambda (#{tmp 24706 24733}#
- #{tmp 24705 24734}#)
+ (cons #{k -ANAU$bmvAmthP7L7xws4c}#
+ (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#
+ #{tmp
-ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22812,11 +24214,11 @@
(top)
(top)
(top))
- #("1b5"
- "1b6"
- "1b7"
- "1b8"
- "1b9"))
+ #("1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage
()
()
@@ -22824,10 +24226,10 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("1bt")))
(hygiene
guile))
- #{tmp 24705
24734}#)
+ #{tmp
-ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
(list '#(syntax-object
syntax
((top)
@@ -22842,11 +24244,11 @@
(top)
(top)
(top))
- #("1b5"
- "1b6"
- "1b7"
- "1b8"
- "1b9"))
+ #("1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage
()
()
@@ -22854,50 +24256,52 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("1bt")))
(hygiene
guile))
- #{tmp 24706
24733}#)))
- #{template 24732}#
- #{pattern 24731}#))))))
- #{tmp 24719}#)
+ #{tmp
-ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#)))
+ #{template
-ANAU$bmvAmthP7L7xws4g}#
+ #{pattern
-ANAU$bmvAmthP7L7xws4f}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws4T}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24707}#))))))))
+ #{x -ANAU$bmvAmthP7L7xws4H}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 24759}#)
- (let ((#{tmp 24761}#
- ($sc-dispatch #{x 24759}# '(_ (any . any) any))))
- (if #{tmp 24761}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws47}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws49}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xws47}#
+ '(_ (any . any) any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xws49}#
(@apply
- (lambda (#{name 24765}#
- #{pattern 24766}#
- #{template 24767}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xws5B}#
+ #{pattern -ANAU$bmvAmthP7L7xws5C}#
+ #{template -ANAU$bmvAmthP7L7xws5D}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1bb" "1bc" "1bd"))
+ #("1c9" "1ca" "1cb"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
- #{name 24765}#
+ #{name -ANAU$bmvAmthP7L7xws5B}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1bb" "1bc" "1bd"))
+ #("1c9" "1ca" "1cb"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22906,54 +24310,56 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1bb" "1bc" "1bd"))
+ #("1c9" "1ca" "1cb"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
- #{pattern 24766}#)
- #{template 24767}#))))
- #{tmp 24761}#)
- (let ((#{tmp 24768}#
+ #{pattern -ANAU$bmvAmthP7L7xws5C}#)
+ #{template -ANAU$bmvAmthP7L7xws5D}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws49}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws5E}#
($sc-dispatch
- #{x 24759}#
+ #{x -ANAU$bmvAmthP7L7xws47}#
'(_ (any . any) any any))))
- (if (if #{tmp 24768}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xws5E}#
(@apply
- (lambda (#{name 24772}#
- #{pattern 24773}#
- #{docstring 24774}#
- #{template 24775}#)
- (string? (syntax->datum #{docstring 24774}#)))
- #{tmp 24768}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xws5I}#
+ #{pattern -ANAU$bmvAmthP7L7xws5J}#
+ #{docstring -ANAU$bmvAmthP7L7xws5K}#
+ #{template -ANAU$bmvAmthP7L7xws5L}#)
+ (string?
+ (syntax->datum
+ #{docstring -ANAU$bmvAmthP7L7xws5K}#)))
+ #{tmp -ANAU$bmvAmthP7L7xws5E}#)
#f)
(@apply
- (lambda (#{name 24776}#
- #{pattern 24777}#
- #{docstring 24778}#
- #{template 24779}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xws5M}#
+ #{pattern -ANAU$bmvAmthP7L7xws5N}#
+ #{docstring -ANAU$bmvAmthP7L7xws5O}#
+ #{template -ANAU$bmvAmthP7L7xws5P}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1bi" "1bj" "1bk" "1bl"))
+ #("1cg" "1ch" "1ci" "1cj"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
- #{name 24776}#
+ #{name -ANAU$bmvAmthP7L7xws5M}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1bi" "1bj" "1bk" "1bl"))
+ #("1cg" "1ch" "1ci" "1cj"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
'()
- #{docstring 24778}#
+ #{docstring -ANAU$bmvAmthP7L7xws5O}#
(list (cons '#(syntax-object
_
((top)
@@ -22963,50 +24369,52 @@
docstring
template)
#((top) (top) (top) (top))
- #("1bi" "1bj" "1bk" "1bl"))
+ #("1cg" "1ch" "1ci" "1cj"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1ba")))
+ #("1c8")))
(hygiene guile))
- #{pattern 24777}#)
- #{template 24779}#))))
- #{tmp 24768}#)
+ #{pattern -ANAU$bmvAmthP7L7xws5N}#)
+ #{template -ANAU$bmvAmthP7L7xws5P}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws5E}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24759}#))))))))
+ #{x -ANAU$bmvAmthP7L7xws47}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 24813}#)
- (let ((#{tmp 24815}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws5x}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws5z}#
($sc-dispatch
- #{x 24813}#
+ #{x -ANAU$bmvAmthP7L7xws5x}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 24815}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xws5z}#
(@apply
- (lambda (#{let* 24819}#
- #{x 24820}#
- #{v 24821}#
- #{e1 24822}#
- #{e2 24823}#)
- (and-map identifier? #{x 24820}#))
- #{tmp 24815}#)
+ (lambda (#{let* -ANAU$bmvAmthP7L7xws53}#
+ #{x -ANAU$bmvAmthP7L7xws54}#
+ #{v -ANAU$bmvAmthP7L7xws55}#
+ #{e1 -ANAU$bmvAmthP7L7xws56}#
+ #{e2 -ANAU$bmvAmthP7L7xws57}#)
+ (and-map
+ identifier?
+ #{x -ANAU$bmvAmthP7L7xws54}#))
+ #{tmp -ANAU$bmvAmthP7L7xws5z}#)
#f)
(@apply
- (lambda (#{let* 24824}#
- #{x 24825}#
- #{v 24826}#
- #{e1 24827}#
- #{e2 24828}#)
+ (lambda (#{let* -ANAU$bmvAmthP7L7xws58}#
+ #{x -ANAU$bmvAmthP7L7xws59}#
+ #{v -ANAU$bmvAmthP7L7xws5$}#
+ #{e1 address@hidden
+ #{e2 -ANAU$bmvAmthP7L7xws6A}#)
(letrec*
- ((#{f 24829}#
- (lambda (#{bindings 24832}#)
- (if (null? #{bindings 24832}#)
+ ((#{f -ANAU$bmvAmthP7L7xws6B}#
+ (lambda (#{bindings -ANAU$bmvAmthP7L7xws6E}#)
+ (if (null? #{bindings -ANAU$bmvAmthP7L7xws6E}#)
(cons '#(syntax-object
let
((top)
@@ -23014,23 +24422,29 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("1bx" "1by"))
+ #("1cv" "1cw"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1bs" "1bt" "1bu" "1bv" "1bw"))
+ #("1cq" "1cr" "1cs" "1ct" "1cu"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bm")))
+ #(ribcage #(x) #((top)) #("1ck")))
(hygiene guile))
- (cons '() (cons #{e1 24827}# #{e2 24828}#)))
- (let ((#{tmp 24833}#
- (list (#{f 24829}# (cdr #{bindings 24832}#))
- (car #{bindings 24832}#))))
- (let ((#{tmp 24834}#
- ($sc-dispatch #{tmp 24833}# '(any any))))
- (if #{tmp 24834}#
+ (cons '()
+ (cons #{e1 address@hidden
+ #{e2 -ANAU$bmvAmthP7L7xws6A}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws6F}#
+ (list (#{f -ANAU$bmvAmthP7L7xws6B}#
+ (cdr #{bindings
-ANAU$bmvAmthP7L7xws6E}#))
+ (car #{bindings
-ANAU$bmvAmthP7L7xws6E}#))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws6G}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xws6F}#
+ '(any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xws6G}#
(@apply
- (lambda (#{body 24836}# #{binding 24837}#)
+ (lambda (#{body -ANAU$bmvAmthP7L7xws6I}#
+ #{binding -ANAU$bmvAmthP7L7xws6J}#)
(list '#(syntax-object
let
((top)
@@ -23038,86 +24452,102 @@
#(ribcage
#(body binding)
#((top) (top))
- #("1bz" "1c0"))
+ #("1cx" "1cy"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("1bx" "1by"))
+ #("1cv" "1cw"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1bs" "1bt" "1bu" "1bv" "1bw"))
+ #("1cq" "1cr" "1cs" "1ct" "1cu"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bm")))
+ #(ribcage #(x) #((top)) #("1ck")))
(hygiene guile))
- (list #{binding 24837}#)
- #{body 24836}#))
- #{tmp 24834}#)
+ (list #{binding
-ANAU$bmvAmthP7L7xws6J}#)
+ #{body -ANAU$bmvAmthP7L7xws6I}#))
+ #{tmp -ANAU$bmvAmthP7L7xws6G}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 24833}#))))))))
- (#{f 24829}# (map list #{x 24825}# #{v 24826}#))))
- #{tmp 24815}#)
+ #{tmp -ANAU$bmvAmthP7L7xws6F}#))))))))
+ (#{f -ANAU$bmvAmthP7L7xws6B}#
+ (map list
+ #{x -ANAU$bmvAmthP7L7xws59}#
+ #{v -ANAU$bmvAmthP7L7xws5$}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws5z}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24813}#))))))
+ #{x -ANAU$bmvAmthP7L7xws5x}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 24881}#)
- (let ((#{tmp 24883}#
+ (lambda (#{orig-x -ANAU$bmvAmthP7L7xws61}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws63}#
($sc-dispatch
- #{orig-x 24881}#
+ #{orig-x -ANAU$bmvAmthP7L7xws61}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 24883}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws63}#
(@apply
- (lambda (#{var 24887}#
- #{init 24888}#
- #{step 24889}#
- #{e0 24890}#
- #{e1 24891}#
- #{c 24892}#)
- (let ((#{tmp 24893}#
- (map (lambda (#{v 24896}# #{s 24897}#)
- (let ((#{tmp 24899}#
- ($sc-dispatch #{s 24897}# '())))
- (if #{tmp 24899}#
- (@apply (lambda () #{v 24896}#) #{tmp 24899}#)
- (let ((#{tmp 24902}#
- ($sc-dispatch #{s 24897}# '(any))))
- (if #{tmp 24902}#
+ (lambda (#{var -ANAU$bmvAmthP7L7xws67}#
+ #{init -ANAU$bmvAmthP7L7xws68}#
+ #{step -ANAU$bmvAmthP7L7xws69}#
+ #{e0 -ANAU$bmvAmthP7L7xws6$}#
+ #{e1 address@hidden
+ #{c -ANAU$bmvAmthP7L7xws7A}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7B}#
+ (map (lambda (#{v -ANAU$bmvAmthP7L7xws7E}#
+ #{s -ANAU$bmvAmthP7L7xws7F}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7H}#
+ ($sc-dispatch
+ #{s -ANAU$bmvAmthP7L7xws7F}#
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xws7H}#
+ (@apply
+ (lambda () #{v -ANAU$bmvAmthP7L7xws7E}#)
+ #{tmp -ANAU$bmvAmthP7L7xws7H}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7K}#
+ ($sc-dispatch
+ #{s -ANAU$bmvAmthP7L7xws7F}#
+ '(any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xws7K}#
(@apply
- (lambda (#{e 24905}#) #{e 24905}#)
- #{tmp 24902}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xws7N}#)
+ #{e -ANAU$bmvAmthP7L7xws7N}#)
+ #{tmp -ANAU$bmvAmthP7L7xws7K}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 24881}#
- #{s 24897}#))))))
- #{var 24887}#
- #{step 24889}#)))
- (let ((#{tmp 24894}#
- ($sc-dispatch #{tmp 24893}# 'each-any)))
- (if #{tmp 24894}#
+ #{orig-x -ANAU$bmvAmthP7L7xws61}#
+ #{s -ANAU$bmvAmthP7L7xws7F}#))))))
+ #{var -ANAU$bmvAmthP7L7xws67}#
+ #{step -ANAU$bmvAmthP7L7xws69}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7C}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xws7B}#
+ 'each-any)))
+ (if #{tmp -ANAU$bmvAmthP7L7xws7C}#
(@apply
- (lambda (#{step 24911}#)
- (let ((#{tmp 24913}# ($sc-dispatch #{e1 24891}# '())))
- (if #{tmp 24913}#
+ (lambda (#{step -ANAU$bmvAmthP7L7xws7T}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7V}#
+ ($sc-dispatch
+ #{e1 address@hidden
+ '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xws7V}#
(@apply
(lambda ()
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1c8"))
+ #(ribcage #(step) #((top)) #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23126,23 +24556,23 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
'#(syntax-object
doloop
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1c8"))
+ #(ribcage #(step) #((top)) #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23151,19 +24581,21 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
- (map list #{var 24887}# #{init 24888}#)
+ (map list
+ #{var -ANAU$bmvAmthP7L7xws67}#
+ #{init -ANAU$bmvAmthP7L7xws68}#)
(list '#(syntax-object
if
((top)
@@ -23171,7 +24603,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23180,17 +24612,17 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
(list '#(syntax-object
not
@@ -23199,7 +24631,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -23213,19 +24645,19 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
- #{e0 24890}#)
+ #{e0
-ANAU$bmvAmthP7L7xws6$}#)
(cons '#(syntax-object
begin
((top)
@@ -23233,7 +24665,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -23247,20 +24679,20 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
(append
- #{c 24892}#
+ #{c
-ANAU$bmvAmthP7L7xws7A}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -23271,7 +24703,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -23285,12 +24717,12 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage
()
()
@@ -23298,30 +24730,31 @@
#(ribcage
#(orig-x)
#((top))
-
#("1c1")))
+
#("1cz")))
(hygiene
guile))
- #{step
24911}#)))))))
- #{tmp 24913}#)
- (let ((#{tmp 24917}#
+ #{step
-ANAU$bmvAmthP7L7xws7T}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xws7V}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7Z}#
($sc-dispatch
- #{e1 24891}#
+ #{e1 address@hidden
'(any . each-any))))
- (if #{tmp 24917}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws7Z}#
(@apply
- (lambda (#{e1 24921}# #{e2 24922}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xws7d}#
+ #{e2 -ANAU$bmvAmthP7L7xws7e}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23330,17 +24763,17 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23348,12 +24781,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23362,33 +24795,33 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
(map list
- #{var 24887}#
- #{init 24888}#)
+ #{var -ANAU$bmvAmthP7L7xws67}#
+ #{init -ANAU$bmvAmthP7L7xws68}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23397,31 +24830,31 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
- #{e0 24890}#
+ #{e0 -ANAU$bmvAmthP7L7xws6$}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -23435,32 +24868,32 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
- (cons #{e1 24921}#
- #{e2 24922}#))
+ (cons #{e1
-ANAU$bmvAmthP7L7xws7d}#
+ #{e2
-ANAU$bmvAmthP7L7xws7e}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -23474,20 +24907,20 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("1cz")))
(hygiene guile))
(append
- #{c 24892}#
+ #{c
-ANAU$bmvAmthP7L7xws7A}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -23496,8 +24929,8 @@
e2)
#((top)
(top))
-
#("1c9"
-
"1ca"))
+
#("1d7"
+
"1d8"))
#(ribcage
()
()
@@ -23505,7 +24938,7 @@
#(ribcage
#(step)
#((top))
-
#("1c8"))
+
#("1d6"))
#(ribcage
#(var
init
@@ -23519,12 +24952,12 @@
(top)
(top)
(top))
-
#("1c2"
-
"1c3"
-
"1c4"
-
"1c5"
-
"1c6"
-
"1c7"))
+
#("1d0"
+
"1d1"
+
"1d2"
+
"1d3"
+
"1d4"
+
"1d5"))
#(ribcage
()
()
@@ -23532,42 +24965,43 @@
#(ribcage
#(orig-x)
#((top))
-
#("1c1")))
+
#("1cz")))
(hygiene
guile))
- #{step
24911}#)))))))
- #{tmp 24917}#)
+ #{step
-ANAU$bmvAmthP7L7xws7T}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xws7Z}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 24891}#))))))
- #{tmp 24894}#)
+ #{e1 address@hidden))))))
+ #{tmp -ANAU$bmvAmthP7L7xws7C}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 24893}#)))))
- #{tmp 24883}#)
+ #{tmp -ANAU$bmvAmthP7L7xws7B}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xws63}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 24881}#))))))
+ #{orig-x -ANAU$bmvAmthP7L7xws61}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 25129}#
- (lambda (#{p 25153}# #{lev 25154}#)
- (let ((#{tmp 25156}#
+ ((#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ (lambda (#{p address@hidden
+ #{lev address@hidden)
+ (let ((#{tmp address@hidden
($sc-dispatch
- #{p 25153}#
+ #{p address@hidden
'(#(free-id
#(syntax-object
unquote
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23576,22 +25010,22 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
any))))
- (if #{tmp 25156}#
+ (if #{tmp address@hidden
(@apply
- (lambda (#{p 25160}#)
- (if (= #{lev 25154}# 0)
+ (lambda (#{p address@hidden)
+ (if (= #{lev address@hidden 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("1co"))
+ #(ribcage #(p) #((top)) #("1dm"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23600,16 +25034,16 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
- #{p 25160}#)
- (#{quasicons 25131}#
+ #{p address@hidden)
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1co"))
+ #(ribcage #(p) #((top)) #("1dm"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23618,14 +25052,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1co"))
+ #(ribcage #(p) #((top)) #("1dm"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23634,15 +25068,15 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
- (#{quasi 25129}#
- (list #{p 25160}#)
- (#{1-}# #{lev 25154}#)))))
- #{tmp 25156}#)
- (let ((#{tmp 25163}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ (list #{p address@hidden)
+ (#{1-}# #{lev address@hidden)))))
+ #{tmp address@hidden)
+ (let ((#{tmp address@hidden
($sc-dispatch
- #{p 25153}#
+ #{p address@hidden
'(#(free-id
#(syntax-object
quasiquote
@@ -23651,7 +25085,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23660,19 +25094,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
any))))
- (if #{tmp 25163}#
+ (if #{tmp address@hidden
(@apply
- (lambda (#{p 25167}#)
- (#{quasicons 25131}#
+ (lambda (#{p address@hidden)
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1cp"))
+ #(ribcage #(p) #((top)) #("1dn"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23681,14 +25115,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("1cp"))
+ #(ribcage #(p) #((top)) #("1dn"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23697,20 +25131,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
- (#{quasi 25129}#
- (list #{p 25167}#)
- (#{1+}# #{lev 25154}#))))
- #{tmp 25163}#)
- (let ((#{tmp 25170}#
- ($sc-dispatch #{p 25153}# '(any . any))))
- (if #{tmp 25170}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ (list #{p address@hidden)
+ (#{1+}# #{lev address@hidden))))
+ #{tmp address@hidden)
+ (let ((#{tmp address@hidden
+ ($sc-dispatch
+ #{p address@hidden
+ '(any . any))))
+ (if #{tmp address@hidden
(@apply
- (lambda (#{p 25174}# #{q 25175}#)
- (let ((#{tmp 25177}#
+ (lambda (#{p address@hidden
+ #{q address@hidden)
+ (let ((#{tmp address@hidden
($sc-dispatch
- #{p 25174}#
+ #{p address@hidden
'(#(free-id
#(syntax-object
unquote
@@ -23718,12 +25155,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23738,38 +25175,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25177}#
+ (if #{tmp address@hidden
(@apply
- (lambda (#{p 25181}#)
- (if (= #{lev 25154}# 0)
- (#{quasilist* 25133}#
- (map (lambda (#{tmp 24958 25217}#)
+ (lambda (#{p address@hidden)
+ (if (= #{lev address@hidden 0)
+ (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
+ (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1cs"))
+ #("1dq"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23784,34 +25221,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp 24958 25217}#))
- #{p 25181}#)
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp
-ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#))
+ #{p address@hidden)
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q address@hidden
+ #{lev address@hidden))
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1cs"))
+ #(ribcage #(p) #((top)) #("1dq"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23826,27 +25263,27 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1cs"))
+ #(ribcage #(p) #((top)) #("1dq"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23861,24 +25298,24 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25181}#
- (#{1-}# #{lev 25154}#)))
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))))
- #{tmp 25177}#)
- (let ((#{tmp 25222}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p address@hidden
+ (#{1-}# #{lev address@hidden)))
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q address@hidden
+ #{lev address@hidden))))
+ #{tmp address@hidden)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtAK}#
($sc-dispatch
- #{p 25174}#
+ #{p address@hidden
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23886,12 +25323,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23906,38 +25343,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25222}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAK}#
(@apply
- (lambda (#{p 25226}#)
- (if (= #{lev 25154}# 0)
- (#{quasiappend 25132}#
- (map (lambda (#{tmp 24962 25229}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtAO}#)
+ (if (= #{lev address@hidden 0)
+ (#{quasiappend
-ANAU$bmvAmthP7L7xws$w}#
+ (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1ct"))
+ #("1dr"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23952,37 +25389,37 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp 24962 25229}#))
- #{p 25226}#)
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp
-ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#))
+ #{p -ANAU$bmvAmthP7L7xwtAO}#)
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q address@hidden
+ #{lev address@hidden))
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasicons
-ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("1ct"))
+ #("1dr"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -23997,13 +25434,13 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -24011,16 +25448,16 @@
#(ribcage
#(p)
#((top))
- #("1ct"))
+ #("1dr"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -24035,57 +25472,59 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25226}#
- (#{1-}# #{lev 25154}#)))
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))))
- #{tmp 25222}#)
- (#{quasicons 25131}#
- (#{quasi 25129}#
- #{p 25174}#
- #{lev 25154}#)
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#)))))))
- #{tmp 25170}#)
- (let ((#{tmp 25243}#
- ($sc-dispatch #{p 25153}# '#(vector each-any))))
- (if #{tmp 25243}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p -ANAU$bmvAmthP7L7xwtAO}#
+ (#{1-}# #{lev address@hidden)))
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q address@hidden
+ #{lev address@hidden))))
+ #{tmp -ANAU$bmvAmthP7L7xwtAK}#)
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p address@hidden
+ #{lev address@hidden)
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q address@hidden
+ #{lev address@hidden)))))))
+ #{tmp address@hidden)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtAf}#
+ ($sc-dispatch
+ #{p address@hidden
+ '#(vector each-any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAf}#
(@apply
- (lambda (#{x 25247}#)
- (let ((#{x 25250}#
- (#{vquasi 25130}#
- #{x 25247}#
- #{lev 25154}#)))
- (let ((#{tmp 25252}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtAj}#)
+ (let ((#{x -ANAU$bmvAmthP7L7xwtAm}#
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ #{x -ANAU$bmvAmthP7L7xwtAj}#
+ #{lev address@hidden)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtAo}#
($sc-dispatch
- #{x 25250}#
+ #{x -ANAU$bmvAmthP7L7xwtAm}#
'(#(atom "quote") each-any))))
- (if #{tmp 25252}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAo}#
(@apply
- (lambda (#{x 25256}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtAs}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("1dp"))
+ #("1en"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1do"))
+ #("1em"))
#(ribcage
(emit quasivector
quasilist*
@@ -24100,36 +25539,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (list->vector #{x 25256}#)))
- #{tmp 25252}#)
+ (list->vector
+ #{x
-ANAU$bmvAmthP7L7xwtAs}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtAo}#)
(letrec*
- ((#{f 25258}#
- (lambda (#{y 25270}# #{k 25271}#)
- (let ((#{tmp 25273}#
+ ((#{f -ANAU$bmvAmthP7L7xwtAu}#
+ (lambda (#{y -ANAU$bmvAmthP7L7xwtA6}#
+ #{k
-ANAU$bmvAmthP7L7xwtA7}#)
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwtA9}#
($sc-dispatch
- #{y 25270}#
+ #{y
-ANAU$bmvAmthP7L7xwtA6}#
'(#(atom "quote")
each-any))))
- (if #{tmp 25273}#
+ (if #{tmp
-ANAU$bmvAmthP7L7xwtA9}#
(@apply
- (lambda (#{y 25276}#)
- (#{k 25271}#
- (map (lambda (#{tmp
25053 25277}#)
+ (lambda (#{y
-ANAU$bmvAmthP7L7xwtBA}#)
+ (#{k
-ANAU$bmvAmthP7L7xwtA7}#
+ (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("1dw"))
+
#("1eu"))
#(ribcage
()
()
@@ -24141,13 +25582,13 @@
#((top)
(top)
(top))
-
#("1dr"
-
"1ds"
-
"1dt"))
+
#("1ep"
+
"1eq"
+
"1er"))
#(ribcage
#(_)
#((top))
-
#("1dq"))
+
#("1eo"))
#(ribcage
()
()
@@ -24155,7 +25596,7 @@
#(ribcage
#(x)
#((top))
-
#("1do"))
+
#("1em"))
#(ribcage
(emit
quasivector
quasilist*
@@ -24170,51 +25611,51 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
-
"1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+
"1dd")))
(hygiene
guile))
- #{tmp 25053
25277}#))
- #{y 25276}#)))
- #{tmp 25273}#)
- (let ((#{tmp 25278}#
+ #{tmp
-ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#))
+ #{y
-ANAU$bmvAmthP7L7xwtBA}#)))
+ #{tmp
-ANAU$bmvAmthP7L7xwtA9}#)
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwtBC}#
($sc-dispatch
- #{y 25270}#
+ #{y
-ANAU$bmvAmthP7L7xwtA6}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 25278}#
+ (if #{tmp
-ANAU$bmvAmthP7L7xwtBC}#
(@apply
- (lambda (#{y 25281}#)
- (#{k 25271}#
- #{y 25281}#))
- #{tmp 25278}#)
- (let ((#{tmp 25282}#
+ (lambda (#{y
-ANAU$bmvAmthP7L7xwtBF}#)
+ (#{k
-ANAU$bmvAmthP7L7xwtA7}#
+ #{y
-ANAU$bmvAmthP7L7xwtBF}#))
+ #{tmp
-ANAU$bmvAmthP7L7xwtBC}#)
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwtBG}#
($sc-dispatch
- #{y 25270}#
+ #{y
-ANAU$bmvAmthP7L7xwtA6}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 25282}#
+ (if #{tmp
-ANAU$bmvAmthP7L7xwtBG}#
(@apply
- (lambda (#{y 25285}#
- #{z 25286}#)
- (#{f 25258}#
- #{z 25286}#
- (lambda (#{ls
25287}#)
- (#{k 25271}#
+ (lambda (#{y
-ANAU$bmvAmthP7L7xwtBJ}#
+ #{z
-ANAU$bmvAmthP7L7xwtBK}#)
+ (#{f
-ANAU$bmvAmthP7L7xwtAu}#
+ #{z
-ANAU$bmvAmthP7L7xwtBK}#
+ (lambda (#{ls
-ANAU$bmvAmthP7L7xwtBL}#)
+ (#{k
-ANAU$bmvAmthP7L7xwtA7}#
(append
- #{y 25285}#
- #{ls
25287}#)))))
- #{tmp 25282}#)
+ #{y
-ANAU$bmvAmthP7L7xwtBJ}#
+ #{ls
-ANAU$bmvAmthP7L7xwtBL}#)))))
+ #{tmp
-ANAU$bmvAmthP7L7xwtBG}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -24223,14 +25664,14 @@
()
())
#(ribcage
- #(#{
g25063}#)
- #((m25064
+ #(#{
g-ANAU$bmvAmthP7L7xws9r}#)
+
#((m-ANAU$bmvAmthP7L7xws9s
top))
- #("1e2"))
+ #("1f0"))
#(ribcage
#(else)
#((top))
- #("1e1"))
+ #("1ez"))
#(ribcage
()
()
@@ -24240,13 +25681,13 @@
#((top)
(top)
(top))
- #("1dr"
- "1ds"
- "1dt"))
+ #("1ep"
+ "1eq"
+ "1er"))
#(ribcage
#(_)
#((top))
- #("1dq"))
+ #("1eo"))
#(ribcage
()
()
@@ -24254,7 +25695,7 @@
#(ribcage
#(x)
#((top))
- #("1do"))
+ #("1em"))
#(ribcage
(emit
quasivector
quasilist*
@@ -24269,26 +25710,26 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene
guile))
- #{x
25250}#))))))))))
- (#{f 25258}#
- #{x 25250}#
- (lambda (#{ls 25260}#)
- (let ((#{tmp 25262}#
+ #{x
-ANAU$bmvAmthP7L7xwtAm}#))))))))))
+ (#{f -ANAU$bmvAmthP7L7xwtAu}#
+ #{x -ANAU$bmvAmthP7L7xwtAm}#
+ (lambda (#{ls
-ANAU$bmvAmthP7L7xwtAw}#)
+ (let ((#{tmp
-ANAU$bmvAmthP7L7xwtAy}#
($sc-dispatch
- #{ls 25260}#
+ #{ls
-ANAU$bmvAmthP7L7xwtAw}#
'each-any)))
- (if #{tmp 25262}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAy}#
(@apply
- (lambda (#{ g25043 25265}#)
+ (lambda (#{
g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#)
(cons '#(syntax-object
"vector"
((top)
@@ -24297,9 +25738,10 @@
()
())
#(ribcage
- #(#{ g25043}#)
- #((m25044 top))
- #("1dv"))
+ #(#{
g-ANAU$bmvAmthP7L7xws9X}#)
+
#((m-ANAU$bmvAmthP7L7xws9Y
+ top))
+ #("1et"))
#(ribcage
()
()
@@ -24315,11 +25757,11 @@
#(ribcage
#(ls)
#((top))
- #("1du"))
+ #("1es"))
#(ribcage
#(_)
#((top))
- #("1dq"))
+ #("1eo"))
#(ribcage
()
()
@@ -24327,7 +25769,7 @@
#(ribcage
#(x)
#((top))
- #("1do"))
+ #("1em"))
#(ribcage
(emit
quasivector
quasilist*
@@ -24342,30 +25784,30 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g25043 25265}#))
- #{tmp 25262}#)
+ #{
g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#))
+ #{tmp
-ANAU$bmvAmthP7L7xwtAy}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls 25260}#))))))))))
- #{tmp 25243}#)
+ #{ls
-ANAU$bmvAmthP7L7xwtAw}#))))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtAf}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1cw"))
+ #(ribcage #(p) #((top)) #("1du"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -24380,25 +25822,29 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{p 25153}#)))))))))))
- (#{vquasi 25130}#
- (lambda (#{p 25315}# #{lev 25316}#)
- (let ((#{tmp 25318}#
- ($sc-dispatch #{p 25315}# '(any . any))))
- (if #{tmp 25318}#
+ #{p address@hidden)))))))))))
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtBn}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtBq}#
+ ($sc-dispatch
+ #{p -ANAU$bmvAmthP7L7xwtBn}#
+ '(any . any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtBq}#
(@apply
- (lambda (#{p 25322}# #{q 25323}#)
- (let ((#{tmp 25325}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtBu}#
+ #{q -ANAU$bmvAmthP7L7xwtBv}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtBx}#
($sc-dispatch
- #{p 25322}#
+ #{p -ANAU$bmvAmthP7L7xwtBu}#
'(#(free-id
#(syntax-object
unquote
@@ -24406,12 +25852,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24426,38 +25872,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25325}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtBx}#
(@apply
- (lambda (#{p 25329}#)
- (if (= #{lev 25316}# 0)
- (#{quasilist* 25133}#
- (map (lambda (#{tmp 24978 25365}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtB1}#)
+ (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0)
+ (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8W
-ANAU$bmvAmthP7L7xwtCZ}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1d1"))
+ #("1dz"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24472,32 +25918,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp 24978 25365}#))
- #{p 25329}#)
- (#{vquasi 25130}# #{q 25323}# #{lev 25316}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp -ANAU$bmvAmthP7L7xws8W
-ANAU$bmvAmthP7L7xwtCZ}#))
+ #{p -ANAU$bmvAmthP7L7xwtB1}#)
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ #{q -ANAU$bmvAmthP7L7xwtBv}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#))
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1d1"))
+ #(ribcage #(p) #((top)) #("1dz"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24512,27 +25960,27 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1d1"))
+ #(ribcage #(p) #((top)) #("1dz"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24547,22 +25995,24 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25329}#
- (#{1-}# #{lev 25316}#)))
- (#{vquasi 25130}# #{q 25323}# #{lev 25316}#))))
- #{tmp 25325}#)
- (let ((#{tmp 25372}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p -ANAU$bmvAmthP7L7xwtB1}#
+ (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#)))
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ #{q -ANAU$bmvAmthP7L7xwtBv}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtBx}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtCg}#
($sc-dispatch
- #{p 25322}#
+ #{p -ANAU$bmvAmthP7L7xwtBu}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24570,12 +26020,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24590,38 +26040,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25372}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtCg}#
(@apply
- (lambda (#{p 25376}#)
- (if (= #{lev 25316}# 0)
- (#{quasiappend 25132}#
- (map (lambda (#{tmp 24982 25379}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtCk}#)
+ (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0)
+ (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8a
-ANAU$bmvAmthP7L7xwtCn}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1d2"))
+ #("1e0"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24636,34 +26086,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp 24982 25379}#))
- #{p 25376}#)
- (#{vquasi 25130}#
- #{q 25323}#
- #{lev 25316}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp -ANAU$bmvAmthP7L7xws8a
-ANAU$bmvAmthP7L7xwtCn}#))
+ #{p -ANAU$bmvAmthP7L7xwtCk}#)
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ #{q -ANAU$bmvAmthP7L7xwtBv}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#))
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1d2"))
+ #(ribcage #(p) #((top)) #("1e0"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24678,27 +26128,27 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("1d2"))
+ #(ribcage #(p) #((top)) #("1e0"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24713,34 +26163,39 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25376}#
- (#{1-}# #{lev 25316}#)))
- (#{vquasi 25130}#
- #{q 25323}#
- #{lev 25316}#))))
- #{tmp 25372}#)
- (#{quasicons 25131}#
- (#{quasi 25129}# #{p 25322}# #{lev 25316}#)
- (#{vquasi 25130}# #{q 25323}# #{lev 25316}#)))))))
- #{tmp 25318}#)
- (let ((#{tmp 25397}# ($sc-dispatch #{p 25315}# '())))
- (if #{tmp 25397}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p -ANAU$bmvAmthP7L7xwtCk}#
+ (#{1-}# #{lev
-ANAU$bmvAmthP7L7xwtBo}#)))
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ #{q -ANAU$bmvAmthP7L7xwtBv}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtCg}#)
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p -ANAU$bmvAmthP7L7xwtBu}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#)
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ #{q -ANAU$bmvAmthP7L7xwtBv}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtBq}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtC5}#
+ ($sc-dispatch #{p -ANAU$bmvAmthP7L7xwtBn}# '())))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtC5}#
(@apply
(lambda ()
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cx" "1cy"))
+ #(ribcage #(p lev) #((top) (top)) #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -24749,58 +26204,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
()))
- #{tmp 25397}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtC5}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 25315}#)))))))
- (#{quasicons 25131}#
- (lambda (#{x 25410}# #{y 25411}#)
- (let ((#{tmp 25412}# (list #{x 25410}# #{y 25411}#)))
- (let ((#{tmp 25413}#
- ($sc-dispatch #{tmp 25412}# '(any any))))
- (if #{tmp 25413}#
+ #{p -ANAU$bmvAmthP7L7xwtBn}#)))))))
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtDG}#
+ #{y -ANAU$bmvAmthP7L7xwtDH}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDI}#
+ (list #{x -ANAU$bmvAmthP7L7xwtDG}#
+ #{y -ANAU$bmvAmthP7L7xwtDH}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDJ}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwtDI}#
+ '(any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDJ}#
(@apply
- (lambda (#{x 25415}# #{y 25416}#)
- (let ((#{tmp 25418}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDO}#
($sc-dispatch
- #{y 25416}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#
'(#(atom "quote") any))))
- (if #{tmp 25418}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDO}#
(@apply
- (lambda (#{dy 25422}#)
- (let ((#{tmp 25424}#
+ (lambda (#{dy -ANAU$bmvAmthP7L7xwtDS}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDU}#
($sc-dispatch
- #{x 25415}#
+ #{x -ANAU$bmvAmthP7L7xwtDL}#
'(#(atom "quote") any))))
- (if #{tmp 25424}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDU}#
(@apply
- (lambda (#{dx 25428}#)
+ (lambda (#{dx -ANAU$bmvAmthP7L7xwtDY}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("1d9"))
+ #("1e7"))
#(ribcage
#(dy)
#((top))
- #("1d8"))
+ #("1e6"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -24815,33 +26276,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (cons #{dx 25428}# #{dy 25422}#)))
- #{tmp 25424}#)
- (if (null? #{dy 25422}#)
+ (cons #{dx -ANAU$bmvAmthP7L7xwtDY}#
+ #{dy
-ANAU$bmvAmthP7L7xwtDS}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtDU}#)
+ (if (null? #{dy -ANAU$bmvAmthP7L7xwtDS}#)
(list '#(syntax-object
"list"
((top)
- #(ribcage #(_) #((top)) #("1da"))
- #(ribcage #(dy) #((top)) #("1d8"))
+ #(ribcage #(_) #((top)) #("1e8"))
+ #(ribcage #(dy) #((top)) #("1e6"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -24856,31 +26318,31 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{x 25415}#)
+ #{x -ANAU$bmvAmthP7L7xwtDL}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1da"))
- #(ribcage #(dy) #((top)) #("1d8"))
+ #(ribcage #(_) #((top)) #("1e8"))
+ #(ribcage #(dy) #((top)) #("1e6"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -24895,42 +26357,42 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{x 25415}#
- #{y 25416}#)))))
- #{tmp 25418}#)
- (let ((#{tmp 25433}#
+ #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtDO}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDd}#
($sc-dispatch
- #{y 25416}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#
'(#(atom "list") . any))))
- (if #{tmp 25433}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDd}#
(@apply
- (lambda (#{stuff 25437}#)
+ (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDh}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("1db"))
+ #("1e9"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -24945,41 +26407,42 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (cons #{x 25415}# #{stuff 25437}#)))
- #{tmp 25433}#)
- (let ((#{tmp 25438}#
+ (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{stuff
-ANAU$bmvAmthP7L7xwtDh}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtDd}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDi}#
($sc-dispatch
- #{y 25416}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#
'(#(atom "list*") . any))))
- (if #{tmp 25438}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDi}#
(@apply
- (lambda (#{stuff 25442}#)
+ (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDm}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("1dc"))
+ #("1ea"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -24994,31 +26457,32 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (cons #{x 25415}# #{stuff 25442}#)))
- #{tmp 25438}#)
+ (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{stuff
-ANAU$bmvAmthP7L7xwtDm}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtDi}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1dd"))
+ #(ribcage #(_) #((top)) #("1eb"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -25033,34 +26497,37 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{x 25415}#
- #{y 25416}#))))))))
- #{tmp 25413}#)
+ #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtDJ}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25412}#))))))
- (#{quasiappend 25132}#
- (lambda (#{x 25453}# #{y 25454}#)
- (let ((#{tmp 25456}#
- ($sc-dispatch #{y 25454}# '(#(atom "quote") ()))))
- (if #{tmp 25456}#
+ #{tmp -ANAU$bmvAmthP7L7xwtDI}#))))))
+ (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtDx}#
+ #{y -ANAU$bmvAmthP7L7xwtDy}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtD0}#
+ ($sc-dispatch
+ #{y -ANAU$bmvAmthP7L7xwtDy}#
+ '(#(atom "quote") ()))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtD0}#
(@apply
(lambda ()
- (if (null? #{x 25453}#)
+ (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#)
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(x y) #((top) (top)) #("1de" "1df"))
+ #(ribcage #(x y) #((top) (top)) #("1ec" "1ed"))
#(ribcage
(emit quasivector
quasilist*
@@ -25069,26 +26536,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
())
- (if (null? (cdr #{x 25453}#))
- (car #{x 25453}#)
- (let ((#{tmp 25461}#
- ($sc-dispatch #{x 25453}# 'each-any)))
- (if #{tmp 25461}#
+ (if (null? (cdr #{x -ANAU$bmvAmthP7L7xwtDx}#))
+ (car #{x -ANAU$bmvAmthP7L7xwtDx}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtD5}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xwtDx}#
+ 'each-any)))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtD5}#
(@apply
- (lambda (#{p 25465}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtD9}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("1dg"))
+ #(ribcage #(p) #((top)) #("1ee"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1de" "1df"))
+ #("1ec" "1ed"))
#(ribcage
(emit quasivector
quasilist*
@@ -25103,29 +26572,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{p 25465}#))
- #{tmp 25461}#)
+ #{p -ANAU$bmvAmthP7L7xwtD9}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtD5}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25453}#))))))
- #{tmp 25456}#)
- (if (null? #{x 25453}#)
- #{y 25454}#
- (let ((#{tmp 25473}# (list #{x 25453}# #{y 25454}#)))
- (let ((#{tmp 25474}#
- ($sc-dispatch #{tmp 25473}# '(each-any any))))
- (if #{tmp 25474}#
+ #{x -ANAU$bmvAmthP7L7xwtDx}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtD0}#)
+ (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#)
+ #{y -ANAU$bmvAmthP7L7xwtDy}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtEF}#
+ (list #{x -ANAU$bmvAmthP7L7xwtDx}#
+ #{y -ANAU$bmvAmthP7L7xwtDy}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtEG}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwtEF}#
+ '(each-any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtEG}#
(@apply
- (lambda (#{p 25476}# #{y 25477}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtEI}#
+ #{y -ANAU$bmvAmthP7L7xwtEJ}#)
(cons '#(syntax-object
"append"
((top)
@@ -25133,13 +26607,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("1di" "1dj"))
- #(ribcage #(_) #((top)) #("1dh"))
+ #("1eg" "1eh"))
+ #(ribcage #(_) #((top)) #("1ef"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1de" "1df"))
+ #("1ec" "1ed"))
#(ribcage
(emit quasivector
quasilist*
@@ -25154,44 +26628,51 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (append #{p 25476}# (list #{y 25477}#))))
- #{tmp 25474}#)
+ (append
+ #{p -ANAU$bmvAmthP7L7xwtEI}#
+ (list #{y -ANAU$bmvAmthP7L7xwtEJ}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtEG}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25473}#)))))))))
- (#{quasilist* 25133}#
- (lambda (#{x 25481}# #{y 25482}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtEF}#)))))))))
+ (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtEN}#
+ #{y -ANAU$bmvAmthP7L7xwtEO}#)
(letrec*
- ((#{f 25483}#
- (lambda (#{x 25572}#)
- (if (null? #{x 25572}#)
- #{y 25482}#
- (#{quasicons 25131}#
- (car #{x 25572}#)
- (#{f 25483}# (cdr #{x 25572}#)))))))
- (#{f 25483}# #{x 25481}#))))
- (#{emit 25135}#
- (lambda (#{x 25575}#)
- (let ((#{tmp 25577}#
- ($sc-dispatch #{x 25575}# '(#(atom "quote") any))))
- (if #{tmp 25577}#
+ ((#{f -ANAU$bmvAmthP7L7xwtEP}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtFo}#)
+ (if (null? #{x -ANAU$bmvAmthP7L7xwtFo}#)
+ #{y -ANAU$bmvAmthP7L7xwtEO}#
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (car #{x -ANAU$bmvAmthP7L7xwtFo}#)
+ (#{f -ANAU$bmvAmthP7L7xwtEP}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwtFo}#)))))))
+ (#{f -ANAU$bmvAmthP7L7xwtEP}#
+ #{x -ANAU$bmvAmthP7L7xwtEN}#))))
+ (#{emit -ANAU$bmvAmthP7L7xws$z}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtFr}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtFt}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
+ '(#(atom "quote") any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtFt}#
(@apply
- (lambda (#{x 25581}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtFx}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("1e4"))
+ #(ribcage #(x) #((top)) #("1f2"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1e3"))
+ #(ribcage #(x) #((top)) #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -25200,34 +26681,38 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
- #{x 25581}#))
- #{tmp 25577}#)
- (let ((#{tmp 25582}#
+ #{x -ANAU$bmvAmthP7L7xwtFx}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtFt}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtFy}#
($sc-dispatch
- #{x 25575}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "list") . each-any))))
- (if #{tmp 25582}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtFy}#
(@apply
- (lambda (#{x 25586}#)
- (let ((#{tmp 25587}# (map #{emit 25135}# #{x 25586}#)))
- (let ((#{tmp 25588}#
- ($sc-dispatch #{tmp 25587}# 'each-any)))
- (if #{tmp 25588}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtF2}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtF3}#
+ (map #{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x -ANAU$bmvAmthP7L7xwtF2}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtF4}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwtF3}#
+ 'each-any)))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtF4}#
(@apply
- (lambda (#{ g25074 25590}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws92
-ANAU$bmvAmthP7L7xwtF6}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25074}#)
- #((m25075 top))
- #("1e6"))
- #(ribcage #(x) #((top)) #("1e5"))
+ #(#{ g-ANAU$bmvAmthP7L7xws92}#)
+ #((m-ANAU$bmvAmthP7L7xws93 top))
+ #("1f4"))
+ #(ribcage #(x) #((top)) #("1f3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1e3"))
+ #(ribcage #(x) #((top)) #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -25242,70 +26727,74 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g25074 25590}#))
- #{tmp 25588}#)
+ #{ g-ANAU$bmvAmthP7L7xws92
-ANAU$bmvAmthP7L7xwtF6}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtF4}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25587}#)))))
- #{tmp 25582}#)
- (let ((#{tmp 25591}#
+ #{tmp -ANAU$bmvAmthP7L7xwtF3}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtFy}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtF7}#
($sc-dispatch
- #{x 25575}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 25591}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtF7}#
(@apply
- (lambda (#{x 25595}# #{y 25596}#)
+ (lambda (#{x address@hidden
+ #{y -ANAU$bmvAmthP7L7xwtGA}#)
(letrec*
- ((#{f 25597}#
- (lambda (#{x* 25600}#)
- (if (null? #{x* 25600}#)
- (#{emit 25135}# #{y 25596}#)
- (let ((#{tmp 25601}#
- (list (#{emit 25135}#
- (car #{x* 25600}#))
- (#{f 25597}#
- (cdr #{x* 25600}#)))))
- (let ((#{tmp 25602}#
+ ((#{f -ANAU$bmvAmthP7L7xwtGB}#
+ (lambda (#{x* -ANAU$bmvAmthP7L7xwtGE}#)
+ (if (null? #{x* -ANAU$bmvAmthP7L7xwtGE}#)
+ (#{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{y -ANAU$bmvAmthP7L7xwtGA}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGF}#
+ (list (#{emit
-ANAU$bmvAmthP7L7xws$z}#
+ (car #{x*
-ANAU$bmvAmthP7L7xwtGE}#))
+ (#{f -ANAU$bmvAmthP7L7xwtGB}#
+ (cdr #{x*
-ANAU$bmvAmthP7L7xwtGE}#)))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGG}#
($sc-dispatch
- #{tmp 25601}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGF}#
'(any any))))
- (if #{tmp 25602}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGG}#
(@apply
- (lambda (#{ g25089 25604}#
- #{ g25088 25605}#)
+ (lambda (#{
g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}#
+ #{
g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25089}#
- #{ g25088}#)
- #((m25090 top)
- (m25090 top))
- #("1eb" "1ec"))
+ #(#{
g-ANAU$bmvAmthP7L7xws$F}#
+ #{
g-ANAU$bmvAmthP7L7xws$E}#)
+
#((m-ANAU$bmvAmthP7L7xws$G
+ top)
+
(m-ANAU$bmvAmthP7L7xws$G
+ top))
+ #("1f9" "1fa"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("1e9" "1ea"))
+ #("1f7" "1f8"))
#(ribcage
#(x y)
#((top) (top))
- #("1e7" "1e8"))
+ #("1f5" "1f6"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -25320,56 +26809,59 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g25089 25604}#
- #{ g25088 25605}#))
- #{tmp 25602}#)
+ #{ g-ANAU$bmvAmthP7L7xws$F
-ANAU$bmvAmthP7L7xwtGI}#
+ #{ g-ANAU$bmvAmthP7L7xws$E
-ANAU$bmvAmthP7L7xwtGJ}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtGG}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 25601}#))))))))
- (#{f 25597}# #{x 25595}#)))
- #{tmp 25591}#)
- (let ((#{tmp 25606}#
+ #{tmp
-ANAU$bmvAmthP7L7xwtGF}#))))))))
+ (#{f -ANAU$bmvAmthP7L7xwtGB}#
+ #{x address@hidden)))
+ #{tmp -ANAU$bmvAmthP7L7xwtF7}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGK}#
($sc-dispatch
- #{x 25575}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "append") . each-any))))
- (if #{tmp 25606}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGK}#
(@apply
- (lambda (#{x 25610}#)
- (let ((#{tmp 25611}#
- (map #{emit 25135}# #{x 25610}#)))
- (let ((#{tmp 25612}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGO}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGP}#
+ (map #{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x -ANAU$bmvAmthP7L7xwtGO}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGQ}#
($sc-dispatch
- #{tmp 25611}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGP}#
'each-any)))
- (if #{tmp 25612}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGQ}#
(@apply
- (lambda (#{ g25098 25614}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws$O
-ANAU$bmvAmthP7L7xwtGS}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25098}#)
- #((m25099 top))
- #("1ee"))
+ #(#{
g-ANAU$bmvAmthP7L7xws$O}#)
+ #((m-ANAU$bmvAmthP7L7xws$P
+ top))
+ #("1fc"))
#(ribcage
#(x)
#((top))
- #("1ed"))
+ #("1fb"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -25384,54 +26876,56 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g25098 25614}#))
- #{tmp 25612}#)
+ #{ g-ANAU$bmvAmthP7L7xws$O
-ANAU$bmvAmthP7L7xwtGS}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtGQ}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 25611}#)))))
- #{tmp 25606}#)
- (let ((#{tmp 25615}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGP}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtGK}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGT}#
($sc-dispatch
- #{x 25575}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "vector") . each-any))))
- (if #{tmp 25615}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGT}#
(@apply
- (lambda (#{x 25619}#)
- (let ((#{tmp 25620}#
- (map #{emit 25135}# #{x 25619}#)))
- (let ((#{tmp 25621}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGX}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGY}#
+ (map #{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x -ANAU$bmvAmthP7L7xwtGX}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGZ}#
($sc-dispatch
- #{tmp 25620}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGY}#
'each-any)))
- (if #{tmp 25621}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGZ}#
(@apply
- (lambda (#{ g25108 25623}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws$Y
-ANAU$bmvAmthP7L7xwtGb}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25108}#)
- #((m25109 top))
- #("1eg"))
+ #(#{
g-ANAU$bmvAmthP7L7xws$Y}#)
+
#((m-ANAU$bmvAmthP7L7xws$Z
+ top))
+ #("1fe"))
#(ribcage
#(x)
#((top))
- #("1ef"))
+ #("1fd"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -25446,47 +26940,49 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g25108 25623}#))
- #{tmp 25621}#)
+ #{ g-ANAU$bmvAmthP7L7xws$Y
-ANAU$bmvAmthP7L7xwtGb}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtGZ}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 25620}#)))))
- #{tmp 25615}#)
- (let ((#{tmp 25624}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGY}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtGT}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGc}#
($sc-dispatch
- #{x 25575}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "list->vector") any))))
- (if #{tmp 25624}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGc}#
(@apply
- (lambda (#{x 25628}#)
- (let ((#{tmp 25629}#
- (#{emit 25135}# #{x 25628}#)))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGg}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGh}#
+ (#{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x
-ANAU$bmvAmthP7L7xwtGg}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25118}#)
- #((m25119 top))
- #("1ei"))
+ #(#{
g-ANAU$bmvAmthP7L7xws$i}#)
+ #((m-ANAU$bmvAmthP7L7xws$j
+ top))
+ #("1fg"))
#(ribcage
#(x)
#((top))
- #("1eh"))
+ #("1ff"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -25501,188 +26997,218 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp 25629}#)))
- #{tmp 25624}#)
- (let ((#{tmp 25632}#
+ #{tmp
-ANAU$bmvAmthP7L7xwtGh}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtGc}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGk}#
($sc-dispatch
- #{x 25575}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "value") any))))
- (if #{tmp 25632}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGk}#
(@apply
- (lambda (#{x 25636}#) #{x 25636}#)
- #{tmp 25632}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGo}#)
+ #{x -ANAU$bmvAmthP7L7xwtGo}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtGk}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x 25575}#))))))))))))))))))
- (lambda (#{x 25136}#)
- (let ((#{tmp 25138}#
- ($sc-dispatch #{x 25136}# '(_ any))))
- (if #{tmp 25138}#
+ #{x
-ANAU$bmvAmthP7L7xwtFr}#))))))))))))))))))
+ (lambda (#{x -ANAU$bmvAmthP7L7xws$0}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws$2}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xws$0}#
+ '(_ any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xws$2}#
(@apply
- (lambda (#{e 25142}#)
- (#{emit 25135}# (#{quasi 25129}# #{e 25142}# 0)))
- #{tmp 25138}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xws$6}#)
+ (#{emit -ANAU$bmvAmthP7L7xws$z}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{e -ANAU$bmvAmthP7L7xws$6}#
+ 0)))
+ #{tmp -ANAU$bmvAmthP7L7xws$2}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25136}#)))))))
+ #{x -ANAU$bmvAmthP7L7xws$0}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 25679}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtHT}#)
(letrec*
- ((#{read-file 25680}#
- (lambda (#{fn 25789}# #{k 25790}#)
- (let ((#{p 25791}# (open-input-file #{fn 25789}#)))
+ ((#{read-file -ANAU$bmvAmthP7L7xwtHU}#
+ (lambda (#{fn -ANAU$bmvAmthP7L7xwtJB}#
+ #{k -ANAU$bmvAmthP7L7xwtJC}#)
+ (let ((#{p -ANAU$bmvAmthP7L7xwtJD}#
+ (open-input-file #{fn -ANAU$bmvAmthP7L7xwtJB}#)))
(letrec*
- ((#{f 25792}#
- (lambda (#{x 25846}# #{result 25847}#)
- (if (eof-object? #{x 25846}#)
+ ((#{f -ANAU$bmvAmthP7L7xwtJE}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtJ6}#
+ #{result -ANAU$bmvAmthP7L7xwtJ7}#)
+ (if (eof-object? #{x -ANAU$bmvAmthP7L7xwtJ6}#)
(begin
- (close-input-port #{p 25791}#)
- (reverse #{result 25847}#))
- (#{f 25792}#
- (read #{p 25791}#)
- (cons (datum->syntax #{k 25790}# #{x 25846}#)
- #{result 25847}#))))))
- (#{f 25792}# (read #{p 25791}#) '()))))))
- (let ((#{tmp 25682}#
- ($sc-dispatch #{x 25679}# '(any any))))
- (if #{tmp 25682}#
+ (close-input-port #{p -ANAU$bmvAmthP7L7xwtJD}#)
+ (reverse #{result -ANAU$bmvAmthP7L7xwtJ7}#))
+ (#{f -ANAU$bmvAmthP7L7xwtJE}#
+ (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
+ (cons (datum->syntax
+ #{k -ANAU$bmvAmthP7L7xwtJC}#
+ #{x -ANAU$bmvAmthP7L7xwtJ6}#)
+ #{result -ANAU$bmvAmthP7L7xwtJ7}#))))))
+ (#{f -ANAU$bmvAmthP7L7xwtJE}#
+ (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
+ '()))))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtHW}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xwtHT}#
+ '(any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtHW}#
(@apply
- (lambda (#{k 25686}# #{filename 25687}#)
- (let ((#{fn 25688}# (syntax->datum #{filename 25687}#)))
- (let ((#{tmp 25689}#
- (#{read-file 25680}#
- #{fn 25688}#
- #{filename 25687}#)))
- (let ((#{tmp 25690}#
- ($sc-dispatch #{tmp 25689}# 'each-any)))
- (if #{tmp 25690}#
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtHa}#
+ #{filename -ANAU$bmvAmthP7L7xwtHb}#)
+ (let ((#{fn -ANAU$bmvAmthP7L7xwtHc}#
+ (syntax->datum
+ #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtHd}#
+ (#{read-file -ANAU$bmvAmthP7L7xwtHU}#
+ #{fn -ANAU$bmvAmthP7L7xwtHc}#
+ #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtHe}#
+ ($sc-dispatch
+ #{tmp -ANAU$bmvAmthP7L7xwtHd}#
+ 'each-any)))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtHe}#
(@apply
- (lambda (#{exp 25708}#)
+ (lambda (#{exp -ANAU$bmvAmthP7L7xwtHw}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("1ex"))
+ #(ribcage #(exp) #((top)) #("1fv"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1ew"))
+ #(ribcage #(fn) #((top)) #("1fu"))
#(ribcage
#(k filename)
#((top) (top))
- #("1eu" "1ev"))
- #(ribcage (read-file) ((top)) ("1en"))
- #(ribcage #(x) #((top)) #("1em")))
+ #("1fs" "1ft"))
+ #(ribcage (read-file) ((top)) ("1fl"))
+ #(ribcage #(x) #((top)) #("1fk")))
(hygiene guile))
- #{exp 25708}#))
- #{tmp 25690}#)
+ #{exp -ANAU$bmvAmthP7L7xwtHw}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtHe}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25689}#))))))
- #{tmp 25682}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtHd}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtHW}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25679}#)))))))
+ #{x -ANAU$bmvAmthP7L7xwtHT}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 25860}#)
- (let ((#{tmp 25862}#
- ($sc-dispatch #{x 25860}# '(any any))))
- (if #{tmp 25862}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtKI}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtKK}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xwtKI}#
+ '(any any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtKK}#
(@apply
- (lambda (#{k 25866}# #{filename 25867}#)
- (let ((#{fn 25868}# (syntax->datum #{filename 25867}#)))
- (let ((#{tmp 25869}#
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtKO}#
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#)
+ (let ((#{fn -ANAU$bmvAmthP7L7xwtKQ}#
+ (syntax->datum
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtKR}#
(datum->syntax
- #{filename 25867}#
- (let ((#{t 25872}# (%search-load-path #{fn 25868}#)))
- (if #{t 25872}#
- #{t 25872}#
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwtKU}#
+ (%search-load-path
+ #{fn -ANAU$bmvAmthP7L7xwtKQ}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwtKU}#
+ #{t -ANAU$bmvAmthP7L7xwtKU}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 25860}#
- #{filename 25867}#))))))
+ #{x -ANAU$bmvAmthP7L7xwtKI}#
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1f2"))
+ #(ribcage #(fn) #((top)) #("1g0"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1f1"))
+ #(ribcage #(fn) #((top)) #("1fz"))
#(ribcage
#(k filename)
#((top) (top))
- #("1ez" "1f0"))
+ #("1fx" "1fy"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ey")))
+ #(ribcage #(x) #((top)) #("1fw")))
(hygiene guile))
- #{tmp 25869}#))))
- #{tmp 25862}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtKR}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtKK}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25860}#))))))
+ #{x -ANAU$bmvAmthP7L7xwtKI}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 25880}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtKc}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 25880}#))))
+ #{x -ANAU$bmvAmthP7L7xwtKc}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 25882}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtKe}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 25882}#))))
+ #{x -ANAU$bmvAmthP7L7xwtKe}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 25919}#)
- (let ((#{tmp 25921}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtLD}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtLF}#
($sc-dispatch
- #{x 25919}#
+ #{x -ANAU$bmvAmthP7L7xwtLD}#
'(_ any any . each-any))))
- (if #{tmp 25921}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtLF}#
(@apply
- (lambda (#{e 25925}# #{m1 25926}# #{m2 25927}#)
- (let ((#{tmp 25928}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwtLJ}#
+ #{m1 -ANAU$bmvAmthP7L7xwtLK}#
+ #{m2 -ANAU$bmvAmthP7L7xwtLL}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtLM}#
(letrec*
- ((#{f 25970}#
- (lambda (#{clause 25973}# #{clauses 25974}#)
- (if (null? #{clauses 25974}#)
- (let ((#{tmp 25976}#
+ ((#{f -ANAU$bmvAmthP7L7xwtL2}#
+ (lambda (#{clause -ANAU$bmvAmthP7L7xwtL5}#
+ #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
+ (if (null? #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtL8}#
($sc-dispatch
- #{clause 25973}#
+ #{clause -ANAU$bmvAmthP7L7xwtL5}#
'(#(free-id
#(syntax-object
else
@@ -25691,77 +27217,79 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 25976}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtL8}#
(@apply
- (lambda (#{e1 25980}# #{e2 25981}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwtMA}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMB}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1fe" "1ff"))
+ #("1gc" "1gd"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
- (cons #{e1 25980}# #{e2 25981}#)))
- #{tmp 25976}#)
- (let ((#{tmp 25982}#
+ (cons #{e1
-ANAU$bmvAmthP7L7xwtMA}#
+ #{e2
-ANAU$bmvAmthP7L7xwtMB}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtL8}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtMC}#
($sc-dispatch
- #{clause 25973}#
+ #{clause -ANAU$bmvAmthP7L7xwtL5}#
'(each-any any . each-any))))
- (if #{tmp 25982}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtMC}#
(@apply
- (lambda (#{k 25986}#
- #{e1 25987}#
- #{e2 25988}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtMG}#
+ #{e1 -ANAU$bmvAmthP7L7xwtMH}#
+ #{e2
-ANAU$bmvAmthP7L7xwtMI}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fg" "1fh" "1fi"))
+ #("1ge" "1gf" "1gg"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25771,9 +27299,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25782,22 +27310,22 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
'#(syntax-object
t
@@ -25807,9 +27335,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25818,22 +27346,22 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25843,9 +27371,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage
()
()
@@ -25857,17 +27385,17 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage
()
()
@@ -25875,10 +27403,10 @@
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene
guile))
- #{k 25986}#))
+ #{k
-ANAU$bmvAmthP7L7xwtMG}#))
(cons '#(syntax-object
begin
((top)
@@ -25887,9 +27415,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25898,70 +27426,70 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
- (cons #{e1 25987}#
- #{e2 25988}#))))
- #{tmp 25982}#)
+ (cons #{e1
-ANAU$bmvAmthP7L7xwtMH}#
+ #{e2
-ANAU$bmvAmthP7L7xwtMI}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtMC}#)
(syntax-violation
'case
"bad clause"
- #{x 25919}#
- #{clause 25973}#)))))
- (let ((#{tmp 25996}#
- (#{f 25970}#
- (car #{clauses 25974}#)
- (cdr #{clauses 25974}#))))
- (let ((#{tmp 25999}#
+ #{x -ANAU$bmvAmthP7L7xwtLD}#
+ #{clause -ANAU$bmvAmthP7L7xwtL5}#)))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtMQ}#
+ (#{f -ANAU$bmvAmthP7L7xwtL2}#
+ (car #{clauses
-ANAU$bmvAmthP7L7xwtL6}#)
+ (cdr #{clauses
-ANAU$bmvAmthP7L7xwtL6}#))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtMT}#
($sc-dispatch
- #{clause 25973}#
+ #{clause -ANAU$bmvAmthP7L7xwtL5}#
'(each-any any . each-any))))
- (if #{tmp 25999}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtMT}#
(@apply
- (lambda (#{k 26003}#
- #{e1 26004}#
- #{e2 26005}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtMX}#
+ #{e1 -ANAU$bmvAmthP7L7xwtMY}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMZ}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl" "1fm" "1fn"))
+ #("1gj" "1gk" "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25969,32 +27497,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
'#(syntax-object
t
@@ -26002,32 +27530,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -26037,9 +27565,9 @@
#((top)
(top)
(top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage
()
()
@@ -26047,7 +27575,7 @@
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("1gi"))
#(ribcage
()
()
@@ -26059,17 +27587,17 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage
()
()
@@ -26077,232 +27605,238 @@
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
- #{k 26003}#))
+ #{k
-ANAU$bmvAmthP7L7xwtMX}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("1g4")))
(hygiene guile))
- (cons #{e1 26004}#
- #{e2 26005}#))
- #{tmp 25996}#))
- #{tmp 25999}#)
+ (cons #{e1
-ANAU$bmvAmthP7L7xwtMY}#
+ #{e2
-ANAU$bmvAmthP7L7xwtMZ}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtMQ}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtMT}#)
(syntax-violation
'case
"bad clause"
- #{x 25919}#
- #{clause 25973}#))))))))
- (#{f 25970}# #{m1 25926}# #{m2 25927}#))))
- (let ((#{body 25929}# #{tmp 25928}#))
+ #{x -ANAU$bmvAmthP7L7xwtLD}#
+ #{clause
-ANAU$bmvAmthP7L7xwtL5}#))))))))
+ (#{f -ANAU$bmvAmthP7L7xwtL2}#
+ #{m1 -ANAU$bmvAmthP7L7xwtLK}#
+ #{m2 -ANAU$bmvAmthP7L7xwtLL}#))))
+ (let ((#{body -ANAU$bmvAmthP7L7xwtLN}#
+ #{tmp -ANAU$bmvAmthP7L7xwtLM}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1fa"))
+ #(ribcage #(body) #((top)) #("1g8"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f6")))
+ #(ribcage #(x) #((top)) #("1g4")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1fa"))
+ #(ribcage #(body) #((top)) #("1g8"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f6")))
+ #(ribcage #(x) #((top)) #("1g4")))
(hygiene guile))
- #{e 25925}#))
- #{body 25929}#))))
- #{tmp 25921}#)
+ #{e -ANAU$bmvAmthP7L7xwtLJ}#))
+ #{body -ANAU$bmvAmthP7L7xwtLN}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtLF}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25919}#))))))
+ #{x -ANAU$bmvAmthP7L7xwtLD}#))))))
(define make-variable-transformer
- (lambda (#{proc 26020}#)
- (if (procedure? #{proc 26020}#)
+ (lambda (#{proc -ANAU$bmvAmthP7L7xwtMo}#)
+ (if (procedure? #{proc -ANAU$bmvAmthP7L7xwtMo}#)
(letrec*
- ((#{trans 26021}#
- (lambda (#{x 26027}#)
- (#{proc 26020}# #{x 26027}#))))
+ ((#{trans -ANAU$bmvAmthP7L7xwtMp}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtMv}#)
+ (#{proc -ANAU$bmvAmthP7L7xwtMo}#
+ #{x -ANAU$bmvAmthP7L7xwtMv}#))))
(begin
(set-procedure-property!
- #{trans 26021}#
+ #{trans -ANAU$bmvAmthP7L7xwtMp}#
'variable-transformer
#t)
- #{trans 26021}#))
+ #{trans -ANAU$bmvAmthP7L7xwtMp}#))
(error "variable transformer not a procedure"
- #{proc 26020}#))))
+ #{proc -ANAU$bmvAmthP7L7xwtMo}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 26047}#)
- (let ((#{tmp 26049}#
- ($sc-dispatch #{x 26047}# '(_ any))))
- (if #{tmp 26049}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtND}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtNF}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xwtND}#
+ '(_ any))))
+ (if #{tmp -ANAU$bmvAmthP7L7xwtNF}#
(@apply
- (lambda (#{e 26053}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwtNJ}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
- #{e 26053}#))
+ #{e -ANAU$bmvAmthP7L7xwtNJ}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
- (cons #{e 26053}#
+ (cons #{e -ANAU$bmvAmthP7L7xwtNJ}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("1ft"))
+ #("1gr"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
#(syntax-object
...
@@ -26310,55 +27844,55 @@
#(ribcage
#(e)
#((top))
- #("1ft"))
+ #("1gr"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile)))))))))
- #{tmp 26049}#)
- (let ((#{tmp 26054}#
+ #{tmp -ANAU$bmvAmthP7L7xwtNF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtNK}#
($sc-dispatch
- #{x 26047}#
+ #{x -ANAU$bmvAmthP7L7xwtND}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 26054}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwtNK}#
(@apply
- (lambda (#{id 26058}#
- #{exp1 26059}#
- #{var 26060}#
- #{val 26061}#
- #{exp2 26062}#)
- (if (identifier? #{id 26058}#)
- (identifier? #{var 26060}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwtNO}#
+ #{exp1 -ANAU$bmvAmthP7L7xwtNP}#
+ #{var -ANAU$bmvAmthP7L7xwtNQ}#
+ #{val -ANAU$bmvAmthP7L7xwtNR}#
+ #{exp2 -ANAU$bmvAmthP7L7xwtNS}#)
+ (if (identifier? #{id -ANAU$bmvAmthP7L7xwtNO}#)
+ (identifier? #{var -ANAU$bmvAmthP7L7xwtNQ}#)
#f))
- #{tmp 26054}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
#f)
(@apply
- (lambda (#{id 26063}#
- #{exp1 26064}#
- #{var 26065}#
- #{val 26066}#
- #{exp2 26067}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwtNT}#
+ #{exp1 -ANAU$bmvAmthP7L7xwtNU}#
+ #{var -ANAU$bmvAmthP7L7xwtNV}#
+ #{val -ANAU$bmvAmthP7L7xwtNW}#
+ #{exp2 -ANAU$bmvAmthP7L7xwtNX}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26366,9 +27900,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
x
@@ -26376,9 +27910,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26386,9 +27920,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
.
#(syntax-object
@@ -26397,9 +27931,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26407,9 +27941,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'#(syntax-object
x
@@ -26417,9 +27951,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26427,9 +27961,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26441,19 +27975,19 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
- #{var 26065}#
- #{val 26066}#)
+ #{var -ANAU$bmvAmthP7L7xwtNV}#
+ #{val -ANAU$bmvAmthP7L7xwtNW}#)
(list '#(syntax-object
syntax
((top)
@@ -26464,19 +27998,19 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
- #{exp2 26067}#))
- (list (cons #{id 26063}#
+ #{exp2
-ANAU$bmvAmthP7L7xwtNX}#))
+ (list (cons #{id -ANAU$bmvAmthP7L7xwtNT}#
'(#(syntax-object
x
((top)
@@ -26487,16 +28021,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
#(syntax-object
...
@@ -26508,16 +28042,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26529,18 +28063,18 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
- (cons #{exp1 26064}#
+ (cons #{exp1
-ANAU$bmvAmthP7L7xwtNU}#
'(#(syntax-object
x
((top)
@@ -26555,16 +28089,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
#(syntax-object
...
@@ -26580,18 +28114,18 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))))))
- (list #{id 26063}#
+ (list #{id -ANAU$bmvAmthP7L7xwtNT}#
(list '#(syntax-object
identifier?
((top)
@@ -26602,16 +28136,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26627,18 +28161,18 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
- #{id 26063}#))
+ #{id
-ANAU$bmvAmthP7L7xwtNT}#))
(list '#(syntax-object
syntax
((top)
@@ -26649,68 +28183,72 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("1gq")))
(hygiene guile))
- #{exp1 26064}#))))))
- #{tmp 26054}#)
+ #{exp1
-ANAU$bmvAmthP7L7xwtNU}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 26047}#))))))))
+ #{x -ANAU$bmvAmthP7L7xwtND}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 26090}#)
- (let ((#{tmp 26092}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtNu}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtNw}#
($sc-dispatch
- #{x 26090}#
+ #{x -ANAU$bmvAmthP7L7xwtNu}#
'(_ (any . any) any . each-any))))
- (if #{tmp 26092}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtNw}#
(@apply
- (lambda (#{id 26096}#
- #{args 26097}#
- #{b0 26098}#
- #{b1 26099}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwtN0}#
+ #{args -ANAU$bmvAmthP7L7xwtN1}#
+ #{b0 -ANAU$bmvAmthP7L7xwtN2}#
+ #{b1 -ANAU$bmvAmthP7L7xwtN3}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1g5" "1g6" "1g7" "1g8"))
+ #("1h3" "1h4" "1h5" "1h6"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))
- #{id 26096}#
+ #{id -ANAU$bmvAmthP7L7xwtN0}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1g5" "1g6" "1g7" "1g8"))
+ #("1h3" "1h4" "1h5" "1h6"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))
- (cons #{args 26097}#
- (cons #{b0 26098}# #{b1 26099}#)))))
- #{tmp 26092}#)
- (let ((#{tmp 26100}#
- ($sc-dispatch #{x 26090}# '(_ any any))))
- (if (if #{tmp 26100}#
+ (cons #{args -ANAU$bmvAmthP7L7xwtN1}#
+ (cons #{b0 -ANAU$bmvAmthP7L7xwtN2}#
+ #{b1 -ANAU$bmvAmthP7L7xwtN3}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtNw}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtN4}#
+ ($sc-dispatch
+ #{x -ANAU$bmvAmthP7L7xwtNu}#
+ '(_ any any))))
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwtN4}#
(@apply
- (lambda (#{id 26104}# #{val 26105}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwtN8}#
+ #{val -ANAU$bmvAmthP7L7xwtN9}#)
(identifier?
'#(syntax-object
x
@@ -26718,29 +28256,30 @@
#(ribcage
#(id val)
#((top) (top))
- #("1g9" "1ga"))
+ #("1h7" "1h8"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))))
- #{tmp 26100}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
#f)
(@apply
- (lambda (#{id 26106}# #{val 26107}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwtN$}#
+ #{val address@hidden)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("1gb" "1gc"))
+ #("1h9" "1ha"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))
- #{id 26106}#
- #{val 26107}#))
- #{tmp 26100}#)
+ #{id -ANAU$bmvAmthP7L7xwtN$}#
+ #{val address@hidden))
+ #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 26090}#))))))))
+ #{x -ANAU$bmvAmthP7L7xwtNu}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index fd33e98..8220829 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -791,6 +791,55 @@
id))))))
(else (syntax-violation 'id-var-name "invalid id" id)))))
+ ;; A helper procedure for syntax-locally-bound-identifiers, which
+ ;; itself is a helper for transformer procedures.
+ ;; `locally-bound-identifiers' returns a list of all bindings
+ ;; visible to a syntax object with the given wrap. They are in
+ ;; order from outer to inner.
+ ;;
+ ;; The purpose of this procedure is to give a transformer procedure
+ ;; references on bound identifiers, that the transformer can then
+ ;; introduce some of them in its output. As such, the identifiers
+ ;; are anti-marked, so that rebuild-macro-output doesn't apply new
+ ;; marks to them.
+ ;;
+ (define locally-bound-identifiers
+ (lambda (w mod)
+ (define scan
+ (lambda (subst results)
+ (if (null? subst)
+ results
+ (let ((fst (car subst)))
+ (if (eq? fst 'shift)
+ (scan (cdr subst) results)
+ (let ((symnames (ribcage-symnames fst))
+ (marks (ribcage-marks fst)))
+ (if (vector? symnames)
+ (scan-vector-rib subst symnames marks results)
+ (scan-list-rib subst symnames marks results))))))))
+ (define scan-list-rib
+ (lambda (subst symnames marks results)
+ (let f ((symnames symnames) (marks marks) (results results))
+ (if (null? symnames)
+ (scan (cdr subst) results)
+ (f (cdr symnames) (cdr marks)
+ (cons (wrap (car symnames)
+ (anti-mark (make-wrap (car marks) subst))
+ mod)
+ results))))))
+ (define scan-vector-rib
+ (lambda (subst symnames marks results)
+ (let ((n (vector-length symnames)))
+ (let f ((i 0) (results results))
+ (if (fx= i n)
+ (scan (cdr subst) results)
+ (f (fx+ i 1)
+ (cons (wrap (vector-ref symnames i)
+ (anti-mark (make-wrap (vector-ref marks i)
subst))
+ mod)
+ results)))))))
+ (scan (wrap-subst w) '())))
+
;; Returns three values: binding type, binding value, the module (for
;; resolving toplevel vars).
(define (resolve-identifier id w r mod)
@@ -2476,33 +2525,6 @@
(set! syntax-source
(lambda (x) (source-annotation x)))
- (set! syntax-local-binding
- (lambda (id)
- (arg-check nonsymbol-id? id 'syntax-local-value)
- (with-transformer-environment
- (lambda (e r w s rib mod)
- (define (strip-anti-mark w)
- (let ((ms (wrap-marks w)) (s (wrap-subst w)))
- (if (and (pair? ms) (eq? (car ms) the-anti-mark))
- ;; output is from original text
- (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s)))
- ;; output introduced by macro
- (make-wrap ms (if rib (cons rib s) s)))))
- (call-with-values (lambda ()
- (resolve-identifier
- (syntax-object-expression id)
- (strip-anti-mark (syntax-object-wrap id))
- r
- (syntax-object-module id)))
- (lambda (type value mod)
- (case type
- ((lexical) (values 'lexical value))
- ((macro) (values 'macro value))
- ((syntax) (values 'pattern-variable value))
- ((displaced-lexical) (values 'displaced-lexical #f))
- ((global) (values 'global (cons value mod)))
- (else (values 'other #f)))))))))
-
(set! generate-temporaries
(lambda (ls)
(arg-check list? ls 'generate-temporaries)
@@ -2531,6 +2553,50 @@
(strip form empty-wrap)
(and subform (strip subform empty-wrap)))))
+ (let ()
+ (define (syntax-module id)
+ (arg-check nonsymbol-id? id 'syntax-module)
+ (cdr (syntax-object-module id)))
+
+ (define (syntax-local-binding id)
+ (arg-check nonsymbol-id? id 'syntax-local-binding)
+ (with-transformer-environment
+ (lambda (e r w s rib mod)
+ (define (strip-anti-mark w)
+ (let ((ms (wrap-marks w)) (s (wrap-subst w)))
+ (if (and (pair? ms) (eq? (car ms) the-anti-mark))
+ ;; output is from original text
+ (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s)))
+ ;; output introduced by macro
+ (make-wrap ms (if rib (cons rib s) s)))))
+ (call-with-values (lambda ()
+ (resolve-identifier
+ (syntax-object-expression id)
+ (strip-anti-mark (syntax-object-wrap id))
+ r
+ (syntax-object-module id)))
+ (lambda (type value mod)
+ (case type
+ ((lexical) (values 'lexical value))
+ ((macro) (values 'macro value))
+ ((syntax) (values 'pattern-variable value))
+ ((displaced-lexical) (values 'displaced-lexical #f))
+ ((global) (values 'global (cons value (cdr mod))))
+ (else (values 'other #f))))))))
+
+ (define (syntax-locally-bound-identifiers id)
+ (arg-check nonsymbol-id? id 'syntax-locally-bound-identifiers)
+ (locally-bound-identifiers (syntax-object-wrap id)
+ (syntax-object-module id)))
+
+ ;; Using define! instead of set! to avoid warnings at
+ ;; compile-time, after the variables are stolen away into (system
+ ;; syntax). See the end of boot-9.scm.
+ ;;
+ (define! 'syntax-module syntax-module)
+ (define! 'syntax-local-binding syntax-local-binding)
+ (define! 'syntax-locally-bound-identifiers
syntax-locally-bound-identifiers))
+
;; $sc-dispatch expects an expression and a pattern. If the expression
;; matches the pattern a list of the matching expressions for each
;; "any" is returned. Otherwise, #f is returned. (This use of #f will
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |